Digital PDFs

AH-8777C-MC

September 1982

119 pages

Original

5.3MB

view download

OCR Version

4.4MB

view download

Document:	CZDXIC0 DX11-B DX11-B RESPONDER SEP 1982 bw
Order Number:	AH-8777C-MC
Revision:	000
Pages:	119
Original Filename:	CZDXIC0__DX11-B__DX11-B_RESPONDER__AH-8777C-MC__SEP_1982_bw.pdf

OCR Text

DY11-B

DX-11B RESPONDER
CZDXICO

AH-8777C-MC
FICHE

e %2

waoe v usa

76-82

B
MAINDEC-11-C2DX1~C

CZox1C.P11

-REM

NEW DX11-B RESPONDER

07-JUN=-82 16:21

MACY11

30A(1052)

OPERATING PROCEDURE

1
O07~JUN-82

16:28

IDENTIFICATION
PRODUCT NAME:

CZD0XICO DX11-B RESPONDER

PRODUCT CODE:

AC-8776(-MC

RELEASE DATE:

JULY 1976

REVISED

MARCH

MAINTAINER:

DIAGNOSTIC ENGINEERING

1982

THE INFORMATION IN THIS DOCIMENT IS SUBJECT TO (HANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B8Y 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 TO THE

PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S OLT NOTICE)

ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED
IN WRITING B8Y DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOF TWARE ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.

1976,1982 BY DIGITAL EQUIPMENT CORPORAT]ON

PAGE

SEQ 1

c
MAINDEC-11-C20X1-C
NEW DX11-B RESPONDER
MACY11 30A(1052)
CZox1C.P11
07-JUN-82 16:21
OPERATING PROCEDURE

1
07-JUN-82

16:28

PROGRAM HISTORY

02-FEB-82

REV. C

THE CONTROL P COMMAND HAS BEEN CHANGED TO CONTROL R.
THERE
A CONFLICT BETWEEN RDC AND THIS PROGRAM, WHEN USING CTL P,

PAGE 2

SEQ 2

—

0
MAINDEC-11-C2DX]~C

CZ0xIC.PN

1.0

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

OPERATING PROCEDURE

O07-JUN-82

GENERAL DESCRIPTION
THIS SYSTEM TEST PROGRAM EXERCISES THE

INTERFACE BETWEEN

NOSTICS DESIGNED TO TEST THE 2260/2848;

FRIEND OR THE

THE PDP=11 AND AN IBM 360/370 COMMUNICATING VIA THE
DX11-B CONTROL UNIT.
THE PROGRAM EMULATES AN I1BM CRT
(2260) AND ITS CONTROL UNIT (2848) COMMUNICATING OVER
EITHER A MULTIPLEXER OR SELECTOR CHANNEL.
THE 360/370
EXERCISES THE INTERFACE BY RUNNING STANDARD IBM DIAG-

2848 RESPONDER.
UP TO EIGHT 2260'S MAY BE EMULATED
SIMULTANEOUSLY BY THE PROGRAM,
BASICALLY THE SYSTEM TEST PROGRAM COLLECTS THE TEST

PARAMETERS NEEDED VIA A QUESTION AND RESPONSE TUTORIAL
METHOD,
VALIDATES THE PARAMETERS AND THEN INITIALIZES
THE SYSTEM.
AFTER THE SYSTEM HAS BEEN INITIALIZED THE
OPERATOR IS THEN REQUIRED TO START THE TEST BY TYPING

"R’ AND THEN THE 360/370 BEGINS TO TEST A 2260/2848.

THE SYSTEM TEST PROGRAM ONLY RECOGNIZES BASIC ERRORS;

SUCH AS, PARITY ERROR,

ILLEGAL DEVICE ADDRESS, ETC.,

WITH THE 360 DIAGNOSTIC TESTING FOR MORE DETAILED
ERRORS; SUCH AS, TIMING PROBLEMS, SEQUENCING ERRORS, ETC.
THIS PROGRAM COMPLETELY REPLACES AND OBSOLETES
MD-11-DZDXC.

2.0

REQUIREMENTS

2.1

EQUIPMENT

2.2

PDP=11

COMPUTER WITH A MINIMUM OF 8K OF MEMORY.

DX11-B 360/370 INTERFACE OPTION.

ONE CONSOLE TELETYPE OR EQUIVALENT.

STORAGE
THE

TEST PROGRAM LOADS

LEASY

INTO 4K OF MIMORY AND REQUIRES AT

ANOTHER 4K FOR DATA BUFFERS.

WITH 4K OF MEMORY,

FOR DATA BUFFERS, UP TO SIX DEVICES (6) MAY BE EMULATED,
TO EMULATE EIGHT 2260/2848 DEVICES 8K OF MEMORY FOR DATA

BUFFERS IS REQUIRED.

2.3

STORAGE MAP
THE FOLLOWING MAP ILLUSTRATES THE USAGE OF MEMORY

BY THE DX11-B SYSTEM TEST PROGRAM

0-777

I
I

INTERRUPT VECTORS

(256 WORDS)

16:28

PAGE 3

SEQ 3

E
MAINDEC-11-C2DX]~C
NEW DX11~-B RESPONDER
MACY11 30A(1052)
czoxic.P1
07-JUN-82 16:21
OPERATING PROCEDURE

1000-17777

X0-x777

