Digital PDFs

AH-8485F-MC

October 1985

120 pages

Original

56MB

view download

OCR Version

75MB

view download

Document:	CZDHKF0 DH11,DM11 DH11 MODEM CTRL MPLX OCT 1985 bw
Order Number:	AH-8485F-MC
Revision:	000
Pages:	120
Original Filename:	CZDHKF0__DH11,DM11__DH11_MODEM_CTRL_MPLX__AH-8485F-MC__OCT_1985_gray.pdf

OCR Text

Sromkro

Tortoctiess
ENEAREN
COPYRIGHT® 1974-85 MADE IN USA

p-—

T3
w

A >

s
s s et e
e

IO VMbwn HOVBIPVE
KN

CIDHK
-F MACRO v04.00

SEQ
1

27-JUN-85 13:13:25 PAGE 2

IDENTIFICATION
PRODUCT CODE:

AC-8484F
-MC

PRODUCT NAME:

CZDHKFO DH11 MODEM CONTROL MULTIPLEXER DIAGNOSTIC

DATE

18-JUN-1985

MAINTAINER:

NAC SOFTWARE ENGINEERING

AUTHOR :

G. BAISLEY

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
Bgcs'its:?NSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS

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

NOT SUPPLIED BY DIGITAL.

1977,

1984,

1985 BY DIGITAL EQUIPMENT

n 2 08 ha et
o

o pa bt e

s g

OOQOMOWNHOOO\IOMQUN..

CZ0MK-F MACRO V04.00

SEQ 2

27-JUN-85 13:13:25 PAGE 3
1.0

ABSTRACT
THIS PROGRAM IS A TEST OF THE

DH11 OPTION

MODEM CONTROL MULTIPLEXER USED WITH THE

THE PROGRAM IS DIVIDED INTO FUNCTIONAL TEST GROUPS AS

FOLLOWS:

GROUP 0:
GROUP 1:
GROUP 2:
GROUP 3:

ALL LINE SCANNER AND LINE MULTIPLEXER FUNCTIONS ARE
TESTED. NO TEST CONNECTOR IS NEEDED...
A SINGLE LINE IS TESTED USING THE MODEM CABLE AND
A H315 TEST CONNECTOR
CONNECT-DISCONNECT TEST FOR 103A MODEMS
CONNECT-DISCONNECT TEST FOR 202C MODEMS

2.0

REQUIREMENTS

2.3

EQUIPMENT
POP-11 COMPUTER WITH AT LEAST 8K OF MEMORY
WITH OR WITHOUT HARDWARE SWITCH REGISTER

ASR-33 TELETYPE OR EQUIVALENT
MODEM CONTROL MODULES

2.1.1

FOR 16 LINE SCANNER TEST

NO ADDITIONAL HARDWARE IS NEEDED. PROGRAM HAS BEEN MODIFIED
TO RUN WITHOUT H861 TEST CONNECTOR.

2.1.2

FOR SINGLE LINE CABLE TEST

4 CABLES TO CONNECT TO THE DISTRIBUTION PANEL

H315 TEST CONNECTOR

2:1.83

FOR ON LINE TESTS
4 CABLES TO CONNECT TO THE DISTRIBUTION PANEL
2 BELL 103A MODEMS (FOR 103A TEST)
2 BELL 202C MODEMS (FOR 202C TEST)

3.0

LOADING PROCEDURE
THE STANDARD PROCEDURE FOR LOADING BINARY TAPES IS TO BE USED.

4.0

STARTING PROCEDURE

4.1

STARTING ADDRESS
THE STARTING ADDRESS FOR ALL TESTS IS 000200.

RESTART ADDRESS FOR ALL TESTS IS 000200

SEQ 3

27-JUN-85 13:13:25 PAGE 4
4.2

OPERATOR AND/OR PROGRAM ACTION

4.2.1

INITIAL PROGRAM START

tbhdbbdbiddbh ki

NOTE
TP
Y

s s

OCOV®IT VBN

CZOMK-F MACRO V04.00

s e bt e

@IOVIAWN

IF PROGRAM IS BEING RUN WITH THE “XOR” MODULE TESTER
LOCATION 1030(8) MUST BE MODIFIED TO CONTAIN A 240(8)
“NOP” TO ACTIVATE THAT CODE AFFECTING THE “XOR” TESTER.
khtddbbbdbdhkbbihis

NOTE

PPPPy

SOFTWARE SWITCH REGISTER IS DEFINED AS LOC. 176
(REFER TO SECTION 5.1.2 FOR DYNAMIC LOADING INSTRUCTIONS)
4.2.1.1 LOAD ADDRESS 000200
SET SW00 = 1
PRESS START
+4+S0F TWARE SWITCH REGISTER IS LOC.

176

4.2.1.2 PROGRAM WILL TYPE

“DH11-MODEM CONTROL DIAGNOSTIC “(ONCE ONLY)
#44NOTE: IF USING SOFTWARE SWITCH REGISTER THE FOLLOWI
NG
WILL BE TYPED BEFORE TITLE:
SWR=XXXXXX NEW= (REFER TO SECTION 5.1.2 FOR OPTIONS)

4.2.1.3 PROGRAM WILL TYPE (WITH SWO0 =

1)
VECTOR ADDRESS-“ AND WILL WAIT FOR AN INPUT

FROM THE TELETYPE KEYBOARD.

4.2.1.4 TYPE A THREE DIGIT NUMBER (OCTAL) WHICH IS THE

ADDRESS THAT THE MODEM CONTROL WILL INTERRUPT TO, FOLLOWED BY
<RETURN>.
IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL

TYPE “2" AND THEN REPEAT 4.2.1.3.

NOTE:

IF THE ADDRESS ENTERED IS ACCEPTIBLE TO THE PROGRAM,
BUT IS NOT THE INTERRUPT VECTOR ADDRESS OF THE MODEM CONTROL
UNDER TEST, A HALT WILL OCCUR AT THAT ADDRESS+2, WHEN
THE MODEM CONTROL INTERRUPTS.
TO RECOVER, PERFORM 4.2.2.1.

4.2.1.5 THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-“ AND WAIT
FOR
AN INPUT FROM THE TELETYPE KEYBOARD.

]

VIOV BWN -

CZDHK-F MACRO V04.00

SEQ 4

27-JUN-85 13:13:25 PAGE S
4.2.1.6 TYPE A 6 DIGIT (OCTAL NUMBER) WHICH IS THE ADDRESS
OF THE
MODEM CONTROL'S CONTROL REGISTER FOLLOWED BY <RETURN>.
IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL
TYPE “2" AND THEN REPEAT 4.2.1.6.
NOTE:

IF THE ADDRESS ENTERED IS ACCEPTIBLE TO THE PROGRAM

BUT IS A NON-EXISTANT REGISTER, A BUS ERROR TRAP WILL

OCCUR WHEN THE PROGRAM ADDRESSES THE REGISTER,
PROGRAM WILL HALT AT LOCATION 6.
TO RECOVER,

AND THE

PERFORM 4.2.2.1.

4.2.1.7 THE PROGRAM WILL TYPE

“LINE SELECTION PARAMETER-"

INPUT FROM THE TTY KEYBOARD.

AND WAIT FOR

4.2.1.8 TYPE AN OCTAL NUMBER TO SPECIFY THE LINES TO BE TESTED
USING
THE FOLLOWING ENCODING SCHEME:
BIT00 = 1
BITO1 = 1
BITO2 = 0

TEST LINE 00
TEST LINE 01
DO NOT TEST LINE 2

BIT15 = 1

TEST LINE 15

EG:

TYPING 377(8) SELECTS LINES 00 THRU 07
TYPING 177777(8) SELECTS ALL 16 LINES

IF THE NO. TYPED IS NOT ACCEPTABLE, THE PROGRAM TYPES A "2+
AND ASKS FOR THE LINE SELECT PARAMETER AGAIN.
4.2.1.9 THE PROGRAM WILL TYPE

“TEST-” AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD.

4.2.1.10

TYPE A THREE DIGIT OCTAL NUMBER CORRESPONDING TO THE
NUMBER OF THE TEST TO BE RUN FOLLOWED BY <RETURN>.
IF AN INCORRECT TEST NUMBER IS TYPED THE PROGRAM WILL
TYPE "2” AND THEN REPEAT 4.2.1.7
THE AVAILABLE TESTS TOGETHER WITH THE NUMBER TO BE TYPED
ARE GIVEN BELOW.

TEST GROUP O:

OFF LINE TESTS -FIRST TEST=0

TEST GROUP 1:
OFF LINE TESTS USING DC11 TEST CONNECTOR AND MODEM CABLE-FIRST TEST=100
TEST GROUP 2:
CONNECT/DISCONNECT TEST FOR BELL 103A MODEMS-FIRST TEST=200
TEST GROUP 3:
CONNECT/DISCONNECT TEST FOR BELL 202C MODEMS-FIRST TEST=300
4.2.1.11

THE PROGRAM WILL ENTER THE SELECTED TEST GROUP.

5 2 e e b et s

QOII.“NU-OO.NIOUOUNM

CZDHK-F MACRO V04.00

SEQ
S5

27-.,UN-85 13:13:25 PAGE 6
4.2.2

PROGRAM RESTART

4.2.2.1 WITH SWOO=1

LOAD ADDRESS 200
SET SW00=1 BEFORE PRESSING START.
#44SOFTWARE SWITCH REGISTER IS LOC 176%%%
PRESS START

PROGRAM WILL PERFORM AS DESCRIBED IN 4.2.1.3 TO 4.2.1.10.
4.2.2.2 WITH SW00=0

LOAD ADDRESS 200

+4#+S0FTWARE SWITCH REGISTER IS LOC.

PRESS START

5.0
B
5.1.1

176

PROGRAM WILL PERFORM AS DESCRIBED IN 4.2.1.7 TO 4.2.1.10
OPERATING PROCEDURE

TEST GROUP 0

16 LINE SCANNER TEST

TEST INITIALIZATION
NONE REQUIRED, PROGRAM TYPES “16 LINE SCANNER TEST*
AND BEGINS TEST EXECUTION.

3.41.2

OPERATIONAL SWITCH SETTINGS
IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH
REGISTER.
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE
DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH
REGISTER (LOC. 176) IS USED.

CONTROL :
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE
SWITCH
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY
DOING THE FOLLOWING:
1) TYPE CONTROL G <tG>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS
OF THE SOFTWARE SWITCH REGISTER.)
3) AFTER THE ’'‘'NEW='' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
OF THE FOLLOWING AT THE TTY:

SEQ 6

27-JUN-8S 13:13:25 PAGE 7

COVXINOVID
LN -

CZDHK-F MACRO V04.00

A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOW
ED BY A <CR>.
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY
6 NUMBERS
WILL BE ALLOMWED)
IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH
REGISTER CONTENTS WILL NOT BE CHANGED.

[

B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL
SEND YOU
BACK TO STEP 2.
SW15=1,
SWi4=1,
SW13=1,
SWil=1,
SW10=1,
SW09=1,

5.1.3

HALT ON ERROR
LOOP ON CURRENT TEST
SUPPRESS ERROR TYPEOUT
SUPPRESS ITERATIONS
ESCAPE TO NEXT TEST ON ERROR
FREEZE DATA

PROGRAM AND/OR OPERATOR ACTION

5.1.3.1 WITH ALL SWITCHES DOWN, THE PROGRAM WILL RUN

ALL TESTS IN THE SELECTED GROUP, SEQUENTIALLY.
EACH TEST IS REPEATED
A FIXED NUMBER OF TIMES (SEE LISTING FOR DETAILS),
EXCEPT FOR TO WHICH IS EXECUTED ONCE
ONLY AFTER START OF TEST.
WHEN ALL
TESTS HAVE BEEN COMPLETED, THE PROGRAM WILL ISSUE A "RESET"
, RING THE TELETYPE

BELL. AND RESTART AT THE FIRST TEST OF THE SELECTED GROUP.
IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE
ERROR MESSAGE AND CONTINUE TESTING.

5.1.3.2 WITH SW1S=1, PROGRAM ACTION WILL BE AS IN 5.1.3.1 EXCEPT THAT
A HALT WILL OCCUR AFTER ERROR TYPEOUT.
NOTE: IF USING THE SOFTWARE SWITCH REGISTER AND AN EROR
HALT OCCURS. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED
BY PRESSING CONTINUE THE PROGRAM WILL RESPOND WITH THE FOLLOWI
NG:
SWR=XXXXXX NEW=

5.1.3.3 WITH SW13=1, PROGRAM ACTION WILL BE AS IN 5.1.3.1 EXCEPT THAT
NO ERROR TYPEOUT WILL OCCUR.
THE PC OF THE TEST THAT FAILED
WILL BE DISPLAYED IN THE COMPUTER DATA LIGHTS.

5.1.3.4 THIS PROGRAM WILL NO LONGER TRACE TRAP WITH THIS RELEASE

5.1.3.5 WITH SW10=1, PROGRAM ACTION WILL BE AS IN 5.1.3.1 EXCEPT THAT
AFTER AN ERROR HAS OCCURED, THE PROGRAM WILL IMMEDIATELY
START THE NEXT TEST IN SEQUENCE.

VRN
VD N -

CZDHK-F MACRO V04.00

SEQ 7

27-JUN-85 13:13:25 PAGE 8
S.2

TEST GROUP 1

S5.2.1

TEST INITIALIZATION

SINGLE LINE CABLE TEST

THE PROGRAM WILL TYPE “SINGLE LINE CABLE TEST
LINE NUMBER-“ AND WILL WAIT FOR AN INPUT FROM
THE TELETYPE KEYBOARD.
TYPE A 2 DIGIT OCTAL NUMBER BETWEEN O AND 17, CORRESPONDING
TO THE NUMBER OF THE LINE TO BE TESTED, FOLLOWED BY
<RETURN>.
THE PROGRAM WILL THEN BEGIN TEST EXECUTION.
IF THE TELETYPE INPUT IS INCORRECT, THE PROGRAM
WILL TYPE "2?” AND REPEAT THE MESSAGE.

5.2.2

OPERATIONAL SWITCH SETTINGS

SAME AS 5.1.2

5.2.3

PROGRAM AND/OR OPERATOR ACTION

SAME AS 5.1.3
5.3

TEST GROUP 2 BELL 103A MODEM CONNECT-DISCONNECT TEST

5.3.1

TEST INITIALIZATION
THE PROGRAM WILL TYPE “103A CONNECT-DISCONNECT TEST
ORIGINATE LINE-” AND WAIT FOR AN INPUT FROM THE TELETYPE
KEYBOARD.

TYPE THE NUMBER OF THE LINE THAT WILL ORIGINATE THE
CALL (0-17 OCTAL) FOLLOWED BY RETURN.
THE PROGRAM WILL TYPE “ANSWER LINE-“- AND WILL WAIT
FOR AN INPUT FROM THE TELETYPE KEYBOARD.

TYPE_THE NUMBER OF THE LINE THAT WILL ANSWER THE CALL

(0-17 OCTAL) FOLLOWED BY <RETURN>.

THE PROGRAM WILL TYPE “DIAL ANSWERING DATA SET”
AND WILL WAIT FOR THE ORIGINATE AND ANSWERING MODEMS
TO GENERATE INTERRUPTS.
5.3.2

OPERATOR ACTION TO MAKE TELEPHONE CONNECTION
AFTER THE MESSAGE “DIAL ANSWERING DATA SET” IS TYPED

THE OPERATOR HAS APPROXIMATELY S MINUTES TO ESTABLISH
A CONNECTION BETWEEN THE 2 DATA SETS.

5.3.2.1 PLACE ANSWERING DATA SET IN ”AUTO ANSWER” MODE

VNP
VD N -

CZDHK-F MACRO V04.00

SEQ 8

27-JUN-85 13:13:25 PAGE 9
5.3.2.2 PLACE ORIGINATING DATA SET IN “TALK"” MODE

5.3.2.3 DIAL DIAL ANSWERING DATA SET FROM ORIGINATING
DATA SET

5.3.2.4 LISTEN FOR TONE IN HANDSET OF ORIGINATING DATA SET.
WHEN TONE IS HEARD, PRESS “DATA” BUTTON ON
ORIGINATING DATA SET.

“DATA” LIGHT SHOULD ILLUMINATE
3.3.2.5 “DATA” LIGHT ON ANSWERING DATA SET SHOULD BE LIT.

5.3.2.6 THE PROGRAM WILL NOW WAIT FOR
INTERRUPTS FROM THE MODEM CONTROL.
$.53.2.7 IF THE CONNECTION HAS BEEN PROPERLY ESTABLISHED,
THE PROGRAM WILL TYPE "TYPE TTY KEY TO DISCONNECT".
WHEN TTY KEY IS STRUCK,
DISCONNECT SEQUENCE.

THE PROGRAM WILL BEGIN THE

5.3.2.8 WHEN THE DISCONNECT SEQUENCE HAS BEEN COMPLETED
THE PROGRAM WILL TYPE “103A TEST COMPLETE",
AND WILL REQUEST THE OPERATOR TO SELECT NEW LINES.
5.3.3

PROGRAM ACTION IN CASE OF ERROR

5.3.3.1 RING ON INCORRECT LINE

IF THE PROGRAM DETECTS A RING SIGNAL ON AN INCORRECT

LINE, OR IF ANY OTHER TRANSITION BESIDES RING IS

DETECTED BEFORE RING, THE PROGRAM WILL TYPE
A FATAL ERROR MESSAGE AND REQUEST THE OPERATOR
TO RESELECT LINES AND REDIAL.
5.3.8.2 OTHER ERRORS

IF ANY ERRORS OCCUR AFTER THE FIRST RING HAS BEEN
DETECTED, THE PROGRAM WILL TYPE AN APPROPRIATE ERROR

MESSAGE AND CONTINUE TESTING TO COMPLETION.

THE ONLY EXCEPTION TO THIS IS IF AN INTERRUPT

OCCURS ON A LINE NOT SELECTED, IN WHICH

CASE A FATAL ERROR WILL BE REPORTED, AND THE PROGRAM
WILL PROCEED AS DESCRIBED IN 5.3.3.1

p——

SEQ
9

27-JUN-85 13:13:25 PAGE 10
5.3.4

OPERATION SWITCH SETTINGS

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH
ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE
SWITCH REGISTER.
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR
IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWA
RE SWITCH
REGISTER (LOC. 176) IS USED.

[

COVRNOVIBWN
-

CZDHK-F MACRO V04.00

CONTROL :
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWAR
E SWITCH
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED
BY
DOING THE FOLLOWING:

1) TYPE CONTROL G <tG>; THIS WILL ALLOW THE TTY TO ENTER
DATA INTO
LOC.

176 AT SELECTED POINTS WITHIN THE PROGRAM.

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS
THE OCTAL CONTENTS
OF THE SOFTWARE SWITCH REGISTER.)
3) AFTER THE '‘NEW='' HAS BEEN TYPED THEN THE OPERATOR CAN
DO ONE
OF THE FOLLOWING AT THE TTY:
A) TYPE A NUMBER TO BE LOADED INTO LOC.

176 FOLLOWED BY A <CR>.

(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS

WILL BE ALLOWED)
IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH
REGISTER CONTENTS WILL NOT BE CHANGED.

B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU
BACK TO STEP 2.

SW15=1, HALT ON ERROR

SW13=1, SUPPRESS ERROR TYPEOUT
5.3.5

DATA SET MODE SWITCHING
AFTER THE PROGRAM HAS TYPED THE MESSAGE DESCRIBED
IN 5.3.2.7, BUT BEFORE TTY KEY IS STRUCK, THE OPERATOR
MAY SWITCH EITHER DATA SET FROM THE MODE THAT
IT IS IN TO ANOTHER MODE.
ALL TRANSITIONS DETECTED AT THIS TIME WILL

BE REPORTED.
NOTE:

THE ORIGINATE DATA SET MUST BE RETURNED TO “TALK” MODE
AND THE ANSWERING DATA SET TO “AUTO ANSWER” BEFORE
DISCONNECT IS STARTED TO PREVENT ERRORS FROM BEING
DETECTED THAT ARE CAUSED BY THE FACT THAT THE MODEM IS
IN THE INCORRECT STATE.

CZDHK-F MACRO V04.00

SEQ 10

27-JUN-85 13:13:25 PAGE 11

5.4

TEST GROUP 3

5.4.1

TEST INITIALIZATION

SAME AS 5.3.1 EXCEPT PROGRAM WILL TYPE

g
g

DISCONNECT TEST“.
5.4.2

