Digital PDFs

AH-E058E-MC

July 1982

70 pages

Original

33MB

view download

OCR Version

44MB

view download

Document:	CZM9BE0 KD11-Z,M9312 M9312-1144 UBI BOOT JUL 1982 bw
Order Number:	AH-E058E-MC
Revision:	000
Pages:	70
Original Filename:	CZM9BE0__KD11-Z,M9312__M9312-1144_UBI_BOOT__AH-E058E-MC__JUL_1982_gray.pdf

OCR Text

M9312/1144 UBI
CZH9BEO

BOOT

AH- EOS8E-MC
FIC

o8z

,.——"‘""'"1

HE 1 OF 1 Soriniuea= GiEbiiS:

& VXN guuuwuummmmmmmmwm_._._._-_.—-..
sl
O
NS WN=2OVONO
N NN SO0 O NS
N
= O 000 NOWN SN -

CZM9BED M9312/1144 KT24 UBI BOO MACRO M1113

22-JAN-82 09:18

PAGE 2

SEQUENCE

.RER !

IDENTIFICATION
PRODUCT CODE:

AC-EO0S57E-MC

PRODUCT NAME
:

CZM9BEO M9312/1144 UBI BOOT

DATE:

JANUARY, 1982

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE

INFORMATION IN THIS

DOCUMENT

SUBJECT

CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
AS A COMMITMENT BY DITITAL EQUIPMENT
CORPORATION.

DIGITAL

EQUIPMENT

CORPORATION

ASSUMES

RESPONSIBILITY FOR_ANY ERRORS THAT MAY APPEAR
IN
THIS DOCUMENT.
THE
SOFTWARE
DESCRIBED IN THIS
DOCUMENT IS FURNISHED UNDER A LICENSE AND MAY ONLY
ESCNS{E!&&CWIED IN ACCORDANCE WITH THE TERMS OF
DIGITAL
EQUIPMENT = CORPORATION
ASSUME S
NO
RESPONSIBILITY FOR
THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT
THAT
IS NOT
SUPPLIED BY

DIGITAL.

CORPORAT
ION

(C)

1979.1982 BY DIGITAL

EQUIPEMNT

C7MIBEO M9312/1144 KT24 UBI BOO MACRO M1113

22-JAN-82 09:18

PAGE 3

1
SEQUENCE

Lo
SV
IV TV TV YNIWVWAVIWALS S
o NDONO
N NN —=O0 0N

HISTORY SECTION
PBRDAQ WAS RELEASED MARCH, 1978.
PBRDBO WAS RELEASED JUNE, 1978.

PBRD440 WAS RELEASED JANUARY, 1979
CZM98D0 WAS RELEASED OCTOBER 1979
CZM9BEQO WAS RELEASED JANUARY, 1982

REVISION B WAS CREATED TO PROVIDE THE FOLLOWING ENHANCEMENTS:

1. PROPERLY CHECK THE BOOT ROM'S ALPHABETIC SEQUENCE AND,

IF NOT IN CORRECT SEQUENCE, PRINT THE CORRECT SEQUENCE AS
AN ERROR MESSAGE.
ALSO CHECK FOR NO HOLES AND CHECK
FOR ROM IN SOCKET #2 IF 11/60 AND ONLY ONE ROM EXISTS,
ELSE PRINT THE CORRECT SEQUENCE.

THE DIAGNOSTIC CANNOT DETERMINE THE DEVICE CODE FOR A
CONTINUATION ROM.
THEREFORE, CONTINUATION ROMS ARE TREATED
AS EXTENSIONS OF THE PRECEEDING DEVICE CODE ROM.
ILLEGAL
PLACEMENT OF CONTINUATION ROMS ARE REPORTED IN ERROR
MESSAGES.
A DUPLICATE DEVICE ROM IS ALSO REPORTED IN
AN ERROR MESSAGE.
COMMENT FIELDS BEGINNING WITH THE CHARACTERS ‘;+'
IDENTIFY ALL LINES ADDED OR MODIFIED BY REV BO.

REVISION C WAS CREATED TO PROVIDE THE FOLLOWING ENHANCEMENTS:

TO UPDATE

THE DIAGNOSTIC BASED ON FAULT INSERTION OF

THE M9312 MODULE.

TO ADD A ' NO ROMS FOUND ' MESSAGE.

TO SIZE FOR A FALSE ERROR CAUSED BY A REAL FAILURE TO
FIND THE POWER FAIL VECTOR WHEN ONLY THE CPU ROM IS
PRESENT. THIS SHOULD NOT BE TREATED AS A FATAL ERROR
(WHICH IT WAS IN REV. B).
PREVIOULY, APT WOULD NOT RUN

IN PRINTING MODE DISABLED DUE TO THIS ERROR.

COMMENT FIELDS BEGINNING WITH THE CHARATERS '‘;-"
IDENTIFY ALL LINES ADDED OR MODIFIED BY REV. C.
REVISION D WAS CREATED TO ACCOMODATE TESTING OF
11/44 UBI MODULE.
THE UBI MODULE HAS LOGIC WHICH IS FUNCTIONALLY EQUIVALENT TO THE M9312.

2INCE THE DlMS"g CALLS OUT E NUMBERS REFERENCING THE
BOOTSTRAP % 1
DIAGNOSTIC RCM {C'S. USE TFPT
INSTRUCTION

TO DET N% IF (F? IS 11/744. IF IT IS

THEN USE SET OF E NUMBERS CONSISTENT WITH UBI MODULE.

COMMENT FIELDS BEGINNING WITH THE CHARACTERS '‘;we''

IDENTIFY ALL LINES

ADDED OR MODIFIED BY REV. D.

REVISION E WAS CREATED TO ACCOMODATE TESTING OF 11/24 WITH BOOT ROMS ON EITHER
THE MAP MODULE OR THE CPU MODULE.
ALSO, CORRECTIONS WERE MADE TO SOME OF THE

1
SZQUENCE

COMMENT FIELDS ENDING WITH "';DPMO01'" IDENTIFY ALL LINES

1.0

ABSTRACT
THIS PROGRAM VERIFIES THE ROM INFORMATION FOR THE M9312 BOOTSTRAP

TERMINATOR OR 11/44 UBI TERMINATOR.
IT HAS TWO
WHICH REQUIRES OPERATOR INTERVENTION AND APT=-MODE.

PAGE 3-1

ADDED OR MODIFIED BY REV E.

2.0

REQUIREMENTS

2.1

HARDWARE

MODES OF OPERATION;

STAND-ALONE MO |

ANY PDP=-11 UNIBUS PROCESSOR WITH CONSOLE TERMINAL AND/OR HARDWARE

SWITCH REGISTER
M9312 BOOT STRAP TERMINATOR

127

}53

4K MEMORY

1%?
132
133
gg

22-JAN-82 09:18

MESSAGE ,PRINTOUTS
WHEN RUN ON AN 11/24.
PRINT(
1T ALSO CORRECTED CODING
RRORS IN THE
"PROMP:''
AND_"DEVCOD:'*
SUBROUTINES,
USED WHEN IN APT MODE WHEN BIT 7 OF SENVM
1S SET (THE 200 BIT). ATTENTION: PROPER SETUP F THE APT TABLES I NECESSARY
TO RUN IN THAT MODE.
SEE SE cT ION UNDER APT (4.3).
WHILE RUNNING WITH 4 ROMS,
DIAG FAILED.
CODE WAS CHANGED TO CORRECT THIS PROBLEM.
WHILE RUNNING WITH
CONTINUATION ROMS, DIAGNOSTI C FAILED.
CODE WAS CHANGED TO CORRECT THIS PROBLEM.
WRONG ROM NUMBER WAS PRINTED ON A ROM FAILURE, CODE CORRECTED TO POINT TO THE
CORRECT ROM ASCII STREAM.

UWN 2OV NONNHWN = ODONIG N &S R0 — SO

_.—l—l—l—a—l—l—l—i_l_.—é—l-d-—l—l—l—l—l—l—l._l_a-d—l.-l—b

0000000000V

CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113

LS TaS ST NT N T,0 TN

NOTE: IF 11/44 CPU, M9312 BOOTSTRAP TERMINATOR IS NOT NEEDED

2.2

136
137

SOFTWARE

THIS PROGRAM REQUIRES THAT THE CORRECT OPERATION
THE
PROCESSOR,
MEMORY AND CONSOLE TERMINAL HAVE BEEN VERIFIED BY THE

;gg

APPROPRIATE DIAGNOSTICS.

3.0

LOADING AND STARTING PROCEDURES

1121;

3.1

LOAD THE PROGRAM BY ANY OF THE STANDARD PROCECURES FOR ABSOLUTE PROGRAM FORMATS.

;29

3.2

STARTING ADDRESS

}23
150
151
}gg

;gg

200~ DO CRC VERIFICATION AND SIZING

3.3

RESTART ADDRESS

204~ RESTART WITHOUT SIZING

—OVe~N

3.4

22-JAN-82 09:18 PAGE %-2

SEQUENCE

SPECIAL ENVIRONMENTS
THIS PROGRAM IS APT COHPATXBLE EEE

FOLLOW STANDARD APT PROCEDURES

4.0

OPERATING PROCEDURES

4.1

OPERATIONAL SWITCH SETTINGS

FOR LO

E TABLE
TARTING.

SET-UP.

e e

D e e

O O O O O O 0 0o 00 0o oo 0000000000 N~~~ NN~
S
olOO gu?wfidoomwomawmaoomwo\na
OO~
883
WN—'O'O(D\JO*V\J\W%(e X e QW ol IV

CZMIBED M9312/1144 KT24 UBI BOO MACRO M1113

>»m

THE PROGRAM IS DESIGNED TO
USE
THE
HARDWARE
SWITCH
REGISTER,
HOWEVER
IF
THIS
REGISTER IS NOT AVAILABLE THE PROGRAM WILL USE

—

LOCATION 176 AS THE SWITCH REGISTER.

4.2

—

R AT T O W

SW 15=1 OR UP=-- HALT ON ERROR
SW 13=1 OR UP-- INHIBIT ERROR TYPEOQUTS
SW 10=1 OR UP-- BELL ON ERROR

EXECUTION TIMES

EXECUTION TIME IS DEPENDENT ON THE CONSOLE
FIRST PASS.

4.3

TERMINAL

ALL OTHER PASSES TAKE LESS THEN 1

SECOND.

DURING

THE

APT PROCEDURES

THERE ARE TWO CHOICES WHEN RUNNING UNDER APT.

(BIT

7-SENVM)

COMPARE P,
THIS TABLE fllg

'ERS
BE

STAND-ALONE mo;.

CLEAR

IF THE

THE

SIZE

PROGRAM

BIT

WILL

SET

THE

SIZ2E

BIT

THE

PROGRAM

WILL

OPERATE

FROM THE BOARD TO THE CONTENTS OF THE ETABLE.
T UP PROPERLY AS TO THE MARDWARE CONF IGURA-

TION, OTHERWISE E
(S) WILL RESULT.
TO USE THE APT
FEATURE THE
ETABLE MUST BE SET UP IN THIS ORDER:

SENV:

'T CAR

200.0n 240

SUSWR :

NOT USES”

SMAMS? :
SMTYP2:
$SMADR? :
SMAMS 3 :
SMTYP3:

NOT
NOT
NOT
NOT
NOT

$CPUOP:
SMAMS 1 :
SMTYP1:
$MADR1 :

$MADR3:
SMAMSS :

IN NORMAL

NOT
D
NOT USED
NOT USED
NOT USED
USED
USED
USED
USED
USED

NOT USED
NOT USED

COMPARSION

22-JAN-82 09:18

SIS LS SIS TS TN T, N1, 87,87,.§)
POPONIN)
= = = e e —d
WN—=O Vo~
W

CZMIBEOD M9312/1144 KT24 UBI BOO MACRO M1113

SMAMSS :
SMTYP4:

$MADRS :

SVECT1:

SVECTZ2:
$BASE :
$DEVM:
$COW1:

224

PAGE 3-3

$CDW2:
$DDWO:~$DDW11:
$DDW12:
$DDW13:
$DDW14:
$DDW15:

SEQUENCE

NOT USED
NOT USED
NOT USED

NOT USED

NOT USED
PSEUDO POWER-FAIL VECTOR ADDRESS - MUST BE LOADED IF BIT 7
OF SENVM IS SET (THE 200 BIT)

IF BIT 7 OF SENVM IS CLEAR)

(DIAGNOSTIC ASSUMES 173024

NOT USED
CONTENTS OF ADDRESS IN S$BASE - MUST BE LOADED IF BIT 7
OF SENVM 1S SET (THE 200 BIT) (DIAGNOSTIC ASSUMES 165020

IF BIT 7 OF SENVM IS CLEAR)
NOT USED
UP TO 12 DEVICE CODES EXPECTED - MUST BE LOADED IF SENVM=200 OR 240
NOT USED
NOT USED
NOT USED
NOT USED

NOTE: THE ORDER FOR LOADING $DDWO IS IMPORTANT. THE FIRST
VALUE SHOULD BE FOR THE DIAGNOSTIC / CPU ROM, FOLLOWED
BY THE APPROPRIATE OCTAL VALUES FOR THE BOOT ROMS PRESENT.
SOME
OCTAL VALUES USED ARE:

OCTAL DATA

MNEMONI C

PIN LABELING

040160

gSgF 1

042114
042130

DL
DX

756A9
751A9
753A9

041460
042113

046524

co
DK

5.0

SUBROUTINE ABSTRACTS

5.1

NOROMS

757A9

THIS ROUTINE 1S CALLED ONLY IF NO ROMS WERE FOUND

DURING

SIZING

IT DOES A READ OF ALL BOOTSTRAP ROM ADDRESSES AND COMPARES THE
CONTENTS TO A KNOWN EXPECTED VALUE.

5.2

CHECKS
THIS ROUTINE SETS UP THE FIRST,

THE

“‘CALSUM'* SUBROUTINE.

LAST AND EXCEPTION

CALSUM

ADDRESSES

FOR

IT RECIEVES THE CALCULATED CHECKSUM FROM

'c"ctétgg&gw COMPARES IT AGAINST THE GOOD CHECKSUM

5.3

DETERMINE

CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE g-k 1
270
271
272

THIS ROUTINE CALCULATES THE
CRC16
CHECKSUM OF
EACH ROM,
[T
RECEIVES
THE
FIRST
ADDRESS
TO BE
C(HECKED(FIRSTA),
THE LAST
ADDRESS TO BE CHECKED(LASTAD) AND THE EXCEPTION ADDRESS
(EXCADD)

%;2

275
276
279
280
281
282
283
284
285

FROM THE "'CHECKSTM MODULE AND RETURNS TO IT THE CHECKSUM IN R4.

5.4

5.5

5.6

ggg

5.7

325
326

AND

THE

THIS ROUTINE DETERMINES THE PSEUDO POWER-FAIL VECTOR ADDRESS

AND

PPFVAR

PUTMES

THIS ROUTINE
MESSAGES.
5.8

FORMATS

THE

PARAMETER

AND

POWER-FAIL

ADDRESS

ERRHAN

THIS ROUTINE FORMATS ALL ERROR MESSAGES AND CALLS THE
TYPE
ROUTINE TO OUTPUT THEM.
T ALSO USES THE OPERATIONAL SWITCHES TO
DETERMINE WHETHER TO OUTPUT THE MESSAGE. OR HALT.

5.9

317
g}g
320
321
322

PASSES

PASSES IT AND ITS CONTENTS TO THE 'PROMP'’ MODULE

309
310
%}5
313
314

CODE_AND

ADDRESS IN WHICH IT WAS FOUND BACK TO THE 'PROMP’* MODULE.

295

302
303
304
305
306

DEvVCOD

THIS ROUTINE LOCATES EACH DEVICE

ggg

298
299

PROMP
THIS ROUTINE PROCESSES THE ROM PARAMETERS.
IT CHECKS
THE
SIZE/
DON'T
SIZE
BIT
IN THE APT ETABLE AND EITHER FORMATS THE SIZING
MESSAGES OR COMPARES THE SIZING INFORMATION
TO
THE
APT
ETABLE
DATA.

288
291
292

SEQUENCE

FILBUF

THIS ROUTINE FILLS THE MESSAGE BUFFER WITH ASCII CHARACTERS.
RECIEVES THE ADDRESS OF THE ASCII IN RS.

5.10

OCASC

THIS ROUTINE TAKES A SIXTEEN BIT BINARY NUMBER AND CONVERTS IT TO
6 ASCII1 CHARACTERS.

.‘

CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113

327
328
329

5.1

22-JAN-82 09:18

PAGE 3-5

SEGUENCE

OCADD
THIS RCUTINE

IS USED BY THE ''PUTMES'' MODULE WHEN THE DATA

IS NOT IN THE RIGHT MODE TO BE HANDLED BY THE '‘OCASC'' MODULE.

MOVES THE ADDRESSING MODE OF R3 UP ONE LEVEL OF DEFERMENT.

6.0

RELIABILITY//AVAILABILITY/SERVICEABILITY
WHEN RUNNING IN ANY ENVIRONMENT BUT APT THERE IS ONLY
ONE
FRROR
'DHE;ESEEDHIEI BEHE
PROGRAM.
THIS ERROR IS A CHECKSUM ERROR.
THE

CRC ERROR IN ROM EXX
THE FOLLOWING ERROR MESSAGES WERE ADDED IN REV BO:

1. A CONTINUATION ROM IS INCORRECTLY LOCATED IN ROM X(EXX)

2. A CONTINUATION ROM IS MISSING FOR DEVICE CODE XX
3. THERE IS A DUPLICATE ROM WITH DEVICE CODE XX

4. ROM SEQUENCE

IS INCORRECT AS PER INSTALLATION PROCEDURE.

SEQUENCE SHOULD BE:

ROM 1(E35)
ROM
2(E33)
ROM 3(E34)
ROM 4(E32)

XX
XX
XX
XX

WHEN RUNNING IN THE APT ENVIRONMENT THREE OTHER ERRORS MAY OCCUR.
1.

AN ERROR WILL OCCUR WHEN THE DEVICE CODES IN
THE
ETABLE
DO
NOT MATCH
THE
DEVICE
CODES
FOUND IN THE ROMS.
THE ERROR
MESSAGE WILL BE EITHER:

COULD NOT FIND DEVICE CODE XX.

FOUND UNEXPECTED DEVICE CODE XxX.

THE FIRST MESSAGE WILL BE PASSED TO

APT

DEVICE

(ODE

LISTED IN THE ETABLE CANNOT BE FOUND IN THE EXISTING ROMS.
THE SECOND MESSAGE WILL BE SENT IF A DEVICE CODE NOT LISTED
IN THE ETABLE IS FOUND IN A ROM.
2.

THE SECOND ERROR WILL BE
IF
THE PSEUDO POWER-FAIL VECTOR
ADDRESS
IN
THE ETABLE DOES NOT MATCH THE ADDRESS DETERMINED
S}L{HSEPROGRM.
TO BE IN THE BOARDS' SWITCHES.
THE MESSAGE
POWER-FAIL VECTOR

EXPECTED

RECEIVED

|
| CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113
384

22-JAN-82 09:18

[ 1
PAGE 3-6

WHERE EXPECTED IS THE CONTENTS OF
THE VALUE FOUND BY THE PROGRAM.

SEQUENCE

THE ETABLE AND RECEIVED

THE THIRD ERROR WILL BE IF THE
CONTENTS
OF
BOARD'S
PSEUDO
POWER=FAIL
VECTOR_
ADDRESS DOES NOT MATCH THE VALUE EXPECTED
FRCM THE ETABLE.
THE MESSAGE WILL BE:

POWER=FAIL DATA ERROR

EXPECTED

RECEIVED

7.0

DIAGNOSTIC COVERAGE

NOTE:

THIS DIAGNOSTIC DOESNOT PERFORM ANY EXAMINATION OF
THE BOOT CIRCUITRY
ON THE M9312.
IF YOU WISH TO CHECK THIS
CIRCUITRY YOU MUST FIRST, DETERMINE WHICH DEVICE YOU WILL BOOT
AND SECOND,
YOU MUST
SET THE SWITCHES ON THE M9312
TO THE_APPROPRIATE SETTINGS. YOU MAY NOW ATTEMPT TO BOOT

THE M9312 .

IF THE DEVICE DOES BOOT

THIS SHOULD BE

EVIDENT FROM THE CONSOLE TERMINAL, IF PRESENT, OR FROM THE RUN
LIGHT ON THE FRONT PANEL, WHICH SHOULD BE LIT. RIGHT? RIGHT!'

CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113

421
422 000000
423
424

22-JAN-82 09:18

.ENABLE
.ENABL
LLIST
.NLIST
.NLIST
.NLIST
.NLIST
-MCALL
-MCALL
<MCALL
«MCALL
-MCALL
LTITLE

425
426

427

428
435
436

437

438
439
440

PAGE &

1
SEQUENCE

ABS
AMA
ME
MC
MD

.SASTAT, .$SAVE, .SCATCH, .$CMTAG, .SETUP, . SEOP, . STYPE
STARS, . EQUATE, . SAPTHDR . . SAPTBLS . . SAPTYPE

.SACT11,.HEADER,
. SWRHI .REPORT, TYPNAM,PUSH,POP, . STRAP

.SREAD, .$TYPOCT
-EQUIV
CZM9BEO M9312/1144 KT24 UBI BOOT

;*DIGITAL EQUIPMENT CORP.

:*MAYNARD, MASS. 01754

:*PROGRAM BY DAN MILLEVILLE
o

.*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
s *PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981.
- %

441

000001
160000

$TN=1
$SWR=160000

.SBTTL
* &%

iw
[

i
i
i

442

.SBTTL

001100
104000
000004
000011
000012

;sHALT ON ERROR,

LOOP ON TEST,

OPERATIONAL SWITCH SETTINGS
SWITCH

USE

———

15
1%
13

INHWIBIT ERROR TYPOUT

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER s*+ 1100 s##
STACK= 1100
ERROR=EMT
SCOPE=10T

; *MISCELLANEOUS DEF INITIONS

HT=

;;CODE FOR HORIZONTAL TAS

LF=
CR=
CRLF=
PS=

12
15
200
grzrzg

::CODE FOR LINE FEE
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED
::PROCESSOR STATUS WORD

177570
177570

PIRQ=
DSWR=
DDISP=

177772
177570
177570

¥
INTERRUPT REQUEST REGISTER
i
SWITCH REGISTER
--nanounug DISPLAY REGISTER

000000
000001

RO=

::GE:ERAL REGISTER

12
13
1%
15
16
X7

: :GENERAL
: :GENERAL
: :GENERAL
:;GENERAL
: :GENERAL
: :GENERAL

000015
000200
177776
177776
177774
177772

000007

STKLMT= 1?7774

;:STACK LIMIT REGISTER

:*GENERAL PURPOSE REGISTER DEFINITIONS

R1=

R2=
R3=
R&=
RS=
R6=
R7=

(4]

: ;GENERAL REGISTER
REGISTER
REGISTER
REGISTER
REGISTER
REGISTER
REGISTER

CZM9BEQ M9312/1144 KT24 UBI BOO MACRO M1113

BASIC DEFINITIONS

22-JAN-82 09:18

1
K
PAGE 4-1

SEQUENCE

000006
000007

SP=
PC=

26
x7

::STACK POINTER
; PROGRAM COUNTER

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=
PR2=
PR3=
PR4=
PR5=
PRG=
PR7=

0
40
100
140
200
240
300
340

::PRIORITY
:;PRIORITY
:sPRIORITY
:sPRIORITY
:sPRIORITY
::PRIORITY
:sPRIORITY
;PRIORITY

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020

sSW15=
SWi4=
Swi3=
swi2=
SW11=
SW10=
Sw09=
SW08=
SWwo7=
sSWwoe=
SW05=
SWo4=

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20

100000
040000

BIT15=
BIT14=

000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400

;*PRIORITY LEVEL DEFINITIONS

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*"'SWITCH REGISTER'* SWITCH DEFINITIONS

sSwo3=
SWo2=
sSwo1=
SWoo=

10
4
2
1
SW9=5w09
SW8=sw08
SW7=SW07
SWé=$
SW5=Sw0
SWe=SW04
SW3=5w03
SW2=SW0
SW1=Sw0
SW0=5w00

:*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT13=
BIT12=
BIT11=

BIT10=
BIT09=
BIT08=
BIT07=
B8IT06=
BIT05=
BITO4=

BIT03=
BIT02=
BITO1=
BIT00=

1
4

2
10000
4800

2000
1000
400
200
100
40
20

10
4
2
1

BIT9=BIT09
BIT8=BIT08

0
1
%

4
5
6
7

CZM9BEQ M9312/1144 KT24 UBI BOO MACRO M1113

BASIC DEFINITIONS

000200
000100
000040
000020
000010
000004
000002
000001

:*BASIC ''CPU'"" TRAP VECTOR ADDRESSES

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
I0TVEC= 20
PWRVEC= 24
EMTVEC= 30

;s TIME OUT AND OTHER ERRORS
..RESERVED AND ILLEGAL INSTRUCTIONS
' BIT
..TRACE TRAP
: ;BREAKPOINT TRAP (BPT)
:: INPUT/0UTPUT TRAP (I0T) *#SCOPE«+
; ;POWER FAIL
..EHULATOR TRAP (EMT) #+ERROR#*+

000060
000064
000240

TKVEC= 60
TPVEC= 64
PIRQVEC=240

::TTY KEYBOARD VECTOR
:;TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

TRAPVEC=34

445

000001
000002
000004
000010
000020
000040
000100
000200
000400

001000
002000
0C0000

000200

000137
000204

461 000204
462

AR AR

APTER1
APTERZ2
APTER3
APTERSG
CRCERR
PFERR
NOROME
SEQERR
CONONE

=
1
=
2
=
&
= 10
= 20
= 40
=100
=200
=400

RN NN AN

AN RN NN

AR EE

ANI AR

RA NS

AR AR AR AR AR RN R AN AR AR AR AR

o
ot
;e

CONTWO=1000
DUPERR=2000
.=0
TRAP CATCHER
=0

DISPREG: UMD
001400
002204

SWREG:
.SBTTL

-SBTTL

888(2’}.2

AN AR RN AR AN

*LOCATI(N
9 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000000

000137

R R

PROGRAM EQUATES

:*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A *',+2,HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174

000000

000176

460

.SBTTL

000000

000174

‘TRAP'* TRAP

455
456
457
458

SEQUENCE

000004
000010
000014
000014
000014
000020
000024
000030

444

446
447
448
449
450
451
452
453
454

1
L
PAGE 4-2

BIT7=BIT07
BIT6=BIT06
BIT5=BITO5
BIT4=BIT04
BIT3=BIT03
BIT2=BIT02
BIT1=BITO1
BITO=BIT00

000034

443

22-JAN-82 09:18

;s SOFTWARE DISPLAY REGISTER

.WORD 0
;SOFTWARE SWITCH REGISTER
STARTING ADDRESS(ES)
JMP
@#START
;:JUMP TO STARTING ADDRESS OF PROGRAM
.=204

JMP
RSTART
ACT11 HOOKS
AN

A A AR RN R

:HOOKS REQUIRED BY ACT11

R A

AR A AR R AR R

AR N RN A AR R AR AR RO

SSVZC .

sSAVE PC

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

000046

8005(3);5

iE'ngAD

000052

000000

WORD

;:2)SET LOC.52 TO ZERO

s RESTORE PC

b d

-—

NN
L2 200000
noossNoOONSN—=O

177570
177570

e e e e

o
o

b et e
—

~
~
W

~
~

o
O

467 001

001100
000
000
000000
000000
000000

—d e

(=l=]

=lela) o (=lele) j=lelele]

S
oo
oW

463
464 001

000000
000000
000000

1730C0

22-JAN-82 09:18

$AUTOB
$INTAG

.BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
ROMERR
MESSAG:
FIRSTB:
73000
ROMF IN:
:
ERRCNT
CPUTYP:
(=lelel lole)]

CZMIBEQ M9312/1144 KT24~UBI BOO MACRO M1113
ACT11 HOOKS

DDISP

PAGE 4-3

SEQUENCE

CZMIBED M9312/1144 KT24 UBI BOO MACRO M1113

APT PAKAMETER BLOCK

475

22-JAN-82 09:18

.SBTTL

PAGE 5

SEQUENCE

APT PARAMETER BLOCK
d

Rttt

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

000024
000044

001124
000024
000200
000044
001124
001124

.$X=.
.=24

200
. =44

LRt

22223222222222;

LRt LTI

;,SAVE CURRENT LOCATION
:sSET POWER FAIL TO POINT TO START OF PROGRAM

::FOR APT START UP
s;POINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ;;POINT TO APT HEADER BLOCK
.=.8X
;;RESET LOCATION COUNTER

AR AR AR

001124
001124
001126
001130
001132
001134
001136

AR R RN

RN AR

AR AR RN

AR RN

AR AR AR

sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC
: INTERFACE SPEC.

000000
001140
000002
000002
000000
000052

$APTHD:
SHIBTS:
SMBADR:
$TSTM:
$PASTM:
SUNITM:

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

0
;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
;;ADDRESS OF APT MAILBOX (BITS 0-15)
2.
;:RUN TIM OF LONGEST TEST
2.
::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
O
: ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS)