[
I

I
I

DX11-B TEST PROGRAM

SPW TABLE

07-JUN-82

(4K WORDS)

1
I

(256 WORDS)

I
I

X1000-x1777

X2000-x2777

I
I

DUPLICATE TUMBLE TABRLE
(256 WORDS)

|
[

I
I

SOFTWARE DEVICE STATUS TABLE

X4440-x5377

I
I
l

I
OUTPUT/DISPLAY BUFFER
(DEV 0!
(240 WORDS)
I

X5400-X5-75

I
I
I

SOFTWARE DEVICE STATUS TABLE

|
I
I

I
OUTPUT/DISPLAY BUFFER
(DEV 1)1
(240 WORDS)
I

I
I
I
I
I
I

[
THE ABOVE SOFTWARE BUFFER LAYOUT
I
(DEVICE STATUS TABLE, INPUT BUFFER +]
OUTPUT BUFFER) WILL BE REPEATED FOR 1
EACH DEVICE SPECIFIED (UP TO 8).
l
EACH DEVICE EMULATED REQUIRES 512
I
WORDS (2000 OCTAL) OF BUFFER SPACE
{

(DEV 0)

(31 WORDS)

Lo X

X3400-X3475

X3000~-x3377

(DEV 1)

(31 WORDS)

g Py Py

X3476-X4437

X6440-x7377

}

160000-177777

UNIBUS ADDRESSES

Gy Gy

X56476-X6437

16:28

PAGE 4

SEQ 4

F
MAINDEC=-11-C2DX1~C

CZ0xIC.P11

NEW DX11~B RESPONOER

07-JUN-82 16:21

MACY11

30A(1052)

OPERATING PROCEDURE

1
07-JUN-82

16:28

NOTE == "'X'" IS DETERMINED BY THE BUFFER RELOCATION FACTOR

INPUTTED AT SYSTEM CONFIGURATION TIME.
THE DEFAULT VALUE OF “'x'* IS 20000.
“'X'' IS ALWAYS A

PHYSICAL ADDRESS.

3.0

LOADING PROCEDURE
THE

STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES

IS TO BE USED.

STARTING ADDRESS

FOR ABSOLUTE LOADER

12K
16K
20K

24K
28K

037500

057500
077500
117500

137500
157500

4.0

START UP PROCEDURE

4.1

CONTROL SWITCH SETTINGS == NONE

6.2

STARTING ADDRESSES

1000 OR 200 NORMAL STARTING ADDRESS.

FOR THE

FIRST TIME AFTER LOADING ONLY, THE PROGRAM
REQUESTS OPERATOR TO ENTER TEST PARAMETERS.

EACH SUCESSIVE RESTART USES THE PARAMETERS WHICH
HAVE BEEN PREVIOUSLY ENTERED.

1002 RESTART ADDRESS WHICH REQUESTS OPERATOR TO ENTER TEST
PARAMETERS AGAIN.

NOTE:

AT ANY TIME WHILE THE PROGRAM IS RUNNING, A CONTROL R
TYPED ON THE TTY KEYBOARD WILL ALSO REQUEST THE

OPERATOR TO REENTER THE

4.3

PROGRAM AND/OR OPERATOR ACTION

4.3.1

INITIAL PROGRAM START

TEST PARAMETERS.

LOAD PROGRAM INTO MEMORY USING ABSOLUTE LOADER.

LOAD ADDRESS 200.

PRESS START

(“*R)

PAGE S

SEQ 5

6
MAINDEC-11-C2DX]1~-C

czoxI1c.PM

NEW DX11-B RESPONDER

07-JUN-82 16:21
4.

S.
4.3.2

THE PROGRAM WILL

MACY11

30A(1052)

1
07-JUN-82

OPERATING PROCEDURE

TYPE OUT ''C2DXI-C NEW DX11-B RESPONDER''

THE SYSTEM NOW REQUESTS THE OPERATOR TO ENTER THE

PARAMETERS NECESSARY TO RUN THE

TEST.

ENTERING TEST PARAMETERS
BEFORE ANY TESTS MAY BE RUN OR WHENEVER A CHANGE

IN PARA-

METERS IS DESIRED, THE OPERATOR WILL BE REQUIRED TO ENTER
ALL THE TEST PARAMETERS.
THE ENTERING OF THE PARAMETERS

1S DONE VIA THE CONSOLE TELETYPE IN RESPONSE TO A SERIES
OF QUESTIONS.
6.3.21

GENERAL RULES FOR ENTERING PARAMETERS
A.

fi%%/s?fifiHETERS MUST BE DELIMITED BY A CARRIAGE RETURN

IF A TYPING ERROR IS DETECTED BEFORE ENTERING THE C/R,
IT MAY BE CORRECTED BY:
1.

USING RUBOUT(S)

TO DELETE

HITTING CONTROL-U (“U)

THE LAST CHARACTER(S)

TO DELETE THE ENTIRE ENTRY

TO SELECT THE DEFAULT PARAMETER ENTRY,
RETURN (C/R) ONLY.

TYPE CARRIAGE

IF THE PROGRAM DETECTS AN ERROR IN A PARAMETER [T WILL
REPEAT THE QUESTION AGAIN AND REQUIRE THE OPE'ATOR TO
REENTER THE PARAMETER.

6.3.2.2 PARAMETER DEFINITION

"UNIBUS ADDRESS -OCTAL-''
REQUESTS USER TO ENTER ADDRESS WHERE THE DX RESIDES

ON THE UNIBUS.

THIS MUST BE A 6 DIGIT OCTAL NUMBER

BETWEEN 176200 AND 177700.

DEFAULT UNIBUS ADDRESS =176200

"'VECTOR ADDRESS ~-OCTAL-"'
REQUESTS USER TO ENTER THE VECTOR ADDRESS FOR THE DX

AS A 3 DIGIT OCTAL NUMBER BETWEEN 300 AND 770.
DEFAULT VECTOR ADDRESS = 300

"DEVICE ADDRESSES (XX, XX) =HEX=''
REQUESTS THE USER TO ENTER THE 360 CHANNEL ADDRESS(ES) OF
THE 2260(S) TO BE EMULATED BY THE TEST.
IF MORE THAN ONE
DEVICE IS TO EMULATED,
THEN THE USER ENTERS IN THE
RANGE OF ADDRESSES TO BE EMULATED:
SUCH AS, "'AQ,A3"’
==THIS INDICATES THAT UNITS A0, A1, A2, AND A3 (AN BE

16:28

PAGE 6

SEQ 6

H
MAINDEC=-11-C2DX]~C

cZoxic.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

OPERATING PROCEDURE

1
07- UN-82

USED IN THE TEST,
THE UNIT ADDRESSES ARE TO BE
ENTERED IN HEX BETWEEN 00 AND FF. IF A RANGE OF
DEVICES IS GIVEN, THERE CAN NOT BE MORE THAN 8 TOTAL.
DEFAULT DEVICE ADDRESS = 10,10

"'CHANNEL TYPE

(M OR S)"

REQUESTS THE USER TO INDICATE WHAT TYPE OF 360 CHANNEL
THE DX IS INTERFACED TO:
M = MULTIPLEXER CHANNEL,
S = SELECTOR CHANNEL.

DEFAULT CHANNEL = S,

"MEMORY MANAGEMENT
REQUESTS

SELECTOR CHANNEL

(Y OR N)*'

THE USER TO INDICATE WHETHER THE PROGRAM [S

$SE ;gg HSHOR;OHANAGEHENT OPTION.
DEFAULT OPTION = N,

"BUFFER RELOCATION,

DO NOT USE MEMORY MANAGEMENT

IF SPECIFIED - IN EVEN ,000°'S -OCTAL-"'

REQUESTS THE PHYSICAL ADDRESS OF WHERE THE DX
F IRMWARE BUFFERS (TUMBLE TABLE, SPW + DST) AND

SOF TWARE DEVICE BUFFERS ARE TO RESIDE.

ADPRESS IS ENTERED IN OCTAL

THE RELOCATION

THOUSANDS, AND MUST BE

ON A 2000 BYTE ADDRESS BOUNDRY. EG: PHYSICAL ADDRESS
100000 IS ENTERED AS 100.
NOTE:
THE BUFFER CANNOT BE CLOSER THAN 24000(8)
TO_ANY 200000 BOUNDARY OR TO THE 1/0 PAGE.
THE
THE DX IS NOT CAPABLE OF HAVING THESE BUFFERS

CROSS A 200000 BOUNDARY.
IT IS POSSIBLE TO OVERLAY THE ABSOLUTE LOADER

WHICH RESIDES

IN THE HIGHEST AVAILABLE 4Kk (10)

OF THE FIRST 28K OF MEMORY.
DEFAULT BUFFER ADDRESS = 20

(20000)

"FRIEND (F) OR 2848 DIAG (D)'’
REQUESTS THE USER TO INDICATE WHAT TYPE OF

BE RUN ON THE 360;

TEST WILL

F = IBM'S FRIEND OR D = THE 2848

RESPONDER DIAGNOSTICS.

DEFAULT OPTION = F == FRIEND

IN FRIEND MODE, SEE PARA 5.0 FOR LIST OF VALID IBM
CHANNEL COMMANDS.
FRIEND MODE WILL ACCEPT

USED WITH

*CTP"'.

THE SAME COMMAND STRINGS FORMERLY

NOTE -~ IF THE 2848 RESPONDER WAS SELECTED, NO

16:28

PAGE 7

SEQ 7

I
MAINDEC-11-C2DXI~C

CZbxIC.P1

NEW DX11-B RESPONDER

07-JUN=-82 16:21

MACY11

30A(1052)

OPERATING PROCEDURE

07-JUN-82

MORE PARAMETERS ARE NEEDED, SO THE SYSTEM
WILL BE INITIALIZED AND CONTROL PASSED TO
THE MONITOR.
SEE MONITOR COMMANDS 4.4.

"'SEPARATE -0 BUFFERS (Y OR N)*'

REQUESTS THE USER TO INDICATE WHETHER SEPARATE INPUT
AND OUTPUT BUFFER SHOULD BE MAINTAINED FOR EACH CRT
UNIT EMULATED. SEPARATE INPUT/OUTPUT BUFFERS ALLOW
THE TRANSMISSION OF THE SAME DATA PATTERN TO THE

360/370 INDEPENDENT OF WHAT DATA IS RECEIVED.

THIS IS USEFUL IN DETERMINING THE CAUSE OF BAD
DATA BEING TRANSMITTED.
NOTE -- MOST TESTS USING 'FRIEND' WILL NOT UTILIZE

SEPARATE ]/0 BUFFERS. THESE ARE ONLY FOR SPECIAL
SITUATIONS AS MENTIONED ABOVE.

DEFAULT OPTION = N, NO USE

THE SAME

I-0 BUFFER

NOTE =-- IF THE SAME ]-0 BUFFER WAS SPECIFIED, NO
MORE PARAMETERS ARE NEEDED, SO THE SYSTEM
WILL BE INITIALIZED AND CONTROL PASSED TO
THE MONITOR.
SEE MONITOR COMMANDS 4.4.

"OUTPUT BUFFER FILL CHARACTER -HEX=-''
REQUESTS THE USER TO ENTER THE CHARACTER WHICH IS USED
Lgxfgbb THEF?UTPUT BUFFER.
THIS CHARACTER IS ENTERED IN

DEFAULT FILL CHARACTER = 40, AN EBCDIC BLANK
NOW ALL TEST PARAMETERS HAVE BEEN ENTERED AND THE SYSTEM
:éh%Tgs INITIALIZED AND CONTROL WILL BE PASSED TO THE

4.3.3

SYSTEM INITIALIZATION
AFTER THE TEST PARAMETERS HAVE BEEN ENTERED THE SYSTEM IS
INITIALIZED AND CONTROL PASSED TO THE MONITOR.
BEFORE
ANY COMMUNICATIONS MAY BE

CONDUCTED

TO THE

360 THE

WILL NEED TO BE ENABLED VIA THE RUN ‘R'° COMMAND.
SEE SECTION 4.4 FOR MORE iINFORMATION CONCERNING THIS AND OTHER
MONITOR COMMANDS.
4.4

MONITOR COMMANDS
AFTER THE TEST PARAMETERS HAVE BEEN SUCESSFULLY ENTERED,
THE SYSTEM IS CONFIGURED AND INITIALIZED, THEN CONTROL IS
PASSED TO THE MONITOR. ONCE IN THE MONITOR THE OPERATOR

IS FREE TO ISSUE ANY COMMAND LISTED BELOW.

NOTE -~

4.4.1

THE OPERATOR MUST ENABLE

THE DX

(RUN COMMAND)

BEFORE ANY TESTS MAY BE PERFORMED WITH THE 360/370.

GENERAL RULES FOR ENTERING MONITOR COMMANDS

16:28

PAGE 8

SEQ 8

J
MAINDEC=11-C2DX]~C

CZox1C.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

OPERATING PROCEDURE

07-JUN-82

fi%%/g?flNANDS MUST BE DELIMITED BY A CARRIAGE RETURN

IF A TYPING ERROR IS DETECTED BEFORE ENTERING THE C/R,
IT MAY BE CORRECTED BY:
1.

USING RUBOUT(S)

TO DELETE

THE LAST CHARACTER(S).

TYPING CONTROL-U (“U) TO DELETE THE ENTIRE LINE.

IF A USER WISHES TO ABORT A COMMAND, SUCH AS DUMPING
DATA TO THE TELETYPE CONSOLE, HE DOES SO BY TYPING
CONTROL-C (*(0).

CONTROL=-S

CONTROL-Q (*Q) 1S USED TO RESUME CONSOLE OUTPUT AFTER
IT HAS BEEN STOPPED VIA A CONTROL-S.

(*S)

SIGNALS THAT CONSOLE OUTPUT SHOULD BE

TEMPORARILY SUSPENDED.

THE MONITOR MODE IS DENOTED BY
PRINT POSITION 1.

THE ASTERICK

(+)

IF AN ERROR IS DETECTED IN THE COMMAND BY THE PROGRAM,

IF THE OPERATOR TRIES TO ENTER DATA WHILE A COMMAND IS
CURRENTLY ACTIVE OR HE OVERFLOWS THE INPUT BUFFER (64
CHARS) THE SYSTEM WILL PRINT A BACKSLASH (\) AND DELETE

IT WILL PRINT A QUESTION MARK (?).

THE ENTIRE LINE.

I.
4.4.2

TYPING CTL=R (“R)

CAUSES THE SYSTEM TO BE REINITIALIZED

AND NEW TEST PARAMETERS REQUESTED.

DESCRIPTION OF MONITOR COMMANDS

R == ENABLE

THE DX FOR TESTING = RUN COMMAND

THE RUN COMMAND DOES THE FOLLOWING:

INITIALIZES THE DX

CLEARS ALL TUMBLE TABLE ENTRIES.

ENABLES THE DX BY SETTING THE APPROPRIATE BITS IN DXCS.

S == DISABLE

THE DX = STOP COMMAND

THE STOP COMMAND ALLOWS THE USER TO DISABLE THE DX AFTER
A SPECIFIC EVENT.
THIS MAY EITHER BE IMMEDIATELY, AFTER
AN INIT(AL SELECTION SEQUENCE, AFTER A DATA TRANSFER,
AFTER AN ENDING SEQUENCE, OR ON A PARITY ERROR.
THE

FORMS OF

THE

STOP COMMAND ARE:

S(C/R) == STOP IMMEDIATELY

16:28

PAGE 9

SEQ 9

K
MAINDEC-11-C2DX1-C

C20xIC.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

OPERATING PROCEDURE

1
07-JUN~82

16:28

SI(C/R) == STOP AFTER NEYT INITIAL SELECTION SEQUENCE
SD(C/R) == STOP AFTER NEXT DATA. zfiflNSFER COMPLETION
SE(C/R) == STOP AFTER NEXT FNDING"tCIUENCE

SP(C/R) == STOP ON NEXT PARMY ERROR

AFTER THE CONDITIONS OF srop‘iit'MEr THE DX 'WILL BE DIS-

ABLED.

TYPE 'R'

THE FOLLOWING ULL» [
TELETYPE:
-

INUE
.

Nrca-on THE CONSOLE

"'CURRENT DEVICE =-- XX’
HXXXXX"
CRXXXXX"'
XXXXX"
"XXXXXX'

THE
THE
THE
THE
THE

XXXXXX"'

CURRENT
DXDS IN
9XCA IN
DXCS IN
DX0S IS

DEVICE ADDRESS IN HEX
OCTAL - PROBABLY ZERO
OCTAL
OCTAL
OCTAL

THE DXBA IN OCTAL

“NXXXXX’

THE DXBC IN OCTAL

“XXXXXX"*

THE DXMO IN GCTAL

XXXXX"
“XXXXNX'
CXXXXXN'
"Xy XXX
XXYXXX®
XXXXXX"

THE
THE
THE
THE
THE
THE

DXMI IN OCTAL
DXCB IN OCTAL
DXND IN OCTAL
DXES1 IN OCTAL
DXM0O8 IN OCTAL
DXES2 IN OCTAL

D == DUMP COMMAND
THE DUMP COMMAND ALLOWS THE USER TO DUMP VARIOUS DATA

BUFFERS, TABLES OR CORE LOCATIONS ON THE CONSOLE TELETYPE
A VARIETY OF

FORMATS.

THE FOLLOWING DESCRIBES THE

SYNTAXES OF THE DUMP COMMAND:

DTV.0
DTT.H

DUMP TUMBLE TABLE IN OCTAL
DUMP TUMBLE TABLE IN HEX
THE DUMP TUMBLE TABLE COMMAND REFERENCES
A DUPLICATE TUMBLE TABLE MAINTAINED
EXCLUSIVELY FOR THIS FUNCTION. THE TUMBLE
TABLE IS DUMPED IN REVERSE CHRONOLOGICAL
ORDER AND PRCDUCES THE FOLLOWING REPORT:

XXXXXX

XXXXXX
XXXXXX
ETC

DIN,O, XX
DIN,H, XX
DIN,E , XX

TT2 == LAST OPERATION

TT1

LAST OPERATION

TT2 == PREVIOUS T/T ENTRY
TT1 == PREVIOUS T/T ENTRY

DUMP INPUT BUFFER FOR DEVICE XX IN OCTAL
DUMP INPUT BUFFER FOR DEVICE XX IN HEX
DUMP INPUT BUFFER FOR DEVICE XX IN EBCDIC

DIN,A, XX
DUMP INPUT BUFFER FOR DEVICE XX IN ASCII
00T,0,XX
DUMP OUTPUT BUFFER FOR DEVICE XX IN OCTAL
DOT,H, XX
DUMP QUTPUT BUFFER FOR DEVICE XX IN HEX
DOT ,E, XX
DUMP QUTPUT BUFFER FOR DEVICE XX IN EBCDIC
DOT,A, XX
DUMP QUTPUT BUFFER FOR DEVICE XX IN ASCII
DSSSSSS,EEEEEE,O0 DUMP BFTWEEN GIVEN LIMITS IN OCTAL

PAGE

SEQ 10

L
MAINDEC-11-C20X]~C

C2oxIC.P1Y

NEW DX11-B RESPONDER

07-JUN-82 16:21

DSSSSSS,EEEEEE.H
DSSSSSS,EEEEEE,E
DSSSSSS ,EEEEEE,A

MACY11

30A(1052)

OPERATING PROCEDURE

1
C7-JUN-82

16:28

DUMP BETWEEN GIVEN LIMITS IN HEX
DUMP BETWEEN GIVEN LIMITS IN EBCDIC
DUMP BETWEEN GIVEN LIMITS IN ASCII

NOTE ==~ XX IS THE DEVICE ADDRESS IN HEX ; IF NOT SPECIFIED,
WILL DEFAULT TO 1ST DEVICE (CRT) # IN THE DEVICE TABLE.
SSSSSS IS THE STARTING MEMORY ADDRESS IN OCTAL
EEEEEE IS THE ENDING MEMORY ADDRESS IN OCTAL
F

== FILL

COMMAND

THE FILL COMMAND ALLOWS THE USER TO FILL THE INPUT OR OUTPUT FOR A DEVICE WITH A SPECIFIC DATA PATTERN.
THE FOLLOWING

DESCRIBES THE SYNTAX FOR THE FILL COMMAND.
FIN,YY XX
cggégY.XX

FILL INPUT BUFFER FOR DEVICE XX WITH YY
FILL OUTPUT BUFFER FOR DEVICE XX WITH YY

XX = THE DEVICE ADDRESS IN HEX
YY = THE FILL CHARACTER IN HEX
H == HELP COMMAND
THE HELP COMMAND PRINTS OUT A SYNOPSIS OF THE
MONITOR COMMANDS AND CONSOLE CONTROL CHARACTERS
AVAILABLE FOR OPERATING THE DX11-B SYSTEM TEST
PROGRAM, THE SYNTAX OF THE HELP COMMAD IS:

[

PRINT OUT HELP MESSAGE

== INPUT COMMAND
THE INPUT COMMAND ALLOWS THE USER TO INPUT DATA FOR A
PARTICULAR CRT AND SEND IT TO THE 360, IN THE SAME MANNER
AS IF HE WERE ACTUALLY ON A 2260,
THE INPUT COMMAND IS

ONLY VALID WHEN THE ]BM 2848 DIAGNOSTICS ARE BEING RUN.
THE

SYNTAX OF

THE

INPUT COMMAND

IS:

IXX,D===D

:
WHERE
XX IS THE DEVICE ADDRESS

IN HEX

D-==D IS THE DATA TO BE SENT TO THE 360.
THE DATA WILL
?sscgngRTED TO EBCDIC BEFORE BEING TRANSMITTED TO
E == ENABLE A DX-11 DEVICE ADDRESS
THE ENABLE COMMAND TURNS THE DEVICE INDICATED IN THE OPERAND
TO AN ON-LINE STATUS.
A DEVICE ADDRESS ONLY BECOMES OFF-

LINE VIA THE 'X°' COMMAND.

THE DEVICE ADDRESS MUST BE ENTERED

IN HEX AND BE WITHIN THE LIMITS SPECIFIED BY THE TEST

PARAME TERS.

EXX

THE

SYNTAX OF

THE ENABLE

ENABLE DEVICE Xxx

COMMAND

IS:

PAGE

SEa 11

LI
MAINDEC-11-C20X]1-C
NEW DX11-B RESPONDER
MACY11 30A(1052)
C20X1C.P11
07-JUN-82 16:21
OPERATING PROCEDURE

07-JUN-82

16:28

K == DISABLE DX11-B DEVICE ADDRESS
THE KILL COMMAND SETS THE DEVICE

STATUS.

INDICATED TO AN OFF<LINE

THE DEVICE ADDRESS ENTERED MUST BE IN HEX AND BE

WITHIN THE LIMITS SPECIFIED BY THE

TEST PARAMETERS.

DEVICE MAY ONLY BE ENABLED AGAIN VIA THE 'E'' COMMAND,
THE SYNTAX OF

KXX

THE KILL COMMAND IS:
DISABLE DEVICE XX

A == ACCESS AND DISPLAY LOCATIONS

(QUICK LOOK + CHANGE)

THE ACCESS COMMAND ALLOWS THE USER TO DISPLAY AND ALTER
MEMORY LOCATIONS WHILE THE PROGRAM IS RUNNING, AN ON-LINE
ODT.
THE ACCESS COMMAND SHOULD BE USED WITH EXTREME CAUTION.
WHEN THE USER ENTERS THE ADDRESS TO BE ACCESSED,
IN OCTAL, THE PROGRAM RESPONDS BY PRINTING THE CONTENTS
OF THE REFERENCED LOCATION IN OCTAL ON THE CONSOLE TELETYPE.
THE OPERATOR MAY THEN:

CHANGE THE CONTENTS OF
NEW CONTENTS IN OCTAL,

THE LOCATION BY TYPING IN THE
DELIMITED BY A (C/R).
THE

SY"TEM WILL THEN OPEN THE NEXT LOCATION AND DISPLAY
ITS CONTENTS.

C.
THE

TYPE A (C/R) ONLY.
THIS WILL NOT AFFECT THE CONTENTS
OF THE CURRENT LOCATION.,
THE SYSTEM WILL OPEN THE
NEXT LOCATION AND DISPLAY ITS CONTENTS.

TYPE

SYNTAX OF

AYYYYY

NOTE:

5.0

(/)

MONITOR.

SLASH FOLLOWED BY A (C/R)
THE ACCESS
ACCESS

COMMAND

TO ESCAPE TO THE

IS:

+ DISPLAY LOCATION

NO SPACE BETWEEN ‘A" AND LOCATION.

YYYYY

OPERATING PROCEDURE
REFER TO SECTION 4.4 "MONITOR COMMANDS'® FOR DETAILS.
SEE MAINTENANCE MANUAL EK-DX118-MM-002 FOR PROCEDURES

FOR OPERATING

THE

|BM SYSTEM.

IN FRIEND OR 2848 DIAG.MODE,
COMMAND
OCTAL
HEX

00
0
02
03
04
05

00
01
02
23
04
05

THE FOLLOWING IBM COMMANDS ARE VALID;

DESCRIPTION

TEST 1/0
WRITE FULI. BUFFER
*READ MANUAL INPUT
NO OPERATION
SENSE
WRITE LINE ADDRESS

PAGE 12

SEQ 12

———

N1
MAINDEC-11-CZ0X1~C
NEW DX11-B RESPONDER
MACY11 30A(1052)
CZOXIC.P11
07~JUN-82 16:21
OPERATING PROCEDURE

07
12

07
0A

07-JUN-82

16:28

PAGE 13

SEQ 13

READ FULL BUFFER

ERASE
*READ SHORT MANUAL INPUT

*DATA IN THE OUTPUT BUFFER IS ONLY TRANSMITTED ONCE
FOR THESE COMMANDS.

0.0

ERRORS

6.1

ERROR HALTS
THERE ARE ONLY TWO CONDITIONS (MEMORY TIME-OUT AND
MEMORY .*NAGEMENT ERROR) WHICH WIIL CAUSE THE PROGRAM
TO HALT OUTSIDE OF THE TRAP CATCH_.R. BOTH ERRORS
ARE ACCOMPANIED WITH A DESCRIPTIV: MESSAGE RELATING
THE CAUSE OF THE ERROR. RECOVERY FROM ANY SYSTEM WALT
REQUIRES THE OPERATOR TO RESTART THE PROGRAM AT LOCATION 200.

SEE ERROR MESSAGES FOR DETAILS.

6.2

DX ERRORS
UPON RECEIPT OF AN ILLEGAL DX CONDITION (INVALID DEVICE ADDRESS,
INVALID DX COMMAND, NON EXISTENT MEMORY ERROR) THE SYSTEM WILL
PRINT A DESCRIPTIVE ERROR MESSAGE AND DISABLE THE DX.
THE USER MAY THEN EXAMINE THE STATE OF THE DX. NOTE

THAT THE DX MUST BE ENABLED BE ORE MORE TESTS CAN BE
PERFORMED ON THE 360/370 (RUN COMMAND). AFTER THE DX

HAS BEEN DISABLED THE FOLLOWING WILL BE PRINTED ON THE

CONSOLE TEL:TYPE:

CAXANXX"

SAXXXXNX"
TAXXXNXX"

TAXXXXX"
TAXXXXX"
TAXXXXX
SAXXXXX

TAAXXNAX

TAXXXXX
CAXXXXN
*AXXXNX"

THE CURRENT DEVICE ADDRESS IN HEX

THE DXDS IN OCTAL == PROBABLY ZERO
THE DXCS IN OCTAL

THE DXOS IN OCTAL
THE DXBA IN OCTAL
THE
THE
THE
THE

DXBC
DXMO
DXMI
DXCB

IN
IN
IN
IN

OCTAL
OCTAL
OCTAL
OCTAL

THE DXND IN OCTAL

THE DXES1 IN OCTAL
THE DXMOB IN OCTAL
THE DXES2 IN OCTAL

NOTE == THE DX WILL NOW BE IN A DISABLE STATE REQUIRING
THE USZR TO ENABLE

THE DX VIA THE RUN ‘R’‘ COMMAND BEFORE

COMMUMNICATIONS TO THE 360 CAN RESUME.

6.3

ERROR MESSAGES AND SUGGESTED CORRECTIVE ACTIONS
"MEMORY TIME OuUT''

THE MEMORY TIME OUT ERROR

EXECUTED THRU LOCATION 4.
THIS ERROR.

INDICATES A TRAP WAS

THE SYSTEM HALTS AFTER

THE MEMORY TIME OUT ERROR NORMALLY

DENOTES THAT AN ILLEGAL ADDRESS wnS REFERENCED AND

CAXXXXXK®

“'CURRENT DEVICE == XX'*

8
MAINDEC-11-C20X]~C

czoxIc.P1

NEW DX11~B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

OPERATING PROCEDURE

2
07-JUN-82

16:28

THE SYSTEM SHOULD PROBABLY BE RECONFIGURED.

*MEMORY MANAGEMENT ERROR''

THIS ERROR INDICATES A TRAP WAS EXECUTED THRU

LOCATION 250, THE MEMORY MANAGEMENT TRAP VE(CTOR.
ESED§¥§AEH WILL HALT AFTER REPORTING THE ERROR
N

“'ILLEGAL DEVICE NUMBER'’

THIS ERROR INDICATES THAT A TUMBLE TABLE ENTRY
WAS MADE WHICH CONTAINED A DEVICE ADDRESS OUT-

SIDE THE VALID DEVICE ADDRESSES SPECIFIED BY THE
TEST PARAMETERS.

NOTE == THIS CONDITION WILL NOT

OCCUR ON A SYSTEM RESET FROM THE 360.

6.3 FOR FURTHER DETAILS ON DX ERRORS.

SEE SECTION

"'INVALID DX COMMAND"'

THIS ERROR INDICATES THAT AN INVALID COMMAND WAS

OETECTED FROM THE 360.

THIS ERROR CAN ONLY OCCUR

ON_AN INITIAL SELECTION SEQUENCE.

SEE SECTION

6.3 FOR FURTHER DETAILS ON DX ERRORS.
"WNON EX~MEM ERROR''
THIS ERROR

INDICATES

THAT A NON-EXISTENT MEMORY

ERROR WAS DETECTED IN A TUMBLE TABLE FROM THE
g;§0R§EE SECTION 6.3 FOR FURTHER DETAILS ON DX

‘PARITY ERROR'’
THIS ERROR INDICATES THAT A PARITY ERROR WAS DETECTED BY THE DX.
TO STOP THE DX WHEN
A PARITY ERROR 1S DETECTED, THE USER SHOULD

CONSULT THE ''STOP'' COMMAND.

7.0

RESTRICTIONS
SEE MEMORY REQUIREMENTS

7.1

MULTIPLE DEVICE ADDRESSES

(SECTION 2.2)

ONLY 8 DEVICE ADDRESSES MAY BE EXERCISED SIMULTANEOUSLY
OVER THE DX.

ALL

THE DEVICE ADDRESSES MUST BE CONTIGUOUS.

PROGRAM DESCRIPTION

THE PURPOSE OF

THIS PROGRAM IS

TO GIVE

INSIGHT

ON FUNCTIONALITY OF THE HARDWARE AND TO GIVE AN EXAMPLE OF
OF DX11 PROGRAMMING. IT WILL, BY DEFAULT, PROVE

ON 'WHICH SIDE OF THE FENCE'® A PROBLEM LIESSOF TWARE OR HARDWARE

,DEC OR I8M.

PAGE 14

SEQ 14

—

c
MAINDEC-11-C2DX]~-C

C2oxiC.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

PROGRAM DESCRIPTION

THE FOLLOWING IS A DESCRIPTION OF

2
07-JUN-82

THE PROGRAMMING TECHNIQES USED-

[T IS BROKEN DOWN BY THE NEAREST DISCRiPTIVE ROUTINE-

-------- KEYBOARD & PRINTER 1/0 ========
MESG:

THIS ROUTINE PACKS

LOOKS TO SEE

THE

TYPE OUT MESSAGE

RESTORES BUFFER AREA UNTIL MESSAGE

IF BUSY,

TKIN:

1S COMPLETE.

IT PACKS BUFFER AREA UNTIL FULL, WAITING FOR
TASK TO COMPLETE.

THIS APPROACH PROHIBITS MESSAGE

PROUT
:

IN BUFFER AREA =

IF PRINTER IS BUSY = IF NOT, PRINTS AND

THE OTHER PRINTABLE

THIS ROUTINE

INTERWEAVING.

USES PROUT:

SENDS DATA TO PRINTER BASED UPON TTY FLAG

IS BUSY OR NOT.

THIS ROUTINE ACCEPTS

CHARACTERS FROM KEYBOARD AND STUFFS

THEM AWAY IN TBUF, BUT FIRST,
TROL CHARACTERS.
*R = JUMP TO RESTART

IT CHECKS FOR CERTAIN CON-

TO RESELECT PARAMETERS.

“C = WHEN COMMAND

(TCMACT) ACTIVE = SET ABORT

“C = WHEN COMMAND

(TCMACT) NOT ACTIVE = PRINT \

FLAG

(TCMDAB)

& RESET BUFFER PTR,

A C/R DELIMITS

TTY COMMAND - TCMACT

IS SET - NOW IF

YOU

CONTINUE TYPING = TCMACT BEING SET WILL NOW THROW AWAY
THOSE CHARACTERS.

SYSINT:

THIS ROUTINE

CLEARS

THE

€ PRINTER VECTOR AREAS.

16:28

THE WORLD,

SETS UP TTY KEYBOARD

iggiSUP MEMORY TIME OUT & MEMORY MANAGEMENT ERROR VECTOR
CLEARS QUT SYSTEM BUFFER AREA & SETS UP TTY BUFFER POINTERS.

PAGE 15

SEQ 15

[

D
MAINDEC=11-CZDXI~C

CIDXIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

07-JUN-82

PROGRAM DESCRIPTION

====GETS DX ADDRESS = CHECKS FOR LIMITS SAVES IT IN UNADDR:
~===GETS DX VECTOR - DITTO
GETS DEVICE ADDRESS IN HEX = ACCEPTS RANGE OF DEVICE
ADDRESSES MUST NOT EXCEED 8 - SEPARATED BY A COMMA

SAVES START DEV ADD IN SDEV
SAVES END DEV ADD IN EDEV
====CHECKS FOR LEGAL TERMINATOR IE.
~=~==GETS CHANNEL TYPE

C/R

M (R S

====GETS ANSWER WHETHER MEMORY MANAGEMENT?

YES,

Y OR N

SET UP VECTOR & AND TEST FOR EXISTANCE OF MEMORY

MANAGEMENT.

====GET BUFFER RELOCATION IN ,000°S

(THOUSANDS)

(HECKS FOR BOUNDARY 20000 OR GREATER

(HECKS FOR MULTIPLS OF 2000

(HECKS TO SEE

IF NUMUER IS VALID WITHIN MEMORY MANAGE-

MENT AND COMPARES WHF THER M/M WAS SPECIFIED.

====GEY TEST TYPE =~ FRIEND OR 2848 ~ STORE IN TSTTYP:
FRIEND ASK NEXT QUESTION, IF 2848 JUMP TO INIT:
-===SEPARATE /0 BUFFERS?
STORE IN IOBUF:
IF Y ASK
~==<FILL

CHARACTER

SAVE

IN FILLCH

NOMM:
MMERR:

Y OR N

HEX

NO MEMORY MANAGEMENT AVAILABLE.
MEMORY MANAGEMENT TRAP OUT ROUTINE
CLEAR WORLD
TYPE OUT ERROR MESSAGE

HALT

- [F

16:28

PAGE 16

SEQ 16

E
MAINDEC-11-C20X]~C

CZoxiC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

INITRT:

MACY11

30A(1052)

PROGRAM DESCRIPTION

PRINTS MESSAGE - WAITS FOR INPUT - GETS IT N0 IF

A C/R - DEFAULTS.

2
07-JUN-82

IT IS

COTB:

GOBBLES CHARACTERS FROM INPUT BUFFER AREA ~ CONVERTS TO

CHTB:

GOBBLES CHARACTERS FROM INPUT BUFFER AREA CONVERTS HEX #

OCTAL AND SAVES RESULT IN R3 - THIS ROUTINE DOES NO
exrgglchCKlNG THE CODE FOLLOWING UNIT EXAMINE R3 FOR

TO OCTAL AND SAVES RESULT.

THE

STORES AWAY

TERMINATOR

IN Ré

TERMINATOR SHOULD BE EITHER A C/R OR A COMMA,
----- PROGRAM

INITIALIZATION====

INIT:
SET UP MEMORY TIME OUT TRAP
====SET UP DX ADDRESS TABLE.
SET UP VECTOR ADDRESS WITH
2;138600UAS BUFFER RELOCATION SPECIFIED = [F NOT START

====TEST FOR MEMORY MANAGEMENT.

====]F YES = SET UP MEMORY MANAGEMENT REGISTERS AND ENABLE
MEMORY MANAGEMENT,

~-==SET UP SPW TABLE
LOAD DXOS WITH BUFFER OFFSET (DEFAULT = 20000)
CALCULATE ADDRESS OF DST TABLE = SAVE AT DSTOFF
====SET UP SPW TABLE - MOVE UCHK FOR INVALID DEVICE #'S
MOVE DST ADDRESS TO VALID DEVICE #°'S

SPW TABLE = 400(8) WORDS.
====(CLR

TUMBLE

TABLE & DUPLICATE

TUMBLE

TABLE.

TT = 400(8) WORDS

DTT = 400(8) WORDS
-===SET UP DST TABLE
FIRST 11, BYTE LOCATIONS FILL
REMAINDER DST = UCHK = 2

DST = 128. WORDS = 256. BYTES

IN WITH VALID COMMANDS.

16:28

PAGE 17

SEQ 17

F
MAINDEC-11-C2DX]1~C

czoxic.Pm

NEW DX11-B RESPONDER

07-JUN-82 16:21

-===SET

FILL

MACY11

30A(1052)

2
07-JUN-82

PROGRAM DESCRIPTION

CHARACTER

~===COMPUTE MAX NUMBER OF DEVICES +1
SAVE AT MAXDEV:
DEVCON = FIRST DEVICE -1
=~==START SETTING UP DEVICE BUFFERS

SAVE ADDRESS AT SPEVIB

MAKE THE FIRST DEVICE = O IN THIS TABLE

CLEAR DEVICE STATUS BUFFER TABLE & INPUT BUFFER

--~-gsg?gg 2RE:VE ADDRESS OF

INPUT/DISPLAY BUFFER IN DEVICE

CREATE & SAVE ADDRESS OF OUTPUT/DISPLAY BUFFER IN DEVICE

BUFFER AREA.
====FILL

OUTPUT/DISPLAY BUFFER WITH FILL

CHARA(CTER

NOW CHECK IF ALL DEVICES HAVE WAD THEIR DEVICE STATUS
?g;;gg TABLES GENERATED = IF NOT, REPEAT INT130: THRU
= REMEMBER MEMORY MANAGEMENT HAS BEEN TURNED ON-

CREATE EXTENDED ADDRESS BITS AND SAVE AT XADDR:

FIRST

TIME

THRU FLAG = QUESTION/ANSWERS WILL

SET

ONLY BE

GENERATED IF LA 1002 & START. OR HITTING “S ON TTY KEYBOARD

-------- THE EXEC:

SYSTEM EXECUTIVE/BACKGROUND ========

(A WAIT ROUTINE)

EXEC:

CLR SYSTEM FLAGS

====ANY

COMMANDS

TO EXECUTE?

YES GO TO EXEC20.

DX ABORT AN OPERATION = IF NOT SPIN HERE

ODID

THE

====ALWAYS COME HERE AFTER TELETYPE INPUT MAS SET T(MACT THIS ROUTINE DISPATCHES YOU TO THE COMMAND TYPED IN - [F
NOT AN ACCE7TS?§SA¥¥ET§" COMMAND = ? RETURN TO EXEC.

16:28

PAGE

SEQ 18

6
MAINDEC-11-C2DX]~C

C20x1C.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

PROGRAM DESCRIPTION

===TYPICAL DX

2
07-JUN-82

COMMANDS~--

(ENTERED VIA TTY KEYBOARD)
RUN DX

RUN:

COMMAND

CHECK

YES,

IS ENABLED -

TYPE ? AND

(BELL)==RETURN TO EXEC AND

WAIT FOR ANOTHER TTY COMMAND.

IF NO,CONTINUE

RETURN TO EXEC.

CLR DXCS
INC DXCS - GO

CLR DEVICE STATUS BUFFER TABLE
(SCMD
SLCMD
SSENSE
(NOT SCURS, SINTB,
SSTAT
SBUFA
SRBYT(C
SRDRQ

SOUBF,

SONLF)

SMINS)

DO THIS FOR ALL DEVICE STATUS BUFFER TABLES
MAXDEV:)

CLR DXACT,

CMDCHF, DXABFL

CLR TUMBLE TABLE & DUPLICATE TUMBLE
SET EXTENDED ADDRESS BITS IN DX(S
CHECK FOR CHANNEL

IF
SET

(BASED ON

TABLE

TYPE

SELECTOR CHANNEL SET BUSY ENABLE
INTERRUPT ENABLE & ONLINE

IN DXCS

RETURN TO EXEC

STOP DX COMMAND

STOP:

Pl£§ ?z 7$§T

(/R

TTY

INPUT

(RUNCH DX,

CHARACTER FOR

THE MODE.

CONVERT AND PRINT CURRENT DEVICE #

IN HEX, PRINT 13 DX REGISTERS CONTENTS.

16:28

PAGE 19

SEQ 19

—

H
MAINDEC=-11-C20X]I~C

C20x1C.P1

NEW DX11~B RESPONDER

07-JUN=-82 16:21

MACY11

07-JUN-82

PROGRAM DESCRIPTION

CLR ABORT FLAG (DXABFL),

RESET DX,

30A(1052)

CLR DONE

SET GO, RETURN TO EXEC.

SET THE STOP FLAG
TAKEN PLACE,

(DXSTPF),

NOT

TEST WHETHER STOP HAS

WAIT UNTIL DXSTPF

HAS BEEN

CLEARED ( TYPICALLY THE PCHEND: ROUTINE WILL CLEAR
DXSTPF (DXISR:)) , DISABLE DX , RETURN TO EXEC

SAME AS D

EXCEPT

(TYPICALLY PESEND:

SAME AS D
EXCEPT
WILL CLEAR OXSTPF

( TYPICALLY PCHIS:
(DXISR:))

ROUTINE

PCHEND:

ROUTINES WILL

CLEAR DXSTPF

ANY OTHER CHARACTER
= AN ILLEGAL

(DXISR:))

CHARACTER

DUMP COMMAND

DUMP:

PICK UP THE NEXT SEQUENCE OF
FROM TTY INPUT BUFFER AREA.

(GLIMIT: ) 1ST CHECK IF
NOT, DETERMINE
IF NOT ONE OF
(SAVE

I1T)

OCTAL

NUMBERS OR NEXT

THEY ARE OCTAL NUMBERS.

IF YES

IF IT IS AN *'I'', *0'', OR
THESE - TYPE ERROR HESSAGE

OCTAL NUMBERS,

CHARACTER

(SAVE

IT);

1ST ADDRESS GIVEN = SADDR

2ND ADDRESS GIVEN = EADDR.

IF "T°* =CHECK FOR 2ND T - CREATE STARTING ADDRESS
OF DUPLICATE

(TTPTR +1000)

(SAVE) DTT2 = SADDR

IF 'I'' = NOW CHECK FOR N = CREATE STARTING & ENDING ADDRESSES
OF DEVICE O INPUT BUFFER TABLE
SINBUF (DEV 0) = SADDR
SADDR + 481. = EADDR

If "0’= NOW CHECK FOR
T - CREATE STARTING AND ENDING
ADDRESSES OF DEVICE O OUTPUT BUFFER TABLE

SOUTB (DEVO) = SADDR
SADDR ¢+ 479. = EADDR

NOW SET UP DMPADR: TO CONTAIN THE ADDRESS OF THE
CORRECT DUMP ROUTINE (IE ASCII DUMP, EBCDIC, HEX,

CHECK TO SEE If IT IS A TT DUMP - |F
IN REVERSE = USES ADDRESS IN DM~ZADR.
(PRINTING) UNTIL BSGIN OF DTT

OCTAL)

YES, DUMP DTT
CONTINUES DUMPING

IS SEEN.

16:28

PAGE 20

SEQ 20

|
MAINDEC-11-C20X]1-C

CZoxIC.P1N

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

PROGRAM DESCRIPTION

07-JUN-82

16:28

IF NOT A TT DUMP -~ CHECK FOR A DEVICE # SPECIFIED - IF
NOT JUST DUMP DEFAULTED LIMITS GET THE DEVICE #, CRUNCH THE
goggg?}éxgs SADDR & EADDR TO POINT TO THE PROPER DEVICE

CONVERT AND DUMP 1T,

RETURN TO EXEC..;

STOPPING ®EADDR

LOOKING FOR MORE

COMMANDS TO EXECUTE.

FILL COMMAND
FILL:

PICK UP CHARACTERS FROM TTY

INPUT BUFFER AREA =~ PERFORMS

VERY SIMILAR TO THE DUMP COMMAND EXCEPT IF
SPECIFIED FILL CHARACTER (FILLCH)

FILLS AREA WITH THE

USE ONLY THOSE FILL COMMANDS AS SPECIFIED IN THE TEXT - ANY
OTHERS MAY OBLITERATE THE CORE.
BASICALLY THIS IS USED TO FILL
WITH FILL CHARACTER

(FILLCH)

THE OUTPUT OR INPUT BUFFER AREA

ACCESS COMMAND
ACCESS:

OPENS CORE LOCATION,

ALLOWING

TO BE MODIFIED WITH NEW CONTENTS,

A *'/"* RETURNS YOU TO THE EXEC, A C/R OPENS NEXT LOCATION ETC.
=VERY SIMILAR TO '0DT" -

ENABLE DEVICE

ENABLE:

GETS THE TYPED DEVICE # IN HEX
CLEARS THAT DEVICES STATUS TABLE
CLR SSENSE, CLR SONLF

RETURN TO EXEC

KILL DEVICE
KILL:

GETS

THE

TYPED DEVICE # IN HEX

MOVES A °""1'' INTO SONLF

MOVES A UNIT CHECK
RETURN TO EXEC.

INTO THE

SPW TABLE

INPUT COMMAND

INPUT:

CHECK FOR FRIEND OR 28487 - 2848 ON.Y GET DEVICE #
IN HEX FROM TTY INPUT BUFFER.

PAGE 21

SEQ 21

J
MAINDEC-11-C20X1-C

czox1iC.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21
PUT THE

START CHARACTER

MACY11

30A(1052)

PROGRAM DESCRIPTION

IN DEVICE BUFFER AREA

2
07-JUN-82

16:28

(SMI=112)

SAVE DATA LOCATION (SMINS)
INC CURSOR POSITION
CHECK FOR END OF SCREEN (SCURS=478.) IF YES, PUT EOM
(EOM=152) IN THE BUFFER AREA, INC CURSOR POSITION, QUEUE

A READ REQUEST

(SRDRQ)

PUSH STACK (CREATE PHONEY INTERRUPT)
JUMP DXEXEC

----- TYPICAL

TT1

(TUMBLE

TABLE)

ENTRIES====-

(THESE SERVICE ROUTINES ARE SELECTED BY THE DXISR
ROUTINE WHEN THE TUMBLE TABLE ENTRY (TT1=DXDS) IS EXAMINED.)

SYSTEM RESET
PSYSRT:

CLEAR DEVICE

STATUS BUFFER TABLE.

AREA WITH FILL CHAR,
DO THIS FOR ALL DEVICES
CLR ACTIVE FLAGS, CMD CHAINING FLAG
CLR CUBUSY IN DXCS
PROCESS NEXT ENTRY IN TT

SETUP D]SPLAY BUFFER

(DXACT & CMDCHF)

IF NO MORE TT ENTRIES = GO TO DXEXEC.

SELECTIVE RESET
PSELRT:

CLR DEVICE STATUS BUFFER TABLE
FOR THAT DEVICE + SENSE

IT IS A SEL RESET ISSUED AGAINST THE CURRENT ACTIVE DEVICE.

PROCESS ANY MORE

TT ENTRIES THEN GO TO DXEXEC.

INTERFACE DISCONNECT:
PINDSC:

IF DEVICE WAS ACTIVE,

ITS DEVICE

CLEARED = IF NOT ACTIVE,

IF ACTIVE - QUEUE CE!

STATUS

IGNORE CMD.

TABLE WILL BE

DE IN SCMD

(TYPICALLY IBM WILL INTERFACE DISCONNECT A DEVICE EVEN
THO THE DEVICE WAS NOT ACTIVE)

IF ACTIVE = CHECK FOR CMDCHF: & DXACT: FOR THAT PARTICULAR
DEVICF - IF YES, CLR BOTH FLAGS - ONLY ONE DEVICE AT A TIME
CAN HAVE CMD CHAINING AND/OR DX ACTIVE SET.
IF NO MORE TT ENTRIES = GO TO DXEXEC.

STATUS ACCEPT

PAGE 22

SEQ 22

K
MAINDEC~11-CZDX1~C

cZoxic.PN

NEW DX11-B RESPONDER

07-JUN-82 16:21

PESENT:

WAS LAST (MD A WRITE?
WAS ATTN ACCEPTED? =

MACY11

30A(1052)

07-JUN-82

FORMAT

THE DISPLAY

(DISCTL)

PROGRAM DESCRIPTION
IF

SO,

YES,

SET SRDRQ

INPUT REQUEST)
IF NO, CONTINUE

(READ MANUAL

CLR OUT SLCMD (LAST CMD)(SET ONLY ON A WRITE)
CLR DXACT DXACTIVE FLAG
CLR DEVICE STATUS BUFFER TABLE
TEST FOR CMDCHN (TT1)(DXDS) = IF YES, SAVE DEVICE # IN
WAS A SE

IN CMDCHF (ONLY ONE DEVICE AT A TIME CAN
CMD CHAIN)

SPECIFIED?
(STOP ON ENDING SEQ) - IF YES, CRUNCH
giE;EéF NO, AND NO MORE TT ENTRIES GO TO

NON-EXISTANT MEMORY = FATAL ERROR
PNXM:

STOP THE DX FROM INTERRUPTING

SET ABORT FLAG
EXIT FROM DXISR = GO TO MONI'OR WAIT STATE(EXEC).
(DO NOT PASS THRU DXEXEC ROUTINE =~ JUST ABORT)

PARITY ERROR

PPARER:

WAS STOP ON PARITY ERROR SPECIFIED?
THE PROGRAM (PARSTP: =0) HAS BEEN PRESET TO YES

IF YES = CRUNCH DX
IF NO (PARSTP: =>0) QUEUE A UNIT CHK TO SSTAT

RETURN TO DXISR AND CONTINUE

CHECKING TT1

(STATUS WORD)

EVERYTHING OK UP TO THIS POINT
CHANNEL INITJATED SELECTION SEQUENCE
PCHIS:

WAS A SI

(STOP ON 1SS)

SPECIFIED?

IF YES, CRUNCH DX
CMDREJ?
YES, 1S DEVICE ONLINE?
NO, SET INTREQ IN SSENSE
CMDCHF? [F YES, CLR CMDCHF,
ANY MORE

CMDREJ?

TT ENTRIES? - [F NO,

GO TO DXEXEC

YES, IS DEVICE ON LINE?
YES, TEST PARITY ERROR

IF NOT, MUST BE ILLEGAL CMD - SET BUS OUT IN SSENSE
IF YES, SET SCMDRJ (COMMAND REJECT) IN SSENSE

CMDCHF?

(MDREJ?

YES,

CLR CMDCHF

ANYMORE

NO,

TT ENTRIES, NO,

THEN PROCESS (MD

GO TO DXEXEC

(TT2 CONTAINS (MD)

16:28

PAGE 23

SEQ 23

L
MAINDEC-11-C2DX]~C

LZ20XIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:
21

MACY11

30A(1052)

PROGRAM DESCRIPTION

2
07-JUN-82

16:28

IS THIS A TIO CMD?
IF YES, IGNORE, CHECK CMDCHF ETC,
ANYMORE TT? NO? GO TO DXEXEC
IS THIS A NOP CMD?

IF YES,

IGNORE, CHECK CMDCHF ETC,

TT ENTRIES?, NO GO TO DXEXEC

IS THIS A VALID CMD?

NO = ABORT DX(DXAB:)....EXIT FROM DXISR §
YES

IS CMDCHF

SET?

ANYMORE

CHANNEL END,
PCHEND:

YES,

RETURN TO EXEC:

-~ QUEUE CMD (TT2)

TO SCMD

CLR CMDCHF

TT ENTRIES,

NO? GO TO DXEa“.

PREPARE ENDING SEQUENCE RESPONSE

CLR DXACT
WAS STOP ON DATA TRANSFER DONE?
NO, QUEUE CEDE TO SCMD

YES,

STOP DX

SUBTRACT DXBYTE COUNT (DXBC) FROM SRBYT(
WAS THERE A PARITY ERROR?
[F YES,
QUEUE EQPCHK TO SSENSE (EQPCHK = 20 )
(LOOP)

ANYMORE

TT ENTRIES? NO,

GO TO DXEXEC

CONTROL UNIT END
PCUEND:

CLR DXACT
USED TO KEEP TRACK OF REMAINING BYTE COUNT

(SRBYT()

=== DXISR

==~

AND TO KEEP TRACK OF
JUMP TO PCHEND:

CURRENT BUFFER POINTER

(DX118 INTERRUPT SERVICE ROUTINE)

(MULTIPLEXER CHANNEL)

THE DX SHOULD MAKE ENTRIES IN TT - INTERRUPTS VECTORING
THRU W
N PSW IS < DX118

DXISR:

CHECK IF ZERQ TT ENTRY UPON INTERRUPT
IF ZERO = ASSUME TT ENTRY HAS ALREADY BEEN PROCESSED RETURN FROM INTERRUPT

Ir NON-ZERO,

~ CLEAR "DONE'' (DXCS) FOR EVERY TT ENTRY

= SAJE FIRST TT ENTRY IN DUPLICATE TT (DTT1) &TT1,
SAVE SECOND TT ENTRY IN DUPLICATE TT (DTT2) &TT2.
CLR BOTH iT ENTRIES TO SIGNIFY THAT THEY WERE PROCESSED.
NOTE:

TT1 CONTAINS CONTENTS OF DXDS...TT2 CONTAINS CONTENTS
OF DxCA.

PILK UP DTT2 AND (HECK FOR VALID DEVICE # (TT2=DX(A)

PAGE 24

SEQ 24

mn
MAINDEC-11-C2DXI~C

CZoxIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

PROGRAM DESCRIPTION

2
07-JUN-82

16:28

PAGE 25

THE ORDER IN WHICH THE FIRST TUMBLE TABLE ENTRY IS PROCESSED
IS IMPORTANT. CHECK FIRST FOR SYSTEM RESET , PARITY ERRORS,
ETC. THEN CHECK FOR CHANNEL INITIATED SEQUENCE, CHANNEL END,
CONTROL UNIT END. (PERFORM ACCORDING TO TT1 (DXDS))
*
(HECK FOR A SYSRST IN TT1 (DXDS)

*
*
*

*
*

NO?

IF YES, GO TO SYSTEM RESET
SELECTIVE RESET? (DXDS)
IF YES, GO TO PSELRT:
(HECK FOR INTERFACE DISCONNECT?
IF YES,GO TO PINDSC:

NON-EXISTANT MEMORY?

(PSYSRT:)
(DXDS)

(DXDS)

IF YES, GO TO PNXM:
STATUS ACCEPTED? (DXDS)
IF YES, GO TO PESEND:

PARITY ERROR?

IF
CHANNEL
IF
(HANNEL
IF
(ONTROL
IF
INITIAL

(DXDS)

YES, GO TO PPARER:
INITIATED SEQUENCE? (DXDS)
YES , GO TO TCHIS: (EVERYTHING OK UP TO THIS POINT).
END? (DXDS)
YES, GO TO TCHEND:
UNIT END? (DXDS)
YES, GO TO TCUEND:
SELECTION SEQUENCE REJECT? (DXDS)

IGNORE ENTRY..

TREAT AS STA(CK STATUS

GET NEXT TT ENTRY AND DO REST OF ABOVE.....
INITIAL SELECTION SEQ WAS REJECTED

IF. HOWEVER,

,ENTER A 2UEUE CONTROL

UNIT END TO 360 (QUEUE A CONTROL UNIT END(QCUE=10) TO SCMD OF PROPER DEVICE
STATUS BUFFER TABLE)

=YOU WILL STAY IN THIS SECTION OF CODE UNTIL ALL TT ENTRIES
HAVE BEEN PROCESSED. WHEN THERE ARE NO MORE TT ENTRIES TO
PROCESS ....JUMP TO DXEXEC:.

---DXEXEC:

OVERVIEW (

CMD DISPATCH SECTION

THE DXISR) ===

DXISR HAS THE PRIORITY LEVEL AT 7 PREVENTING ANY MORE INTERRUPTS,
= IT HAS PROCESSED ALL THE TT ENTRIES BEFORE GETTING INTO THIS CODE
REMEMBER; THROUGHOUT THE DXISR INTERRUPT SERVICE ROUTINE,
AS A RESULT OF SERVICING TT ENTRIES, THE PROGRAM HAS

BEEN SETTING OR PUTTING SPECIFIC #°S IN THE DEVICE'S
STATUS BUFFER AREA.
THESE COMMANDS OR WHATEVER WERE
BEING QUEUED FOR DXEXEC: PROCESSING.
HOPEFULLY, AS THE TT
WAS SERVICED SOME OF TAESE WERE CANCELLED OR CHANGED TO
REFLECT THE TRUE STATUS THAT MUST BE PRESENTED TO THE 360

CHANNEL.

(] KNOW THAT MAY BE DIFFICULT TO REMEMBER).

WELL,

NOW IS THE TIME TO PROCESS THESE QUEUED COMMANDS.
YOU CAN EXIT FROM THE DXISR: BY SEVERAL PATHS. EXECUTING
A COMMAND, SEND ‘ATTENTION'', COMMAND CHAINING, OR A

SYSTEM RESET,

INTERFACE DISCONNECT, ETC..

SEQ 25

N
MAINDEC-11-C20Xx]1-C

czox!c.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

THE

DXEXEC:

ROUTINE

MACY11

30A(1052)

2
07-JUN-82

PROGRAM DESCRIPTION

FIRST DETERMINES WHETHER THE CHANNEL

WAS SELECTOR OR MULTIPLEXER

(CHTYPE
= 'M'' OR ''S

"
TYPICAL

WRITE

SELECTOR

COMMANDS

FULL BUFFER

RCAD MANUAL

(STMD = 1)

INPUT

(SCMD

ENDING SEQUENCE

(SCMD = &)
(SCMD = 5)
(SCMD = 6)

ERASE COMMAND
CONTROL UNIT END

SEND ATTN TO 360

(SCMD = 7)
(SCMD =10)
INFJT

(SCMD =11)

(SCMD =12)

TYPICAL MULTIPLEXER COMMANDS

(FOR EACH DEVICE #)

WRITE FULL BUFFER

(SCMD = 1)

ENDING SEQUENCE

(SCMD = 3)

READ MANUAL

INPUT

(SCMD = 2)

SENSE COMMAND
WRITE LINE ADDRESS

(SCMD = &)
(SCMD = )

READ FULL BUFFER

(SCMD = 6)

CONTROL UNIT END
SEND ATTENTION
READ SHORT MANUAL

(SCMD =10)
(SCMD =11)
(SCMD =12)

ERASE COMMAND

= 2)

(SCMD = 3)

SENSR COMMAND
WRITE LINE_ADDRESS
READ FULL
|BUFFER

READ SHORT MANUAL

(FOR EACH DEVICE #)

(SCMD = 7)
INPUT

-=-~SELECTOR/MULTIPLEXER COMMAND DESCRIPTION =-==
=== SELECTOR CHANNEL =---SEX:

THERE ANY COMMANDS TO EXECUTE

(PER DEVICE)?

IF NO,

CHECK

FOR COMMAND CHAINING. IF YES, EXIT FROM THE DXISR =~ WAIT
FOR THE INTERRUPT (REMEMBER, YOU MUST EXIT IN ORDER TO

DROP THE PROCESSOR LEVEL).

PROCESS NEW TT ENTRIES.

RESULTANT DXISR INTERRUPT WILL

If CMDCHF = O CHECK TO SEE OF THE ATTENTION FLAG (SRDRQ)

FOR

THAT DEVICE

SET.

YES,

QUEUE

A °'‘SEND ATTENTION''

16:28

PAGE 26

SEQ 26

B
MAINDEC~11-C2DX]~C

CZoxIC.P11

NEW DX11-8B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

PROGRAM DESCRIPTION

3
07-JUN-82

(SCMD=11).
IF NO, RETURN TO DXEXEC AN REPEAT FOR NEXT DEVICE
= REPEAT UNTIL ALL DEVICES HAVE BEEN SERVICED BEFORE

EXITING FROM DXISR.

IF THERE WAS A COMMAND TO EXECUTE
?gg;lg§1§:ECIFIED BY THE COMMAND.

(SCMD=XX): GO TO THAT
WHEN COMPLETE...EXIT

WRITE LINE ADDRESS
WRITE FULL BUFFER

SWRITE:

SET UP THE ADDRESS OF INPUT BUFFER AREA (SINBF)
SUBTRACT PHYSICAL OFFSET
SET BYTE COUNT IN DXBC
SET DEVICE ADDRESS IN DXCA
SAVE COMMAND (SLCMD <===== S(MD)
CLR SSENSE
SET DEV ACTIVE FLAG (DXACT)
SET INPUT FUNCTION & GO IN DXCS
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES

THE SAVING OF

SEQUENCE
READ COMMAND

SREAD:

INTO DXBA

SLCMD SIGNIFIES TO THE PRESENT ENDING

(PESEND)

THAT IT MUST FORMAT THE DISPLAY

(DISCTL)

(READ FULL BUFFER)

SET UP THE ADDRESS OF THE OUTPUT BUFFER AREA (SOUTB)
INTO DXBA.
SUBTRACT PHYSICAL OFFSET.
.
SET BYTE COUNT IN DXBC
SET DEVICE ADDRESS IN DXCA
CLR SSENSE
SET DEV ACTIVE FLAG (DXACT)
SET OUTPUT FUNCTION & GO IN DX(CS
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES.

READ MANUAL INPUT
READ SHORT MANUAL

[NPUT

igggis )xs IT FRIEND?

YES,

TREAT AS READ FULL BUFFER

DID YOU SPECIFY A READ REQUES!: NO? nSSUME THE

360 GAVE AN UNSOLICITATED PcQUEST (POLL) AND SEND BACK

AN ENDING SEQUENCE

(ESEQ:)

IF READ REQUEST WAS SET-PROCEED CLR _SRDRQ
SAVE LAST COMMAND
SET UP STARTING ADDRESS - MOVE SMINS TO DXBA
SUBTRACT PHYSICAL OFFSET FROM DXBA
CALCULATE BYTE COUNT AND SET DXBC(

IF BYTE COUNT IS ERRONEOUS = JUST SEND AN ENDING SEQUENCE
COMPUTE DEVICE ADDRESS AND SET DXCA

16:28

PAGE 27

SE0 27

c
MAINDEC~11-C20XI-C

c2oxic.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

PROGRAM DESCRIPTION

3
07-JUN-82

CLR SSENSE
SET DEVICE ACTIVE FLAG (DXACT)
SET OUTPUT FUNCTION AND GO IN DXCS
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES.
PRESENT ENDING STATUS

ESEQ:

TO CHANNEL

QUEUE CE & DE TO SSTAT
CALCULATE DEVICE ADDRESS AND SET DXCA
CHECK FOR UNIT CHECK BIT SET.
UNIT CHECK ONLY

YES, QUEUE SSTAT WITH

IF _NO, MOVE SSTAT TO DXOS
SET STATUS FUNCTION & GO TO DXCS
SET DEVICE ACTIVE FLAG (DXACT)
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES.
PRESENT CONTROL UNIT END

CONUNE: QUEUE A CONTROL UNIT TO SSTAT
CALCULATE DEVICE ADDRESS AND SET DX(CA
CHECK FOR UNJT CHECK BIT SET
IF YES, QUEUE SSTAT WITH UNIT CHECK ONLY
IF _NO, MOVE SSTAT TO DXOS
SET STATUS FUNCTION & GO TO DXCS

SET DEVICE ACTIVE FLAG (DXACT)
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES.

ERASE COMMAND
ERASCM: MOVE AN EBCDIC SPACE THROUGHOUT OUTPUT DATA BUFFER (SOUTB)
CLEAR CURSOR POSITION (SCURS)
CLEAR SSENSE
QUEUE A CE & DE TO SCMD (CRUNCH WHATEVER WAS IN SCMD)
DO AN ENDING SEQUENCE - (ESEQ:)

SENSE COMMAND

SENSCM: MOVE THE ADDRESS OF THE SENSE BYTE (SSENSE)
COMPUTE DEVICE ADDRESS AND SET DXCA
SET UP TO SEND ONE BYTE TO DXBC
SET DEVICE ACTIVE FLAG (DXACT)
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES

----- MULTIPLEXER CHANNEL

===--

TO DXBA

16:28

PAGE 28

SEQ 28

D
MAINDEC-11-C20X]I-C

czoxic.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MEX:

MACY11

PROGRAM DESCRIPTION

IS COMMAND CHAINING SPECIFIED?

DXISR TO ALLOW PSW = 0

30A(1052)

(CMDCHF)

3
07-JUN-82

16:28

YES, EXIT FROM

[IF NO, PICK UP LAST DEVICE ADDRESS

THAT HAS A COMMAND EXECUTED = HAS

IT BEEN EXECUTED?

(TYPICALLY

SYSTEM RESET, SELECTIVE RESET, INTERFACE DISCONNECT,
STATUS ACCEPTED, CHANNEL END, OR CONTROL UNIT END WILL
TERMINATE DXACT IN A COMMAND SEQUENCE)

GO TO DEVICE AND FIND OUT IF THERE IS A JOB TO DO
IF NOT, QUEUE ''ATTENTION'® IFF ATTENTION IS REQUESTED (SRDRQ=1)
-GO EXECUTE COMMAND.

THOSE THAT ARE COMMON TO THE SELECTOR CHANNEL WILL NOT
BE EXPLAINED HERE =~ REFER BACK TO SELECTOR
WRITE

FULL BUFFER

MWRITE:

IS THIRE A WRITE IN PROGRESS? (SRBYT()
IF NO, SET UP DXBA (DXBA <===== SUBFA)
SET UP BYTE COUNTER (SRBYT()
SET UP DEVICE ADDRESS IN DXCA
SET UP FOR &4
BYTES MAXIMUM TRANSFER IN DXBC(
CLR SSENSE
SAVE COMMAND (SLCMD <===== SCMD)
SET DEVICE ACTIVE (DXACT)
SET INPUT FUNCTION & GO IN DXCS
EXIT FROM DXISR AND WAIT FOR NEW TT ENTRIES
IF THERE WAS A WRITE IN PROGRESS JUST CONTINUE AS ABOVE
g?;éL SRBYTC = 0, THEN SET UP TO MAXIMUM INPUT BUFFER
SRBYTC

IS DECREASED BY

ROUTINE =

(PREPARE

THE FOLLOWING TT ENTERED

CONTROL UNIT END

(PCUEND))

SBUFA IS INCREASED BY THE SAME ROUTINE

A 360 WRITE

(MUX) WILL

THE SAVING OF

SEQUENCE
(DISCTL)

(PCUEND)

TRANSFER & BYTES AT A TIME

SLCMD SIGNIFIES TO THE PRESENT ENDING

(PESEND)

THAT ]T MUST FOMAT THE DISPLAY

READ COMMAND
MREAD:
SAME BASICALLY AS MWRITE

EXCEPT

OUTPUT FUNCTION & GO IN DX(S

JT USES SOUTB AND SETS

READ MANUAL INPUT (OMMAND
MSRM]:
FRIEND OR 2848

IF FRIEND==JUMP TO 'READ FULL BUFFER’' (MREAD:)

IF 2848, WAS READ REQUESTED ? NO- ASSUME NOP AND

QUEUE AN ENDING SEQUENCL

TO CHANNEL

(ESEQ:)

PAGE 29

SEQ 29

E
MAINDEC~11-C2DX]I~C

c2oxIic.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

PROGRAM DESCRIPTION

IF READ REQUESTED = YES (SRDRQ =1)
CONTROL (SLCMD)
COMPUTE ADDRESS OF OUTPUT BUFFER
COMPUTE THE BYTE COUNT
GO TO READ (MREAD:)
NOTE:

AFTER TRANSFER OF

30A(1052)

THE &4 BYTES,

07-JUN-B2

SAVE CMD FOR DISPLAY

THE DXBC WILL DECREMENT TO ZERO

CREATING A CONTROL UNIT END TT ENTRY (PCUEND:)
SRBYTC WILL BE DECREMENTED BY & AND SBUFA WILL BE
INCREMENTED BY 4=~ THIS APPLIES TO ALL THE SELECTOR OR

MULTIPLEXER READ OR WRITES
FUNCTIONING CORRECTLY.

THE DX HARDWARE

===~MISCELLANEOUS ROUTINES ===
ASCOMP:

EBCOMP:

gE¥g=;:

THESE ROUTINES SPIT OUT

EQUIVALENT OF
IN ASCII,

THE

CHARACTER

THE ORIGINAL OCTAL BYTE

EBCDIC,

HEXIDECIMAL

OR OCTAL..

DISPLAY CONTROL ROUTINE
DISCTL:

WAS IT A READ MANUAL INPUT COMMAND (SLCMD=2) IF YES, PICK
UP SMINS. BACK UP. BLANK CHARACTER, SAVE SCURS & RETURN

SMINS:
SMINS:
SMINS:
WAS

LOADED IN INPUT COMMAND (ENTER DATA ON A 7260 SCREEN)
USED IN READ MANUAL INPUT COMMAND
USED IN PERFORM READ MANUAL COMMANDS

IT A SHORT READ MANUAL

IF YES, JUST RETURN

INPUT

(SLCMD=12)

IF NEITHER, THE COMMAND MUST HAVE BEEN A 360 WRITE.
WAS IT FRIEND
IF FRIEND AND
COPY INPUT
IF FRIEND AND

OR 2848?
NOT SEPARATE [/0 BUFFERS (]O0BUF=0)
BUFFER TO OUTPUT BUFFER
SEPARATE 1/0 BUFFERS (108UF=1)

DON'T COPY INPUT BUFFER TO OUTPUT BUFFER

IF 2848, GET ADDRESS OF STARTM OF INPUT (SINBF)
WAS THE LAST (MD A WRITE LINE ADDRESS?

(SLCMD=S)

16:28

PAGE 30

SEQ 30

P o3

MAINDEC-11-CZDXI~-C

C20xIC.P1N

NEW DX11-B RESPONDER

07=-JUN-82 16:21

MACY11

30A(1052)

PROGRAM DESCRIPTION

O07=-JUN-82

16:28

OX ABORT
DXAB:

CLEAR DX INTERRUPT ENABLE TO PREVENT ANY MORE INTERRUPTS
SET THE DXABLE FLAG TO ABORT
EXIT FROM DXISR
(TVPICALLY CAUSED BY A SYSTEM ERROR (NON EXISTANT MEMORY,
INVALID COMMAND)
====DEVICE STATUS TABLE FLAGS===~-

DESCRIPTION OF THE DEVICE STATUS TABLE FLAGS.
ONE FULL SET PER SPECIFIED DEVICE).
1)

(THERE

THEY ARE BROKEN DOWN TO THEIR POSSIBLE CONTENTS

2) HOW THEY ARE USED BY THE PERTINENT ROUTINE (CLOSEST
SIGNIFICANT ROUTINE)

3) A LISTING OF WHAT ROUTINE CLEARS THE FLAG,

OR SET THE FLAG, OR USES THE FLAG.
THESE

SCMD

FLAGS ARE USED ACTIVELY BY

SIGNIFICANT EVENTS.

<==== IDLE = 0 (NO COMMAND)
C==== SWRITE: & MWRITE: =1

C====
===«
C====
C====
C====
<=~

SRM]: L MRM]:
(EDE
SENSCM:
SWRITE: & MJRITE:
SREAD: & MREAD:
ERASCM:

Ce===

SSRM]: L MSRM]:

<==== QCUE
<==== “ATTENTION''

THE PROGRAM TO KEEP TRA(K

PROGRAM GENERATED COMMANDS-

= 2
=3«
=z &
= §
z 6
=7

=10 «
= 1] «

= 12

THE

REMAINING WERE

OF 18M 360/370 COMMANDS (TT2 ENTRIES)

AS A RESULT

HOW USED

PESEND:

USED TO QUEUE

INFORMATION

IN SRDRQ & SLCMD FOR

LATER PROCESSING
MEX: & SEX: USED TO PERFORM THE 360 CMD - SET UP DX AND DO |T
MWR]TE : 2R3g2§;§§GUSED TO SAVE LAST (OMMAND IN SLCMD FOR LATER
MSRMI:

& SSRMI: USED TO SAVE LAST COMMAND

[N SLCMD FOR LATER

PAGE 31

SEQ 31

6
MAINDEC-11-CZDXI~C
NEW DX11-B RESPONDER
MACY11 30A(1052)
C20xIC.P11
07=-JUN-82 16:21
PROGRAM DESCRIPTION

3
O07-JUN-82

16:28

PROCESSING.

SET UP IN

USED IN

CLEARED IN

TISSRJ:
PINDSC:
PVISS:

PESEND:
SEX: & MEX:
SWRITE: & MWRITE:

CDEVST: (RUN:,ENABLE:,
KILL:, PSYSRT: ,PINDSC:,
PESEND:)

PCHEND :

SSRM]: £ MSRM]:

ERASCM:

SSENSE

<~==<====
C====
C====

(2)

[NTREQ
BUSOUT
SCMDRJ
EQPCHK

=100
=40
=200
=20

HOW USED

USED BY 360 WHEN REQUESTING A SENSE (MD
IE.

SENSCM:

MOV #SSENSE,aDXBA

SET UP IN

USED IN

CLEARED IN

PHIS:
PCHEND:

SENSCM:

RUN:
ENABLE:
PSYSRT:
PSELRT

SWRITE
SREAD:
ERASCM

MWRITE
MREAD

SSTATY
SSTAT

C==== U(HK

C====
C====
<====

(E'DE
ATIN
(UE

(3)
=2
= 14
= 200
=40

PAGE 32

SEQ 32

H
MAINDEC-11-C20X]1-C

cZoxic.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

PROGRAM DESCRIFTION

3
07-JUN-82

16:28

HOW USED

USED BY 360 WHEN REQUESTING STATUS WITH EXECEPTION
OF THE ASYNCRONOUS PRESENTING OF STATUS
THE 360.
JE. STOUT: MOv
SSTAT,aDXx0S

(ATTN)

SET UP IN

USED IN

CLEARED IN

PPARER:

STOUT:

PSYSRT:

ESEQ:

CDEVST:(RUN: ,ENABLE:,

CONUNE :

KILL:,PSYSRT: PINDSC:,

SATIN:

PESEND:)

SCURS

<==== ANY # FROM 0

70 479.

(CURSOR POSITION)

HOW USED

INPUT:

U%E%RT?BgAkEHEAYE CURSOR POSITION TO CREATE OUTPUT TABLE

MSRMI:

& SSRMI:

)

USED TO CALCULATE BYTE

USED IN

CLEARED N

INPUT:

PSYSRT:

SSRM] :

S INBF

SINBF

COUNT FOR USE @DXB(

DISCTL:

ERASCM:

(6)

<=-=== ADDRESS OF DEVICE

INPUT/DISPLAY BUFFER

HOW USED

DUMP: USED BY PROGRAM DUMP COMMAND TO ASCERTAIN BOUNDARIES
OF THE INPUT BUFFER
DISCTL: USED BY PROGRAM TO CALCULATE BOUNDARIES FOR INPUT BUFFER
MURITE: & SWRITE: USED BY PROGRAM FOR CALCULATION

PAGE 33

SEQ 33

1
MAINDEC-11=-CZDXI~-C

C20xIC.P

NEW DX11=-B RESPONDER

07=-JUN=-82 16:21

MACY11

PROGRAM DESCRIPTION

SET UP [N

USED IN

INIT:

(INT140:)

OUMP:
VISCTL:
MWRITE: & SWRITE:

S0UTB

<~===-

ADDRESS OF

30A(1052)

3
07=-JUN-82

16:28

DEVICE OUTPUT/DISPLAY BUFFER

HOW USED

DUMP:

USED BY PROGRAM DUMP COMMAND TO ASCERTAIN
BOUNDARIES OF THE OUTPUT BUFFER
INPUT: USED TO CALCULATE START OF DATA LOCATION FOR
%g:bégEDOF THE OUTPUT BUFFER FOR A SUBSEQUENT

DISCTL: USED BY PROGRAM TO CALCULATE BOUNDARIES FOR OUTPUT BUFFER
MREAD: & SSRMI: & MSRMI: USED TO CALCULATE BYTE COUNT FOR
DXBC (18M READ)

PSYSRT:

USED TO CLEAR OUT OUTPUT BUFFER AREA

(WITH FILLCH)

ERASCM: USED TO CLEAR OUT BUFFER AREA (WITH EBCDIC SPACE = 100)

SET UP IN

USED IN

INIT:

DUMP:

(INT140:)

SSRM]: & MSRM]:

PSYSRT:

ERASCM:

MREAD:

SBUFA
SBUFA

(12)

<==== (URRENT BUFFER ADDRESS

(FOR MUX CHANNEL ONLY)

PAGE 34

SEQ 34

J
MAINDEC-11-C20X]~-C
NEW DX11-B RESPONDER
MACY11 30A(1052)
CZoxIc.P1
07-JUN-82 16:21
PROGRAM DESCRIPTION

3
07-JUN-82

16:28

HOW USED

MSRMI: & MWRITE: & MREAD: USED TO KEEP TRACK OF CURRENT
BUFFER ADDRESS ,INCLUDING MEMORY MANAGEMENT-LOADED IN DXBA
ALSO USED TO CALCULATE BYTE

LOADED IN DXBC

COUNT

(SRBYT(C)=-

SET UP IN

USED IN

CLEARED IN

PCUEND:
MWRITE:

MWRITE:
MREAD:
MSRM] :

CDEVST:(RUN:,
ENABLE: KILL:,PSYSRT:,

SONLF

(16)

<===- ONLINE

SONLF

PINDSC: ,PESEND:)

<=-=== OFFLINE

-0

MREAD:

MSRM]
:

HOW USED
PHIS:

DEVICE IS OFFLINE==
QUEUE AN INTERVENTION REQUEST
TO IBM CHANNEL (SSENSE)
= WHEN CHANNEL TIMES OUT WHEN DX DIDN‘'T RESPOND -

IT WILL PROBABLY SEND A SENSE CMD

READING THE SSENSE

SET UP IN

USED IN

ENABLE:

PCHIS

= 0

KILL: = 1

SRDRQ

(17)

THEREBY

PAGE 35

SEQ 35

K
07-JUN-82 16:21

SRDRQ

MACY11

30A(1052)

PROGRAM DESCRIPTION

<==== READ REQUEST
C==== CLEARED

<==== READ REQUEST ACCEPTED(360)=

07-JUN-82

16:28

nNO
—

CZoxIC.P1

NEW DX11-B RESPONDER

MAINDEC-11-C20X]1~-C

HOW USED

MEX: & SEX: USED TO FORCE AN ATTENTION (11) RESPDNCE
TO IBM CHANNEL
MSRMI: @SSRMI: USED TO DETERMINE IF AN UNSOL :CITATED
I8M READ HAD TRANSPIRED=-- IF YES, LJUEUE AN

ENDING SEQUENCE

SET UP N

USED IN

CLEARED IN

INPUT: = 1
PESEND: = 1

SEX: & MEX:
SSRM] :

RUN:
PSYSRT:
SSRM]:

SMINS

<==== ADDRESS OF

(20)

THE DATA POINTER

(MANUAL

INPUT READ)

HGW USED

DISCTL: USED TO CALCULATE THE RELATIVE CURSOR POSITION (SCURS)
MSRMI: & SSRMI: USED FOR STARTING DATA ADDRESS FOR DXBA
SET UP IN

USED IN

CLEARED IN

INPUT:

DISCTL:

RUN:

SSRM]: L MSRM]:

PSYSRT:

PAGE 36

SEQ 36

L
MAINDEC-11-C20Xx]1-C

CZoXIC.P11
1950
1951

1952

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

<TITLE
.ENABL

MAINDEC-11-C2DXI~C
AB>

PROGRAM DESCRIPTION

ENABL

AMA

07-JUN-82

16:28

PAGE 37

NEW DX11-B RESPONDER

SEQ 37

n3
MAINDEC-11-C2DX]~=C

c2ox1c.PN

NEW DX11=-B RESPONDER

07-JUN=-82 16:21

1957
1958
1959

000000
000001
000002

1961

000004

1960

1962
1963
1964
1965

1966
1967
1968
1969
1970
1971
1972
1973

000003

000005
000006
000006
000007

177776
172340
172356
172300
177572

1976
1977
1978

000015
000012
000040

1979
1980
1981
1982

000003
000021
000022
000023

1984

000177

1983

:
:
RO
R1
R2
R3
R4
RS

R6
SP
PC

PSW
KISARQ
KISAR?
KISDRO
MMSRO

}3;?

000025

30A(1052)

.SBTTL

PROGRAM EQUATES AND DEVICE ASSIGNMENTS

O07-JUN-82

16:28

PROGRAM EQUATES AND DEVICE ASSIGNMENTS

}ggz
1955
1956

MACY11

SEQ 38

PAGE 38

SYSTEM EQUATES
=
=
s

=
=

=
=
=
=
=
=
=
=
=

X0
4!
X2

13
T4

X5
X6
X6
¥4
177776
172340
172356
172300
177572

TELETYPE CHARACTER EQUATES

CR
LF
SPACE
crL.c
(TL.Q
CTL.R
(rL.s
CTL.U
RUBOUT

=
=
=

15
12
40

JCARRIAGE RETURN
JLINE FEED
sSPACE CHARACTER

=
=
=
=

3
21
22
23

;CONTROL €
JCONTROL @

177

JCONTROL R
:CONTROL S
JCONTROL U
;RUBOUT

VRG-02-FEB~-82

0000

000

AAAAAAL A

AR A

16:28

SEQ 39

PAGE 39

A a2
2SI Y]

DEVICE BUFFER LAYOUT

(1 PER DEVILE)

"
*

Loc

Loc
Loc

R I

0-61 = DEVICE STATUS TABLE

62-543 = DEVICE INPUT BUFFER
554-1023 = DEVICE OUTPUT/DISPLAY BUFFER

*
*

CANRRANRRAARN R AN NNAANAN TN RNN N NANRNR NN ONNRANANARAANNNNANN
NN NNANERNANOORY

000000
000001
000002
000003
000004
000006
000010
000012
000014
000016
000017
000020

N = d wd b« QN SN NN
= O
ONOSMNO

LAYOUT OF DEVICE STATUS TABLE
SCMD
SLCMD
SSENSE
SSTAT
SCURS
SINBF
soute
SB FA
SRBYT(
SONLF
SRDRQ
SMINS

s CURRENT DEVICE COMMAND
sLAST COMMAND, [F WRITE
;DEVICE SENSE BYTE (NOTE == MUST BE EVEN BYTE LOCATION)
sDEVICE STATUS
¢ CURSOR POSITION
sADDRESS OF DEVICE INPUT BUFFER
sADDRESS OF DEVICE OUTPUT BUFFER
s CURRENT BUFFER PTR
sREMAINING BYTE COUNT
;DEVICE ONLINE = INDICATOR O=ON-LINE 1=OFF=-LINE
sREAD MANUAL INPUT REQUEST == |F NON-Z2ERO
sSTART OF MANUAL INPUT DATA

LOCATIONS 22-77 ARE AVAILABLE FOR EXPANSION PURPOSES

000000
00003
000004
000005
00r003
000010
000003
000025
000100
000112
000152
000050
000014
000740
001000

OTHER

DX EQUATES

=
=
=
=

RO
R3
o/
RS

=z
=

3
25
100

152

=z
=z
z
=

sCURRENT DEVICE NUMBER
sADDRESS OF CUR DEV STATUS TABLE
sTUMBLE TABLE ENTRY 1
sTUMBLE TABLE ENTRY 2

sCHAN END & CEV END

sCODE TO QUE CONTROL UNIT END

sNOP COMMAND
sNEW LINE CHARACTER
cEBCDIC SPACE CODE

112

sSTART OF MESSAGE INDICATOR

40.
12.

sNUMBER OF (HARACTERS PER LINE OF 2260 DISPLAY
sNUMBER OF LINES PER 2260 DISPLAY

NOL IN*L INS2

512.

cEND OF MESSAGE
sNUMBER OF

INDICATOR

CHARACTERS ON THE DI1>PLAY

sNUMBER OF ENTRIES IN TUMBLE TABLE

000001
000002
000005
000006
000012

CMWRT
CMRM]
CMWTLA
CMREAD
CMSRM]

ON VAR
=

360 COMMAND EQUATES

19797
1998
1999

neuwaunun

1996

07-JUN-82

PROGRAM EQUATES AND DEVICE ASSIGNMENTS

8.0

1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995

07-JuN-82 16:21

MACY11 30A(1052)

czoxI1c.P1

NEW DX11-B RESPONDER

MAINDEC-11-CZDX]~C

JWRITE DATA

SREAD MANUAL

(FROM 360 TO PDP-11)
INPUT

(PDP-11

TO 360)

;WRITE LINE ADDRESS (360 TO POP=-11)

¢sREAD FULL BUFFER

(PDP=-11

TO 360)

sSHORT READ MANUAL INPUT (PDP-11 TO 360)

MAINDEC-11~C2DX]=-C
NEW DX11-B RESPONDER
MACY11 30A(1052)
07-JUN-82
16:28
C20x1C.P1
07-JUN-82 16:21
PROGRAM EQUATES AND DEVICE ASSIGNMENTS

DX REGISTER ASSIGNMENTS & LAYOUTS
DXDS OR TUMBLE TABLE ENTRY 1

100000
040000
J20000

010000
004000

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

PARER
NXM

SELRST
SYSRST
INFDSC
UCHKS
CHENDS
BYSS
CHIS
ESEND
CHEND
CUEND
I1SSREJ
CMDCHN
STKSTB
CMDREJ

=
=
=
z
=
=

=
=

=
=
=
=
=

=
=

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10

(TT1)

¢PARITY ERROR DETECTED
sNON EXISTENT MEMORY CONDITION
2IBM SELECTIVE RE-SET
218M SYSTEM RESET
+ IBM_PROGRAMMED INTERFACE DISCONNECT
JUNIT CHECK WAS PRESENTED TO THE CHANNEL

sCHANNEL END WAS PRESENTED TO THE CHANNEL
sBUSY WAS PRESENTED TO THE CHANNEL

sCHANNEL INZT SELECTION SEQ WAS COMPLETED

sCHANNEL ACCEPTED LAST STATUS
¢ CHANNEL DATA TRANSFER END
;DX DATA TRANSFER END
sINIT SELECTION SEQ WAS REJECTED
sCHANNEL SPECIFIED COMMAND CHAING

s CHANNEL COMMAND WAS REJECTED

s CHANNEL COULD NOT ACCEPT LAST STATUS

DXCA OR TUMBLE TABLE ENTRY 2 (TT2)

BITS 15-8 = COMMAND (IF ANY)
BITS 7-0 = DEVICE ADDRESS
DXCS CONTROL UNIT STATUS REGISTER

004000
001000
000400
000200
000100

BSYEN
DXONLN
CuUBUSY
DONE
DXENB

=
=
=
=
=

4000
1000
400
200
100

sBUSY RENABLE = FOR SELECTOR CHANNELS
sON=-LINE INDICATION
sCONTROL UNIT BUSY
sDONE FLAG
s INTERRUPT ENABLE

000001
000003
000005
000007

DXRST
DXWR
DXRD
DXST

NN
-

3 ARE SET IF EXTENDED ADDRESS IS USED > 32k
0 ARE THE FUNCTION TO BE PERFORMED

nanun

2041
2042
2043
2044
2045
2046
2047
2048

PAGE 40

¢DX RESET COMMAND

;WRITE DATA TO THE 360

cREAD DATA FROM THE 360
sSEND STATUS TO THE 360

DXOS OFFSET AND STATUS REGISTER

BITS 15-10 OFFSET OF SPW TABLE
STATUS REGISTER DEF

000200
000100

ATTN

STAMOD

200
100

(SSTAT) - STATUS BYTE

sATTENTION
sSTATUS MODIFIER

SEQ 40

———

C
MAINDEC-11-CZDX]~C

cZoxIc.P1

2097

2098
2099

2100
2101
2102
2103
2104

NEW DX11-B RESPONDER

07-JUN-82 16:21

000040
000020
000010
000004
000002
000001

%}82

2107
2108
2109
2110

000200
000100
000040
000020

MACY11

30A(1052)

07=-JUN-82

16:28

sCONTROL UNIT END

=
=
=

4
2
1

JDEVICE END
JUNIT CHECK
JUNIT EXCEPTION

PROGRAM EQUATES AND DEVICE ASSIGNMENTS

CUE
8sYy
CE

DE
UCHK
UEXP
:
:

=
z

20
10

;BUSY
;CHANNEL END

2848 SENSE BYTE (SSENSE) DEFINITION

SCMDRJ
INTREQ
BUSOUT
EQPCHK

=
=
=
=

200
100
40
20

PAGE 41

;COMMAND REJECT
sDEVICE OFF=-LINE - INTERVENTION REQ
;BUS OUT == PARITY ERROR DURING CHIS
JEQUIPMENT (HECK = PARITY ERROR DUR DATA TRANS

SEQ 41

D
MAINDEC=11-C2DXI-C

CZOXIC.P11

NEW DX11-B RESPONDER

07=JUN-82 16:21

MACY11

TRAP CATCHER

%}}5

.SBTTL

%}}2
2115
2116
2117
2118
%}53

2121
2122
2123
2124
5}32

:
000000
000002

000200

07-JUN-82

16:28

PAGE 42

TRAP CATCHER

THE TRAP CATCHER IS LOADED INTO LOW CORE

000000
000000
000000
000176

.=0
HALT
HALT
.REPT

000200
000137

LWORD
HALT
.ENDR
.=200
JMP

001000

30A(1052)

;FOR MEMORY MANAGEMENT
176

:TRAP CATCHER

.42

START

;ESTABLISH LOC 200 STARTING ADDRESS

SEQ 42

E
MAINDEC-11-CZDXI-C

CIDXIC.P11

NEW DX11-B RESPONDER

07~JUN-82 16:21

)
)
)
d
D
D e
)
il
]
)
d cnd el

5858 8 B NN N NN N NN N
SWNN—=O
VOO NS WO

—

:
001000

001002

001000

)

000402

005037

013144

30A(1052)

.SBTTL

PROGRAM START-UP SEQUENCES

S}gg

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

MACY11

g}:g

