Digital PDFs

AH-8956E-MC

September 1979

39 pages

Original

19MB

view download

OCR Version

29MB

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_gray.pdf

OCR Text

M 930 1 /9400

(a:ozo’\rnrgzz\mgomssovuoo

:::?;:?cn_n

FICHE1 OF 1

MADE IN USA

MAIN,

WACYIT

Wl P11

‘o

30A(1052)

17-APR=79

17eAPRe7S 10:12

10:14

PAGE

$EQ 0001

JREM %

’)

¢4
1

8
14

IDENTIF ICATION

(‘

PRODUCT CODE
:

AC-8954E
-MC

PRODUCT NAME:

CZMOAEC BOOTSTRAP/TERMINATOR

gg
gg

PROGRAM DATE:

APRIL, 1979

MAINTAINER :

DIAGNOSTIC ENGINEERING

(M9301. M9400)

3\'\
H

z
3

THE

INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 'wlTHOUT

NGTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B

DIGITAL

EQUIPMENT CORPORATION. CIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MMAY APPEAR IN TH1S DOLUMENT

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A

4
“

LICENSE AND MAY ONLY BE USED OR COPIED
TERMS OF SUCH LICENSE.

“

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 7OR

NOT

‘

THE USE OR RELIABILITY OF

IN ACCORDANCE WiTH THE

ITS SOF TWARE ON EQUIPMENT

THAT

SUPPLIED BY DIGITAL.

(()

1976,

1979 BY DIGITAL EQUIPMENT CORPORATION

w (vn

P11

;04(10;8)

17=APR=79

10:12

10:14

PAGE 3

SEQ 0002

AR ARRNRNRRNRRARRRCTRAROERRRRRRERRERS
-

* SUMMARY OF OPERATING INSTRUCTIONS =
-

LA AA AR AR AR A

THE

AR A

FOLLOWING PROCEDURE

R 2222220]

CAN BE USED

TO RUN THIS DIAGNOSTIC

IN A DEVICE VERIFICATION MODE.
IF THE PROGRAM DOES NOT
RUN SUCCESSFULLY CONSULT THE FOLLOWING DOCUMENT FOR ASSISTANCE.
OPERATING PROCEDURE
:
1.

LOAD

LOAD ADDRESS 200

THE PROGRAM USING NORMAL

PROCEDURES.

SET SWITCH REGISTER TO SELECT THE PROPER

VERSION OF
(SEE

THE ROM UNDER TEST.

INSTRUCTIONS

IS TO BE USED.)

A SOF TWARE

SWIT(H REGISTER

PRESS START

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 FULL OPERATING INSTRUCTIONS
WHICH FOLLOW.
*

T AR INTE LS RS SABELE N
LXRUERR BRI

SNAAL

NP e,

BECAUSE

(CAUTION

THE CONTENTS READ FROM LOCATION 773024

THE M9301 OPTION IS CONFIGURATION DEPENDANT (SWITCH

REGISTER DEPENDANT), THMIS LOCATION IS NOT INCLUDED IN
THE DATA (HECK.
THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING
THE ALTERNATE STARTING ADDRESS(SEE SECTION 2.1.3) TO
PRINT OUT THIS LOCATION.

R RN NS Sa I A i 0 BB AIRIRIC2SES UKL W 2

10:14

PAGE

SEQ@ 0003

1.0

GENERAL PROGRAM [NFORMAT ]ON

1.1

PROGRAM PURPOSE

OO0

17=APR=79
cYn 50‘(1052)
7=APR=-79 10:12

THIS DIAGNOSTIC PROGRAM IS INTENDED TO VERIFY THE
ROM CONTENTS OF THE ROM BOOTSTRAP MODULES. THE PROGRAM

COMPUTES AND CHECKS A CYCLIC REDUNDANCY CHARACTER

AND A LONGITUDINAL PARITY CHARACTER FOR THE CONTENTS

THE ROM STORAGE AVAILABLE

A SEPARATE ROUTINE

THE

CONTENTS OF

IN AN M9301 OR M9400 MODULE.

INCLUDED ALLOWS THE USER TO TYPE

THE ROM STORAGE

ON THE

TELETYPE

1.2

SYSTEM REQUIREMENTS

1.2.1

g b

e R

i o

N Y

AN AID TO DEBUGGING.

ROR LS SRR

2B BN

—l-l-‘—l-n—l-a..n—l_a—l-‘_.—l-..a-d.‘-—b_a_a—.wm g

e
I T R

PDP/11 PROCESSOR
TELETYPE OR EQUIVALENT
4K _OF MEMORY

M9301 OR M94C0 MODULE
1.2.2

THIS PROGRAM IS WRITTEN TO BE RUN AS A STAND-ALONE PROGRAM,
HOWEVER, THE PROGRAM IS DESIGNED TO RUN UNDER AUTOMATED

PRODUCT

TEST

SYSTEM

(APT)

IN ALL

THREE

THE PROGRAM (AN ALSO BE RUN UNDER

1.3

MODES.

THE ACT

MONITOR.

RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS PROGRAMMING PRA(TICES

DOCUMENT NO.

APT

1.4

INTERFACE

175-003-009-00

SPECIFICATION,

REV.

DIAGNOSTIC HIERARCHY PRERFQUISITES
NONE, HOWEVER THE CPU IS ASSUMED TO BE FUNCTIONING

1.5

FAILURE ASSUMPTIONS
THE

PROCESSOR

IS ASSUMED

TO BE

FUNCTIONING PROPERLY.

LMAIN,
MACY1T 30A(1052)
17-APR=-79
17=-APR=79 10:12
(ZMSAE P11
145

1646

147

148

149

150

10:14

PAGE 5

SEQ 0004

2.0

OPERATING INSTRUCTIONS

2.1

LOADinNG AND STARTING PROCEDURES

2.7.17

LOADING
USE NORMAL PROCEDURES FOR LOADING DIAGNOSTIC PROGRAMS.

2.1.2

NORMAL START
1.

LOAD SOFTWARE SWITCH REGISTER (IF USED)

LOAD ADDRESS 200

3.
4.

2.1.3

ROM VERSION UNDER

TEST.

(SEE 2.3

TO SELECT THE

SET HARDWARE SWITCH REGISTER (IF AVAILABLE)

ROM VERSION UNDER TEST

(SEE 2.3).

TO SELECT T9E

START

OPTIONAL START
THE OPTIONAL

STARTING ADDRESS

CT)(F)OIIHE ROM FOR USE

IN VISUAL

IS USED

TO TYPE QUT

THE

CONTENTS

VERIFILATION OR AS A DEBUGGING

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

2.2

SPECIAL ENVIRONMENTS
THIS PROGRAM IS WRITTEN TO COMPLY WITH ALL

THE

THIS PROGRAM IS WRITTEN TO COMPLY WITH

ACT11/XXDP

REQUIREMENTS

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

INTERFACE REQUIREMENTS.

THE

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

INTERVENTION OR SWITCH REGISTER SELECTION.
THE
COMPUTED CRC IS COMPARED AGAINST THE CRC FOR ALL KNOWN
VERSIONS OF THE ROM BOOTSTRAP.
WHEN A MAT(CH IS FOUND THE
VERSION OF THE MODULE IS TYPED FOR VISUAL VERIFICATION.

MAIN,

—

MACYTT

(ZMSAE .P11
198

199

200
201
20
20

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

10:14

PAGE 6

2.3

THE SOFTWARE SWR (176)

IS SUBSTITUTED.

FOR PROCESSORS WITH NO HARDWARE

SWITCH REGISTER,

THE OPERATOR

SHOULD SET THE DESIRED SWITCH VALUE IN LOCATION 176

WARNING...

IN ORDER TO ALLOW TESTING OF M7942-YB BOARDS ON THE VTI71,

IF_LOCATION 176 IS SET TO 4,

THE SOF TWARE SWITCH REGISTER WILL BE

USED REGARDLESS OF HARDWARE SWITCH REGISTER AVAILABILITY.

2.3.1

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

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

SWITCHES #3 AND #1

IN THE SWITCH REGISTER.

CORRESPONDS TO AN OCTAL

SWR

- d e e —d 2 A NN N SN
oS
W —=O

— el ol D
-

wngNNNNNNN oo NN'\J'\JNN'\)NNN§§
N =O0VONOWNEWN -0 VNN
NN 2O

PROGRAM OPT JONS

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

205
206
207

LSLSLSLNT
NI NNV ST.NT.N]non

SEQ 0005

NOTE:

12.

THIS

MODULE VERSION
M9301-YA

mM9301-YB
mM9301-v(
M9400-YA

(OR YC)

M9400-YH

(OR YK)

M9301-YF
M7942-YB
M9301-YD

M9311
REVISION
M9301-YH
M9301-YE
M9301-YJ

=== SEE NOTE BE.OW ===

M9311

*x+

M9400-YN

FOR POSTY

REVISION

OMLY.covsscnnes

IF ROM IN LOCATION E=5

SEE NOTE BELOW *#*

#23-524A9 ,

THEN

IF ROM IN LOCATION E-5 IS

#23-688A9 ,

THEN

YOU HAVE

REVISION ~.

REVISION A

(I.E.

I.E.

USE

SWR

SETTING)

IF THE CRC AND LPC FOR NEW VERSICNS ARE KNCWN BUT
NOT IN THE ABOVE TABLE, SET THE SWITCH REGISTER TO ZERC
AND ANSWER

THE

TELETYPE

DIALOG.

MAIN.

MACYT1

(2MOAE .P11

30A(1052)

17<APR=79

17=APR=79 10:12

10:14

PAGE 7

SEQ@ 0006
TO DETERMINE THE CRC ANC LPC FOR A NEW VERSION. START
THE DIAGNOSTIC AT 200 WITH SWR=0. ANSWER O TO THE
REGUESTS FOR THE LPC AND CRC. THE RESULTING MESSAGES

WILL INDICATE THE CORRECT FUTURE RESPONSES FOR CRC AND
LPC PROVIDED THE TEST IS RUN ON A KNOWN=-GOOD MODULE
.

2.5.2

TELETYPE

DIALOG

SEVERAL QUESTIONS ARE ASKED OF
TO OBTAIN SUFFICIENT

THE OPERATOR IN ORDER

INFORMATION FOR

TESTING A ROM MODULE

NOT PREVIOUSLY SUPPORTED IN THE DIAGNOSTIC.
THE DIALOG
IS INITIATED IF THE PROGRAM IS STARTED WITH THE SWR = 0.
ALL RESPONSES ARE

CARRIAGE RETURN.

IN OCTAL AND

TERMINATED BY A

ALL RESPONSES ARE CHECKED FOR VALID OCTAL NUMBERS.
IF AN ILLEGAL CHARACTER IS TYPED, THE PROGRAM WILL
A ‘2", CARRIAGE RETURN~LINE FEED AND
AWAIT THE PROPER INPUT.

IF A MISTAKE IS NOTICED BEFORE

TO TERMINATE

THE

TYPE

THE CARRIAGE RETURN IS USED

INPUT, A RUBOUT CAN BE

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

PREVIOUSLY

CALCULATED

FOR

THE

THIS

CYCLIC REDUNDANCY CHECK

VERSION OF

THE

ROM MODULE.

IT IS THE VALUE AGAINST WHICH THE UNIT UNDER TEST'S (RC
WILL BE COMPARED.

TYPE LPC VALUE:

THIS REQUESTS THE VAULE OF THE LONGITUDINAL PARITY CHECK
PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE.

IT IS THE VALUE AGAINST WHICH THE UNIT UNDER TEST'S LPC

WILL BE

COMPARED.

TYPE STARTING ADDR. OF 1ST ROM ADDR.

SPACE:

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

SPACES.

TYPE

STANDARD M9301 & M9400 BEGIN AT 173000.

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

IN BYTES.
THE STANDARD M9301 & M9400 HAVE AN INITIAL ADDRESS SPACF
OF 1000 BYTES.
IF THIS SECTION OF ADDRESSES IS NOT

USED BY THIS VERSION, ANSWER O TO THIS QUESTION.

TYPE STARTING ADDR. OFf 2ND ROM ADDR.

SPACE:

M9301 & M9400 wOULD BE 165000,
6.
TYPE LENGTH (BYTES) OF 2ND ROM ADDR.

SPA(E:

THIS REFERS TO THE FIRST ADDRESS IN THE SECOND DISTINCT
GROUP OF ROM ADDRESSES.
THE RESPONSE FOR A STANDARD
THIS REQUESTS

IN BYTES.

THE LENGTH OF

THE

THE STANPARD M9301

2ND GROUP OF

ROM ADDRESSES

& M9400 HAVE A SECONC ADDRESS SPACE

MACYTT1 20A(1052)
i7=APR=79
P11
17=APR=79 10:12

10:14

YA
NN —=O

N AN N NN
NNV NN

» 22

D o

2.4

SEQ 0007
1000 BYTES.

THIS VERSION,

THIS SECTION OF ADDRESSES

ANSWER O

TO THIS QUESTION.

IS NOT USED

EXECUTION TIMES

—l

PAGE 8

THE DIAGNOSTIC

ONCE
THE

THE

COMPLETES

PROGRAM WILL

UNDER APT

PASS

IN LESS

THAN 1

SEC.

HOWE/ER,

INPUT DIALOG HAS BEEN COMPLETED.
HALT

UPON COMPLETION;

THE PROGRAM WILL

CYCLE

CONTINUOUSLY.

RUNNING

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

320
321

10:14

3.0

353

PAGE 9

SEC 0008

ERROR INFORMAT !ON

324
325
ggg

WHEN THE DIAGNOSTIC DETECTS A DISCREPANCY BETWEEN THE
EXPECTED AND COMPUTED CRC OR LPC BOTH ARE PRINTED
ON THE TELETYPE.

328
%%g

ANY DISCREPANCY IN THE LPC CAN ASSIST
PROBLEM TO THE ROM IC.

331

UNDER APT THE ERROR IS INDICATED BY DEPOSITING ERROR INFORMAT]ON

%g%

IN ISOLATING THE

IN THE APT MAILBOX BEFORE HALTING.

;;g

4.0

336

PROGRESS REPORTS

337
338

AT THE END OF EACH PASS THE PROGRAM INCREMENTS TO THE
LOCATION $PASS WHICH IS IN THE APT MAILBOX. THIS

342
343
;2?

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

339
22?

LOCATION WILL ALWAYS CONTAIN THE NUMBER OF PASSES
COMPLETED.
$PASS IS RESET WITH EVERY RESTART,

346

5.0

349

TROUBLE SHOOTING
THE ALGORITHM FOR COMPUTING THE CRC

IS THE

SAME AS THAT

350
351
352
;gz

USED ON 9~TRACK MAGNETIC TAPE WITH ODD PARITY.
THE
CRC IS CALCULATED ON A BYTE-BY-BYTE BASIS.
WHILE iHE
ALGORITHM IS SUCCESSFUL IN DETECTING MULTIPLE ERRORS,
USE AS A DEBUGGING AID IS LIMITED.

355
356
357
358
359
%gQ

THE LPC IS CALCULATED BY ASSEMBLING THE XOR OF EVERY
WORD IN THE ROM.
WHILE ONLY USEFUL IN CATCHING AN
ODD NUMBER OF ERRORS IN EACH BIT POSITION, IT IS VERY
USEFUL IN ISOLATING THE PROBLEM TO A CHIP.
BY LOCATING WHICH
BIT POSITIONS ARE IN DISCREPANCY, THE CORRESPONDING ROM
CHIPS CAN BE ISOLATED.

362
23
;2?

IF NO OTHER CLUES CAN BE OBTAINED, START THE PROGRAM
AT 210 AND COMPARE THE PRINTOUT OF THE CODE WITH THE
LISTING FOR THE VERSION BEING TESTED.

366
gg;

369
37C
371
372
373
374
375

ITS
:

* »

(CAUTION

= «

BECAUSE THE CONTENTS READ FROM LOCATION 773024
OF THE M9301 OPTION IS CONFIGURATION DEPENDANT (SWITCH
REGISTER DEPENDANT), THIS LOCATION IS NOT INCLUDED N
THE DATA CHECK.
THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING
THE ALTERNATE STARTING ADDRESS(SEE SECTION 2.1.3) TO
PRINT OUT THIS LOCATION.

MAIN,

MACY1Y

CZMSAE .P11

30A(1052)

17-APR=79

17=APR=79 10:12

10:14

PAGE

376
377
379

6.0

LISTING

SEQ 0009

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

000000

001100

10:14

PAGE 11

SEG 0010
.ENABLE
LIST
NLIST
$SWR=0
.SBTTL

177774
177772
177570
177570

000000
000001
000002

BASIC DEFINITIONS

;*INITIAL ADDRESS OF

STACK=
.EQUIV

.EQUIV

000011

ABS
ME
MC,MD,CND

1100

EMT,ERROR

I0T,SCOPE

THE STACK POINTER #*x# 1100 #w=
;;BASIC DEFINITION OF

s *MISCELLANEOUS DEF INITIONS
HT=
1
;;CODE FOR HORIZONTAL

LF=
CR=
CRLF=
PS=

.EQUIV

12
15
200
177776

PS,PSW

STKLMT= 177774

PIRQ=

DSWR=
DDISP=

177772

177570
177570

R2=
R3=

%2
%3

Ré6=
R7=

%6
114

R4=
RS=

SP=
PC=

%4
%5

%6
x7

;:STACK LIMIT REGISTER

; ;PROGRAM INTERRUPT REQUEST REGISTER
; ;HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

; ;GENERAL REGISTER
: ;GENERAL REGISTER

;s GENERAL REGISTER
; ;GENERAL REGISTER

; :GENERAL REGISTER
; ;GENERAL REGISTER

; ;GENERAL REGISTER
; ;GENERAL REGISTER
;s STACK POINTER
; ;PROGRAM COUNTER

:*PRIORITY LEVEL DEFINITIONS

PRO=

;;PRIORITY LEVEL O

PR2=
PR3=
PR4=

100
140
200

;:PRIORITY LEVEL 2
;;PRIORITY LEVEL 3
;;PRIORITY LEVEL 4

PR1=

000240
000300
000340

PR5=
PR6=
PR7=

240
300
340

:;PRIORITY LEVEL

000200

SW14=
SW13=
Swi2=
SW11=
SW10=
Sw09=
SwW08=
Swo7=

100000

40000
20000
10000
4000
2000
1000
400
200

;;PRIORITY LEVEL 5
;;PRIORITY LEVEL 6
;;PRIORITY LEVEL 7

;*"'SWITCH REGISTER'' SWITCH DEF INITIONS

SW15=

TAB

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

éaGENERAgoPURPOSE REGISTER DEF INITIONS
R1=

ERROR CALL

;;BASIC DEFINITION OF SCOPE CALL

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

441

442

443

444
445

44b

447

448
449

000100
000040
000020
000010
000004
000002
000001

10:14
PAGE 12
BASIC DEFINITIONS

SEG 0011

SW06=

SW09, SwW9
SW08,sw8
SW07,Sw7
SWO6, SW6
SWOS5, SW5
Swé
SWO,04
SWO3,Sw3
SW02, swe
SW01,sw1
SW00, SwW0
s *DATA BIT DEFINITIONS
100000
40000
BIT14=

BIT15=

BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BITO08=
BIT07=
BIT06=
BITOS=
BIT04=
BI103=
BITO2=
BITO1=
BITO0=

.EQUIV
.EQUIV

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

(BITOO TO BIT15)

BIT09.BIT9
BIT08.BIT8
BITO07,BIT7
BIT06.BIT6
BIT05,BITS
BIT04,.BIT4
BIT03,BIT3
BIT02.BIT2
BIT01.BIT1
8I17100,BITO

:; *BASIC "'(PU"" TRAP VECTOR ADDRESSES
ERRVEC= 4
;. TIME OUT AND OTHER ERRORS

::BE§§SY$D AND ILLEGAL INSTRUCTIONS

;:TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
;2 INPUT/0UTPUT TRAP (IOT) *«S(QPEx»

EMTVEC=

TRAPVEC( =34

; :POWER FAIL

;sEMULATOR TRAP (EMT) =*ERROR**

::"'TRAP'" TRAP

MAIN.

MACY11

CZMOAE .P11
497
498
499

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

10:14

000060
000064
000240

500
501
502
503

b
i
S
i
b
D
i
il
-

VO NO NS WA =

TKVEC=

.SBTTL

TRAP CATCHER

SEQ 0012
;. TTY KEYBOARD VECTOR

TPVEC=
64
PIROVEC=248

;2 TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

s*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘.42, HALT"'
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
‘LOCATION19 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000176
vivvoioroaoranvun

PAGE 13

BASIC DEFINITIONS

DISPREG:
SWREG:

000200

000624
000666
000001

000210
000216

000654

CLR
JMP
MOV
JMP

000612

177776

001006
001010
001012
001014
001016
001020
001022
001024
001026
001030

001000
177570
177570
173000

0
0

;s SOFTWARE DISPLAY REGISTER
;:SOFTWARE SWITCH REGISTER

TYPOUT
START
#1,TYPOUT
START

PS=177776
TRAPVEC=34

000034
001000
001002

.WORD
.WORD

.=1000
SWR:

177570

DISPLAY:
ROMSA1: 173000

DATLN1:

177570

512.

ROMSA2:

165000

ACTCRC:
ACTLPC:
PARCNT:
TYPOUT:

0
O
0
O

.SBTTL

ACT11 HOOKS

DATLNZ2: 512.
XORS:
0
EXCRC:
O
EXLPC:
O

*'ttttt*fit*tifit*tfittt'ttt*ittttttttt*tttt*tfitttttttttttttw*ttfi'

000046

000052

001032
000046
002060
000052
000000

001032

HOOKS REQUIRED BY A(CT11

.SBTTL

SSZZC-.

:SAVE PC

SE?BAD

2:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP

.WORD
0
.=$SVP(
APT PARAMETER BLOCK

2:2)SET LOC.52 TO ZFRO
;. RESTORE PC

ttt*tittttttttttttttttttttt*fi*ifittttttt*tttfitttt'tttttttttttttt

SET LOCATIONS 24 AND 44 AS RLQUIRED FOR APT
IR

000024

001032
000024
000200
000044

AR AR R AR AR AR AR AR AR R RR AR AR AR RRRRRARRARRRRNRARRRANA
AR AR R RS

.$X=.
.=24

200
.=44

;;SAVE CURRENT LOCATION
;.SET POWER FAIL TO POINT TO START OF PROGRAM

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

MAIN.

MACY11

553
554

000044

CZMOAE .P11

SSS

30A(1052)

17-APR=79

17-APR- 10:12

10:14

001032
001032

560
561
562
563
564

565

ggg

":ttttitt'tt*fi't'ttQtttfi't"tt.*tttttt.".Qfitl*.'.fit'ttfitttfiQ'Q..

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
s INTERFACE SPEC.
001032

001032
001034
001036
001040
001042

001044

$APTHD:

000000
001046
000002
000002
000000

000014

568

569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
ggg

$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$UNITM:

.WORD
.WORD

.SBTTL

APT MAILBOX-ETABLE

e AR

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

000000

000000
000000
000000
000000
000000
000000

000
000
000000
000000
0G0000

001076

001076
001102
001106

005067
005067
012767

177746
177740
000001

001114

012706

000500

001120

012737

602
603
604
605
606
607
608

001126

_WORD
.WORD
.WORD

.WORD

004570

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

SETEND-SMAIL/2 ;;LENGTH MAILBOX~E
TABLE (WORDS)

AMSGTY

AFATAL

ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

R AR AR AR AR R AR

ARk khhdb i

s ;APT MAILBOX
;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER
;;PASS COUNT
;;DEVICE COUNT
;:I1/0 UNIT NUMBER
;;MESSAGE ADDRESS
;;MESSAGE LENGTH
;;APT ENVIRONMENT TABLF
; ;ENVIRONMENT BYTE
;:ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;;USER SWITCHES
;;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,Q=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT

START:
177736

000034

001134
001142

012737

012737
012737

000340

000036

001150
001154
001162

013746
012737
012767

000004
001210
177570

000004
177610

004412
000340

O
$MAIL
2
2
O

R AR AR AR AR AR A AR AR AR AR AR ARAR AR

.EVEN
$MAIL :
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE :
$ENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD
i
s
i
;e
st
3
$ETEND:
MEXIT

594
595
596
597
598
599
600
1

SEQ 0013

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

556
ggg
559

PAGE 14

APT PARAMETER BLOCK

000024
9000026

(LR
$FATAL
;CLEAR ERROR NO.
CLR
$MSGTYP
;CLEAR MESSAGE TYPE (APT)
MOV
#1,8TESTN
sSET TEST NO.
.SBTTL
INITIALIZE THE COMMON TAGS
MOV
#500,SP
:;SETUP THE STACK POINTER
;;INITIALIZE A FEW VECTORS
MOV
#$TRAP,#TRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS
MOV

#340,a#TRAPVEC+2; LEVEL 7

MOV
#SPWRDN, a#PWRVEC " ; :POWER_FAILURE VECTOR
MOV
#3640, a4PWRVEC+2 ; :LEVEL 7
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "*=1'", SETUP FOR A SOF TWARE SWITCH REGISTER,
MOV
A¥ERRVEC,~-(SP)
;;SAVE ERROR VECTOR
MOV
#64% ,Q#ERRVEC
;;SET UP ERROR VECTOR
MOV
#DSWR, SWR
:.SETUP FOR A HARDWARE SWICH REGISTER

17<APR=79
MACYT 30A(1052)
17-APR=79 10:12
(ZMOAE .P11
MAIN,

609
610
611
612

613

614
615
616

617

618

001170
001176
001204

012767
022777
001012

001206
001210

000403
012716
000002
012767
012767
012637

001214

001216
001224
001232
001236
001242
001250
001252

005067

177570
177777

10: 14

177574

64%:

177612

177554
177550

132767
001403
012767

000200

177617

001070

177520

026727
001402

176556

002060

65%:
66%:

67%:

104401

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

001441
005767
001012

INITIALIZE THE COMMON TAGS

177604

001216
000176
000174
000004

PAGE

SEQ 0014

:;AND A HARDWARE DISPLAY REGISTER

MOV
(MP
BNE

#DDISP,DISPLAY
#-1,35WR

;:TRY

8R
MOV

65%
#65%, (5P)

::BRANCH IF NO TIMEOUT
;:SET UP FOR TRAP RETURN

MOV
MOV
MOV

#SWREG, SWR
;;POINT TO SOF TWARE SWR
#D]SPREG,DISPLAY
(SP)+ ,#ERRVEC
;;RESTORE ERROR VECTOR

RTI

CLR
BITR
BEQ
MOV

cMP
BEQ
TYPE

668

$PASS

TO REFERENCE HARDWARE SwR

..BRANCH IF NO TIMEOUT TRAP O(CCURRED
THE HARDWARE

SWR IS NOT

;CLEAR PASS COUNT

#APTSIZE ,$ENVM

..TESY USER SIZE UNDER APT

#$SWREG, SWR

:iNO,USE APT SWITCH REGISTER

67%

= =1

;:YES ,USE NON-APT SWIT(CH

42 ,#SENDAD
RESTRT

sACT AUTO MODE?
;YIF SO: BR

#1176, 46

;1S SOFTWARE SWITCH REGISTER =6?

#SWREG, SWR

sIF

SO USE

gSTIN

;IF

ZERO:

TITL

000176

000006

000176

177466

177462

004714
004644

004766
005036
005106
005156

177470
177460
177442
177432
177432
177422

176446

000001

RESTRT:

1%:

S12:

GETIN:
177462

177416

aSWR,R0

;GET SWR

TEST NORMALY
THE

GET

SOF TWARE

SWITCH REG

INPUT

TXLPC(RO) ,EXLPC
TXCRC(RO) ,EXCRC
TDLN1(RO) ,DATLN1
TRMSA1(RO) ,ROMSA1
TDLN2 (RO) ,DATLN?
TRMSA2 (RO) ,ROMSA2
CHECK

EXPECT. LPC
EXPECTED CRC
1ST LENGTH
1ST STARTING ADDR.
;FETCH 2ND LENGTH
JFETCH 2ND STARTING ADDR
:GO COMPUTE

CHECK
#1,8ENV
CHECK
TYPOUT

;1F SO; BR USE DEFAULT PARAMETERS
;UNDER APT?
.IF SO: BR
;ROM TYPE OPTION

;IF SO:

(SP)+ ,EXCRC

;STORE

EXPECT.

(SP)+ EXLPC

;STORE

EXPECTED LPC

GET2

104401

sIF NOT,

JFETCH
sFETCH
JFETCH
FETCH

JUNDER ACT AUT ACCEPT?

005311

104407

012667
104401

177370

005335

104407

012667
104401

177360

005515

104407
012667
104401

005655
104407
012667

177332

GETZ2:

(SP)
+ ,ROMSA1

CRC

sTYPE LPC INPUT REQUEST

JREQUEST 1ST ADDRESS SPACE
s INPUT SA
sREQUEST LENGTH OF

177322

(SP)+ DATLN1

s INPUT LENGTH

1ST ADDR.

SPACE

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

001464
001466
001470
001472
001476
001500
201502
001504
001510
001514
001516
001522
001526
001532
001536
001540
001544
001550
001554

10:14

PAGE

104401

TYPE

005575

104407

012667
104401

RDOCT

177312

MOV

TYPE

104407

RDOCT

(HECK:

000660
177274
177272
177250

1%:

000556
177216
177214

CHO:

000270
177200
177176

177236

177146

177150

1$:

CH1:

177124

104401

TST
BEQ
JMP
CMP
BEQ

TYPE
EXCRMG
MOV
TYPOC
TYPE
ACCRMG
MO

177132

176136

002060

000001

177150

177062

MOV
JSR
MOV
MOV
ASR
JSR
MOV
MOV
BEQ
JSR
MOV
MOV
ASR
JSR
CMPB

BEQ

176204

000656

CLR
CLR

BEQ

177230
177226

000522
000001

MOV
TST
BEQ
JMP
MOV

177240
000324

026767
001431

(SP
+ ,ROMSA2
)

SIZE2

177302
177314

SEQ 0015
;REQUEST START ADDR.

SA2

005735

012667
005767
001402

INITIALIZE THE COMMON TAGS

(SP)+ ,DATLNZ

TYPOUT

TYPROM
ACTCRC
ACTLPC

DATLN1,RO
CHO

ROMSA1,R1
PC,CRC

ROMSA1,R1
DATLN1,RO
RO
PC.LPC

ROMSAZ2,R1
DATLNZ RO
CH1

PC,CRC

ROMSAZ2 ,R1

DATLNZ
RO

RO
PC,LPC
#1,8ENV
1%

42
CH1

AUTACT

EXCRC,ACTCRC

s INPUT SA

JREQUEST LENGTH OF 2ND SPACE
s INPUT LENGTH

;1S TYPOUT REQUESTED?
;BRANCH IF NOT
;GO _TYPE OUT POM
;CLEAR STORAGE FOR ACTUAL CRC
;CLEAR STORAGE FOR ACTULAL LPC
sSET LENGTH OF 1ST ROM SPACE
;1F NO VERSION SELECTED:
BR
;POINT TO START OF 1ST ROM SPACE
;COMPUTE FIRST HALF OF CRC
sPOINT TO START OF 1ST ROM ADDRS.
;SET LENGTH OF 1ST ROM ADDRS.
;CONVERT TO WORDS
;COMPUTE FIRST HALF OF CRC
;POINT TO 2ND ROM ADDRS.
;SET LENGTH OF 2ND ROM ADDRS.
;BR IF

ACTCRC,=(SP)

42 ,#SENDAD
1%
#1,8ENV

cK1

THIS SPACE NOT USED

:COMPUTE REMAINDER
;POINT TC START OF
;SET LENGTH OF 2ND
s CONVERT TO WORDS
;COMPUTE REMAINDER
;UNDER APT?

OF C(RC
Z2ND ROM ADDRS.
ROM ADDRS.

OF LPC

:IF SO:
BR
:UNDER ACT AUTO ACCEPT’
;IF NOT:
BR

; COMPUTED
= EXPECTED ?
;IF SO:
BR
:TYPE

EXCRC,=(SP)

FOR 2ND SPACE

CRC ERROR MESG.

sPUT EXPECT CRC ON STACK

;TYPE EXPECTED CRC
sTYPE ACTUAL CRC MESSG

;PUT ACTUAL CRC ON STACK
s TYPE ACTUAL CRC
sUNDER AC;RAUTO MODE
?
*]F SO:
;UNDER APT?
JIF NOT:

177122
177112

1%:

#2,8FATAL
#1,8MSGTYP

xxwr
sMOVE TO MAILBOX ERROR NO.
sSET MAILBOX FOR FATAL ERROR
:CRC ERROR

177054

(K1:

ACTLPC,EXLPC

: COMPARE EXPT.
;1F SO:
BR

(k2

:TYPE

LPC

LPC=ACTUAL LPC

ERROR MESSG.

wmww

001750

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

005404
01€746

104402
104401

005453
016746

026727
001402

MACY11

P11

10:14

PAGE

ACLPMG
MOV
TYPOC

177034

176044

002060

000001

177056

000003
000001

177030
177020

18:

176006

002060

(K2:

18:

177200

016767

176722

022701
001004
005300
005300
005721
000770
004767
004767

173024

GOAGIN:

176712

(RC:

(LO:

(L3:

42, ASENDAD
1%

JSR

NOP
NOP
NOP
JMP

MOV

MOVB
(MP
BNE

177703

CL1:

177703
000074
176620
.

177676
176604
176600

(L2:

$PASS
@#42,R0
GOAGIN

PC, (RO)

RESTRT

ACTCRC,XORS

DEC
DEC

BR
JSR
JSR

CLO
PC,PARITY
PC.XOR

ROR

Ré

BCC
BIS
CL

MOV

(R1)+

CL2
#400.R

Ré4,RS

BIC

#177703,RS

MOV

R&.XORS

BEQ

CLLAST

(OM
BIC
BIC
BIS
DEC

JMP
CLLAST: MOV
(OM

sPUT ACTUAL LPC ON STACK

;TYPE ACTUAL

LPC

JUNDER ACT AUTO MODE?
JIF SO:

;UNDER APT?
;IF NOT:

*rkk
sMOVE TO MAILBOX ERROR NO.
sSET MAILBOX FOR FATAL ERROR

:LPC ERROR

sACT AUTO ACCEPT?

;IF

S50:

;TYPE

(R1),Ré
#173024,R1
(L3
RO
RO

CLC

000400

042704
050504
010467
005300
001402
000167
016704
005167

C(MP
BEQ

TST

000114
000166

ACTLPC,=(SP)

#1,SENV
(K2
43, SFATAL
#1.SMSGTYP

RESET

sPUT EXPECTED LPC ON STACK

sTYPE ACTUAL LPC MESSG.

(MPB
BNE
MOV
MOV

EQTST
INC
MOV
BEQ _

SEQ 0016

sTYPE EXPECTED LPC

42 HSENDAD

TYPE

177004
000042

EXLPC,=(SP)

(MP

HALT

SENDAD:

111104

THE COMMON TAGS

EXLPMG
MOV
TYPOC
TYPE

177042

104401

005476

INITIALIZE

END OF

TEST

;BUMP PASS COUNT
s CHECK APT
;KEEP GOING
;ACT HOOKS

;DO AGAIN
:GET CHAR.

%?CATION g;rfcreo BY SWITCHES

SFIXcodnrsas
;FIX POINTER

s CONT INUE
.GO GET PARITY
;XOR CHAR
;ROTATE

POS.

RIGHT

;IF NO CARRY: BR

;SET BIT NINE

:SAVE (HAR

RS
#177703,RS
#74,R4
R5,R4
RO

(L0
XORS,Ré
XORS

;IF LAST CAR.:

JGET NEXT (HAR.

wrww

MACY11 30A(10 52)
MAIN,
17=-APR=79
(ZMSAE P11
17-APR=79 10:1
:12

Guut- P4 Pt Pt P
et Pt P

OV NOAWN
S W -O

0o 0o

R
PR S P SRR L L B EEEREE SR

777

002214
002222
002226
002232
002240
002242
002246

10:14
PAGE 18
INITIALIZE THE COMMON TAGS

177050
177727

176572

176556

176562

176560

BIC
BIC
BIS
MOV
PARITY:

000010
000001

(LPO:

176542

CLPT:

RTS

CLR
MOV
BIT
BEQ
INC
CLC
ROR

DEC
BNE

177400

00C001

000207
010446
046716
040467
052667
016704
000207

016767
012104
022701
001402
004767
005300
001370
016767
000207

176516

000400

CLP2:
XOR:

176466
176462
176456
176452

176454

176442

173026
177732
176416

104401

MOvVB
BIC

LPC:

LPC2:
176424

8BIT
BNE
BIS
RTS

#177050,X0RS
#177727
,R4
R4 ,XORS
;?RS.ACTCRC

;COMPLEMENT ALL BUT BITS 38 5

PARCNT

;CLEAR BIT COUNTER

#10,R3

#1,R4

CLP1

PARCNT

R4
R3

CLPO

(R1)+,R4

#177400,R4

#1,PARCNT

CLP2

#400,R4
PC

MOV
BIC
BIC
BIS
MOV
RTS

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

MOV
MOV
CMP

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

LPC2

PC.,XOR
RO

000006

;ROTATE

TO NEXT BIT

sCONTINUE FOR ALL BITS
JSEE IF ODD # OF ONE BITS
BR
;IF SO:
;SET PARITY BIT

JEXIT

;XOR SUBROUTINE: R4 WITH XORS

sLOCATION EFFECTED BY SWITCHES
;IF SO:
SKIP LOC. BY BRANCHING

XORS ,ACTLPC

176372
176370

176354

;SET NO. OF BITS
;SEE IF ONE BIT
BR
;IF NOT:
;BUMP COUNTER

LPC1

TYPROM:

000026
176356

SEQ 0017

: TYPE

ROMSA1,R0O

DATLN1,R1
R1

TYPR1:

TYPR1
PC,TYP

ROMSAZ2 RO

DATLNZ,R1

R1
ENDOT

:
ENDOT

TYP:

PC,TYP

HEADER

;POINT OT 1ST ROM SPA(CE

sPUT LENSTH IN R1

;CONTERT TO WORDS

;BRANCH IF 1ST ROM SPACE NOT USED
;GO TYPE 1ST ADDR. SPACE

;POINT TO 2ND ADDR. SPACE
;PUT LENGTH IN R1
; CONVERT TO WORDS

;BR IF 2ND ADDR. SPACE NOT USED
.GO TYPE 2ND ADDR.

SPACE

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

833
834

002460

000403
032700
001006

10:14

000003

PAGE

TYPO:

104401

TYP3:

006015
010046
104402
104401

SEG 0018

TYP3

BIT

#3,R0

BNE

TYPE
CARLF
MOV

;ADDRESS MULTIPLE OF &2

TYP2

JIF

RO,=(SP)

TYP2:

000002
005226

177777

004644

176254

000042

002060

005226

000002

004644
004714

176216
176212

177124

000001
000001

AUTACT:
AUT1:

(RO) +,=(SP)

SP2
DEC
BNE

R1
TYPO

RTS

sRETURN

BEQ
CMP

AUTERR
TXCRC(RO) ,ACTCRC

;BUMP TALBE INDEX
;CHECKED ALL KNOWN VERSIONS?
JIF SO:
BR
;DOES THIS CRC AGREE?
;IF NOT:
KEEP LOOKING
JUNDER ACT AUTO ACCEPT?

?9;5

TMSG(RO) ,AUT?2

sSET UP VERSION MESSAGE

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

JSET EXPECTED CRC
JSET EXPECTED LPC
s CHECK LPC

#1,8FATAL
#1,8MSGTYP

;
;MOVE TO MAILBOX ERROR NO.,
*wxx»
sSET MAILBOX FOR FATAL ERROR
JAUTO ACCEPT FAILED

CMP

TMSG(RO) ,#=1

AUT1
a#62 ,ASENDAD
AUT3

MOV
MOV
JMP

AUTERR:

TYPE
AUTERM
MOV
MOV
HALT

LSBTTL

sFINISHED?
;IF NOT:
BR

RO
#2 RO

AUT3:

176224
176214

;PUT DATA ON STACK

;TYP DATA
;TYPE 2 SPACES

CLR
ADD

BNE
CMP
BEQ

AUT?2:

;PUT ADDRESS ON STACK

COLON
MOV
TYPOC
TYPE

NOT:

s TYPE ADDR.

TYPE

104402

012767
012767
000000

THE COMMON TAGS

TYPOC

006060
012046

104401
006064

INITIALIZE

TTY

;IF SO;

INPUT ROUTINE

.'.'ttttttfi'ltl‘itttttttt.tfi'fi'il"ttfltttfittfittt.fi't'it.'ttttttt'i'tt

2634
002636

177560
177562

$TKS:
$TKR:
.ENABL

.WORD
LWORD
LSB

.DSABL

LSB

177560
177562

;.TTY KBD STATUS
;:TTY KBD BUFFER

4 ttlttt.'fiit*.itt'tttt't.'.*t't'tt!'t'tttt'.tti'.t'tilt.'tttt"t

:*THIS

s*CALL:

e
i

002640

C11646

ROUTINE

WILL

INPUT

RDCHR

RETURN HERE

$RDCHR: MOV

(SP},=(SP)

A SINGLE

CHARACTER FROM THE

TTY

;2INPUT A SINGLE CHARACTER FROM THE TTv
;s CHARACTER IS ON THE STACK
;:WITH PARITY BIT

;sPUSH DOWN THE PC

STRIPPED OFF

sesw

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

016666

105777
100375
117766

890
891

892
893

042766
026627
001013
105777
100375
117746

042716
022627
001366
000750
026627

10:14
PAGE 20
TTY INFUT ROUTINE

000004
177760

000002

177754
177600
000004

000004
000004
000023

177726

1%:

MOV

TSTB
BPL

MOVR

2%:

177722
177600
000021

BIC
CMP
BNE

TSTB
BPL
MOVR

BIC

000004

000140

000004

000175

000040

000004

4%:

CMP
BNE
BR

SEQG 0019

4(SP),2(SP)

#AC<177>,4(SP)
L(SP) ,#2%
3s

+:GET RID OF JUNK IF ANY
::IS IT A CONTROL=S?
::BRANCH IF NO

$TKB,

::GET CHARACTER

a$TKB, 4 (SP)

asTKS
2%

= (SP)

#AC177.(SP)

;:WAIT FOR A CHARACTER
;:LOOP UNTIL ITS THERE

S:MAKE IT 7-BIT ASCII

::1S IT A CONTROL=Q?
::1F NOT DISCARD IT
::YES, RESUME

S:BRANCH IF

4%
#40,4 (SP)

::BRANCH IF YES
::MAKE IT UPPER CASE

CMP

4L(SP) 4175

RTI

::READ THE TTy

(SP)+ 421
2%
1%

4L(SP) ,#140

BGT
BIC

THE PS

S:WAIT FOR
;:A CHARA(CTER

CMP

BLT

;:SAVE

asTKS
1%

2:1S IT UPPER CASE?
YES

::1S IT A SPECIAL CHAR?

;.60 BACK TO USER

"".tttt.t..'ttttttt.ttt'ttt.."tt.fit.ttfitttttt'!ttt!tttttt.'.t.QQ

;*THIS

s*CALL:

I
T

ROUTINE

WILL

INPUT

STRING

RDL IN
RETURN HERE

00276C
002762
002764
002770
002774
002776

010346
005046
012703
022703
101456
104405
112613
122713

001022
005716
001007
112767
104401

$RDLIN:

003214
003224

1$:

2%:

108 :

MOV
CLR

MOV

CMP
BLOS

MGVB

(MPB

000170

177777

6% :

003214
000144
003212

000134
003212
000025

003230

000124

R3,=(SP)
-(SP)

#STTYIN,R3

#$TTYIN+8.,R3
A 3
(SP)+, (R3)

#177.(R3)

A BYTE

ALL

;2SAVE R3
::CLEAR THE RUBOUT KEY

::GET ADDRESS

;:BUFFER FULL?
;:BR IF YES

::GO READ ONE

CHARACTER FROM THE

::GET CHARACTER

TTY

::1S

THIS

: :BACKUP BY ONE

BLO
MOVR

43
(R3),9%

::BR IF YES
S:SETUP TO TYPEOUT THE DELETED CHAR.

B8R

DEC

CMP

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

R3,4#$TTYIN

::BR IF NO

THE

FIRST RUBOUT?

::BR IF NO
::TYPE A BACK SLASH
::SET

THE RUBOUT KEY

S :STACK EMPTY?

,9%

;:G0 TYPE

ST
8EQ
MOVR

(SP)
7%
#'\,9%

;:RUBOUT KEY SET?
J:BR IF NO
::TYPE A BACK SLASH

CLR
(MPB

(SP)
#25, (R3)

::CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?

TYPE

LSCNTLU

::TYPE

BNE
BR

,9%

8%
%

::GO READ ANOTHER CHAR.

s:BR [F NO

A CONTROL

::G0 START QVER

‘\''

0°'S

(SP)

BNE
MOVR
TYPE
MOV

TYPE

7% :

;:INPUT A STRING FROM THE TTY
: ;ADDRESS OF FIRST CHARACTER WILL BE

IT A RUBOUT

TYPE

5%:

TTY

S:1S

BNE

000134
003212

THE

::TERMINATOR WILL

RDCHR

000177

FROM

THE

STACK

17=-APR=79
MACY11 30A(7052)
P11
17-APR=79 10:12

003110
003114
003116
003120
003124

122713

001011

000022

TTY

003225
003214

104401

003¢24

A ¥

111367
104401
122723

000046

3%:

000717

001305

105063
104401

005726
012603
011646
016666
012766
000002
000
000
000010
077
015
000012
052536
136

005015
020075

040

036440

PAGE 21

INPUT ROUTINE

8%:

105013
104401
104401

00712

—————

10:14

1727777

003226

000004
003214

#22,(R3)

;:1S CHARACTER A "TMR'"TM

CLRB

(R3)

;sCLEAR THE CHARACTER

LSCRLF
LSTTYIN

;:TYPE
;s TYPE

A "CR'" & "LF"
THE INPUT STRING

,$QUES

SSTYPE B

BR
MOVB

1%
(R3),9%

. :CLEAR THE BUFFER AND LOOP
. sECHO THE CHARACTER

CMPB
BNE
CLRB

#15,(R3)+
2%
-1(R3)

;3CHECK FOR RETURN
;:LOOP IF NOT RETURN
;sCLEAR RETURN (THE 15)

MOV

(SP)+,R3

..RESTORE R3

MOV
MOV

4(SP) ,2(SP)
#STTYIN,4(SP)

FE,

.BYTE

.ASCIZ

<15><12>/SWR = /

TYPE

,9%

LSLF
(SP) +

MOV

000002
060004

JJBRANCH IF NO

TYPE
TST

9%:

005015
006507
053523
000
047040
000040

CMPB

8NE

TYPE
TYPC

003212
000015

SEQ 0020

(SP) ,=(SP)

RTI

BYTE
.BLKB
.ASCII
ASCII
LASCIZ
.ASCIZ
.ASCIZ

::GO PICKUP ANOTHER CHACTER

;sTYPE A LINE FEED
;sCLEAN RUBOUT KEY FROM THE
;ADJUST

THE

STACK

STACK AND PUT ADDRESS OF

FIRST ASCII CHARACTER ON IT

s JRETURN

. ;STORAGE

FOR ASCII

CHAR.

THE

TO TYPE

0
;s TERMINATOR
8.
;sRESERVE 8 BYTES FOR TTY INPUT
%"
;sQUESTION MARK
<15>
;s CARRIAGE RETURN
<12
;:LINE FEED
/7*U/<15><12>
;;CONTROL 'V
/*G/<15><12>
;:CONTROL ''G"'

000
000012
020122

$TTYIN:
$QUES:
$CRLF:
$LF:
$CNTLU:
$CNTLG:
$MSWR:

053505

$MNEW:

ASCIZ

.SBTTL

READ AN OCTAL NUMBER FROM THE

NEW =
TTY

Q’tttfitllttfittttfit.tlttt'fiiti AAARAAAAAAAA
AN AR A AR AR A AR ARk

'THIS ROUTINE WILL READ AN OCTAL

;*CHANGE

TO BINARY.

(ASCII)

NUMBER FROM THE

TTY AND

:aTHE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '"'' WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

s*CALL:

i
i

RDOCT
RETURN HERE

011646
016666
010046
010146
010246

000004

104406

003214

012609
010067
005001
005002

000002

$RDOCT: MOV
MOV
MOV
MOV
MOV
%:

000100

RDLIN
MOV

CLR
CLR

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

R2,=(SP)

(SP)+,RO

R1
R2

;;READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STA(K
;:HIGH ORDER BITS ARE IN $HIOCT
;;PROVIDE

SPACE

;. INPUT NUMBER

FOR THE

;+sPUSH RO ON STACK
;;PUSH R1 ON STACK
;sPUSH R2 ON STACK

;sREAD AN ASCIZ LINE

;.GET ADDRESS OF 1ST (HARACTER
;2AND SAVE IT

;:CLEAR DATA WCRD

17=APR=79
MACY11 30A(1052)
(ZMSAE.P1T
17=APR=79 10:12

003316
003320

10:14
PAGE 22
READ AN OCTAL NUMBER FROM THE

112046

2%:
000060

000067

00000
RO =B b it b i e
i i i
FRRUK 8'\"\)'\)'\)'\"\)'\"\)
VO NOAWVIES
W = OVONO
NS WN-=O g

sl
il
il
il el
.
soill
aull i
i
il
p—— -t
S
Y
Y

OO0O0O0O0000O [olelololololololelalele]

BEQ
CMPB
BGT
(MPB
BLT

ASL
ROL
ASL
ROL
ASL
ROL

1008

MOVB

177770

BIC
3%:

000012
000026

4%:

5%:

003224

$HIOCT:
.SBTTL

1031

ADD
BR

TST
MOV
MOV

MOV
MOV
MOV
RTI
TST

(RO)+,=(SP)

#'0,(SP)
4%
#'7,(SP)
A3
R1
R2
R1
R2
R1
R2
#*C7,(SP)
(SP)+ ,R1

+
(SP)
R1,12(SP)
R2,$HIULT
(SP)+,R2
(SP)+ ,R1
(SP)+,R0

CLRB

+
(SP)
(RO)

.WORD

BR
.WORD

TYPE
TYPE

. $O0UES

TYPE ROUTINE

TTY

SEQ 0021

;:PICKUP THIS CHARACTER
1F ZERO GET OUT
;.
s ;MAKE SURE THIS CHARACTER
;IS AN OCTAL DIGIT

¥l
L

;.8
;:STRIP THE ASCII

JUNK

;;ADD IN THIS DIGIT
:;LOOP
;sCLEAN TERMINATOR FROM STACK
.sSAVE

THE RESULT

;.POP STACK INTO R2
;:POP STACK

INTO R1

;;POP STACK INTO RO

s sRETURN

;:CLEAN PARTJAL FROM STACK
;:SET A TERMINATOR

;2TYPE UP THRU THE BAD CHAR.
=

l.‘,ll

'.CR'.

LFII

*TRY AGAIN
HIGH ORDER BITS GO HERE

tttt'ttt't'l‘t’ttttttttt't‘Q.ttfit'ttttfi'tttt."t.ttl‘fitfit'Qt'fit..

tROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

'NOTE1
;*NOTE?:
;*NOTES:

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

1039

;*CALL:
'1) USING A TRAP INSTRUCTION
TYPE
.MESADR
'OR

o%
* &

105767
100002

003444

003452
003454
003462

000000
000430
010046
017600
122767

001011
132767
001405

000265

$TYPE

1%:

000002
000001

175414

000100

175405

;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

ME SADR
TSTB

BPL
HALT
BR
MOV

MOV

CMPB
BNE
BITR
BEQ

$TPFLG
1%

RO,=(SP)

a2 (SP) ,RO

#APTE
, SENV
NV

;:1S THERE A TERMINAL?
J:BR IF

YES

;sHALT HERE

.. LEAVE

NO TERMINAL

;:SAVE RO
;:GET ADDRESS OF ASCIZ STRING

,.RUNNING IN APT MODE
;NO,GO CHECK FOR APT CONSOLE
#APTSPOO
, SENVML
; SPOOL MESSAGE TO APT

62%
62%

..NO GO CHECK FOR CONSOLE

MACY11 30A(1052)
17-APR=79
.MAIN.
17-APR=-79 10:12
CZMSAE P11
1057
1058
1059
1060

1061

1062

1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085

003470
003474

010067
004767
000000
132767

001003
112046
001005
005726
012600
062716
000002
122716

001430
122716
001006
005726

10:14

000004
CC0230

000040

175363

PAGE 23

TYPE ROUTINE

61%:
62%:

2%:

000002

60%:
3%:

000011

(%:

MOV
JSR
.WORD

BITB
BNE
mMovB
BNE

105067
000755
004767
126726
001350
016746

105366
002779
004767
105367
000770

112716

004767

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

000200

000056
000130

5%
6%:

7%:

000032
000072

132767

001372

000052

000002
000015

$TYPEC:

PC,S$TYPEC

$CHARCNT
7%

MOVB
JSR
BITB
BNE
BR

TSTB

000036
000002

Y
Y
N

000002

1%:

_——

002

$TPS:
$TPR:
$NULL:
$FILLS:

<CR><LF> EQUIV

;;TYPE A CR AND LF

TAB PRCCESSOR

INCB
$CHARCNT
: . WORD
$TYPEX: RTS
177564
177566
000

;:CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
;:GO TYPE THIS CHARACTER
;oIS IT TIME FOR FILLER CHARS.?
;:IF NO GO GET NEXT CHAR.
;2GET # OF FILLER CHARS. NEEDED
;sAND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
;iBR IF NO==-GO POP THE NULL OFF OF STACK
;GO TYPE A NULL
;.DO NOT COUNT AS A COUNT
2:LO0P

1(SP)
6%

000014
000012

;:BRANCH IF <HT>

$CHARCNT
2%

TST

000044

—y

8%:
9%:

2 JRETURN

;.POP

$FILLC,(SP)+

DECB
BLT
JSR
CECB
BR

THE STACK

;RESTORE RO
; :ADJUST RETURN PC

(SP)+

$NULL ,=(SP)

000001

;2
IF TERMINATCOr POP IT OFF

;sBRANCH IF NOT <CRLF>

PC,$TYPEC

000120

.+ SETUP MESSAGE ADDRESS FOR APT
. .SPOOL MESSAGE TO APT
; JMESSAGE ADDRESS
2 ;APT CONSOLE SUPPRESSED
JJYES,SKIP TYPE OUT
. sPUSH CHARACTER TO BE TYPED ONTO STACK
;iR IF IT ISN'T THE TERMINATOR

#CRLF, (SP)

000130

000040
000014
000007

#APTCSUP
, SENVM

(RO)+,=(SP)
4%

104401

003225

RO,61%

PC,$ATY3

60%

TST
MOYv

;HORIZONTAL

SEQ 0022

.WORD
.WORD
.BYTE
.BYTE

,(SP)

PC,$TYPEC

#7 ,$CHARCNT
9%
+
(SP)

2%
A$TPS
$TYPEC
2(SP) ,a$TPB

#CR,2(SP)
1%
$CHARCNT
$TYPEX
#LF,2(SP)
$TYPEX
(PC)+

. sREPLACE

TAB WITH SPACE

;:TYPE A SPACE
s ;BRANCH IF NOT AT
;:TAB STOP
. ;POP SPACE OFF STACK
;:GET NEXT CHARACTER
JsWAIT UNTIL PRINTER IS READY

;:LOAD CHAR TO BE

TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
;:BRANCH IF NO
::gi?;-CLEAR CHARACTER COUNT

;21S CHARACTER A LINE FEED?
;BRANCH IF YES
. sCOUNT THE CHARACTER

;s CHARACTER COUNT STORAGE

177564
677566

;. TTY PRINTER STATUS REG.
;.TTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

;s CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED

32
%z

MACY11

WY
D

003714
003715

30A(1052)

17-APR-79

17=-APR=79 10:12

10:14

012
000

N
o
D D e
T
(S
D D D
N
O
D D D D D D
e
D D D
D
D

N
D D D D
S
D D
D D D
D

e T e
D D e
D D
e e i de T
e
e e e e e e e e
B
e
d o e e d o o e d
) e e e D d e e

003716

003724
003732
003734
003742
N03742
003744
003746
003752
003754
003762
003764
003772
003774
004000

004006
004012
004014
004020
004022
004024
004030
004032
004036
004044
004046
004054

004062

112767

112767
000403
112767
010046
010146
105767
001450
122767
001031
132767
001425
017600
062766
005767
001375
010067
105720
001376
166700
006200
010067
012767

000413
017667
062766

016746

004066
004072
004074
004074
004100

105767
001416

004106

001413

004102

004110

004114
004116
004124
004132
004136
004142

004146

004152
004154
004156
004160

004161
004162

004767
000000

.SBTTL

000236

$ATY1:

000001

000220

$ATY4:
$ATYC:

000001

175104

000100

175075

000004
000002
175034
)
175042

000004

175002

000004
000002

000016
000004

173710

177332

000004
000002
174710
000020
000013

3$:

12
0

;2 INSERT FILL CHARS. AFTER A ‘LINE FEED'"
::"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

APT COMMUNICATIONS ROUTINE

MOVB

MOVB
BR
MOVB
MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
ST
BNE
MOV
TSTR
BNE
SUB
ASR
MOV
MOV

BR
MOV
ADD

MOV
4%:
5%:
108 :

000062

174732

1%:
2%:

175032
_
175026
000004

005767

004164
000200

$ATY3:

000206

174760

000
000

000226

.BYTE
.BYTE

SEQ 0023

-.'tt'tttttttt"tttttt.tttttttQtttt..tt"t.".t.tttttfittttttt.tt't

000001

005767
001375
017667
062766
005267
105067
105067
105067
012601
012600
000207
000

PAGE 24

TYPE ROUTINE

$FILLC:
$TPFLG:

TY
D

PNOMNONOMNIMNDNVIMNINIA)
s
s

Oogogo«oogmmmmmmmmmmb:\J\bbbbbbb
\NLNUM&flN&!UflNLNEflB
ONOWVNBWN=O
VRN VNAWN=OVONIA
NS W =00V
W=
NV
WN 2OV NO VIS W

174724
000004

12%:

000006

$MFLG:

$LF.G:
$FFLG:

#1.$MFLG
SATYC
#1,$FFLG

RO,=(SP)
R1,=(SP)
$MFLG
5%
WAPTENV,.SENV
3$
WAPTSPOOL ,$ENVM
33
34 (SP) RO
#2.4(SP)
$MSGTYPE
1%
RO, SMSGAD
(RO) +
2%
$MSGAD ,RO
RO
RO, $MSGLGT
#4 , $MSGT YPE
5%
4 (SP) ,4%
#2.4(SP)

::TO REPORT FATAL ERROR
::TO TYPE A MESSAGE

;:TO ONLY REPORT FATAL ERROR
:2PUSH RO ON STACK
2:PUSH R1 ON STACK
$:SHOULD TYPE A MESSAGE?
;:IF NOT:
B8R
::OPERATING UNDER AFT?
::IF NOT:
BR
::SHOULD SPOOL MESSAGES?
;:IF NOT:
BR
*:GET MESSAGE ADDR.
::BUMP RETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?
SSIF NOT:
WAIT
$:PUT ADDR IN MAILBOX
::FIND END OF MESSAGE
;:SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
SPUT LENGTH IN MAILBOX
S:TELL APT TO TAKE MSG.
;:PUT MSG ADDR IN JSR L INKAGE
- -BUMP RETURN ADDRESS

JSR
.WORD

PC.$TYPE
0

177776,=(SP)

::PUSH 177776 ON STACK

ISTB
BEQ

$FFLG
12%

::SHOULD REPORT FATAL ERROR?
S:1F NOT:
BR

BEQ

128

S:IF NOT:

118$:

#1,$FFLG

TST

BNE
MOV
ADD
INC
CLRB
(LRB
CLRB
MOV
MOV
RTS
.BYTE

.BYTE
.BYTE

.EVEN
APTSIZE=200

$SENV

$MSGTYPE

118
@4 (SP) ,$FATAL
#2.4(SP)
$MSGTYPE
S$FFLG
SLFLG

S$MFLG

(SP)+,R1
(SP)+.RO
PC
0

0
C

“:CALL TYPE MACRO

*:RUNNING UNDER APT?
BR

S:FINISHED LAST MESSAGE?

SIF NOT:
WAIT
::GET ERROR #
; :BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
S:CLEAR FATAL FLAG
::CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
::POP STACK INTO R1
::POP STACK INTO RO
;JRETURN
iMESSG. FLAG

::L0G FLAG
;sFATAL FLAG

10:14
PAGE 25
AFT COMMUNICATIONS ROUTINE

000001
000100
000040

APTENV=001
APTSPOOL=100
APT(CSUP=040
.SBTTL
BINARY TO OCTAL

D e

e
~N

mgonoooomwww\owwwwwwo
»2
éugtnuhu—&g<un~qghn
W= OOV NV WN—=0O9 M.

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

;*THIS ROUTINE

;*0CTAL

;'?LVEOS---ENTER HERE

D D D D B

s*CALL:

AND TYPE

NUM, - (SP)

M
3

.BYTE
BYTE

N
M

TYPOS

|T.

16=BIT BINARY NUMBER

;iN=1
;:M=1

FOR

D D =D
=
D o

TYPEOUT

;:1=TYPE LEADING ZEROS

;:0=SUPPRESS LEADING ZEROS

;*$TYPON===<ENTER HERE
;*$TYPOS OR $TYPOC
MOV

TYPON

TO TYPE OUT WITH THE

NUM,-(SP)

s sNUMBER
2 sCALL

SAME PARAMETERS AS

TO BE

FOR

THE LAST

TYPED

TYPEOUT

- %

;*$TYPOC-=--ENTER HERE
s«(CALL:

e N
o

004164
004170
004176
004202

017646
116667
112667
062716
000406
112767
112767
112767

000000
000001
000207
000002
000001
000006
000005

000211

000171
000165
000154

004240

116704

000145

004246
004252
004256
004262

062704
110467
116704
016605

000006
000132
000125
000012

MOV

TYPOC

$TYFOS: MOV
MOVB
MOVB
ADD
BR

$TYPOC: MOVB
MOVB

$TYPON: MOVB
MOV

1%:

°’%:

105367

000076

042703

177770

3%:

10 TYPE

TO 6 FOR NUMBER OF DIGITS T2 TYPE
0R 0

- %

DIGITS

;;NUMBER TO BE TYPED

s .CALL

s *CALL:
2w

TO A 6-DIGIT

TO SETUP SUPPRESS ZEROS AND NUMBER OF

MOV

O O O OO 000 0o

TO CHANGE

b i =

OO
oo~

Nt e

nonuroNuNLRLRLRLAL
RNV NNV AL N

LN N V1AW ) ¥ R
G
- i Y-y
SANN=O0VONOWNEBWN=O

=
b e
d
d
e
D
e
d cd
i
D
i
e

iS USED

(ASCII) NUMBER AND TYPE

FOR

TYPEOUT OF

A 16 BIT NUMBER

NUM, - (SP)

s sNUMBER TO BE

a(SP) ,-(SP)
1(SP) ,$0F ILL
(SP)+_,$0OMODE+1
#2,(SP)
$TYPON

. sPICKUP THE MODE
;;LOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
;sADJUST RETURN ADDRESS

#1,80F]ILL

#6, $OMODE +1

. sCALL

FOR

TYPED

TYPEOUT

;2SET THE ZERO FILL SWITCH

;2SET

FOR SIX(6)

DIGITS

#5,80CNT
R3,-(SP)

JoSET THE ITERATION COUNT
;:SAVE R3

MOV
zg\ée

RS,=(SP)
E?WODEH.RA

;:SAVE RS
;:GET THE NUMBER OF

ADD

#6 ,R4

MOV

(ASCII)

::t'.t..QQ‘Qtfi*'..-*..&"Q'.Q..Q..QQQ!...'Q.Q.Q'.Q'QQQQ.Q..Q'.Q..

004210
004216
004224

1209

SEQ 0024

MOVB
MOVB
MOV
CLR

R4 ,-(SP)

R4 , SOMODE
$OF ILL R4
12(SP) ,RS
R3

. :SAVE R4

s sSUBTRACT

DIGITS TO TYPE

IT FOR MAX.

ROL

;sROTATE MSB INTO '‘C'*

ROL

;:FORM THIS DIGIT

ROL
ROL

RS
RS

DECB

$OMODE

MCV
ROL

BPL

BIC

;:G0 DO MSB

RS.R3
R3

;:GET LSB OF

;:BR [F NO

#177770,R3

ALLOWED

:2SAVE IT FOR USE
J2GET THE ZERO FILL SWITCH
;;PICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD

;2TYPE

THIS DIGIT

THIS DIGIT?

:.GET RID OF

JUNK

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

1225
1226

004320
004322

1227

004324

1230
1231
1232
1233

004334
004340
004344
004350

1228
1229

1234

004326
004330

004354

001002
005704

001403

005204
052703

052703
110367
104401
105367

003347

1235
1236
1237

004356
004360
004362

002402
005204
000744

1239
12640
1241
12642
1243
1244
1245
12646
1247
1248

004366
004370
004372
004400
004402
004404
004405
004406
004407
004410

012604
012603
016666
012616
000002
000
000
000
000
000000

1238

}ggg
1251
1252

004364

004412
004420
004426

012737
012737
010046

1257
1258
1259
1260
1261
1262

004432
004434
004436
004440
004442
004446

010246
010346
010446
010546
017746
010667

1263
1264
}ggg

004430

004452
004460
004462

48:

000060
000040
000040

5%:

004404
000032

7%:

6% :

000002

000004

004552
000340

000024
(00026

010146

012737
000000
000776

174332

004464

000024

1267

1268

1269
1270
1271
1272
1273
1274

1275
1276
1277
1278
1279

1280

INC
BIS

R&4
#'0,R3

BEQ

81S
mOVB
TYPE
DECB

BLT
INC
BR

MOV

AND TYPE

#' ,R3
R3,8%
,8%
SOCNT
2%

SEQ 0025

;;TEST FOR 0
,.SUPPRESS THIS 0?
;.BR

004514
004516
004520
004522
004524

004526

012737
016706
005067
005267
001375
012677

012605
012604
012603
012602
012601

012600

004552
000060
000054
000050
174264

000024

YES

;sMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
::G0 TYPE THIS DIGIT
;:COUNT BY 1
;:BR IF MORE

TO DO

69
R4
2%

:;BR_IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT

(SP)+ R4
(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

;;RESTORE R4
;;RESTORE R3
;;SET THE STACK FOR RETURNING

(SP)+ RS

0
0
O
O
O

;;RESTORE RS

; ;RETURN
;:STORAGE FOR ASCII DIGIT
;: TERMINATOR FOR TYPE ROUTINE
::0CTAL DIGIT COUNTER
..IERO FILL SWITCH
:NUMBER OF DIGITS TO TYPE

IR
AN AR AR AR R AR AR R AR AR AR R AR AR AR AN AR R RN RN R R R AR AR AR
:POWER DOWN ROUTINE
$PWRDN: MOV
#SILLUP ,@#PWRVEC ;;SET FOR FAST UP
MOV
#340,WPWRVEC+2
; :PRIO:7
MOV
RO,=(SP)
::PUSH RO ON STACK

MOV
MOV
MOV
MOV
MOV
MOV

MoV
HALT
BR

R1,-(S5P)

::PUSH
;:PUSH
;:PUSH
::PUSH
..PUSH
:SAVE

: ;HANG UP

R2 ON STACK
R3 ON STACK
R4 ON STACK
R5 ON STACK
aSWR ON STACK
SP

#SPWRUP,@#PWRVEC" : ;SET UP VECTOR

AR AR RN AR AR AT NRRRAR R AR AR AR

:POWER UP ROUT INE

$PWRUP: MOV
MOV
CLR
1$:
INC
BNE
MOV

MoV
Mov
MoV
MOV
MOV
MOV

R AR RN R RS

::PUSH R1 ON STA(CK

R2,=(SP)
R3,-(SP)
R4 ,=(SP)
R5,-(SP)
ASWR, - (SP)
SP, $SAVR6

SRR AR AR AR AR AR AR A AR R A AR AR R RR A AR

004464
004472
004476
004502
004506
004510

:DON'T SUPPRESS ANYMORE 0°S
..MAKE THIS DIGIT ASCII

POWER DOWN AND UP ROUTINES

MOV

000104

(ASCII)

4%
R&

MOV
Mov
MoV
MOV
RTI
8%:
.BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

.SBTTL

BNE
TST

BGT

012605

1253
1254
1255

1256

10:14
PAGE 25
BINARY TO OCTAL

ASILLUP,a#PWRVEC ;;SET FOR rAST DOWN
$SAVR6, SP
;:GET SP
$SAVR6
..UAIT LOOP FOR THE TTY
$SAVR6
JWAIT FOR THE INC
1%
..OF
WORD
(SP)+,aSWR
;:POP STACK INTO aSWR

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

:POP
..POP
::POP
::POP
::POP

STACK
STACK
STACK
STACK
STACK

(SP)+,RO

;:POP STACK

INTO
INTO
INTO
INTO
INTO

R5
R4
R3
R2
R1

INTO RO

17-APR=79
MACY11 30A(1052)
.MAIN.
17-APR- 79 10:1 2
CZMSAE .P11
1281

004530
004536

012737
012737
104401

004560
000002
000000
000776
000000
005015
000122

004412
000340

10:14

PAGE 27

POWER DOWN AND UP RGUTINES

000024
000026

MOV
MOV

TYPE

047520

042527

HALT

THE POWER FAILURE

;;POWER FAIL MESSAGE POINTER
;:THE POWER UP SEQUENCE WAS STARTED

=2
<15><12>'POWER"’

;2 BEFORE THE POWER DOWN WAS COMPLETE
;:PUT THE SP HERE

.EVEN
TRAP DECODER

AR R AR A AR AR AR ARAAA P AR ARARARAAAAAARNRAAAR
AR
AR AR AR AR RN

-TH]S 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 ROUTINE.

BRERIROLEREY
KK
A

W
WW W
WnO
WN=O
o0 0o NO\wW S WNV=0O 0NV

JREPORT

$POWER

BR
$SAVR6: 0
$POWER: .ASCIZ
.SBTTL

-—l—l_a—l—l—‘—b—l—l—a-—d—l—l—.l—.—l-.l—l—l—l—l—l-—l—i—l_l—i-‘-l—l—l—l—l—l_‘—l

#SPWRDN ,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,a4PWRVEC+2 ;;PRIO:7

$SPWRMG : éMTJ(IJRD
$ILLUP:

SEQ 0026

;*GO TO THAT ROUTINE.
010046
016600
005740

$TRAP:

000002

111000

016000
000200

011646
016666
000002

RO,-(SP)

;:SAVE RO

TST

-(RO)

; ;BACKUP BY 2

MOV

2(SP) ,RO

000004

000002

ASL

RTS

IS USE

TO HANDLE

4(SP) ,2(SP)

RTI

;POSITION FOR

;s INDEX TO TABLE
;3GO TO ROUTINE

;:MOVE

. sMOVE

THE PC DOWN

THE PSW DOWN

;;RESTORE

THE

004612
003424
004210
004164
004224

TABLE

CONTAINS

THE

STARTING ADDRESSES OF

177777

000571

$TYPE
$TYPOC
$TYPOS
$TYPON

000457

000243

TXCRC:

THE

ROUTINES CALLED

ROUT INE

$TRPAD: .WORD

002640
002760
003264

PSW

TRAP TABLE

;*BY THE '‘TRAP'" INSTRUCTION.
:

TRAP

INDEXING

THE ''GETPRI'' MACRO

(SP) ,-(SP)

MOV

;*THIS

;:GET RIGHT BYTE OF

$TRPAD (RO) ,RO

$TRAP2: MOV

.SBTTL

;:GET TRAP ADDRESS

(RO) ,RO

MOV

;:THIS

004612
004614
004622

MOV

MOVB

004624

THEN USING THE ADDRESS OBTAINED IT WILL

$TRAP?

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

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

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

$RDCHR ;; CALL=RDCHR
$RDLIN
;. CALL=RDL
IN
$RDOCT
;;CALL=RDOCT

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

TTY TYPEIN CHARACTER ROUT INE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

571

:M9301 - YA VERSION

243

sM9301 - YC VERSION

457

:M3301

- YB YERSION

MAIN,

MACY11

1337

004654
004656

CIZMSAE P11

17=APR=79

10:14

TRAF

PAGE 28
TABLE

000635

SEu 0027
;M9400 = YA(OR Y(C) VERSION
:M9301 = YF VERSION
;M7942 - YB VERSION
;M9301- YD VERSION

WWWWNWWNN
NN
w
~ NNN
NN NN NN AN
W
o2 gREPERELES 32995
3&‘\‘0\\}\4\ W =00 ESEEEEREE VNN WN=O RRRRRRRRRR
OBNC
NN W — OO

1338

30A(1052)

17=-APR=79 1 0:12

H94.00 = YH (OR YK)

VERSION

:M9311 VERSION == REVISION * (ORIGINAL REV.)
:M9301 = YH VERSION

:M9301 = YE VERSION
:M9301 = vJ VERSION

:M9311

VERSION == REVISION A ( SECOND REV.)

;M9301
:M9301
:M9301
:M9400
:M9301
:M7942
M9301
;M9400
:M9311
;M9301
;M9301
;M9301
:M9400
:M9311

- YA VERSION
- YB VERSION
- YC VERSION
- YA(OR Y() VEKSION
- YF VERSION:
- YB VERSION
- YD VERSION
- YH(OR YK) VERSION
VERSION-- REVISION *
- YH VERSION
- YE VERSION
- YJ VERSION

177777

177777
133725
017563
141744

TXLPC:

133725

17563
141744
47€13
114175
146126
132161
143466

047613
114175
146126
132161
143466

036751

36751

125411

066246

————

:M9400 - YN VERSION

30210
36743

2
-1
-1
-1
-1
-1
TDLN1:

338383328383
388g NEEEEEE

001000

NNO

SIS
NS

O
NNO

WU
JE
e Jh
e
B
e

WWNW

— Y el
—d —d
b il

132367

-1

1000
1000
1000
1000
1000
4000
1000
1000
1000

- YN VERSION
VERSION--REVISION A

(ORIGINAL REV.)

(

SECOND REV.)

;M9301 - YA VERSION
M9301 - YB VERISION
M9301 - YC VERSION

:M9400 - YA(OR YC) VERSION

M9301 - YF VERSION
YB VERSION
;M9301 - VD VERSION
:M9400 - YH(OR YK) VERSION
:M9311 VERSION REVISION * (ORIGINAL VERSION)
2M9301 - YH VERSION
;M9301 = YE VERSION
:M9301 - YJ VERSION
;M9400 - YN VERSION
;M3311 VERSION- REVISION A (SECOND VERSION)

MACY11 30A(1052)
17-APR=79
MAIN,
(ZMSAE P11
17=-APR=79 10:12
1393
1394
1395
1396
1397
1398

005030

005032
005034

1399

1400

10:14

PAGE 29

TRAP TABLE

177777
177777
177777

-1
-1
-1

177777
173000
173000
173000
173000
173000
170000
173000
173000
163000
173000
173000
173000
173000
163000
177777
177777
177777

TRMSA1:

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

TDLN?:

177777

1445

000000

1447
1448

005174
005176

165000
165000

1443
Thby

1446

165000
165000
165000
165000
165000

173000
173000
173000
173000
173000
170000
173000
173000
163000
173000

YA VERSION

YB VERSION

YC VERSION

YA(OR YC) VERSION
YF VERSION
YB VERSION
YD VERSION
= YH(OR YK) VERSION

VERSION REVISION *

= YH VERSION
= YE VERSION
= YJ VERSION

:M9301 = YN VERSION

:M9311

VERSION REVISION A

M9301

= YA VERSION
= YB VERSION
= YC VERSION

( ORIGINAL

VERSION)

(SECOND VERSION)

-1
-1
-1
-1
-1

1000
1000
1000
1000
1000
0

=YA(OR YC) VERSION
=YF VERSION
- YB VERSION
= YD VERSION
= YH(OR YK) VERSION

1000

1000
1000
764
1000
1000
1000
1?00

177777
77777
177777
177777
177777

005156
005160
005162
005164
005166
005170
005172

-1

173000
172000
173000
163000

177777
177777

005140
005142
005144
005146
005150
005152
005154

SEQ 028

VERSION REVISION *

(ORIGINAL REV.)

= YE VERSION
= YJ VERSION
= YN VERSION
VERSION REVISION A

(SECOND REV.)

YH VERSION

-1
-1
-1
-1
TRMSAZ:

-1
165000
165000

:M9301

*M9301

YA VERSION
YB VERSION
YC VERSION
YA(OR Y(C) VERSION
YF VERSION
YB VERSION

165000
165000
665000

:M9301
:M9400
H9301
*M7942

165000
165000

:M9301
YD VERSION
:M9400 = YH(OR YK) VERSION

MAIN,
17-APR- 79
MACY11 30A(1052)
17-APR=79
CZMSAE .P11
110:12

10:14

166000

166000
165000
165000
165000
165000
1?6000

1453
1454

1455
1456
1457

1463
1464

1465

1466

1467

1468
1469
1470
1471
1472

1473
1474
1475
1476

1477
1478
1479
1480
1481
1482
1483
1484

1485

1486
1487
1488

1489
1490
1491
1492
1493
1494
1495
1496
1497
1498

1499

1500
1501
1502

1503

1504

SEQ 0029
:M9311 VERSION REVISION *

:M9301 = YH VERSION

( ORIGINAL REV.)

:M9301 - YE VERSION
;M9301 - vYJ VERSION

;M9400 - YN VERSION

:M9311

VERSION REVISION A (

SECOND REV.)

-1
-1

177777
177777
006106

TMSG:

006123
006140
006155
006175
006212
006227
006244

-1
MSG1
MSG2

MSG3
MSGé

MSGS

MSGé

;M7942 - YB VERSION

MSG12

;M9301 - YH VERSION

MSG7
MSG10
MSG11

MSG13

MSG14
MSG15
MSG16
-1
-1
-1
-1

177777
177777
177777
177777
177777

005015
042524
015
020105
040526
020040
015
020105
040526
020040
015
041505
051103
000040

005015
041505
050114

041522
000

;M9301 - YE VERSION
;M3301 - YJ VERSION

;M94G0 - YN VERSION
; M9311 REVISION A ( SECOND REV.)

-1

030122
052123
052012
051103
052514
000
052012
050114
052514
000
042412

020115
000
050131
020103
035105

T1TL:

.ASCIZ

<15><12>/ROM TEST/

GETCRC:

LASCIZ

<15><12>/TYPE

CRC VALUE:

050131
020103
035105

GETLPC:

LASCIZ

<15><12>/TYPE LPC VALUE:

042524
020103

050130
020104
020075

EXCRMG:

LASCIZ

<15><12>/EXPECTED CRC

0426412
042524
020103

050130
020104
020075

EXLPMG:

LASCIZ

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

047503
042105
036440

050115
041440
020040

ACCRMG:

LASCIZ

<15><12>/COMPUTED (CRC

1458
1459
1460
1461
1462

1449
1450
1451
1452

PAGE

TRAP TABLE

.ASCIZ

<15><12>/COMPUTED LPC =

042116
042524

EOTST:

.ASCIZ

<15><12><12>/END QF

050131
051101
040440
0474640
020124
042101
050123
020040

SA1:

LASCIZ

<15><12>/TYPE

STARTING ADDR.

1ST ROM ADDR.

:
SPACE

050131
051101

SAZ:

LASCIZ

<15><12>/TYPE

STARTING ADDR.

2ND ROM ADDR.

:
SPACE

035105

040440
047440
020104
042101
050123
020040

052012
042514
024040
024523
051461
020115
020056
035105

050131
043516
054502
047440
020124
042101
050123
020040

SIZE1:

.ASCIZ

<15><12>/TYPE

LENGTH

(BYTES)

1ST ROM ADDR.

:
SPACE

052012
042514
024040
024523
047062
020115
020056
035105

050131
043516
054502
047440
020104
042101
050123

SIZE2:

.AS

<15><12>/TYPE

LENGTH

(BYTES)

2ND ROM ADDR.

:
SPACE

CARLF:
SP2:

,ASCIZ
JASCIZ

OV
S

il
i
il

) ad il
D
il ol

Vi VI

SEQ 0030

ACLPMG:

VLIV, IV

——Y
Y
Y
JE

Lo Y A AL

005015

046517
020104
020075

000012
000
040412
051523
VAV IV IV IV AV IV TV

e JE

PAGE

TRAP TABLE

015

052520
050114
000040
005015
047440
052123
015
020105
044524
042104

10:14

005453
005460
005466
005474
005476
20

)

D i

)

D i

D ol

) i

il i

oy
v
i
i
v
v oy
o
WWWNOINMNNNNNNININ = Do -

SEERLRNRY N2OVONONS
W= O VNV
W =O33

1505
1506
1507

1{-APR-?9

RR S

MACYTT 30A(1052)
.MAIN.
17=-APR=-79
(ZMSAE ) .P11

TEST/

020040

042104
020040
020040
020040
000101

020116
042514

047113
047515
000040

034515

030063

<15><12>

TYPHDR:

.ASCI2Z

- e
<15><12>/ADDRESS

COLON:
AUTERM:

,ASCIZ
_ASCIZ

'y
<15><12>/UNKNOWN MCDULE

MSG1:

LAS(CIZ

<15><12>/M9301

- YA/

DATA/

17=APR=79
MACY11 30A(10 52)
-MAIN,
CZMSAE L1
17=-APR~ 79 10 :12
1561
1562
1563
1564

10:74

PAGE 32

TRAP TABLE

SEQ 0031

020055

040531

046412
026440

031471
054440

MSG2:

LASCIZ

<15><12>/M9301

YB/

1566

034515
020055

030063
041531

MSG3:

LASCIZ

<15><12>/M9301

Y¢/

1569
1570
1571
1572
1573
1574
1575

046412
026440

:
MSG4

LASCIZ

<15><12>/M9400

YA,YC/

041531
046412
026440

032071
054440
000
031471
054440

MSGS:

JASCIZ

<15><12>/M9301

YF/

033515
020055

032071
(AREY

MSG6:

LASCIZ

<15><12>/M7942

YR/

046412
026440

031471
054440

MSG7:

LASCIZ

<15><12>/M9301

YD/

034515
020055
020122

030064
044131
045531

MSG10:

LASCIZ

<15><12>/M9400

YH(OR

YK)/

034515
042522
047117
046050
047511
020065
032455
020051
046412
026440

030463
044526
020040
041517
020116
020075
032062
000
031471
054440

MSG11:

LASCIZ

<15><12>/M9311

REVISION

MSG12:

LASCIZ

<15><12>/M9301

YH/

034515
020055

030063
042531

MSG13:

ASCIZ

<15><12>/M9301

YE/

046412
026440

031471
054440

MSG14:

LASCIZ

<15><12>/M9301

YJ/

034515
020055

030064
047131

MSG15:

LASCIZ

<15><12>/M9400

YN/

046412
051040
047511
046050
047511
020065
033055
020051

031471
053105
020116
041517
020116
020075
034070
000

MSG16:

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

1565

1567

1576
1577
1578
1580
1581
1582
1583

1585

1586
1587
1588
1589

1591
1592
1593
1594
1595
1596
1597
1598

1599

1601
1602
1603
1604
1605
1607
1608
1609
1610
1611
1612
1613

020061
000

END

(LOCATION E=5

= 23=524A9)

17=APR=79
MAIN,
MACY11 20A(1052)
. P11
17=APR=79 10:12
CZMOAE

G
TABLE

== USER SYMBOLS

150714
1505#

584
676

5294
530#
569
569
569
569
569
569
569
969
569
569
569
569
569
569
569
569
569

677

€99
718

575
580
581
572

578

ol —

—

571

R
O‘O\NOW'\)\O‘:\I:

569
725
569

PAGE

(ROSS REFERENCE

NS00 NC-JooONRLONNUNY

707

569

—

000000

569

N0 NNV~
=2 =3

000000
005430
A(DW1 = (90000
ACDWZ = 000000
ACLPMG
005453
000000
001022
001024
ABASE

AC CRMG

10:14

11694

11704

708

726

750

805

780+

817+

853

SEQ 0032

MACYTY 30A(1052)
MAIN.
17=-APR=79
17=APR=79 10:12
CZMOAE P11
AUTERR
AGTT

AUT2

AUTS

002612
002524

002570

002572

AVECT1= 000000

AVECT2= 000000

BITO
BITO0
BITO1
BiT02
BITOS
BIT04
BITOS

=
=
=
=
=
=
=

BIT06 =
BITO7 =
BITO8 =
BITO9 =
BIT1
=
BIT10 =
BIT11 =
BIT1Z =
BIT13 =
BIT14 =
BIT1S =
BIT2 =
BITS
=
BITa
=
BITS
=
8116
=
BIT7 =
BIT8
=
BITS =
BPTVEC=
CARLF
CHECK
MO
CHI
K1
k2
CLLAST
CLPO.
CLP1
C(LP2
L0
L1
L2
(L3
COLON
R
=
CRC
CRLF
=
DATLNT
DATLN2

000001
000001
000002
000004
000010
000020
000040

000100
000200
000400
001000
000002
002000
004000
010000

020000

040000

100000

000010

000020

000040

000100

000200
000400
001000
000014
006015
001510
001566
001644
001736
002030
002204
002252
002264
002316
002702
002146
002170
002122
006060
000015
002074
000200
001006
001012

ODISP = 177570
DISPLA 001002

IDISPRE 000174

852
850#

857~

856
569
569
4854
4754
L74m

4738
L72m

(7.
4704
L6994
LOEBH

LE67H

LE6H
LBLH
L654
L64H

10:14
PAGE 35
CROSS REFERENCE

TABLE == USER SYMBOLS

8644
854
8594
8604

485
484
483
482
481
480
479
478
477

476

L6348
L62H
L4614
4604

LR34

4824
4814
4804
L7994
L784
L7778
L7648
4928

832

642

679
688
700
719

773
7844

785

794

751#

7654
762

753
841
400%
681
4014
5234

5254

407#

5214
508#

837

644

6864
697
713
731

7754
790
7874
7964

15484
646

6994
7184
7364

757

774

7714
7584
15554
1099

1109

1070

1109

640

672+

689

638+

609
609+
617

6734
862

7508

664+

€17«

678
687

683
691

81
82

SEG 0033

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

DSWR
=
EMTVEC=
ENDOT
EQTST
ERRVEC=

177570
000030
002446
005476
000004

EXCRMG

005361

4064
4954

10:14
PAGE 36
CROSS REFERENCE

8274

001016

4L88#
5274

EXLPC
EXLPMG

001020
005404

703

606
637x

14934

721

14974

GETIN

001370

eXCRC

GETCRC
GETLPC
GET2

GNS

GOAGIN

005311

RRRRRR

002070

= 000011

IOTVEC=
LF
=
LPC
LPC1
LPC2

MSG1
MSGIC
MSG11
MSG12
MSG13
MSG14
MSG1S5
MSG16
MSG2
MSG3
MSG4
MSGS
MSG6
MSG7
PARCNT
PARITY
PIRQ
=
PIRQVE=
PRO
=
PR1
=
PR2
=
PR3
=
PR4G
=
PRS
=
PR6
=
PR7
=

PS
PSW

005335
001440

000020
000012
002344
002352
002366

006106
006244
006270
006347
006364
00640
006416
00643
006123
006140
006155
006175
006212
006227
001026
002242
177772
000240
000000
000040
000100
000140
000200
000240
000300
000340

= 177776
= 177776

5284

650
634
654
648
507

742
3984

4934

7484
1068

15814
1585#
15934
15964
1599#
1602#
16054
15634

15664

1466
1467
1468

15724
15754
15784

5314

758
4054
4994
L2208

TABLE == USER SYMBOLS

SEG 0034

15094

607+
652+

618+
699

704

860+

656+

718

722

861+

1325

1326

1329

1330

1331

1210

1324

1709
1109

8054

15604

1464

1465

15694

782+

786+

403

5164

602+

603+

1253«

1254«

1263+

1269+

655
6304

659

663

667

671

13314

€39+

660+

680

682

817

782#

793

423
4o4n
4254

4264
4278
LO84
4294
4024
4034

RDOCT = 104407
RESTRT
001274
RESVEC= 000010

651
626

001004

14854
6434
1485#
657#
1323

1469
1470
1471
1472
1473
1474
1475
1463

[ASTA 4

JROMSAT

636+

1103
693
811
8104

PWRVEC= 000024

RDCHR = 104405
RDL IN = 104406

828

3904
685
8064
808

1462

608

825

739

921
996

4894
522#

13294
13304

748

1282+

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

ROMSA2
SA1
SA2
SIZE1
SIZE2
SP2
STACK =
START
STKLMT=
ST2
SWR

001010
005515
005575
005655
005735
006020
001100
001076
177774
001320
001000

SWwO0
SW00
SW01
Sw02
SW03
SW04
SW0S
SW06
SW07
SWO8
SW09
SW1
SW10

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

SWREG

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

000176

SW11
Swi2

= 004000
= 010000

SW14

= 040000

SW13

SW15
SW2
SW3

SW4
SWS
Swé6
Sw7
SW8
SW9

= 020000

= 100000
= 000004
= 000010

=
=
=
=
=
=

TBITVE=
TDLNT
TDLNZ2
TITL
TKVEC =
TMSG

TPVEC

TRAPVE =

TRMSAT
TRMSA2
TRTVEC=
TXCRC
TXLPC
TYP
TYPE
=
i YPHDR

000020
000040
000100
000200
000400
001000

000014
004766

005106
005276
005226

005036
005156
000014
004644
004714
002454
104401
006023

524#
658
666
662
670
845
3934
512

404n

6354
520#
5094
4574

La7n
LL6H

641+
15124
15214
15304
15394
15494

668+

514

5944

608+
616

610
632

TABLE == USER SYMBOLS

SEQ 0035

686

690

822

616%

623+

632+

633

1261

1274+

661
844

665
858

669
864

702
928

934

457
456

L4454

455

4434
4428
LL1H
4404
4394
4384
LS6H

453
452
451
450
449
448

Li4m

10:14
PAGE 37
CROSS REFERENCE

454

4374

4364
4354
4344
4334
4324
4554
4544
4534

4524
4514
4504
4494
LLBH
4904

638
640
628
4974
851

13764
14184
14834

639
641

1397#
1435

637
636
821
627
827
951
816

853
861
826
649
831

4984
LO6H

4914

857

14614

S17#

600+

601+

860

13334

8314
653
836

657
840

954

15504

13544

958

1025

1027

1073

1252

1283

706

13234

720

939

724
943

738
948

815

949

TYP?2
TYP3

XOR

XORS

$APTHD
$ASTAT=
SATY(
$ATY]
$ATY3
$ATYS
$CHARC
$CKSWR=
SCMTAG=
$CNTLG
$CNTLU
$CPUOP
$CRLF
$DEVCT
$ENDAD
SENV
SENVM
$E TABL
$ETEND
SFATAL
$FFLG
$FILLC
$FILLS
$CTSWR=
$HIBTS
EHIOCT
$ILLUP

SLF
$SLFLG
SMAIL

104402
104404

104403
001030
002402
002426
002462
002504
002470
002320
001014

001032
LA 2

003742
003716
003724
003734
003702
LA2282

LA A

A &2}

10:14
PAGE 38
CROSS REFERENCE

723

727

839

513«

532#

647

673

798#
750+

809
771

775

776%

1092

1101~

11064

9654

1030

1074

1115

625
645
621

694
1055

710

728
1060

736
730
1129

7444
1053

714
1149

732+
1158+

11664

866+

1155+

12864
1030

1115

565

5704

620

1119«

1125

1160+~

11644

1138

5714

1135+
1140+
595+

8154
Bo2#
847
8424
8364

TABLE == USEP SYMBOLS

709

705
13264
13254
511

843

13244

777

(79%

SEQ 0036

780

799

5594

1164
11224

11194
1085+

| =g =

TYPOC
TYPON
TYPOS
TYPOUT
TYPROM
TYPR1
TYPO

"mnn

17-APR=7%
.MAIN.
MACY11 30A(1052)
CZMSAE .P1
17-APR-7S 10:1?

003235
003230
001074
003225
001056
002060
001066
001067
001066
001076
001050

G714

5914
59+

004162

1121+
11138

003714
003713

855

1127

11561

1141+

1153

LA
S 2 2

021032
003422
004552
003226
004i61
001046
001034
004160
003253
001062
001064
001046
003242
003712
004406
004410
001054
001040
004560
004412

1029#
1269
9704
11654

G754
S774

9734
1080
1204+
1199+

5744
5634

1284

602

11114
1233+

1203+

620+

128%5#

12534

1053

715«

733+

867+

1133

12464
1208
740+

1211»

1222+

12484

1281

1157«

80C+

801+

802

805+

MAIN.,
MACY11 30AC1052)
17=-APR=79
(ZMSAE .P11
17=APR=79 10:12
PPWRMG
$PWRUP
SQUES
$RDCHR
SRODE(C=
$RDLIN
$RDOCT
$RDSZ =

004546
004464
003224
002640
wwnnns
002760
003264
000010

$SAVRE
$SETUP=
$STUP =
$SVPC =
$SWR
=
SWREG
$TESTN
$TkB
$1kS
$TPB
$TPFLG
$TPS
$TRAP
$TRAP?
$TRP
=
$TRPAD
$ISTM
$TTYIN
STYPBN=
$TYPDS=
$TYPE
$TYPEC
STYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
$OFILL

004556
000014
177777
001032
000000
001070
001052
002636
002634
003710
003715
003706
004570
004612
000010
004624
001036
003214
waansxs |
swwnee |
003424
003636
003704
004210
004224
004164
001060
001042
001072
004407

$RCA
=
$SAVRE=

wamanxe
wansne

12844
1263
951
BRB®
133¢
9164
9914
9094

|
|y

seenan )

. ABS.

006511

.BX

1262+
5104
510#
5384
3898
582#
5734
8744
8734
1098+
1047
1096
600
13114
13154
1305
562#
918
1327
1327
1047#
1077
1102
12024
1201
1197#
5764
S64L4
5834
1198+

S00#
873

1114
1119

= 001032

ERRORS DETECTED:

12654
968#
1320

TABLE == USER SYMBOLS

SEQ 0037

1027

1030

1115

1271«

1272+

12884

604

877

977

13264

13274

1329

13204

13314

13324

919

949

963

678

1146
1084
1104
1324
12044
1325

1323
109¢4

1097

1202+

12474

535
977

5414
1030

1109

1330
1331

1332
1332

= 006511

BASTA=

10:14
PAGE 39
CROSS REFERENCE

549#

1270
599

543
1285
623
596+
872
890
11104
11144
11094
12004
1322
13244
1322#

5034
874

1115
1122

600

602

898
896

5104

1167#

968
1265

5194

969

1287

554

000
O

CZM9AE .BIN CZMAE . SEQ/CRF /SOL/NL : TOC=SYSMAC( . SML , (ZM9AE .P11
RUN-TIME: $ 8 33 1 SECONDS
RUN=TIME RATIO: 356/74=4.7
(63 PAGES)
(ORE USED:
32k

538
970

5434

549

1110

5504

5524

1112

5544

1113

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

10:14
PAGE 40
(CROSS REFERENCE

m3
TABLE

== USER SYMBOLS

SEQ 0038