Digital PDFs

AH-E058D-MC

January 1980

59 pages

Original

3.0MB

view download

OCR Version

2.5MB

view download

Document:	CZM9BD0 M9312 M9312-1144 UBI BOOT JAN 1980 bw
Order Number:	AH-E058D-MC
Revision:	000
Pages:	59
Original Filename:	CZM9BD0__M9312__M9312-1144_UBI_BOOT__AH-E058D-MC__JAN_1980_bw.pdf

OCR Text

M 93 1 2

M9312/1144
UBI BOOT

CZM9BDO

AH-E058D-MC

JAN 1980

FICHE 1 OF 1

MADE IN USA

copvrigHT 78-s0

O OOE0

1980

MACRO M1111

/1744 8] BOOT

24=-SEP=79 16:37

PAGE 59

SEQ 0001

ICENTIFICATION
PRODUCT (ODE:

AC-E057D-M(

PRODUCT NAME:

CZM9RD0 M9312/1144 R] BOOT

DATE :

oCcT 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE

INFORMATION IN THIS

FHANGE

WITHOUT NOTICE

SIGITAL

EQUIPMENT

DOCUMENT

SUBJECT

AND SHOULD NOT BE

AS A [OMM]ITMENT BY DITITAL EQUIPMENT

CORPORATION

RESPONSIBILITY FOR ANY ERRORS
+HIS

DOCUMENT.

THE

(CORPORATION.

THAT MAY

SOF TWARE

CONSTRUED

ASSUMES

APPEAR

DESCRIBED

THIS

DOCUMENT IS FURNISHED UNDER A LICENSE AND MAY ONL
Y
BE
SUED OR (COPIED IN ACCORDANCE WITH THE TERMS Of
SUCH LICENSE.

DIGITAL

EQUIPMENT

RESPONSIBILITY

FOR

S%I:IQRE ON EQUIPMENT
L.

T ORPORAT
| ON

(()

'978,

(ORPORATION

THE

USE

THAT

1979

ASSUME S

OR RELIABILITY OF

NOT

SUPPLIED

Dl5l7Al

ITS

EQuU [Pkt

mGIT

*Tes Bl BANOT

(RO M1111

24=SEP=79 16:37

PAGE 60

SEQ 0007

HISTORY SECTION

PBRDAD WAS RELEASED MAR(CH, 1978,
PBRDB0O WAS RELEASED JUNE, 1978,
PBRD440O WAS RELEASED JANUARY, 1979
“ITMIBD) WAS RELEASED OCTOBER 1979
REvISION 8 WAS CREATED

TO PROVIDE

THE

FOLLOWING ENHANCEMENTS:

1. PROPERLY CHECK THE BOOT ROM'S ALPHABET!C SEQUENCE AND,
If NOT IN CORRECT SEQUENCE, PRINT THE CORRECT SEQUENCE
AN ERROR MESSAGE.

ALSO CHECK FOR NC HOLES AND (HE(CK

FOR ROM IN SO(KET #2 IF

11/60 AND ONLY ONE ROM EX[STS,

ELSE PRINT THE CORRECT SEQUENCE.
.

THE DIAGNOSTIC CANNOT DETERMINE

(ONTINUATION ROM.

AS EXTENSIONS OF

PLACEMENT OF

THEREFORE,

THE DEVICE

FOR A

CONTINUATION ROMS ARE

THE PRECEEDINC DEVICE

CONTINUATJON ROMS ARE

MESSAGES.
A DUPLICATE
AN ERROR MESSAGE.

CODE

REPORTED

ROM.

TREATED

ILLECAL

IN ERROR

DEVICE ROM IS ALSO REPORTED

COMMENT FIELDS BEGINNING WITH THE (HARACTERS '’ +"'
IDENTIFY ALL LINES ADDED Ok MODIFIED BY REV BO.
REV.SION

(

wWAS

(REATED

TO PROVIDE

FOLLOWING ENHANCEMENTS:

TO UPDATE

TO ADD A ' NO ROMS FOUND ' MESSAGE.

THE

DIAGNOSTIC BASED ON FAULT

M9312 MODULE.

INSERTION OF

TO SIZE FOR A FALSE ERROR CAUSED BY A REAL FAJLURE TO

FIND

THE

PRESENT.

(WHICH

POWER FAIL VECTOR WHEN ONLY
THIS

SHOULD

NOT

WAS

IN REV.

IN PRINTING MODE

TREATED

PREVIOULY

DISABLED DUE

THE

CPU ROM S
FATAL

ERROR

APT WOULD NOT

TO THIS ERROR.

RUN

COMMENT FIELDS BEGINNING WITH THE (HARATERS '';-'"
IDENTIFY ALL LINES
ADDED OR MODIFIED BY REV. C.
REVISION D WwAS

MODULE

(REATED

TO ACCOMODATE

HAS LOGIC

SINCC

WHICH

TESTING OF

11/44

UBI

FUNCTIONALLY EQUIVALENT

THE M9312,

THE DIAGNOSTIC CALLS OUT E NUMBERS REFERENCING

4 BOOTSTRAP £

BOOT

DJAGNOSTIC

INSTRUCTION TO DETERMINE
THEN USE

SET

ROM

IC'S,

CPU IS 11/44.

USE MFPT

NUMBERS TONSISTENT W!TH UBI MODULE.

COMMENT FIELDS BEGINNING WITH THE (HARACTERS “‘;ae«"’
IDENTIFY ALL _INES
fDDED OR MODIFIED 8Y REvV. D.
SREW

MODULE.

THE

- IMQBD M932/1144 UB! 8007

MA RO M1111

24=SEP=79

D T

16:37

PAGE 60-1

SEQ 0003

ABSTRA(T

THIS PROGRAM VERIFIES THE ROM INFORMATION FOR THE M9312 BOOTTRAP
TERMINATOR OR 11/44 UB] TERMINATOR,
IT
HAS
TwO MODES OF OPERATION;

roy

REQUIREMENTS

—

wril(H4 REQUIRES OPERATOR

HARDWARE

INTERVENTION AND APT-MODE
.

ANY PDP-11 UNIBUS PROCESSOR w!Th (UNSOLE
SWITCH REGISTER
M3312 BOOT STRAP TERMINAIOR

TERMINAL

STAND-A[ ONE MODE

AND/OR HARDWARE

4K MEMORY

NOTE:

2.2

11744 (P, M9312 BOUTSTRKAP TERMINATOR IS NOT NEFDED

SOF 1WARF
THIS

PROGRAM

PROCESSOR,

APPROPRIATE

REQUIRES

THMAT

MEMORY AND (ONSOLE
DIAGNCSTICS.

3.0

LOADING AND STARTING PROCEDURES

3.1

LOAD THE PROGRAM BY ANY OF

3.2

STARTING ADDRESS

THE

C(ORRE(CT

TERMINAL

OPERATION

HAVE BEEN VERIFIED BY

THE

STANDARD PROCEDURES FOR ABSOLUTE PROGRAM FORMATS.

200- DO CRC VERIFICATION AND SIZING

3.3

RESTART ADDRESS

204- RESTART WITHOUT SIZING

’.L

SPECIAL
THIS

FNVIRONMENTS

PROGRAM

FOLLOW STANDARD

APT

(OMPATIBLE

APT PROCEDURES

OPERATING PROCEDURE
¢
OPERAT [ONAL

SWIT.H SETTINGS

>EE

SECTION

FOR LOADING

FOR

ANL

ETABLE

S TARTING.

SET-UP,

{IMIBD. Y91+72/1144 1B1 BOOT

MACRO MI111

TRE PROGRAM IS CESIONED TD

24=SEP=79

USE

THE

6:37

HARDWARE

HOWEVER
[f
THIS REGISTER IS NOT AVAILABLE
LOCATION 176 AS THE SWITCH REGISTER.

PAGE 60-2

SwWIT(H

SEQ 0004

REGITTER,

THE PROGRAM WILL USE

*6=1 OR UP=-= HALT ON ERROR
SW 13=1 DR UP== [NHIBIT ERROR TYPEOQUTS
10=1

6.2

OR UP=-- BELL

EXECUTION TIMES

EXECUTION TIME
FIRST PASS.

6.3

ON ERROR

APT

[S DEPENDENT ON THE CONSOLE

ALL

OTHER PASSES

TAKE

LESS

THEN

TERMINAL
1

SFCOND.

OURING

THE

PROCEDURES

THERE
(BIT

ARE TWO CHOICES WwHEN RUNNING UNDER APT,
7-$ENVM)
IS
(LEAR
THE
PROGRAM
WILL

[F
THE
OPEPATE

SIZE
BIT
[N NORMAL

STAND-ALONE MODE.
IF THE
SIZE
BIT
IS
SET
THE
PROGRAM
WILL
COMPARE
PARAMETERS FROM THE BOARD TO THE CONTENTS OF THE ETABLE.
;OIgSERg?S APT COMPARSION FEATURE THE ETABLE MUST BE
SET
UP
IN
HIS

;

SENV:

DON'T

SUSWR:
$(PUQP:
$MAMS T :
MTYPT:
$MADR1 :

NOT
NOT
NOT
NOT
NOT

$SMADR? :

NOT USED

SENVM:
$SAREG:

EMAMS? :
MTYP?:

tMAMS 3 :
MTYP3:
$MADR3:

SMAMSY :
TMAMSS :
MTYPG :

$MADRY :

sVECTI:

by
$BASE
$DEVM:
$(DW1:
$(DW2:
$ODWO :
oDu1S

NOTE:

CARE

200 OR 240
DON'T CAKRE
UJSED
USED
USED
USED
USED

NOT USED
NOT USED

NOT USED
NOT USED
NOT USED

NOT USED

NOT USED
NOT USED

NOT USED

NOT USED
PSEUDO POWER-FAIL VECTOR ADDRESS
NOT USED
CONTENTS OF

NOT USED
DEVICE
FIRST

ADDRESS

IN $BASE

CNDES EXPECTED

LETTER/SECOND

LETTER

THE ORDER FOR LOADING $DDWO IS IMPORTANT.

THE

FIRST

C2M3BDY MI3°2/1144 UB] BOOT

MACRO M1111

24=SEP=79 16:37

PAGE 60-3

SEQ 0005

VALUE SHOULC BE FOR "HE DIAGNOSTIC / (PU ROM, FOLLOWED
BY THE APPROPRIATE OCTAL V\LUES FOR THE BOOT ROMS PRESENT.
SOME

OCTAL

OCTAL DATA

0Z0%50~ "

041460
042113
062114
042130
346524
o

MNEMC* "

PIN LABELING

2LBFTTM""

0
DK
DL
DX
M1

756A9
75149
753A9
75749

233F1

04160

VALUES USED ARE:

SUBROUTINE ABSTRA(TS
NOROMS
TH'S ROUTINE

CALLED ONLY

NO ROMS WERZ

“OUND

DURING

SIZING

IT
DOES
A
READ OF ALL BOOTSTRAP ROM ALDRESSES AND (OMPARES
CONTENTS TO A KNOWN EXPECTED VALUE.

5.2

THE

CHECKS
THIS ROUTINE SETS P THE FIRS:, LAST AND EXCEPTION
ADDRESSES
FOR
THF
"'CAUSUM"' SUBROUTINE.
IT RECIEVES THE CALCULATED (HECKSUM FROM
‘EAL SURT' AND COMPARES IT AGAINST THE GOOD CHECKSUM
TO
DETERMINE
CRC ERRNRS,

5.3

CALSUM
THIS ROUTINE CALCULATES THE
(R({16
(HECKSUM
OF
FACH
ROM,
IT
RECEIVES
THE
FIRST
ADDRESS
TO
BE
C(HECKED(FIRSTA,,
THE LAST
ADDRESS TO BE C(HECKED
(I ASTAD) AND THE EXCEPTION ADDRESS
(EXCADD)
FROM THE ''CHECKS'' MODULE AND RETURNS i0 [T THE (HECKSUM,IN R4.

PkUMP

THIS

ROUTINE

PROCESSES

THE

ROM PARAMETERS.

C(HECKS

THF

SIZE/

DON'T
SIZE
BIT
IN THE APT ETABLE AND EIThtR FORMATS THE SIZING
g[?iAGES OR (OMPARES THE 5]ZING INFORMATION
TO
THE
APT
ETARLE
ATA,

DEVCOD
THIS ROUTINE

LOCATES EA(CH DEVICE

ADDRESS IN WHICH IT WAS FOUND BACK

(ODE

AND

TO THE

PASSES

'PROMP'' MODULE.

AND

Tht

C2MIB00 M93° 271144 UB] BOOT

5.6

MACRO M1111

24=SEP=77 16:37

PAGE 6U-4

SEQ 0006

PPF VAR

THIS ROUTINE DETERMINES THE PSEUDO POWER=-FAIL VECTOR APDRESS
PASSES IT AND TS (ONTENTS TO THE 'PROMP'' MODULE

AND

PUTMES
THIS
ROUTINE
MESCAG.
..

5.8

FORMATS

THE

PARAMETER

AND

POWER-FAIL

ADDRESS

E RRHAN
THIS ROUTINE FORMATS
ALL
ERROR
MESSAGES
AND
CALLS
THE
TYPE
ROUTINE TO OUTPUT THEM.
[T ALSO USES THE OPERATIONAL SWIT(HES TO
DETERMINE WHETHER TO OUTPUT THE MESSAGE, OR HALT,

5.9

F ILBUF

THIS ROUTINE

RECIEVES

5.10

FILLS

THE

THE ADDRESS OF

MFSCAGE BUFFER WITH ASCII

THE ASCII

IN RS.

CHARACTERS.

OCASC
THIS ROUTINE

6 ASCI]

TAKES A

CHARA(TERS.

SIXTEEN BIT BINARY NUMBER AND

CONVERTS

OCADD
THIS ROUTINF

JUSED 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 ONF LEVEL OF DEFEPMENT.

6.0

RELIABILITY//AVAILABILITY/SERVICEABILITY

WHEN RUNNING

[N ANY ENVIRONMENT BUT APT

ME SSAGE witlL

BE:

DETECTED

(RC ERROR

IHE

PROGRAM.

IN ROM EXX

THIS ERROR

THERE

IS ONLY

ONE

IS A (HECKSUM ERROR.

ERROR

THE

(ZMI9BDO TM9312/1144 UB! BOOT
THE

MACRO M11°1

24=-SEP-79 16:37

FOLLOWING ERROP MESSAGES WERE

ADDED

PAGE 60-5

SEQ 0007

IN REV BO:

1. A CONTINUATION ROM IS INCORRECTLY LOCATED IN ROM X(EXX)
2. A CONTINUATION ROM IS MISSING FOR DEVICE CODE XX
2. THERE ‘IS A DUPLICATE ROM WiTH DEVICE CODE Xx
ROM SEQUENCE IS INCORRECT AS PER INSTALLATION PROCEDURE.
SEQUENCE SHOULD BE:
ROM
ROM
ROM
ROM

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

XX
XX
XX
XX

WHEN RUNNING IN Thi APT ENVIRONMEMT
1.

THREE

OTHER ERRORS MAY OCCUR.

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

COULD NOT

FOUND UNEXPECTED DEVICE CODE XX.

THE

FIRST MESSAGE

LISTED

FIND DEVICE

THE

WILL

CODE

XxX.

PASSED

ETABLE CANNOT BE

THE SECOND MESSAGE WILL BE SENT IF
IN THE ETABLE IS FOUND IN A ROM,

APT

FOUND

THgEPROGRAM.

TO BF

WILL

POWER-FAIL

EXPECTED

A DEVICE

IN THE BOARDS'

DEVICE

CODE

NOT

CODE

IN THE EXISTING ROMS.

THE SECOND ERROR W'LL BE
IF
THE
PSEUDO
ADDRESS
IN
THE ETABLE DOES NOT MAT(H THE

ETABLE
DO
THE ERROR

LiSTED

POWER-FAIL
VECTOR
ADDRESS DETERIMINED

SWITCHES.

THE

MESSAGE

VECTOR

RECEIVED

WHFRE EXPECTED IS THE CONTENTS OF
THE VALUE FOUND BY THE PROGRAM,

THE

ETABLE

AND RECEIVED

THE THIRD ERROR WILL BE IF THE
CONTENTS
OF
BOARD'S
PSEUDO
POWER-FAIL
VECTOR
ADDRCSS DOES NOT MATCH THE VALUE EXPECTED

FROM

THE

ETABLE.

PCOWER-FAIL

EXPECTED

7.0

NOTE:

THE

MESSAGE

WILL

BE:

DATA ERROR

RECEIVED

DIAGNOSTIC

COVERAGE

THIS DIAGNOSTIC DOESNQT PERFORM ANY EXAMINATION OF
THE BOCT CIRCUITRY
ON THE M9312.
IF YOU WISH TO (HECK THIS
CIRCUITRY YOU MUST FIRST, DETERMINE WHICH DEVICE YOU WILL B00T

AND SECOND,
TO

THE

YOU MUST

APPROPRIATE

SET

SETTINGS.

THE

SWITCHES ON THE M931?2

YOU MAY NOW ATTEMPT

TO BOOT

(ZM9BDO M93°2/1144 UBI BOOT

MACRO M1111

24=SEP=79 16:37

PAGE 60-6

THE MO312 |
IF THE DEVICE DOES BOOT
THIS SHOULD BE
EvVIDENT FROM THE (ONSOLE TERMINAL, IF PRESENT, OP FROM THE RUN
LiGHT ON THE FRONT PANEL,
WHICH SHOULD BE
LI7.

SEQ 0008

{7MGBRDO M93°2/1144 UB] BOOT

MACRD M'111

408
409 000000
410
41

1
J
PAGE 61

24=SEP~79 16:37

SEQ 0009

.ENABLE ABS
JLIST O ME
.NLIST
MC,MD,CND

413
416
ALY
419

423
424
425
426
427
426

JMCALL
.MCALL
MCALL
MCALL

429

MCALL

430

‘TITLE

.SASTAT,.S$SAVE,.S$CATCH,.$CMTAG,.SETUP,.SEOP,
. $TYPE
STARS,.EQUATE,.SAPTHDR,.S$APTRLS,
. SAPTYPE
.SACT11,.HEADER,
.SWRHI ,REPORT, T PNAM,PUSH,POP, . $TRAP
. SREAD, .$TYPOCT
.EQUI

CIMOBDO M9312/1144 UBI BOOT

:+«COPYRIGHT (C) 1978
:*DIGITAL

EQUIPMENT

CORP.

; *MAYNARD, MASS. 01754
[]

{ \OROGRAM BY BARRY G.

IRRGANG

:4THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC
: *PACKAGE (MAINDEC-11-DZQAC=(3). JAN 19, 1977.

431

000001
160000

§TN=1
$SWR-160000
.SBTTL

:HALT ON ERROR,

OPERATIONAL

LOOP ON TEST,

SWITCH SETTINGS

SYSMAC

INHIBIT ERROR TYPOUT

SWITCH

P
.SBTTL

432

STACK=

104000

000004

LOOP ON

TEST

100

THE STACK POINTER #as 1 00 we»

ERROR-EMT

SCOPE=10T

; *MISCELLANEOUS DEF INITIONS

)

HT=
LF=
CRCRLF=
PS-

11
12
15
200
177776
PSW=PS
STKLMT= 177774

177772
177570
177570

PIRGDSWR=
DDISP=

000000

RO=

000001

HALT ON ERROR

13
INHIBIT ERROR TYPEOUTS
BASIC DEFINITIONS

;*INITIAL ADDRESS OF

001100

000011
000012
000015
000200
177776
177776
177774

USE

177772
177570
177570

;;CODE FOR HOR]ZONTAL TAB
::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED
: PROCESSOR STATUS WORD
::STACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
: HARDWARE SWITCH REGISTER
: {HARDWARE DISPLAY REGISTtR

; *GENERAL PURPOSE REGISTER DEF INITIONS

R1-

%0
3

; ;GENERAL REGISTER

;. GENERAL REGISTER

(ZM9BD0 M9312/1144 UB] BOOT

BASIC

DEFINITIONS

MACRO M1111

24 -SEP =79 16:37

PAGE

61-1

R2=

) ¥4

; :GENERAL REGISTER

Ré4=

;;GENERAL REGISTER

R3-

000006
000007
000000
000040
000100
000140
000200
000240
000300
000340

;*PRIORITY LEVEL DEFINITIONS
PRO=
0
::PRIORITY
PR1=
40
::PRIORITY
PR2=
100
::PRIORITY
PR3=
140
::PRIORITY
PR4=
200
" ;:PRIORITY
PRS=
240
:sPRIORITY
PRE=
300
J;PRIORITY
PR7=
340
;:PRIORITY

040000
020000
010060
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004000002
060001

%5
X6
X7
%6
X7

; ;GENERAL REGISTER

RS=
R6R7=
SP=
PC=

100000

SEQ 0010

: ;GENERAL REGISTER
; JGENERAL REGISTER
;s GENERAL REGISTER
::;STACK POINTER
. 7PROGRAM COUNTER
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;' 'SWITCH REGISTER'' SWITCH DEFINITIONS
Swi5=
100000
SWi4=
40000
Swi3=
20000
Sw12=
10000
SWwll=
4000
Sw10=
2000
Sw09=
1000
Sw08=
400
SW07=
200
Swo6=
100
SW05=
40
SW04 =
20
Sw03=
10
SW02=
4
Swo12
Sw00=
1
SW9=SW09
SW8=Sw08
SW7=SW07
SW6=SW06
SWS=SW05
SW4=5W04

Sw2=Sw02 *

SW1=SW01
SWO=SW00

100000

;*DATA BIT DEFINITIONS (BIT00 TO BIT15)
BIT15=
100000

120000

BIT13=

040000

010000
004000
002000
001000
000400
00q200

BIT14=

40000

BIT12=
BIT11=
BIT10=
BIT09=
BITN8BITO7-

10000
4000
2000
1000
400
200

20000

O
1
2
3
4
5
6
7

(ZM9BD0O M9312/1144 UB] BOOT
DEFINITIONS

000100
000040
000020

24~SEP=-79 16:37

BITO6=
BIT05=
BIT04=
EI1T03=
BITO2=
BIT01=
BIT00=

1
L
PAGE 61-2

SEQ 00T

100
40
20
10
&
2
1
BIT9=BIT09
eI T8=RIT08
BIT17=8B1T707
BI116=B1T706
BITS5=8B1T05
BIT4=B81T04
BI1T3=81703
BIT,=8B1T02
BIT =BIT01
BITO=BITO00

. *BAS
"'CPU"" TRAP VECTOR ADDRESSES
;:TIME OUT AND OTHER ERRCRS
4
ERRVE
RESVE
10
::fi$§§gY$D AND ILLEGAL INSTRUCTIONS
TBITVEC=14
;. TRACE TRAP
TRTVE
14

14
BPTVEC=
10TVEC= 20

; ;BREAKPOINT TRAP (BPT)

EMTVEC= 30

:;EMULATOR TRAP (EMT)

PWRVEC=

: INPUT/0UTPUT

;:POWER FAIL

;" TRAP'' TRAP

TRAPVE (=34

TKVEC=
60
TPVEC=
64
PIRQVE (=240

;:TTY KEYBOARD

TRAP

(]0T)

=«SCOPE=+

=+«ERROR=x

VECTOR

::TTY PRINTER VECTOR
: :PROGRAM [INTERRUPT REQUEST

VECTOR

"".t.ttttttt.ttfitttfittl'tttttfi.tttifififitl’t'fitt!Qfilttt"ttttttttttlfi
.

PROGRAM EQUATES

PFERR

APTER1
APTERZ2
APTER3
APTER4
CRCERR

""ttfiitt"'ttfl'itltttttttti'tfilfitttttQtt.Q'..ttttttttt'tttfitt".'

BASI(

MACRO M1111

NOROME =100

SEQERR =200

CONONE -400
CONTWO=1000
DUPERR-2000
.SB:TL

.70

TRAP (CAT(HER

.=0

000174
000176

000174
000000
000000

J*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘', +2 HALTM"'
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

=174
DISPREG: .WORD
0
SWRES:
.WORD
0
.SBTTL
STARTING ADDRESS(ES)

;. SOF TWARE DISPLAY REGISTER
;. SOF TWARE SWIT(H REGISTER

(ZM9BDO M9312/1144 UBI B0QT
STARTING ADDRESS(ES)
000200

451
22% 00020«

000137

000204
000167

454

MACRO M1111

001400

JMP

001730
LSBTTL

000046

456

457
458
459
460
461
462
463
464
465
466

000210
000046
8855?3

000
000
000000
177570
177570
000000
000000
173000
000000
000000

468

HOOKS

3333282222032 222232220222
R
Rt
R X2 R Q)

$SVP(=.
.=46
$ENDAD
-

$AUTOB:
SINTAG:

$SVPC

.=1100

.BYTE
.BYTE
"WORD
SWR:
.WORD
DISPLAY: .WORD
ROMERR: 0
MESSAG: 0
FIRSTB: 173000
ROMF IN: 0
ERRCNT: 0
.SBTTL
BE

:SAVE PC
<:1)SET LOC.46 TO ADDRESS OF $ENDAD IN .SEOP

'WORD

000210

001100

SEQ 0012

RSTART

*HOOKS REQUIRED BY A(CT1"

000052 000000
001100
001101
L,1102
001106
001106
001110
001112
001114
001116
001120

ACT11

PAGE 61-3

a#START ;;JUMP TO STARTING ADDRESS OF PROGRAM

.=204
JMP

24-SEP-79 16:57

;:2)SET LOC.52 TO ZERO
"

“RESTORE PC

0
0
0
DSWR
DDISP

APT PARAMETER BLOCK

2322222332323 8222222233223 233322223233223322233223322323322232R2R
RN

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
" 2322323332382

000024

000044

)

001122
000024
000200
000044
001122
001122

22222322822343232222223332242232232232223823322322322222

.$X=.
.=24
200
=44
$APTHDR
=.$X

::SAVE CURRENT LOCATION
;2SET POWER FAIL TO POINT TO START OF PROGRAM
“'FOR APT START UP
-POINT TO APT INDIRECT ADDRESS PNTR.
::POINT TO APT HEADER BLOCK
-:RESET LOCATION COUNTEFR

. tfitttit*tttfitttfitttfit*ttt'ifitt*itfififitit'ti'i\'fitt‘ttfifittttt!ttti

“SETUP APT PARAMETER BLOCK AS DEFINED
“INTERFACE SPE".

001122
001122
001126
001126
001130
469

001132
001134

000000
001136
000002
000002

000000
000052

$APTHD:
$HIBTS:
$SMBADR:
$TSTM:
$PASTM:
SUNITM:

.WORD
.WORD
.WORD
.WORD

SBTTL

APT MALBOX-ETABLE

.WORD
"WORD

O
MATL
2.
2.

IN THE APT-PDP11

DIAGNOSTIC

::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
: ;ADDRESS OF APT MAILBOX (BITS 0-15)
“'RUN TIM OF LONGEST TEST
::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 MALBOX-E
TABLE (WORDS)

""'*tkt*fifitfifititt'ittfifitti'tttfifi.t'ki.tttitttiitt"ttt'ttttt!t'tt

001136
001136
001140
001142

.EVEN

000000
000000
000000

$MAL :
SMSGTY:
$FATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL

ATESTN

::APT MAILBOY,
- -MESSAGE TYPE {ODE
;;FATAL ERROR NUMBER
;;TEST NUMBER

001156
001157
001160
001162

000
000
000000
000000
000000

$PASS:
.WORD
$DEV(T: .WORD
SUN]T:
.WORD
: . WORD
SMSGAD
$MSGLG: .WORD
$ETABLE:
$ENV:
.BYTE
SENVM:
.BYTE
$SWREG: . WORD
SUSWR:
.WORD
$CPUOP: .WORD

AENV
AcNVM
ASWREG
AUSWR
ACPUOP

LIRS
I
YP

APASS
ADEVCT
AUNIT
AMSGAD
AMSGL
G

000000
000000
000000
000000
000000

166
167

000
000

1:
$MAMS
tMTYPT:

.BYTE
.BYTE

AMAMS
AMTYP1

PACE 61-4

001144
001146
001150
001152

24-SEP-79 16:37

APT MA[LBOX-ETABLE

MACRO M1111

(ZMSBDO M9312/7144 UBI BOOT

;s PASS

SEQ 0013
(OUNT

;.DEVICE COUNT

;2170 ONIT NUMBER
. :MESSAGE ADDRESS
s :MESSAGE LENGTH
;;APT ENVIRONMENT TABLE
. ;ENVIRONMENT BYTE
; ;ENVIRONMENT MODE BITS
;;APT

SWITCH REGISTER

;JUSER SWITCHES
::CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

11704=01,11/05=02.11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,Q0=10
81T 10=REAL TIME CLOCK
BIT
O9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT

;:HIGH ADDRESS.M.S. BYTE
;:MEM. TYPE ,BLKA1

MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003

$MADR:

AMADR

;:HIGH ADDRESS .BLK#1

SMAMSZ:
sMTYP?2:
$MADRZ:
SMAMSS.
MTYP3:
$MADR3:
SMAMSS:
MTYPG:
$MADRS:
SVECT1:

.
.

AMAMS
2
AMTYP?2
AMADR?
AMAMS
3
AMTYP3
AMADR3
4
AMAMS
AMTYP
AMADRY
AVECT
AVECT?2

. M.S. BYTE
;;HIGH ADDRESS

SVECTZ:

$BASE:
$DEVM:
$COW1:
$CDW2:
$DDWO:
$DDOW1:

$DDW2:
$DDW3:
$DDW4:
$DDOWS:
$DDWS:
$DDW7:
$DDWS:
$0DW9:
$DDW10:
$ODW11:
$ODW12:
$DDW13:
$DDW14:
$ODW15:

.
.
.
.
.

;;MEM.LAST ADDRESS .,BLKA#?
;;HIGH ADDRESS ,M.S.BYTE
; ;MEM,_TYPE ,BLKA3

:JMEM.LAST ADDRESS,BLK#3
;sHIGH ADDRESS ,M.S.BYTE
:;MEM.TYPE ,BLK#G
;:MEM_LLAST ADDRESS .,BLK#4

ADDWS
ADDW6
ADDW7
ADDWS
ADDW9
ADDW10
ADDW11
ADDW1?2
ADDW14
ADDW1S

14
;<DEVICE DESCRIPTOR WORDA
;.DEVICE DESCRIPTOR WORD#15

ABASE
ADEVM
ACDW1
ACDW?2
ADDWO

ADDW4

.
.
.

;;MEM.
TYPE ,BLKA#2

;; INTERRUPT VECTOR#1,BUS PRIORITY#
;; INTERRUPT VECTOR#2BUS PRIORITY#?
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
:.DEVICE MAP
;;CONTROLLER DESCRIPTION WORD#1
. ;CONTROLLER DESCRIPTION WORD#?
;:DEVICE DESCRIPTOR WORD#0
;:DEVICE DESCRIFTOR WORD#1
;;DEVICE DESCRIPTOR WORD#?2
;:DEVICE DESCRIPTOR WORDA3
;.DEVICE DESCRIPTOR WORDA#4
. :DEVICE DESCRIPTOR WORDAS
;;DEVICE DESCRIPTOR WORD#6
;:DEVICE DESCRJPTOR WORD#/7
;:DEVICE DESCRIPTOR WORDA8
;:DEVICE DESCRIPTOR WORD#9
"{
..DEVICE DESCRIPTOR WORD#
.;DEVICE DESCRIPTOR WORDA1|
1?2
;.DEVICE DESCRIPTOR WORD#

ADDW1
ADDW?2
ADDW3

.
.
.

MEM.LAST ADDR.=3 BYTES.THIS WORD AND LOW OF

ADDW13

;;DEVICE DESCRIPTOR WORD#13

'‘TYPE'' ABOVE

(2M9BD0 M93°2/1144 UB] BOCT
APT MA[_BOX-E TABLE

MACRO M'111

477
«72 001400

000007

.=1400

START:

012706

001100

001604

012737

006564

001620

005067

177520

00164264

012737

1.030

LSBTTL

000034

000036

016767

000572

000562

001432
001426

013746
012737

000004
001472

000004

001466

001012

001444
001452
001460

012767
012767
022777

001470

000403

00°476
001500
001506
001514

000002
012767
012767
012637

001520
001526
001532
881223

005067
132767
001403
012767

001472

012716

177570
177570
177777

001500
000176
000174
000004
177420
000200

‘77425

001160

177342

001560

005227
001046
022737
001442

177777
002246

104401

001626

001564
001570
001572
001600
001602

005737
001012
126727
001406
026727

000042

001612
001614

104405
000403

001610

88!2}2

0016c4
001664

476 001664
475 001670

001005

112767

00000?

177276

000176

000001

177254

0004617
013746
012737

SEND(T,$EOPCT

$PASS

S;CLEAR THE PASS COUNT

::SETUP END-OF ~PROGRAM COUNTER

MOV
MOV

SFERRVEC,-(SP)
#6468, FERRVEC

;:SAVE ERROR VECTOR
::SET UP ERROR VECTOR

BNE

663

S:BRANCH IF NO TIMEOUT TRAP OCCURRED

MOV
MOV
CMP
BR

MOV

#DSWR, SWR
#DDISP.DISPLAY
#-1,3SWR
65%

#65%. (5P)

SISETUP FOR A HARDWARE SWICH REGISTER
:-AND A HARDWARE DISPLAY REGISTER
S:TRY TO REFERENCE HARDWARE SWR

SCAND

THE HARDWARE SWR [S NOT

“'BRANCH [F NO TIMEOUT

S3SET UP FOR TRAP RETURN

668 :

RT]
MOV
MOV
MOV

CLR
BITR
BEQ
MOV

_SBTTL
::TYPE

TYPE PROGRAM NAME
THE NAME OF THE PROGRAM

LSBTTL

TYPE
_69%
GET VALUE FOR SOF TWARE

STYPE ASCIZ STRING
SWITCH REGISTER

65$:

INC
BNE
P
BEQ

ST
BNE
(MPB
BEQ
P

BNE
;9::

o8%:
000010

MmOV

IF NOT FOUND OR IT IS
SCEQUAL TO A '=1'", SETUP FOR A SOF TWARE SWITCH REGISTER.

;:69%:

000010
001726

#3460, @FTRAPVEC+2;
LEVEL 7

;:SIZE FOR A HARDWARE SWITCH REGISTER.

000042

177360

MOV
FLR

648
177376
177372

INITIALIZE THE COMMON TAGS
MOV
#STACK,SP
;:SETUP THE STACK POINTER

;:INITIALIZE A FEW VECTORS
MOV
#STRAP ,S#TRAPVEC :;TRAP VECTOR FOR TRAP CALLS

177432
17742%
177416

473

001542
001546
001550
001556

SEQ 0914

MFPT=000007

001400

001412

8 ¢
PAGE 61-5

SETEND:

001262
470

24=-SEP-79 16:37

GTSWR
8R

#SWREG, SWR
;:POINT TO SOF TWARE SWR
#D1SPREG,DISPLA®
(SP)+ ,@#ERRVEC
;:RESTORE ERROR VE(TOR
$PASS
#APTSIZE.SENVM
678
#SSWREG, SWR

rs
688
#SENDAD , 362
688

w2
708
SENV A1
708
SwR , #SWRE

718
71%

;;CLEAR PASS COUNT
:-TEST 1JSER SIZE UNDER APT
SIYES,USE NON-APT SW]TCH
“ NO.USE APT SWITCH REGISIER
FIRST

PASS

S FIRST TIME?
S 'BRANCH IF NO
LIACT-112
SBRANCH !F YES

;:ARE WE RUNNING UNDER XXDP/A(T®
SBRANCH IF YES
:SARE WE RUNNING UNDER APT?
SBRANCH IF YES
. SOF TWARE SWITCH REC SELE(TED®

:;BRANCH IF NO

S GET SOFT-SWR SETTINGS

MOVEB

#1,SAUTOB

;:SET AUTO-MODE

INDICATOR

B8R
LASCIZ

68%
- -GET OVER THE ASCIZ
<CRLF>+(2M98D0 MH$12/1144 UB] BOCT*<(RLF>

MOV
MOV

a10,-(SP)
#108,3410

cev SAVE VECTOR ON STA(K
tas SET ERROR VE(TOR

-1

( JMIBDO M93°2/1144 UBI 8007
MACRO M1111
GET vALUE FOR SOF TWARE SWlT(H PEGISTER

001676
0C1709
001704
001706
001714
001722
001724
001730
001732
00173
001742
001744
001750
4,89 001752

476
477
478
479
80
481
8?2
483
484
485
486
487
<88

490 001756
4,91 001762
(9?2

493
[AeTA
495
«96
497
498
499

500
501
502
03
504
505

000007
107700

001012
012737
012737
000403
012716
000002
012637
012700
005020
020027
002774
005037
005037
004767
013746
012737
122737
001414
012700
005720

020027
001374
012737

012330
006650

i
i
i

00O
N
NN —

012326

006646

:
108

000010

12%:

007722

8$:

010006
001116
004040
007130
000004
002034
172777

1%:

166000

00000

001116

003374
001310
177776

5%:

001300

010210
177010
00111¢
010174
000200

003374

174000

003374

001116

’$:
LY

00012¢
000206
001144

000510
007220

6%:

MOV
(TMmPB
BEQ
MOV
TST

‘AR

nG,

MOV

»,

BITR
8EQ
cTMP

BNE
8IS
BIS
BR
8IS
BIS

#200,
7%
#-2,
A 3
RO,
RO,
(A 3
RO,
RO

ROL

MOV

ADD

oSNE

TST

aNF [RSTR,

$EOP

END OF

SFERRVE
(

DEVF IN

aNSPASS

PC,
PC L4
PASS ROUTINE

ERROR VECTOR

JCLR SIZING BUFFERS
JHAVE WE CLEARED THE WHOLE
;JBUFFER ,NO,GO BACK
JINITIALIZE ROM FOUND INDICATORS
JINITIALIZE ENTRY COUNTER FOR PUTMES SuUB.
;*CLEAR SOME MORE LOCATIONS
;SAVE CONTENTS OF LOCATION 4
J+SET UP FOR POSSIBLE TRAP

;IF CONTENTS = =1, OR TRAP
. THEN CPU ROM NOT

PLUGGED

;GET FIRST ADDRESS OF ROM SPACE
JIF

THIS INSTRUCTION TRAPS (PU ROM

[N
SNFROMF

;NOT PLUGGED IN
JHAVE WE CHECKED ALL ADDRESSES
JIF NO THEN CONTINUE LOOPING
;IF NO TRAPS OR LOW BYTE OF FIRST

;+IF

SNERRVE(
RO
SNTESTAD
QTESTAD

;ADCDRESS NOT EQUA! -1 ASSUME ROM PRESENT
;NO TRAP JUST RESTORE ERRUEL
TRAP CLFAN OFF

JRESTORE

ERRVEC(C

PC,

PSW

DINITIALIZE ROM FOUND INDICATOR

:GET FIRST BOOT

JIF LOW BYTE HAS BIT 7 SET

;DO NOT SET ROM FOUND INDICATOR
JUNLESS, CONTENTS OF ADDRESS

JEQUAL TO =2.(CONTINUATION ROM)
;+SET CONTINUATION ROM FOUND

IN
SAMROMF

S#TESTAD
SNTESTAD

aNROMF
IN

BNE

J SR

-(R6

(ONF IN
ROMF IN

6%
PC,
$EOP
PC,

JRESTORE

#0( TBUF

STESTAD

8174000,

BNE
JSR
BR
JSR
TST

#16€000

(R6) +,

#200,

;e UB] ROM NUMBERS
;22 'BR IF NO TRAP
:SET UP RETURN VECTOR
;RETURN

”n,

ADD

MOV

NO USE M9312 ROM NUMBERS
Jwe YES USE UB] ROM NUMBERS

65000

(RO)+

B8R

(PU

c RN

ns,
-1,
33
#165000,

RO,
1%

wAT

117677

[N
SNROMF
T IMtS
TLEAR
PC,
SFERRVEC,

(MP
BNE

JSR

.SBTTL

21 ,R0
12%

(SP)+ a0
MBUF 1,
(RO)+
RO,
8%

RSTART:

MOV
MOV
CLR
(MP
BLT

RT]

SEQ 0015
.

MMESS4L ,@MMESSPT
AAROM, @#ROMPTR
12%
#12%,(5P)

MOV

2%:
3%:

PAGE 61-6

MOV
MOV
BR
MOV

(LR
(LR
JSR
MOV

000004
165000

165000

132777

(MP8B
BNE

001732

01373/

VNN
AN NN
N

"PT

000001

000402
062706
012637
012700

001641
022777
001911

24=SEP=79 16:37

J*SET ROM FOUND INDICATOR
;+CONT INUE
JSET ROM FOUND

(HECKS
PROMP

SEQTST

[INDICATOR

;+SET DEVICE ROM FOUND INDICATOR
JUPDATE TEST ADDRESS TO NEXT ROM
JUPDATE ROM FOUND INDICATOR
JHAVE

CHECKED ALL

THE ROMS

;IF NO ZONTINUE CHECKING
;ARE

NORQOMS

INDICATOR

;IF
JIF
;GO
;GO

THERE

ANY ROMS AVA]LABLF

YES GO TO ROM TEST
NO GO TEST NO ROMS
TO END OF PASS
CALCULATE CHECKSUMS

JARE WE ON 1ST PASS
;IF NO SKIP PROCESS OF PARAME TERS
;GO0 PROCESS ROM PARAME TERS
;G0 CHECK SEQUENCE OF DEVICE CODES

.'"'"'.'..'.."'..’Q'.'..."".."‘....'.t...Q"....".l.....llt.t

(2"9BD0 M9312/1144 UB] BNOT

MACRO M1°1

END OF PASS ROUTIME

24=-SEP-79 16:37

——

PAGE 61-7

SEQ 0016

;*INCREMENT THE PASS NUMRER (S$PASS)

.*TYPE

;*]F

"END PASS''

THERES A MONITOR GO TO IT

;«]F THERE ISN'T JUMP TO RSTART
;*1F 1T IS DESIRED TO HAVE A BELL INDICATE
;*SENDMG CAN BE CHANGED TG 7.

002176
002200
002204
002212

000240
005267
042767
005327

002216
00¢220

003017
012737

002224
002226
002232
002236

002214
104401
104401
013700

0L2246
002250
002252
002254

004710
000240
000240
000240

002256
002260
002262
002265
002270
002273
002276

000137
002140
377
015
116
120
123

BEIRRARAS

002242

540 002300
541 002304
542 002310

543 002314

001405

$EOP:

176740

100000

176732
SEQPC(T:
$ENDCT:

002265

002262
000042

377

012
104
101
000

000
105

040
123

$PASS

;s INCREMENT

$DOAGN

;oY ES

. SENDMG
. SENULL

;. TYPE "END PASS'’
;o TYPE A NULL CHARACTER
;.GET MONITOR ADDRESS

#100000,8PASS
sP()’
%P()*.B(PC)*

$GETL2:

a¥s?2 RO

$ENDAD:

PC., (RO

$DOAGN:

SRTINAD:
:
$ENULL
SENDMG:

$DOAGN

THE PASS NUMBER

;;DON'T ALLOW A NEG.
:.LOOP?
;;RESTORE

NUMBER

COUNTER

s .BRANCH IF NO MONITOR

;. CLEAR THE WORLD
;260 TO MONITOR
;s SAVE ROOM

. FOR
JSACTN
a(Pl)+

;;RETURN

-1,-1,0

::NULL CHARA(TER STRING

RSTART

<185<12>/END PASSY

;NO ROMS TEST
;THIS ROUTINE i5 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
JEXPECTED VALUE.
104401
012703
013704

121304

006700

:
NOROMS

002364

1%:

172000

000100
00150¢
000002
173024

553 002354

THE "END OF PASS"' LOCATION

022703

MNORM

MOV #172000,

SMNODATA,
(R3),
2$
(R3),
R4

ANOROME ,

001110
’%:

PC,
.2

#173024,
2s

R3
RL
R4

SFROMERR
ERRHAN

173224

8173224,

17450C

#174000,

g 3

TYPE MESSAGE

THAT NOROMS FOUND

; GET FIRST ADDRESS TO BE READ

“GET ADDRESS OF EXPECTED VALUE
*+DOES RECIEVED VALUE EQUAL EXPECTED
SIF YES CONTINUE TESTING
*+GET SAD VALUE

SIF NO SET ERROR INDICATER

*REPORT ERROR
:+GET TO NEXT EVEN ADDRESS

:+AT A VECTOR ADDRESS?
S +BRANCH IF

YES

:+AT A VECTOR ADDRESS?

;+BRANCH IF YES
‘HAVE

ALL

ADDRESSES BEEN TESTED

END OF

PASS ROUTINE

556 002360
555 002362

003353
000207

557 002364

000777

MACRO

M1111 24=SEP=79 16:37 PAGE £61-5
BGT
NODATA:

;1F NO GO TEST THIS ADDRESS

RTS

,wORD

777

J*A HOLE LOOKS LIKE xxx777

s CHECKSUM ROMS MODULE
:THIS ROUTINE

012737
033737

001424
012737
012737
012737
004767
013703
C20304
001405
052737
004767
012737
012737
012737
012702
006137
033737
001412
004767
011203
020304
001405
052737
00476/
062737
062737
062737
062702
022737
001341
000207

0000N
002602

002602
001116

165775

0¢:2700
002676
002674

000000
165000

000152
165776

000020
001366

173000
173024
173175
173176

002602
002602

002674
002676
002700

MOV
MOV

001116

1%:

2$:

000062

000020
001300

001110

174000

002674

000000

002674
002676
002700

ROMCNT:

DOES A CHECKSUM OF

JSR
MOV
(o
BEQ
8IS
JSR

165776,
R3,

Ré4

18
#CRCERR,
PC

@¥ROMERR
ERRHAN
a#F JRSTA
a#EXCADD
ANLASTAD
R2

#123000,

#173024.
#173175.
2173176,
aW¥ROMCNT
oW#ROMCNT,

MOV
MOV
MOV

ROL
BIT
BEQ
JSR
MOV
(MP
BEQ
8IS

IN
aNROMF

CAL SUM
R3

PC,

(R2),
R3,

#CRCERR,
PC,

JSR

a#ROMERR
ERRHAN
a#Ff JRSTA
a#EXCADD
a#LASTAD
R2
a#F JRSTA

#200,

ADD

ROMS PRESENT

S#LASTAD
aNEXCADD
a#F JRSTA
CALSUM

PC,

MOV

ALL

LIZE RON COUNTER
GNOSTIC ROM PRESENT
NO GO CHECKSUM BOOT ROMS

SNROMCNT
IN
SNROMF

",
aN#ROMCNT,
18
165775,
#0,

CHECKS: MOV
8T
BEQ
MOV

001110

SEQ 0017

(ZMIBDO M9312/1144 UBI BOOT

T UP LAST ADDRESS TO BE
T UP EXCEPTION ADDRESS

JSET UP FIRST ADDRFSS TO BE SUMMED
;GO CALCULATE CHECKSUM
JGET EXPECTED CHECKSUM
; COMPARE (HECKSUMS
JIF CHECKSUMS COMPARE CONTINUE
;IF ERROR SET INDICATER
JREPORT ERROR
JSET UP FIRST ADDRESS TO BE SUMMED
JSET UP EXCEPTION ADDRESS
;SET UP | AST ADDRESS TG BE SUMMED
;GET ADDRESS OF GOOD DATA
;UPDATE ROM COUNTER
;IS ROM PRESENT
;JIF NO, GO UPDATE TO NEXT ROM
JIF YES GO CALCULATE CHECKSUM
JGET EXPECTED CHECKSUM
; COMPARE (HECKSUMS
JIF CHECKSUMS EQUAL CONTINUE
;IF ERROR SET INDICATER
JREPORT ERROR

JUPDATF
JUPDATE
JUPDATE
;UPDATE
JHAVE

FIRST ADDRESS
EXCEPTION ADDRESS
LAST ADDRESS
ADDRESS Of GOOD DATA

ALL

ROMS BEEN CHECKED

;IF NO GO CHECKSUM NEXT ONE
JIF YES RETURN

s CALCULATE

CHECKSUMS MODULE

JTHIS ROUTINE

CALCULATES

THE

CRC16 CHECKSUM OF

THE

CONTENTS

cOF EVERY LOCATION EXCEPT THE EXCEPTION ADDRESS AND LAST ADDR[SS
;OF EVERY ROM
607 002604
608 002606
609 002612
'y 002614

010246
013700
005004
012005

002674

CALSUM:

LOOP:

MOV
MOv

CLR
MOV

RC.
a#F [RSTA,
R4
(RO)+,

=(SP)
RO

SUMMED

;SAVE R?
JGET STARTING ADDRESS

JINITIALIZE (RC WORD
JGET A BYTE
[

(ZM9BD0 M93°2/1144 UB! B00T

END OF

611

PASS ROUTINE

002616
612 00262¢
613 002624
€14 002626
615 002630
616 002632
617 002636
618 002640
619 002644
620 002646
621 002650
622 002652
623 002656
624 002660
625 202662
626 002666
627 002670
628 002672
629
630 002674
631 002676
632 002700
633
634
63S
636
637
638"
639
640
641
642
643 002702
002706
002710
002714
002720
648 002722
649 002726
650 002734
651 002736
652 002742
653 002744
654 002750
655 002752
656 002756
657 002760
658 002764
002770
002774
003000
003002
003004
003006
003010
003012
003020

01,702
000241
006004
006005

000020

012701
040401
042704
050104
005302

120001

102006

003364
020037
00100
005720
020037
101752

MACRO M1111

24=-SEP=-79 16:37
.

CRCLOP:

MOv

mne.,

ROR
ROR

R4
RS

CLC

8v(
MOV

120001
1%:

002676
2%:

002700

012602
000207
FIRSTA:

SEQ 7018
R2

;SET BYTE COUNT

JTHE NEXT NINE LINES
:DO

1%
#120001,

DEC

CMP
BNE

RO,
23

RO,

a#LASTAD

MOV

(SP)+,

B8GT
ST

BLOS

MATH CALCULATIONS

R4,
#120001,

BIS

THE

R1
R4

B8JC
BIC

RTS

000000
000000
000000

F 2
PAGE 61-9

R1,

CRCLOP

(RO)+

LOOP
P(

o#EXCADD

;1S NEXT ADDRESS AN EXCEPTION ADDKESS
;IF NO TEST IT
;IF

YES SKI® ADDRESS

JHAVE ALL LOCATIONS BEEN SUMMED

‘

;1F NO CONTINUE
JRESTORE R2
JIF

YES RETURN

EXCADD: O
LASTAD: O

sPROCESS

ROM PARAMETERS

:THIS ROUTINE

DETERMINES

MODULE

SIZING

TO BE

DONE.

BIT

CLEAR

THE

;MODULE WILL GET THE PARAMETERS FROM THE DEVCOD AND PPF VAR
JMODULES AND ASSEMBLE MESSAGES “O BE OUTPUT.
IF SIZING IS
NOT TO BE DONE THIS MODULF WILL TAKE THE PARAMETERS RECEIVED
JAND COMPARE THEM TO THE VALUES SUPPLIED IN THE ETABLE.
105737
100424

004767
004767
010016
004767
032737
001403
004767
000507
004767
010416
005237
000501
004767
012703
012704
062703
012402
020213
001407
005714
001373
052737
004767

001157

PROMP:

000250
000570
000452
000040

TSTR

001100

JSR
BIT
BEQ

PC,
#PFERR,
10%

PPF VAR
a#ROMERR

gg,

ERRHAN

JSR
MES?
INC
BR
JSR

PC,

PUTME S

égR

000540

10%:

001112

°$:

001222
000602

2%:
3%:

001110

AAME SSAG
9%
PC,

DEVCOD
PUTME S

DEVCOD

SIZE

;IF BIT IS SET DON'T SIZE.
;CALL DEVICE CODE MODULE
.FORMAT PARAMETER MESSAGE
;G0 GET PSEUDO POWER-FAIL VECTOR ADDRESS
;WAS THERE AN ERR
;IF NO GO ¥ ORMAT ME SSAGE
;IF

YES GO REPORT MESSAGE

;FORMAT PSEUDO POWER-FAIL VECTOR
;ADDRESS MESSAGE
;SET MESSAGE INDICATOR
;GO TO EXIT
;CALL GET DEVICE CODE MODULE

MOV
MOV
ADD

#BUF 1,
#$DDWO,
n,

R3
R4
R3

;GET BOARD DEVICE CODES
JGET ETABLE DEVICE CODE PARAME TERS
;GET TO BOARD DEVICE COCE

cMP
BEQ

R2,
3

(R3)

;DO THE TWO DEVICE CODES COMPARE
JIF YES GET NEXT BOARD DEVICE CODE

BNE
815

3s
#APTERT,

MOV
TST

000001
001016

;IF

14
Fo,
PC,

MES

006°110

M SENVM

BM]
JSR
JSR1

JSR

(RG)+,

(R4)

PC,

;GET ETABLE DEVICE

J1F

a#ROME RR
ERIHAN

NO HAVE WE

CODE

CHECKED THE WHOLE

ETABLE

;JF WE HAVEN'T CHECK NEXT ETABLE ENTRY
JIF WE HAVE THEN DEVICE CODE ON BOARD
;DOES NOT

EXIST

IN ETABLE

L IMOBDO M93"2/1144 UB] BOOT

EMD OF PASS ROUTINE
668 003024

669 003030
670 003032
671 003034

672 003040
673
674
675
676
677
678
ggg

001356
012703

012704

000002

007720

062704
023314
001407
005714
001372
052737
004767

681 003072
682 003076
683 003100
684 003102
685 003106
686 003112
687 003116
688 003120

062703
005713
001357
004767
013704
013703
020403
001405

000002

690 003130

004767

000706

691 003134
692
693
694
695
696
6gg

003140
003144
003146
002150
003156
003162

699

700
701

;8§

000004

000002
000750

6$:

001110
7%

000272
001212
010002

052737

000004

013704

001216

013703
(020403
001405
052737
004767
000207

001222

003044
003050
003052
003054
003056
003060
003066

689 003122

001110

000010
000660

001110
98 :

PAGE 61-10

SEQ 0019

ADD

;UPDATE TO NEXT ADDRESS

BNE
MOV

2
#$DDWO

S1F CONTENTS NO EQUAL ZERO CONTINUE
:GET BOARD DEVICE CODES

ADD
(MP
BEQ
ST
BNE
BIS
JSR

",
(R,
7%
(R4)
63
#APTER?,
PC,

ADD
TST
BNE
JSR
MOV
MOV
MP
BEQ

"2,
(R%)
5%
PC,
a¥$BASE ,
NBUF2,
RG,
8$

JSR

PC,

ERRHAN

1GO TO ERROR ROUTINE

R3
R3

:GET BOARD DATA
:DO THE TWO PARAMETER (OMPARE
*1F YES THEN DONE
:SET APT ERROR INDICATOR
150 TO ERROR ROUTINE

TST

MOV

BIS

8% :

010004

24=SEP-79 16:37

MOV

MOV
CMP
8EQ
BIS
JSR
RTS

(R$)

#BUF1-2,

#APTER3,

S4ROMERR

$CDWI,

SBUF 2+2,
RG,
98
NAPTERG,
PC,
PC

“SET APT ERROR INDICATOR

SGET ETABLE DATA

SROMERR
ERRHAN

‘

;GET DEVICE CODES MODULE

:THIS SUBROUTINE LOCATES EACH DEVICE CODE AND PASSES 1T AND
SADDRESS IN WHICH IT WAS FOUND BACK TO THE CALLING ROUTINE.

THE

:DATA IS STORED IN BUFFER "BUF1'' IN THIS FORMAT:

;}2

:+CONTINUATION ROM DATA IS STORED

717
718

.
T

724

:1F CONTENTS EQUAL ZERO-DONE
*1F CONTENTS NO EQUAL ZERO-CONTINUE
GO GET PSEUDO POWER-FAIL VECTOR ADDRESS
*GET ETABLE PPFVA
:GET BOARD PPFVA
‘DO THE TWO PARAMETERS (OMPARE
:1F YES CONTINUE

PPF VAR
R&
R3
R3

:
;

722
723

*GET BOARD DEVICE CODE
:DO THE TWO DEVICE CODES COMPARE
S1F YES GET NEXT ETABLE DEVICE CODE
:1F NO HAVE WE CHECKED ALL THE BOARD
:DEVICE CODES, IF NO CONTINUE
©1F YES ETABLE DEVICE CODE NOT
.NOT ON BOARD

S¥ROMERR
ERRHAN

712

719
;59

:GET ETABLE DEVICE CODES

R4
(R4)

:
;
:
:
;

;}2

S1F CONTENTS EQUALS ZERO WE'RE DONE

704
705
706
767
708

709
710
711

062703

005713

MACRO M1111

o+
D

ot
1

*1F

BUF1:
-

ADDRESS OF FIRST DEVICE CODE
DEVICE CODE
ADDRESS OF SECOND DEVICE CODE
DEVICE CODE
.
.
ADDRESS OF NTH DEVICE

DEVICE CODE

CODE

IN "BiJF1'* AS FOLLOWS:

.
:

CONTINUATION CHIP IDENTIFIER (ALWAYS A +1)
DEVICE CODE (PREVIOUS ROM'S DEVICE CODE.OR =1
.
DIAGNOSTIC ROM PRESENT

[T WILL BE

THE

FIRST DEVICE

]

CODf.

ILLEGAL ROM)

(ZM78D0 M9312/1744 UB] BOOT

END OF

PASS ROUTINE

725
726
727
78
729
730

MACRO M1111

165774
003374
000154
003376
001114

731
732
733
73
735
736 003234
737 003240
738 003242
739 003246
740 003254
741 003256
742 003260
743 003264
744 003266
745 003272

BIT

003374

746 003276
747 003304

000002

748 003306
749 003312

003374
000056
003374
170177

750 003320

751 003324
752 003330
753 003334

003374
4%:

003374
003374

5%:

6%:

002721
000207

174000

8$:

9% :

TESTAD:

DAFLAG:

R1.

NROMF IN

MOV
ROL

SNF JRSTB,
R1

SNTESTAD
.

CLR

BIT

BNE
JSR

SDAFLAG
R1,

43
PC,

CON’

ADD
ROL
BR

#200,
R1
9s

BNF
MOV
MOV

5
SFTESTAD,
STESTAD,

TST

ADD
BR
MOV

BIC

#170177,

SFTESTAD,
#170177.
R2.
R3
8%
R1
Zg,

SADAF LAG

BLT

“1S DIAGNOSTI(

:IF

(RO) +
(RO) +
NTESTAD

“GET ADDRESS OF FIRST BOOT ROM
"UPDATE POINTER TO NEXT RGM

»+1S DEVICE ROM PRESENT

SIF YES GO GET PARAMETERS
“+CHECK FOR CONTINUATION CHIP
“1F NO UPDATE TEST ADDRESS
- JPDATE POINTER TO NEXT ROM

IF ALL ROM CHECKED

DATAFLAG=0 THEN DATA IS DEVICE

“+SAVE ONLY BITS 7.8.9.10,11

CON2
#174000

©GET THE NEW ADDRESS

*+IN R3 ALSO
SCALCULATE DISTANCE BETWEEN
:IS R3 EQUAL TO 0
“IF YES THEN DONE

*ONE BIT FOR EVERY 200
S+CHECK FOR CONTINUATION (HIP

:CHANGE DATA FLAG TO RIGHT DATA TYPf
*HAVE WE

CHECKED ALL

*1F NO CONTINUE
;1F

THE

ROM

YES PETURN

JGET PSEUDO POWER-FAIL VECTOR ADDRESS ROUTINE

770
771
772
773

JWHICH VECTOR WILL BE USED IF POWER-FAIL OPTION ENABLED ON THE
JBOARD.
THE OPTION MUST BE ENABLED AND AT LEAST ONE ADDRESS

. THIS SUBROUTINE

TESTS LOCATIONS

173024 AND '73224

TO DETERMINE

JSWITCH MUST BE 'ON'' OR AN ERROR WILL BE DETECTED.

:THE DATA WILL BE RETURNED IN "BUF2'' IN THE FCRMAT.

774

775
776
777
778 003400

779
780 003416

781

ADD

“1F NO THEN MOVE POINTER

768

769

CODE

“IF DATAFLAG=1 THE DATA IS OFFSET TO NEXT
*STORE ADDRESS OF DEVICE CODE
*STORE DEVICE CODE

R2
N TESTAD

CODE.

“CLR DATA TYPE FLAG

:UPDATE TEST ADDRESS
*GET OVER SOME CODE
*SAVE OLD TEST ADDRESS
SUPDATE TO NEW TEST ADDRESS

SHTESTAD,

ROM PFESENT

NO GO TEST BOOT ROMS

“GET ADDRESS OF DIAG. ROM DEVICE
*STORE ADDRESS OF DEVICE CODE
*STORE DEVICE CODE

“IF

R3
R3

#200,

coM
CMP

SMTESTAD

SINITIALIZE ROM POINTER

:GO SEE

ADD

BIC
SUB
TST
BEQ

DEVF IN

SNDAF LAG

»2,
8s
INTESTAD,
STESTAD,

RTS

000000
000000

RO
R

BMTESTAD
(RO) +
(RO) +

ROL
éfi“

005606

#BUF 1,
”,

#165774,
SNTESTAD,
STESTAD,

SUR'

000200

003376
003374

SEQ 0020

MOV
MOV
MOV

MOV

170177

754 003336

755
756
757
758
759
760
761
762
763
764
765 003374
766 003376
767

1¢-

3¢

003376
003374
000076

BEQ

003374

007054
005666
000200

H 2
PAGE 61-11

STHERE %S ROOM FOR UP TO 12 DEVICE CODES IN TEMP

DEVGOD: MOV
MOV

007722
000007
001116

003164
003170
003174
003200
003202
003210
003214
003220
003224
003232

24=SEP=79 16:37

003416

;

0c2737

001414
012767
004767

173000

173024

003440
005604

006670

PPFVAR:

BUFZ2:

PSEUDO POWER-FAIL VECTOR ADDRESS
CONTENTS OF VECTOR ADDRESS
173024

(MP #173000,

8fQ
MOV

JSR

1%
18,
PC,

RE TURN
HOL (k1

TEST

LOCATION 173024 SELECTED

;1F NOT THEN GO TEST LOCATION 173224
J+SET UP AN ALTERNATE RETURN
J+CHECK FOR A HOLE

£IMoBNC M9312/1°44 UBI BOOT

END Ot

PASS ROUTINE

782 003422
783 003430
784 003436

785 003440
003446

003450
003456
003462
003470
003476
003500
003506

012737
013737
000423
022737

001414
012767
004767
012737

013737

MACRO M1111

24=SEP=-79 16:37

173024
173024

010002
010004

173000

173224

003500
005556

006630

MOV

173224
173224

010202
010004

000040

001110

MOV
MOV
BR
BIS

MOV
MOV

;THIS

000000
004040

005237
012703
022713
001012
012705
004767
000015
062703
000313

004040
007722

012705
004767
000015
012701
013702
012767
012767
112724
112724
004767
062713
004767
004767
000011
112724
112724
112724
062713
004767
004767
000011
112724

007021
000670

112324
112324

00
003670
003674
835 003700
836 003704
837 003706
838 003712

112724

BNE

INC

MOV

CMP
BNE

006754
000714

0000°0
000040

1%:

2%:

INBUF
2
QNBUF
¢ +2
a#ROMERRK

#PFERR,

[N BUFFER ROUTINE
FORMATS

THE

PARAMFTER AND

a(R6),

a#TIMES

SMTIMES
#BUF 1T,
165774,

R3
(R3)

MoV

#DRHEAD,
PC.

ADD
SWAB
MOVB
MOVB
MV

”2,

JSR
(R

000002

000040
000040
000040
000002
000732
000560

MOV

TST

006472
006502

Tan173224

RE TURN

SUBROUTINE

PUTMES:

165774

000001
012326
003622
004006
000015
000012
005440
000004
000764
000612

#173000,

HO.(CK?2

RTS

JPUT MESSAGE
017604
005737
001110

INBUF
2
AHBUF 2+2

JSR

2%:
3%:

SEQ 0021

2173026,

173024,
3s

BR
(MpP
BEQ

1%:

I
2
PAGE 61-12

JSR
(R
MOV
MOV
MOV
MOV
MOVB

(R3)
(R3)+,
(R3)+,
#BRHEAD,

R1
aAMESSPT
[4]
RETURN
FINISH
#5$,
41,

[

JSR

JSR
JSR

PC,
PC.

ADD

HT
MovB
MOvB
MOvB
ADD

JSR
JSR

MOVB
MOVB

(R4)+
+
(R4)
RS

PC,

#CR,
NLF,
PC,

MOVB

FILBUF

#40,
#40,
#40,
2,
PC.
PC,

#40,

ROMTYP

JIF

IT IS THEN STORE ADDRESS

;STORE (ONTENTS OF LOCATION 173024
;60 TO RETURN

;=TEST 1F LOCATION 173224 SELECTED

;IF NOT THEN SET ERROR INDICATOR

J+SET UP AN ALTERNATE RETURN
J+CHECK FOR A HOLE
JIF IT IS THEN STORE ADDRESS
;STORE CONTENTS OF VECTOR
;GET OVER ERROR
;SET ERROR INDICATOR

POWER-FAJIL

MESSAGES.

;GET MESSAGE BUFFER ADDRESS
;1S THIS FIRST TIME THROUGH
JIF NOT FIRST TIME THEN FORMAT POWFR;FAIL MESSAGE
2 TOGGLE WATCHDOG
.GET DATA BUFFER ADDRES>
;1S DIAGNOSTIC ROM PRESENT

;IF NOT DON'T FORMAT DIAG. ROM MESSAGE

JIF IT IS GET DIAG. ROM MESSAGE HEADER
.00 PUT HEADER IN MESSAGE BUFFER

;SKIP OVER ADDRESS OF ASCII
;FORMAT ASCII FOR MESSAGE
JPUT ASCII IN MESSAGE BUFFER

F [LBUF

.GO PUT BOOT ROM HEADER IN MESS. BUF.

;+POINT TO MSG TABLF
J+SET UP AN ALTERNATE RETURN
;+SET UP ANOTHER ALTERNATE RETURN
.PUT A CR/LF HERE

(R4)+
(R4)+

(R3)
0CADD

FILBUF

+
(R4G)
(R4)+
(R4)+

(R3)
OCADD

FILBUF

¢+
(R&4)
+
(R4)

;+POINT

TO DJAGNOSTIC

ROM

;+FIND THE ROM TYPE

JGET FIRST ENTRY POINT

;GG CONVERT OCLTAL T0 ASCII
;GO PUT ENTRY POINT IN MFSSAGE BUF

;GET SECOND ENTRY PQINT

;GO CONVERT OCTAL TO ASCII
;60 PUT ENTRY POINT IN MESSAGE BUF.

(ZM9BDO M9312/1144 UBI BOOT

END OF

PASS ROUTINE

839
840
841
842
843

003716
003722
003726
003732
003734

844 003736
845 003740
846 003742
847 003746
848 003752
849 003756
850 003760
851 003764
852 003766
853 003772
854 003776
855 004000
856 004004
857 004006
858 004012

112724
112724
062703
000313
112324

1123264
000730
012703
012705
004767
000015
022703
001410
004767
004767
000011
062703
000765

MACRO M1111

24=SEP-79 16:37

000040
000011
000002

MOVB
MOVB
ADD

010002
007156
000506

010006

4%:

000640
000466

MOV

MOV
JSR
(R
(MP
BEQ
JSR
JSR
HT
ADD

000062

000015
000012
000000

SWAB
MOVB
MovB
B8R

5%:

000002
6%:

000002

TIMES:

B8R

MOVB
MOVB
CLRB
MOV
TYPE
.WORD
ADD
RT
O

J 2
PAGE 61-13

#60,
MHT,

SEQ 0022
+
(R4)
(R4)+

'¥4

(R3)+,
(R3)+,

(RG)
+
+
(R4)

(R%)

879 004044
880 004050

884 004066
885 004070
886 004076
887 004100
888 004104

012704
005237
032777
001402
104401
006674
032777
001402
000167
013700

890
891
892
893
894
895

012701
000241
006000
103403
062701
090773

882 004062

889 004110

004116
004122
004124
G04126
004130
004134

013767

010516
001120
002000

.0UT.
ERRHAN:

175022

SAVREG
MOV
INC
BIT
BEQ
TYPE

020000
000310
001110
001110
004436

175006

000264

18$:

OVER1:

BIT

BEQ
JMP
MOV
MOV
MoV

’%:

000002

BELL

CLC

IN HEKE

JFORMAT ASCII

;MOV ASCII

FOR MESSAGE

TO MESI

FILBUF

;GO BACK TO START OfF LOOP
;GET DATA BUFFER ADDRESS
;GET POWER~FA[L HEADER ADDKRESS
;GO PUT POWER=FAIL HEADER IN MESSAGE BUF.

;ARE WE

PC,
PC,

OCADD

;GO CONVERT OCTAL

”2,
4%

N#PFHEAD,
PC,

A#BUF 2+4,
5%

#CR,
#LF,

(R4)+
a(R6),

N,
PC

FILBUF

+
(R4)
(Ra)+

NERRMSG,

J1F

YES

DONE

THEN GO RFTURN

TO ASCII

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

;PUT ZERO TERMINATOR AT END OF MESSAGE
;GET MESSAGE BUFFER ADDRESS

(R6)

;GET OVER MESSAGE BUFFER ADDRESS

TYPES

THEM

s INCREMENT ERROR COUNTER
ERROR
ON
;BELL

SMERRCNT
#81T10,

aSwR

431713,

aSWR

JINHIBIT ERROR TYPEOUT
; NO GO THROUGH

RO
OVER9
R1

;GET ERROR CODE
;SAVE ERROR (ODE FOR APT
:GET ERROR HEADER TABLE
.
;C-BIT USED TO STOP STEPPING THROUGH TABLE
;JROTATE ERROR (ODES
;IF C-BIT SET STOP STEPPING
:ég E:?éT CLEAR STEP TO NEXT HEADER

OVER1

OVER10

a#ROMERR,
a#ROMERR,

#EHEADT,

ROR

8CS
ADD
BR

TAB

;UPDATC DATA BUFFER ADDRESS

R3
RS

2%
#BUF2,

;ERROR HANDLER ROUT INE
:6H¥S SUBROUT INE FORMATS THE ERROR MESSAGES THE

104411

;PUT

JBRANCH

(ZM9BDO M9312/1144 UB] BOOT
END Of PASS ROUTINE
896 004136
837 004140
898 004144

899 004146

900 004154
901 004156
902 004164
903 004166
904 004174
905 004200
906 004204
907 004206
908 004210
909 004216
910 004220
911 004226

912 004230
913 004234
914
915
916
917
918

004240
004242
004244
004246
004252

919 004254
920 004256

011105
004767
000015

032767

001063
032767
001411
016767
016705
004767
000446
032737
001424
032737
001415
013700
013701
000247
006000
103402
062701
000773

000427
112324
112324
000416
016603
004767
004767
000011

930 004312
931 004316
932 004322
933 004324
934 004330
935 004334
936 004340
937 004344
938 004346
939 004352
940 004360
941 004362
942
943 004370
944 004372
945 004374
946 004400
947 004402
948 004404
349 004406
950 004412
951 004414
952 004422

004767
004767
000011
112724
112724
112724
005767
001002
000167
022737
001005
032737

016503

014017
000405
004767
010516
000000
000000
004767
010516
032777
001401

24=-SEP-79 16:37

3%:

000320

000040

174734

003600

174724

006126
0061°6

000010

000260

000023

001110

000020

001110

14%:

4%:

000002

5$:
6%:

G00006
000226
000160

7%:

000010

BNE
BIT
BEQ
MOV
MOV
JSR
.WORD
B8R
BIT
BEQ

8%
#3600,
149
ARG2,
ARG1,
PC,
0
8%
K23,
7$

MOV
MOV

SHROMCNT ,
a#ROMPTR,

cLC
ROR
BCS
ADD
BR

MovB
MCVB

000015
000012
000000
174612

8%:

000034
000001

001116

000040

001110

000614

000610

174462

OVERZ2:

SEQ 0023
R5
F ILBUF

#PFERR, ROMERR

#20,
6%

RO
5%
w2,
4%

(R1)+,
(R1)+,

;PUT HEADER ADDRESS IN REGISTER.
;GO PUT HEADER IN ERROR MESSAGE BUF.

;+IS IT A "PPFVAR'' ERROR?

ROMERR
13%
RS
FILBUF
@#ROMERR
a#ROMERR

RO
R1

;+BRANCH [IF YES
J+1S IT A "'SEQTST'' ERROR?
;+BRANCH IF NO
J+PUT #CR OR #HT AT 13%
;+ARG1 CONTAINS ADR. OF MSG
. +PUT DATA INTO BUFFER
s +CONTAINS CR OR HT
;t
;+1S ERROR A CRC, APTER1 OR APTERZ
;IF NO GO FORMAT APTER3, APTER4
;1S ERROR (RC
;IF NO FORMAT APTER1, APTERZ?

;GET ROM COUNTER
;GET ROM NUMBER TABLE

;C-BIT USED TO STOP STEPPING THROUGH TABLE
JROTATE ROM NUMBER
JIF C-BIT SET STOP STEPPING
;JIF C-BIT CLEAR STEP TO NEXT HEADEP
;CONTINUE STEPPING

(R4) +
(R4)+

;PUT ROM NUMBER [N ERROR MESSAGE BUF

BR
MOVB
MovB
BR
MOV
JSR
JSR
HT

8%
(R3)+,
(R3)+,
8s
6(R6),
PC,
PC,

(R4) +

GO TO END OF ROUTINE
;PUT BAD DEVICE CODE IN ERROR MESS.

R3
0CASC
F ILBUF

;GO TO END OF ROUTINE
;GET SAVED EXPECTED VALUE
;GO COVERT OCTAL TO ASCII
;GO PUT DATA IN ERROR MESSAGE BUF.

JSR
JSR
HT
MOVB
Mov8
MOvVB
TST
BNE
JMP
(MP #1,
BNE
BIT

PC,
PC,

10(R6) ,

;GET SAVED RECEIVED VALUE

#CR,
oL,
#0,
SENV

(R4) +
(R4)+
(R4) +

;PUT CR/LF AT END OF MESSAGE

MOV

000210
C00142

100000

(R1),
PC,

8IT
BEQ

002602
006646

PAGE 61-14

MOV
JSR
CR

BIT

13%:

112124
112124

921 004260
922 004262
923 004264
926 0U4266
925 004270
926 004274
927 004300
928 004304

929 004

MACRO M1111

OVERZ2
OVER11
A#PFERR

BEQ
AROUND
BR OVER11
AROUND: JSR
PC.
ERRMSG
OVER9:
.WORD
O
HALT
OVER11: JSR
PC.
ERRMSG
OVER10: BIT
#IT15,
BEQ
12%

(RG)
+

OCASC
FILBUF

A#ROMF IN
AROUND
, a#ROMERR

$ATY]

$ATY3

aSWR

‘

BUF.

;GO COVERT OCTAL TO A>CI!
;GO PUT DATA IN ERROR MESSAGE BUFFER.

;PUT TERMINATOR AT END OF MESSAGE
;TST IF ON APT
;IF YES BRANCH
;IF NO BRANCH
;= ONLY A CPU ROM?2222?
; ~IF NO BRANCH
;= NOW IF YES IS POWER;= FAIL VECTOR THE ERROR??7?
;= YES ,WELL THEN [T'S
;= NOT A REAL ERROR , (ONTINUE
;GO REPORT ERROR
;THEN HALT
JIF NOT ON APT JUST REPORT ERROR

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

(ZM3BDO M9312/1144 UBI 8007
004424
004426
004432
004434

000000
005637

959 004436
960 004440
961 004442
962 0046444
963 004446
964 004450
965 004452
966 006454
967 004456
968 014460
969 004462

007257
007223
007315
007372
007447
007473
007551
007627
012376
012455
012535

104412

HALT

12%:

001110

CLR

RESREG
RTS

000207
EHEADT:

;CLEAR ERROR FLAGS

ERIMSG

ERZMSG
ER3MSG
ER4MSG

CRCMSG
SEQMSG

ERMES”
ERMES2
ERMES2

SUBROUTINE

s CHARACTERS.
000011

112724

000011

112724
112724
112524
105715

000015
000012

001375
062716
000207

SEQ 0024

PFMSG
NOROMM

;THIS

000404

a#ROMERR

JFILL BUFFER ROUTINE

022776
001703

L
2
PAGE 61- 5

953
954
955
956

PASS ROUTINE

24=SEP-79 16:37

END OF

MACRO M1111

000000

:
F ILBUF

1%:

2%:

CMP
BNE
mcvBe
BR
MOVB
MOVB
MOVB
1ST8

BNE
ADD

000002

RTS

FILLS

THE MESSAGE BUFFER WILL

ASCII

MHT,

a(R6)

;IS FIRST (HARACTER A TAB OR (R

#HT,

(R4)+

;IF

#CR,

(R4)+
+
(R4)
(RG)+

MOV CR/LF

(R6)

;JUPDATE RETURN POINTER

#LF,

(RS)+,
(RS)

n2,
PC

cIF CR THEN GO PUT CR/LF
TAB THEN PUT

IN BUFFER

TAB [N BUFFER

;GET OVER NEXT LINE

TO BUFFER

;PUT A CHARACTER

IN MESSAGE BUFFER

;1S NEXT CHARACTER ZERO
;IF NOT PUT IT IN MESSAGE BUFFER AND GET NEX
; THEN RETURN

TO GET OVER C(HARA(CTER

;OCTAL TO ASCII CONVERSION ROUT 'NE
;THIS SUBROUTINE TAKES A SIXTEEN BIT OCTAL NUMBER AND
;CONVERTS IT TO 6 ASCII CHARACTERS
012700
005020
005020
005020
005020
012700
010337
000241
006137
006110
152710
005200
020027
001003

010006

OCASC:

010006
004630

MoV

004630
000060

010014

MOV
CLR
CLR
CLR
(LR
MOV

CLC
ROL
ROL

BISB
INC
(Mp
BNE

#OCTBUF
,

;GET BUFFER ADDRESS
;CLEAR BUFTER

#OCTBUF
,

RO
Ak TEMP

JGET BUFFER ADDRESS
;GET OCTAL NUMBER

+
(RO)
(RO)+
(RO)+
(RO)+

R3.

a# TEMP
(RQ)

#60,
RO
RO,
2%

(RO)
NOCTBUF +6

;CLEAR CARRY
;ROTATE BIT INTO CARRY BIT
;ROTATE

CARRY BIT

JMAKE

IT ASCII

JHAVE

INTO BUFFER

;UPDATE BUFFER ADDRESS
CONVERTED ALL

;IF NO CONTINUE

THE

NUMBER

(ZMIBD0 M9312/1144 UBI BOOT

END OF

PASS ROUTINE

1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023

004576
004602
004604
004610
004612
004616
004620
0046246
004626
004630

012705
000207
006137
106110
006137
106110
006137
106110
000755
000000

01000¢
004630

1027
1028
1029
1030

1031
1032
1033
1034
1035
1036

004634
004636
004642
004644

RTS
ROL

2$%:

004630

JIF YES PUT BUFFER ADDRESS IN REGISTER
JRETURN

JROTATE BIT INTO CARRY BIT
JROTATE CARRY BIT INTO BUFFER

(RO)

INTEMP
(RO)
SNTEMP
(RO)
1%

ROL
ROLB

TEMP:

SEQ 0025

SN TEMP

ROLB
ROL
ROLB

006630

Mm 2
PAGE 61-1¢

#OCTBUF,
PC

MOV

sTHIS ROUTINE

OCADD:

. R3
(R3),

"GO TO START OF LGOP

CALLED BY

THE PUT MESSAGE

ROUTINE

TO GET

THE

RIGHT

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

1024

1025
1026 004632

24-SEP=79 16:37

MACRO M1111

010346

011303
004767
012603
000207

177664

MOV

JSR
MOV
RTS

LSBTTL
A

TYPE

PC,

(R6)+,

;SAVE THE VALUE OF R3
;PUT [HE DATA TO BE CONVERTED IN R3
;GO CONVERT OCTAL TO ASCII
JRESTORE R3

JRETURN

ROUTINE

AR AN R AN AR AN AR AR RN

*ROUTINE

=(R6)
R3
0CASC
R3

AN AN

TO TYPE ASCIZ MESSAGE.

;*THE ROUTINE
;'NOTET:

J*NOTEZ:
;*NOTE3:

WILL

N CNAARRR RN

AR RN R AR RRARRCRNCN RN

MESSAGE MUST TERMINATE WITH A O BYTE,

INSERT A NUMBER OF

NULL

"HARACTERS AFTER A LINE

FEED.

SNULL CONTAINS THE (HARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARA(CTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

- &

xCALL:
*1) USING A TRAP INSTRUCTION
TYPE
.MESADR

.‘OR
%

004646
004652
004654
004656
004660
0ue662
0064666
004674
004676
004704
004706
004712
004716
004720

105767
100002
000000
000430
010046
017600
122767
001011
132767
001405
010067
004767
000000
132767

000335

$TYPE:

1%:

000002
000001

174262

000100

174253

000004
000304

000040

1742317

61%:
62%:

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRINC

TYPE
ME SADR

T1STB
BPL
HALT

$TPFLG
1%

;21S THERE A TERMINAL?
;;BR IF YES

;sHALT HERE

NO TERMINAL

. s LEAVE
::SAVE RO
@2(SP) ,RO
;:GET ADDRESS OF ASCIZ STRING
#APTENV, SENV
J;RUNNING IN APT MODE
62%
::NO,GO CHECK FOR APT CONSOLE
N#APTSPOOL
, SENVM ;.SPOOL MESSAGE TO APT
62%
;:NO,GO CHECK FOR CONSOLE
RO,61%
;;SETUP MESSAGE ADDRESS FOR APT
SC,SATYS
;:SPOOL MESSAGE TO APT
s cMESSAGE ADDRESS
NAPTCSUP, SENVM
;:APT CONSOLE SUPPRESSED
33
RO,-(SP)

(ZMIBD0 M9312/1144 UB] BOOT
TYPE ROUTINE

004726
004730

001003
112046

004734
004736
004740
2046744

005726
012600
062716
000002

004752
004754
004760

001430
12¢716
001006

004732

0047646

004762

004764
004766
004770
004774
004776

005002

e ¥

001005

122716

000002

60%:
3%

00001*

000200

005726

104/
005211
105067
000755
004767

126726

005006
005010

001350
016746

005014
005020
005022
005026

105366
002770
004767

005032

MACRO M1111

105367

000770

24-SEP-79 16:37
BNE
MOVR

000056

5%:

009200

6%:

000170
000001

7%:

000032
0001472

112716

000040

132767

000007

005040

004767

005052
005054
005C~6
00>060

001372
(005726
000724
105777

005044

005064
005048

100375
116677

005074
005100
005102
005106

105777
100021
017746
716

N05116

005112

005120

005124
005126
005132
005136
005742
005144
005152
005154
005160
005162
005170
005172

105777

100375
017746
042716
022726
001366
122766
001003
105067
000406
122766
001402
105227

000014

000122

000114

000002
000362

9% :

000356
177600

000023

000332
177600
000021
000015

000002

°2%:

000002

1%:

000014
000012

THE STACK

:2BRANCH [F <HT>

;:BRANCH IF NOT <(CRLF>

(SP)+

::POP

$CHARCNT
2%
PC,$TYPEC

:;CLEAR CHARACTER COUNT
;;GET NEXT CHARA(CTER
::G0 TYPE THIS CHARACTER

BNE
MOV

2%
$NULL ,-(SP)

DECB
BLT
JSR

1(SP)
6%
PC.$TYPEC

I4 3

J2IF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
;.AND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF
;GO TYPE A NULL
;:DO NOT COUNT AS A COUNT

CMP8

$FILLC,(SP)+

$CHARCNT

BITB

#7,8CHARCNT

B8PL
MOVB

$TYPEC
2(SP) ,a8$TPB

JSR

,L(SP)

PC.STYPEC

9%
(SP)+
2%
a$TPS

TSTB
BPL
MOV
8IC

asTKS
23
a$TkB, -(SP)
#177600, (SP)

BNE

TSTR

8PL
MOV
BIt
cMP
BNE
(MP8
BNE
(LRB
B8R
(MPB
8EQ
INCB

<CR><LF> EQUIV

;;TYPE A (R AND LF

;1S IT TIME FOR FILLER CHARS.?

STACK

;;LO0OP

TAB PROCESSOR

MOVB

CTMMP

000336

8s
#CRLF, (SP)
5%

J:BR IF IT ISN'T THE TERMINATOR

TYPE
$CRLF
CLRB
BR
JSR

BNE
TST
BR
$TYPEC: TSTB

000106

J21F TERMINATOR POP ]T OFF
:;RESTORE RO
;;ADJUST RETURN P(
: RETURN

#HT, (SP)

DECB

8%:

(SP)+
(SP)+ R0
#2,(SP)

(mMP8

BEQ
(MPB
BNE

;HORIZONTAL

005034

::YES,SKIP TYPE 0QUT
;;PUSH CHARA(CTER TO BE TYPED ONTQ STAZK

A )

TST
MOV
ADD
RTI

SEQ 0026

608
(RQ)+,-(SP)

BNE

TST

000200

N 2
PAGE 61-17

#23,(SP)+
as$TKS

3$
a$TKB,-(SP)
#177600, (SP)
#21,(SP)+
1s
#CR,2(SP)
18
$CHARCNT
$TYPEX
#LF,2(SP)
$TYPEX
(PC)+

;sREPLACE TAB WITH SPACE
::TYPE A SPACE

;;BRANCH [F NOT AT

;. TAB STOP
;. ;POP SPACE OFF STACK
;:GET NEXT CHARACTER
;JJWAIT UNTIL PRINTER IS READY

;:LOAD CHAR TO BE TYPED INTO DATA REG.
J:SEE IF KEYBOARD IS TALKING.
::BRANCH IF IT ISN'T.
;;PUSH CHARACTER ONTO STACK,
::BIT CLEAR TOP BYTE AND PARITY BIT,

JoSEE IF THIS IS A *S.
;cBRANCH TO CONTINUE

;:WAIT FOR ANOTHER INPUT.

ISN'T.

; ;BRANCH BACK IF NOT READY.
;sPUSH NEXT CHARACTER ON STACK,
;:BIT CLEAR TOP BYTE AND PARITY BIT.
;2SEE IF THIS IS A *Q.
;;BRANCH BACK FOR MORE WAIT IF NOT,
::1S CHARACTER A CARRIAGE RETURN?
- :BRANCH [F NO
> s YES==-CLEAR CHARACTER COUNT
JoEXIY
;:1S CHARACTER A LINE FEED?
:JBRANCH 7F YES
;. COUNT THE CHARACTER

MACRO M1

(ZM9BD0 M9312/1144 UB] BOOT
TYPE ROUT INE

PAGE 61-18

SEQ 0027

;JCHARACTER COUNT STORAGE

005174
005176

000000
000207

$(HARCNT
: . WwORD
$TYPEX: RTS

005200

177564
177566

177564
;3TTY PRINTER STATUS REG. ADDRESS
$TPS:
.WORD
177566
;2TTY PRINTER BUFFER REG. ADDRESS
. WORD
$TPR:
$SNULL:
0
;JCONTAINS NULL CHARACTER FOR FILLS
$FILLS: .BYTE
l
J3CONTAINS # OF FILLER CHARACTERS REQUIRED
SFILLC: .BYTE
12
;2 INSERT FILL CHARS. AFTER A 'LINE FEED"
$TPFLG: .BYTE
0
;" 'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES"
A
;JQUESTION MARK
$QUES:
.ASCI]
<15>
;s CARRAIGE RETURN
$CRLF:
LASCI
SLF:
.ASCIZ
<12>
JILINEFEED
APT COMMUNICATIONS RQUTINE
.SBTTL

000
002
012
000
077
015

1037

24=SEP=79 16:37

000

".'Qfi...'t.'..'."t.fi.t..'t.""Q.'.Q.Qfi.t..'...t.t'ttt.t.

112767
112767

000001
0C0001

000236
000226

$ATY:
$SATYS:

112767

000001

00022¢

$ATYS:

000403

010046
010146

SATY(:

MOVB
MOVB
BR
MOVB

#1,8FFLG
#1,SMFLG
#1,8FFLG

::70 ONLY

MOV
MOV

RO,-(SP)
R1,-(SP>
SMFLG |,

;;PUSH RO ON STAC(CK
:;PUSH R1 ON STACK
::SHOULD TYPE A MESSAGE”
:;OPERATING UNDER APT?

SATY(

105767

000206

122767

000001

173¢76

#APTENY , SENV

132767
001425

000100

174667

#APTSPOOL ,SENVM

000004
000002
173626

000004

#2,4(SP)

001450

001031

017600
062766
005767
001375
010067
105720

001376

166700

006200
010067
012767
000413
017667
062766
016746
004767
000000
105767

001416
005767

001413
005767
001375
017667
062766
005267
105067
105067

173634

b} 3

1%.

;:1F NOT:

:;1F NOT:

;;1F NOT:

@84 (SP) RO
SMSGTYPE

1%
t
aMSGAD

;. SHOULD

REPORTM

FATAL

SPOOL

MESSAGES®

;:GET MESSAGE ADDR.
;:SEE

; :BUMP RETURN ADDR.

DONE W/ LAST

;:1F NOT:
WAIT
;JPUT ADDR IN MA]LBOX

XMISSION®

173624

$MSGAD RO

;:SUB START OF MESSAGE

173620

RO, SMSGLGT

;2PUT LENGTH [N MA]L BOX

000004

173574

000004
000002

000016
000004

1724612

177256

gg.SMSGTYPE
3s:

10%:

000062

173524

000004

177776.-(SP)

S:PUSH 179776 ON STACK

$FFLG
12%

,SHOULD REPORT FATAL
;:IF NOT:
BR

12%
SMSGTYPE

;21F NOT:
BR
;:FINISHED LAST MESSAGE”

S$ENV

173552
11¢:

118

173516

a4 (SP) SFATAL

#2,64(SP)

000004

(LRB

J;TELL APT TO TAKE MSG.

;:PUT MSG ADDR N JSR L INKAGE

SC.SYYPE

L%
5%:

;;GET MESSAGE LNGTH [N WORDS

o4 (SP) 4%

82 4(SP)

SMSGTYPE
$FFLG

$LFLG

;. FIND END OF MESSAGE

ERROR

2%:

LA R

::TO REPORT FATAL ERROR
;70 TYPE A MESSAGE

- -BUMP RETURN ADDRESS

::CALL

TYPE MACRO

ERRORTM

J;RUNNING UNDER APT?

J01F

NOT:

WALT

;:GET ERROR #

:;BUMP RETURN ADDR.

J:TELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG

J.CLEAR LOG FLAG

IMIBDC M9312/1'44 UBI BOOT

APT

COMMUNICATIONS ROUTINE

005444
005450
005452
005454
005456
005457
005460

105067

012601
012600
000207
000
000

MACRO M1111

000006

$MFLG:

$LFLG:
$FFLG:

000

(LRB
MOV
MOV

MFLG
(SP)+ R1
(SP)+ RO

.BYTE

RTS

.BYTE
.BYTE

PAGE 61-19

SEQ 0028
;,CLEAR MESSAGE FLAG
:;POP STACK [NTO R
;:POP STACK [NTO RO

; JRETURN

0
0

::L0G FLAG
;JFATAL FLAG

;JMESSG.

FLAG

APTSIZE=200

000200
000001
000100
00004C

1038

24=SEP=79 15:37

APTENV=001
APTSPOOL=100
APT(SUP=040
SBTTL
TTY INPUT RT O INE
;:'t.'.'.t'..'t."q'.Q.."'t'...ttlt‘.tl..t"tt'ttt.'t't...'.t't.

005462
005464

$TKS:
$kR:
.ENABL

177560
7756¢

005466

005474
005476
005502
005504
005510
005514
005520
005522
005530

005532
005536
005542
005546
005550
005554
005556
005560
005564

022767
001074

000176

105777
100071
117746

177760

022726
001062

0G000/

062716

173410

.WORD
.WORD
LSB

2323222242022

$CKSWR: CMP
8NE

177754
177600

S SAVE THE CHAR
S STRIP-OFF THE ASCII

B8EQ

15%

;;BRANCH IF YES

104402
104401

172430

$GTSWR: TYPE
MOV

006231

TYPE

117746

177676

TYPE

TYPOC

(LR

78:

TSTB

177672

005566
005572

042716

177600

005576
005602

021627
001005

000025

005610
005614

062706
000757

006206
000006

20¢:

104401

©:1S THE SOFT-SWR SELECTED”

;JBRANCH [F NO

a$TKB,-(SP)
#°C177.(SP)

006213
006220

105777
100375

15%

MOVE
BIC

CMP
BNE
¢

200001

#SWREG, SWR
a$TKS

104401
104401

005046
005046

iR ARRRRRRARARRRARRRRRRRRRARRRRRRRARRERRREARD]

TSTB

BPL

173352

016746

20222

;2TTy KBD STATUS
J.TTY KBD BUFFER

J*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
J*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP (ALL
: *WwHEN OPERATING IN TTY FLAG MODE.

126727

001456

177560
177562

158

#7,(SP)+
15$
SAUTOB, #1
,8CNTLG

. SMSWR
SWREG,~(SP)
, SMNEW

Z(SP)

CLR

-(SP)

8PL

MOVB

BIC

cMP

BNE

TypE
ADD

B8R

a$TKS

a$TKB,-(SP)

#AC177.(SP)
(SP) ,#25

*:CHAR THERE?

SIF NO, DON'T wAIT AROUND

SY1S IT A CONTROL G?
S*NO, RETURN TO USER
:ARE WE RUNNING IN AUTO-MODE?
;;ECHO

THE

(ONTROL=G

S:TYPE CURRSNT CONTENTS
::SAVE SWREG FOR TYPEOUT

_::G0 TYPE--OCTAL

ASCII(ALL

L:PROMPT FOR NEW SWR
*:CLEAR COUNTER
S THE NEW SWR

* CHAR THERE?

“IF NOT TRY AGAIN
;;PICK UP (MHAR

CIMAKE IT 7-BIT ASCII
;1S IT A CONTROL=-U?

108

S BRANCH IF NOT

19¢%

J2LET'S TRY IT AGAIN

LSCNTLU
#6,SP

(*G)

S:YES, ECHO CONTROL=U (*U)
:: JGNORE PREVIOUS [NPUT

DIGITS)

(IMIBD0 TM93 2/1144 UB] BOOT
TTy INPUT ROUTINE

005616
005622
205624
005633
005632
005640
005644

005650
005656
005660

005666
005670
005674

005700
005702
005706
005710
005714
005720
Cnf7ce
005724
005726
005730
005734
005740
005742
005746

02'627
001022
005766
001403
016677

062706
104401

126727
001003
012777

000002
004767
021627

002420
021627
003015
042726
005766
n0/Q0R
V6316
006316
006316
005266
056616
000707
104401
000720

24=SEP=79 16:37

MACRC M1111

000015

., X415
(SP)
16%

10%:

000004

4(SP)

000002
000006
005211
173225

000001

000100

177574

11$

2(SP) ,aSWR
#6,SP

1735244

177164
000060

1a$;

LSCRLF

16%:

SEQ 0029
IS IT A <(R>?

JJBRANCH [F NO
J:YES, IS IT THE FIRST (HAR?
;sBRANCH IF YES
;:SAVE NEW SWR
;oCLEAR UP STA(K
;cECHO <CR> AND <LF>

;JRE~-ENABLE TTY KBD INTERRUPTS?

$INTAG,
#1
15%

;:BRANCH IF NOT

PC,STYPEC

;JECHO CHAR

#100,a$TKS

15%:

PAGE 61-20

(SP) ,#60

000067

;RE-ENABLE T1Y 1 °D INTERRUPTS
:JRETURN

::CHAR < (2

J:BRANCH JF

YES

;:BRANCH IF

YES

J;CHAR > 77

;:STRIP=OFF ASC]I

000060
000002

LIS

THIS THE

JiNO,

SHIFT

;sBRANCH [F

000002
177776

17%:

005210

18%:

YES

PRESENT

CHAR OVER TO MAKE
M
ROOM FOR NEW ONE.
J:
JJKEEP COUNT OF (HAR
J:SET IN NEW CHAR
;oGET THE NEXT ONE

20%

:sSIMULATE CONTROL=-U

2(SP)

=2(SP), (SP)
TYPE

FIRST (HAR

. $QUES

JTYPE

2<CRo<LF>

.DS ABL

BR
LSB

RSS2 RRRSRRRRRRSRRRRR
R RRRRRRRRRRRRRRRRd

E;EHIS ROUTINE WILL INPUTM A SINGLE CHARACTER FROM THE TTY
c*CALL:

o
B

RDCHR
RETURN HERE

[

0C5750
005752
005760
005764

005766
005774

006002
006010
006012

011646
016666
105777
100375

117766
042766

000004
177476

000002

177472
177600

000004
000004

$SRDCHR:
1%:

000004

006020
006024
006030

117746
042716
022627

177440
177600
000021

006040

0,°6627

000004

000140

006050

026627

000004

000175

177444

4(SP) ,2(SP)

8PL
MOVB

1%
aS$TKB,4 (SP)
#AC<177> 4 (SP)

TSTB

cMP

2% :

BNE
TSTR
8PL

a$TKS

L(SP) 4258

MOVB

3s
Qa$TRS
2$
ASTKB,-(SP)

BNE
BR
(MP
8L

2
18
L(SP) 4140
4%

BIC
TMMP
3$:

(SP) ,=(SP)

MOV

BIC

000023

026627
001013
105777

MOV

(MP

8GT

¥ C177,(5P)
(SP)+,
21

4L(SP} 4175
43

;2 INPUT A SINGLE CHARACTER FROM THE TTY
;s CHARACTER 1S ON THE STACK

;;WITH PARITY BIT

STRIPPED OFF

;:PUSH DOWN THE P(
::SAVE THE PS
;;WAIT FOR
;:A CHARA(CTER
J:READ

THE

TTY

J:GET RID OF JUNK [F ANY
;:1S IT A CONTROL=-S?
;;BRANCH IF NO
J:WAIT FOR A CHARACTER
;.LOOP UNTIL TS THERE
;:GET CHARACTER

JIMAKE IT 7-BIT ASCII
;1S IT A CONTROL-Q?
1F NOT DISCARD [T
;o
;2YES, RESUME
;oIS 1T UPPER CASE?
;JBRANCH IF YES
;:1S IT A SPECIAL CHAR®
;;BRANCH [F YES

MACRO M1111

94 MIBDC MY312/1144 18] BOOTY
\Al
vy INPUT ROUT INE

006060

006066

042766

000002

000040

000004

A ¥
.

8IC
RT]

:'
;e

M
0
0
0
}

006106

10%:

005210

A ¥

000044
006174
000015

136
012
136
012
015
127
07¢
040
105
975

688

177777

005212

INPUT

STRING FROM THE

;;ADDRFSS OF

R3,-(SP)

;:SAVE R3

;:GET ADDRESS

8LOS
RD(CHR
MOVR

“%

(SP)+,(R3)

;:BR IF YES
;260 READ ONE CHARA(CTER FROM THE
;sGET CHARA(CTER

,SQUES

:TYPE A

(MP

#STTYIN+8, ,R3

(MPB
B8NE

8177 ,(R3)
33

B8R

TYPE

MOVB
TYPE
CMPR

(R3),9%
,9%
#15,(R3)+

CLRR

-1(R3)

JIBUFFER FULL?

;2ECHO THE CHARACTER

;:CHECK FOR RETURN

P )

;;LO0P IF NOT RETURN
;;CLEAR RETURN

LSLF
(SP)+,R3

(THE

J:TYPE A LINE FEED
..RESTORE R3

(SP) ,-(SP)

JADJUST

15)

THE STACK AND PUT

L(SP) ,2(SP)
#STTYIN,L(SP)

BYTE
.BLKB
LASCIZ

0
8.
/*u/<15><12>

;:STORAGE

;;TERMINATOR
;:RESERVE B BYTES FOR TTY
;;CONTROL *U

;:CONTROL 'G'’

s cRETURN

SMSWR:

_ASCIZ

<15><12>/SWR = /

000
116

SMNEW:

LASCIZ

.SBTTL

BINARY

TO OCTAL

FIRST ASCI]

FOR ASCII

ADDRESS OF

CHARA(CTER ON |7
(CHAR.

THE

1O TYPE

[NPUT

NEW - /
(ASCI])

AND

TYPE

;'-'tt'ttlttttktt"t'ttttt""ttt'ttttttttttfitttfitn'tt-ntfiatt'ntt.

;*THIS ROUTINE ]S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIG!”
c«0CTAL (ASCII) NUMBER AND TYPE IT.
;-%LVPOS-°-ENTER HERE

.*CALL:

TO SETUP

SUPPRESS

ZEROS AND NUMBER OF

CIGITS

TYPE

MOV

NUM, -(SP)

J;NUMBER TO BE TYPED

;
.

" BYTE
BYTE

N
M

J:N=1 TO 6 FOR NUMBER OF DIGITS T0 TYPE
;:M=1 OR 0

;

000

;:CLEAR THE BUFFER AND LOOP

MOV
MoV
RT]

.BYTE

TTy

J:1S IT A RUBOUT
::SKIP IF NOT

123

040

FIRST (HARA(CTER WILL BE ON THE

;;TERMINATOS WILL BE A BYTE OF ALL 0'S

/4G/<15><12>

127

TTY

JINPUT A STRING FROM THE T v

SCNTLG: .ASCIZ

040

Wl.L

015

122

040
040

SCNTLU:

012

$TTYIN:

gxo)g

9% :

015

TO USER

#STTYIN,R3

MOV

000002
000004
.

1T UPPER (ASE

. G0 BACK

MOV

TYPE
MOV

000004
006176

SEQ .030
;;MAKE

RDL IN

BNE

1039

006172
006174
006175
006176
006206
006211
006213
006216
006220
006223
006226
006231
006234
006237

000177

006146
006152
006154
006156
006164

122713
001003
104401
000763
111367
104401
122723
0C1356
105063
104401
012603
01164¢€
016666
012766
000002
000
000

006116

006122
0061c4
006130
006134
006140
006142

2%:

006110
006114

1%:

006206

860 ,4(SP)

RETURN HERE

$RDL IN: MOV

006176

QQ..'.Q.."""."".‘.".fi'.fi.t...'.'..l..".tt".t't'tt.".'.

'T:IS ROUTINE
c«CALL:

006070
006072
006076
006102

PAGE 61-21

24=SEP=79 16:37

TYPOS

;s CALL FOR TYPEOUT
;. 1=TYPE

LEADING ZEROS

. :0=SUPPRESS LEACING ZEROS

STA(K

MACRO M1111
(ZM9BD0O M9312/1144 UB] BOOT
BINARY TO OCTAL (ASCII) AND TYPE

264-SEP=79 16:37

:*S$TYPON~~==ENTER HERE
;*$TYPOS OR $TYPOC

;=CALL:
MOV
M)
o
TYPON

PAGE 61-22

SEQ 0031

TO TYPE OUT WITH THE

,
- (SP)
NUM

SAME PARAME IERS AS

THE

;;NUMBER TO BE TYPED

;s CALL FOR TYPEOUT

> W

[

;*$TYPOC---ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBER

;w(ALL:
MOV
M
o

000000
000001
000207
000002
000001
000006
000005

000211

000171
000165
000154

TYPOC(

$TYPOS: MOV

$TYPOC:
$TYPON:

000145

MOVB
MOVR
ADD
B8R

MOVB
MOVR
MOVB
MOV
MOV
MOV

MOVR
NEG

000006
000132
000125
000012

ADD
MOVB

MOVB

MOV
1%:

2}:

3%:

000076

CLR

ROL

B8R

ROL

ROL
ROL

MOV

ROL
DECB

BPL
BIC
BNE

177770

.%:

000060
000040
000040
006462
000032

5¢:

7% :

- (SP)
NUM,

;JNUMBER TO BE TYPED
;;CALL FOR TYPEOUT

a(SP) ,-(SP)
1(SP),SOFILL
(SP)+,$0MODE
+1
#2,(SP;
$STYPON
#1,80FILL

;;PICKUP THE MODE
;;LOAD ZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

#6, SOMODE +1
#5,80CNT
R3,-(SP)
R4 ,=(SP)

RS,~(SP)
$OMODE +1,R4

R4
#6 R4
R4, 3OMODE

$OFiLL,RS
12(SP) ,RS
R3
RS
3%

RS
RS
RS

RS,R3

R3
$OMODE
7$
#177770.R3
43

HEQ
INC

BIS
BIS
MOVB

012604
012603
016666
012616

£%:

000002

000004

MOV
MOV
MOV
MOV

;2SAVE R4

;¢SAVE RS

;;GET THE NUMBER OF DIGITS TO TYPE

J;SUBTRACT T FOR MAX. ALLOWED
;sSAVE IT FOR USE
J:GET THE ZERO FILL SWITCH
;sPICKUP THE INPUT NUMBER
;. CLEAR THE OUTPUT WORD
; ROTATE MSB INTO ''C"'

;260 DO MSR
;:FORM THIS DIGIT

;:GET LSB OF

J:TYPE

THIS DIGIT

THIS DIGIT?

;:BR IF NO

J:GET RID OF

JUNK

::TEST FOR O
;;SUPPRESS THIS 0?
;:BR IF YES
;;DON'T SUPPRESS ANYMORE 0'S
JJMAKE THIS DIGIT ASCII
JJMAKE ASCII IF NOT ALREADY

(SP)+ RS

::GO TYPE THIS DIGIT
;:COUNT BY 1
:sBR IF MORE TO DO
;:BR IF DONE
;o INSURE LAST DIGIT [SN'T A BLANK
;.,G0 DO THE LAST DiGIT
::RESTORE RS

(SP)+ ,R3

;;RESTORE R3

DECB
BGT

BLT

006444
006446
006450
006456

::SAVE R3

::SAVE FOR TYPING

TYPE

INC
BR
MOov

:;SET THE ZERO FILL SWITCH
;oSET FOR SIX(6) DIGITS
;;SET THE ITERATION COUNT

(SP)+,R4

2(SP) ,4(SP)
(SP)+,(SP)

;:RESTORE

2:SET

STA(K FOR RETURNING

THE

LAST

(ZMIBDO M9312/1144 UBI BOOT
BINARY TO OCTAL (ASCII) AND TYPE

1040

006460
006462
006463
006464
006465
006466

MACRO M1111

RTI

8%:

000
000
000000

$OCNT:
$OFILL:
$OMODE:

.SBTTL
2323220282

—

24=SEP=79 16:37 PAGE 61-23

000002
000

000

SEQ 0032
; JRETURN

BYTE

;s STORAGE FOR ASCII DIGIT

.BYTE
.BYTE
.WORD

O
0
O

;oOCTAL DIGIT COUNTER
;.ZERO FILL SWITCH
. ;NUMBER OF DIGITS TO TYPE

BYTE

;. TERMINATOR FOR

TYPE ROUTINE

SAVE AND RESTORE RO-R5 ROUTINES

2232008332222220322
2202282202222 RR2RRRRRRR Rl
R

:«SAVE RO-RS

s*CALL:

s
SAVREG
'UPON RETURN FROM $SAVREG THE

STACK WILL LOOK LIKE:

*TOP---(*16)

te
;%

42===(+18)
+4=-==RS

;* +6===R4
;v +8---R3

e410=-==R2
;r+12=-=-=R1
t#+14===R0

006470
006470
006472
006474
006476
006500
006502

010046
010146
010246
010346
010446
01054¢€

006520
006524

016646
000002

006504
006510
006514

1043

006526
006526
006532
006536
006542
006546
006550
006552
006554
006556
006560
006562

$SAVREG:

MOV
MOV
MOV

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

;:PUSH RO ON STA(K
;;PUSH R1 ON STA(CK
;;PUSH R2 ON STA(CK

MOV

R4 ,-(SP)

;;PUSH R4 ON STACK

MOV

016646 000022
016646
000022
016646
000022

MOV
MOV
MOV
M?Y

000022

R3,-(SP)

RS5,-(SP)

22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

;;PUSH R3 ON STA(K

;;PUSH RS ON STACK
;;SAVE
;:SAVE
2 ;SAVE
. ;SAVE

PS
PC
PS
PC

OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

;*ReSTORF RO-RS
;*CALL:
Jr
RESREG

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

MOV

(SP)+,22(SP)

;;RESTORE PC OF

MOV
MOV

(SP)+,22(SP)
(SP)+,22(SP)

;JRESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW

MOV
MOV

MOV

MOv
MOV
MOV
MOV
.SBTTL

RTI

(SP)+,22(SP)
(SP)+,R5
(SP) + R4

(SP)+,n3
(SP)+ ,R2
"SP)+ ,R1
(SP)+ RO

;sRESTORE PS OF

CALL

,,POP STACK INTO RS
JPOP STACK

1:POP
;.POP
;;POP
;.POP

STACK
STACK
STACK
STACK

INTO R4

INTO R3
INTO R2
INTO R1
INTO RO

TRAP DECODER

R T

J*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION

v;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT Wlcd

(ZM9BDO M9312/1144 UBI BOOT
TRAP DECODER

MACRO M1111

24-SEP=-79 16:37

(V|

PAGE 61-24

SEQ 0033

:*G0 TO THAT ROUTINE.

006564
006566

010045
016600

006574
006576
006600

111000
006300
016000

006572

006604

005740

000200

00000¢

)

$TRAP:

011646
016666
000002

006620

000004

RO, =(SP)
2(SP) ,RO

;. SAVE RO
2:GET TRAP ADDRESS

MOVB
ASL
MOV

(RO) ,RO
RO
$TRPAD(R0)
,RO

;.GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE
2;60 TO ROUTINE

TST

-(R0O)

RTS

;o THIS

006606
006610
006616

MOV
MOV

000002

IS USE

TO HANDLE

$TRAPZ2: MOV
MOV
RT!
.SB1TL
;*THIS

THE

;;BACKUP BY 2

''GETPRI'' MACRO

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

;oMOVE THE PC DOWN
;sMOVE THE PSW DOWN
;;RESTORE THE PSW

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ACDRESSES

;*BY THE "'TRAP'' INSTRUCTION.

THE

ROUTINES

CALLED

;

ROUT INE

006620
006622
006624
006626
- 006630

006606
(04646
006266
006242
006302

$TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON

$TRAP?
;. CALL=TYPE
;. CALL=TYPOC
. .CALL=TYPOS
;.CALL=TYPON

TRAP+1(104401)
TRAP+2(10464402)
TRAP+3(104403)
TRAP+4(104404)

.
TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

006632

005536

$GTSWR

;;CALL=GTSWR

TRAP+5(104405)

GET SOFT-SWR SETTING

006634
006636
006640
006642
1044 006644

005466
005750
006070
006470
006526

$CKSWR
$RDCHR
SRDLIN
$SAVREG
$RESREG

;. CALL=CKSWR
;. CALL=RDCHR
;. CALL=RDLIN
, ; CALL=SAVREG
;;CALL=RESREG

TRAP+6(106406)
EST FOR CHANGE IN SOF T-SWR
TRAP+7(104407)
TTY TYPEIN CHARACTER ROUTINE
TRAP+10(104410) TTY TYPEIN STRING ROUTINE
TRAP+11(104411) SAVE RO-RS ROUTINE
TRAP+12{104412) RESTORE RO-RS ROUTINE

1045
1046

JMESSAGES

1047

1048
1049 006646

1050 606650
1051 006652

1052
1053
1054
1055
1056
1057
1058

006654
006656
006660
006662
006664
006666
006670

1059 006672
1060 0066;?

1061

006700

006703

006662
065
064

064
065
065
062
063
063
063

063
686

012

117

ROMPTR:
AROM:

070
070

071
060
071
060
065
063
064

ROMNUM:

.WORD
_ASCIl
LASCII

ROMNUM
/58/
/48/

LASCIL
.ASCIZ

732/
<207><377><377>

ASCII
ASCII
LASCIT
_ASCII
ASCII
ASCII
ASCI1

062
277

377

BELL:

015

116

MNORM: ASCIZ

040

122

749/
750/
759/
720/
735/
/33/
/34/

A
I

o
S
Jew

<12><15>/NO ROMS RESPONDED TO THE

SIZING ROUTINE/<12><15.

006706
Q06711
006714
006717
006722
006725
006730
006723
006736
006741

1062

006744
006747
00675¢
BV Y g ]

TAB
t

[ R
R
R
. @ o I S
Y
TR0 S Y
b DD OWEHENINIO
= ONrY
N =2 NYNNO
&
NN NN

VSN
= NOoOOoOHOrowm

e e e I T

g O'\)'\)—'—‘OJ\?ONF\)—a

EOT Y QR
I
X
P
Y o J
o_a..a?
——ny
._nf\)_a_h?_al'\)b_.
VOO
= WO N
WO~

TRAP

(IMIBDO M931c/1144 B] BOOT
MACRO M1111

24=SEP=79 16:37
PAGE 61=25

I3
SEQ 0034

007102
007105
007110
007113
007116
007121
007124
007127
007132
007135
007140
007143
007146
007151
007154

114

056
040
040
040
040
040
101
on
116
111
056
105
103
103
105

102
126
122
040
115
116
131
117
124
101
040
126
105
117
123
et
P felelele

1067 007077

062
040
117
061
064
125
072
065
000
012
117
126
120
117
105
122
120
116
040
104
105
103
103
105
012

111
056
117
050
060
050
122
061
064
102
040
070

—ON=OHRNOO =N
NV =2 2 O0ONNSCOOOON

006770
006773
006776
007001
007004
007007
007012
007015
007020
1066 007021
007024
007027
007032
007035
007040
007043
007046
007051
007054
007057
007062
007065
007070
007073
007076

104
107
122
040

e e)

1064

1065 006754
006757
006762
006765

MACRO M1111

000

24-SEP-79 1€:37

PAGE 62

SEQ 0035

101
040
115
105
051
<106
040
055
040
m
105
051

DRHEAD:

,ASCIZ

/DIAG. ROM (E20)

117
123
101
122
040
124
040
11
123
116
104
111
040
104
015

BRHEAD:

.ASCII

<12>/BOOTSTRAP ROM ENTRY POINTS AND DEVICE CODES/<15><12>
¢

103

040

Qe
md e i Q=
OO0
H2OO0OONIWVNI—=
=
NN
O=EHENS VOO0

(ZMSBD0 MY312/1144 UB] BOOT
TRAP TABLE

104

(FOR 11=44 UBI: ES8)/
‘

e«

'
.ASCIZ

/LOC.

NO DIAG.

RUN DIAG.

DEVICE

CODE/

1071
\N

~
~nN

~
n
W
~

007257

1072 007315

1073 007346

1074 007373

007357
007362
007365
007370

007376
007401
007404
007407
007412
007415
007420
103

007231
116

— e ed =D =B OO D

PO O =2NNIOODOOOOCWW
PN =N 2N NOSMWVNMWNMEWO

e e [

)

QO = Q=

ed cd O =

ERIMSG:

Qb Qe ad

ONVIONOSON
=220
WINNSNIWO
=N N YWD

Qmded
b QO = = ) =
H=ONEH 2080
ONWVNONO =80V

ERCMSG:

=N =NNOO
S —=2O000 NN
VIO NNOSO—=S2AUVNNVNOWNM

QOOOOO—=O—=
VTWWWVMERONIESNY

B eY@ T I

NOWVO-=0-=0Q0NON
OV
NV
OWVMO S W

PFHEAD:

vt
D b
QO
el QO
= = OO =D D b =2
IASIASIAY] OHONN=H 20NN
O =
AS1AS
T\ 0) WO =N NONVNO OO
N

1070 007223

—d

120

b eed D md o

—_

125
040
127
055
mm
126
124
040

(e R R
e R R
@ R R
R
R
e Rl
= =2ONHNON=—=O=NOOC (=
NN
O =N
=N
Gv

OOO?

007161
007164
007167
007172
007175
007200
007203
007206

Q—~
— )

—

~
n

1069 007156

Y,)
B
T
Tl T
Yo P P Y o T R R e R R
R
I
R
Y
e
ke
TM R
O=OONINO
INND 220 —0O—=0OONOOOOOOWN =
B Yo T W o
VNO = SO NOWVNONWN—= SO 2NNV E O NONWWWNES WO WNION RrROSHO=H~0NO

~N
N
W
~

TRAP TABLE

(ZMSIBD0 M9312/1144 UB] BOOT
MACRO M1111
24-SEP-79 16:37

ER4MSG:

PAGE 63

.ASCIZ
aPSEUDO POWER-FAIL

.ASCIZ
/COULD NOT FIND DEVICE CODE /

.ASCIZ
/FOUND UNEXPECTED DEVICE CODE

ER3MSG:
.ASCI]
/POWER-FAIL

LASCIZ
7/

.ASCI]
/POWER-FAIL DATA ERROR/<15><12>
EXPECTED

SEQ 0036

VECTOR ADR./NEW P(a

VECTOR ERROR/<15><12>

RECIEVED/<15><12>

007425
007430
007433
007436
007441
007444

12
12
0
10
12
01

007452
007455
007460
007463
007466
00747

040
122
040
040
115
055

007476
007501
007504
007507
007512
007515
007520
007523
007526
007531
007534
007537
007542
007545
007550

114
116
040
124
115
105
117
122
101
040
103
122
104
105
000

1076 007447

1077 007473

103

WHOSMOR
2 NNO =N
NS NOOMN =N wnuNWVn —=Noviviu

1075 007422

—d
d —
p o—l-‘—)—l—l_‘
O—==NNOCOCOOOOOW
NNIONMNUNWO
S DWWV S WO

TABLE

el
B
R
R
Y e o Ye R B
R
e e R @ Te B R
R
B
g
B
e B R
NOEHNINN 2NV 200202022020
—-2N0O00

TRAP

MACRO M1111

0
1
1
1
1
1
1
1
1
}
1

NNNO 2O =200N=NONSIN)
W) = NN
O NOOMNNLIWNM
SOV

(ZM3BD0 M9312/1144 uUB] BOOT

24-SEP=79 16:37

PAGE 63-1

LASCIZ

EXPE"TED

CRCMSG:

.ASCIZ

/CRC

PFMSG:

.ASCIZ

/COULD NOT

ERROR

SEQ 0037
RECIEVED/<15><12>

[N ROM E-/

DETERMINE

POWER-FAIL

VECTOR ADDRESS/

(ZM3IBD0 M9312/1144 UB] BOOT

MACRO M1111

TRAP TABLE

1079 007551
007554
007557
007562
007565
007570
007573

116
122
123
105
040
122
015

117
117
040
123
105
117
012

040
115
124
124
122
122

1080 Q7575

040

1081

015

012

116

123

101
117
120
103
125
05¢

124
116
122
105
122
000

007600
007603
007606
007611
007614
007617
007622
007625

007627

007632
007635
007640
007643
007646
007651
007654
007657
007662
007665
007670

1082 007672

007675

007700
007703
007706
007711
007714
007717

w0
46
101
105
040
104
123
012
117
123
125
103
11
111
117
105
040
040
122

124

114
M
040
117
104
105

1083
1084
1085
1086
1087
1088 007722

000030

007736
007740
007742

000000
000000
000000

1090 007722
007724
007726
007730
007732
007734

007744
007746
007750
007752
007754
007756

040
040
114
040
101
122
123
000

24-SEP-79 16:37

NOROMM:

040

040
126
125
040
104
105
015
122

115
105
105
105
123
116
122
103
101
120
040

040
121
116
040
040
103
122
124
123
105

101

114

SEQMSG:

/NO ROMS TEST ERROR/<15><1?2>

LASCIZ

,ASCII

<15><12>/ROM SEQUENCE

LASCIZ

/INSTALLATION PROCEDURE./

.EVEN

000000
000000
000000
000000
000000
000000

BUF1:

_ASCII

;BUFFERS

(00000
000000
000000
000000
000000
000000

PAGE 64

.REPT

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

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

0
0
0
0
0
0

0
0
0
0
0
0
O
0
0

VALUE

ADDRESS/<15><12>

INCORRECT AS PER /

SEQ 0038

TRAP

TABLE

MACRO M1111

24=SEP=79 16:37

007760
007762
007764
007766
007770
007772

BUF2:
OCTBUF:

MES1:

MESZ2:

ERRMSG:

— ad

N=O

)

d
D

e
) e

) e

d e

il
) e
—

D o

BRIRIRET=2 3

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

.WORD

.BLkB

3
SEQ 0039

.BLKB

400

.BLKB

40C

BLKB

PAGE 64=~1

OOOOOOOOCOOO

(ZM38D0 M9312/1144 UB] BOOT

100

HAS

t*THE FOLLOWING CODE WAS ADDED IN RFV BO:
*”CLEAR” CLEARS THE NEW LABEL AND BUFFER LOCAT!ONS
*”CON1” AND "'CON2‘’ FILL 'BUF1'' WITH THE (ONTINUATION ROM DATA AND

,*SET ERROR FLAGS WHEN NECESSARY

:‘ HOLCKT''
AND “HOLCKZ'® CHECK FOR HOLES TO VERIFY THE POWER fAIL
.*VECTOR ADDRESS; ALSO SET 11/6v INDICATOR WHEN APPL[CABLE
:+'ROMTYP'* AND 'ROMNM' FILL

P +#MESSAGE
* 4

AND WITH A ROM

THE MESSAGE BUFFER WITH A CONTINUATION ROM

IDENTIFICATJON MESSAGE

RO RoEROANSERRERSRISRRETNS

PORNIAIANIPNININY
= = ed e d e d ed e e ed e D d d =D ed b

n
&H
o

Purd

Guur G

md
e
h o
b
d
d
D
d
h

Pl Gins Suur Goor GGy Qo Sy G- Gour Py

D
d mh

Shur Qs Qi G

b o
b
D
D

s Gaur S
Shuer Gy Suwr Shuur

b e

QOOOOOO0O0OOOOONOOOOOOODOOOOO

punr G

b
—

—

T S 35

012700
005020
020027

101774
000207

03M67

~
o

MACRN M1111

01226¢

24-SEP-79 16:37

(L EAR:

1%:

012324

FONY:

001152

Ik ¥

1272777

BIT

RTS

BIS
MOV
MOV

1¢%-

BIT
BNE

4
SEQ 0040

RO
#SEQBUT,
(RO)+
#F INISH
&0,
1%

R,
1%

RTS

1ST
BNE

2%:

000001
«00004
167662

000004

167650

000777

173224

000002
001012

001020

HOL (K1 :

MOV
ADD
R1S
MOV
MOV
ADD
MOV
RTS

BIT
BEQ
RTS

HOL(CK?: 81T
BEQ
RTS
18:
(M8
BEQ
BIS
MOV
END:
ROMTYP:

001016

000001

18:

000024
012350
173130

2%:

000004
000740
ROMNM:

1%:

000002

RTS

(ON2:

001102
000002

000170

(LR
(w
BLOS

PAGE 65

J+CONTINUATION (H]P?
;*BRANCH IF YES

CONF IN

“+CHIP DOES NOT BELONG HERE-SET ERROR FLAG

(ONER|
+
(RO)
(RO)+

J+SET CONTINUATION ROM INDICATOR
*ILLEGAL ROM'S DEVICE CODE --1

VYES

THIS

CHIP?

J+"ONTINUATION CHIP?
;*BRANCH [F YES
;+CHIP IS MISSING-SAVE DEVICE COCE
R4

J+SEV CONTINUATION CHIP INDICATOR
J+GET PREVIOUS DEVICE

R2.

PC
.2,

-4

“+A CHIP IN SOCKET #1?
;+BRANCH IF

END

PC
",

1$
P(
w777,

END

"2,
RETURN,

ROMF IN

S+A CHIP IN SOCKET #2?

aw173224

¢ARE SWITCHES SET?
J+BRANCH [F NO

*BRANCH IF

:+SET 11760 INDICATOR

F' AG

J+SET UP ALTERNATE RETURN

(R6)

MR2

"+ARE WE FINISHED?

J+BRANCH [ NO
*SET UP ALTERNATE RETURN

(R6)

*CONTINUATXON CHIP?
J+BRANCH IF YES

(R3)

ROMNM
PC

ROMNM

PC,

F ILBUF

NCONMES,

(R3)

(ODE

J+POINT TO CORRECT LOCATM'N
J+PUT [N DEVICE (CODE

18
FINISH,
PC
,,

:+]TS A DEVICE CHIP-FIND SOCKET #
J+FIND SOCKET #
;+LOAD MSG INTO BUFFER
b

RETURN,
P
¢

7170,

R3
(R6)

;+POP OVER CONTINUATION (CHIP DATA
J¢SET UP ALTERNATE RETURN
bl4

(R3)

*+BEGINNING A NEW ROM?
L +BRANCH IF NOT
<+

ROL

R1
R1,

RCMF [N

ADD

8IT
BNE

J+BRAN(CH [F

3NE

BNE
(Lc

;*ALL CLEAREC?

J+BRANCH [F

MOV
RTS
MP
BEQ
BR
JSR
MOV
JSR
HT
ADD
MOV
RTS
BIT

OPOINTING OVER

RIS

TST

J¢SET UP TO CLEAR LOCATJONS

RTS

001116

000002

MOV

BNE

001132
000001

167530
N

)
I

i ——d —d —d

I
R

e
b

e
e R

) wad
D

R
R

) e
)

.
e

)
)

e
) el

—t el

NWNWWNWNIN N NI NN
WVWVIWVIWVINWVIWIWIWNWNE
B
OB
O
NNNOOOQOQO

011300

irlelelelolelelolelololalolelolelelelo)

MNONUNIPONINUA.
NIN, — =

D s
D
d
D
i
)

d
)
d
)

D ed
b

d
e
e

D el
i md
-

il it el

N-—noogw&miu%—agomwou\bum-aoooo\combwm—-oo&w&mfidum—»g'xmwo\nbum Bl @ XVelo B NTo

D o
D e
D

D e o
P e
)

d
ad
i

D e
d

S
o

d
D
D
)
D

D
d
D

md ed

D e
)

d
D
)
D
D
e
D

D rd
cod
D cond e

D cond el

D med

) e

D ed

d e e

D edd

D e

d e

)

TRAP

(ZM3BD0 M9312/1144 UB] BOOT

;¢POINT TO NEXT SOCKET
;+IS A ROM THERE?
;+BRANCH |F VYES
. +POINT TO NEXT MSG

(2M98D0 M9312/114¢ WB] 8007

TRAP

MACRO M1

TABLE

1173
1174
1175
1176
1177

011374
011376
011400
011404
011406

V178 011410
1179 01144
1180
1181

000770
012205
004767
000015
000402
12724
000207

173060

k3 ¥

000011

;+]F

;+1f

000011
000652

1196 011436
1197 011442
1198 011450

013702
012767
032703

000644
012326
000400
000002

1194 011430
1195 011432

1199 01146454

RSB SO
NRN

(O RV, LV, LV, LV, LV, 1V, ]

n ) ——d
—

el e

QOO0

000367
016767
105067
000402
011267
004767
000207

000674

MSG BUFFER

(RG)+

;+L0AD

TAB

THE ONLY PROBLEM IS ALPHABETICAL ORDER AND/OR HOLES.

ANY ARE

FOUND,

SEQTST: MOV
vST

IS DETERMINED AND PRINTED OUT.

PRINT tERROR MSG AND EXIT

CONER1
23

CONER1,

167440

J+SET UP FOR 'ERRHAN''

ARG?

:+WAS THERE AN ERROR?
;+BRANCH IF NO

WMMESSPT,
#CONONE ,
”2,

1%:

3%
x2,

RZ2

ROMERR

;+THE BIT

IDENTIFIES THE

J+POINT TO MSG TABLE

(HIP

;+SET ERROR FLAG
J+IDENTIFY

THE

ROM FOR PRINTOLT

J+BRANCH IF FOUND IT
;+SET UP FOR NEXT ROM MSG

R?2

2%:

000610
001000
010016
000566
000562
176270

000560

172300

J+#SET UP TO IDENTIFY NEXT ROM

CONER?
FILTAB

;*WAS THERE AN ERROR?
;+BRANCH IF NO

* ¢

167496

#CONTWO,

176272

CONER?
CONERZ, MEST

000604

MEST,

ROMERR

ARG

4%
(R2),

3%:

4%:

PC
PC

THERE WERE

ERROR

FLAG

THIS ADDRESS

;+REPORT THE ERROR
;+PASS MSG ADDRESS

ARG]

ERRHAN

;+*REPORT
o

ERROR

THE

SECOND DEVICE

CONTINUATION ROMS FOR

DEVICE

SECOND DEVICE

JEE SR

CODE

TO 'TRRHAN''

FOLLOWING TABLE:

FIRST DEVICE CODE
# OF CONTINUATION ROMS FOR FIRST
# OF

TO ERRHAN

NO CONTINUATION ROM ERRORS, B' ILD

:
SEQRUF

+SET

. +PASS

J+*BUILD THE MSG
.t

MES1+?2

;+]F

012262

173000

fOURTH (LAST) DEVICE CODE

ENDSEG:

B
LR

12703
02
NNV

~oco~40whl~uuv-a<>$;
b

el
D

AT,
PC

000002

)

md wmd

062702
000241
006003
000770
005767
001423
012767
012767

—r et

001026

)

011456
011462
011464
011466
011470
011474
011476
011504

001417
016703

b e

e e

THE

J*FIRST, CHECK FOR ILLEGAL CONTINUATION ROM ERRORS
012767
005767

;*INTO
MR4

;*THEN A CORRE(CT SEQUENCE

1192 011416
1193 011424

F ILBUF

J*HOLES, AND THAT SOCKET #2 HAS A (HIP [F THE PROCESSOR IS AN 11/60.

1186
1187
1188
1189
1190
119

LN, VT, VT, N1 .NT.N1, 61, ¥, ¥

;+CONTINUE
;+LOAD ROM |D

;+THIS TEST VERIFIES THAT CONTINUATION (CHIPS ARE LGCATEC WwHERE
;*THEY BELONG, THAT THERE ARE NO DUPLICATE DEVICE ROMS,
;+THAT THE ROMS ARE IN ALPHABETICAL ORDER, THAT THERE ARE NO

1183
1184
1185

—

SEQ 0041

s +SEQUENCE TEST

'182

1200
1201
1202
1203
1204
1205
1206
1207

PC,

RTS

PAGE 65-1

18
(R2)+,

8R
MoV
JSR
(R
BR
MOVB

’$:

24=SEP=79 16:37

FOR A "HOLE'',

FILTAB:

MOV

THE DEVICE
#SEQBUF ,
#173000,

CODt wILL BE A 0.
R3
R

J+SET UP T0 § | LL A TABLE
;+POINT

TO FIRST

ROM

CALLED ‘‘SEQBUF*’

(ZMIBD0 M9312/1144 UB] BOOT

W
=

012700

000001

24-SEP-79 16:37

1%:

167326

111564
011570
011572
011576
011600
011602
39 011606
011612
011616
011620
011622
011624
011630
NV

D D d e e

30 011554
011560
011562

NNV NN NINI MY

i
o
)
—

TABLE

POV

TRAP

MACRO M1111

000514

2%:

000004
000200
000020

3s.
5%:

(%:

000002

PAGE 65-2

SEQ 0042

MOV
CLC
ROL

° 4

J+POINT TO NEXT ROM

BIT
BEQ

;+IS IT A HOLE?

J+BRANCH IF YES
;+1S IT A (ONTINUATION CHIP?
; +BRANCH [F YES
;+ITS A DEVICE ROM-PUT DEVICE CODE INTO TABLE
;+POINT TO NEXT DEVICE CODE LOCATION
J+POINT TO NEXT ROM
J+ALL DONE?

BIT

BNE

MOV
ADD
ADD

BIT
BEQ

. *NO-BRAN(H

J+TABLE COMPLETELY BUILT

BR
INC
ADD
BR

;+(OUNT ONE CONTINUATION CHIF IN LOCATION
;+POINT

TC NEXT

DEVICE

CODE

LOCATION

* 4

;+NOW CHECK DEVICE CODES IN '‘SEQBUF'' FOR ALPHABETICAL ORDER AND
IF THERE IS A DUPLICATE DEVICE CODE, PRINT
;+CHECK FOR "HOLES''.
IF DEVICE CODES NEED SORTING
;*AN ERROR MESSAGE AND EXIT.
SET THE SEQUENCE ERROR
AND
IT
DO
FILLING,
;+AND/OR HOLES

101610

(MP
BHI

005713
001446
005714
001767
021314
001410

020327

103056
000754
012767

TST
BEQ
1ST
BEQ
CMP

000004
012276
002000
010016

167174
000374

4%:

176066
176064

172102

5%:

6$.

000200

167120

R3,

G,
R&,

33
(R3)

MCY
MOV
MOV
MOV
MOV
MOV
BR

;+SET UP TO CHECK ALPHABETIC SEQUENCE IN 'SEQBUF''
;+WILL BE COMPARING (R3) 10 (R4)
;+WHERE R3 AND R4 POINT TO DEVICE CODE LOCATIONS
;+PAST

THE

LAST

DEVICE

#MMEST,
(R&)
(R§),
MES1+2

PC,
P(

R3,
R4,

(R2),

(R1),
RO,

(R2),
(R1),
RO,

#SEQERR,

ARG1

(ODE

HERE?

J+BRANCH [F NO
:+1S THE SEQUENCE CORRECT?
;+BRANCH IF NO=-FOUND A DUPLICATE
;+BRANCH [F NO-NEED TG 0O A SHIFT
s +YES-CONTINUE
;+POINT TO NEXT DEVICE CODE
;+ALL DONE?
;+BRANCH IF YES

#ENDSEQ

#DUPERR,

CODE?

J+BRANCH IF YES
;+]S THERE A DEVICE CODE HERE?
J+BRANCH IF NO

ADD

MOV

;+1S THERE A DEVICE

BEQ
BGT
BR

(MP
BHIS
BR
MOV
MOV
SWAS
MOV
(LRB
JSR
RTS
MOV
MOV

R4
R4
#ENDSEQ

ROMERR

J+NOT YET

;+SET ERROR FLAG
:+PASS

THIS ADDRESS

;+BUILD THE MSG

MES]

TO '¥RRHAN''

MR4

" +REPORT THE ERROR

ERRHAN

MR2

R1
R2
RO
(R2)
+
(R1)+
RO
(R2)
(R1)

“+SET UP FOR THE SHUFFLE
N

“eSHIFT THE VALUES
.

¢+

000004
012276

#SEQBUF
,

1281
1282
1283
1284
1285
1286

062704
020427

ALPHCK: MCV
1%:
MOV
ADD
2%:

CASE.

1273
1274
1275
1276
1277
1278
1279
1280

012262

010304

“e

1271
1272

012703

11/60 SPECIAL

¢+

11632
011636
011640
011644
011650
011652
011654
011656
011660
011662
011664
1264 011666
1265 011670
1266 011672
1267 011676
1268 011702
1269 011704
1270

ALSO CHECK FOR THE

’

. +FLAG.

ROMERR

S+SET THE SEQUENCE ERROR F.AG
*+CONTINUE SORT ING

(ZMIBDO M9312/1144 uUB] BOOT

TRAP

TABLE

1287 011772
1288 011774

10305
020527

1290

062705
005715
001771
032767
001004
10573/
001401
000422
010301
010502
000743
032767
001413
005767
00" 366
005767
001405
012701
012702
000724
032767

1289

1291
1292

1293
1294
1295

b
— e

ed el

—d ed

AN AN NN N NN NN N NN N
A\ NN =
b
b D
~n =S OV
NI NS WA =20

1296
1297
1298

103017

001001
000207

MACRO M1111
7% :

012276

8%:

000004
000032

167076

000242

9%:

000212

012262
012266
000200

167004

10%:

SEQ 0043

J¢+SET UP "C SEE
,+END OF TABLE?

ADD

[ [A

BEQ

;+NO=-POINT TO NEXT DEVICE CODE LOCATION
;+1S THERE A ROM HERE?

BHIS

R3,

(RS>

BIT

#32,

BEQ

MOV

MOV
BR
BIT
BEQ
TST

BNE
TST
BEQ
MOV

000200

#ENDSEQ

(MP

BNE
TST8

11%:

PAGE 65-3

RS,

MOV

173224

000002

24-SEP-79 16:37

118
aN17322¢4

108

R3,

J+YES=-THIS WAS NOT A "HOLE''

; *BRANCH IF NO

J+A ROM IN SOCKET #2 ONLY?

ROMF IN

. *BRANCH [} NO

;+11/60 SPECIAL CASE?

s +BRANCH [F NO

;+THE ONLY ROM MUST STAY [N SOCKET #2

;+YES-THERE

“+FILL

012700
013702
012704
012705
004767
000015
005710
001004
062700
062702
012767
000310
012067
105067
012205
004767

012244

000015
016705
004767
000011
005720
001405
005340
012767
009760

000200
000174

R1
R2

8IT

#SEQERR,

ROMERR

RTS

012611

OULTTAB: MOV
MOV
MOV
MOV
MOV

MOV

172314

égR

PC,

THE

FILLED

HOLE

J+CHIPS #1

AND #2

;+DO THE SHIFT
;+WAS THERE A SECJUENCE ERROR?
:*BRANCH [F YES
R2

MMEST,
ARG]
#CR,
ARG?2
#SEQBUF,
SMMESSPT,
MEST,
R4

NERMESSG,

(AN BE

NO
#2 EMPTY?
NO
#1 EMPTY?
YES
J+SET UP TO SHIFT

FOLLOWING ROUTJNE BUILDS THE (ORRECT
:+PRINTED AS AN FRROR MSG BY 'ERRHAN''

010016
000015
012262
012326
010016

THAT

. *BRANCH [F
.+]S SOCKET
. +BRANCH |F
;+1S SOCKET
;. +BRANCH IF

;+THE

012767
012767

;+~AN 11/607?

ggv

OUTTAR

IS A HOLE

;+GET READY TO SHIFT THE VALUES

RS,
R2
6%
I
FLAG
108
SEQRUF
+4
11%
SEQBUF
108
#SEQRLF,
giEQBuF*L,

BNE

IF WE HAVE A 'MOLE'’

F ILBUF

SEQUENCE MSG

;*+PASS MSG

RO
R2

ADR.

; *PASS THIS T00

TO BE

TO 'ERRHAN''

4
4

:+START BUILDING THE ERROR MSG
;+PUT

THE

FIRST

PART

* ¢+

000004
000002
010416

TST
BNE

000126

176214
176212

1%-

2%:

172250

ADD
ADD
MOV
SWAR
MOV
( RB

MOV
ggn

(RO)
1%

84,
X2,
MMES?,
(RO)
(RO)+,

MES2+2

(R2)+,
PC,

;+IS A ROM IN SOCKET #1?

; +BRANCH [F

YES

;+DO SOCKET #2 ONLY

RO
R2
BUILD

J+SET UP Trt DEVICE CODE PART
-+

MES?

“+IDENTIFY THE ROM &

RS
F[LBUF

000100
17223¢

MOV
J?R
H

012350

000056

ST
BEQ
DEC
MOV

B8R

BUILD,
PC,

RS
F ILBUF

J+PUT
.

IN EITHER DEVICE

C(ODE

(RO)+
33
-(R0)
#CONMES,

;+ANY CONTINUATION ROMS?

BUILD

J+BRANCH [F NC
;+COUNT DOWN ONE ROM

;+SET UP FOR CONTINUATION MSG
; +CONT INUE

(ONTINUATION M7,

(ZM3BDO M93°2,1144 UBI BOOT

ACRU M1111

TRAP TABLE

1344 012246
1345 012250

1346 012252
13647 012254

1348 012260
1349
1350
1351 012262
135¢ 012264

1353 012266
1354 012270

1355
1356
1357
1358
1359
1360
1361

012272
012274
012276
012300
012302
012304

012306

005710
001346

105014
004767
000207

O
0
0

;+FIRST DEVICE CODE
;+# OF CONTINUATION (HI®S FOR FIRST DEVICE
;+SECOND DEVICE CODE, ETC

CONERY:
(ONERZ:

.WORD
.WORD
.WORD
WORD
.WORD
.WORD

0
0
O
0
O
0

it
Jt
;+FOURTH (LAST) DEVICE CODE
N
J+EXTRA (ONTINUATION (HIP ERROR FLAG
J+MISSING CONTINUATION CHIP FOR THIS DEVICE

FLAG:

.WORD

J+BIT 1:11/60

DeVFIN:

.WORD

ARG? :

.WIRD

ENDSEQ:

RETURN:

000000

CONFIN:

ARG1:

000000

BUILD:

1370 012326

012340

1371

012330

012636

1373 012334
1374 012336
1375 012340

012666
012702
012716

1377 012344
1378 012346

012746
012762

1367 012322

}%28 012324

1572 012332

1376 012342

1379 012350
012353
012356

000000

012732

M
101
11/

123
040
116

040
103
124

012364
012367
012372
012375
1380 012376
012401
012404
012407

101
117
122
000
015
040
116
116

124
116
117

m
040
115

012
103
124
125

101
117
1M
103

012415
012420
012423
0124¢6
02431
012434
012437
012442

116
117
1m
m
117
105
114
114

040
115
123
116
122
103
131
117

122
040
040
103
122
124
040
103

0126412

012445

124

101

116

124

ERRHAN

.WORD

WORD

J*MUST END WITH O BYTE
J+REPORT THE ERROR
ot

s +*ALTERNATE RETURN ADDRESS
;+CONTINUATION ROM FOUND

;+*DEVICE ROM FOUND
;+PASSES MSG ADR.

MESSPT:

.WORD

MESTAB

MESS44:

AROMI

MESTAB:

AROM3
AROM4
ROM1

Jrr
Hh
J+ASCI]

ROM3
ROMS

it
i

C(ONMES:

.WORD

ARQOM?2

INDICATOR

TO 'ERRHAN''

;+PASSES (R OR HT TO "ERRKAN''

.WORD

FINISH:

012652

012361

.WORD

000000

;*ANY MORE DEVICE ROMS?
s *BRANCH [F YES

.WORD
.WORD
.WORD

SEQRUF:

000000

1366 012320

SEQ 0044

(R&)
PC,

000000

(RO)
8

RTS

000000
000000
000000
000000
000000
000000

1364 012314

TST
BNE

PAGE 65-«

LLRB
JSR

171562

000000

00C000

1265 012316

3%:

Q00000
0000060
000C00

1362 012310
1363 012312

24=-SEP=-79 16:37

J+ALTERNATE RETURN ADDRESS

ROM?2

.ASCIZ /IS A CONTINUATION ROM/

MSG

TABLE

125

ERMES1:

_ASCIZ <15><12>/A (ONTINUATION ROM S

117

105

INCORRECTLY LOCATED

[N/

ZMOBDO MI312/1144 UB! BOO”
TRAP TABLE

MACRO M1111
040
000

012463
012466
01247
012474
012477
012502
012505
012510
01513
012516
012521
012524
012527
012532

116
116
124
116
117
13N
115
123
107
117
104
1
040
104

124
125
11
040
115
123
1M
111
040
122
105
103
102
105

MM
101
117
122
040
040
123
116
106
040
126
105
117
000

C125490

110

105

122

*381 012455
012460

1382 012535

015
040

012
103

101
117

015

012

012543
012546
012551
012554
012557

105
123
040
120
103

040
040
. 104
114
101

188
101
125
11
124

012565
012570
012573
012576

137
127
110
105

115
111
040
126

040
124
104
111

012604
012607

103
105

117
000

104

012614
012617
012622
012625
012630
012633

125
103
123
125
040
072

105
105
110
14
102
012

116
040
117
104
105
000

012641
012644
012647

040
105
051

061
064
040

050
070
000

012655
012660
012663

040
105
051

062
064
040

050
071
000

012671
012674
012677
1387 012702
012705
012710
01271%
1388 012716

040
105
051
122
040
105
051
122

063
065
040
117
064
065
040
17

050
060
000
115
050
071
000
115

012562

012601
1283 01261

1384 012636

1385 012652

1386 012666

105

103

123

122

040

105
105

117

G &
PAGE 65-5

SEQ 0045

104
16

012450
012453

24-SEP=79 16:37

124

ERMES2:

.AS(IZ <15-<12>/A {ONTINUATION ROM ]S MISSING FOR DEVICE CODE/

ERMESS:

.ASCIZ <15><12>/THERE

121

ERMES4:

.ASCIZ /SEQUENCE

115

AROM1:

_ASCIZ

115

AROM2:

,ASCIZ

IS A DUPLICATE

ROM WITH DEVICE

122

040

115

SHOULD BE:/<12>

/ROM 1(E48)

Jee

/ROM 2(E49)

see

AROM3Y

_ASCIZ

/ROM 3(ESQ) /

Jen

AROM4:

_ASCIZ

/ROM &4 (ES9)

ROMT:

ASCIZ /ROM 1(E35)

(ODt/

(ZMIBDO M9312/1144 UB] BOOT

MACRO M1111

TRAP TABLE

012721
012724
012727

040
105
051

06"
063
040

G50
065
000

012735
012740
012743

040
105
051

062
063
040

050
063
000

012751
012754
012757
1391 012762
012765
012770
012773

040
105
051
122
040
105
051

063
063
040
117
064
063
040

050
064
000
115
050
062
000

1389 012732

1390 012746

1392
1393

1394

122

000001

117

115

24=SEP=79 16:37

ROM2:

.ASCIZ /ROM 2(E33)

.ASCIZ /ROM 3(E34)

.
ROM3:

\
ROM&:

.END

PAGE 65-6

.AS(]Z /ROM 4(E32) / -

SEQ 0046

MACRC M'111

ABASE = 000000
ACOW1 = 000000

AROM4
AROUND

012702
004374

DAFLAG 003376
DDISP = 177570

OVERT
OVER10

004104
004414

Sw02
Sw03

= 000004
= 000010

ACPUOP= 000000
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW1TM= 000000
ADOW12= 000000
ADDW13= 000000
ADDW14= 000000
ADDW15= 000000
ADDWZ2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDWS = 000000
ADDWS = 000000
ADDW7 = 000000
ADDWS = 000000
ADDWS = 000000
ADEV(T= 000000
ADEVWM = 000000
AENV
= 000000

ATESTN=
AUNIT =
AUSWR AVECT1=
AVECT2=
BELL
BITO
=
BIT00 =
BIT01 =
BIT02 =
BIT03 =
BIT04 =
BIT0S =
BIT06 =
81107 =
BITO8 =
BI109 =
BIT'
=
BIT10 =
BIT11 =

000000
000000
000000
0000C0O
000000
006674
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000

DEVFIN
DISPLA
DISPRE
DRHEAD
DSWR =
DUPERR=
EHEADT
EMTVEC=
END
ENDSEQ
ERMEST
ERMES2
ERMES3
ERMESL
ERRCNT
ERRHAN
ERRMSG
ERROR =
ERRVEC=
ERIMSG

012314
001106
000174
006754
177570
002000
004436
000630
011270
012276
012376
012455
012535
012611
001120
004042
010516
104000
000004
007257

OVERZ2
OVER9
PFERR =
PFHEAD
PFMSG
PIRQ =
PIRQVE=
PPFVAR
PROMP
PRO
=
PR1
=
PRe
=
PR3
PR
=
PRS
=
PR6
=
PR7
=
PS
=
PSW
=
PUTMES

004352
004402
000040
007156
007473
177772
000240
003400
002702
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
003510

SW05
Swl6
Sw0/
Sw08
sw09
swl
Swi0
SWw11l
Swi2
sw13
SWi4
sw15
Sw2
Sw3
Swé&
SWS
Swé
Sw?
Sw8
SW9

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

ALPHCK

011632

BIT14 = 040000

007373

RDLIN =

104410

TESTAD

AMTYP&=
APASS =
APRIOR=
APTCSU=

000000
000000
000000
000040

ACOW2 = 000000

AENVM = 000000
AFATAL= 000000

AMADR1= 000000
AMADR2= 000000
AMADR3= 000000
AMADR4= 000000
AMAMS1= 000000
AMAMS2= 000000
AMAMS
3= 000000
AMAMSG
= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2- 000000
AMTYP3- 000000

APTENV=
APTER1=
APTERZ2=
APTER3=
APTERG=
APTSIZ=
APTSPO=
ARG1

ARGZ2

AROM
AROM1
AROM2
AROM3

000001
000001
000002
000004
000010
000200
000100
012316

012320

006650
012636
01265
012666

ASWREG= 000000

BIT12 = 010000
BIT13 = 020000
BIT1S BITZ2
=
8173
=
BIT4
=
BITS
=
BIT6
=
BITZ
=
BIT8
BIT9
=
BPTVEC=
BRHEAD
BUF1
BUF 2
BUILD

100000
000004
000010
000020
000040
00010C
000200
000400
001000
000014
007021
007722
010002
012322

CONER1
CONER2
CONFIN
CONMES
CONONE=
CONTWO=
CON1
CON2

01230/
012304
012312
012350
000400
001000
011134
011162

CALSUM
CHECKS
CKSWR =
CLEAR

24-SEP=79 16:37

(ZMSBDO MG3' 271744 UB! BOOT
SYMBOL TABLE

DEVCOD

003164

ERZMSG
ER3MSG

007223
007315

ERGMSG

EXCADD
FILBUF
FILTAB
FINISH
FIRSTA
FIRSTB
FLAG
GTSWR =
HOLCK1
HOLCK2
Hi
=
I0TVEC=
LASTAD
LF
=

002604
002366
104406
011116

LOOP
MESSAG
MESSPT
MESS44
MESTAB
MES1T

= 000015

NOROMS

CRCERR=
CRCLOP
CRCMSG
CRLF
=

000020
00¢622
007447
000200

002676
004464
011544
012324
002674
001114
012310
104405
011226
(11240
000011
000020
002700
000012
002614
001112
012326
012330

012340
010016
MCS2
010416
MFPT
= 000007
MNORM
006700
NODATA
002364
NOROME= 000100
NOROMM 007551
OCADD
OCASC
OCTBUF
OUTTAB

002300
004632
004526
010006
0121iC

PAGE 65-7

OVER11

004406

PWRVEC= 000024
RDCHR = 104407

SwW04

SEQ 0047

= 000020

TBITVE= 000014
TEMP
004630

RESREG=
RESVEC=
RETURN
ROMCNT
ROMERR
ROMFIN
ROMNM
ROMNUM
ROMPTR
ROMTYP
ROM1
ROM2
ROM3
ROM4

106412
000010
012306
002602
001110
001116
011350
006662
006645
011276
012716
012732
012746
01276¢

TIMES
TKVEC =
TPVEC =
TRAPVE=
TRTVEC=
TYPE
=
TYPOC =
TYPON =
TYPOS =
SAPTHD
SATYC
SATYT
SATY3
$ATY4

SCOPE =
SEQBUF
SEQERR=
SEQMSG
SEQTST
STACK =
START
STKLMT=

000004
012262
000200
007627
011416
001100
001400
177774

$CHARC
$CKSWR
SCNTLG
SCNTLU
$CPUOP
SCRLF
$ODWO
$ODW1

RSTART
002140
R6
=%000006
R7
-%000007
SAVREG= 104411

SWR

001104

SWREG
000176
Sw0
= 000001
Sw00
= 000001
SwO1
000002

000040
000100
000200
000400
(01000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
003374

004040
000060
000064
000034
000014
104401
104402
104404
104403
001122
005240
005214
005222
005232

$AUTOB
$BASE
$COW1
$COw2

001100
001212
001216
001220

SCOW10

001246

$ODW11
$00OW12
$ODW13
$DDW14

005174
005466
006213
006206
001164
005211
001222
001224
001250
001252
001254
001256

(ZMIBDC M9312/1144 UBI BOOT

MATRO M11'1

24-SEP-79 16:37

tODW1S

001260

$ETABL

001156

$ODOWS

00123%

$FILLC

SYMBOL

$0DWe
$00OW3
$ODW4

SODWE
$DOW7

sO0OW8
sODW9
SDEVCT

$DEVWM
$DOAGN
$ENDAD
SENDCT
SENDMG
SENULL
SENV
SENVM
$EOP
SEOPCT
.

TABLE

001226
001230
001232
001236
001240

001242
001244
001146

001262
001140
005460

$FILLS
$GET42

005205
002236

005206

$GTSWR 005536
$HD
= 000003
$tHIB
001122

001214
002256
002246
002222
002265
002262
001156
001157
002176
002214

012776
000000
ERRORS DETECTED:

SETEND
$FATAL
$FFLG

$INTAs
SLF
$LFLG
$MADR1
$MADR?
$MADR3
$MADRS4
$MAIL
sMAMST
tmMaMS?

ABS.

001101
005212
005457
001170
001174
001200
001204
001136
001166
001172

SMAMS
3
SMAMS
S
$MRADR
SMFLG

SMNEW

$MSGAD
EMSGLG

SMSGTY
$MSWR
MTYP]

MTYP?
SMTYP3
SMTYPS
SNULL
$OCNT
$OMODE
$PASS
$PASTM
$QUES

001176
001202
001124
005456

006231
001152

001154
001136
006220
001167
001173
001177
001203
005204
006464
006466

001144

001130
005210

000
001

VIRTUAL MEMORY USED:
58280 WORDS
( 228 PAGES)
DYNAMIC MEMORY:
20434 WORDS
( 78 PAGES)
ELAPSED TIME:
00:05:20
(ZM9BDO, (ZMIBDO. SEQ/NL : TOC/CRF /=SP=(ZM98D0. SML. , (ZM98DO. P11

PAGE 65-8

SEQ 0048
$RDCHR
$RDL IN
$RDSZ
$RE SRE
SRTNAD

005750
006070
000010
00652¢
002260
006470
000124

177777
000210
160000

001160
001142
005464
005462
000001
005202
005207
005200
006564

$ TRAP?
$TRP
$TRPAD

$TSTM
STTYIN
STYPE
STYPEC
STYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
$VECTI]

SVECT?
$S$GETS
$OF ILL
.$X

006606
000013
006620
001126
006176
004646
005060
005176
006266
006302
006242
001150
001132
001162
001206
001210
000000
006465
001122

(REATED BY

(ZMS9B8D0O

AMADR1
AMADR?

T I
I
1
T
I
L
T A
O
e
L

AMADR3

AMADRS
AMAMS1
AMAMS?
AMAMS
3
S
AMAMS
AMSGAD
AMSGLG
AMSGTY
AMTYP?

AMTYP2
AMTYP3

AMTYFS
APASS
APRIOR

APT(SU
APTENV

APTSPO
ARG1

REFERENCES

61-469
61-469
61469
61~469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469

#61-436

APTER1

APTER?
APTERS3
APTERG
APTSI?Z

ON 24-SEP-79 AT 16:40

61-469
61469
61-469
61-469
65-1242
61~469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61~469
61-469
61-469
61-1036
61-1036

ADEVCT
ADEWM
AENV
AENVM
AFATAL
ALPHCK

MACRO

61-469
61-469
61-469

ADDW6

ADDW7
ADDW8S
ADDW9

ADDWS

won

ACPUOP

ADDWO
ADDW1
ADDW10
ADDW11
ADDW1?2
ADDW13
ADDW14
ADDW15
ADDW?
ADDW3

1O P

SYMBOL CROSS REFERENCE
VALUE
SYMBOL
ABASE
000000
ACDWA
000000
ACDWZ

#61-437

#61-438
#61-439

000100
012316

61-472
61-1036
61-904

PAGE 1

SEQ 0049

CREF

61-469
61-469
61-4669
61-469
61-469
61-469
61-469
61-469
61-469
61-469%

61-469
61-469
61-469
61-469
61-469
61469
61-469
61-469
€1-466
61-469
61-469
61-469
61-469
61-469
61-469

#65-1253

61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469
61-469

#61-1037

61-1037
61-666

#61-1037

61-678
61-689
61-695

#61-1037

61-1037
*65-1207

#61-1037

*65-1212

«65-1271

*65-1317

#65-1365

ARG2

012320

AROM
AROM1
AROM?
ARQM3

006650
012636
012652
012666

ARQOMS,

AROUND
ASWREG

ATESTN
AUNIT
AUSWR

AVECT1
AVECT2

BELL
BITO

BITOO
BITO1
BIT02
BITO3
BITO4
BITOS
BITO6
BIT07
BITO8
BITO9
BIT1
BIT10
BIT11
BIT12
BIT13

BIT14
BIT1S
BIT2
BIT3
BIT4
BITS
BIT6
BIT?

BIT8
BIT9
BPTVEC
BRHEAD
BUF 1

BUF 2
BUILD

CAL SUM

CHECKS
CKSWR
CLEAR
CONER1
CONER2
CONF IN

012702

=
=
=
=
=
=

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

004374
000000
000000
000000
000000
000000
000000

006674
000001

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

040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000014
007021
007722

010002
012322

002604

002366
- 104406
011116
012302
012304
012312

MACRO

ON 24-SEP-79 AT 16:40

REFERENCES

61-903
61-480
65-1371
65-1372
65-1373
65-1374
61-940
61-4€9
61-469
1-469

61-469
61-469
61-469
61-884
#61-432

+65-1192

*65-1318

61-943
61-469

#61-945

#61-1050
#65-1384
#55-1385
»05-1386
#65-1387

8651366

#61-1060

61-432
61-432
61-432
61-432
61-432
61-432
61-432
61-432
61-432
61-432

#61-4732
#61-432
#61-432
#61-432
H61-432
#61-432
HE1-432
#61-432
#61-432
#61-432

61-951

61-881

61-88>5

61-816
61-485
61-686
*65-1329
61-571
61-525

#62-1066

61-491
*65-1124
*65-1133
*61-512

#65-1116

#61-1043

SEQ 0050

CREF

61-469
61-469
61-469
61-469
61-469

#671-432
#61-432
#61-432
n61-632
#61-432
#61-6432
#61-432
#1432
R61-432
#61-432
#61-4632
#61-432
#61-432
#61-432
H61-432

#61-432

PAGE 2

61-658
61-692
65-1336
61-584

#61-565

65-1193
65-1204
65-1121

61-672
61-782
*65-1342

#61-607

65-1195
*65-1208
65-1131

61-726
61-783

#65-1367

#65-1359

65-1209
65-1235

61-806
61-789

#64-1088
61-790

61-846

61-850

#64-10N

#65-1360
#65-1363
LY

CREATED BY

CZMIBDO

SYMBOL (ROSS REFERENCE
SYMBOL
VALUE

(ZM98D0

(REATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

CONME S
CONONE
(ONTWO
CON1

012350
= 000400
= 001000
011134

= 000015

CRCERR
CRCLOP
CRCMSG
CRLF
DAFLAG
DDISP
DEVCOD
DEVFIN
DISPLA
DISPRE
DRHEAD
DSWR

= 000020
002622
007447
= 000200
003376
= 177570
003164
012314
001106
000174
006754
= 177570

EHEADT
EMTVEC
END
ENDSEQ
ERME ST

004436
= 000030
011270
012276
012376

CONZ2

DUPERR

ERMES?2

011162

= (02000

012455

ERMES3
ERMES4
ERRCNT
ERRHAN

012535
012611
001120
004042

ERRMSG
ERROR
ERRVEC
ERTMSG
ERZMSG
ER3MSG
ERGMSG
EXCADD

010516
= 104000
= 000004
007257
007223
007315
007373
002676

FILBUF

FILTAB
FINISH
FIRSTA
FIRSTB
FLAG

GNS

GTSWR
HOL (K1
HOL CK2

004464

011544
012324
002674
001114
012310
KARRAR

= 104405
011226
011240

MACRO

ON 24~SEP-79 AT 16:40

REFERENCES

PAGE 3
CREF

SEQ 0051

#65-1379

65-1160

#61-444

#61-445

61-738
61-758

#61-432
61-1036

61-818
65-1176
61-588

#61-440

#61-612

61-963

61-473

8614632

61-733

61-760
61-472

#61-4632

61-809

#61-432

61-890

61-969
65-1322

#61-466

61-547
65-1213
61-879

#61-432
#61-432

61-959
61-960
61-961
61-962
61-569
61-810
61-931
65-1205
»61-822
61-570

#61-464

*65-1149
61-449
61-1043
61-1043
61-473
61-781
61-788

61-95>

61-981

61-1036

#61-766

61-667

61-679

61-690

61-696

#61-878

61-493

61-505

61-853
65-1334

51-897

61-605

61-927

61-1043
61-1043

61-1043

61-1043
61-1043

61-1036

*61-472

#61-461
#61-449

#61-432
65-1142
65-1256
61-967
61-968

61-898

65-132¢4

#61-726
#65-1364

61-645
*61-516

H61-446

61-857
65-1335

61-849

6l1=472
#61-959

65-1148
65-1267

#65-1150

65-1288

#65-1357

61-880
61-576
65-1275
61-946

61-589
65-1347
61-950

61-651
#64-1096

61-472

61-492

61-578
61-817

61-591
61-828
65-1161

61-622
61-835
65-1175

#61-631
61-848

65-1118
61-577
61-507
65-1301
61-449
61-1043
61-1043

65-1154
61-590
61-734

#65-1368

#65~1380

#65-1381

#65-1382
#65-1383

#63-1071
#63-1070
#63-1072
#63-1074

#61-977
#65-1228

#61-1043
#65-1141
#65-1144

#65-1362
61-473
61-1043
61-1043

61-594

65-1323
61-608

61-1043
6°-1043
61-1043

65-1337

#61-630

61-1043
61-1043

61-1043

CREATED BY

(ZM9B8DO

SYMBOL CROSS REFERENCE
SYMBOL
VALUE .

= 000011

[0TVE(
LASTAD
LF
LOOP
ME SSAG
MESSPT
ME SS44
MESTAB
ME ST

= 000020
002700
= 000012
002614
001112
012326
012330
012340
010016

MES2

010416
= 000007
006700
002364
= 000100
007551
002300
0046322
004526
010006
012110
004104
004414
004406
004352
004402
- 000040

[}
B
O

N
~
o

RDCHR
RDL IN
RESREG
RESVEC
RE TURN

PUTMES
PWRVEC

PS
PSW

PR2
PR3
PR4
PRS
PR6
PR?7

PRO
PR1

= 177772

PFMSG
PIRQ
PIRQVE
PPF VAR
PROMP

007156
007473

PFHEAD

PFERR

OVER10
OVER11
OVERZ2
OVER9

—

NODATA
NOROME
NOROMM
NORQOMS
OCADD
OCASC
OCTBUF
OUTTAB
OVER1

ON 24=-SEP-79 AT 16:40

REFERENCES
#61-432

61-1036

n61-432

61-568

#61-432

#61-610

#61-463

61-479
61-479
65-1370
61-647
65-1321
61-654

#61-470

000010
012306

61-579
61-824
61-626
61-655
61-820

61-592
61-858

61-625
61-934

#61-632

65-1196

65-1320

#65-1370

65-1207

*65-1209

*65-1210

65-1329

*65-1331

*65-1332

61-852

#61-1026

#65-1371
#65-1375
#64-1094
#64-1095

61-476

#64-1079
#61-540

61-887
61-938
¢€1-937
*61-889

61-834
61-930
61-996
#65-1317

#61-888
#61-951

#61-996

61-1001

#61-949

61-847
61-964

61-649
#63-1069
#63-1077

61-792

61-648
61-528

#61-643

61-684

#61-778

#61-432
#61-432

#61-432
#61-432
#61-432
#61-432
#61-432
#61-432
#61-432
#61-432
#61-432
#61-432
61-646
#61-432

#61-939
#61-947

61-1028
61-1008

61-1010

61-899

61-941

61-653
#61-1043

61-955

#61-1043

*61-780

*61-787

65-1271

65-1150

65-1164

#64-1093

#61-801

*61-821

61-977

61-979

*65-1274

65-1317

61-1036

61-982

61-432

61-1038

#61-432

61-932

61-546

61-944

#61-441

61-854
65-1192

61-840
65-1178

61-965
61-523
61-827
61-926
61-487
65-1311
61-886

SEQ 0052

CREF

61-836
65-1162

#61-1061
#61-557

#61-442

PAGE ¢

61-829
61-1036

61-540
61-542

#61-1043

vy PT
MNORM

MACRDO

#65-1361

*65-1273

(219800

SYMBOL
SYMBOL

ROMCNT
ROMERR

CREATED BY MACRO
CROSS REFERENCE
VAL UE

002602
001110
001116

ROMF IN

ROMANM

ROMNUM

ROMPTR
ROMTYP

ROM1
ROM2
ROM3
ROM4

RSTART
R6

R?
SAVREG
SCOPt
SEQBUF
SEQERR
SEQMSG
SEQTYST
STACK
START

Sw09
Sw1
Swi0
Sw11

SW12
SWi13
SWié

SwW15

Sw?
Sw3
Swé
SWS

011350

006662
006646
011276
012716
012732
012746
012762
002140
-2000006
2000007
= 104611

= 000004
012262
- 000200
007627
011416
- 001100
001400

- 001000

= 000002
= 002C00
- 004000
010000
= 020000
- 040000

100000

= 000004
- 00001C
000020
000040

ON 24-SEP=79 AT 16:40

REFERENCES

61-565
#61-462
61-792
»65-1197
#61-665
61-939
65-1158
61-1049
61-480
61-825
65-1375
65-1376
65-1377
65-1378
61-452
#61-632
61-977
#61-4632
61-878
#61-432

65-1116
#61-443
61-966
61-529
#61-432
61-449

#61-4632
#61-432
#61-432
#61-4632

#61-432
#61-432
#61-432

#61-432

#61-432
#61-632
#61-632
#61-432

61-566
61-546
61-888
«65-1206
61-489
65-1141
65~-1159
#61-1055
61-913
#65-1152
#65-1388
#65-1389
#65-1390
#65-13N
#61-521
*61-49?2
61-986

PAGE S
CREF

61-581
61-575
61-889
+65-1270
61-501
65-1144
#65-1166

$1-582
61-588
61-899
+65-1285
*61-513
65-1170

B 5
SEQ 003
#61-598

61-912

61-666
61-908

61-678
61-910

61-689
61-941

61-695
61-954

61-521
65-1293

61-566

61-582

61-728

*61-505
*61-1029

61-860
65-1154

61-863

61-925

61-929

65-1303

65-1307

65-1308

65-1319

#65-1351

61-649
61-901
65-1310
61=515
65-1233

#61-1049

61-530
*61-504
*61-1026

65-1164

#61-1043

65-1228
65-1285
#64-1081

#65-1192
61-472
00400 #61-432

61-432

65-1253
65-1310

€1-4632

MACRO ON 24-SEP-79 AT
JIMSBDO
CREATED BY
SYMBOL (ROSS REFERENCE
REFERENCES
SYMBOL
VALUE
#61-432
Swb
= 000100
#61-432
Sw?
= 000200
#61-432
Sw8
= 000400
#61-432
SW9
= 001000
#61-4632
= 000014
TBITVE
TEMP
004630
61-1002
61-1006
TESTAD
003374
61-507
61-508

=
=
=
=
-

TYPOC
TYPON
TYPOS

= 104402
= 104404
= 104403

SASTAT

$APTHD

SATY(C

SATY1
SATY3
SATYS
$AUTOB
$BASE
$CDW1
$CDW?

S$CHARC
S$CKSWR
SCMTAG

004040
000060
000064
000034
000014
106607

001122
wawenyw

005240

005214
005222
005232
001100
001212
001216
001220

005174
005466
[2222%

SCNTLG
SCNTLU
$CPUOP
$CRI F

006213
006206
001164
005211

$ODW10
$ODW11

001246
001250

$C W0
$DDW1

61-739

61-744

61-1012
61-510
61-745

61-490

61-802

61-805

61-472

01=472

61-530
61-1038
#61-1043

61-530
61-1038

#61-765

TIMES
TKVEC
TPVEC
TRAPVE
TRIVEC
TYPE

001222
001224

#61-432
#61-632
#61-432

#61-4632

61-473
61-1038
61-1038

#61-1043

61-468

61-103%7
61-1037
61-945
61-949

#61-1037
#61-457
#61-469
#61-4069
#61-469

*61-1036

#61-1038

61-472
61-1038
61-1038

#61-469

61-1036

$UOW12
$0DW13
$ODW14
$0DW15

001252
001254
001256
001260

#61-469
#61-469
#61-469
#61-469
#61-469
#61-469
#61-469
#61-469

$ODW3
$ODWS
$ODWS
$ODW6
$ODW7
$0DW8
$DDWS

001230
001232
001234
001236
001240
001242
001244

#61-469
#61-469
#61-469

$ODW?2

001226

16:40

#61-469
261469
#61-469
#61-469
#61-469

PAGE

(REF

SEQ 0054

#61-1019
61-730
61=749

61-1014
61-517
61-746

61-732
61-750

#61-865

61-540
61-1038

61-861
61-1038

61-883
61-1038

61-1036
61-1038

61-1038

#61-468

61-1037

#61-1037
#61-1037

61-1036

#61-1037

*61-473
61-685
61-691

61-1038

*61-1036
61-1043
61-472

61-1036
61-1043

*61-1036

#61-1036

61-1036
61-671

#61-1036

61-1038

#61-1038

61-1036
61-659

61-1038
61-1039

61-1038

861-1043

SFATAL
$FFLG
$FILLC
$FILLS

$GET4L?2

$GTSWR
$HD
$HIBTS
$INTAG
$LF

$LFLG

$MADR?

SMADR?2

001140
005460
005206
005205

002236

005536
= 000003
001122
001101
005212

005457
001170

001174

$MADR 3
SMADRS
SMAL
MAMS 1

001200
001204
001136
001166

$SMBADR

001124

SMNE W

006231

SMAMS 2
SMAMS 3
SMAMS 4
SMFLG

001172
001176
001202
005456

$MSGAD
$MSGLG
MSGTY
MSWR
MTYP1

001152
001154
001136
006220
001167

MTYPZ
MTYP4
SNUL L
$SOCNT

001177
001203
005204
006464

MTYP?2

$OMODE
$PASS
$PASTM

001173

61468

#61-469

61-530

*61-1037
*61-1037
61-1036
61-1036

#61-1036

61-430

61-1043
61-430

61-1038
61-1036

#61-1036

61-468

#61-469

61~472

*61-1037
61-1038

*61-1C37

#61-1037

61-1038

61-1037
#61-1038
*61-1037
*61-1037
61-1037

#61-1038

*61-1037

61-1037

61-1036
*61-1039
*61-1039

61-1036

61-1036
#61-1039
61-1039
*61-472

#61-1036

«61-1039
61-526

*61-1039
*61-530

#61-1039

*61-530

61-530

#61-1036

61-1038

#61-530
#61-1038
#61-468
#61-458

61-1036
*61-1037

#61-469

#61-469
#61-469
#61-469

#61-469
#61-469
#61-469
#61-469
#61-468

#61-469
#61-469
#61-469

#61-469
#61-469
#61-469
#61-469

#61-1038

S22 2%

#61-530

*61-1037
61-1036
61-1036

#61~469

005750

$RDDE C

61-936
61-643

#61-530

#61-469
#61-6468

005210

61-473
61-472
61-527

61-524
*61-472

006466
001144
001730

SQUES

$RD(CHR

#51-469

#61-469

#61-530
#61-530
#61-530

001156
001157
002176
002214«
001156
001262

#61-530
#61-530

SEQ 0055

SENV
SENVM
$EOP
$EOPCT
$E TABL
SETEND

002265

00226°2

61-530
61473

[}

$ENDMG

SENULL

002222

61-530
61-454
61=472
61-530
61-530

—

$SENDCT

002256
002246

PAGE
CREF

—-2

SDOAGN
$ENDAD

16:40

( ZMIBDO
MACRO ON 24=SEP~79 AT
(REATED BY
SYMBOL (ROSS REFERENCE
REFERENCES
SYMBOL
VALUE
#61-469
$OEV(T
001146
261469
001274
$DE WM

61-1036

61-1043

#61-1037

*61-1039
*61-1039
*61-472

61-1036
61-1043

61-1037
61-1036

*6"=103%7

#61-1036

61-1038

#61-1037

61-1038

61-473

61-1036

61-1037

61-1043

*61-1037

61-530

CREATED BY

(ZM98D0

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

SRDL IN

006C70

ON 24=SEP-79 AT 16:40

REFERENCES
#61-1038

61-1043

SRDOCT

$RDSZ
SRE SRE
SRTNAD

= 000010
006526
002260

#61-1038
#61-1040
#61-530

61-1038
61-1043

$SAVRE
$SETUP

006470
= 000124

#61-1040
#61-450

61-1043
61-450
61-472
61 473

$R2A

eneeer

MACRO

atntew

61-1043
61-472
ol=472

sSTUP
$SVP(
$SWR

- 177777
= 000210
= 160000

#61-450
#61-454

$SWREG
$TESTN
$7kB
$7KS

001160
001142
005464
005462

#61-469
#61-4L69

$IN
$TP8
$TPFLG
$TPS
$TRAP
$TRAP?
$TRP

= 000001
005202
005207
005200
006564
006606
- 000013

$TRPAD
$TSTM
$TTYIN

STYPEBN

006620
001126
006176
rewnex

61-4630
61-431

61-1036
61-1036
61-1038
61-4%0
61-1036
61-1036
61-1036
61-472

#61-1043

61-1043
61-1043

SUSWR
$VECTI
SVECT?
$$GET4
$OF ILL

00162
001206
001210
- 000000
006465

«61-1039
61-10%7

61-530
*61-1039
61-1037
61-468

#61-1039
#61-469
#61-468
#61-469
#61-469
#61-469
#61-530
#61-468

61-1043

#61-450

61-450

61-472

61-470

61-431

61-530

61-43i
61-530

61-431

61-43

61-1038
61-1038

#61-1038
#61-1038

61-1038
61-1038

61-1075
61-103¢6
61-1036

#61-1036
#61-1036
#61-1036

61-1043
61-1043

61-1043
61-1043
61-1043

61-1043
61-1043
61-1043
61-1043

#61-1043

61-10643

61-1043
61-1043

61-1043
61-1036

#61-1239

#61-450

61=472
61-1038

61-431
61-530

61-1037
61-1036
61-1036
61-1043

61-1039

#61-450

61-431
61-530

61-1038

61-1036
61-1036

61-450
61-472
61-530
61-450

61-431
61-530

61-1038

#61-1039

001122

#61-1043

61472
61-530

£#61=450

61-1038
61-1043
61=-1043

#61-468

006266
006302
006242
00115vu

.8X

61-1036
01-1036
61-1036

#61-450

#61-1043

$TYPOC
$TYPON
$TYPOS
SINIT

[ XXX
T}

#61-430

6°~450
61-472
61-473

61=472
61-473
61-450

61-1043

#51-1043

#61-1036

.BASTA

61-1036
61-1036

61-1043

#61-450

#61-1043

12222

001132

61472
61-472

SEQ 0056

61-1043

61-1043
61-1043
61-1043
61-1043

004646
005060

SUNITM

#61-463C

61-1043
61-1043
61-1043
61-1043

$TYPE
$TYPEC

005176

61-454

#61-1043

$TYPDS

$STYPEX

#61-450

PAGE 8
(REF

61-1043
61-1043
61-1043

#61-1043

61-1043
61-1043

#61-1036

61-1043
61-1043

61-1039

#61-1039

61-1043

61-1043
61-1043
61-1043
61-1043
#61-1043

61-103¢

A~1-1038

#61-1043

61-1043
61-1043
61-1043

61-1038

#61-1063

61-1043
o1-1043

(/MSBDO

(REATEC BY

MACRO

MACRO CROSS REFERENCE
MACRO NAME
REFERENCES
#18-1530
COMMEN
#18-1542
ENOCQOM
#20-1658
ESCAPE
#13-1282
GETPR]
#22-1729
GE TSWR
#63-4409
T
MUL
#19-1589
NEWTST
#26-2107
POP
#26-2099
PUSH
#56-5368
REPORTM
#12-1250
SETPR]
#61-1043
SETTRA
SETUP
SKIP

SLASH

SPACE
STARS

SWRSU

TRMTRP

TYPBIN

TYPDE
C
~YPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$SESCA
SINEWT
$ESET

$SSETM
$%SKIP
.EQUAT
.EQUIV
.HEADE

.SETUP
.SWRH]
.SWRLO

LSACTY
.SAPTB
.SAPTH
.SAPTY
.SASTA
.SCAT(C
.SCMTA
. 082D
. $DB20

61-1043

ON 24=-SEP-79 AT 16:40

61432
#61-432
#61-432
#51-432
#61-432
#61-4632
n61-632
261427
261427
#61-427
#61-432

61-1043

n61-473%

n61=-432
#61-432
n61-432

61-1043

PAGE
(REF

21-1037

1-1037

61-1037

61-1040
6£1-1037

61-1041
61-1040

61-1042

61-1043

61=-1043

61-1043

61-433
61-1038

61-435
61-1038

61-454
61-1038

61-468
61-1038

61-468
61-1039

61-468
61-1040

61-469
61-1043

61-1043

61=1043

61-1043

#61-432
#61-432
n61-432
#61-432
#61-426

#61-472

#15-1420
2#61-1043
#25-2043
#25-2013
#23-1783
#25+1980
#25-1633
#25-1896
#24-1850
#20-1671
#19-1625
#61-1043

#61-432

#61-47?2

RE1=472

#61-632

#67-473

61-1043

#61-472
#21-1705
#4-180
#61-416
#61-432
#61-632
n2=-54
#5-323
#10-1184

#3-96
#61-431
#52-4977
#53-5021
#54-5277
#57-5452
#55-5323
#7-909
#9-1020
#46-4607

#468-473C

61-1036

#61-432
#61-432
#61-427
#61-432
#61-432
#61-432
#61-432
#61-432
#61-432

61-1043

61-472
#61-432

#61-432

61-1037

#61-1038

61-1043

#61-426
#61-429
#61-432
#61-432
#61-427

#61-432
#61-432
#61-432

#61-425

#61-450

#61-427
#61-426
#61-426
#61-426
#61-425
#61-425
#61-425

#61-454

#61-427

SEQ 0057

#61-47%

#146-1306
#21-1692
#17-1482
#61-420
#16-1451

61-530

61-432

61-430

61-431

61-469
61-468

#61-1037

61-44G

61-1043

#61-432
#61-432
#61-432

#61-432
n61-432
#61-432

#61-432
#61-432

n61-432
#61-463¢

#61-432

261432
861432

(ZM9BDO

(REATED BY

MACRO

MACRO CROSS REFERENCE
REFERENCES
MACRO NAME
#45-4510
301V
#27-2166
.SEOP
#29-2647
.SERROD
#30-2842
.SERRT
84L4-4447
JSMULT
#40-4159
. $POWE
#61-4234
. SRAND
#37-3830
. SRDDE
#36-3739
. $RDOC
#35-3344
. SREAD
#51-4874
.SR2A?
#38-3905
. $SAVE
#67-4691
.$582D
#L9-4792
.$5820
#28-2401
.$SCOP
8424287
.$SI1Z¢
#50-4830
. $SUPR
#39-4007
.STRAP
#34-3237
.$TYP8
#33-3160
.$TYPD
#31-2929
.STYPE
#32-3064
.$TYPQ

-$40CA
ANs

#8-948

#6-507

ON 24=SEP=79. AT

#61-625

#¢1-530

#61=428

61-1038

#61-425

61-1040

n61-4627

#671-1063

#61-425
#67-428

61-1C36
#61-1039

16:40

PAGE
(REF

SEQ 0058