Digital PDFs

AH-F409A-MC

May 1980

102 pages

Original

60MB

view download

OCR Version

85MB

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

MLIST LOC,SEQ,BIN

“REM_

SEQ 0001

PRODUCT CODE: AC~F40BA-MC

PRODUCT NAME: CZKWLAO KW11~C DIAGNOSTIC
DATE :

JANUARY 1980

AUTHOR(S) :

VIJAY ANANDWALA

MAINTAINER:

(C.S.S. DIAGNOSTIC GROUP

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
%C{QE"SP?USIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A
l ENSE _AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH
TERMS OF SUCH LICENSE.

DIGIT
FOR THE

EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT
THAT IS NOT SUPPLIED D BY DIGITAL.

COPYRIGMT:

1980 DIGITAL EQUIPMENT CORP.
MAYNARD MASS.

ABSTRACT:

C
THE KW11-C DIAGNOSTIC PROGRAM PROVIDES A

SERIES OF TESTS DESIGNED TO VARIFY THE INTEGRITY
AND OPERABILITY OF THE kW11-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 TEST
gkafl‘tezggsnus VARIOUS SUPPORTING SUBROUTINES AND

2 .0

REQUIREMENTS
:

EQUIPMENT

PDP 11 PROCESSOR
CONSOLE DEVICE(LA30,LA3€,vT50,vT100,ETC)
KW11=C CLOCK

DESIRED EQUIPMENT
KW11=P OR KW11-L CLOCK
PROGRAM STORAGE

PROGRAM REQUIRES 8 K WORDS OR MORE

MEMORY

2.3

SOF TWARE

5.0

ABSOLUTE LOADER OR OTHER INPUT MEDIUM
SWITCH REGISTER ASSIGNMENTS:

SWO8(1 ) LOOP ON TEST IN SWR<7:0>
SWOB( 0 ) DO ALL TESTS IN SEQUENCE
ON_ERROR
e
9 ( 0 ) CONTINUE ON ERROR

1 ) LOOP

SH18( 1)=BELL ON ERROR
( 0)=NO
SW10(0)
BELL ON ERROR

Sw11( 1 ; INHIBIT ITERATIONS
SW11(0
LLOW ITERATIONS

< Lg

Swi ( 1 ) INHIBIT ERROR TYPEOUTS
Sw1 ( 0 )
LOW ERROR TYPEOUTS
( )
Swi4(1
O0P ON TEST
( )= ON'T LOOP ON TEST
SW14(0

SEQ 0002

NCTE :

*"#

SwW1 5(1)
SWIs(0)

ON ERROR

INUE ON ERROR

COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A
SOF TWARE SWITCH REGISTER LOCATED IN MEMORY AT LOCATION
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
1F THE PROGRAM RESIDES ON A MASS STORAGE DEVICE SUCH AS
MAGTAPE OR DISK REFER TO THE XXDP USER'S GUIDE.
STARTING PROCEDURE
:
STARTING ADDRESSES

INITIAL STARTING ADDRESS IS 200

RESTART ADDRESS 1S 200

5 .2

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 ‘(CR’.
HELP MESSAGE PRINTS AS FOLLOWS

SELECT FUNCTION BELOW, TYPE CHARACTER CARRIAGE RETURN.
TEST CLOCK (CONTROL C TO EXIT)
'S' TO SET CLOCK
R' TO READ CLOCK
M' TO MODIFY/READ ADDRESS AND VECTOR
A' ACCURACY OF CLOCK

' CHANGE SWTHQRE SWITCH REGISTER
' EXIT HALTS
CPU
H ' HELP PRINTS THIS MESSAGE.

WHEN MONITOR PROMPTS WITH(?)
OPERATOR (AN TYPE ANY
ONE OF ABOVE CHARACTER FOLLOWED BY A ‘CR".

SEQ 0003

IF YOU WANT TO TEST THE CLOCK TYPE °*T'

PROGRAM START?

3
"(R’

TESTING THE CLOCK.TO EXIT FROM ANY TEST TYPE

CONTROL C. WHEN PROGRAM RECOGNIZES CONTROL C CHARACTER,
PROGRAM PROMPTS WITH *2°

TO INDICATE NOW IN MONITOR MODE

FROM WHICH YOU CAN AGAIN GO BACK TO TEST THE CLOCK OR
CAN SELECT THE FUNCTIONS DESCRIBED ABOVE.

HOW TO SET CLOCK

FIRST MAKE SURE YOU ARE IN A MONITOR MODE
TYPE 'S’ FOLLOWED BY A *CR* TO SET CLOCK.

(?).

WHEN SETTING CLOCK,YOU MUST ENTER VALUES IN ALi FIELD IN

PROPER FORMAT.LETTERS IN FIELD INDICATES NUMBER OF DIGITS
T0 BE

VALUE.

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.

NORMAL ADDRES

A;g.g
AS FOLLOWS

DEVICE ADDRESS
VECTOR ADDRESS =

BUS REQUEST LEVEL
=
HOW TO TEST ACCURACY OF CLOCK
WHEN YOU ARE IN A MONITOR MODE TYPING ‘A’ FOLLOWED BY
BEREL&REGRM GOES TO THE ROUTINE FOR TESTING ACCURACY
FOLLOWING QUESTIONS UILL BE ASKED:

L=Cik

(L)

P=(Lk
(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 0004

-3

If BOTH ANSWER ARE NEGATIVE PROGRAM WILL ASK TO TYPE TWO

CHARACTERS 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 Kw11-C.

THE ERROR MESSAGE WILL BE PRINTED IF CLOCK IS NOT ACCURATE.
THEN THE PROGRAM GOES TO MONITOR MODE(?).

IF THE CLOCK IS 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(?) , TYPE 'G' 'CR'
PROGRAM PRINTS OLD CONTENT OF SOFTWARE 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
&flbc;fw VALUE AS ABOVE.SO USE <CONTROL G> WHEN TESTING

HELP MESSAGE

IN MONITOR MODE TYPING 'H'

°"CR' PRINTS

SELECT FUNCTION BELOW,TYPE CHARACTER CARRIAGE RETURN.
'T' TEST CLOCK (CONTOL C TO EXIT)
'S' TO SET CLOCK
'R' TO READ CLOCK
'M' TO MODIFY/READ ADDRESS AND VECTOR
'A' ACCURACY OF CLOCK
'G' CHECK/MODIFY SOF TWARE SWITCH REGISTER
'E' EXIT HALTS CPU
'H' HELP PRINTS THIS MESSAGE.

5.0

PREL IMINARY OPERATIONS:

DEVICE ADDRESSES AND VECTOR ADDRESSES
DEFAULT:
DEVICE ADDRESSES: 760%80
760202
760204

CSR: 760206

VECTOR(0): 300

VECTOR(2): 304
BR:
6

SEQ 0005

S .3

PREL IMINARY PROGRAMS NEEDED

SEQ 0006
6 .0

7 .0

NONE
OPERAT IONAL PROCEDURES:

NORMAL OPERATION IS WITH ALL SWITCHS ON 0.

ERRORS:

EACH ERROR SIGNATURE CONSISTS OF ONE OR MORE LINES
OF TEXT, DESCRIBING THE ERROR AND ALSO INCLUDES

EXPECTED VS RECEIVED DATA, CONTENT OF CSR AT TIME OF ERROR
TEST NUMBER WHERE APPLICABLE.
FOLLOWINGS ARE EXAMPLES OF ERROR PRINT OUT

EX1:

'READY BIT FAIL TO SET IN CSR’

Eglc?OR

TESTH

CSR

5432

00000

WHERE

ERROR

EX2:

GIVES THE ADDRESS WHERE ERROR OCCURED.

TEST#

TELLS

CSR

TELLS THE CONTENT OF CSR AT TIME OF ERROR.

THE TEST NUMBER WHERE ERROR OCCURED.

'READ VALUE NOT MATCH WITH EXPECTED’
EgROR

5422

WHERE

TEST#

GOOD

00000

BAD

00073

CSR

00200

GOOD IS EXPECTED VALUE
BAD
IS ACTUAL VALUE READ.

OTHER FIELDS ARE SAME AS ABOVE.

Ex3:

'HOLD BIT FAIL TO RESET'
ERROR
TEST#
PRESEC
PC

6010

CURSEC

CSR

000001

PRESEC

FURSEC

IS THE VALUE OF SECOND BEFORE HOLD BIT SET

THE VALUE OF SECOND AT TIME OF ERROR.

EXECUTION TIME:
EXECUTION TIME VARY SOMEWHAT,DEPENDING

%P%wszfl’f.!flf FOLLOWING ARE EXECUTION TIME OBSERVED ON

QUICK PASS:
SUBSEQUENT PASS:

6MIN,20SEC
14MIN,30SEC

SEQ 0007

ISRE——

WHERE

13-MAR-80
-80 07 :39

(1052)

i e

vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv‘\W —ry

JMAIN, MACYTT
1
CZKWLA.P11

D v

D i
D e v

SEQ 0008
$SWR=167400
$TN=1
BASIC DEFINITIONS

s*«INITIAL ADDRESS OF THE STACK POINTER »=x 1100 ==x»
STACK= 1100
LEQUIV EMT_.ERROR
::BASIC DEFINITION OF ERROR CALL
.EQUIV 10T.SCOPE
Z:BASIC DEFINITION OF SCOPE CALL

*HISCELLMEOUS DEF INITIONS

HT=

e e

TN B

PAGE 1

.SBTTL

LF=
CR=
CRLF=

12
15
200

LEQUIV

PS,PSW

PIRQ=
DSWR=

177772
177570

PS=

NN P
e D e s

177776

STKLMT= 177774

DDISP=

177570

::CODE FOR HORIZONTAL TAB

::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED

::PROCESSOR STATUS WORD
;:STACK LIMIT REGISTER

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

; *GENERAL PURPOSE REGISTER DEF INITIONS

RO=
W

NN NN LN NN
NN SN NN TN NN N NN NN N LN N AN TN BN PN
ol o il ol ol s D ol el el e e e el e e o e D e el e e e e e e e e e

il il it il ol il

TN NSNS

07:40

Rl1=
R2=

%1
%2

RS5=
R6=

25
%6

R3=
R4=

R7=

SP=
PC=

X3
%4

;;GENERAL REGISTER

> ;GENERAL REGISTER
; ;GENERAL REGISTER

; ;GENERAL REGISTER
s ;GENERAL REGISTER

2 ;GENERAL REGISTER
; :GENERAL REGISTER
s ;GENERAL REGISTER

;;STACK POINTER

; :PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR%_
PRS-—

PR6=
PR7=

:;PRIORITY LEVEL 0

40
100

;;PRIORITY LEVEL 1
;;PRIORITY LEVEL 2

200

:;PRIORITY LEVEL 4

140

%’68

340

;:PRIORITY LEVEL 3

:;PRIORITY LEVEL S

;:PRIORITY LEVEL 6
:;PRIORITY LEVEL 7

;=" 'SWITCH REGISTER'® SWITCH DEF INITIONS

SWi15=

100000

SwWi2=
SWil=

10000
4000

SW0%9=
Sw08=
SW07=

1000
400
200

Wis= 30000
SW10=

2000

PAGE 1-1

BASIC DEF INITIONS
SWO4=
SWO3=
SW02=
SWo1=
SW00=

SEQ 0009

- o
geeekepery

000020
000010
000004
000002
000001

07:40

8;?’?;A BIT DEFINITIONS (BITOO TO BIT15)

BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BIT06=
BITO05=
BITO4=
B8I703=
B8IT02=
8IT01=

BIT00=

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV

40000

10000
4000

2mE SSERAE

BIT09.BIT9
BIT08.BIT
BITO7.BIT
BIT06.BIT
BIT0S.BIT
BIT04.BITé
BIT03,BIT3

;*BASIC "'CPU"* TRAP VECTOR ADDRESSES

ERRVEC= &

;TIME OUT AND OTHER ERRORS

‘t!o.t.n.ol lul
R
IR YA TR IR

NN PN P
P ) e i D D
— v
b
s il s el el

T PN
NN TN LN NN NN EN TN TN TN NN NN GN AN NENAN NN TN NN GNP BN PN
N
S i et i ) s el el e e
D e e e e e e ) e el D D D e
D D D e ed D D e
D e e D e D D D

\f\d\tht\f\f\r\fsa‘1\4\4\4\f\f\t\a\f\f\a\f\f\fl\f\—\l\f\o\l\o\a\l\'\z\l\l\o\'\g\—\'\v\'\'\r\D\n\'\'\'\'\O\O\'\' N

il il

S0A(1052)13-MAR-80

g;§,!ggPO
ek ksO

MACY11

28
e 288=
o

MAIN,

CZKWLA.P11

is_emo AND ILLEGAL INSTRUCTIONS

'TRACE TW
BREAKPOINT TRAP (BPT)

IWT/(FIJTHJT TRAP (IOT) s«SCOPE=»

Eflufm TRAP (EMT) ==ERROR#*»
;2 "TRAP*

21y xsmmn VECTOR

;:TTY PRINTER VECTOR

MAIN,

MACYTT MOSZ)

CIKWLA. P11
1N
15
16
17
19
20
51
:
?
A
2
(1?

~-80 07:39

000240
i
160
177546
172540
172542
172544

001124
001126
1
001122

(am

000250
177572
177574
177576
172516

172300

(1)
(1)
(1)

17 §1
170312
172314

17530
17 %
172316

()

(1)
(1)
1)
(1

(1)
(1)
m

(1)
()
)

.SBTTL

;:PROGRAM INTERRUPT REQUEST VECTOR
:BASE (D BUS ADDRESS EQUATE
*BASE (D PRIORITY & VECTOR ADDRESS EQUATE
:;CONTROL AND STATUS REG OF L.CLOCK
::CONTROL AND STATUS REG OF P.CLOCK
IBUFFER OF P.CLOCK
ICOUNTER

MEMORY M~NAGEMENT DEF INITIONS

MMVEC= 250
SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

KIPDRO= 172300

KIPORSS 175308
KIPDR3=
175%06
KIPDR4= 172310

KIPDRS= 172312
KIPDRG= 172314
KIPDR7= 172316

;*KERNEL *'I'* PAGE ADDRESS REGISTERS

172340

172342
172344
170346
172350

172352
172354
172356

(g;

(1)

BASIC DEFINITIONS
PIRQVEC=240
ABASE=160006
AVECT1=160300
LKS=177546
PKCSR=172540
PKBUF =172542
PKCNT=172544
GOOD=$GDDAT
BAD=SBDDAT
REQ=BITO
BADA=SBDADR
)

;*KERNEL *‘I'* PAGE DESCRIPTOR REGISTERS

PAGE 1-2

;*KT11 STATUS REGISTER ADDRESSES

(1)
(1)

07:40

;#KT11 VECTOR ADDRESS

(1)
1
1)
(m

13-MAR-80

000000

KIPARO= 17234

KIPAR1=
KIPAR2=
KIPARS=
KIPARL=

17234
172344
1g3“
172350

.SBTTL

TRAP CATCHER

KIPARS= 172352
KIPARG= 170354
KIPAR7= 172356

.=0

;*ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN
txA **.+2. IOT"' SEQUENCE TO CATCH AND PROCESS ILLEGAL
*«TRAPS AND INTERRUPTS THAT MIGHT OCCLR.

*«THE 10T TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT

*«TRAPS TO THE SSCOPE ROUTINE WHICH (IF THE RETURN PC IS
s*LESS THAN 1002) JUMPS TO THE SERROR ROUTINE.

SEQ 0010

JMAIN,

MACYTT 30A(1052)

13-MAR-80
13-MAR-80 07:39

;*WHERE XXX=LOCATION OF ILLEGAL TRAP

N N
NN

D d e
d

YYYYYY=PC AT TIME OF TRAP

Z«NOTE: IF THE PROCESSOR IS NOT AN 11705 THE PROGRAM
%
CAN BE STARTED AT ADDRESS O AS WELL AS ADDRESS 200.

000000
000002

$4LOCAT: HALT

SWREG:
.SBTTL

000200

.SBTTL
AR

.WORD

ROUT1

*IVECTOR TO STARTING ADDRESS

;;SOF TWARE DISPLAY REGISTER

340

::WITH PRIORITY LEVEL 7

.WORD
O
STARTING ADDRES(ES)

JMP

g
g

000052

000046

.SBTTL

::SOFTWARE SWITCH REGISTER

@MROUTT ;GO TO START OF PROGRAM

ACT11 HOOKS
A AR A AR AR A AR AR

AT AR AR A AR AR A AR

SVPC=.

AR AR TR R

AT R RN

:SAVE PC

’5'5‘-2»”

::1)SET LOC.46 TO ADDRESS OF S$ENDAD IN .SEOP

WORD O
- =$SVPC

::2)SET LOC.52 TO ZERO
*:"RESTORE PC

.=1000

APT PARAMETER BLOCK

AR AR A AR AR A A A AR RN A A RN

AR RAARAR

AR NA

AR AR R

A RN RN

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

B BN

IR AR

.$X=,
éaslo

L
L

: SBRANCH TO 177700 & TIME OUT (NOT ON

;HOOKS RggJIRED BY ACTN

000024

. =hd

AAARA AR

R A AARANRRRARARRRRNRRRRANNARARARNAARRNNN
Y

;.SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM
;sFOR APT START UP

;;POINT TO APT INDIRECT ADDRESS PNTR.

SAPTHDR ;:POINT TO APT HEADER BLOCK

D e e

.=100

DISPREG: .WORD

000174
000176

;HALT

- WORD

—

D e

D d e

FEN N NN N NN

=YYYYYY UNEXPECTED TRAP TO XXX

e L

s il e [N e

-=.8X

;;RESET LOCATION COUNTER

AN TR RRRNRRRARRRREAARRARAARARARRARNNAARAAANS

.?fi;&fc’g WTER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

NO SN

~N —
—

s el o

el e

e T T

i o

L
L

it i el ol )

P T

SEQ 0011

s*AND RETURN TO THE PROGRAM AT PC=YYYYYY+#2

2 3
a2

PAGE 1-3

TRAP CATCHER

;*THE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:

)

BN N

07:40

vvvvvvvvvvvvvvvvvvvvaavvvvvvvvv&avvvvvvvvvvvvvvvvv

w—d w—d o

CZKWLA.P11

SAPTHD:
$HIBTS:
SMBADR:
$TSTM:
SPASTM:
SUNITM:

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

O
;:TWO HIGH BITS OF 18 BIT MA]
ADDR
SMAIL
;;ADDRESS OF APT MAILBOX (BITS
0-15)
15.
s;RUN TIM OF LONGEST TEST
60.
s;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
O
;-ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-SMAIL/2 ;;LENGTH MAILBOX~-ETABLE (WORDS)

MAIN,

MACYTT

CZKWLA.P11

(1052)

13-MAR-B0

-80 07:39

13'5'0

07:40

PAGE 1-4

COMMON TAGS
.SBTTL

SEC 0012

COMMON TAGS

gZ)

£ :ttttttttttttt“ttttt't'ttttt"tttl.t't"lQQQ"QQl.t.'.'t.lt..i!

fl;

;+USED IN THE PROGRAM.

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

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

001100
001180
0011 i
11
1
11
00111
1112
1114
1115
111
11
11
1124
11

SCMTAG:

(1)
8;

1
}} 5

(1)

114

$TSTMM:
SERFLG:
SICNT:

MWORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O
O
O
O
O
1
O
O
O
O
O

ssSTART OF COMMON TAGS

2> CONTAINS THE TEST NUMBER
+sCONTAINS ERROR FLAG
- CONTAINS SUBTEST ITERATION COUNT

.mm

- sCONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
s CONTAINS TOTAL ERRORS DETECTED
> ;CONTAINS ITEM CONTROL BYTE
;s CONTAINS MAX. ERRORS PER TEST
2 sCONTAINS PC OF LAST gm INSTRUCTION
> ;CONTAINS ADDRESS OF ‘GOOD' DATA
2 ;CONTAINS ADDRESS OF °'BAD' DATA
22 CONTAINS 'GOOD® DATA
;:CONTAINS °'BAD' DATA
; sRESERVED=-NOT TO BE USED

SAUTOB:
SINTAG:

.BYTE
.BYTE

0
8

;;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR

SWR:

.WORD

DSWR

;;ADDRESS OF SWITCH REGISTER

$TKB:

177562

;2 TTY KBD BUFFER

1"
1

$TPB:
SNULL:

177566
.BYTE

;:TTY PRINTER BUFFER REG. ADDRESS
2 CONTAINS NULL CHARACTER FOR FILLS

1" 9
115

SFILLC: .BYTE
STPFLG: .BYTE

12
O

;- JNSERT FILL CHARS. AFTER A 'LINE
FEED'’
;2 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

(3)
(3)
(3)
(3)

1
1
1"
1"

$TMP1:
STMP2:
$STMP3:
S$STMP4:

.WORD
.WORD
.WORD
_WORD

O
O
O
O

112

$BELL:

.ASCIZ

::ESCIPE& ERROR ADDRESS
<207><377><377> ;:CODE FOR
BELL

SCRLF:

.ASCII

(1)
1)

(1)

”

1142
1144

(1)

1155

(1)
(1)

(3)

(1)
(1)
(1)
&}

1)
(

)

DISPLAY: .WORD
$TKS:
177560

1146

(1)

(1)
(1)

SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

.=1100

$TPS:

177564

SFILLS: .BYTE

117
1174

000377

JWORD

STIMES: O
SESCAPE:0
SQUES:

SLF:

DDISP

2 sADDRESS OF DISPLAY REGISTER
:2TTY KBD STATUS

;:TTY PRINTER STATUS REG. ADDRESS

::CWA{NS # OF FILLER CHARACTERS

s ;USER DEF1

;;USER DEF1
: sUSER DEF
; ;USER DEF
2 ;USER DEF

INED
INED
INED
;;MAX. NUMBER OF ITERATIONS

.ASCII

2;QUESTION MARK

ASCIZ

<12

;:LINE FEED

<15

2 ;CARRIAGE RETURN

—n ARAARAAAAARARARAAAARAARARARRRRARAAARAARAERAAARAAASAACAANRANRAANNAAY

g ;

.SBTTL

(

32 AARARARKARARAARARAAAAAAAREREARARARARARNRANEARRARANAAAERANRAAAARARNNS

)

A~
2)

1210

000000

.EVEN

APT MAILBOX-ETABLE

PR
o AFATAL
o LI
o
SFATAL: .WORD
::FATAL ERROR MUMBER

REQUIRED

MAIN. MACY11
30AC1052)
13-MAR-80
CIKWLA. P11
13-MAR-80 07:39
(2)
)
()
(3)

001212
001314
001316
001320

000000
000000
000000
000000

0013%
001332
00153

000000
000000
000000

07:40
1-5
AT PASEBON-ETABLE

SEQ 0013

STESTN:
SPASS:
SDEVCT:
SUNIT:

.WORD
.WORD
.WORD
.WORD

ATESTN
APASS
ADEVCT
AUNIT

::TEST NUMBER
--PASS COUNT
:-DEVICE COUNT
--1/0 UNIT NUMBER

SSWREG:
SUSWR:
$CPUOP:

.WORD
.WORD
.WORD

ASWREG
AUSWR
ACPUOP

--APT SWITCH REGISTER
--USER SWITCHES
--CPU TYPE,OPTIONS

(3) 001222 000000
001355 000000
3) 001336
)
00126
000
&) 601
000

SMSGAD: .WORD AMSGAD - -MESSAGE ADDRESS
SMSGLG: .WORD
AMSGLG --MESSAGE LENGTH
SETABLE :
1IAPT ENVIRONMENT TABLE
SENV:
.BYTE
AENV
::ENVIRONMENT BYTE
SENVM: .BYTE AENVM - -ENVIRONMENT MODE BITS

(3)

(3)
(3)
3)

&)
(3

)

)
@
(%)

oozze

000

001537

000

001240

000000

5)
(3)
)

o122

00124
001244
01

000
000000
000

(3)

0 1250

000000

(2)

001

)
(3)
%)

001
0 1256
001

001

)
8

11770=06.PDa=07. 010

‘e
te

(3)
(%)

11/04=01, 11705202, 11/20=03.11/40=04 1174505

(3)
@

001

01
801

000

te
$MaMs1:

BITS 15-11CPU TYPE

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
.BYTE

SMTYP1: .BYTE
s

te
i
i

$MADR1:
.WORD
.
2: .BYTE

AMAMS1

AMTYP1

AMADR1

BIT 8=MEMORY MANAGEMENT
::HIGH ADDRESS.M.S. BYTE

--MEM. TYPE BLKAI

MEM.TYPE BYTE

AMAMS?

::HIGH ADDRESS,BLKA
.
MEM.LAST ADDR.=3 BYTES. THIS WORD AND LOW OF “TYPE'* ABOVE
::HIGH ADDRESS.M.S.

AMTYP3

::MEM,TYPE,BLKA3

SMTYP2: .BYTE
: 'WORD
3: 'BYTE

AMTYP? - :MEM.TYPE.BLKA2
AMADR? ::MEM.LAST ADDRESS.BLKA?
AMAMSS ::MIGH ADDRESS.M.S.BYTE

SMADRS: .WORD

AMADRS

000

SHIYPG: ‘BYIE

AMTYPG L MM TYPE SLkke

50006

.WORD

000

SMTYP3: .BYTE

SMAMSS: _BYTE

SWADRC:
SVECTI:
SVECT2:
SBASE:

CWORD
_WORD
[WORD

SCOU1:

WORD

SDEVM:

[WORD

:-MEM.LAST ADDRESS,BLKA3

*HIGH ADDRESS,M.

S BYTE

AMADRG
AVECT]
AVECT2

;MEM.LAST ADDRESS
. INTERRUPT VECTORKIBuS PRIORITYAT
::INTERRUPT VECTORW2BUS
PRIORITYA?

ADEVM

::DEVICE MAP

ABASE

ACDT

:-BASE ADDRESS OF EQUIPMENT UNDER TEST

::CONTROLLER DESCRIPTION WORDY1

o0 D Ao
"’”“g%" ] m‘“’”“"

ipTendE
OR WORDAO
i2DEVICE DESCRIPTOR

SODWS:
$ODU6:
$DDW7:

.WORD
[WORD
_WORD

-DEVICE DESCRIPTOR WORDAS
::DEVICE DESCRIPTOR
*:DEVICE DESCRIPTOR

SO0uO:
$DDW10:
$DDW11:
SODWIZ:

WORD
.WORD
.WORD
CWORD

ADDW
ADDWIO
ADDW11
ADDWIZ

::DEVICE DESCRIPTOR
-DEVICE DESCRIPTOR WORDA10
:-DEVICE DESCRIPTOR WORD#11
::DEVICE DESCRIPTOR WORDA]

$DDW14: .WORD

ADDWI4

- -DEVICE DESCRIPTOR WORDH14

8 %

SODUL: UORD ADDUS L DEVICE *%{flg:

$DDWB:

$DDW13: .WORD

)
)
)

001
001
001

&)
&
&)
&

001
001
001
001

001

)

(HIGH BYTE)

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

.WORD

ADDWS
ADDUE

ADDWB

ADDW1S

-DEVICE

IPTOR WOROAS

:-DEVICE DESCRIPTOR WORDA1

MAIN, M(VH
CZKWLA.P11
001330

000000

13-HAR-80

07:40 PAGE 1-6
APT MAILBOX-ETABLE
$ODW1S:

( ;

052)

;

001332

SETEND:

.WORD

ADDW15

SEQ 0014

:;DEVICE DESCRIPTOR WORD#15

MAIN.
MACY11 30A(1052)
13-MAR-80
CZKLA.P1T
13-MAR-B0 07:39

07:40 PAGE 1-7
ERROR POINTER TABLE

SEQ 0015

((;;

.SBTTL

(1)
1)
1)

;«THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;+«THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

;*NOTE2:

1)
1)
1)

o*
o
Hhd

;*NOTE1:

2};

(1)

001332

024406

027654

‘356

881 gg

000
;ERROR#?2

40
41

1342

024454

4
4

1344

1346
1350

027670
D

001352

0%45%2

1356

7654

50
1
g

001362

024563

1
1
1

027517
027670

:
9
g

61
65
6

64
65

1372
1;7&

4615
7?17

1402
14
14

024651
76431
7654

1376
1400

141

69
6

881412
1414

8816;8

7670

7§0
7431

7654

%1422

025040

7
74

0016;8
0014

7654

1424

EM2

DH2®

76431

s ;ACTUAL VAILLUE DIDN'T MATCH WITH EXPECTED

;;ERROR: READY BIT DIDN'T SET

DT2

;ERROR#3

EM3

027431

1360

;;POINTS TO THE DATA FORMAT

D11

027517

48
4

EMl

DH1

000000

001354

s ERROR#1

027431

001340

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

$ERRTB:

38
39

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
EM
DH
DT

(1)

ERROR POINTER TABLE

DH1

;:TIME INTERVAL COUNTER DIDN'T DECREMENT IN ORDER

D11

000

; ERROR#4

EM4
DH2
Dr2
000

EMS
DH2

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

ERROR:BIT #14 IN CSR FAIL TO RESET

; ERROR#6

EM6
DH1
DT1

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

000

;ERROR#7

EM7
DH1

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

DTl

000

sERROR#10
EM10

DH1

DT
000

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

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

;ERROR#11

2SS SR A RN 2 8 B R R T R RRR B I

O%S 12
027517
027670
000000
025250

027517
027670
000000

EM12
DH2
(1) 4
000

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

EM13

;;ERROR: CLOCK IS NOT RUNNING

DH2
DT2
000

;:CLOCK WAS SUPPOSE TO RUN AFTER
2 :;SETTING MONTH+DAY AND HOUR+MIN

EM14
DH2
D12
000

;; INTERRUPT DIDN'T OCCUR WHILE UPDATING

EM15
DH2
D12
000
;ERROR#16
EM16
DH1
DT1
000

22 INTERRUPT DIDN'T OCCUR ON PRESET VALUE

;ERROR#12

;ERROR#13

;ERROR#14

;ERROR#15

000
; ERROR#20
EM20

Em?z

O8N SN0
Vi

~N W

DH1
DT1

s sUNEXPECTED INTERRUPT AS SOF TWARE SWITCH
;;WAS NOT SET

s JUNEXPECTED INTERRUPT AS INTRPT WAS NOT ENABLED

DT1

W
W

3
~

w SSIR
83 ~
ia

s ERROR#21

EM21

DH2
D72
000

;ERROR#22

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

EM22
DH2
D12
000

s SUNEXPECTED UNEXPLAINABLE INTERRUPT

EM23

2;UNEXPECTED INTERRUPT AS (T]) BIT
;:WAS NOT SET IN CSR

- ERROR#23

THE CLOCK

;:SOFT ERROR

000

i) il

el il

D ol

DD el

D il o

D i

D el el el

B8R NN RN NS on N nr i~ o BB IR AR

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

;ERROR#17

SEQ 0016

M
DH2
D12
000

D e

07:40 PAGE 1-8
ERROR POINTER TABLE

MAIN,
MACYTT
CIKWLA.P1T
1
131

1§§

}

001554

001556

001560

(1052)
_13-MAR-B0
80 07:39

07:40 PAGE 1-9
ERROR POINTER TABLE

027517

027670

0G0000

é% 001562 026121
137 001564 027431

DH2

001570

000000

141
a1

001572
001572

026207
026207

142

2200

EM24

DH1
p

DT1

Rmnf

Eflf 5

DT1

146
126 001602
Q31602 02625
027 2

g 4

143

001600

1608

000000

000

027670

DT2

13Y
155 001612 026321
026321

SERROR 207
Em2

15
}gg

1616
001620

027670
000000

1@9

“}2%

8%%9

1610

000000

000

Dezgo

DT2

}gg 001630
16
16@

1632
16

026445
057562

124

27704

} 2
}29
1;§
}71
12

17§

174
};s

179

178

W
}2"& 8592?;
1648 7670
001654
} 56

027547
027700

001662

i
} 1

et
12?3

1672

186

0017200

000000

185

Q01676 05763

:: ERROR:READY
.
' SUPPOSE TO BE SET
BIT WASN'T

;:"M'BIT DID NOT SET IN CSR

TIME INTERVAL
INT
;:TIME
INTERRUPT DIDN'T OCCUR
;:'M' AND/OR °'DE' BIT NOT SET IN CSR

000
:ERROR+31

EM31
Ems

is HOLD BIT TF FAIL

TO RESET IN TIME

DT4

165

1652 026545

DT2
3300

158 8816 6 027670
161

iigfisra&orglmsmufe

2200

027654

144

001576

DT2

138 001596 027654

}23

SEQ 0017

ERROR Sgoo
ga:gz
DT2
+

;;HOLD BIT FAIL TO RESET

000

:ERROR+33

EM33

DH3
g‘r)g

;ERROR+34

EM34

RR'R#

e
3;600

EM35

000

;:CRYSTAL OSCILLATOR SEEMS TO BE INACCURATE
::G0T NO INTERRUPT

::GOT NO INTERRUPT WITH BPU AT LEVEL 0

:: INTERRUPT OCCUR AT WRONG LEVEL

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

0%6734
027517
027670

M36

;;'DE' BIT FAIL TO CLEAR IN CSR

DHZ

D12

000000

000

KW11C BUS REGISTER ADDRESS POINTERS

)

160006

s COMMAND/STATUS REGISTER

KW11C VECTOR ADDRESS POINTERS

—

*VEC2:

33840

:m INTERRUPT VECTOR

KW11C DEVICE LEVEL

sBRLV:

6
COMMAND STATUS REGISTER BIT ASSIGNMENTS

L R

SEQ 0018

- ERRM*S?

