Digital PDFs

AH-A830B-MC

June 1980

79 pages

Original

38MB

view download

OCR Version

52MB

view download

Document:	CZDXJB0 DX11-B DX11-B ADRSNG TST JUN 1980 bw
Order Number:	AH-A830B-MC
Revision:	000
Pages:	79
Original Filename:	CZDXJB0__DX11-B__DX11-B_ADRSNG_TST__AH-A830B-MC__JUN_1980_gray.pdf

OCR Text

DX11-B

D
C

75X J JB0

ADRSNG

TST

AH- AB30B-MC

FICHE 1 OF 1

N 1580

raokan uen

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
(ZDxJB.P1
24=MAR-80 09:31
1

2
3

24-MAR-80
.REM

09:45

1
PAGE 2

6
7
8
9
10
1"
12
13
14

IDENTIFICATION

]Ig

PRODUCT CODE:

AC-A829B-M(

128

PRODUCT NAME:

(ZDXJBO DX11-B ADRSNG TST

DATE:

APRIL,

MAINTAINER:

DIAGNOSTIC PROGRAMMING

AUTHOR:

R. MISNER

29
30
31
gg

1980

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
DOCUMENT.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE

PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM

37
;g

ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED
IN WRITING BY DIGITAL.

40
&
2%

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

AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)

1977,1980 BY DIGITAL EQUIPMENT CORPORATION

SEQ 0001

48
49

RIBBHIFARARZ

CZDXJBO DX11-B ADDRESSING TEST MACY11
(ZDXxJB.P11
24=-MAR-80 09:31

30A(1052)

24=MAR-80

09:45

9
PAGE 3

1.0

GENERAL PROGRAM INFORMATION

1. 1

ABSTRACT

SEQ 0002

THIS PROGRAM IS A SUPPLEMENT TO DZDXA AND DZDXF DX11-8
MAINTENANCE MODE DIAGNOSTICS AND IS A FUNCTIONAL CHECK THE
ABILITY OF THE DX TO ACCESS ALL AREAS OF MEMORY USING DIFFERENT
SOURCES FOR THE NPR DATA ADDRESS. IT IS ASSUMED THAT DZDXA AND
DZDXF HAVE ALREADY BEEN RUN. THE THREE NPR ADDRESS SOURCES
RESULT FROM DATA WRITES TO MEMORY, STATUS POINTER WORD (SPW)
FETCHES, AND DEVICE STATUS TABLE (DST) FETCHES.
DIAGNOSIS IS BASED ON THE ASSUMPTION THAT THE CPU CAN ACCESS
Tg%gpg?}RECTLY WHILE THE DX'S ADDRESSING CAPABILITY

ERROR MESSAGES DESCRIBE THE FAILING ADDRESS SOURCE AND THE
EXPECTED LOCATION OF THE DX ACCESS. THE ACTUAL DX ADDRESS
OF THE ACCESS CANNOT BE DETERMINED.
THE OPERATOR INTERFACE

DZDXA AND DZDXF.

1.2

IS DESIGNED TO BE COMPATIBLE WITH

SYSTEM REQUIREMENTS
THIS PROGRAM REQUIRES ANY PDP11

PROCESSOR WITH AT LEAST

8K OF MEMORY BUT NOT MORE THAN 128K;
TERMINAL.

THE DX11-B AND A CONSOLE

THE PROGRAM WILL RUN UNDER XXDP,ACT,SLIDE,

STAND ALONE.

AND

THIS PROGRAM HAS NOT BEEN TESTED ON CPU'S WITHOUT

A SWITCH REGISTER.

1.3

RELATED DOCUMENTS AND STANDARDS
PROGRAM IS ASSEMBLED USING SYSMAC MD-11-DZQAC-C3 AND
CONFORMS TO THE ACT INTERFACE AUTOCAT-11-QZAUB-8-D

1.4

DIAGNOSTIC HIERARCHY PREREQUSITES

IT IS ASSUMED THAT DZDXA,DZDXF, AND APPROPRIATE MEMORY
DIAGNOSTICS ARE RUN ERROR FREE IN ORDER FOR THE ERROR
MESSAGES IN THIS DIAGNOSTIC TO BE MEANINGFUL.

1 .3

ASSUMPTIONS

THIS PROGRAM ASSUMES THAT THE CPU, UNIBUS ADDRESSING,
AND PORTIONS OF THE DX11-B TESTED BY DZDXA AND DZDXF ARE

g’gm’zé?gLCORRECTLY IN ORDER FOR THE ERROR MESSAGES TO BE

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXxJB.P11
24-MAR-80 09:31

24-MAR-80

09:45

1
PAGE
4

2.0

OPERATING INSTRUCTIONS

€.

LOADING AND STARTING

SEQ 0003

USE STANDARD LOADING PROCEDURES FOR PDP11 UNDER THE
ABSOLUTE LOADER, XXDP, SLIDE, OR ACT. START AT ADDRESS 200.

THE PROGRAM WILL PRINT OUT THE MAINDEC NUMBER AND TITLE AND
A PROMPTING MESSAGE AS FOLLOWS:
"TYPE:
<D>,FOR DEFAULT PARAMETERS
<P>,FOR PREVIOUS PARAMETERS
<S$>,FOR SELECT PARAMETERS
<N>,FOR START WITH THIS TEST NO.

d e

D e

d e

D e

WA
—
g%g%gggwuugggmmmmmmmmaaddddddda

d e

103

30A(1052)

D.P.S.NYT*
THE OPERATOR MUST RESPOND WITH A D OR S IF THIS IS THE
FIRST START SINCE THE PROGRAM HAS BEEN LOADED INTO MEMORY.

IN RESPONSE TO THIS MESSAGE,

IF,

THE OPERATOR TYPES AN S<CR> THE

FOLLOWING DIAGLOG COULD TAKE PLACE:

"TEST NUMBER:

BASE ADDRESS:
VECTOR ADDRESS
:
DX PRIORITY LEVEL:

1<CR>

176200<CR>
300<CR>
4<CR>"’

NOTE: THE ABOVE RESPONSES ARE THE DEFAULT PARAMETERS
AND ARE EQUIVALENT TO TYPING A D<CR> IN RESPONSE TO D,P,S,N?

A <CR> RESPONSE FOR A PARTICULAR ENTRY WILL SELECT THE DEFAULT
VALUE. A CONTROL C AT ANY TIME WILL TAKE THE PROGRAM BACK TO THE
PARAMETER ENTRY SECTION. RESPONSE TO THE CONTROL C MAY BE SLOW

IF THE PROGRAM IS IN A PARTICULARLY LONG TEST. ALL PARAMETERS ARE
CHECKED TO SEE IF THEY ARE IN A LOGICAL RANGE. IF NOT, THE ENTRY
IS REQUESTED AGAIN.

"TEST NUMBER:''
THE PROGRAM IS ASKING FOR THE STARTING TEST NUMBER. 1
THRU 4 ARE VALID RESPONSES. THIS IS THE STARTING TEST
NUMBER. TO LOOP ON A PARTICULAR TEST TYPE THE TEST NUMBER IN
RESPONSE TO THIS MESSAGE AND SET SWITCH 14 ON THE CONSOLE.

NV
W —=O

d e
d
D
b
el
—

"BASE ADDRESS:"'
THIS IS A REQUEST FOR THE BASE ADDRESS OF

THE DX

IN THE

UNIBUS ADDRESS SPACE. IT IS ALSO THE ADDRESS OF THE DXDS. ALL
OTHER DX CONTROL AND STATUS REGISTER ADDRESSES ARE GENERATED
FROM THIS ENTRY.

"VECTOR ADDRESS:"'
THIS IS A REQUEST FOR THE DX11-B INTERRUPT VECTOR
ADDRESS.

—

159
160
161
162
163

30A(1052)

24-MAR-80

09:45

1
PAGE
5

SEQ 0004

"DX PRIORITY LEVEL"
THIS IS A REQUEST FOR THE DX'S INTERRUPT PRIORITY LEVEL.

164

165

IS NOT USED BY THIS PARTICULAR PROGRAM.

"'SET SWITCHES:''
THIS IS A REMINDER TO SET THE CONSOLE SWITCHES BEFORE

STARTING THE PROGRAM. AFTER SETTING SWITCHES, RESPOND WITH A

<CR>.

PR BRLRRREN
28 BEIRRRAT2B I

CONSOLE

SWITCHES HAVE

THE FOLLOWING MEANING:

SW<15>
SW<14>
SW<13>

HALT ON ERROR
LOOP ON ERROR OR TEST
INHIBIT ERROR PRINTOUT

SW<11>
SW<10>

INHIBIT ITERATIONS
INHIBIT MEMORY MGT USE

SwW<12>

177

PRINT ONLY SHORT ERROR REPORT

TESTING WILL COMMENCE AS SOON AS A <CR> IS GIVEN

IN RESPONSE TO THE ''SET SWITCHES:'' MESSAGE.

d e

THIS PROGRAM AUTO SIZES THE MEMORY. THE CONTROL UNiT
ADDRESS AND DEVICES PER CONTROL UNIT ARE ALSO AUTO SIZED.
THIS PARTICULAR PROGRAM DOES NOT NEED THE ‘LEGAL COMMANDS''
FACILITY USED BY OTHER DX DIAGNOSTICS.

D e

SPECIAL ENVIRONMENTS

2.3

PROGRAM OPTIONS

THIS PROGRAM WILL RUN IN UNATTENDED MODE UNDER ACT.

SEE SECTION 2.1 FOR PARAMETER SELECTION AND OPTIONS.
NOTE THAT ALL CONSOLE SWITCH CHANGES ARE EFFECTIVE IMMEDIATELY

—

SN =O

—y
e
T

S LSTNT,NT,N]

CZDXJBO DX11-B ADDRESSING TEST MACY11
(ZDxJB.P11
24=-MAR-80 09:31

EXCEPT SW<10> "'INHIBIT MEMORY MANAGEMENT USES''.

IN ORDER TO

CHANGE THE MEANING OF SW<10> SET THE SWITCH THEN RESTART THE

PROGRAM VIA CONTROL C OR START AT ADDRESS 200.

2.4

EXECUTION TIMES
SINGLE PASS EXECUTION TIME

IS VARIABLE DEPENDING ON

MEMORY SIZE. A PDP-11/45 WITH 65K WORDS OF MEMORY REQUIRES
50 SECONDS. EACH ROUTINE HAS A SINGLE ITERATION REGARDLESS
gFVCEnDE END PASS IS SIGNALED AFTER ALL TESTS HAVE BEEN RUN

c
|

DX11-B ADDRESSING TEST MACY11
ZDXJB.P1N
24-MAR-80 09:31

30A(1052)

3.0

24-MAR-80

09:45

PAGE 6

SEQ 0005

ERROR INFORMATION
THE GENERAL ERROR REPORT FORMAT

ERROR PC:

IS AS FOLLOWS:

XXXXXX ERROR NO.

YYYYY

THIS GIVES THE PROGRAM COUNTER (XXXXXX) WHERE THE ERROR
WAS DETECTED AND A UNIQUE ERROR NUMBER OR IDENTIFIER (YYYYYY)

THIS LINE GIVES A UNIQUE ERROR MESSAGE FOR EACH ERROR
TYPE EXPLAINING THE SUSPECTED CAUSE OF THE FAILURE. THIS IS
THE LAST LINE OF THE MESSAGE IF SWITCH 12 IS ON.

TEST NO.

XXXXXX

THIS IDENTIFIES THE TEST NUMBER
FAILURE WAS DETECTED.

VIRT ADDR OF BUFFER BASE:

(XXXXXX = 1-4) WHERE

THE

XXXXXX

THIS GIVES THE VIRTUAL ADDRESS OF

THE LOWEST LOCATION

IN THE BUFFER WHICH THE DX WAS ACCESSING AT THE TIME OF ERROR.

PHY ADDR OF

BUFFER:

THIS GIVES

THE

XXXXXX

PHYSICAL ADDRESS OF

THE BUFFER BASE.

OUTPUT IF MEMORY MANAGEMENT IS IN USE

EA BITS IN OCT:

ONLY

XXXXXX

THE LOW TO BITS OF

XXXXXX ARE

MEMORY MANAGEMENT

IN USE.

THE EXTENDED ADDRESS BITS

USED IN ACCESSING THE FAILING MEMORY LOCATION. ONLY OQUTPUT

~~
|

¢z
CZDXJBO

DX11-8 ADDRESSING TEST MACY11 30A(1052)
CZDXJB.P11
24=-MAR-80 09:31

271

24=MAR-80

09:45

1
PAGE 7

VIRT ADDR OF ACCESS ERROR:
THIS MESSAGE

SEQ 0006
XXXXXX

IS ONLY OUTPUT FOR TEST 2.

EXPECTED WORD LOCATION OF

LINE 7-8 ALTERNATE

ACTUAL: XXXXX EXPECTED:

IT GIVES THE

THE FAILING ACCESS.

XXXXXX

IN SOME TESTS, THIS GIVES THE ACTUAL AND EXPECTED BYTE
OF DATA. THIS WILL GIVE INSIGHT INTO FAILING ADDRESSES AS THERE
giltuggRRESPMDENCE BETWEEN THIS DATA AND THE LOCATION OF THE
NOTE:

AT THE END OF THE FIRST PASS EXECUTION THE FOLLOWING
MESSAGE IS PRINTED:

1ST _IBM DEV RCGNZD. OCTAL: XXXXXX
SIZE OF 1ST DEV GROUP: YYYYYY
THIS

IS NOT AN ERROR MESSAGE BUT

IS AN INDICATION OF

HOW THE JUMPERS ARE SET UP ON MODULE A20. THIS INFORMATION IS PROVIDED ONLY AS A CONVENIENCE FOR THE
OPERATOR. SEE MAINTENANCE MANUAL EK-DX11B-MM-002
PARA. 2.4.2 FOR MORE INFORMATION.
4.0

PROGRAM ORGANIZATION

am
|

|
| CZDXJBO

' CZDXJBO

DX11-B ADDRESSING TEST MACY11 30A(1052)
| CZDXJB.P11
24-MAR-80 09:31
|
L
|
|

298
299
300

4.1

24-MAR-80

09:45

PAGE 8

SEQ 0007

BLOCK DIAGRAM

0.0
|
!

TEST
CONTROL

'
i

]

i
i1

2.0

' GET

PARAMETERS

' INTERRUPT !

HANDLERS

:
:

1.2

1.3

' SIZE

PARAMETERS!

1.1.1

' INPUT
i

