Digital PDFs

AH-8648H-MC

June 1978

41 pages

Original

19MB

view download

OCR Version

24MB

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

OCR Text

DEVICE REGISTER TEST

CZDRCHO

AH-8648H-MC

DEC 1978

Qfl!jflafl

FICHE1 OF 1

MADE IN USA

fro===

12-CIDRC=H,DR11C DEV REG

[ -

O NOWVNEBWN—=O
000 NN ANND

JCZDRCH. P11

12=JUN-78 14:57

MACYT1 30A(1052)

12-JUN-78

8
14:59

1
PAGE 2

.REM %

IDENTIFICATION

PRODUCT CODE:

AC-8647H-M(

PRODUCT NAME:

CZDRCHO DR11C DEVICE REGISTER

DATE

MAINTAINER:

19;(2)5’?3;3}”’

APRIL, 1977
DIAGNOSTIC GROUP

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
C[DIGITAL EQUIPMENT CORPORATION ASSUMES
ggcfifigZ?MSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH
THE TERMS OF SUCH LICENSE.

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

SEQ 0001

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

MACY11

30A(1052)

12-JUN-78

c
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 (BCOSR).
THIS TEST WILL CHECK UP TO 32 SEQUENTIAL DR11C'S.
REQUIREMENTS

EQUIPMENT
PDP-11

STANDARD COMPUTER

DR11C

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

ALLOWS THE DYNAMIC LOADING OF

THE PROGRAM

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

4.2

STARTING ADDRESS OR ADDRESSES
(A)
(B)
(C)

4.3

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

PROGRAM AND/OR OPERATOR ACTION

LOAD PROGRAM INTO MEMORY.

ZZ-CZDRC=H,DR11C DEV REG

CZDRCH.P1

D —

101
102
103
104
105

12-JUN-78 14:57

MACY11 30A(1052)

PRESS START.
THE PROGRAM WILL STAY IN SECTION AND LOOP.

4.3.1

=D
D

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

D
D

FOR SPECIAL ENTRANCE - SA204

PRESS CONTINUE

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

b d
b

D
D

b d

SEQ 0003

1ST HALT SET SWITCH REGISTER EQUAL TO CSR ADDRESS OF DR11C

PAGE 4

PRESS CONTINUE

1RtV
S

D
il i — o
ek e
sl
sl
i

14:59

SET SWITCH REGISTER TO STARTING ADDRESS.
LOAD ADDRESS.

OPERATING PROCEDURE
OPERATIONAL SWITCH SETTINGS

5.1.1

WWwwnrnrnoronrRN
RN PON) =
=0V
~NOWNES W

il wall i
D
)
—

12-JUN-78

AT SA 200 .. THE INSTRUCTION AND LOGIC TEST.
WITH ALL

SWITCHES DOWN THE PROGRAM WILL PRINT

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

5.1.2

SWITCH SETTINGS ARE
SW15 = 1 OR UP ... HALT ON ERROR
SW14 = 1 OR UP ... SCOPE LOOP

SW13 = 1 OR UP ... INHIBIT PRINTOUT
SW12 = 1 OR UP ... NOT USED
SW11 = 1 OR UP ...

INHIBIT ITERATION LOOP

SW09 = 1 OR UP ...

INHIBIT PRINTOUT OF DEVICE TESTED.

SW10 = 1 OR UP ... DO NOT ADVANCE TO NEXT DR11C

5.1.3
3.4.

140

SUBROUTINE ABSTRACTS

5.2.1

BEGIN

5.2.2

SCOPE

SA 200

THIS SUBROUTINE CALL IS 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-QUT AN ADDRESS THAT TAGS
THE FAILING SUBTEST, AND THE INCORRECT DATA AT
THE TIME OF THE FAILURE.
SEE 6.1

(5.

OPERATING PROCEDURE CONT'D)

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

MACY11 30A(1052)

157

}gg

5.3

160

12-JUN-78

164
165

IS THE INSTRUCTION AND LOGIC TEST.
IF AN ERROR
IS DETECTED HERE, THERE WILL BE A PRINTOUT.
WHEN
AN ERROR IS DETECTED AND IT IS NECESSARY TO SCOPE

ERRORS

170

6.1

ERROR PRINTOUT

169

172

ARE IN A FOUR WORD FORMAT.

173
174
175

’_
THE 1ST IS THE PC+2 OF THE

DETECTED ERROR.
THE 2ND 1S THE PROCESSOR STATUS
REGISTER.
THE 3RD IS DEVICE ADDRESS, THE 4TH IS
VECTOR ADDRESS.

6.2

179

ERROR RECOVERY

DEPRESS CONTINUE TO RESTART SECTION

181

RESTRICTIONS

183

7.1

STARTING RESTRICTION
NONE

7.2

OPERATIONAL RESTRICTION

189

THE DR11C MUST HAVE THE BCOSR CABLE TO RUN

192

NOTE THAT THE DR11C HAS FLOATING VECTORS:

199

;

ON IT, PLACE SW15 UP TO HALT ON ERROR, THEN SW14 UP
TO LOOP ON ERROR, THEN SW13 UP TO DELETE PRINTOUTS.

167

185
186
187

SEQ 0004

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN

168

177

PAGE 5

PROGRAM AND/OR OPERATOR ACTION
5.3.1

161
162
163

14:59

THIS TEST.

THE BELOW IS THE ASSIGNMENT OF FLOATING VECTORS, THE ASSIGNED

195

SEQUENCES ARE:

197

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

199

THEN ANY EXTRA KL11 CALLED FOR (VTO0S, VT06, LC11)

201

THEN ANY DP11 CALLED FOR.

582

THEN ANY DM11 CALLED FOR.

582

THEN ANY DN11 CALLED FOR.

sgg,

THEN ANY DM11B8 CALLED FOR.

S?g

THEN ANY DR11A CALLED FOR.

211

THEN ANY DR11C CALLED FOR.

ZZ-CZDR{=H,DR11C DEV REG

CZDRCH.P11

12=JUN-78 14:57

MACYT1 30A(1052)

12-JUN-78

14:59

PAGE 6

SEQ 0005

THE DR11A 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.

USERS AND SPECIAL SYSTEMS

SHOULD START THEIR ASSIGNMENTS OF SPECIAL DEVICES AT THE LOW ADDRESS
LIMIT AND WORK UP.
AFTER ASSIGNING ALL DR11A'S, ASSIGN DR11C'S
767776 10 767770
767766 T0 767760

DR11C #0
DR11C #1

767706 TO 767700

DR11C #7

767606 TO 767600

DR11C #15

;ASSUMING NO DR11A'S

MISCELLANEOUS

WHERE THERE ARE MULTIPLE DR11C OR A SYSTEM AND IT
TEST ONLY ONE OF

THEM.

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

IS DESIRED TO

THIS MAY BE ACHIEVED BY USING THE SPECIAL

(UP)

TO INHIBIT SEQUENCING

EXECUTION TIME
FOR EACH DR11C ABOUT 1 MINUTE

8.2

UNTESTED LOGIC
SIGNALS TO USER NOT TESTED:
"NEW DATA READY"'

"DATA TRANSMITTED''
"INIT"* TO THE USER

PROGRAM DESCRIPTION

THIS PROGRAM WHEN STARTED AT 200 CHECKS THE

STANDARD DR11-C'S

THE PROGRAM THEN PERFORMES AN INCREMENTAL LOGIC CHECK FOR
THE SELECTED DR11C.

THE DATA REGISTER IS TESTED TO SEE IF 'RESET'' CLEARS IT,

AND IF

IT WILL HOLD ALL

THE READ/WRITE BITS OF

COMBINATIONS OF NUMBERS.

THE STATUS REGISTER ARE ALSO TESTED.

BOTH THE "A"" AND 'B'' INTERRUPTS ARE TESTED TO SEE IF THEY
INTERRUPT AT THE CORRECT BUS REQUEST LEVEL BR-5.
AT THE END OF THE TEST AN '«' IS TYPED AND ALSO THE
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

22-CZDRC=H,DR11C DEV REG

CZDRCH.P11

269
270
271
272
273
274
275
276
277

12=-JUN-78 14:57

MACY11 30A(1052)

12=JUN-78

G
14:59

1
PAGE 7

THE NEW DR11-C.

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

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

IF SWITCH 9 IS UP THEN
*
*
*

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

SEQ 0006

2Z-CZDRC-H,DR11C DEV REG

CZDRCH.P1

287
288
289

12=JUN-78 14:57

MACY11 30A(1052)

12-JUN-78

14:59

PAGE 8

10.

LISTING

;GENERAL REGISTER LOGIC TEST
177776
104000

PSW=177776
HLT=104000

000000
000001
000002
000003

sREGISTER DEF INITIONS
RO=20
R1=X1
R2=%2
R3=23

167770

CSR=,67770.

000004
000005
000006
000007

R4=24
R5=%5
SP=%6
PC=%7

;SWITCHES

001000
002000
004000
020000
040000

SwW9=1000
SW10=2000
SW11=4000
SW13=20000
SW14=40000
.SBTTL

;*INITIAL ADDRESS OF THE STACK POINTER *xx 1200 #x«

001200

STACK=

000011

HT=

000012
000015
000200

177776

177774

.EQUIV
.EQUIV

1200

EMT,ERROR
10T,SCOPE

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

s *MISCELLANEOUS DEFINITIONS

LF=
CR=
CRLF=

PS=
.EQUIV

:.CODE FOR HORIZONTAL TAB

177776
PS,PSW

; ;PROCESSOR STATUS WORD

12
15
200

STKLMT= 177774

177772
177570
177570

PIRQ=
DSWR=
DDISP=

000000

RO=

000001
000002
000003

BASIC DEFINITIONS

177772
177570
177570

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

;:STACK LIMIT REGISTER

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

; *GENERAL PURPOSE REGISTER DEFINITIONS

R1=
R2=
R3=

21
%2
%3

; ;GENERAL REGISTER
; :GENERAL REGISTER
; :GENERAL REGISTER
; GENERAL REGISTER

SEQ 0007

7Z-CZDRC=H,DR11C DEV REG

CZDRCH.P1T
343

3464

345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
7

368
369
3/0
371
372
373
574
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390

392
393
394
395
396
397
398

12-JUN-78 14:57
000004

000005

000006
000007
000006
000007

000000
000040
000100
000140
000200
000240
000300
000340
100000
240000
020090
010000
004000
002000

001000

000400
000200
000100
000040
000020
000010
000004
000002
000001

100000
040000
020000
010000
004
002000
001000
000490
000200
000100

MACYT1 30A(1052)

12<JUN-78

BASIC DEFINITIONS

I
14:59

1
PAGE 9

R4=

; ;GENERAL REGISTER

R6=
R7=

%6
x7

; ;GENERAL REGISTER
; ;GENERAL REGISTER

RS=

SP=

PC=

SEQ 0008

;;GENERAL REGISTER

:;STACK POINTER

; ;sPROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR2=

0
40
100

::PRIORITY LEVEL O
:;PRIORITY LEVEL 1
::;PRIORITY LEVEL 2

PR4=

200 .

::PRIORITY LEVEL 4

PR6=

300

PR3=

PRS5=
PR7=

140

240
340

::PRIORITY LEVEL 3
::PRIORITY LEVEL 5

::PRIORITY LEVEL 6

::PRIORITY LEVEL 7

:*"'SWITCH REGISTER'' SWITCH DEF.INITIONS

Sw15=
SW14=

Swi13=
Swi2=
SW11=
Sw10=
Sw09=
SW08=
Swo7=
Swo6=
SW05=

SW04=
swo3=
Sw02=

Swoi=
Swo0=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SW09,Sw9
SW08,SwW8
SWO7,SW7
SW06,SWé6
SWO05,SW5
SW04,SW4
SWO3,Sw3
SW02,SW2
SWO1,SW1
SWO00,Sw0

;*DATA BIT DEFINITIONS (BITOO TO BIT15)

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

100000
40000
20000
10000
4000
2000
1000
400
200
100

‘Q

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

399

400
401
402
403

604

405
406
407
408
409

410
a1
412
413
414
415
416

000040
000020
000010
000004
000002
000001

MACY11 30A(1052)

12=JUN-78

BASIC DEFINITIONS

BITO5=
BITO04=
BITO3=
BITO2=
BITO1=
BITO0=
.EQUIV
.EQUIV
.EQuUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

J
14:59

1
PAGE 10

40
20
10
4
2
1
BIT09.BIT9
BITO8,BIT8
BITO7,BIT7
BITO06,BIT6
BITO05,BITS
BITO04.BIT4
BITO3,BIT3
BIT02,BIT2
BITO1,BIT]
BIT00,BITO