d e

)

NN
WWWMMWNNWNN NN
O
W=D
SROKESSDN\
W
2OV NN
WO 38 PR
SEBIRRR8
28

189

001702

07: 40 PAGE 1-19
ERROR POINTER TABLE

COMMON PROGRAM LOCATION(S)
LMACR

JSR
TST

.ENDM

JMACR

MOV
MOVB
TYPE

.ENDM

RDYCK

PC,
FLAG.1
ECHO

(SP)+,
Ré,
.

RDYBIT

;CHECK FOR READY BIT SET
;IS FLAG SET?

R&
ECHOB

;;STORE CHARACTER
;:T0 ECHO THE CHARACTER

ECHOB

MACR

ECHO1

-MACR
MOV
JSR

Dggfl(
.
R77777,COUNTR
DMT

BEQ

.~12

MOV
MOVB
TYPE

BIT

.ENDM

MACR

(SP)+, R&
R4,
ECHOB1
’
- ECHOB1

#BIT15,aCSR

DECLR

;:TYPE THE CHARACTER

s ;STORE _CHARACTTER
;;ECHO THE CHARACTER

:;DELAY LOOP SETUP
;;DEAD MAN TIMER ROUTINE

;:1S DE BIT SET
::TRY AGAIN

MOV
MOV

#77777 ,COUNTR
#0,
aCSR

;:DELAY LOOP SETUP
;;CLEAR CSR

BIT

#BIT15, aCSR

;218 BIT1S CLR?

JSR

BNE

.ENDM

.MACR

PC,

DMT

=20

(OMPAR

;:DEAD MAN TIMES ROUT INE

;:NO:BR

MACY11 30AC1052)
13-MAR-80
13-MAR-80 07:39
CZKWLA.P11
MAIN,

BLT
SuB
cMP

.ENDM

251
N

START:
.SBTTL

2
SEQ 0019

GOOD,

B
874,
GOOD,

#74

.::EXPE.(;TED VALUE MORE THAN OR EQUALS

GOOD
BAD

*IEXPECTED SECOND CAN'T BE MORE THAN 59
* JEXPECTED=ACTUAL?

.SBTTL PROGRAM START
INITIALIZE THE COMMON TAGS

b
—3

MOV
MOV
MOV
MOV
MOV
MOV

#3SSCOPE ,a#10TVEC +:10T VECTOR FOR SCOPE ROUTINE
#340,a#I0TVEC+2 ssLEVEL 7
#SERROR ,@FEMTVEC 2sEMT VECTOR FOR ERROR ROUTINE
#3460, SFEMTVEC+2 ssLEVEL 7
#STRAP ,@¥#TRAPVEC ;.TRAP_VECTOR FOR TRAP CALLS
#340,@¥TRAPVEC+2
LEVEL
; 7

000004
00211
17757
177570
177777

#SWR_,R6 ;;DONE?
-6

17703

649:

000176
000174
000004

658:

iz
177277

> :CLEAR MEMORY LOCATION

-;LOOP BACK IF NO
:sSETUP THE STACK POINTER

C s ;POMER_FAILURE VECTOR
,OPWRVE

#340 ,a¥#PURVEC+2 ssLEVEL 7
SENDCT ,SEOPCT
::SETUP END-OF -PROGRAM COUNTER
STIMES
soINITIALIZE NUMBER OF ITERATIONS

SESCAPE

:;CLEAR THE ESCAPE ON ERROR ADDRESS

#. SLPERR

; ;SETUP THE ERROR LOOP ADDRESS

#1 ,SERMAX
#. . SLPADR

s;ALLOW ONE ERROR PER TEST
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

002120

001230

gz 3% 23 LEECEEEL

001174
000001
002036
002044

A ‘=1, SETUP FOR A SOFTWARE SWITCH REGISTER.
@FERRVEC,~(SP)
;;SAVE ERROR VECTOR

CLR
BITB
BEQ

67%:

NN N NN NN
NNNNNNNNNNNNN ~

PONNNNO

%fig

~N & VOU' WN 30
NNNOONN
WO WW
NWNN

#STACK, SP

MOV
CLR
CLR

LSBTTL

(R6)+

CLR
P
BNE
MOV

;oINITIALIZE A F EW VECTORS

N
NN

NNNOONNNNNN

RSN
N

b —D

b
b

Gt
G Pt
P

S_.8
et

b s

DDl

RSR%% [\ 333838
R¥IRS ¥¥Senc &8N§

rororNNN
<l
oo

38383888

i
i e o
e
d =

;.CLEAR THE COMMON TAGS (SCMTAG) AREA
#3CMTAG.R6
MOV
;sFIRST LOCATION TO BE CLEARED

IMONUNY =3 =3 3 e e e o3 e 3 3 e e e = e e e e e e e
= SN NINININD
= PONON!
Vi
vvv\nvvvvvwvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvbw

07: 40 PAGE 1-11
ERROR POINTER TABLE

#64S ,INERRVEC
#DSWR, SWR

#DDISP,DISPLAY

#-1,3S6R

66$

AND

IF NO TIMEOUT TRAP OCCURRED

THE HARDWARE SWR IS NOT = -1

65%
#658, (SP)

s sBRANCH IF NO TIMEOUT
s:SET UP FOR TRAP RETURN

#SWREG, SWR

;;POINT TO SOFTWARE SWR

$PASS
#APTSIZE ,SENVM

;;CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
s :YES ,USE NON-APT SWITCH
;:NO,USE APT SWITCH REGISTER

#DISPREG,DISPLAY
(SP) + ,a#ERRVEC
;;RESTORE ERROR VECTOR

67%

#SSWREG,
SWR

TYPE PROGRAM NAME

<. TYPE THE NAME OF THE PROGRAM IF FIRST PASS
#-1
INC
;;FIRST TIME?
BNE
68%
;;BRANCH [F NO

60.?

170

3-MAR-80 07:40 PAGE 1-12
1&-80 07:39
TYPE PROGRAM NAME
(1052)

022737
001441
104401

020146

000042

002246

.SBTTL

000042

001226

000001

001140

000176

000001

001134

177777

FLOAT:

6%:

NWNOOW

18:

gs:
$:

024212
024212

48:

wvlon

NNN

—

N —

—_—

2 88
S9=s 88
v
BN
l*NObWNg
&SN
NOW S
N waouv

NNNNON

3629::

BNE

708

::BRANCH IF YES

BEQ
P
BNE

708
SWR , #SWREG
718

::BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?
::BRANCH IF NO

MOVB

#1,SAUTOB

::SET AUTO-MODE INDICATOR

68%

- :GET OVER THE ASCIZ

INC

#-1

::PRINT ONCE

rc?x

gggmzn.atemvsc

;:TIME OUT INTERRUPT ADDRESS

MOV
MOV
MOV

#0CTMOD , R4
#160010.R0
N#RANKTA R2

;:POINTER TO THE OCTAL MODULE TABLE
;;STARTING ADDRESS OF DEV TABLE
:;POINTER TO THE RANK TABLE

(0, o

#21,

(R2)

::1S IT LAST ADDRESS?

MOV

(RO),

;:TRY TO ADDRESS THE DEVICE ADDRESS

LASCIZ

BEQ
JP

BEQ

NOP
NOP

001

oia

::BRANCH IF YES

(R$),

%3
FLAG.2
1$

R4,
»2
(RS),

ADD

RO,

RO,
”2,
RO,
”2,
RO,

SETUP1

;:BRANCH IF NOT SET
:;CLEAR INTRPT FLAG
; ;ADDRESS NEXT ADDRESS
:;ADD CONTENT OF MOD TAB TO
::GET NEXT ADDRESS

::POP UP OCTMOD TAS

(R2)+

::BRANCH IF YES

::1S INTRPT FLAG SET?

(RG) +

MOV
SUB
SUB

MOV
ADD
MOV
ADD
MOV

::GET SOFT-SWR SETTINGS

6%
SETUP4

ADD

B8R

;:ARE WE RUNNING UNDER APT?

<CRLF>#MAINDEC-11-CZKWLAO-KW11CA<CRLF>

FLAG.2

MOV
4066

SENV.M

BEQ
CLR
BR
1ST

000002

::ACT-11?

TYPE
698
;:TYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER
ST
w2
:;ARE WE RUNNING UNDER XXDP/ACT?

5%:

#SENDAD ,a#42

68%

;(1);:

SEQ 0020

BEQ

gsua

—

MAIN, MACYTT
CZKWLA.P11

2:POP UP TANKTA

RS
RS
RO

2 ;BRANCH

::CURRENT POINTER
::BACK P BY 2
$:GET THE oesxc;o ADDRESS

RGO

2 ;ADDRESS OF KW11C

RG2
RO
RG4
RO
$BASE

;2NEXT DEV ADDRESS
¥
i
£y
3

sTHIS IS TIMEOUT INTERRUPT ROUTINE

::GET NEXT ADDRESS

1&&-80 07:39
(1052)

13-MAR-80

024212

TIMOUT: MOV

T1ST
TST

1%:

2%:
3%:

(=lelelelelelelelelalelelea] QQOC

cMP
BEQ
ADD
BR
BIT
BEQ
ADD
BR

ADD
RTI

”,
(R4)+
(R2)+

FLAG.2

(R4),
1%
#10,

#20

#10,

#20,

SEQ 0021

;sSET INTRPT FLAG
- INCREMENT OCTMOD POINTR
> INCREMENT RANKTAB POINTR
-sIS NEXT LOC AT EVEN ADDRESS
s sBRANCH IF YES
> INDICATE NO DEVICE
;sRETURN FROM INTRPT
-:IS IT ON EVEN BOUNDARY
s :BRANCH IF YES
ssMAKE IT EVEN BOUNDARY
;sRETURN FROM INTRPT
2 INDICATES NO DEVICE PRESENT
;sRETURN FROM INTRPT

B \) =D b b =

(=leolelolelelele)

ggetEsE &8888888888888
50008

ggg_._aw

0CTMOD: 0010
0020
0010

b e

ih wid

sl sk i

833888838888
S

RANKTA:

n
o

&HN

FREFR

i
OO

{58

wviviuiuvvaov
oi

—

RRRS

000001

I 2
07: 40 PAGE 1-13
GET VALUE FOR SOFTWARE SWITCH REGISTER

017770
001256

000004

SETUP1:

¢ag

MACY11
CZKWLA. P11
JMAIN,

#TRAPL, SNERRVEC

SVECT1,RO
RO

;ADDRESS OF TRAP ROUT INE
;:GET PRIORITY LEVEL
;:PUT IN LEFT HALF

%;9

646

002652

042700

010037

13-m-80

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

177400

BIC

024104

002656

013737

001262

670
002674

714

012700

024072

701
0227

2
0246102

5737

000042

13777

024104

013777
88?%87

024104
177777

013701
042701
010120

001392

001256
177400

% 694

702
7

SETUPS:

;
1?0 002770
726 01 7;7 017554 021136 1%:
748
7
;6

(1)

1%777

17662

; 00013; 003530
778 104401 002776
774

0004634

021132
021126
021122

HELP:

2:65%:

378
gggg 000424
104401 003074
(1)

:
648

fl% §§§m 104401 003152
1)
150 088413
)
380
gggg 000413
104401 003206
1)

668:

(1)

T
—
1)
0 088424
(1)

gg
ggi}s
104401 003320
(4}
16 000414
)

0}
gos so 10“%2 003356
SR
(1) 00
384 oo?isg 104401 003434

;s CLEAR UNMANTED BITS
-sSAVE DEVICE LEVEL

$BASE (SR

s:;STORE

BUS ADDRESS

SETUP VECTOR ADDRESSES

#177400,R0
RO.PRI

SEQ 0022

SETUP BUS ADDRESS VALUES

YPE

B-o

052)

3853838389588 BWEIES

MAIN, MCY‘II
CZKWLA.F11

.ASCIZ

#PCVO,RO
SVECT1.R1
#-400,R1

::SETUP VECTOR POINTER
::GET BASE VECTOR ADDR
*:CLEAR UNWANTED BITS

#2.R1

+:INCR.TO NEXT LOC.

R1. (RO)+

*:PUT ADDRS

#PCV1+4 RO

::DONE ALL LOCATIONS?

SETUP3

;:BR,IF NOT DONE

we2
:éLP

::TEST CHAIN MODE UNDER XXDP
;:BR,IF CHAIN MODE

#INTRPT ,aPCVO
PRI,

@PSV0

;R{.
HELP

aPsV1

:;ADDRESS OF INTERRUPT ROUTINE
*:RISE PRIORITY

#TIMRTN,3PCV1

;;ADDRESS OF TIME INTERVAL INTERRUPT ROUTINE

::BUS LEVEL
*:PROMPT FOR INPUT

RESTRT

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

678
66S

..rvpe ASCIZ STRING
T OVER THE ASCIZ

698
68

..ms ASCIZ STRING
T OVER THE ASCIZ

718

..TYPE ASCIZ STRING

;:67%:

TYPE
BR
.ASCIZ

:
698

BR
-ASCIZ

,b;n:

BR
LASCIZ

738:

B8R
ASCI1Z

<200>/ ‘M’ MODIFY OR READ ADDRESS AND VECTOR/

TYPE
BR
-ASCIZ

743
*GET OVER THE ASCIZ
<200>/ *A* ACCURACY OF CLOCK/

TYPE

b
;77%:
6%:

TYPE

<200>/ *T' TO rssi CLOCK(CONTROL C TO EXIT)/

<200>/ 'S’ 10 séi CLOCK/

708

*GET OVER THE ASCIZ

<200>/ 'R’ TO READ

CLOCK/

738
72%

..me ASCIZ STRING
::GET OVER THE ASCIZ

758

..rws ASCIZ STRING

778
763

::TYPE ASCIZ STRING
S:GET OVER THE ASCIZ

BR
LASCIZ

<200>/ *G'

TYPE

.79%

MODIFY SOFTWARE SWITCH REGISTER/

::TYPE ASCIZ STRING

MAIN,

MACYTT fi.&‘”?’13-m-ao

CZKWLA. P
(1)

003432 000413

385 00
(1)

106401

556

104407
8&7’09 001100
10“?1 001172
01%906
022704

000124

270

022704

000123

1%;

576

2§? 003602

752

4 §

2704

4
28;

1
16

744

2704

4
2}?

41;

022

4
2

137

1003

210

)

7216

(1)

003772

4
4

18:

2s:

38:

017234
4s:

014754

c‘)&’i‘

000105
002770

002770
000107

78:

4g1

003722

720 083‘ 4

5$:

=
::658:

648:

788

<200>/

SEQ 0023

::GET OVER THE ASCIZ

*E" EXIT “HALTS CPU/

81%

::TYPE ASCIZ STRING

80s

*IGET OVER THE ASCIZ

<200>/ 'H® HELP “PRINTS THIS MESSAGE/

,SCRLF

.SOUES

CKSWR
MOV
%fxu
MOV

#STACK, SP
STIMES
A(SP)+, R&

::SET THE STACK POINTER
sINITIALIZE NUMBER OF ITERATION
::GET THE CHARACTER

BNE
JMP

1$
LOGTST

+:NO:BR
*:GO TEST THE CLOCK

#24,

#123,

JSR

PC,NEWTIM

BNE

SNIS IT °T%?

::IS IT *s*?

::NO:BR

“:GET NEW TIME

RESTRT

#122,

::1S IT 'R*?

JSR
BR

PC,
RESTRT

READ

::G0 READ THE CURRENT TIME

#115,

2218 IT 'M*?

JSR
BR

PC
DEVCOD
RESTRT

BNE

BNE
RESET

6$:

003530

LASCIZ

JSR

000110

137

425
4

000115

LASCIZ

RESTRT: TYPE
TYPE

014426

000101

;

414

415

662“:

013136
000122

TYPE

1og;
137
004002

GET VALUE FOR SOFTWARE SWITCH REGISTER

003470

88 534sfi 104401
104401 001203
001202

PAGE 1-15

78;”

222
ggg
554

07:40

2218 IT 'A*?

PC,

A.CLK

7:G0 CHECK ACCURACY OF CLOCK

#105,

HALT
N

HELP

BNE

JP
P

BNE

GTSWR

#110,

HELP
#107,

JWP

RESTRT

TYPE
BR

658
648

_ASCIZ

;:GET NEW ADDRESS AND VECTOR

RESTRT

(0, o

2 :NO:BR

#1071,

B8R

BNE

*:WAIT FOR CHARACTER

2:NO:BR

;218 IT 'E"?
2:NO:BR

SIHALT CPU
*:RESTART THE PROGRAM

;218 IT W2

2:NO:BR

::60 TO PRINT HELP MESSAGE
IS IT *6°?
Z:NO:BR

ASCIZ STRING
: :TYPE
GET OVER
THE ASCIZ

<200>/"'ILLEGAL CHARACTER,TYPE M’ FOR HELP'”/

003772
003776

000137
000137

_ha_a’\b‘\:\b
SRRRRR EEEESaaa
N

~o~.~n,8= ~ !fisafi

13-”-80

JMP
JMP

ROUT1:

020046

LOGTST: MOV

3s:

BIT

BEQ

TYPE

004024
él,;gss:

000400

07:40 PAGE 1-16
GET VALUE FOR SOFTWARE SWITCH REGISTER

003530
001712
000010
000400

0NN WN—=O

017776

58:

016106

710,

#BIT8,
5%

aCSR

.65$

s sLOOP COUNTER

:.‘leCK BATTERY?

+BRANCH IF BATTERY IS 0.K.

..TYPE ASCIZ STRING

648

MOV
DEC

#8IT8,
R3

aCSR

JSR
CKSWR

PC.

CNTLC

.ASCIZ

SEQ 0024|

RESTRT
START

fir

sGET OVER THE ASCIZ

<200>/'BATTERY IS’ DISCHARGING'/

:;RESET THE CLOCK
+:COUNT DOWN

“:BRANCH IF NOT ZERO

::1S IT CONTROL C?
:;1S SOFTWARE SWITCH SELECTED?

-mxs ROUTINE WILL SET AND RESET ALL WORKING BITS IN CSR
tt!ittttttttttttttttt'ttttttttttttttttttttt"'tttt'it'ttittti.!

001172

t4T1:

177776

WN~W
8N NN
N -

1$:

2s:
024214

SCOPE

MOV
MOV
MOV
[0
BGT
JMP
MoV
MoV
MOV
coM
MOV
BIC
TM

3s:
4S:

RROORS

TEST SET/RESET BITS IN CSR

tttttttttttt'*ttttt'tt*ttttttttttt*tttttittitttttttttfittttittit

285288828222
egeses
3—.
ANANNAYRlQR
R LD *i*i'i*i‘fl‘i:u
‘Q‘U‘G‘U‘d‘i:S‘flfiU

eh ek e

NEFORS

)

-rssr 1

N
NB
ViV
—n0

IBVFANAN33858580833 OOV SNy — O

DAtanatat
ol oF o0 of o

011

052)

MCYH
CZKWLA P11
MAIN,

001126

001126
001122

017552
001126

5%:

#10. ,STIMES
#PR7.
PSW
#BITAB, RO
#BITEN. RO
28
43
(RO)+, @CSR
(RO)+, GOOD
GOOD, ~ GOOD1
Goop1
aCSR,
BAD
Goopi, BAD
GOOD,

BAD

::D0 10. ITERATIONS
::GET THE PRIORITY
::POINTER TO THE TABLE
::1S IT END OF THE TABLE?
: :NO:BR
SEXIT
..GET THE VALUE FROM THE TABLE
;EXPECTED VALUE IN CSR
$*EXPECTED VALUE IN GOOD1 TOO
: JUNWANTED BITS IN GOOD1
: ;READ CSR
*:CLEAR UNWANTED BITS
:ZARE THEY EQUAL?

BEQ
3s
MOV
aCSR, BADA
ERROR+1
:
BR
1$
MOV
#14356, aCSR
CLR
aCSR
MOV
aCSR, BAD
MOV
#0,
GOOD
MOV
GOOD,
GOOD1
coM
Goop1
BIC
GOOD1, BAD
i, 2
GOOD, BAD
BEQ
S$
:
MOV
aCSR, BADA

::ARE THEY EQUAL?
*:YES:BR
::READ CSR

MoV

#14356, aCSR

MOV

aCSR,

:;READ CSR

ERROR+1
RESET

BAD

YES:BR
*:READ STATUS OF CSR
::THE BIT ssr IN CSR NOT MATCH WITH EXPECTED.
:GO GET NEXT VALUE
..ssr POSSIBLE BITS IN CSR
:;CLEAR ALL BITS IN CSR

**READ c&asm
CSR

..Exrscreo VALUE
i

..CLEAR UNWANTED BITS

052)

isse

&if

%552

011403

% @'

NNNN

13—“-80

000000
001124

376

0740

017500
016106

‘gg % ,
2

TEST SET/RESET BITS IN CSR

001124
024214

001122

PAGE 1-17
MOV
MOV
com
BIC
cMP
BEG
MOV

001126
001126

R
72 000?2? 004440

6%:

JSR

CKSWR

BITAB:

%0,

GOOD

GOOD,

GOOD!1

GOOD1,
GOOD,

BAD
BAD

aCSR,

BADA

GOOD1
5%

PC,

CNTLC

BITEN+2

SEQ 0025

:.EXPECTED VALUE
::LLEAR UNWANTED BITS
s;ARE THEY EQUAL?
s YES:BR

;;RAD STATUS OF CSR
SJEXIT

000001

00000

BITEN:
SRR

00.

00000

AR AR R AR AN AT AR R AR RRAARAAARARNRAAR
AR
R AR AR AAA
AN AR

tTEST 2

SRARAA AR A AR

001172

024050
017350

t412:

SCOPE

18:

MOV

118:

MOV

024052

TEST TIMEINTERVAL COUNTER DECREMENTS IN PROPER ORDER

A AR AN AR AN

#10. ,STIMES
PC,
CNTLC

4
, R2
#7777, KOUNT

3RG4
gczsn
#MiT3, aCSR

5%7. COUNTR
DMT
KOUNT

024050

AAARAARAN AR RS A AR RARRAAAARAA AR AN RN

;:D0 10. ITERATIONS

..TIFEINT COUNT IN R2
TlN. \slawe IN REG4

&m cm INTO DEV REG

ow?tfi CONT BY
ALIZE THE CONTER
FHINIT
: :DEAD
:.ls Tlg:}s AL COWDJGES?

888

..IS ERROR FLAG SET

e bt

0012

MAIN, MCYH
CZKWLA.P11

4S:

INC

s ;:BRANCH IF NOT
..HEAD TIME INTERVAL
s ;EXPECTED
OF CSR
::STA
;:DEAD MAN TIMER FAILED
2:TRY AGAIN
;:JUST FOR CHECK

07:40
L4

N 2
PAGE 1-18
TEST TIMEINTERVAL COUNTER DECREMENTS IN PROPER ORDER

024050
007776

DEC

KOUNT

061756

001124
001126
001126

GOOD,

017224

001122

aCSR,

077777
040000

017206

#77777, R2
#MIT14, ACSR
7%

017174

BAD

::STATUS OF CSR
ssVALUE DIDN'T MATCH WITH EXPCT
;oIS (TI) BIT SET IN CSR ?
;;BRANCH IF BITM14 SET
s sDECREMENT COUNTER
>sBRANCH IF NOT ZERO
;s CONTENT OF CSR

BADA

;:BIT #14 DIDN'T SET

SRR

PC,

tér3:

024054

18:

81 7102

118:

A TN R

#10. ,STIMES

PC,

CNTLC

#300,

CONST

#7777 ancs
43173«éxro.acsn

NRAN AR

;:D0 10. ITERATIONS
;1S 1T CONTROL C?
TIME CONSTANT
:.A‘S_gt‘

:{READ
{
éw’l‘fE‘VALSETTIM HOLD BIT
;:DE

aCSR

RAN

AAARAARAAANRAR AN RAN N,

s2EXIT

EXPCT

#BIT0,
m.
EXPCT,
3s
CONST,

TR RN

; ;:DECREMENT

538

AR RR AN AR RA A AR

AN EAAAAARARA

4%:

2 TRY AGAIN

FIND TIME CONSTANT FOR 0.5MSEC

AN N RAAAAA

SCOPE

;:BITH14 FAIL TO RESET

CNTLC

RA AR AR A AR A AN AR

S RARARA R AR

;:(TI) BIT STILL SET?
s ;BRANCH IF CLEARED
> :STATUS OF CSR

BADA

-TEST 3

005303
0013

; ;BRANCH IF

BADA

oCSR,
8%:

BAD

SEQ 0026

-+ CHECK NEXT DECREMENT
- sBRANCH IF NOT ZERO YET
s sEXPECTED VALUE IN GOOD
ssACTUAL VALUE IN BAD
;oIS 11 mlfi% COUNT?

#MBIT14, aCSR
8s

001122

GOOD

NUMBR,

R2
63
aCSR,

001122

001172

#7776,

017154

83=

1013

JMAIN, MACYT? MOSZ)
13-MAR-80
1
~80 07:39
CZKWLA.P11

ER
READ INTVAL BY ONE

z RESET nnw BIT
TUAL TIME

;;DECIDES TIME CONST
;:DECREMENT TILL ZERO

§§§§§

m &m%Z)IS-HAR-BO
MACY
P11

€2k

)

STV

d D e

—d

D e e

024056
024060

MOV
MOV

@RG4,
READA,

READA
READB

024202

024056

SuB
BNE
INC
JMP

EXPCT,
5%
CONST
2%

READA

024056

000002

024060

054054

024202

005006
024060
024054

024202

5%:

888

JMP

::VALUE READ
::_STORE IN OTHER LOCATION
3370 BE USED LATER
::TIME INTERVAL hAS CHANGED?
:BRANCH IF YES
> INCREMENT ASSUMED CONST VALUE
ITRY NEXT

:DIFF GREATER THAN 2?
YES BRANCH

EXPCT

> 2CURRENT VALUE IN EXPECT
..70 GET CORRECT CONST
-G0 BACK
:3EXPCT = READB
;:DIVIDE BY 2

EXPCT

NOP
NOP

JSR

PC,

CKSWR

SEQ 0027

CNTLC

;THIS ROUTINE WRITES TIMEINTERVAL VALUES IN DEV RG4
;AND READS THE VALUE IN RG4 AND THEN COMPARES WITH EXPECTED VALUE
AR

A AR A

A AR AR

S*TEST 4

tT4:

TIME1:

O N NNNNNNNN

=l
NN

S BRIESS
IINIRNES
SRR

AR AR

W
= OV
VIS

63
READB,
CONST
2%
READB,
CONST

RESET

016106

32522
NO WV W=~
v wO

AN~

READA,

BGE
MoV
DEC
JMP
MOV
ASR

—

d e

5006

FIND TIME CONSTANT FOR 0.5MSEC

017012
024056

PO
el el

e
el e el e
e

PAGE 1-19

054056

23838888888853

01
013

07:4g

18:

28:

38:

016546
016106

005356

A AR AT

AR AN RA

RR AR R RN

CHECK TIMEINTERVAL WRITES AND READS CORRECTLY

AR AR AN AR AT AN AT TR RN AR RAAA AR R

SCOPE

#PR7.

MOV

#TIMTAB,RO

BEQ
CLR
MOV
MOV
BIS
MOV
BIC
MOV
SUB
e
BLE
MOV

48
aCSR
(RO)+, GOOD
GOOD,”
aRG4

DIEXIT
..CLEAR CSR

@RG4,
BAD
#40000, GOOD
GOOD, ~ GOOD1
BAD,
GOOD1
Good1,
#1
2s
aCSR, BADA

s ;ACTUAL m VALUE

CKSWR

#10. ,STIMES
PSW
PC,
CNTLC

AR AN RAAAARA AR R AR

MOV
MOV
JSR

#TIMEND
RO

#BITS,

aCSR

ERROR+16

48:

AR RRAA R AR AR RARA RN

JSR

PC.

TIMEND+2

CKSWR

TIMTAB: 47777
46004
40030

ONTLC

;:D0 10. ITERATIONS

*2IS IT CONTROL C
:;POINTER TO THE TABLE

;.18 lT END OF TABLE?

”‘IMLkEE TO BE WRITTEN IN RG4

..SET BIT TO READ TIME INTERVAL

::CLEAR TIME

..KEEP

;sARE THEY

INTERVAL ENABLE BIT

FOR PRINT OUT

EQUAL?

..IS DIFFERENCE GREATER THAN 1
; ;BRANCH
IF NOT

..GT STATUS OF CSR

;ERROR:SOFT ERROR TIME

INTERVAL

..SE‘I DIDN'T MTCH WITH ACTUAL
S IT CONTROL
C

;:G0 TO NEXT ROUTINE

MAIN,

MACY1T mosa

CZKWLA.P11

005

13-MAR-80

-80 C7:39

07:40

CHECK TIMEINTERVAL WRITES AND READS CORRECTLY

046754

46754

639
oagosgz
640
50 04
641 005352 o<.§2E sz.”

42000

000000

005354

€

PAGE 1-20

:47502
43254

TIMEND: 00000

229

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

6‘8
<§>

;;tttttttttttttttttttttttttttt.tt.ttttttttt"tttttt‘.tt'i'ttt.'l'
T*TEST §
TEST INTERRUPT OCCURS AT GIVEN VECTOR AND 3R LEVEL

(

)

(2)

(1)
649
650
651
65
65
654
255
3
#5
653
220

;;tttttQtt'tttttttttttttttttt.tt'tttt'tttttttt'ttt.tttii.lli...IQ

005356

ooggg«

SCOPE

001172
MOV
024106
MOV
024226 CHKINT: MOV
024110
MOV
024106 18:
SUB
177776
MOV
CLR
CLR
016420
MOV
0164
MOV
0160
MOV
JSR

% 005462

005737 024212

TST

FLAG.2

664
665

5 s; 024110
100345

BNE

4
005474

458
5

5502

2;
674
675
6
g;

673 005540

012737
01 g?
012737
012737
162737
013737
5037
5077
12777
012777
01 7;7

T5715:

000001
000340
000005
7
0
84106
024212
016426
9
040077
2
15726

005
005
005374
2405
410
guz
4
4
4
442
450
5456

104034

#1,$TIMES
::D01 ITERATION
#3.,0, DPRI
:
"5,
INTREG
*:INTERRUPT FLAG
#7
LEVEL
13SET LEVEL
#40,
DPRI
*:LOWER PRIORITY
DPRI, PSW
i
FLAG.2
*:CLEAR INTERRUPT FLAG
aCSR
::CLEAR CSR
#BITS, aCSR
*ENABLE INTERRUPT
#40077 ,aRG4
*:TIME INTERVAL VALUE
#2,
TIMES
22 SECOND INTERVAL
PC.
INTRTN
*:WAIT FOR INTERRUPT

DEC
BPL

LEVEL
1$

ERROR+34

28:

NOP

4g1
104035

BEQ
3s
ERROR+35

001126

3s:

*:GOT NO INTERRUPT WITH BPU AT LEVEL 0
JIEXIT

NOP

g
MOV

001124

;:YES:BR

RESET

3 024102
001124
1 7§7
8%411 001126
737

::DID INTERRUPT OCCUR?

BRLYV,
GOOD
LEVEL, BAD
GOOD,

BAD

EXPECTEDLEVEL
BRLV
$:ACTUAL

S BRANCH IF EQUAL
S INTERRUPTED AT WRONG LEVEL

(

*THIS ROUTINE IS TO INTERRUPT AT PARTICULAR TIME INTERVAL
e

AR AR

A AR AN AR R A AN AN

VA RAARARRAAAAARANRANRANAARAA
AR
AR A AN

S*TEST
6
TEST
TIME INTERVAL INTERRUPT
e
AR R RN A RN A AR AR AN AR AR AN AAAARAAAAAAAANAEARAA AR AR AARAREARS

SEQ 0028

MAIN.

MACYTT 30A(1052)

CZKWLA.P11
(2)

13-MAR-B80

13-MAR-80 07:39

005540

(1)

005542

°°5§Z$ 004737 016106

639

688

005550

005

012737

PSW

MOV

»5,

INTREG

MOV

ATIMTA1.RD

:;POINTER TO THE TABLE

BEQ
CLR

5%
FLAG.2

SEXIT
::CLEAR FLAG

01
000050 016240
012037 001124
013777 001124 016234

MOV
MOV
MOV

#BITS+BIT3,aCSR
(RO)+, GOOD
GOOD, @RG4

;g7 015726
5737 024212
1424

JSR
ST
BEQ

1?4%

005572

012700

005766 -.

654
695

69% 005576 88 006002

700

0056

701
705
70
784

705
709

564

005654

005660
5696
4

05 03

710

;} ]
71§

005077

016246

8&73/

000005

005037

024212

7
013737
163737
727

7 ;

13737

104027

744

721

722

; b

725

CKSWR

1$:
2s:

016030

720
777

7§o
754
7

5077
37
407

777

00115
126
024120

001122

024214

040000
024226

016124

68:

;

TIMES

PC,
FLAG.2
S5

INTRTN

FLAG.2

#40000, GOOD
GOOD,
GOOD1
BAD,
GOOD1

;:D0 10. ITERATIONS

::GET PRIORITY

::IS IT CONTROL C?
;‘ffig ruuT; FOR TIMINTERVAL

::IS IT END OF TABLE
::CLEAR CSR

:: INTERRUPT ENABLE?
;:VALUE TO BE INTERRUPTED AT
::IN REG4
::WAIT FOR APPRO 5 SEC

;:WAIT FOR INTERRUPT
;:DID INTERRUPT OCCURED?
;:BRANCH IF NOT

;:CLEAR INTERRUPT FLAG