.=1000

SYSINT

RESTART ADDRESS == REENTER ALL PARAMETERS == 1002

R START:

(LR

FTIMFL

SET-UP

001006

001012

032706

000005

(CONSOLE)

VECTORS + STATUS REGISTERS

RESET

#SSTACK,SP

;SET UP THE STACK POINTER

*RESET ALL DEVICES

000060

2157
2158
g}gg

001024
001030
001034

012720
012720
012710

000340
011244
000340

001020

012720

010756

5}2}

SET UP CONSOLE VECTORS

‘

MOV

#60,RO

:START OF CONSOLE VECTORS

MOV
MOV
MOV

#340, (RO) +
#PISR, (RO) +
#340, (RO)

*NEW PROC STATUS
‘BEG OF TELE PRINT ISR
*NEW PROC STATUS

;

2163

001040

012737

011704

g}gg

001062

012737

000340

001046
001054

012737
012737

000340
011712

2170

001070

012700

2172
2173
5;;§

001100
001102
001104

105020
005301
001375

0010764

012701

MT0.4

000252

MOV

#340,2582

012650
000272

012737
012737
012737

012652

012756
012756

‘BEG OF TELE INPUT ISR

SET UP MISC TRAPS
MOV
MOV

#340°6
#MMERR , 250

;MEMORY TIME OUT TRAP
:MEMORY MANAGEMENT ERROR

;

CLEAR ALL VARIABLES

’

MOV

#VSTRT.RO

:START OF VARAIBLES

108:

CLRB
DEC
BNE

(RO)+
R1
108

:CLEAR A BYTE
*DONE?
*NO, CONTINUE CLEARING

:
001114
001122

#TKIN, (RO) +

MOV

000006
000250

5};9
001106

MOV

000004

g}gg

2182

TRAP/VECTOR AREA

SYSTEM GENERATED TRAPS

§ YSINT: MOV

012650

012700

2179
g}gg

STACK POINTER

CLEAR ALL LIVE SYSTEM VARIABLES
SET UP TELETYPE INPUT / OUTPUT BUFFERS

001014

2178

JRESET FIRST TIME FLAG TO FORCE PARAMETER REENTRY

TELETYPE

2155

2171

;NORMAL START UP

SYSTEM GENERALIZED INITIALIZATION PROCEDURE

5}22

2164
2165

PAGE 43

START:

2150
2151

2156

16:28

NORMAL SYSTEM START LOCATION ==1000

g}zg

2147

07-JUN-B2

012754

MOV

SET UP TELE BUFFER POINTERS
MOV

013060
013062

MOV
MOV

SVEND-VSTRT+2,R1°;# OF VARAIBLES TO CLEAR

#TBUF , TPIR

#PBFS.PFPTR
#PBF S PPPTR

ENABLE TV

;TELE INPUT POINTER
‘TELE OUT FETCH PIR
“TELE OUT PUT PIR

SEQ 43

F
MAINDEC-11-C20X]1~C

C20xIC.P1N

2183
2184
2185
2186
2187
2188
2189

001130
001136
001144
001150
001154
001156

NEW DX11-B RESPONDER

07-JUN-82 16:21
052777
052777
005037
005737
001402
000137

000100
000100
177776
013144
002040

01
O1

MACY11 30A(1052)

PROGRAM START=UP SEQUENCES

BIS
BIS

CLR
TST

BEQ
JMP

#100,3TKS
#100,aTPS

07-JUN-82

16:28

SEQ 44

PAGE 44

PSW

sENABLE TELETYPE INPUT
¢ENABLE TTY OUTPUT INTERRUPTS
sCLEAR THE PROCESSOR STATUS WORD

GETPRM
INIT

;YES, FORCE USER TO ENTER ALL PARAMETERS
sNO, RESTART TEST USING SAME PARAMETERS

FTIMFL

+FIRST

TIME

THROUGH?

(MUST PARAMETERS BE REENTERED?)

G
MAINDEC-11-C20X]-C

C2OXIC.PN

NEW DX11-8 RESPONDER

07-JUN-82 16:21

MACY11

TOTAL SYSTEM RESTART

%}g?

.SBTTL

2192

;

S}gz

2195
2196
2197
2198

001162
001166
001172
001174

%58?

001204

2199

001200

004737
004137
013146
004737

004137

013207

011342
011504
011342

.WORD

;
:
:

5582

2207
2208
2209
2210
2211
2212
2213

001206
001212
001220
001224
001226
001230
001234

005037
012737
004137
013270
001272
120427
001364

2215
2216
2217
2218
2219
2220
2221
2222

001242
001244
001250
001252
001256
001260
001266
001272

002761
020327
003356
032703
001353
012737
010337
005077

2214

gsgz

001236

020327

013144
176200
002644

012530

000015

176200

001206
012530
011232

000004
5%:

TOTAL SYSTEM RESTART (REQUEST NEW RUN TIME PARAMETERS)

PC,CRLF
R1,MESG
STMSG
PC,CRLF

R1,.MESG
CTRMSG

JRESTORE THE CARRIAGE
:PRINT START-UP MESG
;;RESTORE THE CARRIAGE

;sPRINT REV UPDATE NOTE

:
:
:

5553

2230
2231
2232
2233
2234
2235
2236

001276
001304
001312
001316
001320
001322
001326

012737
012737
004137
013324
001356
120427
001363

2238
2239
2240
2241
2242
5522

001334
001336
001342
001344
001350
001352

002760
020327
003355
032703
001352
010337

001330

020327

011754
000300
002644
000015

000300
000770
000001
012532

000004
012532

10$:

VRG-02-FEB-82

BLT
CMP
BGT
8IT
BNE
MOV
MOV
CLR

176200

FTIMFL
#176200 ,UNADDR
R1,INOCT
UNMSG
5%
R4 ACR
NEWPRM

;RESET FIRST TIME PARAMETERS (FORCE ALL PARMS TO BE ENTE
;SET UP DEFAULT ADDRESS
JGET UNIBUS ADDRESS

NEWPRM
R3,#177000
NEWPRM
#37.R3
NEWPRM
#NEWPRM 4
R3,UNADDR
SUNADDR

;NO, GET AGAIN
;UNIBUS ADDRESS GT 177000?
:YES, ERROR == REENTER
MAKE SURE 40 OCTAL WORD BOUNDRY
sILLEGAL, REENTER
;SET UP TRAP OUT TO VALIDATE ADDRESS
;SAVE UNIBUS ADDRESS
;VALIDATE THE UNIBUS ADDRESS

R3,.#176200

;ADDRESS OF DEFAULT ROUTINE
;WAS LINE DELIMITED PROPERLY?
:NO, TELL MIM TO REEENTER

SVALID UNIBUS ADDRESS? BETWEEN 176200 AND 177000

;TRAP WILL OCCUR IF

2225
2226
2227

2237

(REQUEST NEW RUN TIME PARAMETERS)

DEFAULT UNIBUS ADDRESS

CMP

000037

SEQ 45

PAGE 4S5

GET DX11 UNIBUSS ADDRESS (OCTAL ADDRESS INPUT)
VALID UNIBUS ADDRESSESS (176200 - 177000)

NEWPRM: (LR
MOV
JSR
.WORD
.WORD
CMPB
BNE

177000

16:28

PRINT START=UP HERALD MESSAGE

JSR

2202
2203
2204

07=-JUN-82

HERE WE START GATHERING THE TEST INFORMAT[ON

GETPRM: JSR
JSR
.WORD
JSR

011504

30A(1052)

INVALID UNIBUS ADDRESS

GET THE DX11 INTERRUPT VECTOR ADDRESS (OCTAL ADDRESS INPUT)
VALID VECTOR ADDRESSES (300 - 770)

DEFAULT VECTOR ADDRESS

MOV
MOV
JSR
.WORD
.WORD
CMPB
BNE

cMP

BLT
cMp
BGT
BIT
BNE
MOV

300

#UNTRP,4
#300,VECTAD
R1,INOCT
VECTMS
20%
R4, #CR
108

;ADDRESS OF THE DEFAULT ENTRY
;WAS LINE DELIMITED PROPERLY?
:NO, REENTER

108
R3,4770
108
#1,R3
108
R3.VECTAD

;700 LOW GIVE AN ERROR AND REENTER
LT 7702
:YES, REENTER
;WORD ADDRESS?
JNO, REENTER
JSAVE IT

R3,4#300

;RESTORE MEMORY TIME-OUT TRAP
2SET UP DEFAULT VECTOR ADDRESS
;JGET VECTOR ADDRESS

JCHECK VECTOR ADDRESS BETWEEN 300 AND 770

H
MAINDEC-11~CZDXI~C

C20x1C.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

2246
2247
2250
2251

Sgg%

012737
012737

2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271

001372
001376
001400
001402
001406
001412
001414
001416
001422
001424
001430
001432
001436
001442
001450
001452

004137
013372
001472
010337
010337
005703
100760
020327
003355
120427
001015
004737
010337
023737
003342
163703

2273

001462

003335

gg;g

001470

2272

2274

001456

001464

020327

120427

001332

000020
000020

002636

012534
012536

(REQUEST NEW RUN TIME PARAMETERS)

NOTE:

208:

MOV
MOV

DEFAULT DEVICE CHANNE. ADDRESS 10,10

EITHER ONE OR TWO AFDRESSES MAY BE SPECIFIED. IF ONLY ONE
ADDRESS IS SPECIFICD IT IS USED AS THE STARTING AND

ENDING DEVICE ARURESS.

#20,SDEV
#20,EDE",

JSR
RT, INHF X
.WORD
DEVMES
.WORD
NEWPI(
MOV
R3,SDLV
MOV
R3.EDEV
ST
R3
BM]
208
CMP
R3, 4377
8GT
208
C(MPB R& #°,
BNE
308
JSR
PC,CHTB
MOV
R3.EDEV
CMP
SDEV, EDEV
BGT
208
SUB
SDEV,R3

000054

012536

012534

000007

000015

PAGE 46

;
:

000377

012534

16:28

GET STARTING AND ENDING DEVICE CHANNEL ADDRESSES (HEX INPUT)
VALID DEVICE CHANNEL AJDRESSES (00 - FF)

012534
012536

011616
012536

07-JUN-82

;
:

001356
001364

30A(1052)

TOTAL SYSTEM RESTART

;

%523

22564
2255

MACY11

308 :

CMP

R3,
47

CMPB

Ré,#CR

8GT
BNE

;DEFAULT TO HEX ADDRESS 10
:

*GET DEVICE ADDRESSES IN HEX
;ADDRESS OF THE DEFAULT ROUTINE
sSAVE START DEV ADDR

:BE SURE POSITIVE
;AND NOT GREATER THAN 377 -- HEX FF
*ILLEGAL ENTRY
:MORE THAN ONE DEV? (COMMA, PARAMETER DEL IMETER)
:GET ENDING DEVICE
*SAVE ENDING ADDRESS
*IS START LT END?
:YES, ERROR

:MORE THAN 8 DEVICES?

208

:YES, ERROR

208

*NO, REENTER

;WAS DEVICE ADDRESSES DELIMITED PROPERLY?

2277
2278
2279

;
;
;

ggg;

;

DEFAULT IS *S*, SELECTOR CHANNEL

NEWP10: CLRB
JSR
.WORD
.WORD
CMPB

CHTYPE
R1,INOCT
CHTYMS
508
R4 A'M

2280

;

2283
2284
2285
2286
2287

001472
001476
001502
001504
001506

105037
004137
013436
001522
120427

012540
002644

2289
2290

001514
001520

120427
001364

000123

2288

2291

553%

001512

001522
001526

001414

105237

000406

000115

012540

229%
2295
2296

gggg

2299

2300
2301

00°532
001536

022626

005037
004137

177776
011504

S = SELECTOR CHANNEL

BEQ

508 :

;DEFAULT TO SELECTOR CHANNEL
:M? == MULIPLEXER CHANNEL --

60$

SYES, MULTIPLEXER CHANNEL

CHTYPE

SSELECTOR CHANNEL

‘MPB
BNE

R4, A'S
NEWP10

608

INCB

;0=M,1=§
SGET CHANNEL TYPE

:S? == SELECTOR CHANNEL -*NOT S OR M -- ERROR
;GET MEMORY MANAGEMENT FACILITIES

:
;

MEMORY MANAGEMENT TIME-OUT TRAP HANDLER

§ss:

CMP

001530

GET TYPE OF 360/370 CHANNEL
M = MULTIPLEXER CHANNEL

USED ONLY FOR PARAMETER ENTRY PROCESS

CLR
JSR

(SP)+, (SP)+

PSW
R1,MESG

;:DUMP PC AND PSW SAVED BY INTERRUPT

:TURN DOWN PROCESSOR STATUS
sPRINT *NO MEM MANAGEMENT AVAIL'’

SEQ 46

I
MAINDEC-11-C20X1-C

C20x1C.PN

07-JUN-82 16:21

TOTAL

0146174

MACY11 30A(1052)

SYSTEM RESTART

.WORD

07-JUN-B2

16:28

SEQ 47

PAGE 47

(REQUEST NEW RUN TIME PARAMETERS)

PNOMM

sASK TO HAVE QUESTION REENTERED

012541
002644

[«

105037
004137
013470
001612
120427
001412
120427
001364
105237
012737
005037

000116

Y = YES, MEMORY MANAGEMENT TO BE USED
N = NO, DO NOT USE MEMORY MANAGEMENT

DEFAULT IS

CLR8
JSR
-WORD
.WORD
CMPB

BEQ

000131

(MPB
BNE
INCB

012541
001530

MOV

177572

CLR

MMRESP
R1,INOCT
MMMES

708
R4, AN

'N°', DO NOT USE MEMORY MANAGEMENT
JDEFAULT TO NO MEMORY MANAGEMENT
JGET MEM MANAGEMENT

708
R4, #'Y
60$

sDEFAULT ROUTINE ADDRESS
:N? ==D0 NOT USE MEMORY MANAGEMENT
sIF EQ, NO MEMORY MANAGEMENT
;Y2 «<~MEMORY MANAGEMENT TO BE USED
:ERROR

#55%.4
MMSRO

JSET UP TRAP TO TEST MEMORY MANAGEMENT
JCHECK FOR MEMORY MANAGEMENT

MMRESP

;MEMORY MANAGEMENT SPEC

GET BUFFER RELOCATION IN OCTAL ,000°S
VALID RELOCATION ADDRESSES (20 - 700)

(20000 THROUGH 734000)
DEFAULT RELOCATION ADDRESS 20 =---(20000)

TN N

001544
001550
001554
001556
001560
001564
001566
001572
001574
001600
001606

DETERMINE IF MEMORY MANAGEMENT IS TO BE USED

-t

PON) =D

O VOO ~NO WV

b e e coad =

NN
NN NN N NN W N W

K TN PR P PR

00154¢

NEW DX11-B RESPONDER

001612
001616
001620
001622
001626
001630

004137
013530
001716
120427
001371
032703
001366
020327
002763

002644

JSR

000001

000020

012547

001700

004137

011504

TSTB

BIC

CMP

BLE

J SR

017143
000741

001710
001714
001716

020327
002336
010337

.WORD

012542

MMRESP

718
R3, R4

#600, R4

R4, #154

NEWP20

R1.MESG

EXTENDED ADDRESS BITS.

+BOUNDARIES.

000134

708
R3, 4734
708

IN ,000°'S

;ILLG BUFFER CONST =-- LT 20000

TIS NUMBER NEGATIVE?

*YES, REENTER ADDRESS
;1S ADDRESS TOO LARGE?
SYES, REENETER ADDRESS

:WAS ‘MEMORY MANAGEMENT SPECIFIED?

INO, CHECK FOR 28K
sPUT VALUE IN WORK REG

s IGNORE ADDRESS EXTENSION BITS

;1S IT T00 CLOSE TO 200000 BOUNDARY?

*BRANCH IF OK
*PRINT ERROR.

CANNOT SET BUFFER SO

sCLOSE T0O A 200000 BOUNDARY THAT A CARRY WOULD BE NEEDED TO CHANGE

;THE

001704
001706

;ADDRESS OF DEFAULT ROUTINE
*WAS LINE DELIMITED PROPERLY?
*NO, REENTER
:MUST BE A MULTIPLE OF 2000

BEQ
MOV

000600
000154

NEWP20
R4, #CR
70§
#1,R3
70$
R3,#20
$

8M]
CMP
BGE

000734

:GET BUFFER RELOC.

BFREMS

-WORD
(MPB
BNE
BIT
BNE
CMP
BLT

000015

R1,INOCT

.WORD

CMP
BGE
NEWP20: MOV

THE DX CANNOT WORK ACROSS 200000

TOOC

;ADDRESS OF

R3,#134
708
R3,BUFREL

sNO, IS IT TOO CLOSE TO 170 PAGE?
*YES. REENTER THE ADDRESS
sSAVE REL CONST

708

TOO CLOSE MESSAGE

“ASK FOR INPUT AGAIN

J
MAINDEC-11-C2DX]1~C

cZoxIc.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11 30A(1052)

TOTAL SYSTEM RESTART

GET TYPE

07-JUN-82

16:28

PAGE 48

(REQUEST NEW RUN TIME PARAMETERS)

OF TEST TO BE RUN
D = 2848 RESPONDER DIAGNOSTIC
F

= FRIEND

DEFAULT = 'F', FRIEND

105037
004137
013626
001764
112737
1204627

000100
000104

120427

000106

001433
001361
105037
105237

90s:

012544
002644

012546
012544

012546

CLRB
JSR
LWORD
.WORD

¢RESET TEST TYPE
sGET TEST TYPE

¢DEFAULT TO FRIEND

MOVB

#EBCDSP,FILLCH

;FOR 2848 SET FILL CHAR TO EBCDIC SPACE

BEQ
CMPB
BNE

INIT
R4, A'F
90%

;YES, 2848 TEST
sF? == FRIEND TEST =-s ILLEGAL ENTRY

INCB

TSTTYP

CMPB

100%:

ISTTYP
R1,INOCT
TESTMS
100%

CLR8B

R4, A4'D

FILLCH

:D? =<2848 RESPONDER DIAGNOSTIC --

sFRIEND MODE == DEFAULT FILL CHAR TO NULL
sSET TEST TO FRIEND

001770
001774
002000
002002
002004
002010
002012
002016
002020

105037

004137
013666
002040

012545
002644

120427
001413
120427

000116

105237

012545

001364

000131

—b®
s Ve B2

By 0 By

001722
001726
001732
001734
001736
001744
001750
001752
001756
001760
001764

FRIEND TEST ONLY
DETERMINE IF SEPARATE INPUT / OUTPUT BUFFERS ARE TO BE USED
Y = YES, MAINTAIN SEPARATE INPUT / OUTPUT BUFFERS
N = NO,

USE

SAME BUFFER FOR

INPUT AND OUTPUT

DEFAULT IS °'N', NO, USE SAME BUFFER FOR INPUT / OUTPUT
CLRB

JSR

]0BUF

R1, INOCT

.WORD
.WORD
CMPB
BEQ

F]OMS
INIT
R4, #°N
INIT

BNE

1108

C(MPB
INCB

FRIEND

;0 = NO,

= YES

*SEPARATE 1/0 BUFFERS?

R4, A'Y

:DEFAULT TO NO
IN? == NO, SAME 1/0 BUFFER -SIF EQ, USE SAME 1/0 BUFFER FOR INPUT AND OUTPUT
$Y? <<YES, SEPARATE 1/0 BUFFERS~~

108BUF

:SET SEPARATE

:ERROR, REQUEST INPUT AGAIN

1/0 BUFFER INDICATOR

TEST MODE ONLY

GET BUFFER FILL CHARACTER (HEX INPUT REQUIRED)
ANY VALUE WILL BE ACCEPTED

004137
013730
002040
110337

002636

JSR
WORD

R1,INHEX
FILLMS

012546

“ovse

R3,FILLCH

WORD

INIT

sFILL CHARA(CTER

SEQ 48

K
MAINDEC-11-C2DXI~C

C20XIC.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

2406
2407
2408
2409

52}?

2412
2413
2414
2415
2616
2417
2418
52}8

gzgg

30A(1052)

.SBTTL

PROGRAM INITIALIZATION

002040
002046
002052
002056
002062
002064
002066
002070

012737
013701
012702
012703
010122
005721
005303
001374

011706
012530
012476
000015

000004

INITIALIZATION

INIT:

MoV
MOV
MOV
MOV
MOV
ST
DEC
BNE

108:

:
002072
002076

002102

013701
012721

012711

012532
005346

000340

16:28

AND DX REGISTERS

#MT0,4
UNADDR,R1
#DXDS,R2
#13..R3
R1,(R2)+
(R1)+
R3
108

;SET UP MEMORY TIME OUT TRAP
JSET UP DX UNIBUS ADDRESSES
;13 ADDRESSES (REGISTERS)
;SET UP UNIBUS ADDRESS
sINCR TO NEXT DX REGISTER
;DONE?
JNO, SET UP NEXT REGISTER

SET UP DX VECTOR ADDRESS

MOV

VECTAD,R1
#DXISR, (R1)+

#340, (R1)

:TRAP TO DX ISR

;SET UP PROC STATUS AT INTER.

COMPUTE ADDRESSES OF DX BUFFERS

20s$:

TST
BNE
MoV
MOV
MOV
TST8
BEQ

2438

MEMORY MANAGEMENT WAS SPECIFIED

2440
2441
2642

:
:
:

5253

2430
2631
2432
2433
24364
2435
gz%g

:
002106
002112
002114
002122
002130
002136
002142

005737
001003
012737
013737
013737
105737
0014636

012542
000020
012542
012542
012541

24639

Szzz

2445

2446
2647
2448
2449
2450
26451

2452
2453

2454
26455

002144

002150
002154
002156
002162
002166
002170

002172
002176

002176
002202

012704

012705
005024
012725
013703
006303
006303

006303
010324

012725
062703

002206

020427

2458

002214

012714

2459

CURRENTLY THIS INCLUDES DATA AREA, TUMBLE TABLE, AND SPW TABLE

002212
002220

001370
012715

172340

172300

077406
000200
172356

007600

077406

308:

:WAS BUFFER RELOC SPECIFIED?
JYES
:NO, MAKE BUFFERS START AT 20000
;SAVE PHYSICAL ADDRESS
:SAVE VIRTUAL ADDRESS
;WAS MEMORY MANAGEMENT SPECIFIED?
sNO, SET UP BUFFERS

0-17777 = PROGRAM
20000-157777 = BUFFERS (VIRTUAL ADDRESSES)
160000-177777 = UNIBUS ADDRESSES

ONLY I SPACE REGISTERS WILL BE USED

MOV

#X]1SARO,R4

:1-SPACE PAR

ASL
MOV

R3
R3,(P§)+

:SET UP PA FOR VA 20000-157777

R4 ,#K]SAR?

sALL BUFFER ADDRESSES SET uP?

MoV
CLR
MOV
MOV
ASL
ASL

077406
013112

BUFREL
208
#20,BUFREL
BUFREL ,PBUFA
BUFREL ,VBUFA
MMRE SP
40

SET UP KERNEL REGISTERS

2456

2457

012542
013112
013114

PAGE 49

SET UP ALL DX BUFFERS, MEMORY MANAGEMENT REGISTERS

MoV
MOV

2427

O7~JUN-82

:
.
:
:

gzg;
2423
2424

MACY11

PROGRAM INITIALIZATION

gzgg

#X]SDRO,RS
(R4)+
#77406, (RS)+
PBUFA,R3
R3
R3

MOV
ADD

#77406, (RS)+
#200,RS

BNE

308

CMP

MoV

#7600, (R4)

#77406, (RS)

:1-SPACE PDR
VA 0=17777 = PA 0-17777
;64 BLOCKS, UNLIMITED ACCESS
sPHYSICAL ADDR ¢ 2-6

264 BLOCKS, UNLIMITED ACCESS
S INCREMENT TO NEXT 4K BANK
:NO, SET UP NEXT REGISTER

;SET UP UN]BUS ADDRESS REGISTER

;64 BLOCKS, UNLIMITED ACCESS

SEQ 49

L
MAINDEC-11-C2DX]~-C