:*BASIC ''CPU'' TRAP VECTOR ADDRESSES

417
418
419
420
421
422
423
424
425

ERRVEC= &
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

;:TIME OUT AND OTHER ERRORS
;;RESERVED AND ILLEGAL INSTRUCTIONS
22T M7
;s TRACE TRAP
: ;:BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT) #*xSCOPE*x*
: ;POWER FAIL

TRAPVE(C=34

::"'TRAP'' TRAP

427
428
429
430
431
432
433
b
435

TPVEC=
64
PIRQVEC=240
.EgABLE ABS

426

EMTVEC= 30
TKVEC=

HALT
HALT
HALT

; ;EMULATOR TRAP (EMT) =«ERROR=**
;:TTY KEYBOARD VECTOR

;:TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

SEQ 0009

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

455
456
457
458
459
460
461
462
463

000060
000062
000064
000066
000070
000072
000074

000062
000000
000066
000000
000072
000000
000076
000000
000102

464
465
466
467

000100
000102
000104
000106
000110

469

000114

471

000120

473

000124

475

000130

477

000134

000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
000000
000132
000000
000136

479

000140

000142

481

000144

000146

483

000150

485

000154

487

000160

489

000164

491

000170

493

000174

495

000200

497

000204

000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000176
000000
000202
000000
000206

499

000210

000212

501

000214

503

000220

505

000224

507

000230

509
510

000234
000236

000000

000000
000216

000000

0002.2
000000
000226
000000
000232
000000
000236
000000

MACY11 30A(1052)

12<JUN-78

BASIC DEFINITIONS

HALT

K
14:59

1
PAGE 11

SEQ 0010

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

000242
000090
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000
000272
000000
000276
000000
000302
000000
000306
000000
000312
000000
000316
000000
000322
000000
000326
000000
000332
000000
000336
000000
000342
000000
000346
000000
000352
000000
000356
000000
000362
000000

MACY11 30A(1052)

12-JUN-78

BASIC DEFINITIONS
HALT
HALT

42
HALT

.42

HALT

14:59

PAGE 12

SEQ 0011

2Z-C7DRC=H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P1T

567

000422
000000
000426
000000
000432
000000
000436
000000
000442
000000
000446
000000
000452
000000
000456
000000
000462
000000
000466

000000
000472
000000
000476
000000
000502
000000
000506
000000
000512
000000
000516
000000
000522
000000
000526
000000
000532
000000
000536
000000
000542
000000
000546
000000
000552
000000
000556
000000
000562
000000
000566
000000
000572
000000
000576
000000

MACY11 30A(1052)

12=JUN-78

BASIC DEFINITIONS
HALT

.42

HALT

42
HALT
HALT

HALT

.42
HALT
.42
HALT

.42

HALT

14:59

PAGE 13

SEQ 0012

27-CZDRC=H,DR11C DEV REG

CZDRCH.P11
623
624
625
626
627

12=JUN-78 14:57

000600
000602
000604
000606
000610
000614

631

000620

633

000624

635

000630

000602
000000
000606
000000
000612

MACY11 30A(1052)

12-JUN-78

BASIC DEFINITIONS

o 8

HALT

000000

HALT

000626
000000
000632
000000

PAGE 14

HALT

000000
000616
000000

000622

14:59

.42

HALT

.42

HALT
HALT

.+2
HALT
2
HALT
2
HALT

.42

HALT

650

651
652
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

.42

000670
000672
000674
000676
000700
000702
000704
000706
000710
000712
000714
000716
000720
000722
000724
000726
000730
000732
000734
000736
000740
000742
000744
000746
000750
000752
000754
000756

000672
76

000702
000000
000706
000000
000712
000000
000716
000000
000722
000000
000726
000000
000732
000000
000736
000000
000742
000000
000746
000000
000752
000000
000756
000000

HALT

SEQ 0013

ZZ~-CZDRC-H,DR11C DEV REG
CZDRCH.P1
12-JUN-78 14:57
679
680
681
682
683
684
685
686

000760
000762
000764
000766
000770
000772
000774
000776

688
689
690
691
692
693
694

000020
000022
000024
000026
000030
000032
000034

687

695

696

000036

697

000046

699

000052

701
702

000174
000176

698
700

703
704
705
706

7.76;

000200
000204
000210

000762
000000
000766
000000
000772
000000
000776
000000

.42
HALT
. *&
HALT
.42
HALT
.+
HALT

004652
000340
005124
000340
004126
000340
006562

000340

. SCOPE
340
PFAIL
340
LHLT
340
$TRAP
340

004112

$ENDAD

000000

000000
000000

DISPRE: 0
SWREG:
0

(000020

SEQ 0014

.=52

000174

001200

2
PAGE 15

.=46

000052

000200
000137
000137
000137

B
14:59

.=20

000046

;(1)8

711
712
713
714
715
716
;} g

MAC /11 30A(1052)
12=JUN-78
BASIC DEFINITIONS

.=174

.=200
JMP
JMP
JMP

001250
001616
0017¢6

.=1200

A#START1
a#SPEC
ANSTART

sINITIAL START
;TO SELECT UNIQUE ADDRESS AND VECTOR
;RESTART

;THIS TABLE CONTAINS INITIAL REGISTER AND VECTOR ADDRESSES

001200
001202
001204
001206
001210
001212
001214

167770
167772
167774
167773
000300
000302
000304

;“l??)

RCSR:

RCSR1:

(SR
CSR+2
CSR+4
CSR+3
300
302
304

;THIS TABLE CONTAINS REGISTER AND VECTOR ADDRESSES OF

721
722
723
724

001216
001220
001222
001224

177570
177570
167770
167772

SWR:
DISPLA:
DRCSR:
DROBUF :

DRIBUF : 167774
DRBHIO: 167773

;ADDRESS OF DR11-C STATUS REGISTER
;ADDRESS OF DR OUTPUT BUFFER REG.
;ADDRESS OF DR INPUT BUFFER REG.
sHIGH BYTE OF OUTPUT BUFFER REG.

728

001232

000300

DRVECA: 300

s INTERRUPT VECTOR OF UNIT UNDER TEST

725
;gg

729
730

;g;
733

734

001226
001230

001234
001236

001240

001242

001244

167774
167773

000302
000304

000000

000240

177570
177570
167770
167772

THE DR11-C UNDER TEST

DRLVL:
DRVECB:

302
304

COUNT:

XORFLG: 0

PL:

240

; INTERRUPT VECTOR
sCOUNT LOCATION

sPRIORITY LEVEL

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

001246

737

001250

738
739

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

000000

PASCNT: 0
START1:

001250

012706

001200

001254
001260
001266
001274
001302
001310

013746
012737
012767
012767
022777
001012

000004
001314
177570
177570
177777

000004
177722
177716
177706

001312

000403

751
752
753

001320
001322
001330

000002
012767
012767

756
757
758
759
760
761
762

001342
001350

764

740
741
742
743
744
745
746
747
748
749

750

;gg

763

765
766
767
7

769

;;?

772
773
774
775
776

001314

012716

001322

012637

000176
000174
000004

177666
177662

023737
001433

000042

000046

001352
001356
001360

005227
001027
104401

177777
001416

001364

005737

000042

001336

001370
001372
001400
001402

001404

88}2?2

001006
026727
001005
104405

000403

112767

001414

000410

001436
001436

000463

.SBTTL

64%:
65%:

66$:

000176

000001

005144

SEQ 0015

:NUMBER OF PASSES COMPLETED

INITIALIZE THE COMMON TAGS
MOV
#STACK,SP
::SETUP THE STACK POINTER

MOV

#658%, (SP)

MOV

#SWREG, SWR
::;POINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+ ,a#ERRVEC
;;RESTORE ERROR VECTOR

RTI
MOV
MOV

::SET UP FOR TRAP RETURN

cMP
G2, an46
BEQ
3s
:YES, SKIP TITLE
.SBTTL
TYPE PROGRAM NAME
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS

.SBTTL

177620

2
PAGE 16

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
::EQUAL TO A '=1'", SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV
a#ERRVEC,-(SP)
;;SAVE ERROR VECTOR
MOV
#648 ,Q¥ERRVEC
;;SET UP ERROR VECTOR
MOV
#DSWR, SWR
::SETUP FOR A HARDWARE SWICH REGISTER
MOV
#DDISP,DISPLAY
:;AND A HARDWARE DISPLAY REGISTER
CMP
#-1,3SWR
::TRY TO REFERENCE HARDWARE SWR
BNE
66$
..BRANCH IF NO TIMEOUT TRAP OCCURRED
;AND
THE HARDWARE SWR IS NOT = =1
1R
65%
S*BRANCH IF NO TIMEOUT

INC
BNE
TYPE

#-1
67%
,68%

::FIRST TIME?
::BRANCH IF NO
::TYPE ASCIZ STRING

TST

ane2

::ARE WE RUNNING UNDER XXDP/ACT?

GET VALUE FOR SOF TWARE SWITCH REGISTER

BNE
CMP
BNE
GTSWR

932:
::68%:
67%:

;;;

779
780
781
782
783
784
785
786
787
788
789
790

c
14:59

B8R

69%
SWR , #SWREG
70%

70%

:;BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?
::BRANCH IF NO
::GET SOFT-SWR SETTINGS

MOVB

#1,8AUTOB

::SET AUTO-MODE INDICATOR

B8
.ASCIZ

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

:SKIP INTERRUPT VECTOR SIZER IF
:IN AUTOMATIC MODE