[

MEMORY

PARAMETERS

1.3.1

' INPUT !

' FROM
Y0R .

!
F

' CHECK
|

5
!

[

! WRITE~ !

0
RS
i SE iy

i
i

"""""

i
1

* MOST MODULES CALL THIS MODULE

i
3.0.1
'

TEST

!
!

3.0.2
1

'
!

'
3.0.3 1

TEST 2

]

3.1
'

mmmieetel

TEST 3

3.2
'

INITIALIZATION!

' e

BASE ADDRESS

GENERATOR

3.3
'

'
!

TEST 4

———e

]

TEST

3.0.4

i
i

ERROR

REPORTING

TMM~

30A(1052)

4.2

6.2.1

24-MAR-80

09:45

TEST DESCRIPTIONS

1ST 1

PAGE 9

—

CZDXJBO DX11-B ADDRESSING TEST MACY11
(ZDXxJB.P11
24=-MAR-80 09:31

SEQ 0008

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXxJB.P11
24-MAR-80 09:31

304(1052)

24-MAR-80

09:45

1
PAGE 10

SEQ 0009

MODULE 3.0.1 FAST NPR DATA TEST

THIS IS A FUNCTIONAL TEST TO CHECK THE ABILITY OF THE DX TO DO NPR'S
OF DATA INTO MEMORY WITH LARGE BYTE COUNTS. THE DXBA IS CHECKED
FOR ITS ABILITY TO COUNT AND ALL CARRIES IN THE COUNTER ARE
EXERCISED. THE DATA TRANSFERS ACCESS ALL AVAILABLE MEMORY EXCEPT
:HESIE\DERE PROGRAM IS LOCATED, AND THE AREA WHICH MAY BE OCCUPIED BY

4.2.2 TST 2

MODULE 3.0.2 NPR DATA ADDR UNIQUENESS TEST
THIS MODULE TESTS THE DX11°'S ABILITY TO UNIQUELY ADDRESS EACH
WORD OF MEMORY. THIS TEST IS ACCOMPLISHED BY WRITING A BACKGROUND
IN A BLOCK OF MEMORY. A WORD IS THEN TRANSFERRED FROM THE DX
TO THE MEMORY BLOCK. THE CPU CHECKS THAT THE WORD ARRIVES AT
ITS EXPECTED DESTINATION. IF YES THE WORD IS RESTORED TO MATCH
THE BACKGROUND, AND THE NEXT WORD IS TESTED. THIS IS REPEATED
FOR EACH WORD IN THE BLOCK AND FOR EACH BLOCK IN MEMORY.

NOTE:

THIS TEST MAY NOT DETECT ADDRESSING PROBLEMS
WHICH ARE COMMON TO THE CPU AND DX11. I.E. UNIBUS ADDRESSING

PROBLEMS.

4.2.3TST 3

MODULE 3.0.3 SPW ADDRESSING TEST
THIS MODULE

TESTS THE ABILITY OF

THE DX TO ACCESS THE

STATUS

POINTER WORD (SPW) TABLE IN ALL POSSIBLE LOCATIONS IN MEMORY.
A BASE ADDRESS FOR THE SPW IS GENERATED.
THIS SPW TABLE IS FILLED WITH A PATTERN OF OOODEV

WHERE DEV IS EQUAL TO THE DISPLACEMENT OF
SPW BASE: I.E.

SPW BASE"
SPW BASE +1

THE WORD FROM THE

"=000000
=000001

SPW BASE +255=000377
GIVING
STATUS
AN 1SS
ADRECC

A TOTAL OF 256 WORDS FOR THE SPW TABLE WITH IMMEDIATE
EQUAL TO THE DEVICE NUMBER.
SEQUENCE IS INITIATED WITH A DEVICE # OF 0. IF
AND ADRECD DON'T COE ON FOR THIS DEV, NO TESTING IS DONE,

THE DEV # IS INCREMENTED, AND ISS IS DONE AGAIN.

IF ADRECC AND ADRECD COME ON IT MEANS THE DX JUMPERS ARE CUT TO
RESPOND TO THIS DEV NUMBER. THE 1SS SEQUENCE IS THEN CONTINUED
UNITL THE STATUS IS IN THE DXOS REG. THIS STATUS IS THEN
CHECKED AND SHOULD BE EQUAL TO THE DEV # IF THE SPW WAS

ACCESSED CORRECTLY.
THIS PROCEDURE

IS REPEATED FOR ALL 256 POSSIBLE DEVICES AT

ALL POSSIBLE LOCATIONS FOR THE SPW.

| CZDXJBO DX11-B ADDRESSING TEST MACY11
(ZDxJB.P11
24-MAR-80 09:31
416

30A(1052)

24-MAR-80

09:45

PAGE 11
SEQ 0010

THE FIRST PECOGNIZED DEV NO. AND COUNT OF

THE FIRST

GROUP OF RECOGNIZED DEVICES IS SAVED AND PRINTED AT END

PASS TIM:.

IF NO DEV IS RECOGNIZED AND ERROR MESSAGE

IS OUTPUT AT THE END OF THE TEST.

4.2.6 TST &

MODULE 3.0.4 DEVICE STATUS TABLE (DST) ACCESS TEST
THIS TEST CHECKS THE ABILITY TO ACCESS ALL BYTES OF THE
DST_IN ALL AREAS OF MEMORY. THE OBJECTIVE IS TO CHECK LOADING
OF THE DXBA FROM THE SPW DST BASE, AND
COMMAND (CUCR)

A VALID IBM DEVICE FROM TST3 IS CHECKED. THEN A BASE ADDR
IS _GENERATED FOR THE DST. EACH BYTE OF THE DST IS THEN LOADED

WITH ITS OFFSET FROM THE DST BASE.

A SPW ENTRY FOR THE VALID IBM DEVICE IS GENERATED WITH APPROPRIATE DST BASE AND ZERO IMMEDIATE STATUS TO ASSURE A DST
ACCESS. AN ISS SEQUENCE IS DONE WITH THE VALID DEV AND

EVERY POSSIBLE IBM COMMAND THEREBY ACCESSING EVERY LOCATION
IN THE DST. AFTER THE ISS, THE STATUS WILL EQUAL THE COMMMAND

gR AND ERROR IS FLAGGED.

30A(1052)

[y
442

443
444

.TITLE

445

24-MAR-80

«NLIST
LIST
.ENABL

(€ZDXJBO

09:45

PAGE 12

CND.MC,TOC
ME
ABS,AMA

DXi1-B ADDRESSING TEST

;*COPYRIGHT (C) =1977-

;*DIGITAL EQUIPMENT _CORP.
'MAYMRD MASS. 01754
*PROGRAH BY R. MISNER
'THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
'PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.

000001
160000

STN—1

$SWR=160000
.SBTTL

sHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT

BASIC DEFINI TIONS

g;ilg.l(TIAlfisgDRESS OF

.EQUIV EMT ,ERROR
.EQUIV

]OT,SCOPE

THE STACK POINTER xxx 1700 w=«

s;BASIC DEFINITION OF ERROR CALL
s;BASIC DEFINITION OF SCOPE CALL

s *MISCELLANEOUS DEF INITIONS

HT=

;;CODE FOR HORIZONTAL TAB

CRLF=

200

;:CODE FOR CARRIAGE RETURN=LINE FEED

LF=
CR=

177776
177774
177772
177570
177570

12
15

PS=
.EQUIV

177776
PS,PSW

PIRQ=

177772

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

; ;PROCESSOR STATUS WORD

STKLMT= 177774

;sSTACK LIMIT REGISTER

DSWR=
DDISP=

2 sHARDWARE SWITCH REGISTER
s sHARDWARE DISPLAY REGISTER

177570
177570

; ;PROGRAM INTERRUPT REQUEST REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

RO=

sGENERAL REGISTER

R1=

..GENERAL REGISTER

R4=

R2=
R3=
RS=

Ré6=

R7=
SP=
PC=

X2
X3

X7
X6
X7

; sGENERAL REGISTER
;
sGENERAL REGISTER
;GENERAL REGISTER

; ;GENERAL REGISTER

s sGENERAL REGISTER

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

s*PRIORITY LEVEL DEFINITIONS

PRO=

PR1=
PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

40
100
140
200
240
300
340

;;PRIORITY LEVEL O

::PRIORITY LEVEL 1
;:PRIORITY LEVEL §
;:PRIORITY LEVEL
;:PRIORITY LEVEL 4
::PRIORITY LEVEL S
;:PRIORITY LEVEL 6
J:PRIORITY LEVEL 7

SEQ 0011

(aTa)

CZDXJBO DX11-8 ADDRESSINg :IjST MACY11
(ZDxJB.P11
24~MAR-80

497

498
499
500
501

100000
040000
020000

503
504

004000
002000

502

sSwi2=

5
507
508
509
510

001000
000400
000200
000100
000040
000020

sSwo9=
Swo8=
Swo7=
sSwoée=
SWO5=
SWo4=

1000
400
200
100
40
20

512
513
514

000004
000002
000001

Swo2=
Swo1=
Swoo=

4
2
1

.EQUIV

SW04,SWé4

515
516
517
518
519

000010

520

521
522
523
‘S)'slso

526
527
528
529
530
531
532
533

534
535

537
538
539

540
541
542
543
544
545

546

547
548
549
550
551
552

SW1l=
sSW10=

Swo3=

.EQUIV
EQUIV
.EQUIV
EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
-.EQUIV

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

M1
PAGE 13

*''SWITCH REGISTER'' SWITCH DEFINITIONS
SU15=
100000
SW14=
40000
Swi3=
20000

010000

505

09:45

10000

4000
2000

SW09,Sw9
SW08,Sw8
SWO7,Sw7
SW06,SWé
SWOS5,SW5
SW03,Sw3
SW02,Sw2
SW01,SwW1
SW00.SW0

;*DATA BIT DEFINITIONS (BITOO TO BIT15)
BIT15= 100000
BIT14= 40000
BIT13= 20000
3IT12= 10000
BIT11= 4000
BIT10= 2000
B8IT09= 1000
BIT08= 400
BITO7= 200
BITO6= 100
BITO5= 40
BITO4= 20
BIT03= 10
BITO2= 4
BITO1= 2
BITO0= 1
.EQUIV BIT09.BIT9
.EQUIV BIT08.BIT8

.EQUIV

BITO07.BIT7

.EQUIV

BIT06.BIT6

.EQUIV
.EQulv

BIT02,BIT?
BITO1.BIT1
BIT00,BITO

.EQUIV
.EQUIV
.EQUIV
.EQUIV

BIT05,BITS
BIT04.BIT4
BITO3.BIT3

SEQ 0012

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80
CZDXJB P11
24-MAR-80 09:31
BASIC DEFINITIONS

553

09:45

1
PAGE 14

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

T BIT
::TRACE TRAP
; :BREAKPOINT TRAP (BPT)

PWRVEC= 24

: ;POWER FAIL

BPTVEC= 14
IOTVEC= 20

EMTVEC= 30
TRAPVE (=34

s INPUT/OUTPUT TRAP (IOT) #«SCOPE*+

:;EMULATOR TRAP (EMT) #*ERROR+**
::"'TRAP'' TRAP

TKVEC=
TPVEC=

60
64

.SBTTL

MEMORY MANAGEMENT DEF INITIONS

PIRQVE(C=240

::TTY KEYBOARD VECTOR
..TTY PRINTER VECTOR

PROGRAM INTERRUPT REQUEST VECTOR

;*KT11 VECTOR ADDRESS
000259

MMVEC=

250

;*KT11 STATUS REGISTER ADDRESSES
177572

177574
177576

172516

SRO=
SR1=
SR2=

SR3=

177572
177574
177576

172516

WWWW § 8

INININININININDY
N

—_— 2

RS N

s*KERNEL '‘'I'* PAGE DESCRIPTOR REGISTERS
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS5=
KIPDR6=
KIPDR7=

172300
172302
172304
172306
172310
172312
172314
172316

s*KERNEL '‘I'' PAGE ADDRESS REGISTERS
KIPARO= 172340
KIPAR1= 172342
KIPARZ= 172344

KIPAR3= 172346

KIPAR4=
KIPARS=
KIPARG=
KIPAR7=

172350
1
172354
1

DONE=200

SOSIEN=4
SELO=20C20
HLDO=40000
CMDO=2000

SRV0=1000
ADRO=4000

SEQ 0013

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80
CZDXxJB.P11
24-MAR-80 09:31
BASIC DEFINITIONS

CZDXJBO DX11-8 ADDRESSINg T gST MACY11 30A(1052)
24-MAR-80
CZDXJB.P11
24=MAR=-80 0 :3
TRAP CATCHER

809

09:45

PAGE 15

.SBTTL TRAP CATCHER

611
612

000000

=0
:*ALL UNUSED LOCATIONS FPOM 4 = 776 CONTAIN A '‘.+2.HALT""

614

'LOCATION10 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000000

DISPREG:

613

616

617

618
619

620

000174

000176

000000

000200

000137

622

624

629
630

001164

.SBTTL

.WORD

;:SOF TWARE DISPLAY REGISTER

*SOF TWARE SWITCH REGISTER

STARTING ADDRESS(ES)
JMP
@HSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM

ACT11 HOOKS

.‘.'.’t"..'.'*'fi'..""'."""..QQ.'.'...fi."..fi."..'.fi'.'..'Q.'.

623

625
626
627
628

*«SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

SWREG:

000204

000046
000052

000046
001566
000052
040000

000204
001000

*HOOKS REQUIRED BY ACT11

$SVPC=.

246
$ENDAD
.=52
WORD

.=$SVP(
.=1000

:SAVE PC

_
::1)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP
40000

SEQ 0014

;s 2)SET LOC.52 T0 40000

;: RESTORE
P

p—

CZDXJBO DX11-8B ADDRESSING TEST MACY11
(ZDxJB.P11
24~MAR-80 09:31

631
632
633
634
635
636
637
638
639

640
641
642
643
644
645
646
647
648

LSBTTL

001100
001100
001102
001103
001104
001106
001110

001112

001100
000000
000
000
000000
C00000
000000

000000

652
653

001126
001130

000000
000000

655

001134

000

661
662
663
664
665
666
667

668

669

g;?

PAGE 16

SEQ 0015

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;*USED IN THE PROGRAM.

649

656
657
658
659
660

COMMON TAGS

'THIS TABLE

000
001
000000
000009

654

09:45

tttt"'"t'ttt"tfi"'t.t"'tt...tt.'ttttttt't"t.'."tttttttt..

001114
001115
001116
001120

650
651

30A(1052)
264-MAR-80
COMMON TAGS

001122
001124

001132

001135
001136
001140
001142
001144
001146
001150
001152
001154
001155
001156
001157

001160

001161

001162

000000
000000

000000
000

177570
177570
177560
177562
177564
177566
000
002
012
000
077
015
000012

$CMTAG:
$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$BDDAT:
$AUTOB:
$INTAG:

SWR:

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

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

.WORD
.WORD

0
0

.BYTE
.BYTE
.WORD

O
0
O

.WORD

DISPLAY: .WORD
$TKS:
177560

$TKB:

177562

$TPB:

177566

$TPS:

$NULL:
$FILLS:
$FILLC:
$TPFLG:
$QUES:
$CRLF:
$LF:
AR

DSWR

DDISP

177564

.BYTE
.BYTE
.BYTE
.BYTE
L.ASCII
.ASCII
LASCIZ
AR A

0
2
12
0
7%/
<15
12>

i; START OF

COMMON TAGS

PASS COUNT
THE TEST NUMBER

ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS

TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF 'GOOD' DATA
ADDRESS OF °'BAD' DATA

'GOOD* DATA
'BAD' DATA
; ;RESERVED==NOT TO BE USED

s ;AUTOMATIC MODE INDICATOR
; INTERRUPT MODE INDICATOR

;;ADDRESS OF SWITCH REGISTER
:;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS
;:TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS

;:TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS
; sCONTAINS # OF FILLER CHARACTERS REQUIRED

;o INSERT FILL CHARS. AFTER A 'LINE FEED''

;2 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;2QUESTION MARK
: ; CARRIAGE RETURN
;sLINE FEED

AR A AR AR AR AR AR R R AR AR A AR AR AR A AR RN

AR AR RN RN

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDxJB.P11
24-MAR-80 09: 31
672
673
674
675
676
677
678

30A(1052)
24-MAR-80
ERROR POINTER TABLE
.SBTTL

09:45

PAGE 17

SEQ 0016

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

J*NOTE1:

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

:*NOTEZ2:
e

i
s¥
o
$ERRTR:

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

DH
DT
DF

;sPOINTS TO THE ERROR MESSAGE

;;POINTS TO THE DATA HEADER
;sPOINTS TO THE DATA
;;POINTS TO THE DATA FORMAT

CZDXJBO

DX11-B ADDRESSING TEST MACY11

CZDXxJB.P1

24-MAR-80 09:31

687
688
689
690

691
692
693
694
695

001164

START:
.SBTTL

012706

001100

699
700

001172
001176

(022706
001374

001140

702
703
705

706

707
708
709
710
711
712
713
714
715
716
717
718

719

720
;55

001170

001200

005026

012706

001204
001212

.
012737
012737

001226

012737

001220

001234

012737

013746

001240
001246
001254
001262
001270

012737
012737
012737
022777
001012

001272
001274
001300

000403
012716
000002
012737

001302

001310
001316

012737
012637

723

001322

000005

725

001330

005037

7246

726

TEST CONTROL

PAGE 18

.SBTTL MODULE 0.0
TEST CONTROL
MODULE 0.0
TEST CONTROL

001324

001334

000026

000004

001274
177570
177570
177777

000176

000174
000004
011654

004737

001600

000004
001140
001142
177650

001140

001142

731
732
733
734
735
736
737
738

001364
001370
001372
001376
001400
001402
001404
001406

013702
006302
000172
000000
006134
006656
007124
007636

011666

7640
741
742

001410
001410
001412

011700
011676

001376

MOV

s sCLEAR MEMORY LOCATION

#STACK,SP

;;SETUP THE STACK POINTER

WDN a#PWRVEC ;.POWER FAILURE VECTOR

#340, NPWRVE C+2 s:LEVEL 7

;:SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "~1'', SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
@#ERRVEC,-(SP)
;,SAVE ERROR VECTOR
MOV
MOV

#6468 ,a¥ERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
66%

BR
MOV
RTI
MOV

65%
#658, (SP)

;:SET UP ERROR VECTOR
;sSETUP FOR A HARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REGISTER
2:TRY TO REFERENCE HARDWARE SWR
;:BRANCH IF NO TIMEOUT TRAP OCCURRED
;;AND
THE HARDWARE SWR IS NOT = -1
;2BRANCH IF NO TIMEOUT
23SET UP FOR TRAP RETURN

#SWREG, SWR

;sPOINT TO SOF TWARE SWR

FIRSTP

;CLEAR 1ST PASS Sw

MOV
(MP
BNE

65%:

66%:

MOV
MOV

RESET
CLR

011674
011666

(R6) +

#SWR,R6 ; ;DONE?
.~6
;:LOOP BACK IF NO

;;INITIALIZE A FEW VECTORS
MOV
#STRAP ,a#TRAPVEC ;.TRAP VECTOR FOR TRAP CALLS
MOV
#340, MTRAPVEC*Z LEVEL 7

64%:

011754

011672
011634

005046
012746

000024

001302

005037

005037
005037

MOV

000340

013737
013737

001354
001360

CLR

000034
000036

005752

INITIALIZE THE COMMON TAGS

CMP
BNE

005654
000340

001340
001346

739

09:45

;sCLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#$CMTAG,R6
;sFIRST LOCATION TO BE CLEARED

001100

727
728

729
730

24=MAR-80

¢
3

001164

701

MODULE 0.0
:
3
:

696
697
698

30A(1052)

CLR

DEVMSS

MOV
MOV

COUNT ,CNT
ATESTN,CTESTN

MOV
ASL

CTESTN,R2
R2
JMULTIPLY BY TWO FOR WORD BNDRY
aTSTAB(R2)
;GO0 TO TEST THRU DISPATCH TABLE
;TEST O DOESN T EXIST

RESTART:JSR
GO:
TST:

TSTAB:

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

CLR
CLR

JMP
HALT
TST1
TST2
TST3
TST4

PC,GETPRM
LOCK
fRR

sSET UP TO PRINT DEVICE ADDR CONFIG FIRST TIME ONLY

sTALK TO THE OPERATOR

JSET UP ITERATION COUNT
;GET FIRST TEST NO.

;CLEAR LOOP LOCK SW
JRESET ERROR INDICATOR

;WHEN TESY IS DONE IT ALWAYS RETURNS HERE AFTER ONE ITERATION

ENDTST:

001420

CLR
MOV

-(SP)
#64%,-(SP)

::PUT NEW PS ON STACK
JsPUT NEW PC ON
STACK

SEQ 0017

CZDXJBO DX11-8 ADDRESSING TEST MACY11
CZDXxJB.P11
24~MAR-80 09:31

001416
001420

000002

032777
001356
005237
023737
003750
005337
001336
005737

30A(1052)
24-MAR-80 09:45
INITIALIZE THE COMMON TAGS

64%:
040000

011666
011666

2
PAGE 19

#40000,aSwR
TST

CTESTN
CTESTN,HTESTN

011616

TST

011674

CNT

EOP:

SEQ 0018

;.POP NEW PC AND PS

RTI

177512

011754

GO
DEVMSS

;1S LOOP SWITCH ON

:BR IF

YES

s INCREMENT TO NEXT TEST

:HAVE ALL TEST BEEN RUN

:BR IF NO, DISPATCH TO NEXT ONE
:DECREMENT ITERATION COUNT
:START OVER IF NOT EXPIRED

HAV?FU$E§RINTED DEVICE CONFIG YET?

011752

;WERE DEVICES RECOGNIZED?

005134

:PRINT DEV NO.

:BR IF NO, NOTHING TO SAY
ASCII

005134

sPRINT DEV NO. OCTAL

005134

sPRINT DEVICE COUNT ASCII

005134

;PRINT DEVICE COUNT OCT

000001
011652
177572

005134

011754

10%:
15%:

000042
$ENDAD: JSR

l1 .DEVMSS

15$
a#SRO

RS ,PRINT
8ELL

JSET DEV CONFIG PRINTED SWITCH
;IS KT IN USE?
:BR IF NO

sTURN OFF MEM MGT
;PRINT CONTROL PARAMETER

w62 RO
END1

;ARE WE UNDER ACT
:BR IF NO, START OVER

PC.aR0

2GO TO MONITOR
<ROOM FOR

END1:

RESTART

ACTN

; _ STUFF
:START OVER

| CZDXJBO

DX11-B ADDRESSING TEST MACY11 30A(1052)

CZDXJB.P11

24-MAR-80 09:45
MODULE
1 .0 GET PARAMETERS

24=-MAR-80 09:31

785

.SBTTL
MODULE

786
787

2
PAGE 20

SEQ 0019

MODULE 1.0 GET PARAMETERS
1.0
GET PARAMETERS

CALLED AS FOLLOWS
JSR

PC.GETPRM

THIS MODULE ASSURES THAT ALL PARAMETERS ARE AQUIRED FOR

OPERATION OF THE DIAGNOSTIC.

TO DO THIS IT ESTABLISHES

A DIALOG WITH THE OPERATOR THROUGH THE INPUT PARAM MODULE.
MEMORY IS SIZED BY THE °'SIZE' MODULE, AND ALL PARMS ARE

CHECKED FOR VALIDITY BY THE CHECKP MODULE.

“C AT ANY TIME CLEARS THE 1ST PASS SWITCH AND EVERYTHING
STARTS OVER.
CR _IN RESPONSE TO ANY QUESTION CAUSES THE DEFAULT
VALUE TO BE SUBSTITUTED.
THIS MODULE NEVER RETURNS TO CALLER UNLESS ALL PARAMETERS
HAVE BEEN ESTABLISHED WITH GOCD VALUES.

011654

002270

il wb
-d

b ad

220‘0‘

000042

001566

011610

011612

elolele)]

011604
011606

W
OO

176224

E TPRM: TST
BEQ
JMP
TST
5%:
BEQ
MOV
MOV
MOV
MOV
108:

011670

002272

15%:

000104

ENDPRM
@42

;DON'T GET PARM IF WE ALREADY HAVE THEM
sARE WE RUNNING IN AUTO MODE

DTESTN,ATESTN
DUBA ,AUBA
DVECT ,AVECT
DPRIOR,APRIOR

;SETUP DEFAULTS
sSETUP DEFAULTS
sSETUP DEFAULTS
SETLP DEFAULTS

108

908
#SENDAD , 342
90$
PARMY
15

—t

gggf

—23

cocoo

PR ONON

20%:

#°'D.RO

208
DTESTN.ATESTN
DUBA , AUBA
DVECT ,AVECT

MOV
BR
(MP8
BNE

DPRIOR,APRIOR
90
#'P.RO
308

BEQ
BR
JSR

25%
90%
RS ,PRINT

TST

25%:

RS, INPRM

:BR IF YES

;BRANCH IF MACHINE IS ATTENDED

SEE ABOUT MEMORY SIZING
uwen ACT11?
*NO OPERATOR INTERACTION
*ARE PARAMETERS GOOD
:BRANCH IF YES BECAUSE THIS

*ALSO MEANS HEADER ISN'T NEEDED

*CALL THE PRINTER
*ADDRESS OF HEADER ASCIZ
:CONTROL WORD, CRLF + DON'T CONVERT
*GET D,P,S, OR N FROM OPER.

LWORD
1
STHIS TELLS INPRM TO GET D.P.S.N
;INPRM WILL RETURN IN RO’ THE CHAR TYPED

BNE
MOV
MOV
MOV

011670
005134

.WORD

JSR

tMP8

—

000120

;1S THIS THE FIRST PASS

JSR
RS,PRINT
HEADER

005134

011612

BR
MP
BEQ
ST
BNE

FIRSTP

.WORD

:WAS DEFAULT PARMS REQUESTED?

:BR IF NO
:DEFAULT SETUP
*DEFAULT SETUP
*DEFAULT SETUP

;DEFAULT SETUP
;GO SEE ABOUT MEMORY SIZING

:DOES OPERATOR WANT PREVIOUS

:BR_IF NO

PARMV

:ARE PARMS SET UP

INVM

sNEVER SET UP PROPERLY

;BR_IF PARAMETERS NOT VALID
JUSE PREVIOUS PARMS, NO ACTION NEEDED
:TROUBLE, P TYPED AND PARMS

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDxJB.P1
24-MAR-80 09:31

001772
001774
001776
002002
002004
002010
002014

000000
000726
122700

001062
005037
004537
000002

010037
004537
000002
005700
001364
004537
000003

30A(1052)
24-MAR-80 (09:45
MODULE 1.0 GET PARAMETERS

000123

308%:

011670
002272

35%:

011634
004766

. WORD
BR
(MPB
BNE

CLR

JSR
MOV

JSR

0
108

36%:

011636

002272

RO,ATESTN
55 .CHECKP

sIN OCTAL
*SAVE TEST NUMBER IN ACTIVE PARM TABLE
;CHECK IF TEST NO OK

358
§5 . INPRM

§5. CHECKP

37%:

011640
004766

SEQ 0020

SS.IN"RM

408

PARMV

RO,AUBA

004766

PAGE 21

sCONTROL WORD,CRLF + DONT CONVERT
;GO TO TRY AGAIN
;JARE PARMS TO BE SELECTED?
sBR IF NO
;CLEAR PARM VALID SW
sASK INPUT MODULE TO GET TEST NO:

002272

sTEST NUMBER WILL BE RETURNED IN RO

*PARAMETER u\ol(IATES VERIFY TEST #
*RO=0 IF CHECK OK

sSTAY HERE UNTIL OPERATOR GETS IT RIGHT
;sASK INPUT MODULE TO GET BASE ADDR
sPARAMETER INDICATING GET UBA BASE
JSAVE UB BASE ADDR IN ACTIVE TABLE
sCHECK FOR VALID ENTRY
sPARM TO INDICATE CHECK UBA
;sR0=0 IF CHECK OK
sSTAY HERE UNTIL HE GETS IT RIGHT

RO,AVECT
QS.CHECKP

sASK INPUT MODULE TO GET VECTOR ADDR
;PARM INDICATING VECTOR NEEDED
sSAVE VECTOR IN ACTIVE PARM TABLE
;sCHECK FOR VALID VECTOR
sPARM INDICATING CHECK VECIOR

;R0=0 IF VECTOR OK

002272

38%:

011642
004766

RO,APRIOR
I;S . CHECKP
RO

005134

38%
RS ,PRINT
(S)E TSW

002532

?S.IMSC

000116

408
:

002272

45%:

011634
004766

011670

005134

90%

#°'N.RO

108
SS.XPPRH

RO,ATESTN

gS.CHECKP
RO
45%

sSTAY HERE UNTIL HE GETS IT RIGHT
;GO GET DX PRIORITY

sSAVE PRIORITY
sCHECK PRIORITY ENTRY
;PARM INDICATING PRIORITY CHECK
sSTAY HERE UNTIL HE GETS IT RIGHT

sPRINT SET SWITCHES MESSAGE

sADDR OF MESSAGE

;DUMMY INPUT REQUEST TO WAIT FOR
;OPERATOR TO SET SWITCHES
;GO SEE ABOUT MEMORY SIZING

JWAS AN ‘'N'' INPUT

:BR IF NONE OF DPSN WERE INPUT
;CALL FOR TEST NUMBER TO BE INPUT

:PARM SAYS GET

TEST #.

:SAVE STARTING TEST #

JHAVE TEST # CHECKED FOR PROPER
s RANGE

;IS TEST # 0K?

PARMV

STAY HERE UNTIL HE GETS IT RIGHT
JWE HAVE STARTING TEST #, ARE OTHER PARMS 0k?

RS .PRINT

sPRINT

90
0
108

;BR IF 0K

JPOINTER TO "NEED MORE PARMS'' MSG
sCONTROL WORD, CRLF + DON'T CONVERT
;GO BACK AND DO IT ALL AGAIN

—_—

CZDXJBO

Dx11-8B ADDRESSING
;ESY MACY11 30A(1052)
24=MAR-80 09:45
CZDxJB.P1
MODULE
24~MAR-80 09:
1 .0 GET PARAMETERS
004737
012700
012701
013702
010221
062702
005300
001373
012737
012737
000207

603:

JSR
MOV
MOV
MOV
MOV
ADD

PC,SIZE

#15,R0

2
PAGE 22

; CALL MEMORY SIZING MODULE

:START OF LOOP TO SET UP DX ACCESS ADDRESSES
#DXDSA R
;GET ADDR OF START OF TABLE

AUBA,R2

R2, (R1)+

#2 R2
RO
95$

#1 ,PARMY
#1,FIRSTP

sGET DX REG BASE ADDRESS
sMOVE UBA TO TABLE
sSTEP TO NEXT UBA
;DECREMENT _COUNTER
sFILL THE 13 LOCATIONS OF THE TABLE
sSET PARAMETER VALID SWITCH
sSET NOT FIRST PASS SWITCH
;RETURN TO CALLER, END OF MODULE

SEQ 0021

30A(1052)
24-MAR-80 09:45
MODULE 1.0
GET PARAMETERS

909
3}?

.SBTTL

MODULE 1.1

2
PAGE 23

INPUT PARAMETERS

g}g

;

MODULE 1.1

g}g

;

CALLED AS FOLLOWS

916

JSR

919
920
921

:
3
:

WHERE X DEFINES WHAT PARAMETER TO GET AS
FOLLOWS:
X=1
D,P,S.ORN PARAMETER SELECTION

:
:

X=4
X=5

g}g

;

922
923

:
:

927
928

:
:

931
932
933

002272

012501

:
:
INPRM:

935

002274

120127

924
ggg

929
930
934

936
937

:
:

002300
002302

001016
004537

002312

004537

938
939

002306
002310

002316

942

002322

002330

&g
949

950
951
952
953

954

955

000001

002336

001014
004537

002354

004537

002350
002352
002360

012567
000000
000002

956 002362
957 002364
958 002366
959 002372

011100
001061
013700
000456

91
962

001014
004537

960
963
964

002374

002400
002402

002406
002410

120127

012612
000000

(MPB

R1.M1

.WORD
WORD

PROMPT
O

(R1).RO

000002

002342
002344

REQUIRED, OCTAL IF REQUIRED, <CR> FOR DEFAULT, ETC.
THIS MODULE DESTROYS R1,R0
MOV
(RS)+,R1
:GET THE PARAMETER FROM THE

MOVB

120127

000475

LWORD

(MP8

10§
RS,PRINT

*CALLING CODE.

:IS PARM 1 - GET D.P.S. ORN?

*BR IF NO.
*PRINT

:D.P,S.N?
*CONTROL WORD, CRLF + DON'T CONVERT

*READ THE INPUT

INASC RETURNS POINTER TO

RO,#CR

*1ST CHAR TO RO
*WAS IT DEFAULTLED?

'P,RO

*INSERT DEFAULT OF P=PREVIOUS PARMS.

SINPUT IN R1

BNE

90$

*ALL DONE

C(MPB

R1.42

;1S PARM 2 - GET TEST #

LWORD
WORD

TESTN
O

*ADDR OF STARTING TESTN MSG.
:CONTROL WORD, CRLF + DON'T CONVERT

MOVB

08:

DX VECTOR ADDR
DX PRIORITY

ARE CHECKED FOR EVERYTHING EXCEPT THAT THE NUMBERS ARE
IN THE CORRECT RANGE. CHECKING INCLUDES NUMERIC IF

RS, INASC

000120

STARTING TEST #
UBA BASE ADDR

THE REQUESTED PARAMETER IS RETURNED IN RO ALL CONVERTED
TO OCTAL AND DEFAULT SUBSTITUTED WHEN INDICATED.
INPUTS

JSR

113700

334

X=2
X=3

002532
000015

001100

005134

120027

002326

RS, INPRM

BNE
JSR

320 111100

93
94

012555

000001

LWORD

INPUT PARAMETERS

005134

BNE
JSR

002532

JSR

RS, INASC

011604

MOV
BNE
MOV
B8R

(R1) ,RO
908
DTESTN.RO
908

SGET INPUT #
*IF NON ZERO, WE'RE DONE
*SUBSTITUTE THE DEFAULT
* DONE

BNE
JSR

308
RS,PRINT

:BR IF NO
*PRINT

000003

005134

LWORD

208:

(MPB
.WORD
WORD

208
RS,PRINT

:NO, ALL DONE

R1.43

BASEA
O

*BR IF NO
*PRINT

:GET OCTAL INPUT

*PARM TO GET OCTAL INPUT

*WAS UBA REQUESTED

*ASK FOR BASE ADDR
*CONTROL WORD, CRLF + DON'T CONVERT

SEQ 0022

—

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXJB.P11
24-MAR-80 09:31

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDxJB.P11
24-MAR-80 09:31

965

004537

00000
011100

K 2
30A(1052)
24=MAR-80 09:45 PAGE 24
MODULE 1.1
INPUT PARAMETERS

002532

SS.INASC

011606

(R1) ,RO
90%
DUBA,RO
908

000004

:
308

005134

R1, 44
408
R5,PRINT
gECTA

002532

gS.INASC

011610

000005

40%:

005134
002532

(R1) ,RO
90$
DVECT,RO
90$
R1,45
80s
R5 ,PRINT
SRILV

SS.IMSC
(R1) ,RO

90%
DPRIOR,RO
90$

011612

éOSE

RS
MODULE 1.1.1

sGET THE OCTAL
s INPUT

:GET THE NUMBER INPUT
:BR IF NOT DEFAULTED

S&ST”UTE THE DEFAULT

:DOES CALLER WANT VECTOR?
:BR
IF NO

sPRINT
:ASK_FOR VECTOR ADDR

:CONTROL WORD, CRLF + DON'T CONVERT
;GET THE INPUT
s IN OCTAL
;GET THE NUMBER INPUT
;BR IF NOT DEFAULTED
:S&STUUTE THE DEFAULT
:D

sDOES CALLER WANT PRIORITY?
sBR IF INVALID CALL
;PRINT
sASK FOR PRIORITY LEVEL
sCONTROL WORD, CRLF + DON'T CONVERT
sREQUEST INPUT

s IN OCTAL
;GET THE INPUT
:BR IF OK,
NOT DEFAULTED
sSUBSTITUTE THE DEFAULT

JHALT ON_INVALID CALL TO THIS mMOD
;RETURN TO CALLER

INPUT FROM TTY

SEQ 0023

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80 09:45 PAGE 25
CZDxJB.P11
24-MAR-80 09:31
MODULE 1.1.1
INPUT FROM TTY

;

MODULE 1.1.1

;

CALLED AS FOLLOWS

1002
1003

;
:

JSR
LWORD

INPUT FROM TTY

RS, INASC
X

1005

1004

;

WHERE

1008

A POINTER TO THE INPUT MESSAGE IS RETURNED IN R1.

1009

109

1012

002532

004737

002620

1014

002540

120027

000001

1013
1015

002536
002544

001004

002550
002554

013637
000406

013304

120027

000002

1016

002546

1020

002556

1022

002564

1024

002572

1017
}8}3
1021

1023
1025

}85‘%

012500
104410

002562

001006

002566

012637

002576

000205

002600

104411

012701

i0$:

INPUT

;INITIALIZE THE TTY INPUT

CMPB

RO, 41

*IS IT A REQUEST FOR ASCII?

cMPB

RO 42

MOV

MOV
RTS

308:

108

a(SP)+,INBUF
208

BNE

208:

(R§)+,RO

MOV
BR

RDOCT

000000

FOR OCTAL

PC,STKINT

RDLIN

013304

FOR ASCII INPUT

JSR

MOV

BNE

013304

X=1

X=2

ROUTINE DESTROYS RO,R1

:INASC:

HALT

SEQ 0024

:GET THE PASSED PARAMETER

*BR IF NO.

“TRAP TO .SREAD MACRO

:GET THE INPUT DATA
+GO GET RESULT

;1S IT A REQUEST FOR OCTAL

308

*BR IF NO

(SP)+, INBUF

::POP STACK INTO INBUF

# INBUF ,R1
RS

THIS

*SET POINTER TO INPUT
*RETURN TO CALLER

*INVALID CALL TO MODULE

1028

103]

: : L3 2 a2 22 2333232232332 2 3232323232333 33333223222232222223222322222222222;

}8233

1032

1033
1034
1035

1036

}3%