;:CLEAR TIME INTERVAL ENABLE BIT
;;KEEP GOOD TO PRINT ERROR MSG
;:TIME LEFT IN RG4

GoOD1,

MOV

ACSR,

BADA

B8R
BIC

13
#40000, aRG4

;2GET NEXT VALUE
;:CLEAR INTRPT FLAG

CLR
JSR
CKSWR

aCSR
PC,

::CLEAR CSR
32

BLE

ga ] 1$
MOV
aCSR, BADA
ERROR+27
CLR

JMP

TIMTAL: 47777

INTREG

TIMEN1+2

CNTLC
;

..xs DIFF GREATER THAN ONE?

GET NEXT VALUE

..READ STATUS OF CSR

GET NEXT VALUE
::GET STATUS OF CSR :

;:TIME INTERVAL INTERRUPT DIDN'T OCCUR
::CLEAR THE FLAG

2 EXIT

40700

#S,

016106
016106

137 006004

aCSR

CLR

BIC
MOV
SUB

CNTLC

#TIMEN1 RO

CLR

001124
024214
024214

77,

MOV

10‘90;
A 8?97 7 016132 001122 5%:

713
?
0

TIMINT: MOV

024226

5037 024212

714

715
719

SEG 0029

DPRI.

14
2
6

TIME INTERVAL INTERRUPT

PC.

000005

005610

SCOPE

JSR

177776

012737

699

TST6:

TEST

#10. ,STIMES

024106

001172

% 005564

69
698
699

PAGE 1-21

MOV

013737

000012

07:40

25103

TIMEN1: 08000

016324

JSR

PC,

GETRDY

;s INITIALIZE READY BIT

;
7

ttt'ttttttlttttlt'ttttttttttttfittttttttttttttttttt.tttttlt.fi.tt

(

-resr 7

)

(2) 00601

&0
735

TEST HOLD BIT SET/RESET IN TIME

t'ttt.ttt!tt'tti.tttttttttttttttfit.tttt'tttttttttfifittttt'.t.tt.

8627 7
737

000012
016106

001172

SCOPE

MOV
JSR

#10. ,STIMES
PC,
ONTLC

;;D0 10. ITERATIONS

MAIN.

MACYTT

CZKWLA.P11
736
7

740

741
74
74

7h4

006024

PAGE 1-22

CKSWR

000001

016026

MOV

#8170,

aCSR

006040

032777

016014

BIT

#MIT0,

aCSR

016006

001122

015774

0060

%8
MS

006096

748
749

0061
006114

76
006182

006116
006122

737

001404

01
7
1040
01

016226

005077

015770

032777
001404

000001

015756

015750

001122

024737

017737
104032

004737
104407

016226

016106

JSR

BEQ

1%:

2%:

TEST HOLD BIT SET/RESET IN TIME

012777

88£ 2

750
;21

104407

07:40
17

006026

745

746
747

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

PC,
18

SEQ 0030
-sSET HOLD BIT IN CSR

WAITT

ssWAIT FOR HOLD BIT TO RESET
2-1S HOLD BIT RESET?

2 sYES:BR

MoV
a(SR,
ERROR+32
MOV
#BIT0,

BADA
aCSR

ssSTATUS OF CSR
ssHOLD BIT FAIL TO RESET
ssSET HOLD BIT AGAIN

JSR

WAITT

JIWAIT

CLR

o(SR

BIT
BEQ

#8170,
2%

JSR
CKSWR

PC,

PC.

MOV
aCSR,
ERROR+32

2sFORCE TO RESET

aCSR

2:IS HOLD BIT RESET?
s sYES:BR

BADA

2sSTATUS OF CSR
ssHOLD BIT FAIL TO RESET WHEN FORCED TO RESET.

CNTLC

754

755

;gg

JREAD SECOND HERE

7
(3)

E;tttttttitttttttttttttttttttttttt.ttt.itttiitttt.ti.ttttit'.tt't
;*TEST 10
TEST SECOND VALUE IS CHANGING

(

)

(2)

006124

(1)
761
76
76

006126
1
140
144

765
7
76

15
15
160

764

000024

:;tttfi*tttttttttttttttt'ttttttttt'tttttttt.tttttit't't'tltt"tttt

012737
737
017701
7701

000001
016404
015724
015720

7701
1772

015712

1775

001172

1%:

2%:

7;;
162

012737 000012

775

120

077 015

7;3

;9‘

aRG4,
1%

;:D0 1 ITERATION
;:SET NEW YEAR,MONTH,DAY,HOUR
,MIN
2 ;READ SECOND
:;DOES SECOND VALUE CHANGES?

s sNO:BR

;:CHECK AGAIN
;260 BACK

TEST HOLD BIT IN CSR HOLDS TIME WHILE SET

':ttt'tli'tttttttttti'tt'tlttttttttttttttttttttttlt'tttttttttttt'

882160

7?9
;7

WP
BEQ

BEQ

S*TEST 11

(2)

<"2

#1,STIMES
PC,
GET2
8RG4,
R1
aRG4,
R1

;
;:t'ttttttttt'tttttittt'ttttttttt.ttt'fi..tQtttt'ltttttttt"'.ttt.

(3)

)

SCOPE

MOV
JSR
MOV
cMP

sTHIS ROUTINE CHECK HOLD BIT IN CSR

7
(

TST10:

ooogg&

001172

TST11:

scoPe

MOV

#10. . STIMES

CLR
124 3?12777
777 oogog1
04.79‘7"7’ 015652
015666 HOLTST: MOV
MOV

#IT0,

001414

015654
000001

7704

015640

032777

000001

17271

015640
015622

18:

MOV
BIT

BEQ

#47777,
aRGL
#8170, " ACSR
RG4,

aCsR

@RG4,

BIT

#BIT0,

aCSR

BEQ

;:D0 10. ITERATIONS

::CLEAR CSR

$:SET
TIME INTERVAL
Z:SET HOLD BIT

::READ SECOND VALUE
::1S HOLD BIT SET?

;:BRANCH IF HOLD BIT IS RESET
Z:DID SECOND VALUE CHANGED?

ZINO:BR

Z21S HOLD BIT RESET?

MAIN,

MACYTT MOSZ)

CZKWLA.P11

784
S

788

789

790
791

-80 07:39

006240
006242

13-MAR-80

07:40

016522

BEQ
JSR

2%
PC,

000137

006774

JMP

108

104031

004737

016522

01g47§7

001124

062704

013737

ERROR+31

2%:

000002

016550

001126

006

883727

001124

000074

1
(1)

16
0

000074
001124

001124
001126

006

794
795

4
006322
006324

777

006

796
798
799

800
801

5
56

804
805

}

1
1

O(1

i) —
e
NOV WIS

(;l

000137

006774

0277
141

015520

012777
017700
100§
017737

17737
104001

137

777
1756

000011
015524

001124
015506

015472

006774

015522

015446
1

015440

17737
3‘7'27

0154
001124

001126
000074

12 7

001124

001126

13737

1126

5%:

6%:

17729 015372 001122
1;7

7
737

737

727

774

356

016152
1126

865346
1124

001124

001126

7737; 000074
001124
001124 001126 66%:

)
1

14
77

015304

137

006774

012737

043720

12777

001122
015266

016224

GOO0D

soHOLD BIT RESET
s ;EXPECTED VALUE IN GOOD

GOOD,

#74

;sEXPECTED VALUE MORE THAN OR EQUALS

#74,
GOOD,
3%

GOOD
BAD

scEXPECTED SECOND CAN'T BE MORE THAN 59
s sEXPECTED=ACTUAL?

SuB
P

BEQ
ERROR+1

JMP

SECOND, BAD

648

#MBITO+BIT3,aCSR
aRG4,
RO

MOV
MOV

RO,
aRG4,

cMP
BEQ

aRG4,
5%

JMP

BIT
BEQ

CLR
MOV

Sus

gg;

JMP

CLR

GOOD
BAD

BADA

108

#BIT14, 3CSR
43

aCSR
#MIT0,

BAD,

aRG4,
6mss >

aCSR

GOOD
BAD
#74

n74

GOOD

a(SR,

BADA

60067‘ .,

BAD

108

aCSR

s ;EXPECTED VALUE OF SECOND AFTER
s sACTUAL VALUE
; sNO:BR

;sYES THEY ARE EQUAL ,BRANCH
;;READ VALUE OF SECOND NOT MAT(CH

;s JUMP

2:SET HOLD BIT AGAIN
;cREAD TIME INTERVAL VALUE

;sARE THEY EQUAL?
;;YES:BR

2 ;EXPECTED VALUE
;sREAD VALUE OF TIME INIERVAL

;sREAD STATUS OF CSR
s cEXPECTED VALUE NOT MATCH WITH ACTUAL VALUE
J2EXIT

;218 BIT14 SET IN CSR
2 :NO:BR

;2CLR CSR
2:SET HOLD BIT

2:GET PREVIOUS SECOND VALUE

; sREAD CURRENT SECOND
::'E‘X)PE“CTED VALUE MORE THAN OR EQUALS

s sEXPECTED SECOND CAN'T BE MORE THAN 59

s ;READ CURRENT STATUS OF CSR

;:PREVIOUS SECOND NOT MATCH WITH
..Clflgg SECOND WHILE HOLD BIT
JIEXIT

;;FORCE HOLD BIT TO RESET

PC,
BAD,

DELAY
GOOD

;:WAIT FOR 1OMSEC
;;READ PREVIOUS SEC

gl.";

“Sm'

;:'EOX’gTED VALUE MORE THAN OR EQUALS

BEQ
8s
MOV
a(SR,
ERROR+1

BADA

;:BR IF EQUAL
;2READ CURRENT STATUS OF CSR

MoV

aCSR

SUB
cMP

JNP

MOV

BAD

n74,
GOOD
GOOD,
BAD
108

#8170,

60.?

::nggEhACM?

JSR
MOV

aRG4,

60.?

ssWITH EXPECTED VALUE.

108

MOV
MOV

MOV

000074

TSEXIT

R4,

ERROR+1

> sREAD CURRENT VALUE OF SECOND

MOV

104001

GETTIM

- sERROR:HOLD BIT FAIL TO RESET

MOV
$

65%:

;s YES:BR
;sREAD ALL PRESENT VALUE

"2,

MOV
aCSR,
ERROR+1

001124

46 1 §7§; 000074 001124

3%:

001122

5077
12777

1
14

64%:

PC,

GETTIM

SEQ 0031

ADD

BLT

001126

015454

JSR

MOV

4%:

040000

BN
= OO

7
1403
104001

o o e

‘)

g1
(}

4
Sg

;

TEST HOLD BIT IN CSR HOLDS TIME WHILE SET

001405
004737

795

(1)

PAGE 1-23

043726. TONT

; : CURRENT SECOND

60.7?

;;EXPECTED
SECOND CAN'T BE MORE THAN 59
s ;EXPECTED=ACTUAL?

;sACTUAL VALUE NOT MATCH WITH EXPECTED.

2EXIT

2:SET HOLD BIT NOW

;:TIME INTERVAL VALUE fOR 1 SECOND

MAIN,
MACYT1
(ZKWLA.P11

831
8

(1052)

1&“-80 07:
004737

006602
006606
006624

005237

JSR
(LR
JSR

001124

GOOD

ssWAIT FOR T0MSEC
< sREAD PREVIOUS SECOND
s CURRENT VALUE SHOULD BE ONE MORE
< s THAN PREVIOUS VALUE
:sREAD SECOND
::EXPgTED VALUE MORE THAN OR EQUALS 60.?
..m'
s;EXPECTED SECOND CAN'T BE MORE THAN 59
s sEXPECTED=ACTUAL?
2sYES:BR
;s STATUS OF CSR

BAD
#74

000074
001124

001124
001126

n74,
GOOD,

GOOD
BAD

a(SR,

BADA

678

67%:

NN
NNINNNNO
WWNON

001122

BAD,

000074

001122
10%:

Tsri2:

n74,
GOOD,
108
a(SR,

GOOD
BAD

MOV

;sREAD (SR

AR AR R AN A A AR AR

#1 ,STIMES
PC,
CNTLC

DHOUR

#8IT15, aCSR

#6401,

RGO

RDYBIT

a(SR,

BADA

[

GETRDY

DISPLY

#MIT15, aCSR

024210

DHOUR,
o,
FLAG.1

RDYBIT

014742

a(SR,

BADA

ERROR+2

RAAR P A AR

A AN AAANRRRRNR

TEST DIGITS IN DISPLAY WORKS 0.K.

1%:

BADA

CHECK DISPLAY ON THE CLOCK
R

60.?

s sEXPECTED SECOND CAN'T BE MORE THAN 59
s sEXPECTED=ACTUAL?
s :YES:BR

CNTLC

;‘C.

s sEXPECTED VALUE AFTER ONE SECOND
::EDXP&{:TED VALUE MORE THAN OR EQUALS

#74

A AR AR AR AT AN TR

SCOPE
MOV
JSR
DISP:
CKSWR
CLR
DISPLY: MOV

dwo

BAD

ERROR+1
PC.
JSR

AR A A AR

sEXIT
;sCLEAR BIT14 IN CSR
;s TIME INTERVAL VALUE FOR A SEC
ssWAIT FOR A SECOND
2 ;PREVIOUS SECOND
> sCURRENT SECOND

GOOD

aRG4,
GOOD
GOOD,

68$

001124
001126

--FORCE HOLD BIT TO CLEAR

108
aCSR
#463720, TCNT
PC,
WAIT2

016224

NNNNNNNNNYN

—

~N—=

BAD,

DELAY

aRG4L,
GOOD,

ssWAIT FOR A SECOND

GOOD

S*TEST 12

3388833852
\4\0
“l“ NN

WAITZ2

001124
001126

SEQ 0032

PC,
a(SR

001126
000074

TEST HOLD BIT IN CSR HOLDS TIME WHILE SET

.SBTTL

07:5(1)1 PAGE 1-24

015234
001124

;gggasgfin;sa0800
A~oo
§3
\l-l!:?\l\)u\l\l\l\l\l\l S8

NNNN

016204
015250
016152
001126
001124

-80

AR AR

OO0~

Vgo«uuu\%--s

SOTRAROR
AR SIS ERERE

85
8

NNNNNN
N
=

839
840
841

(1)
(1)

00%e38
(1)

838

AR AR

ARARA RN RARA AN RN

RAR

::D0 1 ITERATION
:;INITIALIZE HOUR+MIN
;sSET TIME

;2SET MONTH+DAY
;CHECK FOR READY BIT SET
;IS FLAG SET?
;:BRANCH IF READY BIT IS SET
;:STATUS OF CSR
;2READY BIT DIDN'T SET
;;GET READY BIT SET

;2SET HOUR + MIN
;:SET HOUR+MIN
:CHECK FOR READY BIT SET
;1S FLAG SET?
;:BRANCH IF READY BIT SE/
::READ STATUS OF CSR
;READY BIT NOT SET

MACY11 mosz)
007126

%71
7132

0071

7144

004737

016032

;g? 024152

016104

024152

7160

00%277

024152

7156

71
7174
7
7
7
7210

7212

7
1;

013473

016106

000137

007216

5
240
40
00024

112

TEST DIGITS IN DISPLAY WORKS 0.K.

2%:

BR
MOV

JSR

000073

GETRDY

PC.

WAIT

DISP
n,

JSR

INC

2:GET READY BIT SET

CONT3

;:WAIT FOR SECOND
ssWAIT FOR SOME TIME TO
>-SEE DIGITS IN DISPLY
+ - CHANGES
> INCREMENT MINUTES

DHOUR

CMPB

#73,DHOUR

BGE

DISPLY

ADD

024152

PC,

MP
BGE

;IS MINUTES=59

#377

DHOUR

PC.

CNTLC

#13473, DHOUR
DISPLY

JSR

RESET
NOP
NOP
NOP

JMP

SEQ 0033

;IS IT 23HOUR-59MIN
> ;BRANCH

TABDRV

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

TABDRV:
s AR A

AR AR

S*TEST 13
AR A

000012

001172

24106

177776

16106

807386

TST13:

18:
2s:

228:

§§1 124

é210

RN R

MOV
JSR
MOV
CKSWR
MOV

#TABLE1,RO

BGT

22%

JMP
(LR
MOV

#10.
. STIMES
CNTLC
DPRI,
PSW
PC

#TABEN7 .RO

014560

MoV
JSR

GOOD,
PC,

014524

001122

FLAG.1

@RGO
RDYBIT

MOV
JSR

#77777 ,COUNTR
PC,
DMT

1
Bt

L
338

BIT

AR A A AR

AR AR

RR AR

AN AR AR AR IR RS

#BI115,3CSR

aCSR,
MOV
ERROR+17
BR
2s

BADA

AR AN AR AR

::D0 10. ITERATIONS
::1IS IT CONTROL C?

% :SOF TWARE SWITCH s&gcrsm
;;POINTER TO THE TABLE1

.:.:18 IT END OF TABLE1

TABEN1+2
(RO)+, GOOD

#MIT14 aCSR

BEQ

AR AR AR

aCSR

MOV

024210
014510

AR AR AR A A AN AT

SCOPE

A AN AN R

TEST CHECKS FOR VALID/INVALID VALUES OF YEAR

014564

024052
100000

R A

AR A A AT

007216

NNNNNNNNNNNN

e
e e
D e
s el o
e

016324

122737

3333333833388 888338888888

325CoR823RIRILIT
VIS~

OB~ — — YO — NP AV —O

OO~~~ OO~ OO0
O

004737

000727
012737 000001

7150

7]’72

REE

-80 07:39

;

;CHECK

N_GOOD

IT IN CSR TO WRITE A
ALUE

N DEVICE REG

FOR READY BIT SET

3
i

SRRREEIT

P11

13-MAR-80 07:40 PAGE 1-25

MAIN,

MACYTT MOSZ)

CZKWLA.F11
9235

-80 07:39

012777

00740
00741

% 737
1716

0074

104001

8
3%

007376

00741

13-MAR-80

000006

07:40

713

014474

014472

001126

012737

000000

001126

001124

017737

014444

001122

000711

932
(1)

007424
0074246

012737

077777

024052

1)
(1)

74
7444

032777
001772

100000

014416

(1)

0074

933

7446

935

)

939

940

941

(?4737

7454

017737

014402

007464

7462

%7‘

7474

750

751

104011

012777

017737

8837 7

1656

9‘0%

751

75
75

104001
000651

949

007524

017073

o3¢

;?4

94
gzg
94
948
3 ?

017206

024210

1405

7526
75

017737

000004

014364

001124

014344

014366

001126

174?8

BADA

MOV

aCSR,

ERROR+1
BR
23

soYEAR VALUE DIDN'T MATCH WITH EXPECTED

BADA
aCSR

BAD

BAD
BADA

s ;DELAY LOOP SETUP

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

;:1S ERROR ?

;sBRANCH IF NOT

s:GET CSR STATUS

;s(DE)BIT FAIL TO SET

;sGET NEXT VALUE
2 ;READ YEAR

;sACTUAL READ VALUE

;sARE THEY EQUAL?

;:GO GET MORE

:sREAD STATUS OF CSR

;sREAD YEAR VALUE NOT MATCH WITH EXPECTED
;:GO CHECK FOR END OF TABLE

16455
16454

17076

;;474

15099

1700
17400

16430
17074

338958

00733
G%r000
7556 800000

e00
TABEN1: 00000

17077

:""..t.."'..t.".*.t".."‘.'..‘.'..."........'......‘..’......".

)

::".*"..‘

(3)
(

s sREAD CSR

TABLE1: 17073

194
17074

960
961

GOOD,

BEQ

7544
754

7 g

aCSR,

aRG0,

954
955

9 9

FLAG.!

#BIT2,

MOV

DMT

#BIT15,3CSR
.~12

s sEXPECTED VALUE

2 TRY NEXT VALUE

#77777 ,COUNTR

ERROR+11

001122

Pc.

MOV

- sBECAUSE INVALID YEAR VALUE
-:G0 GET ANOTHER VALUE

aCSR,

BEQ

001126

GOOD

MoV

MOV

;sREAD YEAR VALUE

-sACTUAL READ YEAR VALUE

GOOD

BAD,
2%

BIT
BEQ

4%:

(SR

#0,

JSR

001122

SEQ 00341

BAD

MOV

ERROR+1

17076

%;‘07’0

#MIT2,

akRG0,

TST

016455
016454

MOV

(6,
8EQ

3s:

TEST CHECKS FOR VALID/INVALID VALUES OF YEAR

5737

76452

33%:

001124

007422

PAGE 1-26

(2)

964
965
%

J«TEST 14

75
75

96
968
4D

969

oogggl.

000;‘9
37

&07
737

7610

S737

1406

000010
016106

017000
024210

001172

TST14:

TABDR2:

SCOPE

MoV

NOP
JSR

CKSWR
JSR
TST

BEQ

TEST

VALID & INVALID VALUES OF MONTH+DAY

AR EAA A AN A RN ARARAAARARARPAAARAAANRAARAAE AN

#10,$TIMES

SAENN N

2:D0 10 ITERATIONS

PC,

CNTLC

;215 IT CONTROL C?

PC.

RDYBIT

;CHECK FOR READY BIT SET

FLAG.1

;1S FLAG SET?

;;BRANCH IF READY BIT SET

MCYH
CZKWLA.P11

970
971
97

052)

13-MR-80

014244

00761

07: 40

001122

1%:

974
975
976
977
978

2%:

010150
001124
014206
00000

014200
014174
024052

014152

014152
000001
016032
014132

3s:

024144

014106
001124
001124

001126

014062

001122

001126

MOV

a(SR,

BADA

BGT
JMP
MOV
CLR

22%
TABEN2+2
(RO)+, GOOD
a(SR

MOV

A77777. COUNTR

#B1T15+8177,aCSR

ERROR+2
JSR
PC,
GETRDY
MOV
#TABLE2.RO
e
#TABENZ
RO

w 15,aCSR

JSR

4%:

VALID & INVALID VALUES OF MONTH+DAY

BNE
MOV
MOV
JSR

024144
016104

024210

TEST

—

=NNN

302288
39822888
§ON=WN
=R
NN
=N
NNNO~N HNO
Su-wu-ua 53
3
=S NNNNNOANN
ot

$85353838888888888

979

22%:

PAGE 1-27

PC,

DMT

33
aRG4,
”n,
PC,

SEC
CONT3
WAIT

aRG4,

BEQ

TST

FLAG.1

MoV
MOV

aRGO,
(RO)+,

BEQ
MOV

2%
a(SR,

ERROR+12

BEQ

ERROR+1

600D,

SEC

2 CURRENT (SR
-sREADY BIT FAIL TO SET
2sGET READY BIT SET
ssPOINTER TO THE TABLE?
;:IS END OF TABENZ2
s sBRANCH IF NOT
sSEXIT

- sMONTH+DAY VALUE FROM TABLE?2
s:CLEAR CSR

s:SET BIT #15 IN CSR TO WRITE MONTH+DAY
> sMONTH+DAY IN DEV REGISTER
;s INITIALIZE COUNTER
JsWAIT LOOP
;:1S RDY & ERROR FLAG SET
- ;BRANCH BACK IF NOT
s sREAD SECOND
;;WAIT FOR 1 SECOND
;;WAIT FOR COUPLE OF SECOND
;sREAD SEC AGAIN TO SEE ANY CHANGE
..BWJCH IF CLOCK IS STOPPED

sCLOCK WAS NOT SUPPOSED TO BE RUNNING

BAD
GOOD
BAD

BADA

::IS ERROR FLAG SET
2 :BRANCH IF NO ERROR
s sACTUAL VALUE READ

..EXPECTED VALUE

ARE THEY EQUAL?

$:YES, GO GET MORE VALUE
;:GET STATUS OF CSR
; JREAD MONTH+DAY NOT MATCH

SEQ 0035

JMAIN, MACYST 30A(1052)
13-MAR-B0
CZKWLA.P11
13-MAR-80 07:39
1
1001
1
§
1
1
1
1

1
O
1
1
1
1
1

71;
1
12037
7
;;g1
7
1
1

11
0}004 0064000632
1% 010044 000000

07:40 PAGE 2
114
TEST

14052
1154
1126

001126

014026

001122

001126

58:

B8R
MOV
MOV
P
BEQ
MOV
ERROR+1

TABLE2 336
0000

VALID & INVALID VALUES OF MONTH+DAY

2%
aRG0,

(RO)+,
GOOD,

a(SR,

BAD

GOOD
BAD
BADA

5:G0 GET NEXT VALUE
-sACTUAL VALUE READ
s EXPECTED VALUE IN GOOD
ssARE THEY EQUAL
- ;BRANCH IF YES

;.GET STATUS OF CSR
2;EXPCT MONTH+DAY NOT MATCH

SEQ 0036

S
D
D
D
D
d
D
e
e
e
D
D
e
e e
d e e
—t el

d
D
e
e

07:40 PAGE 3
T14
TEST

000020
000000

VALID € INVALID VALUES OF MONTH+DAY

000402

ooo«ooC
2040¢

&33
0402

0004
00103

0e35
1035

002400
003037

2400
3037

0402

001000
001440
0014
00203
88 000
440

1000
1440
1400
2037
2000
2440

3000

003440

3440

003400
004040
000

3400
4040
4000

400

4400

437

4437

§§§o¢.o

gow

2099
886040
006000
st
24
000000

2039
5400
6040
6000
g
6024

5400

TABEN2: 0000

sTHIS 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 IS

WRITTEN YOU CAN'T WRITE ANOTHER VALUE OF HOUR+MIN WITHOUT WRITING

s VALID VALUE IN MONTH AND DAY REGISTER
TABDR3:

016106

17. ; 17300
7 824 10
4

177

gg;

737

P 2 SO
OB U R A
B

0020
0000

NN AN SOD

22222920

288
e
oo SERRERNNSEruoRRS SN

d
D
D
D
d
d

D e

) b ed

jelelelelelelalelelelelelelelele] OO0

VSN -

el e
i
D e
D e e
D
D
D
D e
D
il
D ol el
D

D D D

~AOO00O0

D
Dl
D ol ol
) il oD il
D

jelelelelelalelelelelolalels] QO0O0O0O0OVOOOO

N\
S W)

e e el e

)

) e

jelelele]

— e

e v

- - —h

3383535335383
=3 DO NN
NN -

JMAIN,
MACYTT mOSZ)
13-MAR-80
CZKWLA.P11
1
-80 07:39

013666

12777

100000

004737

017000

118:

18:

013636

012777 000000 013634

PC.

CNTLC

MOV

a(SR,

BADA

JSR
MOV
v

PC,
GETRDY
#TABLE3.RO
#TABEN3 RO

MoV

#BIT15,3CSR

Sgflsm PC
RDYBIT
TST
FLAG.1
BEQ
118

001122

816324
10456
010516

JSR

ERROR+2

86T

CHECK FOR READY BIT SET
;1S FLAG SE’#g
;;BRANCH IF RDYBIT SET

;2GET STATUS OF CSR

;:RDYBIT FAIL TO SET

:2GET READY BIT SET
s ;POINTER TO THE TABLE
;21S IT END OF TABLE

;:BRANCH IF NOT END OF TABLE

MOV

#000000,3RG2

:;u.g VALUE OF HOUR+MIN BEFORE

JSR

PC,

RDYBIT

;:SET HOUR+MIN

--EX
sCHECK FOR READY BIT SET

SEQ 0037

CZKWLA.P11

737 0246210

TEST

VALID & INVALID VALUES OF MONTH+DAY

TST

FLAG. 1

;1S FLAG SET?
3
Bl

MOV

GOOD,
co0D, ~" @RG2
aRG2

THOUR
: SHOURIN IN R

s
G 017737
S 013612 001122
18‘69 g}ou.
mOv
o
3SR e
L
188 310537 %% ; 016324
JSR
PC,
GETRDY
]
e
R
.
TABEN3+2
1898 810 % 7 85‘1)?52
.12? fi (RO)+. GOOD
]107% 010

107 818%
10
1079
09
1079
18 01

}i ] §}°}§
] . g%g

o1§777 001124 013556

e ; 817202 v 228:
0%
8521;;; 024210
———
88?41

015
mm?2 8(1)??5:2.
001124 PR
001126
gizég% 013474 001122

}

;

]

}

:
5737 024210
; 8?7%
10444
! 013412 001122 48:
}8223 10"02;

&}832 §‘%"’§
§§i§;§
s
1043
10485 Q02787 8?; chiiar

1(1%
1
1038 18488 g:‘“’i
Ho?
1
1 8}8223 8ooooo
“8§
36000:
}

oh
P
BNE
Ist
TST
oV
o
MOy

PC,

DMT

#BIiT15+81T7,aC
SR
228
L 1
FLAG.

?381.
600D, %80
BAD
CSR. BADA

GOOD

EEE
finy gc. : : %%n
GOOD,

BAD

TST
FLAG. 1
MOV
ROV
aCSR,
3 BADA
ERROR+1
B8R
13

TAREY: R
06000

FIGET STAIUS OF (SR
DENGRE
L
:3GET READYSTfgtaounns
SIJUMP
TO E IN GOOD
*:HOUR+MIN

::60
10(DEDEAD |ANH"fi'{, e.
::IS
**BRANCH
BACKFLAGIF SETNOT
oERROR
IS
MJ&E
I-Egexpecree
\Em.w,meooo
eg; 'T"‘:’&,;’“q:&;sa
:I:ZEEID;3y SOFCSR
P:TRY P
¥

VALUE IN GOOD

T
B
2*CHECK
2MONTH+DA
FOR ng BIT SET
i

]

:Is ;u*cx;smm
'-'-geer
SGET
STATUS
STATUSOF
OFCSR
CSR
ol
i
)
cusgx"mssw OF TABLE

I ENPECTED ORS00, MIN=59
: sHOUR=2S ,MIN=0
:EXPECTED
HOUR=0,MIN=0
2 sHOUR=0 ,MIN=60

]

: sHOUR=4

,MIN=63

; sHOUR=12 ,MIN=20

fi}li1 8‘8%8% 88282

"19
000020
ifls 103%
10510 000020

322332

00020
00020

2:EXPECTED
;HOUR=13 _MIN=30
HOUR+MIN (13,30)
; ;HOUR=0 MIN=16
S:EXPECTED HOUR=0,MIN=16

SEQ 0038

MAIN.

MACYTT 30A(1052)

13-MAR-80 07:39

00 NN
NN -

006007
006007
000000

SEQ 0039

=12 ,MIN=7

s sEXPECTED HOUR=12 ,MIN=7

sTHIS ROUTINE WRITES VALUES IN DEV REGISTER RANDOMLY
sTHAT IS INSTEAD OF WRITING IN MONTH+DAY REGISTER
SWRITE IN HOUR+MIN REGISTER & INSTEAD OF WRITING IN

sHOUR+MIN REG,WRITE IN SECOND REGISTER
MR

L L

el P

LR ettt ittt

S*TEST 15
.._...3_._.:

000012
016106
013320
100000

oo O°§
-5
RS3

d d

[elelelelslelelelelelolelalelelelele
lele lelelelelelelelelelelalelelelelale]

001172

TST1S:

013312

D
D ed
D

013234

024144

016104

024144

d ed oD o

118:

;

h
e

aC
#BIT15,3CSR

—

01;116
013112

aRG4

i;-a

&u
e

024144
016104

024144

ERROR+12
JSR
TST

MOV
MOV

JSR
0, o
BNE

ettt

T332 2233223323

2 sMONTH+DAY

2 sHOUR+MIN REGISTER
;sWAIT FOR READY BIT SET
;sREAD PRESENT SECOND VALUE
ssWAIT FOR A SECOND
;:WAIT FOR 2 SECOND
;sARE THEY EQUAL?

;:1S ERROR FLAG SET?

RDYBIT

;:RDY BIT WAS NOT SUPPOSE TO BE SET

;:WRITE HOUR+MIN VALUE IN SEC REG

;CHECK FOR READY BIT SET

;1S FLAG SET?

BADA

SEC

;;READ SEC

ERROR+2
MoV
%S.acsa
MOV
., ®RGO
JSR
PC
RDYBIT

MoV
MOV

133332332223233

s+CLOCK WAS SUPPOSE TO BE RUNNING

MOV

JSR

;:CLEAR CSR
;:SET BIT #15 IN CSR TO WRITE

SEC

BADA

ERROR+25

2:D0 10. ITERATIONS

aRG2
RDYBIT
SEC
CONT3
WAIT

TST
BNE
MOV

MOV
JSR
gg;

3s:

ettt

ERROR+12

MOV

024144

ittt

RANDOMLY WRITE VALUE IN DEVICE REGISTERS

st it gttt

CLR
MoV

TST

024144
016104

®
S NNNNNN

—

(=7
parpary

purd

=S NNNNNN

D o
i et
D
i ond

013166

ettt

CNTLC

MOy

28:

ettt

#10. ,STIMES

BEQ

001122

013172

s e

001122

MOV

TST

)

D i

SCOPE

1%:

013230

ettt

MoV
JSR
MOV
MOV
JSR

013310

024210

RANDOM: JSR
CKSWR

—

e o)
s o
el

SAS SRR LT SBIRURTRUNZESTHEIGHRERIS

VALID & INVALID VALUES OF MONTH+DAY

6007
6007
TABEN3: 00000

N
N
N

VIS
W —

— PN

=2 PN

e
) e el e
e
S
e e
e
D e

o el
e
e

el el
e
iD
i
i
) o

-l il il ol
ol D ol D
B

N
3

07:40 PAGE 3-2
T4
TEST

— e
d e

D b
el d D d e d d

CZKWLA P11

13-MAR-80

CONT3
WAIT
SEC

aCSR
aRG2

RDYBIT

SEC
CONT3

