Digital PDFs

AH-E058A-MC

April 1978

44 pages

Original

3.0MB

view download

OCR Version

2.5MB

view download

Document:	CZM9BA0 M9312 BOOTSTRAP TERMINATOR 8K APR 1978 bw
Order Number:	AH-E058A-MC
Revision:	000
Pages:	44
Original Filename:	CZM9BA0__M9312__BOOTSTRAP_TERMINATOR_8K__AH-E058A-MC__APR_1978_bw.pdf

OCR Text

BOOTSTRAP TERMINATORS8K

CZM9BAO

AH-EO6BA-MCAPR1978

FICHE1 OF1

LoEOnAN

MADEIN USA

BO1
PaG

MOR+CE1908SEQ

+B80330

13-MRR-"8 08:58

ICMIBA.FLl

.REM

J00100G0

ZZM3BRO M9312 BOOT TERMP 8K

POP10 411

IDENTIFICARTION
PRODUCT

CODE:

RC-EDS7R-MC

PRODUCT NRME:

CZMIBRO M9312.B007.TERMR.
8K

DRTE:

MARCH,

MRINTAINER:

DIAGNOSTIC

1978
GROUP

THE INFORMATION IN THIS
DOCUMENT
IS
SUBJECT
TO
CHRNGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED

A_COMMITMENT BY DITITQL EQUIPMENT

CORPORRTION.

DIGITQL
EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR_ANY ERRORS THAT MAY
RPPERR_
IN
THIS
DOCUMENT.
THE
SOFTHRRE
DESCRIBED IN THIS
DOCUMENT 1S FURNISHED
UNDER
A LICENSE AND MAY ONL
Y
BE
SUED OR COPIED IN QCCORDRNCE WITH THE TERMS OF
SUCH LICENSE.

DIGITAL
EQUIPMENT
CORPORRTION
ASSUMES
RESPONSIBILITY
FCR
_THE USE OR RELIABILITY OF
g?g}#gEE ON EGUIPMENT
THART
IS
NOT
SUPPLIED

CORPYRIGHT

CORPORATION

)

1978

DIGITAL

NO
ITS

EQUIPEMNT

MARZ 711

30Ar1352,
134
Se% CC 01

MRCY1l 30A(1052!

cIM9BRO M3312 BOOT TERMR 8k

13-MRR-78 08:58

CaMIBR.PiI

1.0

13-MAR-T8

COl

(08:59

PRGE 2

RBSTRACT

THIS PROGRAM VERIFIES THE ROM INFORMARTION FOR THE M33i2 BOOTSTRAP
TERMINATOR,
IT
HAS
TWO
MODES OF OPERATION;
STAND-ALONE MODE
WHICH REQUIRES OPERATOR INTERVENTION AND RPT-YUDE.

2.0

REQUIREMENTS

2.1

HRRDWARE

ANY PDP-11 UNIBUS PROCESSOR WITH CONSOLE TERMINRL AND/OR HARDWARE
SWITCH REGISTER

M3312 BCOT
4K MEMORY

STRAP

TERMINATOR

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

—

LORD THE PROGRAM BY ANY OF THE STANDARD PRCCEDURES FOR ABSOLUTE PRIGRAM FORMATS.

LORDING AND STARTING PROCEDURES

RPPROPRIRYE DIAGNOSTICS.

STRARTING ADDRESS

200- DO CRC VERIFICATION AND SIZING

RESTART ADDRESS

[ QU

234~ RESTART WITHOUT

SIZING

SPECIAL ENVIRONMENTS
THIS PROGRAM IS APT
FOLLOW STANDRRD APT

COMPATIBLE
PROCEDURES

4.0

OPERRTING PROCEDURES

4.1

OPERRTIONAL

SWITCH

SETTINGS

SEE
FOR

SECTION
FOR_ETABLE
LORCING AND STRRTING.

SET-LP.

zF%G 0002

CZM9BARO M331e BOOT TERMR Bk

C<MSBAR.FLI

13-MAR-78 08:58

MRCY11 30A(1052)

THE PROGRAM IS DESIGNED TO

HOWEVER

THIS

USE

DOl

13-MAR-T8

09:59

PAGE 3

HARDWARE

Si.ITCH

THE

CES cca3

LOCATION 176 RS THE SWITCH REGISTER.
S
S

15=1
13=1
10=1

OR UP-- HALT ON ERROR
OR UP-- INHIBIT ERROR TYPEOQOUTS
OR UP-- BELL

ON ERROR

EXECUTION TIMES

EXECUTION TIME IS DEPENDENT ON THE CONSOLE
FIRST PRSS.

4.3

APT

ALL

OTHER PASSES

TAKE LESS

THEN

TERMINAL
1|

SECOND.

DURING

THE

SIZE

BIT

PROCEDURES

THERE ARE TWO CHOICES WHEN RUNNING UNDER APT.

(BIT
7-SENVM)
IS
CLERR
STQND ALONE MODE.
IF THE

THE
PROGRAM
WILL
SIZE
BIT
IS
SET

THE

OPERARTE
IN NORMAL
THE
PROGRAM
MWILL

COMPARE
PARAMETERS FROM THE BOARD _TO THE CONTENTS OF THE ETABLE.
ISIESSRBEE APT COMPARRSION FEATURE THE ETABLE MUST BE
SET
UP
1IN
SENV:
SENVM:
$SUREG:
SUSWR:
SCPUOP:
SMAMS1:

DON’T CARE
200 OR 240
DON CARE
T USED
NOT USED
NOT USED

SMAMS2 :
SMTYPC:
SMADRZ :

NOT USED
NOT USED
NOT USED

SMTYP3:
SMADR3:
SMAMSY :

NOT USED
NOT USED
NOT USED

SMTYP] :
SMADR1 :

S$MAMS3:

SMAMSYH :
SMTYPY:
SMADRY :
SVECT]
SVECT2:
$BASE
SOEVM:
SCCWl:
SChue:
$O0WO:

NOT USED
NOT USED

NOT USED

NOT USED
NOT USED
NOT USED
NOT USED
PSEUDO POWER-FARIL VECTOR RDDRESS
USED
CONTENTS OF RDDRESS IN S$BRSE
NOT USED
DEVICE CODES EXPECTED
FIRST

LETTER/SECOND

LETTER

13-MAR-78 08:58

CIMIBR.FPLL

13-MAR-78

MARCYI1l 30R(10S2)

CZMIBARO M9312 BOOT TERMR BK

EOL

PAGE 4

09:59

SEL CCO4

SUBROUTINE ABSTRACTS

T?IS ROUTINE IS CALLED ONLY IF NO ROMS WERE FOUND

DOES

DURING

SIZIN

RERD OF ALL BOOTSTRAP ROM ADDRESSES AND COMPARES TH

NOROMS

CONTENTS TO A KNOWN EXPECTED VALUE.

CHECKS

THIS ROUTINE SETS UP THE FIRST,

THE

_“CALSUMTM SUBRCUTINE.

LARST AND EXCEPTION

[V]

EggLéggaRgND COMPARRES IT AGRINST THE GOOD CHECKSUM

ARDDRESSES

FOR

IT RECIEVES THE CALCULATED CHECKSUM FROM
TO

DETERMINE

THIS ROUTINE CALCULATES THE
CRC16
CHECKSUM
OF
EARCH
RECEIVES
THE
FIRST
ADDRESS
TO
BE
CHECKED(FIRSTA)

ROM.
I7
THE LRST

FROM THE

IN RY.

CALSUM

ADDRESS TO BE CHECKED(LASTAD) AND THE EXCEPTION ADDRESS
“CHECKSTM

MODULE

AND RETURNS

THE

CHECKSUM

(EXCADD)

PROMP

DEVIOD
THIS

ROUTINE

ADDRESS

LOCARTES

IN WHICH

ERCH

DEVICE

WAS FOUND BACK

CQDE_

AND

THE

PARSSES

PROMPTM

AND

THE

ADDRESS

AND

MODULE.

PPFVAR

THIS ROUTINE DETERMINES THE PSEUDO POWER-FRAIL VECTOR
PASSES IT AND ITS CONTENTE TO THE *“PROMP* MODULE

PUTMES

13-MAR-78 08:58

CSMSBR.Fil

THIS

ROUTINE

FORMRTMS

MESSAGES.

13-MAR-78

MRCY1l 30R(1052)

CZMIBAC M3312 BOOT TERMR 8k

THE

PARAMETER

AND

FO1

PAGE S

09:59

POWER-FRIL

SEG 000S

ADDRESS

ERRHAN

THIS ROUTINE FORMATS
RALL
ERROR
MESSARGES
AND
CALLS
THE
TYPE
ROUTINE TO OUTPUT THEM.
IT ALSO USES THE OPERATIONAL SWITCHES TO
DETERMINE WHETHER TO OUTPUT THE MESSAGE, OR HALT.
FILBLUF

THIS ROUTINE FILLS THE MESSAGE BUFFER WITH RSCII

RECIEVES

THE ADDRESS OF

THE RSCII

IN RS.

CHRRACTERS.

OCRSC

THIS ROUTINE TAKES R SIXTEEN BIT BINARY NUMBER AND CONVERTS
& RSCII CHRRACTERS.

.11

OCRDD
THIS ROUTINE

IS NOT

MOVES

(@}

IS USED BY

THE

*“PUTMESTM

MODULE

WHEN THE

DRTR

IN THE RIGHT MODE TO BE HANDLED BY THE *“OCARSC” MODULE.

THE RDDRESSING MODE

R3 UP

ONE LEVEL

OF DEFERMENT.

RELIABILITY//AVAILABILITY/SERVICERBILITY
WHEN RUNNING IN ANY ENVIRONMENT BUT APT
DETECTED
BY
THE
PROGRRM.
THIS ERROR
MESSAGE WILL BE:
(RC

ERROR

WHEN RUNNING

THERE IS ONLY
ONE
ERROR
IS A CHECKSUM ERROR.
THE

IN ROM EXX
IN

THE

APT

ENVIRONMENT

THREE

OTHER

ERRORS

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

FIND

DEVICE

CODE

FOUND UNEXPECTED DEVICE

Xr.

CODE

»».

MAY

OCCUR.

ETARBLE
DO
THE ERROR

30R(1052)

13-MARR-78

THE FIRST MESSAGE WILL BE PASSED TO

LISTED

THE

RAPT

08:59

DEVICE

CODE

ETRBLE CANNOT BE FOUND IN THE EXISTING ROMS.

THE SECOND MESSAGE WILL BE SENT IF
A DEVICE COCE
IN THE ETRBLE IS FOUND IN R ROM.

PRGE b

MRCY11

CZM3BAO H9312 B 00 T TERMR 8k
13-MAR-78 08:58
C<MSBR.PL

GOl

MNOT

LISTED

THE SECAND ERROR WILL BE
IF
THE
PSEUDO
POWER-FRIL
VECTOR
ADORESS
IN
THE ETARBLE DOES NOT MATCH THE ADDRESS DETERMINED

E}LEHEEPROGRRH
POWER-FRIL

EXPECTED

VALUE

SWITCHES.

THE

MESSRGE

VECTOR

RECEIVED

WHERE EXPECTED
THE

TO BE IN THE BORRDS®

FOUND

IS THE CONTENTS OF THE ETRBLE ANC RECEIVED
BY

THE

PROGRRM.

THE THIRD ERROR WILL BE IF THE
CONTENTS
OF
BOARD'S_
PSEUDO
POWER-FRIL
VECTOR
ADDRESS DOES NOT MATCH THE VALUE EXPECTED
FROM

THE

ETABLE.

POWER-FARIL

EXPECTED

DATA

THE

ERROR

RECEIVED

MESSAGE

WILL

BE:

00oe

298

-ENEQLE

.ENABLE

53d

"NLIST

301
302

.TITLE

311
1S

314
31¢
3:6
3.7
318
319
32C
321
322
323
324
325
326
327
328
329
330
331
332

333
334
33
33¢
337
338
339
340
341
34¢

MC,MD,CND

CZM9BAD M3312 BOOT TERMR 8K
978

GHY

; ®PACKRGE

200
780885

(MRINDEC-11-DZQRC-C3),

isun:xsoooo
TN=z]

JAN

OPERATIONAL SWITCH SETTINGS

SWITCH

i»
P»

15
14

.SBTTL

19,

1977.

::HALT ON ERROR, LOOP ON TEST, INHIBIT EF .OR ~rPOUT

.SBTTL
¢

USE

eeme--

e eecscscscscca-sscssse-

HALT ON ERROR
LOOP_ON TEST

INHIBIT ERROR

BRSIC DEFINITIONS

TYPEOJUTS

- #INITIAL ADDRESS OF THE STACK POINTER ##s 1100 #s#

0cl10C

TACK=
§1ACK=

000011
ogcoole
000015
000200
177776

HT=

CR=

::CODE

177776

: s PROCESSOR STARTUS WORD

177774
177?272
177570
177570

345
346

000004
000005

348
249
35C
3E1]
35z
3€3

:#THIS PROGRAM WAS RSSEMBLED USING THE POP-11 MAINDEC SYSMAC

342

347

PRGE 7

gqpnocnan BY BARRY G. IRRGANG

000000
000001
00000e

344

HO
1

09:59

RF Q@S

RGN el
#COP

W) W W
)G
o9 00000
O
0w ~3 o nLw

310

13-MAR-78

MACY11l 30R(10S2)

000003

000006

000007
0009086
000007

3J0G60GC

.EQUIV
.EQUIV

1100

EMY,ERROR
10T, SCOPE

. #MISCELLANEOUS

LF=

DEFINITIONS

200

.EQUIV

PS,PSW

PIRQ@=
DSWR=
DDISP=

177772
177570
177570

STKLMT= 172774

- *GENERAL

. :CODE FOR HORIZONTAL TRB
::CODE FOR LINE FEED

CRLF=
PS=

:;BRSIC DEFINITION OF ERROR CHL.
::BASIC DEFINITION OF SCOPE CALL

PURPOSE

::CODE

FOR CRRRIAGE RETURN

FOR CARRIRGE RETURN-LINE FEEC

;:STACK LIMIT REGISTER

; ; PROGRAM INTERRUPT REQUEST REGISTEFR
; HARDWARE SWITCH REGISTER
; s HARDWARE DISPLAY REGISTER
REGISTER DEFINITIONS

RO=

Re=
R3=
RY=
RS=
R6=

“%e
%3
A
A
A)

; ; GENERAL
; s GENERAL
; ;sGENERAL
; s GENERAL
; : GENERAL

SP=

“%b

; ;STACK

Rl=

R7=

PC=

; :GENERAL

¥4

. sPRICRITY

fRO=

. ;GENERAL REGISTER

; s GENERAL REGISTER

DEFINITIONS

POINTER

; s PROGRAM
LEVEL

. :PRIORITY _EVE_. =

CZMIBAO M3312 BOOT TERMR 8
CZMIBR.PL1
13-MRR-"8 (08:58

0097

<ZMSBR.P1l1

13-MAR-78 08:58

MACY11l

30AR(10S2)
13-MAR-78
BRSIC DEFINITIONS

000040
000100
000140
000200
000240
000300
000340

PRl=
PR2=
PR3=
PRY=

40
100
140
200

PRb=
PR7=

300
340

100000

SwiS="

0ooogoe
0Ccoo01

PRS=

100000
040000

Swi4=
SWi3=
SWi2=
SWil=
SWi0=
SW09=
SWOB=
SW07=
SWoeb=
SWOS=
SWOM=
SWo3=
SWoe=
Swol=
SWO0=
_EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

SWO9, SW9
SW08, SW8
SWO?7,SuW?
SW06, SWe
S,
SWOY, SWH4
SW03, SW3