:SIZE FOR INTERRUPT VECTOR IF IN AUTOMATIC MODE.
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$:
4$:

000776
001516
000340
000101

000014
000016
177472

MOV
MOV
MOV
TST
CMP
BPL
MOV
MOV
MOV
NOP
NOP
HALT

#302,R0
RO,-2(R0O)
#3,(R0O)+
(RO)
+
#776,R0
43
#58 3414
#340,a416
#101,aRCSR

:SET UP FLOATING VECTOR AREA

:SET UP BPT
:SET UP BPT PSW
:FORCE AN INTERRUPT
:NO INTERRUPT OCCURRED

b
b
b
-

Herorn

5%:
b

011637
013737

000004
001210
001210
000002
001210
000004
000016
000302
177776

cad

162716

b e

000423

CrONNN

001514
001516
001522

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

g 8888

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

6%:

7%:

6%
#4, (SP)
(SP) ,a#RCSR1
a#RCSR1,a#RCSR1+2
#2 ,a4RCSR1+2
a#RCSR1,a#RCSR1+4
#4 ,QRCSR1+4
216,414

MOV

RO,=2(RO)

MOV
CLR
TST

000776
000020
001726
001200
000004
003360
000004

BR
suB
MOV
MOV
ADD
MOV
ADD
MOV

8%:

SPEC:

000004
177060

FIRST:

CMP
BPL

a6 ,-(26)

MOV

#31,a#177060

MOV

#160000,R1

JSR

MOV
JSR

TYPE

MESS1
XORA:

000004
001240

CMP
MoV
CLR
RTS

SPECO

, a#4
#XORA

(%6)+, a4
#-1,34XORFLG
PC,a#SPEC1

#770,R1

PC,a#SPEC2
PC

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

A#XORFLG
PC

:INITIALIZE ADDRESS AND VECTORS

001200
001222

001200
002010
004770

RTS

START:

003004

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RSTART: MOV
MOV
CLR

sFILL IN LAST TABLE ENTRY
;RESTORE BPT
;SET UP TRAP CATCHER

#776 R0
7%

MOV

sFILL IN NEXT TABLE ENTRY

(RO)+

PC,FIRST
a#START
#STACK,
%6
PC,FIRST

JMP

;FIGURE OUT INTERRUPT VECTOR
;PUT IT IN TABLE

(RO)
+

JSR
JMP
MOV
JSR

MOV
MOV

001240

#302.R0O

SEQ 0016

#RCSR,RO
#DRCSR,R1
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
#STACK
, %6
#BEGIN,RETURN
a#SCOPEF

;GET ADDRESS OF FIRST POSSIBLE DR11-C'S
;LOAD INITIAL TEST ADDRESSES

;SET UP STACK

:SET SCOPE RETURN

;DOES RESET CLEAR REGISTER?

012777

001000

177214

005010
177206
000240

175754

CKSWR

BIT
BEGIN:

BNE
JSR

MOV
MOV

#SW9,aSWR

BEGIN
PC,a#MORE
ID

DRCSR,R5S
#240,9PSW

;GET ADDRESS OF STATUS REGISTER
;SET PRIORITY LEVEL 6

77-CZDRC-H,DR11C DEV REG
CZDRCH.P11"
12=JUN=78 14:57
847
848
849
850
851
852
853
854
855
856
857

002022
002030
002036
002044
002046
002052
002054
002056
002060
002062
002066

012737
012767
012777
000005
017700
001403
104000
000401
104000
012706
012737

002074

000004

861
862
863
864
865

002104
002112
002116
002122
002124

012777
017700
022700
001401
104000

867
868
869
870
871
872
873

002126
002130
002136
002144
002146
002152
002154

000004
012767
012777
000005
005777
001401
104000

875
876
877
878
879
880
881

002156
002160
002166
002174
002200
002204
002206

000004
012767
012777
017700
022700
001401
104000

883
884
885
886
887
888

002210
002212
002220
002224
002230
002232

000004
012777

890
891
892
893
89
895
89
897
898
899
900
901
902

002234
002236
002244
002246
002250
002254
002260
002262
002264
002266
002270
002272

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

859

R60

002076

012767

017700
022700
001401

104000

002060
000010
177777

E 2
MACYT1 30A(1052)
12-JUN-78 14:59 PAGE 18
GET VALUE FOR SOF TWARE SWITCH REGISTER
000004
002730
177160

177152

001200
000006

000004

004000

002662

177777
177106
177777

000010
177777

177112

002630
177060

177054

004000
052525
177024
052525

125252

177000
125252
:

000040
0004C1
000400

002600
177030

177004

1$:
28:

MOV
MOV
MOV
RESET
MOV
BEQ
HLT
BR
HLT
MOV
MOV
SCOPE

MOV

MOV
MOV
P
BEQ
HLT
SCOPE
MOV
MOV
RESET
TST
BEQ
HLT
SCOPE
MOV
MOV
MOV
(MP
BEQ
HLT
SCOPE
MOV
MOV
(MP
BEQ

HLT

004766

#1S, k%
#10.1CCUNT
#-1.aDROBUF

;SET TIME OUT TRAP VECTOR
:PRESET OUTPUT BUFFER
:CLEAR DATA REGISTER
:GET RESULT OF RESET

@DROBUF,%0
2%

:DATA REGISTER NOT CLEAR

;ERROR! TIMED OUT WHEN REFERENCING DROBUF.
*RESET STACK POINTER
RESTORE TIME OUT TRAP

WSTACK,SP
46,k
#4000, 1COUNT

#-1,@DROBUF
@DROBUF,%0
#-1.%0
4

#10,1COUNT
#-1.aDROBUF
@DRIBUF
.+4

:ALL ONES TO REGISTER

:REG WILL NOT HOLD ONES

#4000,1COUNT
#52525,aDROBUF
@DROBUF,%0
#52525,%0
.+

:SET DATA TO ALL ONES
:SHOULD CLEAR REGISTER

;REG FAILED TO CLEAR

:DATA NOT=52525

#125252,aDROBUF
@DROBUF .%0
#125252.%0
.+4

:DATA NOT=125252

;TEST RELIABILITY OF DR11-C OUTPUT BUFFER REGISTER
SCOPE
MOV
#40,@41COUNT
BUFTST: MOV
RS,R2
:GET ADDRESS OF DRCSR
TST
(R2)+
*R2=ADDRESS OF OUTPUT BUFFER REG.
MOV
#401,R3
:LOAD CONSTANT
1$:
MOV
#256.,R4
SET COUNT
CLR
RO
:PRESET EXPECTED RESULT
CLR
(R2)
*CLEAR REGISTER
28:
ADD
R3.RO
ADD
R3.(R2)
(M
(R2),RO
BEQ
44

SEQ 0017

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

903
904
905
906
907
910

002274
002276
002300
002302
002304

F
2
MACY11 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

SEQ 0018

2%
R3
18

;TEST THAT BYTE REFERENCE TO DROBUF AFFECT PROPER BYTE ONLY
002306
002310
002316
002322

000004
012777
105077

017700
022700
001401

177777
176702
176676
177400

176706

TAG:

104000

000004
012777
105077
017700
022700
001401

177777
176656
176646
000377

027714
001401

105764
001402
000764

002440
002440
176620
176620

176614
000001

1%:

176600

000001

000004
012767
012715
000005
011500
001401

SCOPE
CLR
MOV
CLR
CLRB
INCB
INCB
CMP
BEQ
HLT

#-1,aDROBUF
aDROBUF

aDROBUF
, %0
#127400.10

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

aDROBLF
, %0
#377,%0
+4

000140

000010
000140

002264

SCOPE
MOV
MOV
RESET
MOV
BEQ

;CLEAR HIGH BYTE

sHIGH BYTE

CLEAR FAILED

a#2s

#2% R4
aDROBUF
aDRBHIO
??gg?lo

s INCREMENT HIGH BYTE

GDQOBUF.(Ré)
.+

sHIGH BYTE HAS BAD DATA

2%:
.WORD
3%:
SCOPE
;CONTROL STATUS REGISTER (DRCSR)
(RS)
CLR
MOV
(R5) .RO
BEQ
HLT
MOV
MOV
CMP
BEQ
HLT

;CLEAR LOW BYTE

TSTB
BEQ
BR

005015
011500
001401
012715
011500
022700
001401
104000

CLRB
MOV
CMP
BEQ
HLT
SCOPE
MOV
CLRB
MOV
CMP
BEQ
HLT

176656

104000

000004
005037
012704
005077
105077
105277
105264

SCOPE

MoV

TESTS.

#140,3R5

s INTERRUPT ENABLE

#140,%0

;ENABLE BITS

#10, ICOUNT
#140,aR5

;SET

anz.zo
-

FOR A+B

INTERRUPT ENABLE FLOPS

;CLEAR THOSE FLOPS

12-CZDRC-H,DR11C DEV REG

CZDRCH.P11

MACY11 30A(1052)

12-JUN-78 14:57

3563

002514

104000

961
962

002516

000004

964
965

002530
002532

001401
104000

968

002536

000004

002520

052715

12-JUN-78

G
14:59

GET VALUE FOR SOFTWARE SWITCH REGISTER
MLT
SCOPE
BIS

000001

963 002524 021527 000201

:RESET DID NOT CLEAR INTERRUPT ENABLE BITS
#1,3RS

CMP

arS,#201

CLR

aRS

BEQ
HLT

% 002534 005015

SCOPE

BIS
CMP

#2,3R5
arS, 4100002

g;z 002554 005015

CLR

arS

002550
002552

001401
104000

975

002556

000004

977

002566

052715

976

052737

000340

978 002572 022715

100343

979
980

981

002560

002576
002600

002602

001401
104000

042715

BEQ
HLT

SCOPE

177776

177777

983

002612

001401

986

002616

000004

988
989

002626
002632

052715
000005

gglg

002614

000003

002634
002636
002640

104000

002642
002644
002652
002654
002656

000004
012767
005015
005215
105715

}88?

002662

104000

1002

002664

000004

1004

002672

005715

}88(7’

002676

104000

999 002660

#100343, (RS)

)

000003

BEQ

. +4

004000

002114

100401

#340, 4PSW

TST
BEQ
HLT

aRrS
. +4

SCOPE
MOV
CLR
INC
TSTB

BM]

HLT
SCOPE

. +4

#2,3R5

1005

BM]

. +4

1008

1009
1010
1011
1012

}8}2

002700
002702
002706
002714

002716

100401

000004
005077
017777
001401

104000

HLT

:WRONG BITS SET

JRESET DID NOT CLEAR

#4000,
1 COUNT
aRS
aRr5
@RS

MOV

002674

;SHOULD SET REQ B

#3,3R5

1003 002666 012715 000002

#140, 3RS

MOV

BIS
RESET

;

.+4

#3.3RS

SCOPE

177776

#-1,aRS

BIC

HLT

005715
001401
104000

994
995
996
997
998

CMP

cMP

987 002620 012737 000340
990
991
gg%

#340, d4PSW

BEQ
HLT