CZMIBEO M9312/1144 KT24 UBI BOO MACRND M1113

APT MAILBOX-ETABLE

477

22-JAN-82 09:18

.SBTTL

B
PAGE 6

SEQUENCE

APT MAILBOX-ETABLE

'-:ttt.tttttt.t.....t"t"'tt"ttttttttttt't..'t"t'tttt'tttttttt'

001140

-EVEN

001140
001142
001144
001146
001150
001152
001154
001156

000000
000000
000000
000000
000000
000000
000000
000000

001160

000

001162

000000

001160

001161

001164

001166

000

000000

$MA]L :

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

SENV:

.BYTE

AENV

::ENVIRONMENT BYTE

$SSWREG:

.WORD

ASWREG

::APT SWITCH REGISTER

$CPUOP:

.WORD

ACPUOP

SETABLE :
SENVM:

SUSWR:
i

_BYTE

.WORD

AENVM

AUSWR

000
000

i
i
*
SMAMS1:
SMTYP1:

:-MESSAGE TYPE CODE
--FATAL ERROR NUMBER
::TEST NUMBER
::PASS COUNT
::DEVICE COUNT
::1/0 UNIT NUMBER
. -MESSAGE ADDRESS
::MESSAGE LENGTH

::APT ENVIRONMENT TABLE
::ENVIRONMENT MODE BITS

::USER SWITCHES

::CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05

001170
001171

: :APT MAILBOX

SMSGTY: .WORD
SFATAL: .WORD
STESTN: .WORD
SPASS:
.WORD
SDEVCT: .WORD
SUNIT:
.WORD
SMSGAD: .WORD
$MSGLG: .WORD

11/70=06.PD@=07,0=10

.BYTE
.BYTE

AMAMS1
AMTYP1

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
::MIGH ADDRESS.M.S. BYTE
::MEM. TYPE,BLK#

MEM.TYPE BYTE

=--

(MIGH BYTE)

(X 3

00 NSEC MOS=003

001172

000000

$MADR1: .WORD

AMADRT

;:HIGH ADDRESS,BLKA

001174

000

$MAMS?2: .BYTE

msg

;HIGH

MEM.LAST

.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'' ABOVE

SS.M.S.

BYTE

001175

000

SMTYP2: .BYTE

AMTYP?

001201
001202
001554

000000

SMADR3: .WORD

001205
001206
001210

000
000

000
000000
000000

SMTYP3: .BYTE
SMAMS4: .BYTE

SMTYP4: .BYTE
SMADRSG: .WORD
SVECT1: .WORD

AMTYP ::m.mg.auus
::MEM.LAST ADDRESS.BLKA3
AMAMSL ::HIGH ADDRESS.M.S.BYTE

AMTYP4
AMADRG
AVECT1

::MEM.TYPE
: -MEM.LAST
::1
T

001214
001216
001220

000000
000000
000000

$SBASE:
SDEVM:
$CDW1:

.WORD
.WORD
.WORD

ABASE
ADEVM
ACDW!

::
ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP
;;:CONTROLLER
DESCRIPTION WORDA1

000000

$ODWO:

.WORD

000000
000000
000000
000000
000000
000000
000000
000000

$ODW2:
$DDW3:
$DDW4:
$DDWS:
$DDW6:
$ODW7:
$DDW8:
$DDW9:

001212

001222
001224

000000

oo12§8 000000

001230
001232
001234
001236
001240
001242
001244
001246

SVECT2: .WORD

$CDW2:

$DDW1:

.WORD

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

::MEM.TYPE

,BLKA2

AMADR3

AVECT2

:ggzs

ADDW1

ADWi
ADDW3
ADDW&
ADDWS
AD
ADDW7
Aoog
ADD

BLKA#%
VECTOR#1,BUS PRIORITYA1

::INTERRUPT

VECTOR#2BUS PRIORITY#2

;; CONT

s;nxmou WORDA2

::oevgc

%E'

SCRIPTOR WORDA0

::ggvg ggsmrm WORDA 1

:
:DEVI
;:DEVICE
- :DEVICE
::ggvxce
::DEVICE
::;DEVICE
::DEVICE
::DEVICE

sca{nua WORD#
DESCRIPTOR WORDA
mcn}n
WORDA4
SCRIPTOR
WORDAS
DESCRIPTOR
DESCRIPTOR WORDA
DESCRIPTOR WORD#
DESCRIPTOR WORD

CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113

APT MAILBOX~ETABLE

001250
001252
001254
001256
001260
88}%2%
478

000000
000000
000000
000000
000000
000000
000007

22-JAN-82 09:18

$DDW10:
$DDW11:
$DDW12:
$ODW13:
$DDW14:
gg?g&g:

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

ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW15

MFPT=000007

PAGE 6-1

:;DEVICE
;;DEVICE
;:;DEVICE
::DEVICE
;:DEVICE
;;DEVICE

SEQUENCE
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR

WORDA#10
WORDA11
WORDA12
WORD#13
WORDA14
WORDA15

| 4 CZM9BED M9312/1%4+ XT24 UBI BOO MACRO M1113
APT MAILBOX~ETABLE

479
480 001400

001400

012706

001100

001404

012737

007114

001412
001420
001424

012737 000340
005037 001146
013737 002266

001432
001436
001444
001452
001460
001466

013746 000004
012737 001472
012737 177570
012737 177570
022777 177777
001012

001470

000403

001472
001476

001500
001506

012716
000002

012737
012737

001514

012637

001524
001532
88}%23

132737
001403
012737

001520

005037

START:
.SBTTL
000034

002260

000004

001146

001161

001162

001104

481

001542

005227

177777

001051
022737
001445
104401

001626

001564

005737

000042

123727

001160

000001

001104

000176

000001

001100

001570

001012

001600
001602
001610
001612
001614

001406
023727
001005
104405
000403

001624

000422

482 001672
483 001676

013745
012737
005037
000007

001572

83%252

484 001704

485 001710

486 001712
487 001716

488 001724

112737

110037
122737

001012

65%:
668:

675

001122
000001

#340,a#TRAPVEC+2;
[ EVEL 7
$PASS
::CLEAR THE PASS COUNT
SENDCT,SEOPCT
:-SETUP END-OF-PROGRAM COUNTER

MOV
MOV
MOV
MOV
CMP
BNE

@#ERRVEC,-(SP)
#64S ,Q#ERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
668

;;SAVE ERROR VECTOR
::SET UP ERROR VECTOR
::SETUP FOR A HARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
::BRANCH IF NO TIMEOUT TRAP OCCURRED

658

::BRANCH IF NO TIMEOUT

MOV
RTI

#65$, (SP)

::AND

THE HARDWARE SWR IS NOT = =1

*:SET UP FOR TRAP RETURN

MOV
MOV

#SWREG, SWR
::POINT TO SOFTWARE SWR
#DISPREG,DISPLAY

CLR

$PASS

MO'

BITB
BEQ
MOV

(SP)+,9#ERRVEC

;;RESTORE ERROR VECTOR

WAPTSIZE,SENVM
678
#SSWREG, SWR

::TEST USER SIZE UNDER APT
::YES,USE NON-APT SWITCH
2sNO,USE APT SWITCH REGISTER

::CLEAR PASS COUNT

000042

000010
001122

INC

-1

w62

CMPB

SENV.#1

MOVEB

#1,SAUTOB

::SET AUTO-MODE INDICATOR

68$

--csr OVER THE ASCIZ

MOV
MOV
CLR
MFPT

10,~(SP)
#108.10
CPUTYP

s%+ SAVE VECTOR ON STACK
ixx SET ERROR VECTOR
*CLEAR CPU TYPE LOCATION
ies WHAT CPU IS IT

::FIRST TIME?

BNE
683
:;BRANCH IF NO
cMP
#SENDAD
. a#42
::ACT-11?
BEQ
68$
::BRANCH IF YES
TYPE
698
::TYPE ASCIZ STRING
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER

BNE

;?;:

3639’:

000010
001744
001122

#STRAP ,@#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS

MOV
CLR
MOV

.SBTTL
TYPE PROGRAM NAME
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS

001546
001550
001556
001560

002312

INITIALIZE THE COMMON TAGS
MoV
#STACK,SP
s:SETUP THE STACK POINTER

;2:SIZE FOR A QMRPHME SWITCH REGISTER. IF NOT FOUND OR IT IS
::EQUAL TO A “=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.

648:

000200

SEQUENCE

.=1400

MOV

000004
001104
001106
177416

001104
001106

PAGE 7

;:INITIALIZE A FEW VECTORS

000036

001500

000176
000174

22-JAN-82 09:18

BEQ
cMP
BNE
GTSWR
BR
LASCIZ

MOVB
CMP8

BNE

;;ARE WE RUNNING UNDER XXDP/ACT?

708

::BRANCH IF YES

70$
SWR, #SWREG
718

::BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?
$:BRANCH IF NO
::GET SOFT=SWR SETTINGS

718

::ARE WE RUNNING UNDER APT?

RO.CPUTYP
#1.CPUTYP

12§

:SAVE CPU TYPE IN ‘CPUTYP®
tar 1174477

ixx NO USE M9312 ROM NUMBERS

:DPMO01
:DPM0O1
*DPMO01

CIMIBEO
KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE ;
1
| GET VALUEM9312/1144
FOR SOF TWARE SWITCH REGISTER

|
F

489 001726

490 001734
491 001742
492 001744
493 001750
494 001752

495 001760
496 001762

497 001770
498 001776

012737

013106

012737
000403
012716
000002
122737

000003

012737
012637

007320
000010

001006
012737

007306

001776

013116

499 002002

012700

010502

501 002010

020027

010566

503 002016
504 002022

005037
005037

001116
004342

506 002032
507 002036

013746
012737

509 002052
510 002054

001414
012700

512 002062
513 002066
514 002070

020027
001374
012737

516 002076

000402

518 002104

012637

521 002122

132777

500 002006

502 002014

505 002026

508 002044

511 002060

515

005020

002774

004737
122737

005720

517 002100 062706

519 002110 012700
520 002114 013737
522 002130
523 002132

001411
022777

525 002142

050037

524 002120 001011

013104

108:
001122

011676

000004
002100
177777

000004

165000

001116

000004

28:

000004

000002
001114

003644

000200

001514

177776

001504

530 002164

062737

000200

003644

532 002174
533 002202

022737
001347

174000

003644

535 002210

001003

100

013072

52, 002204 005737 001116

536 002212

004737

002544

004737

002632

537 002216

000411

539 002224
540 002230
541 002232

005737
001004
004737

538 002220

542 002236

004737

001146

003146
012174

CMP

RO, #OC TBUF

CLR
CLR

ROMF IN
TIMES

MOV
MOV

ERRVEC,-(R6)
#23 ,ERRVEC

:SAVE CONTENTS OF LOCATION 4
:+SET UP FOR POSSIBLE TRAP

BEQ
MOV

3s
#165000,R0

:THEN CPU ROM NOT PLUGGED IN
:GET FIRST ADDRESS OF ROM SPACE

CMP
BNE
MOV

RO, 4166000
1$
#1,ROMF IN

:HAVE WE CHECKED ALL ADDRESSES
:1F NO THEN CONTINUE LOOPING
:IF NO TRAPS OR LOW BYTE OF FIRST

:NO TRAP JUST RESTORE ERRUEL

ADD

#BROM,ROMPTR
(SP)+.10

(RO)+

PC,CLEAR

#-1.165000
(RO) +

ixe NO USE M9312 ROM NUMBERS
:we YES USE 11/24 UBI ROM NUMS

:#+ UBI 11/24 ROM NUMBERS
*RESTORE ERROR VECTOR

-DPMOO1
-DPMOO1
*DPMOO1

:CLR SIZING BUFFERS

HAVE WE cn.mso THE WHOLE

‘BUFFER.NO,GO BACK

SINITIALIZE ROM FOUND INDICATORS
:INITIALIZE ENTRY COUNTER FOR PUTMES SUB.
;+CLEAR SOME MORE LOCATIONS
:IF CONTENTS = -1, OR TRAP

:IF THIS INSTRUCTION TRAPS CPU ROM NOT PLUGGED IN

:ADDRESS NOT EQUAL -1 ASSUME ROM PRESENT

¥ R6

:+IF TRAP CLEAN OFF PC, PSW

nsra TESTAD

:INITIALIZE ROM FOUND INDICATOR
:GET FIRST BOOT

BEQ
cMP

o-z ATESTAD

:DO NOT SET ROM FOUND INDICATOR
SUNLEs c TENTS OF ADDRESS

8IS

zg.comn

;. ccunmnou ROM FOUND INDICATOR

5$:

BITB

MOV
MOV

BNE

(k&)o.mvec

o oo afESTAD

:RESTORE

ERRVEC

:IF Lou BYTE HAS BIT 7 SET

:s
f ~2.(CONTINUATION ROM)

78:

8IS
B8R
BIS

JROMF IN
‘s
RO, ROMF IN

4$:

ADD

#260 ,

CMP
BNE

#174000,TESTAD
13

:HAVE cuecxfo ALL THE ROMS
:IF NO CONTINUE CHECKING

<IF YES GO TO ROM TEST

BIS

ROL

RSTART: TST
BNE

JSR

68:

;DPMO01

#BUF 1RO

CLR

MOV

001116

#3,.CPUTYP

DEVF IN

TESTAD

ROMF IN

PC ,NOROMS

.o m FOUND INDICATOR
rouo INDICATOR

sv »m

ROM FOUND INDICATOR

ADDRESS TO NEXT ROM

:UPDATE ROM FOUND INDICATOR

:ARE THERE ANY aa'§ AVAILABLE

:IF NO GO TEST NO ROMS

B8R

SEOP

:G0 TO END OF PASS

ST
BNE
JSR

$PASS
$EOP
PC,PROMP

:ARE WE ON 1ST PASS
:IF NO SKIP PROCESS OF PARAMETERS
;G0 PROCESS ROM PARAMETERS

JSR

PC,CHECKS

PC.SEQTST

;«« YES USE UBI ROM NUMBERS

:«+ UB] ROM NUMBERS
" BR IF NO TRAP
SET UP RETURN VECTOR
*RETURN
Jev 1172477