.SBTTL

002602
002604
002606

002610

TTY INPUT ROUTINE

"ENABL LSB

000000
000000
000000

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD

000010

$TKQSRT:

002620

$TKQEND=.

.BLKB

O
0
0

;;NUMBER OF ITEMS IN QUEUE
*:INPUT POINTER
*:OUTPUT POINTER
$:TTY KEYBOARD QUEUE

1039

;*TK INITIALIZE ROUTINE

:«SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

1040

:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

1043

s«CALL:

1044
}8‘42
1047

e
i
002620

005037

oozoog

1049 002632
1050 002640
1051 002646

013737
012737
012737

002604
002670
000200

1048 oozeg 012737 002610

1os§
1053

002654
002660

005777
012777

176266
000100

002604

002606
000060
000062
176256

JSR
PC,STKINT
RE TURN

$TKINT: CLR

MOV

MOV
MOV
MOV
ST
MOV

STKCNT

::CLEAR COUNT OF ITEMS IN QUEUE

#STKQSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE

$TKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV QHTKVEC ::INITIALIZE me KEYBOARD VECTOR
#200,a#TKVEC+2
;:'BR'* LEVEL 4
asTk8
*CLEAR DONE FLAG
#100,38$7KS
“ZENABLE TTY KEYBOARD INTERRUPT

CZDXJBO DX11-8B ADDRESSING TEST MACY11 30A(1052)
264=MAR-80
CZDXxJB.P11
24-MAR-80 09:31
TTY INPUT ROUTINE

000207

RTS

)

)
)
) e
) e
e
e
D el

:sRETURN TO CALLER

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*IT IN THE QUEUE.
;*IF THE CHARACTER IS A ''CONTROL=C'' (*C) STKINT IS CALLED AND
;*UPON RETURN EXIT IS MADE TO THE ''CONTROL=-C'' RESTART ADDRESS (START)
117746

$TKSRV: MOVB

176252
177600
000003

004010
002620
001164
000007

1$:

000176

001140

000010

002602

2$:

004004

BIC
cTMP
BNE
TYPE
JSR
ST
JMP
P
BNE
cTMP
BEQ

3s:

176150

31s:

176142

asTKB, = (SP)

SCNTLC

#SWREG, SWR

5%
(SP) 423

TST8

176136
177600
000021

INC

000175

000040
177522
002604
002604

002620

002610

002604

A ¥

MOvB

5%:

RTI

[
’

..BRANCH IF NO
:sRING THE TTY BELL
::gLE?N CHARACTER OFF OF STACK

(SP)+

..IS IT A CONTROL=-S?

328

sBRANCH IF NO

asTkS
+
(SP)
asTKS

::DISABLE TTY KEYBOARD INTERRUPTS

#-C177,(SP)
(§:)‘21

:;CLEAN CHAR OFF STACK
;:WAIT FOR A CHAR
:;LOOP UNTIL ITS THERE
..GET THE CHARACTER
SMAKE IT 7-BIT ASCII
..IS IT A CONTROL-Q?

#100,387KS

..RE$ME TTY KEYBOARD INTERRUPTS

STKCNT
(SP) ,#140
4%
(SP) ,m175
4%
#40,(SP)

..CGNT THIS CHARACTER
;1S IT UPPER CASE?
: :BRANCH IF YES

318

32%:

:1S THE QUEUE FULL?

33
LSBELL

a$TKB, ~(SP)

176114

(“C)

;2INIT THE KEYBOARD
;;CLEAN UP STACK
;sCONTROL C RESTART
::1S IT A CONTROL G?
2 sBRANCH IF NO
2:1S SOFT-SWR SELECTED?
;:G0 TO SWR CHANGE

(SP)+
START
(gP) M7
4

cMP

s:TYPE A CONTROL=-C

PC,STKINT

#10,STKCNT

BNE
CLR
TST

;;PICKUP THE CHARACTER
JsSTRIP THE JUNK
2:1S IT A CONTROL C?
2 ;BRANCH IF NO

#-C177,(SP)
%P)M8

cMP
BNE

TYPE
TST

000023

002602
000140

'SEQ 0025

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT

000100

—

M2
PAGE 26

;*TK SERVICE ROUTINE

d -

002666

-l

)

D —d - ——d —d

3RIRSRER38 33333322233 RRERRER2ES53555SNISZEZRRRER &%

1054
1055
1056
1057
1058
1059

09:45

sBRANCH IF NO
;RETURN

..15 IT A SPECIAL CHAR?

(SPJ+,as$TKQIN

$TKQIN

s ;BRANCH IF YES
:IMAKE IT UPPER CASE

..ND PUT IT IN QUEUE

sUPDATE THE POINTER
g;KOIN#NSTKQEND ..GO NF THE END?
H_IF NO
#STKQSRT,$TKQIN ..RESET THE POINTER
;RETURN

AR AR AR AR AR AN AR AR AR NN N

RN AN AN AR AN AN AN

AN AR

AR AN

'SNWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL

A AR RSN RRRR 2 22252520 o

— p—

003106

022737

$CKSWR: CMP

123727

000001

001674
00572%
004737
005077
112737

S
R

3 FARZBEBIFNRUN
LB SHIGERERLS R R R

- wd - -

D md

) Dl - -

D d e

D il

D e
d
D

D i

—s

)
D

)

d e

D e
e

78:

000100
001164

JIEXIT IF NO
::IS A CHAR wnuc?
::1F NOT, EXIT
YES

SIMAKE IT 7-BIT ASCII
::1S IT A CONTROL=G?
s:IF ngrnpur IT IN THE TTY QUEUE
ittt

000001

;:ARE WE RUNNING IN AUTO-MODE?

*:BRANCH IF YES

JSR

PC,STKINT

*:FLUSH THE TTY INPUT QUEUE

MOVB

#1.SINTAG

(SP)+

asTks

::CLEAR CONTROL=G OFF STACK

*:DISABLE TTY KEYBOARD INTERRUPTS
::SET INTERRUPT MODE INDICATOR

TYPE

,SCNTLG

::ECHO THE CONTROL=G (*G)

MOV
TYPOC

SWREG, = (SP)

::SAVE SWREG FOR TYPEOUT
+:G0 TYPE=-OCTAL ASCII(ALL DIGITS)

CLR

<(SP)

*:CLEAR COUNTER

TYPE

CLR
TSTB
BPL

.SMSWR

,SMNEW

-(SP)
@$TKS
78

::TYPE CURRENT CONTENTS

: :PROMPT FOR NEW SWR

::THE NEW SWR
*:CHAR THERE?
::IF NOT TRY AGAIN

BIC

#-C177,(SP)

@a$TKB,-(SP)

::PICK UP CHAR

[, o
BNE

(SP) 43
9%

::1S 1T A CONTROL=C?
*BRANCH IF NOT

ADD

,SP

CMPB

8s:

SAUTOB, #1

TYPE

175652

::1S THE son-sm SELECTED

BEQ

MOVE

000003

198:

175714
177600

e
—

CLR

001135

175720

SEQ 0026

:*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
s*ROUTINE OR FROM THE SOF TWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
6;CG"IRO!(E;'(;BBEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.

$GTSWR:

e e

"l el

004010
000006
001135

15%
@$TKS
158
asma -(SP)
#AC177,(SP)
(SP) 47
2s

BIC
CMP
BNE
MEARAA

003150
003152
003154
003160
003164

PAGE 27

#SWREG, SWR

BNE
TSTB
BPL
MOVB

176016
177600
000007

8
-

D
D i e
i i i
) e
) D
)

001140

)

000176

09:45

s*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
-«CALL WHEN OPERATING IN TTY INTERRUPT
MODE.

176022

—y

d D D

) D i

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
26=MAR-80
CZDxJB.P11
24=MAR-80 09:31
Y INPUT ROUTINE

S:MAKE IT 7-8BIT ASCII

,SCNTLC

*:YES, ECHO CONTROL=C

SINTAG.#1

: REENABLE TTY KEYBOARD INTERRUPTS?

*:CLEAN UP STACK

(*C)

BNE
MOV
JMP

8s
#100, asnzs
STAR

: *BRANCH IF NO
“:ALLOW TTY KEYBOARD INTERRUPTS
::CONTROL=C RESTART

000025

9s:

0040 i5
000006

TMMP
BNE

(SP) ,#25
108

IS ITA couma-u’
*:BRANCH IF NO

208:

ADD

#6,SP

wmf PREVIOUS INPUT

000015

08:

TYPE

B8R

BNE
ST

,SCNTLU

:3YES,

ECHO coumon.-u (*u)

19§

SILET'S TRY IT AGAIN

(SP) ,.#15

i:18 n A <CR>?

4(SP)

SIYES, IS IT THE FIRST CHAR?

168

M IF NO

CZDXJBO DX11-B ADDRESSING TE ST MACY11
CZDXJB.P11
24-MAR-80 09:31
1166

003330

001403

003340

062706

003350
003356
003360

123727
001003
012777

1167

003332

1169

003344

1168

1170
1171
1172

1173
1176

1175

1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186

1187
1188
1189

1190

003366
003370

003374

003400
003402
003406
003410
003414
003420
003422
003424
003426
003430
003434

003440
003442
003446

016677
104401

000002
004737

021627

002420
021627
003015
042726
005766
001403
006316
006316
006315
005266
056616

000667
104401
000720

000002

000006

001161

175600

001135

000001

000100

175556

005356

000060

30A(1052)

09:45

TTY INPUT ROUTINE
BEQ

11$:

148:

000002
177776

178:

001160

188:

1193

#6,5P

*:CLEAR UP STACK

CMPB
BNE
MOV

imms ”
15$
#100,38$TKS

“RE-ENABLE TTY KBD INTERRUPTS?
*:BRANCH IF NOT
*:RE-ENABLE TTY KBD INTERRUPTS

CMP

BLT
P
8GT
BiC
ST
BEQ
ASL
ASL
ASL
INC
BIS

B8R
TYPE
BR

.DSABL

SEQ 0027

ADD

RTI
JSR

000060
000002

3
PAGE 28
;:BRANCH IF YES

TYPE

15$:
168:

118

MOV

000067

1191
1192

24-MAR-80

LSB

2(SP) ,aSwR
$CRLF

PC,STYPEC

(SP) ,#60

188
(SP) ,#67
188
#60, (SP)+
2(SP)
17%
(SP)
(SP)
(5P)
2(SP)
=2(SP). (SP)

78
$QUES
208

::SAVE NEW SWR

LECHO <CR> AND <LF>

* SRETURN
1 :ECHO CHAR

SICHAR < 07

S:BRANCH IF YES
“iCHAR > 77
P:BRANCH IF YES
*:STRIP-OFF ASCII
©:1S THIS THE FIRST CHAR
*:BRANCH IF YES
*INO, SHIFT PRESENT
:i
CHAR OVER TO MAKE
*:
ROOM FOR NEW ONE.
*KEEP COUNT OF CHAR
2ISET IN NEW CHAR

::GET THE NEXT ONE
LITYPE 2<CR><LF>
*:SIMULATE CONTROL-U

Qfittttt".tt.'.t't.""'.tt'.tQt'.t..QQ.Q..'.Q'Q."t".t"'t'.'

”g‘s'

aws ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

1196
1197
1198

:
,.
e

1200

1201

003450

011646

1203

003460

005066

1202
1206
1205

1206
1207
1208
1209
1210
1211

1212
1213
1214
1215

1216

1217

1218
1219

1220
1221

003452

003464
003466

003472
003474
003474
003500
003502
003506

003514
003520
003526
003530
003536

016666

005046
012746
000002

005737

001775
005337
117766

005237
023727
001003
012737
000002

RDCHR

000004
000004

000002

$RDCHR: MOV

002602
177074

002606
002606

002610

000004

002620

002606

28:

4(SP)

::GET READY FOR A CHARACTER

CLR
MOV

-(SP)
#64$,~(SP)

S:PUT NEW PS ON STACK
S:PUT NEW PC ON STACK

$TKCNT

;:WAIT ON A CHARACTER

BEQ
DEC
MOVB

INC
CMP
BNE
MOV

::PUSH DOWN THE PC AND

4(SP),2(SP)

RT]

648
:
1$:

(SP) ,=(SP)

MOV
CLR

003474
002602

;:GET A CHARACTER FROM THE QUEUE
*:CHARACTER IS ON THE STACK
*:WITH PARITY BIT STRIPPED OFF

RETURN HERE

RT]

18
$TKCNT
@$TKQOUT.4(SP)

S:THE PS

1:POP NEW PC AND PS

:DECREMENT THE COUNTER
..ce ONE CHARACTER

$TKQOUT
UPDATE THE POINTER
$TKQOUT ,#$TKQEND ..DID IT GO OFF OF THE END?
2
: :BRANCH IF NO
#STKQSRT,$TKQOUT ::RESET THE POINTER

R R A AR

AN AR R

: *RETURN

R RN RN AR R AN NN AR RN RN AR R AR AN

RN RRRRRRE RS

**THIS ROUTINE WILL INPUT A STRING FROM THE TTY
teCALL:

RDL IN

RETURN HERE

;:INPUT A STRING FROM THE TTY

::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

CZDXJB.P1

24~MAR=-80 09:31

TTY INPUT ROUTINE

}gg%

003540

1226
1227

003544
003550

003542

1228

003554

1230

003560

1233

003570

1235
1236

003574
003602

1238

003612

1240

003620

010346

005046

012703
022703

101456

1229 003556

104407

1231
1232

003
003

122713
001022

003572

001007

123,

1237

1239

12641

1262

003614

003622

003626

112613

112737
104401

012716

005303

000177
000134
003772

104401

001406

000134
003772

1251

003662

104401

004015

1253

003670

122713

000022

003666

000726

003674

001011

1259
1260

003712
003716

1263

003730

1265

003

1258

1261
1262

1264

001003

003710

003720
003724

003734

105013
104401
104401

000717

104401
000712

111337
104401

122723

001305

105063

1266

003742

1268
1269
1270
1271

003750
003752
003754
003762

012603
011646
016666
012766

12
1274

oos;g
003

000
000

1267

1272

1275
1276
1277

003746

003770

003774
004
004010

104401

005726

000002

000010
177607
041536

CLR

MOV
CMP

BLOS

MOVB

6$:

7%:

8$:

001161
003774

001160

48:

003772
003772

38:

000015

001162
000004
003774

9s:
000377
005015

000

$ITYIN:
$BELL:
S$CNTLC:

+:GET CHARACTER

MOV

#-<1,(SP)

;:SET THE RUBOUT KEY

R3 ASTTYIN

:STACK EMPTY?

DEC

CMP

(SP)

;1S IT A RUBOUT
:BR IF NO

..xs THIS THE FIRST RUBOUT?

*BR IF NO

#'\,9%
.98

S:TYPE A BACK SLASH

: :BACKUP BY ONE
‘BR IF
YES

MOVB

(R3) 9

..serup TO TYPEOUT THE DELETED CHAR.

©:GO READ ANOTHER CHAR.

BEQ

TST

(SP)

*GO TYPE

: ;RUBOUT KEY SET?
*BR IF NO

