Digital PDFs

AH-8773D-MC----

July 1978

100 pages

Original

51MB

view download

OCR Version

75MB

view download

Document:	CZDXHD0 DX11B ON LINE EXERCISER DEC 1978 bw
Order Number:	AH-8773D-MC
Revision:	---
Pages:	100
Original Filename:	CZDXHD0__DX11B__ON_LINE_EXERCISER__AH-8773D-MC__DEC_1978_gray.pdf

OCR Text

ON LINE EXCERCISER

CZDXHDO

AH-8773D-MC

DEC197787

FICHE1 OF1

MADE
IN USA

copvricHT 7273

EORHRAD

8 1
IDENTIFICATION

PRODUCT CODE::

AC-8772D-MC

PRODUCT NAME:

CZDXHDO DX11B ONLINE EXER

PRODUCT DATE:

JULY ,1978

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A

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

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR

THE USE OR RELIABILITY OF
NOT SUPPLIED BY DIGITAL.

ITS SOFTWARE ON EQUIPMENT THAT IS

SEQ 0001

SEQ 0002
ABSTRACT

THE FUNCTION OF THE DX11B DIAGNOSTICS IS TO VERIFY
THAT THE DX118 IMPLEMENTS THE FUNCTIONAL FLOW DIAGRAMS

ILLUSTRATED IN THE DX118 PRINT SET.

THE DX11

DIAGNOSTIC PACKAGE CONSISTS OF FOUR TAPES
1.

DZDXA-[REV] MAINTENANCE CLOCK #1

CZDXH-CREV] DX118 ONLINE EXER

2.
3.

DXDXF-CREV] MAINTENANCE CLOCK #2
DZDXG-LREV] DX OFFLINE DIAGNOSTIC EXERCISER

THE DIAGNOSTICS WERE DIVIDED INTO FOUR TAPES BECAUSE
OF THE 8K WORD MEMORY LIMIT REQUIRED TO SUPPORT MINIMUM
SYSTEMS AND FOR FUNCTIONAL SAFEGUARDS. IT WAS FELT
THAT SAFEGUARDS SHOULD BE TAKEN TO INSURE THAT NO ONE
INADVERTENTLY RAN THE ONLINE-MAINTENANCE-CABLE EXERCISER
WHILE CONNECTED ONLINE TO IBM.
IT WAS ALSO FELT
THAT THE FUNCTIONAL SEPARATION OF TESTS WOULD FACILITATE
ADAPTION TO ACT11 AND DDP TESTING.
THERE ARE ALSO TWO
g;'fig MAINDEC'S SUPPORTED BY DIAGNOSTICS THAT RUN THE

1.
2.
3.

COMMUNICATION TEST PROGRAM (CTP)
GENERAL TEST PROGRAM (GTP) WITH DX OVERLAY
DEC/X11 WITH DX SOF TWARE MODULE

THESE TESTS OPERATE IN THE MAINTENANCE MODE
AND WERE DESIGNED TO DETECT UNIBUS DEVICE INTERACTION
PROBLEMS.
ADDITIONALLY CTP HAS A 'RESPONDER'‘ MODE
SO THAT INTERACTION PROBLEMS MAY BE DETECTED WHILE RUNNING
ONL INE.
REQUIREMENTS

EQUIPMENT

PDP11_(MINIMUM 8K WORDS MEMORY)
ASR-33 (OR EQUIVALENT)
DX118

2.2

STORAGE

ALL PROGRAMS
LOAD IN 8K OF MEMORY

OTHER

A WORKING KNOWLEDGE OF ODT VERSION VOO6A.ODT IS NECESSARY
LOADING PROCEDURE
ME THOD

ABSOLUTE LOADER START ADDRESS *500
MEMORY
SIZE

8K
12K
16K
20K

37
57
77
117

157

137

24K

.13

EOAD ADDRESS OF ABS LOADER INTO SWITCHES

3.1.2

DEPRESS "LOAD ADDRESS'® KEY ON CONSOLE

3.1.3

DEPRESS ''START'' KEY ON CONSOLE
STARTING PROCEDURE
(323332332333 33323323332233333332333223
3220322ddd
)

ONL INE DIAGNOSTIC REQUIRES THAT IT BE MAINTENANCE
CABLED ~SEE MANUAL FOR DETAILS
AARARAARARARAA AR AR

A AR

AR A AR AR

A AR ARk

AAAARARAAAARAA
AN AR AR R
A AR AR A AR ARk

NEVER NEVER NEVER RUN THE ONLINE- MAINTENANCE CABLED
EXERCISER WHILE CONNECTED TO IBM
AARAAAARARAAAAARAAA
AR
AR AR AR AR Ao

A.
B.
C.

SET SWITCH REGISTER TO 000200
DEPRESS 'LOAD ADDRESS'' KEY
DEPRESS START

THE PROGRAM WILL JUMP TO THE DIAGNOSTIC MONITOR AND
TYPE OUT THE OPERATING INSTRUCTIONS.
THIS IS ONCE ONLY

CODE.

TO RETYPE THE OPERATING INSTRUCTION THE OPERATOR

MAY EITHER RELOAD THE PROGRAM OR LOAD THE ADDRESS
"MONITOR'' IN THE SWITCH REGISTER AND DEPRESS START.

~NOZSITRG

CONTROL SWITCH SETTINGS

PEPPPP P

4.1

HALT ON ERROR

SCOPE ON TEST OR ERROR
INHIBIT PRINTING

TYPE SHORT ERROR REPORT

INKIBIT INTERATIONS

CONTROL MAINTENANCE CLOCK (MAINT. CLK. TEST ONLY)

OPT TRAP ON ERROR
MULTIPLEXER CHANNEL
SET BUSY ENABLE

SEQ 0003

0 1
ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED
USING THE ABSOLUTE LOADER.

SEQ 0004
6.2

STARTING ADDRESSES

ADDRESSES

COMMENT

000200

NORMAL START
WITH 200 LEFT IN THE SWITCHES THE PROGRAMS
TYPE OUT FULL INSTRUCTIONS ONCE AND

ABBREVIATED INSTRUCTIONS THEREAFTER.

WITH THE SWITCHES ZERO THE PROGRAMS SET

UP EITHER THE DEFAULT ON PREVIOUSLY
SELECTED PARAMETERS AND IMMEDIATELY ASKS
FOR THE DYNAMIC SWITCH SETTINGS

MONITOR

RELOAD TAPE FOR RETYPING OF INSTRUCTIONS

000042

IF THIS LOCATION IS NONZERO THE PROGRAM ASSUMES

IT IS RUNNING UNDER ACT11 OR DDP AND USES THE

DEFAULT PARAMETERS

0.0DT

ENTRANCE TO ODT-11X VERSION VOO6A.0DT
MAY START THE PROGRAM BY TYPE 200.G
<CR>. (MAINTENANCE CLOCK TESTS ONLY)

NOTICE:
5.

HE WHO USES ODT IN A MEANS OTHER THAN EXPLICITLY
DIRECTED BY THIS DOCUMENT DOES SO AT HIS OWN RISK.

OPERATING PROCEDURE

STARTING FROM 200 WITH SR<07> UP CAUSES THE FOLLOWING GENERAL
:
TYPEOUT

AC=XXXXCREVI-MC (TEST DESCRIPTION)
TYPE:

<D>,FOR DEFAULT PARAMETERS
<P>,FOR PREVIOUS PARAMETERS
<S$>,FOR SELECT PARAMETERS

<N>,FOR START WITH THIS TEST NUMBER

(5. CONT'D)
. P, S. W2

IN RESPONSE TO THIS LAST QUESTION THE OPERATOR IS REQUIRED
TO TYPE ONE OF THE LETTERS IN THE STRING.
AT AUTO START
TIME THE PROGRAM FIRST SETS UP ALL THE DEFAULT PARAMETERS

"DEFAULT PARAMETERS'' MEANS THE SET OF OPERATING VARIABLES

SELECTED AT THE FACTORY.

FOR EXAMPLE, THE DEFAULT ADDRESS

SEQ 0005

IS 176200, THE DEFAULT VECTOR ADDRESS IS 300. THEREFORE, AT
AUTO START TYPING "P'* FOR PREVIOUSLY SELECTED PARAMETERS IS
EQUIVALENT TO TYPING 'D'' FOR DEFAULT PARAMETERS.
IF ANY CHARACTER OTHER THAN ONE IN THE STRING IS TYPE THE

MONITOR WILL REJECT THE CHARACTER AND RETYPE THE STRING.

IF, IN RESPONSE TO THE STRING, THE OPERATOR TYPES AN ''S'' THE

?&EgT'{aCEEMNCE IS ENTERED AND THE FOLLOWING DIALOGUE

NOTE: THESE ARE THE DEFAULT PARAMETERS.
TYPING <D> IS
EQUIVALENT TO TYPING THE DEFAULT PARAMETERS.
TEST NUMBER:

BASE ADDRESS:
176200
VECTOR ADDRESS:
300
DX PRIORITY LEVEL:
&
TYPE CU ADRS'S IN HEX <CR><LF>; <CR><CR> TERMINATES LIST
ADRS:
10
(THIS IS IN HEX)
DEVICES PER CU:
20
(THIS IS IN OCTAL)
LIST ALL LEGAL COMMANDS
COMMAND
:
SET SWITCHES

AT ANY TIME DURING THE ‘'‘SE'LECTION SEQUENCE A CONTROL C
MAY BE TYPED AND THE MONITOR WILL ASK AGAIN ‘D,P,S,N?"".
"'TEST NUMBER:"'

HERE THE MONITOR IS ASKING FOR THE NUMBER OF

IN THE CHAINING SEQUENCE.

THE FIRST TEST
THE DEFAULT ANSWER IS '‘1'' ONE,

THE FIRST TEST IN THE CHAIN.
IT MAY BE THAT THE OPERATOR IS
ONLY INTERESTED IN THE LAST FEW TESTS AND THEREFORE WOULD
TYPE 22 OR WHATEVER.
AT THIS WRITING THERE IS NO CHECK TO
SEE IF THE OPERATOR SELECTED A NONEXISTANT TEST NUMBER (E.G.
f{g;ffié MEG).
SEE TABLE OF CONTENTS IN BEGINNING OF
=TYPING <CR> WILL DEFAULT THIS PARAMETER
(5.

CONT'D)

"BASE ADDRESS:

176200

THIS IS THE BASE ADDRESS FOR THE DX11 AND IS ALSO THE ADDRESS OF
=TYPING <CR> WILL DEFAULT THIS PARAMETER

"VECTOR ADDRESS:

300°*

THE DX11 IS CUT TO INTERRUPT TO ADDRESS 300 AT THE FACTORY.
ON SITE THE DX FOLLOWS, DC'S KL'S DP'S, DM'S DN'S, DMBB'S,
DR11'S, DR11A, DR11B, TYPESETTING AND BUS SWITCHES.

THE DXDS.

=TYPING <CR> WILL DEFAULT THIS PARAMETER

"TYPE CU ADRS'S IN HEX <CR>LF>;<CR><CR> TERMINATES LIST

10 <CR><LF>
ADRS:
<CR><CR>
20
ADRS:
THIS REQUEST IS FOR THE CONTROL UNIT'S HEXIDECIMAL ADDRESS
OR ADDRESSES. CAUTION:::::::zsss22ssssz2z22232z22¢8
DO NOT EXCEED 16 ENTRIES OF CU ADDRESSES ..THE PROGRAM
MAY SELF DESTRUCT....IF THE SYSTEM REQUIRES THAT THERE BE
MORE THAN 16 CU ADDRESSES THEN THE DIAGNOSTICS HJST BE
RUN AGAIN FOR THOSE EXCEEDING 16
CAUTION

IN MAINTENANCE CLOCK 1 DIAGNOSTIC THE H908 MUST
NOT BE CUT FOR MORE THAN 16 CU ADDRESSES

THE IBM CONTROL UNITS ADDRESSES ARE SPECIFIED IN HEXADECIMAL.
FOR CONTROL UNIT 010(16)
THE

RESPONSE TO ADRS: IS 10(HEX) WHICH IS 00010000(2).
THE DX11 CAN EMULATE UP TO 128(10) CONTROL

UNITS WITH 1 DEVICE EACH OR 1 CONTROL UNIT WITH 128(10)
DEVICES OR AS IS THE DEFAULT CASE 1 CONTROL UNIT WITH 16(10)
DEVICES.

THE ADRS: AND RESPONSE WILL CONTINUE

INDEF INITELY AS LONG AS <CR><LF> IS TYPED FOLLOWING THE

CU ADDRESS.
THE LIST IS TERMINATED BY TYPING <CR><(CR>.
NOTE:::: TYPING <CR><CR> IN RESPONSE TO THE FIRST ADRS:
WILL DEFAULT THE CU ADDRESS TO 00 AND WILL ALSO
TERMINATE THE LIST.(DEFAULT=10 HEX). THE ACTUAL # MUST BE TYPED IN

"DEVICES PER Cu:

20"

THE RESPONSE TO THIS INPUT REQUEST IS IN OCTAL AND REPRESENTS
THE NUMBER OF DEVICES THIS CONTROL UNIT SERVICES.
A DX11

EMULATED CONTROL UNIT CAN SERVICE FROM 1 TO 200(8) DEVICES.

NOTE:::: TYPING <CR> IN RESPONSE TO DEVICES PER (CU:
WILL DEFAULT TO O. THEREBY CAUSING AN ILLEGAL NUMBER
OF DEVICES PER CU MESSAGE...THE ACTUAL # MUST

BE TYPED IN.(DEFAULT=20 OCTAL)
THIS DIAGNOSTIC WILL REJECT <1 AND >20 DEVICES PER CU
(5.

CONT'D)
A CHECK IS MADE HERE TO INSURE THAT THE OPERATOR

DID NOT ASSIGN AN IMPOSSIBLE NUMBER OF DEVICES
FOR EACH CONTROL UNIT.

;nvsg ClFJOADRS'S IN HEX <CR><LF>; <CR><CR> TERMINATES LIST
DEVICES PER CU: 0
ILLEGAL NUMBER OF DEVICES PER CU
DEVICES PER CU: &
LIST ALL LEGAL COMMANDS
COMMAND:

WHEN A ''%4'" WAS TYPED IN RESPONSE TO DEVICES PER CU:,
THE NUMBER WAS ACCEPTED AND THE MONITOR CONTINUED.

SEQ 0006

NOTICE: OFFLINE & ONLINE DIAGM)STICS REQUIRE AT LEAST TWO CU DEVICE ADDRESSES
FOR TESTING MULTIPLEXOR FUNCTIONS...THE M908 MUST ALSO BE STRAPPED FOR >1
"LIST ALL LEGAL COMMANDS''
COMMAND: 400<CR>
STATUS: 0 <CR><LF> TO CONTINUE LIST

<CR><CR> TO TERMINATE LIST

THIS FACILITY WAS BUILT INTO THE DIAGNOSTIC TO ENABLE THE

OPERATOR TO BUILD HIS OWN DEVICE STATUS TABLE (DST).
A <CR> IN RESPONSE TO COMMAND: ASSUMES THE DEFAULT DST.

THE FIRST ENTRY MUST BE NONZERO.,
THEREFORE IF YOU WISH
YOUR FIRST COMMAND TO BE A TIO=0 YOU MUST TYPE IT IN WITH
PARITY (E.G. 400).
FOLLOWING THE COMMAND THE MONITOR WILL
ASK FOR THE CORRESPONDING STATUS.
=TYPING <CR> WILL DEFAULT THIS PARAMETER

"SET SWITCHES''
HERE THE MONITOR ASKS FOR THE CONSOL. SWITCH SETTINGS.
SW<15>
SW<14>

HALT ON ERROR
SCOPE LOOP

SW<12>
SW<11>
SW<10>
SW<9>
SW<2>
SW<3>

SHORT ERROR REPORT
INHIBIT ITERATIONS
MAINTENANCE CLOCK CONTROL (MAINTENANCE TESTS ONLY)
ODT TRAP ON ERROR
MUX MODE
BSYEN MODE

<SW13>

INHIBIT ERROR PRINTOUT

LOAD THE SWITCH REGISTER WITH THE APPROPRIATE FUNCTION
AND TYPE <CR>.

PROGRAM AND/UR OPERATOR ACTION
THE TYPICAL APPROACH SHOULD BE
1.
N

.
.
.

HALT ON ERROR
WHEN AN ERROR HALT OCCURS

CLEAR SW<15>
SET SW<14>, SCOPE
TYPE <P> FOR PROCEED IF ODT WAS SELECTED
(SW9=1). OR PRESS CONTINUE ON THE CONSOLE

IF ODT WAS NOT SELECTED Sw9=0

IF ERROR IS REPETITIVE.
SET SW<13> AND SCOPE ERROR

THE ERROR PC SHOULD BRING THE OPERATOR TO A POINT IN THE

LISTING WHERE THE ERROR IS DOCUMENTED.

THEN USING THE

SEQ 0007

PRINTS AND THE FLOWS THE ERROR CAN BE TRACED TO ITS
SOURCE.

AT ANY TIME DURING THE INITIALIZATION OR TESTING THE
OPERATOR CAN TYPE CONTROL C AND CONTROL WILL BE RETURNED TO
THE MONITOR.
SOME TESTS ARE 5-10 SECONDS IN DURATION SO
THE RESPONSE TO THE CONTROL C WILL NOT BE INSTANTANEOUS.

THE RESTART ADDRESS IS 200,
IF THIS ADDRESS IS LEFT IN THE
CONSOLE SWITCH WHEN ‘'START'' IS PRESSED THE MONITOR WILL TYPE
%’Er%fai%éfés"" THE SWITCHES ARE ZEROED THE TYPE WILL BE
THERE ARE TWO CALIBRATION TESTS (MAINT CLK1) THAT SHOULD BE RUN IN

SCOPE MODE(T15 & T16).
IT IS QUITE POSSIBLE THAT USING THE STANDARD
OPERATIONS PROCEDURE PREVIOUSLY SUGGESTED THAT THE OPERATOR
WILL FALL NATURALLY INTO THESE CALIBRATION TESTS.
IF THE
SYSTEM HAS BEEN BROUGHT UP ONCE BEFORE AND THE OPERATOR
WISHES TO CHECK THE CALIBRATION THE FOLLOWING PROCEDURE
SHOULD BE FOLLOWED:

3.
4.
5.2.1

EXAMINE TABLE OF CONTENTS FOR THE TEST NUMBER (N) OF
CALIBRATION ROUTINES.

TYPE N IN RESPONSE TO D,P,S.N?
PUT SW<14> UP IN RESPONSE TO '‘SWITCH SETTINGS'
TYPE <CR> IF ERROR TYPE OUT OCCURS SET Sw<13>.

MAINTENANCE CLOCK CONTROL (MAINTENANCE CLK1 & CLK2 DIAG. ONLY)
WHEN SWITCH 10 IS SELECTED AND A MAINTENANCE CLOCK

PROGRAM IS BEING RUN THE EXECUTION OF THE JSR PC, CLK

SUBROUTINE WILL CAUSE A SREAK POINT TRAP TO ODT AND A
TYPEOUT OF THE FOLLOWING FORMAT WILL OCCUR:

AAAAAA B0 ; NNNNNN
-

THIS INDICATES THAT THE PROGRAM HAS TRAPPED TO ODT

AND IS AWAITING THE COMMAND TO 'P'ROCEED BEFORE EXECUTING
Hf{ #men OF MAINTENANCE CLOCK PULSES SPECIFIED BY JSR PC,

UPON TYPING ‘P'* THE PROGRAM WILL CONTINUE FROM LOCATION
THIS IS A USEFUL FEATURE IN SEVERAL
RESPECTS .
FIRST,
IT ALLOWS THE OPERATOR TO SINGLE

STEP THROUGH THE FLOWS.

THE LISTING AIDS HERE ALSO IN

THAT IT HIGHLIGHTS THE PHASE AND STATE.
IN ADDITION
TO WALKING THROUGH THE FLOWS THIS FEATURE ALSO ALLOWS THE
OPERATOR TO EXAMINE DONE DISPLAYED DX REGISTERS AND
KEY MEMORY LOCATIONS.

SEQ 0008

IT IS REQUIRED THAT ONLY THE FOLLOWING ODT COMMANDS BE USED

OPENS WORD N

R>
<LF>

PROCEED FROM BREAK POINT
GOES TC WORD N AND STARTS PROGRAM
CLOSES OPEN LOCATION
(CARRIAGE RETURN)
OPENS NEXT LOCATION

(LINE FEED)

CONTROL C, RETURN TO DIAGNOSTIC MOMITOR

ANY OTHER COMMANDS ARE USED AT THE OPERATORS OWN RISK.
IF OTHER COMMANDS ARE USED THE DX AND THEREFORE THE DIAGNOSTIC MAY BEHAVE STRANGELY.
PLEASE RELOAD.
A TYPICAL SEQUENCE

SET SWITCHES

005536 B0;017044
P

005640 BO;017044

PROCEED

006032 B0;017044

-176204./060500

EXAMINE DXCS

PROCEED

176206 7002000
176210 700300

006504 BO; 017044
-

D.P.S.N?

EXAMINE DXOS
EXAMINE DXBA
CONTROL

MONITOR MODE

ERRORS
TYPICALLY ERROR REPORTS TAKE THE FOLLOWING FORMAT.

ERROR PC: 017274
ERROR IN TEST:
17
CUADRS/MO: 000020
80:020742
THIS INDICATES THAT WHILE EXECUTING TEST #17 ON ERROR STATE
WAS DETECTED AND IS DOCUMENTED AT PROGRAM COUNT 017274.
THE CONTRL UNIT UNDER TEST OF THE TIME OF ERROR WAS

20(8) AND THE 1BM COMMAND WAS A NOP.
THE COMMAND IS OF NO SIGNIFICANCE.

IN SEVERAL CASES
~

IF SWITCH 9 IS UP THE ERROR REPORT GENERATOR WILL
BREAK TO ODT AS INDICATED BY "BO;NNNNNN''. HERE AGAIN
THE POWER OF ODT MAY BE USED TO COLLECT ADDITIONAL

DATA CONCERNING THE FAULT.

A TYPICAL APPROACH MIGHT BE

TYPE CONTROL C, RESULTS:

(AFTER COLLECTING DATA):

SEQ 0009

D,P,S.N? N

TEST NUMBER:

SET SWITCHES

IN RESPONSE TO SWITCHES SET THE FOLLOWING

SR<15>=0
SR<146>=1

TYPE <CR>

HALT ON ERROR
SCOPE

go nto Emr
R IS REPEATABLE SET SR<13>. INHMIBIT PRINT
NOTICE:

A TYPE OUT OF THE FORMAT BE:NNNNNN INDICATES

A BREAK POINT ERROR AT NNNNAN. THIS IS AN ODT ERROR
AND CAN BE CAUSED BY 1. PLAYING GAMES WITH ODT OR

i' AN I:I;LEGAL BREAK TRAP I.E. T BIT SET OR EXECUTE

(6.

CONT'D)

DURING MAINTENANCE CLOCK TESTS THERE EXISTS A SUBROUTINE

CALLED CHKREG.

THIS ROUTINE EXAMINES ALL THE DX11

REGISTERS AND VERIFIES THAT THEY ARE IN THE EXPECTED STATE.
CHKREG HAS A SPECIAL ERROR TRAP THAT RESULTS IN THE
FOLLOWING TEXT:

ERROR PC: 017446
ERROR IN TEST: 17
CUADRS/MD: 000020
ORIGIN OF MAP ERROR 017602
REGISTER=CONTENTS-MAP
DXMI] :
176777 000400 (DXMI IS UNREADABLE IGNORE THIS COMPARE)
DX(CB:
074000 000000 (PHASE AND STATE FLOPS ARE NOT TRACED)
DXES:
000014 000010 (ERROR CONDITION IS THAT BITZ IS SET)
B80,020742
L

IN THIS REPORT THE REGISTERS ARE NAMED (UNDER REGISTER)

AND THERE CONTENTS DUMPED (UNDER CONTENTS) SO THAT IT MAY

BE COMPARED WITH THE EXPECTED STATE IN THE MAP (UNDER MAP).
THERE ARE TWO ANOMALIES HERE:
1.

THE DXMI IS OFTEN UNREADABLE THEREFORE IF THE DXMI

THE PHASE AND STATES FLOPS ARE NOT COMPARED SO THAT
CHKREG CAN BE USED IN ROUTINE WITH FREE RUNNING CLOCKS.

IS ALL ONES OR ALMOST ALL ONES DISREGARD THE COMPARISON
IT WAS NOT MADE.

THIS MEANS THAT THERE MUST BE A DIFFERENCE BETWEEN

SEQ 0010

L 1
CONTENTS AND MAP IN A REGISTER OTHER THAN THE DXMI OR BITS
OTHER THAN 074000.
THE EXERCISER PROGRAMS DO TUMBLE TABLE TRACING ON INTERRUPT.

IN THE EVENT OF A TRACE ERROR THE PROGRAM WILL TYPE OUT:

TT TRACE ERROR IN TEST:
N1
ORIGIN OF LAST TT UPDATE: N2
TT ENTRY WAS:
‘WHATEVER''
‘WHATEVER +1''
EXPECTED ENTRY:
TT POINTER
N3
THEN PROCEED WITH THE NORMAL ERROR REPORT. THE ADDRESS XXXXXX
Ls:ESP”ESTE;i LOCATION WHERE THE EXPECTED TT ENTRIES WERE

EXERCISER ERROR REPORTS ALSO INDICATE THE
DX MODE WHEN THE ERROR OCCURED: MULTIPLEXOR OR BUSYEN
(DX ONLINE AND DX OFFLINE EXERCISERS ONLY)

6.2

ERROR RECOVERY

IN THE EVENT THAT THE DX GETS STUCK IN AN UNRECOVERABLE

PHASE AND STATE WHILE MAINTENANCE CLOCK ENABLE IS SET,

DEPRESS HALT AND START.

THEN LOAD ADDRESS 200 AND START.

ON BREAK POINT ERRORS RELOAD TAPE
RESTRICTIONS

STARTING RESTRICTIONS

SEE SECTION 4.2
OPERATING RESTRICTIONS
AARARARAARAAAAAAANARREY

NEVER NEVER NEVER RUN THE ONL INE-MAINTENANCE-CABLED
EXERCISER WHILE CONNECTED TO IBM
AAAAAAARAAAAAAAAOEES

MISCELLANEOUS

MAINT. CLK1

DIAGNOSTIC ONLY::::::::

AT THE END OF THE PROGRAM

THIS IS TO SIGNIFY THAT SW3

IT WILL TYPE "END TEST

SET Sw3=1?"",

MUST BE SET AT LEAST ONCE DURING THE

USE OF THIS DIAGNOSTIC.IT IS NOT NECESSARY TO LEAVE SwW3=1

AS IT CONSUMES TOO MUCH DIAGNOSTIC TIME.BASICALLY THIS OPENS
THE TEST THAT CHECKS THAT YOU HAVE CORRECTLY ANSWERED ALL THE
CU ADDRESSES & DEVICES/CU QUESTIONS CORRECTLY....IF YOU LIED
IT WILL CATCH IT. IE. IF YOU ANSWERED THE DEVICES PER (U

SEQ 0011

M
WITH 10(8) AND IN ACTUALITY THE DEVICES PER CU ARE CUT TO
& ON THE M908, THIS TEST WILL CATCH THE ERROR.
WHEN SW3=1 PROGRAM RUN TIME IS GREATLY INCREASED
AS IT CHECKS ALL OTHER ADDRESSES FOR ADRECC & ADRECD.

DX ONLINE & DX OFFLINE EXERCISERS::::::::

THESE PROGRAMS WILL DEFAULT TO AUTOMATICALLY SETTING

SW1=1 & SW2=1 . HOWEVER, TO EXECUTE THEIR FUNCTINS EARLY IN
THE PROGRAM RUN TIME- SET THEM B.EFME STRIKING <CR> WHEN

THE MONITOR ASKS
"'SET SWITCHES''
NOTE: AT LEAST 2 DEVICES/CU MUST BE STRAPPED ON M908
8.1

EXECUTION TIME
THE EXECUTION TIME OF EACH PROGRAM IS VARIABLE AND IS A

ADDRESS TRUCTURE.
" IN GENERAL THEY RUN 10 TO 20 MINUTES.
PROGRAM DESCRIPTION

CONTAINED WITHIN LISTING.
10.

LISTING
FOLLOWING

11.

FLOW CHARTS

SEE PRINT SET

CZDXHDO DX118 ONL INE EXER
COPYRIGHT 1972,1978 DIGITAL EQUIPMENT CORP.
146 MAIN ST. MAYNARD, MA. 01754

MAINTAINER: DIAGNOSTICS

AUTHOR: JOHN FRIEDRICH

CRARRRNARARRANAAARAANAY MOD APR

AARAAAAAAAAANRRAARARRANARANRAAARN

* %

REVISED: BY W. ARMSTRONG

.SBTTL

DYNAMIC SWITCH SETTINGS (SWR =1)

2
R
LA

SeseNLN

% J

* %

8.0,

DYNAMIC SWITCH REGISTER SETTINGS

SWRN

SIGNIF ICANCE :

SWR 15
SR 14

"HALT ON ERROR''
*'SCOPE_LOOP'*

SET = ONE

WR 13

INHIBIT ERROR REPORT

SEQ 0012

*
*

*
*
]

*
*

*
*
*
&

*
®
*

*
*

''SHORT ERROR REPORT''
"'INHIBIT ITERATIONS''

SWR 02
SWR 01

'MUX_MODE"'
'BSYEN MODE''

"USER_CHANGE INFORMATION''
"DUE TO REVISION APR 74''
"PLEASE READ INFO BELOW''

SWR 12
SWR 11

NOTE:

AN OPERATOR RESPONSE OF ‘0'' TO THE PROGRAM
"TTY'' REQUEST FOR ‘DEVICES PER CU:'' IS NO

LONGER DEFAULTED TO 20 (16 DECIMAL). I.E.
DEVICES PER CU: 0

‘=ILLEGAL ?*'

THE HEADER ''CU CHANNEL ADDRES:'' USED ON ERROR

OUTPUT HAS BEEN CHANGED TO ‘‘CUADRS/MO:‘'. 1.E.
IT SIGNIFIES EITHER THE CONTENTS OF THE ‘'DXMO''

MEANINGFULL
.

*
CARRRRARARNAARANANARRAY
MOD APR

AR Attt aataatanan
AR A a v et atenas

SEQ 0013

CZDXHDO DX11B ONLINE EXER

e T

NNNNN8
VIS WNN=O0VONOVS WOV

NOVIS W

CZDXHD.P1

07-JuL~-78 12:52

MACY11 30A(1052) 07-JuL-78 12:52
TABLE OF CONTENTS

CLOCK, ISSUE N MAINTENANCE CLOCK PULSES

SS,SELECTION MACRO
SHORT ,SHORT TT TRACE UPDATE AND SELECT
DEF INE, EMT DEF INITIONS
ESAVE, SAVE REGISTER FOR ERROR PRINT
ERSTOR, RESTOR ERROR REGISTERS
SAVE, SAVE ARG ON STACK

RESTOR, RESTOR ARG FROM STACK
SCOPELOOP, SUBROUTINE TO EXECUTE SCOPE CODE

CLEAR, CLEAR FROM ARG1,ARG2 WORDS
CLRSUB, SUBROUTINE TO CLEAR FROM ARG1,ARG2 WORDS

DUMP, OCTAL DUMP OF ARG
SDUMP, OCTAL DUMP OF ARG, LEADING ZEROS SURPRESSED
NUMBER, TEST NUMBER INCREMENTER
SCOPEM, SCOPE
ERCALL, ERROR CALL EMT
STEPTSSF, SINGLE STEP TSSF
CHECKFOR, CHECK FOR PHASE ARG
CHECK, CHECK FOR PHASE.STATE ARG
SNAPSHOTPH,
?
LDNLK, LOAD AND LOOK MCLK MACRO
CLKCHK, CLOCK AND CHECK PHASE+STATE
LOAD, LOAD BIT IN REGISTER + MAP
REMOV, REMOVE BIT FROM REGISTER + MAP
MISCELLANEOUS DEF INITIONS
TRAP DEF INITIONS

DX REGISTERS
POWER FAIL
STATUS POINTER WORD TABLE
TUMBLE TABLE

T2
T3

TS5

TEST 1/0 COMMAND

ILLEGAL COMMAND
SENSE COMMAND

READ COMMAND

.. DP OUTPUT)

WRITE COMMAND (PDP INPUT)

16
END OF TEST STRING
SETUP SELECTED PARAMETERS
STATUS PRESENTATION
DATA TRANSFER ROUTINES
ONL INE ROUT INE
INITIAL SELECTION SEQUENCE
HIO SUBROUT INE
CUIS SUBROUT INE
MONITOR
MONITOR FILES
MONITOR SUBROUT INES
TTY ASCII OUTPUT ROUTINE

SAVE AND RESTORE REGISTERS
OCTAL DUMP ROUTINE
S
ME SSAGE
DATA BUFFERS

SEQ 0014

)
e
g
S
SRS S
Qe R
IO
I
P

VONOVNSWN=OVO
NN W =

CZDXHDO DX118B ONLINE EXER
CZDXHD.P1
07-JuL-78 12:52

MACY11 30A(1052) 07-JuUL-78 12:52 PAGE1
;DXDS, DX DEVICE STATUS BITS

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

PARER =100000
;ERRORS
NXM
= 40000
sNONEXISTANT MEMORY REFERENCE
SELRST= 20000
<IBM RESETS; SELECTIVE RESET
SYSRST= 10000
:
SYSTEM RESET
INFDSC= 4000
:
INTERFACE DISCONNECT
IBMRST= SELRST!SYSRST!INFDSC
UCHKS = 2000
;STATUS FLAGS
CHENDS= 1000
s CHANNEL END SENT
BSYS =
400
;BUSY SENT
CHIS =
200
s CHANNEL INITIATED SELECTION
ESEND =
100
sENDING STATUS END
CHDEND=
40
:CH DATA END
CUDEND=
20
:CU DATA END
ISSREtJ=
10
;1SS REJECT
CMDCHN=
&
s COMMAND CHAINING
STKSTB=
2
:STACKED STATUS B
CMDREJ=
1
s COMMAND REJECT
;DXCS.DX CONTROL UNIT STATUS BITS

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000030
000006
000001
000003
000005
000007
000001

PARSTP=100000
CUFBM = 40000
ENDEN = 20000
€s12 = 10000
BSYEN = 4000
CS10 = 2000
ONLINA= 1000
cuBsSY =
400
DONE =
200
INTEN =
100
STKSTA=
40
XBA
=
30
FCTN =
6
DXFRS =
1
DXF1 =
3
DXFO =
5
DXFST =
7
GO
=
1

:STOP ON BUSO PARITY ERROR
sSELECT FORCED BURST
: 'CUEND*
sNOT USED
;ENABLE SET 'CussYy’
:NOT USED
sONLINE A
: CU BUSY
sFUNCTION DONE
: INTERRUPT
:STACKED STATUS
:EXTENDED BASE ADDRESS
:FCTN + GO
sREAD (INPUT)
;WRITE (OUTPUT)
: STATUS
sBEGIN FUNCTION

;DX0S DX OFFSET (CUOR) AND STATUS (CUSR) BITS

000100
000040
000020
000010
000004
000002
000001

ATTEN =200

STAMOD=100
CUEND = 40
8sy
=20
CHEND = 10
DEVEND= &
UCHECK= 2
UEXCEP= 1
;DXMO DX MAINTENANCE-OUT BITS

sATTENTION

sSTATUS MODIFIER
:CU END
;BUSY
:CH END
;DEVICE END
JUNIT CHECK
JUNIT EXCEPT

SEQ 0015

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11
S7

58
59
60
2}
63

64
65
66
67
gg

70
71

72
;z
75
76
77
78
79
g1)
1

g
9N

92
Q3
94
9c
@
97
gg

:SELECTION CONTROL INES

OPLO
HLDO
SELO
SUPO

004000
002000
001000
000400

ADRO
cMDO
SRVO
PARO

=100000
= 40000
= 20000
= 10000

sTAG LINES

=
=
=
=

&
2000
1000
400

;DXM]I DX MAINTENANCE-IN BITS

:SELECTION CONTROL LINES

;ADDRESS OUT
;COMMAND OUT
;SERVICE OUT
;PARITY OF/FOR BUS OUT

oPLI

010000

sTAG LINES
ADRI = 10000

;ADDRESS IN

001000
000400

CLk0
PARI

;0K TO GO ONLINE (RO)
:BUSI PARITY (RO)

040000
020000
004000
002000

SELI
REQI
STAI
SRvl

=100000

;OPERATIONAL OUT
JHOLD OuT
SELECT ouT
*SUPPRESS OUT

100000

= 40000
= 20000
=
=

=
=

4000
2000

1000
400

JOPERATIONAL IN

;SELECT IN
JREQUEST IN

:STATUS IN
sSERVICE IN

;DXCB DX CONTROL BITS

100000

LOCKO =100000

;LOCK OUT

002000

FASTCU=

2000

*FAST CU

Cubx

400

074000
001000

000400

000200
000100
000040
000020
000010

000002
000001

}6“1)

