Digital PDFs

AH-8662E-MC

January 1980

82 pages

Original

39MB

view download

OCR Version

52MB

view download

Document:	CZDRGE0 DR11K DR11K DIGITAL I-O JAN 1980 bw
Order Number:	AH-8662E-MC
Revision:	000
Pages:	82
Original Filename:	CZDRGE0__DR11K__DR11K_DIGITAL_I-O__AH-8662E-MC__JAN_1980_gray.pdf

OCR Text

DR11K DiGITALI/O

CZDRGEO

AH-8662E-MC

JAN 1980

FICHE1T OF1

MADETNTUSA

=OEORB0

DR11-k

LOGIC TEST

(ZDRGE.P1

HAINDECZ;‘°CIDRG-E

31-AUG-79 11

MACY1T 306(1063)

31-AUG=79

1
13:05

PAGE i

.REMX

IDENTIFICATION

PRODUCT

CODE:

AC-B660E-MC

PRODUCT NAME:

(ZDRGEO DR11k DIGITAL

DATE:

AUG.

MAINTAINER:

DIAGNOSTIC GROUP

1/0

1979

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUJPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
THE

SOFTWARE

DESCRIBED

IN THIS DOCUMENT

IS FURNISHED UNDER A

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

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR

THE
NOT

USE OR RELIABILITY OF
SUPPLIED BY DIGITAL.

(C)

ITS SOFTWARE ON EQUIPMENT

1975,

THAT

1979 BY DIGITAL EQUIPMENT CORPORATION.

DRiI1=x

LOGIC T EST
MAINDEC-11-CZDRG-E
3 1=AUG-79 11:23
CIZDRGE .P11
TABLE OF

MACY11

306(1063)

31-AUG=79

CONTENTS

LOADING PROCEDURE

STARTING PROCEDURE
CONTROL SWITCH SETTINGS
STARTING ADDRESSES

OPERATING PROCEDURE

ERRORS

RESTRICTIONS
MISCELANEOUS

—

NO WS
W
—

VOVOOVOOVO

NJ —

EQUPMENT REQUIREMENTS

ABSTRA(T

EXECUTION TIMES
DEVICE ADDRESSES

PROGRAM DESCRIPTION
LOGIC TEST
C(ONTROL LINE LOOP
COULTER FUNCTION LOOP
LOGIC TEST WITH COULTER JUMPER'S

LOGIC TEST WITH K321 LOC=-BOX JUMPER'S
H321 FUNCTION LOOP
XLO1 ADJUSTMENT LOOP

LiSTING

13:05

PAGE 2

SEQ 0002

——

DR11=x
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE.P1
31- AuG’ 79 ‘ 1 :23
1.

MACY11

30G6(1063)

31-AUG=79

13:05

PAGE 3

SEQ 0003

ABSTRACT
THIS PROGRAM

IS A LGGIC

TEST

OUTPUT CONTROL OPTIiON. ALiL

THE DR11-k DIGITAL

INPUT

OPTION FUNCTIONS CAN BE TESTED.

THIS PROGRAM ALSO

INCLUDES TWwO ROUTINES TO VERIFY PROPER

THE

THE SAME FUNCTION AS THE

CONNECTION'S TO THE W321 LOC-BOX AND ADJUSTMENT OF
ROUTINES SERVE

THE xL01°'S.

"PDLD #3 AND PDLD #4'' ONLINE TEST PROGRAMS.

THE PROGRAM ALSO SUPPLY'S A SOFTWARE ROUTINE

TO VERIFY PROPER

CONNECTION'S TO DIGITAL DATA INSTRUMENT'S LIKE
COULTER MODEL 'S’ COUNTER (REF 9.3).
DUE TO THE FLEXIBILITY OF

THE OPTION,

THE

THE OPERATOR

WILL BE REQUIRED TO SUPPLY OPTION CHARACTERSTICS.
THE PROGRAM WILL HANDLE ALL CONFIGURATIONS OF INPUT

INTERRUPT

SWITCHES AND INPUT DATA LATCHING JUMPERS. FOR SYSTEMS WITH
CONSECUTIVE MULTIPLE DR11-Kk'S, THESE CONFIGERATIONS MUST
BE THE SAME. THE FOLLOWING JUMPERS MUST
BE INSERTED TO EXECUTE THE LOGIC TEST:
W21A, W22A AND W23A,
THIS PROGRAM WILL

TEST

BUS ADDRESS AND VECTOR
FOR NORMAL

FACTORY

WITH A VALUE OF 0.
AFTER

INITIAL

LOADING OF

SEQUENTIAL DR11=K'S

THE

IN LOCATIONS “'SBASE'' AND ''SVECT1''.

CONFIG.,

THE

STARTING AT

ALL QUESTIONS

PROGRAM,

THE

LOGIC

SHOULD BE

TEST

MUST

ANSWERED

RUN.

EQUIPMENT REQUIREMENTS
PDP=11

FAMILY

COMPUTER WITH CONSOLE

DR11-K OPTION INSTALLED

1/0 TERMINAL

AND 8k

BCOBR-1 ONE FOOT OUTPUT TO INPUT WRAPAROUND CABLE
3.

LOADING PROCEDURE
THE

PROCEDURE

FOR

LOADING BINARY

TAPES

SHOULD BE

FOLLOWED.

MEMORY

DR11-k
LOGIC TEST
HAIND§(2;1 CIDRG-E
CIZORGE .P11
31-AUG-79
1

MACY11

30G(1063)

31-AUG=79

5
13:05

PAGE &

SEQ 0004

STARTING PRO(EDURE
6.1

CONTROL SWITCH SETTINGS

(LOGIC TEST)

THE DIAGNOSTIC

IS RUN ON A CPU WITHOUT A SWITCH

THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF

REGISTER THEN A SOF TWARE SWITCH REGISTER IS USED WHICHM ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE WARDWARE SWIT(M REGISTER.
AND 1T CONTAINS ALL ONES (177777)
REGISTER (LOC. 176) 1S USED.

THEN THE

SOF TWARE

ONE DOES

SWITCH

CONTROL:
THIS PROGRAM ALSQ SUPPORTS THE DYNAMIC LOADING OF THE SOF TWARE
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY

SWITCH

DOING THE FOLLOWING:
1

TYPE

LocC.

CONTROL

G <*G>;

THIS WILL

ALLOW THE

TTY

TO ENTER DATA

INTO

176 AT SELECTED POINTS WITHIN THE PROGRAM,

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXX NEW= (XXXXXX IS THE OCTAL CONTENTS
OF

THE SOFTWARE

SWITCH REGISTER.)

3) AFTER THE

'°'NEW="'"' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
THE FOLLOWING AT THE TTY:

TYPE

A NUMBER

TO BE

LOADED

A <CR>

176 FOLLOWED BY

IF A CONTROL U <*U>
BACK TO STEP 2.

A <(R>,

ACCEPTED AND ONLY 6 NUMBERS

IS THE FIRST KEY DEPRESSED THE

INTO LOC.

(ONLY NUMBERS BETWEEN 0-7 WILL BE
WILL BE ALLOWED)

SOF TWARE

CHANGED.

IS DEPRESSED THEN THE

SWITCH

PROGRAM WiLL

SEND YOU

WiLL BE

USED AS

THE

Sw 15 = 1
SW 14 =

SOFTWARE

DISPLAY

HALT ON ERROR

020000

INHIBIT ERROR TYPOUTS

040000

SW 12 = 1

0100090

Sw 13 = 1
sv
SWw
Sw
Sw

11
186
09
08

= 1
= 1
=1
=1

100000

—~—’

004000
002000
001000
000400.

LOOP ON CURRENT

SUB-TEST

LOOP ON CURRENTLY SELECTED DR11=-K

INHIBIT SUB=-TEST INTERATIONS
NO OUTPUT TO INPUT WRAPAROUND CABLE
LOOP ON ERROR
LOOP ON TEST IN SWR <7:0>

DR11-k

LOGIC T EST

CZDRGE .P11

HAXNDECZ;I CIDRG-E
31-AUG=-79 11
6.2

MACY11

306(1063)

31-AUG=79

1
13:05

PAGE S

SEC 0005

STARTING ADDRESSES

200
204
210
214
220
224
230
234

IS
IS
IS
IS
1S
IS
IS
IS

THE
THE
THE
THE
THE
THE
THS
THE

STARTING ADDRESS OF THE LOGIC TEST.
RESTART ADDRESS OF THE LOGIC TEST.
STARTING ADDRESS OF THE CONTROL LINE LOOP.
STARTING ADDRESS OF THE COULTER INTERFACE LOOP
STARTING ADDRESS OF THE LOGIC TEST WITH "‘COULTER JUMPER'* CONFIG.
STARTING ADDRESS OF THE LOGIC TEST WITH "LOC BOX JUMPER'' CONF!G.
STARTING ADDRESS OF THE W321 "LOC-BOX'' FUNCTION LOOP
STARTING ADDRESS OF THE XLO1 ADJUSTMENT LOOP

OPERATING PROCEDURE
THE

FOLLOWING JUMPERS MUST BE

INSTALLED TO EXECUTE

THE

LOGIC TEST:
W21A, W22A AND W23A
IF THE CUSTOMER HAS SELECTED THE ''B'' SECTION OF THESE JUMPERS
IT MUST BE RETURNED TO THE ''FACTORY'' POSITION BEFORE RUNNING

THE LOGIC TEST. #+ WORST CASE WILL ONLY BE CHANGING THREE JUMPERS,
THE OPERATOR MUST INSERT THE CORRECT INFORMATION IN THE SWITCH
REGISTER WHEN REQUESTED BY THE PROGRAM OR AN ERROR WILL OCCUR.
WITH THE INPUT INTERRUPT SWITCHES AND DATA LATCHING JUMPERS

IN THE FACTORY POSITION, ALL SwITCH REGISTER BITS SHOULD BE RESET.
ONCE STARTED THE TEST WILL RUN IN IT'S NORMAL MANNER
WITHOUT OPERATOR INTERVENTION OR SWITCH SELECTION.
¢+« NOTE: OPERATOR MiuST INSERT INFORMATION WHEN REQUESTED BY
PROGRAM. THE MACHINE WILL TYPE:
NEW =
AFTER NEW =
THE INFORMATION IS INSERTED. REFER TO SECTION 4.1
2)

wee

ERRORS
THIS PROGRAM USES

THE

DIAGNOSTIC

ERROR REPORTING AND TYPEOUT.
FOR

TYPE

AND DESCRIPTION OF

BYTE
BYTE

WORD
WORD

$TSTNM:
SITEMB:

SERRPC:
$PASS:

'SYSMAC'

PACKAGE

FOR

REFER TO THE "'ERROR POINTER TABLE"
ERRORS.

(LOC.
(LOC.

1102)
1114)

1116)
1176)

CURRENT TEST NUMBER
ITEM #N ERROR TABLE INDEX

ERRORING P.C.
CURRENT PASS COUNT

RESTRICTIONS

2.
5.
&.

IF SEQUENTIAL DR11-k'S, ALL DR11-k'S MUST BE
SAME INTERRUPT SWITCHES AND DATA PATH JUMPER

IN THE
CONF iGERATION.

THE FOLLOWING JUMPERS MUST BE IN THE ''FACTORY'' POSITION:
W21A, W22A AND W23A
THE OPERATOR MUST SUPPLY THE CORRECT INTERRUPT SWITCHES

AND DATA PATH JUMPER AND SWITCH CONFIGURATION

INFORMATION TO THE

INITALIZATION QUESTIONS OR AN ERROR WILL OCCUR.

FOR MULTIPLE GROUPS OF CONSECUTIVE DR11-k'S:
THIS DIAGNOSTIC MUST BE RUN FOR EACH GROUP,

AFTER

INITIAL LOADING OF

THE PROGRAM,

THE LOGIC MUST BE

RUN FRST

DR11=k
LOGIC 1 ES flkéfl?§(2;1 CZIDRG-E
CIDRGE .P11
3 1-

MACY11

MISCELANEOUS

8.1

EXECUTION TIME

306(1063)

’

31-AUG-79

13:05

PAGE 6

THE LOGIC TEST WILL TAKE APPROXIMATELY 60 SECONDS FOR COMPLETION
ON A PDP11/05 TYPE AND WILL TYPE 'END PASS NNNN.
THE CONTROL LINE LOOP WILL NEVER EXIT.
THE

COULTER

THE

XLO1

THE H321

8.2

INTERFACE LOOP WILL NEVER EXIT,

LOC-BOX FUNCTION LOOP WILL NEVER EXIT.

ADJUSTMENT LOOP WILL NEVER EXIT.

DEVICE ADDRESS PROGRAM LOCATIONS

""$BASE'" (LOC. 1244) CONTAINS THE DR11-k BASE DEVICE ADDRESS <767770>
TSVECTT' (LOC. 1240) THE LOW 9 BiTS CONTAIN THE DR11=Kk BASE INTERRUPT VECTOR <300>
"SVECTT" (LOC. 1240) THE HIGH 3 BITS CONTAIN THE DR11-k BR LEVEL #4 <200>
*NOTE:
IF THESE LOCATIONS ARE CHANGED, THE OPERATOR MUST START
THE TEST AGAIN AT LOC. 200.
THE PROGRAM WILL USE THE BASE
ADDRESS AND VECTOR AND UPDATE THE ACTUAL PROGRAM VALUES.

SEQ 0006

DR11-k

LOGIC 1 EST
MAINDEC-11-CZDRG-E
CZDRGE .P11
3 1-AUG=79 11:23

MACY11

306(1063)

PROGRAM DESCRIPTION

9.1

LOGIC TEST

31-AUG=79
THE LOGIC

1
13:05

PAGE 7

TEST MUST BE RUN FIRST AFTER

INITIAL PROGRAM LOADING

IS A TEST OF THE CONTROL AND INPUT/OUTPUT
JUMPERS AND SWITCHES COMBINATIONS EXCEPT:

W21A, W22A AND W23A

AN BE DIAGNOSED.

THE PROGRAM CHECKS THAT THE DR11-K
"RESET'" WILL WORK CORRECTLY.

CONTROL LINE LOOP

CAN

INTERRUPT AND THAT

THIS TEST LOOP PROVIDES THE OPERATOR WITH A
SCOPE LOOP FOR CHECKING W21, 422 AND W23 IN THE

COULTER FUNCTION LOOP

'B'* POSITION.

THE COULTER INTERFACE LOOP PROVIDES THE OPERATOR
WITH SOFTWARE INTERFACE WITH THE COULTER HARDWARE.

"'$BASE'' (LOC.

1244)

CONTAINS THE DR11K BUS ADDRESS.

THE OPERATOR IS INSTRUCTED TO RUN A SAMPLE ON THE COULTER.
THE PROGRAM WILL WAIT FOR AN ,NTERRUPT FROM THE DR11K. UPON AN

INTERRUPT,

THE PROGRAM DELAYS 70 MSEC.

TO SETTLE.
THE 70 MSEC. DELAY
REQUIRE THE OPERATOR TO MODIFY

(LOC.

TO ALLOW THE DATA LINES

IS A FACTOR OF CPU TYPE
THE VALUE OF ‘‘CPU"’

AND MAY

1370) FOR THE PROPER DELAY ON A DIFFERENT CPU TYPE:
11/05
240
11740
620

THE COULTER INPUT DATA IS STORED IN A MEMORY BUFFER.
THE HIGHER FOUR BITS ARE THE TEST NUMBERS WITH Z“RO BEING THE
RUN TERMINATOR. UPON COMPLETION OF A RUN (SAMPLE), THE PROGRAM
WILL TYPE THE RESULTS IN THE FOLLOWING FORMAT AND THEN RESTART
THE RUN SEQUENCE. THE TYPED RESULTS CAN BE COMPARED TO THE
COULTER TYPOUT TO VERIFY A SUCCESSFUL RUN.

"N=XXX"' WHERE N = TEST NUMBER AND XXX = TEST RESULTS

.
AN

0
0

1
1

—_O—=0O—-0O

i
i
D
g

CODE:

b
e OO

THE RESULTS ARE BINARY CODED DECIMAL.
THERE ARE BIT COMBINATIONS
WHICH ARE ERRORS AND SHOULD NOT APPEAR ON THE COULTER OUTPUT.

—

G.3

SEQ 0007

THE LOGIC TEST
REGISTERS. ALL

9.2

DR11=k
LOGIC 1EST
HAINDE(°;1-CZDRG-E
CZDRGE .P11
31-AUG-79 11:2
9.6

MACY11

306(1063)

31-AUG=79

1
13:05

LOGIC TEST WITH COULTER JUMPER CONFIG.
RUN THE LOGIC TEST WITH THE COULTER
AND WITH AN INTERRUPT LEVEL OF 5.

PAGE 8

INTERFACE JUMPERS

COULTER DEFAULT JUMPER/SWITCH VALUES USED IN THIS MODE:
NON-LATCHING INPUT BITS

177777

INTERRUPTING INPUT BITS

170000

POSITIVE INPUT BITS
TRANSITION INPUT BITS

9.5

LOGIC

TEST WITH LOC-BOX JUMPER CONFIG.

RUN THE LOG!C TEST WITH THE LOC-BOX
AND WITH AN INTERRUPT LEVEL OF 5.

H321

000000
170000

INTERFACE

JUMPERS

LOC-BOX DEFAULT JUMPER/SWITCH VALUES USED IN THIS MODE:
NON-LATHING

INPUT BITS

INTERRUPTING INPUT BITS

POSITIVE INPUT BITS
TRANSITION INPUT BITS

000000

177777

000000
000000

SEQ 0008

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE .P11
31-AUG-79 11:23

9.6

MACY11

306(1063)

31-AUG-79

13:05

PAGE 9

SEQ 0009

H321 LOC-BOX FUNCTION LOOP

THIS LOOP ENABLES THE OPERATOR TO VER!FY PROPER OPERATION

OF THE H321 LOC-BOX LAMP'S, SWITCHES AND THE WIRE CONNECTION.

THIS LOOP SERVES THE SAME FUNCTION AS THME ‘'PDL DIAG #3 == PDLD3"
THE OPERATOR SELECTS THE LOC-BOX'S, VIA DR11K BUS ADDRESS,
AND THEN DEPRESSES EACH SWITCH.
THE PROGRAM WILL COMPLEMENT
*THE LAMP ABOVE THE SWITCH.
THE OPERATOR SHOULD DEPRESS THE

SWITCHES SLOWLY TO VERIFY THAT ONLY DEPRESSING A SWITCH WILL CAUSE
THE LAMP TO CHANGE AND THAT RELEASING THE SWITCH DOES NCT.
IF THE LATER IS DETECTED THE DR11-K JUMPER CONFIG''~aT.!0ON SHOULD BE QUESTIONED?
THE PROGRAM MAY CCCASIONLY MISS A SWITCH CLOC =,

THE BUS ADDRESSES OF

THE OPERATOR MAY

(LOC.

9.7

XLO1

1402,

1404,

THE DR11x'S ARF

CHANGE LOCATIONS ' .1,

1406)

ADJUSTMENT LOOP

LOC2,

167760 AND 167750.
LOC3

TO RUN ON OTHER DR11K'S.

THIS LOOP ENABLES THE OPERATOR TO VERIFY OR ADJUST THE XLO1/CCS55A/CCSSC
POT'S.
THIS LOOP SERVES THE SAME FUNCTION AS ‘PDL DIAGNOSTIC #4
== PDLD4'" THE H321 LAMP'S OPERATE AS SHOWN BELOW.
REFER TG THE
PDL=11 INSTALLATION MANUAL FOR ADJUSTMENT DETAILS.
Ot et el ittt s 0 O

APPROCHING
AN END

CENTER
REGION

APPROACHING
AN END

THIS LOOP USES

10.

LISTING
ATTACHED.

THE

SAME

1
1
1
1
1
|
|

0
0

DR11K'S BUS ADDRESS AS 9.6

vwvvvV\—vvvw\rvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvbu'\)avvvvvvvvv

AAAAAAAAAAAAAAAAA’\AAAf\/\flAAAAI‘AAAAF\AI\A’\AAflfluwuwfl’\flflhflflafl

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CIDRGE.P11
- 31-AUG-79 11:23

MACY11 306(1063)
.TITLE

DR11-K

31-AUG-79

LOGIC TEST

;*COPYRIGHT (C) 1979
;*DIGITAL EQUIPMENT CORP.

13:05

PAGE 10

SEQ@ 0010

MAINDEC-11-CZDRG-E

;*MAYNARD, MASS. 01754
- %

:*PROGRAM BY R. SHOOP
X

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
; *PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19,
b

167770
100300

.SBTTL

1977,

ABASE=167770
AVECT1=100300
BASIC DEFINITICNS

001100

;*INITIAL ADDRESS OF
STACK=
1100

000011
000012
000015
000200
177776

;*MI“CELLANEOUS DEFINITIONS
HT =
1
::CODE FOR HORIZONTAL TAB
Lf=
12
;:CODE FOR LINE FEED
(R=
15
:;CODE FOR CARRIAGE RETURN
CRLF=
200
::CODE FOR CARRIAGE RETURN=-LINE FEED
PS=
177776
: ;PROCESSOR STATUS WORD

177774
177772
177570
177570

.EQUlv
STKLMT=
PIRQ=
DSWR=
DDISP=

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

.EQUIV
.EQulv

EMT,ERROR
10T,SCOPE

PS,PSW
177774
177772
177570
177570

éaGENERA§0PURPOSE

=
R1=
R2=
R3=
R4 =
R5=
R6=
R7=
SP=
PC=

13
%2
%3
x4
x5
%6
%7
%6
%7

THE STACK POINTER ##«¢ 1100 wes
;;BASIC DEFINITION OF
;:BASIC DEFINITION OF

::STACK LIMIT REGISTER
; :PROGRAM INTERRUPT REQUEST REGISTER
: ;HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER
REGISTER DEFINITIONS

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

;*PRIORITY LEVEL DEFINITIONS

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=
PR2=
“PR3=
PR&4=
PRS=
PR6=
PR7=

100000

SWwi5=

0
40
100
140
200
240
300
340

;:PRIORITY
;:PRIORITY
;:PRIORITY
s:PRIORITY
;:PRIORITY
;:PRIORITY
::PRIORITY
;:PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*''SWITCH REGISTER' SWITCW DEFINITIONS
100000

ERROR CALL
SCOPE CALL

0
1
2
3
4
§
6
7

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004000002*
000001

-0

—cH

MAC Y 3
E
BASIC

(1063)

NITIONS

31-AUG-79

1
13:05

PAGE 10-1

SWis

SWi3
SW12
SWil
SW10
Sw09
Sw08
Swo7

SW0é
SW05

SW09,sw9
SW08,5w8

SW06, Swé
SW05,sw5

000004

2000

1000
400

200

100
40

O—==MNIWH
VO
00O

—
e
—
—
et bt

e
— —
4 —

O 00 O

o
.

0D
G

~
.
-

0D 0D CD O

[elelelelelelele
el
O =MW
N0 N0 O

P
i
i i g i gl p—

" >»

- 2>

N -4

O M
o

BIT DEFINITIONS (BITOO TO BIT15)
100000
40000
20000
10000
4000

DODDDDDDODOD - p—
Pt et et Bt
b bt ot e
6% b
o

S— G

et Bt bt Bt Bt bt —

[
QU
L
G

— St Bt Bt

@ 0D 00 0o 0o O

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

100000

g— g— -0

SW04, Swé
SW03,Sw3
sw02,sw2
SW01,sw1
SwW00,sw0

[

a-.AAAAAAAAAAAAAAAAAA’\AAAAAAAAAA/\AAAAA’\AAAAAAAfl,-\hhfifinflfi/\ e~
i s st el ot e e el s e Al el il e it i il e e e s D i i e it D il el i i i i ) i i i i i i i i D il il i o s i o
—
d
Nt N N N N N N N N N N N N N N N N N N N N N N8 N N NP N N N N N N N N N N S 8 N N N N NP Nt N N N N P N N N N N
N

DR11=K
LOGIC TEST
MAINDEC-11-CZDRG-E
CIDRGE.P11
31-AUG-79 11:23

; *BASIC "'CPL'" TRAP VECTOR ADDRESSES
;:TIME OUT AND OTHER ERRORS

ERRVEC= 4

SEQ 0011

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE .P11
31-AUG=79 11:23

(1)

(1
(N
(1)
()
(1
(n
(N
(1)
(1)

n
o
MACY11 306(1063)
31-AUG-79
13:05
BASIC DEFINITIONS

000010

RESVEC= 10

000014
000014
000020
000024
000030
000034
000060
000064
000240

TRTVEC= 14
BPTVEC= 14
10TVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVE (=34
TKVEC=
60
TPVEC=
64
PIRQVE (=240

000014

TBITVEC=14

PAGE 10-2

;;RESERVED AND ILLEGAL INSTRUCTIONS

2T BIT

::TRACE TRAP
: ;BREAKPOINT TRAP (BPT)
:; INPUT/OUTPUT TRAP (10T) ##SCOPE«+
: ;POWER FAIL
;;EMULATOR TRAP (EMT) #+ERROR#**
::"TRAP'' TRAP
;:TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

SEQ 0012

DR11-k

LOGIC TEST

CZDRGE .P11

31-AUG-79 11:23

el
Nt

402
403
404
405

a?a

PAGE 10-3

NS
SRR

LOOP ON TEST

INHIBIT ERROR TYPEOUTS
LOOP ON CURRENTLY SELECTED DR11-K

OUTPUT TO INPUT WRAPAROUND CABLE NOT CONNECTED

LOOP ON TEST IN SWR<7:0>

WALT
ON ERROR

B
1

INHIBIT

ITERATIONS

LOOP ON ERROR

TRAP CATCHER

.=0
;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ', 42 HALT"

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174

'LOCATION19‘C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000176

000000
000000

DISPREG: .WORD
.WORD
SWREG:

000200
000204
000210
000214

000137
000137
000137
000137

000220
000224«
000230
000234«

000137
000137
000137
000137

.SBTTL

001454
001510
011604
011766

001464
001476
012226
012540

.SBTTL

O
0

STARTING ADDRESS(ES)

JMP
JMP
JMP
JMP

; ;SOFTWARE DISPLAY REGISTER
; ;SOFTWARE SWITCH REGISTER

A#BEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM
;:JUMP TO THE RESTART ADDRESS
S#BEGINI
;JUMP TO THE CONTROL LINES LOOP
AMEXTTST
:JUMP TO THE COULTER FUNCTION LOOP
a#COULTR

;JUMP TO SA WITH THE COULTER JUMPER CONFIG.
;JUMP TO SA WITH THE LOC-BOX JUMPER CONFIG.
;JUMP TO SA OF LOC=-BOX FUNCTION LOOP
;JUMP TO SA OF XLO1 ADJUSTMENT LOOP

COULTY
H322J
LOCBOX
XLO1AD

ACT11 HOOKS

;:tt'ttt't'tt't"'t't"t'tttt'"tt'ttttt'tt'ttll"tttttttt't'tt't

000046

(1)

000052

(1)
407
408

13:05

USE

000000

(1)

SWITCH

.SBTTL

(1)
(2)

()
()
(N

31-AUG-79

OPERATIONAL SWITCH SETTINGS

s D i il it it il i ) ) e it il i il i i s il e
N
o
e (D N N e N e e e e S e e

wfifififinhhfififluwfihfinfinflflflfi'—

99
400
401

MACY11 306(1063)

.SBTTL OPERATIONAL SWITCH SETTINGS

596

HAlNDEC=11-CZDRG-E

;HOOKS REQUIRED BY ACT11
$SVPC=,
.=4b

000240
000046

: SAVE PC

;:1)SET LOC.46 TO ADDRESS Or SENDAD IN .S$EOP

$ENDAD

011324

«552

000052

LWORD

000000

000240
001000

LSBTTL

’

.=$SVPC
.=1000
APT PARAMETER BLOCK

;:2)SET LOC.52 TO ZERO
:: RESTORE PC

:2)

:;tttlttttt"ttt"tltt't'ttt't""'ttttt'ttttttttttttttttt't't"t

(2)

3 tttt'tt'ttt't#ttt"tt"""t.t't't'ttttttttllttlttttttttttttttt

:SET LOCATIONS 24 AND &4 AS REQUIRED FOR APT

§oecoa

)
)

000044

s
N e

)
)

.$X=.

001000

(1)

=24

000024

200

000200

. =bb

000044

001000
001000

};SAVE CURRENT LOCATION

;:SET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START UP

;;POINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ;;POINT TO APT HEADER BLOCK
;;RESET LOCATION COUNTER
~ .=.8X

)
RRl 2
2222220
22220 RRRRRRRRRRR
N 22222222222222222233232222322322222

:éEYUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC
;INTERFACE SPEC.

SEQ 0013

DR11-K LOGIC TEST MAINDEC-11-CZORG-E MACYI1 306(1063) 31-AUG-791i:05 PAGE 10-4
CIDRGE.PT1
31-AUG-79 11:23

()

(1)
(1)

001000
001000

(1)
(1)
(1)

001004
001006
001010

(1)

001002

001012

APT PARAMETER BLOCK

‘

000000

SAPTHD:
SHIBTS:

.WORD

000030
000010
000030

$TSTM:
SPASTM:
SUNITM:

.WORD
.WORD
.WORD

001170

00003

SMBADR:

SEQ 0014

.WORD

WORD

::TWO0 WIGH BITS OF

30
10
30

SIRUN TIM OF LONGEST TEST
[ZRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
“ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

SMAIL

::ADDRESS OF

18 BIT MAILBOX ADDR.

APT MAILBOX

(BITS 0-15)

SETEND-SMAIL/2 ;:LENGTH MAILBOX~-ETABLE (WORDS)

g
a
|

LOGIC TEST

MAINDEC-11-CIZDRG-E

31-AUG-79 11:23

306(10635 31-AUG-79 1§:OS PAGE 10-5

COMMON TAGS
.SBTTL

SEQ 0015

COMMON TAGS

':'l"""""""""""'""""""""l"""'."""l'.."'

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

000012

.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$AUTOB: .BYTE
$SINTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
177562
$TKB:
177564
$TPS:
177566
$TPB:
:
$NULL
.BYTE
SFILLS: .BYTE
SFILLC: .BYTE
$STPFLG: .BYTE
STIMES: 0
SESCAPE:0
$QUES:
LASCII
$CRLF:
LASCII
SLF:
LASCIZ

s:START OF

COMMON TAGS

ssCONTAINS THE TEST NUMBER
;s CONTAINS ERROR FLAG
s sCONTAINS SUBTEST ITERATION COUNT
s sCONTAINS SCOPE LOOP ADDRESS
;sCONTAINS SCOPE RETURN FOR ERRORS
;s CONTAINS TOTAL ERRORS DETECTED
s sCONTAINS ITEM CONTROL BYTE
;s CONTAINS MAX. ERRORS PER TEST
;s CONTAINS PC OF LAST ERROR INSTRUCTION
s :CONTAINS ADDRESS OF 'GOOD' DATA
;s CONTAINS ADDRESS OF 'BAD' DATA
;sCONTAINS "GOOD' DATA
;s CONTAINS °'BAD' DATA
s sRESERVED=-=NOT TO BE USED
;sAUTOMATIC MODE INDICATOR
;: INTERRUPT MODE INDICATOR
; ADDRESS OF SWITCH REGISTER
; ADDRESS OF DISPLAY REGISTER

.WORD
.BYTE

NONO NSO FROO MRS

NS e ormS

D e
e
D e
D
—
e e

VALV IV IV IV IV .Z 2k aF aF »

oo (o 0l *

s ddd-‘ddddfl.‘dfl-‘fldfldd
.

001166

.=1100
PHelelelelalelele]

[=]=]

$STSTNM:
SERFLG:
$ICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
$GPADR:
$BDADR:
$GDDAT:
$BDDAT:

SCMTAG:

o [=lelelelelolelelele
w

—‘-‘dd—‘ddddddd‘dddddd‘d‘d‘ i
e JE R S

001100

228888888888 88838833 23888838388838388

:*USED IN THE PROGRAM.

=34
oo

PONVPRLURNORUNURNURUNUROD
WNNUNRU N o i o o i i i
i i i e o s il o s i o o o

\.'vvvvwvvvvvvvvvvvvvvwvvvvvvvvvvvvvvvvvvvvvvvvvv'vvvv

PN PNINININPCNOCNINTNPNTNINPNONTNTNININONTNONONINPNONPNPNPNN
PN PPN g o NN NN NN NN NPNDNPN N
NN PN g
i s
D s il o i

—HV-".

—tt
s,

CIZDRGE .P11

MACY!

DDISP

;:TTY
;:TTY
;:TTY
;:TTY

oO—-NO

DR11-Kk

KBD STATUS
KBD BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

ADDRESS
ADDRESS

;s CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A ""LINE FEED"
;:"'TERMINAL AVAILABLE'' FLAG

s sMAX. NUMBER OF ITERATIONS
;:ESCAPE ON ERROR ADDRESS
;;QUESTION MARK

/?/
<15>
<12>

;s CARRIAGE

;:LINE FEED

(BIT<07>=0=YES)

RETURN

':".'."".""""""""""""."'.""'.'t"'."'.."Qt'l'

"SBTTL

APT MAILBOX-ETABLE

:;'.""l'"'.'Q""""""""'"fi.'Il"'."t"'t""."'t".tt

.EVEN

000000
000000
000000
000000

SMA]IL:
$MSGTY:
SFATAL:
STESTN:

$PASS:
$DEVCT:
SUNIT:
:
$MSGAD
$MSGLG:

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

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

;sAPT

MAILBOX

s sMESSAGE TYPE CODE

;:FATAL ERROR NUMBER

;s TEST NUMBER
: sPASS COUNT
;:DEVICE COUNT
::1/70 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH

DR11-k LOGIC TEST HAINDE(=11-CIDRG-E MACY11 30G6(1063) 31-AUG-79 li:05 PAGE 10-6
CZDRGE .P11
31-AUG=7911:23
APT MAILBOX-ETABLE

(2)
(2)
(2)
(2)
(2)
(¢)
(2)
(2)

001210
001210
00121
001212
001214
001216

000
000
000000
000000
000000

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

SETABLE:
SENV:
BYTE
SENVM:
_BYTE
$SWREG: .WORD
SUSWR:
_WORD
$CPUOP: .WORD
.
;e

AENV
AENVM
ASWREG
AUSWR
ACPUOP

001220
001221

000
000

001222

000000

001224
CC 225
Cui226
001230
0012%
001232
001234
001235
001236
001240
001242
001244
001246

00C
00C
000000
000
000
000000
000
000
000000
100300
000000
167770
000000

001250
001252

000000

A
;®
M
$SMAMS1: _BYTE
$MTYP1: .BYTE
e
o
;.
SHADR1: .WORD
i
$SMAMS?2: .BYTE
SMTYP2: .BYTE
$MADRZ2: .WORD
$MAMS3: .BYTE
SMTYP3: .BYTE
$MADR3: .WORD
$SMAMSS: .BYTE
SMTYP4&: .BYTE
$SMADR4: .WORD
$SVECT1: .WORD
SVECT2: .WORD
$BASE:
.WCRD
$DEVM:
_.WORD
$CDW1:
.WORD
SETEND:
MEX]T

SEQ 0016

:sAPT ENVIRONMENT TABLE
s sENVIRONMENT BYTE
;:ENVIRONMENT MODE BITS
;;APT SWITCHM REGISTER
;:USER SWITCMES
;;CPU TYPE,OPTIONS
B1TS 15-11=CPU TYPE
11704=01,11/05=02, 11/20 03,11/40=04,11/45=05

11/70=06 PDQ=07,0=

AMAMS
AMTYP1

AMADR!

AMAMS?
AMTYP2
AMADRZ
AMAMSY
AMTYP3
AMADRS
AMAMSSL
AMTYP4L
AMADRSG
AVECTT
AVECT2
ABASE
ADEVM
ACDWY

BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
B8=MEMORY MANAGEMENT
..ann ADDRESS.M.S. BYTE
;;MEM. TYPE, BLKII
HEH TYPE BVTE
-=
(HIGH BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC MOS=003
;:HIGH ADDRESS,BLKA#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF
;:MHIGH ADDRESS.M.S. BYTE
;:MEM.TYPE,BLK#?2
;:MEM.LAST ADDRESS.BLKN?
;:HMIGH ADDRESS
. M.S.BYTE
;:MEM.TYPE,BLK#3
;;MEM.LAST ADDRESS.BLK#3
;:HIGH ADDRESS.M.S.BYTE
;:MEM.TYPE ,BLKAG
;;MEM.LAST ADDRESS.BLKWN¢
;;INTERRUPT VECTOR#1,BUS PRIORITYS!
;;INTERRUPT VECTOR#2BUS PRIORITY®?2
;BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP
s CONTROLLER DESCRIPTION WORDAHI

'‘TYPE'' AROVE

HAIND$(5;1°(IDRG°E MACY11 306(1063) 31-aUG=79 15:05 PAGE 10-7

DR11=K
LOGIC TEST
CZDRGE .P11
31-AUG-79 1

ERROR POINTER TABLE

SEQ 0017

:};

.SBTTL

(1)
(1)

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

()

ERROR POINTER TABLE

;*LOCATION SITEMB.

THIS NUMBER INDICATES WHICH ITEM IN THE

(1)
:};

;*NOTE1:
:*NOTE2:

;:POINTS TO THE ERROR MESSAGE

;:POINTS TO THE DATA

()

(})

(1)

(1)
(1)
410
¢

612
413
414
415

416
417
418
419
420
as;

423

426
425
426
427
428
429
430
431

432
433
434
435
436
4«37
438

439
440
44
442
443
L44
445

001252

;:POINTS TO THE DATA HEADER

DFf

;:POINTS TO THE DATA FORMAT

$ERRTB:

001252
001254
00125
001260

014251
014671
015162
015224

001262
001264
001266
001270

014302
014741
015162
015224

001272
001274
001276
001300

014332
015007
015162
015224

001302
00130&
001306
001310

0'3%3
015055
015176
015224

001312
001314
001316
001320

014415
015055
015176
015224

001322
001324
001326
001330

014450
015055
015176
015224

CITEM

J1IEM

;1TEM 3

TABLE

1S PERTINENT.

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP(C).
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

"1
DH1
oM
LFO

;STATUS REGISTER IN ERROR
;ERRPC
DRADD
STATUS EXPECTED
;SERRPC DRADD
$BNPDAT SGDDAT

2
EM2
DH2
D11
DFO
EM3
DH3
DT
DFO

J1TEM

4
EM4
DH&
DI4
DEO

1TEM

S
EMS
D&
DT4
DFO

JITEM

EM6
DH&
D14
DFO

;INPUT REGISTER

IN ERROR

;ERRPC
DRADD
;SERRPC DRADD

INPUT EXPECTED
$BDDAT $GDDAT

;:OUTPUT REGISTER IN ERROR
;ERRPC
DRADD
OUTPUT EXPECTED
;SERRPC DRADD
$BDDAT $GDDAT

sINPUT FAILED TO INTERRUPT
;ERRPC
DRADD
;SERRPC DRADD

;OUTPUT FAILED TO INTERRUPT
;ERRPC
DRADD
:$SERRPC DRADD

SUNEXPECTED INTERRUPT
;ERRPC
DRADD
;SERRPC DRADD

CZDRGE .P11

464

31-AUG-79 11:23

CY11 306(1063) 31-AUG-79 1%.05 PAGE 11
;SERRPC DRADD

ol
—

J1TEM

000200
000240

BASEBA:
BASE]v:
BASEBR:
(PU:

001372
001374

000000
000000

NMBEXT:
NBEXT:

001376
001400

167770
000300

DRADD:
DRIvV:

496

497

498
499

500

001402
001404
001406
001410
001412
001414
001416
001420
001422
001424
001426
001430
001432
001434
001436
001440
001442
001444
001446
001450
001452

SGDDAT

BRLEV3

:NON=INTERRUPTING INPUT BIT SET INPUT READY
;ERRPC
DRADD
STATUS
EXPECTED
INPUT BIT
.SERRPC DRADD
$BDDAT
$GDDAT
BRLEV3

001354
001356

001362
001364
001366
001370

&7
472
473
474
675
676
67
478
79
480
481
4«82
483
484
485
486
4«87
488
489
490
&9
692
493
494
495

$BDDAT

;ITEM

001352

467
470

; INTERRUPT INPUT BIT FAILED TO SET INPUT READY
;ERRPC
DRADD
STATUS
EXPECTED
INPUT BIT

;SERRPC DRADD

001360

468
469

SEQ 0018

;OPERATOR INTERVENTION ERROR
;ERRPC
DRADD

001336
001340

001342
001344
001346
001350

)

ERRCR POINTER TABLE

465

466

MACY!

;1TEM

001332
001334

(WL
IV P 3

L49
450
651
652
453
654
455
656
457
458
459
460
461
462
463

IDRG-E

MAINDEC-11-CZDRG-E

LOGIC TEST

OO00O

DR11=K

)

;STARTING BASE BUS ADDRESS
;STARTING BASE INTERRUPT ADDRESS

;1 MS. CPU DELAY FACTOR 240 FOR 11/05
:
*ADDITIONAL DR=11-K
: CURRENT DR11=K

300

620 FOR 11/40

STARTING ADDRESS

;CURRENT DR11=K STARTING INTERRUPT VECTOR

LOC1:

,LOC BOX #1 ADDR
;LOC BOX #2 ADDR

LOC2:
LOC3:

;LOC BOX #3 ADDR

GRSTAT:
:
GRDAI]
GRDIO:
GRBHI]O:

;DR STATUS

: INPUT REG.
sOUTPUT REG.
;OUTPUT REG HIGH BYTE

NOTLCH:

INTBIT:
GRIVA:
GRIVSA:
GRIVB:
GRIVSB:
DIOBRL:

000000
000000
000000
000000

BRLEV1:
BRLEVZ:
BRLEV3:

ODDJMP:
MINSIN:
TRANST:

JUMPER:

RUNNING H322 JUMPER (ONFIG ;2 IF

COULTER JUMPER (ONF1G

DR11-k
LOGIC TEST
HAINDEC 11-CZDRG=E
CZDRGE .P11
31-AUG-79 11:23
508

509

510

511
512
513
514
515
516
517
518
519
520
521
522

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(2)
(2)

0014564
001456
001462
001464
001472
001474
001476
001504
001506
001510
001514

005000
005037
000414
012737
005000
000407
012737
005000
000402
012700
000005

001516
001522
0015264
001530
001532

012706
005026
022706
001374
012706

001100

001536
001544
001552
001560
001566
001574
001602
001610
001616
001624
001630
001634
001642
001650

012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037
112737
012737
012737

015244
000340
015524
000340
020254
000340
016300
000340
011272
001160
001162
000001
001642
001650

000004
001716
177570
177570
177777

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
{2)
(2)
(%)

001656
001662
001670
001676
001704
001712

013746
012737
012737
012737
022777
001012

001714
001716
001722
0017264
00i732
001740

000403
012716
000002
012737
012737
012637

(2)
(2)
(2)
(2)

001744
001750
001756
001760

005037
132737
001403
012737

(1)

MACY11 306(1063)
31-AUG=79
ERROR POINTER TABLE

BEGIN:

001452
000002

001452

000001

001452

177777

001100
001140

000020
000022
000030
000032
000034
000036
000024
000026
011264
001115
001106
001110

000176
0001764
000004
001176
000200

001211

001212

001140

R R

DIGITAL I-0 LOGIC TEST

PAGE

R R R R R R R R R R

R R R P R RN P R RN R R RPN R RPN O RO RO

SEQ 0019
22T

ORI OROERRRRRRY

;CLEAR RO
;INDICATE NORMAL FACTORY BUILD
;INDICATE COULTER JUMPER CONFIG

sINDICATE LOC BOX JUMPER CONFIG
;LOAD RO

;s CLEAR THE COMMCN TAGS (SCMTAG) AREA
MOV
FSCMTAG,RG
ssFIRST LOCATION TO BE CLEARED
CLR
(R6)+
: s CLEAR MEMORY LOCATION
CMP
#SWR,R6 ; ;DONE?
BNE
.=6
. :LOOP BACK IF NO
MOV
#STACK,SP
;s SETUP THE STACK POINTER
s INITIALIZE A FEW VECTORS
MOV
#$SCOPE,a#I0TVEC ;10T VECTOR FOR SCOPE ROUTINE
MOV
#340,a/10TVEC+2 ;;LEVEL 7
MOV
#SERROR,IFEMTVEC ;:EMT VECTOR FOR ERROR ROUTINE
MOV
#3640 ,QMEMTVEC+2 ;;LEVEL 7
MOV
#STRAP,3#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
MOV
#3460 ,3#TRAPVEC+2;LEVEL 7
MOV
#$PWRDN,9#PWRVEC ;;POWER FAILURE VECTOR
MoV
#340 ,9#PWRVEC+2 ;;LEVEL 7
MOV
SENDCT,SEOPCT
; :SETUP END-OF -PROGRAM COUNTER
CLR
$TIMES
;s INITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
;s CLEAR THE ESCAPE ON ERROR ADDRESS
mMOvB
#1,SERMAX
::ALLOW ONE ERROR PER TEST
MOV
¥.,SLPADR
::INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
¥. . SLPERR
;. SETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;.EQUAL TO A "'=1'", SETUP FOR A SOFTWARE SWITCH REGISTER.

64%:
001140
001142

13:05

(LR
RO
CLR
JUMPER
BR
RBEG
COULTJ: MOV
#2,JUMPER
CLR
RO
BR
RBEG
H322J:
MOV
#1,JUMPER
CLR
RO
BR
RBEG
BEGIN1: MOV
#-1,R0
RBEG:
RESET
.SBTTL
INITIALIZE THE COMMON TAGS

000004
001140
001142
177226

001724

65%:
66%:

MOV
MOV
MOV
MOV
(MP
BNE

a#ERRVEC,-(SP)
N66S ,QNERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
66%

BR
MOv
RTI
MOV
MOV
MGV

65%
#65%, (SP)

(LR
BITB
BEQ

$PASS
#APTSIZE,SENVM
67%
#SSWREG, SWR

MOV

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

#SWREG, SWR
- ++POINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC
;;RESTORE ERROR VECTOR
;sCLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
s YES,USE NON=APT SWIT(H
::NO,USt APT SWITCH REGISTER

LOGIC TEST

OO O VaaaWVa
caa a0

NONNNNINNN
- O O WINININ
N

NN NNNNNIN

001244
001240
160000

001241
177437
002052
001362

001362
001364
001364
001366
001366
000004

MACYT 39?(1065) 31-AUG-79 1;:05 PAGE 12-1
H

INITIALIZE

67%:

013463
100000

BIC

MOV

002102
002104

001401
000000

002106

000754

002110
002112
002116
002124

005303
010337
012737
012737
000005
005737
001002
005700
001402
000137

003102

104401

002160

002132
002134
002140
002142
002144
002146
002152
002152
002156
002234
002234
002240

002272
002272
002276
002300
002302
002306
002354
002354
002362
002364
002370
002376

000426
104401
000414

013746
104403
000002
104401

000422

022737
001013
005037
012737
005037

CLR
ST
SUB
INC
BR
CMP

181
BNE
BIT
BNE

177052
177036

MOV

BIC
MOVE

1%:

020000

THE COMMON TAGS

MOV

2%:

000010

002066
002070
002074

O s s

VWL
N NN NN

VS NN =

001766
001766
001774
002002
002010

31-AUG-79 11:23

oo~

bbbt

Tl LV LV LV LW IV LV IV TV LV PPN

NN
VONO
VIS W

CZDRGE P11

MAINDEC-11-CZDRG-E

83 (elelellelele]
— it PN s BN s

DR11-k

48:

001372
002572
000340

38:

000004
000006

000042

3::

éi?s"
002242
‘327“

001372
002310

000001

001452

001420
177777
001446

001422

:GET PRIORITY

:GET VECTOR

#177437 ,BASEBR

#18,aMERRVEC

;LOAD BUS ERROR

BASEBA,R2

:LOAD STARTING ADDRESS

R3
(R2)
#10,R2
R3
2%

:CLEAR COUNT
STEST IF EXISTENT
;EXIST, UPDATE TEST ADDRESS
ZUPDATE # OF DR11'S

(SP)+,(SP)+

:POP STACK

R3
3%
#SW13,a5WR
4%

STEST IF FIRST DOES EXIST
:BR
STEST IF INMIBIT TYPEOUT
:BR IF YES

#SW15,aSWR

:TEST HALT

:BR IF NO HALT

SCHECK THE PROGRAM DEVICE ADDRESS
STRY AGAIN

BR
DEC

:TELL

R3,NMBEXT

MOV
RESET
ST
BNE
ST

#340,3#ERRVEC+2

BEQ

TYPE

,658%

JMP

BR
LASCIZ

LASCIZ

MOV
TYPOS

THE

BUS

DR11K

DOES NOT

NUMBER OF
ERROR

DOESN'T

ADDITIONAL

,67%

66%

:JUMP

CLEARED

SET

;:TYPE ASCIZ STRING

::TYPE ASCIZ

STRING

S:GET OVER THE ASCIZ

<15><12>/MAINDEC=11-CZDRG=E/<15><12>

:
NMBEXT,=-(SP)

68%

CMP
BNE

#1, JUMPER
1%

,69%

::TYPE

ASCIZ

STRING

S:GET OVER THE ASCIZ

/(8) ADDITIONAL DR11-K'S CONNECTED/<15><12>

NOTLCH
#-1,INTBIT

MINSIN

DR11-K

:TEST IF UNDER A MONITOR
:BR IF
STEST RO

:BR

EXIST

64$
::GET OVER THE ASCIZ
<15><12>¢<15><12>7/DR11-K DIGITAL INPUT OUTPUT LOGIC

CLR
MOV
LR

:RESET

10TEST

.WORD

LASCIZ

:SAVE

BASE

ON ERROR

DR11-K

:ADJUST R3

#VECTRP ,@NERRVEC

N2
4%
RO
2%

OPERATOR

:FIRST

MOV

TYPE

;2698

#160000,BASE IV
SVECT1+1,BASEBR

BEQ

TYPE

66%:

:GET APT DEFINED ADDRESS

BUSTRP

MOV

RBEG!:

$BASE ,BASEBA

SVECTT, BASEIV

TYPE,

BIT

HALT

5% :

SEQ 0020

;TEST IF LOC-BOX CONF1G.
:BR IF NOT

:LOAD LOC-BOX JUMPER CONF1G
;

TEST/

DR11=Kk
LOGIC TEST
MAINDEC=-11-CZDRG-E
CZDRGE.P11
31-AUG=79 11:23

o
(=d{=d=l=1=1~]
~N o
-t ) e
o
NV
—O
~
Vet YO NNO
N—

NN NN NN — N w
NNNNNNWMN ~

005037

002462
002464
002470
002472
002474
002500
002502
002504
002510
002512
002514
002522
002530
002532
002540
002542

001450
003102
000002
177777
170000
001446
170000
003102
003016

001452

1%:

3%:

001124
001446

001124

001450

10%:

006137

001124

002556
002562
002564
002566

004537
014142
001442
000137

003016

002572
002576
002°00
002602
002604
002610
002612
002614
002616
002622

021627

001000

103362

103402

000000
000776
021627
101002
000000
000776
012637
162737

032777
001050
104401

000417

#170000, TRANST
10TEST
RS, TALK
RS, TALK
RS, TALK
RS, TALK

003014
176302

2$:

;:65%:

;RUN THE LOGIC TEST WITH COULTER JUMPERS
;TALK

TO THE ANIMALS

;ABOUT NON LATCH INPUT BITS
;TALK

TO THE ANIMAL AGAIN

;ABOUT THE

INTERRUPTING BITS

;ISN'T THIS BOARING

;AGAIN-ABOUT THE MINUS INPUT BITS

;HO=HUM

THE TRANSITION BITS

ROL

$GDDAT
108

;MOVE LEFT
:BR UNTIL DONE

JSR
SWDPOB

RS, TALK

sASK THE OPERATOR

JMP

I0TEST

BCC

HALT

MOV

SUB

BIT

002646

;TEST IF COULTER CONFIG.
;:BR IF NO T
;LOAD COULTER JUMPER CONFIG.

;AGAIN-ABOUT

BNE
TYPE
BR

LASCIZ

sINPUT BIT CANNOT BE NEG. AND TRANS. AT THE SAME
:

;ABOUT PROGRAM OPTIJNS

;INTERRUPT TO UNEXPECTED VECTOR
(SP), #1000

71%:

sRUN THE LOGIC TEST WITH LOC-BOX JUMPERS

BEGIN

VECTRP: .CMP
“BLO
70%:
HALT
BR
1%:
CMP
BHI

000200

003014
000004
020000

#170000, INTBI1T

SEQ 0021

JMP

811
BEQ

BRLEV3

003102

#-1,NOTLCH

PAGE 12-2

BEQ
ERROR

MOV

BIT

11%:

2
13:05

DETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL SWITCH ERROR
;LOAD TEST BIT
#B1712,8GDDAT
;TEST IF NEG INPUT BIT
$LDDAT ,MINSIN
;BR IF NOT
11%
;TEST IF TRANS. INPUT
$GDDAT, TRANST
11%
:BR IF NOT
;LOGICAL OPERATOR ERROR
7

.SBTTL

104007

002550
002554

JMP
JSR
SWNLB
NOTLCH
JSR
SWINTB
INTBIT
JSR
SWPOSB

MINSIN
JSR
SWIRAB
TRANST

010000
001124

000137

MINSIN

MOV

001450

033737
001407
033737
001403

CLR

001450

003016

012737

I0TEST
;2.JUMPER

MOV
MOV

TRANST

JMP
CMP
BNE

001420
001422

003016

002544

002644

CLR

003016

001454

002630
002636
002640

306(1063)
31-AUG-79
INITIALIZE THE COMMON TAGS

MACYT

;TEST

IN PROGRAM CODE

%
ot

:BR IF NOT
;FATAL BUS TRAP IN PROGRAM AREA

(SP),#200

;TEST IF

(SP)+,72%

;GET ADDR (HE TRAP OCCURRED 10

’%
"e

ne,72%

#SW13,aSWR
3%
.65%
64%

<15><12>/DR11k

IN SACRED VECTOR AREA

;BR IF NOT
;FATAL VECTOR TRAP

;MAKE REAL ADDRESS

;TEST 1F TYPE ERROR INHIBIT
:BR IF INHIBIT
,.TYPE ASCIZ STRING
.GET OVER THE ASCIZ

INTERRUPTED

T0 LOC.

DR11-K LOGIC TEST HAINDEC=11-CZDRG=E MACY11 306(1063) 31-AU6-79 %:05 PAGE 12-3
CZDRGE .P11
31=-AUG=79 11:23

DETERMINE THAT THE OPERATOR oxo NOT MAKE A LOGICAL SWiTCH ERROR

(1)

622
623
626
(1)
()
(1)

625
626
627
628
629
630
631

g;g

002704

00270&
002710
002712
002716
002760

002760
002766
002774
002776
003000
003002
003010

003014

013746
104402
104401
000420

042737
032777
001401
000000
022626
013737
000137

000000

64%:

003014
002720

000007
100000

003014

003126

003014
176144

001400

644
645
646

647
648
649
650

3%:

(%
72%:

ggg
636
637
638
639
640
641
642
643

;:678:
66%:

MOV
TYPOC
TYPE
BR

72%,-(SP)

;LOAD VALUE TO BE TYPED

_ASCIZ

,67%
;:TYPE ASCIZ STRING
66%
::GET OVER THE ASCIZ
/ AND WILL NOW USE THAT VECTOR/<15><12>

BIC
BIT
BEQ
HALT
CMP
MOV
JMP

#7,72%
sMASK OFF LOWER 3 BITS
#SW15,aSWR
;TEST IF HALT ON ERROR
4%
8 I1F NOT
;DR11K INTERRUPTED TO WRONG VECTOR-PROG WILL NOW USE THAT VECTOR
(SP)+,(5P)+
;CLEAN THE STACK
72%,DR1V
:LOAD NEW VECTOR ADDRESS
RBEGZ2
;TEST THE DR11K AT THE NEW VECTOR

;OPERATOR QUESTIONS AND ANSWER ROUTINE
003016
003022
003026
003030
003032
003040
003042
003046

003050
003054
003056

012537
012537
104401
013554
023727
001006
104401
104412

012677
000403
104401

003030
003074
001140

TALK:

000176

108:

017763
176064

1%:

MOV
MOV
TYPE
SWNLB
CMP
BNE
TYPE
RDOCT

MOV
BR
TYPE

;GET ASCII POINTER
;GET POINTER TO DATA FROM OPERATOR

SWR, #SWREG
1%
,SMSWR

:TELL OPERATOR TO LOAD SWITCHES
;TEST IF SWITCH REG. EXISTS
;BR IF NO
;TYPE "'SWR =
;READ OCTAL

(SP)+,aSWR
2%

:SAVE THE SWITCHES

gg;

003074

014227
000000
017777
000205

001420

118%:

653
654
222

003076
003100

104006
000002

;UNEXPECTED INTERRUPT
UNEXPT: ERROR
6
RT1

UNEXPECTED INTERRUPT DURING A SUB=TEST
JEXIT

657
658
659
660

003102
003104
003112
M3120

000005
013737
013737
013737

IOTEST: RESET
MOV
MOV
MOV

BASEBA,DRADD
BASEIV,DRIV
NMBEXT ,NBEXT

;LOAD INITIAL STARTING ADDRESS
;LOAD INITIAL STARTING VECTOR
:RELOAD # AVAILABLE

662
663
664
665
666

003130
003196
003140
003182
003146

012701
012702
010221
01272%
022222

#240,R1
#242 ,R2
R2,(R1)+
#4700, (R1)+
(R2)+,(R2)+

:LOAD R1

670
671
672
673

0031%
003140
0031:6
00311{

000005
004737
000453
013737

661

667
223

003126

003130
0031%4

000005

020227
001371

001362
001364
001372

000002

001376
001400
001374

000240
000242

RBEG2:
5%:

004700

001076

NOTLCH

RESET

MOV
MOV
MOV
MOV
CMP

CMP
BNE

003166
001376

2%:

DEPCNT
HALT
MOV
RYS

(R5)+,10%
(RS)+,11%

003060
003062
003064
003072

176050

001410

SEQ 0022

10TST1: RESET
JSR
B8R
SETADD: MOV

aSWwR,a11$%
RS

R2,#SCMTAG-2
5%
PC,SETADD
107181
DRADD,GRSTAT

;TELL OPERATOR TO DEPRESS CONT
;WAIT FOR OPERATOR
:LOAD SWITCH VALUE
JEXIT

;POINTER TO DATA TO BE LOADED

:SAVE

THE ADDRESS
:LOAD ''JSR
PC,RO"
:BUMP R2
:TEST FOR LAST
:BR UNTIL DONE

;SET UP BUS ADDRESS AND VECTOR
:LOAD 1ST ADDRESS

:
|
‘

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE.P11
31-AUG-79 11:23

674
675
676
677
678
679

003174

001376

MoV
ADD

DRADD,GRDA]
#2,GRDA]

MOV

001366
001444
001446
001450
003076
000340
003076
000340

003342
003350
003356
003364

001434
001444
001444
176054
176050
176044
176040

ARl

DRIV,GRIVA
DRIV,GRIVSA
#2,GRIVSA
DRIV,GRIVB
¥4 ,GRIVB
DRIV,GRIVSB
#6,GRIVSB
PC
BASEBR,DIOBRL
0DDJMP
MINSIN,ODDJMP
TRANST,0DD
JMP
FUNEXPT ,aGRIVA
#340,3GRIVSA
#UNEXPT ,aGRIVB
#340,3GRIVSB

S*TEST 1

003374

003400
003404

005077

TST1:

176010
176006
176004

AAA A

000004
012737

012777
017737
023737
001401
104003

001124
175766
001126
001126

TST12:

;LOAD 2ND VECTOR

;LOAD BR LEVEL
;SET MINUS INPUT BITS

;SET TRANSITION INPUT BITS

SRESET

INPUT VECTOR

;RESET OUTPUT VECTOR

SCOPE
CLR
CLR
CLR

s*TEST 2

003410
003412
003420
003426
003434
003442
003444

:LOAD FIRST VECTOR

22222223222

22222222221%)

TEST FOR NO BUS ERRORS

003372

;LOAD &TH ADDRESS

#5,GRBHIO

MOV
MOV
ADD
MOV
ADD
Mov
ADD
RTS
I0TTS1: MoV
CLR
BIS
BIS
MOv
MOv
MOv
MOV
AR

:LOAD 3RD ADDRESS

#4,GRDIO
DRADD,GRBHIO

ADD

001432

:LOAD 2ND ADDRESS

DRADD,GRD10

ADD
MOV

001400
000006

MACY11 30G6(1063)
31-AUG=-79
13:05
PAGE 12-4
DETERMINE THAT THE OPERATOR D
N OT MAKE A LOGICAL SWITCH ERROR

SCOPE

I IInImmmmmmT

dGRSTAT
@GRDAI
aGRDIO
A

MOV
MOV
MOV
CMP

#-1,8GDDAT
#-1,3GRDI0
aGRD10,$BDDAT
$GDDAT,$BDDAT

ERROR

BEQ

2222222222222

2222222%

TEST THAT OUTPUT REG. CAN HOLD #-1

1573

LTI

sLOAD EXPECTED
sALL ONES TO REGISTER
sREAD OUTPUT REG.
. COMPARE

.:BR IF EQUAL

;REG WILL NOT HOLD ONES

SEQ 0023

DR11-K
LOGIC TEST
HAINDEC
=11-CZDRG-E
CZDRGE.P11
31-AUG-79
1 1:23

706
(3)
(3)
(2)
(1)
707
708
709
710
4}

MACYTT
13

'TEST 3
R

003446
003450
003456
003462
003470
003472
003500
003502

000004
012737
005037
012777
000005
017737
001401
104003

000040
001124
177777

001160

175716

001126

TSTS

SCOPE
MOV
CLR

175724

MOV
RESET
MOV
BEQ

'TEST

TEST THAT RESET CLEARS OUTPUT REG.
R

A R AR

TEST

— O~NN
oo
S oo

1124

oo —=O

000004

012737
012777
017737
023737
001401

—Oorrorn
WD
SO

003542
003544
003552
003560
003566
003574
003576

126
1126

104003

$GDDAT,$BDDAT
TSTS

R R

'TEST 6

TEST

RN RN R

AR RN OO

R R

CAN HOLD #52525

LIS

REG.

; COMPARE
;:BR IF EQUAL
;DATA NOT=52525
AR

R RN RN AR

R R AR RN

RN RN

CAN HOLD #125252

R R N R

;REG FAILED TO CLEAR

sREAD OUTPUT

#125252 ,9GDDAT
#125252,3GRD10
aGRD10,$BDDAT
$GDDAT,$BDDAT
1576
N RN R R

;SET DATA TO ALL ONES
sREAD OUTPUT REG.
EQUAL
:

sLOAD EXPECTED VALUE

REG.

TEST THAT OUTPUT REG.

ERROR

THAT OUTPUT

CMP
BEQ
ERROR

SCOPE
MOV
MOV
MOV
CMP
BEQ

634

R AR

P R R R R R AR R AR RN R RN

aGRD10,$BDDAT

TSTS

;:BR IF

A RN R

#52525,9GDDAT
#52525,3GRDIO

MOV

;*TEST 5

;:00 40 ITERATIONS

MOV
MOV

SCOPE

104003

aGRD10,$BDDAT
1ST4

“

TST‘

— NN

=00
o NI

000004
012737
012777
017737
023737
001401

#-1,3GRDIO

003504
003506
003514
003522
003530
003536
003540

#40,8TIMES
$GDDAT

ERROR

O bt
o~NNoN

OVONO
WV

NNNNNNA
~
b b e s it B W

SEQ 0024

t't"""""""'"'"""""'."""""""ll".""""t"

306(1063)
31-AUG-79
13:05 PAGE 13
TEST THAT RESET CLEARS OUTPUT REG.

sLOAD EXPECTED VALUE

;:BR IF

;READ OUTPUT REG.
; COMPARE
EQUAL

sDATA NOT=125252

N R R R RN R P N R R R RN AN AR AN AR AR RN AR AR AR R AR AR

THAT OUTPUT

REG.

CAN HOLD A COUNT

PATTERN

tt't.ttt't""""t't""""'""'.l."'t'lt."'tt'."""'tt'

003600
003602
003610
003616
003622
003630
003636
003644
003646
003650
003654

000004
003622
00112¢
001124
175560
00112¢
001124

ISTb

2%:

1%:

SCOPE
MOV
MOV
CLR

¥4, STIMES
#2% ,SLPERR
$GDDAT

MOV
CMP

aGRD10,$BDDAT
$GDDAT,$BDDAT

INC

$GDDAT

MOV

BEQ
ERROR
BNE

$GDDAT,aGRDIO

1%
3

::D0 &

ITERATIONS
;LOAD SCOPE ERROR RETURN
;CLEAR PATTERN

:LOAD THE OUTPUT REG.
;READ THE REG.
. COMPARE

;:BR IF EQUAL
;:OUTPUT REG.FAILED TO HOLD COUNT PATTERN
;UPDATE

THE PATTERN

: TRY AGAIN

DR11-K LOGIC TEST HA]NDEC 11-CZDRG-E MACY11 306(1063) 31-AUG-79M 1%:05 PAGE 14
CIZDRGE.P11
31-AUG=79 11:23
17

FLOAT A 1 ACROSS THE OUTPUT REGISTER

761

(3)

(2)
7642

003656
003660

003666

012737

7645
7646
7647
7648
749
;g?

0036764
003700
003706
003714
003722
003724

005077
053777
017737
023737
001401
104003

175514
001126
175502
001124

752
753

003726
003732

006337
001360

001124

;:2

754

000004
012737

003674
000001

001110
001124
175506
001126
001126

1S17:

SCOPE
MOV

R R R R R R R R R R 2 R

R R

R R R R 2 21T

FLOAT A 1 ACROSS THE OUTPUT REGISTER
R

R R

R N R R RN R R P R RN R RN RN A NN NN

R ORO R

Mov

#18,SLPERR
#B1T0,$GDDAT

;LOAD SCOPE ERROR RETURN
;LOAD EXPECTED VALUE

1%:

CLR
BIS
MOV
CMP
BEQ
ERROR

aGRD10
$GDDAT,aGRD10
aGRDI10,$BDDAT
$GDDAT,$BDDAT
2%
3

;CLEAR OUTPUT
sSET THAT BIT
sREAD OUTPUT REG.
sTEST RESULTS
;BR IF EQUAL ?

2%:

ASL
BNE

$GDDAT
1%

sSHIFT EXPECTED DATA
sBR UNTIL DONE

;*TEST

FLOAT A O ACROSS THE OUTPUT REGISTER

TST10:

SCOPE
MOV
MOV

1% ,SLPERR
#B1T0,$GDDAT

sLOAD SCOPE ERROR RETURN
sLOAD EXPECTED VALUE

1%:

MOV
BIC
MOV
COM
CMP
BEQ
ERROR

#-1,3GRD10O
$GDDAT,aGRDIO
aGRDI0,$BDDAT
$BDDAT
$GDDAT,$BDDAT
2%
3

sLOAD OQUTPUT TO A ONE
;CLEAR A BIT
;READ QUTPUT REG.
s COMPLEMENT IT
;EQUAL ?
;BR IF EQUAL

2%:

ASL
BNE

$GDDAT
1%

sSHIFT LEFT
sBRANCH UNTIL DONE

..titt'tt't't"t"t'l'tt"tt'ttt'tttttt'tltttlt'tttttttl'tt'ttttt

(3)

;;ll"tttttt't'tttt'tt"t'tt'tttt't'llttttttttlttttl'tttat'tttt't

(2)
755
;gg

003734
003736
003744

000004
012737
012737

758
759
760
761
762
763
;gg

003752
003760
003766
003774
004C0C
004006
004010

766
;g;

004012
004016

769

003752
000001

001110
001124

012777
043777
017737
005137
023737
001401
104003

177777
001124
175422
001126
001124

175434
175426
001126

006337
001355

001124

001126

(3)
(3

(2)
770
771
776
(1)
(1)
(1)
(1)
(1)
(1)
(1)
775
776
777
778

e R

;*TEST 7

SEQ 0025

AR T N N NN RN R R RN R AR RN RN RN RN RN RN RN RN RN RN

;*TEST

TEST FOR SLOW OUTPUT GATES WITH #125252

TST11:

5.OPE
MOV
MOV
COM
COM
COM
COM
COM
COM
COM
COM
MOV
CMP
BEQ
ERROR

#125252 ,9GDDAT
$GDDAT ,aGRDI0O
aGRDIO
aGRDIO
aGRDIO
aGRDI0
aGRDIO
aGRDIO
aGRDI0
aGRDIO
aGRD10,$BDDAT
$GDDAT,$BDDAT
1ST12
3

;:.ltltlttt"tt't"tttttttttttt"ttttt'tt'l'tt"lttl'tti'ttt'tttt

004020
004022
004030
004036
004042
004046
004052
004056
004062
004066
004072
004076
004104
004112
004114

000004
012737
013777
005177
005177
005177
005177
005177
005177
005177
005177
017737
023737
001401
104003

125252
001126
175352
175346
175342
175336
175332
175326
175322
175316
175312
001124

001124
175356

001126
001126

:sBR IF

;LOAD EXPECTED VALUE
sLOAD OUTPUT
; COMPLEMENT OUTPUT REG.
: COMPLEMENT OQUTPUT REG.
sCOMPLEMENT OUTPUT REG.
s COMPLEMENT QUTPUT REG.
: COMPLEMENT OUTPUT REG.
s COMPLEMENT QUTPUT REG.
s COMPLEMENT OUTPUT REG.
s COMPLEMENT OUTPUT REG.
:RF D OUTPUT REG.
;7 ST REGISTER
CURRECT

DR11-K LOGIC TEST MAINDEC-11-CZDRG-E
CIDRGE.P11
31-AUG-79 11:23
780
(3)
(3)
(2)
781
782
785

MACY11 306(1063) 31-AUG=79 1;:05 PAGE 15
N

112

TEST FOR SLOW OUTPUT GATES WITH #52525

i 2222222222222

2222222222222 222222222222 2222222222222 2222222222222 RRRRdRddddd)

SRTEST 12
N =NONWWES
WO
Sfsrorororosrssruwm

el
T
(= P

e e

1ST12:

-t NN NN NNAANNAN
- N
=S
PNONONNONNONINON
=\

O NNNNNNNNNOwWw

000004

SCOPE

MOV
MOV

COM
COM
COM
COM
COM
COM
COM
COM

MOV
CMP
BEQ

ERROR

004212

2222220022022

002222200 RdRdddilidlllllldd)

TEST FOR SLOW OUTPUT GATES WITH #52525
#52525,9GDDAT
$GDDAT,aGRDIO
aGRDIO
aGRDIO
aGRDIO
aGRDIO
aGRDIO
aGRDIO
aGRDIO
aGRDIO
aGRD10,$BDDAT
$GDDAT,$BDDAT
1ST13
3

:LOAD EXPECTED VALUE
sLOAD OUTPUT REG.
; COMPLEMENT OUTPUT REG.
; COMPLEMENT OUTPUT REG.
; COMPLEMENT OUTPUT REG.
; COMPLEMENT OUTPUT REG.
; COMPLEMENT OUTPUT REG.
;COMPLEMENT OUTPUT REG.
;COMPLEMENT OUTPUT REG.
;COMPLEMENT OUTPUT REG.
;READ OUTPUT REG.
;TEST PATTERN
;:BR IF EQUAL
;OUTPUT REGISTER IN ERROR

;;tt"""""""""""t"""'I'.Q.".".t'..'l't."'.'"'."

;*TEST 13

TEST THAT OUTPUT CAN HOLD LOW BYTE COUNT PATTERN

e
d

NS
N—=O
oo
oOoO

004262
004270
004272
004274
004300

PR
—

004246
004254

000400
004246
052400
001124
001124
175134
001124

— e \ VS

WNNWWWO

004214
004216
004224
004232
004240

OCO—==0000
OONNOOO

:;'I't"""""""""""""""'.".'l."'l'...".""..."t

001124

1ST13:

2%:

SCOPE

MOV
MOV
MOV
MOV

MOVB

MCvV

CMP
BEQ
ERROR
INCB
BNE

1%:

#400,$TIMES
#2% ,SLPERR

::D0 400 ITERATIONS
;:LOAD SCOPE ERROR RETURN

$GDDAT,aGRDIO
$GDDAT,aGRDIO
aGRD10,$BDDAT

;LOAD OUTPUT REG.
;:LOAD THE OUTPUT
;READ OUTPUT REG.

;ERROR, OUTPUT REG. IN ERROR

#52400,9GDDAT

$GDDAT,$BDDAT
1%

SgDDAT

;LOAD EXPECTED DATA

:BRANCH 1F EQUAL
:UPDATE PATTERN

Rl )
2222
2223222222RR
B 2122222222223 222222322232322223322222222222220

TRTEST 14

TEST THAT OQUTPUT CAN HOLD HIGH BYTE COUNT PATTERN

O= =000 —=00000
OO OON b e
e = O
— NI =N wWWNONONNOS

004302
004304
004312
004320
004326
004334
004342
004350
004356
004360
004362
004366

WO
S NINNNNSN ~NO
O WO OWWNNW WO
NNW=NINNNN NNS

':'t.""""""""""""'"'"..'tlt'ltt"l'l..t't"'.ll't"

000400
004334

000252

001124
001125
175046
001124
001125

001160
001110
001124
175060
175054
001126
001126

1ST14:

MOVB

2%:

1%:

SCOPE

MOV
MOV
MOV
MOV

MOV

CMP
BEQ
ERROR
INCB
BNE

#400,$TIMES
::D0 400 ITERATIONS
;LOAD SCOPE ERROR RETURN
#2% ,SLPERR
#252,9GDDAT
;LOAD EXPECTED
$GDDAT,aGRD10
;LOAD OQUTPUT REG.
$GDDAT+1,3GRBHIO
:LOAD THE HIGH BYTE
;READ OUTPUT REG.
aGRD10,$BDDAT
$GDDAT,$BDDAT

3200A101

;BRANCH 1F EQUAL

:ERROR, OUTPUT REG. IN ERROR

SEQ 0026

DR11=K
LOGIC TEST
MAINDEC-11-CZDRG-E
CIDRGE .P11
31-AUG=-79 11:23

815
(3)
(3)
(2)
816
817
818
819
820
821
822
823
824
825
(3)
(3)
(2)
826
827
828
829
830
831
832
833
634
(3)
(3)
(2)
835
836
837
838
839
840
841

842
(3
(3)
(2)

843
844
845
846
847
848
849

MACY11 306(1063) 31-AUG-798 1§:OS PAGE 16
115
TEST OUTPUT DATA ACCEPT FLAG

AL A

AAAA AR

LRTEST 15

004370
004372
004376
004404
004412
004420
004426
004434
004436

000004
005077
012777
012737
012777
017737
033737
001001
104001

SEQ 0027
R

RSS2

TEST OUTPUT DATA ACCEPT FLAG

""""""""""""'"""'""'.""""'."""""""'

175016
177777
100000
100000
174764
001124

187115

SCOPE

(LR
MOV
MOV
MOV
MOV
BIT
BNE
ERROR

175006
001124
174770
001126
001126

aGRD10
#-1,3GRDA]
#B1T15,8GDDAT
#BIT15,3GRSTAT
SGRSTAT,$BDDAT
$GDDAT, $BDDAT
15116
1

:LOAD EXPECTED

:SET BIT

:READ STATUS

::BR IF

SET
:ERROR, BIT

15 FAILED T0 SET

""""""""""""""""""."'.""."""""'."."

LRTEST

TEST OUTPUT

INTERRUPT ENABLE

'."'.'."""""""""""""'"'.'.".'."".'.'."""'I

004440
004442
004446
004454
004462
004470
004476
004500

000004
005077
012737
012777
017737
033737
001001
104001

174742
040000
040000
174722
001124

i§116:

SCOPE
CLR
MOV
MOV
MOV
BIT

001124
174726
001126
001126

AGRSTAT
#B1T14,8GDDAT
#B1T14.3GRSTAT
AGRSTAT,$BDDAT

$GDDAT, $BDDAT
1S117
1

BNE
ERROR
AL

STEST

;CLEAR STATUS
:LOAD EXPECTED
:LOAD BIT 14
:READ STATUS

TEST

.
;:BR IF SET
;ERROR BIT 14 FAILED TO SET
R

AR R

SRR

2222

INPUT DATA READY FLAG

;:"'."""'""'"""'""'""""""'."..t"""."'".'l'

004502
004504
004512
004520
004526
004534
004536

000004
012737
012777
017737
023737
001401
104001

000200
000200
174664
001124

001124
174670
001126
001126

1ST17:

SCOPE
MOV

MOV

#B117,$GDDAT

#B1T17,3GRSTAT

MOV

3GRSTAT,$BDDAT

BEQ

15720

CMP

ERROR

$GDDAT,$BDDAT
1

;LOAD EXPECTED

:SET BIT 7

:READ RESULT

: COMPARE

::BR IF EQUAL

;ERROR, BIT

7 FAILED T0 SET

® ""'""'""'"""l""""""t'.'.'.l"'t""'.""""l"

S*TEST 20

TEST

INPUT

INTERRUPT ENABLE

".".""'""'""'"""""""""'I'.".'.'t".'t"'.""

004540

004542
004546
004554
004562
004570
004576
004600

000004

005077
012737
012777
017737
023737
001401
104001

174642
000100
000100
174622
001124

1§720:

001124
174626
001126
001126

SCOPE
(LR

AGRSTAT

MOV
MOV

#B1T16,SGDDAT
#B1T16,3GRSTAT

BEQ
ERROR

1s121
1

MOV
CMP

AGRSTAT,$BDDAT
$GDDAT,$BODAT

;CLEAR STATUS

:LOAD EXPECTED
:SET BIT 6
:READ RESULT
: COMPARE

;:BR 1F EQUAL
;ERROR, BIT 6 FAILED TO SET

LOGIC TEST
MAINDEC-11-CZDRG-E
P11
31-AUG-79 11:23

MACY11 306(1063) 31-AUG-79 C 12:05 PAGE 17
121
MM

TEST THAT RESET CLEARS THE DIGITAL STATUS REGISTER

AR AR A

S*TEST 21
000004
012737
005077
005037
012777
000005
017737
001401
104001

1S121:

000040
174572
001124
140300

001160
174560

SCOPE
MOV
CLR
CLR
:g§£1

174552

001126

MOv

eTEST 22

R R

R 22

22222222X

TEST THAT RESET CLEARS THE DIGITAL STATUS REGISTER

W60, STIMES

R2R22

;:D0 40 ITERATIONS

aGRSTAT

dGRSTAT ,$BDDAT

sCLEAR STATUS

$GDDAT

:LOAD EXPECTED

#BITI5!BITI4!BIT7!BIT6,AGRSTAT

BEQ
ERROR

SEQ 0028

;READ RESULT

18122
1

::BR IF EQUAL
;ERROR, RESET FAILED TO CLEAR DIGITAL

sSTATUS REGISTER

2222222222223

TEST EXTERNAL TRANSFERS - CABLE MUST BE CONNECTED

:;""."'."""""""'."""'"""'...."'.'.""".'..'."

004644
004646
004654
004656

004670
004670

000004
032777
001405
112737

000137
005077
012777
005037
012777
017737
043737
023737
001401

002000

174264

000036
007200

001102

174520

1727777
001124
000000
174472
001444
001124

157122:

174510

SCOPE
BIT
8EQ
MOVB
JMP

#BIT10,3SWR
1%
#36,8TSTNM
DRT21

sTEST SWITCH BIT
;BRANCH IF DOWN
;LOAD NEW TEST NUMBER
;BYPASS SOME TEST USING THE EXTERNAL CAB'C[

CLR
MOV
CLR

aGRDIO
#-1,3GRDAI
$GDDAT

sCLEAR OUTPUT REGISTER
sCLEAR INPUT
sCLEAR EXPECTED

MOV
BIC
CMP

aGRDA] ,$BDDAT
ODDJMP ,$BDDAT
$GDDAT,$BDDAT

sREAD THE
s MASK
;s COMPARE

MOV

174500
001126
001126
001126

#0,3aGRDIO

BEQ
ERROR

106002

AR AR A

;*TEST 23

;LOAD THE OUTPUT

18123
2

TEST

INPUT

::BR IF EQUAL
JERROR,
R

WITH

INPUT

INPUT DID NOT EQUAL THE OUTPUT REG.
R

SRR

#-1

';'."'.'.'l"""""""""'""'.'"""'l.'."'.'.'l..""l'

005022
005024

1744644
177777
177777
001444
001124
1746406
001444
001124

1S123:

174434

001124
001124
176414
001126
001126
001126

SCOPE
CLR

MOV
MOV

BIC

MOV
MOV

BIC
(MP
BEQ
ERRCR

sCLEAR QUTPUT REGISTER
sCLEAR INPUT
sLOAD EXPECTED

aGRDIC
#-1,3GRDAI
#-1,8GDDAT

ODDJMP ,$GDDAT
$GDDAT,aGRD10
SGRDA] ,$BDDAT
ODDJMP,$BDDAT
$GDDAT,$BDDAT
55124

s MASK

;LOAD THE OUTPUT
sREAD INPUT
s MASK

;:BR

;s COMPARE

EQUAL

;ERROR,

INPUT DID NOT

EQUAL

THE OQUTPUT

DRI1=K
LOGIC TEST
MAINDEC=11-CZDRG-E
CIZDRGE.P1
51-AUG=-79 11:23

897
(3)
(3)
(2)

0
3
306(1063)
31-AUG-79 13:05
TEST INPUT WITH #52525

MACYTT
124
MR

AL AR

s*TEST 26
WNWWN
NN
NNNNNNNS

i p—

-t
O

023737

174360
177777
052525
001444
001124
176322
001444
001124

1S124:

176350

001124
001124
174330
001126
001126
001126

174274
177777
125252
001444
001124
176236
001444
001124
104002

001124
001124
1764244
001126

001126
001126

AR AR AR AR

MOV
MOV

BIC

MOV
MOV

BIC
CmMp
BEQ
ERROR

TEST

SCOPE
CLR

R R

SRR

INPUT
R

22222222

%%;

;MASK

;LOAD THE OUTPUT

sREAD
s MASK

INPUT

; COMPARE

;:BR IF EQUAL
sERROR,
R

R R

INPUT DID NOT EQUAL OUTPUT
R

X2 2222222222222

WITH #125252
R

#125252,9GDDAT
ODDJMP,$GDDAT

$GDDAT,aGRDIO
@GRDAI ,$BDDAT
ODDJMP,$BDDAT
$GDDAT ,$BDDAT

X222 22222222%

sCLEAR QUTPUT REGISTER
;CLEAR INPUT
;LOAD EXPECTED

aGRD10
#-1,3GRDAI

55126

;CLEAR OUTPUT REGISTER
:CLEAR INPUT
sLOAD EXPECTED

55125

SEQ 0029

INPUT WITH #52525

ODDJMP
. SGDDAT
$GDDAT,aGRD10
SGRDA]
, $BDDAT
ODDJMP
. SRDDAT
. $BDDAT
$GDDAT

BIC
CMP
BEO
ERROR

AR A

#52525,8GDDAT

MOv
MOV

aGRD10
#-1,3GRDA]

BIC

TEST

MOV

1S125:

174264

SCOPE
CLR
MOv

TRTEST 25
005112
005114
005i20
005126
005134
005142
005150
005156
005164
005172
005174

AR A

PAGE 18

s MASK

sLOAD THE OQUTPUT

sREAD
s MASK

;:BR

INPUT

; COMPARE
EQUAL

;ERROR,

INPUT DID NOT EQUAL OUTPUT

DR11-Kk
LOGIC TE ST
MAINDEC-11-CZDRG-E
CIDRGE .P11
31-AUG=79 11:23
o2

SeTEST 26

005176

(1)
922

005200
005206

926
925
926
927
928
929
930
931
932
933
934
935

938
939
940

923

gg?

941
942

943
944
945
g&g

012737
005737

000001
001444

001160

0052146
005222
005230
005232
005240
005242
005250
005256
005264
005272
005300
005302

012737
033737
001447
033737
001043
013777
012777
043777
017737
023737
001401
104002

010000
001444

001124
001124

201420

001124

001126
177777
001126
174122
001124

174144
174134
174130
001126
001126

005304
005312
005314

033737
001016
012777

005212

005322
005330

001461

053777
017737

001124

001446

177777
001126
174056

174070
174064
001126
001126

005336
005344
005346

023737
001601
104002

001126

005350
005356

006137
103322

001124

1S126:

SCOPE

MOV
TST

#1,8TIMES
ODDJMP

MOV
BIT
BEQ
BIT
BNE
MOV
MOV
BIC
MOV
CMP
BEQ
ERROR

#BIT12,8GDDAT
ODDJMP,S$GDDAT
2%
NOTLCH,SGDDAT
2%
$GDDAT ,aGRD10
#-1,3GRDA]
$GDDAT,aGRDIO
aGRDAI ,$BDDAT
$GDDAT,$BDDAT
3%
P4

BIT
BNE
MOV

$SGDDAT ,MINSIN
2%
#-1,3GRDAI

BCQ

1%:

3%:

R R

R R R

R R R R

15127

;:D0 1

R R R R R R R

;:BR IF NONE

;LOAD TEST BIT
;TEST IF ODD JUMPER BIT
;BR IF NOT
sTEST IF LATCHING INPUT BIT
sBR IF NOT
;LOAD OUTPUT
;sCLEAR INPUT
sCLEAR QUTPUT BIT
JREAD INPUT REG
s COMPARE
;BR 1F EQUAL
sERROR, NEG. INPUT OR NEG. TRANSITION

;

INPUT BIT FAILED TO SET INPUT REGISTER

sTEST IF NEG.
:BR IF
sCLEAR INPUT

INPUT BIT

sLOGIC

TO SET

BIS
MOV
CMP
BEQ
ERROR

$GDDAT,aGRD10
aGRDA] ,$BDDAT
$GDDAT ,$BDDAT
2%
2

;LOAD QUTPUT
sREAD INPUT
: COMPARE
;BR IF EQUAL
sERROR, POSITIVE

ROL
BCC

$GDDAT
%

s CHANGE DATA PATTERN
;BR 1F MORE DATA

2%:

ITERATION
sTEST IF ANY ODD JUMPERS

FAILED

INPUT

948
949

SEQ 0030

TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS

AR R R

000004

306(1063)
31-AUG=79
13:05
PAGE 19
TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS

AR R

(3)
(2)

MACY11
126

TRANSITION

INPUT

DR11-x

LOGIC 1 E
CZDRGE P n
3 1=

flAlNDt(
=11-CZDRG-E
79 11:23

951

MACYi1 306(1063) 31-AUG-79 F 1%:05 PAGE 20
FLOAT
127
A

ACROSS NON-LATCHING INPUT BITS

SEQ 0031

""."'""""""'"""""""'.'.'.""""""""".'0'

'TEST 27

FLOAT

A 1

ACROSS NON=LATCHING INPUT BITS

wN o

001440
001442

MOv
MOV

NOTLCH,BRLEVS

JGET NON-LATCH

001124
001444

MOv

$GDDAT,0DDJMP

sTEST

001124

001420

001124
173744
001442
001124

173752
001126
001126
001126

WWWWWNWW

000001
001420
001442
001440
001124

o NNNNNNNN

#2% ,SLPERR

001110

001401

15127

SCOPE
MOV

005406

WN~N W
NN~ N
NN
N~
NN~ ~

OO0O0O0OO0O0O

005434
005442
005450
005456
005464
005466

S NONN—-NYN

005366
005374
005402
005406
005414
005422
005424
005432

OWO N 2O - —a

005356
005360

(=1=4 OO0
~n s~ —_—

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

(oM

BIT

BNE

BEQ
MOV
MOV

BIC
(MP
BEQ
ERROR

;LOAD ERROR SCOPE RETURN

#B17T0,BRLEV?

sLOAD EXPECTED

BRLEVS
BRLEVZ,SGDDAT

s COMPLEMENT
;LOAD GOOD

043777
017737
043737
005037
033737
001401

001124
173710
001442
001124
001440

005530
005534

006337
001324

001440

173716
001126
001126

3%:

001126

104002

1%:

BIC

MOV

$GDDAT ,aGRDIO

sLOAD QUTPUT

aGRDA] ,$BRDDAT
BRLEV3,$BDDAT
$GDDAT,$BDDAT
3%

sREAD INPUT
JMASK TO LATCH BITS

::BR

: COMPARE
EQUAL
;INPUT REGISTER
;WAS

CORRECT

INPUT

IN ERROR

LATCH/NON=-LATCH SUPPLIED

DOES NOT

$GDDAT,aGRD10
aGRDA] ,$BDDAT

;CLEAR OQUTPUT BIT
sREAD INPUT

$GDDAT

sCLEAR EXPECTED

BRLEV3,$BDDAT

BIC
CLR
BITY
BEQ
ERROR

BRLEV2,$BDDAT

ASL

BRLEV?2

BNE

ODD JUMPER

;BYPASS IF ODD JUMPER
;TEST FOR NON=-LATCH
;BR IF LATCHING

;SUB-TEST CLEAR THE OUTPUT BIT AND TEST THE
005470
005476
005504
005512
005516
005524
005526

1%
$GDDAT,NOTLCH
1%

LATCHM

JMASK TO LATCH BI1S

;:BR

:TEST FOR BIT

CLEARED

:INPUT BIT LATCHED IN ERROR
;WAS CORRECT LATCH/NON-LATCH SUPPL!ED °

:CHANGE PATTERN
;BR UNTIL

DONE

MAINDEC-11-CZDRG-E
DR11=k
LOGIC TEST
CZDRGE .P11
31-AUG=-79 11:23

MACY11
130

306(1063)
FLOAT A 1

31-AUG-79

13:05

PAGE 2!

ACROSS LATCHING INPUT BITS

SEQ 0032

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

NN~N~NS

NINWWO

WVIN =N

= NN

NON~NO
ONON

005640
005646
005652

053777
006337
001345

wW~Nw
NNO
W~

NN~

005606
005614
005620
005626
005634
005636

==~} (=B
N —=O

005566
005574
005576
005604

elelelelNelelelele)
OWOW
—=0O—=—=0O

005536
005540
005546
005554
005560

;*TEST 30

001401

FLOAT

A 1

ACROSS LATCHING

INPUT BITS

;:""'""""""""""'."'.'0"'"""""."'.'.""'l"'.

005566
000001
173634
177777

001110
001124

001420

001124

001444

2%:

MOV

#2% ,SLPERR
#B170,8GDDAT
aGRDIO

#-1,3GRDA]

:LOAD ERROR SCOPE RETURN
:LOAD EXPECTED VvALUE
sCLEAR OUTPUT REG
;CLEAR INPUT

BIT

?2DOAT.NOYL(N

;TEST FOR NON-LATCHING
:BR IF NON-LATCH
;TEST IF ODD JUMPER

BNE
BIT
BNE

173600

MOV

001126
001126

MOV

173544

?2ODAT.ODDJHP

CMP
BEQ
ERROR

1%:

;BYPASS

$GDDAT,aGRDIO
aGRDIO
aGRDA],$BDDAT
$GDDAT,$BDDAT
;5

CLR

104002

001124
001124

SCOPE

MOV
MOV

CLR

173624

001124

001124
173574
173566
001124

TST30:

sREAD

INPUT

REG.

; COMPARE

;:BR

EQUAL

sINPUT REGISTER FAILED TO LAT(CH DATA
sCLEAR INPUT BIT
: CHANGE

BNE

ODD JUMPER

;LOAD OUTPUT
sCLEAR QUTPUT REGISTER

$GDDAT ,aGRDA!
$GDDAT

BIS
ASL

PATTERN

;BR UNTIL DONE

""'..""'.""."""""""'"'...""".""."""'."'.l'

;*TEST

~NOW P AN=OOVONO
WV
NN =00
OOV
-

e
e
e
D
e
e
)
e
D
el
e
el el
e
—
e
—
o
—
-

o j>lelelele) je=lelelelelelelelelelelelelele]
W WrRON NN N POPNOPNOPNIN
= b b et =
b s e

1032

005654
005656
005664
005672
005676

000004
012737
012737
005077
012777

005704
005712
005714
005722

AL A

TST31:

3
AR AR A

SCOPE

FLOAT
RS

A O ACROSS LATCHING
R

INPUT BITS
R

R R

X222

005704
000001
173516
177777

001110
001442

033737
001032
033737
001026

001442

001420

001124

001444

005724
005732
005740
005746
005754

012737
043737
043737
013777
005077

177777
001420
001442
001124
173434

001124
001124
001124
173440

MOV

MOv

BRLEV3,$GDDAT

$GDDAT,aGRD10
aGRDIO

sMAKE BRLEVS

005760
005766
005774
005776

017737
023737
001401

173426
001124

001126
‘001126

MOV

aGRDA1,$BDDAT
$GDDAT ,$BUDAT
%

sREAD INPUT
: COMPARE

006000
006006
006012

053777
006337
001334

001442
001442

;LOAD ERROR SCOPE RETURN
sLOAD EXPECTED
:CLEAR OQUTPUT REGISTER
:CLEAR INPUT

BIT

BRLEV3, NOTLCH

+TEST FOR LATCHING
:BR IF NOT

MOV

CLR

173506

2%:

BNE
BIT
BNE
BIC
BIC

CLR

(MP
BEQ
ERROR

104002

173404

MOV

#2%
8. PERR
#BI1T0,BRLEV3
aGRDIO
#-1,3GRDA]

MOV

1%:

BIS
ASL

BNE

1%
$GDDAT,0DDJMP
1%

;TEST 1F ODD JUMPER

;BYPASS

#-1,8GDDAT
NOTLCH,SGDDAT

BRLEV3,aGRDA]
BRLEV3
2%

ODD JUMP:R BIT

:LOAD
;LOAD QUTPUT
;CLEAR QUTPUT REGISTER

;:BR

EQUAL
s INPUT REGISTER FAILED TO LAT(M DATA

;CLEAR INPUT BIT
: CHANGE

PATTERN

:BR UNTIL DONE

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE.P11
31-AUG-79 11:23
105‘

eTEST 32

(5)

006014

000004

1036
1037
1038
1039
1040
1041

006016
006026
006032
006040
006044
006050

012737
043737
043737
013700
005077
012777

125252
001420
001444
001124
173344
177777

1049
(2)
(1)
(1)
(1)
(1)

006056
006062
006066
006072
006076
006100

010077
005077
017701
050177
005100
010077

173332
173326
173320
173314

(1)

(2)
(1)
(1)
(1)
(1)
(2)
(13
(1)
(1)
(1)
(2)
(1)
(1)
(1)
(1)
(2)
(1)
(1)
(1)
(1)
(2)
(1)
(1)
(1)
(1)
(2)
(1)
(1)

SEQ 0035

TEST FOR SLOW INPUT GATES WITH #125252

;."""."""""""""'"""""""l"'l"'"""l".'.'."

,42)

(1)
(2)
(1)
(1)
(1)

H
3
30G6(1063)
31-AUG=79
13:05
PAGE 22
TEST FOR SLOW INPUT GATES WITH #125252

.':"""""""""""""""""'"".""'."".'"Q""'.'t

(3)

‘M)
)
(1)
(1)

MACY11
132

006104
006110
006114
006120

006122
006126
006132
006136
006142

006146

006150
006154
006160
006164
006166
006172
006176
006202
006206
006210
006214
006220
006226
006230
006232
006236
006242
006246
006252
006254
006260
006264
006270
006274
006276
006302
006306
006312

005077
017701
050177
005100

010077
005077
017701
050177
005100

010077

005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177

i$132:

173310
173304
173276
173272

001124
001124
001124
17333

173244

173222
173216
173210
173204

173134
173130
173122
173116
173112
173106
173100
173074

#125252,8GDDAT
NOTLCH,$GDDAT
QDDJMP,SGDDAT
$GDDAT.RO
@GRDIO
#-1,3GRDAI

;LOAD EXPECTED
: CONVERT
MASK
:LOAD PATTERN
:CLEAR OUTPUT REGISTER
:CLEAR INPUT

MOV
(LR
MOV
BIS
COM
MOV

RO,aGRDIO
@GRDIO
QGRDAI,R1
R1,aGRDA;
RO
RO,3GRDIO

:LOAD OUTPUT
:CLEAR OUTPUT REGISTER
:READ INPUT
:CLEAR INPUT

;LOAD OUTPUT
sCLEAR OUTPUT REGISTER
READ INPUT
:CLEAR INPUT

aGRDIO
aGRDAI,R!
R1,aGRDAI
RO

MOV
(LR
MOV
BIS
COM

RO,3GRDIO
aGRDIO
@GRDAI,R1
R1,aGRDAI
RO

;LOAD OUTPUT
:CLEAR OUTPUT REGISTER
:READ INPUT
:CLEAR INPUT

(LR
MOV
BIS
COM
MOV
(LR
MOV
BIS
COM
MOV
(LR
MOV
BIS
COM
MOV
(LR
MOV
BIS
COM
MOV
(LR
MOV
BIS
COM
MOV
(LR
MOV

@GRDIOD
aGRDAI,R!
R1,aGRDAI
RO
RO,aGRDIO
aGRDIO
@GRDAI,R1
RI1,3GRDAI
RO
RO,aGRDIO
@GRDIO
@GRDAI,RI
R1,aGRDAI
RO
RO,aGRDIO
aGRDIO
@GRDAI,R1
R1,aGROAI
RO
RO,aGRDIO
@GRDIO
aGRDAI,R!
R1,aGRDAI
RO
RO,3GRDIO
@GRDIO
GRDAI,R

CLEAR OUTPUT REGISTER
READ INPUT
:CLEAR INPUT

MOV

173240
173232
173226

173156
173152
173144
173140

MOV
BIC
BIC
MOV
(LR
MOV

(LR
MOV
BIS
COM

173266
173262
173254
173250

173200
173174
173166
173162

scope

BIS

RD,aGRDIO

R1,3GROAI

;LOAD OUTPUT

:LOAD OUTPUT
:CLEAR OUTPUT REGISTER
:READ INPUT
:CLEAR INPUT
:LOAD OUTPYT
CLEAR OUTPUT REGISTER
:READ INPUT
CLEAR INPUT

;LOAD OUTPUT
:CLEAR OUTPUT REGISTER
:READ INPUT
:CLEAR INPUT
:LOAD OUTPUT
:CLEAR OUTPUT REGISTER
:READ INPUT
:CLEAR INPUT
:LOAD OUTPUT
:CLEAR QUTPUT REGISTER
:READ INPUT
CLEAR

INPUT

’

MAINDEC-11-CZDRG-E ?25111 306(1063) 31-AUG-79 l 1%:05 PAGE 22-1

DR11-k
LOGIC TEST
CZDRGE.P1
31-AUG-79 11:23

W
~N

CLR
MOv
BIS
Com

006406

BIS
COM
MOv

N =

= O
N

1057

COMm

MOV

050177
005100

010137
000240
000240
000240
023737
001401

FOR SLOW

MOV
(LR

o v

b N\ =

v o o

005100
010077
005077
017701
050177

TEST

001126

001124

MOV
NOP
NOP
NOP
CMP

001126

BEQ
ERROR

104002

INPUT GATES WITH #125252

;*TEST 33

(2)

006410

000004

1061
1062

006412
006420

012737
043737
043737
013700
005077
012777

052525

010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077

006532
006536
006540
006544
006550
006554
006560
006562
006566
006572
006576

017701
050177
005100
010077
005077
017701
050177

N
~

006452
006456
006462
006466
006472
006474
006500
006504
006510
006514
006516
006522
006526

172740

~
~N

006426
006434
006440
006444

001124
00112¢
001124

ke ieaialiaialealeaiatalalelealal
el ettt ettt o~
e N = e e e N\ =t il e
s \) =D e s s \) =P e s e N) N

vvwvvvvvvvvvv\vvvvw\'vvvwbfl

32§88

1063

1S133:

172650
172644
172636
172632
172626
172622
172614
172610

;LOAD OUTPUT
;CLEAR OUTPUT REGISTER

RO,aGRDIO
aGRDIO
aGRDA] ,R1
R1,3GRDAI
RO
RO,aGRDIO
aGRDIO

;READ

INPUT

sCLEAR INPUT

:8.3GRDA1

:LOAD OUTPUT
sCLEAR OUTPUT REGISTER
;READ INPUT
;CLEAR INPUT

R1,$BDDAT

sLOAD READ

dGRDAI ,R1

$GDDAT ,$BDDAT

15133
2

SEQ 0034

; COMPARE

;.BR IF
R

EQUAL
s INPUT GATE

SLOW

TEST FOR SLOW INPUT GATES WITH #52525
R

SCOPE
MOV
BIC
BIC
MOV
CLR
MOv

#52525,8GDDAT
ODDJMP ,$GDDAT
NOTLCH,SGDDAT
$GDDAT,RO
aGRDIO
#-1,3GRDAI

MOV
CLR
MOV
BIS
(OM
Mov
CLR
MOV

RO,aGRDIO
aGRDIO
aGRDAI ,R1
R1,3GRDAI
RO
RO,aGRDIO
aGRDIO
aGRDA]
R

CLR
MCv

aGRDIO
aGRDA] ,R1

MOv
(LR
MOV

RO,aGRDIO
aGRD10
aGRDAI ,R1

(LR
MOV

aGRDIO
aGRDA]
R

BIS
COM
MOV
BIS
COM

BIS
COM
MOv

BIS

R1,3GRDAI
RO
RO,aGRDIO

R1,3GRDAI
RO

R1,3GRDAI
RO
RO,aGRDIU

R1,3GRDAI

sSETUP EXPCCTED
;MASK ODD JUMPER BITS

; CONVERT

;CLEAR OUTPUT REGISTER
sCLEAR INPUT

:LOAD OUTPUT
sCLEAR OUTPUT REGISTER
sREAD INPUT
:CLEAR INPUT
:LOAD OUTPUT
sCLEAR OUTPUT REGISTER
:READ INPUT
:CLEAR INPUT

:LOAD OUTPUT
:CLEAR OUTPUT REGISTER
sREAD INPUT
sCLEAR INPUT
:LOAD OUTPUT
:CLEAR OUTPUT REGISTER
:READ INPUT
:CLEAR INPUT

:LOAD OUTPUT
;CLEAR OUTPUT REGISTER
;READ

INPUT

:CLEAR INPUT

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE.PIN
31-AUG-79 11:23
(1)
(1)
(2)
(1)
(1)
(1)
(1)
(2)
(1)
(1)
(1)
(1)
(2)
(1)
(1)
(1)
(1)
(2)
(1)
(1)
(1)
(1)
(2)
(1)
(1)
(1)
(1)
(2)
(1)
(1)
16;;

006602
006604
006610
006614
006620
006624
006626
006632
006636
006642
006646
006650
006654
006660
006664
006670
006672
006676
006702
006706
006712
006714
006720
006726
006730
006734
006736
006742
006746
006752
006756

005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100
010077
005077
017701
050177
005100

1076
1077
1078
1079
1080
1081

006760
006764
006766
006770
006772
007000

010137
000240
000240
000240
023737
001401

1082

007002

104002

?ggvl!

172604
172600
172572
172566
172562
172556
172550
172544
172540
172534
172526
172522
172516
172512
172504
172500
172474
172470
172462
172456

172452
172446
172440
172434

001126

001124

001126

306(1063)
31-AUG-79
13:05
PAGE 22-%
TEST FOR SLOW INPUT GATES WITH #5252
COM
MOv
CLR
MOV
BIS
COM
MoV
CLR
MOv
BIS
(OM
MOV
CLR
MoV
BIS
COM
Mov
CLR
MGV
B1S
COM
Mov
CLR
MOV
BIS
COM
MoV
CLR
MOV
BIS
(oM

RO
RO,aGRD10
aGRDIO
aGRDA] ,R1
R1,3GRDAI
RO
RO,aGRDIO
aGRDIO
aGRDAI ,R1
R1,3GRDAI
RO
RO,aGRDIO
aGRDIO
aGRDAI ,R1
R1,3GRDAI
RO
RO,aGRDIO
aGRD10
aGRDAI ,R1
R1,3GRDA1
RO
RO,aGRDIO
aGRDIO
aGRDA] ,R1
R1,3GRDAI
RO
RO,aGRDIO
aGRDIO
aGRDA] ,R1
R1,3GRDAI
RO

MOV
NOP
NOP
NOP
CMP
BtQ

R1,$BDDAT

;LOAD VALUE READ

$GDDAT,$BDDAT
15134
2

. COMPARE
EQUAL

ERROR

:LOAD OUTPUT
;CLEAR OUTPUT REGISTER
sREAD INPUT
;CLEAR INPUT
:LOAD OUTPUT
;CLEAR OUTPUT REGISTER
;READ INPUT
:CLEAR INPUT
sLOAD OQUTPUT
;CLEAR OUTPUT REGISTER
;READ INPUT
;CLEAR INPUT
:LOAD QUTPUT
:CLEAR OUTPUT REGISTER
;READ INPUT
;CLEAR INPUT
:LOAD QUTPUT
;CLEAR OUTPUT REGISTER
;READ INPUT
:CLEAR INPUT
:LOAD QUTPUT
:CLEAR OUTPUT REGISTER
;READ INPUT
:CLEAR INPUT

;:BR

SEQ 0035

LOGIC TEST

MAINDEC=11-CZDRG-E

31-AUG-79 11:23

MACY11

134
R

30G(1063)

31-AUG=79

13:05

PAGE 23

TEST THAT RESET CLEARS INPUT REGISTER BITS

JeTEST 34

SEQ 0036
R

RS R

]

TEST THAT RESET CLEARS INPUT REGISTER BITS

;:'."l"""'"""""""""""""'.'l'l"'.""'..'l"tl'l

007004
007006
007014
007020
007026
007034
007040
007042
007050
007056
007060

000004
012737
005077
012777
012777
005037

000005
017737
043737
001401
104002

000040
172374
177777
177777
001124

001160

172344
001444

001126
001126

T5134:

172364
172360

SCOPE
MOV
CLR
MOV
MOV
CLR

RESET
MOV
BIC
BEQ
ERROR

#40,$TIMES
aGRD10
#-1,3GRDAI
#-1,3GRD10
$GDDAT

;:00 40 ITERATIONS
;CLEAR CUTPUT REGISTER
:CLEAR INPUT
:LOAD OUTPUT
:LOAD EXPECTED

@GRDAI, $BDDAT
ODDJMP , $BDDAT
15135
2

;READ INPUT REG.
:MASK ODD JUMPERS
;:BR IF ALL BITS CLEARED
:INPUT REG. FAILED TO CLEAR UPON RESET

";.....’"""""'"""'"""""'"".'."'l"'.'."."""l.'

;+TEST 35

TEST THAT WHEN OUTPUTTING THE INPUT DATA READY FLAG SETS

000200
172312
000000
000000
172272
001124

001124

1§135:

172310
000000
001126
001126

000004
012737
005077
012777
022727
017737
023737
001401
104001

SCOPE
MOV
CLR
MOV
CMP
MOV
CMP
BEQ
ERROR

#8177 ,$GDDAT
AGRSTAT
#0,3GRD10
#0,40
AGRSTAT ,$BDDAT
$GDDAT,$BDDAT
15136
1

;LOAD EXPECTED

;OUTPUT 0
:DELAY
:READ RESULTS
: COMPARE
::BR IF EQUAL
'
;INPUT DATA READY FLAG FAILED TO SET

;TEST THAT WHEN THE INPUT BUFFER 1S READ THE OUTPUT FLAG 1S SET

s -

—

-l

s —

;;'.."""'"'."""""""""'t'.'.I.""t.'.""lt't.fi""'

S+TEST 36

007062
007064
007072
007076
007104
007112
007120
007126
007130

:"tl'l""""'t'l"l"l'l"""t'"'""ttt.'l't.tt""l""t"'

—

D o

UWN=0O V0w v
NO VI NN —
-—---o-a--oo«auuooooooog

;;""'"""""""""'"""""""...'.'tl""'."tt""'.'

007132
007134
007142
007146
007154

000004
012737
005077
012777
022727

007166
007174
007176

017737
100401
104001

007162

017700

100000
172242
000000
000000

001124

172216

001126

172224

172240
000000

1$736:

TEST

THAT WHEN THE

SCOPE
MOV
CLR
MOV
CMP

#BIT15,8GDDAT
AGRSTAT
#0,3GRD10
#0,40

MOV
BM]
ERROR

SGRSTAT,$BDDAT
15137
1

MOV

INPUT BUFFER 1S READ THE OUTPUT FLAG 1S SET

;LOAD EXPECTED

aGRDAI ,RO

:READ INPUT

::BR IF

:READ RESULTS
SET
:INPUT DATA READY FLAG FAILED TO SET

INST.

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZORGE.PT1
31-AUG-79 11:23
1118
(‘)

007200

S*TEST 37

NS NN = OO~ — —

007200

000004

007202
007210
007212
007216
007222
007230
007236

012737
000005
005077
005037
012777
012777
012777

1126
1127
1128
1129
1130
1131
113
1133
113
1135

007252
007260
007264
007266
007270
007272
007274
007300
007302
007304

012777
017700
000240
000240
000240
000240
005077
000404
104006
000002

v BYO NS WN=O VN

i s
D o
D i
D
S i
s
s D

=00V e

. P, D
D o,

7. ]
3l

= OVENOWVSANUWN—=OOVENOWVIWN

2k 2k 2k 2

007306
007310

012777

172172
177776
007302
000340
007306

000340
000000
172126

001160

(o o AV LV IV IV IV IV IV IV IV IV P T

1§137:

172174
172170
172164

172160

172110
1%:

104006
000002

SCOPE

MOV
RESET
CLR
CLR
MOV
MOV
MOV

MOV

172134

2%:

MOV
MOV
NOP
NOP
NOP
NOP
CLR
BR
ERROR
RTI
ERROR
RTI

#60,$TIMES

::D0 40 ITERATIONS

AGRSTAT
PSW
#1%,3GRIVA
#340,aGRIVSA
#2%,9GRIVB

JSET UP INTERRUPT OQUTPUT VECTOR

#0,3GRD10
aGRDAI,RO

:OUTPUT
LINPUT

aGRSTAT
15140
6

;CLEAR STATUS

:SET UP INTERRUPT INPUT VECTOR

#340,3GR1VSB

JERROR, DIGITAL INPUT

INTERRUPTED

JERROR, DIGITAL OUTPUT

INTERRUPTED

;;l""'t'i"""t't't"t'ttt"t't'tittttl."'tttttlt'l""""'t

;*TEST 40

ok aF

b
e
el
—

e
d

D e
D
D il

e
—
D e
el

D il i
i

e
D
el

e
e
e

i
D

—h ——h —

it
—

—

007244

000040

D i

il il

TEST FOR UNEXPECTED INTERRUPT

;;ti't'i'.""""""""'"t""""Q"'l't't""'t't't't".'t.

(1)
1119
1120
1121
1122
1123
112

113
1137

;:'!""""tt""""""""'"l't.'tt't't"""""""l"tt"

1125

306(1063}
31-AUG=79
13:05
PAGE 24
TEST THAT WHEN THE INPUT BUFFER 1S READ THE OUTPUT FLAG 1S SET

DRT21:

(2)

MACY11
136

TEST THAT

THE

INPUT

CAN INTR. USING THE MAINT. BIT

"""tt'tt"t""t'"'t"'t"t't'tt't't.!"lttlt.""!tlt't't"'tt

007312
007314
007320
007326
007334
007342
007350
007356
007362
007364
007366
007370

000004
005077
012777
012777
012777
012777
052777
005037
000240
000240
104004
000415

007372
007400
007402
007406
007410
007412
007414
007416
007420

012777
022626
005037
000240
000240
000404
022626
104006
005037

172070
007372
000340
007414
000340
000040
177776

TST40:
172076
172072
172066
172062
172032

SCOPE

CLR

MOV
MOV
MOv
MOV

BIS
CLR

NOP
NOP

aGRSTAT
#1% ,aGRIVA
#340,aGRIVSA
#2%,aGRIVB
#340,aGR1VSB
#BIT5,9GRSTAT
PSW

ERROR
BR

MOV
CMP
CLR
NOP
NOP
BR

#2% ,3GRIVA

TST41

sCLEAR STATUS
;LOAD RETURN VECTOR
:
+LOAD OUTPUT VECTOR

SMAINT,

INT C

;ERROR,

INPUT

;LOWER PSW

::BR TO NEXT

TEST

FAILED TO

INTERRUPT

;SUB-TEST, TEST THAT IF PSW IS LOWERED AGAIN NO INTERRUPT WILL OCCUR
; IF INTERRUPT OCCURS 'INT DONE C' FAILED TO CLEAR INT C FLOP
007414

172024

1%:

177776

2%:

177776

CMP
ERROR
CLR

:LOAD INPUT VECTOR

(SP)+,(SP)+
PSW

TST41

(SP)+,(SP)+

:POP THE STACK
;LOWER PRIOR.

s <NEXT

TEST>

:POP THE

STACK

sUNEXPECTED INTERRUPT

SEQ 0037

DR11-K
LOGIC TEST
MAINDEC-11-(ZDRG-E
CZDRGE.P11
31-AUG-79 11:23

MACY11
T41

mn3

306(1063)
31-AUG=79
13:05
PAGE 25
TEST THAT THE INPUT INTR. CLEARS INT. ENABLE VIA MAINT. BIT

;;.'.""""""""""""""'.'"""'.'."""""""

""'

TEST THAT THE

INPUT INTR.

CLEARS INT. ENABLE VIA MAINT. BIT

::.'l"""""Q"""""""""""'Q"t"'.'.'.""

"""""

T§141:

007552

171706

177776
001124
171654
000100

001126
001126

oo
S~

o
e
e

SCOPE
CLR
MOV

NNSNNNN
-NV

171756
007510
000340
007552
000340
000100
000040
177776

—

000004
005077
012777
012777
012777
012777
012777
052777
005037
000240
000240
104004
012777
022626
005037
005037
017737
032737
001406
104001
000404
022626
104006
005037

NNNNNN

007424
007426
007432
007440
007446
007454
007462
007470
007476
007502
007504
007506
007510
007516
007520
007524
007530
007536
007544
007546
007550
007552
007554
007556

PP
P
P —

OO N

uN—'OOONOwaN—lOOOfismbv

OO NNNNNNNYNNO
OO

—‘°°°8°°° ooog ONOWVSN W=V
OCOVBNOWVEWNN=O

D e

PONL NN NN NI NI NI NI N

D el

b it o o
0O

D e

b i

e e

ed b

oy s

—

d-‘-‘—‘——.d-‘d—l-‘dd-‘ddddd—.dd-‘—.

SeTEST 41

MOV

#340,3GRIVSA

MOV

#340,3GR1VSB

MOV

BIS

CLR
NOP
NOP

ERROR

1$:

MOV
CMP
CLR
CLR
MOV

BIT
BEQ
ERROR
BR
CMP
ERROR

2%:
177776

AGRSTAT
#1%,3GRIVA

CLR

;CLEAR STATUS
:LOAD RETURN VECTOR

;

#2%,3GRIVB

*LOAD OUTPUT VECTOR

#B1T6,aGRSTAT

;LOAD INPUT

#B1TS.aGRSTAT

PSW

#B1T6,$BDDAT
1ST42
1
TST42
(SP)+,(SP)+
6

ENABLE

INT ¢

:ERROR,

INPUT FAILED TO INTERRUPT

:LOWER PSW

#2%,aGRIVA
(SP)+, (SP)+
PSW
$GDDAT
AGRSTAT,$BDDAT

INTR.

TMAINT.

:LOAD INPUT VECTOR
:POP THE STACK *4
:LOWER PRICR.
:CLEAR EXPECTED
*READ STATUS

STEST BIT 6
CLEARED
:INPUT INTR.
: <NEXT TEST>

::BR

FAILED TO CLEAR

;POP THE STACK
*UNEXPECTED INTERRUPT

PSW

:;.t.t""""'"""""t""""""".""'.'."".t"ffi.

""'

SRTEST 42
A

007562
007564
007570
007576
007604
007612
007620

007626

000004
005077
012777
012777
012777
012777
052777

005037

007640

000415

007642
007650
007652
007656
007660
007662
007664
007666
007670

012777
022626
005037
000240
000240
000404
022626
104006
005037

171620
007664
000340
007642
000340
020000

177776

1§142:
1716
1716
171616
1716
1715

SCOPE

CLR
MOV
MOV
MOv
MOv

BIS

171560

aGRSTAT
#2% ,aGRIVA
#340,3GRIVSA
#1%,3GRIVB
#340,aGRIVSB

#BIT13,3GRSTAT

PSW

T1ST43

CMP
CLR
NOP
NOP

(SP)+,(SP)+
PSW

CMP
ERROR

(SP)+,(SP)+
6

2232223322222

22222%2%

sCLEAR STATUS
:LOAD INPUT VECTOR

‘

;LOAD OUTPUT VECTOR

;MAINT.

INTERRUPT

;LOWER PSW

:OUTPUT FAILED TO INTERRUPT

::BR TO NEXT TEST

;SUB-TEST, TEST THAT IF PSW IS LOWERED AGAIN, NO INTERRUPT WILL OCCUR
%SIF IT DOES, "INT DONE D HIGH' FAILED TO CLEAR 'INT D' FLOP
MOV
#2%,3GR1VB
;LOAD OUTPUT VECTOR

177776

CLR
NOP
NOP

ERROR

007664

TEST THAT THE OUTPUT CAN INTR. USING THE MAINT. BIT

2%:
:

(LR

TST43

PSW

;POP THE STACK

; s<NEXT TEST>

;POP THE STACK
;UNEXPECTED INTERRUPT

SEQ 0038 |

DR11-K

LOGIC TEST

CIDRGE.P11
1212

(2)

31-AUG-79 11:23
v

(3)

MAINDEC-11-CZDRG-E

007674

007676
007700

000240
000240

1216
1217
1218

007710
007712
00771&

001401
000463
005077

1215

1219

007702

007720

1228
1229
1230
1231

1232

1233

1234

1235
1236
1237

1238
(1)
(1)
15;&

007750
007756
007764
007770
007774

002000

012777

171470
010020

007776
010000
010002
010010

000240
000240
042777
000240

010014

000404

010020
010022
010026

022626
005037
005077

010012

010016

010032
010040
010046
010054

104004

000100
000000
171422
177776

000100

171230

171476

3
13:05

PAGE 26

R il

TEST FOR INTR. FROM DRA INPUT

1%:

3%:

2%:

171364
171360
171354
171350

NOP
NOP
BIC
NOP

171400

4%:

:IN CASE OF INTERRUPT

#BIT6,aGRSTAT
#0,3GRDIO
aGRDAI RO
PSW

;ENABLE INPUT INTR.
sOUTPUT
: INPUT
;LOWER PSW
:LET INTERRUPT OCCUR

#340,aGRIVSA
#3%,aGRIVB
#340,3GR1VSB

#B1716,aGRSTAT

ERROR

CMP
CLR
CLR

MOV
MoV
MOV
MOV

#2% ,3GRIVA

ERROR

sTEST SWITCH

1%
15144
aGRSTAT

MOV

MOV
MOV
MOV
CLR
NOP

171356
003076
000340
003076
000340

#BI1T10,aSuWR

BEQ
BR
CLR

MOV
MOV
MOV

171432
171430

177776

SCOPE

NOP
NOP

RIT

171472
171466
171462

104006

012777
012777
012777
012777

Te
R el

1S143:

032777

012777
012777
017700
005037
000240

31-AUG-79

TEST FOR INTR. FROM DRA INPUT

s*TEST 43

1220 007726 012777 000340
1221 007734 012777 010016
1222 007742 012777 000340
1223
1224
1225
1226
1227

143

000004

1213
1214

MACY11 306(1063)

:ERROR, INPUT FAILED TO INTERRUPT

:UNEXPECTED OUTPUT INTERRUPT

(SP)+,(SP)+
PSW
aGRSTAT

#UNEXPT ,aGRIVA
#340,9GRIVSA
#UNEXPT ,aGRIVB
#340,3GRIVSB

;CLEAR STATUS
;RESET INPUT VECTOR

:RESET QUTPUT VECTOR

SEQ 0039 |

DR11-k

LOGIC TEST

CIZDRGE.P11

MAINDEC-11-CZDRG-E

31-AUG-79 11:23

12‘0‘
(3)

010062
010064
010072

000004
032777
001067

002000

1245
1246
1247

010074
010102
010110

012737

010110
000001
001126

001110
001442

010114

012737
012737
005037

000200

001124

1250
1251
1252

010122
010130
010132

033737
001445
005077

001442

001422

171256
177777
171240

171246

1253
1256

010136
010144

012777
005077

1256
1257
1258
1259
1260

010156
010164
010172

043777
053777
005077

053777

001442

010176
010202

171206

010204

105777
100401

104010

66
1267
1268
1269
1270
1271
1272
}S;S

010206
010214
010222
010226
010232
010240
010242

043777
053777
005037
005077
117737
100001
104001

001442
001442
001124
171156
171152

1275
1276

010244
010250

006337
001317

001442

1261
1262

1263
1264
}gos

¢4
13:05

PAGE 27

TEST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG

SEQ 0040 !

- ;'""."""""""""""'""'.'.""""""'."'.'..0""

(2)
12642
}%22

1255

T44

31-AUG=79

MAL
AR AL A A A A A A A A A A R R R A A
R R R R
R R R R S R R 2222222222
;*TEST &4
TEST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG

(S)

}%zg

MACY11 30G(1063)

010150

001442
001442
171212

171046

TSTaé:

SCOPE
Bl

#BIT10,85wR

MOV
MoV
CLR

P18, SLPERR
#B170,BRLEV3
$BDDAT

;LOAD ERROR SCOPE RETURN
;LOAD INTERRUPT BIT
:CLEAR BAD DATA

BIT
BEQ
CLR
MoV
CLR

BRLEV3,INTBIT
3%
aGRD1O

;TEST IF THIS BIT WILL INTERRUPT
::NO TRY NEXT BIT
;CLEAR OUTPUT REGISTER

BNE

18:

171236

171230
171222

MOV

2%:

001126

3%:

sTEST CABLE SWITCH

::BYPASS IF NO 1/0 CABLE

#B1T7,8GODAT

#-1,3GRDAI
aGRSTAT

BIS

BRLEV3,aGRD10

1STB
BMI

aGRSTAT
2%

BIC
BIS
CLR
CLR
MOvB
BPL
ERROR

BRLEV3,aGRDIO
BRLEV3,aGRDAI
$GDDAT
dGRSTAT
dGRSTAT ,$BDDAT
3%
1

ASL
BNE

BRLEV3
%

BIC
BIS
CLR

ERROR

171200
171170

1ST45

:LOAD GOOD DATA

sCLEAR INPUT
;CLEAR STATUS
:LOAD OUTPUT

BRLEV3,aGRD1O
BRLEV3,aGRDIO
dGRSTAT

:CLEAR OUTPUT
sLOAD OQUTPUT
;CLEAR FLAG FROM DATA READY
:SHOULD REMAIN SET VIA DIRECT SET SIDE
:1F INTERRUPT INPUT SWITCH IS ON

::BR

::BR IF

:TEST READY BIT
SET

:INPUT INTERRUPT BIT FAILED TO SET
:?? DID OPERATOR GIVE CORRECT
: INPUT INTERRUPT BITS ??

:CLEAR OUTPUT
:CLEAR INPUT
;CLEAR EXPECTED
:CLEAR STATUS
;READ STATUS
CLEARED
: INPUT READY FAILED TO CLEAR
: CHANGE BIT
:BR IF NOT DONE

I1*"UT READY

DR11-X

LOGIC TEST

.P n
CZDRGE

HAlNDE( 11-CZDRG=E

31-AUG-79 11:23

‘278

145

31-AUG=79

13:05

PAGE 28

TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG

. "t""""""'t"""""""""""""'.'t""'t..'t..'ttt

(3)

-TEST 45

(3)

M ASAA2

(¢)
1279
}%g?

010252
010254
010262

000004
032777
001050

002000

170656

1282
1283
1286
}%gg

010264
010272
010300
010306

012737
012737
012737
005037

010300
000001
000200
001124

001110
001442
001126

1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299

010312
010320
010322
010326
010334
010340
010346
010354
010362

033737
001026
005077
012777
005077
053777
043777
053777
005077

001442

001422

010366
010372
010374

105777
100001
104011

171016

1301
1302
1303
1306
1305

010376
010402

006337
001336

001442

1300

MACY11 306(1063)

171066
177777
171050
001442
001442
001442
171022

15145

1%:

171056

171046
171040
171032

3%:

TEST THAT NON=INTERRUPT INPUT BITS DO NOT SET INPUT READY rLAG

222

22 R R

SCOPE
BIT
BNE

#BIT10,3SwWR
15146

MOV
MOV
MOV
CLR

#1% ,SLPERR
#B1710,BRLEVS
#200,$BDDAT
$GDDAT

BIT
BNE
CLR
MOV
CLR
BIS
BIC
BIS
CLR

BRLEV3,INTBIT
3%
aGRDIO
#-1,3GRDAI
aGRSTAT
BRLEV3,aGRD10
BRLEV3,aGRDIO
BRLEV3,aGRDIO
aGRSTAT

1S1B
BPL
ERROR

aGRSTAT
3%
1"

ASL
BNE

BRLEV3
1%

R 2222222223222 222222X2222Z]

sTEST CABLE SWITCH
;:BYPASS IF NO 1/0 CABLE
;LOAD ERROR SCOPE RETURN
;LOAD NON=-INTERRUPT BIT
;LOAD BAD DATA
:CLEAR GOOD DATA
sTEST IF THIS BIT WILL INTERRUPT
;sYES SKIP AND TRY NEXT BIT
;CLEAR OUTPUT REGISTER
:CLEAR INPUT
sCLEAR STATUS
sLOAD OUTPUT
;CLEAR OUTPUT
;SET OUTPUT
:CLEAR FLAG FROM DATA READY
;SHOULD REMAIN SET VIA DIRECT SET SIDE
;TEST READY BIT
::BR 1F CLEAR
s INPUT NON=-INTERRUPT BIT SET INPUT READY
5?72 DID OPERATOR GIVE CORRECT
s INPUT INTERRUPT BITS ??
; CHANGE BIT
;BR IF NOT DONE

SEQ 0041

—

DR11-k
LOGIC TEST
MAINDEC=-11-CZDRG-E
CZDRGE.P1
31-AUG-79 11:23

TEST

31-AUG=79

FOR

INTR.

&
13:05

PAGE 29

FROM DRA OUTPUT

SEQ 0042

1$146:
&
o

§§

il
) il el

002000

170520

170760

18:

010524
000340
001426
170750
040000
000000
170714
177776

003076
000340
003076
000340
177776
170622

W
N

MOV
MOV

#B1T14,3GRSTAT
#0,3GRDI0

AGRIVSA

MOV

J*TEST

*LOWER PSW

*LET

INTERRUPT

OCCUR

#B1T14,3GRSTAT
§$

:ERROR,

OUTPUT

SUNEXPT,aGR1VA

:RESET

INPUT

SUNEXPT,aGR1VB

:RESET

OUTPUT

#340,3GRIVSB
PSW
AGRSTAT

;CLEAR

STATUS

#340,3GRIVSA

MOV
CLR
CLR
AR AR

INTR.

FAILED

INTERRUPT

(SP)+,(SP)+

MOV

AR A

INTERRUPT

LINPUT

PSW

BR
CMP

:ENABLE OUTPUT
TouTPUT

3GRDAI ,RO

NOP
ERROR

170670
170664
170660
170654

GRIVSA,QGRIVA

BIC

g::

;IN"CASE

MOV

CLR

#340,aGRIVSB

NOP
NOP
NOP

104005

STEST SWITCH

AGRSTAT
#2%,3GR1VB

MOV

170672

#B1T10,35WR
s

TS147

CLR
MOV

CLR

000401
022626

012777
012777
012777
012777
005037
005077

MOV

0504
040000

SCOPE
NOP
NOP

BIT
BEQ

—

OO0
0000000000000
i i
D i D i i e

TEST FOR INTR. FROM DRA QUTPUT

;;"'.'."""""""'."'"""'""."""""'."""."""'

FRRRR
geReeRRRR
FRSRS&R

OOOOOOOOOOO0O0O

SRTEST 46

AR AR AR R

AR A

AR AR A

PRE-INTERRUPT

VECTOR

RS2

SETUP

000001

001160

177437

001434

000340

001434

1ST147:

1%:

—

000004

o
»
o
o

(VLW

s —2
=D
el
bt
D
b
s

2222222222
S WA
— —
ornsnNONNO 88
P14

:;ttt'ttlttttt"t't't""""t't""ttQt"t.'t"ttt'!".l""""

—,

S W=D~

2333 3

146

30G(1063)

::"'""""""""""""""""""'.""'."."'.".'0""

(=lelelelelelelelalolele)

i i i o
U\vwvvbwm—-vvvvs VO ~NO WV~ WN=O
VN WV
NN =03T

i i

N N NN N~

i
i
i i
Dl —l

— s~
s

s e

i el i i

WWHNWNN N~ o~ oA NN N~ o~ o~ NN
NN NN L L LN U L N U L L
W= PO NN NN NN
s
o PO NINI N b o
e

s
el
s
i
—

1307
(3

MACY'T

001434
000040
001434

001436
001436
001440

2%:

SCOPE

MOV
RESET

BIC
BNE
ERROR
CMP

BNE

ERROR
MOV
SUB
MOV

#1,8TIMES

#177437 ,0D10BRL
1%
7

#340,D10BRL

DIOBRL ,BRLEV]
#40 ,BRLEV]

DIOBRL ,BRLEV?

;:D0

ITERATION

sBR LEVEL

INDICATED FOR DIGITAL

1/0 WAS+0

;BR LEVEL

INDICATED FOR DIGITAL

1/0 WwAS 7

LOGIC 1 EST

MAINDEC-11-CZDRG-E
31-AUG=79 11:23

MACY11
150

E &
30G(1063)
31-AUG=79
13:05
PAGE 30
TEST FOR INTR. FROM DRA INPUT ON LEVEL INDICATED =1

VIA MAINT.

INT

SEQ 0043

;:"""""'0'.".""""""""'"'."."."""""""'""

-l
il ol
il
B
s — —l —ll el
. —ll
il
.
.
il —lls
e
s
-

w
Ll
VLY TV TV
ugguuuuuuuuuuu &
NIPIPT.
- Sotaiatat < Y
VWA
NN
AW ¥
-u-'~n--g! % §O
WN
= 8NNNNNNNNNN
OO0V
NS WN <O © 33 343 e
NN o S
e S
COV®NOWVESWNN—=O ©

O ot
s

AN SN

—
Py

AN #

SeTEST S0

010646
010650
010656
010662
010670
010676
010676

000004
005077
012777
013737
005737
001403
012737

010712
010714
010716
010720
010722
010724
010726
010730
010730
010736
010744
010752
010760

000240
000240
000240
000240
104004
000401
022626

010706

052777

012777
012777
012777
012777
005037

TEST FOR INTR.

FROM DRA INPUT ON LEVEL

INDICATED =1

;:""'."""""""'""""""""'.'..".""""'.'""'.'

170534
010726
001436
001452
000200

000040

003076
000340
003076
000340
177776

1§750:

170542
177776

177776

170476

170465
170462
170456
170452

2%:

18:
3%

SCOPE
CLR
MOV
MOV
181
BEQ
MOV

GRSTAT
#18.3GR1VA
BRLEV1,PSW
JUMPER
2%
#200,PSW

NOP
NOP
NOP
NOP
ERROR
BR
(mp

&
3
(SP)+,(SP)+

MOV
MOV
MOV
MOV
CLR

SUNEXPT,aGRIVA
#340,3GRIVSA
SUNEXPT,aGRIVB
#340,3GRIVSB
PSW

BIS

VIA MAINT.

INT

:CLEAR ENABLES
:SET UP VECTORS
: CHANGE PSW
STEST IF FACTORY MODE
‘BR IF YES
:LOAD BR LEVEL #5-1 IF LOC-BOX OR COULTER MODE

#B1T5,3GRSTAT

SGENERATE INPLT MAINT. INTERRUPT

:ERROR, NO INTERRUPT FROM DIGITAL 1/0 INPUT
::BR TO NEXT TEST
;RESET

INPUT VECTOR

;RESET OUTPUT VECTOR
:LOWER PSW

;:"".".""""""""""""'l"""'.'....""".""l""

SeTEST S1

TEST FOR NO INTR. FROM DRA INPUT ON LEVEL INDICATED

;:'..'."""."""""""'"""".'..."""....'.."""""

010764
010766
010772
011000
011006
011012
011014
011022
011030
011032
011034

000004
005077
012777
013737
005737
001403
012737
052777
000240
000240
000240

011036
011046
011050
011052
011056
011056
011060
011062
011066
011070
8}18;2
01107«
011102
011110
011116
01112¢

1074

1S151:

170416
011060
001440
001452

170424
17777¢

000240
000040

177776
170360

012777
005037
000240
000240
000240
000403
022626
005037
104006
000401
022626

011072
177776

170360

012777
012777
012777
012777
005037

003076
000340
003076
000340
177776

4$:

:SUB-TEST,

177776

38
g::

170322
170316
170312
170306

SCOPE
CLR
MOV
MOV
ST
BEQ
MOV
BIS
NOP
NOP
NOP

AGRSTAT
#18,3GRIVA
BRLEVZ,PSW
JUMPER
48
#240,PSW
#B1T5,3GRSTAT

VIA MAINT.

INT

:CLEAR ENABLES
:SET UP VECTORS
:CHANGE PSW
STEST IF FACTORY MODE
‘BR IF YES
:LOAD BR LEVEL #5 IF LOC-BOX OR COULTER MODE
:GENERATE INPUT MAINT. INTERRUPT

NOW LOWER THE PSW AND ALLOW THE

INTERRUPT

MOV
CLR
NOP
NOP
NOP
BR
(Mp
CLR
ERROR
BR
(MP

#2%,3GRIVA
PSW

:RESET VECTOR
*LOWER PSW

3%
(SP)+,(SP)+
PSW
6
5
(SP)+,(5P)+

-ERROR

MOV
MOV
MOV
MOV
(LR

SUNEXPT,aGRIVA
#340,3GRIVSA
SUNEXPT,aGR|VB
#340,aGRIVSE
PSW

;UNEXPECTED INTERRUPT <1S BR LEVEL PLUG CORRECT>
:POP THE

:RESET

STACK

INPUT VECTOR

:RESET OUTPUT VECTOR

> LOGIC

TEST
MAINDEC=-11-CZDRG-E
31-AUG-79 11:23

MACY11
MA

151

306(1063)

31-AUG-79

&
13:05

PAGE

30-1

TEST FOR NO INTR. FROM DRA INPUT ON LEVEL

INDICATED

VIA MAINT.

::..".'0""0"""""""""""""""""'.""""""'.'

JTEST

011130
011132
011140
011144
011146

011154
C11156
011164
011172
011176
011200
011206
011214
011222
011226
011232

000004
012737
005737

001415
032777
001024
162737
062737
005337
000413
013737

013737
013737

000137
012700
000137

000001
001374

001160

010000

167764

000010
000010
001374

001376
001400

001362
001364
001372
011236
177777
003126

001376
(001400
001374

DR11-K'S ARE

TO BE

scope
MOy
BYPASS: TST
BEQ
BIT

BNE
SUB
ADD
DEC
“n
1%:
MOV
MOV
MOV
JMP
BYPAS1: MOV
JMP

i it i it N

END OF

#1,STIMES
NBEXT

18
#SW12,35WR
BYPASI
#10,DRADD
#10,DR1V
NBEXT
BYPAS]
BASEBA, DRADD

::D0 1

TESTED

‘

ITERATION
TEST IF ANY

:BR IF NONE
:TEST BIT12 OF

SWR
;INHIBIT TESTING NEXT DR11-k
UPDATE DEVICE ADDRESS
UPDATE DEVICE VECTOR
:ANOTHER ONE ?
:BR IF ANOTHER
:RELOAD ADDRESS
:RELOAD VECTOR
:RELOAD NUMBER
: DONE
.
;TEST ANOTHER UNIT

BASEIV.DRIV
NMBE X T, NBE X T
SEOP
#-1,R0
KBE 62
PASS ROUTINE

'."t

i N

s*INCREMENT THE PASS NUMBER ($PASS)
;*INDICATE END=-OF =PROGRAM AFTER 1 PASSES THRU THE

;*TYPE

"'END PASS #XXXXX'' (WMERE

;*]F THERES A MONITOR GO TO 1IT
s*]F THERE ISN'T JUMP TO BYPAS!

S
N

.'""""."""""""""""'""..".'..."..'."'."."

s e il il o

Nt NN
N

s ol il il il

N
N

i lh B

N
N
N

s INY TN

N N

s it

N
N
N
N
N
N
N

DETERMINE

'."""".'

1$152:

.SBTTL
.-\a—AAAAAAAAAAAAAAAAAAAAAA’\AAA/\"A’.A

;;"""""'"""""""""""""'."""".."

011236
011236
011240

011244
011250
011254
011262
011264
011266
011270
011272
011274
011276
011302
011306
011310
011314
011320
011322
0113264
011326
011330
011332
01133
01133
01133

0C0004
005037
005037
005237
042737
005327
000001
003022

104401
013746
104405
104401
013700
001405
000005
004710
000240
000240
000240
000137
011228

PROGRAM

IS A DECIMAL NUMBER)

$EOP:

001102
001160
001176
100000

012737
000001
011264

XXXXX

001176

SCOPE
(LR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT

SENDCT:

011343
001176
011340
000042

MOV

$TSTNM
$TIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN

(PC)+,@(PC)e

.WORD
1
$EOPCT
TYPE
. SENDMG
MOV
$PASS,=(SP)
TYPDS
TYPE
LSENULL
$GET42: MOV
afs? RO
BEQ
$D0AGN
RESET
SENDAD: JSR
PC,(RO)
NOP
NOP
3
NOP
$DOAGN:
[
JMP
a(PC)e
$SRINAD: .WORD
BYPAS]

;:IERO THE TEST NUMBER
;.IERO THE NUMBER OF TERATIONS
;s INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
;:L00P?

;i VES
;:RESTORE COUNTER

s TYPE "'END PASS #''
;s SAVE SPASS FOR TYPEOQU!
;.60 TYPE=-=DECIMAL ASCII WwlTH SiCN
;. TYPE A NULL CHARACTER
;:G5T MON]JTOR ADDRESS
;s sBRANCH IF NO MONITOR
:sCLEAR THE WORLD
;.60 TO MONITOR
::SAVE ROOM
:.FOR
JLACTN
;. RETURN

INT

SEQ 0044

340
&

SPJ‘MJ_‘

AAAAAAf\’\AAAA/\AAAAARAAA'\AAAAAAAAAAAAA"AAAAAA;—AA,- o~
B S s s

MAINDEC-11-CZDRG-E

31-AUG-79 11:23

377

015

050040

000043

377

062612

051501

020123

30G(1063)

31-AUG=79

END OF PASS ROUTINE

SENULL:

.BYTE

SBTTL

CONVERT BINARY

SENDMG: .ASCIZ

=1,-1,0

&
13:05

PAGE 30-2

SEQ 0045

::NULL CHARACTER STRING

<15><i2>/END PASS 8/

TO DECIMAL AND TYPE ROUTINE

;*THIS ROUTINE 1S USED TO CHANGE A 16-BI1T BINARY NUMBER T0 A S=DIGI?
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHE THER THE
;*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
*BEFORE THE FIRST DIGIT OF THE® NUMBER. LEADING ZEROS WILL ALWAYS BE
;'?iPLA(ED WITH SPACES.

,*CALL:

M
—d

:®

1
|

1
1
1
1
1
1
1
1
1406
1414

D o

)

oD o

sleleleleleleloeleleleleleleloleloleleleleleleleleloleleleleleoleloleolel=l=lelel=]

012703
112723
005002
016001

020200
000020
000055

01157«
000040
011564

D
D
D i

D il

000774
060105
005702
001002

D
D
D
D
D
i

1500
1502

D
i
i
i
D

1522
1526

110223
005720
020027
002746
003002
010502
000764
105726
100003
116663

1%:

2$:
3%:

105716
100407
106316

103003
116663
052702
052702

TYPDS

002402
005202

D
D
D

010146
010246
010346
010546
012746
016605
100004
005405
112766
005000

MOV

NUM,=(SP)

;:PUT

;:G0

THE BINARY NUMBER ON THE

TO THE

STACK

ROUTINE

$TYPDS:

010046

160105

1506
1510
1512
1514
1516
1520

-l

o N
Nt N N
Nt N S
N N N
NN N N N N N N N N N N N N N N N N N N N N N N N N N N N

000

062116

MACY1!

: ;'t"t"""'0"'0""""""""""t"".t'.'tt'.t.t't"t't"

it it o

_‘_._.d—._‘_o_._.-._.—_.-.d_‘_._.—a—._a-a—.—‘—o-a—o_.-a—._o_a_._‘uuwww—t_o.‘—‘__o_._‘_.

N
N

—

5¢

JEST

5%:

000001

000060
000040

69%:
7%:

000010

8%:
177777

MOV

MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOVB
CLR

MOV
MOvVB
CLR
MOV
SUB
BLT
INC

S8R
ADD
157
BNE

1STB
BM]
ASLB

RO,=(SP)

R1,-(SP)
R2,=-(SP)
R3,=-(SP)
RS,=(SP)
#20200,-(SP)
20(SP) RS
1%
RS
#'-,1(5P)
RO

#$DBLK ,R3
#' ,(R3)+
R2
$DTBL (RO) ,R!
R1,RS

4%
R?

3%
R1,RS
R2
5%

;:PUSH R ON STA(CK
;:PUSH R2 ON STACK
::PUSH RT ON STACK
;sPUSH RS ON STACK
;:SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT 1S POS.
;.MAKE THE BINARY NUMBER POS.
;sMALE THE ASCII NUMBER NEG.
;lERO THE CONSTANTS INDEX

;;ADD BACK THE (CONSTANT
;.CHECK [F BCD DIGIT=0
;:FALL THROUGH IF 0

.STILL DOING LEADING 0'S?
;.BR IF YES
;sMSD?

R2,(R3)+
(RO)+

;:PUT THIS CHARACTER
;3 JUST INCREMENTING

6%
1(SP),=1(R3)
#'0,R2
" _R2

CMpP
BLT
BGT
MOV
BR
1518
BPL
MOVB

RO, M0
2%
8s
RS,R2
6%
(SP)e

9%
=1(5P),=2(RY)

::SETUP THE OUTPUT POINTER
;2SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
;iGET THE CONSTANT
;.FORM THIS BCD DIGIT
;:BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

(SP)
7%
(SP)

BCC
MOVB
BIS
BIS
MOvVB
181

;:PUSH RO ON STACK

;:8R IF NO
;. YES==SET THE SIGN
;sMAKE THE BCD DIGIT ASCII
ssMAKE IT A SPACE IF NOT ALREADY A DIGI?
IN THE

QUTPUT BUFFER

;sCHECK THE TABLE INDEX
.60 DO THE NEXT DIGIT
;.60 TO EXIT
::GET THE LSD
;.60 CHANGE TO ASCII
JsWAS THE LSD THE FIRST NON=7ERD?
Ji:BR IF NO
J.YES==SET THE SIGN FOR TYPING

DR11=k
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE .P1
31-AUG=79 11:23
(1)

(3
(3)
(3)
(3)

(3)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
’(A;

011532

011534
011536
011540
011542

105013

9%:

012605
012603
012602
012601

011546
011546
011552
011560
011562
011564
011566
011570
011572
0115764

012600
1044C1
016686
01261¢
000002
023420
001750
000144
000012
000004

012706
004737
012737

001100
003166
040000

1417
1418
1419
1620
1427
la%%

0116064
011610
011614
011622
011522
011626
011634
011642
011650
011656
011662
011670
011676
011702
011704

005077
012777
017737
013777
005077
012777
017737
013777
005337
001347
000743

167566
125252
167552
011706
167540
052525
1675264
011706
011710

14264
}4%5

011706
011710

000000
000000

011712
011720
011726
011734
011742
011750
011752
011754
011760
011762

012737
012737
012737
012737
012737
000207
022626
104401
000000
000137

1408
1409

1410
1411
1412
(1)
1413
1414
16415
1416

42%

16427

1428
1429
1430
1431
1432
1433
1436
1435
1436
16437

011574
000002

000004
$OTBL:

$OBLK:

011710

167560
011706
167542

167532
011706
167514

013463

001454

000034
000036
000024
000026
000004

CLRB

MOV
o]
MOV
MOV

MOV
TYPE
MOV
MOV
RTI
10000.
1000.
100.
10.
.BLKW

LSBYTL
EXTTST: MOy
JSR
2%:
MOV
1%:
CLR
MOV
MOV
MOV
(LR
MOV
MOV
MOV
DEC
. BNE
KR
EXTTMP:
EXTCNT:

020254
000340
016300
000340
011752

MACY!1 306(1063)
31-AUG-79
13:05
PAGE 30-3
CONVERT BINARY (O DECIMAL AND TYPE ROUTINE
(R3)

(SP)+ RS
(SP)+ R}
(SP)+ ,R2
(SP)+ R

(SP)+ RO
,$DBLK
2(SP) ,&4(5P)
(SP)+,(5P)

::SET THE

;:POP
;:POP
::;POP
;:POP

SEQ 0046

TERMINATOR

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

RS
R3
R2
R1I

;:POP STACK INTC RO
;sNOW TYPE THE NUMBER
;s ADJUST THE STACK

;oRETURN TO USER

MISC. EXTERNAL LOGIC
#STACK,SP

TEST

PC,SETADD
#BIT14, EXTONT

;SET UP ADDRESS AND VECTOR
;LOAD COUNT

aGRDIO
#125252,aGRD10
aGRDA] ,EXTTMP
EXTTMP ,3GRDA]
aGRDIO
#52525,3GRDI0O
aGRDA] ,EXTTMP
EXTTMP,aGRDAI]
EXTCNT
1%
2%

sCLEAR QUTPUT REGISTER
sLOAD OQUTPUT
JREAD INPUT
sCLEAR INPUT
sCLEAR OUTPUT REGISTER
;LOAD OUTPUT
sREAD INPUT
;CLEAR INPUT
sFINISHED COUNT
;
.L00P

0
O

sSUBROUTINE TO LOAD TRAP AND POWER FAIL VECTORS

SETTRP:

1%:

MOV
MOV
MOV
MOV
MOV
RTS
(MP
TYPE
HALT
JMP

#STRAP ,Q# TRAPVEC
#3640
90 TRAPVE(+?
,
#SPWURDN ,3#PWRVEC
#3640 ,3#PWURVE(+?2
218,304
PC
(SP)+,(SP)+
LBUSTRP

BEGIN

;LOAD TRAP VECTOR

;LOAD POWER FAIL VECTCR

JSET UP FOR UNEXPECTED TRAP
JEXIY

DR11=k
MAINDEC-11-CZDRG-E
LOGIC TEST
CZDRGE .PIN
31-AUG-79 11:23

1439
164640
14641
1462
1463
1446
164645

1646

164647
1448
16449
1450
16451
1452
1453
14564
16455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1476
1475
1476
1477
1478
1479
1480
1481
16482
1483
16484
1485
1486

1487

011766
011772
011776
012002
012006
012014

001100
011712
003166
167402
012050
000340
013524
020336
000100

012022

012026
012032
012040
012044
012046
012050
012052
012060
012064
012066
012070
012074
012076
012102
012104
012112
012116
012120
012122
012124
012130
012134
012136
012140

012146
012152
012160
012162
012164
012166
012170
012172
012174
012200
012204
012206
012212
012214
012220
012224

177776

000106
001370

167350

011706

MACYT1 30G(1063)
COULTER INTERFACE

20%:
6%:
3%:

MOV

167300

012737
000404
006000
006000
006000
006000
010001
042701
052701
110142
005337
001363

000337
1046401
000207

000055
013553
000004

013546

000060
011706

013546
013544

CPU,RO
RO
3%

EXTTMP

aGRDA]
RO

BNE
MOV

4%
R1,R3

JSR
CMP

PC,40%
#BUFFER,R3

MOV
MOV
MOV

#55 ,MSGRUS+2
#MSPNT1,R2

#7777 ,R0O
-(R3),R0O

40%:

011706

12%:

SEQ 0047
TEST

;LOAD 1 MSEC(.

RO, (R1)+
#-1,3GRDA!

MOV

PAGE

(SP)+,(SP)+

BEQ
1%
BR
5%
;SUBROUTINE FOR THE COULTER TEST

108:

177760

13:05

#70. ,EXTTHP

MOV
MOV

BIC

5%:

000771

012737

MOV
DEC
BNE
DEC

012140
020336

012702

cmMp

MOV

BNE

167310

007777

.SBTTL
COULTER INTERFACE
COULTR: MOV
#STACK,SP
JSR
PC,SETTRP
JSR
PC,SETADD
CLR
aGRSTAT
MOV
#20% ,3GRIVA
MOV
#3640,3GRIVSA
1%:
TYPE ,RUNMSG
MOV
#BUFFER,R}
6%:
MOV
#BIT6,AGRSTAT
CLR
PS
WAIT
BR
4%

011706

177777

31-AUG=79
TEST

;LOAD TRAP AND POWER FAIL VECTORS
;SETUP BUS ADDRESS AND VECTOR
;CLEAR INPUT STATUR REG
:LOAD INPUT VECTOR
sTELL OPERATOR TO "'RUN SAMPLE"'
;LOAD POINTER FOR RESULTS
sENABLE INTERRUPT
;LOWER PSW
:WAIT FOR OPERATOR
;POP STACK
;LOAD # OF 1 MSEC DELAYS

DELAE WEIGHT

sDELAY

;240 FOR

sFINISHED ALL MSEC. DELAY
;BR 1F NOT
sSAVE RESULTS
sSAVE IN BUFFER
sCLEAR INPUT

s MASK

sBR IF NOT LAST SAMPLE
;COPY R1
JGET RESULTS
;CONVERT AND TYPE
sFINISHED ?
;BR IF YES
sCONT. TYPING UNTIL DONE
JFIX

ASCII

MESSAGE

W6 EXTTMP

sLOAD DEST. POINTER
:LOAD COUNT

BIC
BIS

#177760,R1
#60,R1

s MASK
sMAKE

BNE
SWAB

10%
MSGRUS+2

ROR
ROR

ROR
ROR
MOV

MOVB
DEC

TYPE,
RTS

12%
RO
RO
RO
RO
RO,R!

R1,=-(R2)
EXTTMP

MSGRUS
PC

11/05

;LOAD R1
DIGIT

sSAVE DIGIT
sFINISHED ?
;BR IF NOT
:ADJUST MESSAGE

JEXIT

:620 FOR

11/40

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG=E
CIDRGE .P11
31-AUG=79 11:23
1489
1490
16491
1492

1493

1496

012226
012232
012236

012242

012246

012706
004737
104401

004537

001402

1495
1496
16497
1498
1499
1500
}gg;

012252
012254
012260
012264
012266
012272
012276

000412
004537
001404
000405
004537
001406
000400

1503
1506
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514

012300
012304
012306
012312
012314
012320
012322
012326
012330
012334
012336
012342

012344

005737
001403
004537
001402
005737
001403
004537
001404
005737
001403
004537
001406

000755

1517
1518
1519
1520
1521
1522
1523
1526
1525
1526
1527
1528
1529

012346
012352
012356
012362
012366
012372
012374
012400
012402
012404
0126406
012612
012420

013537
012537
005077
104401
013746
104402
104401
104411
000240
000240
013637
042737
001413

}2}2

1530
1531
1532
1533
1534
1535
1536
1537
1538
1539

012422
012430
012432
(0126440
012442
012446
012450
012452
012454
012456

022737
001406
022737
001350
005277
005725
000205
000000
000000
000000

LSBTTL
LOCBOX: MOV
JSR
TYPE

001100
011712
013304

012346

JSR

012532

012346
012536
LOCA:

012460
012534

1%:

012460
012536

2%:

012460

3%:
012452
012456
000074
013345
012452

INADR:

1%:

013410

012454
177640

012454

000116

012454

000131

012454

000010

RS, INADR

LOCT,LoCY

012346
012534

2%:
3%:
10%:
11%:
12%:

157
BEQ
JSR
LoC1
1S7
BEQ
JSR
Loc?
T1ST
BEQ
JSR
LOC3
3R

MOV
MOV
CLR
TYPE,
MOV
TYPOC
TYPE,
RDLIN
NOP
NOP
MOV
BIC
BEQ

CMP
BEQ
CMP
BNE
INC
1S1
RTS
0
0
0

PAGE 32

SEQ 0048

LOC-BOX LAMP AND SWITCH LOOP
#STACK,SP
PC,SETTRP
,LOCHDR
;TELL OPERATOR WHMAT

BR
LOCA
JSR
RS, INADR
LOC2,L0C2Y
BR
LOCA
JSR
RS, INADR
LOC3,L0C3Y
BR
LOCA

012532

MACY11 30G(1063)
31-AUG=79
13:05
LOC=-BOX LAMP AND SWITCH LOOP

LOC1Y
1%
RS,LOUP1

LoCc2y
2%
RS,LOUP!

sGET THE ADDRESSES

THIS IS

:BR IF DONE
;GET NEXT ADDRESS
;BR IF DONE
:GET NEXT ADDRESS

:TEST 1F SELECTED
:BR IF NOT
sTEST FOR SWITCHES AND LOAD LAMPS

- sTEST 1F SELECTED
:BR IF NOT
sLOAD NEXT SZT

LOC3Y
3%
RS,LOUPI

sLOAD NEXT SET

LOCA

:LOOP BA(CK

a(R5)+,10%
(RS)+,12%
212%
INADRH
108,-(SP)

;GET BUS ADDRESS
sGET INDICATOR
:CLEAR FLAG
:ASK FOR INPUT
sTYPE CURRENT ADDRESS

INDADR

:ADD YES NO
:READ CHAR. AND ECHO

a(SP)+,11%
#177640,11%
3%
#'N, 118
2%
'Y, 11%
1%
212%
(RS)+
RS

;GET THE '‘ANSWER
sMASK OFF BITS
:BR IF CR
sTEST IF NO
;BR IF NO
;TEST IF YES
:BR IF OTHER
:SET YES FLAG

sTEST

SEXIT

SELECTED

DR11-K

LOGIC TEST

CZDRGE .P11

1541
1542
1543

MAINDEC-11-CZDRG-E

31-AUG=79 11:23

1550
1551
1552
1553
1554
1555
}ggg

012460
012464
012466
012470
0124764
01250C
012502
012506
012510
012512
012514
012516
012520
012524

013537
001001
000205
013702
062702
010203
062703
011200
011301
040100
041213
060013
012712
000205

1558
1559
1560
1561
}ggg

012526
012530
012532
01253&
012536

000000
000000
000000
000000
000000

012540
012544
012550
012554
012560
012564
012566
012572
012576

012706
004737
104401
004537
001402
000412
004537
001404
000405

012610

000400

15644
15645
1546
1547
1548
1549

1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
15764
1575
}g;g

1584
1585
1586
(1)
(1)
(1)
1587
(1)
(1)

(1)

1588
(1)
(1)
(1)
1589
(1)
(1)
(1)

1590

012600
012604

012612
012616
012620
012624
012626
012630
012632
012636
012640

012642
012644
012650
012652
012656
012656
012662
012664
012666
012670

012526
000002

000002

177777

9001100
011712
013426
012346
012532
012346
012534

005737
001431
004537
000
000007
001402
004537
001
000070

012532
013066
000
013066
003
013066
006

013066
0

013066

31-AUG-79

LOC-BOX LAMP AND SWITCH LOOP

40%:
41%:
LoCc1y:
Loc2y:
LOC3y:

012346
012536

306(1063)

13:05

PAGE 33

SEQ 0049

s SUBROUTINE TO LOAD THE LAMPS FROM THE LOC BOX SWITCHES
LOUP1:
MOV
a(R5)+,40%
:GET ARG.
BNE
1%
.
:BR IF YES
RTS
RS
JEXIT
1%:
MOV
40%,R2
ADD
#2,R2
MOV
R2.R3
ADD
#2,R3
MOV
(R2).,RO
MOV
(R3),R1
BIC
R1,RO
sMASK OFF BITS
BIC
(R2),(R3)
sLOAD OQUTPUT BITS
ADD
RO, (R3)
MOV
#-1,(R2)
sCLEAR INPUT
RTS
RS
JEXIT

012526

004537
001406

001402
004537
002
000700
001402
004537
003
007000
001402
004537

MACY11

0
0
0
0
0

;YES/NO ANSWER TO LOC BOX #1

LSBTTL
XLO1 ADJUSTMENT ROUTINE
XLOTAD: MOV
#STACK,SP
JSR
PC,SETTRP
TYPE
. XLOHDR
;TELL OPERATOR
JSR
RS, INADR
;GET BUS ADDRESS
LOC1,LO0CTY
BR
XL010
JSR
RS, INADR
:
LOC2,L0C2Y
'
BR
XL010

JSR
RS, INADR
LOC3,L0C3Y

XL010:

XL010

TS7
BEQ
JSR
.BYTE
7
LoC1
JSR
.BYTE
70

LOC1Y
1%
RS, XLOAD)
0.0

LocC1
JSR
BYTE
700
LoC
JSR
.BYTE
7000
Loc1
JSR

RS.,XLOADJ
1,3
RS, XLOADJ
2.6

RS.,XLOADJ
3.1

RS.,XLOADJ

;TEST IF SELECTED
sBR IF NOT SELECTED
sNOW CONVERT THE DATA AND DISPLAY
sLOAD CH# AND SHIFT COUNT
:LOAD DATA MASK
;DR11K BUS ADDRESS
sNOW CONVERT THE DATA AND DISPLAY
sLOAD CH# AND SHIFT COUNT
;LOAD DATA MASK

IN LAMPS

;DR11K BUS ADDRESS
sNOW CONVERT THE DATA AND DISPLAY IN LAMPS
sLOAD CH# AND SHIFT COUNT
;LOAD DATA MASK
;DR11K BUS ADDRESS
sNOW CONVERT THE DATA AND DISPLAY IN LAMPS
sLOAD CH# AND SHIFT COUNT
sLOAD DATA MASK
;DR11K BUS ADDRESS
sNOW CONVERT THE DATA AND DISPLAY IN LAMPS

%OGlC

CZDRGE .P1
(1)
(1)
(1)
1591
1592
1593
(1)
(1)
(1)
1596
(1)

(1)

(1)
1595
(1)
(1)
(1)
1596

(1)
(1)
(1)
1597

(1)
(1)
(1)
1598
1599
1600
(1)
(1)
(1)
1601
(1)
(1)
(1)
1602
(1)
(1)
(1)
1603
(1)
(1)
(1)
1606
(1)

(1)
(1)
1605

012674
012676
012700
012702
012706
012710
012714
012716
012720
012722
012726
012730
012732
012734
012740
012742
012744
012746
012752
012754
012756
012760
012764
012766
012770
012772
012776
013000
013004
013006
013010
013012
013016
013020
013022
013024
013030
013032
013034
013036
013042
013044
013046
013050
013054
013056

013060
013062

EST

N —

DRY1-K

MAINDEC-11-CZDRG-E

1-AUG=-79 11:23
004
070000
001402
005737
001431
004537
005
000007
001404
004537
006
000070
001404
004537
007
000700
001404
004537
010
007000
001404
004537
011
070000
001404
005737
001431
004537
012
000007
001406
004537
013
000070
001406
004537
014
000700
001406
004537
015
007000
001406
004537
016
070000

001406
000137

MACY11
XLO1

014

012534

1%:

013066
003

LoC?
JSR
.BYTE
700
LOC2
JSR

013066
006
013066
on

.BYTE
7000
Loc2
JSR

013066
014
2%:

013066
000
013066
003
013066
006

013066
on
013066
014

012612

3%:

31-AUG=79

ADJUSTMENT ROUTINE
BYTE
70000
LOC1
187
BEQ
JSR
.BYTE
7
Loce
JSR
.BYTE

013066
000

012536

306(1063)

BYTE
70000
LOCZ
TST
BEQ
JSR
.BYTE
7
LOC3
JSR
.BYTE
70
LOC3
JSR
.BYTE
700
LOC3
JSR
.BYTE
7000
LOC3
JSR
.BYTE

70000
LOC3
JMP

4,14

LOC2Y
2%
R5,XLOADJ
5,0
R5,XLOADJ
6,3

13:05

PAGE 33-1
SEQ 0050
;LOAD CH# AND SHIFT COUNT
:LOAD DATA MASK
;:DRT11K BUS ADDRESS
;TEST IF SELECTED
:BR IF NOT
:NOW CONVERT THE DATA AND DISPLAY IN LAMPS
;LOAD CHN¥ AND SHIFT COUNT
;LOAD DATA MASK
;:DR11K BUS ADDRESS
:NOW CONVERT THE DATA AND DISPLAY IN LAMPS
sLOAD CH¥ AND SHIFT COUNT

:LOAD DATA MASK

R5,XLOADJ
7.6
R5,XLOADJ
10,11
RS ,XLOADJ
11,14
LOC3Y
3%
R5,XLOADJ
12,0
R5,XLOADJ
13,3
R5,XLOADJ
14,6

R5,XLOADJ
15,11
R5,XLOADJ
16,14

XL010

;:DR11K BUS ADDRESS
:NOW CONVERT THE DATA AND DISPLAY
;LOAD CH¥ AND SHIFT COUNT
;LOAD DATA MASK
;:DR11K BUS ADDRESS
:NOW CONVERT THE DATA AND DISPLAY

IN LAMPS

IN LAMPS
sLOAD CHN¥ AND SHIFT COUNT
sLOAD DATA MASK
:DR11K BUS ADDRESS
:NOW CONVERT THE DATA AND DISPLAY IN LAMPS

sLOAD CHN¥ AND SHIFT COUNT
;LOAD DATA MASK
:DR11K BUS ADDRESS
;TEST IF SELECTED
:BR IF NOT
:NOW CONVERT THE DATA AND
;LOAD CH¥ AND SHIFT COUNT
:LOAD DATA MASK
;:DR11K BUS ADDRESS
:NOW CONVERT THE DATA AND
;LOAD CH# AND SHIFT COUNT
:LOAD DATA MASK
:DR11K BUS ADDRESS
:NOW CONVERT THE DATA AND
:LOAD CH¥ AND SHIFT COUNT
:LOAD DATA MASK
:DR11K BUS ADDRESS
:NOW CONVERT THE DATA AND
. sLUAD CH¥ AND SHIFT COUNT
:LOAD DATA MASK
:DR11K BUS ADDRESS
:NOW CONVERT THE DATA AND
:LOAD CH¥ AND SHIFT COUNT

:LOAD DATA MASK
:DRT1K BUS ADDRESS

DISPLAY

IN LAMPS

DISPLAY

IN LAMPS

DISPLAY
IN LAMPS

DISPLAY

IN LAMPS

DISPLAY

IN LAMPS

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE.P11
31-AUG-79 11:23
1607
1608

013066

1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1626
1625
1626
1627
1628
1629
1630
1631
1632

MACY11 306(1063)
31-AUG-79
XLO1 ADJUSTMENT ROUTINE

000206

013100
013106
013110
013114
013116
013122
013126
013132
013136
013140
013144
013150
013152
013156
013160
013164
013166
013172
013174
013200
013202
013206
013210

112537
012537
013537
001464
105277
005001
062737
105777
100375
017700
162700
100432
162700
100425
162700
100420
162700
100407
162700
100406
162700
100405
000412

013270
013274
013272

1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646

013216
013222
013224
013226
013232
013236
013242
013244
013246
043250
013252
013260
013264

062701
005201
000404
012701
062701
013700
006301
005300
100375
006201
043777
050177
005001

000205

70%:

1649
1650
1651

013270
013272
013274

000000
000000
000000

40%:
41%:
42%:

1633
16364
1635

}g:;

013072

013212

013266

052777

012701

020000

000176

BIS

000154

0000064
000140

013272

1%:

000136

000004
000014

000060
001530

000060
000014

000004

2%:
3%:
4$:

000002
000004
013270

5%:
6%:
7%:
108:

000002

013274
000006

13:05

PAGE 34

SEQ 0051

;ANALOG CONVERSION AND LOC BOX DRIVER
XLOADJ: MOVB
(R5)+,3ADCS1

132577

1609

000012

#81115,3A0CS

MOvB
MOV
MoV
BEQ
INCB
CLR
ADD
1STB
BPL
MoV
SUB
BMI
SuB
BMI
SUB
BMI
SuB
BMI
SUB
BMI
SuB
BMI
BR

(R5)+,40%
(R5)+,42%
a(R5)+,41%
70%
aADCS
R1
06,618
aADCS
1%
@ADBR,RO
#4 RO
7%
#14,R0
6%
#60,RO
5%
#1530,R0
2%
#60,R0
3%
#14,R0
4%
7%

BR
Mov
ADD
MOV
ASL
DEC
BPL
ASR
BIC
BIS
CLR

#2,R1
R1
7%
#2,R1
¥4 ,R1
40%,R0
R1
RO
10%
R1
42%,341%
R1,341%
R1

MoV
ADD
INC

RTS

0
0
0

:LOAD CHANNEL #

:SET UNIPOLAR

sGET SHIFT COUNT
sGET DATA MASK
:GET DR11K BUS ADDRESS
:BR IF NONE
;CONVERT THE DATA
;GET LAMP ADDRESS
;WAIT FOR DONE
;READ THE DATA

;TEST IF AT UPPER END
:BR IF YES
;TEST IF NEAR UPPER END
:BR IF YES
;TEST IF GETTING NEAR UPPER END
:BR IF YES
:TEST IF GETTING NEAR LOWER END
:BR IF YES
;TEST IF NEAR LOWER END
:BR IF YES
;TEST IF AT LOWER END

:BR IF YES
:BR IF AT STOP
:LOAD #

:BR AND LOAD LAMP'S
;LOAD #

;LOAD SHIFT COUNT
;SHUFFEL THE DATA

:BR IF NOT DONE
sRE _ADJUST
;CLEAR OLD DATA IN _AMPS
:LOAD THE LAMPS

JEXIT

3402

042104

g
T

1662
1663

1664

3476

3504
3512
3520

§SZA

532
3 540
3 44
3
3 53

o
&
o

w
~

e
e
e

3470

N S

1661

3463

050040
045104
047105
050117

052117
051525
020126
005015

052040

046511

015

041012

040440

060440
046524
047514
000

051525

026505

/ >

YORN?/

BUSTRP: .ASCIZ

<15><12>/BUS TIME-OUT ON SELECTED DR11Kk/

005015

051012

047125

RUNMSG: .ASCIZ

<15><12><12>/RUN SAMPLE/<15><12>

047055

047116

MSGRUS: .ASCII

<15><12>/=NNNN/

MSPNT1: .BYTE

051440
006505

005015

046105
020104
000113

046501
000012

047117

051440
042524
030461

<15><12>/xL01 POT ADJUSTMENT LOOP/<15><12>

020124

041505
051104

046120

000

.EVEN

053523

SWNLB:

.ASCIZ

;
:

/SET SWITCH REGISTER BI'S EQUAL TO THE NON-LATCHING INPUT BITS/

?
|
i
|

&»H
H
~
o~

Fo
W

o
W

A
—————
(v

elelelalelolleloleleleleleleleta L0

1668

.ASCIZ

}

1665

1666
1667

.ASCIZ

052517

1660

XLOHDR: .ASCIZ

046130

'|
SEQ 0052 |

<15><12>/USE LOC-BOX <DR11K AT BUS ADDR. /

030460

005015

PAGE 35

INADRH:

INDADR:

3426

13:05

<15><12>/L0C-BOX SWITCH AND LAMP LOOP/<15><12>

000040
020131
037440

051525

ADCS:
170400
ADCS1:
170401
ADBR:
170402
LOCHDR: .ASCIZ

042 5
0410
051104
052101

051117

3434
36462
3450
3456

0265
0535
0404
046 5
050 1

MACY11 306(1063) 31-AUG-79
XLO1 ADJUSTMENT ROUTINE

044103
046040
047514
000
052412
041517
036040
020113

3616

1659

041040

047514
020130

027122
020040
047040

1658

3374
s

1657

v
~

2
5
352
360
366

170400
170401
170402
005015
047502
052111
042116
020120
005015
015
046040
054117
030461

1656

6
0
2
&
2
0
6

1653
"1654
1655

IC 1 %SY MAINDEC-11-CZDRG-E
31-AUG=79 11:23

CIDRGE
.

=leleleloleleleleleleleleleleleladolelelolaleloleladololololaladel
ot - BN
o

DR11-K

0
6
1

3
4
4

020105+

04412 4

SWINTB: ,ASCI1Z

/SET SWITCH REGISTER BITS EQUAL TO THE INTERRUPTING INPUT BITS/

W —
- T

T MAINDEC-11-CZDRG-E MACY11 30G6(1063) 31-AUG-79 1%:05 PAGE 35-1

NO ==
—=N
VIV = OWMWUNOW
NNVNNOOOTNINESN

VOO
==
HfrOW

~ -—

SEQ@ 0053

SWPO3B:

.ASCIZ

/SET SWITCH REGISTER BITS 15-12 EQUAL TO POSITIVE

053523

SWTRAB:

.ASCIZ

/SET SWITCH REGISTEK BITS 15-12 EQUAL TO TRANSITION INPUT BITS/

SWDPOB:

.ASCIZ

/SET SWITCH REGISTER WITH THE DESIRED PROGRAM OPTIONS/

ADJUSTMENT ROUTINE

INPUT BITS/

27
10

1675

1676

—

040524
042522
051105

052520

051105

<15><12>/DEPRESS CONT./<15><12>

052524
044507
044440

EMI1:

LASCIZ

/STATUS REGISTER

020124

EM2:

.ASCIZ

/INPUT REGISTER IN ERROR/

EM3:

LASCIZ

/OUTPUT REGISTER

EM&:

LASCIZ

/INPUT FAILED TO INTERRUPT/

IN ERROR/

047522

OSSN

123
020123
052123

.ASCIZ

s A\ S}

014251
014256
014264

DEPCNT:

s s NUNY
—
N

1673

IN ERROR/

—

014234
0142642

047511
015
042522
047117

1674

014222

051107
052120
000
050105
041440
005015

—_N—-_-NO
O

014227

042105

22
40
051516
042012
051523
027124

oS roMN
(P
W P
NS =N

1672

044124

042040

elelelelelelele]lele]
P
O
Y
Y F ALY (=1

i
D

053523
051040
042524

—

020124
044103
11

062523
052111

P
P
»H
o~
o

052111

—

047040

NN
(=1,
5P Y. Yo

el e
e e
e
—

D
D
i
i
D i

62
150

052125

1671

O~
b eaun
ey
=00

OOO
W T
OCOO0O0O0O0O
PP o
LY, P AV IV

o
W

—

020124

050125
044440
041040

ooooo=

~N - F
»
n
W o &~ W o =
N ~ o~ ~N &H =
%] o o W o o

XLOT

N \¥.J w ~
W
o ~ o o~ o ~
-d
b
b
W—W
- ~n

NV e

s \N s

O =NININ
=N
Vs
VoY

XSS 832
NN
—

AUG=79 11:23

ooooo=
~ &~ &~ ~
b

& &» &S SRS EW
o f={=J
F
WN —
F
o s~

oooco ~ :

—

—t

1670

(=]l=l=lel=T.)
o°ogooooooo
— e e e ed b D b D b
_,

1669

=i=l=l=l=lollolelelolelolaleYe)

S——

DR11-K
CZDRGE.

CIZDRGE.P

LOGIC TEST

31-AUG-79 11:23

0
0
0
0

p—y

0
0
0
0 6560
0164566
014574
014602
014610

014614

014622
014630
014636
014644

062514
051440
050116
040505
040514

047516

042526
020124
020124
042523

014652

052520

014666

043501

1683

01467

1684

014741

1686

014660

15006

5007
5014
5022
5030

5046
5052
5062

UPT/

EM7:

.ASCIZ

/OPERATOR INTERVENTION ERROR/

EM10:

.ASCIZ

/INTERRUPT

EMI1:

<ASCIZ

/NON=INTERRUPT

INPUT BIT SET

041520

DHI1:

LASCIZ

/ERRPC

DRADD

TSTNUM

STATUS

041520

DH2:

LASCIZ

/ERRPC

DRADD

TSTNUM

INPUT

EXPECTED/

041520
040522
052123
052517
020040
052103

DH3:

LASCIZ

/ERRPC

DRADD

TSTNUM

OUTPUT

EXPECTED/

041520
040522

DHa4:

8
5
0
020104
052105
052125
054504
000107

026516

051122
047111
044502
020126

020126

051122

105
020040
042104
052516
050126
054105
042105
105
020040

040522
071N
047105
042640

2
2
7

105

042105

UTPU

/UNEXPECTED INTERRUPT/

051122

020040
042104
052516
052520
054105

ASCIZ /OUTPUT FAILED TO INTERRUPT

.ASCIZ

105

0147646
014756
014762
014770
014776

SEQ 0054

EM6:

020131

020040
042104
052516
052123
020040
052103

PAGE 35-2

042520
N44440
052522

042101

014676
014706
014712
014720
014726
014734

e
gy

1685

XLO1 ADJUSTMENT ROUTINE

13:05

054105
062105
051105
o

014475

046111
020117
051122

1679

31-AUG=79

040506
052040
042526

~N
wn
N

014450

020124
042105

22
30

1678

1681

MACY11 306(1063)

}% 052}%9 OSZ?gg 052520 EM5

1677

1680

MAINDEC-11-CZDRG-E

N=NINNIN
=N = ONIN) N=NH
S NJOO
VN

DR11-K

000

000
051105
044440
041040
044501
047524
044440
051040
043040
047111

050125
052520
020124
(047111

INPUT READY FLAG/

046106

040522
052123
020040
051525
042520
000

042040
052011
004515
020124
042520

040522
052123
047111
020040
052103

000

INPUT READY FLAG/

042522

042040
052011
020115
052101
054105
042105

051122
042040
052011
004515
052125
042520
000
051122
042040

INPUT BIT .FAILED TO SET

EXPECTED/

.
.ASCIZ

/ERRPC

DRADD

TSTNUM/

—r

DR11-x

CIDRGE .P1N

1687

1688

015070
015076

015102

015110
015116
0151264
015132
015140
0151646
015154

;%Sl
MAINDEC-11-CZDRG-E
=AUG-79 11:23

042104
052516

051105

052011
000115

050122

MACY11 306(1063)
31-AUG=79
XLOT ADJUSTMENT ROUTINE

13:05

PAGE 35-3

052123
020103

DW10:

.ASCIZ

/ERRPC

DRADD

TSTNUM

STATUS

020040
004504
046525
052524
050130
044440
041040

051104
051524
051411
020123
041505
050116
052111

042101
047124
040524
042440
020124
052125
000

001116

001376

015242

DT1:

SERRPC,DRADD, TSTNUM,$BDDAT ,$GDDAT,0

015162

SEQ 0055

EXPECT

’

LEVEN

1689

015162

1690

8}2}62

001116

001376

015242

DT4:

SERRPC,DRADD,TSTNUM,O

1691

015206
015214
015222

001116
001126
000000

001376
001124

015242
001442

DT10:

SERRPC,DRADD,TSTNUM,SBDDAT,$GDDAT,BRLEV3,0

000000

DFO:

0.0.0,0,0.,0.,0

TSTNUM:

1692

1693

015170

001126

015224

000000

015242

000000

0152352
015240

000000
000000

001126

CO0000

000000

INPUT BIT/

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG=E
CZDRGE .P11
31-AUG-79 11:23
1695
1696

MACY11 306(1063)
31-AUG-79
XLO1 ADJUSTMENT ROUTINE
.SBTTL

13:05

PAGE 36
SEQ 0056

SCOPE HMANDLER ROUTINE

;:'"'."'"'"""""'."""""""""Ql.""""""""'Q'

:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)

:*AND LOAD THE ERROR FLAG

(SERFLG)

INTO DISPLAY<15:08>

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;eSW14=]
LOOP ON TEST
"IAE
INHIBIT ITERATIONS
;*SW09=1
LOOP ON ERROR
:-g:oa=1
LOOP ON TEST IN SWR<7:0>
;*CALL

015264
015244
0152646
015254

104407
032777
001114

015256

000416

015260
015264

013746
012737

000004
015304

012637
000463
022626
012637
000423

000004

015272

005737

015276
015302
015304
015306
015312
- 015314
015314
015322
015324
015332
015334
015340
015342
015350
015352
015360
015362
015370
015372

032777
001404
127737
001465
105737
001421
123737
101015
032777
001404
013737
000446
105037

015402
015404
015412
015414
015420
015422
015426

000415
032777
001011
005737
001406
005237
023737

015376

015434
015436
015444
015452

005037

002024
012737
013737
105237

$SCOPE:
040000

163664

1%:

SCOPE

CKSWR
BIT
BNE

;MNRANSTART

$XTSTR: BR

177060

000004
000400

163616

163610

001102

001103
001115

001103

00000

163560

001110

001106

001103

001160
004000

MOV
MOV

000004

163526

001104

000001
015522

001104
001160

001102

#BIT14,35WR
$OVER

CODE

FOR

THE

XOR

SFERRVEC,=(SP)
#5% ,AMERRVE(

::TEST
FOR CHANGE IN SOF T=SWR
;:LOOP ON PRESENT TEST?
::YES IF SWig=1

TESTER#SNAS

;:1F RUNNING ON THE '‘XOR'' TESTER C(MANGE
::THIS INSTRUCTION 19 A "'NOP'' (NOP=24&0)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
;:SET FOR TIMEOUT

TST

an1 77060

;:TIME OUT ON XOR?

CLR

S$TIMES

;sCLEAR THE NUMBER OF ITERATIONS TO MAKE

BGE
MOV
MCV

SOVER
#1,81CNY
SMXCNT,STIMES

MOV
(SP)+ ,@#ERRVEC
;:RESTORE THE ERROR VECTOR
[
$SVLAD
::60 TO THE NEXT TEST
5% :
(MP
(SP)+,(SP)+
::CLEAR THE STACK AFTER A TIME Qu!
MOV
(SP)+ ,@#ERRVEC
;:RESTORE THE ERROR VECTOR
1]
7%
;:LOOP ON THE PRESENT TEST
68 :;MNANREND OF CODE FOR THE XOR TESTERA#AN®
BIT
#B1T08,aSWR
::LOOP ON S+ €. TEST?
BEQ
2%
::BR IF NO
(MPB
3SWR,STSTNM
::ON THE RIGMT TEST?
SWR<7:0>
BEQ
$OVER
;i8R IF YES
2%:
1STB
SERFLG
'; HAS AN ERROR OCCURRED:
BEQ
3%
::BR IF NO
(MPB
SERMAX ,SERFLG
;;MAX. ERRORS FOR THIS TEST COCCURRED?
BHI
3%
::BR IF NO
BIT
#81709,3SWR
;:LOOP ON ERROR?
3EQ
4%
;:BR IF NO
7%:
MOV
SLPERR,SLPADR
;;SET LOOP ADDRESS TO LAST SCOPE
BR
$OVER
4%:
CLRB
$ERFLG
;:JERO THE ERROR FLAG

3%:

001176

001104
001160

::SCOPE=]10T

1%:
$SVLAD:

B
BIT
BNE
ST
BEQ
INC
(MP

INCB

18
#BIT11,3SWR
1%
$PASS
18
$ICNT
$TIMES,SICNT

$TSTNM

;:ESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?
::BR IF YES
;:1F FIRST PASS OF PROGRAM
¥
INHIBIT ITERATIONS
;s INCREMENT ITERATION COUNT
;:CHECK THE NUMBER OF ITERATIONS MADE

;:BR IF MORE ITERATION REQUIRED
;sREINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS 10 DO
:;COUNT TEST NUMBERS

015656
015464
015670
0156476
015500
015506
015514
015520
015522

113737
011637
011637
005037
112737
013777
013716
000002

001102
001106
001110
001162
000001
001102
0C1106

001115
163426

003720

SOVER:

MOvB
MOV
MOV
(LR
MOvVB
MOV
MOV
RTI

13:05

.SBTTL

PAGE

36-1
SEQ 0057

STSTNM STESTN
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX
STSTNK,SDISPLAY
SLPADR, (SP)

$MXCNY: 2000.

;;SET TEST NUMBER IN APT MAILBOX
:SAVE SCOPE LOOP ADDRESS
: s SAVE ERROR LOOP ADDRESS
:sCLEAR THE ESCAPE FROM ERROR ADDRESS
;sONLY ALLOW ONE’1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
::FUDGE RETURN ADDRESS
::FIXES PS

;:MAX. NUMBER OF

ERROR WANDLER ROUTINE

ITERATIONS

;:"0"""""""""""'"'"0"""""""""""""'"'t

;*THIS ROUTINE WILL

INCREMENT

THE

ERROR FLAG AND THE

:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF

;*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY

;*SW15=1
;*SW13=1

bt - "
P NP "t
Pt
P
P
b
b Nt T
N
Nl
N N NP
N
N N N
N
N N

MACY11 30G(1063)
31-AUG-79
SCOPE HMANDLER ROUTINE

001174

P -

—

AA/‘NAAAAAAAAAAA&ARAAA'\AA’~’\AAAAAAAA’\AAA,‘,-\A’\AFAAA Lo NS
Tt
et et
s s el e s e e il s it i s e it e i s D el e i i i it [N S D it D i i i s i it s s [\
B o I
D

LOGIC TEST
MAINDEC-11-CZDRG-E
1"
31-AUG-79 11:23

;*SW09=1
;*CALL
e

015524
015526
015526

.
104407
113737

015534
015540
015542
015550
0155564
015560
015566
0155764
015602
015604
015610
015614
015614
015622
015626
015632
015636
015637
015640
015642
015646
015650
015652
015654
015662
015664
015670
015674
812?53

122737
001007
113737
004737
000
000
000777
005777
100002
000000
104407
032777
001402
013716
005737
001402
013716

015702

022737

105237
001775
013777
005237
011637
162737
117737
032777
001004
004737
1044017

$ERROR:
001102

015242

001102
001112
001116
000002

163372

001103

1633264
020000

001116
001114
163336

015716
001165
000001

001210

001114
020024

015636

208:

21%:
22%:
’%:

163272

001000

7%:

163256

3%:

001110
001162

001162

011324

000042

THIS ROUTINE

HALT ON ERROR
INHIBIT ERROR TYPEOUTS

ERROR COUNT,

THE ERROR CALL

ARE:

LOOP ON ERROR
ERROR

CKSWR
MOVB

STSTNM, TSTNUM

;;ERROR=EMT

INCB
BEQ
MOV
INC
MOV
SUB
MOVB
BIT
BNE
JSR
TYPE

SERFLG
4
STSTNM,3DISPLAY
SERTTL
(SP) ,SERRP(
#2 ,3ERRPC
ISERRPC,SITEMB
#BIT13,3SWR
208
PC,SERRTYP
LSCRLF

(MPB
BNE

FAPTENV,SENV
2%
$S1TEMB,21%
PC,SATYS
0
0
22%
FNL
3%

MOVB
JSR
BYTE
BYTE
BR
TST
BPL
HALT
(KSWR
Bl
3EQ
MOV
TS7
BEQ
MOV
(mp

AND

N=ERROR

ITEM NUMBER

;:TEST FOR CHANGE

IN SOF T-SWR

;:SET THE ERROR FLAG
;:DON'T LET THE FLAG GO TO ZERD
;;DISPLAY TEST NUMBER AND ERROR FLAG
::INC THE ERRFCR COUNT
;:GET ADDRES’ OF ERROR INSTRUCTION
;;STRIP AND SAVE THE ERROR ITEM (CODE
;:SKIP TYPEOUT IF SET
;:SKIP TYPEQUTS
::G0 TO USER ERROR ROUTINE
:;RUNNING IN APT MODE
;:NO,SKIP APT ERROR REPORT

;:SET ITEM NUMBER AS ERROR NUMBER
;;REPORT FATAL ERROR T0Q APT

#B1709,3SwR
6%
SLPERR, (SP)
$SESCAPE
5%
SESCAPE,(SP) .

. ;APT ERROR LOOP
;;HALT ON ERROR
;:SKIP IF CONTINUE
;:HALT ON ERROR!
;s TEST FOR CHANGE IN SOFT=-SWR
;:LOOP ON ERROR SWITCH SET?
::BR IF NO
;:FUDGE RETURN FOR LOOPING
;s CHECK FOR AN ESCAPE ADDRESS
.:BR 1F NONE
;;FUDGE RETURN ADDRESS FOR ESCAPE

#SENDAD , 3840

;iACT=11 AUTQ=ACCERT?

0GIC TEST

flllNDE(
=11=-CZDRG-E

T1=-AUG=79 11:23

MACY!1

30G(1063)

ERROR HANDLER ROUTINE

710
712

001001
000000

BNE
HALT

714

000002

RTI

31-AUG-79

5
13:05

PAGE 36-2

;;BRANCH [F

s RETURN

SEQ 0058

DR11=x

LOGIC TEST
MAINDEC-11-CZDRG=E
CZDRGE .P11
31=AUG=79 11:23

MACY11 30G(1063)
31-AUG-79
ERROR HMANDLER ROUTINE

1699
1:??

.SBTTL

S
13:05

PAGE

37
SEQ 0059

ERROR MESSAGE TYPEOUT ROUTINE

“

(

.'.'!'"'"'"'0""""""'"""'"""'""."'C'."O'.""'t.'

(
(

;*THIS ROUTINE USES THE ""ITEM CONTROL BYTE' (SITEMB)
;*ERROR 1S TO BE REPORTED. iT THEN OBTAINS, FROM THE

:
(
(
(

TO DETERMINE WHICH
"ERROR TABLE'' ($ERRTB),

:*AND REPORTS THE APPROPRIATL INFORMATION CONCERNING THE ERROR.

015716
015716
015722

104401
010046

$SERRTYP:

001165

TYPE
MOV

JOCRLF
RO,=(SP)

015724
015726
015732

005000
153700
001004

001114

CLR
BISB
BNE

RO
a#SITEMB, RO
1%

015734

013746

001116

MOV

$CRRP(C,=-.SP)

015740
015742
015744
015746
015750
015752
015754
015760
015764
015766
015770
015772
015776
016002
016004
016006
016010
016014
016016
016020

1924402
0900426
005300
006300
006300
006300
062700 001252
012037 9015770
001404
104401
000000
104401 . 001165
012037 016006
001404
104401
000000
104401
001165
011000
001004
012600

016022
016026

016030
016030
016032
016034
016036
016040
016044
016046

104401
000207

013046
104402
005710
001770
104401
000771
020040
016052

001165

1%:

2%:
3%:
(%

5%:
»

6%:
7%:

016046

000

8%:

TYPOC
Bk
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BNE
MOV
TYPE
R1S

MOV
TYPOC
187
BEQ
TYPE
BR
LASCIZ
LEVEN

6%
RO
RO
RO
RO
#SERRTR,RO
(RO)+,2%
3%
0
LOCRLF
(RO)+,4%
5%
0
JOCRLF
(RO),RO
7%
(SP)+ ,R0O
JOSCRLF
PC

a(RO)+,=-(SP)
(RO)
6%
,8%
14 )
o
7

;:""CARRIAGE RETURN'' & ""LINE
: sSAVE RO

s.PICKUP THE

FEED"

ITEM INDEX

.o
1F ITEM NUMBER 1S 7ERO, JUST
;. TYPE

THE

ERROR

;. SAVE SERRPC FOR TYPEOQUT
s ERROR ADDRESS
;.60 TYPE=-=OCTAL ASCIIC(ALL DIGITS)
;:GET ouTt
;ADJUST THE INDEIX SO THAT 1T WiLL
WORK FOR THE ERROR TABLE

;.FORM TABLE POINTER
;:PICKUP "'ERROR MESSAGE'' POINTER
;.SKIP TYPEOUT IF NO POINTER
;:TYPE THE "ERROR MESSAGE'’
::"'ERROR MESSAGE'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & ""LINE FEED"
;:PICKUP "DATA HEADER'' POINTER
J:SKIP TYPEOUT IF 0
;. TYPE THE ''DATA MEADER"
;:"'DATA HEADER'' POINTER GOES HWERE
;:"'"CARRIAGE RETURN'' & ""LINE FEED"
<;PICKUP ''DATA TABLE'' POINTER
;G0 TYPE THE DATA
;:RESTORE RO

;:"'CARRIJAGE RETURN'' & ""LINE
; sRETURN

rEED"

;iSAVE @(RO)+ FOR TYPEOQUT
::G0 TYPE=-=OCTAL ASCII(ALL DIGITS)
5:1S THERE ANOTHER NUMBER?
;:BR IF NO
.TYPE TWO(2) SPACES
::L00P
::TW0(2) SPACES

MAINDEC=11-(CZDRG-E
DR11=k
LOGIC TEST
*CZDIGE.PII
31-AUG=79 11:23

LSBTTL

BINARY

TO OCTAL

(ASCII)

PAGE

SEQ 0060

AND TYPE

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

;*$TYPOS==<ENTER HERE
s*CALL:

TO SETUP SUPPRESS ZEROS AND NUMBER OF

:®

MOV

NUM,=(5P)

;0
:*

.BYTE
.BYTE

N
]

e
e

TYPOS

FOR

TYPEOUT

;:N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 0R 0

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

TO TYPE OUT WITH THE

SAME PARAMETERS AS THE

;*$TYPON===<ENTER HERE
*$TYPOS OR $TYPOC
s*CALL:

DIGITS T0 TYPE

;:NUMBER TO BE TYPED

;:;CALL

- "

.
.

MOV
TYPON

NUM,=(SP)

; NUMBER TC BE TYPED
;:;CALL FOR TYPEOUT

;*STYPOC===ENTER HERE FOR
s*CALL:
i
MOV
NUM,=(SP)
o
TYPOC

016052
016056
016064
016070
016074
016076
016104
016112
016120

000000
000001

016277
000002

000001
000006
000005

016275

Sy
S

SSEEE

I
T
e
e
e
T

200
202
206

;;ADJUST RETURN ADDRESS

$TYPCC:

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

MOVB
MOV

#5,80CNT
R3,=(SP)

;:SET THE ITERATION COUNT
::SAVE R3

MOV

RS,=-(SP)

:sSAVE
RS

$TYPON:

042703
001002
005704

2%:

177770

; sNUMBER TO BE TYPED
+.CALL FOR TYPEOUT

ADD
BR
MOVB

1%:

016276

16 BIT NUMBER

a(SP),=(SP)

000006
016276
016275
000012

105337
100016

MOV

MOvB
MOVB

MOVB

MOV

000404
006105
006105
006105
010503
006103

TYPEOUT OF

$TYPOS:

016277

wws
vV v
T
Y
T
Y
T
=
el el
N
ol o o
ol ol ol ot ol ol o lal ool el ol ol ko Rl
i atatatialalalalal

vvvws.—vvvvvwvvvvvvvvvvvvv\vvvvwvvsr\—\;vvvVVVvvvvvaVVvuvvv

-4_._‘_.-‘_a-n—a_.-‘-—...a-.-‘-.—l_.—‘-‘—..d-d_.-d—._._.—o—.—o_‘—‘_o—l_..‘—a_._.—a_d_‘.g_‘_._‘_o_‘_._‘_.N_‘

1702
1703

MACYTT 30G(1063)
31-AUG-79
13:05
ERROR MESSAGE TYPEOUT ROUTINE

T(SP) ,SOFILL
(SP)+,S0MODE+T

#6,30MODE +1

R&,=(SP)

;:PICKUP THE MODE

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

ssSET

THE

;:SET

FOR

;:SAVE

SIX(6)

DIGITS

ngve

:2!00501.R~

NEG
ADD

6 ,R4

;sSUBTRACT

;s CLEAR THE OUTPUT WORD

MOVB
MOVB
MOV

R4, $0MODE
$OFILL,RG
12(SP) RS

ROL

CLR

FOR MAX.

;ROTATE MSB

INTO ''C''

;:GET LSB OF

7%
#177770,R3
4%

::BR '
NO
;.GET RID OF JUNK
:2TESY FOR O

DECB

$OMODE

151

DIGITS

;:FORM THi. DIGIT

;. TYPE

THIS DIGIT

THIS DIGIT?

;s SUPPRESS

THIS 0?

QO TYPE

ALLOWED

::SAVE 1T FOR USE
:sGET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER

;.60 DO MSR

RS
RS
RS
RS.R3

BPL
BIC
BNE

THE NUMBER OF

ROL
ROL
ROL
MOV

ROL

;:GET

ZERO FILL SWITCH

LAST

D el el

[l
sKrooos

VWA
S

el il il il

ococoocoocococococococo

xuNN—o_a.‘
OO

A
ST ST ST ST ST .V

=lelelolololelololelololeolateTote) OCOO0O0O

Nl Nt Nt N

N N N

N N

—r
—

;EST
MAINDEC=11-CZDRG=-E
AUG=79 11:23

001403

005204
052703
052703
110337

1064401
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000

000
000
000
000000

4%:

000060
000040
016272
016272
016274

5%:
7%:

6%:
000002

MACYI1 306(1063)
31-AUG=79
13:05
BINARY TO OCTAL (ASCII) AND TYPE

000004
8s:

BEQ

INC
BIS
BIS
MOVB

TYPE
DECB
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI
.BYTE

BYTE
$CCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

R4
#'0,RE
" ,R3
R3,8%

,8%
SOCNT
2%
6%
Ré
2%
(SP)+,RS
(SP)+ R4
(SP)+ ,R3
2(SP) ,&(SP)
(SP)+,(SP)
0
0
O
0
0

PAGE 38-1

;:BR IF YES

;:DON'T SUPPRESS ANYMORE 0'S
ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
;.60 TYPE THIS DIGIT
::COUNT BY 1
;:BR IF MORE T0 DQ
::BR IF DONE
.
;s INSURE LAST JIGIT ISN'T A BLANK
;:6G0 DO THE LAST DIGIT
;;RESTORE RS
;sRESTORE R4
;sRESTORE R3
;sSET THE STACK FOR RETURNING
: ;RETURN
;;STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
;:OCTAL DIGIT COUNTER
; 'ERO FILL SWITCH
; NUMBER OF DIGITS TO TYPE

SEQ 0061

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG=E
CIDRGE.P11
31-AUG=79 11:23

1705

1{??

.SBTTL

(2)
(1)
(1)
(1)
(3)
(3)
(3)

016300
016306
016314

(1)
(1)
(1)
t};

016334
016340
016346
016350

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

016316
016320
016322
016324
016326
016330

012737
012737
010046

010146
010246
010346
010446
010546
017746

010637
012737
000000
000776

016444
000340

000024
'000026

'
162604
016450
016352

000024

——

(2)

(1)
(1)
(1)
(1)
(1)
(1)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
707

1708

K
5
MACY11 306(1063)
31-AUG=79
13:05
BINARY TO OCTAL (ASCII) AND TYPE

PAGE 39
SEQ 0062

POWER DOWN AND UP ROUTINES

;:ttttt."lttt't'tt'""""""'ttttt'tlttt"'tt"ttt'tt"tttt"
;POWER DOWN ROUTINE
$SPWRDN: MOV
#SILLUP,@#PWRVEC ;,SET FOR FAST UP
MOV
#340,3#PWRVEC+2 ;;PRIO:7
MOV
RO,=-(SP)
:sPUSH RO ON STACK

MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV
HALT
BR

R1,=(SP)
R2,=-(5P)
R3,=(SP)
R&,=(SP)
RS.=(SP)
aSWR,-(SP)

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

: HANG UP

R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
RS ON STACK
3SWR ON STACK

SP,$SAVRS
::SAVE SP
#SPWRUP ,9#PWRVEC ;;SET UP VECTOR

":t'ttt'tt't"'tt""'t't"t"tt""'ttt.tttt!ltl"'ttit'ttt'.ttt

016352
016360
016364
016370
016374
016376
016402
016404
016406
016410
016412
016414
016416
016424
016432
016434
016436
016440
016442
016444
016446
016450
O 6452
0 6460
01 6466
01 476
01
02
01
}0
01

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
016452
012716
003102
000002
000000
000776
000000
005015
051101
040440
040440
051105
052514
000
016520

016444
016450
016450
016450

000024

162536

016300
000340

000024
000026

042522
044524
052106
050040
043040
042522

052 1
0435
0511
0532
044
005 0

;POWER UP ROUTINE
$SPWRUP: MOV
#SILLUP,Q¥#PWRVEC ;;SET FOR FAST DOWN
MOV
$SAVR6,SP
3:6ET SP
CLR
$SAVRE
;sWAIT LOOP FOR THE TTY
1%:
INC
$SAVR6
;sWAIT FOR THE INC
BNE
1%
::0F
WORD
MOV
(SP)+,aSWR
;sPOP STACK INTO QSWR
MOV
(SP)+,RS
;;POP STACK INTO RS
MOV
(SP)+ R4
;:POP STACK INTO R&
MOV
(SP)+ ,R3
::POP STACK INTO R3
MOV
(SP)+,R2
;sPOP STACK INTO R2
MOV
(SP)+,R1
:sPOP STACK INTO R1
MOV
(SP)+,RO
;:POP STACK INTO RO
MOV
#SPWRDN ,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
MOV
#340,3#PWRVEC+2 ::PRIO:7
TYPE
;sREPORT THE POWER FAILURE
$PWRMG: .WORD
PWRMSG
;sPOWER FAIL MESSAGE POINTER
MOV
(PC)+,(SP)
;sRESTART AT IOTEST
$PWRAD: .WORD
IOTEST
:sRESTART ADDRESS
RTI
$ILLUP: HALT
;:THE POWER UP SEQUENCE WAS STARTED
BR
.2
;. BEFORE THE POWER DOWN WAS COMPLETE
$SAVR6: O
;sPUT THE SP HERE
PWRMSG: .ASCIZ
<15><12>/RESTARTING AFTER A POWER FAILURE/<15><12>

.EVEN

DR11-K

LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE P
31-AUG=79 11:23

306(1063)

31-AUG=79

POWER DOWN AND UP ROUTINES

.SBTTL

13:05

PAGE 40

SEQ 0063

TYPE ROUTINE

AR AR AR

AR A

;*NOTE1:
;*NOTE2:

2222222222223

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIPED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE3:
¥

;'CALL:

:*1) USING A TRAP INSTRUCTION
- ¥

:*0R
"

[]

b
-

o ~N osroccoocorrnno F

w ViYWV
YV VAL wn
~ NOOWVWVS
SN ~no

o o oocococcorOr0rOrOrO
Oo

(=lelele]

) —d
—
— —
—
e

000000
000430
010046
017600
122737
001011
132737
001405
010037
004737
000000
132737
001003

001157

i
$TYPE:

1STB
BPL
HALT
BR
MOV

hg-n-n_.gz

NN
o~ oo

16636

16640

16646

001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001165
105037
000755

1%:

000002
000001

001210

000100

001211

016570
020014
000040

112046

=
D il

105737
100002

MOV

CMPB
BNE
BI1TB
BEQ

MOv

00121

61%:
62%:
2%:

000002

60%:
3%:

000011

4%:

000200

016776

004737
123726
001350
013746

016732
001156

105366
002770
004737

000001

5%:
6%:

001154

016732

7%:

+MESADR

:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
%

:s1S THERE A TERMINAL?
;:BR IF YES
;sHALT HERE IF NO TERMINAL
s sLEAVE

TYPE

ME SADR

s 9

16520

TYPE

JSR
.WORD
BITB
BNE

MOVB
BNE

1ST
MOV
ADD
RTI
(MPB

BEQ
CMPB
BNE

RO,=-(SP)

s :SAVE RO
ssGET ADDRESS OF ASCIZ STRING
FAPTENV,SENV
s sRUNNING IN APT MODE
62%
:sNO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ;s SPOOL MESSAGE TO APT
62%
2:NO,GO CHECK FOR CONSOLE
RO,61%
;sSETUP MESSAGE ADDRESS FOR APT
SC,$ATY3
;s SPOOL MESSAGE TO APT
s sMESSAGE ADDRESS
#APTCSUP,SENVM
:sAPT CONSOLE SUPPRESSED
60%
ssYES,SKIP TYPE 0OUT
(RO)+,=(SP)
; sPUSH CHARACTER 70O BE TYPED ONTO STACK
4%
ssBR IF IT ISN'T THE TERMINATOR
(SP)+
;s
1F TERMINATOR POP IT OFF THE STACK
(SP)+,RO
;sRESTORE RO
#2,(SP)
; sADJUST RETURN PC
: sRETURN
#HT, (SP)
: sBRANCH IF <HT>
8%
#CRLF, (SP)
: :BRANCH IF NOT <CRLF>
5%
@82(SP) ,RO

1ST
TYPE
$CRLF
CLRB

SCHARCNT

MOV

SFILLC,(SP)+
2%
$NULL,=(SP)

BR
JSR
(MPB
BNE

DECB
BLT
JSR

|
|

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

oo oo
oo oocoooo

PNPNPNPN PN PNPNPNININPNPNONPNPNPN
NN
NN
NN PPN PPN NN PN~
PN~
P~~~ PN NN NN N NN N
PN
—.dd-‘-fldfl-‘-‘dfl—.fldddflddddddddddfl-‘dfldflfl-flddd—fl—‘-—‘—. — el i e i e i i i it [N
Nt N N N N N N N Nt NN N N N N N N N N N N N
A
N N
N N N St N
Nt T
P
Nt N N N N N N N N N
N

1710
17

MACY11

(SP)+

PC,STYPEC

1(SP)
6%

PC,STYPEC

::POP

<CR><LF> EQUIV

::TYPE A CR AND LF

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
::1S IT TIME FOR FILLER CHARS.?
::1F NO GO GET NEXT CHAR.
::GET # OF FILLER CHARS. NEEDED
: :AND THE NULL CHAR,
::DOES A NULL NEED TO BE TYPED?
::BR IF NO-=GO POP THE NULL OFF OF
;.60 TYPE A NULL

STACK

DR11-K

Aflflflflflflhfihfiflflfiflflflflfififlflhfl
i il il il S il D D il D el il il D il il il D il D il D
Vvvvv\tvvv\.—v‘.—vvvvvvvvvvvv

CZDRGE.

OGIC TEST

MAINDEC-i1-CZDRG-E

31-AUG-79 11:23
105337
000770

MACYT1

306(1063)

31-AUG-79

TYPE ROUTINE

016776

DECB
BR

$CHARCNT
7%

13 :05

PAGE 40-1

;:00 NOT COUNT AS A COUNT
;.L00P

sHORIZONTAL TAB PROCESSOR
000040
016732
000007

8%:

016776

162212

000002
000015

$TYPEC:
162204
000002

016776
000012

017000

000207

9%:

000002

MOVB

JSR
8118
BNE
TST
BR
TSTB
BPL

MOVB
CMPB

BNE

CLRB
BR
1%:
CMPB
BEQ
INCB
$CHAR:CNT
,WORD
$TYPEX: RTS

¥ ,(SP)
PC,STYPEC
#7,$CHARCNT
9%
(SP)+

a$TPS
$TYPEC

2(SP),a$1PB

#CR,2(SP)
1%
$CHARCNT
STYPEX
FLF,2(SP)
$TYPEX
(PC)+

: sREPLACE TAB WITH SPACE
::TYPE A SPACE
: ;BRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK
::GET NEXT CHARACTER
;sWAIT UNTIL PRINTER IS READY
::LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
: :BRANCH IF NO
::g;?;'CLEAR CHARACTER COUNT
::1S CHARACTER A LINE FEED?
: :BRANCH IF YES
:;COUNT THE CHARACTER
: ;CHARACTER COUNT STORAGE

SEQ oooa,,?.

DR11-K

LOGIC TEST

—

\—vwvvvvvvvvuvwVvvbvvvvvvvvvwvvvvvvvvvvvvvvvvvvvvvvvvvvv w

NN NN
PN PN NY PN
NN
P~ P~ P~ P~ P~
. .~
PP

—

NN NN NN PNONPNTNPNONPNONPNPNPNPNTNPNPN
NN PN NN NN
N~

CZDRGE.P11

MAINDEC-11-CZDRG-E

31-AUG-79 11:23

MACY11 306(1063)

31-AUG=79

5
13:05

READ AN OCTAL NUMBER FROM THE-TTY
.SBTTL

PAGE &1

SEQ 0065

READ AN OCTAL NUMBER FROM THE TTY

;;"'.""'l""'"'"""""""""""""I."."'l."'."0'.

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

s*CALL:

017002
017004
017012

011646
016666
010046

017020
017022
017024
017026
017030
017032
017034
017036
017040
017042
017044
017046
017050
017054
017056
017060
017062
017066

1044611
012600
005001
005002
112046
001412
006301
006102
006301
006102
006301
006102
042716
062601
000764
005726
010166
010237

017100
017102

000002
000000

017014
017016

017072
017074
017076

000004

000002

010146
010246

012602
012601
012600

2%:

177770

3%:

MOV
MOV
RDLIN
MOV
CLR
CLR
MOvB
BEQ
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR

187
MOV
MOV

MOV
MOV
MOV

RTI
$HIOCT: .WORD
LSBTTL

::READ AN OCTAL NUMBER

::LOW ORDER BITS ARE ON TOP OF THE STACK

RETURN HERE

$RDOCT: MOV
MOV
MOV

1%:

000012
017102

RDOCT

+:HIGH ORDER BITS ARE IN SHIOCT

(SP),=(SP)
4(SP),2(SP)
RO,=(SP)

::PROVIDE SPACE FOR THE
:: INPUT NUMBER
::PUSH RO ON STACK

R1,=-(SP)
R2,=-(SP)

::PUSH R1 ON STACK
::PUSH R2 ON STACK

::READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER
;:CLEAR DATA WORD

(SP)+,RO
R1
R2
(RO)+,-(SP)
3%
R1
R2
R1
R2
R1
R2
#*C7,(SP)
(SP)+,RI
2%
(SP)+
R1,12(SP)
R2,$H10CT

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

TTY INPUT ROUTINE

::PICKUP THIS CHARACTER
::1F ZERO GET OuT
sav2
Jivh

;.8

::STRIP THE ASCI1 JUNK
::ADD IN THIS DIGIT
;:LOOP
:;CLEAN TERMINATOR FROM STACK
::SAVE THE RESULT

::POP STACK INTO RZ2
::POP STACK INTO R1
::POP STACK INTO RO
::RETURN
::HIGH ORDER BITS GO HERE

"'.I"""""""""""'t"'"."'tt"""t'l"ttl'lt""'t

ENABL

LSB

'.""""t""""."'I""""""'l.t'l""l'l"'ttt"t"I!t

'SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL

;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL

017104
017112
017114
017120
017122

022737
001074
105777
100071
117746

000176
162024
162020

017126 042716 177600
017132 022726 000007
017136 001062

001140

; *WHEN OPERATING IN TTY FLAG MODE.

$CKSWR: CMP
BNE
1STB
BPL
MOVB

BIC
CMP
BNE

¥SWREG, SWR
158
@$TKS
158
a$TKB,-(SP

#°C177, (SP)
#7,(SP)+
15¢

::1S THE SOFT=-SWR SELECTED?
::BRANCH IF NO
:CHAR THERE?
“:1F NO, DON'T WAIT AROUND
::SAVE THE CHAR

S:STRIP-OFF THE ASCII
“INO, RETURN TO USER
S:1S 1T A CONTROL 6?

DR11-K LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE.P11
31-AUG=79 11:23

(1)
:};

017140
017146

123727
001456

001134

(1)
(1)
(2)
(2)
(1)
(1)
(1)
(1)
:};

017150
017154
017160
017164
017166
017172
017176
017176
017202

104401
104401
013746
104402
106401
005046
005046
105777
100375

017756
017763
000176
017774

(1)

017204

MACY11 306(1063)
31-AUG-79
TTY INPUT ROUTINE

000001

$GTSWR:

198:

161742

7%:

017210

042716

117746

161736

(1)
(1)
(1)
(1)
:};

017214
017220
017222
017226
017232

021627
001005
104401
062706
000757

000025

9% :

017751
000006

20$:

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

01723&
017240
017242
017246
017250
017256
017262
017266
017274

021627
001022
005766
001403
016677
062706
104401
123727
001003

000015

108:

g};

)

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

(1)

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

(1)
(1)
(1)

(2)

017276

017304
017306
017312
017316
017320
017324
017326

017332

017336
017340
017342
017344
017346
017352
017356
017360
017364

012777

000002
004737
021627
002420
021627
003015
042726

005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

177600

000002
000006
001165
001135

000001

000100

161640

016732
000060

161662

118:
148:

15¢:
168:

000067
000060

000002

17%:

001164

18%:
.DSABL

PAGE 41-1

SAUTOB,#1
15%

::ARE WE RUNNING IN AUTO-MODE?
:BRANCH IF YES

TYPE
TYPE
MOV
TYPOC
TYPE
(LR
CLR
1STB
BPL

,$CNTLG
.SMSWR
SWREG, = (SP)
,SMNEW
<(SP)
-(SP)
a$TKs$
7%

;;ECHO THE CONTROL=G (*G)
::TYPE CURRENT CONTENTS
::SAVE SWREG FOR TYPEOUT
1160 TYPE==OCTAL ASCII(ALL DIGITS)
::PROMPT FOR NEW SWR
::CLEAR COUNTER
::THE NEW SWR
P:CHAR THERE?
::1F NOT TRY AGAIN

MOVB

a$TKB,-(SP)

::P1CK UP CHAR

CMP
BNE
TYPE
ADD
BR

(SP),#25
108
L$CNTLU
#6,SP
19

;3158 1T A CONTROL=-U?
::BRANCH IF NOT
:.YES, ECHO CONTROL-U (*U)
: *1GNORE PREVIOUS INPUT
SSLET'S TRY IT AGAIN

CMP
BNE

(SP),#15
16%

;218 1T A <CR>?
::BRANCH IF NO
SiYES, IS IT THE FIRST CHAR?
::BRANCH IF YES
::SAVE NEW SWR
::CLEAR UP STACK
S:ECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS?
::BRANCH IF NOT

#°C177,(SP)

S:MAKE IT 7-BIT ASCII

ST
BEQ
MOV
ADD
TYPE
CMPB
BNE

4(SP)
1%
2(SP),aSWR
#6,SP
,$CRLF
$INTAG,#1
158

RTI
JSR
CMP
BLT
CMP
BGT
BIC

PC,STYPEC
(SP),#60
18%
(SP),#67
18%
#60, (SP)+

: :RETURN
::ECHO CHAR
::CHAR < 0?
::BRANCH IF YES
SiCHAR > 77
::BRANCH IF YES
::STRIP-OFF ASCII

17%
(SP)
(SP)
(SP)
2(SP)
=2(SP), (SP)
7%
L$QUES
208

::BRANCH IF YES
SiNO, SHIFT PRESENT
i
CHAR OVER TO MAKE
::
ROOM FOR NEW ONE.
::KEEP COUNT OF CHAR
::SET IN NEW CHAR
::GET THE NEXT ONE
SiTYPE 2<CR><LF>
::SIMULATE CONTROL-U

MOV

000002
177776

6
13:05

C(MPB
BEQ

BIC

000004

BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE
BR
LSB

#100,38$1KS

2(SP)

::RE-ENABLE TTY KBD INTERRUPTS

::1S THIS THE FIRST CHAR

;"'"."""""""""'l'l""!"'l'l!ll"."".'lt'tll"'ltl"

b
D

:*THIS ROUTINE

6
13:05

000004

000002

161536
177600

000004
000004
000023

161542

017426
017430
017434
0174636

017442

017446

o
‘\

—

~
w

017452
017456
017456
017464
017466
017474
017476

001013
105777
100375
117746

042716

022627

001366
000750
026627
002407
026627
003003
042766

000002

000004

161510

RDCHR

RETURN HERE

000040

00004

IS ON THE

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

MOVB

a$TKB,4(SP)

::READ THE TTY

BPL

000021

000175

::CHARACTER

;;WITH PARITY BIT

38:

48:

BIC
CMP

#4C<177>,4(SP)
4(SP),#23

MOVB

a$TKB,-(SP)

BNE
TSTB
BPL

BIC

000004

::INPUT A SINGLE CHARACTER FROM THE TTY

(SP),=(SP)
4(SP),2(SP)
@$Tk$

161504
177600

000140

SEQ 0067

SRDCHR: MOV
MOV
1$:
TSTB

2%:

000004

PAGE 41-2

'ILL INPUT A SINGLE CHARACTER FROM THE TTY

MP
BNE
BR
CMP
BLT
CMP
BGT

BIC
RTI

38
@$1Ks$
2%

#4C177,(SP)

(SP)+,#21
2%
1%
4(SP),#140
43
4(SP),M175
43

#40,4(SP)

STACK

STRIPPED OFF

::A CHARACTER

::GET RID OF JUNK IF ANY
::1S IT A CONTROL-S?

::BRANCH IF NO
S:WAIT FOR A CHARACTER
::LOOP UNTIL ITS THERE
::GET CHARACTER

SIMAKE IT 7-BIT ASCII

2315 IT A CONTROL-Q?
::1F NOT DISCARD 1T
::YES, RESUME
2315 1T UPPER CASE?
::BRANCH IF YES
2215 1T A SPECIAL CHAR?
::BRANCH IF YES

::MAKE IT UPPER CASE

1160 BACK TO USER

.'""‘".."'"""""'""""'".""..".'.".'t.l"..""'t"

:-gnxs ROUTINE WILL INPUT A STRING FROM THE TTY
s*CALL:
i
RDLIN
::INPUT A STRING FROM THE TTY
e
RETURN HERE
- ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

=2 NOWVNESN

WS NN NESE NONO
N
»
o

~ B

::TERMINATOR WILL

$SRDLIN: MOV

R3,-(SP)

::SAVE R3

1%:

MOV

#STTYIN,R3

::GET

108 :

2%:

wWwo S

e e
sO

—b —
s
b
b
b
d
b
D
e
b
e
b
b
et
d
b
d
ot

NN NNNNNNNNNNNYN
A
VW

e
ielelelelelelelalelelelelelelelelelalelele]

NPT GNP PN PPN PPN PPN PPN PN PN
PPN PN
PN PPN PN PPN NP
PPN
PP~ P~ P~ P~ P~ P~ o~~~ PN
— — ol
il
il Dl il el s
i s s D
s [N
D i i D D D il i il il i D il il el il il il i D
—
PN NP PN PN
S
—
At

MACY11 306(1063)
31-AUG-79
TTY INPUT ROUTINE
swCALL:

\lvvvvvwvuvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvyvVVvvvvvv

DR11-k
LOGIC TEST
MAINDEC=11-CZDRG-E
CZDRGE .P11
31-AUG-79 11:23

CLR

CMP
BLOS

000134
017740

177777

017742

68 :

017740
017740

MOVB
CMPB

(SP)+,(R3)
#177,(R3)

::GET CHARACTER
2315 1T A RUBOUT

(SP)

BNE

MOVB
TYPE
MOV

DEC

#'\.,9%
,9%
#-1,(5P)

::60, READ ONE

S:BR IF NO

FIRST RUBOUT?

S:TYPE A BACK

SLASH

SiBR IF NO
::SET

THE

ALL

0'S

TTY

RUBOUT KEY

BLO

;:BR IF

181

KEY

2315 THIS THE

::BACKUP BY ONE

R3I.#STTYIN

A BYTE

CHARACTER FROM THE

cmp

MOVB
TYPE
58

RUBOUT

ADDRESS

::BUFFER FULL?
::BR IF YES

BNE

017740

::CLEAR THE

#STTYIN+7,R3
4%

RDCHR

000177

-(SP)

s:STACK EMPTY?
YES

(R3),9%
,9%

SiSETUP TO TYPEQUT
1160 TYPE

(SP)

SRUBOUT KEY SET?

THE DELETED CHAR.

1:G0 READ ANOTHER CHAR.

DR1 =¥

L CGIC

CZDRGE
.P n

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

(1)
I;}%

017604
017606
017614
017620
017622
017626
017630
017634
017636
017642
017644
017646
017652
017656
017660
017664
017666
017672
017676
017702
017704
017710
017714
017716
017720
017722
017730
01773
017740
017741
017742
01775
017756
017763
017770
017774
020002

TEST
MAINDEC-11-CZDRG-E
31-AUG=79 11:23
001406
112737
104401
005016
122713
001003
104401
000726
122713
001011
105013

104401
104401
000717
104401
000712
111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000007
136
043536
C15
036440
020040

020075
020006

000134
017740

MACY11 30G(1063)
31-AUG=79
TTY INPUT ROUTINE

000012
000
051127

$TTYIN:
SCNTLU:
SCNTLG:
SMSWR:

BEQ
MOVB
TYPE
CLR
CMPB
BNE
1YPE
BR
(mPBR
BNE
CLRB
TYPE
TYPE
BR
TYPE
BR
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
187
MOV
MOV
MOV
MOV
RTI
.BYTE
.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ

020127

SMNEW:

.ASCIZ

017740

000025

7%:

017791

000022

8%:

001165
017742

001164

017740
017740
000015

3%:

177777
001166

000004
017742

000002
000004
9%:

006525
005015
051412
000040
042516
000

LEVEN

6
13:05

SEQ 0068

7%
”\,9%
,9%
(SP)
#25,(R3)
8%
LSCNTLLY
%
#22,(R3)
3%
(R3}
LSCRLF
LOTTYIN
2%
LSQUES
1%
(R3),5%
,9%
#15,(R3)+
2%
=1(R3)
LOLF
(SP)+
(SP)+ ,R3
(SP),=(SP)
4(SP),2(SP)
#STTYIN,L(SP)
0
0
7
/7*U/<15><12>
/*G/<15><12>
<15><12>/SWR =
/

NEW =

PAGE 41-3

;:BR IF NO
;s TYPE A BACK SLASH
;sCLEAR THE RUBOUT KEY
;:1S CHARACTER A CTRL U?
;:BR IF NO
sTYPE A CONTROL ‘U
::60 START OVER
;315 CHARACTER A "TMR'"TM
; sBRANCH IF NO
;sCLEAR THE CHARACTER
ssTYPE A "'CR" B "'LF"
;s TYPE THE INPUT STRING
;.60 PICKUP ANOTHER CHACTER
s:TYPE A '
;sCLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER
;s CHECK FOR RETURN
;:LOOP IF NOT RETURN
;s CLEAR RETURN (THE 15)
;sTYPE A LINE FEED
;s CLEAN RUBOUT KEY FROM THE

STACK

;sRESTORE R3
;sADJUST THE STACK AND PUT ADDRESS OF
::
FIRST ASCI1 CHARACTER ON [T

; ;RETURN
;s :STORAGE FOR ASCI1 CHAR. TO TYPE
;s TERMINATOR
;;RESERVE 7 BYTES FOR TTY INPUT
;s CONTROL UTM
;:CONTROL 6"
:

THE

DR11-k
MAINDEC-11-CZDRG-E
LOGIC TEST
CZDRGE P11
31-AUG=-79 11:23

RACY11 306(1063)
TTY INPUT ROUTINE

31-AUG=79

13:05

PAGE 42

SEQ 0069

LSBTTL

N WWNES &
8 NN
WVIN=NONOO

prd

WO
NwNw

23 AR A

‘-\AAAAAAAA’\AAAAAAAAAAAAflfififlflflfiflfififlflflfiaflfihh;\flflfl PNTNPNTNININNN
NN
—-—.-‘—a_._o...uu-‘-.——._.—n—.-d-.—.—.—‘—.d—.u_a-‘—‘—.—‘—a—‘—n-‘-‘_.—l—nd—.—‘—.—a_a—n
N N N N N N N N N N N N N N N N N N N Nt N N N S S e N N N Nt N N Nt N N N N P
N o N o N
N N it N it OB

1717

000001
000001

020252
020250

000001

020252

iATVl:

$SATYS:
SATYS:
$ATYC:

020250

001210

000100

00121

000004
000002
001170

000C0«

001204

020162
020164
020164
020170
020172
020176
020200
020204
020206
020214
020222
020226
020232
* 020236
020242
020244
020246
020250
020251
020252

105737
001416
005737
011413
005737
001375
017637

MCvB

MOv
MOv

B118
BEQ

1%:

MOV
ADD

18T
BNE
MOV

1STB

BNE

SuB
ASR

MOv
MOV

001170

020162

000004

4%:
5%:

108:

MOV
ADD
MOV

JSR
.WORD

1ST18B

BEQ

c01210

1s7

001170

11%:

001172
0000C«
12%:

SMFLG:
$SLFLG:
$FFLG:

000200
000001

(MPB
BNE

2%:

020252

000014
000002
001170
020252
020251
020250

MOVB
MOv8

BEQ

001204

000004
000002
177776
016520

AR A

COMMUNICATIONS ROUTINE

1STB

000001

001206
000004

APT

BEQ

ST
BNE
MOV
ADD

INC
CLRB
CLRB
CLRB

MOV
MOV
RTS

BYTE
.BYTE
.BYTE
LEVEN
APTSIZE=200
APTENV=001

1,8FFLG
1, SMFLG
SATY(
"1, 8FFLG

222222 22222222227

;:70 REPORT FATAL ERROR
;.70 TYPE A MESSAGE
;.70 ONLY REPORT FATAL ERROR

;sPUSH RO ON STACK
;:PUSH R1 ON STACK
;s SHOULD TYPE A MESSAGE?
5%
BR
;+1F NOT:
FAPTENV,SENV
s ;OPERATING UNDER APT?
38
BR
;:1F NOT:
#APTSPOOL
, SENVM ;s SHOULD SPOOL MESSAGES?
3%
BR
;:1F NOT:
a4 (SP)
RO
;sGET MESSAGE ADDR.
#2,4(5P)
;;BUMP RETURN ADDR.
SMSGTYPE
;sSEE 1F DONE W/ LAST XMISSION?
1%
WALT
;o1F NOT:
RO,SMSGAD
;:PUT ADDR IN MA]ILBOX
RO,=(SP)
R1,-(SP)
SMFLG

(RO)+
2%

$MSLAD RO
RO
RO,SMSGLGT

#4 ,8MISG
YPE

84 (SP) 4%
#2,4(SP)

177776 ,-(SP)
8(.$TVPE

;sFIND END OF

;:SUB START OF MESSAGE
;.GET MESSAGE LNGTH IN WORDS
;sPUT LENGTH IN MAILBOX
;oTELL APT TO TAKE MSG.

::PUT MSG ADDR IN JSR LINKAGE

- :BUMP RETURN ADDRESS

;:PUSH 177776 ON STACK

SCALL TYPE MACRO

$FFLG
12%
SENV
12%
$MSGTYPE
11%
94 (SP) ,$FATAL
#2,4(SP)
$SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+ ,R1
(SP)+ RO

::POP STACK
;:POP STACK

0
0
0

;.FATAL

MESSAGE

: :SHOULD REPORT FATAL ERROR?
PR
;:1F NOT:
; sRUNNING UNUER APT?
BR
;.1F NOT:
ssFINISHED LAST MESSAGE?
WALT
;:1F NOT:

;.GET ERROR #
;:BUMP RETURN ADDR.
;. TELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG
;:CLEAR LOG FLAG
;s CLEAR MESSAGE FLAG
INTO R!
INTO RO

; RETURN
s MESSG. FLAG
;.L0G FLAG
FLAG

DR11-k

.SBTTL

s
s i

i
il i

il e

N N N N N Nt N N N

N S

13:05

PAGE 42-1
SEQ 0070

TRAP DECODER
PP

RN PR

R NN R R RPNV E RN PO RN RO OTY

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' [NSTRUCTION
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT wiLL
;*GO TO THAT ROUTINE.
020254
020256

020262

0202¢6«
020266
020270
020274

010046
016600
005740

000002

006300
016000
000200

020310

020276
020300
020306

$TRAP:

MOV
MOV
187
MOVB
ASL
MOV
RTS

ssTHIS

1S USE

111000

it s et s et

i S N

COMMUNICATIONS ROUTINE

N TR

011646
016666
000002

N N N N N N N

000004

000002

$TRAP2:

.SBTTL

e N N S

N N N N U

e e e N N N N N S

N s

31-AUG=79

;*THIS

;*BY

RO,=(SP)
2(SP),RO
-(R0)
(RO),RO
RO
$TRPAD(R0,RO
O)
RO

10 HANDLE

MOV

THE

(SP),=(SH)

MOV
RT]

4(SP),2(SP)

;;SAVE RO
::GET TRAP ADDRESS
: :BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
;;INDEX TO TABLE
;.60 TO ROUTINE

"'GETPRI'" MACRO

.:MOVE

TRAP TABLE
TABLE

CONTAINS

THE PC DOWN

::MOVE THE PSW DOWN
:;RESTORE THE PSW

i
THE

STARTING

THE "TRAP'" INSTRUCTION.

ADDRESSES OF

THE

ROUTINES

CALLED

ROUTINE

ROUT INE

$TRPAD: .WORD

020310
020312
020314
020316
020320
020322

$STYPE

;:CALL=TYPE

TRAP+1(104401)

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

TYPE OCTAL NUMBER (wlTH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST (ALL)
TYPE DECIMAL NUMBER (WITH SIGN)

TTY

TYPEOUT

SOFT-SWR SETTING

;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS
;;CALL=GTSWR

TRAP+6(104406)

GET

020326
020330

020334

$CKSWR
SRDCHR
SROLIN
$RDOCT

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

TRAP+7(104407)
TRAP+10(104410)
TRAP+11('04411)
TRAP+12(104412)

TEST FOR CHANGE IN SOF T=-SwR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FRCOM T7Ty

" v

SGTSWR

$TYPOC
$TYPOS
$STYPON
$TYPDS

STRAP?

AU AL L

N v N S

APT

306(1063)

020324

PU 20D N

e
s

MACY11

APTSPOOL=100
APTCSUP=040

000100
000040

s N

NNNAAAAAflAAAhAflAAAAAAA’NAfiflhflfiflflflflflfiflflflfififlAAAAflAA

LOGIC 1 EST
MAINDEC=11-CZDRG-E
CZDRGE L1
3 1-AUG=79 11:23

020332

017506
017002

020336

000000
00CTM51

BUFFER:
.END

;10 WORD BUFFER FOR THE

COULTER

INTERFACE

TEST

DR11=K
LOGIC TEST
MAINDEC=11-CZDRG=E
CIDRGE.PT1
31-AUG=79 11:23

ABASE = 167770

3920

ACDWY =
ACDW2 =
ACPUOP=
ADBR
ADCS
ADCS1T
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=
ADDW13=
ADDW14=
ADDW15=
ADDW2 =

000000
000000
000000
013302
013276
013300
000000
000000
000000
000000
000000
000000
000000
000000
000000

409
4«09
409
1619
1609«
1608+
4«09
409
4«09
4«09
409
409
4«09
409
409

ADDWé =
ADDW7 =
ADDWS =
ADDW9 =
ADEVCT=

000000
000000
000000
000000
000000

4«09
4«09
4«09
4«09
409

ADDW3 = 000000
ADDW4 = 000000
ADDWS = 000000

ADEVM =
AENV
=
AENVM =
AFATAL=
AMADR1=

000000
000000
000000
000000

000000
AMADR2= 000000
AMADR3= 000000
AMADR4= 000000
AMAMS
1= 000000
AMAMS2= 000000
AMAMS
3= 000000
AMAMS4= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000600
AMTYP1= 000000
AMTYP2= 000000
AMTYP3= 000000
AMTYP4= 000000
APASS = 000000
APRIOR= 000000
APTCSU= 000040
APTENV= 000001
APTS12= 000200
APTSPO= 000100
ASWREG= 000000
ATESTN= 000000
AUNIT = 000000
AUSWR = 000000
AVECT1= 100300
AVECT2= 000000

BASEBA

001362

MACY11 30G6(1063)
31-AUG=79
13:05
PAGE 43
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0071

409

16554

1614+
16544

1617

16528

4«09
4«09
09

409
409
4«09
409

409
409
409
09
409
4«09
409
4«09
409
409
4«09
409
409
4«09
4«09
409
409
171.
1697
522
1711
409
409
409
409
3938
409

Lo78

17184
1711
1718#

1718#

:
i
:

409

523

529

658

1398

R1T4

= 000020

B17S
= 000040
B116
= 000100
B117
= 000200
B118
= 000400
BIT9
= 001000
BPTVEC= 000014
BRLEVY
001436
BRLEV?
001440
BRLEVS 001442
BUFFER
BUSTRP
BYPASS
BYPAST
CKSWR =
COULTJ)
COULTR
{PU
(R
=
CRLF
=
DDISP =
DEPCNT
DFO
DM
DH10
DH2

DM}
DH&
DIOBRL
DISPLA
DISPRE

020336
013463
011140
011226
104407
001464
011766
001370
000015
000200
177570
(14227
015224
014671
015102
014741

015007
N15055
001434
001142
000174

4698
468N
398

399
3940
3940
3944
3944
94
3948
3944
3948
3944
3944
3944
3944
3944
3948
3944
3044
3944
3944
3944

3944
3948
3944
3948
3944
3948
3944
3944
493

LoLN
L95#
1255
1447
540
1390#

1393

1696
402
01
L7008

3940
3944
3944
647

415
613
457
419
425

4928
4098

3198#

688
659

1399

954

988

1437

1696
1696

1697

870

1215

1696
591
1193

827
818

1144

Bk
835

1342+
954«

605
1256
1467
1435

1397
1697
5148
14404
1454
1711
1711
409
16724
421
1683#
463
16844
1685#
437

6880
522+
522

924

1609

828
819

1170

845

836

1242

8595
855

1349
977
956+
1267

1402#
17168

1405

SEQ 0072

1246

1283

1325

1411

1696

1180
1248

1223

1230

1648

1014
1287

1021
1292

1030
1293

459

485

16979

1310

1697

1343
957
955«
1257
17214

1010

43-T

1344
975

1275¢

16604

522

633

439

445

651
1339
1697

16868
134¢

1344

16874

4463
13360

1696

653

—

81102 = 000004
81103 = 000010
81104 = 000020
B1105 = 000040
81106 = 000100
B1107 = 000200
81708 = 000400
B1709 = 001000
BIT1
= 000002 BI1T10 = 002000
B1T11 = 004000
BI1T12 = 010000
B1113 = 020000
B1T14 = 040000
B1T15S = 100000
B112
= 000004
BI113 = 000010

MACY11 30G(1063)
13 05 PAGE
31-‘06-79
CROSS REFERENCE TABLE =- USER SYMBOLS

001366
001364
001454
001510
000001
000001
000002

79 11:23

rnNo

BASEBR
BASEIvV
BEGIN
BEGINT
8110 =
81100 =
817101 =

HAINDE(
=11-CZDRG-E

0D
00 '~

LOGIC TES

CIDRGE .P1N

(W AW L)
(¥ LW W]

DR11-k

12460
1304

1250

1691

DR11=k L?Gl( TEST MAINDEC=11-CZDRG-E MACY11 30G(1063) 31-AUG=79 l 1?:05 PAGE 43-2
CZDRGE .P1
31-AUG-79
11:23

DRADD
001376
DRIV
001400
DRT21
007200
DSWR
= 177570
DT
015162
D110
015206

D14
EPTVEC=
EMl
Em0
EM
EM2
EM3

L7750
L7608
873
3944
614
458

015176
000030
014251
01453

£32
394#
612
656

CROSS REFERENCE TABLE == USER SYMBOLS

658+
630
1118#
409
620
464

438
522+
16734
16804

673
659+
522
426
1691#
644

674
680

676
681

678
683

1394«
685

SEQ 0073

1398«
1365«

1689
139G«

1473«

1483«

1690

1691

16894
652

1690#

014614
014302
014332

462
418
624

EMS
EMS

014415
014450

636
L52

16774
1678#

ERRVEC=
EXTCNT
EXTTMP
EXTIST

000004
011730
011706
011604

394#
16411«
1614
400

522+
1620
1415
164094

528+
14254
1418+

54Ge

550«

1696+

1419

162640

1453«

1457«
1719

1066+
1418

940+

562
807+
695

624

932

558
679
675

621

930+

557
678+
674

1076+
16419«
677
746¢
796
931+
1074«
1292+«
692+
1365+«

1086+
1459

817+
964

875¢
974

878
990+

886+
999

890
1004+

899«
1012«

903
1025

911
1030

915
1041e

1112

1127

1225

1253«

1268«

1290+«

1320

1614

EMG

Em?7

0146363

430

014475

450

GNS
= weeeee |
GRBHIO
001416
GRDAI
001412

GRDIO

398
4854
4834

10649+
1415«
484n
734
794
9140
1049+«
1267+
«88#
1348«

001414

GRIVA

001424

GRIVB

001430

GRIVSA

001426

GRIVSB

001432

GRSTAT

16764

16794

676+
765+
795+
929+
1065+«
1289+

1;9?‘

680+
1361+«
1%33'

“89#

681+

561

701
759+
816+
972
1f

708+
760
874
989+
1110

710
771+
877+
997+
1126+

716+
774+
885+
998+
1224+

717

724+

725

733

775
889+
1011+«
1252+«

82+
898+
1022+
1255«

785
902+
1023«
1256+

786
910+
1040+
1257

1140+
1384+
1124+

5
14440
1142«

1165+

1175+

1189«

1219«

1238

1316+

1330«

684

1122+
1375+«
692+

1167+

1191

1201

1221

1238

1314

1330«

682+

692+

1123

1141

1166+

1190«

1220+

1258+

1316

1317«

1330

1125+

1143

1168+

1192+

1222+

1238+

1315

1330«

1361

1445+
686+

001410

4820

673

694

GTSWR = 104406

1170«
1291«
17194

1179
1295«

1188+
1297

H322)

403

INADR

= 000011

INADRH
INDADR
INTBIT
JOTEST
JOTST1
JOTTS1
10TVEC=

001476

012346

013345
013410
001422
003102
003156
003314
000020

853+

394

1493

1520
1523
874
556
6704
672
3940

855+

1090
1461

700+
758+
808
963+
1087«

1386+
685+

942

696+
747
806+
941
1085+«

1361+
1;31!

16814
1674#
16754

1293+«

819«

1294+

820

857

1097«

1100

1499

573«
576

826+

1412

828+

7218«
1318«

1109«

1223«
1325+«

1113

1517#

1568

1571

1574

582
606

1250
6578

;
1287
1706

1193«
1313

1230+
1332«

1711

S17#

1496

16574
1658#
566
569
6884
522+

1413«

829

1120
1237«
1347«

1616

836+

1132+«
1254«
1353«

1617«

837

113G

1258+
1364+

843y

1166

1261
13700

8450

1164
1270«
1443y

846

1169

1271
16480

DR11-k
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE.P1
31-AUG-79 11:23

JUMPER
LF
=
LOCA
LOCBOX
LOCHDR
LoC1
LOC1Y
LOC2
LOC2Y
LOC3
LOC3Y
LOUPT1

MINSIN
MSGRUS
MSPNT1

001452
000012
012300
012226
013304
001402
012532
001404

012534
001406
012536
012460

4994
394
1495
604
1492
G797
1494
4808

1497
4814
1500
1505

001446
013544
013553
001374
001372
001420

L97#
1471+«
1472
4730
4720
486N

PIRQ
= 177772
PIRQVE= 000240
PRO
= 0000N0
PR1
= 000040
PR2
= 000100
PR3
= 000140
PR6¢
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSW
= 177776

3944
3944
3944
3944
3940
3944
3944
3944
3944
394n
3944
3940
1321«
1706
3940
513
551#

NBEXT
NMBEXT
NOTLCH
ODDJMP

PURMSG
PWRVEC=
RBEG
RBEG1

RBEG2Z
RDCHR =
RDLIN =
RDOCT =
RESVEC=
RUNMSG
SETADD
SETTRP
STACK =

STKLMT=
SWDPOB
SWINTB
SWNLB
SwPOSB
SWR

001444

016452
000024
001514
002132

003126
104410
104411
104412
000010
013524
003166
011712
001100

177774
014142
013652
013554 °
013750
001140

SWREG
000176
SWTIRAB 014044
sw0
= 000001

(964
958

631
1714
1524
643
3944
1446

671
14280
3944
3944
604
581
578
584
4094
1310

398#
587
3940

512+
1711
1498
14904
16564
1494
1503
1497
1507
1500
1511
1509

567
1485+
16634
660+
548+
565+

689+
994

144G¢
1121«
1331«
17074
522«
516

6614
17194
1713
17194
16614
6734
1441
522

16714
16684
639
16694
522+
1392

522
16704

J
6
MACY11 306(1063)
31-AUG=79
13:05
PAGE 43-3
CROSS REFERENCE TABLE == USER SYMBOLS

514r

517+

563

1501

1503#

1515

1506
15604
1510
1561#
1514
1562
1513

1569
1569
1572
1572
1575
1575
15430

1586
1584
1593
1591
1600
1598

574r
1486

585
1662#

592

1390
559
572+
690+
1016

1396+«
660
579
691+
1038

1145+
1349+«
1430+
519

SEQ 0074

570

1350

1367

1587

1588

1589

1590

1594

1595

1596

1597

1601

1602

1603

1604

690

938

1400+
4 1400
651
879
1062

927
888
1091

955
891

960
901

992
904

1014
913

1020
916

1037
922

1063
925

1155+«
1352«

1161«
1362+

1171«
1366+

1177+«
1369+

1186+«
1376+

1194+
1382«

1203+
1387+«

1209+

1226+

1236+

1431+
521#

1706+

1262

1279

]

1403
17194

1410
1491
1409

1442
1566
1440

1490

1565

16674
538

1696

640

541

1697

1714

619

1706«

626

1714

640

b4b

649

870

1215

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE .P11
31-AUG=-79 11:23

sSw00
SW0l
Sw02
sSw03
SWw04
SWw05
sSw06
sSw07
sSw08
Sw09

SW1l

SW10
SW1l
swi2
Sw13
SWi4&
SW15
SWZ2
sW3

SWw4

SW5
sSw6é
sSw?
Sw8
SW9

= 000001
= 000002
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000

= 000002

=
=
=
=
=
=
=
=

002000
004000
010000
020000
040000
100000
000004
000010

=
=
=
=
=

000040
000100
000200
000400
001000

= 000020

TALK
TBITVE=
TKVEC =
TPVEC =
TRANST
TRAPVE=
TRTVEC=
TSTNUM
TST1
TST1I0
TST11

TST12

TST13
TST14
TST15
TST16
TST17
1812
1ST20
TST21
157122
15123
187264
TST25
15726
15127

TST13

TST30
TST31
157132
15733

003016
000014
000060
000064
001450
000034
000014
015242
003372
003734
004020

004116

004214
004302
004370
004440
004502
003410
004540
004602
(04644
004742
005026
005112
005176
005356

003446

005536
005654
006014
006410

3940
3944
3944
3940
3940
3940
3944
3944
3940
3940

3944
3940
3944
3944
3944

1392
538

619

541

626

580

583

4984

568+
522¢

1428+

1429+

1689

1690

1691

394K
3944
3944
3944
3944
3944
394%
3944
394¥
3944

577
3944
3944
3944

3944
3944

6934
7540
7694
777
788
803#
8154
822
831
6984
839
848
858
881
893

703
9864

10084
10344
1056

7804
791#

8254
8344
8424
8524
8694
884¥
8974
9094
9214
9514
7064

10594

MACY11 306(1063)
31-AUG-79
13:05
PAGE &3-4
CROSS REFERENCE TABLE =~ USER SYMBOLS

575+

586

603

6364

588

594

691

1693#

1697+

SEQ 0075

SATYC
$SATY1
SATYS
$SATY4L
$SAUTOB
$BASE
$BDADR
$BDDAT

020032
020006
020014
020024
001134
001244
001122
001126

SASTAT=

weenee

975+«

$CPwl
S$CHARC
$CKSWR
SCMTAG
$CM3 =
SCNTLG
SCNTLYU

001250
016776
017104
001100
000000
017756
017751

SCRLF

001165

$CPUOP

001216

1101
409#
17114+
1714
409#
4094
17144
1714#
409
«O9%

17194
692
609#

1587
1604
16594
15654
1573

SEQ 0076

1361

1386

1589

1590

1593

15844

1605

1700

638

642
1703

1706

1594

1595

1596

1597

1600

1601

1602

725+

726

734+

735
809
890+
964+
1080

747+

7.8
821
892
966

760

646

14646

~N s

—_——

NV
— O
O~y
—

1330

1718#
1718#
1714
523
701«
762

837+
905

977

1113

702
775+
838
915+
999+
1179+

710
776
8461
916+
1000
1180

1700

171

013426
012540
012612
001000

PAGE 43-5

1719
522

1697

796+
878+

XLOHDR
XLOTAD
XL010
$APTHD

1522

624
1697

—_—

003076
002572
013066

557

1492

ROV 0O~N~N
NN
NV OO —
— OO~~~
00

UNEXPT
VECTRP
XLOADJ

1719#

—

TYPOC = 104402
TYPON = 1046404
TYPOS = 104403

6
13:05

7304
- o O~
S w0

= 104401

1206

126414
12784
13074
13344
7224

~Nwvon

TYPE

010062

—_—

010252
010404
010566
003542
010646
010764
011130
003600
003656
104405

1ST44

TST45
157146
18147
TSTY
T1ST50
TST51
18152
1516
1817
TYPDS =

003504

31-AUG-=79

— 0o
O~
O~
R

007312
007424
007562
007674

15714

1084#
10954
11074
1118#
7140
1138#
1158
1183

15140
1S141
15142
1S143

1081
1092
1102
1114
711
1133
1149
1181
1198
1217
1243
1280
1312
716
13464
13634
13894
727
7610
1405
540
1486
623
17194
560
6540
549
1586
1603
1567
405
1570
4£08#
1718
17184
1718#
1711
1697
09
409#
409#
409#
761+
830
904+

007004
007062
007132
007200

306(1063)

CROSS REFERENCE TABLE == USER SYMBOLS

—

187
1S135
187
1S137

MACY11

DR11-K
LOGIC TEST
MAINDEC =11-CZDRG-E
CZDRGE .P11
31-AUG-79 11:23

1714

1051

1284+

879+

942+
1055
1689

808+
880
943

1076+
1691

820+

891+

965+

1090+

1091+

829+
903+
974
1100+

———

<—————————

DR11-K
LOGIC TEST
MAINDEC-11-CZDRG-E
CZDRGE.P11
31-AUG-79 11:23

$OBLK
$DEVCT
SDEVM
S$DOAGN
$DTBL
SENDAD
SENDCT
SENDMG
SENULL
SENV_
SENVM
SEOP
SEOPCT
SERFLG
SERMAX
SERROR
SERRPC
SERRTE
SERRTY
S$ERTTL
SESCAP
SETABL
SETEND

SFATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GODAT

$GET42
SGTSWR
$HD
=
SHIBTS
SHIOCT
SICNT
SILLUP
S$INTAG
SITEMB
SLF
SLFLG
SLPADR

SLPERR

SMADR1
SMADR2
S$MADR3
SMADRG
SMAIL

011574
001200
001246
011334
011564
011324
011272
011343
011340
001210
001211
011236
011264
001103
001115
015524
001116
001252
015716
001112
001162
001210
001252

001172
020252
001156
001155
001120
001124

011314
017154
000000
01000
017102
001104
016444
001135
001114
001166
020251
001106

001110
001222
001226
001232
001236
001170

14064
409#
409#
14054
14064
406
522
14054
14054
4094
“9
1401
522+
W09
409
522
409
409¢
1697
409
G0
4094
408

4094
17184+
409
4094
409#
409

733
776
812«
888+
927
973
1022

1096+
14054
17140
390
4084
17130+
4098
17064
409
409
409%
17184+
409

LN
MACY11 30G(1063)
31-AUG=79
13:05
PAGE 43-6
CROSS REFERENCE TABLE =-- USER SYMBOLS

14054
14054

1697

1697
522
14054
14054
1696+
522+
16974
1689
1700
17004
1697+
522«

1711
1711

1718
1718

1697+
1696
1690

1691

1696+

1697

592

594

1697+«

1700

600+

699+

409#
1718+

1711
1711

591+

735
781«
818«
889
929
976+
1026

1101

738+
782
821
892
931
988+
1036+

1108+

743«
787
827+
900+
933
992
1037+

715+«

718

723

1285+

912+
948+
1004
1061+
1689

800+
847
913+
957+
1005+
1062+«

1691

805+
854+
914
958
1016
1063+

806
876+
917
960
1019+
1064

963
1020+
1080

925
966
1021+
1088+

B04s

952+

987+«

100G+

1245+

1282+

1696+

702

1248+

748
794
835+
902
941
997
1039

752+
795
838
905
943
1000
1055

1269+

eze

7SS+

7920

1696

1697

1711

1178+

746
793«
B30
901+
938
9%
1038+

707+«
756
797

844

759

762

766+

726
770+

807
880
924+

732+
771
809

887+

1719

1696+
1714
1697+
1697

522+
522e

1700
1711
|
1696¢
73Net

409#

522

1714

4094
409¥

4094
4098
408

SEQ 0077

DR11=K LOGIC TEST MAINDEC-11-CZDRG-E
CIDRGE.P1N
31-AUG=79 11:23
$SMAMS1
SMAMS2
SMAMS3
SMANSSL
SMBADR
SMFLG
SMNEW
SMSGAD

001220
001224
001230
001234
001002
020250
017774
001204

409#
409#
409#
409#
408
17184«
17140
409

001221
001225
001231

409#
409#
409#

SMSGLG
$MSGTY
SMSWR

001206
001170
017753

SMTYP4L

001235

SMTYP1
SMTYP2
SMTYP3

SMXCNT
SNULL

015522
001154

$SNWTST= 000001

409%
409%
642

6934
8254
1059#

$SPASS
$SPASTM
SPWRAD

001176
001006
016440

SPWRMG
$PWRUP
$SQUES
SRDCHR
SRDDEC=
SROLIN
$SRDOCT
$RDSZ =
SRTNAD
SR2A =
$SAVRE=
$SAVR6
$SCOPE

016434
016352
001164
017366
svewes |
017506
017002
000007
011336
seeesr |
sereee |
016450
015244

17064
17064
4094
17144
1719
17144
17134
17144
164054
1719
1719
17064+
522

016274

$OCNT

016276
015506

$SPWRDN

016300

$SETUP= 000137

$STUP = 177777
$SVLAD 015452
$SVPC = 000240

$SWR

= 165400

$SWREG 001212
$SWRMK= 000000
$STESTN 001174

SEQ 0078

1718«
1718+
1718+
17140

409

16964
9%

13464
17034«
17034+
16964
409
408
1706#

SOMODE
SOVER

MACY11 306(1063) 31-AUG-79 13:05 PAGE 43-7
CROSS REFERENCE TABLE == USER SYMBOLS

522

W47
16964
iy

3834

1711

6984
8344
10844

7064
8424
1095#

7140
852#
1107#

522«

1405+

1696

16430

17064

1697
1719

1711

1714

522

1405

390

396

13634

13894

7224
869#
1118#

730#
8844
11384

1696

1697

1714

409

522

693

76414
8974
11634

7544
909#
11874

7694
9214
12124

7804
9514
126414

706

714

722

791
9864
1278#

1719
1719

16964

698

730

769
921
1212

780
951
1241

791
986
1278

803
1008
1307

815
1034
1334

825
1059
1346

834
1084
1363

842
1095
1389

852
1107
1405

869
1118
1696

522+

706+

730+

791«

803+

852+

921+

1084+

1118+«

1334+

$TIMES

001160

1289!

$T1kB
$1kS

001146
001144

409
4098

8154
10344
13342

884
1138
1697

“09#
396
409

803
10084
13078

522
1696
1696+
1714
1714

761

754

897
1163
1706

909
1187

1389+

1405+

= 000053

—

001152
001157
»1PS
001150
STRAP
020254
$TRAP2
020276
= 000013
$TRP
$TRPAD
020310
$TSTM
001004
STSTNM 001102
$TTYIN
017742

$1PB
$TPFLG

.SASTA= reREEY
= 001000
X

£000

1696+

[4
13:05

PAGE 43-8

TABLE == USER SYMBOLS

703
788
8694
1034#

7064
7914
881
1056

1280

1307#

1149

711

1158

1697

1719

1697
4064
1700%

407#
1706

4£08#
1708#

526

—

524

oo~
LR

OO0

b
e
aulb

b
il

b
i

016520
016732
017000
$TYPOC
016076
$TYPON
016112
$TYPOS
016052
SUNIT
001202
SUNITM
001010
SUSWR
001214
SVECTI
001240
SVECT?
001242
$XTSTR
015256
$$GET4L= 000000
SOFILL
016275
Y
$40CAT= TR
020340
STYPE
$TYPEC
STYPEX

STYPBN= TRREEY
$TYPDS
011360

1405+

31-AUG-79

TNV

$IN

MACY11 3 06
CROSS RE FE

N =0~

DR11-K LOGIC TEST MA %NDEC-\\-CZDRG'E
CIDRGE.P11
31-AUG-7 11:23

5584

6214

1405

14064

1688#

1696

L OGIC TEST

SWRSU

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$SCMRE
SSCMTM
$SESCA
SONEWT
$$SET
$SSETM
$$5k1P

886
885

899
898

911
910

1012
998

1041
LR

1066
1023

1086
1040

1253
1049

1290
1065

1074

1085

1252

1289

692

1238

1330

1361

1386

596
840
1093

654
849
1103

N =0~
OO~
— N
WO O~

750
935
1174

764
945
1182

778
968
1185

789

799
1002
1208

3944
17194
3944
3944
3944
3944
3940
3944
3944
409#
409#

3944
3944
834

1107
17194
5224
394#

5220

815
1084
1405

698
852
1138
1700

562

621

624

706

714

722

834

714

884

1187
1706

825

1095

825

1095

1158
1328

780
1008
1346

791
1034
1363

R
d
- 5 00
OO
—

1107
1696

769
986
1334

-—

1095
1406

754
951
1307

wib

409

1212

741
921
1278

-bd

408

1059
1389

406
815
1084
1405

897

O oo
~N O W
rnny
—

1217

815
1084

—

1206

1307

769
986
1334

O oo
o conrv
no—ro

1181
1359

719

754
951

—

522

1138

722

921
1278

—

1118

698

N0~
— O N
ro~rno

693
842

1138
1706
1706

— —s 0D QD —

1406
1406

698

OO~

693
842
1118

711
923
1198

3944
3944
3944
803

1197

3944

703
918
1183
1384

906

1136
1341

1299

O 0o
W

1273

720

894

—

1416

H N~

875
874

1603

—_——

1602

O oo

1601

1600

N—00~
N NOD —
coHronN

1597

nNO~N
w00
— O~ 00

394#

1596

—

17194
3940

1595

893

~Nrooo~N
— e D N
—_ro~NN

STARS

394#

1594

—

SLASH
SPACE

834
1107

1593

O~
WO W
wN—0O

SETPRI
SETTRA
SETUP
SK1P

394#
394#
3944
3944

1590

SCOPE

1107

1589

POP
PUSH
REPORT

3944
3944
834

1588

NN—=00~N

NEWTST

1082
1263
3944
3944
3874

SEQ 0080

1587

—_—

ESCAPE
GETPRI]
GETSWR
MULT

3940
3940
832

1586

—

CLRVCY

COMMEN
ENDCOM
ERROR

1578#
1604
8664
8624
1612
501»
394#

O~
~N N
oo~

CLERIN
CLEROT

31-AUG=-79 11:23

MACY11 306(1063)
31-AUG=79
13:05
PAGE 44
CROSS REFERENCE TABLE =- MACRO NAMES

—_—

ADJXL

MAINDEC-11-CZDRG-E

— 00~
0o 00 —

CZDRGE P1 1

o=
O — &0
~NooroWwW

DR11-K

730
909
1261
1713

754

769
986
1334

780
i008
1346

791
1034
1363

1059
1389

803

815
1084

1095

839

848

858

881

893

906

754
1307
17128

1405

1700

1714

693
842
1118

698
1138

1163

703

(AR

719

557

869

741

1187

897

1212

730
909
1241

921
1278

951
1307

727

788

822

831

884

825

DR11-k

LOGIC TEST
lAlNDE( 11-CZDRG=E
CZDRGE .P11
31-AUG-79 11:23

SACTY
.SAPTB
.SAPTH
SAPTY
.SCATC

918
1243
3854
385#
3864
87n
3964
3884
3884
388#
788#
385#

.SEOP
.SERRO
.SERRT
.SPARM
.SPOWE
.SRDOC
.SREAD
.$SAVE
.$SCOP
.SSPAC
.$SwD0
.STRAP
.$TYPD
.STYPE
.$TYPO

3854
3854
3878
3864
3864
878
3868
1864
3864
3864
3864
386#
387¢
385#
354

1719
1406
86
1703

020340

000

LEQUAT
.HEADE
LSETUP
.SWRH1
.SWRLO

SCATA

ABS.

3854

ERRORS DETECTED:

923
1280
394
390
447
396

1056
1312

30G(1063)

3:-AUG=79

13:05

CROSS REFERENCE TABLE == MACRO NAMES
1092

1102

114

1133

PAGE 44~=1

1149

1158

SEQ 0081
1181

1183

1198
a

;

406
409#
408
1718
398

409

1405
1697
1700

1706
1713
1714

1696

1711

(ON

REL

GBL

CZDRGE ,CZDR
/CRf =CZDRGE
GE
RUN-TIME: 26 13 1 SECONDS

RUN-TIME RATIO:
CORE USED:
25k

1081

MACY11

76/42=1.7
(49 PAGES)

1206

1217