.EQUIV

SWOO, SWO

, :PRIORITY
S :PRIORITY
;s PRIORITY

SWITCH DEFINIT

40000
20000
10000
4000
2000
1000
400
200
100
40
=40)]
10
4
2

SW02.SuW2
SWOI.SWI

- %xDATA BIT DEFINITIONS

81T15=

BIT14=
BIT13=
GITi2=
BITIl=
BIT10=
BITO09=
BITOB=
BIT07=

BITOb=
BITOS=

0000014

100000

BITO4=
BIT03=
BITOR=
BIT0l=
BI1100=
.EQUIV
.EQUIV
.EQUIV

PAGE 8

; ;PRIORITY
::PRIORITY
1 ;PRICRITY
; :PRIORITY

240

- #"SWITCH REGISTERTM

"EQUIV
"EQUIV

101

(09:59

100060

40000
20000
10000
4000
2000
1000
400
200

100
40
20
10
4
2
|
BITD9,BITS
BIT08,BIT8
BITO?,BIT7

(BITOC TO BITiS.

NN
L wWwhe-

CZMIBA0 M3312 BOOT TERMR Bk

CZMSBARO M9312 BOOT YERMR 8

CZMIBA.P11

13-MRR-T8 08:58

410
41l

MACY11 30R(1052)

BASIC DEFINITIONS
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIv
.EQUIv

4ie
413
414
418
4ie
M

418

419

000004

421
422
4e3

000014
000014
000014

13-MAR-78

JO1

09:59

PAGE 9

ZE% 0009

BI1T06,BITE
BIT05,BITS

BITOM,BITH
BIT03,BI73
BIT02,BIT2
BITOIl,BIT!
B1T00,BITO

. #BRSIC “CPU" TRAP VECTOR ADDRESSES

£RRVEC= M

:;TIME OUT AND OTHER ERRORS

TBITVEC=14
TRTVEC= 14
BPTVEC= 14

$ieT BIT
::TRACE TRAP
: BRERKPOINT TRAP (BPT)

000024
000030
000034

PWRVEC= 24
EMTVEC= 30
TRAPVEC=34

: : POMER FRIL
: EMULATOR TRAP (EMT) ##ERROR#¥

000064
000240

TPVEC=
&M
PIRQVEC=240

::TTY PRINTER VECTOR
: :PROGRAM INTERRUPT REQUEST VECTOR

432
433
434
435
436

000001
000002
000004

438

000020

:
PROGRAM EQUATES
: ;ll!illlil!llllllllllillllll!llilllll{l!ll!!llllllli6’9'6!9’0ll’
RPTER] =
|
APTER2 =
2
APTER3 =
4
APTERY = 10
CRCERR = 20

440

000100

420

000010

424

RESVEC= 10

000020

425
426
427
428

I0TVEC= 20

000060

429
430

431

437

TKVEC=

00C040

::é

: P INPUT/OUTPUT TRAP (IOT) #¥SCOPEs##

: i “TRAP~ TRAP

::TTY KEYBOARC VECTOR

; ;llllll!lillIlllllllllli‘!lllIllll!!!l’l!l!llllil'illili!fll’l!i

000010

439

: 'RESERVED AND ILLEGAL INSTRUCTIONS

PFERR

= 40

NOROME

000200

=100

SEQERR =200

443

00000

446

00000C

:gg

000174

;.Locnrxoulgqcournxns 0 TO CATCH IMPROPERLY LOADED VECTORS
DISPREG:

3:;

447
448

.SBTTL

.=0

:#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *.4+2,HALT"
: #*SEQUENCE TO CRTCH ILLEGAL TRAPS AND INTERRUPTS

4S1

000174

000000

:g;

000200

888533

001400

32;

000204

000167

0C1634

4S2
453

000176

000000

SWREG:
_SBTTL

:gg

.SBTTL

‘450

HH I

461

462

463

464

4ES

620210

000CH4e

000046

002152

00oo0se

.=0

TRAP CATCHER

.WORD

.WORD
O
STRARTING ADDRESS(ES)

Jflsoq

d8START

IMP

RSTART

RCT1l

: ; SOF TWARE DISPLAY REGISTER

::SOF TWARE

SWITCH

;;JUMP TO STRRTING RDDRESS OF PROGRAM

HOOKS

X 222X Y2 2222222222222

:HOOKS REQUIRED BY RCT11

X222

XTSRRI S22

L )

$SVPC=.

:SAVE

SENDARD

::1)SET LOC.46 TO ADDRESS OF SENDAC IN .3EOP

=46

.=82

466
46T

468
469
470
4”1
4~2

473
474
475
476
477

478
479
480
481
482

0000Se

001100
00110l
001i102
001104
001106
001110
001112
001114
001116
001120

001100
000
000
000000
177570
177570
000000
000000
173000
00GOCO
000000

g0lled
000024

000200

490

000044

0Cii2e

499
S00
S0l1
€02
503
504
50S
506
S0?
S08
S09
S10
S11
Sle
Si3
Si4
515
£16
€17
Si18
€19
520
521

=1100

DOISP

RESTORE PC

ROMERR:
MESSAG:
FIRSTB:
ROMF IN:

.SBTTL

APT PARRAMETER BLOCK

ERRCNT:

[

::2 SET L2C.Se TO ZERG

W
SWR
DISPLRY HORD

.BYTE

SINTRG:

PARGE

$AUTOB: .BYTE

73000

llilllllll!illllllllllll!l}lllllllil!illlll.l.llIilli!lllllli”

. $X=.

. =24

0000eu

488

492
493
494
495
496
437
498

.WORD

.=$SVPC

(9:53

2 2
22 2 2. 8S
RYZIR
IIRS SRS S22 222222222222
TITII
SR IS IR
R XITITIITZY

486

4931

13-MAR-78

HOOKS

SET LOCATIONS 24 RAND 44 RS REQUIRED FOR APT

484
485

489

ACT11

000000
000210

483

487

MACY11 30R(10S2)

OCM—CHD

M3BA.P

m
o

TERMR 8
13-MAR-78 08:58

¢z HQBQO H9312 BOOT

“l

KOl

SET POWER FRIL YO POINT TO START OF PROGRAM

200

FOR APT START UuP

POINT 7O APT INDIRECT ADDRESS PNTR.
. =44
SAPTHOR ; :POINT TO APT HERDER BLOCk
'RESET LOCATION COUNTER
.=.8X

000044

ooli22

..SRVE CURRENT LOCRTION

illiiiiii;lliliillilll!!illiillilliilil!§§i§§§iiiiiiifioio15;1;1

QETUP RPT PARAMETER BLOCK RS DEFINED IN THE APT-PDP1l DIAGNOSTIC
: INTERFRCE SPEC.
001122

Q001122
00lie4
00llee

001130
001132
001134

000000
001136
000002

000002
0000CO
0000Se

SAPTHD:

SHIBTS:
SMBAOR:
$TSTM:
SPRSTM:
SUNITM:
.SBTTL
PR

001136
001136
001140
00ll42
001l1l44
001146
001150
001152
00i1S4
001156
0011Se
001157
001160
001162
0OClle4

O
SMAIL
2.
2.

. WORD

SETEND-SfiAIL/B ; sLENGTH MRILBOX-ETRBLE (WORDS)

.WORD

RERRRRERRERERRE AR

000
000
000000
000000
000000

$MAIL :

$MSGTY:

.WORD

AMSGTY

STESTN:
$PASS:
SDEVCT:
SUNIT:
§MSGARD:
SMSGLG:

.WORD
.WORD
.WORD
.WORD
.WORD
WORD

ATESTN
APASS
RADEVCT
AUNIT
AMSGAD
AMSGLG

SENV:

.BYTE

SFATAL: .WORD

SETABLE:
SENVH:
$SWREG:
SUSWR:
SCPUCP:

RDDITIONAL RUN TIME

(SECS)

BYTE
.WORD
.WORD
.WORD

RAR AR

RE R RN

AR R RS AP REIRRAIIIRRRI PRSI AE S

;:8PT_MAILBOX

::MESSAGE TYPE CODE

AFATAL

..FATAL ERROR NUMBER

RENV

: ;ENVIRONMENT BYTE

AENVN
ASWREG
AUSWR
ACPUOP

:;TEST NUMBER
;:PASS COUNT
::DEVICE COUNT
::I/0 UNIT
NUMBER
;:MESSAGE ADDRESS
;;MESSAGE LENGTH

'APT ENVIRONMENT TABLE

iENVIRONMENT MODE BITS
;:APT
SWITCH REGISTER
,.USER SWITCHES
;;CPU TYPE,OPTIONS

(QUICK

VE RIFY,

ITISNAL
OF R PR SS FOR ERCH RDOD1IT

APT MAILBOX-ETABLE

"EVEN

0000C0
000000
0000GC0
(000000
000000
000000
000Cu0
920000

;;TWO HIGH BITS OF 18 BIT MRILBOX RADDR
; sRDODRESS OF RPT MAILBOX (BITS 0-15)
;sRUN TIM OF LONGEST TEST
;.RUN TIME IN SECS. OF 1ST PRSS O N 1 UNIT

.WORD
.WORD
.WORD
.WORD

UhIY

13-MAR- 78
T MAILBCX-ETRBLE

MARCYL1 30“(1052)
s esecos Y oo ot w0 ar a0
LR
R BN
NN RN
—D
<3
ounm

CZM9BARO M9312 BOOT TERMR 8h
CZM3BA. P11
13-MAR-78 08:58

BI1TS

LOGTING POINT PRO’ESSUP

. WORD

AMADR1

s s

000
000
000000

.BYTE

AMAMS?

.BY7

RHTYgg

;s HIGH
PIMEM.TY
IMEM,
P

i sHIGH

AMAMSY

,,chu

. WORD

Rflflgfi

.HOSB
. WORD
. WORD
. WORD
. WORD
.HOSB

$pBa1

SDOW1Y:
SDDW1S5:

ACDW1

ACDWE
RADD
RADOW
]
RDDWE
RDDWI

. WO

RODWM

. HWORD

RODH;

. WORD

$DDOWS;

AVECT

RDDWS

. WORD
. WORD

RDDKW
RDDWS

. WORD
. WORD

ADDWIOD
RADDW11

.HWORD

.ugR
WOR
.
. WORD
. WORD

RDOW9

RADDM
1
RLDW1
ADDW LY
RDDU 1S

.23

(HIGH BYTE

HEH T

YTES, THIS WORL ANC LOw 2F “Y-PE" ABCJE

SS M.S. BYTE
K2
SS,BLK®2

SS.M.S.BYTE

:iMEM.LRS

Kh3’

SS,BLK83

SS.
M.S.BYTE

Kby

523;
15
s
PRIOR]ITYs&l
nx Y82
8sc§9ugspnxo
358
;
::§§¥E
ROORESS OF EQUIPMENT UNDER TECSTM
Hon
A
LER DESCRIPTION WORDs1
; CONTROL R DESCR IPTIOS.
.,DEVICE
VICE

SCR

WORDs®2
0

:iDEVICE

WORD 8l
WORD 82
WORD 83

,,DGVICE

WORD 1)

i REVICE

WORD Y

EEvicE
Pt

AMTYPY
2“90?“

SiMEMLT

[olele olelelelel
mmmammmmm

.BYTE
. HORD

"HORD

$DOW10:
SDDW1LL:

AMADRI

-—-

ESLHO =003

M.L

.BYTE

AMTYP2
AMADR?

coaé S
gg %Ec¢ BIPOLAR=002

H]GH

00 Dt 0t 0t

.BYTE
'“$$D

ntn.rvps

SRR

000000

001262

SEQ 0018

1S-11=CPU_TYPE
11-04=01,11,05=02,11-23=03,:1~

AMAIS
]
RAMTYPL

000000
000000

PDQ 07 =10
11/79106

. WORD

001400

PAGE

BYTE
BYTE

300
000

001256
001260

LOl

09:59

DES
OR
DESCRIPTOR

RESZRIPTER

DESCRIPTOR WORD#1Y
DESCRIPTOR WORDS1S

SETEND:
001400

001400

0ie706

001100

001404
00l4le

012737
012737

006430
000340

START:
.SBYTL
000034
000036

.=1400

THE OHHON TR GS
INITIRLIZE
; ; SETUP THE STACK POINTER
MOV

.,INITIQLIZE R FEW vec?on
MOV

MOV

8STRAP,

98 TRAPVEC

TRAP_VECTOR

8340, 38TRAPVEC+2; CAVEL

FOR

TRAP

CALLS

CZMIBAO M9312 BOOT TERMR BK
13-MAR-78 08:58
CZM9IBA. Pll
78
€79

005067
016767

177520
000476

S8e

013;“?

000004

818787 79337

012?;7
02e77?
001012
000403
012716
00000

[oadoatealoaloaloalealoadoaloploadoplsof
[
Y
e =)
OwWNCNLWNN—~0ODD

012637

1272570
177277

MACY!1l

000466

1994ga
177426
177376

177372

005067

177420
000200

177425

012767

001160

177342

005227
001046
022737
001442
104401
005737
ogioie

126727

001406
026727
001005
104405
000403
112767

016737
122737
001414

012700
0057ea0

SE% OCi2

;CLERR THE PRSS COUNT

' SETU IEND or;vnocnns ggu?gsn

ugPFSRSRHQSSuRREsuécz g%géSTER
fi ISPLQY ;::§E
8
i AN
3B

CMP
BNE

ooox

TRY ro S PEREECE anoun E é

64S:

ggg

65$

TRRP occunneo
"ER“"C“HéFu220u33§°UT
,.ennncn IF NO TIMEOUT

658%:

MOV

#SWREG, SWR

,,POINT TO SOF TWARE SWR

CLE

$PARSS

,,r:sr USER SIZE UNDER RPT
:YES,USE NON-APT SWITCH
INO,USE APT SWITCH REGISTER

668:

MOV
MOV

BITB

675

BEQ

MOV

865S, (SP)

:SET UP FOR TRAP RETURN

sDISPREG, DISPLAY
(SP)+,d8ERRVEC ; ;RESTORE ERROR VECTOR

SAPTSIZE, SENVM
67%
8SSWREG, SWR

;CLEAR PASS COUNT

INC
BNE

8-1
68%

BEQ

ses

cMP

8SENDRD, 342

;FIRST TIME?
;
,,aanncn IF NO

PIACT-117

..annwcu IF YES

: TYP) s?§¥STRING

.SBTTL GET anue ron SOF TWARE saircu
REGR
ARE WE

000042

177360

000001

177276

000176

000001

177254

007420

007504

165000

MOV
MOV

TYPE

001626

001116
003644
000004
000036
177777

SPARSS

gnssgocTY §0PCTRE

::EéfiSL 9 b8 Q QETfib ;83 §3$¥Enhs su"?cu 880?59

000042

000417

012700
005020
020027
002774
005037
005037
013746

PRGE

.SBTTL
TYPE PROGRAM NAME
:;TYPE THE NAME OF THE PROG~AM IF FIRST PASS

1777?27

ooz2152

CLR

. R

177416

001500
000176
000174
000004

MOl

30R(10S2)
13-MAR-78
08:539
INITIALI ZE THE COMMON TRGS

cMPB

scuv.ax

cMP

SWR, 8SWREG

.,sorrunns SWITCH REG SELECTED”

81, SAUTOB

: ;SET RUTO-MODE

8EQ

BNE
c;sun
;?2:

MOVB
R

éégqs:

ASCIZ

8%:

CLR

000004
165000
18:

'NG UNDER XXDP/RCT?

TST

BNE

708
718
’1s

..annucu
IRRE WE

YES

RUNNING UNDER APT?

:BRANCH IF YES