PHS

=074000

SYNC

Ioo

1000

200

BYPAS =
NPRX =
NPRT =
BALF =
ONL INB=
ADRECC=
ADRECD=

100
40
20
10
4
2
1

+PHASE - STATE BITS
:SYNCI-R(NIZATIM

;CU DATA CONTROL

s INPUT OUTPUT DONE
:NPR CONTROLS

;BYPASS
JNPR CONTROL SWITCH
JNPR TRANSFER DIRECTION
JBUFFERED ALTERNATOR FLOP
JON LINE TO IBM
;ADDRESS RECOGNITION (CU)
;ADDRESS RECOGNITION (DEVICE)

;DXES DX EXTRA SIGNALS

102
103
104

000001
000002
000004

MCLKP=1
MCLKEN=2
SOSIEN=¢4

JMAINTENANCE CLOCK PULSE
JMAINT. CLK ENABLE
;SRVO=-SRVI ENABLE

106
107
}%

000020
000040
000200

DXT0=20
NPRTO=40
INTREQ=200

:DX TIMEOUT (S SEC)
*NPR TIMEOUT (8 MICROSEC)
;INTERRUPT REQUEST

105

REMOV, REMOVE BIT FROM REGISTER + MAP

100000
040000
020000
010000

g%
85

07=JUL=-78 12:52

MACY11 30A(1052) 07-JuL-78 12:5% PAGE 2

000010

”?

112

TIMDIS=10

STIMER(S SEC) DISABLE

;DXEST DX EXTRA EXTRA SIGNALS

000001

IRS

;18M RESET STORED

~ SEQ 0016

CZDXHDO DX118 ONLINE EXER
CZDXHD.P11
07-JUL~78 12:52
13

000002

114
115
116

000004

000000

121
122

000004
000006

120

000002

123
124
125

000010
000012
000014

126

000016

127
128

000020
000022

129
130

131

132

000024

000000

135
13
137

020000
030000
040000

140
141
142
143

070000

134

010000

138
139

sDISCONNECT RESPONSE
sSELECT IN BUFFERED

DS=
CA=
(S=
0S=

BA=

B(=

MO=
Ml=

(B=

ND=

ES=

PHASE0=00000
PHASE 1~10000

050000
060000
;TIME STATE FLOP AND STATE DEFINATION

144

004000

145

004000

146

147
148
149

TSSF=4000
151=4000
152=0000

;PHASE AND STATE DEFINITIONS

004000

014000

150
Y

=2
=4

;PHASE CONTROL FLOPS OF DX(B

133

010000

e g

2R ARTTLRTIRUR

DSCRSP
SELIBR

RNSFRRNSKRRS

118
119

PHSO1=
PHS02=
PHS1i=
PHS12=
PHS21=
PHS22=

PHASEQ!
PHASEQ!
PHASE1!
PHASE1!
PHASEZ2!
PHASEZ2!

TS1
TS2
TSI
TS2
TS1
TS?2

PHS41=
PHS42=

PHASE4!
PHASE4!

TSI
TS2

PHS31=
PHS32=
PHS51=

3
8

PHS52=
PHS61=

PHS62=
PHS71=
PHS72=

REMOV, REMOVE BIT FROM REGISTER + MAP

;DEFINE REGISTER MAP INDICES

117

MACY11 30A(1052) 07-JuL-78 12:S§ PAGE 3

PHASE3! TSI
PHASE3! TS2
PHASES! TS1

PHASES! TS2
PHASE6! TSI

PHASEG! TS2
PHASE?! TS1
PHASE?7! TS2

SEQ 0017

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

07=JUL=-78 12:52

}93

104400

17
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
}gg

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

138
191
192
193
194
195
}gg

000400
000001
000002
000403

000405

5}1

gé

215
216
217

218
219
55(1)

SS%

224

12:55

MISCELLANEOUS DEF INITIONS

PAGE 4

SCOPE=TRAP

:SCOPE LOOP TRAP

BIT15=100000
81714240000
81713=20000
BIT12=10000
81T11=4000
81T10=2000
81T9=1000
81 T78=400
BIT7=200
BIT6=100
BITS5=40
BIT4=20
BIT3=10
BIT2=4
BIT1=2
BITO=1
HERE=0
T10C=400
WRITEC=001
READC=002
NOP(C=403
SENSEC=4
ILLC=405

:TEST 1/0
SWRITE
*READ
:NOP
s SENSE
s ILLEGAL COMMAND

sUTILITY FLAGS

100000
000002

2282

205
206
207
208
209
210

07-JUL-78

:CHANNEL COMMANDS WITH PARITY

}33

200
2285

MACY11 30A(1052)

INTOK=100000
DOF L IN=2

:SPW BIT FOR NO DST !

;CHANNEL STATUS

000010
000004
000002
000200
000100
000040

000020

100000
040000
020000

010000
004000
002000
000000

CE=10
DE=
uC=
ATTN=200
SM=100
CUE=40
B8SY=20

:SWITCH DEF INITIONS

:CH END
:DEVICE END
sUNIT CHECK
sATTENTION
:STATUS MODIFIER
:CU END
:BUSY

HLTSW=BIT1S
LOPSW=B]T14
PNTSW=B]T13

;HALT ON ERROR
:LOOP ON ERROR
sINHIBIT PRINT

MCCSW=BIT10

sMAINTENANCE CLOCK CONTROL

SESW=B]T12
11Sw=81T11

:PROCESSOR PRIORITY LEVELS
LEVELO= 000

:SHORT ERROR SWITCH
:INMIBIT ITERATIONS

- SEQ 0018

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuUL-78 12:52

225

MACY11 30A(1052) 07-JuL-78 12:5? PAGE 5

SEQ 0019

MISCELLANEOUS DEF INITIONS

LEVEL1= 040
LEVELZ2= 100
LEVEL3= 140
LEVEL4= 200
LEVELS= 240
LEVEL6= 300
LEVEL7= 340

000040
000100
000140
000200
000240
000300
000340

sREGISTER DEF INITIONS
RO=20
R1=X1
R2=%2
R3=%3
R&4=%4

R5=%5
TTY=%5
R6=%6
SP=%6
PC=%7

:STACK POINTER
;PROGRAM COUNTER

TYPE=]OT

NOP=240
PS=177776
SWR=177570
SR=177570

;PROCESSOR STATUS

;SWITCH REGISTER

E=0

EMTABLE=EMTAG

;EMT DEFINITIONS
001004
001006
001010
001012
001014
001016

cRROR
MAPERR
TRACER
SAVRG
RSTRG
ACCEPTO

TO
TO
TO
TO
TO
TO

001022
001024

PARITY

TO T.PARITY
TO T.PCH1

KEY.TO.RO

PCH1
PCH2

PCH3

001030
.SBTTL

T.ERROR
T.MAPERR
T.TRACER
T.SAVRG
T.RSTRG
T.ACCEPTO

;TRAPS TO T.KEY.TO.RO

T0 T.PC
TO T.PC

TRAP DEF INITIONS

;TRAP INITIALIZATION

000014

000014
006674

000340

000020

000020
016614

000340

000024

000024
001444

000340

.=20
.=24

0.BRK,LEVEL?

;BREAK TRAP

.JOT LEVEL?

;TTY OUTPUT TRAP,LEVEL 7

PFAIL ,LEVEL?

;POWER FAIL TRAP

CZDXMDO DX11B ONLINE EXER

CZDXHD.P11

07-JUL=-78 12:52

281

282

MACY11 30A(1052)

TRAP DEF INITIONS

000030

.=30

%gz 000030 011762 000340

001100

SACTI

307
308

001112
001120
001126
001134
001136

001142
001144

012737
012737
012737
005046
012746
000006
012737

001154
001160

062706
013737

000002 006706
001154 000010
000340 000012
000006

000010
006706

006706

INITZ:

006704

INITB:
INITC:

g;z 001174 005037 000012
g‘%s

:SET UP STACK POINTER

*PRIORITY LEVEL 7

001200

005737

000042

RTT
MOV

B8R

#6.,RTX

INITC

ADD
MOV

#10,5P
RTX.YESRTI

CLR

MOV

001216

005327

000001

3% 00155 000135 01265

:
BGNO:

1233332332333 33332323233232233233232331

#2,RTX
#INITB,a#10
#340,a412
-(SP)
#INITZ,=(SP)

#12,a410

:Q...'.Qtt'.'t.'..lt."'t..' W m 7‘

318 001204 001404
319
320 001206 005037 014206
21 001212 000137 013576
322

#BEGIN, SP

#LEVEL?,PS

11740.11/45 TRACE TRAP

MOV
MOV
MOV
CLR
MOV

001144

312 001166 012737 000012 000010

317

;GO TO BEGINNING
OF PROGRAM

oTM

309 001152 000402
310
311

MOV

MMBEGIN

:tt!t't.t'tQQ..QQ.Q'Q"."" m m 7‘

%1)

LOGICAL

.=200

302
303
304
305
306

SEQ 0020

:SCOPE TRAP

BEGIN:

012706

PAGE 6

SCOPEC,LEVEL?

=46

:EMT DECODER TRAP,LEVEL 7

START: JMP
.=1100

001100

.=34

12:55

EMTDECODER, LEVEL7

285
000034
286 000034 011530 000340
287
000046
533 000046 014020
223?
000200
ggg 000200 000137 001100
%
001100

% 001104 012737 000340 177776

07-JUL-78

BEQ
JSR
CLR
JMP
DEC

w62

BGNO
PC ,MONDFL T
SFONE SHOT
SMMONT 1
”

- SR-

1233 3333323333233 333333333323131

SACT

‘BR IF NO
S INSERT DEFAULT PARAMETERS
;DO NOT EXECUTE TIME CONSUMING TESTS
:

325 001230 032737 000200 177570 BGN1:
26 001236 0014
327 001240 000137 012724

BIT
BEQ
JMP

#200, SR
BGN2
SIMON1.0

:TEST FOR FAST START
“BRANCH IF FAST START

001250 012737 000340 177776

MOV
JMP

#LEVEL?,PS
SMMON10

;USE PREVIOUS PARAME TERS

328

001244

012706

001100

BGN2:

.SBTTL

MOV

#BEGIN,
SP

DX REGISTERS

DXBASE: 176200
DxIv:
300

;DX INTERRUPT VECTOR ADRS

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11

07-JuL~78 12:52
000302
000200

07-JuL-78 12:5& PAGE 7
MACY11 30A(1052)
DX REGISTERS
2

DXIS:
DXPRT:

302
LEVEL4

DXDS:
DXCA:
DXCS:
DX0S:
DXBA:
DXBC:
DXMO:
DXMI:
DX(CB:
DXND:
DXES:
DXMOB:
DXES1:

176200
176202
176204
176206
176210
176212
176214
176216
176220
176222
176224
176226
176230

LESS1:

LEVEL3

;DX INTERRUPT STATUS
JINT PRIORITY ADRS
:DX PRIORITY MINUS ONE
:DEVICE STATUS =>TT
;COMMAND AND ADDRESS =>TT
JCONTROL UNIT STATUS

JOFFSET AND STATUS
;BUS ADDRESS FOR NPR'S
JBYTE COUNT
JMAINTENANCE OUT
JMAINTENANCE IN
;CONTROL BITS
:NPR DATA

JEXTRA SIGNALS
JMAINTENANCE OUT BUFFERED
JEXTRA EXTRA SIGNALS

;BYTE REGISTERS
JDXCA

CUAR:
CUCR:

176202
176203

:CU ADDRESS REGISTER
:CU COMMAND REGISTER

176206
176207

:CU STATUS REGISTER
:CU OFFSET REGISTER

176214
176215

;1BM BUS OUT
;CONTROL LINES OUT

176216
176217

:18M BUS IN

176224
176225

sMISCELLANEOUS BITS
;TUMBLE TABLE INDEX REG

176226
176227

;BUS OUT BUFFERED
;CONTROL OUT BUFFERED

;DX0S

CUSR:
CUOR:
;DXMO

BUSO:
CONO:
;DXMI]

373
375
377
378
379
380
381
382

383
384
5

387
388

BUSI:
CONI:

;DXES

MISC:
TINDX:

sCONTROL LINES IN

+DXM0B
BUSOB:
CONOB:

JREGISTER ADDRESSES
REGO:
REG1:
REG2:
REG3:
REG4:
REGS:

177700
177701
177702
177703
177704
177705

SEQ 0021

CZDXHDO DX118 ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52

001372
001374

MACY11 30A(1052) 07-JuL-78 12:5‘ PAGE8
DX REGISTERS

177706
177707

REG6:

REG7:

177706
177707

;TTY ADDRESSES
TKS:
TKB:
TPS:
TP8B:

177560
177562
177564
177566

sREGISTER TRACE TABLE
TDXDS:
TDXCA:
TDXCS:
TDXOS:
TDXBA:
TDXMO:
:
TDXMI]
TDX(B:
:
TDXND
TDXES:
TDXES1:
TTTNDX:

sREGISTER TRACE TABLE
;DEVICE STATUS TRACE
s COMMAND AND ADDRESS TRACE
:CU STATUS TRACE
sOFFSET AND STATUS TRACE
;BUS ADDRESS TRACE
sMAINTENANCE-OUT TRACE
sMAINTENANCE-IN TRACE
sCONTROL BIT TRACE
:NPR DATA TRACE
sEXTRA SIGNAL TRACE
sEXTRA SIGNAL TRACE 1

(=lelelelelelelelelslela)

REGTT:

s TTNDX TRACE

;STATUS POINTER WORD ADDRESS

SPW:

2000

;TUMBLE TABLE ADDRESS
001440

003000

TT:

3000

;DEVICE STATUS TABLE ADDRESS
001442

017400

;:DST MUST BE MOD(400)

DST:

DSTADRS

.SBTTL

POMWER FAIL

;POMER FAIL ROUTINE

sIF SELECTED VERIFY STATUS~IN IS UP

:AND CE AND DE ARE PRESENTED AS STATUS

001606
001530
020000

PFAIL:

170622

SAVRG

R6,SAVR6
#PWRUP
, 24
fiflo.aoxm

177614

#OPL] ,3DXMI]
.

177602

#STA] ,aDXM]

;BRANCH IF NO ERROR CONDITION

SEQ 0022

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11

07-JuL-78 12:52

449

001510

451
452

001514
001522

453

001526

001001
104000

122777
001401
104000
000000

000014

MACY11 30A(1052)

POWER FAIL

177620
18:

07-JuL-78

BNE
ERROR
CMP8
BEQ
ERROR

K
12:55

PAGE 9

.t
#CE!DE ,aBUSI
.+

HALT

SEQ 0023

;BRANCH IF NO ERROR CONDITION
:
;BRANCH IF NO ERROR CONDITION
:

;POWER UP ROUTINE
PWRUP:

177526

001576

012637

478

480

476

481

001602

001610

000000
050137

010052

0016264

057504

053517
044501
000

«82

4«83
484
485
486
487

488
489
490
N
49
49
494
495
496
497
498

001630

001630
002000

TYPE

PFLD

051105
042514

SAVR6:

PFLD:

JMP
0

.ASCIZ

(PC)+

;RESTORE POWER FAIL VECTOR
RESTORE OFFSET REG
JRESET AND RESTORE
sSTALL FOR MECHANICS

;POWER FAILED

(SP)+,PS

aRETURN

°'°_POWER FAILED_
'’

.EVEN

.SBTTL

ENDSTR=,

STATUS POINTER WORD TABLE

;DEFINE END OF START CODE

:DEFAULT STATUS POINTER WORD (SPW)

sDEFAULT EMULATION IS OF ONE CONTROL UNIT

000000

;":(l,TH CAPACITY OF 16 DEVICES

;STATUS POINTER WORDS FOR CU 0
002000
002002

016400
016400

00201
002012
002014
002016

8166&
016400
016400
016400

50 Gozoq 016400
501
$O§
503

DEC

MOV

177776

000177

#PFAIL ,24
SPW,aDXx0s
PC,RESRES

BNE

001610

475

MOV
MOV
JSR
5LR

001562

sPATCH ANYONE?

SAVR6 ,R6

RSTRG

000024
015614

NOP

MOV

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRVST
ERRDST
ERRDST

sDEVICE STATUS TABLE
sDEVICE STATUS TABLE
;DEVICE STATUS TABLE
;DEVICE STATUS TABLE
;DEVICE STATUS TABLE
;DEVICE STATUS TABLE
;DEVICE STATUS TABLE
;DEVICE STATUS TABLE

IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11
|

SOS
506
507
S08
S09
510
511
g}%

07-JUL-78 12:52

002020
002022
002026
002026
002030
002032
002034
002036

016400
016400
016400
016400
016400
016400
016400
016400

g}g

516

517
518
519

521
522
523
524
525
526
527
528
529
530
gg

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

002040

016400

ERRDST

002050
002052
002054
002056
002060
002062
002064

016400
016400
016400
016400
016400
016400
016400

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

002042
002044
002046

002066
002070
002072
002074
002076

016400
016400
016400

016400
016400
016400
016400
016400

;DEVICE STATUS TABLE IS AT ERRDST
;DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

:DEVICE STATUS TABLE IS AT ERRDST

ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
;DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
;DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU 2

002100
002102
002104
002106
002110
002112
002114
002116
002120
002122
002126
002126
002130
002132
002134
002136

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

ggi

554
555
556
557
558
559
S60

STATUS POINTER WORD TABLE

:STATUS POINTER WORDS FOR CU 1

gg{

535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
ggg

MACY11 30A(1052) 07-JuUL-78 12:s§ PAGE 10

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
;DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
;DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU 3

002140
002142
002144
002146
002150
002152
002154

016400
016400
016400
016400
016400
016400
016400

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

SEQ 0024

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

MACY11 30A(1052)

07=-JUL-78 12:52

561

002156

016400

ERRDST

564

002164

016400

ERRDST

565
566
567
568
ggg

002166
002170
002172
002174
002176

016400
016400
016400
016400
016400

2;12

573
574
575
576
577
578
5§79
S80
S81
582
S83
584
585
586
S87
%

2
PAGE 11

SEQ 0025

:DEVICE STATUS TABLE IS AT ERRDST

ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

;:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

:DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU &

002200
002202
002204
002206
002210
002212
002214
002216
002220
002222
002224
002226
002230
002232
002234
002236

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

gg?

12: ss

STATUS POINTER WORD TABLE

562 002160 016400
563 002162 016400

07=JUL-78

:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU S

592
593
594
595
596
597
598
599
600
601

002240 016400
002242 016400
002244 016400
002246 016400
002250 016400
002252 016400
002254 016400
002256 016400
002
016400
002
016400

603
604
605
606
%

002266
002270
002272
0022764
002276

602 002264 016400

016400
016400
016400
016400
016400

ggg

611 002300 016400
612
002302 016400
613
002304 016400
614 002
016400
615 002310
016400
616 002312 016400

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
;:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

ERRDST

:DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU 6

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
*DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

{

CZDXMDO DX118 ONLINE EXER

CZDXHD.P11

617
618
619
620
621
622
623
852
625
626

07-JUL-78 12:52

002314
002316
002320
002322
002326
002326
002330
305339
002334
002336

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

630 002340 016400
631 00232 016400
632 002%h 016400
633 002346 016400
634 002350 016400
635 002352 016400
636 002354 016400
637 002356 016400
638 002360 016400
639 002362 016400
640 002364 016400
641 002366 016400
642 002370 016400
643 002372 016400
64t 002376 016400
&3 00237 ote4o0

649 002400
650 002402
651 002404
652 00208
633 002410
654 002412
655 002414
65 002416
657 002420
658
659 002426
660 002426
661 00230
662
002434
664 002436
666
668
669
671
672 002450

07=-JUL-78

N 2

12:55

STATUS POINTER WORD TABLE

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

PAGE 12

SEQ 0026

:DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU 7

628 °

MACY11 30A(1052)

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

16400
16400
16400
16400
016400

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TASLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
*DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST
“DEVICE STATUS TABLE IS AT ERRDST
DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU 10

ERRDST
:DEVICE STATUS TABLE IS AT SRRDSY
ERRDST
DEVICE STATUS TABLE IS AT ERRDS]
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE I$ AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE 1S.AT ERRDST
ERRDST
. *DEVICE STATUS TABLE IS AT ERRDST
:STATUS POINTER WORDS FOR CU 11
ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE IS AT ERRDST
ERRDST
SDEWICE STATUS TABLE IS AT ERRDST
ERRDST
DEVICE STATUS TABLE 1S AT ERRDST
ERRDST
DEVICE STATUS TABLE 1S AT ERRDST

. |

CZDOXHDO DX118 ONLINE EXER

CZDXHD.P11
673
674
675
676
677
678
679
680
681
682
ggz

07-JuL-78 12:52

002452
002454
002456
002460
002462
002464
002466
002470
002472
002474
002476

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

ggz
687
688
689
690
691
692
693
696
695
696
697
698
699
700
701
%

STATUS POINTER WORD TABLE
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

SEQ 0027

STATUS TABLE
STATUS TABLE
STATUS TABLE
STATUS TABLE
STATUS TABLE
STATUS TABLE
STATUS TABLE
STATUS TABLE
STATUS TABLE
STATUS TABLE
STATUS TABLE

IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST

STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS

TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE

IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST

;STATUS POINTER WORDS FOR CU 12
002500
002502
002504
002506
002510
002512
002514
002516
002520
002522
002524
002526
002530
002532
002534
002536

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

778’5

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

;DEVICE
;DEVICE
;:DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

;STATUS POINTER WORDS FOR U 13

706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
;221

002540
002542
002544
002546
002550
002552
002554
002556
002560
002562
002564
002566
002570
002572
002574
002576

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

725
726
727
728

002600
002602
002604
002606

016400
016400
016400
016400

;sz

MACY11 30A(1052) 07-JuL-78 12:52 PAGE 13

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

;DEVICE
sDEVICE
;DEVICE
;DEVICE
;DEVICE
sDEVICE
;DEVICE
sDEVICE
sDEVICE
sDEVICE
sDEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS

TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE

ERRDST
ERRDST
ERRDST
ERRDST

;DEVICE
;DEVICE
;DEVICE
;DEVICE

STATUS
STATUS
STATUS
STATUS

TABLE
TABLE
TABLE
TABLE

IS AT
IS AT
IS AT
IS AT

;STATUS POINTER WORDS FOR CU 14

ERRDST
ERRDST
ERRDST
ERRDST

CZDXHDO DX118 ONLINE EXER

CIDXHD.P11
729
730

07-JUL-78 12:52

ERRDST
ERRDST

;DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST

733 002620 016400

ERRDST

‘DEVICE STATUS TABLE IS AT ERRDST

002614
002616

016400
016400

73
735

002622
002624

016400
016400

738
739

002632
002634

016400
016400

;2? 002636 016400

ERRDST

764
765
746
767
748
749
750
751
752
753
754
755
756
757
758
%
763
764
765
766
767
768
769
770
771
77;%
774
775
77"9
%

002640
002642
002644
002646
002650
002652
002654
002656
002660
002662
002664
002666
002670
002672
002674
002676

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST

‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST

‘DEVICE STATUS TABLE IS AT ERRDST

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
*DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU 16

002700
002702
002704
002706
002710
002712
002714
002716
002720
002722
002
002
002
002732
002734
002736

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

782 002740 016400
783 002742 016400
784 002744 016400

ERRDST
ERRDST

‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU 15

773?

ERRDST
ERRDST

7725

ERRDST
ERRDST

736 002626 016400
737 002630 016400
;2%

STATUS POINTER WORD TABLE

016400
016400

731
732

002610
002612

MACY11 30A(1052) 07=JuL-78 12:s§ PAGE 14

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
*DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
:DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
*DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST
*DEVICE STATUS TABLE IS AT ERRDST
*DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST

:STATUS POINTER WORDS FOR CU 17

ERRDST
ERRDST
ERRDST

:DEVICE STATUS TABLE IS AT ERRDST
*DEVICE STATUS TABLE IS AT ERRDST
‘DEVICE STATUS TABLE IS AT ERRDST

~ SEQ 0028

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11
785
786
787
788
789
790
791
792
793
794
795
796
%

07-JuL-78 12:52

002746
002750
002752
002754
002756
002760
002762
002764
002766
002770
002772
002774
002776

799

804
805
806
807

D
12:55

07-JuL-78

STATUS POINTER WORD TABLE

016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400
016400

ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
ERRDST
TUMBLE TABLE

000400

.BLKW

256.

004000

ENDTT=,

o=,

3
PAGE 15

;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

.SBTTL

003000
003000

MACY11 30A(1052)

;START OF

STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS
STATUS

SEQ 0029
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE

TUMBLE TABLE

;RESERVE 265. WORDS FOR TT

IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST
IS AT ERRDST

CZDXHDO DX11B ONLINE EXER

S,NWNV=O

—

00 0o 00 0o 00

22288

CZDXHD.P11

815

07-JuL-78 12:52

MACY1T 30A(1052) TEST
07-JUL-78
12:S§PAGE 16
170 COMMAND
*

AR RARARRRRA AR AAR AR AN

JTEST

TST1:

SCOPE

004000

004002
004010
004016
004024

104400

012737
012737
012737

000200
000001
004024

011654
012636
011660

SEQ 0030

——

MOV
MOV
MOV

.REM

TEST 1/0 COMMAND

#200,a#1COUNT
#1,3%ERTSTN
#SCP1,3#RETURN

R AR AR AR

R AR AR RN AR RN

RN AR

R AR

;ITERATION COUNT
sSAVE TEST # FOR ERROR REPORT
;SCOPE LOOP RETURN ADRS

THE FUNCTION OF THIS TEST IS TO VERIFY THE DX11 CAN RESPOND TO A
TEST 170 COMMAND.

824

004024

012737

014216

MOV

006366

MOV

012106

MOV
JSR

177776

#T10C,a#CMD

:LOAD COMMAND

#CHIS ,@#ENTRY1

;LOAD EXPECTED TT ENTRY 1

JSR

PC,a#TRAINT

MOV

aNLESS1,PS

¥. NTERPC
PC,1S5.5UB

sTT TRACE TRACE INIT

;LOWER PROCESSOR STATUS

;ORIGIN OF TRAP ERROR
sSELECT

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07=JuL=78 12:52

MACYTT 3?3(1052)

833
835

004064

839
840

004110

104400

836 004066 012737 000200 011654
837 004074 012737 000002 012636
838 004102 012737 004110 011660

842
843
845
846
847
848
849
850
851
852
853
g?s’

07=JuL=78 12:55
ILLEGAL COMMAND

PAGE 17

133333333333 323232333333333232323323333233233233332333333333233232323233232321%]