MOV

MOV
MOV

38:

013070

#AROM,ROMPTR
12%
#158,(SP)

158
#MESS24 MESSPT

CMPB

18:

166000

#MESS4L4L ,MESSPT

BNE
MOV

JSR

165000

000001

MOV
BR
MOV
RTI
CMPB

BLT

001116

531 002172

158:

8s:

050037
000404
050037
050037

12%:

013104

007176

526 002146
527 002152
528 002154
529 002160

MOV

007176

SEQUENCE

;60 CALCULATE CHECKSUMS

;G0 CHECK SEQUENCE OF DEVICE CODES

CZMOBEO M9312/1144 KT24 UBI BOO MACRO M1113
‘ ND OF PASS ROUTINE

543

22-JAN-82 09:18

SBTTL
A

PAGE 8

END OF PASS ROUTINE
R

SEQUENCE

: *INCREMENT THE PASS NUMBER ($PASS)
:+TYPE "END PASS''

;*IF

002242
002242
002244
002250
002256

THERES A MONITOR GO TO IT

:«IF THERE ISN'T JUMP TO RSTART
:+IF IT 1S CESIRED TO HAVE A BELL INDICATE THE ‘END OF PASS'’ LOCATION
:*SENDMG CAN BE CHANGED TO 7.

000240

005237
042737
005327

000001
003017
012737
000001
002260
104401

104401
013700
001405
000005
004710
000240
000240
000240

002326
002331

2 2222222222111

000137
002204
377
015

$EOP:
001146
100000

001146

002331

002326
000042

INC
BIC

DEC
$EOPCT: .WORD
BGT
MoV
SENDCT: LWORD
SEOPCT
$GET42:
SENDAD :

$DOAGN:

377
012

000
105

NOP

TYPE
TYPE

