Digital PDFs

AH-E058B-MC

August 1978

50 pages

Original

2.5MB

view download

OCR Version

2.1MB

view download

Document:	CZM9BB0 M9312 BOOTSTRAP TERMINATOR 8K AUG 1978 bw
Order Number:	AH-E058B-MC
Revision:	000
Pages:	50
Original Filename:	CZM9BB0__M9312__BOOTSTRAP_TERMINATOR_8K__AH-E058B-MC__AUG_1978_bw.pdf

OCR Text

CZM9BBO

MADEINUSA

(ZM9880 19312 BOOT TERMR 8K

(Zn988. P11
|

REN

MRCY11

14-JUN-78 16 00

30R(1062)

14-JUN-78

8
16.01

PAGE 2

SEQ 0001

;

IDENTIF ICAT ION
PRODUCT CODE-

AC-E057B-MC

PRODUCT NAME

(ZM9BBO M9312 BOOT

DATE

JUNE.

MAINTAINER

DIARGNOSTIC GROUP

THE

INFORMATION

TERMR

1978

IN THIS

DOCUMENT

SUBJECT

CHANGE
KITHOUT NOTICE RND SHOULD NOT BE CONSTRUED
RS A COMMITHENT BY DITITAL EQUIPMENT
CORPORATION

DIGITAL

EQUIPMENT

CORPORATION

ASSUMES

RESPONSIBILITY FOR ANY ERRORS THRT MAY
APPEAR
IN
THIS
DOCUMENT.
THE
SOFTWARE
DESCRIBED IN THIS
DOCUMENT IS FURNISHED UNDER R LICENSE AND MARY ONLY
BE
SUED OR COPIED IN RCCORDANCE WITH THE TERMS OF
SUCH L ICENSE.
DIGITAL
EQUIPMENT
CORPORRTION
ASSUMES
RESPONSIBILITY
FOR
THE USE OR RELIABILITY OF
[S)OET#;RE ON EQUIPMENT
THRT
IS NOT SUPPLIED
IGITAL.

CORPORATION

(()

1978

B8Y

OCIGITA

]

NO
ITS
BY

EQUIPEMNT

[(ZH‘?BBO M9312 BOOT TERMR 8K

' (Znoss P11

MACY11 3J0A(1052) 14-JUN-78 16 01 PAGE 3
C

14-JUN-78 16 00

HISTORY SECTION
(ZM9BA0 WAS RELERASED MARCH. 1978
(ZN98B0 WAS RELERSED JUNE. 1978
REVISION B WRS CRERTED TO PROVIDE
1

THE

FOLLOWING ENHANCEMENTS:

PROPERLY CHECK THE BOOT ROM'S RLPHABETIC SEQUENCE AND.
IF NOT IN CORRECT SEQUENCE, PRINT THE CORRECT SEQUENCE RS
AN ERROR MESSAGE.
ALSO CHECK FOR NO HOLES AND CHECK
FOR ROM IN SOCKEY 82 IF 11/60 AND ONLY ONE ROM EXISTS,

ELSE PRINT THE CORRECT SEQUENCE

THE DIRGNOSTIC CANNOT DETERMINE THE DEVICE CODE FOR A
CONTINURTION ROM
THEREFORE. CONTINURTiON ROMS RRE TRERTED
RS EXTENSIONS OF THE PRECEEDING DEVICE CODE ROM
|LLEGAL
PLACEMENT OF CONTINURTION ROMS ARE REPORTED IN ERROR
MESSRGES.
R DUPLICATE DEVICE ROM 1S ALSO REPORTED IN
AN ERROR MESSAGE.
COMMENT FIELDS BEGINNING WITH THE CHRARACTERS ", +"
IDENTIFY ALL LINES RDOED OR MODIFIED BY REV BO

REN

ABSTRACT

THIS PROGRAM VERIFIES

TERMINATOR

HAS

THE

WHICH REQUIRES OPERATOR

REQUIREMENTS

HARDWARE

THO

ROM

INFORMARTION FOR

INTERVENTION AND RPT-MODE

ANY PDP-11 UNIBUS PROCESSOR WITH CONSOLE
SKHITCH REGISTER
M931Z BOOT STRAP TERMINATOR
4K MEMORY

2.2

THE

MODES OF OPERRTION,

M9312 BOOTSTRAP

STAND-ALONE MODE

TERMINAL AND/OR HRRDWARE

SOf THARE

THIS
PROGRAM
REQUIRES
THAT
THE
CORRECT
OPERARTION
OF
THE
PROCESSOR,
MEMORY AND CONSOLE TERMINAL HRVE BEEN VERIFIED BY THE
RPPROPRIATE DIRGNOSTICS

LORDING AND STRARTING PROCEDURES

StQ 0002

(Z2"9880 M9312 BOOT TERMR 8K
(Zr98B P11
14-JUN-78 16 00

MACY11

30A(1052)

LORD THE PROGRAM BY ANY OF

STARTING RDORESS
200-

14-JUN-78

0D
16 01

1
PAGE W

SE@ 0003

THE STRANOARD PROCEDURES FOR ABSOLUTE PROGRAM FORMATS

DO CRC VERIFICRTION AND SIZING

RESTARY RDDRESS

204- RESTART WITHOUT SIZING

SPECIAL

ENVIRONMENTS

THIS PROGRAM IS RPT COMPRTIBLE SEE
SECTION
FOR
ETABLE
FOLLOW STRANDARD RAPT PROCEDURES FOR LORDING AND STARTING

SET-UP

OPERRTING PROCEDURES
OPERATIONAL SHITCH SETTINGS
THE PROGRAM

IS DESIGNED TO

USE

THE

MHARDWARE

HOWEVER
IF
THIS
REGISTER IS NOT AVAILABLE
LOCATION 176 RS THE SHITCH REGISTER
SH 15=1 OR UP-- HALT ON ERROR
SW 13=1 OR UP-- INHIBIT ERROR
SWH 10=1 OR UP-- BELL ON ERROR

SWITCH

THE PROGRAM WILL USE

TYPEOUTS

EXECUTION TIHNES

EXECUTION TIME 15 DEPENDENT ON THE CONSOLE
TERMINAL
DURING
FIRST PRSS.
ALL OTHER PASSES TRKE LESS THEN 1 SECOND

THE

APT PROCEDURES

THERE RARE THO (HOICES WHEN RUNNING UNDER RPT
(BIT
7-SENVM)
IS
CLEAR
THE
PROGRAM
WILL

IF
THE
Si128
BIT
OPERATE
IN NORMAL
THE
PROGRAM
WILL

STAND-ALONE MODE
IF THE
SI1Z2E
BIT
IS
SET
COMPRARE
PRARAMETERS FROM THE BOARD TO THE CONTENTS OF THE ETABLE
}0 gsg“&flg RAPT COMPARSION FERTURE THE ETRBLE MUSY BE
SET
UP
(N
Hi

SENV
SENVM

DON'T CARE
200 OR 240

(ZM96B0 M9312 BOOT TERMR 8K
(2188 P11
14-JUN-78 16 00

MACY11

30A(1052)

14-JUN-?8

16:01

PAGE 5

SSHREG
SUSHR.
SCPUOP

OON'T CARE
NOT USED
NOT USED

SHTYPYSMADR 1
SMANSZ.
SHTYP2.
SMAOR 2
SMAMS 3
MTYPJ

NOT
NOT
NOT
NOT
NOT
NOT
NOT

USED
USED
USED
USED
USED
USED
USED

SHAMSY SMAMSY
SHTYPY
SMADRY

NOT
NOT
NOT
NOT

USED
USED
USED
USED

SBRSE

PSEUDO POWER-FAIL VECTOR RDDRESS

SHANS1 -

SHPOR 3

SVECT1
SVECT2:

SOE VMSCOW1.

NOT USED

NOT USED
NOT USED

NOT USED
CONTENTS OFf RDORESS

SCOW2Z.
SODWO:

IN SBRSE

NOT USED
DEVICE CODES EXPECTED

FIRST LETTER/SECOND LETTER

DDH15.

SUBROUTINE RBSTRACTS

NORONS
THIS ROUTINE

NOT USED

IS CALLED ONLY

IF NO ROMS WERE FOUND

DURING

SIZING

IT
DOES
R
RERD OF ALL BOOTSTRAP ROM ADDRESSES AND (OMPARRES THE
CONTENTS TO R KNOWN EXPECTED VALUE

CHECKS
THIS ROUTINE SETS UP THE FIRST, LAST AND EXCEPTION RDORESSES
FOR
THE
“CRALSUM" SUBROUT
INE
IT RECIEVES THE CALCULATED CHECKSUM FROM

"CALSUM” AND COMPARES

CRC ERRORS

IT RAGR!NST THE GOOD CHECKSUM

DETERMINE

CALSUM

THIS ROUTINE CRLCULRTES THE
C(RC16
CHECKSUM
OF
EACH
ROM
|7
RECEIVES
THE
FIRST
RODRESS
TO
BE
C(HECKED(FIRSTR),
THE LAST
ADORESS TO BE CHECKED(LASTRD) AND THE EXCEPTION RDORESS
(EXCRDD)
FROM THE "CHECKS" MODULE AND RETURNS TO IT THE CHECKSUM IN RY

SEQ 0004

CcMIBBO M9312 BOOT TERMR BK
(Zmn9se P11
14-JUN-78 16 00

MACY11

3CAC1052)

14-JUN-78

F
16 01

1
PRGE 6

SEQ 0005

PROMP
THIS ROUTINE

DON'T

SI12¢

PROCESSES THE ROM PRARAMETERS

BIT

IT CHECKS

THE

SI1ZE/

IN THE RPT ETABLE AND EITHER FORMRTS THE SIZING

85'%396[8 OR COMPRARES

THE

SIZING

INFORMATION

THE

APT

ETRABLE

DEv(C0D
THIS ROUTINE LOCRTES ERCH DEVICE
(CODE
AND
PASSES
IT
AND
RDDRESS IN WHICH IT WARS FOUND BRCK TO THE "PROMP" MODULE

THE

PPF VAR

THIS ROUTINE DETERMINES THE PSEUCO POWER-FRIL VECTOR RDDRESS
PASSES 1T AND ITS CONTENTS TO THE "PROMP" MODULE

AND

PUTHMES

THIS
ROUTINE
MESSARGES.

FORMATS

THE

PRRAMETER

AND

POWER-FAIL

ADDRESS

ERRHAN

THIS ROUTINE FORMATS
ALL
ERROR
MESSAGES
AND
CALLS
THE
TYPE
ROUTINE TO OUTPUT THEM
IT ALSO USES THE OPERATIONAL SKITCHES TO
DETERMINE WHETHER TO OUTPUT THE MESSAGE. OR HALT
F ILBUF

THIS ROUTINE FILLS THE MESSAGE BUFFER WITH RSCHI
RECIEVES THE RDORESS OF THE RSCII IN RS

C(HARACTERS

THIS ROUTINE TRKES R SIXTEEN BIT BINARY NUMBER AND CONVERTS
6 RSCII CHARACTERS

IT TO

OCRSC

5 11

0CADD

(ZM98B0 M9312 BOOT TERMR 8K
(Zn9ss P11
14-JUN-78 16 00

MACY11

30H(1052)

G
16 01

14-JUN-78

!
PRAGE

THIS ROUTINE IS USED B8Y THE "PUTHMES"TM MODULE WHEN THE DRTA
IN
IS NOT IN THE RIGHT MODE TO BE HRANDLED BY THE "OCASC' MODULE
HOVES THE RDORESSING MODE OF R3 UP ONE LEVEL OF DEFERMENT

SEQ 0006

R3
T

RELIABILITY//RVAILABILITY/SERVICERBILITY
WHEN RUNNING IN ANY ENVIRONMENT BUT APT THERE IS ONLY
ONE
ERROR
DETECTED
BY
THE
PROGRAM
THIS ERROR 1S A (HECKSUM ERROR
THE
HESSARGE WILL BE

CRC ERROR

IN ROM EXX

THE FOLLOWING ERROR MESSAGES WERE RDDED

1
2
3

IN REV BO

A CONTINURTION ROM 1S INCORRECTLY LOCRTED IN ROM X(EXX)
R CONTINURTION ROM IS MISSING FOR DEVICE CODE XX
THERE IS R DUPLICARTE ROM WITH DEVICE CODE XX
ROM SEQUENCE 1S INCORRECT RS PER INSTALLATION PROCEDURE

SEQUENCE SHOULD BE
ROM
ROM
ROM
ROM

1(E35)
2(E33)
3(E3W)
Y(E3I2)

HHEN RUNNING
1

XX
XX
XX
XX

IN THE RPT ENVIRONMENT THREE OTHER ERRORS MRY OCCUR

AN ERROR WILL OCCUR WHEN THE DEVICE CODES IN
THE
NOT
MATCH
THE
DOEVICE
CODES
FOUND IN THE ROMS
MESSAGE WILL BE EITHER

COULD NOT FIND DEVICE CODE XX

FOUND UNEXPECTED DEVICE CODE XX

THE FIRST MESSRGE WILL BE PRSSED TO

LISTED

THE

APT

|IF

DEVICE

CODE

ETABLE CANNOT BE FOUND IN THE EXISTING ROMS

THE SECOND MESSRGE WILL BE SENT IF R DEVICE CODE
IN THE ETRBLE IS FOUND IN R ROM

ETARBLE
DO
THE ERROR

NOT

LISTED

THE SECOND ERROR WILL BE
IF
THE
PSEUDO
POWER-FARIL
VECTOR
RODRESS
IN
THE ETRBLE DOES NOT MATCH THE ADDRESS DETERMINED
aY THSEPROQRH.
TO BE IN THE BORRDS' SWITCHES
THE
MESSAGE
iLL

POMER-FAIL

EXPECTED

VECTOR

RECEIVED

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

THE ETABLE RAND RECEIVED

C(2Zn9880 M9312 BOOT

(Zn988 P11

TERMR 8K

14-JUN-78 16 00

MACY11

30AC1052)

14-JUN-78

16 01

PAGE 8

THE THIRD ERROR WILL BE IF THE
CONTENTS
OF
BOARD'S
PSEUDO
POMER-FRIL
VECTOR
RDDRESS DOES NOT MATCH THE VRLUE EXPECTED
FROM THE ETRBLE
THE MESSRGE WILL BE
POWER-FRIL DRTA ERROR
EXPECTED
RECEIVED

SEQ 0007

(ZM988B0 M9312 BOOT TERMR 8K
(Zn98s P11
14-JUN-78 16 00

MACY11

30A(1052)

338
339

14-JUN-78

|
16 01
PRGE
9

ENRBLE RBS
LIST
nt
NLIST NMC,MD, CNO

TITLE
C2ZM9880 M9312 BOOT
- 3COPYRIGHT (C) 1978
+3DIGITAL EQUIPMENT CORP

- XSMAYNARD,
i

MARSS.

SEQ 0008

TERMR 8K

01754

!PROGRM BY BARRY G

IRRGANG

JTHlS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC
. SPACKAGE (MAINDEC-11-D2QRC-C3)., JAN 19, 1977

000001
160000

ot
$TN=1

$SWR=160000
, HALT ON ERROR, LOOP ON TEST.
SBTTL
OPERATIONAL SWITCH SETTINGS
.8

SHITCH

%
ot
SBTTL

001100

000011
000012
000015
000200
177776

17227274
1772772
177570
177570
000000
000001
000002
000003
000004
000005
000006

000007
000006
000007

000000

14
13
BRSIC

.RROR TYPOUT

USE

HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR
DEF INITIONS

;XINITIAL ADDRESS OF
STRCK=
1100

EQUIV
EQuiv

INHIBIT

SYSHAC

EMT.ERROR
10T, SCOPE

TYPEOUTS

THE STRACK POINTER

xxx

1100 xxx

.»BRSIC DEFINITION OF ERROR CALL
,»BRSIC DEFINITION OF SCOPE CALL

» XMISCELLANEQUS OEF INITIONS

HT=
11
LF=
12
(R=
15
CRLF=
200
PS=
177776
PS,PSK
EQUIV
STKLHT= 172774
PIRQ=
177772
DSWR=
177570
DOISP=
177570

.. CODE FOR HOR |ZONTAL TR8
,.CODE FOR LINE FEED
.. CODE FOR CRRRIAGE RETURN
.. CODE FOR CARRIAGE RETURN-LINE FEED
;. PROCESSOR STATUS WORD

.. STRCK LIMIT REGISTER
»»PROGRAM INTERRUPT REQUEST REGISTER
. HARDWARE SWITCH REGISTER
. » HARDWARE DISPLAY REGISTER

. XGENERAL PURPOSE REG!ISTER DEF INIT.ONS
=

. GENERAL REGISTER

SP=

.+ STRCK POINTER

R1=
R2=
3=
R4 =
R5=
R6=
R?=
PC=

%1
%2
%3
%4
%5
%6
%?
%7

.. GENERAL
. GENERAL
.. GENERRL
. GENERAL
;, GENERAL
. GENERAL
»» GENERAL

»» PROGRAM COUNTER

»XPRIORITY LEVEL DEFINITIONS
PRO=
C
,.PRIORITY LEVEL O

394
395
396
397
9¢
399

000040
000100
000140
000200
000240
000300

403

100000

400
401
402

000340

Wou

040000

406

010000

405

407
408
409
410

411

412
413
W14
W15
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430

020000

004000
002000
001000
000400

000200

000100
000040
000020
000010
000004
000002
000001

431
432
433
434

100000
040000
020000
010000

437
438

001000
000400

435
436

439
w40
W41
W42
W43
Wy
W45
W46
w7
w48

004000
002000

000200
000100
000040
000020
000010
000004
000002
000001

MACY11

30A(1052)
14-JUN-78
BRSIC DEFINITIONS
PRi=
PR2=
PR3=
PRY=
PRG=
PR6=

PR?7=

J
16:01

40
100
140
200
240
300

340

1
PAGE

. PRIORITY
;. PRIORITY
.. PRIORITY
;. PRIORITY
,.PRIORITY
..PRIORITY

StQ 0009
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

.. PR!ORITY LEVEL

SE"SHITCH REGISTERTM SWITCH DEF INITIONS
SW18=
100000
SHiN=
40000
SW13=
20000
SH12=
10000
SHi1=
4000
SK10=
2000
SU09=
1000
SW08=
400
SW0?7=
200

SWHO6=

SHOS=
SWOM=
SHO3=
SHO2=
SWOo1=

SWO00=

100

40
20
10
&
2

EQUIV
SHO9. SH9
EQUIV
SWOS8, SWS8
EQUIV
SKWO?7, SW?
EQUIV
SWO6. SHE
.EQUIV
SHOS. SHS
.EQUIV SHOM. SHY
EQUIV
SHO3, SW3
.EQUIV
SHO02, SK2
EQUIV SHO1., SK1
EQUIV SWOO. SHO
;XDATR BIT DEFINITIONS
BI1T15=
100000
BITi4=
40000
BITi13=
20000
81T12=
10000
BITit=
4000
81T10=
2000
81T09=
1000
81708=
400
81707=
200
BI1T06=
100
Bi1T06=
MO
20
BITOu=
10
817T03=
81702=
BiT01=
2
1
BITOO=
.EQUIV
BITN9,BIT9
EQUtY
BirT08.BITS8

gEQutv

BI1T0?7,81T7

(BITOO TO BIT15)

NN
E DN —-

(ZN198B0 M931Z BOOT TERMR 8K
(ZM9BB P11
14-JUN-78 16 00

CZM98B0 M9312 BOOT TERMR 8K
(Zn9ss. P11
14-JUN-78 16 0O

MACY11

30A(1062)
1 4-JUN-78
BRSIC DEF INITIONS

450

EQUIV
EQUIV
EQUIV
EQuiv
EQuiv
EQuiv
EQuiv

.3BASIC "CPU"
ERRVEC= &4

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

RESVEC= 10

000204

.. POMER FRIL

.. EMULATOR TRAP
.. "TRAP" TRAP

(EMT)

XXSCOFEXX

XXERRORLX

PROGRAM EQURTES

unn '

—

,,xxxxxx;:;g:xxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1
RPTER2
APTERJ
AP TERY

SBTTL

+
+ +

CRCERR
PFERR
NOROME =100
SEQERR =200
CONONE =400
CONTWO=1000
DUPERR=2000

.=0
TRAP CRTCHER

.=0
»XALL UNUSED LOCATIONS FROM 4 - 776 CONTRIN R " +Z,HALT"
- SSEQUENCE TO CRTCH ILLEGAL TRAPS AND INTERRUPTS
;SLOCATION O CONTAINS O TO CATCH IMPROPERLY LORDED VECTORS
. =174

000174
000000
000000
001400

DISPREG. . WORD O
, . SOFTUARE DISPLRY REGISTER
. SOFTWARE SWITCH REGISTER
SWREG:
. MORD O
SBTTL
STARTING ADORESS(ES)
e
S8START .. JUNP TO STARTING RODRESS OF PROGRAM

001656

_SBTTL

000210

INSTRUCTIONS

TKVEC=
60
.. TTY KEYBOARD VECTOR
TPVEC=
64
;. TTY PRINTER VECTOR
PIRQVEC=242
;; PROGRAM INTERRUPT REQUEST VECTOR
PR 202260000000000008080:000000003000000000002020000022008000200294¢

000000

000137
000204
000167

ILLEGAL

(BPT)
.. INPUT/0UTPUT TRAP (10T)

ENTVEC= 30
TRAPVE (=34

000000

000200

sta 0010

LT BIT
.. TRRCE TRAP
. BRERKPOINT TRAP

PHRVEC= 24

0000N0
000100
000200
000400
001000
002000

497

» . RESERVED AND

10TVEC= 20

000001
000002
00000y
000010
000020

000174
000176

TRAP VECTOR RDORESSES
.. TINE OUT AND OTHER ERRORS

TBITVEC=1Y
TRTVEC= 14
BPTVEC= 14

494
495

1
PRGE

BITO6.B1T6
BI1T05.81T75
BITON.BITY
BIT03.B8IT3
BIT02,.BI1T2
BITO1.BITt
B8IT00.BITO

451
4652
463
Y54
465
456
457
458
459
460
461
462
463
464
465
466
46?7
468
469
470
471
472
473
W74
475
476
4?2?
478

K
16 01

ACT11

RSTART
HOOKS

,, EEEEEERERLES AR AR AL AXL L RLXEXL L AT AN
»HOOKS REQUIRED BY ACT11
SSVP(=.
. SAVE PC

R AX XX LEX XL KXLRX LR

(Zn98B0 M931Z2 BOOT TERMR 8K
czmnoes P11
14-JUN-78 16 00

507

000046
000052

MAC ‘11

30R(1052)

ACT11 HOOKS

000046
002174
000052
000000
000210

001100
001101
001102
001104
001106
001110
001112
001114
001116
001120

SEPSOI%RD

SAUTOB

=1100
.BYTE

ROMERR-

ROMFINERRCNT

O
O

BYTE
.HWORD
SHR
WORD
DISPLRYWORD
MESSAG
FIRSTB-

000044

000000
001136
000002
000000
000052

O
O
DSWR
ODDISP

APT PARAMETER BLOCK

P 3 0 0 0000 20 P00ttt et PRt eittttttttteetoitetPittttonedtotd;
.SET LOCATIONS 24 AND 44 RS REQUIRED FOR APT
P $ 3 0930 3800080000888 8 000000030080000302000003920820020902900¢941
. $X=.
. » SAVE CURRENT LOCATION

.=24
;,SET POMER FRIL TG POINT TO STRRT OF PROGRAM
200
.. FOR APT START UP
=4y
;+POINT TO APT INDIRECT ACDRESS PNTR
SAPTHOR ,,POINT TO APT MERDER BLOCK
= §X
,,RESET LOCATION COUNTER
D $ 00 S F
S PP 000t et PRttt ittt PRttt tetets ittt
,SETUP RPT PRARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

SAP THD

SHIBTS
SMBRORSTSTMH
SPASTM:
SUNITHSBTTL

SPEC

. WORD
O
,;TWO HIGH BITS OF 18 BIT MAILBOX RDDR
. WORD
SMAIL
.., RDDRESS OF APT MAILBOX (BITS 0-15)
. WORD
2
. RUN TIM OF LONGEST TEST
. WORD
2
++RUN TIME IN SECS
OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
. WORD
o
;,RODITIONAL RUN TIME (SECS) OF R PRSS FOR ERCH RDDITIONAL UNIT
WORD
SETEND-SMAIL/2Z .. LENGTH MRILBOX-ETRBLE (WORDS)
APT MAILBOX-ETRBLE

001142
001144
001146
001150
001152
001154
001156
001156
001157

SEOP

,,2)SET LOC 52 TO ZERO
.. RESTORE PC

‘ ,E5:!‘ttt"t!!ll!t!lt!tnt!xt,!ti!tl!!l!!!!!!l!!it!!!l!l!!ilii!!t
001136
001136
001140

SEQ 0011

O
173000

. INTERFRACE

001122
001122
001124
001126
001130
001132
001134

PRGE

,-1)SET LOC 46 TO RDORESS OF SENDRD IN

WORD
O
=§SVP(

SINTRG:-

001122
000024
000200
000044
001122
001122

L
16.01

=46

SBTTL

000024

14-JUN-78

SMSGTY:

. WORC

AMSGTY

., MESSAGE TYPE CODE

STESTN:
$PASS:

. WORD
. WORD

ATESTN
APASS

., TEST NUMBER
.., PASS COUNT

SFATAL.
SOEVCT.
SUNIT:
SMSGRD$MSGLG:

SETRBLE:
SENV
SENVM

. WORD

. WORD
. WORD
. WORD
. WORD
BYTE
BYTE

AFARTAL

RDEVCT
AUNIT
AMSGAD
AMSGLG
RENV
RENVM

..FATAL ERROR NUMBER
..DEVICE COUNT
,,;1/0 UNIT NUMBER
.. MESSAGE RDDRESS
..MESSAGE LENGTH

.. APT ENVIRONMENT TRBLE

. ENVIRONMENT BYTE
., ENVIRONMENT MODE BITS

(Zn98B0 19312 BOOT TERMR 8K

CZm9es P11
52
563
564

565

001160
001162
001164

14-JUN-78 16 00
000000
000000
000000

573

574
575
576

WORD
. WORD
. WORD

ASKWREG
AUSWR
ACPUOP

001167

. X

$MAMS1T

000

SHTYP1
I ¢

R
R
. X

StQ 0012

., RPT SWITCH REGISTER
,, USER SWITCHES
., CPU TYPE,OPTIONS

BITS 156-11=CPU TYPE

11/70206,PD0=07.Q=10
BIT *OzREAL TiIME CLOCK
BIT 9=FLOATING POINT PROCESSOR

.X
. %
000

PRGE

11704201, 11/05=02, 11/20=03. 11/40=04. 11/45=05

i |

001166

16 01

568
569
572

14-JUN-78

APT MAILBOX-ETRBLE

. ¢

567

571

30A(1052)
SSHREG:
SUSHR
SCPUOP-

566

570

MACY11

BYTE

AMAMS1

AMTYPY

BIT

8zMENMORY MANAGEMENT

., HIGH RDORESS.M S.

BYTE

MEM. TYPE BYTE

(MIGH BYTE)

., MEM. TYPE,BLK#1

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

577

001170

000000

SMADR1

WORD

AMADR1

579
580

001172
001173

000
000

SMAMS2
SMNTYP2:

BYTE
.BYTE

AMAMS2
AMTYPZ

682
583
S8y
585
586
587
588
589
590
591
592
593
594
595
5%
§97
598
599
600
¢01
602
603
60
605
606
607
608
603

001176
001177
001200
001202
001203
001208
001206
001210
001212
00121%
001216
001220
001222
00122«
001226
001230
001232
00123
001236
001240
001242
0012%&%
001246
001250
001262
001254
00125
001260

000
000
000000
000
000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

SMAMS3:
SMTYP3:
SMADR3:
SHAMSY:
SHTYPY
SMADRYSVECT1:
SVECT2:
SBASE
SOEVM
SCDH1SCONZ2.
SODHO.
SOOW1:
SOOM2.
SOOMI
SO0
SODWS:
SODW6:
SODW?
SODH8
S00W9SODHI0$ODW11.
$OOMH12$ODW13SODW14$ODW1S

. BYTE
. BYTE
. WORD
. BYTE
_BYTE
. WORD
. WORD
. WORD
. WORD
. WORD
. WHORD
. WORD
.WORD
. WORD
. WORD
. WORD
. HORD
. WORD
. WORD
. WORD
. WORD
. WORD
WORD
. WORD
. WORD
. WORD
KHORD
WORD

AMAMSI . HIGH RDORESS.M S. BYTE
AMTYPI .. MEM TYPE,BLKE3
AMADRI ., MEM. LRST ADORESS.BLK#3
AMAMSY .. MIGH RDORESS.M S. BYTE
ANTYPY [, MEM TYPE,BLKAEY
AMAORY ., MEM LRST ADORESS.BLKSY
RVECT1
.. INTERRUPT VECTORE1,BUS PRIORITY®1
AVECTZ ;. INTERRUPT VECTOR®2BUS PRIORITY#2
RBASE
..BRSE RDORESS OF EQUIPMENT UNDER TEST
RDEVM
.. DEVICE MAP
ACDW1 ., , CONTROLLER DESCRIPTION WORDS1
ACDWZ
.., CONTROLLER DESCRIPTION WORD#2
RODWO
.. DEVICE DESCRIPTOR WORD#O
ROOWI
., DEVICE DESCRIPTOR WORDA1
AODW2
., DEVICE DESCRIPTOR WORD®2
RODW3
.. DEVICE DESCRIPTOR WORD#3
RODWM
. DEVICE DESCRIPTOR WORDAY
RODWS
;. DEVICE DESCRIPTOR WORDES
ARODWe
.. DEVICE DESCRIPTOR WORD®6
ARDOW?
;. DEVICE DESCRIPTOR WORD#?
AOOW8
.. DEVICE DESCRIPTOR WORD#S
ROOW9
. DEVICE DESCRIPTOR WORDA9
RODWIO .. DEVICE DESCRIPTOR WORCEIO
ARODWI11
. DEVICE DESCRIPTOR WORD#11
RDODW1Z ., DEVICE DESCRIPTOR WORD#12
ARODWHI3 ..DEVICE DESCRIPTOR WORD#13
ARDODOWIM ., DEVICE DESCRIPTOR WORD#1M
ADOWIS .. DEVICE DESCRIPTOR WORD#15

21§

001262

614
615
616

001400

578
581

61
611
1

617

00117«

001400

000000

SMAORZ.

. WORD

AMRADRZ

.. HIGH RDORESS.BLK#1

MEM. LRST RDOR. =3 BYTES, THIS HORD AND LOK OF "TYPE" ABOVE
.. HIGH RDORESS.M S. BYTE
..MEM TYPE,BLKE2
., MEM LRST RDDRESS.BLK#2

SETEND

001400

012706

001100

START
SBTTL

=1400

INITIALIZE THE COMMON TAGS

MOV

#STACK, SP

.. SETUP THE STRCK POINTER

(219880 M9312 BOOT TERMR 8K
(Zn9ss P11
14-JUN-78 16 00
618
619
620
621
622
623

0014%0%
001412
001420
00142

012737
012737
005067
016767

006412
000340
177520
000520

001432
001436
001444
001452
001460
001466

0137246
012737
012767
012767
022777
001012

000004
001472
177570
177570
17272277

001470
001472
001476
001500
001506
001514

000403
012716
000002
012767
012767
012637

001520
001524
001532
00153y
001542

005067
132767
001403
012767

001542
001546
001550
001556
001560

005227
001046
022737
001442
104401

001564
001570
001572
001600
001602
001610
wee12
0016
001616
001624
001624

005737
001012
126727
001406
026727
001005
104405
000403
‘12767

001664

MACY11

000034
000036
000510

177376
177372

177420
000200

177425

001160

177342

00217y

000001

177254

012700
006020
020027
00277%
006037
006037
0C476?7
013746
012737

007520

001116
003770
006714
001762

00000v

nov
MOV
MOV
MoV
cne
BNE

SRERRVEC.
- (SP)
G648, JRERRVEC
SDSUR, SIR
800ISP,DISPLAY
#-1. dSHR
669

659

;;AND
THE HARDMARE SWR
;. BRANCH IF NO TIMEOUT

..POINT TO SOF TWRRE SHR

669

MOV

(SP)+, JRERRVEC

., RESTORE ERROR VECTOR

678

BITB
BEQ
MOV

MOV

CLR

#65%, (SP)

#APTSI2E, SENVM
679
SSSWREG. SKR

;. CLEAR PRSS COUNT

,, TEST USER SIZE UNDER RPT
»» YES, USE NON-RPT SHITCH
».NO,USE RPT SWITCH REGISTER

TYPE PROGRAM NAME
THE NAME OF THE PRGGRAM
INC
&-1

I|F FIRST PARSS
.. FIRST TINE?

CHP
BEQ
TYPE

. RCT-117
;. BRANCH IF YES
,. TYPE RSCIZ STRING

BNE

689

S#SENDRD. et 42
689
. 699

1S NOT = -1

;. SET UP FOR TRRP RETURN

#DISPREG.
DI SPLRY

$PASS

,,;SAVE ERROR VECTOR
., SET UP ERROR VECTOR
;. SETUP FOR A HARDMARE SWICH REGISTER
.. AND R HARDWARE DISPLAY REGISTER
;;TRY TO REFERENCE HARDWPKE SKWR
;;BRANCH IF NO TIMEOUT TRAP OCCURRED

SSHREG. SWR

,.BRANCH IF NO

GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
ofuy2
.. ARE WE RUNNING UNDER XXDP/RCT?
BNE
70%
;.BRANCH |F YES
CHPB
SENV, #1
.. ARE WE RUNNING UNOER RPT?
BEQ
709
.. BRANCH IF YES

cnp

SKHR, #SHREG

;0:

MOVe

#1,SAUTOB

,,8295

BR
RSCIZ

689
.. GET OVER THE RSCI2
<CRLF)>X(ZM98B0 M9312 BOOT TERMR BKX(CRLF>

8¢

MOV
CLR

#BUF 1,
(RO)+

.CLR SI12ING 3UFFERS

#0CTBUF

SRERRVE(
82%

-(R6)
SRERRVEC

+HRVE WE CLEARED THE WHOLE
.BUFFER,NO.
GO BRCK
INITIALIZE ROM FOUND :NDICRTORS
INITIRLIZE ENTRY COUNTER FOR PUTHES SUB
. +CLERR SOME MORE LOCRTIONS

BNE
g;sm

0074 3y

SSTRAP, BTRAPVEC . TRAP VECTOR FOR TRAP (ALLS
8§340.
4 TRAPVE(+2, LEVEL 7
SPRSS
;. CLEAR THE PRSS COUNT
SENDCT, SEOPCT
., SETUP ENO-OF -PROGRAM COUNTER

MOV

000417

nov
MoV
CLR
MoV

659

SBTTL

000176

SEQ 0013

'I:(TW

00004
2

17?276

6498

001626

000001

PRAGE

.»SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUNO OR IT
.., EQUAL TO R "-1", SETUP FOR A SOF THARE SWITCH REGISTER.

000042

177360

16 01

o INITIRLIZE R FEW VECTORS

SBTTL
.. TYPE

177277

14-JUN-78

INITIARLIZE THE COMMON TARGS

000004
177432
1778426
177416

001500

000176
000174
000004

30A(1052)

qalg
BLT
(LR
(LR
JSR

MOV
nov

718
218
1

RO.
8$
SEROMF IN
SR TIMES
PC.
CLERR

»» SOF THARE SHITCH REG SELECTED?
.. BRANCH |F NO
,,GET SOFT-SWR SETTINGS

.. SET RUTO-MODE

iNDICRTOR

. SAVE CONTENTS OF LOCRTION 4
.+SET UP FOR POSSIBLE TRAP

013737

00000%
000004
000002
001114
000200

00332y
001312

177776

001302

2%:

39:

59:

007774
177062
79

001116
007760
000200

00332y

174000

003324

4s-

RSTART

001116

000126

(31

000202
001144

000504
007004

SBTTL

82,
ofF IRSTB.
#200.
79
8-2.
4s
RO.
CONF IN
RO.
ROMF IN
49
RO.
RO.
DEVFIN
$#200.,
RO
#174000.
5%
SRROMF
IN
69
PC.
SEOP

JSR

(R6)+,

PC.

TST
a#SPASS
SEOP
BNE
JSR
PC.
PC,
JSR
END OF PRSS ROUTINE

N
T

MoV
"oV
BITe
BEQ
4, 4
BNE
81S
BIS
BR
BIS
8IS
A0D
ROL
cMP
BNE
TST
BNE
JSR
BR

MOV

39
8y,

BR
ROD

TE TR

000402
062706
012637
012700

001116

RO,
1§
#1,

#166000

S#ROMF IN

I E T

001760
001762

000001

CHP
BNE
MOV

o8 165000

166000

001374
01273?

39
#165000.
(RO)+

020027

165000

BEQ
MoV
TST

SRERRVEC

ONTENTS = -1, OR TRAP
CPU _ROM NOT PLUGGED IN
RST RDORESS OF ROM SPACE
S INSTRUCTION TRAPS (PU RONM
HECKED ALL ROORESSES
N CONTINUE LOOP ING

APS OR LOW BYTE OF FIRST

NOT EQUAL -1 RSSUME ROM PRESENT
JUST RESTORE ERRUEL
CLERAN OFF PC, PSH

001744
001750
001752

165000

RO
SR TESTRO
oTESTAD

1777277

ALl ZE ROM FOUND

@TESTARD

SRROMF IN

SRTESTAD
SRTESTAD

NOROMS

CHECKS
PROMP

SEQTST

; IF NO CONTINUE CHECKING
.ARE THERE ANY ROMS RVAILRABLE
;IF YES 6O TO ROM TEST
;IF NO GO TEST NO ROMS
,GO TO END OF PRSS
;GO CALCULATE CHECKSUNMS
. ARE WE ON I1ST PASS
. IF NO SKIP PROCESS Of PRARAMETERS
, GO PROCESS ROM PRRAME TERS
.60 CHECK SEQUENCE OF DEVICE CODES

PR 0000000000003 030000380000230000220902020200223800222802282202092001
;XINCREMENT THE PARSS NUMBER (SPRSS)
- 3TYPE "END PRSS"
+XIF THERES R MONITOR GO TO IT
+BIF THERE ISN'T JUMP TO RSTART
;RIF 1T 1S DESIRED TO HAWE A BELL INDICATE THE "END OF PRSSTM LOCATION
. BSENDMG CAN BE CHANGED TO 7

00212«
00212v
002126
002132
002140

002142
002144
002146
002150
002152

000240
005267
042767

006327

003017
012737
000001
002142

SEOP
177012
100000

177004

SEOPCT

SENDCT

NOP
INC
8:(
DEC
WORD
BGT
MOV
WORD
SEOPCT

SPASS
#100000. SPARSS
:PCH

$OOARGN
:P(H,i(P(H

INDICRTOR

FIRST 8007
BYTE HRS BIT 7 SET
, 00 NOT SET ROM FOUND INDICATOR
; UNLESS., CONTENTS OF RDORESS
JEQUAL TO -2 (CONTINURTION ROM)
;4SET CONTINURTION ROM FOUND INDICRTOR
;4+SET ROM FOUND INDICRTOR
. +CONT
I NUE
;SET ROM FOUND INDICRTOR
;4+SET DEVICE ROM FOUND INDICRTOR
;UPDATE TEST RDORESS TO NEXT ROM
;UPDATE ROM FOUND INDICATOR
;HAVE CHECKED ALL THE ROMS

122737
001414
012700
005720

SEQ 0014

001726
00173
001736
0017%2

8
2
30R(1052)
PRGE 1 5
14-JUN-78
16.01
GET VALUE FOR SOFTHARE SWITCH REGISTER

67v
675
676
6?7
678

MACY11

(219880 19312 BOOT TERMR 8K
(2n9e8. P11
14-JUN-78 16: 00

. INCREMENT THE PASS NUMBER
..DON'T ALLOW R NEG
NUMBER

.. RESTORE

COUNTER

(219880 M9312 BOOT TERMR 8K
(zn9se P11
14-JUN-78 16 00

730
73
732
733
734
735
776
73?
738
739
70
TM
TM2
743
74y

002154
002160
002164
002170
002172
00217%
002176
002200
002202
002204
002204
002206
002210
002213
002220

104401
108401
013700
001405
000005
004710
000240

MACY11

002213
002210
00004
2

SENDAD

SDOAGN

377
042412
051501

000
042116
000123

14-JUN-78

END OF PRSS ROUTINE

SGET4Z

000240
000240

000137
002066
37?7
015
050040

30R(1052)

SRTNRD

SENULL
SENOMG

TYPE
TYPE
MOV

SDOAGN

RESET

JSR

PC. (RO)

NOP
NOP
NOP

JHP

o(P(C)+

WORD

RSTART

BYTE
. ASCIZ

*NO RONS TEST

PRGE

. SENOMG
- SENULL
ofu42, RO

BEQ

»THIS ROUTINE

16 01

StQ 0015

.. TYPE "END PRSS"
., TYPE R NULL CHRRACTER
,.GET MONITOR RDORESS

.. BRANCH IF NO MONITOR
;, CLERR THE WORLD

;.60 TO MONITOR

;. SAVE ROOM
;. FOR
.. RACT11
»» RETURN

-1.-1,0
.+ NULL CHRRACTER STRING
<15>(12)/END PRSS/

IS CALLED ONLY

IF NO ROMS WERE FOUND

.DURING SIZING
IT DOES A RERD OF ALL BOOTSTRAP ROM
. ADDRESSES AND COMPARES THE CONTENTS TO A KNOWN
-EXPECTED VALUE

012703
013704
121304
001406
011304

052737
004767
062703
022703
001773
022703
001770
022703
003353
000207

NOROMS
19

173000
002306

000100
001514

001110

00000Z
173024

MOV
MOV
CHPB
BEQ
MOV

BIS
JSR

CHP
8EQ

&NORONE .
PC.,
82,
R3
#173024,
29

BGT

ROD

cHP
BEQ
CHe

173224
174000

RTS

NODRTR

000777

#173000.
SANODRTAR
(R3),
28
(R3),
RY

WORD

$17322y,
28
#174000.

R3
RY4
RY

SR ROMERR
ERRHAN
R3
R3

777

»GET FIRST RODRESS TO BE RERO
.GET RDORESS OF EXPECTED VALUE
.+DOES RECIEVED VALUE EQUAL EXPECTED
. IF YES CONTINUE TESTING
. +GET BAD VALUE

+IF NO SET ERROR INDICATER
-REPORT ERROR

. +GET TO NEXT EVEN ROORESS

. +RT R VECTOR ROORESS?

,+BRANCH |F YES

.+AT A VECTOR ROORESS?
. +BRANCH IF YES
~HRVE RALL ROORESSES BEEN TESTED

. IF NG GO TEST THIS RODDRESS

. +RA HOLE LOOKS LIKE XXX?7?77

» CHECKSUM ROMS MODULE
. THIS ROUTINE DOES A CHECKSUM OF ALL ROMS PRESENT

012737
033737
001424
012737
012737
012737
004767
013703

000001
002524

002524
0o11te

165775
000000
165000
000152
165776

002622
002620
002616

CHECKS

MOV

B!T
BEQ

81,
SRROMCNT,
1S

SRROMCNT

INITIRLIZE RON COUNTER

MOV
JSR
MOV

#165000.
PC,
k165776,

S#LASTAD
o8 EXCROD

ofF IRSTA
CALSUM
R3

~SET UP LRST RDORESS TO BE SUMMEC
»SET UP EXCEPTION RDORESS

MOV
MOV

#165775,
#0.

SRRONMF IN

. 1S DIAGNOSTIC ROM PRESENT
- 1F NO GO CHECKSUHM BOOT ROMS

.SET UP FIRST ADORESS TO BE SunMeD
»GO CALCULATE CHECKSUN
,GET EXPECTED CHECKSUM

(ZM9880 M9312 BOOT TERMR 8K
(Zn9ss. P11
14-JUN-78 16 00

338

786
787

2BBERRET ko 283 8% MM
B
LR PR RS

791
792
793

002360
002362
002364
002372
002376
002408
002412
002420
002424

020304
001405
052737
004767
012737
012737
012737
012702
006137
033737
001412
004?67
011203
020304
001405
052737
00N 767
062737
062737
062737
062702
022737
001341
000207

000020
001374
173000
173024
1723175
173176
002524
002524

MRCY11

30R(1052)
14-JUN-78
END OF PRSS ROUTINE

001110
002616
002620
002622

001116

000062

000020
001306
000200
000200
000200
000200
174000

CHP
BEQ
BiS
JSR
MOV
MOV
MOV
MoV
ROL
BIT
BEQ
JSR

R3,
19
SCRCERR,
PC.

8tQ
8IS
JSR
RDD
ROD
ROD
RDD
NP
BNE

39
SCRCERR,
PC.
#200.
#200.
#200,
4200,
#174000.
29

MoV
cnp

001110
002616

002620
002622

002616

RTS

000000

ROMCNT

0
16:01

#173000,
§17302M,

8173175,
8173176,
SRROMCNT
SR ROMCNT,
39
PC.

(R2),
R3,

PRGE

17
R4

SEROMERR
ERRHAN
o8F IRSTA
o#EXCRDD
:%LRSTRD
IN
SRROMF
CALSUN
R3
RY

S#ROMERR
ERRHAN
&f#F IRSTA
SR EXCARDOD
SR LASTAD
R2
o#F IRSTR

StQ 0016

OMPARE CHECKSUMS
CHECKSUMS COMPRRE CONT INUE
ERROR SET INDICATER
P

T
T
T
T

UP FIRST RDORESS TO BE SUMMED
UP EXCEPTION RDORESS
UP LAST ROORESS TO BE SUMMED
ROORESS OF 600D DATA

S
F NO, 60 UPDATE TO NEXT ROM
YES 60 CALCULATE CHECKSUM
ET EXPECTED CHECKSUM
OMPRARE CHECKSUMS
. IF CHECKSUMS EQUAL CONTINUE

. |F ERROR SET INDICATER
. REPORT ERROR
- UPDATE F IRST RODRESS
»UPDRTE EXCEPTION ROORESS

:UPDATE LAST ADORESS
- UPDRTE RODORESS OF GOOD DRTA
-HRAVE RLL ROMS BEEN CHECKED
. 1F NO GO CHECKSUM NEXT ONE
. IF YES RETURN

. CARLCULATE CHECKSUMS MODULE
- THIS ROUTINE CALCULATES THE CRC16 CHECKSUM OF THE CONTENTS
.OF EVERY LOCATION EXCEPT THE EXCEPTION RDDRESS AND LAST RDDRESS
.OF EVERY ROM

010246
013700
005004
012005
012702
000241
102006

012701
0%0%01

050104
005302

003364
020037
001001
020037
101752
012602
000207

002616

000020

CALSUM
LOOP
CRCLOP

MOV
MOV
CLR
MOV

MOV
CLC
ROR
ROR

BvV(

R2.
S#F IRSTR
R4
(RO)+,
#16 .

MOV

#120001.

120001

BiC
BIS
DEC
BGT
CMP
BNE
TST
CHP

#120001,
Ry,
R2
CRCLOP
RO.
28
(RO)+
RO.

MOV
RTS

(SP)+,
PC

1§

002620
002622

BLOS

RS
R2

RY
RS

120001

BI1C

-(SP)

Ry,

LOOP

. SAVE R2
,GET STARTING RDDRESS
. INITIALIZE CRC WORD
.GET A BYTE
+SET BYTE COUNT
- THE NEXT NINE LINES
.00 THE MATH CRLCULRTIONS

R1
R1
RY
Ry

SREXCAROD

S&LASTRD
R2

P S NEXT RDORESS AN EXCEPTION RDORESS
o F NO TEST IT
o F YES SKIP RDORESS
H'?UE RALL LOCATIONS BEEN SUMMED

NO CONTINUE
RE STORE R2
IF

" IF YES RETURN

(Zn98B0 N9312 BOOT TERMR 8K
cznose P11
14-JUN-78 16 00
002616
002620
002622

MRCY11

000000
000000
000000

30R(1052)
14-JUN-78
END OF PRSS ROUTINE

FIRSTA
EXCROD
LASTARO

E
16 01

PAGE

stQ 0017

0
0

,PROCESS ROM PRARAMETERS MODULE
IF 1T IS THE
+THIS ROUTINE DETERMINES IF SIZING IS TO BE DONE
-MODULE WILL GET THE PRARAMETERS FROM THE DEVCOD AND FPF VAR
IF SIZING IS
-HODULES RANO ASSEMBLE MESSRGES TO BE OUTPUT
~NOT TO BE DONE THIS MODULE WILL TAKE THE PRRAMETERS RECEIVED
-AND COMPRARE THEM TO THE VALUES SUPPLIED IN THE ETABLE

105737
100424
004767
004767

42333323882R828

881

007530
004?767
032737
001403
004767
000512
008?767
010130
005237
000504
004767
012703
012704
062703
012402
000302
020213
001407
005714
001372
062737
004767
062703
005713
001355
012703
01270

000313
062704
021314

001157

PROMP

000256
000576

000460
000040

001110

001106
10%

000546
001112

001222
000002

000001
001022
000002

29
39

001110

001222
007432

000004

001410
005714
001372
000313
062737
004767

000002
000750

062703

000002

TST8
8MI
JSR
JSR
MESI
JSR
BIT
BEQ
JSR
BR
JSR

MES2
INC
BR

JSR
MOV

MOV
RDD
MOV

SKWAB
CHP
BEQ
TST
BNE
BiS
JSR
RDD
TST
BNE
MOV
MOV

SWAB
RDD
CHP
BEQ
TST
BNE

’$

PC.
SPFERR,
109
PC.
99
PC.

+IF BIT

IS CLERR SIZE
IF BIT IS SET DON'T SIZE
CALL DEVICE CODE MODULE
FORMAT PARAMETER MESSAGE

’

DEVCOD
PUTMES
PPF VAR
o#ROMERR

’
’

’

ERRHAN
PUTMES

’

SR MESSAG
9s
PC.
#BUF1,
#S0040.
'2'
R2

’

DEVCOD
R3
R4
R3
R2

’

(R3)

’

RAPTER1,
PC.
%2,
(R3)
29
#S00K0,
f8UF1-2,
(R3)
fy,
(R3),

SR ROMERR
ERRHAN
R3

’
’
’

GO GET PSEUDO POWER-FRAIL
WAS THERE RN ERR
IF NO GO FORMAT MESSAGE
IF YES GO REPORT MESSAGE

VECTOR RDORESS

FORMAT PSEUDO POMER-FRIL
RADDRESS MESSAGE
SET MESSAGE INDICATOR
GO TO EXIT

VECTOR

CALL GET DEVICE CODE MOOULE
GET BOARD DEVICE CODES
GET ETRBLE DEVICE CODE PRRAMETERS
GET TO BOARD DEVICE CODE
GET ETRBLE DEVICE COOE

REFORMAT ASCI
|

DO THE TWO DEVICE CODES COMPRRE

IF YES GET NEXT BORRD DEVICE COLE
IF NO HAVE WE CHECKED THE WHOLE ETRBLE
IF WE HAVEN'T CHECK NEXT ETRBLE ENTRY
IF WE HAVE THEN DEVICE CODE ON BORRD
DOES NOT
EXIST IN ETRBLE

UPDATE TO NEXT RDORESS

IF CONTENTS EQUALS ZERO WE'RE DONE
IF CONTENTS NO EQUAL ZERO CONTINUE
,GET BOARD DEVICE CODES
.GET ETRBLE DEVICE CODES
. FORMAT RSCI
|
.GET BOARD DEVICE COOE
.00 THE TWO DEVICE CODES COMPRRE
.1F YES GET NEXT ETR8LE DEVICE CODE
IF NO HRVE WE CHECKED ALL THE BORRD
’
’

R3
R4
RY
(RW)

’

BIS
JSR

(R3)
SAPTERZ,
PC,

SR ROMERR
ERRHAN

ROD

82,

SKAB

001110

SR SENVH
19
PC,
PC.

’

DEVICE CODES. IF NO CONTINUE
PUT ASCII IN RIGHT ORDER FOR OUTPUT
IF YES ETRBLE DEVICE CODE NOT
NOT ON BORRD

(ZM98B0 M9312Z BOOT TERMR 8K
cznoss P11
14-JUN-78 16 00

003026
003030
003032
003036
003082
003046
003050
003052

30A(1052)
14-JUN-78
END OF PRSS ROUTINE

005713

001355

004767
013704
013703
020403
001405
052737
004?767
013704
013703
020403
001%05
052737
004767
020207

F
16 01

PRGE

SEQ 0018

IF CONTENTS EQUAL

TST

BNE
JSR

000272
001212
007514

000004
000706
001216
007516

001110

000010
000660

001110

CHP
BEQ
8IS
JSR
MOV

MOV
CHP

BEQ
8IS
JSR
RTS

GO GET PSEUDO POMER-FRIL VECTOR RDDRESS

PPF VAR
RY
R3
R3

nov
NOV

SAPTER
3,
PC,
o#SCOU1,
ofBUF 242
RY,
99
RAPTERY,
PC.,
PC

ZERO-DONE

. IF CONTENTS NO EQUAL ZERO-CONTINUE
.GET ETRBLE PPFVA
.GET BOARD PPFVR
.00 THE TWO PRARAMETERS (OMPARE
. IF _YES CONTINUE
. SET APT ERROR INOICATOR
.60 TO ERROR ROUTINE
.GET ETRBLE DRTA
.GET BORRD DATA
.D0 THE THO PRRAMETER COMPARE

SR ROMERR
ERRHAN
RY
R3
R3

. IF YES THEN DONE
»SET APT ERROR INDICATOR
.GO TO ERROR ROUTINE

SRROMERR
ERRHAN

.GET DEVICE CODES MODULE
»THIS SUBROUTINE LOCATES ERCH DEVICE CODE

. ADDRESS

IS STORED

ANO PASSES 1T AND THE
CALLING ROUTINE
IN THIS FORMAT

IT WRS FOUND BRCK TO THE

IN BUFFER

BUF1

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

CODE

ST ST N

.DRTA

IN WHICH

RDODRESS OF NTH DEVICE
DEVICE CODE

CODE

898
899
900
901
902
903

MRCY11

. +CONTINURTION ROM DATA IS STORED

IN "BUF!"' RS FOLLOWS

.+
PR
, +
, 4

CONTINUATION CHIP IDENTIFIER (ALHRYS R +1)
DEVICE CODE (PREVIOUS ROM'S DEVICE CODE.OR

-1

tLLEGAL

ROM)

PR
. 4
, 4

I. F

003114
003120
003124
003130
003132
003140

003144
003160
003154
003162
003164
003170

012700
012701
030137
001411
012737

013720
017720
013737
006101
030167
001007

00743y
000001
001116

165774
003324
000154
003326
001114
006636

003324

00332y

DIAGNOSTIC ROM PRESENT IT WILL BE THE FIRST DEVICE CODE
THERE IS ROOM FOR UP TO 12 DEVICE CODES IN TEMP
RO
#BUF1,
MOV
DEVCOD
R1
TIRLIZE ROM POINTER
%1,
MoV
IN
R1,
SRROMF
DIRAGNOSTIC ROM PRESENT
BIT
19
NO GO TEST BOOT ROMS
BEQ
T ADORESS OF DIRG. ROM DEVICE CODE
MOV
8165774,
SR TESTAD
(RO)+
. STORE ROORESS OF DEVICE CODE
MOV
S# TESTRD,
(RO)+
. STORE DEVICE CODE
MoV
oTESTRO,
. CLR DRTA TYPE FLAG
o# DAF
L ARG
CLR
.GET RDDRESS OF FIRST BOOT ROM
SR TESTARD
MOV
19
SF IRSTH,
~UPDRTE POINTER TO NEXT ROM
R1
ROL
.+1S DEVICE ROM PRESENT
R1,
DEVFIN
BIT
39
. |F YES GO GET PRRAMETERS
4s
BNE

CZMIRBO M9312 BOOT TERMR 8K
cZnoes P11
14-JUN-78 16 00

003172
003176
003204
003206
003210
003214
003216
003222
003226

003320
003322

004?67
062737
006101
000441
005737
001010
013720
017720
062737
0004 24
013702
067737
013703
0n2702
0% 2703
160203
005703
001406
162703
006101
004?767
000770
005137
023727
002721
000207

003324
003326

000000
000000

00323%
003236
003242
003250
003254
003260
003264
003266
003270
003272
003276
003300
00330
003306
003312

005450
000200

MACY11

003324
4s

003326

003324
000076
000002
003324
000056
003324
170177
170177

30AR(1052)
14-JUN-78
END OF PRSS ROUTINE

MoV
MoV
A0D

00332%

003324

000200

BIC
BIC
SuB
TST
BEQ
Sus
ROL

005370
003324

BR
MOV
ROO
MOV

003326

JSR
ROD
ROL
BR
TST
BNE

174000

8%
9

TESTRD
DRFLAG

JSR
BR
CON
CHP
BLT
RTS

PC.

#200.

G
16 01

2
PRGE 20

CON1

SR TESTRD,
oTESTRO.
82,

8%
o TESTRD,
oTESTRD,
SR TESTRO,
#1701722,
#1701772,
R2,

R3
8$
#200.
PC.

SR TESTARD

(RO)+
(RO)+
S8 TESTAD

R2
SR TESTAD
R3
R2
R3
R3
R3

»+CHECK FOR CONTINURTION CHIP
. IF NO UPDATE TEST ADORESS
;UPDATE POINTER TO NEXT ROM
;GO SEE IF ALL ROM CHECKED
;IF DATRFLAG=0 THEN DATA IS DEVICE CODE
;IF DATRFLAG=1 THE DATR IS OFFSET TO NEX
;STORE RADORESS OF DEVICE (ODE
;STORE DEVICE CODE
-UPDRTE TEST ROORESS
;GET OVER SOME (OOt
;SRVE OLD TEST RDORESS
-UPDATE TO NEW TEST RODRESS
;GET THE NEW RDORESS
,4SRVE ONLY BITS 7.8.9,10,
11
++IN R3 LSO
» CALCULATE DISTANCE BETWEEN
ROD
IS RI EQUAL TO O
. IF YES THEN DONE
. IF NO THEN MOVE POINTER
.ONE BIT FOR EVERY 200

»+CHECK FOR CONTINURTION CHIP

CON2

o# DAF
L ARG
o# TESTRD.
39

Stq@ 0019

#174000

» CHANGE DATR FLAG TO RIGHT DATR TYPE
»HAVE WE CHECKED ALL THE ROM
. 1F NO CONTINUE
. 1F

YES RETURN

O
O

»GET PSEUDO POWER-FAIL VECTOR ADDRESS ROUTINE
.THIS SUBROUTINE TESTS LOCATIONS 173024 AND 173224

TO DETERMINE
+HHICH VECTOR WILL BE USED IF POMER-FRIL OPTION ENRBLED ON THE
- BOARD
THE OPTION MUST Bt ENRBLED AND AT LEARST ONE RDDRESS
»SHITCH MUST BE "ON" OR AN ERROR WILL BE DETECTED
.THE DATA WILL BE RETURNED IN "BUFZ" IN THE FORMART

BUF2

’

032737
001414
012767
004?767
012737

013737
000823
032737
001414

012767
004767
012737
013737
000403
052737
000207

000777

173024

003370
005366
173024
173024

006452

000777

173224

003430
005340

0oo6M12

PPFVAR

007514
007516

173224
173224

007514
007516

000040

001110

BIT
BEQ
MOV
JSR
MOV
MOV
BR
BIT
BEQ
MOV

JSR

28:
3.

MOV
MOV
BR

8IS
RTS

PSEUDO POKER-FRIL

VECTOR RODRESS

CONTENTS OF VECTOR RDDRESS
%777
19

#$18,

ok 173024

RETURN

PC,
HOL CK1
£173024,

ok 173024,

++SET UP AN RLTERNATE RETURN
o#BUF
2
SRBUF 242
oR173224

HOL (K2
PC,
£17322M,
17322y,
3
#PFERR,
PC

.TEST IF LOCATION 173024 SELECTED
» IF NOT THEN GO TEST LOCATION 173224

oRBUF
2
ORBUF 2+2

SKROMERR

. +CHECK FOR R HOLE
»IF 1T IS THEN STORE RDORESS
. STORE CONTENTS OF LOCRTION 173024

. GO TO RETURN
+TEST {F LOCRTION 173224 SELECTED
. IF NOT THEN SET ERROR INOICRTOR
.+SET UP AN RLTERNATE RETURN
. +CHECK FOR R HOLE
IF 1T IS THEN STORE RODRESS
»STORE CONTENTS OF VECTOR
.GET QVER ERROR
+SET ERROR INDICRTOR

(Zn98B0 M9312 BOOT TERMR 8K
(Zn9es P11
14-JUN-78 16 00
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022

1023
1024
1025

1026

1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038

1039

1040
1041
1042
1043
1044
1085
1046
1047
1048

1049

HMACY11

30R(1052)
14-JUN-78
END OF PASS ROUTINE

16 01

PRAGE 21

Stqe 0020

»PUT MESSAGE IN BUFFER ROUTINE
. THIS SUBROUTINE FORMATS THE PARAMETER AND POWER-FAIL

017604
005737
001110

000000
003770

005237
012703
022713
001012
012705
004?767
000015
062703
000313
112324
112324
012705
004767
000015
012701
012702
012767
012767
11272%
11272y

004767

062713
004767

004767
1
00001
112724
112724
112724
062713

004767
000011

MOV
TST
BNE

d(R6).
ofTIMES
38

003770
007434
165774

INC
MOV

006512
000662

MOV
JSR

R TIMES
#BUF1,
#165774,
19
#DRHERD,
PC.

PUTHES

CHP
BNE
(R

000002

RDD

006533
000636

000001
012040
003552
003736
000015
000012
005222
000004
000732
000560

006254
006264

000040
000040
000040
000002
000700

112724
11272
112724
11272
062703

MOV

JSR
(R

MOV
MOV
MOV
MOV

MOVB

HOVB
JSR
RDD
JSR
JSR
HT
Hove
HOVB
nove
RDD
JSR
JSR
HT
HOVB
HOV8
MOVB
HMOvB
RDO

SWAB

112324
112324

012703
012705
004767
000015

SWAB
Move
MOVB

007514
006670
000454

HOVB
MOVB
BR

MoV
MOV
JSR
(R

R3
(R3)
RS
FILBUF
R3

%2,
(R3)
(R3)+,
(R3)+,
$BRHERD.
PC.

(RY)+
(RY)+
RS
FILBUF

81,
R1
#MESTRB.

%29,

859,

#CR,
fLF,
PC.
'ql
PC.
P(I

RETURN

FINISH

(R4)+
(RY)+

MESSRGES

GET MESSAGE BUFFER RODRESS
S THIS FIRST TINE THROUGH
NOT FIRST TIMC THEN FORMAT POWERDATR BUFFER RODRESS
DIRGNOSTIC ROM PRESENT

NOT DON'T FORMRT DIRG. ROM MESSAGE
IT IS GET DIRG. ROM MESSAGE HERDER
0 PUT HERDER IN MESSRGE BUFFER
. SKIP OVER RDORESS OF RSCI|
. FORMAT ARSC!I FOR MESSRGE
+PUT ARSCII IN MESSAGE BUFFER
.GO PUT BOOT ROM HERDER

IN MESS

RUF

. +POINT TO DIRGNOSTIC ROM
»+POINT TO MSG TRBLE
.+SET UP AN ALTERNRTE RETURN
»4SET UP ANOTHER ALTERNATE RETURN
.PUT R CR/LF HERE

(R3)
0CRDD
FILBUF

. +FIND THE ROM TYPE
»GET FIRST ENTRY POINT
. GO CONVERT OCTRL TO RSCIHI
.60 PUT ENTRY POINT IN MESSAGE BUF

#40.
#40.
#40.
82,
PC.
PC.

(RY)+
(RY)+
(R4)+
(R3)
0CARDD
FILBUF

»GET SECOND ENTRY POINT
. GO CONVERT OCTAL TO RSCII
. GO PUT ENTRY POINT IN MESSAGE

8$40.
8$40.
#40.

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

#HT,
82,
(R

(R3)+,
(R3)+,
28
2,
$BUF
$PFHERD.
PC.

ROMTYP

(RY)+
(RY)+

R3
R5

FILBUF

.PUT

THB

BUF

IN HERE

.UPDATE DRTR BUFFER RDDRESS
.FORMAT RSC!| FOR MESSAGE
MOV RSCII TO MES1
. GO BRCK TO START OF LOOP
.GET DRTR BUFFER RODRESS
.GET POWER-FRIL HERDER RODRESS
. GO PUT POWER-FRIL HERDER IN MESSAGE BUF

]

CZM98B0 19312 BOOT TERMR 8K
(Znoss P11
14-JUN-78 16 00
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
108y
1085
1086
1087
1088
1089
1090
1091
1092
1093

—~ OV NOWNEWN~-O

b pubb gl ub guth guib g
o gl s o i D g

S
o

el oud b gub oub
gud G B G
b

b
D

b ud oud
b b b

b
b

1103

003710
003714
003716
003722
003726
003730
00373%
003736
003742
003746
003750
003756
003760
003762
003766
003770

022703
001410
004?767
004767
000011

062703
000765
112724
112724
105024
017667
104401
000000
062716
000207
000000

104411
012704
005237
032777
001402
104401
006506
032777
001131
013700
013767

012701
000241
006000
103403
062701
000773
011105
008767
000015
032767
001063
032767
001411
016767
016705
004767
000000

MACY11

007520

30A(1052)
14-JUN-78
END OF PASS ROUTINE
4$

000606
0004 34

JSR
JSR

000002

000015
000012
000000

cne
BEQ

CLRB

000002
69

000002

HT
A00
BR
nove
HOVB

TIMES

MOV
TYPE
WORD
ADD
RTS
0

16 0t

2
PAGE 22

020000

001110
001110
004 334

ERRHAN-

INC

BIT
8tQ

175072

175056

000236

000002
39

000272
000040

175010

003600

175000

005714
005704
000232

000010

SAVREG
MoV

TYPE
BELL
BIT
BNE
MOV
MOV
MOV
CLC
ROR
8CS
RDD
B8R
MOV

JSR
CR
BIT
BNE
BIT
8EQ
HOV

139

MOV
JSR
WORD

.ARE WE DONE
. IF YES THEN GO RETURN
. GO CONVERT OCTAL TO ARSCII

RBUF 24y,
59

PC,
PC.

0OCARDO
FI1LBUF

%2,
4s
#CR,
SLF,

8(R6).

.PUT ZERO TER’IINATOR AT END Of MESSRGE
»GET MESSRGF BUFFER RDDRESS

O
82,
PC

(R6)

»GEl OVER MESSAGE

(RY)+

. ERROR HANDLER ROUTINE
»THIS SUBROUTINE FORMARTS THE ERROR MESSRGES THE
. OUT

010230
001120
002000

SEQ 0021

RERRMSG,
SRERRCNT
#BI1T10,
19

#81T13,
109
SR ROMERR,
SAROMERR,
SEHERDT,
RO
39
12,
23
(R1),
PC.

#3600,
149
ARGZ,
ARG,
PC.

ROMERR

139
RS
F1LBUF

THEM

» INCREMENT
.BELL ON ERROR
.BRANCH IF NO

OSHR

. INHIB!T ERROR

.GET ERROR COOE
. SAVE ERROR CODE FOR APT
.GET ERROR HERDER TRBLE
,C-BIT USED TO STOP STEPPING THROUGH TR8
.ROTATE ERROR COOES
.1F C-BIT SET STOP STEPPING
+IF C-BIT CLERR STEP TO NEXT HEROER
. GO STEP
~PUT HERDER RODRESS IN REGISTER
»GO PUT HERDER IN ERROR MESSAGE BUF

99
R1

RS
FILBUF
ROMERR

TYPES

BUFFER RDDRESS

OSHR

#PFERR,

. UPDRTE DATA BUFFER RDDRESS
. GO BACK TO START GF LOOP
,PUT R CR/LF RT END Of MESSRGE

ERROR COUNTER

TYPEOUT

+41S IT A "PPFVYRR" ERROR?
. +BRANCH IF YES
++IS IT R "SEQTST" ERROR?
- +BRANCH IF NO
»+PUT #CR OR BHT AT 139
- +ARG1 CONTRINS RDR
OF MSG
. +PUT DRTR INTO BUFFER
» +CONTRINS CR OR HT

(Zn9880 19312 BOOT TERMR 8K

(Zmoss. P11
1122

004132

14-JUN-78 16 00
000446

1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
113v

00%13w
004142
O00si8s8
004152
004158
004160
004168
00%166
004170
004172
004176
004200

032737
00142%
032737
001415
(013700
012701
000241
006000
103403
062701
000773
112124

1136

004208

000421

1138

004210

112324

1135

1137

00%202

004206

000023

001110

000020

001110

112324

000%16
016603

000006

1143
1184
1146

004230
004232
008236

000011
016603
004767

000010
000162

1147

004246

000011

114

004242

1148

004280

1150
1151
1162
1163

004260
OOM268
004270
004272

1149

1154
1155

1156
1157

1168
1159
1160
1161

1162

008288

004276
008300

008302
004308

008310
008312
004320
004322

008328

1163
1164

004330
004332

1167
1168

004338
004336

11656
1166

1169
1170
1171
1172
1173
117%
1176
1176
1177

00MM0
Q082
00sIM&
00N N6
004360
004362
008354
004356
004360

004?67
004767

008?67

112724

000000
174666

000000
004?67

010230

032777
001401
(000000

005037

104412
000207
006771
006735

007027
007105
007161
007205
007263
007341
012076
012155
012235

000012

000544
9

000540
100000

001110

11§
174564

109

128.

EHERDOT

J
16.01

8IT
BEQ
BIT
BEQ
MOV
MoV
CLC
ROR
8CS
ADD
BR
MOVB

823,
14
#20.
69
SRROMCNT,
SROMNUN,

MOVB

(R3)+,

HOVB

HOVB
BR
MOV

JSR
JSR

HT
MOV

000114

000015

006767
001405
004767
010230
000000

000200
000132

112724

11272

14$

000002

112124

14-JUN-78

END OF PRSS ROUTINE

008212
004218

004220
00%22¢

30A(1052)

002524
006474

1139
1140

1141
1142

HACY11

JSR
JSR
HT
HovBe
HOVB
HMOVB
TST
BEQ
JSR
ERRMSG
WORD
HALT
JSR
ERRMSG
BIT
BEQ
HALT

CLR

RESREG
RTS

RO
5%
%2,
4s
(R1)+,

(R1)+,

2
PRAGE 23

SR ROMERR

o#ROMERR
xJ
R1

R1
(RY)+
(RY)+

(R3)+,

(RY4)+

8¢
6(R6),

PC.
PC.,

(RY)+

StQ 0022
.4

,41S ERROR R CRC. RPTER1 OR RPTER2
,1F NO GO FORMRT RPTER3. RPTERY
, IS ERROR CRC
. IF NO FORMAT APTER1, RAPTER2
»GET ROM COUNTER
.GET ROM NUMBER TRBLE
,C-BIT USED TO STOP STEPPING THROUGH TR8
-ROTATE ROM NUMBER
.IF C-BIT SET STOP STEPPING
LIF C-BIT CLERR STEP TO NEXT HERDER
. CONTINUE STEPPING
PUT ROM NUMBER IN ERROR MESSAGE BUF
.,GO TO END OF ROUTINE

,PUT BRD DEVICE CODE IN ERROR MESS
.GO TO END OF ROUTINE
»GET SAVED EXPECTED VALUE

0CARSC
FILBUF

. GO COVERT OCTRL TO RSCII
GO PUT DATR IN ERROR MESSRGE BUF

10(R6).
PC,
FC.,

R3
0CASC

.GET SAVED RECEIVED VALUE
. GO COVERT OCTRL TO ASCI!|

#CR.

(RY)+

,PUT CR/LF AT ENC OF MESSAGE

#0.
SENV
119
PC.

(RY)+
SATY1

.PUT TERMINATOR AT END OF MESSRGE
.TST IF ON RPT
. |F NO BRANCH
. GO REPORT ERROR

PC.

SATY3

. THEN HALT
. 1F NOT ON RPT JUST REPORT ERROR

#81T15,
129

dSUR

fLF.

F ILBUF
(RY)+

SR ROMERR

. GO PUT DRTR IN ERROR MESSAGE BUFFER

. 1S HALT ON ERROR SET
,IF NO SKIP OVER HALT

. CLERR ERROR FLRGS

ERIMSG
ER2ZNMSG

ER3INSG
ERYMSG
CRCMSG
PFMSG
NOROMM
SEQMSG
ERMES1
ERMES2
ERMES3

.+
., 4
.+
4+

BUF

(Zn98B0 M9312 BOOT TERMR 8K
(Znoss P11
14-JUN-78 16 00
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1N
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204

MACY11

30R(1052)
14-JUN-78
END OF PRSS ROUTINE

16 01

+FILL BUFFER ROUTINE
- THIS SUBROUTINE FILLS THE
» CHARACTERS.

004362
004 370
004 372
00% 376
004400
004404
004410
004412
004414
004416
004422

022776
001003
112724
000404
112724
112724
112524
105715
001375
062716
000207

000011

000000

FILBUF.

000011
000015
000012

19
29

000002

CHP
BNE
Hove
BR
HOVe
HOVB
HOVB
TSTB
BNE
RDD
RTS

&HT,
19
fHT,
29
fCR.
8LF,
(R5)+,
(R5)
29
%2,

2
PAGE 24

MESSAGE BUFFER WILL

StQ 0023

ASCI!
| S FIRST CHARACTER R TAB OR (R
| F CR THEN GO PUT CR/LF IN BUFFER
| F TAB THEN PUT TR8 IN BUFFER

9(R6)
(RY)+

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

G ET OVER NEXT LINE
TO BUFFER

M OV CR/LF
’
’
’

(R6)

U T A CHARACTER

IN MESSAGE BUFFER

! S NEXT CHARACTER ZERO
J F NOT PUT IT IN MESSAGE

BUFFER ANO GET
UPDATE RETURN POINTER TO GET OVER CHRRR

» THEN RETURN

,OCTAL TO RSCI| CONVERSION ROUTINE
. THIS SUBROUTINE TRAKES A SIXTEEN BIT OCTAL NUMBER AND
. CONVERTS IT TO 6 RSCII CHRRACTERS
007520

OCRSC

007520
004526

MOV
MOV

CLC
ROL

004526
000060

007526
007520
004526

MOV
CLR
CLR
CLR
CLR

ROL

81SB
INC
CHP
BNE
MOV
RTS
ROL
ROLB
ROL

004526
004526
TEMP

ROLB
ROL
ROLB
BR
0

$0CTBUF,
(RO)+
(RO)+
(RO)+
(RO)+
$0CTBUF,
R3.

SR TEMP
(RO)
#60.
RO
RO,
29
#0CTBUF,
PC

SR TENP
(RO)

SR TEMP
(RO)
SR TENP
(RO)
19

.GET BUFFER RDDRESS
. CLEAR BUFFER

.GET BUFFER RODRESS
-GET OCTRL NUMBER
. CLEAR CARRY
.ROTATE BIT INTO CARRY BIT
-ROTATE CARRY BIT INTO BUFFER
+MRKE IT RSCI|
- UPDATE BUFFER ROORESS
+HAVE WE CONVERTED ALL THE NUMBER
. 1F NO CONTINUE
. IF YES PUT BUFFER ROORESS IN REGISTER
- RETURN
+ROTATE BIT INTO CARRY BIT
-ROTATE CRRRY BIT INTO BUFFER

oRTEMP

(RO)

#O0CTBUF
+6

’

"GO TO START OF LOOP

;THIS ROUTINE IS CALLED BY THE PUT MESSRGE ROUTINE TO GET THE RIGHT
+VALUE IN R3 SO THE OCTAL TO ASCII ROUTINE GETS THE RIGHT NUMBER

CZM9880 M9312 BOOT TERMR 8K
14-JUN-78 16 00
@41 P11
123v
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249

004530
004532
00453y
004540
004542

010346
011303
004767
012603
000207

MACY11

30A(1052)

14-JUN-78

END OF PRSS ROUTINE
OCRDO

MOV
MoV

R3,
(R3),

MoV
RTS

(R6)+,
PC

JSR

177664

SBTTL

16.01

PRGE 25

PC.

SEQ 0024

-(R6)
R3
OCARSC

,SAVE THE VALUE Of R3
.PUT THE DRTR TO BE CONVERTED

;G0 CONVERT OCTAL TO RSCHI

IN R3

,RESTORE R3
. RETURN

TYPE ROUTINE

PR 388300000000000008328:0000030000330008220000080322300808030080080084%¢
. SROUTINE TO TYPE ASCIZ MESSAGE
MESSAGE MUST TERMINATE WITH A O BYTE
»3THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS RFTER R LINE FEED
- ENOTE1:
SNULL CONTARINS THE CHARRCTER TO BE USED RS THE FILLER CHARRCTER

»INOTE2
,:NOTES

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED
SFILLC CONTRINS THE CHRRACTER TO FILL RFTER

. XCALL
»X¥1) USING R TRAP

'xOR

TYPE

P
X
I*

TYPE
MESROR

1‘

105767
100002

000000
000430
010046
017600
122767
001011
132767
001%05
010067
008767
000000
132767

001003

STYPE

000265

000002
000001

174364

000100

174355

000004
000234

000040

174333

619
629

000002

609
39

000011

000200

000130

TSTB

BPL
HALT
BR
MOV
MOV
CHPB

BNE
B!T8
BEQ
MOV
JSR
.WORD
BITB
BNE
HOVB
BNE
TST
MOV
ROD
RT!
CAPB
BEQ

cnPB

BNE
TST
TYPE
SCRLF
CLRB

INSTRUCTION

» MESADR

.. MESADR

STPFLG

,. 1S THERE R TERMINAL?

#APTCSUP, SENVM
609
(RO)+, -(SP)
4s

;. RPT CONSOLE SUPPRESSED
.. YES, SKIP TYPE OUT
.. PUSH CHRRACTER TO BE TYPED ONTO STRCK
.+BR IF IT ISN'T THE TERMIN TOR

(SP)+, R0
%2, (SP)

.. RESTORE RO
.- ADJUST RETURN PC

IS FIRST RADORESS OF AN RSC1Z STRING

.BR IF YES
,»HALT HERE IF NO TERMINAL
39
. LERVE
RQ, - (SP)
;. SAVE RO
@2(SP), RO
.. GET RDDRESS OF RSC1Z STRING
SRPTENV, SENV
;.RUNNING IN APT MODE
629
.+ NO.
GO CHECK FOR RPT CONSOLE
#APTSPOOL., SENVM ;. SPOOL MESSRGE TO APT
629
;. NO, GO CHECK FOR CONSOLE
RO, 619
;. SETUP MESSRGE RODRESS FOR RPT
PC, SATY3
;. SPOOL MESSAGE TO APT
O
.- MESSAGE ROORESS

(SP)+

#HT, (SP)
8%

SCRLF., (SP)
5%
(SP)+

SCHARCNT

.. |F TERMINATOR POP
. » RETURN
»BRANCH

IT OFF

(HT)

.. BRANCH |F NOT <CRLF>
. POP
C(CRYCLF)> EQUIV
.. TYPE R CR AND LF

»» CLEAR CHRRRCTER COUNT

THE STRCK

(ZM9880 M9312 BOOT TERMR 8K
(Zmn98s. P11
14-JUN-78 16 00
1290
1291
1292
1293

004672
00467%
004700
004 70M
004706

000755
004767
126726
001350
016746

008?712
004716
004?720
004724
004?730

105366
002770
004767
105367
000770

MACY11

000056
000130

5%
69

000120
000001

000032
000072

B8R

000040
000014
000007

PC.STYPEC
SFILLC, (SP)+
29
SNULL,
- (SP)

DECB
BLT
JSR
DECB

1(SP)
69
PC, STYPEC
SCHARCNT

B8R

000052

000002
000015

105067
000406
122766
001402
105227
000000
000207

000014
000012

000036
000002

000002

000403
112767

880'0

F3RE

EERER

1337

010046
010146
106767
001450
122767
001031

S CHARRCTER
FOR FILLER CHARS ?
T NEXT CHAR
tLER CHARS. NEEDED
HAR.

NEED TO BE TYPED?
OP THE NULL OFF Of STACK

TRB PROCESSOR

HMOVB

TST

(SP)+

JSR
8178
BNE

BR
TSTB
8PL
HOVB
CMPB
BNE

. (SP)

PC., STYPEC
87, SCHRRCNT
9s
29
o3 TPS
STYPEC
2(SP), @5TPB
#CR. 2(SP)
19

SCHARCNT

.. REPLACE TRB WITH SPACE
.. TYPE R SPRCE
,.BRANCH IF NOT RT
;. TRB STOP
.. POP SPRCE OFF STRCK
;. GET NEXT CHARACTER
,.WAIT UNTIL PRINTER IS RERDY

;. LORD CHAR TO BE TYPED INTO DRTR REG
.. IS CHARACTER R CARRIAGE RETURN?
.+ BRANCH IF NO
,;Ei?}-(LERR CHARACTER

COUNT

STPS:

177564

.. TTY PRINTER STRTUS REG

(12>

»+LINEFEED

.SBTTL

. HORD

. HORD
.BYTE
.BYTE
. BYTE
.BYTE
. ASCI1
. ASCII

.RSC1Z

177566
O
2
12
O
"7
<15

;1S CHARRCTER R LINE FEED?
. »BRANCH IF YES
»» COUNT THE CHRRRCTER
;» CHARACTER COUNT STORAGE
ROORESS

;. TTY PRINTER BUFFER REG RDDRESS
;- CONTRINS NULL CHARARCTER FOR FILLS
;; CONTRINS & OF FILLER CHARRCTERS REQUIRED
;s INSERT FILL CHARS. RAFTER R "LINE FEED"
;. "TERHMINT AVRILABLE" FLRG (B1T<O07>=0=YES)
;. QUESTION MARK
»» CARRAIGE RETURN

APT COMMUNICATIONS ROUTINE

PR 333300030803 003000800:920000880020092000022809000¢02922000032982¢¢8F

000001
000001

000236
000226

$ATY!:
SATY3:

000001

000220

:g}¥2:

174050

t
AT T
;. IF NO 6
;

STYPEX
fLF, 2(SP)
STYPEX
(PC)+
O
PC

SLF:

000001

.. GET NEXT CHARACTER

BR
19
cnPB
BEQ
INCB
SCHARCNT:
. HORD
STYPEX: RTS

$TPB:
SNULL:
SFILLS:
SFILLC:
STPFLG:
$QUESSCRLF:

000206

SEQ 0025

’9

CLR8B

177564
177566
000
002
012
000
Q7?7
015
000012

112767
112767

STYPEC

000044

116677
122766

001003

2
PRAGE 26

JSR
CHPB
BNE
MoV

+HOR
I ZONTRL

112716
004767
132767
001372
005726
000724
105777
100375

n
16.01

30A(1052)
1N-JUN-78
TYPE ROUTINE

MOVB
MOVB
BR
MOVB

#1,9FFLG
81, 94LG
SATY(
#1,8FFLG

;.70 REPORT FATAL ERROR
.. 70 TYPE R MESSAGE

MOV
MOV
TST8

RO.-(SP)
R1,-(SP)
SHFLG

;;PUSH RO
ON STACK
;. PUSH R1
STRCK
.. SHOULD TYPE R MESSRGE"?

CHPB
BNE

SAPTENV. SENV
39

.. OPERATING UNDER RPT?
.. |F NOT
BR

»+» 7O ONLY REPORT FATAL ERROR

(Zn9880 M931Z2 BOOT TERMR 8K
P11
znes
14-JUN-78 16. 00

1346
1347
1348
149
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
137%

005110
005116

005120
005124
005132
005136

005140
005144
0051%6

005150
005154
005156

105767
001416
005767
001413
005767
001375
017667
062766
005267

105067
105067
106067
012601
012600
000207

1378

1376
1377
1378
1379
1380
1381
1382
1383
1384

539393
¥ 92993 REY

132767
001425
017600
062766
005767
001375
010067
105720
001376
166700
006200
010067
012767
00013
017667
062766
016746
004?767
000000

MACY11

000100

174041

000004
000002
174000

000004

174006

005314

173772
000004
000004
000002
172564
177326

19
RO, SHSGAD

sus

000016
00000u

118

173676
173670
000004

..PUT MS6 RDDR

IN JSR L INKRGE

;. BUMP RETURN RDDRESS
,»PUSH 1772776 ON STRCK
.. CALL TYPE MACRO

.. SHOULD REPORT FRTAL ERROR?
.. |F NOT:
BR
.. RUNNING UNDER APT?
;. \F NOT:
BR

MOV

Q4 (SP), SFATAL

.. GET ERROR &

INC

SMSGTYPE

;. TELL RPT TO TRAKE ERROR
;. CLERR FRTAL FLRG

TST

SMSGTYPE

82,4(SP)

CLRB
CLRB
CLRB

SFFLG
SLFLG
SMFLG

(SP)+,R1

(SP)+, RO

RTS

SMFLG:
SLFLG:
SFFLG:

.BYTE
.BYTE
.BYTE

SBTTL

TTY

. EVEN
APTS1Z2E=200
AP TENV=001
RPTSPOOL=100
RPTCSUP=040

O
O
O

»»FINISHED LRST MESSRGE?

;. BUMP RETURN RDOR

.. CLERR LOG FLRG
.. CLERR MESSAGE FLAG
..POP STRACK

;. POP STRCK
.. RETURN

INTO R1

INTO RO

. .MESSG FLRG
.. LOG FLAG
.. FATAL FLRG

INPUT ROUTIN

30220000000 0000000000002000000200000
0000020000000 202003090020228¢25¢

$TKS
$TKB
.ENABL

173562

82, 4(SP)
177776.-(SP)
PC.STYPE

;. TELL RPT TO TRKE MSG.

SFFLG
129
SENV
129

MOV

000176

;. PUT LENGTH IN MRILBOX

;. GET MESSRGE LNGTH IN WORDS

TSTB
8EQ
TST
BEQ

MOV

RO, SMSGLGT
4 (SP), NS

ROD

129:

;. SUB START OF MESSAGE

g:,iflSGTYPE

WORD

173724

SMSGRO, RO

22\1
RDD
MOV
JSR

.. GET MESSAGE RODR.
;,BUMP RETURN RDOR.
;;SEE IF DONE W/ LAST XMISSION?

520)4

MOV

108

SEQ 0026

;. IF NOT:
WAIT
;.PUT RODR IN MAILBOX
;.FIND END OF MESSAGE

ASR

MOV

000062

000004
000002
17 3654
000020
000013
000006

4 (SP),RO
82,4¢SP)
SMSGTYPE

BNE
nov
;'S‘EB

173746

2
PRGE 27

SAPTSPOOL
., SENVA ;. SHOULD SPOOL MESSAGES?
39
;. IF NOT:
BR

nov
RDD
TST

173776

177560
177562

022767

BITB
BEQ

000
000
000
005310
000200
000001
000100
000040

005310
005312

N
30A(1052)
14-JUN-78
16.01
APT COMMUNICATIONS ROUTINE

. WORD
. HORD
LSB

177560
177562

.. TTY KBD STATUS
.. TTY KBO BUFFER

PR 330030080080 300000808800008 3320020003 0233020000 002822000088 888844
. BSOF THARE SWITCH REGISTER CHANGE ROUT INE
;BSROUTINE IS ENTERED FRQOM THE TRAP HANDLER, AND WILL
SSERVICE THE TEST FOR CHANGE IN SOFTWRRE SWITCH REGISTER TRAP CALL
. BHHEN OPERATING IN TTY FLARG MOOE

SCKSWR

CHP

ESHREG. SR

.. 1S THE SOFT-SWR SELECTED?

380 M9312 8007 TERMR 8K
noes P11
18-JUN-78 16: 00
1802

1403

1408
1405
1406

1807
1408
1409
1410

1411
1412

1413

1414
141§
1416
1817
1418
1419
1420
1421
1422
1423

1424
1425
1426

1427
1428
1429
1430
1431
1432
1433

143y

1435
1436
1437
1438
1439
1440
1441

1442
1943
1844
1446
1446
1447
1448
1449
1450
1861
1462
1463
1464

1456
1456
1457

005322

001074
105777
100071
1177%6
0N2716
022726
001062
126727
001456

104401
104401
0167%6
104402
10%401
005046

005046

MACY11

30A(1052)
14-JUN-78
TTY INPUT ROUTINE

BNE

177760

177754
177600
000007

006041
006046
172602

006057

SGTSHR.

19%

105777
100375

177676

117746
%2716

127622
177600

021627
001005
104401
062706
000757

000025

006034
000006

209

021627
001022
005766
001403
016677
062706
108401
126727

000015

109

001003
012777
000002
00N 767
021627

002420
021627
003016
0nN2726
006766
001403
006316
006316
006316
0052¢6
056616

000004

000002
000006
005037
173377

000100
17723y
000060

159
169

000067
000060
000002

000002
177776

o3 TKS
159
@$TKB, -(SP)

e
BNE
Gl
BEQ

87, (SPj+
159
SAUTOB.
&1
159

TYPE
TYPE
MOV
TYPOC
TYPE
CLR
CLR
TSTB
BPL

- SCNTLG
- SMSKR
SHREG,
- (SP)

& C177,(SP)

PRGE 28

SEQ 0027

.. BRANCH IF NO
;. CHAR THERE?
;. IF NO, DON'T WAIT AROUND
.. SAVE THE (HRR
;. STRIP-OFF THE ASCII
;; 18 1T A CONTROL G?
;. NO, RETURN TO USER
;,ARE WE RUNNING IN AUTO-MODE?
;. BRANCH IF YES

;. ECHO THE CONTROL-G (

;. TYPE CURRENT CONTENTS
;; SAVE SUREG FOR TYPEOUT
;, 60 TYPE--OCTAL ARSCII(ALL DIGITS)
;;PROMPT FOR NEN SWR
. CLEAR COUNTER
., THE NEW SHR
;; CHAR THERE?
.;
IF NOT TRY AGRIN

HOVB
BIC

@$TKB,
- (SP)
& C177.(SP)

;. PICK UP CHAR
.+ MRKE IT 7-BIT RSCII

CHP
BNE
TYPE
ADD

(SP). #25
109
- SCNTLU
86, SP

1S IT A CONTROL-U?
; .BRANCH IF NOT
».YES, ECHO CONTROL-U ( U)
.. IGNORE PREVIOUS INPUT
. LET'S TRY IT RGRIN

CMP
BNE

(SP), #15
169

IS 1T R (CRH»?
., BRANCH IF NO
..YES, IS IT THE FIRST CHRR?
. .BRANCH IF YES
.. SRVE NEW SHR
.. CLERR UP STAR(CK
. ECHO (CR> AND <LF>
;;RE-ENABLE TTY KBD INTERRUPTS?
. BRANCH If NOT
.. RE~ENABLE TTY KBD INTERRUPTS
;- RETURN

- SMNEN
-(SP)
-(SP)
#STKS

199

TST
BEQ
MOV
RDD
TYPE
cnPB
BNE
2??

4(SP)
119
2(SP), aSHR
#6. SP
» SCRLF
S INTAG.
&1

JSR
cnp
BLY
CHP
BGT

PC. STYPEC
(SP), %60
189
(SP), %67
189

159

#100. 997KS

BiIC

#60. (SP)+

BEQ

17§

TST

178

159

TST8
BPL
MOVB

8IC

173524

8
16:01

RSL
ASL
RSL
INC

BIS

2(SP)
(SP)
(SP)
(SP)
2(SP)

-2(SP), (SP)

;. ECHO CHAR

.. CHAR ¢ 0°
;;BRANCH IF YES
. CHAR > 77
.. BRANCH IF YES
., STRIP-OFF RSCII
.+ 1S THIS THE FIRST CHAR
.. BRANCH IF YES
.+ NO, SHIFT PRESENT
H
CHAR OVER TO MAKE
‘s
ROOM FOR NEW ONE
. KEEP COUNT OF CHAR
.. SET IN NEW CHAR

(ZN98B0 19312 BOOT TERMR 8K
(21988 P11
14-JUN-78 16 00

1458

005566

000707

1460
1461

005574

000720

1459

005570

104401

BACY11

005036

(
16.01

30A(1052)
14-JUN-78
TTY INPUT ROUT INE

189

.. GET THE NEXT ONE

BR
LSB

209

,» SIMULATE CONTROL
-U

TYPE

DSARBL

3
PAGE 29

. SQUES

o TYPE CCRICLED

1462
1463
1464

PR3

228830830800 030800000

1467
1468

e ¢
X

ROCHR
RETURN HERE

.. INPUT R SINGLE CHARACTER FROM THE TTY
,, CHARACTER IS ON THE STACK

1470
1471

MOV

»»PUSH DOWN THE PC

}:22

:gmf ROUTINE WILL

1469

1472

1473
1474
1475

. ¢

005576

005600
005606
005612

016666
105777
100375

000004
177476

000002

005622

042766

117766

177472

000004

000023

005640

026627
001013

177600

105777

177444

117746
042716
022627
001366
000750
026627

177440
177600
000021

1476

00561%

1478
1479

005630
005636

1477

1480

1481

1482
1483
1484
1485
1486
1487

1488
1489
1490
1491
1492
1493
1494
1495
1496
1497

011646

005648

005646
005652
005656
005662
0056684
005666

00567
005676
005704
005706
005714

100375

002407
026627
003003
042766
000002

1500
1601
1502
1503

1508
1605
1606
1507
1608
1509
15610
1511
1512
15613

000140

000004

000175

000040

000004

(SP),-(SP)

Y(SP), 2(SP)
83 TKS
19

8IC

& CC172>,4(SP)

,.GET RID OF JUNK

93 TKS

. HWAIT FOR R CHARACTER

d$TKB, 4(SP)

Gl
BNE

4(SP), 823
39

BPL

29
9$TKB, - (SP)
& C177,(SP)
(SP)+, 821
29
19
Y (SP). #1840

TSTB

HOvVe
8iIC
CHP
BNE
BR
CHP

005732
005738
006736
0057%2
0057%&
005750
005752

006756
006762
005766

010346
012703
022703
101405

104407
112613
122713
001003
104401
000763
111367
104401
122723
001356

006024
00603y

,»SAVE THE PS
. WRIT FOR
,»R CHRARACTER

..RERD THE TTY

IF ANY
++ 1S IT R CONTROL-S?
;,BRANCH IF NO

., LOOP UNTIL

ITS THERE
.. GET CHARRCTER
. MAKE 1T 7-BIT RSCI!
+. IS IT R CONTROL-Q?
+. |F NOT DISCARD IT
.+ YES, RESUME
,. IS 1T UPPER CRSE?

BLY
4s
,.BRANCH IF YES
cne
Y(SP), %175
;1S IT R SPECIAL CHRR?
8GT
4s
;»BRANCH IF YES
8iC
#40. 4(SP)
;. MAKE IT UPPER CARSE
4s.
RTI
.» GO0 BRCK TO USER
PR $ 808803009000 030000830000088000083220020008302000000000090009289441
;XTHIS ROUTINE WILL INPUT R STRING FROM THE TTY
. 3CALL
R
ROLIN
.. INPUT A STRING FROM THE TTY
R |
RETURN HERE
.. ADDRESS OF FIRST (HARRCTER HWILL BE ON THE STRCK

i ¢

005716
005720
00672
005730

, HITH PARITY BIT STRIPPED OFF

Hov
TST8
8PL

Hove

000004

l‘ogg

SROCHR

3338000038020 823003308200020020280023000¢02%¢

INPUT A SINGLE CHARRCTER FROM THE TTY

SROLIN
19
2s

000177

109

005036

000044
006022
000015

.» TERMINATOR WILL BE A BYTE OF RLL 0'S

MOV
MOV
CHP
BLOS

ROCHR
MOVB
CMPB
BNE
TYPE
8R
HOVB
TYPE
CMPB
BNE

R3,-(SP)
#STTYIN.R3
#STTYIN+8 .R3
4s

(SP)+., (R3)
8177, (R3)
39

. SQUES
19

(R3). 99
.99
#15, (R3)+
29

. SAVE R3J
. GET RDORESS
., . BUFFER FULL?
..BR IF YES

..G0 RERD ONE CHARACTER FROM THE TTY
.. GET CHARACTER
1S IT A RUBOUT
.+ SKIP IF NOT
.. TYPE R ' 7"
.. CLERR THE BUFFER RAND LOOP
,ECHO THE CHRRACTER
+ . CHECK FOR RETURN
.. LOOP |F NOT RETURN

SEQ 0028

C2nM9880 19312 BOOT TERMR 8K
P
@4
1%-JUN-78 16 00

1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1624
1525
1526
1627
1528
1529
1530
15631

005770
005774
006000
006002
00600%
006012

105063
104401
012603
011646

MACY11

30R(1052)
TTY

14-JUN-78

INPUT ROUTINE

122277
005040

CLRB

005015
006507
053523

000
000012
020122

STTYIN.
SCNTLUSCNTLG.
SHSWR

TYPE
Hov
MOV
MOV
MOV
RTI
BYTE
BYTE
.BLKB
. ASCIZ
. ASCIZ
. RSCIZ

0% 7040
000040

053505

SHMNEW

_RSCIZ

000004
006024

000002
000004

006023

SBTTL

1532
1533
1534
1535

0D
16 01

3
PRGE 30

-1(R3)

. SLF
(SP)+,R3
(SP),-(SP)
Y(SP), 2(SP)
8STTYIN.
U (SP)

StQ 0029

;,CLEAR RETURN (THE 15)

;. TYPE R LINE FEED
;. RESTORE R3
;. RDJUST THE STRCK AND PUT RDDRESS OF
iy
FIRST ASCII CHRARACTER ON IT
;+ RETURN
;. STORRGE FOR RSCII
;; TERNINRTOR

CHRR

8
;. RESERVE 8 BYTES FOR TTY
7 w1512
;; CONTROL "U"
7/ G/<15X<12)
.. CONTROL "G
<15XC12)/SWR = /
/

THE

TO TYPE
INPUT

NMNEW =/

BINARY TO OCTAL (RSCH!) AND TYPE

PR 3003000000000 00020000090023888000009099¢82308030000080330893909¢1
+XTHIS ROUTINE IS USED TO CHANGE R 16-BIT BINARY NUMBER TO R 6-DIGIT
;XOCTAL (RSCI
1) NUMBER AND TYPE IT
,:EEIEOS"‘ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

1536

P ¢
. X
;X
P ¢
,:

TYPOS
BYTE
.BYTE

..CALL FOR TYPEOUT
.»N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
..M=1 OR O
.. 1=TYPE LERDING ZEROS
.. 0=SUPPRESS LERDING ZEROS

N
M

» XSTYPON----ENTER HERE TO TYPE
,X$TYPOS OR STYPOC
. XCALL.
i ¢
MOV
NUM. - (SP)
,:
TYPON

,:E;IPOC"‘ENTER HERE FOR

006070

006102
006106
006112
006114
006122
006130
006136
006140
006142
006144

006152
006156

017646
116667
112667

000000
000001
000207
000002

112767

000001
000006
000005

062716
112767
112767
010346
010446
010646
116704
062704

110467

000211

000171
000165
000154

OUT WITH THE SRME PRRAMETERS RS THE

.~ NUMBER TO BE TYPED
..,CRLL FOR TYPEOUT

TYPEOUT OF R 16 BIT NUMBER

i |

TYPOC

$TYPOS.

o(SP).-(SP)
1(Sr), SOF!LL
(SP)+, SOMODE+1
82, (SP)
STYPON
#1,80F ILL

., PICKUP THE MODE
.,LORD ZERO FILL SWITCH
., NUMBER OF DIGITS TO TYPE
. »RDJUST RETURN RDDRESS

STYPOC:

MOV
MOVB
MOVB
RDD
BR
MOVB

STYPON.

MOVB

85, SOCNT

.»SET THE

MOVB

..CALL

£#6. SOMODE +1

FOR

TYPEOUT

».SET THE ZERO FILL SWITCH

.. SET FOR SIX(6) DIGITS

ITERATION COUNT

000145

zggs

:8"00[#1,RH

,»GET THE NUMBER OF DIGITS TO TYPE

000006
000132

ADD
MOVB

#6.RY
R4, SOMODE

»»SUBTRACT IT FOR MAX
.+»SAVE |IT FOR USE

ALLOWED

LAST

(219880 M9312 BOOT TERMR 8K
(Zn9ss. P11
14-JUN-78 16 0O
1520
1571
1572
1573
1574
157%
1576
1577
1578
1879
1580
1581
1582
1583
158
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601

006162
006166
006172
006174
006176

116704
016605
005003

MACY11

30R{(1052)

BINARY TO OCTAL

000125
000012
19
29

000076

1777270

000060
000040
000040
006310
000032

5%
79

000002

14-JUN-78

000004
8%

SOCNT
SOFILL
SOMODE
SBTTL

SOF ILL., RY

ROL
ROL
MoV

RS
RS
R5.R3

BIS

£'0,.R3

ROL
DECB
BPL
BiC
BNE
TST
BEQ
INC

PAGE

(RSCII1) AND TYPE

HOVB
MoV
CLR
ROL
BR
ROL

16.01

,.GET THE ZERO F!LL SHWITCH

12(SP),R5
R3
RS
39
RS

;;PICKUP THE INPUT NUMBER
;»CLEAR THE OUTPUT WORD
,.ROTRATE MSB INTO "(C"
.. 60 DO MSB
.. FORM THIS DIGIT

R3
$OMO0E
’S
#177770.R3
4s
RY
59
RY

.,GET LSB OF THIS DIGIT
.. TYPE THIS DIGIT?
.. BR IF NO
;»GET RID OF JUNK
.. TEST FOR O
.. SUPPRESS THIS 07
..BR IF YES
..DON'T SUPPRESS ANYMORE O'S

.. MAKE THIS DIGIT RSCI
!

BIS
&' .R3
;.MAKE RSCI| IF NOT ALREADY
NMOVB
R3. 8%
»» SAVE FOR TYP ING
TYPE
. 89
;.60 TYPE THIS DIGIT
DECB
SOCNT
.. COUNT BY 1
BGY
29
..BR IF MORE TO DO
BLT
69
.. BR |F DONE
INC
RY
.. INSURE LRST DIGIT ISN'T R BLANK
BR
28
..GO DO THE LAST DIGIT
MOV
(SP)+,R5
.. RESTORE RS
MOV
(SP)+,RY
.. RESTORE RY
MOV
(SP)+.R3
. RESTORE R3
MOV
2(SP). 4(SP)
.. SET THE STACK FOR RETURNING
MOV
\SP)+, (SP)
RTI
. » RETURN
BYTE
O
.. STORRGE FOR ASCII DIGIT
BYTE
O
., TERMINATOR FOR TYPE ROUT INE
BYTE
O
.. OCTAL DIGIT COUNTER
BYTE
O
.. ZERO FILL SWITCH
. WORD
O
.. NUMBER OF DIGITS TO TYPE
SRVE AND RESTORE RO-R5 ROUTINES

PR $3503000000000003008000200022¢020002220000902000029220000223228¢8%.
. X3SRVE RO-RS
. XCALL
i
SAVREG
. SUPON RETURN FROM SSRVREG THE STARCK WILL LOOK 1 IKE
. X

,EXTOP---(416)
¥ 42---(418)
. ¥ +4---R5

. X410---R2
L ¥412---R1
. ¥414---R0

006316
006316

010046

$SAVREG

MOV

RO, - (SP)

.»PUSH RO ON STARCK

SEqQ 0C30

(Zn98B0 M9312 BOOT TERMR 8K
(ZM9ss P11
14-JUN-78 16 00

1626
1627
1628
1629
1630
1631
1632
1633
1634
1635

1636
1637
1638
1639
1640
1641

1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655

006320
006322
00632¢
006326
006330
006332
006336
006342
006346
006352

006354
006354
006360
0063684
006370
00637
006376
006400
006402
006404
006406
006410

010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

MRCY11

000022
000022
000022
000022

1671
1672
1673

StQ 0031

MoV
nov
MOV

R1,-(SP)
R2,-(SP)
R3,-(SP)

., PUSH R1 ON STRCK
;;PUSH RZ ON STR(K
;;PUSH R3 ON STRCK

MOV
MOV
MOV
MOV
2??

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

;;PUSH
;;SRVE
;.SRVE
.. SAVE
.»SAVE

(SP)+, 22(SP)
(SP)+, 22(SP)
(SP)+, 22(SP)
(SP)+, 22(SP)
(SP)+.RS
(SP)+.RY
(SP)+,R3
(SP)+,R2
(SP)+.R1
(SP)+, R0

.. RESTORE PC OF CALL
. RESTORE PS OF CALL
. .RESTORE PC OF MAIN FLOUW
,;RESTORE PS OF MAIN FLOW
.. POP STRCK INTO RS
,.POP STRCK INTO RY
,,POP STACK INTQ R3
., POP STR(K INTO R2
.. POP STRCK INTO R1
.. POP STACK INTO RO

RS
PS
PC
PS
PC

ON
OF
OF
OF
OF

STRCK
MRAIN FLONW
MAIN FLOW
CALL
CALL

. XRESTORE RO-R5
» 3CALL
P |
RESREG

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

SRESREG

000022
000022
000022
000022

SBTTL

MOV
MoV
MOV
MOV
MoV
MoV
MOV
MOV
MOV
2$V
|

TRAP DECODER

PR 0320000000000 0000000:82000000000200033003202090282822922222882821
»XTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION
.XAND USE IT TO INDEX THROUGH THE TRAP TRBLE FOR THE STARTING RDDRESS
. X0F THE DESIRED ROUTINE THEN USING THE RDORESS OBTRINED IT WILL
. XG0 TO THRT ROUTINE

1656

1657
1658
1659
1660
1661
1662
1663
1664
1665
1666

F
3
30R(1052)
14-JUN-78
16.01
PRGE
SAVE AND RESTORE RO-RS ROUTINES

006412
006414
006420
006422
006424
006426
006432

00643%
006436
006444

010046
016600
005740
111000
006300
016000
000200

011646
016666
000002

STRAP

000002

RO, -(SP)
2(SP). RO
- (RO)
(RO). RO

.. SAVE RO
.. GET TRAP RODRESS
. BRCKUP BY 2
,.GET RIGHT BYTE OF TRAP

MOV
RTS

STRPRD(RO).RO
RO

.., INDEX TO TRBLE
»»GO TO ROUTINE

ASL

006446

000004

MOV
MOV
TST
nove

000002

.. THIS

IS USE

STRAPZ

MOV

TO HANOLE THE

H?U
RTI

SBTTL

(SP).-(SP)

Y(SP), 2(SP)

+~POSITION FOR

INOEXING

"GETPRI" MACRO
»»MOVE THE PC DOHWN
.. MOVE THE PSK DOWN
. »RESTORE THE PSH

TRAP TRBLE

,XTHIS TRBLE CONTAINS THE STRARTING ADDRESSES OF
. XBY THE "TRAP" INSTRUCTION
ROUT!NE

THE ROUTINES CARLLED

(Zn98B0 M9312 BOOT TERMR BK
czZmn9ss P11
14-JUN-78 16 00
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701

1702
1703

006446
006450
006452
006454
006456

0064 34
Y
00454
006114
006070
006130

006460

30R(1052)
f4-JUN-78
TRAP TABLE

STRPARD

WORD

G
16 01

3
PRGE

SEQ 0032

$STYPON

STRAP2
+ . CALL=TYPE
.. CALL=TYPOC
. CALL=TYPOS
»» CALL=TYPON

TRAP+1 (104401)
TRAP+2(104402)
TRAP+3(104402)
TRAP+4 (10440M)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (HITH LERDING ZEROS)
TYPE OCTAL NUMBER (NO LERDING ZEROS)
TYPE OCTAL NUMBER (RS PER LAST CALL)

005364

SGTSHR

»» CALL=GTSHR

TRAP+5 (104405)

GET SOFT-SWR SETTING

005314
005576
005716
006316
006354

SCKSHR
SRDOCHR
SROL IN
SSAVREG
SRESREG

. CALL=CKSHR

TEST FOR CHANGE IN SOF T-SWR
TRAP+6 (104406 )
TTY TYPEIN CHRRACTER ROUTINE
TRAP+7 (104407)
TRAP+10(104410) TTY TYPEIN STRING ROUTINE
TRAP+11(104411) SAVE RO-RS5 ROUTINE
TRAP+12(104412) RESTORE RO-RS5 ROUTINE

STYPE

$TYPOC
$TYPOS

. CALL=RDCHR
.. CALL=ROL
IN
.. CARLL=SRVREG
.. CRLL=RESREG

» MESSRGES

74
0064
006476

BELL

RSC
RSCI |
ASCI !
ASCI |
RSC! |
RSCIZ
[

735/
/733/
/34/
/32/
(207><377><377>

DRHERD

RSCI2

/DIRG

BRHERD

RSCHI

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

RSC12Z

/L0C

PFHERD

RSCi2Z

oPSEUDO POUER-FARIL

ERZNSG

RSCI12

/COULD NOT FIND DEVICE

ROMNUN

1704
1705
1706
1707
1708
1709
1710

000377

0% 3501
020115
020051
0% 7502
040522
020115
020131
05152
0% 2040
020105
006523
On1517
020040
004440
O4508
062522
0% 3501
ON4626
082117
062506
063517
ON4501

1711
1712

020127

052517
052117
020104
042503

042114
043040
042504
o4 1440

999

-0

§-fl=¥a8

052103
061104

ENN

227

020056
042450
000
052117
020120
047105
047520
ououu0
053105
04?7503
012
020056
020040

047040
04 3501
020116
004456
042503
000105
0% 7504
051105
020114
051117
027456
041520

3a3a

1713
1714
1715
1716

1717
1718
1719
1720
1721
1722
1723
1724
1728
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737

HACY11

/20/

ROM

(E20)

NO DIRG

RUN DIRG

VECTOR ADR /NEW PCd

CODE /

DEVICE

COODE/

(Zn98B0 N9312 BOOT TERMR 8K
(Zn9es P11
14-JUN-78 16 00
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766

1767

1768
1769
1770
1771

006 76N
006771

0n2117
106
052440
0% 1505
0% 2504
O% 1440
000
120
0% 3055
042526
0% 2480
005015
On2411

HACY11

020105
052517
042516
02524
044526
on2117

000
042116

053517
044501
052103
051122

051105
020114
051117
051117

050130
004504
053105
000
053517
044501
ON052%
051117
050130
004504
053105
000
041522
051117
047522
000
052517
052117
051105
060040
0% 3055
042526
040440
051523
020117
052040
061105
012
020040
053040
020040
On2522
000
061012

041506
042522
042105

050605
020105
ON1516
062103
042520
052123
044524
047522
042522

050130
020104
042503
020105

30A(1052)
14-JUN-78
TRAP TRBLE

H
16 01

3
PRGE 34

SEQ 0033

ERINSG

ARSCIZ

/FOUND UNEXPECTED DEVICE

ER3IMSG

ASCII

/POMER-FAIL VECTOR ERROR/<15><(12)

RSCiZ

ASCII

/POWER-FAIL DATR ERROR/<15><12)

RSCI12

EXPECTED

CODE

RECIEVED/<15><12)

051105
020114
0% 2440
005015
041505
042522
042105

ERYNSG

042440
Ouku40
020115

CRCHSG

ASCIZ

/CRC ERROR

IN ROM E-/

042114
042040
044515
053517
044501
052103
042104
000
047522
051505
04?7522

PFMSG

ASCI2Z

/COULD NOT

DETERMINE

NOROMM

I
RSCI

/NO ROMS TEST

RSC12Z

RSCI

<(156><12)/R0M SEQUENCE

RSCIZ

/INSTALLATION PROCEDURE /

020040
046101
040440
051523
046517
042525
051511
051117
040440
020122
046101
047117
042503
000056

SEQNSG

EVEN

EXPECTED

VALUE

RECIEVED/<15><'
2>

POWER-FAIL

VECTOR

RDDRESS/

ERROR/C15)>(12)

RADDRESS/<15><(12>

INCORRECT RS PER

(219880 M9312 BOOT TERMR 8K
czZnoss P11
14-JUN-78 16 00
179%
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822

I3
16 01
PAGE

SEQ 003y

000000

BUF 2

000000
000000

010230

OCTBUF
MES1
MES2
ERRNSG

000010
000400
000100
000400

WORD
HORD
WORD
HORD
WORD
HORD
HORD
HORD
WORD
WORD
HORD
HWORD
HORD
WORD
. HORD
HORD
WORD
. HORD
HORD
WORD
HORD
WORD
WORD
HORD

HORD
WORD
. BLKB
. BLKB
. BLKB
BLKB

ey (=

BUF
1

000030
000000
000000
000000

= Jw Yoo Yoo J oo Y wo Yo Y'om Jom Jun Jun oo Yom N Fom o Fow Jwm o Yo Jun o o Jum Y

»BUFFERS

1830
1831
1832
1833
1834
1835
1836
1837

1838
1839
1840
1841
1842
1843
1844
1846
1846
1847
1848
1849

30R(1052)
14-JUN-78
TRAP TRBLE

o000
o000

1823
1824
1875
18.6
1827
1828
1829

MACY11

.4+THE FOLLOWING CODE WRS RDDED

IN REV BO

++"CLERR"

CLERRS THE NEW LRBEL AND BUFFER

LOCRTIONS

, +

+4+"CON1" AND "CONZ2" FILL "BUF1" WITH THE CONTINURTION ROM DRTR AND
,+SET ERROR FLAGS WHEN NECESSARY
, +

,4"HOLCKTTM AND "HOLCKZ" CHECK FOR HOLES TO VERIFY THE POWER FRIL
. 4VECTOR RDDRESS. ALSO SET 11/60 INDICRTOR WHEN RPPLICABLE
PR

L4"ROMTYP" AND "ROMNMTM FILL THE MESSAGE BUFFER WITH R CONTINUARTION ROM
,+MESSAGE AND WITH R ROM IDENTIFICARTION MESSRGE
, 4+

010630
010634
010636
010642
010644

012700
005020
020027
101774
000207

0117274

012036

CLEAR
19

MOV
CLR
e

BLOS
RTS

#SEQBUF .,
(RO)Y+
RO,

RC
#F INISH

++SET UP TO CLERAR LOCATIONS
4
»+ALL

CLERRED?

» +BRANCH 1F NO
.4

(Zn9880 19312 BOOT TERMR 8K

(Zn9ss. P11

14-JUN-78 16 00

1850
1851
1852

010646
010652
01065%

030167
001001
000207

1856
1857
1858
1859
1860
1861
1862
1863

010672
01067
010676
010700
010702
010706
010710
010718

000207
005703
001001
000207
030167
001005
014067
062700

1853
1854
1855

18684

1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877

1878
1879

1880

1881
1882
1883
188%
1885
1886

1887
1888
1889
1890
1891

1892
1893
1894
1895
189
1897
1898
1899
1900

1901
1902

1903

1904

1905

010656
010662
010666

010720

010722
010726
010730
010738
010736
01070
010746
010750
010752
010760
010762
010766
010772

01077«
011002

011006

011010
011012
011018
011020
011022
011026

011030
011032
011036
011042

011046

050167
012720
012720

000207

012710
014002
062700
010220
000207
032767
001415
000207
032767
001401
000207
122737
001403

052767
016716
000207

005713
001003
016716
000207
022713
001401

00014
004767
012705
004767
000011

011060
011068
011060
011062
011066
011070
011072
01107«
011100

062703
016716
000207
032713
001015
000241
006101
030167
001003

011110

012205

011102
011106

011112

011116

30A(1052)

TRAP TRABLE

001162

CON1

001132
000001
177777

CON2
001116

001102
000002
000001

000004
000002

170150

HOLCKi.

000004

170136

HOLC(KZ

000777

173224

000002
001012

001020

END
ROMTYP-

001016
000001

000024
012050
173314

000170

ROMNM
19

170016

000002

004767

173244

14-JUN-78

J
16 01

BIT
BNE
RTS

R1,
19
PC

RTS
TST
BNE
RTS
BIT
BNE
MOV
ADD
RTS
MOV
MOV
RDD
MoV
RTS
BIT
BEQ
RTS
BIT
BEQ
RTS
CMPB
BEQ

PC
R3
19
PC
R1,
29
-(RO),
%2,
PC
&1,
-(RO),
fy,
R2,
PC
82,
END
PC
fy,
19
PC
8777,
END

BIS
MOV
MoV

8IS
Hov

RTS

TST
BNE
]
RTS
CHP
BEQ

8R
JSR
MOV
JSR
HT

000004
000740

062702
000770

000015

MACY11

ADD
MOV
RTS
BIT
BNE
CLC
ROL
BIT
BNE

RADD
B8R
MOV

JSR

R1,
81,
f-1,

3
PRGE 36

CONF IN

,+CONTINURTION CHIP?
»+BRANCH IF YES
.4

CONER1
(RO)+
(RO)+

»+CHIP DOES NOT BELONG HERE-SET ERROR FLAG
»+SET CONTINURTION ROM INOICRTOR
++ILLEGRL ROM'S DEVICE CODE =-1
, 4
;+POINTING OVER THIS CHIP?
. +BRANCH IF YES
4
++CONT INURT ION CHIP?
»+BRANCH IF YES
.+CHIP IS MISSING-SRVE DEVICE CODE
.4
, 4
++SET CONTINUATION CHIP INDICATOR
»+GET PREVIOUS DEVICE COOE
++POINT TO CORRECT LOCATION
»+PUT IN DEVICE COOE
, 4
4R CHIP IN SOCKET #17
»+BRANCH IF NO
4
+4R CHIP IN SOCKET #27?
»+BRANCH |F NO
4
. +ARE SHWITCHES SET?
. +BRANCH |F NO

CONF IN
CONER2
RO
(RD)
R2Z
RO
(RO)+
ROMF IN
ROMF IN
SR17322M

82,
FLARG
RETURN. (R6)

++SET 11760 INDICRTOR
»+SET UP RALTERNATE RETURN

(R3)
19
FINISH,
PC
81,
28

. +ARE WE F INISHED?
. +BRANCH IF NO
++SET UP ALTERNATE RETURN
;4
»+CONT INURTION CHIP?
. +BRANCH IF YES

(R6)
(R3)

ROMNAN
PC,
ROMNHM
RCONMES,
PC.,
F I LBUF
iy,
R3
RETURN, (R6)
PC
%170,
(R3)
39
R1
R1,
28

ROMF IN

(R2)+,

82,
19

PC.,

F1LBUF

SEQ 0035

+4+ITS A DEVICE CHIP-FIND SOCKET %
;+F INO SOCKET #
. +LORD MSG INTO BUFFER
4
4

,+POP OVER CONTINURTION CHIP DRTA
»+SET UP ALTERNATE RETURN
4
»+BEGINNING A NEW ROM?
. +BRANCH |F NOT
.4
++POINT TO NEXT SOCKET
++1S R ROM THERE?
. +BRANCH IF YES

. +POINT TO NEXT MSG
. +CONT
I NUE
»+LORD ROM 1D

»+INTO THE MSG BUFFER
.+

CZn9880 19312 BOOT TERMR 8K
(@4
] .P11
14-JUN-78 16 00
011120
011122
011126

000402
112724
000207

000011

30R(1052)
14-JUN-78
TRAP TRABLE

39
48

BR
MOVB
RTS

K
16 01

4s
8HT,
PC

3
PRGE 37

StQ 0036
;4
. +LORD A TRAB
.4

(RY)+

- +SEQUENCE TEST
++THIS TEST VERIFIES THAT CONTINURTION CHIPS RRE LOCATED WHERE
++THEY BELONG, THART THERE ARE NO DUPL ICRTE DEVICE ROMS,

++THAT THE ROMS ARE !N ALPHRBETICAL ORDER., THAT THERE ARE NO
;+HOLES, AND THAT SOCKET #2 HRS R CHIP IF THE PROCESSOR IS AN 11/60
++IF THE ONLY PROBLEM 1S ALPHABETICAL ORDER AND/OR MOLES.
;+THEN R CORRECT SEQUENCE IS DETERMINED AND PRINTED OUT

TEZRE
BRI

b
b
b

b pud pub pub

b gub gud pub g
b g

g
b g

D
gud g
ol g

gub oo

b g

pub pub S

0000000000000

. +F IRST, CHECK FOR ILLEGAL CONTINUARTION ROM ERRORS
;+1F ANY ARE FOUNO., PRINT ERROR MSG AND EXIT

ol g

1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946

MACY11

012767
000011
005767
000652
001417
016703 000644
012702 012040
012767 000400
032703 000002
001026TM
062702 000002
000241
006003
000770
006767 000610
001423
012767 001000
012767 007530
000367 000566
016767 000562
176270
105067
000402
011267 000560
172516
004767
000207

000674

167726

SEQTST-

18-

MOV
ST
BEQ
MOV
MoV
MoV
BIT
BNE
?D?

#HT,
ARG2
CONER1
2%
CONERI., R3
#MESTAB,
S CONONE,
$2.
R3
3
82,
R2

TST
BEQ
MOV
MOV
SKAB

CONER2
FILTAB
$CONTHO.
MES!.
ARGH
CONER2

CLRB
BR
MOV
JSR

MES1+2
4s
(R2).
PC.

29
167672
000604

MOV

176272

3
4s

RTS

R2
ROMERR

, +

CONER2.,

L+SET UP FOR "ERRHAN"
,+HAS THERE RN ERROR?
, +BRANCH IF NO
,+THE BIT IDENTIFIES THE CHIP
,+POINT TO MSG TABLE
., +SET ERROR FLAG
L+ IDENTIFY THE ROM FOR PRINTOUT
.+BRANCH IF FOUND IT
,+SET UP FOR NEXT ROM MSG
,+SET UP TO

IDENTIFY NEXT ROM

,+WAS THERE
,+BRANCH IF
,+SET ERROR
,+PRSS THIS
,+BUILD THE

AN ERROR?
NO
FLAG
ADDRESS TO ERRHAN
MSG

, +

ROMERR

MES:

L4+

.+
. +REPORT THE ERROR
. +PRSS MSG RADDRESS TO "ERRHAN"
, +REPORT ERROR

ARG1
ERRHAN

,4I1F THERE WERE NO CONTINURTION ROM ERRORS.

BUILD THE FOLLOWING TRBLE

1947
1948
1949

.4+

SEQBUF

FIRST DEVICE CODE

& OF CONTINUARTION ROMS FOR FIRST DEVICE

.+
L+

SECOND DEVICE CODE
& OF CONTINUATION ROMS FOR SECOND DEVICE

L+
.+

ENDSEQ:

FOURTH (LAST)

DEVICE CODE

, 4+

011256
011262
011266
011272
01127y

012703
012702

012700
000241
006100

011774
173000
000001

,4+FOR R "HOLE'".,

THE DEVICE CODE WILL BE AR O

FILTRB

$SEQBUF,
#173000.
1,
RO

MOV
MOV
MOV
cLc
ROL

R3
R2

L4SET UP TO FILL R TRBLE CALLED "SEQBUF"
,+POINT TO FIRST ROM
.+
.+
,+POINT TO NEXT ROM

CZM98B0 19312 BOOT TERMR 8K
(Znoes. P11
14-JUN-78 16. 00

1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977

011276
011302
011304
011310
011312
011314
011320
011324
011330
011332
011334
011336
011342

030067
001404
030067
001011
011213
062703
062702
030027
001760
00040y
005243
062703
000766

MACY11

30R(10652)
14-JUN-78
TRAP TABLE

167614
000514

000004
000200
000020

39
59

000002

BIT
BEQ
BIT
BNE

Hov

ROD
RDOD
BIT
BEQ
BR

INC
RDD
BR

16 01

PAGE

RO,

ROMF IN

RO,
4s
(R2),
fy,
#200,
RO,
19
ALPHCK
-(R3)
%2,
5%

CONF IN

Sto 0037

+41S IT R HOLE?
++BRANCH IF YES
+41S IT A CONTINUARTION CHIP?
- +BRANCH IF YES

;41TS A DEVICE ROM-PUT DEVICE CODE INTO TRBLE
;#POINT TO NEXT DEVICE CODE LOCATION
;4POINT TO NEXT ROM

(R3)
R3
R2
#20

»+ALL DONE?
» #NO-BRANCH
. +TRBLE COMPLETELY BUILT

» #COUNT ONE CONTINUARTION CHIP IN LOCRTION
. +POINT TO NEXT DEVICE CODE LOCATION

»+NOW CHECK DEVICE CODES IN "SEQBUF" FOR ALPHRBETICAL ORDER AND

IF THERE IS R DUPLICRTE DEVICE COODE. PRINT
»+CHECK FOR "HOLES".
. +AN ERROR MESSAGE ANO EXIT.
IF DEVICE CODES NEED SORTING
. +AND/OR HOLES FILLING. DO IT AND SET THE SEQUENCE ERROR
. +FLRG.
ALSO CHECK FOR THE 11/60 SPECIAL CRSE.

011344
011350
011352
011356
011362
011364

011366
011370
011372

011374

011376
011400
011402
011404
011410
011414
011416
011420
011426
01143
011436

011442
011446
011462
011464
011466
011460

011462
011464
011466

011470
011472
01147y
011502
011504
011506

012703
010304
062704
020427
101010
005713
001446
005714
001767

021314
001410
003025
000763
062703
020327
103056
000754
012767
012767
000314
011467
105067

004767
000207
010301
010402
011200
011122
010021
011200
011112
010011
012767
000723
010305
020527

011?774

ALPHCK:
19
29

000004
012010

38.

000004
012010
002000
007530

167462
000374

MOV
MOV
RDD
CHP
BHI
TST
BEQ
TST
BEQ

CHP
BEQ
BGT
BR
ADD
cHe
BHIS
BR
MOV
HOV

SHWAB

176066
176064
172320

MoV

CLRB
JSR

RTS

MOV
MOV
MOV
MOV
MoV
HOV
MOV

000200
012010

MOV
MOV

167406
79

B8R

Hov

CHP

#ENDSEQ

;4SET UP TO CHECK ALPHRBETIC SEQUENCE IN "SEQBULF
,+HILL BE COMPARING (R3) TO (RW)
;+HHERE R3 RND R4 POINT TO DEVICE CODE LOCRTIONS
;4PRST The LAST DEVICE CODE?

(RY4)

,+1S THE SEQUENCE CORRECT?

#SEQBUF,
R3,
RY

&Yy,

RY,
39
(R3)
79
(RY)
28

(R3),

4$
59
29
8y,
R3,

(R4),
MES1+2
PC.
PC
R3,
R4,
(R2),
(R1),
RO,

(R2),
(R1),

RO,

#SEQERR,
29
R3,
RS,

;+BRANCH IF YES
.+1S THERE A DEVICE CODE HERE”
,+BRANCH IF NO
,+1S THERE R DEVICE CODE HERE?
;+BRANCH IF NO

R3
#ENDSEQ

9
19
SOUPERR,
#MES1,
ARG!
(RY)

ROMERR

MES!

;+BRANCH IF NO-FOUND R
;+BRANCH IF NO-NEED TO
. +YES-CONT
INUE
;4POINT TO NEXT DEVICE
. +ALL DONE?
;+BRANCH IF YES
;+NOT YET
. +SET ERROR FLAG
,+PRSS THIS RADDRESS TO
,+BUILD THE MSG

DUPL ICRTE
DO R SHIFT
CODE

"ERRHAN"

, ¢
P

. +REPORT THZ ERROR

ERRHAN

,4+SET UP FOR THE SHUFFLE

R1
R2
RO
(R2)+
(R1)+

++SHIFT THE VALUES
.4

RO
(R2)
(R1)

RS
#ENDSEQ

ROMERR

MR4

»+SET

THE

SEQUENCE

ERROR FLRG

»+CONTINUE SORTING
++SET UP TO SEE If WE HRVE R "HOLE"
. +END OF TRBLE?

(Zn9880 19312 S00T TERMR 8K
czmoes . P11
14-JUN-78 16 00

A i

2018
2019
2020
2021
2027
2023

2025

2027

¥ e

2031
2032
2033

011512
011514
011520
011522
01152%
011532
01153
011540
011542
011544
011546
011550
011552
011560
011562
011566
011570
011574
011526
011602
011606
011610
011616
011620

103017
062705
005715
001771
032767
001004
105737
001401
000422
010301
010502
000743
032767
001413
005767
001010
005767
001405
012701
012702
000724
032767
001001
000207

MACY11

30R(1052)
TRAP

TABLE

000004
000032

119
000242

000212
000200

000200

99
&y,
(R5)

BIT
BNE
TST8
BEC
BR

832,
ROMF IN
118
k173224
118
109

MoV
BR
BIT
BEQ
TST
BNE
TST
BEQ

RS,
R2
69
82,
FLRG
109
SEQBUF
+4
109
SEQBUF
109

BNE
RTS

OUTTRSB
PC

MOV

MOV
MOV

011774
012000
167272

10S.

N3
16 01
PRGE 39

BHIS
RDD
TST

etaQ

167364

17322y

000002

14-JUN-78

BIT

,+YES-THIS WAS NOT A "HOLETM
; #NO-POINT TO NEXT DEVICE CODE LOCATION
;41S THERE R ROM HERE?
;4BRANCH IF NO
;4R ROM IN SOCKET &2 ONLY?
;+BRANCKH IF NO
;411760 SPECIAL CRSE"
;+BRANCH IF NO
;4THE ONLY ROM MUST STRY IN SOCKET #2
J4YES-THERE (S R HOLE THRT CAN BE FILLED
;46ET READY TO SHIFT THE VRALUES
;4FILL IN THE HOLE
J4AN 117607
; +BRANCH IF NC
,+1S SOCKET #2 EMPTY?

R3.,

StQ 0038

$§SEQBUF ,
S§SEQBUF +4,

R1
R2

SSEQERR,

ROMERR

;+BRANCH IF NO
;+1S SOCKET #1 ENPTY?
;+BRANCH IF YES
;+SET UP TO SHIFT
;+CHIPS 81 AND #2
, 400 THE SHIFT
;+HAS THERE A SEQUENCE ERROR?
;+BRANCH IF YES
.+

. +THE FOLLOWING ROUTINE BUILDS THE CORRECT SEQUENCE MSG TO BE
. +PRINTED RS AN ERROR MSG BY "ERRHAN"

011622

011630
011636
011642
011646
0116562
0116566
011662
011664
011666
011670
01167
011700
011706
011710
011714
011720
011722
011726
011730
011738
011740
011742
011794
0117%6
011750
011756
011760

012767
012767
012700
012702
012704
012705
004767
000015

007530

000015
0117274
012040
007530
012311
172500

00:)004
000002
010130

000200
000174

OUTTRB8:

#MESTRAB,

MOV

SERMESH,

JSR
CR

000126

172434

TST
BNE
ROU
ROD
MOV

SWAB
MOV
CLRB
MOV
JSR
(R
MoV
JSR

000100
172422

HT
TST

#MES1,

PC,

FILBUF

R2
RS

. +PASS MSG ADR
TO "ERRHAN"
. +PASS THIS T0O
PR
P

++START BUILDING THE ERROR
++PUT IN THE FIRST PART

MSG

. 4
PR

(RO)
19
iy,
82,
#MESZ,

(RO)
(RO)+,
MES2+2
(R2)+,
PC.
BUILD,
PC.

++IS A ROM IN SOCKET #17
++BRANCH IF YES
»4D0 SOCKET #2 ONLY

RO
R2
BUILD

++SET UP THE DEVICE

39
- (R0O)

BR
TST

29
(RO)

#CONMES.,

CODE PART

., t

MES2

PRg
.4

RS
F ILBUF

»+|DENTIFY THE

R5
F1LBUF

+4+PUT

ROM #

PR
PR

IN EITHER DEVICE

CODE OR

PR
.+

(RO)+

BEQ
OEC

Hov

000056

#MEST,
ARGH
#CR.
RRG2
#SEQBUF,

MOV
MOV

176214
176212

012050

MOV
MOV
MOV

BUILD

» +ANY CONT INURTiON ROMS?
++BRANCH |F NO
»+COUNT DOWN ONE ROM
»+SET UP FOR CONTINURTION MSG
» +CONT INUE
. +ANY MORE DEVICE ROMS?

CONTINURTION MSG

CZM9880 19312 8007 TERMR 8K

(Zm9es. P11

14-JUN-78 16 00

207¢
2075

011762
0117684

001346
105014

2077
2078
2079

011772

000207

2076

011766

004767

MACY11

30R(1052)

TRAP TRBLE

BNE
CLRB

172000

01177%
011776
012000
012002

000000
000000
000000
00000C

SEQE')F

2086

012010

000000

ENDSEQ

2087
2088

2089
2090
2091
2092
2093

209%
2095

209

012004
012006

012012
01201%

012016
012020
012022
01202+
012026

012030
012032
01203

000000
000000
000000
000000

C(ONER1

.+FIRST DEVICE CODE
.48 OF CONTINURTION CHIPS FOR FIRST DEVICE
. +SECOND DEVICE CODE., ETC
4

WORD

;+FOURTH (LRST) DEVICE COOE

HORD
WORD

WORD
WORD

000000

BUILD

. WORD

.HORD
WORD

ERRHAN

;+REPORT THE ERROR
.4

O
O

.4
.4

O
O

4
;+EXTRA CONTINURTION CHIP ERROR FLAG

O
O
O
O
O

,+MISSING CONTINURTION CHIP FOR THIS DEVICE
;4RALTERNATE RETURN RDORESS
;4BIT 1:11/60
;+CONT INURTION ROM FOUND INDICATOR
;+DEVICE ROM FOUND INOICRATOR

O
O

» 4PRSSES MSG RDR. TO "ERRHAN"
»+PRSSES CR OR HT TO "ERRHAN"

, 4+

012036
012080
012082
0120n%
012086

2103
2108

012066
012064

051511

ON7117
32101

OMO4M0

Ow4524
04?511

041440

052516
020116

CONMES:

2106
2107
2108
2109

012076
012108
012112
012120

005016
062116
0OnM452%
On6617

020101
07111
087117
Ov4NN0

047503
040525
051040
020123

ERMES!

. ARSCIZ <15><12>/R CONTINURTION ROM

016

O8OM12Z
084524
On7?811
020116
061511

OM1%40
052516
020116
051511
0M4523

ERMESZ

ASCIZ <15><12>/R CONTINURTION ROM IS MISSING FOR DEVICE CODE/

042510
020123
OM6120
020105
084527
053105
047503

ERMESI

RASCIZ <15)C12>/THERE

2110
2111
2112
2113

2114
2116
2116
2117
2118
2119
2120
2121
2122

2123
212
2126
2126
2127
2128
2129

012050

012126
012138
012182
012160

012166
012162
012170
012176
012208

012212
012220
012226
0122M

01223%
012242
012260
012266
012208
012272
012300

On7111
081606
087518
020108

On7117
062101
047822
ONGAN0
083616
Ov20M0
020106
000
016
0828622
020101
Oni1611
087822
0Ow412v
Ow1511

087503
O%612%
OMOS03
087118

ON30M0
063106
0878603

062012
OMwAN0
062608
062101
020115
082040
020105

051122
020131
0O4252Y
000

_.WORD
ROMt
ROM2
ROM3
ROMY

2097
2098
2099
2100
2101
2102

FINISH.
MESTAB

;4BRANCH IF YES
;4MUST END WITH O BYTE

O
O
O
O

WORD
WORD
WORD
WORD
.HORD

000000
012336
012352
012366
012%02

SEQ 0039

WORD
HORD
.WORD
.HORD

(ONERZ
RETURN
FLARG
CONFINDEVFIN.

ARG1
ARG2.

3
PRGE 40

PC.

000000
000000
000000
000000
000000

000000
000000

19
(RY)

N
16 01

JSR

RTS

2080
2081
2082
2083
208%
2085

14-JUN-78

RSCIZ /IS A CONTINURTION ROM/

++ALTERNATE RETURN RODRESS
. +ASCI| MSG TRBLE
4
.4
4

INCORRECTLY LOCATED

051117
OM1511
02504

IS A DUPLICRTE ROM WiTH DEVICE CODE/

IN/

CZM9880 19312 BOOT TERMR 8K
(Zmn9es. P11
14-JUN-78 16: 00
2130
213
2132
2133
213
2135
2136
213?
2138
2139
2140
2141
21842
2143
2144
2145

012306
012311

0% 25048
123
N1516

050505
020105
ON211Y4
000012
020115
02%465
020115
024463
020115
024464
020115
02vw462

8
16.01

MACY11

30A(1052)
14-JUN-78
TRAP TRBLE

042525
04123
OnN1040

ERMESY:

024061

ROM1-

RSC1Z /ROM 1(E3B)

ROM2Z:

.RASC1Z /ROM 2(E33)

ROM3

.RSCIZ /RON 3J(ENM)

ROMY

ASCIZ /ROM Y(E32)

END

PRGE 41

. ASCIZ /SEQUENCE SHOULD BE /<12

SEQ 0040

CZn9880 M9312 BOOT TERMR 8K
(Zn98s. P11
14-JUN-78 16 00

000000
000000
000000
000000
000000

-t

igx
T AL

ABASE =
ACOM1 =
RACOKZ =
ACPUOP=

549
549
549
549
549
549
549
549
549
549
549
549
549
549
549
549
549
549
549

MACY11

y
C
30R(1052)
14-JUN-78
16 01
PAGE 43
CROSS REFERENCE TRBLE -- USER SYMBOLS

590
592
593
564
5%
595

549
549
549
549
549
549
1971
549
549
549
549
549
549
549
549
549
549
549

549
549
549
549
549

549
127%
1267
el

13864

w758
4768
4778

AUNIT = 000000

640
1269
1119
1118
549
549
549

1387%
1941%
20473

2000x
20954

20461

2094#%

SEQ 0041

CZr19880 19312 BOOT TERMR 8K
(2n988. P11
14-JUN-78 16. 00
AUSHR =
AVECT1=
AVECT2:
BELL
8170
=
81700 =
81701 =
81702 =

000000
000000
000000
006506
000001
000001
000002
OO0O0%

81707
81708
81709
8171

=
=
=
=

000200
000400
001000
000002

81713
81714
81715
8172
8173

=
=
=
=
=
=
=
=
=
=

020000
OM0000
100000
000004
000010

81703
81708
81705
81706

=
=
=
=

000010
000020
OO0OMO0
000100

81710 = 002000
81T11 = 004000
81712 = 010000

8174
8175
BITé
817T?
8178
8179 =
8P1VEC=
BRHEARD
BUF 1
BUF 2
BUILD
CALSUM
CHECKS
CKSHR =
CLERR
CONER1
CONER2

CONF IN
CONES
CONONE=
CONTWO=
CONt
CON2
q

549
549
549
1100
4564
Y468
Yuss
Yeut
4438
Y428
Y418
4NOS
439¢
4388
4378
4558
4368

30A(1052)
14-JUN-7?8
16.01
PRAGE 44
CROSS keFERENCE TRBLE -- USER SYMBOLS

SEQ 0042

563
588
589
17058
456
455

W54
463
452
451
450
449
W48
W47

1097
1101
1159

000020
0000M0
000100
000200
000400
001000
000014
006533
0074
3%
007514
01203
002526
002310
104406
010630
012014
012016

17118%
871
908
2065
797
778%

18458
1922
1933
1850
2071
1926
1935
18504
18574
1027

012024
012050
000400
001000
010646
010674

= 000015

000020
002544
007161
000200
DAFLAG 003326
DOISP = 177570
DEVCOO 003114

MACY11

2064

CRCERR=
CRCLOP
CRCMSG
CRLF
=

858

788
834
17624
664
958
517
870

1022
1005x

886
99812
2071x
820¢

942
999
20964

1924
1937%
1860
2102¢

2088%
1938
1964

20894
2092+

103y

1039

1065

801
1284
976%
628
928

1323
9824

1798%
1006

1062

1066

18234

1073

1113

1148

1189

1313

1323

1905

2047

(2M9880 MN9312 BOOT TERMR 8K
(ZmM988. P11
14-JUN-78 16 00
DEVF IN
DISPLA
DISPRE
DRHERD
=
DSIR
DUPERR:
EHERDY
ENTVEC:
END
ENDSEQ
ERMESH
ERMES2
ERMESS
ERMESYH
ERRCNT
ERRHAN
ERRNSG
ERRVE(s
ERINSG
ER21SG
ER3MSG
ERWNSG
EXCRDD
FILBUF
FILTRS
FINISH
FIRSTR
FIRSTD
FLRG
=
GNS
GTSIR =
HOL (K1
HOL(CK2

012026
001106
000174

Yus

001120
003772
010230
000004
006771
006735
007027
007105
002620
004 362
011256

012036
002616
001114

012022

22213138 u

000020
002622
000012
002536
001112

1708%
516
1999
11678

1871
1985
1175
1176
1177
2051
522¢
760
1095
4594
1167
i168
1169
1170
782%
1026
2052
193y
10382
783%
5208
18782
493
658
997
1004
3694
1921

1877
1996
21068
21148
21238
21318
10962

Youk

781%
3704
823t
519¢
1036
860
867
755
4804
1173
703
1043
1141

667
2040

007205
177772

952
628%
636

1025
377%
Ygus
1105
Y668

104405
010740
010752
z 000011

IOTVE(Cs
LASTAD
=
LF
LOOP
ME SSRG
MESTRS
MEST

69612
5178

MACY11

4798
1063
1172
3768

1
30A(1052)
14-JUN-78
16 01
PAGE Y45
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0043

2093¢
6363

627

1879¢%
2017

2086%

802
1158
626%

864
1828%
637%

881

895

906

672

6732

685%

80u4x
1044
2066

835
10561

s
84y
1064

1883
803z

2097%
807

82t

8yl

2091#%
1683

1684

1685

1052

1056

805%
1074

912

10944%

1942

2004

2076

1112

1120

1142

1146

1185¢%

1890

1686

1688

1690

1691

1692

1693

169%4

1070

1143

1147

1185

1187

1282

1323

1891

838
1149

8uS#
1190

1317

1323

2049
1936
2058

2098+
1938%
2060x

19392
2061%

2000

2002x

2003x

2046

2050

1068
12044
1209

1234%
1236
1216

1218

18258%

1008

1114

1069

1904

1907

(Zn98B0 19312 BOOT TERMR 8K
(Zn9ss. P11
14-JUN-78 16 00
PIRQVE= 000240

4708

PROMP
PRO
=
PR1
=
PRZ
=
PR3
=
PR%
=
PRS
=
PR6
=
PR?
=
PS
=
PSH
=
PUTMES
PURVEC=
ROCHR =
ROLIN =
RESREG=
RESVEC=
RETURN

002624
000000
0OOOMO0
000100
000140
000200
000240
000300
0003%0
177776
177776
003440
000024
104407
104410
104412
000010
012020

708
3938
3Mus
3958
3968
397%
3988
399%
400%
3738
3744
859
4658
1504
16928
1163
4608
99%%

ROMF IN

001116

ROMNM

011062

ROMTYP
ROM1

011010
012336

PPFVAR

ROMCNT
ROMERR

ROMNUM

003330

002524
001110

0064 7Y

rRON2

012352

RON3
ROMY
RSTART

012366
012402
002066

861

MACY11

900

8564

866

1003x

1037%

1879

1893

2090#

1116
23%;.

1123
669%

1125
681%

1162
693%

1926%
695%

1935x
701

1999%
779

201u4x
795

9112
2039
9k

1887

1888

1895%

1041
2098

18814
21358

2100
2101
499

21394
21418
7014
169348

1982
2039

2032

2034

2036

2037

2048

2080%

629
656

635%
1401

642%
1414

656

1097

1101

1! 59

778%
5188

1128

2099

17008

SR
SHREG
S0
SHO0
S0l
SH02
Sk03
SWoM

=
=
=
=
=
=

001104
000176
000001
000001
000002
00000
000010
000020

5168
4954
428¢
4188
4178
4164
4158
biye

627x
635

Sk06
Sk0?

= 000100
= 000200

4124
“iie

422
421

= 001000
= 000002
= 002000

409¢
4274
408¢

SKO09
SH1
SW10

= 000400

3648

3758

41348

4106

79412
788%

795
8012

8118
862

1127
880x%

891

905%

1008x

1103

1104

1114

1870

1873

1899

1962

1401

1438x

2137%

49?7

SW08

1094
1845
Yg1&
1174
709

779
759%

001400

= 0000n0

1017%

16948

START

SWO5

994

16918

104411
011774
000200
007341
011130

STKLNTs 1727774

SEQ 004y

374

SAVREG=
SEQBUF
SEQERR=
SEQNSG
SEQTST

STACK = 001100

F
Y
30A(1052)
14-JUN-?8
16 01
PAGE 46
CROSS REFERENCE TRBLE -- USER SYMBOLS

1957
201
17838
1921¢

741

617

6158

428
42?7
426
425
424

423

420

419

CZn9880 M9312 BOOT TERMR 8K
(ZmM988 P11
14-JUN-78 16 00
SH11
SHi1Z2
SH13
SHi%
SH15
SHZ2
SH3
Si4
SHS
Sié
SW7

SH8
SH9

=
=
=
=
=
=
=
=
=
=
=

004000
010000
020000
080000
100000
0OUOO00Y
000010
000020
000040
000100
000200

= 000400
= 001000

T81TvE= 000014

TEMP

004526

TIES
TKVEC =
TPVEC =
TRAPVE=
TRTVEC=
TYPE
=

003770
000060
000064
000034
000014
104401

TYPOC =
TYPON =
TYPOS =

104402
104404
104403

TESTRO

003324

SAPTHD
SASTRT=
SATYC
SATY1
SATY3
$SATYS
SAUTOS
$8RASE
COW1
$COK2
SCHARC
SCKSHR
SCHTRGs
SCNTLG
SCNTLU
SCPUOP
SCRLF
SOOKO0
SOOMNt
SOOH10

001122
333151% u
005066
005042
005050
005060
001100
001212
001216
001220
005022
005314
231312
006041
00603
001164
005037
001222
00122
001246

SO0KS

001234

$OOK11
$00K12
SOONH13
SO0K1y
SOOH1S
$O0KZ
SOOH3
SO0

001250
001252
001254
001256
001260
001226
001230
001232

MACY11

4078
4068
4Y05¢
You
s
4038
4268
425%
LYAL
4238
4228
4218
4208
4198
4618
12102

1222%
6972

687%
%4
670%

Y688
4698
4674
4628
650
1511
1415
16864
16858
533
1366

1337

1153
1157
13388
5138
590¢
5924
5934
12892
14018
617
1412
1429
5648
1288

30R(1052)
14-JUN-78
16:01
PAGE 47
CROSS REFERENCE TRBLE -- USER SYMBOLS

1081#%

1224%

699

9814

1227%

SEQ 0045

pAT-}

1287

1412

1413

950%

95512

960

961

962%

1440

1459

1508

619%

1077

730
1515
16848

539%
1381
13394
13358
1272

16838

1099

13368

660%
901
907

1409

1630

12992
1690
621
15258
15248

1306

1315

1330%
872

1440
885

1524

1320%

1416

1429

(Zn98B0 19312 BOOT TERMR 8K

Zn9ss P11

14-JUN-78 16 00

006
SO0W7
SO0M8
SOOW9
SOEVCY
SOEVH
SOORGN
SENDRD
SENOCT
SENOMG
SENULL

001236
001240
001242
00124y
001146
001214
002204
002174
002150
002213
002210

6008
6018
6028
6038
5558
591%
726
507
622

SEOPCT
SETABL
SETEND
SFATAL
SFFLG
$FILLC
$FILLS
$SGET4Z
SGTSUR
$HO
=
$HIBTS
SINTRG

002142
001156
001262
001140
005306
005034
005033
002164
005364
000003
001122
001101

6222
559%
545
5528
133528
1292
13268
7328
14138
352
5408
5148

005305
001170
001174
001200
001204

1376%
5778
5814
5844
587%

SENV
SENVH
e op

SLF

SLFLG
$SHAOR1
SMRORZ
SHMAORI
SMAORY

001156
001157
002124

005040

SMAIL

001136

SHFLG
SER
$MSGRD
MSALG
sHSGTY
SR
snTYP1
snTYPZ
sHTYPl
sHTYPy
SNULL

005304
006057
001152
O0N1154
001136
006046
001167
001173
001177
001203
005032

sHAMs1
sAns2
sAns3
sHAanss
SHBADR

SOCNT
SOMODE
$PASS
SPASTN
SOUES
SROCHR
SRDOEC=

001166
001172
001176
001202
001124

006312
006314
00114y
001130
005036
005576
2333353 U

730
731

5608
5618
704

13318

MACY11

733
648
728%
7438
7428

654
640
707

725%

6128
1372%
1338%
1327%

30R(1052)

14-JUN-78

739%
7358%

11561
856
7204

1267
1269

1344
1274

1366

1375%

1383%

654

1368
1346

729

1688
353

1441

1515

1382%

1530

1524

545

550#%

639

13368
1416
6678
558¢
5518
1413
5728
5808
5838
5868
12%

1342
15288
1352%
1357%
1350
15264

1377

1381%

16628
165678
5544
5438
13296
1472¢
1693

4
PAGE 48

CROSS REFERENCE TRBLE -- USER SYMBOLS

541

571%
579¢
5824
5858
5418

H
16 01

1325¢
15913

1561%
6212

1459
1691

1267

1355

1358

1370

13742

1604%
1566
639%

1669x
706

1580%
722x

1508

1524

1606#%
723x

742

SEQ 0046

(ZN98BO M9312 BOOT TERMR 8K
(Zn9se P11
14-JUN-78 16 00

005716

1500%
1693
14938
16408
418
1695
16244
4984
4988

323313

000010
006354
002206
32312

006316
000124
1277727
000210
160000
001160
001142

5058
352
5628
5538
1393¢
13928
3524
13122
1261
1310
619
16718
16758
1665
5428

005312
005310

001126
006024
232312
235312

004544

STYPEX

$TYPOC
STYPON
$TYPOS
SUNIT
SUNITH
SUSUR
SVECT1
SVECT2
$SGETy=
SOF ILL

. SASTR= 125212
= 001122
X

cCc

SRD_IN
SROX T=
SROGZ =
SRESRE
SR TR0
SR2R
=
SSAVRE
SSETUP=
SSTUP =
SSVP(C =
=
SSIR
SSHREG
STESTN
ST
$TKS
=
STN
sTPS
STPFLG
$TPS
STRAP
STRAP2
=
STRP
STRPAD
sTSTH
STTYIN
STYPONs=
STYPDS=
STYPE
STYPEC

1501
1687
1687
1261%
1291
1316
15608
1559
15558
5568
Suus
5638
5888
589¢
73us
15562
4868
6148
13848
1336
5294

MACY11

Y
|
30A(1052)
PAGE 49
14- JUN-78
16 01
CROSS REFERENCE TRBLE -- USER SYMBOLS

SEQ 0047

1692
1694

1693
618

621

623

648

651

722

1396

1530

510
3538
642

359

360

361

623

715

722

734

740

1405
1403

1476
14432

1482
1474

1480

16858

16864

1687%

1688

1689%

1690

16914

16928

16938

16948

16958

1519

15234

1675
1305
13214

1683
13108

1311

1445

16054
4984
1323
15234

505
1324
1524

506#
1325
1530

508%
1326
1825¢%

510%
1327
18264

512%
1328
1827%

529
1329
18288

530%
1330

532%
1331

5348
1332

1686

1560%
4894
742
1392
1339
534

1570
4938
745
1393

(ZM98B0 M9312 BOOT TERMR 8K
(Zn9s. P11
14-JUN-78 16 00
COMEN
ENOCON
ERROR
ESCAPE
GETPR |
GE TSHR

18
18
365%
18
1%
18

NEWTST
POP

1%
18

SCOPE
SETPR|
SETTRR
SETUP
SKiP
SLASH
SOF TSW
SPRCE
STARS

3668
18
16758
18
18
18
Ju2s
4718
18
1632
18
16758

MULTY

PUSH
REPORT

SHRSU

TRHTRP
TYPSIN
TYPOEC

TYPNRN
TYPNUN
TYPOCS
TYPOCY

TYPTXTY

18
18

18
18
18
14

SSESCA
SENEWT
$SSET
$SSETH

18
18
16758
6398

. EQURY
. HERDE
. KT11
. SETUP
. STARS
. SHRH |
. SHRLO
. SACTY
. SAPTE
. SAPTH
. SAPTY
. SASTA
. SCATC
. SCHTR
. 0820

18
18
18
18
3428
18
3618
18
18
18
18
18
18
18
16

. S0V
. SEOP
. SERRO
. SERRT
. SMLT

18
18
14
18
18

$SK|IP

. 90820

4
J
14-JUN-78
16 01
PRGE 51
CROSS REFERENCE TRBLE -- MRCRO NAMES

MACY11

30R(1052)

471%
Y7218
4718

1378
1339

1379
1341

1645
1362

1625

1652

1685
4718

1686
615

1688

1690

1691

1692

1693

1694

473
1654
6238

503

526

528

535

648

712

1246

4718

buY

1688

1690

1691

1692

1693

1694

SEQ 0048

47218
4718

4718
Y718
4718
4718%
4718%

3428
3428
3428

4718
1684
3428
47218
4ris

4718

1609

4718

4718
4718
3428
4718
Y718
4718
4718
4718
Y718

168y

651%

1414

1685

4718
Ju2s
3428

361

342%

498

3428

354

3428
J428
3428

501
546
524
1332

Ju2¢
Ju2s
3428
3428

487

18
Ju2s

1652

710

1686

1334

1391

1396

1464

1493

(ZnI880 M9312 BOOT TERMR 8K
Zn9ss P11
14-JUN-78 16 0O

SPOME
SRAND
SROOE

18
18
18

SRERD
sR2R2
$SAVE
$5820

$5820
. $SCOP

18
18
1%
18
18
1%

SSUPR
STRAP
STYP8
$TYPD
STYPE
$TYPO

18
18
18
18
18
18

$RO0OC

.$SI12t

. SN0CA
1170

ABS

3428

1389

Ju2s

1607

MACY11

4
K
30A(1052)
14-JUN-78
16-01
PAGE 52
CROSS REFERENCE TRBLE -- MACRO NAMES

18
18

012416

ERRORS DETECTED

3428
3u2%
3428

000
0

CZM988. BIN. (ZHM98B. LST/CRF/SOL/NL
RUN-TIME
11 13
8 SECONDS
144/25=5 6
RUN-TIME RATIO
CORE USED
32K
(63 PRGES)

TOC=DSKZ (ZM98B SML.DSKM (ZM9B8 P11

SEQ 0049