;

1333233333333 3333233323333323333333333333333333332332333333323323322703 2/

STEST

ay.

TST2:

SCP2:

SCOPE

MOV
MOV
MOV

ILLEGAL (OMMAND

#200,@#1COUNT ; ITERATION COUNT
#2, NERTSTN
*SAVE TEST # FOR ERROR REPORT
#SCP2,3#RETURN :SCOPE LOOP RETURN ADRS

THE FUNCTION OF THIS TEST IS TO VERIFY THE DX11 RESPONDS CORRECTLY
TO AN ILLEGAL COMMAND (I1.E. PRESENTS UNIT CHECK).
L ]

004110 042737 000400 010222

BIC

004116
004124
004130
004136
004144
004152

006366
177776
012106

MOV
JSR
MOV
MOV
MOV
JSR

;ILLC PRESENTS UNIT CHECK STATUS
:THIS CAUSES CMDREJ
:THEREFORE CHANGE 1SS DIAGNOSTIC
“TO LOOK FOR CMDREJ UP
#ILLC,a#CMD
*LOAD COMMAND
PC, ¥ TRAINT
TT TRACE TRACE INIT
MUCHKS
' CHIS ! CMDREJ ,a¥ENTRY1
:LOAD EXPECTED TT ENTRY1
SMLESST,PS
;LOWER PROCESSOR STATUS
.. WTERPC
*ORIGIN OF TRAP ERROR
PC.1SS.SUB
sSELECT

ggg 004156 052737 000400 010222

BIS

#400, I1SSCRJ

858

012737
004737
01§7§7
013737
012737
004737

000405
006542
002201
001272
004144
007446

014216

#400, 1SSCRJ

;RESTORE ISS TO LOOK FOR NOT CMDREJ

SEQ 0031

CZDXMDO DX118 ONLINE EXER

CZDXHD.P11

07=JUL=78 12:52

MACY11 30A(1052) 07=JuL-78 12:52 PAGE 18
13

SEQ 0032

859

:tt.ttt..t"'t."t.tt.".t'.".tt...QQQQQQ.Qt.'t!'.'.tt...tt..tt

“1

860

STEST

862

004164

104400

864
865
866
867

004174
004202
004210

012737
012737

863 004166 012737 000200 011654

869

871

872

873

874

SENSE COMMAND

2232333333333 333332332323232232333333333332333333233333333333332323332331

TST3:

SCOPE

MOV

#200,3#1COUNT ; ITERATION COUNT
#3,a4ERTSTN
#SCP3,3#RETURN

JSAVE TEST # FOR ERROR REPORT
;SCOPE LOOP RETURN ADRS

004210 012737 000004 014216

MOV

#SENSEC,a#CMD

;LOAD COMMAND

004222

#CHIS,SN#ENTRY1

;LOAD EXPECTED TT ENTRY 1

000003
004210

004216

004737

006542

90‘230

013737

001272

0046236

012737

012636
011660

SCP3:

MOV
MOV

JSR

000200

006366

MOV

004236

012106

MOV

g;g 0046244 004737 007446

177776

PC,a#TRAINT

MOV

a#LESST,PS

JSR

PC.1SS.SUB

#.,WTERPC

:TT TRACE TRACE INIT

;LOWER PROCESSOR STATUS
JORIGIN
OF TRAP ERROR

sSELECT

877
878

004250

000001

014252

MOV

#1,COUNT

881

004272 052777 000005

175000

BIS

#DXFO'GO,30XCS

200 006366

MOV

#CHIS,@¥ENTRY1

889 004336 012737 004336 012106
gg? 004344
011020
892 004350 012737
006366

MOV
JSR
MOV

#. aNTERPC
*DEFINE ORIGIN
OF TRACE ERROR
PC.CUIS.SUB
;EXECUTE SELECTION
#CUDEND , a¥ENTRY
:LOAD EXPECTED TT ENTRY 1

89
895

006427
174726

MOV8
MOVEB

#1 ,NENTRYZ2+1
a#DEV,aCUAR

MOvB

012737

879 004256 012777 177777 175022
880 004264 012777 014240 175012

882
883

884 004300 012737

[

SENSE COMMAND

885
886
887
888

004306
004314
004322
004330

113737
113737
113777
113777

014214
014216
014214
014216

0064
006427
174776
174772

893

004356

113737

014214

006426

004364
004372

112737
113777

1
014214

899 0064420

113737

014214

006426

904
905

11573
113777

000001
014214

006427
174644

MOV
MOV

MOVB
MOVEB
MOVB
MOVB

MOVB

89 006400 012737 104400 012106
897 004406
007142
898 004412 012737 001100 006366

900
032737 000004 013602
901 004434
001
9o§ 004436 112737 000000 006427
903 0044kl
004446
004456

906 006462 012737 004462 012106
% 006470 004737 007044

909

1%
2%

JINIT SOFTWARE BYTE COUNTER

#-1,aDXBC
#SSTAT, aDXBA

*SET UP DX BYTE COUNT
DX BASE ADDRESS

*FUNCTION OUTPUT & GO

JSERVICE=IN SHOULD RISE AND
;(SSTAT) SHOULD BE ON BUS~IN

;LOAD EXPECTED TT ENTRY1

SMDEV,SNENTRY2 :SECOND TT ENTRY = DXCA
a#CMD.aWENTRY2+1
:
@#DEV.aCUAR
:LOAD DEV ADRS
a#CMD.aCUCR
:LOAD COMMAND IN CUCR

@#DEV,asENTRY2

*SECOND TT ENTRY = DXCA

MOV
JSR
MOV

#. WTERPC
PC. TRANSFER

#CHENDS 'ESEND ,@#ENTRY1

*DEFINE ORIGIN
OF TRACE ERROR
DO TRANSFER IF REQUIRED
:LOAD EXPECTED TT ENTRY1

BIT
BEQ
MOVB
B8R

#8172, MPARA
18
#0,aVENTRY2+1
23

STEST FOR MUX
*BR IF SELECTOR
SMUX TT CUCR
GO0

MOV
JSR

. aTERPC
PC_STATUSPRESENTATION

MOVB
MOVEB

NDEV.UENTRY?

#1,NENTRY2+1
a#DEV,aCUAR

JCUCR OF DXCA TT ENTRY
:LOAD DEV ADRS

JSECOND TT ENTRY = DXCA

JCUCR OF DXCA TT ENTRY
:LOAD DEV ADRS

*DEFINE ORIGIN
OF TRACE ERROR
:PRESENT STATUS

CZDXHDO DX118 ONLINE EXER
CZDXHD.P11
07-JUL-78 12:52

H 3
MACY11 30A(1052) 07=JUL=78 12:55 PAGE 19
T4
READ COMMAND (PDP OUTPUT)

910

911

STEST

912

913

004474

917
918
919

004520

104400

914 004476 012737 000100 011654
915 0045064 012737 000004 012636
916 004512 012737 004520

gg?

1223333333333 3333333333232 3233333332333 3333333333333 232323333 2232233+

READ CCMMAND (PDP OUTPUT)

2222333333333 33 3333333323333 333 3333333323323 233333333333332333331

TsT4:

SCP&:

SCOPE

MOV
MOV
MOV

#100,@#1COUNT ; ITERATION COUNT
#4 ,QNERTSTN
*SAVE TEST # FOR ERROR REPORT
#SCP4,a#RETURN :SCOPE LOOP RETURN ADRS

REM

922

THE FUNCTION OF THIS TEST IS TO VERIFY THAT THE DX11 CAN PROPERLY

923
924
925

EXECUTE A READ COMMAND AND SUPPRESS DATA DURING THIS TRANSFER.
THIS 1S ACCOMPLISHED BY EXECUTING A CHANNEL INITIATED SELECTION
FOLLOWED BY A CONTROL UNIT INITIATED SELECTION IF THE DX11°'S SIM-

926
927
928
929

ULATOR IS MIMICING A MULTIPLEXOR CHANNEL. FOLLOWING THE COMPLETION
OF A SUCCESSFUL SELECTION THE DX'S BYTE COUNT IS SE7 TO 256. AND
ITS BUS ADDRESS REGISTER 1S LOADED TO POINT TO 'DATA'' A FILE OF
128. WORD OF FLOATING 1'S AND FLOATING 0°'S. THIS INITIALIZATION

932
933
934

DURING THE ENTIRE TEST ALL TUMBLE TABLE ENTRIES ARE TRACED. PRIOR
TO EACH ANTICIPATED 'DONE'* THE EXPECTED TUMBLE TABLE ENTRIES (DXDS
AND DXCA) ARE LOADED INTO ENTRY1 AND ENTRY2 RESPECTIVELY THEN UPON

936

ENTRIES ALONG WITH THE EXPECTED TTNDX CONTENTS.

gg?

ifo rgéLouso BY SETTING THE DX FUNCTION BITS TO A FUNCTION-OUTPUT

935

SEQ 0033

INTERRUPT THESE EXPECTED ENTRIES ARE COMPARED WITH THE ACTUAL TT

937
o938

31.33

DATED PRIOR TO EACH ANTICIPATED 'DONE'' BY A MOV #.,aW#TERPC.

THE TRANSFER OF DATA FROM THE DX11 TO THE CHANNEL SIMULATOR IS

9%2
9%3
944

CONTROLLED BY THE SRVO-SRV1 SEQUENCE. DURING THIS SEQUENCE DATA
CHECKS ARE MADE AND SUPPRESS DATA IS CHECKED BY RAISING SUPO IN
RESPONSE TO SRV1 AND THEN RATTLING SRVO. NO DATE TRANSFER SHOULD

3",,2

947

98
9%9
950
951
952
gssz
955

956
957
958
959

TAKE PLACE IF SUPO IS RAISED AFTER THE FIRST BYTE.

964
965

004520
oocsig
004532
004540
004546
004554

012737
004737
012737
013737
012737
004737

000002 014216
006542
000200 006366
001272 177776
004546 012106
007446

MOV
JSR
MOV
MOV
MOV
JSR

#READC,@#CMD
PC,a#TRAINT
#CHIS,S#ENTRY1

004560
004566
004574
004600

012737 000400 ougss
012777 177400
17451
012701 8520‘
012777
022042
174476

MOV
MOV
MOV
MOV

#256. , COUNT
#-256. ,aDXBC
#DATA R
#DATA . DXBA

960 004606 052777

91
%g

IF A DISCREPANCY

OCCURS IT IS NOTED BY AN ERROR PC AND A TRACE ERROR ORIGIN PC.
THE ORIGIN OF THE TRACE ERROR IS CONTAINED IN TERPC WHICH IS UP-

004614 ovgm
004622
006630

113737
113737

174464

014214
014216

006366
oousg
0064

8IS

MOV

MOVB
MOVB

SMLESST,PS
. WNTERPC
PC.15S.5U8

#DXFO,@DXCS

#CHIS,SFENTRY]

;LOAD COMMAND
.
STT TRACE TRACE INIT
:LOAD EXPECTED TT ENTRY1
:LOWER PROCESSOR STATUS
*ORIGIN OF TRAP ERROR
sSELECT
:SOF TWARE BYTE COUNT
DX BYTE COUNT
*BASE ADRS OF TEST DATA
SFLOAT 1'S, 0'S OUTPUT DATA

SFUNCTION OUTPUT AND GO

*SERVICE=IN SHOULD RAISE AND
:DATA SHOULD BE ON BUS~IN

;LOAD EXPECTED TT ENTRY 1

@#DEV.@#ENTRY2
:SECOND TT ENTRY = DXCA
a#CMD.AFENTRYZ2+1
;

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11

07-JUL=-78 12:52

MACY11 30A(1052) 07=JuL~78 12:s§ PAGE 20
T4

967

004636
004644

113777
113777

014214
014216

174462
174456

971

004664

112737

000001

006427

973
976
975
976
977
978
979

004700
004706
004714
004716
004720
004726
004726

012737 004700 012106
032777 002000 174376 RCO:
001001
104000
127711 174416
001401
104000

004652 012737 004652 012106
3678 004660 004737 011020

980

|
|

004730
004732
004740

997

005020

983
984
985
986
987
988
989
990
991
992
993
99
995
996

004746
004750
004752
004760

105721

052777
032777

001000
001000

@#DEV,aCUAR
a#CMD,aCUCR

MOVEB

#1,a¥ENTRY2+1

174350
174342

005022
005030
005036
005040
005042

1004
1005
1006
1007
1008
1009
1010
1011
1015

005056
005060
005062
005070

1014
1015
1019
101
1018
1019
1020
1021

005110
005112
005120
oos%
0051
00518
005140
005142

001001
104000
032737 000004 013602
001005

MOV

#. . WTERPC
PC.CUIS.SUB

SEQ 0034

:LOAD DEV ADRS
SLOAD COMMAND IN CUCR

*DEFINE ORIGIN OF TRACE ERROR
;EXECUTE SELECTION

MOV
BIT
BNE
ERROR
CMP8
BEQ
ERROR

#CUDEND , S#ENTRY1
:LOAD TT ENTRY
#. aNTERPC
“READ DONE TT TRACE ERROR PC
#SRVI ,3DXMI
*WAIT FOR SERVICE=IN
.+
:BRANCH IF NO ERROR CONDITION
:SRVI NOT SET
@aBUSI,aR!
:CHECK DATA TRANSMITTED TO 360
.+
;BRANCH IF NO ERROR CONDITION
*MEMORY TO BUSI TRANSFER ERROR

BIS
BIT

#SRVO, aDXMO
#SRVO,3DXMO

TSTB

(R1)+

;INC TO NEXT BYTE

BNE
.+
;BRANCH IF NO ERROR CONDITION
ERROR
;
*SRVO NOT SET
BIT
#BIT2,PARA
:TEST FOR
MUX MODE
BNE
RC1
;WHEN ON MUX CH OPLI WILL DROP WHEN TRANSMISSION IS FINISHED
STHIS WILL CAUSE DXMI TO BE UNREADABLE
004762 032777 002000 174322
BIT
#SRV] ,aDXMI
:SERVICE=IN SHOULD DROP
004770 001401
BEQ
.+
;BRANCH IF NO ERROR CONDITION
004772 104000
ERROR
*SRVI STUCK HIGM
004776 052777 010000 174306 RC1:
BIS
#SUPO, aDXMO
:SET SUPPRESS-OUT
005002 032777 010000 174300
BIT
#SUPO, 3DXMO
*VERIFY SUPO SET
005010 001001
BNE
.+
;BRANCH IF NO ERROR CONDITION
005012 104000
ERROR
SSUPO NOT SET
005014 012727 000010
MOV
210, (PC)+
:SRVO COUNT

998
999
1000
1001
1002

000000

RC2:

052777 001000 174260 RC3:
032777 001000 174252
001001
104000
042777 001000 174240

1003 oosos5 032777 001000 174232

1013

MOVEB
MOVB

MOV
JSR

972 004672 012737 000020 006366

981
982

READ COMMAND (PDP OUTPUT)

001401
104000
032737 000004
001005

013602

005072 032777 002000 174212
005100 001401
005102 104
005106

005337

005020

001344
042777 010000 174170
032777 010000 174162
001401
104%
032
001000 174150
001401
104000

BIS
BIT
BNE
ERROR
BIC

#SRVO, aDXMO
#SRVO.aDXMO
L+

BIT

#SRVO, 3DXMO

DEC

#SRVO, 3DXMO

*SRVO COUNT

*KEEP SRVO CHANGING
VERIFY SRVO SET
;BRANCH IF NO ERROR CONDITION
:SRVO DID NOT SET
kit
"

*VERIFY SRVO CLEAR

BEQ
.+
;BRANCH IF NO ERROR CONDITION
ERROR
*SRVO NOT 0
BIT
#B]T2,PARA
:TEST FOR MUX MODE
BNE
RC4
;WHEN ON MUX CH OPLI WILL DROP WHEN TRANSMISSION IS FINISHED
STHIS WILL CAUSE DXMI TO BE UNREADABLE
BIT
#SRV],30XM]
:SUPO SHOULD SUPPRESS SRVI SETTING
BEQ
.+
:BRANCH 1F NO ERROR CONDITION
ERROR
“SRVI WAS NOT SUPPRESSED BY SUPO

RC4:

BNE
BIC
BIT
BEQ
ERROR
BIT
BEQ
ERROR

RC
#SUPO, 3DXMO
#SUPO . aDXMO
.+
#SRVO, 3DXMO
.+

:DEC SRVO COUNT

*BRANCH IF SRVO NOT DONE
*DROP SUPPRESS=0UT
“VERIFY SUPO CLEAR
:BRANCH IF NO ERROR CONDITION
:SUPO STUCK HIGH
;BRANCH IF NO ERROR CONDITION
*SRVO STUCK HIGH

CZDXHDO DX11B ONL INE XER
12:52
CZDXHD.P11
07-JuL-

005144

005337
26

MACYT1 SOA(‘lOSZ) READ
07-JuL=-78
12:SgPAGE 21
COMMAND (PDP OUTPUT)
DEC

014252
001100
014214
000004
000000

000001
014214
005222
007064

006366
006426
013602
006427
006427
1764104

012106

18:

2%:

COUNT

BNE
MOV
MOVB
Sé{,
Bng\m

RCO
#CHENDS
' ESEND ,a#ENTRY1
@#DEV,aNENTRYZ
oanz SNPARA
g.mnmzn

MOVB

#1,@0ENTRY2+1

MOV

#. WTERPC

MOVB

JSR

SEQ 0035

a#DEV,aCUAR

PC,STATUSPRESENTATION

;LOAD EXPECTED TT ENTRY 1

= DXCA
sSECOND TT ENTRY
;TEST FOR MUX

:BR IF SELECTOR
:MUX TT CUCR
;GO

:CUCR OF DXCA TT ENTRY
:LOAD DEV ADRS
;DEFINE ORIGIN OF TRACE ERROR
sPRESENT STATUS

CZDXHDO DX118 ONLINE EXER
CZDXMD.P11
07-JUL~78
12:52
|

K 3
MACY11 30A(1052]
07-JUL-78 12:55 PAGE 22
15
WRITE COMMAND (PDP INPUT)

1037

1038

1039

1040

005234

1044
1045
1046

005260

104400

| 154
|

1 3333333333333 33333 3333333333333 33332333333333233332333332332322323323]

2333332333333 23333333233333233333
3333333333333 33333333333323332322333]

STEST

1041 005236 012737 000100 011654
1042 005244 012737 000005 012636
1043 005252 012737 005260 011660

TSTS:
SCPS:

SCOPE

MOV
MOV
MOV

WRITE COMMAND (PDP INPUT)

#100,3#ICOUNT ; ITERATION COUNT
#5,Q¥ERTSTN
*SAVE TEST # FOR ERROR REPORT
#SCPS,a#RETURN :SCOPE LOOP RETURN ADRS

1049
1050
1051

THE FUNCTION OF THIS TEST IS TO VERIFY THAT THE DX11 CAN EXECUTE
WRITE COMMANDS FROM THE CHANNEL SIMULATOR.
THIS TEST IS IMPLEMENTED MUCH LIKE THE READ TEST IN THAT THE TRANSFER IS 256. BYTES,

}8552

IN; THE DIRECTION AND TYPE OF DATA.

1052

TT TRACING IS DONE AND SUPPRESS DATA IS ALSO CHECKED.

1057 005260 012737 000001

TT DIFFERS

014216

MOV

MRITEC,#CMD

;LOAD COMMAND

1059 005272 012737 000
1060
013737 001272 177776
1061
012737 005306 012106

MOV
MOV
MOV

#CHIS,SMENTRY1
SLESST . PS
. NTERPC

:LOAD EXPECTED TT ENTRY 1
:LOWER PROCESSOR STATUS
:ORIGIN OF TRAP ERROR
sSELECT

1058

004737

}% 005314

006542

JSR

007446

PC,a#TRAINT

JTT TRACE TRACE INIT

JSR

PC.1SS.SUB

1065 005320 012737 000400 014252
1066 005326 012777 177400 173752
1067 005334 012777 023442
173742

MOV
MOV
MOV

#256. , COUNT
#-256. ,aDXBC
MNPRDATA , 3DXBA

:SOF TWARE COUNTER
:DX BYTE COUNT
SADRS FOR DATA FROM 360 SIM

1069 005346 012701

MOV

MIDATA R1

SWRITE DATA FOR 360 SIM

1064

1068

005342

012702

1070

005352

052777

000003

173720

1072
1073
1074
1075

005366
005374
oos‘os
005410

11 g;
113
113777
113777

014214
014216
014214
014216

006426
006427
173716
173712

1071

02244

MOV

BIS

005360 o1§m 000200 006366

MOV

1076 005416 012737 005416 012106
}8;; 005426 004737 011020
1079

1080 005430 015737 0079%9
1081

005436

112737

005444 012737 005444

0054

108

m 051177

1090
1091

005500
005506

1084
1085

oou&

0121

32777 002000 wgesz

001001
10‘099

121177 1730.33

1088 005474 001401
1089 005476 10‘%
05
032777

1092 005514 001001

001%
001

1
173574

#DXF
1 !GO, aDXCS

JINPUT FILE FOR NPR DATA

SFUNCTION INPUT & GO (360 WRITE)

#CHIS.SMENTRY]

;LOAD EXPECTED TT ENTRY 1

MOV
JSR

8. . aNTERPC
PC.CUIS.SUB

“DEFINE ORIGIN OF TRACE ERROR
;EXECUTE SELECTION

MoV

#CUDEND , a¥ENTRY1

MOV

BIT

#SRV],3DXM]

8IS

(MP8

aR1,a8USO

BEQ
ERROR

BIS
BIT

#SRVO, 3DXMO
#SRVO
. 3DXMO

MOVB
MOVB
MOVB
MOVE

Wweo:

#NPRDATA R2

MOVB

BNE
ERROR

BNE

@#DEV.SMENTRY2
:SECOND TT ENTRY = DXCA
@#CMD.IWVENTRYZ2+1
:
@#DEV.aCUAR
:LOAD DEV ADRS
a#CMD.aCUCR
SLOAD COMMAND IN CUCR

#-1,a#ENTRY2+1

#. SNTERPC

@R1.aBUSO
.+

:TT ENTRY 1

SFAKE CUCR OF ENTRY 2

*WRITE TRACE ERROR

‘WAIT FOR SERVICE-IN

;BRANCH IF NO ERROR CONDITION
*SRVI NOT SET
:PUT DATA ON BUS=OUT

“VERIFY LOAD

;BRANCH 1F NO ERROR CONDITION
*BUSO INTO MEMORY DATA TRANSFER ERROR
;BRANCH IF NO ERROR CONDITION

SEQ 0036

CZDXHDO DX118B ONLINE EXER

1CZI)XM).P‘I“
1093
1094

1095
1096
1097
1098
1099
1100

07-JuL-78

005516

005520

005530
005536
005542
005544

104000
032737

001005
032777
001401
104000
005721
105722

12:52

MACY11 30A(1052) 07-JuUL-78 12:S§ PAGE 23
5

000004

013602

002000

173554

WRITE COMMAND (PDP INPUT)

ERROR
BIT

wC00:

BNE
BIT
BEQ
ERROR
TST
TSTB

#B81T2,FARA

wC00
#SRVI,aDXMI
.+
(R1)+
(R2)+

1101
Hgg

005546
005552

032702
001016

000001

BIT
BNE

#8IT0,.R2
wC1

1104
1105
1106
1107
1108

005554
005560
005564

162701
162702
121112
001401
104000

000004
000002

sus
suB
CMP8
BEQ
ERROR

#4 ,R1
#2.R2
aR1,aR2
.+

1110
1111
111%
H}‘

005574
005576

TSTB
CMP8
BEQ
ERROR

(R2)+
aR1,aR2

005602

105722
121112
001401
104000

1115
1116

005604
005606

005721
105722

TST
1ST8

(R1)+
(R2)+

1109

1117
1118
1119
1120
1121
1122
1123
1124

005570
005572

005610
005616
005624
005626
005630
005634

005721

052777
032777
001001
104000
012727
000000
052777
032777

1125 005652 001001

1126
1127
1128

005654
005656
005664

104000
042777
032777

1130

005674

104000

113;
113
1134
1135

005704

1129 005672 001401
1131

1140
1141

010000
010000

173472
173464

000010
001000
001000
001000
001000

173444
173436

032737

000004

013602

005706

032777

002000

173376

005716
005720
005726

104000
005337
001344

oosg
005

001005

001401

042777
032777

116§ 005742 001401

UC;:

W(3:

sSRVO DIb NOT SET
sCLLAR SRVO
: VERIFY SRVO CLEAR

ERROR

BIT

#81T2,PARA

BEQ

:BRANCH 1F NO ERROR CONDITION
:SRVO NOT 0

sTEST FOR MUX MODE

;BRANCH 1F NO ERROR CONDITION

ERROR
DEC
BNE

UC;
w(

sSRVI WAS NOT SUPPRESSED BY SUPO
;DEC SRVO COUNT
sBRANCH IF SRVO NOT DONE

BEQ

:BRANCH IF NO ERROR CONDITION

8IC
BIT

ERROR

#SUPQ, 3DXMO
#5UP0, aDXMO

173334

8IT

#SRVO,3DXMO

005754

042777

001777

17%%%8

BIC

#SRVO!777 ,8DXM0

1148

005

001401

BEQ

;@i 2iC1* 1F NO ERROR CONDITION

BNE
wCé
JWHEN ON MUX CH OPL] WILL DROP WHEN TRANSMISSION IS FINISHED
sTHIS WILL CAUSE DXMI TO BE UNREADABLE
BIT
#SRVI,aDXM]
;SUPO SHOULD SUPPRESS SRVI SETTING

001000
001000

;VERIFY 2ND BYTE TRANSFER

;BRANCH IF NO ERROR CONDITION
;SECOND DATA BYTE INTO MEMORY

#SRVO,aDXMO
#SRVO,aDXMO

032777

;VERIFY 1ST DATA BYTE TRANSFER
sBRANCH IF NO ERROR CONDITION
;BUSO INTO MEMORY DATA TRANSFER ERROR

ERROR
8IC
BIT

005746
oos;%

sTEST FOR EVEN BOUNDRY

#SRVO, aDXMO
#SRVO0,a0XMO

#10,(PC)+

005744

114

sBRANCH IF NO ERROR CONDITION
sSRVI DID NOT DROP

:SET SUPPRESS-OUT
:VERIFY SUPO SET
sBRANCH IF NO ERROR CONDITION
:SUPO NOT SET
:SRVO COUNT
:SRVO COUNT
:KEEP_SRVO CHANGING
: VERIFY SRVO SET

BEQ

#SUPO, 3DXMO
#SUPQ, 3DXMO
.+

;SRVO NOT SET
sCAN'T LOOK AT SRVI ON MUX CH

BIS
BIT
BNE
ERROR
MOV
0
BIS
BIT

BNE

wCé:

173354
173346

(R1)+

1143

”2;

1%%

005634

010000
010000

wWC1:

173424
173416

005676

1136 005714

1137
1138
1139

TST

SEQ 0037

BIT

#SRVO,3DXMO

sDROP SUPPRESS~OUT
: VERIFY SUPO CLEAR

sSUPO STUCK HIGH

;CLR SRVO AND BUSO+PARITY
JBRANCH IF NO ERROR CONDITION

CZDXHDO DX11B ONLINE

CZDXHD.P11
1149

1150

07-JuL~78

005772

005774

104000

005337

1151
115%

006000
006&5

001213
012737

1154
1155
1156

006016
006024
006026

006036

1153

1157

1158

1159
1160
”g}

1163

006010

006034

006044
006052
006060

EXER

12:52

MACY11 30A(1052)

DEC

006366

032737
001404
112737

000004

013602

000000

006427

112737

177777

006427

BNE
MOV

113737 014214 006426