10
}é
{z

5.4.3

5.4.4

PROGRAM ACTION IN CASE OF ERRORS

OPERATIONAL SWITCH SETTINGS

SAME AS 5.3.4
5.4.5

DATA SET MODE SWITCHING

5.5

TEST RESELECTION

OPERATOR ACTION TO MAKE TELEPHONE CONNECTION

SAME AS 5.3.3

;g
gé

“202C CONNECT

SAME AS 5.3.2 EXCEPT AT END OF TEST, PROGRAM WILL TYPE
“202C TEST COMPLETE".

ig
iz

BELL 202C MODEM CONNECT-DISCONNECT TEST

SAME AS 5.3.5

26
gz

TO ESCAPE FROM THE TEST IN PROGRESS,
A NEW TEST, TYPE <CONTOL C>.

29
30
g%

THE PROGRAM WILL STOP EXECUTION OF THE TEST IN PROGRESS
AND THEN TYPE “TEST-” AND WAIT FOR AN INPUT FROM
THE TELETYPE KEYBOARD.
;

PROCEED AS DESCRIBED IN 4.2.1.8

5.5

37
38
39

45
46
47

ADDRESS CHANGE

TO CHANGE THE VECTOR AND REGISTER ADDRESS OF THE MODEM CONTROL
UNDER TEST, TYPE <CONTROL V>.
THE PROGRAM WILL
STOP EXECUTION OF THE TEST IN PROGRESS AND PROCEED AS

40
:g
:2

AND SELECT

DESCRIBED IN SECTION 4.2.1, EXCEPT THAT
“MODEM CONTROL DIAGNOSTIC” WILL NOT BE TYPED.

5.6

LINE NUMBER CHANGE

TO CHANGE THE LINE NUMBER(S) UNDER TEST, TYPE
<CONTROL L>. THE PROGRAM WILL SUSPEND THE
TEST IN PROGRESS AND RETURN TO THE INITIALIZATION

STAGE OF THE SELECTED TEST.

30
S1
gg

WHEN THE LINE NUMBER(S) HAS BEEN CHANGED, THE
PROGRAM WILL RESTART THE SELECTED TEST USING THE NEW
LINE NUMBER(S).

VR NONE
LN -

CZDHK-F MACRO V04.00

27-JUN-85 13:13:25 PAGE 12
5.7

SEQ 11

POMER FAILURE
IF A POMER FAIL TRAP OCCURS DURING TEST EXECUTION
THE PROGRAM WILL SAVE THE GENERAL REGISTERS OF THE
PROCESSOR AND HALT.
WHEN POWER UP OCCURS, THE PROGRAM WILL TYPE
“POMER FAILURE-CURRENT TEST WILL BE RESTARTED".

THE PROGRAM WILL THEN RUSUME TEST EXECUTION.
NOTE:

IF A TEST IS NOT IN PROGRESS, I.E., IF THE PROGRAM
IS WAITING FOR AN INPUT FROM THE TELETYPE KEYBOARD,
THE ERROR MESSAGE WILL BE “POWER FAILURE".
THE PROGRAM WILL THEN REQUEST THE OPERATOR TO SELECT A
TEST.

NOTE:

IF MACHINE HAS A SOLID-STATE SWITCH REGISTER, THEN THE CONTENTS
WILL BE
LOST ON A POWER FAIL AND THEREFORE WILL HAVE TO BE RELOADED.

6.0

ERRORS

6.1

NORMAL OPERATION

IF AN ERROR OCCURS WITH ALL SWITCHES DOWN, THE PROGRAM
WILL TYPE AN APPROPRIATE ERROR MESSAGE AND THEN

RESUME TESTING.

THERE ARE SEVERAL ERROR MESSAGE FORMATS, AND
THE PARTICULAR MESSAGE TYPED DEPENDS UPON THE
TEST IN PROGRESS.

6.1.1

ERROR MESSAGES

6.1.1.1 UNIQUE ERROR

ONLY PC OF FAILING TEST IS OUTPUT TO TELEPRINTER
AN EXAMPLE OF THIS TYPE OF ERROR IS:
1. AN INTERRUPT OCCURED AT THE WRONG PRIORITY
2. A REGISTER BIT WAS NOT CLEARED BY RESET

CZDHK-F MACRO v04.00
é

SEQ 12

27-JUN-85 13:13:25 PAGE 13
6.1.1.2 TRANSITION DETECTION ERROR

THIS ERROR WILL OCCUR IN ONE OF THE ON-LINE TESTS

IF AN EXPECTED INTERRUPT DOES NOT OCCUR, OR IF

s
g

AN UNEXPECTED INTERRUPT DOES OCCUR,
UNDER TEST.

FORMAT FOR ERROR TYPEOUT IS

ON THE LINES

10
11
ig

XXXXXX TRANSITION ERROR
EXP
REC
LINE
A
88
cc

WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE

AA=EXPECTED INTERRUPT FLAGS

THIS ERROR WILL OCCUR IN ANY TEST, OFF LINE OR ON-LINE
WHEN THE EXPECTED AND RECEIVED LINE STATUS ARE NOT

THE SAME.

FORMAT FOR SINGLE LINE STATUS ERROR IS
XXXX LINE ERROR

EXP

REC

LINE

AAA

WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE

BBB

AAA=EXPECTED LINE STATUS AT TIME OF ERROR

BBB=RECEIVED LINE STATUS AT TIME OF ERROR

CC=LINE ON WHICH ERROR OCCURED

6.1.1.4 FATAL TRANSITION ERROR

37
g:

THIS ERROR WILL OCCUR IN AN ON-LINE TEST IF AN INTERRUPT
OCCURS ON A LINE NOT SELECTED FOR TESTING.

FORMAT FOR FATAL ERROR TYPEOUT IS

CONTROL REGISTER

6.1.1.3 SINGLE LINE STATUS ERROR

‘5’2

TO 4 MSB OF

CC=LINE ON WHICH ERROR OCCURED

21
22

(CORRESPONDS

BB=RECEIVED INTERRUPT FLAGS (AS ABOVE)

XXXXXX FATAL ERROR

CSTAT

LSTAT

AARAAA BBB

46
47
48

WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE
AAAAAA=RECEVICED CONTROL STATUS ON LINE THAT INTERRUPTED
BBB=RECEIVED LINE STATUS ON LINE THAT INTERRUPTED

CRNOVEGN
-

CZDHK-F MACRO V04.00

SEG 13

27-JUN-85 13:13:25 PAGE 14

6.1.1.4 CONTROL STATUS ERROR

THIS ERROR WILL OCCUR IN A TEST THAT PRIMARILY
INVOLVES THE LINE SCANNER
FORMAT FOR CONTROL STATUS ERROR IS

XXXXXX STATUS ERROR
EXP
REC
AAAAAA BBBBBB
WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE
AAAAAA=EXPECTED CONTROL STATUS AT TIME OF ERROR

BBBBBB=RECEIVED(ACTUAL) CONTROL STATUS AT TIME OF ERROR

6.1.1.5 LINE STATUS ERROR

THIS ERROR WILL OCCUR IN THOSE OFF LINE TESTS THAT
SET ONE LINE TO A PARTICULAR STATE, AND THEN CHECK

ALL OTHER LINES

FORMAT FOR LINE STATUS ERROR IS
XXXX LINE ERROR

EXP
AMAA

REC
DDD

LINE
CC

SEL
DD

WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE
AAA=EXPECTED LINE STATUS AT TIME OF ERROR

BBB=RECEIVED LINE STATUS AT TIME OF ERROR
CC=LINE ON WHICH ERROR OCCURED
DD=THE LINE ON WHICH THE PROGRAM WAS OPERATING

]

CZOMK-F MACRO VO04.00
37
38
39

SEQ 14

27-JUN-85 13:13:25 PAGE 14-1
6.1.1.6 TIME OUT ERROR

40
41
42

THIS ERROR WILL OCCUR IF THE LINE UNDER TEST DOES
NOT INTERRUPT WITHIN A GIVEN TIME FRAME.

43
a4
45
46

FORMAT FOR THIS ERROR IS

LN
CSR
LSR
AAA BBBBBB CCCCCC

XXXXXX TIME OUT WAITING FOR INTERRUPT

WHERE

XXXXXX=PC+2 OF ERROR CALL
AAA=FAILING LINE NUMBER
BBBBBB=CONTROL STATUS REGISTER

CCCCCC=LINE STATUS REGISTER

6.1.2

REPEATED ERRORS

IF THE SAME ERROR OCCURS REPEATEDLY IN A GIVEN TEST
ONLY THE DATA RELATING TO THAT ERROR WILL BE TYPED
IF THE ERROR OCCURS IN THE SAME TEST ON THE SAME PASS

6.2

SCOPE LOOPS

NOTE:

SCOPE LOOPING APPLIES ONLY TO TEST GROUPS O AND 1

6.2.1

AFTER ERROR HALT

TO LOOP ON A GIVEN TEST AFTER AN ERROR HALT,
SET SW15=0 TO RUN WITHOUT STOPPING

SET
SET
SET
SET

D B DD

DD 0ottt

O PO T = 5

s 1o gt o ot o

N-OoOVYEITVIBWLN

VNNV

SEQ 15

27-JUN-85 13:13:25 PAGE 15

[

OCOV®IPV
SN e

CZDHK-F MACRO V04.00

SW14=1
SW13=1
SW10=0
SW09=1

TO LOOP ON CURRENT TEST
TO SUPPRESS ERROR TYPEOQUT
(IF IT IS 1)
TO LOOP ON SAME DATA (IF REQUIRED)

##4IF USING SOFTWARE SWITCH REGISTER AND YOU WANT
TO CHANGE
THE SWITCH SETTING TYPE A <tG> BEFORE CONTINUING.
PRESS CONTINUE
THE PROGRAM WILL LOOP ON THE SAME TEST.

6.2.2

FROM PROGRAM START

6.2.2.1 PROCEED AS DESCRIBED IN 4.2.1.1 70 4.2.1.4

6.2.2.2 WHEN THE PROGRAM TYPES “TEST-", SET SW14=1 TO LOOP
ON THE TEST THAT WILL BE SELECTED.
6.2.2.3 TYPE IN THE NUMBER OF THE TEST THAT IS TO BE LOOPED
ON (SEE LISTING FOR TEST NUMBER REFERENCE DESIGNATIONS)
6.2.2.4 ;HE‘PgWRAH WILL
W14=0.

6.2.3

LOOP ON THE SELECTED TEST UNTIL

AFTER <CONTROL>

SAME AS 6.2.2.2 T0 6.2.2.4
7.0

RESTRICTIONS

STARTING

7.1.1

FOR 16 LINE SCANNER TEST
NO TEST CONNECTOR IS NEEDED TO RUN THIS TEST....

7.1.2

FOR SINGLE LINE CABLE TEST
H315 TEST CONNECTOR MUST BE INSTALLED ON MODEM CABLE

7.1.3

FOR ON LINE TESTS
NONE

nn TS 1S e
-0

8 et pa a B

s pa

OOQOGOWNMOOOQOUOONM

CZDHK
-F MACRO V04.00

SEQ 16

27-JUN-85 13:13:25 PAGE 16
7.2

OPERATING

NONE .
7.3

WHEN ON ACT-11 OR “XOR"
PROGRAM WILL DEFAULT TO 16 LINE SCANNER TEST

7.4

DEFAULT PARAMETERS (INCLUDING ACT-11 & “XOR*)

VECTORS

DHMVEC: 300
DHMLVL: 302
ADDRESSES
DHMCSR:
DHMLSR:
NOTE:

(AUTOMATICALLY GENERATED
BY PROGRAM WHEN UNDER ACT-11 OR

170500
170502

SWOO(RESELECT ADDRESSES AND VECTORS BECOMES
INOPERATIVE UNDER ACT-11 OR “XOR".

“XOR")

—-—

8.0

EXECUTION TIME

8.1

16 LINE SCANNER TEST

THE TIME FOR 2 PASSES OF THE 16 LINE SCANNER TEST IS
APPROXIMATELY 1.5 MINUTES.

8.2

0 s et e et s e et s

8.3

APPROXIMATELY 30 SECONDS WILL ELAPSE BETWEEN THE
TIME
THAT THE PROGRAM TYFES THE ABOVE MESSAGE UNTIL THE
TIME THAT THE PROGRAM TYPES “103A TEST COMPLETE".

8.4

TO THE TIME THAT

40
41

42
43
44
45
46
47
48
49
50

S1
52

WILL

ELAPSE

BETWEEN THE

TIME

THE PROGRAM TYPES

"SET

SWO1=1

TO DISCONNECT".

APPROXIMATELY 30 SECONDS WILL ELAPSE BETWEEN THE
TIME THAT THE PROGRAM TYPES THE ABOVE MESSAGE UNTIL

38
39

1.5 MINUTES

THAT THE ANSWERING DATA SET DETECTS THE FIRST RING SIGNAL

202C MODEM CONNECT-DISCONNECT TEST
APPROXIMATELY

103A MODEM CONNECT-DISCONNECT TEST
APPROXIMATELY 30 SECONDS WILL ELAPSE BETWEEN THE
TIME THAT THE ANSWERING DATA SET FIRST DETECTS A RING
SIGNAL TO THE TIME THAT THE PROGRAM TYPES
“SET SWO1=1 TO DISCONNECT”.

32
33
34
35

SINGLE LINE CABLE TEST
THE TIME FOR 12 PASSES OF THE SINGLE LINE CABLE
TEST
IS APPROXIMATELY 1 MINUTE.

21
22

23
24
25

SEQ 17

27-JUN-85 13:13:25 PAGE 17

OOQO\ROGNO‘OOOQO\”&NNO‘

CZDOHK-F MACRO V04.00

THE PROGRAM TYPES "202C TEST COMPLETE”.
L

PROGRAM DESCRIPTION
THIS PROGRAM CONSISTS OF A SERIES OF TEST GROUPS

LINKED BY A SET OF COMMON SERVICE ROUTINES AND A KEYBOARD

MONITOR.

WHEN INITIALLY LOADED AND STARTED ...SWOO MUST BE SET =1,
BEGIN A DIALOG WITH THE OPERATOR TO INPUT THE PARAMETERS

THE PROGRAM WILL

REQUIRED BY THE PROGRAM.

WHEN ALL INFORMATION HAS BEEN INPUTTED, THE PROGRAM WILL
REQUEST THE OPERATOR TO SELECT A TEST BY TYPING

THE NUMBER OF THE TEST TO BE RUN.
WHEN A CORRECT TEST NUMBER
IS RECEIVED, THE PROGRAM WILL BEGIN EXECUTION OF THE
SELECTED TEST.

AT ANY TIME DURING TEST EXECUTION, THE OPERATOR MAY
CHANGE A TEST PARAMETER BY ENTERING THE APPROPRIATE
COMMAND VIA THE TELETYPE KEYBOARD.

-0

Ns e n a e e e

SEQ 18

27-JUN-85 13:13:25 PAGE 18
.

CONT'D

IF AN OFF LINE TEST HAS BEEN SELECTED, THAT TEST WILL
BE REPEATED UNTIL THE OPERATOR INTERVENES.
IF AN ON LINE TEST HAS BEEN SELECTED, THE OPERATOR IS
REQUIRED TO TAKE ACTION EACH TIME THE TEST IS COMPLETED.
AT THE END OF EVERY OFF LINE TEST PASS,
WILL RING THE TELETYPE BELL.

OOQOMOC&NO‘OOOQO“.UNM

CZDHK-F MACRO V04.00

#TPEBE END OF AN ON LINE TEST,
YPED.

10.

LISTING

11.

MODIFICATION HISTORY:

10-JULY-84

KEN RAUHALA

A TEST COMPLETE MESSAGE WILL BE

ADDED DELAY FOR PDP-11/44 WITH CACHE ON.

THE

"MUXS2" MACRO WAS MODIFIED.

THE PROGRAM

CZOHK-F MACRO V04.00
1

27-JUN-85 13:13:25 PAGE 19
.TITLE

2 000000

—

CZDHK-F

-ENABLE ABS,AMA

sMODEM CONTROL DIAGNOSTIC

5
6
7

s THIS PROGRAM CONTAINS TEST OF THE MODEM CONTROL IN
;:THE OFF LINE MODE OF OPERATION ONLY
;MODIFIED BY ED CROWLEY APRIL, 1976

sMODIFIED BY S.

;REGISTER.

;ALSO,

ié

1976 TO SUPPORT

THE SOFTWARE SWITCH

SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH
REGIS‘ER.

;MODIFIED APRIL 77 TO RUN SCANNER TEST W/0 H861 CONNETTOR
;

;MODIFIED BY S. SKONETSKI

—

MAY 1985

14
iz

sREMOVE .EQUIV WHICH IS NOT RECOGNISED BY PDP11 MACRO, AND
TO
sDYNAMICALLY SET VECTOR SPACE WHICH IS CLOBBERED BY THE NEW XXDP

;SWITCH REGISTER OPTIONS

20
21
22
23
24
25
26
27
28
29

3SW15=1,
iSW14=1,
;SW13=1,
iSW12=1,
:SW1l=1,
iSW10=1,
;SW09=1,
iSWO1=1,
s5W00=1,

HALT ON ERROR
LOOP ON CURRENT TEST
SUPPRESS ERROR TYPEOUT
SUPPRESS TRACE TRAPPING(THIS IS INOPERATIVE IN THIS RELEASE)
SUPPRESS ITERATIONS
ESCAPE TO NEXT TEST ON ERROR
FREEZE DATA
START DISCONNECT SEQUENCE
RESELECT VECTOR AND CONTROL REGISTER ADDRESS

sAFTER PROGRAM RESTART

32
gz

;STARTING ADDRESS FOR ALL TESTS IS 000200
;RESTART ADDRESS=000200

;TESTS AVAILABLE

37
38
39

; TEST GROUP 0s0FF LINE TESTS USING NO TEST CONNECTOR-FIRST TEST=0
s TEST GROUP 1-

sOFF LINE TESTS USING DC11 TEST CONNECTOR AND MODEM CABLE-FIRST TEST=100

41
42
43
:g

:TEST GROUP 2sCONNECT/DISCONNECT TEST FOR BELL 103A MODEMS-FIRST TEST=200
;TEST GROUP 3-

sCONNECT/DISCONNECT TEST FOR BELL 202C MODEMS-FIRST TEST=300

:"}

49
50
51

52
S3

54
35
.'50_6’
58
59

| V-

CARPENTER JULY,

;SYMBOL DEFINITIONS

100000

SW15=100000

040000
020000
010000

SW14=40000
SW13=20000
SW12=10000

001000
000400
000100

SW09=1000
SW08=400
SW06=100

004000
002000

SW11=4000
SW10=2000

.NLIST
AIST .

MC,.MD,CND
ME

CZDHK-F MACRO v04.00
60
61
62
63
64
65
66
67
68
69
70 000000

SEQ 20

27-JUN-85 13:13:25 PAGE 19-1

.MACRO

COMMENT

.NLIST

;CODITIONAL ASSEMBLY PARAMETERS

SINGLE=0
.LIST
.ENDM

:IF 0, ASSEMBLE FOR MULTIPLE LINES
;IF 1, ASSEMBLE FOR SINGLE LINE

COMMENT

;CODITIONAL ASSEMBLY PARAMETERS
000000

SINGLE=0

;:IF O, ASSEMBLE FOR MULTIPLE LINES
:IF 1, ASSEMBLE FOR SINGLE LINE

CZDHK-F MACRO V04.00

27-JUN-85 13:13:25 PAGE 20

‘;’
4
5

6
7

8
9
10
i;

;REGISTER DEFINITIONS
000000
000001
000002

R2=%2

000004
000005
000006
000007

R4=%4
RS=%5
SP=%6
PC=%7

RO=%0
R1=#1

000003

177776
177776

.MACRO
PSW
.ENDM

014436
014432
014434

49
gg

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

S5
56

PS
PS

RADIX=DIVIS
BINWRD=DIVIDL
DIGIT=DIVIDH

;CONVERSION FACTOR FOR DECIMAL OUTPUT
;WORD TO BE CONVERTED TO OCTAL ASCII
sASCII OCTAL DIGIT

BUSY=20
SCNENA=40
INTENA=100
DONE =200
STEP=400
MAINT=1000
CLRMUX=2000
CLRSCN=4000
SECRXF=10000
CSF=20000
COF=40000
RINGF=100000

;LINE SCANNER RUNNING
;LINE SCANNER ENABLE
s INTERRUPT ENABLE
s SCANNER DONE
;CAUSES LINE COUNTER TO BE INCREMENTED BY 1 COUNT
;FORCES 1S TO INPUT OF SCRATCH PAD MEMORY
;CLEAR MULTIPLEXER FUNCTION FLIPFLOPS
;CLEARS SCANNER SCRATCHPAD MEMORY
s SECONDARY RECEIVE TRANSITION WAS DETECTED BY SCANNER
;CLEAR TO SEND TRANSITION WAS DETECTED SY SCANNER
;CARRIER TRANSITION WAS DETECTED BY SCANNER
;RING SIGNAL WAS DETECTED BY SCANNER

;LINE REGISTER BIT FUNCTIONS

000001
000002
000004
000010
000020
000040

000100
000200

;PROCESSOR STATUS WORD

;CONTROL STATUS REGISTER BIT FUNCTIONS

:é

43
a4
45
46
47
48

;GENERAL REGISTER
;GENERAL REGISTER
;PROCESSOR STACK POINTER
;PROGRAM COUNTER

PS =177776
PSW=177776

28
29
30
31
32
33
34
35
36
37
38
23

;GENERAL REGISTER

;LOCATION EQUIVALENCIES

18
19
gg

22
23
g;

;GENERAL REGISTER
sGENERAL REGISTER
;GENERAL REGISTER

R3=%3

i.z
15
i.g

LINENA=1
TRMRDY =2
RS=4
SECTX=10
SECRX=20
CS=40

€0=100
RING=200

+=1,
;=1,
i=1,
i=1,
+=1,
i=1,

RECOGNIZE TRANSITIONS ON THIS LINE
SEND TERMINAL READY TO MODEM
SEND REQUEST TO SEND TO MODEM
SEND SECONDARY TRANSMIT TO MODEM
SECONDARY RECEIVE TURNED ON BY MODEM
CLEAR TO SEND TURNED ON BY MODEM

i=1, CARRIER TURNED ON BY MODEM
:=1, RING TURNED ON BY MODEM

;SOFTWARE TRANSITION FLAGS

000004

000002
000001

XC0=4

XCS=2
XSCRX=1

:CARRIER TRANSITION WAS DETECTED

;CLEAR TO SEND TRANSITION WAS DETECTED
:SECONDARY RECEIVE TRANSITION WAS DETECTED

VROV DGIN -

CZDHK-F MACRO V04.00

10
11
12
13 000000
14 000000

15 000000
16 000000

17 000000
18 000000

19 000000
20 000000
21 000000

22 000000

23 000000
24 000000
25 000000
26 000000

27 000000

SEQ 22

27-JUN-85 13:13:25 PAGE 21

;INSTRUCTION DEFINITIONS
005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1°P=5726
PUSHRO=10046
POPRO=12600

;DECREMENT PROCESSOR STACK 1 WORD
; INCREMENT PROCESSOR STACK 1 WORD
;SAVE RO ON STACK
;RESTORE RO FROM STACK

POP25P=22626

s INCREMENT STACK TWICE

PUSH25P=24646

;DECREMENT STACK TWICE

;EMT DEFINITICN TABLE
104000
000001

104001
000002
104002
000003

104003
000004
104004
000005
104005
000006
104006
000007

104007
000010

104010
000011

104011
000012
104012
000013
104013
000014
104014
000015
104015
000016
104016
000017

EMTDEF

ER*ORC,*/CWTROL STATUS ERROR SERVICE/

sflgogC'EHTOX

;CONTROL STATUS ERROR SERVICE

=X+

EMTDEF
ERRORL,t/LINE STATUS ERROR SERVICE/
§R§02L'EHTOX
;LINE STATUS ERROR SERVICE
=X+

EMTDEF
SCOPE, t+/SCOPE LOOP AND ITERATION SERVICE/
gC(x)PE-EHTOX
:SCOPE LOOP AND ITERATION SERVICE
=Xe

EMTDEF

SCOPEF, t/DATA FREEZE SERVICE/

SCOPEF -EMT +X

iDATA FREEZE SERVICE

EMTDEF
TYPE,t/TELETYPE OUTPUT/
;Y:E;EHT X
sTELETYPE OUTPUT
=Xe

EMTDEF

SAVOSP,t/SAVE RO-RS, PC+2 OF CALL/

SAVOSP <EMT X
=Xé

iSAVE RO-RS, PC+2 OF CALL

EMTDEF
OCTASC,t/CONVERT DATA TO ASCII AND TYPE/
gc;rtngc-emox
;CONVERT DATA TO ASCII AND TYPE
=X

EMTDEF RESOS, t/RESTORE RO-RS/
gEgOi'EHTOX
;RESTORE RO-RS
=Xe

EMTDEF CONVERT, t+/ASCII CONVERSION ROUTINE/
(x:O'xNgRT'EHTOX
;ASCII CONVERSION ROUTINE
=Xe

EMTDEF

EXTRACT, +/DIGIT EXTRACTION ROUTINE/

EX;R:CT'EHTOX
=X+

:DIGIT EXTRACTION ROUTINE

EMTDEF ERROR, t/TYPE PC OF FAILING TESTS ONLY/
mx
o I'EflTox
sTYPE PC OF FAILING TESTS ONLY
=X+

EMTDEF

INSTRG, t/INPUT OCTAL DATA STRING/

§N§T§G'Efl7 *X
2Xe

;INPUT OCTAL DATA STRING

EMTDEF ERRORT,t/TRANSITION ERROR/
mx
. T=EMT +X
sTRANSITION ERROR
=X+l

EMTDEF
ERRORS,t/ON LINE STATUS ERROR/
snmlts-emox
;ON LINE STATUS ERROR
=Xe

EMTDEF

ERRORN, t/FATAL TRANSITION/

ERROfiNl =EMT +X
X=X+

;sFATAL TRANSITION

CZDHK-F MACRO V04.00
28 000000

29 000000
30 000000

31 000000
32 000000
33 000000
34 000000

35 000000
36 C00000
37 000000

27-JUN-85 13:13:25 PAGE 21-1

e s

EMTDEF

GETLNS,t/INPUT LINE NUMBERS/

EMTDEF

SETUP,t/SET UP FOR ON LINE TEST/

EMTDEF

CKRING, t/CHECK FOR RING ON CORRERT LINE/

EMTDEF

WAITRN,t/WAIT FOR TRANSITIONS/

EMTDEF

CKTRAN,t/CHECK TRANSITIONS/

104017
000020

GETLNS=EMT +X
X=Xe+1

;INPUT LINE NUMBERS

104020
000021

SETUP=EMT+X
X=X+1

;SET UP FOR ON LINE TEST

CKRING=EMT +X
X=X+1

sCHECK FOR RING ON CORRERT LINE

WAITRN=EMT +X
X=X+1

;WAIT FOR TRANSITIONS

CKTRAN=EMT +X
X=X+1

;CHECK TRANSITIONS

104021
000022
104022
000023

104023
000024
104024

EMTDEF
WAITS, t/DELAY FOR TRANSIENTS/
WAITS=EMT+X
;DELAY FOR TRANSIENTS

104025

EMTDEF CNTLUWU, t/CHANGE SWREG ROUTINE/
CNTLUU=EMT +X
;CHANGE SWREG ROUTINE

104026

EMTDEF
CKINTT,t/CHECK FOR INTERRUPTS-FLAG STYLE/
CKINTT=EMT +X
;CHECK FOR INTERRUPTS-FLAG STYLE

000025

X=X+1

000026

000027
104027

000030
éggggg

X=X+1

EMTDEF KBDIN, t/FAKE INTERRUPT ENTRY POINT/
KBDIN=EMT+X
sFAKE INTERRUPT ENTRY POINT

X=X+1

EMTDEF

ERRINT,t/TIME OUT ERROR FOR INTERRUPTS/

ER'XQI;‘T'EHTOX
=Xe

;TIME OUT ERROR FOR INTERRUPTS

—OVe-

MACRO V04.00

SEQ 24

27-JUN-85 13:13:25 PAGE 22

s TRAPCATCAER FOR ILLEGAL INTERRUPTS
.LIST MC.MD

.ukzsr ME
000200

-REPT 200
.ENDR

.42
HALT

.42
HALT
.42
HALT
.42
HALT
.42
HALT

HALT

HALT
HALT
+2

000136

AN
HALT

CZDHK-F MACRO V04.00

000140
000142
000144
000146
000150
000152
000154
000156
000160
000162
000164
000166

000142
000000
000146
000000
000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000176
000000
000202
000000

000206
000000
000212
000000
000216
000000
000222
000000
000226
000000
000232
000000
000236
000000
000242

000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000
000272
006000
000276
000000
000302
000000
000306
000000
000312
000000
000316
000000
000322

27-JUN-85 13:13:25 PAGE 22-1
.+2
HALT
.42
HALT

SEQ 25

CZDHK-F MACRO V04.00
000322
000324
000326
000330
000332
000334
000336
000340
000342
000344
000346

27-JUN-85 13:13:25 PAGE 22-2

000000
000326
000000
000332
000000
000336
000000
000342

000000
000346
000000
000352
000000
000356
000000
000362
000000
000366
000000
000372
000000
000376
000000

000402

000406

000412

LU HHL

——

000416
000000
000422

HALT
.2
HALT
.2
HALT
.+2
HALT

SEQ 26

—

CZ0MK
-F MACRO v04.00

000610
000612

000622
000624
000626
000630
000632
000634
000636
000642
000644
000646
000650
000652
000654

000656
000662
000664

27-JUN-85 13:13:25 PAGE 22-3

SEQ 27

——

CZOMK-F MACRO VO4.00

27-JUN-85 13:13:25 PAGE 22-4

000666
000000
030670 000672
000672
000000
000674
000676
000676 000000
000700 000702
000702
000000
000704 000706
000706 000000
000710 000712
000712
000000
000714
000716
000716
000000
000720 000722
000722 000000
000724 000726
000726 000000
000730 000732
000732
000000
000734
000736
000736
000000
000740 000742
000742 000000
0C0744 000746
000746 000000
000750 000752
000752 000000
000754
000756
000756 000000
000760 000762
000762 000000
000764 000766
000766 000000
000770 000772

13
14

'b—ar———

000772
000774
000776

000000
000776

000000

.LIST ME
-NLIST MC,MD,CND

SEQ 28

CZDHK-F MACRO V04.00

SEQ 29

27-JUN-85 13:13:25 PAGE 23

:STANDARD INTERRUPT VECTORS

000024

.=24

015204
000340
013044

000340

.=46

000060
002020
000340
000174
000000
000000

.=60

000200

;POWER FAIL HANDLER
:SERVICE AT LEVEL 7
;EMT DISPATCH SERVICE
sSERVICE AT LEVEL 7

340

029046
013026

000167

PFAIL
340
EMTSRY

.=174

000674

.=200

.MACRO
NLIST

LOGICAL

;ACT11?

KBDINT
340

;KEYBOARD MONITOR
:SERVICE AT LEVEL 7

DISPREG:
SWREG:
O
JMP

START

XN,
X

;GO TO START OF PROGRAM

;REFERANCE NUMBER DEFINITION

LIST
T'XN':
.NLIST
N/ X' =N'X’'e+1
.LIST

.ENDM

.MACRO
TSS
T' XNN’ :
NLIST
NN=NN+1

;REFERENCE DESIGNATION

XNN

LIST
.ENDM

.MACRO
NLIST
LIST
.ENDM

000204

000000

COMMENT

;EMT GENERATOR

X=0

COMMENT

sEMT GENERATOR

.MACRO
.NLIST

LIST
.ENDM
.MACRO
NLIST

X=0

EMTDEF
FNCT,COMMNT
FNCT=EMT +X
X=Xe1

COMMENT

s TEST TABLE GENERATOR

;' COMMNT’

—
-

CZDHK-F MACRO v04.00

56
57
58 000204
59
60
61
62
63
64

66
67
68
69
70
71
72

SEQ 30

27-JUN-85 13:13:25 PAGE 23-1
.LIST
.ENDM

COMMENT

;TEST TABLE GENERATOR

.MACRO
-NLIST

TMTM

XM,Y

TIMES=4000
.IIF GT MO-21,TIMES=400

.IIF GT MO-24,TIMES=200
.IIF GT MO-34,TIMES=4000
LIST

.NLIST

LIST
.ENDM

T XM
TIMES

MY
=M’ Y’ 8]

——
-

VR NOVIEWN
-

-F MACRO V04.00
CZDHK

001100
001100
001104
001110
001114
001120
001124

001100

001132
001140
001146
001152
001156

012702
012722
012722
012722
012722
012737
012737
012737
005067
005077
012706

001162
001166
001172
001200
001206
001210
001212
001214
0C1222
001230
001234
001240
001246

013746
013746
012737
022777
001402
000407
022626
012767
012767
012637
012637
012777
005067

SEQ 31

27-JUN-85 13:13:25 PAGE 24

.=1100
STACK:
START:

000024

015204
000340
013044
000340
013026
002020
000340
000644
014440
001100

000006
000004
001212
177777

000176
000174
000004
000006
000100
000040

#24, R2
@PFAIL, (R2)+
#340,(R2)+

; SET UP VECTOR AREA
sPOWER FAIL HANDLER
;SERVICE AT LEVEL 7
;EMT DISPATCH SERVICE
;SERVICE AT LEVEL 7

#EMTSRY, (R2).
#340, (R2)+
#LOGICAL ,8#46
#KBDINT, 8460
#340, 362

000060
000062

:SERVICE AT LEVEL 7
;CLEAR TEST IN PROGRESS FLAG

TIPFLG
8TKCSR
#STACK,SP
SUSKR:
000004
014420

014404
014400

645:
65%:
66%:

014350

MOV
MOV
MOV
CcMP
BEQ
BR
CMP
MOV
MOV
MOV
MOV
MOV
CLR

;SET UP STACK POINTER

a%6,-(SP)
a4, -(SP)
9644 ,044

:SAVE VECTORS
:SET UP FOR TIMEOUT

:;}.CSHR

;REFERENCE HARDWARE SWITCH REGISTER

66%
(SP)+,(SP)+
#SWREG, SWR
#DISPREG,DISPLAY

;POINT TO SOFTWARE SWITCH REG
;POINT TO SOFT DISPLAY REG

;ADJUST STACK

(SP)+,804
(SP)+,806

;RESTORE VECTORS

#INTENA, TKCSR
XFLAG
;XOR = NO

;ENABLE TELETYPE INTERRUPTS

bt
bttt tdtt e
t
T I T T T
t
Y TYvyrrwew

sREPLACE THE FOLLOWING BRANCH WITH A “NOP“ (240) TO ACTIVATE “XOR* CODE

001252
001254

001260
001266

001272
001276
001302
001306
001312
001314
001316
001322
001326
45 001330
46 001332
001334
48 001342
49 001346
50 001350
S1 001354
52 001356
53 001362
54 001364
55 001370
56 001372
57 001400

000423
016746
012767
005767
012667
005167
004767
000167
000000

022626
012667

005767
001005
104004
016575
012767
005767
100422
005767
001403
004767
000414
005737
001005
022767
001001

176524
001314
175566
176506
000010
014020
000010

176516

176462
014370

000001
177744

014354

176466

BEQ

013744
000042

000176

et L

BR
MOV
MOV
TST
MOV
CoM
JSR
JMP
XFLAG:
0
XORSVC: POP2SP
MO v
STARTO: TST
BNE
TYPE
MTITLE
MOV
TST
BMI
TST

014226

JSR
BR
START1: TST
BNE
CHMP
BNE

T T

STARTO
4,-(SP) ;SAVE 4
#XO0RSVC,
4

:SKIP XOR STUFF

;SET _UP SVC ROUTINE

177060
:GOT AN XOR TESTER OUT THERE ?
(SP)+,4 ;YES
XFLAG
;:XOR = YES
PC,XOR
;AUTO VECTOR
STARTO
sRESTORE TRAPCATCHER
:XOR FLAG

(SP)+,4 ;RESTORE 4
TIFLG
.+14

sTYPED TITLE?

;YES

;sTYPE “MODEM CONTROL DIAGNOSTIC”

#1,TIFLG

XFLAG
VECSTR
42
START1
PC,X0R
VECSTR

2042
$
:SH!EG.SH!
$

;SET _TITLE TYPED FLAG

iX OR ?
;RESTORE TRAPCATCHER

;ACT 117
;NO
;YES
AUTO VECTOR
;GET VECTOR AND REGISTER ADDRESS
sUNDER MONITOR?
sUSING SWREG?

]

CZDHK-F MACRO V04.00
58 001402
59 001404
60 001412
61 001414
62 001420
63 001426
64 001434
65 001442
66
67 001446
68 001454
69 001462
70 C,1470
71 001472

72 001476

73 001500
74 001504
75 001506
76 001510
77 001512
78 001514
79 001516
80 001520
81 001526
82 001530

83 001534
84 001540
85 001546
86 001554
87 001556
88 001560
89 001562

90 001564
91 001566
92 001574
93 001576
94 001602
95 001606
96 001614
97 001622
98 001624
99 001626
100 001630
101 001632

104025
032777
001510
012706
012767
012767
016777
005077

062767
062767
026727
001361
005767
100523

005767

001120
104013
016661
000300
000774
015606
032767
001404
012716

000167
016767
062767
104013
016703
170500
177777
015612
032767
001404
012716
000167
016767
062767
104013
016737
000000
177777
015720

SEQ 32

27-JUN-85 13:13:25 PAGE 24-1

000001
001100
0003C0
000302
011314
011306

000004
000004
011264

014214

011324

1$:

CNTLW
BIT
BEQ

VECSTR: MOV
MOV

011320
011310

MOV
VECSTA: MOV
CLR

011276
011272
001000

ADD
ADD
CMP
BNE

177614

176336

000003

014060

001520
013274
014042
000002

014042
014034

000007

014016

001566
013226
014000 . 014000
000002 013772

TST
BMI
TST
BNE
INSTRG
MVECTOR
300
774
DHMVEC
1%:
BIT
BEQ
MOV
JMP
VECST1: MOV

ADD
INSTRG
MREGAD
170500
177777
DHMCSR
1s:
BIT
BEQ
MOV
JMP
REGST1: MOV
ADD
INSTRG
gLINSL

177777
LINSEL

#1,3SHR

;IF SW BIT 0=1, ON PROGRAM RESTART
:INPUT VECTOR AND REGISTER ADDRESSES
:SET UP PROCESSOR STACK POINTER
+ADDRESS OF FIRST FLOATING VECTOR
;ADDRESS OF STATUS WORD
;MOVE ADDRESS OF STATUS WORD TO VECTOR
;CLEAR STATUS WORD

STARTN
#STACK,SP
#300,DATAL
#302,DATA2
DATA2,8DATAL
8DATA2
#4 ,DATAL
#4 ,DATA2
DATA1, #1000
VECSTA
XFLAG
TSTGO
42
TSTGO

#3 ,0HMVEC
VECST1
#18,(SP)

INSTER
DHMV
, DHMLVL
EC
#2,DHMLVL

@7 ,0HMCSR

REGST1

#1$,(SP)
INSTER
DHMCSR ,DHMLSR
#2,DHMLSR

:(FOR HALT ON ILLEGAL INTERRUPT)

i XOR ?

s YES
;ACT 11
;YES

sNEXT VECTOR
;NEXT STATUS WORD
;IS TABLE CLEARED
:IF NOT, CONTINUE

;GET VECTOR ADDRESS
;MESSAGE "VECTOR ADDRESS-"
;LOWER LIMIT FOR ADDRESS
;UPPER LIMIT FOR ADDRESS
:STORAGE FOR ADDRESS
;TEST 2 LSB OF ADDRESS
:IF 0, CONTINUE

: INCORRECT ADDRESS, TRY AGAIN
;GENERATE ADDRESS OF
+ INTERRUPT STATUS WORD
:GET ADDRESS OF CONTROL REGISTER
:MESSAGE "REGISTER ADDRESS-*
;LOWER LIMIT FOR ADDRESS
;UPPER LIMIT FOR ADDRESS
;STORAGE FOR ADDRESS
;IF 3 LSB ARE NOT 0
: INCORRECT ADDRESS, TRY AGAIN
+SET UP ADDRESS OF LINE STATUS REGISTER

;GET LINE SELECT PARAMETER

CZDOHK-F MACRO V04.00
1
2 001634
3 001640

4 001642

S 001644
6 001646
7 001650
8 001652
9 001656

001662

012706
104013
016771
000000
000777
015640
016705
042705
000005

001664
001666
001670
001672
13 001674
14 001702
15 001710
16 001714
17 001716
18 001722
19 0C1726

006205
006205
006205
006205
006205
016567
016567
005767
001004
012716
000167
042767

21 001734
22 001742
23 001744
24 001746
25 001752
26 001754
27 001756
28 001764
29 001770
30 001774
31 002000
32 002002
33 002004
34 002012
35 002016

026767
003401
000764
012746
005746
000005
012767
005067
005067
005067
104004
017005
012767
000167
000000

SEQ 33

27-JUN-85 13:13:25 PAGE 25

001100

013762
177077

STARTN: MOV
INSTRG
MTEST
0

#STACK,SP

X1A:

777
TSTNO
MOV
BIC

TSTNO,RS
#177077,RS5

ASR

ASR
ASR

RS
RS
RS
RS
RS
GRO(RS), TSTMAX
TSTLST(RS), TSTPNT
TSTPNT

.REPT

.ENDR

017532
017512
013756

013772
013762

001652
013106
177700

013704

013700

013732

000340
002242
013706
013640
013636

000260

000001
011250

000004

ASR
ASR

MOV
MOV
ST
BNE
X18B:
MOV
JMP
STRTOA: BIC

STRTOA

:SET UP PROCESSOR STACK
:GET TEST NUMBER
sMESSAGE "TEST-*
;LOWER LIMIT FOR TEST NUMBER
;UPPER LIMIT FOR TEST NUMBER
:STORAGE FOR TEST NUMBER
;GET TEST NUMBER
;EXTRACT TEST GROUP NUMBER

;GET HIGHEST TEST IN GROUP
;GET POINTER TO TEST TABLE
:IF 0, INVALID TEST GROUP

#X1A,(SP)

INSTER

#177700, TSTNO

CMP
TSTNO, TSTMAX
BLE
TSTGO
BR
X18
TSTGO:
#340, -(SP)
MOV
PUSH1SP
RESET
#DMYRTI,KRET
MOV
CLR
LINFLG
CLR
TRACON
PASCNT
CLR
TYPE
MCRLF
#1,TIPFLG
1¢:
MOV
JMP
TSTENT
TIPFLG: 0

:TRY AGAIN
;GET NUMBER OF FIRST TEST
:T0 BE EXECUTED IN SELECTED GROUP
;IS NUMBER TOO LARGE

:SET UP PRIORITY LEVEL
:SET UP DUMMY KEYBOARD RETURN
;CLEAR LINE SELECTED FLAG

;CLEAR TRACE TRAP FLAG
;CLEAR PASS COUNT

+SET TEST IN PROGRESS FLAG
;START TESTING

;TELETYPE KEYBOARD INTERRUPT SERVICE ROUTINE
005067
005067
005067
117767
142767
122767
001011

177772

012232
000212
013560
000200
000003

017235

022626
005077

013520

012220
012212
012204

KBDINT: CLR
CLR
CLR
MOvVB
BICB
CMPB
BNE
TYPE
MCONTC
POP2SP

CLR

TIPFLG
TMP1

SINTFL
8TKDBR, TMP1
#200,TMP1
#3,THPL
KBDINL

SDHMCSR

;CLEAR TEST IN PROGRESS FLAG
sCLEAR SOFTWARE INTERRUPT FLAG

:IF <CNTROL C> WAS TYPED

sTYPE “+C” AND

sSELECT NEW TEST

CZDMK-F MACRO V04.00
53 002072
54 002076
55 002102
56 002110
57 002112

58 002114
59 002116
60 002120
61 002124
62 002130
63 002134
64 002142
65 002144
66 002146
67 002150
68 002156
69 002160
70 002162
71 002166
72 002172

73 002176

74 002202
75 002204
76 002212
77 002214
78 002222
79 002224
80 002226
81 002234
82 002242
83
84 002244

85 002246

005077
000167
122767
001011
104004
017240

013520

177532
000026

022626
005077 013466
005077 013466
000167 177260
122767 000014
001015
104004
017243
022767 002242
001431
022626
005077 013424
005077 013424
000177 000046
005737 000042
001011
022767 000176
001005
122767 000007
001001
104025
012767 000001
012767 000001
000002

000000
000000

012152

012120

000066

013414

CLR
JMP
KBDIN1: CMPB
BNE
TYPE
MCONTY
POP2SP
CLR
CLR
JMP
KBDIN2: CMPB
BNE.
TYPE
MCONTL
CMP
BEQ
POP2SP
CLR
CLR
JMP
KBDIN3: TST
BNE
CMP

012040
000012
177554

1s:

301 002250

BNE
CMPB
BNE
CNTLW
MOV

MOV
DMYRTI: RTI
.EVEN

KRET :

@TKCSR
STARTN
#26,THP1
KBDIN2

:IF <CONTROL V> WAS TYPED
s TYPE “tV” AND GET NEW
:VECTOR AND REGISTER ADDRESS

8DHMCSR
8TKCSR
VECSTR

#14,TMP1
KBDIN3

#DMYRTI,KRET
DMYRTI

;IF <CONTROL L> WAS TYPED
;TYPE “tL" AND GET NEW
;LINE NUMBERS, UNLESS
; TEST GROUP O WAS IN PROGRESS
:IF <CONTROL L> WAS TYPED IN TEST
;GROUP 0, IGNORE

8DHMCSR
STKCSR
SKRET
8442
1s
:%lflEG +SHR

#7,THP1
1s

+IS IT <G>

#1,SINTFL
#1,TIPFLG

:SET SOFTWARE INTERRUPT FLAG
:SET TEST IN PROGRESS FLAG

SINTFL: O

109
131
132
213
214
288
289
290
291

292
293
294
295
296
297
298
299
300 002250

SEQ 34

27-JUN-85 13:13:25 PAGE 25-1

sINITIALIZATION CHECK - PERFORMED ONLY AT PROGRAM START
s VERIFY THAT CONTROL STATUS REGISTER AND LINE STATUS
+REGISTER WERE CLEARED BY INITIALIZE
.MACRO
LNLIST
NC -0
N=NO
XN=NO
LIST
.ENDM

000000
000000
000000

NO=0
N=NO
XN=NO
TS \NO,O

COMMENT

sREFERANCE NUMBER DEFINITION

CZDHK-F MACRO V04.00
002250

302 002250
303 002252
304 002254

305 002260
306 002262

307 002264

308 002270

309 002272
510 002274
311
312

000001
104004
016542
005777
001401
104012
005777
001401
104012
104002

T0:
NO=NO+1

013332

316 002276
317 002304
318 002312
319 002314
320 0C2316

321 002324
322 002332
323 002334
324 002336
325
326
327
328 002340
002340

329 002340
330 002346
331 002354
332 002356
333 002360
334 002366
335 002374
336 002376
337 002400

;REFERENCE DESIGNATION
TYPE

M16
TST

INITL:

BEQ
ERROR
78T
BEQ
ERROR
SCOPE

013324

;TYPE “16 LINE SCANNER TEST*"
8DHMCSR
.+4

SDHMLSR
.+4

;TEST CONTROL STATUS REGISTER

;CONTROL STATUS NOT CLEARED, ERROR
;TEST LINE STATUS REGISTER
;LINE STATUS NOT CLEARED, ERROR
;CHECK FOR LOOP

sVERIFY THAT “INTERRUPT ENABLE" CAN BE
;SET AND CLEARED.

313
314
315 002276
002276

SEQ 35

27-JUN-85 13:13:25 PAGE 25-2

TS \NO,0

000002
012777
032777
001001
104012
042777
032777
001401
104012
104002

000100
000100
000100
000100

013306
013300

013266
013260

;REFERANCE NUMBER DEFINITION

T1:
NO=NO+1
CSTR1:
MOV
BIT
BNE
ERROR
BIC
BIT
BEQ
ERROR
SCOPE

#INTENA, 8DHMCSR
OIQTENA.CDHHCSR
.+

#INTENA, 3DHMCSR
OIQTENA.GDHHCSR
.

;REFERENCE DESIGNATION
:SET INTERRUPT ENABLE
iWAS INTERRUPT ENABLE SET

:NO, ERROR
;CLEAR INTERRUPT ENABLE
iWAS INTERRUPT ENABLE CLEARED
:NO,

ERROR

;CHECK FOR ITERATIONS, LOOP

:VERIFY THAT “DONE” CAN BE SET AND CLEARED
TS \NO,0

000003
012777
032777
001001
104012
042777
032777
V01401
104012
104002

000200
000200
000200
000200

013244
013236

013224
013216

T2:
NO=NO+1

CSTR2:

;REFERANCE NUMBER DEFINITION

MOV
BIT
BNE
ERROR
BIC
BIT
BEQ
ERROR
SCOPE

#DONE
, 8DHMCSR
IDgNE.GDHHCSR
.

#DONE
, 8DHMCSR
002NE.CDHHCSR
o

+REFERENCE DESIGNATION
:SET DONE

:WAS DONE SET

;NO, ERROR
;:CLEAR DONE
:WAS DONE CLEARED
;NO, ERROR
;CHECK FOR ITERATIONS, LOOP

CZDHK-F MACRO V04.00

27-JUN-85 13:13:25 PAGE 25-3

338
gz:

sVERIFY “MAINTENANCE MODE“ CAN BE SET AND CLEARED

341 002402

002402
342 002402
343 002410
344 002416

345 002420
346 002422
347 002430
348 002436
349 002440
350 002442

TS \NO,O0

000004

012777
032777
001001
104012
042777
032777
001401
104012
104002

001000
001000

013202
013174

001000
001000

013162
013154

13:
NO=NO+1

CSTR3:

;REFERANCE NUMBER DEFINITION

MOV
BIT
BNE
ERROR
BIC
BIT
BEQ
ERROR
SCOPE

#MAINT ,8DHMCSR
#MAINT ,3DHMCSR
.+4

#MAINT ,8DHMCSR
#MAINT,3DHMCSR
.+4

;REFERENCE DESIGNATION
:SET MAINTENANCE MODE
iWAS MAINTENANCE MODE SET

iNO, ERROR
;CLEAR MAINTENANCE MODE
:WAS MAINTENANCE MODE CLEARED
;NO, ERROR
;CHECK FOR ITERATIONS, LOOP

B LN

-F MACRO V04.00
CZDHK

SEQ 37

27-JUN-85 13:13:25 PAGE 26

sVERIFY THAT “SCAN ENABLE” CAN BE SET AND CLEARED.
002444

TS \NO,O

002444

74:
NO=NO+1
CSTR4:
MOV

5 002444
6 002452

Z 002460

012777
032777
001001

9 002462
10 002464
11 002472
12 002500

104012
042777
032777
001401

14 002502

104012
104002

15 002504

000040

000040
000040

013140
013132

sREFERANCE NUMBER DEFINITION

BIT

BNE

ERROR

013120
013112

BIC
BIT

BEQ

#SCNENA, 83DHMCSR

#SCNENA, 8DHMCSR

.+4

#SCNENA , 3DHMCSR
#SCNENA, 83DHMCSR
.+4

ERROR
SCOPE

;REFERENCE DESIGNATION
;sSET SCAN ENABLE

;WAS SCAN ENABLE SET
:NO, ERROR

;CLEAR SCAN ENABLE
;WAS SCAN ENABLE CLEARED
;NO, ERROR

;CHECK FOR ITERATIONS, LOOP

sVERIFY THAT "BUSY” IS SET WHEN “SCAN ENABLE" IS SET
sVERIFY THAT “BUSY” IS CLEARED WHEN “SCAN ENABLE” IS CLEARED
20 002506
002506

21
22
23
24

002506
002514
002522
002524

25 002526
26 002534
27 002542
28 002544
29 002546

000006
012777
032777
001001
104012
042777
032777
001401
104012
104002

000040
000020

013076
013070

\NO,
0

sREFERANCE NUMBER DEFINITION

15:
NO=NO+1
CSTRS:
MOV

gfl

:REFERENCE DESIGNATION

#SCNENA, 8DHMCSR
.Bl‘ISY.fl)FHCSR
» %

000040
000020

ERROR
BIC

013056
013050

BIT

BEQ

ERROR
SCOPE

#SCNENA, 8DHMCSR
#BUSY, 8DHMCSR

.+4

:SET SCAN ENABLE
;IS BUSY BIT SET

;:BUSY NOT SET, ERROR
;CLEAR SCAN ENABLE
;IS BUSY BIT CLEARED
;BUSY NOT CLEARED, ERROR
;CHECK FOR LOOP, ITERATIONS

sVERIFY THAT SETTING “DONE” DOES NOT CCAUSE AN

;INTERRUPT IF “INTERRUPT ENABLE” IS CLEARED.

34 002550

002550

35 002550
36 002556
37 002562
38 002570
39 002576
40 002604

41
42
43
44
45

002612
002614
002616
002620
002622

TS \NO,O

000007

052767
005077

012777
016777
052777
042767
00024C
000402
022626
104012
104002

000340
013030
002616
175202
000200
000340

175220

;REFERANCE NUMBER DEFINITION

T6:
NO=NO+1
INTL:
BIS

013016
013012
013006
175164

INT1A:
INT1B:

CLR
MOV
MOV
BIS
BIC
NOP
BR

POP2SP

ERROR
SCOPE

#340,PS

SDHMCSR
#INT1A,8DHMVEC
PS,8DHMLVL
ODONE, 8DHMCSR
#340,PS

INT1B

;REFERENCE DESIGNATION
;LOCK OUT INTERRUPTS

sCLEAR CONTROL REGISTER
:SET UP INTERRUPT SERVICE ADDRESS
sSET UP INTERRUPT PRIORITY
;SET DONE
sALLOW INTERRUPTS

sDELAY FOR INTERRUPT

iNO INTERRUPT, CONTINUE
sRESTORE STACK, INTERRUPT

;OCCURED, ERROR
;CHECK FOR LOOP, ITERATIONS

CZDHK-F MACRO V04.00

SEQ 38

27-JUN-85 13:13:25 PAGE 27

sVERIFY THAT NO INTERRUPT OCCURS WITH "INTERRUPT ENABLE"
sSET AND “DONE” CLEARED.
TS \NO,O

000340
012754
002672
175126
000100
000340

175144

22 002700
23 002706
24 002712
25 002720
26 002726
27 002734
28 002742
29 002750
30 002752
31 002754
32 002760
33 002762
34 002764
35 002766
36
37
38
39

CLR
MOV
MOV
BIS
BIC
NOP

INT2A:

15 002674
16 002676
17
18
19
20
21 02700
002700

NO=NO+1
INT2:
BIS

012742
012736
012732
175110

14 002672

INT2B:

POP2SP
ERROR
SCOPE

#340,PS

S8DHMCSR
#INT2A,8DHMVEC
PS , 8DHMLVL

@INTENA, 8DHMCSR
#340,PS

INT2B

TS \NO,0
110
;REFERANCE NUMBER DEFINITION

000011
052767
005077
012777
012777
016777
042767
052777
000240
005077
104012
000401

022626
104002

000340
012700
002764
000100
175044
000340
000200

175070
012666
012664
012654
175034
012642

NO=NO+1
INT3:
BIS
CLR

012632

#INT3A, 8DHMVEC
O@INTENA, 8DHMCSR
PS, SDHML VL

CLR

SDHMCSR

INT3B

ERROR

INT3A:
INT3B:

.LIST
.ENDM

000340
000007
.REPT
.NLIST

#340,PS
SDHMCSR

MOV
MOV
MOV
BIC
BIS
NOP
NOP

.MACRO
.NLIST

41
42
43

45
46
47
43

;REFERENCE DESIGNATION
;LOCK OUT INTERRUPTS
;CLEAR CONTROL REGISTER
:SET UP INTERRUPT SERVICE ADDRESS
+SET UP _INTERRUPT SERVICE LEVEL
:SET INTERRUPT ENABLE
;ALLOW INTERRUPTS
:DELAY FOR INTERRUPTS
iNO INTERRUPT, CONTINUE
;RESTORE STACK
: INTERRUPT OCCURED, ERROR
:CHECK FOR ITERATIONS, LOOP

sVERIFY THAT SETTING “DONE” CAUSES AN INTERRUPT
sWITH “INTERRUPT ENABLE“ SET

44 002770

sREFERANCE NUMBER DEFINITION

POP2SP
SCOPE

#340,PS
QDONE , 8DHMCSR

COMMENT

ST=340
LVL=7
T=4

COMMENT
ST=340
LVL=7

T=4
&
NOINT

ST=ST-40

L
AST,\LWVL,\T

+REFERENCE DESIGNATION
;LOCK OUT INTERRUPTS
;CLEAR CONTROL REGISTER
+SET UP INTERRUPT SERVICE ADDRESS
:SET "INTERRUPT ENABLE"
+SET “INTERRUPT LEVEL"
sALLOW INTERRUPTS
:SET "“DONE”
;DELAY FOR INTERRUPT

+ INTERRUPT OCCURED, ERROR
sCONTINUE
s INTERRUPT OCCURED, RESTOR STACK
:CHECK FOR ITERATION, LOOP

CZDHK-F MACRO V04.00
49

50
51
52
53
54

SEQ 39

27-JUN-85 13:13:25 PAGE 27-1
LVL=LVL-1
T=T«1

LIST
.IIF EQ NO-12, .PAGE
.IIF EQ NO-15, .PAGE
.ENDR
NOINT
\ST,\LVL,\T

002770

sVERIFY THAT NO INTERRUPT OCCURS WITH
s “INTERRUPT ENABLE” SET AND “DONE” SET AT PRIORITY 7.
TS \NO,O

000012
005077
042767
052767
012777
016777
012777

052777

000240
005077
000402
022626
104012
104002
000300
000006
000005

012616
000340
003052

174754

000100
000200

174774
174766
012570
012564
012560
012552

sREFERANCE NUMBER DEFINITION

T11:
NO=NO+1
INT4:
CLR
BIC
BIS
MOV
MOV
MOV
BIS

:g:

012542
INT4A:
INT4B:

8DHMCSR
#340,PS
#340,PS
#INT4A,8DHMVEC
PS, 8DHMLVL
SINTENA, 8DHMCSR
ODONE , 8DHMCSR

CLR
SDHMCSR
BR
INT4B
POP2SP
ERROR
SCOPE
ST=ST-40
LVL=LVL-1
T=T+1

;REFERENCE DESIGNATION
;CLEAR CONTROL REGISTER
+SET PROCESSOR PRIORITY
;7O LEVEL 7.
+SET UP INTERRUPT SERVICE ADDRESS
;SET UP INTERRUPT SERVICE LEVEL
:SET INTERRUPT ENABLE
;GENERATE INTERRUPT

:DELAY FOR INTERRUPT

sNO INTERRUPT, CONTINUVE
sRESTORE STACK
s INTERRUPT OCCURED, ERROR
;CHECK FOR ITERATION, LOOP

—
=
-

CZ0MX
-F MACRO VO4.00
0

SEQ 40

27-JUN-85 13:13:25 PAGE 28
.IIF EQ NO-15, .PAGE
NOINT
\ST,\LVL,\T

003060

sVERIFY THAT NO INTERRUPT OCCURS WITH
s “INTERRUPT ENABLE” SET AND “DONE” SET AT PRIORITY 6.
003060

TS \NO,O

003060

T12:

003060

003072
003100
003106
003114
003122
003130
003132
003134
003140
003142
0C3144
0C3146

000013
005077
042767
052767
012777
016777

012777

052777
000240
000240
005077
000402
022626
104012
104002
000240
000005

012526
000340
000300
003142
174664
000100
000200

174704
174676
012500
012474
012470
012462

012452

sREFERANCE NUMBER DEFINITION

NO=NO-1
INTS:
CLR
BIC
BIS

INTSA:
INTSB:

8DHMCSR
#340,PS
#300,PS

MOV
MOV
MOV

SINTSA,8DHMVEC
PS ,8DHML
VL
@INTENA, 8DHMCSR

"INTSB

BIS
NOP
NOP
CLR

9DONE
, 3DHMCSR

:REFERENCE DESIGNATION
;CLEAR CONTROL REGISTER
:SET PROCESSOR PRIORITY
:TO LEVEL 6.
+SET UP INTERRUPT SERVICE ADDRESS
:SET UP INTERRUPT SERVICE LEVEL
:SET INTERRUPT ENABLE
iGENERATE INTERRUPT
:DELAY FOR INTERRUPT

SDHMCSR

POP2SP
ERROR
SCOPE
ST=S7-40

sNO INTERRUPT, CONTINUE
;RESTORE STACK
: INTERRUPT OCCURED, ERROR
:CHECK FOR ITERATION, LOOP

LVL=LVL-1

000006

T=T.1
.IIF EQ NO-12, .PAGE
.IIF EQ NO-15, .PAGE
NOINT
\ST,\LVL,\T

003150

sVERIFY THAT NO INTERRUPT OCCURS WITH
+ “INTERRUPT ENABLE” SET AND “DONE” SET AT PRIORITY 5.
003150
003150

003150
003154
003162
003170
003176
003204
003212
003220
003222
003224
003230
003232
003234
003236

TS \NO,O
sREFERANCE NUMBER DEFINITION

000014
005077
042767
052767
012777
016777
012777
052777
000240
000240
005077
000402
022626
104¢12
104002
000200
000004
000007

012436
000340
000240
003232
174574
000100
000200

NO=NO-1

174614
174606

INT6:

012410
012404
012400
012372

CLR
BIC
BIS

INT6A:

#240,PS

MOV
MOV
MOV

SINT
, 8DHMVEC
6A
PS ,8DHMLVL
SINTENA, 3DHMCSR

CLR
BR

SDHMCSR
INT6B

BIS
NOP
NOP

012362

SOHMCSR
#340,PS

#00NE
, 3DHMCSR

POP2SP
ERROR
INT6B:
SCOPE
ST=5T7-40
LVL=LVL-1
T=T.1
.IIF EQ NO-12,.PAGE
.IIF EQ NO-15, .PAGE

+REFERENCE DESIGNATION

:CLEAR CONTROL REGISTER
+SET PROCESSOR PRIORITY

:TO LEVEL 5.
:SET UP INTERRUPT SERVICE ADDRESS
+SET UP INTERRUPT SERVICE LEVEL
;SET INTERRUPT ENABLE
;GENERATE INTERRUPT
;sDELAY FOR INTERRUPT
;NO INTERRUPT, CONTINUE
sRESTORE STACK
s INTERRUPT OCCURED, ERROR
;CHECK FOR ITERATION, LOOP

CZ0MK
-F MACRO vO4.00

SEQ 41

27-JUN-85 13:13:25 PAGE 28-1

003240

NOINT

\ST,\LVL,\T

sVERIFY THAT NO INTERRUPT OCCURS WITH
s “INTERRUPT ENABLE” SET AND “DONE” SET AT PRIORITY 4.
003240

TS \NO,O

003240

T14:
NO=NO-1

003240
003244
003252
003260
003266
003274
003302
003310
003312
003314
003320
003322
003324
003326

000015
005077
042767
052767
012777
016777
012777
052777

000240
005077
000402
022626
104012
104002
000140
000003
000010

012346
000340
000200
003322

174504
000100
000200

174524
174516
012320
012314

INT7:

sREFERANCE NUMBER DEFINITION
;REFERENCE DESIGNATION

CLR

BIC

BIS

MOV
MOV
MOV

012310
012302

012272
INT7A:

SDHMCSR

;SET PROCESSOR PRIORITY

#INT7A,8DHMVEC
PS,8DHMLVL
#INTENA, @DHMCSR

;SET UP INTERRUPT SERVICE ADDRESS
;SET UP INTERRUPT SERVICE LEVEL
;SET INTERRUPT ENABLE

#200,PS

BIS
NM&:

SDONE , 3DHMCSR

CLR

SDHMCSR

;CLEAR CONTROL REGISTER

INT78B

POP2SP
ERROR
INT7B:
SCOPE
ST=ST-40
LVL=LVL-1
T=T.1
.IIF EQ NO-12, .PAGE

;7O LEVEL 4.

;GENERATE INTERRUPT
;DELAY FOR INTERRUPT

;NO INTERRUPT, CONTINUE

;RESTIORE STACK
;INTERRUPT OCCURED,

ERROR

;CHECK FOR ITERATION, LOOP

—

CZDHK-F MACRO V04.00
1
2
1

.MACRO
NLIST

...

COMMENT
ST=0

5
6

7
8
9 003330

COMMENT

000000
000000

ST=0
LVL=0

000004

11
12
13

LVL=0
T=10

.LIST
.ENDM

000010

T7=10

.REPT

INTS

NLIST

\ST,\LVL,\T

ST=5T7.40

14
15

16
17
18

27-JUN-85 13:13:25 PAGE 29

LVL=LVL.1
T=T.1

.LIST
.IIF EQ NO-20, .PAGE
.ENDR

003330

INTS

\ST,\LVL,\T

;VERIFY THAT AN INTERRUPT OCCURS WITH "INTERRUPT
:ENABLE” SET AND “DONE” SET AT PRIORITY 0.

003330

TS \NO,O

003330

T15:
NO=NO+1

003330
003334
003342
003350
003354
003362
003370
003376
003400
003402
003406
003410
003412
003414

000016

005077
042767
012777
005077
052767
012777
052777
000240
000240
005077
104012
000401
022626
104002

000040
000001
000011

003416

012256
000340
003412
012234
000000
000100
000200

012204

174434
012236
174414
012222
012214

;REFERANCE NUMBER DEFINITION

INT10:

CLR
BIC
MOV
CLR
BIS
MOV
BIS
NOP
NOP
CLR
ERROR
BR
INT10A: POP2SP
INT10B: SCOPE

@DHMCSR
#340,PS
#INT10A, 83DHMVEC
SDHMLVL
#0,PS
#INTENA, 3DHMCSR
#DONE , SDHMCSR

;REFERENCE DESIGNATION
;CLEAR CONTROL REGISTER
;ALLOW INTERRUPTS
:SET UP INTERRUPT SERVICE ADDRESS
:SET UP INTERRUPT SERVICE PRIORITY
;SET PROCESSOR PRIORITY TO LEVEL O.
;SET INTERRUPT ENABLE
;GENERATE INTERRUPT
;WAIT FOR INTERRUPT

SDHMCSR
INT108

ST=5T+40
LVL=LVL+1
T=Te1

sNO INTERRUPT, ERROR

; CONTINUE
; INTERRUPT OCCURED, RESTORE STACK
;CHECK FOR INTERATIONS, LOCP.

.IIF EQ NO-20, .PAGE

INTS

AST,ALVL,\T

;VERIFY THAT AN INTERRUPT OCCURS WITH “INTERRUPT
;ENABLE” SET AND “DONE” SET AT PRIORITY 1.

003416

TS \NO,0

003416

Ti6:
NO=NO+1

000017

;REFERANCE NUMBER DEFINITION

;REFERENCE DESIGNATION

CZDHK
-F MACRO v04.00

003416
003422
003430
003436
003442
003450
003456
003464
003466
003470
003474
003476
003500
003502

005077
042767
012777
005077
052767

012777
052777
000240
000240
005077
104012
000401
022626
104002
000100
000002
000012

SEQ 43

27-JUN-85 13:13:25 PAGE 29-1
012170
000340
003500
012146
000040
000100
000200

174346
012150

INT11:

MOV

CLR
BIS

174326

012134
012126

012116

003504

CLR
BIC

MOV

8DHMCSR
@340,PS

@INT11A,8DHMVEC

SDHMLVL
#40,PS

#INTENA, 3DHMCSR

BIS
#DONE, 8DHMCSR
NOP
NOP
CLR
SDHMCSR
ERROR
BR
INT118
INT11A: POP2SP
INT11B: SCOPE
ST=5T+40
LVL=LVL.1
T=T.1
.IIF EQ NO-20, .PAGE
\ST,\LVL,\T
INTS

;CLEAR CONTROL REGISTER
;ALLOW INTERRUPTS
:SET UP INTERRUPT SERVICE ADDRESS
:SET UP INTERRUPT SERVICE PRIORITY
:SET PROCESSOR PRIORITY TO LEVEL 1.
;SET INTERRUPT ENABLE
:GENERATE INTERRUPT
;WAIT FOR INTERRUPT

;NO INTERRUPT, ERROR
; CONTINUE
: INTERRUPT OCCURED, RESTORE STACK
:CHECK FOR INTERATIONS, LOOP.

sVERIFY THAT AN INTERRUPT OCCURS WITH "INTERRUPT
;ENABLE” SET AND “DONE“ SET AT PRIORITY 2.
0C3504

003504
003504
003510
003516
003524
003530
003536
003544
003552
003554
003556
003562
003564
003566
003570

000020
005077
042767
012777

005077
052767
012777
052777

000240

000240
005077
104012
000401
022626
104002
000140
000003
000013

012102
000340
003566
012060
000100
000100
000200
012030

174260

012062

174240
012046
012040

TS \NO,0
e
;REFERANCE NUMBER DEFINITION
17:
NO=NO+1
INT12:
CLR
SDHMCSR
BIC
#340,PS
MOV
#INT12A, 3DHMVEC
CLR
SDHMLVL
BIS
#100,PS
MOV
#INTENA, 8DHMCSR
BIS
#DONE , SDHMCSR
NOP
NOP
CLR
8DHMCSR
ERROR
'
BR
INT128B

INT12A: POP2SP

INT12B:

SCOPE
ST=ST+40

LVL=LVL+1
T=Te1

;REFERENCE DESIGNATION
;CLEAR CONTROL REGISTER
;ALLOW INTERRUPTS
:SET UP INTERRUPT SERVICE ADDRESS
+SET UP INTERRUPT SERVICE PRIORITY
+SET PROCESSOR PRIORITY TO LEVEL 2.
:SET_INTERRUPT ENABLE
:GENERATE INTERRUPT
;WAIT FOR INTERRUPT

;NO INTERRUPT, ERROR
s CONTINUE
: INTERRUPT OCCURED, RESTORE STACK
;CHECK FOR INTERATIONS, LOOP.

CZDHK-F MACRO V04.00

SEQ 44

27-JUN-85 13:13:25 PAGE 30

0 003572

INTS

\ST,A\LVL,\T

;VERIFY THAT AN INTERRUPT OCCURS WITH “INTERRUPT
sENABLE” SET AND "DONE“ SET AT PRIORITY 3.

003572

TS \NO,0

003572

T20:
NO=NO+1

003572
003576
003604
003612
003616
003624
003632

003640
003642
003644
003650
003652
003654

003656

000021

005077
042767
012777
005077
052767
012777
052777

000240
000240
005077
104012
000401
022626
104002

000200
000004
000014

012014
000340
003654
011772
000140
000100
000200

011742

174172
011774
174152
011760
011752

INT13:

;REFERANCE NUMBER DEFINITION

CLR
BIC
MoV
CLR
BIS
MOV
BIS

NOP
NOP
CLR
ERROR
BR
INT13A: POP2SP

8DHMCSR
#340,PS
#INT13A, 3DHMVEC
SDHMLVL
#140,PS
#INTENA, 8DHMCSR
#DONE , 9DHMCSR

:REFERENCE DESIGNATION
;CLEAR CONTROL REGISTER
;ALLOW INTERRUPTS
:SET UP INTERRUPT SERVICE ADDRESS
:SET UP INTERRUPT SERVICE PRIORITY
;SET PROCESSOR PRIORITY TO LEVEL 3.
;SET _INTERRUPT ENABLE
:GENERATE INTERRUPT

;WAIT FOR INTERRUPT

8DHMCSR

INT13B

INT13B: SCOPE

ST=ST+40
LVL=LVL+1
T=T+1

.IIF EQ NO-20, .PAGE

;NO INTERRUPT, ERROR
s CONTINUVE
:INTERRUPT OCCURED, RESTORE STACK
:CHECK FOR INTERATIONS, LOOP.

CZDHK-F MACRO V04.00

SEQ 45

27-JUN-85 13:13:25 PAGE 31

1
2

sVERIFY THAT ALL LINE NUMBERS CAN BE WRITTEN INTO AND

;READ BACK FROM LINE COUNTER

5 003660

TS \NO,0

003660

T21:
NO=NO+1

6 003660

7 003664
8 003672
9 003700
10 003702
11 003706
12 003714
13 003716

14 003722

15 003726
16 003730
17 003732
18 003734
19 003736
20 003740
21 0C3742
22 003746
23 003750
g; 003752

000022
005077

042767
012767
005005
012700
036767
001407
010577

017704

020504
001401
104000
104003
003706
005205
006367
005300
001356
104002

011726

000340
000001

174104
012022

000020
012010

012004

011670

011664

LINT1:

;REFERANCE NUMBER DEFINITION

CLR

BIC
MOV
.
CLR
MOV
LINT1A: BIT
BEQ
MOV
MOV

CMP
BEQ
ERRORC
LINT1B: SCOPEF
LINT1A
INC
ASL
DEC
BNE
SCOPE

011754

26
g;

8DHMCSR

#340,PS
#1,SELMSK
RS
#16. ,RO
SELMSK,LINSEL
LINT1B
RS, 8DHMCSR

8DHMCSR, R4

R5,R4
LINT1B

RS
SELMSK
RO
LINT1A

;REFERENCE DESIGNATION
;CLEAR CONTROL STATUS REGISTER

;ENABLE INTERRUPTS
:INIT LINE SELECT MASK
;CLEAR EXPECTED LINE NUMBER
;SET UP TO TEST 16 LINE NUMBERS
:THIS LINE SELECTED ?7?
;:BR IF NOT
:SET LINE NUMBER
;READ BACK LINE NUMBER
;ARE EXPECTED AND RECEIVED
iLINE NUBMERS THE SAME

;LINE NUMBERS DIFFERENT, ERROR
:CHECK FOR DATA FREEZE
;RETURN FOR DATA FREEZE

:UPDATE LINE COUNT
;SELECT NEXT LINE TO TEST
;UPDATE LINE NUMBER
;CONTINUE
iCHECK FOR ITERATION, LOOP

sUSING "STEP” MODE, VERIFY THAT THE
;LINE COUNTER CAN BE STEPPED THRU ALL STATES.

29 003754

003754
30 003754
31 003762
32 003766
33 003770
34 003776
35 004002
36 004006
37 004014
38 004022
39 004024
40 004030
41 004034
42 004036
43 004040

TS \NO,0

000023

042767
005077
005005
012767
012701
012700
012777
036767
001407
004767
017704
020504
001401
104000

000340
011624

174014

000001
177777
000020
000017
011702

011724

007354
011556

011576
011676

T22:
NO=NO+1

LINT2:

sREFERANCE NUMBER DEFINITION

BIC
CLR
CLR
MOV
MOV
MOV
MOV
LINT2A: BIT
BEQ
CALL
MOV
CcMP
BEQ
ERRORC

#340,PS
SDHMCSR
RS
#1,SELMSK
#-1,R1
#16. ,RO
#17, 30HMCSR
SELMSK , LINSEL
LINT2B
STEPER
S8DHMCSR, R4
RS,R4
LINT28B

;REFERENCE DESIGNATION
;ENABLE INTERRUPTS
;CLEAR CONTROL STATUS REGISTER
;CLEAR EXPECTED LINE COUNT
+SET UP SELECT MASK
sINIT LINE COUNTER
;SET UP TO TEST 16 VALUES
;FIRST VALUE =0
s THIS LINE SELECTED ??
;BR IF NOT
;STEP LINE COUNTER
sREAD LINE COUNTER
:COMPARE EXPECTED AND
;RECEIVED LINE NUMBERS
;LINE COUNTER ERROR

CZOHK-F MACRO V04.00
44 004042
45 004044
46 004046
47 004050
48 004054
49 004056
50 004062
51 004064

52 004066

104003
003754
005205
006367
005201
010177
005300
001353

104002

27-JUN-85 13:13:25 PAGE 31-1

011646
011530

LINT2B: SCOPEF
LINT2
INC
ASL
INC
MOV
DEC
BNE

SCOPE

——
;CHECK FOR DATA FREEZE
RS
SELMSK
R1
R1,8DHMCSR
RO
LINT2A

;UPDATE EXPECTED LINE NUMBER
;SHIFT SELECT MASK
;GEN NEW LINE NO.
:SET NEW LINE NO. IN CSR

;CHECK FOR ITERATIONS, LOOP

DNOVE
NN -

CZDHK-F MACRO V04.00

SEQ 47

27-JUN-85 13:13:25 PAGE 32

sWRITE 1°'S INTO ALL SCANNER MEMORY LOCATIONS.
;VERIFY THAT ALL LOCATIONS HAVE BEEN WRITTEN
;70 1'S.
sVERIFY THAT “CLEAR SCAN” CLEARS ALL SCANNER
;MEMORY LOCATIONS.
004070

TS \NO,O

123

004070

000024
9 004070
012777
10 004076 042767
11 004104
012700
12 004110 052777
13 004116 004767
14 004122 005300
15 004124 001374
16 004126 012700
17 004132
012705
18 004136
012777
19 004144
004767
20 004150 017704
21 004154
020504
22 004156 001403
23 004160
104000
24 004162
104003
25 004164 004070
26 004166 005205
27 004170 005300
28 004172 001364
29 004174 012777
30 004202 032777
31 004210 001374
32 004212 012700

33 004216

34 004220
35 004226
36 004232
37 004236
38 004240
39 004242

40 004244
41 004246
42 004250

43 004252

44 004254
45 004256

005005

012777
004767
017704
020504
001403
104000
104003
004174
005205
005300
001364
104002

002000
000340
000020
001017
007262
000020
070000
000017
007234
011436

011514
173672
011474

011446

;REFERANCE NUMBER DEFINITION

NO=NO+1
MEMT1:
MOV
BIC
MOV
BIS
MEMT1A: CALL
DEC
BNE
MOV
MOV

MEMT1A
#16. ,RO
#70000,R5

MEMT1B: CALL

STEPER

MOV

CMP
BEQ
ERRORC
SCOPEF
MEMT1
MEMT1C: INC
DEC

004000
000020

011410

011402

000020
000017
007152
011354

011364

#MAINT +17,3DHMCSR

STEPER
RO

#17,8DHMCSR

8DHMCSR, R4

R5,R4
MEMT1C

CLR

CALL

STEPER

BNE

MOV

cHP
BEQ
ERRORC

;CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS
:SET UP TO TEST 16 LOCATIONS
i SET MAINTEANCE MODE
;SET LINE COUNTER THRU ALL
:STATES, WRITING 1‘S INTO
;ALL MEMORY WORDS
:SET UP TO TEST 16 WORDS
;SET UP EXPECTED STATUS REGISTER
:START WITH LINE 0
;ACCESS SCANNER MEMORY
;READ DATA
sgg?:ARE EXPECTED AND RECEIVED
:

;CONTROL STATUS OR MEMORY ERROR
;CHECK FOR DATA FREEZE
RS
RO
MEMT18B
#CLRSCN, 8DHMCSR
#BUSY, 8DHMCSR
.-6
#16. ,RO
RS

MEMT1D: MOV
BIT
BNE
MOV
MEMT1E:

#CLRMUX , 8DHMCSR
#340,PS
#16. ,R0

;REFERENCE DESIGNATION

917, 8DHMCSR

SDHMCSR, R4

R5.R4
MEMT1F

SCOPEFF
MEMT1D
MEMT1F: INC
RS
DEC
RO
BNE
MEMT1E
SCOPE

:UPDATE EEXPECTED STATUS
;UPDATE LINE COUNT
; CONTINUVE
:SET “CLEAR SCAN“

;WAIT FOR

"CLEAR CYCLES"”

+SET UP TO TEST 16 MEMORY
;LOCATIONS
;FIRST TO BE TESTED=0
;ACCESS SEANNER MEMORY
:READ DATA
:gg?:ARE EXPECTED AND RECEIVED
;

;CONTROL STATUS OF MEMORY ERROR
;CHECK FOR DATA FREEZE
sUPDATE EXPECTED DATA
;UPDATE LINE COUNT
s CONTTINUE
;CHECK FOR ITERATIONS, LOOP

VHWN
-

-F MACRO V04.00
CZDHK

SEQ 48

27-JUN-8S 13:13:25 PAGE 33

sWRITE 1‘S INTO SELECTED SCANNER MEMORY LOCATION.
;VERIFY THAT ONLY SELECTED LOCATION WAS WRITTEN INTO.
004260

TS \NO.O

004260

T24:
NO=NO+1
MEMT2:
CLR
BIC
MOV
MOV
MEMT2A: MOV
BIT
BNE
MOV
BIS
CALL
BIC
MOV
MOV
INC
CLR
MEMT2B: CALL
MOVB
MOV
CMPB
BNE
BIS
MEMT2C: cMP
BEQ
ERRORC

004260
004264
004272
004276
004302
004310
004316
004320
004326
004332
004336
004344
004350
004356
004360
0C4362
004366
004372
004374
004376
004400
004404
004406
004410
004412
004414
004416
004420
004422
004424
004426
004430

000025
005077

042767

012700
012702
012777
032777
001374
012777
050277
004767
042777
012703
012777
005202
005001
004767
117704
010105
120402
001002
052705
020405
001403
104000
104003
004302
005201
005303
001357
005300
001325
104002

011326
000340
000020
000017
004000
000020

001000
011260
007046
001000
000020
000017

007016
011220

070000

173504
011302
011274
011264
011246
011234

MEMT20D:

;REFERANCE NUMBER DEFINITION

SCOPEF
MEMT2A

INC
DEC
BNE

DEC

BNE
SCOPE

SDHMCSR
#340,PS
#16. ,RO
#17,R2
#CLRSCN, 8DHMCSR

OBgSY » @DHMCSR

#MAINT, 3DHMCSR
R2,8DHMCSR

STEPER

OMAINT, 3DHMCSR
#16. ,R3
#17,8DHMCSR
R2
R1
STEPER

;REFERENCE DESIGNATION

:CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS
:SET UP TO TEST 16 ADDRESSES

;FIRST ADDRESS TO BE TESTED=0

:CLEAR ACANNER MEMORY
;WAIT FOR CLEAR CYCLE

:SET “MAINTENANCE MODE”
;SET LINE COUNTER TO TEST ADDRESS-1
sWRITE 1'S INTO TEST ADDRESS
;CLEAR "MAINTENANCE MODE"
:SET UP TO TEST ALL 16
:SCANNER MEMORY LOCATIONS

R4 ,R2

:ACCESS SCANNER MEMORY
;READ CONPENTS OF MEMORY
:SET UP EXPECTED CONTENTS
;OF SCANNER MEMORY

#70000,R5
R4 ,RS
MEMT2D

; VALUES

@DHMCSR, R4
R1,R5
MEMT2C

:COMPARE EXPECTED AND RECEIVED

:SCANNER MEMORY ERROR
;CHECK FOR DATA FREEZE
R1
R3
MEMT28
RO
MEMT2A

; TEST NEXT SCANNEB LOCATION
;UPDATE LINE COUNT
;CHECK FOR ITERATION, LOOP

CZDHK-F MACRO V04.00

SEQ

27-JUN-85 13:13:25 PAGE 34

sWITH ALL ACANNER MEMORY LOCATIONS SET TO 1'S,

sWRITE 0'S INTO SELECTED LOCATION

;

sVERIFY THAT ONLY SELECTED LOCATION WAS CLEARED.

6 004432

TS \NO,0

004432

T25:
NO=NO+1

7 004432
8 004436

9 004444
10 004450
11 004454
12 004460
13 004466
14 004472
15 004474
16 004476

17 004502

18 004506
19 004512
20 004520
21 004522
22 004524

23 004530
24 004534
25 004536
26 004540
27 004542
28 004546
29 004550
30 004552
31 004554
32 004556
33 004560
34 004562
35 004564
36 004566
37 004570
38 004572

000026
005077
042767

012700
012702
012703
012777
004767
005303
001374
010277

004767

012703
012777
005202
005001
004767

117704
010105
120402
001002
052705
020405
001403
104000
104003
004454
005201
005303
001357
005300
001331
104002

011154
000340

000020
000017
000020
001017
006712

173332

011124

011110

006654
011056

070000

CLR
BIC

MOV
MOV

006676

000020
000017

MEMT3:

;REFERANCE NUMBER DEFINITION

011072

MEMT3A: MOV
MOV
MEMT3B: CALL
DEC
BNE
MOV
CALL
MOV
MOV
INC
CLR
MEMT3C: CALL
MOV
MOV
CMPB
BNE
BIS
MEMT3D: CMP
BEQ
ERRORC
SCOPEF
MEMT3A
MEMT3E: INC
DEC
BNE
DEC
BNE
SCOPE

8DHMCSR
#340,PS
#16. ,RO
#17,R2
#16. ,R3
#MAINT+17,8DHMCSR
STEPER
R3
MEMT 3B
R2,3DHMCSR

STEPER

#16. ,R3
#17,3DHMCSR
R2
R1
STEPER

8DHMCSR, R4
R1.RS
R4 ,R2
MEMT3D
#70000,RS
R4 ,RS5
MEMT3E

R1
R3
MEMT3C
RO
MEMT3A

;REFERENCE DESIGNATION
;CLEAR CONTROL STATUS REGISTER
:ENABLE INTERRUPTS
:SET UP TO TEST 16 ADDRESSES
;FIRST ADDRESS TO BE TESTED=0
;WRITE 1'S INTO ALL SCANNER
:MEMORY LOCATIONS
;ACCESS SCANNER MEM

:SET LINE COUNTER TO TEST ADDRESS-1

:WRITE 0'S INTO TEST ADDRESS
:SET UP TO TEST ALL 16
:SCANNER MEMORY LOCATIONS

:ACESS SCANNER MEMORY
;READ CONTENTS OF MEMORY
:SET UP EXPECTED CONTENTS
;OF SCANNER MEIORY
:COMPARE EXPECTED AND
;RECEIVED VALUES
:SCANNER MEMORY ERROR
;CHECK FOR DATA FREEZE

;TEST NEXT SCANNER LOCATION
;UPDATE ADDRESS COUNT

;CHECK FOR ITERATION, LOOP

CZOHK-F MACRO V04.00
1 004574

MUXS1

000027

NO=NO+1
JIFF
TS
\N1,1
JIFTF

004574
004600

005077
042767

011012
000340

173170

004606
004612
004620

012700
012767
005001

000020
000001

011102

012777
012702

002000
000020

010762

004634
004642

036767
001464

011062

011056

004644
004650

010177
012777

010742
000001

010736

004656

012767

000001

011040

004664
004670

005077
005005

010722

004672
004700

036767
001421

011026

004702
004706
004712
004716
004720
004722

017704
117703
042703
020103
001002
012705

010706
010700
177760

004732
004734
004736
004740
004742
004744

JIFTF
MUX1A:

JIFT
JIFTF

e
JIFTF

011020

IFTF

000360

#340,PS

8DHMCSR

:CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS

MOV
MOV

€16. ,RO
#1,SELMSK

:SET UP TO TEST 16 FUNCTION FLIP-FLOP
+INIT LINE SELECT MASK
;START AT LINE O

CLR

MOV

LINE,R1

MOV

MOV
BIT

#CLR
, MUX
8DHMCSR

#16. .R2

BEQ

MUX1F

SELMSK ,LINSEL

:IS THIS LINE SELECTED FOR TEST ?
:BR IF NOT

MOV

R1,8DHMCSR

SLINENA, 8DHMLSR

+SELECT LINE TO BE TESTED
:SET LINE ENABLE FUNCTION FLIP-FLOP

MOV

#1,SLMSK

;INIT ANOTHER SELECT MASK

MOV

CLR

BIT

SDHMCSR

BEQ

MUX1D

SLMSK, LINSEL

;SELECTED ??
;BR IF NOT

MOV
MOVB

SDOHMLSR,
R4
S8DHMCSR,R3

;READ LINE STATUS REGISTER
;READ CONTROL STATUS REGISTER
iCLEAR UNWANTED BITS
:IF LINE NUMBER=SELECTED LINE NUMBER,
+EXCEPT LINE ENABLE FUNCTION FLIP FLOP

BIC

€177760,R3

Ri,R3
MUX1C
OLINENA,RS

MUX1C:
.IF IDN <LINENA>,<LINENA>
BIC
#360,R4

.ENDC

006434

CLR

MUX1D:
JIFT

;REFERENCE DESIGNATION

BIC

cMP
BNE
MOV

000001

020504

001403
104001
104003
004744
004767

JIFT

MUX1B:

004726

042704

MUX1 :

IFF

004622
004630

004726

1.LINENA, t+/LINE ENABLE/

;VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN
;BE SET AND CLEARED FOR SELECTED LINE

.IFEQ
SINGLE
TS \NO,0
2s
sREFERANCE NUMBER DEFINITION

004574

SEQ 50

27-JUN-85 13:13:25 PAGE 35

;7O BE SET

;CLEAR RING,CO,CS,SECRCV

+IF NO LEVEL CONVERTER THESE BITS FLOAT

CMP
BEQ

ERRORL
SCOPEF
MUX1D
CALL

RS,R4
MUX1D

;CMP EXPECTED AND RECVD
sRESULTS
;LINE STATUS ERROR

STEPER

sEXAMINE NEXT LINE

CZDHK-F MACRO V04.00
006367

005302
001344
005005
010177
010103
005077
105227
001375
017704
005704
001401

010750
UIFTF

010624

MUX1E :

010620

010606

104001

104003
004622
006367
005201
005300
001274
104002

SEQ 51

27-JUN-85 13:13:25 PAGE 35-1

LIFT
MUX1F :
010676

. IFF
MUX1F :
.ENDC

ASL

SLMSK

DEC
BNE
CLR
MOV
MOV
CLR
INCB
BNE
MOV
TST
BEQ
ERRORL

R2
MUX1B
RS
R1,8DHMCSR
R1,R3
SDHMLSR

SCOPEF
MUX1A
ASL
INC

DEC
BNE
SCOPE
SCOPE

40
.-4
8DHMLSR, R4

R4
MUX1F

;SHIFT MASK

:SET LINE COUNTER TO SELECTED LINE
;CLEAR LINE ENABLE FLIP FLOP
;:DELAY FOR CABLE
;DITTO
:READ LINE STATUS REGISTER
;WAS LINE ENABLE FUNCTION FLIP FLOP
:CLEARED
iNO, LINE STATUS ERROR

;CHECK FOR LOOP ON SAME DATA
SELMSK
R1

MUX1A

s SHIFT SELECT MASK

sSELECT NEXT LINE
;DECREMENT LINE COUNT
;CONTINU IF NOT DONE
;CHECK FOR ITERATIONS, LOOP

;CHECK FOR ITERATIONS, LOOP

CZDHK-F MACRO V04.00

27-JUN-85 13:13:25 PAGE 36

005034

MUXS1

JIFEQ

2.TRMRDY, t/TERMINAL READY/

sVERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN
;BE SET AND CLEARED FOR SELECTED LINE

005034

15 \NO,O

005034

127:

000030
005077
042767

010552
000340

005046

012700

000020

005060

005001

005052 012767 000001

012777

SINGLE

;REFERANCE NUMBER DEFINITION

NO=NO+1

005034
005040

005062

172730

JIFF
s

WXZ
.

CLR
BIC

S8DHMCSR
#340,PS

;CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS

#16. ,RO

:SET UP TO TEST 16 FUNCTION FLIP-FLOP

CLR

sSTART AT LINE O

'mr

MOV

LINE,R1

MOV

’

010642

MOV

005070

012702

000020

002000

010522

MUX2A:

005074
005102

036767
001462

010622

010616

BIT
I

005104

005110

010177

012777

010502

000002

010476

005116 012767 000001

010600

005124 005077
005130 005005

010462

005132
005140

036767
001417

010566

005142

017704

005152
005156
005160

042703
020103
001002

005146

117703

010446

010440

’

OCLRMU
, BDHMCSR
X

016. ,R2

SELMSK , L INSEL
MUX2F

.mr

:SET TERMINAL READY FUNCTION FLIP-FLOP

MoV

#1,SLMSK

;INIT ANOTHER SELECT MASK

}
"}’}“%‘