(PC
1
$DOAGN
(PC)+,a(PC)+
1
. SENDMG
. SENULL

MOV
BEQ

42 RO
$DOAGN

JSR
NOP
NOP
NOP

PC, (RO

RESET

JMP
. WORD
SENULL: .BYTE
SENDMG:

:
SRTNAD

$PASS
0100000 $PASS

: INCREMENT THE PASS NUMBER

..E%T ALLOW A NEG. NUMBER
s YES
s ;RESTORE COUNTER

::TYPE 'END PASS'’
;sTYPE A NULL CHARACTER
;;GET MONITOR ADDRESS
; ;BRANCH IF NO MONITOR
;;CLEAR THE WORLD
::G0 TO MONITOR
s SAVE ROOM

;:FOR

J:ACTN

a(P(C)+
RSTARY

2 ;RETURN

201 abethmm waiisNULL CHARACTER STRING

Egi?gflf&{g:}‘l?/”‘.é KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE 9

545

229

248 002344
549 002444

000000
000000

.SBTTL

PATCH AREA

.WORD
.WoRD

0,0,0,0.0,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0.0,0,0,0.0,0,0,0,0.0.,0.0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,0.0,0.0,0.,0.0

:THIS AREA RESERVED FOR PERMANENT PATCHES.

PATCHS:

SEQUEMCE

;DPMO01

TEST

22-JAN-82 09:18
.SBTTL

;THIS ROU TINE

PAGE 10

NO ROMS TEST

IS CALLED ONLY

SEQUENCE

IF NO ROMS WERE

FOUND

;DURING § IZING. IT DOES A READ OF ALL BOOTSTRAP ROM
;ADDRESSE S AND COMPARES THE CONTENTS TO A KNOWN
JEXPECTED VALUE.
002544

007350

NOROMS:

8 002554
559 002560

002630

1$%:

7 002550

566 002610
567 002612
568 002616
569 002620
570 002624
571 002626
572
573 002630

172000

#172000,R3

CMPB

(R3) ,Ré

MOV
BEQ

000100
004344
000002
173024

001770
022703
003353

MOV

001110

2%:

BIS
JSR
ADD

NODATA,

Ré&

OF EXPECTED VALUE
VED VALUE EQUAL EXPECTED
‘{&E TESTING

%33) R4

#NOR,OME
ROMERR
PC,ERRHAN

#2.R3

Slfsoza.ns

ERROR INDICATER
XT EVEN ADDRESS
TOR_ADDRESS?
F YES
TOR _ADDRESS?
F YES

173224

#173224 ,R3

174000
RTS

#174000,R3
18
PC

JHAVE ALL ADDRESSES BEEN TESTED
;IF NO GO TEST THIS ADDRESS

.WORD

377

;*A HOLE LOOKS LIKE Xxxx377

000207

000377

,MNORM

TYPE
MOV

St ) e (Y

M9312/1144 KT24 UBI BOO MACRO M1113

NODATA:

CZM9BEQ M9312/1144 KT24 UBI BOO MACRO M1113

| CHECKSUM ROMS MODULE

574

.SBTTL

g;g

}

PAGE 11

SEQUENCE

CHECKSUM ROMS MODULE

sTHIS ROUTINE DOES A CHECKSUM OF ALL ROMS PRESENT

577 002632

578
579
580
581

22-JAN-82 09:18

012737

000001

003046

002640
002646
002650
002656

033737
001424
012737
012737

003046

001116

165775
000000

003144
003142

583 002672

004737

003050

582 002664

584 002676

585 002702

012737

013703

020304

165000

BEQ
BIS
JSR

012737

173024

595 002760

596 002762

033737

001412

173175
173176
003046

003144

003046

001405
052737
004737

000020
004344

603 003014

062737

000200

605 003030

062702

000200

599 002772
600 002774
601 003002

602 003006
604 003022

062737 000200
062737

606 003034
607 003042

022737
001341

610 003046

000000

283 003044

000207

001110

003140

003050

011203
020304

CMP

173000

004737

597 002766
598 002770

160 CALCULATE CHECKSUM

165776.R3

590 002726

594 002752

PC ;CAL SOM

MOV

JSR

003142

001116

13
#CRCERR ,ROMERR
PC , ERRHAN

*GET EXPECTED CHECKSUM

: COMPARE CHECKSUMS

:IF CHECKSUMS COMPARE CONTINUE
:IF ERROR SET INDICATER
*REPORT ERROR

MOV

#173000,FIRSTA

:SET UP FIRST ADDRESS TO BE SUMMED

28:

MOV
MOV
ROL

#173175,LASTAD
#173176.R2
ROMCNT

:SET UP LAST ADDRESS TO BE SUMMED
:GET ADDRESS OF GOOD DATA
:UPDATE ROM COUNTER

BEQ

:1F NO,

(R2) R
R3.Ré

:GET EXPECTED CHECKSUM
:COMPARE CHECKSUMS

MOV

BIT

MOV
CMP
001110

003140

R3,R4

:SET UP FIRST ADDRESS TO BE SUMMED

18:

JSR

003142

;INITIALIZE RON COUNTER

:1S DIAGNOSTIC ROM PRESENT
*1F NO GO CHECKSUM BOOT ROMS
:SET UP LAST ADDRESS TO BE SUMMED
*SET UP EXCEPTION ADDRESS

165776

000020
004344

012737
012702
006137

003140

#1,ROMCNT

ROMCNT ,ROMFIN
1%
#165775,LASTAD
#0 §choo

#165000,F IRSTA

001405
052737
004737

591 002734
592 002742
593 002746

8IT
BEQ
MOV
MOV

MOV

586 002704
587 002706
588 002714

589 002720 012737

CHECKS: MOV

3$:

BEQ
BIS
JSR

"7 o;l..excm

ROMCNT,ROMFIN

PC mgun

33
#CRCERR ,ROMERR
PC, ERRHAN

ADD

csbo.nnsu

ADD

:IF CHECKSUMS EQUAL CONTINUE
:IF ERROR SET INDICATER
*REPORT ERROR

:UPDATE FIRST ADDRESS

#200.R2

:UPDATE ADDRESS OF GOOD DATA

ADD

#200,LASTAD

174000

003140

CMP
BNE

#174000,F IRSTA
2

ROMCNT: 0

GO UPDATE TO NEXT ROM

:1F YES GO CALCULATE CHECKSUM

:UPDATE EXCEPTION ADDRESS

003144

RTS

:IS ROM PRESENT

#200.EXCADD

000200

ADD

:SET UP EXCEPTION ADDRESS

:UPDATE LAST ADDRESS

*HAVE ALL ROMS BEEN CHECKED
:IF NO GO CHECKSUM NEXT ONE
:1F YES RETURN

CZMIBEO M9312/1144 KT24 UBI BOO MACRO M1113
CHECKSUMS MODULE

611
612
613
614
615
616 003050
617 003052
618 003056

«SBTTL

SEQUENCE

CALCULATE CHECKSUMS MODULE

:THIS ROUTINE CALCULATES THE CRC16 CHECKSUM OF THE CONTENTS
;OF EVERY LOCATION EXCEPT THE EXCEPTION ADDRESS AND LAST ADDRESS
:OF EVERY ROM
003140

619 003060
620 003062
621 003066
622 003070
623 003072
624 003074
625 003076

000020

CALSUM: MOV
MOV

LOOP:
CRCLOP:

120001
120001

CLR

MOV
MOV

CLC
ROR
ROR
Bv(C
MoV
BIC
8IC

18:

003142
003144

637 003136
638
639 003140
640 003142
641 003144

J
2
PAGE 12

2s:

012602
000207
000000
000000
000000

R2,=(SP)

FIRSTA,RO
R4

(RO)+,RS

#16. ,R2

RS
1$
#120001,R1

CRCLOP
RO.EXCADD

2%
+
(RO)
RO,LASTAD
LOOP
(SP)+,R2

FIRSTA: 0
EXCADD: 0
LASTAD: 0

:SAVE R2
JGET STARTING ADDRESS
;INITIALIZE CRC WORD
;GET A BYTE
;SET BYTE COUNT

sTHE NEXT NINE LINES

;DO THE MATH CALCULATIONS

gb?;SS AN EXCEPTION ADDRESS

§xi,

CALCULATE

22-JAN-82 09:18

IP ADDRESS
LOCATIONS BEEN SUMMED

CZMIBEQ M9312/1144 KT24 UBI BOO MACRO M1113

PROCESS ROM PARAMETERS MODULE

642
643
644

gzg
001161

652 003160
653 003164
654 003166
655 003172
656 003200

004737
010576
004737
032737
001403

003760

659 003210
660 003214
661 003216

004737
011176
005237

100424
004737

PROMP:

003426

003650
000040

001110

001407
005714

671 003252

052737

670 003250 001373

672 003260

004737

674 003270
675 003272
676 003274
677 003300
678 003304
679 003310
680 003312

005713
001362
012703
012704
062704
021314
001407

682 003316

001372

681 003314

683 003320

003760
001112

062703

000001

004344

28:
3s:

68:

000002

062703 000002
022703 001254
001360
004737 003650
013704 001214
013703 010562
020403

001405

695 003372

004737

052737

013704
013703
020403

PC.PPFVAR
#PFERR,ROMERR
108

;60 GET PSEUDO POWER-FAIL VECTOR ADDRESS
:WAS THERE AN ERR
:1F NO GO FORMAT MESSAGE

JSR
MES2

PC.PUTMES

:FORMAT PSEUDO POWER-FAIL VECTOR
*ADDRESS MESSAGE

JSR
BR

B8R
JSR
MOV
MOV
MOV
CMP

JSR

ADD

004344

000004

004344

001220
010564

0071110

8s:

MESSAG

:1F YES GO REPORT MESSAGE
:SET MESSAGE INDICATOR

98
PC,DEVCOD
#BUF 142 ,R3
#SDDWO, R
(R4) +,R2
R2, (R$)

*GO TO EXIT
:CALL GET DEVICE CODE MODULE
:GET BOARD DEVICE CODES
:GET ETABLE DEVICE CODE PARAMETERS
:GET ETABLE DEVICE CODE
;DO THE TWO DEVICE CODES COMPARE

:1F WE HAVEN'T CHECK NEXT ETABLE ENTRY

PC, ERRHAN

:DOES NOT

48
(R4)

#APTER1,ROMERR

#4 R3

:IF WE MAVE THEN DEVICE CODE ON BOARD

EXIST IN ETABLE

:UPDATE TO NEXT ADDRESS

BNE

*DEVICE CODES,

JSR

PC, ERRHAN

*NOT ON BOARD

ADD
CMP
BNE
JSR
MOV
MOV
CMP

#2.R3
#$DDV12,R3
5%

: INCREMENT TO NEXT $ODW LOCATION
:HAVE WE CHECKED ALL 12 POSITIONS
:1F NOT, CONTINUE

BIS

#APTER3,ROMERR

MOV
MOV
CMP

$CHW1 R4
BUF2+2,R3
R4 ,R3

JSR

(R&)

#APTER2 ,ROMERR

PC,PPFVAR
$BASE , R4
ng R3
4,RS

:DPMOOT

:IF YES GET NEXT BOARD DEVICE CODE
:1F NO WAVE WE CHECKED THE WHOLE ETABLE

:1F CONTENTS EQUALS ZERO WE'RE DONE
:1F CONTENTS NO EQUAL ZERO CONTINUE
:GET BOARD DEVICE CODES
:GET ETABLE DEVICE CODES
:GET BOARD DEVICE CODE
;D0 THE TWO DEVICE CODES COMPARE
:1F YES GET NEXT ETABLE DEVICE CODE

BEQ

001110

PC ., ERRHAN
98

*FORMAT PARAMETER MESSAGE

(rR$)
3s
#$DDWO,R3
#BUF1-2,Ré4
¥4 R4
(RS) . (R&)
73

BIS

78:

PC.PUTMES

TST
BNE
MOV
MOV
ADD
CMP
BEQ
TST

686 003332
687 003336
688 003342
689 003344
690 003350
691 0033564
692 003360
693 003362

JSR
BIT
BEQ

BIS

001224
010500
000004

:1F BIT 1S CLEAR SIZE

“1F BIT IS SET DON'T SIZE.
*CALL DEVICE CODE MODULE

BNE

001110

SENVM

1$
PC.,DEVCOD

BEQ
ST

48:

004737

696 003376
697 003402
698 003406

18:

005714

052737

TSTB

INC

000004

2315 003326

694 003364

108:

000500
004737 003426
012703 010504
012704 001224
012402
020213

668 003244
669 003246

673 003264

SEQUENCE

BM]
JSR

JSR
MES1

657 003202 004737 004344
658 003206 000506

662 003222
663 003224
664 003230
665 003234
666 003240
667 003242

IAND COMPARE THEM TO THE VALUES SUPPLIED IN THE ETABLE.
105737

650 003152
651 003154

PAGE 13

.SBTTL
PROCESS ROM PARAMETERS MODULE
;THIS ROUTINE DETERMINES IF SIZING IS TO BE DONE.
IF IT IS THE
*MODULE WILL GET THE PARAMETERS FROM THE DEVCOD AND PPFVAR
:MODULES AND ASSEMBLE MESSAGES TO BE OUTPUT.
IF SIZING IS
INOT TO BE DONE THIS MODULE WILL TAKE THE PARAMETERS RECEIVED

645
646

649 003146

22-JAN-82 09:18

:DPMOO1

‘IF NO '“B'Ee" CHECKED ALL THE BOARD

IF NO CONTINUE

:IF YES ETABLE DEVICE CODE NOT

:GO GET
POWER-FAIL VECTOR ADDRESS
:GET ETABLE
PPFVA
:GET BOARD PPFVA
‘DO THE TWO PARAMETERS COMPARE

*1F YES CONTINUE

PC, ERRHAN

:GO TO ERROR ROUT INE

:SET APT ERROR INDICATOR

*GET ETABLE DATA
:GET BOARD DATA
‘DO THE TWO PARAMETER COMPARE

:DPMOO1

CZMIBEQ M9312/1144 KT24 UBI BOO MACRO M1113

PROCESS ROM PARAMETERS MODULE

699 003410

700 003412
701 003420
702 003424

001405

052737
004737
000207

000010
004344

22-JAN-82 09:18

BEQ

001110
9%:

BIS
JSR
RTS

PAGE 13-1

#APTERG ,ROMERR
PC,ERRHAN
PC

SEQUENCE

:1F YES THEN DONE
;SET _APT ERROR INDICATOR
;GO TO ERROR ROUTINE

(ZM9IBEOQ M9312/1144 KT24 UBI BOO MACRO M1113

GET DEVICE

CODES MODULE

M2
PAGE 14

22-JAN-82 09:18

SEQUENCE

703
704
705

.SBTTL
GET DEVICE CODES MODULE
;THIS SUBROUTINE LOCATES EACH DEVICE CODE AND PASSES IT AND THE
;ADDRESS IN WHICH IT WAS FpUND gACK TO THE CALLING ROUTINE.

708
709
710
711
712
713

:
:
2
N
:

716

;}8

s +CONTINUATION ROM DATA IS STORED IN 'BUF1'' AS FOLLOWS:

;89

sDATA IS STORED IN BUFFER

;}g

BUF1:

DEVICE CODE

ity
e
e

;gg

.
CONTINUATION CHIP IDENTIFIER (ALWAYS A +1)

DEVICE CODE (PREVIOUS ROM'S DEVICE CODE,OR -1 IF ILLEGAL ROM)

:’

012700

012701
030137

001411

737 003462

005037

739 003474

006101

sIF DIAGNOSTIC ROM PRESENT IT WILL BE THE FIRST DEVICE CODE.
:THERE 1S ROOM FOR UP TO 12 DEVICE CODES IN T
DEVCOD: MOV
#BUF1,R0

010502

000001
001116

734 003444 012737 165774
735 003452 013720 003644
736 003456 017720 000162

003644

738 003466 013737 001114

003644

003646

030137

013072

004737

011714

741 003502

001007

743 003510

062737

745 003520
746 003522
747 003526
748 003530
749 003534
750 003540
751 003546
752 003550
753 003554
754 003562

000444
005737 003646
001010
013720 003644
017720 000104
062737 000002
000427
013702 003644
067737 000064
013703 003644

742 003504

744 003516

755 003566
756 003574

006101

042737
042702

757 003600

042703

759 003606

005703

758 003604

733 003442

740 003476

ADDRESS OF FIRST DEVICE CODE
DEVICE CODE
ADDRESS OF SECOND DEVICE CODE
DEVICE CODE
-

731 003432
732 003436

IN THIS FORMAT:

ADDRESS OF NTH DEVICE CODE

;

723

728
729
730 003426

'BUF1"'

160203

000200

000001
170177

MOV
BIT

#1.R1
R1.ROMF IN

MOV
MOV
MOV

#165774,TESTAD
TESTAD,(RO)+
STESTAD,(RO)+

:GET ADDRESS OF DIAG. ROM DEVICE CODE.
:STORE ADDRESS OF DEVICE CODE
:STORE DEVICE CODE

FIRSTB,TESTAD

:GET ADDRESS OF FIRST BOOT ROM

BEQ

CLR

DAFLAG

ROL

BNE

003644

ADD

#200,

003644

BR
TST
BNE
MOV
MOV
ADD
BR
MOV
ADD
MOV

9s
DAFLAG
58
TESTAD,(RO)+
STESTAD, (RO)+
g.resm

BIC

#170177.R

18:

MOV

38:

BIT

JSR

ROL

48:

003644

58:

003644

170177
68:

R1.DEVFIN

PC,CON1

TESTAD

TESTAD,R2
@TESTAD,TESTAD
rssm R3

;INITIALIZE ROM POINTER
;1S DIAGNOSTIC ROM PRESENT

:1F NO GO TEST BOOT ROMS

*CLR DATA TYPE FLAG

*UPDATE POINTER TO NEXT ROM
:+1S DEVICE ROM

:IF YES GO GET P

TERS

“+CHECK FOR CONTINUATION CHIP

*IF NO WA'Y‘; TEST ADDRESS

*UPDATE POINTER TO NEXT ROM

G0 SEE IF ALL ROM CHECKED
*IF DATAF
THEN DATA IS DEVICE CODE
:IF DATAFLAG=1 THE DATA IS OFFSET TO NEXT
:STORE
ADDRESS OF DEVICE CODE
:ST
o;vxct CODE
;UPDATE TEST ADDRESS
*GET OVER ;u: CODE
:SAVE OLD TEST ADDRESS
:UPDATE TO NEW TEST ADDRESS
:GET THE NEW ADDRESS

BIC
BIC

% r;;m
#120177.R

*MAKE SURE Ames; ‘s EVEN
*+SAVE ONLY BITS 7.8.,9.10.11

suB

a;.ns

:CALCgLAIE DISTANCE BETWEEN

TST

*+IN R3 ALSO
‘IS RS

EQUAL TO 0

:DPMOO1

ADD

CZMIBEO M9312/1144 KT24 UBI BOO MACRO M1113

GET DEVICE CODES MODULE

760 003610
761 003612
762 003616
763 003620
764 003624
765 003626
766 003632
767 003640
;gg 003642

001406
162703
006101
004737
000770
005137
023727
002716
000207

770 003644
771 003646

000000
000000

000200

011742
003646
003644

174000

8%:
9%:

22-JAN-82 09:18

BEQ
SuB
ROL
JSR
BR
COM
CMP
BLT
RTS

TESTAD: 0
DAFLAG: 0

N 2
PAGE 14-1

8%
#200,R3
R1
PC,CON2
6$
DAFLAG
TESTAD,#174000
3%
PC

SEQUENCE

:1F YES THEN DONE
:1F NO THEN MOVE POINTER
;ONE BIT FOR EVERY 200
;*+CHECK FOR CONTINUATION CHIP
:CHANGE DATA FLAG TO RIGHT DATA TYPE
;HAVE WE CHECKED ALL THE ROM
+1F NO CONTINUE
:IF YES RETURN

|
i

CZMIBEQ M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN-82 09:18
GET PSEUDO POWER-FAIL VECTOR ADDRESS ROUTINE

772
773
774

PAGE 15

SEQUENCE

.SBTTL
GET PSEUDO POWER-FAIL VECTOR ADDRESS ROUTINE
:THIS SUBROUTINE TESTS LOCATIONS 173024 AND 173224 TO DETERMINE
;WHICH VECTOR WILL BE USED IF POWER-FAIL OPTION ENABLED ON THE

775
776

;BOARD.
THE OPTION MUST BE ENABLED AND AT LEAST ONE ADDRESS
;SWITCH MUST BE "'ON"" OR AN ERROR WILL BE DETECTED.

;;g

:THE DATA WILL BE RETURNED IN "BUF2'"

779

;g?

782 003650
783 003656
784 003660
785 003666

786 003672

787 003700

022737
001414
012737
004737

173000

173024

003710
012006

013064

013737

173024

010564

173000

173224

003750
012020

013064

(12737

788 003706
789 003710
790 003716
791 003720
79 0037§6

000423
022737
001414
012737
004737

794
795
796
797

013737
000403
052737
000207

793

003732

003740
003746
003750
003756

012737

173024

010562

1732¢4

010562

000040

001110

173224

BUF2:

PPFVAR: CMP
BEQ
MOV
JSR

28%:
38:

CONTENTS OF VECTOR ADDRESS

#173000,173024
18
#1$ _RETURN
PC HOLCK1

;- TEST IF LOCATION 173024 SELECTED
sIF NOT THEN GO TEST LOCATION 173224
s+SET UP AN ALTERNATE RETURN
s+CHECK FOR A HOLE

173024,BUF2+2

;STORE CONTENTS OF LOCATION 173024

#173024 ,BUF2

B8R
cMP
BEQ

3s
#173000,173224
2%

sGO_TO RETURN
;-TEST IF LOCATION 173224 SELECTED
:IF NOT THEN SET ERROR INDICATOR

MoV

#173224 ,BUF2

sIF IT IS THEN STORE ADDRESS

MOV
JSR

010564

PSEUDO POWER-FAIL VECTOR ADDRESS

MoV

MOV

18:

IN THE FORMAT.

MOV
B8R
BIS
RTS

#2$ ,RETURN
PC HOLCK?2

173224 ,BUF2+2
33
#PFERR ,ROMERR
PC

sIF IT IS THEN STORE ADDRESS

s+SET UP AN ALTERNATE RETURN
s+CHECK FOR A HOLE
;STORE CONTENTS OF VECTOR
:GET OVER ERROR
;SET ERROR INDICATOR

CZMIBEO M9312/1144 K124 UBI BOO MACRO M1113

PUT MESSAGE

IN BUFFER ROUTINE

798

.SBTTL

80]
802
803
804

22-JAN-82 09:18

PAGE 16

3
SEQUENCE

PUT MESSAGE IN BUFFER ROUTINE

;THIS SUBROUTINE FORMATS THE PARAMETER AND POWER-FAIL MESSAGES.
003760
003764
003770
003772

017604
005737
001125
005237

808 004010
809 004014
810 004016

105737
001412
122737

805 003776 012703
806 004002 022713
807 004006 001027

811 004024
812 004026
813 004032

814 004034

815 004040
816 004042

817 004046

001003
012705
000405

004342

000001

004772

821 004062
822 004064

11232%
112324

823 004066 012705

072701 000001
013702 013104
012737 004124
012737 004310

832 004134
833 004140
834 004144
835 004150

004737 012056
062713 000004
004737 005140
004737 004772

836 004154
837 004156
838 004162

1008:

1018:

18:

004772

112724
112724

000015
012

000011
112724
112724

000040
000040

BNE
MOV
BR
MOV

28:

#BUF1,R3
#165774,(R3)
1%

sGET MESSAGE BUFFER ADDRESS
;IS THIS FIRST TIME THROUGH
sIF NOT FIRST TIME THEN FORMAT POWER-FAIL MESSAGE
*TOGGLE WATCHDOG

*GET DATA BUFFER ADDRESS
IS DIAGNOSTIC ROM PRESENT
:IF NOT DON'T FORMAT DIAG. ROM MESSAGE

CPUTYP
1008
#1,CPUTYP

JSEE IF A NON=11/24/44 CPU
*BRANCH OVER 11/24/44 SECTION IF SO
“SEE IF AN 11/44

:DPMO01
*DPMOO1
*DPMOO1

#DRH24 ,RS

:GET DIAG. ROM MESSAGE MEADER

*DPMOO1

98$
#DRH44 ,RS
101$

:BRANCH IF NOT TO SETUP FOR 11/24
*DPMOO1
:GET DIAG. ROM MESSAGE HEADER
*DPMOO1
:BRANCH TO PUT HEADER IN MESSAGE BUFFER :DPM001

1018
#DRHEAD , RS

R
ADD

PC,FILBUF

:GO PUT HEADER IN MESSAGE BUFFER

#2,R3

:SKIP OVER ADDRESS OF ASCII

MOVB
MOVB

(R3)+,(R4)+
(R3)+.(R4)+

:PUT ASCII IN MESSAGE BUFFER

JSR

MOV
JSR

(R$)

#BRHEAD ,RS

:BRANCH TO PUT HEADER IN MESSAGE BUFFER :DPM001
:IF IT IS GET DIAG. ROM MESSAGE HEADER

:FORMAT ASCII FOR MESSAGE

PC,FILBUF

;G0 PUT BOOT ROM HEADER IN MESS. BUF.

MOV
MOV
MOV
MoV

#1,R1
MESSPT,R2
#23,RETURN
#58.F INISH

;+POINT TO DIAGNOSTIC ROM
*+POINT TO MSG TABLE
:+SET UP AN ALTERNATE RETURN
:+SET UP ANOTHER ALTERNATE RETURN

JSR
ADD
JSR
JSR

PC,ROMTYP
#4. (R3)
PC.OCADD
PC.F ILBUF

;+FIND THE ROM TYPE
:GET FIRST ENTRY POINT
:60 CONVERY OCTAL TO ASCII
:60 PUT ENTRY POINT IN MESSAGE BUF

013064
013102

a(R6) R4
TIMES
3s
TIMES

B8R
MOV

SWAB

007600

826 004100
827 004104
828 004110
829 004116
830 004124
831 004130

988:

000002

004737
000015

001122

007444

824 004072

825 004076

TSTB
BEQ
CMPB

007465

004737

000313

MOV
CMP
BNE

001122

007524

000015
062703

PUTMES: MOV
TST
BNE
INC

010502
165774

012705

000402
012705

818 004052
819 004054

820 004060

000000
004342

MOVB
MOVB

HT
MOVE
MOVE

#CR.(R4)+
#LF.(R4)+

*PUT A CR/LF MERE

#40,(R4)+
#40.(R4)+

839 004166
840 004172
841 004176
al.g 004202

112724 000040
062713 000002
004737 005140
004737 004772

MOVB
ADD
JSR
JSR

T(R4)+
#2.(R3)
PC.OCADD
PC.FILBUF

844 004210
845 004214
846 004220

112724
112724
112724

000040
000040
000040

MOVB
MOVB
MOVBE

#40.(R4)+
#40.(R4)+
#40.(R4)+

848 004

062703

000002

ADD

#2 .R3

:UPDATE DATA BUFFER ADDRESS

850 004236
851 004240

11232%
112354

MOVE
MOVE

(R3)+,(R4)+
(R3)+.(R4)+

MOV ASCII TO MES1

84 004506 000011

847 0042% 11%724 000011
849 004234

855 004242
853 004244

000313

000730
012703

854 004250 012705

010562
007735

MOVB
SWAB

3s:

B8R
MOV
MOV

#MT.(R4)+
(RS)

2
#BUF 2R3
#PFHEAD RS

;GET SECOND ENTRY POINT
:GO CONVERT OCTAL TO ASCII
*GO PUT ENTRY POINT IN MESSAGE BUF.

;PUT TAB IN HERE

:FORMAT ASCII FOR MESSAGE

;G0 BACK TO START OF LOOP
:GET DATA BUFFER ADDRESS

:GET POWER-FAIL HEADER ADDRESS

CZMIBEQ M9312/1144 K124 UBI BOO MACRO M1113

PUT MESSAGE

IN BUFFER ROUTINE

855 004254

857 004%62

004737
000015
022703

010566

70
860 004274

004737
004737

005140
004772

862

004302

062703

000002

864 004310
865 004314
866 004320
867 004322
868 004330
869 004332
870 004334
871 004340
872 004342

112724
112724
105024
017637
104401
000000
062716
000207
000000

000015
000012

22-JAN-82 09:18

004772

000000

000002

4%:

JSR
(R

CMP
BEQ
JSR
JSR

5%:

TIMES:

#BUF
2+4 ,R3
5$

;ARE WE DONE
:IF YES THEN GO RETURN
;GO CONVERT OCTAL TO ASCII

#2,R3
63

sUPDATE DATA BUFFER ADDRESS
;GO BACK TO START OF LOOP
sPUT A CR/LF AT END OF MESSAGE

(R4S+

sPUT ZERO TERMINATOR AT END OF MESSAGE
sGET MESSAGE BUFFER ADDRESS

PC,OCADD
PC.FILBUF

#2,(R6)

SEQUENCE

;G0 PUT POWER-FAIL HEADER IN MESSAGE BUF.

a(R6) ,68
6%:

PC,FILBUF

#CR, (R4) +
#LF . (R4)+

004332

PAGE 16-1

;GET OVER MESSAGE BUFFER ADDRESS

CZMIBEO M9312/1144 K124 UBI BOO MACRO M1113

ERROR HANDLER ROUTINE

873
87

104411
012704
005237
032777
001402
104401
007344
032777
00140
000137
013700
013737
012701
000241
006000
103403
062701

89 004440
895 004442
896 004446
897 004450
898 004456
899 004460
900 004466
901 004470
902 004476

011105
004737
000015
032737
001065
032737
001411
013737
013705

904 004506

000000

903 004502

905 004510

906 004512
907 004520
908 004522

909 004530

910 004532
911 004536
912 004542
913 004544
914 004546
915 004550

000773

004737

000450

032737
001426
032737

001417

013700
013701
000241
006000
103403
062701

011276
001120
002000

174520

020000

174504

004722
001110
001110
004744

004710

000002

ERRHAN: SAVREG
MOV
INC
BIT
BEQ
TYPE
BELL
18:
BIT
BEQ
JMP
OVER1:
MOV
MOV
MOV
cLC
28:
ROR
BCS
ADD
33:

004772

000040

001110

003600

001110

013076
013074

004506

004772

138:

000023

001110

000020

001110

14$:

4$:
000002

000773

918 004560
919 004562
920 004564

112124
105711
001375

55s:

112324
112324

6$:

011101

921 004566

000421

924 004574

000416

922 004570
923 004572

925 004576
926 004602
927 004606
928 004612
929 004614

016603
004737
004737
(000011
016603

5$:

000006
005034
004772
000010

MOV
JSR
CR
BIT
BNE
BIT
BEQ
MOV
MOV

SEQUENCE

7$:

WERRMSG,R4
ERRCNT
#BIT10,aswR
1S

#BIT13,@SWR

OVER]
OVER10
ROMERR,RO

ROMERR.OVER9
WEMEADT,R1
RO

38
¥2,R1

(R1),RS
PC.FiLBUF

WPFERR,ROMERR
8%
#3600,ROMERR
148
ARG2,138
ARGI,RS

: INCREMENT ERROR COUNTER
-BELL ON ERROR
:BRANCH IF NO

;INHIBIT ERROR TYPEOUT
:'NO GO THROUGH

:GET_ERROR CODE
:SAVE ERROR CODE FOR APT
:GET ERROR WEADER TABLE
:C=BIT USED TO STOP STEPPING THROUGH TABLE
:ROTATE ERROR CODES
:IF C-BIT SET STOP STEPPING
:IF C-BIT CLEAR STEP TO NEXT HEADER

:G0 _STEP

:PUT HEADER ADDRESS IN REGISTER.
:GO PUT HEADER IN ERROR MESSAGE BUF.
.
‘
;+IS IT A 'PPFVAR'* ERROR?
:+BRANCH IF YES
:+IS IT A "‘SEQTST'* ERROR?
:+BRANCH 1F NO
:#PUT #CR OR #HT AT 13
:#ARG1 CONTAINS ADR. OF MSG

JSR

PC,FiLBUF

:+PUT DATA INTO BUFFER

BIT
BEQ
BIT

#23,ROMESR
78
#20,ROMERR

MOV
MOV
cLe
ROR
BCS
ADD

ROMCNT,RO
ROMPTRRI

RO
S8
#2.R1

:GET ROM COUNTER
:GET ROM NUMBER TABLE
:C-BIT USED TO STOP STEPPING THROUGH TABLE
:ROTATE ROM NUMBE
:IF C-BIT SET STOP STEPPING
:IF
C-BIT
STEP TO NEXT ADRS

MOV

(R1).R

:MOVE

.WORD

BEQ

003046
007176

916 004554

917 004556

E_3

PAGE 17

.SBTTL
ERROR WANDLER ROUTINE
THIS SUBROUTINE FORMATS THE ERROR MESSAGES THE TYPES TWEM

876 004344
877 004346
878 004352
879 004356
880 004364
881 004366
882 004370
883 004372
884 004400
885 004402
886 004406
887 004412
888 004420
889 004424
890 004426
891 004430
892 004432

893 004436

22-JAN-82 09:18

MOV
IST8
BNE

(R1)+,(R&)+
(R1)
558

:+CONTAINS CR OR WT

:+1S ERROR A CRC, APTER1 OR APTER2
:1F NO GO FORMAT APTER3, APTER4
:1S ERROR CRC

:IF_NO FORMAT APTER1, APTER2

: CONTINUE

STEPPING

SS_T0 R1_FROM TABLE

:PUT ROM MPBER IN ERROR MESSAGE BUF
:SEE IF TERMINATOR
:BRANCH BACK IF NOT

fit

:GO_TO END OF ROUTINE

10(R6),R3

:GET SAVED RECEIVED VALUE

MOVB
MOVB
MOV
JSR
JSR
HT
MOV

(R3)+,(R4)+
(R3)+.(R4)+

6(R6),R3
PC,OCASC
PC.FILBUF

60 _TO END OF ROUTINE

:PUT BAD DEVICE CODE IN ERROR MESS. BUF.
:GET SAVED EXPECTED VALUE
:GO COVERT OCTAL TO ASCII
:GO PUT DATA IN ERROR MESSAGE BUF.

:DPMOO1
:DPMOO1
:DPMOO1

CZMIBEO M9312/1144 KT24 UBI BOO MACRO M1113
ERROR HANDLER ROUTINE

930 004620
931 004624
932 004630
933 004632

004737
004737
000011
112724

934 004636
935 004642
936 004646
937 004652
938 004654
939 004660
940 004666
%} 004670

112724
112724
005737
001002
000137
022737
001005
032737

943 004676
944 004700
945 004702
946 004706
947 004710
948 004712
949 004714
950 004720
951 004722
952 004730
953 004732
954 004734
955 004740
ggg 004742

001401
000405
004737
011276
000000
000000
004737
011276
032777
001401
000000
005037
104412
000207

958
959 004744
960 004746
961 004750

010036
010002
010074

962 004752
963 004754
964 004756
965 004760
966 004762
967 004764
968 004766
969 004770

010152
010226
010252
010330
010406
013164
013243
013323

22-JAN-82 09:18

005034
004772
000015

8$:

000012
000000
001160

004714
000001

001116

000040

001110

005540

005546
100000
001110

174154

OVER2:

JSR
JSR
HT
MOvB

MOvB
Move
TST
BNE
JMP
(MP
BNE
BIT

SEQ
BR
AROUND: JSR
ERRMSG
OVER9:
.WORD
HALT
OVER11: JSR
ERRMSG
OVER10: BIT
BEQ
HALT
128:
CLR
RESREG
RTS

PAGE

17-1

SEQUENCE

PC,OCASC
PC,FILBUF

;GO COVERT OCTAL TO ASCII
;GO PUT DATA IN ERROR MESSAGE BUFFER.

#CR, (R4)+

;PUT CR/LF AT END OF MESSAGE

#LF,(R4)+
#0,(R4)+
S$ENV
OVER?
OVER11
#1 ,ROMF IN
AROUND
#PFERR ,ROMERR

ARQUND
OVERT
PC,SATY1
0

;PUT TERMINATOR AT END OF MESSAGE
;TST IF ON APT

; =IF NO BRANCH

NOW IF YES ,IS POWERIL VECTOR THE ERROR????
S ,WELL THEN IT'S
T A REAL ERROR ,

EPORT ERROR

;THEN MALT
;IF NOT ON APT JUST REPORT ERROR

#BIT15,3SWR
128

;1S HALT ON ERROR SET
;IF NO SKIP OVER HALT

ROMERR

;CLEAR ERROR FLAGS

EMEADT: ERIMSG
ER2MSG
ER3MSG

ER4MSG
CRCMSG
PFMSG
)
SEQMSG
ERMES1
ERME
ERMES

CONTINUE

PC.SATY3

+*+t+
e

CZMIBEO M9312/1144 KT24 UBI BOO MACRO M1113

FILL BUFFER ROUTINE

970
971

22-JAN-82 09:18

PAGE 18

3
SEQUENCE

LSBTTL
FILL BUFFER ROUTINE
:THIS SUBROUTINE FILLS THE MESSAGE BUFFER WILL ASCII

g;%

s CHARACTERS.

974 004772
975 005000
976 005002
977 0C5006
978 005010
979 005014

022776
001003
112724
000404
112724
112724

981
982
983
984

105715
001375
062716
000207

980 005020
005022
005024
005026
005032

112524

000011

000000

FILBUF:

000011
000015
000012

000002

1$:

28:

CMP
BNE
MOVB
BR
MOvB
MOovB

#HT 3 (R6)
1$
#HT, (R4) +
28
#CR, (R4)+
#LF , (RG)+

;1S FIRST CHARACTER A TAB OR (R
:1F CR THEN GO PUT CR/LF IN BUFFER
:1F TAB THEN PUT TAB IN BUFFER
sGET OVER NEXT LINE
;MOV CR/LF TO BUFFER

1STB
BNE
ADD
RTS

(RS)
2%
#2,(R6)
PC

:1S NEXT CHARACTER ZERO
:IF NOT PUT IT IN MESSAGE BUFFER AND GET NEXT
sUPDATE RETURN POINTER TO GET OVER CHARACTER
s THEN RETURN

mMovse

(RSS+, (R4)+

;PUT A CHARACTER IN MESSAGE BUFFER

| OCTAL TO ASCII CONVERSION ROUTINE

CZMIBEQ M9312/1144 KT24 UBI BOO MACRO M1113
985
986

ggg

989 005034
990 005040
991 005042
992 005044
993 005046
994 005050
995 005054
996 005060
997 005062
998 005066
999 005070
1000 005074
1001 005076
1002 005102
1003 005104
1004 005110
1005 005112
1006 005116
1007 005120
1008 005124
1009 005126
1010 005132
1011 005134
1012 005136

22-JAN-82 09:18

H
3
PAGE 19

.SBTTL
OCTAL TO ASC
:THIS SUBROUTINE TAKES A SIX

ONVER S ION ROUT INE
BIT IT OCTAL NUMBER AND
RS

OCASC:

;GET BUFFER ADDRESS
:CLEAR BUFFER

:CONVERTS IT TO 6 ASCII CHARA

012700
005020
005020
005020
005020
012700
010337
000241
006137
006110
152710
005200
020027
001003
012705
000207
006137
106110
006137
106110
006137
106110
000755
000000

010566

010566
005136

005136
000060

1$:

010574

010566

005136

SEQUENCE

28:

005136
005136
TEMP:

Mov
CLR
CLR
CLR
CLK
MOV
MOV
CLC
ROL
ROL
BISB
INC
CMP
BNE
MOV
RTS
ROL
ROLB
ROL
ROLB
ROL
ROLB
BR
0

#0C TBUF ,RO
(RO)
+
(RO)+
(RO)
+
(RO)
+
#0CTBUF ,RO
R3,TEMP

TEMP
(RO)
#60, (RO)
RO
RO,#0CTBUF
+6
2%
#OCTBUF ,RS
PC
TEMP
(RO)
TEMP
(RO)
TEMP
(RO)
18

;GET BUFFER ADDRESS
;GET OCTAL NUMBER

:CLEAR CARRY
;ROTATE BIT INTO CARRY BIT
;ROTATE CARRY BIT INTO BUFFER
sMAKE IT ASCII

sUPDATE BUFFER ADDRESS
JHAVE WE CONVERTED ALL THE NUMBER
sIF NO CONTINUE
:afrasz PUT BUFFER ADDRESS IN REGISTER

;RE

sROTATE BIT INTO CARRY BIT

;ROTATE CARRY BIT INTO BUFFER

16O TO START OF LOOP

| CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN=-82 09:18 PAGE 50 3
ROUTINE TO SETUP R3 FOR THE
OCTAL

1013
1014

SEQUENCE

ROUTINE

.SBTTL

sTHIS ROUTINE

1015
1016

ROUTINE TO SETUP R3 FOR THE OCTAL TO ASCII ROUTINE
CALLED BY

THE PUT MESSAGE ROUTINE

TO GET

THE RIGHT

JVALUE IN R3 SO THE OCTAL TO ASCII ROUTINE GETS THE RIGHT NUMBER.

1017 005140

1018
1019
1020
1021

TO ASCII

005142
005144
005150
005152

010346

011303
004737
012603
000207

OCADD:
005034

MOV

MOV
JSR
MOV
RTS

R3,-(R§)

:SAVE THE VALUE OF R3

PC,0CASC

:GO CONVERT OCTAL

;RETURN

(R%) .R

(R6)+,R3

;PUT THE DATA TO BE CONVERTED IN R3
‘RESTORE R3

TO ASCII

| CZM9BEQ M9312/1144 KT24 UBI BOO MACRO M1113
TYPE

ROUTINE

1022

22-JAN-82 09:18

.SBTTL

PAGE 21

SEQUENCE

TYPE ROUTINE

2222222222212

21111T

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
**NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;*NOTEZ2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
**NOTE3:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.
-

s«CALL:
;*1) USING A TRAP INSTRUCTION
e
TYPE
,MESADR
R

i
e
L

005154

005160
005162
005164
005166
005170
005174

105737

100002
000000
000430
010046
017600 000002

005204

005214

005220

005224
005226

001160

132737

000100

001161

010037

005224

001405

001003

005240
005242

001005
005726

112046

005244

012600

005252
005254
005260
005262

000002
122716
001430
122716

005246 062716

005266 001006
005270 005726
005272 104401

005274
005276

005302

005535
105037

000755

005304

004737

005314
005316

001350
013746

005322
005326

105366
002770

005310

005330

005334
005340

005342

000040

123726

004737
105337
000770

112716

000011

001161

608:

3$:

4$:

000200

005366

58:

68:

78:

005366

WAPTENV,.SENV

623

JSR

PC.SATY3

RO,61$

::NO,GO CHECK FOR CONSOLE

::SETUP MESSAGE ADDRESS FOR APT

::SPOOL MESSAGE TO APT

.WORD
BITB

0
WAPTCSUP,SENVM

: iMESSAGE ADDRESS
:-AST CONSOLE SUPPRESSED

MOVB

(RO)+,-(SP)

::PUSH CHARACTER TO BE TYPED ONTO STACK

BNE

608

BNE
ST

43
(SP)+

ADD

#2,(SP)

MOV

RTI
CMPB
BEQ
CMPB

(SP)+,RO

#MT,(SP)
8s
#CRLF.(SP)

5%
(SP)+

SCHARCNT

CMPB

SFILLC,(SP)+

JSR

*:YES,SKIP TYPE OUT

“:BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK

*‘RESTORE RO

*:ADJUST RETURN PC

*IRETURN
P:BRANCH IF <HT>

;:BRANCH IF NOT <CRLF>

;:POP <CRY<LF> EQUIV
*STYPE A CR AND LF
::CLEAR CHARACTER COUNT

*:GET NEXT CHARACTER

PC,STYPEC

1:G0 TYPE THIS CHARACTER

BNE
MOV

28
SNULL , - (SP)

::1F NO GO GET NEXT CHAR.
$:GET # OF FILLER CHARS. NEEDED

DECB
BLT

1(SP)
6

::DOES A NULL NEED TO BE TYPED?
1:BR IF NO--GO POP THE NULL OFF OF STACK

DECB

sgmcm
7

*:DO NOT COUNT AS A COUNT
::LOOP

Movse

#' _(SP)

s JREPLACE TAB WITH SPACE

PC,STYPEC

;HORIZONTAL TAB PROCESSOR

8s:

;1S THERE A TERMINAL?

“'BR IF YES
P:HALT HERE IF NO TERMINAL
:*LEAVE
:*SAVE RO
::GET ADDRESS OF ASCIZ STRING
- -RUNNING IN APT MODE
1:NO,GO CHECK FOR APT CONSOLE

WAPTSPOOL,SENVM : :SPOOL MESSAGE TO APT

BEQ

JSR

005514

000040

62%

SCRLF
CLRB

005530
000001

BNE

BNE
ST
TYPE

005514

005532

3$
RO, =(SP)
a2(sP) .RO

BITB

618:
628:

STPFLG

BPL
HALT
BR
MOV
MOV

CMPB

2s:

000002

TSTB

MOV

004737 005546

000000
132737

005234

005236

18:

000001

TYPE
ME SADR

]

$TYPE:

122737

005202 001011
005212

005533

:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

::IS IT TIME FOR FILLER CHARS.?
ssAND THE NULL CHAR.

1560 TYPE A NULL

005366
000007

105777
100022
017746
042716
122716
001012

000126

105777
100375
117716

042716
122716
001366

005514

000406
122766

001402
105227
000000

PC,$TYPEC

;:GET NEXT CHARACTER

TSTB
BPL
MOV

as$TKS
108
as$TKB, - (SP)

;;CHAR IN KYBD BUFFER?
;:BR IF NOT
;:GET CHAR
;:STRIP EXTRANEOUS BITS

;MJDO01
;MJD001
;MJD001
;MJD001

;:BR IF NOT

::5088}
;MJD

TST

$TYPEC:

000122
177600
000023
000102

108:

000002

000021

000002
000015

000042
000002

000

as$TKS

;:WAIT FOR CHAR

000002

1%:

CMPB
BEQ
INCB
SCHAR:CNT
. WORD
STYPEX: RTS
$TKS:
.WORD
$TKB:
. WORD
$TPS:
.WORD
$TPB:
.WORD
:
SNULL
.BYTE
SFILLS: .BYTE
SFILLC:
S$TPFLG:
$QUES:
LASCII
$CALF:
.ASCI]
$LF:
.ASCIZ

:MJD001

;MJDO0T

:MJDO01
;MJDO01

;3GET CHAR

J:STRIP IT

;MJDO01

1018

(SP)+

ssFIX STACK

as$TPS
108
2(SP) ,#SXON
STYPEX

;sWAIT UNTIL PRINTER IS READY

2(SP) ,asTPB

CLRB

STACK

J:WAS IT XON?
;:BR IF NOT

1§R.2(SP)

005514

;:POP SPACE OFF

s sWAS CHAR XOFF

#177600, (SP)

000060

177560

#177600, (SP)

;:TYPE A SPACE
s :BRANCH IF NOT AT
;:TAB STOP

#SXOFF
, (SP)

#S$XON., (SP)

102%:

000207

(SP)+

1018
a$TKB, (SP)

000076
177600
000021

000012

g;.SCHARCNT

1028

101$:

005726
105777
100375
126627
001420
116677
122766
001003
105037

JSR
BITB
BNE

SCHARCNT

:I: sP)