WAIT
SEC

;;ERROR AS FLAG DIDN'T SET
;;WRITE MONTH+DAY
;:BUT WRITE IN RGO(MONTH+DAY)REGISTER
;CHECK FOR READY BIT SET

;1S FLAG SET?

VALUE

2;WAIT FOR
SEC
;:WAIT FOR 1 SECOND
;:ARE THEY EQUAL?

;:CLOCK WAS NOT SUPPOSE TO BE RUNNING
;;SET BIT TO WRITE HOUR+M
;:NOW WRITE IN VALID REGISTER

;CHECK FOR READY BIT SET

;IS FLAG SET?

; ;READ SECOND
;;WAIT FOR SEC

;:WAIT FOR 1 SEC
;2ARE THEY EQUAL?
;:YES, MEANS CLOCK RUNNING

MAIN,

MACYTT wOSZ)
13-MAR-B0
CZKWLA.P11
1
-80 07: 39
1198
1"

18}4

106%;

07:40

026210

013032 001122

1174 011

016324

ong

1175

011040

10«;%;

004

(f)
(1)

81104
11

1
1181
1
1

11054
1
11
11

1179 811

1
1185
1
1
1
11
1190
1191
1192
(1 ;
1193
1184
1195

1
011074
111
1M1
111
111 g
011112
011114
0111
11126
0111
111
0111

11144

1199

BADA

JSR

PC.

GETRDY

AR AR AR A AR AR A AN

000012

ogzz 7 016106

104407
012700
700
;

001172

;D0 10.

ettt it

32323332323323223323

ITERATIONS

811424
12762

28:

019;;4

77 012710
12002
1
10274 83°°°°
12037
001124

38:

1
1
1
1210
} }1

"
"
"
011214
11216

1215
1 19
; }a

011
0N
n
n

} 4,37
1126
737 8810935 831156

100000

2sPOINTER TO THE TABLE
2:IS IT END OF TABLE?
;sBRANCH IF NOT END OF TABLE

1114
1M1
m
1M
1m

011232

#10. ,STIMES

#MBASTAB RO
#BASEND ,RO
2%

1
1
1
1
1

1 1§ N
1216

ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME

1%:

128:

1401
1
7
4
21

ARA AR RARRR AN AR AR RN RN RN

011220
011422

177777

} 5 H%
1
112

SUPPOSE TO BE RUNNING

PC,

;

SCOPE
MOV

SEQ 0040

BASIC: JSR

12002
1
10274 000000
12002
01
4
;7
1
005737 024210
14
7

TEST

AR AR AR AR

3133232332327 2 i 4442 siid i ittt

1ST16:

11140

1219

58
aCSR,

ERROR+2

; : LS

;;ERROR CLOCK WAS

FLAG.1

BEQ
MOV

;*TEST 16

)

RANDOMLY WRITE VALUE IN DEVICE REGISTERS

(g)

ERROR+12

S$:

1178
(

TEST

1171
118
11;; 011026 01
11

715

PAGE 3-3

CKSWR
MoV
e, o
BGT

M
BASEND+2
CLR
aCSR
MOV
(RO)+, R2
MOV
(RO)+., R&
MOV
R2
a(R4)
MOV
(RO
+. R2
MOV
(RO)+., RG
MOV
R2,
a(R&)
JSR
PC.
RDYBIT
ST
FLAG. 1
BEQ
12%
ERROR+2
JSR
PC
GETRDY
(WP

SIEXIT
*:CLEAR CSR
*IMASK FOR CSR
*:ADDRESS OF CSR
“:MASK IN CSR
::VALUE TO BE SET IN DEV REG
::ADDRESS OF DEV REG
::VALUE IN DEV REG
:CHECK FOR READY BIT SET
:1S FLAG SET?
*;BRANCH IF SET
$:RDYBIT FAIL TO SET
::GO GET READY BIT

BNE

(RO)+,

#-1

::1S IT END OF SUBSET?

CLR
MOV
MOV
MOV
MOV

aCSR
(RO)+,
(RO)+,
R2
(RO>+,

R2
R4
a(RG)
GOOD

;:CLEAR CSR
::MASK TO READ DEV REG
: :ADDRESS OF CSR
::SET BIT IN CSR TO READ
::EXPECTED VALUE IN GOOD

MoV
TM
48:

CNTLC

5%’.;
GCOD, g:o'
BAD

BEQ
4$
ERROR+1
[ 2
(RO)+,
BNE
38
BR
1s

BASTAB: BIT14

#-1

::GET NEXT VALUE FROM TABLE

%e?‘o“
2":Acnufsvzuge
;EXPECTED=ACTUAL?

$:BRANCH IF EQUAL
i
“:IS IT END OF SUBSET?
S:BRANCH IF NOT
“21S THERE ANY MORE VALUES

2:BIT TO SET YEAR VALUE

CSR
17073
RGO
000000

::ADDRESS OF CSR
SIYEAR = 1979
*:ADDRESS OF DEVICE REGISTER
ZINOT END OF SUBSET

BIT1S

;:BIT T0 SET MONTH+DAY

MAIN,
MACY1T wosz)
13-MAR-80
CZKMA.P1T
1
-80 07:39

07:40 PAGE 34
116
TEST

ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME

CSR

:;ADDRESS OF CSR

}

1240 0246064

6037

11242 000000

RGO

000000

*:ADDRESS OF DEV REG

ZINOT END OF SUBSET

15
1

011566 0ac0e0
011 l§§ o&ooo

i
6000

I ADDRESS
OF CopTN
* *HOUR=12,MIN=0

;

011254

177777

*:END OF SUBSET

11 3‘2 0350:272

01125

o;g%

RG2

*:DECEMBER 31

:;ADDRESS OF REGISTER

011256

§11

11270

ooooo%

BIT1

;:TO READ JULIAN DAY

11274

f" 5

2455

*: EXPECTED JULIAN DAY

1
1

}
1

011
11

11266

11272

024064
t.og

1127

}

11302

}

11312

1
1
1

024
0170

11
11
11

064
1

177

BIT2

::BIT TO READ YEAR VALUE

RGO

*:ADDRESS OF DEV REG

CSR
17073

00000
CSR

RGO

::ADDRESS OF CSR
:EXPECTED YEAR VALUE
Z:NOT END OF SUBSET
::ADDRESS OF CSR

::ADDRESS OF DEV REG

00000

::NOT END OF SUBSET

BITO

::TO READ HOR+MIN

177777

“:END OF SUBSET

CSR
6000
RG2

::ADDRESS OF CSR
:EXPECTED HOUR+MIN
< :ADDRESS OF DEV REG

11314

BIT14

RGO

}

”

ggp +BIT1

1
1
}

1
1
1

001
RGO
00000

::JULIAN DAY (JAN 1)
: ;ADDRESS OF DEV REG
::NOT END OF SUBSET

1
1

8IT1S
CSR

;:SET HOUR+MIN

1
1
1

1%
1

11324

fitn

1
1
1

11352
11354
n

}

1
1
1

CSR
17074

811
n
811

11372

81
1

1
01

024064

::SET YEAR

::ADDRESS OF CSR
131980

:;ADDRESS OF DEVICE REG

2:NOT END OF SUBSET

::SET JULIAN DAY

foo
15777

OB
e
$:END OF SUBSET

BIT
CSR
1

;;READ JULIAN DAY

00000

;:NOT END OF SUBSET

RGO

BITO
CSR
&0

RGO

:EXPECTED VALUE

::ADDRESS OF DEV REG
; :READ MONTH+DAY
:JANT B

::ADDRESS OF DEV REG

SEQ 0041

MAIN.

MACYTT 30AC10S52)

CZKWLA.P11
} ;9

07: 40

13-MAR-80 07:39

T16

PAGE 3-S5

TEST

ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME

SEQ 0042

000000

00G00

2sNOT END OF SUBSET

1598 s
39%%
1580 011409 086008

8170

CsR
00000

- :READ HOURSMIN

00000

RGZ

3
s3sNOT END OF SUBSET

BITO
CSR
00000
RG4

:sREAD SECOND
;sADD OF CSR
ssEXPCTED SECOND VALUE
> sADDRESS OF SECOND REG

1578

011374

13-MAR-B0O

011376

000001

1581 011404 024066

} gi

011406

1885
1285
1
1287

011410
011412
011414
01141

1
1289

01143
0114

000007
054062

0;4079
s v dd

- sEXPECTED HOURSMIN

177777
BASEND: 000000

:;END OF SUBSET
“ZEND OF TABLE

;
‘%

;THIS ROUTINE CHECKS IF INTERRUPT OCCURS PROPERLY

159
1 98

. 't.'Q"'.*Q'.t'."..""."'.‘"....."‘fi'.‘.'t.."."'..."...
*TEST 17
TEST
UPDATE INTERRUPT
AR

11424

1
1
1

11426 012737 ogomz 001172
024106
016106

177776

114g 0127,
11454
700
mog
1146
137

012155
01221

1
1
1

11492
114
11;

12737
12037
7

1
11;4.
0123

1
1

1 g
11516

i 7
013777

10
001124

12737

}

1 17

1
1
1!
}

1
1
1
1
1
1

11434
11442
11448

11524

013737
737
104407

t47117:

5321

005037

0241

A A

SCOPE

MOV

A AR

TABDR4G: MOV
JSR
CKSWR

AR AR AR AR A AR ARA AR

#10. .STIMES

DPRI.
PC,

PSW
CNTLC

A AR R AR AR

RRA

;::D0 10. ITERATIONS
T

#TABLE4 RO
#TABENS RO
28
8s

;:POINTER TO THE STARTING ADDRESS OF THE TABLE4
::1S IT END OF TABENS?
*:BRANCH IF NOT
SIEXIT

026226 28:

MOV
MOV
CLR

”
(RO)+.,
acsa

:;FLAG_TO INDICATE UPDATE INTRPT
:UPDATE VALUE
..cn.m CSR

012344
012340

MOV
MOV

aam +B116,3CSR
GOOD,
@RGD

016030

MOV

CLR

JSR

24212

INTREG
GOOD

:gsn

PC.

TIMES

INTRIN

nn §5 104014
1793} 012306 001122

;sfr

%Ac.z

MOV
aCSR, BADA
ERROR+14

n
5977
n
5
N
137
N
7
11253
7
"
8857 7
11606
001417

CLR
ST
JwP
CLR
JSR
ST
BEQ

aCsSR
(RD) +
1$
FLAG.2
PC.
RDYBIT
FLAG. 1
i

012276

011454
024212
017000
024210

AR AR

MOV
P
BGT
JWP

18:

012114

5037

3s:

:CLEAR FLAG

..1memr ENABLED
mmmw vn.us IN DEV REG
..cm LOCA

$:WAIT FOR

S:WAIT FOR INTE

5 sec

G mswocc

:G*INTERRUPT
EE r' |s:mrus
org
DIDN'T OCCUR WHILE

..wmms n%w‘
WITH INTENABLE

*DISABLE
::POP P mm
*2GET NEXT VALUE
*2CLEAR INTERRUPT FLAG
:CHECK FOR READY BIT SET
*IS FLAG SET?
*:BRANCH IF YES

JMAIN,

MACYTT mMZ)

CZKWLA.P11
1327
1328

011610
811614

0116

13-MAR-B0

-80 07:39

012037
017737

001124
012244

023737

1331
1

0112‘8
811

013737
1
1

024120

1
1335

on
011652

012037
017737

001124
012206

001126

011670

013

024120

001122

1347
1 g
1
1
1345

011700
11704
11710
11714
011720

137
012037
00 877
005037
012777

011454
001124
012146
024212
100100

1
1
s
1:
1750
| 351

117
11740
11746
117;2
11768

5037
012737
737
5737
1911

024120
000005
015726
024212

017737
104014

012076

1
1337
1
1340

1
1

1354

11642

000137

011
011666

023737
001

011676

104001

011726

117
11766

8‘1) 777

1126

1355

011770

5077

012066

1
1
1

11776
1
1
01
1
01
12C
1
1
O1
1
1
1
1
1
1
1

1
9 7
7
5737
1417
;9 7
17737
3737
1; 1
3737
04001
137
12037
17737
3737
14
13737

11454
024212
017000
024210

9
g

1)
1
1361

1
1
1
1365
1
1
1
1

1
157
137
137
1374
1375
1376
(1)

13?7
1 ;8
1
1

11774

121
01211
012114
0121
0121
01
121
121

12144

57, 9

1
137
7
7

5737
1
1
17737

104001

001126

012132

001122

(RO)+,
aRG0,

BEQ

MOV
MOV

(RO)+,
aRGO,

GOOD
BAD

MoV

ACSR,

BADA

JMP

001156

7%:

001126
001122

011454
024226
017000
024210

11%:
8%:

001122

GOOD,
5%

1%
(RO)+, GOOD
aCSR
FLAG.2
#BIT15+BIT6,aCSR

CLR
MOV
JSR
TST
BNE

ACSR
5,
PC,
FLAG.?2
6%

CLR

aCSR

JMP
CLR
JSR
TST
BEQ
MOV
MOV
P
BEQ
MOV
ERROR+1
JMP
MOV
MOV
cTMP
BEQ
MOV

19
FLAG.?2
PC,
RDYBIT
FLAG.1
7$
(RO) +,GOOD
aRG2,
BAD
GOOD,
BAD
5%
ACSR,
BADA

9%:

@RG2

TIMES
INTRTN

BADA

;s YES, BRANCH

.sGET STATUS OF CSR
-sREAD VALUE NOT MATCH WITH EXPECTED

;:GET MORE VALUE

2 sEXPECTED VALUE
;sACTUAL VALUE IN BAD

;sARE THEY EQUAL?
s :BRANCH IF EQUAL

;:GET STATUS OF CSR

+cREAD VALUE NOT MATCH WITH
s sEXPECTED

ssGET NEXT VALUE
; sHOUR+MIN IN GOOD
;sCLEAR CSR
i
;2 INTERRUPT ENABLED

; sHOUR+MIN IN DEV REG

32
;25 SEC
;:WAIT FOR INTERRUPT
;2 IS INTERRUPT OCCURED?
; :BRANCH IF YES

;sREAD STATUS OF CSR
.-+ INTERRUPT DIDN'T OCCUR WHILE
2 JUPDATING CLOCK

(RO) +

5s
(RO) +,GOOD
aRG2,
BAD
GOOD,
BAD
118
ACSR,
BADA

ERROR+1
JMP
18
CLR
INTREG
JSR
PC,
TST
FLAG.1

ssARE THEY EQUAL?

BAD

JMP
MoV
CLR
CLR
MOV

GOOD,

;;EXPECTED VALUE IN GOOD
- sREAD MONTH+DAY

BAD

BADA

MOV
aCSR,
ERROR+14

6%:

001122

GOOD,

SEQ 0043

GOOD
BAD

MOV
ACSR,
ERROR+1

TST

024120

012214
011720

MOV
MOV

MOV

016030

UPDATE INTERRUPT

ERROR+1

012134

TEST

P
BEQ

5%:

001126
001126

024120

4%:

001126

0011;2
0120
001124

011704
1124
8(1)2030
1124

PAGE 3-6

001122

011454

001126

117

001126

11622

001711

001124

07:40

RDYBIT

BNE
9
JMP
TABENG+2
MOV
a(SR,
BADA
ERROR+1

; sUNABLE INTERRUPT
;;POP UP POINTER

;:CLEAR INTERRUPT FLAG
;CHECK FOR READY BIT SET
;1S FLAG SET?
s ;BRANCH IF YES
;;EXPECTED VALUE OF HOUR+MIN
;;READ ACTUAL HOUR+MIN
;;ARE THEY EQUAL?
2:60 GET MORE VALUES
;:GET CSR STATUS
;READ VALUE NOT MATCH WITH EXPECTED
;;GET MORE VALUE
;;EXPECTED HOUR+MIN
; sREAD HOUR+MIN
;;ARE THEY EQUAL?
;2GET NEXT VALUE
;;GET STATUS OF CSR

;2READ VALUE NOT MATCH WITH EXPECTED
32
;2CLR UPDATE INT FLAG
;CHECK FOR READY BIT SET
;1S FLAG SET?

;:BRANCH IF READY DIDN'T SET
s2EXIT TO NEXT ROUTINE
;:GET STATUS OF CSR
;;READ VALUE NOT MATCH WITH EXPCTED

JMAIN.

MACYTT

1381
1
125‘
1
1385

012146
012152
012154
012156
012160

CZKWLA.P11

——

1%39

920
1

012162

012164

30A(1052)

13-MAR-80 07:39
000137
000401
000401
000000
000000

07: 40

012214

PAGE 3-7

012172
012174

004000
000

S
e

012204

98
399
400

012210
012212

UPDATE INTERRUPT

SEQ 0044

TABEN4+2

SSEXIT

02004

04000
04000
04002

014400

04002
14400

006020

06020

U
SO N

%
01
97

06002

012176 004002
5
01
002
94
012202

06002

006002

TEST

JP
TABLES: 00401
00401
00000
00000

006002

01 196

012170

13-MAR-80

00000

006020

06020
TABEN4: 00000

*THIS ROUTINE PRE-SETS INTERRUPT FOR

28‘2

:FIRST DAY OF THE MONTH

4%7

' QQttttttt'tttttttttt"'ttt'tttt'.ttttttttttfit.'ttt'tlt'lt'ttttt

(3)

SATEST 20

ao§

:OMOUR, OMINUTE 0 SECOND OF THE

404

(3)

2)
(1)

01
01

000004
015737 000001

0827 7

1411
141;
1413
1414

01
1
01
01

0127
ouogz
81
0131
127
0000525 024226
737
016

1413
1417
1413

1
01
1

12777
12777
01
737 017040

1483
1410

1415
1419

1420
1421

01
01

013737

104407

024106

12777
5737

14
17

1425
14
14
14

01
1
12344
1 go

12777 ooogoo
12077 011516
012077 011514
737 017040

1430
1431
1432

O1
01
01

1611
017737
104007

12354

737 016324

005737

011564
0115

011522 2%:

024210

011474

JSR

PC,

MOV
MOV
MOV
JSR

#TABLES RO
#TABENS .R3
2,
INTREG
PC,
INIPRE

MOV

MOV
MOV
SR

20,

PSW

CNTLC

CSR

I i 222223322322 2222222212221%

::D01 ITERATION
;218 IT CONROL C?

:.-Pguren TO THE STARTING ADDRESS OF THE TABLE
: :R3 CONTAINS END ADDRESS OF TABLE
::FLAG TO INDIACATE PRESET INTRPT
::GET 'M' BIT SET

*:CLEAR CSR

::SET (SY) BIT IN CSR TO WRITE A YEAR VALUE
::YEAR 1976 IN DEV REG

BEQ
MOV

28
@CSR,

BADA

: ;BRANCH IF NOT

JSR

PC,

GETRDY

ERROR+6

MOV
MOV
MOV
JSR
ST

001122

DPRI,

#8]714,3CSR
#17070.3RG0
B
RDYCK1

#1,STIMES

CKSWR

18:

PRE-SET INTERRUPT

SCOPE
MOV

PRESET: MOV

011540 001122

104006

011572

t§120:

024210

1424

177776

016106

14 i
14

001172

TEST

d sl

FLAG.1

#0
(RO
>+,
(RO)+.
PC,
FLAG.
1

BEQ
3s
MOV
aCSR,
ERROR+7

..awv BIT DIDN'T SET PROBABLE

YEAR wu.ue MAY BE INVALID

r
aéwv BIT SET

aCSR
aCSR
@RGO
RDYCK1

::GET MASK TO SET IN CSR
S:VALUE IN MONTH + DAY REG

BADA

;:BRANCH IF READY BIT SEf
“ZREAD (SR
SZERROR: READY BIT DIDN'T SET

1440
1441
1442
1443

015 72
012374
012376
012400

005720
005720
0057
000137

01302

0126404
012412
012620
01 42

012777 000000 011450
012777 100000 011442
012777 013473 011440
004737 017040

1445

0124

0014

1447

012446

104010

1450
}221

012450
12456

012777 000000
012077 011400

1454

01 493

004737

1459
1457
u.sg

12476
0125
12506

0014
17737
104071

1460
1461

012512
012514

146

1§

1444

012432

005737

120

38:

024210

011404

1459

012472

01251

125

005737

024210

011340 5$:
12777 100200 011336
737 017120

1466

01254

7737

1468

57,

147;

1§

012540
01255

4293 }
1471 01
1473

1474
1475
1479

147
w.;g
14

u.go
1481

011

01252

5737

14
7737
104026

12614

0057

1261
O1

14
1485

1
012642

011314

737 01

01
01
12612

001122

FLAG.1

aCSR,

BADA

MOV
MOV

#0
(R0O>+,

aCSR
aCSR

JSR

PC.

RDYCK

(RO)+, @RGO

FLAG.1

02421

011252

14
12650 83‘” 015726
u.ga
12654
005737 024212
1488
O1
001006

JSR

PC,

RDYCK

MOV

@CSR,

BADA

(RO)+

78
011220
016030

FLAG.1

%v
MOV

R)’
#100000,aCSR
3RG4

FLAG.
1

JSR

PC,

B8R
CLR
CLR
CLR

MOV
MOV

JSR

ST
BNE

RDYCK1
BADA

#8176,
#120,"

PC.

FLAG.2
3

: sHOUR+MIN IN REG?2

ssBRANCH IF NOT
;:GET CSR STATUS
;;ERROR:ONE OR BOTH VALUES
+:;OF HOUR+MINUTE MAY BE
;s INVALID
;;CLEAR CSR, OR SET INTRPT
ssFOR JULIAN DAY IF BIT1 IS SET
s sPRE=SET INTERRUPT
;:G0 CHECK FOR READY AND DE BIT

;:1S 'DE' AND 'RDY' BIT SET?

;:BRANCH IF (DE AND RDY)BIT SETS
2:GET CSR STATUS
:;(DE) BIT FAIL TO SET

s PRE=SET INTERRUPT FOR HOUR+MIN
s;CHECK FOR RDY AND DE BIT
::1S ('DE' AND 'RDY') SET?

*:(DE) BIT FAIL TO SET
**ADJUST PONTER
:sGET NEXT VALUE

;;PRE-SET INTERRUPT FOR O SEC
;:1S FLAG BIT SET?
::BRANCH IF (DE,RDY,MBIT) BIT SET

*:GET CSR STATUS

;;PROBABLE
5
CAUSE OF AN

ERROR:

;:'M'BIT FAIL TO SET CHECK
;2CSR TO FIND EXACT CAUSE OF AN ERROR
;;ADJUST POINTER
;sGET NEXT VALUE

(RO)
+

118
aCSR
FLAG.
2
ACSR

< WRITE HOUR+MIN

::Agillfl‘r»l’ POINTER

aCSR
#100200.3RG2

MOV

TST

02421

888100
120

(RO)
+

118
#0

BEQ
7$
MOV
aCSR,
ERROR+26

001122

BADA

BR
MOV

ERROR+11

97 0241

15 7
012737

' 3

s;
7 011536
37

BEQ

6 1;
12777 W 011276
011276 6%

0014

#0,
aCSR
#BiT15.aCSR
#13473. 3RG2
PC.
RDYCK1

544
15777

5737 024210

1467

001122

2 ;ADJUST POINTER

MOV
MOV
MOV
JSR

BEQ
5%
MOV
aCSR,
ERROR+11

883 20

1464 81
1465

(RO)+
118

SEQ 0045

- ;PROBABLE CAUSE OF AN ERROR
--ONE OR BOTH VALUES OF MONTH
--+DAY MAY BE INVALID

(RO)+
(RO)+

MOV

017120
011356

ST
ST
ST
P

ERROR+10

4$:

PRE-SET INTERRUPT

MOV

u.sg 012462 012077 011376
1455

TEST

1446 012440 017737 011416 001122

1248

PAGE 3-8

::CLEAR INTERRUPT FLAG

aCSR
TIMES

INTRTN

Z:NOW ENABLE INTERRUPT
s

1433
14
1435
14
1437
1438
1439

13-MAR-B0 07:39

07:40

CZKWLA P11

13-MAR-80

30A(1052)

MACY11

MAIN,

-:APPRO 80 SEC

*:WAIT FOR INTERRUPT
;215 INTERRUPT OCCURED?
; ;BRANCH IF YES

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

012670

012672
01 %6

017737
104015

011174

001

001126

024120

001122

2421
1

120

PAGE 3-9

001122

001126

8000

012662

SN
— )
b

1489
1490

07:40

TEST

H
&
PRE-SET

MOV

3SR,

CLR
CLR
MOV
MoV
P
BEQ
MOV

aCsR
FLAG.2

ERROR+15

aRG0.

(RO)+.
GOOD,
9%
ACSR,

INTERRUPT

BADA

BAD

GOOD
BAD
BADA

~J
RS8R NN ?»'o

e
e
D
—

o e

SO0

olelelelelolole]
OO000C0

NN
o~

e
P

001126
001124
001126

024120

001122

011074
000000
001124

001126
001124
001126

024120

001122

016106

108:

118:

BAD

GOOD,
108
ACSR,

BAD

aRG4,

BAD

GOOD,
118
ACSR,

BAD

ggn.c

#0,

BADA

GOOD

BADA

128

024226
000000

020060
012352

aRG2,

INTREG

#0,

aRGO

#LOGTST, SRTNAD

128:

$EOP
2

ssGET STATUS OF CSR
- INTERRUPT DIDN'T OCCUR ON
s sPRESET VALUE
:sCLEAR INTERRUPT ENABLE
;sCLEAR FLAG.2
2 ;READ MONTH+DAY
s sEXPECTED HOUR+MIN
;sARE THEY EQUAL?
;. YES, BRANCH
ssGET STATUS OF CSR AT TIME
2 :0F INTERRUPT
s sREAD VALUE NOT MATCH
s;WITH EXPECTED VALUE OF
; sMONTH+DAY
s sREAD HOUR+MIN
2 sEXPECTED HOUR+MIN
;sEQUAL?

;:GO TO READ SECOND
.sGET CSR STATUS AT TIME OF INTERRUPT
s ;READ VALUE OF HOUR+MINUTE
;:DIDN'T MATCH WITH EXPECTED VALUE
; sREAD SECOND
s sEXPECTED SECOND VALUE
;sARE THEY EQUAL?
:2GET MORE VALUE
s:GET CSR AT TIME OF INTERRUPT
s sREAD VALUE NOT EQUAL TO EXPECTED
;sVALUE OF SECOND
2:1S IT CONTROL C?
;:1S IT END OF TABLE?
; :BRANCH IF NOT
;:CLEAR INTERRUPT SWITCH
;2JUST TO CLEAR °'M' BIT

;:GET MORE VALUES
;;MASK TO SET JULIAN DAY
;; SET FEB~

“:JULIAN BIT SET

*:MARCH=1 (INTRPT ENBLE)
2 JMARCH~1

D o

::SEP=30
::OC;-} (INTRPT ENABLE)

lh
el
b ol

SarNS

e o e et

OO0000

e .

OO0O0O0

9994

011126
000000
001124

TABLES:

NN AN

SEIERFEKgasafignuunuunnunqg

el e el e

VTN AT TNV

. el el e

B el el

VTUTU
T

i
s
) ol A

)

s e e

VIIAVIVTI VI

il il il
i
il

il el el e

T AT VT AT Y

e
lelelelels]

o el

il e

D e <l

150

jelelelelela)

ERROR+1

SEQ 0046

2 :SET guum DAY
::DEC~31

“:SET JULIAN BIT

SIJAN-1 CINTRPT ENABLE)
LIIAN-1

SRENEE SEEEE

b
b d
e
d ol D e e -

000444
104401

»
——d

WL
o~ W oo

;:FEB-28

000002
100074
001401
TABENS : 000000

NEWTIM:

013144

;:65%:
648:

013262

s sMARCH=-1(INTRPT
> sMARCH-1
;.END OF TABLES

ENABLE)

SET TIME OF THE CLOCK

NERX ornS

SEERESSS
—d NG =Y — =2 )

OO00O0000

NNNNNNN

—

o
D ek kot
ek

TYPE

2 :69%:

,69%
68%

CLR
CLR
CLR
CLR

CLR

KB
—

CHR

024250
50
54
41
4126
124

3s:

000025

ggiise
1

;s TYPE ASCIZ STRING

ssOET OVER THE ASCIZ

"'CR'* AT THE END OF

L67%

BR
LASCIZ
MOV
CLR

veerss

THE FOLLOWING LINE TO END ENTERING TIME VA

;sTYPE ASCIZ STRING

<200>/NEW/

;sGET OVER THE ASCIZ

;;TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

<200>/
,MO,DD ,HH,M]
YYY
/<200>
Y

#IGIT, R2

;;POINTER TO DIGIT TABLE

FLAG.1

;:CLEAR FLAG

SOF SWT
SWITCHI

;:CLEAR SOFTWARE SWITCH
;;CLEAR SWITCH1

OCTNUM
COMMA
DIGCNT

;sINITIALIZE OCTNUM
;sCLEAR COMMA COUNT

ssINITIALIZE DIGIT COUNT

NNONHR=SNYSO

NERRE

e
s

T
I
e
e

<200>/TYPE

;:67%:

1%:

000015

nars7

TYPE

,65%

643

663

66%:

013276

TYPE

BR
.ASCIZ
BR
LASCIZ

685:

FRNFSFRRE
w
o

SEQ 0047|

INTERRUPT

100000

g 2

Y
s e
)
D
et i et
e’

PRE-SET

001034

000004

024124

000012

024244

38393289353 32293322

104401

) e

;THIS ROUTINE SETS NEW TIME IN THE CLOCK

e
D el o
)
s el e
it e

TEST

-SBTTL

oo o~ WY

6Nfix”_nd_ng-a—l—-\h—a—l—d—l\l‘\h
W= w o~ vvv@vvvv@fl& YA

120

PAGE 3-10

100000

001034
000002
100074
001401
000000

—h
—D —D
e
e
D e

07:40

el ek

13-MAR-80

~80 07:39

OOO0O0O0ON

—-—

lal

MACY11 w%Z)

(SP)+,

RS,

n56,
3

;:STORE CHARACTER

ECHOB1

;218 IT COMMA?
; :BRANCH IF a?t

ECHOB1

DIGCNT, (R2)+

DIGCNT
glsflu

;;ECHO THE CHARACTER
2;DIGIT COUNTER ON THE STACK

;:TO USE AGAIN

;;KEEP TRACK OF COMMAS

»2s,

;:1S CONTROL U?

#15,
43

;:1S IT CR?
;;BRANCH IF NOT

NEWT IM

g}sccm'l}.(nh

;: GO BACK

;:GET DIGIT COUNT

#DIGEND ,R2

;21S IT END OF DIGIT TABLE?

(oOMMA

ne,

ECHOB

;; FOR LINE FEED

63
6%

s;ALL VALUES ARE NOT ENTERED SO BR
;;BRANCH IF NOT ENOUGH COMMAS

MAIN, mm
CZKWLA. P11
1591

osz>

u-m-ao 07:40 PAGE 3-11
SET TIME OF THE CLOCK
024244

TYPE

1535 01
004 57 014224
159%
013476
737 013702

JSR
JSR

PC.
PC.

1595

JMP

BNE
TYPE
TYPE

9%
LSQUES
SCRLF

1594

1;%

1
153
15

013502

000137 013700

51
13514
13520

1005
104401 omgg%
104401
001

8‘1| SOS

2704

000177

4%:

1600 013524
714
1601 81 526
020427 000060
1&
1 g
4 9
1
000071
1606
01 s&g
3
1605
013542
01
;
1
13544
024126
1
13550
005737 024124
1%

1610
1611
161§
161
1614

1219
1618
1619

1620

}6 5
(1
(1)
(})
(1)

13554

13556

001005

0 gb 7

024126

000004

1
737

0000046

024124

85 727

024126

000002

013610 0 0'2*57
013614
g

024254

01
01
135
1357,

404

01361

}

01
01

’
4

S$:

013630

56;13:
:

207

8s:

1688
}

1
1631

16
}

1635
1
16

01371
1
1

1
16
1640

1641

)

1 ;82
} ;11

170077

040000

0137246

024210

013742

YERTN:

024132
127700

1
1
0137

010122

mro%o

;:DECIMAL TO OCTAL CONVERSION ROUTINE
;;ROUTINE TO ENTER VALUES INTO

n77,

..IS IT RUBOUT?

2s
RG,

#60

BLT
P
BGT
MOV
INC
ST
BNE

£3
R&,
63
R&,
DIGCNT
COMMA
33

BLE
8R
P
BLTY

28
6$
%,

BLE

ECHOB

DECOCT
YERTN

F7a
(R2)+

DIGCNT, #4

COMMA

DIGCNT, #2

..aevxce REGISTER
SEXIT

..uo B8R
STYPE A *2°
i:'CARRIAGE RETURN'' AND 'LINE FEED"

SREAD NEW CHARACTERS
..xs NUMBER BELOW ZERO ?
anmcu IF YES
S NUMBER ABOVE NINE ?
..aamcu IF YES
:;VALID NUMBER ON DIG STACK
:COUNT NUMBER OF oxcns BEFORE
..xs IT FIRST NUMBER

COMMA

: sBRANCH IF NOT

“:MAXIMUM DIGITS IN A YEAR

::GET MORE DIGITS IF uor FOUR YET
;ERROR IF MORE THAN FOUR
..mx POSSIBLE COMMAS
F MORE BRANCH
..mx DIG FOR MONTH=DAY=HOUR=MIN

::GET MORE DIGITS

;THIS ROUTINE CLEARS DIGIT STACK ON AN ERROR

1623
§1 74 888137 013136
} g
1

8R
P

68:

58’6‘4’31
2