CLR
CLR

SOHMCSR
RS

BIT
T

SLMSK, LINSEL
MUX2D

;SELECTED 77
sBR IF NOT

MOV

SOHMLSR, R&

iREAD LINE STATUS REGISTER

BIC
CcHP
BNE

0177760.R3
R1,R3
mUx2C

sCLEAR UNWANTED BITS
+IF LINE NUMBER=SELECTED LINE NUMBER,
sEXCEPT TERMINAL READY FUNCTION FLIP FLOP

010560

MOVE

MOV

SDHMCSR.R3

STRMRDY
, RS

.IF IDN <TRMRDY>,<LINENA>
oo

104003
005200

004767

006200

+IS THIS LINE SELECTED FOR TEST ?
:BR IF NOT

#TRMRDY, SDHMLSR

MOV

MUX2C:

005166 020504
005170 001403
005172 104001

:INIT LINE SELECT MASK

R1,8DHMCSR

005162 012705 000002

005174
005176
005200

01, SELMSK

MOV

177760

005166

;REFERENCE DESIGNATION

"‘,‘3"‘

BIC

0360 R4

:SELECT LINE TO BE TESTED

sREAD CONTROL STATUS REGISTER

;70 BE SET

sCLEAR RING,CO,CS,SECRCY

sIF NO LEVEL CONVERTER THESE BITS FLOAT