STYPEX

éPC)O

:§756

17756
g
}775
6‘

0
2
12
0

Dt,ll

;218 CHARACTER A RANDOM XON?
2 ;BRANCH IF YES
::LOAD CHAR TO BE TYPED INTO DATA REG.

sMJDO01
:MJD001
;MJD001
;MJD001
:MJDOOT

:MJD001
;RANOO1
;RANOO1

::1S CHARACTER A CARRIAGE RETURN?
::BRANCH IF NO
::z5§;'CLEAR CHARACTER COUNT
::1S CHARACTER A LINE FEED?
;s BRANCH IF YES
:;COUNT THE CHARACTER
s ;CHARACTER COUNT STORAGE
;:TTY KDB STATUS
;:TTY KBD BUFFER

:MJD001
:MJD0O1

s:TTY PRINTER STATUS REG. ADDRESS

;s TTY PRINTER BUFFER REG. ADDRESS
:sCONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED
ssINSERT FILL CHARS. AFTER A "LINE FEED'’
;' TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

Eéoussr

005366
005366
005372
005374
005400
005404
005410
005412
005412
005416
005420
005424
005430
005434
005436
005436
005440
005440
005444

004737
132737
001372
005726
000724

SEGUENCE

33
Re

005346
005352
005360
005362
005364

ROUTINE

PAGE 21-1

TYPE

22-JAN-82 09:18

CZMIBEQ M9312/1144 KT24 UBI BOO MACRO M1113

| CZM9BEQ M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE 52
COMMUNICATIONS ROUTINE

SEQUENCE

,APT

1024

.SBTTL

006004
006002

000001

006004

$ATY1:

$ATY3:

$ATY4:
SATYC:

006002
000001

001160

000100

001161

000004
000002
001140

000004

001154

MOvB
MovBe
BR
MOVB
MOV
MOV
T1STB

BEQ

1$:

28:

TST

1ST8

001154

001156
000004

001140

000004
000002

005714
000004

177776

005154
006004

48:

.WORD

2222222222222 2222111

:;PUSH RO ON STACK
;:PUSH R1 ON STACK

34 (SP) RO

JiGET HESSAGE ADDR.

snscrvpe

;5 SEE_IF "DONE W/ LAST XMISSION?

no $MSGAD

$:PUT ADDR IN MAILBOX
::FIND END OF MESSAGE

SgSGAD.RO

;:SUB START OF MESSAGE
2:GET MESSAGE LNGTH IN WORDS
;:PUT LENGTH IN MAILBOX
s:TELL APT TO TAKE MSG.

;:TO TYPE A MESSAGE

;s SHOULD TYPE A MESSAGE?

;IF
NOT::
BR
2510
; ;OPERATING UNDER APT?
3s
s:1F NOT: BR
gePTSPOOL. SENVM ;s SHOULD SPOOL MESSAGES?

#2,4(SP)
6)+

;:1F NOT:

:BUMP RETURN ADDR.

SIF NOT:

WAIT

::PUT MSG ADDR vlz's‘ri'fm“ mgg

; ;PUSH 17?996 ON STACK
::CALL TYPE MACRO

f?OUlD REPORT FATAL ERROR?

LiIF

fi xsuen LAST MESSAGE?
NOT: WAIT

.BYTE
.BYTE
.BYTE

msxzs=855m
APTENV=001
APTSPOOL=100
APTCSUP=040

D
(=T

RTS

+* +OON

001142
000004

128:

000040

RO,=(SP)
R1,=(SP)
SMFLG
58
#APTENV, SENV

118:

SMFLG:
SLFLG:
$FFLG:

::TO ONLY REPORT FATAL ERROR

RO,SMSGLGT

MOV

#1,8FFLG

SATYC

ggSMSGTYPE
3s:

::T0 REPORT FATAL ERROR

103

001140

#1,8FFLG
#1.8MFLG

001160

000004

000100

105737
001416
005737
001413

NWNIN
ONOON

NEH&ENN

W OWW
VIS
S

—O——

D)
b i
M(=1, ST,¥)

000001
000001

OOV~~~

005716

_,O—HO—HOO

005540
005546
005554
005556
005564
005564
005566
005570
005574
005576
005604
005606
005614
005616
005622
005630
005634
005636
005642
005644
005646
005652
005654
005660
005666
005670
005676
005704
005710
005714
005716

APT COMMUNICATIONS ROUTINE

AR AR R

WONOO — ek
=N)=NOO

Em -

OP STACK INTO R1
STAC

CZM9BEQ M9312/1144 KT24 UBI BOO MACRO M1113
INPUT ROUT INE

1026

SBYTL

ENABL
MR

PAGE 23

SEQUENCE

TTY INPUT ROUTINE
AR

2 222222222222

LS8

:*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

211

72222222222 222221

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL

0060C6
006014
006016
006022
006024

022737
001074
105777
100071
117746

042716
022726
001062
123727
001456
104401
104401

013746

0061

NS RO S SRONARSRENN
IS

104402
104401

SERHERREEREEE

TTY

22-JAN-82 09:18

005046
005046
105777
100375
117746
042716
021627
001005

000176

001104

: *WHEN OPERATING IN TTY FLAG MODE.
#SWREG, SWR
::1S THE SOFT=SWR SELECTED?

$CKSWR: CMP
BNE

177476

TSTB
BPL
Move
8IC

177472
177600
000007

001100

000001

006543
006550
000176
006561
177414

17746410
177600
000025

15$
BSTKS

1 *BRANCH IF NO

..cmn THERE?

rc't‘?? (SP)

-(SP)

l?i(SPso

ugroe.n
15
$GTSWR:

TYPE

198:

CLR

78:

TSTB

LSCNTLG

- SMSWR

SWREG,
= (SP)

L SMNEW

=(SP)
=(SP)

CMP

000006

208 :

ADD

000015

108:

CMP

006536

rc‘gi (SP)
108
LSCNTLU
#6

000100

177312

::IF NOT TRY AGAIN

:iPICK w

::VES

HAR

-BIT ASCII

ECHO CONTROL-U (*U)

:: IGNORE PREVIOUS INPUT

s;LET'S TRY IT AGAIN
::IS IT A <CR>?

..SAVE NEW SWR

..CLEAR UP STACK
CHO <CR> AND <LF>

RE-ENABLE TTY KBD INTERRUPTS?
::BRANCH IF NOT

..RE-ENA!LE TTY KBD INTERRUPTS

005366
000060

PC,STYPEC

(sfi) . #60

000067

(SP) 67

18$

000060
000002

000002

..ecuo THE CONTROL=G (“G)
:TYPE CURRENT CONTENTS
..SAVE SWREG FOR TYPEOUT
160 TYPE==OCTAL ASCIICALL DIGITS)
::PROMPT FOR NEW SWR
..cmn COUNTER

2 :BRANCH IF NO
YES lslltvggf FIRST CHAR?

172724
000001

::ARE WE RUNNING IN AUTO-MODE?

: :BRANCH IF YES

(SP) ,#35

000004

000002
000006
005535
001101

..smr-orr me ASCII
::1S IT A CONTROL G?
:iNO, RETURN TO USER

THE NEW SWR
*:CHAR THERE?

BSTKS
-(SP)

9s:

SIF NO oou T WAIT AROUND

1:SAVE THE

#60,(SP)+

2(5#)

17%:

INC

(SP)
(SP)
(SP)

2(SP)

RETURN

..Ecuo CHAR
JCHAR < 0?
..BRANCH F YES
..CHAR >
;BRANCH xf YES

+:STRIP=OFF ASCII

2218 THIS THE FIRST CHAR
s sBRANCH IF YES
2sNO, SHIFT PRESENT
s+
CHAR OVER TO MAKE
22

ROOM FOR NEW ONE.

*:KEEP COUNT OF CHAR

CZMIBEO M9312/1144 KT24 UBI BOO MACRO M1113

TTY

INPUT ROUTINE

006254
006260
006262

006266

056616
000707
104401

000720

177776
005534

BIS
BR
TYPE

188:

_DsABL

EIS!B

R AR

208
AR AR

]

:
:*

011646
016666

000004

006314
006322

042766
026627

177600
000004

006300
006304
006306

006330
006332
006336
006340

006344
006350

006354
006356
006360
006366
006370
006376
006400
006406
006410

006416

105777
100375
117766

001013
105777
100375
117746

042716
022627

001366
000750
026627
001744
026627
002407
026627
003003
042766

000002

177214

177210

000002

$RDCHR: MOV
Mov
1%:

1STB
BPL
MovBe

000004

177156

177600
000021
000004

000021

000004

000140

000004

000175

000040

000004

MRt

(SP) ,~(SP)
4(SPS,2(SP)

as$TKS
1$
a$TKB, 4 (SP)

BIC
CMP

#AC177, (SP)
(SP)+,#21

RTI

ARRARRAARRANA AR

38
OSTKS

Kg -(SP)

2%
18
4(SP) ,#SXON
18
4(SP) M40
48
4(SP) ,m75

48
#40,4(SP)
R

PARITY

BIT

**CALL:

006420
006422
006426

006432
006434
006436
006440

010346
012703
022703

101405
104407
112613
122713

006526
006536

$RDLIN: MOV
1$:
MOV
28:
CMP

000177

108:

BLOS
RDCHR
MOVB
CMPB

R3,=(SP)
#STTYIN,R3
nsrrVINoa..ns
(SP)+,(R3)
#177.(R3)

104401

005534

48:

TYPE

111337
104401

006524
006524

3$:

006444

001003

006452

000763

006446

006456
006460

006464

122723

000015

105063

177777

006470

051356

006476

104401

006472

‘%

RDLIN
RETURN HERE

005536

BNE

STRIPPED

WAIT FOR
A CHARACTER
..READ THE TTY

::GET RID OF JUNK IF ANY
2218 IT A CONTROL-S?

: ;BRANCH IF NO
ssWAIT FOR A CHARACTER
+sLOOP UNTIL ITS THERE
::GET CHARACTER

ssMAKE IT 7-BIT ASCII
::1S IT A CONTROL-Q?

s:1F NOT DISCARD IT
::YES, RESUME
::1S IT A RANDOM XON?
; ;BRANCH IF YES
::1S IT UPPER CASE?
s sBRANCH IF YES
s:1S IT A SPECIAL CHAR?
..MCH IF YES
;MAKE IT UPPER CASE
I

2222232322332 223]

::INPUT A STRING FROM THE TTY
;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
..rsnnxuaroa WILL BE A BYTE OF ALL 0'S

SAVE R3
+:GET ADDRESS
: ;BUFFER FULL?

;:BR IF YES
::G0 READ ONE_CHARACTER FROM THE TTY
i ET CHARACTER
:IS IT A RUBOUT

..sxxp IF NOT

:iCLEAR THE BUFFER AND LOOP

CMPB

#15,(R3)+

;;CHECK FOR RETURN

CLRB

=1(R3)

..CLEAR RETURN (THE 15)

MOVB
TYPE

BNE

TYPE

(R3),9%
93

,SLF

-RANOO1
:RANOO1

$160 BACK TO USER

$QUES

OFF

: sPUSH DOWN THE PC
::SAVE THE PS

s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

i
i

AR AR

:sINPUT
A SINGLE CHARACTER FROM THE TTY
:;CHARACTER IS ON THE STACK

#AC<177> 4(SP)
4(SP) 425

BNE
BR
CMP
BEQ
CMP
BLT
CMP
86T
8IC

3s$:

48:

s ;SIMULATE CONTROL=-U

AR AR AR AR

BIC
CMP

BNE
TSTB
BPL
Move

28:

;sSET IN NEW CHAR
::GET THE NEXT ONE
;s TYPE 2<CR><LF>

;;WITH

000004
000023

177162

SEQUENCE

INPUT A SINGLE CHARACTER FROM THE TTY

RDCHR
RETURN HERE

006270
006272

PAGE 23 1

=2(SP), (SP)
7$
$QUES

'(Tizll_f ROUTINE WILL
b

22-JAN-82 09:18

S:TYPE A '2°

::ECHO THE CHARACTER

LOOP IF NOT RETURN

::TYPE A LINE FEED

M9BEQ ?9312/1144 K724 UBI BOO MACRO M1113
Y

INPUT

ROUTINE

006502
006506
006506
006514
006522

006524
006525
006526

0065
00654
006550
006561

012603
011646
016966 000004
012766 006526

000002

000002
000004

009
000
136
136
015
040

9s:
125
107
012
040

015
015
123
116

22-JAN-82 09:18

B_¢&

PAGE 23-2

SEQUENCE

MoV
MOV
MOV
MOV