982 002606 022715 000140

. +4

BIS

:SHOULD SET REQ A ALSO

. +4

969 002540 052715 000002
970 002544 021527 100002
971
972

2
PAGE 20

:BIT 0 DID NOT SET BIT 7

aRrS

:BIT 1 DID NOT SET BIT 15

;TEST EXTERNAL TRANSFERS = CABLE MUST BE CONNECTED
176316
176314

176310

SCOPE
CLR
MOV
BEQ

HLT

aDROBUF
aDRIBUF ,@DROBUF ;TEST TRANSFER OF ZERO
.+4
:NOT EQUAL TO ZERO

SEQ 0019

2Z~-CZDRC-H,DR11C DEV REG
CZDRCH.P1T
12=JUN-78 14:57
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
1045
1046
1047

000004
012777
017777
022777
001401
104000

000004
005067
005000
010077
017777
020077
001401
104000
005200
001403

HLT

002010
176240
176236
176226

176232

176212

012737

000005

004766

012777
017777
017700
022700

177777
176166
176162
177777

176172
176166

001401
104000

003074

176272
177777

000004
012715
011500
022700
001401
104000
000004
052737
012706
012777
012715
005037
000240
104000
005015
016777
000004
012706
052737

012777
012715
042737

SCOPE
MOV
MOV
CMP
BEQ

176274
176266
176260

005077
000762
000004

003072

177777

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

TST6:

TST9:

SCOPE
CLR
CLR
MOV
MOV
CMP
BEQ
HLT
INC
BEQ

#-1,3DROBUF
aDRIBUF ,aDROBUF
#-1,aDROBUF
.+

ICOUNT
%0

%0, aDROBUF
aDRIBUF
, aDROBUF
%0, aDROBUF
.+

%0
TST9

CLR
BR
SCOPE

aDROBUF
TST6

MOV
MOV
MOV
CMP
BEQ
HLT

#-1,3DROBUF
@DROBUF ,aDRIBUF
aDRIBUF . %0
#-1,%0
.+

SEQ 0020

;MOV ALL ONES
:NOT ALL ONES

;TEST ALL NUMBERS

;ERROR - CHECK %0 FOR GOOD
“DROBUF FOR BAD

MOV
#5,a41COUNT
;TEST DATA FROM BLACK BOX (NOT CONNECTED)
;STATIC LINES EQUAL ONES
*DATA REGISTER TO %0
:REG 0 SHOULD = ALL ONES

;READY BIT IS IN A ONE STATE
SCOPE

000003

MOV

MOV
CMP
BEQ

100203

HLT

#3,3RS

(R5) ,RO
#100203,R0
.+4

:CSRO AND CSR1

:CAN WE RAISE INTERUPT "‘A""
000340
001200
003132
000101
177776

176074

SCOPE

177776

BIS
MOV
MOV
MOV

176114

176070

IST4:

CLR
NOP
HLT
CLR
MOV

#340, 34PSW
#STACK
, %6
#TST4,aDRVECA
#101,aR5
HPSW

anrs
DRLVL,@DRVECA

;LOCK OUT INTERRUPTS
; INTERRUPT RETURN POINTER
*INTERRUPT ENABLE AND CSRO
:NO "A"* INTERRUPT
:MOVE

.+2 TO "'A"* INTERRUPT VECTOR

:RAISE INTERRUPT 'B'’
001200
000340
003202
000042
000377

177776

176052
177776

SCOPE
MOV
BI®

#STACK
, %6
#3640, a#PSW

MOV

#42,3RS

MO
BIC

#TSTS,aDRVECB
#377,3HPSW

: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

MACY11 30A(1052)

104000

005015

T$15:

176034

000340
003252
001200
000100
000101

176022
177776

000

003322
001200
000100
000101

PAGE 22

CLR

MOV

aR5

175762
175754

PL ,aDRLVL

BIC

#340,34PSW

BIC

#100,aDRCSR

MOV
MOV

176004

177776
177776
175734

NOP
HLT

Bég
N

#TINT1,aDRVECA
#STACK , %6

#1071 ,aDRCSR

HLT
SCOPE

TINTZ:

;SET TO PRIORITY LEVEL 1

BIC
zég

#100,3DRCSR
#101,3DRCSR

;CLEAR INTERRUPT ENABLE
;SET INTERRUPT ENABLE-AND CSRO

#TINT2 ,@DRVECA
#STACK, %6

sNO DEVICE INTERRUPT OCCURED

#340,a4PSW
#100,a#PSW
#TINT3,aDRVECA

;SET TO PRIORITY LEVEL 2
;INTERRUPT VECTOR ADDRESS

ssg

#1071 ,aDRCSR

;SET INTERRUPT ENABLE-AND CSRO

#STACK , %6
#100,aDRCSR

D e
D D
e
e e
e
)
e e
d
S

175522
175514

042777

175504

sNO DEVICE INTERRUPT OCCURED

SCOPE

MOV
MOV
BIC
gég

TINTS:

177776
177776
175544

;SET UP STACK POINTER
;CLEAR INTERRUPT ENABLE

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

175572
175564

)
i
Y

e
D
JES Y S

TINT3::

d
N
— i
—d
J
N

SCOPE

;INTERRUPT VECTOR ADDRESS
;SET UP STACK POINTER

BIC
BIS
MOV

MOV
BIC

175642
175634

177776
177776
175614

;SET INTERRUPT ENABLE-AND CSRO

#040,a4#PSW

HLT

000340
000140
003442
001200

;CLEAR INTERRUPT ENABLE

BIS

MOV
MOV

D
i

D
IR S
Y

XURUNUI
T Icnr 2038 IRIRAC28

1099

;STACK POINTER

s TEST FOR INTERRUPT FROM THE DEVICE
#340,a4PSW
BIC

175712
175704

177776
177776
175664

;PROCESSOR LEVEL ZERO

sNO DEVICE INTERRUPT OCCURED

HLT

000340
000100
003372
001200
000100
000101

sNO B INTERRUPT

sTEST FOR INTERRUPT FROM DEVICE

TINT1:

000340

14:59

GET VALUE FOR SOFTWARE SWITCH REGISTER

000240

016777
042737
012777

1¢=JUN-78

#TINT4 ,aDRVECA
#STACK , X6
#100,aDRCSR
#101,aDRCSR

HLT
SCOPE

; INTERRUPT VECTOR ADDRESS
sSET UP STACK POINTER
;CLEAR INTERRUPT ENABLE
sSET INTERRUPT ENABLE-AND CSRO
;NO DEVICE INTERRUPT OCCURED

s TEST FOR INTERRUPT FROM DEVICE
BIC
#340,a4PSW
BIS
#200,a4PSW
sJRAISE PROCESSOR PRIORITY TO LEVEL 4
MOV
#TINTS,aDRVECA ;IN CASE OF INTERRUPT
MOV
BIC

BIS

NOP

BIC

#STACK, k6
#100,aDRCSR

#101,aDRCSR
#100,aDRCSR

;SET STACK POINTER
sCLEAR INTERRUPT ENABLE

;SET INTERRUPT ENABLE AND CSRO

sLET INTERRUPT OCCUR

SEQ 0021

1Z-CZDRC=H,DR11C DEV REG

CZDRCH.P11
1127
1128
}}gg

1131

1132

1133
1134
1135
1136
1137
1138

1139
1140
}}2;

1143

1144
1145
1146
1147
1148
1149
1150
1151
1152
1153

}}gé

003516
003520
003522

003524

003532
003540
003544
003552
003560
003562

003570
003572
003574

003576
003604
003612

003620
003624
003632
003640
003642
003650
003652

003654

12-JUN-78 14:57

MACY11 30A(1052)

000004

052737

012777
012706
042777
052777
000240
042777

000401
104000
000004

042737
052737
012777

012706
042777
052777
000240
042777
000401
104000

TINTS:

000340
003572
001200
000100
000101

000100

001200
000100
000101
000100

000004

;

177776

175432

TINT7:

000340
000300
003732
001200
000100
000101
000100

177776
177776
175332

1169
}};?

003736
003744

016777
005077

175272
175262

175266

003750
003756
003762

012777
105777
100375

000052
000354

000356

1173
1174
1175

1176
1177
1178
1179
1180

}}g}

003764
003770
003774
003776
004000

004006
004010

005077
105777
100375
104406
032777

001402
000137

175310
175302
175274

000344
000342

002000

001754

BIC
BIS
MOV

175352

042737
052737
012777
012706
042777
052777
042777
000240
000401
104000
000004

H#TINT6,aDRVECA
#STACK , X6
#100,aDRCSR
#101,aDRCSR

#100,aDRCSR
R

;RAISE PROCESSOR PRIORITY TO HIGHEST LEVEL
;IN CASE OF INTERRUPT
sSET STACK POINTER
;CLEAR INTERRUPT ENABLE

;WITH NO INTERRUPT, BRANCH OVER HALT
s INTERRUPT OCCURED

MOV
BIC
BIS
NOP
BIC
BR
HLT

#340,4PSW
#240,a#PSW
#TINT7 ,@DRVECA
#STACK, %6
#100,aDRCSR
#101,aDRCSR
#100,aDRCSR
.+

SCOPE

;RAISE PROCESSOR PRIORITY TO LEVEL 5
;IN CASE OF INTERRUPT
;SET STACK POINTER
;CLEAR INTERRUPT ENABLE
;SET INTERRUPT ENABLE AND CSRO

;DON'T LEAVE IT SET
;WITH NO INTERRUPT, BRANCH OVER HALT
s INTERRUPT OCCURED

sTEST FOR NO INTERRUPT FROM DEVICE
BIC
#340,a4PSW
BIS
#300,a#PSW
;RAISE PROCESSOR PRIORITY TO LEVEL 6
MOV
#TINT8,aDRVECA ;IN CASE OF INTERRUPT
MOV
#STACK , %6
sSET STACK POINTER
BIC
#100,aDRCSR
;CLEAR INTERRUPT ENABLE
BIS
#101,aDRCSR
;SET INTERRUPT ENABLE-AND CSRO
BIC
#100,aDRCSR
;DON'T LEAVE IT SET
NOP
BR
.+
;WITH NO INTERRUPT, BRANCH OVER HALT
TINT8:
HLT
s INTERRUPT OCCURED
SCOPE
MOV
CLR

DRLVL ,@DRVECA
aDRVECA

;END OF TEST ROUTINE

END:
1%:
2%:

175210

BR
HLT
SCOPE

#3640, a4PSW

;TEST FOR NO INTERRUPT FROM DEVICE

175370
175362

003656
003664
003672
003700
003704
003712
003720
003726
003730
003732
003734

SEQ 0022

sNO DEVICE INTERRUPT OCCURED

SCOPE

MOV
MoV
BIC
BIS
NOP
BIC

175450
175442

177776
177776
175412

NOP
HLT

BIS

175472

1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
}}gg

1172

PAGE 23

sTEST FOR NO INTERRUPT FROM DEVICE (HIGHEST PROCESSOR PRIORITY)

TINT6:

000340
000240
003652

14:59

