Digital PDFs

AH-8648H-MC

May 1978

41 pages

Original

2.2MB

view download

OCR Version

1.8MB

view download

Document:	CZDRCH0 DR11C DEVICE REGISTER TEST DEC 1978 bw
Order Number:	AH-8648H-MC
Revision:	000
Pages:	41
Original Filename:	CZDRCH0__DR11C__DEVICE_REGISTER_TEST__AH-8648H-MC__DEC_1978_bw.pdf

OCR Text

DEVICE REGISTER TEST

CZDRCHO

AH-8648H-MC

DEC 1978

Qfl!jflafl

FICHE1 OF 1

MADE IN USA

12-CIDRC-H ,DR11C DEV REG
12=-JUN-78 14:57
CZDRCH.PN

MACY*1

30A(1052)

12-JUN=-78

14:59

PAGE 2

SEQ 0001

) o

0O NOWVIEB WA= O 000 NN

.REM 2%

PRODUCT CODE
:

AC-8647H~M(

PRODUCT NAME
:

CZDRCHO DR11C DEVICE RcGISTER

—

)

IDENTIFICATION

DATE

APRIL,

MAINTAINER:

1977

DIAGNOSTIC GROUP

19%gP¥g;gHT

(C)

DIGITAL EQUIPMENT CORPORA

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 GfigP?NSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
DOCUMENT.
THE SOF TWARE DESCRIBED

IN THIS DOCUMENT

IS FURNISHED UNDER A

LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH
THE

TERMS OF

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR THE USE OR RELIABILITY
THAT

IS NOT

ITS SOFTWARE ON EQUIPMENT

SUPPLIED BY DIGITAL.

27-CIDRC~H,DR11C DEV REG
CZDRCH.P11
12-JUN-78 14:57

MACY11

30A(1052)

12-JUN-78

¢
14:59

1
PAGE 3

SEQ 0002

ABSTRACT
THIS IS A LOGIC TEST OF THE DR11C.
FOR THIS TEST TO OPERATE
A SPECIAL MAINTENANCE CABLE MUST BE CONNECTED (BCO8R).
THIS TEST WILL CHECK UP TO 32 SEQUENTIAL DR11C'S.
REQUIREMENTS

EQUIPMENT
PDP-11

STANDARD

COMPUTER

DRI1C

BCO8BR FOR EACH DR11C
STORAGE

2.2.1

PROGRAM STORAGE - THE ROUTINE USES MEMORY
FROM 0000 TO 5200.

LOADING PROCEDURE
ME THOD

ABSOLUTE LOADER

STARTING PROCEDURE
CONTROL

SWITCH SETTING

FOR SWITCHLESS PROCESSORS,

THE

PROGRAM WILL

USE

THE

CONTENTS OF LOCATION 176 AS THE VALUE OF THE SWITCHES

IF NO HARDWARE SWITCH REGISTER IS FOUND. THE PROGRAM
ALLOWS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER
THROUGH THE CONTROL G (“G) ROUTINE.
LOCATION 174
WILL BE USED AS THE SOF TWARE DISPLAY REGISTER.

STARTING AT SA 200 ALL SWITCHES SHOULD BE DOWN OR ZERO.
(IF NOT ZERO, BIT O TO 8 WILL BE STARTING VECTOR.)
STARTING ADDRESS OR ADDRESSES
(A)
(B)
(C)

200 = START OF TEST--FOR NORMAL TESTING
204 = SPECIAL ENTRANCE ~~FOR TESTING UNIQUE DR1I1C
210 = RESTART--FOR STARTING AFTER SHUT DOWN

PROGRAM AND/OR OPERATOR ACTION

LOAD PROGRAM INTO MEMORY.

ZZ-CZDRC~H,DR11C DEV REG

CZDRCH.PI

12-JUN-78 14:57

MACYi1

30A(1052)

1
PAGE 4

0D
14:59

12-JUN-78

SEQ 0003

SET SWITCH REGISTER TO STARTING ADDRESS.
LOAD ADDRESS.

PRESS START,
THE PROGRAM WILL

N—‘O\OQVO‘\AJ\WN—‘O‘O@VOU"J\WN—‘Og

b
d
b
)
d
)
b e

TO CSR ADDRESS OF