SEQ 0048

CTMP
BLT

R2.
78

CLR

TYPE
BR

-(R2)

..rvps ERROR MESSAGE
::CLEAR DIGIT STACK

718
08

ASCIZ

..rvpe ASCIZ STRING
“GET OVER THE ASCIZ
(M)/ti"tttttttsm"“ ERRORs*xawnwnnnwn/

NEWT IM

RTS

.SBTTL

THE TIME VALUE IN THE DEVICE REGISTER

MOV
gx"c’

RESET

vm. RO
n?mo :(’)

::YEAR VALUE
"&&'“’w 77

ASL

;:SHIFT

BIC
ASL

010124

#IGIT

;;EXIT FROM THE ROUTINE

#170077.R1
R1

BIS
BIS
MOV

R1,
RO
#1714, CSR
RO,
RGO

FLAG.1

JSR

PC.

RDYBIT

;;CLEAR ALL BUT #7700
..sum LEFT
LEFT

;RO CONTAINS YEAR VALUE IN DESIRE FORMAT
2:SET (SY) YEAR BIT
::VALUE IN THE oevxcs REGISTER

;CHECK FOR READY BIT SET
:IS FLAG SET?

c’?:&i.m"?cm1m%)07339

3-MAR-80

1642

013752

001

1% 01
8‘} ;62
e
}&ls'
ooso1

&
K

THE TIME VALUE IN THE DEVICE REGISTER

07:40

e e
010072

PAGE 3-12

BEQ

%m "
CLR
aCSR
Q‘c’ RO;‘1"7;'7'60%
ASL

1“9 o 7% 33708
0%3‘0
io0 |
1228
11.004 %g
}22? 8}4
1658 ,,.83§ 006
16
1832 %18
4020
013706 024136
%
122§
0 7; 310020
}661 8“84
012042 834
017000 P

:Sst RORO
ASL
o
MOV
D.AY

}225 012832 01;?; 010000 001122
1665 0140%
00009
1“9 1 74 %2 7; 8?;%
s:
1‘(’?) }2@ 882737 024210
1988 81413 &%)
B
G OR g e
127? 14120 2788 177700
167§ 141§4
388

253
gfsa. BADA
ER R g
5&2
35?“ RDYBIT
gg
%AGJ
@RGO, DMONTH
B
Ew
m
BIC
#177700.R0
ASL
%

}“ §}2883m

1] e
(1)

014050

005737 024210

R
Ragms.agasgo
PC.
RDYBIT

i%\s’ s
JSR
ST

FLAG. 1

SEQ 004
33
ERROR
:;BRANCH IF NO
NO ERROR

3553 \cmu.( MAY BE INVALID
*E‘?z Snsu.aw
S:CLEAR
ALL BUT #77
SISHIFT e

>3
8
23
TIMES
&
34
*:DAY
VALUE INRGRé4s

L
yRTON
::VALUE IN DEVICE
REGISTER
"f'sfffi\§°§5 szgm BIT SET
IS FLAG SET?

*:CURRENT STATUS OF CSR

::CLEAR
CSRREADY BIT SET
:CHECK. FOR

:IS FLAG SET?
;:STORE
MONTH+DAY VALUE
B
!
.:.:cn.gfi UNWANTED BITS
i3
Sk

}g;‘

14126

ASL

1675

}g;g g1a13 988300
0141

ASL

8 el

;.;

167

141

ASL

1681

01414

ASL

1
1%
1(1)
i 4

141§
a4
%2}
4174
izgs

10
007660 001122

%3
#81T115,aCSR
JSR
PC.
ROYBIT
ST
FLAG.1
BEQ
'em m,-'ncsn. BADA

H
3291

:}: }6

%;fig D -<

i
?Env

007702

44
gcsg.
_—

—

Z-Z-SE IV 5 JE ren
*CHECK FOR READY BIT SET
:IS FLAG SET?
%
i
;;READ
;:CLEAT\RHOUR
CSR + MIN

$33333333%

07:40

THE TIME VALUE IN THE DEVICE REGISTER

SEQ 0050

ROUTINE TO CONVERT DECIMAL TO OCTAL

:DECIMAL TO OCTAL CONVERSION ROUTINE
sSTACK CONTAINS ASCII NUMBER
;POINTER TABLE CONTAINS WEIGH

D e

D v

el v

)

) e
D
e

DECOCT: MOV

#POINTR
RS

;RS CONTAINS STARTING ADDRESS OF THE WEIGH TABL

024156
024160
024222
024174
024174
024122
024164
024174

1%:

STR
NUM

;:CLEAR STR
;s CLEAR NUM
s :CLEAR FLAG
s sCLEAR CNT
s sCLEAR CNT
s sCLEAR OCTAL NUM
2sCLEAR COUNT
;sMOF DIGITS IN NUM
s ;CLEAR DIGIT STACK
;;DECIMAL WEIGHT
2 :DECIMAL NUM
;sCLEAR FROM DIG STACK

000060

024160
024160

024156

3s:

024122

48:

el e

e
) e

)
il ol

rRRRRRRS

FLAG

CNT
CNT
OCTNUM
COUNT
=(R2) ,CNT
(R2)
(R5)+,COUNT
=(R2) ,NUM
(R2)
:

#60,

il ol il

CLR
CLR
CLR
CLR

024164
024160

) el e

014416

POINTR:

3E<-338333893umese

) s-

012705
[elelelelelelelelelelelalalelalelalelelalele’elelelalelelelelelalel QO

W
N\

PAGE 3-13

-SBTTL

NN NN NN N SN NN aEIEHREOEEAE.
N NN NN NN NN N NN N N N NN

237

MAIN, MACYTT mOSZ)
13-MAR-80
1
-80 07:39
CZKWLA. P11

.SBTTL

43
COUNT,
NUM
35
STR,
STR
CNT

NUM
STR

OCTNUM

L
.o

LR
.

OCTNUM, =(SP)

R2,

#IGIT

(SP)+,

MONTH

(SP)+,
(SP)+,
PC

HOUR
MIN

(SP)+,

L
..

DECOCT

IT ZERO
S:IS

DAY

L
..

;:YEAR VALUE IN OCYAL
;;MONTH IN OCTAL
;:DAY IN OCTAL
;sHOUR VALUE IN OCTAL

::HI'IJTIN OCTAL

READ TIME OF THE CLOCK

ZTHIS ROUTINE READ CURRENT TIME OF THE CLOCK
750

014426

READ:

MAIN,

MACYTT mOSZ)

CZKWLA.P11
(1)

(1)

1
(1)
1751

014510
014510

1753

0145

-80 07: 29

0146426

014432

13-MAR-80

106401

0004626

07:40

104401

001203

TYPE

;:65%:
64S:

m% oogggz 007340

1754 0145
1755 014530
1759 014534

o1ogoa
042700
0462704

1760 014

010046

1455

01;7777 000002

1769

145

1;9
1770

14602
01

1773

014614

1775

177

146

1757
1758
1759

014540
8145522
014

1761

014550

177700
160077

104405

176 014360 010008 O7>0°
172‘5’ 814
01.5C900: 177700

176 81457
1768
1
1771

177; 0146558
1774

1779

17;8

704

READ TIME OF THE CLOCK

014434

175§ 014514

160077

007246

_ASCIZ

TYPE

,658

648

<200>/
,SCRLF

::TYPE ASCIZ STRING
YR

#BIT2,

MOV
BIC
BIC

RO
R&
#177700.R0
#160077.R4

MOV

aRGD,

aCSR
RO

*:GET OVER THE ASCIZ

;;READ YEAR

ssREAD VALUE IN RO

:;ALSO IN Ré
::CLEAR ALL BUT #77
::CLEAR ALL BUT #17700

MOV

RO,

ssSHIFT RIGHT
JsSHIFT RIGHT
::IN OCTAL

MOV

#MIT1,

aCSR

::READ JULIAN DAY

BIC

#160077.R4

::CLEAR ALL BUT #17700

BIS
MOV

RG,
RO,

RO
-(SP)

::IN OCTAL
:INUMBER ON STACK

@RGO,

TYPDS

S
BIC

ASR
ASR

TYPDS

B
#177700,R0
R4
R4

CLR

aCSR

MOV

ASR

MOV

170077

BIC

ASR

-(SP)

#170077 RO
RO

::NUMBER TO BE PRINTED ON STACK

e ER
::CLEAR ALL BUT #77
“:SHIFT RIGHT
SISHIFT RIGHT

::CLEAR CSR

::READ MONTH+DAY
2:ALSO IN R1

::CLR ALL BUT 7700
2iSHIFT
3

EIGHT

ASR

MOV

RO,

BIC

#177700.R1

;:CLEAR ALL BUT #77

BIC

(SR
aRG2, RO
RO
R1
#160377 R0

2
2:HOUR VALUE
2:FOR MINUTE
:;CLEAR UNWANTED BITS

1%
1% e
14712

AR
ASR

RO
RO

1
1801

ASR
MOV

RO
RO,

O1ega

1785

0146

1225

1
1
1791
1
1
1

1798
1799
1

1
1
01
14674
14
14

01471
014714

¥l
0147

014

ASR

177700
007174
007174

160377

TYPDS

MOV

TYPDS

CLR
MOV

MOV
ASR
ASR

ASR
ASR

TYPDS

RIGHT

ASR

1787

SE/

R4
R
R4,

007244

146

SEQ 0051

MOV

ASR
ASR
BIS

007302

PAGE 3-14

R1,

~(SP)
~(SP)

RO
RO

::
;;0CTAL NUM ON STACK

::0CTAL NUM ON STACK

2ISHIFT
28
RIGHT

RO
RO

22
3

~(SP)

TIMES

BT mes

::
S:OCTAL NUM ON STACK

039

MAIN,

MACYTT

CZKWLA.PI1
1803
1%
1
1806
1807
1%

1810
1811
181%
181

(1052)

13-MAR-80

1&&-30 07:39

14742

042700

014750
014752

104405
000207

14746

010046

1821
(1)

1
1

(1)
(1)

014754

014754
014760
015004

§ 015
015

1824

015010

104401
000411

READ TIME OF THE CLOCK

017700

104411
13604
022704

1825

015814

801412

1827

0150

1403

1
18

15
15032

}8 1

15024

015036

133§ 015 s
(1)
(1)

015
015046

(1)

015074

(1)

1835

::658:
648:

18:

000116

151

1§n
015114

1&;
(N
(1)

}8“

015050

151

183
1840
1841

104401
000412
104411

015076
151

000137

015360
015216

15074

1411

015220

0151
015134

104401
000426

015136

1845 015512 004737 015554
}

015216

000207

RDLIN
MOV

a(SP)+, R4

::1S THERE ANY CHAR
::GET CHARACTER

::BRANCH IF L=CLK NOT THERE

_ASCIZ

2s:

3s:

000116

88’64 7

:;OCTAL NUM ON STACK

658
648

BEQ

48:

151

-(SP)

TYPE
BR

cMP

;:678:

000000

}g}

RO,

;;READ SECOND
::CLEAR ALL BUT #77

BEQ

BNE
JSR

3529"

78:

#131,

R&4

#0,

TYPE
BR

L678
663

.ASCIZ

RDLIN

::TYPE ASCIZ STRING
:2GET OVER THE ASCIZ

(L)"

N2/

#116, ~ Ré4

JMP

s:IS IT 'N*?

IS IT 'y

2:BRANCH IF 'Y*

::1S IT 'CR*?

::NO:BR
;;COMPARE THE CLK WITH L.CLK

L.CLK

<200>/P-CLOCK

::JUMP TO RETURN

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

(L)

N7/

MOV

a(SP)+, R4

;:GET CHARACTER IN R4

BEQ

7:G0 GET MANUALLY TIME BASE

BEQ
cMP

(1]
#0,

JSR

PC.

cTMP

<200>/L-CLk

18
PC,
78

grol. 000131
1365

MOV

RG4,
RO
#17700. RO

668:

403
022704

0151

2
i
::0CT ON STACK

:THIS ROUTINE TESTS THE ACCURACY OF CLOCK.
;IF THERE IS AN ERROR, IT WILL PRINT ERROR
:MESSAGE
H
A.CLK:

882704 000000

1365
004737

SEQ 0052|

#177700.R1
R1,
RO
RO,
~(SP)

BIC

1826 815 13 082704 000131

BIC
MOV
MOV
TYPDS
MOV
TYPDS
RTS

014762

PAGE 3-15

014726 042701 177700
014
010100
014
010046
014
104405
014
017700 007126

1812

1819
181
1818
1319
1 aso

07:40

BNE

#116,

#131,

TYPE
BR

.69%
688

JSR

PC.
PC

LASCIZ

RTS

;218 IT °N'?

SIS IT 'y*?

;2YES:BR
2218 IT 'CR"?

P.CLK

;:USE P.CLK AS TIME BASE

2 :NO:BR

;;BRANCH

TO RETURN

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

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

NO. CLK

2 RETURN

‘

JMAIN,

MACYTT 30A(1052)

CZKWLA.P11

13-”-80

13-MAR-8007:39

07:40

PAGE 3-16

READ TIME OF THE CLOCK

SEQ 0053

;THIS ROUTINE COMPARES KW11C CLOCK WITH
;KW11-P CLOCK FOR ACCURACY OF kW11-C CLOCK.

;1T PRINTS HARD ERROR IF CRYSTAL OSCILLATOR
*NOT ACCURATE.

015

815

015

12704 015350

15224

1 ;9;

1
1
12
01 ;;;
01 gs
1
1
7
1
1

15276
1;
1
1
}

7
4

017700
5302
1354
1gg 7
37 4

1
15

10 006616
144 172542
777 006610
3 175540
00

172540

815%26
015346

2%:

3$:

7 §
03

18:

006566

; 015356

15324
}

P.CLK:

01 gl.e

8? 027353

48:

58:

1
1
1
15354
1535¢

MOV

RO,

~(SP)

::STORE RO

MOV

R&,

-(SP)

::R4

MOV

#P.TAB, R4

V74

2;COUNTER IN R2

BIT
BEQ

#IT7,
2%

PKCSR

::1S DONE BIT SET?
2:NO:LOOP AROUND

MOV
MOV
MOV
MOV

77
77;4
177777

P.END:

-(SP)

#10,
aCsR
744,
PKBUF
#47777, 3RGL
”3,
PKCSR

MOV
DEC
BNE
MOV

@RG4,
R2
18
RO,

RG,

#P_END

TYPE

,PASMSG

MOV

(SP)+,

ggo’

:icm.

BLE
3s
Snm'”ss

MOV

MoV
RTS
P.CNT:
P.TAB:

R2.

(SP)+,

(SP)+,
PC

P.CNT

(RG)+

1:R2

::POINTER TO P.TABLE

::SET BIT READ TIME INTERVAL
::COUNTER EQUIV TO 100.
::SET TIME INTERVAL COUNTER
::SET RATE SELECT AND RUN BIT
:;READ DELTAT REGS
33
::BRANCH IF NOT ZERO
“:GET DELAT T COUNTER

::COMPARE WITH EXPECTED

::END OF TABLE?

2 :NO:BR
::HARD ERROR:CRYSTAL SEEMS TO BE

;:THE CLOCK PASS THE RELATIVE ACCURACY TEST

00
7753
7752
7754
177777

;THIS ROUTINE COMPARES KW11-C CLOCK

sWITH L-CLOCK FOR ACCURACY.

:IT PRINTS AN ERROR IF CRYSTAL OSCILLATOR
+1S NOT ACCURATE.

1§

10046

1
1

10246
10446

15376
15404

15412

0127

012777

037

L.CLK:

15534

10 006456 1%:

047777

177546

006456

MOV

RO,

MOV

n TAB? R4

..Poxmsn TO THE TABLE

#47777. IRGL

“ZSET COUNTER IN DELTA T

MOV
MOV
MOV

R2.
R&.

MOV

CLR

LKS

MOV

-(SP)

-(SP)
-(SP)

‘R2

*COUNTER
Z:SET
BIT TO READ DELTA INTWL

aCSR

Z:CLEAR STATUS OF L.CLK

1052)

13-MAR-80

é%&?fl.pfl“"@of\&% 07:39
1904

015416

032737

000200

19 13438 00;77(7)8 006436
1909 012:88 O 2
}% 84552 oo?

07:40

177546

PAGE 3-17

2%:-

8IT

53
DEC
BNE

}910 8%54544 §?2737 8(1)3(5)(35 024242 38:

cna

195 %3
}'}}2 015532
191;
013438
8
1417
}%. 8}“
27 015542

%3%’ 8}54985"“ ?fi?fig
}gfi
81?272 1 7(’)2 015544
1913 015476 023724 015532

48:
5%:

1958 §1ss14 bl0f e
il

155 S 0314 5
}3 1 §155
7 015552
}g § }gg}g ] osg
13

1935

13
}3

}g‘o

155
1254

01554

207

} gzl.
1 §s§
15552

;; 7
77 9
1777

%EP
BEQ
P

L.CNT, (R&)+
é$
RG.
#L.END1

,:.:;g}rrgeucs

L.CNT

S *COMPARE WITH TABLE FOR 60MZ
SSEXIT
IF EQUAL
'xég END OF TAB1

%zsmossn
fi.bv Zt.rmz.at.
cMP
L.CNT, (R&)+

Z-Egg?;m OSCILLATOR NOT ACCURATE
*:PONTER
TO THE TABLE
FS

NI f-B

S*THE
CLOCK PASSED THE RELATIVE ACCURACY TEST
HAT

TIEXIT
.:.:Eg_)a?‘ TABLE?
E:'(E)’S((;I{LLATG! NOT ACCURATE

#L.END2

L.TAB2: ;;gg
7726
L.END2: 177777

;

:THIS ROUTINE IS USED TO GET SOME BAS

%&g
1945

.-veogv ACCURATE AS IT IS USED TO DETERMINE
*THE ACCURACY OF CLOCK
*FOR

TIME.CHMARACTERS TYPED MUST BE

01572

;
NO.CLK:
CLR

N.CNT

gg;; o: 1: 2 3&;3'2'
1
7 163
100365

an
ffi?
TISTB
B8PL

2&%
asTks
23

005037

:':"R‘E)AD DELTA T COUNTER
1IDEC R2
::gEiTI;E'Sx ZERO

zgé HZ

5554

-e
SEY?
’-fwfgn

L.END1: 177777

194

}82 ié} ; ns;;;
} 57?:7» 163354
163“8 024250 g
bl
%8
81561 8?227; 04 . Ben
1
006242 2%:
19

}195 }o1
19
1
19553 01

LKS

7734

7777

1941

138
194

mz’ .
R2
1$

SEQ 0054

MOV

RTS

b
#BiT7.

BEQ
68
P
RG,
g"moae +33Ss

L.CNT:

19
19

READ TIME OF THE CLOCK

3%:

g{e
grxs
vcn&ys ggkxs ECHOB1
T
.
BIT
gxm, aCSR

::T0 STORE
2MIN IN
INTVL CONSTANT
570
STORE 2MIN

*INO:WAIT
FOR
A
CHAR
i
*°GET TIME
CONST
FOR 2 SEC
IECHO
THE
CHAR
:.;'x‘g_gg‘r SET IN CSR?

ZZCLEAR BIT SET
EE%;MMR
yfn‘;'? 2 SEC INVERVAL
:sANG
*IND:BR

LMAIN.
MACY11 30A(1052)
13-MAR-80
CZKWLA.P1T
13-MAR-B0 07:39

1960 015640 017737

015724

1961

815666 017737 163274 024250

1963

015660 015704 01571

1%§

}ggg

15656

8}56

1969 015672

196

15976

1046401

024250

35125‘5'

01572

48:

;7 015720

000207

1974
1975
197
1977
19;3
19

015714
015716
o1s7g
015722
015724

oooog7
5
177777
000000
000000

MOV
,‘,’E';

|
SEQ 0055

N.CON

::READ TIME INT REG

#TAB,

: ;ADDRESS
OF TABLE

RG,

#TAB.EN

'é'im’

TAB:

N.CNT:
N.CON:

00
00

*IGET CHAR

(R4)+

SICOMP WITH NUM IN TAB

::THE CLOCK PASSED THE RELATIVE ACCURACY TEST

37
35
TAB.EN: 177777
2

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

19
1985
19
198
19
19

:
;
:

}991

199;

“THIS ROUTINE WAITS FOR AN INTERRUPT

}9’3"

;1T ALSO PRINTS AN ERROR MESSAGE IF NOT INTERRUPTED

1;7
157

157

10849
5 i 016024
5037

016026

005737
001023

024212

1333 15740 1;7g; 024054
15746
15750

i 1;?
2
15754
3

ECHOB1

asTkB, ECHOB1

P
TYPE PC
,PASMSG
RIS
36

5%
6$:

198
9
11ga§

}99

TYPE

oTM

197§ 015712 000036

1995
1999

@RG4,

BLE

198 013709 006403
1390 015706 104401 027353
015710

MOV

11;;;1

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

5302
01 3

‘0

§3

1577,

157
157

15776

R2,
CONT

18:

CONST ,R2

2%:
016024

27 016024
1 ;
7

INTRTN: MOV
CLR

16024

016026

003720

CLR

MoV

-(SP)

::CLEAR LOCATION

CONT1

::CLEAR LOCATION

;:TIME CONSTANT

ST
BNE

FLAG. 2
3

BNE

*:BRANCH IF NOT ZERO

TM
BNE

CONT . #3720
1$

::2000 DECIMAL
$:BRANCH IF NOT EQUAL
£
*ANOTHER COUNTE:

DEC

INC

CLR

INC

CONT

CONT1

::1S INTERRUPT OCCURED?
$:YES,EXIT

; sDECREMENT COUNT

MAIN,

MACYTT

CZKWLA.P1T
11

(1052)

1?)‘4\“-& 07:39
3737

1; 81&8 831;23

1
14
15
19

}

01%1
81

160,

17737
1
;

18 016024 000000
016026

0160

1;—”-80

000000

016026

006044

07:40

READ TIME OF THE (LOCK

016030

024120

PAGE &

SEQ 0056

BNE

CONTT_ TIMES

;;DESIRE TIME EXPIRED?

48:

MOV
MOV

a(SR,
(SP)+,

;s INTERRUPT FAIL TO OCCUR
;.
IF FLAG.2=0
::STATUS OF CSR
- ;RECOVER R2

CONT:

CONTT:

TIMES:

RTS
O

A(SR
R2

JMAIN,

MACYTT 30A(1052)

CZKWLA.P11

13-MAR-B0

13-MAR-80 07:39

07:40

2025

53 0

;THIS IS WAIT ROUTINE

016032
016036

010246
005037

016102

0160640 013702 024054

2o§ 016044 005302
58
016046 001376
5

016050

016054

3;37

023727

016102

O}g}oz

0 g 016112

100016

ocsm

16124
0161

4
5

12134
} }22

117746

16132

~(SP)

18:

MOV

CONST.

2s:

DEC
BNE

R2
28

CONT2,

CLR

CONT2

grs

INC

BNE

JMP

n;sm
5‘

(SP)+

.-.-,1'3 g CONTROL G?

-(SP)
=(SP)

;;SAVE R
$:SAVE R
i

2s:

1812
161
161

10246
1
1

;s
ggw

DELAY:

18:

2%:

001

1260

13777

1622

1
10224

1774

GTSWR

005656

(SP)+

MOV
MOV
MOV

ng.
R3,
o,

DEC
BNE

R2
2%

MOV

2:1S THERE A CHARACTER?

#AC177, (SP)

RTS

::STRIP OFF THE ASCII

::1S IT CONTROL C?
SINO: EXIT

$:GET CONSTANT

DEC
BNE
MOV

R3
13
(SP)+,

::
3:
: :RESTORE ggclsrsn

RTS

MOV

8IT

#MiTi4, aCSR

RTS
0000

(SP)+,

A SECOND

WAIT2:

@RG4

TONT:

::STORE CHAR ON STACK

;THIS ROUTINE WAITS FOR

777 oaoogo 005642 1%:

::NO: DON'T WAIT

CONST, R2

MOV
016224

::EXIT FROM SUB ROUTINE

(SP)

5726

#3,
13

3
;:LOOP BACK IF TIME QUANTOM NOT EXPIRED
::RECOVER R2

::G0 BACK IF NOT 1 SEC

P
BNE

3 01615

1217
1612¢
16176

::EQUIVALENT TO 2000

~-(SP)

BIC

;

CONT3
18
(SP)+,

#3720

aSTkB,

177600

834:0:24

: :DECREMENT CONST
::L00P BACK TILL ZERO

MOVB

163026

713 000003

CONT2

::GET CONSTANT FOR 0.SMSECOND

a$TKS

BPL

? 12148 ] 409

CONT2

CNTLC: TSTB

161
161

DEC
BNE
MOV

137 003530
’&2)? 000007

131

CLR

CONT3: O

049 016103 105777 163032
g

R2,

161

MOV

016102

2 816104 8888%
16114

WAIT-

003720

38
016070 885 7 016104
29 016074
001361
2040 01607 83860

%&1

SEQ 0057

gg ?

PAGE 5

READ TIME OF THE CLOCK

BEQ

TCNT,

2 2COUNT DOWN
;:BRANCH IF NOT ZERO YET

: ;RESTORE

2 ;RETURN

;2SET COUNTER TO WAIT

Z:1S BIT14 SET?

;:NO:BR

::DESIRED TIME EXPIRED RETURN

052)

13-“—80

07:40 PAGE 5-1
READ TIME OF THE CiOCK
sTHIS ROUTINE WAITS FOR HOLD BIT TO RESET IN TIME(3 SECOND)

s IN MAIN ROUTINE IN ANY CASE
MOV

1%:

BIT

3%:
CONT4:
CONTS:

CLR

R2.

CONTS

aCSR

2:1S (HOLD BIT) RESET?

CONST,

> sCONSTANT FOR 0.SSEC

MOV

CONT4

CONT4,

CLR
INC

CONTS
CONTS

(0, '
BNE
MOV
RTS

-(SP)

#BIT0,

BEQ

BNE

000005

h D ——

CLR

INC

003720

NN uvm-oooav\nmbw—-OSO\lgm

WAIT1:

2%:

CONTS,
1%
(SP)+,

#3720

#5
R2

ssRETURN IF SET

- sDECREMENT CONST UNTIL 0.5 SECOND
2sGET COUNTER FOR NUMBR OF 0.5 SEC

2 sEQUIVALENT TO 1 SECOND

;sBRANCH IF SET

;s INITIALIZE COUNTER
- sCOUNT NO OF SEC

;IS IT S SECOND YET?
;2BRANCH IF NOT 3 SEC YET?
; ;RECOVER R2

O
©

*THIS ROUTINE GETS CONTROL WHEN READY BIT FAILS TO SET.

:IN THIS ROUTINE VALID VALUES OF MONTH+DAY AND
:u?t'fgwrs IS SET WHICH SUPPOSE TO SET READY BIT

*1F READY BIT FAILS TO SET PROGRAM HALTS.

o e

020000

3 §2i2to
14

G8 g i
%
i
§%
Je0 1o
37 82210

d eh eond et mh et nd

il o

aih

66?3

005530

005522

7;7

5476
5472

GET1:

GET2:

B8R

GET4

MOV
JSR

#17073, RGO
PC,
RDYBIT

::SET YEAR
:CFEC FOR READY BIT SET

BEOQ

GET4

:;EXIT IF SET

MOV
JSR

#17073. aRGO
PC,
RDYBIT

;SET YEAR
:CHECK FOR READY BIT SET

BNE
MOV
MOV
JSR

GET
#BIT15, (SR
#4501,
aRGO
PC,
RDYBIT

; ;BRANCH IF READY BIT NOT SET
$ISET (ST) TIME
:2SET 1=JANUARY IN RGO
:CHECK FOR READY BIT SET

BNE

GET3

MOV

MOV
TST

005422
005416

s:15 'MW BIT SET?

GET1
#0,
PC,

1ST

005450
005444

#BIT13, aCSR

BEQ
MOV
JSR
TST
BNE

fh g
s
6460 012777 100000
005374

GETRDY: BIT

NN 3 8

—

032777

RN
SRR

b e o

OTM

s nd

)

D o

OOOOO
O

ok —d

*IF READY BIT SETS PROGRAM GOES TO CALLER.
[eolelelelelelelelelelelelalelelelelelelolelela)

e
i
D
)
D o,

NUNUNUNUNY

D e B ol el oy, e el e e
) el i

i o,

NMORONY NONUNUNY

s el v,

SEQ 0058

;THIS ROUTINE GETS CONTROL FROM MAIN ROUTINE AND EXITS

NUNURUNUNUNLNUNUNG
NN TUNONUNY

SRS R PSR RBLRARERY
S

MAIN, MCV"
CZKWLA. P11

TST

MOV

FLAG.1
GET1

aRGO
RDYBIT

#BIT15+81T714,aCSR
FLAG.1

MIT14, aCSR
FLAg.l

;;BRANCH IF CLEAR
:;SET READY BIT
sCHECK FOR READY BIT SET

;1S FLAG SET?
:;TRY OTHER WAY TO SET RDYBIT

;;EXIT IF READY BIT IS _SET

;;SET BIT15 AND BIT14 TO GET RDYBIT SET

;1S FLAG SET?

;;SET VALID YEAR

IS FLAG SET?

FLAG.1

;1S FLAG SET?

#BIT1S, a(SR

s:SET TIME (BIT15) IN CSR TO SET

:;BRANCH TO HALT IF RDY DIDN'T SET

MAIN. MACY11 30AC1052) 13-MAR-80 07:40 PAGE 5-2
CZKWLA.P11
13-MAR-80 07:39
READ TIME OF THE CLOCK
2133

213
016466 012777 000000 005372
2135 016476 004737 017000

MOV
JSR

#0.
PC.

136

016506

001405

BEQ

GET4

1;3

016514

104002

5}2?

01652C

000207

016522

004737

(1)

137

2139

s
144

145
146
147

3}23
150

151

15;
};‘

016500

016506

016516

016526
016532
016540
016546

016550

816552

16554
016556

005737

024210

017737

005350

001122

000000

010437
017737
017737
000207

GET3:
GET4:

ERROR+2

HALT
RTS

016152

016554
005332
005316

MOV

GETTIM: JSR

MOV
MOV
MOV

016550
001122

000000

RTS

FLAG.1

aCSR,

‘

SEQ 0059
s sHOUR;MINUTE

@RG2
RDYBIT

::0 HOUR+0 MINUTE
;CHECK FOR READY BIT SET
*IS FLAG SET?

*;BRANCH TO RETURN

BADA

Z:GET STATUS OF CSR

::HARD ERROR: READY BIT FAIL TO SET

PC.

R4,
@RG4,
aCSR,
PC

;sRETURN TO CALLER

DELAY

;;WAIT FOR A WHILE

PRESEC
SECOND
BADA

::PREVIOUS SECOND
::READ CURRENT VALUE OF SECOND
::READ STATUS OF CSR

SECOND: 00

000000

DELTAT: 00

000000
000000

PRESEC: 00
PREDLT: 00

155
159

5
:THIS ROUTINE WILL CAUSE 'M' BIT TO SET

%23

; VALUE

15
158

;1T WILL PRINT ERROR IF 'M' BIT OR/AND (DIE)
:BIT DIDN'T SET IN CSR WHILE SETTING PRESET

161 016560
usi
16594

005977 005276
012777
005272

(1)
(1)
(1)
164
165

01
01
12212
016614
01

004737
2777
77;
737
9

167

163

169
1

0165

1
1
01

(1)

1
1
(1

171
wi

O
1

174
175

016
016

17
(1)

12716
0162,

173

179
N

(1)
2178

012737 o: 797C97c 024052

01662

7
737
737

77,

737

o;;

017206
100000

005250

024210
020000
5224

105 ;
077
m

005232

ooszgz
024052

005176

024210

005160

16710

S 77

005152

016

005124

0167
016740

737
737
77;
73

024052

INIPRE: CLR
MOV

MOV

aCSR
#0

RGO

#77777 ,COUNTR

JSR
BIT
BEQ
ST
BNE

PC,
DMT
#BIT15,aCSR
=12
FLAG.1
13

BNE

8IT

CLR

#BIT13, aCSR
aCSR

MOV
MOV
JSR

no;g 5,3RG2
#77777
,COUNTR
PC,
DMT

BEQ

.~12

BIT

ST
BNE

BIT

BNE
CLR

#BIT15,3CSR
FLAG.1
18

#8I1T13, 3CSR

2%
aCSR

MOV

BIT

#BIT15.3CSR

MOV
JSR
BEQ
ST

@RG4

:;CLEAR CSR
;:PRESET MONTH+DAY

::DELAY LOOP SETUP

::DEAD MAN TIMER ROUT INE
::1S DE BIT SET
::TRY AGAIN
*:1S (DE) BIT SET IN CSR?
:;BRANCH IF NOT SET
::1S "M* BIT SET IN CSR?

::BRANCH IF SET

2:CLEAR CSR

2:PRESET HOUR+MIN
;:DELAY LOOP SETUP
::DEAD MAN TIMER ROUTINE

::1S DE BIT SET

;;TRY AGAIN

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

::IS 'M' BIT SET?

S:EXIT IF SET
::CLEAR CSR

Z:PRESET SECOND

#77777.COUNTR
PC,
DMT

::DELAY LOOP SETUP
Z:DEAD MAN TIMER ROUT INE

~12
FLAG.1

Z:TRY AGAIN
S:1S (DE) SET?

Z:1S DE BIT SET

“

]

052)