GET VALUE FOR SOFTWARE SWITCH REGISTER

000240
104000

‘

12-JUN-78

;FOR FALSE INTERRUPT

MOV
TSTB
BPL

#'x,aTDBR
aTCSR
1%

JTYPE

BEQ
JMP

#SW10,aSWR
4%
@#RSTART

;LOOP ON SELECTED DR?

CLR
TSTB
BPL
CKSWR
BIT

‘'»°

a@TDBR
aTCSR
2%

;REPEAT TEST ON DR11C SELECTED

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

SE g BBIRARUN28BBIR aR
d —
i

5%:

175144
000042

8%:

020000

~N
o

-h

prd

s
b

aubd wd

PAGE 24

SEQ 0023

ADD

RO. (R5) +

BIT
BNE

TYPE

MESS3
INC

MOV
BEQ

AHRSTART

#SW9, ASWR
13
PASCNT

a#42,RO
END1

JMP

ANSTART

NOP
NOP
NOP

;STEPPING CONSTANT
;SET TIME OUT TRAP
;STEP TO NEXT DR11-C ADDRESS
sWILL TIME OUT IF NOT AVAILABLE
;SET TABLE POINTER

JRESTART TEST USING NEXT DR11-C

;TYPE

'END PASS'

;KEEP TRACK OF PASSES COMPLETED

SENTERED WITH SYSTEM TRAP CALL(HLT)
sPRINT OUT THE ERROR PC AND STATUS REGISTER

000144

n
o8

o
~

000130

o
~N

~N
~N
~N

—t

-—

RO. (R5) +
RO. (R5) +
RO. (RS5) +
RO. (R5) +

PC, (RO)

END1:

N
N

—_
—

n
W

n
n
n

004256

RO. (R5)+

$ENDAD: JSR
P

001726

(R5)

suB

RESET

000070

1238

#DRCSR,RS
RO, (RS) +

CKSWR

175126

3 R
-h

000137

MOV
SuB

JMP

NN
= =
nNOONSNO

001000

S|
o

RERRES -§a 3 :

032777

WWAWND

001754

000137

001405

#10,R0
. ant
#5S
RO,RS

su8
suB
ADD
ADD

NN NONONWVWN
S BB
ONO?OJ\

3&IKS
NONwn
b ed cd b e e =

d b

OV NOWVIS~WN=O

M) =

D
d
D

)
D

004106

MO v
MOV
SuB

000004

001222

K
14:59

:STEP TO NEXT DR11=C

4%:

)

D e

) e

)

012705

12-JUN-78

GET VALUE FOR SOFTWARE SWITCH REGISTER

004032

)

000010
004072

012700
012737

004014
004020

—

d
)
d

ny N

_ —
d
b

—

d e

=D —_

[RSLASHSHSTNINLST
NS 1NNDS LASTASTAST,S)

D —

1183

MACY11 30A(1052)

004767

000064
000062

MLT:

CKSWR
BIT

ISWR ,#SW13
R

(6)+,SAVPC
(6)+,SAVCC
-(6),-(6)
aTCSR
=4
#215,3TDBR
ATCSR
.4
#212,3TDBR
ETESR

%2.SAVR?
%3,SAVR3
%4 ,SAVR4
SAVPC,%2
%7 ,PRTAB

#240,aTDBR
BTESR

SAVCC,
X2
%7 .PRTAB

;TEST FOR INHIBIT PRINT OUT
sBRANCH TO PRINT
:INHIBIT, RETURN TO MAIN STREAM
;PC OF FAILING ROUTINE
;CC OF ERROR CONDITION
;REPOSITION THE STACK
;WAIT FOR FLAG
:IF NOT UP.

;LINE FEED

;SAVE R2
;SAVE R3

;SAVE R4

;PRINT OCTAL NUMBER
s SPACE BETWEEN WORDS
;PRINT OCTAL NUMBER

Z2-CZDRC~H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P11
1239
1240
1241
1242
1243
1244
1245
1246
1247

004262
004266
004272
004276
004302
004310
004312
004314
004320
004322

004767
016702
016703
016704
023737
001404
104406

005777
100001

00004¢

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

%7 ,MORE
1D
SAVR2,
%2
%3
SAVR3,
%4
SAVR4,

000046

174676
1%:

;DEVICE ADDRESS AND VECTORS
sRESTORE REGISTERS

?:42.3#46

;ARE WE IN ACT=11 AUTO MODE?
sHALT ON ERROR IF YES

ASWR
.+

;TEST FOR HALT SWITCH
sHALT ON ERROR SET

JRETURN TO MAIN STREAM

SAVRZ2:
SAVR3:
SAVRS:
TDBR:
TCSR:
SAVPC:

;DATA

; STATUS

SAVCC:
PRTAB:

000001
177730

000236
000220
000214

BINCT

WGTCT
#LIST
%4

#5 ,ASCNT
#7 ,SEVEN
WAITT:

#1,DECML

aTCSR
WAIT1

000260

177712

000261
000156
000150
000144
000140

177702

000136
000134
000126

000136

MINUS:
STAR:

MKNUM:

MINUS

;NEG SIGN PRINT 1
;POS SIGN PRINT 0

SEVEN,
%3
%2, TOODLE

;PUT MASK IN R3
;GET READY TO DOODLE NUMBER IN TOODLE

#260,aTDBR
STAR
#261,3TDBR

WRTLC

DECML ,WGTCT
BINCT

WGTCT,%3

000120

WRTOC:

000102

sGET LIST ADDRESS

MKNUM

#260,BINCT
BINCT, (4)+
SEVEN,DECML
WGTCT

s COMPENSATES FOR COMPLEMENT DURING BIC
;AND 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

BINCT
ASCNT
XLIST

000050

000005

177552

000044

MOADD:

XLIST:

WAITZ:

#3,%3

SEVEN, SEVEN

MOADD
STAR
#5 ,ASCNT
aTCSR

WAIT2

;5 CHAR IN LIST
sSET X3 FOR ADD LOOP

;MAKING SEVENTY BY SEVEN

sNX SEVEN SET GET NX OCTAL
JSEND 5 CHAR TO TTY

SEQ 0024

2Z-CZDRC=H,DR11C DEV REG

CZDRCH.P1

014477

i e

BESRIROSESYI
LR 3

12-JUN-78 14:57

MACY11 30A(1052)

MOV
DEC
BEQ

177542
000026

HDFHM:

) i

D ed
i

o
W
~

004646

WAITZ2

;FINISH PRINTING GET NXT NUM

O
O

BINCT:
ASCNT:
LIST:

O
O
O
0
0

;HEAD FOR HOME

000177

;SCOPE LOOP ROUTINE ENTERED BY USER TRAP
;REPOSITION THE STACK
SCOPEB: CMP
(6)+,%6

177776

MOV
JMP

000120

(6)+,a#PSW
@RE TURN

:SCOPE RETURN

;SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES

g
3

040000

OCVONOWVNSWN=O

-(4) ,aTDBR
ASCNT
HDFHM

—h

SRR RS S

&»

—

174334

.SCOPE:

001240

032777

n
o

004720

000004
005000
000031
000004

000004
177060

004000

174270

000026
004746

005267

CKSWR

BIT
BNE

#SW14 ,aSWR
SCOPEB

BPL
MOV
MOV

MOV
MOV

1%
s ,-(%6)
, a#4
#XOR
#31,a#177060
(%6)+,a#4

BIT
BNE

#SW11,3SWR
SCOPEA

TST

1%:

174312

000016

CKSWR

TST
BEQ
CMP

000022

BEQ

INC
BR
SCOPEG: CLR

000010
000006

SCOPEA: :?Y

A#XORFLG

PASCNT
SCOPEA

, ICOUNT
SCOPEF
SCOPEG
SCOPEF
SCOPEB
SCOPEF
@%6 ,RETURN

ICOUNT: 4000
SCOPEF: 0

RETURN: BEGIN

173200

022626
012637
000714

005010
005016

012777
105777

005002
005006

OV NOWVSBWN=O0

BPL

SEVEN:
DECML:

WGTCT:

i
i

PAGE 26

TSTB @TCSR

TOODLE: 0

i
i o B i
b

D i

W WWWWWWWWWWL
ed o ed
e d D
N M) = e

RTS

G
4 4 NS S
A A A 0

14:59

GET VALUE FOR SOFTWARE SWITCH REGISTER

177530

W
W

o
RN
R

12-JUN-78

XOR:

000004

000240
177314

177316

JMP

200

CMP
MOV
BR

(%6)+, (%6)+
(26) +,a#4
SCOPEB

sFRINT DEVICE ADDRESS AND VECTOR

MOREID: MOV
TSTB

#240,3TDBR
aTCSR

;TEST SR FOR SCOPE

;YES SCOPE

sNO - TEST FOR ITERATION
sINHIBIT ITERATION
;ARE WE IN FIRST PASS?
;BRANCH IF YES; INHIBIT ITERATIONS
:EXIT = DONE

s INCREMENT COUNT
:LOOP SOME MORE
;CLEAR COUNT

;SAVE SCOPE RETURN POINTER

JRETURN INLINE-NEXT TEST

sCOUNT LOCATION FOR ITERATION LOOP
;ADDRESS OF LAST TEST

SEQ 0025

—

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

EAVe

005022

Voo~

001222
177310
000240
177270
174156

SEEEEREREE

WWWW

—

1351
1352
1353
1354

177244

000212

177230

BO\IO‘MJ\
8% gEFERaRE FIERELY
WW

14:59

PAGE 27

GET VALUE FOR SOF TWARE SWITCH REGISTER
BPL

, %2
a#DRCSR
X7 ,PRTAB
#240,3TDBR
aTCSR
=4

177272

DRVFCA,
%2
%7.PRTAB

#215,aTDBR
argsa

177246

#212,3TDBR

177232

argsn

aTDRR

177220

argsn

177216

:BACK TO PRINT

¥4
;ENTER HERE FOR POWER FAIL

WWWW
~ NNN
W nN=O
d
)
b —d
b
—

12=JUN-78

MACY11 30A(1052)

PFAIL:

172660

005160
005162

005162

000000

016706

005172

012605

005176
005200
005202
005204
005206

012603
012602
012601
012600
000137

177772
172632

000024
SAVR6:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT

RESTAR:MOV
MOV
MOV
MOV
MOV

MOV

MOV
MOV
JMP

001754

X0,-(6)
21,-(6)

;SAVE REGISTER OR STACK
;WHEN POWERING DOWN

%6 ,a#SAVRE

;STORE STACK POSITION

SAVR6, %6

;HALT ON POWER DOWN NORMAL
:STACK IS SAVED HERE
;RESTORE REGISTER OFF STACK

%2.=(6)
%3.-(6)
%4.,-(6)
%5.,=(6)
24 ,-(6)

#RESTAR ,a#24

:WHEN POWERING UP

(6)+,24
(6)+,%5

(6)+,%4
(6)+,%3
(6)+,%2
(6)+,%1
(6)+,%0
a#RSTART

;JENTER HERE FOR UNIQUE SELECTION OF DR11C

005230
005232
005236
005242