2460
2461
2462
2463
2464
2465
2666
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483

002224
C02232

002240
002244
002246
002250
002252

2484

012737
012737

000001
000020

177572
013114

MOV

013705
000305

105005

006305
010577
013701
000301

005000

2492
2493
2494
2495
2496
2497
2498
2499

002350

120037
002405
120037
003002
010521
000402
012721
005200
020027
001362

508.

012536

000400

708:

(256 DEVICES)

7-0 = 2 == UNIT CHECK

THIS TABLE

IS REFERENCED ON EACH 360 ACTION TO DETERMINE

IF DEVICE NUMBER IS VALID.
BY THE DX CONTROL UNIT

THIS AUTOMATICALLY DONE

MOV

PBUFA RS

;COMPUTE OFFSET PHYSICALLY

MOV

RS.,aDX0S

JOFFSET TO SPW TABLE

SWAB
CLRB

R1
R1

:*1000

RS
RS
RS

:*1000

VBUFA,R1

;COMPUTE VIRT ADDR OF

Moy

R1,STSPVW

suB8

RS ,PHYOFF

R1,PHYOFF

sCOMPUTE THE OFFSET FOR PHYSICAL ADDRESSES

sVERSES VIRTUAL ADDRESS = FOR MEM MANAGEMENT

03600.R5

BLT

60$

:NO

B8GT

:NO

MOV

#UCHK, (R1)+

MOV
CLR
CMPB

INC
CMP

RS,DSTOFF
DEV
DEV,SDEV
DEV,EDEV

ggi(fl1)0

;COMPUTE THE OFFSET TO TYE DST TABLE

JSAVE OFFSET TO DST TABLE
JSTART AT DEVICE O
;IS DEVICE NUMBER VALID

JVALID DEVICE DST OFFSET TO ENTRY

DEV
DEV.#256.

508

JINVALID DEV # UNIT

CHECK

010137
010137
012702
005021
005302
001375

013074
013072
001000

80%:

TO ENTRY

;TO NEXT DEVICE
JALL DEVICES DONE?

:NO, SET UP SPW FOR NEXT DEVICE

NEXT SET UP TUMBLE TABLE AND DUPLICATE TUMBLE

002352
002356
002362
002366
002370
002372

SPW TABLE

JSAVE START OF SPW TABLE

ADD

BNE

¢503

:TO 8K BANK OR 20000 AND UP

BITS 15-8 = 0

cMPB

60%:

:ENABLE MEMORY MANAGEMENT

~===FOR INVALID DEVICE NUMBERS

ggv

000002

#20,vBUFA

SEQ 50

PAGE 50

BITS ;5-8 = OFFSET TO DST TABLE (PHYSICAL ADDR)

Moy

012534

#1,MMSRO

16:28

====FOR VALID DEVICE NUMBERS

ASL

160537
062705
010537

07-JUN-82

START SETTING UP SPW TABLE
1 ENTRY PER DEVICE
ENTRY DESCRIPTION

MoV

006301
010137
010137

2488
2489
2490
2491

MOV

SWAB
CLRB
ASL

105001

2485
2486
2487

2500
2501
2502

07-JUN-82 16:21

MACY11 30A(1052)
OGRAM INITIALIZATION

SN0 0000200000000 00200e 8098, 9, 0,
L=
w

CZoxIC.PN

NEW DX11-8 RESPONDERPR

TABLE

MOV
MOV

R1,TTADDR
R1,TTPTR

sTUMBLE TABLE ADDRESS
cTUMBLE TABLE FETCH POINTER

BNE

80s

:DONE?
¢NO, CLEAR NEXT WORD

MOV
CLR
DEC

NTTSIZE R
(R1)+
R2

SET UP DST TABLE

sCLEAR T/T + DUPLICATE
cCLEAR NEXT WORD

T/T

(WORD POINTER)

THE DST TABLE

IS USED TO VERIFY COMMANDS FROM THE

THE DST

IS A BYTE

360, THIS IS DONE BY THE HARDWARE
TABLE

TABLE,

BYTE PER POSSIBLE

mn
MAINDEC-11-CZDXI-C

c20xI1C.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

PROGRAM INITIALIZATION

4
07-JUN-82

16:28

PAGE

SEQ 51

2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527

:
:
:
:
:
:
:
:
:
:
:
:

COMMAND 0-255. THE ENTRY IN THE DST TABLE IS
SENT TO THE 360.
THE FOLLOWING ARE A LIST OF VALID COMMANDS AND RESPONSES
COMMAND
RESPONSE
DESCRIPTION
0
0
TEST 1/0
1
0
WRITE BUFFER
2
0
READ MANUAL INPUT
3
CE'DE
NOP
4
0
SENSE COMMAND
5
0
WRITE LINE ADDRESS
6
0
READ FULL BUFFER
14
0
ERASE COMMAND

S§§?

ALL OTHER COMMANDS ARE RESPONDED WITH UNIT CHECK

gggg

2532
2533
2534
2535
2536
2537
2538
2539
ggz?

002374
002400
002404
002406
002410
002412
002416
002422
002424

012702
012703
112321
005302
001375
012702
112721
005302
001374

000013
002622

MOV
MOV
INIT10: MOvVB
DEC
BNE
MOV
1008 :
MOVB
DEC
BNE

000365
000002

ngg
2546
2545

2546
2547
2548
2549
Sggg

:
00226
002432

002436
002440
0024446
002452
002456

013703
163703

005203
110337
013737
005337
012737

012536
012534
013101
012534
013122
000001

#M3.R2
#VCMDTB,R3
(R3)+,(R1)+
R2
INIT10
#245. ,R2
#UCHK, (R1) ¢+
R?
1008

EDEV,R3
SDEV,R3

INC
MOV8
MOV
DEC
MOV

013110

2552

SHORT READ MANUAL

INPUT

JNUMBER OF VALID 360 COMMANDS
JVALID COMMAND TABLE
:TO DST TABLE
;DONE?
;NO, MOVE IN NEXT RESPONSE
;MOVE UNIT CHECK TO INVALID ENTRIES

COMPUTE MAX NUMBER OF DEVICES
MOV
SUB

013122

R3
R3,MAXDEV
SDEV,DEVCON
DEVCCON
#1,SELDEV

sSTART AT DEViCE NUMERO UNO

JSET UP DEVICE NUMBER -1
JINIT DEVICE NUMBER FOR MUX AND SEL EXECUTORS

[

2553

NOTE -~ THE DEVICE BUFFERS ARE USED BY THE SOFTWARE ONLY TO CONTAIN

2556

R R

gggg

2557

gggg

2560
2561
2562

002464
002470
002472

010137
005000
010103

2564
2565
2566
2567
2568
2569
2570
2571

002500
002502
002504
002506
002512
002520
002524
002532

005021
005302
001375
010363
062763
010363
062763
012702

2563

002474

012702

013076

1208:

000420
000006
000076
000010
001040
000740

122%:

000006
000010

POINTERS AND INPUT AND OUTPUT DATA FOR EACH DEVICE:;

R R R

START SETTING UP DEVICE BUFFERS

MOV
CLR
MOV

P1,SDEVTB
DEV

CLR
DEC
BNE
MOV
ADD
MOV
ADD
Mov

(R1)+
R2
;DONE?
122%
;NO, CLEAR NEXT WORD
DTAB,SINBF (DTAB)
#62.,SINBF (DTAB) :COMPUTE ADDRESS OF INPUT BUFFER
DTAB,SOUTB(DTAB)
#544.,SOUTB(DTAB) ;COMPUTE ADDRESS OF OUTPUT BUFFER
#DISPS2 ,R2

MOV

R1,DTAB

#272. .R2

SAVE START OF DEVICE BUFFERS
;DEV
# 0
:SAVE ADDR OF DEVICE STATUS TABLE

sCLEAR DEVICE STATUS TABLE + INPUT BUFFER

N
MAINDEC=11~C2DXI-C

CZOXIC.P11

NEW DX11-B RESPONDER

07-JUN=-82 16:21

2572
2573
2574
2575
2576

002536
002542
002544
002546
002550

2578
2579
2580
2581
2582

002556
002562
002564
002566
002570

013705
006205
006205
006205
006205

013112

002576
002602

010537
012737

013124
000001

2577

2583

2584
gggg

002554

002572

113721
005302
001374
005200
120037

001346

042705

012546

MACY11

30A(1052)

MOVB
DEC
BNE
INC
CMP8

FILLCH.(R1)+
R2
1258
DEV
DEV,MAXDEV

;FILL OUTPUT/DISPLAY BUFFER
*DONE?
‘NO
:HAVE ALL DEVICE BUFFERS BEEN SET UP?

MOV
ASR
ASR
ASR
ASR

PBUFA.RS
RS
RS
RS
RS

SSET UP EXTENDED ADDRESS BITS

PROGRAM INITIALIZATION

1258:

013101

BNE

177747

BIC

MOV
MOV

013144

&
07-JUN-82

16:28

PAGE 52

120§

;NO, SET UP NEXT DEVICE BUFFERS

#M177747 RS

;SAVE ONLY W.0. 2 BITS

RS ,XADDR
S FTIMFL

sSAVE EXTENDED ADDRESS BITS FOR DX CONTROL REG
SSET FIRST TIME THROUGH FLAG

2587

INITIALIZATION COMPLETE

2590
25T
Sggg

:
N
:

NOTE:

AT THIS POINT THE DX HAS NOT BEEN STARTED
AND THE OPERATOR MUST TYPE R (RUN COMMAND)
TO THE SHOW UNDER WAY

JSR
.WORD
imp

R1,MESG
RNMESG
EXEC

gggg

2594
2795
3239

gggg

2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611

00200
002614
202616

002622
002623
002624
002625
002626
002627
002630
002631
002632
002633
002634

004137
014316
000137

000
000
000
014
000
000
000
000
002
002
000
002636

011504
002732

VCMDTB:

TELL OPERATOR WE ARE ALREADY T0 GO

;TELL OPERATOR WE ARE READY TO GO
;GET THE SHOW ON THE ROAD

VALID COMMAND TABLE
.BYTE
"BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
-BYTE
.BYTE
.EVEN

0
0
0
CE!DE
0
0
0
0
UCHK
UCHK
0

:0 = TEST 1/0
‘1 = WRITE BUFFER
12 = READ MANUAL INPUT
23 = NOP
‘4 = SENSE COMMAND
*S = WRITE LINE ADDRESS
16 = READ FULL BUFFER
27 = ERASE COMMAND
210 = INVALID
$11 = INVALID
112 = SHORT READ MANUAL INPUT

SEQ 52

8
MAINDEC=-11-C20X]~C

C20x1C.P11

NE v DX11-B RESPONDER

07-JUN- 82 16:21

SEQ 53

MACY11 30A(1052)
O07-JUN-B2
16:28 PAGE 53
INITIALIZATION PARAMETER INPUT AND CONVERSION ROUTINES
.SBTTL

INITIALIZATION PARAMETER INPUT AND CONVERSION ROUTINES

INHEX == PRINT MESSAGE, WAIT FOR INPUT, GET IT AND CONVERT THE HEX TO BINARY

CALLING SEQUENCE
JSR
R1, INHEX

.WORD
ADDRESS OF MESSAGE TO BE PRINTED
.WORD
ADDRESS OF DEFAULT ROUTINE
........RETURN
R2 = NEXT CHAR POINTER
R3 = BINARY RESULT
R4 = (BJTS 0-7) FIRST NON-OCTAL CHARACTER
RS = NUMBER OF CHARCTERS CONVERTED

002636
002642

012705
000402

011616

MOV

B8R

#CHTB,RS

INRS

;MOVE ADDRESS OF

INOCT == PRINT MESSAGE, WAIT FOR INPUT,

CONVERSION ROUTINE TO RS

¢ GET IT AND CONVERT OCTALL TO BINARY

CALLING SEQUENCE
R1,INOCT
JSR

+WORD ADDRESS OF MESSAGE TO BE PRINTED
+WORD ADDRESS OF THE DEFAULT ROUTINE
...... RETURN
R2 = NEXT CHAR PTR
R3 = BINARY RESULT
RG = (BITS 0-7) FIRST NON-OCTAL CHARACTER
RS = NUMBER OF CHARS CONVERTED

002644
002650
002652

002712
002714
002720
002722
002724
002726
002730

012705
012102
004737

105037
105037
105737

001367
105737
001772
012702
004715
005705

001005
120427
001002
011101
000201
005721

000201

011552
011416
013065
013066
013066
013065

012652

000015

MOV
MOV
JSR
CLRB
CLRB
TSTB

#COT8,RS
(R1)+.R2
PC, PRME SG
TCMACT
TCMDAB
TCMDAB

;SET UP ADDRESS OF THE CONVERSION ROUTINE
:GET ADDRESS OF THE MESSAGE
;PRINT THE DESIRED ME3SAGE
;RESET ACTIVE FLAG
SRESET ABORT FLAG
*COMMAND ABORT?

TSTE

TCMACT

*WAS ENTRY COMPLETED?

MOV

#TBUF ,R2

*SET UP ADDRESS OF BEG OF

:L00K FOR DEFAULT RESP -~ C/R

BNE

8EQ

JSR

BNE
CMPB
BNE
zgg
ST
RTS

108

308

PC.aRS

408
R4 ACR
40$

;?1>,n1
(R1)+
R1

*YES, REASK QUESTION

INO, WAIT

*CONVERT INPUT TO BINARY

INPUT BUFFER

*NOT DEFAULT TAKE NORMAL RETURN
“ILLEGAL CHAR MUST BE A C/R
S1TS NOT A DEFAULT
i===TAKE

THE DEFAULT RETURN

:INCR FOR NORMAL RETURN

(

C
MAINDEC=11-C20XI~C

C20XIC.P11

NEW DX11-B RESPONDER

07-JUN~82 16:21

522?

MACY11

%22@

2666

2674

2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685

5239

:
:
:
:
;
:

002732

002736
002742
002746
002752
002756
002762
002766
002772
002774
003000
003004

003006

004737

012702
004737
012706
105037
105037
105037
105737
0016402
000137
105737
001001

011342

000052
011360
012650
013065
013066
013067
013104
003352
013065

003010

012702

012652

2692

003016

042703

177400

003014

112203

2693
2694
2695

003022
003026
003030

012704
020324
001411

2697
gggg

003034
003036

005714
001373

2696 003032

003056

2702

2703
g;gg

003040

003044
003050

108:
208:

012702

004737
000137

THE SYS EXEC EXECUTES THE SYSTEM TELETYPE COMMANDS
ENTRY TO THE TELETYPE COMMAND EXEC IS PERFORMED

BY EXECUTING A JUMP TO EXEC. THE CALLER
SHOULD NOT EXPECT ANY REGISTERS TO BE SAVED OR CONTROL
RTS
PCED TO HIS PROGFAM.
ENTRY TO THE TELETYPE COMMAND EXEC CAUSES THE STACK POINTER
TO BE RESET; THUS, MOST COMMAND HANDLERS WILL NOT
WITH LEAVING UN'POPPEL'* DATA ON THE STACK.

JSR

MOV
JSR
MOV
CLRB
CLRB
CLRB
TSTB
BEQ
JMP
TSTB
BNE

*NO, ‘WAIT AGAIN IF NOTHING TO DO

#TBUF ,R2

;SET UP PTR TO START OF TELE BUFFER

8IC

#177400R3

*SAVE L.0. BYTE

(R4)+,Ré4

SINCR TO NEXT COMMAND

408:

MOVB

MOV
CMP
BEQ

(R2)+.R3

#TCMDTB R4
R3, (R4)+
EXECMD
(R4)
408

SGET COMMAND IDENTIFIER

SSET UP PTR TO COMMAND TABLE
:DOES COMMAND MATCH TABLE ENTRY?
SYES, WE GOT A MATCH - START EXECUTION

‘END OF TABLE?
*NO, TEST NEXT ENTRY

COMMAND ERROR - NOTIFY OPERATOR WITH ? AND 'BELL"’

CERR:

MOV

JSR
JMP

#137607.R2
PC,PRINT2
EXEC

EXECUTE COMMAND

TELETYPE COMMAND TABLE

5;}9
2712 003056 000101

TCMDTB: .WORD

004062
000104
003444

;PRINT * == DENOTE COMMAND MODE
;RE-ESTABLISH PUSH STACK
*CLEAR TELE CMD ACT
*CLEAR TELE CMD ABORT
*RESET LINE COUNTER
:DID THE DX ABORT AN OPERATION ?
*NO, CONTINUE
SYES IT DID, PRINT THE DX REGISTERS
“1S THERE A COMMAND TO EXECUTE
SYES, EXECUTE IT

MoV

EXECMD: JMP

003060
003062
003064

108

;PRINT CR/LF

508:

9
$70
5;33 003054 000134
2713
2714
2715

PC,CRLF

#'x RO
PC.PRINT2
#SSTACK, SP
TCMACT
TCMDAB
LINECT
DXABFL
208
STOPDX
TCMACT
308

THERE IS A TELETYPE COMMAND TO BE EXECUTED

ST
BNE

137607

SYSTEM EXECUTIVE/BACKGROUND

CMP

011360
002732

PAGE

022404

5;8?

16:28

.SBTTL BACKGROUND TELETYPE COMMAND DISPATCHER (EXECUTIVE)

B8R

2690
2691

EXEC:

000767

52%3

07-JUN-82

BACKGROUND TELETYPE COMMAND DISPATCHER (EXECUTIVE)

%gg%

2667
2668
2669
2670
2671
gggg

30A(1052)

.WORD
WORD
.WORD

:PRINT 2 AND °BELL"
;RETURN TO EXEC

ARG+

;EXECUTE COMMAND

‘A

;A = ACCESS

ACCESS
'D
DUMP

:D = DUMP

SEQ 54

0D
MAINDEC=-11-C20X]1~C

CZoxIC.PN

003066
003070
003072
003074

NEW DX15~B RESPONDER

07-JUN-82
1
000105
004234
000106
003730
000110
004016
000111
004342
000113
004300
000122
003124
000123
003276

000000

MACY11 30A(1052)

§
07-JUN-82

16:28
PAGE 55
BACKGROUND TELETYPE COMMAND DISPATCHER (EXECUTIVE)

.WORD
-WORD
+WORD
.WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD

'E
ENABLE

k= ENABLE DEVICE
F

FILL

HELP COMMAND

'l
INPUT

INPUT

KILL

RUN

sToP

FILL

HELP

SEND OF TABLE

SEQ 55

E
MAINDEC-11-C2DX]~C

CZoxIC.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

.SBTTL

BACKGROUND == RUN COMMAND

g;g}

S
07-JUN-B2

16:28

PAGE

%;%z

R = RUN COMMAND

2735
2736
2737
g;gg

:
:
:
:

THE RUN COMMAND READIES THE DX AND SPECIFIED DEVICE
BUFFERS TO BEGIN OPERATION. THE RUN COMMAND MUST
BE EXECUTED BEFORE ANY ACTION WILL BE PERFORMED
OVER THE DX.

RUN:

BIT
BNE
CLR
INC
MoV
JSR
JSR
CLRB
CLRB
CLR
INC
CMPB
BLE
CLR8
CLR8
CLR8
MoV
MOV
MoV
CLR
DEC
BNE
MoV

2740
27641
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767

003124
003132
003134
003140
003144
003150
003154
003160
003164
003170
003174
003176
0032)2
003204
003210
003214
003220
003224
003230
003234
003236
003240
003242

032777
001342
005077
005277
012700
004737
004737
105063
105063
005063
005200
120037
003762
105037
105037
105037
013701
010137
012702
005021
005302
001375
012737

003250
003256
003264
003272

053777
052777
052777
000137

001000

007350

007342

007336
000001
010270
010322
000002
000017
000020

10$:

013101
013102
013106
013104
013074
013072
001000

208:

000001

013110

013126
004000
001100
002732

007224
007216
007210

30$:

8IS
8IS
8IS
JMP

#DXONLN,@DXCS
CERR
abx(Cs
abx(Cs
#1,DEV
PC,CDEVST
PC,CSPWST
SSENSE (DTAB)
SRDRQ(DTAB)
SMINS(DTAB)
DEV
DEV,MAXDEV
108
DXACT
CMDCHF
DXABF L
TTADDR,R1
R1,TTPTR
#TTSIZTM R
(R1)+
R2
208
#1,MDEV

SEQ 56

;IS DX ENABLED?
;YES, ERROR
JINITIALIZE THE DX
sSET GO
sSTART CLEARING DEVICE TABLES
sCLEAR DEV STATUS TABLE
SRESET THE APPR SPW STATUS ENTRY FOR THE DEVICE
sCLEAR SENSE BYTE
sCLEAR THE READ REQUEST
sCLEAR THE START OF MANUAL INPUT
sINCR TO NEXT DEVICE
sARE WE DONE
:NO, DO NEXT DEVICE
sCLEAR DX ACTIVE FLAG
sCLEAR COMMAND CHAINING FLAG
sCLEAR DX ABORT FLAG
sGET THE TUMBLE TABLE ADDRESS
cRESET THE SOFTWARE T/T POINTER
sSET UP CLEAR CONSTANT (WORD COUNTER)
sCLEAR T/T AND DUP T/T
sARE WE DONE?
sNO, KEEP ON CLEARING
JINIT THE DEVICE NUMBER FOR MuX
: AND SEL EXECUTOR ROUTINES
XADDR,8DXCS
sSET UP THE EXTENDED ADDRESS BITS
#BSYEN,aDXCS
sSEL CHANNEL - SET BUSY ENABLE
#DXENB !DXONLN,aDXCS ;ENABLE THE DX
EXEC

F
MAINDEC-11-C2DX]1~C

CZoxIC.PN

07-JUN-82 16:21

MACY11 30A(1052)
07-JUN-82
BACKGROUND == STOP COMMAND
/%0 84 00 000003 0000000000999 %0090 T0%s0, 00

.SBTTL

THE FOLLOUING FORMATS ARE ALLOWED
S(C/R)
== STOP DX IMMEDIATELY

SI(C/R) == STOP DX AFTER NEXT INITIAL SELECTION SEQUEMZE
SD(C/R) == STOP DX AFTER NEXT DATA TRANSFER IS COMPLETED
SE(C/R) == STOP DX AFTER NEXT ENDING SEQUENCE IS RECEIVED
SP(C/R)
STOP ON NEXT PARITY EROR RECEIVED FROM CHANNEL

STOP WAITS UNTIL THE SPECIFIED CONDITION IS MET.
DX IS DISABLED AND THE DX STATUS REGISTERS ARE
DUMPED ON THE CONSOLE TELETYPE.

CMPB

CMPB
8EQ
CMPB
BEQ

R4 41
108
R4 #'P
108

000105

BEQ

8EQ

003040
013100

THEN,

THE

A RUN COMMAND (R) MUST BE EXECUTED BEFORE ANY MORE
ACTIONS WILL BE PERFORMED ON THE DX.

000104

000120
110437

AFTER THE NEXT DATA TRANSFER COMPLETION, OR AFTER THE
NEXT ENDING SEQUENCE

(R2) ,R4
R4 ,#CR
STOPDX
R4, #°D
108
R4, 4'E

000711

SEQ 57

PAGE 57

BACKGROUND == STOP COMMAND

MOV8
CMPB
BEQ
CMPB

000015

16:28

S = STOP DX COMMAND
STOP DISBLES THE DX IMMEDIATELY, AFTER THE NEXT CHIS

o
]

003276
003300
003304
003306
003312

JMP
Movs

108

CERR
R4 ,DXSTPF

sGET THE TYPE OF STOP INDICATED
s IMMEDIATELY?
sYES, DISABLE DX AND PRINT REGISTERS
sD = AFTER NEXT DATA TRANSFER?

s1 = AFTER THE CHIS SEQUENCE
sYES, SET STOP FLAG
sP = STOP ON PARITY ERROR??
sYES, SET STOP FLAG

SYES, SET STOP FLAG

:E = AFTER THE NEXT ENDING SEQUENCE

:YES, SET STOP FLAG

¢ ILLEGAL FORMAT -- GIVE ERROR
;SET THE STOP FLAG

WHEN THE STOP CONDITION IS SATISIFIED,
THE DX ISR WILL ABORT ALL DX ACTIVITY AND
SET A FLAG CAUSING ALL DX REGISTERS TO BE

DUMPED BY °‘STOPDX'‘, BELOW

THE STOP CONDITION WILL REMAIN IN EFFECT

UNTIL IT IS SATISIFIED OR ANOTHER REQUEST
SUPERCEDES IT.

003346

003352
003360
003364

000137

042777
004737
004137
014110
013702
004737
012703

002732

000100
011342
011504

013120
004772
000015

JMP
WNSe %s 800,

2768
2769
2770
27N
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789

NEW DX11-B RESPONDER

EXEC

cRETURN TO THE EXEC

STOP THE DX AND PRINT THE REGISTERS
NOTE THE PRINT OUTS WILL BE IN OCTAL

: 8IC

JSR
JSR
.WORD
Mov
JSR

MOV

#DXENB,a30X(CS
PC,CRLF
R1,MESG
STPMES
CDEV,R2
PC,HDMP

#15..R3

sDISABLE THE DX

sSTART AT NEW LINE
:PRINT °‘CURRENT DEVICE -- "'

sCONVERY AND PRINT THE CURRENT

¢DEVICE NUMBER IN HEX

*PRINT THE 13 DX REGISTERS IN OCTAL

6
MAINDEC-11-C20X]1~C

cZoxIic.P1

003406
003412
003414
003420
003422
003424
003430
003434
003440

NEW DX11-B RESPONDER

07-JUN-82 16:21
012701
013102
004737
005303
001373
105037
005077
005277
000137

012476
004702
013104
007046
007042
002732

MACY11

30A(1052)

MOV
Mov

#DXDS ,R1

BACKGROUND == STOP COMMAND
108:

JSR
DEC
BNE
CLRB
CLR
INC
JMP

5
07-JUN-82

16:28

PAGE 58

d(R1)+,R2

sSTARTING POINT
sGET THE REGISTER CONTENTS

sARE WE DONE

PC,0CTOMP

108
DXABFL
abDX(S
aDX(CS
EXEC

¢PRINT

IN OCTAL

cNO, DUMP NEXT WORD
cYES, RESET THE ABORT FLAG

¢RESET THE DX

sAND RETURN TO THE EXEC

SEQ 58

H
MAINDEC-11-C2DX]1~C

CZoxIC.P11

NEW
D 11-8 RESPONDER

07-JUN-82
1 6:21

MACY11 30A(1052)

BA(C KGROUND == DUMP COMMAND

004737
112204
012705
120427
001421
012705

120427

003520
003522
003526
003532
003534
003536
003540
003544
003546

001414
012705
120427
001407
012705
120427
001402
000137
010537
005700
001043
112204
120427
001014
004737

005062

003444
003450

Cee 9000002090900 00 8098000080000,

.SBTTL

004650
000101

07-JUN-82

16:28

SEQ 59

PAGE 59

BACKGROUND == DUMP (OMMAND

DUMP COMMAND
THE DUMP COMMAND DUMPS THE SPECIFIED DATA AREA ON THE

CONSOLE TELETYPE IN THE SPECIFIED FORMAT,

THE FOLngING COMMAND SYNTAXES ARE AVAILABLE:
DUMP DUPLICATE TUMBLE TABLE IN CODE X
DIN,X,YY
DUMP INPUT BUFFER FOR DEVICE YY IN CODE X

DOT, X, YY

DUMP OUTPUT BUFFER FOR DEVICE YY IN CODE X

DSSSSSS.EEEEEE.Xle?SDgE;UEEN THE OCTAL LIMITS GIVEN
WHERE: X = A-ASCII, E-EBCDIC, H=-HEX, 0-OCTAL
= THE DEVICE ADDRESS IN HEX
THE DUMPS ARE PERFORMED IN A COLUMN FASHION FOR
OCTAL AND HEX MODES (ONE WORD PER LINE) AND IN A LINE
FASHION FOR ASCII AND EBCDIC MODES (60 CHARACTERS PER LINE)
JSR
MOV8
MOV
CMPB

BEQ

PC,GLIMIT

(R2)+,R4

;GET BUFFER LIMITS

:GET DUMP MODE A/E/O/H

#ASCOMP,RS
RG,4°A

SSET UP FOR ASCII DUMP
SIS IT ASCII?

10§

SYES, START DUMP

004604
000105

MOV

#EBCDMP,RS
RG,#'E

SSET'UP FOR EBCDIC DUMP
SIS IT EBCDIC?

004766
000110

MOV
CMPB

SHEXDMP RS
R4, #'H
108
#0CTDMP RS
RG,#°0

SSET UP FOR HEX DUMP
SIS IT HEX?
*YES, CONTINUE DUMP
*SET'UP FOR OCTAL DUMP
SIS IT OCTAL?

(MPB
BEQ

8EQ

004702
000117

003040
013136

MOV

108:

CMPB
BEQ
JMP

MOV
TST

BNE

MOV8

000054

cMPB
BNE
JSR

005314

108

10§
CERR
RS,DMPADR
RO
DTUMTB
(R2)+,Ré
RG, A,
50$
PC,GDEV

SYES. CONTINUE DUMP

*YES., CONTINUE DUMP
SILLEGAL ENTRY == ERROR
*SAVE ADDRESS OF DUMP ROUTINE
SWAS THIS A TUMBLE TABLE DUMP?
*YES,

DUMP THE TUMBLE

TABLE

SWAS A DEV # SPECIFIED
“IS NEXT POSITION A COMMA
*NO, DUMP GIVEN LIMITS

*GET THE DEVICE NUMBER -- IN HEX

COMPUTE RELOCATION CONSTANT FOR DEVICE

003552
003554
003556
003560
003564
003566
003572
003576
003602
003606
003612

005004

005303
001403
062704
000773
060437
060437
017702
004777
105737
001375

30s:

002000

013132
013134
007330
007330
013103

CLR
DEC
BEQ
ADD

408:

B8R

508:

ADD
ADD
MOV

60$:

TST8

JSR

BNE

2§

gngcAIION CONSTANT

408
gggoo.na

SYES, ADD TO START + END ADDRESSES
*TO NEXT DEVICE TABLES

R, SADDR
R4 .EADDR

;ADD RELOCAT TO START ADDRESS
*ADD RELOCAT TO END ADDRESS

@SADDR, R?

PC,aDMPADR

*GET WORD

;CONVERT AND DUMP

—

I
MAINDEC~11-C20X]1-C

C20xIC.P1

003614
003622
003630
003632
003636
003640

NEW DX11-B RESPONDER

07-JUN-82 16:21

062737
023737
003003
105737
001757
000137

000002
013132

MACY11 30A(1052)

BACKGROUND == DUMP (OMMAND

013132
013134

ADD

013066
002732

70$:

CMP
BGY
1ST8
BEQ
JMP

O07-JUN-B2

#2,SADDR
SADDR ,EADDR
708
TCMDAB

50%

EXEC

16:28

PAGE 60

sINCR TO NEXT WORD
:DUMP DONE

JYES, EXIT

¢ COMMAND ABORT?

sNO, PRINT NEXT WORD

:YES, RETURN TO EXEC

DUMP THE DUPLICATE TUMBLE TABLE IN REVERSE SEQUENCE

003644
003650
003654
003660
003664
003666
003674
003676
003704
003712
003714
003716
003722
003724

012700
017702
004777
105737

001375
032737
001003
062737
162737
005300
001403
105737
001752
000137

DTUMTB: MOV

000400
007256
007256
013103
000777

013132

001000
000002

013132
013132

5$:

MOV

10$:

1ST8

20%:

013066

002732

JSR

BNE
BIT
BNE
ADD

sus
DEC
BEQ

1ST8

30$:

8EQ
JMP

#TTSI2E/2,RO
@SADDR,R2

sSET UP COUNTER TO DUMP ENTIRE TUMBLE TABLE
sGET STARTING ADDRESS

PC,aDMPADR
PCTR

:PRINT THE CONTENTS
sIS PRINT COMPLETE?

#TTSIZE,SADDR
#2,SADDR

;WRAP AROUND TO TOP OF TABLE
sDECREMENT TO NEXT ENTRY

108
sNO, WAIT TILL DONE
5515125-1.SADDR sCHECK FOR WRAP AROUND

308

TCMDAB

5%
EXEC

sHAS ENTIRE TUMBLE TABLE BEEN DUMPED?

cYES, EXIT TO THE EXEC
cARE WE

TO ABORT?

:NO, KEEP ON DUMPING
sYUP, BACK TO THE EXEC

SEQ 60

{___

J
MAINDEC-11-C2DX]~-C

CZox1C.PN

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11 30A(1052)
07-JUN-B2
BACKGROUND == FILL COMMAND
N Y

.SBTTL

004000
004004
004010
004012

011616

004737

005314

110337

005004
005303
001403
062704
000773
060437
060437
013701

113721
020137
101773

000137

005062

012546

THE FOLLOWING SYNTAXES ARE AVAILABLE FOR THE FILL COMMAND:
FIN,XX,YY
FILL INPUT BUFFER FOR DEVICE YY WITH XX
FOT XX YY
FILL OUTPUT BUFFER FOR DEVICE YY WITH XX

WHERE:

XX IS THE FILL CHARACTER IN HEX
YY IS THE DEVICE ADDRESS IN HEX

JSR
JSR
MOVB
JSR

PC,GLIMIT
PC.CHTB
R3.FILLCH
PC.GDEV

COMPUTE RELOCATION FOR DEVICE

ILL:

002000
20$:

013132

013134

002732

BACKGROUND == FILL COMMAND

INTO THE GIVEN DATA AREA.

’

012546

PAGE 61

THE FILL COMMAND LOADS THE SPECIFIED BYTE

108:

013132
013134

16:28

FILL COMMAND

P PR PR PR PN PR PN

003750
003752
003754
003756
003762
003764
003770
003774

004737
004737

2
L PRT FE TR

003730
003734
003740
003744

CLR

BEQ

208

DEC

ADD
BR

ADD

MOV

#2000,
R4
108

R4, SADDR

R&4 - EADDR
SADDR,
R1

:GET BUFFER LIMITS
;GET THE FILL CHARCTER
*SAVE FILL CHAR
*GET THE DEVICE ADDRESS

;DONE?

*YES. ADD TO START AND END ADDR
;ADD RELOC CONST TO START

*ADD RELOC CONST TO END ADDR

;

FILL BUFFER WITH SPECIFIED CAHARCTER

$0$:

MOVB

FILLCH.(R1)+

:FILL CHARACTER

30%

*NOPE, FILL NEXT CHAR

CMP

R1,EADDR

JNP

EXEC

BLOS

DONE?

*DONE. RETURN TO EXEC

SEQ 61

K
MAINDEC-11-C2DX]~C

cZoxIC.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11 30A(1052)

BACKGROUND == HELP COMMAND
.SBTTL

O07-JUN-82

16:28

PAGE 62

BACKGROUND == HELP COMMAND

THE HELP COMMAND PROVIDES

THE OPERATOR WITH A SYNOPSIS OF

COMMANDS WHICH MAY BE USED FOR OPERATING THIS SYSTEM.
THE SYNT:X FOR THE HELP COMMAND [S:

004016
004022

012701
012702

014372
002551

MOv
MOV

#HELPMS ,R1
#HELPLN,R2

sSET UP ADDRESS OF HELP MESSAGE
sLENGTH OF HELP MESSAGE

START OUTPUTTING THE HELP MESSAGE UNDER OUR CONTROL
SO THE COMMAND MAY BE ABORTED QUICKLY.

004026
004030
004036
004040
004044
004050
004052
004054
004056

013103

MOvB
CMPB
BGT
JSR
TST8

000004

011400
013066

000137

002732

20$:

BNE
DEC
BNE

JMP

(R1)+,RO
PCTR,#4
15%
PC,PCHAR
TCMDAB

20%
R
108
EXEC

sGET BYTE TO OUTPUT
sMORE THEN FOUR CHARACTERS IN OUTPUT BUFFER??
s
YES, WAIT TIL DOWN A LITTLE
sPRINT IT ON CONSOLE
sHAS OPERATOR INDICATED A DESIRE TO STOP?

¢
YES, ABORT HELP MESSAGE
sHAS ENTIRE MESSAGE BEEN OUTPUTTED??
¢
NO, OUTPUT ANOTHER BYTE
s

YES, RETURN TO THE EXECUTIVE

SEQ 62

MAINDEC-11-C2DX]~C
NEW DX11-B RESPONDER
MACY11 30A(1052)
07-JUN-82
CZoxIC PN
07-JUN-82 16:21
BACKGROUND == ACCESS COMMAND

2974
2975
2976
2977
2978
2979

+SBTTL

16:28

SEQ 63

PAGE 63

BACKGROUND == ACCESS COMMAND

ACCESS SPECIFIED LOCATIONS AND CHANGE IF DESIRED
THE ACCESS COMMAND IS A QUICK LOOK AND CHANGE
ROUTINE MAINLY USED FOR PROGRAM DEBUGGING.

BASICALLY THE FOLLOWING ACTIONS ARE PERMITTED:
AXXXXX
= = OPEN AND PRINT SPECIFIED OCTAL LOCATION

CXXXXXXJ(C/R) == CHANGE CURRENT LOCATION IF DATA

004062
004066
004070
004072

004076
004100
004104
004110
004114
004120
004126
004130
004134
004140
004144
004150
004154
004160
004162
004166
004172
004174
004176
004202
004204
004210
004212

004230

004737
005705
001403
032703
001402
000137
010337
013702
105037
004737
012702
004737
017702
004737
012702
004737
105737
001775
012702
004737
005705
001007
120427
001412
120427
001403
000736
010377
062737
000730
000137

011552

000001

JSR

TST
BEQ
BIT

BEQ

003040
013132
013132
013065

JMP

MOV
MOV
CLRB
JSR
MOV
JSR
MOV

:
208

000015
006712
000002

002732

013132

PC,COTB

5%
#1,R3
78
CERR
R3,SADDR
SADDR,R?

#'
R2
PC,PRINT2

;PRINT 2 SPACES

TCMACT
PC,0CTOMP

@SADDR,R2

TCMACT

:ASTIVE COMMAND?

#TBUF ,R2

;SET UP INPUT BUFFER ADDRESS
;JWAS LOCATION CHANGED?

208

308:

40$:

MOV
ADD

50$:

JMP

IN OCTAL

sGET CONTENTS OF OBJECT LOCATION
sPRINT CONTENTS IN OCTAL
sPRINT 2 SPACES

8EQ

JSR
TST
BNE
CMPB
8EQ
CMPB
BEQ
B8R

sPRINT ADDRESS

PC,0DMP

' R2
PC.PRINT2

1ST8

= RETURN TO EXEC MODE

:GET THE START ADDRESS
sWAS A VALID ADDRESS ENTERED?
sNO, GIVE OPERATOR AN ERROR
cWAS ADDRESS SPECIFIED A WORD ADDRESS?
sYES, OPEN SPECIFIED LOCATION
sNO, GIVE OPERATOR AN ERROR INDICATION
sSAVE STARTING ADDRESS
cGET OBJECT WORD
sCLE’< TELE ACTIVE FLAG

JSR
MOV
JSR
MoV

000057

S PECIFIED CXXXXXX) AND OPEN NEXT LOCATION

PC.COTB

308

R4 ¥/

50$

R4, #CR
40$

108
R3,8SADDR
#2,SADDR
108
EXEC

JANY CHANGE?

sYES, STORE IT
:/, EXIT TO EXEC
JYES, RETURN TO EXEC
:CR, GO TO NEXT LOCATION?
sYES, OPEN AND PRINT NEXT LOC.

;ERROR, PRINT CONTENTS OF CURRENT LOC.

;CHANGE OPEN LOCATION
JOPEN NEXT LOCATION
sRETURN TO THE EXEC

msS
MAINVEC-11-C2D0X]~C

07-JUN-82 16:21

004234
004240
004244
004246
004252
004254
004260
004264
004270
004274

004737
004737
010005
063705
060505
063705
013715
105063
105063
000137

005314
010270
013122
013126
013130
000002
000016
002732

30A(1052)

.SBTTL

BACKGROUND == ENABLE DEVICE COMMAND

07-JUN-82

16:28

SEQ 64

PAGE 64

E = ENABLE DEVICE
THE ENABLE COMMAND TURNS THE DEVICE SPECIFIED INTO AN
ON-LINE MODE. THIS IS ONLY NECESSITATED BECAUSE A KILL
COMMAND WAS PERFORMED ON THE DEVICE IN QUESTION.
THE ENABLE COMMAND HAS THE FOLLOWING SYNTAX:
EXX
~= ENABLE DEVICE ADDRESS XX
THE DEVICE ADDRESS (XX) MUST BE ENTERED

3030
3031
3032
3033
3034
3035
3036
3037
3038
3039

MACY11

BACKGROUND =~ ENABLE DEVICE COMMAND

9 8. 000300 %e %08, 0, 0,

cZoxIC.P11

NEW DX11-B RESPONDER

: JSR
NABLE
JSR

IN HEX

MOV
:gg

PC,GDEV
PC,ZDEVST
DEV,RS
ggvggN.RS

sGET THE DEVICE NUMBER
sCLEAR THE DEVICE STATUS TABLE
sCOMPUTE THE ADDRESS OF THE SPW TABLE ENTRY
¢ COMPENSATE FOR OFFSET DEVICE ADDRESS

ADD
MOV

STSPW,RS
DSTOFF, (RS)

sENABLE THE DEVICE NUMBER

CLRB
JMP

SONLF (DTAB)
EXEC

¢cRETURN TO THE EXEC

CLR8B

SSENSE (DTAB)

N
MAINCEC=-11-C2DX]~C