::BRANCH IF NO
:1GET SOFT-SWR SETTINGS

68%

INDICATOR

GET OVER THE RSCIZ

<CRLF>#CZMIBAO M&312 BOOT TERMR BKX<CRLF>

MOV

#BUF 1,

:CLR SIZING BUFFERS

CMP

RO,

8OCTBUF

:HAVE WE CLERARED THE WHOLE

BLY
CLR
CLR
MOV
MOV
CMPB
BEQ
MOV
TST

(RO)+’

gs
JSROMF IN
JsTIMES
J8ERRVEC,
2s
s-1,
3s
#165000,
(RO) +

-(R&)
JSERRVEC
38165000
RO

:BUFFER, NO,GO BARCK
SINITIRLCIZE ROM FOUND INDICARTORS
SINITIARLIZE ENTRY COUNTER FOR PITMES SUB
:SAVE CONTENTS OF LOCATION 4
:SET UP FOR POSSIBLE Tnnp
:1F CONTENTS = -1, OR TRAP
:THEN CPU ROM NOT' PLUGGED IN
;GET FIRST RDDRESS OF ROM SPACE
PIF THIS INSTRUCTION TRAPS CPU ROM

CZMIBAO MI312 BOOT TERMR BK

CZMSBA.P11
634

635

001740

638

641

642

001754

000402

001766

012700

000002

647
648
649

650
651
652
653
654

655

656

002010

002016
002020
002024
002032
002034
002042
002044
002050

002052
002056

667

002060

659

002070

658

660
661

225

002064
002072
002076

022777

001002
0S0037
062737
006100
022737
001356
005737
001003

177776

001116

003250

174000

0032S0

001116

004767

000126

004767

000160

00041l

005737
001004

004767
004767

679
680
681

682

683

684
685

688

689

u4S$:

001144

.SBTTL

;

:RDDRESS NOT EQUAL -1 ASSUME ROM PRESENT
INO TRAP JUST RESTORE ERRUEL

(R&)+,

nOVe
BEQ

SsEARSTE.

BNE
8IS
RDD

ys
RO
s200,

cMP

RO
8174000,
11
JSROMF IN
68

JSR
JSR

;

SteETR0”

END OF PRSS ROUTINE