104406
017701
004737
000000
104406
017701
004737
000137

005246
005252

012700
010120

005214
005216
005222

SPECO:

000000

173774

005246
173760

005276
001726
001200

SPECT:

HALT
CKSWR
MOV
JSR
HALT
CKSWR
MOV
JSR
JMP
MOV
MOV

;PLACE ADDRESS OF DR11-C CONTROL STATUS
aSWR,R1
PC,a#SPECT

aSWR,R1
PC,a#SPEC2
A#START

#RCSR,RO

R1. (RO) +

:SET TABLE ADDRESS

*LOAD INTO TABLE STARTING AT RCSR

SEQ 0026

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

062701

8 3
MACYT1 30A(1052)
12=JUN-78 14:59 PAGE 28
GET VALUE FOR SOF TWARE SWITCH REGISTER
ADD
MOV
ADD
MOV

000002
000002

DEC
MOV
RTS

001210

SPEC2:

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

;STEP
;LOAD
;STEP
;LOAD

R1,(RO)+

;LOAD INTO TABLE

MOV

#RCSR1,RO

TST

(R1)+

MOV

R1, (RO)+

MOov

R1,(RO)+

MOV

R1,(RO)+

LIST

TST

RTS

TYP:

.SBTTL

SEQ 0027

TO ADDRESS OF DROUTBUF
INTO TABLE
TO ADDRESS OF DRINSUF
INTO TABLE

;FORM ADDRESS OF DROUTBUF
+1

;LOAD INTO TABLE

(R1)+

TYPE ROUTINE

SRR R AR

AR A AR A AR A AR

AR AAA AR AR

AR AR AR AR AR AR AR AR

ARk

'ROUTINE 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.

s *NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*NOTE2:

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

. %

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

‘OR

TYPE

.MESADR

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

;:1S THERE A TERMINAL?
;:BR IF YES
;sHALT HERE IF NO TERMINAL

. %

‘x

TYPE

ME SADR

. %

105767
100002

000000
000407
010046
017600

000223

000002

1449

1450

$TYPE:

1%:

2%:

TSTB

BPL
HALT
BR
MOV
MOV
MOVB
BNE
TST

(RO)+,-(SP)
43
(SP) +

s sLEAVE

::SAVE RO
;:GET ADDRESS OF ASCIZ STRING

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

.2
IF TERMINATOR POP IT OFF

000002

MOV
ADD

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

000011

4%:

CMPB
BEQ

#HT, (SP)
8%

ggRLF.(SP)

;JBRANCH IF*NOT <CRLF>

1S7

(SP)+

:;POP

$CHARCNT
2%

::CLEAR CHARACTER COUNT
2:GET NEXT CHARACTER

RTI

gzv;e
TYPE

1462

RO,-(SP)
@2(SP) ,RO

60%:
3%:

000200

1461

000130

$CRLF

CLRB
BR

::RESTORE RO
::ADJUST RETURN PC
: RETURN

;:BRANCH IF <HT>
F
<CR><LF> EQUIV

;:TYPE A CR AND LF

THE

STACK

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

005404
005410
005414
005416

004767

005422
005426
005430
005434

105366
002770
004767
105367
000770

005440

126726

001350
01675

MACY11 30A(1052)

12-JUN-78

14:59

TYPE ROUTINE

5%:
6%:

000056
000130
000120

7%:

000001

000032
000072

JSR
CMPB
BNE
MOV

PC,S$TYPEC
$FILLC, (SP)+
2%
$NULL ,=(SP)

DECB

1(SP)

6%
PC,STYPEC
$CHARCNT
7$

BLT
JSR
DECB
BR

PAGE 29

SEQ 0028

;.G0 TYPE THIS CHARACTER
::XS IT TIME FOR FILLER CHARS.?
:IF NO GO GET NEXT CHAR.

..GET # OF FILLER CHARS. NEEDED
sAND THE NULL CHAR.

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

::DO NOT COUNT AS A COUNT

;.LOOP

sHORIZONTAL TAB PROCESSOR
005442
005446
005452

112716

005460
005462
005464

8%:
000052

9%:

MovB
JSR

BITB
BNE

<«

TST

000044

005466
005472
005474
005502
005510
005512
005516
005520
005526

000002
000015

000036

000002

000014

000012

005530
005532
005534

005536
005540
005542
005543
005544
005545
005546
005547
005550

000040
000014
000007

000002

,(SP)

PC,STYPEC

#7 ,$CHARCNT
9%
(SP)
+

BR
$TYPEC: TSTB
BPL
MOvB
CMPB
BNE
CLRB
BR
1$:
CMPB

2%
a$TPS
$TYPEC
2(SP) ,a$TPB
#CR,2(SP)
1$
$CHARCNT
$TYPEX
#LF ,2(SP)

$CHARCNT: .WORD

BEQ
INCB

$TYPEX: RTS

000012

$TYPEX
(PC)+
PC

$TPS:
.WORD
177564
$TPB:
.WORD
177566
$NULL:
.BYTE
O
$FILLS: .BYTE
2
$FILLC: .BYTE
12
$TPFLG: .BYTE
O
$QUES:
.ASCII
*?''
<15>
.ASCII
$CRLF:
LASCIZ <12>
$LF:
.SBTTL BINARY TO OCTAL

;;REPLACE TAB WITH SPACE
;:TYPE A SPACE
;sBRANCH IF NOT AT
;. TAB STOP

;sPOP SPACE OFF STACK
;2GET NEXT CHARACTER
;sWAIT UNTIL PRINTER IS READY

;;LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
: ;BRANCH IF NO
::E;?;~CLEAR CHARACTER COUNT

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

s s CONTAINS NULL CHARACTER FOR FILLS
# OF FILLER CHARACTERS REQUIRED
:;CONTAINS
..INSERT FILL CHARS. AFTER A 'LINE FEED"’
;2" 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;QUESTION MARK
;:CARRAIGE RETURN
s ; LINEFEED

(ASCII) AND TYPE

;'tttttttitttttttttt*.ttt*ttitttfit.tttttttt*iitttttfittittt*t*tttt

-d_hg-a.a_a_hd-asa
W= O
OO

P
S
W
T (R W

vivvunwniuonaunonnioanwn

1508

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

:«$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

s*CALL:
;*
MOV
o
TYPOS

o
H
;t

:t
&
%

.BYTE
.BYTE

NUM, -(SP)
N

;:NUMBER TO BE TYPED
;:;CALL FOR TYPEOUT
:2N=1

TO 6 FOR NUMBER OF DIGITS TO TYPE

::M=1 0R 0
;:1=TYPE LEADING ZEROS
;:0=SUPPRESS LEADING ZEROS

$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

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

D 3
MACY11 30A(1052)
12-JUN-78 14:59 PAGE 30
BINARY TO OCTAL (ASCII) AND TYPE

1519
1520

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

1521
}ggg

SEQ 0029

::NUMBER TO BE TYPED
::CALL FOR TYPEOUT

- %

1524
1525
1526

:*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
:«CALL:
i*
MOV
NUM, - (SP)
::NUMBER TO BE TYPED

lggg

1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543

005552
005556
005564
005570
005574
005576
005604
005612
005620
005622
005624
005626
005632
005634
005640

1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574

005656
005660
005662
005664
005666
005670
005672
005674
005700
005702
005706
005710
005712
005714
005716
005722
005726
005732
005736
005742
005744
005746
005750
005752
005754
005756
005760
005766

1544
1545
1546

005644
005650
005654

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

000000
000001
000207
000002
000001
000006
000005

000211

000171
000165
000154

000145

000006
000132

116704
000125
016605
000012
005003
006105
000404
006105
006105
006105
010503
006103
105367 000076
100016
042703
177770
001002
005704
001403
005204
052703
000060
052703 -000040
110367 000040

104401
105367
003347
002402
005204
000744
012605
012604

005772
000032

016666
012616

000002

012603

$TYPOS: MOV
MOVB
MOVB
ADD
BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOY
MOV
MOV
MOVB
NEG
ADD
MOVB
:
1%:

2%:

3%:

4%:
5%:
7%:

6% :
000004

TYPOC

MOVB
MOV
CLR

ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
BIS
MOVB
TYPE
DECB
BGT
BLT
INC
BR
MoV
MOV
MOV
MOV
MOV

:;CALL FOR TYPEOUT

a(SP) ,-(SP)
1(SP) ,$OF ILL
(SP)+,$OMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6, SOMODE +1
#5,80CNT
R3,-(SP)
R4 ,~(SP)
RS,-(SP)
$OMODE +1,R4
Ré
#6 R4
R4 , SOMODE

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

RS
3$
RS
RS
RS
RS,R3
R3
$OMODE
7%
#177770,R3
43
R4
5%
R&
#'0,R3
#' ,R3
R3,8%
,8%
SOCNT
2%
68
R4
2%
(SP)+,RS
(SP) + R4
(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

::ROTATE MSB INTO '‘C*
::GO DO MSB
::FORM THIS DIGIT

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

::SET THE
::SET FOR
::SET THE
::SAVE R3
: :SAVE R4
::SAVE RS
::GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

::SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
::GET THE ZERO FILL SWITCH
:;PICKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD

::GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?
::BR IF NO
::GET RID OF JUNK
::TEST FOR 0
: :SUPPRESS THIS 0?
::BR IF YES
::DON'T SUPPRESS ANYMORE 0°'S
::MAKE THIS DIGIT ASCII
::MAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
::GO TYPE THIS DIGIT
::COUNT BY 1
::BR IF MORE TO DO
::BR IF DONE
2 INSURE LAST DIGIT ISN'T A BLANK
::GO DO THE LAST DIGIT
: :RESTORE RS
::RESTORE R4
:;RESTORE R3
::SET THE STACK FOR RETURNING

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

005770
005772
005773
005774
005775
005776

000002
000
000
000
000
000000

006000
006002

177560
177562

MACY11

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

8%:

RTI

OOOOO

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

.BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD
.SBTTL
TTY INPUT ROUTINE

SEQ 0030

; sRETURN

;:STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
;:O0CTAL DIGIT COUNTER
;+ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

:.'Qifi.tt'tttfifititt'tttt"t'.ttfitttfittttt*ttttitit.ttt.tttttttt'.'

$TKS:
$TKB:
.INABL

.WORD
.WORD
LSB

177560
177562

IRRERARRRRRREARR AR AR RRR AR RN R

;sTTY KBD STATUS
;2TTY KBD BUFFER

AR RRRER IR RRR

RARRR AR

AR AR

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL
022767
001074
105777
100071
117746
042716

022726

000176

173204

; *WHEN OPERATING IN TTY FLAG MODE.

$CKSWR: CMP

177760

177754
177600

000007

000514

172112

006547
177676

15%

. SMSWR
SWREG,=(SP)

;s TYPE

19%:

CLR

. SMNEW

;;PROMPT FOR NEW SWR

7%:

TSTB

-(SP)
-(SP)

177672
177600

021627

000025

9%:

CMP

006524
000006

20%:

ADD

000015

10%:

CMP

1629
1630

001403
016677

001022
005766

000002

173040

CURRENT CONTENTS

. :SAVE SWREG FOR TYPEOUT
;:G0 TYPE--OCTAL ASCIICALL DIGITS)

