Digital PDFs

AH-8529E-MC

November 1980

122 pages

Original

57MB

view download

OCR Version

76MB

view download

Document:	CZDLDE0 KD11-Z,DL11-W DL11-W-1144 MFM SLU NOV 1980 bw
Order Number:	AH-8529E-MC
Revision:	000
Pages:	122
Original Filename:	CZDLDE0__KD11-Z,DL11-W__DL11-W-1144_MFM_SLU__AH-8529E-MC__NOV_1980_gray.pdf

OCR Text

DL11-W/1144

MFM

CZDLDEO

SLU

C.
-M
9E
S2
-B
AH
l
iz
HE
FIC

HNNA,
BT
]|
o
0
,
75-8
TO
V
GH
PYRIi
cOMADE
)
IN USA

MAIN.

MACY11 30A(1052)

CZDLDE P11

10-JUN-B0
10-JUN-80 15:20
.REM

15:21

PAGE 2

SEQ 0001

]

IDENTIFICATION
PRODUCT CIDE:

AC=-8528E-MC

PRODUCT NAME:

CZDLDEO DL11-w/1144 MFM SLU

PRODUCT DATE:

JUNE

MAINTAINER:

DIAGNOSTIC ENGINEERING

1980

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

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF

SOF TWARE ON EQUIPMENT THAT [S NOT SUPPLIED BY DIGITAL OR ITS

AFFILIATED COMPANEIS.

(C)

1975, 1980 BY DIGITAL EQUIPMENT CORPORATION

THE FOLLOWNG ARE

DIGITAL
DEC

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

JMAIN,

MACY1T 30A(1052)

CZDLDE .P11

10-JUN-BO

10-JUN-80 15:20

HISTORY

15:21

PAGE
3

SECTICON

CZDLDDO WAS RELEASED OCT 79
THE FOLLOWING CHANGES WERE MADE. ALL CHANGES ARE INDICATED
BY ;*+ [N THE COMMENT FIELD:

1. USE THE MFPT INSTRUCTION,AND IF THE CPU IS A 11/44:
A. ?gSQgr PERFORM READER ENABLE AND RECEIVER ACTIVE
8.

IF ERROR FLAGS TESTS AND BREAK TESTS ARE
ENABLED ,PERFORM THESE TESTS ONLY FOR THE SLU

AT 176500.PERFORM THESE TESTS FOR THE CONSOLE SLU

IF BITO3 OF SWR IS ADDITIONALLY SET.
C. WHILE IN MAINTENANCE MODE DO NOT WRITE AND READ
A “P OR AN ASCII 220. THIS WILL FORCE THE CONSOLE
INTO *CONSOLE MODE'.
D. IN THE CLOCK REPEATABILITY TEST, ALLOW FOR A
TOLERANCE OF 2 BETWEEN CLOCK COUNTS. THIS dS TO
ALLOW ENOUGH TOLERANCE WHEN MOS MEMORY 1S USED
AND REFRESH CYCLES ARE OCCURING.

2. BECAUSE 11/44 SLU INTERRUPT REQUESTS ARE DEPENDANT UN A MFM (L 0CK
ENOUGH TIME MUST BE GIVEN FOR THEM TO OCCUR. THEREFORE, ALL TES TS
ASSOCIATED WITH XMIT & RECEIVE INTERRUPTS SHOULD HAVE
A MINIMUM OF & NOP'S ACTING AS WALT FOR INTERRUPT.

3. IT WAS FOUND THAT AN ATTACHED TUS8 WOULD BE ACTIVATED
BY THE DIAGNOSTIC,AND,AS A RESULT,CHARACTERS WOULD BE
SENT TO THE RECEIVER BUFFER.

THIS WOULD CAUSE SOME TESTS TO FAIL. THEREFORE TO INMIBIT
ANY COMMUNICATION TO THE TUS8 FROM THE DIAGNOSTIC:

A.g:?fl&gl??égTENANCE MODE IN ALL TESTS THAT WRITE TO

B.IN ALL TESTS THAT WITE TO XMITTER AND BEFORE LEAVING
TEST: DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS

I?:}SRIGHT BE IN THE PROCESS OF BEING XMITTED TO

C.DISABLE MAINTENANCE MODE FOR PURPOSE OF ERROP PRINTING
ONLY TO THE SLU WHICH THE TERMINAL IS ATTACHED.

4. IT WAS FOUND THAT UPON POWERUP AND WITH THE TU58 ATTACHED,

CHARACTERS WOULD BE SENT TO THE RECEIVER FROM THE TUS8.

SOME RECEIVER TESTS WOULD FAIL DUE TO THIS. THEREFORE,
ON ALL TESTS THAT PERFORM RECEIVER TESTS AND FOLLOWING
MAINTENANCE MODE BEING ENABLED,DELAY ENOUGH TIME TO ALLOW
TO ALLOW ANY CHARACTERS THAT MIGHT BE IN THE PROCESS OFf
BEING RECEIVED TO FINISH.

SEQ 0002

LMAIN,

MACY1T 30A(1052)

(ZDLDE.P11

10-JUN-80
10-JUN-80 15:20

15:21

PAGE &

5. ADD SOF TWARE THAT WILL IMPLEMENT AUTO INITIATION OF
11/44 T/A CONSOLE TEST VIA WRAP CABLE FROM TU58 TO CONSOLE
PORTS. IT IS SELECTED BY SWR BITO2 AND IS PERFORMED
ONLY AFTER ALL SLUS ARE TESTED.

CIDLDED -

EXTENDS DIAGNOS Tl C SOFTWARE VECTOR ADDRESSING

10 7 76 (OCTAL).
CAPABILITY
L

SEQ 0003

LJMAIN,

MACY1T 30A(1052)

(ZDLDE.P11

10-JUN-80

15:21

10-JUN-80 15:20

1.0

GENERAL

1.1

ABSTRACY

SEQ 0004

INFORMATION

THIS DIAGNOSTIC
THE

PAGE S

IS A LOGIC

FOLLOWING MODULES:

TEST

TO VERIFY

DL11-wW SERIAL LINE/REAL

117644

TIME

THE OPERATICN OF

CLOCK

MULTIFUNCTION MODULE

THE

INTERFACE

THE PROGRAM WILL RUN WITHOUT ANY SPECIAL TEST FIXTURES BY DEFAULT.
HOWEVER, THE FOLLOWING OPTIONAL TESTING IS PROVIDED:
1.

TEST TO VERIFY XMIT AND RECEIVE OF THE UARTS WITH
A WRAP CABLE. THE UART UNDER TEST IS LOOPED BACK ON

ITSELF. THIS IS SELECTED VIA OPERATIONAL SWITCH SETTING
BIT 7, AND IS APPLICABLE TO THE DL11w AND 11/44 MFM,

2. AUTOMATIC INITIATION OF THE T/A CONSOLE TEST OF THE 11/44
MFM.

THE TU58 PORTS ARE LOCPED TO THE CONSOLE PORTS

THIS 1S SELECTED VIA OPERATIONAL SWITCH SETTING BIT 2

AND IS APPLICABLE TO 11/44 MFM ONLY.
(SEE CKKFBAO FOR T/A CONSOLE TEST EXPLANATION)

THIS DIAGNOSTIC OPERATES ON THE CONSOLE
SERIAL LINE AND CLOCK
AS WELL AS UP TO FIFTEEN(15) ADDITIONAL IDENTICALLY CONFIGURED
SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES ARE:
A.

CONSOLE = 177560
177546

INTERFACES

SERIAL LINE
(LOCK

B. OTHER SERIAL LINE - 776500

FIRST SERIAL LINE ADDRESS
OF 15 CONSECUTIVE SERIAL
LINE ADDRESSES

THE PROGRAM [S DESIGNED TO RUN ON ANY PDP-11 WITH 8K OF MEMORY
. IT CAN BE RUN UNDER XXDP,APT, AND ACT MONITORS,
AND ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER,
SOF TWARE SWITCH REGISTER = LOCATION 176
POWER FAILURE

NCTE:

IS SUPPORTED FOR SYSTEMS WiTH CORE MEMORY.

THIS DIAGNOSTIC WITH THE SWR = 000020
(CLOCK TESTS ONLY) SHOULD BE USED ON SWITCHLESS CPU'S
TO TEST KW=11L LINE

CLOCK MODULES.

LMAIN.

MACY11 30A(105 2)

CZDLDE.P1

10-JUN-BO

10-JUN-80 15:20

15:21

1.2

SYSTEM REQUIREMENTS

1.2.1

EQUIPMENT

STANDARD 11

PAGE 6

SEQ 0005

FAMILY(COMPUTER WiTH A CONSOLE OUTPUT DEVICE

AND 8K OF MEMORY.

:
OPTIONAL
1.LO0P CABLE FOR UART LOOP BACK ON ITSELF

2.WRAP CABLE FOR 11/44 MFM T/E TESTING
(SEE DWG. #7016942 WRAP AROUND CABLE
AND SECTION 5.0 OF THIS DOCUMENT)

1.2.2

STORAGE

THE PROGRAM USES 5K WORDS OF

MEMCRY

LMAIN,

MACY11 30A(1052)

CZDLDE.P1

10=JUN-B0
10-JUN-80 15:20

1.3

15:21

PAGE

SEQ 0006

ASSUMPTIONS

THE UNIT UNDER TEST

ASSUME THE REAL TIME

(UUT)

IS THE CONSOLE

CLOCK (RTC)

UNLESS THE TESTS ARE DISABLED BY BIT6 OF

THE PROGRAM WILL

IS ENABLED AND WILL

THE SWR.

TEST

THE UUT IS NOT THE CONSOLE, THE RTC IS NOT TESTED FOR THAT DEVICE.

FOR THE DL11-W:

TYE PROGRAM WILL ASSUME

THE ERROR FLAG BITS AND THE BREAK FUNCTION

OF THE DL11-W ARE DISABLED AND WILL NOT TEST THESE FUNCTIONS
UNLESS ENABLED BY BIT10 (FOR ERROR FLAGS) AND BIT8 (FOR BREAK)
OF THE SWR. THE DEFAULT CHARACTER SIZE IS 8 BITS (SEE PARA 2.3.2).
FOR THE

11/44:

THE PROGRAM ASSUMES THAT THE ERROR FLAG BITS AND THE
BREAK FUNCTION ARE DISABLED, AND WILL NOT TEST THESE FUNCTIONS
HOWEVER, IF BIT 10 (FOR ERROR FLAGS) AND BIT 08 (FOR BREAK)
OF SWR ARE SET, THEN ERROR FLAGS AND BREAK TESTS ARE PERFORMLD
FOR THE TUS8 SLU ONLY. IF BITO3 OF SWR IS ALSO
SET THEN THESE TESTS WILL BE ENABLED FOR THE CONSOLE.
READER ENABLE AND RECEIVER ACTIVE TESTS
:REC??é gERFORHED SINCE THE 11/44 MFM DOES NOT IMPLEMENT
UN

THESE

NS.

2.0

OPERATING INSTRUCTIONS

LOADING PROCEDURE

USE STANDARD PROCEDURE FOR PDP=-11 ABSOLUTE BINARY FORMATTED TAPES.
&8

STARTING PROCEDURE
LOAD THE SWITCH REGISTER WITH SETTING

NOTE:

IF USING A CPU WITHOUT HARDWARE SWITCH REGISTER

SOF TWARE SWITCH REGISTER LOCATION = 176.

(FOR A 11/44 (PU USE MFM CONSOLE FCR DEPOSITING

SWITCH REGISTER. TYPE “P TO ENTER CONSOLE)

A. START AT 200.

AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS IDENTIFICATION
AND REPORT THE NUMBER OF DEVICES UNDER TEST (NUMBER IS OCTAL).

;iggRP?ég¥ IS PRINTED AFTER A FULL PASS HAS BEEN MADE ON ALL DEVICES
N

START AT

204.

teeeNOTEeeee

THE "ECHO'' TEST WILL BE EXECUTED. AN """ [S PRINTED AT THE

— e

MACY1T 30A(1052)

1 0-JUN-80

10-JUN-80 15:20

15:21

BEGINNING OF

PAGE 8

THE TEST.

SEQ 0007
THE ECHO TEST READS A CHARACTER FROM

THE TERMINAL ,WRITES THAT CHARACTER TO THE TERMINAL AND
REPORTS ANY ERROR FLAGS SET IN THE RECEIVER BUFFER.

A CONTROL=C HALTS THE TEST AND PRINTS "'STOP'" AT THE TERMINAL
CONTINUING RESTARTS THE ECHO TEST.

. START AT 210.

teeeNOTEeene

THE TERMINAL OUTPUT TEST WILL BE EXECUTED. DEPRESSING ANY (HARACTER
AT THE TERMINAL, HALTS THE TEST. CONTINUING RESTARTS THE TEST.
THE TEST OUTPUTS 32 CHARACTERS ON A LINE AND REPEATS THE
PATTERN EVERY THREE LINES. THE PATTERN IS AS FOLLOWS
(OCTAL CODE 049 ==> 377):

TURSXR (Vv

(OCTAL

=, /0123456789 ;<=>?

SABCDEFGHIJKLMNOPQRSTUVWXYZ[\]*_
'ABCDEFGHIJKLMNOPQRSTUVWXYZ
THIS BOTTOM LINE COULD BE
DOES NOT HAVE LOWER CASE:

THE FOLLOWING

ABCDEFGHIJKLMNOPQRSTUVWXYZ [\

CODE)

(040 ==> 077)

(100 ==> 137)
(140 ==> 177)
IF

THE

[LCWER (ASE ALPHA]

LMAIN,

CZDLDE.P1

TERMINAL

[(UPPER CASE ALPHA]

e NOTEeee
e

IF THE TESTING ON TERMINIALS OTHER THAN THE CONSOLE IS DESIRED
FOR TESTS B OR C,SEE SECTION 2.3.4. AND 2.3.5. OF THIS DOCUMENT.

s
AL

JMAIN,

10=JUN=-B0
MACYYT 30A(1052)
10-JUN-80 15:20

CZDLDE.PI

15:21

PAGE 9

2.3

OPERATING PROCEDURE

2.3.1

OPERATIONAL SWITCH SETTINGS

SEQ 0008

THE DIAGNOSTIC WILL CHECK FOR EXISTENCE OF
SWITCH
REGISTER AT 177570.
IF NO
SWITCH REGISTER IS AVAILABLE THE PROGRAM
WILL AUTOMATICALLY USE THE
CONTENTS OF LOCATION
17€ AS THE SOFTWARE SWITCH REGISTER. THE USER SHOULD
SET THIS LOCATION BEFORE STARTING THE PROGRAM. IF A

HARDWARE SWITCH IS AVAILABLE AND A SOF TWARE SWR(LOC. 176)
DESIRED,LOAD ALL 1'S INTO LOCATION 177570.(ALL SWITCHES
UP IF PHYSICAL SWITCHES ARE AVAILABLE)

BIT15
BIT14
BIT13
BIT12
BITI
BIT10

=
=
=
=
=

BITC8
BITO7
BIT06

- ENABLE BREAK FUNCTION TESTS
= ENABLE DATA TEST WITH WRAP CABLE
= INHIBIT RTC TESTS (ALLOW ONLY SLU TESTS)

BITO09

HALT ON ERROR
SCOPE LOOP
INHIBIT ERROR TYPEOUT
UNUSED
UNUSED
ENABLE ERROR FLAGS TESTS

= LOOP ON ERROR

BITOS
BIT04
BITO03

- ALLOW MANUAL SETTING OF ''SDEVM'' (DEVICE MAP)
= INHIBIT SLU TESTS (ALLOW ONLY LINE CLOCK TESTS)
- FOR 11/44 MFM: ENABLE BOTH 'BREAK TESTS' AND 'ERROR FLAG

BIT02

ONLY IF BIT10 OR BITO8 IS SET.)
=11/44 MFM OPTION: SELECT AUTO INITIATION

TESTS'

FOR THE

CONSOLE

SLU.

(THIS BIT

IS VALID

T/A CONSOLE TEST VIA WRAP CABLE

FOR DL11-W:

IF THE SOFTWARE SWITCH REGISTER IS USED(LOC. 176) THEN
BUILT INTO THE PROGRAM [S THE ABILITY TO DYNAMICALLY CHANGE THE
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER
APPLICABLE AREAS. BECAUSE THIS DIAGNOSTIC USES THE MAINTENANCE BIT
OF THE SERIAL LINE, THE CONTROL=-G SHOULD BE ISSUED DURING PROGRAM
TYPEOUTS AT THAT TIME THE MAINTENANCE BIT [S SURE TO BE CLEAR.

IF A CONTROL-G IS DETECTED, UPON EXECUTION THE CONTENTS OF THE SWREG ARE
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED
(1E)

SWR=XXXXXX

NEW=

10-JUN-80
JMAIN. MACYTT 30A€1052)
15:20
CZDLDE .P11
10-JUN-80

POSSIBLE

PAGE 10

RESPONSES ARE:

<CR>

15:21

6 DIGITS 0-7

IF NO CHANGES ARE TO BE MADE

TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER

VALUE ;LAST DIGIT FOLLOWED BY <(R>.

TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED

KEYING IN SWREG VALUE.

FOR 11/44 (PU:

SINCE THE 11/44 HAS A HARDWARE SWITCH REGISTER LOADED BY THE MFM CONSOLE
THEN THE DIAGNOSTIC SHOULD ALWAYS FIND EXISTENCE OF 177570,
WHEN OPERATING ON THE 11/44 CPU, DYNAMIC CHANGING OF SWREG(177570) DURING
PROGRAM EXECUTION CAN BE ACCOMPLISHED BY USING

TME MFM CONSOLE. TYPING “P<CR> ON THE CONSOLE TTY WILL ENTER THE
CONSOLE. THIS IS CONSIDERED ‘'CONSOLE MODE''.
TO EXAMINE SWREG TYPE ' E SW<CR> ' TO THE CONSOLE PROMPT. TO LOAD THE
SWREG TYPE ' D SW DATA<CR> ' WHERE 'DATA' IS AN OCTAL NUMBER.
IN ORDER FOR THE DIAGNOSTIC TO TYPE TO THE TTY IT IS NECESSARY
TO HAVE THE 11/44 MFM IN "PROGRAM 1/0 MODE''. THIS CAN BE ACCOMPLISHED
BY TYPING ' C<CR> ' TO THE CONSOLE PROMPT. THEREFORE,WHEN CONSOLE

USE 1S COMPLETED, PLACE THE MFM IN ''PROGRAM /0 MODE"'.

BECAUSE THIS DIAGNOSTIC USES THE MAINTENANCE BIT, *“P WILL
NOT BE ACKNOWLEDGED DURING THESE TESTS.THEREFORE, ISSUE *P
DURING PROGRAM TYPEQUTS. AT THIS TIME THE MAINTENANCE BIT
WILL BE

CLEARED.

SEQ 0009

LMAIN. MACY11 30A(1052)
10-JUN-80
CZDLDE .P1
10-JUN-80 15:20

- 2.5.2

15:21

PAGE 11

SEQ 0010

SETTING BI'S PER CHARACTER
THIS PROGRAM DEFAULTS TO TESTING 8 BITS PER CHARACTER.

SERIAL LINE IS SET FOR 5-=->7 BITS PER CHARACTER, SET THE

THE

MEMORY LCCATION ""SUSWR'' AS FOLLOWS:

CHAR. SIZE

(# OF BITS)

8
7
6
5

""SUSWR'' CONTENTS

(BINARY)

(OCTAL)

100000000

400
200
100
40

010000000

001000000
000100000

"SUSWR'' IS USED IN THE DATA PATH TESTS TO LIMIT THE BINARY
ggng TE?;EPATTERN TO THE NUMBER OF
L

2.3.3

BITS SELECTED ON THE

LINE.

RUNNING UNDER APT
THE APT MAILBOX IS LOCATED AT LOCATION 500, TO ALLOW ADDITIONAL SERIAL
LINE VECTOR ASSIGNMENTS TO THE 400 AREA OF MEMORY.
FOR DL11W:

THE DEFAULT EXECUTION TIMES PROVIDED($TSTM,$PASTM)

ARE FOR EXECUTION

WITH AN 11/34 PROCESSOR, CORE MEMORY , AND 110 BAUD.
FOR

11/44:

THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FULLOWS AND

IN SECT. 2.4 ARE FOR EXECUTION WITH A 11/44 PROCESSOR,

CACHE,

16K CORE MEMORY, AND 300 BAUD.
THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT:
1.

TABLE

'A'

IS USED FOR APT DUMP MODE.

A. TWO SLU'S ARE TESTED.(SSWREG BITO5=1 AND SDEVM=3)
A SLU AT 177560(DEFAULT CONSOLE SLU) AND AT 176500
(BASE ADDRESS CODE).

B. THE ERROR FLAG AND BREAK TESTS ARE SELECTED FOR THE SLU
AT 176500(TUS8 SLU IN MFG.)
($SWREG BIT 10 AND 8 =1)

2. E TABLE 'B' IS USED FOR APT QV AND RUN TIME MODES. IT ACCOMPL ISHES
WHAT E TABLE "A' DOES, BUT ADDITIONALLY IT SUPPRESSES ALL TYPEOUTS
TO THE TERMINAL (SENVM=240) AND SELECTS AUTO TESTING OF

CONSOLE TEST VIA WRAP CABLE(SSWREG BIT02=1).
1ST PASS
Rgg TIME

LONGEST
TEST TIME

ADDITIONAL
RUN ngf

T/A

MAIN.

MACY11 30A(1052)

CZDLDE.P11

10-JUN-80

10-JUN-80 15:20

15:21

......

PAGE 12

TABLES

SEQ 0011

cessens

SWITCH REGISTER 1

002440

002404

SWITCH REGISTER 2
CPU TYPE/OPTIONS
MEMORY MAP CODE 1
MEMORY MAP CODE 2
MEMORY MAP CODE 3
MEMORY MAP CODE 4
BUS PRIORITY/INTERRUPT 1
BUS PRIORITY/INTERRUPT 2
BUS ADDRESS CODE
DEVICE MAP CODE

000400
0070000
000700000000
000700000000
000700000000
000/00000000
0000
0000
176500
000003

000400
0070000
000700000000
000700000000
000700000000
000700000060
0000
0000
176500
000003

CTLR. SPE CIF IC WORD 1
CTLR. SPECIF IC WORD 2

000000
000000

E-MODE /S-MODE
(SENVM/SENV)

($SWREG)

(SDEVM)

2007000

2407001

MAIN,

10-JUN-80
10-JUN-80 15:20

MACY11 30A(1052)

CZDLDE.P11

2.3.4

15:21

RUN WITH ALTERNATE

PAGE 13

SEQ@ 0012

CONSOLE ADDRESS

TO USE A CONSOLE ADDRESS OTHER THAN 177560, OR VECTOR OTHER
THAN 60, THE OPERATOR MUST SUPPLY THE PROGRAM WITH THE

CORRECT ADDRESSES BY INSERTING THEM AT THE TAG LABELED ''CRCSR'':
CRCSR:
CRBUF:
CTCSR:
CTBUF:
CRVECT:
CRPSW:
CTVECT:
CTPSW:

2.3.5

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ANDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF
OF
OF

RECEIVER RCSR
RECEIVER BUFFER
TRANSMITTER CSR
TRANSMITTER BUFFER
RECEIVER VECTOR
ASSOCIAED PSW
TRANSMITTER VECTOR
ASSOCIATED PSW

TESTING ADDITIONAL SERIAL LINES

THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE SLU'S.
THE ADDRESS OF THE FIRST ADDITIONAL RCSR

IT REQUIRES

(STORED AT ''SBASE'')

ITS INTERRUPT VECTOR (STORED AT "'SVECT1''); AND WILL BE ABLE

AND

TO ADDRESS ANY SLU STARTING AT THE SPECIFIED BASE ADDRESS UP TO
15 CONSECUTIVE DEVICES.

EXAMPLE :

$BASE:
776500
$VECT1: 300

THE PROGRAM WILL BE ABLE

TO TEST THE CONSOLE PLUS ANY

ADDITIONAL DL11-W SLU'S WITHIN THE RANGE 776500 ==> 776660
$BASE AND SVECT1 DEFAULT TO 776500 AND 300 RESPECTIVELY.
THE PROGRAM ASSOCIATES UNIT NUMBERS TO DEVICES AS FOLLOWS:
(NUMBERS IN PARENTHESIS ARE OCTAL)

UNIT# O =-=>
UNIT# 1 -->
UNIT# 2 -->
UNIT# 3 -->

UNIT# & -->
:

CONSOLE [ADDRESS STORED AT '‘CRCSR'']
BASE ADDRESS STORED AT ''$BASE"’
ASSOCIATED BASE VECTOR STORED AT''SVECT1"
BASE ADDRESS + (10)
BASE VECTOR + (10)
BASE ADDRESS + (20)
BASE VECTOR + (20)
BASE ADDRESS + (30)

BASE VECTOR + (30)

i
i
i
i

UNITH1S - ->

BASE ADDRESS + (160)
BASE VECTOR + (160)

LMAIN.
MACY11 30A(1052)
10-JUN-80
CZDLDE.P11
10-JUN-80 15:20

15:21

PAGE 14
SEQ 0013

STARTING AT LOCATION 200 AND HAVING BITS OF SWR CLEAR, THE PROGRAM WILL SELF
SIZE THE NUMBER OF DEVICES (STARTING AT THE BAS ADDRESS) AND
STORE A BIT MAP AT "'SDEVM'' (DEVICE MAP) TO INDICATE WHICH UNIT NUMBERS
ARE PRESENT AND WILL BE

UBIT

331

UBIT

TESTED:

sosvevcenes :

ssssnnsanes :

UN%T

;

CONSOLEE

A BIT MAP CAN BE ENTERED AT ''SDEVM'' PRIOR TC STARTING THE

PROGRAM

SETTING BITS5 OF THE SWR INHIBITS THE SELF=-SIZING AND DEVICE MAP

GENERATION,AND USES THE VALUE STORED

BY THE OPERATOR.

EXAMPLE:

SWR
=
$BASE:

000040
776500
SVECT1: 300
SDEVM:
THE

[BINARY

[(BINARY = 0 000 000 9200 001

PROGRAM WILL

TEST

UNITH# O = CONSOLE
UNITH 1 = 776500 ;
UNITH 3 = 776520 ;

c———————————————————————————————————————————————————————————————————

0 000 000 000 100 0001

—

300
320

e
————————————————————

e——

011]

MAIN. WACY11 30A(1052)
10-JUN-B0
CIDLDE.P11
10-JUN-80 15:20

2.4

15:21

(110 BAUD)

LONGEST SUBTEST TIME

PASS TIME
ADDITIONAL DEVICES

FOR 11/44: (300 EAUD)
LONGEST SUBTEST TIME
PASS TIME
ADDITIONAL DEVICES

50 SECONDS
60 SECONDS
55 SECONDS/DEVICE
50 SECONDS
60 SECONDS
55 SECONDS/DEVICE

ERROR REPORTING

IF A ROUTINE FAILS AND THE INMIBIT ERROR TYPEQOUT (BIT13) OF THE SWR
IS NOT SET, A PRINTOUT RESULTS IN THE FORM:
"'(SOME ASCII MESSAGE)"
TESTH
ERR PC
RCSR
XXXXXX
XXXXXX
XXXXXX

CANY APPLICABLE DAT HEADINGS]
[ANY APPLICABLE DATA]

NOTE: "RCSR'' IS DEFENDENT ON THE FAILURE
€ THEREFORE COULD BE TCSR,RBUF,TBUF,OR LKS
WHERE ""XXXXXX'' 1S AN OCTAL NUMBER.

THIS ERROR PRINTOUT OCCURS PROVIDED THE ERROR THAT EXISTS

WOULD NOT HINDER THE TYPEOUT. IN CASES WHERE IT IS NOT POSSIBLE
TO PRINT AN ERROR MESSAGE (I.E. FATAL CONSOLE TRANSMITTER
FAILURES), A HALT OCCURS AND THE PC CAN BE EXAMINED BY THE OPERATOR
TO FIND THE ERROR INFORMATION IN THE PROGRAM LISTING.
NOTE:

£ W
SEQ 0014

EXECUTION TIMES FOR DL11=w:

3.0

B 2

PAGE 15

FOR SOF TWARE SWITCH OPERATION, THE SWITCH REGISTER CAN

BE CHANGED BY TYPING A CONTROL=G AT THE CONSOLE DURING ERROR PRINTOUTS.
AFTER CONTINUING FROM THE ERROR HALT THE OLD SWR CONTENTS

IS DISPLAYED AND THE NEW CONTENTS CAN BE ENTERED.
IF ERROR HALTS ARE DISABLED, THE CONTROL=-G RESPONSE OCCURS
IMMEDIATELY FOLLOWING THE TYPEOUT.

10-JUN-80
MAIN, MACY11 30A(1052)
(ZDLDE.P1
10-JUN-80 15:20

15:21

PAGE

SEQ 0015

4.0
TRAPCATCHER

THIS IS A SERIES OF

INSTRUCTIONS STARTING AT LOCATION O DESIGNED TO

DETECT AND ISOLATE UNEXPECTED TRAPS TO THE TRAP AND INTERRUPT VECTOR
AREA OF MEMORY.

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF

THE NEXT

LOCATION., THE NEXT LOCATION IS LOADED WITH A BREAK POINT TRAP (000003).

THUS AN ILLEGAL TRAP OR INTERRUPT CAUSES A TRAP THROUGH THE BPT VECTOR(14)
WHICH POINTS TO THE "'CATCH'' ROUTINE.
THE "'CATCH'' ROUTINE REPORTS THE PC THAT CAUSED THE ORIGINAL TRAP AND
THE LOCATION OF THE TRAP VECTOR (IF UNDER APT, AN ERROR IS INDICATED TO APT).
AFTER REPORTING THE ERROR THE PROGRAM HALTS. THE PROGRAM MUST BE RESTARTED

THIS POINT.

4.2

THIS ROUTINE

IS USED TO WRITE

THE PSW BY POPPING VALUES FROM THE

STACK. THIS METHOD IS USED TO BE COMPATIBLE WITH ALL 11 FAMILY

PROCESSORS.

4.3

THIS ROUTINE CALL 1S PLACED BETWEEN EACH SUBTEST. IT RECORDS THE STARTING
ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED ANU UPDATES THE
TEST NUMBER. IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE STARY OF THE

SUBTEST AT WHICH THE STOPE LOOP IS REQUESTED.

LMAIN.

MACY1Y 30A(1052)

(ZDLDE.PT

10-JUN-B0
10-JUN-80 15:20

15:21

PAGE 17

2
SEQ 0016

L.4

THIS ROUTINE CALL

IS PLACED WHEREEVER AN ERROR REPORT

IS DESIRED. THE LOWER BYTE OF THIS CALL IS USED AS THE ERROR NUMBER

AND AS A POINTER INTO THE ERROR TABLE . THIS ROUTINE REPORTS ERRORS
TO APT USING ''SAPTYPE'' AND TYPES ERROR REPORTS TO THE CONSOLE

USING "'SERRTYPE'',

4.5

$POWER

THIS ROUTINE SAVES ALL GENERAL REGISTERS DURING POWER-DOWN
AND RESTORES THEM AT POWER-UP., IF A POWER FAILURE CCCURS
"POWER'' IS PRINTED AT THE CONSOLE AFTER POWER IS RESTORED.
4.6

THIS ROUTINE CALL IS USED TO DETECT THE RECEPTION OF A CONTROL-G
FROM THE CONSOLE. THE CALL USES "'SREAD'' TO PERFORM THE CONTROL=G
SEQUENCE OF DISPLAYING THE CONTENTS OF THE SOFTWARE SWITCH REGISTER
AND THE ENTERING THE NEW CONTENTS FROM THE TERMINAL.
5.0

AUTOMATIC

INITIATION OF

VIA WRAP CABLE

PURPOSE:

11/44 T/A CONSOLE TEST

THE T/E(OR T/A) CONSOLE TEST CAN BE

IMPLEMENTED

BY MANUALLY TYPING T/E(OR T/A) ON THE KEYBOARD
OF THE TERMINAL WHEN IN CONSOLE MODE. IN ORDER TO
IMPLEMENT THIS TEST IN AN AUTOMATIC WAY IN MANUFACTURING
WHILE UNDER APT, THE USE OF A WRAP CABLE FROM
THE TUS8 TO THE CONSOLE CAN BE USED ALLOWING THIS
DIAGNOSTIC TO ISSUE THE 'T/A' COMMAND TO THE CONSOLE.
THE DIAGNOSTIC WILL ISSUE THE APPROPRIATE SEQUENCE
OF COMMANDS TO THE CONSOLE VIA THE WRAP CABLE WHEN
BITO2 OF SWR =1. THE DIAGNOSTIC WJILL THEN MONITOR
THE EXPECTED RESPONSE FROM THE CONSOLE VIA THE WRAP
CABLE AND HALT IF THERE IS AN ERROR. THE T/A TEST
IS DONE ONLY AFTER ALL SLUS ARE TESTED. IF T/A IS SUCCESSFUL
"END PASS' IS PRINTED AND THE DJAGNOSTIC STARTS AGAIN.
FIGURE 1 SHOWS THE PROPER WRAP CABLE SETUP AND
REQUIREMENTS FOR AUTOMATICALLY INITIATING T/A FROM THE
THE DIAGNOSTIC.NOTICE THAT THIS ARRANGEMENT ALLOWS

FOR THE TERMINAL TO MONITOR ALL COMMUNICATION FROM
THE CONSOLE OUTPUT DURING EXECUTION OF THE DIAGNOSTIC
IN "WRAP MODE''.

TYPEOUT

EXAMPLES

JMAIN, MACY1Y 30A(1052)
10-JUN-B80
CZDLDE.P11
10-JUN-80 15:20

15:21

PAGE 18

1. WITH THE CONFIGURATION OF FIGURE 1 AND "‘WRAP MODE'' SELECTED
THE PROGRAM MAY BE LOADED BY APT. IF 'E TABLE B' OF SECTION

2.3.3 WERE USED WITH THE EXCEPTION OF ALLOWING TYPEOQUTS(SENVM=200)
THE FOLLOWING WOULD BE SEEN ON THE LOCAL TERMINAL:

CZOLDEOD DL11=-W/1144 MFM SLU
*P
02 DEVICES UNDER TEST
CONSOLE

>>>T/A

CONSOLE=-TESTB
END PASS “*P
CONSOLE

>>T/A

CONSOLE-TESTB
END PASS *P
CONSOLE

>>T/A

CONSOLE-TESTB
..... ETC.
END PASS *P

DESCRIPTION: REFERING TO THE ABOVE PRINTOUTS:

A. THE DIAGNOSTIC IS LOADED WITH THE TITLE BEING PRINTED.
B. TWO SLU DEVICES(CONSOLE,TU5S8) ARE SPECIFIED
C. BOTH SLUS ARE TESTED COMPLETELY. AT THIS POINT
THE THE DIAGNOSTIC ISSUES “P TO THE WRAP (ABLE.
THE CONSOLE ENTERS CONSOLE MODE AND
THE “P TYPED ON THE TERMINAL IS THE MFM CONSOLE ECHO.

D. THE CONSOLE PERFORMS ITS OWN SELF TEST BY TYPING
"CONSOLE' FOLLOWED BY >>>, THE CONSOLE PROMPT,
E. THE DIAGNOSTIC THEN ISSUES T/A AND THE TERMINAL
SHOWS THE CONSOLE ECHO OF THIS.
F. THE MFM THEN PERFORMS THE T/A TEST SHOWN BY THE TERMINAL
TYPING 'CONSOLE-TESTB'.THE DIAGNOSTIC LOOKS FOR THE

'B' IN THIS TYPEOUT,AND WHEN FOUND , CONSIDERS
THE TEST A SUCCESS. THE DIAGNOSTIC WILL TYPE END PASS

INDICATING A SUCCESSFUL PASS OF THE DIAGNOSTIC.
G. TSEAglsg??ETIC CONTINUES WITH FURTHER PASSES OF THE
N

SEQ 0017

MAIN.
MACY11 30A(1052)
10-JUN-BO
CZDLDE.P11
10-JUN-80 15:20
.

15:21

PAGE 19

"E TABLE B' OF 2.3.3 WERE USED WITH TYPEOUTS SUPPRESSED

’ E‘ENVH=2‘0) AS STATED, THEN THE FOLLOWING TYPEOUTS WOULD BE
NOTICED:
AP

CONSOLE

»>T/A

CONSOLE-TESTB*P
CONSOLE

>>>T/A

CONSOLE-TESTB*P
CONSOLE

>>>T/A

CONSOLE=-TESTB*P

..... ETC.

SEQ 0018

LMAIN.

MACY11 30A(1052)

CZDLDE.PT

10-JUN-80

15:21

10-JUN-80 15:20

F1G.

.
.

.
.
4

INITIATION OF

CONSOLE

TTY PORT

INPUT

QUTPUT

INPUT

QuTPUT

D
L
¢

[|cmeccaa +

)

.
|

.
L

S1/ +(2

3
D

RRR)

CABLE

TUS8
1

WRAP AROUND

;
SEQ 0019

1= WRAPAROUND CONFIGURATION = AUTO
11744 T/A CONSOLE TEST

6 2

PAGE 20

b Lt +

1 53

|
o

TTY PRINTER

.
.

;

.
.
.

;

TTY KEYBOARD

WHEN THE SWITCH IS IN "'NORMAL'' MODE CONTACTS ARE:
$1-C2 1S CLOSED
S1-C1 IS OPEN
$3-C3 IS OPEN
THIS ALLOWS

THE

USE

THE

TERMINAL WITH

THE

CONSOLE

; WHEN THE SWTICH IS IN "WRAP'' MODE CONTACTS ARE
$1-C1 CLOSED

$1-C2 OPEN
$2-C3 CLOSED

.
-

;
;

;

THIS ALLOWS THE TUS8 PORT TO COMMUNICATE WITH THE
THE TTY TO MONITOR THE CONSOLE OUTPUT
THIS

CONSOLE

PORT

AND FOR

IS ALL DONE WITH A DPDT SWITCH

; BEFORE THIS TEST CAN BE RUN THE CONSOLE UART,TTY,TUS8 MUST BE AT

; THE SAME BAUD RATE. THE CONSOLE AND TUS8 UART,AND THE TTY SHOULD BE
;SET UP WITH THE SAME STOP BIT SETTING,

; WITH PARITY INHIBITED AND WITH A WORD LENGTH OF 7 OR 8 BITS

;

FOR MORE

INFORMATION SEE THE MFM PRINTS AND THE WRAP AROUND
CABLE DRAWING NUMBER: 7016942

tttRtttteRtttRRR R RRRRRRRRRRRROERRRRRRROERRRRRRRRORRRRRRERRORRORRORRORRORORORANTRTNTOTN

10-JUN-80
MACY11 30A(1052)
10-JUN-80 15:20
CZDLDE.P11
MAIN.

15:21

PAGE

SEQ 0020

788

789
790
791

792
793
794
795
796

797
798
799

.SBTTL

001100
104000

000004

177776
177776
177774
177772
177570
177570

0o 0o Co Oo 0o OCo

000011
000012
000015
000200

000000
000001
000002
000003
000004

000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000

040000

BASIC DEFINITIONS

;*INITIAL ADDRESS OF
STACK=
1100
ERROR=EMT
SCOPE=]0T

THE STACK POINTER s« 1100 #ee

s*MISCELLANEOUS DEFINITIONS

HT=

LF=
(R=
CRLF=
PS=

12
15
200

;;77;2

::;CODE

FOR HORIZONTAL

TAB

:;CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
;s CODE FOR CARRIAGE RETURN=-LINE FEED
:;PROCESSOR STATUS WORD

STKLMT= 177774

PIRQ=

DSWR=
DDISP=

177772

177570
177570

ssSTACK LIMIT REGISTER

: :PROGRAM INTERRUPT REQUEST REGISTER

; ;HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS

RO=

s ;GENERAL REGISTER

R3=

1§

; GENERAL REGISTER

R1=
R2=

R4 =

RS=
R6=
R7=

SP=

PC=

11
X2
X4

x5
16
X7

X6
X7

;*PRIORITY LEVEL

PRO=
PR1=
PR2=

0
40
100

PR6=

300

PR3=
PRé4=
PRS=

PR7=

140
200
240

340

: ;GENERAL REGISTER
s ;GENERAL REGISTER

s ;GENERAL REGISTER

s ;GENERAL REGISTER
s ;GENERAL REGISTER
; sGENERAL REGISTER

::STACK POINTER

: ;PROGRAM COUNTER

DEFINITIONS

::PRIORITY LEVEL O
;sPRIORITY LEVEL 1
::PRIORITY LEVEL 2

::PRIORITY LEVEL 3
::PRIORITY LEVEL &
:sPRIORITY LEVEL S

::PRIORITY LEVEL 6

:sPRIORITY LEVEL 7

;¢ 'SWITCH REGISTER' SWITCH DEFINITIONS
100000
SW15=
SWl4=
40000

MACY11 30A(1052)
10-JUN-80
.MAIN,
10-JUN-80 15:20
CZDLDE.PN

020000
010000
004000
002000
001000
000400
000200
000100
000040

000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
00000
100000

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

000004
000010

15:21
PAGE 22
BASIC DEFINITIONS

Swi13=
Sw12=
SW1l=
SWw10=
SWw09=
SWw08=
SWw07=
Sw0é=
SW05=
SW04=
Sw03=
t902=
SWwo1=
SW00=

SEQ 0021

20000
10000
49000
2000
1000
400
200
100
40

20
10
&
2
1
SW9=Sw09
SW8=Sw08
SW7=Sw07
SW6=SW06
SWS5=SW0S
SW4=SwW04
SW3=Sw03

SW2=Sw02
SW1=SW01

SW0=Sw00
s*DATA BIT DEFINITIONS

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BIT06=
BIT0S=
BITO4=
BIT03=
BIT02=
BITO1=
BITO0=

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
&
2
1
BIT9=BIT09

(BITOO TO BIT1S5)

BIT8=BIT08
BIT7=BIT07
BIT6=BIT06
BITS5=BIT0S
BIT4=BI104
BIT3=BIT03%
BIT2=BIT02
BIT1=BITO1
BITO=BIT00

:*BASIC ''CPU'" TRAP VECTOR ADDRESSES

ERRVEC= &

RESVEC= 10

;s TIME

OUT

AND OTHER ERRORS

s RESERVED AND

ILLEGAL

INSTRUCTIONS

10-JUN-B0
MACY11 30A(1052)
MAIN,
10-JUN-80 15:20
CZDLDE.”11

TBITVEC=14
TRTVEC= 14

000014
000014
000014
000020
000024

$00

15:21
PA GE 23
B8 ASIC DEFINITIONS

BPTVEC=
I0OTVEC=
PWRVEC=
EMTVEC=

000030
000034
000060
000064
000240
000007

;s TRACE

;s INPUT/0UTPUT TRAP (10T)

#«SCOPE++
;sPOWER FAIL
:;EMULATOR TRAP (EMT) #«ERRORt+
;:'TRAP'' TRAP

TRAPVEC=34

MFPT=7
ABASE=
AVECT1=
AUSWR=
$TN=
$SWR=

161000

BPT=

000003

TRAP

; ;BREAKPOINT TRAP (BPT)

14
20
24
30

;:TTY KEYBOARD VECTOR
;3 TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

TKVEC=
60
TPVEC=
64
PIRQVE(=240

176500
000300
000400
000001

SEQ 0022

176500
300
400
1
161000

000003

;THIS IS THE COMMAND FOR A TRAP
THROUGH 14 (BPT TRAP)
3

.=0

000000

;.'"Q'l...t.'.."""'"i""""'.".'.'Q'ttt"""tti'..Qt't".

;*ALL UNUSED LOCATIONS FROM 4=776 CONTAIN A ''.+2,BPT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS & INTERRUPPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000014
000016

000014
014552
000340

=14

.WORD

(CAT(CH

000042

000042
000000

o=
.WORD

42
0

000174
00017¢

000174
000000
000000

000200
000204
000210

000200

000137
000137
000137

.WORD

DISPREG:.WORD
SWREG:
.WORD
003046
017324
017544

.=200
JMP

JMP
JMP

340

;THE BPT TRAP VECTOR POINTS TO THE

ILLEGAL TRAP HANDLER ''CATCH'"

174

0
O

START

ECHO
QUTTST

;D0 INTERFACE

TEST

;D0 ECHO TEST
;D0 OUTPUT TEST TO TERMINAL

MA N,

MACY11

CZD'.DE.P1
Gak
945

30A(1052)

000500

946

947
948
949

10-JUN-8D

10-JUN-80 15:20

15:21

PAGE 24

BASIC DEFINITIONS

.SBTTL

SEQ 0023

.=
500
ACT11 HOOKS

:.'"fi"""'.""""'"""""."'.""."."'...'.."'.""."

000046
000052

000500
000046
014450
000052
000000
000500

*HOOKS REQUIRED BY ACT11
sszzc=.

:SAVE PC

iE?%AD

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

WORD

.SBTTL

-=$SVPC
APT PARAMETER BLOCK

::2)SET LOC.52 TO ZERO
:

RESTORE PC

,'.'QiQt"t'."""Q'Q"""""""".""."'.'.'I"."Q'Q.'Q"'t

“SET LOCATIONS 24 AND &4 AS REQUIRED FOR APT

;.'"'Q.""'"."""'""""""".'...""".'QQ'.."'.'."."

000024
000044

000500
000024
000200
000044
000500
000500

.$X=.
=24~
200
=44
$APTHDR
.=.8X

::SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM
*'FOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNTR.
::POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER

.'.'"'.'QI.'..""‘""""""""...'"'.Q"."".'""""Q'Q"

“SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
*INTERFACE SPEC.
000500

000512

000000
001066
000050
000060
000055
000030

$APTHD:

$SHIBTS:
SMBADR:
$TSTM:
$PASTM:
SUNITM:

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

0
::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
::ADDRESS OF APT MAILBOX (BITS 0-15)
50
“'RUN TIM OF LONGEST TEST
60
“'RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
55
“"ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS)

JMAIN, MACY11 30A(1052)
10-JUN-B0
CZOLDE.P
10-JUN=-80 15:20

15:21
PAGE 25
COMMON TAGS

SEQ 0024

ggg

.SBTTL

981

;."t"t"'tt'ttt"""tt't"'t't't't'tQttttQ't'tttt"tttt't"'t't

982

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

ggz
985

:*USED IN THE PROGRAM.

986

001000

988
989
990
991
992
993
994
995
996
997

001002
001003
001004
001006
001010
001012
001014
001015
001016
001020

1003
1004
1005
1006
1007
1008
1009

001034
001035
001036
001040
001042
001044
001046

987

998
999
1000
1001
1002

1010
1011
1012
1013

1014
1015

1016
1017
1018
1019
1020

COMMON TAGS

001000

000000

001022
001024
001026
001030
001032

000000
000000
000000
000000
000000

001050
001052
001054
001055

001056
001057
001060
001062
001063
001064

S$CMTAG:

000
000
000000
000000
000000
000000
000
001
000000
000000

$TSTNM:
$ERFLG:
S$ICNT:
$LPADR:
$LPERR:
$ERTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:

000
000
000000
177570
177570
177560
177562

$AUTOB:
$INTAG:

177564
177566
000
002

012
000

000000
077
015
000012

$8DADR:
$GDDAT:
$BDDAT:

.=1000
LMORD

.WORD
.WORD
.WORD
WORD
WORD

0
0
0
0
O

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

.BYTE
.BYTE
WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562

$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE

$FILLC: .BYTE
$TPFLG: .BYTE

$ESCAPE: 0
$QUES:
.ASCII
$CRLF:
L.ASCII
$LF:
ASCIZ

.SBTTL

1023

1024
1025

.EVEN
SMAIL :

1034

001066
001066
001070
001072

001074
001076
001100
001102
001104

001106

000000
000v00
000000
000000
000000
000000
000000
000000

O
0
O
9
0
0
0
1
0
0

::CONTAINS
; :CONTAINS
::CONTAINS
: :CONTAINS
: :CONTAINS
; ;CONTAINS
::CONTAINS
: :CONTAINS
::CONTAINS
: :CONTAINS

THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF 'GOOD' DATA

0
0
O
DSWR
DDISP

; sAUTOMATIC MODE INDICATOR
;2 INTERRUPT MODE INDICATOR

; :CONTAINS ADDRESS OF 'BAD' DATA
:;CONTAINS 'GOOD' DATA
:;CONTAINS °'BAD' DATA
; RESERVED=--NOT TO BE USED

: :ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
;:TTY KBD BUFFER
;:TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS
::CONTAINS NULL CHARACTER FOR FILLS
::CONTAINS # OF FILLER CHARACTERS REQUIRED

0
2

12
O

;s INSERT FILL CHARS. AFTER A "LINE FEED"
::"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
:;ESCAPE ON ERROR ADDRESS
;;QUESTION MARK
: :CARRIAGE RETURN
::LINE FEED

77/
<15

Q2>

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

}853

1026
1027
1028
1029
1030
1031
1032
1033

::START OF COMMON TAGS

$MSGTY:
SFATAL:
STESTN:
$PASS:
$DEVCT:
SUNIT:
$MSGAD:
$MSGLG:

$E TABLE :

APT MAILBOX=-ETABLE

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

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

R AR AR

::APT MAILBOX
;:MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER

;;PASS COUNT
;;DEVICE COUNT
;:1/0 UNIT NUMBER
;;MESSAGE ADDRESS
; ;MESSAGE LENGTH

:APT ENVIRONMENT TABLE

ARl

LMAIN. MACY11 30A(1052)
10-JUN-BO
CZDLDE.P11
10-JUN-80 15:20
1035
1036
1037

001106
001107
001110

1039
1040

001114

1038

1041
1042
1043
1044
1045
1046

1047
1048
1049

1050
1051
1052
1053
1054
1055
1056
1057
1058
1059

1060
1061
1062

1063
1064
1065

1066
1067
1068

001112

001116

001117

000
000
000000
000400
000000

000

15:21
PAGE 26
APT MAILBOX-ETABLE
SENV:
SENVM:
$SWREG:

.BYTE
.BYTE
.WORD

AENV_
AENVM
ASWREG

;:ENVIRONMENT BYTE
::ENVIRONMENT MODE BITS
::APT SWITCH REGISTER

$CPUOP:
i

.WORD

ACPUOP

;:CPU_TYPE,OPTIONS
BITS 15-11=CPU_TYPE

SUSWR:

ie
.
i
;v
;*

§MAMS1:

$MTYP1:
.
.

001123
001124
001126
001127
001130

000000
000
000

000000

3o
*
$MADR1:
;v
§MAMS2:
SMTYP2:
SMADR2:
SMAMS3:
SMTYP3:
SMADR3:

001136
001140
001142

000300
000000
176500

SVECT1:
SVECT2:
$BASE:

001120

000000

001122

000

001132
001133
001134

001144
001146

000

000
000
000000

000000

SEQ 0025

$MAMSGL:
SMTYP4:
SMADR4:

SDEVM:
SETEND:
MEXIT

.WORD

.BYTE

AUSWR

AMAMS1

AMTYP1

;:MEM. TYPE,BLKAi
MEM.TYPE BYTE
==
(HIGH BYTE)
900 NSEC CORE=001

AVECT1
AVECT2
ABASE

::INTERRUPT VECTORA1,BUS PRIORITYA1
::INTERRUPT VECTORN2BUS PRIORITYA2
::BASE ADDRESS OF EQUIPMENT UNDER TEST

.BYTE

AMAMS2

.BYTE
.BYTE
.WORD

AMAMSL
AMTYP4
AMADR4

.WORD

;;HIGH ADDRESS,M.S. BYTE

AMTYPZ
AMADRZ
AMAMS3
AMTYP3
AMADRS

AMADR1

.WORD
.WORD
.WORD

11/04=01,11/05202,11/20=03,11/40=04,11/45=05
11/70=06,PDA=07,0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
B=MEMORY MANAGEMENT

300 NSEC BIPOLAR=002
500 NSEC M0$=003
;:WIGH ADDRESS,BLKA1
&
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF "‘TYPE'*
;;HIGH ADDRESS,M.S. BYTE
::MEM.TYPE,BLKA2
;;MEM.LAST ADDRESS,BLKA2
::WIGH ADDRESS,M.S.BYTE
::MEM.TYPE,BLKA3
;;MEM.LAST ADDRESS,BLKA3

.WORD

.BYTE
.WORD
.BYTE
.BYTE
.WORD

::USER SWITCHES

ADEVM

::MIGH ADDRESS,M.S.BYTE
::MEM.TYPE,BLKAG
;:MEM.LAST ADDRESS,BLKM4

::DEVICE MAP

ABOVE

MACY11 30A(1052)
10-JUN-80
.MAIN.
10-JUN-80 15:20
CZOLDE.P11
1069
1070
107
1072
1073
1074
1075
1076
1077

PAGE 27
ERROR POINTER TABLE
.SBTTL

ERROR POINTER TABLE

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

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

J*NOTE1:

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

J*NOTEZ2:

DATA FORMAT

017654
024037
024602
000000

EM2
DH2
D12

;"'CAN NOT ACCESS TBUF''
;"'TESTH ERR PC TBUF''
TBUF
;STESTN,SERRPC,

017700
024012
024572
000000

EM3
DH1
DT

;"'TCSR DONE NOT CLEARED WITH TBUF FULL"'
;"'TESTH ERR PC TCSR'
SSTESTN,SERRPC,TCSR

017245
024012
024572
000000

EM&

DH1
pT

;"'TCSR DONE NOT SET"

017767
024012
024572
000000

EMS
DH1
AR

;TCSR DONE NOT SET WITH RESET

020024
024064
024612

EM6
DH6
DT6

;""CAN NOT ACCESS RCSR'
;"'TEST# ERR PC RCSR"

020050
024111
024622
000000

EM7

DW7
D17

:"'CAN NOT ACCESS RBUF''
:'TESTAR ERR PC RBUF''
RPC
STESTN,SER,RBUF

020074
024136
024632
000000

Em0

;"CAN NOT ACCESS LKS'

D110

SSTESTN, SERRPC,LKS

lh ol o

Dl
il
D

a el

o
D

BB ad

~RSE FRBZ RS FRo& RR8S FR3E RRZF XX

:"'CAN NOT ACCESS TCSR'
:"'TESTM® ERR PC TCSR"
;STESTN,SERRPC,TCSR

o
e

EM1
DH1
DT

VNN

TO THE

:sPOINTS

o
s
2
s

:;POINTS TO THE ERROR MESSAGE
;sPOINTS TO THE DATA HEADER
;;POINTS TO THE DATA

s
b
.8
s

.$ERRTB:

EM
DH
DT
DF

8888 8888 8888 8888 8888 8888 8888 88

SRINIRAR28 333
WNN—-O
S W= OO

VOV

PURUROININD
b i s o
s i s b

e
D e
il

il
il

e
e

il
Dl

D e
)

il
il
il

e
il

il e
D

D
s

i
il

-l

il e

e
D e

1096

SEQ 0026

017630
024012
024572
000000

000000

DH10

;"'TESTH ERR PC

TCSR'

;STESTN,SERRPC,TCSR

;'TEST# ERR PC

T(CSR"

;STESTN,SERRPC,TCSR

,RCSR
;STESTN,SERRPC

CUTESTE ERR PC

(kSTM'

LMAIN, MACY11 30A(1052)
IOBJUN-BO
CZDLDE.P1N
10-JUN-80 15:2
1125

15:21
PAGE 28
ERROR POINTER TABLE

SEQ 0027

1126
1127
1128
}}gg

001246
001250
001252
001254

020117
024012
024572
000000

EM11
DH1
DT
0

;'BITO OF TCSR NOT CLEAR AFTER RESET"
;'TESTH ERR PC
TCSR
;STESTN,SERRPC,TCSR

1131
1132
1133
}}gg

001256
001260
001262
001264

020162
024012
024572
000000

EM12
DH1
DT
0

;''CAN NOT SET BITO OF TCSR"
;'TESTH ERR PC
TCSR"
;STESTN,SERRPC,TCSR

1136
1137

001266
001270

020213
024012

EM13
DH1

;"'CAN NOT CLEAR BITO OF
;'TEST# ERR PC
TCSR"

}}zg

001274

000000

1138

001272

024572

TCSR'

;STESTN,SERRPC,TCSR

1141
1142
1143
}}2?

001276
001300
001302
001304

020246
024012
024572
000000

EM14
DH1
T
0

;"'RESET DID NOT CLEAR BITO OF TCSR"
;'TESTH ERR PC
TCSR"
;STESTN,SERRPC,TCSR

1146
1147
1148
:}gg

001306
001310
001312
001314

020307
024012
024572
000000

EM15
DH1
DT
0

;'BIT2 OF TCSR NOT CLEAR AFTER RESET"
;"'TESTH ERR PC
TCSR"
;STESTN,SERRPC,TCSR

1151
115§

001316
001320

020352
024012
024572
000000

EM16
DH1

DT
0

;"'CAN NOT SET BIT2 OF TCSR"
;"'TESTH ERR PC
TCSR"

;STESTN,SERRPC,TCSR

1156
1157
1158
}}23

001326
001330
001332
001334

020403
024012
024572
000000

EmM17
DH1
DT
0

:""CAN NOT CLEAR BIT2 OF TCSR"
;"'TESTH ERR PC
TCSR"
;STESTN,SERRPC,TCSR

1161
1162
1163
}}gg

001336
001340
001342
001344

020436
024012
024572
000000

EM20
DH1
DT
0

;"RESET DID NOT CLEAR BIT2 OF TCSR"
;"'TESTH ERR PC
TCSR"
;STESTN,SERRPC,TCSR

1166
1167
1168

001346
001350
001352

020477
024012
024572

EMZ1
DH1
T

;'BIT6 OF TCSR NOT CLEAR AFTER RESET?
;'TESTH ERR PC TCSR"
;STESTN,SERRPC,TCSR

1171
1172
1173
}};g

001356
001360
001362
001364

020542
024012
024572
000000

EM22
DH1
DAR
0

;"'XMIT INTERRUPT WITH PRIORITY 7"
J'TESTH ERR PC TCSR"
;STESTN,SERRPC,TCSR

1176
1177
1178

001366
001370
001372

020577
024012
024572

EM23
DH1
DT

;"'CAN NOT SET BIT6 OF TCSR"
;'TESTH ERR PC T(SR"
;STESTN,SERRPC,TCSR

1153
}:;g

}}93

}};g

001322
001324

001354

001374

000000

(00000

o
b
o
ok
ok LD P

LR R2C28TIIRAR
FRRURZS OO NO VS W= O 0NV
WN—~O BRRIEIRARSC

NS> rrevos& R

Oo
OO 00
WA
—

s e
i
s e
b b

SEQ 0028

;""CAN NCT CLEAR BIT6 OF TCSR"

020630
024012
024572
000000

EM24
DH1
DT
0

020663
024012
024572
000000

EM2S
DH1
DT1
0

020724
024064
024612
000000

EM26
DH6
DTé
0

;'BIT6 OF RCSR NOT CLEAR AFTER RESET"

020767
024064
024612
000000

EM27
DH6
D16
0

;"'RCVR INTERRUPT WITH PRIORITY 7'
;"'TESTH ERR PC RCSR"

021026
024064
024612
000000

EM30
DHé
DT
0

;"'CAN NOT SET BIT6 OF RCSR'
;"'TESTH ERR PC RCSR"

021057
024064
024612
000000

EM31
DH6
DTé
0

;"'CAN NOT CLEAR BIT6 OF RCSR"
;"'TESTH ERR PC RCSR"

021112
024064
024612
000000

EM32
DH6
DT6
0

;"'CAN NOT CLEAR BIT6 OF RCSR WITH RESET?
J'TESTH ERR PC RCSR'"

021160
024136
024632
000000

EM33
DH10
DT10
0

;'BIT6 OF LKS NOT CLEAR AFTER RESET'

021222
024136
024632
000000

EM34
DH10
DT10
0

:"'LKS INTERRUPT WITH PRIORITY 7%
;'TESTH ERR PC LKS"

EM3S

;"'CAN NOT SET BIT6 OF LKS"

024632

DT10

;STESTN,SERRPC,LKS

TCSR"
;'TESTH ERR PC
JSTESTN,SERRPC,TCSR

;"'RESET DID NOT CLEAR BIT6 OF TCSR"

;'TESTH ERR PC
T(SR"
;STESTN,SERRPC,TCSR

;'TESTH ERR PC

RCSR"

PC
,RCSR
;STESTN,SERR

,RCSR
;STESTN,SERRPC

;STESTN,SERRPC,RCSR

,RCSR
;STESTN,SERRPC

;'TESTH ERR PC
LKS"
;STESTN,SERRPC,LKS

;STESTN,SERRPC,LKS

021260

VAWVAWVAWVY

3 RN =R R

15:21
PAGE 29
ERROR POINTER TABLE

021310
024136
024632
000000

EM36
DH10
DT10
0

;"'CAN NOT CLEAR BIT6 OF LKS'"

NNPON)

502

g 8888 8338 88

—

D i e

D i

il i

NORLRLALRL NN R AL NL NNV LRV

)

NNV

LR NV

D i

il i

D D i

D D

VN PIRIPINIPUNING PININD b

D i

s e

) D i

o o

)

D D

s el o o o

D it

MACY11 30A(1052)
10-JUN-B0
10-JUN-80 15:20
(ZDLDE PN

021342

EM37

;"RESET DID NOT CLEAR BI'6 OF LKSTM

0246136

DH10
0

;U'TESTH ERR PC

;"'TEST® ERR PC

LKS"

;STESTN,SERRPC,LKS

MACY1T 30A(1052)
MAIN,
10-JUN-80
10-JUN-80 15:20
CZDLDE PN

1237
1238
1239
1240

—

D e

oo
0O

D e

D D

S i

i D
i
D D
D i
i s e
LN LN LN NN ST ST NLNT NN NTNTNTNT STV

o NNgNNNNNNNNNNNNN
NN
8*;23’o«>0wnvununnunnunnvv
W= O VBNV
WN—-O
i3 ARARZEIZIFIRARN=SS

1249

15:21
PAGE 30
ERROR POINTER TABLE

SEQ 0029

LKS"

001530
001532
001534

024136
024632
000000

DH10
DT10
0

;'TESTH ERR PC

001536
001540
001542
001544

021402
024162
024642
000000

EM4LO
DH40
DT40
0

:"'DUAL ADDRESSING ERROR'
BAD"'
;"'TESTH ERR PC GOOD

001546
001550
001552
001554

021430
024136
024632
000000

EM41
DH10
DT10
0

;"BIT7 OF LKS NOT SET AFTER RESETZ

001556
001560

021470
024136
024632
000000

EM&2
DH10
DT10
0

;"'CAN NOT CLEAR BIT7 OF LKS''
;"'TESTH ERR PC LKS"
;STESTN,SERRPC,LKS

001566
001570
001572
001574

021522
024136
024632
000000

EM43
DK10
DT10
0

:"BIT7 OF LKS DOES NOT SET'

021553
024136
024632
000000

EM&4
DH10

;"RTC

DT10
0

;STESTN,SERRPC,LKS

021607
0246136
024632
000000

EM4S
DH10
DT10
0

;"'RTC INTERRUPTS WHEN DISABLED"

;''TESTH ERR PC
LKS"
;STESTN,SERRPC,LKS

021644
024136
024632
000000

EM4E

;"'RTC INTERRUPT DID NOT OCCUR''

021644
024136
024632
000000

EM4G7
DH10
DT10
0

;"'RTC _INTERRUPT DID NOT OCCUR"
;'TESTH ERR PC LKS"

021700
024136
024632
000000

EMS50
DH10
DT10
0

;"'RTC DOUBLE INTERRUPT"
JU'TESTH ERR PC LKS"

021725
024136
024632
000000

EMS1
DH1Q
D110

;"RESET DID NOT CLEAR RTC INTERRUPT"

021755
024136

EMS2
DH10

;"RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS"

DH10
DT10
0

;STESTN,SERRPC,LKS

;STESTN,SERRPC,$GDADR,$BDCSR

;'TESTH ERR PC

LKS"

;STESTN,SERRPC,LKS

;"'TESTH ERR PC

LKS"

;STESTN,SERRPC,LKS

INTERRUPT AT PRIORITY 7*

;"'TEST# ERR PC

;"'TESTH ERR PC

LKS"

;STESTN,SERRPC,LKS

;'TESTH ERR PC
LKS"
;STESTN,SERRPC,LKS

JU'TESTH ERR PC

LKS"

10-JUN-80
15:21
PAGE 31
MACY11 30A(1052)
.MAIN.
:
10-JUN-80 15:20
"
ERROR POINTER TABLE
(ZDLDE PN

024632
000000

DT10
0

001666
001670
001672
001674

022032
024216
024654
000000

oooOmMm
—~I=

Nw
5~ &~

———

e R

uuuwauuuuuuuwuuuuuwuuuuuuwwuuww
WIWHWWRDNONDNNONNNININ
= b s b D bs
FREREED
w
WO
MBS W —-=O O gfl&m?uN-‘OODNOmbuN—'ooawo\nbuw—ooo

001676
001700
001702
001704

022056
024012
024572
000000

001706
001710
001712
001714

022214
024012
024572
000000

001716
001720
001722
001724

022114
024012
024572
000000

EMS6
DH1
DT1

001726
001730
001732
001734

022152
024012
024572
000000

EMS7
DH1
DT1

;''XMIT INTERRUPTS WITH ENABLE CLEAR'

001736
001740
001742
001744

022214
024012
024572
000000

EM60
DH1

;''XMIT DID NOT INTERRUPT'
;"'TESTH# ERR PC TCSR"

001746
001750
001752
001754

022243
024012
024572
000000

EM6T
DH1
DT

;"'XMIT RE-INTERRUPTED"
;"'TESTH ERR PC
TCSR"
;STESTN,SERRPC,TCSR

001756
001760
001762
001764

022267
024012
024572
000000

EM62
DH1
AR

;"'LOADING TBUF DID NOT CLEAR INTERRUPT"

;'TESTH ERR PC
TCSR"
;STESTN,SERRPC,TCSR

001766
001770
001772
001774

022334
024064
024612
000000

EM63

;"'RCVR ACTIVE NOT SET'
;"'TESTH ERR PC RCSR"

001776
002000
002002
002004

022360
024064
024612
000000

EM64

002006
002010
002012

022404
024064
024612

EM6S

DHé
DT6

DH6
DTé

DH6
D16

LKS

CNT1

(NT2V

;STESTN,SERRPC,LKS ,FIRST,SECND

;"'TESTH ERR PC
TCSR"
;STESTN,SERRPC,TCSR

J'XMIT INTERRUPTS WHEN DISABLED"

—~I=

ocoooOm

;STESTN,SERRP(C,LKS

;U'TEST# ERR PC

1308

001662
001664

ooom
—~I
=

1293

SEQ 0030

;"'XMIT DID NOT INTERRUPT'
;"'TESTH ERR PC TCSR"
;STESTN,SERRPC,TCSR

;"'XMIT INTERRUPT AT PRIORITY 7"
;'TESTH ERR PC TCSR"

;STESTN,SERRPC,TCSR

;'TESTH ERR PC

TCSR"

;STESTN,SERRPC,TCSR

;STESTN,SERRPC,RCSR

;"'RECEIVER DONE NEVER SET"
J'TESTH ERR PC RCSR"
PC
,RCSR
;STESTN,SERR

;"RCVR ACTIVE NOT CLEARED WITH DONE SET?
J'TESTH ERR PC
RCSR"
,RCSR
,SERRPC
JSTESTN

15:21
PAGE 32
ERROR POINTER TABLE

3
SEQ 0031

002014

000000

002016

EM66

002024

022452
024064
024612
000000

002026
002030
002032
002034

022510
024064
024612
000000

EM67
DH6
DT6

;"'TESTA ERR PC
RCSR"
,RCSR
;STESTN,SERRPC

002036
002040
002042
002044

022553
024064
024612
000000

EM70

;"'READING RBUF DID NOT CLEAR RCVR DONE''

002046
002050
002052
002054

022620
024064
024612
000000

EM71

002056
002060
002062
002064

022767
024064
024612
000000

EM72

002066
002070
002072
002074

022662
024064
024612
000000

EM73

002076

022720
024064
024612
000000

EM74

022767
024064
024612
000000
023016
024064
024612
000000

EM75

(v v W
02
WV

$ooSEEESESE

o®

wro

WIN NN
NN~~~=
SN

o oo
o

W NN NN

— il D el e il i D e e —d D el il il il D il el il i D el el e i D D e i i D e e e i D D e i i D i e e

&S OO NNV AW
awowg W — O 000 ~NO VN & r0 —

N N N N N N N NN NN

MACY11 30A(1052)
MAIN,
10-JUN-80
10-JUN-80 15:20
(ZDLDE PN

023042
024064
024612
000000
002136
002140
002142
002144

023107
024064
024612
000000

DH6
DTé

DH6
DT6

;"'RESET DID NOT CLEAR RCVR DONE''
;"'TESTH ERR PC
RCSR"
PC,RCSR
;STESTN,SERR

:"'RDR ENABLE SET DID NOT CLEAR RCVR DONE'

;"'TESTH ERR PC
RCSR''
,RCSR
;STESTN,SERRPC

;"'RCVR INTERRUPTS WITH ENABLE
;"'TESTH ERR PC
RCSR"

CLEAR'

PC
,RCSR
;STESTN,SERR

;"RCVR DID NOT INTERRUPT"
;"'TEST# ERR PC RCSR"

,RCSR
;STESTN,SERRP(C

;"'RCVR INTERRUPTS AT PRIORITY 7
;"'TESTH ERR PC RCSR"
PC
,RCSR
;STESTN,SERR

;"'RCVR INTERRUPT REQUEST PASSED WITH ENABLE CLEAR"
;"'TESTH ERR PC

RCSR"

PC
,RCSR
;STESTN,SERR

:"'RCVR DID NOT INTERRUPT''
;"'TESTH ERR PC RCSR"

DH6
DTé
0

,RCSR
SSTESTN,SERRPC

DH6
DTé

;"'TESTH# ERR PC
RCSR"
,RCSR
;STESTN,SERRPC

EM77

;"'READING RBUF DID NOT CLEAR INTERRUPT"
;'TESTH ERR PC RCSR"

EM76
0

DH6
DTé

EM100

DH6
DT6

;"'RECEIVER RE-INTERRUPTED"

PC
,RCSR
;STESTN,SERR

;"RESET DID NOT CLEAR RCVR INTERRUPT'
;'TESTH ERR PC RCSR"
,RCSR
;STESTN,SERRPC

MACYT 30A(1052)
.MAIN,
10-JUN-80
10-JUN-80 15:20
CZDLDE L1

002146

3
SEQ 0032

;"""OR" FLAG DID NOT SET"
;STESTN,SERRP(C
,R(SR

002156
002160
002162
002164
002166
002170
002172
002174

023200
024064
024612

002176
002200
002202
002204

023275
024064
024612
000000

;"BREAK DID NOT SET FRAMING ERPROR''
;"'TESTH ERR PC RCSR"

002206
002210
002212
002214

023332
024320
024702
000000

:"'DATA COMPARE ERROR''

002216
002220

002222
002224

023355
024320
024702
000000

002226
002230
002232
002234

023413
024064
024612
000000

;"'TIMEOUT IN EXERCISER TEST"
;"'TESTH ERR PC RCSR"

002236

023445
024 364
024716
000000

;""INCORRECT RECEIVE COUNT

023475
024320
024702
000000

:"'DATA COMPARE ERROR IN EXERCISER"
;'TESTH ERR PC RCSR
600D
BAD"'

;"'TEST# ERR PC RCSR 6OOD
;$TESTN,SERRPC ,RCSR,GD,BD

BAD'

:"'DATA COMPARE ERROR WITH CABLE"

;"'TESTH ERR PC
RCSR
600D
;S$TESTN,SERRPC ,RCSR,GD,BD

BAD"'

;STESTN,SERRPC
,RCSR

;"'TESTH ERR PC

RCSR

TRANS

RCV"'

;STESTN,SERRPC ,RCSR,XMTCNT ,RCVCNT

—

LSLNLN)
w

—~I=

—

:"'TRAP CATCHER'

;''NO CLK INTERRUPT IN EXERCISER"
J'TESTH ERR PC LKS"

OO
—

oooOom

—,
2

;STESTN,SERRPC ,RCSR,GD,BD

023610

RCSR"

PC
,RCSR
;STESTN,SERR

—

002276

;"'TESTH ERR PC

;STESTN,SERRPC
,RCSR

ooom

024136

024632
000000

;'""ERROR' NOT SET WITH "OR' FLAG"

;'"BREAK DID NOT TRANSMIT ALL ZEROES'
;'TESTH ERR PC RCSR DATA"
;STESTN,SERRPC ,RCSR,$BDDAT

—

023552

EM102

DH6
DTé

000000
023237
024263
024670
000000

023535
024430
024732
000000

1459
1460

EM101

DHé
DTé

laal

D anl
sl

D il ol
D

o
O

il
il

D o

Pl o

ok o

002154

023152
024064
024612
000000

15:21
PAGE 33
ERROR POINTER TABLE

;'TESTA

ERR PC

RCSR

OLDPC

;STESTN,SERRPC ,RCSR,OLDPC ,BDVECT

TRAP ADR"

;STESTN,SERRPC,LKS

"ERROR' NOT SET WITH 'FR' FLAG"

10-JUN-80
MACY11 30A(1052)
MAIN.
10-JUN-80 15:20
CZDLDE. PN
1461
1462

1463

1464

1465

1466

1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491

-J-J-.-.—.—.—.ooog
OWVESsWN=O0~N

VAWWDA

e
e
R

VIV AWV

SEQ 0033

002300
002302
002304

024064
024612
000000

DH6

J"'TEST# ERR PC

002306
002310
002312
002314

023647
024064
024612
000000

EM115

:RCV ACTVIE NOT CLEAR WITH INIT

876

JSTESTN,SERRPC ,RCSR

002316

023706
024064
024612
000000

EM116
DH6

:RCY ACTIVE WITHOUT ''START'' BIT
J"'TESTH ERR PC RCSR"

002326
002330
002332
002334

023745
024064
024612
000000

EM117

;RDR ENABLE NOT CLEAR WITH RCV ACTIVE

876

JSTESTN,SERRPC ,RCSR

002336
002340
002342
002344
002346

000000
000000
000000
000000
000022
000010
000000
000000
000000
000000
000000
000000
000000
000000
000000
000044
000020

050136
047117
005015
027524

1505

15:21
PAGE 34
ERROR POINTER TABLE
816

DHé

;"'TEST® ERR PC

8T6

:"'TESTH ERR PC

; STORAGE LOCATIONS
FIRST:
.WORD
0

000012

LMWORD
.WORD
.WORD

O
0
0

;:TIMER LOOP COUNTER
;TIMER LOOP COUNTER
;STORAGE FOR LOCATIONS

ENDSTK:
JIMSTK:
SAVEPS:
OLDSUM:

.BLkW
.WORD
.WORD
.WORD

10
0
0
0

:JIMS SPECIAL STACK

2?2

;THAT T/E USES

(WRAP AROUND)

;SAVE PSW AREA
;CHECKSUM STORAGE

RCVCNT:
XMTCNT:

.WORD
.WORD

O
0

BUF :
CNTLP:
PROMPT:

.BLKW
LASCIZ
.ASCII

L4
<20>
/*P/<0><CR><LF>/CONSOLE/<CR><LF>/>>>/<377>

CLKCNT:
STPSW:
SRPSW:
SCPSW:

177476

RCSR"

LOCY:
LOC2:
SAVEO:

SAVLOC: .BLKW

041412
042514

RCSR"

JSTESTN,SERRPC ,RCSR

DHé

006400
047523
037076
006501

RCSR"

JSTESTN,SERRPC ,RCSR

.WORD
.WORD
.WORD
.WORD

O
0
O
O

TA:

JASCIZ

ST/AS<CR><LF>

.WORD
.WORD
.WORD

0
O
O

002616
002620
002622

000000
000000
000000

SECND:
OLDPC:
BDVECT:

002624

000000
000000
000000
000000

CTSTFL: ,WORD
O
;CONSLE UNDER TEST FLAG
TMP1:
.WORD
0
;TEMP LOCATION FOR TABLE OFFSETS
TMP2 :
.WORD
0
:TEMP LOCATION FOR DEVICE COUNT
TMP3:
0
LOCATlON FOR DEVICE MAP BIT TEST MASK
.WORD
;REGISTER AND VECTOR ADDRESSES FOR THE DL=-11W UNDER TEST

002632

LMAIN.

MACY11 30A(1052)

CZDLDE.P11

D i) D i

D i il

D i

1517

518
519
520
521
522
523
524
g%z

10-JUN-B0

15:21

10-JUN-80 15:20

002634
002636
002640
002642
002644
002646
002650
002652

000000
000000
000000
000000
000000
000000
000000
000000

RCSR:
RBUF:
TCSR:
TBUF :
RVECT:
RPSW:
TVECT:
TPSW:

g%g
529
530

PAGE 35

ERROR POINTER TABLE

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

SEQ 0034

O
0
O
0
O
0
O
O

;CONSOLE REGISTER AND VECTOR ADDRESSES FOR THE DL=-11W
002654
002656

177560
177562

CRCSR:
CRBUF:

;ADDRESS OF RECEIVER COMMAND/STATUS REGISTER
;ADDRESS OF RECEIVER BUFFER

002660
002662
002664
002666
002670
002672

177564
177566
000060
000062
000064
000066

538
539
540
gz;

002674
002676
002700

177546
000100
000102

;REAL TIME CLOCK REGISTER AND VECTOR ADDRESSES
LKS:
WORD
177546
RTCVT:
.WORD
100
RTCPSW: .WORD
102

002702
002742
003002
003004
003006
003010
003012

000020
000020
000000
176500
176502
176504
176506

ADRTBL:
VCTTBL:
FLAG44:
TURCSR:
TURBUF:
TUTCSR:
TUTBUF:

il i

D il

556

557

558

559

560
561
562
563

il i

566
567
568
569
570
571

572

177564
177566
60
62
64
66

.BLKW
.BLKW
.WORD
.WORD
.WORD
.WORD
.WORD

;ADDRESS OF TRANSMITTER COMMAND/STATUS REGISTER
;ADDRESS OF TRANSMITTER BUFFER
;RECEIVER INTERRUPT VECTOR
;:TRANSMITTER INTERRUPT VECTOR

20
20
O
176500
176502
176504
176506

:SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE
003014

012702

003024

010001

)

554

VONOWNSWN—=O

D il

543
544
545
546
547
548
549
55
55

W
o
N

D i

531
532
533
534
535
2;9

CTCSR:
CTBUF:
CRVECT:
CRPSW:
CTVECT:
CTPSW:

177560
177562

013700

002702

001142

003026

062701

000170

003034

062700

000010

005037
005037
005037
005037
005037
005037

001070
001066
001072
002624
001076
001100

003032
003040
003042
003044

003046
003052
003056
003062
003066
003072

003076

010022

020001
003773
000207

005037

003002

DEVADR: MOV

MoV

MOV
1%:

;POINT R2 TO THE DEVICE ADDRESS TABLE

RO,R1

RO, (R2)+

;MOVE DEVICE ADDRESS TO TABLE

$BASE , RO

ADD

#170,R1

ADD

#10,R0

(LR
CLR
CLR
CLR
CLR
(LR

SFATAL
SMSGTYP
STESTN
CTSTFL
$OEVCT
SUNIT

MOV
CMP
BLE
RTS

START:

#ADRTBL ,R2

CLR

RO,R1
1%
PC

FLAGALG

:LOAD BASE DEVICE ADDRESS IN RO

;POINT R1 TO LAST DEVICE ADDRESS
;POINT RO TO NEXT DEVICE ADDRESS

;FINISHED GENERATING TABLE?
:BR, IF LAST DEVICE ADDRESS NOT LOADED

:CLEAR
:CLEAR
sCLEAR
:CLEAR
;CLEAR
:CLEAR

ERROR NO.
MESSAGE TYPE
TEST NO.
CONSOLE UNDER TEST FLAG
DEVICE COUNT
UNIT NUMBER
_

;v CLEAR 11/44 (PU FLAG

MAIN.
MACY11 30A(1052)
10-JUN-BO
CZDLDE.PI
10-JUN-80 15:20

1573

003102

1575
1576

003110
003116

1574

}2;;

1579
1580
1581
1582
1583
1584
1585
1586
1587

1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607

005737

001112

012737
012737

000400
000006

003106

001003

003124

012737

003132
003136
003140
003144
003146

012706
005026
022706
001374
012706

001000

003152

012737

015272

003160
003166
003174
003202
003210
003216
003224
003232
003240
003244
003252
003260

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

003266
003272
003300

013746
012737
012737

1612
1613

003324
003326
003332
003334
003342

000403
012716
000002
012737

1616

003354

1608
1609
1610
1611
}g}g

1617
1618
1619
;ggg

000003

003306
003314
003322

003%S0
003360
003366
003370
002376

012737
022777
001012

15:21

001112
000004

000006

001040

001000

000340
014576
000340
017246
000340
015114
000340
014430
001060
000001
003252
003260
000004
003326
177570

177570
177777

000020

000022
000030
000032
000034
000036
000024
000026
014422
001015
001006
001010

000004
001040

001042
175516

003334

012737

001040
001042

005037

001074

000200

001107

001110

001040

132737
001403
012737

000004

$SUSWR

;1S SUSWR LOADED?

MOV
MOV

#400,SUSWR
n6, a4

“ELSE, DEFAULT TO SUSWR=400
CINITIALIZE TIMEOUT VECTORS TO TRAP

MOV

#3,306

‘BR

YES

CATCHER ROUTINE

LSBTTL
INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG,R6
::FIRST LOCATION TO BE CLEARED
CLR
(R6) +
::CLEAR MEMORY LOCATION
CMP
#SWR,R6 ;:DONE?
BNE
.6
::LOOP BACK IF NO
MOV
#1000, 5P
::SETUP THE STACK POINTER
;:INITIALIZE A FEW VECTORS
MOV
#$SCOPE
,a# 10TVEC ;;10T VECTOR FOR SCOPE ROUTINE
MOV
#340,a#I0OTVEC+2 ;:LEVEL 7
MOV
#SERROR,@PEMTVEC :;EMT VECTOR FOR ERROR ROUTINE
MOV
#340,30ENTVEC+2 ;:LEVEL 7
MOV
#STRAP,3#TRAPVEC ::TRAP VECTOR FOR TRAP CALLS
MOV
#340,# TRAPVEC+2; LEVEL 7
MOV
#SPWRDN, 3#PWRVEC ; ;POWER FAILURE VECTOR
MOV
#340,a#PWRVEC+2 ;:LEVEL 7
MOV
SENDCT,$EOPCT
::SETUP END=-OF=PROGRAM COUNTER
CLR
$ESCAPE
::CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,SERMAX
S ALLOW ONE ERROR PER TEST
MOV
#..SLPADR
:INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#..SLPERR
::SETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
“SEQUAL TO A *'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
SFERRVEC,-(SP)
;:SAVE ERROR VECTOR
MOV
#64S,QERRVEC
:;SET UP ERROR VECTOR
MOV
#DSWR, SWR
::SETUP FOR A HARDWARE SWICH REGISTER

MOV
CMP
BNE

#DDISP,DISPLAY
#-1,3SWR
66$
65%
#658, (SP)

65%:

BR
MOV
RTI
MOV

668

MOV

(SP)+,a#ERRVEC

;;RESTORE ERROR VECTOR

$PASS

::CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
SLYES,USE NON-APT SWITCH
SiNO,USE APT SWITCH REGISTER

67%:

MOV

CLR
BITB
BEQ
MOV

::AND A HARDWARE DISPLAY REGISTER
S:TRY TO REFERENCE HARDWARE SWR
::BRANCH IF NO TIMEOUT TRAP OCCURRED
SAND THE HARDWARE SWR IS NOT = =1
::BRANCH IF NO TIMEOUT
:3SET UP FOR TRAP RETURN

#SWREG, SWR
::POINT TO SOF TWARE SWR
#DISPREG,DISPLAY

#APTSIZE,SENVM
67%
#SSWREG, SWR

:SIZE FOR 11/44 CPU

}ggg
1624
1625
1626

003376
003402
003410

1628

003416 001007

1627

1%:

SEQ 0035

BNE

648

000176
000174

012637

PAGE 36
ERROR POINTER TABLE

003412

013746
012737
000007

122700

000010
003430

000001

000010

MOV
MOV
MFPT

ano,-(sp)
#10%,a#10

BNE

(MPB

#1,R0

;*+ SAVE VECTOR
tes SET UP FOR TRAP
;e WHAT CPU??

tee ARE WE A 11/44

ie¢ NO GO RESET VECTOR

JMAIN. MACY11 30AC1052)
10-JUN-80
CZDLDE P11
10-JUN=-80 15:20
1629

1630

1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642

}gzz

1645
1646
1647
1648
1649
1650

1651
1652

1653
1654
1655
1656

1657
1658
1659
1660
1661
1662
1663
1664
}ggz

003420

ooxa%e

003430
003434
003436
003442
003450
003452
003456
003462
003470
003472
003500
003502

003510

003512
003516
003522
003526
003532
003540

003544
003550
003552
003556
003562
003566

003572

003576

052737

000001

012716
000002
012637
032777
001404
005237
000137
132737
001404
132737
001056
032777

003436

004737
005037
005037
013703
012737
013700

003014
002630
001144
000004
003562
001142

000403

001052

062700
005710

003634

000415

1669
1670
1671
1672

003636
003642
003646
003650

005037
013702
005702
100002

003652
003656
003660
003662
003664

001106

000200

001107

000040

175330

005237
006302
001401
000771
004737

118:

INIT:

MANL:
SIZE:

000004

000160

001142

}gg;

1673
1674
1675
1676
}g;;

002624
004620
000001

023700

003762
013700
012737
005710
005237
005237
010337

108:
175370

001144
002630
001000
001144

003602
003604
003610
003616
003620
003626
003630

003002

000010
000020

005237
005237
012706
006337

162700

15:21
PAGE 37
INITIALIZE THE COMMON TAGS

3%:
4$:

000010

002654
003630
001144
002630
000004

002630
001144

002630

003014

}g;g

000004

BIS

#1,30FLAGLGL

;e YES SET FLAG

MOV
RT]
MOV
BIT
BEQ
INC
JMP
BITB
BEQ
BITB
BNE
BIT

0118, (SP)
(SP)+,an0
#BIT4.aSWR
INIT
CTSTFL
10
#BITO,SENV
MANL
#BIT7,$ENVM
APTS2D
#BITS,aswR

tex SET STACK RETURN
ies RETURN
tex RESTORE VECTOR
STEST CLOCK ONLY?
:BR IF NOT
‘ELSE, SET CONSOLE TEST FLAG TO ENABLE CLOCK TESTS
:
AND JUMP TO TYPE PROGRAM 1D
SCHECK IF ON APT
:BR IF NOT APT
:DID APT SIZE
:BR, IF APT SIZED
‘WAS ‘'SDEVM'' MANUALLY SET?

JSR
CLR
CLR
MOV
MOV
MOV

PC,DEVADR
TMP2
$DEVM
anG ,R3
8N4
$BASE ,RO

:GENERATE DEVICE ADDRESS TABLE
*CLR TEMP LOCATION 10 KEEP DEVICE COUNT
:CLEAR DEVICE MAP
:SAVE TIMEOUT VECTOR
:SET TIMEOUT POINTER
:LOAD BASE ADDRESS

INC
INC
MOV
ASL

$DEVM
TMP?
#1000, SP
$DEVM

SINDICATE DEVICE EXISTANCE IN DEVICE MAP
:INCREMENT DEVICE COUNT
:RESET STACK POINTER
SADJUST DEVICE MAP FOR NEXT UNIT CHECK

BNE

ADD
ST

DVADT:

APTS2D

#160,R0
(R0)

iee SKIP RTI

“1F YES, SKIP SELF=SIZING

*POINT RO TO UNIT #15 (UNIT#0=CONSOLE)
:CHECK FOR DEVICE EXISTANCE

SUB
CMP
BLE
MOV
MOV
ST
INC
INC
MOV

#10,R0
$BASE ,RO
3s
CRCSR,RO
#5804
(RO)
$DEVM
TMP2
R3, N4

VCTADR

:BR TO GENERATE VECTOR ADDRESS TABLE

TMP2
$DEVM,R2
R2
1%
TMP2
R2
DVADT
TSTOVM
PC,DEVADR

:CLEAR TEMP LOCATION TO KEEP DEVICE CNT
:MOVE DEVICE MAP TO R2
STEST MSB OF DEVICE MAP
:BR, IF MSB IS ZERO

APTS2D: CLR
MOV
TSTDVM: TST
BPL

1%:

SEQ 0036

INC
ASL
BEQ
BR
JSR

*POINT RO TO NEXT DEVICE NUMBER
SFINISHED SIZING?
‘BR, IF BASE ADDRESS HAS NOT BEEN CHECKED
:LOAD CONSOLE DEVICE ADDRESS
SSET UP TIMEOUT POINTER
STEST FOR CONSOLE EXISTANCE
:INDICATE CONSOLE EXISTANCE IN DEVICE MAP
- INCREMENT DEVICE COUNT
*RESTORE TIMEOUT VECTOR

:INCREMENT DEVICE COUNT, IF MSB=1
SSHIFT NEXT BIT INTO MSB POSITION
:BR, IF NO OTHER BITS ARE SET IN $DEVM
SCONTINUE CHECKING SDEVM, IF MORE BITS SET
:GENERATE DEVICE ADDRESS TABLE

:GENERATE VECTOR ADDRESS TABLE

1681

003670

012702

002742

VCTADR: MOV

#VCTTBL,R2

:GET LOCATION OF VECTOR TABLE

1683

003700

042700

177000

BIC

#177000,R0

:CLEAR BYTE SIGN EXTENSION

1482 003674 013700 001136
1684

003704

010001

MOV
MOV

arSVECTT RO
RO,R1

:COPY BASE VECTOR
:

11 40E0

SiesED

MAIN.
CZDLDE

10-JUN-80
MACY11 30A(1052)
10-JUN-80 15:20

1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696

000170

000010

15:21
PAGE 38
INITIALIZE THE COMMON TAGS
1%:

ADD

#170,R1

:POINT R1

ADD

#10,R0

*POINT RO TO NEXT VECTOR ADDRESS

MOV

CMP
BLE

003773

013700
005001
000300

002630

MOV
CLR
SWAB
ASL
ASL
ASL
ROLB

000060

§N

001764
010137
052737
005037

032737
001001

TO LAST DEVICE VECTOR

‘PUT VECTOR ADDRESS IN TABLE

RO,R1
1%

024542
000002
002626
000001

BEGIN:

002624
002654
002634

TCONS:

SEXSN=SR 8 &

000137

004172

033737

002632
002632
000002
001100

1%:

BEQ
MOV

SHIFT
R1,MZA

‘FINISHED GENERATING VECTOR TABLE?
‘BR, IF LAST VECTOR IS NOT LOADED

#B1T4,R1

;COPY DEVICE COUNT INTO RO
:CLEAR AUXILARY REGISTER
‘PUT DEVICE COUNT IN UPPER BYTE OF RO
:MOVE MSB OF COUNT INTO
:MSB OF RO
:PUT MSB OF COUNT INTO CARRY
‘MOVE MSB OF COUNT INTO R1
:MOVE NEXT BIT TO CARRY

:MOVE INTO R1
:MOVE LAST BIT OF DIGIT
YINTO R1
:CONVERT DIGIT TO ASCII
‘MOVE DIGIT TO UPPER BYTE

*HAVE BOTH DIGITS BEEN MOVED TO R1?

:BR, IF NOT
‘MOVE DEVICE COUNT TO OUTPUT MESSAGE

BIS
CLR
BIT
BNE
BR
INC

#BIT1,TMP3
TMP1
#B1T0,$DEVM
TCONS
TSTDEV
CTSTFL

:SET UP BIT MASK TO TEST SDEVM FOR DEVICES EXCEPT CONSOL
:CLEAR LOCATION TO STORE TABLE OFFSETS
‘1S CONSOLE TO BE TESTED?
:BR, IF CONSOLE IS TO BE TESTED
‘BR. TO TEST OTHER DEVICES
:INDICATE CONSOLE UNDER TEST

CMP
BGE
JMP

#TPSW.R
1%
ST

‘FINISHED TRANSFER?
:BR, IF NOT
160 TEST CONSOLE INTERFACE

MOV
MOV
MOV

#CRCSR,RO
#RCSR, R
(RO)+. (R1)+

:SET UP CONSOLE DEVICE ADDRESSES
:POINT R1 TO UUT ADDRESS TABLE
:TRANSFER CONSOLE ADDRESSES

:PREPARE ADDRESSES AND VECTORS FOR UUT

TSTDEV: BIT
BNE
ASL
ADD
INC
BR

TMP3, $DEVM
SETADR
TMMP3
#2,TMP1
SUNIT
TSTDEV

:CHECK TO SEE IF DEVICE IS TO BE TESTED
‘BR, IF YES
SSHIFT MASK TO CHECK NEXT SDEVM BIT
*INCREMENT TABLE INDEX
:INCREMENT UNIT NUMBER
160 TEST NEXT BIT OF DEVICE MAP

SETADR: INC
ASL
MOV

SUNIT
TMP3
TMP1,R2

;UPDATE UNIT NUMBER
SUPDATE DEVICE MAP TEST MASK
:MOVE TABLE OFFSET TO R2

ADRTBL(R2)
RO
#RCSR,R1

:PUT UUT ADDRESS INTO RO
*POINT R1 TO STORAGE AREA FOR UUT ADDRESSES

ADD

000002
000006

TMP2,R0
R1

ROLB
ASL
ROLB
ADD
SWAB

BIT

000020

002652

BRRRRREE : g

LL L

SIFRRURZE WO NOWNSWN =2OO0®NO NS W

D
i
) D i
i
i
il il i
il i
D i
dh i
i
D i
i
D
i el

-0

VPO NINININIPONININ)
b b e e ed
s
b b

D i

(R2)+

RO
RO
RO
Rl
RO
R
RO
R1
#60,R1
R1

ASL

NNNNNNNNNNNNSNSNNSNNSNSNNNNNNNNNNNSNSN

RO,

:MOVE DEVICE COUNT INTO DEVICE COUNT MESSAGE

SHIFT:

—

SEQ 0037

ADR:

MOV
MOV

MOV
ADD

BIT

#2,THAP1

RO, (R1)+
#2,R0

RO, #6

:UPDATE TABLE OFFSET FOR NEXT DEVICE
:TRANSFER UUT ADDRESS

;POINT TO NEXT UUT REGISTER

;FINISHED TRANSFER?

MACY11 30A(1052)
10-JUN-80
.MAIN,
CZDLDE P11
10-JUN-80 15:2 0
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750

004144

001372

004146
004152
004154
004160
004164
004166

016200

002742
000002
000006

000137

004172

15:21
PAGE 39
INITIALIZE THE COMMON TAGS

VECT:

SEQ 0038

BNE

ADR

:BR, IF NOT

MOV
MOV
ADD

VCTTBL(R2)
,RO
RO, (R1)+
#2,R0

;PUT UUT VECTOR INTO RO
s TRANSFER UUT VECTORS TO ACTIVE TABLE AREA
sPOINT TO NEXT VECTOR

BIT

BNE
JNP

RO,#6
VECT
ST

sFINISHED TRANSFER?

sBR, IF NOT
;GO TEST DEVICE

MACY11 30A(1052)
10-JUN-80
MAIN,
10-JUN-80 15:20
CZDLDE.P11

15:21
PAGE 40
INITIALIZE THE COMMON TAGS

AARA

J*TEST 1
M

004172
004174

000004
013703
000412
022626
005737
001002

000004
004214

176426

TST1:
000004

SCOPE

AR A

:SAVE TIMEOUT VECTOR

e N
aTCSR

JSR

PCLSATYA

3%:

HALT

MOV

*SET UP TIMEOUT VECTOR
*REFERENCE THE XMIT COMMAND/STATUS REG.

G ,R3

BNE
2%
ERROR+1
BR
48

4s:

MOV

(SP)+, (SP)+
CTSTFL

015462

TEST ABILITY TO REFERENCE TCSR

CMP
ST

000004

AR A

MOV
ST
18

002624

104001
000404

004737
000001
000000
010337

AR AR AR

AR A

SEQ 0039

GO TO END OF

TEST

;RESTORE SP AFTER TIMEOUT
SCHECK IF DEVICE IS CONSOLE

*IF YES, SKIP ERROR TYPEOUT
:REPORT ERROR TO APT & TTY
:BR TO END OF TEST

::ONLY REPORT A FATAL ERROR
P:THE ERROR NUMBER

R3,aN

:RESTORE

(FROM APT LIST)

TIMEOUT VECTOR

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

SATEST 2

000004
013703
012737
005777
000412

022626
005737
001002

000004
004266
176356

002624

104002

000404

004737

015462

010337

000004

TEST ABILITY TO REFERENCE TBUF

AL AL AR AL AR AR

TST2:

000004

SCOPE

MOV
MOV
TST

BR
1%:

CMP

AR AR

R AR

aN4 ,R3
S, an

sSAVE TIMEOUT VECTOR
JSET UP TIMEOUT VECTOR

;G0 TO END OF

a TBUF

JREFERENCE

THE

XMIT BUFFER

TEST

(SP)+,{SP)+

JRESTORE

BNE

;IF YES, SKIP ERROR TYPEOUT

JSR
2
:

PC,3ATYS

MOV

R3,a04

1ST

ERROR+?2

4%:

HAL

CTSTFL

sCHECK

SP AFTER TIMEOUT
DEVICE

CONSOLE

sREPORT ERRGR TO APT & TTY
:BR TO END OF

TEST

;:;ONLY REPORT A FATAL ERROR
;. THE ERROR NUMBER (FROM APT LIST)
JRESTORE

TIMEOUT VECTOR

——

JAIN.

MACY1T 30A01052)

CZDLDE.P1Y

10-JUN-B0

10-JUN-B0 15:20

15:21

1794
1795

PAGE 41

TEST ABILITY TO REFERENCE TBUF

SEQ 0040

1796

R
L A A R
AL

1798

1797

JeTEST 3

1799
1800

004316
004320

000004
000005

032777
0014M

000004

1804
1805
1806
}38;

004332
004336
004340
004342

005737
001002
104015
000404

002624

1809

004344

1811

004344

004350

004737

015462

004352

000000

1814
1815
}g}g

904354
004362
004370

052777
032777
001001

;g}g

004372

104016

1820
1821
}g%%

004374
004402
004410

042777
032777
001411

000004
000004

1824
1825
1826
1827

00§412
004416
004420
004422

005737
001002
104017
000404

002624

1829
1830
}g;;

004424
004430
004432

004737
000017
000000

015462

1833
1834
1835
}g%?

004434
004442
004444
004452

052777
000005
032777
001404

0000064

176176

000004

176166

1838

004454

042777

000004

176156

1801
}gg%

1810

}g}%

1828

1839

}%’29
1842

1843

00‘3%2
004330

004424

004462
004464

000015

104020

1S13:

000004
000004

176310

BIT
BEQ

1%:

176256
176250

#BIT2,8TCSR
3

JSR

2%:

HALT

3%:

BIS
BIT
BNE

#BIT2,aTCSR
#BIT2,3TCSR
4%

176236
176230

4%:

BIC
BIT
BEQ

5%:

6%:

000240

7%:

R A

:TEST FOR BIT2 OF TCSR CLEAR
:BR IF CLEAR
;CHECK IF DEVICE IS CONSOLE
;1F YES, SKIP ERROR TYPEOUT
;BIT2 OF TCSR NOT CLEAR AFTER RESET

:;ONLY REPORT A FATAL ERROR

:sTHE ERROR NUMBER (FROM APT LIST)
;SET BIT2 OF TCSR
;TEST FOR BIT2 SET
:BR IF SET

;BIT2 OF TCSR WILL NOT SET

#BIT12,aTCSR
#BIT2,aTCSR
7%

;CLEAR BIT2 OF TCSR
sTEST BIT2 CLEAR
:BR IF CLEAR

1ST
CTSTFL
BNE
5%
ERROR+17
BR
7%

sCHECK IF DEVICE IS CONSOLE
:1F YES, SKIP ERROR TYPEOUT

JSR
17
HALT

PC,8ATY4

::ONLY REPORT A FATAL ERROR
::THE ERROR NUMBER (FROM APT LIST)
:BITO OF TCSR WILL NOT CLEAR

BIS
RESET
BIT
BEQ

#BIT2,a9TCSR
#BIT2,aTCSR
10%

sSET BIT2 OF TCSR
;CLEAR BIT2 WITH RESET
:TEST FOR BIT2 CLEAR
;*+ |F CLEAR, GO TO NEXT TEST

BIC

#BIT2,3TCSR

:CLEAR BIT2, TO PRINT ERROR

ERROR+20

108:

sCLEAR EVERYTHING

PC,SATYS

ERRCR+16

;RESET DID NOT CLEAR BIT2 OF TCSR

NOP

HLA

Lt
R R R A L LA A AR

1844

1847
1848
1849

SCOPE
RESET

TEST THAT BIT2(MAINT, BIT) CAN BE SET & RESET

TST
CTSTFL
BNE
1%
ERROR+15
3%
BR

;*TEST &

TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED

R R ARl
R
R

1845

1846

004466

004470
004476
004502

000004

052777
005077
105777

000004
176140
176132

176142

TST4:

SCOPE

BiS
CLR
1STB

#B112,9TCSR
a TBUF
a1(CSR

v+ ENABLE MAINT. WRAP
:LOAD XBUF
;sCHECK DONE

JAAIN,

MACYYT 30AC1052)

CZDLDE .P11
1850

1851

185
1853
1854

10-JUN-B0

10=JUN=-80 15:20

004506

15:21

100021

PAGE 42

TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED

BPL

sFILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE
;
FIRST TEST TO FA
sFILL DOUBLE BUFFER
:CHECK DONE

005077
105777
100014

176126
176120

CLR
1STB
BPL

aTBUF
aT(SR
3%

004522
004526
004530

(05737
001005
042777

002624

TST
BNE
BIC

CTSTFL
1%
#BIT2,9CTCSR

1864
1865
1866

004536
004540
004542
004542
004546

104003
000404
004737
000003

1868

004552

005000

1857
1858
1859
1660
1861
1862
1863

1867

1869
1870
1871
}g;g

004550

004554
004560
004562
004564

002624

004602
004604

104004
000405

1882
1883

004606
004612

004737
000004

1885
1886
1887

004616

000427

1888
1889

1890
1891
1892
1893
1894
1895

1896

1897
1898
1899

1900

004614

004620

000004

3%:

A ¥

000000

000004

176032

004626
004634
004636

023737
001412
005737

000042

000046

004644
004650
004652

005737
001004
104401

001076

004642

004656

1903
1904
1905

004662
004670
004672

004660

001007

ID:

001074

024540

:CLEAR TIMER

TST

CTSTFL
5%
#B1T2,aCTCSR

;CHECK IF DEVICE IS CONSOLE

1STB
BMI
INC
BNE

:2ONLY REPORT A FATAL ERROR
::THE ERROR NUMBER (FROM APT LIST)

“TCSR "'DONE'' NOT CLEARED WITH TBUF FULL

aTCSR
ID
RO
4%

ERROR+4
BR
ID

:CHECK FOR XMIT DONE
:1F DONE SETS, BR TO END OF TEST
;INCREMENT TIMER
;BR IF TIMER NOT DONE

s+ DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
e« WITH TERMINAL.
;TCSR "'DONE'' DOES NOT SET
;BR TO END OF TEST

JSR
4

PC,EATY4

ENDB7

;*+ BR TO NEXT TEST,
s+ AND SKIP THE TYPEOUT THAT FOLLOWS
s
BECAUSE OF THIS FAILURE

BIC

#BIT2,aCTCSR

CMP
BEQ
IST

42 ,anub
6%
$PASS

s+« DISABLE MAINTENANCE MODE FOR
o+ CONSOLE TO ALLOW FOR COMMUNICATION
ot WITH TERMINAL.
:UNDER ACT11?
:1F YES, SKIP IDENT. TYPEOUT
;1S THIS THE FIRST PASS?

TST
BNE
TYPE

$DEVCT
6%

000020
005536

174150

6%:

BIT
BEQ
JMP

::ONLY REPORT A FATAL ERROR
::THE ERROR NUMBER (FROM APT LIST)

:1F NOT BR TO NEXT TEST & SKIP THE IDENTIFICATION TYPEOU
:1S THIS THE FIRST SUBPASS?
:1F NOT, BRTO NEXT TEST
:TYPE PROGRAM INDENTIFICATION
3

;TYPE NUMBER OF DEVICES UNDER TEST

TYPE

104401

032777
001402
000137

CLR

HALT

BNE

024502

;CHECK IF DEVICE IS CONSOLE
:1F YES, SKIP ERROR TYPEOUT
." DASABLE MAINTENANCE MODE FOR
s** CONSOLE TO ALLOW FOR COMMUNICATION
s+ WITH TERMINAL.
;DONE NOT CLEARED WITH TBUF FULL
:BR TO END OF TEST

PC,8ATY4

HALT

042777

:BR IF CLEAR

JSR
3

BIC

5%:

015462

ERROR+3
BR
3%

BNE

176056

004620

1901

1902

2%:
176060

005737
001005
042777

1884

1%:

015462

105777
100417
005200
001373

004566
004572
004574

004606

176122

000000

1874
1875
1876
1877
1878
1879
1880
1881

000004

SEQ 0041

:BR IF CLEAR

004510
004514
004520

}ggz

#BI1T4,aSWR
ENDB7
TCLOCK

;CLOCK TEST ONLY?
;e¢ BR IF NOT
:ELSE, JUMP TO TEST CLOCK

10=JUN-80
MACY11 30A(1052)
MAIN,
:
10-JUN-80 15:20
CZDLDE.P1Y

OO NO VNS WN—=O

b b s b ed
o
s o o
WO PORNIPNINIPIPIN

(=1, "N}VB WN

e
e
i
D
il
D
D el
il
il
il
D
s

[

VOO0 VOO OVOOOOVOOOOOVOOOO

1907
1908

1931
1932

004676
004676
004700
004704
004706
004710
004712

005000
012701

005300
001376
005301
001374

15:1

D 4
PAGE 43
TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF

ENDB7:
000002

(LR

40%:

DEC

SOTEST S
AR

004714
004716
004724
004730
004734
004736
004742
004744
004746
004752

000004
052777
005077
105777

004754
004756

104005

100375

005077
000240
000005

105777

100401

000240

000004

175712
175704

175714

1§15
1%:

SCOPE
BIS
CLR
1STB
BPL

NOP
RESET
1STB
BMI

175666

108:

ERROR+5

NOP

RN EE R

TO HARDWARE MEDIA SUCH AS TUS58 THAT MIGHT
BE ATTACHED TO UART UNDER TEST.

R R R RN R R RN RRRAARARIRRORROERRROERS

TEST THAT TCSR ''DONE'' SETS WITH RESET

RN R

CLR

175700

40%

RN R RN R

RN R RN

v THAY MIGHT BE IN THE PROCESS OF BEING
TRANSMITTED TO FINISH BEFORE MAINTENANCE
e WRAP FOR THE UART UNDER TEST IS DISABLED.
LA
THIS WILL INHIBIT ANY COMMUNICATION

#2.R1
RO
40%

BNE
DEC
BNE

cae DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS

MOV

[S LOADED

RPN RN RN RNARARRRRARRARARROACERORAROIOEROEOTOSE

#BIT2,39TCSR
9 TBUF
?ICSR

;** ENABLE MAINT. WRAP
;LOAD TRANSMIT BUFFER
;WAIT FOR DONE

aTBUF

;LOAD SECOND BUFFER

aTCSR
108

;CHECK FOR DONE SET
;** BR TO NEXT TEST

;CLEAR DONE WITH RESET
IF DONE SET

;TCSR "'DONE'' DOES NOT SET WITH RESET
*he

SEQ 0042

MACY11 30A(1052)
10-JUN-B0
10-JUN-80 1 5:20
CZDLDE.P11
.MAIN,

15: 21

1933
1934

1935
1936
1937
1938
1939
1940
1941
1942

1943

1944
1945
1946
1947
1948
1949
1950
1951
1952

1953
1954
1955
1956
1957
1958
1959

1960
1961
1962
1963
1964

PAGE

TEST THAT TCSR "'DONE’" SETS WITH RESET

:"""'.'QQ"'t""""""""""""""t"."".'."'t'.""

SeTEST 6

TEST ABILITY TO ACCESS RCSR

';""'Q't"'Q.""""'""""""Q""."'Q"""Q"'"""'.'

004760

004762
004766
004774
005000
005002
005004
005006

000004

013703
012737
005777
000402

000004
005002
175634

iSTb:

104006

;SAVE TIMEOUT VECTOR
;SET UP TIMEOUT VECTOR

;BR TO END OF TEST

s, and
aRCSR

;ACCESS RCSR

;RESTORE SP AFTER TIMEOUT
(SP)+,(SP)+
CMP
ACCESS RCSR
NOT
;CAN
ERROR+6

1%:

MOV

2%:

000004

a6 ,R3

MOV
TST

000004

022626

010337

SCOPE

MOV

R3,a#¢

;RESTORE

TIMEOUT VECTOR

::'Q""..t"Qtl"""'0""""'.Q.Q'Q'.'l""""""t"""Q"

;*TEST
e

005012
005014
005020
005026
005032

005034
005036
005040

000004
013703
012737
005777
000402

000004
005034
175604

022626

104007

010337

i§T7:
000004

2%:

ABILITY

TO ACCESS RBUF

SCOPE

MOV
MOV

ans ,R3
S, an

;SAVE TIMEOUT VECTOR
;SET UP TIMEOUT VECTCR

;BR TO END OF TEST

TST

1%:

000004

TEST

2222222223222 2223222222222
RtRRRR Rl

aRBUF

;ACCESS RBUF

(MP

(SP)+,(SP)+

;RESTORE SP AFTER TIMEOU'T

MOV

R3,an4

;RESTORE

ERROR+7

;CAN NOT ACCESS RBUF

TIMEOUT VECTOR

SEQ 0043

JMAIN, MACYYY 30A(1052)
10-JUN=-BO
CZDLDE.PI
10=JUN-80 15:20

15:21
17

1965

PAGE 45
TEST ABILITY TO ACCESS RBUF

SEG 0044

1966

;.-'Q'tttt"t't"""""""'t""""'lt'ttt'.'t'QQ""'Q"'Q"'

1967

;*TEST 10

1966

1969
1970
1971

005044
005046
005054

000004
032777
001475

1973

005064

001407

1972

005056

000400

173764

032737

000001

003002

005737

002624

}g;g

005066

1976

005072

001404

1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988

005102
005104
005106
005114
005116
005122
005124
005126
005130
005130

001462
000005
032777
001411
005737
001002
104011
000404

1977

1989
}gg?

00507&

005134
005136

032777

004737

000011
000000

1992
1993
}ggg

005140
005146
005154

052777
032777
001001

1996
1997
1998
1999

005156
005160
005166
005174

104012
042777
032777
001411
005737
001002

2000
2001
2002
2003
2004
2005

005176
005202
005204
005206
005210
005210

588;

005216

005214

2009
2010
2011
2012
2013
2014

005220
005226
005230
005236
005240
005246

052777
000005
032777
001404
042777
104014

2015

005250

000010

000001

CAN BE SET & CLEARED & RESET

SCOPE
BIT
BEQ

#8178,3SWR
10%

:IS BREAK FUNCTION ENABLED?
e« BR TO NEXT TEST, IF NOT

BEQ

e+ NO

BIT

BEQ

173736

175524

BIT
9%:

002624

1%:

015462

2%:
000001
000001

175472
175464

3%:

000001
000001

175452
175444

4§%:

002624

5%:

015462

000001

175412

000001

175402

000001

175372

000000

000240

TST10:

1ST

104013
000404
004737
000013

2006

TEST THAT BITO(BREAK BIT)

.';'QQQ.Q"Q"'tt"""""'t""QQQQQQtt"t"t't'ttt't"'ttt""'

#BITO,FLAGSLS
CTSTFL

#BIT03,aSwWR

BEQ
10%
RESET
BIT
#BITO,aTCSR
BEQ
3%
ST
CTSTFL
BNE
1%
ERROR+11
BR
3%
JSR

PC,SATYL

BIS
BIT
BNE

#BITC,aTCSR
#BIT0,aTCSR
4%

"
HALT

ERROR+12
BIC
#B1T0,aTCSR
BIT
#BIT0,aTCSR
BEQ
7%
TST
CTSTFL
BNE
5%

ERROR+13
B
7%
JSR
13

HALT

7%:

BIS
#BIT0,aTCSR
RESET
BIT
#BITC,aTCSR
BEQ
10%
BIC
#BIT0,aTCSR
ERROR+14
NOP

ML ;ES THIS IS 11744,
e

S THIS THE CONSOLE

;** NO

s THIS IS THE CONSOLE SLU.SHOULD THE BREAK
;e+ TEST BE PERFORMED
e+ NO
:CLEAR EVERYTHING
:CHECK BITO OF TCSR CLEAR
:BR IF CLEAR

:BITO WAS NOT CLEAR AFTER RESET
:;ONLY REPORT A FATAL ERROR

::THE ERROR NUMBER (FROM APT LIST)
;SET BITO IN TCSR
;TEST BITO OF TCSR
:BR IF SET
:BITO OF TCSR WILL NOT SET
:CLEAR BITO OF TCSR
;TEST BITO OF TCSR

:BITO OF TCSR WILL NOT CLEAR

PC,8ATYL

6%:

10%:

.-' IS THIS A 11/44

::ONLY REPORT A FATAL ERROR
::THE ERROR NUMBER (FROM APT LIST)

JSET BITO IN TCSR
sCLEAR BITO WITH RESET
;TEST BITO CLEAR
;** BR IF CLEAR
CLEAR BITO, TO PRINT ERROR
RESET DID NOT CLEAR BITO OF T(SR
.

JMAIN,

MACY11 30A(1052)

CZDLDE.P

10-JUN-BO

10-JUN-B0 15:20

15:21

2017
2018

110

PAGE 46

TEST THAT BITO(BREAK BIT) CAN BE SET & CLEARED & RESET

2019

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

2021

;;'.".Q"Q"'Q'""""""'Q'i".""".""""...'Q".'Q"Q"

2020

;*TEST N

2022
2023
2024
2025

005252
005254
005256
005262

000004
000005
017703
012777

2027
2028
2029
2030
2031
%8;%

005274
005276
005304
005306

000340
032777
001404
104021

005310

000402

2034
2035

005312
005314

022626
104022

2039
%82?

005324
005332

032777
001001

2042
%822

005334

104023

2045
2046
2047
204%

005336
005344
005352
005354

042777
032777
001401
104024

2052
2053
5822

005364
005366
005374

000005
032777
001401

2056

005376

104025

005400

010377

2026

005270

004737

TST11:

175366
005312

175360

000100

175334

014540

JSR

1%:

000100

aTVECT,R3
#18 ,9TVECT

PC,WRPSW

.WORD
340
BIT
#BIT6,ITCSR
BEQ
2%
ERROR+21

%8%?
2038 005316 052777 000100 175314 2%:
175306

000100
000100

175274
175266

3%:

000100

175244

5%:

;SET PSW TO PRIORITY=7

;TEST BIT6 OF TCSR
;BR IF ZERO

;BIT6 IN TCSR NOT CLEAR AFTER RESET
;RESTORE SP AFTER INTERRUPT

BIS
BIT
BNE

;SET BIT6 OF TCSR
;TEST BIT6 OF TCSR
:BR, IF SET

#BIT6,aTCSR
#BIT6,aTCSR
3%

BIC
#BIT6,aTCSR
#BIT6,aTCSR
BIT
4%
BEQ
ERROR+24

BIS
RESET
BIT
BEQ

MOV

;XMIT INTERRUPT OCCURRED PRIO=7
;CANNOT SET BIT6 OF TCSR

;CLEAR BIT6 OF TCSR
;TEST BIT6 OF TCSR
;BR IF CLEAR

; CANNOT CLEAR BIT6 OF T(SR

#BIT6,aTCSR
5%

;SET BIT6 OF TCSR
;CLEAR BIT6 WITH RESET
;TEST BIT6 OF TCSR
:BR IF CLEAR

R3,aTVECT

;CANNOT CLEAR BIT6 OF TCSR WITH RESET
;RESTORE XMIT VECTOR

#BIT6,aTCSR

ERROR+25

175244

;CLEAR EVERYTHING
;SAVE XMIT VECTOR
;SET UP INTERRUPT VECTOR FOR ERROR REPORT

(MP
(SP)+,(SP)+
ERROR+22

ERROR+23

3
582
2051 005356 052777 000100 175254 4$:
2057
2058

SCOPE
RESET
MOV
MOV

TEST THAT BIT6(XMIT INT EN) CAN BE SET & RESET

SEQ 0045

MAIN,

MACY11

CZDLDE.PT

10-JUN-80
10-JUN-80 15:20

30A(1052)

PAGE &7
15:%1
n
TEST THAT BIT6(XMIT

INT EN) CAN BE SET & RESET

:"."".""""""""'""""i""""t""'."""""""'

SeTEST 12
AR

005404
005406
005410
005414
005422
005426
005430
005436
005440

000004
000005
017703
012777
004737
000340
032777
001404
104026

005442

000402

005444
005446

022626
104027

005450
005456
005464

052777
032777
001001

005466

104030

005470
005476
005504

042777
032777
001401

005506

104031

005510
005516
005520
005526

052777
000005
032777
001401

005530

104032

005532

010377

T$§112:
175230

005444
014540

175222

000100

175176

175156
175150

SCOPE

RESET
MOV
MOV

JSR

BIT
BEQ
ERROR+26

1%:

000°00
000120

AR R R RN AR RN

2%:

TEST THAT BIT6 OF RCSR CAN BE SET & RESET
RN

R R

R RN RN R RN NN RRAARARARRARRRARARTRARRTOIRIROTTS

ORVECT,RY
#1%,3RVECT

PC,WRPSW

.WORD
340
#BIT6,aRCSR
2%

CMP

(SP)+,(SP)+

ERROR+27

BIS
BIT
BNE

175136
175130

3%:

BIC
BIT
BEQ

#B1T6,aRCSR
#BIT6,aRCSR
3%

175116

000100

175106

4%:

#BIT6,aRCSR
#B1T6,aRCSR
4%

:RESTORE SP AFTER

INTERRUPT

:SET BIT6 OF RCSR
;TEST BIT6 OF RCSR
;BR, IF SET

;CLEAR BIT6 OF RCSR
:TEST BIT6 OF RCSR
;BR, IF CLEAR

BIS
RESET

#BI1T6,aRCSR

BEQ

:BR,

R3,aRVECT

:CANNOT CLEAR BIT6 OF RCSR WITH RESET
;RESTORE RECEIVE VECTOR

B!T

5%:

;BIT6 OF RCSR NOT CLEAR AFTER RESET

:CANNOT CLEAR BIT6 OF RCSR

#B176,aRCSR

ERROR+3?
175106

;TEST BIT6 OF RCSR

;CANNOT SET BIT6 OF RCSR

ERROR+31

000100

:SET PSW TO PRIORITY=7

:RCVR INTERRUPT WITH PRIORITY=7

ERROR+30

000100
000100

sCLEAR EVERYTHING
;SAVE RECEIVE VECTOR
:SET UP INTERRUPT VECTOR FOR ERROR REPORT

MOV

;SET BIT6 OF RCSR
:CLEAR BITO60F RCSR WITH RESET

:TEST BIT6 OF RCSR
IF

CLEAR

SEQ 0046

SR&
U“fl\hU“fi\fiU“fi\thbl‘tflb“EMF‘“b&dVfldsfl:xflflhflvflflflflvfldhflvhdN"UN"U-‘—Mfl-‘—hfl-‘—hfl-‘CNDCDS!
WN 2O OV NO VNS WN =00V
NO VW00~V
NO NS WOV~

005536

012737

000012

15:21

001002

B e
D e

D e

D A

B Al

005544

000004

005737
001420
032777
001014
013703
012737
005777
000402

005604
005606

022626

005610

010337

THAT BIT6 OF

TST13:

002624
000100

173256

000004
005604

000004

175072

#12,8TSTNM

MOV

TEST ABILITY

000004

SEQ 0047

SET & RESET

;ADJUST TEST NUMBER TO (NEXT TEST = 1)

TO ACCESS LKS

SCOPE

RRRRRRR

)

BNE

#BIT6,aSWR
1ST14

;1S CONSOLE UNDER TEST?
;1F NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INHIBITED?
;1F YES, SKIP THIS TEST
;SAVE TIMEOUT VECTOR
;SET UP TIMEOUT VECTOR
;ACCESS LKS
;NO TIMEOUT = BR TO END OF TEST

CMP

(SP)+,(SP)+

;RESTORE

SP AFTER TIMEOUT

MOV

R3,a#4

;RESTORE

TIMEOUT VECTOR

CTSTFL

TST
BEQ

TST14

¥ ,RY
AR T
aLKS

MOV
MOV
TST

ERROR+10

2%:

BIT

1%:

104010

RCSR CAN BE

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

il 222

;*TEST

;CAN NOT ACCESS LKS

R AR
Rl

TEST

THAT BIT6 OF

LKS CAN BE

SET & RESET

D D e

';'..."Qti.""Q""""'""""i""'..t"."..'.t".""."..

D D e el

O NO VB WA = OOV

TCLOCK:

il il
B
D il
D
D il el
D il
Dl
el
il
D
D
D ol
il
D e o
—

PAGE 48
TEST

il il

D e

LSLSLNLNLNLNTNLSLSTNT NN STNT ST NS LNST NI STNTNIN LSS TS LSS LN ST NI ST ST ST NN ST SIS

112

;*TEST 13

—

ST NSNS ST NSNS TS LN LS LS 1S [N roro

MACY11 30A(1052)
10-JUN-80
MAIN,
:
10-JUN-80 15:20
CIDLDE.P11

005656
005664
005666

000004
005737
001460
032777
001054
000005
017703
012777
004737
000340
032777
001404

TST14:

002624

000100

SCOPE
TST

CTSTFL

BIT

#BIT6H,aSWR

TST15

;1S CONSOLE UNDER TEST?
;1F NOT, SKIP THIS TEST
ARE LINE CLOCK TESTS INHIBITED?
;1F YES, SKIP THIS TEST

BEQ

173206

BNE
RESET

TST15

005672
014540

175026

MOV
MOV

aRTCVT,R3

:SAVE LINE CLOCK VECTOR

PC,WRPSW

;SET PSW TO PRIORITY 7

000100

175010

BIT

#BIT6,aLKS

175034

JSR

BEQ

ERROR+33

104033

005670

000402

005672
005674

022626

005676
005704
005712

052777
032777
001001

005714

104035

005716
005724
005732
005734

042777
032777
00140

000100
000100

005736

052777

000100

1%:

104034

000100
000100

174770
174762

2%:

#1%,3RTCVT

.WORD

340

CMP

(SP)+,(SP)+

ERROR+34

BIS
BIT
BNE

#BIT6,aLKS
#BIT6,ALKS

LKS

;BIT6 OF LKS NOT CLEAR AFTER RESET
;RESTORE SP AFTER INTERRUPT

;SET BIT6 OF LKS
;TEST BIT6 OF LKS
:BR [F SET
;CANNOT SET BIT6 OF

LKS

;CLEAR BIT6 OF LKS

3%:

;TEST BIT6 OF

104036

4%:

;TEST BIT6 OF

;LKS INTERRUPT WITH PRIORITY=7

ERROR+35

174730

;SET UP INTERRUPT VECTOR FOR ERROR REPORT

BIS

#BIT6,aLKS

; CANNOT CLEAR BIT6 OF LKS

;SET BIT6 OF LKS

LMAIN,

MACY11 30A(1052)

CZDLDE.P11

10-JUN-B0

10-JUN-80 15:20

2159
2160
%}23

005744
005746
005754

000005
032777
001401

2163
2164
2165

005756

104037

005760

010377

000100

15:21

PAGE 49

#BIT6,aLKS
5%

FRROR+37
174712

5%:

TEST THAT BIT6 OF LKS CAN BE SET & RESET

RESET
BIT
BEQ

174720

MoV

R3,ARTCVT

;CLEAR BIT6 OF LKS WITH RESET
;TEST BITé OF LKS
:BR IF CLEAR

;CANNOT CLEAR BIT6 OF LKS WITH RESET
;RESTORE LINE CLOCK VECTOR

SEQ 0048

LMAIN,

MACY11 30A(1052)

CZDLDE.P11

10-JUN-80

10-JUN=-80 15:20

15:%}

2166
2167

PAGE 50

TEST THAT BIT6 OF LKS CAN BE SET & RESET

2168

R
R A
L R Ll

2170

T
L
R
Al

2169

;*TEST 15

2171
2172
2173
2174

005764
005766
005772
005776

000004
013703
013704
012737

2176
2177
2178
2179

006012
006014
006020
006026

000005
012700
032777
001404

2181

006036

000403

000004
000006
006130

TST15:

000004

2175 006004 012737 000340 000006

2180

006030

2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196

006040
006046
006054
006060
006066
006070
006074
006102
006110
006116
006120
006126
006130
006132
006134

2200
2201

006142

2204
2205

006144
006150

2197
g}gg

006136
006140

000002
000020

173012

013737

002674

001020

013737
013737
040037
023737
001002
050037
017737
052777
032777
001011
013777
000401
022626
006300
105700

002634
001020
001022
001020

001020
001022

091026
172712
172702

001024

172674

v ,RY
ar6 R4
AN LD

sSAVE TIMEOUT VECTOR
sSAVE TIMEOUT PSW
;SET UP TIMEOUT VECTOR

RESET
MOV
BIT
BEQ

#B1T1,R0
#B1T4,aSWR
1%

sCLEAR EVERYTHING
;SET UP BIT MASK
sCLOCK TEST ONLY?
;BR [F NOT

MOV
1%:
2%:

001022

001022
172722
000100
000700

TEST FOR DUAL ADDRESSING OF REGISTERS

SCOPE
[0}
MOV
MOV

MOV

3%:

4%:
5%:

100343
000401

MOV
MOV
BIC
CMP
BNE
BIS
MOV
BIS
BIT
BNE
MOV
BR
CMP
ASL
1STB
BPL
BR

6%:

104040

#340,a06

LKS,$SGDADR
2%

RCSR,$GDADR
$GDADR ,$BDADR
RO,$BDADR
$GDADR,$BDADR
3%
RO,$BDADR
@$BDADR,$GDDAT
#B1716,38BDADR
#B176,38GDADR
6%
$GDDAT,a$BDADR
5%
(SP)+,(SP)+
RO
RO
2%
7%

;KEEP PRIO=7

;ELSE, MOVE GOOD LKS ADDRESS INTO $GDADR
;MOVE GOOD RCSR ADDRESS INTO SGDADR
:MOVE GOOD ADDRESS INTO TEST ADDRESS LOCATION
:CREATE BAD ADDRESS BY COMPLEMENTING ONE BIT
JARE ADDRESSES IDENTICAL?
s1F NOT, TEST THIS ADDRESS
:ELSE, BIT SET THIS BIT POSITION TO GENERATE BAD ADDRESS
;SAVE CONTENTS OF BAD ADDRESS IF IT EXISTS
sSET BIT6 USING BAD ADDRESS
:CHECK TO SEE IF GOOD ADDRESS CONTAINS BIT6
:BR IF SET ===> ERROR
;RESTORE ANY MEMORY LOCATION THAT WAS ALTERED
sBR TO CONTINUE TEST
sRESTORE SP AFTER TIMEOUT
sSHIFT BIT MASK TO NEXT POSITION
;COMPLEMENTED ALL BITS FROM 1 - 77
;BR, IF NOT,
sBR TO NEXT TEST

sDUAL ADDRESSING ERROR
;$BDADR = DUAL ADDRESS

ERROR+40

:$GDADR = GOOD ADDRESS

%%8%
010337
010437

000004
000006

7%:

MOV
MOV

SEQ 0049

R3.a¥4
R4 ,aNb

;RESTORE TIMEOUT VECTOR
;RESTORE TIMEOQOUT PSW

L 4
15: 21
PAGE 51
n5
TEST FOR DUAL ADDRESSING OF REGISTERS

L2000 NOVSWN=O
NN
S

NN
NN
= b b D DD
b

NLNIN NN

38R

10-JUN-B0
MACY11 30A(1052)
10-JUN-80 15.20
CIDLDE.P11

222222222

TATEST 16

SEQ 0050

SRR iRttt
Rl Rll)

TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED

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

006154
006156
006162

006172
006174
006176
006202

000004
005737
001437
032777
001033
000005
105777
100401

006204

104041

006206
006214
006222
006224
006232
006240

042777
032777
001410
042777
032777
001401

006242

104042

006244

005000
105777

TST16:

002624

000100

TST

BEQ
BIT
BNE

172646

174472

SCOPE

1¢:

RESET
TSTB
BM]

CTSTFL
1ST17
#BIT6,aSWR
TS117

aLKS
2%

174460
174452

000200
000200

174442
174434

2s:

BIC
BIT
BEQ
BIC
BIT
BEQ

3%:

CONT:

YES, SKIP THIS TEST

;CLEAR EVERYTHING & SET BIT7 OF LKS
;TEST FOR BIT7 OF LKS
;BR IF SET

#BIT7,aLKS

;CLEAR BIT7 OF LKS

#BIT7,3LKS

;TRY ONE MORE TIME BECAUSE

§21T7,8LKS

gng?.iLKS

;TEST BIT7 OF LKS

;

CLR

;CLEAR TIMER

TST17
RO

;BR, IF SET
; INCREMENT TIMER

1STB

00625%

001373

BM]
INC
BNE

006240

104043

ERROR+43

THE CLOCK

MAY HAVE SET IMMEDIATELY AFTER THE FIRST CLEAR

;CAN NOT CLEAR BIT7 OF LKS

ERROR+42
174422

;1F

;BIT7 OF LKS DID NOT SET WITH RESET

ERROR+41

000200
000200

;1S CONSOLE UNDER TEST?
;1F NOT, SKIP THIS TEST
ARE LINE CLOCK TESTS INMIBITED?

alLKS
CONT

;TEST FOR BIT7 OF LKS
;CONTINUE UNTIL TIME EXPIRES

;BIT7 OF LKS DOES NOT SET

JMAIN. MACY11 30AC1052)
10-JUN-80
CZOLDE.P11
10-JUN-80 15:20
2239

22‘.0

: .'""Q'QQ""'Q'Q""""""""Q'l'"'i"'."."QQ"".'Q"Q"

2241
22‘2
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252

006262
006264
006270
006272
006300
006302
006306
006310
006314
006320

000004
005737
001505
032777
001101
004737
000340
017703
017704
012777

2255
2256
2257
2258
2259
ggg?

006342
006350
006354
006356
006360
006362

052777
105777
100375
000240
000240
000402

2262

006364

022626

2265
2266

006370
006374

005077
012777

2268
2269
2270
2271
2272
55;2

006406
006410
006414
006416
006420
006422

000240
105777
100375
000240
000240
000402

2275
gggg

006424
006426

022626
104045

2278

006430

012777

2282
%%gz

006456
006460

100375
000240

%ggz

006462

104046

2287
2288
2289
ggg?

006464
006466
006474
006500

022626
042777
010377
010477

2253 006326 012777
2254 006334 042777

gggz

2267

15:21
PAGE 52
116
TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED

006366

006402

002624
000100

172540

014540
174362
174360
006364

000340
000200
000100
174320

174350

174344
174332
174324

MOV
BIC

1$:

2%:

104044

004737

SeTEST 17
TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY
; :"""'.".".""'t""'t""'QQ""'."Q"'Q'.Q'Q"""."".
T§117:
SCOPE
TST
CISTFL
;1S CONSOLE UNDER TEST?
BEQ
15720
S1F NOT, SKIP THIS TEST
BIT
#B1T6,aSWR
*ARE LINE CLOCK TESTS INMIBITED?
BNE
18720
‘1F YES, SKIP THIS TEST
JSR
PC,WRPSW
*SET PSW TO PRIORITY 7
.WORD
340
MOV
aRTCVT,R3
;SAVE LINE CLOCK VECTOR
MOV
ARTCPSW, R4
:SAVE LINE CLOCK PSW VECTOR
MOV
#2%,3RTCVT
*SET RTC INTERRUPT VECTOR TO ERROR REPORT

174300
006424

014540

174274

174260

006464

:KEEP PRIORITY AT 7
:CLEAR CLOCK DONE FLAG

:GIVE TIME FOR ANY INTERRUPTS
*GIVE TIME FOR ANY INTERRUPTS
‘BR, IF NO INTERRUPT OCCURS

#BIT6.ALKS
aLKS
1%

(SP)+,(SP)+

CLR
MOV

aLKS
:DISABLE RTC INTERRUPTS & CLEAR DONE
#4$,aRTCVT
:SET RTC INTERRUPT VECTOR FOR ERROR

TSTB
BPL
NOP
NOP
BR

PC,WRPSW

JWORD
@LKS
208

240

*CHANGE PSW TO PRIORITY §

:WAIT FOR DONE (INTERRUPT REQUEST)

4$:

CMP
(SP)+,(SP)+
ERROR+4S

:RESTORE SP AFTER INTERRUPT
'RTC INTERRUPTS WITH INTERRUPTS DISABLED

58:

MOV

#7%,aRTCVT

:POINT RTC VECTOR TO END OF TEST

BPL
NOP

BIC
BIS
TSTB

#8177.,aLKS
#B1T6.3LKS
@LKS

ERROR+46
174200

:RESTORE SP AFTER INTERRUPT

'RTC INTERRUPTS AT PRIORITY 7

:GIVE TIME FOR ANY INTERRUPT
*GIVE TIME FOR ANY INTERRUPT
*IF NO INTERRUPT = BR TO CONTINUE TEST

2279 006436 062777 000200 174230
2280 006444 052777 000100 174222
2281 006452 105777 174216
6% :

000100
174176
174174

*SET INTERRUPT ENABLE
‘WAIT FOR RTC DONE(INTERRUPT REQUEST)

CMP

ERROR+44

JSR

208:

174240

BIS
TSTB
BPL
NOP
NOP
BR

#340,aRTCPSW
#BIT?,aLKS

7%:

CMP
BIC
MOV
MOV

*CLEAR CLOCK DONE FLAG
CALLOW INTERRUPTS
‘WAIT FOR RTC DONE

:GIVE TIME FOR INTERRUPT
:RTC INTERRUPT DID NOT OCCUR

(SP)+, (SP)+
#B1T6.aLKS
R3,IRTCVT
R& RTCPSW

:RESTORE
:DISABLE
‘RESTORE
‘RESTORE

SP AFTER INTERRUPT
INTERRUPTS
LINE CLOCK VECTOR
LINE CLOCK PSW VECTOR

SEQ 0051

LMAIN.

MACY11 30A(1052)

CZDLDE.P11

10-JUN-80

10-JUN-80 15:20

15:%}

2293
2294
2295

PAGE 53

TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY

22%

' ttt'tQtt'tQittt'tQ"'Qt"'Q'tt'tttt't"'tt't!tttt"'tt"'tt'tt'

2297

S*TEST 20

2298

2299

006504

000004

2300
2301
2302

006506
006512
006514

005737
001462
032777

2304
2305
2306
2307

006524
006526
006532
006536

000005
017703
017704
012777

2309
2310
2311
2312

006552
006556
006560
006566

004737
000240
042777
052777

2314
%g}g

006600
006602

100375
000240

gg};

006604

104047

2319
2320
2321
2322
2323
2324
2325
2326
ggg;

006606
006610
006616
006622
006624
006626
006630
006632
006634

022626
012777
004737
000240
000240
000240
000240
000240
000402

2329
2330
gg;g

006636
006640

022626
104050

2333
2334
2335

006642
006650
006654

042777
010377
010477

2303

2308

2313

006522

006544

006574

001056

012777

105777

TEST RTC FOR DOUBLE INTERRUPTS

'Qifittfifitttttntt""'t't""Q'ttttttttttt'ttt'tttttt"'tttt'ttt

YSTZO:

002624

000100
174144
174142
006606

000340

014540

000200
000100

174074

SCOPE

172316

TST
BEQ
BIT

CTSTFL
TST21
#BI1T6,3SWR

;1S CONSOLE UNDER TEST?
:1F NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INMIBITED?

174132

RESET
MOV
MOV
MOV

aRTCVT,R3
ARTCPSW, Ré
#28 , ARTCVT

;CLEAR EVERYTHING
;SAVE LINE CLOCK VECTOR
;SAVE LINE CLOCK PSW VECTOR
:SET UP RTC INTERRUPT VECTOR

BNE

174126
174106
174100

MOV

JSR

1$%:

BIC
BIS

TSTB

BPL
NOP

TsST21

#340,3RTCPSW
PC,WRPSW
LWORD
240
#BIT7,3LKS
#BIT6,aLKS

aLKS
1%

ERROR+47

006636
014540

174060

2%:

CMP
MOV
JSR
NOP
NOP
NOP
NOP
BR

000100
174022
174020

174024

;1F YES, SKIP THIS TEST

;:DISALLOW INTERRUPTS AFTER THE INTERRUPT
;SET PRIORITY TO §

;CLEAR CLOCK DONE FLAG
;ENABLE CLOCK INTERRUPTS

:WAIT FOR DONE

:GIVE TIME FOR ANY INTERRUPT
:RTC INTERRUPT DID NOT OCCUR

(SP)+,(SP)+
#38,3RTCVT
PC,WRPSW
.WORD
240

:RESTORE SP AFTER INTERRUPT
;POINT RTC VECTOR TO ERROR REPORT
;SET PSW TO PRIORITY
;GIVE SOME TIME
;GIVE SOME TIME
;GIVE SOME TIME
:GIVE SOME TIME
:NO INTERRUPT -

FOR AN INTERRUPT
FOR AN INTERRUPT
FOR AN INTERRUPT
FOR AN INTERRUPT
BR TO END OF TEST

3%:

CMP
(SP)+,(SP)+
ERROR+50

:RESTORE SP AFTER INTERRUPT
;INTERRUPT SEQUENCE DID NOT CLEAR
:INTERRUPT REQUEST

4$:

BIC
MOV
MOV

;DISABLE CLOCK INTERRUPTS
;RESTORE LINE CLOCK VECTOR
;RESTORE LINE CLOCK PSW VECTOR

#B1T6,aLKS
R3,RTCVT
R4 ,aRTCPSW

SEQ 0052

MACY11 30A(1052)
10-JUN-B0
10-JUN-80 15:20
CZDLDE.P1N
MAIN,

PAGE 5 “
15: 21
120
TEST RTC FOR DOUBLE

5537
2338

SEQ 0053

INTERRUPTS

2339
2340
2361
234§
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367

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

JeTEST 21

TEST

THAT RTC

INTERRUPT CLEARS WITH RESET

;;t""t'.'tl".""'t""'""Q"Qtt'i"'t"t.""ttt".'ttt.'t'

006660
006662
006666
006670
006676
006700
006704
0067
006712
006720
006726
006734
006740
006742
006744
006750
006752
006754
006756
006760
006762
006770

1ST21:

002624

000100

172142

SCOPE
ST

173764
006772
000200
000100
173734

MOV

RTCVT,R3

,SAVE LINE CLOCK VECTOR

#BIT7,aLKS
#BIT6,aLKS

:CLEAR CLOCK DONE FLAG
;ENABLE CLOCK INTCRRUPTS

MOV
1%:

BIC
BIS

;gra

PC,WRPSW
.WORD
340
#2%,aRTCVT
?kxs

RESET

JSR

014540

NOP

PC,WRPSW
.WORD

006772
006774

022626

006776

010377

104051

173674

NOP
BIC
BR

173704

:SET PRIORITY T0 7

;POINT RTC VECTOR TO ERROR REPORT
;WAIT FOR DONE

(INTERRUPT REQUEST)

:CLEAR PENDING INTERRUPT WITH RESET

240

;SET PRIORITY TO §

:GIVE

TIME FOR ANY

INTERRUPT

:GIVE TIME FOR ANY INTERRUPT
:GIVE TIME FOR ANY INTERRUPT

NOP
NOP

000100

;1S CONSOLE UNDER TEST?

:1F NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INMIBITED?
:1F YES, SKIP THIS TEST

18122
#MBIT6,aSWR
1S122

JSR

014540

CTSTFL

BEQ
BIT
BNE

#B1T6,aLKS
3%

:GIVE TIME FOR ANY INTERRUPT
;DISALLOW INTERRUPTS
:BR TO END OF TEST

2%:

(SP)+,(SP)+
CMP
ERROR+51

:RESTORE SP AFTER INTERRUPT
;RESET DID NOT CLEAR INTERRUPT

3%:

MOV

;RESTORE LINE CLOCK VECTOR

R3,aRTCVT

NN N NN N NN N N W
NNNNSNNNNNY
OO NN
W=D

N"VEENNU”JAMUNJN"UNJ&MURJNN\“JRMUHJN"VfiU
&
S EEEPEEES

MACYT 30A(105 2)
MAIN.
10=JUN-B0
10=JUN- 80 15:20
(ZDLDE PN

15: 21

121

PAGE 5 5

TE ST THAT RTC

INTERRUPT CLEARS WITH RESET

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

JeTEST 22
A

1S122:

002624
000100

172020

000402

007120
007122

022626

007124
007130
007134

010377
004737
000340

000100

1%:

173602

173556

173546

014540

#BIT6,aSWR

JSR

PC,WRPSW

MOV
MOV

@RTCVT,RY
#2% ,9RTCVT

8IS

#BIT6H,aLKS

TSTB

BPL
BIC
JSR

1S123

15123

.WORD

A ARl
Rl )

;1S CONSOLE UNDER TEST?

BIT

340

#BIT7,3LKS
aLKS

1%
#BIT7,3LKS
PC,WRPSW
.WORD
240

;1F NOT, SKIP THIS TEST

;ARE LINE CLOCK TESTS INHIBITED?
;1F YES, SKIP THIS TEST
;SET PRIORITY TO 7

;SAVE LINE CLOCK VECTOR

sPOINT RTC VECTOR TO ERROR REPORT

;CLEAR CLOCK DONE FLAG
;ENABLE CLOCK INTERRUPTS
;WAIT FOR DONE (INTERRUPT REQUEST)

;CLEAR DONE & INTERRUPT
;ALLOW INTERRUPTS

BIC

#BITE,aLKS

;GIVE TIME FOR ANY INTERRUPT
;GIVE TIME FOR ANY INTERRUPT
;GIVE TIME FOR ANY INTERRUPT
;GIVE TIME FOR ANY INTERRUPT
;DISALLOW INTERRUPTS
:BR TO END OF TEST

CMP

(SP)+,(SP)+

;RESTORE SP AFTER INTERRUPT

MOV

R3,aRTCVT

.WORD

340

3%:

CTYSTFL

NOP
NOP
NOP
NOP

2%:

104052

SCOPE

TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS

1ST

BIC

007106
007110
007116

BNE

173642

007120
000200
000100
173612

BEQ

014540

000200
014540

ERROR+52
JSR

PC,WRPSW

;CLEARING BIT7 OF LKS DID NOT CLEAR INTERRUPT
;RESTORE LINE CLOCK VECTOR
;RESTORE PRIORITY TO 7

SEQ 0054

10-JUN-80
MACY11 30A(1052)
-MAIN,
10-JUN-80 15:20
CZDLDE PN

1S:¥ 1

PAGE 56
TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS

2403

2604

2405
2406
2407
2408
2409
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2420
2621

AR ARl
Rt
RRRRRRddd)

STEST 23

TEST CLOCK REPEATABILITY

°:"t'".Qt"'."""""""'"""'Q"."'..""'Q"""l"t"t

000004

005737
001467
032777
001063
062777
005000
012701

T§123:

002624

000100

171664

0001G0

173510

160201
100001

005401

032737
001403
020127

007310
007316
007320

BEQ
BIT
BNE
BIC
CLR

77777

1%:

173474
173470

2%:

173462
173456

3%:

173446

013701

SCOPE

TST

4%:

CTSTFL

TS124
#BIT6,aSWR
15124
#BIT6,aLKS

;1S CONSOLE UNDER TEST?
;1F NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INHMIBITED?
;1F YES, SKIP THIS TEST
;DISALLOW INTERRUPTS

;CLEAR A TIMER

MOV

#-1,R1

CLR

aLKS

BPL

CLR
1STB

aLKS

(LR

aLKS

BPL
INC

3
R2

INC

1STB

CLR

BNE
INC

aLKS

002336

BNE
MOV

CMPARE
R2,FIRST

002336

CMPARE: MOV

FIRST,R1

000001

suB

003002

TOLER:

000001

010237
104053

002616

032777
001402
000137

000020
014400

R2,R1

TOLER
BPL
NEG
R1
BIT #BITO,FLAG4S

BEQ 6%

CMP R1,#2

000002

000402
020127
003403

6%:
7%:

5%:

;CLEAR DONE
;1S CLOCK DONE?

;BR IF NOT , TO INCREMENT TIMER
;1F DONE, INCREMENT (LOCK COUNT
;CLEAR DONE
s INCREMENT TIMER
:BR IF TIME REMAINS
; INCREMENT LOOP PASS FLAG
:BR IF TWO PASSES HAVE BEEN MADE
:IF NOT, STORE FIRST CLOCK COUNT
;D0 LOOP AGAIN
JRECALL FIRST CLOCK COUNT
sCALCULATE DIFFERENCE OF TWO COUNTS
+IF POSITIVE,SKIP NEGATION OF DIFFERENCE
JMAKE DIFFERENCE A POSITIVE NUMBER

s e lg THIS A 11744
A

;** YES; COMPARE DIFFERENCE WITH DESIRED
;*+ TOLERANCE OF 2

BR 7%
CMP
BLE

M
R1.

MOV

R2,SECND

;STORE SECOND COUNT
;CLOCK REPEATABILITY ERROR

BIT

#BIT4 ,3SWR

JMP

$EOP

;CLOCK TESTS ONLY?
;BR IF NOT

ERROR+53

171522

;SET A FLAG INDICATING FIRST PASS THRU THIS LOOP
;CLEAR CLOCK COUNTER
;CLEAR DONE
:SYNC ON DONE

BEQ

*hk

TS124

;COMPARE DIFFERENCE WITH DESIRED TOLERANCE
:BR, IF LOWER/EQUAL TO TOLERANCE

;ELSE, JUMP TO END OF PASS ROUTINE

SEQ 0055

10-JUN-80
MACY11 30A(1052)
MAIN.
10-JUN-80 15:20
CZDLDE P11

000004
042777
017703
012777
105777
100375

004737
000140
000402

000100

173304

007364

173302

173310

173266

TST24:

1%:

014540

022626

2%:

007370
007376
007404
007406
007410
007412

012777
052777
000240
000240
000240
000240

007414

104055

007416
007424
007426

042777
022626
010377

007364
007366

104054

007416
000100

000100
173216

TEST THAT XMIT

INTERRUPTS ONLY WHEN ENABLED

BIC

#BIT6,aTCSR

;CLEAR TRANSMIT INTERRUPT ENABLE

JSR

PC,WRPSW

;SET PSW TO PRIORITY 3

SCOPE

MOV
MOV
1STB
BPL

4%:

@TVECT,R3
#2% ,9TVECT
aTCSR
1%

.WORD
3%

CMP

(SP)+,(SP)+

MOV
BIS

#4% ,9TVECT
#BIT6,aTCSR

ERROR+54

NOP

173214

SEQ 0056

LT
R AT Y

J*TEST 24
R

TEST CLOCK REPEATABILITY

T 23

007324

15 7 4 1_PAGE 57

140

;XMIT

INTERRUPTS WITH INTERRUPT ENABLE

:SET XMIT VECTOR TO END OF TEST
ENABLE INTERRUPTS
e

NOP

ERROR+55S

:XMIT DID NOT INTERRUPT
#BIT6, GICS

MOV

R3,aTVECT

(SP)+,(SP)+

:RESTORE SP AFTER INTERRUPT

NOP

cmMP

sSAVE XMIT VECTOR
;POINT XMIT VECTOR TO ERROR REPORT
JWAIT FOR DONE

BIC

;DISABLE

INTERRUPTS

;RESTORE

XMIT VECTOR

:RESTORE SP AFTER INTERRUPT

CLEAR

10-JUN-80
MACY11 30A(1052)
MAIN,
10-JUN-80 15:20
(ZDLDE PN

THAT

TATEST 25
Cr AR

007432
007434
007442
007446
007450
007454
007462
007466
007470
007476
007500
007502
007504
007506

000004

007510
007512

022626

2508

007544
007546

062777
004737

000100
014540
173174

007510
173152

000100

173176

173166

15125

1%:

173142

000402
2%:

007550
007552

022626

007554

010377

—

000100
007550
014540

nN) —

042777
012777
004737
000140
000240
000240
000240
000240
000402

104056
—_——

007514
007522

NPV
W =200

TEST

F
XMIT

INTE RRUPTS ONLY WHEN ENABLED

';'Q."'Q""."""""""'Q"""'Q'Q."""""""'"Q'Q'"t

2484

2485
2486
2487
2488
2489

E 58

15:

2482
2483

ORI
N NN
[WoRV RV LV LW LW LV LV LV ]
—
e D e D e 2 O

3%:

SCOPE

BIC
JSR

MOV
MOV

1ST8

BPL

4%:

173070

5%:

#BIT6,aTCSR
PC,WRPSW
.WORD
340
aTVECT,R3
#2%,aTVECT
aTCSR

;DISABLE INTERRUPTS

;SET PSW TO PRIORITY 7
,SAVE XMIT VECTOR
;POINT XMIT VECTOR TO ERROR REPORT
;WAIT FOR DONE

;ENABLE INTERRUPT

BIS
NOP
NOP
NOP
NOP

#BIT6,aTCSR

“CONTINUE TEST

(MP

(SP)+,(SP)+

:RESTORE

BIC

#BIT6,aTCSR

ERROR+56
MOV
JSR
NOP
NOP
NOP
NOP

104057

TEST THAT X MIT INTERRUPTS DO NOT OCCUR WHEN DISABLED

RN RN RN RN RN RN RN R R T R RN RN R RN R RN RARRCRORRRRNROCOROIOOTRORRTRS

LA]

#4% ,9TVECT
PC,WRPSW

.WORD

140

;XMIT INTERRUPTS AT PRIORITY=7

;CLEAR INTERRUPT ENABLE
;POINT XMIT VECTOR TO ERROR REPORT

;SET PSW TO PRIORITY 3
‘R

(MP

(SP)+,(SP)+

MOV

INTERRUPT

ERROR+57

SP AFTER

R3,aTVECT

;BR TO END OF TEST=NO INTERRUPT
;RESTORE

;XMIT

SP AFTER

INTERRUPT

INTERRUPT OCCURES WITH BIT6 CLEAR

;RESTORE

xMIT

VECTOR

SEQ 0057

.MAIN,

MACY11

30A(1052)

10=-JUN-80

15: % 1

PAGE 59

TEST THAT XMIT

INTERRUPTS DO NOT OCCUR WHEN DISABLED

—

10-JUN-80 15:20

007560
007562
007570

NN
NN

000004
062777
017703
017704
012777
012777
004737
000140
105777
100375
052777
000240
000240
000240
000240

000100

173050

007650
000340
014540

173042
173036

173054
173052

173012

000100

1ST126:

007676
007704

022626
012777
004737
000140
000240
000240
000240
000240
062777
000402

007706
007710

022626

007712
007716

010377
010477

TEST
Al

SCOPE
BIC

MOV
MOV
MOV
MOV

JSR

1%:

173002

104060

2542

VWAV
VWA

AR ARl
l )

;*TEST 26

NN NN NN

\fi\fl\fi\fl\h\h:z\b\flufl\fl\flMfl\fi\h\”\fl\fi~h\fl\fl&flufl
W
NN RO N RN RO NI RO NN D —
f:c~uwuu0i8:
OV~ \flx:UiNJ-‘g;iDOD\N’\fl“ufl"J-‘C><> oo

(ZDLDE.P11

1STB
BPL
BIS
NOP
NOP
NOP
NOP

TRANSMITTER FOR DOUBLE

#BIT6,3TCSR

aTVECT,R3

R&
ATPSW,
#2% aTVECT

#340,aTP5W
PC,WRPSW

LWORD

ATCSR
1%

140

#B1T6,aTCSR

007706
014540

000100

172770

Ls:

172732
172730

5%:

558

MOV

JSR
.WORD
NOP
NOP
NOP
NOP
BIC
BR

172734

104061

CMP

;CLEAR INTERRUPT ENABLE
;SAVE XMIT VECTOR
;SAVE XMIT PSW VECTOR
;SET UP XMIT VECTOR
;SET PIO 7 AFTER INTERRUPT
;SET PSW TO PRIORITY 3
;WAIT FOR DONE

;ENABLE INTERRUPTS
A

c RN

ERROR+60
2%:

INTERRUPTS

A AR
R RRRRRRRRRRRRRRRRRRd)

(SP)+,(SP)+
#4%,9TVECT
PC,WRPSW

140

;XMIT

INTERRUPT DID NOT OCCUR

;POINT

XMIT VECTOR

;RESTORE SP AFTER INTERRUPT

TO_ERROR

;SET PSW TO PRIORITY 3

#BITE,aTCSR

GIv E TIME FOR ANY INTERRUPTS
GIv E }IHE FOR ANY INTERRUPTS
IME FOR ANY INTERRUPTS
GIv
GIv E TIME FOR ANY INTERRUPTS
;DISABLE INTERRUPTS

CMP

(SP)+,(SP)+

;RESTORE SP AFTER INTERRUPT

MOV

R3,9TVECT

;XMIT RE-INTERRUPTED
;RESTORE XMIT VECTOR

ERROR+61
MOV

R4 ,aTPSW

;BR TO END OF TEST

;RESTORE XMIT PSW VECTOR

:;t."tt"it'...".!""'."'!""..t'""'Qt."""ttit""'l't'

;*TEST 27

TEST

THAT XMIT

INTERRUPT CLEARS WITH LOADING TBUF

2222222222322
222222222
Rt
R0t R R
]

000100
014540

172706

15127:

172704

MOV
MOV

010032
172650
172642
172636

014540

SCOPE
BIC
JSR

1%:

BIS
BIS
CLR

1STB
BPL

CLR
JSR

#BIT6,aTCSR
PC,WRPSW

340
.WORD
aTVECT,R3
#2% ,9TVECT
#BIT2,3TCSR
#BIT6,aTCSR
a 1BUF
aTCSR
1%
a 1BUf
PC,WRPSW

;:DISABLE INTERRUPTS

;SET PSW TO PRIORITY 7
;SAVE XMIT VECTOR
;POINT XMIT VECTOR TO ERROR
st ENABLE MAINT. WRAP
;ENABLE INTERRUPTS
:LOAD TBUF
;WAIT FOR DONE

C(INTERRUPT)

;FILL SECOND BUFFER TO RESET INT.
;ALLOW INTERRUPTS

SEQ 0058

10-JUN-B0
MACY11 30A(1052)
10-JUN-8D 15::20
2
CZDLDE.P11
.MAIN,

2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596

010010
010012
010014
010016
010020
010022
010030

000140

010032
010034

022626
062777

60
TEST THAT XMIT

NOP

LWORD

000405

104062

010044

010377

010050
010052
010056

005000
012701
005300
001376
005301
001374

000100

172610

000004

172616

140

#8176,8TCSR
3%

CMP

(SP)+,(SP)+

#BIT2,3CTCSR

000002

40%:

:GIVE TIME FOR ANY INTERRUPTS
:DISABLE INTERRUPTS
:BR TO END OF TEST
:RESTORE SP AFTER

[NTERRUPT

;e+ DISABLE MAINTENANCE MODE FOR

;e« CONSOLE TO ALLOW FOR COMMUNICATION
:ee WITH TERMINAL.

ERROR+62
172600

:GIVE TIME FOR ANY INTERRUPTS

:GIVE TIME FOR ANY INTERRUPTS
:GIVE TIME FOR ANY INTERRUPTS

NOP
BIC
HE

BIC

INTERRUPT (LEARS WITH LOADING TBUF

NOP
NOP

010042

010060
010062
010064

15:2 1
1 27

;LOACING TBUF DID NOT CLEAR INTERRUPT,

MOV

R3,aTVECT

CLR

;x« DE'AY ENOUGH TIME TO ALLOW ANY CHARACTERS

DEC
BNE
DEC
BNE

RO
«0%
R1
40%

;««
;*+
cee
:«+

MOV

#2.R1

;RESTORE XMIT VECTOR

:xx THAT MIGHT BE

IN THE PROCESS OF BEING

TRANSMITTED TO FINISH BEFORE MAINTENANCE
WRAP FOR THE UART UNDER TEST IS DISABLED.
THIS WILL INHIBIT ANY COMMUNICATION
TO0 HARDWARE MEDIA SUCH AS TUS8 THAT MIGHT

;*« BE ATTACHED TO UART UNDER TEST.

SEQ 0059

10-JUN-80
MACY11 30A(1052)
MAIN,
10-JUN-80 15:20
(ZDLDE PN

2597
2598
2599
2600
2601
2602

1 27

GE 61
TEST THAT XMIT

|
INTERRUPT (LEARS WITH LOADING TBUF

;'""t"""""'"""""""QQ"".Q."..""""."""'Q'Q'

SeTEST 30

aRBUF

;** READ TO CLEAR DONE

172456

WACTV:

TST

CLR

a TBUF

BIT
BNE

#BIT11,3RCSR
2%

BIC

#BIT2,aCTCSR

INC
BNE

172466

RO
WACTV

2%:

000002

40%:

001376
005301
001374
004000

172402

010254

033777
001404

004000

172360

010256

042777

000004

172374

BNE
DEC
BNE

RESET

BIT
BEQ

172412

104115

000004
000000

(LR
MOV
DEC

3%:
wi:

;CLEAR A TIMER
;LOAD TRANSMIT BUFFER
;TEST RCVR ACTIVE BIT
;BR IF SET
; INCREMENT TIMER IF NOT SET

;CONTINUE WAIT IF TIME REMAINS
;** DISABLE MAINTENANCE MODE FOR
;*+ CONSOLE TO ALLOW FOR COMMUNICATION
;** WITH TERMINAL.

;RCVR ACTIVE DID NOT SET WHILE RECEIVING

ERROR+63

104063

43%
RO
42%
R1
42%
.+6

BM]
DEC
BNE
DEC
BNE
BR

THAT MIGHT BE IN THE PROCESS OF BEING
RECEIVED TO FINISH AFTER MAINTENANCE
WRAP FOR THE UART UNDER TEST IS ENABLED.
CHECK FGR RECEIVER DONE

43%:

005000
052777

aRCSR

;CLEAR EVERYTHING
;SET MAINTENANCE WRAP
;*+ DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS

172474

000005
032777
001401

1STB

;e*
;**
;**
;*+

"2 ,R1

L2%:

005000
012701
005300

#BIT2,aTC(SR
RO

172512

000004

BIS
(LR

MOV

105777
100405
005300

004000

#BIT0,FLAGLS
RCVDON

172530

000002

172472

BIT
BNE

RESET

012701

001373
005301
001371
000402
005777
005000
005077
032777
001006
005200
001372
042777

SCOPE

THAT RCVR ACTIVE & DONE SET & CLEAR

AR ARl
)

1§7130:

o"o“fi\fl“’1;,:U“flfl0fl"v-‘
srnoooco N
OSSN

b D
i

e
d e
b

[=]lelelelelelelelelalelelelole]

[e]lelelelelelelelelelelelelele]

000004

003002

TEST
R

2604
2605

000001

000004

AAAE

2603

2607
2608
2609
2610

15:2 1

RO
#2,R1
RO
40%
R1
40%

#BIT11,aRCSR
3%

;*+ DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
;*+
;*«
;**
;*«

THAT MIGHT BE IN THE PROCESS OF BEING
TRANSMITTED TO FINISH BEFORE MAINTENANCE
WRAP FOR THE UART UNDER TEST IS DISABLED.
THIS WILL INHIBIT ANY COMMUNICATION

:*+ TO HARDWARE MEDIA SUCH AS TU58 THAT MIGHT
;*+ BE ATTACHED TO UART UNDER TEST.
;VERIFY "'INIT'" CLEARS RCV ACTIVE

ERROR+115

;INIT DID NOT CLEAR RCV 'ACTIVE

(LR

ADD

#0,R0

;CLEAR A TIMER
;SET MAINTENANCE WRAP

BIS
INC

BNE

#B1T2,aTCSR
RO

;WALT AT LEAST ONE BIT TIME

BIT
BEQ

BIT11,3RCSR
RCVDON

;VERIFY RCV ACTIVE STILL CLEAR

BIC

#BIT2,aCTCSR

;*+* DISABLE MAINTENANCE MODE FOR

;BR IF CLEAR

SEQ 0060

MACY11 30A(1052)
10-JUN-BD
10-JUN=-80 15:20
CZDLDE.P11

2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693

010264

104116

010266

052777
005000
005077

010274
010276
010302
010306
010310
010312
010314

105777
100406

005200
001373
042777

)

ERROR+116
000004

172344

172340
172326

000004

RCVDON:

:
WDONE

BIS
CLR

CLR
T1STB

BMI
INC
BNE

172336

BIC

#BIT2,aTCSR
RO
o TBUF
aRCSR

RO
WDONE
#BIT2,9CTCSR

ERROR+64

010322

104064

010324
010332
010334
010342
010344

032737
001010
032777
001404
042777

010352

104065

010354
010356
010362

000005

105777
001404

172252

010364

042777

000004

010372

104066

010374
010374

042777

zngO.FLAGGA

172272

BIT

221T11,3RCSR

172306

BIC

#B1T2,aCTCSR

003002

004000
000004

5%:

ERROK+65
6%

172266

aRCSR

BIC

#BIT2,aCTCSR

7%:

BIC

;SET MAINTENCE WRAP
;CLEAR TIMER
;LOAD TRANSMIT BUFFER
;CHECK FOR RECEIVER DONE
:BR, IF DONE
; INCREMENT TIMER, IF NOT DONE
;CONTINUE WAIT IF TIME REMAINS
;** DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
;** WITH TERMINAL.

e 11744677

;*+ DO NOT EXECUTE THIS SECTION
;CHECK FOR RCVR ACTIVE CLEAR
;BR, IF CLEAR
;*+ DISABLE MAINTENANCE MODE FOR
;% CONSOLE TO ALLOW FOR COMMUNICATION
;t* WITH TERMINAL.
DID NOT

CLEAR WITH RCVR DONE

;CLEAR DONE WITH RESET
;CHECK FOR DONE CLEAR
;*+ DISABLE MAINTENANCE MODE FOR
;*+ CONSOLE TO ALLOW FOR COMMUNICATION
s+« WITH TERMINAL.

ERROR+66

172256

;** CONSOLE TO ALLOW FOR COMMUNICATION
s+ WITH TERMINAL.
;RCV ACTIVE WITHOUT ''START'' BIT

;RCVR ACTIVE

RESET
TSTB

BEQ

SEQ 0061

;RECEIVER DONE NEVER SET

BIT

000001

000004

PAGE 62
15: 21
130
TEST THAT RCVR ACTIVE 8 DONE SET & CLEAR

;RESET DID NOT CLEAR RCVR DCNE
#B1T2,aCTCSR

;** DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
s+ WITH TERMINAL.

MACY11 30A(1052)
10-JUN-80
.MAIN.
P11
10-JUN-80
CZDLDE.
15:20

2694
2695
2696
2697
2698
2699

K
5
PAGE 63
130
TEST THAT RCVR ACTIVE & DONE SET & CLEAR

15: 21

SEQ 0062

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

J*TEST 31

TEST THAT READING RBUF

CLEARS RECEIVER DONE

2222222232332 222323223323232233232223232323332232323323323323232232222020%2]

000004
000005
052777
005000
012701
105777
100405

TST31
000004

172224

(2%:

43%:
1%:

100375

010502

105777
001401
104070

MOV

#2.,R1

T1STB
BMI
DEC
BNE
DEC

aRCSR
43%
RO
42%
R1

;** WRAP FOR THE UART UNDER TEST IS ENABLED.
:*+ CHECK FOR RECEIVER DONE
1
s
A
L

42%

?2C5R

JWAIT FOR RECEIVER DONE

BEQ
ERROR+70

000240

;x« THAT MIGHT BE IN THE PROCESS OF BEING
:*« RECEIVED TO FINISH AFTER MAINTENANCE

;STB

1STB

108:

." DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS

;*+ READ TO CLEAR DONE

CLR

BIC

172136

sSET MAINTENANCE WRAP

aRBUF

MOV

172166

1ST

017700
0462777
010472
010476
010500

#BIT2,a9TCSR

BNE

000402
005777
005077
105777

:CLEAR EVERYTHING

BIS
CLR

000002

172206

SCOPE

RESET

aTBUF

:LOAD TRANSMITTER

aRBUF ,RO

#BIT2,aCTCSR
aRCSR

;READ RECEIVE BUFFER

;% DISABLE MAINTENANCE MODE FOR

s** CONSOLE TO ALLOW FOR COMMUNICATION
sex WITH TERMINAL.
;CHECK FOR RECEIVE DONE CLEAR

s+« BR, IF CLEAR TO NEXT TEST

108

:READING RBUF DID NOT CLEAR RCVR DONE

NOP

::t.t.'ti.t.".fi"""""'"'""""'.""Qil'.l'.""'.""".

J*TEST

TEST

THAT RDR ENABLE CLEARS RECEIVER DONE FLAG

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

000004

000001

003002

000001
000004

172106
172104

1ST32:

D D
b
D
D e
B
B
D
b
—

°°°°O8°°°°°

[elelelelelelelelelele]

43%:
1%:

Jee 11744 77

;% YES DO NOT EXECUTE THIS TEST

BIS
BIS
(LR
MOV

#BIT0,aRCSR
#BIT2,3TCSR
RO
#2.R1

;SET RDR ENABLE
sSET MAINTENANCE WRAP
:*+ DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
,'t THAT MIGHT BE IN THE PROCESS OF BEING
s*+ RECEIVED TO FINISH AFTER MAINTENANCE

1ST8

aR(SR

DEC
BNE

R1
42%

TST

aRBUF

5378

?2(SR

;*« READ TO CLEAR DONE
:LOAD TRANSMITTER

RESET

42%:

#BI1T0,FLAGLS
10%

BNE

000002
172066

SCOPE

BIT

BM]
DEC
BNE
BR

(LR
L

43%
RO
2%

.46

a TBUF

sCLEAR EVERYTHING

:*+ YRAP FOR THE UART UNDER TEST
s+ CHECK FOR RECEIVER DONE

st
she
st

cht
L

JWAIT FOR RECEIVER DONE

IS ENABLED.

10-JUN-80
MACY11 30A(1052)
:
10-JUN-8 0 15:20
CZDLDE.P11

010600
010606

032777
001401

010610

104117

010612

052777

000001

172014

062777

000004

172024

105777
001404

010634

104067

010636

000240

000001

BIT
BEQ

172026

#BITO,aRCSR
2%

ERROR+117
172010

PAGE 64
15:21
TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG
132

2%:

BIS
1ST18
BEQ
BIC
ERROR+67

10%:

NOP

#817T0,aRCSR
aRCSR
108
#BIT2,aCTCSR

;VERIFY RCV ACTIVE CLEARED RDR ENABLE
;BR IF CLEAR

;RDR ENABLE NOT CLEARED WITH RCV ACTIVE

;CLEAR DONE BY SETTING RDR ENABLE
;CHECK FOR DONE CLEAR
;** BR, IF CLEAR TO NEXT TEST
;*+ DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
s« WITH TERMINAL.

;SETTING RDR ENABLE DID NOT CLEAR RCVR DONE
kW

10-JUN-80
MACY11 30A(1052)
10-JUN-80 15:20
CZDLDE.P1

T 32

TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED

R LT
T
o
e

000C0&

TST33

042777
062777
052777
005000
012701

000100
000100
000004

105777
100405

171736

42%:

171720
171722
010760
014540

43%:

171770
171756
171754

000002

005300
001373

171714

171700
171666

062777

000004

1%:

062777

000004

171672

2%:

;DISABLE TRANSMIT INTERRUPTS
;DISABLE RECEIVER INTERRUPTS
;SET MAINTENANCE WRAP
s« DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
;*+ THAT MIGHT BE IN THE PROCESS OF BEING

TSTB
BMI
DEC
BNE
DEC
BNE

aRCSR
433
RO
42%
R1
42%

;** CHECK FOR RECEIVER DONE
e
Rl
L
XL
T

TST
MOV
MOV

aRBUF
@RVECT,R3
#2% ,3RVECT

s+« READ TO CLEAR DONE
:SAVE RECEIVE VECTOR
;POINT RCV VECTOR TO ERROR REPORT

CLR

.WORD
aTBUF

213

;gTB

.+6

PC,WRPSW

140

?2CSR

011026
000100

171644
171626

000004

171634

3%:

000004

171574

171616

(%:

;SET PSW TO PRIORITY 3
:SEND A CHARACTER

sWAIT FOR RECEIVER DONE

#BIT2,8CTCSR

;CONTINUE TEST

BIC

#BIT2,aCTCSR

;x+ DISABLE MAINTENANCE MODE FOR

MOV
BIS
NOP
NOFP
NOP
NOP
BIC

#4% ,3RVECT
#BIT6,aRCSR

#B1T2,3CTCSR

ERROR+72

000100 171600

;** RECEIVED TO FINISH AFTER MAINTENANCE
;*+ WRAP FOR THE UART UNDER TEST IS ENABLED.

BIC

(SP)+,(SP)+
CMP
ERROR+71

022626
104071

012777
052777
000240

#B1T6,aTCSR
#BIT6,3RCSR
#BIT2,3TCSR
RO
¥2,R1

171702

000405

SCOPE

BIC
BIC
BIS
CLR
MOV

JSR

OV
NO WV W

TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG

'TEST 33

ccO0C

[
e

0000000000

©Co
G0
-

PNORONL "INV NN

15:2 1_PAGE 65

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

NN NN NN N NN NN

8;
g; g;s;g;
NNNNNNYNVNNNNSNNNNNSNNNNNNNNNNNNSNNNSNNY
NOWV
SN
B NOWVESWN=O
OO
NOWVNSWN
O VO NO VW
-0
Voo~

NN NN NN NN NN

MAIN,

BIC

BIC
CMP
MOV

#BIT6,aR(SR
#BIT2,aCTCSR
(SP)+,(SP)+
R3,IRVECT

;*+ DISABLE MAINTENANCE MODE FOR

;** CONSOLE TO ALLOW FOR COMMUNICATION
s+ WITH TERMINAL.

;e% CONSOLE TO ALLOW FOR COMMUNICATION
;e WITH TERMINAL.
sRESTORE SP AFTER INTERRUPT

;RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR
:POINT RCV VECTOR TO END OF TEST
JENABLE RCV INTERRUPTS
s** GIVE ANY INTERRUPTS T1IME
s** GIVE ANY INTERRUPTS TIME
." GIVE ANY INTERRUPTS TIME
s+ GIVE ANY INTERRUPTS TIME
;o DISABLE MAINTENANCE MODE FOR

:s** CONSOLE TO ALLOW FOR COMMUNICATION
:et WITH TERMINAL.
sRCVR DID NOT INTERRUPT

:DISABLE INTERRUPTS
e+ DISABLE MAINTENANCE MODE FOR

;** CONSOLE TO ALLOW FOR COMMUNICATION
st WITH TERMINAL.

;RESTORE SP AFTER INTERRUPT
;RESTORE RECEIVE VECTOR

SEQ 0064

LMAIN,

MACYYIT 30A(1052)

CZDLDE .P11

10-JUN=-B80

10=JUN-80 15:20

15:21

2821

133

PAGE 66

TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED

SEQ 0065

2822

; "ttQQ't"tt"'.t"'""""ttt"tt""t"""'ttt"t'tt"ttttt"

2823

;*TEST 34

262‘.

2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
gggg
2856
2857
2858
2859
2860
2861
2862
gggz

2865
2866
2867
2868
2869
2870
2871
2872
287%
gg;g

2876

TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED

; :t"'tttt't"'tt"Q't"""""Qttt'tttt'ttt't".'t"t'tttt"'.'

011050
011052
011054
011060
011062
011066
011074
011102
011104

000004
000005
004737
000340
017703
012777
052777
005000
012701

011110
011114
011116
011120
011122
011124
011126
011130
011134
011140
011142
011146
011152
011154
011162
011164
011166
011170
011172

105777
100405
005300
001373
005301
001371
000402
005777
105777
100375
005077
105777
100375
052777
000240
000240
000240
000240
000405

011174
011174

042777

011202
011204

022625
104073

011206
011214
011222
011226
011230
011232
011234

042777
012777
004737
000140

011242

000405

000240
000240
042777

TST34:
014540
171556
011174
000004

MOV
MOV
BIS
CLR
MOV

171550
171536

000002

171520

42%:

171502
167710

43%:
6%:

171474
171462

1%:

900100

000004

171452

171456

SCOPE
RESET
JSR

2%:

PC,WRPSW
.WORD
340
@RVECT,R3
#2% ,3RVECT
#BIT2,3TCSR
RO
#2.R1

TSTB
BM]
DEC
BNE
DEC
BNE
BR
TST
TSTB
BPL
CLk
1STB
BPL
BIS
NOP
NOP
NOP
NOP
13

aRCSR
433
RO
42%
R1
42%
.46
anRBUF
as1Ps
6%
? [BUF
aR(SR
1%
#BIT6,aRCSR

B!C

#BIT2,3CTCSR

(MP
(SP)+,(SP)+
ERROR+73

000100
011244
014540

000004

171420
171422

171416

3s%:

BIC
MOV
JSR

NOP
NOP
BIC
BR

#BIT6,3RCSR
#48,3RVECT
P(,WRPSW
LWORD
140
#BIT2,3CTCSR
5%

;CLEAR EVERYTHING
;SET PSW TO PRIORITY 7
sSAVE RECEIVE VECTOR
;POINT RCVR VECTOR TO ERROR REPORT
sSET MAINTENANCE WRAP
;*+ DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
;** THAT MIGHT BE IN THE PROCESS OF BEING
s** RECEIVED TO FINISH AFTER MAINTENANCE
;** WRAP FOR THE UART UNDER TEST IS ENABLED.
;*+ CHECK FOR RECEIVER DONE
che
s
AR
Jun
sue
st
;*+ READ TO CLEAR DONE
;TEST FOR XMIT READY
;LOOP IF NOT
:SEND A CHARACTER
;WAIT FOR RECEIVER DONE
JENABLE INTERRUPTS
;** GIVE TIME FOR INTERRUPT
;** GIVE TIME FOR INTERRUPT
;*+ GIVE TIME FOR INTERRUPT
:*+ GIVE TIME FOR INTERRUPT
;CONTINUE TEST

;*+ DISABLE MAINTENANCE MODE FOR
;e CONSOLE TO ALLOW FOR COMMUNICATION
;*+ WITH TERMINAL.
:RESTORE SP AFTER INTERRUPT
:RCVR INTERRUPTS AT PRIORITY 7

;CLEAR INTERRUPT ENABLE
;POINT PCVR VECTOR TO ERROR REPORT
;SET PSW TO PRIORITY 3

:GIVE TIME FOR ANY INTERRUPT
:GIVE TIME FOR ANY INTERRUPT
:ev DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
;e WITH TERMINAL.
:BR TO END OF

TEST,

INTERRUPT

LMAIN. MACY11 30A(1052) 10-JUN-B0
CZOLDE.P1Y
10-JUN-80 15:20

2877

2878
2879

2880
2881
2882

2883
2884

011244

042777

011252
011254

022626
104074

011256

010377

000004

171406

BIC

#BIT2,aCTCSR

(MP
(SP)+,(SP)+
ERROR+74
171362

15:21 PAGE 67
134
TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED

5%:

MoV

R3,3RVECT

;** DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
;e WITH TERMINAL.
;RESTORE SP AFTER INTERRUPT

;RCVR INTERRUPT REQUEST PASSED WITH BIT6 CLEAR
;RESTORE RECEIVE VECTOR

JAAIN,

MACY1Y 30A(1052)

CZDLDE.P1

10-JUN=BO

10-JUN-B0 15:20

15:21

2885

134

PAGE 68

TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED

SEQ 0067

2886

RL
A
L Al

2888

2887

;*TEST 35

2889
2890
2891
2892
2893

011262
011264
011266
011272
011276

000004
000005
017703
017704
012777

TST135:

171352
171350
011420

2895

011312

004737

014540

2897
2898
2899
2900
2901
2902

011320
011326
011330

052777
005000
012701

000004

105777
100405

171274

2894 011304 012777 000340
2896

011316

2903
2904
2905
2906
2907

011334
011340
011342
011344
011346
011350

2909
2910

011354
011360

2908
2911

011352

011364

2912
2913
2914
2915
2916
2917
2918
2919
535?

011370
011372

2922
2923

000140

005300
001373
005301
0013
000402
005777
005077
105777
100375

171340

171334

000002
62%:

171256
171256

63%:

171244

1%:

042777

000004

171260

011400
011406
011410
011412
011414

052777
000240
000240
000240
000240

000100

171226

011416

104075

2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934

0114620
011422
011430
011434
011436
011440
011442
011444
011446
011454
011460

022626
012777
004737
000140
000240
000240
000240
000240
042777
010377
010477

2937

011470

104076

2935
293

2938
2939

011464
011466
011472

000402
022626
010377

A A

SCOPE
RESET
MOV
MOV
MOV

SRVECT ,R3
aRPSW, R4
#2% ,RVECT

JSR

PC,WRPSW

MOV

171312

TEST RECEIVER FOR DOUBLE INTERRUPTS

l3k6.iRPSU
LWORD

140

BIS
CLR
MOV

#BIT2,a8TCSR
RO
#2,R1

TSTB
BMI
DEC
BNE
DEC
BNE

aR(SR
433

TST
CLR

1STB

BPL
BIC

BIS
NOP
NOP
NOP
NOP

RO
42%
R1
429
.+6
aRBUF
o TBUF
aRCSR
1%

#BIT2,aCTCSR
#B1T6,aRCSR

ERROR+75

011466
014540

000100
171164
171162

171146

171214

2%:

CMP
MOV
JSR
NOP
NOP
NOP
NOP
BIC
MOV
MOV

171160

3%:

BR
CMP

4%:

MOV

(SP)+,(SP)+
#3% ,3RVECT
PC,WRPSW
140
.WORD

ERROR+76

sCLEAR EVERYTHING
sSAVE RECEIVE VECTOR
+SAVE RECEIVE PSW VECTOR

;POINT RCV VECTOR TO CONTINUE TEST

:SET PRIORITY TO 7 AFTER INTERRUPT
;SET PSW TO PRIORITY 3

sSET MAINTENANCE WRAP
:#+ DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
;*+ THAT MIGHT BE IN THE PROCESS OF BEING
;*« RECEIVED TO FINISH AFTER MAINTENANCE
:*+ YRAP FOR THE UART UNDER TEST IS ENABLED.
;e (HECK FOR RECFIVER DONE
L
s
s
s
st
s

;** READ TO CLEAR DONE
:SEND A CHARACTER
:WAIT FOR RCVR DONE

s*+ DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
e+ WITH TERMINAL.

sENABLE RCV INTERRUPTS
;*+ GIVE SOME TIME
;*+ GIVE SOME TIME
;** GIVE SOME TIME
;*+ GIVE SOME TIME
:RCVR INTERRUPT DID NOT OCCUR

:RESTORE SP AFTER INTERRUPT
:POINT RCV VECTOR TO ERROR REPORT
;RESET PSW TO PRIORITY 3

#BIT6,aRCSR
R3,9RVECT
R4 ,aRPSW

;*+ GIVE SOME TIME
;*+ GIVE SOME TIME
;*+« GIVE SOME TIME
;o GIVE SOME TIME
sCLEAR INTERRUPT ENABLE
JRESTORE RECEIVE VECTOR
RESTORE RECEIVE PSW VECTOR

R3,aRVECT

JRECEIVER RE-INTERRUPTED
;RESTORE RECEIVE VECTOR

(33
(SP)+,(SP)+

;BR TO END OF TEST
sRESTORE SP AFTER INTERRUPT

LMAIN, MACY11 30A(1052)
10-JUN-B0
CZDLDE.P11
10-JUN-80 15:20
2940
2941
2942

2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984

D 6
PAGE 69
135
TEST RECEIVER FOR DOUBLE

15: 21

SEQ 0068

INTERRUPTS

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

SeTEST 36

TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF

;;"Q'."".""""""""""""'Q".""'Q""Q"Qt"Q'Q"Q'

011476
011500
011502
011506
011510
011514
011522
011530
011536
011540

000004
00C005
004737
000340
017703
012777
052777
052777
005000
012701

011544
011550
011552
011554
011556
011560
011562
011564
011570
011574
011600
011602

105777
100405
005300
001373
005301
001371
000402
005777
005077
105777
100375
042777

011610
011614
011620
011622
011624
011626
011630
011632
011640

005077
004737
000140
000240
000240
000240
000240
042777
000402

011642
011644

022626
104077

011646

010377

TST36:

JSR

014540
171130
011642
000100
000004

SCOPE
RESET

171122
171104
171102

aRVECT,R3

;SAVE RECEIVE VECTOR

BIS
BIS
CLR

#B1TA ARCSR
#B. . ¢c,al(5R
RO

;SET RCVR INTERRUPT ENABLE
;SET MAINTENANCE WRAP
;*+ DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS

MoV

171064

42%:

000004

43%:

1%:

171050

171022
014540

000100

170772

#2,R1

;POINT RCV VECTOR TO ERROR REPORT

1STB

aR(SR

BNE

4L2%

BM]
DEC
BNE
DEC

433
RO
42%
R1

s
S
s
T

.+6

THAT MIGHT BE IN THE PROCESS OF BEING
RECEIVED TO FINISH AFTER MAINTENANCE
WRAP FOR THE UART UNDER TEST IS ENABLED.
CHECK FOR RECFIVER DONE

TST

aRBUF

;** READ TO CLEAR DONE

T1STB

?R(SR

;WAIT FOR DONE

CLR
BPL

aTBUF

JSEND A CHARACTER

BIC

#BIT2,aCTCSR

(LR
JSR

aRBUF
PC,WRPSW

NOP
NOP
NOP
NOP
BIC
BR

170774

#2% ,aRVE(T

;**
;*+
;**
:**

171046
171046
171034

;SET PSW PRIORITY TQ 7

Mov
MOV

000002

PC,WRPSW
.WORD
340

;CLEAR EVERYTHING

.WORD

140

#BIT6,aRCSR
3%

(INTERRUPT)

;** DISABLE MAINTENANCE MODE FOR

;** CONSOLE TO ALLOW FOR COMMUNICATION
s+ WITH TERMINAL.
;READ RBUF TO CLEAR PENDING INTERRPUT
;SET PSW TO PRIORITY 3
;*+
;*+
;*+
;*+
:NO

ALLOW TIME FOR ANY ERRONEOUS
ALLOW TIME FOR ANY ERRONEOUS
ALLOW TIME FOR ANY ERRONEOUS
ALLOW TIME FOR ANY ERRONEOUS
INTERRUPT=CLEAR INT. ENABLE

INTERRUPT
INTERRUPT
INTERRUPT
INTERRUPT

2%:

(MP
(SP)+,(SP)+
ERROR+77

;RESTORE SP AFTER INTERRUPT
;READING RBUF DID NOT CLEAR INTERRUPT

3%:

MOV

;RESTORE RECEIVE VECTOR

R3,aRVECT

MACY11 30A(1052)
10=JUN-B0
E.P11
10-JUN-80
15:20
CZDLD
MAIN.

';'Q"".""""""""""Q!".""""""""'Q"'."Q'QQ.Q'

BNE
BR

42%
.+6

DEC

170672

000377
170656

170670

43%:
1%:

014540

000240
062777
000402

012010
012012

022626

012014

010377

000100

104100
170624

TST
MOV

1STB

aRBUF
#377,aTBUF
aRCSR

RESET
JSR

PC,WRPSW

BPL

NOP
NOP
NOP
NOP

170626

aRCSR

43%
RO
42%

BiC

.WORD

;**
;**
;**
:#+

140

#BIT6,aRCSR

2%:

(SP)+,(SP)+
CMP
ERROR+100

3%:

MOV

R3,aRVECT

THAT MIGHT BE IN THE PROCESS OF BEING
RECEIVED TO FINISH AFTER MAINTENANCE
WRAP FOR THE UART UNDER TEST IS ENABLED.
(HECK FOR RECFIVER DONE

T1STB

BMI
DEC
BNE

;SET RCV INTERRUPT ENABLE
;SET MAINTENANCE WRAP
;** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS

L2%:

#2.R1

;POINT RCV VECTOR TO ERROR REPORT

MOV

#BIT6,aRCSR
#BIT2,3TCSR
RO

;SAVE RECEIVE VECTOR

000002

BIS
CLR

#2% ,8RVECT

;SET PSW TO PRIORITY 7

170710

MOV
MOV
BIS

LWORD
340
@RVECT RS

Semen

105777
100405

170754
012010
000100
000004

INTERRUPT

;CLEAR EVERYTHING

PC,WRPSW

011720
011724
011726
011730
011732
011734
011736
011740
011744
011752
011756
011760
011762
011766
011770
011772
011774
011776
012000
012006

014540

011670
011676
011704
011712
011714

004737
000340
017703
012777
052777
052777
005000
012701

SCOPE

RESET
JSR

011664

1ST37:

011656
011662

000004
000005

THAT RESET CLEARS RECEIVE

RN ENRRRRCOERRRROORNRORARRRRARAROERRROANOERRROROEROERORTTSE

011652
011654

TEST

CCRRRARRRRRRRR R AR

J*TEST 37

2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028

TEST THAT RCVR INTERRUPT (LEARS BY READING RBUF

2995

2993
2994

T 36

PAGE 70

2986
2987
2988
2989
2990
2991
2992

15 :2 1

;** READ TO CLEAR DONE
;SEND AN ALL 1'S CHARACTER
;WAIT FOR RCV DONE

;CLEAR RCV INTERRUPT §& RBUF
;SET PSW TO PRIORITY 3
;*+ ALLOW TIME FOR AN ERRONEOUS INTERRUPT
;** ALLOW TIME FOR AN ERRONEOUS INTERRUPT
;*+ ALLOW TIME FOR AN ERRONEOUS INTERRUPT
;*+ ALLOW TIME FOR AN ERRONEOUS INTERRUPT

:NO INTERRUPT=CLEAR INT. ENABLE
;CONTINUE TEST

;RESTORE SP AFTER INTERRUPT
;RESET DID NGT CLEAR RCVR INTERRUPT
;RESTORE RECEIVE

VECTOR

SEQ 0069

JAIN,

MACYYY 30A(1052)

CZDLDE .P11

10-JUN=B0

10=JUN=-B0 15:20

15:21

3029
3030

137

PAGE TM

TEST THAT RESET CLEARS RECEIVE INTERRUPT

3031

::""'Q'Q't't""""""0'00"0.'i"tt"'t't""""Q"t"t""

3033
3034

;"tt"'."t't""Q"""""Q"t"Q'Q'Q'Q'.'ttttt'l't"tt"tt"t'
1ST40:
SCOPE

3035

3036
3037

3038
%gzg

s*TEST 40

012020

012022

012030
012032

012040
012042

000004

032777

001471
032737

001407
005737

3041

012046

001404

3044
3045
3046

012056
012060
012062

001456
000005
052777

3042
3043

3047
3048

3049
3050
3051
3052
3053
3054
3055
3056

012050

012070
012072
012076
012102
012104
012106
012110
012112

032777

005000
012701

3067

3068

012152

3069
3070
%8;}

012160
012162

3073

012164

3074
3075
3076

3077

3078
3079
3080

3081
3082
3083
3084

012172
012174
012176

012176
012200
012204

012206
012210
012212

000004

166762

170550

9%:

170510
170502

1%:
2%:

005077
105777
100375
005300

;1S THIS TEST ENABLED

BEQ
TST

£33
CTSTFL

;** NO
s ;ES THIS IS 11744, S THIS THE CONSOLE

1ST41

#BIT2,aTCSR

e+ NO
;CLEAR EVERYTHING
:SET MAINTENANCE WRAP

1STB
BMI
DEC
BNE
DEC
BNE

aR(SR
438
RO
42%
R1
42%

:*« RECEIVED TO FINISH AFTER MAINTENANCE
:*+ WRAP FOR THE UART UNDER TEST IS ENABLED.
;*+ (HECK FOR RECEIVER DONE
L
A
s
iee
s

TST

aRBUF

:*+ READ TO CLEAR DONE

(LR
TSTB
RE L
DEC

o TBUF
aTCSR
2%
RO

MOV

BNE
BIC

032777

040000

170456

BIT

005000
012701
005300

001376
005301
001374

100000

170444

4%:

000002

#B1T03,3SWR

RO
#2,R1

.+6

#3,R0

1%
#BIT2,9CTCSR

#BIT14,aRBUF

3%
BNE
ERROR+101

40%:

BEQ
RESET
BIS

170506

001001
104102

e+ NO

000004

032777

:1F NOT ENABLED, BR TO NEXT TEST
;ee [S THIS A 11744

00137
042777
001001
104101

1ST4
#BITO,FLAGLS

BEQ

(LR
MOV

000002

000003

#B1T10,a5wWR

BIT

43%:

012700

012142
012144

000010

170514

012122

3064
3065
3066

002624

005777

3059

012126
012132
012136
012140

003002

42%:

000402

3060
3061
3062
3063

000001

BIT

BEG
BIT

170532

012114

012116

167010

105777
100405
005300
001373
005301
001371

3057

3058

002000

TEST THAT THE "'OR'' ERROR & "'ERROR'' CAN BE SET

BIT

#BI1T15,aRBUF

4%
BNE
ERROR+102

CLR
MOV
DEC
BNE
DEC
BNE

RO
#2.R1
RO
40%
R1
40%

;e* THIS IS THE CONSOLE SLU.SHOULD THE OVERRUN
;** ERROR TEST BE PERFORMED

:#« DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
:«« THAT MIGHT BE IN THE PROCESS OF BEING

:SET CHARACTER COUNT TO SEND 3 (HAR,
;LOAD TRANSMIT BUFFER
:WAIT FOR TRANSMIT DONE

:DECREMENT CHARACTER COUNT
:BR IF ALL CHARACTERS NOT TRANSMITTED
:*+ DISABLE MAINTENANCE MODE FOR
:** CONSOLE TO ALLOW FOR COMMUNICATION
v+ WITH TERMINAL.

:TEST FOR "'OR'" ERROR FLAG

;BR, IF SET

:"'OR"" ERROR FLAG DID NOT SET

;TEST "ERROR'' FLAG

;BR, IF SET

:""ERROR'' FLAG DID NOT SET WITH "OR'" FLAG

;e DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
e+ THAT MIGHT BE IN THE PROCESS OF BEING
e+ TRANSMITTED TO FINISH BEFORE MAINTENANCE

:*+ YRAP FOR THE UART UNDER TEST IS DISABLED.
;e THIS WILL INHIBIT ANY COMMUNICATION
:e+ TO HARDWARE MEDIA SUCH AS TUSB THAT MIGHT
;*+ BE ATTACHED TO UART UNDER TEST.

SEQ 0070

MACY11 30A(105 2)
MAIN,
_10=JUN-B0
CZDLDE PN
10=JUN- 80 15:20

15: 21

140

PAGE 72

SEQ 0071

TEST THAT THE "'OR'" ERROR & "ERROR'' (AN BE SET

3085

;:""Q"QQ""""'""""'0"""'Q"l"t"".."""""""'

seTEST &

TEST

THAT BREAK

TRANSMITS ALL ZEROES

000001

003002

000010

SCOPE

BIT
BEQ
BIT
BEQ

#E1T8,aSwWR
TST42
#BIT0,FLAG4LS
9%

BEQ
BIT

9%
#BIT03,aSwWR

BEQ

TST42

BIS
CLR

#BIT2,aTCSR
RO

1ST

339 BREAK FUNCTION TEST ENABLED?
;BR TO NEXT TEST, IF NOT ENABLED
IS THIS A 11/44

CTSTFL

170336

100405

170354

9%:

MOV

000002
42%:

—

w
~

o
o

005300
001373
005301
170320
177777
170304

170300

170316

000001

170274

170262

001026

000001
000004

170250
170262

43%:
1%:

2%:

~
~N

062777
042777
104103
105777

001407
0462777
042777

170232

000001
000004

RESET

170224
170236

170206
170

T1STB
BM]
DEC
BNE
DEC
BNE
BR

#2 R

aRCSR
43%
RO
42%
R1
2%
.+6

%
-

;CLEAR EVERYTHING
;SET MAINTENANCE WRAP
s*+ DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
s+

THAT MIGHT BE

IN THE PROCESS OF

BEING

;** RECEIVED TO FINISH AFTER MAINTENANCE
;*+ WRAF FOR THE UART

UNDER TEST

;** C(HECK FOR RECEIVER DONE

IS ENABLED.

Ett

:tt

;tt

‘RN
A]

;*+* READ TO CLEAR DONE

1ST
MOV
1STB

oRBUF
#-1,3TBUF
aRCSR

;WAIT FOR RCVR DONE

CLR

aRBUF

;CLEAR DONE (LEAVING ALL ONES IN RBUF)

BPL

BIS
CLR
MOVB
BMI
INC
BNE
BIC
BIC

#BIT0,aTCSR
RO
aRCSR,$BDDAT
CONTS
RO
2%
#BIT0,aTCSR
#BI112,aCTCSR

ERROR+103
aRBUF
CONT41: TSTB
3%
BEQ
TCSR
#B1T10,a
BIC
TCSR
#BIT2,aC
BIC

3%:

166566

NC
YES THIS IS 11744, IS THIS THE CONSOLE
SLU
NO
THIS IS THE CONSOLE SLU.SHOULD THE BREAK
TSST BE PERFORMED

105777

NN
oo

N AN AN NN

AR
— — —
nNOSsONO

272

000004

o
o

LELNTNTNTNTNTNT
NT ST NTNTNTNTNTNT ST NTNTST.Y)

—

-l

[=lelelelelelelelolelelalalalolatoleteto)

B W NN N N N N NN
o
OOV
NgmzumASOONOmbWN-‘OOONomwa - OOV Ngm

N U
N U U U
N U U U U U U
N U L
A U N U

NNRNIMNNNMNINININ
b = b b b BB B 2 2 OO O

—.-‘-‘_.-._.—.—l-‘.-‘-.d-‘—.-J—.—.—l.—l—‘—‘_.—‘—.—l—‘—.—l—l—.—.-‘-‘—‘-‘—'

N U N U U N AN NN N N NN N NN

3104

O0OO0OO0O0O0

002624

TST41:

166614

osrosrN

o
D

000400

osr~oro
N

001472
000005
052777
005000
012701

DN
NN

001404
032777

OO00O0OO0O

00C004
032777
001505
032737
001407
005737

AR RARRRERRRRRRRERTRRRRRRRRRRRRRRRRRRRRRRRRRRRORORORROORROROEROETRTS

b D

3086
3087
3088
3089
3090
3091

ERROR+103
#BIT0,aT(SR
BIC
#BIT2,aCTCSR
BIC

:TRANSMIT

ALL

ONES

TO RCVR

: TRANSMIT BREAK

;CLEAR A TIMER

;WAIT FOR RCVR DONE

;BR IF DONE
;1F NOT, INCREMENT TIMER
;BR IF TIME REMAINS
;CLEAR BREAK BIT
;** DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
s*+ WITH TERMINAL.

;BREAK DID NOT TRANSMIT ANYTHING
;CHECK RECEIVE BUFFER FOR ZERO
:BR, IF ZERO
;CLEAR BREAK BIT
;** DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
s+ WITH TERMINAL.

;BREAK DID NOT TRANSMIT ALL ZEROES
;CLEAR BREAK BIT
;*+ DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
;% WITH TERMINAL.

10-JUN-80
MACY11 30A(1052)
LMAIN,
10-JUN=-80
E.P11
15:20
(ZDLD

PAGE 73
15 :21
T41
TEST

CrRARNR

N NN

SeTEST 42
e

001404
032777

i
D il
D
D

g\h\.fl\fl\.fi\fl\.fl\fi\fl\fl
°N°2°~° sSNooor~rnooe

——-y—-_——y

005300
001373
005301
001371
000402
005777
052777
005077

166370

000400

166360

000001

003002

000010

000004

9%:

42%:

170064

#BIT10,a5WR
TST4L3
#BIT8,aSwWR
TST43
#B1T0,FLAGLSL

;1S THE ''TEST ERROR FLAGS'' BIT SET
:BR TO NEXT TEST, IF NOT SET
:1S BREAK FUNCTION ENABLED
;BR TO NEXT TEST, IF NOT SET
see IS THIS A 11744

181

CTISTFL

S ;ES THIS IS 11/44. S THIS THE CONSOLE

s+« NO
sr*

SLU

;*+ NO

BIT

#BIT03,aSwR

BEQ

TST43

;ev THIS IS THE CONSOLE SLU.SHOULD THE FRAME
:*+ ERROR TEST BE PERFORMED
;** NO

BIS

#BIT2,aTCSR

;SET MAINTENANCE WRAP

MOV

#2,R1

;*+ THAT MIGHT BE IN THE PROCESS OF BEING

1STB

aR(SR

;*+ WYRAP FOR THE UART UNDER TEST
:«+ (HECK FOR RECEIVER DONE

DEC
BNE
DEC
BNE

RO
42%
R1
42%

s
L
T
L

BIS
CLR

#BI1T0,aTCSR
o TBUF

:SEND BREAK
;TRANSMIT A CHARACTER TO TIME BREAK

RESET

CLR

000002
170102

SCOPE

BIT
BEQ
BIT
BEQ
BIT

BEQ

166332

170120

TEST THAT "'FR'' ERROR CAN BE SET DURING BREAK

BEQ

002624

SEQ 0072

ZEROES

N ERRRRARCE RN RN CEROEORTRTOERORTRTRRNRRRRRRARRRCEORRRORROROEROROOTRRROEROETS

2222222222222 222222 2R

T1S142:

TRANSMITS ALL

BMI

43%:

BR
81

1%:

;ETB

43%

.+6
aRBUF

;CLEAR EVERYTHING

e« DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS

;** RECEIVED TO FINISH AFTER MAINTENANCE

s
s« READ TO CLEAR DONE

0462777
042777

000001
000004

170040
170052

BIC
B!C

#BIT0,aTCSR
#BIT2,aCTCSR

;CLEAR BREAK BIT
:*+ DISABLE MAINTENANCE MODE FOR

012606
012614

032777
001001

020000

170022

BIT
BNE

#B1T13,aRBUF
2%

:CHECK FOR FRAMING ERROR FLAG
;BR, IF SET

012616

104104

012620
012626

032777
001001

012630

104114

N O

D D il il
i

>]
OV~

D il il

N N U U U AN U U N N N U U W U U

—

170060

000001
170056
170044

012632

105777
100375

?2C5R

ERROR+104
100000

170010

2%:

BIT
BNE

#B1T15,aRBUF

ERROR+114
$:

IS ENABLED.

D i

NN
o
WSS BB SN
OoO~NN

NN NNNNNNNNOOO

105777
100405

002000

THAT BREAK

D - —

-l

NN N NN NN

3165

001451
000005
052777
005000
012701
(elelelelelelelelelelelelels]

S
o
-

w VI

NNV

N N N N NN N NN N N W

S "~

000004
032777
001470
032777
001464
032737
001407
005737

:WAIT FOR RCVR DONE

;*+ CONSOLE TO ALLOW FOR COMMUNICATION
:e+ WITH TERMINAL.

;BREAK DID NOT SET FRAMING ERROR
:TEST "'ERROR''FLAG
;BR, IF SET

:"ERROR'' FLAG DID NOT SET WITH "'OR'" FLAG

2222222222222 222222

SATEST 43
000004

012634
012636

000005
052777

012644
012646

005000
012701

012652
012656
012660
012662
012664
012666
012670
012672
012676
012700
012702
012710

105777
100405

012712
012716
012720
012724
012726
012732
012736
012740
012744
012750
012752
012754
012756
012760
012762
012766
012772

005300
001373
005301
00137
000402
005777
005001
105201

032737
001406

000004

000001

122701

000220

105777
100375

017702
043701
020102
001003

42%:

43%:

167740

000020

001765
010177

CLR
MOV

167756

122701

001770

BIS

000002

003002

1%:

5%:
2%:

167710
167676

167672

001112

105701

001411
000747
010137
010237
042777

013000

104105

013002
013002

042777

001024
001026
000004

3%:
167660

2222222222222

00022

#BIT2,aTCSR

;CLEAR EVERYTHING
;SET MAINTENANCE WRAP

T1STB

RO
#2,R1
oRCSR

BM]
DEC
BNE

43%
RO
42%

TST

aRBUF

DEC
BNE
BR

CLR
INCB
BIT
BEQ
CMPB
BEQ
CMPB
BEQ
MOV
1STB

R1
42%
.+6

R1
R1
#BITO,FLAGAS
5%
#20,R1
1%
#220,R1
1%
R1,aTBUF
aRCSR

BPL
MOV
BIC
CMP
BNE
T1S1B
BEQ
BA

2%
aRBUF ,R2
a#SUSWR,R1
R1,R2
3%
R1
4%
1%

BIC

#BIT2,3CTCSR

MOV
MOV

R1,$GDDA1
R2,$BDDAT

ERROR+105
000004

167650

Rttt
dl ]

SCOPE
RESET

167774

BIC

#BIT2,aCTCSR

;TRANSMIT A BINARY COUNT PATTERN - UP
;7O THE BIT POSITION INDICATED BY THE

;CONTENTS OF LOCATION '‘SUSWR''
s*+ DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
;*+
;*«
;*+
;*+

THAT MIGHT BE IN THE PROCESS OF BEING
RECEIVED TO FINISH AFTER MAINTENANCE
WRAP FOR THE UART UNDER TEST IS ENABLED.
CHECK FOR RECEIVER DONE

»
»

012632

2222222222222

R R

*
&

15143:

R R

TEST DATA PATH FROM XMIT TO REC USING MAINT WRAP

»
%

3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246

SEQ 0073

%
%

3197
3198
3199

*
%

3192
3193
3194
3195

3196

15:21
PAGE 74
142
TEST THAT "'FR'" ERROR CAN BE SET DURING BREAK

»
»

10-JUN-80
MACY11 30A(1052)
10-JUN-80
E.P11
15:20
CZDLD
.MAIN.

‘e« READ TO CLEAR DONE

CLEAR REGISTER FOR TEST DATA
INCREMENT THE TEST DATA
tee 11/44 CPU
'« TEST ALL DATA

FOR CONT-P IN TEST DATA
‘«+ CHECK
‘x« DO NOT XMIT *P

e+ DO NOT XMIT 220
:XMIT A CHARACTER

:WAIT FOR RECEIVER DONE

;GET RECEIVED CHARACTER
;CLEAR LOWEST UNUSED DATA BIT POSLTITON IN TEST DATA
; COMPARE DATA
;BR, IF NON-COMPARE
;TEST XMIT DATA FOR ZERO
:BR, IF FINISHED
;CONTINUE IF NOT
;STORE THE EXPECTED DATA
;STORE RECEIVED DATA
s*+« DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
s+ WITH TERMINAL.
;DATA COMPARE DATA

;*+ DISABLE MAINTENANCE MODE FOR
;** CONSOLE TO ALLOW FOR COMMUNICATION
s+ WITH TERMINAL.

10-JUN-80
MACY11 30A(1052)
P11
10-JUN-80
15:20
CZDLDE.
MAIN,

15 :21

T4 4
A

PAGE 75

TEST DATA PATHS USING WRAP CABLE

SeTEST 4é

SEQ 0074

ARl RRRRRRRRRRRRRRRRRRRd)

TEST DATA PATHS USING WRAP CABLE

;:"'.Q"t'Q"'t"'Q"""""""""""'i"""".'"'0"""'

000004
032777
001444
000005
005001

000200

166020

TST4G:

SCOPE
BIT
BEQ

#BIT7,3SWR
TST4S

CLR

RESET

;1S THIS TEST ENABLED
:BR, IF NOT
;CLEAR EVERYTHING
;CLEAR REGISTER FOR TEST DATA

;TRANSMIT A BINARY COUNT PATTERN - UP

;7O THE BIT POSITION INDICATED BY THE
105201

032737
001406
122701

013076
013102

013124

017702
043701
020102
001003
105701
001406
000743
010137
010237

013130

104106

b
b
b
i
b

i
—

A O
oSN OO

104064

W WWWNW

013074

(=lelelelela)]

013072

001770
122701
001765
010177
005000
105777
100403
005200
001373

000001

003002

1¢:

000220
167562

5%:

167546

2%:

CMPB

#20,R1

;TEST ALL DATA
;CHECK TEST DATA FOR “P
;D0 NOT XMIT *P

R1,aTBUF

;XMIT A CHARACTER

BEQ
(MPB
BEQ

1%
#220,R1
1%

CLR

MOV

1STB

BMI
INC
BNE

aRCSR

3%
RO
2%

001024
001026

4%:

MOV

aRBUF ,R2

1ST8

BIC
CMP
BNE

BEQ
BR

MOV

:11/44 (CPU

;CLEAR A TIMER
;WAIT FOR RECEIVER DONE
;BR IF DONE

; INCREMENT TIMER IF NOT

;BR IF TIME REMAINS

;RECEIVER DONE NOT SET

ERROR+64

; INCREMENT THE TEST DATA

R1
#BITO,FLAGALS

BEQ

000020

;CONTENTS OF LOCATION ''SUSWR''

INCB
BIT

a#SUSWR,R1
R1,R2
4%

T1ST4S
1%

R1,8GDDAT

R2,$BDDAT

ERROR+106

;GET RECEIVED CHARACTER
;CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA
; COMPARE DATA
:BR, IF NON-COMPARE
;TEST

XMIT DATA FOR ZERO

;BR, IF FINISHED
;CONTINUE IF NOT
;STORE EXPECTED DATA
;STORE RECEIVED DATA

;DATA COMPARE ERROR WITH WRAP (ABLE

10-JUN-80
MACY11 30A(1052)
.MAIN.
10-JUN-80 15:20
(ZDLDE.P1

SEQ 0075

TEST DL11=-W LOGIC BY EXERCISING THE XMIT,REC, & CLOCK

s*TEST 45
ororNoNeN
w oo
'FJ‘Sfiflfihfl-‘Crfl
ON S sy’wnunt~t~ui0iuu

’:}:}:*:ES*:
9S8 t:t:\dssgéLd\d\d\d\d\d\d\d\d\d\d\flhfl
FNES

*:,:Lfltd\fl&dhflkfl\fltflhfl
WNONONON)
= = OONOONOSNVOOoNSN &
NN

VWA

) i
i
i
i
D
i

N NN N NN
AN N

D
e
e

N N U
N
U U

N U

000004
000005

004737
000340
017703
017704
017705
017737
017737
017737
012777
012777
012777
012777
005737
001415
032777
001011
012777
012777
052777
052777
005000
012701

014540

105777
100405

167322

005300
001373
005301
001371
000402
005777
052777
052777
005037
005037
005001

oro

b
b
-

013614
000200
013666
000200
002624

002446
002450
002452
167440
167434
167420
167414

000100

165572

013702
000300
000100
000004

167420
167414
167402
167340

000002

167304

000100
000100
002442
002440

167300
167266

167250

000240
000240
062700
062700
001371
032777

000100

PC,WRPSW

:SET PRIORITY TO 7

MOV
MOV
MOV
MOV
MOV
MOV

@TVECT,R3
@RVECT RS
aRTCVT,RS
aTPSW,STPSW
aRPSW,SRPSW
aRTCPSW,SCPSW

;SAVE
+SAVE
+SAVE
:SAVE
:SAVE
:SAVE

MOV
MOV
MOV
MOV
ST
BEQ
BIT
BNE
MOV
MOV
BIS
BIS
CLR
MOV

#XMIT ,@TVECT
#20C,aTPSW
#RCV,aRVECT
#200,aRPSW
CTSTFL
1%
#BIT6,aSWR
1%
#CLK,aRTCVT
#300,aRTCPSW
#BIT6,aLKS
#BIT2,aTCSR
RO
#2.R1
aRCSR
43%
RO
42%
R1
429
.+6
aRBUF

JSR

PC,WRPSW

BIS
BIS
(LR
CLR
CLR
CLR
MOV
CLR

ADD

SDD
167214

340

TSTB
BM]
DEC
BNE
DEC
BNE
BR
TST

NOP
NOP

000000
000001

sCLEAR EVERYTHING

JSR

LWORD

014540

ke
8k
—

167500
167470
167516
167466
167454
167500

SCOPE
RESET

002454

) -l

D A

el -

D -l el —l -l -

O0O00O00O0O0O0O0O0O0O00000O

N N N U

oo PONIPININ)
= e b ed e e d h o
b

;;t'Q".""ttt"""""""'"Q""".."t"""..'t""t't""

CO0OO00

¥w

—-0Ov

A U A
A
AN
N NN
L
N N NN AN NN

=
SIFKE WRY

NN
N

3330

PAGE 76
TEST DATA PATHS USING WRAP CABLE

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

[eleleleleleleleleleleleleleleleleleloladoladode)

3286
3287
3288
3289
3290

15:21

BIT

:POINT TRANSMIT VECTOR TO TRANSMIT ROUTINE
:NO MULTIPLE INTERUPTS ALLOWED
:POINT RECEIVE VECTOR TO RECEIVE ROUTINE
:NO MULT INTERUPTS
:1S CONSOLE UNDER TEST?
:1F NOT SKIP CLOCK SET uP
:1F YES, ARE CLOCK TEST DISABLED?
:1F YES, SKIP CLOCK SET UP
:POINT VECTOR TO CLOCK INTERRUPT ROUTINE
sNO MULT INTERUPTS
:ENABLE CLOCK INTERRUPTS
;SET MAINTENANCE WRAP
:o% DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS
:++ THAT MIGHT BE IN THE PROCESS OF BEING

:«% RECEIVED TO FINISH AFTER MAINTENANCE

:#+ WRAP FOR THE UART UNDER TEST IS ENABLED.
;** CHECK FOR RECEIVER DONE
e
L
che
XL

#BIT6,aTCSR
#B1T6,aRCSR
XMTCNT
RCVCNT
R1
RO
#BUF ,R2
aTBUF
.WORD

XMIT VECTOR
RECEIVE VECTOR
CLOCK VECTOR
XMIT PSW VECTOR
RECEIVE PSW VECTOR
CLOCK PSW VECTOR

140

s
;*+* READ TO CLEAR DONE

:ENABLE TRANSMIT INTERRUPTS
:ENABLE RECEIVE INTERRUPTS
sCLEAR XMIT INTERRUPT COUNTER
:CLEAR RCV INTERRUPT COUNTER
:CLEAR A REGISTER FOR TEST DATA USE
;CLEAR TIMER
:POINT R2 TO RECEIVE DATA STORAGE
:SEND FIRST CHARACTER

:SET PSW TO PRIORITY 3
;WAIT FOR INTERRUPTS
;STALL
:STALL

#0,R0

:ADD INSTRUCTIONS ARE USED TO LENGTHEN LOOP TIME

#BIT6,aTCSR

;FINISHED ENTIRE TRANSMISSION

sl.RO

T0 COVER THE SLOWEST BAUD RATE ON THE FASTEST (PU

LMAIN. MACY11 30A(1052)
10-JUN-80
CZDLDE.P11
10-JUN-80 15:20

15:%2

L
6
PAGE 77
5
TEST DL11-W LOGIC BY EXERCISING THE XMIT,REC, & CLOCK

3342
g%zz

013424
013426

001402
000005

BEQ
RESET

%%22

013430

104107

ERROR+107

;TRANSMIT INTERRUPT TIMEOUT IN MAIN. DATA TEST

3347
3348
ggég

013432
013440
013442

023737
001402
000005

(MP
BEQ
RESET

;COMPARE THE NUMBER OF
;BR, IF EQUAL
;CLEAR EVERYTHING

3351
3352
3353
3354

013444

104110

002442

002440

38:

XMTCNT,RCVCNT
4%

ERROR+110

;BR, IF INTERRPUTS ARE DISABLED (FINISHED)
;CLEAR EVERYTHING

INTERRUPTS

;RECEIVER DID NOT GET FULL TRANSMISSION
;
IF RCVCNT=0, NO DATA RECEIVED
;
IF RCVCNT=?, THEN (XMTCNT=RCVCNT)
;
EQUALS THE NO, OF INTERRUPTS LOST.

SEQ 0076

LMAIN. MACY11 30A(1052)
10-JUN-80
CZDLDE.P11
10-JUN-80 15:20

3358
3359
3360
3361
3362
g%gz

013446
013452
013454
013462
013464
013470

005737
001410
032777
001004
005737
001001

%%gz

013472

104113

3367
3368
3369
3370
3371
3372
3373
3374
3375
3376

013474
013476
013502
013504
013506
013510
013512
013520
013522
013526

000005
012700
005001
022001
001014
105201
032737
001403
122701
001770

3378
3379
3380
3381
3;3%

013534
013536
013540
013544
013550

001763
000405
014037
010137
1041M

3377

013530

384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396

013552
013556
013562

3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409

013644
013646
013654
013656
013662
013664
013666
013672
013676
013700
013702
013706

3397

013566
013574
013602
013610
013614
013620
013622
013630
013632
013636

013640

032701

010377
010477
010577

013777
013777
013777
000137
005237
105201
032737
001403
122701
001770

032701

001404
042777
000402
110177
005000
000002
017722
005237
005000
000002
005237
000002

002624
000100

15:%25 PAGE 78
TEST DL11=-W LOGIC BY EXERCISING THE XMIT,REC, & CLOCK

4$:
165356

002444

$e:

002454

COMP:
000001

003002

9%:

000020

000040

8%:

001026

6%:

167072
167062
167110

7%:

001024

002446
002450
002452
014344
002442

167056
167044
167070

000001

003002

XMIT:
1%:

000020

000040
000100

2%:
166764

166760

XCONT:
XRET:

166744
002440

RCV:

002444

(LK:

TST
BEQ
BIT
BNE
TST
BNE

CTSTFL
5%
#BIT6,aSWR
5%
CLKCNT
5%

;1S CONCOLE UNDER TEST?
;1F NOT, SKIP CLOCK COUNT CHECK
;1F YES, ARE CLOCK TESTS DISABLED?
;IF YES, SKIP CLOCK COUNT CHECK
;CHECK FOR AT LESST ONE CiOCK INTERRUPT
;BR IF INTERRUPTS OCCURRED

ERROR+113

:NO CLOCK INTERRUPTS IN EXERCISER

RESET
MoV
CLR
(MP
BNE
INCB
BIT
BEQ
(MPB
BEQ

#BUF RO
R1
(RO)+,R1
6%
R1
#BITO,FLAGLS
8%
#20,R1
9%

;CLEAR EVERYTHING
;LOAD RECEIVED DATA POINTER TO RO
;SET UP REGISTER FOR COMPARISON
; COMPARE XMIT & RCV DATA
;BR, IF NOT EQUAL
; INCREMENT COMPARE DATA
;11744 CPU
:YES SKIP
;SKIP 20 DATA IF 11/44
:SKIP 20

BEQ
COmMP
BR
7%
MOV
=(R0O) ,$BDDAT
MOV
R1,$GDDAT
ERROR+111

;BR, IF NOT FINISHED
;
:BR TO END OF TEST
;STORE BAD DATA FOR ERROR REPORT
;STORE GOOD DATA FOR ERROR REPCRT
;DATA COMPARE ERROR IN EXERCISER

BIT

#BITS5,R1

;FINISHED CHECKING RECEIVED DATA?

MOV
MOV
MOV

R3,aTVECT
R4 ,aRVECT
RS ,@RTCVT

;RESTORE XMIT VECTOR
;RESTORE RECEIVE VECTOR
;RESTORE CLOCK VECTOR

BIT

#BITS5,R1

;SEND DATA PATTERN FROM 00 --> 37

MoV
MOV
MOV
JMP
INC
INCB
BIT
BEQ
CMPB
BEQ

BEQ
BIC
BR
MOVB
(LR
RTI
MOV
INC
CLR
RTI
INC
RTI

STPSW,aTPSW
SRPSW,aRPSW
SCPSW,aRTCPSW
ENDEV
XMTCNT
R1
#BITO,FLAGL4
2%
#20,R1
1%

XCONT
#BIT6,aTCSR
XRET
R1,aTBUF
RO

aRBUF , (R2)+
RCVONT
RO
CLKCNT

;RESTORE XMIT PSW VECTOR
;RESTORE RECEIVE PSW VECTOR
;RESTORE CLOCK PSW VECTOR
;GOTO NEXT TEST
s INCREMENT XMIT INTERRUPT COUNTER
s INCREMENT TEST DATA
:11/44 CPU
sTEST ALL DATA
;CHECK DATA FOR “P
;D0 NOT XMIT “P

:BR, IF MORE DATA TO BE SENT
;CLEAR XMIT INTERRUPT ENABLE
sRETURN, WITHOUT SENDING ANY MORE DATA
:SEND NEW CHARACTER
;CLEAR TIMER
;RETURN
;STORE RECEIVED DATA
: INCREMENT RCV INTERRUPT COUNTER
;CLEAR TIMER
;RETURN
; INCREMENT CLOCK INTERRUPT COUNT
:RETURN

SEQ 0077

MAAAALAALA AL A

A A

WRAPAROUND TESTING= AUTO INITIATION OF

i o

—

N 6
PAGE 79
145
TEST DL11-W LOGIC BY EXERCISING THE XMIT,REC, & CLOCK
A

T/A CONSOLE

SEG 0078
R

])

TEST

RCSR58 = 176500
RBUF58 = 176502

WINW

15:

CO~NOAVESS
Nn —

RERRRYb'S

MACY11 30A(1052)
10-JUN-B0
10-JUN-8 0 15:20
CZDLDE.PT

—

TCSR58
TBUF58
BGNADD
ENDADD
MR

AR AAAR

J*TEST 46
AR

013710

TST46:

000004

176504
176506
DEVADR
ENDADR

Al A

TEST CONSOLE WITH WRAP AROUND

RN TR R RN R

SCOPE

AR R AR A AR R R RN AR R

MAIN LINE
:

=
=
=
=

RN R RN RN AR

R AR RN

]

RRRRRARERRRRORRESE

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

RN RN RORNRANRTRRORS

TEST

THIS TEST PUTS COMMANDS OUT OVER THE SERIAL LINE WHICH
AROUND TO THE CONSOLE AND RECEIVES THE RESPONSES

IS WRAPPED

CONTROL P IS SEND TO GET THE CONSOLE'S ATTENTION AND THEN
T/ACA FOR APT) IS SENT.
THE PROGRAM CAN NOT SEE

SIT IN A LOOP WAITING FOR A 'B'' TO BE PRINTED BY THE CONSOLE AS A

SIGNAL TO APT THAT THE TESTING IS DONE. ALSO SINCE THE TESTING
INVOLES WRITTING TO THE CPU'S MEMORY A CHECKSUM IS CALCULATED AND THE

MEMORY TO BE USED INSIDE THIS PROGRAMS SPACE IS SAVE BEFORE
AND RESTORED AFTER TEST WITH ANOTHER CHECKSUM CALCULATION

013712
013720

032777
001451

013722
013730
013736

013737
012737
012706

000340
002432

013742
013746

005037
012737

002340
000100

013754

004537

013760
013764

000004

165120

177776

002434

177776

002342

WRAP :

ARl

AR AR
RRRT]

BIT

#BIT2,3SWR

108

‘SW BIT 2 1S ON

MOV

PSW, SAVEPS

:SAVE

MOV

#JIMSTK,SP

SUSE

BEQ

MOV

CLR

#340,PSW

LOCY

:RUN THIS TEST ONLY

OLD PSW

‘PUT IN NOW PSW
MY

STACK

(SO NO CLOBER)

MOV

#100,L0C2

:TIMING LOOP COUNTERS

014254

JSR

RS, SAVETE

:SAVE LOCATIONS T/A WRITES

004537
010437

014062
002436

MOV

JSR

RS, CHKSUM

:CALCULATE CMECKSUM

013770
013774

012700
004537

002564
014102

MOV

#CNTLP,RO

014000
014004

012700
004537

002566
014134

MOV

#PROMPT
RO

JSR

R4 .OLDSUM

RS,PUTLIN
RS,GETLIN

:SAVE

OLD CHECKSUM

:SEND OUT CONTROL P
;GET CRLF

CONSOLE>>>

—

FORZZSEIFAR

FEEREERRERERE

AL R

TESTING

;

SINCE THE CPU IS HALTED DURING THE TESTING
THE CHARS RETURNING, THUS THE PROGKAM WILL

10-JUN-B0
MACY11 30A(1052)
MAIN.
10-JUN-80 15:20
(ZDLDE PN

15:21

146

PAGE 80

TEST CONSOLE wIT H WRAP AROUND

SEQ 0079

014010
014014

012700
004537

014102

002610

MOV
JSR

#TA,RO

RS,PUTLIN

:SEND OQUT T/A<CRLF>

014020

004537

014200

JSR

RS,GETB

:GET THE A FROM ''=TESTB''

014024

004537

014310

JSR

RS,RESTTE

;RESTORE LOCATIONS T/A WRITES

014030
014034
014040
014042
014044
014050
014056

004537
020437
001401
000000
012706
013737
000137

014062
002436

JSR
cmp
BEQ

RS, CHKSUM

sRECALCULATE CHECKSUM

001000
002424
014400

177776

R4 ,0LDSUM

108

HALT
MOV
MOV

1%:

#1000,SP

SAVEPS ,PSW
$EOP

JMP

2222222232222

ROUTINE

S22

:RETURN THEIR SP

2R RS

TO CALCULATE

;RETURN PSW

:BR TO END OF PASS ROUTINE
R Rl
dld)

¢ HECKSUM ON PROGRAM

INPUT CONDITIONS
BGNADD = ADDRESS TO START CHECK SUM C(INCLUSIVE)
ENDADD = ADDRESS TO END CHECK SUM (EXCLUSIVE)
OUTPUT CONDITIONS
REG4 = CHECK
R

012700
005004

003014

2222222222333 223222322

CHKSUM:
1$:

024746

SUM

MOV
CLR

ADD
CMP
8NE
RTS

2222222222222 22222ttt
RRR R il

#BGNADD RO
R4
(RO)+,R4
#ENDADD ,RO

;GET STARTING ADDRESS
;RESET SUM
;ADD WORD TO SUM
;CHECK FOR END

;1F NOT DONE LOOP
:DONE RETURN

R 2222222222222222222323223
222222 23 3222222222222ttt
ll)

THE ADDRESS IN REGO UN TIL IT HITS A <377>

2222222222232 2222223 32223222232222222222220ttt
ll)

LflthJh)-‘iEC)C)
SN
oo

il
il
i
e
e

sassr>er

[elelelelelelele]

A L

N L\ U L

AN VAWMV
AWDA
PONUND b i e i e i s =

N=OOV®NOWVE
W =

THIS ROUTINE OUTPUTS T O THE SERIAL LINE CHARS STARTING AT

PUTLIN:

014234
000290

176504

1%:

MOVB

176506

014102

MOVB
BEQ
JSR
BIT
BEQ

10%:

JMP
RTS

(RO)+,R1
10%

RS, TIMER

#BIT7,TCSRS8

R1,TBUFS8
PUTLIN
RS

;GET DATA
;END OF DATA

;PROVIDE FOR TIMOUT

;TEST FOR XMIT READY

;WAIT FOR XMIT READY
;OUTPUT (HAR
;REPETE
sRETURN

LMAIN.

MACY11 30A(1052)

CIDLDE.PN

10-JUN-80

10-JUN-B80 15:20

1S:$26 PAGE 81

3523
W =00V
NOWVWER

W U

N N L W

N NN N NN N

VIV AN VAV AV

%g%g

39
3540
3541
3542
3543

3544
3545
3546

TEST CONSOLE WITH WRAP AROUND

THIS ROUTINE

L T

SEQ 0080
L

R R

INPUTS A CHARS FROM THE SERIAL LINE AND COMPARES

IT WITH THE EXPECTED VALUES POINTED TO BY REGO UNTIL NULL<00>

CRRRRR

014134

112001

014140
014142
014144
014150
014156
014160
014164
014170
014172
014174
014176

001416
105301
004537
032737
001772
113702
042702
120102
001760
000000
000205

014136

R AR RN N R RN RN

GETLIN:

105201

014234
000200

176500

1%:

176502
000200

10%:

MOvVB

INCB

BEQ
DECB
JSR
BIT
BEQ
MOVB
BIC
(MPB
BEQ
HALT
RTS

E RN NP RN RN RN NNRRRERRRERORANRNRNARRRRRRRNROOOOCEROETRY

(RO)+,R1

;GET EXPECTED CHAR

108
R1

;1F NULL EXIT

RS,TIMER
#BIT7,RCSRS8
1%
RBUF
58 ,R¢
#BIT7,R2
R1,R2
GETLIN

;PROVIDE FOR TIMOUT
;TEST FOR REC READY
;WAIT FOR REC READY

;RETURN

;STRIP PARITY
;ARE THEY THE SAME
:SAME GET MORE
sNOT SAME HALT

3547

R
LR LRl

3548

ggg?

3549

; THIS ROUTINE INPUTS CHARS UNTIL IT GETS THE CHAR 'B"’

3552
3555
3556
3557
3558
3559
3560
3561
ggg%

AND THEN RETURNS

EQlt't't'-O'QQQ""Qtt'tt't"ttt"t'QQtt'tQQQtt"..t"""t't'ttt""!t'tt
014200
014204
014212
014214
014220
014224
014230
014232

004537
032737
001772
113702
042702
122702
001363
000205

014234
000200

176500

GETB:

176502
000200
000102

JSR
BIT
BEQ
MOVB
BIC

(MPB
BNE
RTS

3564

3565

;

RS,TIMER
#BIT7 ,RCSR58
GETB
RBUF
58 ,R2
#B117,R2
#102,R2
GETB
RS

;OUT TIMING LOOP OUT
;TEST OFR REC READY
;NOT DONE YET

;STRIP PARITY
:CHECK FOR 'B'
;NOT "B'' REPETE
;WAS "B'" RETURN
L

ARl

3566
3567
;ggg

; THIS ROUTINE IS USED AS A TIME OUT FEATURE
; WHEN THE TIMING LOOPS BOTH REACH 0 THIS ROUTINE WILL
; CAUSE A HALT

3570

Et"!""t'ttt""""t'tt't't"'titti!ttt"ttQt.t't't'.t'.t"tl"""t"'

b314
3572

3573

35764
3575
3576
3577

3578

014234

014240
014242
014246
014250

014252

005337

001004
005337
001001
000000

000205

002340

TIMER:

002342

108:

DEC

BNE
DEC
BNE
HALT

RTS

LoC1

10%
LOC2
108

;DECREMPNT TIMING LOOPS

JEXECUTED R3 TIMES

;1F ZERO THIS ROUTINE

MACY11 30A(1052)
10-JUN-B0
MAIN,
10-JUN-80 15:20
CZDLDE.P11
579
580
3581
3582
3583

3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
359¢
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611

15:21
PAGE 82
T46
TEST CONSOLE WITH WRAP AROUND

SEQ 0081

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

: THIS ROUTINE SAVES THE LOCATIONS WRITTEN BY THE T/A CONSOLE TEST
; SO THEY MAY BE RESTORED LATER
.

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

014254
014262
014266
014272
014274

014276
014300
014304
014306

013737
012702
012701
011221
000241
006102
020227
100772
000205

000000
000002
002346

002344

SAVETE:
1%:

024746

MoV

MOV
MOV

MOV
CLC

0,SAVED

22.R2

#SAVLOC ,R1
(R2),(R1)+

ROL

R2
R2,#ENDADD

RTS

CMP
BMI

;SAVE LOCATION 0
sSET UP INDIRECT PNTER
;SET UP STORAGE LOC. PNTER
;GET WORD AND SAVE
;DONT ROT IN ANY BITS
sSET NEXT ADDRESS
;SEE IF AT END
sNO REPETE

:"t"'i"'.'.""""""'"""".'t"'i""."t."'i'l""'QQQ"Q"""

: THIS ROUTINE RESTORES THE SAVED LOCATIONS THAT T/A WRITES INTO
.

;t.'t't't't.t.'""""""""""Qtt.""'."'.'Q"Q""."".'.Q'.""'

014310
014316
014322
014326
014330
014332
014334
014340
014342

002344
000002
002346

024746

000000

RESTTE:

1%:

MOV
MOV
MoV
MOV

(LC

ROL

CMP
BMI
RTS

SAVED,O

"2 ,R2

#SAVLOC,R1

(R1)+,(R2)

R2
R2,#ENDADD
1%
RS

;SET UP INDIRECT PNTER
;SET UP STORAGE LOC. PNTER
;GET WORD AND RESTORE
;DONT ROT IN ANY BITS
;SET NEXT ADDRESS
;SEE IF AT END
:NO REPETE

MACY11 30A(1052)
10-JUN-80
MAIN,
10-JUN-80 15:20
(ZDLDE L1

15:
21

T46

PAGE 83

TEST

CONSOLE WITH WRAP AROUND

;END OF DEVICE PASS ROUTINE

014344
014350
014354
014362
014364
014370
014374

(05037
005237
023737
001002
000137
005037
000137

001002
001076
002630

ENDEV:

00! 076

013712
002624
004050

NOEOP:

.SBTTL

EVEN
CLR
INC
CMP
BNE
JMP
CLR
JMP

END OF

;CLEAR TEST NO. COUNT FOR SCOPE ROUTINE
s INCREMENT DEVICE COUNTER
sALL DEVICES TESTED
;BR, IF NO
;EXECUTE WRAP AROUND AFTER ALL DEVICES
;CLEAR CONSOLE UNDER TEST FLAG
;GO TEST NEXT DEVICE

$STSTNM
$DEVCT
TMP2,SDEVCT
NOEOP
WRAP

CTSTFL

TSTDEV

PASS ROUTINE

Q'".'.'..""""'""""""""""Q""'"Ql""t""."'.

'INCREHENT THE PASS NUMBER ($PASS)
;*IF THERES A HONITOR GO TO IT

;*lF

014400
014400
014402
014406
014412
014420

014422
014424
014426
014430
014432
014434
014440
014444
014446
014450
014452
014454
014456
014460
014460
014462
014464
014470
014476

000004
005037
005237
042737
005327

000001
003015
012737
000001
014422
104401
013700
001405
000005
004710
000240
000240
000240
000137
014504
377
014470
005015
040520

THERE

ISN'T JUMP TO GOAGIN

$EOP:

001002
001074
100000

001 074

SCOPE
CLR
INC
BIC
DEC
$EOPCT: .WORD

BGT

$ENDCT:

014470
000042

$GET42:

MOV

.WORD
S$EOPCT

TYPE
MOV

BEQ

RESET

$ENDAD: JSR

$DOAGN:

377

000

047105
(€51523

020 104
000 040

$RTNAD:
SENULL:
ENDMG:

NOP
NOP
NOP

JMP
.WORD
.BYTE
.EVEN
LASCIZ

$TSTNM
$PASS

#100000, $PASS
%PC)'

$DOAGN

;slERO THE TEST NUMBER

;s INCREMENT THE PASS NUMBER

;:DON'T ALLOW A NEG. NUMBER
s .LOOP?
JYES

%PC)O.Q(PC)O

..RES ORE COUNTER

.ENDMG
ak&?2 ,RO

;:TYPE "END PASS''

$DOAGN

PC,(RO)

a(PC)+
GOAGIN
-1,-1,0
<CR><LF>/END

;GET MONITOR ADDRESS
; :BRANCH IF NO MONITOR
;sCLEAR THE WORLD
;.60 TO MONITOR
..SAVE ROOM

; sRETURN

;sNULL CHARACTER STRING
PASS

SEQ 0082

MACY11 30A(1052)
10-JUN-80
(IDLDE.P11
10-JUN-80 15:20

3667
3668
3669
3670
3671
3672
3673
3674
3675

001076
000001

014530
014534

001100
003774

F2%k
al

5
51
51
52
014524

[=lelele]

366%
366
3664
3665

OOO?

MAIN,

15:21
PAGE 84
END OF PASS ROUTINE

002630

SEQ 0083

BNE

$OEVCT
", THP2

MOV
JMP

RSTRT
#1000,
5P
1571

;CLEAR DEVICE COUNT
;1S THERE ONLY ONE DEVICE UNDER TEST?
:BR, IF NOT
;RESET STACK POINTER
;GO DO ANOTHER PASS

RSTRT:

CLR
IMP

SUNIT
BEGIN

;CLEAR UNIT NUMBER

WRPSW:

MOV (S®),=(SP)

GOAGIN: CLR
(MP

001000
004172

014540
014542
014544
014550

000002

MOV

ADD

RTI

A(SP)+, (SP)

#2,-(SP)

;COPY RETUN PC

;MOVE NEW PSW TO STA(CK
;ADJUST JSR RETURN

;POP RETURN PC & NEW PSW

INE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS
; SUBROUT
014552
014554
014560
014564
014572
014574

010037
016637
104112

000000

000004
002622
000002

CATCH:

002620

TRAP VECTOR + &
;ADJUST TO POINT TO TRAP ADDRESS

MOV
(SP)+,RO
SUB
¥4 ,RO
MOV
RO,BOVE(CT
MOV
2($P) ,0LDPC
ERROR+112

;GET ADDRESS OF

HALT

;PROGRAM MUST BE

;STORE TRAP OR INTERRUPT ADDRESS
;GET PC WHERE TRAP OR INTERRUPT OCCURRED

;REPORT ERROR

RESTARTED AT

THIS POINT

MACY11 30A(1052)
10-JUN-B0
MAIN,
10-JUN-80 15:20
(ZDLDE PN

15: 21
PAGE 85
END OF PASS ROUTINE

3687
3688

SEQ 0084

::""'.""!.QQ""""""""""""Q""""".""""Q""

;*THIS ROUTINE WILL

INCREMENT

THE ERROR FLAG AND

THE

ERROR COUNT,

;*SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL
;*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY

;eSW15=1

HALT ON ERROR

;eSW13=1
;*SW09=1
;*CALL
i

THIS ROUTINE

ARE:

INHIBIT ERROR TYPEOUTS
LOOP IN ERROR
ERROR*N

; ;ERROR=EMT

AND N=ERROR

ITEM NUMBER

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

&
~
&~
o

HnN

VWA

d
b

EF
NN

~
~
wn

14756

014760
001063

122737

000001

001106

001014
015462

014700

001402
013716

022737
001001
000000
000002

MOV

$TSTNM,aDISPLAY

:DISPLAY

20%:

164114

3%:

4%:

001060

TEST NUMBER AND ERROR FLAG

: INCREMENT ERROR COUNT
:GET ADDRESS OF

ERROR

INSTRUCTION

;STRIP AND SAVE

THE ERROR

#BIT13,aSwWR

;SKIP TYPEOUT IF SET

JSR

PC,SERRTYP

;G0 TO USER ERROR ROUTINE

(MPB
BNE

#APTENV,SENV
2%

sRUNNING IN APT MODE
:NO, SKIP APT ERROR REPORT

JSR
.BYTE
.BYTE
BR
TST

PC,8ATY4
0
0
22%
aSWR

sREPORT FATAL ERROR TO APT

TYPE

BPL

HALT

CKSWR

B!T
BEQ
MOV
ST

BEG
MOV
BNE

6%:

(SP) ,$ERRPC

ERROR FLAG

BIT

CMP

000042

SERTTL

THE

:DON'T LET FLAG GO TO ZERO

#2,8ERRPC

MOVB

22%:
2%:

SuB

MOVB

001010
001060

014450

;SET

MOV

21%:

164130

001000

SERFLG

BNE

104401

001007
113737
004737

INCB

BEQ
INC

1646162

020000

164230
~N -—

001002
001012
001016
000002

-0

001775
013777
005237
011637
162737
117737
032777
001004
004737

$ERROR:

001003

P ——

105237

-0
el =l

014576
014576
014602
014604
014612
014616
014622
014630
014636
014644
014646
014652
014656
014656
014664
014666
014674
014700
014701
014702

HALT
RTI

@SERRPC,SITEMB

20%

L,SCRLF

$ITEMB,21%

#B1709,aSwR
4%
$LPERR, (SP)
$ESCAPE

ITEM CODE

:SKIP TYPEOUTS

:SET

ITEM NUMBER AS ERROR NUMBER

:APT ERROR LOOP
:HALT ON ERROR
:SKIP IF CONTINUE
sHALT ON ERROR!

:TEST FOR CHANGE IN SOFT=-SWR
;LOOP ON ERROR SWITCH SET?
;BR IF NO
;FUDGE RETURN FOR LOOPING
;CHECK FOR AN ESCAPE ADDRESS

$ESCAPE, (SP)

:BR IF NONE
;FUDGE RETURN ADDRESS FOR ESCAPE

#SENDAD ,a#4?2
6%

sACT=11 AUTO-ACCEPT?
:BR IF NO
JYES

:RETURN

10-JUN-80
MACY11 30A(1052)
MAIN.
10-JUN-8 0 15:20
CZDLDE.P11

PAGE 86
15:21
END OF PASS ROUTINE

.SBTTL

ERROR MESSAGE

SEQ 0085
TYPEOUT ROUTINE

:.'"".t'.""""""""""""""Q"".'""'QQQ""""'QQ.

;*THIS ROUTINE USES THE "'ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ''ERROR TABLE'' (SERRTB),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
$ERRTYP:

014760
014760
014764
014766
014770
014774

005000
153700
001004

001014

CLR
BISB
BNE

014776

013746

001016

MOV

015002
015004
015006
015010
015012
015014
015016
015022
015026
015030

000426
005300
006300
006300
006300
062700
012037
001404

104401

010046

001063

104402

1%:

001146

015032

104401

012037
001404
104401
000000

3%:

104401

000207

001063

4%:

5%:
6%:
7%:

013046
104402

005710
001770
104401

000771
020040
015114

a¥#S1TEMB,RO

015110
000

ASL
ASL
ASL
ADD
MOV

TYPE

.WORD
TYPE
MOV
BEQ
TYPE
.WORD
TYPE
MOV

BNE

MOV
TYPE
RTS

MOV
TYPOC
TST

8%:

$ERRPC,=(SP)

;;SAVE SERRPC FOR TYPEOUT
; ;ERROR ADDRESS

THE PC OF

THE ERROR

;.GET OUT
;sADJUST THE INDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE
M

#$ERRTB,RO
(RO)+,2%

;sFORM TABLE POINTER

;:PICKUP "'ERROR MESSAGE'' POINTER
::SKIP TYPEOUT IF NO POINTER

::"'"ERROR MESSAGE'' POINTER GOES HERE

,SCRLF

(RO)+,4%

5%
0

LSCRLF

(RO),RO
7%
(SP)+,RO

LOCRLF

a(R0O)+,-(SP)

.EVEN

;sTYPE

;:G0 TYPE=-=-OCTAL ASCIICALL DIGITS)

BEQ

LASCIZ

::SAVE RO
;sPICKUP THE ITEM INDEX

1F ITEM NUMBER [S ZERO, JUST
;o

(RO)
6%

TYPE

;:"'CARRIAGE RETURN'' & ""LINE FEED'

BR
DEC

BEQ

2%:

011000
001004
012600

,SCRLF

RO,=(SP)
RO

TYPOC

000000

104401

TYPE
MOV

;:TYPE THE ''ERROR MESSAGE''

::"'CARRIAGE RETURN'' & "'LINE FEED''

::PICKUP ''DATA HEADER'' POINTER
::SKIP TYPEOUT IF O
;:TYPE THE ''DATA HEADER''

::"'DATA HEADER'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & "'LINE FEED''
::PICKUP ''DATA TABLE'' POINTER
;260 TYPE THE DATA
:sRESTORE RO

::"'CARRIAGE RETURN'' & "'LINE FEED''
; sRETURN

::SAVE a(RO)+ FOR TYPEOUT
::G0 TYPE==OCTAL ASCIICALL DIGITS)
::1S THERE ANOTHER NUMBER?
::BR IF NO
;:TYPE

;. LO0P

TWO(2)

::TW0(2)

SPACES

LMAIN,

MACYTT 30A(1052) s1g6JUN-80

CZDLDE.PI

10-JUN-80 1

15:21

3786
3787

3789
1790
3791
3792
3793
3794

3795
3796
3797
3798
3799
3800
3801
3802
3803
3804

ERROR MESSAGE TYPEOUT ROUTINE
.SBTTL

3788

PAGE 87

SEQ 0086

POWER DOWN AND UP ROUTINES

R
R
R R R R il

;*POWER DOWN ROUTINE

015114
015122
015130
015132
015134
015136
015140

012737
012737
010046
010146
010246
010346
010446

0152§£
000340

015144
015150
015154
015162
015164

017746
010637
012737
000000
000776

163670
015260
015166

015142

010546

000024
000026

R
Le

$SPWRDN: MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

MOV
MOV
MOV
HALT
BR

000024

3805

#SILLUP,S#PWRVEC ;SET FOR FAST UP
#340 ,9#PWRVEC+2 ;PRIOD:7
RO,=(SP)
;PUSH RO ON STACK
R1,=-(SP)
;PUSH R1 ON STACK
R2,=(SP)
:PUSH R2 ON STACK
R3,=(SP)
sPUSH R3 ON STACK
R4 ,=-(SP)
:PUSH R4 ON STACK

RS,=-(SP)

;PUSH RS ON STACK

;HANG UP

aSWR,=(SP)
;PUSH aSWR ON STACK
SP.$SAVR6
;SAVE SP
#$PWRUP ,3#PWRVEC ;SET UP VECTOR

3806

R
A R R AR
Rl

3807
3808
3809
3810

;*POWER UP ROUTINE
R

3811
3812
3813

3814
3815
3816
3817
3818
3819
3820
3821
3822

3823
3824

3825

015166
015174
015200
015204
015206

015210
015212
015214
015216
015220
015226
015234
015240
015244

015246
015250
015252

3826
3827
3828

015254
015256
015260

3830

015270

3829

015262

012737
013706
012677
012605
012604

012603
012602
012601
012600
012737
012737
005037
005237
001375

015254
015260
163634

015114
000340
015260
015260

000024

SPWRUP: MOV
MOV
MOV
MOV
MOV

000024
000026
1%:

MOV
MOV
MOV
MOV
MOV
MOV
CLR
INC
BNE

R R

#SILLUP,Q#PWRVEC ;SET FOR FAST DOWN
$SAVR6,SP
;GET SP
(SP)+,aSWR
;POP STACK INTO aSWR
(SP)+,RS
(SP)+,R4
;POP STACK INTO R4

(SP)+,R3
;POP STACK INTO R3
(SP)+,R2
:POP STACK INTO R?
;sPOP STACK INTO R1
(SP)+,K1
(SP)+,RO
:POP STACK INTO RO
#SPWRON,3#PWRVEC ;SET UP THE POWER DOWN VECTOR
#340 ,#PWRVEC+2 ;PRIO:7
:WAIT LOOP FOR THE TTY
$SAVR6
$SAVRG
;WAIT FOR THE INC
1%

:0F WORD

104401
015262

TYPE
$PWRMG: .WORD

$POWER

:REPORT THE POWER FAILURE
;POWER FAIL MESSAGE POINTER

000000
000776
000000

$ILLUP: HALT
BR
$SAVR6: 0

-2

:THE POWER UP SEQUENCE WAS STARTED
: BEFORE THE POWER DOWN WAS COMPLETE

RTI

000002

005015

000122

047520

042527

SPOWER: .ASCIZ

<15><12>"'POWER"’

sPUT THE SP HERE

LMAIN,

MACY1T 30A(1052)

CZDLDE.P11

3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844

3845

3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859

3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874

10-JUN-80
10-JUN-80 15:20

15: 21

PAGE 88

SEQ 0087

POWER DOWN AND UP ROUTINES

.SBTTL

SCOPE HANDLER ROUTINE

.';""Q"'..'Q"""""""'Q"'.'.."".""""""QQ".Q"Q'Q

;*THIS ROUTINE

CONTROLS THE LOOPING OF

SUBTESTS.

IT WILL

INCREMENT

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG)

;*THE

;*SW14=1
:*SW09=1
s*CALL
SCOPE
;e

015272
015272
015274
015302

032777
001052

015304

000416

015306
015312
015320
015324
015330
015332
015334
015340
015342
015342
015346
015350
015356
015360
015366
015370
015374
015400
015406
015412
015416
015422
015430

013746
012737
005737
012637
000421
022626
012637
000407

000004
015332
177060
000004

105737

001003

104406

$SCOPE:

040000

163536

1%:

CKSWR
BIT
BNE

JMRRRRSTART

$XTSTR: BR

5%:

000004

001000

163462

001010

001006

001003
001002
001002
001006
001010
001060
000001
001002
001006

MOV
MOV
TST
MOV

000004

001072

001015
163404

INTO DISPLAY<15:08>

SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

BR
CMP
MOV

LOOP ON TEST
LOOP ON ERROR

::SCOPE= 107
;sTEST

#BIT14,aSWR

$OVER

(22E

FOR

THE

XOR

,
= (SP)
ANERRVEC
#5% , IFERRVEC

ar177060

FOR CHANGE

IN SOFT=-SWR

::LO0P ON PRESENT TEST?
J:YES IF SW14=1

AN S
TESTERAN

;:1F RUNNING ON THE "'XOR'' TESTER CHANGE
::THIS INSTRUCTION TO A "'NOP'" (NOP=240)

:+SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
;s TIME OUT ON XOR?

(ép)o.acsaavec
7

ssRESTORE THE ERROR VECTOR
;260 TO THE NEXT TEST
::CLEAR THE STACK AFTER A TIME OQuT
ssRESTORE THE ERROR VECTOR
;:;LO0P ON THE PRESENT TEST

:21T09.3$UR

;:LO0OP ON ERROR?

(SP)+,a#ERRVEC

$SVLAD
(SP)+, (SP)+

BR
6% :; #NRRNEND OF CODE FOR THE XOR TESTERANANAN
:;HAS AN ERROR OCCURRED?
S$ERFLG
2%:
T1STB
$SVLAD
BEQ
::BR IF NO

BIT

BEQ
MOV
BR
4%:
CLRB
$SVLAD: INCB
MOVB
MOV
MOV
CLR
MOVB
$OVER:
MOV
7%:

MOV
RTI

SLPERR,SLPADR
$OVER
SERFLG
$TSTNM

::BR IF NO

;:SET LOOP ADDRESS TO LAST SCOPE

::JERO THE ERROR FLAG
;s COUNT TEST NUMBERS
STSTNM, STESTN
;sSET TEST NUMBER IN APT MAILBOX
(SP) ,SLPADR
::SAVE SCOPE LOOP ADDRESS
(SP) ,SLPERR
;s SAVE ERROR LOOP ADDRESS
SESCAPE
;s CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
;sONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM,aDISPLAY ;:DISPLAY TEST NUMBER
SLPADR, (SP)
::FUDGE RETURN ADDRESS
;o FIXES PS

LJMAIN.

MACYT 30A(1052)1s1gaJUN-80

CZDLDE.P1N

10-JUN-80

15:21

3879
3881

015444

112737

3885

015460

000403

3887

015452

015462

015470

112737
112737

000001

3888
3889
3890
3891
3892
3893
3894
3895
3896

015470
015472
015474
015500
015502
015510
015512
015520
015522

010046
010146
105737
001450
122737
00103
132737
001425
017600

3898
3899
3900
3901
3902
3903
3904

015534
015540
015542
015546
015550
015552
015556

005737
001375
010037
105720
001376
163700
006200

3906
3907
3908
3909

015564
015572
015574
015602

012737
000413
017637
062766

3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922

015614
015620
015622
015622
015626
015630
015634
015636
015642
015644
015652
015655

004737
000000

015712

105737
001413
005737
001410
005737
001375
017637
005237
062766
105037
105037
105037

015710

3897

3905

015526

015560

062766

010037

3910 015610 013746

3923
3924
3925

3926
3927
3928

3929
3930
ggg;

3933

.SBTTL

APT COMMUNICATIONS ROUTINE

SATY1:

MOVB

#\,8FFLG

SATY(C

;;"'Qttt'ttt'ttt"'t"'tttt'"'tt"ttt""tttt't'tt"""tttt"t

3883
3886

.':'ttttt"'tt'tt"'t""""Q'ttQtt'!t't"'t"t"'t"ttt't'.tt'tt

3880

3884

SEQ 0088

3878

3882

PAGE 89

SCOPE HANDLER ROUTINE

015664
015670
015674
015700
015702
015704
015706
015707
015710

012601
012600
000207

000
000
000

015712

015710

015706
015710

SATY3:
$ATY4:

SATY(:

015706

000001

001106

000100

001107

000004

000002

001066

000004

001102

1%:
2%:

001102

001104
000004

001066

000004
000002

015620
000004

177776

3%:

11%:
001070
000004

12%:

$SMFLG:
$LFLG:
$FFLG:

#1,8MFLG

:TO TYPE A MESSAGE

#1,8FFLG

:TO ONLY REPORT FATAL ERROR

MOV
MOV
TSTB
BEQ
CMPB
BNE
BiTB
BEQ
MOV

RO,=(SP)
R1,=(SP)
SMFLG
5%
#APTENV, SENV
3%
#APTSPOOL ,$ENVM
3%
a4 (SP) ,RO

:PUSH RO ON STACK
;PUSH R1 ON STACK
:SHOULD TYPE A MESSAGE?
:1F NOT: BR
:OPERATING UNDER APT?
:1F NOT: BR
;SHOULD SPOOL MESSAGE?
:1F NOT: BR
:GET MESSAGL ADDRESS

TST
BNE
MOV
TSTB
BNE
SUB
ASR

$MSGTYPE
1%
RO, $MSGAD
(RO) +
2%
$MSGAD,RO
RO

:SEE IF DONE W/ LAST XMISSION?
:1F NOT: WAIT
:PUT ADDRESS IN MAILBOX
:FIND END OF MESSAGE

MOV
BR
MOV
ADD

#4,SMSGTYPE
5%
34 (SP) ,48
#2,4(SP)

;TELL APT TO TAKE MESSAGE

JSR
LMORD

PC,$TYPE
0

TSTB
BEQ
TST
BEQ
TST
BNE
MOV
INC
ADD
CLRB
CLRB
CLRB

$FFLG
12%
$ENV
12%
$MSGTYPE
1%
4 (SP),SFATAL
$MSGTYPE
#2,4(SP)

ADD

MOV

001106

000004
001066
000002
015710
015707
015706

MOVB

MOV

4%:
5%:
10%:

001066

MOVB

:TO REPORT FATAL ERROR

MOV
MOV
RTS

.BYTE
.BYTE
.BYTE

.EVEN

#2,4L(SP)

RO,$SMSGLGT

177776, (SP)

$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,R0
PC
0
O
0

!
?
‘

;BUMP RETURN ADDRESS

:SUB START OF MESSAGE
:GET MESSAGE LENGTH IN WORDS

:PUT LENGTH IN MAILBOX

;PUT MSG ADDR IN JSR LINKAGE
:BUMP RETURN ADDRESS

:PUSH 177776 ON STACK
:CALL TYPE MACRO

:SHOULD REPORT FATAL ERROR?
:1F NOT: BR
:RUNNING UNDER APT?
:1F NOT: BR
:FINISHED LAST MESSAGE?
:1F NOT: WAIT
;GET ERROR #
:TELL APT TO TAKE ERROR
:BUMP RETURN ADDRESS

:CLEAR FATAL FLAG
sCLEAR LOG FLAG
;CLEAR MESSAGE FLAG
:POP STACK INTO R1
:POP STACK INTO R1
:RETURN

;
i

:LOG FLAG
;FATAL FLAG

LMAIN.

MACY11 30A(1052)
10-JUN-80
10-JUN-80 15:20

CZDLDE.P11

3934
3935
3936
3937
3938
3939

000200
000001
000100
000040

15:21

PAGE 90

APT COMMUNICATIONS ROUTINE

APTSIZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040

SEQ 0089

LMAIN. MACY11 30A(1052)
10-JUN-B0
CZDLDE.P11
10=JUN=-80 15:20

15:21
PAGE 9
TYPE ROUTINE

SEQ 0090

%g:?

SBTTL

39‘2

. "tt""""'.""""""""".""""..QQ"""QQ"."Q""

3944

:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

3943

'ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O SYTE.

3945
3946
ggzg
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960

3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974

3975

3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986

3987

3988
3989
3990
3991

:'NOTE1:
;*NOTE2:
;*NOTE3:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
S$SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

‘.

;*CALL:
*1) USING A TRAP INSTRUCTION
s
TYPE
,MESADR
.'OR
.
TYPE
.
ME SADR
i
015712
015716
015720
015722

105737
100002
000000
000430

001057

015724
015726
015732
015740
015742
015750
015752
015756
015762
015764
015772
015774
015776
016000

010046
017600
122737
001011
132737
001405
010037
004737
000000
132737
001003
112046
001005
005726

016004
016010
016012
016016
016020
016024
016026
016030
016032
016034
016040

062716
000002
122716
001430
122716
001006
005726
104401
001063
105037
000755

000002

123726
001350
013746

001056

016002

016042

016046
016052
016054

012600

004737

000100

001107

015762
015452
000040

000011

2%:

60%:

MOV

61%:
623

3%:

4%:

000200

016240

016124

b1 ¥

6%:

001054

105366
002770

000001

3995

016072

105337

016240

004737

001107

016124

TSTB
BPL
HALT

BR
MOV
MOV
(MPB
BNE
BITB
BEQ
MOV
JSR
.WORD
BITB
BNE
MOvVB

1$:
001106

016060
016064

016066

$TYPE:

000002
000001

3992
3993
3994

TYPE ROUTINE

7%:

BNE
TST

$TPFLG
1%

3%
RO,-(SP)
a2(SP),RO
#APTENV,SENV
62%
#APTSPOOL ,$ENVM
62%
RO,61%
PC,8ATY3
O
#APTCSUP,SENVM
60%
(RO)+,-(SP)
4%
(SP)+

(SP)+,R0O

:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

;1S THERE A TERMINAL?
;iBR IF YES
:sHALT HERE IF NO TERMINAL
s sLEAVE

;:SAVE RO
::GET ADDRESS OF ASCIZ STRING
:sRUNNING IN APT MODE
:2NO,GO CHECK FOR APT CONSOLE
;;SPOOL MESSAGE TO APT
::NO,GO CHECK FOR CONSOLE
:SETUP MESSAGE ADDRESS FOR APT
::SPOOL MESSAGE TO APT
; sMESSAGE ADDRESS
;;APT CONSOLE SUPPRESSED
::YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK
:2BR IF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK

:sRESTORE RO

ADD
RTI
CMPB
BEQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB
BR

#2,(SP)

$CHARCNT
2%

::CLEAR CHARACTER COUNT
:GET NEXT CHARACTER

CMPB
BNE
MOV

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

::1S IT TIME FOR FILLER CHARS.?
s31F NO GO GET NEXT CHAR.
:2GET # OF FILLER CHARS. NEEDED

JSR

#HT, (SP)
8%
#CRLF, (SP)
5%
(SP)+

PC,$TYPEC

DECB
BLT

1(SP)
6%

DECB

$CHARCNT

JSR

PC,STYPEC

::ADJUST RETURN PC
:sRETURN
;;BRANCH IF <HT>
;;BRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIV
::TYPE A CR AND LF

::6G0 TYPE THIS CHARACTER
;sAND THE NULL CHAR.

;sDOES A NULL NEED TO BE TYPED?
::BR IF NO=--GO POP THE NULL OFF OF STACK
::6G0 TYPE A NULL

::D0 NOT COUNT AS A COUNT

.MAIN,

MACY11 30A(1052)
10-JUN-80
10-JUN-80 15:20

CZDLDE.P11

016076

15:21

PAGE 92

TYPE ROUTINE

SEQ 0091

000770

;:LOOP

$33533

~
~
~

[ PO

8%:
016240

162720

000002
162700

162712

MOVB

9%:

2(SP),asTPB

b:flugyunnu_ha
osroo0o
OO

—

> —s

O0OO0O0O0O000O

;:LOAD CHAR TO BE TYPED INTO DATA REG.
:sSEE IF KEYBOARD IS TALKING.
;:BRANCH IF IT ISN'T,
: sPUSH CHARACTER ONTO STACK.
::BIT CLEAR TOP BYTE AND PARITY BIT.
;:SEE IF THIS IS A *S.
:;BRANCH TO CONTINUE IF IT ISN'T.

2%
38 TKB, - (SP)

#177600, (sP)
O%S.(SP)0

1ST8

s TKS

;:WAIT FOR ANOTHER INPUT.

: :BRANCH BACK IF NOT READY.
: sPUSH NEXT CHARACTER ON STACK.
::BIT CLEAR TOP BYTE AND PARITY BIT.
;;SEE IF THIS IS A *0.
; :BRANCH BACK FOR MORE WAIT IF NOT.
:+1S CHARACTER A CARRIAGE RETURN?
: :BRANCH IF NO
;s YES==CLEAR CHARACTER COUNT

s KB, - (SP)

#177600, (5P)

000021

#21,(SP)+

000002

2%:

(MPB

#CR,2(SP)
1%

016240
000012

s sPOP SPACE OFF STACK
sGET NEXT CHARACTER
ssWAIT UNTIL PRINTER IS READY

as1PS
$TYPEC

162650
177600

000015

: sBRANCH IF NOT AT

;sTAB STOP

(SP)+

BIC
cMpP
BNE

3$:

;sREPLACE TAB WITH SPACE

;sTYPE A SPACE

#7 . SCHARCNT
9%

MOvVB
T1ST8B
BPL
MOV

177600
000C23

,(SP)

PC,ETYPEC

TST
BR
$TYPEC: TSTB
BPL

162674

162654

JSR
BITB
BNE

0021
V=N
NO~N
N=-=N

016130

000040
016124
000007

0724

oo3RR —_O0
— oo

TRSFoRE

—

(elelolelelele

;HORIZONTAL TAB PROCESSOR

000002

1%:

SCHARCNT
$TYPEX

(PC)+

s sCHARACTER COUNT STORAGE

BINARY TO OCTAL
AR

AR AR R

;315 CHARACTER A LINE FEED?
:;BRANCH IF YES
s sCOUNT THE CHARACTER

$TYPEX

INCB
$CHARCNT
: .WORD
$TYPEX: RTS
.SBTTL

1:EX1Y

#LF,2(SP)

(MPB

(ASCID)

AND

TYPE

ARl

;*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

;*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS===-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s«CALL:

MOV

o
H

.BYTE
.BYTE

TYPOS

NUM,
- (SP)

: NUMBER TO BE TYPED
;s CALL FOR TYPEOUT
::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

;:M=1 OR 0
;2 1=TYPE LEADING ZEROS
::0=SUPPRESS LEADING ZFROS

.'.
W

:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAME TERS AS THE LAST
;*$TYPOS OR $TYPOC
JeCALL:
.
.

MOV
TYPON

NUM,
- (SP)

JsNUMBER TO BE TYPED

;sCALL FOR TYPEOUT

&
;*STYPOC===ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBE

——

10-JUN-80
MACY11 30A(105 2)
MAIN,
10-JUN-80 1 5:20
CZDLDE.P11

15:21
PAGE 93
BINARY TO OCTAL

40%

seCALL:

g
NNg
~No
oo
~

NN N NN N NN
R R R R R RREREER
FERRXRR PR
DA
E
VARS8
~NO
"N
~N
SIEERE
ooonNoO
S~
~o&RR8
- NPT
N gw-~—OSSO
— §3~4$o~mma
RS
o~ SORRENEERVSHRERS

e
S e
D
D

ADD

$TYPOC: MOVB
MOVB

STYPON: MOVB

MOV

000006
016470
016467
000012

ADD
MOV3
MOVEB
MOV

D e e

D e

016471

MOV
:gza

1%:

D e

2%:

38:

8888
- NN

000060
000040
016464
016464
016466

-t
= OO

177770

7%:

o
i o
D e

MOV
ROL
DECB

TYPE
DECB

MOVB
BGT
BLT
INC
BR
MOV

MOV

D
D

ROL
ROL

58:

48:

6% :
000002

CLR

ROL
BR
ROL

BPL
BIC
BNE
ST
BEQ
INC
BIS
B!S

D e e

016470

000004

D
d o o
b o

MOV
TYPOC

$TYPOS: MOV
MOVB
MOVB

[eleleleleleTelelelelalelalelelelelalelelelelelalalalelelalalelelelelelelelelelelalalelalelelolelelele
el

e
i

8s:
$OCNT:
$OFILL:
$OMODE:

SEQ 0092

NUM,=(SP)

: :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

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

::PICKUP THE MODE
::LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE

$TYPON
#1,80FILL
#6,SOMODE
+1
#5.80CNT

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

R3.=-(SP)

R&,=(SP)

RS.=(SP)
:Enooe~1.aa

S:ADJUST RETURN ADDRESS

S:SET THE ITERATION COUNT

::SAVE R3
::SAVE Ré&

::SAVE RS
S:GET THE NUMBER OF DIGITS TO TYPE

26 ,R4
R&.SOMODE
SOFILL,R&
12(SP) .RS

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

RS
RS
RS
RS,R3

“:FORM THIS DIGIT

R3
RS
38

::CLEAR THE OUTPUT WORD
::ROTATE MSB INTO ''C"
1260 DO MSB

R3
$OMODE
7%
#177770.R3

::GET LSB OF THIS DIGIT
S:TYPE THIS DIGIT?
S:BR IF NO
::GET RID OF JUNK

R4
5%
R&

: :SUPPRESS THIS 0?
1:BR IF YES
SiDON'T SUPPRESS ANYMORE 0°'S

#'0,R3
#
R3

R3,8%
,8%
$OCNT

::TEST FOR O

S:MAKE THIS DIGIT ASCII
S:MAKE ASCII IF NOT ALREADY

::SAVE FOR TYPING

2360 TYPE THIS DIGIT
::COUNT BY 1

R4
2%
(SP)+,RS

*:BR IF MORE TO DO
::BR IF DONE
::INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
::RESTORE RS

(SP)+.R3

::RESTORE R3

(SP)+.Ré4

MOV
MOV
RTI

2(SP) .4 (SP)
(SP)+. (SP)

BYTE

.BYTE

.BYTE
.BYTE
.WORD

0
0
0

(ASCII) AND TYPE

#2,(5P)

S:RESTORE Ré

SiSET THE STACK FOR RETURNING
; ;RETURN

::STORAGE FOR ASCII DIGIT

*:TERMINATOR FOR TYPE ROUTINE

::0CTAL DIGIT COUNTER
S22ERO FILL SWITCH
: *NUMBER OF DIGITS TO TYPE

—

LMAIN,

MACY1T 30A(1052)

CZDLDE.P11

10-JUN-B0

10-JUN-80 15:20

15:21

4108
4109

PAGE 94

BINARY TO OCTAL (ASCII) AND TYPE

SEQ 0093

:}}?

LSBTTL

‘112

;:.0""""."'"""""t""'t".t"'Q'QQ"Q'QQ"""Q"""'Q

:}}2

JENABL

‘.1‘5

.'.'Q"Q.'QQQ'Q"""""""'Q"QQQ"'Q".""""Q't.""""".'

L1117

:»ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL

4116

:#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL

4120
4121
4122
612%
6124

016472
016500
016502
016506
016510

022737
001074
105777
100071
117746

000176

4126
6127

016520
016524

022726
001062

000007

123727
001456

001034

4125

4128
2};3

LSB

:*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

4118
4119

TTY INPUT ROUTINE

016514

016526
016534

042716

162336
162332

177600

4131
6132
4133
6136
6135
4136
4137
4138
2}28

016536
016542
016546
016552
016554
016560
016562
016564
016570

104401
104401
013746
104402
104401
005046
005046
105777
100375

017217
017224
000176

4141

016572

117746

162250

4146
4147
4148

016602
016606
016610

021627
001005
104401

000025

4150

016620

000757

4153
415
4155
4156
4157
4158
4159

4161
4162
4163

2}2; 016576 042716

001040

:«WHEN OPERATING IN TTY FLAG MODE.

$CKSWR: CMP
BNE
TSTB
BPL
MOVB

BIC

(MP
BNE

000001

C(MPB
BEQ

$GTSWR:

017235

19%:

162254

7%:

177600

TYPE
TYPE
MOV
TYPOC
TYPE
CLR
CLR
TSTB
BPL

#SWREG, SWR
15%
@$TKS
15%
a$TKkB,=(SP)

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

#7,(SP)+
15%

::1S IT A CONTROL G?
::NO, RETURN TO USER

#C177,(5P)
$AUTOB, #1
15%

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

::ECHO THE CONTROL=G (*G)
::TYPE CURREN. CONTENTS
::SAVE SWREG FOR TYPEOUT
1360 TYPE==OCTAL ASCII(ALL DIGITS)
:;PROMPT FOR NEW SWR
:sCLEAR COUNTER
::THE NEW SWR
::CHAR THERE?
;3
1F NOT TRY AGAIN

MOVB

a$TKB,-(SP)

::PICK UP CHAR

CMP
BNE
TYPE

(SP),#25
10%
L$CNTLU

::1S IT A CONTROL=-U?
::BRANCH IF NOT
S:YES, ECHO CONTROL=U (*U)

19%

SSLET'S TRY IT AGAIN

BIC

L$CNTLG
CSMSWR
SWREG, = (SP)

(:STRIP=OFF THE ASCII

,SMNEW
-(SP)
-(SP)
@$TKS

¥ C177,(SP)

SiMAKE IT 7-BIT ASCII

L4144

4145

4149 016614

9% :

017212

062706 000006

208 :

016622
016626
016630
016634
016636
016644
016650

021627
001022
005766
001403
016677
062706
104401

108 :

016662
016664
016672

001003
012777
000002

4160 016654

000015

ADD

#6,5P

118:
14%:

CMP
BNE
1ST
BEQ
MOV
ADD
TYPE

(SP), M5
168
& (SP)
1%
2(SP) ,aSWR
#6,5P
$CRLF

;:1S IT A <CR>?
S BRANCH IF NO
::YES, IS IT THE FIRST CHAR?
S BRANCH IF YES
;;SAVE NEW SWR
::CLEAR UP STACK
::ECHO <CR> AND <LF>

15%:

BNE
MOV
RT]

15%
#100,387KS

: ;BRANCH IF NOT
S RE-ENABLE TTY KBD INTERRUPTS
: RETURN

000004
000002
000006
001063

162174

123727 001035

000001

000100

162152

(MPB

SINTAG,#

::1GNORE PREVIOUS INPUT

“'RE-ENABLE TTY KBD INTERRUPTS?

MACY11 30AC1052)
10-JUN-B0
MAIN.
CZDLDE P11
10-JuN=-80 15:20
4164

4165

4166

4167
(168
6169
4170

N
6172
473
4174
4175
4176
6177
4178
6179
4180
4181
4182
4183
4184

4185
4186
L187
4188
4189
4190
L6191
4192
4193
4194
4195
4196
6197
4198
4199
4200
£201
4202

4203
4204
6205
4206
4207
4208
4209

0166764
016700
016704

004737
021627
002420

016712
016714
016720
016724
016726
016730
016732
01673¢
016740
016744
016746

003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401

016706

016752

021627

000720

15:21
PAGE 95
TTY INPUT ROUTINE

016124
000060

16%:

000067

JSR
CMP
BLT

PC,STYPEC
(SP),#60
18%

:;ECHO CHAR
SiCHAR < 0?
:;BRANCH IF YES

18%
#60, (SP)+
2(SP)
178
(SP)
(SP)
(SP)
2(sP)
-2(SP), (SP)
7%
$QUES

S BRANCH IF YES
SiSTRIP=OFF ASCII
::1S THIS THE FIRST CHAR
S:BRANCH IF YES
“INO, SHIFT PRESENT
::
CHAR OVER TO MAKE
::
ROOM FOR NEW ONE.
::KEEP COUNT OF CMAR
S:SET IN NEW CHAR
::GET THE NEXT ONE
LITYPE 2<CR><LF>

CMP

000002
177776

178

001062

188

aGT
BIC
TSt
BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE

.DSABL

LSB

000060
000002

SEQ 0094

(SP),#67

208

SiCHAR > 77

:SIMULATE CONTROL=U

.';.Q"t'.t'lQ'"""""""""".QQ"'"".'Q'QQ""".".""'

:'E:IS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s*CALL:

016754
016756
016764
016770
016772

011646
016666
105777
100375
117766

017014
017016
017022
017024

001013
105777
100375
117746

017034
017040
017042
017044
017052
017054
017062
017064
017072

022627
001366
750
026627
002407
026627
003003
042766
000002

000004
162054

000002

162050

000004

017000 042766 177600 000004
017006 026627 000004 000023

017030 042716

162022

RDCHR

RETURN HERE

(SP),=(SP)
4(SP),2(SP)
a$TKS
1%
@$TKB,4(SP)

::;PUSH DOWN THE PC
:*SAVE THE PS
S:WAIT FOR
P:A CHARACTER
S READ THE TTY

BNE
TSTB
BPL
MOVB

3$
@$TKS
2%
a@$TKB,-(SP)

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

BIC
CMP

162016

177600

BIC

000021

000140

000004

000175

000040

000004

::CHARACTER IS ON THE STACK

;:WITH PARITY BIT STRIPPED OFF

$RDCHR: MOV
MOV
1%:
TSTB
BPL
MOVB

2%:

000004

;2 INPUT A SINGLE CHARACTER FROM THE TTY

3$:

4$:

CMP
BNE
BR
CMP
BLT
CMP
BGT
BIC
RT]

#°C<177>,4(SP)
4(SP),#2%

177, (SP)
(SP)+,#21
2%
1%
4(SP),#140
4%
4(SP),#175
4
#40,4(SP)

::GET RID OF JUNK IF ANY
2218 IT A CONTROL=S?

SIMAKE IT 7-BIT ASCII

S:1S IT A CONTROL-Q?
2:1F NOT DISCARD IT
S:YES, RESUME
S21S IT UPPER CASE?
:;BRANCH IF YES
221S IT A SPECIAL CHAR?
::BRANCH IF YES
SiMAKE IT UPPER CASE
.60 BACK TO USER

"."t'tt"tt.'t""t"'t'""tt"'ttlt"tt."t't."tttt.t'l'tt!t"

:'EHIS ROUTINE WILL INPUT A STRING FROM THE TTY
s*CALL:

‘e

017074

010346

RDLIN

RETURN HERE

$SRCLIN: MOV

R3,-(SP)

;:INPUT A STRING FROM THE TTY

“"ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
::TERMINATOR WILL BE A BYTE OF ALL 0's

::SAVE R3

LJMAIN, MACY11 30A(1052)
10-JUN-80
CZOLDE.P11
10-JUN=80 15:20

15:21 PAGE 96
TTY INPUT ROUTINE

4220
4221

017076
017102

012703
022703

017202
017212

1%:
2%:

4223
4224
4225
4226
4227

017110
017112
017114
017120
017122

104407
112613
122713
001003
104401

000177

108:

001062

48:

4229
4230
4231
4232

017130
017134
017140
017144

111337
104401
122723
001356

017200
017200
000015

423,

017152

104401

001064

4222

4228

4233

017106

017126

017146

101405

000763

105063

4235
62%
4237

017156
017160
017162

012603
011646
9016666

4240

017200

000

4238
4239
4241

4242
4243
4244
4245

4246
4247
4268

017170
017176
017201

017202
017212
017217
017224

017232
017235
017242

012766
000002

177777

000004
017202

9% :

000

000010
052536
136
005015

020075
040
036440

005015
006507
053523
000
047040
000040

MOV
CMP
BLOS
RDCHR
MOVB
CMPB
BNE

#STTYIN,R3
#STTYINB.,R3
48

TYPE

(SP)+,(R3)
#177,(R3)
{1
$QUES

MOVBE
TYPE
(MPB
BNE

(R3),9%
,9%
#15,(R3)+
28

TYPE

LSLF

C(LRB

000002
000004

000
000012
020122

$TTYIN:
S$CNTLU:
SCNTLG:
$MSWR:

053505

$MNEW:

SEQ 0095

=1(R3)

::GET ADDRESS
::BUFFER FULL?
SiBR IF YES
1160 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
S:IS IT A RUBOUT
SiSKIP IF NOT

SiTYPE A *7°

S:CLEAR THE BUFFER AND LOOP
S ECHO THE CHARACTER

::CHECK FOR RETURN
S:LOOP IF NOT RETURN

S:CLEAR RETURN (THE 15)
S:TYPE A LINE FEED

MOV
MOV
MOV

(SP)+,R3
(SP),=(SP)
4(SP),2(SP)

BYTE

.BLKB
.ASCIZ
.ASCIZ
.ASCIZ

8.
.
:;RESERVE 8 BYTES FOR TTY [NPUT
/*U/<15><12>
::CONTROL ‘U
/*G/<15><12>
;:CONTROL ''G"
<15><12>/SWR = /

MOV
RTI

BYTE

.ASCIZ

#STTVIN,L(SP)

:;RETURN

*:STORAGE FOR ASCII CHAR. TO TYPE

::RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE
s3
FIRST ASCII CHARACTER ON IT

. TERMINATOR

NEW = /

MACY11 30A(1052)
10=-JuN-80
MAIN,
E.P1
10-JUN-80
15:20
(ZDLD

15:21

4250
4251

PAGE 97

TTY INPUT ROUTINE

.SBTTL

SEQ 0096

TRAP DECODER

LL
s
L

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION
;*AND USE

IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.

010046
016600
005740

000002

006300
016000
000200

017302

$TRAP:

MOV

RO,=(SP)

;s SAVE RO

1ST

=-(RO)

: ;BACKUP BY 2

MOV

MOVB
ASL
MOV
RTS

111000

;s THIS IS USE

017270
017272
017300

011646
016666
000002

000004

2(SP),RO

(RO) RO
RO
$TRPAD(RO) ,RO
RO

TO HANDLE

$TRAP2:

MOV

.SBTTL

TRAP TABLE

000002

;::GET

MOV
RTI

TRAP ADDRESS

::GET RIGHT BYTE OF TRAP
::POSITION FOR [NDEXING
;s INDEX TO TABLE
::G0 TO ROUTINE

THE "'GETPRI'' MACRO

(SP) ,=(SP)

4(SP),2(SP)

;sMOVE

THE

DOWN

;;MOVE THE PSW DOWN
;;RESTORE THE PSW

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE "'TRAP'" INSTRUCTION.

$TYPE
$TYPOC

$TYPOS
$TYPON
$GTSWR

017314

017316
017320
017322

ROUTINE

$TRPAD: .WORD

017302
017304
017306
017310
017312

016472
016754
017074

THE ROUTINES CALLED

$TRAP2

;;CALL=TYPE
;;CALL=TYPOC

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

TRAP+3(104403)
TRAP+4(104404)

TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

;;CALL=GTSWR

TRAP+5(104405)

GET SOFT-SWR SETTING

;;CALL=TYPOS
;:CALL=TYPON

$CKSWR ;;CALL=CKSWR
$RDCHR ; ; CALL=RDCHR
SROLIN ;;CALL=RDLIN

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)

TEST FOR CHANGE [N SOF T-SWR
TRAP+6(104406)
TTY TYPEIN CHARACTER ROUTINE
TRAP+7(104407)
TRAP+10(104410) TTY TYPEIN STRING ROUTINE

JMAIN,

MACYY1 30A(1052)

CZDLDE.P11

10-JUN-BO0

10-JUN=-80 15:20

15:21

6294

LSBTTL

SeAT THE CONSOLE
'YHE TEST IS MALTED BY TYPING A CONTROL=C

4299

S«TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING

4.300

. .Q"'Q'tt""""'"""""""'Q"'Q"""t"'.QQ"Q"Q""QQ'

4301
4302

017324
017324

000005

4304
4305

01733
017340

105777
100375

4313

017326

017342
017350
017354
017356
017362
017364
017366
017372

4314

017374

4318

017406

4315
4316
4317

4319
4320
4321
4322

432%

ECHO TEST

:*THIS ROUTINE WILL ECHO ANY CHARACTER TYPED

4297
(298

4308
4309
4310
4311
4312

SEQ 0097

QQQ'"".t.""t'.""""""Qt""""t'tt'tt'"'Q"QQ"""Q

4296

4306
4307

ECHO TEST

4295

4303

PAGE 98

017376
017400
017402

017410
017412
017414
017616
017422

ECHO

112777

000052

163326

117777
017700

163310
163302

163312

052701
030100
001403
004737

010000

100023

017476

163314

017507

017450

3%:
017450

006301
030100
001403
004737
017521

MOvVB
MOV

oC(RBUF ,a( TBUF
a3 RBUF ,RO

1STB
BPL

(%
017450

;ECHO INPUT
:STORE INPUT

:BR IF "'ERROR''NOT SET
:SET PARITY ERROR TEST MASK
:CHECK FOR PARITY ERROR FLAG
:BR IF NOT SET
:REPORT PARITY ERROR

:SHIFT MASK TO TEST “‘FR' FLAG

ASL
BIT
BEQ
JSR

R1
R1,RO

:SHIFT MASK TO TEST "OR'' FLAG
:TEST FOR OVERFLOW ERROR

BIC
(MP
BNE
JSR
MSTOP
HALT
1]

#BI17,R0
#3,RC
2%
PC,M36

:CLEAR ANY PARITY BIT
:WAS INPUT CONTROL=C
:BR IF NOT
:REPORT PROGRAM STOP

ECHO

;END OF TEST HALT
:AFTER END OF TEST HALT
:
PRESS CONTINUE TO RESTART ECHO TEST

MOV
ADD
1STB

a(SP)+,R0
#2,-(SP)
aCTCSR

:PICK UP MESSAGE POINTER
:ADJUST RETURN PC
:WAIT FOR XMIT DONE

MOVB
TSTB
BNE
RTS

(RO) +,aC TBUF
(RO)
WAIT
PC

:SEND CHARACTER
;1S THIS END OF MESSAGE?
:BR IF NOT
:RETURN

ASL

BIT
BEQ
JSR
MFR

MOR

R1,RO
A9
PC,MSG

5%
PC,MSG

:TEST FOR FRAMING ERKOR FLAG
:BR IF NOT SET
:REPSORT FRAMING ERROR

:BR IF NOT SET
:REPORT OVERFLOW ERROR

4333
4336
4335

017450
017452
017456

013600
062746
105777

4337
4338
4339
232?

017464
017470
017472
017474

112077
105710
001371
000207

163172

4342
4343
434

017476
017504
017507

005015
054524
015

040520
000
043012

044522

MPAR:

JASCIZ

<CR><LF>/PARITY/

040522

MFR:

JASCIZ

<CR><LF>/FRAMING/

4346
4347
438

017521
017526
01753&

015
043122
005015

047412
047514
052123

042526
000127
050117

MOR:

JASCIZ

<CR><LF>/0OVERFLOW/

MSTOP:

.ASCIZ

<CR><LF>/STOP/

4345

4349

017462

017514

017542

100375

044515

000

5%:

‘WAIT FOR INPUT

#MIT12,R1
R1,R0
3%
PC,MSG

MPAR

“TRANSMIT PROMPT ‘e’

017424
017430
017434
017436
017442
017444
017446

433

000200
000003

aCRCSR
2%

;CLEAR EVERYTHING

4324
4325
4326
4327
4328
4329
4330
4;%}
'

042700
022700
001337
004737
017534
000000
000726

#'+ 3CTBUF

BPL
BIS
BIT
BEQ
JSR

006301

030100
001403
004737

2%:

RESET

MOVB

017450

MSG:

000002
163176

043516

WAIT:

000

BPL

WALT

MACY1T

MAIN,
(ZDLDE PN
4350
4351
4352
6353
6356
4355
6356
4357
4358
4359

10-JUN-80

15:21

PAGE 99

SEQ 0098

ECHO TEST

017544

.EVEN
LSBTTL

TERMINAL OUTPUT TEST

.-;.tQ't"t'tt'!"'Q""t""tt"""t."tt."tt".lQQtQ"'Q.QQ"'

;*THIS ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS FOR THE
;*THE OCTAL CODE 040 =-> 377
:*32 CHARACTERS ARE PRINTED ON EACH LINE

:*THE PATTERN IS REPEATED EVERY THREE LINES

4360
4361
4362
4363
6364
4365
4366
4367

4368
4369
4370
3N
4372
4373
6374
4375
4376
4377
4378
4379
4380
4381
4382
4383

30A(1052)

10-JUN-80 15:20

;;lQQQt"'t'tt"t""t""'Q'Q"Qt'Q't't"t"tti"t'tt'ttt'ttt"Q
012701
012700

000040
000040

QUTTST: MOV
1%:
MOV

010177
105201
005300
001370
004737

163074

MOV
INCB
DEC
BNE
JSR

105777
100375

017574
017600
017602
017606
017610
017614
017616

001063
105777
100404

017620
017624
017626

005077
000000

032701

001353

163100

2%:

017450
163046

000200

:LOAD FIRST WRITABLE CHARACTER
:LOAD CHAR COUNT PER LINE

R1,aCTBUF
RO
2%
PC,MSG

:TRANSMIT A CHARACTER
:INCREMENT CHARACTER CODE
:DECREMENT CHAR COUNT
:BR IF LINE NOT COMPLETE
;SSUE CR,LINE FEED

$CRLF
TSTB
BM]

aCRCSR
3%

:ANY CHARACTER RECEIVED?
:BR IF YES

BNE

ouUTTST

:BR IF YES

1STB
BPL

BIT

000754

000746

#40,R1
#40,R0

A
163032

3%:

(LR
HALT

aCTCSR
2%
R1

#BIT7,R1
1%

aCRBUF

ouUTTST

:WAIT FOR DONE

:FINISHED ONE PASS OF WRITABLE CHARA(CTERS?
:1F NOT WRITE NEXT LINE
:CLEAR RECEIVER
:STOP TEST

:RESTART TEST IF CONTINUED

10-JUN-80
MACY1 30A(1052)
-MAIN.
P11
10-JUN-80
15:20
CZDLDE.

4384
4385
4386
4387
(388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399

017630

040503
020124
051523

PAGE 100

SEQ 0099

TERMINAL OUTPUT

TEST

020116
041501
052040

EM1:

LASCIZ

/CAN NOT ACCESS TCSR/

020116
041501
052040

EM2:

LASCIZ

/CAN NCT

051123
020105
046103
020104
052040

EM3:

LASCIZ

/TCSR DONE NOT CLEARED WITH TBUF

020122
047040
052105

EM4:

LASCIZ

/TCSR DONE NOT

SET/

020122

EMS:

LASCIZ

/TCSR DONE NOT

SET WITH RESET/

EM6:

LASCIZ

/CAN NOT

ACCESS RCSR/

EM7:

LASCIZ

/CAN NOT

ACCESS RBUF/

020116
041501
046040

EM10:

LASCIZ

/CAN NOT

ACCESS LKS/

052111
052040
047516
040505
042524
042523
020116

EM11:

LASCIZ

/BITC OF

TCSR NOT CLEAR AFTER RESET/

EM12:

LASCIZ

/CAN NOT

SET BITO OF

ACCESS TBUF/

FULL/

052506

4400
4401
4402
4403
4404
4405
44606
4407
4408
4409
4410
4611
4612
4413
414

051503

4615
4416
4617
4618
4419
44620
4621
4422

4423
4624
4425

4426
44627

4428

4632
4433

020234
020242
020246
020254

O?OOOO
&5
oo

4429
4430
4431
4634
4435
4636
437
4438
44639

15:21

T(SR/

042523
030124
041524

020124
047440
051123

047101
041440
041040
043117
000122
042523
020104

047040
042514
05211
052040

EM13:

LASCIZ

/CAN NOT CLEAR BITO OF

020124
047516

EM14:

LASCIZ

/RESET DID NOT CLEAR BITO OF

TCSR/

444k

4445

444b

447
4448
4449
4450
4451
4452

&»

4472
4473
4474
4475
4476
477
4,78
4479
4480
4481
4482
4483
4684
4485
4486
4487
4488
4489
4490
4491
4492

4467
4468
4469
4470
47

NONWHF
OO ON =2WNONN

4466

- fS - ONONIN)
— NNOONN-=O

4455
4456
4457
4458
4459
4460
4461
4462
4463
4464
4465

020106
000
052111
052040
047516
040505
042524

0462523
052111
051105
040440
047511
033440
047101
051440
052111
052040
020116
046103
044502
020108

4493

4494
4495

LASCIZ

/BIT2 OF

EM16:

LASCIZ

/CAN NOT SET BIT2 OF

047040
042514
052111
052040

EM17:

LASCIZ

/CAN NOT

020124
047516
040505
031124
041524

EM20:

LASCIZ

/RESET DID NOT CLEAR BIT2 OF

020066
051503
020124
020122
020122
000124

EM21:

LASCIZ

/B1T6 OF

EM22:

.ASCIZ

/XMIT

EM23:

LASCIZ

/CAN NOT SET BIT6 OF

047516
040505
033124
041524

EM24:

LASCIZ

/CAN NOT

052105
047040
042514
0521
052040

EM25:

.ASCIZ

/RESET DID NOT CLEAR BITo OF

047440
051123
041440

EM26:

LASCIZ

/B1T6 OF RCSR NOT CLEAR AFTER RESET/

020740

VNVO
SO

EM15:

4453
4454

SEQ 0100

TEST

— OO

444
4443

PAGE 101

TERMINAL OUTPUT

[oleleleloleNel=le]
OoONNNOWVING
SNk

046103
044502
020106

4440
4441

15:21

SN=TONONONOOCN
oOroNsSroNSwWNY

10-JUN-80
MACY11 30A(1052)
-MAIN.
1
10-JUN-80
15:20
CZDLDE P1

044440
052522
020124

044522
0cy
047040
052105
020066
051503

TCSR NOT CLEAR AFTER RESET/

T(SR/

CLEAR BIT2 OF

TCSR NOT

T(SR/

TCSR/

CLEAR AFTER RESET/

INTERRUPT AT PRIORITY 7/

TCSR/

CLEAR BIT6 OF

TCSR/

4510

021057

4512

021072

6511

4513
4514
6515
4516
4517
4518
4519
4520
4521

4522
4523
6524
4525
4526
4527

4528

4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
45640
4541

4542
4543
4544
4545
4546
4547
4548
4549
4550
4551

021064

021100
021106
021112
021120
021126
021134
021142
021150
021156

021160
021166
021174
021202
021210
021216

021222

021230
021236
021244
021252
021260
021266
021274
021302
021310
021316
021332
021340

021342
021350
021356
021364
021372
021400
021402
021410
021416
021424

N
O

LASCIZ

/RCVR INTERRUPT WITH PRIORITY 7/

EM30:

LASCIZ

/CAN NOT SET BIT6 OF RCSR/

EM31:

_ASCIZ

/CAN NOT CLEAR BIT6 OF RCSR/

047516
040505
033124
041522
052111
042523

EM32:

LASCIZ

/CAN NOT CLEAR BiT6 OF RCSR WITH RESET/

047440
020123
046103

EM33:

LASCIZ

/BIT6 OF LKS NOT CLEAR AFTER RESET/

9047111

EM34:

LASCIZ

/LKS INTERRUPT WITH PRIORITY 7/

EM35:

.ASCIZ

/CAN NOT SET BIT6 OF LKS/

EM36:

.ASCIZ

/CAN NOT CLEAR BIT6 OF LKS/

%
I4

2
1

103

047101

047040

051101

041040

052111

052117

020066
051503
040503
020124
020122
047440
051123
020110
000124

041440
043117
000122
020116
046103
044502
020106
053440
042522

044502
020106
047516

033124
045514
020124

045514

020123

040505
042524
042523

042526
020124
050040
052111
040503
020124
044502
020106
040503
020124
047440
000123

042522
044504
050126
020122
047440
000123
052504
042104
047111
047522

PAGE 102

TERMINAL OUTPUT TEST

Em27:

NSV

AV LV LV IV ]
(W IV T N
0N

OO0

Ot
N—d b
LSOO O0O0O
=OHSHwmnun
-

042514
052106
051505
122
047111
050125
044124
051117

020746
020754
020762
02076
020774
021002
021010
021016

15:21

Nt
N
WO

6496
4497
4498
4499
4500
4501
4502
4503

10-JUN-B0

10-JUN-80

—

MACY11 30A(1052)

OO0O0O0O0O0O0O

LMAIN.

CZDLDE.P11

042514

051040

020122
020122
000124

043101
042522

051122
044527
044522
020131
020116
042523
033124
045514
020116
6103

050125
044124
051117
000067
047516
020124
047440
000123
047516
040505

020106

045514

042523
020104
046103
044502
020106

020124
047516
040505
033124
045514

EM37:

,ASCIZ

/RESET DID NOT CLEAR BIT6 OF LKS/

046101
042522
020107
000122

040440
051523
051105

EMLO:

LASCIZ

/DUAL ADDRESSING ERROR/

SEQ 0101

LMAIN. MACY11 30A(1052)
10-JUN-80
CZDLDE.P11
10-JUN-80 15:20
6552
4553
6554
4555
6556
4557
4558
4559
4560
6561
4562
4563
6564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4576
4575
4576
4577

SEQ 0102

033124
045514
020124
043101
042522

047440
020123
042523
042524
042523

EM4T1:

ASCIZ

/BIT6 OF LKS NOT SET AFTER RESET/

020116
046103
044502
020106

047516
040505
033524
045514

EML2:

LASCIZ

/CAN NOT CLEAR BIT7 OF LKS/

033524
045514
051505
051440

047440
020123
047040
052105

EM43:

ASCIZ

/BIT7 OF LKS DOES NOT SET/

0461524
051105
040440
047511
033440
041524
051105
020123
042040
042514

044440
052522
020124
044522
000
044440
052522
044127
051511
000104

EM4LG:

LASCIZ

/RTC

INTERRUFPT AT PRIORITY 7/

EMLS:

JASCIZ

/RTC

INTERRUPTS WHEN DISABLED/

4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592

021644
021644
021652
021660
021666
021674
021700
021706
021714
021722
021725
021732
021740
021746
02175¢

044502
020106
047516
020124
020122
000124
040503
020124
020122
047440
000123
044502
020106
047504
052115
00
122
052116
052120
051120
0545064
122
052116
052120
047105
041101
052122
042504
020124
047516
052503
052122
041125
052116
052120
122
042040
052117
051105
000

020103
051122
044504
020126
000122
020103
042514
051105
_ 000
051505
042111
044440
052522

047111
050125
020104
041517

EM47:
EM46:

LASCIZ

/RTC

INTERRUPT DID NOT OCCUR/

047504
064440
052522

EMSO:

.:5CIZ

/RTC DOUBLE

052105
047040
052116
052120

EMS1:

.ASCIZ

/RESET DID NOT

459
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605

021762
021770
021776
0220064
022012
022020
022026
022032
022040
022046
022054
022056

052116
052120
047040
042514
052111
033524
045514
046103
042522
041101
000131
046530

041524

051105
042040
052117
051101
020110
047440

044440

EMS2:

LASCIZ

/RT1C INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS/

000123
041517
042520
046111

020113
052101
052111

EMS3:

LASCIZ

/CLOCK REPEATABILITY/

044440
052522
044127

EMS4:

JASCIZ

/XMIT INTERRUPTS WHEN DISABLED/

4578
4579

4593

4606
4607

021430
021436
021444
021452
021460
021466
021470
021476
021504
021512
021520
021522
021530
021536
021544
021552
021553
021560
021566
021576
021602
021607
021614
021622
021630
021636

15:21
PAGE 103
TERMINAL OUTPUT TEST

021755

022086
022072

122

052116
052120

052111
051105
020123

052522
042111
041440
053440
044502
020106

INTERRUPT/

—

LMAIN. MACY11 30A(1052)
10-JUN-80
CZDLDE.P11
10-JUN-80 15:20
4608
4609
4610
4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647
4648
4649
4650
4651
4652

4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663

022100
022106
022114
022122
022130
022136
022144
022152
022160
022166
022174
022202
022210
022214
022214
022222
022230
022236
022243
022250
022256
022264
022267
022274
022302
022310
022316
0%23%4
022332
022334
022342
022350
022356
022360
022366
022374
022402
022404
022412
022420
022426
022434
022442
022450
022452

022460
0224
022474
022502
022510
022516
022526
022532
022540
022546
022553

15:21
PAGE 104
TERMINAL OUTPUT TEST

047105
041101
046530
052116
052120
050040
052111
046530
052116
052120
044124
046102
040505

042040
042514
052111
051105
020123
0445%2
020131
052111
051105
020123
042440
020105
000122

051511
000104
044440
052522
052101
051117
000067
044440
052522
044527
040516
046103

046530
042111
044440
052522
130
042522
051105
042105
114
043516
020106
047516
040505
0625%4
124
041522
052103
047516
000124
041522
047117
042526
000124
041522
052103
047516
040505
044527
047117
000124
042522

052111
047040
052116
052120
044515
044455
052522
000
040517
052040
044504
020124
020122
051122

042040
052117
051105
000
020124
052116
052120

044504
020124
020122
042040
042122
041101
042111
041440
051040
047504
122

EMS6:

,ASCIZ

/XMIT INTERRUPTS AT PRIORITY 7/

EMS7:

,ASCIZ

/XMIT INTERRUPTS WITH ENABLE CLEAR/

EMS5:
EM60:

.ASCIZ

/XMIT DID NOT INTERRUPT/

EM61:

LASCIZ

/XMIT RE-INTERRUPTED/

044504
052502
020104
046103
047111
050125

EM62:

.ASCIZ

/LOADING TBUF DID NOT CLEAR INTERRUPT/

051126
053111
020124

040440
020105
042523

EM63:

.ASCIZ

/RCVR ACTIVE NOT SET/

051126
020105

042040
042516

EM64:

.ASCIZ

/RCVR DONE NEVER SET/

051126
053111
020124
042522
044124
020105

040440
020105
046103
020104
042040
042523

EM6S5:

.ASCIZ

/RCVR ACTIVE NOT CLEARED WITH DONE SET/

042523
020104
046103
041522
047117
020122
042514
047040
04%516
053103
042516
040505

020124
047516
040505
051126
000105
047105
042040
052117
051101
020122
000
044504

EM66:

.ASCIZ

/RESET DID NOT CLEAR RCVR DONE/

EM67:

.ASCIZ

/RDR ENABLE DID NOT CLEAR RCVR DONE/

EM70:

,ASCIZ

/READING RBUF DID NOT CLEAR RCVR DONE/

020122

042523

SEQ 0103

————————————————

LMAIN.

MACY11 30A(1052)

CZDLDE.P11

4664
4665
4666
4667
4668
4669
4670
4671
4672
4673
4674
4675
4676
4677
4678

022560
022566
022574
022602
022610
022616
022620
022626
022634
022642
022650
022656
022662
022670
022676

043516
020106
047516
040505
051126
000105
041522
052116
052120
044124
046102
040505
041522
052116
052120

022720
022726
022734
022742
022750

041522
052116
020124
042105
020110

044440
052522
044527
040516
046103

EM71:

_ASCIZ

/RCVR INTERRUPTS WITH ENABLE CLEAR/

044440
052522
052101
051117
000067
044440
051521
051523
0521
041101
042514

EM73:

LASCIZ

/RCVR INTERRUPTS AT PRIORITY 7/

EM74:

ASCIZ

/RCVR INT RQST PASSED WITH ENABLE CLEAR/

122
044504
020124
051122
041522
026505
051122
000104
042522
020107
042040
052117
051101
051105
000
122
042040
052117
051101
020122
051122
047447
040514
020104
042523
042447

053103
020104
047111
050125
051126
047111
050125

020122
047516
042524
000124
051040
042524
042524

EM72:
EM?75:

.ASCIZ

/RCVR DID NOT

EM76:

.ASCIZ

/RCVR RE-INTERRUPTED/

042101
041122
042111
041440
044440
052522

047111
043125
047040
042514
052116
052120

EM77:

.ASCIZ

/READING RBUF DID NOT CLEAR INTERRUPT/

052105
047040
042514
053103
042524
000124
043040
044504
020124

EM100:

.ASCIZ

/RESET DID NOT CLEAR RCVR

EM101:

_ASCIZ

/'OR'

051117

EM102:

.ASCIZ

/'ERROR' NOT SET WITH "OR'

023214

020047

0625$3

051505
042111
041440
051040
047111
050125
023522
020107
047516
000124
051122
047516

020124

023236

044124
020047
000

023440
046106

051117
043501

022756
022764
022767
022767

4696
4697
4698
4699
4700
4701
4702
4703
4704
6705
4706
4707
4708
4709
4710
4711
4712
4713
714

022774
023002
023010
023016

023024
023032

023040
023042
023050
023056
023064
023072

4715

023100
023106
023107
023114
023122
023130
023136
023144
023152
023160
023166
023174
023200
023206

4717
4718

023222
023

4716

719

SEG 0104

051126
051105
020123
042440
020105
000122
051126
051105
020123
044522
020131
051126
051040
040520
053440
047105
041440
000

4686
4687
4688
4689

4694
4695

PAGE 105

TERMINAL OUTPUT TEST

052502
020104
046103
041522

022704
022712

4690
4691
4692
4693

15:21

051040
044504
020124
020122
042040

4679
4680

4681
4682
4683
4684
4685

10-JUN-80

10-JUN-80 15:20

050040
052111

042514
051101

047117

020124

044527

INTERRUPT/

FLAG DID NOT SET/

FLAG/

JMAIN,

MACYTY 30A(1035)

CZDLDE.P1
4720

4.7%1

065522

045501

054040
046101
047522

044515
020114
051505

023237

023244

o«go«?

0
2%
0 %
023266
0 3274

052117
0201%6
042532
000

4727

023

042040

023275

045501

051440
051106
047522
040524
040520
051122

052105
020047
000122
041440
042522
051117

05§217
023440
051105
040504
046517
042440
000

4736

023362

047503

4738
4739
4740
4741
47642
474%
G746
4745
4746
4747
47648
4749
4750
4751
4752
475%
4754

023376
023404
023412
023413
023420
023426
023434
023442
023445
023458
023460
023466
023474
023475
023502
023510
023516

020122
041440
000
126
052125
054105
042523
052123
111
042522
041505
041440
000
194
047503
020105
020122

4756

023532

051105

4737

4755

4757

4758
4759

4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770

W771
4772
477%
4774
4775

023370

023524

023535

023542
023550

023552
023560
023566
023574
023602
023610
023616
0236§6
023632
023640

023646

023647
023654
023662
023670
023676

047040

042522

02331
023316
023354
023332
023340
023346
023354

(23355

062111

102

4728
4729
4730
4731
4732
4733
4734

4735

15:21

15:20

W7 g
472%
4726
4725
4726

10-JUN-B0

10-JUN-80

042111

047040

106

052101

020101

020105

051105

047522

042530

050115
044527
041101

051101

PAGE 106

TERMINAL OUTPUT TEST

SEQ 0105

EM103:

,ASCIZ

/BREAKX DID NOT XMIT ALL ZEROES/

EM104:

.ASCIZ

/BREAK DID NOT SET

EM105:

L.ASCIZ

/DATA COMPARE ERROR/

EM106:

.ASCIZ

/DATA COMPARE ERROR WiTH CABLE/

'FR'

ERROR/

044124
042514

046511
064440
051105
020122
000
041516
052103
044505
052517

047505
020116
044503
042524

EM107:

.ASCIZ

/TIMEOUT

051117
051040
042526
052116

EM110:

.ASCIZ

/INCORRECT RECEIVE

052101
050115
051105
047111

020101
051101
047522
042440

EM111:

_ASCIZ

/DATA COMPARE ERROR IN EXERCISER/

041522

000

IN EXERCISER TEST/

COUNT/

051511

126

040522

020120

EM112:

.ASCIZ

/TRAP CATCHER/

047516
044440
052522
020116
044503
042442
0200£§
0462523
044124
020042

041440
052116
052120
054105
042523
051122
047516
020124
021040
046106

045514
051105
044440
051105
000122
051117
020124
044527
051106
043501

EM113:

_ASCIZ

/NO CLK INTERRUPT IN EXERCISER/

EM114:

.ASCIZ

.
.
Lt
/''ERROR'' NOT SET WITH "'FR''
FLAG/

122
052103
047516
040505
044124

053103
053111
020124
020122
044440

040440
020105
046103
044527
044516

EM115:

_ASCIZ

/RCV ACTIVE NOT CLEAR WITH INIT/

040503
000122

000

041524

042510

JMAIN,

MACYNY 30A(1052)1 106JUN'80

CIDLDE .P11

10=JUN-80

4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788

023704
023706
022714
023722
023%7
023736
023744
023745
023752
023760
023766
023774
024002

000124
041522
0645264
052111
021040
021124
000
122
040516
047516
040505
044124
040440

4791
4792
4793
4794
4795
4796
4797

024012
024020
024026
024034
024037
024044
024052

4799
4800

024064
024072

:;88

4798

4801
4802

4803
4804

LASCIZ

/RCV ACTIVE WITHOUT ‘'START' BIT/

051104
046102
020124
020122
051040
052103

042440
020105
046103
044527
053103
053111

EM117:

_ASCIZ

/RDR ENABLE NOT CLEAR WITH RCV ACTIVE/

042524
020040
021522
051123
126
020040
050040

052123
051105
020040
000
051505
042440
020103

020043
047522
041524

DH1:

LASCIZ

/TEST®

ERROR#

T(SR/

021524
051122
052040

DH2:

LASCIZ

/TEST®

ERR PC

TBUF/

042524
020040

052123
051105

020043
020122

DHé6:

LASCIZ

/TEST®

ERR PC

RCSR/

051505
042440

021524
051122

DH7:

LASCIZ

/TEST®

ERR PC

RBUF/

020043
020122
045514

DH10:

JASCIZ

/TEST®

ERR PC

LKS/

0264162
024170
024176
024204
024212

124
020040
050040
052502
042524
020040
041520
000123
042524
020040
041520
042117
040502

052123
051105
020040
020040
000104

020043
020122
047507
020040

DH4O:

.ASCIZ

/TEST#

ERR PC

GOOD

BAD/

024224
024232
024240
024246
024254
02426

020040
0£1S%0
020123
047103
020040
000

052123

051105
020040
020040
030524
047103

020043

020122
045514
020040
020040
031124

DHS3:

.ASCIZ

/TEST#

ERR PC

LKS

(NTY

051505
042440
020103
020122
0521g1
052123
051105
020040

021524
051122
051040
020040
000101
020043
020122
041522

DH103:

.ASCIZ

/TEST#

ERR PC

RCSR

DATA/

DH105:

L.ASCIZ

/TEST#

ERR PC

RCSR

600D

024010

024060

024100
024106

024111
024116

024144
024152
024160

4817
4818
4819
4820
4821
4822

4823
4824
4825
4826
4827
4828
4829
48
4831

024132
024136

0264216

02426
024270
024276
0264
024312
024320
024326
024334
024342

000105

052502

041520
051123

042524

126

020040
050040
051503
042040

042524
020040
041520
051123

000106

020040
000

020103

000106
052123

051105
020040

020040

041522

051040

020040

——

SEQ 0106

EM116:

4B08
4809
4810

4816

PAGE 107

TERMINAL OUTPUT TEST

041501
053440
052125
051101
052111

024124

4811
4812
4813
4814
4815

15:21

020126
042526
047510
052123
041040

4805

4806
4807

15:2

S
S

CNT2/

BAD/

024502
024510
024516
024524
024532

020115

024540
024542
024550
024556
024564

005015
020040
041511
042116
051505

024572

001072
000000
001072
000000
001072
000000
001072
000

024724
024732
024740
024746

O
ONNO -

OOV~
SOO0OWVINN

PAGE 108

SEQ 0107

TERMINAL OUTPUT TEST

DH110:

LASCIZ

/TEST®

ERR PC

RCSR

TRANS

RCV/

DH112:

LASCIZ

/TEST#

ERR PC

RCSR

OLDPC

TRAP ADR/

M1:

.EVEN
LASCIZ

<CR><LF>/CIDLDED DL11=W, 1144 MFM SLU/

M2:
M2A:

.EVEN
LASCII
LASCIZ

O =N
=

-t
O

OoONO S S ONNO S

15:21

[=1V ]

024474

10-JUN-80

o
o0
OO0O
OOOO?OOOOOO
SSNONOVIWNVE
S
oW
VWA
VBN

NSO
NWOOSHf
WOoOOSroO ~

e \N
-

-l

024350

ABRIAARIRD
RRR
SRS

483
483
4834

NOO—-=NOMN

MACY11 30A(1052)
10-JUN-80 1
CZDLDE.P1
MAIN,

046104
046104
030454
043115
000125

DEVICES UNDER

TEST

062040
051505
051105
020124

053105
052440
052040
000040

001016

002640

DT1:

.EVEN
.WORD

STESTN, SERRPC, TCSR,0

001016

002642

DT2:

.WORD

$TESTN, SERRPC, TBUF ,0

001016

002634

DT6:

.WORD

STESTN, SERRPC,RCSR,0

001016

002636

DT7:

.WORD

$TESTN, SERRPC,RBUF ,0

001016

002674

DT10:

.WORD

$TESTN,SERRPC,LKS,0

001016
000000

001020

DT40:

.WORD

$TESTN, SERRPC, SGDADR, SBDADR , 0

002674
000000
002634

DT53:

.WORD

STESTN,SERRPC,LKS,FIRST,SECND,0

DT103:

.WORD

$TESTN, SERRPC,RCSR, SBDDAT , 0

002634
000000
002634
000000
002634
000000

DT105:

.WORD

$TESTN,SERRPC,RCSR,
SGDDAT, SBDDAT 0

DT110:

.WORD

,RCVCNT,0
RCSR,
XMTCNT
$TESTN, SERRPC,

pT112:

.WORD

$TESTN,SERRPC,RCSR,OLDPC,BOVECT,0

ENDADR:

.WORD

002622

.END

;END ADDRESS FOR CHECKSUM AND SAVE AREA
;OF WRAP AROUND CONSOLE

TEST

BOVECT
002622
1

1
e e

AN NN

A PN

PNNOSNVO

e =l=lelelalale
B elel. Lo}
COO NONVAANNIIN
S NWO N

d e e e

AVECT1= 000300
AVECT2= 000000

D e

[eleleolelelelelelolelelelelelolelelelelV b ol
NNOWVWV SN WWO NN
O NN WWWDM SO W
O=00OWNNO
WO NSO
OO NOIN S =0 O

—

L R

LNV
NNV NNV NNV NNV NN NN —
P o b P o P o o R o kR R bk b ko

000000
000000
000000

AN =

000000
000000
000000
000000

i lelelelolelelelololololelolelmlelelelel=t=d
jolelelels] [elelelelelelelelelelelelolelalV
AL N NN NN
SN WLV
oo roro MORLRLNLRNLALNL
PP W W S S S S S S S S S S SR o
L L Rk R P
PP o
P

ACDW2
ACPUOP=
ADCWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=
ADDW13=

.é..

CZDLDE.P

MACY11 30A(1052)

—

ABASE

ACDW

LMAIN,

10-JUN-80 15:20

10-JUN-80
15:21

CROSS REFERENCE TABLE == USER SYMBOLS

w1024

PAGE 110

1065

1039

1736

39354

3965
16694

1038
1063

4881

3963

.
9

SEQ 0108

oW
O

SEQ 0109

N
—
WO

W~NO
~woo
WO
—

3156

A
—

WOWw

3098

3368

1876

2691
2878
3178

2700
2897
3200

2932

2081
2160
2361
2533
2951

2087
2189
2376
2549
2978

2088
2190
2383
2562
2997

2350

2382

2386

3252

4348

4LB4B

4854

34994

42904

3408+

3660

4021

4304

4375

4381

4033

L3460

4344

4346

1890

2684
2871
3160

rnororON

3331
36794
3474
3846
34084
3362
26320
3461
3378
2235
3130#
1498
4306
1660

S rownurororON
WMNOWOD
S WN—O
NWVONS
00— S
NSEOOVNNN—

1634
1642
2028
2096
2246
2611
2579
3307
1640
3537
1970

1859

2674
2858
3138

WVIN
— O
LSEV
LV, T, -]
H —-0Oo

1847

2567

WROND
—
- Qb O~ GO
O — NN
o0 ~NwW

WwWrRON)
—
— 00 O~ G0
O =
OO

2672

wiNNDwWrO NN
S NPNOW
N SN
SN
YW 0oo
OO WA NO

B118 = 000400
BIT9 = 001000
= 000003
BPT
BPTVEC= 000014
002454
BUF
014552
CATCH
CHKSUM 014062
(KSWR = 104406
013702
(LK
CLKCNT 002444
CMPARE 007244
002564
CNTLP
(OmMP
013504
CONT
006246
CONT&T1 012400
(R
= 000015
CRBUF
002656
(RCSR
002654

8884
3518
8874
8864
9164
902#
14964
927
3458
3723
3309
14920
2429
14978
33704
22324
3122
8104
15304
1529¢

3042

N = 2 NN =00 NOr

= 000200

2734
2952
3242

1977

N
-

000010
000020
000040
000100

2717
2913
3236
8924
8914
8904
8894
2094
2214
2393
2568
3021

1920

2733
3260

-0

B1T7

=
=
=
=

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

1972

2O WN
ow NDWNSTN
=2 N =N NO
O &~ N =
—_O

BIT3
BIT4
BITS
BIT6

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

3670
3499
1638
2670
3177
895
894
893
892
891
890
889
888
887
886
171
3035
2620
4309
3181
3068
3073
1801

NN NN
RN N —

81100
81101
81102
81703
BI1T04
B1T05
81706
81707
BIT08
81109
BIT1
BiT10
BIT11
BIT12
BIT13
BIT14
BIT15
B!T2

1711%
36200
8954
2602
3173
885#
8844
3834
882#
881#
880#
8794
8784
8774
8764
8%
875#
8744
8734
872
8714
8704
8934

—
NN

BEGIN
003774
BGNADC= 003014
BITO = 000001

W
—
NN

JMAIN, MACY11 30A(1052)
10-JUN-80
CZDLDE.P11
10-JUN-80 15:20

15:21
PAGE 111
CROSS REFERENCE TABLE =-- USER

JMAIN,

MACYTT 30AC1052)

10-JUN-B0

CRLF
=
CRPSW
CRVECT
CTBUF

000200
002666
002664
002662

811#
15344
15334
1532#¢

CTPSW

002672

3178«
15364

1512
%lgz

CTVECT 00267C
DDISP = 177570
DEVADR 003014

CZDLDE.PI

CTCSR

CTISTFL

10-JUN-80 15:20

002640

002624

15:21

403N

4303«

4306+

4337«

(368«

3236+

3242+

4335

6366

1569+«
2127

1636
2212

1716+
2244

1535#
817#
15544

1007
1645

1605
1677

3420

1172

1177

1182

1187

15314
2793«

DH1

024012

DH10

024136

1122

DH103
DH10S
DH110
DH112
DH2
DH&O
DHS3

024263
024320
024364
024430
024037
024162
024216

1416
1426
1441
1451
1092
1242
1297

4823
143
4B834n
4B4LON
47954
48114
48164

1372

1377

DH7
DISPLA
DISPRE
DSWR =

pT1

024064

024111
001042
000174
177570

024572

1087

1859+
2798+«

1282

1112
1471

1097

1217

1287

2717«
3133«

2758¢
3138¢

1763
2300

1785
2342

1804
2374

1824
2409

1857
3039

1874
3095

1974
3153

1983
3305

2000
3358

1127

1132

1137

1142

1147

1152

1157

1162

1167

1232

1237

1247

1252

1257

1262

1267

1302

4807#

3874+

1103

1108

1223

1228

1098

1417
1427
1442
1452
1093
1243
1298

4LB75#
1432
LB794
48814
48634
4871
4873

1373

1378

1472

2691«
3126«

3703«

024670
024702
024716
024732
024602
024642
024654

1118
1675
942
905#
1086
1121
1400
1406
1411
1415

2684+
3065+

47994

DT103
DT10S
DT110
DI1112
D72
D140
D153

024622
003664
017324
000030
017630
020074
023107
023152
023200
023237

2674+
2968«

1476

1123

D17
DVADT
ECHO
EMTVEC=
EMm
EM0
EMI100
EMI01T
EM102
EMI03

1456

2664c
2913«

1207

1178

1113

1227

2652+«
2878+«

1202

024632

024612

1292

2624+
2871«

1197

D110

D16

1222

1107

1218

1288

1382

1613+«
1604

1183
1293

1387

1188

1457

1447

LBTTH

1193

1198

1203

1477

4LB6SH

4867
16774
43014
1589«
43864
44184
4704
“710#4
W7140
47204

1383

4330
1590«

1388

SEQ 0110

2583+«
28SBe

1192

1173

1283

1102

1890+
2816+

(8284

48034
1605+
1613
1006

1088

1876+
2810+

1446

117
1007#
9374
8164

CROSS REFERENCE TABLE == USER SYMBOLS

3980

DH6

PAGE 112

1307

1312

1317

1322

1327

1432

47914

1272

1277

1362

1367

1163

1168

1273

1278

1212

1337

1342

1347

1352

1357

1128

1133

1138

1143

1148

1153

1158

1233

1238

1248

1253

1258

1263

1268

17291

1303

LB6OH

1208
1392

1396

1308

1213
1397

1401

1313

1338
1402

1407

1318

1343

1408

1412

1323

1348
1413

16421

1328

1353
1422

1436

1461

1333

48618

1358

1363

1437

1462

1466

1368

1467

JMAIN, MACYT 30A(105%)
10-JUN-B0
CZDLDE.PI
10=JUN-80 15:20

EMI04
EMI0S
EMI06
EM107
Em
EMI10
EMI111
EM112
EM113
EMI14
EMI1S
EM116
EM117
EM12
EM13
EM14
EM1S
EMé
Em17
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
Em3
EM30
EM31
EM32
Em33
EM34
EM3S
EM36
EM37
EML
EM40
EM&

023275
023332
023355
023413
020117
023445
023475
023535
023552
023610
023647
023706
023745
020162
020213
020246
020307
020352
020403
017654
020436
020477
020542
020577
020630
020663
020724
020767
017700
021026
021057
021112
021160
021222
021260
021310
021342
017745
021402
021430

1420
1425
1430
1435
1126
1440
1445
1450
1455
1460
1465
1470
1475
13N
1136
1141
1146
1151
1156
109
1161
1166
"N
1176
1181
1186
1191
1196
1096
1201
1206
1211
1216
1221
1226
1231
1236
110
1241
1246

47260
47314
L7354
L7410
LL22#
L7460
47514
L7578
47604
L7654
L7714
L7778
47834
LL28#
46330
L4384
LaLim
44508
L4554
43904
LL60n
LL66n
La72n
W77
4482
LLB7H
L4938
44994
43944
4505#
45104
45154
45224
45284
45334
45374
45424
L4014
4S4LB
45524

EML3
EMLL

021522
021553

1256
1261

45630
45684

EM&L2

EM4LS

EML6
EM4?
EMS
EMSO
EMS1
EMS2
EMS3
EMS4
EMSS
EMS6
EMS?
EM6

021470

021607

021644
021644
017767
021700
021725
021755
022032
022056
022214
022114
022152
020024

1251

1266

1271
1276
1106
1281
1286
1291
1296
1301
1306
1M
1316
mmm

15:21
PAGE 113
CROSS REFERENCE TABLE == USER “YMBOLS

45584

4573

45794
45784
4405#
L584n
4588#
45934
“6014
46054
46214
46104
L6154
4e100

SEQ 0111

JMAIN,
MACY1T 30A(1052)
10-JUN-BO
(ZDLDE.P11
10-JUN-80 15:20
EM60
EM6]
EM62
Em63
EME4
EM6S
EM66
EM67
EM?
EM70
EM71
EM72
EM73
EM74
EM75
EM76
EM77
ENDADD=
ENDADR
ENDB7
ENDEV
ENDMG
ENDSTK
ERROR =

022214
022243
022267
022334
022360
022404
022452
022510
020050
022553
022620
022767
022662
022720
022767
023016
023042
024746
024746
004676
014344
014470
002412
104000

ERRVEC= 000004
FIRST

I 9
15:21
PAGE 114
CROSS REFERENCE TABLE == USER SYMBOLS

1321
1326
13N
1336
1341
1346
1351
1356
1116
1361
1366
13N
1376
1381
1386
1390
1395
36214
3421
1885
3390
3647
14864
804#
1996

L622n
L626m
46304
46374
L6461
N
LO4L5H
L6524
L6578
La14n
L6634
L6704
L6884
L6764
L6814
L6899
L693n
L697H
3502
48834
1904
36194
36604

3351

3365

1765

2002

2119
2317
2642
2937

2138
2330
2655
2982

8984

1602

3594

3611

1906#

1787

2014

2143
2365
2667
3026
3382

1603«

1806

2030

1614+

3852

3853+

3855+

3858+

1972

2436

2602

2670

2730

4288

4290

4291

4292

4025
2147
2255+
2351«
2625+

4031
2153«
2256
2352
3311«

6342
2154
2265+
2361+«
4B69

4344
2158+«
2269
2382+«
4873

2150
2398
2677
3070
3683

FLAG44

003002

4873

GETB
GETLIN

014200
014134

3470
3465

35554
35324

3557
3542

3561

GTSWR = 104405
HT

= 000011

ID
INIT
I0TVEC=
JIMSTK

004620
003462
000020
002432

LF
LKS

= 000012
002674

LoC1
LOC2

002340
002342

MANL
MFPT

003502
= 000007

MOR

017521

MFR

MPAR

4283
3657

4288#
8084

1637
1635
9034
14874

4284
36634

4285

3978

4031

1870
16384
1587«
3451

1880

1498
2115
2226
2313

1501
2136
2232
2333«

14834

3454+

3575+

1639
9104

2419
3453+

16424
1626

017507

4318

G344n

017476

4313

(3420

6323

L3460

4286

2156
2445
2687
3075

2163
2467
2722
3129

2200
2476
2753
3136

2229
2502
2761
3184

1879

1930

1945

1959

1985

2072

2077

2084

2091

2099

3037

3093

3151

3218

3260

4346
2160
2279+
2383«

4348
2180
2280+
2384

4848
2217
2281
2386+

4854
2222+
2288+
2393+

2223
2311+
2413e

2229
2515
2802
3189

2237
2539
2813
3239

2263
2553
2862
3273

2276
2586
2882
3285

2285
2628
2922
3345

18894

1588+

8094
15394
2225+
2312«

2618+
148208

1862

2056

2432

GNS
= weeeer |
GOAGIN 014504

1839

2048

2430+

1629«

1826

2042

14814

}g;gfi

1818

2035

002336

;gggfi

SEQ 0112

2621+
3573«

3660
2146
2254+
2350+«
2422

LMAIN,

MACY11 30A(1052)

MSG
MSTOP

017450
017534

6312
4328

4317
(3484

M2
M2A

024540
024542

1902
1708+

L8544
48554

CZDLDE.P11

024502

NOEOP
OLDPC
OLOSUM
OUTTST

PIRQ
=
PIRQVE=
PROMPT
PRO
=
PR1
=
PR2
=
PR3
=
PR4
=
=
PRS
PR6
=
PR7

10-JUN-BO

10-JUN-80 15:20

014370
002620
002436
017544

177772
000240
002566
000000
000040
000100
000140
000200
000240
000300

= 000340

1900

3622
15054
1489%
943

8154
5094
14988
832#
833
834n
8354
8364
8374
838#
8394

15:21

PAGE 115

CROSS REFERENCE TABLE == USER SYMBOLS
4322

4327

4881
3475
4378

4383

3479+
3521

36244
3682+
3459+«
L364r
3464

812#
8134
3462

813
3449
3468

3450
35154

RBUF

002636

15194
232;

1955
3073

2617
3114

RBUF 58= 176502

36170

3539

3558

9044

1593+

RCSR

002634

RCSR58=
RCV
RCVCNT
RCVOON
RDCHR =

176500
013666
002440
010266
104407

34164
3303
14904
2603
4223

3537
34040
3328+«
2650
L9

RESTTE 014310
RESVEC= 000010

3472
8994

3605#

ROLIN = 104410

RPSW

002646

RTCPSW

002700

RSTRT

RTCVT

014530

002676

RVECT

002644

SAVEPS
SAVETE
SAVEOD
SAVLOC

002434
014254
002344
002346

SCOPE = 000004

15184
2620
2755+
2916+
3121

L2920

4372

LB4BH

PS
= 177776
PSW
= 177776
PUTLIN 014102

PWRVEC= 000024

6333

1718
2639
2756
2932«
3165

1594«

3791«

3792«

2716
3130

2746
3172

2785
3181

2843
3186

2909
3215

2964
5227

2971«
3275

3010
3324

3058
3404

1737
2649
2772+«
2951«
3175

1941
2660
2778
2957
3208

2070
2672
279N
2966
3225

2080+
2681
2805+
2978+
3268

2081
2705
2815«
2997+«
3317

2087«
2714
2836
3003
3326

2088
2720
2847
3012
4865

2094
2733«
2849+
3021
4875

2096
2739
2B65+
3051
4877

2182
2748
2902
3107
4879

2610
2750
29N
3116
4881

3347
26574

3405+

4879

3556

2712
3118«

3801«

3809+

15234

2892

2894+

2634+

3299

3304+

3388+

15610

2251

2253

2290+«

2306

2308+

2335«

2348

2349+

2367+

2380

2381+

2400+«

3297

3665

15400
152208
2893«

14888
3456
14844
14854

8054
217N
2729

SEQ 0113

36694

2132

2066
2925«

3449+
35884
3588+
3590

1756
2211
2770

2133«

2067+
2933«
3479
3605
3607

1778
2243
2825

2165+
2101«
2939«

1799
2299
2889

2250

2786
2049

1846
2341
2945

2252+«

3818+

3300

3819+

53510«

3389«

2266+

2278+

2289+

2305

23u/le

2320+

2334»

2787+«
2950«

2804+
2984+

2820+
2995

2829
2996+

2830+
3028+«

2866+
3296

2884+
3303«

289
3385¢

1919
2373
2991

1938
2408
3034

1952
2456
3090

1969
2486
3146

2022
2523
3197

2064
2561
3251

2108
2601
3291

2126
2698
3426

3309«

3386+

JMAIN, MACYN 30A(105%)
10-JUN-B0
CZOLDE.P11
10-JUN-80
15:20
SCPSW
SECND
SETADR
SHIFT

SI1ZE
SRPSW
STACK =
START
STRLMT=
STPSW
SWR

SWREG
sw0
Sw00
sw01
sw02
sw03
sw04¢
Sw05
swo6
sw07
Sw08
sw09
sWl
SWw10
SW1l
sw12
sW13
sSWwia
sWw15
sw2
sW3
sws
sWS
swé
sw7
sw8
w9

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

002452
002616
004100
003740

003512
002450
001100
003046
177774
002446
001040

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

TA
002610
TBITVE= 000014

TBUF

002642

TBUF 58= 176506

TCSR

002640

TCSR58= 176504
TIMER
014234

164954
15040
1726
16984
16454
164940
803«

9461

B14n
14934

9
K
15:21
PAGE 116
CROSS REFERENCE TABLE == USER SYMBOLS

3300+«
2444+
17324
1707

3389
4LB73

3299+

3388

SEQ 0114

15664

10064
2178
z}gg

3298+

1583
2214
2}2?

3387

1604
2246
3252

1606
2302
3307

938
8674
8574
8564
8554
854n
8534
8524
851»
8504
8494
8484
86o#
8474
BL6N
8454
B44n
843
842w
8654
864n
8634
8624
8614
860#
8594
858#

1612

6120

4133

1612«
2344
3360

1619«
2376
3446

1634
2411
3708

1642
2447
3720

1903
3035
3724

1970
3042
3799

1977
3091
3811«

21
3098
3847

2129
3147
3863

867
866
865
864
863
862
861
860
859
858

15014
900#

3467

2846

2910«

2965+

1848+

1853+

1921+

1924+

2569+

2572«

2619+

2659+

2713«

3401+

4863

2747«

2790+

152048
1869

1759
1920«

1801
1922

1814«
1927

1815
1981

1820«
1992+«

1821
1993

1833«
1997«

1835
1998

1838+
2009«
2478+

1847+«
20N
24B7+

1849
2013«
2492

1854
2028
2694

306!
3399«

3102«
4861

3119«

15214
34194

1781

3520+

3011+

2038«
2504+

2039
2524+

2045+
2531

2046
2533e

3418¢
3517

3518
3536

3555

35734

2700«
3132¢

2734+
3137«

2771«
3160

2773«
3173«

3060+

2051+«
2549+

2831+
3177«

3115«

2053
2562+

2897+«
3200«

3174+

2457+
2567+

2952+
3312«

3224+

2460
2568+«

2998+
3325«

3266+

2670%
2570

3046+
3341

3332«

2579+

2605+

2645+

2657+
3125«

MACY11 30A(1052)
10=JUN-B0
MAIN,
:
10-JUN-BO 15:20
CZDLDE.P11
TKVEC = 000060
TMP1
002626

TMP2
TMP3
TOLER
TPSW
TPVEC =
TRAPVE=
TRTVEC=

002630
002632
007256
002652
000064
000034
000014

TSTOVM
ST
1ST10
TST11
TST12
TST13
TST14
TST1S
TST16
1ST17
1ST2
1ST20
1ST21
15122
15123
1ST26
TS125
15126
1S127
TST3
TST30
TST31
1ST32
TST33
1ST34
TST35
TST36
1ST37
TS14
TST40
TST41
TST42

003646
004172
005044
005252
005404
005544
005614
005764
006154
006262
004244
006504
006660
007002
007136
007324
007432
007560
007722
004316
010066
010402
010504
010640
011050
011262
011476
011652
004466
012020
012214
012440

TSTDEV

TST43
TST44
TST45
IST46
TSTS
TST6
1S17
TURBUF
TURCSR
TUTBUF
TUTCSR
TVECT
TYPE

012632
013010
013132
013710
004714
004760
005012
003006
003004
003012
003010
002650

= 104401

907#
15134
15140
1515#

15:21

PAGE 117

CROSS REFERENCE

L9
TABLE

== USER

SEQ 0115

SYMBOLS

1712+
1646
1711«

1728+
1654
1725

1734
1664
1727«

1735«
1669
1733«

1673«

1693

36 2

2528«

2556+«

3298

3302+

33 87+

3664

24634

26364
1720

2526

9064

1591+

1592«

17254
1676
1748

730

3625

17564

3667

2112
2130

21264
21714

2215

2233

22434

2247
2303

2345
2377
2412

22994
23414
23734
24084
2448

24564

3044
3100
3150

30904
31464
3158

3197#

3280

32914

15240

2024

2025+«

2058+

2458

2459

2469+

2491

2505+

2517+

2525

1899

1901

3647

3711

3746

3763

3765

3774

3781

3823

3983

1383:

901#
1715
16718
1722
19694

20224
20644
21084
2110
2128
22114
2213
17784

2245
2301

2343
2375
2410
24B6N
2523
25614
17994

26014
26984
27294
27704
2825#
28894
29454
29914
18464

30344
3036
3092

3148
251
3253
34264
1919#
1938#
1952#
15474
15464
1549
1548#

2527«

2542+«

2555+

2565

2566+

2588+

3295

LMAIN,

MACY11 30A(1052)

CZDLDE.P11

10-JUN-80 15:20

TYPOC = 104402
TYPON = 104404
TYPOS = 104403

VCTADR
VCTTBL
VECT
WACTV
WALT
WDONE
WRAP

WRPSW

10-JUN-80

003670
002742
004152
010150
017456
010302
013712

014540

15:21

409N

1667
15448
176440
26204
43354
26604
34460

16814
1681
1747
2623
4336
2663
3623

2488

2506

3754
L2864
42850

2026

2993
26468
3398

3772

CROSS REFERENCE TABLE == USER SYMBOLS
4132

4134

4128
1555

4249
1650

3995«

4002

1580

SCMTAG

$CM3 =
SCNTLG
SCNTLU
$CPUOP

SCRLF

S$DEVCT
SOEVM

SDOAGN
SENDAD
SENDCT
SENULL

SENV
SENVM
$EOP
SEOPCT
SERFLG
SERMAX
SERROR

SERRPC

SERRTB
SERRTY
SERTTL
SESCAP

1790

3968

1790

001022
001026

9984
1000#

016472

41200

4290

000000
017217
017212
001114

1016#
413
4148
10394

Lo4L4n
4243

001076
001144

10304
10664

1570«
1647+«

016240

001000

001063

014460
014450
014430
014464

001106
001107
014400
014422
001003
001015

014576

001016

001146
014760
001012
001060

3985«

9864

2309

2321

2346

2355

2378

2387

38864

36724

10034
10654

SCHARC

42834

3333

001034
001142

SCKSWR

4234

3293

2529

SAUTOB
$BASE

$BDADR
$BDDAT

4230

3015
2648
34014

38874

1768

4227

2267

3885
38834
3884

015462

4178

2248

015470
015444
015452

SATYL

4159

2134

SATYC
SATY1
SATY3S

1768

4148

L284n

4339

010236
013656
013614
002442
013662
000500

SASTAT= wetver |

4135

2068

33914
3327+«
34024
9714

183«
121«

2543

2563

2573

1865

1882

1988

2005

1810

1829

1865

1882

1988

2005

3716

2184+
3235«

2185
3283«

2189~
4877

4871

4028#

2188
4875

2192+

4023+«

2187«
3380+«

1581

1589

1595

1596

3765

3770

3774

3984

403

4159

4243

4374

1713

1725

4863

4865

4867

4869

4871

1658

36554
3R

10354
10364
2449
1595+
9894
9954

1638
1617
3480
36428
3701«
1597«

3713
1640
36364
3646
3838
3873«

3892
3894

3916
3965

3963
3970

3861
3877

3867+«

3877

9964

3705«

3706+

3707

3752

4861

3727

3729

3872+

3760
37454
3704+
1596+

2926

1829

3649
36514
36454

4879

2895

1810

3643
952
1595
36584

10834
3710
9934
10164

2867

4879

3746

4877

2827

3391+

3711

37004

2788

3347

10184

1589

SEQ 0116

1743

Wl
XCONT
XMIT
XMTCNT
XRET
$APTHD

3301
14914
3400
965

PAGE 118

1897
1653+

4881

3620+
1656+

3621
1663+

3663+
1670

2401

2462

4873

4875

2947

2972

S$GET4L2
SGTSWR
SHIBTS

014440
016542
000500

SILLUP
$INTAG
SITEM8
SLF
SLFLG
SLPADR
SLPERR
$MADR1
SMADR2
$MADRS
SMADR4

015254
001035
001014
001064
015707
001006
001010
001120
001124
001130
001134
001066
001116

S1CNT

SMAIL
SMAMS1

SMAMS?
SMAMS3
SMAMSL
$MBADR
SMFLG
SMNEW
SMEGAD
S$ASGLG

SMSGTY
SMSWR
SMTYP1
SATYP2
SMTYPS
$M1YP4
SNULL
SNWTST=

001122
001126
001132
000502
015706
017235
001102
001104
001066
017224
001117
001123
001127
001133
001054
000001

SOCNT
SOMODE
SOVER
$PASS
SPASTH
SPOWER
SPURDN
SPURMG
SPURUP
SQUES
SROCHR

016466
016470
015430
001074
000506
015262
015114
015250
015166
001062
016754

SROLIN

017074

SRDODE(=

eteeeer

9974
9994

3648#

3988
40N

2180+
27 LB+

3920+
3914

403N

2182+
2192

2190

3381«

4288

10044
994k
10194

4160
3707«
403

4249

6234

4243

9914
9924
1052#
10564

1598+
1599«

3865+
3726

3870+
3865

3875
3871+

3877

977

10254

1616

3869

3963

3890

3925+

39294

3918

3921+

3924«

1059«
10624

973

10464
10544
1057#
1060#

9734
3884+

3809

39304

4135
1032#
1033#

YIN{]
3900+
3905+

6132
10474
10554
1058#
1061#
1012#
1753

L2454

3715

3990
17754

4031
17964

4063«
4058«
3848
10294
Q754

4092+
4062+
3866
1616+

1593

3791#

3824

38244
3801

10174
L1910
4293
G 98

22404
28224

38294
38094

403
4291

4292

3749
1877

3903
3898

22084
27678

4871

4877

38264

1567+

10264

SEQ 0117

3923+

41328
Q724
990#

3791

TABLE == USER SYMBOLS

S w

1014#
1013¢

3886+

—

3883«

10674
1566+

woo

001024

10344
977
10278

ownworooo
N\fl\fi—'\lbg

e \ ) e

OOONO
= =

S$FFLG
SFILLC
S$FILLS
$GDADR
$GDDAT

2882888

$ETABL
SETEND
SFATAL

15:21
PAGE 119
CROSS REFERENCE

wro

MACY11 30A(1052)
10-JUN-80
10-JUN-80 1 5:20
CZDLDE.P11
.MAIN.

22964
28864

3906+

18434

19164

19354

4105#
4067

23384
29420

23704
2988#

26054
30314

4070+

4081+

L1074

1895

3639+

3640+

3658

6227

4243

38744

3818
4178

19494

24534
30874

19664

2483
31434

20194

25204
3194

10-JUN-80
MACY11 30A(1052)
MAIN,
10-JUN-80 1 5:20
CIDLDE.P1Y

$RDOCT= teenee
SRDSZ = 000010
SRTNAD 014462
SR2A = teeeer

$SAVRE
= teeeee
$SAVRG 015260
$SCOPE
015272

$SETUP= 000 137

177777

015374
000509
161000

$SWREG
$SWRMK= 00000
STESTN

4293
L2120

4293
4293

3800+

SEQ 0118

TABLE =-- USER SYMBOLS

38454
1586

9504
915#
1970

955
1016
2023

1037

1619

3856

2487
3147
3842
3842

1028¢
488"
1009#
1008
1949

10114
1015#
10104
1591
L2710
L2754
4265
974N
9884
4220
4287
4287

3911
3987

3828#

3810

1587
934
934

2168
24098
2726
30354

8 10

36574

9144

RS$R33 ~

$IN

N b e e \ N =2 N

$7k8
$7kS

PAGE 120
15:
21
CROSS REFERENCE

3846

1800

1598

1847

1920

2524
3198
3847

2127
2699
3427
3862

2300
2890
3656
3874

2342
2946
3658
3877

2374
2992
3839

1568+

4863

4871

4873

4875

4011
4009

6124
6122
1779#

4199
184748

1916

1753

2019
2240
24LBTH
2822
31474

19534

21724
2453
27304
3087

4008+
3957
2B44
42604

4282

4115

2520
28264
3194

2524m
2886
31984

2558
28904
3248

2104
2338
25628
2942
3252#

2105
23428
2598
29464
3288

42934

4287

L2918

42928

2104+
42

3703

3874

3877

9514

9534

39574
3994

4275
4029#

4007

1939

2409
3035
3840

4249

1953

2457
3091
3841

4879

19394

19204

21094
2370
2602#
2988
32924

L28B4n
42820

4026
4284
40634
4285
1571«

21274
2405
26994
3031
34274

4164

4286

1729+

3669+

1573
1682

1575+

3276

4057«

4061+

4071

9194

925

3847

3638

3862

4024
40618
4060
40564
10314
9764
1038¢
10634
10644

3850#
36504

1598

1591

9264

9364

9404

9454

950

9554

961

962#

MAIN, MACY1T 30AC1052)
10-JUN-BO
CZOLDE.P11
10-JUN-80 15:20

001146
LSERRT
.$x
= 000500

9644
271
36594
1085#
9614

c10
15:21
PAGE 121
CROSS REFERENCE TABLE == USER SYMBOLS

9664
2745
17844
966

985#
2784
3803

1020
2842
3827

1485#
2908
3877

14864
2963
39338

14964
3009
4031

SEQ 0119

15434
3057
6113

15444
3113
L2428

1584
nn
4243

1598
3214
4249

1599
3323
4352

3658

MACYY 30A(1052)
JMAIN,
10-JUN-80
10-JUN-B0 15:20
CZDLDE.P11

SWRSU
TRMTRP

TYPBIN
TYPDEC
TYPNAM

TYPNUM
TYPOCS
TYPOCT
TYPTXT

4295
1L
42754

1L
1L
1L
1L
1L
1
1

$$SET
$SSSETM
$$SKIP
.EQUAT
.EQUIV

7974
7894
9794
9794
1L
1
2208
886
L2754
16164
1L
11
7944

.HEADE

XMTDLY
$CLKTS
$SCMRE
SSCMTM
$SESCA
SSNEWT

886

2374

2624
2913

2652
2968

2664
3065

2858

2871

1753

1775

1796

2409

2691
3138

2758

3236

2793
3242

2798

2168
2822

3647

9104
9104
9104
9104
9104

2520
3288

1949

2019
2598

2061
2695

2105
2726

2123
2767

2999

3103

3161

3204

3313

1935

2296
2988
910#
9104
2701

2735

2774

2898

2953

8004

4285
9104

4286
1579

4288

4291

4292

800#
1798

9104
1843

920
1845

960
1935

2824
3248
3879

967
1937
2208
2485
2886
3250
3881

9104
910#
4284

9104
910#
104

2105
2372
2726
3089
3788

4300
9104

1767

2107
2405
2728
3143
3790

2338
3031

2483
3248

2240
2942
800#
8004
2606

1789

2123
2407
2767
3145
3806

2370
3087

1864

1809

2170
2483

1881

1987

NN
— —
— SOV
VO
i
L
i vAR X e N
ROWNSONOONWN

1796

2063
2370
2697
3087
3740

1890

2342

SN
ND — —
OOV
O
WO SO
WONNO
—=O

1L
42754
1L
»
1L
7944
»

910#

1876

2300

WA
—
£H 00
O
WooOo~

1L
#
7984
»

2816

2244

OO
cono &~
OO0

SETPRI
SETTRA
SETUP
SKIP
SLASH
SPACE
STARS

2208
2886

1859

2212

2019
2598

861
894

862
895

863

4356
16004

4362

9104

3752

3776

4133

1907

2590

2630

2212

3078
2244

2300

2342

2374

2409

9104
9104

1753

1775

1796

1843

1935

NN
—

POP
PUSH
RECDLY
REPORT

2104

2127

XV
Te 3

NEWTST

2810
AL
7914
1L
1L
1L
1L

910#

W
—
-~
0
Owvn
—

GE TSWR
MULT

7964

2109

SEQ@ 0120

TABLE == MACRO NAMES

SN0
—
N — S0
O Own—=
—_L5SnNos

ENDCOM
ENDPAS
ESCAPE
GETPR]

1L
792#

D 10

00 =M =00
OOVOoONWVNIND
— &~
Q0 £ O WO~

DI1SMNT

790#

WL
—

CLKTST

COMMEN
CTESTS

15:21
PAGE 123
CROSS REFERENCE

4292

859
892

860
893

9104
910#
9104
9104
910#
910#

2109

2240
2942

4284

9104
800#

800#
887

2127

2296
2988

2338
3031

2370
3087

4285

4286

4288

804
888

805
889

813

2405
3143

4290

891

2483
3248

1775

1777

2021

2061

4212

4254

2338
2600
3031
3688

2340
2695
3033
3698

2061
2695

2105
2726

2123
2767

2168
2822

864

865

866

867

LMAIN,

MACYTT

C2DLDE .P11
AT

30A(1052)

10-JUN-B0

10-JUN-80

15:20
934

.SETUP

800#

SACTHY

800#

SAPTY
SASTA
JSCATC
LSCMTA

#
»
?
1»

800#
800#

10214
956

800#

979

.$D1V

8004

3629

8004

3738

BOO#

4110

B0O#

3833

8004

4252

»
1»
1

800#
800#

3940
4031

024750

000

.SWRH]

.SAPTB
.SAPTH

.$0B2D
.$DB20

.SEOP
.SERRO
.SERRT
SMULT
. SPOWE
.SRAND
.SRDDE
.SRDOC
.SREAD
.SR2AZ
.$SAVE
.$SB2D
.$5820
.$SCOP

.$SI1ZE

.$SUPR

.STRAP

1
»

il
»

»
»
»

»
»
1%
1
»
1
%
#
¥
»

1
1

.$TYPB
.$TYPD

14
»

1170

.STYPE
.3TYPO
.$40CA

. ABS.

ERRORS DETECTED:

15:21

PAGE 124

CROSS REFERENCE TABLE == MACRO NAMES

946

CZDLDE.BIN,CZDLDE. LSY/CRF/SOL/NL T0C=CZDLDE.SML,CZDLDE.P1
RUN-TIME: 45 61 & SECONDS
RUN-TIME RATIO: 2 1/112=2.0
33k
€5 PAGES)
CORE USED:

E 10

SEQ 0121