C20xIC.P11

NEW DX11-8 RESPONDER

07-JUN-82 16:21

3040
3041
3042
3043

MACY11 30A(1052)
07-JUN-82
BACKGROUND == KILL DEVICE COMMAND

112763
010005
063705
060505
063705
012715
000137

BACKGROUND == KILL DEVICE COMMAND

DEVICE ADDRESS INTO AN OFF~LINE STATE. AN ENABLE COMMAND

MUST BE ISSUED BEFORE DATA TRANSFERS MAY BE PERFORMED WITH
THE DX FOR THE SPECIFIED DEVICE ADDRESS.

THE KILL COMHAND HAS THE FOLLOWING SYNTAX:
== KILL DEVICE ADDRESS XX
THE DEVICE ADDRESS (XX) MUST BE ENTERED IN HEX

000016

013122
013126
000002
002732

PAGE 65

THE KILL COMMAND DISABLES THE SPECIFIED DEVICE ADDRESS FROM
PERFORMING TRANSFERS OVER THE DX. IT PUTS THE SPECIFIED

005314
010270
000001

16:28

= KILL A DEVICE

[]

004737
004737

I 8080000000008

00%0 0000,

+SBTTL

004300
004304
004310
004316
004320
004324
004326
004332
004336

KILLEX:

JSR
JSR
MOv8
MOV
ADD
ADD
ADD
MOV
JMP

PC,GDEV
PC,CDEVST
#1,SONLF(DTAB)
DEV,RS
DEVCON, RS
RS ,R5
STSPW,RS
#UCHK, (RS)
EXEC

sGET THE DEVICE NUMBER

sCOMPUTE THE ADDRESS OF THE SPW TABLE
+ COMPONSATE FOR OFFSET DEViCE ADDRESS
sMAKE THE DEVICE OFF<LINE SEND UNIT CHECK
cRETURN TO THE EXEC

SEQ 65

B
MAINDEC-11-C20X]1~C

CZ0xIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11 30A(1052)

07-JUN-B2

16:28

BACKGROUND == [NPUT DISPLAY DATA COMMAND
.SBTTL

SEQ 66

PAGE 66

BACKGROUND == INPUT DISPLAY DATA COMMAND

I = INPUT
THE INPUT COMMAND IS USED TO ENTER DATA ONTO A 2260
ESREENDQND THEN SEND IT TO THE 360 VIA THE READ MANUAL
THE

004342
004346
004350
004354
004360

105737
001005
004737
120427
001402
000137
004737
026327
002370
032763

012544

BN NN

sGET THE DEVICE NUMBER
sTHE NEXT CHAR MUST BE A COMMA

JMP
JSR
CMP

CERR
;AN ERROR WAS FOUND GIVE INDICATION
PC,SUDEV
sSET UP THE DEVICE STATUS TABLE POINTERS
SCURS(DTAB) ,#DISPS2-4 ;ARE WE AT THE END OF THE BUFFER?

sFRIEND == GIVE AN ERROR

208

1T 1S, CONTINUE

;YES. GIVE AN ERROR
:START INPUT ON EVEN BYTE ADDRESS

000004
000010
000004
000112
000020
000004
000004

INC
MOV
ADD
MOVB
MOV
INC
CMP

SCURS(DTAB)
¢ INCR CURSOR TO ODD BYTE ADDRESS
SOUTB(DTAB)
,R5S
,COMPUTE STARTING ADDRESS
SCURS(DTAB)
,RS
#SMI,(RS)+
*START CHARACTER TO BUFFER
RS,SMINS(DTAB)
:SAVE START OF DATA LOCATION
SCURS (DTAB)
: INCREMENT CURSOR POSITION
SCURS(DTAB) ,#DISPS2~3 ;ARE WE AT THE END OF BUFFER

BIC

#177600,R4

BNE

30$:

:
408

BEQ
MOVB

000040
012366

:YES, TERMINATE INPUT
SGET NEXT INPUTTED CHARACTER

R4, #CR

*END OF INPUT?

CMP

R4 ,ASPACE

SCAN’ CHARACTER BE CONVERTED?

CMP
BGT

RG,#°_
608

BEQ

BLT

60$:

B 0,0,

005004

:START SCM ON ODD BYTE ADDRESS

70$
(R2)+,R&

CMP

50$:

30§

SUB
MOVB

B8R

ék“

708

608

:SAVE L.0. 7 BITS

SYES, SET UP TO EXIT

:NO, MUST BE BETWEEN 40 ~ 137
;NO, MUST BE BETWEEN 40 - 137

#SPACE . R4
*SCALE DOWN FOR INDEXING
ATOETB(R4), (RS5)+:CONVERT CHARACATER AND MOVE TO DISPLAY BUFFER

408

233

:GET AND CONVERT NEXT CHARACATER

“ILLEGAL CHARACTER =-- TREAT AS SPACE

SET UP TO EXIT
SET EOM INDICATOR
QUEUE READ MANUAL INPUT REQUEST

2O OB IRARRO

b wd

b e e

omd

= a0 aa00000000

N AN AN N N AN N NN

d
D
b od
D ed

PC,GDEV
R A,

10$
#1,SCURS(DTAB)

000137

—ed

JSR
CMPB

BGE
BIT

000040

A Ll W U A AN AN U

sILLEGAL ON FRIEND TEST

108

000001

177600
000015

004514
004516

TSTTYP

BEQ

003040
010242
000004

INPUT COMMAND HAS THE FOLLOWING SYNTAX:
IXX,DDD....DDD
== SEND DATA DDD TO DEVICE XX
THE DEVICE ADDRESS (XX) MUST BE ENTERED IN HEX

TST8

BNE

005314
000054

004520
004524
004530

000152
000004
000017

708:

MOvB
INC

INCB

#EOM, (RS)
SCURS(DTAB)

SRDRQ(DTAB)

sSET EOM INDICATOR
s INCREMENT CURSOR POINTER

cQUEUE READ REQUEST

SEE IF THE DX IS CURRENTLY ACTIVE

004534

105737

INPUT

013102

TST8

DXACT

cIS DX ACTIVE?

r—

¢ 6

MAINDEC-11-CZDX]~C

cZoxI1C.P11
3119
%}%9

004540
004542

NEW DX11-B RESPONDER

07-JUN-82 16:21
001402
000137

3125

3126
3127
3128
3129
3130
3131
3132
3133
3134

0045646

004552
004556
004564
004566
004570
004572
004574
004576
004600

013740

012746
012737
010046
010146
010246
010346
010446
010546
000137

177776

002732
000340

006566

177776

30A(1052)

BEQ
JMP

808
EXEC

O07-JUN-82

16:28

BACKGROUND == INPUT DISPLAY DATA COMMAND

002732

3122
%}%z

MACY11

PAGE 67

sNO, START ASYNCHRONOUS PROCESSING TO SEND ATTENTION
sYES, ATTENTION WILL BE TAKEN CARE OF BY DX

H
;

DX IS NOT ACTIVE
CREATE PHONY INTERRUPT TO ALLOW DX TO ACT ON ATTENTION

80s:

MoV

Mov
Mov
Mov
MOV
Mov
MoV
MoV
MoV
JMP

PSW,=(SP)

WEXEC,=(SP)
#340,PSW
RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,=(SP)
R4 ,=(SP)
R5,=(SP)
DXEXEC

sPSW TO PUSH STACK

sRETURN ADDRESS TO PUSH STACK
¢INHIBIT INTERUPTS
sSET UP PUSH STACK FOR FAKE INTERRUPT

sSTART PROCESSING THE ATTENTION

SEQ 67

D
MAINDEC=-11-C20X]~C

CZOXIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

.SBTTL

BACKGROUND SUBROUTINES == PRINT

07-JUN-82

BACKGROUND SUBROUTINES == PRINT

g}gg

FORMATTING

g}gg

;

DUMP WORD IN EBCDIC ON TTY

3139

CALLING SEQUENCE

3141
3142
3143
3144

:
S
:
:

JSR
PC,EBCDMP
eeeees RE TURN

3140

;

%}22

010237

013070

EBCDMP: MOV

3149

004614

0462703

177400

BIC

#177400.R3

004626

113703

MOVB

WK1,R3

3150

0064620

3152

004632

3151

2153
3154
gggg

004636
004644

113703

013070

116337

011766

042703

177400

116337
013702

013071

011766
013070

MOVB

013070

MOVB

BIC

013071
;

R2,WK

WK.R3

EBCDTB(R3)
,WwK

#177400,R3

:SAVE WORD TO BE PRINTED
SGET LO BYTE

;CONVERT EBCDIC TO ASCII

:GET HI BYTE AND CONVERT

MOVB
EBCDTB(R3),wK1
:CONVERT CHAR TO ASCII
MOV
WK.R
FALL THROUGH TO ASCII PRINT ROUTINE

3157

’

§}28

DUMP WORD IN ASCII ON TTY

3161

CALLING SEQUENCE

3158

FORMATTING

REGISTERS 2 + 3 ARE DESTROYED BY THIS SUBROUTINE

004606

004610

PAGE 68

cerees R2 CONTAINS WORD TO BE PRINTED

3147

3148

16:28

3162
3163
3164
3165

P
;
S
:

eeeeen R2 CONTAINS WORD TO BE PRINTED
JSR
PC.ASCDMP
eesese RETURN

g}gg

NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE

3166

3169

004650

3172

004662

3170
3171
3173
3174
g};g

105737

004654
006656

001005
004737

004670
004674
004700

105337
004737
000207

112737

013067
011342

000036

013067
011360

3177
3178

ASCOMP: TSTB
013067

BNE
JSR

108:

Move
DECB
JSR
RTS

LINECT

;NEJ LINE?

108
PC,CRLF

*NO
SYES, PRINT CR/LF

LINECT
PC,PRINT2
PC

:DECR LINE COUNTER
;PRINT 2 CHARS
SRETURN TO CALLER

#30..LINECT

:60 CHARACTERS PER LINE

§}§3

DUMP WORD IN OCTAL ON TTY

3181

;

CALLING SEQUENCE

;}gg

3182
3183

P
:

eeees R2 CONTAINS WORD TO BE PRINTED
JSR
PC.OCTDMP OR ODMP
eeessRETURN

%}29

OCTDMP PERFORMS A CR/LF BEFORE PRINTING OCTAL DATA

%}gg

;

NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE

3190

004702

004737

011342

OCTDMP: JSR

PC.CRLF

:GIVE A CRLF

SEQ 68

E
MAINDEC=-11-C20X]~C

CZox1C.P11

004706
004710
004712
004714
004720
004722
004724

004742
004744
004746
004750
004752
004754
004756

004760
004762
004764

NEW DX11-B RESPONDER

07-JUN-82 16:21
010046
010246
010446
012704
005000
006102
006100
042700
062700
004737
006102
006102
006102
010200
005304
001363
012604
012602
012600
000207

MACY11 30A(1052)

07-JUN-82

16:28

FORMATTING

ODMP:

;SAVE IMPORTANT REGISTERS

MOV
Mov
MOV
MOV

CLR

108:

ROL
ROL

8IC
ADD
JSR

ROL
ROL
ROL

RO,=(SP)
R2,=(SP)

R4 ,~(SP)
#6,R4

RO
#177770.R0

RTS

JEXTRACT 6 OCTAL DIGITS

;CLEAR THE WORKING REGISTER

;MOVE HIGH ORDER BIT TO C-BIT

JGET THE REMAINING BIT STILL IN LINK
;ONLY 3 LOW ORDER BITS

#'0,R0

MAKE ASCII

;ROTATE THE NEXT OCTAL CHAR INTO POSITION

PC.PCHAR

R2
R2.RO

JPRINT

IT ON THE

:ARE WE DONE?

(SP)+,R4

RESTORE USED REGISTERS

(SP)+ R2
(SP)+ RO
PC

TTY

;DATA TO WORKING REGISTER

Ré

108

OCTEX:

SEQ 69

PAGE 69

BACKGROUND SUBROUTINES == PRINT

000006

177770
000060
011400

:NO, PRINT ANOTHER CHARACTER

JRETURN TO THE CALLER

DUMP WORD IN HEX ON THE TTY

CALLING_SEQUENCE
R2 CONTAINS THE WORD TO BE PRINTED
PC.HEXDMP OR HDMP
<RETURN
HEXDMP PERFORMS A CRLF BEFORE OUTPUTTING THE DATA

NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE

004766
004772
004774

004776
005000

005056

004737
010046
010246

010446
012704
006102
006102
006102
006102
010200

006100
042700
062700
020027
003402
062700
004737
005304
001355
012604
012602
012600

011342

000004

HEXDMP: JSR
HDMP:

108:

177760
000060
000071

000007
011400

20$:

MOV
MoV
MOV
MOV
ROL
ROL
ROL
ROL
MOV

ROL
BIC
ADD
CMP
BLE
ADD
JSR
DEC
BNE
MOV
MOV
MOV

PC,CRLF

RO,=-(SP)

DO A CR LF

sSAVE THE WORKING REGISTERS

R2,=(SP)
R4 ,=(SP)
#4 R4
25

;4 CHARACTERS PER WORD
sROTATE HIGH ORDER 4 BITS TO LOW ORDER & BITS

R2
R2
R2,R0
RO
#177760,R0
#'0,R0
RO, 4'9

;70 WORKING REG
sGET THE LINK BIT TOO
sONLY LOW ORDER & BITS
sMAKE ASCII IF NUMBEK
¢SHOULD IT BE A-F?

20$

:NO,SHIP IT

PC,PCHAR
Ré

;PRINT THE HEX CHARACTER
sARE WE DONE?

sggg’.gg

JYES, RESTORE REGISTERS AND EXIT

#7,R0

108

’l

(SP)+,RO

sYES, MAKE ALPHA

¢NO, CONVERT AND PRINT NEXT CHARCATER

MAINDEC-11-C2DXI-C
NEW DX11-B RESPONDER
MACY11 30A(1052)
07-JUN-B2
16:28
PAGE
CZ0x1C.P11
07-JUN-82 16:21
BACKGROUND SUBROUTINES == PRINT
FORMATTING

3247

005060

000207

RTS

;RETURN TO THE CALLER

SEQ 70

6
MAINDEC-11-C20X]~C

¢Zox1C.P11

NEW DX11-B RESPONDER

07-JUN=-82 16:21

MACY11 30A(1052)
07-JUN-82
16:28 PAGE 71
BACKGROUND SUBROUTINES == COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE ADDRESSES

SEQ 71

.SBTTL
BACKGROUND SUBROUTINES == COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE ADD
GLIMIT =< SET UP BUFFER LIMITS FOR TELE COMMANDS

.
:
H
S
:

CALLING_SEQ
ees0..R2 = ADDRESS OF FIRST PARAMETER
PC,GLIMIT
JSR
eesecssne RETURN IF NO ERRORS DETECTED IN BUFFER LIMIT SYNTAX
IF AN ERROR

IS DETECTED,

CONTROL WILL BE

H
H

PASSED TO °‘'CERR’' TG ABORT THE TELETYPE COMMAND.
UPON GOOD RETURN:

;

R2 = NEXT CHAR POSITION IN COMMAND STRING

RO =0 =NOT T/T,

1 = T/T

SADDR = BEG ADDR TO BE DUMPED
EADDR = END ADDR TO BE DUMPED

REGISTERS RS, R4, R3 WILL BE DESTROYED.

005062
005064
005070
005072
005074
005100
005102
0G5106
005110
005114

005116
005120

005124
005130
005134
005136
005142
005144
005146
005152

005154
005156
005162
005164

005000
004737
005705
001014

120427
001425
120427

001436
1204627
001453

012601
000137

010337
120427

001370
004737
005705
001764
010337
000454

011552

IF AN ERROR IS FOUND CONTROL

9 LIMIT:

CLR
JSR
ST
BNE
CMPB
BEQ
C(MPB
BEQ

000124
000111

000117

003040

013132
000054

‘WAS AN OCTAL NUMBER ENTERED?

SYES, OCTAL PARAMS
:T ="TUMBLE TABLE
SYES, SET UP T/T LIMITS
*1 = INPUT BUFFER
SYES, SET UP INPUT BUFFER LIMITS

20 = OUTPUT BUFFER

;

ERROR DETECTED - POP OFF RETURN ADDR AND GIVE ERROR

GLERR:

MOV

;

OCTAL LIMITS SPECIFIED

GLOCT:

MOV

R3, SADDR

:SAVE START ADDR

JSR
ST
BEQ
MOV

PC.COTB
RS
GLERR
R3,EADDR

:GET END ADDR
*WAS SECOND PARAM GIVEN?
*NO, ERROR
*SAVE END ADDR

JMP

CMPB
BNE

B8R

013132

6LOCT
R4 #'T
GLMTT
R4 #°1
GLMIN
RG.#'0
GLMOT

BEQ

013134

00012¢

¢RESET BUFFER TYPE
*GET FIRST PARAMETER

011552

013072

(MPB

RO
PC.COTB

IS PASSED TO CERR

SYES, SET UP OUTPUT BUFFER LIMITS

(SP)+,R1

CERR

R4.¥',
GLERR

GLEX

SCHECK FOR COMMA (.)

*PREPARE TO EXIT

;

SET UP LIMITS OF TUMBLE TABLE

GLMTT:

MOVB

(MPB
BNE
Mov

(R2)+,.Ré4

R4 #'T
GLERR

TTPTR,SADDR

:MUST BE TT
SILLEGAL ENTRY

H
MAINDEC-11-C20XI~C

C20x1C.P1

3304
3305
§§8?

005172
005200
005202

NEW DX11-B RESPONDER

07=-JUN-82 16:21

062737
005200
000437

000776

;

%%}?

3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
2322

005204
005206
005212
005214
005220
005226
005234
005242

3325
3326
3327
3328
3329
3330
3331
%ggg

005244
005246
005252
005254
005260
005266
005274
005302

112204
120427
001341
013704
016437
013737
062737
000417

000116
013076
000006
013132
000741

000124

013076
000010
013132
000737

%%%é
3336
3337
3338

005304
005310
005312

120427
001302
000207

000054

16:28

PAGE

ADD
INC
B8R

#TTSI2E=-2,SADDR ;COMPUTE ADDRESS OF APPR DUPLICATE TT ENTRY
RO
;INDICATE OUMP TUMBLE TABLE
GLEX1
JSET UP TO EXIT

GLMIN:

mMOVB
CMPB
BNE
MOV
MOV
MOV
ADD
BR

(R2)+,R4
RG,#'N
GLERR
SDEVTB,R4
SINBF
(R4) ,SADDR
SADDR,EADDR
#DISPSZ+1,EADDR
GLEX1

SEQ 72

;MUST BE IN
s ILLEGAL ENTRY
;GET ADDR OF DEV 0 STATUS TABLE
;DISPLAY SIZE + ROOM FOR LINE ADDRESS

SET UP LIMITS FOR OUTPUT BUFFER OF DEVICE O

GLMOT:

GLEX1:

MOVB
CMP8
BNE
MOV
MOV
MOV
ADD
MOVB

INSURE ENTRY PROPERLY DELIMITED AND RETURN TO CALLER

GLEX:

CMPB
BNE
RTS

013132
013134

013134

07~JUN=-B2

SET UP LIMITS FOR INPUT BUFFER OF DEVICE 0

112204
120427
001321
013704
016437
013737
062737
112204

30A(1052)

013132
013134
013134

gggz

MACY11

BACKGROUND SUBROUTINES =~ COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE ADDRESSES

013132

3308
3309

(R2) +,R4
RGA'T
GLERR
SDEVTB.R4
SOUTB(R4) ,SADDR
SADDR,EADDR

;MUST BE OT
JILLEGAL ENTRY
:GET ADDR OF DEV 0 STATUS TABLE
;COMPUTE STARTING AND ENDING ADDRESSESS OF SPECIFIED BUF

#D1SPSZ~1,EADDR ;DISPLAY CHAR BUFFER
(R2)+,R4
:GET NEXT INPUT CHARACTER AND UPDATE POINTER

RG A,
GLERR
PC

:CHECK FOR ,
;ENTRY NOT PROPERLY DELIMITED (ERROR)

1
MAINDEC-11=C2DXI~C

C20xI1C.P11

NEW DX11~B RESPONDER

07-JUN-82 16:21

3339

MACY11

30A(1052)

6
07-JUN-B2

16:28

PAGE

BACKGROUND SUBROUTINES =~ COMPUTE SPECIFIED BUFFER LIMITS AND DEVICE ADDRESSES
H

%%2?

GDEV =~ GET THE THE DEVICE NUMBER FROM THE HEX [NPUT

3342
3343
3344
3345
3346
3347
3348
3349
3350

:
:
:
P
:
:
:
:
:

CALLING SEQUENCE
eeosesss.R2 = ADDRESS OF DEVICE ADDRESS IN HEX
JSR
PC,GDEV
tesesese RETURN IF NO ERRORS DETECTED
IF ERROR DETECTED, COMMAND IS ABORTED BY GOING
TO '‘'CERR'’
UPON VALID RETURN
R3 AND DEV (RO) WILL CONTAIN THE DEVICE ADDRESS
SCALED TO 1 - 8, NOTATION USED BY SYSTEM.

GDEV:

JSR

PC.CHTB

BM]
INC
cMP8

108
:ERROR ON INPUT
R3
MAKE BETWEEN 1 AND 8
R3,MAXDEV
;1S DEVICE NUMBER TOO B816G?
108
:YES, GIVE ERROR
R3,DEV
JSET UP THE DEVICE NUMBER
PC
CERR
: INPUT PARAM ERROR
DX11-B ISR (INTERRUPT REQUEST LOGIC AND TUMBLE TABLE DECODE LOGIC)

%gg;

3353

005314

004737

3355
3356
3357
3358
3359
3360
3361
gggg

005324
005326
005330

100406
005203
120337
101002
010300
000207
000137

3354

005320

005334
005336
005340
005342

163703

011616
012534

013101

R2 WILL POINT TO THE NEXT CHARACTER FOLLOWING DEVICE ADDRESS

sus

;CONVERT THE HEX TO BINARY

SDEV,R3

;=STARTING ADDRESS

108:

BHI
MOV
RTS
JMP

gggg

DX11-8B

%%29

DX11 ISR AND RELATED SUBROUTINE REGISTER USAGE

3368
3369
3370
3371

:
:
:
:

RO
R1
R2
R3

3375
3376
3377

:
:
:

THE ABOVE REGISTER DESIGNATIONS REPRESENT WHAT USUALLY WILL
BE CONTAINED IN A REGISTER DURING DX ISR PROCESSING. HOWEVER,
AS SITUATIONS DICTATE REGISTERS MAY BE USED FOR DIFFERENT

DXISR:

MOV
MOV

003040

3372
gg;z

:
:

gg;g
3380
3381

3382
3383
3384
3385
3386
3387
;ggg

:
005346
005350

005352
005354
005356
005360
005362
005366
005370

010046
010146

010246

010346
010446
010546
013702

005712
001002

3394

:
:
:
005372

000137

010224

R4
RS

ISR

DEV
DTAR

188
1A P

DEVICE NUMBER
UN ASSIGNED
UNASS IGNED
ADDRESS OF CURRENT DEVICE TABLE

TUMBLE TABLE ENTRY 1
TUMBLE TABLE ENTRY 2

PURPOSES.

MOV
MOV
MOV
MOV
MOV
ST
BNE

013072

3390
3391
gggg

.SBTTL

RO,-(SP)
R1,-(SP)

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

;SAVE HARDWARE REGISTERS

sCHECK FOR 2ERO T/T ENTRY UPON INTERRUPT

JNON-ZERO == WERE 0K

NOTE =~ AN INTERRUPT OCCURRED WITHOUT A TUMBLE TABLE
ENTRY, THE ASSUMPTION IS THEN MADE THAT THE TUMBLE TABLE
ENTRY HAS ALREADY BEEN PROCESSED
JMP

DXEXIT

SEQ 73

—

J
MAINDEC-11-CZ0XI~C

C20XI1C.PN

NEW DX11-B RESPONDER

07-JUN~-82 16:21

MACY11

:
:
:
:
:

16:28

PAGE

228;

BE DISTRIBUTED TO LESS PRIVILEDGED PRIORITY LEVELS

SUCH AS THE FORK

LEVEL IN RSX11-M,

gzgg

:
:
:
:
:

THE INTERRUPT SERVICE LEVEL PROCESSING REQUIRED
BY THE DX11~B IS TO RELEIVE THE INTERRUPT (DONE BIT
IN DXCS) AND SCHEDULE A REQUEST FOR PROCESSING
AT ANOTHER LEVEL. THE LEVEL SCHEDULED TO PERFORM
THE PROCESSING SHOULD BE HIGH ENOUGH

3410
3411
3412
3413
3414
3415
3416

:
:
:
:
:
:
:

THE TUMBLE TABLE ENTRIES ARE PROCESSED SEQUENTIALLY FROM THE
CIRCULAR BUFFER FILLED BY THE DX. AS EACH ENTRY IS RETRIEVED
FROM THE TUMBLE TABLE IT IS ZEROED. IT IS THIS MECHANISM
THAT ALLOWS THE PROGRAMMER TO DISCERN WHEN ALL ENTRIES HAVE
BEEN PROCESSED. WHEN ALL ENTRIES HAVE BEEN
RETRIEVED FROM THE TUMBLE TABLE THEN THE NEXT ACTION
IS PERFORMED TO THE DX. THE DX11-B NEVER ENTERS A ZERO

LOOP:

MOV

%2};

3419

3420
3421
%2%%

005402
0054064
005406

013702

005712
001002
000137

013072

gzgg
005412
005420
005422

042777
010203
062703

3433
3436
3435
3436
gz%g

005430
005432
005434
005436
005440

011204
005022
011223
011205
005022

005426

011223

000200

TTPTIR,K2

(R2)
108
DXEXEC

:GET T/T PIR

;ANY ENTRIES LEFT IN T/T?
sNO, EXECUTE NEXT DX COMMAND

TUMBLE TABLE ENTRY AVAILABLE FOR PROCESSING
RESET THE DONE BIT (RELIEVE INTERRUPT)
COPY TUMBLE TABLE ENTRY TO DUPLICATE TUMBLE TWBLE (FOR SYSTEM TESTS PURP

10%:

BIC
MOV
ADD

#DONE ,8DXCS
R2.R3
#TTSIZE,R3

MOV
CLR
MOV
MOV
CLR

(R2),TT1
(R2)+
(R2),(R3)+
(R2),TT2
(R2)+

RESET TUMBLE TABLE ENTRY (2 WORDS)

001000

MOV

%228

3447
3448
3449
3450

005062

TST
BNE
JMP

:
:
;

3429
3430
3431

3441
3442
3443
3444
3222

IN TUMBLE TABLE ENTRY 1,

006566

3424
3425
3426

3432

TO PROTECT AGAINST TUMBLE TABLE OVERFLOW.

005376

SEQ 74

PROCESS TUMBLE TABLE ENTRIES
FOR CONVIENCE THE PROCESSING IS BEING PERFORMED
AT THE INTERRUPT LEVEL. IT IS SUGGESTED THAT IN
NORMAL PROCESSING ENVIRONMENTS THIS PROCESSING

3403
3404
3405
3406
3407

07-JUN-82

DX11-B ISR (INTERRUPT REQUEST LOGIC AND TUMBLE TABLE DECODE LOGIC)

3395
3396
3397
3398
3399
3400

30A(1052)

(R2), (R$)+

:CLEAR DONE
:SET UP PTR TO DUP T/T

:SAVE T/T ENTRY #1
:CLEAR T/T ENTRY #1
:SAVE T/T ENTRY #2
:CLEAR T/T ENTRY #2

CHECK FOR POINTER WRAP AROUND

005442

032702

000777

BIT

#TTSIZE-1,R2

;AT END OF BUFFER?
:NOTE == POWER OF 2 BOUNDRY
:NO
JYES, RESET PTR
:SAVE T/T PIR

005446
005450
005454

001002
013702
010237

013074
013072

20%:

BNE
MOV
MOV

208
TTADDR,R2
R2,TTPIR

:
:
:
:

START PROCESSING TUMBLE ENTRY ENTRY
SAVE DEVICE ADDRESS
CHECK FOR SYSTEM RESET
VALIDATE DEVICE ADDRESS

K
MAINDEC-11-C20XI~C

C20XIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

3451
3452

3457
3458

3459
3460
3461
3462
34,63
%222

005466
005472
005500
0055064
005506
005512
005514

005520

010500
042700

010037
042777
032704
001066
163700
100403
120037
103405

013120
000200
010000

16:28

PAGE

THAT THE DEVICE ADDRESS WILL BE VALID.

’

177400

07~JUN-82

NOTE == IF SYSTEM RESET OCCURRED, THERE IS NO GUARANTEE

005460
005462

30A(1052)

DX11-B ISR (INTERRUPT REQUEST LOGIC AND TUMBLE TABLE DECODE LOGIC)

:
;

gzgz

3455
3,56

MACY11

MOV
BIC

005002

8IT
BNE
SUB
BM]
CMP8

012534

013101

8LO

T12,DEV
#172400,DEV

DEV,CDEV
#DONE ,30XCS
#SYSRST,TT1
PSYSRT
SDEV,DEV
308
DEV,MAXDEV
408

:GET DEV #
:SAVE CURRENT DEVICE NUMBER
:CLEAR DONE

*SYSTEM RESET?
*YES, PERFORM SYSTEM RESET FUNCTION
SGET IN 0-7 RANGE - IF VALID
*INVALID DEVICE NUMBER
*VALID DEVICE?
SYES, NOT TOO BIG

gzgg

INVALID DEVICE ADDRESS - BITCH

3468

AN INVALID DEVICE ADDRESS WILL GENERALLY INDICATE

gz;%

OTHER DEVICES ON THE CHANNEL.

%0s:

JSR

3469
3470
3471

34764

3475
gz;g

;
;
;

005522

005526
005530

004137

014054
000137

011520
006550

gfi;g
34,80
3481

A PROBLEM IN THE CONFIGURATION OF DX DEVICE
ADDRESSES. BASICALLY THE DX HAS BEEN STRAPPED
TO HANDLE DEVICE ADDRESSES WHICH OVERLAP WITH

:
005534
005536

005200
004737

010242

408

.WORD
JMP

R1, INMES
ILLMES
DXA8

;PRINT *‘INVALID DEVICE"’
;ABORT DX11

COMPUTE ADDRESS OF SPECIFIED DEVICES STATUS TABLE
"

INC
JSR

DEV
PC.SUDEV

;MAKE DEVICE NUMBER 1 -8
‘SET UP ADDR OF DEV STAT TABLE

SEQ 75

L
MAINDEC~11-CZDXI~C

CZ0XIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11 30A(1052)
07-JUN-82
16:28 PAGE 76
DX11-8 ISR (INTERRUPT REQUEST LOGIC AND TUMBLE TABLE DECODE LOGIC)
DECODE DX TUMBLE TABLE STATUS ENTRY
THE FOLLOWING PROCESS INDICATES THE ORDER IN WHICH
THE TUMBLE TABLE STATUS ENTRY SHOULD BE DECODED.
THIS ORDER IS IMPORTANT AND SHOULD BE ADHERED
TO FOR MOST EMULATIONS.

005542

005546

005550
005554
005560
005562
005566
005572
005574
005600
005604
005606
005612
005616
005620
005624
005630
005632
005636
005642
005644
005650
005654
005656

032704
001402
000137
032704
001402
000137
032704
001402
000137
032704
001402
000137
032704
001402
000137
032704
001402
000137
032704

001402
000137
032704

001650
000137

020000
006010
004000
006040
040000
006114

000100
006126

T SELRST:Bl T

BEQ
JMP
TINDSC: BIT

BEQ

JMP
BIT
BEQ
JMP
TESEND: BIT
BEQ
TNXM:

JMP

100000

TPARER:

006256
000200

TCHIS:

006306
000040

JMP
TCHEND: BIT

006470
000020

006454

BIT
BEQ
JMP
8IT
BEQ

BEQ
JMP
TCUEND: BIT
BEQ
JMP

#SELRST,TT
TINDSC
PSELRT
#INFDSC,TT1
TNXM
PINDSC
#NXM,TT1
TESEND
PNXM
#ESEND, TT
TPARER
PESEND
#PARER, TT1
TCHIS
PPARER
#CHIS, TTM
TCHEND
PCHIS
#CHEND, TT1
TCUEND
PCHEND
#CUEND, TT
LOOP
PCUEND

sSELECTIVE RESET?
¢NO, TEST INTERFACE DISC.
sYES, PERFORM SELECTIVE RESET
s INTERFACE DISCONNECT?
sNO, CHECK NON-EXISTENT MEMORY
cYES, PERFORM INTER DISC

sNON-EXISTENT MEMORY ERROR?
sNO, ES END
sYES, PROCESS NON-EXISTENT MEMORY ERROR
sWAS STATUS ACCEPTED?

¢NO, CHECK FOR PARITY ERROR
¢YES, PERFORM STATUS ACCEPT
¢DID A PARITY ERROR OCCUR?
sNO, CHECK FOR CHIS
sYES, PROCESS PARITY ERROR
cDID CHANNEL START A SELECTION SEQ?
sNO, CHECK FOR CHANNEL DATA END
sYES, PROCESS SELECTION SEQUENCE
sDID CHANNEL END OCCUR?
sNO, CHECK FOR CONTROL UNIT END
sYES, PROCESS CHANNEL END
sDID A CONTROL UNIT END OCCUR?
¢NO, IGNORE ENTRY == ASSUME STACK STATUS
sYES, PROCESS CONTROL UNIT ENv

SEQ 76

mé
MAINDEC-11-CZDX1~C

NEW DX11-B RESPONDER

07-JUN-82 16:21

WWN
LI WA W
[UALV
IV, [V LV IV, ] [V,
N =D b b —d s OV ~NOWn &»

czoxic.P1

MACY11 30A(1052)
.SBTTL

;
:

005750
005752
005754
005756
005760
005764
005766
005772
005776
006004

012700
004737
004737

000001
010270
010322
000002
000017
000020
000004
000003
000010
000740
000100
012544

PSYSRT: MOV
10$:
JSR
JSR
CLRB
CLRB

#1,DEV
PC,CDEVST
PC,CSPWST
SSENSE (DTAB)
SRDRQ(DTAB)

005376

AT FIRST DEVICE
DEVICE STATUS TABLE
SPW STATUS WORD UPON SYSTEM RESET
SFNTE BYTE
THL READ REQUEST

sCLEAR THE BEG OF MANUAL INPUT
sRESEY THE CURSOR
¢CLEAR THE STATUS REGISTER

Mov
MOVB
TST8

#DISPSZ,R2
#EBCDSP R4
ISTTYP

sSET UP NUMBER OF CHARACTERS IN DISPLAY
sASSUME 2848 DIAGNOSTIC TEST MODE
SWHAT TYPE OF TEST?

Move

R4, (R1)+

sUSE THE FILL CHARACTER

BEQ
MOvV8

DEC
BNE
INC
CMPB

BLE

004476

sSTART
sCLEAR
JRESFT
¢CLEAR
sCLEAR

SMINS(DTAB)
SCURS(DTAB)
SSTAT(DTAB)

Mov

20$:

042777
000137

DX11-8 ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC)

SENSE BYTES
RESET DX ACTIVE FLAGS AND COMMAND CHAIN FLAG

012546

013102
013106
000400

PAGE 77

;

CLR
CLR
CLRB

013101

16:28

SYSTEM RESET OCCURRED FROM 360
CLEAR ALL DEVICE STATUS TABLES AND RESPECTIVE

:
005662
005666
005672
005676
005702
005706
005712
005716
005722
005726
005732
005736
005742
005744

07-JUN-B2

DX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC)

CLRB
CLRB
8IC
JMP

SOUTB(DTAB)
,R1

20$
FILLCH,Ré

;SET UP TO CLEAR THE DISPLAY BUFFER

H
H

IF 2848, USE EBCDIC SPACE
FRIEND TEST ~= USE CURRENT FILL CHARACTER

R2
208
DEV
DEV ,MAXDEV

sARE WE DONE?
¢NO, LOOP TILL DONE

DXACT
CMDCHF
#CUBUSY,aDXCS
LOOP

¢CLEAR DX ACTIVE FLAG
sCLEAR COMMAND CHAINING FLAG
;RESET CU BUSY FLAG
¢PROCESS NEXT T/T ENTRY

108

ADDRESS

sTO NEXT DEVICE
sARE WE DONE?

sNO, CLEAR NEXT DEV STAT TABLE

CHANNEL ISSUED A SELECTIVE RESET
RESET THE DEVICE STATUS TABLE FOR THAT DEVICE + SENSE
NOTE: THE SEL RESET IS ISSUED AGAINST THE CURPENT
ACTIVE DEVICE

006010
006014
006020
006024
006030
006034

004737
004737
105063
105037
105037
000137

010270
010322
000002
013102
013106
005376

SELRT: JSR
JSR
CLRB
CLRB
CLRB

JMP

PC,CDEVST
PC,CSPWST
SSENSE(DTAB)
DXACT
CMDCHF

LooP

sCLEAR
sRESET
sCLEAR
sCLEAR
sCLEAR

DEVICE STATUS TABLE
SPW STATUS RESPONSE
SENSE BYTE
DX ACTIVE FLAG
COMMAND CHAIN FLAG

INTERFACE DISCONNECT WAS ISSUED FROM THE 360

THIS IS DIRECTED TO A SPECIFIC DEVICE AND IS UNDER

360 PROGRAM CONTROL

IF THE DEVICE WAS ACTIVE
ITS DEVICE STATUS TABLE WILL BE CLEARED

MAINDEC-11-C2DX]~C
NEW DX11-B RESPONDER
MACY11 30A(1052)
07-JUN-82
16:28 PAGE 78
cZoxic.P1
07-JUN-82 16:21
DX11-8B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC)
AND CHAN END