MAIN,
m(vfl
CZKWLA.P11
179
180

16744

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

BNE

020000

005106

005100

001122

18:

MOy

000000

005064

2s:

MOV
RTS

BIT

BNE

SEQ 0060

::BRANCH IF NOT

ssBRANCH IF SET

#MIT13, aCSR

SIIS "M BIT SET?

(SR,

BADA

SIREAD STATUS OF CSR

#0,
PC

2CSR

::CLEAR CSR
SIEXIT

moso

SI'M'BIT OR (DE) BIT FAIL TO SET

—_

057770 024052 18:

MOV

#77777. COUNTR

::SET UP LOOP COUNTER

024052

BNE

DEC

;2BRANCH IF SET

RDYBIT: CLR

000200

000001

005042

024210

=2 N =2 N ==PNOND

NOO

—

nN
NI NW

OWNW
NN—-

g 8 §-8%~
cqgg;
3>
O

gestsIes
SSEERERR
~ ~J

———

[+ X

-k
ed d b

SNNNNNNYN

iS4
S G- PSS Gy

(olelelelelelelelelolalelelele]

et o

3 el

NWVNVB

SNINSNSNSNNNYN

jelelelelelelele]

*DEAD MAN TIMER

2%:

BIT

go‘v
RTS

RDYCK1: MOV

15
0241910
024052 3s:
77

1s:

057577
120200

2%:

COUNTR

1? °
PC

RG,

#5.

MOV
8IC
s

ac;g

MOV

::1S READY BIT SET IN CSR?

::DECREMENT LOOP COUNTER

ol
FLAG.1

i
""?E“r'
?fl(l;u : READY Y BIT NOT SET
SE
SIEXIT

-(SP)

; ;STORE R4

-(SP)
77, (SP)
MBIT1S+BITI13+4BIT7,(SP)+
2%

INC

RTS

MOV

ICSR

0%977 COUNTR

COUNTR
13
Ré
3s
FLAG.1

BNE

024210

#MIT7."

nc?x

BEQ
DEC
BNE
DEC

024052

FLAG.1

(SP)+,

::WAIT MORE
R4

RDYCK:

INSIYGR

s
e
B O

o
NO

1N~
) i LI b

NIERSEES

:1F READY BIT DIDN'T SET, FLAG.1 IS SET TO
: INDICATE READY BIT FAIL TO SET.

4 15
§;3 70 024052
714

077577

- - S-Sy
- -S
- Pu-h-- - S-SR

§
G
QYo
ar Guur o
oG
g
S
o

NNNNNNNNNNNNNY

;THIS ROUTINE WAITS FOR READY BIT TO SET

[slelelelslelelelelelelelela]

P O SRSy
FUKZEERVE
O RO SB
om Vo orrmm—0

b e e

e e

SRETSSERIRRRGS2

et —d

WRR

-a;_a_.-a

181

13—”-80

%
BIC
i,

100200

024052

000001

}2:

MOV
MOV
MOV
CLR

024210

BEQ
DEC
BNE
DEC
BNE
MOV

R&,
ng
"5,
FLAG.1

-(SP)
-(SP)
R3

L fi?"o
c%sh Ré
MITISBIT7,
3
COUNTR
2%
R3
13
o,

FLAG.1

SAVE Ré
,,SAVE R3
i

Ré

READ (SR

S
7

017200

07:40

012603

PAGE 5-4

MACYTT mosz)
13-MAR-B0
1
-80 07:39

MAIN,

CZKWLA.P11

READ TIME OF THE CLOCK
3s:

MoV

(SP)+,

017

01721

oosg 7 024052

017220

012737

017232

000207

1%:

010046

DEVCOD: MOV

RO,

-(SP)

;:SAVE RO

?10546

MOV

RS,

-(SP)

;:SAVE RS

017216 00

024210

000001

017226 062716 000010

01
81

04401
027306

0 7941

1
1
1

10440
104401
027350

1
1

412
;84

1
1

715

2
401

8 7967

1
1
1

73
41

1
1
1

3 63
1044
104401

1
1
1

1
1

10237
12777

(LR

FLAG.1

MOV

RTS

ADD

TYPE
DCMSG?
DCMSG2

024064

MOV

TYPOC
TYPE
DCMSGX

RDOCT

000000

210,

R2.
R4,

FfLAG.1

(SP)

-(SP)
-(SP)

;40%

1777

DC4:

024072

] 8§
464
01741 10237 83:100

Ré

#CSR

8IS

RS,

BNE
TYPE

DC4

BEQ
MOV
ADD

MOV

004472

pcs

MoV

DCMSGX
RDOCT
MOV

072
074

"7,

DCMSG3

MOV
MOV

A
MOV

32"

DEVICE ADDRESS(

;2STARTING ADDRESS OF DEVICE

)=""

J:TYPE' ="'

BIC

MoV
TYPOC
TYPE

000000

-(SP)

R4
TA

cTMwP

DCS:

RGO,

(SP)+,
#0

BIC

*SAVE R2
::SAVE Ré
;" ENTER VALUES AFTER(=) IS TYPED''

MOV
[V

BEQ

::RESTORE Ré&

COUNTR

TYPE

104412
1

DEC

MOV
MOV

104401

013 ag

BGT

024210

010246
010446

1
1

DMT :

RTS

::RESTORE R3

207

(SP)+,

017202

017204

MOV

SEQ 0061

#177770, (RS)

RS,

PCVO,

(SP)+,
#0,
DCé
PCVO,
2,

>
%,

<S
R2.

(RS5)+

#PCVO

~(SP)

R4
R4
R2
R2

;:GET OCTAL NUMBER

;:GET NUMBER FROM TOP OF THE STACK
::1S IT 'CR*?

::YES:BR

;CLEAR LAST THREE BITS

;:GET ADDRESS

;:CLEAR UNWANTED BITS
73

;:TYPE PC INTRPT VECTOR(
3

i3
;2READ VECTOR VALUE
£3
2218 1T 'CR*?

;2YES:BR
;;GET PREVIOUS ADDRESS
; :NEXT ADDRESS

aPCVvo

PSV1

3¢
32

PSVO
aPSv0

5.
35

JMAIN.

MACYTT

CZKWLA.P11
1

017416

017426
0174
0174

017442
0174

017454
017460
017493
0174
017476

017504

1&0&-80 07:39
(1052)

01&777

01 7;;
01

704

012777
7
010437
&S
7
010437
012777
027171
013704

17516

104402

17g

17
1;5 4
175
175

175

17
17
17
1754

1755
1755

07:40

010446

;

1
1
1
1

MOV

»e,

017556
000002

004434

MOV
ADD

#INTRPT ,aPCVD
»2,
R&

000340
000002

004424

017662
000002
024100
000340

004410

024076

MOV
MOV
ADD
MOV
MOV
ADD
MOV
MOV

004374

DC6:
024102

000000
DC7:

112

DCMSGX
RDOCT
MoV
e

(SP)+,
#0

R4
R4

:2
IS IT 'CR*?

MoV
MOV
MOV
MoV

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

BRLV
RS
R4
R2

22
2sRESTORE REGISTERS
i2
o

(SP),
aCSR,
#0

TEMP1
ACSR
aCSR

RS,

-(SP)

£Ys

2:RETURN ADDRESS
;:STORE CONTENT OF CSR
;sCLEAR CSR (DISABLE INTERRUPT)

MoV

ACSR,

BADA

18:

BIT
BNE

#100,
23

ACSR

2 sWAS INWTVEW.ED?
2 ;BRANCH %f
S

BIT
#100000,ACSR
BNE
3
ERROR+21

;:WAS (DE) BIT SET?
2 ;BRANCH IF Y;S
JUNEXP INTRPT AS (DE) BIT NOT SET

BEQ
43
P
2,
BEQ
43
ERROR+22
INC
FLAG.2

;:PRANCH IF YES
53
;:BRANCH IF YES
2 SUNEXP UNEXPLAINABLE INTRPT

5$:

026120

2%:

026226

3%:

1
1
1
1
1

024226
48:

17660

156
150

CLR

FLAG.2

ERROR+20
P

INTREG

RTI

;:CLR FLAG

2 sUNEXPECTED INTRPT AS (DIE) NOT SET

;218 1T UPDATE INT?

; ;RETURN

: TIME INTERVAL INTERRUPT ROUTINE

213
172

DC?

INTRPT: MOV
MOV
MOV

1
1
1

17737
005077

3
2 sNEXT ADDRESS
23
32
22
32
32

0264120

> sADDRESS OF INTERRUPT ROUTINE
-+ INCREMENT ADDRESS BY 2

(SP)+, RO
RTS
PC
;DATE + TIME INTERRUPT ROUTINE

17
}7

1
7

aPSV0
R4
R4,
PCV1
#TIMRTN,aPCV1
”2,
R&
R4,
PSV1
#PR7,
aPSW1

- sNEW ADDRESS

;:"BUS REQUEST LEVELC
23

MOV

4
7

#PR7,
”2,

Ré&

BGE

024102

024120
263

;

PCVO

TYPE

1
1

aPsv1

BRLV,

TYPOC

1;554
}
7

R4,

TYPE

DCMSGS
MoV

MoV

17662 &1)1

SEQ 0062

004454

104401

027350
5
12
1 ?04
04

PAGE 5-5

READ TIME OF THE CLOCK

0000046

024072

104401

8}7506
7510

017514

_13-MAR-B0

TIMRTN: MOV
001126

024120

CLR
MOV

MOV
CLR

(SP),

FLAG.2
aRG4,

a(SR,
aCSR

TEMP2

BAD

ACSR

;READ TIME INTERVAL

MAIN,
MCV‘II &“052)13—“-80
CZKWLA.P1

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

SEQ 0063

Ebca

u.oooorm
9- RGL

::CLEAR INTRPT ENABLE FLAG

18:

?.'}

::TIME INTRPT WAS ENABLED?

024120

2s:

ERROR+20
BIT
#40000, ACSR

: ;UNEXPECTED INTERRUPT
S:(TI) BIT SET IN CSR

024226

3s:

P
",
BEQ
43
ERROR+22

::FLAG FOR TIMEINTERVAL INTRP
S:BRANCH IF YES
:;UNEXPECTED INTERRUPT

040000
024212
0

024120

040000

000005

004150

BNE
3s
ERROR+23

48:

024212

'1{#

ACSR

;sBRANCH IF YES

INTREG

FLAG.2

::FLAG TO INDICATE INTERRUPTED

*TRAP ROUT INE

e [N

LASCIZ

<200>/UNEXPECTED TRAP TO VECTOR & FROM .

2s:

MOV
TYPOC

RO,

JWP

START

.EVEN

b d

::POP STACK INTO RO

-(SP)

::SAVE RO FOR TYPOUT
::GO TYPE OCTAL ASCII

END OF PASS ROUTINE
b d

A d

2L Edd

ddd dia

ittt

sttt l

ittt

itttz

TIT7Y

-mcmm THE PASS WR (SPASS)

;*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)
;*IF THERES A MIT(R GO 10 IT

) e

N SN

18:

.SBTTL

:«IF THERE ISN'T JUMP TO START

NN LN PN

(SP)+,

gpe

HALT

S S e

$EOP:

N
N
N
N

001214

INC
BIC
DEC

$EOPCT: .WORD

020165

STSTAM
STIMES

:.ZERO THE TEST NUMBER
2;ZERD THE NUMBER OF ITERATIONS

(PC)+

z;L00P?

SPASS
#100000, SPASS
1

IKREIENI THE PASS NUMBER
..D(N’T ALLOW A NEG. NUMBER

BGT
MoV

$DOAGN
(PC)+,a(PC)+

;2758
22RESTORE COUNTER

SEOPCT
TYPE

. SENDMG

;:TYPE

SENDCT: WORD

Nt
N

SCOPE

CLR
CLR

ol el

N PN PN TN
T

N LN

s el il i el ol ol e

MOV

001712

NN~

TRAPG:

“END PASS ¥

1&-& 07:39
(1052)

013746
106405
104401

013700

1 3-MAR-80

(07:40

020162
000042

SRS

WOown

—

§OBaw 4
8
W

D v
b
D ced wed el

$DOAGN:

377

062612
051501

000

042116
020123

PC.,(RO)

a(PC)+
START

s sRETURN

=1,-1.0
::NULL CHARACTER STRING
<15><i12>/EnD PASS #/

MC,MD,CND
TYPE ROUTINE

T
s o P~ P~ T~

SENULL: .BYTE
SENDMG: .ASCIZ

LNLIST
.SBTTL

D D e e el e e

N
i N
NP
e
N N

001157

STYPE:

806061 001226
000100
S

001227

TYPE

618

628:

2s:
608:

RTAARARR
AR R AR

,MESADR

;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

MESADR
TSTB

SIPFLG

8PL

;:1S THERE A TERMINAL?

&gr

S:BR IF YES

MOV
MOV
CMPB
BNE

RO,=(SP)
a2(sP) ,RO
MAPTENV.SENV
62%

::SAVE RO
::GET ADDRESS OF ASCIZ STRING
:-RUNNING IN APT
M(
*:ND,GO
CHECK FOR APT CONSOLE

BEQ

62%

2:NO,GD

BITB

001227

820472
000040

18:

AR AR AN

SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*CALL:
i#1) USING A TRAP INSTRUCTION
e

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

N N
Nt N

AR AR A A AR AR AR AT AR AR A AR AR RA

S %NOTES:

N N N
N
N
N
N N N N
N
N N
N
N
N

il il

EER

S#NOTE1:
S %NOTE2:

NN o, PN NN o

D el ol el e el e

N, TN NN
N

D il el o el

5N PN N

D i

N PN P

.WORD

LSENULL
62 RO
$DOAGN

2:SAVE SPASS FOR TYPEOUT
+-G0 TYPE-—-DECIMAL ASCII WITH SIGN
ssTYPE A NULL CHARACTER
2sGET MONITOR ADDRESS
;;BRANCH IF NO MONITOR
;s CLEAR THE WORLD
2:G0 TO MONITOR
- s SAVE ROOM
2:FOR
s:ACTN

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

s il ol ol il i e

PG PN P

JMP

SRTNAD:

$PASS ,-(SP)

SEQ 0064

s il

T~ N PP

PAGE 5-7

END OF PASS ROUTINE

MOV
TYPDS
TYPE
$GET42: MOV
BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP

001214

RORREN

MACYTT

[N} D

nanononN

e e v

N NN TN NN

—

3N N N N N N N N N N N N N N

N~ NN NN N~

JMAIN,

CZKWLA.PI1

MOV

WAPTSPOOL,SENVM ::SPOOL ME

RO,618

Jf&o 5"“"3

BITB

BNE

MOVB
BNE
ST
MOV

"‘&HrsHERE IF NO TERMINAL

WAPTCSUP.SENVM

608

(RO)+,-(SP)
(s
(SP)+
(SP)+ R0

L:SETUP

70 APT

CK FOR CONSOLE

ADDRESS FOR APT

::EM:
”‘msgo
e
:-APT (
SUPPRESSED

2:YES,SKIP

YI;E ouT

::PUSH CHARACTER T0 BE TYPED ONTO STACK
SIBR IF IT ISN'T THE TERMINATOR
SUIF %smm\m POP IT OFF THE STACK
*“RESTORE RO

716

000002

3s:

000011

4%:

122716

000200

001
1

;

105
2

000001

78:

1 s; 7

020460

1237,
1
13746 001154

000770

ADD
RT1
g&s

#2.(S5P)
gT,(SP)

2 sADJUST RETURN PC
2 sRETURN
;sBRANCH IF <>

g(we

‘s'fi"'-‘-‘s"’

::BRANCH IF NOT <CRLF>

TYPE

5%:
68:

;

SEQ 0065|

020460
020414
1156

000

07:40 PAGE 5-8
TYPE ROUTINE

2
;8

SCRLF
CLRB
BR
JSR

038214

(SP)+

;:POP <CR><LF> EQUIV
ssTYPE A CR AND LF

CMPB
BNE
MOV

SCHARCNT
2%
PC.STYPEC
SFILLC.(SP)+

2%
SNULL ,~(SP)

:;CLEAR CHARACTER COUNT
::G0D TYPE THIS CHARACTER
::IS IT TIME FOR FILLER CHARS.?

DECB
BLT
JSR

1(SP)
6%
PC.STYPEC

::AND THE NULL CHAR.

::LOOP

DECB

22GET NEXT CHARACTER

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

::DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
2360 TYPE A NULL

SCHARCNT

::D0 NOT COUNT AS A COUNT

;HORIZONTAL TA8 PROCESSOR

0;70

REFRERSEENIRNS

112719

0937

132737

001; 2

8s:

020460

5726

160530

1 397

88880;

160522

000012

000002

" 7;7

112737

BNE

::TAB STOP

#7.SCHARCNT

020730

020726

22 LR

SATY3:

2(SP),asTPB

;;LOAD CHAR TO BE TYPED INTO DATA REG.

18
;crm’c‘m

::BRANCH IF NO
3 \Er’sg;-am CHARACTER COUNT

CMPB

#LF,2(SP)

:;1S CHARACTER A LINE FEED?

(PC)+
O
PC

2:COUNT THE CHARACTER
::CHARACTER COUNT STORAGE

BEQ

::GET NEXT CHARACTER
::WAIT UNTIL PRINTER IS READY

#CR.2(SP)

BNE
gim

$ATY1:

;:POP SPACE OFF STACK

2%
g;:esc

CMPB

INCB
SCHARCNT: .WORD
STYPEX: RTS

ity

MOVB

ittt

#1.$FFLG

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

MOV
MOV
001226

ISTB
BEQ
CMPB

aficnc

81
1 1&9

000001

::BRANCH IF YES

APT COMMUNICATIONS ROUTINE

#1.$FFLG

020726

::1S CHARACTER A CARRIAGE RETURN?

STYPEX

1 79 000001 020730 am: MOVB

105737
M§9
122737

::BRANCH IF NOT AT

(SP)+

MOVB

1$:

:;REPLACE TAB WITH SPACE

::TYPE A SPACE

BR
STYPEC: g{s

038002

,(SP)

PC.$TYPEC

BITB

020460
4

#°

JSR
TST

724
;77

MOVB

9s:

LSBTTL

PRI

N N NN N N NP NN NN N N NG NP N N N N N N e
N W N N

i N N N N T N il N N N N Nl N N N Nl Nt Nt Nl N N N N Nt B N

AaAA/\AAf\flh’\’\g/\fi’\f\flhfi’\fll\fifififi’\’\I\AAA'\I\’\A'\AAA’\AAAAAAAAAAAAA
it s e (PGNP e B s s s TN =
—‘d.—l—.-‘d—l—.d—.—l—l—ld—l—.d—.—.—l—l—l-‘—ld—l-flflfl—ld—d-—ld‘fl-—‘ddddd

MACY11 m()SZ)
13-MAR-80
1
~80 07:39
CZKWLA.P11
MAIN,

SMFLG
5%
#APTENV.SENYV

i 12 133222322282 222222222%2%3

::T0 REPORT FATAL ERROR

570 TYPE

A MESSAGE

::T0 ONLY REPORT FATAL ERROR

::PUSH RO ON STACK
S:PUSH R1 ON STACK

SISHOULD TYPE A MESSAGE?
:;IF NOT: BR
::OPERATING UNDER APT?

S2as
3
RE

%%&IW
gi‘.&'fi'fim
SINAY

000004

001222

/01224
0004

18:

177776
020202

—'\IVVL‘:&“

3s:
ls.::

020730
001226

000004

00?202

é(g)g g§

118:

001210

000004

128:

7
0726

SFFLG

SENV

TST

SMSGTYPE

BEQ

128

118
4 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE

CLRB
CLRB

SLFLG
SWLG

RTS

.BYTE

CLR8

.BYTE

$FFLG:

APTSIZE=

Nt N

#4.SMSGTYPE

BNE
MOV
ADD
INC

SLFLG:

.BYTE
VEN

APT

S$FFLG

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

;;IF NOT:

2:BUMP RETURN ADDR.
;-SEE IF DONE W/ LAST XMISSION?
;oIF NOT:

WAIT

2sPUT ADDR IN MAILBOX
;;FIND END OF MESSAGE
s:SUB START OF MESSAGE
;;GET MESSAGE LNGTH IN WORDS
- ;sPUT LENGTH IN MAILBOX
s;TELL APT TO TAKE MSG.

::PUT MSG ADDR grt.:nsz umégg

::PUSH 177796 ON STACK

::CALL TYPE MACRO

::SHOULD REPORT FATAL ERROR?
:;IF NOT: BR
::RUNNING UNDER APT?
::IF NOT: BR
; :FINISHED LAST MESSAGE?
S:IF NOT: WAIT

;2GET ERROR #

: :BUMP RETURN ADDR.

::TELL APT TO TAKE ERROR
“:CLEAR FATAL FLAG
::CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
*:POP STACK INTO R1
::sgP STACK INTO RO

;:FATAL FLAG

N
N

N =D

- N

APTSPOOL=100
APTCSUP=040
.SBTTL TTY INPUT ROUTINE

N =

AR AR AN AR A AR A AR AR A A AT AN AAARARARAAAAAAAARARAARAREARANAA
AN AN

s AR

LSB
A AR

A AR A AR AT T AR TR A AT AARAAAAARARACAAARASAAAAARARARAARAASY

s et et

s*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

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

Nt N
N

TSTB

BEQ

SMFLG:

.ENABL

34 (SP) 48
#2.4(SP)
177776,~(SP)
PC.STYPE

MOV
MOV

it i

MOV
ADD
MOV
JSR

.WORD

108:

001206

BNE
MOV
1STB
BNE
SUB
ASR
MOV
gv

SEQ 0066

3s
s:IF NOT:
BR
FAPTSPOOL,SENVM - 2SHOULD SPOOL MESSAGES?

3s
3% (SP)
RO
#2.4(SP)
SMSGTYPE
1s
RO, SMSGAD
(RO)+
2%
SMSGAD
RO
RO
RO, SMSGLGT

001206

oy PN
NN
N PN
Y PN
N TN

BNE
BITB
BEQ
MOV
ADD

2s:

020640
000004

APT COMMUNICATIONS ROUTINE

001222

NN — W—=W
NN N

JOoONNO

020630

mm. . »

N N
N
N Nl

0206

2
001206

PAGE 5-9

001227

N N N N N

g T

Nl N

N Nl Nl

T N

Nl N N

TN TN NN NN NN AN AN AN AN AN AN AN BN AN BN BN TN

NN AN N

.‘o.n

2060

ettty

COO0O0000000C0OOOTOVOOO0OOOODOOODOOO

(1)

000100

07: 40

056
0566
4’ 0
D57,
20576

DS60

N=2\UN=2
-2 N

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

020540

OOOMNINON WS NS N

8
2
g
4) 54

(1)

(1)
(1)
(1)

gE-a-a

02053%0

020

_13-MAR-80

~80 07:39

(1)

CZKWLA.P11

(1052)

-3

MACYTT

———

MAIN.,

000176

001140

: *WHEN OPERATING IN TTY FLAG MODE.

$CKSWR: CWP
BNE

#SWREG, SWR
158

;;1S THE SOFT-SWR SELECTED?
; zBRANCH IF NO

MAIN,

mcm

(1)

020742

(1)

750

CZKWLA.P11
1)

766

osz>

13—m-ao

105777

160176

117746

160172

100111

(1)
(1)
(1)

(5754 04%716 177600
020760 0O 7%6 000007
8 764
0011 ;

f};

001476

123

001134

(1)
(1)

020776
81002

104401
104401

021544
021551

(1)

0210146

1046401

021562

105777

160114

<5>
(2)

(1)
(1)

;96

1
0'181

013746
104402

0 1052 005046
0210
005946

07:40

PAGE 5-10

TTY INPUT ROUTINE
ISTB

a$TKS

MOVB

aSTKB,-(SP)

CMPE

SAUTOB.#!

BPL

BIC
P
BNE

000001

BEQ

TYPE
$GTSWR: TYPE

000176

198:

SISAVE THE CHAR

::STRIP-OFF THE ASCII
::IS IT A CONTROL G?
::NO, RETURN TO USER

158

;;BRANCH IF YES

,SCNTLG
.SMSWR

SWREG,~(SP)

CLR
CLR

<(SP)
~(SP)

BPL

,SMNEW

:;ECHO THE CONTROL-G (*G)
::TYPE CURRENT CONTENTS

::SAVE SWREG FOR TYPEQUT
::GO TYPE=~OCTAL ASCII(ALL DIGITS)
*:PROMPT FOR NEW SWR

:;CLEAR COUNTER
::THE NEW SWR

(1)

051032

021036

042716

177600

BIC

MOVB

@$TKB,-(SP)

::PICK UP CHAR

(1)
(1)

021042
8 1048

021627
081015

000003

P
BNE

(SP) . #3
9s

::1S IT A CONTROL-C?
::BRANCH IF NOT

8 1054

ADD

#6,SP

::CLEAN UP STACK

(1)
(1
g; ;

021
0518 0
021076

BNE
MOV
JWP

8s
#100,38TKS
RESTRT

<:BRANCH IF NO
:;ALLOW TTY KEYBOARD INTERRUPTS
:;CONTROL-C RESTART

9s:

(0, o
BNE

(SP) ,#25
108

;215 IT A CONTROL-U?
<:BRANCH IF NOT

ADD

'3;5”

m
(1)

(1)

021050

021

100375

1177646

104401

123727

1
853

;

137

160110

021532

ooooge

TYPE

001135

000001

000100
003530

160046

CMP8

8s:

(1)
(1)

021102
0211

000025

(1)

8 1114

000006

208:

(1)

021122

000015

108:

(1)

0en

000004

(1)

g};
(1)

(1)

(1)
(1)

0211

1120

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

0N
0en
021144
ngo
021154
02N
Qe

(1)
(1)
(1)

021124
01
01

(1)

(1)
(1)

(1)

1172

01
0211

Q2121

021537

157774
000001

000100

157752

000067

000060

BNE

1
001135
388‘013

TYPE

11$:

14$:

158%:

168:

a$TKS

::ARE WE RUNNING IN AUTO-MODE?

0 1°§3

021030

TSTB

*:IF NO, DON'T WAIT AROUND

#C177,(5P)
#7.(SP3+
15§

MOV
TYPOC
TYPE

::CHAR THERE?

(1)

78:

158

SEQ 0067

#°C177,(SP)
,SCNTLC

SINTAG.#

,SCNTLU

S:MAKE IT 7-BIT ASCII

::YES, ECHO CONTROL=C (“C)

:;REENABLE TTY KEYBOARD INTERRUPTS?

..ves ECHO CONTROL-U (*U)

eme PREVIOUS INPUT

SLET'S TRY IT AGAIN

(SP) ,#15

;218 IT A <CR>?

4(SP)

..ves IS IT THE FIRST CHAR?

168

SCRLF
igumn

JSR
I, )
BLT

PC,STYPEC
(SP) ,#60
188

BIC

#60. (SP)+

P
BGT

::IF NOT TRY AGAIN

BEQ
MOV
ADD
TYPE
CMPB
BNE
MOV
RTI

*:CHAR THERE?

11
2(SP) ,aSWR

#6,5P°

#100,387KS

(SP) . #67
188

: :BRANCH IF NO

wwcn IF YES
SAVE NEW SWR
::CLEM UP STACK
..ecno <CR> AND <LF>
i -em.e TTY KBD INTERRUPTS?
<:BRANCHIF NOT
2:RE-ENABLE TTY KBD INTERRUPTS

;

;RETURN

Z:ECHO CHAR
S:CHAR < 0?
*:BRANCH IF YES

S:CHAR > 72
S:BRANCH IF YES
S:STRIP-OFF ASCII

b wrh wed
b
e e

oosrsg 000002

TST

6 00140

006316
006%16
006316
005266

b v

jolelelelelelolelaTa]
NNNNINININNININ)

—b

07:40 PAGE 5-11
TTY INPUT ROUTINE

BEQ

40 056616 199776
44
46

7
104401

52 000720

001202

18%:

BR
TYPE

7%
SQUES

ssGET THE NEXT ONE
::TYPE 2<CR><LF>

.DSABL

LSB

BIS

-2(SP) . (SP)
208

S:SET IN NEW CHAR

::SIMULATE CONTROL-U

RDCHR

D e

OO0O0O0O00O0O0O000000000O00COT

011646
01

105999 1576?4

000002

117766

157650

000004

000004 000023

)

100;75

) e

8427

157622

117746

157616

627

000004

000140

627

000004

000175

000040

000004

;75

SRDCHR: MOV
MOV

1%:

000004

105777

D e

1 1;

177600

28:

)
e
e
s e
e
el
e o

MOVB

@STKB,4(SP)

“:READ THE TTY

cTMP

4(SP) ,#25%

::IS IT A CONTROL-S?

a$TKS

::WAIT FOR A CHARACTER

#AC<177>,4(SP)

BNE

BPL

8IC
CMP
BNE

#°C177,(SP) +
(SP) + .#21
2%

cMP

4(SP) ,#140

TSTB

BLT

::PUSH DOWN THE PC
S:SAVE THE PS

SWAIT FOR

BGT
'A §

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

a$TkS

MOVB

3$:

:;CHARACTER IS ON THE STACK

:;WITH PARITY BIT STRIPPED OFF

TSTB

BPL
BIC

0 5719 177600
.
000021
1
7

::INPUT A SINGLE CHARACTER FROM THE TTY

RETURN HERE

ol
N

el D e e e

Nl Nl N Nl N N Nl Nl il Nl A N

17%:

ASL
ASL
ASL
INC

S:BRANCH IF YES
SIND, SHIFT PRESENT
3
CHAR OVER TO MAKE
3> ROOM FOR NEW ONE.
::KEEP COUNT OF CHAR

Nt N

N N N N N

s TN i el ol e el el e e e e e e e e e

::1S THIS THE FIRST CHAR

178
(SP)
(SP)
(SP)
2(sP)

BIC
RTI

@STKB,-(SP)

::A CHARACTER

::GET RID OF JUNK IF ANY

:;BRANCH IF NO

;:L00P UNTIL ITS THERE

. ::GET CHARACTER

;:MAKE IT 7-BIT ASCII
::1S IT A CONTROL~Q?
;:1F NOT DISCARD IT

;:YES, RESUME

::1S IT UPPER CASE?

::BRANCH IF YES

2 2BRANCH IF YES

4(5P)
. m75

#40,4(SP)

::1S IT A SPECIAL CHAR?

2:MAKE IT UPPER C

;:G0 BACK TO USER

AR AR AR AN AR AN AN RAAAR AN ANANARAREAEARAERAIARANARAACANARANRRAAANS

s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

+=CALL:

1 ;lo'

703

410

10441

414

122713

N
N N N
N
N N

2(SP)

:-mf ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

s ol el ol ol el el et ol D ol
il

SEQ 0068

":ttttttfitttfittttttttttt'tQtt.tt'ttt'tttt'l't..'ttilttt!itt.‘til!

D D el ek d D e e T\

D
e
NP N N N N

) e

N N

oD o

N N

AAAA/\AAAAAAAAAAAAAAAAAA:\A’\A’\AAAA—\AAI\'\AAAA’\’\AAAAAAAAA-’\AA'\

Nt S

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

11391

1522
021532

RDLIN

RETURN HERE

SRDLIN: MOV

18:
28:

MOV
TM

BLOS

RDCHR

000003

MOVB

R3,-(SP)

#STTYIN,R3
#STTYIN8R3
.
48

(SP)+,(R3)

#3.RD

:;INPUT A STRING FROM THE TTY

::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

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

::SAVE R3

::GET ADDRESS
::BUFFER FULL?
::BR IF YES
2:G0D READ ONE CHARACTER FROM THE TTY
Z:GET CHARACTER
:2IS IT A CONTROL-C?

4
440

) wh o e o —

001005

e v

442

628

) celh o s v

4
454

460
464

) el

logs
4

104401
01 623
137

001202

4%:

11133
104;%1

0215%8
0%15

3s:

105063
106401

177777
001204

352 3
1342
12603
11646

) e el s

218

0412

1
0435

021522

~NO~
oo

005015