MOVB
TYPE
CLR
(MPB

#'\,9%
.98
(SP)
#25,(R3)

;:CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?

TYPE

LSCNTLU

*:TYPE A CONTROL 'V’

CMPB

#22,(R3)

*:1S CHARACTER A '“R'%

CLRB
TYPE
TYPE

(R3)
,SCRLF
STTYIN

::CLEAR THE CHARACTER
S:TYPE A "CRTM
& ‘LF"”
::TYPE THE INPUT STRING

. $QUES
is

SITYPE A *2°
::CLEAR THE BUFFER AND LOOP

CMPB

#15.(R3)+

::CHECK FOR RETURN

CLRB

=1(R3)

::CLEAR RETURN (THE 15)

(SP)+

BNE
BR

BNE

8s
is

B8R

MOVB
TYPE

(R3).9%

TYPE
BR

TYPE

000002
000004

*BR IF YES

+:GO READ ONE CHARACTER FROM THE TTY

133

BNE

177777

(SP)+,(R3)

*:GET ADDRESS
::BUFFER FULL?

8NE

TYPE

000025

::CLEAR THE RUBOUT KEY

#177,(R3)
58

8LO

003772

-(SP)

; :SAVE R3

(MPB
BNE

MOVB
TYPE

5%:

112737
104401
005016
122713

003676
003700
003704

003772

005716

003640
003646
003652
003654

1255
1256
1257

#STTYIN,R3
#STTYIN#10,R3

003772

1246
1247
1248
1249

1254

18:
28:
108 :

177777

003772

003636

003660

R3,=-(SP)

111337

103434

1245

1252

3
PAGE 29

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

RDCHR

003774

000746

003634

003774
004004

020327

003632

1250

€

$RDLIN: MOV

005716

1243
1244

09:45

1226

1225

24-MAR-80

S:TYPE A BACK SLASH

:BR IF NO

1360 START OVER
$:BRANCH IF NO

1360 PICKUP ANOTHER CHACTER
::ECHO THE CHARACTER

::LOOP IF NOT RETURN

LSLF

S:TYPE A LINE FEED

MOV
MOV
MOV
MOV

(SP)+,R3
(SP) ,~(SP)
4(SPS ,2(SP)
#STTYIN,4(SP)

*:RESTORE R3
:iADJUST THE STACK AND PUT ADDRESS OF THE
u
FIRST ASCI] CHARACTER ON IT

BYTE
BYTE

0
0

::STORAGE FOR ASCII CHAR. TO TYPE
::TERMINATOR

RT]

.BLKB
.ASCIZ
.ASCIZ

::CLEAN RUBOUT KEY FROM THE STACK

: :RETURN

10
$:RESERVE 10 BYTES FOR TTY INPUT
<207><377><377> .,cooz FOR BELL
/%C/<15><12>
*CONTROL ‘'C""

———

CZDxJBeO?XH-B ADDRESSING TEST MACY11 30A(1052)

SEQ 0028

| CZDXJBO DX11-8 ADDRESSING TEST MACY11 30A(1052)
CZDxJB.P1

—A—AN

/7*U/<15><12>
;sCONTROL 'V
/*G/<15><12>
/::CO\ITROL L il
<15><12>/SWR =

020127

SMNEW:

LASCIZ

.EVEN
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

D
D
e o

'THIS ROUTINE WILL READ AN OCTAL

D
e
D

;*FOLLOWED BY A CARRIAGE

s*THEN BE RETYPED.

s*CALL:

;'
.

000002

1$:

FRNIERRENSE REERKER
RN SRR

) —d —d

NUMBER FROM THE

TTY AND

COMPLETE NUMBER MUST

;;READ AN OCTAL NUMBER
:.LOW ORDER BITS ARE ON TOP OF THE STACK
:;HIGH ORDER BITS ARE IN SHIOCT
;;PROVIDE SPACE FOR THE
:: INPUT NUMBER

(SP)+,RO
RO.5%

..GET ADDRESS OF 1ST CHARACTER

(RO)+,~(SP)

;;PICKUP THIS CHARACTER
;.1F ZERO GET OuT
;JMAKE SURE THIS CHARACTER
IS AN OCTAL DIGIT

RDLIN

CLR
CLR

R1
R2

BEQ

MOvB
CMPB

#'0,(SP)

(MPB

#'7,(SP)

«$

;.8

TST
MOV
MOV
MOV
MOV
MOV

2
#-C7,(SP)
(SP)+,R1
2%
(SP)
+
R1,12(SP)
R2,$HIOCT
(SP)+ ,R2
(SP)+ R
(SP)+ RO

TST

(SP)
+

CLRB

JAND SAVE

(RO)

: :CLEAR DATA WORD

ROL

BIC
ADD

;sREAD AN ASCIZ LINE

3504

ASL

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

ROL

ASL

($:

THE

MOV
MOV

ASL

38:

(SP) ,=(SP)

FEED.

IS TERMINATED BY TYPING A CARRIAGE RETURN.

4&(SP) ,2(SP)
RO,=(SP)
R1,=(SP)
R2,=(SP)

BLT

177770

RETURN-LINE

INPUT

MOV
MOV
MOV
MOV

BGT

£8

) —"d —

) - —ld -l —d —d — —ld -

)

2%:

THE

RDOCT
RETURN HERE

$RDOCT: MOV

) —
)
—d

VNN
W =0

.."tt...".

(ASCII)

s*CHANGE IT TO BINARY.
:*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '“?'' WILL BE TYPED

— e

SSRGS

NEW =

".'t..'..t't'Q.'.t."""Q"'.'..'t.Q."'Qt.'t.t.'

i e

—

SEQ 0029

.ASCIZ
.ASCIZ
LASCIZ

PAGE 30

SCNTLU:
SCNTLG:
SMSWR:

e e
e e
Do

b
b

il e

i e
b
b

) —

b
b
b
b

ks Dl —h D —lh )l —h
D el

000012
000
051127

004100

i
b
WWWW
w
W

INPUT ROUTINE

09:45

[+ J& 1, N1V, 1V ]

=
nNO

043536
5

TTY

SRR
R R SRR PR P ST3
bbb
i3

1278

§Vl2288§
Howm

24-MAR-80 09:31

24=MAR-80

::STRIP THE ASCII JUNK
..ADD IN THIS DIGIT
LOOP

::CLEAN TERMINATOR FROM STACK
;2SAVE THE RESULT
::POP STACK INTO R2
:;POP STACK INTO Rl
::POP STACK INTO RO

: :RETURN

::CLEAN PARTIAL FROM STACK
s.SET A TERMINATOR
;. TYPE UP THRU THE BAD (HAR.

CZDXxJBO

DX11-8 ADDRESSING TEST MACY11 30A(1052)

CZDxJB.P1

b
o
-

WWW

1334
1335
1336

37
38
39

004200
004202
004206
004210

24=-MAR-80 09:31
000000
104401
000730

001160

24-MAR-80

09:45

3
PAGE 31

READ AN OCTAL NUMBER FROM THE

5$:

.WORD

TYPE
BR
$HIOCT: .WORD
LSBTTL

TTY

.sows

.,TRY AGAIN

0
MODULE 1.2

ll,ll

SEQ 0030
IICR"

‘

IFII

;HIGH ORDER BITS GO HERE
SIZE MEMORY

p—

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXJB.P11
24=MAR-80 09:31

&49

30A(1052)
24-MAR-80 (09:45
MODULE 1.2
SIZE MEMORY

;

| 1342

;

1343

1346

}33215

}3325

1351

004212

005037

004516

1353

004222

005037

011652

1352

004216

004737

SIZE:

004460

MODULE 1.2

3
PAGE 32

SIZE MEMORY

CALLED AS FOLLOWS

JSR

PC.SIZE

THIS MODULE SETS UP MEMORY SIZE INCLUDING EXTENDED

ADDRESSING BITS IN ACTIVE PARAMETER TABLE

CLR

$KT11

:DON'T TRY FOR MEM MGT

CLR

*RESET KT AVAILABLE SWITCH

JSR

PC.$SIZE

1354
1355
1356

004226
004234
004242

013737
013737
023727

004762
004762
004762

011646
011644
017776

MOV
MOV
CMP

SLSTAD , MMAX
SLSTAD.MSIZE
SLSTAD.#17776

1358
1359

004252
004260

162737
005737

000276
000042

011644

SUB
ST

#276,MS12E
PY7¥]

023737

000042

000046

CMP

L2, a6

162737

005500

011644

SUB

#5500,MS12E

174620

0020620

000200

004516

1357

1360

004250

004264

001407

004274

001403

1361

004266

1363

004276

1362

1364
1365

004304
004310

1366
1367

004314
004322

1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379

004332
004336
004342
004344
004352
004360
004366
004374
004400
004404
004410

1368

004326

1380

004414

1382

004426

1381

103415

005037
005037

037727
001055
012737

004737
005737
100045
012737
013737
737
013737
006337
006337
006337
006337
006337

011650
011704

004460
004516
000001
004764
000040
004764
011706
011706
011706
011706

358

BEQ
BEQ

10%8:

208 :

011652
011650
011650
011706

011706

20 006337 011706
052737

BLO

358

CLR
CLR

BIT
BNE

011706

171777

011704

358

*BR IF NO

#200,8KT11

JSR
ST
BPL
MOV
MOV
ADD
MOV
ASL
ASL
ASL
ASL

PC,$SIZE
$x711
308
KT
SLSTBK,EASIZE
#40,EASIZE
SLSTBK,PHYMAX
PHYMAX
PHYMAX
PHYMAX
PHYMAX
PHYMAX

ASL

“SAVE END OF CORE WITH KT OFF
:GET END OF CORE TO WORK WITH
:LESS THAN 8K?
:BRANCH IF YES, DON'T PRESERVE LOADERS
*SAVE SPACE FOR ABS LOADER
*RUNNING UNDER ACT OR XXDP

*BR IF NO

aSWR, #SW10
308

MOV

“GET MEM SIZE WITH KT OFF

358

EAS]ZE
EABITS

ASL

003776

SEQ 0031

PHYMAX

*RUNNING UNDER XXDP CHAIN?
*SAVE SPACE FOR LOADERS

*CLEAN
UP EXTENDED ADDR

:CHECK IF MM TO BE USED
*BR IF NO

;1S MM ACTIVE
*BR IF NO
*SET KT IN USE FLAG
;INCR TO FIRST INVALID SETTING
:START GEN OF MAX PHYSICAL
: ADDR
i
LOW
:
16
:
BITS

BIS

#3776,PHYMAX

:SET UP TO USE LAST

BIC

#171777 EABITS

;SAVE ONLY EXT ADDR BITS

308:

ASL
RIS

EABITS
PC

ggg

.SBTTL

ROUTINE TO SIZE MEMORY

1391
1392

:"'.."'...ttt"..t't.""tt'..."'t"t."'l.'tt'."'.'tt"."'..
s*CALL:

1383

004432

013737

004764

1385

004446

000337

011704

1384

1386
}333;

004440

004452
004456

042737

006337
000207

011704

MOV
SWAB

1393

1395

S*SLSTAD WILL

1394

SLSTBK EABITS

JSR

EABITS

RE TURN

PC.$SIZE

CONTAIN:

*MOVE TO BIT POS.

1K TOO

3.2

:MOVE TO BIT POS. 4.3 FOR DX11
*RETURN

CZOXJBO DX11-B ADDRESSING TEST MACY11
CZDXJB.P11
24-MAR=-80 09:31

L1396

1397

1398
1399
1400

1405

004460

010046

1410
1411
1412

004474
004500

013746
010600

1413
1414
1415

004462
004464
004466
004470

004502

010146
010246
010346
013746

104400

004504
004510

012637
012701

004516

000200

000004

000006

1418
1419

004520
004522

1
012737

004660

1421

004534

052737

100000

004544
004550

012702
012703

1426
1427
1428

004562
004564
004570

011622
062716
077307

1430

004576

005042

1422

1423
1424

004530
004542

005737

005046

$KT11:

1441

004650

01120

004652
004656

005037
0001.%1

1444
1445
1446

004660
004666
004674

042737
012737
005002

1449

004706

005711

1447
1448

1450
1451

004676
004702

004710
004714

MOV
MOV

(SP)+, acennveuz
;:SAVE THE PSW IN @#ERRVE(C+2
#3776.R
::SETUP ADDRESS

.WORD

200

TSTB

(PC)+

+:USE MEMORY MANAGEMENT?

::SET TO USE MEMORY MANAGEMENT

172340
000010

MOV
MOV

mpmo R2
#°D8

: ADDRESS OF FIRST 'PARTM
:LOAD EIGHT ‘PAR.'S'* AND EIGHT 'PDR.'S"’

000200

MOV
ADD
SOB

(SP), (R2)+
ozoo (SP)
1$

$:LOAD 'PAR"
::UPDATE FOR NEXT 'PAR'’
2:LOOP UNTIL ALL EIGHT ARE LOADED

-(R2)

::SETUP KIPARG FOR TESTING

143776

::TRAP ON NON-EX-MEM

MKIPAR7,(R2)

::LAST ONE?

(R2) ,R2

“:GET LAST BANK+1

000040

101371

:PUSH OLD PSW AND PC ON STACK

;:YES-SET KT11 KEY

062712

004646

THE STACK POINTER

#100000,$KT11

004636

023712

©:SAVE R1 ON THE STACK
::SAVE R2 ON THE STACK
*:SAVE R3 ON THE STACK
::SAVE PRESENT ERROR VECTOR PS & PC

BIS

1438

004642

::SAVE RO ON THE STACK

004516

004616
000020

1439

R1.=(SP)
R2,=(SP)
R3,=(SP)
ERRVEC,=(SP)

000004

177572

012737
012737
000401
022626
005237
012737
005737

RO, =(SP)

$CORE
*BR IF NO
#SKTNEX,a¥ERRVEC ..ser FOR TIMEOUT

004600
004606
004614
004616
004620
004626
004632

MOV

MOV
MOV
MOV
MOV

BPL
MOV

1431
1432
1433
1434
1435
1436

1442
1443

-= LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

DETERMINED BY ROUTINE

TRAP

CLR

1429 004572 012742 177600

1440

== LAST VIRTUAL ADDRESS OF THE LAST BANK

SNERRVEC+2,=-(SP)
SP,RO
:SAVE
::SET me ERRVEC PS TO THE Pnssem PS

1425 004554 012762 077406 1777640 18%:

1437

WITHOUT KT11 OPTION

nov

000006
003776

004514

1420

105727

$SIZE:

1416

1417

WITH KT11 OPTION

SEQ 0032

-ems 0 DON'T HAVE MEMORY MANAGEMENT OPTION

}282
1406
1407
1408
1409

PAGE 33

MUST BE SETUP BEFORE THE CALL

1402

|
|

S+SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
s+$KT11 IS THE MEMORY MANAGEMENT KEY
-enw = 0 DON'T USE MEMORY MANAGEMENT

1401

30A(1052)
24-MAR-80 09:45
ROUTINE TO SIZE MEMORY

177572
004650
143776

2s:
38
4$:

172356

100000
004716

062701
062702

004000
000040

022701
001370

177776

#2S,QMERRVEC
::CATCH TIMEOUT IF NO SR3
#20.3#SR3
:ENABLE 22 BIT MODE
3s
THIS PDP=11 HAS A SR3 REGISTER
(SP)+, (SP)+
..CLEAN OFF THE STACK=-NO SR3
SRO
TURN ON MEMORY MANAGEMENT
#SKTOUT ,a#ERRVEC ..ssr FOR TIME OUT

ADD

#40, (R2)

$KTOUT: MOV

CLR
BR

SKTNEX: BIC
$CORE:
MOV
CLR

18:

cmbe=40(R2) ::PDR= 4K, UP, READ/WRITE

MOV
MOV
B8R
cMP
INC
MOV
P

004516
000004

SINITIALIZE FOR ‘PAR'' LOADING

nmoo -=(R2)

BH]

177572

-(SP)

*KT11 ARE YOU THERE?

MOV
CLR

000004
172516
000004

MOV

a¥SRO

ADD
ADD
ST

cMP
BNE

arsrO
$S12EX

::SETUP KIPAR? FOR 1/0

..ms
A 1K STEP

SINO=-=TRY IT

*:TURN OFF MEMORY MANAGEMENT

#100000,8KT11
::KT11 NON-EXISTENT
#$CROUT .a#ERRVEC" ..ssr FOR TIMEOUT
R2
SSET UP BANK

#4000,R1
#40,R2

..mcnensm BY 1K
::1K STEP

#177776 .R1
13

SILAST ONE
S INO=-=TRY AGAIN

(R1)

STRAP ON TIME OUT

CZDXJBO DX11-B ADDRESSING TEST MACY11
K(ZDxJB.P11
24~MAR-80 09:31

1452
1453
1454
1455
1456
1457
1458
1459
1460

162701
162702

010006
012637

004000
000040

30A(1052)

24-MAR-B0

ROUTINE

TO SIZE MEMORY

$CROUT:
$SIZEX:

SUB
SuB
MOV
MOv
MOV

000006
000004
004762
004764

1461

1462
1463
1464
1465

1466

1467

09:45

SLSTAD:
$LSTBK:

3
PAGE 34

#4000,R1

#40,R2

: :DROP BACK

(SP) + . S#ERRVEC
R1,$LSTAD
R2.$LSTBK
(SP)+,R3
(SP)+.R2
(SP)+.R1

::LAST ADDRESS
PILAST BANK
*:RESTORE R3
::RESTORE R2
:*RESTORE R1

RO, SP
*:RESTORE THE STACK
(SP)+,#ERRVEC+2" : ;RESTORE ERROR VECTOR

égP)0.R0

;;RESTORE RO

.WORD
.WORD

0
0

: ;CONTAINS THE LAST ADDRESS
“:CONTAINS THE LAST BANK

.SBTTL

MODULE

RTS

1.3

C(HECK PARAMETERS

SEQ 0033

24-MAR-80 09 :31

CZDxJB.P1

24-MAR-80 (09:45 PAGE 35
MODULE
1 .3 CHECK PARAMETERS

1468

MODULE 1.3

1470
1471
1472
1473
1474
1475
1476
1477

CALLED AS FOLLOWS

1469

JSR

.WORD

CHECK PARAMETERS

RS CHECKP

THIS HODULE HAS RESPONSIBILITY FOR VALIDATING PARAMETERS

INPUT BY THE OPERATOR.
IT COMPARES THE INPUT PARAMETER
AGAINST PARAMETER LIMITS DEFINED IN THE INPUT PARAMETER
LIMITS TABLE.
IF THE PARAMETER IS OUTSIDE THE SPECIFIED
LIMITS, AN ERROR MESSAGE IS OUTPUT AND ALL ONES IS RETURNED

IN RO.

IF THE PARAMETER IS OK, ALL ZEROS IS RETURNED IN

012501
120127
001007
020037

(MPB

011614

000003

10%:

011620
011622

000004

NNNB—!-I-.-‘-.-.—.-A—A—.
VONOWVESWN=O 3RIR

011626
000005

308:

N
N

—_

= —d
=

011632

005134
177777

BNE
CMP
BLT
CMP
BGT
BR

40%:

90%:

(R5)+,R1
R1.42

;GET PARAMETER TO BE CHECKED
:IS IT TEST NO?

BNE
cTMP
BLT

108
RO,LTESTN
90$
RO,HTESTN
90$
80$
R1,43
208
RO, LUBA
90$
RO, HUBA
90$
80$
R1,4%
308
RO, LVEC
90$

BGT
B8R

90$
80$

*BR IF BAD
10K, RETURN

BNE
CMP
ELT
cTMP
BGT
B8R
HALT
JSR

408
RO,LPRIOR
90$
RO,HPRIOR
90$
80$

‘BR IF NO
SCHECK LOW LIMIT
:BR IF BAD
:CHECK HIGH LIMIT
*BR IF BAD
*0K, RETURN
:ERROR, BAD MODULE CALL PARM
*PRINT PARM LIMIT ERROR

WORD
MOV
BR

O
#-1,R0
95%

(MPB

BNE
cMP
BLT
P
BGT
BR

CMPB

011630

38 EER:

d
b
d
e
e
e
e

011624

e
d e
d
e
e

20%:

STARTING TEST NUMBER
BASE ADDR OF DX CONTROL REGS

DX VECTOR ADDRESS
DX PRIORITY.
THE PARAMETER TO BE CHECKED IS PASSED IN RO.

HECKP MOV

011616

1505

B
X=5

(iR

TE TR TR

DEFINES THE PARAMETER TO CHECK AS FOLLOWS:

=2
=3

CMPB

.WORD

RO, HVEC

R1.45

RS ,PRINT

BADP

*BR IF NO
“CHECK LOW LIMIT
*BR IF ERROR
*CHECK HIGH LIMIT
:BR IF ERROR
*GO TO OK RETURN

:IS IT BASE ADDR OF DX

*BR IF NO
SCHECK LOW LIMIT
‘BR IF BAD
“CHECK HIGH LIMIT
*BR IF BAD
:0K, RETURN

AISTIT me VECTOR?

*BR IF NO
*CHECK THE LOW LIMIT
*BR IF BAD

*CHECK THE HIGH LIMIT

:1S PARM PRIORITY LEVEL

:ADDR OF MESSAGE

.-cou ROL WORD, CRLF + DON'T CONVERT
:SET ERROR RETURN CODE
sRETURN

SEQ 0034

e ey

| CZDXJBO DX11-8 ADDRESSING TEST MACY11 30A(1052)

CZDXJBO

DX11-B ADDRESSING TEST MACY11

CZDXxJB.P11
1526
}ggg
1527

005130
005132

24-MAR-80 09:31
005000
000205

30A(1052)

MODULE 1.3
80$:
95%:

_24-MAR-80

09:45

C(HECK PARAMETERS

CLR
RTS

RO
RS

.SBTTL

MODULE 1.3.1

PAGE 36
sSET GOOD RETURN (ODE
JRETURN TO CALLER.
WRITE TTY

SEQ 0035

30A(1052)

24=MAR-80

MODULE 1.3.1

09:45

WRITE TTY

3
PAGE 37

SEQ 0036

WRITE TTY

;

MODULE 1.3.1

;

THIS MODULE HANDLES ALL OUTPUT TO THE OPERATOR

;

CALLED AS FOLLOWS

;

JSR

) D el

) D D e o

)

1528

TR YRt
EIFUR
2% 323 LREXELS&mmmwmmwwm
BIFRRUK
LS

CZDXJBO DX11-8B ADDRESSING TEST MACY11
(ZDxJB.P11
24=MAR-80 09:31

MSG
CTL

;
;

CTL=

BITO=1
BIT15=1

:DONT = CRLF BEFORE MESSAGE
*CONVERT OCTAL TO ASCII AND PRINT

MOV

RO,=(SP)

::PUSH RO ON STACK

MOy

(R§)+ RO

*GET ADDR OF MSG

) D

=
28 v
S 28 g
v

—

urd

005176

BPL
MOV

BR
MOV

208:
2(5):

sTYPE

mmmmmmmmmm&
JIJFANANIIS FEE

) D e

.SBTTL

R1,=-(SP)
(RS)+.R1

#1.R1

108

#CRLF1

;:PUSH R1 ON STACK
*GET PRINT CONTROL WORD

‘DO WE NEED A CRLF?

*BR JF NO

*TRAP TO TYPE ROUTINE

*POINTER TO CRLF ASCII

SIS IT OCTAL?

208
(RO) ,=(SP)

*BR IF NO
“PUT OCTAL # ON STACK

408
RO,25$

:DONE
*PUT MESSAGE ADDR INLINE

STYPE 6 CHAR VIA TRAP

TYPE
WORD

“TRAP TO TYPE ASCII RIN
;POINTER TO MSG GOES HERE

MOV
MOV

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

:;POP STACK INTO Rl
:;POP STACK INTO RO

RTS

TRAP CALL COMES HERE

N AR

;ADDRESS OF MESSAGE OR OCT #

sRETURN TO CALLER

TYPE ROUTINE

AR AR A AN AR AR AR AN AN AR R AR

AR AN AN

AN AR AR AN

RN AR AN RN

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

J*NOTE1:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

J*NOTE2:
s*NOTES:

b i

.WORD

TYPOC

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTFR.

]

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

D
il
—

BNE

108 :

01003?

BIT

TYPE

WA
=

38 &2 $
& P02 ;
S
3
005170

000404

MOV

000001

D D e

Dl e

D D i

D e

) -

)

MOV
032701

.WORD
WORD
RE TURN

005144

;
:
;

."m

TYPE

o®
A

TYPE
ME SADR

S$TYPE:

TSTB
BPL

- "

005206
005212

105737
100002

001157

.MESADR

J2MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
3

;:1S THERE A TERMINAL?
:BR IF YES

[
1
|

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80
CZDXJB.P11
TYPE ROUTINE
24-MAR-80 09:31
HALT

000002

1$:

MOV

28:

mMovBe

000002

60%:
3%:

000011

4$:

#CRLF, (SP)

:;BRANCH IF NOT <CRLF>

(SP)+

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

$CHARCNT

;sCLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
2:G0 TYPE THIS CHARACTER
3319 IT TIME FOR FILLER CHARS.?
22IF NO GO GET NEXT CHAR.
;;GET
# OF FILLER CHARS. NEEDED
ssAND THE NULL CHAR.
2;DOES A NULL NEED TO BE TYPED?
¥
IF NO--GO POP THE NULL OFF OF STACK
::GO TYPE A NULL

43
(SP)+
(SP)+ RO

e, (SP)
8%
5%

D
d D
D

005356
001156

VRONOWVSWN-=O

—

d e

oooonOrO
O MONMONONON

d e

d eh d

005422

013746

001154

105366
002770
004737
105337
000770

000001

5%:
6%:

JSR
CMPB

78:

DECB

PC,STYPEC
SFILLC,(SP)+

2%
., - (SP)
$NULL
1(SP)

005356
005422

SEQ 0037

#HT, (SP)

RO,=(SP)

al2(SP) ,RO
(RO)+,-(SP)

CMPB

3
PAGE 38
JsHALT HERE IF NO TERMINAL
s s LEAVE
;:SAVE RO
ssGET ADDRESS OF ASCIZ STRING
s sPUSH CHARACTER TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
;s
IF TERMINATOR POP IT OFF THE STACK
JRESTORE RO
2ADJUST RETURN PC
2 sRETURN
;sBRANCH IF <HT>

000200

RE SRR
e SRR ROR B S

PC,STYPEC

$CHARCNT
78

1584
1585
1586
1587
1588
1589

09:45

sHORIZONTAL TAB PROCESSOR
112716

000040
005356
000007

8%:

005422

173566

000002
000015

9%:

MOVB
BITB

#' ,(SP)
PC.STYPEC
#7 ,$CHARCNT

TST

(SP)+

JSR

STYPEC:

;:POP SPACE OFF STACK
32GET NEXT CHARACTER
;sWAIT UNTIL PRINTER IS READY

2(SP) ,a$TPB

;:LOAD CHAR TO BE TYPED INTO DATA REG.

:gR.?(SP)

005422
000012

000002

18:

;:TAB STOP

as$TPS
STYPEC

173560
000002

;;REPLACE TAB WITH SPACE
;2TYPE A SPACE
;sBRANCH IF NOT AT

::1S CHARACTER A CARRIAGE RETURN?
IF NO
: ;BRANCH
..Yfii-CLEAR CHARACTER COUNT
E

CMPB

::1S CHARACTER A LINE FEED?
: ;BRANCH IF YES
:sCOUNT THE CHARACTER
; ;CHARACTER COUNT STORAGE

$CHARCNT : . WORD
$TYPEX: RTS

sTYPOC TRAP CALL COMES TO STYPOC TAG BELOW
.SBTTL

MLAAA AR A

BINARY TO OCTAL (ASCII) AND TYPE
A

'THIS ROUTINE

TT}

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

m3
CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80 09:45 PAGE 39
CZDXJB.P11
24=MAR=-80 09:31
BINARY TO OCTAL (ASCII) AND TYPE

1640

SEQ 0038

;*OCTAL (ASCII) NUMBER AND TYPE IT.

.--mfos---emen HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

1643

1644
1645
1646
1647

i
i
I
v

}zg

MOV

TYPOS
BYTE
BYTE

NUM,=(SP)

N
M

+:CALL FOR TYPEOUT
::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
i:M=1 0R 0
::1=TYPE LEADING ZEROS
::0=SUPPRESS LEADING ZEROS

- %

1650
1651
1652

:;NUMBER TO BE TYPED

:*$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
+«$TYPOS OR STYPOC
s*CALL:

1653

}ggg

]

MOV

TYPON

NUM, = (SP)

: :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

1656

+«$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

1658
1223

i
I

1657

1661

s*CALL:

005426

017646

005444

062716

1666
1667
1668

005452
005460
005466

112737
112737
112737

1673

005506

166%
1663

1664

1665

1669
1670
1671
1672

005432
005440

005450

116637
112637

000406

1
005653
000001
000006
000005

005651

$TYPOS: MOV

MOVB
MOVB

ADD

005651
005653
005650

S$TYPOC: MOVB
MOVB
STYPON: MOVB

005474
005476
005500
005502

010346
010446
010546
113704

005653

1674
1675
1676
1677

005510
005514
005520
005526

704
110437
113704
016605

000006
005652
005651
000012

1679
1680
1681
1
1
1684
1685

005532
005534
005536
005540
005542
005544
005546

006105

18:

006105
006105
006105
010503
006103

2s:

1687

005554

100016

1690

005564

005704

1678

1686

005530

005550

005404

005003

105337

005652

MOV
MOV
MOV
MOVB

38:

1693

005572

osgrog 000060

1695

005602

110337

169

005576

052703

000040

005646

NUM, - (SP)

: :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

a(SP) ,=(SP)

::PICKUP THE MODE

#2,(SP)

::ADJUST RETURN ADDRESS

1(SP),SOFILL
(SP)+,SOMODE+1

STYPON

#1,$OFILL
#6.SOMODE+1
#5.SOCNT

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

;:SET THE ZERO FILL SWITCH
::SET FOR SIX(6) DIGITS
::SET THE
ITERATION COUNT

R3,=(SP)
R&.=(SP)
RS.-(SP)
scmow R4

+:SAVE
:iSAVE Ré
*SAVE RS
“:GET THE NUMBER OF DIGITS TO TYPE

oe R&4
4 , SOMODE
sonu. R&
12(SP) .RS

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

ROL
B8R
ROL
ROL
ROL
MOV
ROL

RS
38
RS
RS
RS
R5,.R3
R3

: :ROTATE MSB INTO
::G0 DO MSB
::FORM THIS DIGIT

BPL

NEG

1688 oosgzg 042703 177770
1689 005
001002

1691 ooss% 001403
169; 005570
005204

MOV
TYPOC

CLR

DECB

BIC
BNE
4$:

BEQ
INC

58:

BIS

$OMODE

::CLEAR THE OUTPUT WORD

'°C*"

::GET LSB OF THIS DIGIT
“:TYPE THIS DIGIT?

::BR IF NO

#177770.R3
‘s

::cer RID OF JUNK
TEST FOR 0

58
R&

..smsss THIS 0?

BIS

#'0,R3

:BR IF YES
$:DON'T SUPPRESS ANYMORE 0°'S
:SMAKE THIS DIGIT ASCI]

MOVB

R3.8%

1:SAVE FOR TYPING

*""R3

MAKE ASCI] IF NOT ALREADY

CZDXJBO DX11-8 ADDRESSING TEST MACY11 30A(1052)
24=MAR-80 09:45 PAGE 40
CZ0xJB.P11
24-MAR-80 09:31
BINARY TO OCTAL (ASCII) AND TYPE
005606
005612
005616

104401
105337

005646
005650

7%:

TYPE

DECB
BGT
BLT
INC

6%:

iocm

..GO TYPS T?IS DIGIT

..INSURE LAST DIGIT ISN'T A BLANK
;GO DO THE LAST DIGIT
RS
*:RESTORE
:sRESTORE R4

2
6$

(SP)+ RS
(SP)‘ R4

(SP)+.R3

2(SP) ,4(SP)
(SP)*.(SP)

8%:
$OCNT:
$OFILL:
: .WORD
$OMODE
.SBTTL

lelolelels

CEREEREEES 3
WN=O

i
e
e
i e
D
e
e
e
o

33N

1697
1698

MODULE 2.0

..BR IF MORE TO DO
:BR IF DONE

;JRESTORE R3

+sSET THE STACK FOR RETURNING
;sRETURN

s sSTORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
2;O0CTAL DIGIT COUNTER
..ZERO FILL SWITCH

sNUMBER OF DIGITS TC TYPE
INTERRUPT HANDLERS

SEQ 0039

N_a_a—a_o_nj

W=D VO~NONWN &~

.SBTTL

~nN

Y]
~ VS

R AR NS AHAIANANIS

il
D
il
-

Y——

INTERRUPT HANDLERS

TRAP DECODER
AR

A A

A AR AR A

R AR AR

AR RN AR AR AR

s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

RN AN AN

AR AR

THE ‘‘TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.
000002
000020
005672

$TRAP:

MOV
8i¢

18:

000002

#18,-(SP)

RTI

MOV

RO,=(SP)

MOV
TST
MOvVB
ASL

RTS

;sTHIS IS USE

000002

::GET TRAP ADDRESS
: :BACKUP BY 2
;:GET RIGHT BYTE OF TRAP

$TRPAD(RO)
,RO

::INDEX TO TABLE

TO HANDLE

MOV
RTI

:: T-BIT TRAPS

;:SET THE NEW STATUS

::SAVE RO

$TRAP2: MOV

;;ASSUME THE STATUS OF
;s THE CALLER--DO NOT ALLOW

2(SP) ,RO
-(R0O)
(RO) ,RO

MOV

005726

000004

2(SP) ,~(SP)
#20, (SP)

MOV

; ;POSITION FOR INDEXING

;2GC TO ROUTINE

THE ''GETPRI'' MACRO

(SP) ,-(SP)

4(SP) ,2(SP)

:;MOVE THE PC DOWN

:MOVE THE PSW DOWN

;;RESTORE

THE PSW

SEQ 0040

MODULE 2.0

~
~

Y
S
Y
Y
Y
N

NN NNNN
s

S ol

il il

V _.-V.-‘-‘-.
SNNN ~ NNNNNNNNNNNN
OSLSLSTNT
S TN

) alh i -

B 4
CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80 09:45 PAGE 41
CZDxJB.P11
24-MAR=-80 09:31
MODULE 2.0
INTERRUPT HANDLERS

.SBTTL

TRAP TABLE

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

;*BY THE '‘TRAP'' INSTRUCTION.
:

ROUT INE

$TRPAD:

.WORD
STYPE
$TYPOC
$TYPOS

$TRAP2
;. CALL=TYPE
;:CALL=TYPOC
;;CALL=TYPOS

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

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)

$GTSWR

; ;CALL=GTSWR

TRAP+5(104405)

GET SOFT-SWR SETTING

S$TYPON

;;CALL=TYPON

$CKSWR
;;CALL=CKSWR
SRDCHR ; ; CALL=RDCHR
$SRDLIN
;;CALL=RDLIN
SRDOCT
;;CALL=RDOCT

TRAP+4(104404)

TYPE OCTAL NUMBER

(AS PER LAST CALL)

TRAP+6(104406)
TEST FOR CHANGE IN SOF T-SWR
TRAP+7(104407)
TTY TYPEIN CHARACTER ROUTINE
TRAP+10(104410) TTY TYPEIN STRING ROUTINE
TRAP+11(104411) READ AN OCTAL NUMBER FROM TTY

CZDXJRO DX11-8 ADDRESSING TEST MACY11 30A(1052)
24-MAR-BO
CZDxJB.P1
24-MAR-80 09:31
TRAP TABLE
1770

};;5

.SBTTL

1773

1774

005752

012737

1777
1778

005766
005770

010046
010146

1779
1780
1781
1782
1783

005760

005772
005774
005776
006000
006002

1784

006006

};gg

006022

1785
1786

006012
006020

012737

010246
010346
010446
010546
017746

010637

012737
000000

006116

000340

000024

000026

173132

006122
006024

000024

000776

1791
1792
1793
17946
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
13}?

&
PAGE 42

SEQ 0041

POWER DOWN AND UP ROUTINES

POUER DOW ROUT INE

$PWRDN: MOV

MOV

MOV
MOV

#SILLUP,3#PWRVEC ..SET FOR FAST UP

#340, SNPWRVE C+2 ;:PRIO:7

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

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

MOV
MOV
MOV
MOV
MOV

R2.=(SP)
R3,.-(SP)
R4,~(SP)
RS,-(SP)
aSWR,=(SP)

MOV
HALT

ISMLP @#PWRVEC :;SET UP VECTOR

MOV

1789

1790

".".."..'...'."""""'....'".QQ.'.'.......'..'..'..'.'.'

1775

1776

09:45

SP, $SAVR6
=2

;:PUSH
;:PUSH
;sPUSH
;:PUSH
..PUSH

R2 ON STACK
R3 ON STACK
R4 ON STACK
RS ON STACK
aSWR ON STACK

;SAVE SP

; sHANG UP

".'.'...'..'.".".....""""..'..'...'Q.."...."'..'.""..'.'

006024
006032
006036
006042
006046
006050
006054
006056
006060
006062
006064
006066
006070
006076
006104
006106
006110
006112
006114
006116
006120
006122
006124
006132

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
006124
012716
001334
000002

006116
006122
006122
006122

000024

173064

005752
000340

000024
000026

000776

000000
005015
000122

047520

042527

;POWER UP ROUTINE

S$SPWRUP: MOV
MOV
CLR
1%:
INC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE
SPWRMG: .WORD
MOV
SPWRAD: .WORD
RTI
S$ILLUP: HALT
BR
$SAVR6: 0
SPOWER: .ASCIZ
o
.EVEN

#SILLUP ,a#PWRVEC ;.SET FOR FAST DOWN
$SAVR6, SP
::GET SP
$SAVR6
;sWAIT LOOP FOR THE TTY
$SAVR6
.‘:UAIT FOR THE INC
1%
:OF
WORD
(SP)+,aSWR
..PU’ STACK INTO aSwR
(SP)+ RS
;;POP STACK INTO RS
(SP)+ R4
::POP STACK INTO Ré
(SP)+,R3
;:POP STACK INTO R3
(SP)+ R2
;:POP STACK INTO R2
(SP)+ ,R1
;;POP STACK INTO R1
(SP)+,R0O
;:POP STACK INTO RO
WDN a#PWRVEC ;.SET UP THE POWER DOWN VECTOR
#340, IFPWRVE
C +2 ;:PRIO:7
;REPORT THE POWER FAILURE
SPOWER
:;POWER FAIL MESSAGE POINTER
(PC)+,(SP)
s JRESTART AT RESTART
RESTART
;JRESTART ADDRESS

=2
<15><12>'POWER'’

;:THE POWER UP SEQUENCE WAS STARTED

;2 BEFORE THE POWER DOWN WAS COMPLETE

;sPUT THE SP HERE

oo~y

.SBTTL

MODULE 3.0.1

TST1

SEQ 0042

FAST NPR DATA TEST

— el

D &
24=MAR-B0 09:45 PAGE 43
MODULE 3.0.1
TST1
FAST NPR DATA TEST

30A(1052)

MODULE 3.0.1

FRREBRERRE

FAST NPR DATA TEST

THIS IS A FUNCTIONAL TEST

TO CHECK THE ABILITY

OF THE DX TO DO NPR'S OF DATA INTO MEMORY
WITH LARGE BYTE COUNTS.
THE DXBA IS CHECKED FOR

ITS ABILITY TO COUNT AND ALL CARRIES IN THE COUNTER ARE
EXERCISED.
THE DATA TRANSFERS ACCESS ALL

AVAILABLE MEMORY EXCEPT WHERE THE PROGRAM IS LOCATED,
AND THE AREA WHICH MAY BE OCCUPIED BY A LOADER.

TST1:

W28

—_—
2 -

0o 0o Oo 00

00 00 0o 0o

| CZDXJBO
CZ
DX11-B ADDRESSING TEST MACY11
13; DxJB.P11
3
24=MAR- 80 09:

011600
003324
003322

RS,INIT

sINITIALIZE THE SOFTWARE, PS, ETC

JSR
JSR
.WORD

PC.DXRES

R5 ,BUF AD

;GET FIRST BUFFER BASE AND SET UP KT

MOV
MOV
MOV

AVECT RO

;SET UP

MOV

#340, (RO)
#6402 ,BUFSZE

sAND DX PSW
;BUFFER SIZE A LITTLE BIGGER THAN OFFSET

108 :

JSR

PC ,BUF CLR

Go1:

BIS

1834

011712

JSR

LOOP1:

sPUT THE DX IN A GOOD KNOWN STATE

100402

;CTL BIT 15=INITIALIZE, BUFFER BASE DIVISABLE

;BY 400, SET UP BUFMAX

#INTR1, (RO) +

;DX INTERRUPT

#100525,DXM00
EACUR,@DXCSA

BFBAPH,aDXBAA
RS ,DXGO

-402

:TO CREATE A CARRY OUT OF HIGH ORDER BIT
;CLEAR THE BUFFER

:SET DATA PATTERN AND OPOUT
sSET UP DX EXT ADDR BITS

;SET UP DX BUS ADDR REG.
*START THE DX

*BYTE COUNT

; INTERRUPT WILL RETURN HERE AFTER DATA TRANSFER IS COMPLETE
006506

INTR1:

TST

INTERR
8s
#5%,asP

:DID WE GET HERE VIA INTER
:BR IF NO, STACK IS OK
*SET P RETURN ADDR

006252

5%:

MOV

#8$ RS

*SET UP JSR RETURN ADDR

011710
011712
011600

8%:

MOV

108:

(MPB

010752

128:

JSR

158:

DEC

006244

BUFBAS ,RO
BUF SZE .R1
DXMOO, (RO) +

*RELIEVE SUBROUTINE STATUS

*GET STARTING ADDR
*GET BUFFER SIZE
*CHECK A BYTE

158
RS, ERRR
1
ERR1

*BRANCH IF NO ERROR
*REPORT AN ERROR
*ERROR ID
*ADDR OF ERROR MESSAGE

108

:LOOP UNTIL ALL OF BUFFER CHECKED

000200
000004

003226
003240
003212

#DONE ,aDXCSA

100652

011600

#100652.DXM00

000030
011600

‘RELIEVE INTERRUPT STATUS

#SOSIEN,aDXESA

#30,aDXCSA
DXMOO
308
GO1

*DECREMENT BUFFER COUNT

:TURN OFF FAST MODE

;TURN OFF

FAST MODE

:CLEAR POSSIBLE CARRY IN EA BITS
sCHECK IF FIRST OF TWO PASSES
;BR IF NOT FIRST PASS

;SET UP SECOND DATA PATTERN

;DO TRANSFER WITH THIS DATA

'(ZDXJBO

DX11-8 ADDRESSING TEST MACY11

ICZDXJB P

24-MAR-80 09:31

1872 006344 004737 006510

1873

006350

004537

1875
1876

006356
006360

005701
001702

1874

}g;g

006354

006362

000402

000137

ENDT1:

1888

001410

011600
003146

052777

000103

003122
003124
003116
003110
003102
003104

052777
042777
052777
042777
052777

060000
0000
002000
002000

1895

006454

005037

006506

1897

006462

005301

1894

1896

1898

1899
1900
1901
1902
1903

}%‘So

006460

006464

006466
006472
006474
006476
006504

006506

005001

001376

003154

DXGO:

648
:

108:

004537

010752

012012
012737
000205

000001

TST1

09:45

PAGE 44

FAST NPR DATA TEST

PC.BUFCLR

SEQ 0043

;PUT BUFFER BACK TO ZEROS

R5 ,BUF AD

;GET NEXT BUFFER ADDRESS

R1
LOOP1

;CHECK FOR OUT OF MEMORY
sBRANCH IF THERE IS MORE

402

ENDTST

;BASE TO BE DIVISABLE BY 400
;OTHERWISE WE'RE DONE WITH TEST

SUBROUTINE TO START THE DX IN SOSIEN MODE

006410

006416
006424
006432
006440
006446

.WORD

JMP

013777
012577
005046
012746
000002

1889
1890
1891
1892
1893

JSR

JUSR

TST
BEQ

;
006366
006374
006400
006402
006406
006410
006410

24-MAR-80

MODULE 3.0.1

308:

010300

}g;g
1881
1882
1883
1884
1885
1886
1887

30A(1052)

006506

INTERR:

MOV
MOV
CLR
MOV
RTI

DXMOO . aDXMOA
(R5)+,aDXBCA
-(SP)
#648,~(SP)

BIS

#103,3DXCSA

BIS
BIC
BIS
BIC
BIS

#SELO!HLDO,aDXMOA
#SELO!HLDO,aDXMOA
#CMDO, IDXMOA
#CMDO, aDXMOA
#SOSIEN,aDXESA

CLR

INTERR

;CLEAR NO INTERRUPT OCCURED FLAG

;WAIT HERE FOR INTERRUPT

CLR

DEC

BNE

108

JSR
R5,ERRR
.WORD
2
.WORD ERR?
MOV
#1,INTERR
RTS
RS

.WORD

:SEND DATA AND OP OUT TO MAINT REG
;SET UP BYTE COUNT FROM PASSED PARM.
;:PUT NEW PS ON STACK
:sPUT NEW PC ON STACK
:;POP NEW PC AND PS
sSET

FUNCTION TO IBM WRITE

;AND ENABLE INTERRUPTS

sFORCE DX SELECTION
;DROP_SELECT LINES
JRAISE COMMAND OUT
:DROP COMMAND OUT
;ENABLE FAST SERVICE OUT/SERV IN

:TO UNLEASH NPR'S

;ERROR, INTERRUPT NEVER
CAME
;ERROR IDENTIFER
;ERROR MESSAGE POINTER
;SET _NO INTERRUPT OCCURED FLAG
: CONTINUE TESTING

;SET TO 1

IF DX11 FAILED TO INTERRUPT

1906

}g?)g
1909
1910
1911
1912
1913
:'lg]'g

:
006510
006514
006520
006522
006524
006526

013700
013701
105020
005301
001375
000207

011710
011712

SUBROUTINE TO CLEAR THE CURRENT BUFFER

BUF CLR: MOV
MOV
108:
CLRB
DEC
BNE
RTS

BUFBAS RO
BUF SZE ,R1
(RO) +
R1
108
PC

;GET BUFFER START
:GET BUFFER SIZE
;CLEAR A BYTE
sCOUNT IT
;LOOP TO CLEAR BUFFER
;RETURN TO CALLER

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXxJB.P11
24-MAR-80 09:31

30A(1052)

MODULE 3.1

264=MAR-80
TEST

.SBTTL

09:45

PAGE 45

INITIALIZATION

MODULE 3.1

SEQ 0044

TEST INITIALIZATION

TEST SOF TWARE INITIALIZATION

CALLED AS FOLLOWS:

JSR

RS,INIT

RETURN COMES HERE

1928
1929

006530
006534

012746
012746

000340
006542

#340,-(SP)
#64$,-(SP)

;sPUT NEW PS ON STACK

1932
1933
1934
1935

006542
006546
006552
006556

005037
010537
005037
000205

011676
011702
006506

ERR
R5,LOCKAD
INTERR
RS

JRESET ERROR OCCURRED INDICATION
sSET UP LOCK ON ERROR RETURN ADDR
;CLEAR MISSED INTR FLAG

000002

HARDWARE

1940
1941
1942
1943
1944

006560
006566
006574
006602
006610

052777
042777
042777
052777
042777

000010
000200

1946
1947
1948
1949

006616
006624
006630
006632

012777
005737
001403
012777

014000
011764

002716

016000
100000

002702
002706

1950
1951
1952
1953
1954

006640
006646
006650
006652
006654

032777
001402
000005
000742
000207

001230

002772
002744
002736
002730
002722

DXRES:

5%:

10%:

BIS
BIC
BIC
BIS
BIC
MOV
TST
BEQ
MOV
BIT
BEQ
RESET
BR
RTS

.:PUT NEW PC ON STACK
;:POP NEW PC AND PS

INITIALIZATION SUBROUT INE

#10,aDXESA

#DONE ,aDXCSA
#6,aDXCSA

#1,3aDXCSA
#1230,aDXCSA
#SPW,aDX0SA

g:UMVD

#SPW+2000, aDX0SA

?8g0000.GDXCBA

DXRES

;sDISABLE DX TIME OUT, DEBUG ONLY
;CLEAR DONE AND LOCKO
JSET FUNCTION TO RESET
sISSUE THE DX RESET
;s CLEAR POTENTIAL DISASTER OF ONLINE OR INTEN
;CLEAR EA BITS ALSO
sSET UP CU OFFSET TO SPW TABLE
;1S SPW TABLE AT HOME BASE?
;BR IF YES

JSET UP ALTERNATE SPW LOCATION
;1S LOCKO ON?
BR IF NO
JWE'RE IN TROUBLE, DX DIDN T RESET
Gg Bafix AND MAKE SURE IT'S CLEARED

————————————————————————eereeee

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXxJB.P11
24-MAR-80 09:31
1956
1957
1958
1959
1960

.SBTTL

S
T TR
L TN
R
L

011712

011720
011724
002574
011600

-0

CELEE $8838838838

012737
013777
004537
177776

011724
006366

005737
001006
012716
000002
012705
000205
027727

006506

001404
004537
000003
012032
005077
042777
042777
042777
062737
062737
023737

LOOP2:

LOP2:

002564

NPR DATA ADDR UNIQUENESS TEST

EXPECTED DESTINATION.

IF YES THE WORD IS RESTORED TO MATCH THE

FOR EACH WORD

THIS IS REPEATED
IN THE BLOCK AND FOR EACH BLOCK IN MEMORY.

THIS TEST MAY NOT DETECT ADDRESSING PROBLEMS
NOTE:
WHICH ARE COMMON TO THE CPU AND DX11.
1.E. UNIBUS ADDRESSING PROBLEMS.

JSR
JSR
JSR
.WORD
MOV

RS,INIT
PC.DXRES
RS .BUF AD
101000
AVECT RO

;INITIALIZE THE SOF TWARE
SINITIALIZE THE HARDWARE
:GET STARTING BUFFER ADDRESS
:PARM MEANS INIT AND SET UP1000 BYTE BUFFER
*GET THE DX VECTOR ADDR

MOV
MOV

#340, (RO)
#1000,BUFSZE

*SET INTR PSW
:ESTABLISH BUFFER SIZE

#INTR2,(RO)+

:SET UP RETURN ADDR

JSR
MOV
MOV

PC,BUFCLR
BUFBAS,DATAD
BFBAPH.BFADPH

MOV

#100377,DXMO0

:DATA PATTERN TO BE WRITTEN BY DX

MOV

BFADPH,aDXBAA

;SET UP DX DATA ADDRESS

BIS

EACUR,@DXCSA

RS, DXGO
=2

*CLEAR THE BUFFER
:INITIALIZE DATA ADDR
:GET PHYSICAL BASE ADDR

:SET EA BITS IN THE DX11

*START THE DX
*BYTE COUNT = 2

;DX INTERRUPTS TO HERE AFTER NPR'ING A WORD

007010

INTR2:

TST
BNE
MOV

INTERR
8s
#5%,aSP

5%:

MOV

#8$ RS

“SET UP RETURN ADDR

177777

8$:

CMP

aDATAD , #-1
;ASSUME
108
RS, ERRR
3
ERR3

:DID DATA GET WHERE IT WAS SUPPOSED TO?
CPU CAN ADDRESS MEMORY CORRECTLY
:BRANCH IF OK

010752
002664
000200
000004
000030
000002
000002
011720

NPR ADDRESS UNIQUENESS

BACKGROUND, AND THE NEXT WORD IS TESTED.

JSR
LWORD

007002

002704

TST2

THIS MODULE TESTS THE DX11'S ABILITY TO UNIQUELY ADDRESS EACH
WORD OF MEMORY.
THIS TEST IS ACCOMPLISHED BY WRITING A BACKGROUND
IN A BLOCK OF MEMORY.
A WORD IS THEN TRANSFERRED FROM THE DX TO THE
THE CPU CHECKS THAT THE WORD ARRIVES AT ITS
MEMORY BLOCK.

MOV

MODULE 3.0.2

TsT12:

]

G 4
26-MAR-80 09:45 PAGE 46
MODULE 3.0.2
TST2 NPR ADDRESS UNIQUENESS

30A(1052)

002476
002510
002462
011724
011720
011714

108 :

RT]

RTS

BEQ
JSR
LWORD
.WORD

CLR
BIC
BIC

BIC

ADD
ADD
CMP

o1o WE COME HERE VIA DX INTR
BR IS NO,
STACK IS OK
*SET UP RETURN ADDR

*RELIEVE

INTERRUPT STATUS

:RELIEVE SUBROUTINE STATUS

*REPORT THE ERROR
:ERROR NUMBER THREE
:ADDR OF ERROR MESSAGE

aDATAD
#DONE ,aDXCSA
#SOSIEN,aDXESA

:RESTORE THE WORD UNDER TEST
:TURN OFF INTERRUPTS
:CLEAR FAST MODE

#2 ,BF ADPH
#2.DATAD
DATAD,BUFMAX

‘BUMP THE PHYSICAL ADDRESS
*BUMP DATA POINTER
:DONE WITH BUFFER?

#30,aDXCSA

:CLEAR POSSIBLE CARRY IN EA BITS

SEQ 0045

———————

—
e

————

———

————

ICZDXJEO

DX11-8 ADDRESSING TEST MACY11 30A(1052)

0omi00

CZDXJB.P11

012

24-MAR-80 09:31

101716

| 3014 007102 004737 006510
5015
5016
2017
5018
2019

007106
007112
007114
007116
007120

004537
001000
005701
001674
000137

010300

001410

24-MAR-80

MODULE 3.0.2

TST2

09:45

PAGE 47

NPR ADDRESS UNIQUENESS

BLOS

LOP2

:BRANCH IF NO

JSR

PC.BUFCLR

:RESTORE BUFFER

JSR
"WORD
TST
BEQ
JMP

RS BUFAD
1000
R1
LOOP?
ENDTST

“GET NEXT BUFFER
“SIZE =1000
;DID WE GET ONE?
“BRANCH IF YES
;OTHERWISE TERMINATE TEST

SEQ 0046

CZDXJBO DX11-8 ADDRESSING TEST MACY11
CZDXJB.P11
24=MAR-B0 09:31

2020

2021

264-MAR-80

ST3

09:45

<PW ADDRESSING

4
PAGE 48

.SBTTL

TST3

SPW ADDRESSING

SPW ADDRESSING TEST

2022

2023

MODULE 3.0.3

2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036

:
:
:
:
:
3
:
:
:
:
:

THIS MODULE TESTS THE ABILITY OF THE DX TO ACCESS THE STATUS
POINTER WORD (SPW) TABLE IN ALL POSSIBLE LOCATIONS IN MEMORY.
A BASE ADDRESS FOR THE SPW IS GENERATED.
THIS SPW TABLE IS FILLED WITH A PATTERN OF OOODEV
WHERE DEV IS EQUAL TO THE DISPLACEMENT OF THE WORD FROM THE
SPW BASE; I.E.
SPW BASE.
=000000
SPW BASE +1 =000001
.
o
-

gggg

SPW BASE+255=000377

2040
2041
2042
2043
2044
2045
2046
2047
2048

:
:
:
:
:
:
:
:
:

GIVING A TOTAL OF 256 WORDS FOR THE SPW TABLE WITH IMMEDIATE
STATUS EQUAL TO THE DEVICE NUMBER.
AN ISS SEQUENCE IS INITIATED WITH A DEVICE # OF 0. IF
ADRECC AND ADRECD DON'T cone ON FOR THIS DEV, NO TESTING IS DONE.
THE DEV # IS INCREMENTED, AND ISS IS DONE AGAIN.
IF ADRECC AND ADRECD COME ON IT MEANS THE DX JUMPERS ARE CUT TO
RESPOND TO THIS DEV NUMBER. THE ISS SEQUENCE IS THEN CONTINUED
UNTIL THE STATUS IS IN THE DXOS REG. THIS STATUS IS THEN
CHECKED AND SHOULD BE EQUAL TO THE DEV # IF THE SPW WAS

ACCESSED CORRECTLY.

2051

THIS PROCEDURE IS REPEATED FOR ALL 256 POSSIBLE DEVICES AT

22815.3

Sgg%

30A(1052)

2055
2056
2057
2058
2059
2061

2065

007124
007130
007134
007140
007144

004537
005037
005037
005037
004737

006530
011744
011746
011752
006560

2067

007156

004537

010300

2063

2069

007150
007162

012737

102000

000400

;

ALL POSSIBLE LOCATIONS FOR THE SPW.

3
3
2
3
:

THE FIRST RECOGNIZED DEV NO. AND COUNT OF THE FIRST
GROUP OF RECOGNIZED DEVICES IS SAVED AND PRINTED AT END
PASS TIME.
IF NO DEV IS RECOGNIZED AND ERROR MESSAGE
IS OUTPUT AT THE END OF THE TEST.

TST3:

JSR
CLR
CLR
CLR
JSR

RS,INIT
JINITIALIZE THE SOF TWARE
RECORD
+SET UP TO RECORD IBM DEV RECOG.
FRSTD
JSET TO RECORD FIRST DEV RECOGNIZED
DEVCT
;CLEAR DEVICE COUNTER
PC,DXRES
JRESET THE DX

JSR

RS ,BUFAD

011732

MOV

.WORD

007164

012737

002000

2071

007176

005037

011730

LOOP3:

2073

007

013720

011730

108:

2070

2072
2074

2075

007172

007202

007212

007216

737

013700

005237

006510

011712

011710
011730

022737 000377

011730

#400, CMD

*INITIALIZE A COMMAND OF ZERO

102000

:SPW TO BE ON 2000 BOUNDARY

PC,BUF CLR

*CLEAR BUFFER

MOV

#2000,BUFSZE

(LR

DEV

JSR

MOV

MOV
INC

CMP

BUFBAS , RO
DEV (Ré)*

czss..osv

JGET THE FIRST BUFFER ADDR

;SET UP BUFFER SIZE
*START AT DEVICE 0

‘GET SPW TABLE BASE

;MOV IMMED. STATUS TO SPW EQUAL TO DEV
JINC TO NEXT STATUS = NEXT DEV

*1S DST FULL?

SEQ 0047

J &
CZDXJBO DX11-8 ADDRESSING TEST MACY11 30A(1052)
24-MAR-80 09:45 PAGE 49
CZDXxJB.P11
24-MAR-80 09:31
TST3
SPW ADDRESSING

2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087

007224
007226
007232
007240
007246
007252
007254
007262
007270
007276
007304
007306

2089
2090
2091
2092
2093
2094
2095
2096
2097

007316
007322
007330
007336
007344
007352
007360
007366
007374

2088

—

waBeN(eNI
AV FPN

oo oo
N

2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121

007314

007402
007404
007410
007412
007414

103370
005037
013777
053777
004537
011730
113777
053777
052777
032777
001452
032777

004537
052777
042777
043777
053777
052777
043777
042777
123777

007554
060000
004000
011730
011732
002000
011732
002000
011730

001446

002302
002272

011730
011730
004000
000001

002254
002260
002252
002250

000002

002240

LOP3:

BHIS
CLR
MOV
BIS
JSR
.WORD
MOovB
BIS
BIS
BIT
BEQ
BIT

108
DEV
BFBAPH,aDX0SA
EACUR,aDXCSA
RS ,PTYGEN
DEV
DEV,aDXCAA
DEV,aDXMOA
#ADRO , aDXMOA
#1,3DXCBA
208
#2,aDXCBA

JSR
BIS
BIC
BIC
BIS
BIS
BIC
BIC
CMPB

RS, SAVDEV
;GO SAVE RECOGNIZED DEV DATA
#HLDO! SELO, 3DXMOA
;RAISE SEL OUT, HOLD OUT
#ADRO , 3DXMOA
:DROP ADRO
DEV,aDXMOA
sREMOVE DEVICE FROM BUSO
CMD , aDXMOA
;PUT CMD =0 ON BUSOUT
#CMDO, aDXMOA
;RAISE CMD OUT
CMD , 3DXMOA
sREMOVE CMD FROM BUSO
#CMDO, aDXMOA
;DROP CMD OUT
DEV,@DXOSA
;1S STATUS EQUAL TO DEV?

BEQ

002220
002212
002204

002176
002170
002162
002154
002140

:BR IF ADDR NOT RECOGNIZED

005701
001642
005737

'
011752

TST
BEQ
TST

007476
007500

001004
004537

010752

BNE
JSR

408
R5.ERRR

007504
007506

000005
012 20
37

001410

40$:

WORD
.WORD
JMP

5
ERRS5
ENDTST

PARITY ASSIGNMENT SUBROUTINE

007430
007432
007436
007442
007446
007452
007454
007460
007464

007466
007470
007472

042777

000402
004537
004737
005237
105737
001267
004737
004537
002000

010752
001000
001000
007620
005560
011730
011730

002126
002120

10s$:
208:
308 :

006510
010300

;
:

BEQ
JSR
.WORD
.WORD
BIS

208

;DO MORE IF IT IS NOT
;START AT DEV 0
;SET UP OFFSET FOR SPW
sSET UP EXT ADDR BITS
sASSIGN PARITY TO THE DEVICE BYTE
;ADDR OF DATA TO ASSIGN PARITY TO
;SET DEV TO CUAR
;PUT DEV ADDR ON BUSOUT
sRAISE ADDR OUT
IS ADRECD ON?
BR IF ADDR NOT RECOGNIZED
1 S ADRECC ON?

108
R5,ERRR
4
ERR4
#SRVO, aDXMOA
#SRVO, aDXMOA
308
R5.,DONTSV
PC ,DXRES
DEV
DEV
LOP3
PC.BUFCLR
R5 ,BUFAD
2000
R1
LOOP3
DEVCT

007422

001404
004537
000004
012071
052777

011730
011722
011716
007514

BIC

BR
JSR
JSR
INC
TSTB
BNE
JSR
JSR
.WORD

CALLED AS FOLLOWS:

JSR

RS,PTYGEN

;BR IF 0K
sREPORT ERROR
;ERROR ID
:ERROR MESSAGE ADDR
:RAISE SERVICE OUT TO RELIEVE STATUS

;DROP SERVICE ouTr

;GO HANDLE RECOGNIZED DEV DATA
;RESTORE DX
;GO TO NEXT DEV
;LAST DEV?
;BR_IF MORE DEVICES
;CLEAR OLD BUFFER BEFORE GETTING NEW ONE
;GET NEXT BUFFER BASE
:DIVISABLE BY 2000
;DID WE GET ANOTHER BUFFER?
:BR IF YES AND DO NEXT ONE
sTEST IS DONE, DID WE EVER FIND A
sRECOGNIZED DEVICE?
:BR IF YES
sERROR, NO ADREDD AND ADRECD FOR ANY
;1BM DEVICE NUMBER
;ADDR OF ERROR MSG
; TERMINATE TEST

SEQ 0048

—

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDxJB.P11
24~MAR-80 09:3

30A(1052)

W
W

.WORD

i » LU IR

D
)
)
e

PTY3:

000400

PTY4:

011744

SAVDEV:

PTYS:

011746

33 &A&

007626
007634

052737
000205

000001

LV}

NNN

011752

b —_—

2 P

005737

007620

2175

20%:

DONTSV:

011744

30%:

sASSIGNED

;GET ADDR OF DATA
;GET THE DATA
sINITIALIZE THE PARTIY SW

8vC
COM

PTY3
R2

sBR IF ONES
;OTHERWISE FLIP THE PARITY SW

BNE

PTY2

ASLB
ASLB

;CHECK A BIT

;TWO BITS GET CHECKED AT ONCE

:IF R4 = 0 WE'D BE DONE

R2
PTY4

:DID THE SWITCH END UP SET?
:BR_IF NO

PTYS
#400, (R3)

SEXIT
;CLEAR THE BIT IN THE TARGET DATA

BIS

#6400, (R3)

RTS

sRETURN

TST

RECORD

JARE WE RECORDING DEVICES FOUND?

TST

FRSTD

;1S THIS THE VERY FIRST DEV RECOGNIZED?

BR
BIC

BNE

20%

108

BIS

#1,FRSTD

MOV
INC
RTS

#1,DEVFND
DEVCT
RS

TST

DEVCT

g{g

:;,RECORD

mMOvB

10%:

sADDRESS OF DATA TO WHICH PARITY WILL BE

(R5)+,R3
(R3) ,R4
R2

BNE

000001
011730
000001
011752

SEQ 0049

MOV
(LR

TST
BMI

000400

ADDR

PAGE 50

REGISTERS R2, R3, R4 ARE DISTROYED BY THIS SUBROUT INE

TYGEN MOV

- -

012503

PTY2:

S LN,V o LSLNTNT,N

09:45

SPW ADDRESSING

RETURN HERE

i ol

n PN

2132

24-HAR-80

TS T3

BEQ

DEV,FRSTDV

308

;SET THE BIT IN THE TARGET DATA

sBR IF NO AND EXIT

:BR _IF NO

;SET _FIRST DEV FOUND SW
;SAVE FIRST DEVICE FOUND

:SET SWITCH = DEVICE FOUND
:COUNT THE DEV

JHAVE WE FOUND ANY DEV YET?

:BR _IF NO

:TURN OFF

DEV RECORDING

CZDXJBO DX11-8B ADDRESSING TEST MACY11
CZDxJB.P1
24~MAR-80 09:31

L TR TN IR TN T T BN T U L
TRT
T T

.SBTTL

2203

L &
09:45 PAGE 51
DST ACCESS TEST

MODULE 3.0.4

TST4

SEQ 0050
DST ACCESS TEST

DEVICE STATUS TABLE (DST) ACCESS TEST

THIS TEST CHECKS THE ABILITY TO ACCESS ALL BYTES OF THE
DST _IN ALL AREAS OF MEMORY.
THE OBJECTIVE IS TO CHECK LOADING
OF THE DXBA FROM THE SPW DST BASE, AND COMMAND (CUCR)

A VALID IBM DEVICE FROM TST3 IS CHECKED.
THEN A BASE ADDR
IS _GENERATED FOR THE DST.
EACH BYTE OF THE DST IS THEN LOADED

WITH ITS OFFSET FROM THE DST BASE.

A SPW ENTRY FOR THE VALID IBM DEVICE IS GENERATED WITH APPROPRIATE DST BASE AND ZERO IMMEDIATE STATUS TO ASSURE A DST
ACCESS.
AN ISS SEQUENCE IS DONE WITH THE VALID DEV AND
EVERY POSSIBLE IBM COMMAND THEREBY ACCESSING EVERY LOCATION
IN THE DST.
AFTER THE ISS, THE STATUS WILL EQUAL THE COMMAND
OR AND ERROR IS FLAGGED.

s i G-

-P

USLSTSTNTSTNTNTNISTNT.NT.NLST.NT
NN,V N}

RERSS8R ERREC28BEIRARAD2E 3

2176
2177
2178

30A(1052)
24=MAR-80
MODULE 3.0.4
TST4

011762

005134
010274
011730
011750
007514
010300

JSR
JSR

RS,INIT
PC.DXRES

.WORD
.WORD

T4MSG
0

ST
BNE
JSR

JMP

DEVFND
108
RS,PRINT

:DO WE HAVE A DEVICE?
*BR IF YES
:TEST 3 MUST BE RUN SUCCESSFULLY FIRST

END4

*ABORT TEST

CLR
MOVB
JSR
.WORD

DEV
FRSTDV.DEV
RS.PTYGEN
DEV

.WORD

100400

JSR

;INITIALIZE THE SOF TWARE
:INITIALIZE THE HARDWARE

:TO FIND AND IBM DEVICE #
:AND ASSURE GOOD SPW ACCESS CAPABILITY
:CLEAN UP CURRENT DEV NO.
:GET THE VALID DEV
*ASSIGN PARITY TO IT

RS ,BUFAD

:GET A BUFFER OF 256 BYTES

000400
006510

MOV
JSR

#400,BUF SZE
PC.BUFCLR

:SET BUFFER SIZE
:CLEAR THE BUFFER

011710

MOV

BUFBAS ,R1

:GET THE DST BASE

cMP

#255. RO

000377

CLR

MOVB
INC

BHIS
CLR

*START WITH CMD = O

RO, (R1)+
RO

:SET CMD IN DST
*NEXT CMD

108
RO

‘D0 256 BYTES

*ARE ALL STATUS = TO CMD?

011730
177400

MOV

001552
001777

MOV
BIC

#1777 .R1

011652

‘MM IN USE?

MOV

EACUR,R1

*GET EXT ADDR BITS

ASR

011716

BIC
ASL

BIS

BEQ

SWAB

DEV,RO

;GET DEVICE

“MAKE IT A WORD OFFSET

#177400,R0O

aDX0SA,R1
R1,RO

15%

RI]

:;STRIP THE PARITY BIT

:GET THE SPW BASE
“CLEAN IT UP

*ADD DEV TO OFFSET

:BR IF NO

*POSITION FOR USE IN PAR

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80
CZDxJB.P11
TST4
24=MAR-80 09:31
MODULE 3.0.4

010137
042700

172352
040000
15%:

MOV
BIC
BIS
MOV
CLRB
MOV

09:45

PAGE 52

DST ACCESS TEST

SEQ 0051

R1,a#K1PARS

;USE PARS TO GET TO SPW TABLE
;SET SPW ADDR TO USE PARS

nguLR

sSET PHY BUFFER BASE
s IMMED STATUS = 0
;SET UP SPW
sSTART WITH CMD = 0
;GET COMMAND PARITY

#40000,RO
#120000,R0

R1, (RO)
CMD
RS ,PTYGEN
CMD
EACUR,aDXCSA

sSET UP EXT ADDR BITS

DEV.,aDXCAA
;SET DEVICE TO CUAR
DEV,aDXMOA
PUT DEV_ADDR ON BUS OUT
#ADRO, 3D XMOA
ADDR OUT
#HLDO! SELO, aoxmA
: SELECT & HOLD OuT
#ADRO
,3DXMOA
:DROP ADDR OUT
DEV, aDXMOA
:DROP DEV FROM BUS
CMD , aDXMOA
:COMMAND TO BUS
#CMDO , aDXMOA

001352
011732

5%:

(MPB

010752

7%:

JSR

001000
001000
006560
011732
011732

006510
010300

001326
001320

108:

BIS

ERR6

#SRVO, aDXMOA

#SRVO, aDXMOA
PC,DXRES

CMD
CMD
LOP

208 :

JSR

011722
010272
010274

CMD , aDXMOA
#CMDO , 3DXMOA
#4,CMD
5%
aDX0SA
108
78
CMD,aDXO0SA
108
R5,ERRR

PC.BUFCLR

s COMMAND OUT
:CLR CMD FROM BUS
sDROP COMMAND OUT

;1S IT A SENSE COMMAND?

:BR IF NO
sSTATUS FORCED TO ZERO ON SENSE CMD
:BR IF GOOD
sREPORT ERROR
;1S STATUS EQUAL DEVICE?
:BR IF Y§

: ERROR IN DST ACCESS
#
H : RROR

:MESSAGE ADDR
JRELIEVE STATUS

:CLEAR THE DX

s TRY NEXT COMMAND
sDONE IF BACK TO ZERO

:BR_TO DO NEXT CMD
CLEAR OLD BUFFER

THE DX DOES NOT DO A

H IEESN ENTRY IS ALL ZEROS

001410

END4 :

JMP

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
264=MAR-80 09:45 PAGE 53
CZDXxJB.P11
24-MAR-80 09:31
BASE ADDRESS GENERATOR MODULE

SEQ 0052

.SBTTL BASE ADDRESS GENERATOR MODULE
MODULE 3.2
BASE ADDRESS GENERATOR
THIS MODULE SETS UP THE STARTING ADDRESS FOR DX BUFFERS
AND HAS RESPONSIBILITY FOR ESTABLISHING EXTENDED ADDR
BITS ,BUFFER BASE, BUFFER SIZE, AND HAS CONTROL OF
THE MEMORY MGT. REGISTERS.

KIPARG6 IS ALWAYS USED

TO ACCESS THE DXBUFFERS IF MEM MGT.

IS ENABLED.

THIS MODULE IS CALLED AS FOLLOWS:

JSR

R5 ,BUFAD

.WORD
PARM
RETURN HERE WITH R1=0 MEANS BUFFER ALLOCATED
R1=1 MEANS NO MEMORY LEFT
PARM IS DEFINED AS FOLLOWS:

BIT 15=1
BIT 15=
BITS 14:0

010300
010302,
010304
010306
010310

BUFAD:

011716

000001

011652

011710

011714

sRESET "DUT OF MEMORY'' INDICATOR
sCHECK FOR INITIALIZE SW

#ENDALL ,R2

ADD
SuB

RO,R2
#1,R0

MOV
MOV

R2 ,BUFBAS
R2.BFBAPH

#100000,RO

RO.R2

BEQ
MOV
CLR

ENDB
#6,R3
a#KIPARG

SO8

R3,108

ASR

:TO MAKE BASE DIVISABLE BY PROPER AMT.

;SAVE VIRTUAL BUFFER BASE
:SAVE PHYSICAL BUFFER BASE, SAME AS VIRT
;AT THIS POINT.
sBRANCH IF NO TO END OF MODULE
sINIT LOOP COUNTER
:START TO INITIALIZE KIPAR6

sSHIFT ADDRESS RIGHT 6 PLACES

R2 . a#KIPARG

#177700,BUFBAS

MOV

#1,a#SR0

#140000,.BUFBAS

ADD

BUFBAS, RO

MOV

RO BUFHAX

sBRANCH IF NOT TO INITIALIZE
sSTART INIT PROCESS BY CLEARING
:THE EA BITS
;GET VIRTUAL END OF PROGRAM ADDR
;CLEAR HIGH BIT OF PARAM
;OFFSET ABOVE PROGRAM
;DEVELOP A MASK

;1S KT IN USE?

BIC

BIS

ENDB:

:GET THE PASSED PARAMETER

R1
RO

MOV

e I |

172354
177700
140000
000001

108:

THIS NUMBER

NEXTB
EACUR

TST

000006
172354

(R5)+,RO

BPL
CLR

BIC

011710
011722

nNOO

005737
001421
012703
005037
006

CLR
TST

8IC

06000
162700
040002
010237
010237

016000
100000

N =

010314

MOV

INITIALIZE
TO FIRST BUFFER LOCATION
GET NEXT BUFFER LOCATION
BASE ADDR OF BUFFER MUST BE DIVISABLE BY

ENDB1

:TO ALLIGN WITH PAR

*SET UP PAR6 TO REFERENCE FIRST BUFFER

:CLEAR UP VIRTUAL BUFFER ADDR

-BUFFER ACCESS IS ALWAYS THRU PARG

“TURN ON MM

*FIND TOP OF CURRENT BUFFER
"

sSAVE VIRT END OF BUFFER

;DONE WITH INITIALIZATION

COME HERE IF NEXT BUFFER ADDR IS WANTED

011710
000077
01172
00007

011710

011722

NEXTB:

ADD

BIC
ADD
BIC

RO BUFBAS

#77 BUFBAS
RO, BF BAPH
#77 BFBAPH

sINCR TO NEXT BUFFER SPACE

;CLEAR POSSIBLE LOW ORDER BITS
:STEP PHYSICAL ADDR
;CLEAR POSSIBLE LOW ORDER BITS

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80 09:45 PAGE 54
CIDXJB.P11
24~MAR-80 09:31
BASE ADDRESS GENERATOR MODULE

2235
233
2337

2338
2339
23,0
2341

2362
2343
2344

2345

2346

010454

010456
010464
010472

010474
010500
010502
010510

010512
010520
010526

010530

010532

2347
2348

010534
010542

2350

010554

2349
2351
2352

103007

062737
023737
101125

005737
001511
032737
001417

062737
023737
103402

000010
011716

BCC

011716
011704

011652

28:

020000

011710

000200
172354

172354
011650

042737
052737

INC

177700
140000

010550

013703

011710

010556
010562

032703
001322

020000

060003

ST
BEQ
BIT
nEQ

ADD
CMP
BLO

005201

000506

ADD
CMP
BH]

011710
011710

5$:

108:

B8R

BIT
BNE

#20000,R3
NEXTB

2360

010614

020327

000004

2362
2363
2364

010622
010626
010630

013703
060003
103677

011722

2367
2368
2369

010632
010636
010640

005737
001010
020337

011716

011644

2371

010646

023737

011722

011646

010656

000664

012777
005037
020327

014000
011764
014000

000654

010700

023727

011722

016000

2380

010710

012777

016000

000624

2383

010724

011710

011714

2361

2365
2366

2370

2372

2373

2374
2375
2376

2377

2378

2379

2381
2382

2384
2385

2386
2387
2388

010620

010644

010654

010660
010666
010672

010676

010706

103055

101452

101405

103001

101411

103005

010716
010722

005237
000412

011764

010732
010736

060037
023737

011714
011714

010744
010746
010750

013737

101401
005201
000205

R3, 44

:WAS THERE A CARRY OUT OF TOP BANK?

MmOV
ADD
BCS

BFBAPH,R3
RO,R3
NEXTB

ST
BNE
CMP

EACUR
3s
R3,MSIZE

BFBAPH , MMAX

NEXTB

*GO BACK AND cer A BETTER BUFFER ADDR

158

‘BR IF OK

158

:BR IF NO

SPWMVD
ENDB1

;SET SPW ADDR MOVED TO ALTERNATE SWITCH
GO TO END OF MODULE

8LOS

MOV
CLR
CMP

BLOS

011644
308:
ENDB1:

308

#SPW, aDXOSA
SPWMVD
R3, #SPW

:BR IF YES, SET DONE SW

:BR IF YES, WE MUST BE DONE

:GET PHYSICAL BUFFER BASE
:FIND TOP OF PHY BUFFER
:BR IF CARRY OVER 32K BNDRY

:AND GO BACK AND GET A BUFFER WHICH DOESN'T
:STRADDLE A 32K BOUNDARY

:ARE WE IN THE FIRST BANK?
*BR IF NO
:ARE WE IN THE LOADER AREA?
:BR IF OK

;1S BUFFER ABOVE LOADERS?

*BRANCH IF WE'RE OK

:SET UP SPW ADDR
:CLEAR SPW BASE ADDR MOVED SWITCH
*IS TOP or BUFFER IN SPW?

CMP

BFBAPH, #SPW+2000

MOV

#SPW+2000,3DXO0SA’

MOV

BUFBAS ,BUFMAX

BLOS
INC
RTS

ENDB1
R1
RS

BHIS

15¢:

:CALCULATE TOP OF BUFFER

:DIT IT CARRY ACROSS A PAR BOUNDARY
:BR IS YES. GO BACK AND GET A BETTER ADDR

CMP

BHIS

20$:

RO,R3

:START BUFFER BASE OVER
:ACCESS THROUGH PAR6

:SAVE TOP OF BUFFER ADDR
:GET PHYSICAL BUF BASE
:ADD BUFFER SIZE TO GET BUF TOP
:ARE WE IN THE TOP PHYSICAL BANK?
:BR IF NO
*ARE WE OVER THE TOP OF MEM?

BLOS

3$:

#177700,BUFBAS
#140000,BUFBAS

SWITCH

R3,BUFMAX
BFBAPH,R3
RO,R3
EACUR,EABITS
128
R3, PHYMAX

BHIS

i28:

:SET THE "'ALL DONE''

*GET THE BASE ADDR

011706

010612

BUFBAS ,R3

ADD

MOV
MOV
ADD
CMP
BNE
P

2359

#200,a#KIPAR6
:TAKE A 4K STEP
MK IPARG ,EASIZE ;CHECK FOR TOO HIGH
58
*BRANCH IF OK
S

MOV

BIC
BIS

010337
013703
060003
023737
001006
020337

011704

*1S MEM MNG IN USE?
*BRANCH IF NO
:WAS THERE A CARRY TO ACCESS NEXT PAR?
‘BR IF NO CARRY

SEXIT

010564
010570
010574
010576
010604
010606

011716

KT
208
#20000,BUFBAS
108

:BR IF NO CARRY

:STEP EXTENDED ADDR BITS
:HAVE THE EXT ADR BITS GONE TOO HIGH?
:BR IF YES TO SET ALL DONE SW AND EXIT

ENDB1

2353
2354
2355
2356
2357
2358

011714
011722

#10,EACUR
EACUR,EABITS
308

SEQ 0053

INC
BR

ADD
CMP

RO, BUFMAX
BUFMAX,MSIZE

;1S BUFFER BASE IN TT?

:MOV THESPW

-START TO GET BUFMAXIMUM

:ADD IN BUFFER SIZE
-SEE IF WE'RE OUT OF MEMORY

‘BR IF OK
*SET OUT OF MEMORY SWITCH
:RETURN FROM MODULE

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052) 324-HAR-80 09:45 PAGE 55
CZDxJB.P1
24-MAR-80 09:31
REPORT ERRORS
MODULE 3.

SEQ 0054

.SBTTL _MODULE 3.3
REPORT ERRORS
MODULE 3.3
ERROR REPORTING
CALLED AS FOLLOWS:

JSR

R5,ERRR

"WORD

WORD

RETURN (UNLESS LOCK ON ERROR FUNCTION OVERRIDES RETURN)
X EQUALS ERROR IDENTIFICATION NUMBER
Y EQUALS ADDR OF UNIQUE ERROR MESSAGE
THIS MODULE FORMATS AND PRINTS ERROR MESSAGES AND HANDLES

ERROR OPTIONS SUCH AS INHMIBIT ERROR MESSAGES, SHORT ERROR

26406
26407
2408

010752
010760
010762

032777
001401
000000

100000

2410

010764

013737

011666

2612

010774

011002

26414
2615

011002
011002

012746
000002
005737

011700

26417

011010

032777

040000

2619

011020

013705

011702

170160

011044
011046
011052
011056
011062
011066

000402
005037
010537
012537
012537
032777

011700
011734
011736
011740
020000

2431

011076

000137

011520

004537
012762

162737
004537
011734
100001
004537
012775
000001
004537
011736
100001

BIT

#SW15,aSWR

HALT

26264
2425
2626
26427
2628
2429

011102
011106
011110
011112
011120
011124
011126
011130
011136
011136
011140
011144
011146

SCOPE LOOP, HALT ON ERROR, ETC.

BEQ

011676

5$:

648:

MOV
CLR

170122

170044

CTESTN,ERR

-(SP)

#64$,~(SP)

LOCK

BIT

#SW14,aSWR

RTI

BEQ

15%:
20%:

MOV
BEQ

2421 011026 032;(7); 040000 170104 10$:
2423 011036 8?37% 011666 011700

2432
26433
2434
2635
2636
2437
2438
2639
2440
2441
2442
2443
2444

REPORT,

MOV
RTS

S:POP NEW PC AND PS

;ARE WE LOCKED ON ERROR?

‘BR IF NO

LOCKAD ,RS

:SCOPE LOOP SW ON?

*GET THE LOOP ADDR
260 TO IT

BIT

#5W14,aSWR

engv

55ESTN'L°C"

15%

*BR IF NO

CLR

LOCK

:TURN OF LOCKED SW

MOV
BIT
BEQ
JMP

(R5) + ,ERRMS
#5W13.3SWR
25%

;SAVE ERROR MESSAGE ADDR
s INHIBIT PRINT ON?

:BR IF NO

ERPC

:ADDR OF MESSAGE

BEQ

MOV
MOV

RS, ERRPC
(R§)+,ERRID

0
#4 ,ERRP(
RS ,PRINT

005134

JSR

RS ,PRINT

005134

JSR

RS ,PRINT

.WORD

100001

011734

*:PUT NEW PC ON STACK

15%

.WORD
su8
JSR

000004
005134

;SET ERROR DETECTED SW

“:PUT NEW PS ON STACK

*BR IF NO

JSR

25%:

su1s ON AND ERROR OCCURRED.

108

97%
RS ,PRINT

005134

sHALT ON ERROR ON?

:BR IF NO

.WORD

.WORD
.WORD

.WORD

ERRPC
100001
ERNO
1

ERRID

:SCOPE LOOP ON?
*SET LOCKED ON ERR SW

*SAVE ERR P(
*SAVE ERROR ID

: TERMINATE MODULE
:PRINT ERRP(
sNO SPECIAL PRINT CONTROLS
;BACKUP ADDR TO CORRECT VALUE
;PRINT

THE PC NUMBER ITSSELF

sNO CRLF, CONVERT TO ASCII

;PRINT ERROR NUMBER ON SAME L INE
s INHIBIT CRLF

sPRINT THE OCT

DX11-8 ADDRESSING TEST MACY11 30A(1052) 324-HAR-80
24-MAR-80 09: 31

WO
—=WH~N
NO=Nywn~N

SN —

N WNWWN

000005

011736

ERRMS , 308

RS,PRINT
0
0

;PRINT THE OCTAL TEST NO.

100001
#5 . ERRID

;1S IT ERROR #5?

RS,PRINT

*PRINT VIRT ADDR

RS,PRINT
BUFBAS
100001

:PRINT VIRT ADDR OCTAL

—

;1S MEM MGT

IN USE?

005134

0
RS ,PRINT

:PRINT PHYSICAL ADDR OCTAL

RS ,.PRINT

:PRINT EA BITS

EACUR, EAERR

:GET

BFBAPH
100001

011742

8=Noroeor§§§
W

:BR IF YES, REST OF STUFF IS MEANINGLESS

*BR IF NO WE'RE DONE
*PRINT PHYSICAL ADDR

000003

90%:

EAERR
EAERR
EAERR
RS,PRINT
EAERR
100001

ERRID,#3

011736

000004

011730

011760

011736

000006

000004

011732

011760

93%:

94%:

THE EA BITS

*POSITION BITS
:
TOBITS 1:0

;PRINT THE OCTAL EA BITS

;IS IT ERROR NO. 3?

93$%

:BR IF NO

RS,PRINT
DATAD
100001
ERRID, #4
94$
DEV,EXP

:PRINT DATA ADDR OCT

;1S IT ERROR #4?
*BR IF NO
“GET DEV #

ERRID, #6
95%

;1S IT ERROR #6?
*BR IF NO

RS,PRINT
8AYAA

005134

N
~

*SHORT ERROR REPORT ON?

908
RS ,PRINT

W —

—

:GET MESSAGE POINTER

:PRINT THE UNIQUE MESSAGE
*FILLED FROM TWO LINES UP
:NO SPECIAL CONTROLS

RS,PRINT
CTESTN

SABI T

—_—

SEQ 0055

:BR IF YES, WE'RE DONE
*PRINT TEST NO.

SRADR

011652

5
PAGE 56

95%
RS,PRINT

95¢

005134

REPORT ERRORS

SRTN

005134

—

09:45

#SW12,aSWR

—

MOV

30%:

Bmmwggm T

et 4}

t=l=t=2=1

167744

wviwviun

[+ % 21 STe 0 5

011162

—

o RERRES

8-‘-‘-‘—‘—.—‘ —

- ) —d - -l - )l D ) )
) —d D —d ) —d —
D ——d e
D =D

WWWWWWW

) )
) ) —d —d —d )
- —
) — ——d

MODULE 3.

013737
004537

Y, LY, |
NN

) —
)
) —d
) —h —d —h —h — — )

R R o o o o
WO
= —

—
— v

n
»
~N
N

) —-d - —d i D ) ) D e e e D

D D
) e

&KNONON
N ANIRRERR ¥ NN
u-da§8§
3 2V(o 0 e R X V]

) D D d D D d e e i e
) — - ) D D ) ) el D e

) e
e e

jelelelelelelelelelolalelelelelelelelelelelelelelelelelelelelelelelalelolelelalolelololalelelelelolalololelelele]

CZDxJB.P11

o
LAY

| CZDXJBO

#4, CMD

98%

gg:

*PRINT DATA ADDRESS ASCII

“WAS IT A SENSE CMD?

:BR IF NO

“EXPECTED STATUS IS ZERO FOR SENSE

98%:
96%:

- WORD

011460

011464
011466
011470
011474
011476
011500
011504
011506
011510
011514
011516
011520
011526
011530
011532

MOvB
mMOvB
JSR

CMD ,EXP
aDX0SA ,ACTU
RS ,PRINT

sGET EXPECTED CMD
sGET ACTUAL STATUS
;PRINT ACTUAL MESSAGE

RS ,PRINT
ACTU
100001
RS ,PRINT

sPRINT STATUS OCTAL

gifiPRINT

sPRINT EXPECTED OCTAL

BCTUHS

%XPHS

95%:

000042

97%:

99%:

100001

RS ,PRINT

8RLF1

#SENDAD , a#4?2

99%
RS

sPRINT EXPECTED STATUS

;SPACE THE PAPER

JUNDER ACT?

;BR IF NO

JHALT ON ACT ERROR

JRETURN FROM MODULE

MMMMM
. P T S S e

011760
011756

mmMmmMmMmMmMmMmmmmmmmmmmmm

506

2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522

011434
011442
011450
011454
011456

SEQ 0056

P
)

2501
2502
2503
2504
2505

ST MACY11 30A(1052) SZL-HAR-BO 09:45 PAGE 57
REPORT ERRORS
MODULE 3

PN NN

CZDXJBO DX11-8 ADDRESSI
(ZDxJB.P11
24-MAR-80

000000
000000

DXDSA:
DXCAA:

.WORD
.WORD

0
O

2532

011544

000000

DXBAA:

.WORD

2530
2531

2533
2534
2535
2536
2537
2538
2539

2540
2541
2542
2543
2544
2545
2546
2547
2548

011540
011542

000000
000000

011546
011550
011552
011554
011556
011560
011562

000000
000000
000000
000000
000000
000000
000000

011566
011570
011572
011574
011576
011600
011602

000000
000000
000000
000000
000000
000000
000000

011564

000000

DXCSA:
DXOSA:
DXBCA:
DXMOA:
DXMIA:
DXCBA:
DXNDA:
DXESA:
DXMOBA:

.WORD
.WORD

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

DXEST1A: .WORD
:
REGS TO
DXDSO:
.WORD
DXCAO:
.WORD
DXCSO:
.WORD
DX0SO:
.WORD
DXBAO:
.WORD
DXMOO:
.WORD
DXBCO:
.WORD

Y
S
e

011534
011536

;DEVICE STATUS REG ADDR.
; COMMAND AND ADDR REG ADDR.

O
O

sCONTROL UNIT STATUS REG ADDR
;OFFSET AND STATUS REG ADDR.

0
O
O
O
0
0
0

;BYTE COUNT REG ADDR
sMAINTENANCE OUT REG ADDR.
sMAINTENANCE IN REG ADDR
;CONTROL BITS REG ADDR
sNPR DATA REG ADDR
sEXTRA SIGNALS REG ADDR
sMAINTENANCE OUT BUFFERED REG ADDR

;BUS ADDRESS REG ADDR

0
:EXTRA EXTRA SIGNALS REG ADDR.
BE OUTPUT TO DX
0
;DEVICE STATUS REG OUT
O
:COMMAND AND ADDR REG OUT
O
sCONTROL UNIT STATUS REG OUT
0
;OFFSET AND STATUS REG OUT
0
;BUS ADDR REG. OUT
O
;MAINT OUT REG ADDR
O

e lelolelelelelel
el el el el N N N R Nop N W o I

2528
2529

lalalalolale el ]

DX ACCESS TABLES

—

5353

:
:
:

SEQ 0057

2523

2524
2525

30A(1052)
24-MAR-80 09:45 PAGE 58
MODULE 3.3
REPORT ERRORS

il MMMt
TM

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXxJB.P11
26-HAR-80 09:31

CZDXJBO

DX11-8B ADDRESSING TEST MACY11

CZDXJB.P11

2550
2551
2552

2553
2554
2555
2556
2557

011604
011604
011606
011610
011612

24~MAR-80 09:31

30A(1052)

MODULE 3.3

3
:
2

000001
176200
000300
000004

DPAR:
DTESTN:
DUBA :
DVECT:
DPRIOR:

24=MAR-80

09:45

PAGE 59

REPORT ERRORS

DEFAULT PARAMETER TABLE

.WORD
WORD
.WORD
.WORD

1
176200
300
4

;STARTING TEST NUMBER
:DEFAULT UNIBUS BASE ADDR
sDEFAULT VECTOR ADDR
;DEFAULT DX PRIORITY LEVEL

SEQ 0058

sLOWEST POSSIBLE TEST NUMBER
sHIGHEST POSSIBLE TEST NUMBER
;LOWEST POSSIBLE UNIBUS ADDRESS
sHIGHEST POSSIBLE UNIBUS ADDRESS
;LOWEST POSSIBLE DX VECTOR ADDRESS
sHIGHEST POSSIBLE DX VECTOR ADDRESS
;LOWEST POSSIBLE FOR LEVEL
sHIGHEST POSSIBLE FOR LEVEL

1
4
160000
177756
40
776
O
6

LTESTN:
HTESTN:
LUBA:
HUBA :
LVEC:
HVEC:
LPRIOR:
HPRIOR:

LPAR:

WP WP WP W W

000001
000004
160000
177756
000040
000776
CO00000
000006

e WD WD W

011614
011616
011620
011622
011624
011626
011630
011632

011614

S M

2565
2566
2567
2568
2569
2570
2571
2572

INPUT PARAMETER LIMITS TABLE

SEe S

2564

3
3
3

2561
2562
2563

2560

SEQ 0059

e S

2559

30A(1052)
24-MAR-80 09:45 PAGE 60
MODULE 3.3
REPORT ERRORS

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZ2DxJB.P11
24=MAR-80 09:31

—

—— —

e B

-_—

Ul SR Gl S

—_—

e e o

—

e
—

——
l

CZDXxJ20 DX11-B ADDRESSING TEST MACY11
: 3
CZDxJB.P11
24-MAR-80 09:3

30A(1052)

24-MAR-80 09:45
PAGE 61
REPORT
ERRORS
MODULE 3.3

2573
2574

:
:
:

ACTIVE PARAMETER TABLE

2577

THIS TABLE CONTAINS CONFIGURATION PARAMETER CURRENTLY

APAR:
ATESTN:
AUBA:
AVECT:
APRIOR:
MSIZE:
MMAX:
EASIZE:
KT:
FIRSTP:
TPS:
P8
TKS
TDB:
CTESTN:
PARMV:
COUNT:
CNT:
ERR:
LOCK:
LOCKAD:
EABITS:
PHYMAX:
BUFBAS:
BUFSZE:
BUFMAX:
EACUR:
DATAD:
BFBAPH:
BFADPH:
SPWPHY:
DEV:
CMD :
ERRPC:
ERRID:
ERRMS:
EAERR:
RECORD:
FRSTD:
FRSTDV:
DEVCT:
DEVMSS:
ACTU:
EXP:
DEVFND:
SPWMVD:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
.WORD
_WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

gg;g

2578

2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624

011634
011634
011636
011640
011642
011644
011646
011650
011652
011654
011656
011660
011662
011664
011666
011670
011672
0116
011676
011700
011702
011704
011706
011710
011712
011714
011716
011720
011722
011724
011726
011730
011732
011734
011736
011740
011742
011744
011746
011750
011752
011754
011756
011760
011762
011764

000000
000000
000000
000000
000000
C00000
000000
000000
000000
177564
177566
177569
177562
000000
000000
000001
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000400
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

IN USE.

O
O
O
0
O
O
O
0
0
177564
177566
177560
177562
O
0
1
0
O
O
O
O
O
0
0
O
0
0
0
O
0
400
0

0
0
0
0
O

0
0
0
O
0
0
O

;STARTING TEST NO.
;DX UNIBUS BASE ADDR.
;DX VECTOR ADDRESS
;DX PRIORITY LEVEL
;ADDR OF LAST WORD OF MEM, NOT INCLUDING LOADERS, KT OFF
;LAST WORD OF MEM, KT OFF
;LOWEST INVALID SETTING OF PAR
:=0 NO KT IN USE =1 KT IN USE
:0_IF FIRST PASS, 1 IF NOT FIRST PASS
;TTY PRINTER STATUS REG ADDR
;TTY PRINTER BUFFER REG ADDR
;TTY KEYBOARD STATUS REG ADDR
;TTY KEYBOARD BUFFER.
;CURRENT TEST NUMBER
:0_IF PARMS NOT VALID, 1 IF THEY ARE VALID
s ITERATION COUNT CONSTANT
s ITERATION VARIABLE
:1F ERROR DETECTED, CONTAINS TN
;SW=TN IF LOOP SW 14 ERR DETECTED
;LOCK ON ERROR ADDR
sHIGHEST VALID SETTING OF ADDR 17 16
sLOWEST INVALID PHYSICAL ADDR, LOW 16 BITS
:START OF CURRENT WORKING BUFFER, VIRTUAL
;SIZE OF CURRENT BUFFER IN OCT BYTES
:
sMAX VIRTUAL ADDR FOR THIS KT SETTING
sCURRENT SETTING OF EA BITS
s CURRENT DATA ADDR
: CURRENT PHYSICAL BUFFER BASE ADDR
s CURRENT PHYSICAL DATA ADDR
;PHYSICAL ADDR OF SPW START
: CURRENT IBM DEVICE NO.
sCURRENT IBM COMMAND WITH PARITY BIT
;PC WHERE ERROR WAS DETECTED
;ERROR NUMBER
sADDR OF UNIQUE ERROR MESSAGE
;EABITS ON ERROR
sSWITCH TO CONTROL DEV REC RECORDING
sFIRST DEVICE RECOGNIZED SW
sFIRST DEVICE RECOGNIZED NUMBER
sFIRST DEVICE GROUP COUNT
;DEVICE MESSAGE PRINTED SW
;ACTUAL DATA
JEXPECTED DATA
;= 1 IF DEVICE EVER RECOGNIZED
:= 1 IF SPW TAPLE IN ALTERNATE LOCATION

SEQ 0060

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXxJB.P1
24~MAR-80 09:31

2625
2626
2627
2628
2629
2630
2631
2632

011766
011774
012002
012010
012012
012020
012026

26
2635
2636
2637
2638

30A(1052)
_24-MAR-80 09:45
PAGE 62
MODULE 3.3
REPORT ERRORS

ERR1:

.NLIST
.ASCIZ

BIN
/FAST NPR DATA ERROR/

ERR2:

.ASCIZ

/NO DX INTERRUPT/

012032
012040
012046
012054
012062

ERR3:

.ASCIZ

/DX ADDRESSING ERROR, DATA XFER/

2640

012071

ERR4:

.ASCIZ

/SPW ACCESS, ADDR ERROR/

2644

012120

ERRS:

.ASCIZ

/NO IBM DEV ADR RECOGNIZED.

2652

012174

ERR6:

.ASCIZ

/DST ACCESS ERROR/

2655

012215

T4MSG:

.ASCIZ

/TST3 MUST BE RUN FIRST FOR TST &4 TO WORK/

2662

012266

HEADER:

.ASCII

'CZDXJBO

2669

012335

LASCII

"TYPE:

012374

LASCIT

<P>,

2427

LASCIT

<S>, SELECT PARAMETERS'<15><12>

<12675

CHECK A20 MODULE/

DX11B MEMORY ADDRESSING TEST'<15><12>

<D>, DEFAULT PARAMETERS'<15><12>

PREVIOUS PARAMETERS'<15>

SEQ 0061

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXJB.P11
24-MAR-80 09:31

K 5
30A(1052)
_24-MAR-80 09:45 PAGE 63
MODULE 3.3
REPORT ERRORS

SEQ 0062

.ASCIZ

INVM:

.ASCIZ

*INVALID ENTRY'

INVPRM:

LASCIZ

'NEED MORE PARMS'

PROMPT
:

.ASCIZ

y KRN

TESTN:

.ASCIZ

'STARTING TEST NO.

BASEA:

.ASCIZ

'BASE ADDRESS

VECTA:

LASCIZ

'VECTOR ADDRESS

PRILV:

.ASCIZ

‘DX PRIORITY LEVEL

SETSW:

.ASCIZ

"SET SWITCHES °

BELL:

.ASCIZ

<207>

.ASCIZ

'INPUT PARAMETER OUTSIDE LIMITS'

ERPC:

.ASCIZ

'ERROR PC:

ERNO:

.ASCIZ

ERTN:

.ASCIZ

'TEST NO.:

ERADR:

LASCIZ

'VIRT ADDR OF BUFFER BASE:

<N>,

START AT

THIS TEST NO.'<15><12>

012434
012442

*
'
'

'END PASS'

ERADPH: LASCIZ

'PHY ADDR OF BUFFER:

T
T T E TR
T
AT

°*

—

0
13046
13054

ERR NO.:

—a

—_— -2

—E

°*

CZDXJBO DX11-8 ADDRESSING TEST MACY11 30A(1052)
26=MAR-80 09:45
PAGE 64
(ZDxJB.P11
24-MAR-80 09:31
E 3.3
REPORT ERRORS

2737
2738
2739
27640
2741
2742
27643
2744
2745
2746
2747
2748
2749
2750

0
013072
013100
013104
013112
013120
013125
013132
013140
013146
013154
013161
013166
013174

2754

EABIT:

,ASCIZ

‘'EA BITS INOCT:

DATAA:

.ASCIZ

°'VIRT ADDR OF ACCESS ERROR:

DEVMS:

.ASCIZ

'1ST IBM DEV RCGNZD.

013217

DEVCMS:

.ASCIZ

°'SIZE OF 1ST DEV GROUP:

2759

013250

ACTUMS:

.ASCIZ

‘ACTUAL:

2761

013262

EXPMS:

.ASCIZ

‘'

2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781

013300

CRLF1:

.ASCIZ

/ /<15><12>

013304

012

2783
784
2785
2787
2788
2789
2790
2791
2792

014000
014000
014002
014004
014006
014010
014012
014014
014016
014020
014022
014024
014026
014030
014032
014034
014036
014040
014042
014044
014046
014050

014000
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002

OCTAL:

°*

EXPECTED:

INBUF:

SPW:

°*

.LIST
.EVEN

BIN

.BYTE

;KEYBOARD INPUT BUFFER

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

;START OF STATIONARY SPW TABLE USED ONLY TO
:FIELD UNEXPECTED ERRORS.
;STATUS OF UNIT CHECK WITH NO DST ACCESS
:STATUS OF UNIT CHECK WITH NO DST ACCESS
:STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
<STATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS

.=14000
.WORD
WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
WORD
WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD
.WORD

: INBUF MUST BE ON AN EVEN WORD BOUNDARY

SEQ 0063

:STATUS
:STATUS
:STATUS
:STATUS
;STATUS
:STATUS
:STATUS
:STATUS
;STATUS

:STATUS

:STATUS
:STATUS

:STATUS
;STATUS

;:STATUS
:STATUS
:STATUS
;STATUS

:STATUS

;STATUS
;STATUS
:STATUS
:STATUS
:STATUS
:STATUS
;STATUS
:STATUS
:STATUS
;STATUS
;STATUS
:STATUS
:STATUS
;STATUS
;STATUS

;STATUS
:STATUS

;STATUS
:STATUS
;STATUS

;STATUS

;STATUS
;STATUS
:STATUS
;STATUS
:STATUS
:STATUS
:STATUS
:STATUS
:STATUS

:STATUS
:STATUS
:STATUS

:STATUS
:STATUS

;STATUS
;STATUS

R R R R R R R R R R R R R R R R R AR RRRRRRRRRRRRRRRRRRRRKRKRRRRRRRFRRIRIRR

014052
014054

LS LS LS LN R LS LS LN LS LS SN LS IS UN ON DN NN NN N LS LS LS LS LS LSS LSO LSS LN LN LS LSTSTSTSTNTSTSTNTNT ST NTSTSTSTSTSTNT NT.NTN)

M5
CZDXJBO DX11-8 ADDRESSING TEST MACY11 33861052% 24-MAR-80 09:45 PAGE 65
CZDxJB.P11
24=MAR-80 09:31
3
REPORT ERRORS

SEQ 0064
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS

5
PAGE 66

;STATUS
:STATUS

:STATUS
;STATUS
;STATUS
;STATUS
;STATUS

;STATUS
;STATUS
;STATUS
;STATUS
:STATUS

;STATUS
:STATUS

:STATUS
;STATUS

;STATUS
;s STATUS
;STATUS

;STATUS

;STATUS
:STATUS
:STATUS
:STATUS

;STATUS
;STATUS

;STATUS
:STATUS

;STATUS

;STATUS
:STATUS
;STATUS
;STATUS
:STATUS

;STATUS

;STATUS OF

UNIT
UNIT
UNIT

WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS

BEEEEEEEEEEEEEEEEEEREEEE

;STATUS

SEQ 0065

ACCESS
ACCESS

ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
WITH NO DST ACCESS
WITH NO DST ACCESS
IXTIIIIIIIIIIIIIIX IXIIXIIIIX

;STATUS
:STATUS
;STATUS
;STATUS
;STATUS
:STATUS
;STATUS
;STATUS
;STATUS
:STATUS
:STATUS
;STATUS
:STATUS
:STATUS
:STATUS
;STATUS
;STATUS
:STATUS
;STATUS

R RRRRRRRRRRRRRRRRRRRRRRRRRRR[RRKIRR

REPORT ERRORS

WIT

333444443944
44343 433994

4400

014402
014404
014406
014410

09:45

RRRRRRRRR R R RR RRRRRR

2849

24=MAR-80
LSS LA LS LS VLSS LN LS OSSN N NN TS LN LS ENDSTN LN NSNS LN LS LNONTN TSN LSTNTS TN NSNS NLSTSTNTNTNTNTNTNTNTNTNTNYn

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
CZDxJB.P11
MODULE
24=MAR-80 09:31

B 6
(ZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
_24~MAR-80 09:45 PAGE 67
CZDxJB.P11
24-MAR-80 09:31
MODULE 3.3
REPORT ERRORS

2905

2906
2907
2908
2909
2910
2911
291§
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928

2929

2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953

2955
2956
2957
2958
2959

014412
014414
014416
014420

014422
014424
014426
014430
014432
014434
014436
014440
014442
014444
014446
014450
014452
014454
014456
014460
014462
014464
014466
014470
014472

014474
014476
014500
014502
014504
014506
014510
014512
014514
014516
014520
014522
014524
014526
014530
014532
014534
014536
014540
014542
014544
014546
014550
014552
014554
014556
014560
014562
014564
014566
014570

000002

000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002

000002

000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002

‘

.WORD

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

.WORD

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

2
2
¢
2

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

;STATUS OF
;STATUS OF
;STATUS OF
;STATUS OF

;STATUS OF
;STATUS OF
;STATUS OF
;STATUS OF
;STATUS OF
;STATUS OF
;STATUS OF
sSTATUS OF
;STATUS OF
sSTATUS OF
;:STATUS OF
:STATUS OF
;STATUS OF
;STATUS OF
sSTATUS OF
:STATUS OF
;STATUS OF
:STATUS OF
:STATUS OF
;STATUS OF

UNIT CHECK WITH NO DST ACCESS

UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS

;STATUS OF UNIT CHECK WITH NO DST ACCESS

;STATUS OF UNIT CHECK WITH NO DST ACCESS
:STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
:STATUS OF UNIT CHECK WITH NO DST ACCESS
:STATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
:STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
sSTATUS OF UNIT CHECK WITH NO DST ACCESS
:STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
:STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS

SEQ 0066

C 6
CZDXJBO DX11-8 ADDRESSING TEST MACY11 30A(1052)
24-MAR-80 09:45 PAGE 68
CZDXxJB.P11
24-MAR-80 09:31
MODULE 3.3
REPORT ERRORS

2961

296%
2963
2964
2965
2966

2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979

2980
2981
2982
2983

2985
2987
2988
2989
2990
2991
2992

2993
2995

2997
2998
2999
3000
3001
3002
3003
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016

014572

014574
014576
014600
014602
014604

014606
014610
014612
014614
014616
014620
014622
014624
014626
014630
014632
014634
014636

000002

.WORD

000002
000002
000002
000002
000002

000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

2
2
2
2
2

2
2
2
2
2
2
2
2
2
2
2
2
2

014640
014642
014644
014646
014650
014652
014654
014656
014660
014662
014664
014666
014670

000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002

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

2
2
2
2
2
2
2
2
2
2
2
2
2

014674
014676
014700
014702
014704
014706
014710
014712
014714
014716

000002
000002
000002
000002
000002
000002
000002
000002
000002
000002

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD

2
2
2
2
2
2
2
2
2
2

014672

014720
014722
014724
014726
014730
014732
014734
014736
014740
014742
014744
014746
014750

000002

000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002
000002

WORD

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

2
2
2
2
2
2
2
¢
2
2
2
2
2

sSTATUS OF
;STATUS OF
;STATUS OF
;STATUS OF
;STATUS OF
sSTATUS OF
sSTATUS OF
;STATUS OF
sSTATUS OF
:STATUS OF
;STATUS OF
:STATUS OF
sSTATUS OF
;STATUS OF
sSTATUS OF
sSTATUS OF
:STATUS OF
;STATUS OF
sSTATUS OF

SEQ 0067

UNIT CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT CHECK WITH NO DST ACCESS
UNIT
UNIT
UNIT
UNIT
UNIT

sSTATUS
sSTATUS
;STATUS
;STATUS
sSTATUS
:STATUS
;STATUS
sSTATUS
sSTATUS
sSTATUS
;STATUS
;STATUS
;STATUS

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS
CHECK WITH NO DST ACCESS

:STATUS
sSTATUS
:STATUS
:STATUS
sSTATUS
sSTATUS
;STATUS
:STATUS
;STATUS
:STATUS

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

sSTATUS OF UNIT CHECK WITH NO DST ACCESS

:STATUS OF
;STATUS OF
:STATUS OF
;STATUS OF
;STATUS OF
:STATUS OF
;STATUS OF
;STATUS OF
:STATUS OF
;STATUS OF
sSTATUS OF
;STATUS OF
;STATUS OF

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST
CHECK WITH NO DST

ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS

—

CZDXJBO DX11-8B ADDRESSING T EST MACY11
CZDxJB.P1
24-MAR-80 09:3 1

3017
3018
3019
3020
3021
3022

3023
3024
3025

3026
3027
3028
3029

3030

014752
014754
014756
014760
014762
014764

014766
014770
014772
014774
014776

015000
016000

30A(1052)
MODULE

3.3

_24-MAR-80

000002
000002
000002
000002
000002
000002

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

000002
000002

.WORD
WORD
WORD
.WORD

000002
000002
000002

000001

.WORD

IT:
ENDALL
:

.END

09:45

PAGE 69

REPORT ERRORS

2
2
2
2
2
2
2
2
2

2
2

;STATUS
;STATUS
sSTATUS
;STATUS
;STATUS
;STATUS

OF
OF
OF
OF
OF
OF

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

SEQ 0068

CHECK
CHECK
CHECK
CHECK
CHECK
CHECK

WITH NO DST
WITH NO DST
WITH NO DST
WITH NO DST
WITH NO ST
WITH NO DST
;STATUS OF UNIT CHECK WITH NC DST
;STATUS OF UNIT CHECK WITH NO DST
;STATUS OF UNIT CHECK WITH NO DST

ACCESS
ACCESS
ACCESS
ACCESS
ACCESS
ACCESS

ACCESS
ACCESS
ACCESS

;STATUS OF UNIT CHECK WITH NO DST ACCESS
;STATUS OF UNIT CHECK WITH NO DST ACCESS

;START OF STATIONARY TUMBLE TABLE

CZD!JEO

DX11-8 ADDRESSING TEST MACY11

!czoua P11
IA(TU

24-MAR-80 09:31

2502+
2 504
608#
25794
814+

2507
275
2084

812+

830+

728

813+
1520

832+

811+

E 6
30A(1052)
264-MAR-80 09:45 PAGE 71
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0069

26214
2091
870+

829+
856+
863+

2244

25834
849+

2246

901
1835

885+
25814
1978

25804
25824

26084
2235

2273

2310+

2332«

2333«

2354

2362

2371

2378

2471

2015
2072
2463

2067
2215
26024

21
2309

2210
2319«

2269
2320~

2298#
2322

2330+

2331

2340

2347+

2383~

2014

2384+

2070

2110

2213

2268

2069+

2212+

26034

2252

2257

2265+

2266

2497

2501

963

774
1984+
1843

26074
5524
S42n
5414

010300
011710

006510
011714
104406

2009+
2078

1982

1981«

871

886

2385

14894

26044

011732

2238

2240

2248

2250

= 002000
011674
011672
000015
000200

2094

2096

2249

2251

1635

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDXJB.P11
24-MAR-80 09:31

CRLF1
CTESTN
DATAA
DATAD
DDISP =
DEV

013300
011666
013125
011720
177570
011730

DEVCMS
DEVCT
DEVFND
DEWS
DEVMSS
DISPLA
DISPRE
DONE
=
DONTSV
DPAR
DPRIOR
DSWR =
DTESTN
DUBA
DVECT
DXBAA
DXBAO
DXBCA
DXBCO
DXCAA
DXCAO
DXCBA
DXCSA

013217
011752
011762
013161
011754
001142
000174
000200
007620
011604
011612
177570
011604
011606
011610
011544
011576
011546
011602
011536
011570
011554
011540

DXCSO
DXDSA
DXDSO
DXESA
DXES1A
DXGO

011572
011534
011566
011560
011564
006366

DXMIA
DXMOA

DXMOBA
[Dxmo0
DXNDA
[DXOSA
DXOSO

011552
011550

011562
011600
011556
011542
011574

2764H

1551
728+
2486
1983+

748+

749

2410

2423

2455

2005+

2010+

2011

2489

26064

2071«
2206+

2074+
2209

2075
2221

2077«
2242

2081
2243

2082
2247

2064+
26234

2115

2163

2169

26194

769+

26204

1941«

1942+

L74n

712

720

1941

2006

991

25574

25364
1887+

1940«

2107+

2108

2161

1943~

1944+

1985+

2006+

2008+

2079+

2241+

2090+
2247+

»
2091
2248+

2092+
2249+

2093+
2250

2094+
2251+

2095+
2262+

2380+

2502

25314

2356

2367

2476

2007+

2083«
2245+

2084
2246+

1867

1869+

1986+

25474

2078«

2097

2254

2257

2374~

1975

2106

2199

2264

1385+

2336
2302+
26154

2356
2335+

26004

016000
010414
010750

2097

1891«

011704

NDALL
NDB
NDB1

2092
26104

2243

|[EABITS

011716
011742
011650
000030

2083
2493

2103+

1953

EACUR
EAERR
EASIZE
EMTVEC=

25934

1989

006560
013104

SEQ 0070

25544
25554
25564

|oxnes

EABIT

30A(1052)
24-MAR-80 09:45 PAGE 72
CROSS REFERENCE TABLE == USER SYMBOLS

2478~
1374+

2229
2479%
2343

2382

2386

2336

26054

CZDXJBO DX11-B ADDRESSING TEST MACY11
CZDxJB.P11
24-MAR-80 09:31
ENDPRM
ENDTST
ENDTT
END1
END4

002270
001410
006350
001576
010274

808
74
18734
777
2205

ERADPH
ERADR
ERNO
ERPC
ERR
ERRID
ERRMS
ERRPC
ERRR
ERRVEC=

013057
013024
012775
012762
011676
011736
011740
011734
010752
(

2468
2460
2440
2433
730+
2427+
2428+
2426*
1859
5554

ERR2
ERR3

012012
012032

1901
2004

|EOP

ERR1

ERRS
ERRS
ERR6
ERTN
EXP
EXPMS

GETPRM

011766

012071
012120
012174
013011
011760
013262

FIRSTP
FRSTD
FRSTDV

GNS

001452

011654
011746
011750

001600

F IR 2 222
23

GO
GO1
GTSWR =
HEADER
HLDO =

001346
006206
104405
012266
040000

HPRIOR
011632
HT
= 000011
HTESTN
011616

HUBA
HVEC

INASC
INBUF
INIT
INPRM
INTERR
INTR1
INTR2
INVM
INVPRM
IOTVEC=
IPARO=
IPAR1=
IPAR2=
IPAR3=
IPAR4=
IPARS=

011622

011626

002532
013304
006530
002272
006506
006230
0067
012517
012535
000020
172340
172342
172344
172346
172350
172352

7534

908#
1877
7834

2272

G 6
30A(1052)
24-MAR-80 09:45 PAGE 73
CROSS REFERENCE TABLE == USER SYMBOLS

2019

2122

2277

22774

27364

25974
2483

26134

26124

24064

721*

1861

2101
2121
2261
2452
2493+
2510

2501~

2513

724
2063+
761

907+
2160~
2207

25884
26174
26184

615

1760

1761

1762

1890

2090

2245

965

976

726

7284
18424
17644
822
6054

1515
L654
749

16414%

1419+

1431+

1436+

1764

1766

1767

1768

1769

987

10124

883

9334

26224

1635

25664

1501

1508

878
1017«
1830
824
1849
1836
1979
840
893
S60#
5934
5944
5954
5964
5974
598#

SEQ 0071

954
1024
1974
1902+

1423

2232+

27684
2061
861

19044

2198
1934+

1993

1445+

1455+

1456+

LOP3

LOPS
LPAR
LPRIOR
LTESTN
LUBA
LVEC

007232

010044
011614
011630
011614

011620

011624

MMAX

011646

MMVEC = 000250

MSIZE

011644

PARMV
PHYMAX
PIRQ
=
PIRQVE=
PRILV
PRINT

011670
011706
177772
000240
012650
005134

NEXTB

010430

2343

1372+
1635

2227

2312

2425+

25984

2369
2364

2385
2373

YN
b =

729+
1933«
1838#
1981#
20714
22144
19854
20784
22354

2342+

—d N

000012
011700
011702
006166
006710
007176
007730
736

S86#
S87#
588#
S89#
770
L6648

2318+

1439

2423
25994

1506

1354

5714

1355+«

2301

818
1375+
4724
S66#
985
757

1381+

1382+

2358

26014

984

839

875
2442
2506

892
2446
2509

937
2451
2512

1803+

1804+

25854
1363+

2352

845+
1377+

763
15434

890

1378+

766

2467
938
L8994

2473

007514
007522
007530
007546
007552
= 000024

2080
21424
2143
2148
2150
5614

2208

2239

706+

1775+«

= 104407

25874

1499

012555
= 000000

000040
000100
000140
000200
000240
000
000340
177776
177776

2465

25644
1513
1492

2202
2480

=
=
=
=
=
=
=
=
=

2338

— N

011652

5824
5834
5844
S85#4

2315+

SEQ 0072

NSO

LF
=
LOCK
LOCKAD
LOOP1
LOOP2
LOOP3
LOOPS
LOP2

5994
6004

OoON—=OHMHro0NW

172354
172356
172300
172302
172304
172306
172310
172312
172314
172316

PNOMNORNON)
= NON) — —

KIPARG=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

OO W

CZDXJBO DX11-8B ADDRESSING TEST MACY11 30A(1052)
264-MAR-80 09:45 PAGE 74
C20xJB.P11
24-MAR-80 09:31
CROSS REFERENCE TABLE == USER SYMBOLS

490#
4918
4924
4934
4o4H
4954
4964
469
4704

1229

2584H

906+
1379+

25944

773

821
2436

1380+

2432
2485

2488

2439
2503

1776+

1785+

1791+

951

2454
2515

2459

973

2462

—

| CZDXJBO

DX11-8 ADDRESSI

| CZDXJB.P11

|RDLIN = 104410
IRDOCT =
RECORD
RESTAR
RESVEC=
SAVDEV
SELO =
SETSW
SIZE
SOSIEN=

104411
011744
001334
000010
007554
020000
012673
004212
000004

SPWw
SPWMVD
SPWPHY
SRVO =
SRO
=

014000
011764
011726
001000
177572

STACK =
START
STKLMT=
SWR

001100
001164
177774
001140

SWREG
SWO0
=
SW00 =
SW01
=
SW02 =
SW03 =
SW04
=
SW05
=
SW06 =
SW07 =
SW08 =
SW09 =
swl_
=
SW10 =
sWwil
=
SW12 =

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000

swi3

Swis
sWw15
sW2

= 040000
= 100000
= 000004

Swe

= 000020

SWw3
WS

Sw6

sWwZ
SW8
SW9

1304
17694

2156
783

2171~

26164

1890

2090

2245

1893
2374
2381

2007
2376
26244

2378

2103

2262

2263

1070

1153

1808

711~

2429

—d

)

VIO N0V O

1073

2449
2429
2417
2406

2421

= 000010

= 000040

= 000100

= 000200
= 000400
= 001000

TBITVE=
DB
TESTN
KS
TKVEC =
P8

000014
011664
012567
011662
011660

09:45

6
PAGE 75

26994
1050+

SEQ 0073

17684

1420

= 177874
= 177576
= 172516

= 020000

24=MAR-80

CROSS REFERENCE TABLE == USER SYMBOLS

SR1
SR2
SRS

4~MAR-80

ST MACY11 30A(1052)

1051«

1435«

713

2449
1112

2380

1442+

2321+

719«

746

1135

27704

1073

1112

1167+

1366

1783

1796+

2406

| CZDXJBO Dx11-8 ADDRESSING TEST MACY11
(CZDXJB.P11
24-MAR-80 09:31

|TPVEC =
TRAPVE=
TRTVEC=
IST
1STAB
1ST1
1ST2

TST3

1STa

ITYPE

011656

000064
000034
000014
001364
001376
006134
006656

007124

007636

015000

= 104401

TYPOC = 104402

TYPON = 104404
TYPOS = 104403
TWMSG
012215

VECTA
SAUTOB
$BDADR
$BDDAT

012630
007134
001122
001126

SCHARC
$CKSWR
SCMTAG
$CM3 =
SCNTLC
SCNTLG
SCNTLU

005422
003106
001100

$BELL

$CORE

SCRLF
SCROUT
SENDAD
SERFLG
SERMAX
SERRPC
SERRTB
SERTTL
$FILLC
$FILLS
$GDADR
SGDDAT
SGTSWR
.
SHIOCT
SICNT
SILLUP
SINTAG
SITEMB
SKTNEX

SKTOUT

SKT11
SLF

SLPADR
SLPERR
SLSTAD

S65H
5638
31
3w
733
735
73%

737

704+

77
73
18308
19748

750

SEQ 0074

20614

30284

21984

1067

1256

1079

1133

1936

1257

1555

1760w

17620
17614
2203

97,
6554
6508
6528

1079

001161
004716
001566
001103
001115
001116
001164
001112
001156
001155
001120
001124
003176
3
004210
001104
006116
001135
001114
004660

66o%
1445
626
6414
647
6484
6864
645H#
6668
6654
6408
6514
11368
455
1326+
b4
1775
656¢
6464
1419

004516
001162

1351%
6708

001106
001110
004762

703*

738

004010
004022
004015

004650

J 6

25894

1601%
11120
6384
6684
1067
1133
1158

004666

30A(1052)
24-MAR-80 09:45 ~PAGE 76
CROSS REFERENCE TABLE ~- USER SYMBOLS

1418

1436

6434
64kt
1354

1259

113

1137

1627

16324

1338

1262

1266

1148

1158

1600

1635

1333

1335

26554

2706m
1126

12764

1284

1611+
1766
696

1618

1148
1279
1251

12774

11690
14528
77o¢

1256

1276

816

2518

1604
1635

1635

14454

697

1278#

1764
456
13374
1791

1131

18104

1150

1170

1284

1368+
1266

1370
1276

14178
1338

1421%
1635

1355

1356

1457+

14644

14444

14414

144és

1169

1550

CZDXJBO DX11-B ADDRESSING TEST MACY11
| CZDXJB.P11
24~MAR-80 09:31

SLSTBK

004764

SMSWR

004027

1373

SMAIL = swwwnn
SMNEW
004040

7%3
1137

1134

SNULL
SOCNT
SOMODE
$PASS

001154
005650
005652
001100

SPWRAD
$PWRDN
SPWRMG
SPWRUP
$SQUES
$RDCHR
SRDDEC=
$SRDLIN
$RDOCT
$RDSZ =

006112
005752
006106
006024
001160
003450
#wewne |
003540
004052
000010

1808#
705
18064
1785
6684
12014
1770
12244
1299%
1217#

$SAVRE= wwweax |
$SAVR6 006122

1770
1784«

$SIZE
$SIZEX
$STUP =
$SVPC =

1352
1443
694H
624M

SPOWER

$SR2A

6644
1668
1663
63954

006124

wmawwax

$SETUP= 000114

$SWR
$TKB

004460
004722
177777
000204

= 160000
001146

1806

1375

1588
1282#

12804

1606
1697«
1667«

694H

455
6614

1034#

1036#

$TKSRV 002670
$IN
=
1

1050
4554

$TPFLG
$TPS
STRAP
S$TRAP2
$TRP =
$TRPAD
$TSTNM

667#
662#
703
17478
17514
1741
64

001152

$TTYIN

001157
001150
005654
005714
000012
005726
001102

003774

STYPBN= setexs |J
STYPDS= wenwwn |J

707

107

1076

1088

1116

1143

1793«

1794+«

18124

1369
14534

1405#

702

629

4564
1032

6634

1048«

1048

1032

10634

1624

703

668
1052

1077
1068
1213

705

1809
1063

1094«
1129

1208

1049

1100+

1101+

1104

1215

1211

1053«

1210+

1104+

1084~

1086

1092«

1114

1130~

1140

1152«

1172+«

176528

1766

17678

1768#8

17694

1635

17628

1763#

1764

1226

1227

1239

1257

1271

1275#

1759
1610
16334

1617

16228

1623

005426

16614

1761

1665

1662+

1284

1102

17614

STYPOS

1107

1215+

1635
1635

1763
1763

1077

1213

1212«

1582
1622
17324
1758
17608
17584

1751
1603
1630
1760

005651

1635

1792

1582#
1174
1628
1666#

[SOF ILL

1338

1768
1769

005206
005356
005424
005452

005466

17124

1335

STYPE
S$TYPEC
STYPEX
$TYPOC

STYPON

1686

SEQ 0075

1770

002610

$TPB

1675+

1276

1049«

001144

1635
17104
1672

1259

1035#

$TKQSR

14654

17914
1188
1767

$TKQOU

$TKS

1458«

1803

1047«
10647#
1102

606

1383

17754

10334
1072
1037#

002604

18134

$TKCNT 002602
S$TKINT 002620
$TKQEN= 002620

$TKQIN

30A(1052)
24-MAR-B0 09:45
PAGE 77
CROSS REFERENCE TABLE == USER SYMBOLS

16684

1762

1666+

1676

17114

1770#

)
CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80 09:45 PAGE 78
(ZDxJB.P1
24~MAR-80 09:31
(ROSS REFERENCE TABLE == USER SYMBOLS
.

= 016000

611#
1038

6154
12754

624
1276

6254

1277

6274

12844

629

1338

6304

1635

SEQ 0076

6374

1787

671

1811

700

27654

1032

10364

1037

CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
26-MAR-80 09:45 PAGE 80
CZDxJB.P11
24-MAR-80 09:31
CROSS REFERENCE TABLE == MACRO NAMES
CKSWR

ENDCOM
ERROR
ESCAPE
GETPRI
GE TSWR
MULT
NEWTST
POP

1»
W1
»
»
»
1»
1»
»

S674

S67#

1023
1301

1327
1543

1560

1796

1797

SETTRA

1751#

4454
1760

S67#
1761

740
1762

1204
1764

1883
1766

1927
1767

2411

SPACE

5674

S67#
1789
5674

622

633

671

1031

1107

1122

1193

1762

1764

1766

1767

1768

1769

COMMEN

PUSH
REPORT
SCOPE
SETPRI
SETUP
SKIP
SLASH
STARS

SWRSU
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

1L
»
L6228
1L
1L
1#
1

1
1773
1#
17514
1L
1%
ty
1L
1L
1L
1L

$SCMRE
$SCMTM
$SESCA
SSNEWT
$SSET
$$SKIP
.EQUAT
-HEADE
KT11
.SETUP
. SWRHI
.SACT1
.SAPTB
. SAPTH
. SAPTY
.SASTA
.SCATC
-SCMTA

6314
6314
1#
s
17514
»
1L
1L
1L
1L
1
1L
1L
1L
4
4
#
1L

. SERRO
. SERRT
LSMULT
- SPOWE

1L
1L
4
#

. $082D
.$0820

1L
1#

SEQ 0077

S67#

S&7#

S67#
S67¢

465
S67#

S67#

445
S67#

S674
5674
S67#

S67#
S674
S67#
S67#
S67#
567#
S67#
S674
S674
1760
S67#
4454
4454
4454
4454

1413
S67#

694

1777

1783

1769

707#

1135

1761

457
567
694

4454

620

4454
445#

609
631

4WSe

177"

1217

1287

1391

1567

1638

1726

N 6
CZDXJBO DX11-B ADDRESSING TEST MACY11 30A(1052)
24-MAR-80 09:45 PAGE 81
CZDxJB.P11
24-MAR-80 09:31
CROSS REFERENCE TABLE == MACRO NAMES

.SRAND
. SRDDE
. SRDOC
.SREAD
.SR2AZ
. $SAVE
.$S82D
.$5820
.$SCOP

1»
»
»
1»
1
1#
1»
1
1%

.STRAP

[AXY
&S

1285
1029

4454

1389

4454

1724

.$40CA
.1170

#
»

1%
#

AT |
L4454

1565
1636

. ABS.

016000

000

.$SIZE
.$SLPR

.S$TYPB

.STYPD

STYPE
.S$TYPO

1#
i

1»

ERRORS DETECTED:

CZDXJB.BIN,CZDXJB.SEQ/CRF/SOL=CZDXJB.SML,CZDXJB.P11
RUN-TIME: 15 13 .8 SECONDS
RUN-TIME RATIO: 194/29=6.6
CORE USED:
32K
(63 PAGES)

| -

SEQ 0078