113777
012737
004737

014214
006052
007064

173254
012106

MOV
BIT
BEQ
MOVB

18:

28:

12:55

PAGE 24

WRITE COMMAND (PDP INPUT)
ERROR

014252

001100

000403

07-JuUL-78

MOV

MOvB
MOV
JSR

COUNT

SEQ 0038

sSRVG DID NOT DROP

wCo
#CHENDS
! ESEND ,a#ENTRY1

;LOAD EXPECTED TT ENTRY 1

#B1T2,3NPARA
1$
#0,QFENTRY2+1

sTEST FOR MUX
sBR IF SELECTOR
sMUX TT CUCR

@DEV, MENTRY?
2%

#=1,NENTRY2+1

a#DEV,aCUAR
#. ,¥TERPC
PC,STATUSPRESENTATION

sSECOND TT ENTRY = DXCA
;GO

sCUCR OF DXCA TT ENTRY

;LOAD DEV ADRS
;DEFINE ORIGIN OF TRACE ERROR
;PRESENT STATUS

CZDXHDO DX118 ONLINE

07-JuL=78

CZDXHD.P11

EXER

12:52

MACYT 3%“052)5 07-JUL-78

ND OF TEST STRING

1164

11“

1165

STEST

TsT6:

1171

SCP6:

006110

L L

PAGE 25

bl bdbinbbiiiioibibbbb b b AL AL AL AL AL LA LA LA Ll

END OF TEST STRING

SCOPE

s ITERATION COUNT
#1,a#1 COUNT
“SAVE TEST # FOR ERROR REPORT
#6. WERTSTN
#SCP6,3¥RETURN :SCOPE LOOP RETURN ADRS

MOV
MOV
MOV

H%’;

REM

1176

THIS TEST FUNCTIONS AS A TERMINATOR FOR THE CHAINABLE TEST STRING.

AS SUCH IT TRANSFERS CONTROL TO THE LOOP CONTROL SUBROUTINE.

1179

ug 006110 000137 013666

JMP

]
1184
1185

ugg

006116

000002

FALSE:

ERROR

006120
006126
006130
006132

032777 000200 173152 INTR:
001001
104%
8‘55
000200 173140

BIT
BNE
ERROR
BIC

006114

1191
mg
1193
1194
1195

006140

104000

737

ngg 006146
“g 006150

100000

006150

000000

;FALSE OR UNEXPECTED INTERRUPT

RTI

#DONE ,aDXCS
.
#DONE , 3DXCS

BIS

#INTOK,INTPAS

RT]

INTPAS: 0

1200

:TEST DONE
*BRANCH ON DONE
SFALSE INTERRUPT
“CLEAR INT CONDTION
:SET INT PASS FLAG

: INTERRUPT PASS FLAG

12285 0061
006152

1205 006160
1206 %1&
1%
16
}
006174

032737

100000

006150

INTERR:

001405
06271 om
IRR2:
042737 1
006150
000207
IRR:

BIT

BEQ
ADD
BIC
RTS

#INTOK,INTPAS

IRR
#2,35P
#INTOK,INTPAS
PC

;DID INTERRUPT OCCUR

*BRANCH IF NOT
*INC RETURN PC
;CLEAR PASS FLAG

} 1c1;

:ZEROTT, ROUTINE TO 2ERO TUMBLE TABLE

1 i 006176
1
006176
121%
1215
1 9

010146
10%6
13701 m
rof

ZEROTT:

1219

1
1218

:INTERR, ROUTINE TO TEST FOR SUCCESSFUL INTERRUPT

}201

1204

SFLPCNTL

: INTERRUPT HANDLERS

1188

”33

SEQ 0039