(SP)+,R3
(SP) ,~(SP)
4(SP3 ,2(sP)
#STTYIN,L(SP)

::RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE
i
FIRST ASCII CHARACTER ON IT

BYTE
BYTE

0
0

: :STORAGE roa ASCII CHAR. TO TYPE
::TERMINATOR

RTI

STTYIN: .BLKB

SCNTLU: .ASCIZ
SCNTLG: .ASCIZ
SMSWR: _ASCIZ
SMNEW: .ASCiZ

: :RETURN

:;RESERVE 8 BYTES FOR TTY INPUT

/*U/<15><12>
*CONTROL ‘UTM
/+6/<15><12>
..conmoL <15><12>/SWR = /
/ NEW =

CZMIBEOD M9312/1144 KT24 UB] BOO MACRO M1113
BINARY TO OCTAL (ASCII) AND TYPE

1028

&
C
PAGE 24

22-JAN-82 09:18

.SBTTL

SEQUENCE

BINARY TO OCTAL (ASCII) AND TYPE

:;ntttttttttttttttttt.t'ttttt"tt.ttt"ttttttttQ.ttt'tttttt."ttt

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

;*0OCTAL (ASCII) NUMBER AND TYPE IT.

;-%;ztos--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
3
o x

MOV
TYPOS

NUM,-(SP)

BYTE

i
%

.BYTE

;sNUMBER TO BE TYPED
ssCALL FOR TYPEOUT

::N=1TO 6 FOR NUMBER OF DIGITS TO TYPE

:sM=10R 0

::1=TYPE

LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

- &

;*$TYPON--=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:'g;lfos OR S$TYPOC

- %

MOV

TYPON

NUM, - (SP)

::NUMBER TO BE TYPED
::CALL FOR TYPEOUT

:'{IIEOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

i
006572

017646

006610
006614

062716
000406

0066§4

112737

006576
006604

006616

006632

116637
112637

007015

112737

000005

007014

006652
006654

005404
062704

006670

113704
016605

006674

006976

000002

000006

113704

007017

110437

007016

005003

007017

MOV

TYPOC

$TYPOS: MOV

007015

000001

010346
010446
010546

006660

000001
007017

112737

006640
006642
006644
006646

000000

“x

MOVB
MOVB

ADD
BR

NUM, - (SP)
a(SP) ,-(SP)

1(SP),SOFILL
(SP)+,SOMODE+1

#2,(SP)
$TYPON

S$TYPOC: MOVB

#1,.SOFILL

STYPON: MOVB

#5.SOCNT

MOVB

MOV
MOV
MOV

MOVB

MOVE
MOV

SOFILL.R4
12(SP) .RS

18:

006702

006105

2s:

ROL

883"0
712

10503
oougs

3s:

MoV
ROL

R5.R3
R3

006720

100016

006714

006722
006726
006730

105337

007016

042703
001202
005704

177770

ooorgi

33"03

oomg
006742

052703
052703

0067

000060
000040

DECB

BPL

48:
5%:

::SET THE ITERATION COUNT

::SAVE R3
*:SAVE R&
::SAVE RS

:;SUBTRACT IT FOR MAX. ALLOWED

::GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER

:;CLEAR THE OUTPUT WORD

::ROTATE MSB INTO ''C"’

::FORM THIS DIGIT

::60 DO MSB

#177770,R3
43
Ré

INC

Ré

BIS
8IS

::SET FOR SIX(6) DIGITS

BIC
BNE
ST

BEQ

::SET THE ZERO FILL SWITCH

“:SAVE IT FOR USE

007015
000012

::ADJUST RETURN ADDRESS

R&.SOMODE

383105

006

;:LOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

::GET THE NUMBER OF DIGITS TO TYPE

000006

CLR

::PICKUP THE MODE

SOMODE+1.Ré4

Ré
#6.R4%

ROL

.=(SP)
R&.~(SP)
RS,~-(SP)

NEG
ADD

MOVB

::NUMBER TO BE TYPED

::CALL FOR TYPEOUT

::GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?

“:BR IF NO

::GET RID OF JUNK
:2TEST FOR 0
: :SUPPRESS THIS 0?

::BR IF YES

#°0,R3
# .R3

::MAKE THIS DIGIT ASCII
::MAKE ASCII IF NOT ALREADY

::DON'T SUPPRESS ANYMORE 0'S

(ZM9BEO M9312/1144 KT24 UB]I BOO MACRO M1113

BINARY TO OCTAL

006762
006764

(ASCII)

AND TYPE

110337
104401
105337

007012
007012
007014

003347
002402

22-JAN-82 09:18

7%:

6%:

007000

016666

000002

000004
8%:

007016

000
000000

$OCNT:

$OFILL:
:
$OMODE

MovBe
TYPE
DE(CB
BGT
BLT
INC
BR
MOV
MoV
MoV
MOV
MOV
RTI

.BYTE
.BYTE
.BYTE
.WORD

R3,8%

PAGE 26 1

SEQUENCE

::SAVE FOR_TYPING
::G0 TYPE THIS DIGIT
:;COUNT BY 1

::BR IF MORE TO DO

::BR_IF DONE
:sINSURE LAST DIGIT ISN'T A BLANK
..GO DO THE LAST DIGIT

;;RESTORE
RS

:iRESTORE R&

: sRESTORE R3
:;SET THE STACK FOR RETURNING
: ;RETURN
:;STORAGE FOR ASCII DIGIT
:;TERMINATOR FOR TYPE ROUTINE
:;O0CTAL DIGIT COUNTER
ssZERO FILL SWITCH
s ;NUMBER OF DIGITS TO TYPE

| CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN=-82 09:18 PAGE SS
SAVE AND RESTORE RO-R5 ROUTINES
1030

SBTTL
MR

SEQUENCE

SAVE AND RESTORE RO-R5 ROUTINES
R

'SAVE RO-RS

I 2222222222222 221

'CALL
'SAVREG
'UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
-rop---(+1g

;v 42-==(+18)

¢ Hyunelty
i

007112

1
“nl

e
e L

NN
D 2D 0 00 D

000022
000022
000022
000022

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

::PUSH RO ON STACK
:;PUSH R1 ON STACK
: ;PUSH :i ON STACK
: ;PUSH
ON STACK
:PUSH R4 ON STACK

R5 ON STACK
H
..SAVE PS OF MAIN FLOW
:sSAVE PS OF CALL
:sSAVE PC OF CALL

;*RESTORE RO-RS

teCALL:
i
RESREG
SRESREG:
MoV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MoV
MOV
-t

007056

$SAVREG:

—

007034
007040
007044
007050
007054

se+1)=-==R2
s*+12=-=<R1
tx414=-=R0

007020
007020
007022
007024
007026
007030
007032

43--.R3

;sRESTORE PC OF CALL

2sRESTORE PS OF CALL
;sRESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW

CZH98E0 M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE 28
TRAP DECODER
1036

-SBTTL
P

SEQUENCE

TRAP DECODER

LR LR

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

007114
007116
007122
007124
007126
007130
007134

010046
016600
005740
111000
006300
016000
000200

007136
007140
007146

011646
016666
000002

007170
007172
007174

006420
007020
007056

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:%OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;%GO TO THAT ROUTINE.

$TRAP:

000002

MOV

2(5P) RO

MOVB

(RO) ,RO

-(RO)

ASL

RTS

MOV

007150

RO,=(SP)

MOV

$TRPAD (RO) ,RO

; :SAVE RO

“:GET TRAP ADDRESS
: :BACKUP BY 2

::GET RIGHT BYTE OF TRAP

:;POSITION FOR INDEXING

..moex TO TABLE

T0_ROUT INE
:THIS IS USE TO HANDLE THE 'ceru') MACRO

020004

000002

inw MOV

MOV

.SBTTL

(SP),~(SP)

4(SP),2(SP)

RTI
TRAP TABLE

;;MOVE THE PC DOWN

::MOVE THE PSW DOWN

;:RESTORE THE PSW

'BY TuER;Z??:; INSTRUCTION.

007136
005154
006616
006572
006632
006056
006006
006270

THE '‘TRAP'’ INSTRUCTION

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

007150
007152
007154
007156
007160
007162
007164
007166

§TRPAD : .WORD
STYPE

STRAP2

;. CALL=TYPE

TRAP+1(104401)

;:CALL=TYPOS

TRAP+3(104403)

$TYPOC

;:CALL=TYPOC

STYPON

;;CALL=TYPON

STYPOS

SGTSWR
SCKSWR
SRDCHR
SRDLIN
SSAVREG
SRESREG

;.CALL=GTSWR
;.CALL=CKSWR
..CALL*IDCNI
;.CALL=RDLIN

;;CALL=SAVREG
;;CALL=RESREG

TRAPO§(10‘60)
TRAP+4(104404)

TRAP*S(!O“OS)
(104409)
+7(104407)
YRAP010(106410)

THE ROUTINES CALLED

TTY TYPEOUT ROUTINE

TYPE OCTAL NUMBER (WITH LEADING ZEROS)

TYPE OCTAL NUMBER (NO LEADING ZEROS)

TYPE OCTAL NUMBER (AS PER LAST CALL)

GET SOFT-SWR SETTING
TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

TRAP+11(104411) SAVE RO-RS ROUTINE
TRAP+12(104412) RESTORE RO-RS ROUTINE

CZMOBEOD M9312/1144 KT24 UBI BOO MACRO M1113

MESSAGES

1056 007306

1057 007320

1058 007332

1059 007344

1060 007350
1061 007424

012
054

015
040

207

377

007274

377

11 g
105

AROM:

AROM11,AROM21,AROM31,AROM&1,AROMS1

BROM:

ROMNUM:

BELL:

MNORM:
ERL:

.WORD

007271

007206

007233

R
O

007266

007222

/3% OR 82/
/32 OR 83/
/20/
/35/
733/
/34/
732/

MESSAGES
ROMNUM
/58/
/48/
/49/
/50/
/59/
/20/
/35 OR 75/
/33 OR 89/

007203

.SBTTL
.WORD
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
RMNUM&: .ASCIZ
RMNUMS: '23551

ROMPTR:
AROM11:
AROM21:
AROM31:
AROM&1:
AROMS1:
BROM11:
BROM21:
BROM31:
BROM&1:
BROMS1:
RMNUM1:
RMNUM2:

AR
B

007200

007217

000
000
000
000
000
000
040
040
040
040
000
000
000
000
000

SEQUENCE

B
B

070
070
071
060
071
060
065
063
064
062
060
065
063
064
062

B
O

007332
065
064
064
065
065
062
063
063
063
063
062
063
063
063
063

PAGE 29

EE B
LR I

1038
1039 007176
1040 007200
1041 007203
1042 007206
1043 007211
1044 007214
1045 007217
1046 007222
1047 007233
1048 007244
1049 007255
1050 007266
1051 007271
1052 007274
1053 007277
lggg 007302

22-JAN-82 09:18

*
»

.WORD

BROM11.BROM21.BROM31.BROM41
. BROMS 1
RMNUM1 nnuun; RMNU
, RMNUMS ,
M3
RMNUMS

.ASCIZ
LASCIZ

<12><15>/NO ROMS RESPONDED TO THE SIZING ROUTINE/<12><15>
/., ERROR LINE # /

.ASCIZ

<207><$77><37%>

CZMSBEQ M9312/1144 KT24 UBI BOC MACRO M1113
ASCIZ MESSAGES

1062
1063 007444
1064 007465
1065 007524

1066 007600
1067 007656

104
104
104

012
114

11
111
m

102
117

101
101
101

117
103

22-JAN-82 09:18

DRHEAD:
DRH44:
DRH24:

BRHEAD:

.SBTTL
.ASCIZ
_ASCIZ
.ASCIZ

.ASCII
.ASCIZ

H
&
PAGE 30

ASCIZ MESSAGES
/DIAG. ROM: E20
/
/DIAG. ROM FOR 11-44 UBI: ES8
/
bl
/DIAG. ROM FOR 11-24 KT24: E74, M9312: E58
/

SEQUENCE

;DPMOO1
:pPMOO1
<12>/BOOTSTRAP ROM ENTRY POINTS AND DEVICE CODES/<15><12>
/L0C.
NO DIAG.
RUN DIAG.
DEVICE CODE/

CZM9BEQ M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE %1

| ASCIZ MESSAGES
|
|

1069 007735
1070 010002
1071 010036
1072 010074
1073 010125
1074 010152
1075 010201
1076 010226
1077 010252

120
103
106
120
011
120
011
103
103

123
117
117
117
105
117
105
122
117

105
125
125
127
130
127
130
103
125

PFHEAD:
ER2MSG:
ERIMSG:
ER3MSG:

[ER4MSG:
CRCMSG:
PFMSG:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCIZ
.ASCI1
LASCIZ
.ASCIZ
.ASCIZ

QPSEUDO POWER-FAIL VECTOR ADR./NEW PCa
/COULD NOT FIND DEVICE CODE /
/FOUND UNEXPECTED DEVICE CODE /
/POWER=-FAIL VECTOR ERROR/<15><12>
/
EXPECTED
RECIEVED/<15><12>
/POWER-FAIL DATA ERROR/<15><12>
/
EXPECTED
RECIEVED/<15><12>
/CRC ERROR IN ROM E-/
/COULD NOT DETERMINE POWER-FAIL VECTOR ADDRESS/

SEQUENCE

TM
L ]
oML
S
WO
O

— e PN

oo
N

—_OO
-

N el

—nNOoo

NOROMM:

SEQMSG:
.EVEN

b d e

AS
,ASCII
.AS H}

/NO ROMS TEST ERROR/<15><12>
/
VALUE
ADDRESS/<15><12>
<15><12>/ROM SEQUENCE IS INCORRECT AS PER /
/INSTALLATION PROCEDURE./

.AS
.AS 1z

;BUFFERS

BUF1:

.REPT 30

JCTBUF:

.BLKB

2 —d
b
b

— ekt
O
nN—=O Voo~

e e
o e
e
d o
b o
e

00
o

ERRMSG:

b o

oog $255238232 0
W

:+'ROMTYP'' AND "ROMNM'' FILL THE MESSAGE BUFFER WITH A CONTINUATION ROM

=
d el =
A

ed ed

.BLkB
.BLKB

MES1:
MES2:

o
e

BUr 2:

s e

=lelelelelelelelelelolelelelole]

wvivvuananau

— e

000030

&b bapp—acielelelelelelelelelelelelelelelelelelalelololate)

— e

oleolelele] jelolelolels)
~O 00 0o 00 0o G0 00 0o 00 00~
OO S W-=O

010406
010457

—_0—

SEQUENCE

MESSAGES

9 010330
010354

hed e -

;+'HOLCK1'' AND "HOLCK2'' CHECK FOR

EO M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE i?

:4THE FOLLOWING CODE WAS ADDED IN REV BO:

$+''CLEAR'' CLEARS THE NEW LABEL AND BUFFER LOCATIONS
i 4

;+ 'CONT'" AND "'CON2'* FILL "BUF1'' WITH THE CONTINUATION ROM DATA AND
':SET ERROR FLAGS WHEN NECESSARY

::VECTOR ADDRESS; ALSO SET 11/60

HOLES TO VERIFY THE POWER FAIL

INDICATOR OR WHEN APPLICABLE

::HESSAGE AND WITH A ROM IDENTIFICATION MESSAGE

CZM9BE 0 M9

SEQUENCE

ASCIZ MESSAGE
S

1141 011770
1142 011774
1143 011776
1144 012002
1145 012004
1146
1147 012006
1148 012014
1149 012016
1150
1151 012020
1152 012026

1153 012030
1154

1155
1156
1157
1158

012032
012040
012042
012050

1159 012054

1160
1161 012056
1162 012060
1163 012062
1164 012066
1165
1166 012070

1167 012074
1168 012076
1169 012102
1170 012106
1171 012112
1172 012114

#SEQBUF

+
(RO)
Ro‘

*+ALL CLEARED?

;+CONTINUATION CHIP?
::BRANCH IF YES

CON1:

BIT
BNE
RTS

CONF IN

050137
012720
012720
000207

013060
000001

18:

BIS
MOV
MOV
RTS

TST

005703
001001
000207

030137

001005
014037
062700
000207

CON2:

BNE

RTS

013070

1%:

013062
000002

BIT

BNE

MOV
ADD

RTS

012710
014002
062700
010220
000207

000001

032737
001415
000207

000002

032737
001401
000207

000004

001116

122737

000777

173224

000002
013064

013066

2%:

+ +20

DVO
ocoZ

;+CHIP DOES NOT BELONG HERE-SET ERROR FLAG
;+SET _CONTINUATION ROM INDICATOR
::ILLEGAL ROM'S DEVICE CODE =-1
;+POINTING OVER THIS CHIP?
::BRANCH IF YES

CONF IN

;+CONTINUATION CHIP?
s +*BRANCH IF YES

CONER2
RO

i:CHIP IS MISSING-SAVE DEVICE CODE

(RO)
R2
RO
(RO)+

s+SET CONTINUATION CHIP INDICATOR
;+GET PREVIOUS DEVICE CODE
s+POINT TO CORRECT LOCATION
::PUT IN DEVICE CODE

ROMF IN

:*A CHIP IN SOCKET #1?
::BRANCH IF NO

HOLCK2: BIT
BEQ
RTS

ROMF IN

:*A CHIP IN SOCKET #2?
::BRANCH IF NO

1%:

173224

000004

001116

; +BRANCH IF NO

013070

030137
001001
000207

177777

MOV
MOV
ADD
MoV
RTS

HOLCK1: BIT

BEQ

RTS

END:

CMPB

BEQ
BIS
MoV
RTS

FLAG

s*ARE SWITCHES SET?
s *BRANCH IF NO

s+SET 11760 INDICATOR

(R6)

E:SET UP ALTERNATE RETURN

(R6)

s*ARE WE FINISHED?
s +*BRANCH IF NO
::SET UP ALTERNATE RETURN

ROMI1YP:

013102
000001

1%:

(R3)

012126
013136
004772

2%:

ROMNM

000004

{:SET UP TO CLEAR LOCATIONS

#FINISH

V—D

CLR
CMP
BLOS
RTS

2*‘2
| ==

013102

MOV

C LEAR:
1 $:

O -0
N

101774
000207

013040

1132 011744
1133 011746
1134
1135 011750
1136 011754
1137 011756
1138 011762
1139 011766
1140

012700
005020
020027

D
-

1116 011676
1117 011702
1118 011704
1119 011710
1120 011712
1121
1122 011714
1123 011720
1124 011722
1125
1126 011724
1127 011730
1128 011734
1129 011740
1130
1131 011742

“FILBUF
R3

s*CONTINUATION CHIP?
s+ITS A DEVICE CHIP-FIND SOCKET #
s+FIND SOCKET #
::LOAD MSG INTO BUFFER
I

s+POP OVER CONTINUATION CHIP DATA

| CZM9BEQ M9312/1144 KT24 UBI BOO.MACRO M1113 22~-JAN-82 09:18 PAGE %3°1

SEWUEMCE

ASCIZ MESSAGES

1173 012120

013716

013064

1176 012126
1177 012132
1178 012134
1179 012136
1180 012140
1181 012144
1182 012146
1183 012152
1184 012154
1185 012156
1186 012162
1187 012164
1188 012166
1189 012172

032713
001015
000241
006101
030137
001003
062702
000770
012205
004737
000015
000402
112724
000207

00G170

}};g 012124

000207

ROMNM:

001116

000002

000011

RETURN,

(R6)

J#SET UP ALTERNATE RETURN

3T
BNE
CLC
ROL
BIT
BNE
ADD
BR
MoV
JSR
CR
BR
move
RTS

#170,
3

(R3)

J+BEGINNING A NEW ROM?
J+BRANCH IF NOT
it
;+POINT TO NEXT SOCKET
;+1S A ROM THERE?
s +BRANCH IF YES
<s+POINT TO NEXT MSG
; +CONTINUE
;+LOAD ROM ID
;+INTO THE MSG BUFFER
3o
i+

RTS

1$:

004772

MOV

28:

38:
4$:

R1
R1,
2%
"2,
1$
(R2)+,
PC,
3]
#HT,
PC

ROMF IN

R2
RS
FILBUF

(R4)+

;+LOAD A TAB
H

CZMIBEO M9312/1144 KT24 UBI BOO MACRO M1113
SEQUENCE TEST

1190
1191

22-JAN-82 09:18

.SBTTL

M
4
PAGE 34

SEQUENCE

SEQUENCE TEST

;+THIS TEST VERIFIES THAT CONTINUATION CHIPS ARE LOCATED WHERE
:+THEY BELONG, THAT THERE ARE NO DUPLICATE DEVICE ROMS,
:+THAT THE ROMS ARE IN ALPHABETICAL ORDER, THAT THERE ARE NO

1192

1193
1194

1195
1196
1197
1198
1199
1200
1201 012174

:+HOLES,

;+THEN A CORRECT SEQUENCE IS DETERMINED AND PRINTED OUT.
;+FIRST, CHECK FOR ILLEGAL CONTINUATION ROM ERRORS
*+IF ANY ARE FOUND, PRINT ERROR MSG AND EXIT

1202 012202

012737
005737

000011
013060

1204
1205
1206
1207
1208

013703
013702
012737
032703
001026

013060
013104
000400
000002

1203 012206
012210
012214
012220
012226
012232

1209 012234

001417

062702

1210 012240
1211 012242
1212 012244
1213 012246
1214 012252
1215 012254
1216 012262
1217 012270
1218 012274
1219 012302
1220 012306

000241
006003
000770
005737
001423
012737
012737
000337
013737
105037
000402

1222 012314

004737

1221 012310

1223 012320

AND THAT SOCKET #2 HAS A CHIP IF THE PROCESSOR IS AN 11/60.

:+IF THE ONLY PROBLEM IS ALPHABETICAL ORDER AND/OR HOLES,

011237

000207

013076

SEQTST: MOV

BEQ
MOV

001110

15:

000002

001000
010576
013062
013062
010600

013074
004344

001110
013074

3s:

48:

$
CONER1, R3

BIT

"2,

BNE

#CONONE ,
3$

*+BRANCH IF NO
+THE BIT IDENTIFIES THE CHIP

:+POINT TO MSG TABLE

ROMERR

:+IDENTIFY THE ROM FOR PRINTOUT

:+SET UP FOR NEXT ROM MSG

;+SET UP TO IDENTIFY NEXT ROM

CLRB
BR
MOV

MEST+
4
(R2),

CONER
CONER2, MES1

PC,
PC

;+SET ERROR FLAG

“+BRANCH IF FOUND IT

CONER2
FILTAB
#CONTWO,
#MES1,
ARG

JSR
RTS

;+SET UP FOR ''ERRHAN'’

:+WAS THERE AN ERROR?

ST
BEQ
MOV
MOV

SWAB
MOV

010576

ARG2

MESSPT,

MOV

ggn

28:

Sonén1

MOV
232

013062

#HT

/%61

ERRHAN

ROMERR

:+WAS THERE AN ERROR?
*+BRANCH IF NO
:+SET ERROR FLAG
:+PASS THIS ADDRESS TO ERRHAN

*+BUILD THE MSG
e

e
*+REPORT THE ERROR
:+PASS MSG ADDRESS TO "ERRHAN''
*+REPORT ERROR
g

CZM9BEOQ M9312/1144 KT24 UBI BOO MACRO M1113

TABLE BUILDING ROUTINE

1224

22-JAWN-82 09:18

.SBTTL

N 4
PAGE 35

SEQUENCE

TABLE BUILDING ROUTINE

}%gz

;+IF THERE WERE NO CONTINUATION ROM ERRORS, BUILD THE FOLLOWING TABLE:

1227

1228
1229

I
i

}%%{1)

SEQBUF :

FIRST DEVICE CODE

# OF CONTINUATION ROMS FOR FIRST DEVICE
SECOND DEVICE CODE

o+
:+

# OF

CONTINUATION ROMS FOR SECOND DEVICE
L

1232

%sgg

;+FOR A "HOLE'', THE DEVICE CODE WILL BE A 0.

}%gz

1237 012322
1238 012326
1239 012332
1240 012336
1241 012340
1242 012342
1243 012346
1244 012350
1245 012354
1246 012356
1247 012360

012703
012702
012700
000241
006100
030037
001404
030037
001011
011213
062703

1249
1250
1251
1252
1253
1254

030027
001760
000404
005243
062703
000766

1248 012364

012370
012374
012376
012400
012402
012406

062702

013040
173000
000001

001116
013070
000004

000200
000020

000002

FILTAB: MOV
MOV
MOV
1$:
CLC
ROL
BIT
BEQ
2$:
BIT
BNE
MOV
3s:
ADD

5%:

4$:

;

ENDSEQ:

ADD

BIT
BEQ
BR
INC
ADD
BR

FOURTH (LAST) DEVICE CODE

#SEQBUF ,
#173000,
",
RO
RO
RO,
3s
RO,
48
(R2),

0260.

RO,
18
ALPHCK
=(R3)
2,
5%

ROMF IN
CONF IN
(R3)
R3

#20

R3
R2

s+SET UP TO FILL A TABLE CALLED ‘'SEQBUF'’
s+POINT TO FIRST ROM
4
i
;*POINT TO NEXT ROM
;+1S IT A HOLE?
;+BRANCH IF YES
;+1S IT A CONTINUATION CHIP?
;+BRANCH IF YES
;+ITS A DEVICE ROM-PUT DEVICE CODE INTO TABLE
s+POINT TO NEXT DEVICE CODE LOCATION

;+POINT TO NEXT ROM

s+ALL DONE?
s *NO=-BRANCH
s+TABLE COMPLETELY BUILT
;+COUNT ONE CONTINUATION CHIP IN LOCATION
;+POINT TO NEXT DEVICE CODE LOCATION
%

IM9BED M9312/1144 K124 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE gb 5
.SBTTL

CHECK 'SEQBUF' ROUTINE

:#NOW CHECK DEVICE CODES IN ‘SEQBUF'" FOR ALPHABETICAL ORDER AND

:#CHECK FOR

"WOLESTM.

IF THERE IS A DUPLICATE DEVICE CODE, PRINT

NegS
=NON=NNNNSNNSONNW WO
SN NS ONWNO
N

292

SNV

W NWN
= N —

Nt
—s

°§83888§

Vil ~
WN=O=NON
N=UWNNNWVMWN
-

ek o

i=lelelelalele
e

ek md el

-0
on puwurd

8
L=
-~
OOO

2 Wi
e
OO
o

NSRSS
et

2338

VAW wvivauvauoavawu
ViVI

D e

ek oed e

d ool ek ok ed md e

b ok ek R

joimielalalalelalelelelalelelelelelelelela] i=lleleleleleleta]

—

‘642
434
436
440

38REN
R R R ER88328228=c3sse
LR SNBSS
SRS

NSO

GRS
S DS

d d o

- —d —

OO0 S
0O0CO0VOOOOOOOOOOO
——-—-———
-y

:+AN ERROR MESSAGE AND EXIT.
IF DEVICE CODES NEED SORTING
:+AND/OR HOLES FILLING, DO iT AND SET THE SEQUENCE ERROR
:+FLAG.
ALSO CHECK FOR THE 11/60 SPECIAL CASE.

838IRogaouu
wviSH
W 2EISINTNAIIITELE
o«gooo«smmv\mm
VS WN
2O VNNV
-

OO0

SEQUENCE

'SEQBUF ' ROUTINE

PINININININ M
A
A LS L ST ST N TNININD NINININNININI
NN PO NN
NNNNN

C
C HEC

ALPHCK: MOV
18:
MOV

013040

28:

000004
013054

ADD
cMP
BHI
ST

48:

010576
010600
004344

68:

000200

001110

78:
8s:

013054

000004
000032

001116

173224

000002

013066

9s:

;+IS THERE A DEVICE CODE MERE?

2
(R3),

(R&)

:+BRANCH IF NO
;+IS THE SEQUENCE CORRECT?

= +YES~CONT INUE
:+POINT TO NEXT DEVICE CODE
:+ALL DONE?
:+BRANCH IF YES
S#NOT YET

(R4)

;+IS THERE A DEVICE CODE HERE?

BEQ

BR
ADD
CMP

2s
"%,
R3.
9%
1$

R3
#ENDSEQ

#MEST,
(R4)
(R4),

“ARG1
MESI

BR
MOV
MOV
SWAB
MOV

;+BRANCH IF NO-FOUND A DUPLICATE

#DUPERR,

;+BRANCH IF NO-NEED TO DO A SHIFT

CLRB

MES1+2

;g.

ERRHAN

MOV

R3,

ROMERR

:+SET ERROR FLAG

:+PASS THIS ADDRESS TO 'ERRHAN''
*+BUILD THE MSG
‘e

*+REPORT THE ERROR
;0

:+SET UP FOR THE SHUFFLE

MOV

MOV
MOV
MOV
MOV
MOV
MOV
BR
MOV
CMP

(R1).
(R2)+
RO
(R1)+
(R, RO
(R1),
(R2)
RO,
(R1)
#SEQERR,
ROMERR
28
R3,
RS
RS,
#ENDSEQ

e
e
e
4
i+
;+SET THE SEQUENCE ERROR FLAG
:+CONTINUE SORTING
,
,
:+SET UP TO SEE IF WE HAVE A "WOLE''
:+END OF TABLE?
:
¥

ADD
ST
BEQ
BIT
BNE

"%
(rRS)
ag

:+NO-POINT TO NEXT DEVICE CODE LOCATION
:+1S THERE A ROM HERE?
:+BRANCH IF NO

BEQ
BR
MOV
MOV
BR

113
108

MOV

BHIS

ISTB

118:

(R3)

BEQ
cMP

ha;g
58:

;+WHERE R3 AND R4 POINT TO DEVICE CODE LOCATIONS
:+PAST THE LAST DEVICE CODE?
:+BRANCH IF YES

:+BRANCH IF NO

BHIS

002000
010576

R&
#ENDSEQ

s+SET UP TO CHECK ALPHABETIC SECUENCE IN *‘SEQBUF'’
;+WILL BE_COMPARING (R3) TO (R&)

BGT

3s:

”"%.
R .
3s

BEQ
ST

000004
013054

#SEQBUF ,
R3,
RG

BIT

BEQ

(RS,

#32.

118

RS
ROMFIN

173224

R3,

FLAG

RS,
6%

108

S+SHIFT THE VALUES

;+YES=THIS WAS NOT A

'WOLE

:+A ROM IN SOCKET #2 ONLY?

:+BRANCH IF NO
;411760 SPECIAL CASE?
;+BRANCH IF NO
:+THE ONLY ROM MUST STAY IN SOCKET #2
s+YES-THERE IS A HOLE THAT CAN BE FILLED
:+GET READY TO SHMIFT THE VALUES
s+FILL IN THE HOLE
S+AN 117602

:+BRANCH IF NO

CZM9BEQ M9312/1144 KT24 UBI BOO MACRO M1113
CHECK 'SEQBUF' ROUTINE
1312 012626
1313 012632

1314 012634
1315 01%640
1316 012642
1317 01%646
1318 012652
1319 012654
1320 012662
1321 012664

005737
001366

005737
001405
012701
012702
000724
032737
001001
000207

013044

013040
013040
013044

000200

001110

108:

22-JAN-82 09:18
TST
BNE
TST
BEQ
MOV
MOV
BR
BIT
BNE
RTS

£
3
PAGE 36-1

SEQUENCE

SEQBUF +4
118

SEQBUF
108
#SEQBUF ,
#SEQBUF +4,
6$

#SEQERR,
OUTTAB
PC

R1
R2

ROMERR

s+1S SOCKET #2 EMPTY?
s+BRANCH IF NO
;+1S SOCKET #1 EMPTY?
s +*BRANCH IF YES
J+SET UP TO SHIFT
s+CHIPS #1 AND #2
;+D0 THE SHIFT
;+WAS THERE A SEQUENCE ERROR?
;+BRANCH IF YES
I

MSBEQ M9312/1144 KT24 UB] BOO MACRO M1113
22-JAN-82 09:18
BUI LDING CORRECT SEQUENCE MSG FOR 'ERRHAN' ROUTINE
1322
1323
1326

1337 012740
1338 012744
1339 012752
1340 012754
1341 012760

1342 012764
1343 012766
1344 012772
1345 012774
1346 013000
1347 013004
1348 013006
1349 013010
1350 013012
1351 013014
1352 013022
1353 013024
1354 013026
1355 013030
1356 013032
1357 013036
1358
1359
1360 013040
1361 013042
1362 013044

1363 013046
1364 013050
1365 013052
1366 013054
1367 013056
1368 013060
1369 013062
1370 013064
1371 013066
1372 013070
1373 013072
1374 013074
1375 013076
1376 013100
1377 013102
1378

5
SEQUENCE

BUILDING CORRECT SEQUENCE MSG FOR ‘ERRHAN' ROUTINE

OUTTAB: MOV
MOV
MOV
MoV
MoV
MOV

JSR

#MEST,
#CR,

ARG1

ARG2

#SEQBUF
,
MESSPT, R2
#MEST,
R4
#ERMESS,
PC.
FILBUF

;+PASS MSG ADR. TO “ERRHAN'
::PASS THIS TOO

;+START BUILDING THE ERROR MSG
::PUT IN THE FIRST PART
24

000004
000002
011176

013100

011176
011200

;+1S A ROM IN SOCKET #1?
s *BRANCH IF YES
::DO SOCKET #2 ONLY

RO
R2
BUILD

1$:

E:ser UP THE DEVICE CODE PART

MES2

2%:

004772

24
i+

::IDENTIFY THE ROM #

F ILBUF

013100
004772

‘e

::PU’ IN EITHER DEVICE CODE OR CONTINUATION MSG

F ILBUF

013136

013100

BUILD

3s:

004344

s +*ANY CONTINUATION ROMS?
s *BRANCH IF NO
:+COUNT DOWN ONE ROM
;#SET UP FOR CONTINUATION MSG
s *CONT INUE
s +*ANY MORE DEVICE ROMS?
s *BRANCH IF YES
s+*MUST END WITH O BYTE
::REPNT THE ERROR
L

:
SEQBUF

(=l=lelelalelalelelalelalalelelelaTo)

1334 012730
1335 012732
1336 012734

NWWN=OOoOWm
NNNOH =~
NSOV

1325
1326 012666
1327 012674
1328 012702
1329 012706
1330 012712
1331 012716
1332 012722
1333 012726

«SBTTL

PAGE 37

s+THE FOLLOWING ROUTINE BUILDS TH E CORRECT SEQUENCE MSG TO BE
;*PRINTED AS AN ERROR MSG BY "ERRHAN''
[=i{=l=lelelele]
Oeded
et cd O =
S WOWWO
O

s*FIRST DEVICE CODE

;+# OF CONTINUATION CHIPS FOR FIRST DEVICE
::SECOND DEVICE CODE. ETC

i+
bR

:#FOURTH (LAST) DEVICE CODE
s *EXTRA CONTINUATION CHIP ERROR FLAG
;+*MISSING CONTINUATION CHIP FOR THIS DEVICE
; *ALTERNATE RETURN ADDRESS
ROM FOUND INDICATOR
:
ROM FOUND_ INDICATOR
: *PASSES MSG ADR. TO "ERRHAN'
; +PASSES CR OR HT TO "ERRHAN'

s*ALTERNATE RETURN ADDRESS

----'90’53“2-w
“eSBNgIeCVAtBvSnyNVAtSCBuBtNAIeVaStMCABaEStBgItCgMVSaBetNERgeIrCLSgBMALTSVmBaRLlECtSRSCSISCSNSCS&NSS&N«CmMS&V-/NCA/uNmwA/lmCmAVYVEcAeN“CV.2tmm't.'“”’-t[maTUo}
gSJgS2O3TyNVSI~NneVATB1aNYBNaGyI)SvW~Sg.4Neny4S(g5NBLgSNY~g"VA7eRiNS(mNsiLgWSg“.QBSn]MiiN3(P)iN~4WNgVA%T(SBS8uNi]NgA(g4.TA7SiBn.eIN%NVmNSSRGYNN"PVAg?e[aS8yegvVgNgN3g.VBesX5aLUONBGN1ImPoBgNRS1gGMBNouAie.N1mHNo"vBG1NoRNBoB»GGN2NNM0eoVoN2NNNBsAIoBeG2N%UeN0BN)2B9‘B\.Bn\L2—O-<A—N—wBVOhN2a—9ULN—aBUGv_:cI‘V2%Hg—rWN0-Ntf—vm2—r9BlgR——VhO2%3029BO0H%00B”2“%O0¥M0“2“003M4o030423%“0430@0w3<Mw"oa]~..~Me—n
eRtyEetyrBtaBtatEataRtaRE‘sI *&sct&at&et-eQEMQESIA*srsrsra<tantaractacracracacrs
33783

T=edl=l{=l=loleleloleleTete
-~

BUILDING CORRECT SEQUENCE MSG FOR

EQO M9312/1144 K124 UBI BOO MACRO M1113

'ERRHAN'

MESTAB

AROMé
MESS24: BROMI

)4——-wwn o—e

oo%]2%Eg= [aV1"2aTOa¥]9I03129T=‘1953£Bp—55E9eg%5E3seoR5g3i-9t5gh=3aw5S=nx=%nn3E=niz1vwEs5O wv AA A A A ALDW W WwW <
—- - - ggg T [

3-MI0MANWMON3A0eNOMm—N=~pOew3tNUMOoN0As~M3oOOOt=U—NoA—PNN3MN=MISTTOAoW=3NUAoO‘NNUU4=oANO-rS=‘—URMNS=O4A=SrON“Ngor=TS=MO=UOONoMNYS4IOTNToN“NIOOoONT—VUe0Noi M“vAogOT—Oo7C4OOg—VgOTWOVTIOMgNTIeIOWTTIbNe9TOMNIDMTOeTNMONOYDYOp
c2

ROUTINE

22-JAN-

MESSPT: . WORD
MESS44: AROMI

&®*¥Rx

-—

—E

C.o“-U

ml..lo

Loa”a

—y

o a w 4 et i

| CZM9BEO M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE 37-2
oS

| SYMBOL

SEQUENCE

TABLE

oo - 500090
ACD2 = 000000
ACPUOP= 000000

G
ASDU10= 000900
ADDW12=
ABDU12= 000000

AOMS 035492
AROM31 007206

CLEAR - 013676
CONER1 013060

Mm RN
ARGURD 004503

oW IR
CONGNE= 000400

AROMG

013470

CONER2

073062

LpsTAD O030ta
LOOP 003060

ROMGM 012126
ROMNOM 007355

R W
MESS¢4 013106

B N
ROM?
013520

MESSAG

001112

ROMPTR

007176

013336

Wis= 000000

AUNIT = 000000

ATESTNS= 000000

CONT
0= 091990

meso 0lgass

Rome

3332 = 000000

B0 = 830001

CRCMSG 010236

NOROMM o1osgo

SEQBUF 013040

81702 = 000004
81105 = 000630

ADDWS = 000000

ADDYY = 000000
oOus = 000000
ADEV(CT=

ADEVM =
AENV
=
AENVM =
AFATAL=

000000
000000
000000
000000

BITO0 = 000001

BIT06
BITO?
BITO8
BITO9

=
=
=
=

000100
000200
000400
001000

CON2

CRLF

011742

= 000300

MES?

01117

RSTART

002204

DDTSRC= 19750
DEVCOD 003426

NOROHS

002544

OCASC 003086
OCTBUF 010566

SEQERR= 000200

DISPRE
000174
DRHEAD
007444
DRH4
007524
DRHAG _ 007483

OVER10
OVER11
OVERZ
OVERS

004722
004714
004660
004710

SWR
001104
SWREG
000176
W0~
= 000001
SW00
= 000001

SEQTST 019308
STACK = 001100
=

AAORL= 006000
NMBRSS 000000

012410

BIT10 = 002000
BT = 070000
= 000002

DUPERR= 002000
EMTVEL= 000030
= 177570

PRERR = 000040
PEMSE. 010053
002344

Su02 = 000004
W04 = 000000

BRCES

fibim
m
BITS = 0000

0 M
N
ERNESZ 013043

mdle
PRO = 000000

B
e
W09 = 001000

PHCK

AMAMS 3=

AMAMS4= 000000
AMSGAD= 000000
= 000000
T'P =

wme
g
AMTYP4= 000000

BIT1

BIT4

= 000020

DSWR

EAMESS

01332

PATCHS

PR1

PR2

= 000040

= 000100

APASS = 000000
APRIOR= 000000
APTCSU= 000040

BRHEAD
BROM
BROM1

el
ERRVEC=
010036
01
010074

PS
=
177776
PSW
= 177776
PUTAES 0037

APTER2= 000002

BROMZ1 007229

FILBUF §3m

RDLIN = 1§£uo

= 000004

ERTASG
ERZMSG
ERSASG

W
chal
PR7
=
0

APTSPO= 000100

OCHG

BE
egl
BROM4 1 oorgu.

M
niR
FIRSTB 001114

ARG2
AROM

013076
007306

BUF1 .
BUF2

010502
010362

GTSWR = 1044
HOLCK] TM 012008

RMNUMG

7574
007377

AROM2

013440

CHECKS 002632

torvecs 900020

ROMERR

001110

ARGT

013074

BROMST

007355

FLAG *

013066

RMEMGD66
10441

RMNUM1

757

= 000002

SWl

= 000002

W10 = 002000

G
i
BPTVEC= 000014
007600
007320
013364

W0l

SW1S = 100000

Sug”
SV3
S

Su7

SW8

= 000004
= 00001
= 000020

= 000200

8
S
TEMP 005136
TESTAD

TIRES
TVEC =

000400

TRTVEC= 000014

| CZMIBEO M9312/1144 KT24 UBI BOO MACRO M1113 22-JAN-82 09:18 PAGE 97-§

014014
000000

ERRORS DETECTED:

000
001

VIRTUAL MEMORY USED:
33328 WORDS
( 131 PAGES)
DYNAMIC MEMORY
:
( 77 PAGES)
20034 WORDS

ELAPSED TIME:
00:01:23
CZMSBE .BIN,CZMIBE/CR/~SP/NL
: TOC=CZM9BE .MLB/ML , CZM9BE .P11

SRESRE

SRTNAD

$SAVRE
$SETUP=
$STUP
$SVPC
$SWR
$SWREG
STESTN
$TKB
$TKS
$TN
000001

STYPEX

$TYPOC

$TYPON
$TYPOS

SUNIT

SUNITM
SUSWR
SVECT
SVECT2
SXOFF
$XON

D D

. ABS.

SDEVM
$DOAGN
SENDAD
SENDCT
SENDMG
SENULL
SENV
SENVM
$EOP
SEOPCT
SETABL
SETEND
SFATAL
$FFLG

D d

001222
005514
006006
006543
006536
001166
005535
001224
001226
001250
001252
001254
001256

WVIND W
= N = NO NN
SOOOWORS WO

SMTYP4
SNULL
S$OCNT
$OMODE
$PASS
SPASTM
$QUES
$RDCHR
SRDLIN
$RDSZ =

$TPB
$TPFLG
$TPS
$TRAP
$TRAP2
$TRP = 0090
$TRPAD
$TSTM
1
STTYIN
STYPE
$TYPEC

—

$CDW2
$CHARC
$CKSWR
SCNTLG
SCNTLU
$CPUOP
$CRLF
$ODWO
$00W1
$0DW10
$0DW11
$0DW12
$DDW13

$DDWS
$DDWE
$DDW7
$DDW8
$DDW9
S$DEVCT

SGET42
$GTSWR
$HD
$HIBTS
$INTAG
SLF

SMTYP1

SMTYP?2
SMTYP3

359
38888888
SSRNZZSHaeY3

001124
005564
005540
005546
005556
001100
001214
001220

SFILLC
SFILLS

=4 OO0
o OO0
OOOOS
o GO\ — = YN —
s
O
OO0 WVINN) — -2 N NINW S = 2 NO O NN
COONNCO
SO
2=

$DDW2
$DDW3
$DDW4

001260
001262
001230
001232
001234
001236
001240
001242
00124,
001246
001150
001216
002322
002312
002266
002331
002326
001160
001161
002242
002260
001160
001264
001142
006004

$DDW14

$DDW15

b e NI

104401
104402
104404
104403

NNS
OO NNOWON OWNO W
S OONIONNINON
= SN NONND =N

SAPTHD
SATYC
SATY1
SATY3
SATY4
$AUTOB
$BASE
$COW1

=
=
=
=

—

TYPE
TYPOC
TYPON
TYPOS

SEQUENCE

TABLE

-uwc?gwwmoo

{ SYMBOL

!CZHQBE

CREATED BY

' SYMBOL CROSS REFERENCE
SYMBOL
VAL UE
ABASE
ACDW1

ACDW2

ACPUOP

ADDWO
ADDW1
ADDW10
ADDW11
ADDW1?2

PAGE 1
ON 22-JAN-82 AT 09:19
SEQUENCE
59

REFERENCES

6-477
6-477
6-477
6-477
6477

6-477
6-477
6477
6477
6-477
6-477
6477
6477
6-477
6-477
6-477
6477

ADDW13

ADDW14
ADDW15
ADDW?2

ADDW3

ADDW4
ADDWS
ADDW6
ADDW?7
ADDW8

6477
=477
6-477
6-477

ADDW9

ADEVCT
ADEVM
AENV
AENVM
AFATAL
ALPHCK
AMADR1
AMADR2

6-477
6477
6-477

6-477
35-1251
6-477
6-477
6-477
6-477
6-477
6-477
6-477
6477
6477
6-477
6-477
6-477
6-477
6-477
6-477
6-477
6477
21-1022
21-1022

AMADR
3
AMADR4
AMAMS1
AMAMS
2

AMAMS
3

AMAMS
4
AMSGAD
AMSGLG
AMSGTY

AMTYP1
AMTYP2
AMTYP3
AMTYPS

APASS
APRIOR
APTCSU
APTENV
APTER1

#0446
#4-447
#4=448
#4-449

APTER
APTER
APTER4

APTSIZ
APTSPO
ARG1

MACRO

CREF

6-477
6-477
6=477
6-477
6-477
6-477
6-477
6-477
6-477
6-477
6=477
6=477
6~477
6-477
6=477
6=477
6-477
6477
6-477
6-477
6-477
6-477
6-477
6-477
6-477

#36-1262

6-477
6-477

6-477
6-477
6-477
6-477
6-477
6-477
6-477
6-477
6-477
6-477
6-477
6-477
6-477
#22-1024

22-1024
13-671

7-480

013074

21-1022
17-902

vO1

*34-1216

#22-1024

f§2-10 2 4
4=1221

+36-1280

+37-1326

#37-1374

C(ZM9BE

T
CREATED
BY

SYMBOL CROSS REFERENCE
VAL UE
SYMBOL
ARG?
013076
AROM

AROM1
AROM11
AROM2
AROM21

AROM3
AROM31

AROMS
AROM4
1

ARQOM51

AROUND
ASWREG

ATESTN
AUNIT
AUSWR
AVECT1
-

BEIRGRIR28°

Bt m
Bt Bt

g Bt b

Bt B

g Bt Bt B

o e o o e o e o o e e e e
SNOOWVMISN
NN = —m
b
Vi
n, 20O

e e

] ] ] e e e

Bt Bt g By Bt Bt Bt et Bt et Bt B

00 o o o o G T Co G o O O 0o G C0 00 O 0 0 0D 00 0 (0

—

AVECT?

BIT8

007306
013424
007200
013440

MACR
CRO

ON 22 =JAN-82 AT 09:19
SEQUENCE
S0
PAG"
E 2

CREF

REFERENCES

17-901

«37-1327

7-490

37-1380

#29-1040

37-1381

#29-1041

37-1382

#29-1042

37-1383

#29-1043
#29-1044
17-940

6=477
6-477
6=477
6=477
6=477
6=477
17-882

#4442
#4-442
#4-442
#4442
#4442
#4-642
#4-442
#4-442
#4-442
#4-442
#4-442
#4-442
#4-442
#6-442
#6=4642
#6-442
#4-442
#6-442
#4-442
#6442
#4-442
#4=442

#4-442
#4442
#4-442
#4-442
#4=4642
16-823
7=497

37-1384

#29-1045

37-1385

#29-1046

#17-945

#29-1059

4=442
4=442
4=442
4=442
4=442
4=442
4=44Q
4=442
4=442
4=442
17-879

17-883
17-951

#30-1066
#29-1057
#37-1405
%9-1057
#37-1408

29-1057

vO1

#37-1375

CRCERR
CRCLOP
CRCMSG
CRLF
DAFLAG
DDISP
DEVCOD
DEVF IN
DISPLA
DISPRE
DRHEAD

DRH24

000020
003066
010226
000200
003546
177570
003426
013072
001106
000174
007444

ERRMSG
ERROR

ovon~N
b
e
e

NO NSNS
NN =N wvy
NNHNY—

;e »
N
—b

WwW—ronro

rnown~N
S~

7-6494
16-856

37-1333

16~-808
16-864

18-978

13-684

#17-876

37-1344

21-1022

DRH&44
DSWR
DUPERR
EHEADT
EMTVEC
END
ENDSEQ
ERL
ERMES1

ERMES?2
ERMES3
ERME 54
ERRCNT
ERRHAN

NN NN

104406
011676
013060
013062
013070
013136
000400
001000
011714
011742
001122
= 000015

#32-1091

13-691
+37-1338

NOWOOrROOHhOoON~

#29-1049
7-499

WOV
O —
—=PROWVION =N WO

37-1387
#29-1048

ONMN

CPUTYP
CR

37-1386

#29-1047

WNODO = &5 - = PUNIN = NN —

CCN2

REFERENCES

\ll‘!bb

BROM4
BROM41
BROMS51
BUF1
BUF
2
BUILD
CALSUM
CHECKS
CKSWR
CLEAR
CONER1
CONER?2
CONF IN
CONME
S
CONONE
CONTWO
CON1

013700
007233
013746
007244
007255
010502
010562
013100
003050
002632

—

BROM3
BROM31

ON 22-JAN-82 AT 09:19
SEQUENCE
WWOONO~N

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

1
U
u\u\_oo.é._a_a_._._.

CREATED BY

CZM9BE

#17-959

33-1156
36-1276

#37-1366

#37-1393
#37-1394
#37-1395

34-1222
17-877

#4-4642

17-946

13-672
#32-1096

GTSWR
HOLCK1

HOLCK?2

IOTVEC
LASTAD
LF
LOOP
MESSAG
MESSPT

MESS24
MESS44

MESTAB
MES1

MESZ2

MFPT
MNORM
NODATA
NOROME
NOROMM
NOROMS
OCADD

OCASC
OCTBUF
OUTTAB
OVER1
OVER10
OVER11

OVER2
OVER9

PATCHS
PFERR
PFHEAD
PFMSG

L28233

104405

011176
000007
007350
002630
000100
010330
002544
005140
005034
010566
012666
004406
004722
004714
004660

004710
002344
000040
007735
010252

#32-1095
7-485
#29-1

*7=518

Wil

16-861

#37-1388
#32-1094

x7=507

17-903

17-927

28-1036
28-1036

18-974

18-976

*36-1283

37-1326

012006
012020
000011
000020
003144
000012
003060
001112
013104
013116
013106
013126
010576

7-506

:I.ONO
N

—=WO

—a 00O~

*7-480

W
oo

003140
001114
013066

— e OO —2 NJON —

012322

013102

vO1

OO—=WWO
=

FILTAB
FINISH
FIRSTA
FIRSTB
FLAG
GNS

*7=480

Cooo | V‘:—'u
i1
wWOo~—

FILBUF

CREF

EXCADD

010036
010002
010074
010152
003142
0047 72

REFERENCES
#4442

*
b
NNONWN—= =N

ERIMSG
ER2MSG
ER3MSG
ER4MSG

ON 22-JAN-82 AT 09:19
PAGE 4
SEQUENCE
62
W~

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
ERRVEC
= 000004

MACRO

VOO0~
= b b s |
|
UL
-2 3 \O OO\ =2 3 —3 -3 0D
CO =N NNIVOOOOO
O = WHHONNNN
SO
-

CREATED BY

*Run =Y

| cZM9BE

34-1201

37-1347

17-928

17-932

#12-641
18-979

21-1022

37-1329

#37-1379

36-1280

34-1216

*34-1218

*34-1219

37-1338

*37-1340

*37-1341

O}O-Sggo
16-859
#19-989
19-994

19-1003

#17-949

15-796

17-897

17-941

#32-1093

*36-1282

| CZM9BE

CREATED BY

' SYMBOL CROSS REFERENCE

| SYMBOL

[PIRQ

'PIRQVE
PPF VAR
PROMP

PRO
PR1
PR2
PR3
PR4
PRS
PR6
PR7
PS

PSW

PUTMES

PWRVEC
RDCHR
RDLIN
RESREG

000140
000770
00040
000300
000340
177776
177776
003760
000024
104407
104410
104412
000010

RESVEC
RETURN
RMNUM1
RMNUM2
RMNUM3
RMNUM
RMNUMS
ROMCNT
ROMERR

013064
007266
007271
007274
007277
007302
003046

ROMF IN

001116

ROMNM
ROMNUM
ROMPTR
ROMTYP

ROM1
ROM2
ROM3

ROM4
RSTART
R6

R7
SAVREG
SCOPE
SEQBUF
SEQERR
SEQMSG
SEQTST
STACK
START

001110

012126
007332
007176
012056
013504
013520
013534
013550
002204

MACRO

ON 22-JAN-82 AT 09:19

REFERENCES

#4442
#4442
13-654
7=-541
#4-442
#4-442
#4-442
#4-442
#6=442
#6-442
#4442
#4-442
#4-442
#6-442
13-€52
#4-442

23-1026

#28-1036
17-955
#6-442
*15-784
#29-1050
#29-1051
#29-1052
#29-1053
#29-1054
*11-577
#4-469
*15-796

PAGE

SEQUENCE
63
CREF
vO1

13-689
#13-649

#15-782

4=442

13-659

#16-801

#28-1036

#28-1036
*15-791

29-105
29-105
29-105
29-105
29-105
11-578
*10-562

*34-1206

#4-472
17-939

*16-828

33-1158

*11-593
*11-587
17-887
*36-1279
*7=514

11=594
*11-600
17-897
+36-1294
*7=526

17-911

#29-1039

33-1151
#33-1176

33-1167
29-1039

*7-490
16-832

33-1180

33-1173

#11-610

13-655
17-899

36-1319

+7-528

35-1242

#37-1370

17-910
*13-671
17-906

*13-683
17-908

*13-694
17-941

*13-700
*17-954

7-534

11-578

11-594

14-732

36-1302

37-1388

8-543

x7=-517

*7-518

+20-1020

33-1163

33-1173

16-870

17-925

17-929

36-1262
36-1319

36-1312

36-1316

36-1317

37-1328

#37-1360

*20-1017

16-867

#28-1036

35-1237

N
T T T
N T

$SAPTHD
SASTAT
SATYC
$ATY1
$SATY3
$ATYS

$AUTOB

R L L

#46-458
#6442
#4442
#4-442
#4-442
#6-442
#4442
#4-442
#4-442
#4-442
#4~442
#6-442
#6442
#4-442
#46-442
#46-4642
#6-442
#4442
#6-442
#4442
#4-442
#46-442
#6-442
#4-442
#6-442

23-1026

7=4

7-481

«7=-480

7-481

23-1026

*19-1007

*19-1009
7-532
14-752

#19-1012

16-868

17-881

17-951

#4-442

004342
000060
000064
000034
000014
104401

104402
104404
104403

*19-995
*7=-520
*14-743
14-766

*7-504

#4-442
#46-442
#4~4642
#46-442
7-481

«7-530
*14-750

*16-804

#16-872

«7-480

*7-480

8-543
23-1026

8321026

#28-1036

001124

#5-475

005564
005540
005546
005556
001100

#22-1024
#22-1024

L24332

*19-1005
7-5;3
14-749

21-1022

«7-481

)

#4-4642
#6-4642

ouwm
o

TYPOC
TYPON
TYPOS

23-1026

(LS

TIMES
TKVEC
TPVEC
TRAPVE
TRTVEC
TYPE

R [ [

I
TBITVE
TEMP
TESTAD

L L

SwWé
SW5
Swé
Sw7
Sw8
Sw9

SW2
Sw3

000176
000001
000001
000002
000004
000010

R n

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
STKLMT
= 177774
SWR
001104

MACRO

P
O
BB S0
rororROPONONON oo

CREATED BY

i
JMBJ‘&J‘TJ*&J‘&
110
B

CZM9BE

#22-1024

23-1026

*14~734
14-753

23-1026

*14-738
*14-755

*14-753

21-1022
23-1026

23-1026
24-1028

23-1026

#28-1036

CZM9BE

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
$BASE
001214

$COW1
$CDW2
$CHARC
$CKSWR
SCMTAG
$CNTLG
SCNTLU
$CPUOP
$CRLF
$DDWO
$ODW1
$DDW10
$ODW11

001220
001222
005514
006006
= snwanw
006543
006536
001166
005535
001224
001226
001250
001252

$ODW14
$DDW15
$DDW2
$DDW3
$DDW4
$DDWS
$DDW6
$DDW7
$DDW8
$DDW9
$DEVCT
SDEVM
$DOAGN
$ENDAD
SENDCT
SENDMG

001260
001262
001230
001232
001234
001236
001240
001242
001244
001246
001150
001216
002322
002312
002266

$DDW12
$DDW13

$SENULL
$ENV
SENVM

$EOP
$EOPCT

$ETABL
$ETEND

$SFATAL

001254
001256

MACRO

ON 22-JAN-82 AT 09:19
PAGE 7
SEQUENCE
65

)
REFERENCES
#6-477

#6=477
#6477
*x21-1022
#23-1026
7-480
23-1026
23-1026
#6=477
21-1022
#6-477
#6-477
#6-477
#6=477

#6=-477
#6-477

*21-1022
28-1036
7-480
#23-1026
#23-1026

21-1022
28-1036

%21-1022

#21-1022

21-1022
13-665

21-1022
13-676

#21-1022

23-1026

21=1022

22-1024

«22-1024
#21-1022

#22-1024

13-687

002331

001160

#6=-477

#8-543
7-481

17-936

002242
002260

7-537
*7-480

7=-540
#8-543

#8-543
8-543

002326

001161

001160
001264

001142

8-543

#6-477

#6-477
5-475

#6-477

006004
005532
005531
002302
006056
= 000003
001124
001101

*22-1024
21-1022
21-1022
#8-543
#23-1026
4=440
#5-475
#4-465

SLFLG
$MADR1
$MADR?

006003
001172
001176

x22-1024
#6-477
#6-477

005536

21-1022

v01

13-690
13-696

#6-477
#6-477
#6-477
#6=477
#6-477
#6-477
#6-477
#6-477
#6-477
#6-477
#6=477
#6-477
8-543
4=462
7-480
8-543

$FFLG
SFILLC
$FILLS
$GET42
$GTSWR
$HD
$HIBTS
$INTAG

SLF

CREF

8-543
7-481
#8-543
#8-543
7-480

#8-543
#8-543

13-649

21-1022

22-102¢4

n6-477

*22-1024

*22-1024
21-1022
21-1022

2=1024
1=-10
#21-102

28-1036
4=440

23-1026
21-1022
#22-1024

23-10%6
#21-1022

23-1056
23-1026

23-1026

C2ZM9BE

CREATED BY

SYMBOL CROSS REFERENCE
SY
VALUE
SMADR
001202
SMADRS
001306

SMAIL
SMAMS1

001740
001170
001174

Snanss

SMAMS
SMAMS4
SMBADR
SMFLG
SMNEW
SMSGAD
$MSGLG
SMSGTY
SMSWR
MT
1

001200
007304
001126
006002
006561
001154
001156
001140
006550
01171
001175
001207

sMTYP

MTYP
Wil P4
SNULL
$SOCNT
$OMODE
$PASS
$SPASTM
SQUES
SRDCHR
$RDDEC
SRDL IN
$SRDOCT
$RDSZ
$SRESRE
SRTNAD

SR2A
$SAVRE
$SETUP
$STUP
$SVPC
$SWR

$SWREG
$TESTN
$TKB
$TKS

$TN
$TPB
S$TPFLG
$TPS
$TRAP
$TRAP2

P
=

=
PR

ON 22-JAN-B2 AT 09:19

REFERENCES

#6-477
26-477
$-475
#6-477
#6-477
$6-477
#6-477
#5-475
+22-1026
5%-1026
#6-477
¥6-477
¥6-477
23-1026
#6=477
#6-477
#6-477

5-475

#6-477

7-480

22-1024
#53-1026
#22-1024
#93-1094
55-1024
#23-1026

+22-1024

#22-1024

*22-1026

22-1024

21-1022
+24-1098
+24-1028
«7-480

21-1022
#34-1028
24-1028
7-480

#21-1022
+24-1028
72539

*24-1028
*8-543

#24-1028

*8-543

8-543

21-1022
28-1036

#21-1022
28-1036

23-1026

28-1036

#6-477
1-1022
«34-1008
+24-1098
W6-477
#5-475
21-1022
#93-1026

006420

#93-1026

28-1036

000010
007056
002324

493-1026
#55-1030
#8-543

23-1026
38-1036

T212223
ARk RRN

007020
12222

= 000210
0

001162

05533

005520
9 88°¥§
$

00333,
00136

007114

8-1036
=10

591088

8-1036

28-1036

44s8TM
7-480
7-481
#4459

wiise

4440

#4440

4441

¥6~477

7-480

4=44]

TEoha

4462

7-480

?'}3§3 g?'}g

S
1105
Sh-10%8
33022
"3140
1-1o§§
1-105%
1-10
1-10
5-480
#28-1036
#28-1036 28-1036

7-481

21-1022

22-1024

#4=459
7-480
7-480
#elS9

#4=462

PAGE B

SEQUENCE
66
CREF
V01

001205
005530
007014
007016
001146
001132
0055
006270

= 000124

MACRO

g
459

4459
7-480
7-481
#4-459

#4459

4441

8-543

Helad

Feo

211022

*22-1024

3h-i0g 21-1022
21-1022
#21-1022
21-1o§§ #31-1 gz
21-1022
#21-1022

8-543

7-480
7-480

#4-459

4=459

4=441

4=4641

7-480

23-1026

8-543

23-1026

#21-1022

23-1026

#21-1022

23-1026

¢3-1026

23-1026

CZM9BE

CREATED BY

SYMBOL CROSS REFERENCE

§¥SEOL VA688013

MACRO

ON 22-JAN-82 AT 09:19
PAGE 9
67
SEQUENCE

2555?8?255 28-1036
28-1036
28-1036

$10%

$TRPAD
$TSTM

S$TTYIN
STYPBN

#28-1036

007150
001130

28-1036
#5-475

= swxwwax

28-1036

006526

28-1036

21-1022
#24-1028
24-1028
#24-1028

SVECT1

001210

$XOFF
$XON
$$GET4
$OF ILL
.SASTA
. $X

= 000023
= 000021
= 000000
007015
bbbl
001124

SVECT?2

001164

001212

#28-1036

22-1024

005516
006616
006632
006572

SUSWR

381036
28103
981036
28-1C36
28-1036
28-1036
#23-1026

$TYPEX
$TYPOC
$TYPON
$TYPOS

001152
001134

#28-1036

28-1036
28-1036

23-1026

28-1036
#21-1022

SUNIT
SUNITM

#28-1036

28-1036

28-1036
#28-1036

23-1026

= #wnnnn
005154

005366

8-103
28-1036

28-1036

V01

23-1026

STYPDS
$TYPE

S$TYPEC

#28-1036
28-1036

CREF

21-1022

#6=477
#5-475
#6=477
#6-477

#6=477

21-1022
21-1022
#8-543
*24-1028
22-1024
#5-475

21-1022

21-1022
28-1036
#24-1028
28-1036

21-1022
21-1022
8-543
*24-1028
22-1024
5=475

21-1022

#21-1022

21-1022
28-1036
28-1036

#21-1022

21-1022

23-1026

24-1028

#24-1028

28-1036
28-1036

23-1026

28-1036
28-1036

o8-10%

28-1036

#28-1036
28-1036

6103

28-1036

28-1036
#28-1036

28-1036

28-1036
28-1036

ceions "se-ions

| CZM9BE

CREATED BY

MACRO

MACRO CROSS REFERENCE
MACRO NAME
REFERENCES

COMMEN
ENDCOM
ESCAPE
GETPRI
GE TSWR
MULT
NEWTST
POP
PUSH
REPORT

SETPRI
SETTRA

SETUP
SKIP
SLASH
SPACE
STARS

#a=442
#4~44)
#=442
#4=0440
#4~440
#o=442
#4=442
#4437
#4=437
#4-437
#4-442
#28-1036

28-1036

$SESCA
SSNEWT
$SSET

#4=442
#a=t4)
#o=l42
#4432
#4-436
#21-1022
#4=442
#28-1036
#4=442
#4442
#4-437
#4=442
#4=442
#4-442
#4=442
#o=442
#4=442
#28-1036

$SSETM
$$SKIP
.EQUAT
.EQUIV

#7-480
#4~442
#4-436
#4-429

SWRSU
TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

-HEADE
.SETUP
. SWRHI
.SWRLO

.SACT1
.SAPTB
.SASTA
-SCATC
-SCMTA
. SEOP
. SREAD
. $SAVE

28-1036

4=442
4=442
#4-437
#4-435
#4-437
#4441
#4437
#4-436
#4-436
#4-436
#4435
#4435
#4435
#4-435
#4-438
#4-435

ON 22-JAN-82 AT 09:19
PAGE 10
SEQUENCE
68
CREF
Vo1

#7-481

7-481

#4-442
Wo=l42
#o=442

#27-1034

28-1036

7-480
#4442
#4=442
#22-1024
#7-480

#4=445

#23-1026

#4-462
#23-1026

#5-475
#23-1026

#5-475
#24-1028

#5-475
#25-1030

#6=477
#28-1036

28-1036

4=44
4=44
4=44

4=44
4=44

4=442
4~442

4-442

4-442
4-4642

4-442
4=442

#8-543

#6-442

#23-1026

28-1036

#7-480

4-442
#4-439

22-1024
#4-458

#8-543
#23-1026

25-1030

4=442
4=442
4-442

| CZM9BE

CREATED BY

MACRO

ON 22-JAN-82 AT 09:19

MACRO CROSS REFERENCE
MACRO NAME
REFERENCES
.STRAP
#4-437
#28-1036

.STYPE
.$TYPO

#4-435
#4-438

#21-1022
24-1028

PAGE 11

SEQUENCE

CREF

vO1