Digital PDFs

AH-8878J-MC

July 1978

46 pages

Original

23MB

view download

OCR Version

32MB

view download

Document:	CZKWBJ0 KW11-P REAL TIME CLOCK TEST JUL 1978 bw
Order Number:	AH-8878J-MC
Revision:	000
Pages:	46
Original Filename:	CZKWBJ0__KW11-P__REAL_TIME_CLOCK_TEST__AH-8878J-MC__JUL_1978_gray.pdf

OCR Text

REALTIME CLOCK TEST

AH-8878J-MC

JUL 1978

CZKWBJO

copvrichT “72-78

OEE0ED

FICHE1 OF1

MADE IN USA

MACY11

30A(1052)

B
09:58

19-APR=78

1
PAGE

SEQ 0001

000000

.REPT

IDENTIFICATION

A5 B
NN N NN N N NN nn r NN NONONN
DRI
TN il sup woh wed ol il sl b sl il
= OV
NN
WN =D ~O 0o
VSN
-

oomflfi'\fibWN—‘oom\lo\flJ\wm_‘

(ZKWwBJO KW11=P RT CLK TST
(ZKWBJ.P11
19-APR-78 09:55

PRODUCT CODE:

AC-8877J-MC

PRODUCT NAME:

CZKWBJO KW11-P RT CLK TST

PRODUCT DATE:

1-MAY-78

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

JOHN RODENHISER/JIM LACEY

REVISED BY:

W.F.KELLICKER
A.J.COSSETTE
M. SOARES

AUG 30,1974
NOV.21,1975
NOV.21,1975

W. SCHLITZKUS

MAY.01,1978

B. SUSSMAN

JAN.02,1978

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 NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED COMPANIES.

DIGITAL
DEC

1978 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

(ZKWBJO KW11=P RT CLKX TST
(ZkWBJ.P11
19-APR-78 09:55

56
55
56
57
58
59
60
61
6

MACYTT

30A(1052)

19-APR-78

£
09:58

3
PAGE 2

SEQ 0002

1.0

ABSTRACT
THIS PROGRAM TESTS THE KW11-P REAL TIME CLOCK.
IT CONTAINS
A SERIES OF INCREMENTAL ROUTINES THAT TEST THE CONTROL AND
STATUS REGISTER, COUNT SET BUFFER, COUNTER, AND INTERRUPT VECTOR ADDRESS USING 100KHZ, 10KHZ, LINE AND

EXTERNAL FREQUENCIES.
REQUIREMENTS
EQUIPMENT

63
64
65

POP=11

67
68

WITH KW11-P

STORAGE

69
70

THIS PROGRAM OCCUPIES MEMORY FROM 0 TO 11636.

hg?aégfi PROCEDURE

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED
1.
ABSOLUTE LOADER MUSY BE IN MEMORY.

2.
3.

—

PLACE BINARY TAPE IN READER.
LOAD ADDRESS #7500 (+ DETERMINED BY LOCATION OF LOADER).

PRESS "'START" (PROGRAM WILL LOAD).

STARTING PROCEDURE
CONTROL SWITCH SETTINGS

SET SWO=1 TO ENABLE TESTS USING EXTERNAL FREQUENCY.
SET SW2=1 TO INCLUDE REPEATABILITY TEST T25 & T26 IF COW IS PRESENT
4.2

STARTING ADDRESSES

200 BASIC TEST
204 RESTART ADDRESS-PRIMARILY USED BY XOR TESTER
210 TIMING TEST
214 DOUBLE OR SINGLE REAL TIME CLOCK TEST. 100KHZ.
220 DOUBLE OR SINGLE REAL TIME CLOCK TEST. 10KHZ.
224 DOUBLE OR SINGLE REAL TIME CLOCK TEST. 60WZ.
230 DOUBLE OR SINGLE REAL TIME CLOCK TEST SOMZ
4.3

**NOTE:

PROGRAM AND/OR OPERATOR ACTION

IF NO HARDWARE SWITCH REGISTER IS AVAILABLE THE PROGRAM WILL

AUTOMATICALLY USE THE CONTENTS OF LOC. 176 AS THE SOFTWARE SWITCH REGISTER.
THE USER SHOULD SET UP THIS LOC. BEFORE STARTING THE PROGRAM.

LOAD PROGRAM INTO MEMORY

SET SWITCH REGISTER TO STARTING ADDRE:S
LOAD ADDRESS.
IF DESIRED TO ENABLE EXTERNAL FREQUENCY
PRESS START
PROGRAM WILL BEGIN TESTING

OPERATING PROCEDURE

FESTS SET SWO=1.

-0

b —
e ol ok —d o
—
o
b
ed o
b oo wib wd wd
wib v

=000~ VIBWN
O VRN
VLS WND

WWWN
N
N PRONRONVMNOMNIN
=
o
—

(ZKWBJO KW11=-P RT CLK TST
(ZKWBJ.P11
19-APR-78 09:55

MACY11

30A(1052)

19-APR-78

09:58

PAGE

SEQ 0003

5.}
. 1.1

OPERATIONAL SWITCH SETTINGS
BASIC TEST
WITH SWITCHES 12 THRU 15=0 (DOWN) THE PROGRAM WILL PRINT OUT
8? Ekgggg AND CONTINUE IN TEST.
BELL WILL RING AT COMPLETION

SWITCH SETTINGS ARE:

SW15=1
SW14=1
SW13=1
SW11=1
SW4& =1
SW3 =0
SW2 =1

OR
OR
OR
OR
OR
OR
OR

UP...HALT ON ERROR
UP...SCOPE LOOP
UP...INHIBIT PRINTOUT
UP...SINGLE ITERATIONS ONLY
UP...ENABLE SYNCHRONIZATION TESTS
DOWN...ADJUSTS DELAYS FOR 11/60, 11/70 OR 11/45 WITH MOS OR SIPOLAR ME
UP...CLK2 PRESENT=EXECUTE REPEATABILITY TESTS

3.2

SUBROUTINE ABSTRACTS

5.8.1

SCOPE
THIS SUBROUTINE CALL

IS PLACED BETWEEN EACH SUB-TEST IN THE

BASIC TEST SECTION.
IT RECORDS THE STARTING ADDRESS OF EACH
SUB-TEST AS IT IS BEING ENTERED.
IF A SCOPE LOOP IS REQUESTED,
IT WILL JUMP TO THE START OF THE SUB-TEST INDICATED BY ''SCOPE’".

5.2.2

HLT

THIS SUBROUTINE CALL PRINTS THE ADDRESS THAT TAGS THE FAILING
SUB-TEST AND THE CONTENTS OF THE CONTROL AND STATUS REGISTER,
COUNTER, AND '‘TEWP'',

ERRORS
ERROR PRINTOUT FORMAT
WITH SW13=0 (OR DOWN) THE FOLLOWIG PRINTOUT WILL APPEAR ON
AN ERROR:

PC
XXXXXX

STATUS
XXXXXX

= ADDRESS OF TEST WHERE ERROR OCCURRED

STATUS

COUNTER
TENP
XXXXXX
XXXXXX

= CONTENTS OF COMMAND AND STATUS REGISTER AT TIME OF ERROR

COUNTER = CONTENTS OF COUNTER AT TIME OF ERROR
TEMP
= CONTENTS OF ADDRESS “‘TEMP'' USED BY SOME TESTS.
NOTE:

6.2

NOT ALL OF THE INFORMATION PRINTED IS INTENDED
TO BE USEFUL FOR EVERY TYPE OF ERROR.
THIS IS SIMPLY
A STANDARD ERROR REPORT FOR ALL ERRORS.
THE OPERATOR
MUST REFER TO THE PROGRAM LISTING AT THE ADDRESS OR
THE ERROR FOR A DESCRIPTION OF THE CAUSE OF THE ERROR.

ERROR RECOVERY
WITH SWITCH 15=1

(OR UP)

THE PROGRAM WILL HALT ON AN ERROR.

DEPRESS ""CONTINUE' TO RESUME TESTING.

(ZKWBJO KW11=-P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55

MACY11

30A(1052)

19~APR-78

E
09:58

1
PAGE 4
SEG 0004

166
167
168

RESTRICTIONS

OPERATIONAL RESTRICTIONS
FOR PURPOSES OF

TESTING THE EXTERNAL FREQUENCY SELECTION IT

IS NECESSARY TO SUPPLY A KNOWN FREQUENCY TO THE EXTERNAL FRE-

QUENCY INPUT. THIS PROGRAM USES THE INTERNAL 60HZ FOR ITS
SOURCE.
TO DO THIS IT IS REQUIRED THAT A JUMPER WIRE BE CONNECTED BETWEEN PINS CF1 AND DA1 OF THE SLOT IN WHICH THE CLOCK
MODULE IS INSERTED.
IF THIS IS NOT DONE, THEN THE PROGRAM MUST
ALWAYS BE RUN WITH SW0=0 TO SUPPRESS THE EXTERNAL TESTS.

* IF A SECOND P CLOCK IS BEING USED FOR TEST PURPOSES, SET
THE SWITCH REG = 000004 TO ENABLE TESTS T25 AND T26, DURING

THE BASE TEST

MISCELLANEOUS
EXECUTION TIME
BASIC TEST REQUIRES 11 SECONDS PER PASS W/0 ITERATIONS 66 WITH.
TIMING TEST REQUIRES 4 MINUTES PER PASS.
DOUBLE OR SINGLE REAL TIME CLOCK TEST-DETERMINED BY OPERATOR
SUGGESTED EXECUTION TIMES ARE:
1.
IF THE SINGLE CLOCK TEST IS RUN WITHOUT BEING FOLLOWED
BY THE DUAL CLOCK TEST: 17 MINUTES FOR EACH FREQUENCY (100KHZ,10KHZ,60KHZ)

IF THE SINGLE CLOCK TEST IS FOLLOWED BY THE DUAL TEST

RUN SINGLE CLOCK TEST FOR ONE MINUTE (FOR EACH FREQUENCY)
RUN DUAL CLOCK TEST FOR FIFTY SECONDS (10 PRINTOUTS) (FOR EACH FREQUENCY)

NOTE:THIS TIME NOMINAL TIME FOR PDP-11/05

OTHER C.P.U."'S THE TIME WILL VARY

PROGRAM DESCRIPTION

THE PROGRAM CONSISTS OF THREE SECTIONS:
THE BASIC TEST
THE
TIMING TEST AND THE REAL TIME CLOCK TEST.
THE BASIC TEST CHECKS EACH OF
THE INDIVIDUAL BITS IN THE CONTROL AND STATUS REGISTER, COUNT SET BUFFER., AND

REPEATABILITY.
THE TINING TEST USES ALL CLOCK FREQUENCIES TO
RING THE TELETYPE BELL AT 10 SECOND INTERVALS.
THE CLOCK TEST PROVIDES A REAL TIME CLOCK
WHOSE ACCURARCY CAN BE MEASURED AGAINST AN
ACCURATE EXTERNAL SOURCE.

—d

d —d — —

NO w»nSs~wWN

LS LSTLST
VY NN

COUNTER ALONG WITH PROPER OPERATION UNDER INTERRUPT CONTROL
(SINGLE OR REPEATED INTERRUPTS) COUNT UP OR COUNT DOWN, AND

9.3

BASIC TEST
TEST

DESCRIPTION

TO THRU T9

TEST THAT CSR, COUNT SET BUFFER AND COUNTER

BITS MAY BE

SET AND CLEARED.

(ZKWBJO KW1i=P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55

222
223
224
225
226
227
228
229
230
2N
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266

267
268
269

270
271
272
273
274
275
276
277

MACY11

30A(1052)

19-APR-78

09:58

PAGE §
SEQ 0005

9.2

T10 THRU TN

TEST FIX(BITS5)

T12 THRU T15

TEST CLOCK TO COUNT uP.

T16 THRU T19

TEST CLOCK TO COUNT DOWN.

T20 THRU T24

TEST

T25 THRU T26

TEST REPEATABILITY BY CHECKING THAT THE COUNTER
CONTAINS THE SAME NUMBER OF COUNTS OVER TWO
EQUAL PERIODS OF TIME.

TO SINGLE CLOCK COUNTER.

INTERRUPT MODES.

TIMING TEST
THIS TEST USES THE REPEATED

INTERRUPT MODE TO RING THE

TELETYPE

BELL AT 10 SECOND INTERVALS.
FIRST THE BELL IS RUNG A! 10 SECOND INTERVALS FOR 1 MINUTE USING 100HKZ, FOLLOWED BY 1 MINUTE
AT 10KHZ FOLLOWED BY 1 MINUTE AT LINE FREQ.(60HZ OR 50HZ) AND
;£;U¥HO=1) 1 MINUTE AT LINE FREQ. USING EXTERNAL FREQUENCY

9.3

DOUBLE OR SINGLE REAL TIME CLOCK TEST

9.3.1

SINGLE CLOCK REAL TIME TEST
THE 24 HOUR CYCLE:

THIS TEST TRANSFORMS YOUR COMPUTER INTO AN
ACCURATE DIGITAL "WALL CLOCK.'" A NORMAL

CLOCK'S 12 HOUR CYCLE HAS BEEN REPLACED BY
A 24 HOUR CYCLE.
EXAMPLES OF THE 24 HOUR CYCLE FOLLOW:
ACTUAL TIME

MIDNIGHT

8:32 AN
12 NOON
2:15 PM

11:30 PH

PRINTOUT
HRS
o0

MINS
00

. BE S
12
+
00
R
ds

ol
:
e

SECS
TENTHS+HUNDRETHS OF SECS.
00
.
B

00
N

SR
.
e

00
W

9.3.1.1 ENTERING THE TIME
THE CLOCK CAN BE UPDATED BY HOLDING THE CTRL KEY COWN
AND TAPPING THE I KEY.
THE CTRL KEY IS THEN RELEASED,
AND THE STARTING TIME IS ENTERED.
THE MOST SIGNIFICANT HOUR DIGIT IS ENTERED FIRST.
THIS DIGIT MUST BE A ZERO, A ONE OR A TWO.

THE LEAST SIGNIFICANT HOURS DIGIT IS ENTERED NEXT FOLLOWED BY
THE TWO MINUTES DIGIT, FOLLOWED BY THE TWO SECONDS DIGIT.
THE FRACTION OF A SECOND DIGITS ARE NOT ENTERED.
THE
USER WILL ENTER A TOTAL OF SIX DIGITS WITH NO SPACES, COLONS,
OR ANY OTHER CHARACTERS BETWEEN DIGITS.
THE USER MUST

(ZKWBJO KW11=-P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55

278
279
280
281
282
283
284
285
286
287
288
289
290
2N
292
293
294
295
296
297
298
299
300

301
302
303
304
305
306
307

MACY11

30A(1052)

19-APR-78

6
09:58

1
PAGE 6
SEC 0006

ENTER A TIME THAT WILL OCCUR A HALF MINUTE OR MORE
IN THE FUTURE, TO ALLOW ENOUGH TIME TO ENTER THE REQUIRED
INFORMATION.
AFTER THE INFORMATION HAS BEEN ENTERED, THE

USER MONITORS THE TIME STANDARD.
WHEN THAT STANDARD REACHES
THE TIME ENTERED VIA THE KEYBOARD, THE USER HITS THE
CARRAGE RETURN (CR) KEY TO START THE CLOCK.
NOTE THAT THE CHARACTERS WILL NOT BE PRINTED
OUT AS THE TIME IS BEING ENTERED.

9.3.1.2 READING THE TIME
TO PRINT THE TIME, DEPRESS THE CTRL KEY.
WHILE HOLDING
THE CTRL KEY DOWN, SMARTLY TAP THE T KEY.
THE TIME WHICH
CORRESPONDS TO THE INSTANT THAT THE T KEY WAS DOWN, WiLL
BE PRINTED OUT.
THE FORMAT OF THE PRINTOUT WILL BE SIMULAR
TO THAT SHOWN IN THE 24 HOUR TIME EXAMPLE.
THE
ONLY DIFFERENCE WILL BE THE ABSENCE OF SPACES.

9.5.1.3 TIME REFERENCES
SINCE THE SYSTEM CLOCK IS MORE ACCURATE THAN MANY WRIST
WATCHES, IT IS A GOOD IDEA TO USE AN ACCURATE TIME STANDARD.
MANY TELEPHONE COMPANIES PROVIDE A NUMBER WHERE
THE TIME, SYNCHRONIZED TO THE NATIONAL BUREAU OF STANDARDS
RADIO STATION (WWV), IS AVAILABLE.
CONSULT WITH YOUR LOCAL
TELEPHONE COMPANY TO SEE IF THIS SERVICE IS AVAILABLE IN YOUR AREA.

9.3.1.4 PROCEDURE FOR SINGLE CLOCK REAL TIME TEST.
1.

PERFORM THE BASIC TEST, PRIOR TO THE PERFORMANCE OF
THIS TEST.
PROCEED ONLY IF THE BASIC TEST HAS PASSED.

LOAD ADDRESS 214 VIA THE SWITCH REGISTER, (100KHZ TEST)

PLACE ALL ZEROS IN SWITCH REG., DEPRESS START

EXAMINE

YOUR TIME REFERENCE,

AND SELECT A TIME

THAT

:é%gogkkou YOU ENOUGH TIME TO ENTER THE TIME VIA THE

ENTER THZ TIME, AS DESCRIBED PREVIOUSLY.

START THE CLOCK (HIT THE CR KEY) AT THE INSTANT THE

TIME REFERENCE CORRELATES WITH THE TIME ENTERED.

MONITOR YOUR TIME REFERENCE, EXACTLY 1 MINUTE

THE ONE MINUTE TIME ERROR SHOULD BE WITHIN ONE SECOND
OF THE ACTUAL TIME.

IF THE RESULY OF STEP 8 IS NOT WITHIN ONE SECOND,
ALLOW EXACTLY ONE MORE MINUTE TO PASS (FROM THE ORIGINAL
START TIME).
READ THE TIME AGAIN.
IF THE TOTAL ERROR
DOUBLED, THE BOARD IS DEFECTIVE.
IF THE ERROR IS CONSTANT,

FROM THE TIME YOU STARTED THE CLOCK, READ THE PROGRAM
CLOCK AS DESCRIBED PREVIOUSLY.

(ZKWBJO KW11-P RT CLK TST
CZKWBJ .P11
19-APR-78 09:55

MACY11

30A(1052)

19-APR-78

RESTART THE TEST.

10.+« IF

THE ONE MINUTE TEST WAS PASSED, ALLOW THE TEST TO

RUN FOR EXACTLY 16 MINUTES MORE.

16TH MINUTE INTERVAL, READ
BE WITHIN THREE SECONDS OF
THE BOARD IS DEFECTIVE. IN
REAL TIME TEST IS GOING TO
CAN BE OMITTED.

340

341

342
343
344
345

THE EXACT END OF

THE

THE CLOCK.
IT SHOULD
THE CORRECT TIME.
IF IT IS NOT,
THE EVENT THAT THE DUAL CLOCK
BE PERFORMED, THIS STEP
:

11. LOAD ADDRESS 220 VIA SWITCH REGISTER,
DEPRESS START (10KHZ TEST)
REPEAT STEPS 3-10

12. LOAD ADDRESS 224 VIA SWITCH REGISTER,
DEPRESS START (224 IF 60HZ, OR 230 IF SOHZ LINE TEST)
REPEAT STEPS 3-10
*

THE DURATION OF THIS TEST IS ARBITRARY, IT IS NOMINALLY
A THOUSAND SECOND TEST.
LONGER TESTS ARE PERMISSIBLE.
THE RESULTS OF LONG TERM TESTS SHOULD BE WITHIN (PLUS OR MINUS)

1 MINUTE FOR A 24 HR TEST.

NOTE THAT THE TIME CAN BE READ AT ANY POINT WITHIN
THE TEST WITHOUT AFFECTING THE TEST.

9.3.2

DUAL CLOCK REAL TIME CLOCK TEST
THE USE OF A TEMPORARY CLOCK (REFERED AS COW) REDUCES THE TIME
REQUIRED FOR THE REAL TIME TEST.
THE SECOND CLOCK INTERRUPTS
THE FIRST CLOCK EVERY FIVE SECONDS.
THE DURATION OF THE COMBINED

REAL TIMES TESTS, WHEN THE DUAL CLOCK TEST IS USED IS

1 MIN : 50 SEC/FREQ VERSUS 17 MIN/FREQ FOR THE

SINGLE CLOCK REAL TIME TEST ALONE.

THE DUAL CLOCK TEST REQUIRES THAT THE CLOCK BE STARTED AS IN
THE SINGLE MODE.
RAISING SWITCH#2 CAUSES THE PRINTOUT
TO OCCUR AUTOMATICALLY.

THE COW MODULE SHOULD ONLY BE INSTALLED IN THE SYSTEM WHILE

THIS DIAGNOSTIC IS PEING USED.

TO CONVERT A STANDARD P CLOCK TO A ''COW'' MODULE:

385

387
388
389

1
PAGE 7

SEQ 0007

334
335
336
337
338
339

346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384

H
09:58

REMOVE JUMPER A4

CSR=772560
(SB=772562
CTR=772564

ADD JUMPER V8

VECTOR LOCATION IS 504
PSW
s
" 506

(ZKWBJO KW11-P RT CLK TST
(ZKWBJ .P11
19-APR-78 09:55

390
3N
392
393
394
395
396
397
398
399
400

MACY11

30A(1052)

I
09:58

1
PAGE 8
SEQ 0008

NGTE:

THIS VECTOR IS IN FLOATING VECTOR SPACE,CAUTION IS ADVICED
WITH RESPECT TO ALLOWING VECTOR CONFLICTS.

9.3.2.1

PROCEDURE

40
402
403
404
405
406
407
408
409
410
411
412
413
414
415

FOR DUAL CLOCK REAL

TIME

CLOCK TEST

LOAD ADDRESS 214, DEPRESS START (100KHZ TEST)

ENTER THE TIME VIA THE TTY KEYBOARD AS DESCRIBED PREVIOUSLY

SET THE SWITCHES IN THE SWITCH REGISTER TO 000004,

CONSECUTIVE PRINTOUTS WILL BE WITHIN 5.00 PLUS OR
MINUS .01 SECONDS OF EACH OTHER.
ALLOW THE TEST TO
RUN FOR AT LEAST TEN PRINTOUTS.
IF THE TOLERANCE IS
EXCEEDED, THE CLOCK IS DEFECTIVE.

LOAD ADDRESS 220, DEPRESS START (10KHZ TEST)

REPEAT STEPS 2-4

LOAD ADDRESS 224,

THE TTY WILL PRINT THE TIME AT 5 SECOND INTERVALS

IF 60MZ, OR 230 IF SOHZ DEPRESS START (LINE TEST)

REPEAT STEPS 2 £ 3

416

417
418
419
420
621
422
423
424
425
426
427
428

19-APR-78

CONSECUTIVE PRINTOUTS WILL BE WITHIN 5.00 PLUS OR
MINUS .04 SECONDS OF EACH OTHER.
TYPICALLY, AND

5.00 PLUS OR MINUS .2 SECONDS WORST CASE, DUE

TO POSSIBLE AC LINE FREQUENCY VARIATIONS.

TEST TO RUN FOR AT LEAST TEN PRINTOUTS.
IS EXCEEDED, THE CLOCK IS DEFECTIVE.

10.

ALLOW THE

IF THE TOLERANCE

THIS KW11~P DIAGNOSTIC WILL GO OUT & FIND IF THIS SHOULD

RUN WITH CPU THAT HAS A SWITCK REG. OR WILL RUN WITH A PDP-11/04
THAT HAS NO SWITCH REGISTER.
IF CPU HAS NO SWITCH REG.

LOCATION 176 EQUALS SOFTWARE SWITCH REGISTER. IN THE ABOVE TEST

TYP!:SDRG(CONYROL-G) WILL ALLOW YOU TO ENTER/ALTER THE SOF TWARE SWITCH SETTINGS

(ZKWBJO KW11-P RT (LK TST
CZKWBJ .P11
19-APR-78 09:55

MACY11

30A(1052)

19-APR-78

09:58

PAGE 9

SEQ 0009

4%8

LTITLE

431
632
433
434
435
436
437
438
439

.SBTTL
BASIC TEST
:COPYRIGHT 1971, 1978 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
:JOHN RODENHISER/JIM LACEY
.ENABL AMA,ABS
.=0
:TRAP CATCHER 0-200
.=30
PRINT
340

440
441
442
443
444
445
446
447
448
449
450
431
452
453
454
455
456

22;
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484

000000

000030
000032

000034
000036

000046

000200
000204
000210
000214
000220
000224
000230

000030

005650
000340

006150
000340
000046
005174
104000
177776
000240
104400
000176
000776
000200
000137
000137
000137
000137
000137
000137

000137

001002
001004
001006
001010
001012
001014
001076
001020
001022
001024
001026
001030
001032
001034

001000
172540
172542
172544
000104
000106
177566
177564
000000
000000
000001
177740
177730
160000
160000
177700

001036

177660

001000

001040
001042
001044

140000
140000
177570

001046

012706

CZKWBJO KW11-P RT CLK

SCOPEC
340
.=46
LOGICAL
HLT=EMT
CC=177776
NOP=240
SCOPE=TRAP
SOFTSR=176
BUFF=776
.=200
JMP
S#BEGIN2
JMP
@#BEGIN
JMP
S#BEGINT
JMP
aNK100H2
JMP
K10HZ
JMP
aMH602

001046
001150
005210
006714
007000
007064
007150

JMP

CSR:

(SB:
CTR:
CKV:
CKVS:
TDBR:
TCSR:
TEMP1:
TERP:
ICOUNT:
DEL1:
DEL2:
DEL3:
DEL4:
ADJ:

aH502

.=1000
172540

000776

;START BASIC TEST
sRESTART BASIC TEST
sSTART TIMING TEST
;DOUBLE OR SINGAL CLK
;:DOUBLE OR SINGLE CLK
;DOUBLE OR SINGLE CLK
;DOUBLE OR SINGLE CLK

TEST. 100KHZ.
TEST. 10KHZ.
TEST. 60HZ.
TEST. 50HZ

;COUNT SET BUFFER
s COUNTER
sCLOCK VECTOR ADDRESS

sDELAY ADJUSTMENT FOR 11/70
: B 11/45 WITH MOS MEM.
:
:
:

=40000
=40000
177570

BEGIN2: MOV

;SOFTWARE SWITCH REGISTER

;CONTROL AND STATUS REGISTER

172542
172544
104
106
177566
177564
O
O
1
=40
=50
-20000
-20000
-100
=120

SR:

TST

#BUF
, %6
F

CZKWBJO KW11-P RT CLK TST
CZKWBJ 11
19-APR-78 09:55

485

486

487

488
489
490
49
492
493
494
495
496
497

498
499
500
501

502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520

521
522
523
524
525
526
527
528
529
530
531

532
533
534
535
536
537
538
539
540

001052
001060
001062
001066
001072
001076
001102
001106
001114
001120
001124
001132
001140
001144

012737
005737
012637
012737
012737
012702
004737

006436
006266
011652
011610
000004
001230
177060
000004
177777
000001
006540
006266

001150
001154
001160
001164
001172
001176
001202
001206
001212
001220
001224

012706
004737
004737
012737
005077
005037
005037
005037
012737
005037
000137

000776
011652
011610
005572
005442
001020
006250
001016
001254
005764
001254

001230
001232
001236
001244
001250

022626
012637
012737
005037
000137

000004
000005
006252
001150

001254
001260
001266
001274
001276
001304
001306
001310
001312
001314
001320
001326
001330

001332

013746
012737
012777
000005
032777
001413
104000
000411
022¢€26
012637
032777
001352
000000
000750

001334
001340
001342
001350
001354
001356
001360

012637
104400
012777
005777
001401
104000
012737

023737
001404
012702
004737
004737
004737
013746

000042

MACY11

30A(1052)

000046

CMP

18:

000004

006252
001022

000024

000004
001312
100377

000004
177504

100377

177474

1%
#MSG3,

JSR

X7,SWADJ

JSR

X7,

JSR

1
PAGE

10
SEQ 0010

a6
%2

TOP

X7 ,DELADJ

MOV
MoV
TST
Mov
MOV

ars,-(%6)
#XOR,a#4
a¥177060
(X6)+,an4
#-1,3#X0RFLG

MOV

#BUFF , %6

;UNDER ACT ?

;YES=SKIP TITLE PRINT OUT

sPRINT TITLE

;HAS THIS CPU HAVE A SWITCH REG.?

;1S ADJUSTMENT IN DELAY REQUIRED

#1,a#1COUNT
#XORM,
X2
x7,70P

JSR
JSR
MOV
CLR

X7,SWADJ
X7 ,DELADJ
#PWRF1,24
aPsv
TEMP
SCOPEF
TEMP1

Mov
CLR
JHP

#T0,RETURN
PRINT1
10

XOR:

CHP

(X6)+,(X6)+

TO:

MOV
MOV
MOV
RESET
BIT
BEQ

@#,-(%6)
#CSRT,a
#100377,aCSR

:SET UP STACK FOR SCOPE LOOPS

;HAS THIS CPU HAVE A SWITCH REG.?
;1S ADJUSTMENT IN DELAY REQUIRED
;INIT POWER FAIL POINTER
:CLEAR PROC. STATUS REG.
;INIT.

SCOPEF

TAG

sSET UP RESTART OF PROGRAM
sINITIALIZE ERROR PRINTOUT READING

MOV
(X6)+, a8
MoV
#5,3#1COUNT
CLR
@#XORFLG
JHP_
SMBEGIN
:TEST INIT TO CLEAR CONTROL AND STATUS REGISTER

000004
040000

are2,

CLR
CLR
CLR

006264

K
09:58

BEQ
MOV

MoV
Mov
JSR
BEGIN:

001022

19-APR-78
BASIC TEST

CSRT:

177516

CMP

MOV

BIT
BNE

HALT
BR

#100377,aCSR
T1
:ERROR,

INIT FAILED TO CLEAR ALL BITS OF

CSR.

(X6)+,(X6)+

(%6)+,al4

#40000,asR
TO
10

:NO SSYN FROM DEVICE

:TEST COUNT SET BUFFER

000004

T1:

177777
177426

177432

177777

001020

MOV
SCOPE
MOV

TST
BEQ
HLT

MOV

(%6)+,ak

#-1,aCSB

acsB
.+4

#-1,34TENP

;ERR, FAILED TO GIVE ZERO'S FROM WRITE ONLY REG.

CZKWBJO KW11-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55

541

001366
001374
001402
001404

012777
023777
001401
104000

547
001406
548
001412
549
001414
550 001422
551
001430
552
001432
553 001434
554
001440
555
556
001442
557
001444
558 001450
559 001456
560
001464
001470
561
562
001472
563 001500
564
001502
565
566 001504
567 001506
568
001512
569 001520
570
571
001526
572 001534
573 001552
574 001546
575
001552
576 001556

005037
104400
013777
023777
001401
104000
005237
001365

542
543
544

545

546

577
578
579
580
581
582
583
584
585
586
587
588
589
590
5N
592
593
594
595
596

001560
001566
001570

001572
001574
001602
001604
001610
001612
001614
001616
001624

001632

001634
001636
001644
001652
001654

104400
005077
012777
013737
005237
001375
022777
001401

000000
001020

MACY11
177410
177402

177360
177354

001020

T13:

177330
177777
001030
001020

177324
001020

177777

177304

012777
017700
012777
017700
005237
001363
022777
001401
104000
104400

012777
000005
005777
001401

177266
177777
001030

18:

MoV
CMP
BEQ
HLT

#0,aCTR
S#TEMP,aCTR
L

CLR
SCOPE
MoV
CMP
BEQ
HLT
INC

TEMP

1
PAGE

SEQ 0011

;CTR CHANGED WHEN WRITTEN TO

TEMP,aCSB
TEMP ,aCTR
e
TEMP
T3

;ERROR, CTR NOT=TEMP
:+1 TO COUNT PATTERN

CLR
Mov
MOV
INC
BNE
CHP
BEQ
HLT

aCSR
#-1,3CSB
FDEL3,FTEMP
aNTEMP
18
#-1,3CTR
<t

CLR
MOV
MoV

aCSR
#-1,3CSB
S#DEL3,SFTENP

Mov
MoV
MoV
MoV
INC
BNE
CHP
BEQ
HLT

#177736,3CSR
aCSR, X0
#0,3CSR
aCSR,20
SFTEMP
1%
#-1,3CTR
44

:CTR CHANGED ALTHOUGH RUN 0

:TEST THAT CTR REMAINS CONSTANT WHEN CSR IS REF'D
T38B:
SCOPE
177262
001020

177736
177240
000000
177226
001020

177232

177777

177216

177244

18:

;CTR CHANGED BY CSR REF

;TEST INIT TO CLEAR COUNT SET BUFFER WHEN IT IS =-1

177777

177200

T4:

SCOPE

MoV
RESET
TST
BEQ
HLT

177174

104000

104400
012777
022777
001401
104000
012777
022777
001401
104000

L
09:58

BNE
;REPEAT UNTIL COUNT OVERFLOWS
:TEST THAT CTR REMAINS CONSTANT IF RUN CLEAR
T3A:
SCOPE

104000

104400
005077
012777
013737

19-APR-78
BASIC TEST

sTEST COUNT SET BUFFER TO ACCEPT A COUNT PATTERN
;TEST COUNTER TO CONTAIN COUNT SET BUFFER VALUE

001020
001020
001020

30A(1052)

#-1,3CS8
aCTR

sERROR,

;TEST RATE SELECT (BIT,2) MAY BE SET AND CLEARED

000002

177154
177146

000004
000004

177134
177126

1s:

SCOPE
Mov
CMP
BEQ
HLT
Mov
CMP
BEQ
HLT

INIT FAILED TO CLEAR CSB

#2,3CSR
#2,aCSR
4
#4,3CSR
#4,aCSR
.t

:ERROR, CSR NOT = 2

:ERROR,

CSR NOT = 4

599
600
601
602
603
604
605
606
607
608
609
610
611

612

613
614
615
616

617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634

635
636
637
638
639
640
641
642
643
644
645
646
647
648
649

650
651
652

001656
001664
001672
001674
001676
001702
001706
001710
001712
001714
001722
001730
001732
001734
001740
001744
001746

001750
001752

001760
001766
001770
001772
001776
002002
002004

002006
002010
002016
002024
002032
002034
002036
002042
002046
002050

012777
022777
001401
104000
005077
005777
001401
104000
104400

012777
022777
001401
104000
005077
005777
001401

000006
000006
177076
177072

000010
000010

177056
177050

104400

104000
005077
005777
001401
104000

104400
012737
012777
022777

001401

104000

005077
005777
001401

000020
000020

19-APR-78
BASIC TEST

MOV
CMP
BEQ
HLT
CLR
TST
BEQ
HLT
sTEST MODE (BIT
16:
SCOPE

Mmov

CMP
BEQ
HLT

177040
177034

104000

012777
022777
001401

30A(1052)

177020
177012

HLY
CLR
TST
BEQ
HLT

SEQ 0012

#6,aCSR
#6,3CSR
A

;ERROR, CSR NOT = 6

aCSR
aCSR
R

;ERROR,

3) CAN BE SET AND CLEARED

19:

176736
176732

104000

SCOPE
MoV
MoV
CHP
BEG
HLT
CLR
TST
BEQ
HLT

#10,aCSR

;ERROR, CSR NOT = 10

104400

005077
005037
013777
012777
032777
001001
104000
104400

005077
005037
013777
012777

T9A:

176720

001020
001020
000021
000001

176660
001020
001020
000020

176710
176700
176672

176650
176640

SCOPE
CLR
CLR
Mov
MOV
BIT
BNE
HLT
SCOPE
CLR
CLR
MoV
Mov

CSR NOT = 0

;ERROR, CSR NOT = 20

aCSR
aCSR
L

;ERROR, CSR NOT = 0
(BIT 6) CAN BE SET AND CLEARED

#340,CC
#100,aCSR
#100,3CSR
. t4

aCSR
aCSR
.4

:TEST RUN (BIT 0) CAN BE SET AND CLEARED
002052
002054
002060
002064
002072
002100
002106
002110
002112
002114
002120
002124
002132

CSR NOT
= 0

#10,aCSR
<t

sTEST INTERRUPT ENABLE

177776
176754
176746

1
PAGE

CLR
aCSR
TST
aCSR
BEQ
«th
HLT
;ERROR,
;TEST UP/DN (BIT 4) CAN BE SET AND CLEARED
17:
SCOPE
MoV
#20,3CSR
CHP
#20.3CSR

177002
176776

000340
000100
000100

09:58

aCSR
TEMP
TEMP,a(SB
#21,3CSR

#1,38CSR
. 4

:SET PROCESSOR PRIORITY LEVEL 7

;ERROR, CSR NOT = 100

sERROR, CSR NOT

]

597
598

MACY11

CZKWBJO KW11-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55

:START AT ZERO
:DISABLE INTERRUPT, COUNT UP, SET RUN
:CHECK IF ZERO IS STILL SET
:CSR LOST BIT O AFTER BIT INSTRUCTION

aCSR
TEMP
TEMP,a(SB
#20,aCSR

sSTART AT ZERO
;DISABLE INTERRUPT, COUNT UP, DO NOT SET RUN

(ZKWBJO KW11-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55

653
654
655
656
657
658
659
660
661
662

663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694

695
696
697
698
699

700
701
702
703
704
705
706
707
708

002140
002146
002154
002156
002160
002162
002166
002172
002200
002206
002214
002222
002224

052777
032777
001001
104000
104400
005077
005037
013777
012777
012777
032777
001401
104000

000001
000001

MACY11

30A(1052)

176632
176624

BIS
gig

002304
002306
002312
002316
002324
002332
002340
002342
002344
002350
002356

002360
002362
002366
002374
002402
002410
002414
002416
002424
002426
002434
002436
002442

104400
005077
012777
012737
012777
023777
001401
104000
005337
023727
001362
104400

005077
005077
012737
012777
023777
001401
104000
005237
023727
001362
104400
005077
012777

012777
013737
105777
100410

062737
001371
042777
104000
005777
001401

N
09:58

1
PAGE 13

#1,aCSR
01ziCSR
P

176612
001020
001020
000021
000020
000001

HLT
SCOPE

CLR
CLR
MoV
L [0]")
MOV
BIT
BEQ
HLT

176602
176572
176564
176556

002226
002230
002234
002242
002250
002256
002264
002266
002270
002274
002302

19-APR-78
BASIC TEST

SEQ 0013

;SET RUN
JCHECK IF BIT O IS SET
sCSR LOST BIT O AFTER A BIS

aCSR
TEMP
TEMP,aCSB
#21,aCSR
#20,aCSR
#1,aCSR
R A

INSTRUCTION

;START AT ZERO
;DISABLE INTERRUPT, COUNT UP, SET RUN
sLEAVE ALL SAME RESET RUN
;CHECK BIT 0
;BRANCH IF NOT SET

;CSR PICKED BIT O ON A MOV.

TEST FIX (BIT 5) TO SINGLE CLOCK COUNTER

; SET UP/DN (BIT &) =0 TO ENABLE COUNT DOWN

176544
177777
177776
000040
001020
001020
001020

176540
001020
176522
176520

T10:

SCOPE
CLR
MOV

T10A:

MOV
CHP
BEQ
HLT

MOV

DEC

000000

CHP
BNE

aCSR
#-1,3CSB
#-2,TENP
#40,3CSR
TEMP,aCTR
e 1

TEMNP

TEMP,#0
T10A

sERROR, COUNTER NOT = TEMP, DIDN'T COUNT DOWN

=1 TO PATTERN COUNT

sDONE ALL COUNTS?
:NO

sTEST FIX (BIT 5) TO SINGLE CLOCK COUNTER
sSET UP/DN (BIT &4)=1 TO ENABLE COUNT UP

176466
176464

000001
000060
001020
001020
001020

T11:

001020
176446
176444

000000

T11A:

000001
001024

000001

001020

000001

176344

176364

176342

aCSR
18]
#1,TENP
#60,3CSR
TEMP.,8CTR
R
TENP

sERROR, COUNTER NOT = TEMP, FAILED TO COUNT UP.
:+1 TO PATTERN COUNT

CHP
TEMP ., #0
;DONE ALL COUNTS ?
BNE
THA
:NO
sTEST CLOCK TO COUNT DOWN AT ALL FREQUENCIES
T12:

176406
176376
001020

CLR
CLR
Mov
MOV
chep
BEQ
HLT
INC

:100KkHZ

176412
000002

SCOPE

T12A:

T12B:

SCOPE
CLR
MOV
Mov

MOV
1ST8B
BMI
ADD
BNE
BIC

HLT
TST
BEQ

aCSR
#2,3CSB
#1,38CSR

SFDEL1,S#TEMP
aCSR

sCOUNT SET BUFFER TO 2
;DOWN COUNT , 100KkHZ., GO

T128
#1,30TENP
T12A
#1,3CSR
aCTR
R

sERROR, P INTR

(BIT 7) NOT = 1.

CZKWBJO KW11-P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55

709
710
n
712
713
714
715
716
717
718
719
720
721
722
723

724

725
726

727

728
729
730
731
732
733
734
735
736
737
738

739
740
741
742
743

744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761

762
763
764

002444

104000

002446
002450
002454
002462
002470
002476
002502
002504
002512
002514
002522
002524
002530
002532

104400
005077
012777
012777
013737
105777
100410
062737
001371
042777
104000
005777
001401
104000

002534
002536
002542
002544
002550
002556
002564
002572
002576
002600
002606
002610
002616
002620
002624
002626

104400
005737
100432
005077
012777
012777
013737
105777
100410
062737
001371
042777
104000
005777
001401
104000

002630
002632
002640
002642
002646
002654
002662
002670
002674
002676
002704
002706

104400

002714
002716

002722
002724

032777
001432
005077
012777
012777
013737
105777
100410
062737
001371
042777
104000
005777
001401
104000

MACY11

30A(1052)

19-APR-78
BASIC TEST

B
09:58

2
PAGE 14

HLT

: 10KHZ

T13:

176324
000002
000003
001026
176276

176320
176310
001020

000001

001020

000001

176256

176254

T13A:

T138:

SCOPE
CLR
MOV
MOV
MOV
1STB
BMI
ADD
BNE
BIC

HLT

TST
BEQ
HLT

;ERROR,

aCSR
#2,aCSB
#3,3CSR
a#DEL2,¥TEMP
aCSR

T14:

176230
000002
000005
001030
176202

176224
176214
001020

000001

001020

000001

176162

176160

SCOPE
TST

BMI
CLR

T14A:

MoV
MoV
MoV
TSTB
BMI
ADD

BNE
BIC

T14B:

176204

176132
000002
000007
001032
176104

176126
176116
001020

000001

001020

000001

176064

176062

T15:

T138

T13A
#1,aCSR
aCTR
4

;ERROR,

P INTR

;ERROR,

COUNTER DID NOT COUNTDOWN TO 0

T15
aCSR
#2,aCsB
#5,3CSR
FDEL3 ,IFTENP
aCSR
T14B
#1,30TENP
T14A
#1,3CSR

:DOWN COUNT, LINE FREQ., GO

#1,35R
T16
aCse

:
3

MoV
Mov
T1S7T8
BMI

#7,3CSR
S#DELS ,SFTENP
aCSR
T158

;DOWN COUNT, EXT., GO

BNE
BIC

T15A
#1,3CSR

TST
BEQ

aCTR
=

HLT

104400
005077

;100 KHZ

176044

T16:

SCOPE
CLR

NOT = 1.

@#XORFLG

#2,3CSB

;ERRCR, P INTR (BIT 7) NOT=1

sERROR, COUNTER DID NOT COUNT DOWN TO 0

#1,32TEMP

JERROR, P INTR (BIT 7) NOT=1
sERROR,

sTEST CLOCK TO COUNT UP AT ALL FREQUENCIES
002726
002730

(BIT 7)

SCOPE
BIT
BEQ
CLR

ADD

T158:

10KHZ, GO

aCTR
.+

[ [1]]
T15A:

;DOWN COUNT,

HLT
TST
BEQ

HLTY
;EXT FREQ

000001

COUNTER DID NOT COUNT DOWN TO 0

#1,a0TEMP

;LINE FREQ.

006252

SEQ 0014

aCSR

COUNTER DID NOT COUNT DOWN TO 0

802
803
804
805
806
807
808
809
810
811
812
813
814
815
8i6

817
818
819
820

002734
002742
002750
002756
002762
002764
002772
002774
003002
003004
003010
003012
003014
003016
003022
003030
003036
003044
03050
003052
003060
003062
002070
003072
003076
003100
003102
003104
003110
003112
003116
003124
003132
003140
003144
003146
003154
003156
003164
003166
003172
003174

003176
003200
003206
003210
003214
003222
003230
003236

003242
003244

012777
012777
013737
105777

177776
000021
001024
176016

176040
176030
001020

062737
001371
042777

000C01

001020

000001

175776

100410

104000

005777
001401
104000
104400

175774

175756
177776
000023
001026
175730

175752
175742
001020

062737
001371
042777

000001

001020

000001

175710

104000

005777
001401
104000
104400

005737

100432
005077

012777
012777
013737
105777
100410
062737
001371
042777
104000
005777
001401
104000
104400

032777
001433
005077
012777
012777
013737
105777
100411
062737

T16A:

T16B:

005077
012777
012777
013737
105777

100410

30A(1052)

—fne

765
766
767
768
769
770
77
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801

MACY11

175706

000001

001020

000001

175614

175612

000001

Mov
MOV
MoV
TSTB
BMI
ADD
BNE
BIC
HLT
TST
BEQ
HLT

SCOPE
CLR
Mov
Mov

MoV
TSTB
8MI
ADD

BNE
BIC
HLY
TST
BEQ
HLT

TST
BMI

175656
175646
001020

175564
177776
000027
001032
175536

19-APR-78
BASIC TEST

1
sLINE
FREQ.
T18:
SCOPE

177776
000025
001030
175634

000001

T17A:

T178:

006252
175662

—_—

CZKWBJO KW11-P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55

CLR

T18A:

T188B:

175636

175560
175550
001020

001020

MoV
mov
MoV
TST8B
BMI
ADD
BNE
8IC
HLY
TST
BEQ
HLT

JEX T FREQ.
T19:
SCOPE
BIT

2
PAGE 15

#-2,3CSB
#21,aCSR
a¥DELT ,Q¥TEMP
aCSR

aCTR
e

;ERROR
;ERROR

aCSR
#-2,a(SB

#23,8CSR
@¥DEL2
M4 TEMP

;UP COUNT, 10 KHZ, GO

aCSR
T178
#1,30TENP

T17A

#1,3CSR

aCTR
44

:ERROR
;ERROR

MXORFLG

aCSR
#-2,aC58

#25,3CSR

SNDEL3S,
AP TENP

;UP COUNT, LINE, GO

aCSR
T188
#1,30TENP

T18A

#1,3CSR
aCTR

ADD

#1,30TENP

BMI

;UP COUNT, 100 KHZ, GO

T168

TSTB

CLR
Mov
MoV
Mov

sta 0015

1,aN0TEMP
T16A
#1,aCSR

#1,asR
120
aCSR
#-2,3CSB
#27,3CSR
SFDELL,SITENP
aCSR

BEQ

T19A:

c
09:58

T198

;ERROR

:ERROR

:UP COUNT, EXT FREQ, GO

CZKWBJO KW11=-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55

821
822

823

824
825
826
827
828
829
830
831

832
833
834
835
836
837
838
839
840
841

842

843
844
845

846

847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
366
867
868

869
870
871
872
873

874
875
876

003252
003254
003262
003264
003266
003272
003274
003276
003300
003306
003312
003316

003324
003332
003340
003346
003352
003354
003362
003364
003366
003374
003400
003402
003404
003412
003414
003416
003422

001371
042777
104000

000005
005777
0014017
104400
012737
005077
005077
012777
012777
012777
013737
005237
001375
042777
104000
000420
017737
105737
100401
104000

032737
001401
104000
005077
012706

005237
001375
042777
104000.
000404
005077
012706

003522
003524
003532

104400
012737
012777

003572
003574

104400
012737
012777
005077
012777
012777
013737

005077
012777
012777
013737
005237
001375
005077

30A(1052)

175516

175512

T198:

104000

003426
003430
003436
003444
003450
003456
003464
003472
003476
003500
003506
003510
003512
003516

003540
003544
003552
003560
003566

000001

MACY11

19-APR-78
BASIC TEST

BNE
BIC
HLT
RESET
TST
BEQ
HLT

D
06:58

2
PAGE 16
SEQ 0016

T19A
#1,3CSR
;ERROR,

aCTR
RV

;ERROR,
S TEST '“ngfig'f""“’T OCCURS TO PROPER VECTOR WITH PROCESSOR PRIORITY 4

000200
175476
175462
000002
003366
000101
001024
001020

000001

177776

175456
175454
175440
001020

MOV
CLR
CLR
MOV
MOV

18:

175416

MOV

#101,3CSR

INC
BNE
BIC

TENP
13
#1,3CSR

MOV

gfi'

175406
001020

001020

000001

001020

175356
000776
000240
003512
175330
000002
000101
001024
001020

000001

nov
MOV
CLR
MoV

nov

18:

#240,CC
#7214, 9CKV
aCsR
#2,3C58

175200

177776
175246

175230
175220
001020

INTERRUP,

FAILED TO OCCUR.

;SET PROCESSOR PRIORITY 5
:SET UP INTERRUPT RETURN STATUS

;ENABLE INTERRUPT

:ERROR,

CLR
MOV

aCsR
#BUFF,
%6

;RETURN HERE AFTER INTERRUPT

MOV
MoV
CLR
MOV

#300,CC
#T22A,3CKV
aCSR
#2,3CS0

:SET PROCESSOR PRIORITY 6
:SET UP INTERRUPT RETURN

SMDELT, INTENP
PTENP
13
#1,3CSR

isgsr ’"2203275""""

000300
003602
175234
000002
000101
001024
001020

;ERROR,

#101,3C5R

MOV
INC
BNE
BIC

:kt

T21A:

000776

;SET UP INTERRUPT RETURN VECTOR
:ENABLE INTERRUPT

MOV
aCSR,aFTENP
TSTB
S#TENP
BMI
.+
HLT
:DONE NOT SET ON INT.
BIT
#1,30TENP
BEQ
.+
HLT
:RUN NOT CLEARED
CLR
acsk
MoV
#BUFF .36
%sssr '”2}05275"“" OCCURS WITH PROCESSOR PRIORITY §

175272

175262

SIDELT, INTEMP

;SET PROCESSOR PRIORITY 4
:CLEAR INTERRUPT RETURN STATUS

T20A:

177776
175342
175324
175314
001020

#200,CC
ackvs
aCSR
#2,3CSB
#T20A,aCKV

IS INHIBITED WITH PROCESSOR PRIORITY 6

MOV

#101,3CSR

BNE
CLR

1%
aCSR

MOV
INC

INTERRUPT FAILED TC OCCUR

SIDELT, IFTEMP
NTENP

; INTERRUPT ENABLE

CZKWBJO KW11=-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55

877

878
879
880
881
882

883
834
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905

9C6
907

908
909
910
911
912
913
914
915
916
917
918
919
920
921

922

923
924
925
926
927
928
929
930
931
932

003600
003602
003610
003612
003616
603620
003526

003632
003640
003646
003654
003662
003670
003672
003700
003702
003706
003712
003714
003722
003730
003736
003744
003752
003760
003762
003770
003772
003774
003776
004002
004004

000406
042777

000001

012706

000776

104000

104400
012737
005077
012777
012777
012777
013737
062737
001374
042777
104000
005077
012706
104400
012737
012777
012777
012777
013737
062737
001374
042777
104000

000406
022626
005237
001360
005077

MACY11

175170

30A(1052)

T22A:

19-APR-78
BASIC TEST

BR
BIC
HLT

Mov

000200
175146
177776
003702
000121
001024
000001

175142
175140
175124
001020
001020

600001

175100

177776

175072
000776

T23AA:

T23A:

CLR
MoV
MoV
MOV
Mov

#BUFF %6

;ERROR, INT SHOULDN'T HAVE OCCURRED

(MODE 0) ON OVERFLOW

#200,CC

;SET PROCCSSOR PRIORITY 4

aCSR
#-2,aCSB
#T23A,aCKV
#121,aCSR
a#DEL1,NTEMP

#1,30TENP
T23AA
#1,3CSR

(LR

aCSR

MoV

PAGE

SEQ 0017

ADD
BNE
BIC
HLT

123
#1,aCSR

:TEST SINGLE INTERRUPT
T23:
SCOPE

Mmov

09:58

#BUFF
, %6

;SET INTERRUPT RETURN
: INTERRUPT ENABLE, UP COUNT, 100 KHZ, GO
;WASTE TIME

sERROR, INTERRUPT FAILED TO OCCUR.

sRETURN HERE AFTER INTERRUPT.

:TEST REPEATED INTERRUPT (MODE 1).

177700
003774
000010
000111
001024
000001

001016
175056
175044
175034
001020
001020

000001

175010

T24:

T24A:

T24B:

001016

174770

SCOPE
MOV
MoV
MOV
MOV
MOV
ADD
BNE
8IC
HLT
BR
(WP
INC
BNE
LR

#-100, TENP1

#724B,3CKV
#10,3CSB
#111,3CSR
S#DEL1,SFTEMP
#1,30TEMP
.6
#1,3CSR
T24C
(6)+,(6)¢+

TEMP1
T24A
aCSR

sRESET STACK

:SET UP COUNTER FOR INTER
sSET INTERRUPT RETURN
:SET UP COUNT SET BUFFER
: INTERRUPT ENABLE, REPEATED INTERRUPTS, 100 KHZ,

;ERROR, INTERRUPT FAILED TO OCCUR
;POP STACK

:38“5 100 INTERRUPTS?
;CLEAR CLOCK

sSYNCHRONIZATION TEST
;NO. 1 FOR
;KW11-P BOARDS THAT
sARE REV F OR GREATER
004010
004012
004014
004022
004024
004030
004036

004044
004050
004054

004056

104400
05003

032777
001002
000137
012777
012777
017700
020027
101404
G10037

T24C:

000020
004264
010000
000001
174734
010000

001020

175022

174744
174734

1%:

SCOPE
CLR
BIT
BNE
JMP
MOV
Mov
Mov
CMP
BLOS

Mov

#20,asR
1%
125
#10000,acsB
#1,aCSR

aCTR,%0
%0,#10000
2$
20,3#TEMP

sLOAD COUNTER

;GO COUNT DOWN, 100 kW2
sSAVE CTR
:DID COUNT INCREASE?
;BRANCH IF OK TO 18

CZKWBJO KW11-P RT (LK TST
CZKWBJ P11
19-APR-78 09:55

933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966

967

968
969
970
971
972
973
974

975
976
977
978
979

004062
004064
004066
004072
004074

104000
000404
005077
005203
001355

MACY11

30A(1052)

19-APR-78
BASIC TEST
HLT

174706

2%:

BR
CLR

124D
aCSR

BNE

INC

F
09: 58

PAGE 18
SEQ 0018

:SYNC ERROR
JEND TEST
;CLR CSR
:NO OF TIMES THROUGH PROGRAM DETECTS 2(16)

:2(16) YET, IF NOT GO BACK TO LOOP 1

sSYNCHRONIZATION TEST

;NO. 2 FOR KW11=-P
:BOARDS THAT ARE
JREV F OR GREATER
004076
004100
004104
004112
004116
004122
004130
004136
004144

104400
017746
012777
005037
005037
012777
012777
012777
012777

174702
000340

004246
006632
004240
000300

000010
000111

004152
004152
004160
004164
004170
004174
004200
004204
004206

012777
004737
005077
013701
004737
023701
001001
104000

000340
004250
002450
004246
004250
004246

004210
004210
004214
004222
004224
004230
004234

005237
022737
001353
012677
005077
000137

006632
000170
174556
174544
004264

005237

004246

004240
004240
004244
004244

000002

004246

000000

004250
004254
004256

105777

100375
110077

T24D:

002526
174656
174652
174636
174626

002460

LOOP:

174530

alkv,=-(26)
#340,aPsW
TIKTIK

CNT

#CLKSER ,aCKV

#300,aCKkvS
#10,aCsB
#111,3CSR

006632

CLKSER:

sSAVE CLOCK VECTOR

;PS=7 STOPS ALL INTRS

sCLEAR
sCLEAR
;SETUP
sSETUP

CLOCK COUNTER
ITERATION COUNT
INTR SERVICE RTN
INTR PSW

;KW11 COUNT = 10
:SET TO RUN @100KH
sINTR ENABLE & COUNT DOWN
sAND REPEAT INTR MODE

MOV
JSR
CLR
MoV
JSR
CHP
BNE
HLT

#340,3PSW
PC,TYPE
aPsV

TIKTIK,R1
PC,TYPE
TIKTIK,R1

18:

CLKXIT:

174540

SCOPE
MOV
MoV
CLR
CLR
MOV
MOV
MoV
Mov

;PS=7 STOPS ALL INTRS
:100MS DELAY aPR7
;PS=0 ALLOWS INTRS
;GET CURRENT CLK COUNT
:100MS DELAY @PRO
:ANY INTRS DURING DELAY?
:1F YES,GO TO 18
;ELSE THERE WAS AN ERROR
sCHECK FOR JUMPERS ON THE
;KW11-P BOARD NEAR I.C.
sLOCATIONS E41 & E51 ON REV F
:BOARD & GREATER ONLY

INC
CMP
BNE
MOV
CLR
JMP

CNT
#120.,CNT
LOOP
(X6) +,aCKV
aCSR
125

sAND GO TO NEXT TEST

INC

TIKTIK

:INC CLK COUNTER

RTI

TIKTIK:

TYPE:

TSTB
BPL
Mmove

:120 ITERATIONS?
:IF NOT,GO BACK TO LOOP

¢ELSE RESTORE THE VECTOR
sCLEAR CONTROL REG

;ELSE EXIT RN

aTCSR
TYPE

RO,aTDBR

:READY TO SEND
:BR IF NOT
;SEND THEM A MESSAGE

CZKWBJO KW11-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55

989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1030
1011
1012
1013
1014
1015

1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037

1038
1039
1040
1041
1042
1043
1044

004262

000207

004264
004266
004274
004276
004302
004306
004314
004322
004326
004332

104400

004334
004336

032777
001002
000137
005077
012777
012777
004537
105777

100001
104000
017737
005077

000004

174550

004740
174472
000000
000021
004416
174446

174466
174456

001020

174400
004446

001016

005077
012777
012777
105777
100375
000205

002154
001130
000021
002134

004446
004452
004456
004460
004462
004464
004470
004472
004474
004500

013700
013701

001020
001016

161001
100001
005401
022701
002401
005725
010137
000205

T25:

38:

SCOPE
BIT
BNE
JMP
CLR
MoV
Mov
JSR
1STB

174442
174430
000000
000021
004416
174404

004416
004422
004430
004436
004442
004444

104000

19-APR-78
BASIC TEST

09:58

PAGE

SEQ 0019

sTEST 100 KHZ REPEATABILITY

000432

104000

017737
004537

30A(1052)

RTS

004344
004350
004356
004364
004370
004374
004376
004400
004406
004412
004414

012777
012777
004537
105777
100001

MACY11

1s:

174424
174414

002144
002140

28:

DELY:

18:

CACL:

BPL
HLT
Mov
CLR
Mov
MoV
JSR
1STB

MOV

#4 3SR
3%
127
aCSR
#0,3CSB
#21,aCSR
R5,DELY
aCSR

aCTR,ANTEMP
aCSR
#0,3CSB
#21,3CSR
R5,DELY
aCSR

aCTR,IFTEMPT

:Eg

R5,CACL

T25A

CLR

Mov
MoV
TSTB
BPL

aCSR1

#1130,aCs81
#21,3CSR1
a(SR1
18

RTS

MOV
Mov

S#TEMP,RO
SNTERP1
,RY
?g.l1

000005

1$:

SuB
BPL
NEG
g:?

0o102¢

28:

:?g

TST

;ARE TWO CLK'S PRESENT
;BRANCH IF Swa2 IS UP
;EXIT IF ONLY ONE CLK
JSET CTR
;COUNT UP 100KHZ GO
;GO TO DELAY SUBROUTINE
;TEST DONE BIT SET

;DONE BIT SET TOO SOON
;DONE NOT SET SO SAVE CTR

sHERE WE ARE SAVING SEC CNT

;GO DETERMINE ACCURACY OF CNT'S

sDELAY SUBROUTINE

sWAIT 600 MIL.

sCOMPARE CTR1 WITH CTR2

R1
5:.R1

;DIFFERENCE MUST BE LESS THAN 5

(R5)+

sUPDATE RETURN

:;.TEHP

:DEFRENCE FOR PRINT OUT

;TEST 10 KHZ REPEATABILITY
:THIS TEST IS THE SAME AS T25 EXCEPT IT IS

004502
004504
004510
004516

104400

005077
012777
012777

;FOR 10KHZ.

174270
000000
000023

T25A:

174264
174254

SCOPE
CLR
MoV
Mov

aCSR
#0,aCsB
#23,8CSR

C(ZKWBJO KW11-P RT CLK TST
CZKwBJ.P11
19-APR-78 09:55

1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083

004524
004530
004534
004536
004540
004546
004552
004560
004566
004572
004576
004600
004602
004610
004614

004616
004620
004624
004626
004632
004640
004646
004652
004656
004660
004662
004670
004674
004702
004710

1084

004714
004720
004722
004724
004732
004736

1092
1093
1094
1095
1096
1097
1098
1099
1100

004740
004742
004746
004754
004762
004770
004776
005004
005006
005012
005014
005022
005024
005030
005034

1085
1086
1087
1088
1089
1090
1091

004537

105777
100001
104000

017737
005077
012777
012777
004537
105777

100001
104000

017737
004537
104000

104400

005737
100445
005077
012777
012777
004537
105777
100001
104000
017737
005077
012777
012777
004537
105777
100001
104000
017737
004537
104000
104400
005077

012737
012777
012777
013737
062737
001374
005777
100404
042777
104000
005077
005777
100001

MACY11

30A(1052)

004416
174244

19-APR-78
BASIC TEST

JSR

TSTB

BPL

174240
174226
000000
000023
004416
174202
174176
004446

001020

1%:

174222
174212

HLT
MoV
CLR
MoV

Mov
JSR

TSTB

BPL

001016

28:

HLT

Mov
JSR
HLT

174116
174104
000000
000025
004416
174060

174142
174132

001020

18:

174100
174070

ST
BMI
CLR
MOV
MOV
JSR
TSTB
BPL
HLT
MOV
CLR
MOV

MOV
JSR

TSTB

BPL
174054
004446

PAGE 20

SEQ 0020

R5,DELY

aCSR

aCTR,aNTEMP
a(SR
#0.aCsSB
#23,3CSR

R5,DELY

aCSR

aCTR,ANFTEMPT
R5,CACL

sTEST LINE REPEATABILITY
sTHIS TEST IS THE SAME AS T25 EXCEPT IT IS
;FOR LINE FREQ.
726:
SCOPE

006252

174146
000000
000025
004416
174122

09:58

001016

28:

HLT

MoV

:f?

A#XORFLG
T27
aCsR
#0,3CSB
#25,3CSR
RS,DELY
aCSR
18

aCTR,INTEMP
acsR
#0,aCSB

#25,aCSR
RS, DELY

aCSR

aCTR,A#TEMP

RS.CACL

;TEST ERROR (BIT 15) TO SET WHEN INTERRUPT IS NOT SERVICED IN REPEAT MODE

174032

000340
000002
000111
00102¢
000001

127:
177776
174020
174010

001020
001020

173766

000001
173750
173744

173756
18:

SCOPE
CLR
MOV
KOV
MOV
MoV
ADD
BNE
ST
BMI
BIC

18
#1,aCSR

CLR
ST
BPL

aCsR
aCSR
Rt

HLT

aCsR
#340,CC
#2,30SB

#111,3CSR
AFDELT,HTEMP
#1,
0 TENP
=6
aCSR

:SET PROCESSOR PRIORITY 7
*SET COUNTER FOR FAST INTERRUPTS
;INT EN, REPEATED INT. DOWN COUNT.

;ERROR, ERROR

(BIT 15)

NOT SET

100 KHZ. GO

(ZKWBJO KW11-P RT

CZKWBJ P11

WAN WWWMN
N NN
MNONIN = e b d

NN —=OVRNOVNSWN—-=OVo~NOWV

005036

005040
005042
005050
005056
005064
005072
005100
005102
005106
005110
005116
005120
005122
005126
005130
005132

005134
005142
005146
005150
005156
005162
005164
005170
005172
005174
005176
005200
005202
005204

CLK

TST

19-APR-78 09:55

MACY11

30A(1052)

104000

104400

012737
012777
012777
013737
062737
001374
005777
100404

042777

104000
000005
005777
100001
104000
104400

012777
105777

100375
012777
105777
100375

013702
001405
000005
004712
000240
000240
000240
000137

19-APR-78
BASIC TEST

1
09:58

2
PAGE 21
SEQ 0021

HLT

;TEST BIT 15 IS CLEARED BY INIT

000340
000002
000111
001024
000001

177776
173724

T27A:

173714
001020
001020

18:

000207
173646

173650

000000
173632

173634

a#DEL1,ANTEMP

TST

aCSR

BMI
BIC
HLT
RESET
TST
BPL
HLT
SCOPE

#111,3CSR

#1,30TEMP
« =0

1%
#1,3CSR

;BIT 15 NOT SET

aCSR
L

;BIT 15 NOT CLEARED BY RESET

;BELL ON PASS COMPLETE

TSTEND:

MOV

ISTB

MOV

000042
LOGICAL:

001150

Mov

ADD
BNE

173662

173652

#340,CC
#2,aCSB

MoV

173672
000001

SCOPE

MOV
MOV

;ERR, FAILED TO CLEAR WHEN REF.

TRPA:

1STB
BPL
MOV
BEQ
RESET
NOP
NOP
NOP
JWP

#207,3TDBR

aTCSR

#0,3TDBR

sSEND A NULL CHAR.

8TCSR
.=
an42, x2
TRPA
JSR

BEGIN

x7,(2)

CZKWBJO KW11=-P RT CLK TST
(ZKWBJ.P1i
19-APR-78 09:55

MACY11

1135
1136
1137
1138
1139
1140
;}2;

1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161

}}g%

1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
11764
1175
1176
1177
1178

005210
005214
005220
005226
005234
005242

012706
004737
013777
012777
012737
000005

000776
011652
001010
000002
005602

005244
005252
005256
005262
005270
005272
005274
005276
005302
005304
005312
005314

012777
012700
012701
012777
000001
005201
001375
105777
100375
012777
005200
001360
042777

141520
177772
177754
000111

005316

173560
173554
000024

173530

173510

173512
000207

000101

173500

173454

012777
012700
012701
012777
000001
005201
001375
105777
100375
012777
005200
001360
042777

1182
;}gz

005404
005410
005412
005420
005426
005430

005737
100677
012737
032777
001403
012737

001130
000002

005570
173416

000764

005570

1185
1186

005436
005444

013777
012700

005570
177772

173336

1188
1189
1190

005456
005460
005464

000001
105777
100375

1187

19-APR-78
BASIC TEST

09:58

PAGE 22
SEQ 0022

.SBTTL
TIMING TEST
¢RING TELETYPE BELL AT 10 SECOND INTERVALS USING REPEATED INTERRUPT MODE
:1ST MINUTE = 100 KHZ
:2ND MINUTE = 10 KHZ
:3RD MINUTE = LINE
;4TH MINUTE = EXTERNAL

005324
005332
005336
005342
005350
005352
005354
005356
005362
005364
005372
005374
005376

1179
1180
1181

30A(1052)

005450

012777

011610
177772
177754
000113

173450
173430

173432
000207
000101

173420
173374

006252

000115

173330

173322

BEGIN1: MOV
JSR
MoV
MoV
MoV
RESET
;100 KHZ
MoV
MoV
T28:
MOV
MoV
T28A:
WAIT
INC
BNE
TSTB
BPL
MoV
INC
BNE
.

129:

T29A:

st BIC

Mov
L
MoV

MOV

#BUFF %6
X7,SWADJ
CKVS,ackv
#RTI,aCKVS
#PWRF2,24

:HAS THIS CPU HAVE A SWITCH REG.?
;INIT POWER FAIL POINTER

#50000. ,3CsB
#-6,%0
#-20..%1
#111,3CSR

¢INIT COUNT SET BUFFER FOR .5 SECONDS
sCOUNT 6(10 SECOND) INTFRVALS
sCOUNT 20(.5 SECOND) INTERVALS
;100 KHZ, REPEATED INTERRUPTS, INTERRUPT ENABLE, GO

X1
T28A
aTCSR
.4
#207,37T0BR
X0
728
#101,3CSR

sDONE 10 SECONDS?
:NO

#5000.,aCSB
#-6,%0
#-20.,%1
#113,3CSR

:DONE 6 TIMES?
;NO

:YES DISABLE INTERRUPTS

sINIT COUNT SET BUFFER FOR .5 SECONDS
;COUNT 6(10SECOND) INTERVALS
sCOUNT 20(.5 SECOND} INTERVALS
;10 KHZ, REPEATED INTERRUPTS, INTERRUPT ENABLE, GO

WAIT
INC
3
;DONE
BNE
T29A
:NO
1578
aTCSR
;YES,
BPL
.=4
MoV
#207,8TDBR
INC
20
sDONE
BNE
129
:NO
BIC
#101,3CSR
:YES,
:SET UP FOR 10 SECONDS AT LINE FREQ.
18T
S/ XORFLG
BMI
BEGINT
MOV
#600.,LINE
BIT
#2,a5R
BEQ
.+10
i
Mov
#500. ,LINE

130:

Mov
Mov

Mov

WAIT
TSTB
BPL

LINE,aCsB
#-6,%0

#115,3C5R
aTCSR
.=

10 SECONDS?
RING BELL
6 TIMES?
DISABLE INTERRUPTS

s INITIALZE COUNT SET BUFFER FOR 10 SECONDS
:COUNT 6 (10 SECOND) INTERVALS

;LINE, REPEATED INTERRUPTS, INTERRUPT ENABLE, GO

0 O OO OO

@NO\JDJ\WNS

—
-t

0O
0

-d b

b od

b o

b
b e

CZKWBJO KW11=-P RT CLK TST
CZKwBJ.P11
19-APR-78 09:55

1200
1201
1202
1203
1204
1205
1206
1207
1208

1209

005466
005474
005476
005500
005506
005514

001367
042777
032777
001635

005516
005524
005530
005536
005540
005544
005546
005554
005556
005560
005566
005570

013777
012700
012777
000001
105777
100375
012777
005200
001367
042777
000610
001130

012777
005200

000207
000101
000001

005570
177772
000117

MACY11

30A(1052)

173316
173272
173330
173256

173242

173250

000207

173236

000100

173212

19-APR-78

TIMING TEST
Mov

INC
BNE
BIC
BIT
BEQ

K
09:58

2
PAGE 23

SEQ 0023

#207,3TDBR

:RING BELL
; DONE 6 TIMES

#101,aCSR
#1,asR

IYES==DISABLE INTERRUPTS

%0
T30

BEGIN
;EXTERNAL (LINE FOR MAINTENANCE)

T31:

LINE:

Mov
Mov
MoV
WAILT
TST8

BPL
MoV
INC
BNE
BIC
BR

600.

LINE,aCSB

#117,aCSR

H INITIALZE COUNT SET BUFFER FOR 10 SECONDS

;COUNT 6 (10 SECOND) INTERVALS
;EXT FREQ, REPEATED INTERRUPTS, INTERRUPT ENABLE

argsn

#207,aTDBR

20
131
#100,aCSR
BEGIN1

;RING BELL
:DONE 6 TIMES

:YES, DISABLE INTERRUPTS
REPEAT

’

MACY11

OVONOWV SN — o

e
d e
d
— e

d e

A 1AV IS T N TN T VY N TN n

CZKWBJO KW11=-P RT CLK TST
CZKWBJ PN
19-APR-78 09:55

1221

005572
005600
005602
005610
005616
005620
005624
005626
005630
005632
005636
005642
00,646

012737
000403
012737
012737
000000
012706
005000

005200
001376
012702
004737
000177
001150

001150

005646

005210
005620

005646
000024

000776

30A(1052)

19-APR-78
SUBROUTINES

PAGE 24

SEQ 0024

.SBTTL
SUBROUTINES
:POWER FAIL HANDLERS
PWRF1:
MOV
#BEGIN,PWRRTN
BR
PWRDWN
PWRF2:
MOV
#BEGIN1T,PWRRTN
PWRDWN: MOV
#PWRUP,
24
HALT
PWRUP:
MOV
#BUFF
, X6

CLR
INC
BNE

006472
006266
000000

09:58

Mov

PWRRTN:

JSR
JMP

BEGIN

%0
20
-

#MSGPW
X2
R

17,10P
aPWRRTN

SENTERED WITH SYSTEM TRAP CALL (HWLT)

005650
005656
005660
005662
005666
005672
005674
005700
005704
005710
005712
005716
005722
005726
005732
005736
005742
005746
005752
005756
005760
005762
005764

037727
001401
000002
012702
005737
001402
012702
004737
005237
011602
162702
004737
017702
004737
017702
004737
013702
004737
005777
100001
000000
000002
000000

005766
005774
005776
006000
006006
006012
006014
006016
006024
006026
006030
006032
006036
006044

012737
005702
100003
012737
004737
006102
006102
012737
006102
006102
006102
010237
042737
052737

173170

020000

;PRINT PC, STATUS REGISTER,
PRINT:
BIT
@SR, #20000

BEQ
RTI
MoV

006370
005764

TST

006432
006266
005764
000002
005766
173052
005766
173046
005766
001020
005766
173066

MoV

(SR, %2

MoV

aCTR,X2

Mov

TEMP, %2

JSR

000060

006100

000061
006102

006100

177773

006076

006100
177770
000060

006100
006100

#MSG1,%2
PRINT1

.46
#MSG2,%2
X7,10P
PRINT1
(6),%2
#2,%2

sPRINT ERROR HEADING

X7.0CTPRT

sPRINT PC

X7,0CTPRT

;PRINT STATUS REGISTER

27,0CTPRT

sPRINT COUNTER

27 .0CTPRT

sPRINT TEMP
sCHECK SR FOR HALT SWITCH

TST
BPL
HALT
RTI
PRINT1: 0

#5R
R

OCTPRT: MOV
TST
BPL
Mov

#'0,CHAR
22
0CT1
#'1,CHAR

sHALT ON ERROR UP
sRETURN TO MAINLINE

:PRINT OCTAL VALUE IN REGISTER2

0CT1:

0CT2:

JSR

ROL
ROL

MOV
ROL
ROL
ROL
MOV

BIC

BIS

CURRENT ADDRESS,

sTEST FOR INHIBIT PRINT OUT
sBRANCH TO PRINT
sINHIBIT, RETURN TO MAIN STREAM

BEQ
MoV
JSR
INC
Mov
suB

JSR

COMAND REGISTER, BYTE COUNT,

g;.OCTP

12
#-5,0CT
12
12
12
12, CHAR

#177770,CHAR
#60,CHAR

sINITIALIZE 1ST NUMBER AS 0
:1S VALUE POSITIVE
;YES PRINT O
sNO PRINT 1

;COUNT 5 DIGITS

sSAVE DIGIT
;CLEAR OTHER BITS
sMAKE ASCII DIGIT

——

DATA

(ZKWBJO KW11-P RT CLK TST

CZKWBJ.P11

1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
}ggg

1286
1287
}%gg
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299

1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321

19-APR-78 09:55

006052
006054
006060
006062
006066
006070
006074
006076
006100
006102
006106
006110
006116

006002
004737
006102
005237
001356
004737
000207
000C00
000000
105777
100375
013777
000207

006120
006124
006130
006132

012702
004737
000207
020057

006132
006266
.
027

006136
006140
006144

022606
012637
000177

177776
000114

006150
006156
006160
006164
006166
006172
006200
006204
006210
006216
006220
006226
006230
006234
006236
006242
006246

032777
001367
005737
100011
013746
012737
005737
012637
032777
001007
023737
001403
005237
000740
005037
011637
000002

006250
006252

006262
006264

006000
000000
022626
012637
000725
001150

006266
006274
006300
006304
006306

142777
112237
121237
001001
000207

006254
006256

006310

121227

MACY11

006076
006120

172706

040000

172674

006250

172666

000004

172626
001022

006250

006250
006264

000004

000177
006366
006366
:
000100

ROR
JSR
ROL
INC
BNE
JSR
RTS
oCcT:
0
CHAR:
0
OCTP:
TSTB
BPL
MoV
RTS
sTYPE 3 SPACES
SP3:
MoV
JSR
RTS
SP3A:
.ASCI1I
.EVEN

SCOPEB: CMP
MOV
JMP

006252

000004
006254
177060
000004
004000

19-APR-78

SUBROUTINES

006102

006100

30A(1052)

172520

M
09:58

PAGE 25

X2
x7.0CTP
%2
ocT
ocre
X7,5P3
x7

aTCSR
=4
CHAR,@TDBR
17

SEQ 0025

;PRINT

:+1

TO DIGIT COUNT

;NOT DONE

JEXIT

;WAIT FOR READY
;PRINT

#SP3A,%2
x7,70P
X7
/7
/;

(6)+,%6
(6)+,CC
SRETURN

sREPOSITION THE STACK
:SCOPE RETURN

:SCOPE OR/AND ITERATION LOOP FOR EACH TEST
SCOPEC: BIT
#40000,asR
sTEST SR FOR SCOPE
BNE
SCOPEB
;YES SCOPE
TST
8#XORFLG
BPL
18
MOV
s ,-(26)
MOV
#X0RA
, 304
TST
ar77060
MOV
(X6)+,384
sRESTORE STACK
18:
BIT
#4000,aSR
:NO - TEST FOR ITERATION

BNE
SCOPEG
CHP
SCOP
, ICOUNT
EF
BEQ
SCOPEG
INC
SCOPEF
BR
SCOPEB
SCOPEG: CLR
SCOPEF
Mov
8%6 ,RETURN
RTI
SCOPEF: 0
XORFLG: 0
XORA:
CMP
(%6)+,(26)+
MoV
(X6)+,a04
BR
SCOPEB
RETURN: BEGIN
;MOV ADDRESS OF MESSAGE TO REGISTER 2
:THEN JSR X7,TOP
TOP:
BICB
#177,3TCSR
MOvB
(2)+,EOMK
TOP1:
CMPB
a%2,E0MK
BNE
. 44
RTS
17
CMPB
a.ra

;INHIBIT ITERATION

;EXIT - DONE
s INCREMENT COUNT
;LOOP SOME MORE
sCLEAR COUNT
sSAVE SCOPE RETURN POINTER
sRETURN INLINE-NEXT TEST
sCOUNT LOCATION FOR INTERATION LOOP

;ADDRESS OF LAST TEST

sCLR_INT FLAG
+MOVE IN EOM MARKER
+ COMPARE FOR EOM
:NO
:YES, EXIT

CZKWBJO KW11-P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55

1322
1323
1324
1325
1326

006314
006316
006322

006324
006330
1327
006332
1328
006336
1329
006340
1330
006346
1331, 006352
1332
006354
1333
006362
1334
006364
1335 006366
1336
1337
006370
1338 006376
1339 006404
1340
006412
1341 006420
1342 006426
1343
1344
006432
1345
1346 006436
1347
006444
1348 006452
1349
006460
1350 006466
1351
1352 006472
1353 006500
1354
006506
1355
006514
1356 006522
1357 006530
1358 006536
1359
1360 006540
1361
006546
1362 006554
1363 006562
1364 006570
1365
1366
1367
1368 006574
1369 006576
1370 006600
1371
006602
1372 006504
1373 006606
1374 006610

1375
1376
1377

006612
006614
006616

001406
105777
100375
112277
000763
105777
100375
112777
105777
100375

112777

005202
000745
000
006370
040057
020040
052101
047503
020122
040120
006432
04C057
006436
040057
045102
026461
041440
052123
040057
051101
040440
040440
051105
052514
057
006540
040057
051101
040440
020122
051105

MACY11

30A(1052)

172472
172462
172456

TOP2:

000215
172442

172444

000272

172430

19-APR-78
SUBROUTINES
BEQ
TSTB
BPL
MOVB
BR
TSTB
BPL
MovB
TSTB
BPL

020040
020040
051525
047125
052040
057

041520
052123
020040

MSG1:

SEQ 0026

TOP2
aTCSR
. =4
(2)+,3TDBR
TOP1
aTCSR
=4
#215,3TDBR
aTCSR
.4

000506
000000
0000TM0
177566
177564
000064

JCK TTY
;WAIT FOR DONE
;MOVE CHARACTER
;BRANCH BACK

;SEND CARRIAGE RETURN

#212,3TDBR

;SEND LINE FEED

TOP1

;NO EOM,

.BYTE

.EVEN
LASCII

; INCRMTN R2

STATUS

COUNTER

SO LOOP

TEMPa/;

042524
046505

055103
0454 30
020120
045514
027500

053513
030527
052122
052040

MSG3:

-EVEN
<ASCII
.EVEN
.ASCII

042522
044524
052106
050040
043040
042522

052123
043516
051105
053517
044501
040100

MSGPWR:

-EVEN
LASCII

;/@RESTARTING AFTER A POWER FAILURE®3/;

047531
020105
020116

020125
047117
047530
052123

XORM:

.EVEN
.ASCII

:/@8YOU ARE ON AN XOR TESTERa/:

057

042524

027500

MSG2:

J18/;

;/8CIZKWBJ KW11=P RT CLK TSTa/:

.EVEN
;TIMER FOR KW11=-P CLOCK

172562
172560
172564
000504

2
PAGE 26

MovBe
INC

:
EOMK

N
09:58

CSB1:
CSR1:
CTR1:
CKV1:
CKVS1:
CLKFLG:
INTFLG:

PDBR:

PCSR:

PVEC:

172562
172560
172564
504
506
0
0
177566
177564
64

(ZKWBJO KW11-P RT (LK TST
CZKWBJ.P11
19-APR-78 09:55

1378
006620
1379
006622
1380
006624
1381
006626
1382
006630
1383
006632
1384
006634
1385
006636
1386
1387
1388
006640
1389 006642
1390 006644
1391
006646
1392
006650
1393 006652
1394
006654
1395
006656
1396 006660
1397 006662
1398 006664
1399 006666
1400
006670
1401
006672
1402
006674
1403
006676
1404
006700
1405
006702
1406
006704
1407 006705
1408
006706
1409
006707
1410 006710
1411
006711
1412
006712
1413
1414
1415
1416
1417
1418 006714
1419
006720
1420 006724
1421
006730
1422 006736
1423 006744

1424
1425
1426
1427
1428
1429
1430
1431
1432
1433

MACY11

000065
177562
177560
000060
000062
000000
000000
000000

30A(1052)
PVECS:

19-APR-78
SUBROUTINES

09:58

PAGE 27

SEQ 0027

KDBR:
177562
KCSR:
177560
KVEC:
60
KVECS:
62
CNT:
0
CNT1:
0
CNTB:
0
CTRLI=211

000211
000224
177776
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000
000
000
000
000
000
000
006714

CTRLT=224

PSL':

HR>1:
HRS2:
MING:

MINZ:
SEC1:
SEC2:
LST:

MST:
HRS1A:

HRS2A:
MIN1A:
MIN2A:

177776

0
0
0

0
O
0
0

0
0

0
O
O

SEC1A:
SEC2A:

0
O

BYT1:
BYT2:
BYT3:

.BYTE 0
.BYTE O
.BYTE 0

- PASa s
gt al S

.BYTE 0

LSTA:
0
MSTA:
0
TMPSWR: 0

BYT4:

BYTS:

BYT6:
BYT7:
.EVEN

006750
006754
006760
006766
006774

012706
004737
005077
012737
012737
012700
012701
004537
012737
012737
000137

007234
000043
001217
007250

007000
007004
007010
007014

012706
004737
005077
012737

000776
011652
177624
164217

000776
011652
177710
000000
000131
010356
01037¢

.BYTE O

K10HZ:

007674

#BUF
, %6
F

27,SWADJ
aPsSw
#0,CLK+2

MOV
MoV
JSR

#TABL %0
#TABL1XV
.

MOV

I Sotinaa
el
o

JSR
CLR
MoV

MOV

010506
010536

pott

.BYTE 0
.BYTE O

K100HZ: MOV

007674
007702

;TEMP LOC FOR SOFT-SWR CONTENTS
;LOC FOR 1ST # INPUT VIA TTY

:HAS

:100KH2

181.CLK1+2

X5 ,3#MOVE

#35.,CLK3+2

MOV
JMP

#655.,CLK4+2
a¥INIT

MOV
JSR
CLR
Mov

#BUFF
, %6
27,SWADJ
aPsw
#-13561,CLK+2

THIS CPU HAVE A SWITCH REG.?

sLEAST VALUE

+MOST VALUE

1HAS

THIS CPU HAVE A SWITCH REG.?

$10KH2

CZKWBJO KW11-P RT CLK TST
CZKWBJ 1
19-APR-78 09:55

1434
1435
1436
1437
1438

007022
007030
007034
007040
007044

012737
012700
012701
004537
012737

000133
010356
010416
007234
000000

MACY11

007702

010506

30A(1052)

19-APR-78
SUBROUTINES

Mov

MoV
Mov
JSR
Mov

09:58

#133,CLK1+2

#TABL,
X0
#TABLZ,
X1
X5,3#MOVE
#0.,CLK3+2

PAGE 28
SEQ 0028

CZKWBJO KW11=P RT (LK TST
CZKWBJ.P11
19-APR-78 09:55

1439
1440

007052
007060

012737
000137

001130
007250

MACY11

010536

30A(1052)

19-APR-78
SUBROUTINES

Mov
JMP

09:58

#600.,CLK4+2
FINIT

PAGE 29
:

SEQ 0029

CZKWBJO KW11-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55
1441
1442

1443
1444

007064
007070
007074

012706
004737
005077

000776
011652
177540

MACY11

30A(1052)

H602:

19-APR-78

SUBROUTINES
Mov

JSR
CLR

E
09:58

#BUFF
, %6

X7,SWADJ
aPsw

PAGE

SEQ 0030

;HAS THIS CPU WAVE A SWITCH REG.?

CZKWBJO KW11=-P RT CLK TST
CZKwBJ.P11
19-APR-78 09:55

1445

007100

012737

177733

MACY11
007674

30A(1052)

19-APR-78
SUBROUTINES
Mov

.3
09:58
PAGE

#=-45,0LK+2

31
SEQ 0031

;60HZ

(ZKWBJO KW11-P RT

CZKwWBJ.P11
1446

007106

(LK

TST

19-APR-78 09:55
012737

000135

MACY11
007702

30A(1052)

19-APR-78

SUBROUTINES
Mov

09:58

#135,CLK1+2

PAGE

SEQ 0032

CZKWBJO KW11-P RT CLK TST
CZKWBJ M1
19-APR-78 09:55

1447
1448
1449
1450
1451
1452
1453

1454
1455

1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472

1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501

1502

007114
007120
007124
007130
007136
007144

004537
012737
012737
000137

007150
007154
007160
007164
007172
007200
007204
007210
007214
007222
007230

012706
004737
005077
012737
012737
012700
012701
004537
012737
012737
000137

007234
007240
007242
007244
007246

012702
012120

007250
007256
007262
007266
007272
007300
007306
007314
007322
007330
007336
007344
007352
007360
007366
007374
007402
007406
007412
007416

007422

007430
007432
007434
007442
007444
007452

007454
007460
007462
007466

012700

012701

010356
010436
007234
000000
001130
007250
000776
011652
177454
177742
000135
010356
010456

007234

000000
001104
007250

MACY11

001401
000001
032777
001032
032777
001426
005737
001360
005077
012777

MoV
MOV
H50Z:

007674

010506
010536
MOVE:
18:

005572
000776
006656
006660
000060
000060
000060
000060
000060
000060
010476
000340
007560
000200
000200
000100
006606
006610
171362
171360
000002

171414

WAITA:

000001

171402

WAITB:
CLKON:

000004

171372

000024

006642
006644
006646
006650
006652
006654
171442
171436
177246
177242
177224
177222
START:

#BUFF,
%6
X7,SWADJ

177106

aPSw
#-36,CLK+2

#135,CLK1+2

MoV
MoV
JSR
MOV
Mmov

#TABL,%0
#TABL4,
X1
%5,3#MOVE
#0.,CLK3+2
#580.,CLK4+2

MOV
MoV

~-7,%2
(X1)+,(20)+

SEQ 0033

s HAS

THIS CPU HAVE A SWITCH REG.?

50M2

aFINIT

INC
BNE
RTS

22
1%
x5

MOV
MoV
CLR
CLR
MoV
MOV
ROV

PWRF 1,24
#BUFF X6
LST
ST
#60,3FHRS1
#60,3/HRS2
#60,3#NIN1

CINITIALIZE

MGV
MOV
MoV
MoV
MoV
MOV
MOV
MOV
Mov
CLR
CLR
(LR
CLR
BIT
BEQ
WAIT
BIT
BNE
BIT

#1,aSR
3s
¥4 3SR

;SW 0 TURNS ON CLK2

TST

S#CLKFLG

;CLKFLG ALLOW CLK 2 TO BE TURNED ON
JONLY ONCE

BEQ

006606
177106

INIT:

PAGE 33

#00,CLK3+2
#600.,CLK4+2

MOV
JSR

JMP

#TABL,%0
#TABL3,
X1
X5,a#MOVE

afINIT

MOV

09:58

JMP

CLR
MoV

007702

17771

007762

19-APR-78
SUBROUTINES

MoV
MoV
JSR

010506
010536

005202
001375
000205

013737
012706
005037
005037
012737
012737
012737
012737
012737
012737
012777
012777
012777
012777
012777
012777
005037
005037
005077
005077
032777

30A(1052)

BNE
CLR
Mov

#60,3/MIN2
#60,3SECT
#60,3#SEC2

#CLK] ,aCky
#340,3CkVS
#KINTR,IKVEC

#200,9KVECS
#200,3PVECS
#100,3KCSR
SFCLKFLG
SFINTFLG
aCSR
aCss
#2,35R
CLKON

WAITA
a(SB1
#KOUT,aCkVv1

sWAIT LOOP, SW 1 CAUSE WAIT

;SW 2 DETERMINES PRESENCE OF CLOCK 2

CZKWBJO KW11-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55

1503
1504
1505
1506
1507
Wn
— OOV
NOWVSWN—=O

ddd—‘-—ldddd—l—‘—‘d—‘

Vi (S RV AN AV AV IV IV IV ] v
NN b b e b #D b wd ad b b =3

1508

1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539

1540

1541

1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558

007474
007502
007510
007516
007524
007530
007534
007542
007544
007550
007554

012777
012737
012777
012777
000137
005037
032777
001404
005077
005077
000137

007560
007564
007570
007574
007576
007602
007604
007610
007612

017701
042701
022701
001557
022701
001404
022701
001464
000602

007614
007620
007624
007632
007640
007644

007650
007656

005077
005C77
012737
012737
005037
005037
012777
000002

007660
007666
007672
007700
007706

012777
017701
012777
012777
000002

007560
176730
000000
000131

007710
007714
007720
007724
007726
007732
007736
007740
007746

013704
017701
042701
010124
010437
005237
001003
012777
000002

006634
176702
000300

007750
007756

017737
000002

007760

000000

007762
007766
007774

005037
012777
012700

000200
177777
141521

000113
007432
006606
000004

MACY1?

30A(1052)

177102
006606
177056
177052
171302

177026
177020
007422
177036
177600
000007

19-APR-78
SUBROUTINES

MoV

MOV
MOV

4%:
KINTR:

MoV

aKDBR,
%1

CMP
BEQ
CMP
BEQ
CHP
BEQ

#7,%1
CNGSWR
11,31
KIN
#24,%1
KOUT

;KEYBOARD INTERRUPT HANDLER
;STRIP JUNK

CLR
CLR
MOV
MOV
CLR
CLR
MOV
RTI

aCSR
acse
#-6,0CNT
#HRST,#CNTI
LST

3s:

KIN:

006632
006634
176750

176740

KINI2:

171102
171072

CLK:
CLK1:
KINI:

BIC

006634
006632

176646

007760

006610
007750
006642

mov

176632

;CLEAR CLK 2 IF PRESENT

#177600,%1

>4 S CHAR A G(CONTROL=~G)?
38 F YES,GO TO CNGSWR
2l S IT ACNTRL I ?

01 S IT

ACNTRL T ?

sHANDLER FOR CTRL I
;SETUP TIME OF DAY
s INPUT

NST

#KINI,SKVEC

#XINTR,IKVEC

sAWAIT A CHAR TO START

#0,3CSB

0Lk 1

MOV

BPCNTT,
X4

;STORE TIME uF DAY

BIC

#300,%1

INC
BNE

FCNT
1%

MoV

aKDBR,
X1

MOV

#131,3CsR

MoV
RTI

MOV
MOV
MOV

176660

#200,aCKVS1

#=1,a#CLKFLG
#141521,aCSB1
;TURN ON CLK 2

RTI

007660

SEQ 0034

#113,3CSR1
WAITB
a#CLKFLG
#4, 3SR
4$
aCSR1
aCSB1
WAITA

000024

006642
006656
006660
007710

PAGE 34

MOV
JMP
CLR
BIT
BEQ
CLR
CLR
JMP

000011

171160
171156
177772

09:58

aKDBR,
11

21.(%4)+
24.a0CNT.

MOV
RTI

#KINI2,aKVEC

HOLDIT: MOV
RTI

aKDBR, a#HOLD

;DUMMY INTERRUPT SERVICE ROUTINE

INTFLG
#HOLDIT,aKVEC
#HRS1,
%0

: INPUT HANDLER FOR CTRL T
:SET DUMMY VECTOR
;GET TIME OF DAY INTO

1$:

HOLD:

KOUT:

CLR
MOV
MoV

(ZKWBJO KW11-P RY (LK TST
CZKWBJ P11
19-APR-78 09:55
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593

1594

1595

1596

1597

1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614

010000
010004
010010
010012
010014
010016
010022
010026
010030
010034
010036
010042
010044
010046
010054
010056
010060
010066

010070

010072
010074
010076
010102

010104
010106
010110
010112
010114
010116
010122
010124
010130
010134
010134
010136
010140
010140
010144
010146
010152
010156

010156

010162

010164
010170
010174
010174
010200
010202
010206
010212
010214
010220
010222
010226
010230

012703
012704
012023
005204
001375
017701
005737
001355
005737
001416
163701
006301
006301
023727
001405
000301
023727
001001
006301
005000
005003
012704
005701

006662
177770

164217

007674

177742

3s:
2%:
5%:
6%:

MOV
ST

108:

000007

006702

CNGSWR:

SETBYT:

105777
100375
010177
122701
001752
122701

17641¢

176432
177600

176404

000025
000015

000012

CLR

BPL
ADD
ASL
ST

CKCSR:

5%:

;1S CLOCK RUNNING AT 10KHZ ?

;1S CLOCK RUNNING AT 50HZ ?

48
a%4.x3
X1
(%4)+

TMPSWR

TSTB

aKCSR

MoV

aKDBR
, X1

TSTB

aPCSR

MOV

1,3PDBR

CHPB

;SUB INIT VALUE

#TABL,
%4
21

PC,CRLF
#BYT1,%2

BEQ
CMPB
BEQ
CMPB
BEQ
INC

;SEE IF CLK HAS INTERRUPTED IN THIS TIME
:CALC VALUE OF CTR
;15 CLOCK RUNNING AT 100KHZ ?

2%
NCLK+2,%1
2
2
NCLK+2,#-13561
33
%1
INCLK+2,#-36
28
%
20
13

JSR
mov

BPL

;WORK AREA

1%
aCTR.
%1
AFINTFLG
KOUT
NCLK+2

12,-(6)
13.-(6)

BIC

SEQ 0035

MoV
MoV

8PL

PAGE 35

#HRS1A,
%3
#-10,%
(%0)+, (%3)+

%0
#7,%0
6$
X3,34MSTA
arcLK2

CLR

09:58

INC
cwp
BNE
ADD
JNP

CLR

010324
006704
176442

INC

BNE
ST
BEQ
SUB
ASL
ASL
CMP
BEQ
SWAB
CMP
BNE
ASL
CLR

4$:

006700
010772

MOV
MOV
MOV

007674

010356

19-APR-78
SUBROUTINES

BNE
MOV

007674

105777
100375
017701
042701

001412
122701
001407
005203

1%:

007674

010246
010346
005037
005003
004737
012702

30A(1052)

170762
006610

100001

061403
006301
005724
005200
022700
001367
060337
000137

MACY11

CKCSR

#177600,%1

;ADD VALUE OF CTR TO MST

;SAVE R2

sSAVE R3
;CLEAR TEMP SWR
;CLEAR R3
sPRINT <CRX<LF>
sINIT R2 TO 1ST BYTE LOC
1S CHAR TYPED?
s1F NOT,WALIT
;ELSE MOVE THE CHAR TO R1
sSTRIP JUNK

#25,%1

SETBYT
#15,%1
SWDONE
#12,%1
SWDONE
13

313 CH AR U (CONTROL-U)?
T8 i | YE S,START OVER
£ 25 SE E IS IT <CR>?
(k { ) EQ UAL,GO TO SWDONE
313 I7 <LF>?
s IF EQ UAL.GO TO SWDONE
IC
sINDICATE
A CHAR INPUTTED

CZKWBJO KW11-P RT (LK TST
CZKWBJ P11
19-APR-78 09:55

010232
010236
010240
010244
010246
010246
010250

010252

010256
010256
010262
010264
010266
010272
010276
010302
010304
010304
010312
010312
010314
010316
010322
010324
010324
010330
010332
010340
010340
010344
010346
010354

042701

110122
022702
001344

:
SWDONE

152337

006702

012603
012602
004737
000002

105777

100375

108:

006702
006702
006702

006702

170532

208:
30s8:

010324
CRLF:

176264

012777

000215

105777
100375
012777
000207

176250
000212

19-APR-78
SUBROUTINES

BIC

006712

006704

013777

30A(1052)

177770

005703
001420
012703
020302
001407
006137
006137
006137
000765

MACY11

176252

108:

176236

09:58

#177770,%1

PAGE 36

SEQ 0036

;LEAVE ONLY BINARY # IN R1
;MOVE # TO PROPER BYTE LOC

Move
CMP
BNE

21,(2)¢
#BYT7,%2
CKCSR

TST
BEQ

13
308
#BYT1,%3

BISB
CMP
BEQ
ROL
ROL
ROL
BR

(3)+,TMPSWR
13,%2
208
TMPSWR
TMPSWR
TMPSWR
108

sAND GO GET ANOTHER #

MOV

TMPSWR,asR

;SET UP NEW SWR

MOV
MOV
JSR
RTI

(6)+,%3
(6)+,%2
PC,CRLF

;RESTORE R3
sRESTORE R2

TSTB

BPL
MoV

aPCSR

CRLF
#215,3PDBR

;IS TTY READY?
;IF NOT WAIT
;ELSE TYPE <CR>

TSTB
BPL
MoV

aPCSR
108

;IS TTY READY?
;IF NOT,WAIT
JELSE TYPE <LF>

Mov

:%12.3PDOR

;1S R2 PAST BYT6 ADDR?

:IF NOT,GO BACK FOR ANOTHER CHAR
sWAS A CHAR TYPED?

:1F NOT,EXIT
sINIT R3 TO 1ST BYTE ADDR

;SET LOW 3 BITS OF TMPSWR

;1S R3 EQUAL BYTE ADDR IN R2?
:1F YES LEXIT
;ELSE
sSHIFT

;NEXT 3 BITS UP

sPRINT <CR><LF>

010356
010360
010362
010364

TABL:

;TABLE FOR WORK AREA

010366
010370
010372
010374

000510
000244
000122
000051
000024
000012
000005
000003

010376
010400
010402
010404
010406
010410
010412
010414

000510
000244
000122
000051
000024
000012
000005
000003

TABL1:

;100KHZ TIME TABLE

010416

000632
000315
000146
000063

TABLZ2:

:10KHZ TIME TABLE

010420
010422
010424

1705
1706
1707
1708
1709
1710

171
1712
1713

1714
1715
1716
1717
1718
1719
1720
1721
1722

1723
1724
1725
1726

010426
010430
010432
010434

000032
000015
000006
000003

010436
010440
010442
010444
010446
010450
010452
010454

001025
000413
000205
000103
000041
000021
000000
000000

TABL3:

=MWV

19-APR-78
SUBROUTINES

010456
010460
010462
010464
010466
010470
010472
010474

000500
000240
000120
000050
000024
000000
000000
000000

TABL4:

L
09:58

PAGE

SEQ 0037

NWWNWOW
s
e
s
NNW
’
. ks
.

26.
13.

;60HZ TIME TABLE

s
-

;50HZ TIME TABLE

1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704

30A(1052)

OO =N

1671
1672

MACY11

COoOONS,
D= w
s s s OO0 n

C(ZKWBJO KW11-P RT CLK TST
CZKWBJ P11
19-APR-78 09:55

:THIS ROUTINE KEEPS THE 24 HOUR

;TIME OF DAY

010476
010504

010512

010520
010522
010530
010534
010542
010550
010552
010560
010564
010572
010574
010576
010604
010610
010616
010620
010622
010630
010634
010642
010644
010646
010654
010660
010666
010670
010672

012737
177777
062737 000044
022737 000144
003005
162737
000144
005237 006660
062737 001217
022737 001750
003011
162737 001750
005237 006654
022737 000072
001401
000002
012737 000060
005237 006652
022737 000066
001401
000002
012737 000060
005237 006650
022737 000072
001401
°
000002
012737 000060

005237
022737
001401
000002
012737

006646
000066

000060

006610
006656
006656

CLKI:

CLK3:

006656
006660
006660

CLK&:

006660

006654
006654

006652
006652
006650

006650
006646
006646

28:

mMov

ADD

CHP
BGY
SuB
INC
ADD
CHP
BGT
SUB
INC
CHP
BEQ
RTI
MOV
INC
CMP
BEQ

RTI
MOV

INC
CHP
BEQ
RTI
MOV
INC
CMP
BEQ
RTI
MOV

#-1,3FINTFLG

#36.,94LST

#100. ,amS7

CLKé

sCLOCK INTERRUPT SERVICE ROUTINE
;ADD LSB TO LST
:DID IT OVER FLOW

#100. ,3#LST
SINST

s YES
s INC MST
sADD MSB TO MST
:0ID IT OVER FLOW

#1000, ,ansT
aFSEC2
#72,94SEC2
4

sYES
: INC SECOND
s HAS 10 SECONDS ELAPSED

#60,3#SEC2
afsSECT
062.3085(1

sYES
s INC MSB OF SECOND
JHAS 60 MIN ELAPSED

#655. ,9MST
g}OOO..O'NSI

#60,3#SECT

armIN2
orz.acnxnz

s YES
: INC LSB OF MIN
+HAS 10 MIN ELAPSED

#60,3/MIN2
aMmiInN
#66,3#NINT

+ INC MSB OF MIN
JHAS 60 MIN ELAPSED

#60,3#MIN1

CZKWBJO KW11-P RT CLK TST
CZkwBJ.P11
19-APR-78 09:55

1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776

011022
011024
011026
011034
011040
011046
011050
011052
011060
011064
011072
011074

1760

022737
003011

011000
011002
011010
011014

—d -

1758
1759

010772

—d

1749
1750
1751
1752
1753
1754
1755
1756
1757

005237
022737
001014
022737
001401
000002
012737
012737
000002
022737
001401
000002
005237
012737
000002

1748

010700
010704
010712
010714
010722
010724
010726
010734
010742
010744
010752
010754
010756
010762
010770

—h

1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747

1777
1778
1779

1780
1781
1782

011206
011212

162737
005237
022737
001401
000475
012737
005237
022737
001401
000463
012737
005237
022737
001401
000451
012737
005237
022737
001401
000437
012737
005237
022737
001014

022737
001401
000421
012737
012737
000412
022737
001401
000405
005237
012737

MACY11

006644
000064

006644

000062

006642

000060
000060

006642
006644

000072

006644

006642
000060

006644

001750

006700

001750
006674
000072

006700

000060
006672
000066
000060
006670
000072

000060
006666
000066

30A(1052)

INC
CMP
BNE
CMP
BEQ

NEWTM:

CLKk2:

006674
006674

19-APR-78
SUBROUTINES

2$:

006672
006672
006670

006670
006666

SEQ 0038

:INC LSB OF HOURS
;IS LSB A 4

RTI
MOV
:?Y

AFHRS?2
#64
, a#HRS2
NEWTM
#62,3¥#HRS1
Ry
#60,a#HRS1
#60.a#HRS2

;1F 24 HOURS RESET
;LSB AND MSB OF HOURS

CMP

#72,a#HRS2

:IF NOT 4 IS IT 10 HOURS

aMHRS1
#60, a#HRS2

;YES INC MSB OF HOURS

#1000. ,3#MSTA
2s
#1000, ,a#MSTA
FSEC2A
#72,38SEC2A
4

;THIS ROUTINE IS THE WORK

BEQ
RTI
INC
MOV
RTI

CHP
BGT
SUB
INC
CHP
BEQ
BR
MoV
INC
CHP
BEQ
BR
MOV

END1A

#60,a#SEC2A
FSECIA
#66,30SEC1A
.4

END1A
#60,3#SEC1A

INC
CHP

AMMIN2A
#72,30MIN2A

BR
MOV
INC
cHp
BEQ

END1A
#60,
30 IN2A
IMINIA
#66,3MMINTA
.44
END1A

000060
006664
000064

006666

MOV

006664

000062

006662

000060
000060

5es?

000072

006664

006662
000060

006664

CHP
BNE
CMP
BEQ
BR
MoV
MOV
BR
CHP
BEQ
BR
INC
MoV

INC

NEWT:

M3
09:58
PAGE 38

#60,3#MIN1A

HRS2A

264, 3#HRS2A
NEWT
#62,38HRS1A
44
END1A
#60, 3#HRS1A
#60,3#HRS2A
ENDTA
#72,30HRS2A
|
END1A
FHRS
1A
#60,3#HRS2A

;IF YES,

IS MSB A 2

sAREA ROUTINE AND IS THE
;SAME AS INTERRUPT HANDLER

sSERVICE ROUTINE

CZKWBJO KW11-P RT CLK TST
CZKwWBJ.P11
19-APR-78 09:55
1783
011220
1784
1785
1786
1787
1788
1789
1790
1791
1792
011266
1793
011274
1794
011302
1795
1796
011304
1797
011312
1798 011320
1799
011322
1800
011326
1801
011330
1802
011334
1803 011336
1804
011342
1805
011346
1806
011352
1807
011356

1808

1809
1810
1811
1812
1813
1814
1815
1816
1817
1818

1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838

u11360
011366
011374

011376
011404

011412

011414
011420
011422
011430
011436
011444

012777
012737
012737
012737
012777
012777
000002

011266
177776
006662
177767
000000
000100

012777
012777
000002
012777
012777
000002
005237
001414
005737
001420
013704
012477
010437
005237
000002
012777
012777
000002

011516
011524
011530
011532
011540
011546

012777
005037
000250
012737
162737
100405

013777

PAGE 39
SEQ 0039

;SET UP FOR PRINTER OUTPUT

011304
000215

CR:

MOV
MOV
RTI

#LF,aPVEC
#215,3PDBR

;OUTPUT (R

011322
000212

kEz

MOV

#PINTR,aPVEC

;OUTPUT LF

006632

PINTR:

a#CNT
DONE
CNTB
COLON

sPRINT TWO DIGITS FOLLOWED
;BY COLON UNTIL TIME OF
;DAY IS PRINTED

006636
006634
006632
175334
175330

006636

006634

011414
000056

006700
177767
000144

175230
175216

:
DONE

RTI

INC
BEQ
TST
BEQ

006636
175200

COLON:

006634
006632
006634

1%:

000144

006634

2$:

000060
01151¢
006636

006636
175110

3s:

011600
006636

175072

NUM1:

177767

006632
006634

1$:

175076

SFCNT1,
%4
(24)+,aPDBR
%4 ,3#CNTY

a#CNTB

MOV

#56,3PDBR

MoV
Mov

#-2,3#CNTB
#72,3PDBR

RTI

PER:

#212,3PDBR

INC

RT!
MoV

RTI

006636
006632

000012

MOV

MoV
MOV
MOV

175244
006634
006636

006636

000002

SUBROUTINES

09:58

#CR,aPVEC
#-2,3#CNTB
#HRSTA ,a#CNT1
#=-11,30CNT
#0,aPDBR
#100,aPCSR

005037
000250
013737

011446
011452
011456
011460
011462
011470
011472
011500
011506
011514

19-APR-78

MoV
MoV
Mov
MoV
MoV
MoV
RTI

177776
000072

162737
100406
005237
005237
001367
000404
062737
000250
062737
012777

175370

30A(1052)

END1A:

012737
012777
000002

012737

MACY11

CLR
CLN
MOV
MoV
SUB

BMI
INC

INC
BNE
BR
ADD
CLN
ADD
MoV
MoV
RTI
MoV
CLR
CLN
MoV
suB

BMI

#PER,aPVEC

° QS#CNTB

sWHEN DONE PRINT *'."*

sPRINT MSB OF MILLISEC

SMNSTA SFCNTT
-9, ,30CNT
#100. ,3#CNT1

28
S#(NTB
SFCNT
18
3s
#100. ,3#CNT1

#60,3#CNTB
#NUM1 ,QPVEC
8#CNTB,3PDBR

#NUM2 ,aPVEC
S#CNTB

#=9. ,9#CNT
#10.,3#CNT1
3s

¢PRINT LSB OF MILLISEC

CZKWBJO KW11~P RT CLK TST
CZKWBJ 11
19-APR-78 09:55
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1350
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883

01155¢C
011554
011560
011562
011570
011576

005237
005237
001367
062737
013777
000002

011600
011606

MACY11

30A(1052)

006636
006632

19-APR-78
SUBROUTINES

INC
INC
BNE
ADD

000060
006636

006636
175014

3%:

012777
000002

007560

175020

NUM2:

011610

032777

000010

167226

DELADJ: BIT

011616
011620
011622
011626
011632
011636
011642
011644
011646
011650

001401
000207
012701
012700
012702
062702
012120
020200
001375
000207

011652

013746

011656
011664
011670

012737
005777
012637

011674

000207

011676
011700
011704

022626
012637
012737

011712

000207

000001

001034
001024
001032
000002

1%:

2$:

000004
N11676

167154

SWADJ:

000004

000004
000176

001044

4
PAGE 40
SEQ 0049

af(NTB
afCNT
1%
#60,a#CNTB

:?g

@#CNTB,aPDBR

Mov
RTI

#KINTR,aKVEC

;RESTORE KEYBOARD VECTOR

#10,asR

;TEST FOR SR3=0 WHICH INDICATES

BEQ
RTS
MoV
Mov
MOV
ADD
MOV
CMP
BNE
RTS

1%
X7
#ADJ,R1
#DEL1,RO
#DEL4,R2
#,R2
(R1)+,(RO)+
R2.RO
23
X7

sADJUST DELAY TIMES
sNO ADJUSTMENTS REQUIRED
sGET START OF REG. FOR ADJUST
:GET START OF REG. TO ADJUST
sGET END TAG OF ADJUSTMENT
sUPDATE END CHECK
sUPDATE DELAY COUNTS
sARE WE DONE
sNO CONTINUE UPDATE
sADJUSTMENT MADE

e, -(26)

MoV
TST
MOV

#SWADJ1 884
aSR
(%6)+,a84

RTS

SWADJ1: ChP
MoV
MOV
RTS

-END

B
09:58

(26)+,(%6)+
(X6)+,a04
#SOFTSR,SR
17

:11/60, 11/70 811/45 WITH MOS

;SAVE CONTENT OF TRAP

sVECTOR

sSET UP NEW TRAP VECTOR
sTEST FOR SWITCH REG.
sRESTORE STACK NO

;TINE OUT ACCONED.

sUPDATE STACK
SRESTORE TRAP VECTOR
sSET SWITCH REG.(SR) TO

sEQUAL SOFTSR

sRETURN TO CALLER

001034
001150
005210
001046
000776

006704
006705
006706
006707
006710
006711
006712
004446
177776

006100
010156
00100¢
¢cc1010
006604
006602
007672
006606
010476
007434
004240
004244
007700
010772
010504
010534
010134
006632
006636
006634
011376
011266
010324
001002

006574
001000

CSRT
JCSR1

001312
006576

G744
452
453
451
4494
1473
14064
1407#
1408#
14064
14104
14114
1412#
1016

4454
1252+
1599#
4634
464N
1372#
1371#
1421+
13734
1482
1493
952
981#

1422«
1590
1426+
1427+
1518
951+
13854

13844

1802
1783
1597
4614
714%
954+
1491+
1021+
4604

597+
631
663
730+
781+
839+
892«
1010+
1079
1167+

520

1020+

MACY11

C
4
30A(1052)
19-APR-78
09:58
PAGE 42
CROSS REFERENCE TARLE == USER SYMBOLS

SEQ 0041

1858

500#

11434

4848
484

oor

CZKWBJO KW11-P RT CLK TST
CZKwBJ.P11
19-APR-78 09:55

121 2
120

1224
1214

1313

865

880

895

1143

1217

868+

884
12744

1088+
1277

1104»

1287+

1418

1430

1145+

1482+

1442

1454

1840+
1842+

1843

1598

1617
1027#
629+
1255+

1601

834+
831«
1503+
1502+
1433+

1488+
1697#
1495#
9794

1434+
17464
1438+
1439+
1591#
972+«
1784+
1529+«
1812#
1792#
1636

536+
731+

1001+
1527+

1368#
521«
598
634+
671
732+
783
842
894+
1012
1087+«
1176%
527#
1022+«

1058

1263+
1618
854+
953+

1083
853
1264+

1265+

869+
1145

1146+

887+

899+
1483+

948

952+

975+

1445+
1499

1457+
1504+

1537#
1508+

1567

1569

1572

1575

1446+

1458+

1538#

1450+
1451+

1462+
1463+

1698#
1700

17034

973
1801
1561

1383#
1806+

1528+
1812+
1785+

1816+
1803

1786+
1822+
1805+

1799+
1828+
1818+

1823+
1834+
1826+

1836+
1839+
1837+

16394
537

1641

568+
797+

582¢
815+
1076+

643
833+
1089+

660+
871+

672+
886+
1164+

571
608
645
697+

572
611
649
699+
751
804+
864+
935+
1052+
1099
1240

589+
618
654
713x
766+
818
876
1000+
1069
1112+
1538+

590
621+
658+
715+
768
822+
878+
1002+
1071
115

830+

748+
1009+

1537+
1501+
523
601+
635
674+

1545+

549+

765+
1043+
1505+
557+

558+
780+
1051+
1512
567+
607+
644

1546+

1068+

1187«

641+
684+
738+
796+
855+
905+
1044+
1094
1194+

747+
798+
857+
911+
1046
1096+
1200+

928+
1050+
1098+
1207+

1023

1369#

1506+

1511+

734
787+

849+
901+
1042+
1090+

687+

749+

800
861+

1150+

685+

698+
927+
1198+

593+
622
661+
717
772+

594
630+
662+
721+
779+
835+
888+
1008+
1077+
1162+

900+
1185+

832+
885+

1004
1075+
1153«

(ZKWBJO KW11-P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55
CTR

001004

CTRLI = 000211
CTRLT = 000224
CTR1
006600
DELADJ
011610
DELY
004416
DEL1
001024

DEL?2

001026

DEL3

001030

DEL4
DONE
END1A
EOMK

HOLD
OLDIT

RS1
HRSTA
RS2
HRS2A
H502

602

ICOUNT
INIT
INTFLG
CSR
DBR
IN
INI
INI2
INTR

ouT
VEC
VECS
10HZ
T100HZ

INE
CGICA
ooP
ST
STA
IN1
INTA

IN2
IN2A

VE
SGPWR
SG1
$G2

SG3

HLLT

001032
011360
011220
006366

104000

007760
007750

4624

806

1003
4704

1011
700

502

18544

490

471#

4724

006436

559

10204
767

782

569

550

562

577

584

1057

1074

1082

1045
836

1053
858

1070
873

1078
889

902

1091

1107

1859

1777

1780

17834

592

596

600

1762
1335#

1767

1774

614
725
840
1056

620
739
845
1059

624
742
848
1073

633
756
862
1081

637
759
879
1084

647
773
893
1097

656
776
906
1101

1529
1772
1727«
1770

1558
1775«
1728
1776«

1730
1781+
1734+
1778

1733«
1785
1736
1782+

1739«

514«
1452
1556+
1600
1536

1301
1464
1565

14724
1697+

1542

1551

1602

1535
15564
1532+«

1846
1566
1535+

1548+

1557+

456

1502
13814
13824
455
454
1792
1180«
443
958#
13954
14034
13914
13994

13924
1400#

1425
1221
1231
1234

487

15544
1557
1476+
1559

1477+«
1769+
14544
16424

496+
1440
1489
1487+
1515
15264
15414
1548
1515#
1522
1484+
1485+
14304

544

552

1418#
1796#
1183+
1130#
974
1474+

1185

1198

1209#

1530«

1698+

1699

1478+
1764%

1722«
1765

1723
1768+
1718
1763+
1461

1726+

1479+«
1759+

1437
13524
13374
13440

13464

1717+«
1760
1449

723

1049

799

1551
15514
1389#
1397#

707

1015

733

539

688

1007

1860

525

675

929

817

4448

SEQ 0042

825

750
1808#
1757
1218

4694
1428
13744
13804
1379#
1520
1532
1535#
1484

007234
006472
006370
006432

716

4734
1800
1752
1317«

001022
007250
006610
006624
006622
007614
007710
007660
007560

006650
006670

542

789

13908
1398#
457

007762
006626
006630
007000
006714
011304
005570
005174
004152
006656
006676
006646
006666

541+

30A(1052)
19-APR-78
09:58
PAGE 43
CROSS REFERENCE TABLE =~ USER SYMBOLS

774
13864
13874
13704

006642
006662
006644
006664
007150

007064

MACY11

564

579

1740+

1846

1701+

1721+
14664

586

665
788
933
1113

677
791
966
117

690
805
1006

706
808
1014

740

757

1242

1564

604

610

709
823
1017

722
827
1048

1793+

1804+

1809+

1388#
1808+

1420+
1829+

1444

1456+

566

581
744

606

616
793

1250#
961+

1796+

1704

1813«

1830+

1843+

628
811

640
829

648
852

657
867

1308#

1713
1758+

1716+

1103

1118

1228

1246

1291

1299

1492

1316+
1325+
560+

1323
1329+
569+

~NWwWN

1305+

1041

1330

1431

1443

1867#

1459

1580

16494

vIoo
w0

—

1419

wVIrOn

1195

w0 00
o -0

997
1870

924
1854

P
—y

812
1632+

SN~
O
N —

1711«

1708

1753

947
1312

778
1086

727
996

O ~Nw

556

712

1313#

wviroro
VIN~N

1224#

986
988+
505+

1788+
1787+

Hunan
NV~

501
18754
1613
1435
1658#
16674
16764
16854

1644
1646+

—

489
1869
1611
1423
1424
1436
1448
1460
4664
4654
L68#

1497

12524

1495
14904

1245

)
=t -

007412
011652
011676
010246
010356
010376
010416
010436
010456
001014
001012
001020

506*
1300
1393#
14014
1394#
14024
1594#
4482
1271
1280
479

683
897
1292
1291#
1301
1302
1480+
1754+
1481
1749«
1609
1877
12804
1283#
529

1703+
1818

006654
006674
010140
000176
006120
006132
001044

12864
440

18334
18464
1269+
1267
1241
12564
1270
1605
1607+
18164
1799#
1228#
1232
949«
1783+
1486+
1215#
1212#
12144
1214»
1217#
1288
535

SEQ 0043

1702+
1748+

SN
LaS
P oAV ]

006136
006150
006250
006236
006652
006672

438
509«
504
1377#
1378#
1213
503
1147
1212+
1215
508«
4478
670
883

1475«
1589+
1778#
17364

011174
010744
000240
011516
011600
006076
006102
005766
006006
006024
006614
006612
011414
011322
005650
005764
006640
006616
006620
005610
005572
005602
005646
005620
006264
104400

13964
1604#
1771
1729
L4648
1829
1833
1259+
1256
1236
1254
1260#
13764
1375#
1808
1796

4
E
19-APR=78
09:58
PAGE 44
CROSS REFERENCE TABLE =-- USER SYMBOLS

30A(1052)

-2

006660
006700

MACY11

S}
- -

(ZKWBJO KW11-P RT (LK TST
CZKWBJ .P11
19-APR-78 09:55

e
St

642+

CZKWBJO KW11-P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55

MACY11

643

650+
703+
817+
902+

700+
802+

890+

001016
004246
006702
006266
006300
006332
005204
005134
004250
001254
001334
002226
002250
002304
002324
002360
002410
002436
002446
002476
002524
002534
002572
002620
002630
002670
002716

002726
002756
003004
003014
003044
003072
003102
003140
003166
003176
003236
003266
003276
003366
003426
003512
003522
003602

003616
003702
003662
003712
003744
003774

1244
L4674
950+
1405#
488
1318#
1322
1128
11214
960

508
524
670#
6744
683#
687#
6964

701#
702
7124
717#
718
7274

7340
735
729
751#
752
746
7684
769
7784
7834
784
7934

800#
801
795
818#
819
813
834
841
854
863
869
877
887
890#
897#
9024
899

507+
962
1595+
498
1326
13274
11344
963

510

526

680
693
704
707#
720
7234
737
7404
7440
754
7574
7634
44
7744

786
7894

803
8064
811#
821
8254
8294
8424
8524
8644
8674
878#
883#
894#
891
910
908#

F
4
30A(1052)
19-APR-78
09:58
PAGE 45
CROSS REFERENCE TABLE =-- USER SYMBOLS

651

716+

659+
719+

820+
903+

836+
932+

898+

909+
980+
1627+

964
1624+
1222
1334

9864
5194
5344

660
733+
837+

1007+

1235

1015+
9844
1628+
1281

987
530

532

673

675

SEQ 0044

842
1027

843
1035+

678+
753+
846
1049+

1028

1057+

1082+

1629+
13164

1632

736+

750+

679
767+
858+
1074+

686+
770
859+

1091+

688

782+
873+
1092+

691+

692

874+

889+

785+

1107+

799+

1108+«

CZKWBJO KW11=P RT CLK TST
CZKWBJ.P11
19-APR-78 09:55

MACY11

T24C
1240
125
T25A
126
127
T27A
128
T28A
129
T29A
13
T3A
138
T30
31
T4
15
T6
17
19
T9A

004010
004076
004264
004502
004616
004740
005040
005256
005270
005336
005350
001414
001442
001504
005456
005536
001572
001614
001712
001750
002006
002052

9224
9474
977
10414

AITB
XOR
XORA
XORFLG
XORM
E
=

007432
001230
006254
006252
006540
011714

EAIT‘

907
934
926
1018
10644
999
1103#
1152#
11544
11664
11684
5498
5564
5664
1188#
1201#
5814
5884
6064
6164
6284
6404

007422

14924

14944
492
1296
495+
497
4358

599
708

1109
1276
1724
.

ABS.

011714

ERRORS DETECTED:

G
4
30A(1052)
19-APR-78
09:58
PAGE 46
CROSS REFERENCE TABLE -- USER SYMBNLS

9964

1066

10864

1500
1507

1513

512#

1310#

515«
1360#
437
603
724
1116
1319
1731

728

794

1065

1178

1293

1309#

4424

4504

4594

538
623

1123
1324
1737

1126
1328
175

543
632
807

551
636
826

609
741

000
0

CZKWBJ.BIN,CZKWBJ.
/SOL/NL : TOC=CZKWBY
LST/CR
. P11
F

RUN-TIME: 2 4 .5 SECONDS
RUN-TIME RATIO: 41/7=5.7
CORE USED:
9K
(17 PAGES)

SEQ 0045

613
758

619

775
1158

1331

1756

1172
1336#
1761

1182
13434
1766

1190
13454
1773

563
646
844

1203
1359#
1779

578
655
847
1220
16413#

585
664
904
1229
1709

591
676
1093

1233
1714

595
689

1100
1247
1719