‘EQUAL 1N -2. (CONTINURTION ROM
:SET ROM_FOUND INDICRTOR
:UPDRTE .ST ADORESS TO NEXT ROTM

S8TESTARD

:UPDATE ROM FOUND INDICATOR
:HAVE CHECKED RLL THE ROMS
S1F NO CONTINUE CHECKING
:
THERE ANY ROMS AVAILABLE
:IF YES GO TO ROM TEST

JWTESTAD

CHECKS

SEOP

100 NOT SET ROM FOUND INDICATOR
:UMLESS, CONTENTS OF RDDRESS

JSROMF IN

PC,
PC

CE T onBYTEAAS BIT 7 SET

JTESTRD

NOROMS

JudpPrs.

SINITIARLIZE ROM FOUND INDICATOR

SEdP

JSR

75T

s-2,

BNE

000462
001544

E
OF F1RST
L N TREPs R LonCBYT

MOV

ROL
CMP
BNE
RSTART: TST
BNE
6s:

:1F NO GO TEST NO ROMS
:GO 70 END OF PRSS

160 CALCULATE CHECKSUMS

;ARE WE ON 1ST PRSS

:1IF NO SKIP PROCESS OF PARAMETERS

PROMP
SEQTST

:GO PROCESS ROM PRRAMETERS
1GO CHECK SEQUENCE OF DEVICE CODES

LR
XXX2XX2X22
X222
HH [y 2 2122222122222 22X22Y222X22X22X2XXX22X2
; RINCREMENT THE PASS NUMBER (SPASS)

666
667
668
669
299

678

7s:

:HAVE WE CHECKED ALL RDDRESSES

JSR

bbY
665

672
673
674
675
676
677

001232

000200

8],

;NOT PLUGGED IN

J8ROMF IN

Bog

Bi3
202008 139757 00bed0 O0iZas ss
645 002006 001404
646

SEG 0013

8166000

RO.

CMP

166000

e Q%4 99439 ooooor ooi116
639

PAGE 13

SET VALUE FOR SOF TWARE SWITCH REGISTER

13-MRR-78 08:58
020027

NOl

08:59

13-MAR-7?8

MACY1l 30R(1052)

:#TYPE "END PRSSTM
‘#IF THERES R MONITOR GO TO IT
:#IF THERE ISN'T JUMP TO RSTARY
:#IF IT IS DESIRED TO HAVE R BELL
: #*SENDMG CAN BE CHANGED 10 7.
002102
002102
002104
002110
002116
002120

000240
00S267
042767
005327
000001

002124
002126
002130

012737
000001
002120

002136

104401

002122

002132

SEOP:
177034
100000

SEOPCT:

003017

002171

002142
002146

013700
001405

000042

002154

000240

002166

$PASS
#100000,8PASS
(PCH+
|

THE “END OF PASSTM LOCATICN

. ; INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER
:1LO0P?

BGT

SDOARGN

;s YES

TYPE

, SENDMG

; : TYPE “END PASS”

SGETH2: MOV
BEQ

942, RO
SDORGN

::GET MONITOR ADDRESS
: 'BRANCH IF NO MONITOR

SENDCT:

104401

002156

177026

NOP
INC
BIC
DEC
.WORD

INDICATE

MOV
.WORD
SEOPCT

TYPE

NOP
NOP

(PC)+,d(PC)+
|

SENULL

’

: 'RESTORE

COUNTER

::TYPE A NULL CHARACTER

: 1 SAVE ROOM
; s FOR

CZMSBARO M9312 BOOT TERMR 8K

CZM93R.P11
90
691

692

002160

002162

13-MAR-TB 08:58

MACY1l 30R(10S2)

000240

$DORGN:

000137

693

002164

002044

377

000

2g§

002176

0S0OM0

0SiS0l

000123

694

002166

695 002171

13-MAR-78

END OF PASS ROUTINE

SRTNAD:

SENULL:

09:53

.WORD

.BYTE

SEH OC1Y

s iRCTIL

NOP

ImMP

PAGE 14

J(PC)+

: ; RETURN

~-1,-i,0

:NULL CHARACTER STRING

RSTART

015 042412 042116 SENDMG: .RSCIZ «<18><l2>
END pasd’

I'4

698
639
700

:NO ROMS TEST

701

:THIS ROUTINE IS CALLED ONLY IF NO ROMS WERE FOUND

702

:DURING SIZING. IT DOES R RERD OF ALL BOOTSTRAP ROM

LSZ

{EXPECTED VALUE.

763
'

:RDDRESSES AND COMPARES THE CONTENTS TO A KNOWN

706

002204

708
709

002214
002216

767

710
711
712
713
;ig

;ig

012703

173000

002210

013704

002242

002220
002226
002232
002236

052737
004767
022703
003366

000100
001630
174000

002240
oo2242

022304
001405

NOROMS: MOV
18:

001110
2s:

000207
161777

NODATA:

718
719
720

724

002244

012737

726
727

002260
002262

001424
012737

RTS

.WORD

161777

0000CI

002460

002270

165775

012737

000000

004767

000152

CHECKS:

MOV

BIT

BEQ
MOV

002556
002554

MOV

731

002310

013703

165776

MOV

733
734
735

002316
002320
002326

00140S
0652737
004767

000020
001530

001110

173324
173175
173176
002460

002554
002556

002304

002314

020304

736 002332 012737 173000 002552 1$:
737
738
739
740

002340
002346
0023s4
002360

012737
012737
012702
006137

744
74

002400
0024C2

011203
020304

741

SNOROME ,
PC
17wooo

729 002276 012737 165000 002552
732

(R3)+,
2s

8IS
JSR
CMP
BGT

CMP
BEQ

:GET FIRST ADDRESS TO BE READ

:GET ADDRESS OF EXPECTED VALUE

J#ROMERR
ERRHAN
R3

:IF NO SET ERROR INDICATER
:REPORT ERROR
*HAVE ALL RDDRESSES BEEN TESTEL
:IF NO GO TEST THIS ADDRESS

;DOES_RECIEVED VALUE EQUAL EXPECTED
:IF YES CONTINUE TESTINS

:THIS ROUTINE DOES A CHECKSUM OF ALL ROMS PRESENT

725 002252 033737 002460 001116
730

J8NODATA,

; CHECKSUM ROMS MODULE

;gg

728

#173000

MOV

002364

033737

002460

00116

2%:

ackoncur
1S
u1ss775

oxésooo

JSR

CMP

R3,

J8ROMCNT

:INITIALIZE RON COUNTER

J8LASTAD

:IF NO GO CHECKSUM BOOT ROMS
:SET UP LAST RDDRESS T0 BE SUMMED

CALSUM

:GO CALCULATE CHECKSUM

S#ROMF IN
J8EXCADD

IWFIRSTA

:1S DIAGNOSTIC ROM PRESENT

:SET

UP EXCEPTION ADDRESS

:SET UP FIRST ADDRESS TO BE SUMMED

981657785,

BEQ
BIS
JSR

18
8CRCERR,
PC

JSROMERR
ERRHAN

:IF CHECKSUMS conpnne CONTINUE
:1F ERROR SET INDICATER
REPORT ERROR

MOV
MOV
MOV
ROL

8173024,
8173175,
8173176
J#ROMCNY

8EXCRDD
d8LASTAD
R2

SET UP EXCEPTION RDDRESS
:SET UP LRST RDDRESS TO ae SUMMED
:GET ADDRESS OF cooo DAT
:UPDATE ROM COUNTER

MOV
CMP

MOV
BIT

ox?aooo

asF IRSTA

JSROMCNT,

J8ROMF IN

(R2),
R3.

R3
RY

sGET_EXPECTED CHECKSUM
: COMPARE CHECKSUMS

-ET UP FIRST ADDRESS TO BE SUMMED

xs ROM PRESENT

csr EXPECTED CHECKSUM
:COMPARE CHECKSUMS

CIMSBA0O M9312 BOOT TERMR Bk
13-MAR-78 08:58
CZM9IBA. PL1
746
THT
~48

~49

002404
002406
002414
0024e0

000020

755

“S&

793508

002454
002456

002460

001110
002SSc

o8t 885433
52§ 808448
754

MACY!L1l

UEEN

30A(10S2)

END OF PASS ROUTINE

3%:

002552

BEQ
BIS

co2

(09:59

PRGE

33
#CRCERR,

JSROMERR

JSR

ERRHAN

BB
RD
CM
BNE

asgs:
.19w000.
23

R.Lg2788
2
JSFIRSTA

200

RTS

ROMCNT:

000000

13-MAR-7?8

oabo

O:E§R2Tn

€E% 0015
: IF CHECKSUMS EQUAL CONTINUE
:1F ERROR SET INDICATER

:REPORT ERROR

upog;s EiRST0nggness

pggT gogR éS
>
E? SEN 8 E’KED
PHAVE SLL B
:1F NO GO CHECKSUM NEXT ONE
Y

:1F YES RETURN

:CALCULATE CHECKSUMS MODULE

; THIS ROUTINE CALCULRTES THE CRCI1B CHECKSUM OF THE COMNTE!

:0F EVERY LOCARTION EXCEPT THE EXCE P TION A DDRESS RNi) LAST
;OF EVERY ROM

§ 813%08

00g2sse
000020

CALSUM:

ngv

MoV

CLR

MOV
LOOP:
MOV
CRCLOP: CLC

120001

18:

00e5Se

002546
002550

000207

002552
002SSs4
002556

000000
000000
000000

(R0)¢
816.

RS
R2

:GET A BYTE
:SET BYTE COUNT
:THE NEXT NINE LIMES
:D0 THE MATH CALCULATIONS

18
#120001,

BIS
DEC
BGY

R,
R2
CRCLOP

FIRSTAR:

-(SP)

BIC

2s:

EXCADD:
LASTAD:

-2 S

BVC
MOV

CMP
BNE
TST
MP
LOS
MOV
RTS

002554

BIC

120001

ao¢1n57n

ROR

S
RDORESS

ET STARTING RDDRESS

xnxtanxzs CRC WORD

8120001,

RO,
23
(RO)+
RO
Lodp
(SP)+,
PC

JSEXCADD

JSLASTAD
R2

;IS NEXT aooness AN EXCEPTION ACCRESS
:IF NO TEST IT
1IF YES SKIP RDDRESS
{HAVE ALL Locnrxons BEEN SUMMED
‘IF NO CONTIN
:RESTORE R2
:IF YES RETURN

O
O

; PROCESS ROM PARAMETERS MODULE

i THIS ROUTINE DETERMINES IF SIZING IS TO BE DONE.,

IF IT IS THE

:MODULE WILL GET THE PARAMETERS FROM THE DEVCOD AND PPFVQR
HODULES AND RSSEMBLE MESSAGES TO BE OUTPUT.

IF SIZING IS

OT T0 BE DONE THIS MODULE WILL TAKE THE PARRMETERS RECEIVED
QND COMPARE THEM TO THE VALUES SUPPLIED IN THE ETRBLE.

cZM9BAO M9312 BOOT TERMR 8k
CZM9IBA. Pll

105737
100424
7
8847

802
803

80y
805

MRCY1l

13-MAR-78 08:58

806
807
808
809

30R(10S2)
13-MAR-78
END OF PRSS ROUTINE
PROMP:

0011s7

J8SENVM
19

PC,

00256
00S4e
000450
0oooo40

(09:59

PC.

(DM
M
M0000 00 €D €0 00D GO 0 0D D (D
U TUNY »— = 0= 0t 0 s s oo e e
NoOnLwn - O 0oNONLWh—-0O

10%:

001112

19:

000206
007420
00l2ee
000002

002756
002762
002764

003024

29:
3%:

001110
4g:

001222
007416

Ss:

000004

6%:

JSMESSAG
qs

oabrx

.3oou0

(RH)+,

R2
R2,
4§
(RY)
33
SAPTERI,
Pg,
]

(R3)

23
#3DDWO

sBUF 1-2,
(R3)

(Ré),

7$
(RY)
6%
(R3)
3RPTER2.

001110

0000Ce

013704
013703
020403
001405
052737
004767
013704
013703
020403
DO140S
052737

EVCOD
UTMES

ERRHAN

ooosie

000002
001104

PPFVAR
J#ROMERR

001110

pOl1242

000001
001156
000002

PAGE

’%:

(RY)

000262
0oi2le
0075s00

a8$8ASE,

000004
oo1042
001216
007502

oo1110

000010

00i11G

8%:

:WAS THERE AN ERR

:IF NO_GO FORMAT MESSAGE

:IF YES GO REPORT MESSAGE

;CALL
GET DEVICE CODE MOOULE
iGET gORfJ DEVICE CODES
;GEY ETRBLE DEVICE CODE PRRQHETERC
:GET TO BORRD DEVICE CODE
iGET ETRBLE DEVICE CODE

(R3)

J 8ROMERR
ERRHAN
R3

R3
RY

RY
(RY4)

: ADDRESS MESSAGE
EST HESS?GE INDICRTOR

:REFORMRT ASCII

:D0 THE TWO DEVICE CODES COMPARE
‘IF YES GET NEXT BOARD DEVICE CODE
:IF NO HAVE HE CHECKED THE WHOLE ETRBLE
:1F WE HAVEN'T CHECK NEXT ETABLE ENTRy
;IF_WE HAVE THEN DEVICE CODE ON BOARD
:DOES_NOT EXIST IN ETABLE
;UPDATE_TO _MNEXT RDDRESS
:IF CONTENTS EQUALS ZERO WE'RE _DONE
IF
nggSgTBEc?CEQgRbZERO CONTINUE
GET ETABLE DEVICE CODES
; FORMAT RSCII

:GET_BOARD DEVICE CODE

:D0 THE TWO DEVICE_CODES COMPARE

:IF YES GET NEXT ETRBLE DEVICE CODE

:IF NO HAVE WE CHECKED ALL THE BORRD

J SROMERR
ERRHAN
R3

PPFVAR

JSROMERR
ERRHAN

95
SAPTERY,

;GO GET PSEUDO POWER-FRIL VECTOR AODRESS

DEVCOD

R3
RY
R3
R2

asdcoul
aoaura+é.

:FORMAT PARAMETER MESSAGE

;FORMAT PSEUDO POWER-FAIL VECTOR

RY,

8s
SAPTER3,

IS CLERR SIZE
;IF BIT IS SEY OON'T SIZE.
:CALL DEVICE CODE MODULE

PUTMES

RY
R3
R3

d8BUF2,

€% 0Cle

RY
R3
R3

JSROMERR

;DEVICE CODES, IF NO CONTINUE
*PUT ASCII IN'RIGHT ORDER FOR QUTPUT
:IF_YES ETRBLE DEVICE CODE NOT
iNOT ON BORRD
; IF CONTENTS EQUAL ZERO-DONE

:IF CONTENTS NO EQUAL ZERO-CONTINUE
:GO_GET PSEUDO POWER-FRIL VECTOR ADDRESS
iGET ETRBLE PPFVQ
:GET_BORRD PPFVA
:00 THE TWO PRARAMETERS COMPARE
:IF_YES CONTINUE
:SET_APT ERROR INDICATOR
:G0_TO ERROR ROUTINE
iGET ETABLE DRTR
:GET_BOARD DAT
:00 THE TWO PQRQHETER COMPRRE
:IF _YES THEN DONE
{SET APT ERROR INDICATOR

CZHQBGO H9312 BOOT TERMR Bk
13-MAR-"8 08:58
camss
0C3042
003046

0Q47&7
000207

MRCY11

001014

30A(10S2)
13-MAR-78
EN D OF PRSS RNOUTINE

JSR

RTS

9%:

GET DEV ICE
HIS SU BROU
QDDRESS IN

:DATR IS

8uU F

EO2

(089:53

PARGE

L7
ERRHAN

PC,
pPC

SEG COL7

;G0 TO ERROR ROUTINE

ES MODU LE
E LOCRTES EACH DEVICE CODE AND PASSES

IT AND THE
CH IT WAS FOUND BACK TO THE CALLING ROUTINE.
D IN BUFFER "BUF1"” IN THIS FORMRT:
RADORESS OF FIRST DEVICE CODE
DEVICE CoDE
ADDRESS OF SECOND DEVICE CODE
DEVICE COCE

ADORESS OF NTH DEVICE CODE
DEVICE CODE

xr DIAGNOSTIC ROM PRESENT IT WILL BE THE FIRST DEVICE CODE.

003050

:THERE IS ROOM FOR UP TO 12 DEVICE CODES IN TEMP
bEVCOD: MOV
8BUF1,
RO

007420
000001
oo1i116

165774
0032S0
000144
003eSe
001114

MOV

33:

001116
000200

003es0

4s:

003252
003250
000072
000002
003250
000052
003250
177177
177177

18:

003250

L ¥

X ¥
000200

003244

003ese
003250

174000

8%:

JWTESTARD

:GET ADDRESS OF DIAG. ROM DEVICE COCE.

JTESTAD

(RO)+

JSROMF IN

MOV

d8TESTRD,

(RO)+

CLR
MOV
ROL
BIT
BNE
ARD

98DRFLAS
JsFIRSTB,
Rl
RI,
8200,

ROL
BR

TST

BNE

1
9g

JRTESTAD
JUROMF IN
JWTESTRD

JeDARFLAG

:1S DIAGNOSTIC ROM PRESENT
:IF NO GO TEST BOOT ROMS

; STORE RDDRESS OF DEVICE CODE
:STORE DEVICE CODE

:CLR DARTA TYPE FLAG
:GET ADCRESS OF FIRST aoor ROM
: UPDATE POINTER TO NEXT ROM
:1S ROM PRESENT
:IF YES GO GET PARAMETERS
:1IF NO UPDATE TEST RDDRESS
:UPDARTE POINTER TO NEXT ROM
:GO SEE IF ALL ROM CHECKED

:IF DATAFLAG=0 THEN DATA 1S DEVICE CODE

i IF_DRTAFLAG=1 THE DATA xs orrser T3 NE~

MOV

8TESTAD,

(RO)+

RDD

.2,

IMTESTAD

;UPDATE TEST AODRESS

Q8TESTAD,
dTESTAD
d8TESTARD,
8177177,
8177177,
R2,
R3
83
8200,
Eé

R2
JUTESTAD
R3
R2
R3
R3

:SAVE OLD TEST RDDRESS
:UPDATE TO MEW TEST ADDRESS
:GET THE NEW ADDR ESS
:SAVE ONLY BITS
7
:IN R3 ALSO
CRLCULRTE DISTANCE BETWEEN
:IS R3 EQUAL TO O
:IF YES THEN DONE
:1F NO THEN MOVE POINTER
:ONE BIT FOR EVERY 200

MOV

0032s0

8165774

R1.
1§

MOV

003250

:INITIALIZE ROM POINTER

BIT
BEQ

MOV

003250

RI1

sl,

MOV
RDD
MOV
BIC
BIC
SuB
TST
BEQ
suB
ggL

dTESTAD,

gs’

coM

JUDAFLAG

BLT

CMP

JNTESTRD,

(RO) +

81749000

:STORE ADDORESS OF DEVICE
C

:STORE DEVICE CODE

:GET OVER SOME CODE

RADC

: CHANGE DATA FLAG TO RIGHT DARTAR ~VPE

:HAVE WE CHECKED RLL THE ROM
:1F NO CONTINUE

CZMSBAD M9312 BOOT TERMR 8k
Vo XVo RVs N1 IV RV ¢ IV o) V4]
m.-wyp-;‘ —
—OnNw- I £

CIMIBR. Fll

13-MAR-78 09:58

0C3a4e

000207

003e50
003e5e

000000
000060

MRCY!1

30R:(1052)

13-MAR-78

END OF PRSS RNUTINE
RTS
TESTAD:

DARFLRG:

FOe

(98:59

PAGE

SE% C0l8
; IF YES PETUPHN

:GET PSEUDO POWER-FARIL VECTOR ADDRESS ROUTINE
:THIS SUBROUTINE TESTS LOCRTIONS 173024 AND 173224 TG DETERMINE

‘WHICH VECTOR WILL BE USED IF POWER-FAIL OPTION ENABLED ON THE
THE OPTION MUST BE ENRBLED AND AT LEAST ONE RDDRESS
‘BOARD.
:SWITCH MUST BE “ON" OR AN ERROR WILL BE DETECTED.
THE DRTR WILL BE RETURNED IN “BUF2TM IN THE FORMAT.
:
003254

003336

032737

000207

000777

173024

1723024
173024

007500
007502

000777

1732a4

173224
173224

007500
007502

000040

001110

BUF2:

PPFVAR: BIT
BEQ

13:
2s:

39:

MOV
MOV
BR
BIT
BEQ
MoV
MoV
BR
BIS
RTS

;PUT MESSAGE

PSEUDO POWER-FRIL VECTOR RDDRESS

CONTENTS OF VECTOR RDDRESS

777,
19

81730284,
J8173024,
33
87277,
s
8173224
28173224,
33
8PFERR,

o8173024

J8BUF 2
JduBUF2+2

Js1732e4
J#BUF 2

JeBUF2+2

JSROMERR

:TEST IF _OCATION 173024 SELECTED
:IF NOT THEN GO _TEST LOCATION 17322

:IF IT IS THEN STORE RDDRESS
: STORE CONTENTS OF LOCATION 17302+
;GO _TO RETUR
;TEST IF LOCRTION 173224 SELECTED
:IF NOT THEN SET ERROR INDICATOR
:IF IT 1S THEN STORE RDDRESS
:STORE CONTENTS OF VECTOR
:GET OVER ERROR
:SET ERROR INDICRTOR

IN BUFFER_ROUTINE

:THIS SUBROUTINE FORMATS THE PARAMETER AND POWER-FRIL MESSRGES.
003340
003344
003350

C17604
00S737
001076

00000C
003644

PUTMES:

MOV

J(Rb)

BNE

TST

QsTIMES

003644
007420
165774

INC
MOV
CMP

JSTIMES
sBUF |
8165774,

R3
(R3)

006530
001000

MOV
ggn

$DRHERD,
PC,

RS
FILBUF

003402
003406
003410
p0o341e
003414
003420
003424
003426
co343e
003436
303440

000002

ADD

005713
001464

SWAB
MOVB

006543
000754

18:

MOVB
MOV

000015
poogole

2%:

(R3)
(R3)+,

,IS THIS FIRST TIME THROUGH

:IF NOT FIRST TIME THEN FORMAT POWER:FAIL MESSAGE

003352
003356
003362
003366

BNE

:GET MESSAGE BUFFER RDDRESS

: TOGGLE WATCHDOG
:GET DATR BUFFER RDDRESS
' 1S oxncuosrxc ROM PRESENT

*IF NOT DON’T FORMAT DIRG. ROM MESSAGE

;IF IT 1S GET DIAG. ROM MESSAGE HEACER
:GO PUT HERDER IN MESSARGE BUFFER
:SKIP OVER ADDRESS OF ASCII

(R4)+

:FORMAT ASCII FOR MESSAGE
'PUT ASCII IN MESSAGE BUFFER

éER

(R3)+
#BRHERD,

PC,

(RY)+
RS

FILBUF

:GO PUT BOOT ROM HEARDER IN MESS.

MOVB

aCR,

(RY)+

:PUT A CR LF HERE

75T

(1R3!

MOVB

aLF

R4+

: 1S DATA EQUAL TO ZERO

B.F.

062713
004767

MY LY

30R(1052)
13-MAR-78
END OF PASS ROUTINE
ADD

000004
001074
000722

OCRDD
FILBUF

000040
000040
000040
000002
001042
000670

ADD

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

JSR
JSR

840,
#40.
840,
02,

PC,
PC,

000040
000040
000040
000011
000002

MOvB
MOVB
MOVB
ADD

240,
Lo
840,
#HT
.2

MOVB
MOVE

(R3)+,
(R3}+,

HT
MOVB
MOVB
MOVB

HT
MOVB

SWAB

00750C
006660
0006186

3%:

007504

5%:

s Pt Bt pe p—t Ba
s

000000000000000000
UMV
NN+
e s e 2 b i = = O O
NEWNN=-ODONOCNLWU—-00m

oooooc
00000e

68:
TIMES:

;GET FIRST ENTRY POINT

:GO CONVERT OCTAL TO ASCII

:G0O PUT ENTPY PCINT IN MESSAGE BUF

;GET SECOND ENTRY PCINT

:GO CONVERT OCTAL 70O RSCII
:GO PUT ENTRY PGINT IN MESSAGE BUF.

(R3)

;PUT

TRB

IN HERE

:UPDATE L «TR BUFFER_ADDRESS

:FORMAT ASCII

FOR MESSAGE

iMOV ARSCII TO MES!

;GO BACK TO START OF LOOP

2s
#BUF
2

JSR
CR

PC,

FILBUF

CMP
BEQ
JSR
JSR

#BUF 244,
13
PC,
PC.

OCARDD

:GO CONVERT OCTAL TO ASCII

4§’

.2,

; UPDATE DATA BUFFER RDDRESS

MOVB

#CR,
SLF

(RY:+
(RY)+

;PUT
A CR/LF AT END OF MESSAGE

J(RG),

:PUT ZERO TERMINATOR AT END GF MESSHAGE
:GET MESSAGE BUFFER RDDRESS

O
w2,

(RE
.

;GET OVER MESSAGE BUFFER RDDRESS

MOV

MOVB

CLRB

8Jo0a2

SE% 0013

BR
MOV

HT
ADD

000G1S
000012

92 5t Da Pt Pt Pt Pt D0 §0 B@ Pt

(R3)

PC,
PC.

000002

000eg7
000000

PAGE

JSR
JSR

000750
000576

003642
003e44

08:53

003442
003446

TERMR 8Bk

i3-MRR- 78 08:58

CZIM3BA. P11

MOV
TYPE
LWMORD
ADD
RTS
O

sPFHERD,

(R4+

R
R

—NW

CZMSBARO M9312 BOOT

FILBJF

:GET DATA BUFFER ADDRESS
:GET_POWER-FRIL HERDER ADDRESS
:GO PUT POWER-FRIL HERDER IN MESSAGE BuF
; ARE

DONE

*IF YES THEN GO RETURN

,GO B CK_TO STRART

LOOP

: SEQUENCE TEST
;
THIS TEST VERIFIES THE ORDER OF THE ROMS RDHERES TO THRT SPECIFIED
.IN THE INSTALLATION PROCEDURE. THART IS THE THEY HAVE BEEN INSTALLED

; IN ALPHABETICAL ORDER RCCORDING TO THE FIRST DEVICE CODE OF THE ROM.

THE TYPEQUT FROM THIS SECTION DOES NOT INDICATE AN ERROR BUT IS JUST
A WARNING TO THE OPERARTOR THART THE SPECIFICATION HARS NOT BEEN FULLY

; ADHERED

003€E46
003652
003eS4
003ece

013700
006000
0G0ecY4i
D0c03?

00l1l1le
003ece

SEQTST:

TO.

MOV
ROR
CLC
CLR

JUROMFIN,

JRORFLRAG

;GET ROM LIST

:GET RID OF DIRG ROM INDICATOR
;0K START, WE MUST FIND MORE THAN
*ONE BOOT'ROM YO 0O THIS TEST

SoM9BR0 M3312 B00T TERMR Bk

CZMIBR.PIL1

003662
003664
003666
00367¢

MACY11

13-MRR-78 08:58

30R(1052)

13:

006000
00325¢

883782
000001

es:

3%:

?g}

(08:59

PAGE 20

SE% 0023

IF ROM PRESENT C-BIT SETS
N C-B]TS
SETS
THATS “QNE®

es
QIDRFLQC

gsbeA

EQE
X
JQDQFLQG
8BUF 1,

J8DRFLAG

£30020

000207

SEQEx:

SEQMSG
RTS

00377
p03TM7Ty

00G0aC
0Coo0s

LASCOD:

FRSCOD:

.WORD

8 FOUND SNE BUT IF RO IS EQUAL TO
X

GET ROM DATH

;AT LEARST TWO srnnx TEST,

1IF YES THQN UPDRTE TABLE ADORESS

IN
JERCMF

‘1S DIRG ROM PRESENT

:IF NO DON’T UPDATE DRTA TABLE ADDRESS
:G0 GET
A DEVICE CODE

‘UPON RETURN FROM GET COD R4 INDICATES
:IF VALID DEVICE CODE_WRS FOUND

!CODES SC EXIT,

IF NOT THEN GET NEXTM COD

:1S 1ST CODE nLPHnasTxanLv LESS THE 2NC

:IF NO SEQUENCE ERR
'IF RY NOT EQUAL TO zzno GET CON
SO EXIT
:COulD N 8T FIND VALID DEVICE CODE,

.IF NOT THEN GO GET NEXT OEVICE Cof
STYPE OUT WARNING MESSAGE

TYPE

003770

;

GETCOD

JSR

REHEN EOUNT R-1F WE DO THIS

:gOOP ?TTINES NO BOOT ROM PRECSENT RT AL

:ZERO THERE ONLY THE ONE SO EXIT

GETCOD
LARSCOD

4s:

1051

ROR

OCllle

oococH
00004C

000030
00000

13-MAR-78

END OF Pw35 ROUTINE

;RETJRN

0
0

S_SUBROUTINE

IS CALLED BY THE SEQUENCE TEST ROUTINE TO GET THE

OM THE SIZING BUFFER. THE ROUTINE VQLIOATES EACH ?EVICE
HRKES SURE THE CODE IS THE FIRST CODE IN
R ROM

A VALID DEVICE CODE

Oe2

003776

005004
005737
001405

003252

0oc170

1279
1880

004056
004060

$L$

003774
00322

003772
003252

062700
000765
D12C13
000207

GETCOD:

i IF E g%flg IS ZERO PUT DEVICE ZICCE
i IN
i IF DAFLARG IS ONE PUT DEVICE CCOE
;i IN LRSCOD AND CLERR DAFLAG
:GE T OVER DAFLAG=ZERQ SEYUP
;PUT DEVICE CODE IN FRS COD

Q;DQFLQG
8LASCOD

J8DRFLRG

2s
8FRSCOD
2s:

TST

33:

MOV

80300

43
SETEND:

v
RTE

IT MAKES R4 NONZERO BEFORE RETURNING.

iMAKE DRFLAG NOT ZERO
:DOES DEVICE CODE EXIST
;IF YES CHECK IF VALID
IF NO MAKE R4 NON-ZERO

JuDAFLAL
(RO)

GETEND
(RO)+,

GETEDDRESS OF DEVICE COOE

:0FA ROM SO GET IT
:IF BITS SET UPDATE TO NEXT CODE
QND VALIDATE IT

; IF BIT 3-6 CLERR THIS IS 1ST COCE

8170,
43
'T-3

(RO. +,
Pz

"R3

ETUDEVICE

CODE

AND

STORE

LZHQBRO H93 2 BOOT TERMR B
13-MAR- =8

CZMIBR.P

08:58

MRCYLll

13-MAR-T8
END OF PRSS RNUTINE

30R(105e)

([9:59

PAGE 21

SE% C0e!

108e
1083

:ERROR HANDLER ROUTINE

TH%S SUBROUTINE FORMATS THE ERROR MESSAGES THE

Sy e

ey
Y

WL WW W LW WM
e
e = = = O O 00 000000
NONLEWN=OVONCVNLWNN—0O0ONCNLWNN—~0OVONTNLWNN—-O

Gy Dy
YO

Sy W
Y

ol o1 =1 T

Y
Oy O

O
o S

oy o
N
I O
R

T
S

O
Y
Y

S
T
[

[

T O

R O

004062

104411

tnnunn: gnvnec

010214
001120
002000

1750G0e

020000

174766

001110
001110
004362

00017H

?21710

JSHR

;BELL ON'ERROR
:BRANCH IF NO

8BIT13,

aSHR

; INHIBIT ERROR TYPEOUT

108
JSROMERR,
d8ROMERR,
SEHERDT,

000002

3%:

:IF C-BIT SET STOP STEPFING
.ég gTEIT CLERR STEP TO NEXT HMERDER

RS
FILBUF

:GO PUT HERDER IN ERROR MESSAGE BUF.

001110

J8ROMERR

000020

00110

JSROMERR
JSROMCNT,
SROMNUM,

RO
R1

005767

APTER] OR RPTERZ2

IT USED TO STOP STEPPING THROUGH TRB

:IF C-BIT SET STOP STEPPING
; F C-BIT CLERR STEP TO NEXT HERDER

cs:

(R4)+

;PUT ROM NUMBER IN ERROR MESSAGE BUF

6%:

(RY4)+
(R4)+

:PUT BRD DEVICE CODE IN ERROR MESS. BUF.

’s:

GET SAVED EXPECTED VALUE
iGO COVERT OCTAL TO RSCII
:GO PUT DARTA IN ERROR MESSAGE BUF.

(R4)+

OCRSC

FILBUF

000010
000152
000104

000015
000012
0000C0
174640

;15 ERROR
A CRC,

"IF NO GO FORMAY APTER3, APTERY
;IS ERROR CRC
‘1F NO FORMAT APTER1, RPTER2
:GET ROM COUNT ER
GET ROM _NUMBER TRBLE

000002

004276
oo4302
004306
004312

;PUT_HERDER ADDRESS IN REGISTER.

.ROTQTE ROM_NUMBER

4g:

000006
000170
0o01iee

;GET_ERROR CODE

:SAVE ERROR CODE FOR APT
:GET _ERROR HERADER TABLE
:C-BIT USED TO STOP STEPPING THROLGH ~RE

000023

002460
006512

; INCREMENT ERRZP COUNTER

{ROTATE ERROR CODES

29:

000220

THEM

8ERRMSG

JsERRCNY

18:

TYPES

OCRSC
FILBUF
8%:

8CR,
sLF,
80,

SEN&

+
(R4}
(R4)+
(RY)

CONTINUE STEPPING

;GO _TO END OF ROUTINE

:GO_TO

END

ROUTINE

;GET SAVED RECEIVED VALUE

.GO COVERT OCTAL _TO RSCII

;GO PUT DRTA IN ERROR MESSRGE BUFFER.
;PUT

CR/LF

;PUT

TERMINRTOR

:1ST IF ON APY

END
RT

MESSAGE

END

MESSRGE

CZMSBA0O MS312 BOOT TERMR 8k

SSu3BA. P11

13-MAR-78 08:58

MRCY1] 30R(10S2)

001405

BEQ

00434
004356

010214
000000

ERRMSG
“WORD .

119:

égg o

PC,

‘

BEQ

ias

129%:

CLR

DOOOODMODOODOOO®
NINNNNNNNNNNOO
o CNnNINNINNINNNZWWNWE L £ L L £ £ £
L
W= OVONCN LW~ OWVONTVNTLWN—-OVONOCNLEWNN—OVDONCNLWN-OVD
NN LWN-~O

Wy Oy

ey
S

Y Oy DYy

Yy
Sy

oy
Y
¥
e

Y O
S
O
O

e e
Y e

R
Y O

el ok ol o e
Y

]
ol

e
e

e S

e
e
o

O e
e
e
B
e
o

Y el
Y
L

004330

000000

004336

010214

004332

004767

JSR

000Ss30

0043490 032777 100000 174536 i08:
‘

004346 QDI4OL
004352

004356
004360
0oN362
004364
004366
004370
004372
004374
004376

005037

104912
000207

00111,

006756
00&722
007014
00707
007146

EHERDT:

007172
007250

HALT

BIT

09:59

118

004316

f%gg 004320 004767 000534

13-MRR-78

END OF PASS ROUTINE

Joe2

RESREG
RTS

PC,
O

PAGE 22

$ATYL

. IF NO BRANCH

SATY3

IF NOT ON APT JJUST REPORT ERRCOR

ISWR

BITIS,

-€6

JBROMERR

0C22

GO REPORT ERROR
. THEN HALT

.15 HALT ON ERROR SET

'IF NO SKIP OVER MALT
;CLEAR ERROR FLAGS

ERIMSG
ER2MSG
ER3MSG
ERUMEC
CRCMBG
PFMSG
NOROMM

;FILL BUFFER ROUTINE

THIS SUBROUTINE FILLS THE MESSAGE BUFFER WILL RSCII
CHARACTERS.

004400
004406
004410
oo4414
004416
og44g22

004426
004430
004432
004434
004440

022776
001003
112724
000404
112724

112724

112524
105715
001375
062716
000207

000011

0000C3

FILBUF:

00001!
00001S

030012

13:

2s:

000002

CMP
BNE
Move

SHT,
is
SHT,

BR
MOv8

cs
SCR,

MovBe
1518
BNE
ADD
RTS

(RS3+,
(RS)
4]
82,
PC

MOVB

SLF

J(R6)
(R4)+
(R4)+
(R4)+

(R4)+

(R&)

; IS FIRST CHARACTER A TAB OR CR
;IF CR _THEN GO PUT CR/LF IN BUFFER
; IF_TAB_THEN PUT TRAB IN BUFFER
;GET OVER NEXT LINE
;MOV CR/LF TO BUFFER

;PUT A CHARACTER IN HESSQGE SUFFER
:1S NEXT CHRRACTER ZER
(IF _NOT PUT IT IN HESSQGE BUFFER AND GET
{UPDATE RETURN POINTER TO GET OVER CHARA
: THEN RETURN

;OCTAL _TO ASCII CONVERSION ROUTINE

:THIS SUBROUTINE TRKESA SIXTEEN BIT OCTAL NUMBER AND
:CONVERTS IT TO & ASCII
004442

012700

004450
004452
co44sy
004456

00S020
005020
005020
012700

004446

004462
CO4466
004470

005020

010337
000241
006137

007504

004544

OCRSC:

CHARACTERS

MOV

80CTBUF,

;GET BUFFER ADDRESS

CLR
CLR
CLR
MOV

(RO)+
(RO)+
(RO)+
#0CTBUF,

;GET BUFFER ADDRESS

CLR

MOV
CcLC
ROL

(RO)+

R3,

SNTEMP

IsTEMP

:CLEAR BUFFER

{GET OCTAL NUFBER
;CLEAR CARRY
{ROTATE BIT INTO CARR: BIT

cZMIBARO M93le BOOT TERMR B8k
13-MRR-78 08:58

QNNNNNNN‘—”'—‘MO-F—F-"‘**POODOOQOODO\DO\D
o'-m.cumo-o..otnumm;wm»—o.omwom:wm-—o.nmv#m‘f
£

004474

006110

Pt Pt D
Bt Pt P
et Pt Prs Pt Pt Pt Pt Pt Pt P
et Pt
Pt Pt
P
Poct Pt ot Pt Pt Pt o
0 et ot Pt Pre Pt Pt P
e Bt Pt Dt Pt Bt Bt Pt Pt Pt et Pt

DN g LAV AV AV AV LA VA VT VTV IV VT VT WY VT o VR VR VAW Vg VRV AW TV Ia VTV gV T VI VI e
W) Wwwwnn
nk W00

M8 B R. Pl 1

MACY!l

007S0H4

004544

TEMP:

00454y

ZE% 0023
;ROTATE CARRY BIT INTO BUFFER

860,
RO
RO,
29
$0CTBUF,

(RO,

ROL
ROLB

JUTEMP
(RO)

;ROTATE BIT INTO CARRY BIT
:ROTATE CARRY BIT INTC BUFFER

(RO)
JNTEMP
(RO)

;
:
S

ROL

JUTEMP

:MAKE IT RSCII
;UPDATE BUFFER RDDRESS
;HAVE WE CONVERTED ALL THE NUMBER
:IF NO CONTINUE
:1IF YES PUT BUFFER ADDRESS IN REGISTER

8OCTBUF +6
RS

ROLB
ROL
ROLB

004544

PAGE 23

B81SB
INC
cMP
BNE
MOV

RTS

2%:

(02:59

(RO)

ROL

007s1e

DOYSHY

13-MAR-78

END OF PASS ROUTINE
1%:

000060

:RETURN

)

;

:GO TO START OF LOOP

; THIS ROUTINE IS CALLED BY THE PUT MESSAGE ROUTINE TO GET THE RIGHT
;VALUE IN R3 SO THE OCTAL TO RSCII ROUTINE GETS THE RIGHT NUMBER.

OCADD:

004546
177664

MOV

JSR

RTS

MOV

004560

(R&)+,

.SBTTL

TYPE ROUTINE

S s H IR

I I

A I

:SAVE THE VALUE OF R3

-(RB)

(RY),

IEI I

:PUT THE DRTA TO BE CONVERTED IN R3

:GO CONVERT OCTAL TO RSCII

OCASC

:RESTORE R3
:RETURN

AR ERERRRAREFERRE AR

{EROUTINE TO TYPE ASCIZ MESSRGE. MESSRGE MUST TERMINATE WITH A O BYTE.

; #THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
P#NOTEL:
SNULL CONTRINS THE CHRRACTER TO BE USED RS THE FILLER CHARACTEF.
: #NOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARARCTERS REQUIRED.
;:NOTE3:
SFILLC CONTAINS THE CHARACTER TO FILL RFTER.
:%CALL:
:%#1)

1243

30R(10S2)

KO2

‘*oa

USING

TYPE

TRAP

INSTRUCTION

, MESADR

: ;MESADR

IS FIRST

ADDRESS OF

STPFLG
13

::1S THERE A TERMINAL?
1:BR IF YES

s R

004See
004566
004570
0o4s72
Do4S74
004576
004602
004610

105?67
100002
000000
000430
010046
017600
122767
001011

000265

000002
000001

MESADR

STYPE:

TSTB
BPL

19:
174346

TYPE

HALT
BR
MOV

33
RO, -(SP)

PiHALT HERE
; s LERVE
; s SAVE RO

BNE

623%

; sNO,GO CHECK FOR APT CONSOLE

MOV
CMPB

d2isP), RO
SAPTENV, SENV

IF NO

TERMINAL

:1GET RDDRESS OF ARSCIZ STRING
::RUNNING IN RPT MODE

AN ASCIZ

STRING

CZMIBAD MS312 BOOT TERMR 8Bk

CZMIBR. Pl1

000100

ogu4ele
004620

30R(1052)
13-MAR-78
TYPE ROUTINE

DO4632
004634
og46Ne
004644
004646
004650
004652
004654
004660

000040

RO,618

PC,S$ATY3

$APTCSUP, SENVM

174318

603

000011
000200

004746

000120

105366
002770
004767
105367
000770

000001

5%:
63:

B
JSR
gnPB

e ¥

DECB

000032
000072

8CRLF, (SP)

; ;BRANCH IF NOT

¢CRLF

<«CR><«LF>

EQUIV

:HORIZONTAL

004750

112716
004767
132767
001372

000040
000014
000007

0oocse

000044
000002
000015

89:
93:

STYPEC:
000036
000002

000014
000012

000002

19:

.,BR IF IT ISN'T THE TERMINATOR

RO
,,RDJUST RETURN PC
ETURN

POP

,,TYPE R CR

PC,STYPEC

sFilLc, (spy+

s
$NULL, -(SP?
1(SP)
6%
PC,S$TYPEC

JSR
DECB
BR

i pUSH cunnncrsn TO BE TYPED ONTO STACY

: 1BRANCH IF <HT>

$CHARCNT
2%

BLT

MESSAGE g
: i
,,nP
CONSOL
SUPPRESSED
O
YES,SKIP TYPE

gHT,(SP)

(SP)+

000130

ssfup MESSAGE noonssc FOR APT

P i2po0L nsssncs TO

éESTSREINQTOR POP IT OFF THE STRZr

000056
000130

SEG 0024

(ROJ+,-(SP)
4$
(SP)+
(SP)+.RO

82, (SP)

000002

016746

PAGE 24

IS:TSPOOL SENVM ,,SPOOL MESSAGE TO APT
GO CHECK FOR CONSOLE

174337

000004
00C234

8846 e
46,

LO2

08:53

schnncnr

AND LF

,.CL AR CHARACTER COUNT
NEXT CHARACTER

:GO TYPE THIS CHARACTER
..IS IT TIME FOR FILLER CHRRS.?

CHRR.
..IF NO GO GET NEXT
8 OF FILLEP CHARS. NEEDED

: 1AND THE NULL CHAR,

A NULL NEED TO BE TYPED?
;;D0ES
.,BR IF NO-—GO POP THE NULL OFF OF STRCK
;GO TYPE R N

..DO NOT COUNT QS R COUNT
; LOOP

TRB PROCESSOR

MOVB
JSR
BITB
BNE
TST
BR
TSTB

BPL
MOVB

CMPB
BNE
CLRB
BR
cMPB
BEQ

Doso4e

000207

INCB
SCHARCNT:
. WORD
STYPEX: RTS

005044
005046

177564
177586

$TPS:
$TPB:

. WORD
. WORD

(SP)

PC, trvpec
8’

,,REPLQCE TAB _WITH SPACE
;s TYPE
R SPARCE

87 SCHARCNT

..BRRNCH IF NOT AT

(SP)+

,,POP SPACE OFF STACK

9s’

2s
JSTPS

STYPEC

2(SP) . 3$TPB

sCR, 2tsP)

18
SCHRRCNT
$TYPEX
8LF,2(SP)

STYPEX
(PC)+

1250
1251
185¢
12583

13-MAR-78 08:58

MRCY1l

177564
1775866

; TARB STOP

s ;GET _NEXT CHARACTER
1;WRIT UNTIL PRINTER IS RERDY

LORD CHAR_TO BE TYPED INTQO DATA REG.

A CARRIAGE RETURN?
,.IS CHARACTER
; BRANCH IF NO

,,YES--CLERR CHARARCTER COUNT
;EXIT

,.IS CHARACTER A LINE FEED?
;BRANCH IF YES

iCOUNT THE CHRARACTER
,,CHQRRCTER COUNT STORAGE
:TTY

PRINTER

STATUS

REG.

ADDRESS

'i1TY PRINTER BUFFER REG. RDDRESS

13-MRR-78 08:58

CZM3BA. Pl

,
000001
000001

000236
0002ee

000001

000ee0

SLF

SBTTL

Pt Pt Pt Pt Pt Pt PPt P

174032

000100

174023

88828z

000004

173770

BEQ
SHPB
NE

19:
cs:

175328

173730
000016
000004

3%:

4§
:
5%:
108:

000062
173706
173660

005304
005310
005314
005316
005320

000004
000002
173636
0000e0
000013
000006
000207

;CONTRINS NULL CHARACTER FOR FILLS

0
2
1

CONTRINS # OF FILLER CHRRACTERS REQUIRED

,.INSERT FILL CHARS. AFTER R “LINE FEED"

;“TERMINAL AVAILABLE" FLAG (BIT/07>=0=vES,

(15)

12/

RO, -(SP)

-(SP)

SMFLG

ss
SAPTENV, SENV
IRPTSPOOL SENVM

a; §P2,R0

173760

000004
000002
172546

cSES 002S

ISE Helrn
::SREEn
LINEFEED

RPT COHHUNICRTIONS ROUTINE

1s18

000001

173754
000004

fa?Eii

MOV
MOV

0002086

173762

.BYTE

PRGE &5

S
S RERERRRRRRRRRRRERERRERRERRFRREBRRRRERBREREREREERERREEEFRRRRE&
ERROR
FARTAL
REPORT
; ;70
8l,SFFLG
&ATY1: Move
;;
70 TYPE
A MESSAGE
MOVB
8R
;;TO ONLY REPORT FATAL ERROR
MOVB
,SFFLG

010046

Pract Pt Pt Pt P

A A AR DA 83

YWY I PP
B Y o Re

112767
112767
000403
112767

MO2

(09:59

30R(10Sa)
13-MAR-78
TYPE ROUTINE

SNULL:

000

e Pt Pt
s Pt
s Pt Pt Pt (Pt Bt Pt Bt Pt ot Bt
Bt Bt Bt Bt
0 Pn Bt Pt B
s
o Bn B

SQNJQNdwafisghxthd&MJ&NJU
SEYER2EREEE
e

[NIRTN
£L L£L&£L
owm FoN ne—o

oP D

W
VW W
W
N URN
Pt Bt Pt e s Bt Pe e ep ()
O NN LWN—=OOVODNOCNLEWNN~-0OW

0050S0

[N —— s

MRCY11l

CZM9BAO MS312 BCOT TERMR Bk

119:

173652
000004

snécrvps
19

RO, SMSGRD

(RO)+

cs
$MSGRD, RO
RO
RO, SMSGLGT

M,. SMSGTYPE
s’

4(SP), 4$
82, 4(5P)

; ;PUSH RO ON STACK
; ;PUSH R1_ON STACK
,,SHOULD TYPE A MESSRGE?
BR
NOT:
; IF

..?PERQTINGHNDER APT?
.,??OULO SPOOL MESSAGES?

ADDR.
3 GET HESSB&fiPRBEQURN
LAST XMISSICN?
.,ses 1F ' OONE W/

WRIT
,,x NOT
T ADDR IN MAILBOX

,,rxno END OF MESSAGE

;;SUB STRART OF MESSAGE
; ;GET MESSAGE LNGTH IN WORDS
; s PUT LENGTH IN MRILBOX

;3 TELL APT

TO TRKE MSG.

; ; PUT MSG RODR

IN JSR LINKAGE

g RETURN ADDRESS

$7?77s -(SP)
C,STYPE

; ; PUSH *?7 76 ON

SFFLG

,,?HOULD REPORT FRTAL ERROR?

12%
SENV
128
snscrvps
R 3
au(sp) SFATAL

82, 9(SP)

12%:

SMFLG

(SP)+,R1

(SP)+ RO

SiCALL

TYPE nncno

STARCK

,,RUNNING UNDER APT?
; IF
NOT:

; IF _NOT

WRIT

,,FINISHED LRST MESSRAGE?

.,csr ERROR #

BUMP RETURN ADDR.

;3 TELL abt 70 TAKE ERROR
; ;CLEAR FATAL FLAG
:CLEAR LOG FLAG

: :CLERR MESSRGE FLAG

::POP srncx
11pOP STAZK
: RETURN

INTO Rl
INTO RO

CZM9BA0 M3312 BOOT TERMR Bk

CZMIBA.PI11
1362
1363
1364

1365
1366

005322
005323
005324

1367
1368
1369

1373
13794

SZE

MACYL!

005326
005330

30R(10%52)

13-MAR-78

.BYTE
.BYTE
.BYTE

.EVEN
APTS1ZE=200

005326
000200

09:59

APT COMMUNICATIONS ROUTINE

SMFLG:
SLFLG:
$FFLG:

000
000
000

000001
000100
000040

{33?
1372

13-MAR-78 08:58

NOe

PRGE 26

SEG 0026

: ;MESSG. FLRAG
::L0G FLRG
::FATAL FLAG

O
O
O

APTENV=001
RPTSPOOL =100
APTCSUP=040

.SBTTL

TTY INPUT ROUTINE

B BRERRREREEFRRRRR R

177560

$tks:

17°S&2

§TKB:

ENRBL

.MORD

.WORD

LSB

R RPERRRERRARERE R R R EERERFE R TR RBR PPN RESS

177560

:;TTY KBD STATUS

1775k¢

1 TTY KBD BUFFER

1377

RRER RERERRS
RRRRRERRRRERRRRRERERBREE
R RSERFERERE
HH SERRBERBFRARARRR

1379

:#ROUTINE 1S ENTERED FROM THE TRAP HANDLER,

1378

:kSOF TMRRE SWITCH REGISTER CHANGE ROUTINE.

1380

1381

1382

005332

1383
1384
1385

00S340
005342
00S346

1387
1288

005354

1386

005350

022757
OC107
105777
100071

11774

173506
006057
00606M

iggé

005374

001456

1393
1394

005376
00S402

104401
104401

133

00S412

1395

1397

1398
1399
1400

i:gé

1403

i:gg

00S406

016746

00S414

104401

00607S

005046
105777

177676

00S420

005422
005424

005430
005432

104402

005046
10037S

: #WHEN OPERATING IN TTY FLAG MOOE.

&CKSWR: CMP

177754

126727

001062

173544

177760

177600
000007

00S36M

005366

000176

OM2716
02272¢

1389

1390

AND WILL

:#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL

172564

005436

042716

117746

177672

gS442

021627

00002S

005484
005460

062706
000757

P :BRANCH IF NO
::CHAR THERE”
::IF NO,
DON’T WAIT AROUND

BIC
CMP

8tC17?, (5P)
87 (SP}+

: 'STRIP-OFF THE ASCII
::1S IT A CONTROL G?

BNE

177600

::SAVE YTHE CHAR
1IN0,

RETURN TO USER

SAUTOB, 8!

P ARE WE RUNNING IN ARUTO-MODE”

TYPE
TYPE

,SCNTLG
SMSWR

; ;ECHO THE CONTROL-G (1G)
1 TYPE CURRENT CONTENTS

158

MOV

SWREG, - (SP)

TYPE

, SMNEW

TYPOC

139%:

J8TKB, - (SP)

CMPB
BEQ
SGTSWR:

;:1S THE SOFT-SWR SELECTED”?

15%
3STKS
15%

MCVB

00000!

8SWREG, SWR

BNE
1578
BPL

CLR

BPL

-(SP)
I$TKS
78

MOVB

J3TKB,

BIC

::SAVE SWREG FOR TYPEOUT

:1GO TYPE--OCTAL ASCII(ALL DIGITS:
:PROMPT FOR NEW SWR

2(sP)

CLR
1578

1!BRANCH IF YES

::CLERR COUNTER
13 THE NEW SWR
P:CHAR THERE?

1 IF NOT
- (5P)

8tC17%, (SP)

::PICK

TRY RGRIN

UP CHAR

*IMAKE IT 7-BIT ASCII

1406
Y

1409
1410

005446
005450

1419
1415

005462

1417

00S470

1411
i:ig

00100S
104401

006052

000006

20$:

021627

000015

10%:

00S766

000004

1416 005466 0C1022

CMP

(SP), 825

;1S

CONTROL-U?

BNE
TYPE

108
L SCNTLU

: :BRANCH IF NOT
:1YES,
ECHO CONTROL-U

CMP

168 '

(SP),

::IS

ADD
BR

BNE
TST

86 SP
194

4(SP)

815

(tU)

.. IGNORE PREVIOUS INPUT
2ILET’S TRY IT AGRIN
IT

<CR:?

Eiénnficu IF NO

11YES,

THE FIRST

CHAR"

19
20

00S474

005476
SOM

001403

016677
062706

104401
126727
001003
0127277
000002
004767
0clee?
0g2420

000002

173400

173361

0c0001

000100

177574

177234
000060

30R(1052)
YTy

INPUT

104401
000720

ROUTINE

BEQ

118:

148

11%

: ;BRANCH IF YES

158

: 'BRANCH IF NOT

RTI
JSR

PC,STYPEC

; ;RETURN
: tECHO CHAR

BLY
CHP
BGT
BIC

18%
(SP), 867
18%
860, (SP)+

TYPE
CMPB

$LRLF
$INTAG, 1

MOV

8100, I$TKS

cMP

000067

PAGE 27

::SAVE NEW SWR
::CLEAR UP STACK

BNE

159%:
168

BO3

09:59

2(SP), ISWR
#6_ SP

MOY
RDD

000060
000002

005606
0osele

13-MAR-78

(SP), 860

: ECHO <CR> AND <LF>
: SRE-ENABLE TTY KBD INTERRUPT3S?

: 'RE-ENRBLE TTY KBD INTERRUPT3

::CHAR < 07

:'BRANCH IF YES
JICHAR > 7
: BRANCH IF YES
1 STRIP-OFF ASCII

TST

2(SP)

::1S THIS THE FIRST CHAR

ASL
RSL
RSL

(SP)
(SP)
(5P)

:INO, SHIFT PRESENT
i
"CHAR QVER TO MAKE
i1
ROOM FOR NEW ONE.

208

::SIMULATE CONTROL-U

BEQ

006002
177776

17%:

00s0s4

18%:

INC
BIS
BR
TYPE

.DSRBL

LSB

17%

:BRANCH IF YES

2(SP)
-2(SP), (SP)
73
$QUES

: :KEEP COUNT OF CHAR
:SET IN NEW CHAR
:1GET THE NEXT ONE
PITYPE ?7<CR><LF>

L
abeted
LIZIRIT
2T T 2 8 8 bedt-tab bt ofobabdobtabedtotabahababob
I LTLRALTTI
Rt ITTTYIYITSIITI

“ZS{E ROUTINE WILL INPUT A SINGLE CHARRACTER FROM THE TTY

'y
i

005614
005616
00S6e4
005630
32

011646

000004
177476

000002

177472
177600
000004

000004

SRDCHR:
18:

000004
000023

000002

: ;PUSH DOWN THE PC

1STB
BPL
MOVB

I$TKS
18
dSTKB, 4 (SP)

P:WRIT FOR
::A CHARACTER
:IREAD THE TTY

BNE

::BRANCH IF NO

75718

BPL

BIC
CMP

3%:

4(sPy,a2tsp)

8tCC1?7> 4(SP)
4(SP), 823

ISTKS
23

9$TKB,

23
13

BLY

000140

cMP

000004

000175

CHMP

000040

000004

BIC

BGT
RTI

- (5P)

4(SP), 8140

4(SP), 8175
4§

:1SAVE THE PS

;:GET RID OF JUNK IF ANY
2115 IT A CONTROL-S”

:'WAIT FOR A CHARACTER

#tC17? (SP)
(SP)+, k21

BNE
BR

000004

4§ :

:1CHARACTER IS ON THE STACK
2 WITH PARITY BIT STRIPPED OFF

(SP),-(SP)

MOV

MOVB

177440
177600
000021

005724
005732

RETURN HERE

BIC
CMP

2%:

17744y

: s INPUT A SINGLE CHARACTER FROM THE TT»

RDCHR

840, 4(SP)

::LOOP UNTIL ITS THERE
::GET CHARACTER

S
IT 7-BIT ASCII
::1S IT A CONTROL-Q”
: IF NOT DISCRRD IT
;s YES
UME

23115 YT UPFER CRSE”
:'BRANCH IF YES

2115 IT A SPECIAL CHAR”?
:BRANCH IF YES
I MAKE
;GO

IT UPPER CRSE

BRCK

USER

[N]

MRCYIL

[¥))]

BRO M3312 BOOT TERMR Bk
13-MRAR-78 08:58
8 R.PL1

ccz?

CZMIBARO M9312 BOOT TERMR Bk
CZM9BR. Pl

13-MAR-TB8 08:58

MACY11l

1474
1475

TTY
SR

INPUT ROUTINE

.¢C Lt RDL IN
-

010346

$ROLIN:

1%:

006042
006052

2s:

000177

108:

00S0Ss4

4§:

000044
006040
00001S

3%:

Y
Y S
T

i
[T
I
e ey Y S
e S S el a)
N—-OVONOCNLWN—-0O
VO

[

Doe102

336440

;SAVE R3

CMP
BLOS

#STTYIN48. ,R3
't

MOVB

(SP)+.

(R3)

8177, {R3)

BNE

TYPE

SQUES

TYPE

..eurrsn FULL’
:BR IF YES

,,cg Rgng on;CHARACTER FROM THE TT¢
P IGET
R
A RUBOUT
::1S IT
,,SKIP IF NOT
17y
v99
.,CLERR THE BUFFER AND LOOP
: 'ECHO THE CHRRACTER

(R3),9%

MOVB

:{GET ADDRESS

CMPB

k15, (R3)+

,,cuscx FOR RETURN

CLRB
TYPE

-1(R3)
SLF

:'CLERR RETURN (THE 15)
,,TYPE A LINE FEED

MOV

(5P3, 1(5P)

:1LO0P IF NOT RETURN

tspPr+,R3

,,RES ORE R3

MOV
g?¥

4(sPY 2(sP)
sSTTYIN, 4 (SP)

.BYTE

.,sronnce FOR RSCII CHAR. TO TYPE

grvvxn:
CNTLU:

.ggx?
.
clz

8.
/fU/<15><12>

,,Rssgnv. BYTES FOR TTY INPUT
*

$MSWR:

.RSCIZ

«15><12>/SWR = ~

SMNEW:

.RSCIZ

.SBTTL

BINARY TO OCTAL

000002
000004

053505

::TERMINRTOR WILL BE
A BYTE OF A_L 0°'S

sstTYIN,R3

MOV

000
0ogoiz2
0e01e2

s INPUTA STRING FROM THE TTY

R3,-(SP)

CMPB

TTY

..nooness OF FIRST cunnncrsa WILL BE ON THE STA%Y

MOV

BNE

17277227
00S0S6

00s01s
006507
0S3523
ooc
047040
000040

SEL 0OQ0es

INPUT A STRING FROM THE

RETURN HERE

ROCHR

000004
006042

FRGE 8

KE
RSPS54
ARPER
P BB ERBRRI
LTL LS BRPRRABRPR
L XIZ
I ITTITITI

;'THIS ROUTINE WILL

005734

ca3

08:59

13-MAR-78

30R(1052)

BYTE

$CNTLG: .RSCIZ

§PTEAET

/1G/<1S> 1>

NEW =

:ADJUST THE STACK AND PUT ADDRESS OF THE

FIRST ASCII CHARACTER ON IT

RETU

,,rsnnxnnro

: : CONTROL “c"

( RASCII)

00 0000 00 30 36 0 00 00 0

AND TYPE

!Iilllllfi!llllliilliiiiill!l!lll!’!!l’li

lTHIS ROUTINE IS USED TO CHANGE
R 16-BIT BINARRY NUMBER T0 R 6-DIGIT
;#0CTAL (ASCII) NUMBER AND TYPE IT.

: #§TYPOS~---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
ICQ
LL:

.l
1R

MOV
TYPQS
.BYTE

.BYTE

NUM, -(SP)

s iN=1

:SZIPOS OR STYPOC
i¥

MoV

TYPON

50 8 FOR NUMBER OF DIGITS TQ TPt

HE
;i

; #STYPON-~--ENTER

; yNUMBER TO BE TYPED
;3CALL _FOR TYPEOUT

HERE

,
- (SP)
NUM

; 1=TYPE_LEADING ZEROS

o SUPPRESS LEADING ZEROS

TYPE OUT WITH THE SAME PRARAMETERS AS
; ;NUMBER

TO BE

TYPED

;s CALL FOR TYPECUTY

THE

LRST

CZMIBAO M9312 BOOT TERMR Bk
13-MAR-T8 08:58
CZMIBR.F11

DO3

13-MAR-78 09:59 PAGE 29
MRCY11 30Rt1052)
BINARRY TO OCTAL (RSCII) AND TYPE
X)

ja3¢

| #§TYPOC---ENTER MERE FOR TYPEOUT OF A 16 BIT NUMBER

1232

P yCALL: 79300
i

NUM, sp

STYPC3: MOV

?<srw,=(SP)

{sqé 882{%% Efgggz 888081 8881€é $TYPOC: :833

ogqésfi)
§;6LE .

f§§a
1835
1536

006106

01764

000000

8818 1i8BE7 B@@aRs 000!l
1832
1533 ooeiaw osazxs 000002

nove
ggo
MOV

YPED
po& 75555u¢
s;?HEE EB_JO

-(SP)

? !?
R3 -<s )

1547 oosxsg 116704 000145

MOVB

sghooé+1,au

1549

ADD

006

1§42

882125

1548

0061

1550

006174

006

818“”5

0OS404

062704

000006

1651
1552
1563

006200
006204

006210

116704
016605
005003

0001eS
0GCO0I12

1657

006220

006105

1558
1569

1560
1561

1562
1563

1564
1565

1566

1567
1568
1569

1570
1571

1572

1573
1574
1575
1576

1577
1578
1679

1580
1681
1582

1583
1584

1686

006212
006214
006216
006222
DpOB224

006226
006230
006234
006236

006242
006244

006246

110467

006103
105367
100016
042703

001002
00S704

006262
006266

110367
104401

006276
006300
006302
006304

1%:

zs:

3%:

000076
177770

4s§:

000060

5§

105367

000032

rd ¥

003347
002402
005204
000744

006326
006327

000
000

O0l6666
012616
000002
000

000040
006326

6%:
000002

000004

8% :
§OCHT:

,-(SP)
-

(2P)

.s RY

: ;ADJUST RETURN RDDRESS
:SET THE ZERO FILL SWITCH

,,ggr
THE?4£RTIONéounv
i

.,snve Rq

]
EET
THE NUMBER OF DIGITS TO TYPE

; SUBTRARCT IT FOR MAX. ALLOWED

MOVB

RY, SOMODE

,,snve 1T FOR USE

CLR

.,CLEQR THE OUTPUT WORD

MOVB
MOV

000040

012605
012604
012603

00632C

000132

052703

006306
006310
006312

006314
006322
006324

NEG

006105
010503

001403
0052
052703

006272

006105
000404
006105

0062590
006252
006256

ggv

10546

006170

15664
1555
1556

Eégxupsgue MODE ITCH

14853 88RbE.. ..NunBei B2 BiEyra"4i Y vee

1543
882145
610106346
767 00000S 000iS4 STYPON: MOV
MOVB
1548
is4
1542

154

SE% 0029

SOFILL,RY
12(SP) .RS

ROL
BR
ROL

RS
33
RS

KOL
MOV

RS
RS,R3

BPL
BIC

3
8177770,R3

ROL

ROL
DECB

,,ROTRTE MSB INTO *C”
::60 DO MSB
::FORM THIS DIGIT

3
$OMODE

BNE
TST

4§
RY

INC
8IS

RY
#'0,R3

BEG

BIS

(1 ;
8’

‘GET THE ZERO FILL SWITCH
:PICKUP THE INPUT NUMBER

.R3

;;GET _LSB OF THIS DIGIT
,,TYPE THIS DIGIT

iBR_IF _NO
:GET RID OF

JUNK

:TEST FOR O
,,suppnsss THIS 0~
i

IF YES
:DON’ T SUPPRESS ANYMORE O°
..nnxe THIS DIGIT ASCII
::MAKE RSCII

NOT

R3,88
8

BGT
BLY
INC
BR

23
6%
RY
23

:iBR IF nons T0 DO
::BR IF DONE
i INSURE_LAST DIGIT ISN'T
:GO0 DO THE LAST DIGIT

MOV
MOV
RTI

2(SP) . 4(SP)
(SP)+. (SP)

,.SET

.BYTE

DECB

MOV
MOV
MOV
.BYTE
.BYTE

$§O0CNT

(SP)+,RS
(SP)+.RY
(SP)+.R3

O
O

: :SAVE FOR TYPING
::GO TYPE THIS DIGIT

ALREARDY

MOVB
TYPE

: 'COUNT 8Y

.,RES ORE RS
:RESTORE RY
,.RESTORE R3
THE

STACK

BLANk

FOR RETURNING

€ TURN

sroancs FOR ASCII DIGIT
,,TERMINQTOR FOR TYPE ROUTINE

:;0CTAL

DIGIT

CCUNTER

1586
1587

1sgg

00633}
006332

$OFILL:
SOMODE:

000
000000

.BYTE
.WORD

O
O

..zenc FILL SWITCM
NUMBER OF DIGITS TC T(PE

.SBTTL SAVE ~ND RESTORE RO-RS Rbuvxnes

I’!i!llillilll!lii’ll!lDl’llii’iliiiilll*lb!l’ll’i.lol‘oilib”fl

iggo

1591
1592
1593
123;

isnvs RO-RS
:#CALL:
w
SAVREG
:#UPON RETURN FROM SSAVREG THE STAZK WILL LOOr LIKE.

1596

tTOP--=-(+16)

1897
1598
1899

(8 42-==(+18)
‘s +4---RS
;# +6---R4

1600
1601
1602
1603

1604
1605

1% +8---R3
:#¢10---R2
i#e]2---R]
:#4]14---RO
006334

1606
1607
1608
1609
1610
1611

006334
006336
006340
006342
006344
006346

010046
010146
010246
010346
010446
010546

1613

006354

016646

1612

1614
1615
igig

006360
006364
006370

016646
016646
016646
000002

$SAVREG:

000022

1620

1621

006372

000022
000022

MOV

22(5P) | -(5P)

::SAVE PC OF MAIN FLOW

MOV
MOV
RTI

0CH372
006376
006402
006406
006412
006414

012666
01266
01ebbk
012666
012605
012604

1629
1630
1631
1632
igga

006420
00eve2
006424
00e42e

012602
012601
012600
000002

006416

000022
000022
000022
000022

§RESREG:

012603

163S

22(SP) . -(5P)
22(SP) . -(5P)

ON
ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK
STACK

::GAVE PS OF MAIN FLOW
::SAVE PS OF
::SAVE PC OF

CALL
CALL

RO-RS

RESREG

MOV
MOV
MOV
MOV
MOV
MOY

MOV

.SBTTL

22tspP), -(spP)

RO
R1
R2
R3
R4
RS

(SP)+,22(SP)
(SP)+.22(5P)
(SP)+.22(5P)
(SP)+.22(5P)
(5P)+ RS
(SP)+.RY

(SP)+.R3

MOV
(SP)+ R2
MOV
(SP)+.R]
MOV
(SP)+.RO
RTI
TRAP DECODER

: ;RESTORE PC OF CALL
:'RESTORE PS OF CALL
::RESTORE PC OF MRIN FLOW
..RESTORE PS OF MAIN FLOW
; ;POP STACK INTO RS
POP STACK INTO R4

..POP STACK INTO R3
::POP STACK
::POP STACK
1:POP STACK

INTO R2
INIO RI
INTO RO

’lil}!lllillillllilllllllilillll!ll!!l!l!lll!l!!ll‘llllllliiiili

1£36
1€37
1638
iggg
1641

. :PUSH
P:PUSH
P1PUSH
::PUSH
::PUSH
::PUSH

: *RESTORE
; #CALL:

1622
1623
1624
1625
1626
1627

1628

RO, ~(SP)
Ri,-(5P)
R2.-(SP)
R3.-(SP)
R4, -(SP)
RS’ -(SP)

MOV

000022

1618
1619

MOV
MOV
MOV
MOV
MOV
MOV

iTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP“ INSTRUCTION
:#AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
'#GO TO THAT ROUTINE.
COBM2C

ZiICHE

§TRAP:

MOV

RO, -1SP)

s :SAVE

(@)

)

[}

13-MAR-78 (08:59 PRGE 30
MRCY1l 30R(10S2)
BINARY TO OCTQL (RSCII) RAND TYPE

€]

CZHQBRO H9312 BOOT TERMR B8k
13-MAR-T8 08:58
CZMIBA.P

EJ3

CoMIBAO M9312 BQOT TERMR 8k
.Pl1

ooe43e
006436
006440
00b44e
206444
006450

13-MAR-78 08:58
016600
00S740
111000
006300
016000
000200

MACY1l

30R(1052)
TRAP

13-MAR-78

DECODER

00CO02

PRARGE 31

MOV

2(SP3 RO

MOVB
ASL
MOV
RTS

(RC),RO
RO
$TRPRD(RO) .RO
RO

TS7

006464

FO3

08:59

-(RO)

;;GET

SEG OC31

TRAP ADDRESS

: sBACKUP BY 2

::;GEY RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
; s INDEX TO TRBLE
;G0 TO ROUTINE

:;THIS IS USE TO HRANDLE THE “GETPRITM MACRO
oge4se
00b45SY
00&462

000004

00GCJ0e

$TRAP2:

(SP),-(SP)

MOV

4y(spl,aisp)

RTI
.SBTTL

TRAP

: ;MOVE THE PC DOWN

::MOVE THE PSW DOWN
::RESTORE THE PSW

TRBLE

:#THIS TABLE CONTARINS THE STARTING RDORESSES OF THE ROUTINES CALLED
; #BY

THE

;

006464

“TRAPTM

ROUT INE

$TRPAD: .WORD

00452

INSTRUCTION.

STYPE

STRAPZ

s s CALL=TYPE

TRAP+]1 (104401)

TTY TYPEQUT ROUTINE

;;CALL=TYPOC
;;CALL=TYPOQS
;;CALL=TrPON

TRAP+2(104402)
TRAP+J(104403)
TRAP+4(104404)

TYPE OCTAL NUMBER (WITH LERDING ZEROS
TYPE OCTAL NUMBER (NO LERDING ZERCS)
TYPE OCTAL NUMBER (RS PER LAST CAL.

00472
006474

OCb1l46

STYPOC
$TYPOS
STYPON

006476

005402

$GTSWR

;;CALL=GTSWR

TRAP+S(104405)

GET SOFT-SWR SETTING

006500
006502
006504
006506
006510

005332
00Sb 1Y
00S734
006334
006372

SCKSWR
SRDCHR
SROLIN
$SAVREG

; ; CALL=CKSWR
; ; CALL=RDCHR
;;CALL=ROLIN
;; CALL=SAVREG

TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

TEST FOR CHANGE IN SOFT-SWP
TTY TYPEIN CHRRACTER ROUTINE
TTY TYPEIN STRING ROUTINE
SAVE RO-RS ROUTINE

$RESREG ; ; CALL=RESREG

TRAP+12(104412) RESTORE RO-RS ROUTIME

; MESSAGES

006530

006606

044504
o47Se2e
102
0S1iev4

042503

ROMNUM:

000377

043s01
020115
047517
0s0101
042440
050040
020123
042504
41440

020056
000

051524
0S1040
052116
Q44sS1?
047101
044526
O42l1v

.ARSCII

~20/

BELL:

.RSCIl
.ASCII
.RSCII
.RSCI1
.RSCIZ

DRHERD:

.RSCIZ

~/DIAG.

BRHEARD:

.RSCII

~/BOOTSTRAP ROM ENTRY POINTS AND DEVICE COOES

/35~
~,33/
34/
32/
«207><«377>377"

ROM /

L{T]

U‘U‘U‘U‘U‘U‘U‘U‘gc‘
SRRLS0L838

Dt Bn Pt Pt Pt Pt Bt Pco Bt

006524

030062
032463
031463
032063
031063
177607

[

poeSie

cZM3BAC M3312 BOOT TERMR B8k
ZMIBAR P11

13-MAR-T8
30R(10S2)
TRAP TABLE

GO3

08:59

0S52See
043501
044526
o4el1l?

PAGE 32

NG DIRG.

LRSCIC

C4450M

g% 3C32

RUN DIRG.

PFHERD:

.RSCIZ

<PSEUDO POWER-FRIL VECTOR ARDDRESS

020104
044506
053105
047503

ER@MSG:

.RSCIC

COuLD NOT FIND DEVICE CODE -

020104

ERIMSG:

.RSCIZ

‘FOUND UNEXPECTED DEVICE COOE

ER3MSG:

.RASCII

/POWER-FAIL VECTOR ERROR-/
15> <¢l2>

.RSC12

.ASCII

/POWER-FRIL DATA ERROR, (15>« 12>

.ASCIZ

’

047504

DEVICE CCDE

o4asee

006522
042520
051011
042526

Q
£
et
8

nN—-00~—un

988:58888%

R2222RRA22P
R AR
RORK2

Q41511

238 &R

oy
T
ey e
e
Y
Y
e
e
e
e e
o
e
e
e
e e
e
Oy
e
o
il
el

00S015S
020117
004456
o4vSOoM
042504
041440

006614

NN NNANNN NN NNN NN NN NN NN NN N NN I I NN I NN NN
L £ W
W
W
WWWNIN NI NN PO MU TN = e e b e e e e~ = QOO o
— OWONOCNLWNN—OVDONTNIWNN—-OJONCNLWNN-0ODDN o

1698
i699

13-MAR-78 08:58

MRCY1!

046517

Q46125

007264
0g7veve

008G1S

0sllee

EXPECTED

RECIEVED
"« 15> 12>

0esSe2
042040
05110S
012
042520
0S1011
042526

ERMMSG:

0S110S
047111
042440

CRCMSG:

.ASCIZ

/CRC

020104
Q42504
o47111
Qu2se?
o46111
047524
051104

PFMSG:

.R5CI1Z

‘COULD NOT DETERMINE POWER-FRIL VECYOR &DDRESS-

046517
0s2le
0s11l?

NGPOMM:

[ RSCII

+NO ROMS

EXPECTED

ERROR

RECIEVED-<1S5.
12

IN ROM E--

TEST ERROR/<15'«<l2

CSMIBAC M9312 BOOT TERMR 8k
007274

13-MRR-78 08:58

O4a4ll
Q4eseu
0H4803

007404
0gryle

SEQMSG:

.RSCII

.EVEN

BUF2:
OCTBUF
:

000100

MESL:

- O00000000000000000000000000

BUF 1:

e]a]d]la
[e]ela]

000030
000000
000000
00000C

<EG 0033

RECIEVED-

INSTALLATION PRCCEDURE.

: BUFFERS
007420
007420
0g74ee
007424
007426
007430
007432
007434
007436
007440
007442
007444
007446
007450
007452
007454
007456
007460
007462
007464

PAGE 33

~15>.12»-DEVICE CODES NOT IN ORCER SPECIFIED B!

.RSCIZ

Q4rSa22
O4asee

HO3

EAPECTEL

LASCIS

050130
004504
0531058
g4e0le

04711l
o40S14
0s0040
0SasoM

30A:1052)
13-MAR-78
TRAP TABLE

3\l\JV\J\J\)V\J‘J\JV\J‘J‘J\J\J\I\I\J\J\I‘J\J\J\J‘J\l\l\l\l‘l') 1 4808
o..oommmmmcommmm\J\J\J\:\rvl-a\J\amwmmmwa‘mo*mmmmmgtg

I
e
R
Y
e
T ey O
e S
e
R O
O
o e
o
e
O
N
o
T
S
[

~N -~ J
WOOOMMDMD
N~ NNNN
0 00D
NN WN—-OLONOCWNLWNN—OODONCNLWNN—-OOONCN
LW~ OVo I

Z<M9BR Fll

MACYL1

‘

CIMIBARO MS312 BOOT TERMR 8k
13-MAR-T8 08:58

CZMSBA.P11
ABASE

000000

D0C0oas
0000CC

I03

MACY11l 30R(1052)
13-MAR-78
09:59
PAGE 35
CROSS REFERENCE TABLE -- USER 5YMBO.S

CZMIBRO M9312 BOOT TERMR 8k

Efnggn.Pxx

13-MAR-"3 08:58

006524

1098

BITOl = 000002

4gSs

BELL

= 000001
BIT0
BIT00 = 00000!

4168
4068

BIT02
BIT03
BITO4
BITOS
BITO6
B8IT0?

=
=
=
=
=
=

000004
000010
000020
000040
000100
000200

4o4s
4038
402
4Ols
4008
399

BIT09
BIT1
BITIO
BIT11
BIT12
BIT13

=
=
=
=
=
=

001000
0500002
002000
0ON000
010000
0200006

337s
4158
3968
395s
3948
3938

BITO8 = 000400

3398

BITI4 =
BITIS =
BIT2
=
BIT3
=
BIT4
=
BITS
=
BIT6
=
BITZ7
=
BITE8
=
BIT9
=
BPTVEC=

040000
100000
000004
006010
000C20
000040
000100
000200
000400
001000
000014

3928
3918
Yi4s
413
4les
4llw
4108
409
4088
4078
4238

BUF |

007420

622

002462
(02244

730
657

BRHERD

BUF2

006543

007508

CALSUM
CHECKS

CKSWR =

4388
771s
1156

DDISP =
DEVCOD
GISPLA
DISPRE
DRHEAD
DSWR
=
EHEADT
EMTVEC=
ERRCNT
ERRHAN
ERRMSG
ERRVEC=
ERIMSG

338s
804
4748
4S1w
956
337s
1100
4269
4798
71
1090
419s
1182

CRLF = 000200
DRFLAG 003252

ER2MSG
ER3MSG
ERNYMSG

177570
003050
001106
000174
006530
177570
004362
000030
001120
004062
010214
000004
006756

006722
007G1Y
007072

41l
410
409

408
407

1092
1096
1145

854

CRCERR= 000020
CRCLOP
002500
CRCMSG
007146

332s
886#%

1183
1164
1188

416
415
414
413
412

848

331

Z€6 003S

09:59

16868

16918

1671lm

= 000015

13-MAR-?B

JO3

36
SYMBOLS
CROSS REFERENCE TABLE -- USERPAGE

963

104406¢

MACY1l 30A(10S2)

817

832

743
7248

7668

958
734

1738

621l
894

474
816
S8S#
59
1689

11528
1091#
735
1140
582
17168
17118
17218
17308

932»

936+

953

1034

17748
930

994

1799s

965

966

993

100!

1108

1134

1170

1294

1304

1265
911#

1304
9178

1025+

1028%

1029

1033

1063

1066%

10&3s

827

g4l

852

ecg

10898

628

6298

BYl#

931 #

747

585
879s
593

879

937#

584

748
1144
583+

810
1804
Sqy»

»ZHQBQO MQ312 BOOT TERMR 8k

CZMSBA.PL1

13-MARR-78 08:58

2554

MRCY1l 30R(10Se )

95?7

T3k
964

750#%
972

FIRSTB
FRSCOD

4778
1042

643
10S1s

887
1068

002552

001114
00377¢

728%

729#»

SETEND
G000
ESS = lallag u

1973
458

I0TVEC= 000020
LARSCOD
003774

Yous
1042

3308

TSWR

1044

= 000011

3298

236

i0gge
ggg
1

973

727%

1052
738+%

MESE

002472
00l1ll2
007514
010114

769%
4768
806
813

78S
Blus
1802s
1803

NOROME=
NOROMM
NOROMS
OCRADD
0CASC

000100
007250
002204
004546
004442

Y40
1158
655
971
1127

PROMP

006660
007172
177772
000240
003254
002S6&0

1157
3368
4308
807
660

1
17508
7068
978
1131
1185
gos
170Ss
1742

000200

357

LASTAD

002556

= 000012

MESSARG
MES]

NODRTAR

oCTBUF
PFERR =
PFHERD
PFMSG
PIRQ
=
PIRQVE=
PPFVAR
PRO
PRI
PR2
PR3

PRY

PRS
PR6

PR7

=
=
=
=

002242

007504
000040

000000
000040
000100
000140

= 000240
= 000300

= 000340

PS
=
PSW
=
PUTMES
PWRVEC=

177776
177776
003340
000024

70?7

bay
439

353s
3548
3558
3568

KO3

09:53

PRGE 37

CROSS REFERENCE TABLE ~-- USER 5YMBO.S

E¥E389 884400
FIRSTA

13-MAR-78

967

749

1Oc
1664
980

106S
751

cE% 0036

781
979

790
992

997

1107

1128

1132

11669

1665

i16bb

1667

1669

1671

1166

1672

1168

1673

1674

1675

1304

339»

1098

1099

7583

384
784

767

998
791

7898

1129

100e

1135

1171

1298

936
118Ss
1190
339

1215
1217
1197

1199

1801s

1133

1304

7168

B46
802

9294

3588
359

360

333s
324
B80S
4258

334

8ie

9484s

ROCHR = 104407
ROLIN = 104410
RESREG= 104412
RESVEC= 000010
ROMCNT
002460

16728

ROMERR

001110

148S
16738
1149
420
724#%
1???.

7es

740»

734+

747 %

808

7E7s

1113

Bee*

840#

B851#

85~

ROMFIN
ROMNUM
RSTART

001116
006S1e
002044
104411
0002CC

4788
1114
456

62b#
1681
6538

637+

653

7es

741

88!

889

SAVREG=
SEQERR=

1263

1089
Y4lw

167Ss

lzsgl

16748

693

741

102e

103S

1109

003770
007317
SEQTST
003646
STACK = 001100
001400
START
STKLMT= 1772774
DO1104
SWR
SEQEX
QMSG

SWREG
SWO
SW00
SW0l
SW0e
SWO03
SWoN
SWOS
SKWOe

=
=
=
=
=
=
=
=

000176
000001
000001
000002
000004
000010
000020
000040
000100

1030
1048
6ol
3248
4Gy
3358
4738
ySee
JeBs
3788
377
3768
37Ss
374s
3738
3728

SWo7?
SKO8
SW0S
SW1
SWI10
SW1l
SWlile

=
=
=
=
=
=
=

0200
000400
001000
000002
2000
004000
010000

271ls
3708
3698
387s
368s
3678
3668

SwWe

= 000004

3868

SW13
SWi1Y
SW1S

=
=
=

SH3
=
Si4
=
SWS
=
SW6
=
SW?
=
SW8
=
SW9
=
TBITVE=
TEMP
TESTAD

020000
040000
100000

000010
000020
000040
000100
000200
000400
001C00
000014
004544
003250

104402
104404
104403

1396
16678
16668

00S060
005066
005076
001100

490
1347
1318
1139
1143
1319
4708

$BARSE

golele

1045

10499

586

S92
1382

So9»
1395

PRGE 38

CROSS REFERENCE TARBLE -- USER 5YMBO.S

613

1201i»

gggl

TYPOC
TYPON
TYPOS

$ATY}
SATY3
SATYY
$AUTOB

1040

385#
3848
3838
382»
3818
380s
3798
Yyels
1191#%

003644
000060
000064
000034
000014
104401

SAPTHD
001122
SASTAT= ExexE® U
SATYC
00S104

103¢
1758%
10e

532

LO3

09:59_

30R(105e)

613

1092

109¢

114S

1382

i419s

884

885

%
887

831>

897

838+

1268

1393

1394

i410

14921

1440

365¢
3648
3638

TIMES
T¥VEC =
TPVEC =
TRAPVE=
TRTVEC=
TYPE
=

=
=
=

13-MAR-78

MARCYLl

(9]

CZM9BARO M9312 BOOT TERMR 8k
CZMIBR.P11
13-MRR-78 08:58

627#%
428s
4298
4e7zs
-7|
607

1489

S4y7s

12088

883#

646

949

952+

S77#%

682

1317

1390

1047
16648

683
1496

1811

1094

1397

0GC37

CZMIBARO M3312 BOOT TERMR 8k

CZMIBA.PI11

13-MAR-78 08:58

NI
!guggc
oo
005332

$ENT0E" 858085
MTRG=

#ERuxs

13828

2ok,

13118
818

1421
831

685
605
6808
6958
6948
6il
597
659
6778

6918
6878

§§soss
1222

1269
€6is

SODMW1

1250

5628

SODW1
$DOKIO
SODW 1
SODH 1
SDOWIY
SDDOWIS
SDOW2
SODW3
SOOWY
D
D
DOW
SODW8
SODWS
SOEVCT
SDEVM
SDORGN

SENDCT
SENDMG
SENULL
SENV
SENVM
SEOP

SEOPCT
SETABL
SETEND
SFATARL
SFFLG
SFILLC
SFILLS
SGETH2
$CTSWR
SHD
=
SHIBTS
SINTRG
SLF
SLFLG
SMADR1
SMADR2
SMADR3
SMADRY

SMAIL

SMAMS1
$MAMS2

001224
001246
1062
1984
001256
001260
001226
001230
1232
Ig34
1236

1240
001242
001244
001146
001214
002162
002150
002126
002171
002166
001156
001157
002102
002120
001156

5524
5618

51
5598
5608
Sios
gS48s
678
464
579
682
683
S178
cigs
656

€79%
S168

502
5098
1316%#
1273
13074
B84
13948

001122
001101
005056
005323
001173
001174
001200
001504
001136
(001166

4979
4718
13128
1357%
5348
538y
S41a
T
498
5288

001172

09:59

PAGE 39

1296+ 13018
1505

5638
13
5658
S668
5538
SS4s
5658
555w
o

001262
001140
005324
005052
005051
002142
D0S402

000003

1671

1383

SCRLF
SO60K0

13-MRR-78

CROSS REFERENCE TABLE -- USER SYMBO.S

1230+ 1280¢ 1287

SCKSWR

MACY1l 30R(10S2)

5368

5698
1353%
1313%
1308s

1137
802
6728
681

1248
1250

1325
1285

1347

1356%

13648

596

bll

1349
1327

1669
1

1422
1496
13638

502

1511
1508

SO7s

1248

SE% 0038

CZM3IBAO M9312 BOOT TERMR BK
13-MARR-78 08:58
CZM9I8BA. Pl 1

s P
s Pt Pt (Y e

QN
o= e pe ) 0o P

NO3

13-MAR-78 089:59_ PRGE 40
CROSS REFERENCE TABLE -- USER SYMBO.S

30A(1052)

SEL 0039

539

001176
001202
1124

$388888 §88882888i
e SRR
A HRHY

SMAMS3I
sMAMSH
SMBROR

MACY1l

cues

4988

1317#»
1397
Sl4s
S15s
sQ8s
1394
5298

1358#

13628

1336

1339#

1351

135S»

15S0#
658

1561#
74+

1587«
675#

694

1505

005734

576

578

60S

608

674

1377

1811

318

319

321l

s80

667

674

686

632

694

1403
1400

1457
%
1424

1461

16708

1671

16728

16 [4 38

1674

167Ss

ccCc

16678

001132

1669

12%e

1426

1S04s
1664
12918

SUNITM

16688

16768

CZMIBARO MS312 BOCT TERMR Bk

CZMIBR.PLL
SUSWR
SVECTIL
SVECTE
SSGE T4=
SOFILL

010314

.$RSTA= BRRBRR
= gCi122
. 8§

13-MARR-T8 08:58

MACY1l

BO4

PAGE 41
09:59
13-MAR-78
CROSS REFERENCE TABLE -- USER 35YMBOLS

30R(10Se2)

1581

1586

697
1374

1304
15048

4S0s

4SSa

1305
180S

Yelis
1306
1811

4658
1307
1801s

4678

1308
1802

1803

PAGE 43

{358

1868

tede

1633

1667

1669

1671

1672

1673

1674

1678

483

485

492

508

664

1227

1315

1667

1669

1671

1672

1673

1674

1675

CROSS REFERENCE TRBLE -- MACRO NAMES

43ls
43ls

3258

4318
431
4318
4318
4318

3888
302
3268

608s
H3is

Yils

4318

1324

431s

16568
3028
43ls
43l

302s

Y43ls
Y43l

1590

43is
16568

433

460

S80s

43l

431l

302

Y3is
43ls
431s
4318
431w

4318

601

139S

1666

1372

1377

1448

1474

i813

co4

08:59

30A(105e)

CZMIBARD MI312 BOOT TERMR 8Bk
13-MAR-TB 08:58
CZMIBAR.PL1

13-MAR-78

MACY1l

gccu!

CZM9IBARO M9312 BOOT TERMR Bk

13-MAR-"8 08:58

C<M9BA.PLI
.

ABS.

010314

ERRORS DETECTED:

MRCYLL 30A(10S2)

000
O

Pl
cZMIBA, CZMIBR 'SOL - CRF ~NL : TOC=CZM".8R.
RUN-TIME: 20 S .7 SECONDS
RUN-TIME RATIO: 97.27=3.5

CORE USED:

20k

(33 PRGES:

13-MAR-78

DO4

(8:59

PAGE 44

SROSS REFERENCE TRBLE -- MACRO NAMES

SES 002

EO4