;sCLEAR COUNTER
;s THE NEW SWR

a$TKS

::CHAR THERE?
;:IF NOT TRY AGAIN

as$TKB,-(SP)

::PICK UP CHAR
J:MAKE IT 7-BIT ASCII

(SP) 425

;IS IT A CONTROL=-U?
;JBRANCH IF NOT
;:YES, ECHO CONTROL-U (*U)
;s IGNORE PREVIOUS INPUT
:;LET'S TRY IT AGAIN

#-C177.(SP)

000004

;;ECHO THE CONTROL-G (“G)

TYPE

117746

021627

.SCNTLG

;:1S THE SOFT-SWR SELECTED?
;sBRANCH IF NO
::CHAR THERE?
;2IF NO, DON'T WAIT AROUND
;:SAVE THE CHAR
;:STRIP-OFF THE ASCII
;1S IT A CONTROL G?
;2NO, RETURN TO USER
;;ARE WE RUNNING IN AUTO-MODE?
;sBRANCH IF YES

$GTSWR:

042716

1626

15%
a$TKS
15%
Q%$TKB,~(SP)
#~C177,(SP)

#7,(SP)+
15%
#1
$AUTOB,

000001

006531
006536

#SWREG, SWR

J0IS IT A <CR>?

;:BRANCH IF NO
:2YES, IS IT THE FIRST (CHAR?
;:BRANCH IF

YES

;:SAVE NEW SWR

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

006156
006162

062706
104401

126727

MACY11

000006
005547
00367

000001

000100

177574

30A(1052)

12-JUN-78

TTY INPUT ROUTINE

11%:
14%:

ADD
TYPE

14:59

PAGE 32

;:;CLEAR UP STACK
;.ECHO <CR> AND <LF>
;:RE-ENABLE TTY KBD INTERRUPTS?
;JBRANCH IF NOT
;s JRE-ENABLE TTY KBD INTERRUPTS
: JRETURN
;sECHO CHAR

#6,SP
.SCRLF
$INTAG,#1

15%

#100,3$TKS

177254
000060

PC,$TYPEC

::CHAR < 0?
;JBRANCH IF YES

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

000067

000060
000002

17%:

INC
BIS

2(SP)
-2(SP), (SP)

005546

18%:

TYPE
BR
LSB

. $QUES
208

.DSABL

SRR

;sBRANCH IF YES
;:STRIP-OFF ASCII
;:1S THIS THE FIRST CHAR
. sBRANCH IF YES
;:NO, SHIFT PRESENT
CHAR OVER TO MAKE
5e
ROOM FOR NEW ONE.
2s
;sKEEP COUNT OF CHAR
;2SET IN NEW CHAR
;sGET THE NEXT ONE

(SP)
(SP)
(SP)

000002
177776

AR AR AR A AR AR A AR A AR AR AR

SEQ 0031

::TYPE ?2<CR><LF>

;s SIMULATE CONTROL-U

AAA AR AR

A AR AR AR AR A AR AR A AR AR

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

i
i

RDCHR

RETURN HERE

- %

000004
177476

000002

177472
177600

000004
000004
000023

000004

177444

$RDCHR: MOV
MOV
1%:
TSTB
BPL
MOVB

(SP) ,=(SP)
4(SP),2(SP)
a$TKS
1%
@$TKB,4(SP)

BNE
TSTB
BPL
MOVB

3$
a$TKS
2%
@$TKB,-(SP)

BIC
CMP

2%:

177440
177600

BIC

000021

CMP
BNE

0000C4

000140

000004

000175

000040

000004

3$:

4% :

B8R

CMP
BLT
CMP
BGT
BIC
RTI

#AC<177>,4(SP)
4(SP) 423

#°C177.(SP)
(SP)+ 421
2%

4(SP) ,#140
4%
4(SP) ,#175
4$
#40,4(SP)

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

;:PUSH DOWN THE PC
;:SAVE THE PS
;:WAIT FOR

;:A CHARACTER

;;READ THE TTY
;:GET RID OF JUNK IF ANY
;31S IT A CONTROL=-S?
;sBRANCH IF NO
;:WAIT FOR A CHARACTER
;;LOOP UNTIL ITS THERE
;:GET CHARACTER

JJMAKE IT 7-BIT ASCII

;IS IT A CONTROL=-Q?
;oIF NOT DISCARD IT
;. YES, RESUME
;:1S IT UPPER CASE?
; sBRANCH IF YES
;21S IT A SPECIAL CHAR?
2 ;BRANCH IF YES
;sMAKE

IT UPPER CASE

;.G0 BACK TO USER

AR R AR A A AR A A A A AR AR AR AR A AR AR A A AR A AR A AR AR AR AR AR AR AR AR AR AR

:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
-~

A AR

TTY INPUT ROUTINE
s*CALL:

1687
1688
1689
1690

1691
1692

010346
012703
022703
101405
104407
112613
122713
001003
104401
000763
111367

1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703

104401
122723

001356
105063
104401
012603
011646

n NNV
bbb aaDDaal
rtl,\l\l\l\l\l\l\l\l\l\l\l\l\l\l
CMOOD\dgtaiduflv-*ChOOD*JOwnt\ W N=0OVONOVNSWN=0O0 &<
ey

D
d e
D
D
D e
e
e
e
D
e
—

g
g
N
Y- g— g—
TW
VT
N
-[

~N NSNSNSNNNNSNNNSNNSNSNNNN
Eo S UWWWWWWWWWWAI
NN NN N

\‘_A
~

1705

1742

2%:

CMP
BLOS

RDCHR

000177

10%:

005546

(%:

MOVB

CMPB
BNE
TYPE
BR
?0;?

3%:

000004
006514

005015
006507
053523
000

047040
000040

R3,-(SP)
#STTYIN,R3

#STTYIN+8. ,R3
4%

(SP)+,(R3)

;JBUFFER FULL?
;:BR IF YES

;:G0 READ ONE CHARACTER FROM THE TTY

;:GET CHARACTER

#177,(R3)
3%

;:1S IT A RUBOUT
::SKIP IF NOT

#15,(R3)+
2%

;3CHECK FOR RETURN
;:LOOP IF NOT RETURN

TYPE

JSLF

;2TYPE A LINE FEED

MOV
RTI
.BYTE
.BYTE

.BLKB
LASCIZ
JASCIZ

SQUES

=1(R3)

#STTYIN,4(SP)

0
0
8.

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

053505

$SMNEW:

ASCIZ

$AUTOR:
$INTAG:
.SBTTL

.BYTE
.BYTE

0
0

JASCIZ

::CLEAR RETURN (THE 15)

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

000
000012
020122

;:SAVE R3
;:GET ADDRESS

CMPB
BNE

MOV
MOV
MOV
9%:

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

(33),9%

CLRB

000002
000004

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

22TYPE A '2°
::CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

177777
005550

3
PAGE 33

RDLIN
RETURN HERE

$RDLIN: MOV
1%:
MOV

006514
006524

000044
00€512
000015

G
14:59

12=-JUN-78

MACY11 30A(1052)

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

/7*U/<15><12>
/72G/<15><12>

<15><12>/SWR =

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

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

::CONTROL 'V
::CONTROL ''G"’

NEW =

TRAP DECODER

;;AUTO MODE FLAG
:; INTERRUPT MODE FLAG
T T

'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF 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
;*GO TO THAT ROUTINE.
006562

006570
006572
006574
006576

006602

010046

000002

006616

$TRAP:

MOV
MOV
TST
MOvB
ASL
MOV
RTS

RO,=(SP)

;:SAVE RO

-(R0O)
(RO) ,RO
RO
$TRPAD (R0O) ,RO
RO

::GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
:INDEX TO TABLE
;:G0 TO ROUTINE

2(SP) ,RO

;:GET TRAP ADDRESS
: :BACKUP BY 2

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

SEQ 0032

1Z-CZDRC-H,DR11C DEV REG
12-JUN-78 14:57
CZDRCH.P1T
1743
1744
1745
1746
1747

006604
006606
006614

011646

016666
000002

000004

MACY11 30A(1052)

TRAP DECODER

000002

$TRAP2: MOV
MOV
RTI

.SBTTL

1748

H
14:59

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

3
PAGE 34

SEQ 0033

;sMOVE THE PC DOWN
2 ;MOVE THE PSW DOWN

;;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

1749
1750

1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772

12=JUN-78

;*BY THE ''TRAP'' INSTRUCTION.

THE ROUTINES CALLED

ROUT INE

$TRPAC:

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON

$TRAPZ2

;s CALL=TYPE
;¢ CALL=TYPOC
;s CALL=TYPOS
;s CALL=TYPON

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

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

006054

$GTSWR

;s CALL=GTSWR

TRAP+5(104405)

GET SOFT-SWR SETTING

006004
006266
MESS1:

$CKSWR
$RDCHR
$RDL IN
.ASCIZ

;s CALL=CKSWR
: ; CALL=RDCHR
2 sCALL=RDLIN

TEST FOR CHANGE IN SOF T=SWR
TRAP+6(104406)
TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE
TRAP+10(104410) TTY TYPEIN STRING ROUTINE

<15><12>'YOU ARE ON AN XOR TESTER'<15><12>

MESS3:

.ASCIZ

/END PASS/<15><12>

006604
005316
005576
005552
005612

005015
051101
040440
020122
051105
105
051501
000001

047531
020105
020116
042524
005015
042116
006523

020125
047117
047530
052123
000
050040
000012

.END

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

DRIBUF
DRLVL
DROBUF

001226
001234
001224

DRVECA

001232

DRVECB
DSWR =
EMTVEC=
END
END1
ERRVEC=

001236
177570
000030
003750
004122
000004

1261+

837

1258+
L4n
404n
4034
402#
4014
4004
3994
398#

3974
3964
3954
4134
3044
3934
3924
3914
3904
3894

SEQ 0034

8454

13074

1280~

1296«
1342
1281

1284*

13064

1179

1197

1214

1245

1319

1328

1485
774
711
745
1276
745%
753
921«
828
1135

1495
1456
712

1495
713

714

1081~
1148«
1026

1091+
1149
1038+

1092+
1151«
1039

862
1010%

1071~

869+

877
1016%

878
1017+

1018

1089+

1099+

1110%

1121+

1133«

1285+

843
1277

1292+

414

413

412
4N
410
409
408

407

406
405

4124
L1114
L4104
4094
4084
LO7#
L06#
405#
L2214

3354

424K
11734
1204
4178

871

1062
849«
922
1038
1056+*

743%

754«

1068«
b
12104
742

1124+

1025+

885

913«
1027

914
1032+

1146+

1169+

1170+

1078«

1123+
1352

1062+

1011
1076+

——
— 3

930«

932
1080«
1138«
1017
1169
861
934

931«
845
1136+

—_—

13044

1282+
753

1263*
7224
7014
7264
7234
1126*
7254
7294
7244
920*
1037+
7284
1357
7304

—_——

7334

3294
3304
2994
3364

17624

1400

1396

8934
841

sl wailh

ASCNT
004624
BEGIN
002010
BINCT
004622
BITO = 000001
BITOO = 000001
BITO01 = 000002
B1T02 = 000004
BITO3 = 000010
BITO4 = 000020
BITOS = 000040
BITO6 = 000100
BITO7 = 000200
BITO8 = 000400
BITO9 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15S = 100000
BIT2 = 000004
BIT3 = 000010
BIT4
= 000020
BITS
= 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BPTVEC= 000014
BUFTST 002244
CKSWR = 104406
COUNT
001242
CR
= 000015
CRLF
= 000200
CSR
= 167770
DDISP = 177570
DECML
004616
DISPLA 001220
DISPRE 000174
DRBHIO 001230
DRCSR
001222

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

884+

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

001632

GNS
= wawwax |
GTSWR = 104405
HDFHM
004602
HLT

= 104000

= 000011

ICOUNT
004766
IOTVEC= 000020
LF
= 000012
LIST
004626
MESS1
006640
MESS3
006675
MINUS
004424
MKNUM
004454
MOADD
004536
MOREID 005010
PASCNT
001246
PFAIL
005124
PIRQ
= 177772
PIRQVE= 000240

001244

PSW

=
=
=
=
=
=
=
=
=
= 177776

PRTAB
PRO
PR1
PRZ
PR3
PR4
PRS
PR6
PR7
PS

805

773
768
1297

2984
959
1060

3278

SAVR3
SAVR4
SAVR6
SCOPEA
SCOPEB
SCOPEF
SCOPEG
SEVEN
SPEC

004330
004332
005160
004760
004640
004770
004754
004614
001616

SAVCC
SAVPC
SAVRZ2

004342
004340
004326

1756

1757

1758

1760

1762

1763

1764

853
965
1072

873
984
1104

881
992
1115

888
1000
1128

903
1006
1140

917
1013
1153

925
1020
1166

860+

1495

865
980
1094

936
1029

1454

855
972
1083

868«

876+

892+

954 *

995+«

1023«

1035+«

1333

13404

1067«
1145«

1070
1157«

1077«
1158+

1087+«
1315«

1076

1238

12584

1353

1358

2974
1098+

332
3324
1108+«

846
1109+

976+
1119+«

987+«
1120+«

1054~
1132+«

1058~
1144x

787%

827

1405

796%

797«

1415

1338«
1196
12564
12554

13424
1391

4234
7114

7154
1696
17644
1380
4184
837«
836#

1219«
1218+
1229«

1230
1231«
1379«
1330
13144
838+«
1334
1262«
705

SEQ 0035

1755
17604
12994

7344

690
3344
4284

PWRVEC= 000024
RCSR
001200

104410
005162
000010
004772
001754

8104

1489
1308#
17654
17704
12704
1279
1290
1239
1202«

1233
3514
352#
3534
3544
3554
3564
3574
3584
3314

RDLIN =
RESTAR
RESVEC=
RETURN
RSTART

808

848+
4224
3284
1260
820
1201
1267
12764
1288%#
844
735#

004344
000000
000040
000100
000140
000200
000240
000300
000340
177776

RCSR1
001210
RDCHR = 104407

J
3
MACYT1 30A(1052)
12-JUN-78 14:59 PAGE 37
CROSS REFERENCE TABLE == USER SYMBOLS

13724

793«
17634

1240
1241
1242
13824
1332
1321
1333
13374
1271
8074

951
1050

1088+

1097«

1495

13454
1331

794>

795+«

13834

1316
1182
1237
1232

946
1042

12504
12514
12524
1383
13384
1336
1335«

1347
1337«

13414

1282

1288+«

13034

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

005212

TRAPVE= 000034

1079

1090

1100

1122

1134

- 842

1180

1198

1215

1246

1320

1329

1397

1593
752

766

1593

1606

1066

1403

1055

752«

842

1198

1221

1226

1227

1235

1254H

1264

1293

1299

1350

1355

1360

1223«

1226

1234%

1253%

1268+

1270«

1295+

1349+

1354+

1359+

1362+

1274

13024

= —t e

e e e

= OO

s Sy

_—

4254

1210

O
O
N Uil\LNN—igm
IR

b
b
wcd

B OOO

004612

TPVEC =

il wd cld

TOODLE

TKVEC =

003252
003322
003372
003442
003522
003572
003652
003732

TINT1
TINT2
TINT3
TINT4
TINTS
TINT6
TINT7Z
TINT8

——d

004334

R0 —_ e

TDBR

8274

856

746
1630+
766

744

SWREG
000176
SWO0
= 000001
SWO0 = 000001
SwO01
= 000002
Sw02 = 000004
Sw03 = 000010
Sw04 = 000020
SwWO5
= 000040
Sw06 = 000100
Sw07 = 000200
SwO8 = 000400
SwW09 = 001000
SW1
= 000002
SW10 = 002000
SW11
= 004000
swi2 = 010000
Sw13 = 020000
SW14 = 040000
Sw15 = 100000
swZ2
= 000004
Sw3
= 000010
Sw4é
= 000020
SWS
= 000040
Swé
= 000100
Sw7
= 000200
Sw8
= 000400
Sw9
= 001000
TAG
002310
TBITVE= 000014
TCSR
004336

1291

—_

001726
001250
177774
001216

807

-—

004432

STAR

START
START1
STKLMT=
SWR

14054
14154

SEQ 0036

u* egST
o
~=
WO
O
»Hx_ O~§V
§\\g§§

13954
1398
1402
739
1160
12714
806
7374

SPEC1
005246
SPEC2
005276
STACK = 001200

SPECO

K 3
MACY11 30A(1052)
12-JUN-78 14:59 PAGE 38
CROSS REFERENCE TABLE == USER SYMBOLS

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

420#
1056

TRTVEC= 000014

TST4

TSTS
TST6
TST9
TYP
TYPE

003132

003202
002760
003014
005316
= 104401

004620
004474
004552
005000
001712
001240
006560
005532
006004

SCNTLG
SCNTLU
$CRLF
$ENDAD
SFILLC
$FILLS
$GTSWR

006531
006524
005547
004112
00,544
005543
006054

$CMTAG=

$LF

SMAIL

8224
814+

1601
1471+
1762

wwwwww

17174
17164
15024
12064
14994

005550
wowwww

SMNEW
$MSWR
SNULL
$OCNT
$OMODE
SQUES
$RDCHR

006547
006536
005542
005774
005776
005546
006266

$SRDLIN

006406

$RDDEC=
SRDOCT=

**nwwx
mxxwnn

$RDSZ = 000010
$R2A

1265
129%
1276+
12804
12924
13454

006561

wanwnn

$SAVRE=

wxwann

$SETUP=
$STUP =
$TKB
$TKS
$TPB
$TPFLG
$TPS
$TRAP
$TRAP2
$TRP =

000100
177777
006002
006000
005540
005545
005536
006562
006604
000011

10614

1200

1459

1564

1298
1278

1283«

13054

824+

1322

1604

1605

1608

1621

1632

1651

17614

1762

17634

17644

17654

17564

CcC
€
C

SINTAG

SEQ 0037

10734
1033
10344

819
17554

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

WGTCT
WRTOC
XLIST
XOR
XORA
XORFLG
SAUTOB
$CHARC
$CKSWR

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

17224
1478

1632

1487

14924

1716

17¢0
17234
1707
766
17204
17184
14974
1565«
1535«
1651
1763

1554+

15804

1722

1764

740

763

1588

1597
1595
14964
15004
14954

1668
1635+

1674

1666

1672

17584

17594

1760

17324
1754

17564

17574

1700

1703

12-CZDRC=H,DR11C DEV REG
CZDRCH.F1
12=JUN-78 14:57
$TRPAD
S$TTYIN
STYPBN=
STYPDS=
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
$OFILL
.
=

006616
006514
sxwxnsx |J
wawwnsx |J
005316
005466
005534
005576
00562
005552
005775
006710

1737
1693
1759
1759
14424
1463
1488
15344
1533
15294
1530+
4304

m 3
MACY11 30A(1052)
12-JUN-78 14:59 PAGE 40
CROSS REFERENCE TABLE == USER SYMBOLS
17544
1694

1747

1711

17154

1755
1477
14934

14824

1483

1637

455
481
507

533
559

585
611
637
663
6964

945
1041

LHLT
.SCOPE

004126
004652

1356
1504

692
688

671

1152
1367
17154

7074
971
1165
1495
1716

864
979
1216
1496
1722

SEQ 0038

22-CZDRC-H,DR11C DEV REG
12=JUN-78 14:57
C<DRCH.P11
COMMEN
ENDCOM
ERROR
ESCAPE
GETPRI
GE TSWR
MULT
NEWTST
POP
PUSH
REPORT
SCOPE

SETPRI
SETTRA
SETUP
SKIP
SLASH

SPACE
STARS

SWRSU
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

1#
1#
3234
»
1#
1#
#
»
1»
1#
#
324K

994
1154

1
17478
1
1L

1
L9
1

w
1747#

%
»
1%
1#
1
1%
1#

$SESCA
SSNEWT
$SSET
$$SKIP
EQUAT

14
»
17478
#
il

KT11
.SETUP
.SWRHI

14
1%
1

. SWRSU
SACTT

3194
1%

.SAPTY
.SASTA
.SCATC
.SCMTA
.$DB2D
.$DB20
.SDIV
.SEOP
.$ERRO

14
#
1%
1#
1%
14
4
1#
14

.SAPTB
.SAPTH

.SERRT

LSMULT

. SPOWE
. SRAND

14
14

14
14
1%

MACY11 30A(1052)

12-JUN-78

14:59

PAGE 42

SEQ 0039

CROSS REFERENCE TABLE == MACRO NAMES

vl
4L2o9#
4294
veli
4294
Yeli
veli
4294
vl
4o
859
1002
1167
L2
1756
429
Lo
429
4294
L2

7634

891

919
1053

1009

1015

1022

1034

911
1045

1757
737

1758

1760

1762

1763

1764

1427
7404

1506

1583

1588

1656

1685

1758

1760

1762

1763

1764

867

883

L2294

L29%
4294
L29%
4294

429
4294
429
L2994

1756
Lo

319#

429

758

1606

1757

927
1065

1726

941
1084

953
1096

961

1106

968

1116

975
1129

986
1141

—

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

- $SRDOC

.SREAD
.SR2AZ
. $SAVE
.$582D
.$5820

.$SCOP
.$SIZE
. $SUPR
.STRAP
.STYPB
.STYPD
.STYPE
.$TYPO
.$40CA
.1170

. ABS.

MACYT1 30A(1052)

12-JUN-78

1L
1L
1»
1L
1L

1%
4
14
#
4
1L
1#
14
4
4

006710

ERRORS DETECTED:

3154

1581

319

1724

3194
1504

1424

PAGE 43

CROSS REFERENCE TABLE == MACRO NAMES

\LJ

14:59

000
O

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

SEQ 0040