Digital PDFs

AH-8956E-MC

September 1979

39 pages

Original

2.0MB

view download

OCR Version

1.7MB

view download

Document:	CZM9AE0 M9301-9400 BOOT TERMR M9301-9400 SEP 1979 bw
Order Number:	AH-8956E-MC
Revision:	000
Pages:	39
Original Filename:	CZM9AE0__M9301-9400__BOOT_TERMR_M9301-9400__AH-8956E-MC__SEP_1979_bw.pdf

OCR Text

M 930 1 /9400

(a:ozo’\rnrgzz\mgomssovuoo

:::?;:?cn_n

FICHE1 OF 1

MADE IN USA

AN,

WMACYYY

TV IAR!

Z0A(1052)

17=APR=79

17«4PR=79 10:12

10:14

PAGt

SFG 0001

REM

8
1

‘e

IDENTIFICATION

eeeeeeeeeeeeee

gzs

PRODUCT CODE:

AC~BISLE-M(

PRODUCT NAME:

(ZMOAEC BOOTSTRAP/TENMINATOR

FROGRAM DATE
:

APRIL,

MAINTAINER:

DIAGNOSTIC ENGINEERING

(MO301,

1979

gz
35

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 'w]THOUT

3¢

NGTICE AND SHOULL NOT BE CONSTRUED AS A COMMITMENT R DIGITAL

NO RESPONSIBILITY

EQUIPMENT CORPORATION. CIGITAL EQUIPMENT CORPORATION ASSUMES
THE

FOR

SOF TWARE DESCRIBED

ANY

ERRORS

THAT

MMAY

IN THIS DOCUMENT

APPEAR

THIS

DO.UMENT

[S FURNISHED UNDER A

LICENSE AND MAY ONLY BE USED DR (OPIED IN ACCORDANCE WITH THE

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY F0OR

NOT

4.§

TERMS OF

SUCH L JCENSE.

THE USE OR RELIABILITY OF 17S SOF TWARE ON EQUIPMENT THAT IS
SUPPLIED

DIGITAL.

M9400)

LMAIN,

TIWQAE

MA(YIY
P11

73)

17=APR=79

10:12

10:14

PAGE
3

(A2

SEG 0002

2Rl

X222

]

* SUMMARY OF OPERATING INSTRUCTIONS «
*

THE

XXX

A2 2222222222
X2
X XY

FOLLOWING PROCEDURE

(AN BE USED

IN A DEVICE VERIFICATION MODE.

RUN SUCCESSFULLY CONSULT

THE

[IF

TO RUN

THIS DJAGNOSTI(

THE PROGRAM DOES NOT

FOLLOWING DOCUMENT FOR ASSISTANCE.

OPERAT ING PROCEDURE:

LOAD THE PROGRAM USING NORMAL PROCEDURES.

LOAD ADCRESS 200

SET SWITCH REGISTER TO SELECT THE PROPER

VERSION Of
(SEE

THE ROM UNDER TEST.

INSTRUCTIONS

IS TO BE USED.)

SOF TWARE

SWIT(H REGISTER

PRESS

THE PROGRAM SHOULD TAKE ABOUT 1 SEC TO
COMPLETE THE TEST AND PRINT: "¥END OF TEST'',

IF THE PROGRAM DOES NOT RUN AS DESCRIBED
ABOVE, CONSULT THE FLLL OPERATING INSTRUCTIONS
wHI(H FOLLOW.

START

85
8

89
9C

BECAUSE

OFf

THE

CAUTION

CONTENTS READ FROM LOCATION 773024

THE MG301 OPTION IS CONF]GURATION DEPENDANT (SWIT(H

REGISTER DEPENDANT), THIS LOCATION IS NOT INCLUDED IN
THE DATA (HE(K.
THIS LOCATION CAN BE VERIFIFD BY EXAMINING IT OR BY JSING
THE ALTERNATE STARTING ADDRESS(SEE SECTION 2.1.3) 710
PRINT OLT THIS LOCATION.

MAIN,

MACYTT

TIW9AE P11

Z0A(1052)

17«APR=-79

17-APR=79

10:16

PAGE

SEQ 0003

10:12

1.0

GENERAL

PROGRAM

[NFORMAT
[ ON

97
98
99

THIS DIAGNOSTIC
ROM CONTENTS OF

101

AND A LONGITUDINAL

100

(OMPUTES AND (CHECKS A CYCLIC REDUNDANCY (HARA(TER

0
104
105

AN AID

(HARACIFR FOR

AVAILABLE

IN AN M9307
THE
THE

TO DEBUGGING.

THE

CONTENTS

OR M9400 MODILE.

USER TO TYPE
TELETYPE AS

—

SYSTEM REQUIREMENTS
TM)

A a3
bwflfid-‘CVOOD\Rg\hxruflu-‘ELOOD‘JO‘U\bwfl N - 8333

—b —d —
e
wad wid
e
i
d
d
e
o
i
i
—

— ed i wd e h —d d —nd =D _l—l—l_‘—l—‘-.‘—J.d&.’-l_l—‘
NN
N
W NI
RO NI A PO N AY1aV]

PARITY

THE ROM STORAGE

A SEPARATE ROUTINE INCLUDED ALLOWS
THE CONTENTS OF THE ROM STORAGE ON

106

8N BN B BBN
NN NN

PROGRAM S INTENDED TO VERIFY THE
THE ROM BOOTSTRAP MODULES. THE PROGRAM

PDP/11

PROCESSOR

TELETYPE OR EQUIVALENT
4K OF MEMORY

M9301

OR M94(0 MODULE

SOF TWARE
THIS PROGRAM
HOWEVER,

PRODUCT
THE

THE
TEST

PROGRAM

WRITTEN

TO BE

RUN AS A

PROGRAM [S DESIGNED
SYSTEM (APT) [N ALL
(AN

A_SO BE

RELATED DOCUMENTS AND

STAND-ALONE

TO RUN UNDER
THREE MODES.

RUN UNDER

THE

ACT

PROGRAM,

AUTOMATED

MONITOR,

STANDARDS

DIAGNOSTIC ENGINEERING STANDARDS AND C(ONVENTIONS PROGRAMMING PRA(CTICES

DOCUMENT NO.

APT

INTERFACE

175-003-009-00

SPECIFICATION,

REV.

DIAGNOSTIC HIERARCHY PRERFQUISITES
NONE,

HOWEVER

FAILURE

THE

CPU IS ASSUMED

TO BE

FUNCT]IONING

ASSUMPTIONS

THE PROCESSOR S ASSUMED

TO BE

FUNCTIONING PROPER.Y,

MAIN,

MACYTT

(ZMOAE .P11

T0A(1052)

17-APR=-79

17=-APR=79 10:12

10:14

PAGE

SEQ (004

145

14€

147

148

149

150
151

2.0

OPERATING INSTRUCTIONS

2.1

LOADiIiNG AND STARTING PROCEDURES

2.1.1

LOAD ING
USE NORMAL PROCEDURES FOR LOADING DIAGNOSTIC PROGRAMS.

2.1.2

NORMAL
1.

LOAD SOFTWARE

SWIT(CH REGISTER

ROM VERSION UNDER

TEST.

(SEE

(]JF USED)

2.3

SET HARDWARE SWITCH REGISTER

ROM VERSION UNDER

THE

TEST

(SEE

(IF AVAILABLE)

TO SELECT TYE

2.3).

START

OPTIONAL START
THE

OPTIONAL

?SOTHE

STARTING

ROM FOR USE

ADDRESS

IN VISUAL

USED

TYPE

QUT

THE

(ONTENTS

VERIFILATION OR AS A DEBUGGING

USE THE SAME PROCEDURE AS A NORMAL
ADDRESS 210 IN STEP 2.

2.2

TO SELECT

LDOAD ADDRESS 200

2.1.3%

START

START EX(EPT USE

SPECIAL CNVIRONMENTS
THIS

PROGRAM

WRITTEN

(OMPLY

COMPLY WITH

WITH ALL

THE

REQU]REMENTS

OF THE APT INTERFACE SPECIFICATION. T WILL RUN UNDER APT
IN EITHER QUICK VERIFY, PRCGRAM OR RUN-TIME MODES.
THIS

PROGRAM

WRITTEN

THE

A(T11/XxXDP

INTERFACE REQUIREMENTS.
WHEN RUNNING IN ACT11 QUICK VERIFY OR XXDP (HAIN MODE
(LOC. 42 NOT 0), OR APT QUICK VERIFY AND PROGRAM MOLE
THE PROGRAM ATTEMPTS TO RUN WITHOUT OPERATOR

INTERVENTION OR SWITCH REGISTER SELECTION.
THE
COMPUTED CRC IS COMPARED AGAINST THE (RC *OR ALL KNOWN
VERSIONS OF THE ROM BOUOTSTRAP.,
WHEN A MAT(H [S FOUND THE
vERSION OF THE MODULE IS TYPED FOR VISUAL VERIF]CATiON.

MAIN,

MACYTT

(ZMOAE P11

198
199

17-APR=79

10:14

PAGE 6

SEG 000S

2.3

THE

SOF TWARE

SWR

(176)

1S SUBSTITUTED.

FOR PROCESSORS WITH NO HARDWARE SWIT(H REGISTER, THE OPERATOR
SHOULD SET THE DESIRED SWITCH VALUE IN LOCATION 176
WARNING...

IN _ORDER

TO ALLOW TESTING OF

1F _LOCATION 176 IS SET TO %,

USED REGARDLESS Of

2.3.1

HARDWARE

M7942-Y8B BOARDS ON

THE

SWITCH REGISTER AVAILABILITY.

SWITCH SELECTION

2OV

OCTAL NUMBERS. THEY ARE NOT PARTICULAR SWITCHES SET TO A
ONE. FOR EXAMPLE, TO SELECT THE M9301-YH VERSION, SET

SWITCHES #3 AND #1
CORRESPONDS

S#R

MODULE

-ep e

-— - s e

12.

VERSION

. -

- .-

mM9301-YBR
M9301-v(
M9400-YA

(OR Y()

M3400-YH

(OR

mM9311

REVISION

—

M9301-YF
M7942-YB
M9301-YD

YK)

M9311
REVISION
M9301-YH
M9301-YE
M9301-vJ
M9400-YN

FOR M9311

--- SEE NOTE BE.OW ---

sx« SEE NOTE BELCW %#e

ONLY...........

iF ROM IN LOCATION E=5

#23-524A9 ,

THEN

IF ROM IN LOCATION E=5 IS

#23-688A9 ,

THEN

YOU HAVE REVISION »,
YOU HAVE

THIS

MO301-YA

b —d D b ek = D NN SN
AN EBINN
O

NOTE:

[N THE SWITCH REGISTER.

TO AN OCTAL

THE

REVISION A

(I.E.

. (

I.E.

USE

SWR

SETTING)

16 SETTING)

CRC AND LPC FOR NEW VERSICNS ARE KNCWN BUT

NOT IN THE ABOVE TABLE,
AND ANSWER THE TELETYPE

vI71,

THE SOFTWARF SWIT(H REGISTER wilLL BE

THE SWITCH REGISTER (HARDWARE OR SOF TWARE) [S USED TO SELECT
THE VERSION OF THE ROM BOOTSTRAP
TO BE TESTED
ACCORDING TO THE FOLLOWING TABLE., NOTE: THESE SETTINGS ARE

N =Dt d

b edmd ok od p =

NANENN 2O

NIV ALNINLNININ
POND

PROGRAM OPT JONS

THE PROGRAM AUTOMATICALLY (HECKS FOR THE PRESENCE OF
A HARDWARE SWIT(H REGISTER.
IF NO RESPONSE IS FOUND WHEN
ADDRESSING THE HARDWARE SwR (177570), THE ADDRESS

200
201
202
203
206
205
206
207
208

30A(1052)

17=APR=7% 10:12

SET THE
DIALOG.

SWIT(H REGISTER

TO 2ERC

JMAIN.
MACYTY 30A1052)
17-APR=79
17=APR=79 10:12
(ZMIAE .°11

10:74

PAGE

SEQ (006
TO DETERMINE

THE

CRC

LPC PROVIDED

THE

TEST

ANC (P(

FOR A NfW VERSION.

START

THE DIAGNOSTIC AT 200 WwITH SWR=0. ANSWER 0 TO THE
REGUESTS FOR THE LPC AND (RC. THE RESULTING MESSAGES
wiLL INDICATE THE CORRECT FUTURE RESPONSES FOR (R(C AND

2.3.2

IS RUN ON A KNOWN-GOOD MODULE.

TELETYPE DIALOG
SEVERAL QUESTIONS ARE ASKED OF
TO OBTAIN SUFFICIENT

THE OPERATOR

INFORMATION FOR

N ORDER

TESTING A ROM MODULE

NOT PREVIOUSLY SUPFORTED IN THE DIAGNOSTIC.
THE DIALOG
[S INITIATED IF THE PROGRAM [S STARTED WITH THE SwR
0.
ALL

RESPONSES ARE

IN OCTAL

ALL

RESPONSES ARE

CHECKED FOR VALID OCTAL

CARRIAGE RETURN.

AND

TERMINATED BY A

NUMBERS.

IF AN ILLEGAL CHARACTER IS YYPED, THE PROGRAM WILL
A """, CARRJAGE RETURN-LINE FEFD AND

AWAIT

THE

PROPER

IF A MISTAKE

INPUT.

IS NOTICED BEFORE

TO TERMINATE

THE

INPUT,

THE

A RUBOuLT

USED TO DELETE MISTYPED INPUT.
1.
TYPE CRC VALUE:
THIS REQUESTS THE VALUE OF

PREVIOUSLY

THE

CALCULATED

TYPE LPC VALUE:

WILL BE

VALUE

TYPE

FOR

THE
THIS

CARRIAGE RETURN IS USED

(AN BE

CYCLIC REDUNDANCY CHE (K
VERSION OF THE ROM MODULE.

AGAINST WHICH THE UNIT UNDER

COMPARED.

TEST'S (RC

THIS REQUESTS THE VAULE OF THE LONCITUDINAL PARITY (hECK
PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE.

IS THE VALUE AGAINST WHICH THE UNIT UNDER TEST'S LP(

TYPE STARTING ADDR.

WILL BE

COMPARED.

1ST ROM ADDR.

SPACE:

THIS QUESTION REFERS TO THE FACT THAT THE ROM SPATE N
AROM BOOTSTRAP MODULE IS DIVIDED INTO 2 DISTINCT ADDRESS
THE STARTING ADDRESS OF THE 1ST RANGE OF ADDRESSES.
THE

STANDARD M9301

SPACES.

& M9400 BEGIN AT "73000.

4.
TYPE LENGTH (BYTES) OF 1ST ROM ADDR. SPACE:
THIS REQUESTS THE LENGTH OF THE 1ST GROUP Of ROM ADDRESSES

IN BYTES.
THE
OF 1000 BYTES.

USED BY

STANDARD M9301 & M9400 HAVE AN INITIAL ADDRESS SPA(F
If THIS SECTION OF ADDRESSES IS NOT

THIS VERSION, ANSWER O TO THIS QUESTION.

TYPE STARTING ADDR.

THIS REFERS

TO THE

OF 2ND ROM ADDR.

FIRST ADDRESS

IN THE

SPACE:

SECOND DJSTINCT

GROUP OF ROM ADDRESSES.
THE RESPONSE FOR A STANDARD
M9301 & M9400 wouLD BE 165000,
6.
TYPE LENGTH (BYTES) OF 2ND ROM ADDR. SPA(CE:
THIS REQUESTS

IN BYTES.

THE

TYPE

THE

LENGTH OF

THE

STANDARD M9301

2ND GROUP OF

ROM ADDRESSES

& M9400 HAVE A SECONC ADDRESS SPA(E

32
%z

MACYTT

0NN
NN O

Z0A(1052)

7=APR=79

17=APR=79 10:1?2

10:14¢

[TV TV IV IV IV IV TOV T 'Y

2.6

SEu 0007
1000 BYTES.

THIS VERSION,

THIS SECTION OF

ANSWER O

ADDRESSES

THIS QUESTION.

IS NOT ,S¢D

EXECUTION TIMES

—

)

el il

PAGE 8

THE

ONCE
THE

DIAGNOSTIC

THE

(OMPLETES

PROGRAM WwILL

UNDER APT

PASS

IN LESS

THAN

INPUT DIALOG HAS BEEN COMPLETED.
HALT

UPON COMPLETION.

THE PROGRAM WILL

CYCIE

HOWE/ER,

CONTINUOUSLY.

SEZ.,
[F

RUNNING

17=APR=79
MAIN,
MACYTT 30A(1052)
(ZMIAE P11
17-APR=-79 10:12

10:14

PAGE 9

SEC 0008

3.0

ERROR

INFORMAT!ON

WHEN THE DIAGNOSTIC DETECTS A DISCREPAN(CY BETWEEN THE
EXPECTED AND COMPUTED CRC OR LP(C BOTH ARE PRINTED
ON THE TELETYPE.
ANY DISCREPANCY IN
PROBLEM TO THE ROM

THE
IC.

LPC

CAN ASSIST

ISOLATING

THE

UNDER APT THE ERROR IS INDICATED BY DEPOSITING ERROR
IN THE APT MAJLBOX BEFORE HALTING.
4.0

PROGRESS

THE

INFGRMAT]ON

REPORTS

END OF

EACH PASS

THE

PROGRAM

INCREMENTS

LOCATION $PASS WHICH IS IN THE APT MAILBOX. THIS
LOCATION WILL ALWAYS CONTAIN THE NUMBER OF PASSES
COMPLETEC.
$PASS IS RESET WITH EVERY RESTART.

THE

ADDITIONALLY, THE MESSAGE “END OF TEST'' IS PRINTED UN THE
TELETYPE AFTER EACH PASS.
NORMALLY ONLY ONE PASS NEEDS
TO RUN TO VERIFY THE MODULE.

5.0

TROUBLE

THE

SHOOT ING

ALGORITHM FOR

COMPUTING

USED ON 9-TRACK MAGNETIC

THE

CRC

THE

SAME

TAPE WITH ODD PARITY.

THE

THAT

CRC IS CALCULATED ON A BYTE-BY-BYTE BASIS.
WHILE iHE
ALGORITHM S SUCCFSSFUL IN DETECTING MULTIPLE ERRORS,
USE AS A DEBUGGING AID IS LIMITED.
THE

LPC

CONSOLE

CALCULATED BY ASSEMBLING

THE

XOR

[TS

EVERY

WORD IN THE ROM.
WHILE ONLY USEFUL IN CATCHING AN
ODD NUMBER OF ERRORS IN EACH BIT FOSITION, IT IS VERY

USEFUL IN ISOLATING THE PROBLEM TO A (HIP.
BY LOCATING WHICH
BIT POSITIONS ARE IN DISCREPANCY, THE CORRESPONDING ROM
CHIPS CAN BE ISOLATED.
If NO OTHER CLUES (AN BE OBTAINED, START THE PROGRAM
AT 210 AND COMPARE THE PRINTOUT OF THE (ODE WITH THE
LISTING FGR THE VERSION BEING TESTED.
N

BECAUSE

THE

CAUTION

CONTENTS READ FROM LOCATION 773024

THE M3301 OPTION IS CONFIGURATION DEPENDANT (SWITCH

REGISTER DEPENDANT), THIS LOCATION IS NOT INCLUDED N
THE DATA (HE(K.
THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING
THE ALTERNATE STARTING ADDRESS(SEE SECTION 2.1.3) 10
PRINT OUT THIS LOCATION.

MAIN,

MACY1Y

(7MIAE P11

30A(1052)

17=APR=7%

17=-APR=79

10:12

10:14

PAGE

376
377

379

’

6.0

LISTING

SEQ 0009

MAIN.
MACY1T 30A(1052)
17-APR=-79
17-APR-79 10:12
CIMIAE .P11

000000

10:14

PAGE

SFG 0010
.ENABLE
LIST
NLIST
$SWR=0
.SBTTL
STACK=
.EQUIV
LEQUIV

000011
000012
000075

HT=

177774
177772
177570
177570

00000
000001
000002
000003

000004

000005
000006
000007
(00006
000007

ABS
ME
MC,MD,CND
BASI(C DEFINIT]ONS

S*INITIAL ADDRESS OF

001100

000200
177776

1100
EMT,ERROR
I0T,SCOPE

THE STACK POINTER #xx 1100 ==
;sBASIC DEFINITION OF
;sBASIC DEFINITION OF

J*MISCELLANEQUS DEFINITIONS
11

LF=
CR=
CRLF=
PS=
.EQUIV
STKLMT=

12
15
200
177776
PS,PSW
177774

DSWR=
DDISP=

177570
177570

PIRQ=

127772

;:CODE

FOR HOR]ZONTAL

PC-

%0
Z1
%2
%3
%4
%5
%6
%7
%6

Y ¥4

;sSTACK LIMIT REGISTER

; ;PROGRAM INTERRUPT REQUEST REGISTER

. sHARDWARE SWITCH REGISTER
; s HARDWARE DISPLAY REGISTER
; ;GENERAL REGISTER
;;GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER
; :GENERAL REGISTER
2 ;GENERAL REGISTER
;3STACK POINTER

; sPROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

000000
000040
000100
000140
000200
000240
000300
000340

PROPR1PR2=
PR3=

0
40
100
140

J;PRIORITY
;;PRIORITY
;:PRIORITY
::PRIORITY

PRS=
PR6PR7=

240
300
340

;sPRIORITY LEVEL S
;:PRIORITY LEVEL 6
;:PRIORITY LEVEL 7

100000

SW15

C40000
020000
012000
004000
002000
001000
000400
000200

PR4 -

200

LEVEL O
LEVEL 1
LEVEL 2
LEVEL 3

::PRIORITY LEVEL &

;%" 'SWITCH REGISTER'® SWITCH DEFINITIONS

SW14=

swi13=
SwiZ2SW11=
SWw10Sw09=
Sw08=
Sw07=

100000

40000

20000
10000
4000
2000
1000
400
200

TAB

;:CODE FOR LINE FEED
;;CODE FOR CARRJAGE RETURN
;. CODE FOR CARRJIAGE RETURN-LINE FEED
;s PROCESSOR STATUS WORD

;*GENERAL PURPOSE REGISTER DEFINITIONS

ROR1=
R2=
R3R4=
RSR6R7SP=

ERROR CALL
SCOPE CALL

663
644

445

646

W47
448
449

000100
000040
000020
000010
000004
000002
000001

450
65
452
453
454
455
456

457

458
459
460
461
462
463
464
465

466

467

468
469
470
L
472
473
474
475
476
477
478

100000

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

479
480
481

482
483
484
485
486
4«87
488
489

490
9N
492
493
494
495
496

000004
000010
000014
000014
000014
000020
000024
000030
000034

SEQ 00N

SW06=

SW09, SW9
Sw08, sw8
SW07,Sw7
SW06, SW6
SWO5, SWS
SWO4, Swé
SW03,Sw3
SW02, Swe
SW01,Sw1
SW00, Sw0

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUlV
.EQUIV
.EQUIV
.EQUIV

;*DATA BIT DEFINITIONS
100000

BIT15=

BIT14=
BIT13=
BIT12=
8IT11=
BIT10=
BIT09=
BITO8=
BIT07=
BIT06=
BIT0S=
BITQ4=
B81103=
8IT02=
BITO1=
B8I1T00=

(BITOO

TO BIT15)

40000
20000
10000
4000

2000

1000
400

200
100
40
20
10

;

8I1T09,8179
BI1T08.8178
8IT107,8117
BIT06,BIT6
BIT05,BITS
BIT04,BIT4
BITO03,BIT3
BIT02,BIT2
BITO1,BIT]
BIT00,B1T70

.EQUIV
.EQUlV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES
ERRVE(= 4
;. TIME OUT AND OTHER ERRORS
RESVEC
10
;;RESERVED AND ILLEGAL INSTRUCTIONS
TBITVE
TRTVE(

nen

642

10:14
PAGE 12
BASIC DEFINITIONS

=14
14
14

BPTVE(C
JI0TVEC
20
PWRVE(= 24
i

MACYi1 30A(1052)
MAIN,
17-APR-79
(IMOAE.P11
17-APR=-79 10:12

EMTVEC- 30
TRAPVE(-34

3T BlT
;:TRACE TRAP
; JBREAKPOINT TRAP

(BPT)

;s INPUT/0UTPUT TRAP (I0r) »«S(QPEx»
; ;POWER FAIL
;EMULATOR TRAP (EMT) w~*ERROR»+

LMAIN,
MACY11 30A(1052)
17-APR=-79
CZMGAE . P11
17-APR=79 10:12

10:14
PAGE 13
BASIC DEFINITIONS

SEQ 0012

497
498
499
500

000060
000064
000240
000000

TKVEC=
60
TPVEC=
64
PIRQVE(=240
.=0

503
504
505

000000

.=0
J*ALL UNUSED LOCATIONS FROM 4 =~ 776 CONTAIN A ''.+2, HALT"
;*SEQUENCE TO CAT(CH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=174
DISPREG: .WORD
O
2 2SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
O
2 :SOFTWARE SWITCH REGISTER
.=200

28;

506
507
508
509
510
511
512

513
glg

000174
000176
000200

000204
000210
00021G

516

526
527

005067

000167
012757
000167

000624

000666
000001
000654

TRAP CATCHER

CLR

000612

001000
177570
177570
173000
001000
165000
001000

001014
001016

000000
000000

001024
001026
001030

0C0000
000000
00C000

START
#1,TYPOUT
START

PS=177776

000034
00100C
001002
001004
0C1006
001010
001012

TYPOUT

JMP
MOV
JMP

177776

g}g
519
520
521
522
523
524
525

000174
000000
000000
000200

.SBTTL

2. TTY KEYBOARD VECTOR
;. TTY PRINTER VECTOR
;. PROGRAM INTERRUPT REQUEST VECTOR

TRAPVE(C=34

.=1000
SWR:
177570
DISPLAY:
ROMSA1: 173000
DATLN1: 512.
ROMSAZ2: 165000
DATLNZ: 512.

177570

XORS:
EXCRC:
EXtPC:
ACTCRC:
ACTLPC:
PARCNT:
TYPOUT:

0
0

2§g

.SBTTL

ACT11 HOOKS

536

AR R

537
538
539
540
541
542
543

;HOOKS REQUIRED BY A(T11
$SVP(C=,
.46
$ENDAD
.=52
.WORD
O
.=$SVPC

528
529

530
531
g%g

001020
001022

000046

000052

gzg

000000
000000

001032
000046
(02060
000052
000000
001032

546

552

A AR AR

AR AR A AN R AN R A AN AR N

R R AR R AR AN AR AN R AR AR AR

AR N R AN

AR NN R RN NI NN AN

s SAVE PC
2o1)SET LOC.46 TO ADDRESS OF

000024

001032
000024
000200

0000U44

JEX=,
.24
200

.44

A AR AN

$ENDAD

;32)SET LOC.52 1O ZFRO
;2 RESTORE PC
R AR R AR AR AR R AR AR AR AR S KA RR AR AR RN RN N

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

548

549
550
551

O
Q
O

.SBTTL APT PARAMETER BLOCK

547

0
O

AR AR AR AR AR AR R R AR R R AN A A AN R AR RN KRR AR AR AN

;cSAVE CURRENT LOCATION
2;SET POWER FAIL TO POINT TO START OF PROGRAM
;.FOR APT START UP

;;POINT TO APT INDIRECT ADDRESS PNTR.

A %S

IN .$EQP

MACYTT1 30A(1052)
17-APR=-79
17-APR=-79 10:12
P
000044

10:14

PAGE

APT PARAMETER BLOCK

001032
001032

$SAPTHDR ;;POINT

.=, 8X

SEQ 0013
TO APT HEADER BLOCK

s sRESET LOCATION COUNTER

NN AR AR NN AN R AR R

R AR RN AR

R R R R R RN RANNNARRR SRR AR AN

JSETUP APT PARAMETER BLOCK AS DEFINED

IN THE APT-PDP11

JINTERFACE SPEC.
001032
001032
001034
001036
001040
001042
001044

$APTHD:

000000
001046
000002
000002
000000
000014

$HIRTS:
$MBADR:
$TSTM:
SPASTM:
SUN]TM:
.SBTTL
PN

AMSGTY

AFATAL
ATESTN

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

005067
005067
012767

177746
177749
000001

001114

012706

000500

001120
001126
001134
001142

012737
012737
012737
012737

004570
000340
004412
000340

000034
000036
000024
000026

001150
001154
001162

013746
012737
012767

000004
001210

00G004

177570

START:

177736

177610

RUN TIME

1ST PASS ON 1 UNIT

(SECS)

A PASS

(QUICK VERIFY)

FOR FACH ADDITIONAL

; ;APT MAILBOX
: sMESSAGE TYPE CODE
; ;FATAL ERROR NUMBER
;s TEST NUMBER
: sPASS COUNT
;;DEVICE COUNT
22170 UNIT NUMBER
s :MESSAGE ADDRESS
s sMESSAGE LENGTH

;sAPT ENVIRONMENT

.SBTTL

TABLF

; ;ENVIRONMENT BYTE
;- ENVIRONMENT MODE BITS

;sAPT

SWITCH REGISTER

;s USER SWITCHES

.. CPU TYPE ,OPTIONS
BITS 15-11=(PU TYPE

11/70=06,PDQ=07,0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT

SETEND:
JMEXIT

0010/6
001102
001106

;ADDITIONAL

TEST

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

. %

001076

LONGCST

;;RUN TIME IN SECS. OF

AR AN R AN R RA AR AR AANRA R AR ARRRRAARNRARRRARRAA
RN ANAANANRA AR ARRRAN RN AR

;oRUN TIM OF

000
000
000000
000000
0G0000

2
2
0

R AR

;.TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
; ADDRESS OF APT MAILBOX (BITS 0-15)

S$ETEND-SMAIL/2 ;.;LENGTH MAILBOX-ETABLE (WORDS)
APT MAIL BOX-ETABLE

.EVEN
$MA]L:
$MSGTY: .WORD
: .WORD
$FATAL
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUN]IT:
. WURD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
$ENV:
BYTE
$ENVM:
.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

000000
000000
000000
000000
000000
000000
000000
000000

0
MAIL

001046
001046
001250
001052
001054
001056
001060
001062
001064
001066
001066
001067
001070
001072
001074

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

RN NN

DIAGNOSTIC

CLR
CLR

$SFATAL

;CLEAR ERROR NO.

$MSGTYP
;CLEAR MESSAGE TYPE
MoV
#1,8TESTN
;SET TEST NO.
INITIALIZE THE COMMON TAGS
MoV
#500,SP
;;SETUP THE STACK POINTER

s INITIALIZE A FEW VECTORS
MOV
MOV
MOV
MOV

#STRAP ,Q#TRAPVEC

MOV
MoV
MOV

Q#ERRVEC,=(SP)
#64S ,AMERRVEC

(APT)

;;TRAP_VECTOR FOR TRAP CALLS

#340,a#TRAPVEC+2,;LEVEL 7
#SPWRDN, a#PWRVEC ;.POWER FAILURE VECTOR
#3460, Q4PWRVEC+2 ; LEVEL 7

;:S51ZE FOR A HARDWARE SWITCH REGISTER.

IF NOT FOUND OR IT IS
;;EQUAL TO A "'~1'', SETUP FOR A SOF TWARE SWITCH REGISTER.
#DSWR, SWR

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
;.SETUP

FOR

A HARDWARE

SWICH REGISTER

UNIT

17-APR=-79
MACY11 30A(1052)
17-APR=79 10:12
PN

012767
022777
001012
000403
012716
000002
012767
012767
012637
005067
132767
001403
012767
026727
001402

177570
177777

10:14
PAGE 15
INITIALIZE THE

177604

00017¢
000174
000004

177554
177550

177612
000200

1776°7

001070

177520

176556

002060

122767

SEQ 0014
;:AND

2-1,35WR

J.TRY

TO REFERENCE HARDWARE

64%:

B8R
MOV

659%

€5%:

MOV

66%:

67%:

104401

001441
005767
001012

COMMON TAGS
#DDISP,DISPLAY

005276
123727
001003
012767
017700
001424
006300
016067
016067
016067
016067
016067
016067
000450
005767
001045

MOv
(MP
BNE

177574

001216

RT]

6693

#65%, (5P)

HARDWARE

DIZPLAY

;;AND

THE

HARDWARE

SWR

[S NOT

J;BRANCH IF NO TIMEOUT

LR
118
BEQ

HAPTSIZE ,$ENVM

$PASS

;:CLEAR PASS COUNT

67%

o YES,USE NON=-APT SWIT(H

#SSWREG, SWR

= -1

J:SET UP FOR TRAP RETURN

MOV

SwR

JcBRAN(CH [F NO TIMEOUT TRAP O{CURRED

#SWREG, SWR
;;POINT TO SOF TWARE SWR
ADISPREG,DISPLAY
(SP)+ @#ERRVEC
,RESTORE ERROR VECTOR

MOV

;. TEST USER

SIZE

UNDER

APT

;cNO,USE APT SWIT(H REGISTER

(MP
BEQ
TYPE

42 ,ASENDAD
RESTRT

JACT AUTO MODE?
JYIF SO: BR

(MPS

176,46

;IS SOFTWARE SWIT(H REGISTER -6?

#SWREG, SWR

JIF

NOT,

JIF

SO USE

ggTIN

;IF

ZERO:

TITL

000176

vJ0GCs6

000176

177466

177462

004714
004644
004766
005036
005105
005156

177470
1774660
1774462
177432
177432
177422

176446

000001

RESTRT:

1%:

MOV

ST2:

ASL

aSWR, RO

TXLPC(RO) ,EXLPC
TXCRC(RO) ,EXCRC

TDLN1(RO) ,DATLNI1
TRMSA1 (R0O) ,ROMSA1

TDLN2(RO) ,DATLN?

TRMSAZ2(R0O) ,ROMSA2

GETIN:

T1ST

177462

CHECK
42
CHECK

THE

GET

SOFTWARE

3WITCH REG

[INPUT

SFETCH EXPECT. LPC
JFETCH EXPECTED CRC

JFETCH 1ST LENGTH
JFETCH 1ST STARTING ADDR.

JFETCH 2ND LENGTMH

JFETCH 2ND STARTING ADDR

;GO COMPUTE
JUNDER ACT AUT ACCEPT?
;IF SO; BR USE DEFAULT PARAMETERS

JUNDER APT?

TYPOUT

;ROM TYPE

JIF SO:

(SP)+ EXCRC

JSTORE

EXPECT.

(SP) + ,EXLPC

:STORE

GET?2

104401

:GET SWR

#1,SENV

CHECK

177416

TEST NORMALY

;IF

SO: BR

OPTION

005311

104407

012667
104401

177370

005335

104407

012667

104401
0n5515
104407

012667
104401

177360

177332

GETZ:

TYPE

104407

LPC

INPUT

CRC

REQUEST

EXPECTED LPC

JREQUEST 1ST ADDRESS SPACE
(SP)
+ ,ROMSA1

INPUT

JREQUEST LENGTH OF

005655

012667

JTYPE

177322

{SP)+ DATLNI

s INPUT LENGTH

1ST ADDR.

SPAC(E

JMAIN,
MACYT 30A(10 52)
17=-APR=-79
17=-APR=79 10:12
(ZMSAE .P11

665

10:14

PAGE

104401

TYPE

005575

666

667

104407

012667

668
669
670

104401

RDOCT

177312

MOV

TYPE

104407

012667
005767
001402

000167

676
677

005067
005067
016700
001413
016701
004767
016701
016700
006200

678
679

004767
016701
016700
001422
004767

016701
016700
006200
004767
122767

001403
005767
001402
000167
026767
001431

177314

(HE(K:

000660
177274

1¢:

177272
177250

177240
000324
177230
177226

000556

177216
177214

CHO:

177200
177176

000522
000001

177146

104402
104401

005430
016746
104402
026727
001404
122767

001007
012767
012767
000000

001736
001744
001746

026767
001431
104401

BEQ
JMP
CLR
(LR
MOV
BEQ
MOV
JSR

MOV
MOV
ASR
JSR
MOV
MOV

MOV

MOV
ASR

JSR

177236

176204

000656

RDOCT
MOV
TST

BEQ
JSR

000270

177150

1%:

(H1:

104401

005361
016746

(SP
+ ,ROMSA2
)

SIZE2

177302

(SP)+ ,DATLNZ

TYPOUT

TYPROM
ACTCRC
ACTLPC

DATLN1,RO
CHO

ROMSA1 ,R1
PC,CRC
ROMSA1,R1
DATLN1,RO
RO
PC.LPC
ROMSAZ ,R1

DATLNZ RO
(H1

PC,CRC

ROMSA? ,R1

DATLNZ RO

RO
PC,LPC
#1,SENV
1%

ADDR.

FOR ZND

JREQUEST LENGTH OfF

2ND SPACE

;INPUT LENGTH

;1S TYPOUT REQUESTED?
sBRANCH [F NOT

;GO TYPE OUT POM
sCLEAR STORAGE FOR ACTUAL C(RC
:CLEAR STORAGE FOR ACTULAL LPC
sSET LENGTH OF 1ST ROM SPACE
;IF NO VERSION SELECTED:
BR
;POINT TO START OF 1ST ROM SPA(CE
;sCOMPUTE FIRST HALF OF (RC
JPOINT TO START OF 1ST ROMTM ADDRS.
;sSET LENGTH OF 1ST ROM ADDRS.
:CONVERT TO WORDS
;COMPUTE FIRST HALF OF (RC

JPOINT

TO 2ND RQOM ADDRS.

sSET LENGTH OF Z2ND ROM ADDRS.
;BR IF THIS SPACE NOT USED
;COMPUTE REMAINDER OF (RC
;POINT TC START OF Z2ND ROM ADDRS.
;SET LENGTH OF 2ND ROM ADDRS.
;CONVERT TO WORDS
;.COMPUTE REMAINDER OF LPC
JUNDER APT?
sIF NOT:

8tQ

;COMPUTED = EXPECTED ?
BR
;1F SO:

JMP
cMP

AUTACT
EXCRC,ACTCRC

TYPOC
TYPE

ACCRMG

SPACE

J INPUT SA

42
CH1

TYPE

177124

START

(MP8
BEQ
TST
BEQ

EXCRMG
MOV

177132

SEQ 0015
JREQUEST

SA2

005735

671
672
673
674
675

INITIALIZE THE COMMON TAGS

BR
;IF SO:
JUNDER ACT AUTO ACCEPT?
BR

;TYPE CRC ERROR MESG.
EXCRC,=(SP)

JPUT EXPECT CRC ON STACK

;TYPE

EXPECTED

;TYPE ACTUAL

ACTCRC,=(SP)

176136

002060

000001

177150

000002
000001

177122
177112

1%:

#2,SFATAL
#1,8MSGTYP

177062

177054

(x1:

ACTLPC,EXLPC

42 ,ASENDAD
1%

#1,8ENV

(K1

(ke

(RC

CRC MESSG

JPUT ACTUAL (RC ON STA(CK

;TYPE ACTUAL

(RC

JUNDER A(CT AUTO MODE?
BR
;IF SO:
JUNDER APT?
BR
J1F NOT:
x*vs
;MOVE TO MAILBOX ERROR NQ.
;SET MAJLBOX FOR FATAL ERROR
;CRC ERROR

., COMPARE EXPT, LPC=ACTUAL LPC
BR
;IF SO:

cTYPE

LP(C

ERROR MESSG.

awes

[,V

MACY11 30A(1052)
17=-APR=79
MATN,
17-APR=-79 10:12
(ZM9AE .P11
721

7¢2

723
726
725

726

727
728

729

730
731
732

733
734

735
736
737
738
739

740

741

742
763
744

745
746
747
748
749
750

751
752
753
754
755
756
757
758

759
760
761
762

763

764
765
766
767
768
769
770
771
772
773
774
775

776

001750
001752
001756
001760
001762
001764
001770
001772
002000
002002
002010
002012
002020
002026
002030
002036
002040
002042
002044
002050
002054
002056
002060
002062
002064
002066
002070
002074
002102
002104
002110
002112
002114
002116
002120
002122
002126
002132
002134
002136
002140
002144
002146
002150
002154
002156
002162
002166
002170
002174
002176
002200
062204
002210

005404
01€746
104402
104401

005453
016746
104402

026727
001404
122767

001007
012767
012767
000000
026727
001402

10:14

PAGE

177042

177G34

002060

000001

177056

000003
000001

177030
177020

18:

176006

002060

(Ke:

177004
000042

177200

176722

622701
001004
005300
005300
005721
000770
004767
004767
000241
006004
103014
052704
000241
010405
042705
005105
042705
042704
050504
010467
005300
00140
000167
016704
005167

173024

111104

00014
000166

177576
176604

176600

EXLPC,=(SP)

176712

ACTLPC,=(SP)

(Mp
BEQ

42 ,#SENDAD

BNE
MOV
MOV

(MP
BEQ

SeQ 0016

sPUT EXPECTED LPC ON STA(K
JTYPE EXPECTED LPC

sTYPE ACTUAL

MOV

HALT

LPC MESSG.

JPUT ACTUAL LPC ON STA(K

;TYPE ACTUAL

LPC

(K2

JUNCER ACT AUTO MODE?
BR
JIF SO:
API?
JUNDER
BR
JIF NOT:
wwte
X ERROR NO.
MAILBO
TO
;MOVE
;SET MAILBOX FOR FATAL ERROR
;LPC ERROR

42 ,#SENDAD

JACT AUTO ACCEPT?

19
#i,SENV

#3, SFATAL
#1,8MSGTYP

BR
JIF 50:
JTYPE END OF

TEST

1%:

$PASS
a4l RO
GOAGIN

JBUMP PASS COUNT
:CHECK APT
KEEP GOING

$ENDAD:

PC., (RO)

SJACT HOOKS

GOAGIN:

RESTRT

CRC:

ACTCRC,X0RS
(R1) ,R4

CLO:

#173024 ,R1

(L3

(Le:

CLLAST:

;GET CHAR.
JLOCATION EFFECTED BY SWITCHES
BR

JIF NOT:

JFIX COUNTERS

.GO GET PARITY

:XOR CHAR
;ROTATE

PCS.

RIGHT

;1F NO CARRY: BR
JSET BIT NINE

R& RS
0;77703,R5
R
#177703,RS
#74 R4
RS.R4
R4 ,XCRS

JSAVE (HAR

#400,R4

;DO AGAIN

JFIX POINTER
s CONT INUE

CLs:

177703
000074
176620

EXLPMG
MOV

(MPB

000400
177703

COMMON TAGS

TYPOC

176044

016767

THE

TYPOC
TYPE
ACLPMG

104401

005476
005267
013700
001405
000005
004710
000240
000240
000240
000167

INITIALIZE

RC
CLLAST

(Lo

X0RS ,R4
XORS

BR
sIF LAST CAR,:
JGET NEXT (KAR.

aven

MAIN,

MACY11

{ IMIAE .F11
77?7

778

779

780

781
782
783
784

785

786
787
788
789

790

791
792
793

D
d
b —ed
b —d ek

00 NOMN
B NN

00 Do 0o 00 00 0o o

811

819

30A(1052)
17-APR=79
17-APR=79 10:12

002214
002222
002226
002232
002240
002242
002246
002252
002256
002260
002264
002266
002270
002272
002274
002276
002302
002310
002312
002316

042704
032767
001002
052704
000207

002320
002322
002326
002332
002336
002342

010446
0466716
040467
052667
016704
000207

002344
002352
002354

016767
012104

042767
042704
050467
016767
000207
005067
012703
032704
001402
005267
000261
006004
0053C3
001367
112104

002360
002362
002366
002370
002372
002400

022701
001402
004767
005300
001370
016767
000207

002402
002404
002406
002412
002416
002420
002422
002426
002432
002436
002440
002442
002446
002450
002452

006023
016700
016701
006201
001402
004767
016700
016701
006201
001402
004767
104401
005476
000000

002454
002456

006015

177050
177727
176562
176556

PARITY:

(LPO:

176542

177400

(LP1:

(LP2:
XOR:

176466
176462
176456
176452
176454

MOV
RTS
(LR

176442

LPC:
LPC1:

(OMMON TAGS
#177050,X0RS
8177727
R4
R4 ,XORS

LPCZ:

;COMPLEMENT ALL BUT BITS 38 5

XORS ,ACT(CRC

PARCN~

Ré

JROTATE TO NEXT BIT

CLPO

;CONTINUE FOR ALL BITS

BIT

#1,PARCNT

JSEE IF ODD # OF ONE BITS
B8R
JIF SO:

RTS

MOV

R4 ,-(SP)
XORS, (SP)
R4 ,XORS
(SP
+ ,XORS
)
XORS R4
PC

8IT
BEQ
INC
e
ROR

BNE
81S

8IC
BIC
BIS

MOV
MOV

PARCNT

#10,R3
21 ,R4

CLPT

(R1)+ R4
#1776400,R4

CLP2

#4L00,R4

ACTLPC,XORS
(R1)+ R4
#173026,R1

LPC2

177732

SEQ 0017

JCLEAR BIT COUNTER
JSET NO. OF BITS
JSEE IF ONE BIT
B8R
;IF NOT:
;BUMP COUNTER

MOV

MOV
RTS

173026

176416

THE

DEC
BNE
MOVR
BIC

176516

000400

BIC
BIC
BIS

176562

176560

00C001

PAGE

INITIALIZE

176572

000010
000001

DEC

176624

P(,XOR
RO

;SET PARITY BIT
SJEXIT

;XOR SUBROUTINE- R4 WITH XORS

cLOCATION EFFECTED BY SWITCHES

;IF

SO:

SKIP LOC. BY BRANCHING

LPC1

XORS ,ACTLPC

104401

10:14

TYPROM:

TYPE

176372
176370

00002¢
176356
176354

00000¢

: TYPE

ROMSA1,R0
DATLN1 ,R1
R1

TYPR1:

MOV

TYPR1
PC,TYP
ROMSAZ2,RO

DATLNZ,R1

R1
ENDOT

ENDOT:

TYPE

TYP:

TYPE

PC,TYP

HEADER

JPOINT OT 1ST ROM SPA(E
JPUT LEANGTH IN R1
;CONTERT TO WORDS

JBRANCH [F

1ST ROM SPACE NOT USED

;GO TYPE 1ST ADDR. SPACE
;POINT 10 2ND ADDR. SPACE
JPUT LENGTH IN R1
;CONVERT TO WORDS
;BR IF 2ND ADDR. SPACE NOT USED

2GO TYPE 2Nl ADDR.

SPAC(E

MACY11 30A(1052)
17=-APR=79
MAIN,
17-APR=-79 10:12
(ZMIAE P11

002460

000403
032700
001006

10:14
PAGE 19
INITIALIZE THE

000003

TYPO:

104401

TYP3:

006015
010046

TYP?:

104402
104401

104401

002612
002614
002616
202624

002432

BNE

cADDRESS MULTIPLE OF

TYP?

TYPE
CARLF
MOV

;IF

RO,=(SP)

COLON
MOV

AUTACT:

000002
005226

177777

004644

1762564

000042

002060

005226

000002

004644
004714
177124

176216
176212

AUT1:

AUTERR:

000001
000001

ADD
(MP

17 6224
176214
6‘\

.SBTTL

2 SPA(ES

JFINISHED?
;IF NOT:
BR
:RETURN

;BUMP TALBE [NDEX
;CHECKED ALL KNOWN VERSIONS?

BNE
CMP

#2 RO
TMSG(RQ) ,#-1
AUTERR
TXCRC(RO) ,ACTCRC
AUT
a#62 , #SENDAD

¢egE

TMSG(RQ) ,AUT?

JSET UP VERSION MESSAGE

TXCRC(RO) ,EXCRC

JSET EXPECTED CRC

A1 ,$FATAL
#1,8MSGTYP

;MOVE TO MAILBOX ERROR NO.
w**v»
JSET MAJILBOX FOR FATAL ERROR

8EQ

AUT3:

;TYP DATA

CLR

JPUT DATA ON STACK

R1
TYPO

RTS

JPUT ADDRESS ON STA(CK

;TYPE

BEQ
(MP

AUT2:

NOT:

;TYPE ADDR.

(RO)+,=(SP)

TYPOC
TYPE

SP2
DEC
BNE

104401

006064
012767
012767
000000

#3,R0

TYPE

00660
012046

000000
016067
016067
000167

SEQ 0018

TYP3

gIT

TYPOC(

104402
104401

006020
005301
001361
000207
005000
062700
026027
001425
026067
001366
023727
001405
016067

COMMON TAGS

J1F NOT:
KEEP LOOKING
JUNDER ACT AUTO ACCEPT?

AUT3

MOV
MOV
JMP

JIF SO;

TXLPC(RO) ,EXLPC
(K1

TYPE
AUTERM
MOV
MOv
HALT

TTY

JIF SO:
BR
;DOES THIS CRC AGREE?

JSET EXPECTED LPC
JCHECK LPC

JAUTO ACCEPT

FAILED

INPUT ROUTINE

.'"t'l’ti***'Qtttitl’**t*‘fitiit*ltlt!tt'ittfi'fitttttttttttt.tttt.ttt‘

002634
002636

177560
177562

$TKS:
$TKB:
.ENABL

.WORD
.WORD
LSR

.DSABL

LSB

SRR

RA AR AR AN

177560
177562

T A AR AP AR AN

J2TTY KBD STATUS
;2TTY KBD BUFFER

RN AR AN NN RANRR

T ARARNNRARAANRONCRANR
IS I RN

T*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

sxCALL:

RDCHR

RETURN HERE

002640

C11646

$RDCHR: MQV

;o INPUT

SINGLE

;o CHARACTER

IS ON

CHARACTER

J:WITH PARITY BIT

(SP} ,=(SP)

;sPUSH DOWN THE P(

THE

STA(K

FROM

STRIPPED OfF

THE

TrTv

]

swee

MAIN,

MACY11

( IM7AE P17

889
890
891
892
893
894
895
89
897
898

002642
002650
002654
002656

30A(1052)
17-APR=7G
17-APR=79 10:12

016666

105777
100375
117766

042766
026627
001013
105777
100375
117746

042716
022627
001366
000750
026627

002407
026627
002903
042766
000002

10:14

000004
177760

000002

177756
177600
000004

000004
000004
000023

177726

TTY

PAGE 20

INFUT ROUTINE

1$:

MOV

TSTB

8PL
MOVB

2% :

177722
177600
000021

000140

000004

000175

000040

000004

3¢

1$
a$TKB,4(SP)

#AC<IP7> 4 (SP)
L(SP) ,#2%

MOVR

a$TKB,-(SP)

CMP
BNE
BR
CMP
BLT

(SP)+ 421
2
1$
4L(SP) 4140
X

BGT
BIC

4%
#40,4(SP)

BNE
TSTR
8PL

(MpP

A ¥

4(SP),2(SP)

@$TKS

BIC
CMP

BIC

000004

SEQ 0019

RT]

3g
a$TKS
2$

X C177.(SP)

L(SP) ,#175

:-EZIE ROUTINE WILL

i
I

101456
104405
112613
122713

001022
005716
001007
112767
104401

012716
005303
020327
103434
111367
104401

000746
005716
001406

$RDL IN:

003214
003224

RDLIN

108 :

000170

177777

6%:

000144
003212
5% :

000134
003212

122713

000025

001003
104401
000726

2%:

003214

003230

;.LOOP UNTIL ITS THERE
. .GET (HARAC(CTER
J:MAKE IT 7-BIT ASCII
;1S IT A CONTROL=-Q?
;.1F NOT DISCARD IT

J:YES,

RESUME

;218 1T UPPER CASE?
;sBRANCH [F YES

221S IT A SPECIAL (HAR?
;sBRANCH IF YES
c:MAKE IT UPPER (ASF
;.G0 BACK TO USER

MOV
CLR

;:SAVE R3

MOV

CMP
BLOS

MGVB

CMPB

BNE

000124
7%

R3,-(SP)
-(SP)

#STTYIN,_R3

#STTYIN+8.
,R3
4%

(SP)
+, (R3)

#177.(R3)

(SP)

BNE
MOVB
TYPE
MOV

6%
#°'\,9%
,9%
#-1,(SP)

MOVB
TYPE

(R3).9%
.98

DEC
CMP
BLO

BR
TST
BFQ
MOvVB

TYPE
(LR
(MPB
BNE
TYPE

[TY

;s INPUT A STRING FROM THE TTY

; JADDRESS OF

000134
003212

;sBRANCH [F NO
;sWAIT FOR A (CHARACTER

RETURN HERE

RDCHR

112767
104401

005016

1¢:

000177

J:GET RID OF JUNK [F ANY
;1S IT A CONTROL=-S?

INPUT A STRING FROM THE

bR1

010346
005046
012703
022703

THE PS

AR AR AR NN RN RN RN AAAANNRERANNANNRRNNRANRRANANRARANANRNRACTN
AN

;*CALL:

00276C
00276¢

;2 SAVE

JWAIT FOR
;A (HARA(TER
JJREAD THE TTy

FIRST

.JBR IF

YES

;:G0 READ ONE CHARA(CTER FROM THE
;:GET CHARA(CTER
;:1S IT A RUBOUT
;:BR IF NO
;oIS THIS THE FIRST RUBQUT?

JoSET THE RUBOUT KFY

2%
(SP)
7%
#'\,9%

. TYPE A BACK SLASH

JSINTLU

TTY

;sBR IF NO
J:TYPE A BACK SLASH

;.BACKUP BY ONE
;:STACK EMPTY?
2:BR IF YES

J;SETUP TO TYPEOUT THE DELETED (HAR.
;G0 TYPE
;:GO READ ANOTHER (HAR,
:JRUBOUT KEY SET?
J:BR

;:CLEAR THE RUBOUT KEY
;2 1S CHARACTER A CTRL u?
J2BR IF NO
J3TYPE A CONTROL ‘LU’
;:G0 START OVER

ALL 0'S

;.CLEAR THE RUBOUT KEY
;:GET ADDRESS
JJBUFFER FULL?

R3
R3,4$TTYIN
48

,9%
(sP)
#25,(R3)

CHARACTER WILL BE

;o TERMINATOR WILL BE A BYTE OF

THE

STA(K

MACY11

003110
003114
003116
003120
003124
003130
003132
003136
003140
003144
003150

30A(°052)
17=-APR~79
17-APR=79 10:12
122713

000022

105013
104401
106601

003225
003c14

co10M

030717
104401

00712
111367
1046401
122723

~nwa
-~

10:14
PAGE 21
TTY INPUT ROUTINE

8%:

4% :

000046
003,12
000015

3%:

CSTTYIN

;:TYPE

,$QUES
1%
<32>,9s

S:TYPE A "2
;:CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

#15,(R3)+

: ;CHECK FOR RETURN

MOV
MOV
MGV

(SP) +
(SP)+,R3
(SP) ,=(SP)
4(SP),2(SP)
A#STTYIN,& (SP)

::CLEAN RUBOUT KEY FROM THE STACK
::RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF
Iy
FIRST ASCII CHARACTER ON T

.BYTE
.

0
0
8
ll‘}ll

.
.
.

<15>
;CARRIAGE RETURN
<12>
;sLINE FEED
/*U/<15><12>
;o C(ONTROL ‘U
/°G/<15><12>
;;CONTROL "'G'*
<15><12>/SWR = /

TYPE

TYFE

(MPR
BNE
CLRB
TYPE
TST

000002
000004

MOV
RT]
.BYTE

9% :

036440

TYPZ

BR
mOVR

003226

005015
006507
053523
000
047040
000040

::1S CHARACTER A '"*R'"
::BRANCH IF NO
::CLEAR THE CHARACTFR

177777

000004
003214

CLRB

#22,(R3)
3%
(R3)

(MPR
BNE
TYPE

003¢c2¢4

000
000012
020122

$STTYIN:
$QUES:
:
$CRLF
$LF:
SCNTLU:
$CNTLG:
$MSWR:

053505

IMNEW:
LSBTTL
IR

LS$CRLF

INPUT STRING

::LOOP IF NOT RETURN
::CLFAR RETURN (THE 15)
J3TYPE A LINE FEED

THE

:JRETURN

::STORAGE FOR ASCI! CHAR. TO TYPE
: :TERMINATOR
::RESERVE 8 BYTES FOR TTY INPUT
;s QUESTION MARK

NEW =/

READ AN OCTAL

WILL

THE

::GO PICKUP ANOTHER CHACTER

2s
-1(R3)
JSLF

ROUTINE

J;TYPE A 'CR& ‘LF"

AR AN AN AN P A AN

;*THIS

SEQ 0020

NUMBER

R AR

FROM THE

TTY

AR R AR RN RN N RN AR R AN AN NNANNRNARRRARA RS RN

RFAD

AN OCTAL

(ASCII)

NUMBER

FROM

THE

TTY

AND

;*CHANGE IT TO BINARY.
;»THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '"2'' WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-L
INE FEED. THE COMPLETE NUMBER MUST

;*THEN BE

s*CALL:

o
* *

003264
003266

000004

000002

$RDOCT:

1%:

003312
003214

000100

RETYPED.

THE

INPUT

RDOCT

RETURN HERE
MOV
MOV
MOV
MOV
MOV
RDL IN
MOV

(SP) ,=(5F)
4(SP) ,2(SP)
RO,=(SP)
R1,-(SP)
R2,=(SP)

(LR

CLR

(SP)+,R0

TERMINATED BY

TYPING A CARRIAGE RETURN.

. ;READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STA(K
;sHIGH OURDER BITS ARE [N $HIOCT

;sPROVIDE SPACE FOR THE
;o INPUT NUMBER

. <PUSH RO ON STACK

;;PUSH R1 ON STA(K

;¢PUSH R2 ON STACK

;sREAD AN ASCIZ LINE

;.GET ADDRESS OF 1ST (HARA{TER
JoAND SAVE [T
;2CLEAR DATA WCRD

1 /=APR=79
MACY11 30A(1052)
17-APR=79 10:12
P11

003316
003320

122716

000060

122716

006067

Punry
S
S
G
S
GG
S
i

002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010067
012602
012601

O 00 NN N B AN —

2
b
p
D
b ad
-

’$:

112046

001420
003026

oleololeleoleololele)

10:14
PAGE 2?2
READ AN OCTAL

104401

003422

000730
006000

;:IS AN OCTAL DIGIT

5%:

003224

$HIOCT:
.SBTTL

#'0,(SP)
#'7,(SP)

;JMAKE

SURE

THIS CHARAC(CTER

AS,
ROL
ASL
ROL

R1
RZ
R1
RZ

;.2

8IC

#*C7,(SP)

:2STRIP THE ASCII JUNK

2%
(SP)+

;.LO0P
;;CLEAN TERMINATOR FROM STA(CK

ADD

(%:

JsPICKUP THIS CHARACTER

BGT

ASL
ROL

3%:

SEQ 0021

;o
1F ZERO GET OUT

CMPR

000012
000026

(RO)+,=-(SP)

TTY

BLT

177770

NUMBER FROM THE

BEQ

CMPS

012600
000002
005726
105010

000000

MOVR

8R
TST

MOV
MOV
MOV
MOV
MOV
RT]
TST

CLRRB
TYPE

.WORD

TYPE

R1
R2

;:*8

(SP)+ ,R1

R1,12(SP)
R2,SHIULT
(SP)+ ,R2
(SP)+ ,R1
(SP)+,R0

(SP) +

(RO)

,$0UES

BR
1%
.WORD
0
TYPE ROUTINE

J;ADD

IN THIS DIGIT

., sSAVE

THE RESULT

;;POP STACK INTO R2
;1POP STACK INTO R1
:;POP STACK INTO RO
;JRETURN
;sCLEAN PARTIAL FROM STA(K

c;SET A TERMINATOR

J3TYPE UP

THRU

THE BAD

CHAR.

DUUCR R OVLFY

TRY AGAIN
HIGH ORDER BITS GO HERE

. ittttt'tllttt.tt!ttttfl'"Q*Q'*litfit**fi*fitttttttlt*it'ttlttt'flt't

tROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
'TgiE?OUTlNE WILL INSERT A NUMBER OF NULL CHARA(CTERS AFTER A LINE FEED.
:
;=N
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARA(TER.

;*NOTE?:

$FILLS CONTAINS THE NUMBER OF

J*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

.- %

J«CALL:
;%17 USING A TRAP
‘OR

FILLER CHARACTERS REQUIRED.

TYPE

INSTRUCTION

.MESADR

;.MESADR

TSTR
BPL

$TPFLG
1%

;:1S THERE A TERMINAL?
;sBR ]F YES

B8R

FIRST

.- %

i
I

ADDRESS OF

TYPE
ME SADR

003424
003430
003432
003434

003436

003440
003444
003452
003454
003462

105767
100002
000000
000430

010046
017600

122767

001011

132767
001405

000265

$TYPE

HALT

1%:

000002
000001

175414

000100

175405

MOV

MOV
(MPB

BNE
BITR
BEQ

RO,=-(SP)

@2 (SP) ,R0
#APTENV, SENV

JoHALT MERE

. s LEAVE

TERMINAL

J:SAVE RO

;.GET ADDRESS OF ASCIZ STRING
;;RUNNING [N APT MODE

62%
J:NO,GO CHECK FOR APT (CONSOLE
#APTSPOOL ,$ENVM ; :SPOOL MESSAGE 1O APT
62%
;.NO,GO CHECK FOR C{ONSOLE

AN AS(CIZ

STRING

-MAIN,
MACY11 30A(1052)
17-APR-79
CZMQAE .P11
17=-APR=79 10:12
1057
1058

003464
003470
003474
003476
003504

010067
004767
000000
132767
001003

1064
1065
1066

003512
003514
003516

005726
012600
062716

000002

1068

003524

12276

0Q0C0M1

1059
1060
1061

1062
1063

067

1069
1070

1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085

}83?

003506
003510

003522

003530
003532

000004
(CC0230
000040

175363

112046
001005

000002

001430
122716

003536
003540
003542
003544
003546
003552
003554
003560
003564
003566

001006
005726
104401
0032¢5
105067
000755
004767
126726
001350
016746

003572
003576
003600
003604

105366
002770
004757
105367

003610

10:14
PAGE 23
TYPE ROUTINE

000770

2%:

003612
003616
003622
003630
003632

1096
1097
1098
1099

003636
003642
003644
003652

;}8;
1109
1110
1111
1112

6%:

000120

7%:

000032

000072

003634

003660
003662
003666
003670
003676
003700
003702

003704

003706
003710
003712
003713

112716
004767
132767
001372
005726
000724
105777
100375
116677
122766
001003
105067
000406
122766
001402
105227
000000

000207

177564
17756¢
000
002

000040
000014
000007

000052

000002
000015
000014

000012

000002

;JYES,SKIP TYPE QUT

. .PUSH (HARACTER TO BE TYPED ONTO STACK
JeoR IF IT ISN'T THE TERMINATOR

(MPB

#HT, (SP)

;:BRANCH IF

<HT>

BEQ
(MPR

8%
#CR_F,(SP)

JsBRANCH

NOT <(CRLF>

BNE
TsT
TYPE
$CRLF
CLRB
BR
JSR
CMPR
BNE
MoV

5%
(SP)+
$CHARCNT
2%
PC,$TYPEC
$FILLC,(SP)+
pd 3
SNULL ,=(SP)

DECR
B8LT
JSR
LECB

1(SP)
(5%
PC,$TYPEC
$CHARCNT

;o
1F TERMINATC POP IT OFF
;JRESTORE RO

::RETURN

THE

STACK

;:POP
<CR><LF> EQUIV
;3TYPE A CR AND LF
;sCLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
;G0 TYPE THIS CHARACTER
;oIS IT TIME FOR FILLER CHARS.?
;o
1F NO GO GET NEXT CHAR.
;.GET # OF FJLLER CHARS. NEEDED
csAND THE NULL CHAR.
;.DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NJLL OFF OF
::G0 TYPE A NULL
.:DO NOT COUNTTM AS A COUNT

STACK

;. LO0OP

TAR PRCCESSOR

MOVB
JSR
BITR
BNE
1ST

$TYPEC:

000036
000002

. sMESSAGE ADDRESS
;:APT (CONSOLE SUPPRESSED

::ADJUST RETURN P(C

RT1

B8R

000044

(RO)+,=-(SP)
4%

;s SETUP MESSAGE ADDRESS FOR APT
.. SPOOL MESSAGE TO APT

ADD

B8R

8%:
9% :

RO,61%
PC,$ATY3
0
NAPTCSUP,$ENVM
608
(SP)+
(SP)+ RO
#2,(SP)

;HORIZONTAL

1090
1091
1092
1093
1094

1100
1101
1102
1103
1104
1105
1106

MOVR
BNE

3%:

5%.
6%:

000001

.WORD
BITBR
BNE

TST
MOY

000130
000056
000130

MOV
JSR

60%:

000200

}828

1095

61%:
62%:

SEQ 0022

TSTB
B8PL
MOVR
(MPR
BNE
CLRR
BR
1%:
(MPB
BEQ
INCB
$CHARCNT
. WORD
:

#' ,(SP)
PC,$TYPEC
#7,$CHARCNT
152 3
(SP)+

2$TPS
$TYPEC
2(SP) ,a%TPR
#CR,2(SP)

. JREPLACE TAB WITH SPACE
;:TYPE A SPACE
. ;BRANCH |F NOT AT
;. TAB STOP
. .POP SPACE OFF STACK
J:GET NEXT CHARACTER
JsWAIT UNTIL PRINTER IS READY

$TYPEX: RTS

1%
$CHARCNT
$TYPEAX
#LF,2(5P)
$TYPEX
(PC)+
O

;:;LOAD CHAR TO BE TYPED |NTO DATA REG.
;2 1S CHARACTER A CARR!AGE RETURN?
;;BRANCH IF NO
s YES==CLEAR (HARACTER COUNT
JIEXIT
;.1S CHARACTER A LINE FEED?
;J:BRANCH IF YES
;. COUNT THE CHARACTER
. s CHARACTER COUNT STORAGE

$TPS:
$TPR:
$NULL:

177564
177566
0

;:TTY PRINTER STATUS REG. ADDRESS
;oTTY PRINTER BUFFER REG. ADDRESS
;o CONTAINS NULL CHARACTER FOR FILLS

J;CONTAINS # OF

$FILLS:

.WORD
.WORD
.BY'E
.BYTE

FILLER CHARA(TERS REQUIRED

g&goooo«mmmmmmmmmmbJ\l\x\x\t\l\bbbwwwg
WN =2 OV
NOWVNE WOV
NN WNI=SOV0~N
NN
—
WflWWWSNNNNNNNNf\"\)—a_l—l—l_a_a_a
»2>
v
VOO NSNS
OV NN W M.

30A(1052)

17-APR=-79

17-APR-79 10:12

10:14
PAGE 24
TYPE ROUTINE

003714
003715

012
000

003716
003724
003732
003734

112767
112767

000001
000001

000236
000226

iATY1:

MOVB
MOVB

112767

000001

000220

$ATYS:
$ATY(:

MOVB

$FILLC:
$TPFLG:
.SBTTL

000403

010046
010146

MOV
MOV
TSTR

;:;T70 REPORT FATAL ERROR
;.70 TYPE A MESSAGE

RO,=(SP)
R1,-(SP)
SMFLG
5%

;sPUSH RO ON STA(CK

;2JF NOT:

;. TO ONLY REPORT FATAL ERROR

;sPUSH R1 ON STA(K
;2 SHOULD TYPE A MESSAGE?

000001

175104

HAPTENV, SENV

000100

175075

000004
000002

000004

g:PTSPOOL,SENVM ;s SHOULD SPOOL MESSAGES?
;;IF NOT:
BR
94 (SP)
RO
;2GET MESSAGE ADDR.
#2,4(SP)
;;BUMP RETURN ADDR.
SMSGTYPE
;3SEE IF DONE W/ LAST XMISSION>
19
WAIT
J2IF NOT:
RO, $MSGAD
;.PUT ADDR IN MAILBOX
(RO)+
JoFIND END OF MESSAGE

001425
317600
062766
0C0S767
001375
010067
10572C
001376
166700

006200
010067
012767
000413
017667
062766
016746
004767
000000
105767

001416
005767
001413
005767
001375

175034

175042

175026

000004

175002

000004
00000¢
173710
177332

000016
000004

TST

2%:

TSTR

3%:

4%:

5¢%:
10%:

000062

174732

.WORD

000004
000002

11%:

BNE

174724

MoV
ADD

000004

12%:

$MFLG:
$LF_G:
$FFLG:

0002C0

MOV

174760

000020
000013
000006

1%:

175032

174710

O
oo~

B8R

#1,8FFLG
#1,8MFLG
SATY(
#1,8FFLG

122767
001031
132767

001450

e R
R
e
R

$ATYS:

000206

d e —d ed —b e

12
.BYTE
;o INSERT FILL CHARS. AFTER A "LINE FEED''
.BYTE
; ;" 'TERMINAL AVAILABLE'' FLAG (BIT<07>-0=YES)
O
[
APT COMMUNICATIONS ROUTINE

105767

I
— e

SEQ 0023

'"l’t’fit'ttttt"*fi*tttttflQi.tt.ttfit't*'tiflQfittttttfit'tt.'tt‘ttittt

d —d

s e s e e e Rt

b ed v

sY O

b e

YO YU SRS W W

QS YN SIS YU W

D e e

)

S R W Y

D e

QS YU W

) e ed D

sW Y

D D

D ad

)

b d

b D

D ed

i
S W Y

MACY11

INC

CLRB
(LRB
CLRB
MOv
MOV
RTS

.BYTE
.BYTE
.BRYTE
.EVEN
E

APTSI2E=200

;s
1F NOT:
B8R
. ;OPERATING UNDER AFT?

$MSGAD RO
RO
RO, $MSGLGT

gg.SMSGrvPE

;.SUB START OF MESSAGE
;:GET MESSAGE LNGTH [N WORDS
;2PUT LENGTH IN MAILBOX
J;TELL APT TO TAKF MSG.

@4 (SP) 4%

::PUT MSG ADDR

177776,-(SP)
SC.STYPE

::PUSH 177776 ON STACK

$FFLG
12%
$ENV
12%
$MSGTYPE
118
@4 (SP) ,$FATAL
#2,4(SP)
SMSGTYPE
$SFFLG
SLFLG
SMFLG
(SP)+ ,R1
(SP)+,R0O

. 2SHOULD REPORT FATAL ERROR®

#2,4(SP)

0
0
0

IN JSR L INKAGE

- -BUMP RETURN ADDRESS

S:CALL TYPE MACRO

;21F

NOT:

JsRUNNING UNDER APT?

BR
.21F NOT:
ssFINISHED LAST MESSAGE?

J1F NOT:

WALT

c:GET ERROR #
;sBUMP RETURN ADDR.
J:TELL APT TO TAKE ERROR
;2CLEAR FATAL tLAG
;:CLEAR LOG FLAG
. :CLEAR MESSAGE FLAG
. sPOP STACK INTO R1
;:POP STACK INTO RO

J ;RETURN

. :MESSG. FLAG
;:L0G FLAG

:sFATAL

FLAG

MAIN.

MACY1T

(ZMIAE .P11

17-APR=-79

10:14

000001
000100

D
b

B8R RN 8RR R RER B IIINININY

1169
1170

30A(1052)

17-APR=-7% 10:12

D
d
D d
e e

APTCSUP-040
.SBTTL
BINARY TO OCTAL

) o
d e

;*THIS ROUTINE

AND TYPE

iS USED

TO CHANGE

16-BIT BINARY NUMBER

TO A 6=DIGIT

d D )
e o

d
D

;*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
;eoCALL:

MOV

NUM, - (SP)

::NUMBER TO BE

.BYTE

JoN 1

b D e
d el d

d
d

TYPOS

.BYTE

::CALL

;:M=1T

b d
D e

FOR

DIGITS

10 TYPE

TYPED

TYPEOUT

TO 6 FOR NUMBER OF DIGITS T~ TYPE

OR O

;:1=TYPE LEADING ZEROS

;:0=SUPPRESS LEADING ZEROS

D
)
D md e

:+$TYPON--=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

J*$TYPOS OR $TYPOC
;*CALL:

D d e
e ed d

I
o

MOV
TYPON

NUM,-(SP)

d
d

;*$TYPOC~==ENTER HERE
;«CALL:

d ed e
d e e

—
d D
— el

1200
1201

004202
004206

062716
000406

1220
1221
1222
1223
1226

(ASCII)

.'"tt.'.t..".fii".tt.'i"..Qttttt'.tfififit"t..!...ttttt.Qt.tt'....

017646
116667

1206
1207
1208
1209
1210
1211
1212
1213
1216
1215
1216
1217
1218
1219

SFQ 0024

APTENV=001
APTSPOOL=100

000040

004164
004170

1202
1203
1204
1205

PAGE 25

AFT COMMUNICATIONS ROUTINE

0046176

004210
004216
004224
004232

004234
004236
004240
004244
004246
004252
004256
004262
004266
004270
004272
004274
004276
004300

004302
004304
004306
004312
004314

112667

112767
112767
112767
010346
010446
010546
116704
005404
062704
110467
116704
016605
005003
006105
000404
006105
006105
006105

010503
006103
105367
100016

042703

000000
000001

000207

000211

G00171
000165
000154

MOVB

$TYPOC:

$TYPON:

000006
000132
000125
000012

1%:
’%:

177770

ADD
BR

MOVR
MOVB
MOVR
MOV

MOV
MOV
MOVB
NEG
ADD
MOVR
MOVB
MOV

000145

000076

TYPOC

$TYFOS: MOV
MOVB

000002

000001
000006
000005

MOV

3%:

(LR

ROL
B8R
ROL
ROL
ROL
MCv
ROL
DE(R
BPL
8IC

FOR

JoNUMBER TO BE TYPED
;:CALL FOR TYPEOQUT

TYPEOUT OF

16 BIT NUMBER

NUM, -(SP)

;NUMBER TO BE

a(SP) ,-(SP)
1(SP) ,$0F ILL

;:PICKUP THE MODE
J:LOAD ZERO FILL SWITCH

(SP)+ ,S0MODE+1

#2,(SP)
$TYPON

;s CALL

FOR

TYPED

TYPEOUT

;.NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

”1,30F]LL

csSET

#6, SOMODE + 1
#5,80CNT
R3,-(SP)
R4 ,-(SP)
RS5,-(SP)
$OMODE +1 R4
R4
#6 R4
R4, $OMODE
SOFILL RS
12(SP) RS
R3
RS
3%
RS
RS
RS

scSET FOR SIX(6) DIGITS
;;SET THE JTERATION COUNT
;:SAVE R3
;< SAVE R4
;:SAVE RS
J:GET THE NUMBER OF DIGITS 10 TYPE

RS,R3
R3
$OMODE
’$

8177770,R3

THE

ZERO FILL

SWITCH

JoSUBTRACT IT FOR MAX. ALLOWED
J:SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
;:PI(KUP THE [NPUT NUMBER
;:CLEAR THE OUTPUT WORD

JcROTATE MSB [NTO '°C'’
..GO DO MSB
;;FORM THIS DIGIT

J:GET LSB OF THIS DIGIT
J:TYPE THiIS DIGIT?
..BR [F NO
J.GET RID OF

JUNK

SRERSSSS
SETRAR

—

d e

1231

MACY11

004320
004322
004 324
004326
004330
004 334
004340
004 344
004350
004 354
004356
004 360

004362
004 364
004 366
004370
004372
004400
004402
004404
004405
004406
004407
004410

30A(1052)
17-APR=79
17-APR=79 10:12

001002
005704
001403
005204
052703
052703

110367
104401

105367
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000

10:14

BINARY

4%:

000060

000040
000040
004404
000032

B8NE

J:TEST FOR O

BEQ

;.BR IF

BGT
8Lt

INC
BR
MOV

6%:

000002

MOV
MOV
MOv

000004

MOV
RT1

8%:

.BYTE

BYTE
$OCNT:
_.BYTE
$OFILL: .BYTE
$OMODE: .WORD

.SBTTL

004552
000340

000024
00026

AND TYPE

;sSUPPRESS

#'0,R3
#'

SEQ 0025

,R3

THIS 02

YES

:;DON'T SUPPRESS ANYMORE

JIJMAKE

THIS DIGIT ASCII

;JMAKE ASCII

NOT ALREADY

R3,8%

;. 3SAVE FOR TYPING

$OCNT
23
6%

JJCOUNT BY 1
.2BR IF MORE
:sBR [F DONE

.:G0 DO THE LAST DIGIT

,8%

(SP)+ RS

(SP) + R4
(SP)+ ,R3

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

;260 TYPE

o INSURE

0°'S

THIS DIGIT
10 DO

LAST DIGIT

ISN'T

A BLANK

;sRESTORE RS

;JRESTORE
:JRESTORE

cJSET

THE

R4
R3

STACK FOR RETURNING

JJRETURN

0
0

.sSTORAGE FOR ASCI! DIGIT
;s TERMINATOR FOR TYPE ROUTINE

;.ZERO FILL SWITCH
. ;NUMBER OF DIGITS TO TYPE

;JOCTAL DIGIT COUNTER

POWER DOWN AND UP ROUTINES

AN AN RN A RNANNARARRNN AR A RNANRNNARAANANANANNANNRARNARANANRAAARAR
NP RRARN

*POWER DOWN ROUTINE

$PWRDN:

MOV
MOV
MOV

MOV
MOV

MOV

174332

000104
004464

(ASCII)

]S
mOovVR
TYPE
DE(R

7%:

TO OCTAL

INC
BIS

SY:

PCRARA

012737
000000
000776

TST

000
000000

012737
012737
010046
010146
010246
010346
010446
010546
017746
010667

PAGE

-MAIN,

MOV
MoV
Mgvr

000024

HAL

A#SILLUP,a#PWRVEC ;:SET FOR FAST UP
#340,a#PWRVEC+2 ;;PRIO:7
RO,-(SP)
;sPUSH RO ON STA(K
R1,-(SP)
R2.=(SF)

22PUSH R1 ON STACK
:¢PUSH R2 ON STAC(CK

R4 ,-(SP)

:3PUSH R4 ON STACK

R3,~(SP)

;:PUSH R3 ON STACK

RS5,-(SP)

;:PUSH RS ON STACK

:sHANG UP

aSWR,-(SP)
;sPUSH aSWR ON STACK
SP ,$SAVR6
:JSAVE SP
#SPWRUP ,a#PWRVEC ;;SET UP VECTOR

""tttttttt*ttifit*Q*fifitt.'t"tttt.tt*fittttttfitttit'ttttQttatt'.ttt

012737
016706
005067
005267
001375
012677
012605
012604
012603
012602
012601
012600

004552
000060
000054
000050
174264

000024

.POWER UP ROUTINE

$PWRUP:

1%:

MOV
MOV

NSILLUP,d#PWRVEC ;.SET FOR rAST DOWN
$SAVR6,SP
J:GET SP

INC

$SAVR6

MoV
MOV

(SP) + RS
(SP) + R4

CLR

BNE
MOV
MOV
MOV
MOV
MOV

$SAVR6E

J2WAIT LOOP FOR THE

JIWAIT FOR THE

INC

TTY

1%
(SP) +,aSWR

;:0F
WORD
. sPOP STACK INTO @SWR

(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1

;cPOP STACK INTO R3
;+POP STACK INTO R?
;3POP STACK INTO R1

(SP)+,R0

. sPOP STACK
. sPOP STACK

INTO RS
INTO R4

;POP STACK

INTO RO

MAIN,
MACY1T 30A(1052)
17-APR=79
CIMIAE.P
17-APR-79 10:12
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291

004530
004536
004544
004546
004550
004552
004554

004556
004560
004566

012737
012737
104401
004560
000002
000000
000776
000000
005015
000122

004412
000340

047520

10:14 PAGE 27
POWER DOWN AND UP RCUTINES

000024
000026

042527

MOV
MoV
TYPE
$PWRMG: .WORD
RTI
$ILLUP: HALT

$SAVR6:
$POWER:

SEQ 0026

#$PWRDN ,a#PWRVEC ;,SET UP THE POWER DOWN VECTOR
#340,d¥PWRVEC+2 ;,PRIOD:7
;JREPORT THE POWER FAILURE
$POWER
:;POWER FAIL MESSAGE POINTER

0
.ASCIZ

.=l

<15><12>'POWER"’

;;THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS (OMPLETE
;;PUT THE SP HERE

.EVEN

}Sgg

.SBTTL

1294

“"fi'titttfitfi.tifiltt&Qt't'.i'i.ttttt'tt.tttttitttt.'.tttfitfit.....l

1295
1296
1297

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION
“«AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:«OF THE DESIRED ROUTINF. THEN USING THE ADDRESS OBTAINED IT WILL

;ggg
1300
1301
1302
1303
1304
1305
}%89

:*GO TO THAT ROUTINE.
004570
004572
004576
004600
004602
004604
004610

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

004624

1308

}%gg
1311
1312

};}2

TRAP DECODER

MOV
MOV
ST
MOVB
ASL
MoV
RTS

RO,-(SP)
2(SP) .RO
= (RO)
(RO) ,RO
RO
$TRPAD(RO)
,RO
RO

;;THIS IS USE TO HANDLE
004612
004614

004622

011646
016666

000002

000006

000002

$TRAP2: MOV
MOV

}i}g

_SBTTL

1317

;*THIS

TABLE

}gg?

ROUT INE

}%}g

004624

0046612

1328
1329
1330

004636
004640

002640
002760

1333
1334
1335
1336

004644
004546
004650
004652

177777
000571
000457
000243

}%%;

;:MOVE
::MOVE

THE PC DOWN
THE PSW DOWN

::RESTORE

THE PSW

TRAP TABLE
CONTAINS

THE

STARTING ADDRESSES OF

1322

1323
1324
1325
ggg

THE ‘‘GETPRI'* MACRO

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

RT]

: SAVE RO
*:GET TRAP ADDRESS
: :BACKUP BY 2
::GET RIGHT BYTE OF TRAP
S:POSITION FOR INDEXING
::INDEX TO TABLE
::G0 TO ROUTINE

004626
004630
004632
004634

004642

003424
004210
004164
004224

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
S$TYPON

003264

;:CALL=TYPE
;:CALL=TYPOC
::CALL=TYPOS
;.:CALL-TYPON

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

TTY TYPEQUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NG LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

$RDCHR ; ;:CALL=RDCHR
$RDLIN
;;CALL-RDL
IN

TRAP+5(104405)
TRAP+6(104406)

TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUT INE

$RDOCT
TXCRC:

$TRAP?

THE ROUTINES CALLED

=1
571
457
243

;;CALL=RDOCT

:M9301
*M9301
:M9301

TRAP+7(104407)

- YA VERSION
- YB YERSION
- Y( VERSION

READ AN OLTAL NUMBER FROM TTY

MACY11 30A(1052)
MAIN,
17-APR=79
17-APR=79 10:12
( IMOAE .P11
1337

1338
1239
1340
1345
1342

1343

1344

1345

1346
1348

1349

“350

NN
NN
NRY
— OOV NN SN

SEEEEL R gwwwwwww

D
D
D e d
ed
d o
b e d —d
D
e
d
e
—_—

W AN
~
jo]

—d oD

1351
352

004656
004656
004660
004662
004664
004666
004670
004672
004674
004676
004700
004702
004704
004706
004710
004712

000635
000207
000670
00032
000372
000630
000536
00075¢
000633
000650
000710

004714
004716
004720
004722
004724
004726
004730
004732
004734
004736
004740
004742
004744
004746
004750
004752
004754
004756
004760
004762
004764

177777
133725
017563
1417464

TRAF

DAGE 28
TABLE

:M9400

YA(OR

Y()

VERSION

:M9400 = YN VERSION
(MY311 VERSION == REVISION A

177777
177777
177777

(ORIGINAL

(

REV.)

SECOND REV.)

177777
177777

TXLP(C:

;M9301
M9301
,M9301

YA VERSION
YB VERSION
YC VERSION
YA(OR Y(C) VEKSION
:M9400
YF VERSION
:M9301
M794<
YB VERSJON
YD VERSION
-H9301
JM9L00
- YH(OR YK) VERSION

047613

114175
146126
132161
143466

036751

M9311 VERSION=~~ REVISION *
M9301 = YH VERSION

125411

066, 46
132767
030210
036742
1772777
177777

,M9301
;M9301
:M9400
M9311

= YE VERSION
= YJ VERSION
= YN VERSION

VERSION--REVISION A

(ORIGINAL

(

REV.)

SECOND RFV.)

17277277
1727777
177777
177777
177777

001000
007000
001000
001000
001000
004000

TDLN1:

-1
1000
1000
1000
1000
1000
4000
1000

*000

001000
001000
001000

005026

SEu 0027
:M9301 = YF VERS]ION
:M7942 - YB VERSION
:M9301- YD VERSION
:M3400 = YH (OR YK) VERSION
m93N VERSION == REVISION *
:M9301 = YH VERSION
;m9301 - YE VERSION
;M9301 = YJ VERSION

1000

\GWW BPX
ol FEI

_—d

D ad

) —d

=D —d =2

004766
004770
004772
004774
004776

10:14

1727777
177777

734
1000
1000

1000
1000

;M9301
:M9301
:M9301
:M9400

YA VERSION
YB VERISION
YC VERSION
YA(OR YC) VERSION

=~
=
*M9400 =

YH
YE
YJ
YN

YF VERSION
*M9301
‘M7942
YB VERSION
*M9301 = VD VERSION
H9600 = YH(OR YK) VERSION
VERSION REVISION « (ORIGINAL

‘M9301

*M9311

VERSION
VERSION
VERSION
VERSION

VERSION= REVISION A

VERSION)

(SECOND VERSION)

MACY11 30A(1052)
17=APR=79
MAIN,
(ZMSAF PN
17-APR=79 10:12
1363

1394

1395
1396
1397
1398

005030
005032

005034

1399

1400
1401
1602
14603
1404
1405

14606
1407
1408

16409
1410
1411

1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436

10:14

PAGE 29

TRAF TABLE

177777
127777
1772777

-1
-1
-1

177°777
173000
173000
173000
173000
173000
170000
173000
173000
163000
173000
173000
173000
173000
163000
177777
177777
177777
177777
177777

"RMSAT:

177777
001000
001000
001000
001000
001000
000000
001000
001000
001000
000764
001000
001000
001000
001000

TDUN?:

173000

173000
173000
173000
173000
170000
173000
173000

163000
173000

173000
172000
173000
1?3000

-1

1000
1000
1000
1000
1000

1000

1000
1000
764
1000
1000
1000
1?00

177777
177777
177777
1727777
177777

165000

000000

665000

1447
1448

005174
005176

165000
165000

1446

YA VERS]ON

YB VERSION

YC VERSION
:MS400
YA(OR YC) VERSION
:M9301
YF VERSION
JM7942
YB VERS]ON
1M9301
YD VERSION
JM9400
- YH(OR YK) VERSION

:M9311
:M9301

:M9311

VERSION REVISION A

:M93017
:M9301

VERSION REVISION =
YH

VERSION

;M9301 - YE VERSION
:M9301 - YJ VERSION
;M9301 - YN VERSION

(

ORIGINAL

JERSION)

(SECOND VERSION)

:M9301

VERSION

- YB VERSION

- YC

VERSION

;JM9400 =YA(OR Y(C) VERSION

:M9301 -YF VERSION
1M7942 - YB VERSION
:M9301 = YD VERSION

:M9400 =

;M3
:M9301
:M9301

YH(OR

YK)

VERSION

VERSION REVISION *

YH VERSION

= YE

TRMSA?:

-1
165000
165000
165000
165000

(ORIGINAL

REV.)

VERSION

;M9301 = YJ VERSION

:M9400 = YN VERSION
:M9311 VERSION REVISION A

-1
-1
-1
-1

005156
005160
005162
005164
005166
005170
005172

177777
165000
165000
165000
165000

:M9301
:M9301
:M9301

-1
-1
-1
-1

1437
1438
1439
1440
1441
1442
1443
1444
1445

005154

SEQ 0’8

:M9301

:M9301
IM9400
;M9301
M7942

YA VERSION
YB VERSION
YC VERSION

YA(OR Y() VERSION
YF VERSION
YB VERSION

;M9301
YD VERSION
:M9400 =~ YH(DR YK) VERSION

(SECOND REV.)

17:APR-79
MACY 1Y 30A (305 2)
MAIN,
17=-APR=7 9 10:1C
(ZMIAE P11

1464

1466

1467
1468

1469

1470
1471
1472
1473
1474
1475
1476

1477

1484

1485
1486
1487

1488

1489

1490
1491
1492
1493
1494

1495
1496
1497
1498
1499
1500
1501
1502
1503
1504

166000
165000
165000
165000
165000

166000
165000
165000
165000
165000
1?6000

177777
172777
177777
177777
177777

1465

065270
005272
005274

005276
005304
005311
005316
005324
005332
005335
005342
005350
005356
005361

005420
005426
005430
005436
005444
005452

:M9311
;M9301
:M9301
:M9301
;M3400
;M9311

VERSION REVISION «
- YH VERSION
- YE VERSION
- vJ VERSION
- YN VERSION
VERSION REVISION A

( ORICINAL REV.)

(

SECOND REV.)

-1

-1
-1
TMSG:

-1
MSG1
MSG?2

MSG3
MSG4
MSGS
MSG6

MSG7

MSG10
MSG11
MSG12
MSG13
MSG14
MSG15
MSG16
-1

:M7942 - YB VERSION

;M9301
:M9301

- YH VERSION
- YE VERSION

:M9301 - vJ VERSION

;M94G0 - YN VERSION
; M9311 REVISION A (

SECOND REv.)

-1
-1
-1

177777
177777
177777

041505
051103
000040
005015
041505
050114
000040
005015
052125
061522
000

SEQ 0029

-1

177777
006106
006123
006140
006155
006175
006212
006227
006244
006270
006347
006364
006401
006416
006433
177777
177777

005015
042524
015
020105
040526
020040
015
020105
040526
020040
015

TABLE

166000

1461
1462
1463

1478
1479
1480
1481
1482
1483

PAGE

-1

030122
052123
052012
051103
052514
000
052012
050114
052514
000
042412
042524
020103

020115
000
050131
020103
035105

TITe:

.ASCIZ

<15><12>/ROM TEST/

GETCRC:

LASCIZ

<15><12>/TYPE

CRC VALUE:

050131
020103
035105

GETLPC:

LASCIZ

<15><12>/TYPE

LPC

050130
020104
020075

EXCRMG:

LASCIZ

<15><12>/EXPECTED CRC

042412
042524
020103

050130
020104
020075

EXLPMG:

LASCIZ

<15><12><12>/EXPECTED LPC =

047503
042105
036440

050115
041440
020040

ACCRMG:

LASCIZ

<15><12>/COMPUTED (RC

VALUE:

005200

TRAP

1449
1450
1451
1452
1453
14564
1455
1456
1457
1458
1459
1460

10:14

(o VATV
IV, IV, IV, TV TV N AN
(@ XVe]s JENTe SV, P N VIV - (@
o]

015
052520
050114
000040
005015
047440
052123
015
020105
0464524
042104
020106
047522
051104
041501
000
015
020105
064524
042104
020106
047522
051104
041501

10:14

TRAP

PAGE

TARBLE

SEQ 0030

041412
042524
020103

046517
020104
020075

ACLPMG:

,ASCIZ

<15><12>/COMPUTED LPC

042412
020106
000
052012
052123
043516
027122
051461
020115
020056
035105

042116
042524

EOVST:

LASCIZ

<15><12><12>/END OF

05013

SA1:

LASCIZ

<15><12>/TYPE

STARTING

ADDR.

1ST

ROM ADDR.

:
SPA(CE

040440
047440
020124
042101
050123
020040

052012
052123
043516
027122
047062
020115
020056
0351C5

050131
051101
040440
047440
020104
042101
050123
020040

SAZ:

JASC12

<15><12>/TYPE

STARTING ADDR.

2ND ROM ADDR.

SPA(E-

052012
042514
024040

SIZF1:

L_ASCI1Z

<15><12>/TYPE

LENGTH

(BYTES)

1ST ROM ADDR.

SPACE:

051461
020115
020056
035105

050131
043516
054502
047440
020124
042101
050123
020040

052012
042514
024040
024523
047062
020115
020056
035105

050131
043516
054502
047440
020104
042101
050123
020040

SIZE2:

.AS

<15><72>/TYPE

LENGTH

(BYTES)

2ND ROM ADDR.

:
SPAC(E

CAR_F:
SP2:

_ASCIZ
JASCIZ

024523

005015
053517
052504

000012
000
040412
051523
020040
020040
052101
000040
047125
020116
042514

005015

034515

o511

042104
020040
020040
020040
000101

047113
047515
000040

030063

flWWWWNNNNNNNNNN
b dNOb Ned NN
) D =O
b
W
OV
NORNE WA —=O —
OO
~NOW
[0 XV, P WN =200V

)
b
g —d
b
b
b oD
d —d and
D
)
b ed

TN NN AN NN NN NN ANV

b md oD
)
D ad
)
D ed
md md

AN AN N AN NN

d o
d
b
b

N VTV

b md
b

o Pl
S W o S INAWANWNINWN

VIV

—

D
) —b —d
d
D e

VAV, IV IV IV, IV, 1V, IV, 1V, TW %21

I3
PR B

1547
1548

005453
005460
005466
005474
205476
205504
005512
005515
005522
205530
005536
005544
005552
005560
005566
005574
005575
005602
005610
005616
005624
005632
005640
005646
005654
005655
005662
005670
005676
005704
005712
005720
005726
005734
005735
005742
005750
005756
005764
005772
006000
006006
006014
006015
006020
006023
006030
006036
006044

30A(1052)
17-APR-79
17-APR=-79 10:12

[4n)

MACY11

[

.MAIN,

( IMSAE .P11

TEST/

<15><12>
/

TYPHDR:

.AS(C]2Z

<155¢<12>/ADDRESS

COLON:
AUTERM:

.AS(]2
_AS(CIZ

<15><12>/UNKNOWN MCDULE /

MSG1:

LAS(]Z

<155><12>/M9301

- vA/

DATA/

-MAIN,

MACY11

1561

006114
006122

( ZMSAE PN

30A(1052)
17~APR=-79
17-APR=-79 10:12

10:74

PAGL 32

TRAP TABLE

SEQ 0031

020055

040531

046412
026440

031471
054440

MSG2:

.ASCIZ

<15><12>/M9301 - YB/

034515
020055

030063
041531

MSG3:

.ASCIZ

<15><12>/M9301

046412
026440
041531
046412
026440

032071
054440
000
031471
054440

MSG4:

LASCIZ

<15><12>/M9400 - YA,Y(/

MSG5:

.ASCIZ

<15><12>/m9301

033515
020055

032071
ce113

MSG6:

LASCIZ

<15><12>/M7942 -

1579

046412
026440

031471
054440

MSG7:

.ASCIZ

<15><12>/M9301

030064
044131
045531

MSG10:

.ASCIZ

<15><12>/M9400 = YH(OR

1583

034515
020055
020122
034515
042522
067117

MSG11:

.ASCIZ

<15><12>/M9311

REVISION

047511
020065
032455
020051
046412
02644C

030463
044526
020040
041517
020116
020075
032062
000
03147
054440

MSG12:

.ASC(C]Z

<15><12>/M9301

- YH/

596

034515
020055

030063
042531

MSG13:

_ASCIZ

<15><12>/M9301

- Yt/

1599

046412
026440

031471
054440

MSGl4:

LASCIZ

<15><12>/M9301

034515
020055

030064
047131

MSG15:

LAS(CIZ

<15><12>/M9400 - YN/

LASCIZ <15><12>/M9311 REVISION A (LOCATION E=5 - 23-688A9)

1612

020051

031471
053105
020116
041517
02011¢
020075
034070
000

MSG'6:

1610

046412
051040
047511
046050
047511
020065

*562
1563
1564

1565
1566
1567

1568

1569
1570
1571
1572
1273
1574
1575

006123
006130
006136

006140
006146
006154
006155
006162
006170
006175

1576

1577

1578

1580
1581
1582

1584
1585

1586

1587
1588

046050

1589
1590
1591
1592
1593
1594
1595

1597
1598

1600

1601
1602
1603
1604
1605
1606
1607
1608
1609

1611

1613

033055

000001

LEND

- YC/

- YF/
7B/

- VD/

YK)/

(LOCATION E=5

= 23=524A9)

YJ/

=
AMTYPS
APASS -

APRIORAPT(CSU=

APTENV=
AP1S1Z-~
APTSPO=
ASWRE G=
ATESTN=
AUNIT =
AUSWR =
AUTACT
AUTERM

1053

621

1055

569
569
569
569

698

865

575
580

572

NNN

AMTYP1=
AMTYP2=
AMTYP3=

699

-200

AMAMS
S, =
AMSGADAMSGLG=
AMSGTY=

677«

(VARV, LV, |

AMADR?=
AMADR3AMADR4
1AMAMS
AMAMS 2=
AMAMS 3-

584
676

~
~

ADEVCTADEWM =
AENV
=
AENVM _
AFATAL
AMADR 1=

5294
5304
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
569
S69
569
569
569
1060

TABLE == USER SYMBOLS

15054

ADDW?7
ADDW8 ADDW9 -

569

15014

N J0ONRLONNL
N
0 WOWrONO
DN 2
L
&
%

ADDW4
ADDWS
ADDW6

707

569
9569
725

H Qo

ADDWO =
ADDW1 ADDW10=
ADDWI1=
ADDW12=
ADDW13=
ADDW14=
ADDW15=
ADDW?Z
ADDW3

001024

569

PAGE

(ROSS RE‘FRENCE

10:12

ACTLPC

10:14

000000
005430
A(DW! = (00000
alDwe - 000000
ACLPMG
005453
ACPUOP= 000000
ACTCRC
001022
ABASE

A(CRMG

17-APR=79

17=APR=79

md and

{ JMOAE (P11

Z0A(1052)

—d

MACY11

ao U 1V TV, TV Jur

MAIN,

15564

11694

11704

708

726

750

805

780¢
810+

853

SEQ 0032

17=-APR~79
MACY11 30A(1052)
17-APR=~79 10:12
. P11
CZMSAE

JMAIN,

AUTERR

AUT

AUTZ2

002612

002524

002570

AUT3

002572

AVECT1= 000000

AVECTZ2=
BITO
=
BITO0 =
BITO1 =
BiT02 =
BITO3 =
BIT04 =
B8IT0S =
BITO6 =
BIT07 =
81108 =
81109 =

BIT1
8IT10
B1T11
BIT1¢
BIT13
BIT14
BIT15
BITZ2
BIT3
BIT4
BITS
BIT6

BIT7

=
=
=
=
=
=
=
=
=
=

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

000002
002000
004000
010000

020000
040000

10000C
000004
000010

000020

000040

000100

- 000200

BIT8
=
BIT9
=
BPTVEC=
CARLF
(HECK
CHO
CH1
K1
K2
CLLAST
CLP)

000400
001000
000014
006G15
00510
007566
001644
001736
002030
002204
0022¢52

cLP2
Lo
!
cLe
L3
(OLON
(R
=
CRC
(RLF
=
DATLNT
DATLNZ
DDISP =
DISPLA
DISPRE

002316
002702
002746
002170
002122
006060
000015
002074
000200
001006
001012
177570
001002
000174

cLPi1

002264

10:14
PAGE 35
CROSS REFERENCE

852
8504
857
856
569
569

864La
854
8594
860#

L7540

485

“73%n

483

LBSH

L74H

482
481
480

LoBH

4L78

L6748
(AN

LBLH
4654
4648

479

477
476

4634
L6228
AL
460
L83

4824
L(E14
4804
L4794
L78#
L7778
L764
492N

832
642
679
688
700
719
773

7844

785
794
7514
7654
767
753

837
644
6864
697
713
731
7754

681

689

523
525#
[A0Yd 4
521«
508#

7184
7364

774

7584

1555#

4014

6994

771%

841

L0044

15484
646

790

7874
7964
757

1099

1070

638+
640~
609
609+
617

1109

7504
1109

666+

672
€17+

678
687

TABLE == USER SYMROLS

484

4724
L7
4704

L6994

683
691

81 8
82 3

SEQ 0033

MACYN 30A(1052)
MAIN,
17-APR=79
17-APR=79 10:12
CZMIAE P11
OSWR
- 177570
EMTvEC= 000030

4064
4954

EQTST
ERRVEC=
eXCRC
EXCRMG
EXLPC
EXLPMG
GETCRC
GETIN
GETLPC
GET?

005476
Q00004
001016
005361
001020
005404
005311
001370
005335
001440

739
LB8H

GOAGIN

002070

ENDOTY

OGNS

002446

NREREN

= 000011

10TVEC=
LF
=
LPC
LPC1
LPC2

MSG1
MSGIC
MSG11
MSG12
MSG13
MSG14
MSG1S
MSG16
MSG2

000020
000012
002344
002352
002366

006106
006244

00627C
006347

006364
0064601
006476
006433
006123
006140
006155
006175
006212
006227

MSG3

MSG4
MSGS
MSG6
MSG7
PARCNT
001026
PARITY
002242
PIRQ
= 177772
PIRQVE- 000240

PRO

PR1
PRZ2
PR3
PR4
PRS
PR6
PR7
PS

- 000000

=
=
=
=
=
=

PSW
=
PWRVEC=
RDCHR RDLIN RDOCT
RESTRT
RESVEC-

ROMSAT

000040
000100
000140
000200
000240
000300
000340
177776

177776
000024
104405
104406
104407
001274
000010

(001004

825

5274

703

5284
721
650
634
654
648
S07

10:14
PAGE 36
CROSS REFERENCE

8274

607~
652+

618
699

704

860+

636+

656+

718

722

861+

1325

1326

1329

1330

1331

12 10

1493
1497#
1485#

643N

148954

6574

1323

1103

405#
L99N
Loon
423
Lo4n
4254
426N
Lo7n
L28#
Lo
4024
4034
L94H

693
811
8104
15604

15814
1585#
1593
15564
15994
16024
16054
1563%
15664
1569#
1572#
15754
15784

1324
1109
1109

8054

782+

786+

403

S164

602+

603+

1953«

1254e

1263«

1269+

1331a

782#

793

921
996
651
626

13294
13304

655
6304

659

663

667

671

522#

639

660+

680

682

485

SEQ 0034

15094

3904
685
8064
808
1462

5314
758

TABLE == USER SYMBOLS

828
606
637+

7484
1068

1469
1470
1471
1472
1473
1474
1475
1463
1464
1465
1466
1467
1468

608

762

3984
493

748

1282+

MAIN,
MACY11 30A(1052)
17=-APR~79
17-APR=79 10:12
C(ZMIAE .P11
ROMSAZ2
SA1
SA2
SIZE1
SIZEZ2
SP2
STACK =
START
STKLMT=
ST
SWR
SWREG
SWC
=
SWO0
=
SwO1
Sw02
Sw03
=
SwO4
=
SWOS
SWO6
=
Sw07
=
SwO8
=
SwW09
=
SW1
=
Sw10
=

001010
005515

005575
005655
005735
006020

001100
001076
177774

001320
001000
000176

000001
000001
000002
000004
000010
000020
000040
000109
000200
000400
001000
000C02
002000

SW11
Swi¢

= 004000
- 010000

SWl4
SwWi5
SwW2
Sw3
SW4
SW5
Swé
Sw7

=
=
=
-

sw13

Sw8

Sw9

- 020000

040000
100000
000004
000010
00000
000040
- 000100
= 000200

= 000400

- 001000

TBITVE= 000014

TDLNT

TDLNZ
TITL
TKVEC =
TMSG
TPVEC =
TRAPVETRMSAT1
TRMSA2
TRTVEC=
TXCRC
TXLPC
TYP

TYPE

1 YPHDR

004766

005106
005276
000060
005226
000064
000034
005036
005156
000014
004644
D04714
002454

104401

006023

524#
658
666
662
670

10:14
PAGE 37
CROSS REFERENCE

661
1512#
15214
1530
15394

668+

512
L04n

514

5944

5204
5094
4574
447N

608+«
616

610
632

845

3934

6354

TABLE == USER SYMBOLS

686

690

822

616«

623+

632+

633

661
844

665
858

669
864

SEQ 0035

1261

1274+

457

456
455
454
453

LL N
L40H
4354

451
450
449

438#
4564
4374
4364
4354
434
4334
4324

15494

LL6H
4454
NN
443

L42on

452

448

455
(544
453
L5208
LS51a

4S0n
L4
LL8a
490

638
640
6¢8

13764
14184
14834

851

857

164614

639
641

1397#
14394

S17#

600«

601s

637
636
821
627
827
951
816

853
861
826
649
831
954
1550#

860

13334

831#
653
836

657
840

IASY{

498%
496N

491

13544

958

1025

1027

1073

1252

702

928
1283

706

934

13234

720

939

724
943

738
948

815

349

SENVM
$E TABL

LA
A AR

goowm

NNV 2SN

003742
003716
003724
003734
003702

d e

*ARE NN

001032

2CQC =2 =220

001030
002402
002426
002462
002504
002470
002320
001014

md wd

$APTHD
SASTAT$ATY(
$ATY1
$ATY3
BATYS
$CHARC
$CKSWRSCMTAG$CNTLG
$CNTLU
$CPUOP
$CRLF
$DEVCT
$SENDAD
SENV

104403

TYP3

XOR
XORS

705
13264
13254
511+

—

TYPO
TYP?2

104402
104404

i
"

TYPOC
TYPON
TYPOS
TYPOUT
TYPROM
TYPR1

MACY11 30A(1052)
17=-APR="%
MAIN.
17-AFR-79 1(:i?
(IZMSAE .P1

10:14
PAGE 38
CROSS REFERENCE

TABLE -~ USEP SYMBOLS

709

723

727

839

513

5324

647

673

798#
750+

809

775

776%

1092

1101~

11064

9654

1030

1074

1115

625
645
621

694
1055

710

728

714
1149

815#4
Bo2#
847
8424
836w

771«

3
SEQ 00%6

843

13244

777

(79

1060

736
730
1129

744m
1053

1127

115

732
1158

11664

866

1155«

11410

1153

780

799

5594

1164
17224

11194
1085+

L8 A 88
2]

003235
003230
001074
003225
001056
002060
001066
001067
001066
001076
001050
004162
003714
003713

$ETEND
SFATAL
$FFLG
SFILLC
$FILLS
$GTSWR= LA A823]
$HIBTS
021032
THIOCT
SILLUP
$LF
$LFLG
SMA
L

G711

5914
594«

1121+

11134

10294
1269
9704

1115

565

620

1125

11640

1135e
1140+
595¢

7330

867«

1133

1211

1222

1248»

11654

1111»
1233
1203«

620+

004412

128%#

12534

12464

740+

1281

855

1053

1157+

80C+

801+

802

805+

LMAIN.

MACY11

SPWRMG
SPWRUP
SQUES
$RDCHR
SRODE(C=
$ROLIN
$RDOCT
$ROSZ =

004546
004464
003224
002640
mwwenewe
002760
003264
000010

$SAVRE=

teseee

1332

$SAVRG6
$SETUP=
SSTUP =
$SVPC =

004556
000014
177777
001032

1262+
S10#
510#
5384

$Tx8
$1KkS

002636
002634

874LH
873

$TPS
S$STRAP
$STRAP?
$TRP
=
$TRPAD
$ISTM
$TTYIN
STYPBN$TYPDS=
$TYPE
$TYPEC
S$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR

003706
004570
(004612
Q00010
004624
001036
003214
weseee |
eeenee |y
003424
003636
003704
004210
(004224
0046164
001060
(001042
001072

(IMOAE P11

SR2A

wanere

30A(1052)

17-APR=79 10:12

12844
1263
951
8884
133¢
9164
9914
9094

|§

$OFILL
.

.SASTA

003710
003715

. ABS.

006511

ERRORS DETECTED:

PAGE

CROSS REFERENCE TARLF == USER SYMRBOLS

SEQ 0037

1030

1118

1271«
600

1272+
602

12884
604

£77

977

13254

1326#

13274

1329

13304

13318

1332#

919

ohY

949

963

678

1146
1084
1104
1324
12048
1325

1315
1091
1107#

1323
10964

1097

12474
5104
98

5194
969

535#
977

541#
1030

543
1109

1330
13N

1270
599
543

1098+
1047
1096
600
13114
13154
1305
5624

11104
11144

1198+«
5004
873

1114
1119

5454

872
890

1109#
12004
1322
1324
13224

1202+
5034
874

1115
112¢

898
896

1326

1212
507#
9674

1167#

1265

1287

554

000
O

CIMOAE .BIN, CZMOAE
. SEQ/CRF /SOL/NL : TOC=SYSMAC
. SML , ( ZMOAE .P11

RUN-TIME: 38 33 1 SECONDS

RUN-TIME RATIO:
CORE USED:
32k

1027

1285
623
596

918

eneeas |

001032

12694
9684
1329

3894
582#
5734

1327
1327
10474
1077
1102
12024
1201
1197«
5764
5644
5834

004407
006511

.$X

10:14

1332

$SWR
= 000000
$SWREG
001070
STESTN
001052
$TPB
$TPFLG

17-APR=-79

356/74 4.7
(63 PAGES)

538
970

549
1110

5504
LARR

5528
1M1

S S48
113

JMAIN,

MACYTT

(ZMOAE . P

30A(T052)

17-APR=-79

17-APR=79 10:1?2

10:14

PAGE 40

ms3

CROSS REFERENCE TABLE == USER SYMROLS

SEQ 0038