DEVICE END SET IN STATUS BYTE

IF THE DEVICE 1S NOT ACTIVE THE COMMAND WILL BE IGNORED

006040
006044
006050
006052
006056
006064
006070
006072

006076
006102
006104
006110

004737
105763
001417
004737
012763

120037
001002
105037
120037
001002
105037
000137

010322
000000
010270
000003
013102

PINDSC

10%:

013106
005376

PC,CSPWST
SCMD(DTAB)

MOV

PC,CDEVST
sCLEAR THE DEVICE STATUS TABLE
#CEDE,SCMD(DTAB)
; QUE DEV END + CHAN END

BEQ
JSR

000000

013102
013106

JSR
TST8

20$:

CMPB
BNE
CLR8B
CMPB
BNE
CLRB
JMP

208

DEV,DXACT
108
DXACT
DEV,CMDCHF

208

CMDCHF
LOOP

sCLEAR THE SPW STATUS RESPONSE
s1S DEVICE ACTIVE?
sNO, IGNORE
13 DEVICE USING DX NOW?

:YES, RELEASE DX
:DOES DEVICE HAVE CMD CHAIN SPEC?

:NO, GET NEXT T/T ENTRY
JYES, CLEAR FLAG
¢GET NEXT T/T ENTRY

A NON-EXISTANT MEMORY CONDITION OCCURRED
THIS WILL USUALLY TRAP OUT FIRST

004137
014000
000137

PNXM:

011520
006550

006126
006132

006136

004737
105763
001402
004737
126327
001003

006140
006144
006152
006154
006162
006166
006172
006176
006202
006204
006210
006216

123727
001552

006220
006224

032704
001412

112763
105063
105037

004737
032704
001402
110037

« LS

I I P T

006114
006120
006122

010322
000001
010414
000000

000002
000001
013102
010270
000004

013106
013100
000010

000011
000017

JSR

.WORD
JMP

MovB
CLRB
CLRB

JSR
BIT
BEQ

000105

:
308

;PRINT 'NON EX MEM''

sABORT DX AND RETURN TO EXEC

THE LAST STATUS SENT TO THE 360 WAS ACCEPTED, CLEAR DX
ACTIVE FLAG
IF LAST OP WAS A WRITE PERFORM THE DISPLAY CONTROL ROUTINE

ESEND JSR
TS78
BEQ
JSR
108:
CMPB
BNE

20$:

R1,INMES

NXMMSG
DXAB

MOv8

CMPB
BEQ

8Ir
8tQ

PC,CSPWST

SLCMD(DTAB)
10§

PC,DISCTL

SCMD(DTAB)
,#11

:RESET THE SPW STATUS BYTE
:ggfs LAST COMMAND REQUIRE 2260 DISPLAY EMULATION?

1YES, FORMAT THE DISPLAY

208

*WAS ATTN ACCEPTED?
:vgg CONT INUE
INDICATE 360 ACCEPTANCE

PC,CDEVST

sCLEAR DX ACTIVE FLAG
sCLEAR THE DEVICE STATUS TABLE
:AS COMMAND CHAINING SPECIFIED?

#2,SRDRQ(DTAB)
SLCMD(DTAB)
DXACT
#CMDCHN,TT1

308

DEV,CMDCHF
DXSTPF ,#°E
STPDX

JYES, SAVE THE DEVICE NUMBER
:WAS STOP ON END SEQ SPEC?(SE)

#ISSREJ,TT

JWAS AN ]SS REJ DETECTED?

508

:YES, DISABLE THE DX
JNO,

EXIT

INIT SELECTION SEQUENCE WAS REJECTED BY DX (FAST CU BUSY SEQUENCE)
IF FREIND TEST MODE -~ QUEUE CONTROL UNIT END
ON UNIT COMPLETING TRANSFER

IF 2848 DIAGNOSTIC TEST MODE -- QUEUE CONTROL UNIT END

SEQ 78

MAINDEC~11-C20XI~C
NEU DX11-B RESPONDER
MACY11 30A(1052)
07-JUN-82
16:28
PAGE 79
C20x1C.P11
07-JUN=-82 16:21
DX11-8B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC)

%259

3628
3629
3630
3631

:
:
:
:

gggg

3634
3635
3636

006226
006232
006234

3638

006244

3637

ggzg

006240

105737
001004
012700
004737

000001
010242

006252

000137

005376

112763

012544

000010

000000

3641
3642

50$:

ggzz

3645
3646
3647
3648

006256
006262
006264
006272

004137
014030
123727
001524

011520

ggg?

006302

000137

005624

3649

40$:

006274

152763

013100

000120

000002

000003

RESPONSE ON LOW ORDER CHANNEL ADDRESS

THE 2848 DEVICE EMULATION IS EXPECTED TO ISSUE
A CONTROL UNIT END ON THE LOW ORDER DEVICE ADDRESS
OF THE CONTROL UNIT.
MOST OTHER 360/370 DEVICES ARE EXPECTED TO ISSUE

CONTROL UNIT END ON THE DEVICE COMPLETING THE OPERATION.

1ST8
BNE
MOV
JSR

TSTTYP
408
#1,DEV
PC,SUDEV

;PROCESS SEPARETLY IF FRIEND
JFRIEND =-=QUEUE CU END ON BUSY UNIT
ser UP TO SEND CUE ON LOW ORDER CONTROLLER ADDR

JMP

LOOP

:LOOP BACK AND PROCESS NEXT TUMBLE TABLE ENTRY

MOovB

#QCUE,SCMD(DTAB); ousue CONTROL UNIT END

PAPITY ERROR WAS DETECTED

PPARER: JSR
.WORD
CMPB
BEQ

B8IS8
JMP

R1,INMES
PARMES
DXSTPF ,#°'P
STPDX

:PRINT ‘PARITY ERROR''

TCHIS

;CONTINUE WITH TUMBLE TABLE INTERROGATION

;STOP ON PARITY ERROR??
;YES, DiSABLE THE DX

#UCHK,SSTAT(DTAB) ;SET UNIT CHECK IN STATUS WORD

3652
3653
3654
3655

:
:
:

CHANNEL INITIATED SELECTION SEQUENCE
THUS FAR THE DEVICE NUMBER HAS BEEN VALIDATED

%223

TT2 CONTAINS THE COMMAND TO BE EXECUTED

;ggg

3660
3661

006306

3663
3664
%222

006320
006322
006326

3662

006312

004737

010322

123727

013100

001511
032704
001022

000111

3669
3670
3671
3672

006330
006332
006334
006336

105005
000305
105705
001437

3674
3675
3676
3677
3678
3679
3680
3681

006344
006346
006352
006354
006360
006362
006366
006372

001434
020527
003405
004137
014142
000137
110563
000421

006340

120527

000003

PC,CSPWST

CMPB

DXSTPF ,#'1]

011520
108:

STPDX
#CMDREJ,TT1
208

sRESET THE SPW STATUS BYTE
JON NEXT CHANNEL INITIATED SELECTION SEQUENCE

;WAS STOP ON ISS SPECIFIED(SI)

JYES, DISABLE DX
JWAS COMMAND REJECTED BY DX?
JYES, COMMAND REJECTED BY THE DX

VALID COMMAND, SET UP TO PROCESS IT
CLRB
SWAB
1ST8
BEQ

112
112
112
508

;RESET DEVICE ADDRESS BITS
;COMMAND TO L.O. BYTE
;TEST 170 COMMAND?
sYES, IGNORE

BEQ
], [
BLE
JSR
LWORD
JMP
MOVB
BR

S0$
172,412
108
R1,INMES
INVLDC
DXAB
T72,SCMD(DTAB)
508

;YES, IGNORE 17
J1S THIS A VALID COMMAND?
;YES, QUEUE TO BE EXECUTED
sNO == REPORT AN ILLEGAL COMMAND RECIEVED FROM THE DX

CMPB

000012

006550
000000

JSR

BEQ
BIT
BNE

000001

%gg;

3673

PCHIS

AND THE COMMAND CHECKED BY THE DX

TT2.,#NOP

:WAS COMMAND A NOP?

:AND ABORT THE PROGRAM
;QUEUE COMMAND TO BE PROCESSED
JEXIT + PROCESS NEXT T/T ENTRY

SEQ 79

c
MAINDEC=11-CZDX]-C

C2OXIC.P11

NEW DX11-8 RESPONDER

07-JUN-82 16:21

3682

gggg

006376

006400

105763

001404

000016

208:

%2%3
3690

3691
3692
gggz

:
006402

006410
006412
006416

052763

000412
032704
001404

000100

000002

100000

3695

gggg

3698

gggg

006426

052763

000403

000040

%;8%

g;gg

052763

000200

3706

%;8;

3709

3710
3711
;;}g

006436

006442
006444
006450

120037

001002
105037
000137

006460
006464

105037

004737
103017

3736

3737

006470
006474

105037

#INTREQ,SSENSE(DTAB) ;SET INTERVENTION REQUIRED IN SENSE BYTE
508
#PARER,TT1
408

:FINISH UP CHANNEL INITIATED SELECTION PROCESS
“WAS A PARITY ERROR DETECTED?
SNO, MUST BE ILLEGAL COMMAND

SET UP BUS OUT SENSE RESPONSE

#BUSOUT,SSENSE (DTAB) :SET BUS OUT FLAG
508

JEXIT

INVALID COMMAND RECEIVED FROM 360

408

BIS

;

CHANNEL INITIATED SELECTION SEQUENCE COMMON EXIT LOGIC

SET UP COMMAND REJECT SENSE RESPOMSE

#SCMDRJ,SSENSE(DTAB) ;SET CMD REJ FLAG
IF SELECTED DEVICE HAS COMMAND CHAINING IN AFFECT == KILL IT

013106
005376

608:

;
:
;
;

CONTROL UNIT END OF DATA TRANSFER WAS DETECTED
IF TRANSFER COMPLETE PREPARE ENDING SEQ RESP
IF TRANSFER INCOMPLETE INCR BUFFER ADDRESS

013102
010354

000404

004737

DEVICE OFF=LINE == RESPOND INTERVENTION REQUIRED SENSE CONDITION

8IS

013102
010354

CMPB

DEV,CMDCHF

60$
CMDCHF
LOOP

;DOES DEVICE HAVE COMMAND CHAINING SPECIFIED?
*NO, GET NEXT TUMBLE TABLE ENTRY
SYES, CLEAR THE COMMAND CHAINING FLAG
:AND GET THE NEXT T/T ENTRY

DECR BYTE COUNT

PCUEND: CLRB
JSR
BCC

DXACT

PC ,MUXEND
PCHEX

;CLEAR DX ACTIVE FLAG

*HANDLE MUX DATA TRANSFER COMPLETION
SIF SEL CHAN OR MUX D/T NOT DONE, MERELY EXIT

;

MUX DATA TRANSFER COMPLETE

’

;
:
:

CHANNEL END WAS DETECTED

006466

TEST PARITY ERROR

BNE
CLRB
JMP

%;S?

3729
3730
3731
3732
3733
gggg

“YES,

§0s:

3725

3728

;1S DEVICE ON LINE?

COMMAND WAS REJECTED BECAUSE OF A PARITY ERROR

006454

SONLF(DTAB)

308

013106

%;58

3722
g;gz

TSTB

BEQ

3714
3715
3716
3717
3718

3721

000002

PAGE 80

308:

006430

16:28

BR
BIT
BEQ

000002

3701

07-JUN-82

COMMAND WAS REJECTED, DETERMINE WHY

BIS

;

006420

30A(1052)

DX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC)

gggz

3685

MACY11

TREAT SAME AS SEL CHANNEL DONE

PCHENT

PREPARE ENDING SEQUENCE RESPONSE

PCHEND: CLRB
JSR

DXACT

PC,MUXEND

;CLEAR DX ACTIVE FLAG

:IF MUX CHANNEL HANDLE DATA TRANSFER

SEQ 80

o
MAINDEC-11-C20X]1~C

CZoxIC.P11

006500
006506
006510
006516
006524
006530
006532
006540

07-JUN-82 16:
21
123727
001416
112763
167763
032704
001403
152763
000137

013100

000104

000003
003766

000000
000014

000020
005376

000002

100000

MACY11 30A(1052)
07-JUN-82
16:28 PAGE 81
DX11-B ISR (TUMBLE TABLE ENTRY PROCESSING LOGIC)
PCHENT:

ODXSTPF ,#°'D

CMPB
8EQ

STPDX

MovB

PCHEX:

108:

006544

105037

013100

006550
006556

042777
105237

001100

006562

000137

010224

003724

sus
BIT
BEQ
BISB
JMP

105737
001002
000137

012540

XEXEC:

007222

108

013110

010242
000000

013106

ABORT

CURRENT DX OPERATION
UNRECOVERABLE ERROR OCCURRED

8IC
INCB

#DXONLN!DXENB,aDXCS

000001

000011

000000

013101

30$:

¢CLEAR STOP FLAG

DXABF L

TST8

BNE
JMP

SEX

CHTYPE
SEX
MEX

THE DX

;CHANNEL TYPE 0=M, 1=$S
sSELECTOR CHANNEL EXEC

sMULTIPLEXER EXEC

== SELECTOR CHANNEL EXECUTIVE

SEX EXECUTES COMMANDS FOR THE DX TO A SELECTOR CHANNEL
ON A SELECTOR CHANNEL A COMMAND WILL BE COMPLETED

BEFORE ATTEMPTING TO EXECUTE A COMMAND ON ANOTHER
DEVICE, ISS-DATA TRANSFER-ES.

DATA TRANSFERS ARE COMPLETED IN ONE BURST

SELDEV,DEV

;GET SEL DEV #

MOV
JSR
TST8
BNE
1ST8

PC,SUDEV

SCMD (DTAB)
608
gggcur

*SET UP DEV STATUS TABLE ADDR

JMP

DXEXIT

SYES, WAIT FOR COMMAND

403

cNO, CONTINUE

60$

sFOR THE READ MANUAL INPUT

(MPB

SRDRQ(DTAB)
,#1

#11,SCMD(DTAB)

40$:

;DISABLE

sSET THE DX ABORT FLAG SO THE
sDX REGISTERS WILL BE PRINTED
DXEXIT
cEXIT FROM INTERRUPT
DX11-B ISR (SELECTOR CHANNEL COMMAND EXECUTION)

EXECUTE NEXT COMMAND FOR THE DX

8EQ

010224
000017

SOMEONE WANTS TO INVESTIGATE
DXSTPF

N TN TN

013700
004737
105763
001030
105737
001402
000137
126327
001004
112763
000413
005200
120037

om
" x

006600

:NO, PROCESS NEXT TUMBLE TABLE ENTRY

CLRB

N P P P

006566
006572
006574

sYES, DISABLE DX

#EQPCHK,SSENSE(DTAB) YES, SET EQUIP CHECK IN SENSE
LOOP
sLOOP BACK + PROCESS NEXT TT ENTRY

JMP
.SBTTL
e,

013104

:STOP ON DATA TRANSFER DONE?(SD)

#CEDE,SCMD(DTAB)
;QUE END SEQ RESPONSE
8DXBC,SRBYTC(DTAB) .SAVE REMAINING BYTE COUNT
#PARER,TT1
sWAS A PARITY ERROR SENSED?

STOP DX,

E
Y7,
L N

3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760

NEW DX11-B RESPONDER

DEV
DEV,MAXDEV

*ANY JOB TO DO?
*YES, EXECUTE IT
::ss COMMAND CHAINING SPECIFIED
IS ATTENTION TO BE SENT?

YES,

SET UP TO SEND THE ATTENTION

sTO NEXT DEV
SHAVE WE TRIED THE HIGHEST DEVICE?

SEQ 81

E
C20x1C.P11

3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804

006656
006660
006664
006670
006672

006676
006702
006704
006706
006712
006716
006720
006722
006724
006726
006730
006732
006734
006736
006740

NEW DX11-B RESPONDER

07-JUN-82 16:21°

003402
012700
020037
001345
000137

116304
005304
006304
010037
000174
006742
007032
010054
010152
006742
007132
010002
007762
007772
007032

000001
013110

MACY11 30A(1052)
07-JUN-82 16:28 PAGE 82
DX11-B ISR (SELECTOR CHANNEL COMMAND EXECUTION)
BLE

50$:

010224

000000

013110
006716

[+ AR TR ¥
o
|

MAINDEC=-11-C2DX]~C

MOV

CMP
BNE
JMP

50$

#1,0EV
DEV,SELDEV
108
DXEXIT

THERE

IS A JOB TO DO,

MovB
DEC
ASL
MOV
JMP
SCMDTB: .WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

SCMD(DTAB)
,R4
R4
R4
DEV,SELDEV
aSCMDTB(R4)
SWRITE
SRM]
ESEQ
SENSCM
SWRITE
SREAD
ERASCM
CONUNE
SATIN
SSRM]

sNO

JYES, RESTART AT FIRST DEVICE
cIS THIS WHERE IT ALL STARTED?
sNOPE, TEST THIS DEVICE
JEXIT == NO TASKS PENDING
LETS DO IT

;COMMAND TO INDEX
JSCALE TOO - 11
sMAKE WORD ADDRESS
s SAVE CURRENT DEVICE ADDR
sEXECUTE THE COMMAND
;1 = WRITE FULL BUFFER
;2 = READ MANUAL INPUT
:3 = ENDING SEQUENCE
24 = SENSE COMMAND
;5 = WRITE LINE ADDRESS
:6 = READ FULL BUFFER
:7 = ERASE COMMAND
210 = CONTROL UNIT END
211 = SEND ATTENTION TO 360
;12 = READ SHORT MANUAL INPUT

SEQ 82

F
MAINDEC-11=C20X]-C

C20x1C.P11

NEW DX11-8B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

7
07-JUN-82

16:28

SEQ 83

PAGE 83

DX11-B ISR (SELECTOR CHANNEL COMMAND EXECUTION)

3817

PPN

%g%g

3821

PP teeteesecrecseriecissssccecneceessenssensteeeceeeeteeetessesiseneceaeenees

3818

3822
3823
3824
3825
3826

:
:
:

gg%g

3829
3830
3831
3832
3833
3834
3835
3836

006742
006750
006756
004762
006764
006770
006776
007004

016377
163777
013702
060002
110277
012777
116363
105063

003510
177037
000000
000002

3838
3839
ggz?

007014
007020
007026

005063
052777
000137

000014
000003
010224

3837

007010

110037

000006
013116
013122

003536
003530

003512
000001

013102

3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
%ggg

007032
007032
007036
007040
007044
007050
007052
007056
007062
007070
007074
007100
007102
007106
007110
007114
007116
007122
007130

105737
001035
105063
105763
001002
000137

105063
016377
016302
066302
005302
167702
100002
000137
005402
010277
163777
000411

SRM]:
SSRMI:

012544
000002
000017

010054
000017
000020
000010
000004

003416

003400

010054
003366
013116

208:

003356

3866
3867
3868
gggg

3871
3872

108:

:
;
:
007132
007140

016377
163777

000010
013116

003346
003340

SREAD:

R R PR R

BOTH WRITE AND WRITE LINE ADDRESS COME HERE

CLR
8IS
JMP
:
:

WRITE COMMAND RECEIVED FROM 360
PREPARE TO GET DATA FROM 360

MOVSB

3842
3843
ggzg

COMMANDS SPECIFICALLY FOR THE SELECTOR CHANNEL

SWRITE: MOV
suB
MOV
ADD
MOVB
MOV
MOVB
CLRB

003454

HHHHHHHHHHMHEMH

SINBF (DTAB) ,aDXBA ;SET UP BUFFER ADDRESS
PHYOFF ,aDXBA
:FOR VIRTUAL MEMORY == OFFSET FOR PHYSICAL ADDRESS
DEVCON,R2
;COMPUTE DEVICE ADDRESS
DEV,R2
R2.,aDXCA
#-DISPSZ-1,aDXBC;SET UP BYTE COUNT FOR MAX, WRITE LINE ADDRESS
SCMD(DTAB) ,SLCMD(DTAB)
:SET WRITE FLAG
SSENSE (DTAB)
;CLEAR SENSE BYTE

DEV,DXACT

SRBYTC(DTAB)
#DXWR ,aDX(CS
DXEXIT

;SET DX ACTIVE FLAG

RESET REMAINING BYTE COUNT
:START TRANSFER
;RETURN FROM INTERRUPT

PERFORM READ MANUAL INPUT COMMANDS

TSTB
BNE
CLRB
TSTC
BNE
JMP

CLRB

MOV
MOV
ADD
DEC
Sus
BPL

JMP
NEG
MOV
sus
BR

TSTTYP
SREAD
SSENSE (DTAB)
SRDRQ(DTAB)
108
ESEQ

;1S TEST FOR FRIEND?
:YES, TREAT ALL READS AS READ FULL BUFFER
JRESET THE SENSE BYTE
;WAS A READ REQUESTED?
;YES., CONTINUE
;NO, TREAT AS A NOP -~ END SEQ ONLY

SRDRQ(DTAB)
SMINS(DTAB) ,aDXBA ;SET UP STARTING ADDRESS
SOUTB(DTAB)
,R2 :;DETERMINE ENDING ADDRESS
SCURS(DTAB)
,R?2
R2
aDXBA,R?2
;COMPUTE BYTE COUNT
208
sINSURE VALID BYTE COUNT
ESEQ
s ILLEGAL
R2
R2.aDXBC
:SET UP DX'S BYTE COUNT
PHYOFF ,aDXBA
FOR MEMORY MANAGEMENT - OFFSET FOR PHY ADDRESS
SRD10
:START THE READ

READ COMMAND RECEIVED FROM 360

PREPARE TO SEND DISP BUFFER TO 360

MOV
suB

SOUTB(DTAB) ,aDXBA :SET UP BUFFER ADDRESS
PHYOFF ,aDXBA
sFOR MEMORY MANAGEMENT =~ OFFSET FOR PHY ADDRESS

G
MAINDEC-11-C20X[-C

CZoxIC.P1

3873
3874
3875
3876

007146
007154
007162
00716¢
007170
007174
007200
007204
007210
007216

NEW DX11-B RESPONDER

07-JUN-82 16:21

012777
116363
013702
060002
110277
105063
110037

005063
052777

000137

177040

000000
013122

003334

000001

003304
000002
013102

000014

000005
010224

MACY11 30A(1052)
07-JUN-82
16:28 PAGE 84
DX11-B ISR (SELECTOR CHANNEL COMMAND EXECUTION)
SRD10:

MoV

#-DISPS2,8DXBC

;SET UP BYTE COUNT

ADD

DEVCON,R2
DEV,R2

+COMPUTE DEVICE ADDRESS

MOVB
MoV

MovB
CLRB
MovB
003264

CLR

BIS
JMP

SCMD(DTAB) ,SLCMD(DTAB)

;SAVE CODE OF LAST (OM“AND

R2,8DXCA
SSENSE (DTAB)
DEV,DXACT
SRBYTC(DTAB)

<CLEAR SENSE BYTE
¢SET DX ACTIVE FLAG

DXEXIT

sRETURN FROM INTERRUPT

#DXRD,8DXCS

sRESET REMAINING BYTE COUNT
:START

TRANSFER

SEQ 84

H
MAINDEC-11-CZDX]1-C

CZox1C.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

3890
3891
3892
3893
3894
3895
3896
3897

SEQ 85

PAGE 85

.SBTTL

DX11-8 ISR (MULTIPLEXER CHANNEL COMMANDS)

MEX-~

MULTIPLEXER CHANNEL EXECUTIVE

007272
007274
007300
007302
007306
007312
007314

005200

120037

013106

010224
013110
010242
000000

INTERLEAVED.
THIS WILL PROHIBIT A TIME OUT TO OCCUR
IF A DEVICE IS NOT SERVICED UNTIL ALL OTHER DEVICES
BEFORE 1IT.
DATA TRANSFERS ARE DONE

HOG THE CHANNEL

108:

30%:

000017

000001

000011

000000

013110

1ST8

010224

MOV
JSR
1ST8

MDEV ,DEV
PC,SUDEV
SCMD(DTAB)

:COMPUTE ADDR OF DEV STAT TABLE
sANY J0O8 TO DO?

CMPB
BNE
Move
BR

SRDRQ(DTAB)
,#1
408
#11,SCMD(DTAB)
508

108
DXEXIT

508

sNO, CONTINUE
sYES, LEAVE DX FREE

cGET LAST DEVICE ADDR THAT HAD A COMMAND

cYES, EXECUTE IT

;1S ATTENTION REQUESTED?
:NO, CONTINUE
:YES, QUEUE ATTENTION
cFOR THE READ MANUAL INPUT

NO TASK PENDING FOR CURRENT DEVICE

BUMP TO INTERROGATE NEXT DEVICE ON CONTROL UNIT

THIS CODE WILL REPEAT SEQUENCES WHICH MAY HAVE RUN INTO
A LOCKOUT CONDITION IN THE DX.

INC
CMPB

DEV
DEV ,MAXDEV

MOV
CMP

#1,DEV
DEV,MDEV

JMP

DXEXIT

BNE

45%

308

¢INCR TO NEXT DEVICE NUMBER
sWAS DEVICE NUMBER WRAPPED AROUND?

cNO, SEE IF ALL DEVICES HAVE BEEN INTERROGATED

sYES, RESET THE DEVICE NUMBER
sNO JOB HERE, HAVE WE CHECKED ALL DEVICES?
sNO, EXAMINE NEXT DEVICE
sYES, EXIT FROM [SR

THIS DEVICE HAS A JOB TO DO,

Sos:

MOv8

DEC
ASL

MOV

JMP
MCMDTB: .WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

SCMD(DTAB)
,Ré

Ré
Ré

DEV MDEV

aMCMDTB(R4)
MWRITE
MRM]
ESEQ
SENS(CM
MWRITE
MREAD
ERASCM
CONUNE
SATIN
MSRM]

EXECUTE

;COMMAND TO INDEX

;SCALETO O - 11
sMAKE INTO WORD ADDRESS
sSAVE CURRENT DEVICE ADDRESS

EXECUTE THE COMMAND
= WRITE FULL BUFFER
READ MANUAL INPUT
ENDING SEQUENCE
SENSE COMMAND
-‘—'—‘\lo\-fi‘\wf\)—‘

007342
007344
007346
007350
007352
007354
007356
007360
007362

116304
005304
006304
010037
000174
007364
007514
010054
010152
007364
007612
010002
007762
007772
007514

LI Y
WXWO YR APYWA A
94

007320
007324
007326
007330
007334
007340

SO AS TO NOT

s1S COMMAND CHAINING SPECIFIED?

BLE
45%:

IN & BYTE BLOCKS,

CMDCHF

BEQ
JMP

BNE

013101
000001

000137

105737
001402
000137
013700
004737
105763
001023
126327
001004
112763
000413

ON A MULTIPLEXER MULTIPLE DEVICE REQUESTS WILL BE

Evvo 000, 0,0,0,

007222
007226
007230
007234
007240
007244
007250
007252
007260
007262
007270

MEX EXECUTES COMMANDS FROM THE DX ON A MULTIPLEXER CHANNEL

r LTI FI PN PN P PR PR P PN PR PR

3888
3889

3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913

MACY11 30A(1052)
07-JUN-B2
16:28
DX11-8 ISR (MULTIPLEXER CHANNEL COMMANDS)

3885
3886
3887

WRITE LINE ADDRESS
READ FULL BUFFER

ERASE COMMAND
0 = CONTROL UNIT END
1 = SEND ATTENTION TO 360
2 = READ SHORT MANUAL INPUT

1
MAINDEC-11-C2DX]~C

CZoxic.P11

NEW DX11-8 RESPONDER

07-JUN-82 16:21

MACY11 30A(1052)
07-JUN-82
16:28
DX11-B ISR (MULTIPLEXER CHANNEL COMMANDS)

PAGE 86

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo

OIOOOIOOOOOOOOOOIIIOIOOOOOOOOOOIOIOOOIIOISOPOIOEOIPOROOEONOLOOIOIOIOOIOEOEOILPOIOLOEOPPIOOPOIBGIDS

WRITE COMMAND RECEIVED FROM 360

PREPARE TO GET & BYTES OF DATA FROM 360
NOTE--BOTH WRITE AND WRITE LINE ADDR COME HERE

007364
007370
007372

007400
007406
007414

007422
007426
007430
007434
007442
007450
007452

007456
007460
007464
007470
007476
007502
007510

005763
001011
016363
163763
012763
016377
013702
060002
110277

012777
026327
002005
016302
005402
010277
105063
116363
110037
152777
000137

000014
000006
013116
000741
000012
013122

003044
177774

000014

URITE

000012
000012
000014
003064

108:

003046
000004

MoV
suB
MOV

MOV

MOV
abD
MOVB
MOV
CMP

B8GE

000014
003024
000002
000000
013102
000003
010224

TST

BNE

MOV

000001

20%:

002772

NEG
MOV

CLRB

MOVB
MOVB
g8Is8

JMP

SRBYTC(DTAB)
sWRITE IN PROGRESS?
108
:YES, SEND OUT MORE DATA
SINBF (DTAB) ,SBUFA(DTAB) ;SET UP BUFFER ADDRESS

PHYOQFF ,SBUFA(DTAB) ; FOR MEM MANG ~ OFFSET FOR PHY ADDRESS
#DISPSZ+1,SRBYTC(DTAB) ;SET UP BUFFER FOR MAX SIZE

SBUFA(DTAB) ,aDXBA .OUTPUT BUFFER ADDR TO DX
DEVCON,R2
sCOMPUTE DEVICE ADDRESS
DEV,.R2
R2,aDXCA

#-4,3DXBC
sSTART BYTE COUNT AT 4
SRBYTC(DTAB) ,#4 ;IS LESS THEN & BYTES LEFT?

208
:NO, START TRANSFER
SSBYTC(DTAB)R2 :YES, USE REMAINING BYTE CGUNT

R2,aDXBC

SSENSE (DTAB)

-CLEAR SENSE BYTE

#DXWR,8DXCS

sSTART THE TRANSFER

SCMD(DTAB) ,SLCMD(DTAB) ;SET WRITE FLAG
DEV,DXACY
sSET ACTIVE FLAG
DXEXIT

007514

007514
105737
001034
005763
001031
105063
105763
001002
000137
105063
016363

e G

READ MANUAL

MRM]
MSRM]:

012544

010263
163763

=
TSTB

000014

000002
000017
010054
000017
000020
000010
000004

000014
013116

INPUT COMMAND

TRANSFER ONLY THE DATA ENTERED ON THE SCREEN TO THE 360

TSTTYP
MREAD

sFRIEND OR 2848 DIAG?
sFRIEND == TREAT AS READ FULL BUFFER

MREAD

:BRANCH IF

SRBYTC(DTAB)

CLRB

TST8

10$:

000012

000012
007600
007604

THIS WILL

000012

JMP

sRETURN FROM INTERRUPT

SSENSE (DTAB)
SRDRQ(DTAB)

20$

sANY DATA LEFT TO TRANSFER?
YES TO CONTINUE

:RESET THE SENSE BYTE

sWAS THE READ REQUESTED?

;YES, CONTINUE

ESEQ
sNO, RETURN AN ENDING SEQ RESP DE'CE
SRDRQ(DTAB)
:CLEAR THE READ REQUEST
SMINS(DTAB) ,SBUFA(DTAB) ;SET UP THE ADDRESS OF THE DATA
SQUTB(DTAB)
,R2 ;COMPUTE THE BYTE COUNT
SCURS(DTAB)
,R2 END = START
R2
SBUFA(DTAB)
,R2 ;COMPUTE THE BYTE COUNT
10%
sNEGATIVE == SOMETHING IS WRONG
R2,SRBYTC(DTAB) ;SAVE FOR READ DRIVER
PHYOFF ,SBUFA(DTAB)

;FOR MEM MANAG ~ OFFSET FOR PHY ADDRESS

SEQ 86

MAINDEC-11-C2DX]1~C
NEW DX11-8 RESPONDER
MACY11 30A(1052)
07-JUN=-82
16:28
C20xIC.P1
07-JUN-82 16:21
DX11-8 ISR (MULTIPLEXER CHANNEL COMMANDS)

3997
3998
3999

4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
40N
4012
4013
4014
4015
4016

4017
4018

4019
4020
4021
4022

4023
4024

FALL

SEQ 87

PAGE 87

THROUGH TO NORMAL READ BUFFER ROUTINE

READ COMMAND RECEIVED FROM 360
PREPARE TO SEND & BYTES OF DATA TO THE 360

007612
007620
007624
007626
007634
007642
007650
007656
007662
007664
007670
007676
007704
007706
007712
007714
007720
007724

116363
005763
001011
016363
163763
012763
016377
013702
060002
110277

012777
026327
002005
016302
005402
010277
105063
110037

000000
000014

000001

000010
013116
000740
000012
013122

000012
000012
000014
002630

002610
177774

000014

MREAD:

BNE

MOV

;)

10$:

002612
000004

MOV
MOV
MOV
ADD
MOv8B
MOV
CMP

8GE

000014
002570
000002
013102

Mov8
TST

:
208

MOV
NEG
MOV
CLRB
Movs

SCMD(DTAB) ,SLCMD(DTAB) ;SAVE CODE OF LAST COMMAND FOR DISPLAY CONTROL
SRBYTC(DTAB)
¢READ IN PROGRESS?
108
:YES, SEND OUT MORE DATA
SOUTB(DTAB) ,SBUFA(DTAB) ;SET UP BUFFER ADDRESS

PHYOFF ,SBUFA(VTAB) :FOR MEM MANAG - OFFSET FOR PHY ADDRESS
#DISPSZ,SRBYTC(DTAB) ;SET UP TOTAL BYTE COUNT
SBUFA(DTAB) ,aDXBA ;SEND BUFFER ADDR TO DX

ggzcgg.az

;COMPUTE DEVICE ADDR

R2,3DXCA

;OUTPUT THE DEVICE ADDRESS

#-4 ,aDXBC
SOUTPUT THE BYTE COUNT =4382YTC(DTA8).#4 sSEE IF REMAINING BYTE COUNT LESS THAN 4

SSBYTC(DTAB).RZ sSET UP BYTE COUNT
R2,aDx8C
SSENSE (DTAB)
DEV,DXACT

sOUTPUT THE NEW BYTE COUNT == LT 4
sCLEAR SENSE AND SET DX ACTIVE FLAG
sSET DEVICE ACTIVE FLAG FOR SOF TWARE

BEFORE TRANSMIT IS STARTED SET BUSY FLAG IN DX11
TABLE FOR DEVICE

007730
007732
007736
007740
007744
007750
007756

010002
063702

013122

000137

013126
000020
000005
010224

MOV
ADD
ADD
ADD

002524

BIS
B1S8
JMP

DEV.R2
DEVCON,R2
R2,.R2
STSPW,R2

#8SY, (R2)
ggg;giaoxcs

STATUS

;COMPUTE ADDRESS OF SPW ENTRY
D
¢ X
;ADD IN SPW BASE ADDRESS
JSET UNIT BUSY FLAG
JSTART THE DX READING

K
MAINDEC=-11-C2DX]~C

CZbxIC.P11

MACY11 30A(1052)
07-JUN-82
16:28 PAGE 88
DX11-B ISR (MULTIPLEXER AND SELECTOR CHANNEL COMMANDS)
.SBTTL

007762
007770

152763
000434

000040

000003

DX11-B ISR (MULTIPLEXER AND SELECTOR CHANNEL COMMANDS)

POOIPIOIOOOOOOINIOIPOIROOOOOOOIIOINOPOOOOPIISINIOONIIOOIOIOIOOIOIOOIOIOOIOPOPPIPOOIOOIPOIPOPOEOPTYS

)% v, 00

PRESENT CONTROL UNIT END TO CHANNEL

ONUNE: 8IS8
BR

#CUE,SSTAT(DTAB) ;PUT IN STATUS BYTE
sTouT
sOUTPUT TO CHANNEL

SEND THE ATTENTION BIT TO THE 360

007772

010000

152763
000430

010002
010006
010012
010016
010022

000003

000010
000740
000100
012544

010024
010030
010032
010034

010036
010042
010046

000200

112763

8IS8

RASCM:

MoV
MOV

TST8

10$:

000000

N#ATTN, SSTAT(DTAB)

sTouTt

;PUT IN STATUS BYTE

sOUTPUT TO THE 360

ERASE THE DISPLAY

MOvB

012546

000004
000002
000003

SATTN:
Me.oos,

4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
6044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
6056
4057
4058
4059
4060
4061

NEW DX11-B RESPONDER

07-JUN-82 16:21

BEQ
MOv8
MOv8
DEC
BNE
CLR
CLRB

MOov8
FALL

SOUTB(DTAB)
,R4
#DISPSZ RS
#EBCDSP,R2
TSTTYP

10$
FILLCH,R2
R2,(R&)+

RS
108

SCURS(DTAB)
SSENSE (DTAB)

;SET UP BEG OF DISPLAY BUFFER
sSET UP COUNTER
sSET BUFFER FILL FOR 2848 DIAG
sIS TEST BEING RUN FOR 2848 RESPONDER