ttt...t..!.t'...t't.t"""tt.tt't'tttt.Q.t"tt...t.ttt.'tt..tt

1167 006064 104400

1168 006066 012737 000001 011654
1169 006076 012737 000006 012636
1170 006102 012737 006110 011660
172
1173

12:55

2T71:

MoV
MOV
MOV
MOV

R1,=(SP)
R2.=(SP)
TR
#256. .R2

BNE

CLR
DEC

(R1)+

CZDXHDO DX11B ONLINE EXER

CZDXMHD.P11

07=JUL=78 12:52

MACY11 30A(1052) 07-JuL-78 12:52PAGE 26
T6

1220 006220 012602
1221 006222 012601
}gg.%

006224

MOV
MOV

000207

RTS

006226

TTZERO:

1227 006226 010146
1228 006230 010246
1229 006232 013701 001440

1230 006236 012702 000400
1231

006242

005721

1234

006250

005302

}g:;g

006260

000207

1240
1241

006262

1246

006302

TT21:

1232 006244 001401
1233 006246 104000
1235 006252 001373
1236 006254 012602
1237 006256 012601

1262 006262 032777
1243 006270 001001
1264 006272 104000
1245 006274 042777

032777

000200

173010

000200

172776

000200

TST

(R1)+

MOV

BEQ
ERROR

001005

1259

006334

005737

1263

006346

005741

1266

006354

005721

006360

000000

1260 006340 001401
1261 006342 104002
1262 006344 000404

RTS

#DONE ,aDXCS
.+

BEQ
ERROR
MOV

#DONE ,aDXCS

#DONE
, 3DXCS

#SEL.X,=(SP)

MOV

R1,-(SP)

BNE

MOV
cMP

003776

1%:

006350 001401
006352 104002

BEQ
TRACER
B8R
ST

BEQ
TRACER
ST

2s:

1269
1270
1271
1272
1273
1274

CMP
ENTRY1: 0
BEQ
MOV
MOV
TRACER

005037

006366

MOV

SENRY1: 0

023727 006360

006370 001407
006372 013737 006360
006400 013737 006366
006406 10400,
006410

;BRANCH IF NO ERROR CONDITION
SILLEGAL TT ENTRY

TT21
(SP)+,R2
(SP)+.R1

BIT
BNE
ERROR
BIC

1267 006356 011127

1275

:CHECK DONE
sBRANCH IF NO ERROR CONDITION
sFALSE INTERRUPT
:CLEAR DONR

;BRANCH IF NO ERROR CONDITION
:DONE NOT CLEAR
*FAKE A JSR PC,TT.TRACE
:

TT.TRACE:

006320 010146

006362

#256. .R2

DEC

BIT

1256 006322 013701 006526
1257 006326 020137 001440
1258 006332

R1,=(SP)
R2.=(SP)
TT.R1

;TT.TRACE, ROUTINE TO TRACE TUMBLE TABLE ENTRIES
SAND THE TTNDX

}ggz 006320

1268

;1SS DONE INTERRUPT SERVICE
SEL .DONE :

172770

1251
1252

1264
1265

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

MOV
MOV
MOV

BNE
MOV
MOV

1247 006310 001401
1248 006312 104000
%3 006314 012746 006540

1255

SEQ 0040

:TTZERO, ROUTINE TO VERIFY TT ZERO

}%Sé
1226

END OF TEST STRING

006534
006536

1$:

CLR

a#TTRACE ,R1
R1,34TT
3776

;LOAD R1 WITH SOFTWARE IT
:CHECK FOR BOTTOM
OF TABLE
*BRANCH IF
:LOOK AT

NOT

BOTTOM

TOP OF TT

*BRANCH IF NO RAP AROUND
*REPORT TT TRACE ERROR

-(R1)

:CHECK FOR TT OVERFLOW

(R1)+

:INC TO ENTRY

(R1),(PC)+
SNSENRY1, (PC)+

*BRANCH IF NO RAP AROUND
*TT OVERFLOW ERROR

*SAVE ENTRY ONE
*HERE

:COMPARE SAVED ENTRY WITH
SEXPECTED ENTRY
*BRANCH IF DXDS ENTRY OK

18
SFSENRY
1, 3N TTWAS
SMENTRY1,a#TTSHOULD
;REPORT TT TRACE ERROR
ENTRY1

CZDXHDO DX118B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:5¢2

006414
006416

005021
0127

006420
006422

000000
023727
000000
001411
013737
013737

0064%8

104002

006640
006446
006450
006454
006456

006470
006474
006500
006502
006506
006514
006520
006522
006524
006526
006530
006532
006534
006536

CLR
MOV

SENRY2: 0
cMP
ENTRYZ2: 0
TT.70:
BEQ
MOV
MOV
TRACER
CLR
28:
CLR
CMP
BNE
MOV

006420
006420
006426

006426
004000
001440
006500
172650

006500
001440
006500

TT.T1:

Tr.m2:

006500

TTWAS :

SEL.X:

h ch

d
o

172540

SNSENRY2, (PC)+
23

sHERE
;COMPARE SAVED ENTRY WITH
:EXPECTED ENTRY
:BRANCH IF DXCA ENTRY OK

WNSENRY2,
¥ TTWAS
QFENTRYZ
,a# TTSHOULD
sREPORT TT TRACE ERROR
ENTRY2
(R1)+
;CLEAR
#TST1.R1
;CHECK FOR SOF TWARE
7.7
:BRANCH IF NO OVERFLOW
aNTT R
wTT. T2

aTTNDX, (PC)+

s SAVE TTNDX

T1.T2
NTT NTT. T2
MTT.T2.R

s SCALE MOD(2)
:ADD BASE OF TT TO INDEX
:COMPARE TT POINTERS

R1,(PC)+

MOV

(SP)+,R1

RTS

sCLEAR ENTRY AND ADVANCE POINTER
:SAVE ENTRY TwWO

0
0

:HERE

sBRANCH IF HARDWARE AND SOF TWARE TT POINTERS MATCH
sREPORT TT TRACE ERROR
sSAVE TT TRACE
sHERE

:RETURN

sACTUAL CONTENTS OF TT

sEXPECTED CONTENTS OF TT

RTI

TRAINT: BIC
MOvB

#77777 ,3DXMO
#SM,aDST

sDESELECT
sRESPONSE TO TEST I0

BEQ
BIS
BIT
BNE
ERROR

11.0
#BSYEN,aDXCS
#BSYEN,a0XCS
L

sBRANCH IF NOT CU BUSY
:SET BSYEN
sVERIFY SET
sBRANCH IF NO ERROR CONDITION
;BSYEN NOT SET

172504

- = PN

T1.0:

17240
17237

#81T1,34PARA

:CHECK FOR CUBSY MODE

MOVB

SMDEV ,NENTRY2

MOVB

@#CMD , ACUCR

LOAD cm

BIS
BIT

#INTEN,30XCS
#INTEN,aDXCS

SET INTERRUPT ENABLE
:VERIFY SET

MOVB

—

§§3

S
-

(R1)+
(R1),(FC)+

TRACER
MOV

BIT

88 S000N

i
o
o
b e

)

D e

)

WWWWWWWWLUIW

077777

ASL
ADD
(MP8

&
PAGE 27

sSUBROUTINE TO INIT DX FOR TT TRACINR

d
D
D

TTSHOULD:

006574

d
—b e ed

Move

TTRACE: 0

540

006542
006550
006556
006564

NN
W

CLR

BEQ

d D e

D e

D D

D e

D D

d D

FRERIRES R P RERP AR LTS 3 §¥§§§§ 3

1276
1277
1278

MACYTT 30A(1052)
07-JuL-78 12:55
Té
END OF TEST STRING

BNE
ERROR
MOV
m

a¥CMD ,SFENTRYZ+1

a/DEV,3CUAR

;SECOND TT ENTRY = DXCA

;LOAD COMMAND IN CUAR

:BRANCH IF NO ERROR CONDITION
s INTEN NOT SET

@#DXPRT ,@DXIS
;LOAD INT STATUS
:gn.m.aoxlv sLOAD INT VECTOR

SEQ 0041

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11
1332
1333

07=JUL~-78 12:52

006674
006676

MACY11 30A(1052)

104000
022626

1334, 006700 000137 012724

12:55

PAGE 28

END OF TEST STRING

0.BRK:

ERROR

;BREAK TRAP IS ILLEGAL

JMP

amoNT
.0

cMP

(SP)+,(SP)+

- SEQ 0042

JRESTORE STACK

1335

sanennnnnnnennanrnnnnwwwtttett MOD APR 74

}ggg

1336

1339

1340
1341
1342

006704

006706

000002

1345
1346
1347
1348

1349
%g(‘)

11740.11/745 RTT

TRACE TRAP MOD

RTX:
RTI
;MODIFIED FOR 11/40.11/45 TO RTT
JERRRRRRANRARANAARAARARARRER MOD APR 74 Attt ttadhdthhthdhthhhhhhn
o
TIMING

006710
006712
006716
006720

006724
006726

000020
013727
000000
005337

001375
000207

SAnaaaaaawndtttttdaeaadadnns

YESRTi: RTI

000002

}3322

DELAY:
RDLAY:
1$:
2$:

006710

006716

MOS.BIPOLAR RESPONSE MOD

20
MOV
0
DEC

BNE
RTS

DELAY, (PC)+

1%
23
PC

;DELAY FOR BIPOLAR MEMORY

1352

JRRRRRANRRARARAARARAAAARCRAS MOD APR

1353
1354
1355
11%(7:

1358
1359

sSETUP, ROUTINE TO CLEAR DX AND SETUP THE FOLLOWING
H
BIT2=
MUX CH

.SBTTL

1360
}%}

1363

|
|

07-JuL-78

13664
1365
1366
1367
1368
1369
1370

3
:
006730

006732
006740
006746
006754
006762
006770
006776

000240

042777
042777
042777
052777
042737
032737
00140;

000200
060000
177000
000010
100000
000001

172340
172342
172336
172336
006150
013602

1371 007000 004737 007414
13;; 007004 112777 000100 172430
1373
007012 032737 000002 013602
1374
1375
1376
1377
1378
1379
1380

}381

1385

0070
007034
007042
007050
007056

007062

1384
1385

1386

1387

007064

001405
052777

105077
012777
013777
052777
005037

000207

004000

172406
006120
001270
100
177776

SETUP:

SP1:

172250
172222
172216
172222

SP2:

SP4:

LSBTTL

* Attt ttthhtrhthhhdhhtns

SETUP SELECTED PARAMETERS

BIT1=
BITO=
NOP

BSYEN
ON-LINE

BIC
BIC
BIC
BIS
B8IC
BIT
BEQ

#DONE ,aDXC(CS
sCLR'DONE''+ THEREFORE ‘10CKO"’
DO!SELO,aDXMO
sGET READY FOR NEXT ISS
#177000,30XM1
;
#TIMDIS ,3DXES
;SET DXTO DISABLE
#INTOK,INTPAS
;CLEAR INTERRUPT PASS FLAG
#8170,PARA
sTEST FOR ONL INE
SP1
JBRANCH IF NOT ONL INE

MOVB

#SM_aDST

BEQ
BIS

SP2
#BSYEN,aDXCS

RTS

JSR
BIT

CLRB
MOV
MOV
BIS
CLR

PC,FOL
#8171,PARA

:DO _FAST ONLINE
JRESPONSE TO TIO
*WAS BSYEN SELECTED

aDST
#INTR,aDXI1V
DXPRT ,aDX1$S
#INTEN,3DXCS
PS

sTI0 GETS STATUS BY HARDWARE
JSET UP DX INTERRUPT VECTOR
JSET UP DX INTERRUPT STATUS
JSET INT ENABLE
;CLEAR PROCESSOR STATUS

STATUS PRESENTATION

STATUSPRE SENTATION:

JBRANCH IF NOT
sSET BUSY ENABLE

JRETURN

STATUS PRESENTATION

000200

172206

BIC

#DONE ,aDX(CS

;CLEAR DONE AND LOCKO

007072

12777

000014

172232

mMovae

#CE+DE ,aCUSR

:LOAD CE/DE STATUS

007100

052777

000007

172172

BIS

#DXFST!GO,aDXCS ;SET FCTN/STATUS/GO

007106
007112
007120

004737
042777
052777

011020
060000
001000

JSR
BIC
BIS

X7,CUIS.suB
sEXECUTE CUIS
#HLDO! SELO,aDXMO
;DROP SELO!HLDO FOR NONZERO STATUS
#SRVO,abDxMO
s SERVICE-OUT UP
sSTATUS=IN SHOULD FALL

007126

042777

001000

172154

BIC

#SRVO,aDxMO

007134
007140

000207

005077

172152

CLR
RTS

aDXMI
X7

007142

007150

032737
001012

000001

—bd

042777

007064

1388
1389
1390
1391
1392
1393
1394
1395
1396
1397

MACY11 30A(1052) 07-JuL-78 12:S§ PAGE 29

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52

014216

s STATUS=IN SHOULD RISE

;CLEAR DXMI

.SBTTL
DATA TRANSFER ROUTINES
TRANSFER:

BIT

:DROP SERVICE-OUT,
sTHIS ENDS ES == ESEND INT SHOULD
;BE UP AND (CUBSY CLEAR
;CHECK FOR INTERRUPTS

#1,CMD

;1S COMMAND READ OR WRITE?

BIS

#SRVO,aDXMO

8IC

#SRVO,aDXMO

DEC
BNE

COUNT
TR.READ
TR.OUT

s SERVICE-OQUT UP
sSERVICE=IN SHOULD FALL
s SERVICE-OUT DOWN
sSERVICE=IN UP AGAIN IF MORE
;LOOP TILL DONE
Sees

BNE

TR.WRITE

JWRITE

;OUTPUT HERE

052777

001000

172130

042777

001000

172122

005337
001367
000416

014252

TR.READ:

: INPUT HERE

052177
052777

062777

i
37
0053

001362

172124

TR.WRITE:

001000

172100

BIS
8IS

(R1)+,38USO
#SRVO, 3DXMO

001
00077
014252

172072
172112

8IC
gég

#SRVO, aDXMO
:azfaeuso

BNE

TR.WRITE

:PUT DATA ON BUS
+ SERVICE-OUT UP
sSERVICE=IN SHOULD FALL
s SERVICE-OUT DOWN
s TAKE DATA OFF BUS (SERVICE~IN UP)

SEQ 0043

CZDXHDO PX118 ONLINE EXER

CZDXHD.P11
;l“lo

07-JUL-78 12:52

007232

MACY11 30A(1052) 07-JuUL-78 12:55
DATA TRANSFER ROUTINES
TR.OUT: RTS

000207

SBTTL

PAGE 30

ONLINE ROUTINE

RERAARRARAAAANAANANS

88
W~

2382

X
3

nNON

88 82

012737

b=t

007234

g
3

1483

% 8 88 && 23

ONLIN, ROUTINE TO SET DX ONLINE
AND WAIT FOR RELAY TO PICK

007412

ONLIN:
OL4:

172024
172016

171762

#10000,CNT

BNE

oLé

(MP

SPW,aDX0S

DEC

MOV
BEQ
ERROR
BIS
BIT

172002
171774

007412

MOV

BNE

ERROR

oLe:

CNT

SPW,aDXx0s
A

#ONL
INA ,aDXCS
#ONL
INA ,aDXCS

MOV
DEC
BNE

#10000, CNT
CNT
oL2

BNE

BIT

ERROR

#ONL
INB ,aDX(B

;WAIT FOR RELAY TO SETTLE

:LOAD DX OFF
sVERIFY OFFS

JBRANCH IF
JONLINA DID NOT SET
JSET UP STALL FOR ONLINE RELAY
;1S DX ONL INE
JBRANCH IF NO ERROR CONDITION
JONLINB DID NOT SET

SEQ 0044

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11

07-JuL~-78 12:52

MACY11 30A(1052) 07-JuL-78 12:5§ PAGE 31
ONLINE ROUTINE

1500
1501
1502
1503
1504
1505
1506

007336
007344
007346
007350
007356
007364
007366

032777
001001
104000
052777
032777
001001
104000

1508
1509
}g}?

007376
007404
007406

032777
001401
104000

1512
1513
1514
1515
1516
}g};

007410
007412

000207
000000

1519
1520
1521

007414
007422
007430

052777
032777
001001

001000
001000

171656
171650

FOL:

BIS
BIT
BNE

#ONLINA ,@DXCS
#ONLINA,3DXCS
.+

;SET ONLINE BIT
;ONLINE REQUEST SET
sBRANCH IF NO ERROR CONDITION

1523

007434

032777

000004

171652

FOL1:

BIT

#ONLINB,.aDXCB

;IS DX ONL INE

007444

000207

RTS

1507

1522
1524

1525
1526
1527
1528

007370

042777

100000

171744

001000
001000

171732
171724

001000

171712

001000

OL3:

171704

CNT:

BIT
BNE
ERROR
BIS
BIT
BNE
ERROR

#0PLO,aDXMO
.+

BIT
BEQ
ERROR

#SRVO, aDXMO
R

#SRVO, aDXMO
#SRVO,aDXMO
¥

8IC

#SRVO,aDXMO

RTS
0

007432
007442

104000

001774

ERROR

BEQ

FOL1

.SBTTL

}gg}

SINITIAL SELECTION SEQUENCE

1534
1535
1536
1537
1538
1539
1540
1541
154%
1543
1544

1545

1546

1547
1548

1549

1550
1551
155;
155
1554
1555

sCHECK SERVICE OUT
:BRANCH IF NO ERROR CONDITION
;SRVO NOT SET
sCHECK SERVICE ouT
;BRANCH IF NO ERROR CONDITION
:SRVO NOT ZERO
sSTALL

;FAST ONLINE ROUTINE

12233

1533

:
sBRANCH IF NO ERROR CONDITION
JARE YOU REALLY MAINTENANCED CABLED?

007446

007446
007454
007456
007460
007466
007474
007476
007500
007506
007510
007512

032777
001401
104000
052777
032777
001001
104000
032777
001001
104
032

WUSO

001001

0075

001401

007522
0075

007542
007544
007552
7554
007556
007564

10‘%

032777

104
032
001401
104
032777
001401

1SS.SUB:

100000

171636

060400
001000

171622
171616

18:

040000

171604

28:

000004

171604

38:

060400
001000

171556
171552

48:

040000

171540

58:

000004

171540

68:

sONLINA NOT SET

;WAIT FOR RELAY TO PICK

INITIAL SELECTION SEQUENCE

BIT
BEQ
ERROR
BIS
BIT
BNE
ERROR
BIT
BNE
ERROR
BIT

BNE

ERROR

#OPL1 ,aDXMI
1$

;1S OPRI CLEAR
:IF YES CONTINUE
:ERROR=0PLI NOT RESET
#PARO!HLDO! SELO,DXMO
#CLKO,aDXMI
;1S CLKO CLEAR
2%
:IF NO CONT INUE
:ERROR-CLKO DID NOT SET
#SELI,aDXMI
;1S SELI CLEAR
3s
:IF NO CONTINUE
;ERROR-SELI DID NOT SET
#SELIBR,ADXEST
;IS SELIBR SET

:IF NO CONTINUE

EW-SELIU DID NOT SET

BIC

#PARO
! HLDO! SELO, 3DXMO

BEQ

8IT

ERROR
BIT
BEQ
ERROR
BIT
BEQ

#CLKO,3DXM]

#SEL],aDXMI]
63
#SELIBR,SDXEST
7$

;1S CLKO CLEAR

:IF YES CONTINUE

:ERROR-CLKO NOT RESET
;1S SELI CLEAR
:IF YES CONTINUE
sERROR-SELI NOT RESET
;IS SELIBR SET
:IF YES CONTINUE

SEQ 0045

040000
020000

171512
171504

7%:

040000
014214
014214

171472

8S$:

171664
171504

D e

014214
014214

171462
171454

#HLDO,aDXMO
#SELO,aDXMO

ERROR
BIC

#HLDO, aDXMO

BEQ

BIS
cMP8

BEQ
ERROR

PAGE 32

DEV,aDXMO
DEV,aBUSO
o

;SELO SHOULD NOT BE SET

sCLEAR HLDO
sLOAD BUSO WITH DEVICE ADRS
sTEST BUSO FOR CORRECT ADRS
;BRANCH IF NO ERROR CONDITION
;BUSO _DID NOT LOAD

004000
000010

171424
171446

ERROR

BIS
BITB

#ADRO, aDXMO
#10,3CONO

:TEST ADRO UP

BIS

#HLDO, aDXMO

:SET _HOLD-OUT

BNE

sBRANCH IF NO ERROR CONDITION
sHOLD OUT DID NOT SET

BNE

ERROR

040000
040000

171404

171376

BIT

ERROR

D i

171364
171406

D D

wvwnw

#HLDO,aDXMO

#SELO,aDXMO

BNE

BITB

#40,3CONO

BIT

#ADRECC ,aDX(B

BNE

BIT

#1SSREJ ,aDXDS

ERROR

BIS

ERROR

171350

000010

171316

171322

SAaaaaaananttt
ettt e e aaaanans

INITIAL SELECTION CLEANUP MOD
DEV,aCUAR
DEV.,aCUAR
.
;BRANCH IF NO ERROR CONDITION
;CUAR BITS 7 THRU 0 FAILURE

MOVB
CMP8
BEQ

vt
W

SEQ 0046

;ERROR-SELIBR NOT RESET
:SET HLDO
sSELO SHOULD NOT SET
sBRANCH IF NO ERROR CONDITION

srennnnnnnnnnnnnnnnnenntteet MOD APR

28288 2IRES S8 3L

ERROR
BIS
BIT

12:55

sennnnnnnnnnnnnnnnnnenettett MOD APR 74

D D i

07-JuL-78

INITIAL SELECTION SEQUENCE

D i

D d i e

L SRR AR L3 S8 S L

1556
1557
1558

MACY11 30A(1052)

BEQ

EHROR

BIT

BNE

ERROR

#OPL]1 ,3DXM]

Sttt aaaaaaatatttt
ettt e avaanes

:SET ADRS-0OUT

;BRANCH IF NO ERROR CONDITION
;ADRO DID NOT SET
;TEST FOR HOLD-OUT UP

sSET SELECT-OUT
sTEST FOR SELECT-OUT
sBRANCH IF NO ERROR CONDITION
sSELECT=0UT DID NOT SET
;WAS CU ADRS RECOGNISED
;1S DEV A VALID CU ADRS
sBRANCH IF NO ERROR CONDITION
;DX DID NOT RECOGNISE CU ADRS
:IF YES CHECK JUMPERS
sADRECC LOGIC
sTEST FOR ISS REJECT

sBRANCH IF NO ERROR CONDITION
;1SS REJECT SET
;0PL]I SHOULD BE UP
sBRANCH IF NO ERROR CONDITION
s0OPL] DID NOT SET
:1S DEV A VALID DEVICE ON CU?

171306
171330

BIC
BITB
BEQ

#ADRO, aDXMO
#10,3C0ONO
.

:DROP ADRS-OUT

013602

BIT
BEQ

#8172 ,PARA
15583

sTEST FOR MUX CH
sBRANCH IF NOT MuX

ERROR

:1S ADRO DOWN

JBRANCH IF NO ERROR CONDITION
;ADRO DID NOT

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52

DROP

CZDXHDO DX11B ONLINE EXER

CZDXMD.P11
1612

07=JUL=78 12:52

MACY11 30A(1052) 07-JuL-78 12:5§ PAGE 33
INITIAL SELECTION SEQUENCE

1613
1614
1615
1616
1617
1618
1619
1620
1222;

010032
010040
010042
010044
010052
010054
010056
010064
010066

042777

032777 020000 171250
001401
104000
9032777 040000 171236
001401
104000
032777 010000 171226 1sS3:
001001
104000

060000

171256

1623

010070

123777

014214

171244

1624 010076 001401
1625 010100 104000

1642

010102
010110
010112
010120
010122
010124
010132
010134
010136
010144
010150
010152
010154

010162

032777
001405
032777
001006
104000
032777
001401
104000
043777
105777
001401
104000
053777

123777

000400 171200
000400 171172
000400 171160 OFF:
014214

171166

171172 RET:

014216 171154
014216

171146

1646 010174 052777 002000

171106

1643 010170 001401
}2‘4;. 010172 104000
1647

132777

000004

1651
1652

010214
010222

032777

000001

1648 010210 001001
}gasg 010212 1

1653
}ggg
1659
1657
}2??,

010222
010224
010226
01023
010236

1660 O1
1661

1664
1665

010256
010264

1
1

171052

:DID SELO CLEAR
*BRANCH IF NO ERROR CONDITION
*REPORT SELO NOT CLEAR
:DID HLDO CLEAR
*BRANCH IF NO ERROR CONDITION
*HLDO DID NOT CLEAR
*ADDRESS=IN SHOULD BE UP
*BRANCH IF NO ERROR CONDITION
:ADRI DID NOT COME UP

(MP8

DEV,aBuSlI

;ADRS SHOULD BE ON BUSI

BIT
BEQ
BIT
BNE
ERROR

#PARO, 3DXMO
OFF
#PAR] , @DXM]
RET
#PAR] ,3DXMI
RET

BEQ
ERROR

TST8

*BRANCH IF NO ERROR CONDITION
*BUSI DOES NOT CONTAIN
*CORRECT ADRS

BIT
BEQ
ERROR
BIC

DEV,aBUSO
aBuSO

8IS

CMD , aBUSO

BEQ
ERROR

L+

(MD.aBUSO

;1S PARO SET
:1F NO ,GO TO OFF
*1S PAR] SET
2IF YES CONTINUE
:ERROR-PARI NOT ON
:1S PARI CLEAR
:1F YES CONTINUE
*ERROR-PAR]I NOT CLEAR
*REMOVE ADRS FROM BUS-OUT
*ADRS REMOVED
*BRANCH IF NO ERROR CONDITION
*BUSO DID NOT CLEAR
;BUT COMMAND ON BUSO
*DID COMMAND LOAD OK

*BRANCH IF NO ERROR CONDITION
“CMD DID NOT LOAD PROPERLY

8IS

#CMDO, 3DXMO

:SET COMMAND OUT

BNE
ERROR

:BRANCH IF NO ERROR CONDITION
:CMDO DID NOT SET

8IT

#CMDREJ,@DXDS

:;TEST FOR COMMAND REJECT

;BRANCH IF NO ERROR CONDITION
*COMMAND REJECTED

#ADR] ,DXM]
.+

;ADRI SHOULD FALL
*BRANCH IF NO ERROR CONDITION
*ADRI DID NOT DROP

BITB

ISSCRJ:

;CLEAR SELECT=OUT, HOLD=-OUT

#SELO,aDXMO
.+
#HLDO, aDXMO
46
#ADR] , @DXM]
.+

(MP8

171130

#SELO'HLDO,aDXMO

BIT
BEQ
ERROR
BIT
BEQ
ERROR
BIT
BNE
ERROR
BEQ
ERROR

}2229

1628
1629
1630
1631
163%
1633
163%
1635
1636
1637
1638
}243.8
1641

BIC

SEQ 0047

#4,aCONO

:DID CMDO SET

001401
104000
032777 010000
001401
1

171056

BEC
ERROR
8IT
BEQ
ERROR

043777 014216

171042

BIC

CMD , 3DXMO

;REMOVE CMD FROM BUSG

BEQ
ERROR

*BRANCH IF NO ERROR CONDITION
:CMD DID NOT CLEAR

105777

171064

04
032777

002000
002000

01
001401
010254 104

1&9 010272 001401
1667 010274 104000

171024
171016

1ST8

BIC
BIT

BEQ
ERROR

a8usSo

#CMDO, 3DXMO
#CMDO, 3DXMO

*WAS CMD REMOVED

;BRANCH IF NO ERROR CONDITION
SCMDO STUCK HIGH

CZDXHDO DX118B ONLINE EXER

CZDXHD.P11

1670

07-JuL~-78 12:52

010276

032777

004000

MACY11 30A(1052) 07-JuL-78 12:5% PAGE 34
INITIAL SELECTION SEQUENCE

171006

8IT
BNE

#STAI ,aDXMI
R

MOV

R1,=(SP)

BIC

#177400,R1

BEQ
ERROR

ERROR

1676
1675
1676
1677

010312
010316
010322
010326

113701
82%701
701
12}177
4

‘1.77

014216
177400
001442
171000

a#(MD,R1

MOVBE

a#sT,Ri
an}. ,aCUSR

ADD
cTMP8

171000

CMPB
BEQ

aR1,a8USI
46

MOV

(SP)+ ,R1

BIT
BNE
TST8
BEQ
1ST8
BEQ

#B1T2,PARA
1882
CMD

1881
aBUsS
I
1582

BIT
BEQ

#SELO,aDXMO
R

ERROR

013602

170706

170700

1SS1:

BIT
BEQ

#HLDO,aDXMO
e

BIS

#SRVO, 3DXMO

ERROR

170654

170646

1SS2:

8IT
BNE

ERROR

#SRVO,aDXMO
.+

PR TR

snnanannnnnnet

170634
170626

AL TR

RASNEERPS
PR AR
EEEE!

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

READ DXM]

BIT

#STA] ,aDXM]

sBRANCH IF NO ERROR CONDITION
;CUSR TO BUSI TRANSFER ERROR

;TEST FOR MUX CH
*BRANCH IF MUX

STEST FOR "‘TEST 1/0°* COMMAND

:CLEAR SELO.HLDO IF T10 CMD

ERCALL

BEQ,

BIC
BIT
BEQ

#SRVO, 3DXMO
#SRVO,aDXMO
.+

:DON'T CLEAR SELO,.HLDO ON O STATUS
. CLEAR SELECT-OUT, HOLD-OUT

;DID SELO CLEAR
JBRANCH IF NO ERROR CONDITION
sREPORT SELO NOT CLEAR
;DID HLDO CLEAR
sBRANCH IF NO ERROR CONDITION
sHLDO DIPD NOT CLEAR

sSET _SERVICE-OUT
sTEST SERVICE OUT sBRANCH IF NO ERROR CONDITION
sSERVICE-OUT DID NOT SET

NANAAA Rttt ant et ettt aattatanattnes

sSTATUS~IN SHOULD DROP
;STATUS~IN DID NOT DROP

AARRAAAAARAAAAAAAANARARRAAAAAARNRAAARAAAAAAAAAANAAAAARARAARANSY

&46

042777

0462
0464

001401
104000

0466

043777

010500
010502

001401
104000

BEQ

010504

000207

RTS

ERROR

?142

CAN'T

sBRANCH IF NO ERROR CONDITION
sSTATUS FROM DST TRANSFER ERROR

:TEST BUSI FOR ZERO STATUS

#SELO!HLDO,3DXMO

BIC

ERROR

170666

;TEST FOR STATUS~IN

sBRANCH IF NO ERROR CONDITION
:STATUS=IN DID NOT RISE

170614

BIC

1ST8

ERROR

.SBTTL

CMD ,aDXMO

aBusSo
.4

HIO SUBROUT INE

;DROP SERVICE-OUT
s TEST SERVICE-OUT
sBRANCH IF NO ERROR CONDITION
sSERVICE-OUT DID NOT CLEAR
;CLEAR COMMAND FROM BUSO

sTEST FOR BUSO CLEAR

JBRANCH IF NO ERROR CONDITION
;BUSO DID NOT CLEAR

SEQ 0048

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
010506
010514

032777
001103

070000

170600

HIO0.SUB:

BIT
HI0.0

K
12:55

PAGE 35

010516
010524
010532
010534

053777

#70000,aDpx(8
;TEST FOR PHASE ZERO
;BRANCH IF SELECTED

DEV,abXMO
DEV,aBUSO
n*‘

;PUT ADRS ON BUSO
;ADRS LOAD OK
sBRANCH IF NO ERROR CONDITION
;ADRS LOAD ERROR

170544
170536

#ADRO, aDXMO
#ADRO, aDXMO

;SET & CHECK ADRS-OUT

170524
170516

#HLDO,aDXMO
#HLDO,aDXMO

)

WNNNNVNYNY

170564
170604

D d

#SELO,aDXMO
#SELO,aDXMO
+

d
D

000120

d D
D

;SET & CHECK SELECT-OUT
;BRANCH IF NO ERROR CONDITION

sTEST FOR BSY SELECT

:VERIFY DEVICE ADDRESS
sBRANCH IF NO ERROR CONDITION
:BUSO TO CUAR TRANSFER ERROR

d d

d D

H10S.0:

014214

004000
004000

#ADRO
, aDXMO

;CLEAR &

CHECK

*BRANCH IF NO ERROR CONDITION
:ADRO SET

d
D e
d e
D el e

;BRANCH IF NO ERROR CONDITION
sHLDO NOT SET

:CHECK STATUS
;BRANCH IF NO ERROR CONDITION
;BUSI STATUS ERROR

D d e

D e

#81T1,PARA

0146214

170440

0146214
001310

170374

8IC

1STB

BEQ
ERROR

) d

sBRANCH IF NO ERROR CONDITION
;ADRO NOT SET
sSET & CHECK HLDO

:SELO NOT SET

D e ed d
)
e

SEQ 0049

sSELECT

D d

D D

PRRRSPRRRELELL
L3S L RN ENLY: P NEHRES 2ZdadeiviviRig3

1724
1725
1726
1727
1728

MACY11 30A(1052) 07-JuL-78
HIO SUBROUTINE

060000
040000

M10.0:

DEV,aBUSI

;1S CORRECT ADRS BEING ECHOED
sBRANCH IF NO ERROR CONDITION
;BUSI LOAD ERROR
sCHECK ADRECC.D

DEV,aDXMO
DXMO

sREMOVE ADRS FROM BUSO
sBRANCH IF CLEAR
sBRANCH IF NO ERROR CONDITION
:BUSO DID NOT CLEAR

; INTERFACE DISCONNECT

BIC

BIT
BEQ

#HLDO'! SELO,3DXMO

#HLDO
, 3DXMO
i

;BRANCH IF NO ERROR CONDITION

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11

}7739
1782
1783
};gg
}%
1788
1789
}773?
}7735

07-JUL-78 12:52

010742
010744
010752
010754
010756
010764
010772
010774
010776

104000
032777 020000
001401
104000
052777 004000
032777 004000
001001
104000
042777 004000

MACY11 30A(1052) 07-JuL-78 12:55 PAGE 36
HIO SUBROUT INE

170336

170324
170316

ERROR
BIT
BEQ
ERROR
BIS
BI7
BNE
ERROR
BIC

#SELO,@DXMO
.+

#ADRO, 3DXMO
#ADRO, aDXMO
.+

;HLDO SET
;
;BRANCH 1F NO ERROR CONDITION
*SELO SET
;
;
:BRANCH 1F NO ERROR CONDITION
*ADRO NOT SET
;

170304
#ADRO , 3DXMO
1794 011004 032777 004000 170276
8IT
#ADRO , aDXMO
;
1795 011012 001401
BEQ
.+
:BRANCH IF NO ERROR CONDITION
1796 011014 104000
ERROR
*ADRO SET
1797 011016 000207
MIO.2:
RTS
PC
1798
.SBTTL CUIS SUBROUTINE
1799
1800
;
1801
1CUIS.SUB, SUBROUTINE TO EXECUTE A
}ggg

*CONTROL UNIT INITIATED SELECTION

1804
}ggg 011020

:
CuIS. SUB:

1807

011020

032737

BIT

#B1T2,PARA

mg 011030 032777 020000 170254
1813 011036 001001
}g}g 011040 104000

8IT
BNE
ERROR

#REQ], aDXM]
.+

1816

8IS

#SELO'HLDO,3DXMO

}% 011026 001510
}g}g 011030

011042

052777

000004

013602

060000

170240

}gg 011060 104000
1821 ono% 032777 040000 170220
1822
011070
001001
}g‘ 11072 104000
1825 011076 032777 100000 170210
1826 011102 001001

011104
011106
011114
011116

1833 011120
183% 011126
1835 011130

CuIso

CUIS.GO:

1817 011050 032777 020000 170232
1818 011056 001001

}gg
1
1
}531

BEQ

104000
032777 020000 170176
001401
104000
032777 010000 170164
001001
104000

8IT
BNE

#SELO,30XM0
s

;TEST FOR REQUEST-IN
OP
*BRANCH IF NO ERROR CONDITION
*REQI NOT SET
:SET SELECT=OUT
& HOLD-OUT

;TEST FOR SELECT=OUT
SBRANCH IF NO ERROR CONDITION

ERROR
8IT
BNE
ERROR

#HLDO, 3DXMO
.+

*SELO NOT SET
:TEST FOR HOLD=-OUT
*BRANCH IF NO ERROR CONDITION
*HLDO NOT SET

BIT
BNE

#0PLI,aDXMI
gt

:TEST FOR OPERATIONAL=IN
*BRANCH IF NO ERROR CONDITION

ERROR
8IT
BEQ
ERROR
8IT
BNE
ERROR

#REQ] ,aDXM]
i

:0PL] NOT SET
:TEST FOR REQI
*BRANCH IF NO ERROR CONDITION
*REQ] DID NOT DROP

#ADR] ,@DXM]
.+

;TEST FOR ADDRESS IN
*BRANCH IF NO ERROR CONDITION
*ADRI NOT SET

SEQ 0050

CZDXHDO DX118 ONLINE EXER
CZDXHD.P11
07-JUL-78 12:52
1836
1837

011132

123777

014214

MACY11 30A(1052) 07-JUL-78
CUIS SUBROUTINE
170202

C(MP8

1838
}&38
1841
1842
1843
}3245.
1846
1847
}%

011140
011142
011144
011152
011160
011162
011164
011172
011174

001401
104000
052777 002000 170136
032777 002000 170130
001001
104000
032777 010000 170120
001401
104000

BEQ
ERROR
BIS
BIT
BNE
ERROR
BIT
BEQ
ERROR

1850

011176

042777

BIC

060000

170104

1851 011204 032777 040000 170076
1852 011212 001401

BIT
BEQ

1855 011216 032777 020000
1856 011224 001401

}ggz 011214 104000
}ggz 011226 104000

011230 042777 002000 170052
011236 032777 002000 170044
011244 001401
011246 104000

}32‘5'

011250

000207

1868

1869
1870
1871
1872
1873
1876
1875

#CMDO, 3DXMO

#CMDO
, aDXMO

#ADR] , 3DXM]
.+
#SELC*HLDO, 3DXMO

;ADDRESS
ON BUSI

*BRANCH IF NO ERROR CONDITION
:BUSI LOAD ERROR
:SET COMMAND=-OUT
;BRANCH IF NO ERROR CONDITION
:CMDO DID NOT SET
;ADRI SHOULD DROP
*BRANCH IF NO ERROR CONDITION
*ADRI DID NOT DROPS

8IT
BEQ

#SELO,@DXMO
.+

sTEST SELECT=0UT
*BRANCH IF NO ERROR CONDITION

BIC
BIT
BEQ
ERROR

#CMDO, 3DXMO
#CMDO . DXMO
.+

;CLEAR COMMAND=-OUT
STEST FOR CMDO CLEAR
*SRANCH IF NO ERROR CONDITION
:CMDO SET

CUISO: RTS

}32‘7’

DEV,aBLSI

;TEST HOLD=OUT
*BRANCH IF NO ERROR CONDITION
*HLDO SET

ERROR

1859
1860
1861
}g

PAGE 37

#HLDO, ADXMO
.+

ERROR

170064

12:55

*SELO SET

;FAST 1SS SELECTOR CH ONLY

011252

011252
011260
011266
011274
011302
011310
011316

014214 170030
004000 170022
170014
004000 170006
014214 170000
014216 167772
002000 167764

FASTISS:

BIS
8IS
BIS
BIC
BIC
BIS
BIS

;PUT DEVICE AORS
ON OUT TAGS
*RAISE ADRS-OUT
#HLDO' SELO, aDXMO
:RAISE SELECT=OUT, HOLD-OUT
#ADRO , 30XMO
:REMOVE ADRS=-OUT
DEV, aDXMO
*REMOVE ADRS
CMD , aDXMO
*PUT COMMAND
ON OUT TAGS
#CMDO , 3DXMO
*RAISE CMD-OUT

1877 0N
042777 002000 167750
1878 011
032737 000004 013602
1879 011346 001

BIC
BIT
BNE

#CMDO, 3DXMO
#B8]T2.PARA
FISS1

*REMOVE CMD-OUT
STEST FOR MUX CH
SBRANCH F1 MUX

1881

BEQ

FISS1

*CLEAR SELO,HLDO IF TIO CMD

1876 011

053777
052777
052777
777
04
053777
052777

o&m 014216 167756

1880

011350

105

014216

8"323

105777

167760

011354 001403

1
11
001479;
1884 011364 04
060000
1885 011372 052777 001000
1886 011400 042777 001000

1887
1888

011406

1889

1890
1891

BIC

ISTB

TSTB

167716 FISS1:
167710 FISS2:
167702

BEQ
BIC
BIS
BIC
RTS

;SEL CH ISS
011410

SEL.ISS:

DEV,aDXMO
#ADRO , 3DXMO

CMD , 3DXMO
CMD

aBusS

*REMOVE CMD

STEST FOR "TEST 1/0°* COMMAND

STEST BUSI FOR ZERO STATUS

FIS
:DON'T CLEAR SELO,HLDO ON O STATUS
#HLDO! SELO, aDXMO
;CLEAR SELO
AND HLDO
#SRVO , 3DXMO
;RELEAVE STATUS
#SRVO.2DXMO
:
PC

SEQ 0051

CZDXHDO DX118 ONLINE EXER

CIDXHD.P11
1892

1893
189
1895
189
1897
1898
1899
1900
1901
1902
1903
1904
1905

}ggg
1908

07-JUL-78 12:52

011410

011416
°"‘§‘2°
011432
011440
011446
011456
011462
011470
011476
011504
011512
011520
011526

011530

053777

oagm
053777
052777
052777
042777
043777
053777
052777
043777
042777
052777
042777
7

105777

014214

000400
014214
004000
004000
014214
014216
002000
014216
002000
001000
001000

07-JUL=78

MACY11 30A(1052)

CUIS SUBROUTINE
BIS

167710

BIC
BIS
BIS
BIS
BIC
BIC
8IS
BIS
BIC
BIC
8IS
BIC

167702
167656
167650
167642
167634
167626
167620
167612
167604
167576
167570
167562

RTS

011652

011654

1933

011662

167642

SCOPEC: TSTB

000002

000001

RTI

011762

@TKS

SCOPEM
aTKB, (PC)+
#200,DTMP
DTMP.A3
SCOPEM
SMMON1
.0
#BIT14.SR
SC
#BIT11,5R
sC
SCOPEF
SCOPEF
. ICOUNT
SCOPEG
#-1,0NESHOT
(SPS+
(SP)+ PS
SRETURN
aSP,RE TURN
SCOPEF

:TEST FOR SCOPE
*BRANCH IF SCOPE SELECTED
STEST FOR ITERATIONS

SEXIT IF ITERATIONS INWIBITED
*INCREMENT ITERATION COUNT
:TEST FOR COMPLETION OF ITERATIONS
*BRANCH IF COMPLETE
*SO YOU CAN SCOPE ON ONCE ONLY CODE
:POP RETURN PC
*RESTOR PROCESSOR STATUS
:
“SET UP SCOPE RETURN ADRS
“CLEAR ITERATION COUNT
“BEGINNING OF TABLE OF TEST ADDRESSES

SITERATION COUNT
*DEFAULT RETURN

STEST ADDRESS LIST

;EMULATOR DECODER ROUT INE

190 0117
1941
1;%
mi
1
19
1776
;g‘u;
%

o11%.o
162716 m
o1 619
1 25 000024
; 1401

%nz 177001

:PRESET COM/ADD REG DEV ADDRESS

TSTABLE

}gsg

v B

DEV,aCUAR

SEQ 0052

*PARITY RESET
#400,3CUAR
*PUT DEVICE AORS ON OUT TAGS
DEV, aDXMO
#ADRO, 30XMO
*RAISE ADRS=OUT SELECT=0UT, HOLD=-OUT
:RAISE
#HLDO ! SELO, aDXMO
:REMOVE ADRS=OUT
#ADRO , 3DXMO
DEV,aDXMO
*REMOVE ADRS
CMD , aDXMO
*PUT COMMAND ON OUT TAGS
*RAISE CMD-OUT
#CMDO, 3DXMO
CMD , 3DXMO
*REMOVE CMD
*REMOVE CMD-OUT
#CMDO , 3DXMO
#SRVO.aDXMO
*RELEAVE STATUS
#SRVO. 3DXMO
:

:NUMBER OF REQUESTED ITERATIONS

SCOPEF: 0
RETURN: TST1

1939 omg

PAGE 38

ICOUNT: 1

1931 o11223 000000
1932
011
004000

%
}g”

:SCOPE LOOP AND CONTROL SUBROUT INE

1909 011534 100014
8PL
MOV
1910 011536 017727 167636
1911 011542
DTMP:
0
191; 011544 042737 000200 011542
BIC
191 ong‘s,g
011542 000003
(M8
1914 0N
001
BNE
1915 011562
012724
JP
1916 011566
040000 177570 SCOPEW: BIT
1917 011574
BNE
1918 011576 032
004000 177570
BIT
1919 011604
BNE
1920 omos 005
011656
INC
132 011612
023
011656 011654
TM
1
011620
BEQ
1923 011622 mg
177777 014206 SCOPEB: MOV
1% 011
28‘
ST
1
011632 012637 177776
MOV
1926 011636 000177 000016
JMP
1927 011642 m 011660
SCOPEG: MOV
1928 omgg
011656
SCOPEA: CLR
1930

12:55

EMTDECODER:

EMTOK:

MOV
SUB
MOV
CMP8
gtag&

aR6, = (R6)
#2,3R6
a(R6)
@R6,#20.
EMTOK

:DUPLICATE PC ON STACK
*POINT PC TO EMT INST.
MOV EMT INST ONTO STACK
STEST THAT CALL IS WITHIN LIMITS
*BRANCH IF WITHIN LIMITS

ROL

mmm.an

;EMT ARGUMENT X 2.

BIC

*CLEAR MIGH BYTE

CZDXHDO DX11B ONLINE EXER
07-JuL-78 12:5¢2
CZDXHD.P11

012012
012016
012022

062716
017616
000136

MACY11 30A(1052) 07-JuL-78 12:52 PAGE 39
ADD
MOV
JMP

012024
000000

012074
012074

.BLkw

000024

012737
000137

012737
000004
010546

177777

012244

012602

TERPC:

;RESERVE 16. WORDS FOR ADRS LIST

20.

MOV
JMP
O

#-1,ERFLG
a#OEF

177776

021571

012602

T.TRACER:

;SAVE TTY

X7 ,PRINTS

;AND SUPRESS LEADING ZERO'S
;RESTORE TTY

TYPE
MOV
MOV

PC,PRINTR
(SP)+,TTY

JSR

MOV
BIT
BNE

TYPE

1%:

2$:

(SP)+,TTY

TTY,~(SP)
TTWAS,TTY

;TYPE LEADING ZERO'S

sRESTORE TTY

JSAVE TTY

s TYPE

IN OCTAL

;TYPE LEADING ZERO'S
;RESTORE TTY

,TRC2
TTY,~(SP)
TTSHOULD,TTY

sSAVE TTY

(SP)+,TTY
#MIT1.R1
1%

;TEST FOR DXDPS OR DXCA

PC,PRINTR

TTDS

OEF

TYPE

:TYPE ERTSTN IN OCTAL

+TRCM
; TRACE ERROR AT:
TTY,~-(SP)
;SAVE TTY
;TYPE IN OCTAL
TERPC,TTY

JSR
MOV

TYPE
MOV
MOV

021767

ERTSTN,TTY

TYPE

MOV
MOV

000002

,TRCM1

PC,PRINTR
(SP)+,TTY
,TRC1

JSR
MOV

006536
017066

022014

TTY,=(SP)

MOV

021745

TRACE ERROR

MOV

JSR

006534
017066

MAP ERROR

#-2 ,ERFLG

MOV

021723

MOV

TYPE

012636
017076

;FLAG THAT THIS

.;ORIGIN OF

:TUMBLE TABLE TRACE ERROR TRAP

012106
017066

LELE $8883R8 88888

:TAGS FOR EMT CALL

;BEGINNING OF EMT TABLE

T.MAPERR:

021623

012236
012236

;FORM ADRS OF ROUTINE ADRS
sPUT ROUTINE ADRS ON STACK
;JUMP TO ROUTINE

;ENTRY POINT FOR MAP ERRORS

000000

1987

#EMTAG,aR6
a(R6) ,aR6
a(R6)+

EMTAG:

012024
012024

SEQ 0053

CUIS SUBROUTINE

;TYPE IN OCTAL

:TYPE LEADING ZERO'S
sRESTORE TTY
;BR IF DXCA

LTTCA

JENTRY POINT FOR MOST ERRORS
012240
012240
012244

T.ERROR:

OEF :

012250

012270

012650

CLR

ERFLG

MOV
MOV

R2.E.R
R3.E.R

INC
MOV
MOV
MOV

ERRCNT
RO.E.RO
R1,E.R1
R4 E.R4

JFLAG THIS AS NORMAL ERROR
sINC ERROR COUNT
;SAVE RO
sSAVE R1
;SAVE R
sSAVE R
;SAVE R4

012274

012652
020000

R5,E.RS
#BIT13,SR

177570

PERRP(

.ERPC

021305
000002

012316

ETMPO:

177776

021254
000002
021664
000004

012602

#-2 ERFLG

PERRP(

TTY,=(SP)
ERTSTN,TTY

013602

100000

177570

EMOD1:

EMOD2:

PERRPC :

sHER
;
E

:TYPE IN OCTAL

;TYPE LEADING ZERO'S
sRESTORE TTY
sTEST FOR SHORT ERROR REPORT
;BRANCH IF SHORT SELECTED

;ERROR IN TEST:
sSAVE TTY

;TYPE ERTSTN IN OCTAL

;AND SUPRESS LEADING ZERO'S
sRESTORE TTY

(SP)+,TTY

;SAVE TTY
:TYPE IN OCTAL
:TYPE LEADING ZERO'S
;RESTORE TTY

.CRLF
#BIT1,34PARA
EMOD1

013602

(SP)+,TTY

X7 ,PRINTS

021703

032737
001401

s CORRECT PC
sSAVE TTY

#BIT12.5R

1%:

;BRANCH IF INMIBIED

#2,ETMPO
TTY,=(SP)

177570

012636
017076

sTEST FOR INHIBIT

;SAVE ERROR PC +2

PC,PRINTR
(SP)+,TTY

021521

;SAVE RS

aSP, (PC)+

TTY
NETMPO,

012316
017066
010000

CUIS SUBROUTINE

014224
017066

ABSYM

#B1T2,aNPARA
EMOD2
JAMUXM
#HLTSW,
SR

ERRLOP

;TEST FOR BUSY ENABLE MODE
sBRANCH IF NOT
:TYPE BUSY ENABLE

sTEST FOR MUX CH
sBRANCH IF SELECTOR
sTYPE MUX CH

sTEST FOR HALT ON ERROR
sBRANCH IF NO HALT

sHALT ON ERROR

ERRLOP:

;RESTORE RO
;RESTORE R1
sRESTORE R
sRESTORE R
;RESTORE R4

;RESTORE RS

177570

2051

2056
2057
2058
2059

010537
032737
001063
000004
011627
000000
162737
010546
013705
004737
012605
032737
001042
022737
001410
000004
010546
013705

MACY11 30A(1052) 07-JuL-78 12:5% PAGE 40

021450

R S R R R B SRR

R AR RRRRRC IR ERE ot

CZDXHDO DX11B ONLINE EXER
CZDXHD.P1
07-JuL-78 12:52

014206
166550
166516

012574

177776

;TEST FOR SCOPE LOOP

#MCLKEN,3DXES
abXM0

#DXFRS ,@DXCS

Ps
CESS]

SRE TURN

JREINIT STACK POINTER
;REINIT ONESHOT TEST FLAGS
sCLEAR MAINT CLOCK
sSYSTEM RESET
;DX RESET
SREINITIALIZE DX
;DX PRIORITY MINUS ONE

SEQ 0054

CZDXHDO DX11B ONLINE EXER

CZDXMD.P11

07-JuL-78 12:52

MACY11 30A(1052)

07-JUL-78

CUIS SUBROUTINE

D
12:55

5
PAGE 41

2060
2061
20620623

012600
012602

000002
000000

EXTR1: RTI
ERFLG: O
:ERROR CONTROL FLAG -1=MAP ERROR
usr OF ASCI] MESSAGE ADDRESSES

2064
2065
2066
2067
2068

012604
012606
012610
012612
012614

021322
021331
021340
021347
021356

ADRA:

2073
2076

012626
012630

021421
021430

2069
2070
2071
2072
2075

2076
2077
2078

012616
012620
012622
012624
012632

021365
021374
021403
021412

ADXBC
ADXMO
ADXM]
ADXCB

021437

ADRAE:

2079
2080
2081
20322083

ADXND
ADXES

ADXES1

;ERROR COUNT
012634
012636

000000
000000

ERRCNT: 0
ERTSTN: 0

2084

2085

2087
2088
2089

ADXDS
ADXCA
ADX(S
ADX0S
ADXBA

:REGISTER STORAGE FOR ERROR REPORTING
E.RO:
E.R1:
E.R2:
E.R3:
E.RG:
E.RS:

O
O
O
0
0
O

.SBTTL

MONITOR

2091
%%

2097

:TEST NUMBER

012640
012642
012644
012646
012650
012652

000000
000000
000000
000000
000000
000000

012654

:SAVED
*SAVED
*SAVED
*SAVED
*SAVED
*SAVED

REGISTERS
REGISTERS
REGISTERS
REGISTERS
REGISTERS
REGISTERS

FOR
FOR
FOR
FOR
FOR
FOR

ERROR REPORTING
ERROR REPORTING
ERROR REPORTING
ERROR REPORTING
ERROR REPORTING
ERROR REPORTING

1233 2333333333333 33333333333333333333333333333333333333333333333233233)]

MONITOR:
.'

$101

1232222333333 333332333233232333333333333333333333333333333333333333333333;]

2102 012654 012706 001100
2103 012660 012737 000340 177776
518‘5 012666 004737 014520

MoV
MOV
JSR

#BEGIN, SP
#LEVEL?,PS
PC,@#MONDFLT

:SET UP STACK POINTER
*MONITOR AT LEVEL 7
:SET
UP DEFAULT PARAMETERS

2106 012672 012737 017224 000060
2107 012700 012737 000200 000062

MOV
MOV

#TTYI, 3460
NLEVELG,a#62

:TTY KEYBOARD INT VEC
:LEVEL 4

5}8‘6

012706

000004

021175

2110

012712

000004

020074

012716 012737 013040 012714

211§ 012724 000005

2114 012726 005777 166446
2115

012732

052777

000100

166436

TYPE

,HOME

,HEADER

*HOME UP AND ERASE SCREEN

MOV

#RELOD,a#H+2

:;HEADER TEXT GETS WIPED BY NPR'5

aTkB

:CLEAR FLAG

MON1.0: RESET
BIS

#INTEN,TKS

*SET INTERRUPT ENABLE

SEQ 0055

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

012740

012744

001100
000340
020615

177776

012766

004737

014520

2124

012774

122700

000120

2126
2127

013002
013006

000137
122700

013544
000123

2129
2130
2131
2132
2133
2134

013014
013020
013022
013026
013030
013036

122700
001341
000004
104005
013737
000761

000116

014232

014234

2136
2137
2138
2139

013040
013046
013054
013062

051137
020104
042510
052040

046105
047506
042101
054105

040517
020122
051105
000124

012760

000004
04006
122700

MOV

#BEGIN, SP

TYPE

FSTART

MOV

#LEVEL?,PS

KEY.TO.RO

000104

(M8

#'D.RO

gg'*

;g.amouoru

;;P.RO

BNE

012752

012706

012737

MONITOR

2116
17
}g

07-JuL-78 12:52

MACY11 30A(1052) 07-JuL-78 12:52 PAGE 42

1$:

28:

3s:

JMP

g?;e
CMPB

BNE

TYPE

020673

ACCEPTO

RELOD:

MON10

:SET UP STACK POINTER
*MONITOR AT LEVEL 7

:D = DEFAULT PARAMETERS

;P = PREVIOUSLY SELECTED PARAMETERS

fiim

;S = GO THROUGH AND SELECT PARAMETERS

#'N.RO

:N = START AT THIS TEST #

MONT .0
,MSGS

MOV
BR

OCTNUM,F IRST.TST
2

.ASCIZ

''_RELOAD FOR HEADER TEXT''

.EVEN

:SET UP TEST PARAMETERS
2143
2144

013070
013074

004737
000004

2146

013100

104005

2149
2150
2151

013102
013106
013110

005737
001403
013737

014232

2153

013116

000004

020631

2156

013122

104005

2158
2159
2160

013126
013130
013132

005737
001403
013737

014232

2162
2163
2164
2165
2166
2167
g}gg

013140
013144
013146
013152
013154
013162
013170

000004
104005
005737
001411
013737
062737
013737

021465

2171

013176

000004

MON1:

014520
020673

JSR

TYPE

PC,MONDFLT
,MSGS

;SET UP DEFAULT PARAMETERS
‘FIRST TEST #

ACCEPTO :ACCEPT TEST NUMBER FROM KEYBOARD

014232

014234
MON3:

ST
BEQ
MOV

0C TNUM
;TEST FOR DEFAULT
MON3
*BRANCH ON DEFAULT
OCTNUM,F IRST.TST
:LOAD FIRST TEST #

TYPE

,MSG2

ACCEPTO

014232

001262

014222
014232
000002
014232
021076

001264
014232
001266

:ACCEPT BASE ADDRESS

FROM KEYBOARD

ST
BEQ

0C TNUM
MON&

:TEST FOR DEFAULT
*BRANCH IF DEFAULT

TYPE

,MSG28

;ACCEPT INTERRUPT VECTOR

ST
BEQ
MOV
ADD
MOV

0C TNUM
:TEST FOR DEFAULT
MONG . 1
*BRANCH IF DEFAULT
OCTNUM,DXIV
*LOAD NON-DEFAULT INT VECTOR ADRS
#2,a40C TNUM
*FORM INT STATUS ADRS
S#OCTNUM,a#DXIS :INT STATUS ADDRESS

MOV
MON4:

:BASE ADDRESS:

ACCEPTO

MONG.1: TYPE

OCTNUM,DXBASE

.MSG12

:LOAD NON-DEFAULT ADDRESS

;PRIORITY

SEQ 0056

CZDXHDO DX11B ONLINE EXER
CZDXHD.P1
07-JuL-78 12:52

013202
013204
013210

MACY11 30A(1052)
MONITOR

07-JUL-78
ACCEPTO

TST

014232

000037
014232

OCTNUM

3
PAGE 43

SEQ 0057

sACCEPT DX PRIORITY LEVEL

sTEST FOR DEFAULT

BEQ
ASL
ASL
ASL
ASL

MON6
OCTNUM
OCTNUM
OCTNUM
OCTNUM

sSHIFT PRIORITY
s INTO PROCESSOR
sPRIORITY BITS OF
¢PROCESSOR STATUS WORD

001270

MOV

OCTNUM,DXPRT

;LOAD PRIORITY

014232
001272

BIC
MOV

#37 ,a#0CTNUM
OCTNUM, LESS1

:CLEAR TNZVC
sPRIORITY TO ALLOW DX INTERRUPTS

014232

042737

e
12:55

ASL
DEC

;BRANCH ON DEFAULT

OCTNUM
OCTNUM

;GENERATE A LIST OF LEGAL ADDRESSES

MON6:

020712

TYPE

MON7:

MSG4

MOV
TYPE

#LEGAL .ADRS,R3
.MSG6

PARITY

,HEXNUM

JSR

PC,GETHEX

MOV
HEXNUM, (R3)
+
KEY.TO.RO
CMPB
#CR,RO

BNE

MON?

;LEGAL ADDRESS LIST
;START OF LEGAL ADRS TABLE
sADRS:
sGET HEXADECIMAL CU ADDRESS
sPUT PARITY

(ODD)

ON ADRS

;SAVE LEGAL ADDRESS

sALL DONE?

:CONTINUE LIST IF NOT <CR>

JRRRRRARRARAAARARRAAARRRRRRRS mo
APR 74

Aaatd aaaa ke kA A AR

AR RAAARR

. %

i
013727
000000
042737
023727
003403
000004
000747
012723

016410
000400
013330

013330
000376

MOV

HEXNUM, (PC) +

B8IC

#4600, VLUHEX

BLE
TYPE,

13
MSG13

: (OK) BRANCHES
s
sOUTPUT = ILLEGAL ?*' I.E. > "FF"'

#-1,(R3)+

;MARK END OF LIST

VLUHEX:0

CMP

021123
177777

ADDRESS RESPONSE MOD

1$:

MOV

VLUHEX ,#376

sTEST FOR > FF

MON7

;s TRY AGAIN

JRRRARRRRRRARRRRANRRRRRRRRRAN MOD APR

AAARtaaadaat
kit ttaaavtetanns

#DEV/CU MOD

sSET UP MAXIMUM NUMBER OF DEVICES PER CONTROL UNIT

sTHIS INFORMATION DETERMINES WHAT THE SPW TABLE LOOKS LIKE

000004

020651

005737
001003
000004
000767

014232

01 3727
000017

014232

104005

005337
013727
000000

MONS:

.MSG3

JMAX # DEVICES/CU

TST

OCTNUM

JUSE 16~ ON DEFAULT

BNE

021123

013410
013330

TYPE

ACCEPTO

TYPE,

X1$:

RDXX:

MDXX:

X1$

MSG13

MONS

MOV

OCTNUM, (PC)
+

DEC

RDXX

MOV
O

;ACCEPT NUMBER OF DEVICES/CU

;OUTPUT "'= ILLEGAL ?'' 1.E. = "00"

:TRY AGAIN

:THIS IS THE DEFAULT VALUE. GETS WIPED BY CONSVERSATION

VLUHEX, (PC)+

:RANGE MODULO
1

sRANGE MASK

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52

063737
105137
042737

2228
2229
2230
2231
2232

013410

013422
177400

MACY11 30A(1052)

07-JUL=78

MONITOR

013422

ADD
comMs
BIC

013422

G
12:55

5
PAGE 44

RDXX ,MDXX
MDXX
#177400,MDXX

s SCALE
;FORM F INAL
sCU PORTION CLR

JRRRRRRRRRnRnnhenrnannnnrrntt MOD APR

2233
2234
2235

013737
004737

014232
015334

014236

MOV
MONS.1: JSR

SEQ 0058

AAAARRARAARRARRRRRRAANRNNAS

OCTNUM,MAX
. DEV. CU
PC, CKCUA
;CHECK FOR LEGAL NUMBER OF DEV PER CU

:GET COMMAND LIST
REM

THIS ROUTINE ACCEPTS AN IBM COMMAND LIST FROM THE CONSOL.

COMMANDS MUST BE NON ZERO (I.E.

ALL

T10 MUST BE TYPED WITH PARITY

400).
WITH EACH COMMAND THE MONITOR ASKS FOR ITS ASSOCIATED DST
STATUS.
*

012704
012703
000004

014500
014440
021033
021064

005737

014232

106007

014232

MON8:

MOV

MON9:

TYPE
TYPE

MOV

ACCEPTO
TST

#CMD.STAT
R4

#CMD .ADRS ,R3

MSG9Y
.MSG10

OCTNUM

;ACCEPT LEGAL COMMANDS FROM KEYBOARD

BEQ

MON10

014232
021507

MOV
TYPE

OCTNUM, (R3)
+
’ MSG31

113724

014232

MOvB

OCTNUM, (R4)
+

120027
001355
012723

000015

013723
000004

PARITY

ACCEPTO

;LEGAL CMD LIST
sCMD:

,O0CTNUM

J''STATUS: "'

KEY.TO.RO

(MPB

BNE

177777

MOV

RO,#CR

MON9

#-1,(R3)+

;LOAD TERMINATOR

;ASK FOR DYNAMIC SWITCH SETTINGS ON CONSOL SWITCHES
012737
005037
000004

104006
122700

013572

00100
000137

177777
012634
021014

014206

MON10:

000003

012724

MoV
#-1,0NESHOT
ERRCNT
CLR
TYPE
MSG7
KEY.T0.R0O
CMP8
#3,R0
BNE
MON11
JMP
29M0N1
.0

;SET DYNAMIC SWITCHES
“TYPE ANYTHING
*TEST FOR CONTROL €

260 IF NO “C

;SET UP TABLES

013576
013602

113727
000000

052737

177570

000001

013602

MON11:
PARA:

MOVB
0

BIS

SWR,(P(C)+

#81T0,3#PARA

:E‘Axf MODE CONTROL SWITCH SETTINGS
sHERE

sSET ONLINE SELECT FLAG

CZDXHDO DX11B ONLINE EXER
CZDXHD.P1
07-JUL-78 12:52
2284
2285

013612
013616

004737
004737

2287
2288
%ggg

013626
013632
013636

004737
004737
004737

2286

2291

013642

004737

015334
015146
014772
015304
015010
015646
LPCSU:

PAGE 45

PC.,CKCUA
PC,SPW.SETUP

MOV
MOV
MOVB
BR

#1,DEVCNT
sINIT DEVICE COUNT
#LEGAL .ADRS ,ACUA ;ADRS OF CU ADRS
@ACUA, CUADRS
;CU ADDRESS
LPC1

PC,TT.CLR

PC,.DST.SETUP
PC.,ODAT
PC,REG.SETUP

sCMP ADRS VS MAX DEV PER (U
;SET UP STATUS POINTER WORDS
;CLEAR TUMBLE TABLE
sSETUP DEVICE STATUS TABLE
sSET 360 SIM OUTPUT DATA FILE
sSCALE ADDRESSES

000001
014254
C00340

013666

000004

021200

2299

013672

062737

000001

014224

ADD

#1,CUADRS

2301
2302

013704
013712

023737
003457

014226

014236

cMP
BLE

DEVCNT ,MAX.DEV.CU
LPC1

2303
2304
2305
2306

013714
013722
013730
013732

%g?g

013750

005237

014226

LPCNTL: TYPE

012737
027727
001042
062737

000001
000274

014226
177777

000002

042737

177776

INC

DEVCNT

s INC DEVICE CDUNT

013602

#1,DEVCNT
@ACUA,#-1
LPC2
#2 ,PARA

sINC TO NEXT PARA COMBINATION

013602

BIC

#177776 ,a#PARA

;ALL BUT ONLINE IF SET

2311
2312

cMP
BGE

#10,PARA
LPCS

sINIT DEVICE COUNT

JHAVE ALL PARA COMBS BEEN TESTED?
:BRANCH IF NOT

sunnnnnnnnnnnnnwnwnnnnntes MOD APR 74
s

%g}g 013756

012777

000001

165314

231;

MOV

#1,aDXCS

2319 013764

000004

2321
2322
2323
g%

010546
013705
004737
012605

013770

013774
013776
014002
014006

000004

021202
021214

TYPE

MOV
MOV
JSR
MOV

012634
017066

5%229

ENDTST

LECM

AR ARRRRRAARNNRNARANCRRERR

OPLI TIMEOUT RESET MOD
;DX RESET OPLI

sennnnnnnnnnnnnnnnnnnnnttt MOD APR

231

TTY,~(SP)
ERRCNT,TTY
PC.PRINTR
(SP)+,TTY

Soaaaaaanattttaaddavananttttnnn

sERROR COUNT MESSAGE

sSAVE TTY
;TYPE IN OCTAL
;TYPE LEADING ZERO'S
sJRESTORE TTY

;THE FOLLOWING CODE IS FOR INTERFACE WITH DDP AND ACTN

2328
2329
2330
2331
23

014010
014014
014016
014020
014020

013700
001405
000005

2335
2339

016058
0140

000;;0
012737

2339

014052

104007

.BELL

MOV
(MP
BNE
ADD

2307 013740 022737 000010 013602
2308 013746 002030

2320

SEQ 0059

JSR
JSR
JSR
JSR
JSR
JSR

012737
012737
117737
000472

013700

014226
014222
014224

12:55

013642
013650
013656
013664

%?lz
|

07-JUL-78

2292
2293
229
%g

2300

013622

MACYT1 SPKA)S}(T)(SJS)

000042

LOGICAL:

004710

MOV
BEQ
RESET

a4l RO
LPC5

JSR

PC.aR0

NOP
NOP

014254
000160
000002
014224

014222
8}2 264

NOP
MOV

LPCS5:
LPC2:

’Atb,g

LPC1:

PARITY

;IF 42 = 0 REMAIN IN DX DIAGNSTIC
sLINK TO DDP OR ACT11

#LEGAL .ADRS ,ACUA
UADRS
.
,CUADRS

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

07-JuL-78 12:52

MACY11 30A(1052) 07=-JuL-78 12:5% PAGE 46

2340
2341
2342

014056
014064
014072

013737
013737
023737

014224
014214
014226

014214
014220
014236

2344
2345
2346
%g“g

014102
014110
014112
014120

062737
000403
162737
104007

000001

014220

000001
014220

014220

2350
2351
2352
2353

014126
014130
014136
014144

004737
012777
013777
013700

015442
006114
001270
014234

2355
2356

014152
014156

014234
014234

2358
2359
2360

014166
014174
014202

005237
013737
006300
016037
062737
000170

011660
000024
011660

SEQ 0060

MONITOR

165126
165122

LPC3:

CUADRS ,DEV
DEV,DE\.A
sMULTI THREAD
DEVCNT ,MAX.DEV. (U
LPC3
#1,DEV.A
LPC4
#1,DEV.A

JSR
MOV
MOV
MOV

PC,PREI
#FALSE ,aDX1V
DXPRT ,aDXIS
FIRST.TST RO

PARITY

LPC4:

MON12:

,DEV.A

;DO PRE INIT
sSET UP FALSE INTERRUPT VECTOR TRAP
sSET UP INTERRUPT PRIORITY
sTEST FOR DEFAULT

BNE

MON13

MON14:

MOV
ADD
JMP

TSTABLE=2(R0O) ,a#RETURN
#24 ,Q¥RETURN
@TSTABLE=2(RO)
;JUMP TO SELECTED TEST

.SBTTL

MONITOR FILES

012636

MON13:

011660

MOV
MOV
cMP
BEQ
ADD
BR
SuUB

INC
:gx

sBRANCH IF NOT DEFAULT

FIRST.TST
sDEFAULT TEST NUMBER IS ONE
;6RST.TSY.ERTSTN

; ONE PASS FLAGS

2367

000001

FIVESEC=1

177777
000000
000000
000020

ONE SHOT :

2368
2369
2370
2371

0146206
014210
014212
014214

014216

000403

2376
377

014220

2379
2
2383
2384

CARRY:

TMP :
DEV:

-1

;S SEC OPLI TIMER TEST

;ONE PASS FLAGS

2CARRY COUNT

0
20

remv STORAGE
DEVICE ADDRESS TO SELECT = MUST INCLDE PARITY

CMD:

403

com»o TO PRESET =~ FIJSY INCLUDE PARITY
.' (403 IS BASIC NOP COMMAND)

000421

DEV.A:

421

;SECOND DEVICE FOR DUAL TESTS

014222

000000

ACUA:

:ADRS OF CU ADRS

014224
014226

000000
000000

CUADRS: 0
DEVCNT: 0

;CU ADRS
sDEVICE COUNT

OFFSET: 2000

JOFFSET TO ADDRESS REGISTER

( 1.E. 441 IS DEV=1,

OCTNUM:

MAX.DEV.CU:

FIRST.TST:

JOCTAL INPUT FROM TTY

JFIRST TEST

777
0
0
0

TO RUN

JMAXIMNM # OF DEVICES/CU

;DIAGNOSTIC VARIABLES
SSTAT:
SRCCNT:
DSTCNT:
SAVDEV:

Cu=2)

sSAVED STATUS
;SOURCE DATA
:DESTINATION DATA
:SAVED DEVICE ADDRESS

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL~-78 12:52

2396
5397

014250
014252

000000
000000

MACY11 30A(1052)

07-JuL=78

MONITOR FILES
TSSFT:

COUNT:

J
12:55

5
PAGE 47

:TSSF TRACE

JUSED BY CH SIM TO COUNT BYTES TRANSFFERED

;LEGAL ADDRESS LIST

2635
24

g 4

26
2440

50
51

— 2
33333333333333358 2 33328
(=lelelelelelelelelelelelelelelele) g [elelelelelelolelelelelelelolelele]

264
2631
24
24
24

-WORD

-WORD
-WORD
-WORD

014316

[ 7.

014316
000000

000000
000000

014312
014314

—

-WORD

262
24622
26
24626
2625
24626
2427
2428

.WORD
.WORD
. WORD
. WORD
.WORD

RRRRRRRRRRRY RRY

URNN8omIc
N
038R

LEGAL. ADRS:

T10C
WRITEC
READ(

SENSEC

;TEST 1/0 COMMAND
JWRITE COMMAND
sREAD COMMAND
+NOP COMMAND

s SENSE COMMAND

SEQ 0061

CZDXHDO DX118 ONLINE EXER
CZDXHD.P11
07-JUL=-78 12:52
2452
5658
5434
5455
5636
5657
5658
5059
5660
5661
5662
5663

014372
014376
014376
014400
014402
014404
014406
014410
014412
014414
014416

000405
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

5664
5465
5666
5667

2468

5469
2470

MACY11 30A(1052) 07-JUL=78
MONITOR FILES
ILLC
-1
-1
o)
o]
-1
-1
-1
-1
-1
-1

000
000
000
014

DFLT.STAT:
BYTE
‘BYTE
‘BYTE
"BYTE

5076
5077
578
5479
580
581
582
583
584
585
585
5487
5488
5489

014425
014426
014497
014430
014431
014432
014435
01443%
014435
014436
014437

002
002
002
002
002
002
002
002
002
002
002

BYTE
‘BYTE
"BYTE
"BYTE
BYTE
‘BYTE
"BYTE
BYTE
"BYTE
"BYTE
BYTE

5492

014440

| 5475 014424

000

290

0
0
0
CE'DE

UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC

:LIST OF LEGAL COMMANDS
014440

2501 014456

CMD. ADRS :

000000

.WORD
-WORD
-WORD
-WORD
-WORD
-WORD

'mm

“boRD

-WORD

-WORD
-WORD
-WORD

(elelelelelelelelelelelelele)]

2493
549

‘BYTE

PAGE 48
: ILLAGAL COMMAND
LIST TERMINATOR
LIST TERMINATOR
LIST TERMINATOR
“LIST TERMINATOR
“LIST TERMINATOR
LIST TERMINATOR
LIST TERMINATOR
LIST TERMINATOR
LIST TERMINATOR
LIST TERMINATOR

;DEFAULT STATUS LIST
014420
014420
014421
014422
0144285

5471
5072
5,73
574

12:55

SEQ 0062

CZDXHDO DX11B ONLINE EXER

CZDXMD.P11
2508
52?8
2511
2512

gg}z
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534

07-JUL=78 12:52

014474
014476

MACY11 30A(1052) 07-JuL-78 12:5% PAGE 49
MONITOR FILES

000000
000000

WORD
WORD

:COMMAND STATUS

014500
014500
014501
014502
014503
014504
014505
014506
014507
014510
014511
014512
014513
014514
014515
014516
014517

CMD.STAT:
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000

Zzggz
014520

zsag
2543

014544
014550

2544
2545
2546
2547
2548
2549
2550
2551
zssi
gs

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

:SET UP DEFAULT PARAMETERS

2537

2538
2539
2540
25641

0
O

014520
014524
014530
014536

005037
005037
013737
012737

014556
014560
014566
014576
01
014610
014616
01
01
014640

005037
013737
013737
013737
013737
013737
01
01
013737
012737

005037
005037

006366
006426
001440 006526
1
014206

MONDFLT:

014234
012636

012634
014752
014754
014756
014770
014760
014762
014766
014764
1
5, 014646 012737 017400
2555 014654 012700 014360
2sg9 014660 012701 014440

CLR
CLR
MOV
MOV

AFENTRY1
SVENTRY2
SNTT,@NTTRACE
#-1,0NESHOT

CLR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

ERRCNT
ERROR COUNT
@D FIRST.TST @MRETURN ;FIRST TEST
@#D . DXBASE , a#DXBASE
*BASE ADDRESS
@D .DXIV,aNDXIV
:INT VECTOR ADRS
a#D.DX]S.aDXIS
*INT STATUS ADRS
a#D.DXPRT ,aDXPRT
:PRIORITY LEVEL
@D .MAX . DEV. CU, a#MAX . DEV. CU
*MAX DEVICES
@D .DEV.A, MDEV.A
:SECOND DEVICE
@D .LEGAL . ADRS , a¥LEGAL . ADRS
:CU ADRS
#-1.LEGAL .ADRS+
#DSTADRS,,@#DST ;INIT DST ADRS
#DFLT.CMD,RO
:ADRS OF DEFAULT CMD LIST
#CMD.ADRS.R1
:ADRS OF LEGAL CMD LIST

CLR
CLR

011660
001262
001264
001266
001270
014236
014 gg
014
014256
001442

gsa
014664 012021
59 014666 022710 177777
geo 014672 001374

MON2:

2563

MON2.0: 0

2561 014676 012721 177777
256‘3’ 014700 012727 000020
014704

MOV
CTMP
BNE

MOV
MOV

:TT TRACE ENTRY1
:TT TRACE ENTRY2
:INIT TT TRACE
:ONE PASS FLAGS

FIRST.TST
ERTSTN

SDEFAULT TEST #
*ERROR TEST NUMBER

(RO)+, (R1)+
MON2

:LOAD
DEFAULT CMD LIST
*TEST FOR TERMINATOR

#-1,3R0

#-1,(R1)+
6. ,(PC)+

:LOAD TERMINATOR

SEQ 0063

CZDXHDO DX118 ONLINE EXER

CZDXMD.P11

07-JUL-78 12:52

MACY11 30A(1052) 07-JUL=78 12:55 PAGE 50
MONITOR FILES

2564 014706 012700 014420
2565 014712 012701 014500

MOV
MOV

#DFLT.STAT,RO
#CMD.STAT,R1

DEC

Mon2.0

;DEFAULT STATUS
:STATUS FOR EACH COMMAND

2566

014716

112021

MON2.1: MOVB

%%
2570
2571
2572
2573
%ggg

014724
014726
014734
014742

001374
013737 014230 001436
013737 014230 001440 .
062737 001000 001440

BNE
MONZ . 1
MOV
OFFSET, SPW
MOV
OFFSET.TT
ADD
nooo T
MON2.3: RTS
:DEFAULT Pmrens

:LOAD ADRS OF SPW
*LOAD ADRS OF TT
s e
T
The e

2576

014752

004000

D.FIRST.TST:

TST1

:FIRST TEST

2580
2581
2582

014762
014764
014766

000020
000020
000421

D.MAX.DEV.CU:
D.LEGAL.ADRS:
D.DEV.A:

20
020
421

*MAX # DEVICES PER CU
*DEFAULT CU ADRS

2567 014720 005337 014704

014750

000207

2577 014754 176200
2578 014756 000300
2579 014760 000200

(RO)+,(R1)+

SEQ 0064

D.DXBASE :
D.DXIV:
D.DXPRT :

176200
300
LEVEL4

D.DXIS:

302

2585
%53599

.SBTTL

MONITOR SUBROUTINES

2588

:TT.CLR, CLEAR TUMBLE TABLE

%ssg‘s 014770 000302

2589
2590

2591

014772

2592 014772 013701

001440

2594

015000

020127

004000

2596
2597
2598

015006

000207

2593 014776 005021

2595 015004 001374

TT.CLR:

cL1:

015010

‘

ODAT:

2605
2606
2607

015016
015020
015022

005027
000000
104007

015020

ODAT1:
ODAT2:

2609

015032
015040

042737
105237

000400
015020

015050

000207

2603 015010 010046
2604 015012 012700 022442

VONO
VB WN=O

2608 015026 013;;0 015020

—

TMP

R1,#ENDTT

RTS

(R1)+

cLi

;REINIT OUTPUT DATA

2600
2601
2602

26
26
26

TT.R1

CLR

BNE

2599

26
26
26
26
26
26
26

MOV

015044 001366
015046 012600

015020

MOV
MOV
CLR

0
PARITY

RO,=(SP)
MJDATA,
RO
(PC)+

,ODAT1

MOV

ODAT1, (RO)+

BNE
MOV

ODAT2
(SP)+,RO

BIC
INCB
RTS

#PARO.ODAT1
ODAT1
PC

*BASE ADDRESS
*INT VECTOR ADRS
:DX PRIORITY LEVEL
:INT STATUS ADRS

)

:BOTTOM
OF TT
:CLEAR TT

:TEST FOR END OF TT

:BRANCH IF NOT END
:

CZDXHD.P11

12:55

07-JUL-78

MACY11 30A(1052)

CZDXHDO DX118 ONLINE EXER

MONITOR SUBROUTINES

07=JUL~-78 12:52

PAGE 51

SEQ 0065

2620
2621
2622
2623
2624
2625

2626

2627

| 2628
2629

2630
2631
2632

2633
2634
2635

015052

015052 017627
015056 000000
015060 017727

000000
005027
000000
106337
102002

015064

2222

015072
015076

015100 005137 015070

2644

2645
2646
2647
2648
2649

015104

001370
005737 015070
100404
052777 000400
ooo;g;

106337

015064

2652

015136 062716 000002

2640
2641

2222‘1’
22234.

015110
015112
015116
015120
015126
015130

015122

TDAT:
PRTY:

000400

042

SDAPG:

177772

015064
015066
015070

2636
2637
wzssa

T.PARITY:

000000

PG2:

PG3:

177730
177720

PG4:

PGS:

000002

ASLB
BVC
ASLB

a(SP) ,(PC)+
aSDAPG, (PC) +
(PC)+
.
TDAT
PG3

PRTY
TDAT

;FETCH ADDRESS OF SOURCE DATA
:SOURCE DATA ADDRESS
: FETCH SOURCE DATA
*SOURCE DATA

BNE
ST
BMI
BIS
BR

PG2
PRTY
PG4
#PARD,3SDAPG
PGS
#PARO,3SDAPG

;CLEAR PARITY BIT

ADD

#2,a5P

:ADD2 TO RETURN PC

BIC
RTI

,,
;SET PARITY BIT

sSETUP
SPW TABLE
.‘....Ql....."..ttt..t..' m m 7‘ (3222222333333 33333333333333313}

%“

ADDRESS RESOLUTION MOD

zzgg
015144

177400

0151

012700

014

SPW. SETUP:
MOV

151

g‘l‘

zaag 015146

015152
S 015156
015160
815154

0
CLR
0

CoM

2655

2659

MOV
0
MOV

015172

MARK:

012701 014316
012011
043711 015144 )
% 11
021027

2671 015176 001367

2675 0152064 013701 001436

#LEGAL .ADRS.RO

:;FETCH ADRS OF LEGAL ADRS LINST

ADD

SPW,(R1)+

JEQUALS REAL SPW ADRS

BNE

SP.

SFETCH NEXT ADRS

MOV
#SCALD.ADRS
.R1 :FETCH ADDRS OF SCALED LEGAL ADRS LIST
SP.0: MOV
(RO)+,aR1
:MAKE DUPLICATE ADRS LIST
B8IC
MARK
,
3R
1
:
Jetttnsseneanannnnnnnnces MOD fl T4 AAAARARARARARNARARANARAARANRR
SMAKE INDX MOD(2)
aR1
ASL

17777

gfi 015200 012721 177777

177400

MOV

ao6:-1

#-1,(R1)+
SPW.R1

*TEST FOR TERMINATIOR

:MARK END OF SCALED ADRS LIST
;ADRS OF SPW

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:5¢2

2676
2677
2678
2679
2680

015210
015214
015220
015222
015224

013702
012700
020110
001407
005720
022710
001372
012721
000407
013727
000000
010221
005337
001374
020137
002753
001405
005726
000004
000137
000207

2708

015332

12:55

6
PAGE 52

DST,R2
#SCALD .ADRS ,RO
R1,aR0
SP.3

177777

016400

ggv

ggngosr.(n1)+

MOV
0
MOV
DEC
BNE
CMP
BLT
BEQ

MAX.DEV.CU, (PC)+

TYPE

,IDWN

SP.1:
SP.2:

BNE
SP.3:
SP.4:
SP.5:

014236
015246

SP.6:

001440

TST

015404
012724

SP.7:

JMP
RTS

:RUN THRU LIST
*BRANCH ON LEGAL ADRS

(RO)+
#-1,3R0

;TEST FOR END OF LIST

SP.2

R2, (R1)+
SP.4
SP.5
R1.TT
SP.1
SP.7

SEQ 0066

;ADRS OF DST

MOV
MOV
(MP
BEQ
TST
CMP

001442
014316

*BRANCH IF NOT ENT

*LOAD SPW WITH ERROR DST ADRS

;TEST FOR END OF SPW

(SP)+

;POP STACK

MON1.0
PC

;GO BACK TO MONITOR

;DEVICE STATUS TABLE SETUP

013701
012727
000000
012702

001442
000020

005337
001374
000207

015314

112221

07-JUL-78
MACY11 30A(1052)
MONITOR SUBROUTINES

DST.SETUP:

DS.1:

014500

DS.2:

MOV
MoV
0
MOV
MOVB
DEC
BNE
RTS

DST.R1
#16.,(PC)+
#CMD.STAT,R2
(R2)+,(R1)+
DS.1
DS.2
PC

;SUBROUTINE TO CHECK THAT CU ADDRESS AND THE NUMBER OF DEVICES
;PER CU IS LEGAL
2713
2714
2715
2716

015334
015340
015342
015344

012700
005027
000000
111037

014254

CKCUA:
CKC1:
(kce:

015342

MOV
CLR
0O
MOvB

#LEGAL .ADRS RO
(PC)+

aR0,a#CKC2

kAR RRnannnannnrnncners

MOD

APR

;FETCH CU ADDRESS

RARRARRARRRRRRRARRAARRAANRRNER

2721

015350

122737

000020

014236

¢ KC3:

ADDRESS RANGE MOD

(MPB

JRRRRRARRRRRARRRRRARANAREY MOD APR

103005
000004
012716
000207
005720
021027
001357

BHIS

015404
013362
177777

TYPE

MOV
(KC4:

RTS

TST

CMP

BNE

sCHECK LIMIT 16.

#20,a#MAX.DEV.CU
74

*at sttt ahat A A AR AR eRtetrtns

;BRANCH IF WITHIN LIMITS
; ILLEGAL NUMBER OF DEVICES PER (U
#MONS
, (SP)
s CHANGE RETURN PC
CKCé

.JDVN

(RO)
+

arR0, #-1
ckei

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JUL-78 12:52

MACY11 30A(1052) 07-JUL-78 12:52 PAGE 53
MONITOR SUBROUTINES

046114
021440
042504

IDVN:

020123
052503

RTS

.ASCIZ

"' _ILLECAL # OF DEVICES PER CU "'

.EVEN

sPRE<INIT SUBROUTINE
015442
015450
015456
015462

012737
012737
005077
004737

015610
000340
163636
015614

015466
015472
015476
015502

004737

015570

PREI :

MOV
MOV

CLR
JSR

#PREITO,4

#LEVEL7.,6
aDXES

PC,RESRES

;THE FOLLOWING INSTRUCTION GET MODIFIED UPON THE COMPLETION
;OF THE SYSTEM RESET TEST.IF SCOPE PROBLEMS DEVELOP BEFORE THIS TEST

163572
163564

;PASSES THIS INST. CAN BE PATCHED TO A TESET,NOP.
PC,a#CLRMO
PREI.1: JSR
:MODIFIED TO CLRMO
aDX(CS
CLR
:CLR DONE,LOCKO
PC ,RESRES
‘DX RESET AND RESTORE
SPW,aDX0sS
SPW,abx0Ss

:BRANCH IF NO ERROR CONDITION

163570
163562

#TIMDIS ,aDXES
#TIMDIS ,aDXES

000004
000006

015570
015574
015602
015604
015606

005077
032777
001401

000207

NOCLR:

CLR
BIT
BEQ
ERROR
RTS

015610

104000

PREITO:

ERROR

015612

000002

100000

163506

*TIMER DISABLE
:BRANCH IF NO ERROR CONDITION

#6,4

#HALT,6
PC,ZEROTT

PC,TTZERO
PC

163514

;CLEAR MAINT (LK
;DX RESET AND RESTORE

CLRMO:

:ZERO TUMBLE TABLE
;VERIFY TT ZERO

;DO SYSTEM RESET
aDXMO
#0PLO,aDXMO
;1S OPLO CLEAR
NOCLR
sIF YES CONTINUE

;OPLO NOT RESET

;PREINIT TIME OUT ERROR

RTI

;DX RESET AND RESTORE ROUTINE

SEQ 0067

CZDXHDO DX11B ONLINE EXER

CZDXHD.P1

07-JuL-78 12:52

MACY11 30A(1052)

07-JUL-78

MONITOR SUBROUTINES

D
12:55

PAGE 54

SEQ 0068

2788

2789
2790
279N
2792
2793
%77345

015614

2796

015614

042777

000200

2800
2801
2802
2803
2804
2805
2806

015640
015644

004737
000207

007234

2797
2798
2799

015622
015630
015636

RESRES:

012777
013737
000240

000001
001440

%ggg
2809

2810
2811
2812
2813
2814
gg} g

163456

BIC

163450
006526

MOV
MOV
NOP
JSR
RTS

#DONE ,aDX (S

:CLEAR LOCKO

PC,ONLIN
PC

;GET BACK ONLINE

#DXFRS ,aDXCS
;DX RESET
aNTT,TTRACE
;RELOAD SOFT TT POINTER
; INSERT RESET I1.E.''S"' HERE IF REQUIRED

;REGISTER ADDRESS SETUP ROUTINE
015646

REG.SETUP:

015646
015652
015656
015660
015664
015670

013700
012701
010021
062700
020127
001372

001262
001274

%g]';

015672

004537

015726

2819

015676

001276

DXCA

2822
ggz

015702
015704

001302
001332

DXO0S
CUSR

2825
gg?zg

015706
015710

001310
001336

DXMO
BUSO

2828
53233

015712
015714

001312
001342

DXMI
BUSI

2831
gggg

015716
015720

001320
001346

DXES
MISC

2834
2835
gg%g

015722

177777

-1

015724

000207

RTS

2838

015726

MOV
MOV
MOV
MOV

(R5)+,R0
(R5)+,R1
aR0, (R1)+
aR0,aR1

Sg?

2839
2840
2841
2842

015700

015726
015730
015732
015734

000002
001326

RS.1:

001326

012500
012501
011021
01101

2843 015736 005221

MOV
MOV
MOV
ADD
cMP
BNE

DXBASE ,RO
#DXDS ,R1
RO, (R1)+
#2,.RO
R1,A#DXES1+2
RS.1

JSR

R5,SBYTE

CUAR

SBYTE :

INC

(R15+

;FETCH BASE ADRS
;FETCH ADRS OF DXDS ADRS

sINC TO NEXT DX ADRS

;SETUP BYTE REF REG'S

CZDXHDO DX11B ONLINE EXER
07-JuL-78 12:52

CZDXHD.P11

015740
015744
015746
015750

021527
001370
005725
000205

MACY11 30A(1052) 07-JuUL-78 12:S§ PAGE 55

SEQ 0069

MONITOR SUBROUTINES

177777

CMP
BNE
TST
RTS

aR5 ,#-1
SBYTE
(R5)+
;POP OVER TERMINATOR
RS

;ACCEPT HEX NUMBER FROM TTY
015752
015756
015760
015762
015764
015766
015770
015774
015776
016002
016006
016010
016014

016410

GETHEX:

ACPTH:

000003
012724
000177

ACPTH.1:

sCLEAR HEXADECIMAL NUMBER LOCATION
;SAVE R2
:SAVE R1
:SAVE RO

HE XNUM

R2,=(SP)

R1,=(SP)
RO,=(SP)
R1

*FETCH AN ASCII CHAR FROM KEYBOARD

KEY.TO.RO

*CONTROL €?

;TEST FOR RUBOUT

AH.2:

000015

;TEST FOR <CR>

000040

;EXIT IF SPACE

000000

UBOUH
RO,#'9
AHEX
#177760,R0
R1
R1
R1
R1
RO,R1
ACPTH.1

000071
177760

021240
016410

CARGH:

AHEX:

AHEXO:

016412
016422

AHEX1:

sFETCH NEXT CHAR

;RESTORE RO

;RESTOR R1
R2
RE
;RESTO

R2
RO,ATBL (R2)
AHEX1
R2
ATBL (R2) ,#0
AHEX0
RUBOUH
HTBL (R2) ,RO

sennnnnnnnnnnnnnnnnntnntt

;CHALK'M UP

sPLACE HEX NUMBER HERE

(SP)+,R0
(SP)+ ,R1
(SP)+ ,R2

m.s

;CONVERT ASCII TO HEX

;sTYPE?

‘.Ms
ACPTH
R1,HEXNUM

016412

;TEST FOR VALID HEX NUMBER

sLOOK THRU ASCII TABLE
sBRANCH ON MATCH

;LOOK FOR END OF TABLE
sBRANCH IF NOT END
;ERROR ON NO MATCH
;LOAD BINARY OF FIND

MOD APR

Attt aatkha A A AR AR AAAARRARCARR

CZDXHDO DX11B ONLINE EXER
07-JuL-78 12:52
CZDXHD.P11

MACY11 30A(1052) 07-JuL-78
MONITOR SUBROUTINES

12:55

PAGE 56

SEQ 0070

.=, 137741

016400

; ILLEGAL OR MALFUNCTIONNING CUAR ERROR STATUS TABLE MODULO 8
ERRDST:

JUNIT
JUNIT
JUNIT
JUNIT
JUNIT
JUNIT
JUNIT
JUNIT

.BYTE

.BYTE
.BYTE

042103

043105

013
016

014
017

HEXNUM: 0

ATBL :

.WOR D
HTBL:

CHECK ENTRIES
CHECK ENTRIES
CHECK ENTRIES
CHECK ENTRIES
CHECK ENTRIES
CHECK ENTRIES
CHECK ENTRIES
CHECK ENTRIES

JHEX NUMBER

LASCII

'ABCDEF '

.BYTE

19..97%..12..13.,.%.
.15,

;ACCEPT OCTAL NUMBER FROM TTY

014232

000003

012724
000177

T.ACCEPTO:
CLR
MOV
MOV
ACPTO:
CLR
ACPTO.1:

AD.2:

(MPB

SRR

000015

OCTNUM
R1,=(SP)
RO,=(SP)
R1
KEY.TO0.RO

RO.43
AO.2
a#MON1.0
#177 ,R0O
RUBOUT
#15,R0

*SAVE R1
:SAVE RO

“FETCH AN ASCII CHAR FROM KEYBOARD
*CONTROL C?

;TEST FOR RUBOUT
:TEST FOR <CR>

000040

:EXIT IF SPACE

000000

;TEST FOR VALID OCTAL NUMBER

000067

RUBOUT
;} 77770,R0

177770

R1
R1

ACPTO.1

016550

;CLEAR OCTAL NUMBER LOCATION

021240

RUBOUT:

TYPE

014232

CARG:

MOV

.. QUES

ACPTO
R1,0CTNUM

(SP)+ RO
(SP)+ ,R1

;CONVERT ASCII TO OCTAL

;CHALK'M UP

sFETCH NEXT CHAR

;TYPE?

sPLACE OCTAL NUMBER HERE
sRESTORE RO

;RETURN

;RESTOR R1

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JUL=-78 12:52

2957
2958

2960
2961
2962
2963

016552
016552
016556
016560
016564
016572

100375
117700
117777
004737

2965

016602

000002

2967
2969

105777

016604

105777

016612

000207

2970 016610 100375
2971

2972

162612

016576 042700 177600

016604

RTI

TTYFLG:

162572

28:

LSBTTL

2978
2979

016630
016634

017605
122715

2981

2983

016642
016644
016646

105715
001423
122715

000001

2985

016654

122715

000137

2987

016662

105777

162514

2989

016670

112577

162510

2986 016660 001406

2988 016666 100375

2990
2991
2992
2993
2996
2995
2996

2997

016674
016676
016700
016702
016706
016710
016712
016714

000000
000044

LCRLF:

LREST:

.TERM:

000002

.IOTE:

3002
3003
3004

016732
016734
016742

000000
005015
001002

3006

016746

000000

3009
3010
3011

016750
016754
016760

3007
3008

016746

012637
012637
010546

#177600,R0

27 BIT ASCII

001002
0C1

001002

.SAV:
.CAR:

.EVEN

TYPE:

017006
017010

RTS

SEQ 0071

;WAIT FOR KEYBOARD
*FETCH CHAR
*ECHO
*WAIT FOR DONE

BNE
MOV

BIT

#8IT13,SR
.IOTE
TTY,.SAV

BEQ

.TERM

TTY ASCII OUTPUT ROUTINE

MOV
CMPB

a(6),TTY
#'S,(TTY)

;TEST FOR INHIBIT PRINT
;SAVE TTY

;GET ADDRESS TO BE TYPED
;TERMINATOR?

TSTB
BEQ
CMPB

(TTY)
.TERM
M ,(TTY)

;TERMINATOR?

CMPB

JSET UP CR LF

TSTB

aTPS

MOVB

(TTY)+,aTPB

BPL

016604

062716
000002

;TEST FOR DONE

.4
@TKB,RO
aTKB.aTPB
PC,TTYFLG

QTIPS

BEQ

004737

016724
016730

PAGE 57

aTkS

TSTB

8PL

BEQ

2998 016720 013705 016732

3005

.IOT:
.MORE:

000757
005205
010546
012705 016734
000752
012605
000750

2999
33339

:TEST FOR TRANSMITTER DONE

2975 016614 032737 020000 177570
2976 016622 001040
2977 0166264 010537 016732

2984 016652 001416

T.KEY.TO.RO:
ISTB
BPL
MOVB
MOVB
JSR

BIC

2980 016640 001425

12:55

:FETCH AN ASCII CHARACTER FROM KEYBOARD

162620

162614
162610
016604

MACY11 30A(1052) 07-JUL-78
MONITOR SUBROUTINES

;RESTORE OLD SEQUENCE

.REST

.CRLF

B8R
INC
MOV
MOV
B8R
MOV
B8R

.MORE
TTY.=(6)
#.CAR,TTY
.MORE
(6)+,TTY
.MORE

MOV

.SAV,TTY

JSR

ADD
RTI

TTY

PC.TTYFLG
#2,(6)

:WAIT FOR DONE

:POP

.ASCII

.SBTTL SAVE AND RESTORE REGISTERS
:SAVE REGS 0 TO 4 SUBROUTINE.
T.SAVRG: MOV
MOV
MOV

(6)+,SVRP(
(6)+,SVRPSW
25,-(6)

;SAVE PC AND PSW.

CZDXHDO DX118 ONLINE EXER
CZDXHD.P1
07-JuL-78 12:52
3012
3013
3014

016762
016764
016766

010446
010346
010246

3017
3018

016774
017000

013746
013746

H
MACY11 30A(1052) 07-JuL-78 12:55
SAVE AND RESTORE REGISTERS

017012
017016
017022
017024

012637
012637
012600
012601

PAGE 58

%4,-(6) ;SAVE REGS 0 - 4
6)
%
:IN STACK.
%2,-(6)
%1,-(6)
%0,-(6)
sRESTORE PC AND PSW.
SVRPSW,=(6)
SVRP(C,=(6)

017010
017006

SEXIT.

SVRPC:
0
SVRPSW: 0
3023
3026
3025
3026

;RESTORE REGS 0 TO & SUBROUTINE.
(6)+,RSTPC
;SAVE PC AND PSW.
(6)+,RSTPSW
(6)+,%0
JRESTORE REGS 0 = 4
(6)+,%1
;FROM STACK.
(6)+,%2

017050
017052

T.RSTRG: MOV

(6)+,%3
(6)+,%6
(6)+,%5

32
3033
34
30;2

017036
017042
017046
017050

013746
013746

3039

017054

000000

3041

017064

000

3043
3044
3045
3046

017066

112737
2
005037
112737

000001

3050

017076

017102

017122

017052
017050

RSTPSW,=(6)
RSTPC,=(6)

RSTPC:
O
RSTPSW: 0
.SBTTL
OCTAL DUMP ROUTINE

012704

017064

177772
020000

000000

017064

017065

PRINT2:

.WORD

0.0,0,0

PRINT3:

.BYTE

0.0

PRINTR: MOVB
BR
PRINTS: CLR

MOovB
BIT
BNE
MOV

177570

017054

CLRB

(4)

(4)
PRINTF
TTY
(4)
TTY
(4)
TTY
(4)

(4)

N
WRONB
N
v
w
WVINSNON
~N

NGRS

%6 ,-(6)
#PRINT2
%4

PRINTF: ROL

Eon8228
=
AR
= VA1
H

8
wvi

2
—

b b -

NNV

—_—

237

#BIT13,SR

PRTE

MOV

CLRB

PRINTL:

#1,PRINT3
+6
PRINT3
#-6 ,PRINT3+1

017064
017064
000060
017065

PRINT3
PRINT3
.+6
#'0,(4)+
PRINT3+1

PRINTL

JRESTORE PC AND PSW.

JEXIT

sSET ZERO FILL SWITCH

;SUPRESS LEADING ZERO'S
sSET COUNT
:SAVE R4
sSET POINTER TO FIRST ASCII CHAR.
;CLEAR FIRST BYTE
sROTATE FIRST BIT

sCLEAR BYTE OF CHARACTER
sROTATE BIT INTO C

sPACK IT
sROTATE BIT INTO C
sPACK IT
sROTATE BIT INTO C
JPACK IT

JCHECK FILL SWITCH
JMAKE INTO ASCII CHAR
JREPEAT

SEQ 0072

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11

07-JuL-78 12:52

3068
3069
3070
3071
3072
3073
3074
3075
338;9

017200
(017204
017206
017212
017214
017220
017222

3078
3079

0172264
017230

117727
000000

3081
3082
3083
3084

017240
017246
017250
017254

122737
001004
000004
000137

3086

017264

3080

3085

3087

3089
3383(1)

022704
001002
112724
105014
000004
012604
000207

MACY11 30A(1052)

017054
000060

017054

000003

017232

017260

042737

004737

113777

017272

000002

017274

041536
017300

162150

000200
000003

017230

017230
000

162112

6
PAGE 59

CMP
#PRINT2, %4
BNE
.+6
MOovB
#'0,(6)+
CLRB
(4)
TYPE
.PRINT2
MOV
(6)+,%6
PRTE:
RTS
x7
:TTY WATCH DOG FOR CONTROL C
CNTLC=3

JTYPE IT

TTYI:
SCHAR:

;SAVE CHAR
sHERE

017230

017274
012724

016604

07-JUL-78

OCTAL DUMP ROUTINE

I
12:55

TTY10:

sASCII CONTROL C

MOVB
0

aTkB, (PC)+

CMP8
BNE
TYPE
JMP

#CNTLC,a#SCHAR ;CHECK FOR CONTROL C
TTYI0
LACLC
;TYPE CONTROL C
a#MON1.0

8IC

#200,a#SCHAR

JSR

PC,TTYFLG

MOovB
RTI

ACLC:
.EVEN

sRESTORE RS

.ASCIZ

a#SCHAR,aTPB

sSEVEN LEVEL ASCII

;ECHO CHARACTER

<136><103>

3383%

017400

.=, 137741

;FORM MOD (400) BOUNDRY

3094

017400

DSTADRS=.

;DEFAULT DST

3096
3097
3098

017400
017401
017402

000
000
000

.BYTE
.BYTE
.BYTE

0
0
0

;710
;WRITE
;READ

g}g?

017404

000

.BYTE

s SENSE

3102
3103
3106
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116

017405
017406
017407
017410
01741
017412
017413
017414
017415
017416
017417
017420
0174621
01742
01742

002
002
002
002
002
002
002
002
002
002
002
002
002
002
002

BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC

sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sJLLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
;ILLEGAL

12%

017431

002

BYTE

sILLEGAL ,UNIT CHECK

3099

3117
3118
3119
3120
§121
3123

017403

017424
017425
017426
017427
017430
017432

014

002
002
002
002
002
002

.BYTE

BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE

CE!DE

UC
UC
UC
UC
UC
UC

:NOP

sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL

,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK

,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK

sILLEGAL ,UNIT CHECK

SEQ 0073

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

07-JuL-78 12:52

3126
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
N
31%
1
176
175
176
177
178

002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002

3179

017433
017434
017435
017436
017437
017440
017441
017442
017443
017444
017445
017446
017447
017450
017451
017452
017453
017454
017455
017456
017457
017460
017461
017462
017463
017464
017465
017466
017467
017470
01747
017472
017473
017474
017475
017476
017477
017500
017501
017502
017503
017504
017505
017506
017507
017510
01751
017S1§
01751
017514
017515
017519
01751
017520
017521

017522

MACY11 30A(1052) 07-JuL-78 12:5% PAGE 60
OCTAL DUMP ROUTINE

BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.3YTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC

sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
;ILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
s ILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
s ILLEGAL

,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK

,UNIT CHECK

SEQ 0074

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

07-JUL-78 12:52

3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3196
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
g?g
g
4
25
2?
27
28
29
30

017523
017524
017525
017526
017527
017530
017531
017532
017533
017534
017535
017536
017537
017540
017541
01754
01754
017544
017545
017546
017547
017550
017551
017552
017553
017554
017555
017556
017557
017560
017561
017562
017563
017564
017565
017566
017567
017570
017571
017572
017573
017574
017575
01757
0175
017600
017601
017
01760
017604
017605

002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
00

34
3235

017611
017612

31
g

017606
017607
017610

00.
002

002
002
002
%S

002
002
002

MACY11 30A(1052)

07-JuUL-78

OCTAL DUMP ROUTINE

K
12:55

6
PAGE 61

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
8YTE
.BYTE
“YTE
JYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC

UC
UC

sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
s ILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
s ILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL

.BYTE
BYTE

UC
UC

sILLEGAL ,UNIT CHECK
sILLEGAL ,UNIT CHECK

BYTE
.BYTE
.BYTE

UC
UC

UC
UC
UC

,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK

sILLEGAL ,UNIT CHECK
sILLEGAL ,UNIT CHECK
sILLEGAL ,UNIT CHECK

SEQ 0075

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

07-JuL-78 12:52

017613
017614
017615
017616
017617
017620
017621
017622
017623
017624
017625
017626
017627
017630
017631
017632
017633
017634
017635
017636
017637
017640
017641
01764
01764
017644
017645
017646
017647
017650
017651
017652
017653
017654
017655
017656
017657
017660
017661
017
017
017664
017665
017666
017667
017670
017671
0176
0176
017674
017675
017676
017677
017700
017701
017702

MACYTT 38A(1052) 07-JuL-78 12:5& PAGE 62
CTAL DUMP ROUTINE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
8YTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE

UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC

sILLEGAL
s ILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
s ILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
s ILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sJILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL

SEQ 0076

CZDXHDO DX118 ONLINE EXER
CZDXMD.P11
07-JUL-78 12:52

|
|

3292
3293
3294,
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
333,
3335
333

3337
3338
3339
330
331
32
33
3L
gsas
36
37

017703
017704
017705
017706
017707
017710
017711
017712
017713
017714
017715
017716
017717
017720
017721
017722
017723
017724
017725
017726
017727
017730
017731
017732
017733
01773%
017735
017736
017737
017740
017741
017742
017743
017744
017745
017746
017747
017750
017751
017752
017753
017754
017755
017756
017757

017760
017761
0177
01776
017764
017765
017766
017767
017770
017771
017772

002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002
002

002
002
002
002
002
002
002
002
002
002
002

MACY11 30A(1052) 07-JUL-78
OCTAL DUMP ROUTINE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE
.BYTE

UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC

UC
UC
UC
UC
UC
UC
UC
UC
UC
UC
UC

12:55

PAGE 63

;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
*ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL .UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
sILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL ,UNIT CHECK
:ILLEGAL .UNIT CHECK
;ILLEGAL ,UNIT CHECK
;ILLEGAL ,UNIT CHECK
:ILLEGAL .UNIT CHECK

SEQ 0077

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

07=JUL~-78 12:52

3348
3349
3350
3351
3352

3353
3354
3355
gggg

017773
017774
017775
017776
017777

002
002
002
002
002

020000
020000

000012

3358
%28

020024
020024

000012

3361
gSsgg

020050
020050

000012

3364
3365
3366
3367

3368

020074

MACY11 30A(1052)

OCTAL DUMP ROUTINE

.EVEN
T.PCH1:

T.PCH2:
T.PCH3:

.SBTTL
LF=12
CR=15

000012
000015

(1)

020074

040537

026503

033470

137

047506

020122

(1)

020256

057537

044504

(1)
(1)

(1)
(1)
(1)

(1)

10.

.BLKW

10.

.BLkW

10.

PAGE 64

sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL

MESSAGES

HEADER TEXT MOD

.NLIST BEX

LASCII

"'_AC-8772D-MC CZDXHDO DX118B ONLINE EXER (JUL 78)
HEADER TEXT MOD

LASCII

020360 052137 051110 053517

.ASC11

;_rmou ENABLE SWITCH_ONLINE''

020325

137

047503

047116

020413

137

052137

050131

020513
020551

137
137

020040
020040

020453

137

020040

LASCII
ASCII
LASCII

020040

LASCIT

LASCII
LASCIZ

~SEE_PROGRAM LISTING PAGE #1''

_DISCONNECT °*DX11°' FROM 360/370 CHANNEL "'

‘TTONNECT MAINTENANCE CABLES
TYPE

"_
'7

<D>,DEFAULT PMYifls::

<> PREVIG.IS PARAME TERS

<S>,SELECT PARAMETERS''
<N>,START YHIS TEST NUMBER''

HEADER TEXT MOD

sannannnnananantanatantet MOD APR 74

FSTART: .ASCIZ *'_D.P,S.N? '

(1)
(1)

020631
020651

137
137

040502
042504

042523
0445

mg:
MSG3:

LASCIZ
LASCIZ

(1)

021076

042137

020120

051120

MSG12:

.ASCIZ

020673
020712
0210064
021014
021033
021064

137
052137
040537
051537
137
041537

021123

137

(1)

021141

(1)
(1)

021200
021202

(1)

AR AR A AARRNRRRARAN

041523

020220 051537 042505 050040

021175

042526
050131
051106
052105
044516
046517

036440

0521
1
035123
051
052123
040515

MSGS:
MSG4:
flSG?:
MSG7:
MSG9:
mMSG10:

044440

MSG13:

LASCIZ
ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ

‘" TEST NUMBER:
'
"'tYPE cy ADRS'S IN HEX <CR><LF>; <CR><CR> TERMINATES LIST"
‘'TADRS:
':SH SWITCHES_'*
USV ALL LEGIL COMMANDS'*
,_cmwo

.ASCIZ

'7 = ILLEGAL
?

'PDX PRIORITY |.EVEL

0625;;

051507

RDM:

LASCIZ

‘' REGSTR = SHOULD BE

042537

042116

052040

BELL:
ENDTST:

.ASCIZ
.ASCIZ

<207>
i
‘' END TEST

HOME:

Attt anananadttta
sttt atttetenes

'°BASE ADDRESS:
"_DEVICES PER CU

HEADER TEXT MOD

137 042137 050054

(1)

';,roa DYNAMIC SWITCH REGISTER SETHMS

m 020615

5};

,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK
,UNIT CHECK

LASCII

(1)

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

SEQ 0078

JRRRRRRRRRRknnnanntannens MOD JULY 78 ARt ettt

020153

(1)

.BLKW

Jannnnnnnnnnnnneanntttttt MOD JULY 78 Sonantaaaaat
et aattta st taaattees

(1)

UC
UC
UC
UC
UC

BYTE
BYTE
BYTE
BYTE
BYTE

12:55

HEADER:

3369

3370

07-JUL=78

.ASCIZ

<35><37>

WAS'

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
(1)
(1)
(1)
(1)
(1)

021214
021240
021243
021252
021254

2};

021305

(1)

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

qp
(N
(1)
(1)
4P
(1)
(1)
(1)
(1)
(1)

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

021256

021322
021331
021340
021347
021356
021365
021374
021403
021412
021421
021430
021437

ME SSAGES

020137
057477
040
000040
000137
052137
137

051105
000
020040

047522
020040

050131
042537

020105
051122

042137
137
042137
°
137
042137

042130

035123
040503
035123
051517

042137
042137

ECM:

.QUES:
SPAC4:

SPACE:
CRLF:
STALL:

ERPC:

ADXDS:

LASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

<40>
';"
'TTYPE IN STALL COUNT: ‘'

'T_ERROR PC:

'’DXDS:''

,oxCA -

ADXOS:

.ASCIZ

'7DXOS:'

ADXBA:
ADXBC:
ADXMO:
ADXMI:

.ASCIZ

' Dxcs.g

ADXCB:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

'TDXBA:''
'7DXBC:''
'7DXMO:''
‘'7DxmMI:''

ADXES:
ADXES1:

.ASCIZ
.ASCIZ

'TDXES:''
‘TDXES1:

.ASCIZ

SEQ 0079

ERRORS DETECTED: *'

.ASCIZ

ADXCS:

7
PAGE 65

‘7"
<4D0><40><40><40><40><40>

ADXCA:

ADXND:
051505

07-JUL-78

'"DXcB:''

'TDXND:''

tttfinttttttttttttnttntttfitt MOD APR

ERROR TEXT MOD

i
021450

052503

042101

MSG26:

.ASCIZ

'’

021465
021507
021521
021542
021571

042526
052123
051105

052103
052101

MSG28:

.ASCIZ

'~VECTOR ADDRESS:

MSG35:
MSG36:

.ASCIZ
.ASCIZ

'_ERROR IN TEST:
' _CRIGIN OF MAP ERROR

MSG31:

TRCM:

ABSYM:

AMUXM:
TRC1:
052116

054522

CUADRS/MO:'’

tt'ttttttQtttttttt'tttttttt MOD APR 74

TRCM1:

021623
021664
021703
021723
021745
021767
022014

3371
3372
3373
3374
3375
3376

3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388

MACY11 30A(1052)

-8
12:55

TRC2:
TIDS:
TTCA:

.ASCIZ

LASCIZ

* A aaaadta

'TSTATUS:

'PTT TRACE ERROR IN TEST -

' _ORIGN OF LAST TT TRACE UPDATE:

.ASCIZ
.ASCIZ

HULTIPLEXER
''ENTRY WAS

.ASCIZ
.ASCIZ
.ASCIZ

‘'TBUSY ENABLE

‘'

CH”

ENTRY SHOULD BE: "'
‘'TENTRY WAS FROM DXDS'
"ENTRY WAS FROM DXCA'’

.LIST

BEX

.SBTTL

DATA BUFFERS

;DATA BUFFER =~ CONTAINS 0 - 255 IN ONE BYTE ITEMS
022042

022042

022044
022046

:gcgz FILE FOR CHANNEL SIMULATOR WRITE CMDS
DATA:

Akttt Attt

hhdn

AARRARARRARAARAARAARAARAARAARR

.ASCIZ

_ASCIZ

Akt

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52

3389

3390

022050

3392

022052

3394
3395
3396

022054

3398

022060

3400

022062

3402

022064

3404

022066

3406

022070

3408

022072

3410

022074

3412
3413
3414

022076

3417

022102

3391

3393

3397

3399
3401

3403
3405

3407
3409

3415
3416

3418
3419
3420
3421
3422
3423

3424

022056

022100

022104
022106

022110

3425

022112

3427

022114

3429

022116

3431

022120

3433

022122

3435

022124

3437

022126

3439

022130

3441

022132

3443

022134

3426
3428

3430

3432
3434

3436

3438
3440

3442

344

MACY11 30A(1052) 07-JuL-78
DATA BUFFERS

000010

N=N#2

000020

N=N#2

000040

N=N*2

000200

N=N=*2

000400

N=N*2

001000

N=N=*2

002000

N=N=*2

004000

N=N=*2

010000

N=N#2

020000

=N*2

000010

000020
000040
000100
000100
000200
000400
001000

002000
004000
010000

020000

.WORD

.WORD
=N*2
.WORD

.WORD

.WORD
N=N=*2
.WORD

.WORD

=W-1

040000

N=N=*2

000000
000002

N=N=*2
w=2

040000
100000
100000
177775

000004
177773
00001C
177767
000020
177757

000040

177737

=W +W
.WORD
=W+W
.WORD
Wl
.WORD

W=W+W

.WORD

-W-1

.WORD

=W-1

.WORD

=W-1

.WORD

=W-1

.WORD

-W-1

.WORD

~W-1

.WORD

-W-1

.WORD

=W=1

000400

W=W+W

001000

W=W+W

002000

W=W+W

004000

W=W+W

010000

=W +W

175777
173777

167777

020000

W=W+W

040000

100000

W=l

157777
137777

=W-1

=W=1

W=W+W

176777

=W-1

«WORD

000200

177377

=W-1

W=W+W

177577

.WORD

000100

177677

X
12:55 PAGE 66

SEQ 0080

022140

077777
000000
177777

W=W+W

3450

022142

000001

3452

022144

000002

N=1
. WORD
N=N*2

3454

022146

000004

3456

022150

000010

3458

022152

000020

3460

022154

000040

3462

022156

000100

3464

022160

000200

3468

022164

001000

3470

022166

002000

3472

022170

004000

3474

022172

010000

3476

022174

020000

3478

022176

040000

07-JuL-78
MACY11 30A(1052)
DATA BUF FERS

3480

022200

3483

022202

3485
34
3487
34
3489

022204

022206

3491

022212

100000
000000
000002
177775
000004
177773
000010
177767
000020
177757
000040

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52

3493

022214

3495

022216

3497

022220

3499

022222

022210

177737

000100

177677

000200

177577

000400

177377
1000

176777

. WORD

“W=1

W=W+W

022162 &”6288

.WORD

022136

3445
46
3447

12:55

PAGE 67

SEQ 0081

CZDXHDO DX118 ONLINE EXER
07-JuL~-78 12:52
CZDXHD.P11
022224
022226

022230
022232

022234

022236

175777
004000
173777
010000
167777
020000
157777
040000
137777

.WORD

W=W+W

-W=-1
-w-1

100000

022252

022254
022256
.
022260

22
2T

022250

022246

022244

022242

022240

022272

022276

022300
022302

tiis

022274

022270

022266

022264

022262

3501
3502
3503

MACY11 30A(1052)
07-JuL-78
DATA BUFFERS

022304

022306
022310

12:55

PAGE 68

SEQ 0082

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11
3557
3558
3559

022314

3561

022316

3563

022320

3565

022322

3567

0223264

3569

022326

3571

022330

3560

3562

3564
3566
3568
3570
3572
3573
3574

022312

022332

3575

022334

3577

022336

3579

022340

3582
3583

022342

3576

3578
3580
3581

07-JuL~-78 12:52

3584

022344

3586
3587
3538

022346

3590

022352

3592
3593
3596

022354

3596

022360

3598

022362

3585

3589
3591

3595

3597
3599

3601

3602

3603
3605
3607

022350

022356

022364
022366
022370
022372

3608

022374

3610
3611
3612

022376

3609

022400

177737
000100
177677

000200
177577

MACY11 30A(1052)

DATA BUFFERS

.WORD
W=W+W
.WORD

=W-1

.WORD

=W-1

.WORD

=W-1

.WORD

=W-1

.WORD

=W-1

.WORD

=W=1

.WORD
W=W+W
.WORD
W=W+W

=W-1

W=W+W

000400

W=W+W

001000

=W+

177377

176777

002000

W=W+W

004000

W=W+W

010000

W=+l

175777
173777

167777
020000
157777
040000
137777

.WORD

=W-1

.WORD

=W-1

.WORD
N=N=*2

000000

W=W+W

000000
000001

W=W+W
N=1

000001
000002
000002

.WORD

.WORD
N=N#2
.WORD

.WORD

.WORD
N=N#2
.WORD

.WORD

.WORD
N=N=*2
.WORD

000004

N=N=*2

000020

N=N*2

000040

N=N#2

000004
000010
000010
000020

000040
000100
000100

000200
000200

N=N=*2

000400

N=N*2

001000

N=N=2

002000

N=N=*2

004000

N=N=*2

010009

N=N#2

020000

N=N=*2

040000

=N*2

000400
001000

002000
224000
010000
020000
040000
100000
100000

=W-1
=W-1

W=W+W

177777

~W-1

.WORD

100000

077777

07-JuL=-78

12:55

PAGE 69

SEQ 0083

CZDXHDO DX118 ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52

MACY11 30A(1052)

07-JuUL-78

DATA BUFFERS

N=N*2
w=2
WORD

=W=1

LWORD

=W=1

LWORD

=W-1

WORD

=W-1

WORD

=W-1

WORD

=W-1

.WORD

=W-1

WORD

=W-1

WORD

=W-1

WORD

=W-1

.WORD

=W-1

WORD

=W-1

WORD

=W-1

022434

WORD

=W-1

022436

WORD

=W=1

WORD

=W-1

022402

022404
022406
022410

022412
022414

022416
022420

000002
177775
000004
177773
000010
177767
000020
177757

W=W+W
=W+W

000040

W=W+W

000100
177677
000200
177577
000400
177377

177737

022422

W=W+W
=W+

=W+W
=W+W

022424

W=W+W

022426

W=W+W

022430

W=W+W

022432

=W+

=W+l

=W+W

022440

022442

W=W+W

022442
000000
023442
000001

G
12:55

7
PAGE 70

.=,
;INDICATE ADDRESS OF END OF BUFFER
WDATA:
0
;BEGINNING OF WRITE DATA FILE
NPRDATA=WDATA+512.
:NPR INPUT DATA FILE

:ggSTA AND NPRDAT OVER WRITE ASCII TEXT

SEQ 0084

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
ABSYM
021664
ACCEPT= 104005
ACLC
017274
ACPTH
015764
ACPTH.
015766
ACPTO
016440
ACPTO.
016442
ACUA
014222
ADRA
012604
ADRAE
012632
ADRECC= 000002
ADRECD= 000001
ADRI
= 010000
ADRO = 004000
ADXBA
ADXBC
ADXCA
ADXCB
ADXCS
ADXDS
ADXES
ADXES1
ADXMI
ADXMO
ADXND
ADXOS
AHEX
AHEXO
AHEX1
AH.2
AH.2
AMUXM
AO.2
ATBL

021356
021365
021331
021412
021340
021322
021430
021437
021403
021374
021421
021347
016102
016104
016126
016002
016040
021703
016456
016412

ATTEN = 000200
ATTN = 000200

= 000010
BA
BALF
= 000010
8C
= 000012
BEGIN
001100
BELL
021200
BGNO
001216
BGN1
001230
001244
BGN2
BITO = 000001
BIT1
= 600002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000

BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020

H 7
MACY11 30A(1052) 07-JuL=78 12:55 PAGE 72
CROSS REFERENCE TABLE == USER SYMBOLS
2146

2156

2163

2172

2217

2304

2336+

2337

2338+

23794

1656
1606

1833
1734

1846
1735

1759

2051

2102

2116

2283
1748

1986

2030

2975

3047

1006

1026

SEQ 0085

2253

2259

1760

1786

1788

1792

1794

1870

1872

1131

1154

1610

1687

1807

1878

2033

29174

328

1094

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JUL-78 12:52

BUSOB
001352
BYPAS = 000100

1814
1804
1794
1784
1774
Lon
2
134
3734
3684
2826
3824
92n

CARG
016540
CARGH
016066
CARRY
014210
= 000020
(8
CE
= 000010
CHDEND= 000040
CHEND = 000010
CHENDS= 001000
CHIS = 000200
CKCUA
015334

2935
2864
23694
1274
2054
164
S04
124
144
2235

CMDCHN= 000004
CMDO = 002000
CMDREJ= 000001

1421
194
654
214

BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BSY
= 000020
BSYEN = 004000
BSYS = 000400
BUSI
001342
BUSO
001336

= 000002

CKkC1
015340
CKC2
015342
CKC3
015350
CKCé4
015372
CLKO = 001000
CLRMO
015570
CL1
014776
M
014216

MACY11 30A(1052) 07-JuL-78 12:5% PAGE 73

1204

2250
2249
1483+
30764
3744
3694
3834
878+
2196
2029
1214
304
28
2026
3584

CuBSY = 000400
001330
CUCR
CUDEND= 000020

324
3594
174

1893+

1750
1315

1375

977
1087

1623
1436+

1680
1440%

1401

2474

3099

1024

1152
872

1563

1691

1750
1636+

1764
1637

1837
1641

884

950

963

1059

1071

1882
1642

2829
1661

1716

1730

23734

29514
28814

27134

27144
27154
27214
2725
794
2749
25934
824+

CMD.AD 014440
CMD.ST 014500
CNT
007412
CNTLC = 000003
CONI
001344
CONO
001340
CONOB
001354
COUNT
014252
CR
= 000015
CRLF
021254
cS
= 000004
CS10 = 002000
€s12 = 010000
CUADRS 014224
CUAR
001326

SEQ 0086

CROSS REFERENCE TABLE == USER SYMBOLS

1660

1674

888

948+
1689

965
1715

1874

967

1057«
1876

1073
1880

1075
1899

1319
1901

1665

1841

1842

1859

1860

1875

1877

1900

1902

23974

1321«

1568+

1569

1755

886

2704

1495+

15134

1607

1647

1065+

1150+

1430~

1441~

2340
1031+

23824

33664

229+
887+
2820

2299+
895«

2337+
905+

2339
966+

888+
892

967+
972

1075+
1080

1320+

1074+

1159«

1320

1892+

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
CUE
= 000040
CUEND = 000040
CUFBM = 040000
CUIS.G 011030
CUIS.S 011020
CUISO
011250
001334
CUOR
CUSR
001332
DATA
022042
DE
= 000004
006710
DELAY
DEV
014214

2104
L84
264
18104
890
1808
3644
3634
958
2064
13454
885

DEVCNT 014226
DEVEND= 000004
DEV.A
014220
DFLT.C 014360
DFLT.S 014420
DOFLIN= 000002
DONE = 000200
DS
= 000000
DSCRSP= 000002
DST
001442
DSTADR= 017400
DSTCNT 014244
DST.SE 015304
DS.1
015314
DS.2
015322

2292+
514
2341«
24454
24704
2014
334
1194
1134
4304
430
23944
2287
27034
27054

2823

1401

2474

3099

893
1321
1869

895
1562
1873

899
1563
1892

905
1568

1025
1636

964
1569
1898

2341

2796

2301

2303+

2342

23834

2346+

2347

23764

2551+

1194

1242

1245

1246

1364

1372+
30944

1376+

1676

2554

2676

1724
1191
1403+

1194+
1490+

2756+

2757

1031
1729
23714

1072
1730

1074
1755

1314+
2055+

1315
2315«

1322+
2750+

3 ONNN
» % »

—_—
e
e
o
e

NNOWVW—=O

oown

1323
2796+

—

252 &Y
f!\) »

—

—_— e

e 3=

adald
siaedadel

ONOO

1739

momgbs &

3464

1090+
1310+
1508
1613
171

—_—

1541
1846

SS N
N
O\
=

1364+
2797«
3404
3504
3524
394
404
384
41N
3374
3364
3474

1246
1520

oOown

3484
3424

3444
3354
3454
3414

19114

001310

1677

DXMO

1406

001274
001320
001324
= 000003
= 000005
= 000001
= 000007
001266
001264
001312

18054

1077

DXDS
DXES
DXES1T
DXFI
DXFO
DXFRS
DXFST
DXIS
DX1V
DXMI

SEQ 0087

CROSS REFERENCE TABLE == USER SYMBOLS

VO*MJ\—‘S o=

001314
001300

7
PAGE 74

DX(CB
DXCS

001304
001262
001306
001276

J
12:55

011542

DXBA
DXBASE
DXBC
DXCA

07-JUL-78

abgbubdabubald

DTTMMP

1159
1769

MACY11 30A(1052)

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
1777«

K 7
MACY11 30A(1052) 07-JUL-78 12:55 PAGE 75
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0088
1842
1876+
1902+

1788
1869+
1895+

1792%
1870«
1896+

179
1871+
1897+

1487

2180+

2752%
2352

2753
2549+

2822

2584

2594

2604

2614

2624

2634

264K

2654

2664

2674

2584
19534

2594

2604

2614

2624

2634

2644

2654

2664

2674

1778
1855
1885+
2054+

1782
1859+
1886+
2771+

462
1326

1486*
1378

1786+
1860

1894~
2772

2825

1816 *
1872 #
1898 *

1850+
1877%
1903+

25824
25774

ENTRY1

898«

963 *

972«

1080+

ENTRY2

902+
1158+

964«
1284

1286+

965+

1030+

ERFLG
ERPC
ERRCNT

ERRDST

ERTSTN
ES

012636

= 001030

ESEND = 000100
012316
ETMPO
EXR.SM= 000001
EXTR1
012600
E.RO
012640
E.R1
012642
012644
E.R2
E.R3
012646
E.R4
012650
E.RS
012652

MACY11 30A(1052) 07-JuL-78 12:5% PAGE 76

SEQ 0089

CROSS REFERENCE TABLE == USER SYMBOLS

2542«

2881«

29164

1580
1871

g ~OIR o

23874

2356

3370

—=O

2573

2 543+
2664

2541

2356+
2654

2306

2644

20824

2634

2021

2624

1968

2614

1169+

1848

995
1126
1489
1556
1621
1682
1766

23BN

991
1120
1332
1553
1618
1679
1762

984
1113
1325
1550
1615
1672
1757

979
1108
1317
1546
1609
1667
1752

450

e I

793

~N
— d ) wd d D e b

ERRLOP 012470
ERROR = 104000

dggflgjififlés %S
‘O

CZDXHDO DX118 ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52

2674

FALSE
006114
FASTCU= 002000

FASTIS
FCTN_ =
FIRST.
FISS1
FISS2
FIVESE=
FOL
FOL1
FSTART
GE THEX
H
HEADER

011252
000006
014234
011364
011372
000001
007414

007434
020615
01575?
00000
012712
020074
000000

2355«

1070

1403

2202

2852«

HLTSW = 100000

HOME
HTBL

914+

1561
1850

1579
1851

1168+

1921

19304

021175

016422
IBMRST= 034000
ICOUNT 011654
IDWN
015404
11SW = 004000
ILLC = 000405
INFDSC= 004000
001154
INITB

2452

1041+

863+
27334

1778

1557
1821

wib

1537

oo~

1407
1777

= 040000

HLDO

—_—

17764
1

1693

1697

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
INITC
001160
INITZ
001144
INTEN = 000100
INTERR 006152
INTOK = 100000
INTPAS 006150
006120
INTR
INTREQ= 000200
10D
= 000200
IRR
006174
IRR2
006162
= 000001
IRS
ISSCRJ 010222
ISSREJ= 000010
I1SS.SU 007446
ISS1
010374
1SS2
010426
1SS3
010056
KEY.TO= 104006
LARS

= wanwxx |J

LEGAL.
014254
LESST
001272
LEVELO= 000000
LEVEL1= 000040
LEVEL2= 000100
LEVEL3= 000140
LEVEL4= 000200
LEVELS= 000240
LEVEL6= 000300
LEVEL7= 000340
LF
= 000012
LOCKO = 100000
LOGICA 014020
LOPSW = 040000
LPCNTL 013666

LPCSU
013642
LPC1
014052
LPC2
014036
LPC3
014112
LPC4
014120
LPC5
014030
MAPERR= 104001

MARK
015144
MAX.DE 014236
MCCSW = 002000
MCLKEN= 000002
MCLKP = 000001
MC1.SM= 000000
MC2.
000000

MDXX
013422
MEM.SM= 000000
MI
= 000016
MISC
001346
MO
= 000014
MONDFL 014520
MONITO 012654

309
306
340
12034
200#
1195+
11914
108#
85#
1205
12064
112#
845+
184
829
1690
1688
1611
2634

MACY11 30A(1052)

22914
2295
2305
2343
2345
2308
2584
26554
2234+
2204
1034
102#
N
P

22274
! ]
1264
3774
125#
2104
324

12:55

PAGE 77

SEQ 0090

CROSS REFERENCE TABLE == USER SYMBOLS

3114
308#
1322

1323

1379

2115

1204
1204

1207
1207*

136¢
1368+

953

1062

15334

2195

2261

2273

2857

2928

2336
852

264024
873

2552%
951

2553+
1060

2662
2057

2713
2183+

2107

2579

277

280

283

286

297

329

23884

2550«

2685

2721

3102

1878

2849
3353

2897
3367

3370
3570

805

1958

2604

2605

16524

875
17014

2122

2190
3394
224M
2254
2264
227H#
2284
22
2304
2314
3003
844
288
2164
1182

07-JuL-78

274
33654

2103

23314
22974
2302

23394

23474
2329

23364

23374

2666

2301

2342

2053
432

1312

2228+
258

477
1878

2229+
332

1312

2604
2230+
490

2832
2122
20974

2143

25374

3370

2117

2743

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
MON1
MON1.0
MON10
MON11
MON12
MON13
MON14
MON2
MON2.0
MON2.1
MONZ2.3
MON3
MON4
MON4.1
MONS
MONS.1
MONG
MON7
MONS
MONS
MSG10
MSG12
MSG13
MSG2
MSG26
MSG28
MSG3
MSG31
MSG35
MSG36
MSG4

013070
012724
013544
013576
014124
014156
014202
014664
014704
014716
014750
013116
013140
013176
013362
013452
013264
013274
013456
013472
021064
021076
021123
020631
021450
021465
020651
021507
021521
021542
020712

MSG6
MSG7
MSG9
N

021004
021014
021033
= 000000

MSGS5

020673

2128
327

330
321
23504
2354
2
25584
25634
25664
25734
2150
2159
2165
22164
22354
2174
21914
22494
22524
2252
2171
2207
2153
2024
2162
2216
2258
2019
33704
2189

2131

219
2272
2251
4934
7224
9184

ND
= 000022
NOCLR
015606
NOP
= 000240
NOPC = 000403
NPRDAT= 023442
NPRT = 000020

NPRTO = 000040

NPRX

= 000040

33914
3404
3450
34634
3476
3522
35354
35814
3594
36074
1284
2773
247K
1944
1067
9%n
1074

934

N 7
MACY11 30A(1052) 07-JuL-78 12:55 PAGE 78
CROSS REFERENCE TABLE == USER SYMBOLS

21434
1334
2126
2275

1915
2255
22814

21134
22694

2130

2276

2695

5324
7794
1164
3394
34074

S514
7984
11724
33954
3408

5704
8054
33834

5894
808
3384

23564
2560

2567%
2568
21534
21624
21714
2221

2727

21894
2197

2208

2263
33704
33704
2220
33704
33704
33704
33704
33704
33704
33704
2144
33704
33704
33704
494
7614
1037
3392
34054
34514
64
34778
35234
536
3582
35954

33704

5134
7604
10454
3393
3406

3452
34654
3478
3524
35374
35834
3596
36094

27754
2450
1068

36504

34534
3466
34794
35254
3538
3584
3597
3610

3454
34674
3480
3526
35394
35854
3598
36114

3396
34094
34554
3468
34814
35274
3540
3586
35994
3612

33974
3410
3456
34694
35154
3528
35414
35874
3600
36134

SEQ 0091
2860

2931

3084

CZDXHDO DX11B ONLINE EXER

CZDXHD.P11

07-JuL-78 12:52

CROSS REFERENCE TABLE == USER SYMBCLS

NXM

= 040000

014232

2133
2178+

2149
2179«

2151
2180

2158
2181~

2160
2182«

ODAT
ODAT1

015010
015020

2288
26064

26024
2607

2608

2609+

2610+

OEF
OFF

012244
010124

1961
1629

1992
16334

1483

2283

2800

3370

2541+

OCTNUM

ODATZ2

015022

OFFSET

MACY11 30A(1052) 07-JuL-78 12:52 PAGE 79

23864

26074

2924

2611

2951+

2164
2183

23854

2570

007316

164954

1496

ONESHO 014206
ONLIN
007234
ONL INA= 001000
ONL INB= 000004

320
14834
314
968

1923«
2800
1490
1497

2052«

2270«

23684

1491
1523

1519

1520

584
1224
274

1500

2772

1601

1825

1807

1878

2030

2033

22824

2283«

PARI
= 000400
PARITY= 104007

80#
2644

1630
2193

1633
2256

2339

2347

2607

PARSTP= 100000
PCH1
= 104010
PCH2 = 104011

254
2654
2664

20374
461

o3
oLé

007350
007242

oPLI

= 100000

PARA

013602

OPLO = 100000
0s
= 000006
0.BRK
006674
PARER = 100000

PARO

= 000400

PCH3

= 104012

PERRPC
PFAIL
PFLD

900

67#

2674

445

13324

985

1537

2016
4404
4784

015104
015130
015136

2641
2647
2649

2644M
26504
26524

PHASEO= 000000

PHASE2= 020000
PHASE3= 030000
PHASE4= 040000

PHASES= 050000

PHASE6= 060000

PHASE7= 070000
=
=
=
=
=
=
=
=
=

714

1485

2006
280
468

PHASE1= 010000

PHS
PHSO1
PHS02
PHS11
PHS12
PHS21
PHS22
PHS31
PHS32

15034
14848

1369

012456
001444
001610
015072

PG3
PG4
PG5

074000
004000
000000
014000
010000
024000
0
034000
030000

26404

1334

2571

1534

1006

1547

2645

150

151

1354
1364
1374

154
156
158

155
157
159

1394

162

1344

1384

1404

854
15C#
1514
1524
1534
1544
1554
1564
1574

152

160
164

2167«
2223

2168
2234

2173
2254

2175«
2256

2176«
2257

2177«
2260

1369

1373

1610

1687

1748

19984

014230

OLE.SM= 000001

2166
2218

SEQ 0092

153

161

163

165

1026

1628

1094

2609

1131

2648

1154

2306%

2650

1312

2307

2309+

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
PHS41 = 044000
PHS42 = 040000
PHS51 = 054000
PHS52 = 050000
PHS61 = 064000
PHS62 = 060000
PHS71 = 074000
PHS72 = 070000
PNTSW = 020000
PREI
015442
PREITO 015610
PREI.1
015466
PRINTF
017144
PRINTL 017132
PRINTR 017066
PRINTS 017076
PRINT2 017054
PRINT3 017064
PRTE
PRTY

017222
015070

= 177776

PWRUP

RCO
RC1
RC2

RC3
RC4
RDH
RDLAY
RDXX
READC =
REGTT
REG.SE
REGO
REG]

REG2
REG3
REG4
REGS

REG6

SEQ 0093

27424

1984

2013

2027

2323

30434

3045+

3072
3046+

3062«

3063

3066+

2646
329+

475*

827+

852+

873«

951«

1060+

1380+

1925+

2057+

2103+

916%

1043+

1170«

1926

1927«

19324

2058

2358+

2359+

30454

001530

004706
004774
005020

005022
005104
021141
006712
013410
000002
001406
015646
001356
001360

2228
2449

001362
001364
001366
001370

001372

001374
REG7
RELOD
013040
REQI
= 020000
RESRES 015614
RET
010136
RETURN 011660
RSTPC
RSTPSW
RSTRG =
RS.1
RTX
RUBOUH

C 8
MACY11 30A(1052)
07-JUL=78 12:55 PAGE 80
CROSS REFERENCE TABLE =-= USER SYMBOLS

017050
017052
104004
015656
006706
016060

RUBOUT 016532
= 000001
S

1829

2751
16364
838+
30354
30364
311
28794
2941

SEQ 0094

3086
862

913

1040

1167

—_

460

19314

2650
1407
1816

1547
1850

1486

1487

2570

2669

1916

1918

2005

2015

989

1010
998

1083

1096

1408
71

1412
1885

1693

1584
1871

1612
1884

2675

2752

2753

2049

2975

3047

ath

1551
1554
1365
1782

1091
1439

2648+

1272
1283
2451

§J~O
Q8

1710

1147

1146
1702

VHhOo
on—
W00
O

1372

wip

SELRST= 020000
SEL.DO 006262
SEL.IS 011410
SEL.X
006540
SENRY1
006360
SENRY2 006420
SENSEC= 000004
SESW = 010000
SETUP
006730
= 000100
SOSIEN= 000004
SPACE
021252
SPAC4
021243
SPW
001436
SPW.SE 015146
SP.0
015156
015214
SP.1
SP.2
015220
SP.3
015242
SP.4
015246
SP.5
015250
SP.6
015260
SP.7
015302
SP1
007004
SP2
007034
SP4
007062
SR
= 177570
SRCCNT 014242
SRVI
= 002000
SRVO = 001000

23954
2604

cow

SAVDEV 014246
SAVRG = 104003
SAVR6
001606
SBYTE
015726
SCALD. 014316
SCHAR
017230
SCOPE = 104400
SCOPEA 011646
SCOPEB 011622
SCOPEC 011530
SCOPEF 011656
SCOPEG 011642
SCOPEH 011566
SCP1
004024
SCP2
004110
SCP3
004210
SCP4
004520
SCP5
005260
SCP6
006110
SDAPG
015056
SELI
= 040000
SELIBR= 000004
SELO = 020000

—_

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL~78 12:52

D 8
12:55
PAGE 81
30A(1052)
07-JuL-78
MACY11
CROSS REFERENCE TABLE == USER SYMBOLS

cow
— W
NN

1694

1743

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL-78 12:52
SSTAT
014240
STAI
= 004
STALL
021256
STAMOD= 000100
START
000200
STATUS 007064
STKSTA= 000040
STKSTB= 000002
SUPO = 010000
SVRPC
017006
SVRPSW 017010
SWR
= 177570
SYNC = 001000
SYSRST= 010000
S1
= 006110
TDAT
TDXBA
TDXCA
TOXCB
TDXCS
TDXDS
TDXES
TDXEST1
TOXMI
TOXMO
TDXND
TDX0S
TERPC

015064
001416
001410
001424
001412
001406
001430
001432
001422
001420
001426
001414
012106

TESTAB= 011676
TIMDIS= 000010
TIOC
= 000400

T1.0

006606

TKB
001400
TKS
001376
TM
014212
P8
001404
TPS
001402
TRACER= 104002
TRAINT 006542
TRANSF
007142
TRCM
021623
TRCM1
021571
TRC1
021723
TRC2
021745
TR.OUT 007232
TR.REA 007152
TR.WRI
007176
TSSF
= 004000
TSSFT
014250
TSTABL
011662
TST1
004000
TST2
004064

TST3

TST4

TSTS

004164

004474

E 8
MACY11 30A(1052) 07-JuL-78 12:55 PAGE 82
CROSS REFERENCE TABLE == USER SYMBOLS
23924
448

SEQ 0095

1670

1750

1033

1161

13874

993

1015

1016

117

9184

10454

11724

889+

1118

1140

1141

896+

952+

968+

973

8674
2757

9184

11724

2114
2115«

2961
2959

2962

2989+
2987

3086+

874+
1973
8404

2756
2447

1265
871

1274
949

1285
1058

2360
1932

2576

1442

2358
1288

1032+

1061+

1076+

1082+

1303#

1978

1990

2007
2171
2694

2019
2189
2726

[V pr—

2592

NWNWNWNWWNWWNWWNND

2798+

2540

NAR

TTWAS
TTYFLG
TTYI

2540+
13044

160
161

W WWWWWWWNND
iy b
b ad wd aubd wud «ib S
O oo
O 00
&S OWW

TTRACE
TTSHOU
TTTNDX

158
159
1295

NONON
— NN

125

156
157
1290

SEQ 0096
)= —a

5
5

004000

17
TTCA
TTDS
TTNDX

NN WWNNN
N NN NNW
N
POND) = = ed d d —d b P
- O 00
wvinon

006064

=2 =2

1ST6

ST
152

MACY11 30A(1052) 07-JUL-78 12:55 PAGE 83
CROSS REFERENCE TABLE == USER SYMBOLS
NS

CZDXHDO DX118 ONLINE EXER
CZDXHD.P11
07-JuL~-78 12:52

2690

2798

2024
219N
2879

2029
2207
2949

1983

3085

TTYI10

TTZERO
721
TT.CLR
TT.TRA
T7.70
7.7
T1.T2

1295+
1971

TYPE

2153
2319

2162
2320

016430
012240
016552
012074

015052
020000

020024
020050
017012
016750
012110
000002

232

3207

mowau-agoo
H

T.RSTR

T.SAVR
T.TRAC
uc

1988

NOOWO
N

T.PCH3

1981
2144
2297

— b
PN

T.PCH1
T.PCH2

2131
2272

T.ACCE
T.ERRO
T.KEY.
T.MAPE
T.PARI

2118
2258

1296
1976

2032
2216
3072

CZDXHDO DX11B ONLINE EXER
CZDXHD.P11
07-JuL~-78 12:52
UCHECK= 000002
UCHKS = 002000
UEXCEP= 000001
VLUHEX 013330

3349

3350

3351

3352

2205
34,184
3431
34440
34,904

005430

005634
005636
005720
022442

3650

= 000030
013404
006704

006176

2604
2874

1745
1826

016734
016676
016614
016724
016634
021240

016710
016732
016714
016746

29024
33624

2996

2654

1092
1232

1617
1695
1771
1847
3061

006212

= 022444

973
1061
1142
1488
1592

.CAR
CRLF
107
IOTE
MORE
QUES
.REST
SAV
.TERM
LTYPE

3348

: SRERE N.a*-n

3347

FARR

3346

d d

YESRTI

ZEROTT

3345

005542
005610

WRITEC= 000001

XBA
X1%

3344

b e e e

wC2
wC3
w4
WDATA

3343

SEQ 0097

NN
- o000
- =0 00

wCO

wC00
wC1

= 000000

N =

3342

MACY11 30A(1052)
07-JuL-78 12:55 PAGE 84
CROSS REFERENCE TABLE == USER SYMBOLS

CZDXHDO DX118 ONLINE EXER

2758

1818

832

859

1037

1236

1301

2612

1226

1255

2602

831
2020

858

1036

1164

1163

1648
1740
1830

1756
1843

Y
e

&S
Y

1717

1617
1703
1795

1011
1232
1581

1614
1698
1789

994
1136

978
1119
1505
1624

452
1107
1498

WJ\\R\IJ\S
So

449
1097
1492

2321

2025

1982

267

1977

264

262

261

CONOWN=O

259

258

RIS
PN

805

2 e

CHECK
CHECKF
CINITM
CLEAR
CLKCHK
CLOCK
CLRSUB
COPYRI
DBUF
S
DEF INE
DSTM
DUMP
DXBITS
DXREG
EDCOD
EDEF
EDFF
EOTS
ERCALL

SEQ 0098

2849
2922
2956

ACPTHM
ACPTOM
ASCICH

07-JuL-78 12:52

—_—

CZDXHD.P11

MACY11 30A(1052) 07-JuL-78 12:55 PAGE 86
CROSS REFERENCE TABLE == MACRO NAMES

1020
1247
1592
1671
1765
1852

CZDXHDO DX118 ONLINE EXER

CZDXHD.P11

SHORT

07-JuL-78 12:52

MACY11 30A(1052) 07-JuL-78 12:S§ PAGE 87

SEQ 0099

CROSS REFERENCE TABLE == MACRO NAMES

884

963

1071

SPWM

76%'

l}%

513

532

551

570

589

608

627

646

665

SPWMM

on
760
P

49
779
824

513

532

551

570

589

608

627

646

665

849

870

948

1057

SNAPSH

STEPTS
STRTM
S.D

TABLES
T10CME

TRAPCA

PLd

R
on
o8

TTTE

WR1CMD
ZEROM

28
2%

TYPM

. ABS.

022444

ERRORS DETECTED:

268
1240
486
806
1250

2972

1034
1209

000
O

CZDXHD ,CZDXHD/SOL/CRF=CZDXHD.P11
RUN-TIME: 43 9 1_SECONDS
RUN-TIME RATIO: 397/55=7.1
CORE USED:
28k
(55 PAGES)

684

703

722

741

703

722

741