Digital PDFs

AH-F409A-MC

May 1980

102 pages

Original

5.9MB

view download

OCR Version

5.5MB

view download

Document:	CZKWLA0 KW11-C KW11-C DIAGNOSTIC MAY 1980 bw
Order Number:	AH-F409A-MC
Revision:	000
Pages:	102
Original Filename:	CZKWLA0__KW11-C__KW11-C_DIAGNOSTIC__AH-F409A-MC__MAY_1980_bw.pdf

OCR Text

Kiil-C

KWil-C
CZKWLAO

DIAGNOSTIC

MC
A09
A4
-F
AH
1
OF
1
HE
EIC

]
TE
R0
HT
.
.
3%
®.
gaEunEy
MADE IN USA

CALEST LOC, SEQ,BIN
PEM_

SEQ OOOTi

PRODUCT CODE:

Al~F4O8A-M(

PRODUCT NAME:

CZKWLAO KW11-C DIAGNOSTIC

DATE:

JANUARY 1980

AUTHOR(S) :

VIJAY ANANDWALA

MAINTAINER:

C.S.S.

DIAGNOSTIC GROUP

THE INFORMATION IN THIS DOCUMENT [S SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
(h)lgc?;gz%wSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
THE

SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A

LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH
THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT
THAT

IS NOT SUPPLIED BY DIGITAL.

1980 DIGITAL EQUIPMENT (CORP.
MAYNARD MASS,

ABSTRA(T:

THE KW11~C DJAGNOSTIC PROGRAM PROVIDES A

SERIES OF TESTS DESIGNED TO VARIFY THE INTEGRITY
AND OPERABILITY OF THE KWwll1-C CLOCK.ONE OF THE

TEST IS VISUAL ONLY HOWEVER ALL TESTS WILL RUN WITH
WITHOUT A DISPLAY CONNECTED TO THE SYSTEM.
THE DIAGNOSTIC MODULE CONSISTS OF 17 TES:

gtg&zzésflus YARIOUS SUPPORTING SUBROUTINES AND

REQUIREMENTS:

EQUIPMENT
PDP 11

PROCESSOR

CONSOLE DEVICE(LA30,LA3€,vT50,vT100,ETC)

KW11=C CLOCK

DESIRED EQUIPMENT
KWw17~P OR KW11-L CLOCK
PROGRAM STORAGE

PROGRAM REQUIRES 8 K WORDS OR MORE

MEMORY

SOF TWARE
ABSOLUTE LOADER OR OTHER INPUT MEDIUM
SWITCH REGISTER ASSIGNMENTS:

SWOB(1)=LOOP ON TEST IN SWR<7:0>
SW08(0)=D0O ALL TESTS IN SEQUENCE
SWO9(1)=L00OP ON ERROR
SWO9(0)=CONTINUE ON ERROR
SW10(1)=BELL ON ERROR
SW10(0)=NO BELL ON ERROR
SW11(1)=INHIBIT ITERATIONS
SW11(0)=ALLOW ITERATIONS
SW13(1)=INHIBIT ERROR TYPEOUTS

SW13(0)=ALLOW ERROR TYPEQUTS
SW14(1)=LOOP ON TEST
SW14(0)=DON'T LOOP ON TEST

SEQ 0002

SW15(1)=HALT ON ERROR
SW15(0)=CONTINUE ON ERROR
NCTE

SEa 0003

COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A
SOF TWARE SWITCH REGISTER LOCATED IN MEMORY AT [OCATION
176 CALLED SWREG.
THiS LOCATION CAN BE CHANGED EITHER
MANUALLY OR BY TYPING THE CNTL+G KEYES TOGETHER
THEN RESPONDING TO THE TERMINAL DIALOGUE.

:
LOADING PROCEDURE

THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES

SHOULD BE USED
If THE PROGRAM RESIDES ON A MASS STORAGE DEVICE
MAGTAPE OR DISK REFER TO THE XXDP USER'S GUIDE.

SUCH AS

STARTING PROCEDURE:
STARTING ADDRESSES

INITIAL STARTING ADDRESS IS 200
RESTART ADDRESS IS 200
STARTING SEQUENCE
LOAD PROGRAM ACCORDING TO LOADING PROCEDURE
LOAD ADDRESS 200 AND START COMPUTER.
FIRST TIME PROGRAM PRINTS THE NAME OF THE PROGRAM.
AND ALSO PRINTS HELP MESSAGE WHICH IS SELF EXPLANATORY.
THE MONITOR PROMPTS WITH(?)FOR OPERATOR'S INPUT.
CHARACTER TYPED MUST BE TERMINATED BY °‘(R’'.
HELP MESSAGE PRINTS AS FOLLOWS

SElECT FUNCTION BELOW
, TYPE CHARACTER CARRIAGE RETURN.
TEST CLOCK (CONTROL
C TO EXIT)
'S' TO SET CLOCK
'R'

‘M'

TO READ CLOCK

TO MODIFY/READ ADDRESS AND VECTOR

'A' ACCURACY OF CLOCK

'G' CHANGE SOF TWARE SWITCH REGISTER
'E' EXIT HALTS CPU

'H' HELP PRINTS THIS MESSAGE.

WHEN MONITOR PROMPTS WITH(?)
OPERATOR (AN TYPE ANY
ONE OF ABOVE (HARACTER FOLLOWED BY A '(R°.

IF_YOU WANT TQ TEST THE CLOCK TYPE

PROGRAM START"

TESTING THE

‘T'

CLOCK.TO EXIT FROM ANY

E
°(R’

TEST

CONTROL (. WHEN PROGRAM RECOGNIZES CONTROL C CHARACTER,
PROGRAM PROMPTS WITH

FROM WHICH

*?'

TYPE

TO INDICATE NOW IN MONITOR MODE

YOU (AN AGAIN GO BACK

TO TEST

THE

IN A MONITOR MODE

(?).

CAN SELECT THE FUNCTIiONS DESCRIBED ABOVE.

(LOCK OR

HOW TO SET CLOCK

FIRST MAKE

TYPE

'S’

SURE

YOU ARE

FOLLOWED BY A

‘(R’'

TO SET CLOCK.

WHEN SETTING CLOCK,YOU MUST ENTER VALUES IN ALL FIELD IN
PROPER FORMAT.LETTERS IN FIELD INDICATES NUMBER OF DIGITS
\T/gLBE TYPED FOR THE FIELD.TYPE 'CR' TO TERMINATTE ENTERING
HOW TO READ CLOCK

MAKE SURE YOU ARE IN A MONITOR MODE(?).
TYPE 'R'AND 'CR',PROGRAM PRINTS YEAR,JULIAN DAY ,MONTH,
DAY ,HOUR ,MINUTE , SECOND.
HOW TO MODIFY/READ ADDRESS,

VECTOR AND BUS REQUEST LEVEL.

MAKE SURE YOU ARE IN A MONITOR MODE(?).TYPE
'M'AND'CR' IF YOU WISH TO READ/MODIFY ADDRESSES.FIRST PROGRAM
PRINTS CURRENT DEVICE ADDRESS AND WAITS FOR OPERATOR'S RESPOND.
TYPE NEW ADDRESS

YOU WISH TO CHANGE

THE ADDRESS,OR JUST

"CR' FOR NO_CHANGE IN CURRENT ADDRESS.NOW PROGRAM PRINTS THE
CURRENT VECTOR ADDRESS AND SIMILARLY WAITS FOR OPERATOR'S
RESPOND.DO AS ABOVE IF YOU WISH TO CHANGE THE ADDRESS OR [F
YOU DON'T.LAST PROGRAM PRINTS BUS REQUEST LEVEL.AFTER RESPON
DING TO CURRENT PRINT OUT YOU ARE BACK INTO MONITOR MODE.
NORMAL ADDRESSES ARE AS FOLLOWS

DEVICE ADDRESS = 760200
VECTOR ADDRESS = 300
BUS REQUEST LEVEL = 6

HOW TO TEST ACCURACY OF (CLOCK
WHEN YOU ARE

IN A MONITOR MODE

TYPING

‘'A'

FOLLOWED BY

(')ER&LSQSGRM GOES TO THE ROUTINE FOR TESTING ACCURACY
FOLLOWING QUESTIONS UILL BE ASKED:

L-CLK
(L)
N?
P=CLK
(L)
N ?
'TYPE TWO CHARACTERS AT 60 SEC APART'
ANSWER FIRST TWO QUESTIONS WITH <CR> IF ANSWER
IS AFFERMATIVE AND WITH <N><CR> FOR NEGATIVE ANSWER.

SEQ 000«

if BOTH ANSWER ARE NEGATIVE PROGRAM WILL ASK TO TYPE TWO
CHARA(CTERS AT 60 SECONDS APART. PLEASE BE VERY ACCURATE

IN TYPING TWO CHARACTERS AT EXACTLY 60 SECONDS APART.THE

PERIOD BETWEEN TWO CHARACTERS TYPED WILL BE USED TO
DETERMINE THE TIME BASE FOR THE KWl1-C.
THE ERROR MESSAGE WiLe BE PRINTED IF CLOCK
THEN THE PROGRAM GOES TO MONITOR MODE(?).

IS NOT

ACCURATE.

THE CLOCK ]S ACCURATE THERE WON'T BE ANY MESSAGE AND

PROGRAM PROMPT WITH <?>

INDICATE

IN MONITOR MODE.

HOW TO CHANGE SOF TWARE SWITCH REGISTER
WHEN YOU ARE

IN A MONITOR MODE(?)

PROGRAM PRINTS OLD CONTENT OF

SOf TWARE

TYPE

'G"'

'(R'

SWITCH REGISTER

AND WAITS FOR NEW VALUE. If YOU DO NOT WANT TO CHANGE THE
OLD VALUE IN SOFTWARE SWITCH REGISTER JUST TYPE °(R'.
WHEN YOU ARE TESTING THE CLOCK °'T',TYPING CONTROL ‘G’
PRINTS OLD CONTENT OF

SOF TWARE

SWITCH REGISTER AND WAITS

EESCQEU VALUE AS ABOVE.SO USE <CONTROL G> WHEN TESTING

HELP MESSAGE
-

Dw»y—Mm

IN MONITOR MODE

TYPING

°'H'

'CR'

PRINTS

FUNCTION BELOW,TYPE CHARACTER CARRIAGE RETURN.
? LECT
' TEST CLOCK (CONTOL C TO EXIT)

'
'M'

'A'
'G'
'E'
‘H'

TO SET CLOCK

TO READ (CLOCK
TO MODIFY/READ ADDRESS AND VECTOR

ACCURACY OF CLOCK
CHECK/MODIFY SOF TWARE SWITCH REGISTER
EXIT HALTS CPU
HELP PRINTS THIS MESSAGE.

5.0

PREL IMINARY OPERATIONS:

DEVICE ADDRESSES AND VECTOR ADDRESSES
DEFAULT:
DEVICE ADDRESSES:

CSR:

760200
760202
760204
760206

VECTOR(0):
VECTOR(2):
BR:

300
304
6

5.3

PRE( IMINARY PROGRAMS NEEDED
SEQ 0006

NONE
OPERAT IONAL PROCEDURES:

7 .0

NORMAL OPERATION IS WITH ALL SWITCHS ON O.

ERRORS:

EACH ERROR SIGNATURE CONSISTS OF ONE OR MORE LINES
OF TEXT, DESCRIBING THE ERROR AND ALSO INCLUDES
EXPECTED VS RECEIVED DATA, CONTENT OF (SR AT TIME OF ERROR
TEST NUMBER WHERE APPLICABLE.
FOLLOWINGS ARE EXAMPLES OF ERROR PRINT OUT

EX1:

Ex?.

'READY BIT FAIL TO SET IN (SR’
Eg?OR

TESTH

CSR

5632

00000

WHERE
ERROR
PC

GIVES THE ADDRESS WHERE ERROR OCCURED.

TEST#

TELLS

THE

TEST NUMBER WHERE ERROR OCCURED.

CSR

TELLS THE CONTENT OF CSR AT TIME OF ERROR.

'READ VALUE NOT MATCH WITH EXPECTED’

Eg§OR

TEST#

GOOD

BAD

CSR

5432

00000

00073

00200

WHERE

GOOD IS EXPECTED VALUE
BAD
IS ACTUAL VALUE READ.

OTHER FIELDS ARE SAME AS ABOVE.

Ex3:

'"HOLD BIT FAIL TO RESET'
Eg?OR
TEST#
PRESEC

6010

CURSEC

CSR

000001

WHERE
PRESEC

FURSET

IS THE VALUE OF

SECOND BEFORE HOLD BIT SET

THE VALUE Of SECOND AT TIME OF ERROR.

EXECUTION TIME:
EXECUTION TIME VARY SOMEWHAT
, DEPENDING

%PSF;L/JSAYPE.YHE FOLLOWING ARE EXECUTION TIME OBSERVED ON

QUICK PASS:
SUBSEQUENT
PASS:

@GMIN, 20SEC
14MIN,30SEC

SEQ 0007

lal

£33

IN. MACY11 30A(1052)
13-MAR-80
WLA.P11
13-MAR-80 07:39
1

167400

07:40

PAGE 1

SFQ 0008

$SWR=167400

000001

$TN-1

001100

STACK=

(1)
(1)
(1
(1)
1N
(1)
%))

000011
000012
000015
000200
177776

; *MISCELLANEOUS DEF INITIONS
HT=
11
;;CODE FOR HORIZONTAL TAB
LF=
12
::CODE FOR LINE FEED
CR=
15
::CODE FOR CARRIAGE RETURN
CRLF=
200
::CODE FOR CARRIAGE RETURN~LINE FEED
ps=
177776
::PROCESSOR STATUS WORD
.EQUIV
PS,PSW

1N
(1)
E};

(1?

(1)

(1)
g};

.SBTTL BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER sx» 1100 wx»
.EQUIV
.EQUIV

1100

EMT_ERROR
10T.SCOPE

(1)

177774

177772
177570
177570

PIRQ=
DSWR=
DDISP=

(1)
(1)

000000

;*GENERAL PURPOSE REGISTER DEF INITIONS
RO=
20
: ;GENERAL REGISTER

(1)

000006

Ré6=

(1)
(1)
(1)
(1)
(1)

177772
177570
177570

::STACK LIMIT REGISTER

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

R1=
R2=
R3=
R4=
RS=

X1
12
13
24
x5

; :GENERAL
: :GENERAL
: :GENERAL
: :GENERAL
::GENERAL

000007
000006
000007

R7=
SP=
PC=

17
16
17

: :GENERAL REGISTER
L:STACK POINTER
: :PROGRAM COUNTER

(1)
(1

000000
000040

PRO=
PR1=

(1)
()

100000

;%" 'SWITCH REGISTER'' SWITCH DEF INITIONS
SwW15=
100000

(1)
(1)
54;

(1)
(1)
(1)
(1)
(1)
(1)
5};

(1)
)

()
()

)

()
Q)
)
(1)

000001
000002
000003
000004
000005

STKLMT= 177774

;:BASIC DEFINITION OF ERROR CALL
S:BASIC DEFINITION OF SCOPE CALL

000100
000140
000200
888 40
00
000340

040000
020000

: :GENERAL REGISTER

;*PRIORITY LEVEL DEFINITIONS

PR2=
PR3=
PRG=
PRS=
PR6=
PR7=

Swl4é=
SWi3=

100
140
200
240
300
340

40000
20000

010000
004000
002000

SW12=
SWil=
SW10=

10000
4000
2000

000400
000200
000100
000040

SW08=
sw07=
SWwosSW0S-

400
200
100
40

001000

SW09=

1000

:;PRIORITY LEVEL O

*IPRIORITY LEVEL 1

*:PRIORITY LEVEL
::PRIORITY LEVEL
SIPRIORITY LEVEL
“:PRIORITY LEVEL
S:PRIORITY LEVEL
SSPRIORITY LEVEL

2
3
4
S
6
7

lal)

MAIN,

MACYTT ;OA“OSZ)

IKWLA.P11
Aa)
(1)
(1)
(1)
(§))

§)
1
§b
(1)
1)
(1
(1)
(1)
(1)

000020
000010
000004
000002
000001

fl;
(1)

(1)
1
(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)
(1)

2h
(1
(1

(1)
(1)

100000
040000
020000
010000
004000
002000
001000
000400

LEQUIV SW09,SW9
.EQUIV SWOB,Sw8
LEQUIV SWO7,SW7
.EQUIV SWO6, SW6
LEQUIV SWO5,SW5
LEQUIV SWO4, SWé
LEQUIV SW03,Sw3
LEQUIV SW0Z2,sw?
.EQUIV SWO1,sSw1

SW00, SWO

:*DATA BIT DEFINITIONS (BITOO TO BIT15)

2
1

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
8IT10=
B8IT09=
BITO8=

BiTos 70
BIT02= 4
.EQUIV

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

.EQUIV
.EQUIV
-EQUIV

.EQUIV

)

(1)

000020

)

000034

& })

000064

10
14

8IT01=
BITO0=

000004

)

4
2

000002
000001

800015
088804

SEQ 0009

BIT07=
BITO6=
BITO5=

)

$2)
)

Swis=
SwC3=
SW02=
SWwo1=
Sw00=

000100
000040

000200

PAGE 1-1

BASIC DEF INITIONS

100000
40000
20000
10000
4000
2009
1000
400
200
100
40

(1)
(1
(1)

)
(1)

07:40

.EQUIV

(1)
(1)
(1
(1)
(})

(1)

13-MAR-80

13-MAR-80 07:39

BIT09,BIT9

BIT08,8178
B8IT707.BIT7
BIT06.8IT6
BITO0S5,BITS
BIT04,BIT4

BIT03,8IT3
BIT02,BIT2
BIT01.8IT1

BIT00,BITO

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
ERRVEC= 4
;:TIME OUT AND OTHER ERRORS
RESVEC- 10
TBITVEC=14

;RESERVED AND ILLEGAL INSTRUCTIONS
20T BIT

BPTVEC= 14

; :BREAKPGINT TRAP (BPT)

4
000030

PWRVEC= 24
EMTVEC= 30

. ;POMER FAIL
;EMULATOR TRAP (EMT) ~+ERRORs»

TRTVEC= 14

IOTVEC= 20

: :TRACE TRAP

;INPUT/0UTPUT TRAP (I0T) #»SCOPEsx

TRAPVE (=34

::'TRAP' TRAP

TPVEC

;:TTY PRINTER VECTOR

TKVEC=

;:TTY KEYBOARD VECTOR

13-MAR-B0
MACY11 30A(1052/
13~-MAR-80 (7:39
CZKWLA.P11

000240
160006
160300
177546

172540

172542

172544
001124
001126

000001

001122

PAGE 1-2

BASIC DEFINITIONS

PIRQVEC=240
ABASE =160006
AVECT1=160300
LKS=177546

SEQ 0010

: ;PROGRAM INTERRUPT REQUEST VECTOR
JBASE CD BUS ADDRESS EQUATE
sBASE (D PRIORITY & VECTOR ADDRESS EQUATE
:;CONTROL AND STATUS REG OF L.CLOCK

PKCSR=172540

:;CONTROL AND STATUS REG OF P.CLOCK

PKCNT=172544
GOOD=$GDDAT
BAD=$8DDAT

;s COUNTER

PKBUF =172542

;:BUFFER OF P,.CLOCK

REQ=BITO

BADA=$8DADR
.SBTTL

MEMORY MANAGEMENT DEF INITIONS

;*KT11 VECTOR ADDRESS
000250

MMVEC=

250

;*KT11 STATUS REGISTER ADDRESSES
177572
177574
177576
172516

SRO=
SR1=
SR2=
SR3=

177572
1727574
17757¢€
172516

—

O\J\Nog 35 3

D
e
e
d
b
e
b
b

NNN
NN NN
NINNININININON
(N NIN NN
AN

s *KERNEL '°I'* PAGE DESCRIPTOR REGISTERS
KIPDRO= 172300

KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=

172302
172304
172306
172310

KIPDRS= 172312
KIPDRG= 172314
KIPDR7= 172316

N'\JNN"QNNN

D
e
o
md e
e
b
b

SNNNSNNNNN

;*KERNEL *‘'I'* PAGE ADDRESS REGISTERS

356

KIPARO= 172340
KIPAR1= 172342
KIPARZ2= 172344

KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352

KIPARG= 172354
KIPAR7= 172356
.SBTTL

W W W Qo Qs Qo N N N

P Y

Y Telalalea

el anld il cnld et il ol oINS oD D

D oD oD oD

D D el ol il a

) ) e e el el e e

D ol i

sl e

D el o e

D mad D

el
lealatatalataletealaleatealalealealelalatlatelateatatealealeayelateala
Y VoW

D NININ.

NIPININY —

b e b—

N N Nl N N N Nl N N N sl Nt il P N N B N il i B il " " P B P " i P b VVO‘\"“WN-‘OOQ\IO‘ A,

07:40

TRAP (CATCHER

.=0
s*ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN

J*A .42, 10T'' SEQUENCE TO CATCH AND PROCESS ILLEGAL

s*TRAPS AND INTERRUPTS THAT MIGHT OCCUR.
J*THE 10T TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT
;*TRAPS TO THE $SCOPE ROUTINE WHICH (IF THE RETURN PC IS
;*LESS THAN 1002) JuMPS TO THE SERROR ROUTINE.

JMAIN, MACYTT 30A(1052)
13-MAR-80
CIKWLA. P11
13-MAR-80 07:39
(1)
1)
(1)
1)
(1)
1)

(1)

000000

fl;

000002

(1)
(1)

000004
000006

(1)
(1)
1)
(;é

000174
000176

(

((

(1)

000200

000000

$40CAT:

000737

HALT

.=100

.WORD
.WORD

ROUT1
340

003776
000340

000174

.=174

000000
000000
000137

000204

000046

CAN BE STARTED AT ADDRESS O AS WELL AS ADDRESS 200.

003776

:.'BRANHIO?)'I TO 177700 & TIME OUT (NOT ON
;;VECTOR TO STARTING ADDRESS
;:WITH PRIORITY LEVEL 7

DISPREG:.WORD
0
;:SOF TWARE DISPLAY REGISTER
SWREG:
.WORD
O
;:SOFTWARE SWI(CH REGISTER
.SBTTL
STARTING ADDRES(ES)
JMP
SMROUTT ;GO TO START OF PROGRAM
.SBTTL

ACT11 HOOKS

AR AR AR A AR AR

AT AR AR

HOG(S REQUIRED BY ACT11

000046

000052 000000

SE?gAD

J:V1)SET LOC.46 TO ADDRESS OF SENDAD IN .3EOQP

-=$SVPC

::2)SET LOC.52 TO ZERO

*:"RESTORE PC

-=1000

.SBTTL

;SAVE PC

WORD

000204

ANAANRA AR A RNNRRN R RARIAANARAARRNRR

$SVP(C=.

=46

8(2)82)4508

001000

s oHALT

APT PARAMETER BLOCK

(

b i e o e e et s ol B PN b D e ed =B B N\ 2PN —AUNN D D a2 2 AN
NN
\4\r~flv\/\4&"u\z\r&au\4\1&AJ\IMNV\J\INLJ\:\¢\flu\z\lvflu\a(}(}

(

SEQ 0017

;*THE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:
s
PC=YYYYYY UNEXPECTED TRAP TO XXX
;*AND RETURN TO THE PROGRAM AT PC=YYYYYY+?2
*WERE XXX=LOCATION OF I{LLEGAL TRAP
YYYYYY=P( AT TIME OF TRAP
"NOTE IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM

07:40 PAGE 1-3
TRAP CATCHER

ettt ettt

iat

i slitlidtiitsetityslizelsedieesssess

MRS

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
AL

ddat

adit

ittt daisdialslsstststlisssilzessey

000024
000044

.3X=.

000200

200

001000

SAPTHDR ;:POINT TO APT HEADER BLOCK

000024

000044

001000

e W

LA A

001000

;:SET POWER FAIL TO POINT TO START OF PROGRAM

. =44

;;POINT TO APT INDIRECT ADDRESS PNTR.

.=.8X

;:FOR APT START UP

;;RESET LOCATION COUNTER

RA AR AR AR AR AN

TR A AN A R

AR AAAARRNRRARAANRNAANAN

sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
; INTERFACE SPEC.

W
R
B
T
T
e T
e

SRR

:;SAVE CURRENT LOCATION

001000
001000
001002

000000
001206

001006
001010
001012

000074
000000
000052

001004

000017

SAPTHD:

$HIBTS: .WORD
SMBADR: .WORD

0
SMAIL

$PASTM: _WORD
SUNITM: WORD
.WORD

60.
..Rl.N TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
O
sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-SMAIL/2 ;:LENGTH MAILBOX-E
TABLE (WORDS)

$ISTM:

_WORD

15.

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

;.RUN TIM OF LONGEST TEST

PAGE

1-4

COMMON TAGS

SEQ 0012

COMMON TAGS

'tfitti*t'tttt't.*'tt"ttt"'t't"tit'tti"t'ttttll"("il't‘tl\

tTHIS TABLE CONTAINS VARIOUS COMMON STORAGWE1 OCATIONS

S«USED IN THE PROGRAM.

SR NN Ba r rnof RIS

S RN SH N R

e mcd o

RESANNIE RIS TT AR

Phur Q-Pe

Phir Prr Qo

b e ek o

and el e

i Qs Qi Yo S

b ed e

- G

d e

e mcd

D v

Gur Qe Phur G

2D oo

e Soar Q-G

e s

D D o

G Pour-gr Qs Qoo

SBSSIBI33SBI8IIISSI32ISSISIII8IIIS3I3383

iy e Gher

AININ) —d ol b md e ok o

001100

SCMTAG:

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000

.=1100
.WORD
.BYTE
.BYTE
WORD
.WORD
WORD
WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD

O
O
0
O
O
O
O
O
1
O
O
O
O

%;g

000000
000000
000000
000

$TSTNM:
$ERFLG:
$ICNT:
SLPADR:
$LPERR:
$ERTTL:
S$ITEMB:
SERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT: .WORD
MWORD
WORD
$AUTOB: .BYTE

77570
177570

SWR:
.WORD
DISPLAY: .WORD

008

$INTAG:

177560

$TKS:

177562
177564

$TKB:
$TPS:

000

SNULL:

012

177566

$TP8:;

002

000
000000
000000
000000
000000
000000
000000
000000
177607
077
015

000012

177560

177566

O
O
O
O

:cAUTOMATIC MODE INDICATOR

;2 INTERRUPT MODE INDICATOR

DSWR
ODDISP

. ;ADDRESS OF SWITCH REGISTER
. ;ADDRESS OF DISPLAY REGISTER
;2TTY KBD STATUS

;:TTY KBD BUFFER
2:TTY PRINTER STATUS REG. ADDRESS

.BYTE

$FILLC:

.BYTE

$BELL:
$QUES:
$CRLF:

.ASCIZ
L.ASCII
.ASCI]

;:TTY PRINTER BUFFER REG. ADDRESS

s ;CONTAINS NULL CHARACTER FOR FILLS

$TPFLG: .BYTE
S$STMPO:
.WORD
$TMP1:
.WORD
$STMP2:
.WORD
$STMP3:
WORD
$TMP4{: _WORD
STIMES: O
SESCAPE : 0

O
O
O
O
O
O

SLF

<12

LASCIZ

COMMON TAGS

;s CONTAINS THE TEST NUMBER
;s CONTAINS ERROR FLAG
;;CONTAINS SUBTEST ITERATION COUNT
;s CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
. ;CONTAINS TOTAL ERRORS DETECTED
;s CONTAINS ITEM CONTROL BYTE
;2CONTAINS MAX. ERRORS PER TEST
. s CONTAINS PC OF LAST ERROR INSTRUCTION
;s CONTAINS ADDRESS OF *'GOOD® DATA
;s CONTAINS ADDRESS OF 'BAD' DATA
;s CONTAINS 'GOOD' DATA
;2CONTAINS °BAD' DATA
; ;RESERVED~~-NOT TO BE USED

177562
177564

$FILLS: .BYTE

000377

;;START OF

;cCONTAINS # OF FILLER CHARACTERS REQUIRED
..INSERT FILL CHARS. 'A'FTER A 'LINE FEED''

22 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;sUSER DEF INED
. +USER DEF INED
;;USER DEFINED
;sUSER DEF INED
..USER DEF INED
NUMBER OF ITERATIONS
ESCAPE ON ERROR ADDRESS

<207><377><377> ..CODE FOR BELL
/7/
s QUESTION MARK
<15
; :CARRIAGE RETURN

;:LINE FEED

ttt*tttttttttttttttil'tttttttlfittfittfilt*i*ttt*tfitt!tttt*ltfi’t.!

"SBTTL

APT MAILBOX-ETABLE

S&&

PONJNY

b
b
D

;;ttttiti*tttittttttttttt'tttttttitttttttt*ttttttttfitfittttttltt"

828

V. e
T
el el el el eyl
el
N
e
T
e
N
e
N
e
T
W
N
T
e
e e R
e
R
i R
R

aS1a8
14

07:40

.3BTTL

~—wnw\4\flv\f\/\/\f\d\nv\wuflv\dsd\4\/\fiv\n\zvflu\4\4\t\’\awnv\f\—wnw\a\f\a\v\nv\a\w\—\fi\p\o\HV\'\,\nv\N

etatlatateYeaYaelala

b\ =y

13-MAR-80
MAIN,
MACYTT 30A(1052)
(ZKWLA P11
13-MAR-80 07:39

.EVEN

000000
000000

SMAIL:

SMSGTY: WORD
$FATAL: .WORD

AMSGTY
AFATAL

s APT MAILBOX

::MESSAGE TYPE CODE
;;FATAL ERROR NUMBER

MACYNY 30A(1052)
JMAIN,
13-MAR-80
P11
CIKW.LA
13-MAR-80 07:39

001216

001220
001222
001224
001226
001226
001227
001230
001232
001234

SUNIT:

SMSGAD:
SMSGLG:

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
()
(2)
(2)

AENV
AENVM

ASWREG

AUSWR

ACPUOP

’

(2)

’

(2)

ATESTIN
APASS
ADEV(T
AUNIT
AMSGAD
AMSGLG

$ETABLE:
SENV:
.BYTE
S$ENVM:
.BYTE
$SWREG: .WORD
SUSWR:
-WORD
$CPUOP: . WORD

(2)
(2)
(2)
(2)
(2)

.WORD
. WORD
.WORD
.WORD
-WORD
.WORD

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

$TESTN:
$PASS:
$DEV(T:

001214

(2)

001212

PAGE 1-5

APT MAILBOX~-ETABLE

(2)

07:40

001236
001237

000
000

T:
SMAMS
MTYP1:

.BYTE
.BYTE

000000

$MADR1:
b

001242
001243
001244
001246
001247
001250
001252
001253
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316
001320
001322
001324
001326

000
000
000000

SMAMS?:
MTYP?:
SMADR?:

3SMAMS
MTYP3:
SMADR3:
SMAMSS:
SMTYPS:

SMADRSG:

SVECT1:
SVECT2:
$BASE:
SDEVM:
$CDW1:
$Chw2:
$ODWO:
$DDW1:
$DDW2:
$DDW3:
$DDW4:
$DDWS:
$DDW6:
$DDW7:
$DDWS:
$ODW9:

$DDW10:
$DDW11:
$ODW12:
$DDW13:
$DDW14:

;s TEST NUMBER
. ;PASS COUNT
*IDEVICE COUNT
25170 UNIT NUMBER
* “MESSAGE ADDRESS
; sMESSAGE LENGTH

1:APT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
* *ENVIRONMENT MODE BITS
1SAPT SWITCH REGISTER
SSUSER SWITCHES
::CPU TYPE,OPTIONS
8ITs 15-11=CPU TYPE

11/04=01,11/05=02,11/20=
11/40=04 ,11/45=05
03,
11/70=06 .PD@=07,0=10
BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT B8=MEMORY MANAGEMENT

; :HIGH ADDRESS,M.S. BYTE

;:MEM. TYPE.,BLKM
MEM.TYPE BYTE
=--

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
: :HIGH ADDRESS,BLKA
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ''TYPE'' ABOVE

001240

AMAMS1
AMTYP

SEQ 0013

;:HIGH ADDRESS.M.S. BYTE

: MEM. TYPE ,BLKA?
::MEM.LAST ADDRESS ,BLKA'2
: :HIGH ADDRESS,M.S.BYTE

* MEM.TYPE ,BLKAS
::MEM.LAST ADDRESS ,BLKA3

::HIGH ADDRESS.M.S.BYTE

.
.

.
TYPE ,BLKA%
* MEM
: *MEM_LAST “ADDRESS ,BLK#%
¢ INTERRUPT VECTORA1,BUS PRIORITYA

:: INTERRUPT VECTORH28US PRIORITYA?

::BASE ADDRESS OF EQUIPMENT UNDER TEST
1:DEVICE MAP

: :CONTROLLER DESCRIPTION WORDA1
: :CONTROLLER DESCRIPTION WORDA2
:*DEVICE DESCRIPTOR WORDA0
:*DEVICE DESCRIPTOR WORDA1
:*DEVICE DESCRIPTOR WORD#?
::DEVICE DESCRIPTOR WORDA3
*:DEVICE DESCRIPTOR WORDA%
*:DEVICE DESCRIPTOR WORDA'S
*:DEVICE DESCRIPTOR WORD#
*:DEVICE DESCRIPTOR WORDA7
*:DEVICE DESCRIPTOR WORD#S
*:DEVICE DESCRIPTOR WORDA
**DEVICE DESCRIPTOR WORD#10
:DEVICE DESCRIPTOR WORD#11

*:DEVICE DESCRIPTOR WORD#1?2
P DEVICE DESCRIPTOR WORDA13
:DEVICE DESCRIPTOR WORD#14

MAIN,
MACY1T 30A(1052)
13-MAR-80
C7KWLA. P11
13-MAR-80 07:39

001330

(2)

001332

(2)
(2)

(2)

000000

07:40

PAGE 1-6

APT MAILBOX-ETABLE

$DDW1S:
SETEND:

.WORD

ADDW15

SEQ 00"«

;;DEVICE DESCRIPTOR WORD#15

(7:40 PAGE 1-7
ERROR POINTER TABLE
.SBTTL

;*THIS TABLE CONTAINS THE

DH
DT
DF

e Vo

s W

e Y e

e v

d d e

”

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;:POINTS TO THE ERROR MESSAGE
;;POINTS TO THE DATA HEADER

;;POINTS TO THE DATA
;;POINTS TO THE DATA FORMAT

001332

$ERRTB:

001
001
001
001350

024454

001352
001354
001356
001360

024502

001362

024563

KRR

024406
027431
027654
000000

001332
001334
00133
00134

; ERROR#1

;ERROR#2

027517
027670
0000C)

;ERROR#3

027431
027654

000000

s ERROR#4

EM1
DH1
D11
000

;sACTUAL VAILUE DIDN'T MATCH WITH EXPECTED

EM2
DHZ
DT2
000

;ERROR: READY BIT DIDN'T SET

EM3
DH1
D11
000

;;TIME INTERVAL COUNTER DIDN'T DECREMENT IN ORDER

EMé

;;PROBABLE CAUSE OF AN ERROR:BIT#14 WAS
;cNOT SET IN DEVICE REG4

024615
027517

;;ERROR:BIT #14 IN CSR FAIL TO RESET

001402

024651
027431
027654
000000

;;READY BIT DIDN'T SET;YEAR VALUE MAY BE INVALID

D oy
b

024730
027431
027654
000000

;;READY BIT DIDN'T SET;ONE OR BOTH VALUES OF MONTH AND D

bk
wd

027517
027670
000000

025040
027431

]

S&RS B335 38R

027670
000000

3838 8338 883

N SeTgege

NN =

NEN~ NSO ORISRWNLES N S e

e W

ERROR POINTER TABLE

s«THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT,
If SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE1:
:*NOTE?:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

d o

YW
N ”~~

SEQ 001¢

b e =D

s e N N NN

13-MAR-80
MAIN,
MACY11 30A(1052)
13-MAR-80 07:39
CZKWLA.P11

027654
000000

;ERROR#10

EMI0
DH1
DT
000

;;READY BIT DIDN'T SET;ONE OR BOTH VALUES OF HOUR AND M]

13-MAR-80
-MAIN,
MACY11 30A(1052)
13-MAR-80 07:39
CZKWLA. P11
75
76

78
79

80
3
82
83

001432
001434
001436
001440

025152
027517
027670
000000

001442
001444
001446
001450

025212
027517
027670
000000

001452

025250

001454
001456
001450

027517
027670
000000

001462

025304
027517

001464
001466

3 =k —

001470
001472
001474
001476

001500

025437
027517
027670
000000

001502

025572

001512

025605

001514
001516
001520

027431
027654

001522
001530

025655
027431
027654
000000

001532

025733

001534
001536
001540

027517
027670
000000

001542
001544
001546
001550

026004
027517
027670
000000

001552

026053

—id

b oy

b oD o

ik ad e

) e

001504
001506
001510

Y ad

027670
000000

027431
027654
000000

000000

07:40 PAGE 1-8
ERROR POINTER TABLE

;ERROR#11

SEQ 0016

&Ml
DH2
D12
000

;;ERROR: BIT #15 (DE) FAIL TO SET IN (SR

£EM12

;;ERROR: CLOCK DIDN'T STOP
;s CLOCK WAS SUPPOSE TO STOP WHILE
;s SETTING MONTH+DAY VALUE

:ERROR#12

DH2
D12

000

;ERROR#13
EM13

;;ERROR: CLOCK IS NOT RUNNING

DH?
D12
000

;. CLOCK WAS SUPPOSE TO RUN AFTER
;sSETTING MONTH+DAY AND HOUR+MIN

EM14
DH2
D12
000

2 INTERRUPT DIDN'T OCCUR WHILE UPDATING

;ERROR#14

:ERROR#1S
EM15

;o INTERRUPT DIDN'T OCCUR ON PRESET VALUE

;ERROR#16
EM16

22SOFT ERROR

DHZ
D12
000

DH1
DT1
000

;ERROR#17

Em7
DH1

THE CLOCK

s JUNEXPECTED INTERRUPT AS SOF TWARE SWITCH
;:WAS NOT SET

DT1

000

;ERROR#20

EM20
DH1
o1

JSUNEXPECTED INTERRUPT AS INTRPT WAS NOT ENABLED

000

JERROR#21

EM21
DH2
D72
000

;ERROR#22

;oUNEXPECTED INTERRUPT AS (DE) BIT
;: DIDN'T SET IN CSR

EM22
DHZ
D12
000

s UNEXPECTED UNEXPLAINABLE INTERRUPT

EM23

;SUNEXPECTED INTERRUPT AS (T]) BIT
;2WAS NOT SET IN (SR

JERROR#23

MACY11 30A(1052)
13-MAR-80
13-MAR-80 07:39
CZKWLA. P11

001554
201556
001560

027517
027670
000000

001562

026121

027431
027654
000000

b e

N SN
N OO

b e

h _

BYRARIIY

MAIN,

026256

027517

027670

000000

026321
027517
027670
000000
026376
027517

)

R R R RBIIIIANINNIIDTELEAR W= OOV~

D md oD

) o

) e

[e 30,38, Yo 3V, T 10 TV AU W IV TV 10, 1V, F o o} Fa¥ o

WA =2O V0NN

ek —

026207
%1
0274
027654
000000

027670

000000

b o} e

026445
027562
027704
(@ 2o W3iN)

o
D d

SO0

026545
027547
027700
000000

~ny

026626
027634
097720
000000

prQnr
G Gurd

3888
SRR

026505
027517

027670
000000

D
D oD o
nd
b oD ok

ot o

s el

s e

00 00 00 00 00 00 ~of ~d~d

VYY)

s el et el et o

D e

I~~~

NOOO

rrnd

D e

000000

026674
027431
027654
000000

07:40 PAGE 1-9
ERROR POINTER TABLE

2
SEQ 0017

DH2
D12
000

;ERROR#24

EM24

DH1
DT
009
:ERROR+25

c;TIME FAIL TO HOLD WHILE
JWHILE HOLD BIT WAS SET [N (SR

EM25

; JERROR:READY BIT WASN'T SUPPOSE TO BE SET

EM26

;:'M'BIT DID NOT SET IN (SR

DH1
DT1
000
;ERROR+26
DH2
DT?2

000
;ERROR+27
EM27
DHZ

;. TIME

INTERVAL

INTERRUPT DIDN'T OCCUR

DT2

000

:ERROR+30

EM30
DH2

;;'M" AND/OR 'DE' BIT NOT SET IN (SR

D12
000
;ERROR+31
EM31
DH4
DT4
000
;ERROR+32

EM32

DH2
D12
000
. ERROR+33

EM33
DH3

DT3
000
;ERROR+34
EM34
DH5
DTS
000

;ERROR+3S

EM35
DH1
DT
000

;HOLD BIT FAIL TG RESET IN TIME

;;HOLD BIT FAIL TO RESET

;s CRYSTAL OSCILLATOR SEEMS TO BE INACCURATE

;.GOT NO INTERRUPT
;:GOT NO INTERRUPT WITH BPU AT LEVEL O

;o INTERRUPT OCCUR AT WRONG LEVEL

:ERROR+3€

200

201

;o'DE' BIT FAIL TO CLEAR IN (SR

DH2
D12
000

KW11C BUS REGISTER ADDRESS POINTERS

CSR:

198

199

SEQ 0018

026734
027517
027670
000000

192
193
194
195
196
197

001702
001704
001706
001710

PAGE 1-19

ERROR POINTER TABLE

187
188
89
190

07:40

MACY1] 30A(1052)
MAIN,
13-MaR-80
CZKWLA.P11
13-MAR-80 07:39

160006

;COMMAND/STATUS REGISTER

KWw11C VECTOR ADDRESS POINTERS

TVECO:
;VEC2:

300
304

sNORMAL

INTERRUPT VECTOR

KW11C DEVICE LEVEL

BRLY:

6
COMMAND STATUS REGISTER BIT ASSIGNMENTS

Luxfdspnu“nuuuuth

AUALASNUNINSALNLNUNININSENUNL
N NININD PO NLNI NN
PNV
NONONONOTVMNUNUNOR
D 2 S — b
a3
V00
NO
N BN —= OO 00 NN
AN 2 O 000 NI LSS WD

COMMON PROGRAM LOCATION(S)

240

MACR
JSR
TST
.ENDM

RDY(CK
PC,
FLAG.1

.MACR
MOV
MOVB
TYPE
.ENDM

ECHO
(SP)+,
R4,

.MACR
MOV
MOvVB
TYPE
. ENDM
.MACR
MOV
JSR
BIT
BEQ
.ENDM

ECHO1

(SP)+,
R4,

RDYBIT

;CHECK FOR READY BIT SET
;IS FLAG SET?

R4
ECHOB

ECHOB

;s STORE CHARACTER
2:70 ECHO THE CHARACTER
;. TYPE THE CHARACTER

R4
ECHOB1T

;;STORE CHARACTTER
;;ECHO THE CHARACTER

ECHOB1

DE CHK
R77777 ,COUNTR
PC,

DMT

#IT15,aCSR
.~12

JMACR
MOV
MOV
JSR
BIT
BNE
.ENDM

DECLR
#77777,COUNTR
#0,
aCSR

-MACR

(OMPAR

PC,

DAY

#BIT15, aCSR
.=20
7B

;;DELAY LOOP SETUP
;;DEAD MAN TIMER ROUTINE
;1S DE BIT SET
::TRY AGAIN

;:DELAY LOOP SETUP
;;CLEAR (SR
;:DEAD MAN TIMES ROUTINE

::15 BIT1S CLR?

2 :NO:BR

MAIN,

MACYTT

CIKWLA P11

30A(1052)

13-MAR-80

13-MAR-B0 07:39

07:40

PAGE 1-11

ERROR POINTER TABLE

pLAA

0 o

265

246

2647

s DN )

248
S3
56 4

1 )
1 )
1 )
)
)
)
)
)
)
)
)
)
)
)

)
)
)
)
)
)

;

)

)
)

)
)
)
)

)
)
)
)
)
)
)
)
)
)
)]
)
)

001712
001716

START:
012706
005026

001720
001724
001726

022706
001374
012706

001140

001732

012737

023342

000020

001746

012737

022656

000030

012737
012737
013737

023634
000340

000024
000026
020106

001740

001754
001762
001770

001776
002004
002012

002020
002024

002030

002036
002044

012737

012737
012737
012737

001100

000340

000340
0246324
000340

012737

002044

001110

000004
002112
177570
177570
177777

000004
001140
00114¢
177032

013746
012737
012737
012737
022777
001012

002110
002112
002116

000403
012716
000002

002036

002120

000176
000174
000004

002140
002144

005037
132737

001214
000200

001227

6.82}2‘2-

012737

001230

001140

177777

BAD

scEXPECTED SECOND CAN'T BE MORE

s cEXPECTED=ACTUAL?

.SBTTL PROGRAM START

001140
001142

CLR

(RG)+

MOV

#3640, a#I0TVEC+2 ;;LEVEL 7

MOV
MOV
MOV

#3400, EMTVEC+2 ;.LEVEL 7
HSTRAP
,a# TRAPVEC ::TRAP VECTOR FOR TRAP CALLS
#340 , ¥ TRAPVEC+2:LEVEL 7

CLR
(LR

;s CLEAR MEMORY LOCATION

#SERROR ,@FEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE

#SPWRDN ,a#PWRVEC ; .POWER FAILURE VECTOR
#3640 @WPWRVEC+2 ;;LEVEL 7
SENDCT,SEOPCT
;:SETUP END-OF -PROGRAM COUNTER

MOVB

$TIMES
SESCAPE
#1,SERMAX

;o INITIALIZE NUMBER OF [TERATIONS
;;CLEAR THE ESCAPE ON ERROR ADDRESS

MoV

#. .SLPERR

..SETUP THE ERROR LOOP ADDRESS

CLR
8ITB

$PASS
#APTSIZE ,$ENWM

;.CLEAR PASS COUNT
;:TEST USER SIZE UNDER APT

MOV

#SSWREG, SWR

;:NO,USE APT SWITCH REGISTER

MOV

#. ,$LPADR

;cALLOW ONE ERROR PER TEST

;oINITIALIZE THE LOOP ADDRESS FOR SCOPE

;:SI1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "=1'', SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV
SHERRVEC,-(SP)
;.SAVE ERROR VECTCR
MOV
#64S QFERRVEC
;. SET UP_ERROR VECTOR
MOV
#DSWR, SWR
;;SETUP FOR A HARDWARE SWICH REGISTER
MOV
#ODISP,DISPLAY ;.AND A HARDWARE DISPLAY REGISTER
cMP
#-1,35WR
;:TRY TO REFERENCE HARDWARE SWR
BNE
663
;;BRANCH IF NO TIMEOUT TRAP OCCURRED
;;AND THE HARDWARE SWR IS NOT = -1
BR
65%
;;BRANCH IF NO TIMEOUT
648:
MOV
#65$, (SP)
;:SET UP FOR TRAP RETURN
RTI
658:
MOV
#SWREG, SWR
;cPOINT TO SOF TWARE SWR
MOV
#DISPREG,DISPLAY
66$:
MOV
(SP)
+ ,@#ERRVEC ;;RESTORE ERROR VECTOR

675
.SBTTL

88
=

)

600D,

.ENDM

MOV
MOV
MOV

001106

012737
012737
012637

001403

GO0D

o, o

MOV

001115

002120
002126
002134

00%152

#74,

ccEXPECTED VALUE MORE THAN OR EQUALS 60.?

;<NO:BR

tTMwP
#SWR,R6 ;:DONE?
BNE
~6
- :LO0OP BACK IF NO
MoV
#STACK ,SP
2:SETUP THE STACK POINTER
;o INITIALIZE A FEW VECTORS
MOV
#$SCOPE ,a#IOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE

000032
000034
000036

11_2737

0] 12737

002052
002056
002064
002072
002100
002106

g
;

)

000022

020114
001172
001174
000001

005037
005037

#74

LSBTTL
INITIALIZE THE COMMON TAGS
;.CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#3CMTAG,R6
;oFIRST LOCATION TO BE CLEARED

001100

b =

AN AN PN

NN TN NN PN N SN N LN N NN PN N PN PN PN PN NN N N

SN N TN

N s

e s

AP PINSNONO = PONGNUNONAONOTOMNONONUNATUNNON
D N B
D W
DA D s
D
e

o e

001712

GOOD,

BLT

SUB

SEQ 0019

BEQ

673

;2YES,USE NON-APT SWITCH

TYPE PROGRAM NAME

;:TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC

BNE

#-1

688

;;FIRST TIME?

::BRANCH IF NO

THAN S9

}

MAIN,
MACYT1 30A(1052)
13-MAR-80
13-MAR-80 07:39
(7KW
A P11
4D
(1)
(1)

(2)
(2)
(2)
(2)

002170
002176
002200

022737
001441
106401

002246

002204
002210

005737
001012

000042

123727

001406

020146

07:40

PAGE 1-12

TYPE PROGRAM NAME

000042

0, 2
BEQ

022712
001415

011005
000240
000240

005737

001140

000176

SWR, #SWREG

g;sun

::GET SOFT-SWR SETTINGS

MOVB

#1,$AUTOB

;:SET AUTO-MODE

B8R

68%

;sGET OVER THE ASCI2

INC

:;PRINT ONCE

001134

177777

BEQ
BNE
;?;:

FLOAT:

LASCIZ

UNSKE

&
g
83=

708
718

:;BRANCH IF YES

;;SOFTWARE SWITCH REG SELECTED?

;sBRANCH IF NO

INDICATOR

<CRLF>#MAINDEC-11~CZKWLAO-KW11C#<CRLF>

BEQ
JMP
?Ex

6$
SETUPG
:{igogr,axsnnvec

002522

MOV

#0CTMOD ,R4

;;POINTER TO THE OCTAL MODULE TABLE

002566

MOV

#RANKTA_R?

:;POINTER TO THE RANK TABLE

#21,

002714
002452
024212

000004

6%:

160010

000021

MOV

1%:

2%:
3s:

024212

BEQ

MOV
NOP

4$:

024064
000002
024066
000002
024070
000002
001262
002632

5%:

#160010,R0

(RO),

NOP
ST
BEQ

FLAG.2
43

B8R

CLR

024212

000002

2700

;s TYPE ASCIZ STRING

000001

ARD

(=l

BEI YRR BRI B R BRRITIY

AUNSNUrONLPUNUNURUTNUNL
VNG

001403
005037
000764
061400

698

D:ACT=112
T:BRANCH IF YES

001226

éé29s:

005227
001402
000137
012737
005037
012704
012700
012702

TYPE

#SENDAD , a#42
68$

GET VALUE FOR SOF TWARE SWITCH REGISTER
TST
we2
;2ARE WE RUNNING UNDER XXDP/ACT?
BNE
70%
s sBRANCH IF YES
& )
$ENV. M
;;ARE WE RUNNING UNDER APT?

000001

.SBTTL

SEQ 0020

TST
BR

MOV

SUB
SUB

MOV
ADD
MOV
ADD
MOV
ADD
MOV
JMP

IS IT LAST ADDRESS?

.+ TRY TO ADDRESS THE DEVICE ADDRESS

Ré,

'y,
(RS),
RO,
"2,
RO,
",
RO,
a2,
RO,

:BRANCH IF YES

::1S INTRPT FLAG SET?
;;BRANCH IF NOT SET

;:CLEAR INTRPT FLAG
RO

(RG) +

(R2)+
18

;;STARTING ADDRESS OF DEV TABLE

(R2)

FLAG.?2
(R4¢),

;:TIME OUT INTERRUPT ADDRESS

. ;ADDRESS WNEXT ADDRESS

;;ADD CONTENT OF MOD TAB TO

;:GET NEXT ADDRESS

;:POP UP OCTMOD TAS

R5
RO

RGO
RO
RG2
RO
RG4
RO
$BASE

sTHIS IS TIMEOUT INTERRUPT ROUTINE

;:POP UP TANKTA
2 :BRANCH
; :CURRENT POINTER

;;BACK UP BY 2
*:GET THE DESIRED ADDRESS

;;ADDRESS OF KW11(C
2 2GET NEXT ADDRESS
:JNEXT DEV ADDRESS
e
..

e
’
o
..

LMAIN.

MACYTT

CIKWLA.P11
295

296

297

002452

30A(1052)

13-MAR-80

13-MAR-80 07:3% 9
012737

000001

07:40

024212

TIMOUT: MOV

005724

299
300
201

002464
002470
002472

021427
001403
062700

000010

2035

002500

032700

000010

305
306
307
3383

002506
002512
002514
002520

062700
000402
062700
000002

000010

310
311
312
313
314
315
316
317
318
319
320
321
322
223
324
325
326
ggg

002522
002524
002526
002530
002532
002534
002536
002540
002542
002544
002546
002550
002552
002554
002556
002560
002562
002564

000010
000020
000010
000010
000010
000010
000010
000010
000010
000010
000010
000020
000010
000010
Q00010
000010
000000
000000

ocTMOD: 0010
0020
0010

329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
34
345
%29

002566
002570
002572
002574
002576
002600
002602
002604
002606
002610
002612
002614
002616
002620
002622
Q02624
002626
002630

000001
000002
000003
000004
000005
000006
000007
000010
000011
000012
000013
000014
000015
000016
000017
000020
000021
000022

RANKTA: 0001
0002
0003
0004
0005
0006
0007
0010
00N
0012
0013
0014
0015
0016
0017
0020
0021
0022

348

00263c

012737

35CG

002644

000300

302
304

%G9

002462

002476
002504

002640

005722

000410

001403

013700

18T

1ST

000020

1%:

000020

GET VALUE FOR SOFTWARE SWITCH RFGISTER

0026460

298

)

PAGE 1-13

2%:
3%:

(R&) +

(R2)+

FLAG.?2

SEQ 0021

;:SET INTRPT FLAG

> INCREMENT OCTMOD POINTR

;. INCREMENT RANKTAB POINTR

e
BEQ
ADD

(RG>,
1¢
#10,

#20
RO

s:1S NEXT LOC AT EVEN ADDRESS
s sBRANCH IF YES
;;INDICATE NO DEVICE

BIT

#10,

;. 1S 1T ON EVEN BOUNDARY

ADD
BR
ADD
RTI

#10.
33
#20,

B8R

BEQ

s RETURN FROM INTRPT
> :BRANCH IF YES

JIMAKE IT EVEN BOUNDARY
;JRETURN FROM INTRP1
;. INDICATES NO DEVICE PRESENT
sJRETURN FROM INTRPT

0010

0010
0010
0010
0010
0010
0010
0010
0020

0010
0010
0010
0010
0000
0000

017770

001256

000004

SETUP1: MOV

MOV

SWAR

#TRAPL, a#ERRVEC
$VECT1,RO

. :ADDRESS OF TRAP ROUT Nt
;;GET PRIORITY LEVEL

;:PUT IN LEFT HALF

FIKWA
351
352
353
354
355

356

357
358
359

13-MAR~-80
MACY11 30A(1052)
P11
13-MAR-B0 07:39

002646
002652

04700
010037

002656

002664
002670
002674

013737

012700
013701
042701
010120

P~
o~

—~ o~~~

PN VS

PRGN ;' PP PRI
¢ « SN

B B

N N

P OEINES SOUNI SN Y

022700
001372
005737
001402
000137
012777
013777
012777
013777
005227
001402
000137

J
2
07:40 PAGE 1-14
GET VALUE FOR SOFTWARE SWITCH REGISTER

177400
024104

BIC

MOV

062701

RPN

MAIN.

002770

104401

002774

000434

003066
003066
003072

000424

003144
003144

104401

001262

024072
001256
177400

002770
017554
024104
017662
024104
177777
003530

002776

021136
021132
021126
021122

003074

003200
003200
003204

104401
000413

003206

104407
000424

003242

003312
003316

104407
000414

003320

003350
003350
003354

104401
000424

003356

003426
003426

104401

003434

$BASE . CSR

::STORE

NOW SETUP VECTOR ADDRESSES

’

MOV

#PCVO RO

BUS ADDRESS

::SETUP VECTOR POINTER

MOV

SVECTI.R

Z:GET BASE VECTOR ADDR

SETUP3: MOV

R1. (RO)+

*PUT ADDRS

1$:

HELP:

)

#-400 ,R1

#2.R1
#PCV1+4 RO
SETUP3
62
1s

::ADDRESS OF INTERRUPT ROUTINE
S:RISE PRIORITY
:;ADDRESS OF TIME INTERVAL INTERRUPT ROUTINE

BEQ

HELP

*:PROMPT FOR INPUT

TYPE
BR
LASCIZ

658
::TYPE ASCIZ STRING
64$
$:GET OVER THE ASCIZ
<200>/SELECT FUNCTION BELOW. TYPE CHARACTER CARRIAGE RETURN/

JMP

TYPE

BR
LASCIZ

TYPE

;R%.

678

663
<200>/ °*T*

,698

©TYPE
BR

718
708

)
5§;§‘:

'
52253:

)
%g;?s:

)

LASCIZ

TYPE

<200>/

<2005/

72%

TYPE
BR

758
748

LASCIZ

TYPE

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ
10 TEST
CLOCK(CONTROL C TO EXIT)/

'S'

'R*

*:GET OVER THE ASCIZ

TO SET

CLOCK/

::TYPE ASCIZ STRING
*:GET OVER THE ASCIZ

TO READ

CLOCK/

:;TYPE ASCIZ STRING

Z:GET OVER THE ASCIZ

<200>/ 'M* MODIFY OR READ ADDRESS AND VECTOR/

::TYPE ASCIZ STRING
“GET OVER THE ASCIZ

<200>/ 'A* ACCURACY OF CLOCK/

77%

B8R

768

TYPE

,79%

LASCIZ

+:BUS LEVEL

::TYPE ASCIZ STRING

738

B8R

LASCIZ

aPsv1

RESTRT

688

56;15:

:2INCR.TO NEXT LOC.
>:DONE ALL LOCATIONS?
ZiBR,IF NOT DONE
*:TEST CHAIN MODE UNDER XXDP
Z:BR,IF CHAIN MODE

HELP
#INTRPT ,3PCVO
PRI,
aPSV0
#TIMRTN,3PCV]

B8R

éég?s:

2:CLEAR UNWANTED BITS

N
MoV
MOV
MOV

gégrs:

003152

ZISAVE DEVICE LEVEL

ézgss:

000413

003312

SETUP2: MOV

ADD
P
BNE
SETUP4: TST
8EQ

000042

::CLEAR UNWANTED BITS

RO.PRI

NOW SETUP BUS ADDRESS VALUES

8IC

000002
024102

003150

003234
003234
003240

024062

#177400.R0

SEQ 0022

<200>/

;:TYPE ASCIZ STRING

'G'

“:GET OVER THE ASCIZ

MODIFY SOFTWARE SWITCH REGISTER/

::TYPE ASCIZ STRING

LMAIN,

MACYTT

(1)

003432

(1)

00%62

CZKWLA. P
1)

185

(1)

003462

003466
003530

30A(1052)

13-MAR-80 07:39

000413
106401

000420

386
387
388
389

003530
003534
003540
003542

104407
012706

291

003552

104411

390

003546

13-MAR-B0O

104401
104401

005037

07:40

783:

::818:

001203
001202
001100

001172

80s:

_ASCIZ

TYPE

LASCIZ

RESTRT: TYPE
TYPE
CKSWR
MOV

CLR

RDL IN

788

<200>/

*E*'

<200>/

'H'

004002

JMP

LOGTST

#123,

JSR

PC,NEWTIM

003570

022704

000123

399

003576

004737

013136

402

003604

022704

000122

404

003612

004737

014426

022704

000115

28?
403

282
407

408
409
2;9

003574

003602

003610

003616

003620

003624
003626
003632

001003

000752

001003

000744

001003
004737
000736

017234

412

003634

022704

000101

414

003642

004737

014754

2}9

003650

000727

418

003652

022704

413
415

419
420
25;

003640
003646

003556
003660
003662

001004

000005

007003
000000
000137

423
424
425

003666
003672
003674

022704
001002
000137

427

003704

001003

426

428

003700

0037206

022704

104406

000105

000110
002770

000107

003710

000137

003530

(1)

003720

000424

104401

003722

(1)

003714
003714

003772

BNE

B8R
2% :

48:

68:
7$:

;:658:

64$:

“:G0 TEST THE CLOCK
R&

RESTRT

SIS IT 's*?

::NO:BR

S:GET NEW TIME

S:WAIT FOR CHARACTER

;218 IT

JSR

PC.

READ

::GO READ THE CURRENT TIME

#115,

RESTRT

*INO:BR
;:1S IT

‘M2

BNE
JSR
B8R

4
PC.

DEVCOD

1:NO:BR
;:GET NEW ADDRESS AND VECTOR

cTMP

#101,

;218 IT 'A"?

JSR

PC.

A.CLK

::GO CHECK ACCURACY OF CLOCK

RESTRT

#105,

BNE

BNE
HALT
JMP

RESTRT
5¢

#110,
7$
HELP

BNE

JwP

TYPE

_ASCIZ

HELP

cMP
BNE
JMP
GTSWR

8s:

+ sNO:BR

#7122,

RESET

:INITIALIZE NUMBER OF ITERATION

BNE

002770

430
(1)

"PRINTS THIS MESSAGE/

;:GET THE CHARACTER
RIS IT °T'2

000137

*IGET OVER THE ASCI2

2:SET THE STACK POINTER

%gg
397

WELP

STIMES

S(SP)+, R4
#124,
R4

BNE

"HALTS CPU/

#STACK, SP

MOV
cMP

001002

::GET OVER THE ASCIZ

,S$CRLF
$OUES

000124

003564

SEQ 0023

::TYPE ASCIZ STRING

013604
022704

003562

EXIT

81s

80s

392 003554
393 003556
394

GET VALUE FOR SOF TWARE SWITCH REGISTER
--79%:

003470

PAGE 1-15

#107,

R&
Ré

“:NO:BR

;:IS
IT 'E"?

*NO:BR
SIHALT CPU
*:RESTART THE PROGRAM

;218 1T *H*?
*:NO:BR
260 TO PRINT HELP MESSAGE
IS IT 'G*?

$:NO:BR

RESTRY
.658

643

::TYPE ASCIZ STRING

S GET OVER THE ASCIZ

<200>/"'ILLEGAL CHARACTER.TYPE

'H'

FOR HELP'"/

13-MAR-80
MACY11 30A(1052)
{IKWLA, P11
13-MAR-80 07:39
MAIN,

431
432
433
434
435

436
437
438
21;
(1)

439
4460
441
442
443
444
445

003772
003776

000137
000137

003530
001712

004002

012703
032777
001426

000010
000400

004006
004014
004016
004022

004956

004056
004064
0046066
004070
004072
004076

104401

000415

012777
005303
001347
000000
004737
104407

(1)

450
451
452

453
454
455
456
457
458

459
460
461

462
463
464
465

466

467
468
469
470
471
472

473

474
475
476
«77

478
479

JMP
JMP

RESTRT
START

LOGIST: MOV
3s:
BIT
BEQ

#10,
#MIT8,
b

ROUTY:

020046

004024

TYPE

éigSS:

000400

017776

016106

5%:

446
447
448
449

(3)
(3)
(2)

07:40 PAGE 1-16
GET VALUE FOR SOf TWARE SWIT({H REGISTER

R3
a(SR

;. LO00P COUNTER
s cCHECK BATTERY?
;sBRANCH IF BATTERY IS 0.K.

L65%

::TYPE ASCIZ STRING

BR
JASCIZ

648
::GET OVER THE ASCI2
<200>/'BATTERY IS DISCHARGING'Y/

MOV
DEC
ggfr

#3178,
R3
3s

aCSR

+:RESET THE CLOCK
<+ COUNT DOWN
;:BRANCH IF NOT ZERO

JSR

PC,

CNTLC

;;1S 1T CONTROL C?

CKSWR

;THIS ROUTINE WILL

;oIS SOFTWARE SWITCH SELECTED?

SET AND RESET ALL WORKING BITS

IN CSR

”

J*TEST 1

004100

000012
000340
004376
004436

004102

004110
004116
004122

004126
004130
004134
004140
004144
004152

004214
017722
001124
001124
024214
017700

004156
004164
004172

001172
177776

2%:
024214

024214
001124
017654

001122

004214

014356

017640

001126
001124
024214

004262

017630
000000
001124
024214
024214
001124

017564

001122

014356

017552

017544

001126

017634

004222
004252
0042
004242
004250
004254
004270
004272
004300
004302

004310
004312

000005
017737

3%:

4%:

MOV
P
BGT
JMP
MOV
MOV
MoV
coM
MOV
BIC
cMP
BEQ
MoV
ERROR+1

#10. ,STIMES

#PR7,

PSW

(RO+,
(RO)+,

aCSR
GOOD

#BITAB, RO
#BITEN, RO
2%
43
GOOD,

GOOD1

aCSR,
GOOD1,

BAD
BAD

aCSR,

BADA

GOOD,
3

BAD

1} ]

MOV

#14356, aCSR

MOV

a(SR,

BAD

600D,

BAD
BAD

aCSR,

BADA

CLR

MOV

5%:

ettt

it et

iit

AR AARAR AR NRE AR IR RRRRRAR KRR

SCOPE
MOV

MOV
MOV
oM
BIC
MP
BEQ

001126
001126

TEST SET/RESET BITS IN CSR

MOV

1%:

001126
001126
001126

004200
004202
004210
004212

TST1:

AR LAt

a(CSR

x0,
GO0D,
GOOD1
GOOD1,
5%

GO0D
GOOD1

ERROR+1
MOV
#14356, alSR
RESET
MOV

a(SR,

BAD

::D0 10.

s adissilzlisssseeesay

AAANAAANER AR

RERRRRN

ITERATIONS

2 :GET THE PRIORITY

;:POINTER TO THE TABLE
:2:I1S 1T END OF THE TABLE?
;:NO:BR
JIEXIT
;2GET THE VALUE FROM THE TABLE

;;EXPECTED VALUE IN CSR
;;EXPECTED VALUE IN GOOD1 TOO

2 JUNWANTED BITS IN GOOD1
;:READ CSR
;:CLEAR UNWANTED BITS

;;ARE THEY EQUAL?
;:YES:BR

;JREAD STATUS OF CSR
;sTHE BIT SET IN CSR NOT MATCH WITH EXPECTED.

::60 GET NEXT VALUE

;;SET POSSIBLE BITS IN CSR

;;CLEAR ALL BJTS IN CSR

2 2READ CURRENT (SR

;JEXPECTED VALUE
FH
cs
;;CLEAR UNWANTED BITS
;2ARE THEY EQUAL?
;sYES:BR
;:READ (SR

l:
;;READ (SR

JMAIN,
MACYTT 30A(1052)
12-MAR-80
rIKWL A, PTY
13-MAR-80 07:39
480
481
482
483

486

485
486
487
488

Zgg
491
492
493

494
495
496
457
498
499
500
501

502
503
504
505
506
ggg

0046320
004326
004334
004340

004346

004354
004356
004
004370

012737
013737
005137
043737

023737

001403
017737
004737
104407

004372

000137

004376
004400
004402

0000017
000001
000002
000002
000004
000004
000010
000010
000040
000040
000100

004404
004406
004410

006412
004414
004416
004420
004422

004424
004426
004430
004432
004434
004436

000000
001124
024214
024214

001124

017500
016106

001124
024214

001126
001122

JMP

BITAB:

000100
100000
004000
040000
002000
000000

004440
004442
004450
004454

000004
012737
004737
104407

004462

012702

004466
004474
004300
004504
004512
004516
004524
004530
004536

529

S31

63
aCSR,
PC,

BAD

BADA
CNTLC

BITEN+2

:EXPECTED VALUE
;s CLEAR UNWANTED BITS

2 ;ARE THEY EQUAL?
;. YES:BR
;sRAD STATUS OF CSR
JeEXIT

000001
000001
000002
000002
000004
000004
000010
000010
000040
000040
000100

000100
100000
004000
040000
002000
00000

BITEN:

A AR

J*TEST 2

515
516
517
518
519
520
521
522
523

530

GOOD,

600D
GOOD1

SEQ 0025

AR AN AN AR

AN RARAR KRN R RRARAAANRRAR AR AN AR RN

TEST TIMEINTERVAL COUNTER DECREMENTS IN PROPER ORDER

:;tttt.**ttt**t*tttttttt*ittfifitttt**tttttttttttttfitttit*tt*tiittt

004456

5¢5
326
527
528

BEG
MOV
JSR
CKSWR

68:

;C e

513

5¢¢

#0,
G0OD,
GOOD1
GOOD1,

004440

2%;

514

MOV
MOV
com
8IC

001126

509
510

(2)
(1)
511
512

M2
PAGE 1-17
TEST SET/RESET BITS IN (SR

(C7:40
T

004540

004544
004546
004554
Q04562

004570

004572
004574

000012
016106

005037

024046

012737
005077
010277
012777
005337
012737
004737
027737
001372

007777
017362
017364
000010
024050
077777
017206
017334

005737

001413
017737
013737
017737
104003

000733

005237

047777

001172

024050

TST2:

SCOPE
MOV
JSR
CKSWR

#10. ,STIMES
PC.
CNTLC

1$:

MOV

#7777, R2

017350

11$:

024052

2%:

024050

3s:

024210

017316
024050
017274
024046

CLR

MoV
CLR
MOV
MOV
DEC
MOV
JSR
cMP
BNE
TST

BEQ
MoV
MOV
MOV

001126
001124
001122

ERROR+3

INC

NUMBR

#7777,
aCSR
R2,
#BIT3,
KOUNT
477777,
PC,
aRG4,
3s

KOUNT

aRG4
(SR

COUNTR

OMT

KOUNT

FLAG.1

43
aRG4,
KOUNT,
a(SR,
13

NUMBR

BAD
GOOD
BADA

;:D0 10. ITERATIONS

;;TIMEINT COUNT IN R2
::ACTUAL VALUE IN REG4

;;CLEAR CSR
;:TIMINT COUNT INTO DEV REG
;;READ TIME INTERVAL
; ;DECREMENT COUNT BY ONE
;2 INITIALIZE THE COUNTER
::DEAD MAN TIMER
;:1S TIME INTERVAL CHANGES?
;JBRANCH IF NOT CHANGED
;215 ERROR FLAG SET
:;BRANCH IF NOT
;READ TIME INTERVAL
JIEXPECTED
;:STATUS OF CSR
;;DEAD MAN TIMER FAILED

::TRY AGAIN
;2 JUST FOR CHECK

13-MAR-80
MACY1? 30A(1052)
CZKWLA.PTT
13-MAR-80 07:39
MAIN,

532

533

534
535
536
537
538

0044600
004604
004606

005337
001344
012737

0046 30
004635
00464
004642
004646
004654
004656

004660
004662

DEC
BNE
mov
MOV
o
0,
BEQ

001124
001126

007776
024046
001124

001126

017224

001122

077777
040000

017206

017174

001122

5%:

6%:

MOV

a(SR,

BADA

MOV
817
SNE
DEC
8NE
MOV
ERROR+4

n77777, R2
MIT14, aCSR
7$
R
6%

ERROR+1

017146

001122

MOV

BEQ

ERROR+S

8R
JSR
CKSWR

8%:

AN AR A

SeTEST 3
001172
024054

1%:

017102
017066
024202

118:

o
<

—2l
N

purd

TST13:

8 S802R 888 2222
<3-J§§<>
n
(N~
N
N
AN nuno\nhoia
AN
WINNNN
e
NNNO
NI NN
NN NN O NN
CDgngUfl*d
N
& &
¢ANNNNNNNNN
NNN
N 88

2s:
024202
017040
024202

3s:

SCOPE
MOV
JSR

CKSWR
MoV

CLR
MoV
MOV
MOV
MoV

4%:

BADA

#BIT14, aCSR
8s
a(SR,

PC,

AN R AR AN

;:(TI) BIT STILL SET?
;;BRANCH IF CLEARED
;:STATUS OF CSR
;:BITH14 FAIL TO RESET

BADA

. TRY AGAIN

CNTLC

AT AR AN AR AR AN RN N AR

#10. ,STIMES
PC,
CNTLC

#300,
CONST
8CSR
#7777, BRG4

#8173+8170,8CSR
EXPCT
8RG4,

R4
73
EXPCT

8IC
MOV

#3110,
aRG4,
§§PCT.

(SR
READA
READA

CONST,

DFC
BNE

AR NN NN AT R AR NN

NAY

FIND TIME CONSTANT FOR 0.SMSEC

DEC
BEQ

(M
BNE
MOV

024054

alsSR,

SEQ 0026

;218 (T1) BIT SET IN CSR ?
;;BRANCH IF BITH14 SET
; sDECREMENT COUNTER
; ;BRANCH IF NOT ZERO
;s CONTENT OF CSR
;:BIT #1464 DIDN'T SET

AR AR AR AR AN AR AR AR AN AR RN ARA AR

DEC

017036
024056
024056

IN PROPER ORDER

;s CHECK NEXT DECREMENT
. sBRANCH IF NOT ZERO YET
;sEXPECTED VALUE IN GOOD
s sACTUAL VALUE N BAD
;:IS 11 ORIGINAL COUNT?
; ;BRANCH [F YES
:;STATUS OF CSR
JIVALUE DIDN'T MATCH WITH EXPCT

RESET

017154

P4|

GOOD
BAD
BAD

040000

KOUNT

n7776,
NUMBR,
GOOD,

NOP
NOP
B8IT

016106

TEST TIMEINTERVAL COUNTER DECREMENTS

024050

e
NS

PAGE 1-18

7$:

PO 2 O 00NN NN NN

\AAAAAgmmmmwwmmmw
Or2o
ONN
I N

004670

07:40

R3
31

AR RN

ANANRANNRINRRN RN

RN RN

;:D0 10. ITERATIONS
2:1S IT CONTROL C?
;:ASSUME TIME CONSTANT
:;CLEAR CSR
:;TIME INTERVAL INTO REG
;IREAD TIME INTERVALSETTING HOLD BIT
;JREAD TIME INTERVAL

::TRY SO MANY TIME

; :DECREMENT COUNTER

J:EXIT IF ZEROQ
; :DECREMENT READ INTVAL BY ONE
;RESET HOLD BIT
2;ACTUAL TIME INTERVAL
2218 IT EQUAL TO EXPECTED

2 TRY AGAIN

:2GET CONSTANT

;;DECIDES TIME CONST
;:DECREMENT TILL ZERO

MAIN,
MACY1T 30A(1052)
13-MAR-80
13-MAR-80 07:39
CIKWLA P11

584
585
586
587

07:40
13

005052

017737
013737

017012
024056

024056
024060

005066
005074
005076

163737

024202

024056

024054
005006
024056

000002

005060

024060
024054
005006
024060
024054
005006

104407

MOV
MOV
SUB
BNE
INC

68:
78:

aRG4, READA
READA, READB
EXPCT. READA
Ss
CONST

mP
M
BGE

MOV
DEC
JWP
MOV
ASR
JMP

28
READA,
63

READB, EXPCT
CONST
23
READB, EXPCT
CONST
28

JSR

PC.

CNTLC

5$:

024202

PAGE 1-19
FIND TIME CONSTANT FOR 0.SMSEC

RESET
NOP
NOP

016106

CKSWR

SEQ 0027

::VALUE READ
*: STORE IN OTHER LOCATION
2170 BE USED LATER
::TIME INTERVAL hAS CHANGED?
*IBRANCH IF YES
I INCREMENT ASSUMED CONST VALUE
TITRY NEXT
*:DIFF GREATER THAN 2?
:JYES BRANCH

*ICURRENT VALUE IN EXPECT
1270 GET CORRECT CONST
1160 BACK
*:EXPCT = READB
*:DIVIDE BY 2

;THIS ROUTINE WRITES TIMEINTERVAL VALUES IN DEV RGé4
:AND READS THE VALUE IN RG4 AND THEN COMPARES WITH EXPECTED VALUE

000012
000340
016106

wad \ S} end ek

3737
3727
003743

005320
005324
005326
005332
005334
005336

001172
177776

TST4:
TIME1:

18:
2%:

005332
005354

NION
—2

OO PN

630

CHECK TIMEINTERVAL WRITES AND READS CORRECTLY

:;ttttittittttt.tt*tttttttttttttititt*tttttttt*ti*ttiilt.fit'*t*tt

RNonoRISE

i
)
D e
i
e
e

[o Yo ¥

SXTEST 4

RRLBBIRIR

2O OWM NN BN
o

Fo Vs No Lo Yo Yo
PPN

NOAN

;;tt*tttttttttttttttt*tttttt*tittttttttttttttttitttttt*tttt'it'tt

016632

001124
001124

024214

016626
016612
001126
001124
024214
024214
000001

016546

001122

016106
005356

SCOPE

MOV

#10. ,STIMES

MOV
gzgw

#PR7,
PC,

MOV
TM

#TIMTAB,RO
#TIMEND .RO

CLR

aCSR

BEQ

MOV
MOV
BIS
MOV
BIC
MOV
SUB

(RO)+, GOOD
GOOD,”
@RG4
#BITS. aCSR
3RG4,
BAD
#40000, GOOD
GOOD, ~ GOODI
8AD,
GOOD1

MOV

3CSR,

e
BLE

Good1,
2

ERROR+16

48:

PSW
CNTLC

‘c’i?m

PC.

JMP

TIMEND+2

TIMIAB: 47777
46004
40030

BADA
CNTLC

::D0 10. ITERATIONS

23
131S IT CONTROL C

;;POINTER TO THE TABLE
$2IS IT END OF TABLE?
JSEXIT

*:CLEAR CSR

*:VALUE TO BE WRITTEN IN RG4
*2IN DEV RG4
*“SET BIT TO READ TIME INTERVAL
*:ACTUAL READ VALUE
S:CLEAR TIME INTERVAL ENABLE BIT
*:KEEP GOOD FOR PRINT OUT
*IARE THEY EQUAL?
131S DIFFERENCE GREATER THAN 1
**BRANCH IF NOT

*:GET STATUS OF CSR

::ERROR:SOFT ERROR TIME

INTERVAL

S2SET DIDN'T MATCH WITH ACTUAL
*21IS IT CONTROL C?

;16O TO NEXT ROUTINE

CMAIN,

MACYT1

636
637
638
639
646G
641
&%

005340
005342
005344
005346
005350
005352
005354

“IxKWLA. P11

30A(1052)

13-MAR-80

13-MAR-80 C7:39

07:?2

046754
0460004
062003
047502
042000
043254
000000

PAGE 1-20

CHECK TIMEINTERVAL WRITES AND READS CORRECTLY

“EC 0028

46754
40004
42003
47502
42000
63254
TIMEND: 00000

2267

$THIS ROUTINE CHECKS IF INTERRUPT OCCURS AT GIVEN VECTOR AND BR LEVEL

648

AR R

(3)

J*TEST 5

(3)

(2)
(1)

005356
005360

000004
012737

000001

649
650
651
652
653
654
655
656

005366
005374
005402
005410
005416
005424
005430
005634

658
228

005450
005456

012737
004737

000002
015726

%12

005462

005737

024212

663
664
665
666
66(6)5

005466
005470
005474
005476
005500

001005
005337
100345
104034
000417

669
670
671

005502
005504
005506

000005
000240
000240

657

672
673

674
675

005442

005510
005512

012737
012737
012737
162737
013737
005037
005077
012777

012777

000240
013737

005520
0055%2

013737
023737

g;g

005536

104035

679
680

005540

676

0055

001401

000340
000005
000007
000040
024106
024212
016426
000040

040077

001172

024106
024226
024110
024106
177776
016420

016420

Moy
CHKINT: MOV
MOV
1$:
SUB
MOV
CLR
CLR
MOV

#1,STIMES

001124

001126
001126

;DO 1

ITERATION

aCSR

o
;s INTERRUPT FLAG
2sSET LEVEL
. ;LOWER PRIORITY
ce
;+CLEAR INTERRUPT FLAG
;sCLEAR (SR
s cENABLE INTERRUPT

MoV
JSR

N,
PC.

TIMES
INTRTN

;.2 SECOND INTERVAL
;sWAIT FOR INTERRUPT

TST

FLAG.2

DPRI
INTREG
LEVEL
DPR]
PSW

#40077 ,aRG4

;:TIME INTERVAL VALUE

::DID INTERRUPT OCCUR?

BNE
2%
DEC
LEVEL
BPL
1%
ERROR+34
BR
3
2%:

024110
001124

#340,
s,
N7,
#40,
DPRI,
FLAG.2
aCSR
#ITS,

MoV

02411C

024102

e e

SCOPE
MoV

016030

AERREARANNA AR RRARR R R RS

TEST INTERRUPT OCCURS AT GIVEN VECTOR AND 3R LEVEL

ISTS:

AR AR A AR AR AR AR

;sYES:BR
‘.
i.
::GOT NO INTERRUPT WITH BPU AT LEVEL O
JoEXIT

RESEY
NOP
NOP

NOP
MOV

BRLY,

BEQ

MOV
P

ERROR+35

LEVEL,
GOOD,

GOOD

BAD
BAD

; ;EXPECTED BRLY

;ACTUAL LEVEL
.e

;;BRANCH ]F EQUAL

;. INTERRUPTED AT WRONG LEVEL

3s:

682
2%2

ITHIS ROUTINE IS TO INTERRUPT AT PARTICULAR TIME INTERVAL

685
3

;;nttttttttttttat'ttttttt'tttttttttttttttttttttfitttttatn-ttutttt;*TEST 6
TEST
TIME INTERVAL INTERRUPT

AR AR R R AR AR

AN N AR AR AR AR

AR AR

AR ARSI

AAE AN

MACY11 30A(1052) ‘%—MR-BO
MAEN,
13-MAR-80 07
TIKWLA, P

(2)

(1)

07:4(6)

TEST

005540
005542
905550
005556
005562
005564

012737
013737

000012
024106

001172
177776

MOV
TIMINT: MOV

012737

000005

024226

005572

012700

005766

022700
001455
005037
005077
012777
012037
013777
012737
004737
005737
001424
005037
042737
013737
163737

006002

1$:

024212
016246
000050
001124
001124
000005
015726
024212

28:

000004

?oczg;

016106

024212
040000
001124

024120

001122

000725
017737

016132

001122

104001

104027

000720

042777
005037
005077

040000
024226
016106

004737
104407
000137
047777
040700
046003
040200
045065
040100

016106

004737

016324

000000

000001

016124

;:D0 10. ITERATIONS
;:GET PRIORITY

MOV

»S,

INTREG

MoV

#11MTAT RO

2:POINTER TO THE TABLE

0
8EQ
CLR
CLR
MOV
MOV
MOV
MOV
JSR
TST
BEQ
CLR
BIC
MOV
SUB

#TIMENT,RO
6
FLAG.2
aCSR
MBITS+BIT3,aCSR
(RO)+, GOOD
GOOD,
aRG4
5,
TIMES
PC,
INTRTN
FLAG.2
5%
FLAG. 2
#40000, GOOD
GOOD.
GOOD1
8AD,
GOOD1

;:1S IT END OF TABLE
JIEXIT
:;CLEAR FLAG
;:CLEAR CSR
:: INTERRUPT ENABLE?
;:VALUE TO BE INTERRUPTED AT
= IN REG4
::WAIT FOR APPRO 5 SEC
2:WAIT FOR INTERRUPT
;:DID INTERRUPT OCCURED?
;:BRANCH IF NOT
; :CLEAR INTERRUPT FLAG
;:CLEAR TIME INTERVAL ENABLE BIT
2:KEEP GOOD TO PRINT ERKOR MSG
;:TIME LEFT IN RG4

ERROR+27

BIC
CLR
CLR

JSR
CKSWR
JMP
TIMTAY: 47777
40700
46003
40200
45065
40100

006004

SEG 0029

CNTLC

6$:

INTERRUPT

PC.

cmP
BLE
MOV
ERROR+1
BR
MOV

5$:

INTERVAL

#10. ,STIMES
DPRI.
PSW

éigun

016234
01€030

001126

TIME

SCOPE

016240

023727
003732
013737

024214

TST6:

)

001124
024214
024214

PAGE 1-27

TIMENT: 00000
JSR

::IS IT CONTROL C?
:;fg¥énzbé$ FOR TIMINTERVAL

GooD1,
18
ACSR,

BADA

..IS DIFF GREATER THAN ONE?
GET NEXT VALUE
..READ STATUS OF CSR

1%
aCSR,

BADA

;:GET NEXT VALUE
;:GET STATUS OF CSR

;:TIME INTERVAL INTERRUPT DIDN'T OCCUR

;:GET NEXT VALUE

#40000, aRG4
INTREG
aCSR

:;CLEAR INTRPT FLAG
;:CLEAR THE FLAG
;;CLEAR CSR
B

TIMEN1+2

sEXIT

PC,

CNTLC

GE TRDY

;;INITIALIZE READY BIT

Ittttttfittttttt&tttttitt'tttttttttttttlttltttt!fittttt'ittttfittt

-TEST 7

006010
006012
006020

000004

012737
0064737

TEST HOLD BIT SET/RESET IN TIME

fitittttt'tttttttttt't'tttttttttttttttttfitt'tttttt*tttttttfittttt

000012
016106

001172

t817:

SCOPE

MOV
JSR

#10.,STIMES
PC,
CNTLC

;:D0 10. ITERATIONS

MACY11 30A(1052)
MAIN,
13-MAR-80
CZKWLA L1
13-MAR-80 07:39

736

737
738

104407

012777

739

740
7461
742
743
744
745

746
747
748

104407

07:49

000001
016226
000001

016014

016006

001122

000001
015770
016226
000001

015774

015750

001122

TEST HOLD BIT

016026

SET/RESET

SEQ 0030

aCSR
WAIT1
aCSR

.sSET HOLD BIT IN (SR
ccWAIT FOR HOLD BIT TO RESET
;s 1S HOLD BIT RESET?

MOV

8(SR,

BADA

::STATUS OF (SR

MOV
CLR
JSR

#MIT0,
a(SR
PC,

aACSR

csSET HOLD BIT AGAIN
;cFORCE TO RESET
JIWAIT

MOV

aCSR,

BADA

817
8EQ

;sYES:BR

<sHOLD BIT FAIL TO RESET

WAITY
aCSR

#8170,
2%

ERROR+32
&gm
PC,

2%:

IN TIME

#3170,
PC,
#1170,

ERROR+32

18:

{KSWR
MoV
JSR
817

BEQ

015756

016106

PAGE 1-22

;.1S HOLD BIT RESET?
;. YES:BR

. :STATUS OF

(SR

;sHOLD BIT FAIL TO RESET WHEN FORCED TO RESET.
i

CNTLC

JREAD SECOND HERE
.

SRR

A4S

S*TEST 10
SRR

000004
012737
004737
017701

027701
001775

027701
001772

000001
016404
015724
015720

001172

TST10:

SCOPE

TEST SECOND VALUE IS CHANGING

AN A

MOV

sTHIS ROUTINE

AR AR AR AN AR RN

A RRNRRRARR AN R A RN NRN AR

::001 ITERATION

GET2
R1
RI

aRG4,
1$

B8EC

2%:

.
8RG4,
ARG4,
1%

(¥, o

015712

A AN

gg.snnes

JSR
MOV
Wy o
BEQ

18:

e ittt
2222822222223

2 2SET NEW YEAR,MONTH,DAY ,HOUR,MIN
s ;READ SECOND
;:DOES SECOND VALUE CHANGES?
s :NO:BR

::CHECK AGAIN
. :G0 BACK

CHECK HOLD BIT

IN (SR

AR AN AR R A AN AR

T*TEST 11
N

000012
015666
047777

015654
000001

001172
015666
015652

015640

015640
000001

TST11:

AR R

SCOPE
MOV

HOLTST: CLR
1$:

R AT

AN R AR AAN AN RN AN AAR IR RN ARAAN A RN

TEST HOLD BIT IN CSR HOLDS TIME WHILE SET
RN

E R

#10. ,STIMES

aCSR

AN AN

;.D0 10.

ARSI A A AR

A AR CNANAIN AN NN

ITERATIONS

::CLEAR CSR

MOV
MOV
MOV
BIT
8EQ

#7777, aRG4
#MIT0, ACSR
aRG4,
R&G
#8110, aCSR
2s

S:SET TIME INTERVAL
Z2SET HOLD BIT
S:READ SECOND VALUE
221S HOLD BIT SET?
Z:BRANCH IF HOLD BIT IS RESET

BEQ
BIT

18
#BIT0,

*INO:BR
;.18 HOLD BT RESET?

TMP

015622

A R R AR

AT AR AR

BRG4,

aCSR

S:DID SECOND VALUE CHANGLD?

MA(YT]1 30A(1052)
13-MAR-80
TIKWLA PN
13-mMAR-B80 07:39
MALN,

784
785

786
787
788
789
790
791

792
793
1)
(1)
1)

006240
006242
006246
006250
006254
006260
006264
006270
006276

006304
306

794
795
796

001405
004737
104031

010437
013737
023727
002403

001124
016550
001124

001126
000074

000074
001124

001124
001126

64%:

015522

3%:

162737

798

000137
012777
017700
027700
001413
010037
017737
017737

006774
000011
015524
015520

000137
032777

006774
040000

104001

006474

SRS NIV RKRGSR

006500

g388s55e30ess

= OO

S S SRR 2R R R RN

N0 = O

S SRR X%

809

OO0
O U
o e BN

2%:

001124
015506

015472

015454

015446
000001
001126
015434
001124

015440
001124
001126
000074

000074
001124

001124
001126

015372

001122

006774
015356
016152

5%:
6%:

65%:

GETTIM

JMP
JSR
ADD

108
PC,

GETTIM

MOV
MOV

R4,
GOOD
SECOND, BAD

001126
015346
001124

001124
001126
000074

000074
001124

001124
001126

015304

001122

006774
000001
043720

015266
016224

cMP
BLT
SuB

66%:

8%:

GOOD,
648

n7k,
GOOD,

3
BEQ
ERROR+1
JMP
MOV
MOV
P
BEQ
MOV
MOV
MOV

ERROR+1
JMP
BIT
BEQ
CLR
MOV
MOV
MOV
cMP
B8LY

a(SR,

aCSR

JMP
CLR
JSR
MOV
MOV
e
8LT
SuB
Mp
BEQ
MOV
ERROR+1
JMP
MOV
MoV

BADA

#74

a(SR,

GOOD
BAD

GOOD

BAD

BADA

108

aCSR
PC,
BAD,
arRG4L,

DELAY
GOOD
BAD

' UY
GOOD,

GOOD
BAD

a(SR,

BADA

GO0D,
663
8s

108

#8170,

;sREAD CURRENT VALUE OF SECOND
s EXPECTED VALUE OF SECOND AFTER
;JHOLD BIT RESET
;EXPECTED VALUE IN GOOD
s sACTUAL VALUE

s cEXPECTED SECOND CAN'T BE MORE THAN 59
;JEXPECTED=ACTUAL?
;:YES THEY ARE EQUAL ,BRANCH
;sREAD VALUE OF SECOND NOT MATCH
J:WITH EXPECTED VALUE.
;. JUMP
2:SET HOLD BIT AGAIN
;;READ TIME INTERVAL VALUE
;:ARE THEY EQUAL?

GOOD,
659

MOV

2 YES:BR
. sREAD ALL PRESENT VALUE
;:EQT?R:HOLD BIT FAIL TO RESET

GOOD
BAD

aCSR

600D,
’$

SEQ 0031

;;sspggrED VALUE MORE

#8170,

BAD,
aRG4,

TIME WHILE SET

#74

108
#IT14, ICSR
48

74,

BEQ

108
#BITO+BIT3,aCSR
aRG4,
RO
aRG4,
RO
5%
RO,
GOOD
aRG4,
BAD

S8
(e

ERROR+1

7%:

IN (SR HOLDS

PC,

ERROR+31

006774
016522
000002

023737
001403

TEST HOLD BIT

BEQ
JSR

016522

104001

000137
004737
062704

07:491 PAGE 1-23

#74

a(SR

#43720. TCNT

THAN OR EQUALS

60.°

2:YES:BR

JEXPECTED VALUE
;;READ VALUE OF TIME INIERVAL
;:READ STATUS OF (SR
::g§?$CTED VALUE NOT MATCH WITH ACTUAL VALUE

;:1S BIT14 SET IN CSR

. :NO:BR

;:CLR CSR
2:SET HOLD BIT
2;GET PREVIOUS SECOND VALUE
; sREAD CURRENT SECOND
;:sgPngED VALUE MORE THAN OR EQUALS

60.?

;sEXPECTED SECOND CAN'T BE MORE THAN 59
;JEXPECTED=ACTUAL?
. YES:BR
:;READ CURRENT STATUS OF (SR
;;PREVIOUS SECOND NOT MATCH WITH
;2CURRENT SECOND WHILE HOLD BIT
JJWAS SET
sEXIT

;:FORCE HOLD BIT TO RESFTY
;:WAIT FOR 10MSEC
;;READ PREVIOUS SEC
;s CURRENT SECOND
::EsPngED VALUE MORE THAN OR EQUALS

60.?

;EXPECTED SECOND CAN'T B8E MORE THAN 59
. cEXPECTED=ACTUAL?
;:BR IF EQUAL
s :READ CURRENT STATUS OF (SR
::2§I¥AL VALUE NOT MATCH WITH EXPECTED.
;:SET HOLD BIT NOW
;oTIME INTERVAL VALUE tOR 1 SECOND

LMAIN,
MACYTT 30A(1052)
135HAR-80
“IxW A P11
13-MAR~80 07:3

831

832

006602

004737

016204

JSR

016152

JSR

006606

005077

015250

8%
835

006616
006626

013737
005237

001126
001124

838

006636

017737

01523

833

836
837

006612

006630

1,
(1)
(1)

0066464
006646
006654

840
841

006664
006672

839

0064737

023727

002403
162737
023737

001124

015172

001122

043720

016224

001126

001124

013737

(1)
(1)
(1)

006744
006746
006754

002403
162737
023737

851
852

006764
006772

017737
1046001

847
848
849

850

ggz

Q06726
006732
006736

006762
006774

017737
005237
023727

001404

004737

BAD

001124
001126

012737

006716

600D

000074
001124

006704

846

BAD,
GOOD

67%
#74,
GOOD,

B44

004737

JIWAIT FOR T1OMSEC

MoV
INC

8LT
SUB
o, o

006774

006712

DELAY

#RG4,

000137

845

PC.

MOV

006674

005077

;:WAIT FOR A SECOND

001126

862

006700

WAIT?

aCSR

000074

001406

843

015156

016204

015140
001124
001124

PC.

{LR

001124

006662

017737
104001

07:1:91 PAGE 1-24
TEST HOLD BIT IN (SR HOLDS TIME WHILE SET

67%:

9%:

015072

001122

016106

68%:

10%:

855
856

JmP

. THAN PREVIOUS VALUE
:;READ SECOND
;:NO:BR

J:EXPECTED SECOND CAN'T BE MORE
s cEXPECTED=ACTUAL?

JEXIT

PC,

WAIT2

aRG4,
GO0D
GOOD,

8AD

8.7
SUB
o, o

68%
n74,
GOOD,

108

MOV
aCSR,
ERROR+1

;:CLEAR BIT14 IN CSR

;:TIME INTERVAL VALUE FOR A SEC
JJWAIT FOR A SECOND

GOOD

;JPREVIOUS SECOND

n74

2 ;CURRENT SECOND
s :EXPECTED VALUE AFTER ONE SECOND
J:EXPECTED VALUE MORE THAN OR EQUALS

GOOD
BAD

;sNO:8R
. +EXPECTED SECOND CAN'T BE MORE THAN 59
s sEXPECTED-ACTUAL?

;sYES:BR

BADA

;;READ CSR
22

JSR

PC,

CNTLC

.SBTTL

CHECK DISPLAY ON THE CLOCK

857

""*t"t‘t.*'..t"’."fi""*'fifi""*flt.""i.’t"tifi*‘*."t'i‘.".'fifl.

(3)

;*TEST 12

(3)

(2)
(1)

000004
012737

858
859
860
861
862
863
(1)
864
865
866
87
868

007010
007014
007016
007022
007030
007036
0072042
007046
007050
007056
007060
007064

004737
104407
005037
012777
012777
004737
005737
001407
017737
104002
004737
Q00756

871
(1)
872
873
8724

007102
0072106
007112
007114
007122

004737
005737
001407
017737
104002

869
870

TEST DIGITS IN DISPLAY WORKS 0.K.

""t*."*‘"‘tfifi“’fi.’Q""Q"t"'fi*tIfil"*tfi.t‘*fi.fitfi"fiitfi'*.fi'fi'*fi'

007000
007002

0072066
Q07074

012777
013777

000001

001172

024152
100000
000401

015032
015026

016106

017000

024210
015006

001122

016324

100000
024152
017000

014766
014764

014742

001122

024210

IST12:

DISP:

SCOPE
MoV

#1,.8TIMES

JSR
PC,
CNTLC
CKSWR
CLR
DHOUR
DISPLY: MOV
#1715, aCSR
MOV
#4601,
QRGO
JSR
PC,
RDYBIT
TST
FLAG.1
BEQ
1%
MOV
aCSR,
BADA
ERROR+2
JSR
PC.
GETRDY
BR
DISPLY

1%:

MOV
MOV

JSR
TST
BEQ
MOV
ERROR+2

#MIT1S, aCSR
DHOUR, aRG?2

PC,
FLAG. 1
2%
a(SR,

THAN 59

. :STATUS OF CSR

#43720, TCNT
BAD,

60.”

;:YES:BR

10%

MoV

;;EXPECTED VALUE MORE THAN OR EQUALS

BADA

JSR

BEQ

. sREAD PREVIOUS SECOND
;s CURRENT VALUE SHOULD BE ONE

GOOD
BAD

aCSR

MOV

;:FORCE HOLD BIT TO CLEAR

n74

CLR

MOV
INC
o o

000074
001124
001126

MOV
aCSR,
ERROR+1

001126

000074
001124

BEQ

GOOD,

SEG 003/

RDYBIT

8ADA

;:D0 1

ITERATION

;2 INITIALIZE HOUR+MIN
;:SET TIME
;:SET MONTH+DAY

;CHECK FOR READY BIT SETY
;IS FLAG SET?
::BRANCH IF READY BIT IS SET
;:STATUS OF CSR
:;READY BIT DIDN'T SET
;.GET READY BIT SET

;2SET HOUR + MIN
;:SET HOURMIN

:CHECK FOR READY B]7T SET
;1S FLAG SET?
;;BRANCH IF READY BIT SE:
;:READ STATUS OF (SR
;;READY BIT NOT SEY

60.?

MATN,
MACYTT 30A(1052)
13-MAR-80
rIxe A, P11
13-MAR-80 07:39

875
876
877
g;g

007126
007130
007132
007140

004737
000727
012737
004737

880
881
882
883
884
885
886
887
888
889
890
891
gg%

007144
007150
007156
007160
007166
007174
007176
007202
007204
007206
007210
007212

005237
122737
002321
062737
022737
002312
0064737
000005
000240
000240
000240
000137

H 3
07:40 PAGE 1-25
112
TEST DIGITS IN DISPLAY WORKS 0.K.

016324
000001
016032

016104

024152
000073

024152

000377
013473

Q24152
024152

2%:

(07216

Q22

DHOUR
#73_DHOUR
DISPLY
#377.
DHOUR

J:WAIT FOR SECOND
;owWAIT FOR SOME TIME 10
::SEE DIGITS IN DISPLY
;. CHANGES
;- INCREMENT MINUTES
. s IS MINUTES=59
+ ;BRANCH IF NOT
> - INCREMENT DHOUR

DISPLY

. ;BRANCH

PC,

1S 1T 23HOUR-SOMIN

CNTLC

TABDRV

;

H
:
TABDRV:

007216

MRS S E
H.

ALl

;JxTEST 13
MR

914
915
(1)
616
917
(1)
(1)
(1)
918
919
920
921

CONT3
WAIT

;THIS IS TABLE DRIVEN ROUTINE,IT TESTS INVALID VALUE OF MONTH+DAY

g%;

903
904
905
06
907
908
909
910
911
g}%

2 GET READY BIT SET

#13473, DHOUR

JMP

907
(2)
(1)

GETRDY

PC.

DISP
rap
PC.

INC
CMP8
B8GE
ADD
e,o
BGE
JSR
RESET
NOP
NOP
NOP

016106

894
895
B96
B9?

898
899
900
901

JSR
BR
MOV
JSR

007216
007220

000004
012737

007226
007232
0072640
007262
007266
007252
0072564
007260
007264
007270

004737
013737
106407
012700
022700
003002
000137
005077
012037
012777

007276
007304
007310
007314
007316
007324
007330
007336
007340
007344
007346
007354

013777
004737
005737
001443
012737
004737
032777
001772
005737
001405
017737
104011

007356

000733

000012

016106
024106

003172

177776

007524
007556
007560
014576
001124
040000

1%:

22%:
014564
014560

077777
017206
100000

024052
014524

024210

001122

TST13:

2s:

001124
017000
024210

01.510

SCOPE
MOV

JSR
MOV
CKSWR
MOV
o,
BGT
JMP
CLR
MOV
MOV

ALt

idt

syl

Y2222

22322222221

TEST CHECKS FOR VALID/INVALID VALUES OF

dl )t

#10. STIMES
PC,

DPRI,

CNTLC

PSW

#TABLE1 RO
#TABENT ,RO

22%

TABEN1+2
aCSR
(RO)+,
GOOD

#MIT14,8CSR

MOV
GOOD,
SRGO
JSR
PC,
RDYBIT
TST
FLAG.1
BEQ
33
A77777 ,COUNTR
MOV
JSR
PC,
DMY
BIT
OB%ZUSJCSR
BEQ
TST
FLAG.1
BEQ
338
MOV
aCSR,
BADA
ERRDR+1?
BR
2%

;:D0 10.

YEAR

2222212223

28222)

ITERATIONS
;.1S IT CONTROL C?
;:SOFTWARE SWITCH SELECTED?
::POINTER TO THE TABLE1
;.18 IT END OF TABLE1
;:BRANCH IF NOT
JJEXIT ON END OF TABLE1
s CLEAR (SR
;;YEAR VALUE IN GOOD
22SET (SY) BIT IN CSR TO WRITE A
:sA YEAR VALUE
:;YEAR IN DEVICE REG
;CHECK FOR READY BIT SET
;1S FLAG SET?
;;BRANCH IF READY BIT [S SET
;:DELAY LOOP SETUP
;:DEAD MAN TIMER ROUTINE
::1S DE BIT SET
::TRY AGAIN

;. 1S ERROR OCCURED?
:;BRANCH IF NO ERROR
;:READ CURRENT STATUS OF (SR

;2(DE) BIT FAIL

;2 TRY NEXT VALUE

TO SET

IN (SR

13-MAR-80
MAIN,
MACY11 30A(1052)
CIKLA.F11
13-MAR-80 07:39

007360
007366
007374
007402
007410
007412

012777
017737
012737
025737
001716

007422

000711

007420

104001

012737

001124
001124

014444

001122

077777
017206
100000

024052

113

014402

33s:

3%:

014416

001122

000004
014364
001124

014366
001126
001126

014344

001122

TEST (HECKS FOR VALID/INVALID VALUES OF

MOV

mIT2,
aRGO,

SR
BAD

(0,o
8EQ
MoV
ERROR+1
B8R

BAD,

GOOD

MOV
MOV

MOV
JSR
8IT
BEQ
TST
8EQ
MOV

B8R
MoV
MOV
o
o,
BEQ
MOV

#0,

aCSR,

GOOD

BADA

VEAR

#77777,COUNTR
DMT

:+READ YEAR VALUE
ssACTUAL READ YEAR VALUE
s JEXPECTED VALUE

s BECAUSE INVALID YEAR VALUE

.:G0 GET ANOTHER VALUE
;sREAD (SR

;;DELAY LOOP SETUP

;;DEAD MAN TIMER ROUTINE

#B]IT15,3CSR

;1S DE BIT SET

~12

;s TRY AGAIN

43
aCSR,

BADA

2 :BRANCH IF NOT
;.GET CSR STATUS

#MIT2,
3RGO,
GOOD,

(SR
BAD
BAD

. ;READ YEAR
. ;ACTUAL READ VALUE
:JARE THEY EQUAL?

aCSR,

BADA

FLAG.!

ERROR+1
BR
23

SEQ 0034

;. YEAR VALUE DIDN'T MAT(CH WITH EXPECTED
;s TRY NEXT VALUE

PC,

ERROR+11

TABLE1:

SfOMN

PAGE 1-26

024210

SNONNNNWNNOON

007424
007424
007432
0076436
007444
007446
007452
007454
007462
007464
007466
007474
007502
007510
007512
007520
007522

017737

0146474
001126

000004
014472
000000
001126

NN
~ OO~NO SOV

93
924
925

07:4C_

;1S ERROR ?

;s (DE)BIT FAIL TO SET
;sGET NEXT VALUE

;:G0 GET MORE

;;READ STATUS OF CSR

;JREAD YEAR VALUE NOT MATCH WITH EXPECTED
;:G0 CHECK FOR END OF TABLE

17073
16455

16454
17076

L=]
~

bbbg
&NS\I

15474
17000
17477
17400
16430

17074

17077

20000

e R AR RN AR AR AN AR AN AN RO R

TRTEST 14
N

coRRRRAKAEN

gwwowh
N
NN NNO

—

(=}

588558
AONAND N

3333 SIS

17075
TABEN1: 00000

000010

016106
017000
024210

001172

TST14:
TABDRZ:

SCOPE
MOV
NOP
JSR
CKSWR
JSR

TST
BEQ

TEST

AR AR A RN AN S A N AR AR RN SRR

RAANAN IR RO

A NS

VALID & INVALID VALUES OF MONTH+DAY

AARARAANA AR RN ARARANARERAAPAARARAA
AN AN RN TN RAN NSNS NN

#10,.STIMES

;:D0 10 ITERATIONS

PC,

CNTLC

;215 1T CONTROL (?

PC,
FLAG.1

RDYBIT

;CHECK FOR READY BIT SET
;1S FLAG SET?

;;BRANCH [f READY BIT SET

MAIN,
MACY1T 30A(1052)
i3-MAR-8D
T IKWLA PN
13-MAR~-80 07:39

970
971
972
973
974
975
976
977
978
979
980

981

982
983
984
985
986
987

007612
007620

017737

0142644

004737
012700
022700
003002
000137
012037

016324
010042
010146

104002

005077

012777
013777
012737
004737
022777
001372
017737

988
989

010150
001124
014206
100000

001124

077777
017206
100200

014152
000001
016032
014132

07:6?‘ PAGE 1-27

001122

22$:

014200
014174
024052
014152

3%:

024144
016104

001126

014062

001122

001126

MOV

aCSR,

BADA

ISR
MOV
P
8GT
JMP
MOV
CLR
MOV
MOV
MOV
JSR
P

PC.

GETRDY

#TABLE
RO
2
#TABENZ .RO

223

TABEN2+2
(RO)+,
GOOD
aCSR

#IT15,aCSR
GOOD, ~ aRGO

#77777. CONTR
PC.

DMT

§21115481T7,3CSR

PC.

aRG4,

VALID & INVALID VALUES OF MONTH+DAY

aRG4,
”,

026144

014106
001124
001124

TEST

ERROR+2

28:

024210

104001

SEC
CONT3

WAIT

SEC

FLAG.1

5¢
RGO,
(RO)+,
GUOD,

aCSR,

BAD
GOOD
BAD

BADA

SEQ 0035

;s CURRENT (SR

ssREADY BIT FAJL

TO SET

;;GET READY BIT SET
;sPOINTER TO THE TABLE?
.:IS END OF TABEN?
. ;BRANCH [F NOT
JOEXIT
; sMONTH+DAY VALUE FROM TABLE?
. CLEAR (SR
c<SET BIT #15 IN CSR TO WRITE MONTH+DAY

> ;MONTH+DAY

[N DEV REGISTER

;o INITIALIZE COUNTER
JJWAIT LOOP

;:1S RDY & ERROR FLAG SET

; ;BRANCH BACK IF NOT
; ;READ SECOND
;WAIT FOR 1 SECOND
;;WAIT FOR COUPLE OF SECOND
;;READ SEC AGAIN TO SEE ANY CHANGE
;:BRANCH [F CLOCK IS STOPPED
::CLOCK WAS NOT SUPPOSED TO BE RUNNING
;:1S ERROR FLAG SET
; ;BRANCH IF NO ERROR
;;ACTUAL VALUE READ
JIEXPECTED VALUE
;;ARE THEY EQUAL?
;.YES, GO GET MORE VALUE
;2GET STATUS OF CSR
. 2READ MONTH+DAY NOT MATCH

MAIN,

MACYST

(7KWl A, P11
100G

010014

01%037

001124

010030

017737

1003
1004

010020
010026

1006
1007
1008

1009

13-MAR-80 07:39
00071

1005

13-MAR-80

010004

1001

100%

30A1052)

010036
010040
010042

010044

017737

023737
001701

104001
000674
006436

000000

07:4?‘ PAGE 2

014052

001126

001124

001126

014026

001122

SS$:

TEST

B8R

VALID & INVALID VALUES OF MONTH+DAY
2%

MOV

RGO,

BAD

P
BEQ

GOOD,
2%

BAD

MOV

ERROR+1
BR
TABLE2: 6436
0000

(RO)+,

a(SR,
2%

GOOD

BADA

:.G0 GET NEXT VA_UE

. sACTUAL VALUE READ

s;EXPECTED VALUE IN GOOD
JsARE THEY EQUAL
;;BRANCH IF YES

;.GET STATUS OF (SR

:EXPCT MONTH+DAY NOT MAT(CH

SEQ 0036

MACY11 30A(1052)
13-MAR-80
13-MAR-80 07:39
CZKWLA. P11
MAIN,

TEST

VALID £ INVALID VALUES OF MONTH+DAY

w2V e To A NTe SV, ¥ XUV
W

=
bl
el
)

6024
6024
TABEN2: 0000

—p

;THIS ROUTINE CHECKS VALID AND INVALID HOUR+MIN.

:IF HOUR+MIN ARE INVALID IT WRITES ANOTHER VALUE OF HOUR+MIN UNTIL
> CORRECT VALUE OF HOUR+MINUTE IS WRITTEN. ONCE CORRECT VALUE ]S
;
WRITTEN YOU CAN'T WRITE ANOTHER VALUE OF HOUR+MIN WITHOUT WRITING
; VALID VALUE IN MONTH AND DAY REGISTER

017000
024210
001122

016324

010456
010516
100000

000000

017000

PC,

CNTLC

PC,

ROYBIT

;CHECK FOR READY BIT SET

8EQ

11$

013636
013634

FLAG.1

MOV

a(SR,

BADA

JSR

PC,

GETRDY

ERROR+2

013666

JSR
CKSWR
JSR
TST

—

AV, 19,1V
1V, ]
b

o= b
w

Grur Gover QoS
b ndpoar Qe Gunr G
—

PSINTRRRDZ
e3 HO
LS

e Grury

OO lelole’olelelolalelolels]
el el mod
) el el el
NN PO

Pror o

OO [elelelelalelelelss
ol

o
N

OO NON—
NNy
—

AN 2OV

o
o
e
o
o
st o
e
d
e
e
i
b ol e

TABDR3:

016106

o —

= O D00~
WA

5437

5400
6040
6000

D
D
d
b
b
b ok
D
e
d
e
s o

3000
3440
3400
4040
4000
4437
4400
5040
5000

jolololele]

R SRR IR AR SZRIRARRRERRRRER wuwgw

—

LV AN

h ek ok
d
b
e
i
b
d

T14

PAGE 3

000020
000000

jeleolole] joleolels] jelelelele]
NN )= 222000

07:4?

MOV
P

B8GT

MOV

#TABLE3
RO
#TABEN3
RO

MIT15 aCSR

MOV

#000000,3RG?2

JSR

PC,

RDYBIT

;1S FLAG SET?

;;BRANCH IF RDYBIT SET
;;GET STATUS OF CSR

;;RDYBIT FAIL TO SET

:;GET READY BIT SET
;;POINTER TO THE TABLE
;:1S 1T END OF TABLE
;;BRANCH IF NOT END OF TABLE
;- SET HOUR+MIN

;:LAST VALUE OF HOUR+MIN BEFORE

EXIT

;CHECK FOR READY BIT SET

SEQ 0037

MAIN,

MACYTT 30A(1052)

CZKWLA P11
(1)

010236

13-MAR-80 07:39
005737

1066
1067

010242
010244

001406
017737

1069

010254

004737

1068

1070
1071
1072
1073
1076

1075

1076
1077
1078
1079

1080
1081
1082
1083
1084

1085
1086
1087
1088
1089

1090
1091
1092
1093
1094
(1)
1095

1096
1097

1098
1099
} }8(1)

010252

104002

010260
010264
010270
010274
010302

000137
012037
005077
012777
013777

010316
010322
010330
010332

004737
022777
001372
005737

010310

010336
010340
010346
010352
010360

010362
010370
010372
010374
010400

010406
010414

010416
010424
010432
010436
010442

010444
010452

13-MAR-BO

012737

001416
017737
012037
023737
001713

017737
104001
000706
012037
017737

023737
001016
012777
012777
004737
005737

001662

017737
104001

07:40

T14

PAGE 3-1

024210
013612

TST

001122

016324

010520
001124
013566
100000
001126

077777
017206
100200

12%:
2%:

013560
013556

024052

013532

22%:

013522
001124
001124

001126

013474

001122

013462

001126

100000
0020064
017000
024210

013436
013432

013412

001122

001124

3s:

001126

FLAG.1

;1S FLAG SET?
BADA

s ;BRANCH IF RDYBIT IS SET
:;GET STATUS OF (SR

JSR

2C,

GETRDY

::GET READY BIT SET

JMP
MOV
CLR
MOV
MOV

TABEN3+2
(RO)+,
GOOD
aCSR
#BI1T15,aCSR
GOOD
aRG2

;. JUMP TO END THIS ROUTINE
: JHOUR+MIN IN GOOD
;;CLEAR (SR
;;SET BIT IN CSR_TO WRITE HOUR+MIN
: cHOUR+MIN IN RG2

JSR
cMP
BNE
TST

PC,
DMT
#BI1T15+B177,3CSR
22%
FLAG.1

;:GO TO DEAD MAN TIMER
;:1S (DE) AND (RDY) BIT SET?
s sBRANCH BACK IF NOT
;;1S ERROR FLAG SET

MOV

#77777. COUNTR

33
dRG2,
(RO)+,
GOOD,
1%
a(CSR,

MOV
ERROR+1
BR
1%
MOV
(RO)+,
MOV
dRG2,

cMP
BNE

MOV
MOV
JSR
TST
BEQ

48:

VALID & INVALID VALUES OF MONTH+DAY
12%
a(SR,

BEQ
MOV
MOV
P
BEQ

001126

BEQ
MOV

ERROR+2

024210

001124

TEST

BAD
GOOD
BAD
BADA

GOOD
BAD

;sREADY BIT NOT SET

;s SETUP COUNTER

;;BRANCH IF NO ERROR
;;READ HOUR+MIN
;EXPECTED VALUE IN GOOD
;cARE THEY EQUAL?
2.GET NEXT VALUE

;:GET STATUS OF CSR
s sREAD HOUR+MIN NOT MAT(CH
;s TRY NEXT
;;EXPECTED VALUE IN GOOD
s ;ACTUAL VALUE READ IN BAD

GOOD,
BAD
43
#B1T15,3CSR
#2004,
@RGO
PC,
RDYBIT
FLAG.1

;;ARE THEY EQUAL?
s ;BRANCH IF NO
;.70 WRITE MONTH+DAY
s cMONTH+DAY VALUE IN RGO
;CHECK FOR READY BIT SET
;1S _FLAG SET?

;;GET NEXT VALUE

MOV
aCSR,
ERROR+1

BADA

;;GET STATUS OF CSR
;;EXPECTED NOT MATCH WITH ACTUAL

010454
010456
010460

000655
014073
000073

1102
ng

010462
010464

014400
000000

14400
00000

; sHOUR=25 ,MIN=0
;;EXPECTED HOUR=0,MIN=0

1105

010466

000074

00074

; s HOUR=0 ,MIN=60

1108

010472

002077

02077

; ;HOUR=4 ,MIN=63

1111

010476

006024

06024

; ;HOUR=12 ,MIN=20

1114

010502

006436

06436

; sHOUR=13 _MIN=30

1117
1”3

010506
010510

000020
000020

00020
00020

b
=0,MIN=16
: ;EXPECTED HOUR=0,MIN=16

}1:89

H?g
]' } }%
;‘”g

010470

010474

010500
010504

000000

002000
006024

TABLE3:

BR
14073
00073

00000

02000
06024

::G0 CHECK FOR END OF TABLE
‘e
=24 ,MIN=59
:JEXPECTED HOUR=00,MIN=59

; ;EXPECTED HOUR=0,MIN=0

; cEXPECTED HOUR=4,MIN=0
; ;EXPECTED HOUR=12 ,MIN=20
; ;EXPECTED HOURMIN (13,30)

SEQ 0038

MAIN.
MACY1T 30A(1052)
13;HAR-80
CIKWLA.P1T
13-MAR-80 07:3
1120
1121

;}gg

010512
010514

010516

006007
006007

000000

VALID & INVALID VALUES OF MONTH+DAY
; sHOUR=12 ,MIN=7
::EXPECTED HOUR=12,MIN=7

TABEN3: 00000
:THIS ROUTINE WRITES VALUES

$HOUR+MIN REG.WRITE IN SECOND REGISTER
2: AR AR AR

(%)

TRTEST 15

(3)

e AR

010520
010522
010530
010534

000004
012737
004737
104407

000012
016106

001172

AR AR A AR AR R R R RN ARAR AR

AR AAA R AR

T§115:

SCOPE
MOV
RANDOM: JSR
CKSWR

TEST

RANDOMLY WRITE VALUE IN DEVICE REGISTERS

#10.,STIMES
PC,
CNTLC

010536

005077

013320

100000

013312

MOV

#81715,3CSR

1135

010550

012777

005005

013310

MOV

#5005,

010542

1136
1137
1138

010556
010562
010570

1140

010602

1141
1142
1143
1144
1145

1146
1147
1148
(1)
1149

010576

010610
010612
010614

010620
010622

010630
010632

010640
010644
010650

012777

004737
017737
012737
004737
027737

001007
104012
005737

001004
017737

104025
012777

004737
005737
001404

077000
013302
000002
016032
013262

024144

013234

001122

004010

013230

1150
1151
1152
1153
1154
(1)
1155
1156
1157
1158
1159
1160

010652
010660
010662
010670
010676
010702
010706
010714
010722
010726
01073%
010736

017737
104002
012777
012777
004737
005737
017737
012737
004737
027737
001401
104012

013204

001122

100000
006004
017000
024210
013156
000002
016032
013136

013172
013166

115§

010746

012777

006004

1161

1168
(1)
1164
1165
1166
1167
1168

010740

010754
010760
010764
010772
011000
011004
011012

012777

004737
005737
017737
012737
004737
027737
001001

100000

017000
024210
013100
000002
016032
013060

JSR
MOV
MOV
JSR
P

024144
016104

024210

017000
024210

CLR

11$:

ERROR+25
MOV
#6010,

2%:

024144

013112
024144
016104

024144

PC,
aRG4,
#2.
PC.
aRG4,

18:

024144
016104

013114

aCSR

BNE
1$
ERROR+12
TST
FLAG.1

3$:

BNE
MOV

RRAR A RRRRAN NN R AARNARNNNAARARNR

AR AR AR AN AR AR R AAA AR AR ANARRARNRARNAANANRARARRARANARER

1132

1139

IN DEV REGISTER RANDOMLY

STHAT IS INSTEAD OF WRITING IN MONTH+DAY REGISTER
SWRITE IN HOUR+MIN REGISTER & INSTEAD OF WRITING IN

1 129

}}gz

6007
6007

1124
1125
1126
1127
1128

(2)
(1)
1130
1131

07:{;0 PAGE 3-2
14
TEST

118
3CSR,

@RG2
RDYBIT
SEC
CONT3

WAIT
SEC

;:D0 10.

ITERATIONS
; :CLEAR CSR

;;5557315A¢15 IN CSR TO WRITE
i:

: THOUR+MIN REGISTER
::WAIT FOR READY BIT SET
: SREAD PRESENT SECOND VALUE
::WAIT FOR A SECOND

$:WAIT FOR 2 SECOND
:*ARE THEY EQUAL?

::CLOCK WAS SUPPOSE TO BE RUNNING
::IS ERROR FLAG SET?
BADA

aRG4

;:RDY BIT WAS NOT SUPPOSE TO BE SET
:WRITE HOUR*MIN VALUE IN SEC REG

JSR
TST
BEQ

PC,
FLAG.1
28

MoV

#BIT15, aCSR

::CLOCK WAS NOT SUPPOSE TO BE RUNNING
::SET BIT TO WRITE HOUR+MIN

PC,
FLAG.1
aRG4.,
’2,
P’
WG4,

SCHECK FOR READY BIT SET
;IS FLAG SET?
: ;READ SECOND
SSWATT FOR SEC
SIWAIT FOR 1 SEC
:IARE THEY EQUAL?

RDYBIT

MOV
aCSR,
BADA
ERROR+2
MOV
#BIT15,3CSR
MOV
#6004,
RGO
JSR
PC,
RDYBIT
TST
FLAG.1
MOV
aRG4,
SEC
MOV
.2,
CONT3
JSR
PC,
WAIT
M
aRG4,
SEC
BEQ
3$
ERROR+12

MOV

JSR
ST
MOV
MOV
JSR
MP
BNE

#6004,

aRG2

RDYBIT

SEC
CONT3
WAIT

SEC

$CHECK FOR READY BIT SET
IS FLAG SET?

¥
::ERROR AS FLAG DIDN'T SET
::WRITE MONTH+DAY
::BUT WRITE IN RGO(MONTH+DAY)REGISTER
;CHECK FOR READY BIT SET
1S FLAG SET?
:;READ SECOND VALUE
::WAIT FOR SEC
$:WAIT FOR 1 SECOND
$:ARE THEY EQUAL?

S:NOW WRITE IN VALID REGISTER

ZIYES, MEANS CLOCK RUNNING

SEQ 0039

MAIN,

BACYTT

CZKWLA.P1
1169

1170
1171
1172

1173

1174
1175

011014

S0A(1052)

13-MAR-BO

13-mMAR-80 07:3
104012

011016
011022
011026

005737
001406
017737

013032

011034
011040

004737

016324

011032

104002

024210

07:40 PAGE 3-3

.
001122

ERROR+12

;;ERROR CLOCK WAS

ST
BEQ
MOV

FLAG.1
13
(SR,

BADA

JSR

PC.

GETRDY

ERROR+2

SEQ 0040
SUPPOSE TO BE RUNNING

011040
011062
011050
011054

012737
004737
104407

011056
011062
011066
011070
011074
011100
011102
011106

012700
022700
003002
000137
005077
012002
012004
010274

1190

011112

012004

1192
(1)
1193
1196
1195
1196
}}gg

011120
011126
011130
011132
01113
011140
011144

004737
005737
001403
104002
004737
022027
001346

1199

011146

1201
120;

011154
011156

1189 011110
011114

011152
011162

TEST

ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME

’-:tttttttttttt*t*ttttttttttttl'ttttttt*t.ttttkttttt'ttiitttQt‘Qit!’

1181
1182
1183
1184
1185
1186
1187
1188

1203

RANDOMLY WRITE VALUE IN DEVICE REGISTERS

S*TEST 16

(3)

1200

'-;tttttltttfittttttfittttttt'ttkttt*tttttttt'ttttttt.!ttttttttttitt

(3)

1191

48:

5¢:

““78

(2)
(1)
1179
1180

TEST

012002
010274

000012
016106

001172

TS116:
BASIC:

011220
011422

1%:

011424
012762

28:

000000

128:

005077

012710

3$:

012004
010274

012037

ITERATIONS

;;POINTER TO THE TABLE
:;1S 1T END OF TABLE?
::BRANCH IF NOT END OF TABLE
SIEXIT
©:CLEAR CSR
1IMASK FOR CSR
::ADDRESS OF CSR
::MASK IN CSR

MOV

(RO)+,

::ADDRESS OF DEV REG

PC.
FLAG.1
128

RDYBIT

PC,
(ROY+,
1$

GETRDY
#-1

:CHECK FOR READY BIT SET
;IS FLAG SET?
::BRANCH IF SET
$:RDYBIT FAIL TO SET
::GO GET READY BIT
::1IS IT END OF SUBSET?
7:GET NEXT VALUE FROM TABLE

JSR
ST
BEQ
ERROR+2
JSR
P
BNE

RO+, R2

R2,

3(RG)

::VALUE TO BE SET IN DEV REG
::VALUE
IN DEV REG

CLR

3CSR

000000

MOV
MOV

(ROJ+.
R2

000000
001124

MOV
MOV
P

(80>+.
@lR&).
GOCD,

R4
BAD
BAD

*:ADDRESS OF DEV REG
::ACTUAL VALUE READ
S 2EXPECTED=ACTUAL?

ERROR+1
TM
(RO)+,
BNE
3s

#-1

¥
::1S IT END OF SUBSET?
SIBRANCH IF NOT

001124

MOV

(RO)+,
RO+,

R4
a(RG)

GOOD

::CLEAR CSR

$:MASK
TO READ DEV REG

::ADDRESS OF CSR
Z:SET BIT IN CSR TO READ

;;EXPECTED VALUE IN GOOD

1204
1205
1206

011166
011120
011176

1208
1209
1210

011%06
011210
011214

104001
022027
001354

113

011220

040000

BASTAB: BIT14

1215
1216

011226
011226

017073
024064

17073
RGO

000000

ZINOT END OF SUBSET

100000

BIT1S

2:BIT TO SETMONTH+DAY

1207

}g}}
1214

;g}g

1319

011204

011216
011222

011230

011232

012004
017437
023737

;:D0O 10.

#BASTAB,RO
#BASEND RO
28
BASEND+2
aCSR
(RO)+,
R2
(RO)+.
R4
R2,
a(R4)

MOV

017000
024210

#10. , STIMES
PC.
CNTLC

MOV
P
BGT
JMP
CLR
MOV
MOV
MoV

MOV

016324
177777

012002

SCOPE
MOV
JSR
CKSWR

001401

000721

024062
000000

177777

001126
001126

BEQ

48:

B8R

CSR

$:BRANCH IF EQUAL

$21S THERE ANY MORE VALUES
2:8IT TO SET YEAR VALUE

:SADDRESS OF CSR

DIYEAR = 1979
:;ADDRESS OF DEVICE REGISTER

MAIN,
MACYTT 30A(1052)
13-MAR-B0
CZKWLA.P1Y
13-MAR-B80 07:39
1220

1221

024062

07:40 PAGE 3~4
T16
TEST

ROUTINE TO (HECK CLOCK KEEPS (ORRECT TIME

CSR

. sADDRESS OF (SR

RGO

; ;ADDRESS OF DEV REG

006037

6037

. ;DECEMBER 31

1222

000000

1225
1226

01
01

100000
026062

BIT15
CSR

;:BIT TO SET HOUR+MIN
. ;ADDRESS OF CSR

1228

024066

RGZ

. ;ADDRESS OF REGISTER

1231
1232
1233
123

011266

000004
024062
017073
024064

81712
CSR
17073
RGO

;:BIT TO READ YEAR VALUE
+ ;ADDRESS OF (SR

}Sgg

011256
011260
011262
011264

1237
1238
1259
1260
152;

011270
011272
011274
011276
711300

000002
029062
Q0455
024064
00

8IT1
CSR
2455
RGO
00000

;:TO READ JULIAN DAY
. sADDRESS OF CSR
;. EXPECTED JULIAN DAY
; ;ADDRESS OF DEV REG
;sNOT END OF SUBSET

126%

011302

000001

BITO

2270 READ HOR+MIN

}Szg

011312

177777

}Ssz

1227

13%8

12644
1245
1246

1249
1250
1251

1252

026064

006000

177777

000000

011304
011306
011310

024062
006000
024066

011314
011316
011320
011}22
011324
011326

040000
024062
017074
024064
000000
100002

6000

177777

00000

1260
1261
1262
1263
%ggé

011340
011342
011344
011346
011350

100000
024062
000000

BIT15
(SR
00000
RaZ
177277

1266
1267
1268

011352
011354
011356

000002
024062
000001
024064

8IN
(SR
1

000000

RGO
00000

00000
024062
000401

BITO
(SR
401

1275

011364
011366
0113720

011372

024064

;NOT END OF SUBSET

-:SET YEAR
; ;ADDRESS OF CSR
221980

CSR
001
RGO
00000

127%
1278
1276

s sEXPECTED YEAR VALUE
; ;ADDRESS OF DEV REG

BIT14
CSR
17074
RGO
000000
8ITIS+BIT]

024062
000001
(024064
000000

011360
011362

;.END OF SUBSET

. ;ADDRESS OF CSR
JJEXPECTED HOUR+MIN
2 :ADDRESS OF DEV REG

011330
011332
0113346
011336

1269
}S;g)

: sHOUR=12 ,MIN=0

CSR
6000
RG2

1253
1254
1255
1256
1257
}Sgg

024066
177777

;:NOT END OF SURSET

RGO

;:END OF SUBSET

. sADDRESS OF DEVICE REG

;INOT END OF SUBSET
;:SET JULIAN DAY

;oJULIAN DAY (JAN 1)
; cADDRESS OF DEV REG
;JNOT END OF SUBSET
;:SET HOUR+MIN
;2 0HOUR
, OMIN

; ;ADDRESS OF REG
;:END OF SUBSET
;;READ JULIAN DAY

JiEXPECTED VALUE
; ;ADDRESS OF DEV REG
;:NOT END OF SUBSET
;JREAD MONTH+DAY

;:JAN T

; ;ADDRESS OF DEV REG

SEQ 00«1

MACYT1 30A(1052)

— O
NDAN) 0 OO B NN BN
O

D
D ok
sy
i
o
) S
D et el i
s
D
el
s
i
s ot
e
e e
el
o
i
-

M AN AMNANAN A AN N
N AN N L SN NN
R = PO A AU R SR
b o
b s b o
b ok

116

PAGE 3-5
TEST

ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME

011374

000000

00600

;sNOT END OF SUBSET

011376
011600
011602
011404
011406

000001
024062
000000
024066
000000

BITO
CSR
00000
RG2
00000

. sREAD HOUR+MIN

011410

000001

81710

;sREAD SECOND

0114146
011416

000000
024070

00000
RG4

;sEXPCTED SECOND VALUE
; ;ADDRESS OF SECOND REG

011422

000000

BASEND: 000000

011412

011620

024062
177777

{

;sNOT END OF SUBSET

;:ADD OF (SR

177777

;THIS ROUTINE

SEQ 0042|

s sEXPECTED HOUR+MIN
32

CSR

(V2 STVNT
gy

13-MAR-80 07:39

07:40

e aed el

)

D e

b o nd ed ek

)

LdEgUNflJfinar\r\flJNNU
vvvvmwg 00008 EIRIR
gEIRIRERE
Sgdmwwoo

NININININININININLNI
NN

P11

13-MAR-80

;2END OF SUBSET

;;END OF TABLE

CHECKS

INTERRUPT OCCURS PROPERLY

:';ttttttt*ttttfitt*t*tti'ttttl’tt'ktil!ttt*tti*tttR*ttltt‘ttt"i'ttt
;*TEST 17
TEST
UPDATE INTERRUPT
011424
011426

000004
012737

:;tt*tti&ttitt*ttttttittttttttt*ttttttttttttttttt*tttttt*tfi"t'lt

000012

001172

0114346
011442
011446
011450
011454
011460
011462

013737
004737
104407
012700
022700
003002
000137

024106
016106

011466
011474
011500
011504
011510

012737
012037
Q05077
005037
0127277

000001
001124
012356
024212
100100

011524
011530
011536

005037
012737
Q04737

024120
000005
015726

016030

001122

011516

013777

012152
012212
012114

001124

011542
011546

005737
001011

017737
104014

012306

011560
011564
011566
011572
011576
011602
011606

005077
005720
000137
005037
004737
005737
001417

012276

011550
011556

177776

024226

TST17:

TABDRG: MOV
JSR
CKSWR
MOV
1%:
P
867
JMP
2%:

012344

012340

#10. ,$TIMES

DPRI,
PC,

;:D0 10.

ITERATIONS

;:POINTER TO THE STARTING ADDRESS OF THE
s IS IT END OF TABENS?
; sBRANCH IF NOT
I EXIT

MOV
MOV
CLR
CLR
MOV

”,
INTREG
(RO)+, GOOD
aCSR
FLAG.?2
MIT15+8176,aCSR

J:FLAG TO INDICATE UPDATE INTRPT
; JUPDATE VALUE
;:CLEAR CSR
;:CLEAR FLAG
;2 INTERRUPT ENABLED

CLR
MOV
JSR

ACSR
”5,
PC.

;:CLR LOCATION
::WAJT FOR APPRO 5 SEC
;:WAIT FOR INTERRUPT

TST
BNE

GOOD.,

FLAG.?Z
3s

MOV
aCSR,
ERROR+14

3%:

PSW
CNTLC

#TABLES RO
#TABENS RO
23
8s

Mov

024212

011454
024212
017000
024210

SCOPE
MOV

(LR
1SY
JMP
CLR
JSR
TST
BEQ

aCSR
(RO) +
1%
FLAG.?
PC,
FLAG. 1
% 3

aRGO

TIMES
INTRIN

BADA

RDYBIT

; ;MONTH+DAY VALUE IN DEV REG

;318 INTERRUPT OCCURED?
; :BRANCH ON INTERRUPT

::GET STATUS OF CSR
;2 INTERRIPT DIDN'T OCCUR WHILE
;:UPDATING CLOCK WITH INTENABLE
;:DISABLE INTERRUPT
;:POP UP PONITR
;2GET NEXT VALUE
;:CLEAR INTERRUPT FLAG
;CHECK FOR READY BIT SET
;1S FLAG SET?
;:BRANCH IF YES

TABLE4

13-MAR-80
MACY11 30A(1052)
13-MAR-80 07:39
PN

012037
017737
023737
001711
013737
104001

N
~
N

~
~

—

j=]

R WWWMSW’\)WWW—'WWWWN ~N

NBNNO
—
NNNNOH
NINO = NO
[
NNNN=N=NNNNNNNNON

07:497 PAGE 3-6

001724
012244
001124

001126

024120

001122

001126
001126

024120

001122

011454
001124
012146
026212
100100

001126

011454
001124
012206
001124

A ¥

012134
012132
016030

012076

001122

024212
017000

6%:

024210

001126

024120

001122

001126

001126
001126

024120

001122

NN AN

011704
001124
012000
001124

TST
Jmp
(LR

JSR

7%:

024210
001122

9%:

(RO)+,

GOOD

aRG0,
?gOD,

BAD
BAD

ACSR,

BADA

(RO)+,

aRG0,
G0OD,

ACSR,

18
(RO)+,
aCSR
FLAG.?2

GOOD

BAD

BAD
8ADA

GOOD

#BIT15+B176,aCSR
GOOD,
aRG?2
ACSR
#5,
PC,

FLAG.?

a(SR,

TIMES
INTRIN

BADA

a(SR

(RO)
+

1
FLAG.?2
PC,
FLAG.1

RDYBIT

7%
(RQ) +,G00D
aRGZ2,
BAD
GOOD,
BAD
5%
ACSR,
BADA

JMP
MOV
MOV
cw
8EQ
MOV
ERROR+1
JMP
CLR
JSR

5%
(R0O) +,GOOD
aRG2,
BAD
GOOD,
BAD

TST
BNE
JMP
MOV

ERROR+1

INTERRUPT

8EQ
MOV
MOV
o
BEQ
MOV

ERROR+1

017000

011720

JMP
MoV
CLR
CLR
MOV
MOV
CLR
MOy
JSR
TST
BNE
Mov

TST

001124
012036
001124

012214

MoV
MOV
o
(0,
BEQ
MOV
ERROR+1
JMP
MOV
MoV
P
BEQ
MOV

CLR

011454

UPDATE

ERROR+14

012066

011454
024226

TEST

ERROR+1

5%:

001124
024120
000005
015726
024212

WWINQ

= NN NNNN
=N

jolelel

02288
b —d ?—j
R g 28 g88Re21\
NN
N~ DY
—
£33 33

rol il ik ) and) el e sl el o

AIRVPLNVUNINVNIPONOND

ol cneld ool cdd s el el el el cads vl il i el i il wadh il ) el D ot ard =Dl )

— vl el e e )

il o md e —f

d o

000137
012037
017737
o

ad e

—d ) cd b b b

80 800
jelelelele)
NN
NNNNNNNNN NNNN O OOn
£
AW
NI
— s
NNN
[+ 30V,
¥ ¥ 3
NN ==
NN
£~ FRENI RS8N
COMNOMPLONON »O o g8 [+ ¥ N =]
RO
f;

slelalelelelelolololelolalelolelaleloslalelolalelelalaloBolololelololololololeloloBolelolelele)

OO
NWA
NN
00 N

o il

AN AN~ L

POV DU S

A N NN M N

QAU NP

QT YO QU

b et ad b e e md e

o e ed el

d e

D wd

D o

e} ard e

g V‘J—‘VVNNVNN& ggggggx&&&:&aamm‘amg
WA= O~ L
NR N
WA = OO K%K&‘iflifilflifiifl§§§§§§§‘£g‘g
NNRNENWNN 2O

1329

—O

MAIN,

118
ACSR,

1$
INTREG

PC,
FLAG.1

BADA

RDYBIT

TABEN4
+2
BADA
a(SR,

SEQ 0043

;;EXPECTED VALUE IN GOOD
; JREAD MONTH+DAY
;:ARE THEY EQUAL?
;2VES, BRANCH
..GET STATUS OF CSR
s ;READ VALUE NOT MATCH WITH EXPECTED
;:GET MORE VALUE
s sEXPECTED VALUE
s sACTUAL VALUE IN BAD
;sARE THEY EQUAL?
;:BRANCH IF EQUAL
;sGET STATUS OF (SR
;READ VALUE NOT MATCH WITH
s sEXPECTED
;+GET NEXT VALUE
; sHOURHMIN IN GOOD
;sCLEAR (SR

**INTERRUPT ENABLED

*“HOUR+MIN IN DEV REG

;35 SEC

;;WAIT FOR INTERRUPT
23 1S INTERRUPT OCCURED?
;:BRANCH IF YES
;2READ STATUS OF (SR

;s INTERRUPT DIDN'T OCCUR WHILE
; JUPDATING CLOCK
; JUNABLE INTERRUPT
;:POP UP POINTER
::CLEAR INTERRUPT FLAG
;CHECK FOR READY BIT SET
;IS FLAG SET?
;;BRANCH IF YES

;EXPECTED VALUE OF HOUR+MIN
;;READ ACTUAL HOUR+MIN
J;ARE THEY EQUAL?
;:60 GET MORE VALUES
;:GET CSR STATUS
. ;READ VALUE NOT MATCH WITH EXPECTED
;:GET MORE VALUE
JEXPECTED HOUR+MIN
; JREAD HOUR+MIN
J:ARE THEY EQUAL?
;2GET NEXT VALUE
;:GET STATUS OF CSR
;READ VALUE NOT MATCH WITH EXPECTED
;:CLR UPDATE INT FLAG
JCHECK FOR READY BIT SET
;1S FLAG SET?
;;BRANCH IF READY DIDN'T SET
JJEXIT TO NEXT ROUTINE
;;GET STATUS OF (SR

;;READ VALUE NOT MAT(CH WITH EXPCTED

MAIN,

MACYTT

{IKWL A P11
1281

1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1297
1398
1399
1400
1401
1402
1403
1404

012146

012152
012156
012156
012160
012162
012164
012166
012170
012172
012176
012176
012200
012202
012204
012206
012210
012212

30A(1052)

13-MAR-80

13-mMAR-80 07:39
000137

000401
000401
000000
000000
006002
006002
002004
002004
004000
0046000
004002
004002
014400

07:6(1)

012214

TEST

JMP

TABLE4: 00401
00401
00000
00000
06002
06002
02004
02004
04000
04000
04002
04002
14400
00000
06020
06020
TABENS: 00000

006020
006020
000000

UPDATE INTERRUPT
TABENSG ¢2

SJEXIT

:-"tttttttttttttttttttttttttttttttttttttttttttttttttttttttfittttttt

(3)

T*TEST 20

(3)

TEST

PRE~SET INTERRUPT

;:ttttttttttttttttttitt"'tttttttttttt*ttttttttfittt'tttttttttittt

012214

000004

TS$7T20:

SCOPE

(1)

012216

012737

000001

1409

012232

004737

016106

16411
1412
1413
1416
1415
14616
16417

012240
0122646
012250
012256
012262
012270
012276

012700
012703
012737
004737
012777
012777
012777

013064
013134
000002
016560
000000
040000
017070

011572
011564
011560

1420
1621
1422

012314
012316
012324

oou.og
017737
104006

011540

001122

BEQ
2¢
MOV
aCSR,
ERROR +6

BADA

1424
1425
1426
1627

012326
012332
012340
012344

004737
012777
012077
012077

016324
000000
011516
011514

011522

JSR
MOV
MOV
MOV

PC.
#0
RO+,
(RO)+,

GETRDY
3CSR
aCSR
@RGO

1609
1430

012354
012360

005737
001411

024210

TST
BEQ

FLAG.1
3s

1410

1418
1419

1423

1408

1631
1432

SEQ 004e

;FIRST DAY OF THE MONTH

1407

1408

;
;THIS ROUTINE PRE-SETS INTERRUPT FOR
>OHOUR ,OMINUTE ,0 SECOND OF THE

1282

(2)

117

PAGE 3-7

012224

012236

012304
012310

012350

012362
012370

013737

104407

004737
005737

004737

017737
104007

001172

024106

177776

#1,STIMES

JSR

PC,

MOV
MOy
MOV
JSR
MOV
MOV
MOV

#TABLES RO
#TABENS .R3
n”,
INTREG
PC.
INIPRE
”0,
aCSR
#7146, aCSR
#17070.3RGO

CKSWR

024226

017040
024210

18:

JSR
ST

017040

011474

MOV

PRESET: MOV

2%:

JSR

001122

DPRI,

PC,
FLAG.1

PC,

MOV
SCSR,
£RROR+7

PSW

CNTLC

RDYCK1

RDY(K1

BADA

;:D01 ITERATION

::1S IT CONROL C?
;;PONTER TO THE STARTING ADDRESS OF THE TABLE
::R3 CONTAINS END ADDRESS OF TABLE
::FLAG TO INDIACATE PRESET INTRPT
S:GET 'M* BIT SET
::CLEAR (SR
“:SET (SY) BIT IN CSR TO WRITE A YEAR VALUE
SIYEAR 1976 IN DEV REG
; ;BRANCH IF NOT

;;READY BIT DIDN'T SET PROBABLE

;:CAUSE, YEAR VALUE MAY BE INVALID

S:GET READY BIT SET

;:GET MASK TO SET IN CSR
S:VALUE IN MONTH ¢ DAY REG
_
;;BRANCH IF READY BIT SEi

*ZREAD (SR
SERROR: READY BIT DIDN'T SET

MAC Y11 30A71052)
13-MAR-80
MAIN,
P11
13-MAR-B0 07:39
(ZKWLA

07:40 PAGE 3-8
120
TEST

1433
1634
1435
1436

S
oNO

Pl ol

herd

011404

4%;

5%:

017120
024210

011314

MOV
MOV

001122

noro

—

(o]

001122

s
aCSR,

BADA

MOV
(RO)+,
JSR
PC.
31
FLAG.
1
BEQ
5%
MOV
aCSR,
ERROR+11
+
(RO)
ST

@RGO
RDY(CK

MOV
MOV
JSR

#0,
aCSR
#100200,3RG2
PC,
RDYCK

BEQ

FLAG.1

aCSR,

ERROR+11

6%:

BADA

118

MOV

BADA

(RO)
¢

BR
MOV

11$
#0

JSR
ST

PC,
FLAG.1

RDYCK1

MOV

aCSR,

BADA

MOV

aCSR

#100000, 3RG4

BEQ

7¢

ERROR+26

=N\J\lVaOOvn

PINIANACO

3382288838

el
ek
ol
sl
e
e
il
el
i

TST

011236
024212
024120
000100
000120
015726
024212

7%:

J:WRITE HOUR+MIN
s HOUR+MIN IN REG?
;sBRANCH IF NOT

;<GET CSR STATUS

;;ERROR:ONE OR BOTH VALUES

2 INVALID

;;CLEAR CSR, OR SET INTRPT

;.FOR JULIAN DAY IF BIT1

]S SET

JJPRE=-SET INTERRUPT
;:G0 CHECK FOR READY AND DE BIT
2:1S 'DE' AND 'RDY' BIT SET?
:;BRANCH IF (DE AND RDY)BIT SETS
;:GET CSR STATUS
:;(DE) BIT FAIL TO SET

;sADJUST POINTER
;o EXIT

;s sPRE-~SET INTERRUPT FOR HOUR+MIN
.sCHECK FOR RDY AND DE B 17T
2;1S ('DE' AND ‘RDY') SE T?
;;BRANCH IF SET
;:GET (SR
;s (DE)Y BIT FAIL TO SETY
;. sADJUST PONTER
;:GET NEXT VALUE
;;PRE-SET INTERRUPT FOR O SEC

;:1S FLAG BIT SET?
;:BRANCH IF (DE,RDY,MBIT) BIT SET
;:GET CSR STATUS
;;PROBABLE CAUSE OF AN ERROR:

118

; cADJUST POINTER
:oGET NEXT VALUE

FLAG.?2

;. CLEAR INTERRUPT FLAG

(LR
MOV

ACSR
#B1T6,

JSR
ST

PC,
FLAG.?Z

BNE

:2CSR TO FIND EXACT CAUSE OF AN ERROR

(RO)+

a(SR

MOV

2 sADJUST POINTER

;:'M'BIT FAIL TO SET CHECK

CLR

(LR

INVALID

. .OF HOUR+MINUTE MAY BE
aCSR
aCSR

011252

RDYCK1

00,
(ROY+,

TST

000000
100000
017040
024210

PC,

FLAG.
1

ERROR+10

001122

100200

#13473. 3RG2

BEQ
MOV

011376
017120
024210

000000

(RO)
+
(RO)
+
118
#0,
aCSR
#IT15.aCSR

MOV

001122

—

NN
~

3
—

no
~
~
~

[s N,V

gm\n\nml\bgufl\)d—l—b
X%1
J ¥

LASE

3s:

TST
IST
P
MoV
MOV
ST

—a

~n
~
~
~

> —

(@1

(Yl

W AV IV, LV, LU (6 SV IV, [V, V LV IV [V, ]V | 5N
NN

000000
011400

011356

RF A VAN
~NN

D o
B ok
B o’
D
D e
D
d od
i
e
i
b
b
b
b
d

[elolelelelelelelole

p
T

1481

SEQ 0045

2s.+DAY MAY BE

PONINUTVNONINININS
TG FININI NN NI PN PV PNN

uerQrd

011416

jelelololalelolele lololalelelelelelalelalaleleloBNelel

ggE{VNrV\rv*wV*u\u>g¥>gg>gg>owr0nnunnuunuun
WNOA
N WN=OOCONIVNE
AN =2000
YN W

S
N

X
W
I

T
N

U
I
Y

IS SR

i R

A
N

s T

N
i

INTERRUPT

(RO)
+

JSR

1445
1446
1447
1448

—

100000

elels]

013473
017240
024210

par o

1442
1443
1644

1441

1511

013024
000000

PRE-SET

. sPROBABLE CAUSE OF AN EKROR
.cONE OR BOTH VALUES OF MONTH

1437
1438
1439
1640

1449

#120,"
8s

aCSR

TIMES

INTRTN

;:NOW ENABLE INTERRUPT
;:APPRO 80 SEC
;cWAIT FOR INTERRUPT

;2 1S INTERRUPT OCCURED?
::BRANCH IF YES

MACY11 30A(1052)
13-MAR-80
W
13-MAR-80 07:39
A, P11
(7K

1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516

1517

1518

1519
1520
1521
1522
1523

1524

1525

1526

1527
1528
1529
1530
1531
1532

533
'534

1535
1536

1537
1538
1539
15%0
15641
1542
1543
1644

017737

011374

012672
012676
012702
012710
012714
012722
012726

005077
005037
0317737
012037
023737
001404
013737

012732

104001

012734
012742
012750
012756
012760
012766

012770
012776
013004
013012
013014
013022

013024

013030

013032
013034
013040
013046
013054

013060
013064
013066
013070
013072
013074

013076
013100

013102
013104

017737
012737
023737
001404
013737
104001

2
;

N\l\-‘%
SO

104015

b ) —

012662
012670

—

1489
1490
14N
16492
1493
1496
1495
1496
1497
1498

QOO
8
— h SNl

MAIN,

07:40

120

PAGE 3-9

001122

001126

001124

001126

024120

001122

TEST

PRE~SET

MOV

a(SR,

(LR
CLR

a(SR
FLAG.2

ERROR+15

8%:

MOV
MOV
P
BEQ
MOV

aRG0,

(RO)+,
GOOD,
9%
ACSR,

011126
000000
001124

00112¢
001124
001126

024120

001122

011074
000000
001124

001126
001124
001126

024120

001122

016106
024226
000000
004002
020060
012332

9%:

MoV
MOV

tMP
BEQ

MOV
ERROR+1

10%:

11%:

MOv
aRG4,
#0,
MOV
€
GOOD,
118
BEQ
MOV
ACSR,
ERROR+1

JSR
cMP

BLT
CLR

12%:
TABLES:

aRG2,

400,
GOOD,
108
ACSR,

MOV
MOV
JMP
JMP

100002

000074
0000002
100075
001401
100000

004436
000000
105201

005001

013110
013112
013114

100002

002456
000002
100001
000401

PC,

RO,

INTERRUPT

BADA

BAD

COOD
BAD
BADA

ERROR+1

013106

013116
013120

BAD

GOOD
BAD
BADA

BAD

GOOD
BAD

BADA
CNTLC

128
INTREG
#0,
RGO
#LOGTST ,SRTNAD
$EOP
2%

SEQ 0046

;;GET STATUS OF (SR
. INTERRUPT DIDN'T OCCUR ON
2 sPRESET VALUE
::CLEAR INTERRUPT ENABLE
:sCLEAR FLAG.?2
. ;READ MONTH<DAY
JJEXPECTED HOUR+MIN
;:ARE THEY EQUAL?
::YES, BRANCH
;sGET STATUS OF CSR AT TIMe
;:0F INTERRUPT
< +READ VALUE NOT MATCH
soWITH EXPECTED VALUE OF
; sMONTH+DAY

; sREAD HOUR+MIN
;EXPECTED HOUR+MIN
s ;EQUAL?
;:G0 TO READ SECOND
.<GET CSR STATUS AT TIME OF INTERRUPT
. ;READ VALUE OF HOUR+MINUTE

;;DIDN'T MATCH WITH EXPECTED VALUE

;sREAD SECOND
;EXPECTED SECOND VALUE
J;ARE THEY EQUAL?
;:GET MORE VALUE
;2GET CSR AT TIME OF INTERRUPT
. sREAD VALUE NOT EQUAL TO EXPECTED
s ;VALUE OF SECOND
;21S IT CONTROL C?
;:IS IT END OF TABLE?
; :BRANCH IF NOT
;:CLEAR INTERRUPT SWITCH
;:JUST TO CLEAR 'M' BIT
s

;:GET MORE VALUES
J:MASK TO SET JULIAN DAY

;2 SET FEB~29

;3JULIAN BIT SET

. ¢MARCH=1
: JMARCH~1

(INTRPT ENBLE)

;2 SEP-30
;:0CT~1 (INTRPT ENABLE)
2:0CT-1
;ISET JULIAN DAY

;:DEC-31

ssSET JULIAN BIT

;. JAN=T
5 JAN-1

(INTRPT ENABLE)

JMAIN,
MACYTT 3DA(1052)
13-MAR-BO
CIkWLA.P1T
13-MAR=-80 07:39
1545

013122

156

013126

1548
1549

013130
013132

1547

}gg?

07:40 PAGE 2-10
120
TEST
PRE-SET

100000

g]’;

1559
1)
1)
(1)
1560
(1)
(1

100000
;;FEB=28

100074
001401

100074
0014601

s JMARCH=-1(INTRPT
2 :MARCH=1

013126

000002

013134

000000

000002

TABENS: 000000
SBYTL

013136
01%136

104401

000444

013254
013260

1046401
0004603

013262

013270
013270
013274

104401
000412

013276

013254

1562

013322

013326

024254

024124
024210
024126
024230

005037

005037
005037
005037
005037

1570
1571

013356
013360

1574
1575
15726
15727
1578

013372
013376
013400
013404
013410

013352

005037

1580

013416

104410
012604
110437
104401
022704
001007
013722
005037
005237
000760
022704

1582
1583
1584
1585
1586
1587
1588
1589
1590

Q13424
013430
013432
013436
013442
013446
Q13450
013456
013460

022704
001026
013722
005037
022702
001060
022737
001054
112737

1581

013362
013366

013414

013422

TYPE

THE CLOCK

001645

TYPE
B8R

,67%
663

. TYPE ASCIZ STRING
:2GET OVER THE ASCI1Z

;:69%:

TYPE
BR
_ASCIZ

L69%
:;TYPE ASCIZ STRING
68%
::GET OVER THE ASCIZ
<200>/YYYY_MO,DD,HH MI/<200>

1%:

MOV

#DIGIT, R?

;;POINTER TO DIGIT TABLE

(LR
(LR
LR
CLR

COMMA
FLAG.1
DIGCNT
SOF SWT

:;CLEAR COMMA COUNT
;:CLEAR FLAG
;o INITIALIZE DIGIT COUNT
;;CLEAR SOF TWARE SWITCH

024172

LASCIZ

_ASCIZ

(LR

CLR

2s:

024250
024250
000054

024126
024126
024124
000025

3%:

000015
024126
024126
024316

000004

02424

000012

024244

;:TYPE ASCIZ STRING

;;GET OVER THE ASCI2

;:678:
668
:

024122

,65%

649

é’igSS:

012702

013332
013336
013342
013346

1579

SET TIME OF

68%:

1564
1565
1966
1567

1572
1573

;;END OF TABLES

NEWT IM:

013144

013142

013322

;ggg

ENABLE)

;THIS ROUTINE SETS NEW TIME IN THE CLOCK

1,:(;;%

1563

SEQ 004’

001034

1555
‘%ggg

(1)

INTERRUPT

00103

1552
1553
1554

1558
(1)

<200>/TYPE '‘CR'" AT

<200>/NEwW/

OCTNUM

SWITCH!

(SP)+,
R4,
'
#54,
33
DIGCNT,
DIGCNT
COMMA
23
#25,

TMMP
BNE
MOV
(LR
MP
BNE
s,
BNE
MOVB

#15,
R4
43
DIGCNT, (R2)+
DIGCNTY
#DIGEND ,R2
63
n,
(OMMA
6%
®12,
ECHOB

NEWT IM

THE

FOLLOWING LINE

TO END ENTERING TIME

;o INITIALIZE OCTNUM

;;CLEAR SWITCHI

RDCHR
MOV
MOVB
TYPE
TM
BNE
MOV
CLR
INC
BR
P

BEQ

THE END OF

R4
ECHOB1
ECHOB1
R4
(R2)+

2 :STORE CHARACTER
ol
;ECHO THE CHARACTER
;1S 1T comma?
; ;BRANCH IF NOT
:;DIGIT COUNTER ON THE STACK
;:TO USE AGAIN
JIKEEP TRACK OF COMMAS
;:1S CONTROL U?

;. GO BACK

;1S 1T CR?
; ;BRANCH IF NOT
;:GET DIGIT COUNT
221S IT END OF DIGIT TABLE?
;JALL VALUES ARE NOT ENTERED SO BR
;2
;2BRANCH IF NOT ENOUGH COMMAS
:; FOR LINE FEED

MACY11

P11

3CAC1052)
13-MAR-80
13-MAR~80 07:39

d md

SEIBHROK -‘OOCD\!O‘JI“WVvv‘-"\)-‘O‘ONNO‘U‘N"\NN—*O% §22580828 $282

013466
013472
013476

b
d

013700
000177

104401

001202

104401

001203

0204627

000060

ons P

[elelelelalelelelolelolelolel

002426
020427

003023

005237

FN-A

\VWn

3566

Javar Qe Qi

Ghvar Sos-Ghver G

Par Ponsr G

010422
554

005737
001005

023727
003674
000410
022737

002404
023727
003663
020227
002402

jelelo Bl elelolalelels)

013702

1046401

000137
000207

PC.

N, o
e

8%
877,

JSR
48

BNE

TYPE

9% :

000071

63
R4,

INC

024124

TST

024126

000004

024124

024126

000002

BNE

S$:

8 oo RS
(o 1, ¥]

N AN N AN AN N A
NN
NN NSNNNNNNNTY
o~
AN
— s s
DO

el m—dlh
s wmll
el o} il wadd wend el wndd

000005

013630
$:

013136

042701

006301

8%:

YERTN:

040000

005737

024210

010077
004737

010122
017000

DIGCNT

#60

::READ NEW CHARACTERS

;: 1S NUMBER BELOW ZERO ?
cJBRANCH IF YES
;:
1S NUMBER ABOVE NINE ?

(R2)+

JJVALID NUMBER ON DIG STACK

COMMA

;;BRANCH IF YES

;:COUNT NUMBER OF DIGITS BEFORE

;:IS 1T FIRST NUMBER ?

¥,

;:NO BR

#71

63
DIGCNT, #2
23

B8R

COMMA

: JBRANCH IF NOT

;;MAXIMUM DIGITS IN A YEAR
;2GET MORE DIGITS IF NOT FOUR YET
;;ERROR ]IF MORE THAN FOUR

;:MAX POSSIBLE COMMAS

;;1F MORE BRANCH
;:MAX DIG FOR MONTH=DAY=HOUR-MIN
;;GET MORE DIGITS

010124

-(R2)
63

;JCLEAR DIGIT STACK

718

;:TYPE ASCIZ STRING

708

*“GET OVER THE ASCIZ

ASCIZ

<2000 /eaxannwanna
SYNTAX FRROR*#ntwssnnsn/

Jmp
RTS

NEWT IM
PC

RESET

MOV

;2EXIT FROM THE ROUTINE

THE TIME VALUE IN THE DEVICE REGISTER

YEAR,

MOV
BIC

RO
R1
#177700.R0

ASL

BIS

R1,

RO,
PC.

aRGO
RDYBIT

ASL

052777

Ré&,

ROUTINE

2. "CARRIAGE RETURN'® AND 'LINE FEED"'

BLY
cTMP
BLE

BIC

006301

050100

:sROUTINE TO ENTER VALUES INTO
;DEVICE REGISTER
SIEXIT
::IS IT RUBOUT?

JITYPE A *2°

DIGCNT, #4
2$
63

TYPE

5671$:

1727700
170077

010001
0462700

cTMP
BLE
B8R

(LR
BR

’s

024132

YERTN

3
;:DECIMAL TO OCTAL CONVERSION

;THIS ROUTINE CLEARS DIGIT STACK ON AN ERROR
6$:
TM
R2,
#IGIT
32
BLT
7%
::TYPE ERROR MESSAGE

024254

013700

£CHOB
DECOCT

$CRLF

R4,

SEQ 0048

LSQUES

BLT
TM

MOV

024126

93
2

PC.

BGTY

005042
000773

000622

TYPE
JSR

SBTTL
[wlelelelelaloleloalelela

TLo9

000137
022704

004737

000714

D e
D
D
e
d e
ek
b e
d et —d
ek

024244
014224

001005

D d

) e

D e ek

o [o g3 o Yo Yo N0 Yo Na Yo Yo No Yo No No 3
AR RUNINSASRON
o
o — noDNONU = e b ek ed wed b o o wh

rdd e
D o
i
o
o
S ol ol il e
el el
gl
it s

XX
—

1064071
004737

07:40 PAGE 3-11
SET TIME OF THE (LOCK

MAIN,

BIS

MOV
JSR
1ST

#170077 ,R1

#BIT14, (SR
FLAG.1

; :YEAR VALUE

;:ALSO IN R1
;:CLEAR ALL BUT #77

;;CLEAR ALL BUT #7700

s:SHIFT LEFT

JISHIFT LEFT

;RO CONTAINS YEAR VALUE IN DESIRE FORMAT
::SET (SY) YEAR BIT

;:VALUE IN THE DEVICE REGISTER
;CHECK FOR READY BIT SET
;1S FLAG SET?

o
~N
~

»HO
NIRBRVIRAUERR X8 XNIRKRS S5
d
b
B

ad ad

MOV

001122
A ¥

024150

o
o

007652
007640

024152

;2SET BIT #15 TO WRITE MONTH+DAY
c:VALUE IN DEVJCE REGISTER
;CHECK FOR READY BIT SET
;IS FLAG SET?

ST
BNE
MOV
MOV

c.CLEAR (SR
sCHECK FOR READY BIT SET
;1S FLAG SET?

@3RG0,
HOUR,

DMONTH
RO

ASL
ASL

FLAG.1
78

#177700,R0
RO
RO

;:STORE MONTH+DAY VALUE
; JHOUR VALUE
;s CLEAR UNWANTED BITS
sSHIFT
LEFT
M

ASL
ASL

RO
RO

M
s

ASL
ASL
ASL
ASL
MOV
8IS

RO
RO
RO
RO
MIN.
R&,

R4
RO

MOV

RO,

3RG2

8EQ

MOV

#IT15,aCSR
PC.
FLAG.1
aCSR,

BADA

SRG2,

DHOLR

ERROGR+10
8R
78

6%:

MOV

’%:

RTS

CLR

ROYBIT

SCSR
PC

TIMES

;DAY VALUE IN R4
;sCLEAR UNMANTED BITS
;;COMBINE MONTH + DAY IN A REG

RDYBIT

CLR
JSR

8IS

001122

RDYBIT

aCSR
PC,

B8R

JSR
ST

007660

BRGO

LEFT

:sBRANCH IF NO ERROR
;¢ CURRENT STATUS OF CSR

BIC

007702

RO,

; ;BRANCH IF NO ERROR
. sREAD CURRENT STATUS OF (SR
;o YEAR VALUE MAY BE INVALID
:sCLEAR (SR
: MONTH VALUE
;. CLEAR ALL BUT #77
JISHIFT

BADA

ERROR+7

g
(o]
~4

~
~N
W
~
Uy

PC.
FLAG.1
4
aCSR,

b
D
o

DAY

#177700,R4

JSR
TST
BEQ
MOV

MOV

017000
024210

b o

)
= b

RO
RO

SEQ 0049

R,
RO
#81715,aCSR

ed
b
e

007702

RO
RO
RO
RO
RO

BIS
8IS

e
b e
b

100000

#177760.R0

010022

RS o o

IS
Pl Shar

Lk a2 ok aF AP S

i Wi D

8IC

BIC

024142

PV F

Qi (s i

aCSR
MONTH,

ASL
ASL

007766
017000
024210
007752
024140
177700

ur— i
iter

PV oW P ol oF P
el
RSy
¥

OO0~

G- G

o a2

Gaar G- Gur ¢

010000

leldlelelelelelolalelelslslaleleleBaleo

W00

2 &g&: REEEEEE 233232
:EGVQOth

CLR
MOV

NN I XY

010020
017000
024210

Bolelelolololelels]

§e§88e
&

——t d b ) e b
b el e i e s
D e
s
i)
e

s el el —
el i i el

BADA

ASL

177700

DEVICE

aCSR,

ASL
ASL
ASL
ASL
ASL

024136

IN THE

MOV

+6
ERROR

2%:

177700

100000

BEQ

001122

010072
024134

VALUE

%e Ny 0,

1647
1648
1649

010102

TIME

LRI

1646

001406

017737

THE

PAGE 3-12

1644

1645

013752
013754
013762
013764
013770
013774
014000
014002
014004
014006
014010
014012
014014
014016
014020

07:40

EIGHT

TIMES

1642

1643

—t -l

CMAIN,
MACY1T 30A(1052)
P3-MAR-80
fIKWLA,. P11
13-MAR-80 07:39

; sHOURMIN IN RO
;;SET BIT #15 IN (SR

;;HOUR + MIN IN DEV REGISTER
;CHECK FOR READY BIT SET
;IS FLAG SET?
s

:2READ HOUR + MIN
;;CLEAR (SR

s cEXIT

07:40

THE

PAGE 3-13

TIME VALUE

IN THE DEVICE REGISTER

SEQ 0050

1595
.SBTTL

ROUTINE TO CONVERT DECIMAL

TO OCTAL

*DECIMAL TO OCTAL CONVERSION ROUTINE
;STACK CONTAINS ASCII NUMBER
;POINTER TABLE CONTAINS WEIGH

DECOCT: MOV

#POINTR
RS

;;R5 CONTAINS STARTING ADDRESS OF

005037
005037
005037
005037
005037
005037
005037
014237
005012
012537
014237
005012
162737
022737

024156
024160
024222
024174
024174
024122
024164
024174

1%:

STR
NUM

024164
024160

2%:

;:CLEAR STR
;s CLEAR NUM
. cCLEAR FLAG
. s CLEAR CNT
;s CLEAR CNT
c:CLEAR OCTAL NUM
;s CLEAR COUNT
;JMOF DIGITS IN NUM
;;CLEAR DIGIT STACK
;sDECIMAL WEIGHT
;:DECIMAL NUM
;:CLEAR FROM DIG STACK

012637
012637

012637
000207
000001
000012
000144
001750

3s:

024156
024156
024174

024122

024122
024254

024132
024134
024136
024140
024142
POINTR:

BNE
ADD
CLR
DEC
BNE
MOV
P
BNE
MOV
MOV
MOV
MOV
MOV
RTS
1

(R2)
#60,

#0,
43

COUNT,
NUM

3s
STR,
STR

CNT
2%

OCTNUM,
R2,
DECOCT
(SP)+,
(SP)+,
(SP)+,
(SP)+,

(SP)+,
PC

NUM

NUM
STR

OC TNUM

~(SP)
#DIGIT

YEAR
MONTH
DAY
HOUR
MIN

1:IS IT ZERO
..

[

0w,

024156

BEQ
ADD
DEC

(R2)
(R5)+,COUNT

IETEY

024164
024160

MOV
CLR
SuB
CMP

CNT
CNT
OCTNUM
COUNT
-(R2) ,CNT

by,

024160
024160

MOV

FLAG

!
N
—
) o

RN
NN N
NS raRS

005037
005337
001346
013746
020227
001316
012637
012637

000060
000000

CLR
CLR
CLR
CLR
CLR
CLR
CLR
MOV
CLR

b
el
b
b
—d
i
) —d ——d

d e
D)
el wved

)
D v
ol

014416

001406
063737
005337
001372
063737

SRR

012705

014224

et vl

OO0~
S WPV
= OO

jelelelololalelalelelalalalelelalelclolelalalelolololelolols]

VVVVVVNNVVVNVVV}NVVQNNVVVVVVVV
INININ i
EIEAR W= O D00 NP N IWN
SOV
NN NN
= O &R

.J__‘_a—b-‘_)-.—O—Q—J—J—l-h_.l—l.a—l—l—l—é—a—b—a—l—-l—l—)-—l_.‘—)_b—)—l-l_l—-l.—l-—'—l—h-a—l—l-a—l_‘
NN NN ~
T
LA LA AN N PNONINI
PO N

VIS ES BN N0 W

)37

13-MAR-80
JMAIN,
MACY11 30A(1052)
13-MAR-80 07:39
CZKWLA A1

;:YEAR VALUE IN OCYAL
2 sMONTH [N OCTAL
. ;DAY IN OCTAL

;JHOUR VALUE IN OCTAL
;:MIN IN OCTAL
JoEXIT

12
144
1750
.SBITL

READ TIME OF THE CLOCK

*THIS ROUTINE READ CURRENT TIME OF THE CLOCK
014426

éEAD:

THE WEIGH TABL

X038

MAIN,

MACYTi

(1)
(1)

014426
014432

CZXKWLA.P11
1)
(1)

13-MAR-B0

13-MAR-80 07:39
106401
000426

014434

1751
175%
1753
1754

014510
014514
014522
014526

104401
012777
017700
010004

001203
000004
007336

1756
1757
1758

014534
014540
014542

0462704
006204
006204

160077

1760

014546

010046

1762
1763
1764

014552
014560
014564

012777
017700
010004

000002
007300

1766
1767

014572
014576

042704
006204

160077

1755
1756
1761

1765

1768
1769

014530 042700
014544

014550

014566

014600
014602

104405

042700

aCSR
RO
R&

BIC
ASR

#160077 R4
R4

BIC

;;READ JULIAN DAY
;;READ VALUE IN RO
;;ALSO IN Ré

;:CLEAR ALL BUT #77

;:CLEAR ALL BUT #17700
;:SHIFT RIGHT

006200

014650

104405

006200

1784

014646

1786
1787

014652
014656

042701
010146

1789
1790
1791

014662
014666
014672

005077
017700
010001

1795

014704

006200

ASR
BIS

#177700.R0

;:NUMBER TO BE PRINTED ON STACK

014644

MOV

007246
007244

170077

104405

042700
006200
006200

006200

TYPDS

BIC

ASR
ASR
ASR
ASR

ASR

010046

014722

104405

#170077.RO

;<CLR ALL BUT 7700

RO
RO
RO

22
2
22

s:SHIFT

RIGHT
EIGHT
TIMES

#177700,R1
R1,
-(SP)

;;CLEAR ALL BUT #77
;20CTAL NUM ON STACK

007174
007174

CLR
MOV
MOV

aCSR
aRG2,
RO,

22
; JHOUR VALUE
; 2FOR MINUTE

160377

TYPDS

-(SP)

8IC
MOV

RO
R1

;;O0CTAL NUM ON STACK
.

BIC
ASR
ASR

#160377.R0
RO
RO

;;CLEAR UNWANTED BITS
sISHIFT
32
RIGHT

ASR

MOV

1802

; sNUMBER ON STACK

177700

TYPDS

010046

006200
006200
006200

-(SP)

RO,

ASR

014712
014714
014716

RO,

MOV

006200

1798
1799
1800

014720

#BIT1,
aRGO,
RO

2 IN OCTAL

ASR

1783

1801

MOV
MOV
MOV

TYPDS

~(SP)

006200

014710

RO,

::CLEAR ALL BUT #17700
;:SHIFT RIGHT
::SHIFT RIGHT

014640

1797

Ré.

;:CLEAR ALL BUT #77

1781

014706

8IS

SE/

;;READ YEAR
;;READ VALUE IN RO
;sALSO IN Ré

ASR

006200
006200
006200

1796

#160077.R4
R4
R%

#177700.R0

006200

014630
014632
014636

0146724
014700
014702

8I¢
ASR
ASR

1777
1778
1779

1792
1793
1794

ICSR
RO
A

ASR

042700

014660

LSCRLF
#BIT2,
aRGO,
RO

;:CLEAR (SR
;;READ MONTH+DAY
::ALSO IN R1

104405

014622

1788

TYPE
MOV
MOV
MOV

JOb

RO
R1

014626

1785

aCSR
aRGO,
RO

1776

014642

<200>/

_ASCIZ

::TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

CLR
MOV
MOV

005077
017700
010001

1782

,65%
648

::SHIFT RIGHT
::IN OCTAL

014610
014614
014620

014636

TYPE
&R

MoV

177700

SEQ 0051

1772
1773
1774

1780

READ TIME OF THE CLOCK

8IC

007302

Ré
R4,

010046

1775

007340

PAGE 3-14

;:658:
64$:

177700

006204
050400

014604

014606

07:40

050400

1770
1771

014510

30A(1052)

ASR
ASR
ASR

TYPDS

RO
RO

RO
RO
RO

RO,

EIGHT

-(SP)

HH
2
52

;;0CTAL NUM ON STACK

TIMES

014724

S
= O

014752

042701

010100

177700

BIC

MOV

010046
104405

017700

042700

010046
104405
000207

07:40 PAGE 3-15
READ TIME OF THE CLOCK

MOV

TYPDS

007126

MOV

017700

BIC

MOV
TYPDS
RTS

#177700.R1

RO,

2s0CT ON STA(K

R1,

aRG4

s sREAD SECOND

RO,

-{SP)

. +0CTAL NUM ON STACK

-(SP)

#7700, RO

;:CLEAR ALL BUT #77

D ed e

ek o

014730
014732
014734
014736
014742
014746
014750

;THIS ROUTINE

e e SO0 0 NN

TESTS THE ACCURACY OF

CLOCK.

;IF THERE 1S AN ERROR, IT WILL PRINT ERROR
;MESSAGE

014754
014754
014760

000411

015004
015004

104411

5010
014
016

022
024
030
032
5036

013604
022704
001412
022704
001403
022704
001365
004737
000137

104401
000412

014762

1%:

000116

000131
000000

015360
015216
015050

et e e o e il wadh ol cadd e e e D
— e

VIV

001403

000116
000131

000000

004737
000433

015220

104401

015136

004737
000207

3s:

022704
001365

000426

2%:

éé??S:

104411

013604
022704
001411
022704

A.CLK:

éigSS:

NN
AR
S Saa ST2
ONUNS
REBERRBEIRRES N

——d e

[0 $281,81

e e e )

Belelolelelololo]

015006

1044017

elelc BlolelalalalelslelaleleleleloBololeo

S OO DNV

NWN

= NN N N O NN N NONO NN =

W
=2 OO
NO WV

PRPRATSSPPPPR

el med e

et e

— i

b cd

)

d md

d -

—d d d ek e

d wd

b e

AAA~00000000000000
0000000000 ~ ~ .~ 000000 a0 00 000000
Ox 00 00

)

1808

)39

MACY11 30A(1052)
13-MAR-80
13-MAR-80 07:39
CZKWLA Pl
MAIN,

JASCIZ

RDLIN

5%:
6s

2 TYPE ASCIZ STRING

<200>/1-CLK

a(SP)+,
2116,
s
#1131,
23
#0,
18
PC,
73

TYPE
BR
LASCIZ

,67%
66%
<200>/P-CLOCK

RDLIN

R4
R4
R4
R4

L.CLK

;<GET OVER THE ASCIZ

(L)

N2/

;1S THERE ANY CHAR

2 :GET CHARACTER
;IS IT 'N'?
;:BRANCH IF L-CLK NOT THERE
JIS IT 'y
;2BRANCH IF 'Y
;IS IT 'CR'?
;sNO:BR
;cCOMPARE THE CLK WITH L.CLK
J:JUMP TO RETURN
::TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
(L)
N?/

MOV
cme
BEQ
0y o

a(SP)+, R4
116,
Ré4
63
M3,
R4

;:GET CHARACTER IN R4
J2IS IT 'N'?
;260 GET MANUALLY TIME BASE
2018 1T 'y"?

cMP
BNE

0,
43

;1S IT "CR*?
2 ;NO:BR

JSR
BR

TYPE

7%:

,65%

649

MOV
cMP
BEQ
oy o
BEQ
P
BNE
JSR
JMP

BEQ

ég29s:

015554

TYPE

PC.
73

P.CLK

,69%

68%

JSR
RTS

PC.
PC

LASCIZ

::YES:BR

;:USE P.CLK AS TIME BASE
;:BRANCH TO RETURN
J;TYPE ASCIZ STRING

;.GET OVER THE ASCIZ

<200>/°'TYPE TWO CHARACTERS AT 60 SECONDS APART'/

NO.CLK

;2
2 ;RETURN

MAIN,
MACYTT 30A(1052)
13-MAR-80
CIKWMA.P11
13-MAR-80 07:39

07:40 PAGE 3-16
READ TIME OF THE CLOCK

SEQ 0053

1848
1849

185
185
1854

:THIS ROUTINE COMPARES KW11C CLOCK WITH
‘KW11-P CLOCK FOR ACCURACY OF KWi1-C CLOCK.
*IT PRINTS HARD ERROR [F CRYSTAL OSCILLATOR

;ggg

1857
1858
1859

*NOT ACCURATE.

015220
015022
015224

1860

015226

1862

1861

1863

1864

1865
1866
1867
1868

1869

010046
010246
010446

012704

015350

015236

012777

000010

00661¢

015252

012777

047777

006610

015232

015244

015260
015266
0152764
015276

015302

012702

012737

012737
032737
001774
017700

005302

1870
1871
1872
1873
1874
1875
1876

015304
015306
015312
015316
015320
015324
015326

001354
010037
023724
001405
020427
003772
104033

1878
1879
1880
1881
}ggg

015332
015336
015340
015342
015344

104401
0126064
012602
012600
000207

1884

015346

1886
1887
1888
1889

015352
015354
015356

1877

1885

P.CLK:

015330

015350

000402

000002

000144

000003
000200

172542

172540
172540

015346
015346

3s:

015356

027353

48:
5§

000000

007753

007752
007754
177777

::STORE RO
tIR2
SiR&
**POINTER TO P.TABLE
*:COUNTER IN R2

PKBUF

$2COUNTER EQUIV TO 100.

MOV

#47777, aRGS

MOV
8IT
BEQ
MOV

#44,

”3,
#MIT7,
2
aRG4,

BNE
18
MOV
RO,
TMP
P.CNT,
BEQ
48
P
R,
BLE
3s
ERROR+33

B8R

TYPE
MOV
MOV
MOV
RTS
00

P.END:

7752
7754
177777

aCsR

PKCSR
PKCSR

RO
P.CNT
(R&)+

#P.END

PASMSG
(SP)+,
R4
(SP)+.
R2
(SP)+.
RO
PC

$:SET BIT READ TIME INTERVAL
*:SET TIME INTERVAL COUNTER

3;SET RATE SELECT AND RUN BIT
::1S DONE BIT SET?
2:NO:LOOP AROUND
: :READ DELTAT REGS

**BRANCH IF NOT ZERO
$:GET DELAT T COUNTER
*:COMPARE WITH EXPECTED
i
**END OF TABLE?
*INO:BR
:HARD ERROR:CRYSTAL SEEMS TO BE

;:THE CLOCK PASS THE RELATIVE ACCURACY TEST
Ll
Iy
1y

7753

STHIS ROUTINE COMPARES kW11-C CLOCK
‘WITH L=CLOCK FOR ACCURACY.
$IT PRINTS AN ERROR IF CRYSTAL OSCILLATOR

}ggg

+1S NOT ACCURATE.

1896
1897

015360
0153cc

1899

015366

015372

010046
010246
010446
0127046
012702

035404

012777

015364

1901

015376

1903

015412

1902

-(SP)
-(SP)
~(SP)
R
R2

#10,

P.CNT:

P.TAB:

RO.
R2.
R4,
#P.TAB,
2

MOV

DEC

1891
1892
1893

1900

2%:

006566

1890

1898

1$:

MOV
MOV
MOV
MOV
MOV

{.CLk:

015534

000002

012777

000010

005037

177546

047777

006456

1$:

TMoV
MOV
MOV
MOV
MOV

MOV

MOV
CLR

RO,
R2.

-(SP)
-(5P)
R,
-(5P)
#_.TAB? R
7]
R2

¥
i
¥
*ZPOINTER TO THE TABLE
*COUNTER

*ISET BIT TO READ DELTA § INTVL

LKS

“ICLEAR STATUS OF L.CLK

aCSR
#47777. aRGL

*2SET COUNTER IN DELTA T

MAIN.
MACY1T 30A(1052)
13-MAR-80
CZKWLA P11
13-MAR-80 07:39

1904
1905

=O
W

015436
015442
015450

032737
001774
017700

005302

001360
010037
022737
001410
023724
001417

VAWV

RISR
SRRV
FRE

el e d e v

AWIUAWAL

(VAR AV LV, LU LV LV LV, (V. BV
IV,| AN AV IV IV IV VY
AN
o
OOV SNO
N

0000000

WA ITUIUVHAWIWVY .

d cmd el D end

000200

177546

2%:

006436
015532
000062

024242

015532

MOV

MiT7,

23
RG4S,
R2

5%:

015552

104033

027353

6%:
7%:

000000

SEQ 0054

LKS
RO

L.CNT

2 sFLAG SET?

. sNO:BR
ssREAD DELTA T COUNTER

:DEC R2
;:BR IF NOT ZERO

;:GET DELTA-T

062,

8, o

L.ONT,

(R&4)+

;s COMPARE WITH TABLE FOR 60HZ

o, o

RG,

#L.END?

;IS IT

BEQ

BLE
33
ERROR+33

A ¥

TMP

BEQ

015542

015532

000402
104401
012604
012602
012600
000207

8i7T

BEQ
MOV
DEC

BNE

015544

000000000

e el e o —d

B8R

MoV

cMp
BEQ

’$

#_.TABZ .R4

L.CNT,
6%

(R4)+

0, o
B8LE

R4,
5%

TYPE
MOV
MOV
MOV
RTS

,PASMSG
{(SP)+,
R4
(SP)+,
R2
(SP)+,
RO
FC

#L .END?2

ERROR+33
BR
7%

SWHAT FREQ?
;:BR IF SOHZ

ssEXIT IF EQUAL

END OF TAB1

2 :NO:BR
2 :CRYSTAL OSCILLATOR NOT ACCURATE

SSEXIT

;sPONTER TO THE

2
S EXIT

TABLE

;:END OF TABLE?
::NO:BR
. :0SCILLATOR NOT ACCURATE
JsEXIT

;:THE CLOCK PASSED THE RELATIVE ACCURACY TEST
s JRESTORE
H)
:

L.CNT:
00
L.TAB1: 7735

007735
007736
007734
1777277
007727
007730
007726

7736

7734
L.ENDT: 177777
L.TABZ2: 7727
7730
7726

177777

L.END2: 177777

*THIS ROUTINE IS USED TO GET SOME BASE
*FOR TIME.CHARACTERS TYPED MUST BE

*VERY ACCURATE AS IT

IS USED TO DETERMINE

037

-—_NNNN

S NO NN
ONNWNN

A NO

015722

NO.CLK: CLR
18:
TSTB

N.CONT
as$TKS

024250

MOVSB

aS$TkB,

006262

MOV

#47640, SRG4

8IT
BEQ

#MIT14, (SR
33

INC

N.CONT

2:S0 MANY TIMES 2 SEC INTERVAL

BPL

2 :NO:BR

163360

163354

006242

BPL

CLR

2s:

777

NN
OO

— ek =3

33 338XR =8 —*SOO
g ww?

-—

S w—d
e
) el
il aondd v
—d
o
ol

mmmm;gmmmmwmu

s THE ACCURACY OF CLOCK
SOOOOOOOOOOO0O

AWN 2O VDN

LNVSWA= OV~ N
OB NO NS W= OOV

e el el

OV O0VO0OVOO0OO0O

it el credd el et orld e el

D el e

B e

el ok e

RRRRRLLLRRIOS

NI NNV —=O 0N

D ned
)
el
D e

D e v—
D e
D
D e
e}
e
e o
e
e
e
e
el ek e e

00000000
OO0 N0 00000000 bed el el oo R e NalaNolVo!

N NI APIDININIDNINY
= bk eed b b ek —d e wed

ndh

1906
1907

01541¢€
015424
0154%6
015432
015634

07:40 PAGE 3-~17
READ TIMg OF THE (LOCK

777

TYPE

CLR

3%:

TS18

a(SR
'

a(SR

as$TKS

;:T0 STORE 2MIN INTVL CONSTANT
;:1S THERE A CHAR?

ECHOBI
ECHOB1

JINO:WAIT FOR A CHAR

;:GET TIME CONST FOR 2 SEC

;:ECHO THE

CHAR

2:1S BIT SET IN (SR?
;:NO:BR
;CLEAR BIT SET

; JANOTHER (HAR?

MACY11 30A(1052)
13-MAR-80
13-MAR-80 07:39
C(IKWLA P11
MALN,

017737

006226

106401

02425C

017737

IV AVDWILY

Soooesnn

SNNNNNN

jelelelelele]

QOO

b
d
o ok

—l

015700

01270¢
023724
001405
020427
003772

163274

07:40

PAGE 3-18

READ TIME OF

015724

(024250

015712
015722

1044071
000207

4% :

015720

OO OO O

(iLOCK

027353

IRG4,
as$TkB,

N.CON
ECHMBT

.;READ TIME INT REG
:;GET CHAR

MOV
0 o
BEQ
MP
BLE

#TAB,
N.CNT,
5%

R4
(R4)+

;;ADDRESS OF TABLE
;;CO0MP WITH NUM IN TAB

5¢:
6%:

000036
000037
000035

TYPE
R1S

TAB:

SEQ 0055

MOV
MOV

.ECHOB1

R4,

ERROR+33

#TAB.EN

6%
PASMSG

;o THE

CLOCK PASSED

THE RELATIVE ACCURACY

36
37

177777

TAB.EN: 177777
N.CNT:
00
N.CON:
00

000000
000000

;THIS

g g8LSERRFERERERE
oocncr:gLT

THE

TYPE

104033

000402

TABLE

DRIVEN ROUTINE,IT

TESTS

INVALID VALUE OF MONTH+DAY

:THIS ROUTINE WAITS FOR AN INTERRUPT

NNN
wvies
&~
NNNNNNN

005302
001376
005237
023727

or o

[V
[

VIVIIWAIIWVY.

NN
[V YiaY]
£2LOO

013702
005737
001023

OO0
— et

010246
005037
005037

LAtV

OO
— )

;1T ALSO PRINTS AN ERROR MESSAGE IF NOT INTERRUPTED

OOO0DOO00
Pe e b T
]

D00~

024054
024212

1%:

2%:

005037

(16024

005237

CLR
CLR

016026

016024
016024

1363

INTRTN: MOV

016024

016026

003720

MOV
TST
BNE

DEC

BNE
INC
cMP
BNE
{LR
INC

R2,
CONT

-(SP)

CONT1

CONST,R2

;;CLEAR LOCATION
;. CLEAR LOCATION

FLAG.2

s TIME CONSTANT
;s 1S INTERRUPT OCCURED?

R2
2%
CONT

: ;DECREMENT COUNT
;;BRANCH IF NOT ZERO

ggNT,#3720
CONT

CONT1

JoYES,EXIT

132000 DECIMAL

**BRANCH IF NOT EQUAL

*ZANOTHER COUNTETM

TEST

MAIN,

MACYY]

58”

816008

C2xLA.PYY

1§

1601

A(1052)

13-MAR-80

-80 07:39

8337;7

1383

016026

1¢ 016018 017737 006044
015
16

zo}g
NININONY
lolalels)
NORONON)
WO

2019

016020

012602

016026
016026
016030

00000
000000
000000

016022

000207

07:40

READ

PAGE
4

TIME OF

016030

026120

BNE
48:
CONT:
CONTY:
TIMES:

E
THE

SEQ 0056

CONTT, TIMES

(SR,

RTS

O
O
00

CLOCK

MOV

(SP)+,

ACSR

::DESIRE TIME EXPIRED?

:: INTERRUPT FAIL TO OCCUR

2:IF FLAG,2=0
SISTATUS
OF CSR
*RECOVER R2

MAIN.

MACYTT

CZKWLA.PYT

30A(1052)

3-MAR-B0

13-MAR-80 07:39

07:40

2025

5859

016032
016034

010246
005037

2032

016044

005302

2034

016050

005237

2033

2035
2036

016040

016046

016054
016062

013702

001376

023727
001366

2037
2038

016064
016070

005037
005337

2060

016076

012602

2039

016074

001361

2061
2042
2043
2044

016100
016102
016104

000207
000000
000000

2047
2048
2049
2050

016106
016112
016114
016120

105777
100016
117746
042716

2052

016130

2051

024054

016102

163032

2057
2058
2059

016146
016150

104406
000207

2062

016152

010246

2064

016156

01%?03

016166

005302

2065

016162

2067

016170

2066

010346
013702

016172
016176

005303
001372

2071
2072

016200
016202

012602
000207

228;4

016176

016204
016212

013777
032777

38‘7'3

8}6%.;{

000207

2077
¢

M62°20
2264

000007

18:
2s:
;
N

DFLAY:

000004

024054

18:

28:

(012403

2075
2076

001774

000000

DEC

INC

CONT?2

MOV

BNE

CONST,

SEQ 0057

CONT2,
13

BNE

WAIT2:
1%:
TCNT:

;:GET CONSTANT FOR G.SMSECOND
; sDECREMENT CONST

#3720

CONT?2
CONT3

(SP)+,

;:LO0OP BACK TILL 2ERO
i

; ;EQUIVALENT TO 2000
;:GO BACK IF NOT 1 SEC

I
32

;;LOOP BACK IF TIME QUANTOM NOT EXPIRED

; :RECOVER R2

TSTB
8PL
MOVB
8I(

asTks
2s
a8$TkB,
~(SP)
#°C177, (SP)

;:1S THERE A CHARACTER?
;:NO: DON'T WAIT
;;STORE CHAR ON STACK
::STRIP OFF THE ASCII

B8NE

JeNO: EXIT

787
JMP

CMP
BNE

43,

(SP)+
RESTRY

(SP)

;;EXIT FROM SUB ROUTINE

;;1S 1T CONTROL C?

(SP)+

::1S IT CONTROL G?
: :NO:BR

R2.

-(SP)

;:SAVE R2

MOV

F [

DEC

DEC
BNE

R3
18

MOV
RTS

(SP)+,
pPC

MOV
81T

TCNT,
3RGA
#8114, aCSR

RTS

GTSWR
RTS

MOV

MOV
BNE

»7,
23
PC

R3,

CONST,

BEQ

0000

-(SP)

(SP)+,

;THIS ROUTINE WAITS FOR
005656
005642

RTS
O
O

MOV

016224
040000

-(SP)

W,
BNE

001376

2068
2069

2070

CNTLC:

163026
177600

003530

016154

R2,
CONT2

CLR
DEC

CONTZ2:
CONTZ:

005726
000137

2063

MOV
CLR

MOV

0161%2
016134

022726
001001

003720

016102
016104

2053
2054

016140
016144

1 ¥
2s:

000003

001003

WAIT-

016102

022716

2060
2061

)

READ TIME OF THE CLOCF

STHIS IS WAIT ROUTINE

016124

2055
2056

2028
2029

%8.’3,(1)

PAGE 5

::SAVE R3

;2GET CONSTANT

; :COUNT DOWN

::BRANCH IF NOT 2ERO YET

R3
R?

A SECOND

;:RESTORE REGISTFR
. sRESTORE R2
: RETURN

;:SET COUNTER 10 WAIT
;oIS BIT14 SET?

::NO:BR

;:DESIRED TIME EXPIRED Re TURN

MATN,
MACYTY 30A(1052)
13-MAR-B0
TIKWLA P11
13-MAR-B0 07:39

07:40

2081
2082

D ad aud wd el ——d

WAIT1:

005614

)
D el

0.0, OO0
e

00372C

D e

000005
3$:
CONT4:

CONTS:

MOV
CLR
(LR
BIT
8£Q
MOV

;.18 _(HOLD BIT) RESET?
c;RETURN IF SET
s CONSTANT FOR 0.5SEC
;;DECREMENT CONST UNTIL 0.5 SECOND

DEC

BNE
INC
cMP
BNE
(LR
INC
o
o,
BNE
MOV

.sGET COUNTER FOR NUMBR OF 0.5 SEC
;;EQUIVALENT TO 1 SECOND
. sBRANCH IF SET
;o INITIALIZE COUNTER
;s COUNT NO OF SEC
;218 IT 5 SECOND YET?
. ;BRANCH IF NOT 3 SEC YET?
;;RECOVER R2

RTS

’

STHIS ROUTINE GETS CONTROL WHEN READY BIT FAILS TO SET.
JIN THIS ROUTINE VALID VALUES OF MONTH+DAY AND
JHOUR+MINUTE IS SET WHICH SUPPOSE TO SET READY BIT
; IN CSR.
;1F READY BIT FAILS TO SET PROGRAM HALTS.
;IF READY BIT SETS PROGRAM GOES TO CALLER.

X
99%88%
SAIIEI

WNONNNNONNNNE
NNNYN
N = NN N NN NN N N BSOS
NN
NN NNON WNNNNON
N NN N
=
N N - N

-—

N
— N

—

38 §9988§9988§
A A Pt
2o
A A e 4
PNV
—

FEPIITINIIINS

AN~
N

NN — [AVTe
ON\:g\nu\m
rmm)
JoUR X e Bl Fle YoV PNSR
SEEENERSIR

]
T
e
B
e

POOONONOOOOONO

[elelelelelele’elelelelalale’olelololalelolale

sd e
D el ol od e e
D
el el o, el
el e

PURLRLNUNY
NONUNLNY

s oy, all o B ot il gy, o

PNUMOROND

) v, el ol
et

NPV

1$:

2s:

NG —a
‘“L~"E§Q§ mm-ommmm--mmm--—-—‘-a—-—-—a-a—-a--ooogogooo
LS
QO N
AN BN NI 2OV~ NN DW= O 000N

016320
016322
000001

. ol e

D gl

NONUNLTUNUNLNUNUNU
NN NI PO N PO N~nN

—

2093
2094
2095
2096
2097
2098
2099

010246
005037
005037
032777

)

2092

:IN MAIN ROUTINE IN ANY CASE

—

2091

STHIS ROUTINE WAITS FOR HOLD BIT TO RESET IN TIME(3 SECOND)

—

2087

2088
2089
2090

SEQG 0058

:THIS ROUTINE GETS CONTROL FROM MAIN ROUTINE AND EX]TS

jeleilolelololele] j=lelelelelelelels)

2083
2084
2085
2086

PAGE 5-1

READ TIME OF THE (LOCK

020000

005530

000000
017000
024210

005522

140000
017073

005476
005472

017000
024210

#MIT13, aCSR

JSR
TST

005450
005444

024210
100000

005422
005416

100000

005374

000401
017000
024210

GETRDY: BIT
BEC
MOV

GET1:

GETZ2:

BNE
BR
MOV

MOV
JSR
TST
8EQ

MOV
MOV
JSR
TS1

BNE

MOV
MOV
JSR
TST
8NF
MOV

;21S 'M* BIT SET?
;;BRANCH IF CLEAR
;:SET READY BIT
;CHECK FOR READY BIT SET
;IS FLAG SET?

;:TRY OTHER WAY TO SET RDYBIT

#BIT15+BIT14,a(SR
#17073,

IRGO

J:EXIT IF READY BIT IS SET
;;SET BIT1S AND BIT14 TO GET RDYBIT SET
;:SET YEAR
;CHECK FOR READY BIT SET
;IS FLAG SET?

MmITI14,

#17073,

JJEXIT IF SET
:2SET VALID YEAR
::SET YEAR
JCHECK FOR READY BIT SET
;1S FLAG SET?
;2BRANCH IF READY B]T NOT SET
2.SET (ST) TImE
;2SET 1=-JANUARY IN RGO
;CHECK FOR READY BIT SET
;IS FLAG SET?
;;BRANCH TO HALT IF RDY DIDN'T SET

J:SET TIME (BIT15) IN CSR 10 SET

MAIN,

MACYTT

2133
2134
2135

016466
016476

012777
004737

000000
017000

005372

213%
2137
2138
2139

016504
016506
016514
016516

001405
017737
1046002

005350

001122

“IKWAA. P

(1)

076500

30A(1052)

005737

%}2?

01652C

000207

2146

016522

004737

2145
2146
2147

016526
016532
0165640

13-MAR-80

13-MAR-80 07:39

010437
017737
017737

(07:40

PAGE S5-2

READ TIME OF

MOV
JSR

024270

GET3:
GET4:

016152

016554
005332

00536

001122

RTS

016550
016552

000000
000000

SECOND: 00
DELTAT: 00

2153
2154
2155
2156
2167
2158
5}28

016556

000000

PREDLT: 00

aRG?
RDVBIT
BADA

JJWAIT FOR A WHILE

aC5R,

BADA

. JREAD STATUS OF

PRESEC
SECOND

s VALUE

005272

INIPRE: CLR
MOV

(1)
D]

016600
016605

004737
032777

017206
100000

005250

JSR
B8IT

PC,
DMT
#M]IT15,aCSR

817
BNE
(LR

MIT13, ACSR
2
aCSR

016572

012737

016612
016614
016620

001772
005737
001056

016636
016644
010652

012777
012737
004737

2166
2167
2168

016622
016630
016632

(1)
(1)

016656
016664

032777
001772

016702

001032

2171
2172
2173

016666
016672
016674

2175
2176
(1)
(1)
(1

2177
2178

(SR

;
JTHIS ROUTINE WILL CAUSE °'M' BIT TO SET
1T WILL PRINT ERROR IF °'M' BIT OR/AND (DIE)
;BIT DIDN'T SET IN CSR WHILE SETTING PRESET
005276
000000

2174

;cPREVIOUS SECOND
;;READ CURRENT VALUE OF SECOND

PRESEC: 00

005077
012777

2169
2170
(1)

2 :BRANCH TO RETURN
. .GET STATUS OfF (SR
.;HARD ERROR: READY BIT FAJL TO SET

DELAY

016560
016564

(1)
2164
2165

;15 FLAG SET?

;sRETURN TO CALLER

2161
2162

2163

s sHOUR;MINUTE
;.0 HOUR+Q MINUTE
;CHECK FOR READY BIT SET

PC,

2150
2151

SEJ 0059

RTS

MOV

000207

000000

FLAG.1

RG,
RG4S,

016546

016554

#0,
PC,

MoV
MOV

ggzg

2152

(LOCK

BEQ
GETS
MOV
a(CSR,
ERROR+?2
HALT

GETTIM: JSR

01655C

THE

032777
001057
005077

Q77777

024052

024210

020000
005224

105225
Q77777

017206
100000

005232
005222
024052
005176

005737
001031
032777

024210

020000

005160

0167206
016210

005077
0127277

005152
Q00000

005152

0167224
016730
016736

004737
032777
001772

017206
100000

067216

(16740

012737
005737

Q772777
024210

(024052
005124

MOV

BEQ
TST
8NE

aCSR
#0

RGO

#77777.,COUNTR
=12
FLAG.?
1%

MOV
MOV
JSR

#105225.,8RG2
#77777 ,COUNTR

IS8T
BNE

FLAG.1
1%
#MIT13, ICSR

BIT
BEQ

PC,
oMT
#B]T15,3CSR
.~12

8IT
BNE

(LR
MOV

aCSR
#0

JSR
BIT
BEQ

PC,
DMt
MIT15,a(SR
~12

MOV
TST

SRG4

l?????,(OUNTR
FLAG.1

;. CLEAR CSR
2 PRESET MONTH+DAY

;:DELAY LOOP SETUP

;:DEAD MAN TIMER ROUTINE
;215 DE BIT SET

;:TRY AGAIN
;:1S (DE) BIT SET IN CSR?
;:BRANCH IF NOT SET

::1S M BIT SET IN (CSR?
;:BRANCH IF SET
;;CLEAR CSR

;;PRESET HOUR+MIN
;;DELAY LOOP SETUP
;:DEAD MAN TIMER ROUTINE
;2 1S DE BIT SET
;:TRY AGAIN

::1S (DE) BIT SET?
;:BRANCH IF (DE) BIT NOT SET

;18 'M' BIT SET?
22EXIT IF SETY
;;CLEAR CSR
;:PRESET SECOND

; :DELAY LOOP SETULP

;:DEAD MAN TIMER ROUTINE
;1S DE BIT SET
::TRY AGAIN

;2 IS (DE) SET?

MAIN,
MACYIT 3DA(1052)
13-MAR-B0
rIXA.P1
13-MAR-80 07:39

OO PO OONO0
e 1o 1o -]
3m\|&m1\wm-fl8~ogwgm§wm—d

AT V1N LN, O LN TN TN LT, S 1,V 1N Y. ST, VT.NY. ST VY, VY

2179
2180

0167446
016746
01675¢
016756
016764
016766
016770
016776

001004
032777
001005
017737
104030
000000
012777
000207

07:40 PAGE 5-3
READ TiME OF THE (LOCK

020000

005106

005100

001122

1%:

000000

005064

2%:

017000
017004
017012
017020
017022
017026
017030
017036

005037
012737
032777
001006
005337
001371
012737
000207

024210
077777
000200

024052
00504¢

024052

000001

024210

017064

017052
017060

017070
017076
017076
017102
0172104

017106
017110
017114
017116

010446
012704
005037

000005
024210

062716

057577

012737
017746
022726
001407
005337
001366
005304

001361
005237

012604
000207

077777
004776

024052

017120
012122
0171264
017130
017134
017142

010446
010346
012703
005037
012737
017706

2028
2229
2230
2231
2232

017152
017156
017160
0172164
012166

022704
001410
005337
001366
005303

223

017172

012737

2233

FLAG.
#77777. COUNTR
MIT7, (SR
2
COUNTR
1%
1,
FLAG.1?
PC

;:SET UP LOOP COUNTER
-:1S READY BIT SET IN (CSR?
L:BRANCH IF SET
; sDECREMENT {OOP COUNTER
::TRY AGAIN
J:SET FLAG :READY BIT NOT SET
JoEXIT

3$:
1s:

024052

024210

2%:

MOV
MOV

BIC

RG,
»5,
FLAG.1

-(5P)
R4

::STORE R4
¥

#77777 ,COUNTR
SR, ~ -(SP)

#57507, (SP)

TM
BEQ
DEC
BNE
DEC

MBITIS+BITI3+BIT7,(SP)+
2s
COUNTR
s
R

MOV
RTS

(SPY+,
PC

BNE
INC

s
FLAG.1

:;WAIT MORE

;THIS ROUTINE WAITS FOR READY BIT TO SET

2221
2222
2223
22264
2225
2226

2227

H
RDYCKT: MOV
MOV
CLR

120200

2218

2219
2220

RDYBIT: (LR
MOV
18:
BIT
BNE
DEC
BNE
MOV
2%:
RTS
;

2207

2215
gg}g

:;CLEAR (SR
JJEXIT

‘DEAD MAN TIMER

017040
017042
017046

2013
2214

;;BRANCH IF NOT
J:IS M BIT SET?
;sBRANCH IF SET
:;READ STATUS OF (SR
J:"M'BIT OR (DE) BIT FAIL TO >FY

2201
2202
2203
2204

2208
2209
2210
2211
2212

BNE
1%
817
#MIT13, (SR
BNE
é 3
MOV
(SR,
BADA
ERROR+30
HALT
MOV
20,
2(SR
RTS
P(

2200

2205
2206

SEQ 0060

017146

012170

062704

001341

000005
024210
077777
004714

024052

077577

BIC

100200

cTMP
BEQ
DEC
BNE
DEC

024052

000001

*IF READY BIT DIDN'T SET, FLAG.1 IS SET TO
SINDICATE READY BIT FAIL TO SET.
RDYCK: MOV
RG,
-(SP)
: :SAVE Ré4
MOV
R3.
-(SP)
*:SAVE R3
MOV
iy
R3
Y
CLR
FLAG,1
18%:
MOV
#77777. COUNTR
2%:
MOV
aCSR, ~ R4
::READ (SR

024210

BNE

MOV

#775%7. R4

#MIT15+8IT7,
3¢
COUNTR
2
R3

FiAG.1

2235
223

017200
017202

2237
2238
2239
2260
2241
2262
2243
2264
2265
2246

017204

017206
017212
017216
017220
017226
017232

30A(1052)

12-MAR-BO

13-MAR-80 07:3%

07:40

PAGE 5-4

3s:

MOy
MOV
RTS

(SP)+,
(SP)+,
PC

(LR
DEC
8GT
MOV
ADD
RTS

FLAG.1
COUNTR
1%
”1,
210,
PC

012603
012604

000207
005037
005337
003005
012737
062716
000207

000001
000010

0264210
18:
:

22647

017234
017236
0172640
017242
01724646
017246
017250
017252
017254
017260
017262
017264
017266
017270
017272

010046
010246
010446
010546
104401
027306
104401
(27041
(013746
104402
104401
027350
104412
012604
022704

2267
2268

017300
017304

042704
012705

017314
017316
017322
017324
Q017326
017330
017334
017336
017340
017342
017344
017346
017352
017354
017360
017364
017370
017374
017402
Q17406
017412

050425
020527
001372
104401
(027067
0137246
104402
104401
027350
104412
012604
022704
001454
013702
062702
010277
010237
012777
062702
Q10277
010237

2269

2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290

SEQ 0061

R3
R4

::RESTORE R3
:RESTORE Ré&

FLAG.1
(SP)

2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2250
2261
2262
2263
2264
2265

2266

READ TIME OF THE (LOCK

;
:
DMT:

024210
024052

L%,]

MACYTT

MAIN,

(IKWL A P11

017276

017310

001412

042715

024064

;
;
DEVCOD: MOV
MOV
MOV
MOV
TYPE
DCMSG7
TYPE
DCMSG?2
MOV

000000

TYPE
DCMSGX
RCOCT
MOV
", o

DC4:

024072
DCS:

024072

000000
024072
000002
004502
024074
000004
000004
004464
024100

004472

. :SAVE
;1:SAVE
::SAVE
;sSAVE

RO
R2
R4
RS

;" ENTER VALUES AFTER(=)

IS TYPED"'

HE
DEVICE ADDRESS(
="'
;:STARTING ADDRESS OF DEVICE

(SP)+,
#0

R4
R4

s:TYPE' D=
2;GET OCTAL NUMBER
;;GET NUMBER FROM TOP OF THE STACK
;IS IT *CR*?

BIC
MOV

”7,
#({SR

R4
RS

;sCLEAR LAST THREE BITS
::GET ADDRESS

BIS
cMP
BNE
TYPE
DCMSG3
MOV
TYPOC
TYPE
DCMSGX
RDOCT
MOV
(MP
BEQ
MOV
ADD
MOV
MOV
MOV
ADD
MOV
MOV

R4,
RS,
DC4

(R5)+
#PCV0

PCVO,

~(SP)

BEQ

177770

.
-(SP)
-(SP)
-{SP)
-{SP)

-(SP)

TYPOC

000007
024062

RO,
R2.
R&,
RS,

81C

RGO,

ocs

#177770.(RS)

(SP)+,
#0,
DCo
PLVO,
"2,
R2.
R2,

'7
””%,
RC,
R2.

R4
R4
RZ
R2
aP{V0
PSVO
aPsSv0
R2
aPCv1
PSV1

::YES:BR

2 :CLEAR UNWANTED BITS

HH
s
i

J:TYPE PC INTRPT VECTOR(
22

i
;;READ VECTOR VALUE
I
2218 IT "CR*?
JIYES:BR
;.GET PREYIQUS ADDRESS
::NEXT ADDRESS
HH
i

23
b
J.
J:

012777
010437
012777
062704
012777
062704
010437
012777
062704

010437
012777

07:40 PAGE 5-5
READ TIME OF THE CLOCK

MOV
MOV

0,
RG .

aPsV1
PCVO

1 INEW ADDRESS

000002

ADD

22,

;- INCREMENT ADDRESS BY 2

“NEXT ADDRESS

BRLV,
R,

R4
-(SP)

;. BUS REQUEST LEVEL(

MOV
P
8GE
MOV

(SP)+,
#0
DC?
RG,

R4
R4
BRLV

MOV
MOV
MOV

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

R4
R2
RO

017554

004434

MOV

000340 004426

MOV

024076
017662 004410
000002
024100
000340 004374

MOV
MOV
ADD
MOV
MOV

000002

DC6:

024102

#PR7,

82,

APSVO

RS
PCVI
#TIMRTN,PCV1
"2,
R4
RG.
PSV1
#PR7,
aPSV1

TYPE

DCMSGS

MOV
MOV

TYPOC
TYPE

027350

> ADDRESS OF INTERRUPT ROUTINE

)=''

L
.

()

DCMSGX

104412

RDOCT

000000
024102

DC7:

o
L=

—

#INTRPT ,aP(VO

ADD

104401

012604
022704
002002
010437
012605

SEQ 0062

000004 004456
024072

104401

027171
013704
010446
104402

FRERRNNUBE
RSR
o~ »
&» N

A,]VHALAWAWNAA
L VDAV AN

D wed v
crd
wmd e
el
e
—d oed e cord el e

NN N NN NN SN NN N NN

jelelelolololalolelololalelelale

13-MAR-80

MOV

(SP)+,

RTS

Y3IS IT 'CR'?

**RESTORE REGISTERS
re
..

,e
.

8358

100000

001122

024120
024120

INTRPT: MOV
MOV

5%:
1%3:
28:

MOV

#0,

BI7

#100,

MOV
CLR

BNE

ACSR,
FLAG.2

ERROR+20

817

BNE

TEMPI
ACSR

aCSR

BADA

ACSR

#100000,ACSR

3$:

024212

4%:

e
”2,
BEQ
43
ERROR+22
INC
FLAG.2

024220
024212
004172
004156
004150

:TIME INTERVAL INTERRUPT ROUTINE
TIMRTN: MOV
(SP),
TEMP2
CLR
FLAG.Z2
MOV
8RG4,
BAD
MOV
a(SR,
A(SR
(LR
alSR

024226

000002

024226

(SP),
aCSR,

ERROR+21
gEHO,
z;.

d )

NO
LN
YO
AN
O MO
PO NN = NN N~ =

—280

000100

004266

000001

Son

024120
024212

024120

[a¥]
Lo]

~
~

024216
004276

1A% 1,8)
o0

g o 2 o 2353

lelelelel
293
R 222338
Vi FR8%%

phar

-—

QO
P

)

lele]

O
—
—

(=}

—b
— ——d

[=] o o

SAIHANN
N =
NONNNO
NN
N
AN
O 2 NN NN NN

;DATE + TIME INTERRUPT ROUTINE

N AN L LN LN AN LA
N U N N AN N N AN N N
=D —d e o od D D sk = b
PIFUAIRY ORI
AN
L L o s

~OY

L A U
RRERREY 0
L

=—d

017472
017476

AIRUNLNINUNINLNUASRIAINUNINUPU
NI RN R NNV NN NININONLNL NN A N NI RN PN N

2300
3301

017416
017426
017430
0176%
017442
017450
017454
017460
017466

BLERRIREEERY AW
= O OO WS NN = OFRIRERE

2291
2092
2293
2206
2295
2296
2297
2098
2299

30A(1052)

13-MAR-80 07:39

MACYTT

MAIN,

CIKWLA P11

001126
024120

INTREG

RTI

:;RETURN ADDRESS
;. STORE CONTENT OF (SR
;;CLEAR (SR (DISABLE INTERRUPT)

2:CLR FLAG
2 WAS INTRPT ENABLED?
:;BRANCH IF YES
sJUNEXPECTED INTRPT AS (DIE) NOT SET
;:WAS (DE) BIT SET?
2 :BRANCH IF YES
SSUNEXP INTRPT AS (DE) 81T NOT SET
;IS 1T UPDATE INT?
J:PRANCH IF YES

S BRANCH IF YES

*SUNEXP UNEXPLAINABLE INTRPT

2 JRETURN

;READ TIME INTERVAL

MACYTT 30A(1052)
MAIN,
13-MAR-B0
CIKWRA.PIY
13-MAR-80 07:39

017712

040000
024212
000040

024120

18:

g‘[é

0327357
001001

040000

024120

28:

BIT

022737
001401

000005

005237
000002

024212

104020

—

104022

004150

024226

;:CLEAR INTRPT ENABLE FLAG

#40000, ACSR

cc(TI) BIT SET IN (SR

520.

ERROR+20

BNE

SEQ 0063

#40000, aRG4
FLAG.2

ACSR

;s TIME INTRPT WAS ENABLED?

s SUNEXPECTED INTERRUPT

3s:
48:

)IQ":!E

017770
017772

012600
104401

020000

052600
041505
051124
020117
051117
047522
000
020046
010046
104402
000000
000137

042516
042524
050101
062526
032040
020115

050130
020104
052040
052103
043040
027056

1$:

2%:

ERROR+22

MOV

TYPE

LASCIZ

.EVEN

MOV

TYPOC

HALT

001712

JMP

000422

TRAP4:

; cBRANCH [F YES

INTREG

s :FLAG FOR TIMEINTERVAL INTRP
: sBRANCH IF YES

s JUNEXPECTED INTERRUPT

FLAG.2

s;FLAG TO INDICATE

INTERRUPTED

(SP)+,
.

;;POP STACK INTO RO

<200>/UNEXPECTED TRAP TO VECTOR 4 FROM ../

RO,

~(SP)

;SAVE RO FOR TYPQUT
;.G0 TYPE OCTAL ASCII

START

END OF PASS ROUTINE

AR AR AR AN A AT AR A AN

RN TR

AR AR AN

A RANA AR

RAARA A AN AN AR

AARERAN

:*INCREMENT THE PASS NUMBER (SPASS)

;*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)

;x]F THERES A MONITOR GO 1O IT
;*IF THERE ISN'T JUMP TO START

—

8iC
(LR

ERROR+23
Me
5,
8EQ
43

.SBTTL

T
NN

THE (LOCK

; TRAP ROUTINE

.o—o—a—i—o—a—..a—b—)—b—o—o—a-—t_;f\)—nfl\‘\'\j
Nt Nt it sl Nt Nl Nl Nt N Nt N N N Nkt ol ot st N
ot
[ XV T NPV

PAGE 5-6

READ TIME OF

042777
005037
032737
001001

104023

N N N

VN ~

NINININININD)
NN NN
AN o

017720
017726
017732
017734

07:40

000004

005037
005037
005237
042737
005327

003022
012737
00000
020106
104401

$EOP:

001102
001172
001214

100000

001214
$EOP(T:

020165

SCOPE
CLR
CLR
INC
BIC
DEC

. WORD
867
MOV
$END(T: . WORD
$EOPCT
TYPE

STSTNM
$TIMES
$PASS

#100000,8PASS
gPC)+
$DOAGN

;<ZERQO THE TEST NUMBER
2. ZERQO THE NUMBER OF ITERATIONS
;; INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
2:;L00P?
;2YES

%PC)*.B(PC)*

;;RESTORE COUNTER

, SENDMG

J;TYPE "END PASS ¥’

13-MAR-80
JUAIN,
MACY11 30A(1052)
(IKWLA.P11
13-MAR-80 07:39
(2)
A

001214

013700
007405
000005
004710
000240
000240
000240

000042

e v e
e e e v

&uww—-\«,\ e e T W .

e v e M S (D NDO0 N

S v e v

000137
001712
377
015
050040
000043

020162

B8EQ

RESET

$ENDAD: JSR

377
042412
0515017

000
04211€
020123

b TN\

et e e i ta

b md

$PASS ,~(SP)
LSENULL
a6l RO

22SAVE SPASS FOR TYPEQUT
..G0 TYPE——DECIMAL ASCII WITH SIGN
;o TYPE A NULL CHARACTER
;>GET MONITOR ADDRESS

SDOAGN

2 ;BRANCH IF NO MONITOR

PC, (RO)

2:6G0 TO MONITOR

s(PC)+

; ;RETURN

;s CLEAR THE WORLD

;:SAVE R00M
;2FOR
JACTN

START
- 1,-1,0

:;NULL CHARACTER STRING

<15><12>/END PASS’ #/

MC_MD,CND
TYPE ROUTINE
AR

A AR AR

JeNOTE1:
:*NOTE2:
=NOTE3:

A AT R

A AR AR AR

AN AR AR

AAARARATARRARRAR AN

e S v

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

. %

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

N N
e Nt e Wt M Nt o N N N M N N N N N M M

SEQ 0064

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

N N N N

.WORD
.BYTE

SENDMG: .ASCIZ

SRR

D e d d ad

it et

JMP

SRINAD:
SENULL:

.NLIST
.SBTTL

Wy
e

NOP
NOP
NOP

$DOAGN:

okt b}

R
R

END OF PASS ROUTINE

$GET42: MOV

J®

e e

et ol d oD o et e o o

M
e R

i end o sl e

v e

o
o

PAGE 5-7

MOV
TYPDS
TYPE

PNININOND

013746
104405
104401

-y

-—

(2)

(7:40

- %

020202
020206
020210
020212

105737
100002

000000
000430
010046
017600
122737
001011
132737
001405
010037
004737
000000
132737
001003
112046
001005
005726
012600

001157

$TYPE:

1%:

000002
000001

001226

000100

001227

020252
020472
000040

001227

TYPE

MESADR
TS18B

STPFLG

MOV

RO,~(SP)

8PL
HALT
BR

;:1S THERE A TERMINAL?

2:BR IF YES
;JHRALT HERE IF NO TERMINAL
2 s LEAVE

;2SAVE RO

MOV
cMPB
BNE

82(SP) RO
NAPTENV , SENV
62%

2:GET ADDRESS OF ASCIZ STRING
2 ;RUNNING IN APT MODE
JINO,GO CHECK FOR APT CONSOLE

BEQ
MOV
JSR

62%
RO,61%
PC,SATY3

2IND,GD CHECK FOR CONSOLE
;;SETUP MESSAGE ADDRESS FOR APTY
;:SPOOL MESSAGE TO APT

BNE

608

;s YES,SKIP TYPE OUT

TST

(SP)+

BITB

61%:
628 :

;JMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

.WORD
BITB

2%:

MOv8B
BNE

60%:

MOV

#APTSPOOL
, SENVM ;- SPOOL MESSAGE TO APT

O
#APTCSUP,SENVM

s MESSAGE ADDRESS
:APT CONSOLE SUPPRESSED

(RO)+,-(SP)
43

;;PUSH CHARACTER TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR

{SP)+,R0O

. sRESTORE RO

;:1F

TERMINATOR POP IT OFF

THE STA(K

MAIN,

MACYTT

CIKWLA.P11
(1)

020276

30A(1052)

ADD

#2,(SP)

;:ADJUST RETURN P(

122716

000011

4%:

(MPR

#HT, (SP)

:;BRANCH IF <HD>

BEQ

(1)

020306

001430

020310
020314
020316

(1)

020324

(1)
(1)

(1)

(1)
(1)

020320
020322

122716
001006
005726

000200

105037

020460

104401
001203

020330
020332

000755
004737

020342
020344

001350
013746

020350

105366

000001

004737

020414

020336

123726

(1)

020354

002770

1)
; })

Q20362
020366

105337
000770

(1)

020356

TYPE
SCRLF

CLRB

020414

5%:

001156

6$:

001154
7%:

020460

(1)

(1Y

(1)

(1)
(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)
g; ;

020370
020374
020400

112716
004737
132737

000040
020414
000007

020406
020410

001372
005726

020414

105777

160530

116677
122766
001003
105037
000406
122766
001402

000002
000015

020412

020420

020422
020430
020436
020440
020444
020446
020454
020456
020460
020462

000724
100375

020460

8%:
9%:

$CHARCNT

::CLEAR CHARACTER COUNT

;:POP

<CR><LF> EQUIV

;:TYPE A CR AND LF

::GET NEXT CHARACTER
::GO TYPE THIS CHARACTER

BNE
MOV

2%
SNULL - (SP)

;.
IF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED

DE(8

1(SP)

{MP8

SFILLC,(SP)+

BLT

DECB
B8R

$CHARCNT
78

B8PL

160522
000002

020460
000012

(1)
E“

020500
858%%

000403
112737

(3)
(3)

020510
020512

010046
010146

(1Y

020522

122737

0206472

020514
020520

112737

105737
001450

MOVB
JSR
BITB

BNE
TSY

000002

18:

MOVB
(MPB
BNE
CLRB
BR
(MP8
BEQ

INCB
$SCHARCNT: .WORD
STYPEX: RTS

.SBTTL

020464

(1)
(1)

;BRANCH IF NOT <CRLF>

2%
PCSTYPEC

$STYPEC: TSTB

105227
000000
000207

(1)
(1)

#CRLF , (SP)
5%
{(SP)+

PC.STYPEC

;:IS IT TIME FOR FILLER CHARS.?

;:AND THE NULL CHAR.
;;DOES A NULL NEED TO BE TYPED?

;:BR IF NO--GO POP THE NULL OFF OF STACK
;.60 TYPE A NULL

::DO NOT COUNT AS A COUNT
;. LOOP

;HOR]ZONTAL TAB PROCESSOR

2%?;
(2)

:RETURN

8R
JSR

JSR

)

(1)
(1)

RT]

(TMMPB
BNE
TST

E %;

(1)
(1)
(1)

SEQ 0065,

3s:

000002

(1)
(1)
(1)

PAGE 5-8

TYPE ROUTINE

000002

020300

020302

07:40

062716

(1)

13-MAR-BO

13-MAR-80 07:39

000001
000001

000001

020730

000001

::TAB STOP
+:POP SPACE OFF STACK
;:GET NEXT CHARACTER

9s
(SP)+

asTPS

STYPEC

2(SP) ,as71P8
#CR,2(SP)
1%
SCHARCNT
STYPEX
MF,2(SP)
STYPEX

(PC)+
0
PC

J2WAIT UNTIL PRINTER IS READY

::LOAD CHAR TO BE TYPED [NTO DATA REG.
221S CHARACTER A CARRJAGE RETURN?
;;BRANCH IF NO
;s YES~=CLEAR CHARACTER COUNT
JoEXIT
;;1S CHARACTER A LINE FEED?
;:BRANCH IF YES
;;COUNT THE CHARACTER
;;CHARACTER COUNT STORAGE

';ttttttttttttttt'ttttttttttttttttttttttttttttttttttttttttttttttt

SATY3:

$ATY1:

MOVB

020730

:fl;é:

001226

; ;REPLACE TAB WITH SPACE
:;TYPE A SPACE
2 :BRANCH IF NOT AT

APT COMMUNICATIONS ROUTINE

020726

#' ,(SP)
PC,STYPEC
#7 ,SCHARCNT

#1.8FFLG

;: 70 REPORT FATAL ERROR

BR
MOVB

SATYC
”,SFFLG

;:TO ONLY REPORT FATAL ERROR

MOV
MOV

RO,-(SP)
R1,-(SP)

;:PUSH RO ON STACK
::PUSH R1 ON STACK

(TMMPB

#APTENV, SENV

; :OPERATING UNDER APT?

MOVB

1ST8
BEQ

¥ ,8MFLG

LG
5%

;.70 TYPE A MESSAGE

;;SHOULD TYPE A MESSAGE?
::IF NOT:
BR

MAIN,
MACYTT 30A(1052)
13-MAR~-BO
CIKWA.P1T
13-MAR-80 07:39

(1)

(1)
(1)
(1)

(1)
(1)

(1)

020530

001031

020540

001425

020532

020560 001375
020562 010037

020566

020570
020572

(1)
(1)
(1)
(1)
(1)
(3)

020600
020606
020612
020614
020622
020630

(1)
(1)
(1)
(1)
(1)
(1)

020576

02063
020640
020642
020642
020646
020650

RO, SMSGLGT
#4 . SMSGTYPE
(1
34 (SP) .48
#2.,4(SP)
177776.,-(SP)

::PUT MSG ADDR IN JSR LINKAGE
- -BUMP RETURN ADDRESS
;:PUSH 177776 ON STACK

15718

$FFLG

;s SHOULD REPORT FATAL ERROR?

020202

105737

020730

001416

005737

001226

005737
001375
017637

001206

105037
105037
105037

020730
020727
020726

000
000

(1Y

020730

(1)
(1)
1)

201222

004737
000000

020726
020727

(1)

000004
000002
001206

28:

(1)

BNE
MOy

1S18

ASR

001206
020640
000004

3$:
48:
5§
108:

118:

007210
000004
128:

000207

SMFLG:
$LFLG:

000

$FFLG:

020732

000200
000001
000100

JSR
WORD

BEQ

(RDY+

PC.STYPE
O
128

SENV

1ST
BNE
MOV

SMSGTYPE
118
84 (SP) ,SFATAL

BEQ

128

ADD
INC

#2.4(5P)
SMSGTYPE

MOV
MOV

(sP)+,R1
(SP)+.RO

CLRB
CLRB
CLRB

SFFLG
SLFLG
STMLG

RTS

.BYTE

.BYTE
.BYTE

.EVEN

0
0

“FIND END OF MESSAGE

::GET MESSAGE LNGTH IN WORDS

S:PUT LENGTH IN MAILBOX
*:TELL APT TO TAKE MSG.

*3CALL TYPE MACRO

“:IF NOT:

S:IF NOT:

Z:RUNNING UNDER APT?

: :FINISHED LAST MESSAGE?
YIIF NOT: WAIT
::GET ERROR #

; :BUMP RETURN ADDR.
::TELL APT TO TAKE ERROR

“:CLEAR FATAL FLAG
Z:CLEAR LOG FLAG
::CLEAR MESSAGE FLAG

*:POP STACK INTO R1
*:POP STACK INTO RO
* *RETURN

1IMESSG. FLAG
SIL0G FLAG
;sFATAL FLAG

APTS1ZE=200
APTENV=001
APTSPOOL =100

000040

%?.;

B8R

*1GET MESSAGE ADDR.
::BUMP RETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?

MOV
MOV
B8R
MOV
ADD
MOV

012601
012600

020726

PIIF NOT:

@ (SP) ,RO
#2.4(5P)
SMSGTYPE

010037 . 1224
012737
004
000413
017637 000004
062766 000002
013746 177776

020720
020722

(1)

MOV
ADD
ST

::SUB START OF MESSAGE

062766
005237

(1)
(1)

001222

006260

020672
020700

(3)
(3)

::IF NOT:

2s
$MSGAD , RO

(1)
(1)

020704
020710
620714

#APTSPOOL.SENVM - :SHOULD SPOOL MESSAGES?

BNE
SuB

105720

001376
163700

001413

(1)
(1)
(1)

SEQ 0066

BITB

BEQ

18:

SIIF NOT: WAIT
SIPUT ADDR IN MAILBOX

020654

020656
020662
020664

BNE

001227

1s
RO, SMSGAD

(1)

(1)
(1)
(1)

000100

020542 017600 000004
020546 062766 000002 000004
020554 005737 001206

(1)
(1)
(1)

132737

07:40 PAGE 5-9
APT COMMUNICATIONS ROUTINE

APTCSUP=040
.SBTTL

TTY INPUT ROUTINE

(2)

;"tt"ttttt*ttttttttfitttttt**tttttttttlttttttttttltttttttttlttt*t'

fl g

"ENABL

(2)

;;ttitttttttttttttttt'tt"'*ttttttttttttttttttttltttfitfifitttitttt't

1 *SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

(1)
(1)
(1)

(1)
(1)

LSB

S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL

020232
020740

022737
001114

000176

001140

T *WHEN OPERATING IN TTY FLAG MODE.

$CKSWR: CMP
BNE

#SWREG, SWR
15%

;71S THE SOFT-SWR SELECTED?
* BRANCH IF NO

MAIN,
MACYT1 30A(1052)
13-MAR-80
(KA. P
13-MAR-80 07:39
(1)

020742

105777

(1)

020766

100111

(1)

020754

042716

(1>

(1)

(1)
(1)

g};
(1)
(1)
(2)

(2)
(1)
(1)
(1)
(1)

g})

)

020750

117746

07:40 PAGE 5-10
TTY INPUT ROUTINE

160176

IST8

BPL

160172

MOVB

@$TKS

CEQ 0067
::CHAR THERE?

15%

SIF NO, DON'T WAIT AROUND

aSTKB,-(SP)

1:SAVE THE CHAR

177600

BIC

#°C177,(5P)

*:STRIP-OFF THE ASCIi

020774

001102
127727

001476

001134

BNE
CMPE8

15§
SAUTOB.#"

:*NO, RETURN TO USER
S:ARE WE RUNNING IN AUTO-MODE?

020776
021002
021006

104401
104401
013746

021544
021551
000176

020760
020764
020766

021012
021014
021020
021022
021026

021030

022726

104402
104401
005046
005046
105777

100375

000007

021562

160114

¥,

BEQ
$GTSWR:

19%:

TYPE
TYPE
MOV
TYPOC
TYPE
CLR
CLR
TSTB

BPL

#7.(SP3+
158

::1S IT A CONTROL G2
$:BRANCH IF YES

L$CNTLG
_SMSWR
SWREG,~(SP)

;;ECHO THE CONTROL=G (*G)
>TYPE CURRENT CONTENTS
::SAVE SWREG FOR TYPEOUT
$:GO TYPE——OCTAL ASCII(ALL DIGITS)

, SMNEW
-(SP)

S:PROMPT FOR NEW SWR
;:CLEAR COUNTER

-(SP)
as$TKS

t:THE NEW SWR
*:CHAR THERE?

*3IF NOT TRY AGAIN

(1)

021032

021036

042716

177600

BIC

MOVB

a$TKB,-(SP)

;:PICK UP CHAR

(1)
(1)

021042
021046

021627
001015

000003

M
BNE

(SP) 43
9s

;:1S 1T A CONTROL-C?
S:BRANCH IF NOT

(1)
(1)
(1)

021054
021060
021066

062706
123727
001003

000006
001135

ADD
CMPB
BNE

#6,5P
SINTAG,#1
8s

$:CLEAN UP STACK
*:REENABLE TTY KEYBOARD INTERRUPTS?
J:BRANCH IF NO

E};

021076

000137

RESTRT

*:CONTROL~-C RESTART

(SP) ,#25

;:1S

19$

S:LET'S TRY IT AGAIN

2};

(1)

(1)
(1)

(1)
(')
(1)

E};
(1)

021050

021070

021102

021106
021110
021114

021120

117746

104401

003530

8% :

021627

000025

9s:

001005
104401
062706

000737

021627
001022
005766
001403

1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

021144
021150
021154
021162
021164
021172
021174
021200

062706
104401
123727
001003
012777
000002
004737
021627

(1)
(1
(1)

021206
021212
021214

021627
003015
062726

(1)

021204

TYPE

000100

021152
021126
021130
021134

021136

021532

012777

(1
(1
(1)
(1)

(1)

160110

016677

002420

021537
000006

208:

000015

108 :

000004
000002

000006
001203
001135

000100
020414
000060

000067
000060

11$:
148 :

15%:
168:

MOV
JMP

cmp

#°C177,(5P)
LSCNTLC

#100,387TKS

SIMAKE IT 7-BIT ASCII
$IYES, ECHO CONTROL-C

(~C)

$:ALLOW TTY KEYBOARD INTERRUPTS

IT A CONTROL-U?

BNE
TYPE
ADD

108
LSCNTLU
#6,SP

cMp
BNE
ST
BEQ

(SP) ,#15
16%
4(SP)
118

2218 IT A <CR>?
;BRANCH IF NO
SIYES, IS IT THE FIRST CHAR?
S:BRANCH IF YES

ADD
TYPE
(MP8
BNE
MOV
RTI
JSR
P

#6,SP
L$CRLF
SINTAG.M
158
#100,387KS
PC,STYPEC
(SP) , #60

::CLEAR UP STACK
S:ECHO <CR> AND <LF>
SIRE-ENABLE TTY KBD INTERRUPTS?
::BRANCH IF NOT
S:RE-ENABLE TTY KBD INTERRUPTS
: ;RETURN
ZZECHO CHAR
S:CHAR < 07

cMP
BGT
BIC

(SP) ,#67
18%
#60, (SP)+

SICHAR > 7?7
SIBRANCH IF YES
SISTRIP~OFF ASCIi

MOV

BLT

2(SP) ,aSWR

188

S:BRANCH IF NOT
$:YES, ECHO CONTROL-U (*U)
::IGNORE PREVIOUS [NPUT

;:SAVE NEW SWR

L BRANCH IF YES

CMAIN,
MACYTT 30A(1052)
13-MAR-B0
CIKWLA, P1Y
13-MAR-80 07:39
(1)
(1)
(1)

021220
021226
021226

(1)
(1)
(1)
(1)
(1)
(1)
1)

0212%2
0212346
021240
021244
021246

(1)

0212

021252

005766
001403
006316

07:40 PAGL 5-11
TTY INPUT ROUTINE

000002

006316
006316
005266
056616
000667
104401

000720

TST
8EQ
ASL

2{(SP)
17%
(SP)

ASL
INC
BIS
BR
TYPE

(SP)
2(SP)
<2(SP) ,(SP)
7%
,SQUES

ASL

000002
177776

17%.

001202

18%:

DSABL

?RSB

2215 THIS THE FIRST (HAR
;s sBRANCH IF YES
;:NO, SHIFT PRESENT

(SP)

(HAR OVER TO MAKE

.
ROOM FOR NEW ONE.
;:KEEP COUNT OF CHAR
::SET IN NEW CHAR
::GET THE NEXT ONE
JsTYPE 2<CR><LF>

20%

;JSIMULATE CONTROL-U

1)
(1)

(2)

JxCALL:
M
i
Ix

1)
g};

(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)

021254
021256
021264
021270
021272

021300
021306

(1)
(1)

021314
021316

021354

(1)

02133&

(1)

(1)
(1)

(1)
(1)
(1)
(1)
(1)
(2)

A AR AN AR AR A AN

021322

021330

021340

0213%2
021344

021352
021354
02132
021364
021372

011646
016666
105777
100375
117766

042766
026627
001013
105777

100375

000006
157654

000002

157650

0000C4

177600
000004

000004
000023

157622

RDCHR
RETURN HERE

$SRDCHR: MOV
MOV
1%:
TSTB
BPL
MOVB

8IC
CMP

28:

BNE
TSTB

BPL

117746

157616

MOVB

022627

000021

cTMP

042716

001366

000750
026627
002407
026627
003003
042766
000002

177600

000004

000140

000004

000175

000040

000004

3$:

48:

#ACKTP7>,4(SP)
4(SP) ,#2%
3s
a$TKS

@$TKB,-(SP)

8IC

#AC177,(SP)

BNE

B8R
cTMP

8LT
TM
86T
BIC
RT]

(SP)+,#21

#40,4(SP)

AR AN A AR AR

iw
e

(1)

021376
021376
021402
021406
021410
021412

021614

010346
012703
022703
101415
104410
112613

122713

021522
021532

RANRRNRR R AR

SRDLIN: MOV
1$:
MOV
28:
P
BLOS

MOVB

TTY

::PUSH DOWN THE PC
*-SAVE THE PS
S:WAIT FOR
“ A CHARACTER
*:READ THE TTY

-GET RID OF JUNK IF ANY
SIS IT A CONTROL-S?
:SBRANCH IF NO
S:WAIT FOR A CHARACTER

. ::GET CHARACTER

::MAKE IT 7-BIT ASCII

*:IS IT A CONTROL-Q?
::1F NOT DISCARD IT

$:YES, RESUME
“1ISIT UPPER CASE?

*:BRANCH IF YES
2:1S IT A SPECIAL CHAR?
$:BRANCH IF YES
TIMAKE IT UPPER CASE
*:GO BACK TO USER

AR AN NN R R AR AR SRR AN KA AR NN RAANN RN

N NN

INPUT A STRING FROM THE TTY

RDL IN
RETURN HERE

RDCHR

000003

43
4(SP),M75
48

1
(1)

(1)

S:LOOP UNTIL ITS THERE

is
4(SP) , #4140

“Efiif ROUTINE WILL

(1)
(1)
(1)
(1)

R AR RN RN AR

;o INPUT A SINGLE CHARACTER FROM THE
$:CHARACTER IS ON THE STACK
s:WITH PARITY BIT STRIPPED OFF

(SP) ,~(SP)
4(SP),2(SP)
a$TkS
1%
a$TKB,4(SP)

§};

g}i

A AT R A AR AR AR R AR

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

(1)
(1)
1)

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

;:TERMINATOR WILL BE A BYTE OF ALL 0°'S

R3,-(SP)
#STTYIN,R3
#STTYIN8.
R3
4%

;:SAVE R3
::GET ADDRESS
- BUFFER FULL?
S8R IF YES

(3P)+,(R3)

SSGET CHARACTER

#3,(RY)

;260 READ ONE CHARA(CTER FROM THE TTY

SIS IT A CONTROL-(?

021420
021622
021426
0214
021634
0271440
021442
021446
021450
021454
021460
021464

Nt " N

Nt N

Nt Nl Nt et "

N
N
e s
U
i S
d b e d e b b ed d
Dk e = o ad ) e ol b o e ad id e D

13-MAR-80
MAIN,
MACYT1 30A(1052)
13-MAR-80 07:39
(IKWLA.P1Y

000137

003530

012603
122713

108 :

104401

001202

111337

021520

3s:

001003

000753
104401

OO
=2 NNV O

—

[VIVL IV, IV IV IV 1V 16 1V Y N
NN NN IS NN nN)

—

(&)
N

021520

122723

000015

105063

177777

001346
106401

001204

016666

000004

000002

021522

041536
13
043536
015
036440

020040
020075
021574

042516
000

RESTRT

::GOTO CONTROL-C RESTART

BNE

TYPE

MOVB

;IS 1T A RUBOUT

2:SKIP IF NOT
2;TYPE A '

;s CLEAR THF BUFFER AND {OOP

(P8

#1S,. (R~

;:CHECK FOR RETURN

CLRB

-1{KR3)

-sCLEAR RETURN (THE 15)

MOV
MOV

(SP)+ R3
(SP) ,-(SP)

;;RESTORE R3
;cADJUST THE STACK AND PUT ADDRESS OF THE

TYPE

.9%

JSLF

4(S5P) ,2(SP)

;oLO0OP IF NOT RETURN

;;TYPE A LINE FEED

FIRST ASCII CHARACTER ON IT

MOV

ASTTYIN,L(SP)

BYTE

/*C/<15><12> - ::CONTROL ‘'
/72U/<15><12>
;s CONTROL 'V
/4AG/<15><12>
:;CONTROL ''G"
<15><12>/SWR = /

RTI

.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ

020127

S$MNEw:

.ASCIZ

.EVEN

LSQUES

(~()

;:ECHO THE CHARACTER

BYTE
$TTYIN: .BLKB

.SBTTL

£177.(RY)

;sRESTORE R3

(R3),9%

SCNTLC:
SCNTLU:
SCNTLG:
$MSWR:

;;STORAGE FOR ASCII CHAR.

0
8.

; :RETURN

TO TYPE

. s TERMINATOR
JRESERVE 8 BYTES FOR TTY INPUT

NEW = /

READ AN OCTAL NUMBER FROM THE TTY

:;tttttttttttttitttt*tttttttttt.lttttttttttttttttlttttfitttttltt!t

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:*EQC?GE IT TO BINARY,

b e

¥
.

s Nt N
st Nl ot N
Nl Nkt
s N
N
N
Nt N Nl ol N

JMP

000
000012
000
051127

skt

e
D T
e
e
T T
e
et e el e ol oD ardd e e A\ PRSP
e D o et
B

(SP)+ R3

22TYPE A CONTROL=C

MOV

000004

9% :
005015
006525
005015
051412
000040

MOV

;JBRANCH IF NC

LJOONTLC

TYPE

000

000
000010

10%

BNE

0060002

SEQ 0069

BNE

TYPE

000177

012766

o
N

P e Nt N

021532

012603
011646

Nt N Nt
i N
N
ot Nt N

104401

it "

it ot St \ Y

i
b o R
i
edT\) B D e b =

001005

07:40 PAGE 5-12
TTY INPUT ROUTINE

011646
016666

010046

010146
010246

000004

000002

$RDOCT: MOV
MOV

MOV

104411

1%:

112046

2%:

012600
005001
005002

001412
006301
006102
006301
006102
0063

RDOCT
RETURN HERE

MOV
MoV

RDL IN

;cREAD AN OCTAL NUMBER
;:LO0W ORDER BITS ARE ON TOP OF THE STACK
;;HIGH ORDER BITS ARE IN SHIOCT

(SP) ,~(SP)
4(SP) ,2(5P)

2 :PROVIDE SPACE FOR THE
;2 INPUT NUMBER

R1,~(SP)
R2.-(SP)

;:PUSH R1 ON STACK
2 :PUSH R2 ON STACK

RO,-(SP)

;:PUSH RO ON STACK

;cREAD AN ASCIZ LINE

MOV
CLR
(LR

(SP)+ RO
R1
R2

;2GET ADDRESS OF 1ST CHARACTER
;;CLEAR DATA WORD

BEQ
ASL
ROL

3s
R1
RZ

;o
IF 2ERO GET OUT
i

MOVB

ASL
ROL
ASL

(RO)+,-(SP)

R1
RS
R1

:;PICKUP THIS CHARACTER

2o%4

;%8

13-MAR-80
MACYTT 30A(1052)
13-mMaR-80 07:39
(IKWLA.P11
JMAIN,

bese0

000764
005726
010166
010237
012602
012601
012600
000002
000000

ROL

177770

000012
021674

. sPOP STACK INTO RO

. ;RETURN

P
ih

=D D b o

(SP)+,R0O

;*0CTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS-~-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBFR OF DIGITS TO TYPE

AR AR

;*THIS ROUTINE

;oCALL:

P A

:;POP STACK INTO R2
s -POP STACK INTO R1

D ek e

(SP)+ ,R1

;:;SIRIP THE ASCII JUNK
::ADD IN THIS DIGIT
. . LOOP
;- CLEAN TERMINATOR FROM STACK
s +SAVE THE RESULT

(SP) +,R2

AR AR

P
M

MoV
TYPOS

NUM, -(SP)

BYTE

o®

it "l ot

AR R AR A

BYTL

AR A RAANKNRREEACRRRRRE
RN RN

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

P Nl Nl

MOV

SEQ 0070

$HIOCT: WORD
O
; ;HIGH ORDER BITS GO HERE
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE

;*$TYPOS OR $TYPGC

s e e

{SP)+
R1,12(sP)
R2,SHIOCT

RT!

TTY

787
MOy
MoV

MOV

2 sNUMBER TO BE TYPED
;:CALL FOR TYPEOUT

J:N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE

2:M=1 0RO

2:1=TYPE LEADING ZEROS

;:0=SUPPRESS LEADING ZEROS

: *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;J«CALL:
.
MOV

£°L7,(5P)
(SP)+ R1

MOV

gl ol A N

BIC
ADD

S D D e o

s®
1

TYPON

NM, - (SP)

;. :NUMBER TO BE TYPED

;sCALL FOR TYPEOUT

st A

Tt W

.
o%

$TYPOS: MOV

MOvB
MOVB

b
b

IO
O

rorong

8(SP) ,~(SP)

1(SP) ,SOF ILL
(SP)+,30MODE+1

#2,(SP)

;:NUMBER TO BE TYPED
;s CALL FOR TYPEOQUT

;;PICKUP THE MODE

;:LOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
:;ADJUST RETURN ADDRESS

STYPON

MOVB

#6,$0MODE +1

;:SET FOR SIX(6) DIGITS

MOV
MOV
MOV

R3,.-(SP}
R4 ,-(SP)
RS,.~-(SP)

;:SAVE R3
;SAVE R4
::SAVE RS

ADD
MOVB
MOVB
MOV

#6 R4
R& , SOMODE
SOF ILL R4
12{SP) .R5

;:SUBTRACT IT FOR MAX. ALLOWED
2:SAVE 1T FOR USE
s;GET THE ZERO FILL SWIT(H
2:PICKUP THE INPUT NMMBER

$TYPON: MOVB

:‘lé\éfi

1%:

NUM,~(SP)

B8R

$TYPOC: MOVB

RS
g-‘—o
SEIEIRRE

MOV
TYPOC

ADD

[olels]

ol
) sl

i cenld o

022121

)
—b —d —s
- = O
80-‘—0
~
NN wg
8
v
0o
(W [V IV, |
Ng RF OOV
O NNO

b
D
D
oD
e
D
D el
el
oD e
el
D ol
el
ol
il

e R
T
L
L
A
B
B
T

OOOO0O000O
A
AAN NN
NSNS,
Y
» 328 gOO
=

b d

et
R T

Nt Nt St N

) et o e

N N
Vst N

s se

P Nt N

) S el ol el

NtV Nl Nt ot N

S el

:'%LZ?OC-"ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

it i

PAGE 5-13

READ AN OCTAL NUMBER FROM THE

N\ —

N N N

b d N AN =

et o N N

ed v

o N

ot N

e e N an) W P SN P, ey P Y

rd md d -

006102

07:40

CLR
ROL

#1,80FILL

#5,80CNT

Rsunoo‘ E+1,R4

R3
RS

;2SET THE 2ERO FILL SWITCH

;2SET THE ITERATION COUNT

;;GET THE NUMBER OF DIGITS 70 TYPE

::;CLEAR THE OUTPUT WORD
;;ROTATE MSB INTOD °°C°

MAIN,

MACYTT

C75WLA, P
(1)

022006

30A(1052)

13-MAR~-BO 07:39

006105

(1)

022012

006105

(1)

(1)
(1)
(1)
(1)
(1)

(1)
(1)

(1)

(1)
(1)
(1)

(1)
(1)

(1)

(1)
(1)

022010

022014

022016
022020
022024
022026
022032

022036
022036

022040

006105

010503

006103
105337
100016
042703
001002

005204

052703
052703
110337

000060
000040
022116

022062
022066

105337
003347

022120

022070

022072
022074

022076

022100
022102

104401

016666

(1)
(1)

022114
022116

000002
000

(1)

022120

000

(1)

2???

022112

022117

Q22121

022122

012616

000

000000

RS.R2

. :SUPPRESS THIS Q?
;:8R IF YES

BIS
BIS
MOVB

#°0,R3
#' _R3
R3,8%

;sMAKE THIS DIGIT ASCII
;oMAKE ASCII IF NOT ALREADY
;;SAVE FOR TYPING

DE(B
8GT

$OCNT
2%

.88

;:GET LSB OF THIS DIGIY
;:TYPE THIS DIGIT?
;sBR IF NO
:;GET RID OF JUNK
J;TEST FOR O

::GO TYPE THIS DIGIT

+:COUNT BY 1
;:BR IF MORE TO DO

2 :BR ]IF DONE

(SP)+ RS

; :RESTORE RS

R4
2%

MOV
MOV

(SP) + R4
(SP)+,R3

o;INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT

; JRESTORE R4
:JRESTORE R3

MOV

2(SP) ,4(SP)

::SET THE

8%:

RTI
BYTE

; :RETURN
;2STORAGE FOR ASCII DIGIT

$OCNT:

.BYTE

;;0CTAL DIGIT COUNTER

J;NUMBER OF DIGITS TO TYPE

MOV

(SP)+,(SP)

STACK FOR RETURNING

.BYTE

SOFILL:

.BYTE

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

$SOMODE:

. WORD

J:DON'T SUPPRESS ANYMORE 0°'S

INC
BR

MOV

000004

;:GO DO MSBE

;cFORM THIS DIGIT

TST
BEQ

TYPE

6%:
000002

SEQ 0071 !

R3
$OMODE
78
#177770.R3
43
R4
5%

BLT

012605

0221046

ing

7%:

005204
000744

012604
012603

ROL

ROL
DE(B
BPL
BIC
BNE

5%:

022116

MOV

4%:

ROL

002402

(1)

177770

005704
001403

BINARY Y0 OCTAL (ASCI]) AND TYPE

3%:

022122

PAGE 5-14

2%:

022042
022046
022052
022056

(7:40

000404

(1)

13-MAR-80

;. TERMINATOR FOR TYPE ROUTINE

;;ZERO FILL SWITCH

(2)

""til.."tt.tfii’tfi".Ififitttttfit*i*fi'**tfi‘fi*'tt*fifi‘*i**fi*fifil’fiitfittt'

)
n
(N
1
(‘}\)

;*THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 5-DIGIT
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER ]S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
J*BEFORE THE FJRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS Bf
;"gfifl:ACED WITH SPACES.

(

(1
(;;
(

o*
v

(1)

Qc2les

(3)
(3)
(3)

022130
022132
Q022134

010246
010346
010546

022142
022146
022150
022152

016605
100004
00540S
1127266

(3)
(3)

(1)

(1)
(1)
(1)
£

022124
022126

022136

$TYPDS:

010046
010146

012746

NUM, -(S5P)

MoV
MoV

RO,~(SP)
R1,-(SP)

MOV

#20200,-(sP)

MOV
MOV
MOV

(020200
000020
000055

MOV
TYPDS

Q00001

MOV
BPL
NEG
MOVB

;;PUT

THE BINARY NUMBER ON THE

;360 TO THE ROUTINE

R2.,-(SP)
R3.-(SP)
RS,-(SP)

20(SP) RS
1%
R5
#'-_1{SP)

J:PUSH RO ON
;:PUSH R1 ON
;:PUSH R2 ON
;:PUSH R3 ON
;:PUSH RS ON

STACK
STACK

STACK
STACK
STACK

;2SET BLANK SWITCH AND SIGN

;;GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;:MAKE THE BINARY NUMBER POS.
;IMAKE THE ASCII NUMBER NEG.

STA(K

MAIN,

MACYTY

CIKWLA P11
(1)

(1)

022160

30A71052)

13-mAR-80 07:39
005000

022162

012703

022172

005002

(1)

022166

(1)
(1)
(1)

022174
022200
022202

002402

(1)

022206

000774

(1)

022204

13-MAR-B0O

112723

016001
160105

07:40

000040

2s:

022330

005202

CLR

MOV

#' _(R%)+

MOV
SuB

$DTBL (RO) ,R1
R1.RS
L$

CLR

BLT
INC

022210

060105

(1)

022214

001002

BNE

100407

8M]

(1)

022212

022216

022220

005702

105716

(1)
(1)
(1)
(1)
(1)
(1)
(1)

022222
0222246
022226
0222%
022240
022244
022246

110223
005720

(1)

022254

002746

(1)

022250

106316
103003
116663
052702
052702

020027

(1)
(1)

022256
022

003002
010502

(1)
(1)

022264
022266

105726
100003

(1)

(3)

022262

116663

022300

012605

105013

(%)
3)
(3)
(3)
(1)

0 ggg
0
0
022310
022312

012603
012602
012601
012600
104401

(1)

012616

(1)

022316
glo

(1)
1)

022326
8

(1)

)

(1)

2( ;

(%)

)

()

N
()
)
3k
1§}
(1)
)

5%:
000001
000060
000040

177777

016666

2
20

1750

68:
7%

000010

8s:

177777

022340

000002

177776

9%:

000004

R1.R5

1STR

(SP)

;:1ERO THE CONSTANTS INDEX

::SETUP THE OUTPUT POINTER

:SET THE FIRST CHARACTER TO A BLANK

::CLEAR THE BCD NUMBER

1:BR IF DONE

> INCREASE THE BCD DIGIT BY 1

:;ADD BACK THE CONSTANT

:;CHECK IF BCD DIGIT=0

;:STILL DOING LEADING 0°'S?

$:BR IF YES

ASLB
BCC
MOVB
BIS
8IS
MOVB
ST

(SP)
63
1(SP),~1(R3)
#'0,R2
#' R2
R2,(R3)+
(RO) +

2 :MSD?
;:BR IF NO
SYES=~SET THE SIGN
;;MAKE THE BCD DIGIT ASCII
SIMAKE IT A SPACE IF NOT ALREADY A DIGIT

BLT

RO.#10

1;PUT THIS CHARACTER IN THE OUTPUT BUFFER
*:JUST INCREMENT
ING

::CHECK THE TABLE INDEX

8GT
MOV

8s
R5,R2

$:G0 TO EXIT
;:GET THE LSD

1STB
8PL

(SP)+
os

:;WAS THE LSD THE FIRST NON-ZERQ?
;:BR IF NO

CLRB

(R3)

“:SET THE TERMINATOR

MOVB

MOV

MoV

$DTBL:

MOV
MOV
MOV
MOV
TYPE

000144

000012

ADD

000764

022270

022276

4%:

#$DBLK K3

MOvB

(1)

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
1%:

022740

PAGE 5-15

RT]
10000.

=1(SP),~2(R3)
(SP)+ RS

(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+,RO
$DBLK

2(SP) 4 (SP)
(SP)+,(5P)

::GO CHANGE TO ASCII

::YES~~SET THE SIGN FOR TYPING

;:POP STACK INTOD RS

::POP STACK INTO R3
::POP STACK INTO R2
;;POP STACK INTO R1
::POP STACK INTO RO
“;NOW TYPE THE NUMBER

S:ADJUST THE STACK
:;RETURN TO USER

1000.

100.

$DBLK:

.SBTTL

10.

.BLKW

ROUTINE TO SIZE MEMORY

".'ttttt*t'tttttttt"ttttttttttttttlttlttttttttttfitttit'ttttttttttfi

sCALL:

JSR

PC.$SIZE

v
RE TURN
J*SLSTAD WILL CONTAIN:
e
WITH KT11 OPTION
-~ LAST VIRTUAL ADDRESS OF THE LAST BANK
;e
WITHOUT KT11 OPTION
-~ LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
J*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
:~$KT11 IS THE MEMORY MANAGEMENT KEY
;*BIT07 = O DON'T USE MEMORY MANAGEMENT

<EQ 0072

CMAIN,

MACYTT

CIkWALA.P1T

20AC1052)

13-MAR-B0

13-MAR-80 07:39

07:40

(1)
{7

1)
1)

022350
022352

(1)

022356

(1)

010046
010146

022354

010246

(1)

022360

013746

(1)
(1)
(2)
(2)

022370

010600

(1)

022364

013746

0226410 100062
022412 012737
02262C 005737

022550
177572

(1)

0226432

012701
105727
000200

052737

1)
¢ )

022434
Q22440

(12702
012703

(1)
(1)
(1)
(1)

022452
0226456
022660
022662

011622
062716
077307
012742

000200

022506
000020

(1)

Q22444

022466

012762

005042

100000

172340
000010

077406

022470
022476

012737
012737

(1)
(1)
(1)

022506
022510
022514

022626
005237
012737

177572
022540

(1)

022526

062712

000040

(1)

022504

022522

000401

005737

(1)
(1)

(22532
022536

023712
101371

(1)
(1)

022542
022546

005037
000421

(1)

022540

01120;

143776

042737
012737

100000
022606

(1)
(1)

022566
022572

062701
062702

004000
000040

(1)

022600

022701

177776

(1)

022606

162701

004000

(1)

(')
1)y

022576

022604

022612

005002

005711

001370
162702

MOV

R3,-(SP)

;:SAVE R3 ON THE STACK

aFERRVE(C,~(SP)

;.SAVE PRESENT ERROR VECTOR PS & PC

MOV

000004
022406

177740

-(SP)

BIS

1%:

#100000,8KT11

::YES—=SET KT11 KEY

MOV
MOV

#KIPARD ,R2
#“D8 R3

; ;ADDRESS OF FIRST 'PAR''
;;LOAD EIGHT "PAR.'S'' AND EIGHT 'PDR.'S"’

MOV
ADD
S08
MOV

(SP) ., (R2)+
#200, (SP)
R3,1$
#177600,-(R2)

*:LOAD 'PAR'’
:UPDATE FOR NEXT 'PAR'
$:L00P UNTIL ALL EIGHT ARE LOADED
::SETUP KIPAR7 FOR 1/0

MOV
MOV

#2S,NERRVEC
#20.3#SR3

- -CATCH TIMEOUT IF NO SR3
: :ENABLE 22 BIT MODE

cMe
INC
MOV

(SP)+,(SP)+
::CLEAN OFF THE STACK—=NO SR3
WSRO
::TURN ON MEMORY MANAGEMENT
#SKTOUT ,@#ERRVEC ;;SET FOR TIME OUT

ADD

#40, (R2)

MOV

CLR

000004
172516
000004

$CORE
“:BR IF NO
ASKTNEX ,@#ERRVEC :;SET FOR TIMEQUT
¥SRO
::KT11 ARE YOU THERE?

2%:
3.
4%:

B8R

TST

cTMP
BH]

$KTOUT: MOV
022406
090004

CLR
8R

000004

SSSETUP KIPARG FOR TESTING

2:THIS PDP=11 HAS A SR3 REGISTER

aN143776

2 TRAP UN NON-£X=MEM

KIPAR?, (R2)
48

::LAST ONE?
LINO=-TRY [T

WSRO
$SIZEX

::TURN OFF MEMORY MANAGEMENT

(R2) ,R2

SIMAKE A 1K STEP

*2GET LAST BANK+1

1$:

#4000 ,R1
#40_R2

*INCREMENT BY 1K
*:1K STEP

#177776.R1

SILAST ONE

SUB

#4000 R1

CLR

ADD
ADD
ST

$CROUT:

BNE

MOV

012637

-(R2)

;sPDR = 4K, UP, READ/WRITE

#100000,8KT11
::KT11 NON-EXISTENT
#SCROUT ,3#ERRVEC :;SET FOR TIMEQUT

022620 012637 (00006

022624

#77466,-40(!22)

*SINITIALIZE FOR "PAR'' LOADING

$KTNEX: BIC
SCORE:
MOV

$SIZEX. SUB

010006

@NERRVEC+2,=(3P)

J:SAVE RZ ON THE STACK

8PL
MOV
TST

000040

022616

R2,~-(SP)

MOV
SP.RO
+:SAVE THE STACK POINTER
THE ERRVEC PS TO THE PRESENT PS
TRAP
2:PUSH OLD PSW AND PC ON STACK
he 117
(SP) + ,a#ERRVE(C+2
JsSAVE THE PSW [N a#ERRVE(+/
MOV
#3776 ,R1
;2 ;SETUP ADDRESS
7S18
(PC)+
2;USE MEMORY MANAGEMENT?
$KT11:
.WORD
200
$:SET TO USE MEMORY MANAGEMENT

177572

022550
022556

022564

;sSAVE RO ON THE STACK
J:SAVE RY ON THE STACK

172356

(1)
(1)

(1)

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

177600

(1)
(1)
(1)

MOV
MOV

MOV

003776

0226426

005046

$SI2E:

;;SET

(1)
(1)
(1)

022400
Q22404
022406

DETERMINED BY ROUTINE

000004

000006

OPTION

oTM

MOV

000006

(1)

022372
022374

010346

104400
012637

(1)
(1)
(1)

SEQ 0073

i
MUST BE SETUP BEFCRE THE CALL
;«87T15 = 0 DON'T HAVE MEMORY MANAGEMENT

(;)
(1)

PAGE 5-16

ROUTINE TO SIZE MEMORY

MOV

(R1)

#40_R2

RO, SP

;:SET UP BANK

TSTRAP ON TIME OUT

tNO--TRY AGAIN

: :DROP BACK

1'RESTORE THE STACK

(SP)+,@NERRVEC+2 - ;RESTORE ERROR VECTOR

(SP)+ a#ERRVE(

MALN,

MACYTT

022652
022654

SEQ OC/«

R1_SLSTAD

. ;LAST ADDRESS
;sLAST BANK

R2, SLSTBK
(SP)+ ,R3
(SP)+ R2
(SP)+
R
{SP)+ RO

SLSTAD:
SLSTBK:
LSBTTL
AN

;:RESTORE
;;RESIORE
;sRESTORE
;JRESTORE

0
0

WORD

ERROR HANDLER ROUTINE

A A AN AR

AR R A IR

R3
R2
R1
RO

;s CONTAINS THE LAST ADDRESS
;;CONTAINS THE LAST BANK

AR A A AR AR AN AN AR R AN

IR AR AR

AR AR AR

AR TR

e S

s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERRCR [OUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

;*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

e e

;*SW15=1
:*SW13=1
;*SW10=1
; "SW09=1
s«CALL

b et

) =

s ad O

020040

024042

7%:

156240
156230

ok
ok

N
—
—

238
—

—

HALT ON ERROR

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
ERROR

CKSWR
MOVB
INCB
8EQ
MOV
8IT
BEQ

1$:

POAN NN
N O O NN
NN
O NWINITINI
NN = NN NV NN

O
",

8'\)

022626
000422

$ERROR:

et =t O

B NOND DN~
QOO W=OO
N OWWN

=OQO0O=

OO =000

—

REIoRRRIRRS 3983232838228
QOOVV\IO‘NJ\I\\I\J\IN\I

b =

4407

022656

O—=O

010137
010237
012603
012602
012601
012600
000207
000000
000000

07:40 PAGE 5-17
ROUTINE TG SIZE MEMORY

e N

022654

30A(1052)
13-MAR-80
13-MAR-80 07:39

N N
e e N
S N
N
N
N N
N
SN

)
e
B

i T

e I

s N

e W T

WP NP

e e e N

o~‘_‘_4_Jfluflu_‘—J_flfldfl)-&_4_‘_&_;~J—d—a—d_‘_a—a—a_d.A—J—a_afl)—d—J.a—d_a_fl_;—).d-a_J—‘—)h)—dg b wd D D e D o

LIr

TYPE

INC
MOV
SUB
MOVB

; ;ERROR=EMT AND N=ERROR

$TSTNM, TSTNUM
$ERFLG
7%
STSTNM, ADISPLAY

#B17T10,aSWR
18

LSBELL

$ERTTL

§§P;égsg§Pc

[TEM NUMBER

;2 TEST FOR CHANGE IN SOFT-SWR

;SET UP TEST # ON ERROR
.;SET THE ERROR FLAG
;;DON'T LET THE FLAG GO TO ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG

;:BELL ON ERROR?
JINO - SKIP

:JRING BELL

;;COUNT THE NUMBER OF ERRORS

2;GET ADDRESS OF ERROR INSTRUCTION

SSERRPC,SITEMB ;:STRIP AND SAVE THE ERROR [TEM CODE
8IT
MIT13, aSWR
;:SKIP TYPEOUT If SET
BNE
208
::SKIP TYPEQUTS
(SP) ,M1002
0
;21F RETURN PC LESS THAN 1002
128
BHI
;;ERROR IS ILLEGAL TRAP
;s PROCESS UNEXPECTED TRAP OR INTERRUPT
4(SP)
, SERRPC
MOV
;:GET PC AT TIME OF FALSE TRAP
#2 SERRPC
suB
;;ADJUST PC
TYPF

MOV

TYPOC
TYPE
SuB

MOV
MOV
TYPO(
TYPE

000040
054105

10%:
11%:

cMP
BR
LASCIZ
.AS(C1Z

108

$ERRPC
.~ (SP)
.118
#4,(SP)
(SP) ,SERRF(
$ERRP(,-(SP)

JSCRLF

(SPY+,(SP)+

208

<00>'P(=

;:TYPE HEADER
;:SAVE SERRPC FOR TYPEOUT
;:60 TYPE-~OCTAL ASCII(ALL DIGITS)
;;GET FALSE TRAP VECTOR ADDR

;:SAVE SERRPC FOR TYPEOUT
::60 TYPE--OCTAL ASCII(ALL DIGITS)
;;POP FALSE TRAP VECTOR PCRADDR

UNEXPECTED TRAP TO '

JMAIN,
MACYYT 30A(1052)
13-MAR-80
TIRWLALPTY
13-MAR-80 07:39
(1)
1)
(1)

02305
023062
023070

(1)

023074

(1)

(1)
(1)
(1)

1)
(1)
(1)

023104
023112
023114

122737
001007
113737

000001

001226

001114
020502

023126

023122
023126
023127

(1)

023144

023132
023136
023140
023142

004737
000
000

000777

005777
100002
000000
104407

032777

(1)
(1)
(1)

023152
023154
023160

001402
013716
005737

85%}93

(1)
(1)
(1)

023172
023200
023202

(1)
(1)

a%?z)s

023164

023204
023204

001000

(1)
(1)
(1)
(1)
)

(2)
2)

155766

3$:

PC.SERRTYP
.SCRLF

;:GO TO USER ERROR ROUTINE

<
BNE
MOVB

#APTENV , SENV
28
$ITEMB,21%

;JRUNNING IN APT MODE
;:NO,SKIP APT ERROR REPORT
;;SET ITEM NUMBER AS ERROR NUMBER

22%

:;APT ERROR LOOP

JSR
BYTE
BYTE

ST
BPL
HALT
CKSWR
BIT

PCLSATYS
O
O

aSWR
3s
#81709,3SWR

4%:

013716

001174

MoV

SESCAPE, (SP)

022737
001001
000000

020146

0, o
BNE
HALT

#SENDAD , a2
63

001402

000042
6$:

000002

.SBTTL

8EQ

48
$LPERR, (SP)
SESCAPE
Ss

RT]

;;REPORT FATAL ERROR TO APT

;;HALT ON ERROR
;:SKIP IF CONTINUE
;:HALT ON ERROR!
;s TEST FOR CHANGE IN SOFT-~SWR
:;LOOP ON ERROR SWITCH SET?

;BR IF NO
“:FUDGE RETURN FOR LOOPING
;;CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE

;:FUDGE RETURN ADDRESS FOR ESCAPE

;:sACT=11 AUTO=-ACCEPT?
;:BRANCH IF NO
J:YES
;RETURN

ERROR MESSAGE TYPEOUT Roumt

ttttttttttttttttttttttt'ttittttttttttttitttttttttttittttttfitttt

tTHIS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
:«ERROR IS TO BE REPORTED. IT THEN OBTAINS., FROM THE 'ERROR TABLE' (SERRTB),
;«AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
023206

023206

104401

023212
023214
023216
023222

010046
005000
153700
001004

023224

013746

023230

(1)
(1)
(1)
(1)

023234
023236
023240
023242

005300
006300
006300
006300

023250

012037

023232

(1Y

023244

{

023254

\};

2%:

JSR
TYPE

001110
001174

(2)

(1)

22%:

.EVEN

BEQ
MOV
ST

(1)
1
f};
(1)

208:

21s:

156002

(2)

(1)

12$:

023206
001203

023104

SEQ 0075

042105
020120

004737
104401

023130

(1Y

052103
060525

023074
023100

(1)

(1)
(1)
(1)
(1)

062520
052040
047524

07:40 PAGE 5-38
ERROR HANDLER ROUTINE

001203

SERRTYP:

001114

001116

104402

001404

1$:

001332

023260

LSCRLF

;:"'CARRIAGE RETURN'' & "LINE FEED'*

RO.,~(SP)
RO
aNSITEMB.RO
18

2 :SAVE RO
;:PICKUP THE ITEM INDEX

MoV

$ERRPC,-(SP

;sSAVE SERRPC FOR TYPEOUT
;;ERROR ADDRESS

TYPOC

000426

062700

TYPE

mMov
CLR
BISB
BNE

DEC
ASL
ASL
ASL

RO
RO
RO
RO

;:IF ITEM NUMBER IS ZERO, JUST
;:TYPE THE PC OF THE ERROR

2:60 TYPE--OCTAL ASCII(ALL DIGITS)

SIGET ouT

..ADJUST THE INDEX SO THAT IT wiLL
5
WORK FOR THE ERROR TABLE

ADD

#SERRTB.RO

:;FORM TABLE POINTER

BEQ

;.SKIP TYPEOUT If NO POINTER

MOV

{RO)+,2%

;;PICKUP "ERROR MESSAGE’®

POINTER

MAIN.

MACYTT

CIKWLA. P11
(1)

13-MAR-B0

13-MAR-80 07:39

023256

104401

023262

104401

(1)

023276

000000

(1)
1)
(1)

023306 011000
023
0010046
023310 012600

(1)

023260 000000

(1)
(1)
(1)

023266 012037 023276
223272 001404
023276 104401

(1)

(1)
(1)
(1)
)

)

023300

07:40

001203

023312
023316
023320

104401
000207

001203

023324

005710

003330

104401

023336

020040

000

023326

02333

023336

SR S ¥ ¥

001770

000771

023342

TYPE

MOV
8EQ
TYPE
MOV
BNE
MOV

(RO) ,RO
78
(SP)+ RO
,SCRLF
pC

$:PICKUP ‘DATA TABLE'' POINTER
1360 TYPE THE DATA
**RESTORE RO

:*""CARRIAGE RETURN''& 'LINE FEED''
**RETURN

MOV
TrPOC

a(RO)+,~(SP)

;:SAVE @a(RO)+ FOR TYPEOQUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

BEQ

TYPE

B8R

ASCIZ

.EVEN

.SBTTL

;5 ERROR MESSAGE'* POINTER GOES HERE
22 'CARRIAGE RETURN'' & 'LINE FEEDTM
*:PICKUP ‘DATA HEADER'' POINTER
:2SKIP TYPEOUT IF 0
S:TYPE THE 'DATA HEADER''
::'DATA HEADER'* POINTER GOES HERE

8$:

;:TYPE THE 'ERROR MESSAGE''

0
,$CRLF
(ROY+,48
S$
0

TYPE
RTS

78:

SEQ ooraf

LWORD

TYPE

(« .

_SCRLF

22 CARRIAGE RETURN'' & 'LINE FEED''

(RO)

:31S THERE ANOTHER NUMBER?

*BR IF NO

,.rvpe TWO(2) SPACES

SiTWO(2) SPACES

‘LoOP

SCOPE HANDLER ROUTINE

:"t*t*fit*l"'ttttttt'ttfitttt'tttttittttttt*t'ttttt**fltt.tt**'ttitit

:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

IT WILL

INCREMENT

e W

:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>)
S«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
‘xTHE suncu OPTIONS PROVIDED BY THIS ROUTINE ARE:

TeSWI4=1

LOOP ON TEST

: #SW09=1

LOOP ON ERROR

teSwl1=1

INHIBIT ITERATIONS

#SW08=1

SwCALL

N
B
W
e

LWORD

s e T QRET YU
s S W e e N N N N N

TYPE

48:

023342

$SCOPE:

104407

0233446

021627

000416

023370
023374
023402
023406
023412
023414
023416

013746
012737
005737
012637
000463
022626
012637

023422

000423

SCOPE

;:SCOPE=]0T

CKSWR

::TEST

;;OTHERWISE CONTINUE

001002

023350 101002
023352 000137 022656
023356 032777 040000
023
001114
023366

LOOP ON TEST IN SWR<7:0>

FOR CHANGE IN SOF T-SwR

;.GO TO ERROR ROUTINE IF RETURN PC LESS THAN 1002

e B
N

T
T
e N N N S N

e e S

e B
T e T

B
e e
e e e N

ERROR MESSAGE TYPEOUT ROUTINE

023350 013046
023322 104402

PAGE 5-19

2s:

001203

104401

NN
§ PENY . S
s e S e S S e D) S

ey N

2)
2)

30A(1052)

155554

1$:

BHI
JP
BIT
BNE

;WRRANSTART OF

$XTSTR: BR

000004
023414
177060
000004
000004

000004
5§

MOV
MOV
ST
MOV
B8R
tTMe
MOV
BR

(SP) , #1002

1%
SERROR
MIT14, aSWR
SOVER

;;UNEXPECTED TRAP OR INTERRRUPT

“ARE TRAPPED HERE VIA 10T
..co PROCESS UNEXPECTED TRAP
$:LOOP ON PRESENT TEST?
SIYES IF Swi4=1

CODE FOR THE XOR TESTERWAMMN

SFERRVEC,-(SP)
#5$ QWERRVEC
ar177060
(SP)+ _a#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+.3#ERRVEC
7$

::IF RUNNING ON THE ‘’XOR'‘ TESTER CHANGE
::THIS INSTRUCTION TO A 'NOP'’ (NOP=240)

- :SAVE THE CONTENTS OF THE ERROR VECTOR
-:SET FOR TIMEOUT
STIME OUT ON XOR?
- -RESTORE THE ERROR VECTOR
2260 TO THE NEXT TEST
S2CLEAR THE STACK AFTER A TIME OUT
- -RESTORE THE ERROR VECTOR
:.LO0P ON THE PRESENT TEST

MAIN,

MACY1T

FIKWLA P11
(1)

023424

30A(1052)

(1)
(1)

02%24
02%32

032777
001404

(1)

02%42

001465

023450
02352

001421
123737

(1)
(1)

223%34

02%46

13-MAR-80

13-mAR-80 07:39

07:40

000400

155506

127737

155500

001102

105737

001103

001115

001103

02
02%62

101015
032777

001000

155450

(1)
(1)

023%72
023500

013737
000446

001110

001106

023506
023512
023514
023522
023524
023530

005037
000415
032777
001011
005737
001406

(1)

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)
(1)

(1)
(1)

(1)
(1)
(1)
(1)
(1)

02370

023502

023532
023536

023544
023546
023554

023562
023566

023574
023600
023604
023610
33616

001404

105037

005237
023737

002024
012737
013737
105237
113737

011637
011637
005037
112737
013777

(1)

023624

013716

(1)

023632

003720

(1)

2??())

023630

001103

155416

001104
001172

001104

1
023632

001104
001172

001102
001102

001106
001110
001174
000001
001102

001106

001212

001115
155316

023634

012737

(3)

023650

010046

023642

012737

(3)
(3)
(3)
(3)
(3)
(3)
(1)
(1)

023652
023654
023656
023660
023662
023664
023670
023674

010146
010246
010346
010446
010546
017746
010637
012737

53 ;

023704

000776

(1)

$SSVLAD:

SOVER:
SMXCNT:

.SBTTL

023702

(000000

024000

000340

155250
024004
023706

000024

000026

000024

(2)

1)
(1)

#BI1TO8.3SWR
2

BEQ

$OVER

BEQ
CMPB

3s
SERMAX.SERFLG

:;BR IF NO
::MAX. ERRORS FOR THIS TEST OCCURRED?

;:BR IF NO

TSTB

@SWR,STSTAM

SERFLG

BH]
BIT

3$
#81T09,3SWR

MOV
8R

SLPERR,SLPADR
$OVER

B8EQ

CLRB

SERFLG

;:LOOP ON SPEC. TEST?
::BR IF NO
::ON THE RIGHT TEST?

$:BR IF YES

SWR<7:0>

Z:HAS AN ERROR OCCURRED?

$:BR IF NO
::LOOP ON ERROR?

:-SET LOOP ADDRESS TO LAST SCOPE
::ZERO THE ERROR FLAG

CLR
8R
BIT
BNE
TST
BEQ

STIMES
1s
MBIT11,aSWR
1$
$PASS
1s

::CLEAR THE NUMBER OF ITERATIONS TO MAKE
*:ESCAPE TO THE NEXT TEST
::INHIBIT ITERATIONS?
*:BR IF YES
::IF FIRST PASS OF PROGRAM
I
INHIBIT ITERATIONS

BGE
MOV
MOV

SOVER
#1,SICNT
SMXCNT,STIMES

::BR IF MORE ITERATION REQUIRED
;;REINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO

MOV
MOV
CLR

(SP) , SLPADR
(SP) ,$LPERR
SESCAPE

;:SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
;:CLEAR THE ESCAPE FROM ERROR ADDRESS

INC
P

18:

XOR TESTERANAAN

INCB
MOVB

MOVB
MOV

MOV
RTI

SICNT
STIMES,SICNT

STSTAM
STSTNM,STESTN

< INCREMENT ITERATION COUNT
::CHECK THE NUMBER OF ITERATIONS MADE

::COUNT TEST NUMBERS
:.SET TEST NUMBER IN APT MAILBOX

#1,$ERMAX
s;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM,aDISPLAY ::DISPLAY TEST NUMBER

SLPADR, (SP)

2000.

::FUDGE RETURN ADDRESS

Z:FIXES PS

::MAX. NUMBER OF

POWER DOWN AND UP ROUTINE

ITERATIONS

;;tl'I*tttttttttt*tttttttttttttttttttttttttttttttttttttttfitttttttt

(1)

3$:

001214

(2)

(1)

7$:

CODE FOR THE

SEQ 0077

BIT
BEQ

(MPB

48:

001172

004000

68 : MRANNEND OF

2s:

1)
(1)
(1)

PAGE >-20

SCOPE HANDLER ROUTINE

:POWER DOWN ROUTINE

$PWRDN: MOV

MOV

[

#SILLUP ,@#PWRVEC ;;SET FOR FAST UP

#340
. QNPWRVEC+2 ;:PRIO:7

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO,~(SP)

R1.=(SP)
2:PUSH R1 ON STACK
R2.-(SP)
::PUSH R2 ON STACK
R3.~(SP)
*:PUSH R3 ON STACK
R&.~-(SP)
Z:PUSH R% ON STACK
RS,=(SP)
S:PUSH RS ON STACK
aSwR,~(SP)
Z:PUSH @SWR ON STACK
SP.$SAVR6
;:SAVE SP
FSPURUP ,3¥PWRVEC ::SET
UP VECTOR

2:PUSH RO ON STACK

::HANG P

HALT

".'ttttttttttttt'tttttttttttttttttttttttttttltttttttttttttfittttt't

023706

012737

024000

000024

*POWER UP RCTMJTINE
$PWRUP: MOV
#SILLUP ,#PWRVEC ;:SET FOR FAST DOWN

' N
i ot
s Nt Nt

023714
023720
023724

NS
SR
W
W
e T

AN NANIN
b e b

MACY11 30A(1052) 1.35;MR-80
MAIN,
13-MAR-80 07
CIKWL
A PTY

(%)

013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012609
012737
012737

T Ui IS W

104401

LT 0 B

D R

024006
012716
001712
000002
000000
000776
000000

N24036

005015
051101
051106
053517
044501

07:40
PAGE 5-21
POWER DOWN AND UP ROUTINES

0246004
024004
024004

1%:

023634
000340

- R N1e RV, P SV ¥}
g oLl

]
no
XYRNRPRRNY

2411

000000

0
000170

024056
024060

000000

BNE

;:0F

MOV

000024
000026

MOV

$SPWRMG:

TYPE

.WORD
MOV

SPUWRAD : R??RD

042522
042524
046517
051105
000114

052123

020104
050040
043040

SILLUP: HALT
BR
$SAVRG: 0

PWRMSG: _AS(IZ

$SAVR6G

(SP)+ ,aSwR

(SP)+ RS
(SP)
+ R4
(SP)+,R3
(SP)+ ,R2
(SP)+ _R1
(SP)+ RO

JsWAIT FOR THE INC

WORD

;:POP STACK INTO aSwR

;sPOP STACK INTO RS
. sPOP STACK INTO R4
;;POP STACK INTO R3
::POP STACK INTO RZ
,.P(P STACK INTO R1
<POP STACK INTO RO
ISP\‘RDN MP\RVEC ..SET UP THE POWER DOWN VECTOR

#340, MPURVECQ ;:PRIO:7
PWRMSG
(PC)+, (SP)

START

**REPORT THE POWER FAILURE

“:POWER FAIL MESSAGE POINTER
**RESTART AT START

;;RESTART ADDRESS

;;THE POWER UP SEQUENCE WAS STARTED
% BEFORE THE POWER DOWN WAS COMPLETE
‘PUT THE SP HERE

<15><12>/RESTARTED FROM POWER FAIL/

KW11C BUS REGISTER ADDRESS POINTERS
' KW11B VECTOR ADDRESS POINTERS

KW118 DEVICE LEVEL

COMMAND STATUS REGISTER BIT ASSIGNMENTS

;

COMMON PROGRAM LOCATION(S)

TSTNUM: 0
AR

024044
024046
024050
024052
0264054

::GET SP
::WAIT LOOP FOR THE TTY

MoV
MOV
MOV
MOV
MOV
MOV

000000

$SAVRG, SP
$SAVRE

MOV

024042

MOV
CLR

INC

155202

SEQ 0078

AR AR A AN AR AR

AN NN AR

;CONTAINS TEST NUMBER ON ERROR

AANRR AN RN RAARARARAR

: PROGRAM PARAMETER BLOCK

KONST:
NUMBR:
KOUNT:
COUNTR:

0
0
O
0

READA:
READB:

0
O

CONST:

170

:-tttltttfittttttDEVJCE ADDRESSEStereanaansununs
0246062
024064

160206
160000

CSR:

RGO:

160206

160000

AR A AR

NSO

MAIN,
MACYTT 30A(1052)
13-MAR~80
CIKW AP
13-MAR-80 07:39

0264066

024070

160002

160004

%2%2

000300
000340
000304
000340

|
INTERRUPT

VECTOR

ADDRESSES

twennnnswewn

300
340

304

340

;qttttttttttttt-t BUS REQUEST LEVEL woaxannanwstsnn

;

gz%g

024102

000006

BRLV:

2437
2638
2439
2440
2641
2642
2643

024104
(0247106
024110
024112
024116
024116

000000
000240
7
000000
000000
000000

EfittttttttttttttOTHER ADDRESSEStaaaanannnsaanntaenannn
PRI:
0000
DPRI:
240
LEVEL:
7
SFTSW:
0
SAVR1:
0
HOLD:
O

2444

024120

000000

ACSR:

2447

024126

000000

DIGCNT:

HOUR :
MIN:
SEC:

0
0
0

024164

000000

COUNT:

2463
2664
2465

0264162

024166
(024170
024172

2466 024174
2667

Ja68

2469
2470
2471
2672
2473
2676
2475
2676
Je77

024176

024200

024202
024204
024206
024210
024212
024214
024216
024220
024222

000000
000000
000000

CNT1:

000000

COUNTER:(
SFSWR:
0
SWITCH: O

000000

TEMP:

000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000

CNT:

ADR:

EXPCT:
SAFE:
XX:
FLAG.1:
FLAG.2:
G00D1:
TEMPI:
TEMPZ:
FLAG:

Q
0
00
0
O
O
O
0
O

wme w—

2662

2461

O
O
0
0

DHOUR:
DTIM:
STR:
NUM:

000000
000000
000000
000000

WER

024152
024154
024156
024160

2457
2458
2459
2460

—

TIMINV: 0
DMONTH: 0

000000
000000

DAY :

024146
024150

000000
000000
000000

000000

024140
024142
024144

INSWCH: 0
YEAR:
0
MONTH:
O

2455
2456

024136

000000
000001
000000

2652
2453
2454

OCTNUM: 0
(OMA:
O

WP WP

26451

0264130
024132
024134

000000
000000

2448
24649
265G

024122
024126

fme

24465
24ih

2643,

160002

2433%

PCYO:
PSVO:
PCV1:
PSV1:

SEQ 0079

160004

Jennannnnnnnnnns

026072
024074
024076
024700

24627
2428
2629
2630

RGZ:

RG4 -

2622

Szg;

(07:40
PAGE 5-2¢
POWER DOWN AND UP ROUTINES

-MAIN.
MACY11 30A(1052)
13-MAR-80
A P
rIKWR
13-MAR-80 07:39

478
2679

2681
2482

000000
000000
000000
000000
000000

2485

000000

024224

2480

2483
2684
2486

2487
2488
2489
2490
2491
2492

2493

07:40

INTSW:
INTREG:
SOFSWT:
LASTPC:
TIMEIN:

000000

024244

024250

024252
024254

2694
2495

000074
000

024250
000000

PAGE

LOC:

PT:
200

000

000000

HZ:
ECHOB:

DIGIT:

000000
000000
000000

000000

.EVEN

00
O

0
0
0

0
0
0
0
0

000000
000000

0
0

000000

000000
000000
000000

e e e

DIGEND: O
0
0

il e ad TN

el wnd

0,200.0

.EVEN
.SBTTL

.';tttt*t*tttttttttt*ttt’!tltttt*tttfi.t*ttttttttltttl'ttttfitfi'tttt

TRAP DECODER

s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

THE ‘‘TRAP'' INSTRUCTION

J*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED [T WILL
;*CG0 TO THAT ROUTINE.

024324
024326

010046

016600
005740

$TRAP:

000002

111000

s i

s il et el e

nLNINUNITG

74
.BYTE

000000
000000
000000
000000
000000
000000

000000

i
Y . 19, 1V, 1V, 1V,

000000

2508

0
O
0
0
O

.EVEN
ECHOBT: O
ERRPC:

000000

5-23

POWER DOWN AND P ROUTINES

MOV
TST

MovB

ASL
MoV
RTS

026360

RO,=-(SP)

;. SAVE RO

2(SP) ,RO
-(R0O)

;:GET TRAP ADDRESS
;;BACKUP BY 2

RO
$TRPAD (RO) ,RO
RO

;;POSITION FOR INDEXING
;2 INDEX TO TABLE
:;G0 TO ROUTINE

(RO) ,RO

;;GET RIGHT BYTE OF TRAP

il el

e T

s e i ol

006300
016000
000200

MOV

;. THIS IS USE TO HANDLE THE "GETPRI'® MACRO
024 346

024350

011646
016666

000004

000002

$TRAPZ: MOV
MoV

{SP) ,-(SP)
4(SP) ,2(5P)

2JMOVE THE PC DOWN
;;MOVE THE PSW DOWN

MACYTT
CZKWLA.P11
MAIN,

(1)

024356

1 3-MAR-B0

1;2:AR-80 07:39
(1052)

07:50

.SBTTL

)

1AV
V3. §)

[0 R L L
R
N T e T Y
— bN NN
L

024360
024362
024 364
024366
024370
026372

024346
020202
021722
021676
021736
022124

ALE D

024374

L TRPAD:

——
-

-WORD
STYPE
$TYPOC
$TYPOS
STYPON
STYPDS

$TRAP?

021002

024376
026400
024402

020732
021254
021374
021574

024406

042522
046101

024404

042111

040515

024444

024452
004454

024651

NSO
PO OWNS
N
M= NN

RRRIRY

2521

POV

024563

04554
024562

ARG ARIE

024470
024476
024502
024510
024516
024524
024532
024540

NN
= PNON

024462

024546

252¢

THE ROUTINES ¢

ROUT INE

024414

2520

TRAP TABLE

;*BY THE "‘TRAP'® INSTRUCTION.

024422
024430
024436

2519

;;RESTORE THE PSwW

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

(3)
(3)

J518

SEQ 0081

RTI

(3)

TRAP DECODER

000002

(3)
(3)

PAGE 5-24

2 s CALL=TYPE

TTY TYPEQUT ROUTINE

2 ;CALL=TYPOS
;;CALL=TYPON
. s CALL=TYPDS

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

$SGTSWR

;s CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
$RDCHR
$RDL IN
$RDOCT

;s CALL=CKSWR
; ;CALL=RDCHR
; ;CALL=RDLIN

TRAP+7(104407)
TEST FOR CHANGE IN SOF T-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY

;2 CALL=TYPOC

;s CALL=RDOCT

TYPE OCTAL NUMBER

(WITH LEADING ZERQS)

TYPE OCTAL NUMBER (NO LEADING 2EROS)

TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

053040
042040
020124

EM1:

.SBTTL
.ASCI12

ASCI] MESSAGES
/READ VALUE DIDN'T MATCH WITH EXPECTED/

020131
040506
020117

EM2:

LASCIZ

/READY BIT FAIL

044440
040526
047125
047504
020124
046505
047111
051105

EM3:

LASCI2

/TIME

021440
020116

EM4:

LASCIZ

/BIT #14 IN CSR DIDN'T SET/

021440
020116
044504
051040
000
054504

£M5 :

LASCIZ

/BIT #14

EMG:

LASCIZ

/READY BIT DIDN'T

020110
042440
042524

TO SET/

INTERVAL COUNTER DOESN'T DECREMENT

IN ORDER/

044504
051440

IN TSR DIDN'T RESET/

SET;YEAR VALUE MAY BE

INVALID/

13-MAR-80
30A°105¢)
13~-MAR-80 07:39

024656
024664
024672
024700

051101

024714

041040

Q&N

NENIP NN

..a—am?_a—am—a

SRERRRRR

ONO

NI
pNY — —

042101
020124
052047
047473
020122

042531
046107
054501
047111
000104
020131
044504
051440
062516
047502

EM?7:

LASCI

/READY BIT DIDN'T SET;ONE OR BOTH VALUES/<200>

LASCIZ

/0F MONTH AND DAY MAY BE

_ASCII

/READY BIT DIDN'T SET;ONE OR BOTH VALUES/<200>

-ASCI2

/0F HOUR AND MINUTE MAY BE

EM1t:

_ASCIZ

/ERROR: BIT #15

EM12:

_ASCIZ

/ERROR:

CLOCK IS STILL RUNNING/

EM13:

_ASCI2Z

/ERROR:

CLOCK IS NOT RUNNING/

EMI4:

_ASCII

/INTERRUPT FAIL

045101

047117
042116
046440
020105
044514
020131
044504
051440
042516
047502
046101

EM10:

INVALID/

041040
040526

021440
042504

2 BT
DN
~ NO
£ B NN

NONNNOO~N

PONJONINY
=N =t 3N =N
-

g SRRRROCOR

1
e
e
e
L
R
LW

(olele

W
B N YN e b Py J s = N L5 PO b =2 P DO
NN = N
= 2SOV~ OSSO —

OO
NI
nNOonN

035122

NOND D=

2ON
4

G253s0

062040
020124

052517
020104
042524

044502

NO S 20O
NN

2530

~
n

2529

2528

—

2527

047104
052105
047442

2526

024744
024752
004760
024766
024774
025000
025006
025014
025022
0250
025036

024736

(@)
N

2525

040526
042522

jalsleloleleis/cjolelslsiolololalalole]

2524

062525

026722
024730

SNNN'\JNNMNNNMNN'\JNSNNN

2523

042523

052111
023516
035524
053040
04,6440
020105
044514
042101
020124
052047
047473
020122
053040
100123
046440
040440
054501
041040
040526

- ONIOPONY
ONOMNMNO NN

004706

041040
062111

07:40 PAGE 5-25
ASCI] MESSAGES

~POON~ON)
QBN NOMY

Mal 17

[rA
ot
BV

EIRREIRRIREIRERR
bb—»-fld&j\.—né

MA N,

(DE)

FAIL

TO SET/

TO OCCUR WHILE UPDATING THE CLOCK /<200>

0082

MATN,
MACYIT 30A°1052)
13-MAR-B0
TIrWLA P
13-mMAR-80 07:39

047514

—

oo
V2l &
W

2533

OIS WNNIAN

2R
ON-INO N
K RSISTRER
e h b med AN =D D

RIZERRA

2542

J\ON\IOV\\.NJ\B

SV
b

100040
—- DA
—

253

041440
NN
= BON) -

025356

050040
2554

?
gMNN—AOJ\Odr\)NNdO
BB ONOSOND
B O0NNO

SEQ 0083

041101
052501
052116
052120
047040
040516
000
042523
042526
020124
052047
051125
040502
040503

LASCiZ

/PROBABLE CAUSE

JASCII

/PRESET

ASCIZ

/INTRPT NOT ENABLE OR AND

EM16:

ASCIZ

/SOFT ERROR/

EM17:

LASCIZ

/UNEXPECTED INTERRUPT AS SOFTSWT NOT SET/

EM20:

LASCIZ

/UNEXPECTED

INTERRUPT AS

INTRP WAS NOT ENABLED/

EM21:

LASCIZ

JUNEXPECTED

INTERRUPT AS

(DE)

EM22:

.A5CIZ

/UNEXPECTED AND UNEXPLAINABLE

EM15:

052120

042440
020105
042116
046101
042522
040526

INTERRUPT WAS NOT ENABLED/

INTERRUPT DIDN'T OCCUR.PROBABLE CAUSE/<200>

VALUE/

3N N

—2

INVALID PRESET

O~
2 OOMNMN
N
S OVININN

§w

sRRRSESEe

=
b =2 N 3 N3 NN
—S SISV ES

RRERIRERORRRRRIAGVRRESR

—=AONIN S NIONONININNIN
N ONN~

N0 N
NO W -

NN NO O

e e
wad el

QO = S OMAWE

ru-aow—-oorumm?

OO SON=
el ok ot et \ J§
(L
Y

?m?mggg
PO~ OMNOAL

2538

ODOO0QO

ALY ¥4

025655
025662
025670
025676
025704
025712
025720
025726
025733
025740
025746
025754
025762
025770
025776
006004
026012
026020
026026
026034
026042
026050

RAFR RIZRGRR

wiLh

A]
OO ~N-—
et Ylirey . e SE S SN
re
N=OMNO
DN —=ONSN

051440

PAGE 5-26

ASC]] MESSAGES

045503

2535

2536

07:40

042440

{

WAS NOT

SET/

INTERRUPT/

MAIN,
13-MAR-B0
MACY1T 3CA(1052)
TIxWLA P
13-MAR-80 07:39

EM23:

-ASCIZ

JUNEXPECTED

EMZ4-

LASCII

/TIME

.ASCI2

/WAS

EM25:

LASCIZ

/ERROR:RDY BIT WAS

NOT

EM26:

LASCIZ

/ERROR:PROBABLY

BIT DIDN'T

W=~

EM27:

LASCIZ

/ERROR:

TIME

AR NS
W

OO
QOHNY
WNNOWVNIONY

EM30:

LASCIZ

/ERROR:

'M' OR

ONH
o
NSO
N

042516

NINNNG
=2

125

041505
047111
040440

SEQ 008«

EM31:

LASCIZ

/ERROR:‘HOLD BIT FAIL TO RESET /<200>

OB w2
WVMHOHN

2539

07:40 PAGE S-27
ASCI! MESSAGES

EM32:

.ASCIZ

/ERROR:‘HOLD BIT FAIL TO RESET /<200>

INTRPT AS

(T]) WAS NOT SET/

024511

2540

047040
052105

020105
020105
052040
042114
042514
020104

29461

042522
041440

2542

051117
041040
051501
020124
051517
051440

2 NNO =)~

AT o wd wmd oed \ ) d
ey

IN (SR/

'M'

INTERVAL

SUPPOSE

TO SET/<200>

SET/<200>

INTERRUPT DIDN'T OCCUR/<200>

(DE) BIT NOT SET

IN (SR/<200>

R(V)

SET

TO HOLD WHILE HOLD BIT/<200>

[V ey
b \ LY md
e AV wd

Z2ZOSe
=R G N
\.flb-—‘ONSO‘O—'Om ~)
Ot
v =)

b L) b

Qs
=t =t N
NSO

OO0
=

000

FUOSNWWND
~

000200

AN
WV
Nowna
32585
SS98S
SSSRSR
= O Y=
=ONIN—
O=2MPININN

0547

Q= ONOWVINIO —- OMNIWNINI O NOMNI O

2546

SRRSO
S3RRT SRSR
i PN i d
RER

2545

_EIEET STRTRgRel

2544

SRRRS FRRRS SARYRE REIRIRS

2543

VALUE FAJL

MACYT1

026542
026545
026552
026560
026566
026574
026602
026610
026616

042449
021072
046114

051440
052040
044440
051125
000200

550

24951

2552

A7 204

007212

020124
052116
052120
020110
052101
046105

OO
OWS

-ASCI2

/HARD

EM34:

-ASCIZ

/GOT NO

ERROR:"USCILLATOR SEEMS

TO BE

INACCURATE'‘7<200>

INTERRUPT WITH BPU AT LEVEL 0/<200>

062524
020124
020122
047522
053105

051122
041517
052101
043516
046105

EM35:

.ASCIZ

/INTERRUPT OCCUR AT WRONG LEVEL/<200>

023505
044440

041040
020116
040506
020117
10012 2

EM36:

ASCIZ

/'DE® BIT

020705
053517
040526
040440
044505
042523

DCMSGT:

LASCIZ

<200>/THE FOLLOWING VALUES ARE BEING USED/<200>

053105

DCMSG2:

LASCIZ

<200>/

DEVICE ADDRESSES(

DCMSG3:

.ASCIZ

<200>/

DIMSGeG:

LASCIZ

<200>/

“PC INTERRUPT VECTOR ADDRESS(2)=/

DCMSGS:

JAS(IZ

<200>/

BUS REQUFST LEVEL(/

020122

052040

040505

044124
046114
020107
051505
041040
0526440
000
042011
020105
051505
020040
050011
042524

e A YN
G e
ek e
i e

?Nod-‘—)—t
S3RIN=
—tt
b

2556

027124
027136
027134
027142
022150
027156
027164
027171
027176

[@1,8)
HANO

2555

027067
027074
027102
027110
027116

2554

jole]

RYZR ROR g

027054

E2S IRIAAR g

;h53%

- LY

047506
047111

EMm33:

052101

044440
052522

052111
020125
053105
000200
047111
050125
052503
053440
046040
000200
042047
052111
051503
046111
046103
000

SEQ 0085

040516

047507

2549

(07:40 PAGE 5-28
ASCI] MESSAGES

100042
110

—POMROO
N

2548

30A(1052)
13-MAR-80
13-MAR-80 07:39

MAN,

rive
A P11

042101
042523
000
020103
051122
042526
040440
051523

020103
051122
042526

040440
051523
000
351525
042525
053105

IN (SR FAIL

TO CLEAR/<200>

INTERRUPT VECTOR ADDRESS(/

2558

047531
052116
(%4103

040440
020106
020105
051505
051117
000042
021200
00122
020105
020122
051511
042105
036451

062062

020125
052040
047101
054516
044124
040526
024040
047040

-1

SEQ 0086|

020117
040527
020117
042507
047440
051505
052514
020131
037451

DCMSG6H:

062524
052514

DCMSG7: .AS{I2

<200>/°ENTER VALUE AFTER (=)

020105
020113
042105
051040
053111
052503
052040

PASMSG:

DCMSGX:

.ASCIZ

,AS(CI2

/)=/
<200>/THE CLOCK PASSED THE RELATIVE ACCURACY TEST/<200>

DH1:

JASCT]

/ERROR

JASCIZ

/PC

LASCII

/ERROR

JASCIZ

/PC/

LASCI2

<200>/ERROR P(/<200>

LASCIZ

JERROR

JASCIZ

/ P/

ASC12Z

/PC/

.ASCIZ

<20C>/

"DO YOU WANT TO THANGE ANY GF

THESE VALUES (Y OR N)'Y

IS TYPED'Y

062524
020051
050131

=3 AN

2559
2560

0046600

07: 40 PAGE 5-29
ASC1] MESSAGES

027216
027224
027952
027240

BN L2 O

2557

30A(105¢)
13;HAR-80
13-MAR-80 07:3

=2 AN
-

MATY1T

NOOO
=N -

MAIN,

2561

000
051117

051505
051440
020104
040527

TEST#

SHOULD

WAS

(SR/<200>

051123

VIVILA
—

PV,]
b =

(=]

SE2Rs
XSRS
SR
RSRSRR
é% SR
-\né & g
A~

)
(=]

2570

23S

2568
2569

-l

2567

LA O VRO
WNIN

2566

2564
2565

BNO
RN
O
OO NANOOW

051117
051505
041440

O
WNAOW

2563

020040
020040
042502

b
el anddt

2562

DH2:

DH3:
DH3:
DH& :

DHS:

ASCIZ

/ERROR

BE/

TESTA

T€Eo ¥

(SR

PRESEC

TEST#/<200>

/7<200>

CURSEC

(SR/<200>

MAIN,
MACYTT 30AC1052)
13-MAR-8B0
CIRMA.PIT
13-MAR-B0 07:39

2571
2572
2573

2574
2575
3576
2578

2579

027654
027662
027670
027676
027700
Q27704
027712
027720

001116
001126
001116
000000
Q01116
001116
016550
001176

000001

07:40 PAGE 5-30
ASC1] MESSAGES

024042
001122
024042

001124
000000
001122

000000
024042
001122
024042

016554
000000
000000

DT1-

LEVEN
$ERRPC,TSTNUM,GOOD,BAD,BADA,0

DT2:

SERRPC,TSTNUM,BADA,O

DI3:
DT4:

SERRPC.0
SERRPC.TSTNUM,PRESEC.SECOND,BADA,Q

DTS:

SERRPC,TSTMUM,O

-END

SEQ 0087

MAIN,

MACYTT

ABASE ACDW1 =
ACOWZ2 =
ACPUOP~
ACSR

160006
000000
000000
000000
026120

(KWL A PTY

ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000

ADDW11= 000000
ADDW12= 000000
ADOW13= 000000
ADDW14= 000000
ADDW15= 000000
ADDWZ = 000000
ADDW3 = 000000
ADDWS = 000000
ADDWS = Q00000
ADDWS = 000000
ADDW? = 000000
ADDW8 = 000000
ADDWS = 000000
ADEVCT= 000000
ADEVM = 000000

ADR

024200

AENV = 000000
AENWM = 000000

AFATAL= 000000
AMADR1= 000000
AMADRZ= (000000

AMADR3= 000000
AMADR4= 000000
AMAMS
1= 000000
AMAMS
2= 000000
AMAMS
3= 000000
AMAMSS= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000

30AC1052)

13-mMAR-B0O

13-mMAR-80 07:39

154
33
32
33
710

2325
33
33
33
33
33
33
23
33
33
33
33
33
33

AMTYP4-APASS
APRIOR=
APTCSU=
APTENV=
APTS12=
APTSPO=
ASWREG=

000000
000000
000000
000040

33
33
33
33

33
33
33
2380

2380
254
2380
33

AUNIT = 000000

AUSWR AVE(11=
AVECTZA.Cik

000000
160300
000000
014754

1337

2330

33
33
33
33
33

000001
000200
000100
000000

ATESTN= 000000

1313«

2327

33
33
33

000000

23814
23814
23814
23814

33
164
33
414

SEQ 0088,

33
33

AMTYP3

{ROSS REFERENCE TABLE -- USER SYMBOLS

24684

PAGE
6

32
33
33
33
33

AMTYP1= 000000

AMTYPZ- 000000

07:40

33
18204

2387

1338

2345+

1347«

2349

1365

2352

1372

2444

1483+«

1498

1507

1514

2015«

2323«

BAD

BADA

30A(1052) 1§4HAR-80

~80 07

= 001126

459+

624
834

1003
1369+
463+
815+
1056+
1379+
1688«
1184

= 001122

BASEND
BASIC
BASTAB
BITAB
BITEN
=
BITO

L 7
07:40 PAGE 6-1
CROSS REFERENCE TABLE ~-- USER SYMBOLS

011422
011050
011220
004376
004436
000001

BIT00 = 000001
81701 = 000002
BIT02 = 000004

460~
674

461
675

468+
707

=
1081
1370
475%

1083
1494
>
486+

1089«
1496
528+

{72+
792+
847~
1090
1503«
538«

1067«

1085+

1096+
1446+

1145+
1457

837+

826+

838

840+

846

851«

865+

473
793

849

1205+
1505
545+
873«
1150«
1466+

SEQ 0089
479+

483«

684

924+
1206
1510+
552«
920«
1172+
1475+

926
1328+
1512

939«
1329

803«

812+

526+
813

535e
82

940
1335«

1336

2344

1318«
1489+

710«
935+«
1331«
1498«

2572

713
942+
1338+«
1507+«

741«
970«
1352¢
1514

627+
928+

1431
2147+

2182+

2325~

2572

2573

2575

576
1278

737
1284

2088

739

743

746

777

779

783

798

810

1254

1266

1762

2114
541

2166
550

2173
807

2180
912

MACY11
LMAIN,
CZKWLA. P11

2387
1249

1416

1639

1954

2076

2120

2124

861

869
1225
2177
938
568

917
1254

932
1260

1345

983

1062
16441

1073

1659

1077
1684

2120

1092

1133
2128

1152
2132

2228

631
2387

688
2389

2513#

720

736

751

20474

735

750

853

1421=

2137«

12894

12134
49N
«89
24
1243

1272

2389
2387

2389

5074
568

=
=
=
=
=
=
=

000100
000200
000400
001000
000002
002000
004000
010000

1237

2387
2389

BIT13 = 020000

BIT14 = 040000

BIT15 = 100000

BIT2
BIT3
BIT4
BITS
BIT6

1161

2163

=
=
=
=
=

000010
000020
000040
000100

8IT9 =
BPTVEC=
8RLV
CHKINT
(KSWR =

001000
000014
024102
005374
104407

CNT
CNTLC

024174
016106

1711«

AR
COMMA
CONST

024162
(024124
02405¢

24614

144
144

1219

2170
923
518

1311
983
436

697
1345
1077
439

2305

2314«

444

488

656

i ©g

565+

967

905
1712+
4«87
887

1715«
p3
903

1578+

1588

580

589+

620

3 &8

BITO6
BITO7
BITO8
BITO9
BIT1
BIT10
BIT11
BIT12

—any

81703 = 000010
BI1T04 = 000020
BITO5 = 000040

2228
1752
697

798

1904

2193

2208

556
13N
24664
563
1052

564
1180

1301

24354

512

1053
1728+

555
966

1607
594«

1612

597+

602

603

612

613

1410

630

1130

1179

1300

1409

687

719
1517

24464
1999

2039

2065

2090

26134

MAIN,
MACYTT 30A(1052)
13-MAR-B0
CIKWRA.P11
13-MAR-80 07:39
(ONT
CONT1
CONT
CONT
CONTSG
CONTS
COUNT
COUNTE
COUNTR

CR
CRLF
(SR

016024
016026
016102
016104
016320
016322
024164
026166
024052

= 000015
= 000200
024062

1996+
1997«
2029+
877+
2086+
2087«
1714+
24634
520+

2006
2071
2035
1138+«
2094
2098
1723

2008«
20204
2037«
1156+
2096«
21044
24624

2042#
1165+«
21034

2038«

20434

2230
144
164
356+
516%
627

917
2241+
2380
255
436
518+
655+

932«
24124

981+«

1075+

2163«

2170~

2177«

2192«

2195«

2205«

2210

2225+«

2380
439+
528
656+

455+
538
696+

459
541
697+

463
545
713

466«
550
718+

467+
552
737+«

468
566+
739

475
568«
741

477
576+
743

479
617+
244

486

829
923+

832+
928

840
932

843«
935

851
938«

861«
962

865
970

807

809«

810

815

820+

826

109
1232

1132«
1238

1133«
1244

1145
1250

1441x
1639«
1862«

1446
1643
1901+

1062«
161+

1267

1415«
1466
1684+

D5
DC&
DC7
DDISP =
DECOCT
DELAY
DELTAT
DEVCOD

DHOUR
DHl
DH2

DH3
DHG
DHS
DIGCNT
DIGEND
DIGIT
DI

024136
027350
026773
027041
027067
027126
027171
027216
027306
017310

017324
017504
017542
177570
014224
016152
01655
017234

024152
027431
027517

027547
027562
027634
024126
024316
024254
007010

SEQ 009U

2005+
2009«
2034x
986+
2093+
2097~
1717

748

DAY
DCMSGX
DCMSGT
DCMSG2
DCMSG3
DCMSGL
DCMSGS
DCMSGE
DCMSG?
DC4

w7
07:40 PAGE 6-2
(ROSS REFERENCE TABLE -- USER SYMBOLS

2076
2170
2345

1656
2262
2554
2258
2274
25554
2304
25574
2256
20694

775%

1067
1172

1273

1416%
1470+
1688

1072«
1185«

1279

1421
1475
1692+

779

804

1085
1220

1092+
1226

1425+
1481+
1752+

1426+
14B4v
1762+

1431
1489
1772«

1440«
1492«
1789+

1285

2120«
2177

1735+
2278

24514
2309

25594

a5k
1732
20604

2144

24204

798«

1077
1214

2114
2175«

2346+

783

1073«
1199«

2088
2173

1309+

1311

1318

869
978

1321

873
979«

1343«

910+
983

1345«

1450%
1645%
1951

912+
997

1352

1451
1659*
1956

917
1005

1150
1255

1355

1457
1663
1956+

620+
746
920
1056

1152e
1261

1379

1461%
1666+
2015

2124+ " 2128+
2180
2182

2132«
2185»

2137
2193

2147
2206

2161*
2226

2163
2268

2166
2323

2168
5324e

142
125

1
131

2861
147

152

25534
255Lm
25564
25584
2272

2266
2273a
2082
23034
2313
23154
133
1592
17060
821
833
21514
409
22514
80+
36
41
157
174
163
179
1566
1386
1562
8see

777+

20194

870
46
52
168
2565#4
25674
2569
1576
2509
1618
876

881+
62
57
189
25664

882
67
77
2563

BB4+
885
2%
82
88

1691+
e
93

2457A
Cile
98

1z
120

1577+

1584

1585+

1609

1614

24474

1731

24924

1606«

MACYTT

€ ZKWLA P11

DISPLA
DISPLY
DISPRE
DMONTH
oMT
DPRI

001142
007022
000176
024150
017206
024106

DTIM
DT]
OT2

024154
027654
027670

024406
025040
025152

FM13

025950

2387+
883

2389+
886

932

982
686

63
58

653
254

2163

2170

2177

104

110

115

904

1299

1408

1953

1961«

1962

248

259

348+

587

2386+
593«

2389+
596«

24694

524

871
1163

2178
260+

2197«

915
1170
1661
2204«
296+

918
1192
1667
2214+
654+

933
1325
1686
2224%

968
1359
2117
2234%

2573#

SEQ 00917

1076

1950«

24874

2434

22404

185

2572
148

153

1079
1444

1094
1455

1143
1464

132

025212

025304
025437

EXPCT

024202

569+

026222
024210

024212

24914

ERRVEC= 000004

354

= =

= OWNDANITOOR
NN =N O
OIND

ek
b
D
e
ad
i
k. mndh

SN ANON

107

024454
025¢55
025733
026004
026053
026121
026207
026256
026321
024507
026376
026445
026505
026545
026626
026674
026734
024563

025572
025605

024615
024651
024730
024252

2
FLAG,

CROSS REFERENCE TABLE -—— USER SYMBCLS

190

EMS
EM6
EM7
ERRPC

FLAG
FLAG.1

EM2
EMOO
EMO1
FM22
EMI3
EM24
EM2S
EMO6
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM3S
EM36
EM4

254=
868
254
24564
917

PAGE 6-3

EMI6
EMI7

I
B861a

027700
027704
027720
024244
024250
000030

EMI
EMIO
EMI1

EMI4
EMIS

13-MAR-80 07:39

07:40

= 177570

D13
OT4
OIS
ECHOE
ECHOB1
EMTVEC=

EMI2

13-MAR-BD

25354

O WNO00G N NN SN

DSWR

30A€1052)

1710~
1148
1473

578

1641

273+

661

695+«

991
1376
2122
2240+

702

1054
1419

2126
2243+
704

b NI
wd b

MAIN,

2135

2164

1316

1324+

MAIN,
MACY1T 30A(1052)
13-MAR-B0
L
A P
(KW
13-MAR-8) 07:39

002302
016324
016522
016356
016404

016506

1350

2564

07:40

1358+

729
785

2115
761

PAGE 6-4

CROSS REFERENCE TABLE -- USER SYMBOLS
1482+

1487

1493«

2000

2326+

2338«

2343«

2348+

875
2144M
21204

972

1058

1069

1174

1195

1624

21en

382

383
2513

2136
377

L22222

381
1833
473
698«
838«
1002«

1750
469+«
673

001124

834«

1312
1504+
471«

024214
104406

430

438

527
791x
911
1082+

534
793«
914

536
80
925
¢

846+

481
705+

484

1071~
1336

1074
1342+

1346

1361+

623+

624+

625

2355

26794

848+

1511«
481«

1003
1336+
1512
482+

2572
483

1520+

2333

2335

849+

21614
717

1307«

1375«

1413»

1315

1349

1486

19954

519+

522

527

532«

PLRRL

664+

674

26404

1903+

1904

4354

1522

23224

254
2386

NOOVPOOONIINUO

LRY

[aS1¥,1

g3 %MSNN

—"\)O? e D e
S ’“—'—‘W\fl
~ &ONOA)ObOJ\NO

md anch
e
s
s i
e e
e e
e
e
<ol
o

385

24864

701

NSNN N NNNNNNNN
NN NN
PNININLNINININNONININLNAININININD
AN LN LA A AN AN AN L L N N N

1844
480«

1736+

2293

[elelele] b ol

2673~

425

689+

2358«

21374

016520

002770
024116
006170
024140
000011
024242

SEQ 0092

2386

24094
515+

2681a
651
140
174

24844
395

2380

136
706+

JMAIN,
MACYTT 30A(1052)
13-MAR-BO
(KA A.P1Y
13-MAR-80 07:39

L.CLK

L.CNT
L.ENDT
L.ENDZ

015360

1830

015532
015542
015552

1909
1914
1921 -+

L.TABZ2 015544
MIN
024142
MMVEC = 000250

1918
1682
oY

NEWTIM
NO.CLK

013136
015554

399
1845

024046

513

L.TABT

(1553

1899

24504

1709~

1718«

1720«

1947«
1960
261
1563+

1957+
1978%
2104

1964

1925
370
372«

1970
2271
2289%

024160

N.CNT
N.CON
oCTMOD

015722
015724
002522

PASMSG
PCVO
PCVY
PIRQ
=
PIRQVE=
PKBUF =
PKCNT =

(27353
024072
024076
177772
000240
172542
172544

1878
360
365
144
144
204
21n

POINTR
PREDLT
PRESEC
PRESET

014416
016556
016554
012224

1706
21534
2145«
164084

"WCSR = 172540

PR]
PRO
PR1

024104
= 000000
= 000040

PR
PRS

- 000100
. 000140

PRS

- 000240

PRG

PR6

= 000200

= 000300

PR?

= 000340

PSV1

024100

PS
PSVO
PSW
PT

PWRMSG

1646

194

352%
144
144

15584
19474
£31«

1713«

1581

1623
1721

535

2410

1726«

1730

1724

24604

19774

5604
2275
2297x

24454
2283
2298+

2285«
2429#

2292«

2293«

904

1299+

1408+

1065
1686

1094
2117

1136
2122

2427A

1863

1865«

1866

21524

2575

371

373

24384

450

611

2295

2287«

2295+

611

653

1739

14#

144
144

= 1727776
024240

144
24854

P.CLK
P.CNT
P.ENO
P.TAB
RANDOM
RANKTA
ROCHR =
ROLIN =
RDOCT =
ROYBIT

19314

144

144
321

373«

228B6%

2290«

450«

883806

2390

23914

owsggo
015346
015356
015350
010520
002566
104410
104411
104412
017000

1842
1871«
1874
1860
11304
263
1570
39
2263
863
1359

18574
1872
1888#
18854

264

SEQ 0093

144
144

= 177776
024074

PWRVE (=

1932%

1734«

NUM

026122

1919

2453

026134

OCTNUM

18964

1912
19354
19394

19364
1737«

MONTH

NUMBR

07:40 PAGE 6-5
CROSS REFERENCE TABLE -- USER SYMBOLS

144

254

3294

2382
1822
2279
871
1376

2291«

2300«

2301

24284

2301«

686+

24304

2390«
18844

2513
1834
2310
915
1641

2383
2513
968
1661

25134
1054
1667

1148
2126

1154
2130

1163
2135

1192
2191»

1325

MAIN,

MACY1T

(ZKWLA.PTT

ROY(K
RDY(KT
READ

017120
017040
014426

READA

024056

READB
024060
REC
= 000001

RESTRT
003530
RESVEC= 000010
RGO
024064
RG2

024066

RG4

024070

RrROUT"

003776

SAFE
SAVRT

SE¢
SECOND
SETUPT
SETUP?
SETUPY
SETUPL
SISWR
SFTSW
SOFSWT

SRQO
SR1

024204
024114

024144
016550
002632
002656
002700
002714
024170
024112
024230

= 177572
= 177574

SRe
=
SRY
=
STACK =
START
STKI.MT=
STR
SWITCH
SWR
SWREG
W)
=
SWO0 =
=
SW01
=
Sw2
SW03
=
SWO4 =

SWOS

SWo6

177576
172516
001100
001712
127774
024156
024172
001140
76
1

W7
SWO08
W09

=
=
=

Wi
SwWll
sSwi
Sw1s

=
=
=
= 020000

30A(1052)
13-MAR-80
13-MAR-B0 07:39
1656

1418
404
577«

585+
P14
376
144

283

1240

07:40 PAGE 6-6
CROSS REFERENCE TABLE ~- USER SYMBOLS

1463
1428
17504
578

2221»

SEQ 009«

1443

1472

2202«

593

584
596

585
26164

587+

591

2415~

3864

400

405

410

416

429

43N

2054

2382

1252
1660+

914
1257
1669

980+
1312«
1773
1089
1685«

1001
1335

1093«
1417«

1442«

939
1275
1763
1081
1503

993
1328

1369

765

778
1147+
1952«

781
1155
1960

1135+
1691
577
799
1158
2075«

1153«
1427~
2129«
1246
2169~

763
988
1868
4324

924
1269
1753
1074+«
1462+
526

1155«

1158

1164+

2389

2390~

870+
517«

1063«
5¢2

938
2146%
3484

567~

569

2116+

366
3674
24804
2386+

2386+
632

389
2372

2376

2390

1723«

1726

1727

2455

235
255

2382+
2382

2387

24654
254
354

2121«
1162+
1790
584

1164

2125+
1228

2134+
619+

803

1167

2146

2176+

1167

2454n

621

812
1287

2344

1222

1234

2259

242\»
1346+

1494

1281

699+
837
1510
24234

1521«

216+

847
1807

MACYTT 30A(1052)
13-MAR-80
C{KWLA.PTT
13-MAR-80 07:39
Swis

SwWisS
Swl
Swd

wung

MAIN,

040000

144
14m

Tem

SW5

164

SWé

164
14H
144
144

Sw7
Sw8
SW9

TAB
TABDRY

1963
892

TABDR3

10514
12994
907
974
1060
1303
1412
906
973

TABDR?

[a¥10 N W F SN N T

o
Jour G

—NJ
DO

006002

2
PR SV

X
'-'g EZEAAA
ZZ—:mEs
&-

g =l
) =
o

gt Prang) e

) o

Sone Py, Sy Sy S

TAB
. EH
TBITVE-

229880888828
R EY
i

TABLES

)

TABLE3

OOOOOSOOOO
VAN
O

TABLE]

TABLE?

——

TABENS

SI28LCE
VYN
S SO

TABENZ
TABE N3
TABENG

964n

2O~

TABDR4
TABEN1

E 8
07:40 PAGE 6-7
CROSS REFERENCE TABLE -~ USER SYMBOLS

1059

1302

1411

1966
144

830w
24670
2322+
2342w
24824
615
693
658+

6114
6864
24554

259

372
614
691

144
144
144

19734

9004

909
1070

1378
15504
9464
10084
10994
13824
15274
19764

844

632

721
700

2964
2298
633

2387+

2406#

857%
9024

9634
11784

13984

2075

20754

6424
284
1314+

13648«

1485+«

20N

2573

2575

2576

23420

7224

254
23644

445m
7604
7738

11224
1381

24754
24764

348

140

9594

10434

2572

20214

§
SEQ 00951

MAIN,
MACYT1 30A(1052)
13-MAR-80
(ZKWLA P11
13-MAR-80 07:39
0114624

1298#

1S120
1S73
1ST4
1515

012214
004730
005166
005356

1607#
S624
610
6484

1S17

006010

15716

005540

TYPDS

TYPE

= 104401

104405

S10#

685
734m

1761

1771

255

1785

377

378

438

1844

TYPOC = 104402

2365

2260

TPON = 106404
TYPOS = 104403

2513
25134

WAITZ2
XX
YEAR

831
24714
1632

WAIT
WAITT

YERIN
$APTHD

016037
016226

016204
024206
024132

013702
001000

878
738

1593
22K

SASTAT= weawee |
SATY(C
020510
SATY1
020464

2381
23814
23814

$ATY4
SAUTOB
$BASE
$BDADR
$BDDAT
$BELL
$COW1
SCDW2
$CHARC
$CKSWR
$CMTAG
$(M3
=

020502
001134
001262
001122
001126
001176
001266
001270
020460
020732
001100

23814
334
334
25
23
334
334
33
23804~
23824
334
334

$SCORE
$CPUOP
SCRLF
$CROUT
$DBLK
sODW0
$ODWT
$OOWI0
$00wWll
sODW12
$PDW13
$ODW14
$OpWIS

022356
001234
001203
022606
022340
001272
001274
Q01316
001320
Q01322
001324
001326
001330

SATY3

020472

ML
=
05
SCNTLC
021532
SCNTLG
021544
SCNTLU 021537

TABLE -- USER SYMBOLS

2380

3N
23824
23824
23824
23864
I
334
23864

2385+
33x
33
33
33x
334

33
3x

1788

379

380

2376

1591

1598

1599

2385

2387
2388

2257
2388
25134

2387

2388

381

1559

2376

2380

2382

2384

2382

2387

987
745

1139
2085#

1157

1166

20284

1751

2380

2382

2276

1925

2307

B4S

20754

1733«
16314

24494

1953

2370

1573

1810

1806

1558

1878

1560

1802

1962

1970

382

2255

23814

2387
255«
289~
34
334
2387

2382
356

2513
254

386

1599

2513#
384
1622
2261

2390

385

1750

2273
25134

386

1751

2277

387

1821

2303

WO
&~

004440

1572

n) -

1ST17

07:40 PAGE 6-8
CROSS REFERENCE

MAIN,
MACYTT 30A(1052)
13~-MAR-B0
(7KW AP
13-MAR-B0 07:39
$00W2
S00wW3
$OOW.
SO0WS
$00W6
$OOW7
SODW8
SO0WO
$OEVCT
SOEVM
$O0AGN
$078L
SENDAD
SENDCT
SENOMG
SENULL
SENV
SENWM
$£0P
$E0PCT
$ERFLG
$FRMAX

$ERROR
$ERRPC
$ERRIB
SERRTY

SERTIL
SESCAP

001276
001300
001302
001304
001306
001310
001312
001314
001216
001264
020756
022330
020746
020114
020165
020162
001226
001227
020060
020106

330
33y
33y
324
33y
33y
33y
330
330
334
23764
23854
30
254
23764
23764
334
33w
1523
254«

022656
001116
001332

001103
001115

023206

SETABL
SETEND

001112
001174
001226
001332

$FILLC
$FILLS
$GDADR
$GODAT
$GE 142
$GTSWR
SHIBTS
$HI0CT
$1CNT

001156
001155
007120
001124
020136
021002
001000
021674
001104

$INTAG

001135

$FATAL
$FFLG

SILLUP

001210
020730

G 8
(07:40 PAGE 6-9
(ROSS REFERENCE TABLE -~ USER SYMBOLS

255
2376w

23764

2387

255
5L,
2376
23764

2380
2380

2381
2381

2387

25,
B3¢
33

23874
2387«
2388

2389
2388

2572

2573

334
Tty
33y
32

2387+
T 254e

2387

2389s

3w
3By
33y
22
2376
238on
34
23834+
33

2380
2380

33¢
3y

2387

330
23B1Mn

2387+
254x

2389+
2389w

23884

334

2387+

334
2513
2389+

024

23904

$ITEMB
SKTNEX
SXTOUT

001114
022550
022540

33
2386w
23864

2387

2388

001204

3¢

2380

2382

2387

54
54«

2389w
2387

2389«

sk111

SLFLG
$LPADR
SLPERR
SUSTAD
S STBK

SMADRY
SMADR,
MANRE

33w

022406

2386w+

020727
001106
001110
022650
022654

23814+
3
32
2388M+
23864

001240
001244
001250

33
374
33w

2382

|
SEC 0097

2574

2575

2576

MAIN,

MACYTY

fIKWA A P
SMADRSG

MAIL

wamst
WMAMS?
MMST

S0A(105¢)

13-MAR-80

13-MAR-80 07:39

001254

001206

0012%
001242
001246

b
33x
3

(001253
023632
001154
000001

33w
320
23814+
23824
334
334
334
23824
I
334
k34
334
23894
334
L4

SOCNT
sOMODE
$OVER
$PASS
tPASTM
SPWRAD
SPWRDN
SPWRMG
$PWRUP
SQUES
SRDCHR
BRDDFC=
$RDLIN
$RDOCT
$RDSZ =

(022120
022122
027616
001214
007006
023774
023634
023770
023706
001202
021254
wwwnen ()
021374
021574
000010

2384Mn
23844
2389
334
324
23904
254
2390
23904
334
23824
2513
23824
23834
23824

SR2A
= wemwan |
$SAVRE= wenwwe {)
$5AVR6 024004

2513
2513
23904«

$SCOPE
$SETUP=
$SI12E
$SIZEX
$STUP =
$SVLAD
$SVPC =
$SWR =

001252
001002
020726
021562
001222
001224
001206

134

SMAMSS
SMBADR
MG
MNEW
MSGAD
MSGLG
MSGTY
MSWR
MmIYP1
wryr?
MIYPY
MTYPL
MXCNT
NULL
NWTST=

$RINAD

021551
001237
001243
001247

(20160

023342
000137
022350
0;;61
17777
023562
000204
167400

SSWREG 001230
$SWRMK- 000000
S$TESTN 001212
STIMES
0011722
$7x8

t STEN

001146

001144

(7:40

1178#4

254

255

2380

2387

2389

5624

6104

648

6854

734m

2381«
2381e
2381«

2380
S10#

7604

7734

8574

902#

9634

11294

734

760

773

857

734

760+

773

857+

12984

14074

254*

2376+

2389

1598

2380

2382

2387

255

2376

2382

2387

2389

254
1129

449
1178

510
1298

562
1407

610
2376

648
2387

685
2389

2390

390~
1129+

449«
1178+

510+
1298+

562+
1407+

610~
2376e

648+
2389+

685+

23904
387
2513

2513
2513

23764

254
2524
2386w
23864
252
2389
304
114
902
33
2389
3
I3
902+

23894
254

(ROSS REFEREN(CE TABLE -- USER SYMBOLS

1522«

PAGE 6-10

33
963
254
2389

254«
963
1950

1948

1961

1958

2049

2047

2382

2382+

13-MAR-80
MACYTT 30A(1052)
13-MAR-80 07:39
CIKWLA, P

07:40
PAGE 6~11
CROSS REFERENCE

MAIN,

001160
001162
001164

2387

2380«

noror

WOoD
—»

2513

—d e mad

SVECT?
$XTSTR

MirIvIvESvn

610#

SEQ 0099

648

685+

734

760%

773«

857»

902#

254

2554
2163

3774
2170

3794
2177

23684

380#

3834
2376

2380

934

N2
NN

$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT]

TABLE -- USER SYMBOL
S

VAN

LV
AV,]

NEANAY

2376+

$TYPEN =
$TYPDS
$TYPE
$TYPEC
STYPEX

024 360

001004
001102
021522

5624

14078

AV
ARV
LV
R

TTYIN

000013

S10#

1298¢

330

$ TRAP
$TRAP?2
$TRP
=
$TRPAD
$TSTM
$TSTAM

001152
001157
001150
024324
024346

=2 QO AN AN =2 —d wd

$7P8
$TPFLG
$TPS

124

11294

(g% 1aS 1o 0]
VNN

LTMPY
001166
001170
$TMPS
$IN
= 000021

334
33
33
33
334

$1MPO
S TP
sSTMP2

349

361

2387
304

2389

n
~
~
o
o

$$GE T4

$OF ILL
$40CAT

1558#

LSASTA:

»eernee

= 001000

2385«

k3L

15594
2387

k¥l

15604
2388+

330

1833¢
2389

1844a
2390

2488#

4304

917

2381«

GE TSWR
MULT

NEWTSTY
POP
PUSH

ROY(CK
REPORT

SCOPE

SETPR]

SETTRA
SETUP
SKIP
SLASH
SPACE
STARS

SWRSU

TRMTRP

TYPBIN
TYPDEC
T YPNAM

TYPNUM
TYPOCS

TYPOCTY
TYPTXT

$SCMRE
SSCMTM
$$ESCA
SENEWT

164
144

144

1298
144
16

212

1641

144

T4n
1298
144

2513«
144
140
144
144
144

963
2389

144

51
144
144
I

144
I J

144

164

1622

33
I
144
144

366
1689

1373
1876

539
841
1097

510

562

2383
2383
871

2385
2385

1667

915
1686

510

562

32
1178
2407

1057

1353
1664

449
1407

2381
2381
863
1661

449

14607

30
1129
2390

254

2376

144

666
921

677

1
936
1173
1476

1146
1432
1968

2138

2183

2329

2332

685

734

760

773

857

1151
1447

1160
1458

1169
1467

742

971

1208

1500

2351

2376

1065

1094

963

1129

2126

2130

2135

1148

1154

1163

1192

1325

1359

1376

685

734

760

773

857

902

963

1129

1178

144

449
1407

562
2380

€10
2381

648
2382

2383

685

734
2384

2385

2386

760

773

902

2388

255

2382
377

2387
378

2388
379
1833

1844

380

381

382

383

384

385

430

438

1558

1559

1560

449

510

562

610

648

685

734

760

773

857

902

963

1129

1178

1750

JEQUAT

r{ ]

ox
(&%4
éx

628
874

254

$SSET

HEADE
KT
.SETUP

1142
1422
1923

553

255#

1407

2544
14

1380
1916

852

2386

1298
2513

$$SETM
$ESKIP

068

546

— O

529
827

wmw§w
8080

816

~b o

476

805

VIO

464

849

2177

)

838
2170

ESCAPE
GETPR]

1644
144
144

824
2163

N8R A

1959

813%
932

SEQ 0100

)
=t
W
=

164

1795

793
917

FRROR

144
263
2284
2354
217
222w
144

NOWR
ro I~

COMMEN
COMPAR
DE (MK
DECLR
£CHO
£CHOT
ENDCOM

J
8
07:40 PAGE 7
C(ROSS REFERENCE TABLE -- MACRC NAMES

N
s

rIx
A P11
d

30A(1052)
13-MAR-80
13-MAR~-80 07:39

—s O
WwWOOW

MACY11

N —

JMAIN,

26
252

1821

MALN,
MACYYT 30A(1052)
13-MAR-80
TIKWLA, P
13-MAR-80 07:39
CSWRH|
LSACTY
.SAPTB
.SAPTH
.SAPTY
.SCMTA
.SEOP
. SERRO
.SERRT

s
o
on
o
o
I
8
8y
84

. SRDDE

. SPOWE

14 4

20
33w
32
2381
23
2376
2387
2388

2390

. SRDOC
.$READ
.$SLOP
LBS17E
.$TRAP

o¥
o
8¥
o
o

.STYPE
.$TYPO
.$40CA

o
74
I 4

2385

. ABS.

027726

000

.$TYPD

ERRORS DETECTED:

2383
2382
2389
2386
2513

2380
2384
27

CZKWLA.BIN,CZKWLA.LST/CRF=CZKWLA
P11
RUN-TIME: 66 35 4 SECONDS
RUN=TIME RATIO:

CORE USED:

28K

158/106=1.4

(55 PAGES)

K 8
07:40 PAGE 7-1
(ROSS REFERENTE TABLE -- MACRO NAMES

see 0101