DR11(C

2ND HALT SET SWITCH REGISTER EQUAL TO VECTOR ADDRESS OF DR11C

RAISE SWITCH 10 TO ‘""" TO INHIBIT SEQUENCING TO NEXT DR11C

b eed e e e

) el
d
WY —
W
G
QU
S
I

FOR SPECIAL ENTRANCE - SA204

PRESS CONTINUE

OPERATING PROCEDURE
O2ERATIONAL SWITCH SETTINGS

5.1.1

NN
PN NON) =
W WWWWNIN
W

N P
P
NN\
g
G Y QU § P

IN SECTION AND LOOP.

1ST HALT SET SWITCH REGISTER EQUAL
PRESS CONTINUE

b b d b

6.3.1

STAY

AT SA 200
WITH ALL

THE

INSTRUCTION AND LOGIC TEST.

SWITCHES DOWN THE PROGRAM WILL

OUT ON ERRORS AND CONTINUE IN TEST. (% WILL
BE PRINTED AT COMPLETION OF TESTING EACH DR11()

5.1.2

SWIT(H SETTINGS ARE
SW15 = 1
SW14 = 1

OR UP ...
OR UP ...

HALT ON ERROR
SCOPE LOOP

SW09 = 1

OR UP ...

INHIBIT PRINTOUT OF

SW13
SW12
SW11
SW10

=
=
=

1
1
1
1

OR
OR
OR
OR

UP
UP
UP
UP

... INHIBIT PRINTOUT
... NOT USED
... INHIBIT ITERATION LOOP
... DO NOT ADVANCE TO NEXT DR11C
DEVICE

TESTED.

5.1.3
5.2.

SUBROUTINE ABSTRACTS

5.2.1

BEGIN

5.2.2

SCOPE

SA 2C0

THIS SUBROUTINE CALL 1S PLACED BETWEEN EACH SUBTEST
IN THE INSTRUCTION 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 SUBTEST THAT THE SCOPE LOOP IS REQUESTED FOR.

5.2.3

HALT
IS A ROUTINE THAT PRINTS-OUT AN ADDRESS THAT TAGS
THE

THE
(5.

FAILING SUBTEST,

TIME OF

AND

THE FAILURE.

OPERATING PROCEDURE CONT'D)

THE INCORRECT DATA AT

SEE 6.1

1Z-CZDRC~H,DR11C DEV REG
CZDRCH.P11
12-JUN~78 14:57

157

158
159
160
161
162

MACY11 30A(1052)

5.3

12-JUN-78

14:59

PAGE 5

SEQ 0004

PROGRAM AND/OR OPERATOR ACTION

5.3.1

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN
IS THE INSTRUCTION AND LOGIC TEST.
IF AN ERROR
IS DETECTED HERE, THERE WILL BE A PRINTOUT.
WHEN

AN ERROR

163

IS DETECTED AND IT IS NECESSARY TO SCOPE

ON IT, PLACE SW15 UP TO HALT ON ERROR,

164
165
166
167
168
169
170
7
172
173
174

TO LOOP ON ERROR,

THEN SW14 UP

THEN SW13 UP TO DELETE PRINTOUTS.

ERRORS

ERROR PRINTOUT

ARE IN A FOUR WORD FORMAT.,
THE 1ST IS THE PC+2 OF
DETECTED ERROR.
THE Z2ND IS THE PROCESSOR STATUS
REGISTER.
THE 3RD IS DEVICE ADDRESS,
VECTOR ADDRESS.

6.2

THE

THE &4TH IS

ERROR RECOVERY

DEPRESS CONTINUE

TO RESTART SECTION

RESTRICTIONS

STARTING RESTRICTION
NONE

OPERATIONAL RESTRICTION
THE DR11( MUST HAVE THE BCO8R CABLE TO RUN
THIS

TEST.

NOTE

THAT THE DR11C HAS FLOATING VECTORS:

THE BELOW 1S THE ASSIGNMENT OF
SEQUENCES ARE:

FLOATING VECTORS,

THE ASSIGNED

THEN ANY DM11

THEN ANY DN11

THEN ANY DM11BB CALLED FOR.
THEN ANY DR11A CALLED FOR.
THEN ANY DR11C CALLED ®OR.

THEN ANY EXTRA KL11

STARTING AT 300 AND WORKING UPWARD ALL DC11'S WILL BE ASSIGNED.

7.2

CALLED FOR (VT05, VvT06, LC11)

THEN ANY DP11

CALLED FOR.
CALLED FOR.
CALLED FOR.

Z2-CIDR{-H,DR11C DEV REG
CZDRCH.P11
12-JUN-78 14:57

MACY11

30A(1052)

12-JUN-78

14:59

PAGE 6

SEQ 0005

THE DRT1A AND DR11C DEVICE ADDRESSES WILL BE ASSIGNED IN THE USER
AREA OF 767776 TO 764000.
THE ASSIGNMENT OF ADDRESSES WILL START AT
THE HIGH ADDRESS LIMIT AND PROCEED DOWNWARD.

SHOULD START THEIR ASSIGNMENTS OF

LIMIT AND WORK UP.

USERS AND

“PECIAL

SYSTEMS

SPECIAL DEVICES AT THE LOW ADDRESS

AFTER ASSIGNING ALL DR11A'S, ASSIGN DR11C'S

767776 TO 767770
767766 T0 767760

DR11C #0
DR11C 41

767706 T0 767700

DR11C #7

767606 TO 767600

DR11C #15

;ASSUMING NO DR11A'S

MISCELLANEOUS
WHERE

THERE ARE MULTIPLE DR11C OR A SYSTEM AND

TEST ONLY ONE

THEM.

STARTING ADDRESS AND PLACING SW10 ON A ONE
TO THE NEXT DR11C.
SEE 4.3.1.
8.1

IS DESIRED TO

(UP)

THE

SPECIAL

TO INHIBIT SEQUENCING

EXECUTION TIME
FOR EACH DR11C ABOUT

8.2

THIS MAY BE ACHIEVED BY USING

MINUTE

UNTESTED LOGIC
SIGNALS TO USER NOT
"NEW DATA READY''
"DATA TRANSMITTED''

TESTED:

"INIT"® TO THE USER

PROGRAM DESCRIPTION

THIS PROGRAM WHEN STARTED AT 200 CHECKS THE
THE PROGRAM THEN PERFORMES AN
THE SELECTED DR11C.

INCREMENTAL

THE DATA REGISTER IS TESTED TO SEE

AND

IT WILL

THE

READ/WRITE

HOLD ALL

BITS OF

LOGIC

CHECK FOR

IF 'RESET'' CLEARS IT,

COMBINATIONS OF

THE

STANDARD DR11-('S

NUMBERS.

STATUS REGISTER ARE

ALSO

BOTH THE "A'" AND '®'' INTERRUPTS ARE TESTED TO SEE
INTERRUPT AT THE CORRECT BUS REQUEST LEVEL BR-5.
AT

THE

END OF

THE

TEST AN

°'='

TYPED AND ALSO THE

TESTED.

THEY

ADDRESSES OF THE DR11-C CONTROL STATUS REGISTER AND
IT'S SIDE INTERRUPT VECTOR IS TYPED (IF SELECTED VIA
SWITCH 9.).
THE PROGRAM THEN RETESTS THE UNIT (IF SELECTED
VIA SWITCH 10) OR SCANS TO THE NEXT DR11-C.
IF ANOTHER
DR11-C IS ON THE SYSTEM THEN THE PROGRAM RESTARTS TESTING

27-CZDRC-H,DR11C DEV REG

CZDRCH.P11
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286

12-JUN-78 14:57

MACYTT1

30A(1052)

12-JUN-78

14.59

PAGE 7

THE NEW DR11-C.

AFTER ALL DR11-C'S HAVE BEEN TESTED THE PROGRAM WILL
TYPt 'END PASS' AND RESTART TESTING WITH THE INITIAL DR11-(C.

IF NO ERRORS OCCUR AND THREE DR11-C'S ARE AVAILABLE
AND SWITCH 9 1S DOWN THE PROGRAM WILL TYPE.
160000 770 =
157770 1000 «
}57760 1010 =
ETC.

IF SWITCH 9 1S UP THEN
4
*
®

IF A POWER FAIL OCCURS THE PROGRAM WILL RESTART AT ''START'',

SEQ 0006

72-CIDRC-H,DR11C DEV REG
12-JUN=78 14:57
CZDRCH.P11

287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
202
303
304
305
306
307
308
309
310
N
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342

MACY11

30A(1052)

10.

12-JUN-78

14:59

PAGE 8

SEQ 0007

LISTING

:GENERAL REGISTER LOGIC TEST
177776
104000
167770

000000
000001
000002
000003
000004
000005
000006
000007

PSw=177776
HLT=1C4000

CSR- 57770

JREGISTER DEF INITIONS

RO=20

R1=%1
R2=%2
R3=%3
R&~-%4
R5=%5
SP=%6
PC=%7
sSWITCHES

SwW9=1000
SW10=2000
SW11=4000
SW13=20000
Sw14=40000

001000
002000
004000
020000
040000
.SBTTL

001200

:*INITIAL ADDRESS OF THE STACK POINTER *wxx 1200 wwx

STACK=

.EQUIV

.EQUIV
HT=

177776

PS=
.EQUIV

177774
177772
177570
177570

000000
000001
000002
000C03

1200

EMT ,ERROR

]OT,SCOPE

;;BASIC DEFINITION OF

s *MISCELLANEOUS DEFINITIONS

000011
000012

000015
000200

BASIC DEFINITIONS

LF=
(R=
CRLF=

SCOPE CALL

;;CODE

177776
PS,PSW

; ;PROCESSOR STATUS WORD

12
15
200

FOR HORIZONTAL

ERROR CALL

TAB

;;CODE FOR LINE FEED
;;CODE FOR CARRIAGE RETURN
;. CODE FOR CARRIAGE RETURN-LINE FEED

STKLMT= 177774

s;STACK LIMIT REGISTER

DSWR=
DDISP=

; ;HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

PIRQ-

177772

177570
177570

; ;PROGRAM INTERRUPT REQUEST REGISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS

RO-

s :GENERAL REGISTER

R2
R3

%2
X3

; s GENERAL REGISTER
; ;GENERAL REGISTER

R1-

; ;GENERAL REGISTER

77-CZDRC=H,DR11C DEV REG

CZDRCH.P11

12=JUN-78 14:57

MACYT1 30A(1052)

12-JUN-78

BASIC DEFINITIONS

1
PAGE 9

SEQ 0008

000004
000005
000006
000007
000006
000007

R4=
R5=
R6=

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=

0
40

:;PRIORITY LEVEL O
::PRIORITY LEVEL 1

PR3=
PR4=
PRS=
PR6=
PR7=

140
200
240
300
340

::PRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
:;PRIORITY

R7=
SP=
PC=

X4
x5
26

[
14:59

X7
%6
X7

;*PRIORITY LEVEL DEFINITIONS

PRZ2=

100

::PRIORITY LEVEL 2
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

:*''SWITCH REGISTER'® SWITCH DEFINITIONS

100000
40000
020000
010090
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

SwW15=
SW14=
Swi3=
Swi2=
SW11=

100000
40000
20000
10000
4000

SW08=
Swo7=
SwWo6=
SWw0S=
SW04=
sw03=
SW02=
Swol=
Sw00=

400
200
100
40
20
10
4
2
1

100000

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BITO6=

040000
020000
010000
004000
002000
001000
000410
000200
000100

:;GENERAL REGISTER
; ;GENERAL REGISTER
; ;GENERAL REGISTER
; :GENERAL REGISTER
:3STACK POINTER
; ;PROGRAM (COUNTER

SWw10=
Sw09=

EQUIV
.EQUIV
EQUIV
JEQUIV
.EQUIV
LEQUIV
LEQUIV
LEQUIV
.EQUIV
LEQUIV

2000
1000

SW09,SwW9
SW08,Sw8
SWO7.,SW7
SW06,SW6
SWO05,SW5
SWO04,SW4
SW03,Sw3
SW0Z2,SW2
SW01,swl
SW00,Sw0

;*DATA BIT DEFINITIONS (BITOO TO BIT1S5)
100000
40000
20000
10000
4000
2000

1000
400
200
100

3
4
S
6
7
P Ad

2Z-CIZDRC~H,DR11C DEV REG
12-JUN=-78 14:57
CZDRCH.P11

399

000040
000020
000010
000004
000002
000001

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

416
417
418

419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436

437
438
439

440
441
462

443
444
445

446
447

448
449
450
451
452
453
454

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064

000240

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050

000052
000054
000056

000000
000002
000000
000006
000000
000012
000000
000016
000000
000022
000000
000026
000000
000032

000000
000036
000000
000042
000000
000046
000000
000052
000000
000056
000000

MACY11 30A(1052)

12-JUN-78

BASIC DEFINITIONS

BITO05=
BIT04=
8I1T03=
BITO2=
BITO1=
BITO00=
.EQUIV
.EQUlV
.EQUlv
.EQUIV
.EQUlV
.EQUIV
.EQulv
.EQUlv
.EQUIV
.EQulv

14:59

PAGE 10

SEQ 0009

40
20
10
&
2
1
BIT09,BIT9
BITO8,BIT8
BIT07,BIT7
BIT06,BIT6
BITO05,BITS
BIT04.BIT4
BIT03,BIT3
BIT02.BIT?2
BITO01.BIT1
B81T700,8BI1T0

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

BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

EMTVEC= 30

TRAPVE(C=34
TKVEC=
60
TPVEC=

PIRQVEC=240
.EgABLE ABS

.42

HALT

.42

HALT

.42

HALT

.42

HALT

.42

HALT

.42

HALT

.+2

HALT

.42

HALT

.42

HALT

s ;TRACE

TRAP

; ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT) #*=SCOPE«*
; ;POWER FAIL
s ;EMULATOR TRAP (EMT) *«ERRORw*
;:"'TRAP'" TRAP

;:T1Y KEYBOARD VECTOR
;:7TY PRINTER VECTOR
;. PROGRAM INTERRUPT REQUEST

VECTOR

27-CZDRC-H,DR11C DEV KEG
CZDRCH.P11
12-JUN=78 14:57
455
456
457
458
459
460

461
462
463
464
465
466
467
468
469
470
471

472
473
476
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505

506
507
508
509
510

000060
000062
000064
000066
000070
000072

000062
000000
000066
000000
000072
000000

000076
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122

000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000

000126
000130
000132
000134
000136
000140
000142
000144
000146
000150

000000
000132
000000
000136
000000
000142
000000
000146
000000
000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000176
000000
000202
000000
000206
000000
000212
000000
000216
000000
000c.2
000000
000226

0001246

000152
000154

000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204
000206
000210

000212
000214
000216
000220
000222
000224
000226
000230
000232
000234
000236

000126

000000
000232
000000
000236
000000

MACY1T1

30A(1052)

12-JUN-78

BASIC DEFINITIONS

.42

HALT

K
14:59

1
PAGE 11

SEQ 0010

17-CZDRC-H,DR11C DEV REG
CZDRCH.P11
12-JUN=78 14:57
511

512
513
514

000240

000242

000242
000244
000246

000020
000046
000300

527
528
529
530
531
53¢
533
534
535
53
537
538
539

100260
000262
000264
000266
000270
000272
000274
000276
000300
000302
000304
000306
000779
UU0312
000314
000316
000320
000322
000324
000326
000330

200262
000000
000266
000000
000272
000000
000276
000000
000302
000000
000306
000000
000312
000000
000316
000000
000322
000000
000326
000000
000332

544
545
546

000342
000344
000346

515
516
517
518
519
520
521

522
523
524
525
526

540
541
542
543

552
553
554
555
556
557
558
559
560
561
562
563
564
565
566

000250
000252
000254
000256

000332
000334
000336
000340

000362
000364
000366
000370
000372
000374
000376
000400
000402
000404
000406
000410
000412
000414
000416

000252
000000
000256
000000

000000
000336
000000
000342

000000
000346
000000

000000
000366
000000
000372
000000
000376
000000
000402
000000
000406
000000
000412
(00000
000416
000000

MACY11 30A(1052)

12-JUN-78

BASIC DEFINITIONS

.42

T
HAL

.42

HAL 1

L
14:59

1
PAGE 12

SEQ 0011

ZZ-C7DRC~H,DR11C DEV REG
12=-JUN~78 14:57
CZORCH P11

567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603

000422

000000
000562
000000
000566
000000

000572
000000
000576
000000

MACY11 30A(1052)

12-JUN-78

BASIC DEFINITIONS
HALT

14:59

PAGE 13

SEQ 0012

22-CZ0RC-H,DR11C DEV REG

CZDRCH.P11

12-JUN-78 14:57

623
624
625
626
627
628
629
530
631
632
633
634
635

0uU0600
000602
000604
000606
000610
000612
000614
000616
000620
000622
000624
000626
000630

000602
Q00000
000606
000000
000612
000000
000616
000000
000622
000000
000625
000000
000632

678

000756

000000

MACY11 30A(1052)

12-JUN-78

BASIC DEFINITIONS
.+

HALT

14:59

PAGE 14

SEQ 0013

I{~-CZDRC-H,DR11C DEV REG
CZDRCH.P11
12-JUN=-78 14:57

000760
000762
000764
000766

Mal /11

12-JUN-78
30A(1052)
BASIC DEFINITIONS

000762
000000
000766
000000
000772

.=1200

;THIS

TABLE

RCSR:

CSR

;THIS

SEQ 0014

TABLE

DRVE(B:
XORFLG:

:
COUNT

S#START

CONTAINS

INITIAL

JINITIAL START
27O SELECT UNIQUE ADDRESS AND VECTOR
JRESTART
REGISTER AND

VECTOR ADDRESSES

CONTAINS REGISTER AND VFCTOR ADDRESSES OF

177570
SWR:
DISPLA: 177570
167770
DRCSR:
:
1677
UF
DROB
72
: 167774
DRIBUF
DRBH!IO: 167773

PL:

@#START1

CSR+2
CSR+4
CSR+3
300
202
304

DRVECA:
DRLVL:

000000
000240

.=200

JMP
JMP
JMP

RCSR1:

167774
167773

PAGE

001250
001616
00176

177570

HALT

DISPRE:
SWREG:

177570
167770
167772

14:59

THE DR11-C UNDFR TEST

;ADDRESS OF DR11-C STATUS REGISTER
;ADDRESS OF DR OUTPUT BUFFER REG.
;ADDRESS OF DR INPUT BUFFER REG.
sHIGH BYTE OF OUTPUT BUFFER REG.
;INTERRUPT VECTOR OF UNIT UNDER TEST

;INTERRUPT VECTOR
sCOUNT LOCATION

;PRIORITY LEVEL

2Z-CZDRC-H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P11

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
765
766
767
68
769
770
771
772
773
774
775
776
777
778
779
780
781

782
783
784
785
786
787
788
789
790

001246

1T 30A(1052)
MACY
12-JUN-78
BAS]IC DEFINITIONS
RfiSCNT:

000000

START1:
LSBTTL

001250
001250

012706

001200

001254
001260
001266
001274
001302
001310

013746
012737
012767
012767
022777
001012

000004
001314

001312
001314
001320
001322
001330
001336

000403
012716
000002
012767
012767
012637

001342
001350

177570
177570
177777

177666
177662

023737
001433

000042

000046

001352
001356
001360

005227
001027
104401

177777

001364
001370
001372

005737
001006

001400
001402
001404
001406
001414
001414

001436
001436

104405
000403
112767

JNUMBER OF PASSES COMPLETED

MOV

a#ERRVEC,~(SP)

MOV
MOV
CMP

#DSWR, SWR
#DDISP,DISFLAY
#-1,3SWR

64%:

BR
Q?Y

65%:
66%:

.SBTTL

000042

;:SET UP ERROR VECTOR

66%

65%
#65%, (SP)

;sBRANCH IF NO TIMEOUT TRAP OCCURRED
:3AND THE HARDWARE SWR IS NOT - -1
;;BRANCH IF NO TIMEOUT
;:SET UP FOR TRAP RETURN

MOV

#SWREG, SWR

. sPOINT TO SOF TWARE SWR

(MP
BEQ

w62, ah466
3%

JYES, SKIP TITLE

BNE

67%

;;BRANCH IF NO

TST

Y 194

:JARE WE RUNNING UNDER XXDP/ACT?

CMP

SWR,#SWREG

;3SOFTWARE SWITCH REG SELECTED?

MOV
MOV

BNE

000410

932:

é;28$:

000463

#DISPREG,DISPLAY
(SP)+ ,3#ERRVEC
;.;RESTORE ERROR VE(CTOR

TYPE
,68%
;3TYPE ASCIZ STRING
GET VALUE FOR SOF TWARE SWITCH REGISTER

GTSWR

005144

J3SETUP FOR A HARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REGISTER
;:TRY TO REFERENCE HARDWARE SWR

TYPE PROGRAM NAME
THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
J:FIRST TIME?

BNE

000176

;;SAVE ERROR VECTOR

#6468 ,aNERRVEC

B8NE

.SBTTL
;:TYPE

001416

000001

69%

70%

::BRANCH [F YES
;sBRANCH IF NO

;:GET SOFT-SWR SETTINGS

MOVB

#1,8AUT0B

;:SET AUTO-MUDE

BR
LASCIZ

67%
::GET OVER THE ASCIZ
<CRLF>#MD-11-DZDRC~GA<CRLF>

B8R

;SIZE FOR INTERRUPT VECTOR IF
001440
001444
001450
001454
001456
001462
001464
001472
001500
001506
001510
001512

012700
010060
012720
005720
022700
100370
012737
012737

012777
000240
000240
000000

000302
177776
000003

3%:

000776

001516
000340
000101

SEQ 0015

INITIALIZE THE COMMON TAGS
MOV
#STACK,SP
;oSETUP THE STACK POINTER

MOV

000004
177722
177716
177706

001322

177620

2
PAGE 16

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "'=1'', SETUP FOR A SOFTWARE SWITCH REGISTER.

000176
000174
000004

026727
001005

c
14:59

MOV

RO,=2(RO)
#3,(RO)+
(RO)
+

BPL
MoV

43
#58 aN14

(MP

000014
000016
177472

#302 ,RO

MOV
MOV
TST

MOV
MOV

NOP
NOP

HALT

INDICATOR

:SKIP INTERRUPT VECTOR SIZER F
;IN AUTOMATIC MODE

IN AUTOMATIC MODE.

JSET UP FLOATING VECTOR AREA

#776,R0

#340,a416
#101,3RCSR

;SET UP BPT

;SET UP BPT PSW
JFORCE AN INTERRUPT

sNO INTERRUPT OCCURRED

2Z-CZDRC~H,DR11C DEV REG
12=JUN=-78 14:57
CZDRCH.P11

001514
001516
001522

000423
162716

011637
013737
062737
013737
062737
012737
012700
010060
005020
005720
022700
100371
004767
000137
012706
004767
000167
013746
012737
012737
012637
012737
012701
004737
012701
004737
104401

00664 0
000207
022626
012637
005037
000207
012700
012701
012021
012021
012021
012021
012021
012021
012021
012706
012767
005037
104406

032777
001002
004737
016705
012777

D ¢
14:59 PAGE 17
12=JUN-78
MACYi1 30A(1052)
GET VALUE FUR SOFTWARE SWITCH REGISTER

000004
001210
001210
000002
001210
000004

5%:

BR
suB
MOV
Mov
ADD
MOV

63
#4, (SP)
(SP) ,a#RCSR1
a#RCSR1,a#RCSR1+2
#2 ,3#R(SR1+2
a#RCSR1 ,a#R(SR1+4

MOV

#16,a414

ADD

000016
000302
177776

6%:
7%:

MoV

000020
001726
001200
000004

8%:

MOV
CLR
TST
(MP
8PL
JSR

SPEC:

MOV

000004
001712
000031
000004
177777
160000
005246
000770
005276

FIRST:

JMP
MOV
Mov

000776

003360

000004

177060

JMP

001240

TYPE

000004
001240

RTS

cMP
MOV
CLR
RTS

A#START

#STACK
, %6
SPECO
w6 ,-(X6)
#XORA
, k4

(X6)+ a4
#-1_ a#X0RFLG

#160000,R1

PC,a#SPEC1
#770,R1
PC,a#SPEC?
PC

(X6)+,(26)+
(X6)+,a#4

MXORFLG
PC

JINITIALIZE ADDRESS AND VECTORS

001200
001222

START:

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#RCSR,RO
#DRCSR,R1
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+

MOV

(RO)+,(R1)+

MOV

001200
002010
004770

JSET UP TRAP CATCHER

003004

RSTART:

MOV
MOV
CLR

JRESTORE BPT

RO,=2(R0O)
(RO)+
(RO)
+
#776,R0
7%
PC.FIRST

#31,a4177060

MESS1
XORA:

#302 RO

MOV

JSR
MOV
JSR

JFILL IN NEXT TABLE ENTRY

JFILL IN LAST TABLE ENTRY

PC,FIRST

MOV

:FIGURE OUT INTERRUPT VECTOR
;PUT IT IN TABLE

#4 ,a¥RCSRT1+4

JSR

MOV
MOV

SEQ 0016

;GET ADDRESS OF FIRST POSSIBLE DR11-=C*'S
JLOAD

INITIAL TEST ADDRESSES

(RO)+,(R1)+

#STACK, X6
#BEGIN,RETURN
a#SCOPEF

;SET UP STACK
;SET SCOPE RETURN

;DOES RESET CLEAR REGISTER?
001000

005010

177206
000240

CKSWR

177214

175754

8IT

EGIN:

#SW9,aSwR

BNE
JSR

BEGIN
PC,3#MOREID

MOv

#240,9PSW

MoV

DRCSR,RS

:GET ADDRESS OF STATUS REGISTER
JSET PRIORITY LEVEL 6

7Z-CZDRC~H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P11

002022
002030
002036
002044
002046
002052
002054
002056
002060
002062
002066

012737
012767
012777
000005
017700
001403

002074
002076
002104
002112
002116
002122
002124

000904
012767
012777
017700
022700
001401
104000

002126
002130
002136
002144
002146
002152
002154

000004
012767
012777
000005
005777
001401
104000

104000
000401
104000
012706
012737

000004

012767
012777
017700
022700
001401
104000

000004
012777
017700
022700

001401
104000

002272

000004
012737
010502
005722
012703
012704
005000
005012
060300
060312
021200
001401

002060
000010
177777

MACY11

000004
002730
177160

177152

MOV
MOV
MOV
RESET
MOV

001200
000006

HLT
BR
HLT
MOV
MoV

004000
177777
177106
177777

000010
177777

BEQ

000004

SCOPE

002662

MoV
MOV
MOV

177112

cvP
BEQ
HLT

SCOPE
MOV
MOV
RESET
TST
BEQ
HLT

002630
177060

177054

004000
052525
177024

SCOPE
MoV

002600

177030

MoV
MOV
CMP
BEQ
HLT

052525

125252
177000
125252

12=-JUN-78
14:59
PAGE 18
30A(1052)
GET VALUE FOR SOFTWARE SWITCH REGISTER

SCOPE

177004

MOV
MOV

cMP
BEQ
HLT

1S, N6
#10,1CCUNT
#-1,3DROBUF

aDROBUF
, %0
2%

2%
#STACK,SP

#6, 346

#4000,
1 COUNT

#-1,3DROBUF

@DROBUF
, %0

SEQ 0017

;SET TIME OUT TRAP VE(CTOR

JPRESET OUTPUT BUFFER
;CLEAR DATA REGISTER
;GET RESULT OF RESET

;DATA REGISTER NOT CLEAR
JERROR!
JRESET

TIMED OUT WHEN REFERENCING DROBUF.

STACK POINTER

JRESTORE TIME OUT TRAP

JALL ONES TO REGISTER

‘-1510

#10, ICOUNT
#-1,aDROBUF
aDRIBUF
.+

JREG WILL

NOT HOLD ONES

;JSET DATA TO ALL ONES
;SHOULD CLEAR REGISTER
sREG FAILED

CLEAR

#4000,
I COUNT
#52525 ,3DROBUF
aDROBUF
, X0

#53525.20
L+

;DATA NOT=52525
#125252 ,aDROBUF

@DROBUF
, %0

#155252,20
.+

;DATA NOT=125252

;TEST RELIABILITY OF DR11-C OUTPUT BUFFER REGISTER
000040

0004C1
000400

004766

BUFTST:

1%:

2%:

SCOPE
MoV
MOV
TST
MoV
MoV

CLR
CLR

ADD
ADD

CMP
BEQ

#40,a4
1 COUNT

RS ,R2
(R2)+
#401,R3
#256. R4
RO
(R2)
R3.,R0
(R2) ,RO
44

;GET ADDRESS OF DRCSR

sR2=ADDRESS OF OUTPUT BUFFER REG.
sLOAD CONSTANT
sSET COUNT
JPRESET EXPECTED RESULT
;CLEAR REGISTER

22-CZDRC-H,DR11C DEV REG
12=-JUN~78 14:57
CZDRCH.P11

002274
905

MACYT1

F
2
30A(1052)
12-JUN-78
14:59 PAGE 19
GET VALUE FOR SOFTWARE SWITCH REGISTER

104000

HLT
DEC
BNE

005304
001371

006303
001363

ASL

BNE
;TEST

000004
012777
105077
017700
022700
001401

177777
176702
176676
177400

176706

TAG:

104000
105764

001402
000764
000000
000004

002512

177777
176656
176646

SCOPE
MOV
CLRB
MOV

176656

000377

cMP
BEQ
HLT

SCOPE
CLR

002440
002440

MoV

176620

176620
176614
000001
176600

1%:

000001

CLR
CLRB
INCB
INCB
cMp
BEQ
HLT
TSTB
BEQ

BR
.WORD
SCOPE

#-1,3DROBUF
aDROBUF

aDROBUF
, %0

000004
012767
012715
000005

000010
000140

CLR

MoV
BEQ
HLT
MOV
MoV
CMP
BEQ
HLT

000140

002264

SCOPE

MOV
MOV
RESET
MOV

BEQ

AFFECT PROPER BYTE ONLY

;CLEAR LOW BYTE

#127400.10
L+

;BYTE LOW FAILED TO CLEAR
#-1,aDROBUF
aDRBHIO

@DROBLF
, %0

#377,%0
.+

;CLEAR HIGH BYTE

JHIGH BYTE

CLEAR

FAILED

4%
aDROBUF
aDRBHIO
aDRBHIO
1(R4)
F
, (R4)
aDROBU

.th

1(R4)

s INCREMENT HIGH BYTE

;HIGH BYTE HAS BAD DATA

3%
1%

2%:
0
3%:
;CONTROL STATUS REGISTER (DRCSR)

000140

011500

CLRB

TO DROBUF

HLT

005015
011500
001401
104000
012715
011500
022700
001401
104000

001401

SCOPE

MOV

cMP
BEQ

104000

000004
005037
012704
005077
105077
105277
105264
027714
001401

THAT BYTE REFERENCE

MOV

104000

000004
012777
105077
017700
022700
001401

SEQ 0018

(RS)
(R5) ,RO
.t

TESTS.

#140,3R5

;INTERRUPT ENABLE

#140,20

;ENABLE BITS

@R5,%0
R

#10, 1COUNT
#140,3R5

aR5,%0
.t4

FOR A+B

sJSET INTERRUPT ENABLE FLOPS
;CLEAR THOSE FLOPS

12~CIDRC-H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P11

002514

104000

002516
002520
002524

000004
052715
021527
001401

002530
002532
002534

002556

000004

002572
002576
002600
002602
002606
002612

052715
022715
001401
104000
042715
022715
001401
104000

002616
002620
002626
002632
002634
002636
002640

SCOPE
BIS
MP
BEQ
HLT
CLR

000001
000201

052737

000004
012737

052715

000005
005715
001401
104000

000004
012767
005015
005215
105715

SCOPE
BIS
CMP
BEQ
HLT
CLR

000002

100002

000340
177777
100343
000003
000140

000340
000003

88
Qe
Jour Qhtur G

elelelele]

1006

002676
002700
002702
002706
002714
002716

017777
001401
104000

MOV

BIS

RESET
TS7T

BEQ
HLT

004000

002114

SCOPE

MOV
CLR

INC

TSTB

8M]
HLT

SCOPE

000002

MOV
TST

100401
104000

000004
005077

SCOPE

177776

100401
104000

000004
012715
005715

SCOPE
8IS
BIS
CMP
BEQ
HLT
8IC
(MP
BEQ
HLT

177776

BM]
HLT

;TEST EXTERNAL

176316
176314

176310

SCOPE
CLR

MOV

BEQ
HLT

SEQ 0019

JRESET DID NOT CLEAR INTERRUPT ENABLE BITS

HLT

005015

000004
052715
021527
001401
104000
005015

002614

G 2
14:59
PAGE 20
12-JUN-78
30A(1052)
GE7 VALUE FOR SOFTWARE SWITCH REGISTER

104000

002536
002540
002544
002550
002552
002554
002560
002566

MACY*1

#1,3RS

kS #2017

2SHOULD SET REQ A ALSO

R T2

AR5
#2,3R5

8R2,3100002

".SHOULD SET REQ B

W+

aR5
#340,a4PSW
#-1,aR5
#100343, (RS)
.+4
#3,aR5
#140,9R5

R TA

;WRONG BITS SET

#340,34PSW
#3,3R5

arR>5
.+

JRESET DID NOT CLEAR

#4000, ICOUNT

RS
RS
aRS
. +4

#2,0RS
aR5
R

;BIT O DID NOT SET BIT 7

;BIT 1 DID NOT SET BIT 15

TRANSFERS - CABLE MUST BE

aDROBUF
aDRIBUF ,@DROBUF
.t4

CONNECTED

; TEST TRANSFER OF

sNOT EQUAL TO ZERO

ZERO

2Z~CZDRC~-H,DR11C DEV REG
CZDRCH.PI1
12=JUN=-78 14:57
1015
1016

002720
002722

000004
012777

1018
1019

}85?

002736
002744

002746

022777
001401

1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039

002750
002752
(02756
002760
002764
002772
002776
003000
003002
003004
003006
003012
003014
003016

000004
005067
005000
010077
017777
020077
001401
104000
005200
001403
005077
000762
000004
012737

003024
003032
003040

012777
017777
017700

1041

003050

001401

1044
1045
1046
10647
1048
1049
}820

003054
003056
003062
003064
003070
003072

000004
012715
011500
022700
001401
104000

1052
1053
1054
1055
1056
1057
1058
1059
1060
1061

003074
003076
003104
003110
003116
003122
003126
003130
003132

000004
052737
012706
012777
012715
005037
000240
104000
005015

1064
1065
1066
1067

003142
003144
003150

000004
012706
052737

001200
000340

1069

003164

012715

000042

1017

1040

}82§

002730

003044

003052

017777

MACY11

177777

176274

177777

176260

176272

H 2
30A(1052)
12-JUN-78
14:59 PAGE 21
GET VALUE FOR SOFTWARE SWITCH REGISTER

176266

#~1,aDROBUF

CMP
BEG

#-1,3DROBUF
L+

MOV

104000

022700

SCOPE
MOV

HLT
002010
176240
176236
176226

176232

176212
000005

004766

177777
176166
176162

176172
176166

177777

SCOPE
CLR
CLR
1ST6:
MOV
MOV
CMP
BEQ
HLT
INC
BEQ
CLR
BR
TST9:
SCOPE
MOV
;TEST DATA FROM
MOV
MOV
MOV

CMP

BEQ

104000

HLT

aDRIBUF ,aDROBUF MOV ALL ONES

ICOUNT
%0
%0, aDROBUF
aDR IBUF , @DROBUF
0. aDROBUF
.+4
X0
TST9
aDROBUF
TST6

100203

;NOT ALL ONES

;TEST ALL NUMBERS

JERROR - CHECK X0 FOR GOOD

*DROBUF FOR BAD

#5, 341 COUNT
BLACK BOX (NOT CONNECTED)
#-1.3DROBUF
aDROBUF ,aDRIBUF ;STATIC LINES EQUAL ONES
aDRIBUF ,%0
;DATA REGISTER TO 20

#-1,%0
.+

;READY BIT IS IN A ONE STATE
SCOPE
MOV
#3,8RS
MOV
(RS) ,RO
CMP
#100203.R0
BEQ
. +4
HLT

000003

SEQ 0020

;REG 0 SHOULD

ALL ONES

:CSRO AND (SR1

182%

1068

1070

003134

003156

003170

016777

012777

042737

000340
001200
003132
000101
177776

176074

177776
176114

176070

:CAN WE RAISE INTERUPT '‘A"’
SCOPE
BIS
#340,34PSW
MOV
#STACK
, %6
MOV
#TST4 ,aDRVECA
MOV
#101,aR5
CLR
aPSW
NOP
HLT
IST4:
CLR
ans

MOV

;RAISE

003202

000377

177776

176052

177776

DRLVL.ADRVECA

;LOCK OUT

INTERRUPTS

JINTERRUPT RETURN POINTER
;INTERRUPT ENABLE AND CSRO

;NO *'A'* INTERRUPT

;MOVE .+2 TO "‘A"* INTERRUPT VECTOR

INTERRUPT 'B''
SCOPE
MOV
#STACK
, 26
BI°
#3640, 3#PSW

MOw

#1575, aDRVE(CB

BIC

#377,34PSW

MOV

#42 3RS

:1E AND CSR1

2Z-CZDRC~H,DR11C DEV REG
12-JUN~78 14:57
CZDRCH.P11

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

000240
104000

003202

005015

003204

016777
042737
012777
012706
042777
052777
000240

003212
003220
003226
003232
003240
003246
003250
003252

I 2
MACY11 3DA(10520
.¢=JUN-78 14:59 PAGE 22
GET VALUE FOR SOFTWARE SWITCH REGISTER

TST5:

176034

000340
003252
001200
000100
000101

176022
177776
176004

042737
052737
012777
012706
042777
052777
000240

MOV

006040
003322

001200
000100
000101

177776
177776
175734
175712
175704

000004
042737
052737

WA
=
=2000NONS
W
NV
=200V
W
WV

—
—

d el cd ) ol
rd —d b o ed

d md
) el

b b ek
b md )

D
D

) wd D
)
b

d d
D e

d )
h ad

D
b

D
D

) D
) ed

) D
) e

)
D

)
b

012777
012706
042777
052777
000240
104000

003372

000004

003374

042737
052737
012777
012706
042777
052777
000240

000340
000100

177776
177776
175664

000100
000101

175642
175634

003372
001200

177776
177776
175614

104000

042737
052737
012777
012706
042777
052777
000240
042777

TINTZ:

177776
177776
175544

000100

175504

175522
175514

#100,3DRCSR
#1071 ,3DRCSR

;PROCESSOR LEVEL ZERO
;STACK POINTER

;CLEAR INTERRUPT ENABLE

;SET INTERRUPT ENABLE-AND (SRO
sNO DEVICE

HLT
SCOPE

SCOPE

BIC
BIS

MOV
MOV
BIC
BIS

NOP
HLT

INTERRUPT OCCURED

;NO DEVICE INTERRUPT OCCUREL

#340,a4PSW
#100,a#PSW
#TINT3 ,3DRVECA
#STACK,
X6
#100,aDRCSR
#101,aDRCSR

;SET TO PRIORITY LEVEL 2
s INTERRUPT VECTOR ADDRESS
;SET UP STACK POINTER
;CLEAR INTERRUPT ENABLE

;SET INTERRUPT ENABLE-AND CSRO

sNO DEVICE INTERRUPT OCCURED

SCOPE

;TEST FOR INTERRUPT FROM THE DEVICE
#340,a4PSW
BIC
BIS
#140,a4PSW
;SET TO PRIORITY LEVEL 3
MOV
MoV

BIC
BIS

NOP

TINTS:

000340
000200
003522
001200
000100
000101

BIC
BIS

#TINT1,3DRVECA
#STACK,%6

NOP
HLT

175572
175564

000004

;NO B INTERRUPT

;TEST FOR INTERRUPT FROM THE DEVICE
BIC
#340,a4PSW
BIS
#040,a4#PSW
;SET TO PRIORITY LEVEL 1
MoV
HTINTZ2 ,3aDRVECA
s INTERRUPT VECTOR ADDRESS
MOV
#STACK,
%6
sSET UP STACK POINTER
BIC
#100,3DRCSR
;CLEAR INTERRUPT ENABLE
;SET INTERRUPT ENABLE-AND (SRO
BIS
#1071 ,aDRCSR

TINT3::

000340
000140
003442
001200
000100
000101

PL ,a@DRLVL

#340,a4PSW

NOP

104000

1097

aRS

BIC

MOV
MOV

TINT1:

000340

CLR

JTEST FOR INTERRUPT FROM DEVICE

175762
175754

104000
000004

NOP
HLT

SEQ 0021

#TINT4 ,aDRVECA
#STACK,%6

#100,aDRCSR
#101,3aDRCSR

s INTERRUPT VECTOR ADDRESS

2SCT UP STACK POINTER
;CLEAR INTERRUPT ENABLE

.SET INTERRUPT ENABLE-AND (SRO

;NO DEVICE INTERRUPT OCCURED

HLT
SCOPE

STEST FOR INTERRUPT FROM DEVICE
#340,34PSW
BIC
BIS
#200,a4PSW
JRAISE PROCESSOR PRIORITY TO LEVEL 4
MoV
#TINTS ,3DRVECA
;IN CASE OF INTERRUPT
MOV

BIC
BIS

NCP

BIC

#STACK,
£6

#100,3DRCSR
#101,aDRCSR
#100,aDRCSR

;SET STACK POINTER
sCLEAR INTERRUPT ENABLE
;SET INTERRUPT ENABLE AND (SRO
JLET INTERRUPT OCCUR

2Z-CZDRC~H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P11
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141

1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153

1154
1155
1156
1157

1158
1159
1160
1161

1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182

003516
003520
003522

MACY11 30A(1052)

000240
104000

TINTS:

000004

177776
175472

052737
012777
012706
042777
052777
000240
042777
000401

000340
003572
001200
000100
000101

175450
175442

000100

175432

003576

042737
052737
012777
012706
042777
052777
000240
042777
000401

000340
000240
003652
001200
060100
000101

177776
177776
175412

000100

175352

003624
003632
003640
003642
003650
003652
003654

104000
000004

SEQ 0022

042737
052737
012777
012706
042777
052777
042777
000240
000401

00C 240
000300
003732
001200
000100
000101
000100

003736
003744

016777
005077

175272
175262

175266

003750
003756
003762
003764
003770
003774
003776
004000

012777
105777
100375
005077
105777
100375
104406
032777
001402
000137

000052
000354

000356

177776
177776
175332

BiS
MOV

#340,a4PSW
H#TINT6,aDRVECA

Bég

#101,aDRCSR

BIC
BR

HLT
SCOPE

#340,a4PSW
#240,a#PSW
A#TINT7 ,aDRVECA
#STACK,%6
#100,aDRCSR
#101,aDRCSR

BIC
BR
HLT
SCOPE

#100,aDRCSR
R

;SET STACK POINTER
;CLEAR INTERRUPT ENABLE

;WITH NO INTERRUPT, BRANCH OVER HALT
s INTERRUPT OCCURED

;RAISE PROCESSOR PRIORITY TO LEVEL 5
;IN CASE OF INTERRUPT
sSET STACK POINTER
sCLEAR INTERRUPT ENABLE

;SET INTERRUPT ENABLE AND CSRO

sDON'T LEAVE IT SET
JWITH NO INTERRUPT, BRANCH OVER HALT
s INTERRUPT OCCURED

;TEST FOR NO INTERRUPT FROM DEVICE
8IC
BIS
MOV
MOV
BIC
BIS
Bég

TINT8:

#340,34PSW
#300,a#PSW
#TINT8,aDRVECA
#STACK, %6
#100,aDRCSR
#101,3DRCSR
#100,3DRCSR

1%:

;RAISE PROCESSOR PRIORITY TO LEVEL 6
;IN CASE OF INTERRUPT
;SET STACK POINTER
;CLEAR INTERRUPT ENABLE
;SET INTERRUPT ENABLE-AND (5RO
;DON'T LEAVE IT SET

BR
HLT
SCOPE

;sWITH NO INTERRUPT, BRANCH OVER HALT
s INTERRUPT OCCURED

MOV
CLR

DRLVL ,aDRVECA
aDRVECA

;FOR FALSE

cEND OF TEST ROUTINE
END:
MOV
#'*,aTDBR

2%:
175210

#100,aDRCSR
R

8IC
BIS
MOV
MOV
BIC
Bég

000344
000342

#STACK , %6
#100,aDRCSR

(HIGHEST PROCESSOR PRIORITY)

JRAISE PROCESSOR PRIORITY TO HIGHEST LEVEL
;IN CASE OF INTERRUPT

;TEST FOR NO INTERRUPT FROM DEVICE

175310
175302
175274

104000
000004

sNO DEVICE INTERRUPT OCCURED

SCOPE

TINT7:

104000

000004

001754

PAGE 23

NOP
HLT

MOV
BIC

175370
175362

003656
003664
003672
003700
003704
003712
003720
003726
003730
003732
003734

004006
004010

sTEST FOR'NO INTERRUPT FROM DEVICE

TINT6:

002000

J
14:59

GET VALUE FOR SOFTWARE SWITCH REGISTER

003524
003532
003540
003544
003552
003560
003562
003570
003572
003574

003604
003612
003620

12-JUN-78

TSTB

aTCSR

CLR

aTDBR

CKSWR
BIT
BEQ

#SW10,aSWR
4%

BPL

TSTB
BPL

JMP

;TYPE

INTERRUPT

'x!

aTCSR
2%

a#RSTART

;LOOP ON SELECTED DR?

JREPEAT TEST ON DR11C SELECTED

QO
oo~

012700
012737
160005

005715
012705
160025
160025

000010
004072

MACY11 30A(1052)

104406

032777
001004

000004

001222

001754
001000

5%:

175144
000042

8%:
$ENDAD:

001726

W
o

D —d md
b

OO NV

104406

037727
001401
000002
012667
012667
024646
105777
100375
012777
105777
100375

END1:

PAGE 24

SEQ 0023

#10,R0O
5%, a4
RO,RS
(RS)
#DRCSR,RS
RO, (RS) +
RO, (RS5)+
RO, (RS)+
RO, (RS)+
RO, (RS)+
RO, (RS’ +
RO, (RS)+

BIT
BNE

#SW9,aSWR
8%

INC

PASCNT

TYPE
MESS3

SH#RSTART

MOV
BEQ

a#62 R0
END1

JSR

PC, (RO)

JMP

a#START

RESET

NOP
NOP
NOP

sSTEPPING CONSTANT
;SET TIME OUT TRAP
;STEP TO NEXT DR11-C ADDRESS
JWILL TIME OUT IF NOT AVAILABLE

;SET TABLE POINTER

JRESTART TEST USING NEXT DR11-C

;TYPE

'END PASS'

JKEEP TRACK OF

PASSES COMPLETED

JENTERED WITH SYSTEM TRAP CALL(HLT)
JPRINT OUT THE ERROR PC AND STATUS REGISTER
175062

020000

000172
000170
000156
000144

012777

000212
000126

000130

010267
010367
010467
016702
004767
012777
105777
100375
016702
004767

000110
000106
0001C4
000106
000106
000240
000066
000064
000062

HLT:

CKSWR
BIT
BEQ
RTI

MOV
MOV

000215
000142

105777
100375

MOV
MoV
SuB
TST
MOV
suB
SuB
SuB
SuB
ADD
ADD
ADD

JMP
CKSWR

175126

104401

006675
005267
013700
001405
000005
004710
000240
000240
000240
000137

14:59

:STEP TO NEXT DR11=C

160025
160025
060025

060025
060025
000137

12-JUN-78

GET VALUE FOR SOFTWARE SWITCH REGISTER

b iy

WN=O

PON)
—d —b = 2
NOORSRNO

SRER
SRR S8EBIRIRICLEBRIRAR W

2 D—
oo

d
d
D
e
d e

D DD DD D

d
b
d
d

e
D
b rd

d
b

b —
d
e
—

004014
004020
004026
004030
004032
004036
004040
004042
004044
004046
004050
004052
004054
004060
004062
004070
004072
004074
004076
004102

—

[N
U
N G W pry

PNONONDADNININONON n

D —

17-CZDRC~H,DR11(C DEV REG
12=-JUN~78 14:57
CZDRCH.P11

000070

cMP
TSTB
BPL
MOV
TSTB
BPL
MoV
1ST8B
BPL
MoV
MOV
MOV
MOV
JSR
MoV
TST8
BPL
MOV
JSR

dSWR,#SW13
(6)+,SAVPC
(6)+,SAVCC
-(6),-(6)
argsa

JTEST FOR INHIBIT PRINT OUT

;BRANCH TO PRINT
JINHIBIT, RETURN TO MAIN STREAM
JPC OF

FAILING ROUTINE

.CC OF ERROR CONDITION
SREPOSITION THE STACK
;WAIT FOR FLAG

#215,3TDBR

;1F NOT UP.
;CR

#212,3TDBR

JLINE FEED

%2.SAVR2

;SAVE R2
;SAVE R3

argsa

atgsn

¥3.SAVR3
¥4 . SAVRG
%2
SAVPC,
17 .PRTAB

#240,3TDBR
argsn

X2
SAVCC,
¥7.PRTAB

;SAVE R4

JPRINT OCTAL NUMBER

;SPACE BETWEEN WORD>
JPRINT OCTAL NUMBER

22-CZDRC-H,DR11C DEV REG
CZDRCH.P11
12-JUN-78 14:57

1239
1240

004262
004266

004767
016702

004272
004276
004302
004310
004312
0043146
004320
004322
004324
004326
004330
004332
004334
004336
004340

016703
016704
023737
001404
104406
005777
100001
000000
000002
000000
000000
000000
177566
177564
000000

000032
000030
00004

1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283

004344
004350
004354
004360
004366
004374
004402
004406
004410
004412
004414
004422
004424
004432
004436
004442
004446
004452
004454
004462
004466
004472
004474
004502
004506
004514

005067
005067
012704
01276,
0127¢7
012767
105777
100375
005702
100404
012777
000403
012777
016703
010267
005167
046703
001410
066767
005267
026703
001370
062767
016724
066767
005067

000252
000244
004626
000005
000007
000001
177730

1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294

004342

004520
004524
004530
004532
004536
004544
004546
004550
004552
004560
004564

JSR
MOV

000046

174676
1$:

SAVRZ2:
SAVR3:
SAVR4:
TDBR:
TCSR:
SAVPC:

000000

005067
005367
001410
012703
066767
005303
001373
000730
012767
105777
100375

L 2
30A(1052)
12-JUN-78
14:59 PAGE 25
GET VALUE FOR SOFTWARE SWITCH REGISTER

000522
000034

1261
12642
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255

}Sgg

MACY11

SAVCC:
PRTAB:
000236
000220
000214

WAIT1:

300260

177712

000261
000150
000150
000144
000140

177702

MINUS:
STAR:

000136
000134
000126

000136

MKNUM:

000260

000120

WRTOC:

000114
000102
000100
000076
000074
000003

000102

000052

000050

MOADD:

000005
177552

000044

XLIST:
WAITZ2:

MoV
MOV
cMP
BEQ
CKSWR
TST
BPL
HALT
RTI
0
0
O
177566
177564
O

X7 .,MOREID
SAVRZ2, %2

SAVR3,X3
SAVR&,
%4
N2, N6
1%

aSWR
.+

sDEVICE ADDRESS AND VECTORS
JRESTORE REGISTERS
JARE WE IN ACT-11 AUTO MODE?
JHALT ON ERROR IF YES

;TEST FOR HALT SWITCH
JHALT ON ERROR SET
JRETURN TO MAIN STREAM

;DATA
;STATUS

(LR
CLR
MOV
MoV
MoV
MOV
TST8B
8PL
TST
BMI
MOV
BR
MOV
MOV
MOV
COM
BIC
BEQ
ADD
INC
CMP
BNE
ADD
MOV
ADD
CLR

CLR
DEC
BEQ
MOV

ADD

DEC
BNE
BR
MOV
TSTB
BPL

BINCT
WGTCT
HLIST, X4
#5,ASCNT
#7,SEVEN
#1,DECML
aTCSR
WAIT1
¥4
MINUS
#260,3TDBR
STAR
#261,3TDBR
SEVEN, %3
X2, TOODLE
TOGOLE
TOOLLE , X3
WRTZC
DECM. ,WGTCT
BINCI
WGTCT, 23
MKNUM
#260,BINCT
BINCT, (4)+
SEVEN,DECML
WGTCT

BINCT
ASCNT
XLIST
#3.%3
SEVEN,SEVEN
X3
MOADD
STAR
#5,ASCNT
aTCSR
WAIT?

;GET LIST ADDRESS

sJNEG SIGN PRINT 1
;POS SIGN PRINT 0
;PUT MASK IN R3
;GET READY TO DOODLE NUMBER IN TOODLE
s COMPENSATES FOR COMPLEMENT DURING BIC
JAND IN OCTAL CHARACTER
;ZERO, WRITE O IN LIST
;COUNT UP TO
¢AND RECORD
;SAME BINARY WEIGHT
;KEEP COUNTN
;ADD ASCII PREFIX
;JWRITE ASCII CHAR IN LIST
:EXPAND BINARY WEIGHT

;5 CHAR IN LIST
;SET X3 FOR ADD LOOP

;MAKING SEVENTY BY SEVEN

JNX SEVEN SET GET NX OCTAL
;SEND S CHAR TO TTY

SEQ 0024

Z2-CZDRC~H,DR11C DEV REG
CZDRCH.P11
12-JUN-78 14:57
1295

004566

014477

1296
1297
1298
1299
1300

004572
004576
004600
004602
004606

005367
001401
000767
105777
100375

1302
1303

004C12
004614

000000
00000V

1308
1309
1210
1311
1312
1313
1314
1315
}%}9

004626
004630
004632
004634
004636

1301

1304
1305
1306
1307

1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336

1337
1338
1339
1340
1341
1342

}gzz

1345
1346
1347
1348
1349
1350

004610
004616
004620
004622
004624

MOV

177530

HDFHM:

RTS

DECML:
WGTCT:
BINCT:
ASCNT:

104406
032777
001366
005737
100012
013746
012737
012737
012637
104406

004726
004730
004734
004736
004744
004746
004752
004754
004760
004764
004766
004770
004772

001014
005767
001411
026767
001403
(005267
000732
005067
011667
000002
004000
000000
002010

032777

LIsT:

174334

000004
005000
000031
000004

000004
177060

004000

174270

174312
000022

000010
000006

1732C0

005000
005002
005006

022626
012637
000714

000004

005010
005016

012777
105777

000c4G
177314

BEQ
INC
BR

SCOPEG: CLR
SCOPEA: MOV
RTI
ICOUNT: 4000
SCOPEF: 0
RETURN: BcGIN

JMP

XOR:

177316

aRE TURN

2 SCOPE RETURN

;SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES
.SCOPE: CKSWR
BIT
#SW14 ,aSWR
sTEST SR FOR SCOPE
BNE
SCOPEB
JYES SCOPE
TST
a¥XORFLG
BPL
1%
MOV
a6 ,-(26)
MOV
#XOR, 44
MOV
#31,a#177060
MOV
(X6)+,an4
1%:
CKSWR
BIT
#SW11,aSWR
JNO - TEST FOR ITERATION
BNE
SCOPEA
JINHIBIT ITERATION
TST
PASCNT
JARE WE IN FIRST PASS?
BEQ
SCOPEA
JBRANCH IF YES; INHIBIT ITERATIONS
cMP
SCOPEF
, 1COUNT

000016

000167

JHEAD FOR HOME

O
0
O
0

JMP

001240

000026

JFINISH PRINTING GET NXT NUM

0
0
0
0
0
. SCOPE LOOP ROUTINE ENTERED BY LSER TRAP
SCOPEB: CMP
(6)+,%6
JREPOSITION THE STACK
MOV
(6) +,a4PSW

177776
000120

040000

-(4) ,aTDBR

DEC
ASCNT
BEQ
HDFHM
BR
WAIT?
TSTB aTCSR
BPL
.4

TOODLE: 0O
SEVEN:
O

000000
000000
000000
000000
000000

004652
004654
004662
004664
004670
004672
004676
004704
004712
004716

004774

177542

000026

000000
000000
000000
000000

022606
012637
000177

MACY1T 30A(1052)
12-JUN-78 14:59 PAGE 26
GET VALUE FOR SOFTWARE SWITCH REGISTER

000207

004640
004642
004646

004720

SCOPEG
SCOPEF
SCOPEB

SCOPEF
a%6,RETURN

200

MP
(%6)+,(%6)+
MOV
(26)
+, 344
BR
SCOPEB
SFRINT DEVICE ADDRESS AND VECTOR
MOREID: MOV
#240,3TDBR
TST8
aTCSR

JEXIT - DONE
s INCREMENT COUNT
;LOOP SOME MORE

sCLEAR COUNT
;SAVE SCOPE RETURN POINTER
JRETURN INLINE-NEXT TEST
;COUNT LOCATION FOR ITERATION LOOP
;ADDRESS OF LAST TEST

SEQ 0025

12-C2DRC-H,DR11C DEV REG
12-JUN-78 14:57

CZDRCH PN

FEREFEREE
- OO

ng
NN

—d

b ek

005022
005024
005030
005034
005042

100375
013702
004767

J12777

105777
100375
016702

004767
012777
105777
100375

012777

105777
100375

005077

105777
100375
000207

SEEgEREE
838

D
b e
b
b
b
b
o

—b e

174156
177264

000215
177244

000212

177230

BPL
MOV
JSR
MoV

177272

1STB

BPL

MOV
JSR
MOV

177246

1ST8B

8PL

177232

aTCSR

.~4

DRVFCA,X2
X7 ,PRTAB
#215,aTDBR
aTCSR

MOV

#212,aTDBR

8PL
CLR

.~b
aTDBR

TST8

177220
177216

.~4
%2
a#DRCSR,
X7 ,PRTAB
#240,aTDBR

1ST8

B82L
RTS

aTCSR

.4
X7

;JBACK TO PRINT

;ENTER HERE FOR POWER FAIL
010046
010146
010246
010346
010446
010546
016746

1381

001222
177310
000240
177270

MACY11 30A(1052) 12=JUN-78 14:59 PAGE 27
GET VALUE FOR SOF TWARE SWITCH RFGISTER

010637
012737
000000
000000
016706
012667
012605
012604
012603
012602
012601
012600
000137

PFAIL:

MOV
MOV

20,-(6)
21,-(6)

MOV

X5.=(6)

MOV
MOV
MOV

MOV

172660

005160
005162
177772
172632

000024

MoV
MOV
HALT
SAVR6: O
RESTAR:MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV

JMP

001754

;SAVE REGISTER OR STA(K
;WHEN POWERING DOWN

%2.-(6)
23,-(6)
24.,-(6)

24 ,=(6)

%6,a4#SAVRO
W#RESTAR ,an24

SAVR6, X6
(6)+,264
(6)+,%5
(6)+,%4
(6)+,%3
(6)+,%2
(6)+,21
(6)+,%0

;STORE STACK POSITION

JHALT ON POWER DOWN NORMAL
.>TACK 1S SAVED HERE
JRESTORE REGISTER OFF STACK
;WHEN POWERING UP

a#RSTART

;ENTER HERE FOR UNIQUE SELECTION OF DR11C
000000
104406
017701
004737
000000
104406
017701

SPECO:
173774

005246

005276
001726

012700
010120

001200

MOV
JSR

aSWR,R1
PC.,a#SPECT

MOV
JSR

aSWR ,R1
PC,a#SPEC2

MOV

#RCSR,RO

HALT
CKSWR

173760

004737
000137

JMP

SFECT:

;PLACE ADDRESS OF DR11-C CONTROL STATUS

?AELR

MOV

aW#START

R1,(RO)+

:SET TABLE ADDRESS

*LOAD INTO TABLE STARTING AT RCSR

SEQ 0076

Z7-CZDRC-H,DR11C DEV REG
CZDRCH.P11
1¢=JUN~78 14:57

1407

062701
010120
062701
010120
005301
010120
000207
012700
010120
005721
010120
005721
010120
000207

MACY'1

B 3
30A(1052)
12-JUN-78
14:59 PAGE 28
GET VALUE FOR SOF TWARE SWITCH REGISTER

000002

001002

ADD
MOV
ADD
MOV
DEC
MOV

#2.R1
R1,(RO)+
#2,R1
R1,(RO)+
R1
R1,(RO)+

;STEP
sLOAD
;STEP
sLOAD
;FORM
cLOAD

MOV
MOV

#RCSR1,RO
R1,(RO)+

sLOAD INTO TABLE

RTS

001210

SPEC2:

TST
MOV
TST

MOV

TYP:

.SBTTL
e

SEQ 0027

(R1)+
R1,(RO)
+
(R1)+

TO ADDRESS OF DROUTBUF
INTO TABLE
TO ADDRESS OF DRINSuUr
INTO TABLE
ADDRESS OF DROUTBUF
+1
INTO TABLE

R1,(RO)+

RTS

LIST

TYPE ROUTINE

N RRAR AN KA A AN RARARAR R AR

;*ROUTINE

AR RARRARARARRAARRARARAAAAAAARRNRARAAARAAAES

TO TYPE ASCIZ MESSAGE.

MESSAGE MUST

TERMINATE WITH A O BYTE.

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;*NOTEZ:

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

;*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

. %

;*CALL:
;*1) USING A TRAP INSTRUCTION

;‘OR

TYPE

.MESADR

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

;21S

.- %

TYPE

ME SADR

- %

005316
005322
005324
005326
005330
005332
005336
005340
005342
005344

105767
100002
000000
000407
010046
017600
112046

001005
005726
012600

000223

$TYPE:

TSTB

BPL

HALT

000002

1%:

2s:

000002

60%:
3%:

000011

4%:

000200

MOV
MOV

MOVB
BNE
TST

MOV
ADD

RTI
(MPB

BEQ

CMPR

BNE

TST

TYPE

000755

000130

$CRLF
CLRB
BR

RO,-(SP)
82(SP) RO
(RO)+,-(SP)
48
(SP) +
(SP)+,R0

#2,(SP)

THERE A TERMINAL?

;:BR IF

YES

;sHALT HERE

;s LEAVE

NO TERMINAL

;:SAVE RO
::GET ADDRESS OF

ASCIZ STRING
;sPUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR

J21F

TERMINATOR POP

:;RESTORE RO
:;ADJUST RETURN PC

IT OFF

#HT, (SP)

;;RETURN
;IBRANCH IF

#CRLF, (SP)

: ;BRANCH IF-NOT <CRLF>

(SP)+

::POP

$CHARCNT
2%

::CLEAR (HARACTER COUNT
;sGET NEXT CHARACTER

;2TYPE

<HT>

<CR><LF> EQUIV

A CR

AND LF

THE

STACK

Z7-CZDRC~H,DR11C DEV REG
12-JUN=78 14:57
CZDRCH.P11
1463

14664

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

005404
005410
005414
005416
005422
005426
005430
005434
005440

004767
126726

001350
0167 °

105367

000032
000072

12~JUN-78

TYPE ROUTINE

JSR
(MPB
BNE

000720
000001

000770

30A(1052)
5%:
6%:

000056
000130

105366

002770
004767

MACY11

MOV

7%:

DE(CB
BLT
JSR
DECB
B8R

14:59

PC.STYPEC
$FILLC, (SP)+

2%
$NULL ,~(SP)
1(SP)

PC.STYPEC
$CHARCNT
7$

PAGE 29

SEQ 0028

;:G0 TYPE THIS CHARACTER
;.18 IT TIME FOR FILLER CHARS.?
;;1F NO GO GET NEXT (HAR.
;.GET # OF FILLER CHARS. NEEDED
;cAND THE NULL CHAR.
;.DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
;.60 TYPE A NULL
2.D0 NOT COUNT AS A COUNT
;. LOOP

JHORIZONTAL TAR PROCESSOR
005442
005446
005452
005460
005462
005464
005466
005472
005474
005502
005510
005512
005516
005520
005526
005530
005532
005534

112716
004767
132767
001372
005726
000724
105777

005536
005540
005542
005543
005544
005545
005546
005547
005550

177564
77566
000
002
012
000
077
015
000012

100375
116677
122766

001003

000040
000014
000007

105067

000014

122766

000012

000406

001402

105227
000000
000207

000052

000044

000002
000015

MOVB

8%:

000036
000002

000002

9% :

JSR
BITB
BNE
TST
B8R
$TYPEC: TSTR
BPL
MOVB
CMPB
BNE
CLRB
BR
1%:
CMPB
BEQ
INCB
$CHARCNT
: .WORD
$TYPEX: RTS
$TPS:

$TP8B:

.WORD

&' ,(SP)
PC,STYPEC
#7 ,SCHARCNT
9%
(SP)+

Qs TPS
$TYPEC

2(SP) ,a$TP8B

#CR,2(SP)
1%

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

177564
877566

$NULL:
.BYTE
$FILLS: .BYTE
2
12
$FILLC: .BYTE
$TPFLG: .BYTE
$QUES:
.ASCII
<15>
ECRLF:
L.ASCII
<12>
$LF:
.ASCIZ
LSBTTL
BINARY TO OCTAL
L2322 232228230

230

.2TYPE A SPACE

:sBRANCH IF NOT AT
.. TAB STOP

. :POP SPACE OFF STACK

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

::LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
;sBRANCH IF NO

::EE?;-CLEAR CHARACTER COUNT
s EX

;1S CHARACTER A LINE FEED?
;;BRANCH IF YES
;;COUNT THE CHARACTER
;cCHARACTER COUNT STORAGE
2:TTY PRINTER STATUS REG.
;:TTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

::CONTAINS NULL CHARACTER FOR FILLS
;sCONTAINS # OF FILLER CHARACTERS REQUIRED

;:INSERT FILL CHARS. AFTER A 'LINE FEED"’

;" TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;QUESTION MARK
:;CARRAIGE RETURN

Ol?ll

. JREPLACE TAB WITH SPACE

;sLINEFEED

(ASCII) AND TYPE

2000002222280

8020028022022

aRRRRt

3
Lo RNTe SV PNVVE_J
o

b
bk
d
ek

b ek
)
bk

— ad e

)

vivviwvawviuonuaiunvionawg

;*THIS ROUTINE IS USED TO CHANGE A 16-8BI1T BINARY NUMBER TO A 6-DIGIT

s*OCTAL (ASCII) NUMBER AND TYPE IT
:«$TYPOS-~-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:
;*
MOV
¥
TYPOS

.BYTE

,
- (SP)
NUM
N
M

l'
fi

:NUMBER TO BE TYPED

SSCALL FOR TYPEOUT
FiN=1'10°6 FOR NUMBER OF DIGITS T0 TYPE

TYPE LEADING ZEROS

*10=SUPPRESS LEADING ZEROS

Q
t

$TYPON----ENTER HERE

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

12-CZDRC~H,DR11C DEV REG
12=-JUN-78 14:57
CZDRCH.P11

—_

—td

d ——d

d ad -

1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530

1574

30A(1052)

12-JUN-78

BINARY TO OCTAL

D
14:59

(ASCII)

3
PAGE 30

SEQ 0029

AND TYPE

;*$TYPOS CR $TYPOC
;«CALL:
I
MOV
NUM,-(SP)
%
TYPON

J;NUMBER TO BE
;sCALL

FOR

TYPED

TYPEOUT

> %

;*$TYPOC---ENTER HERE
;«CALL:

017646
116667
112667
062716
000406
112767
112767
112767
010346
010446
010546
116704
005404
062704
110467
116704

1569

MACY 11

000000
000001
000207
000002

000001
000006
000005

000211

000171
000165
000154

o*
o*

MoV
TYPOC

NUM, - (SP)

;:NUMBER TO BE TYPED
;s CALL FOR TYPEOUT

$TYPOS:

MOV
MOVB
MOVB

a(SP) ,-(SP)
1(SP) ,$0FILL
(SP)+ _,SOMODE+1

;sPICKUP THE MODE
;;LOAD ZERO FILL SWITCH
;.NUMBER OF DIGITS TO TYPE

ADD
BR
$TYPOC: MOVB

#2,(SP)
$TYPON
#1,80FILL

$TYPON: MOVB
MOV
MOV

#5,80CNT
R3,-(SP)
R4 ,-(SP)

MOVB

MOV

000145

MggB
N

000006

000132
000125
000012

016605
005003
006105
000404
006105
006105
006105
010503
006103
105367
000076
100016
177770
042703
001002
005704
001403
005204
052703 000060
052703 -000040
110367 000040
104401
005772
105367 000032
003347
002402
005204

1%:

2%:

3%:

4%:

5%:
7%:

000002

000004

#6,$OMODE +1

RS5,-(SP)

gEMODE*1.R4

;;ADJUST RETURN ADDRESS
;sSET THE ZERO FILL

SWITCH

;2:SET FOR SIX(6) DIGITS

;:SET THE ITERATION COUNT
;:SAVE R3
;:SAVE Ré

;:SAVE RS

;sGET THE NUMBER OF DIGITS TO TYPE

ADD
MOVB
MOVB
MOV

#6 R4
R4, SOMODE
$OFILL R4
12(SP) ,RS

;;SUBTRACT IT FOR MAX. ALLOWED
:;SAVE IT FOR USE
;eGET THE ZERO FILL SWITCH
;<PICKUP THE INPUT NUMBER

ROL

;;ROTATE MSB INTO ‘'C'*

CLR

BR
ROL

ROL
ROL
MOV
ROL
DECB

8PL
BIC
BNE

6%:

3
016666
012616

FOR TYPEOUT OF A 16 BIT NUMBER

3%
R5

RS
RS
R5,R3
R3
$OMODE

7%
#177770,R3
43

TST

INC

BEQ

. ;CLEAR THE OUTPUT WORD

;.60 DO MSB
:sFORM THIS DIGIT

;;GET LSB OF THIS DIGIT
;:TYPE THIS DIGIT?
;:BR IF NO

;:GET RID OF JUNK
;;TEST FOR O

;s SUPPRESS THIS 0?

;:BR IF

BIS
8IS
MOVB

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

JoMAKE THIS DIGIT ASCIlI
;:MAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING

8GT
BLT
INC
BR
MOV

2%
6%
R4
2%
(SP)+ RS
(SP)+ R4
(SP)+,R3
2(SP) ,4(SP)

TYPE
DECB

MOV
MOV
MOV
MOV

,8%
$OCNT

(SP)+,(SP)

YES

;:sDON'T SUPPRESS ANYMORE

;G0 TYPE THIS DIGIT
;s COUNT BY 1

0°'S

;eBR IF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;.G0 DO THE LAST DIGIT
::RESTORE RS
;;RESTORE R4
;JRESTORE R3
::SET THE STACK FOR RETURNING

17-CIDRC-H,DR11C DEV REG
12-JUN-78 14.57
CZDRCH.P11

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

1615
1616
1617
1618
1619
1620
1621
1622

1623

1624
1625
1626
1627
1628
1629
1630

005770
005772
005773
005774
005775
005776

000002
000
000
000
000
000000

006000
006002

177560
177562

MACY31

E
3
12-JUN-78
14:59 PAGE 31
30A(1052)
BINARY TO OCTAL (ASCII) AND TYPE
8%:

RTI

BYTE
.BYTE

.BYIE
0
.BYTE
C
.WORD
O
TTY INPUT ROUTINE

RN R

$TKS:
$TKB:

.WORD
.WORD

.INABL

AR AR R AR AR A NN

LSB

s RETURN

0
0

$OCNT:
$OFILL:
$OMODE:
.SBTTL

SEQ 0030

;. STORAGE FOR ASCII DIGIT
;. TERMINATOR FOR TYPE ROUTINE
;.0CTAL DIGIT COUNTER
;o 2ERQO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
R AR

177560
177562

AN RN R AR R R

AR R AR RN R RN

AR AR AR RN ®

;;TTY KBD STATUS
2:TTY KBD BUFFER

T
T
T
e
T
T
T I T 2

:*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE
;*SERVICE

022767
001074
105777
100071
117746

042716
022726
001062
126727
001456

000176

006531
006536

117746

177672
177600

021627
001005

000025

104401

062706
000757
021627
001022
005766
001403
016677

$CKSWR:

000001

$GTSWR:

172112

006547

19%:

177676

7%:

9% :

006524
000006

20%:

000015

10%:

000004

000002

CMP

#SWREG, SWR

;:1S

TSTB

a$TKS

;:CHAR THERE?

TYPE
TYPE
MOV
TYPOC
TYPE
CLR
CLR
TSTR

JOCNTLG
. SMSWR
SWREG,-(SP)
-(SP)
-(SP)
a$TKS

::IF NOT TRY AGAIN

MOvVB
BIC

a%TKB,~(SP)
#*C177,(SP)

;sPICK UP CHAR
J:MAKE IT 7-BIT ASCII

CMP
BNE

(SP) 425
10%

;1S IT A CONTROL=-U?
;:BRANCH [F NOT

ADD

#6,SP

;s IGNORE PREVIOQUS INPUT

(SP) 415

B8NE

BPL
MOVR
BIC
(MP
BNE
CMPB
BEQ

177754
177600
000007

000514

BPL

TYPF

B8R

BNE

TST

173040

TRAP HANDLER, AND WILL
IN SOFTWARE SWITCH REGISTER

:*WHEN OPERATING IN TTY FLAG MODE.

177760

104401
104401
016746
104402
104401
005046
005046
105777
100375

042716

173204

IS ENTERED FROM THE
THE TEST FOR CHANGE

BEQ
MOV

15%

15%
a$TKB,~-(SP)
#*C177, (SP)
#7,(SP)+
15%
SAUTORB, #1
15%

LSIWNEW

LSCNTLU

19%

THE

SOFT-SWR SELECTED?

;;BRANCH ]F NO

;:oI1F NO, DON'T WAIT AROUND
::SAVE THE CHAR
;:STRIP-OFF THE ASCII
;;1S IT A CONTROL G?
;:NO, RETURN TO USER
;;ARE WE RUNNING IN AUTO-MODE?
:sBRANCH [F YES
:sECHO THE CONTROL-G (*G)
;:TYPE CURRENT CONTENTS
:;SAVE SWREG FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
;:PROMPT FOR NEW SWR
;sCLEAR COUNTER
;. THE NEW SWR
:;CHAR THERE?

J:YES,

ECHO

CONTROL-U

(*W)

;:LET'S TRY IT AGAIN
J0IS

IT A <CR>?

16%

;:BRANCH IF NO

1%
2(SP) ,aSWR

;JBRANCH IF YES
;sSAVE NEW SWR

4 (SP)

TRAP CALL

::YES,

THE

FIRST

(HAR?

ZZ-CIZDRC-H,DR11(C DEV REG
12-JUN-78 14:57
CZDRCH.P11
1631

006156
006162
006166
006174
006176
006204
006206
006212
006216
006220
006224
006226
006232
006236
006240
006242
006244
006246
006252
006256
006260
006264

062706

104401
126727

001003
012777
000002
004767
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401

000720

MACY1T

000006
005547
00367

000001

000100

177574

177254
000060

30A(1052)
TTY

INPUT ROUTINE

1 $:
14%:

ADD
TYPE
CMPB
BNE

000060
000002

000002
177776

17%:

005546

18%:

TYPE

.DSABL

LSB

RDCHR

$RDCHR:

MOV

1%:

TSTB

L
i

011646
016666
105777
100375
117766
042766

026627
001013
105777
100375
117746
042716
022627
001366
000750
026627
002407
026627

003003
042766
000002

000004
177476

000002

177472
177600

000004
000004
000023

000004
177444

2% :

177440
177600

000004

000175

000040

000004

3$:

48 :

;:CHAR > 7?
;;BRANCH IF YES

:sSTRIP-0OFF ASCII
;31S THIS THE FIRST (CHAR
;;BRANCH IF YES

#60, (SP) +

2(SP)
17%
(SP)
(SP)
(SP)

2:NO,

20%

2 sSIMULATE CONTROL-U

2(SP)
=2(SP), (SP)

. SQUES

;o TYPE

RR2RRRRRRARdR

WILL

INPUT

CMP
BLT
CMP
8GT
BIC
RTI

llssaR

CHARACTER

FROM

THE

a8l

TTY

::INPUT A SINGLE CHARACTER FROM THE TTY
::CHARACTER IS ON THE STACK
*:WITH PARITY BIT STRIPPED OFF

(SP),=(SP)

::PUSH DOWN THE PC

1%
Q$TKB,4 (SP)
AAC<177>,4(SP)

2<CR><LF>

SRRttt

A SINGLE

BPL
MOVB
BIC

CMP
BNE
TSTB
BPL

SHIFT PRESENT

CHAR OVER TO MAKE
HA
ROOM FOR NEW ONE.
:e
;;KEEP CGOUNT OF CHAR
;:SET IN NEW CHAR
;:GET THE NEXT ONE

4(SP),2(SP)

CMP
BNE
000140

;:CHAR < 0?
;sBRANCH IF YES

MOV

BIC

0000C4

;. JECHO CHAR

RETURN HERE

MOVB

000021

2 RETURN

18%
(SP) 467
18%

2222220020002

;;RE-ENABLE TTY KBD INTERRUPTS?
JJBRANCH IF NOT
;;RE-ENABLE TTY KBD INTERRUPTS

PC,.S$TYPEC
(SP) ,#60

INC

:*THIS ROUTINE
SaCALL:

:;ECHO <CR> AND <LF>

/M
$INTAG,
15%
#100,8TKS

ASL
ASL
ASL

SEQ 0031

;sCLEAR UP STACK

. SCRLF

CMP
B8LT
CMP
BGT
BIC
TST
BEQ

000067

PAGE 32

#6,SP

MOV
RTI
JSR

15%:
16%:

14:59

12-JUN-78

a$TKS

4(SP) ,#2%
38
a$TKS
2%

a$TKB,-(SP)

#-C177,(SP)
(SP)+,#21
2%
1%

::SAVE THE PS
SSWAIT FOR

::A CHARACTER
*:READ THE TTY
::GET RID OF JUNK IF ANY

::IS IT A CONTROL-S?
:;BRANCH IF NO
SSWAIT FOR A CHARACTER
::LOOP UNTIL

S:MAKE IT 7-BIT ASCII
:3IS IT A CONTROL-Q?
:>1F NOT DISCARD IT
*:YES,

4(SP) , 2140
4%
4(SP) .#175
43
#40,4 (SP)

ITS THERE

*:GET CHARACTER

RESUME

23IS IT UPPER CASE?
*:BRANCH IF YES
S3IS IT A SPECIAL CHAR?
S:BRANCH IF YES
PIMAKE IT UPPER CASE
1:GO BACK

TO USER

".'tt.ttttttttttttfitl’ttttttt'tttfitfit*itttt'tilttttt'tt‘itfitttt".i

;*THIS

ROUTINE

WILL

INPUT

STRING

FROM

THE

TTY

1Z-CZDRC~H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P11

MACY11

b
d
D
D
d
d
b ed
b
D
d
d
b
D
ek

PAGE 33

RDLIN

010346
012703
022703

101405
104407
112613
122713
001003
104401

$RDL IN: MOV
1%:
MOV

006514
006526

2%:

10%:

005546

4%:

104401
122723

000044
00€512
000015

3%:

105063
104401

177777
005550

000763

111367

011646
016666
012766
000002
000
000
000010

052536
136

005015
020075

;;SAVE R3

CMP
BLOS

#STTYIN+8. ,R3
A 3

JJBUFFER FULL?
J;BR IF YES

MOVRB
CMPB
BNE
TYPE
BR
MOVR

(SP)+,(R3)
#177,(R3)
3%
.SQUES
1%
(R3),9%

CMPR
BNE

#15,(R3)+
2%

TYPE

LSLF

000004
006514

TYPE

CLRB

000002
000004
:
9%

005015

006507
053523
000
047040
000040

ASTTYIN,R3

.9%

0
0
8.
/7*U/<15><12>
/*G/<15><12>

A#STTYIN,4L(SP)

053505

SMNEW:

ASCIZ

$AUTOR:
$INTAG:
.SBTTL

.BYTE
.BYTE

0
0

;cTYPE A LINE FEED

.BYTE
BYTE
.BLKB
. ASCIZ
. ASCIZ

ASCIZ

<15><12>/SWR =

;:RESTORE R3
,,ADJUST THE STACK AND PUT ADDRESS OF
22
FIRST ASCIl CHARACTER ON IT
. JRETURN

;;STORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR
s sRESERVE 8 BYTES FOR TTY INPUT
;;CONTROL 'V
;;CONTROL ''G"’

NEW - /

TRAP DECODER

TTY

;:CLEAR RETURN (THE 15)

(SP)+ ,R3
(SP) ,-(SP)
L(SP),2(SP)

»TTYIN:
$CNTLU:
S$CNTLG:
$MSWR:

;:G0 READ ONE CHARACTER FROM THE

;2CHECK FOR RETURN
;:LOOP IF NOT RETURN

-1(R3)

000
000012
020122

::GET ADDRESS

:2GET CHARACTER
J2IS IT A RUBOUT
;:SKIP IF NOT
J:TYPE A '
;:CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

MOV
MOV
MOV
MOV
RTI

TTY

;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STA(K
;:TERMINATOR WILL BE A BYTE OF ALL 0'S

R3.,-(SP)

RDCHR

000177

SEQ 0032

;o INPUT A STRING FROM THE

* %

012603

cad o

14:59

RETURN HERE

* %

001356

NNNNNN NN SN SNNNNNNNNNSNNNNNY
W WWNININ NN POPINININ)
—b b b s b D b =D b
nN =S OVONAINEWN
=20V NOWVSWN=O

12-JUN-78

TTY INPUT ROUTINE
;*CALL:

1687

1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701

— ed e

30A(1052)

;:AUTO MODE FLAG
;s INTERRUPT MODE FLAG

ERNRAR AR RN RN

RN R RN R A AR AR

RAR R AN RN

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

AR RN KRR AR AR

THE '‘TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
o*GO TO THAT ROUTINE.
006562
006564
006570
006572
006574
006576
006602

010046
016600
005740

000002

006300
016000
000200

006616

111000

$TRAP:

MOV
MOV
TST
MOvB
ASL
MOV
RTS

RO,-(SP)

::;SAVE RO

-(R0O)

;;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;o INDEX TO TABLE
;G0 TO ROUTINE

2(SP) ,RO

(RO) ,RO
RO
$TRPAD (RO) .RO
RO

::GET TRAP ADDRESS

;;THIS IS USE TO HANDLE THE ''GETPRI'' MACRO

THE

17-C2DRC-H,DR11C DEV REG

CZDRCH.P11
17643
17644

};22

006604
006606

006614

12=-JUN-78 14:57
011646
016666

000002

000004

MACY11 30A(1052)

12-JUN-78

TRAP DECODER

000002

$TRAP2: MOV
MOV

RT!I

14:59

(SP),=(SP)
4(SP),c(SP)

PAGE 34

SEQ 0033

J3MOVE THE PC DOWN
;. JMOVE THE PSW DOWN

;;RESTORE THE PSW

1;2;

.SBTTL

1749

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

1752
1753

:
;.

};2?

:*BY THE "'TRAP'' INSTRUCTION.

1754
1755
1756

006616
006620
006622

006604
005316
005576

1;2?

006630

1762
1763
1764
1765
1766

006632
006634
006636
006640
006646

1757
1;28

1767
1768
1769
1770
1771
1772

TRAP TABLE

006624
006626

006654
006662
006670
006675
006702

$TRPAC:

ROUTINE
mmmme———

.WORD
$TYPE
$TYPOC

$TRAP?
;s CALL=TYPE
;.CALL=TYPOC

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

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)

006054

$GTSWR

., CALL=GTSWR

TRAP+5(104405)

GET SOFT-SWR SETTING

006004
006266
0064606
005015
051101

MESS1:

$CKSWR
$RDCHR
$RDLIN
L.ASCIZ

., CALL=CKSWR
TRAP+6(104406)
TEST FOR CHANGE IN SOF T=-SWR
;;CALL=RDCHR
TRAP+7(104407)
TTY TYPEIN CHARACTER ROUTINE
;.;CALL=RDLIN
TRAP+10(104410) TTY TYPEIN STRING ROUTINE
<15><12>'YOU ARE ON AN XOR TESTER'<15><12>

MESS3:

_ASCIZ

/END PASS/<15><12>

005552
005612

040440
020122
051105
105
051501
000001

$TYPOS
$TYPON

047531
020105
020116
042524
005015
042116
006523

020125
047117

047530
052123
000
050040
000012

.END

;,CALL=TYPOS
;.CALL=TYPON

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

TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

ZZ-CZDRC-H,DR11C DEV REG
12=-JUN=78 14:57
CZDRCH.P11

1179

1197

1214

1245

1319

1485
774
711
745
1276
745%
753
921x
828
1135+
871
1062
849«
922
1638
1056+

1495
1456
712

1495
73

1282+

13044

931«
845
1136+
1011
1076*
851
930«

932+
1080«
1138«
1017
1169
861+
934

1062+

1078+

743

754+

409

408

407
406
405

3944
3934
3924
3914
390#
3894

L4124
ARV
L1004
4094
4084
4074
4064

4054
el

3354

LoLn

11734
1204
L1174

1068+
744

12104
742

1400

17624

877+

878
1017+

884+
1018

912+
1026+

1027

913+

914
1032+

1089+

1099

1110«

1121«

1133«

1159+

1169+

1170«

—

1016+

869«

1071=

862

—

1010

1091«
1149«
1038+

1123«
1352

1081~
1148+
1026

00 —

724H
920+
1037«
7284
1357
7304

1396

1126+
7254
7294

753

1328

—

841
7334
3294
3304
2994
3364
1263
7224
7014
7264
7234

—

8934

001236
177570
000030
003750
004122
000004

4134

N
410

—

DRVECB
DSWR =
EMTVEC=
END
END1
ERRVEC=

3984
3974
3964
3954

414

413
612

001232

13064

1277+«

DRVECA

1284x

1258+
AN|
404n
4034
4024
L0
400#
3994

843

SEQ 0034

N =N

001226
001234
001224

13074

1280*

1296+
1342
1281

1285+

DRIBUF
DRLVL
DROBUF

1292+
8454

1261+

837

—

004624
002010
004622
000001
000001
000002
00GJ04
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000014
002244
104406
001242
000015
000200
167770
177570
004616
001220
000174
001230
001222

[

14:59
12-JUN=78
PAGE 36
30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

O—O

ASCNT
BEGIN
BINCT
=
BITO
BIT00 =
BI1701 =
BITO2 =
BITO3 =
BIT04 =
BITOS =
BIT06 =
BIT07 =
BIT08 =
BIT09 =
BIT1
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 BIT15 BITZ2
BIT3
=
BIT4
=
BITS
=
BIT6
=
BIT7
=
BIT8 =
BIT9
=
BPTVECBUF TST
CKSWR =
COUNT
=
CR
CRLF
=
CSR
=
ODISP =
DECML
DISPLA
DISPRE
DRBHIO
DRCSR

MACY11

1124+

= 000011

ICOUNT
I0TVEC=
LF
=
LIST
MESS1
MESS3
MINUS
MKNUM MOADD
MOREID
PASCNT

004766
000020
000012
004626
006640
006675
004424
004454
004536
005010
001246

PFAIL
PIRQ
=
PIRQVE=
PL
PRTAB
PRO
=
PR1
=
PRZ2
=
PR3
=
PR4G
=
PRS
=
PR6
=
PR7
=
PS
=
PSW
=

004344
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776

PWRV:C=
RCSR
RCSR1
RDCHR =
RDLIN =
RESTAR
RESVEC=
RETURN

000024
001200
001210
104407
104410
005162
006010
004772

SAVPC
SAVR2
SAVR3
SAVRSG
SAVR6
SCOPEA
SCOPEB
SCOPEF
SCOPEG
SEVEN
SPEC

004340
004326
004330
004332
005160
004760
004640
004770
004754
004614
001616

RSTART
SAVCC

C05124
177772
000240

1760

1762

1763

1764

855

865

1489
13084
1765#
17704
12704
1279
1290
1239
1202%
13724

1495

1076

001244

001754
004342

1758

1238

LO3H
7114
7154
1696
17644
1380
L4184

837«
8364

868+

980
1094

873
984

888

1104

881
992
1115

1000
1128

903
1006
1140

876+

892+

»
954

995+«

1023+

1353

1358

976+
1119+

987
1120+

1067+«
1145«

1405
795+

796%

1258#

1229+

1230+
1231
1379+
1330
13144

838+

1334
1262+
705

8074

1020
1166

925

936
1029

1035+

1333

13404

1077
1158+

1087«
1315+

951

946
1042

1050

1088«

1097+

13494
1331

13424
1391

1219
1218+

AN
— b

972
1083
1495

WA~

1757

—

HDFHM
004602
HLT
= 104000

8104
1756

—O\0

GTSWR = 104405

808
1755
17604
12994
853
965
1072
1454
860+

—

805

1347
1337«

13414

1288+

13034

1415

wawwww |J

-0
wi~

001632

SEQ 0035

CROSS REFERENCE TABLE -~ USER SYMBOLS

—

3
PAGE 37

30A(1052)

FIRSY

GNS

12-JUN-78

J
14:59

MACY1T

£H'\I

ZZ-CZDRC-H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P11

12-C2ZDRC-H,DR11C DEV REG
12-JUN=78 14:57
CZDRCH.P1

005212
005246
005276
001200

STAR
START
START1
STKLMT=
SWR

204432
071726
001250
177774
001216

SWREG
SWwO
=
SWO0
=
SwO1
=
SwO2
=
Sw03
=
sSwWO4
=
SWO5
=
Swo6
=
Sw07 =
Sw08 =
Swo9 =
swl
=
SWw10
=
SW11
=
swi2 =
Sw13 =
SW14
=
Sw15 =
=
swZ
sw3
=
Swé&
=
SW5
=
Swé
=
sw7
=
Sw8
=
Sw9
=
TAG
TBITVE=
TCSR

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
002310
000014
004336

TDBR

004334

TINT1
TINT2
TINT3
TINT4
TINTS
TINT6
TINT?

003252
003322
003372
003442
003522
003572
003652

TKVEC =
TOODLE
TPVEC =
TRAPVE=

000060
004612
000064
000034

TINT8

809
816
818

3224

1147
1269
706
704

3334
72

3
MACY11 30A(1052)
12-JUN-78 14:59 PAGE 38
CROSS REFERENCE TABLE =-- USER SYMBOLS
13954
1398
1402
739
1160
12714
806
7374
744

1593
752

14054
16154

807

1066

1079

1090

1100

LARRI

1122

1134

842

1180

1198

1215

1246

1320

1329

1397

1227

1235

12544

1264

1293

1299

1350

1355

1360

1234%

12534

1268+

1270+

1295+

1349+

1354+

1359+

1362+

856

8274

1210

1403

746
1630«
766

752+

766

1593

1606

842

1198

1221

1224

1223~

1226*

1274

13024

1291

003732

SEQ 0036

1055

836

]
O

SPECO
SPEC1
SPEC2
STACK =

770
1461+

005532
006004

15934
739

wwnrnxw

SCNTLG
SCNTLU
$CRLF
$ENDAD

006531
006524
005547
004112

1604
1621
1460

$FILLS
$GTSWR

005543
006054

14984
1605#
1633
15034
756
1608
1605
1466
1536+
1531«
15014
16644
1765
16924
1765
16854
1765
1765
Lo
429
15854
15844
1484+
1442
1482
69+
17434
17474

$FILLC

00,544
006561

005550
wwwxax

SMNEW
MSWR
SNULL
$OCNT
$OMODE
$QUES
$RDCHR

006547
006536
005542
005774
005776
005546
006266

$RDLIN

006406

SRDDEC=

SRDO(T=

*wnnnx
wxnnnw

$RDSZ = 000010
=

xaxawan

$SAVRE=

BRCA

xawann

$SETUP=
$STUP =
$TKB
$TKS
$7P8
$TPFLG
$TPS
$TRAP
$TRAP?
$TRP =

000100
177777
006002
006000
005540
005545
005536
006562
006604
000011

SMAIL

1464

cCc

SINTAG

SLF

697

1265
1294
1276~
12804
12924
13454
8224
814+
1601
1471«
1762
17174
17164
15024
12064
164994

17¢0
17234
1707

766
17204
17184
14974
1565+«
1535«
1651
1763

1200

1459

1564

1298
1278

1283«

13054

824+
17224
1478

1322

1632

1716

1487+

15784
1540
1700

1604

SEQ 0037

1605

1608

1621

1632

1651

17614

1762

17634

17644

17654

14924

1554+

15804

763

1588

1722

1668
1635«

1666

1672

17584

17594

1760

1764

740

1597
1595
14964
15004
14954
17324
1754
17564

Ek
2

001240
006560

17554
17564

—_—

004¢,.20
004474
004552
005000
001712

SCMTAG=

762
1707

1607
17584
17574
12644
12934
1259+
1275
1286
1325
€n
734

TYPOC = 104402
TYPON = 104404
TYPOS = 104403
WAIT1
004402
WAIT2
004560

XORFLG
SAUTOB
$CHARC
$CKSWR

10614
10734
1033
10344

1068
10254
1031
14244

003202
002760
003014
005316
= 104407

WGTCT
WRTOC
XLIST
XOR
XORA

1056

—

TSTS
TST6
1ST9
TYP
T/PE

003132

14:59
PAGE 39
12=JUN-78
30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

——

420#

TRTVEC= 000014

TST4

MACY11

[0.Y
0 )

12-CZORC~H,DR11C DEV REG
12-JUN=-78 14:57
CZDRCH.P11

17574

1674

1700

1703

17-CZDRC~-H,DR11C DEV REG

CZDRCH.F1
$TRPAD
$TTYIN

STYPBN=

(006616
006514
tatnnn

12=JUN=-78 14:57
|J

STYPDS= wwwner |

$TYPE
STYPEC
$TYPEX
$TYPOC
S$TYPON
$TYPOS
SOFILL

CHLT
.SCOPE

005316
005466
005534
005576
0056°2
005552
005775

= 006710

004126
004652

1737
1693

MACY11 30A(1052)

12-JUN=-78

1754w
1694

17154

1755
1477
14934

14824

1530«

1747
1470
1490
1756
15364
1757
1534

1544

15794

455
481
507
533
559
585
611
637
663
6964
945
1041

457
483
509
535
561
587
613
639
665
6984
950
1049

459
485
511
537
563
589
615
641
667
7004
958
1139

461
487
513
539
565
591
617
643
669
7034
964
1152

1759

14420
1463
1488
15344
1533
15294

4304

1356
1504
692
688

)

3
PAGE 40

CROSS REFERENCE TABLE =-- USER SYMBOLS
1711

1759

M
14:59

431

1361
1584
12144
13194

1483

1637

437

439

SEQ 0038

1758

433

1364
1585

435

1367
17154

463
489
515
561
567
593
619
645
671
7074
971
1165

1495
1716

465
491
517
543
569
595
621
647
673
864
979
1216

1496
1722

441

467
493
519
545
571
597
623
649
675
872
983
1222

1497
1723

443

469
495
521
547
573
599
625
651
677
880
991
1225
1498
1724

445

471
497
523
549
575
601
627
653
679
887
999
1228

1499

447

473
499
525
551
577
603
629
655
681
902
1005
1236
1500

449

475
501
527
553
579
605
631
657
683
916
1012
1247
1501

451

477
503
529
555
581
607
633
659
685
924
1019
1300
1502

453

479
505
531
557
583
609
635
661
6874
935
1028
1351
1503

27-CIDRC-H,DR11C DEV REG
12=JUN~-78 14:57
CcDRCH.P11
COMMEN
ENDCOM

1
14

ERROR
ESCAPE
GETPRI
GE TSWR
MULT

323
"

SCOPE

3244

NEWTST
POP
PUSH
REPORT

»
1»
1»
»
1
1#

994
1154

SETPRI
SETTRA
SETUP
SKIP
SLASH
SPACE
STARS

»
17474
1
»
\
LN
"

TRMTRP

1747#

SWRSU

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT

1
1
14
1
1
»”

TYPTXT
$$ESCA
SENEWT
$$SET
$$SKIP
.EQUAT
.HEADE
KT
.SCTUP
. SWRHI

14
il
1»
17670
1
i
1
1#
14
1

.$SAPTB

. SWRSU
LSACT

.SAPTH
.SAPTY
.SASTA
.$CATC

$CMTA

3194
14
1%
14
14
1

.$DB2D
.$DB20
.80V
.SEOP
.$ERRO

1
1%
14
1
1#

SMULT

. SRAND

.SERRT

. $SPOWE

”

MACY11 30A(1052)

12-JUN-78

14:59

PAGE 42

SEQ 0039

TROSS REFERENCE TABLE == MACRO NAMES

424
4294
4294
Lo
(294
L2908

4294
42N
4294
429N
859
1002

7634

1022

891

1034

MM
1045

919
1053

1758

1760

1762

1763

1764

1506

1583

1588

1656

1685

1758

1760

1762

1763

1764

867

1167
L2
1756
429N
429
42N

875
1015

1757
737

429N
4294

1627
7404

L2940
429
429
429
4298
Q2o
429
L2098
429
1756
4L29N
3194
629

1009

883

758
1606

1757

927
1065

1726

941
1084

953
1096

961

1106

968
1116

975
1129

986
1141

l/-CIDR(C-H,DR11(C DEV REG

CZORCH.P11
.$RDDE
. $RDOC

.$READ

12-JUN-78 14:57

1»
1»

3194

1581

3194

1724

»
»

3194
1504

1424

.$40CA
.1170

1»
1

. ABS.

006710

000

.SR2AZ
.$SAVE
.$582D
.$5B20
.$SCOP
.$SIZE
.$SUPR

1L
14
1L
%
1L
14
14

.$TYPB
.$TYPD

1»
»

.$TRAP

.STYPE
STYPO

ERRORS DETECTED:

MACY'1 30A(1052)

12-JUN-78

14:59

PAGE 43

CROSS REFERENCE TABLE == MACRO NAMES

CZDRCH.BIN,CZDRCH.LST/CRF/SOL=CZDRCH.SML,CZDRCH.P11
RUN-TIME: 8 10 .6 SECONDS
RUN-TIME RATIO: 110/20=5.4
(63 PAGES)
32K
CORE USED:

SEQ 0040