sYES, FILL BUFFER WITH EBCDIC SPACE
¢NO, USE CURRENT FILL CHARACTER
sMOVE FILL CHARACTER TO BUFFER
cDECR COUNTER
sNOT DONE, DO NEXT CHAR
sRESET THE CURSOR
sCLEAR SENSE BYTE

#CEDE,SCMD(DTAB)
; CHANGE COMMAND TO PRESENT END SEOQ
THROUGH TO PRESENT ENDING STATUS

PRESENT ENDING STATUS TO CHANNEL

010054

152763

000014

000003

BIS8

#CE!DE,SSTAT(DTAB)

;SET CH END + DEV END

PRESENT STATUS TO CHANNEL

THE STATUS IS BOTH PUT IN THE DX11-B SPW TABLE
AND SENT TO THE CHANNEL. CONDITIONS CAN OCCUR WHICH
féggSEgHE STATUS ENTRY TO THE CHANNEL TO BE

L
MAINDEC~11-CZDXI~C

4090
4091
4092
4093
4096

2832

010062
010066
010070
010074
010102

010104

07-JUN-82 16:21
013702
060002
110277
132763
001403

112763

013122

STOUT:

002404
000002

000003

000002

000003

4097
4098
2?38
4101
4102
4103

010112
010116
010120

105737
001004
060202

2}82

010126

105012

4106

010122

063702

0125640

4110
4171
2}}%

010136
010744
010150

116377

152777
110037
000425

000003

000007
013102

002346

002336

:
012777
060377
163777
013702
060002
110277
012777
110037
052777

4128
4129

4138

000002
002322
013116
013122
002274
177777
013102
000005

002326
002314

002276
002256

010224
070226
010230
010232
0102346
010236

010240

012605
012604
012603
012602
012601
012600
000002

16:28

PAGE 89

#UCHK ,SSTAT(DTAB)

;YES,

THEN SEND ONLY UNIT CHECK

TST8
BNE
ADD

CHTYPE
208
R2.R2

;SELECTOR CHANNEL?
JYES, DON'T CLEAR STATUS IN SPW TABLE
:COMPUTE ADDRESS OF SPW STATUS ENTRY

CLRB

(R2)

:CLEAR SPW STATUS ENTRY

STSPW, R?2

JOFFSET BY BASE OF SPW TABLE

OUTPUT THE STATUS TO THE CHANNEL
MOVSB

8Is8
MOVB
BR

SSTAT(DTAB),aDX0S ;OUTPUT STATUS 10 CHANNEL

#UXST,aDXCS
DEV,DXACT
DXEXIT

PRESENT TO CHANNEL
JSET DX ACTIVE FLAG
JRETURN FROM INTERRUPT

SENSE COMMAND DESIRED BY 360

SENSCM: MOV
ADD
sus
MOV
ADD
MOVB
MoV
MOVB
8IS
.

2}%?

4132
4133
4134
4135
4136
4137

0s:

20$:

2}}9
010152
010160
010164
010172
010176
010200
010204
010212
010216

DEVCON,R2
sOUTPUT DEVICE ADDRESS
DEV,RZ
R2,aDXCA
#UCHK,SSTAT(DTAB) ;IS THE UNIT CHECK BIT SET?
108
:NO,TRANSMIT THE STATUS

ADD

4114
4115

4118
4119
4120
4121
4122
4123
4124
4125
2}59

MOV
ADD
MOov8
8lIT8
BEQ

07-JUN-82

IF MULTIPLEXER CHANNEL
CLEAR ANY PENDING STATUS IN SPW STATUS ENTRY
(PROBABLY °‘BUSY'")

:
010130

30A(1052)

Move

013126

z}gg
4109

MACY11

DX11-B ISR (MULTIPLEXER AND SELECTOR CHANNEL COMMANDS)

-—d®
o 0o B¢ e 0,

cZoxIC.P1

NEW DX11-B RESPONDER

#SSENSE,aDXBA
DTAB,aDXBA
PHYOFF ,aDXBA
DEVCON,R2
DEV.RZ2
R2,8DXCA
#-1,3DXBC
DEV,DXACT
#DXRD,30XCS

;SET UP ADDRESS OF SENSE BYTE
;FOR MEMORY MANAGEMENT = OFFSET FOR PHY ADDRESS
:CGMPUTE DEVICE ADDRESS

:TRANSFER 1 BYTE
:SET DX ACTIVE FLAG
:START TRANSFER

EXIT FROM THE DX ISR

DXEXIT: MOV
MOV
MOV
MOV
MOV
MOV
RTI

(SP)+,RS
(SP)+ R4
(SP)+ R3
(SP)+,R2
(SP)
+ ,R1
(SP)+,RO

JRESTORE REGISTERS

SEQ 89

L4
MAINDEC~11-C2DXI~-C

czoxic.pP1

NEW DX11-B RESPONDER

07-JUN=-82 16:21

MACY11

30A(1052)

LSBTTL

DX11=-8 ISR (UTILITY SUBROUTINES)

07-JUN-82

DX11=-B ISR (UTILITY SUBROUTINES)

2}28

16:28

2}2}

SET UP ADDR OF DEVICE STATUS TABLE

6143

CALLING SEQUENCE

PAGE 90

4144
4145
4146
2}2;

S
:
S
:

eesses
JSR
eeese .

2}%3

ONLY REGISTER R3 IS MODIFIED BY THIS SUBROUTINE

SUDEV:

MOV
MOV
MOV
DEC
8EQ

SDEVTB,DTAB
R1,=(SP)
DEV.R1
R1
SUDEX

ADD

#2000,DTAB

6151
4152
4153
41546
4155

4156

4157
4158
4159

4160
4161

010242
010246
010250
010252
010254

010256

010262
010264
010266

013703
010146
010001
005301
001403

062703

000773
012601
0002¢7

013076

SuD10:
002000

SUDEX:

BR
MOV
RTS

RO = DEV #
PC,SUDEV
RETURN
R3 = ADDRESS OF DEVICE TABLE

SuD10
(SP)+,R1
PC

:START AT DEV 1
:SAVE R1
;DEC DEVICE NUMBER
sDONE, EXIT
sINCR TO NEXT DEV TABLE
:TRY AGAIN
RETURN TO CALLER

4162

CLEAR DEVICE STATUS TABLE

6165
4166
4167
4168

h
L
:
e

CALLING SEQUENCE
deaeee RO = DEV #
JSR
PC,CDEVST
eeseses RETURN

4170
an

:
:

2}22

L4169

46172

THE FOLLOWING TABLE ENTRIES ARE CLEARED
SCMD

4173
4174

:
:

2};;

2};2

4179
4180
4181
4182
4183
4184
2}32

R3 = ADDRESS OF DEVICE TABLE

SSTAT

SBUFA
SRBYTC

010270
010274
010300
010304
010310
010314
010320

004737
105063
105063
005063
005063
105063
000207

010242
000000
000003
000012
000014
000001

SLCMD

ONLY REGISTER R3 IS AFFECTED BY THIS SUBROUTINE

COEVST: JSR
CLRB
CLRB
CLR
CLR
CLRB
RTS

PC,SUDEV
SCMD(DTAB)
SSTAT(DTAB)
SBUFA(DTAB)
SRBYTC(DTAB)
SLCMD(DTAB)
PC

JSET UP ADDR OF DEVICE STAT TABLE
JRESET CURRENT COMMAND ENTRY

SJRESET
JRESET
JRESET
JRESET

DEVICE STATUS ENTRY
CURRENT BUFFER ADDRESS POINTER
REMAINING BYTE COUNT
LAST COMMAND ENTRY
JRETURN TO THE CALLER

4187
4188

CSPWST == CLEAR SPW STATUS BYTE

4191
4192
4193
4194

H
5
0
:

CALLING SEQUENCE
eeeenees DTAB (R3) POINTS TO CURRENT DEVICE STATUS TABLE
teeseees DEV (RO) CONTAINS CURRENT DEVICE NUMBER
JSR
PC,CSPWST

2}33

SEQ 90

N
MAINDEC=11-C2DX]1~C

010546
105763
001007
010005
063705
0605C5
063705
105015
012605
000207

000016

16:28

PAGE 91

........ RETURN TO CALLER WITH DEVICE STATUS BYTE RESET

010322
010324
010330
010332
010334
010340
010342
010346
010350
010352

4195
4196
6197
4198
4199
4200
4201

07-JUN-82 16:21

MACY11 30A(1052)
O07-JUN-82
DX11-8 ISR (UTILITY SUBROUTINES)
T

CZ0XIC.P11

NEW DX11-B RESPONDER

ALL REGISTERS ARE PRESERVED ACCROSS THIS SUBROUTINE

SPUWST: MOV
1ST8

BNE

MOV

013122

ADD
ADD
ADD

013126
10$:

CLRB
MOV

- RTS

RS,=(SP)

sSAVE REGISTER FOR SUBROUTINE USAGE

108
DEV,RS5

sNO, JUST EXIT
sGET DEVICE NUMBER AND COMPUTE

SONLF (DTAB)

DEVCON,RS
RS, R5
STSPW,RS

(RS)
(SP)+,R5

:1S DEVICE ON-LINE?

cADDRESS OF SPW STATUS BYTE
sRESET SPW STATUS BYTE
sRESTORE REGISTER

SEQ 91

CZ0x1C.P11

NEW DX11-B RESPONDER

07-JUN-82

MACY11 30A(1052)
07-JUN-82
DX11-8 ISR (UTILITY SUBROUTINES)

16:28

PAGE 92

MUXEND =~ HANDLE DATA TRANSFEP COMPLETIONS FOR MUX

CALLING SEQUENCE
........ R3 (DTAB) CONTAINS THE ADDRESS OF THE DEVICE STATUS TABLE

JSR
PC ,MUXEND
........ RETURN
(-BIT SET
=~ MUX DATA TRANS DONE
C=BIT RESET = SEL CHAN OR DATA TRANSFER NOT DONE
NO REGISTERS ARE AFFECTED BY THIS SUBROUTINE
TST8

BNE

CHTYPE

+SELECTOR OR MULTIPLEXER CHANNEL??

sSELECTOR CHANNEL == EXIT

MULTIPLEXER CHANNEL

BGT

#4 SRBYTC(DTAB)

10$

;DECR REAMINING BYTE COUNT

SIF > 1, DATA TRANSFER NOT COMPLETE YET

DATA TRANSFER COMPLETE ON MUX CHANNEL
CLR
SEC

SRBYTC(DTAB)

308

s INSURE REMAINING BYTE COUNT ZERO
sSET MUX TRANSFER COMPLETE FLAG

:GOTO COMMON EXIT

DATA TRANSFER INCOMPLETE
ADD

#4,SBUFA(DTAB)

;BUMP BUFFER ADDRESS

RTS

sRETURN TO THE

cLC

JRESET FLAG TO INDICATE MUX CHAN NOT DONE
CALLER

SEQ 92

MAINDEC-11-CZDX]1~C

CZoxIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

4239
4240
4241
4242
4243

4244
4245
4246
4247
4248
4249
4250
4251
4252
6253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265

SEQ 93

MACY11 30A(1052)
07-JUN-8B2
16:28 PAGE 93
DX11-B ISR (2260 DISPLAY CONTROL SUBROUTINE)
.SBTTL

MAINDEC-11-C2DX]1~C

DX11-8B ISR (2260 DISPLAY CONTROL SUBROUTINE)

DISPLAY CONTROL ROUTINE
THIS ROUTINE IS ENTERED AFTER DATA HAS BEEN
RECEIVED FROM OR WRITTEN TO THE 360.

DISCTL THEN FORMATS THE DATA TO CONFORM TO
A 2260 DISPLAY SCREEN If THE 2848 DIAG IS RUN

CALLING SEQUENCE
........ DTAB(R3) POINTS TO CURRENT DEVICE STATUS TABLE
JSR
PC.DISCTL
........RETURN

THIS SUBROUTINE

IS ONLY USED TO COMPLETELY EMULATE

A 2260°'S DISPLAY, THIS ALLOWS THIS PROGRAM TO BE USED
WITH THE 2848 RESPONDER DIAGNOSTIC.
NOTE == THE REMAINING BYTE COUNT

(SRBYT(C)

IS USED TO

INDICATE THE NUMBER OF CHARACTERS RECEJVED FROM THE CHANNEL.
IT IS SET UP AT THE COMPLETION OF AN 1/0

TRANSFER TO THE NUMBER OF CHARACTERS REMAINING IN
THE DX BYTE COUNT REGISTER.
NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE

010414
010416
010420
010422
010430
010432
010440
010442
010450

001522

000001

000002

000001

000012

000001

000006

MOV
MOV

MOV

CMPB

8EQ
CMPB

BEQ
CMPB
8tQ

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

sSAVE REGSITERS USED BY SUBROUTINE

R2,=(SP)

SLCMD(DTAB) ,#CMRMI ;WAS IT A READ MANUAL INPUT COMMAND?

DRM]
:IF
SLCMD(DTAB) ,#CMSRM]I

YES, PERFORM READ MANUAL iNPUT PROCEEDURE
;WAS IT A SHORT READ MANAUL INPUT?

DSRM]
:IF YES, EXIT
SLCMD(DTAB) ,#CMREAD ;WAS IT A READ FULL BUFFER COMMAND?
DREAD
;YES, RESET CURSOR ON READ FULL BUFFER

THE COMMAND MUST HAVE BEEN A 360 WRITE

DETERMINE TYPE OF

010452
010456

105737

001102

012544

TST8

BNE

ISTTYP

DISFRN

TEST BEING RUN

;TYPE OF

<FRIEND

TEST O = 2848

= FRIEND

FORMAT DISPLAY ALA 2260

010460
010464
010472

016301

126327
001016

000006
000001

000005

MOV
CMPB
BNE

SINBF (DTAB) ,R1
;GET ADDR OF START OF [NPUT
SLCMD(DTAB) ,#CMWTLA ;WAS LAST CMD A WRITE LINE ADDRESS?
208
sNO, NORMAL WRITE

WRITE LINE ADDRESS COMMAND
FIRST BYTE OF DATA BLOCK IS CURSOR LINE ADDRESS

005263

000014

042702

177760

112102

INC
MOvV8
BIC

SRBYTC(DTAB)
(R1)+,R2

#177760,R2

sINCR BYTE COUNT
sGET LINE NUMBER

sGET ONLY LINE NUMBER

D
MAINDEC-11-CZ0X]1~C

2ox1C.P11

4338
4339
4340
4341
6342
4343
4344

4345
4346
6347
4348
4349
4350

005063

000004

CLR

010512
010514
010516
010524
010526

005702
001405
062763
005302
000771

—_t.

00w,

010506

07-JUN-82 16:21

000050

SEQ 94

MACY11 30A(1052)
07-JUN-82
16:28 PAGE 94
DX11-B ISR (2260 DISPLAY CONTROL SUBROUTINE)

o
o

4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
43N
4312
4313
4314
6315
4316
64317
4318
4319
6320
4321
4322
4323
6326
6325
4326
4327
4328
4329
4330
4331
4332
4333
64334
4335
4336
4337

NEW DX11-B RESPONDER

000004

SCURS(DTAB)

COMPUTE CURSOR ADDRESS

CURS = LINE # « LINESIZE

TST
BEQ

<DONE?

ADD

gsc

208

.YES, MORE DATA INTO DISPLAY BUF

#LINSZ,SCURS(DTAB)

?58

;INCR TO NEXT LINE

;DECR LINE COUNT

MOVE DATA RECEIVED INTO DISPLAY BUFFER
THE DATA RECEIVED MANY BE ANY CONFIGURATION

OF EIGHT BITS, 0 - 255.

TO EMULATE A 2260 DISPLAY

THE RECEIVED CHARACTER IS '‘FOLDED’' INTO ONE OF
THE 64 CHARACTERS USED BY THE 2260. THIS FOLDING

IS PERFORMED BY TRANSLATING THE CHARACTER TO ASCI!
AND THEN BACK TO EBCDIC.
010530
010534
010540
010546
010550
010554
010556
010562
010566
010572
010576
010602
010606
010612

016302
066302
026327

000010
000004
000014

005263
112100
042700

000014

103077

116000

042700

20$:
000741

177400
011766
177400
000040
012366
000004
000025

MOV
ADD
CMP
BHIS
INC
MOVB

SOUTB(DTAB)
,R2
:COMPUTE DISPLAY ADDR
SCURS (DTAB) .R
SRBYTC(DTAB) ,#DISPS2+1 ;ALL CHARS PROCESSED?
DISCEX
SYES, EXIT
SRBYTC(DTAB)
“INCREMENT THE BYTE COUNT
(R1)+,RO
;GET THE NEXT BYTE RECEIVED AND BUMP POINTER

BIC

2177400, R0

BIC

#177400,R0

SSTRIP SIGN EXTENSION BITS,

MOv8
INC
gzgs

ATOETB(RO) ,(R2)
SCURS(DTAB)
égg).lNEULNE

;COMPLETE FOLDING BY RETRANSLATING TO EBCDIC
s INCR CURSOR PTR
sWAS A NEW LINE SPECIFIED?

MOVB

SuU8

EBCDTB(RO).RO

#40,R0

:STRIP SIGN EXTENSION BITS (IF ANY)

-FOLD CHARACTER INTO ASCII

CHARACTER SET

IF ANY

sSCALE INTO ASCII TABLE RANGE

NEW LINE COMMAND - ADVANCE CURSOR TO BEG OF NEW LINE
CURSOR = (CURSOR/I INESIZE ¢+ 1) « LINESIZE.
010614
010616
010620
010626
010630
010634
010642

010644

000050

000004
000050

000004
000004

001373

408:

CLR
INC

R2
R2

sCLEAR LINE CTR
< INCR LINE CTR

408

;KEEP DIVIDING

Su8

#LINSZ,SCURS(DTAB)

CLR
ADD

SCURS(DTAB)
:CLEAR CURSOR
#LINSZ,SCURS(DTAB)

BNE

508

8GT
DEC

CHECK FOR WRAP AROUND

010646
010654
010656
010662

026327
002725
005063
000722

000004
000004

000740

CMP

BLT

gkR

SCURS(DTAB) ,#DISPSZ ;CURSOR OVERFLOW DISPLAY BUFFER?

20$

gggRS(DTAB)

FRIEND TEST,

SEPARATE

:CURSOR OK, PROCESS NEXT CHAR

:OVERFLOW, RESTART CURSOR AT POS 0

1/0 BUFFERS DON'T COPY

INPUT TO OUTPUT BUFFER

C20x1C.P11

07-JUN-82 16:21

010664
010670
010672
010676
010702

012545

SEQ 95

MACY11 30A(1052)
O07-JUN-82
16:28 PAGE 95
0X11-B ISR (2260 DISPLAY CONTROL SUBROUTINE)

DISFRN:

000006
000010
000360

TST8
BNE

10BUF
DISCEX

SINBF (DTAB) ,R1
SOUTB(DTAB)
,R2
#DISPSZ/2,RO

s SEPARATE 1/0 BUFFERS?
sYES, DON'T COPY INPUT TO OQUTPUT
;SET UP INPUT BUFFER ADDRESS
;SET UP OUTPUT BUFFER ADDRESS
cTRANSFER THE INPUT BUFFER TO THE OUTPUT BUFFER

MOV
MOV
MOV

(=]
| 2

-—b®
e e

PERFORM COPY

000414

005063
000411

000004

010716
010722

MOV

DEC
BNE
BR
vesan,

010706
010710
010712
010714

READ:

(R1)+,(R2) ¢+

RO
108
DISCEX

¢ INPUT TO OUTPUT

sARE WE DONE?
¢NO, CONTINUE COPY
¢PREPARE TO RETURN TO CALLER

A READ FULL BUFFER WAS PERFORMED
THE CURSOR MUST BE RESET TO THE BEGINNING OF

CLR
BR

SCURS(DTAB)
DISCEX

A READ MANUAL

THE

010724
010730
010732
010736
010742

016301
005301
112711
166301

010163

000020

b RM]:

009100
000010
050004

MOV

DEC

INPUT WAS PERFORMED

Movs
Sus

MOV

INPUT CHARCATER

SMINS(DTAB)
,R1

;GET THE STARTING ADDRESS

#EBCDSP, (R1)
SOUTB(DTAB)
,R1

¢BLANK OUT THE CHARACTER
;AND COMPUTE THE CURSOR POSIT.iON

R1,SCURS(DTAB)

sDECREMENT TO THE SMI CHAR

A SHORT READ MANUAL INPUT WAS PERFORMED
NO ACTION REQUIRED BY DISPLAY CONTROL ROUTINE

DSRMI:

10746
10750
10752
10754

012602
012601
012600
000207

RESTORE REGISTERS AND RETURN TO CALLER

Cee

ve e,

010746

ISCEX: MoV
MOV
MOV
RTS

.SBTTL

TELETYPE

(SP)+,R2
JRESTORE SAVED REGISTERS
(SP)+,R1
(SP)+,RO
PC
:RETURN TO THE CALLER
TELETYPE (CONSOLE) INPUT ISR
INPUT HANDLER

SCREEN

sRESET THE CURSOR
sAND PREPARE TO EXIT

TO EMULATE THE 2260 SCREEN THE START OF MANUAL
MUST BE DELETED FROM THE SCREEN

elelele

4351
6352
4353
4354
4355
4356
4357
4358
4359
6360
4361

NEW DX11-B RESPONDER

MAINDEC-11-C2DX]1~C

(ISR)

CONTROL PASSES HERE ON A TELETYPE

INPUT INTERRUPT

DATA IS INPUT FROM THE CONTROL CONSOLE AND STORED INTO

F
MAINDEC-11-C2DX1~C

4434
4435
4436
4437
4438
4439
4440
4441

4442
4643
4644
4445
4446
4447
4448
4449
4450
4451
4452
4453
4456
4455
4456
457
4458
4459
4460
4461
4462

TELETYPE

MACY11 30A(1052)
(CONSOLE)

07-Jun-82

INPUT ISR

THE TELETYPE

16:28

SEQ 96

PAGE 96

INPUT BUFFER (TBUF). WHEN ALL THE DATA IS

ENTERED, THE OPERATOR HITS A C/R TO END THE LINE, THEN

gvs?ETIVE FLAG IS SET AND THE COMMAND EXECUTED BY THE

TH P FY
T T YY

THE FOLLOWING CONTROL FUNCTIONS ARE AVAILABLE fOR
OPERATOR CONVENIENCE.
C/R

Y
"¥
Y

011002
011004
011010
011014
011016
011022
011024
011030

011032
011036
0110462
011044
011050
011052
011056
011060

011064
011066
011072
011076
011102
011106
011110
011112
011116
011120
011124
011130
011132

010046
010146
017700

042700
013701
020027
001002
000137
020027
001003
105237
000503
020027
001010

KIN:

001502
177600
012754
000022
001002

000023

000021

68:

013105
013103

108:

013065

013066
012652
011232
013065
000015

020027

000177

s INSURE 7-BIT ASCII

TPTR,R1

;BUFFER PTR

*;CONTROL =R ?
;NO

RO,#CTL.S
6$

;CONTROL=S , TEMPORALILY STOP CONSOLE OUTPUT?
*NO, CONTINUE

RSTART

INCB
BR
CMP
BNE

TTYSTP
1008
RO.#CTL.Q
108

CMP
BNE

;GET TELE CHARACTER

RO, #CTL.R
3s

JMP

TTYSTP
PCIR

VRG-2-FEB-82

SYES, ALLOW OPERATOR TO REENTER ALL PARAMETERS
ves

SET FLAG TO STOP TTY OUiPUT
AND EXIT FROM INTERRUPT
| CONTROL=Q. RESUME CONSOLE OUTPUT?
*NO, CONTINUE

SYES,
:

1008
PC,PROUT
$
RO, #CTL.C

NO OUTPUT == EXIT
:
RESTART CONSOLE OUTPUT
:
AND EXIT FROM THE INTERRUPT
:COMMAND ABORT == CTL C?

TST8

TCMACT

*IS A COMMAND ACTIVE?

BNE

208§

90$

RESET CONSOLE STOP FLAG
CHECK TO INSURE OUTPUT TO RESUME

BEQ
JSR
BR
CMP

*NO

*NO, TREAT AS A DELETE LAST LINE

INCB
MOV
JMP

TCMDAS
#TBUF ,R1
008

SYES, SET ABORT FLAG
SSET UP BUFFER POINTER
SEXIT

BNE
MOVB
CMP

1008
RO, (R1)+
RO #CR

*YES. IGNORE CHARACTER
*STORE CHAR INTO BUFFER - INC PTR
LINE DELLIMETER =~ C/R?

MOV

#TBUF ,R1

SRESET BUFFER PTR

B8R

1008

:DONT PRINT THE LINE DELIMITER

TSTB

INCB

308:

#177600,R0

MOV

BNE

012652
013065

;SAVE REGISTERS

aTKk8, RO

BEQ

208:

= (BACKSLASH SHIFT L) = DELETE LAST LINE

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

MOV

CLRB
1ST8

011264

000003

MOV
MOV

CMP
BNE

013105

LINE DELIMETER
DELETE LAST CHARACTER

NOTE -=- A CONTROL Q@ MUST BE ISSUED AFTER A CONTROL S TO
RESUME CONSOLE OUTPUT

BIC

3s:

=
=

(CONTROL=C) = ABORT CURRENT COMMAND -~ FOR DUMPS
(RUB OUT) = DELETE LAST CHARACTER
(CTL~R) = REENTER ALL PARAMETERS
VRG-2-+EB~82
(CTL=U) = DELETE CURRENT INPUT LINE
(CTL=-S) = TEMPORARILY STOP OUTPUT TO CONSOLE
(CTL-@) = RESUME OUTPUT TO CONSOLE

PE TR TR

010756
010760
010762
010766
010772
010776

L AL ETE TN

4407
4408
4409
4610
W1
4612
4613
4614
4615
4616
4617
4418
4419
4620
4621
4422
4423
4424
4425
4426
4427
4428
4459
4430
4431
4432
4433

07-JUN-82 16:21

PRYR YR T

CZOXIC.P1

NEW DX11-B RESPONDER

CMP

TCMACT

30§

TCMACT

RO, #RUBOUT

STELE CMD CURRENTLY ACTIVE?

“NO

SYES, SET COMMAND ACTIVE FLAG

*A RUBOUT?

6
MAINDEC-11-C20XI~C

C20XIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

4463

011136

001002

4465

011144

120027

464

4466

011140

011150

012700

001002

000137

000025

408:

30A(1052)

BNE

4os