s TYPE A CONTROL-C (*O>
;sRESTORE R3
-:GOTO CONTROL-C RESTART

.SQUES

;sTYPE A *2°

MOVB
TYPE

#1S5.(R3)+
2%

MOV
MoV

(SP)+_R3
(SP) ,~-{(SP)

MoV

RT1
BYTE
BYTE
STTYIN: .BLKB

22IS IT A RUBOUT
::SKIP IF NOT

;:CLEAR THE BUFFER AND LOOP

(R3),9%
.9%

(MPB
BNE

MOV

-sBRANCH IF NC

LSONTLC
(SP)+ _R3
RESTRT

CLRB
TYPE

000004

108

#2177 . (R
3s

TYPE

000002

SEQ 0069

P8
BNE

9%:

;

;;CHECK FOR RETURN
. 2:LO00P IF NOT RETURN

=-1{R3)
JSLF

&(SP) ,2(SP)

i ;2CLEAR RETURN (THE 15
. ssTYPE A LINE FEED

2 2RESTORE R3
. 2sADJUST THE STACK AND PUT ADDRESS OF THE

#STTYIN,4(SP)

O
O
8.

;sECHO THE CHARACTER

B 5

FIRST ASCII CHARACTER ON IT

s ;RETURN
;:STORAGE FOR ASCII CHAR. TO TYPE
- s TERMINATOR
2RESERVE 8 BYTES FOR TTY INPUT

000 SCNTLC: .ASCIZ /*C/<15><12> - ;:CONTROL ‘C'*

88?525
015
51412 5

000012

042516

01
36440
§0040

TYPE
MOV
JMP

888

e
il e

— e ed e el e

5
544
21

003530

00075

BNE

021532

108:

g 1

71%
100

07:40 PAGE 5-12
TTY INPUT ROUTINE

000177

47
5

051127

SCNTLU: .ASCIZ
SCNTLG: .ASCIZ
SMSWR:
L_ASCIZ

/7*U/<15><12>
;s CONTROL 'U'"
/*G/<15><12>
;:CONTROL 'G
<15><12>/SWR = /

020127

SMNEW:

.ASCIZ

.EVEN
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

1574

SRR

A AR A A AR AR

NEW
= /

AN AR

AN AR AR

RAAR R RN

A RN RN AR ARARA

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE IT TO BINARY.

s«CALL:

11646

01
10046
10146
10246
104411
01

612
614
61

el et

et tiis

onds

D e

it o

6
6
6

000000V O0VO0OOOOOOVOOOOOOOOOO

EE
vvvvvvvvvvvvvvvvvvvvvvv\rvuvvvvvvvvvvvvvvvvvvvvvvvvvw\ovvv

4
4
4

NINLNLNININININLNLNINI
PRI NONINNONORORONO RO RO

l\—-\l\f\f\'\—\AA/\A'\A;\AAAI\AAAAA’\AAAAAA
—l-‘-—l-l—l—-l—l_l—l..j—-l—-l—l—.—.—l—l-‘—l—‘—l_‘—d-‘—l-‘—l-‘—.d
Y TN PN

N B

N B~~~

YD D B —d e —D s _a_aT\) —

N SN,
N S

) o e e \ PP
D

Ny TN PN, PN

et el

s ot o

TN TN

\ak MOSZ)
13-MAR-80
1
-80 07:39

000004

000002

}82
1

RETURN MERE

SRDOCT: MOV

18:

RDOCT

MOV
MOV
MOV
MOV
RDL IN
MOV
Et:

2s:

MOVB

(SP) ,~(SP)

4(SP) ,2(SP)
RO.-(S$P)
R1.~(SP)
R2.~-(SP)

(SP)+,RO

(RO)+.~(SP)

BEQ

ROL
ASL
ROL

R2
R1
RZ

ASL

::READ AN OCTAL NUMBER

;;LOW ORDER BITS ARE ON TOP OF THE STACK
::HIGH ORDER BITS ARE IN S$HIOCT

::PROVIDE SPACE FOR THE
S INPUT
R
::PUSH RO ON STACK
::PUSH R1 ON STACK

::PUSH R2 ON STACK
Z:READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER
;:CLEAR DATA WORD

;;PICKUP THIS CHARACTER

::IF ZERO GET OUT

292

1:%
;:*B

1&“-& 07:
(1052)

38RERTIELE
N
N

N
N
N N
N
N

3s:

RT!

W~ S~ P~ o~

ENENENEEN

TN i

A A AR

;:STRIP THE ASCII JUNK
;;ADD IN THIS DIGIT
;;L00P
s :CLEAN TERMINATOR FROM STACK
ssSAVE THE RESULT

;;POP STACK INTO R2
;;POP STACK INTO R1
;:POP STACK INTO RO
2sRETURN

A AR A AR AR A AR RAA AR AR

MOV

NUM,-(SP)

J®
i

BYTE
BYTE

N
M

PN NN

TYPOS

AR AR R

R RR

::NUMBER TO BE TYPED

;:CALL FOR TYPEOUT

;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
2M=10R 0
;:1=TYPE LEADING ZEROS

;;0=SUPPRESS LEADING ZEROS

; *STYPON---~ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR STYPOC
s*CALL:

it
N

MOV

TYPON

NUM,~-(SP)

;sNUMBER TO BE TYPED

;:CALL FOR TYPEOUT

:'EH{OC-—ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

—

EQNN

ONONONNIN

.mzoo
~ ~J

TYPOC

MOoVB
MOVB

$TYPOC: MOVB
MOVB
S$TYPON: MOVB

MOV

1%:

NUM.-(SP)

;

a8(SP) ,-(SP)

;;NUMBER TO BE TYPED

2;CALL FOR TYPECUT
2:PICKUP THE MODE

1(5P) ,SOF ILL
(SP)+,S0MODE+1

;2LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE

#1,80F ILL
:g.smn

;:SET THE ZERO FILL SWITCH
2;SET FOR SIX(6) PRIGITS

R3.-(SP)

::SAVE

:2. (SP)

- SOCNT

*:ADJUST RETURN ADDRESS

;:SET THE

ITERATION COUNT

MOV
MOV

R&.~(SP)
RS,-(SP)

;:SAVE R4
;:SAVE RS

ADD
MOVB
MOVB
MOV

#6.R4
R4, SOMODE
SOFILL RS
12(SP) .RS

;2SUBTRACT IT FOR MAX. ALLOWED
;2SAVE IT FOR USE
;2GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUPBER

g%fi

oot o
i o

MOV

$TYPOS: MOV

e h o

o®

el oosd o

N
N N
il N N

NN AN o, TN

R2
#°C7.(SP)
(SP)+ R1
2%
{SP)+
R1,12(SP)
R2,SHIOCY
(SP)+_R2
(SP)+_R1
(SP)+ RO

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

. Nt Nt

N, NN

N N N Nk Nl Nt

NN AN SN TN

ROL
BIC
ADD
B8R
7ST
MOV
MoV
MOV
MOV
MOV

SEQ 0070

:'%HTOS“-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

NN LN, PN TN

READ AN OCTAL NUMBER FROM THE TTY

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6=-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT.

it N N
N

PAGE 5-13

AR AR AR A A AR AR AR AR

Nt Nt Nt N N

TSN
SN N, N A, NN SN

07:40

-n.a_..-a-a-na:_a-n-n_.
2}’0\
~N
&N N

NN AN = e v v

PN NN NN N NN

jolelelelelelelelelale] o

Nt N ~

CZKWLA.P11

1 3-MAR-B0

(LR
ROL

W*I.M

R
RS

;;GET THE NUMBER OF DIGITS 7O TYPE

::CLEAR THE OUTPUT WORD
;;ROTATE MSB INTD °TC

JMAIN.
MACYTT 30A(1052)
13;“-80
C7%A.P11
13-MAR-80 07:3

(1)
(1)
1
(1)
(1)
1)
1)
(1)
(1)
(1)
(1)
(1)
1
1y
(1)

000404
006105
006105
006105
010503
ogg1 3
105337 022122
103912
0462703 177770
001002
005704
001403

0
0

0 5 og 000060
05 72 000040

106401

(1)

0
0
0
0

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

1)
1)

110337

(1)
(1)

2%&;;

022116

RS.R3Z
R3

:2GET LSB OF THIS DIGIT

8PL
BIC
BNE
ST
BEQ

78
#177770.R3
(s
R&
5%

*:BR IF NO
*IGET RID OF JUNK
Z:TEST FOR O
*ISUPPRESS THIS 0?
1IBR IF YES

BIS
BIS

#°0,R3
# R3

*IMAKE THIS DIGIT ASCII
“IMAKE ASCII IF NOT ALREADY

TYPE

.88

*:GO TYPE THIS DIGIT

012605

68:
000002 000004
,

8s:

888

000
000000

38:

MOy
ROL

7%:

000002
000

(1)
(1)

::G0 DO MSB
*1FORM THIS DIGIT

105337 022120
003347
§402
;oa
812604
12603
016666
012616

3s
RS
RS

5%:

000744

0
0
0
0

B8R
ROL
ROL

48:

022116

DECB

INC

MOVB

DECB
8GT
BLT
INC
B8R

MOV

MOV
MOV
MOV
MOV

RTI
.BYTE

R3,8S

*ITYPE THIS DIGIT?

*:DON'T SUPPRESS ANYMORE 0'S

“:SAVE FOR TYPING

$OCNT
2s
68
R%

*>COUNT BY 1
*:BR IF MORE TO DO
*:BR IF DONE
S:INSURE LAST DIGIT ISN'T A BLANK

(SP)+,RS

:*RESTORE RS

(SP) +.R&
(SP)+.R3
2(SP) .4 (SP)
(SP)+. (SP)

*:G0 DO THE LAST DIGIT

*:RESTORE R&
**RESTORE R3
2:SET THE STACK FOR RETURNING

: sRETURN
::STORAGE FOR ASCII DIGIT

SOCNT:

BYIE
.BYTE

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

M 5 LA A

SOMODE

SOFILL: .BYTE
SOMODE: .WORD

(2)

SEQ 0071

2s:

ROL

ogs;oa

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

G 6
07:40 PAGE 5-14
BINARY T0 OCTAL (ASCII) AND TYPE

il i s

0
0

at e it el

*:TERMINATOR FOR TYPE ROUTINE
*:0CTAL DIGIT COUNTER

::2ERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE

I I

2222222322222 22222%%

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

(1)
(1)
(1)

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

(1)

g ;))

::gg&Aceo WITH SPACES.

f};

(1)

(3)
(3)
(3)
(3)

)
M)

M
M

(1)

2w
022124

126
126
1
1

010046
010146
81 %6
10346

146
150

1
005405

$TYPDS:

8 8 §}g7 & 020200
%2 0 ‘? 000020
022152

112766

000055

MOV

NUM, - (SP)

::PUT THE BINARY NUMBER ON THE STACK

MOV
MOV
MOV
MOV

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

::PUSH RO ON STACK
2:PUSH R1 ON STACK
“:PUSH R2 ON STACK
*:PUSH R3 ON STACK

BPL
NEG

13
RS

TYPDS

MY
MOV

000001

MOVB

B0300 sP)
20(SP) .RS
#'-,1(SP)

;:G0 TO THE ROUTINE

TR SUTER M SIov
S:GET THE INPUT NUMBER

*:BR IF INPUT IS POS.
“IMAKE THE BINARY NUMBER POS.
SIMAKE THE ASCII NMUMBER NEG.

MAIN,
MACYTT 30A01052) l%-flAR-SO
CIKWLA.P11T
13-MAR-80

M
(1)

oosggo
01
g 022740

18:

005002

2%:

016001 022330
160105

002402

(1)
(1)
(1)

;(7)2
000774
060105

001902

(1
(1)

(1)

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

000040

005702

316

(1)
(1)
(1)

000001
000060
000040

4$:

INC
BR
ADD

BLT

(1)

(1)
(1)
(1)

BCC
MOVB
BIS
BIS

68
1(SP),-1(R3)
#'0.R2
# .R2

“:BR IF NO
::YES==SET THE SIGN
:SMAKE THE BCD DIGIT ASCII
“MAKE IT A SPACE IF NOT ALREADY A DIGIT

ST
P
BLT

(RO) +
RO.#10
28

::JUST INCREMENT
ING
::CHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT

*:BR IF NO

CLRB

(R®)

(SP)+

::YES==-SET THE SIGN FOR TYPING

MOV
MOV
MOV
MOV
MOV

(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.RO

::POP STACK INTO R
::POP STACK INTO R
::POP STACK INTO R2
;:POP STACK INTO R1
::POP STACK INTO RO

MOV

2(SP) .4 (SP)

$:ADJUST THE STACK

RT]
10000.
1000.

10.

$DBLK

(SP)+. (SP)

N
o

)

N
N
N
N
N
N
N
N

JSR

RETURN

:NOW TYPE THE NUMBER

;;RETURN TO USER

AR AR I AT AR RARANAARACANAAR AN ANARNANAAAN

RN S

PC,$SIZE

-SLSTAD WILL CONTAIN:

s*CALL:

::WAS THE LSD THE FIRST NON-ZERO?

=1(SP),-2(R3)

AR A AR A AN

2:G0 TO EXIT

BPL

MOV

*:PUT THIS CHARACTER IN THE OUTPUT BUFFER

S:GET THE LSD
::GO_CHANGE TO ASCII

TYPE

$DBLK :

R2,(R3)+

1IMSD?

RS.R2
33

MOVB

$DTBL:

(SP)

ISTB

022340

::STILL DOING LEADING 0°S?

p—~ T~~~

;:BR IF YES

(SP)

ROUTINE TO SIZE MEMORY

i il it i

o~~~

MOV
B8R

000002

;:BR IF DONE

BMI

MOVB

9%:

2 INCREASE THE BCD DIGIT BY 1

.SBTTL

il il

——~—

177777

R2
3s
R1.RS

(1)

::GET THE CONSTANT
*IFORM THIS BCD DIGIT

ASLB

8s:

SDTBL(RO) ,R1
R1.RS

BGT

(1)

ZISET THE FIRST CHARACTER TO A BLANK

::ADD BACK THE CONSTANT
<:CHECK IF BCD DIGIT=0
*:FALL THROUGH IF 0

68:
78:

#° _(R$)+

A 3

BNE

000010

(1)

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

;:CLEAR THE BCD NUMBER

38:

(1)

MOV
SUB

(1)
(1)
(1)

CLR

ISTB

100407

(1)

::ZERD THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

MOVB

105716

RO
#$DBLK R3

(1)
1)

11272%

SEQ 0072

CLR
MOV

07:40 PAGE 5-15
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

WITH KT11

non

WITHOUT KT11 OPTION

== LAST VIRTUAL ADDRESS OF THE LAST BANK

== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
:x$KT11 IS THE MEMORY MANAGEMENT KEY

;+BIT07 = 0 DON'T USE MEMORY MANAGEMENT

MAIN.

MACYTT 20A(1052)

CZKWLA.P11

i_i3-MAR-80

-80 07:39

13-MAR

07:40
s
ROU

‘o

(2)

022372

t* CALL NT OPTION

;sxze-T MOMoVV

010146

MoV
MOV

é; 055200 181 2 005776

)
A

104400

12637

000006

(1)

(1;

gi;

fl; 8
(1)

(’ngr7%7 02
1725
7550
72 000004
40
10

1 ;8 00994:06 177740 1$:
}
2

89;2(1)‘7’ eo77ms60id0
7‘%

a
(M
(1

1}”;

(1)
(1

1¢7

177572

|
7

::SAVE

)

(1;

;%a 177776
1 ;01 004000
163705
000040
0}
600006

013637 00000

STACK

THE PRESENT PS

FiSET W#& MEMORY MANAGEMENT

.WORD

R
PRTNEX,MIERRVEC:*B”2
S€1IF FOR TIEQUT
aw
sRo
i .-.l;gl_g‘g {‘,‘,’,’E’F'
B

g
To
otF

MoV

MOV

’gg

28:

B8R
7

:3
A
: SETUP

Y MANAGEMENT?

K E PAR'* LOADING

;S
;MOR2
#°D8
R3

:;7:?06(R,-2)40+(R2)
Rim {SP)

Eiii%gfi FB'SA' R
AND EIGHT *POR.'S"
L

READ/WRI TE

PAfi‘ NEXT *P

,,%T&;fi

#20¥SR3

ALL E]@fl ME
LOADED

3
mp
xs,éflms A SR3 ng'x‘.;nsn

,zsSF

ERRVEC

13Pye.

CATC

(5P}
e

T1MEw

MODE

"cww OFF THE
STACK—-NO
S

FKTOUT QMERRVEC :(SET FOR TIME OUT
.
’
J:MAKE
1K ST
”m

4S:N

s ).R2

B8R

Mo
T

BPrem

=
$CROUT: SUB
X: SU
SSIZEX: SUBB
m

$IGET LAST BANK+1

*
2 TURN OFF MEMORY
MANAGEME

ggnb

EX
3600 fxpex: lc $SI#1Z00
000.81
Scone:

TACK

w377

TENT
11 :;SET FOR TIMEOU
T

)

THE

SPeRoO ") SAVE THE STACK POINTER

TST8 5';3”

$KTouT: MOV

000002

R3 ON

MOV

CLR

%7 02
1725
7547 00000

R2.-(SP

ik
-(R2) it SRS S P 12
T IF NO

i 9” 885(5)06 ?09.2‘132

1737

T11:

giéi i
dic
1723
!

SI::SASAVEVE RR2 ONON THTHEE STSTACACK
m'.-((SsPP);
K
%;ggé " ~(SP) ::SAVE PRESENT ERROR VE
CTOR PS &
i
o

0
3
(1

SEQ 0073

ST E.?%figv

(0 osgses §}§;22 800606
(1)

TO SIZE MEMORY

IS s o i

8; 022350 010046
) 022354 010522
1
022352

P,PAGE 5-16

TINE

;:KT11

NON-EXIS

sISET P BAK
: INCREMENT Y

SILAST

ONE
BT
:iNO==TRY AGAIN
uoooéR1
: :DROP BACK
#40 R
E STA(CK
AP <TOREN TH3

{SP)+ . S#ERRVEC

MACYTT

QOOO0O00O

0226
0226
640
642
644

6
652

1;9'“““

052)

010137
010237
01 5603
012602
012601
0 60(7)

13-%-80

07:40 PAGE 5-17
ROUTINE TG SIZE MEMORY

022652
022654

MoV
MOV
MOV
MOV
MOV
MOV
TS

Nl " Nt "

s=CALL
H

NWVINTNINNN=NNNWVININNY

SR
dW\lb

2228

—

1%:

:sRESTORE R2

2sRESTORE R1
;RESTORE RO

AN AN A AR A AR

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

AT A AN A AN AR AN R AR AR R

RN R AR R AR AR R

CKSWR
MOVB

STSTNM,TSTNUM

:SET UP TEST # ON ERROR

$ERTTL

INCB

8EQ
MOV
BIT
BEQ

TYPE

INC

MOV
SUB

BIT
BNE

-—-NN

P
BHI

:?;ésem
RRPC,S1TEMB

T13,35WR

(g) M002

£55SR8

THE NUMBER
OF ERRORS

T ADDRESS OF ERROR INSTRUCTION

;:STRIP

SAVE THE ERROR [TEM CODE

$:SKIP TYPEOUT IF SET
::SKIP TYPEOUTS

:*ERROR IS ILLEGAL TRAP

ED TRAP OR INTERRUPT

;:;GET PC AT TIME OF FALSE TRAP

::ADJUST

108

S:TYPE HEADER

::G0 TYPE==OCTAL ASCII(ALL DIGITS)

-:SAVE $E

FOR TYPEOUT

#4,(SP)

;:GET FALSE TRAP VECTOR ADDR

SERRPC.-(SP)
g

;:SAVE SERRPC FOR TYPEOUT
1160 TYPE~-OCTAL ASCII(ALL DIGITS)

(SP)
, SERRPC

(sp'[)L L(SP)+

-ASCIZ

::1F RETURN PC LESS THAN 1002

$ERRPC,~(SP)

00004
054105

;:TEST FOR CHANGE IN SOF T=-SWR

SERFLG
::SET THE ERROR FLAG
78
“:DON'T LET THE FLAG GO TO ZERO
STSTNM,BDISPLAY
::DISPLAY TEST NUMBER AND ERROR FLAG
asmoasSWR
::BELL ON ERROR?
13
J3ND = SKIP
$BELL
::ams BELL

4(SP) ,SERRPC

it i

:;ERROR=EMT AND N=ERROR ITEM NUMBER

#2, SERRPC

NN =

) = =3 D

—

s e
) =

ERROR

MOVB

PRSI

7%:

N
~N
NN WWWNO O ~

¥ 1V

oo
o

SRSRRSRSReReeRe RReeReRRReeoReee

i it
T N N N N N N Nl Nt NN B N Nl N Nl Nl Nl Nl N Nl
N Nt it N N N N N N N N

SERROR:

N AN
P~ P

sLAST BANK

S*RESTORE R3

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*AND GO TO SERRTYP ON ERROR
'%SS%JITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT
ON ERROR
s%SW13=1
INHIBIT ERROR TYPEOUTS
*SW10=1
BELL ON ERROR
LOOP ON ERROR
;2 SW09=1

D e
D D

AR AR

.':LAST ADDRESS

R1_SLSTAD

flHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

B D

N AN o BN

NN PN
NN SN AN

D e el D e e

N, TN
N

el e e e

NN, TN
NN BN

N TN

o e ol ol e

N, TN NN
NN

e et NI it ol e NG IN e
s

NN LN NN
TN
T

i i

SEQ 0074|

SLSTAD: .WORD
$LSTBK: .WORD
.SBTTL ERROR HANDLER ROUTINE

000000

) =

—

TN TN

D o

e s

MAIN,

NN N N N N N N N A

CZKWLA. P11

).P(z

POP FALSE TRAP VECTOR PCEADDR

UNEXPECTED TRAP TO °*

N N N Nl NNl NN N NN NP NN N N NN Nt N N N NP N N N NP N N N V)

13—MR°80

07:40

052103

047524

000040

e
e T YO Y W N
N S N —— —

104401

8%2737

000001

001226

001114
020502

023126
21%:

22%:

156002

001000

1402

013716

001174

2737

020146

1001
000000

155766

3s:
4%:

000042

5%:

-EVEN
JSR
TYPE

.SBTTL
SRR RAA

PC_SERRTYP

:2GD TO USER ERROR ROUTINE

#APTENV, SENV

2sRUNNING IN APT MODE
2:NO,SKIP APT ERROR REPORT

.SCRLF

28
$I1TEMB, 218

SC LSATYS

JSR

0
22%
aSwR
35

TST
BPL
HALT

CKSWR
BIT
BEQ
MOV
TST

BEQ
MOV

Bl T09,aSWR

HALT

>:SET ITEM NUMBER AS ERROR NUMBER
s sREPORT FATAL ERROR TO APT
;:;APT ERROR LOOP
;sHALT ON ERROR
2 2SKIP IF CONTINUE
2sHALT ON ERROR!
2sTEST FOR CHANGE IN SOFT=SWR
..LO(P ON ERROR SWITCH SET?

upem (SP)

;:BR IF NO
s :FUDGE RETURN FOR LOOPING

5
SESCAPE, (SP)

..rwse RETURN ADDRESS FOR ESCAPE

SESCAPE

#SENDAD
, a#42
63

BNE
6%:

000002

2%:

001110
001174

i
N
N

12%:

004737

RTI

::ClECK FOR AN ESCAPE ADDRESS
;BR IF NONE

..ACT-'H AUTO-ACCEPT?
;BRANCH IF NO

- ssYES

: ;RETURN

ERROR MESSAGE TYPEOUT ROUTINE

AR AN

AR AN AN

IARAAAAAANARAR

AR ANAARAAANAANANAARRAARAES

*THIS 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.

1
1
1

$ERRTYP:

CLR
BISB

001114
001116

N
N N

a¥SITEMB.RO
18

'CAWNIR%GE RETURN'' & 'LINE FEED'’
;PICKUP THE ITEM INDEX

..IF ITB lsw?o
3ER
JUST

Em
:60T&K"-OCTN. ASCIICALL DIGITS)
: sADJUST THE IDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE

. SCRLF
RO, ~(SP)
RO

SERRPC ,-(SP)

18:

i
e
e e

it il il el it e

TYPE

001203

b PNJINIIN

s e L

b e

D i

s i L

s el

SEQ 0075

042105

s s 2N =2

PAGE 5-78

ERROR HANDLER ROUTINE

05;(5"0 0460522 020120

AAAAAAAAAAAAAAAA'\AAAAA—\AAA'\"\"\AA

£&

(105

:;FORM TABLE POINTER

:2PICKUP

“ERROR MESSAGE’* POINTER

ZISKIP TYPEOUT If NO POINTER

MAIN,
MACY1T
CZKWLA.P1T
1

(1)

(1)
(1)

(1
(1)
(1)

0
0

104401
012037

000207

(2
(2)
(1)

013046
10440
00571

106401

023336

020040
023342

000

104401

(1)

001770

(a9

771

(1)
(1)

2389

TYPE

2s:

001203
023276

(1)
(1)
(1)

(1)

L 6
07:40 PAGE 5-19
ERROR MESSAGE TYPEOUT ROUTINE

104401

000000

001404
104401
000000
104401
011000
001004
12600

2
0
0

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

s, ERROR MESSAGE'' POINTER
0IN]
GOES HERE

5§

€:

BEQ
TYPE
_WORD
TYPE
MOV
BNE
MV

O
_SCRLF
(RO).RO
73
(SP)+,RO

:ISKIP TYPEOUT IF 0
::TYPE THE "DATA HEADER''
::'DATA HEADER'® POINTER GOES HERE
::"CARRIAGE RETURN'' & 'LINE FEED'"
::PICKUP ‘DATA TABLETM POINTER
:2G0 TYPE THE DATA
: RESTORE RO
.

”

RTS

; ;RETURN

MOV
TYPOC
IST

3(RO)+,-(SP)

;:SAVE @(RO)+ FOR TYPEQUT
::G0 TYPE=~OCTAL ASCII(ALL DIGITS)
::1S THERE ANOTHER NUMBER?

TYPE
MOV

4$:
S$:

001203

:: TYPE THE "ERROR MESSAGE''

WORD

33:

001203

SEQ 0076

_SCRLF
(RO)+.4S

TYPE

SCRLF

BEQ

(RO
68

’s

TYPE

::"CARRIAGE RETURN'' § 'LINE FEEDTM
::PICKUP "DATA HEADER'' POINTER

::"CARRIAGE RETURN''

;28R

SCIr
.EVEN

& "LINE FEED'"

IF NO

:TYPE TWO(2) SPACES

: :LOOP

::TWO(2) SPACES

.SBTTL SCOPE HANDLER ROUTINE

(2)

SRR

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

:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;+THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW14=1
LOOP ON TEST

AR A AR A AR

(1)
(1)
(1)

;*SW11=1
; *SW09=1
: *5W08=1

SCOPE

$SCOPE:

CKSWR

(1)

:*CALL

() 883808 1ousor

(1)

(1)
(1
(1
(M
(1)
(1
(1)

021627
101

777
114

(1
(1)

023366

000416

()

913746

(1)

(1
(1)

()

0127

7
12637

001002
g22es6
04

15555

AR A AT TN TN A AN

AR AR AR AR AR RN R AR

AR AR

INHIBIT ITERATIONS
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>
: :SCOPE=10T

:;TEST FOR C

IN SOFT=SWR

::60 TO ERROR ROUTINE IF RETURN PC LESS THAN 1
: ;OTHERWISE CONTINUE
TM
(SP),#1002
; JUNEXPECTED TRAP OR INTERRRUPT
BHl
1S
::ARE_TRAPPED HERE VIA 10T
P
SERROR
::60 PROCESS UNEXPECTED TRAP
1s:
BIT
MBITIC.aSWR
:LOOP ON PRESENT TEST?
BNE
SOVER
(1YES IF Swi4=1

;MARANSTART OF CODE FOR THE XOR TES
S
$XTSTR: BR
63
2:1F MONING
ON THE ~XOR'C TESTER C

1
000004

000004

" (NOP=240)

QMERRVEC.-(SP)

ST
MOV

an
(SP)+ @WERRVEC

::TIME OUT ON XOR?
::RESTORE THE ERROR VECTOR

(MP

(SP)+.(SP)+

:ZCLEAR THE STACK AFTER A TIME OUT

MoV
5:

;2 THIS INSTRUCTION 1O A

MOV

B8R

MOV

B8R

’%fimc

SSVLAD

(SP)+ BERRVEC

::SAVE THE CONTENTS OF THE ERROR VECTOR

::SET_FOR TIMEOUT

::60_TO THE NEXT TEST

::RESTORE THE ERROR VE

ZLODP ON THE PRESENT TEST

8 vvvvvvvvvvvvvvvvvvvvvvvvvvvvvv\'vva

000400

07:40 PAGE 5-20
SCOPE HANDLER ROUTINE

155506

1465

105737
001421
123737
1 19;;

001103
001103

0
001;?4
013737

001000

155450

001110

001106

1
§7
005037
0?415
032777

001103
001172

5737

001214

001011
14

137

11
1377
13716
2
0

004000

001104

001172

330

1
1
1
1

1
1

155416

001104

001172

001115
155316

$SVLAD:

SOVER:

.SBTTL

024000

000024

1§(7é7 000340 000026

012737

023706

#B1T7T09,3SWR
[A
&PESR.SLPADR

ssLO0OP ON ERROR?
2:BR IF NO
+:SET LOOP ADDRESS TO LAST SCOPE

CLRB
CLR

SERFLG
STIMES

;:ZERO THE ERROR FLAG
;:CLEAR THE NUMBER OF ITERATIONS TO MAKE

;:BR IF YES

$PASS

INC

SICNT

STIMES,SICNT

024000

000024

;;MAX. ERRORS FOR THIS TEST OCCURRED?
::BR IF NO

;;ESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?

;s IF FIRST PASS OF PROGRAM

INHIBIT ITERATIONS

s INCREMENT ITERATION COUNT

2;BR IF MORE ITERATION REQUIRED

:;;SET NUMBER OF ITERATIONS TO DO

MOVB

SMXCNT ,STIMES
STSTNM

STSTNM,STESTN

:;COUNT TEST NUMBERS

(SP) ,SLPADR

;- SAVE SCOPE LOOP ADDRESS

?gvm

MoV
MoV
CLR
MovB
MOV
MoV

#1,8ICNT

(SP) ,SLPERR
SESCAPE

;:CHECK THE NUMBER OF ITERATIONS MADE
csREINITIALIZE THE ITERATION COUNTER

:;SET TEST

NUMBER IN APT MAILBOX

s sSAVE ERROR LOOP ADDRESS
;;CLEAR THE ESCAPE FROM ERROR ADDRESS

#1,SERMAX
ssONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM_SDISPLAY ;:DISPLAY TEST NUMBER
SLPADR, (SP)
:;FUDGE RETURN ADDRESS
;;FIXES PS
; ;MAX. NUMBER OF ITERATIONS

POWER DOWN AND UP ROUTINES

A AR AR AR AR AR AR AR AN A AR

AN AR AN AR

AN AARARANAAAR

#3400, IPURVEC+2 ; :PRIO:7

MOV
MOV
MOV
MOV
MOV
MOV

.=(SP)
R1.,=-(SP)
.=(SP)
-(SP)
R&.-(SP)
RS.=(SP)

flvr

WSPURUP,3#PWRVEC : ;SET UP VECTOR

B8R

N AR AN

#SILLUP,@#PWRVEC ;:SET FOR FAST UP

O SEAVRG

-POWER UP RO'JTINE

012737

SWR<7:0>

SOVER

023706

;20N THE RIGHT TEST?

P
BGE
MoV

MOV

776

18
#BIT11,aSWR

TST

$PWRDN: MOV

000024

SERMAX ,SERFLG
33

704

10657 032004

BIT
BEQ
gv

RTI1
SMXCNT: 2000.

N
N
N
N

N N

1$:

10046
10146
10246
10346
010446
19;46

N
N
N
N

012737

;2HAS AN ERROR OCCURRED?
:2BR IF NO

BEQ

SERFLG
33

BNE

001104

::BR IF YES

TSTB
BEQ

BR
BIT

3%:

$SOVER

aSWR, STSTNM

CMPB
BHI

4%:

::mF%SPEC. TEST?

MPB

BEQ

7%:

gITOBJSIR

&l;

2%:

001115

SEQ 0077

6S:;RNANEND OF CODE FOR THE XOR TESTERASAA#

g 7 155500 001102

AN AN AN — — SN —

Y NN,
SN N N, TN BN TN N NN¥

b BN et b s et s

032777

NNNNNNNNNS

—

MACY11 30AC1052)
13-MAR-80
13-MAR-B0 07:39

N e Talalatealala
el
T ’\AAAAAAAAAA’\AAAA
e
D
o Y YT Y
S S N
N S S N
R
e gy

lal
~N

::PUSH RO ON STACK
2:PUSH R1 ON STACK
::PUSH 8 ON STACK
::PUSH R3 ON STACK
S:PUSH R4 ON STACK
2:PUSH RS ON STACK

RP T

2 HANG UP

AN A AN AA AR A AAA A AN EARARAAAAARAANRAAAAAAAANRAAAARAAAAIANAN
S

S$PWRUP: MOV

#SILLUP ,@#PWRVEC ;:SET FOR FAST DOWN

MAIN,

MACYTT mos.?)

CZKWLA.P11
(1)

(1)
(1)

(3)
(3)
(3)
(g)
(3)
<g>
(3)
(1)
(1)
(1)
(1)

(1)

m
(1)

(1)
(1)

013

07:40

024004

709 os:.oo:.

005237 024004

18:

001375

012677 155202
012605
012604
012603
012602
012601
01
81
833634 000024
12737
340 000026
104401
;

PAGE 5-21

POWER DOWN AND UP ROUTINES

2916
171

1101

511
53517
044501

CLR

$SAVRG, SP

INC

$SAVR6

BNE

$SAVRG

SIWAIT LOOP FOR THE TTY

ss0F

MOV

SPURMG: .WORD

SPWRAD : ,-,‘;“,’“”
SILLUP: MALT

045522

052123

6517
051105
000114

050040
043040

32 524

og 104

SEQ 0078

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE

$SAVRG: 0

PWRMSG: .ASCIZ

::GET SP

SIWAIT FOR THE INC
WORD

(SP)+,aSWR
::POP STACK INTO aSwR
(SP)+.R5
2:POP STACK INTO RS
(SP)+_Ré
Z:POP STACK INTO R&
(SP)+.R3
S:POP STACK INTO R3
(SP)+.R2
::POP STACK INTO R2
(SP)+.R1
::POP STACK INTO Rl
(SP)+.RO
::POP STACK INTO RO
#SPURDN, a#PURVEC :;SET UP THE POWER DOWN VECTOR
#340,3PURVEC+2 ; -PRIO:7
::REPORT THE POWER FAILURE

(PC)+, (SP)

S:RESTART AT START

PWRMSG

::POMER FAIL MESSAGE POINTER

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

SRERSSESIRIRES

2391

15-MAR-80

-80 07: 39

COMMAND STATUS REGISTER BIT ASSIGNMENTS

COMMON PROGRAM LOCATION(S)
TSTNUM: O

;CONTAINS TEST NUMBER ON ERROR

:'t'i.!.tt'ttt.tlttt&tt".tfitttttt'ttt.'.t.tt'tl'it"".t."t."'

=-O0o0O
OO

i ol e

il o

fiagiflbfifllhnl&flhrfl

*PROGRAM PARAMETER BLOCK

KONST:
NUMBR:
KOUNT :
COUNTR:
CONST:

:- waknnkannkwxxxDEVICE ADDRESSEStraesssssnnnsasn

RG4 :

SEQ 0079

160002

160004

Ettttttt.ttttttt INTERRUPT VECTOR ADDRESSES wmasxannwnnnw

Pcv0:

PSVD:
PCVI:
PSV1:

300

340
304
340

::tttttttttttttttt BUS REQUEST LEVEL swaaawanasxnnn
BRLY:

;;umtttttttttttonfk ADDRESSES*taanaananatarnhknrntehn

TEMP:

ADR:
EXPCT:
SAFE:

XX:
FLAG.1:

FLAG.2:
GOOD1:
TEMP1:
TEMP2:
FLAG:

—
—
— ——
—
—
e
W
e
W
W

COUNTER:
SFSWR:
SWITCH:
CNT:

:
COUNT

HOUR:

MIN:
SEC:
TIMINV:
DMONTH:
DHOUR:
DTIM:
STR:
NUM:
CNT1:

MONTH:
DAY:

INSWCH:

YEAR:

ACSR:
OCTNUM:
COMMA:
DIGCNT:

240
7

DPRI:
LEVEL:
SFTSW:
SAVR1:
HOLD:

4
4
4
4
4
4,
4
4
4
4

6
7

W\h‘ WA —

bl\?\,b

2424

RG2:

160002

553 858% 160004

07:40 PAGE 5-22
POWER DOWN AND UP ROUTINES

(1052)
13-MAR-80
~-80 07:39

OOOOOOSOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

MAIN,
MACY11
1
CZKWLA.P11

MAIN.

MCYH

052)

CZKWLA.P11

13—”-80

07:40

2478

SOFSWT: 0

481
loag

LASTPC: 0
TIMEIN: O

24
2485
24

2487

200

2488

000

LOC:
PT:
HZ:

ECHOB:

0
0
74

.BYTE

.EVEN

ECHOB1: O

491
49
49

ERRPC:
DIGIT:

494

.EVEN

0
0

0
0
0
0
0
0
DIGEND: 0
0

o o N o PN -2 D

BTN e el

.EVEN
.SBTTL

TRAP DECODER

.Q.tt'tt.'.fl'.fi.'t*tt'.t‘ttittttQfitltt.ttfit..t.t!t...Q.Q".fi.fi'

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRES S
:%OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

:*GD TO THAT ROUTINE.
01

%OO‘OOOOOZ

$TRAP:

—

43264

MOV

RO,-(SP)

:;SAVE RO

TST
MOVB

=(RO)
(RO) ,RO

; ;BACKUP BY SV
:;GET RIGHT
BYTE OF TRAP

MOV

ASL
MOV
RTS

024360

Z(SP) .RO

RO
STRPAD(RO) ,RO
RO

;:GET TRAP ADDRESS

;;POSITION
FOR INDEXING
;;INDEX TO TABLE
::G0 TO ROUTINE

28
g5

ssTHIS IS USE TO HANDLE THE "GETPRI'® MACRO

S o S

il el it el e

tTH!S ROUTINE WILL P!CK!.P THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION

s il e ol e

. St N N N N N S

0,200.0

00
O
0

407

N N N N

SEQ 0080

INTREG: O

il il il il ol

POWER DOWN AND UP ROUTINES
INTSW:

2479

PAGE 5-23

000004

000002

$TRAP2: MOV

MOV

(SP) ,~(SP)

4(SP) 2(SP)

;:MOVE THE PC DOWN

:;MOVE THE PSW DOWN

MAIN,

MACY1T

CZKWLA.P11
(1)
(1)

(1052) 13-mMAR-80 07: 40 PAGE 5-24
1&“-&
07:39
TRAP DECODER

024356

000002

RTI

.SBTTL

:;RESTORE THE PSW

TRAP TABLE

;*THIS TASLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;*BY THE "“TRAP'® INSTRUCTION.
ROUT INE

s
s
ceiis
odioes

Geirie

.WORD

STYPE
$TYPOC
$TYPOS
STYPON
$TYPDS

STRAP2

;s CALL=TYPE
;s CALL=TYPOC
2 ;CALL=TYPOS
2 ;CALL=TYPON
2 ;CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)

TTY TYPEOUT ROUTINE

TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TYPE
TYPE
TYPE
TYPE

GET SOFT-SWR SETTING

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)

SGTSWR

2 :CALL=GTSWR

TRAP+6(104406)

024376

020732

0244

1374

SCKSWR
SRDCHR
SRDLIN
SRDOCT

; s CALL=CKSWR
s ; CALL=RDCHR
s ;CALL=RDLIN
;s CALL=RDOCT

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

EM1:

.SBTTL
.ASCIZ

ASCII MESSAGES
/READ VALUE DIDN'T MATCH WITH EXPECTED/

EM2:

ASCIZ

/READY BIT FAIL TO SET/

EM3:

ASCIZ

/TIME I'JIERVAL COUNTER DOESN'T DECREMENT IN ORDER/

EM&:

.ASCI1Z

/BIT #14 IN CSR DIDN'T SET/

2521

LASCIZ

/8IT #14 IN CSR DIDN'T RESET/

2522

-ASCIZ

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

1254

-1 lgg OoNN-=NO
AT S o AV T

WSO

FRORESNURR

1574

2520

-Ao —

2519

0244

2518

NN L

o o

021002

WBi—=ununini—

Gacis

$TRPAD:

e Y
\
V=N O—

i W v

e e

P e e e

NN
YA Y T
e e e L Y
N
N, —~—~
-~
B~
AN ININN = W8 2 WU NN N N NN

SEQ 0081

INVALID/

(1052) 13-MAR-80
~80 07:39

07:40 PAGE 5-25
ASCI] MESSAGES

SEQ 0082

~AN y~R L~b)N io~&& @0N NR|N==== ~t ANDNbo 0NANAwQNo 7xA2ORI&X 3a¥]WNNNTmLN[ NsN3NN

m m m m m m m m m m m w m m m m omn

R
B
I
A
T
S
Y
R
A
R
8
3
3
N
I
S
I
R
I
B
V
I
L
I
E
OTAN ANOM UMM M o~ e WMTM o- =-

N2ON=m4-2 2oBNSIeNUNéYORSASRSm—rmIeBcm03SNemIRNmQOUNoRm~mrzm..l74

MAIN,
MACYT]
CIKWLA.P1T
1

2— —

/READY BIT DIDN'T SET;ONE OR BOTH VALUES/<200>

.ASCIZ

/OF MONTH AND DAY MAY BE INVALID/

-ASCI11

/READY BIT DIDN'T SET;ONE OR BOTH VALUES/<200>

LASCIZ

/OF HOUR AND MINUTE MAY BE INVALID/

.ASCIZ

/ERROR: BIT #15 (DE) FAIL TO SET/

-ASCIZ

/ERROR: CLOCK IS STILL RUNNING/

.ASCIZ

/ERROR: CLOCK IS NOT RUNNING/

LASCII

/INTERRUPT FAIL TO OCCUR WHILE UPDATING THE CLOCK /<200>

L. e

wn - et
502
6101

MAIN,

M(V111

(1052)

13-MAR-80
-80 07:39

07:40

PAGE 5-26

ASCI] MESSAGES

SEQ 0083

“538581 BedsinadelsdiassaBeka8 wm%mwm%

Ym3050m0m00]oCO000z£ N7" COCO008C3Oz8ONwCO308O080EN"OC&8 NO0omwooOum0mu0m~wNmCw8m80u303oI010Io0T0EoS0m00o00D080u3N"w ZOO03I 3

Ql>Rcl3!l!lB!lEqliSl.lE=emww—v1‘115w5z15u1w4o1Rw‘1m51ma‘l(-:Rl1l¢l.5R1R

O1-45e2R1S!N1$B!RB5ORINo8ReI=NENG3R1Y‘S121o5NEm=wNmaOaN=urawue853=2\2

CZrWLA.P11

/PROBABLE CAUSE INTERRUPT WAS NOT ENABLED/

~OIO ssszsgssssssysssg o~

-ASCIiZ

-ASCII

/PRESET INTERRUPT DIDN'T OCCUR;PROBABLE CAUSE/<200>

LASCIZ

/INTRPT NOT ENABLE OR AND INVALID PRESET VALUE/

.ASCIZ

/SOFT ERROR/

+ASCIZ

/UNEXPECTED INTERRUPT AS SOFTSWT NOT SET/

LASCIZ

/UNEXPECTED INTERRUPT AS INTRP WAS NOT ENABLED/

ASCIZ

/UNEXPECTED INTERRUPT AS (DE) WAS NOT SET/

LASCIZ

/UNEXPECTED AND UNEXPLAINABLE INTERRUPT/

IXMroN3—sBvDTFAI3-NvSMNIINLTIHLI——AYENNTNGAITAINUFSm[¥&~AS5T12K.E:&“D->RNaITBnRAsEnLm-AnT.BRKIEmXTTRCSIRNIRISImm“uNERERiLIRNDmRmZmz8Ge
MAIN,

333
338
NN =

.- - o-8 -.2 -g -.& .- Z o%

O00O 0 T
0 0 0 0 0 0 N0

¥3 mm -&¥ 23 2 M2 e3 == x¥ o- 2 -g5 ,&@ 2

os3T—NoFnIOgeNgo~—-Q<~w~8l3O"NSO»5S0"Nke~Q]Q¥ 2z “%% ,N©~o~c)-5TvOAASRTNGORN—.= m~&:<eO Noww w~,Ay.5~uOSNrNe-NTMr0—Rr—NOr~B=NiEvf-. —3~gz N<.~~y§\I3\N0~OFRr3A=NOIO0~®2 :2%2 -~o.<ww LUN3SNI~ORSWIN-0RT-INRmB~¥—(Og£ 3-<"No3Y"2lOMW$e~e"—“;<2o3—IaN=T)8M3ANT8TRoo¥8vw M——[NoI€TOR3ITYM5RON3-5-"2-82o5£g ~v—ON3%5 :”<&g )3.y
CZKWLA.PIT

M(fl11
(1052)
-80 07:39

13-MAR-B0
07:40 PAGE S-27
ASCII MESSAGES

SEQ 0084

MAIN,

MACYTT

CZKWLA. P11
2548

{1052)

026542

100042

552

062640

3-MAR-B0 07:40 PAGE 5-28
1%’80 07:39
ASCI] MESSAGES
000

110

051107

021072

05151

051440
052040

0462505
020117

EM33:

_ASCIZ

/HARD

EM34:

.ASCiZ

/GOT NO INTERRUPT WITH BPU AT LEVEL 0/<200>

EM35:

.ASCIZ

/INTERRUPT OCCUR AT WRONG LEVEL/<200>

71
716
g;g%

0462524
020124
152
522
53105

2551

3505

EM36:

.ASCIZ

/°DE® BIT IN (SR FAIL TO CLEAR/<200>

2552

67 §
977

DCMSGY:

.ASCIZ

<200>/THE FOLLOWING VALUES ARE BEING USED/<200>

g 1

DCMSG2:

.ASC1Z

<200>/

DEVICE ADDRESSES(

DCMSG3: .ASCI1Z

<200>/

PC INTERRUPT VECTOR ADDRESS(/

DCMSG4:

.ASCIZ

<200>/

"PC INTERRUPT VECTOR ADDRESS(2)=/

051523
1
i
‘IOI; 051 ggg DCMSGS: .ASCIZ

<200>/

BUS REQUEST LEVEL(/

576
6608

2549

661
6616

%
4

66?8

66
6656
“66942

2550

74
6 08

2553

2555

009

52111
125
105

040516
052101

0201 24

8 5116

71
;}1

71%

719&
;} 7;

7212

ERROR:"USCILLATOR SEEMS TO BE INACCURATE''7<200>

52120

020110
052101

046105

?412‘

114

1505

104

5244

71§§
2556

051%@

05%101

051117
044503
051117
051515
04250
04150
021105

i i S
srie Gt ginel
ig

2554

114

051 12;

020104

117
2522

51 Sgg

1117 060440

s 055703
000050

-NSVR=e8o9sISBcUoE8s3kR-eI2sYIBSSI=SRKTISIENENYTANN=8TIAiShERoSeTYmfSlN[fmFalr?E%.2%zLMmNAIvfI,iS
-L&2N—~=]V8]N8ke&v2%LNP~]-~AN.W( —R.y~om ~yyNANBANLw=g-—— —b -e .. ~U)Oe.~LIlyWO£\w~K—g-"N4%WM=%Vs7% z 01!42 '138NO\NB— O-:A=RNI~NN2—BNN-RN2RN%-YRR-NR\2 - eOeSPo\=
M¥2¥E2y g% 2< e2> <P 33
2aN%4}mW2~A g=S s.F §2= N mw:W:~AN
oood S 8“00 A A

2561

2558

La¥laV] 9m

mm m

2557

N2
OO

3E333

O
C
O
0
0
0
0
0
C
0
C
o
0
C
o
0
A
N
A
N
A
N
N
N
N
A
N
N
N
A
N
N
N
N
P
N
T
NN
T
F
S
T
= sm m m m m8n28s 3RIS3 3SH3E58 oY3eRGi3an8s3
MAIN,
MACYTT 130A(1055)
13-MAR-80
CZKWLA.P1Y
07:39

000103

07:40 PAGE 5-29
ASCI] MESSAGES

o20117

DCMSG6: JASCIZ

LASCIZ

SEQ 0086

<200>/

LASCIZ
.ASCIZ
7 PL/
/ERROR

-ASC1Zz
/PL/

‘DO YOU WANT TO CHANGE ANY OF THESE VALUES (Y OR N) 'Y

4
[+ A

-—

TEST#/<200>

)

IS TYPED'Y

<200>/THE CLOCK PASSED THE RELATIVE ACCURACY TEST/<200>

WAS

CURSEC

(SR/<200>

G S

/<200>

(SR/<200>

MAIN,

MACYTT

CZKWLA.P11
571
572

2573
574
575

57
57

gsn
579

0
0.
0,
0
0
0
0

(1052)

~80
0

13—'\\&-80

07:40 PAGE 5-30
ASCI] MESSAGES
D11

SERRPC , TSTNUM, GOOD ,BAD ,BADA 0

p12:

SERRPC ,TSTNUM_BADA,O

DT3:

$ERRPC.0

DT4:

SERRPC, TSTNUM,PRESEC
,SECOND ,BADA. O

DTS:

SERRPC_TSTNUM.O

-END

SEQ 0087

MAIN,

MACYTT &(“!OSZ)

CZKWLA.P11

13-MAR-B0

-80 07:

ACDW2 =

:c(sa )

ADDWO =

7133

233

ADDW11=

ADDWS =

ADDW, =

2330

ADEVCT=

o0 =

7
33

AENY =

AMADRY =

AENWM =

AFATAL =
AMADR =

33
33

AMAMS 1 =
m%:
:

3§
33
;

fi%v-

AMTYP1=

g
2

3814
3814
3814
3814

AUNIT : o‘o‘u‘o 'X

AVECT1=
AVECT2=

164
33

A.CLK

1331

o F

ATES

414

CROSS REFERENCE TABLE —— USER SYMBOLS

73
33

i F

APTCSU=
APTENV=
APTS]2=
:PY

2327

PAGE 6

ADDW1 4=
ADDW15=

AMTYPZ=
AMTYP
AMTYPG=
APASS =
APRIOR=

1313«

07:40

33
18204

2387

1338

2345«

1347+«

2349

1365

2353

1372

244w

SEQ 0088

1483+

1498

07:40

= 001126

BAD

CROSS REFERENCE TABLE -- USER SYMBOLS

460
674*

461
675

1081+«

1083

837+

001122

1494+

826+

840«

1067«
1621

SRELRRERbu-n: RTINS SES8SSS Sgflfla RESS

d
) d

4B6+

1085+
1431~

468+
707
846
1089+

g{g-

1496
528+

851«
1096+«

1446~

2147+

2182+

1278

576

737
1284

1254

1266

1762

2173

2180
912

1956
2
i3

932

979
13m

2137«

PO .Y
o0

838

1370

475«

BADA

PAGE 6-1

F I ]

1&0-&0 07:39

1 3-MAR-80

(1052)

uzzoug
IS

MAIN,
MACYTT
CZKWLA. P11

998

g;;-

1336

713«
942«
1338«
1507«

741
970+
1352«
1514«

1643+

568

777

1249

1416

1639

1954

1345

983

1062
1441

1073
1659

1077
1684

2208

2228

779

783

798

810

2076

2120

2124

h
md
ed e
D ed —d ed e

054

1484

1077

1866

2314~

24354

1089

1715«
511

1728+
55

2466#

966

1052

1588

1607

1612

439

903

589+

594+

1904

597+«

1307
61

2030

18‘5

Adr
687
1409

1993
2177
%

2387

%07

wvi—

-o""K%;
5850 NS
Oo= SN
I~

VIO
-

d md
D

g
-

[

CNT1

)

389

COMMA
CONST

743

ESNN)
=

)

1272

S07#

“d

—4
—

SPEN—-O

e =

o
——y

b
-

e B

TOTODDE®

—

1289

535«

213

o
B TM

751

853

016024

CONT
CONT

0161
016104

CONTS
CONTS
COUNT

016
016
024164

2005+

2029+

CROSS REFERENCE TABLE -- USER SYMBOLS

2006
2011
2035

2042#

1138«

1165+

2038«

2043#

1075+

2163«

2170~

459

463
545

466%
550

798+

804

962
1085
1220

970
1092«
1226

14go

1d5g:

2103#»

2225+

e GBS

T
B

1691+

103

1577+

1584

1731

26924

1585+

1606«

109

1609

1614

2447

-3

e ol
il

~Nw

b e

D e

»»

—

~ro00n

885

ek e

L3
2% O

RGN

--n_n:-.-.-a
-.80 (T
g&
wviawn
st
S
"
»

185+

132+

2182

1318

912«

R
LR

VN
=

BN
-2 ONON
VIO ON

1772«
2128+

865

% NS~ 5§Sggo
¢REEITNT2
d

(2]

1311

718«

14#

wvi

2 %5

veop

17
014
1
1

W) e

DDISP =
DECOCT
DELAY
gELTAT

1
1
1

7
7
(4
721
#
[4

DC
DCg
DC

DCMS
DCMSG4
DCMSGS5
DCMS
DCMSG
DCg

76
70
5
56

ISR NN —
oINS NS

DAY
DCMSGX
DCMSG
DCMS

861«

RRRNSO0
o

SRR5
§;‘,§-fld

713

L el

2210+

= 000015

(K~ 020008

oooog

SEQ 0090

2015#

4326
4052

COUNTE
COUNTR
CR

1996+
1997+

PAGE 6-2

B 533883

CONT

CONTT

07:40

£33
K238TR bd’

MAIN,
MACYTT wOSZ)
13-MAR-80
1
-80 07: 39
CZKWLA.P11

2170

22408

104
89

110
9%

138

143

126

132

185

2572#

1962

248%%

348«

2389+
596«

24654

915
1170
1661

1325

1054

1079
1444

2135

1
1455
2164

1316

132+

190

2163

904

1299

1408

121

148

1950«

1953

1961«

VAR

CRIeReeexeceS )fl:a

SERLEY

24874

1686

2117

661

695+

2224n

2234>

o —d

1419
21

Ulwl\

296+

1;28

Cxmd

2197«
273

933

»»

587

024212

63
58

1076

FLAG.2

9\)-0-'“-‘

[

_®

2 ii‘l&l

e R

e e

e e B

24584

PNV

WS~

AT
WY

504
315
521
525

VIR
NN —=0O

msmmmmmmmmmmmmmmmmmmmm

EMTVEC=
EM1
EM1
EMI
EMI
EM1
EM14
EM15
EM1

932

653
254

Vi ViVt
wnm
-

ECHOB1

2389+
886

wviviwnw

ECHOB

2387+
883

o3rr0e

D75

LIRSS SEZFEBRININEG2ESUIRB LIRS —l\llg.JEERIBLgE
*

D73

570
024154
027654
027670

521
649+

868

e e

DSWR
DTIM
D11
D12

254=

SEQ 0091

0;7106

NN -

DPR]

7
N
07:40 PAGE 6-3
CROSS REFERENCE TABLE -- USER SYMBCLS

1669+

24 50

DMONTH
DMT

334
8614
N

001142
0070 2

e e ey

DISPLA
DISPLY
D1SPRE

(1052) 13-MAR-80
~80 07 :39

JMAIN,
MACYTT
1
CZKWLA.P11

153

FLOAT

RARA

SN
=

GE TRDY
GETTIM

(1052)

0165

GOOD

= 001124

wanwnn

-80

[
816; 2
16
01
016

1350

GNS

GOOD1

1%’” 07:

07: 40 PAGE 6-4
CROSS REFERENCE TABLE -- USER SYMBOLS

1358+

SEQ 0092

1482«

1487

1493«

2000

2326+

2338+

2343+

2348+

875
21444
21204

972

1058

1069

174

1195

1424

214

%132' 21404
3;9 1622
378
1560

457

461

o &

024214

824~

977«
1206
1495

980
1308«
1496

460
2674M
2057
3778

1312

2358«

484

527«

1074
1342+

1346

2355

24754

470

2513#
421

425

717«

1307

1375+«

1413

1349

1486

19954

522

527

532+

2L11»

674

26404

24524

13343433 £

9% ¥e:

L »

ny
o
o~ 5~ wiss
wvioo

SHREG

§‘ 2

PAR=
PARZ=

-3

lO;VE =

232%0

2386

519«

1903+

1904

4354

1522

1520«

2333

2335

24734

ddovab
& 8
. »

MAIN,
MACYTT
CZKWLA. P

122:AR-80 07:39

b wd
b

2450m
1581
1720+

1623
1721

1964

2410#

1726
1970

1730
25604

2271
2289

1724%

2460#

19774

2275
2297«

26454
2283
2298+

2285«
24294

2292«

2293

1299+

1408+

242748

1866

2575

373

24384

611

2295

2287«
2291%

2295+
2300+
653~

611~

2301
24304

2390+

1834

2383

2513#

915
1641

968
1661

1054
1667

2310

25134

109

21?7 .

1136

)

2513»

&¥

1884#

N\ ==t

cded

FaSRoIPS
RETITNE

v
v

24534

ded

e ‘ghg\\
»g
22 __RRR

19314

535

WWO

ededed
e

$53BES
E 3

—
B e D D 2
2 NO BN
S PNPNINPDB P
wy

oy £3589
Ga¥ednaE%

1979

SEQ 0093

e e

Y
N

N =

wd
d i
b oD
whwd
cded

A
—ron
—
~ oNON
—
S HNO® N—

—ded

—

WSS~y

oo
W
TI
R
e

07: 40 PAGE 6-5
CROSS REFERENCE TABLE -- USER SYMBOLS

YRR

13-MAR-B0

= O gy
D00

(1052)

MAIN,
MACY11
CZKWLA.P11

11 3

21 5

1192

2191#

1325

MAIN.
HA(Y11
CZKWLA P11

ROYCK
RDYCK1

017120
017040

READA

8
=

4060
1

RG2

024066

024070

ROUTT
SAFE
SAVR1
SEC
SECOND
SETUP1
SETUP

003776
024204
4114
4144
5
6
9

SOF SWT
=
SR

;

SETUP
SE TUP4
SF SWR
SFTSW

00
714
170
411

I
SRS = 1;2;1
=

START
STKLMT=
STR
SWITCH

;7
774
41;
41

SWREG

SWR
S
S
S

S
S

=
=
=
=
z
=

=
=

S
S
S

SWt

=
=
=

W10

Sw1

Wil

114
D0

0011

—

STACK =

07:40 PAGE 6-6
CROSS REFERENCE TABLE -- USER SYMBOLS

1463

1428

17504
578
593

2221#
1443

2202#

585
24164

587+

591

24154

405

410

416

429

431

2054

939
1275
1763
1081
1503

980«
1312«
1773
1089
1685«

993
1328

1001
1335

1093~
1417+

778
1147
1952«

781
1155
1960

2075+

2146

2176+

1155«

1158

1164

1167

2454m

2389

2390

569

2116
1135«
1691
577
799
1158

4804
IB6*

632

1723»
24654

254

SEQ 009¢

1472

567

REQ

1454
1418

cRagRateRaRRe 3 E- L SELOLRR

READS

014426

13—HAR°80

READ

052)

2372

2376

2390

1726

1727+

2454

5385

2387

2121=

1162+
1790
584
800
1164

1222

2125+

2259

2134+
619+

699'

1228

1167

1281

24230

'5 *yIz N O& NB «[- — 03-- o9 ..............:....

NN N o~ 11!1! — -

3233eA%iAotpoRERIMEBN32%

CmCeSWMnW=”‘OMR‘-?‘.‘S‘NOwZNWSaNmG!IIRNaWS$mIrsRnS1.g!.m:o5.o!“rones13IYIaInIaIInNuIaonad
Beb
ONN

Ae bRBGbbEBPBBABBe BbbBe BBBBBBBBB29 9 9 95358 Sl
MAIN,
MACY11 30A(1052)
13-MAR-80
CZKWLA.P11
13-MAR-80 07:39

E
07:40 PAGE 6-7
CROSS REFERENCE TABLE -- USER SYMBOLS

9594
1043#

1122#
1381

1398#

2075

20794

642#

1314+

SSar

1348+

1485+

2011

2572

2573

2575

2576

20214

SEQ 0095

13-MAR-80 07:39

1785

1788

1802

1806

1810

2376

2513»

438

1558

1559

1560

1573

1591

1598

1599

1622

987
745
845

2307

2370

2382

2387

1139
20854

1157

1166

20284

1751

2380

2382

383

2257

2387

2388

1970

2382

382
~Nw

381

At AN

380

wi
gN

wion
J\O\J% A\
Ow:fi\:

BRBRB
TRRLRV w‘
By %N

2276

1%(5’

379

U\E

V!VQNN

PONONINY

e R

N
00 00 OO

378

2513#

20754

24494

7
g 5«
89«

2382

386

1599

oro

roronono

LYY

roro

WAIT2

SN NN NN NN

WAITY

Huan

TYPOC
TYPON
TYPOS
WAIT

377

384

2261

2390

385

1750

2273

2513#

386

1751

2277

387

1821

2303

]

1771

255

= 104401

734

1761

X2
oo

TYPE

TYPDS = 104405

006010

6484

N =

6104

1817

SEC 009%

14074

1516

CROSS REFERENCE TABLE -- USER SYMBOLS

~
N
W

1574

15715

1%?3:

—

;gggo 812 14

PAGE 6-8

011424

07:40

;3;17

CZKWLA.P11

13-MAR-B0

Wi
W

MACYTT 30A(1052)

—

MAIN,

0~NBLNyoNo~~2eNo«yN“~wNNyNN-Mo=&o)-yToNI~aVTV[N8a¥V[I«a¥VI8g&V]IL&IYaVIAeLVN8e2y%0~oNNNM5NS03W3L3o3233L3

Xg$o08-dg2AspadSabiadti23

mwixmwmmnmmsxrsm4ymnuyuy87m3y5y5y3z2y5n828ezx
--

n333n333 g
388
8
Se
S
g
- eNM So
N

f..l.fl.ku.&.u&.u...w.fi“.fiu.fif.iu.ufi.u.fi.fifiuflfiuwwt
B1 g. s EB p B 8B .
N

XPARRRARR

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

G
07:40 PAGE 6-9
(ROSS REFERENCE TABLE -- USER SYMBOLS

ow N

~N v N v

SEQ 0097

N wv 2

MACYTT mosz»
1

1
1
1
1242
1246
1

03818

SVLAD

SVP( =
$SWR =

$SWREG

S$TESTN
$TIMES

$Tk8

$7¢S

610#

648%

6854

7344

2376

2389

1598

2380

2382

2387

254

255

23R

2”&

83
254

2389~
254+
963+

3¢

1942

1784

1146

7608

7734

857#

9024

9634 112%#

648+

685+

734+

760+

773

857+

N
il
-a0D
W

1407#

1298%

vy
—ted
WwWw

(TM1

NN
N

o
11»

1 }
1
1144

x®

=23

;

54
SO

2
1674

*» RN

<
[

S176x_
N
=

5624

SEC 0098

2381+=
381+
381+

423’ 2;?8’

;

o\l% NI

3338
§M§
—

SA
SC
fi T

2389

¥ 1

L8888

WT%T

2387

SooREEE

SMXCNT

2380

238
3

1 4;

CROSS REFERENCE TABLE -— USER SYMBDLS

255

124
1

254

roro
~N
WM

MTYP
MTYPL

MTYP

334
;g
b
33y
33
g%'
”
23814
2

1
1
1224
1
1
1237

~80 07: 29

PAGE 6-10

—_—

SMADRS
SMAIL
SMAMS 1
TMAMS,
MAMS
TMAMSS
SMBADR
SMFLG
SMNEW
$MSGAD
MSGLG
MSGTY
TMSWR
MTYPY

07:40

—

CIKWLA P11

13-MAR-80

PONUNY
= NONONONONS

MAIN,

1950

390+

1129+

1961

1958

449+

1178+

2069

2047

510+

1298+

2382

2382+

562+

1407+

610+

2376

2389+

MAIN,

MACYTT 30A€1052)

CZKWLA P11
$TMPO0

13-MAR-B80

13-MAR-80 07:39

001160

$TMP

STMP
001 196
$TMP6
001170
$IN
= 000021

330
334
124

1164

$1PB

S$TPFLG

$TPS
S$TRAP
$TRAP2

$TRP

$TRPAD

00115

150
324
36%
1

$TSTM

11294

3854

2387

2389«

610#

648

685#

330

254

2554

2513

$TYPON
$TYPOS
SUNIT

2384w
2384
3»

SUSWR

SUNITM

SVECT1

SVECT?

$XTSTR

361

2;
*

JSASTAZ

J$x

5624

1407

25134

$TYPE
$TYPEC
$TYPEX
$TYPOC

S10#

1298¢

25134

238;’
351

$40CAT

CROSS REFERENCE TABLE -- USER SYMBOLS

330
254
25134

$TTYIN
$TYPBN=

$TYPDS

3%:

$TSTAM

PAGE 6-11

330

%1 162

$TMP

07:40

2389

23824

1559
2387

wavwnr

= 001000

2381

b3L4

3on

15604
2388

18334
2389

1844w
2390

2163
24B8s

SEC 0099

MAIN,

MACYTT

COMMEN
COMPAR
DECHK

144
4

ECHO
ECHOY
ENDCOM
ERROR

174
2234
144
144
795

CZKWLA.P11

DECLR

NEWTST
PUSH
RDYCK

'S‘Eg '
SETPRI

539
841

546
852

Zlgg

121916’

144

553
866

628
874

666
921

677
929

711
936

714
943

742
971

749
990

786
998

1169
1467
2329

1173
1476
2332

1194
1490
2337

1
1500
235

1319
1508
2354

1332
1515
2357

128;

510

562

610

648

685

734

760

773

857

902

963

1129

1178

5231

1
863
1661

2383
2383
871
1667

2385

2390
2390
968
2117

2122

2126

2130

2135

1148

1154

1163

1192

1325

1359

1376

1 292
144

1407

2376

760

773

857

902

963

1129

1178

144

254

449
1407

510
2376

562
2380

10
2%81

8
2%2

5
2%33

734
2384

7
233?

773
2386

57
2387

2385

381

382

383

384

385

430

438

1558

1559

1560

648

685

734

760

773

857

902

963

1129

1178

144
144

144
2124

1641

}2:

144

‘}2:
ggg
. 144
144

255#4

449

2385
915
1686

562

33
1 1%% 1 ‘l;i 1
23540 .
2376
144

144

610

23;;
1221

Zggg
1833

1&2

un
144

510

562

610

449

1 fi

1407

251
25

283

1054

648

1065

685

1094

734

255

}3 2;%
1750

31733

$$SK1IP
JEQUAT

529
827

1160
1458
2183

1;’
“
144
I

$SSET
$SSETM

476
816

1151
1447
2138

TYPDEC
TYPNAM
TYPNUM
TYPOCS

$SESCA
SSNEWT

464
805

SEQ 0100

1146
1432
1968

25134

ngE
CMTM

849
2177

CROSS REFERENCE TABLE -- MACRO NAMES

1142
1422
1923

SWRSU
TRMTRP
R:?g;

838
2170

1097
1380
1916

144

TYPBIN

824
2163

PAGE 7

1
13
1876

SKIP

gmng

813
932

144

07:40

1%
1
1689

25134

SLASH

793
917

1&0-80 07:39

1057
1353
1664

SETTRA
SE TUP

13-MAR-B0

1%
1
16?2’

GETPR]

GE TSWR
MUL T

(1052)

MAIN, MACYTT

CZKWLA. P11
LSWRHI
LSACTY
.SAPTB
LSAPTH

-80 07:

8
I
o
on

32
2381
3
6
7

FIVVTLTTJTI LRI

SAPTY
.3CMTA
.SEOP
$ERRO

N
~N

$ERRT

. ABS,

(1052) 12;“-80 07:40 PAGE 7-1

027726

ERRORS DETECTED:
CZKWLA,BIN
RUN=T IME

ZKULA.LST/CRF=CZKULA P11
5 4

RW-T{K RAT!& 15§/106=1
CORE USED:

(55 PAGES)

’

(ROSS REFERENZE TABLE -- MACRD NAMES

SEQ 0101