cne
RS,R4
BEQ
MUX20
ERRORL

;CMP EXPECTED AND RECVD
sRESULTS
sLINE STATUS ERROR

CALL

SEXAMINE NEXT LINE

SCOPEF
WX20

STEPER

CZ0MK
-F MACRO v04.00
033204

006367

005210
005212
005214
005216
005222
005224
005230
005234
005236
005242
005244
005246

005302
001346
005005
010177
010103
005077
105227
001375
017704
005704
001401
104001

005250
005252

104003
005062
006367
005201
005300
001276
104002

005254
005260
005262
005264
005266

SEQ 53

27-JUN-85 13:13:25 PAGE 36-1
010514
JAFTF

010370

MUX2E:

010364
000000

010352

IFY
MUX2F:
010442

IFF
MUX2F
:
.ENDC

ASL

SLMSK

DEC
BNE
CLR
MOV
MOV
CLR
INCB
BNE
MOV
TST
BEQ
ERRORL

R2
MUX28
RS
R1,8DHMCSR
R1,R3
8DHMLSR
20
.-4
SDHMLSR, R4
R4
MUX2F

SCOPEF

MUX2A
ASL
INC
DEC
BNE

SCOPE

s SHIFT MASK

:SET LINE COUNTER TO SELECTED LINE
;CLEAR TERMINAL READY FLIP FLOP
;:DELAY FOR CABLE
;:DITTO
;READ LINE STATUS REGISTER
iWAS TERMINAL READY FUNCTION FLIP FLOP
;CLEARED
:NO, LINE STATUS ERROR
;CHECK FOR LOOP ON SAME DATA

SELMSK
R1
RO
MUX2A

sSHIFT SELECT MASK
sSELECT NEXT LINE
;DECREMENT LINE COUNT
;CONTINU IF NOT DONE
:CHECK FOR ITERATIONS, LOOP
;CHECK FOR ITERATIONS, LOOP

——

————

C20MK
-F MACRO v04.00

SEQ 54

27-JUN-85 13:13:25 PAGE 37

005270

MUXS1

3,RS, t/REQUEST TO SEND/
sVERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN

;BE SET AND CLEARED FOR SELECTED LINE

.IFEQ
SINGLE
7S \NO,O

005270
005270

T130:
NO=NO-1

000031

005270
005274

005077
042767

010316
000340

172474

005302
005306
005314

012700
012767
005001

000020
000001

010406

002000
000020

010266

005330
005336

036767
001462

010366

010362

005340
005344

010177
012777

010246
000004

010242

005352

012767

000001

010344

005360
005364

005077
005005

010226

005366

005374

036767
001417

010332

005376
005402
005406
005412
005414
005416

017704
117703
042703
020103
001002
012705

010212
010204
177760

MUX3A:

IF7

JIFTF

010324

IFT
IFTF

MUX3B:
JIFT
IFTF

000004

005422

005434

JIFT

JIFTF

012777
012702

005424
005426
005430
005432

IFTF
MUX3:

IFF

005316
005324

005422

;REFERENCE DESIGNATION

JIFF

sREFERANCE NUMBER DEFINITION

\N1.1

CLR

SDHMCSR

#340,PS

;CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS

MOV
MOV
CLR

#16. ,RO
&1 ,SELMSK
R1

:SET UP TO TEST 16 FUNCTION FLIP-FLOP
sINIT LINE SELECT MASK

MOV

LINE,R1

BIC

MOV

#CLRMUX, 8DHMCSR

MOV

#16. ,R2

BIT
BEQ

SELMSK ,LINSEL
MUX3F

:IS THIS LINE SELECTED FOR TEST ?
:BR IF NOT

MOV
MOV

R1,8DHMCSR
#RS, 3DHMLSR

;SELECT LINE TO BE TESTED
:SET REQUEST TO SEND FUNCTION FLIP-FLOP

MOV

#1,SLMSK

;INIT ANOTHER SELECT MASK

CLR
CLR

S0HMCSR
RS

BIT
BEQ

SLMSK,LINSEL
MUX3D

;SELECTED ?2?
;BR IF NOT

MOV
MOVB
BIC
CMP
BNE
MOV

SDHMLSR,
R4
SDHMCSR,R3
€177760,R3
R1,R3
MUX3C
#RS,.RS

;READ LINE STATUS REGISTER
;READ CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
+IF LINE NUMBER=SELECTED LINE NUMBER,
+EXCEPT REQUEST TO SEND FUNCTION FLIP FLOP

MUX3C:
.IF IDN <RS>, <LINENA>
BIC
#360,R4
.ENDC

020504

001403
104001
104003
005434
004767

005744

MUX3D:
JIFT

;START AT LINE O

cMP
BEQ
ERRORL
SCOPEF
MUX3D
CALL

;7O BE SET
;CLEAR RING,CO,CS,SECRCV
+IF NO LEVEL CONVERTER THESE BITS FLOAT

R5,R4
MUX3D

;CMP EXPECTED AND RECVD
sRESULTS
;LINE STATUS ERROR

STEPER

sEXAMINE NEXT LINE

CZDHK
-F MACRO V04.00
005440
005444
005446
005450
005452
005456
005460
005464
005470
005472

005476
005500
005502
005504
005506
005510
005514
005516

005520
005522

006367
005302
001346
005005
010177
010103
005077

105227
001375
017704
005704
001401
104001
104003
005316
006367
005201
005300
001276
104002

SEQ 55

27-JUN-85 13:13:25 PAGE 37-1
010260

010134

JIFTF

MUX3E:

010130
000000
010116

JIFT
MUX3F :
010206

ASL

SLMSK

DEC
BNE
CLR
MOV
MOV
CLR
INCB
BNE
MOV
TST
BEQ
ERRORL

SCOPEF
MUX3A

ASL

IFF

MUX3F :
.ENDC

INC
DEC
BNE
SCOPE
SCOPE

:SHIFT MASK

MUX3B

R5
R1,8DHMCSR
R1.R3

SDHMLSR

#0
.-4
@DHMLSR, R4
R4
MUX3F

;SET LINE COUNTER TO SELECTED LINE
;:CLEAR REQUEST TO SEND FLIP FLOP

;DELAY FOR CABLE
;:DITTO
;READ LINE STATUS REGISTER
:WAS REQUEST TO SEND FUNCTION FLIP FLOP
;CLEARED
;NO, LINE STATUS ERROR
:CHECK FOR LOOP ON SAME DATA

SELMSK
R1
RO
MUX3A

sSHIFT SELECT MASK
;SELECT NEXT LINE
;DECREMENT LINE COUNT
:CONTINU IF NOT DONE
;CHECK FOR ITERATIONS, LOOP
;CHECK FOR ITERATIONS, LOOP

CZOHK-F MACRO V04.00

27-JUN-85 13:13:25 PAGE 38

005524

MUXS1

005524

75 \NO,O

005524

T31:
NO=NO+1

005524

.IFEQ

000032
005077

010062

.IFF
15
IFTF

005530

042767

000340

172240

005536
005542

012700
012767

000020
000001

010152

005550

005001

MUX4:
e

e
IFTF

005552
005560

012777
012702

002000
000020

010032

005564

036767

010132

010126

005574
005600

010177
012777

010012
000010

010006

005606

012767

000001

010110

005572

005614

001462

005620

005005

005077

007772

005622
005630

036767
001417

010076

005632

017704

005636
005642

005646
005650
005652

117703
042703

020103
001002
012705

010070

MUX4A:
sy

;REFERANCE NUMBER DEFINITION

CLR

SDHMCSR
#340,PS

:ENABLE INTERRUPTS

MOV
MOV

16. ,RO
#1,SELMSK

sSET UP_TO TEST 16 FUNCTION FLIP-FLOP
;INIT LINE SELECT MASK

CLR

MOV

LINE,R1

MOV
Y

#CLRMUX, 8DHMCSR
#16. ,R2

BIT

:SELECT LINE TO BE TESTED
:SET SECONDARY TRANSMIT FUNCTION FLIP-FLOP

MOV

#1,SLMSK

;INIT ANOTHER SELECT MASK

n;ga:

CLR

BIT
BEQ

SLMSK, LINSEL
MUX4D

:SELECTED ??
iBR IF NOT

MOV

SDHMLSR, R4

sREAD LINE STATUS REGISTER

CcHP
BNE
MOV

R1,R3
MUX4C
#SECTX,RS

:IF LINE NUMBER=SELECTED LINE NUMBER,
:EXCEPT SECONDARY TRANSMIT FUNCTION FLIP FLOP

007756

CLR

MOVB
BIC

000010

BIC

104001

ERRORL

005510