(MPB

no #CTL.U
#'\,RO
PC,PCHAR
RO.#°_
608
=(R1),~(R1)
R1,ATBUF
70§
RO, #°\
80%
ATBUF ,R1

vss DECR POINTER BY 2
ARE WE
BEYOND BEG OF THE BUFFER?
SYES, RESET TO BEG OF BUFFER
*DELETE CUR LINE == BACK SLASH?
*NO
SYES, RESET BUFFER PTR

(CONSOLE)

MOV

BNE

07-JUN-82

INPUT ISR
RO

508

:NOPE
:YES,

16:28

PAGE 97

TREAT AS A DELETE LAST CHARACTER

*CONTROL=U?

(DELETE CURRENT INPUT LINE)

*NOPE, CONTINUE

4467
468
4469
4470
4471
4472
4473
4474
4475
476

011152
011156
011162
011166
011170
011172
011176
011200
011204
011206

112700
004737
020027
001004
1241641
020127
003403
020027
0010064
012701

000134

608:

012652

708:

MOVB
JSR
CMP
BNE
CMPB
CMP
BLE
(MP
BNE
MOV

4478

011216

020127

012752

808:

(MP

R1.#TBUFE

*WERE LIMITS EXCEEDED?

011224

012700

000134

90$:

MOV

c'\ RO

STHEY WERE == TREAT AS A LINE ABORT

011232
011236
011240
011242

010137
012601
012600
000002

012754

1008:

MOV
MOV
MOV
RTI

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

;SAVE BUFFER FTR
‘RESTORE REGISTERS + EXIT

4477

479

480

4,81

4,82
4483
4484
4485

011212

011222

011230

004737
001003

000740

000134
011400
000137

TELETYPE

MACY11

508:

012652

011342

JSR

BNE

B8R

PC.CRLF
1008

308

SYES, TREAT AS DELETE LAST LINE (BACKSLASH)
SECHO THE CHARCTER BACK
DELETE LAST CHAR == BACK ARROW?

INEW LINE FOR NEW COMMAND
INOPE, EXIT

SEQ 97

MAINDEC-11-CZDX]-C

C20xIC.P11
4486
4487
4488
4489
4490
469N
6492
4493
4494
4495
4496

NEW DX11-B RESPONDER

07-JUN-82 16:21

TELETYPE

MACY11

30A(1052)

.SBTTL

TELETYPE

(CONSOLE)

013064
013103

011264

PISR:
10%:

ISR

16:28

PAGE 98

(CONSOLE) OUTPUT ISR

TELETYPE OUTPUT DRIVER (ISR) == PRINT

;
105037
105737
001402
004737
000002

OUTPUT

07-JUN-82

CONTROL PASSES HERE ON A TELE OUT INTERRUPT
CLRB

PIUFL

:CLEAR PRINTER BUSY FLAG

BEQ

108

;NO, EXIT

TST8B

JSR
RTI

PCIR

PC.PROUT

SANY MORE DATA TO PRINT?

:OUTPUT ANOTHER CHAR

SEQ 98

l
MAINDEC-11-C20X]~C

CZoxIC.P11

N I WY
N PN
N
I P FE TN PN TN PN

THE PRINTER BUSY FLAG IS SET AND A CHARACTER

v.. L

TST8

BNE

TST8

BNE
INCB

012756

013060

IS SENT

TO THE

NO REGSISTERS ARE MODIFIED BY THIS SUBROUTINE

013060

20$:

PIUFL

208

TTYSTP

208
PIUFL

DECB

PCTR

INC
CMP
BNE

PFPTR
PFPTR ,#PBFE
208

MOvVS8

MOV

RTS

aPFPTR,aTPB

#PBFS ,PFPTR

c1S IT BUSY?
JYES, EXIT
sHAS CONSOLE OUTPUT BEEN SUSPENDED?
sYES, RETURN IMMEDIATELY TO CALLER
sNO, SET BUSY FLAG
sDECR CHAR COUNTER
sOUTPUT NEXT CHAR
¢INCR PRINT FETCH POINTER
cTIME TO WRAP AROUND?
sNO, EXIT
sYES, RESTORE TO START OF BUFFER
¢sRETURN TO CALLER

PRINT A CR/LF

CALLING SEQUENCE
PC,CRLF
JSR
........ RETURN
NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE
by

010246
012702
004737
012602
000207

IF TELETYPE QOUTPUT IS CURRENTLY IN PROGRESS OR HAS BEEN SUSPENDED BY A CONTROL CONTROL IS RETURNED IMMEDIATELY WITH NO ACTION
BEING INITIATED.
IF TELETYPE OUTPUT IS NOT CURRENTLY IN PROGRESS

013105

001156

TELETYPE OUTPUT HANDLING SUBROUTINES

RETURN

ROUT:

013064
013103
001544
013060
013060

SEQ 99

PAGE 99

CALLING SEQUENCE
PC,PROUT
JSR

105737
001020
105237
105337
117777
005237
023727
001003
012737
000207

013064

16:28

SEND DATA TO PRINTER, IF NOT BUSY

105737
001023

07-JUN-82

TELETYPE OUTPUT HANDLING SUBROUTINES

(N
e e B 0,0, 0,8, % 0,

D
b
b

NN W WWNWWWNI
PN N
S WNN
=2 =00
~NO
o~
ONONOO SO

Gur uurfhurd
G- G

b e
b

G
b o
b
b
b

6517
4518
4519
4520

([elelelelelelelalalelale]

6516

07-JUN-82 16:21

MACY11 30A(1052)
.SBTTL

prar Qi Quur Gunr G

4497
4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
45N
4512
4513
6514
4515

NEW DX11-B RESPONDER

MOV
MOV
JSR
MOV
RTS

R2,=(SP)
#105215,R2
PC,PRINTZ2
(SP)+,R2
PC

sSAVE THE R2 REGISTER
:D0 A CRLF
sPRINT

sRESTORE THE R2 REGISTER
cRETURN TO THE

CALLER

PRINT 2 CHARACTERS ON THE TTY

CALLING SEQUENCE
...... R2 CONTAINS DATA TO BE PRINTED (2 BYTES)
JSR
PC,PRINT?
...... RETURN
NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE

TERMINAL

011360
011364
011370
011372
011374
011376

010237
004137
011374
000207
000000
377

011374
011504

377

30A(1052)

PRINTZ2: MOV
JSR
.WORD
RTS
P2BF:
.WORD
.BYTE

R2,P2BF
R1,MESG
P2BF
PC
0
377,377

O07-JUN-82

TELETYPE QUTPUT HANDLING SUBROUTINES

:
:
:
:
L
:

PRINT 1

16:28

PAGE

100

CHARACTER

CALLING SEQUENCE
tesesses RO CONTAINS THE CHARACTER TO BE PRINTED
JSR
PC,PCHAR

222;

{

2298

NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE

PCHAR:

MOVB
JSR
.WORD
RTS
.BYTE

4571
4572
4573
4574
4575

011400
011404
011410
011412
011414

110037
004137
011414
000207
000

011414
011504

377

P1BF:

SEQ 100

teeesens RETURN WITH THE DATA [N THE PRINT BUFFER

RO,F1BF
R1.MESG
PI1BF
PC
0,377

JRETURN TQ THE CALLER

4553
4554
4555
4556
4557
4558
4559
4560
4561
4562
4563
4564
4565
4566

07-JUN-82 16:21

MACY11

C20x1C.P11

NEW DX11-8B RESPONDER

MAINDEC-11-C2DXI~-C

K
07-JUN-82 16:21

MACY11

30A(1052)

O07-JUN-82

TELETYPE OQUTPUT HANDL ING SUBROUTINES

16:28

PAGE

4576
22;5

:
:

PRMESG PRINT A CHARACTER STRING

4579
4580
4581

223%

;
:
;

CALLING SEQ
esesesssR2 CONTAINS THE STARTING ADDRESS OF
JSR
PC,PRMESG

223@

NOTE == MESSAGE MUST BE TERMINATED BY A 377

4603

011500

011502

012756
011264
013103
013062

013142

208:
30$:
408:

012602

JRETURN TO THE CALLER

(SP)+,R2

RTS

MoV

000207

sGET NEXT CHAR

:EXIT, RESTORE PUT PTR
:RESTORE REGS

108

gemn

R3,PPPIR
(SP)+,R3

MoV
MOV

B8R

:GET PRINT OUTPUT POINTER
;END OF MESSAGE?
JYES, EXIT
;NO MOVE NEXT CHAR TO PRINT BUFFER
;INCR CHAR COUNTER
;AT END OF BUFFER?
:NO
:YES, WRAP AROUND TO BEG OF BUFFER
;CAN WE START PRINT?
;1S PRINT BUFFER FULL?
JYES, WAIT TILL ROOM AVAILABLE

PPPTR,R3
(R2) , 4377
408
(R2)+,(R3)+
PCIR
R3,#PBFE
208
#PBFS.R3
PC.PROUT
PCTR, PMAX
308

228?

000756

013103
013060

MoV
CMPB
BEQ
Mov8
INCB
CMP
BNE
MoV
JSR
CMPB
BEQ

010337
012603

011470

108:

011472
011476

4600

013062
000377

4601
4602

:
NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE
PRMESG: MOV
R2,=-(SP)
:SAVE REGS
MOV
R3,~(SP)

013703
121227
001417
112223
105237
020327
001002
012703
004737
123737
001774

010246
010346

tesees RETURN

011422
011426
011432
0114346
011436
011442
011446
011450
011454
011460
011466

011416
011420

THE MESSAGE

(TR

4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599

SEQ 101

101

ey gy

C20xIC.P1M

NEW DX11-B RESPONDER

MAINDEC=-11-C2DXI~-C

4610

MESG == PRINT A CHARACTER STRING ON THE SYSTEM CONSOLE

2283

)

4606
4607

NOTE =~ MESSAGE MUST BE TERMINATED BY A 377

22};

NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE

MESG:

MOV
MoV
JSR
MOV

RTS

INMES PRINT A CHARACTER STRING

4629
4630

:
:

CALLING SEQUENCE
JSR
R1,INMES

U
Pon

e
wu
SR

.WORD ADDRESS OF MESSAGE

225;

4625
4626

PR SR PN

JRETURN TO THE CALLER

000201

:SAVE REGISTER
;GET ADDRESS OF MESSAGE AND BUMP FOR RETURN
;MORE MESSAGE PROCESSING
sRESTORE SOILED REGISTER

011416

R2,-(SP)
(R1)+,R2
PC,PRMESG
(SP)+,R2

011516

010246
012102
004737
012602

2252

011506
011506
011510
011514

tesessces RE TURN

4619
4620
4621
4622

{

22}2

R1,MESG
ADDRESS OF START OF MESSAGE

JSR
.WORD

FUR

FTR

CALLING SEQUENCE

:
:

4611
4612

L
MAINDEC=11-C2DXI~C

C20XIC.P11

NEW DX11-8B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

8
07-JUN-82

TELETYPE OUTPUT HANDLING SUBROUTINES

16:28

PAGE

102

22%%

eeessRETURN

4634

;

INMES IS USED FOR ROUTINES AT THE ISR LEVEL AND DOES

289

4635

;

NOT CHECK TO SEE IF DATA WILL BE OVERLAYED IN

TELEBUFFER

zggg

;

NOTE == THE MESSAGE MUST BE TERMINATED BY A 377

222?

;

NO REGISTERS ARE MODIFIED BY THIS SUBROUTINE

4642

46643
4644
4645
4646
4647
4648
4649

011520

011522
011526
011534
011536
011542
011546
011550

010246

113746
112737
012102
004737
112637
012602
000201

013142
000377
011416
013142

INMES:
013142

MOV

MOVB
MOVB
MOV
JSR
MOVB
MOV
RTS

R2,=(SP)

PMAX,~(SP)
#377.PMAX
(R1)+,R2
PC,PRMESG
(SP)+,PMAX
(SP)+.R2
R1

;CHEAT, SAVE PMAX
*AND MAKE VERY LARGE
;USE STANDARD MESSAGE PROCESSOR
*RESTORE PRINT MAX
;RETURN TO CALLER

SEQ 102

MAINDEC=-11-CZDXI~C

C2bxIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

07-JUN-82

16:28

PAGE

103

.SBTTL

UTILITY SUBROUTINES (CONVERT OCTAL OR HEX TO BINARY)

222?

222%

COTB == CONVERT ASCII OCTAL TO BINARY (COTB)

4654
4655

:
i

222;

CALLING SEQUENCE
eesees R2 = CHAR ADDRESS OF FIRST CHARCTER TO BE CONVERTED

JSR

4659
4660
4661
4662

:
:
:
;

UPON RETURN THE FOLLOWING REGISTERS WILL CONTAIN
R2 = NEXT CHAR POSITION AFTER LAST ILLG CHAR
R3 = BINARY RESULT OF CONVERSION
R4 = (BITS 0=-7) FIRST NON-OCTAL CHARACTER

CoTB:

CLR
CLR
MOVB

R3
RS
(R2)+,R4

CMPB
BLT
BIC
ASL
ASL
ASL
ADD

RG,#'0
208
#177770.R4
R3
R3
R3
R4 ,R3

BR
RTS

108
PC

4656

zggz

4665
4666
4667

011552
011554
011556

005003
005005
112204

4670
4671
4672
4673
4674
4675
4676

011566
011572
011574
011600
011602
011604
011606

120427
002410
042704
006303
006303
006303
060403

4678
4679

011612
011614

000761
000207

4668
4669

4677

011560
011564

011610

120427
003013

000067

108:

000060
177770

005205

RS = NUMBER OF CHARACTERS CONVERTED

CMPB
BGT

INC

208 :

PC.COTB

eevess RETURN

RG &7
20§

JGET NEXT CHAR

:CHAR GT 72
SYES EXIT

:CHAR LT 0?
JYES, EXIT
JSAVE ONLY L.S. 3 BITS
JSHIFT OLD RESULT BY 8

;ADD IN NEW NUMBER
:INCR CHAR COUNT
JGET NEXT CHAR
:RETURN TO CALLER

SEQ 103

N
MAINDEC-11-C2DXI~C

cZoxic.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

MACY11

30A(1052)

8
07-JUN-82

16:28

PAGE

104

UTILITY SUBROUTINES (CONVERT OCTAL OR HEX TO BINARY)

4680
22%}

:
:

CHTB == CONVERT ASCII HEX TO BINARY

4683
4684
4685

.
¢
.

CALLING SEQUENCE
eeseee R2 = ADDRESS OF FIRST CHARCTER TO BE CONVERTED
JSR
PC,CHTB

4686
4687
L688
4689
4690

)

2235

4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704

4705
4706
4707

011616
011620
011622
011626
011630
011632
011636
011640
011644
011650
011652
011656

011660
011662
011664

005003
005005
112204
162704
100422
020427
002410
162704
020427
002012
020427
002407
006303
006303
006303

011666

006303

4712

011676

005302

4713
4714

eeeesee .RETURN
UPON RETURN
R2 = NEXT CHAR POSITION NOT CONVERTED
R3 = BINARY RESULT
R& = (BITS 0=7) FIRST NON HEX CHARACTER

CHTB:

(LR
CLR
MovB
sus
B8M]
CMP
BLT
SuB
CMP
BGE
CMP
BLT
ASL
ASL
ASL

4708

4709
4710
4711

S
:
:
:
N

011670
011672
011674

011700
011702

000060

10%:

000012
000007
000020

000012
20$:

ASL

060403
005205
000752

112204
000207

RS = NUMBER OF CHARACTERS CONVERTED

ADD
INC
B8R
30$:

DEC

MOVB
RTS

R3
RS
(R2)+ R4
#'0,R4
30%
R4 ,#10.
208
#7 R4
R4, #16.
308
R4, #10.
308

R3
R3
R3
R3
R4 ,R3
RS
108
R2
(R2)+,R4
PC

JGET THE FIRST CHARACTER
sSCALE RELATIVE TO ASCII ZERO
JNOT A VALID HEX CHAR
;1S RESULT STILL GT 10?
JYES, WE HAVE A VALID HEX DIGIT

JIS IT A LE TER?
JNO, INVALID CHAR
JAND GT 10
;NO,ILLEGAL CHAR
;MAKE ROOM FOR NEW ENTRY

JINSERT NEW ENTRY
JINCR CHAR COUNT
JAND CONVERT NEXT CHAR
JGET THE

ILLEGAL CHARCTER

JAND PUT IT R4
JITS TIME TO RETURN TO THE CALLER

SEQ 104

L4718

4719
(720
4721

2;g§

4724

2;%2

011796

011710

012702

000404

014235

4727
4728
4731

4732
4733
4734
4735
4736

4737

4738
4739
2;2?

011712

005037

011716
011722
011726
011730
011734

012701
000005
105037
005077
004737

011744
011746
011750

001375
0000C0
000137

011740

105737

177572

014261

013064
177776
011416

013103

022626
005037
000137

177776
001206

MOV

#PMTO,R2

TOUTRT

;SET UP ADDRESS OF

TST8

BNE
HALT
JMP

THE PRINT ROUTINE

:TO GENERALIZED TRAP OUT ROUTINE

(LR

MOV
TOUTRT: RESET
CLRB
CLR
JSR

UNTRP:

* ,SRO

:CLEAR THE MEMORY MANAGEMENT BIT

#PMMERR ,R1

;SET UP ADDRES OF ERROR MESSAGE
sCLEAR ALL DEVICES
;CLEAR PRINT IN USE FLAG
sLOWER PROCESSOR STATUS TO ALLOW INTERRUPTS TO CuM
PRINT THE ERROR MESSAGE

PIUFL
PSW
PC,PRMESG

PCTR
108

STARY

;1S PRINTING DONE?

JYES, HALT

INVALID UNIBUS ADDRESS TRAP
(MP
CLR
JMP

(SP)+,(SP)+
PSW
NEWPRM

;POP THE PUSH STACK
sCLEAR THE PROCESSOR STATUS WORD
JASK OPERATOR TO REENTER THE DATA

SEQ 105

105

MEMORY TIME OUT ROUTINE

MMERR:

10$:

PAGZ

TRAP OUT ROUTINES

MEMORY MANAGEMENT TRAP OUT ROUTINE

:
:
011754
011756
011762

PROCESSOR ERROR TRAP MANDLERS

16:28

;

001000

4742
4743
2;2§
4746
4747
4748

MTO:

2;%3

.SBTTL

O07-JUN-82

PROCESSOR ERROR TRAP HANDLERS

2;}2
4717

30A(1052)

OO
OO
s
s
e

07-JUN-82 16:21

MACY11

C20xIC.P1

NEW DX11-8B RESPONDER

MAINDEC-11-C20X]I-C

c9
MAINDEC-11-CZDX!-C

CZOXIC.P11

NEw DX11-B RESPONDER

Q7-JUN-82 16:21

MACY11

30A(1052)

CODE CONVERSION TABLES

25?8

.SBTTL

07-JUN-82

16:28

PAGE

CODE CONVERSION TABLES

4751

;

EBCDIC TO ASCII CODE CONVERSION TABLE

z;gg

NOTE == BACKARROW IS USED TO DENOTE A NEWLINE

2;§§

4756

4757
4758
4759
4760
4761
4762
4763
4764
4765

64766
4767
4768
4769
4770

4771
4772
4773

011766

011766
011776
012002
012006
012014
012022
012026
012036
012042

012046
012054
012062
012066
012074

012102
012106
012114

040440
043506
024074
045046
050117
024452
027455
054127
055445

030460
033466
023500
060440
043506

024074
045046
050117

041502
044510
020453
046113
051121
056473
052123
0 055131
037476

031462
034470
055075
0461502
044510

020453
046113
051121

042504
027136
057515
022137

LASCII

*'TJKLM_OPQR_$+);]""

210 = 1F

053125
026042

LASCIT

"=/STUVWXYZ'',X[>7°

220 = 2F

032464
021472

LASCII

'0123456789:#4a°=\""

;30 - 3F

042504
027136

CASCII

/ ABCDEFGHI*.<(+!/

:40 = 4F

047115
022137

CASCII

°*'TJKLMNOPQR_S+):]"

:50 - SF

053125

CASCII *=/STuvWXYZ'', 3[>?*

;60 - 6F

CASCII

*'0123456789:#43°=\""

;70 = 7F

042504

LASCI1

/ ABCDEFGHI*.<(+!/

;80 - 8F

047115
022137

LASCII

"'RJKLMNOPQR_$*);]1"

;90 - 9F

053125
026042

CASCIL

'=/STUVWXYZ'',X[>?"*

sA0 ~ AF

032664
021472

CASCII

*'0123456789:#43°=\"'

;80 - BF

042504
027136

LASCI1

/ ABCDEFGHI*.<(¢!/

;€0 - CF

047115
022137

CASCII

*"RJKLMNOPQR_S+);]*’

;00 - OF

053125
026042

LASCID

*=/STUVWXYZ'',X[>?°

JE0 - EF

032464
021472

LASCII

''0123456789:#43°=\""

:FO - FF

056473

64776

012134

054127

055131

026042

030460

031462

032464

4777

012142

055645

4779
4780
4781
4782
4783
4784
4785
64786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798

012154
012162
012166
012174
012202
012206
012214
012222
012226
012234
0122642
012246
012254
012262
012266
012274
012302
012306
012314
012322

033466
023500
040440
043506
024074
045046
050117
024452
027455
054127
055445
030460
033466
023500
040440
043506
024074
045046
050117
024452

4778

4799
4800
4801
4802
4803
4804

012146

012326
012334
012342
012346
012354
012362

027455
054127
055445
0306460
033466
023500

052123

037476

034470
056075
041502
044510
020453
046113
051121
056473
052123
055131
037476
031662
034470
056075
041502
064510
020453
046113
051121
056473

052123
055131
037476
0316462
034470
056075

INTO A 64

;00 - OF

024452

027455

INPUT

/7 ABCDEFGHI*.<(+!/

012122

012126

THIS TABLE FOLDS ALL

LASCII

47764

64775

EBCDTB:

021472

027136

SEQ 106

106

CHARACTER SET

—

D
MAINDEC-11-C2DXI~C

C20x1C.P1Y

NEW DX11-B RESPONDER

07-JUN-82 16:21

4823

4824
4825
4826
4827
4828
4829
4830
4831

23%%

012366
01237
012374
012376
012401
012404
012406
01241
012414
012416
012421
012424
012426
012431
012434

100
173
120
115
116
113
360
363
366
370
136
156
174
303
306

117
133
175
135
153
141
361
364
367
37
114
157
301
304
307

012441
012444
012446
012451
012454
012456
012461
012464

322
325
327
342
345
347
155
112

323
326
330
363
346
350
177
025

012436

310

2%%2
4836
4837
4838
2323

012466
012470
012472
012474

177560
177562
177564
177566

311

30A(1052)

07-JUN-B2

16:28

PAGE

107

CODE CONVERSION TABLES

4(B80S
2389
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822

MACY11

:
:

ASCII TO EBCDIC CONVERSION TABLE

ATOETB:

.BYTE

100,117,152,173,133,1564,120,175 ;240-247

134

BYTE

115,135,134,116,153,140,113,141

362
365

.BYTE

360,361,362,363,364,365,366.367 ;260-267

172
176

BYTE

370,371,172,136,114,176,156,157 ;270-277

302
305

.BYTE

174,301,302,303,304,305,306,307 :300-307

321

.BYTE

310,311,321,322,323,324,325.326 :310-317

331
344

.BYTE

327,330,331,362,343,344,345,346 ;320,327

351
137

.BYTE

347,350,351,155,177,137.,112,025 :330-337

.SBTTL

PROGRAM CONSTANTS AND VARIABLES

152
154

140

324

CONSOLE UNIBUS ADDRESS CONSTANTS

TKS:
TKB:
TPS:
TPB:

.WORD
.WORD
WORD
WORD

177560
177562
177564
177566

;250257

:KEYBOARD CONTROL STATUS REGISTER
:KEYBOARD DATA BUFFER
;PRINTER STATUS/CONTROL REGISTER
sPRINTER DATA BUFFER

4841

4842
4843

232?

4846
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
23;3

4860

012476
012500
012502
012504
012506
012510
012512
012514
012516
012520
0i1c5¢¢
012524
012526

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
0006000
000000
000000

DX REGISTERS - ADDRESS GENERATED BY INITIALIZATION

DXDS:
DXCA:
DXCS:
DX0S:
DXBA:
DXBC:
DXMO:
DXMI:
DX(B:
DXND :
DXES1:
DXMO8:
DXES2:

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

0
O
0
O
O
O
O
O
O
O
O
O
O

;DEVICE STATUS == TN
;COMMAND AND ADDRESS == TT?2
;CONTROL UNIT STATUS
JOFFSET AND STATUS
:BUS ADDRESS
;BYTE COUNT
:MAINTANCE OUT
:MAINTANCE IN
JCONTROL BITS
INPR DATA
JEXTRA SIGNALS
;BUFFERED BUS 0UT
JEXTRA SIGNALS

SEQ 107

E
MAINDEC-11-C2DX]~C

C20xIC P11

NEW DX11-8B RESPONDER

07-JUN-82 16:21

MACY11 30A(1052)

9
07-JUN-82

PROGRAM CONSTANTS AND VARIABLES

16:28

SEQ 108

PAGE 108

4861

000000

UNADDR: .WORD

VECTAD:
SDEV:
EDEV:
CHTYPE:
MMRESP:
BUFREL:
TSTTYP:
:
10BUF
FILLCH:

CONEND:

.WORD
.WORD
.WORD
.BYTE
-WORD

.BYTE
.BYTE

=lelelalelelelelelels]

D
d
b
d
D
D
b
b
d
o
b

NN NN

[=]eolelelelelelelelsl=)

CONFIGURATION CONSTANTS

sUNIBUS ADDRESS
sDX VECTOR ADDRESS
sSTARTING DEV NUMBER
sENDING DEV NUMBER
sCHANNEL TYPE 0 = Mox = 1 = SEL
+MEMORY MANAGEMENT O = NO - 1 = YES
sBUFFER RELOCATION ADDRESS
sTEST TYPE O = 2848 - 1 = FRIEND
sSEPERATE 1/0 BUFFER 0 = NO - 1 = YES
JFILL CHARACTER

JEXTRA

SYSTEM PUSH STACK

012650
012650

SSTACK

.=.+100

SYSTEM VARJABLES

VSTRT:
TBUF

:
TBUFE
TPTR:
PBFS:

PBFE
PFPIR:
PPPIR:
PIUFL:
TCMACT:
TCMDAB:

013060
013062
013064
013065
013066

LINECT:
wK:

WNWWWNWWN
WW

TTPIR:
TTADDR:
SDEVTB:
DXSTPF:
MAXDEV:
DXACT:
PCTR:
:
DXABFL
TTYSTP:

d
b
b
d
b
b
—t

-t

b md

elelelelelole]
(=]l

wK1:

000000
000000

:
CMDCHF

MDEV:

.WORD

=.+100

.WORD
.WORD
.WORD

s DUMMY
¢sSTART OF TELETYPE INPUT BUFFER
cEND OF TELETYPE INPUT BUFFER
sTELE IN PTR
¢START OF PRINT BUFFER

.=.+100
.WORD
.WORD
.BYTE
.BYTE

.BYTE
.BYTE
-WORD
-WORD
.WORD
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.EVEN

.WORD
.WORD

elelelelelelelelelololelolelalee
]

012752
012754
012756

000000
012652
012752
000000

012650

(=]l

THE FOLLOWING VARIABLES ARE RESET UPON START-UP

JEND OF PRINT BUFFER

JPRINT FETCH PTIR
:PRINT PUT PTR

JPRINTER IN USE FLAG
sTELE COMMAND ACTIVE FLAG O = NON-ACT
JTEL COMMAND ABORT 1 = ABORT
JLINE CTR = CHARS / LINE

sWORK LOC
JWORK LOC

;TUMBLE TABLE PTR
;BEG OF TUMBLE TABLE
JSTART OF DEVICE TABLES
;DX STOP FLAG
JHIGHEST DEV # 1 - 8
;DXACTIVE FLAG

JPRINT BUFFER COUNTER

;DX ABORT FLAG

O = NO ABORT, 1 = ABORT

;CONSOLE OUTPUT STOP FLAG O = QUTPUT;

s COMMAND CHAIN FLAG
;DEV # IN MPXR EXEC

= NO OUTPUT

F 9
MAINDEC=-11-C2DX]I=C

czoxic.P11
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
23%2
4935
4936

013112
013114
013116
013120
013122
0131246
013126
013130
013132
013134
013136
013140

013142
013144

NEW DX11-8 RESPONDER

07-JUN-82 16:21
013110
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000102
000000

MACY1T

30A(1052)

07-JUN-82

SELDEV
PBUFA:
VBUFA:
PHYOFF:
CDEV:
DEVCON:
XADDR:
STSPW:
DSTOFF:
SADDR:
EADDR:
DMPADR:
VEND:

=
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

MDEV
0
0
0
0
0
0
0
0
0
0
0
O

:
:

THE FOLLOWING VARIABLES ARE NOT RESET ON START=-UP

PMAX :
FTIMFL:

.WORD
.WORD

PROGRAM CONSTANTS AND VARIABLES

PBFE~-PBFS
0

16:28

PAGE

109

SEQ 109

JDEV # [N SEL EXEC
;PHYSICAL BUFF ADDR - IN ,000°'S
JVIRTUAL BUFF ADDR = N ,000°'S
sPHY OFFSET FOR MEMORY MANAGEMENT
sCURRENT DX DEVICE == INTER SERVICE ROUTINE
;DEVICE ADDED TO THE DEVICE NUMBER = STARTING DEV NUMB cEXTENDED ADDRESS BITS FOR THE DX CONTROL REGISTER == IN
JSTART OF THE PSW TABLE
JOFFSET TO THE DST TABLE
JTELETYPE COMMAND STARTING BUFFER ADDRESS
JTELETYPE COMMAND ENDING BUFFER ADDRESS
JPOINTER TO DUMP ROUTINE CURRENTLY BEING UTILIZED BY TEL

;SIZE OF PRINT BUFFER
JFIRST TIME FLAG

6
MAINDEC-11-C20X1~C

czoxic.P1

NEW DX11-B RESPONDER

07-JUN-82 16:21

013146
013150
013205
013207
013211
013267

055103
377
215
116
377

054106
377
212
052117

013270
013272
013323

215
047125
377

212
041111

051525

013324
013326
013371

215
047111
377

212
042524

051122

013372
013374
013434

215
042504
377
013436
215
064103
377

212
044526

042503

212
047101

(2514

013436
013440
013467

013470
013%72
01326
013530
013532
013625
013626
013630
013664

215
062515
377
013530
215
052502
377

212

026511
035105

212
047515

0564522

212
043106

051105

110

.BYTE
215,212
ASCII /7CIDX]-C NEW DX17-B RESPONDER/
.BYTE
377,377
.BYTE
215,212
.ASCII1 /NOTE: CONTROL P HAS BEEN CHANGED TO CONTROL R /
.2;;5
377

CTRMSG:

UNMSG:

.BYTE
215,212
<ASCII /UNIBUS ADDRESS -OCTAL- : /
.g;gg
377

VECTMS:

.BYTE
215,212
LASCII /INTERRUPT VECTOR ADDRESS -OCTAL- : /
.gvgs
377

DEVMES:

CHTYMS:

MMMES:

L] v

.BYTE
215,212
.ASCI1 /DEVICE ADDRESSES <~HEX= (XX, XX): /
.BYTE
377
.EVEN
.BYTE
215,212
+ASCII /CHANNEL TYPE (M OR S): /
.?YEE
377
.EVEN

.BYTE
215,212
+ASCII /MEMORY MANAGEMENT (Y OR N): /
.BYTE
377
.EVEN
BFREMS: .BYTE
215,212
<ASCII /BUFFER RELOCATION, IF SPECIFIED -~ IN EVEN ,000'S ~OCTAL- : /
.gvgg
377

013666
013670
013727

212
040520

040522

013730
013732
013777

215
052517
377

212
050124

052125

014000
014004

207
047516

207
020116

215
054105

NXMMSG:

207
044522
215

215
054524
377

PARMES:

0i4030
0164034
014050

PAGE

STMSG:

042116

212

MESSAGES
BEX

16:28

SYSTEM MESSAGES

212
062511

215
014030
207
040520
1
212
014054

.SBTTL
.NLIST

07-JUN-82

;

215
051106
377
013666
215
042523
377

014024

30A(1052)

MESSAGES

4937
4938

215

MACY11

TESTMy:

FIOMS:

FILLMS:

377

.EV

.BYTE
215,212
<ASCII /FRIEND (F) OR 2848 DIAG(D): /
.BYTE
377
.EVEN
.BYTE
215,212
.ASCI1 /SEPARATE [-0 BUFFERS (Y OR N): /
.?Y;E
377
.EVEN

.BYTE
215,212
<ASCI1 /0UTPUT BUFFER FILL CHARACTER -HEX=- : /
.EYES
377

L] v

.BYTE
207,207,215,212
.ASCI1 /NON EX=MEM_ERROR/

.BYTE
215,212,377
.EVEN
.BYTE
207,207,215,212
.ASCI1 /PARITY ERROR/
.BYTE
212,215,377
.EVEN

SEQ 110

H
MAINDEC-11-CZDXI~C

C20xIC.P11

NEW DX11-B RESPONDER

07-JUN-82 16:21

MESSAGES

MACY11

30A(1052)

9
07-JUN-82

16:28

014054
014060
014105

207
046111
212

207
042514
215

215
040507
377

ILLMES:

.BYTE
JASCII
.gz;s

207,207,215,212
/ILLEGAL DEVICE NUMBER/
212,215,377

0164110
014141

052503
377

051122

047105

STPMES:

.ASCII
.?;gz

/CURRENT DEVICE NUMBER == /
377

014142
014146
014170

207
047111
014$;£

207
040526
215

215
044514
377

INVLDC:

.BYTE
207,207,215,212
<ASCII /INVALID DX COMMAND/
.g;gs
212,215,377

016176

020040

047516

0464640

PNOMM:

212
046505

207
051117

212
046505

207
051117

212
052123

046505

014473
014516
014576

377
215
115
377
215
115
377
014316
215
054523
377
015
054104
015
015
104
020040
020040

012
030461
012
012
026440
020040
020040

020055
020040
020040

_ASCII
.BYTE
PMTO:
.BYTE
LASCII
.BYTE
PMMERR: .BYTE
LASCII
.BYTE
.EVEN
RNMESG: .BYTE
CASCII
.BYTE
HELPMS: .BYTE
LASCII
.BYTE
.BYTE
LASCII
LASCII
LASCIL

014773
015025
015070

105
040
020106

026440
020040
026455

020055
020040
043040

.ASCI1
LASCII
+ASCI1

014234
014235
014241
014260
014261
014265
014314
014316
014320
014371
014372
014374
014467
014471

014674

015122
015210
015277
015322
015344

015402
015443
015471
015524
015554
015617
015677
015761
016036
016112
016124
016172
016240
016307
016353
016423
016461

020040

020040
020040
110
020040
020113

020040
122
040
020123
020040
040
040
040
020040
005015
020040
020040
020040
040
040
040
103

020040

020040
020040
026440
020040
026455

020040
026440
020040
026455
020040
020040
020040
020040
020040
044127
020040
020040
020040
020040
020040
020040
047117

041055

020040

020040
020040
020055
020040
045440

020040
020055
020040
042040
020040
020040
020040
020040
020040
051105
041442
020040
020040
020040
021040
021040
047523

LASCII

LASCII
LASCIL
CASCII
LASCIL
LASCII

LASCII
.ASCII
LASCIL
LASCII
LASCII
LASCIL
LASCII
ASCIL
LASCII
CASCII
LASCIL
LASCII
LASCIL
LASCII
ASCIL
CASCIL
.ASCI]

PAGE 111

SEQ 111

/__NO MEMORY MANAGEMENT AVAILABLE/
377
215,212,207,207
/MEMORY TIME OUT/
377
215,212,207,207
/MEMORY MANAGEMENT ERROR/
377
215,212
/SYSTEM INITIALIZED, TYPE 'R'* TO ENABLE DX/
377
(R,LF
/DX11-B 2848 EMULATOR TEST PACKAGE - OPERATIONAL INFORMATION/
CR,LF
(R,LF

/D == DUMP COMMAND/<CR><LF>

/
DTT,C
DUMP TUMBLE TABLE IN CODE °''C'‘/<CR><LF>
7/
DIN,C,XX DUMP INPUT BUFFER FOR DEVICE XX IN CODE °°C’'/<CR><LF>
7/
DOT,C,XX
DUMP OUTPUT BUFFER FOR DEVICE XX IN CODE ‘°C'*/<CR><LF>
/E == ENABLE DEVICE ON DX/<CR><LF>
/
EXX
ENABLE DEVICE XX/<CR><LFf>
/F == FILL BUFFER COMMAND/<CR><LF>
/
FIN,HH
XX FILL INPUT BUFFER ON DEV XX WITH HH/<CR><LF>
/
FOT ,HH XX FILL OUTPUT BUFFER ON DEV XX WITH HH/<CR><LF>
/H == HELF COMMAND/<CR><LF>
/
TdlS TEXT/<CR><LF>
/K == KILL A DEVICE ON THE DX/<CR><LF>
/
KXX
KILL DEVICE XX/<CR><LF>
/R == ENABLE DX (RUN)/<CR><LF>
7/
RUN TEST/<CR><LF>
/S -~ DISABLE DX (STOP)/<CR><LF>
7/
S
STOP IMMEDIATELY/<CR><LF>
7/
SD
STOP AFTER NEXT DATA TRANSFER/<CR><LF>
/
SE
STOP AFTER NEXT ENDING SEQUENCE/<CR><LF>
/
Sl
STOP ON NEXT SEL SEQ (ISS)/<CR><LF>
/
SP
STOP ON NEXT PARITY ERROR/<CR><LF>
<CR><LF>/WHERE
: /<CRX><LF>
/
"'C'* 1S CODE FORMAT
0 = OCTAL/<CR><LF>
7/
A = ASCII/<CRX<LF>
7/
E = EBCDIC/<CR><LF>
7/
= HEX/<CR><LF>

/
“XX'* IS DX=11 DEVICE NUHBER IN HEX/<CR><LF>
/
"HH'* IS A HEX CHARATTER/<CRO<LFI<LF>
/CONSOLE CONTROL CHARACTERS/<CR><LF>

[

017143
017145
017201
4939
4940

[eY=Y=l=1=~]

066124
NN =N=NO
O

016515
016557
016654
016743
017022
017070
017137

NI
N &
NO—2OO—
= Y
g N purdy ' N
Ead A 1AV IV, 1, V1V, 1V |
(oS 1V, ]V 1V 1, N1V 1V 1

MAINDEC~11-CZDXI~C
NEW DX11-B RESPONDER
ESHACY11
C20x1C.P11
MESSA
07-JUN-8 2 16:21

5E;t g

HELPLN

041440

30A(1052)

T00C:

9
07-JUN-82

16:28

PAGE 112

E‘C) ABORT CURRENT COMMAND/<CR><LF>
*Q) RESUME OUTPUT AFTER TEMPORARILY STOPPING BY

SEQ 112

(“S)/<CR><LF>
/CTL=R (“R) REQUESTS THE REENTRY OF CONTROL PARAMETERS/<CR><LF>
;:VRG=2
/CTL=S (*S) TEMPORARILY STOP QUTPUT TO CONSOLE/<CR><LF>
/CTL=U (“U) DELETE CURRENT INPUT LINE/<CR><LF>
/RUBOUT == DELETE LAST CHARACTER INPUT/<CR><LF>
CR,LF,LF,LF

4;00 CLOSE TO 200000 BOUNDARY/
BEX

J
MAINDEC-11-C2DX]~C

CZ0XIC.PI

004062
004650
012366
000200
013530
000020
004000
012542
000040
= 000400
013120
010270
000010
000003
003040
000040
001000
000200
011616
013436
012540
013106
000004
000001
000006
000002
000012
000001
000005
012547
007762
011552
= 000015
011342
010322
000003
000021
000022
000023
000025
013207
000400
000040
000020
000004
013122
013372
010746
010414
DISFRN 010664
DISPSZ= 000740
L]

07-JUN-82 16:21

MACY11 30A(1052)

CROSS REFERENCE

DMPADR
DONE
=
DREAD
DRM]

013136
000200
010716
010724

07-JUN-82

TABLE == USER SYMBOLS

16:28

SEQ 113

PAGE 114

4808#

2433

2434

48704

3522

3555

3576

3611

L179#

2867

2992

3080

3281

3361

3353

46934

4101

4220
3583«

3709

3711«

3785

3899

49154

477

3011

3096
45364

4457

4938

4070

3581

48684

3614+

3268
2274
2818
3573

nuwnoomn

L]
o

[gmd

()

ACCESS
ASCOMP
ATOETB
ATTIN
=
BFREMS

NEW DX11-B RESPONDER

4079

%790

41994

3033

3058

3831

4363

4370

L3964

3082

3092

3318

2903
3458

49284

3875

3957

4012

4028

4090

APy

4203

49224

3331

3530

3834

3873

3955

4010

4060

6315

K
MAINDEC=-11-C20X]~C

DXAB
DXABFL
DXACT

006550
013104
013102

DXBA
Dx8C
DXCA

012506
012510
012500

OXCS

012502

DXDS

012476

DXES1
DXES2
DXEXEC
DXEXIT
DXISR
DXMI
DXMO
DXMOB
DXND
DXONLN=

012522
012526
006566
010224
005346
012514
012512
012524
012520
001000

DXRST =
DXST
=
DXSTPF
DXWR
=
EADDR
EBCOMP
EBCOSP=
EBCOTB

000001
000007
013100
000003
013134
004604
000100
011766

DX(CB

012516

DXENB = 000100

DXO0S
DXRD

MACY11 30A(1052)
07-JUN=-82
16:28
CROSS REFERENCE TABLE =-- USER SYMBOLS

012536
004234
000152
000020
010002
000100
010054
002732

EXECMD

003054

FILL
FILLCH
FILLMS
FIOMS
FYIMFL

003730
012546
013730
013666
013144

GLEX
GLEX1

005304
005302

005314
001162
005116

SEQ 114

PAGE 115

49254

3679

2829+
35642+

49124
3578

3854+
3862+
3959«

3863
3960+

4092+

2743~
3969+

4110e

4126+

4848

3840

3662

3580+

3610+

3871+
3965+
4123+

4015+
48474

3721+

3736+

3837+

3879«

3968«

4022+

4020+

3956+

4011«
4124+

4118+
48514

4119+

41200

48504

2817+«

2830+

2831+

3429+

3458+

3544

3759+

3882

3901

3922

3970

4033

6112

41324

3738

3752+

49084

2948

3293«

3317«

3318+

3330«

3331«

49274

4061
L7564

4381

2269

2494

2544

48674

3933
2767

3986
2812

40794

2832

2894

2914

2950

2973

3017

3039

2403+

2572

2931+

2947

3534

4064

48734

2207+
3030

2585+
3054

49364
3077

3353#

3292

3302

3314

3327

49104

2765+

4846N

2766+

3872+

2817

37674
3787

3759

012504
= 000005

EDEV
ENABLE
EOM
=
EQPCHK=
ERASCM
ESEND =
ESEQ
EXEC

GDEV
GETPRM
GLERR

43904
3036

010746
013130
003644
003444

—_

DSRMI
DSTOFF
DTUMTB
OUMP

07-JUN-82 16:21

WNN LN S WNDWNN) ~N)
00 00 00 =2 = ~J 0D O
NN
=
O Wo

CZoxI1C.P11

NEW DX11-8 RESPONDER

4126

33324

3337

3062

L
MAINDEC-11-CZDX]1~C

005062
005204
005244
005154
005124
HOMP
004772
HELP
004016
HELPLN= 002551
HELPMS
014372
HE XDMP
004766
ILLMES
014054
INFDSC= 004000
INHEX
002636
INIT
002040
INIT10 002404
011520
INMES
INOCT
002644
INPUT
004342
INRS
002650
INTREQ= 000100
014142
INVLDC
J10BUF
012545
ISSREJ= 000010
KILL
004300
KILLEX
004336
KISARQ= 172340
KISAR7= 172356
KISDRO= 172300
LF
= 000012
LINECT
013067
LINSZ = 000050
LOOP
005376
MAXDEV
013101
MCMDTB
007340
MDEV
013110
MESG
011504
MEX
007222
MMERR
011712
MMME
S
013470
MMRE SP
012541
MMSRO
177572
MREAD
007612
MRM]
007514
MSRM]
007514
MT0
011704
MUXEND
010354
MWRITE
007364
NEWLNE= 000025
NEWPRM
001206
NEWP10 001472
NEWP20 001716
NOL IN
000014
NOP
000003
NXM
040000
NXMMSG
014000
0CTDMP
004702
GLIMIY
GLMIN
GLMOY
GLMTT
GLOCT

07-JUN-82 16:21

NI NN NNV
OO
W

c2oxI1c.P1

NEW DX11-B RESPONDER

MACY11 30A(1052)

CROSS REFERENCE

9
07-JUN-82

TABLE == USER SYMBOLS

16:28

PAGE 116

32674

26264
2388

2390

2402

3645
2284

3677
2312

L642r

4352

48724

2329

24124

2367

2386

2641#

3584
3540

3639
3793

3712
3917

49094

2819

4554

4572

46194

2220

4748

6917

2217

2996

31904

2219

3745

SEQ 115

mn9
MAINDEC-11-CZDX]I~C

CZox1C.P11

OCTEX
ODMP

004756
004706

PARER =
PARMES
PBFE
=
PBF S
PBUFA
PCHAR
PCHEND
PCHEN1
PCHEX
PCHIS
PCTR
PCUEND
PESEND
PFPTR
PHYOFF
F.NDSC
PISR
PIUFL
PMAX
PMMERR
PMTO
PNOMM
PNXM
PPARER
PPPTR

100000
014030
013060
012756
013112
011400
006470
006500
006524
006306
013103
006454
006126
013060
013116
006040
011244
013064
013142
014261
014235
014174
006114
006256
013062

PRMESG

011416

PRINT2

PROUT

011360
011264

PSELRT
006010
PSW
= 177776
PSYSRT
005662

P18BF

P2BF
QCUE
=
RNMESG
RSTART
RUBOUT=

RUN
SADDR

011414

011374
000010
014316
001002
000177

003124
013132

SATIN
007772
SBUFA = 000012
scmp = 000000

SCMDRJ= 000200
SCMDTB 006716
SCURS = 000004
SDEV
SOEVTIB
SELDEV=
SELRST=
SENSCM
SEX

012534
013076
013110
020000
010152
006600

NEW DX11-B RESPONDER

07-JUN-82 16:21

32074
3000

3502
4938#
4594
2180
2449
3200
37364
37384
37424
36604
2904
37214
36024
4519
2488+
35734
44924
4513
4643
49384
49384
49384
35914
36454
4589

2643
3492
19664
3460

4445

4571+

07-JUN-82

CROSS REFERENCE TABLE == USER SYMBOLS

16:28

SEQ 116

PAGE 117

3692

3742

48964
4523
2477
3261

4935
4596
2578
4468

4894
49184
45714

4935

2966

4443

4493

4518+

4593«

4598

4737

911

4520
3830

4521
3863

4523«
3872

4LBO7H
3954

3995

4009

4120

49204

G517%
644

4734«
4647+

LBION
4935

4601+

48984

45878

3002

3174

4538

4553

4621

4646

4736

35554
2186
35214

2300+

3125

3127«

4735+

4747«

2703

4495

4573

4553~
20214
2595
21364
19844

4555
3638
49384
4435
4462

2048¢
3810
3768

3015+
3939
3953«
3574
3926
3704
38074
3082
4314
2259+
3315
3781
3490
3934
37814

2727
2883+
3014+
3815
20034
19964
3908+
2107#
3806
2000#
4301
2254*
2560
2550+

30A(1052)

3191#

20464
3646
4521
2179
2433
2968
3510
3728
3723
3507
2887
3513
3501
2179«
2487+
3495
2158
4492«
4598
4732
4724
2302
3498
3504
2180+

2676

MACY11

27404
2885

2998

45134

4597

45754
45574

2889+
3287«
40524
3954+
3577«
3967

2890
3303«

2902
3304+

2906
3316+

2908r
3317

2909+
3329«

2941+«
3330

2943
49264

2993+

2994

2999

3956
3606
4005

3988+
3638+
4070

3992
3680+
4180+

3995+«
3740+

4008+
3783

4009+
3790«

4011
3802

4182+«
3835

4236+
3874

3904

3084
4324%
2269
3328
3796

3086+
4333«
2271
4151
3805+«

3088
4335«
2492
49074
49174

3091«
43360
2545

3092
4342
2548

3113«
4344
3354

3527+
4369
3461

3856
(383
48664

3990

4068+

4295+

“118#

—

N9
MAINDEC-11-C20X]1~C

C2oxic.P1

SINBF = 000006

SLCMD
SMI
SMINS
SONLF
souTte

=
=
=
=
=

000001
000112
000020
000016
000010

NEW DX11-B RESPONDER

07-JUN-82 16:21

20014

2568+
3609+

1997#

20254
2007#
2005#

000017
007154
007132
007032
000002

SSRMI
SSTACK=
SSTAT =
STAMOD=
START
STKSTB=
STMSG

007032
012650
000003
000100
001€00
000002
013146

STOP
STOPDX
STOUT
STPDX
STPMES
STSPW
SUDEV
SUDEX
SuUD10
SWRITE

SYSINT
SYSRST=
TBUF
=
TBUFE
TCHEND
TCHIS
TCMACT
TCMDAS
TCMDTs
TCUEND
TESEND
TESTMS
TINDSC
TK8
TKIN
TKS
TNXM
T00C
TOUTRT
TPARER
TPB
TPS
TPTR

3829
3874

3102
3838+

4225+

3114+

3953
3967«

4285
4005+

3988

4379

3529

SEQ 117

PAGE 118

4354
4184w

4269

427

4273

4286

3855

3871

3989

4008

4059

4313

4355

3955«
4315
3788

3961
4317+
3850

3963

3981

3994«

4006

4010+

4016

3853«

3906

3984

3987+

3690«

3698+

3704+

3744

3836+

3849+

3878+

3966+

4079«

4093

4095+

4109

4181+

38714
3037«

4069+

48814
3649+

4740

003276
003352
010062
006544
014110
013126
010242
010264
010252
006742

001006
010000
012652
012752
005636
005624
013065
013066
003056
005650
005600
013626
005554
012470
010756
012466
005566
017143
011722
005612
012474
012472
012754

3316
3835+

3090+
3056+
2570+

SPACE = 000040
SRBYTC= 000014
SRDRQ =
SRD10
SREAD
SRM]
SSENSE=

MACY11 30A(1052)
07-JUN-82
16:28
CROSS REFERENCE TABLE == USER SYMBOLS

28174

40904

3663

3739

37524

3060
3637

4030

4104

4205

L1151

4179

2690

3005

4452

4459

6472

4476

48904

3650
2678+
2679+

2684
2892

2995+
2912

3003
2969

4449
4451«

4454
4901

4460+

4482

48934

3782

3903

49244

38294

4432

49004

8 10
MAINDEC~-11=-C20Xx]~C

07-JuN-82 16:21

czoxic.P1n

TSELRS
TSTTYP
TTADDR

NEW DXx11-B RESPONDER

34904
2366+
2505+

005542
012544
013074

TTPTR

MACY11 30A(1052)
07-JUN-82
16:28
CROSS REFERENCE TABLE == USER SYMBOLS

013072

TT1S1ZE= 001000
TTYSTP
013105

. ABS.

o~:--:;o—-w-w
R

013071
013124

= 017202

017202

000

ERRORS DETECTED:

CZDXIC,CZDXIC/SOL/CRF/NL:T0C=C2DXIC.P11

RUN-TIME:

& 8

3634

3847

3979

4062

4280

3419
2906

3445«
2908

49054
3304

3431

3441

2609

3061

3649

4093

4095

48804

4881

4890

4891#

8714

48644

= 00 W 8~ N NN

wK1
XADDR

000002
002000
000001
012530
013270
011754
013114
002622
012532
013324
013140
012650
013070

(@B 1 NIV TV T N1, ST, N1, N1,81,8)
— ) b b b =B PPN
S

UCHK
=
UCHKS =
UEXP
=
UNADDR
UNMSG
UNTRP
VBUFA
VCMDTB
VECTAD
VECTMS
VEND
VSTRT
wK

SEQ 118

PAGE 119

.6 _SECONDS

RUN-TIME RATIO:
7K
CORE USED:

29/13=2.1

(13 PAGES)

2482

2423
48894

3150«

49034

21314

3978

49044
49234

4895#

4896

49384