HIJ’)__(?D:

iBR IF NOT

SDHMCSR

SDHMCSR,R3
#177760,R3

#360,R4

sREAD CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS

:TO BE SET

;CLEAR RING,CO,CS,SECRCV

:IF

cHP

104003
005670
004767

:START AT LINE O

R1,8DHMCSR
#SECTX,8DHMLSR

020504

005664
005666
005670

sCLEAR CONTROL STATUS REGISTER

MOV
MOV

MUX4F

.IF IDN <SECTX>, <LINENA>

001403

sREFERENCE DESIGNATION

\N1,1

MUX4C:

005660

005662

SINGLE

;IS THIS LINE SELECTED FOR TEST ?

005656

4,SECTX, +/SECONDARY TRANSMIT/

sVERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN
:BE SET AND CLEARED FOR SELECTED LINE

SELMSK , LINSEL

007750
177760

005656

-e

RS,R4

LEVEL

CONVERTER

:CMP EXPECTED AND RECVD

BEQ

MUX40

sRESULTS

SCOPEF
MUX4D
CALL

STEPER

;EXAMINE NEXT LINE

;sLINE STATUS ERROR

THESE BITS

FLOAT

CZDHK-F MACRO V04.00

005674

006367

005700
005702
005704
005706
005712
005714
005720
005724
005726
005732
005734
005736

005302
001346
005005
010177
010103
005077
105227
001375
017704
005704
001401
104001

005740
005742
005744
005750
005752
005754
005756

104003
005552
006367
005201
005300
001276
104002

SEQ 57

27-JUN-85 13:13:25 PAGE 38-1
010024
IFTF

007700

MUX4E :

007674
007662

LIFT
MUX4F:
007752

.IFF
MUX4F
:
.ENDC

ASL

SLMSK

DEC
BNE
CLR
MOV
MOV
CLR
INCB
BNE
MOV
TST
BEQ
ERRORL

R2
MUX4B
RS
R1,8DHMCSR
R1,R3

SCOPEF
MUX4A
ASL
INC
DEC

BNE
SCOPE
SCOPE

SDHMLSR
#0
.-4
SDHMLSR,
R4
R4
MUX4F

s SHIFT MASK

;SET LINE COUNTER TO SELECTED LINE
;CLEAR SECONDARY TRANSMIT FLIP FLOP
;:DELAY FOR CABLE
;DITTO
;READ LINE STATUS REGISTER
;WAS SECONDARY TRANSMIT FUNCTION FLIP FLOP
;CLEARED
;NO, LINE STATUS ERROR

;CHECK FOR LOOP ON SAME DATA
SELMSK
R1
RO
MUX4A

;SHIFT SELECT MASK
:SELECT NEXT LINE
;DECREMENT LINE COUNT
;CONTINU IF NOT DONE
;CHECK FOR ITERATIONS, LOOP

:CHECK FOR ITERATIONS, LOOP

sVERIFY THAT "CLEAR MULTIPLXER” CLEARS ALL MULTIP'.EXER

;FUNCTION FLIP-FLOPS

TS \NO,O

000033
005077
042767
012700
012777
004767
005300
001371
012767
005003
012700
012777

036767
001427
010377

017704
005005

007626
000340
000020
000017
005374

172004
007610

000001

007700

000020
002000
007660

007554
007654

MUX88B:
MUX8C:

007540
007536

006074
006102
006106
006112
006114
006116
006120
006122
006124
37 006126
38 006132
39 006136
40 006140
a1 006142

001403
104001
104003
006030

005205
052777
017704
042704
020504
001403
104001
104003
006030
005203
005077
006367
005300
001336
104002

000001
007506
000360

007462
007564

007512

;REFERANCE NUMBER DEFINITION

T32:
NO=NO+1
MUX8:
CLR
BIC
MOV
MUX8A:
MOV
CALL
DEC
BNE

005704

006072

SEQ 58

27-JUN-85 13:13:25 PAGE 39

Mawn

-F MACRO V04.00
CZOHK

MUX8D:

MUXBE :

MOV
CLR
MOV
MOV
BIT
BEQ
MOV
MOV
CLR
TST
BEQ
ERRORL
SCOPEF
MUX8B
INC
BIS
MoV
BIC
CMP
BEQ
ERRORL
SCOPEF
MUX8B
INC
CLR
ASL

DEC

BNE
SCOPE

SDHMCSR
#340,PS
#16.,R0
#17, 8DHMLSR
STEPER
RO
MUX8A
#1,SELMSK
R3
#16. ,RO

#CLRMUX , 8DHMCSR
SELMSK , LINSEL
MUX8E
R3,3DHMCSR
8DHMLSR, R4
RS
R4
MUX8D

;REFERENCE DESIGNATION
;CLEAR CONTROL REGISTER
;ENABLE INTERRUPTS
;SET UP TO TEST 16 LINES
;WRITE 1S INTO ALL MULTIPLEXER
;FUNCTION FLIPFLOPS
s INIT SELECT MASK
iSET UP FOR 16 LINES
;CLEAR MULTIPLEXER
;SELECTED ??
;:BR IF NOT
;SELECT LINE
;READ LINE STATUS REGISTER
;EXPECT 0S
iWAS LINE STATUS REGISTER CLEARED
;LINE STATUS ERROR
;CHECK FOR LOOP ON SAME DATA

RS
#LINENA, 8DHMLSR
S8DHMLSR, R4
#360,R4
R5,R4
MUXBE

;EXPECT LINE ENABLE
:SET LINE ENABLE ON SELECTED LINE
;READ LINE STATUS REGISTER
;CLEAR RING,CO,CS SECRCV-MAY FLOAT HIGH
:IS ANYTHING BUT LINE ENABLE SET

;LINE STATUS ERROR
;CHECK FOR LOOP ON SAME DATA
R3

S8DHMLSR
SELMSK

RO
MuxsC

;UPDATE LINE NUMBER
;CLEAR CURRENT LINE
;SHIFT SELECT MASK
;:CONTINUE IF ALL LINES NOT
: TESTED

;CHECK FOR ITERATIONS, LOOP

[

HOVRNOWVIDWN
-

CZDHK-F MACRO V04.00

SEQ 59

27-JUN-85 13:13:25 PAGE 40

sWRITE 1°S INTO ALL SCANNER MEMORY LOCATIONS
sSET “LINE ENABLE FOR ALL LINES
;VERIFY THAT AN INTERRUPP OCCURS FOR EACH LINE

;THIS TEST WILL FAIL ON ANY LINE THAT DOES
sNOT HAVE A LEVEL CONVERTER--CO,CS,RING,SECRCV WILL FLOAT
sHIGH,HENCE MAINT. MODE CANNOT TOGGLE THESE SIGNALS TO
;CAUSE A TRANSITION.A PROGRAM TIME OUT WILL OCCUR......
006144

TS \NO,O

006144

733:
NO=NO+1
SCNT1:
MOV
CLR
BIC
MOV
MOV
MOV
SCNT1A: CALL
MOV
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
SCNT1B: BIT
BEQ
BIS

12 006144
13 006152
14 006156
15 006164
16 006170
17 006176
19 006210
20 006216
21 006220
22 006222
23 006226
24 006232
25 006240
26 006246
27 006252
28 006260
29 006266
30 006270
31 006276
32 006302
33 006304
34 006312
35 006314
36 006316
37 006322
38 006324
.sg 006326
006334
41 006340

42 006342
43 006346
44 006352
45 006354
46 006356
47 006360
48 006362
49 006370
50 006374

S1 006376
52 006400
53 006402

54 006404

000034
012777
005077
042767
012700
012777
012767
004767
012777

005300

001371
012701
012705
012777
012777
012700
012777
036767
001456

052767

004767
005003
042767

005303
001404
105777
100373
100416
052767
017704
010402
017703
042704
104030
104003
006144
000421
052767

017704
104000
104003
006144
000410
022626

002000
007434
000340
000020

001017
000001
005174

000001

177777
070300
006404
000340
000020
000117
007436

007440

171612
007414
007516
007376

007346
007342
007332
007432

000340
005102

171500

000340

171464

1s:

007270
000340
007252

171442

007246
177760

000340
007216

171406

2%:

;REFERANCE NUMBER DEFINITION

CALL
CLR
BIC

DEC

BEQ
T1ST8
BPL
BMI

BIS
MOV
MOV
MOV

BIC
ERRINT
SCOPEF
SCNT1
BR
38:
BIS
MOV
ERRORC
SCOPEF
SCNT1
BR
SCNT1C: POP2SP

#CLRMUX, 8DHMCSR
8DHMCSR

#340,PS
#16. ,RO
OMAINT+17,8DHMCSR
#1,SELMSK
STEPER
:%INENA.GDHHLSR

;REFERENCE DESIGNATION
;CLEAR ALL MULTIPLEXER FLIPFLOPS
;CLEAR CONTROL REGISTER
;ENABLE INTERRUPTS
:SET UP TO WRITE 1'S INTO
;ALL SCANNER MEMORY LOCATION
;INIT SELECT MASK
;WRITE A LOCATION
;LET "LINE ENABLE”

SCNT1A
#70300,R5

#SCNT1C, SDHMVEC

#340, 3DHML VL
#16. ,RO
@INTENA+17,8DHMCSR

SELMSK,LINSEL
SCNT1D
#340,PS
STEPER
R3
#340,PS
R3
2%
8DHMCSR
1s
34
#340,PS
SDHMCSR, R4
R4 ,R2
8DHMLSR,R3
#177760,R4

;INIT LINE NO. GEN.

{EXPECT

“DONE"
"+ "CSF"+
”+"
*SECRX
COF
"

:SET UP LOCAL INTERRUPT SERVICE
;SERVICE AT LEVEL 7

;SET INTERRUPT ENABLE
;SELECTED ??

;:BR IF NOT
;LOCK OUT INTERRUPTS
;HIT THE SCANER ONCE
;CLEAR DELAY
;ENABLE INTERRUPTS
:WAIT LONG ENOUGH?

;WE HAVE AN ERROR

;DID DONE SET
;NOT YET
:SET BUT NO INTERRUPT
;GET FAILING LINE
:GET CSR
;GET LSR

;REPORT ERROR HAS OCCURED
SCNT1D
#340,PS
SDHMCSR, R4

;CONTINUVE THE TEST
s INTERRUPT DID NOT OCCUR
;ERROR
;CONTROL STATUS ERROR
;CHECK FOR LOOP ON SAME DATA

SCNT1D

s INTERRUPT OCCURED, REPOSITION STACK

CZDHK-F MACRO V04.00
55 006406
56 006412

57 006414
58 006416
59 006420
60 006422
61 006424
62 006432
63 006434
64 006440
65 006444
66 006446
67 006450
68 006452

| {—

017704
020504
001403
104000
104003
006144
042777
005201
050177
006367
005205
005300
001303
104002

SEQ 60

27-JUN-85 13:13:25 PAGE 40-1
007200

000217

007152
007256

007160

MOV
CcHpP
BEQ
ERRORC
SCOPEF
SCNT1
SCNT1D: BIC
INC
BIS
ASL
INC
DEC
BNE
SCOPE

8DHMCSR,R4
R5,.R4
SCNT1D

;DWE» 17,8DHMCSR
1

R1,8DHMCSR

SELMSK
R5
RO
SCNT1B

;READ CONTROL STATUS

:ARE EXPECTED AND RECEIVED

;REGISTERS THE SAME
:NO, LINE STATUS ERROR
;CHECK FOR LOOP WITH CURRENT DATA

;CLEAR D DONE
:GEN NXT LINE NO.
:SET LINE NO. BITS
:SHIFT SELECT MASK
;UPDATE EXPECTED RESULT
;CONTINUE IF NOT DONE

;CHECK FOR ITERATIONS, LOOP

006454

-MACRO
COMMENT
-NLIST
SINGLE=1
.LIST
.ENDM
COMMENT
SINGLE=1

000001

s e

006454

25 006454
26 006462
27 006470
28 006472
29 006474
30 006476
31 006500
32 006502
33 006504
34 006506
35 006510

hoe

sSINGLE LINE CABLE TEST

;FOR USE WITH MODEM CABLE AND DC11 TEST CONNECTOR
sNOTE:
MODEM CONTROL MULTIPLEXER INPUTS SHOULD BE CONNECTED
;TO DISTRIBUTION PANEL WIA DM11-DC

.MACRO
.NLIST
N1=100
N=N1
XN=N1
AIST
.ENDM

24 006454

SEQ 61

27-JUN-85 13:13:25 PAGE 41

s s s

NOVNPUNFOO®

UOWIS NN

CZDHK-F MACRO V04.00

000100
000100
000100

N1=100
N=N1
XN=N1

000101
012767
042767

104004
017010

104013
017043
000000
000017
015700
104004
017005

;ioai 3
=

006474
000340

173562
171306

COMMENT

‘N1,
1

;REFERANCE NUMBER DEFINITION

STRLIN: MOV

BIC
TYPE
MLINE
STRLNA: INSTRG
MLINEI
0
17
LINE
TYPE

MCRLF

#STRLNA,KRET

#340,PS

;REFERENCE DESIGNATION
;SET UP FOR NEW LINE SELECTION

;ENABLE INTERRUPTS
;TYPE "SINGLE LINE CABLE TEST"

;GET LINE NUMBER

CZDHK-F MACRO V04.00

1
2 006512

MUXS1

006512
006516

11,LINENA, t/LINE ENABLE/

;VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN
;BE SET AND CLEARED FOR SELECTED LINE

.IFEQ
SINGLE
TS \NO,0
IFF
TS
\N1,1

006512

SEQ 62

27-JUN-85 13:13:25 PAGE 42

;REFERANCE NUMBER DEFINITION

000102

005077
042767

007074
000340

171252

T101:
N1i=N1+1
JIFTF
MUX11:
CLR
BIC
IF7

8DHMCSR
#340,PS

;CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS

MOV

#16. ,RO

CLR

+SET UP TO TEST 16 FUNCTION FLIP-FLOP
+INIT LINE SELECT MASK
;START AT LINE O

MOV

LINE,R1

MOV

#CLRMUX , 8DHMCSR
#16. ,R2

BIT
BEQ

SELMSK , LINSEL
MUX11F

;IS THIS LINE SELECTED FOR TEST ?
;:BR IF NOT

MOy
MOV

R1,8DHMCSR
#LINENA, 8DHMLSR

;SELECT LINE TO BE TESTED
;SET LINE ENABLE FUNCTION FLIP-FLOP

MOV

#1,SLMSK

;INIT ANOTHER SELECT MASK

MoV
006524

006530
0C6536

016701

012777
012702

.IFF

007150

002000
000020

007054

LIFTF
MUX11A: MOV
JIFT

006542
006546

006554

006560

006562
006566
006572
006576
006600
006602

010177
012777

005077
005005

017704
117703
042703
020103
001002
012705

007044
000001

007032

007026
007020

042704

006612
006614
006616

020504
001403
104001
104003
006624
004767

006622
006624

007040

JIFT
IFTF

CLR
MUX118B: CLR
JIFT
BIT
BEQ
JIFTF

MOV
MOVB

177760

BIC

CMP
BNE
MOV

000001

006606

IFTF

000360

004554

#1,SELMSK

8DHMCSR

SLMSK, LINSEL
MUX11D

s SELECTED ??
;BR IF NOT

SDHMLSR,R4 >
S8DHMCSR,R3

;READ LINE STATUS REGISTER
;READ CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
+IF LINE NUMBER=SELECTED LINE NUMBER,
;EXCEPT LINE ENABLE FUNCTION FLIP FLOP

#177760,R3

R1,R3
MUX11C
OLINENA,RS

MUX11C:
.IF IDN <LINENA>, <LINENA>
BIC
#360,R4
.ENDC

;REFERENCE DESIGNATION

CMP
BEQ

ERRORL
SCOPEF
MUX11D
MUX110: CALL

;TO BE SET
;CLEAR RING,CO,CS,SECRCV
;IF NO LEVEL CONVERTER THESE BITS FLOAT

RS,R4
MUX11D

;CMP EXPECTED AND RECVD
sRESULTS
;LINE STATUS ERROR

STEPER

sEXAMINE NEXT LINE

CZDHK-F MACRO V04.00

JIFTF

005302
001352

010177
010103
005077
105227
001375
017704
005704
001401
104001

006670

104002

SEQ 63

27-JUN-85 13:13:25 PAGE 42-1

006750

006744
000000
006732

ASL

DEC
BNE
CLR
MUX11E: MOV
MOV
CLR
INCB
BNE
MOV
TST
BEQ
ERRORL
JIFT
MUX11F: SCOPEF
MUX11A
ASL
INC
DEC
BNE
SCOPE
AFF
MUX11F: SCOPE
.ENDC

SLMSK

R2
MUX118B
RS
R1,8DHMCSR
R1,R3
8DHMLSR
#0
.-4
8DHMLSR, R4
R4
MUX11F

;SHIFT MASK

:SET LINE COUNTER TO SELECTED LINE
:CLEAR LINE ENABLE FLIP FLOP
;DELAY FOR CABLE
;DITTO
;READ LINE STATUS REGISTER
;WAS LINE ENABLE FUNCTION FLIP FLOP
; CLEARED
;NO, LINE STATUS ERROR

:CHECK FOR LOOP ON SAME DATA
SELMSK
R1
RO
MUX11A

i SHIFT SELECT MASK
;SELECT NEXT LINE
;DECREMENT LINE COUNT
;CONTINU IF NOT DONE
;CHECK FOR ITERATIONS, LOOP
:CHECK FOR ITERATIONS, LOOP

CZDHK-F MACRO V04.00

SEQ 64

27-JUN-85 13:13:25 PAGE 43

1 006672

MUXS1

12,TRMRDY, t/TERMINAL READY/

;VERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN
;BE SET AND CLEARED FOR SELECTED LINE

.IFEQ
SINGLE
TS \NO.O
IFF

006672

006672
006676

LE)
000103

005077
042767

006714
000340

171072

\NL,1
;REFERANCE NUMBER DEFINITION

T102:
Ni=Ni.1
IFTF
MUX12:
CLR
BIC
IFT

MOV
MOV

006704

016701

006770

006710
006716

012777
012702

002000
000020

006722
006726

006734
006740

006742
006746
006752
006756
006760
006762

010177
012777

005077
005005

017704
117703
042703
020103
001002
012705

006664
000002

006652

006646
006640
177760

006674

JIFT

IFTF

006660

Wy
IFTF
MUX12B:
JIFT

IFTF

8DHMCSR
340,PS

;CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS

#16. ,RO
@1,SELMSK

:SET UP TO TEST 16 FUNCTION FLIP-FLOP
sINIT LINE SELECT MASK
iSTART AT LINE ©

CLR

MOV

LINE,R1

MOV

#16. .R2

IFTF
MUX12A: MOV
BIT

#CLR
, MUX
8DHMCSR

BEQ

MUX12F

SELMSK, LINSEL

;IS THIS LINE SELECTED FOR TEST ?
:BR IF NOT

MOV
MOV

R1,8DHMCSR
@TRMRDY , 8DHMLSR

+SELECT LINE TO BE TESTED
:SET TERMINAL READY FUNCTION FLIP-FLOP

MOV

#1,SLMSK

;INIT ANOTHER SELECT MASK

CLR

BIT

SDHMCSR

BEQ

MUX120

SLMSK, LINSEL

;SELECTED ?2?
:BR IF NOT

MOV
MOVB

SDHMLSR,
R4
SDHMCSR,R3

sREAD LINE STATUS REGISTER
;READ CONTROL STATUS REGISTER
sCLEAR UNWANTED BITS
+IF LINE NUMBER=SELECTED LINE NUMBER,
;EXCEPT TERMINAL READY FUNCTION FLIP FLOP

BIC

cMP
BNE
MOV

000002

006766

006766
006770
006772
006774
006776
007000

.IFF

#177760,R3

R1,R3
MUX12C
@TRMRDY,RS

MUX12C:
.IF IDN <TRMRDY>,<LINENA>
BIC
#360,R4

.ENDC

020504
001403
104001
104003
007000
004767

cHP
BEQ

ERRORL

MUX12D

HIJ;%.?D CALL

170 BE SET
iCLEAR RING,CO,CS,SECRCV
+IF NO LEVEL CONVERTER THESE BITS FLOAT

R5,R4
MUX120

:CMP EXPECTED AND RECVD
sRESULTS
;LINE STATUS ERROR

STEPER

;EXAMINE NEXT LINE

SCOPEF

004400

;REFERENCE DESIGNATION

CZDHK-F MACRO V04.00

007004
007006
007010
007012
007016
007020
007024
007030
007032
007036
007040
007042

0C7044

005302
001354
005005
010177
010102
005077
105227
001375
017704
005704
001401
104001

104002

SEQ 65

27-JUN-85 13:13:25 PAGE 43-1

IFTF

006574

006570
000000
006556

ASL

DEC
BNE
CLR
MUX12E: MOV
MOV
CLR
INCB
BNE
MOV
TST
BEQ
ERRORL
-IFT
MUX12F : SCOPEF
MUX12A
ASL
INC
DEC
BNE
SCOPE
.IFF
MUX12F: SCOPE
.ENDC

SLMSK

:SHIFT MASK

MUX128
RS
R1,8DHMCSR
R1,R3
8DHMLSR
20
.-4
8DHMLSR, R4
R4
MUX12F

:SET LINE COUNTER TO SELECTED LINE
;CLEAR TERMINAL READY FLIP FLOP
:DELAY FOR CABLE
;DITTO
;READ LINE STATUS REGISTER
:WAS TERMINAL READY FUNCTION FLIP FLOP
;CLEARED
iNO, LINE STATUS ERROR

:CHECK FOR LOOP ON SAME DATA
SELMSK
R1
RO
MUX12A

sSHIFT SELECT MASK
sSELECT NEXT LINE
:DECREMENT LINE COUNT
sCONTINU IF NOT DONE
;CHECK FOR ITERATIONS, LOOP
;CHECK FOR ITERATIONS, LOOP

CIOMK-F MACRO v04.00

SEQ 66

27-JUN-85 13:13:25 PAGE 44

037046

MUXS1

13,RS,t/REQUEST TO SEND/

sVERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN
;BE SET AND CLEARED FOR SELECTED LINE

JIFEQ
SINGLE
7S \NO,O
JIFF

007046

T103:
Ni=Ni.1
IFTF

007046
007052

000104
005077
042767

006540
000340

016701

006614

007064
007072

012777
012702

002000
000020

007110
007114

007116
007122
007126
007132
007134
007136

MUX13:

JIFT

JIFF

007060

007076
007102

170716

010177
012777

005077
005005

017704
117703
042703
020103
001002
012705

006510
000004

006476

006520

006504

;REFERENCE DESIGNATION
CLR
BIC

SDHMCSR
#340,PS

;CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS

MOV
MOV
CLR

#16. ,R0O
#1,SELMSK
R1

:SET UP TO TEST 16 FUNCTION FLIP-FLOP
sINIT LINE SELECT MASK

IFTF

MUX13B:

IFTF

CLR

LINE,R1

#CLRMUX, 8DHMCSR
#16. .R2

SELMSK,LINSEL
MUX13F

:IS THIS LINE SELECTED FOR TEST ?
:BR IF NOT

R1,3DHMCSR
#RS, 8DHM_SR

;SELECT LINE TO BE TESTED
;SET REQUEST TO SEND FUNCTION FLIP-FLOP

#1,SLMSK

:INIT ANOTHER SELCCT MASK

@DHMCSR

BIT
BEQ

SLMSK, LINSEL
MUX13D

;SELECTED ??
;:BR IF NOT

MOV
MOVB

SDHMLSR, R4
SDHMCSR,R3

:READ LINE STATUS REGISTER
;READ CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
+IF LINE NUMBER=SELECTED LINE NUMBER,
;EXCEPT REQUEST TO SEND FUNCTION FLIP FLOP

#177760,R3
R1,R3
MUX13C
#RS,RS

;70 BE SET

MUX13C:

LIF IDN <RS>,<LINENA>
BIC
#360,R4

007142
007144
007146
007150
007152
007154

020504
001403
104001
104003
007154
004767

.ENDC

004224

;START AT LINE O

CLR

BIC
CMP
BNE
MOV

000004

007142

;REFERANCE NUMBER DEFINITION

MOV
JIFTF
MUX13A: MOV
MOV
JIFT
BIT
BEQ
IFTF
MOV
MOV
~AFY
MOV

JIFT

006472
006464
177760

\N1,1

CcMP

BEQ
ERRORL
SCOPEF
MUX13D
MUX13D: CALL
o o 5 8

RS ,.R4

MUX13D

;CLEAR RING,CO,CS,SECRCV
:IF NO LEVEL CONVERTER THESE BITS FLOAT

;CMP EXPECTED AND RECVD
;RESULTS

;LINE STATUS ERROR
STEPER

sEXAMINE NEXT LINE

CI0mK-F MACRO VO4.00

007160
007162
007164
007166
007172
007174
oC " 200
007204
007206
007212
007214
007216

005302
001354
005005
010177
010103
005077
105227
001375
017704
005704
001401
104001

AFTF

006420

MUX13E:

006414
000000

ASL

SLMSK

DEC
BNE
CLR
MOV
MOV

R2
MUX13B
RS
R1,8DHMCSR
R1,R3
SDHMLSR
@0
.-4
aDHMLS
R4
R
R4
MUX13F

CLR

INCB
BNE
MOV
TST
BEQ

006402

XFT
MUX13F;

ERRORL

SCOPEF
MUX13A

ASL

INC
DEC
BNE
SCOPE

0C7220

104002

SEQ 67

27-JUN-85 13:13:25 PAGE 44-1

.IFF
MUX13F: SCOPE
.ENDC

:SHIFT MASK

:SET LINE COUNTER TO SELECTED LINE
:CLEAR REQUEST TO SEND FLIP FLOP
;:DELAY FOR CABLE
;DITTO
;READ LINE STATUS REGISTER
;WAS REQUEST TO SEND FUNCTION FLIP FLOP
;CLEARED
iNO, LINE STATUS ERROR

;CHECK FOR LOOP ON SAME DATA
SELMSK
R1
RO

MUX13A

sSHIFT SELECT MASK

sSELECT NEXT LINE

:DECREMENT LINE COUNT
;CONTINU IF NOT DONE
;CHECK FOR ITERATIONS, LOOP
;CHECK FOR ITERATIONS, LOOP

CZOMK-F MACRO V04.00

SEQ 68

27-JUN-85 13:13:25 PAGE 45

007222

MUXS1

14,SECTX, t/SECONDARY TRANSMIT/
sVERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN

;BE SET AND CLEARED FOR SELECTED LINE

.IFEQ
SINGLE
TS \NO,O
JIFF

007222

T104:
Ni=N1.1

007222
007226

000105

005077
042767

006364
000340

016701

006440

007240
007246

012777
012702

002000
000020

007252
007256

007264
007270

010177
012777

005077
005005

006334
000010

006322

170542

JIFT

007312

017704

117703

006344

042703
020103
001002
012705

006330

JIFT
IFTF

007316
007320
007322
007324
007326
007330

IFTF

SDHMCSR
#340,PS

;CLEAR CONTROL STATUS REGISTER
;ENABLE INTERRUPTS

MOV
MOV
CLR

#16. ,R0O
#1,SELMSK
R1

+SET UP TO TEST 16 FUNCTION FLIP-FLOP
+INIT LINE SELECT MASK
;START AT LINE O

LINE,.R1
#CLR
, 8DHMCSR
MUX
#16. ,R2
SELMSK ,LINSEL
MUX14F

;IS THIS LINE SELECTED FOR TEST ?
;BR IF NOT

MOV
MOV

R1,8DHMCSR
#SECTX,3DHML
SR

;SELECT LINE TO BE TESTED
:SET SECONDARY TRANSMIT FUNCTION FLIP-FLOP

MOV

#1,5LMSK

:INIT ANOTHER SELECT MASK

CLR

8DHMCSR

CLR

BIT
BEQ

SLMSK, LINSEL
MUX14D

;SELECTED ?2?

MOV
MOVB

8DHMLSR, R4
8DHMCSR,R3

;READ LINE STATUS REGISTER
;READ CONTROL STATUS REGISTER
;CLEAR UNWANTED BITS
:IF LINE NUMBER=SELECTED LINE NUMBER,
;EXCEPT SECONDARY TRANSMIT FUNCTION FLIP FLOP

BIC
cMp
BNE
MOV

000010

007316

CLR
BIC

JIFTF

MUX14B:

006316
006310
177760

;REFERENCE DESIGNATION

MOV
JIFTF
MUX14A: MOV
MOV
JIFT
BIT
BEQ

-IFT

007272
007276
007302
007306
007310

sREFERANCE NUMBER DEFINITION

IFTF

MUX14:

JIFF

007234

\Ni,1

#177760,R3
R1,R3
MUX14C
#SECTX,RS

MUX14C:
.IF IDN <SECTX>, <LINENA>
BIC
#360,R4
.ENDC

020504
001403

104001
104003
007330
004767

004050

;BR IF NOT

:TO BE SET
iCLEAR RING,CO,CS,SECRCV

+IF NO LEVEL CONVERTER THESE BITS FLOAT

CcMP

BEQ
ERRORL
SCOPEF
MUX14D
MUX14D: CALL
2FT

R5.R4

MUX14D

sCMP EXPECTED AND RECVD
sRESULTS
;LINE STATUS ERROR

STEPER

;EXAMINE NEXT LINE

CZDHK-F MACRO V04.00

007334
007336
007340

007342
007346
007350
007354
007360
007362
007366
007370
007372

005302
001354
005005
010177
010103
005077
105227
001375
017704
005704
001401
104001

JIFTF

006244
006240
000000

006226

ASL

SLMSK

DEC
BNE

CLR
MUX14E: MOV

MOV
CLR
INCB
BNE
MOV
TST
BEQ
ERRORL

2T
MUX14F: SCOPEF
MUX14A
ASL

INC
DEC
BNE
SCOPE

0C7374

104002

SEQ 69

27-JUN-85 13:13:25 PAGE 45-1

| ad
MUX14F: SCOPE
.ENDC

MUX148B
R5
R1,8DHMCSR
R1,R3
SDHMLSR
#0
.-4
SDHMLSR, R4
R4
MUX14F

;SHIFT MASK

;SET LINE COUNTER TO SELECTED LINE
;CLEAR SECONDARY TRANSMIT FLIP FLOP
;DELAY FOR CABLE
;DITTO
;READ LINE STATUS REGISTER

iWAS SECONDARY TRANSMIT FUNCTION FLIP FLOP

; CLEARED
iNO, LINE STATUS ERROR

;CHECK FOR LOOP ON SAME DATA
SELMSK
R1
RO
MUX14A

;SHIFT SELECT MASK
:SELECT NEXT LINE
;DECREMENT LINE COUNT
;CONTINU IF NOT DONE
;CHECK FOR ITERATIONS, LOOP
:CHECK FOR ITERATIONS, LOOP

CZDHK-F MACRO V04.00

SEQ 70

27-JUN-85 13:13:25 PAGE 46

007376

MUXS2

15.TRMRDY,CO+CS, t/CLEAR TO SEND AND CARRIER ARE/,t/TERMINAL/
;VERIFY THAT CLEAR TO SEND AND CARRIER ARE SET IF “LINE
ENABLE
"

sAND TERMINAL ARE SET FOR SELECTED LINE.
.IFEQ
SINGLE
7S \N0,0
IFF
75
\Ni,1

007376

007376
007402

;REFERANCE NUMBER DEFINITION

000106
005077
042767

006210
000340

007410

016701

006264

007414

012702

000020

007420
007424

010177
012777

007432
007434

000240
000240

007436
007442
007444
007450
007454
007460
007462
007464

005077
005005
017704
117703
042703
020103
001002
012705

007470
007472
007474
007476
007500

020405
001403
104001
104003
007502
004767

007502

007506
007510
007512
007516
007520
007524
007532

005302
001354
012705

010103
010177
042777
105227

006166
000003

170366

006162

T7105:
Ni=N1.1
JIFTF
MUX15:
CLR
BIC
JFY
MOV
CLR
MOV
.IFF
MOV
LIFTF
MUX15A: MOV
JIFT
BIT
BEQ
JIFTF
MOV
MoV

;REFERENCE DESIGNATION
8DHMCSR
#340,PS

;CLEAR CONTROL REGISTER
;ENABLE INTERRUPTS

#16.,RO

:SET UP TO TEST 16 LINES
:START AT LINE O
;INIT LINE SELECT MASK

#1,SELMSK

LINE,R1
#16. ,R2

;16 LINES

SELMS
, LINSEL
K
MUX15F

;THIS LINE SELECTED FOR TEST ?
:BR IF NOT

R1,3DHMCSR
#LINENA+TR
, 3DHML
MRDY
SR

;SELECT A LINE
;SET LINE ENABLE +TRMRDY

s THESE TWO NOP'S ADDED FOR SOME DELAY FOR PDP-11/44
;WITH CACHE MEMORY TURNED ON.
NOP
;KR 10-JULY-84 REV E
NOP
:KR 10-JULY-84 REV E
006150
006144
006136
177760
000143

003676
000001
006066
000002
000000

006062

CLR
MUX15B: CLR
MOV
MOVB
BIC
CMP
BNE
MOV

8DHMLSR, R4
8DHMCSR,R3
#177760,R3
R1,R3
MUX15C
#LINENA+TRMRDY +C0+CS,RS

MUX15C:

R4 ,R5

CMP
BEQ
ERRORL
SCOPEF
MUX150
MUX15D: CALL
DEC
BNE
MOV
MUX15E: MOV
MOV
BIC
INCB

SDHMCSR
RS

:CLEAR CONTROL REGISTER
;CLEAR EXPECTED RESULT
:READ LINE STATUS
;READ LINE NUMBER
;CLEAR UNWANTED BITS
+IF RECEIVED LINE=SELECTED LINE
;EXPECT LINE ENABLE AND

MUX15D

iCLEAR TO SEND AND CARRIER ARE SET
;COMPARE EXPECTED AND
sRECEIVED RESULTS
;LINE STATUS ERROR

STEPER
R2
MUX158
#LINENA,RS
R1,R3
R1,8DHMCSR
.
#TRM
, RDY
3DHMLSR

;UPDATE LINE COUNTER
sCONTINUE IF ALL CHECKS
:ARE NOT DONE FOR THIS LINE
sEXPECT LINE ENABLE
;ON SELECTED LINE
sSELECT LINE
;CLEAR TERMINAL

;:DELAY FOR CABLE

(P
—

CZDHK-F MACRO V04.00
007536

007540
007544
007546
007550

001375
017704
020504
001401
104001

006050

% 4 |
MUX15F :

007552

104002

SEQ 71

27-JUN-85 13:13:25 PAGE 46-1
BNE
MOV
cHMP
BEQ
ERRORL
SCOPEF
MUX15A
INC
CLR
ASL
DEC
BNE
SCOPE

+IFF
MUX15F: SCOPE

.ENDC

.-4
@DHMLSR, R4
RS,R4
MUX15F

;:DITTO
;READ LINE STATUS REGISTER
;ONLY LINE ENABLE SHOULD BE
;SET ON THIS LINE
;LINE STATUS ERROR

:CHECK FOR LOOP ON SAME DATA
R1
aDHMLSR
SELMSK
MUX15A

;UPDATE LINE NUMBER
;CLEAR LINE STATUS REGISTER
;SHIFT MARK TO TEST NEXT LINE
;:CONTINUE IF ALL LINES NOT
; TESTED
;CHECK FOR ITERATIONS, LOOP
;CHECK FOR ITERATIONS, LOOP

CZDHK-F MACRO V04.00

SEQ 72

27-JUN-85 13:13:25 PAGE 47

007554

MUX52

16.RS.RING,t/RING IS/, +/REQUEST TO SEND/
;VERIFY THAT RING IS SET IF “LINE ENABLE"

;AND REQUEST TO SEND ARE SET FOR SELECTED LINE.
.I7EQ
SINGLE
TS \NO,O
IFF

007554

T106:
Ni=Ni+1

007554
007560

000107
005077
042767

006032
000340

170210

IFTF
MUX16:
e

\N1,1

sREFERANCE NUMBER DEFINITION

;REFERENCE DESIGNATION
CLR
BIC

MOV

;CLEAR CONTROL REGISTER
;ENABLE INTERRUPTS

#16.,R0

;SET UP TO TEST 16 LINES
;START AT LINE O
;INIT LINE SELECT MASK

CLR

MOV

#1,SELMSK

007566

016701

006106

+IFF
S

MOV

LINE,R1

007572

012702

000020

M{)F(%6A: MOV

#16.,R2

;16 LINES

BIT
BEQ

SELMSK , LINSEL
MUX16F

:BR IF NOT

MOV
MoV

R1,89DHMCSR
#LINENA+RS , 8DHMLSR

sSELECT A LINE
;SET LINE ENABLE +RS

007576
007602

010177
012777

007610
007612

000240
000240

007614
007620
007622
007626
007632
007636
007640
007642

005077
005005
017704
117703
042703
020103
001002
012705

007646

020405

007650
007652
007654
007656
007660
007664
007666
007670
007674
007676

007702
007710

8DHMCSR
#340,PS

006010
000005

006004

;THESE TWO NOP'S ADDED FOR SOME DELAY FOR PDP-11/44
;WITH CACHE MEMORY TURNED ON.
NOP
iKR 10-JULY-84 REV E
NOP
;KR 10-JULY-84 REV E
005772
005766
005760
177760

000205

001403
104001

104003
007660
004767
005302
001354
012705
010103
010177
042777
105227

;THIS LINE SELECTED FOR TEST ?

CLR
MUX168: CLR
MOV
MovB
BIC
CMP
BNE
MOV

SDHMCSR
RS
SDHMLSR, R4
8DHMCSR,R3
#177760,R3
R1,R3
MUX16C
@LINENA+RS+RING,RS

MUX16C: CMP

R4 ,R5

BEQ
ERRORL

003520

000001
005710

000004
000000

005704

SCOPEF
MUX16D
MUX160: CALL
DEC
BNE
MOV
MUX?<E: MOV
MOV
BIC
INCB

MUX16D

STEPER
R2
MUX168
#LINENA,RS
R1,R3
R1,8DHMCSR

#RS, 3DHMLSR
#0

;CLEAR CONTROL REGISTER
;CLEAR EXPECTED RESULT
;READ LINE STATUS
:READ LINE NUMBER
:CLEAR UNWANTED BITS
+IF RECEIVED LINE=SELECTED LINE
+EXPECT LINE ENABLE AND
sRING IS SET
;COMPARE EXPECTED AND
sRECEIVED RESULTS
;LINE STATUS ERROR
;UPDATE LINE COUNTER
;CONTINUE IF ALL CHECKS

sARE NOT DONE FOR THIS LINE
:EXPECT LINE ENABLE

;ON SELECTED LINE
sSELECT LINE
;CLEAR REQUEST TO SEND
;DELAY FOR CABLE

CZDHK-F MACRO V04.00
007714
007716
007722
007724
007726

007730

001375
017704
020504
001401
104001

BNE
MOV

005672

IFT
MUX16F
:

JIFF

104002

SEQ 73

27-JUN-85 13:13:25 PAGE 47-1

cMP
BEQ
ERRORL
SCOPEF
MUX16A
INC
CLR
ASL
DEC
BNE
SCOPE

MUX16F
: SCOPE
.ENDC

.-4

SDHMLSR, R4

RS,R4
MUX16F

;:DITTO
;READ LINE STATUS REGISTER
;ONLY LINE ENABLE SHOULD BE
;SET ON THIS LINE
;LINE STATUS ERROR

;CHECK FOR LOOP ON SAME DATA
R1

8DHMLSR
SELMSK
RO
MUX16A

;UPDATE LINE NUMBER
;CLEAR LINE STATUS REGISTER
;SHIFT MARK TO TEST NEXT LINE
;CONTINUE IF ALL LINES NOT
s TESTED
;CHECK FOR ITERATIONS, LOOP
;CHECK FOR ITERATIONS, LOOP

CZDHK-F MACRO V04.00

SEQ 74

27-JUN-85 13:13:25 PAGE 48

007732

MUXS2

17,SECTX,SECRX, t+/SECONDARY RECEIVE IS/, t/SECONDARY TRANSMIT/

;VERIFY THAT SECONDARY RECEIVE IS SET IF “LINE ENABLE"
;AND SECONDARY TRANSMIT ARE SET FOR SELECTED LINE.
.IFEQ
SINGLE
TS \NO,0
.IFF
LE]
\N1,1

007732

007732
007732

007736

;REFERANCE NUMBER DEFINITION

000110

005077
042767

005654

000340

170032

T107:
Ni=N1.1
JIFTF
MUX17:
CLR
BIC
LIFT

MOV

007744
007750

007754
007760

012702

010177
012777

007766
007770

000240
000240

007772

010000
010004
010010
010014
010016
010020

005077
005005
017704
117703
042703
020103
001002
012705

010024
010026
010030
010032
010034
010036
010042
010044
010046
010052
010054
010060
010066

020405
001403
104001
104003
010036
004767
005302
001354
012705
010103
010177
042777
105227

007776

016701

.IFF

005730

005632
000011

005626

8DHMCSR
#340,PS

#16. ,RO

CLR

MOV

LINE,R1

MOV

IFTF
MUX17A: MOV
JIFT
BIT
BEQ
+SFIF

000020

;REFERENCE DESIGNATION

MOV
MOV

#1,SELMSK

;CLEAR CONTROL REGISTER

:ENABLE INTERRUPTS

:SET UP TO TEST 16 LINES
;START AT LINE O
:INIT LINE SELECT MASK

#16. ,R2

;16 LINES

SELMSK, LINSEL
MUX17F

;THIS LINE SELECTED FOR TEST
:BR IF NOT

R1,8DHMCSR
#LINENA+SECTX, 8DHMLSR

:SELECT A LINE
:SET LINE ENABLE +SECTX

;THESE TWO NOP'S ADDED FOR SOME DELAY FOR PDP-11/44
;WITH CA CHE MEMORY TURNED ON.
NOP
NOP

005614

CLR
MUX178: CLR

005610
005602
177760

8DHMLSR, R4
SDHMCSR,R3

CMP
BNE
MOV

R1,R3
MUX17C
@LINENA+SECTX+SECRX,RS

MUX17C: CHP

BEQ

ERRORL

SCOPEF
MUX170
MUX17D: CALL

003342
000001

005532
000010
000000

005526

8DHMCSR
RS

MOV
MOvVB

BIC

000031

iKR 10-JULY-84 REV E

;KR 10-JULY-84 REV E

DEC
BNE
MOV
MUX17E: MOV
MOV

BIC
INCB

#177760,R3

R4 ,RS

MUX170

STEPER

R2
MUX178
#LINENA,RS
R1,R3
R1,8DHMCSR

#SECTX,8DHMLSR
#0

;CLEAR CONTROL REGISTER
;CLEAR EXPECTED RESULT
;READ LINE STATUS
;READ LINE NUMBER
;CLEAR UNWANTED BITS
+IF RECEIVED LINE=SELECTED LINE
;EXPECT LINE ENABLE AND
; SECONDARY RECEIVE IS SET
;COMPARE EXPECTED AND
;RECEIVED RESULTS
;LINE STATUS ERROR

sUPDATE LINE COUNTER
;CONTINUE IF ALL CHECKS
;ARE NOT DONE FOR THIS LINE
sEXPECT LINE ENABLE
;ON SELECTED LINE
;SELECT LINE
;CLEAR SECONDARY TRANSMIT
;DELAY FOR CABLE

CZDHK-F MACRO V04.00
010072

010074
010100
010102
010104

001375
017704
020504
001401
104001

BNE
MOV

005514

cHpP

IFT
MUX17F :

BEQ
ERRORL

SCOPEF
MUX17A
CLR

ASL

DEC
BNE
SCOPE

010106

104002

SEQ 75

27-JUN-85 13:13:25 PAGE 48-1

IFF
MUX17F: SCOPE
.ENDC

.-4
8DHMLSR,R4
R5,R4
MUX17F

;:DITTO
;READ LINE STATUS REGISTER
;ONLY LINE ENABLE SHOULD BE
;SET ON THIS LINE
;LINE STATUS ERROR

;CHECK FOR LOOP ON SAME DATA
R1
8DHMLSR
SELMSK
RO
MUX17A

;UPDATE LINE NUMBER
;CLEAR LINE STATUS REGISTER
iSHIFT MARK TO TEST NEXT LINE
;CONTINUE IF ALL LINES NOT
: TESTED
:CHECK FOR ITERATIONS, LOOP
;CHECK FOR ITERATIONS, LOOP

CZDHK-F MACRO V04.00

SEQ 76

27-JUN-85 13:13:25 PAGE 49

sMODEM CONTROL ON LINE TEST USING 1C3A TYPE MODEMS
;ANSWER STATION TO BE OPERATED IN AUTO-ANSWER MODE
;THIS TEST VERIFIES THE CONNECT AND DISCONNECT SEQUENCES
;USING THE MODEM CONTROL TO CONTROL 103A TYPE MODEMS
sNOTE:
IF THE DM11-AA IS NOT CONNECTED TO THE
;DISTRIBUTION PANEL, AN M974 DM11 MAINTENANCE JUMPER
;SHOULD BE INSTALLED IN SLOT B1 OR B3 OF THE DISTRIBUTION
;PANNEL TO PREVENT A POSSIBLE LONG SPACE
;DISCONNECT FROM HANGING UP THE MODEM
.MACRO
.NLIST
N2=200

COMMENT

N=N2
XN=N2

010110

22 010110
010110

23 010110
24 010112
25 010120
26 010122
27 010124
28 010132
29 010134
30 010136
31 010144
32 010152
33
34 010154
35
36 010156
37 010160
38 010162
39 010164
40

41
42
43
44
45
46 010166
47
48
49

S0 010170
s1

.LIST
.ENDM

000200
000200
000200

COMMENT

N2=200
N=N2
XN=N2

TS \N2,2

000201
000005
012767
104004
016227
022767
001001
104025
012767
012767
104017

000340

167656

000176

005474

010154
010152

001600
172072

;REFERANCE NUMBER DEFINITION

T200:
N2=N2+1
ST103A: RESET

MOV
TYPE
MT103T

CMP

BNE
CNTLW
1s:
MOV
MOV
ST1038: GETLNS

104020

T103A:

010166
010162

71038
T103A1
T103A1: ERROR
BR

104012
000772

#340,PS

#SWREG, SWR

;REFERENCE DESIGNATION
;INITIALIZE INTERFACE
;DISABLE ALL INTERRUPTS
;TYPE "103A MODEM CONNECT;DISCONNECT TEST*

OT103A,FATRET
#5T1038,KRET

:SET UP FOR FATAL ERROR

:SET UP FOR LINE CHANGE

:INPUT ORIGINATE AND

SETUP

ST1038

;AND ANSWER LINE NUMBERS
:SET UP TO RECEIVE INTERRUPTS
sWAIT FOR RING
;GO HERE IF RING OK
;GO HERE IF NO RING
;NO RING WITHIN 5 MINUTES
$SELECT NEW LINES AND REDIAL

;CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE
+IF AN INCORRECT TRANSITION OCCURS, THE PROGRAM

iWILL TYPE AN ERROR MESSAGE, AND THE OPERATOR

sWILL BE REQUESTED TO RESELECT LINES AND REDIAL
104021

010206

T1038B:

CKRING

T103C

;CHECK FOR RING INTERRUPT

sONLY ON ANSWER LINE
:AND NO TRANSITIONS ON
;ORIGINATE LINE

;GO HERE IF TRANSITIONS

;ARE CORRECT

CZOHK-F MACRO V04.00
52 010172
53
54 010174
55
56 010176
57 010200
58 010202
59 010204

SEQ 77

27-JUN-85 13:13:25 PAGE 49-1

010176

T10381

010202

T10382

104014
000207
104014
000762

T103B1: ERRORT
RTS
T10382: ERRORT
BR

PC
ST1038

;GO HERE IF INCORRECT
;TRANSITION ON ANSWER LINE
;GO HERE IF INCORRECT TRANSITION
:ON ORIGINATE LINE
s TRANSITION ERROR ON ANSWER LINE
;CONTINUE CHECKING
i TRANSITION ERROR ON ORIGINATE LINE
;RESELECT LINES AND REDIAL

CZDHK-F MACRO V04.00
1
2

016777

005472

005376

052777

000002

005372

104026
104022

T103C:

MOV

LINANS ,8DHMCSR

BIS

#TRMRDY, 8DHMLSR

CKINTT
WAITRN

sCHECK FOR CORRECT STATUS AND TRANSITIONS ON
;SELECTED ORIGINATE AND ANSWER LINES

104023

CKTRAN

000143

CO+CS+LINENA+TRMRDY

100006

RINGF+XCO+XCS

000006

XCO+XCS

gg 010240

010252

T10301

34 010242

010256

39 010254
40 010256

41 010260

42 010262
43 010264
44 010266
45 010270

:SET LINE COUNTER TO
;ANSWER LINE NUMBER
:SET_TERMINAL READY ON
:SELECTED ANSMWER LINE
;WAIT FOR TRANSITIONS TO OCCUR

000143

35 010244
36 010246
37 010250
38 010252

sWAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES

12
iz

15 010226
16
17
18 010230
19
20
21
22 010232
23
24
25
26 010234
27
28
29 010236
30
31

;SET_TERMINAL READY ON SELECTED ANSWER LINE

S 010206
6
7 010214
8
9 010222
ig 010224

SEQ

27-JUN-85 13:13:25 PAGE 50

010262
010266
010272
104015

000207
104015
000207
104014
000207
104014

000207

RTS
T103D2: ERRORS
RTS

T10303: ERRORY
RTS
T10304: ERRORT
RTS

;READY STATUS BITS SET ON
s ANSWER LINE
:EXPECT CARRIER, CLEAR TO SEND,
iLINE ENABLE
, AND TERMINAL
;READY STATUS BITS ON

;ORIGINATE LINE
iEXPECT CARRIER, CLEAR TO SEND
iAND POSSIBLE RING TRANSITIONS
:ON ANSWER LINE
;EXPECT CARRIER AND CLEAR
iTO SEND TRANSITIONS ON
iORIGINATE LINE

160 HERE ON ANSWER LINE STATUS ERROR

710302

710303
T103D4
T103E
T103D1: ERRORS

;CHECK TRANSITIONS AND
iSTATUS ON SELECTED
;ANSWER AND ORIGINATE LINES
+EXPECT CARRIER, CLEAR TO SEND,
;LINE ENABLE AND TERMINAL

:GO HERE ON ORIGINATE LINE STATUS ERROR

PC
PC

+G0 HERE ON ANSWER LINE TRANSITION ERROR
1GO HERE ON ORIGINATE LINE TRANSITION ERROR
+GO TO NEXT TEST IF NO ERRORS
;ANSWER LINE STATUS ERROR

sCONTINUE CHECKING
+ORIGINATE LINE STATUS ERROR
sCONTINUE CHECKING

sANSWER LINE TRANSITION ERROR
iCONTINUE CHECKING
;ORIGINATE LINE TRANSITION ERROR
sCONTINUE CHECKING

P papa
po s pa

VOGNt
OOD® 10N S Wi e

CI0MK-F MACRO v04.00

sSET UP TO TEST DISCONNECT SEQUENCE
sTHE PROGRAM WILL REQUEST THE OPERATOR TO TYPE A CHARACTER
sTO INITIATE THE DISCONNECT SEQUENCE
s THE OPERATOR MAY MANUALLY SWITCH THE DATA SETS FROM
:DATA TO TALK MODE AS MANY TIMES AS DESIRED
sBEFORE THE SWITCH SEETIN IS MADE

sANY TRANSITIONS DETECTED DURING THIS TIME WILL
BE

sREPORTED BY TYPEOUT
016472
012767
012777

000340
011766

16 010312

012767

18 010320
19 010326
20 010332
2l 01033¢
22 010342
23 010344
24 010350
25 010356
26 010362
27 010370
28 010376
29 010400

012777
005067
005077
105777
100375
005777
012767
005077
016777
042777
104026
104022

010272
010274
010276
010504

SEQ 79

27-JUN-85 13:13:25 PAGE S1

104004

T103€E:

TYPE

sTYPE

167472
005274

MDISC
MOV
MOV

010332

005412

MOV

#T103ES,RNGRET

000140
167444
005262
005254

005264

MOV
CLR
CLR

005250
000340
005230
005314

000002

T103ES:

1s:

TSTB

BPL

167420
005222
005216

TST
MOV
CLR
MOV
BIC

CKINTT

WAITRN

4TRNTYP,S8DHMVEC

;SET UP TO DETECT TRANSITIONS

OSCNENAoINTENA.BDHHCSR

8TKDBR
JTKCSR
1$
8TKDBR
#340,PS
SDHMCSR
LINORG,3DHMCSR
@TRMRDY, 3DHMLSR

"STRIKE ANY TTY KEY

s TEST DISCONNECT"
;LOCK OUT INTERRUPTS

+BEFORE DISCONNECT SEQUENCE STARTS
:SET UP DUMMY RETURN FOR
;RING INTERRUPT
:SET SCAN ENABLE AND INTERRUPT ENABLE

;ALLOW INTERRUPTS

sWAIT FOR TTY TO HIT

:START DISCONNECT SEQUENCE
;CLEAR CONROL REGISTER
:SET LINE COUNTER TO SELECTED ORIGINATE LINE
:SET TERMINAL READY ON SELECTED LINE
:WAIT FOR TRANSITIONS TO OCCUR

CIOmK -F

v04.00

27-JUN-85

13:13:25 PAGE

SEQ 80

sCHECK FOR CORRECT STATUS AND TRANSITIONS ON SELECTED
sORIGINATE AND ANSWER LINES

010402

104023

CKTRAN

010404

000003

LINENA+TRMRDY

10406

000001

LINENA

010410

000006

XCO-XCS

010412

000006

XC0.XCS

010414

010426

T103E1

01041¢€
010420
010422
010424
010426
010430
010432
010434
010436
010440
010442
010444

010432
010436
010442
010446
104015
000207

T103E2
T1C3E3
T103E4
T103EN

PUNFOO®
IV B

W wwn DN
NA
=
i

e pa

OOV ICVBWN-O OB ATV S, ee

MACRO

35
36
'+ 87
38
39
4c

T103E1:

104015

T103€2:

104014

ERRORS
RTS
T103E3: ERRORT

104014

T103€E4:

000207

000207
000207

RTS
ERRORT
RTS

010446

TS \N2,2

010446

7201:
N2=N2-1
T103EN: TYPE
MT103A

010446
010450
010452

010456

010460

000202
104004
0le414
005067
104026
000167

005162
177466

sANSWER LINE

;EXPECT CARRIER AND CLEAR
:TO SEND TRANSITIONS ON
;ORIGINATE LINE
;GO HERE ON ANSWER LINE STATUS ERROR

ERRORS

RTS

PC
PC
PC

;REFERANCE NUMBER DEFINITION

CLR
CKINTT

JMP

sCHECK TRANSITIONS AND
:STATUS ON SELECTED
;ANSWER AND ORIGINATE LINES
;EXPECT LINE ENABLE AND
: TERMINAL READY STATUS BITS
iSET ON ANSWER LINE
;EXPECT LINE ENABLE STATUS BIT
:SET ON ORIGINATE LINE
;EXPECT CARRIER AND CLEAR
:TO SEND TRANSITIONS ON

;GO HERE ON ORIGINATE LINE STATUS ERROR
;GO HERE ON ANSWER LINE TRANSITION ERROR
;GO HERE ON ORIGINATE LINE TRANSITION ERROR
;GO TO NEXT TEST IF NO ERRORS
;ANSWER LINE STATUS ERROR
;CONTINUE CHECKING
;ORILINE
GINA
STATUS TE
ERROR
;CONTINUE CHECKING
;ANSWER LINE TRANSITION ERROR
;CONTINUE CHECKING
;ORIGI
LINE TRANSITI
NAT
ON ERROR
E
;CONTINUE CHECKING

;REFERENCE DESIGNATION

s TYPE ” 103A TEST COMPLETE*”
TSTNO

;CLEAR TEST NUMBER FOR LOOPING

ST1038

;SELECT NEW LINE NUMBERS AND
;RESTART TEST

;MODEM CONTROL ON LINE TEST USING 202C TYPE MODEMS
;ANSWER STATION TO BE OPERATED IN AUTO-ANSWER MODE
sTHIS TEST VERIFIES THE CONNECT AND DISCONNECT SEQUENCES
;USING THE MODEM CONTROL TO CONTROL 202C TYPE MODEMS
;ALSO TESTED ARE LINE TURN-AROUND AND
; SECONDARY TRANSMIT-SECONDARY RECEIVE

17 010464

18 010464

010464

19 010464
20 010466
21 010474
22 010476
23 010500
24 010506
25 010510
26 010512
27 010520
28 010526
29
30 010530
31
32 010532
33 010534
34 010536
35 010540

SEQ 81

27-JUN-85 13:13:25 PAGE 53

P OOV®IOWVB
N -

CZDMK
-F MACRO v04.20

.MACRO
-NLIST
N3=300
N=N3
XN=N3
L3187
.ENDM

000300
000300
000300

000301
000005
012767
104004
016300
022767
001001
104025
012767
012767
104017

COMMENT

N3=300
N=N3
XN=N3
TS \N3,3

000340

000176

010530
010526

167302
005120

001224
171516

COMMENT

;REFERANCE NUMBER DEFINITION

T300:
N3=N3.1
ST202A: RESET
MOV
TYPE
MT202T
CMP

BNE
CNTLW
1s:
MOV
MOV
ST202B: GETLNS

104020

T202A:

010542
010536

72028
T202A1
T202A1: ERROR
BR

104012
000772

:REFERENCE DESIGNATION
#340,PS

:INITIALIZE INTERFACE
;DISABLE ALL INTERRUPTS

:TYPE

#SWREG, SWR
1s
#T202A ,FATRET
#5T72028,KRET

SETUP

"202C MODEM CONNECT-

;DISCONNECT TEST”

;SET UP FOR FATAL ERROR
:SET UP FOR LINE CHANGE
:INPUT ORIGINATE AND
;ANSWER LINE NUMBERS
:SET UP TO RECEIVE INTERRUPTS

;WAIT FOR RING

ST2028

;GO HERE IF RING OK
;GO HERE IF NO RING
;NO RING WITHIN S MINUTES
:SELECT NEW LINES AND REDIAL

-F MACRO V04,00
CZOHK

SEQ 82

27-JUN-85 13:13:25 PAGE 53-1

36
37
38
39

;CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE

40
41
42 010542

43
44
45
46 010544
47
48 010546
49
50 010550

51
Se
53
54 010556
55 010560

;IF AN INCORRECT TRANSITION OCCURS, THE PROGRAM
sWILL TYPE AN ERROR MESSAGE, AND THE OPERATOR
sWILL BE REQUESTED TO RESELECT LINES AND REDIAL
104021

T2028:

CKRING

010562

T202C

010552

T20281

010556

T2028B2

010554 200207
104014
000762

T2028B1:

T2028B2:

ERRORT
RTS
ERRORT
BR

5T2028

;CHECK FOR RING INTERRUPT
;ONLY ON ANSWER LINE
;AND NO TRANSITIONS ON
;ORIGINATE LINE
;GO HERE IF TRANSITIONS
sARE CORRECT
;GO HERE IF INCORRECT
;TRANSITION ON ANSWER LINE
;GO HERE IF INCORRECT
s TRANSITION ON ORIGINATE LINE
;ANSWER LINE TRANSITION ERROR
;CONTINUE CHECKING
;ORIGINATE LINE TRANSITION ERROR

;RESELECT LINES AND REDIAL

OCVVNOWVID
YN -

CZDHK
-F MACRO V04.00

PLPEBUEHGNHNHGMHNEHNDNNDNDDND n O += 1 s 1 s o e o
BUANFOVEIOVNBUNFOOV®NOWU &L OO
NFOoOVEITVIBWLN

010562
010570
010576
010604
010612
11 010614

SEQ 83

27-JUN-85 13:13:25 PAGE 54

;SET TERMINAL READY ON SELECTED ANSWER LINE
;SET REQUEST TO SEND ON SELECTED ORIGINATE LINE
sWAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES
016777
052777
016777
052777
104026
104022

005116
000002
005100
000004

005022
005016
005006

005002

T202C:

T2020:

MOV
BIS
MOV
BIS
CKINTT

LINANS,8DHMCSR
#TRMRDY, 3DHMLSR
LINORG, 8DHMCSR
#RS, 3DHMLSR

WAITRN

:SET
+SET
;SET
:SET

LINE COUNTER TO ANSWER LINE
TERMINAL READY ON ANSWER LINE
LINE COUNT
R TO ORIGINATE LINE
REQUEST TO SEND ON ORIGINATE LINE

;WAIT FOR TRANSITIONS TO OCCUR

;CHECK FOR CORRECT STATUS AND TRANSITIONS ON
;SELECTED ORIGINATE AND ANSWER LINES
010616

104023

CKTRAN

010620

000103

CO+LINENA+TRMRDY

010622

000147

RS+C0+CS+LINENA+TRMRDY

010624

100004

RINGF +XCO

010626

000006

XCO+XCS

010630
010632
010634
010636
010640
010642
010644
010646
010650
010652
010654
010656
010660

010642
010646
010652
010656
010662
104015
000207
104015
000207
104014
000207
104014
000207

720201
T202D2
720203
720204
T202E
ERRORS
RTS
ERRORS
RTS
ERRORT
RTS
ERRORT

T20201:
T20202:

T20203:
T202D4;

RTS

PC
PC

;CHECK TRANSITIONS AND STATUS
:ON SELECTED ANSWER AND
;ORIGINATE LINES
;EXPECT CARRIER, LINE ENABLE
;AND TERMINAL READY STATUS
;BITS SET ON ANSWER LINE
;EXPECT REQUEST TO SEND, CLEAR
:TO SEND, CARRIER, LINE ENABLE
;AND TERMINAL READY STATUS BITS
:SET ON ORIGINATE LINE
;EXPECT CARRIER AND POSSIBLE
;RING TRANSITIONS ON
;ANSWER LINE
;EXPECT CARRIER AND CLEAR
:TO SEND TRANSITIONS ON
;ORIGINATE LINE
:GO HERE ON ANSWER LINE STATUS ERROR
:GO HERE ON ORIGINATE LINE STATUS ERROR
;GO HERE ON ANSWER LINE STATUS ERROR
;GO HERE ON ORIGINATE LINE TRANSITION ERROR
;G0 TO NEXT TEST IF NO ERRORS
:ANSWER LINE SATAUS ERROR
;CONTINUE CHECKING
;ORIGINATE LINE STATUS ERROR
sCONTINUE CHECKING
;ANSWER LINE TRANSITION ERROR
:CONTINUE CHECKING
;ORIGINATE LINE TRANSITION ERROR

;CONTINUE CHECKING

CZOHK-F MACRO V04.00
1
2
3

S 010662
6 010670
7 010676

8010700

10
11
12
13 010702
14
15
16 010704

sSET_SECONDARY TRANSMIT ON ANSWER LINE
sMAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES

016777
052777
104026

004722
004716

T202E:

MOV
BIS

CKINTT

LINANS , 8DHMCSR
#SECTX, 8DHMLSR

sSET LINE COUNTER TO ANSWER LINE
sSET SECONDARY RECEIVE ON ANSWER LINE

WAITRN

;WAIT FOR TRANSITIONS TO OCCUR

sCHECK FOR CORRECT STATUS AND TRANSITIONS ON
sSELECTED ORIGINATE AND ANSWER LINES

104023

CKTRAN

000133

SECTX+CO+LINENA+TRMRDY+SECRX

sCHECK TRANSITIONS AND STATUS
;ON_SELECTED ANSWER AND
;:ORIGINATE LINES
;EXPECT SECONDARY TRANSMIT

:SECONDARY

;

25 010710
26
27 010712
28
29 010714
30 010716
31 010720
32 010722
33 010724
34 010726
35 010730
36 010732
37 010734
38 010736
39 010740
40 01074¢
41 010744

005016
000010

104022

20 010706
21
22
23
24

SEQ 84

27-JUN-85 13:13:25 PAGE 55

;LINE

000167

SECRX+RS+CO+CS+LINENA+TRMRDY
_

000001

XSCRX

000001

XSCRX

010726
010732
010736
010742
010746
104015
000207
104015
000207
104014
000207
104014
000207

T202€1
T202E2
T202€3
T202€4
T202F
ERRORS
RTS
ERRORS
RTS
ERRORT
RTS
ERRORT
RTS

T202E1:
T202E2:
T202E3:
T202E4:

PC
PC

RECEIVE,

CARRIER

ENABLE

AND

TERMINAL

iSTATUS BITS

READY

SET

ON ANSWER

LINE

;EXPECT SECONDARY RECEIVE,
sREQUEST TO SEND, CLEAR TO SEND
;CARRIER, LINE ENABLE AND
s TERMINAL READY STATUS BITS
:SET_ON ORIGINATE LINE

sEXPECT SECONDARY RECEIVE
s TRANSITION ON ANSWER LINE
sEXPECT SECONDARY RECEIVE
:TRANSITION ON ORIGINATE LINE
iGO HERE ON ANSWER LINE STATUS ERROR
:GO HERE ON ORIGINATE LINE STATUS ERROR
:GO HERE ON ANSWER LINE TRANSITION ERROR
s60 HERE ON ORIGINATE LINE TRANSITION ERROR
i60 TO NEXT TEST IF NO ERRORS
;ANSWER LINE STATUS ERROR
;CONTINUE CHECKING
;ORIGINATE LINE STATUS ERROR
:CONTINUE CHECKING
sANSWER LINE TRANSITION ERROR
;CONTINUE CHECKING

sORIGINATE LINE TRANSITION ERROR
:CONTINUE CHECKING

VevYowUmawNn OCOVWNOVI &N

CZDHK-F MACRO V04.00

0 S s e et s e et s

010746
010754
010762
010770
010776
11 011000

SEQ

27-JUN-85 13:13:25 PAGE 56

016777
042777
016777
042777
104026
104022

004730
000004
004716
000010

004636
004632
004622
004616

T202F:

MOV
BIC
MOV
BIC
CKINTT
WAITRN

LINORG, 8DHMCSR
@RS, 8DHMLSR
LINANS ,3DHMCSR
#SECTX, 3DHMLSR

;CHECK FOR CORRECT STATUS AND TRANSITIONS ON
;SELECTED ORIGINATE AND ANSWER LINES
CKTRAN

011004
20
21
22 011006
23
24
25 011010
26
27
28 011012
29
30
51 011014
32 011016

000003

LINENA+TRMRDY

000003

LINENA+TRMRDY

000005

XCO+XSCRX

000007

XC0O+XCS+XSCRX

011026
011032
011036
011042
011046
104015
000207
104015
000207
104014
000207
104014
000207

T202F2
T202F3
T202F4
T202F5
T202G
ERRORS
RTS
ERRORS
RTS
ERRORT
RTS
ERRORT
RTS

011036
011040
011042
011044

:SET LINE COUNTER TO ORIGINATE LINE
:DROP REQUEST TO SEND
:SET LINE COUNTER TO ANSWER LINE
:DROP SECONDARY RECEIVE

;WAIT FOR TRANSITIONS TO OCCUR

104023

40
41
42
43

;DROP REQUEST TO SEND ON ORIGINATE LINE
;:DROP SECONDARY TRANSMIT ON ANSWER LINE
;WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES

011002

33 011020
34 011022
35 011024
36 011026
37 011030
38 011032
39 011034

T202F2:
T202F3:
T202F4:
T202F5:

PC
PC
PC

iCHECK TRANSITIONS AND STATUS
;ON SELECTED ANSWER AND
;ORIGINATE LINES
;EXPECT LINE ENABLE AND
; TERMINAL READY STATUS BITS
:SET ON ANSWER LINE
iEXPECT LINE ENABLE AND
: TERMINAL READY STATUS BITS
:SET ON ORIGINATE LINE
;EXPECT CARRIER AND SECONDARY
;RECEIVE TRANSITIONS ON
;ANSWER LINE
;EXPECT CARRIER, CLEAR TO SEND
;AND SECONDARY RECEIVE
s TRANSITIONS ON ORIGINATE LINE
;GO HERE ON ANSWER LINE STAATUS ERROR
;G0 HERE ON ORIGINATE LINE STATUS ERRORO
;GO HERE ON ANSWER LINE TRANSITION ERROR
;GO HERE ON ORIGINATE LINE TRANSITION ERROR
;GO TO NEXT TEST IF NO ERRORS
;ANSWER LINE STATUS ERROR
;CONTINUE CHECKING
;ORIGINATE LINE STATUS ERROR
;CONTINUE CHECKING
;ANSWER LINE TRANSITION ERROR
;CONTINTUE CHECKING
;ORIGINATE LINE TRANSITION ERROR
;CONTINUE CHECKING

B 08 04 Gl Ol 0 L 0 LN 8 N T PO TV PO O PO Y

S s s s s e s s

OO\IOM&WNFOOO\JO“&NNH

CZDHK-F MACRO V04.00

SEQ 86

27-JUN-85 13:13:25 PAGE 57

;SET REQUEST TO SEND ON ANSWER LINE

sWALT FOR TRANSITIONS ON SELECTED LINES

011046
0i1054
011062
011064

016777
052777
104026
104022

004632
000004

004536
004532

T202G:

MOV

gi? N
WAITRN

LINANS, 8DHMCSR

#RS, 3DHMLSR

;WAIT FOR TRANSITIONS TO OCCUR

;CHECK FOR CORRECT STATUS AND TRANSITIONS ON
;SELECTED ORIGINATE AND ANSWER LINES

011066

104023

CKTRAN

011070

000147

RS+C0O+CS+LINENA+TRMRDY

011072

000103

CO+LINENA+TRMRDY

011074

:SET LINE COUNTER TO ANSWER LINE

;SET REQUEST TO SEND

000006

;CHECK TRANSITIONS AND STATUS
:ON SELECTED ANSWER AND
;ORIGINATE LINES
;EXPECT LINE ENABLE, TERMINAL
;READY, REQUEST TO SEND, CLEAR
:TO SEND, AND CARRIER
iSTATUS BITS SET ON ANSWER LINE

;EXPECT LINE ENABLE,

TERMINAL

;READY AND CARRIER STATUS
;BITS SET ON ORIGINATE LINE

XCO+XCS

;EXPECT CARRIER AND CLEAR

:TO SEND TRANSITIONS ON
;ANSWER LINE

011076

000004

XCo

;EXPECT CARRIER TRANSITION

011100
011102
011104
011106
011110
011112
011114
011116
011120
011122
011124
011126
41 011130

011112
011116
011122
011126
011132
104015
000207
104015
000207
104014
000207
104014
000207

7202G1
720262

;G0 HERE ON ANSWER LINE STATUS ERROR
:G0 HERE ON ORIGINATE LINE STATUS ERROR

;ON ORIGINATE LINE

T7202G3

T202G1:

T2026G2:
T202G3:
T202G4
:

7202G4
T202H
ERRORS
RTS
ERRORS
RTS
ERRORT
RTS
ERRORT
RTS

;GO HERE ON »NSWER LINE TRANSITION ERROR

PC
PC
PC
PC

;GO HERE ON ORIGINATE LINE TRANSITION ERROR
:GO TO NEXT TEST IF NO ERRORS
;ANSWER LINE STATUS ERROR
;CONTINUE TESTING
;ORIGINATE LINE STATUS ERROR
;CONTINVE TESTING
;ANSWER LINE TRANSITION ERROR
;CONTINUE TESTING
;ORIGINATE LINE TRANSITION ERROR
;CONTINUE TESTING

CZDHK-F MACRO V04.00
1
2
3

;:SET _SECONDARY TRANSMIT ON ORIGINATE LINE
sWAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES

5 011132
6 011140
7 011146
g 011150
10
11
12

13 011152
14
15

16 011154
17
18
19
20
21 011156
22
23
24
25
26 011160
27
28 011162

29
30 011164
31 011166

32 011170

33 011172
34 011174
35 011176
36 011200
37 011202
38 011204
39 011206
40 011210

41 011212
42 011214

[S—

SEQ 87

27-JUN-85 13:13:25 PAGE S8

016777
052777
104026
104022

004544
000010

004452
004446

T202H:

MOV
BIS
CKINTT
WAITRN

LINORG,8DHMCSR
#SECTX, 8DHMLSR

:SET LINE COUNTER TO ORIGINATE LINE
;SET SECONDARY TRANSMIT

;WAIT FOR TRANSITIONS TO OCCUR

;CHECK FOR CORRECT STATUS AND TRANSITIONS ON
;SELECTED ORIGINATE AND ANSWER LINES

104023

CKTRAN

000167

RS+CS+CO+LINENA+TRMRDY + SECRX

000133

SECTX+CO+LINENA+TRMRDY +SECRX

000001

XSCRX

000001

XSCRX

011176
011202
011206
011212
011216
104015
000207
104015
000207
104014
000207
104014
000207

T202H2
T202H3
T202H4
T202H5
T2021
ERRORS
RTS
ERRORS
RTS
ERRORT
RTS
ERRORT
RTS

T202H2:
T202H3:
T202H4:
T202H5:

PC
PC
PC

;CHECK TRANSITIONS AND STATUS
;ON SELECTED ANSWER AND
;ORIGINATE LINES

;EXPECT LINE ENABLE, TERMINAL
;READY, REQUEST TO SEND, CLEAR
;TO SEND, CARRIER AND SECONDARY
;RECEIVE STATUS BITS SET
;ON ANSWER LINE
:EXPECT LINE ENABLE, TERMINAL
;READY, CARRIER, SECONDARY
i TRANSMIT AND SECONDARY
;RECEIVE STATUS BITS SET
;ON ORIGINATE LINE
:EXPECT SECONDARY RECEIVE
i TRANSITION ON ANSWER LINE
;EXPECT SECONDARY RECEIVE

s TRANSITION ON ORIGINATE LINE
;G0 HERE ON ANSWER LINE STATUS ERROR
;GO HERE ON ORIGINATE LINE STATUS ERROR
;G0 HERE ON ANSWER LINE TRANSITION ERROR
;G0 HERE ON ORIGINATE LINE TRANSITION ERROR
;GO TO NEXT TEST IF NO ERRORS
;ANSWER LIN STATUS ERROR
;CONTINUVE CHECKING
;ORIGINATE LINE STATUS ERROR
iCONTINUVE CHECKING
;ANSWER LINE TRANSITION ERROR
;CONTINUVE CHECKING
;ORIGINATE LINE TRANSITION ERROR
;CONTINUE CHECKING

n
DN
TO = 12 o 1
IOV wm BD I

b b b i o

OOOQOMOMNO‘OOCMOUOMNH

CZDHK-F MACRO V04.00

;DROP REQUEST TO SEND ON ANSWER LINE
;WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES
011216
011224
011232
011240
011246
011250

016777

042777
016777
042777
104026
104022

004462
000004
004444
000010

004366
004362
004352
004346

T2021:

MOV
BIC
MOV
BIC
CKINTT
WAITRN

LINANS,3DHMCSR
#RS, 3DHMLSR
LINORG,8DHMCSR
#SECTX, 8DHML SR

:SET LINE COUNTER TO ANSWER LINE
;CLEAR REQUEST TO SEND
;SET LINE COUNTER TO ORIGINATE LINE
;CLEAR SECONDARY TRANSMIT
;WAIT FRO TRANSITIONS TO OCCUR

;CHECK FOR CORRECT STATUS AND TRANSITIONS ON
;SELECTED ORIGINATE AND ANSWER LINES

011252

104023

CKTRAN

011254

000003

LINENA+TRMRDY

011256

000003

LINENA+TRMRDY

011260

000007

XCO+XCS+XSCRX

011262

000005

XCO+XSCRX

30 011264
31 011266
32 011270
33 011272
34 011274
35 011276
36 011300
37 011302
38 011304
39 011306

011276
011302
011306
011312
011316
104015
000207
104015
000207
104014
000207
104014
000207

720212
720213
1720214
720215
T202J
ERRORS
RTS
ERRORS
RTS
ERRORT
RTS
ERRORT
RTS

40 011310
41 011312
42 011314

SEQ 88

27-JUN-85 13:13:25 PAGE 59

T202I2:
T20213:

T20214:
T20215:

PC
PC

;CHECK TRANSITION S AND STATUS
iON SELECTED ANSWE AND
;ORIGINATE LINES
;EXPECT LINE ENABLE AND

; TERMINAL READY STATUS BITS SET
;ON ANSWER LINE
;EXPECT LINE EWABLE AND
; TERMINAL READY STATUS BITS
;SET ON ORIGINATE LINE
{EXPECT CARRIER, CLEAR TO SEND
;AND SECONDARY RECEIVE TRANSITIONS
;ON ANSWER LINE
;EXPECT CARRIER AND SECONDARY
;RECEIVE TRANSITIONS ON
;ORIGINATE LINE
;GO HERE ON ANSWER LINE STATUS ERROR
:GO HERE ON ORIGINATE LINE STATUS ERROR
:GO HERE ON ANSWER LINE TRANSITIN ERROR
;GO HERE ON ORIGINATE LINE TRANSITION ERROR
;GO TO NEXT TEST IF NO ERRORS
;ANSWER LINE STATUS ERROR
:CONTINUE CHECKING
;ORIGINATE LINE STATUS ERROR
;CONTINUE CHECKING
;ANSWE LINE TRANSITION ERROR
:CONTINUE CHECKING
;ORIGINATE LINE TRANSITION ERROR
;CONTINUVE CHECKING

T—_V

CZDHK-F MACRO V04.00
1
2
3

;SET UP TO TEST DISCONNECT SEQUENCE
;THE PROGRAM WILL REQUEST THE OPERATOR TO TYPE A CHARACTER

4
5
6
7

;JO INITIATE THE DISCONNECT SEQUENCE
sTHE OPERATOR MAY MANUALLY SWITCH THE DATA SETS FROM
;:DATA TO TALK MODE AS MANY TIMES AS DESIRED
;BEFORE THE SWITCH SEETIN IS MADE

sANY TRANSITIONS DETECTED DURING THIS TIME WILL BE

“9,
11 011316
12 011320
13 011322
14 011330
15 011336
16
17 011344
18

19 011352
20 011356
21 011362
22 011366
gz 011370

;REPORTED BY TYPEOUT
104004
016472
012767
012777
012767

000340
011766
011356

012777

000140

005067
005077
105777
100375
005777

166420
004236
004230

T202J:

166446
004250
004366

TYPE
MDISC
MOV
MOV
MOV

#340,PS
#TRNTYP, 8DHMVEC
#T202JS,RNGRET

004240

MOV

#SCNENA+INTENA,9DHMCSR

CLR
T202JS: CLR
1s:
7578
BPL
TST

004224

55
6

27 011374
28 011402

29 011406

30 011414
31 011422
32 011424
33 011426

SEQ 89

27-JUN-85 13:13:25 PAGE 60

PS
8TKDBR
8TKCSR
13
8TKDBR

;TYPE "STRIKE ANY TTY KEY
;TEST DISCONNECT"
;LOCK OUT INTERRUPTS
+SET UP TO DETECT TRANSITIONS
:SET UP DUMMY RETURN FOR RING
:FROM RING INTERRUPT
;ENABLE LINE SCANNER
: START SCANNER

;ENABLE INTERRUPTS

;DISCONNECT SEQUENCE REQUESTED
012767
005077

016777

042777
104024
104026
104022

000340
004204

004270

000002

166374
004176

004172

MOV
CLR

#340,PS
SDHMCSR

;LOCK OUT INTERRUPTS
:STOP SCANNER

BIC
WAITS
CKINTT
WAITRN

#TRMRDY, 8DHMLSR

+SET TERMINAL READY ON SELECTED LINE
;DELAY

MOV

LINORG, 8DHMCSR

+SET LINE COUNTER TO SELECTED ORIGINATE LINE

;WAIT FOR TRANSITIONS TO OCCUR

OU‘QNO—OOOQOMQNNM

-F MACRO V04.00
CZDHK

SEQ 90

27-JUN-85 13:13:25 PAGE 61

sCHECK FOR CORRECT STATUS AND TRANSITIONS ON SELECTED
;ORIGINATE AND ANSWER LINES

104023

CKTRAN

011432

000003

LINENA+TRMRDY

011434

000001

LINENA

011436

000000

011440

000000

;CHECK TRANSITIONS AND STATUS
:ON SELECTED ASNWER AND
;ORIGINATE LINES
+EXPECT LINE ENABLE AND
; TERMINAL READY STATUS BITS
;SET ON ANSWER LINE
;EXPECT LINE ENABLE STATUS
:BIT SET ON ORIGINATE LINE
;EXPECT NO TRANSITIONS ON
;ANSWER LINE
;EXPECT NO TRANSITIONS ON

17 011442
011444
011446
011450
011452
011454
011456
011460
011462
011464
011466
011470
011472

011454
011460
011464
011470
011474
104015
000207
104015
000207
104014
000207
104014
000207

T202J1
T202J2
7202J3
T1202J4
T202JN
ERRORS
RTS
ERRORS
RTS
ERRORT
RTS
ERRORT
RTS

;GO HERE IF ANSWER LINE STATUS ERROR
:GO HERE IF ORIGINATE LINE STATUS ERROR
:G0 HERE IF ANSWER LINE TRANSITION ERROR
:GO HERE IF ORIGINATE LINE TRANSITIONS ERROR
;GO TO END OF TEST IF NO ERRORS
;ANSWER LINE STATUS ERRORO
;CONTINUE CHECKING
;ORIGINATE LINE STATUS ERRROR
;CONTINVE CHECKING
;ANSWER LINE TRANSITION ERROR
;CONTINVE CHECKING
;ORIGINATE LINE TRANSITION ERROR
iCONTINVE CHECKING

011474
011476
011500
011502

104004
016443
104026
000167

s
s s s s

011430

T202J1:
T202J2:

T202J3:
T202J4:

177020

T202JUN: TYPE
MT202A
CKINTT
JMP

;ORIGINATE LINE

PC
PC

i TYPE "202C TEST COMPLETE”
S$T2028

;GET NEW LINE NUMBERS

;RESTART TEST

;DETECT AND RECORD TRANSITIONS ON SELECTED
;ORIGINATE AND ANSWER LINES

s TRANSITION DATA IS STORED IN LOCATIONS ANSFLG AND ORGFLG
sFOR ANSWER AND ORIGINATE LINES RESPECTIVELY
;FORMAT OF DATA IS (FOR BOTH LINES)

;BITO0=1,SECONDARY RECEIVE CAUSED INTERRUPT
;BIT1=1, CLEAR TO SEND CAUSED INTERRUPT
;BIT2=1, CARRIER CAUSED INTERRUPT
;BIT3=1, RING CAUSED INTERRUPT

14 011506

017704

16 011512
17 011514
18 011520

010405
042705
026705
001411
026705
001443
010577
017703
104016
000471

19 011524

20 011526
21 011532
22 011534

23 011540

24 011544

25 011546

SEQ 91

27-JUN-85 13:13:25 PAGE 62

NPOOOQOU.U‘NM

CZDHK-F MACRO V04.00

004100

TRANS:

MOV

8DHMCSR, R4

MOV

R4 ,RS

177760
004156

CMP

LINORG,RS

004152

CMP

LINANS ,RS

004052
004050

MOV
MOV
ERRORN

BIC

BEQ

#177760,RS5

:GET LINE NUMBER AND
: INTERRUPT FLAGS

;EXTRACT LINE NUMBER

:DID ORIGINATE LINE INTERRUPT

ORGTR

+IF YES, SERVICE

BEQ

ANSTR

+IF YES, SERVICE

FATEX

RS, 8DHMCSR
8DHMLSR,R3

;DID ANSWER LINE INTERRUPT

s INTERRUPT ON INCORRECT LINE

;RECORD TRANSITIONS FOR ORIGINATE LINE
29 011550
30 011554
31 011556
32 011564
33 011570
34 011572
35 011600

37 011604
38

032704
001403

052767
032704
001403
052767
032704

000010
040000
000004
020000

ORGTR:
004124
004110

001403

39 011606
40 011614

052767
032704

42 011620
43 011622
44 011630
45
46 011634
47 011636
48 011640

001403

100000

052767
032704
001044
104016
000434

BIT

BEQ

BIS
ORGTR1: BIT

BEQ

BIS
ORGTR2: BIT

BEQ
000002

010000
000001

170000

004074

004060

ORINGF ,R4

ORGTR1

#10, 0RGFLG

#COF ,R4

+IF RING CAUSED INTERRUPT,

:SET RING TRANSITION BIT

+IF _CARRIER CAUSED INTERRUPT

ORGTR2

:SET CARRIER TRANSITION BIT

#CSF ,R4

sIF CLEAR TO SEND
;CAUSED INTERRUPT

4 ,0RGFLG

ORGTR3

+SET CLEAR TO SEND

#2,0RGFLG
9SECRXF ,R4

+IF SECONDARY RECEIVE

ORGTR4

sSET SECONDARY RECEIVE

BNE

TRANEX

sEXIT TRANSITION DETECTION

FATEX

BIS
ORGTR3: BIT

BEQ
BIS

ORGTR4 : BIT

ORGTRR: ERRORN

s TRANSITION BIT

iCAUSED INTERRUPT

#1,0RGFLG
s TRANSITION BIT
ORINGF «COF +CSF +SECRXF ,R4
+IF NO INTERRUPT FLAGS SET

CI0mK-F

MACRO V04.00

27-JUN-85 13:13:25 PAGE 63

4 011642

5 011646
6 011650
7 011656

8 011662

9 011664

10 011672
i1
12 011676

Pttt Bttt el L

LTI

13
14 011700
15 0511706
16
17 011712
18 011714
19 011722
20
21 01172¢
22 011730
011732
011736
011740
011744

sRECORD TRANSITIONS FOR ANSWER LINE
032704

001403
052767

032704

001403

052767

032704

100000

000010

040000

000004

020000

ANSTR:

004030
ANSTR1:

004014

001403
052767
032704
001007
104016
005067
022626
000177
000000

BEQ

ANSTR2

BIT

ANSTR2: BIT

BEQ

000002
010000
000001
170000

004000

003764

003702

000000

ORINGF ,R4

ANSTR1
#10,ANSFLG

BIS

001403

052767
032704

BIT

BEQ
BIS

8IS
ANSTR3: BIT

#COF ,R4

#4 ,ANSFLG

&CSF R4

ANSTR3

€2 ,ANSFLG
QSECRXF R4

BEQ
BIS
ANSTR4: BIT

ANSTR4
#1 ,ANSFLG
ORINGF «COF «CSF
+ SECRXF ,R4

BNE
ANSTRR: ERRORN
FATEX:
CLR
POP2SP
JMP
FATRET: O

TRANEX

:IF RING CAUSED INTERRUPT,

;SET RING TRANSITION BIT

:IF CARRIER CAUSED INTERRUPT

:SET CARRIER TRANSITION BIT

;IF CLEAR TO SEND
;CAUSED INTERRUPT
;SET CLEAR TO SEND

; TRANSITION BIT

:IF SECONDARY RECEIVE

;CAUSED INTERRUPT
;SET SECONDARY RECEIVE
; TRANSITION BIT
:IF NO INTERRUPT FLAGS SET
;EXIT TRANSITION DETECTION

TSTNO

SFATRET

sEXIT TRANSITION DETECTION

011746
011750
011752

011756

011764

005704
100002
016716

012777

000002

003754

000140

003626

TRANEX: TST
BPL
MOV

TRANX1:

MOV

RTI

R4
.6
RNGRET,(SP)

;IF RING FLAG WAS SET
:SET U2 SPECIAL RETURN

#SCNENA+INTENA,3DHMCSR

;RESTART SCANNER

sTYPE TRANSITION DATA AND RETURN

011766
011774
012002
012004
012006
012010
012012
012014
012016
012020
012022
012024

017767
017767
104004
017114
104006
012014
000761
000002
000006
012752
0000032
012754

003620
003614

000756
000752

TRNTYP: MOV
SDHMCSR,DATAL
MOV
SDHMLSR,DATA2
TYPE
MTRNDET
OCTASC
TRNTAB
BR
TRANX1
TRNTAB: 2
6
DATAL
3
DATA2

CIOHKF MACRO v04.00

SEQ 93

27-JUN-8S 13:13:25 PAGE 64

4 012026

S 012030
6 012032
7 012034
8 012036

9 012040
10 012042
i1 012044
12 012046

13 012050
14 012052
15 012054
16 012056
l; 012060

sINPUT ORIGINATE AND ANSWER LINES FROM TELETYPE KEYBOARD

000005

GETLIN: RESET

104013
016351
000000
000017

INSTRG
MSELOR
0
17
LINORG
INSTRG
MSELANS
0

015702
104013
016375

000000
000017
015704
104004
017005
000002

000005
012767
011605
012567
012567
010516
012777
032777
001374
005067

000340

165704

000662
000636

006000
000020

003476
003470

003502

37 012136
38
39 012144
:g 012152

#340,PS
(SP),RS
(R5)+,NXTTS
(R5)+,ERR1
R5,(SP)
SCLRSCN+CLRMUX ,@DHMCSR
#BUSY, 3DHMCSR
SETUP1
ERRFLG

;LOCK OUT ALL INTERRUPTS

;CLEAR LINE SCANNER AND MULTIPLEXER
;WAIT FOR SCANNER TO CLEAR

;ENABLE SELECTED LINES

016777

003546

003454

SETUP2: MOV

012777

000003

003450

MOV

OLINENA.TRMRDY ,8DHMLSR

016777
012777

003534
000001

003440
003434

MOV
MOV

LINANS , 3DHMCSR
#LINENA, 8DHMLSR

LINORG, 3DHMCSR

;SET UP TO ENABLE ORIGINATE LINE
;ORIGINATE LINE NUMBER

;SET LINE
; TERMINAL
:SET LINE
:SET LINE

ENABLE AND
READY ON ORIGINATE LINE
COUNTER TO ANSWER LINE
ENABLE ON ANSWER LINE

;REQUEST OPERATOR TO DIAL SELECTED ANSWER TERMINAL
:SET UP TO RECEIVE INTERRUPTS

50 012202
S1 012206
S2 012212
S3
54 012220
SS 012222
56 012224
57 012230

SETUPS: RESET
MOV
MOV
MOV
MOV
MOV
MOV
SETUP1: BIT
BNE
CLR

;SET TERMINAL READY ON SELECTED ORIGINATE LINE

42
43
46 012160
47
48 012166
49 012174

;RETURN TO CALLING ROUTINE

;INITIALIZE INTERFACE

35 012130
36

:TYPE "ANSWER LINE-*
;AND GET LINE NUMBER

17
LINANS
TYPE
MCRLF
RTI

ég
21 012062
22 012064
2% 012072
24 012074
25 012100
26 012104
27 012106
28 012114
29 012122
;g 012124

;sTYPE "ORIGINATE LINE-"
;AND GET LINE NUMBER

;START LINE SCANNER

012777

011506

003420

MOV

#TRANS , aDHMVEC

012777
012777

000340
000140

003414
003410

MOV
MOV

#340 , 3DHML VL
OSCNENA+INTENA,9DHMCSR

005067
005067
012767

104004
016171
005067
005067

003500
003476
012242

165546
003456

003512

CLR
CLR
MOV

ANSFLG
ORGFLG
#SETUP4 , RNGRET

TYPE
DIALM
CLR
CLR

PS
TIMEL

:SET UP INTERRUPT VECTOR
;FOR TRANSITION DETECTION
:SET UP INTERRUPT SERVICE LEVEL
;START SCANNER, ENABLE INTERRUPTS

sCLEAR TRANSITION DETECTED FLAGS

;SET UP RETURN FROM
;DETECTION OF RING INTERRUPT
;REQUEST OPERATOR TO DIAL
;CLEAR PROCESSOR STATUS WORD
sCLEAR TIMER

MACRO V04.00

012234
012242
012246
012250
012254

012256

012262
012264
012270
012272
012274

012300
012302
012306
012314

012767
005767
001014
005767
001011

005267

001367
005367
001364
022626
000177

022626
000177
012766
000002

SEQ 94

27-JUN-85 13:13:25 PAGE 64-1

001000
003440

003452

SETUP4:

003434

003430

INC

BNE
DEC
BNE
POP2SP
JMP

003424

000442

000454
000340

MOV
TST
BNE
75T
BNE

000002

SETUPB: POP2SP
JMP
MOV
RTI

#1000, TIME2

ANSFLG
SETUPB
ORGFLG
SETUPB
TIMEL
SETUP4
TIME2
SETUP4

:SET UP FOR S MINUTE DELAY

:IF TRANSITION HAS OCCURED,

sEXIT WAIT LOOP

;ALLOW OPERATOR S MINUTES TO DIAL

SERR1
SNXTTS
#340,+2(SP)

;CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE

012316
012320
012324
012330
012334
012336
012342
012346
012352
012354
012356
012362
012364
012370
012374
012376
012400
012402
012406

012410

011605
012567
012567
012567
010516
012705
016704
016703
020504
001402
004777
005005
016704
016703
005704
001403
022626
000177
022626

000177

000436
000412
000410

000010
003340
003332

000360
003320
003306

000336
000346

CKRNG:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CMP
BEQ
JSR
CKRNG1: CLR
MOV
MoV
TST
BEQ
POP2SP
JMP
CKRNG2: POP2SP
JMP

(SP),RS
(RS)«+,NXTTS
(R5)+,ERR1
(R5)+,ERR2

R5,(SP)
#10,R5
ANSFLG,R4
LINANS ,R3
R5,R4

CKRNG1

PC,8ERR1
RS

ORGFLG,R4
LINORG,R3
R4
CKRNG2
3ERR2
ANXTTS

;EXPECT RING ONLY ON ANSWER LINE
;GET ACTUAL TRANSITION DATA
;SET UP LINE NUMBER
;:DID RING CAUSE INTERRUPT
:ON ANSWER LINE

;IF TRANSITION OCCURED
;ON ORIGINATE LINE, ERROR

B BDDDD D000
G LGN
N

012414
012420
012424
012432

012440
012446
012452
012456
012464
012470
012472
012476
012500

012502
012510
012514
012516
012522
012526
012532
012536
012542
012546
012552
012556
012562
012564
012570
012576
012602
012606
012610
012612
012616
012624
012630
012634
012640
012642
012644

PO IO MO = = o o o o o o s pa

ooouo«uau&-—oooqouauvuu

CZOHK-F MACRO V04.00

005067
005067
012777
012767

012777
005067
005067

012767
005267
001375
005367
001372
000002

SEQ 95

27-JUN-85 13:13:25 PAGE 65

003266
003264
011506
012452

000140
165324
003234
000025
003222

WAITR:

003154
003272
003144
003230

003216

CLR
CLR

MOV
MOV
MOV
CLR
WAITRR: CLR
MOV
WAITR1: INC
BNE
DEC
BNE
RTI

ANSFLG

ORGFLG

#TR
,ANS
8DHMVEC
@WAITRR,RNGRET

#SCNENA+INTENA, 8DHMCSR

PS
TIMEL
#25,TIME2
TIMEL
WAITR1
TIME2
WAITR1

:SET UP FOR RETURN

:FROM RING DETECTION

:START SCANNER

;WAIT FOR TRANSITIONS OF

;CARRIER AND CLEAR TO SEND

;CHECK FOR CORRECT STATUS AND TRANSITIONS ON

;SELECTED ORIGINATE AND ANSWER LINES

012767
005077
011605
012567
012567
012567
012567
012567
012567
012567
012567

012567

010516
016705
016777
017704
016703
020504
001402
004777
016777
017704
016705
016703
020504
001402
004777

000340
003076

165266

000230
000226
000224
000222
000200
000176
000174
000172
000200

000162
003110
003012
003076

000124
003060
002764
000120
003042
000074

003014

002766

CKTRN:

MoV

CLR
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CMP
BEQ
JSR
CKTRN1: MOV
MOV
MOV
MOV
cMP
BEQ
JSR

#340,PS
8DHMCSR

(SP),RS5
(R5)+,DATAL
(R5)+,DATA2
(RS)+,DATA3
(R5)+,DATA4
(R5)+,ERR1
(R5)+,ERR2
(R5)+,ERR3
(R5)+,ERR4
(R5)+,NXTTS

RS,(SP)
DATAL1,RS
LINANS,8DHMCSR
8DHMLSR, R4
LINANS,R3
R5,R4
CKTRN1
PC,8ERR1
LINORG,8DHMCSR
SDHMLSR, R4
DATA2,RS
LINORG,R3
R5,R4
CKTRN2
PC,3ERR2

;LOCK OUT FURTHER INTERRUPTS
;STOP LINE SCANNER

;SET LINE COUNTER TO ANSWER LINE
:GET ACTUAL ANSWER LINE STATUS

; COMPARE
+SET LINE COUNTER TO ORIGINATE LINE
iGET ACTUAL ORIGINATE LINE STATUS

; COMPARE

CZDHK-F MACRO V04.00

27-JUN-85 13:13:25 PAGE 66

2
z

S 012650
6 012654
7 012656
8 012664

9 012670

10 012674

11 012700

12 012702
13 012704
14 012710

15 012714

16 012720

17 012724

18 012726
19 012730
20 012734
21 012736
22 012742
23 012744
24 012746
25 012750
26 012752
27 012754
28 012756
29 012760
30 012762

;CHECK FOR CORRECT TRANSITIONS ON
;SELECTED ORIGINATE AND ANSWER LINES

105767
100003
042767
116704
116705

016703

020504

001402
004777
016704

016705

016703

020504

001402
004777
022626
000177
000000
000000
000000
000000
000000
000000
000000
000000
000000

000103

000010
003016

000062

003004

003022

CKTRN2: TSTB
BPL
BIC
MOVB
MOVB

000040

002756

000014
000020

DATA3,RS

MOV

LINANS,R3

BEQ
JSR
CKTRN3: MOV

CKTRN3
PC,3ERR3
ORGFLG,R4

CMP

000036
002774

DATA3.1
.+10
#10, ANSFLG
ANSFLG,R4

R5,R4

MOV

DATA4,RS

CcMP

R5.R4

MOV

;:GET TRANSITION DATA FOR

;:DID CORRECT TRANSITIONS OCCUR
;GET TRANSITION DATA FOR

LINORG,R3

CKTRN4
PC.3ERR4
ANXTTS

:DID CORRECT TRANSITIONS OCCUR

[

OOO\JO“&“NHOOO\IOM.NNW

PO 2 15 1ot o ot et o s s e

MACRO V04.00

012764
012764
012770
012776
013000
013004
013010
013012
013014
013016
013022
013024
013026
013030
013032
013034
013036
013040

SEQ 97

27-JUN-85 13:13:25 PAGE 67

sEND OF PASS
;UPDATE PASS COUNT

;TYPE END OF PASS MESSAGE

005267
012767
000005
005067
005367
001375
104004
017271
016701
001521
000005
004711
000240
000240
000240
000240
000167

002646
000001

002724
002720

EOP:

INC
MOV
RESET

002642

CLR

DEC

1s:

165020
LOGICAL:

000222

BNE
TYPE
MEPASS
MOV
BEQ
RESET

NOP
NOP
NOP
NOP
JMP

PASCNT
#1,TSTNO

;UPDATE PASS COUNT
;START AT FIRST TEST OF GROUP

;CLEAR THE WORLD

FILLA

:INIT COUNTER

FILLA

:COUNT THE CTR

iBR TIL STALL TIMES OUT
; RING BELL

42,R1
TSTENT
JSR

;NO

;ARE YOU ON ACT11?

PC,(R1)

TSTENT

:GET ADDRESS OF FIRST TEST

;EMT DISPATCH SERVICE
;ARGUMENT OF EMT IS EXTRACTED
;AND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED SUBROUTINE
013044
013046
013052
013056
013060
013064
013070
013074

011646
162716
017616
006316
042716
062716
017616
000136

013076
013102
013104
013106

105777
100001
104027
000002

000002
000000
177001
017426
000000

002514

EMTSRV:

EMTOK:

CKINT:
1s:

MOV
SUB
MoV
ASL

BIC
ADD
MOV
JMP

TST8
BPL
KBDIN
RTI

(SP),-(SP)
#2,(SP)
8(SP),(SP)
(SP)
#177001, (SP)
#EMTTAB, (SP)
8(SP),(SP)
3(SP)+

@TKCSR
1s

:GET PC OF RETURN
:=PC OF EMT
;GET EMT
sMULTIPLY EMT ARG BY 2

;CLEAR UNWANTED BITS
;POINTER TO SUBROUTINE ADDRESS
: SUBROUTINE ADDRESS

;GO TO SUBROUTINE

OOO\IO“&NN”OO.NO“&UNP

-F MACRO V04.00
CZDHK

e -

;END OF SUBTEST SERVICE
;CHECK FOR LOOP ON CURRENT TEST
;CHECK FOR ESCAPE TO NEXT TEST ON ERROR
;UPDATE ITERATION COUNT AND EXIT TO NEXT TEST IF 0

;TEST XOR FLAG (XFLAG) FOR EXISTANCE OF XOR TESTER.
013110

005767

013114 100022
013116 016746
013122
012767
013130 005767
013134 012667
013140 000404
013142 022626
013144 012667
013150 000402
013152 000167
013156 000167
013162
013162 005067
013166 052777
013174
005767
013200
001430
013202 005767
013206 001404
013210 032777
(13216 001021
013220 032777
013226 001041
013230 032777
013236 001011
013240 005367
013244 001406
013246 016716
013252 042777
013260 000002
013262 005267
013266 016705
013272 006305
013274
006305
013276
066705
013302 011567
013306 001626
013310 012516
013312 011567
013316 005067
013322 042777
013330 000002
013332
012767
013340
000742

DD PO == 12 o b 4t et s s s e
BNV
LN -

27-JUN-85 13:13:25 PAGE 68

166176

164662
013142
163724
164644

LOOP:

164654

1s:

164634
000104
000104

164610
000100
002436

2%:
3s:
4%:

002422

002424
002000

002410

040000

002400

004000

002370

002400
002370
000100

002336

002352
002346
002370
002334

002326
002310
000100

002266

000001

002304

TST

BPL
MOV
MOV
TST
MOV
BR
POP2SP
MOV
BR
JMP
JMP

CLR
BIS
TST
BEQ
5s:
TST
BEQ
BIT
BNE
LOOPS:
BIT
BNE
BIT
BNE
DEC
BEQ
LOOPER: MOV
BIC
RTI
LOOPX:
INC
TSTENT: MOV
ASL
ASL
ADD
MOV
BEQ
MOV
MoV
CLR
8IC
RTI
LOOPL:
MOV
BR

XFLAG

43
4,-(SP)
#1%,4
177060
(SP)+,4
2%

;IS THERE AN XOR TESTER OUT THERE ?

:NO
;SAVE 4
;SET UP SVC ROUTINE
;GOT SOMETHING LIKE SLAVE SYNC
;YOU BETCHUM

;RESTORE STACK
(SP)+,4 ;RESTORE 4
3
LOOPX
;GO TO NEXT TEST
TSTENT
;GO
PS
#INTENA, 3TKCSR
PASCNT
LOOPX
ERRFLG
LOOPS
#SW10, ASWR
LOOPX
#SW14, 3SWR
LOOPL
#5W11, 8SWR
LOOPX
ICOUNT
LOOPX
RETURN, (SP)
#INTENA, 8TKCSR
TSTNO
TSTNO,RS
RS
RS
TSTPNT RS
(R5),RETURN
EOP
(RS)+,(SP)
(R5),ICOUNT
ERRFLG
#INTENA, 8TKCSR
#1,ICOUNT
LOOPER

;1ST PASS
;NO ITERATIONS
:IF_ERROR OCCURED FLAG=1,
:CHECK FOR ESCAPE TO NEXT TEST
:IF SW10=1,
;ESCAPE TO NEXT TEST
;IF SW14=1,
;LOOP ON CURRENT TEST
;IF SWii=1,
:INHIBIT ITERATIONS
;UPDATE ITERATION COUNT

+IF ICOUNT=0, GO TO NEXT TEST
:SET UP FOR RETURN TO CURRENT TEST
;RETURN TO CURRENT TEST
;UPDATE TEST NUMBER
;GET TEST NUMBER
+MULTIPLY TEST NUMBER BY 4
;GET POINTER FOR TEST ENTRY
;GET STARTING ADDRESS OF NEXT TEST
:IF _ADDRESS=0, GO TO END OF PASS
;PUT STARTING ADDRSS ON STACK
;GET ITERATION COUNT FOR TEST
;CLEAR ERROR OCCURED FLAG

;GO TO TEST
+SET UP TO EXIT TEST AFTER LOOP
;GO TO LOOP SERVICE

;CHECK FOR LOOPING WITH SAME DATA
;CHECK FOR ESCAPE TO NEXT TEST ON ERROR
013342

|{S—

005767

002264

FREEZE: TST

ERRFLG

; IF ERROR FLAG=0,

CZDHK-F MACRO V04.00

58 013346

59 013350
60 013356
61 013360
62 013366
63 013370
64 013374

65 013376

66 013402
67
68
69

70 013404
71 013412

72 013420
73 013422
74
75

001413
032777
001341
032777
001403
017616
000002
062716
000002

052777
032777
001374
000207

SEQ 99

27-JUN-85 13:13:25 PAGE 68-1

002000

002250

001000

002240

000000

000002

000400
000020

FREEZX:

002200
002172

BEQ
BIT
BNE
BIT
BEQ
MOV
RTI
ADD
RTI

FREEZX
#5W10, aSWR
LOOPX
#5H09, aSWR
FREEZX
a(sP),(sP)
#2,(SP)

sROUTINE TO STEP THRU LINES

STEPER: BIS
1s:
BIT
BNE
RETURN

#STEP, 3DHMCSR
#BUSY, 3DHMCSR
1s

;D0 NOT TEST FOR ESCAPE
;IF SW10=1,
;ESCAPE TO NEXT TEST

;:IF SW09=1,

;FREEZE CURRENT DATA
:GET LOOPING ADDRESS
:LOOP
;:CONTINUE IN CURRENT TEST

VBN
POVI D WN -

CZDHK-F MACRO V04.00

SEQ 100

27-JUN-85 13:13:25 PAGE 69

;GENERAL ERROR SERVICE
sONLY PC OF FAILING TEST IS OUTPUT TO TELEPRINTER
013424

013430
013434
013440

005067
005067
005067
000451

002202

ERR:

000210
000216

CLR
CLR
CLR
BR

ERRFLG
ERRMSG
ERTAB
ERRGEN

;ALWAYS TYPE PC.2

;OF TEST THAT FAILED

:NO MESSAGE
:NO TABLE OF DATA
;OUTPUT ERROR MESSAGE

;TRANSITION DETECTION ERROR SERVICE

;FORMAT FOR ERROR TYPEOUT IS
s XXXXXX TRANSITION ERROR
;EXP
REC
LINE
;AA
8B
cC

;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE

;

013442
013446
013454
013462

005067
012767
012767

000440

002164
016132
013750

000170
000174

ERRT:

;
CLR
MOV
MOV
BR

AA=EXPECTED INTERRUPT FLAGS (CORRESPONDS TO 4 MSB OF CONTROL
REGISTER

BB=RECEIVED INTERRUPT FLAGS (AS ABOVE)

CC=LINE ON WHICH ERROR OCCURED
ERRFLG
;ALWAYS OUTPUT
ALL DATA
#MTRANE , ERRMSG
;TYPE “TRANSITION ERROR
#ERTAB1,ERTAB
;TABLE OF DATA
ERRGEN
;OUTPUT ERROR MESSAGE

;ON-LINE STATUS ERROR SERVICE

;FORMAT FOR LINE STATUS ERROR IS
:XXXX LINE ERROR

;EXP
;ARA

REC
BBB

LINE
CC

;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE
;
AAA=EXPECTED LINE STATUS AT TIME OF ERROR
:
BBB=RECEIVED LINE STATUS AT TIME OF ERROR
i

41
42
43
44
45
46

013464
013470

005067
012767

002142
016101

000146

013476
013504

012767
000427

013766

000152

ERRS:

CLR

CC=LINE ON WHICH ERROR OCCURED

ERRFLG

;ALWAYS OQUTPUT ALL DATA

MOV

#MLINEL, ERRMSG

:TYPE "LINE ERROR

MOV
BR

#ERTAB2,ERTAB
ERRGEN

;TABLE OF DATA
;OUTPUT ERROR MESSAGE

;EXP REC LINE”

SEQ 101

27-JUN-85 13:13:25 PAGE 70

VRNV
D W -

CZDHK-F MACRO V04.00

;FATAL TRANSITION ERROR

;:FORMAT FOR FATAL ERROR TYPEQUT IS
; XXXXXX FATAL ERROR

;CSTAT
LSTAT
;AAAAAA BBB

;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE
H

13 013506

14 013512

16 013520
17 013526

005067

012767

012767
000416

002120

017062

014004

000124

ERRN:

000130

CLR

MOV

MOV
BR

AAAARA=RECEVICED CONTROL 3TATUS ON LINE THAT INTERR
UPTED
BBB=RECEIVED LINE STATUS ON LINE THAT INTERRUPTED

ERRFLG

#MFATAL , ERRMSG

#ERTAB3,ERTAB
ERRGEN

;ALWAYS OUTPUT ALL DATA

;TYPE

;CSTAT

"FATAL ERROR

LSTATTM

:TABLE OF DATA
;OUTPUT ERROR MESSAGE

; "CONTROL STATUS” ERROR SERVICE
;FORMAT FOR CONTROL STATUS ERROR IS
s XXXXXX STATUS ERROR

;EXP

REC

;AAAAAA BBBBBB
;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE

;

31 013530

33 013536

34 013544
35

012767

016013

000106

012767

014016

000112

000407

ERRCS:

MOV

36
37
38
39

@MSTATE , ERRMSG

#ERTAB4 ,ERTAB

ERRGEN

:TYPE "STATUS ERROR
; "EXP REC”
;TABLE OF DATA

;OUTPUT DATA

;LINE STATUS ERROR SERVICE

;FORMAT FOR LINE STATUS ERROR IS

40
41
42
43
a4
45
46
47
48
49

50
51 013546
52 013554
53 013562

MOV

AAAAAA=EXPECTED CONTROL STATUS AT TIME OF ERROR

BBBBBB=RECEIVED(ACTUAL) CONTROL STATUS AT TIME OF ERROR

$XXXX LINE ERROR
:EXP
REC
LINE

;ARAR

DDD

SEL

i WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE

AAR=EXPECTED LINE STATUS AT TIME OF ERROR
BBB=RECEIVED LINE STATUS AT TIME OF ERROR
CC=LINE ON WHICH ERROR OCCURED
DD=THE LINE ON WHICH THE PROGRAM WAS OPERATING

012767
012767
000400

016044
014030

000070
000074

ERRLS:

MOV
MOV
BR

#MLINER, ERRMSG
#ERTABS,ERTAB
ERRGEN

VRNV DN -

-F MACRO V04.00
CZDHK

27-JUN-85 13:13:25 PAGE 71

we e

;GENERAL ERROR HANDLER
sTYPE PC+2 OF TEST THAT FAILED
s TYPE ERROR MESSAGE (IF ANY)
s TYPE DATA RELATING TO FAILURE (IF ANY)
013564
013570
013576
013604
013606
013612
013614
013620
013622

013626
013630

013632
013634
013640
013642
013644
013646
013652
013654
013656
013660

005067
012777
032777
001026
021667
001402
005067
104005
005767

001007
104006

013742
005767
001407
104004
000000
005767
001402
104006
000000
104007

164206
000100
020000

002020
002022

002052
002012

002004

000004

ERRGEN: CLR
MOV
BIT

BNE
CMP
BEQ
CLR
SAVOSP
TST
BNE
OCTASC
ERTABO
ST
BEQ
TYPE
ERRMSG: 0
o3t
TST
BEQ
OCTASC
ERTAB:
0
.28
RESOS5

PS
#INTENA, 3TKCSR
#SW13, SWR

.3
(SP),SAVPC
.+6
ERRFLG

ERRFLG
"

:IF SW13=1, DO NOT
;TYPE ERROR MESSAGE
;SAME ERROR AGAIN

:IF ERROR OCCURED FLAG=1,
; TYPE DATA ONLY
;TYPE PC+2 OF CALL TO ERROR ROUTINE

ERRMSG
2

; TYPE ERROR MESSAGE
ERTAB
.2

:TYPE DATA
;RESTORE RO-RS

;ERROR HALT SERVICE
013662
013670
013672
013674
013702
013704
013706
013714
013722

032777
001406
000000
022767
001001
104025
012767
042777
000002

013724
013732
013740

012767
012767
000711

100000

001736

000176

001724

000001
000100

001716
001674

015734
014060

177712
177716

.3:

.4:

BIT
BEQ
HALT
CcHMP
BNE
CNTLW
MOV
BIC
RTI

#SU15, 8SWR
.4
#SWREG, SWR
.4
#1 ,ERRFLG
@#INTENA, 8TKCSR

:IF SW15=0, DO NOT
;HALT ON ERROR
+HALT AND DISPLAY ADDRESS OF FAILING TEST

:SET ERROR OCCURED FLAG

;RETURN TO TEST

; TIMEOUT ERROR WAITING FOR INTERRUPT ON TEST 33
ERRQ:
MOV
#MNOINT, ERRMSG
MOV
#ERTAB6,ERTAB
s TYPE LN®,CSR,LSR+MSG
BR
ERRGEN
;OUTPUT DATA

e e e

NOVBUNHOOVRIONE
NN -

-F MACRO V04.00
CZDHK

27-JUN-85 13:13:25 PAGE 72

e i
sTABLE S OF DATA FOR ERROR TYPEOUT
;TABLE FOR TRANSITION STATUS ERROR

013742
013744
013746
013750
013752
013754

000001
000006
015664
000003
000002
015660

013756
013760

000002
015656

013766

000003

813;:2 gggggi

013770
013772
013774
013776

000003
015660
000003
015656

014004

000002

014002 015654

ERTABO:

1
6
SAVPC
ERTAB1: 3
2
SAVRS

2
SAVR4

EAVRB

ERTAB2: 3

3
SAVRS
3
SAVR4

Saves

ERTAB3: 2

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

000006
015656
000003
015654
000002
000006
015660
000006
015656
000004
000003
015660
000003
015656
000002
015654
000002
015650

6
SAVR4
3
SAVR3
ERTAB4: 2
6
SAVRS
6
SAVR4
ERTABS: 4
3
SAVRS
3
SAVR4
2
SAVR3
2
SAVR1

014052
014054
014056

000001
000006
000176

SWRTB:

000003

ERTAB6: 3

014060

014062
014064
014066
014070
014072
014074

000003
015656
000006
015652
000006
015654

;CONTAINS EXPECTED TRANSITION STATUS

;CONTAINS RECEIVED TRANSITION STATUS
:

CONTAIN

AINS NUMBER OF LINE WHERE ERROR 0

iCONTAINS EXPECTED LINE STATUS
;CONTAINS RECEIVED LINE STATUS

;CONTAINS NUMBER OF LINE WHERE ERR

W -

;CONTAINS EXPECTED CONTROL STATUS
;CONTAINS RECEIVED CONTROL STATUS

;CONTAINS EXPECTED LINE STATUS

;CONTAINS RECEIVED LINE STATUS
:CONTAINS NUMBER OF LINE WHERE ERROR OCCURED
;CONTAINS NUMBER OF LINE UNDER TEST

1
6
SWREG

3
SAVR4
6
SAVR2
6
SAVR3

;FAILING LINE ¢
;CSR OF DEVICE

;LSR OF DEVICE

S 014076
6 014102
7 014106
8 014114
9 014120
10 014124
11 014130
12 014134
13 014136
14 014142

15 014144
16 014150
17 014154
18 014156
19 014160
20 014162

24 014164

25 014170
26 014176
27 014200
28 014202
29 014210
30 014212
31 014214
32 014216
33 014220
34 014222
35 014224
36 014226
37 014230
38 014232
39 014240

40 014242
41 014250
42 014254
43 014260
44 014262
45 014264
46 014266
47
48

SEQ 104

27-JUN-85 13:13:25 PAGE 73

B WN
-

CZDHK-F MACRO v04.00

;CONVERT OCTAL TO ASCII AND
;OUTPUT ON TELETYPE
000002
000010
017311
001542
001540
000276

000322

OCTASN: MOV
ADD
MOV

MOV
MOV

OCTAS1: MOV

8(SP),RS
#2,(5P)
#10,RADIX

#MBCD+2,R4
(RS)+,WRDCNT

(RS)+,CHRCNT

MOV
8(R5)+ ,BINWRD
CONVERT

001524

000100

000112

14:

000072
000001

000066

000001

000056

000724

000015

000014
000010
000006

001356

CNTLU:

DEC
BNE
MOvB
18T
BNE
TYPE
MBCD

CLR

TMPL

&1, TMP2

BIS
OCTASC
SWRTB
TYPE
MBCD+2
INSTRG
8NEHIS

#1,SMLN

CcHPB

TMPL:
TMP2:
SMLN:

;70 TELETYPE
iRETURN TO CALLING ROUTINE

MOV

177777
TMPL

BEQ
MOV
CLR
CLR

RTI

0
0
0

;SET UP POINTER FOR CONVERTED DATA
;GET NUMBER OF WORDS TO BE CONVERTED
;GET NUMBER OF DIGITS IN WORD
:GET DATA TO BE CONVERTED
;CONVERT TO ASCII
:IF ALL DATA IS NOT CONVERTED
; CONTINUE
;PUT TERMINATOR AT END OF MESSAGE

;OUTPUT CONVERTED DATA

RTI

TYPE
$SWREQ

1s:

WRDCNT
OCTAS1
#100,(R4)
SMLN
13

;GET POINTER TO TABLE OF DATA

INBUF, #15

1
TMP1 ,8SWR
TMP2
SMLN

MACRO v04.00

s ps po o ps o pa po po g

OOO\JOU&WNV-OOOMOMDUAN»-

SOk eV

€0 105

sIMIiEGER BINARY TO ASCII CONVERSION COMMON ROUTINE
014270
014274
014300
014302
014310

014314

014316

14320

014322
014326
014330
14334

WD
DN T
OCOOVW®ICWVI
B wities

27-JUN-85 13:13:25 PAGE 74

014336
014342
01435C
014352
014360
014362
014370
014372
014400
014404
014410
014412
014414
014416
014422
014426
014430
014432
014434
014436

016700
012701
104011
062767
116721

005300

001374
017412
000060
000120

000124

BINASC: MOV
MOV
BINASA: EXTRACT
ADD
MOVB

DEC

001370

114124

005267
001374
112724
000002

BNE

BINASB: MOVB

001342

DEC
BNE
MOVB

000040

RTI

:SET UP COUNT FOR DIGITS TO BE CONVERTED
:SET UP POINTER FOR TEMPORARY STORAGE
;EXTRACT ONE DIGIT
;:CONVERT FROM BCD TO ASCII
;STORE DIGIT

:IF ALL DIGITS NOT DONE,

-(R1),(R4).

;:REVERSE ORDER OF DIGITS

BINASA

CHRCNT
BINASB
#40,(R4)-

;CONTINUE

;IF ALL CHARACTERS ARE NOT
;IN ORDER, CONTINUE
;INSERT SPACE AFTER LAST DIGIT

;RETURN TO CALLING ROUTINE

sSINGLE PRECISION UNSIGNED DIVIDE LOOP
005067
026767
103027
012767
000407
026767
103403
166767
006167
006167
005327
000000
001362
006067
005167
000002
000000
000000
000000
000000

000072
000066

000066

000021

000032

000046

000040
000026
000024

000034

000012
000004

DIVI:
DIVIU:

CLR
CMP
BHIS
MOV
BR
DIVIA:
CMP
BLO
suB
DIVIC:
ROL
ROL
DEC
DIVCNT: 0
BNE
ROR
coM
RTI
DIVIB:
HALT
DIVIDL: O
DIVIDH: 0
DIVIS:
0

DIVIDH
DIVIDH,DIVIS
DIVIiB
#17. ,DIVCNT
DIVIC
DIVIDH,DIVIS
DIVIC
DIVIS,DIVIDH
DIVIDL
DIVIDH
(PC)»
DIVIA
DIVIDH
DIVIDL

sSAVE PC OF TEST THAT FAILED AND RO-RS
014440

016667

000004

001216

SVOSP:

MOV

4(SP),SAVPC

:SAVE RO-RS
014446
014452
014456
014462
014466
014472
014476

010567
010467
010367
010267
010167
010067
000002

001206
001200
001172
001164
001156
001150

SV05:

MOV
MOV
MOV
MOV
MOV
MOV
RTI

R5,SAVRS
R4 ,SAVR4
R3,S5AVR3
R2,SAVR2
R1,5AVR1
RO,SAVRO

no
el
s
o

ODQOMAGNMOOOQOMQMN.-

-F MACRO V04.00
CIOHK

SEQ 106

27-JUN-85 13:13:25 PAGE 75

sRESTORE RO-RS
014500
014504
014510
014514
014520
014524
014530

014532
014536
14542
014546
014550
014556
014560
014566
014570
014572
014576
014602
014604
014606
014612
014614
014620
014622
014626
014630
014634
014640

016700
016701
016702
016703
016704
016705
000002

001142
001140
001136
001134
001132
001130

RS05:

MOV
MOV
MOV
MOV
MOV
MOV
RTI

SAVRO,RO
SAVR1,R1
SAVR2,R2
SAVR3,R3
SAVR4,R4
SAVRS5,RS

sTELETYPE OUTPUT ROUTINE
017605
062716
105777
100375
122765
001405
122765
001401
000402
004767
122715
001001
000002
122715
001406
122715
001403
112577
000745
142715
152715
000770

000000
000002
001054

TYPER:
TYPERA:

000012

177777

000015

177777

000044
000100

1s:
2s:

000042

TYPERL1:

000045
000776

TYPER2:

000040
000010

TYPECL:

MOV
ADD
TSTB
BPL
CMPB
BEQ
CMPB
BEQ
BR
JSR
CMPB
BNE
RTI
CMPB
BEQ
CcMPB
BEQ
MOVB
BR
BICB
BISB
BR

a(SP),RS5
#2,(5P)
aTPCSR
TYPERA
12, -1(RS)
1s
#15, -1(R5)
1s
2
PC.IVFILL
#100,(R5)
TYPER1
#42,(R5)

TYPECL
#45, (R5)
TYPECL
(R5)+,8TPDBR
TYPERA
#40, (RS)
210, (RS)
TYPER2

;GET POINTER TO MESSAGE (ON STACK)
;CORRECT STACK FOR RETURN
;WAIT FOR TELEPRINTER READY
iWAS LAST ONE A L.F. ??
:BR IF YES
iWAS LAST ONE A C.R. ?2?
:BR IF YES
;CONTINUE IF NEITHER
;GO QUT PUT FILLERS
+IF CHARACTER IS NOT TERMINATOR, TYPE IT

:CHARACTER IS TERMINATOR, EXIT
;:IF CHARACTER=42,
:TYPE LINE FEED

:IF CHARACTER=45,

; TYPE CARRIAGE RETURN
;GET CHARACTER

sTYPE IT

;CONVERT CODE OF 42 OR 45
;70 12 OR 15
;TYPE IT

;OUTPUT FILLERS AFTER <CR> OR <LF> CHAR IS OUT PUTTED.
014642
014650
014656
014662
014664
014670
014672

116767
116777

105777
100375
105367
001367
000207

001060
001053
000740

001060
000746

TYFILL: MOVB
1$:
MOvVB

2s:

001040

7578
BPL
DECB
BNE
RTS

FILL,FILLA
FILL+1,3TPDBR
8TPCSR
2%
FILLA
1s
PC

:GET FILL COUNT
;OUT PUT ONE FILLER
iWAIT FOR TTY TO FINISH OUTPUT
;BR IF TTY NOT DONE
;COUNT ONE FILLER
:BR TIL ALL DONE
;RETURN TO CALLER ABOVE

s INPUT OCTAL CHARACTER STRING
s TERMINATOR IS CARRIAGE RETURN
+IF MORE THAN SEVEN (7) CHARACTERS INCLUDING
;CARRIAGE RETURN ARE TYPED, THE IN PUT WILL
;BE RE-REQUESTED
014674
014674
014676
014702

011605
012567
012567

INSTR:

000020
000246

MOV
MOV
MoV

(SP).RS
(R5)+,MSG
(R5)+,LOLIM

;GET POINTER TO ARGUMENTS
:GET MESAGE TO BE TYPED
sGET LOWER LIMIT

MACRO V04.00

014706
014712
014716
014720
014722
014724
014730
014734
014740
014742
14746
014754
014762
014766

014772
014774

015000
015002

015006
015910
015014
015016
015022
015026
015030
015032
015034
015036
015040

012567
012567
010516
104004
000000
012704
012703

105777
100375
005067
017767
142767
116714
121427
001420
121427

001420

121427
001003
005067
000741
112477
105777
100375
005303
001340
104004
017001
000727

SEQ 107

27-JUN-85 13:13:25 PAGE 75-1

000244
000242

INSTR1:

MSG:

015162
000007
000656

165300
000646
000200
177274
000007
000015
000025

INSTRB:

177306
177300

(RS)e+ HILIM
(R5)+,STORE
R5,(SP)

;GET UPPER LIMIT
:GET DATA STORAGE LOCATION
;RESTORE STACK
: TYPE MESSAGE

MOV

#7.R3

#INBUF ,R4

:SET UP CHARACTER INPUT BUFFER
;SET UP INPUT COUNT

MOV

T1ST8

BPL INSTBB: CLR
MOV
BICB
MOVB
CMPB
BEQ
CMPB
BEQ

CcMPB

BNE
CLR
BR

177246
000602
000574

MOV
MOV
MOV
TYPE
0

1s:
MOvVB
INSTRC: TSTB
BPL
DEC
BNE
INSTER: TYPE

MQM

STKCSR

INSTRB
SINTFL
STKDBR, TMP1
#200,THP1
TMP1,(R4)
(R4),47
INSTER
(R4),415
INSTR2

(R4),425

;WAIT FOR CHARACTER

;IS CHARACTER TERMINATOR
:IF IT IS, CONVERT INPUT STRING

1$
TMP1
INSTR1

(R4).+,8TPDBR

8TPCSR
INSTRC

R3
INSTRB

;WAIT TO FINISH TYPING

;UPDATE RECEIVED COUNT
:AND CONTINUE
:TYPE "2" AND RE-REQUEST INPUT

INSTR1

:CONVERT ASCII STRING TO OCTAL
015042
015044
015046
015052
015054

015060
015062

015066

99 015070
100 015074
101 015076
102 015102
103 015104
104 015110
105 015112
106 015114
107 015116
108 015120
109
110
111
112 015122
113 015126
114 015130

104004

017005
012704
005003
122714

001431
121427
002762

121427
003357
142714
152403
121427
001404
006303
006303
006303
000760

INSTR2:

015162

MOV

000015
000060

TYPE

MCRLF

INSTRD:

000067

R3
#15,(R4)

BEQ
CMPB
BLT

CHCK
(R4),460
INSTER

BGT
BICB

INSTER
#60,(R4)

CMPB
BEG
ASL
ASL

(R4),#15
INSTR3
R3
R3

CcMPB

000060

B8ISB

000015

#INBUF ,R4

CLR
cMPB

ASL

(R4),067

(R4)+,R3

;GET POINTER TO ASCII STRING

:IS TERMINATOR FIRST
;CHARACTER IN STRING

;IS CHARACTER OCTAL DIGIT

:IF 67>=CHAR>=60

;CHARACTER IS OCTAL DIGIT

:STRIP ASCII
;GENERATE OCTAL NUMBER
:IF END OF STRING, CHECK LIMITS
sMULTIPLY DIGIT BY 10 (OCTAL

INSTRD

;GET NEXT DIGIT

s TEST NUMBER TO SEE IF IT IS WITHIN LIMITS
020367
101342

020367

000030

000020

INSTR3:

CcHMP

R3,HILIM

CHMP

R3,LOLIM

BHI

INSTER

s TEST HI LIMIT
:IF R3>HILIM, ERROR
sTEST LOW LIMIT

-F MACRO V04.00
CZ0HK

115 015134
116 015136
117 015142
118 015144
119 015150
120 015152
121 015154
122 015156
123 015160
124 015162

125
126
127
128
129 015204
130 015206
131 015210
132 015212
133 015214
134 015216
135 015220
136 015224
137 015230
138 015236
139 015240
140
141
142
143 015242
144 015246
145 015250
146 015252
147 015254
148 015256
149 015260
150 015262
151 015270
152 015272
153 015274
154 015276
155 015302
156 015304
157 015310
158 015312
159 015314
160 015320
161 015322
162
163
164
165 015326
166 015332
167 015336
168 015344
169 015352
170 015360
i1 015366

103737
010377
000002
005767
001731
000002
000000
000000
000000
000000
015204

010046
010146
010246
010346
010446
010546
016746
010667
012767
000000
000776

SEQ 108

27-JUN-85 13:13:25 PAGE 75-2

000016
177114

CHCK :

LOLIM:

HILIM:

STORE:
INBUF:
.=,+20

PFAIL:

162600
000432
015242

BLO
MCV
RTI
187
BEQ
RTI
O
O
O
O

;IF R3<LOLIM, ERROR
;STORE NUMBER
SEXIT

TMP2
INSTER

;ENTER HERE ON POMWER FAILURE
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT
BR

162566

INSTER
R3,3STORE

RO, -(SP)

R1,-(SP)
R2,-(SP)
R3,-(SP)
R4,-(SP)
RS5,-(SP)
24,-(SP)
SP,SAVSP
#RESTART ,24
.2

:SAVE RO-R5 ON PROCESSOR STACK

;SAVE STACK POINTER
;SET UP FOR POWER UP TRAP
;HALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
016706
012605
012604
012603
012602
012601
012600
012767
005726

104004
017160
005767
001002
000167
104004
017200
012746
005746
000167

016746
016746
012767
012767
012767
012767
016777

000414

015204

RESTAR:

162534

184514
164012
000340

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
POP1SP
TYPE
MPFAIL
ST
BNE
JMP
RESTA1: TYPE
MPF1
MOV

PUSH1SP

175740

162466
162464
015530
000340
000300
000302
175362

JMP

SAVSP, SP
(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO
#PFAIL 24

:RESTORE STACK POINTER
;RESTORE RO-RS

:SET UP FOR POWER FAILURE

TIPFLG
RESTAL
STARTO
#340,-(SP)
TSTENT

;THE FOLLOWING AUTO VECTORS USING THE FIRST BASE ADDRESS

XOR:

162454
162450
175372
175366
175356

1s:

MOV
MOV
MOV
MOV
MOV
MOV
MOV

20,-(SP)
22,-(SP)
#24,20
#340,22
#300,DATAL
#302 ,DATA2
DATA2,38DATAL

;SAVE 20
sSAVE 22
;I0T INTR VECTOR
;I0T INTR LVL

-F MACRO V04.00
CZDHK

172 015374
012777
173 015402
062767
174 015410
062767
175 015416
026727
176 015424
001360
177 015426
012767
178 015434
012767
179 015442
052767
180 015450 005077
181 015454
012777
182 015462
042767
183 015470 052777
184 015476 000240
185 015500
012667
186 015504
012667
187 015510
005077
188 015514 052767
189 015522
104012
190 015524
000000
191 015526
000426
192 015530
011667
193 015534
162767
194 015542 016767
195 015550
162767
196 015556 012767
197 015564 005077
198 015570 022626
199 015572 022626
200 015574
012667
201 015600 012667
202 015604 000207

203

SEQ 109

27-JUN-85 13:13:25 PAGE 75-3

000004
000004
000004
175330

175352
175342
175336
001000

000000
017542
000340
000136
000100
000340
000200

000204
000230
162326

162316
162310
000076
000340

MOV
ADD
ADD
CcHP
BNE
MOV
MOV
BIS
CLR
MoV
BIC
BIS
NOP
MOV
MOV

000130
162306
000114

162254

#I0T,8DATA2
#4 ,DATA1
#4 ,DATA2

?ATAI.OIOOO
$

€0,TSTNO
:SET UP DEFAULT
#TSTTBO, TSTPNT
#340,PS
:PREVENT INTERRUPTS
8DHMCSR
#INTENA, 3DHMCSR
#340,PS ;ALLOW INTERRUPTS
#DONE, 8DHMCSR
;SET DONE..AND INTERRUPT

:SET INTERRUPT ENABLE

(SP)+,22
(SP)+,20

162222
162214

000044
000040
000030
162212

2%:

3s:

;YOU DIDN'T INTERRUPT ?
;RESTORE 20 & 22
;STOP ALL INTERRUPT

CLR
BIS
ERROR

8DHMCSR
#340,PS

BR
MOV
SuB
MOV
suB
MOV
CLR
POP2SP
POP2SP
MOV
MOV
RTS

3
(SP),DHMVEC
#2 ,DHMVEC
DHM,VEC
DHMLVL
#2,0HMVEC
#340,PS
@DHMCSR

;EXTRACT VECTOR +4
;CREATE LVL
:SAVE
;CREATE AND SAVE VEC
;PREVENT INTERRUPTS

(SP)+,22
(SP)+,20

;RESTORE 22
;RESTORE 20

HALT

000052
000002
000040
000002
000340
000022

;:I0T TRAP

:YOU SHOULD HAVE INTERRUPTED

PO = 05 o 4t et b

b o et

OODNOMONNMOODQOU&!‘NF

CZDHK -F MACRO V04.00

015606
015610
015612
015614
015616
015620
015622
015624
015626
015630

015632
015634
015636
015640
015642
015644
015646
015650
015652

015654
015656
015660
015662
015664
015666
015670
015672
015674
015676
015700
015702
015704
015706
015710
015712
015714
015716
015720
015722
015724
015726
015730
015732
015734
015774
016013

016044

016101
016132

SEQ 110

27-JUN-85 13:13:25 PAGE 76

s;INDIRECT POINTERS
000300
000302
170500

DHMVEC
:
DHMLVL
:
DHMCSR:
DHMLSR
:
TKCSR:
TKDBR:
TPCSR:
TPDBR:
SUWR:

170502
177560
177562
177564
177566
177570
177570

300
302
170500

;MODEM
;MODEM
;MODEM
;MODEM

170502

177560
177562
177564
177566
177570
DISPLAY: 177570

CONTROL
CONTROL
CONTROL
CONTROL

INTERRUPT VECTOR
ONTERRUPT PRIORITY
CONTROL STATUS REGISTER
CONTROL STATUS REGISTER

;PROGRAM VARIABLES
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
017542
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177777
000000
000000
000002

ERRFLG:
TRACON:
PASCNT
:
TSTNO:
RETURN:
ICOUNT:
SAVRO:
SAVR1:
SAVR2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVPC:
WRDCNT
:
CHRCNT
:
"STPNT:
T3TMAX;
LINFLG:
LINE:
LINORG:
LINANS:
ANSFLG:

ORGFLG:

TIMEL:
TIME2:
TIFLG:
LINSEL
:
SELMSK:
SLMSK:

FILL:
FILLA:

000000
000000
124
114
123
114
114
124

sFILL CHAR/COUNT
;sTEMP STORAGE FOR FILL COUNT

RNGRET
:

111
116
124
111
111
122

115
040
101
116
116
101

.NLIST

MNOINT:

MSTATE: .

MLINER:
MLINELl:
MTRANE:

.
.ASCII

sTIME OUT WAITING FOR INTERRUPTS";
;LN CSR
LSR®;

;STATUS ERRORS”EXP
REC8;
;LINE ERROR#”EXP REC LINE SEL®;

;LINE ERROR%“EXP REC LINE®;

; TRANSITION ERROR$”EXP REC LINE®;

-F MACRO V04.00
CZDHK

58 016171
045
59 016227
045
60 016300
045
61 016351
045
62 016375
045
63 016414
045
64 016443
045
65 016472
045
66 016542
045
67 016575
045
68 016661
045
69 016703
045
70 016737
045
71 016771
045
72 017001
040
73 017005
045
74 017010
045
75 017043
045
76 017062
106
77 017114
045
78 017160
045
79 017200
055
80 017235
136
81 017240
136
82 017243
136
83 017246
045
84 017257
040
85 017271
045
86 017307
045
87
017411
88
29 017412
000000
90
017424
91
92 017424
000000
93
94
95
9 017426
013530
97 017430
013546
98 017432
013110
99 017434
013342
100 017436 014532
101 017440 014440
102 017442 014076
103 017444 014500
104 017446
014270
105 017450 014336
017452 013424
107 017454 014674
108 017456 013442
109 017460 013464
110 017462
013506
111 017464 012026
112 017466 012062
113 017470 012316
114 017472 012414

SEQ 111

27-JUN-85 13:13:25 PAGE 76-1

042
042
042
042
042
042
042
042
042
042
042

045
045
045
045
101
061
062
123
045
045
126

DIALM:
MT1037:
MT202T:
MSELOR:
MSELAN:
MT103A:
MT202A:
MDISC:
HM16:
MTITLE:
MVECTO:

042
042
040
042

114
124
077
100

MLINSL:
MTEST:
MQM:
MCRLF:

042

042
042
101
042
042
103
103
126
114
042
040
042
042

103

123
114
124
124
120
125
100
100
100
123
040
105

MREGAD:

MLINE:
MLINEI:
MFATAL:
MTRNDE:
MPFAIL:
MPF1:
MCONTC:
MCONTV:
MCONTL:
$SWREQ:
$NEWIS:
MEPASS:
MBCD:
.=.+100
.EVEN
TEMTAB:
.=.+10

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

;%% "DIAL ANSWERING DATA SET%"3;

;%"%”103A MODEM CONNECT-DISCONNECT TEST%"8;

;%“%“202C MODEM CONNECT-DISCONNECT TEST%"8;

;% "% “0ORIGINATE LINE-9;
;%”ANSUWER LINE-3;
;%”103A TEST COMPLETE%"8;
;%7202C TEST COMPLETE®"3;
s%“STRIKE ANY TTY KEY TO TEST DISCONNECTS;
;%“%"16 LINE SCANNER TEST%"3;

;W "% "CZDHK-F

;% "TRANSITION DETECTED®“CSTAT LSTAT®;
;% "POWER FAILURE®;
:-CURRENT TEST WILL RESTART%"3;
;1C8;

;tVa;
;tLa;

;%“SWR=

:
NEW=
@;
;%"END PASS

0
0

;EMT DISPATCH TABLE
EMTTAB: ERRCS
ERRLS
LOOP
FREEZE
TYPER
SVOSP
OCTASN
RS05
BINASC
DIVI
ERR
INSTR
ERRT
ERRS
ERRN
GETLIN
SETUPS
CKRNG
WAITR

----- MODEM CONTROL DIAGNOSTIC----- %'9;

;%“VECTOR ADDRESS-8;
;%“CONTROL REGISTER ADDRESS-8;
;%“LINE SELECT PARAMETER -8;
;%"TEST-8;
:
79;
;%"9;
;%"SINGLE LINE CABLE TEST%"8;
;%“LINE NUMBER-3;
;FATAL ERROR%"CSTAT LSTATS;

143
144
145

017546

017546
017550

017552
017552
017554

017556

017556
017560
017562
017562
017564

017566
017566
017570

000001
000001
000033

004000
002276
004000
000002

004000
002340
004000
000003
004000
002402
004000
000004
004000
002444
004000
000005
004000
002506
004000

CKTRN

WAITRR

CNTLUY
CKINT
KBDINT
ERRQ
EMTLIM: O
TSTLST: TSTTBO
157181
TSTT182
TSTTB3

;CALLBY EMT

TSTTBO:
.MACRO
.NLIST
MO=1
XM=MO
.LIST
.ENDM

MO=1
XM=MO

COMMENT
.REPT
TM

.ENDR
TM
TIMES=4000
T1
TIMES
MO=MO+1
TM
TIMES=4000
T2
TIMES
MO=MO+1
TM
TIMES=4000
T3
TIMES
MO=MO+1
TM
TIMES=4000
T4
TIMES
MO=MO+1

TM
TIMES=4000
15
TIMES

KBDIN

;CALLED BY EMT ERRINT

888

GRO:

;CALL BY EMT CNTLWU
;CALL - BY EMT CKINTT

131 017534
132 017536
133 017540
134 017542
135 017544
136
137
138
139
140
141
142 017546

012502
012452
014164
013076
002020
013724
000000
017542
017724
017766
017774
000000
000000
000000
000000
000033
000007
000001
000000
002250
000001

I
e s

115 017474
116 017476
117 017500
118 017502
119 017504
120 017506
121 017510
122 017512
123 017514
124 017516
125 017520
126 017522
127 017524
128 017526
129 017530
130 017532

SEQ 112

27-JUN-85 13:13:25 PAGE 76-2

g
E

CZOHK-F MACRO V04.00

NO-1
\M0,0

\M0,0

\MO,C

\M0,0

\MO,
0

\MO,0

CZOHK-F MACRO V04.00

017572

017572
017574

017576

017576
017609
017602
017602
017604

017606
017606
017610

017612
017612
017614
017616

017616
017620
017622

017622
017624

017626
017626
017630
017632
017632

017634

017636

017636
017640
017642
017642
017644
017646

[P—

27-JUN-85 13:13:25 PAGE 76-3

000006

MO=MO+1
TM

004000

TIMES=4000

002550

\M0,0

004000

TIMES

000007

HO=MO+1
TM

004000

TIMES=4000

002624
004000

\M0, 0

17
TIMES

000010

MO=MO+1
TM

\M0, 0

004000

TIMES=4000

000011

MO=MO+1
TM
\MO, 0
TIMES=4000

002700
004000

T10
TIMES

004000
002770
004000

000012

004000
003060
004000

000013

004000
003150
004000

000014

004000
003240
004000

000015
004000
003330
004000

000016
004000
003416

004000

000017
004000
003504
004000

000020

004000
003572
004000

000021

;

Ti1
TIMES

MO=MO+1
TM

TIMES=4000

\M0, 0

T12
TIMES

MO=MO+1
TM

TIMES=4000

\MO, 0

T13
TIMES

MO=MO+1
TM

TIMES=4000

\MO, 0

114
TIMES

MO=MO+1
TM

TIMES=4000

\MO, 0

T15
TIMES

MO=MO+1
TM

TIMES=4000

\M0,0

116

TIMES

MC=MO+ 1
TM

TIMES=4000

\MO, 0

T17
TIMES

MO=MO. !
TM

TIMES=4000

\MO, 0

120
TIMES

MO=MO+1
TM

\M0,0

CZDHK-F MACRO V04.00

017646
017650

017652
017652
017654

017656

017656
017660

017662
017662
017664
017666

017666
017670

017672

017672
017674

017676

017676
017700
017702

017702
017704

017706

017706
017710

004000
003660
004000
000022

004000
000400
003754
000400
000023
004000
000400
004070
000400
000024

004000
000400
004260
000400
000025

004000
000400
000200
004432
000200
000026
004000
000400
000200
004574
000200
000027

004000
000400
000200
005034
000200
000030
004000
000400
000200
005270
000200
000031
004000
000400
000200
005524
000200
000032

SEQ 114

27-JUN-85 13:13:25 PAGE 76-4
TIMES=4000
T21
TIMES
MO=MO+1
TM
TIMES=4000
TIMES=400
722
TIMES
MO=MO+1
TM
TIMES=4000
TIMES=400
T23
TIMES
MO=MO+1
TM
TIMES=4000
TIMES=400
T24
TIMES
MO=MO+1
TM
TIMES=4000
TIMES=400

\M0,0

\MO0,
0

TIMES=200
125
TIMES
MO=MO+1
TM
\M0,0

TIMES=4000

TIMES=400
TIMES=200
126
TIMES
MO=MO+1
TM
\MO,0
TIMES=4000
TIMES=400
TIMES=200
127
TIMES
MO=MO+1
TM
\MO,0
TIMES=4000

TIMES=400

TIMES=200
T30
TIMES
MO=MO+1
TM
\MO0,0
TIMES=4000
TIMES=400
TIMES=200
731
TIMES
MO=MO+1

CZDHK-F MACRO V04.00
017712

TM
\M0,0
TIMES=4000
TIMES=400
TIMES=200
132
TIMES
MO=MO+1
TM
\M0,0
TIMES=4000
TIMES=400
TIMES=200
733
TIMES
go-fl001

017712
017714

017716

017716
017720
146 017722
147 017724
148 017726
149

150
151
152
153
154
155 017730
156
157
158

017730

017730
017732
017734

017734
017736
017740

017740
017742

017744

017744
017746

SEQ 115

27-JUN-85 13:13:25 PAGE 76-5

TSTTB1:

1100

.MACRO
NLIST
Mi=101
XM=M1

COMMENT

LIST
.ENDM

000101
000101
000007

Mi=101
XM=M1

.REPT

.ENDR

004000
000400
000200
006512
000200
000102

004000
000400
000200
006672
000200
000103
004000
000400
000200
007046

000104
004000
000400
007222
000200
000105

COMMENT

N1-101
TM

\M1,1

TM
\M1,1
TIMES=4000
TIMES=400
TIMES=200
T101
TIMES
Mi=M1.1
TM
\M1,1
TIMES=4000
TIMES=400
TIMES=200
T102
TIMES
Mi=M1.1

TM
\ML,1
TIMES=4000
TIMES=400
TIMES=200
7103
TIMES
Mi=M1.1
TM
\M1,1
TIMES=4000
TIMES=400
TIMES=200
7104
TIMES
Mi=Mi.1

CZDHK-F MACRO V04.00
017750

017750
017752

017754

017754
017756

017760

017760
017762

159 017764
160 017766
161 017770
162 017772
163 017774
164 017776

165

004000
000400

000200
007376
000200
000106
004000
000400
000200
007554
000200
000107

004000
000200
007732
000200
000110
000000
010110
000001
000000
010464
000001
000001

27-JUN-85 13:13:25 PAGE 76-6
TM
w1,
1
TIMES=4000
TIMES=400
TIMES=200
7105
TIMES
Mi=M1.1
TM
\M1,1
TIMES=4000
TIMES=400
TIMES=200
T106
TIMES
M1=M1.1
TM
\M1,1
TIMES=4000
TIMES=400

TIMES=200
T107
TIMES
Mi=M1.1
0
TSTTB2: 1200
TSTTB3:

.END

0
1300

SEQ 116

CZOHK-F MACRO VO04.00

SYMBOL TABLE

AND
R TIII
ANSFLG
015706
ANSTR
011642

ANSTRR
ANSTR1
ANSTR2
ANSTR3
ANSTR4
ASCII =
BINASA
BINASB

BINASC
BINWRD=
BUSY
=
CHANGE=

CHCK

011730
011656
011672
011706
011722
ssssss
014300
014320

014270
014432
000020
sss8ss

015144

CHECK = ssssss
CHRCNT
015670
CKINT
013076
CKINTT= 104026
CKRING= 104021
CKRNG
012316
CKRNG1 012362
CKRNG2 012406
CKTRAN= 104023
CKTRN
012502
CKTRNL 012616

CKTRN2 012650
CKTRN3 012710
CKTRN4A 012734
CLRMUX= 002000
CLRSCN= 004000
CNTLU
014164
CNTLUU= 104025
co
= 000100
COF
= 040000
CONTRO® sassss
CONVER= 104010
CORRER= #sasss
cs
= 000040
CSF
= 020000
CSTR1
002276
CSTR2
002340
CSTRS
002402
CSTR4
002444
CSTRS
002506
DATA
= sasass
DATAL
012752
DATA2
012754

DATAS
DATA4

DELAY =
DNMCSR
OHMLSR
DMMLVL
DHMVEC

DIALM

012756
012760

saessne
015612
015614
015610

015606

016171

SEQ

27-JUN-85 13:13:25 PAGE 76-7
DIGIT = 014434
DISPLA 015630
DISPRE 000174
DIVCNT
014412
DIVI
014336
DIVIA
014362
DIVIB
014430
DIVIC
014400
DIVIDH 014434
DIVIDL 014432
DIVIS
014436

DIVIVU
DMYRTI
DONE
=
EMTDEF=

EMTLIM

014342
002242
000200
ssssss

017510

EMTOK
013056
EMTSRY 013044
EMTTAB 017426
ENTRY = ssssss
EOP
012764
ERR
013424
ERRCS
013530
ERRFLG 015632
ERRGEN 013564
ERRINT= 104030
ERRLS
013546

ERRMSG
ERRN
ERROR =
ERRORC=
ERRORL=
ERRORN=

013644
013506
104012
104000
104001
104016

ERRORS= 104015
ERRORT= 104014
ERRQ
013724
ERRS
013464
ERRT
013442
ERR1
012742
ERR2
012744
ERR3
012746
ERR4
012750
ERTAB
013656
ERTABO 013742
ERTABL 013750
ERTAB2 013766
ERTABS 014004
ERTAB4A 014016
ERTABS 014030

ERTAB6
EXTRAC=
FAILIN®
FAKE =
FATAL =
FATEX

FATRET

FILL

014060
104011

sasasa
asasssa
assesas
011732

011744

015726

FILLA
015730
FLAG
= ssssss
FOR
= ssssss
FREEZE
013342
FREEZX
013376
GETLIN 012026
GETLNS= 104017
GRO
017532
HILIM
015156
ICOUNT 015644
INBUF
015162

INIT1T
INPUT =
INSTBB
INSTER

INT7B
003326
ITERAT= s2ss22
KBDIN = 104027

KBDINT
KBDIN1
KBDIN2
KBDIN3
KRET
LINANS
LINE
LINENA=

002254
sassss
014742
015034

LINFLG
LINORG
LINSEL
LINT1

INSTRB 014734
INSTRC 015022
INSTRD 015062
INSTRG= 104013
INSTRL 014720
INSTR2 015042
INSTR3 015122
INTENA= 000100
INTERR= ssssss
INT1
002550
INTIA
002616

LINT1B
LINT2
LINT2A
LINT2B
LOGICA
LOLIM
LOOP
LOOPER
LOOPL
LOOPS
LOOPX

INSTR

INT1B
INT10
INT10A
INT10B
INT11
INT11A
INT11B
INT12
INT12A
INT128
INT13
INTI3A
INT138
INT2
INT2A
INT2B
INT3
INT3A
INT3B
INTA
INT4A
INT4B

014674

002622
003330
003412
003414
003416
003500
003502
003504 °
003566
003570
003572
003654
003656
002624
002672
002676
002700
002764
002766
002770
003052
003056

INTS
INTSA

003060
003142

INT?

003240

INTSB
INTE
INT6A
INT6B

INT7A

003146
003150
003232
003236
003322

LINT1A

002020
002102
002134
002176
002244
015704
015700
000001

015676
015702
015720
003660

003706

003734
003754
004014
004042
013026
015154
013110
013246
013332
013220
013262

LVL
= 000004
MAINT = 001000
MBCD
017307
MCONTC 017235
MCONTL 017243
MCONTV 017240
MCRLF
017005
MDISC
016472
MEMT1
004070
MEMTIA 004116
MEMT1B 004144
MEMTIC 004166
MEMTID 004174
MEMTLE 004226
MEMTAF 004250
MEMT2
004260
MEMT2A 004302
MEMT28 004362
MEMT2C 004404
MEMT2D 004416
MEMT3
004432
MEMT3A 004454

MEMT3B
MEMT3C

MEMT3D
MEMT3E
MEPASS
MFATAL

MLINE

MLINEI

004466
004524
004546
004560
017271
017062

017010

017043

MLINER
MLINE1
MLINSL

016044
016101
016737

MSTATE
MTEST
MTITLE
MTRANE

016013
016771
016575
016132

MNOINT
MPFAIL
MPF1
MQM
MREGAD
MSELAN
MSELOR
MSG

MTRNDE

MT103A
MT103T
MT202A
MT202T
MUX1
MUX1A
MUX1B
MUX1C
MUX1D
MUX1E
MUX1F

MUX11
MUX11A
MUX11B
MUX11C
MUX11D
MUX11E

MUX11F
MUX12

015734
017160
017200
017001
016703
016375
016351
014722

017114

016414
016227
016443
016300

004574
004622
004670
004726
004744
004762
005014
006512
006530
006560
006606
006624
006636

006670
006672

MUX12A
MUX128
MUX12C
MUX120
MUX12E
MUX12F
MUX13
MUX13A
MUX138
MUX13C
MUX13D
MUX13E
MUX13F
MUX14
MUX14A
MUX148
MUX14C
MUX14D
MUX14E
MUX14F

006710
006740
006766
007000
007012
007044
007046
007064
007114
007142
007154
007166
007220
007222
007240
007270
007316
007330
007342
007374

MUX1SA

007414

MUX1S

007376

117

e UMK - ¥

SYMBOL

TIALRU

TABLE

MUX158

007442
037470
MUX1S0
007502
“UX1SE
007516
MUX1SF ,007552
MUX16
007554
MUX16A
007572
MUX168
007620
MUx16C
007646
MUX160
007660
MUX16E
007674
MUX16F
007730

MUx1SC

MUXL7
MUX1TA
MUx178
MUX17C
MUX17D
MUX1TE
MUXLTF
MUX2
MUX2A
MUX28
MUx2C
MUX2D
MUX2E
MUX2F
MUX3
MUX3A
MUX3B
MUX3C

MUX3D
MUX3E
MUX3IF

MUX4
MUX4A
MUX48
MU%4C
MUX4D
MUX4E
MUX4F
MUXS
MUX8A
MUX88
MUx8cC
MUXBD
MUXBE

MVECTO
MO

007732
007750
007776
010024
010036
010052
010106
005034
005062
005130
005166
0C5200
005216
005250
005270
005316
005364
005422

005434
005452
005504
005524
005552
005620
005656
005670
005706
005740
005760
005776
006030
006036
005072
006124
016661
000034
000110
016542
000300
shesne

012762
000034
000110
000202
000301

We. W

€/ -JUN-85

OCTAL =

13:13:25 PAGE

sessee

OCTASC= 104006
OCTASN 014076
OCTASH
014124

ssssse

sssess

ONLY
=
ORGFLG
ORGTR
ORGTRR
ORGTRL
ORGTR2
ORGTR3
ORGTR4
ouT
=
OUTPUT
=

ses0ss

PASCNT
PFAIL
POINT =
POPRO =
POP1SP
POP2SP
»
PS
=
PSK
=
PUSHRO=

PUSH15=

PUSH25
=

015710
011550
011636
011564
011600
011614
011630
ssssss

sss0ss

015636
015204
sssdss

012600
005726
022626
177776
177776
010046
005746
024646
014436
001606
015242

RADIX =
REGST1
RESTAR
RESTA1
015310
RESTOR= shshss
RESOS = 104007
RETURN 015642
RING
= 000200
RINGF = 100000
RNGRET
015732
ROUTIN= shshas
RS
. 000004
RS05
014500
SAVE
= sakbse
SAVPC
015664
015646
SAVRO
SAVR1
015650
SAVR2
015652
SAVR3
015654
SAVR4
015656
SAVRS
015660
SAVSP
015662
SAVOSP= 104005
SCNENA= 000040
SCNT1
006144
SCNT1A
006204
SCNT18
006260
006404
SCNT1IC
SCNT1D
006424
SCOPE = 104002

76-8

SCOPEF
= 104003
SECRX = 000020
SECRXF
= 010000
SECTX = 000010
SELMSK
015722
SERVIC= sssess
SET
= sessss
SETUP = 104020
SETUPB
012300
SETUPS
012062
SETUP1
012114
012130
SETUP2
SETUPS
012242
SINGLE= 000001
SINTFL
002246
SLMSK
015724
SMLN
014266
ST
= 000200
STACK
001100
START
001100
STARTN
001634
STARTO
001322
START1
001364
STATUS= Ty
= 000400
STEP
STEPER
013404
STORE
015160
STRING= sbssss
STRLIN
006454
STRLNA
006474
STRTOA
001726
Y
STYLE = TTYY
ST103A
010110
ST1038
010152
010464
ST202A
572028
010526
SUSKR
001162
SVo05
014446
SVospP
014440
SWR
015626
SWREG
000176
014052
SWRTB
SW06
000100
SWO038
000400
SWo9
001000
SW10
002000
SWil
004000
SWiz2
010000
SW13
020000
SWis
040000
SW15
100000
T
000014
TELETY= Y ryrY
TEMTAB
017412
TEST
= shdbes
TESTS = ssbbss
TIFLG
015716

TIME
=
TIMES =
TIMEL
TIME2
TIPFLG

TKCSR
TKDBR
TMP1
TMP2
T0
=
TPCSR
TPDBR
TRACON
TRANEX
TRANS
TRANSI=
TRANX1
TRMRDY
=
TRNTAB
TRNTYP

TSTENT
TSTGO
TSTLST
TSTMAX
TSTNO
TSTPNT
TSTTBO
TSTTB1
7571182
TSTTB3
TYFILL
TYPE
TYPECL
TYPER
TYPERA
TYPER1
TYPER2
T0
T1
T10
T100
T101
T102
7103
T103A
T103A1
71038
710381
T10382
T103C
710301

710302
710303
710304
T103€
T103EN
T103ES

ssssas

000200
015712
015714
002016
015616
015620
014262
014264
shskine

015622
015624
015634
011746
011506
shhkke

011756
000002
012014
011766
013266
001746
017512
015674
015640
015672
017542
017724
017766
017774
014642
104004
014630
014532
014542
014606
014622
002250
002276
002700
006454
006512
006672
007046
010154
010162
010166
010176
010202
010206
010252
010256
010262
010266
010272
010446
010332

T103E1
T103E2
T103E3
T103E4
T104
T105
T106
T107
T11
T12
T13
T14
T15
T16
T17
T2
T20

T200
T201
T202A
T202A1
T2028
720281
T202B2
T202C
T2020
T202D1
T20202
720203
1720204
T202E
T202E1
T202E2
T202€E3
T202E4
T202F
T202F2
T202F3
T202F4
T202F5
T2026G
T202G1
T202G2
T202G3
7202G4
T202H
T202H2
T202H3
T202H4
T202H5
T2021
T20212
T20213

720214

T20215
T202J
T202JUN

010426
010432
010436
010442
007222

007376
007554
007732
002770
003060
003150
003240
003330
003416
003504
002340
003572
010110
010446
010530
010536
010542
010552
010556
010562
010576
010642
010646
010652
010656
010662
010726
010732
010736
010742
010746
011026
011032
011036
011042
011046
011112
011116
011122
011126
011132
011176
011202
011206
011212
011216
011276
011302
011306
011312
011316
011474

4409

TABLE

7202JS
12021

011356
011454

T202J2

T202J3

1202)4
T21

722

123

724

125

PSSy

SYMBOL

Www
o
vw

126
127

011460

011464

130

011470
003660

7300
731

003754

732

004070

733

004260

004432

ABS.

020000
000000
ERRORS DETECTED:

WVIR

AVAYE0

TTRUS

004574
005034
-J2402

005270

010464
005524

005760

006144

002444
002506

000
oc1

VIRTUAL MEMORY USED:
19456 WORDS
( 76 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
71 PAGES
CZDHKF ,BIN,CZDMKF , SEG=DHMACA .MAC ,CZDHKF P11

T6
17

002550

VECSTA
VECSTR
VECST1
WAITR
WAITRN=
WAITRR
WAITR1

002624
I I YT T

001434
001414
001540
012414
104022
012452
012464

WAITS = 104024
WRDCNT
015666
X

XCO
XCS
XFLAG

000000

= 000004
= 000002

XM
=
XN
=
XOR
XORSVC

001312
000101
000300

015326
001314

XSCRX = 000001

X1A
X18
Y
=
SNEWIS
$SWREQ
1
¥ 4

.3
.4

001652
001716
000000
017257
017246
013646
013660

013662
013706