Digital PDFs

AH-8529C-MC

July 1978

104 pages

Original

4.9MB

view download

OCR Version

4.0MB

view download

Document:	CZDLDC0 DL11-W DIAGNOSTIC JUL 1978 bw
Order Number:	AH-8529C-MC
Revision:	000
Pages:	104
Original Filename:	CZDLDC0__DL11-W__DIAGNOSTIC__AH-8529C-MC__JUL_1978_bw.pdf

OCR Text

D L1

DIAGNOSTIC

AH-8529C-MC

CzDLDCO

copvrignT

JUL1978

76-78

FICHE1 OF1

LS O0S0
MADEIN USA

CMAIN,

MACY1T

(zoLoc.P

30A(1052)
19-APR-78
19-APR-78 11:41

11:44

PAGE

SEQ 0001

.REM

IDENTIFICATION
PRODUCT

CODE:

AC-8528C-M(

PRODUCT

NAME:

CZ0LDCO DL11-W DIAG

DATE

CREATED:

MARCH 1978

MAINTAINER:

DIAGNOSTIC

AUTHOR:

DAN

THE

INFORMATION

ENGINEERING

CASALETTO

THIS

DOCUMENT

SUBJECT

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

SOFTWARE ON EQUIPMENT

AFFILIATED

COMPANEIS.

(C)

THE

THAT

FOR THE

IS NOT

1976 1978 BY DIGITAL

FOLLOWNG ARE

DIGITAL
DEC

ASSUMED

TRADEMARKS OF
PDP
DECUS

USE

RELIABILITY OF

SUPPLIED BY

EQUIPMENT

DIGITAL
UNIBUS
DECTAPE

DIGITAL

ITS

CORPORATION

EQUIPMENT

CORPORATION:
MASSBUS

LMAIN.
MACYTI1 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:41

1 .0

GENERAL

11:44

PAGE 2

Sea 0002

INFORMATION

1 A

THIS DIAGNOSTIC

IS A LOGIC

WILL RUN WITHOUT

ANY

TEST

TO VERIFY

THE

DL11-W SERIAL LINE/ REAL TIME CLOCK INTERFACE.
CABLE

SPELIAL

TEST

FIXTURES BY

CAN BE USED AND TESTED BY OPTION

OPERATION OF

THE PROGRAM

DEFAULT.

(BIT7 OF

SWR).

THE

HOWEVER,

A WRAP

THIS TEST OFERATES ON THE CONLOLE DL11-Ww SERIAL LINE AND CLOCK INTERFACES
AS WELL AS UP TO FIFTEEN(15) ADDITIONAL IDENTICALLY CONFIGURED DL11-W
SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES ARE:

THE

CONSOLE

OTHER SERIAL LINE

PROGRAM

- 177560
177546

DESIGNED

SERIAL LINE
CLOCK
-

776500

TO RUN ON

ANY

FIRST

SERIAL LINE

PDP-11

WITH 8K OF

ADDRESS

OF 15 CONSECUTIVE SERIAL
LINE ADDRESSES
MEMORY

AND A DL11-W MODULE. IT CAN BE RUN UNDER XXDP,APT, AND ACT MONITORS,
AND ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER,
SCFTWARE SWITCH REGISTER = LOCATION 176
POWER

FAILURE

NOTE:

1 .2

SUPPORTED

FOR

SYSTEMS WITH

CORE

MEMORY.

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

SYSTEM REQUIREMENTS

1.2.1

STANDARD 11 FAMILY
AND 8K OF MEMORY.
1 .2.2

COMPUTER WITH A CONSOLE OUTPUT DEVICE

STORAGE
THE

PROGRAM USES MEMORY

FROM 00000

TO 22372

CPU'S

LMAIN,
MACY11 30A(1052)
19-APR-78
C20oL0C.P1N
19-APR-78 11:41

1.3

2.0

11:44

PAGE

SEQ 0003

ASSUMPTIONS

IF THE UNIT UNDER TEST (UUT) IS THE CONSOLE , THE PROGRAM WILL
ASSUME THE REAL TIME CLOCK (RTC) IS ENABLED AND WILL TEST IT
UNLESS THE TESTS ARE DISABLED BY BIT6 OF THE SWR.

THE 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).

THE UUT

IS NOT

THE

CONSOLE,

THE

RTC

IS NOT

TESTED

FOR

THAT DEVICE.

OPERATING INSTRUCTIONS

2.1
USE

2.2

STANDARD PROCEDURE

FOR PDP-11

ABSOLUTE BINARY

FORMATTED

TAPES.

STARTING PROCEDURE
LOAD

THE

SWITCH REGISTER WITH

(SOF TWARE

SETTING

SWITCH REGISTER LOCATION = 176)

START AT 200.

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

”ESERP¢S§¥ IS PRINTED AFTER A FULL PASS HAS BEEN MADE ON ALL DEVICES

EST.

START AT 204.
tr e *NOTEwens
THE "'ECHO’' TEST WILL BE EXECUTED. AN ''¢'' IS PRINTED AT

THE

BEGINNING OF THE TEST. 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.

*ettNOTER
e

THE TERMINAL OUTPUT TEST WILL BE EXECUTED. DEPRESSING ANY CHARACTER
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 040 --> 377):

PASRE () e+, -, /0123456789:;<=>?
JABCDEFGHIJKLMNOPQRSTUVWXYZ
"ABCDEFGHIJKLMNOPQRSTUVWXYZ

(OCTAL

CODE)

(040 --> 077)
(100 -->
(140 ==>

137)
177)

LOWER

CASE

ALPHA

JMAIN.
MACY1Y 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:41

11:44

THIS BOTTOM LINE

PAGE 4
COULD BE

DOES NOT HAVE LOWER CASE:

SEQ 0004
THE

FOLLOWING

dABCDEFGHIJKLMNOPQRSTUVWXYZ

THE

TERMINAL

UPPER CASE

ALPHA

et tNOTE*w
e

[F 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.

R Ade
soeel

MAIN.
MACY11 30A(1052)
19-APR-78
czoLoc.P1N
19-APR-78 11:41

11:44

PAGE

SEQ 0005

2.3

OPERATING PROCEDURE

2.3.1

OPERATIONAL SWITCH SETTINGS
NOTE:

IF NO HARDWARE SWITCH REGISTER IS AVAILABLE THE PROGRAM
WILL AUTOMATICALLY USE THE
CONTENTS OF LOCATION
176 AS THE SOFTWARE SWITCH REGISTER. THE USER SHOULD
SET THIS LOCATION BEFORE STARTING THE PROGRAM. [F A
HARDWARE SWITCH IS AVAILABLE AND A SOFTWARE SWR IS
DESIRED, PUT ALL SWITCHES UP.

BIT15

-~ HALT UN ERROR

BI1T09

- LOOP ON ERROR

BIT14
BIT13
BIT12
BITI
BIT10

=
=
-

BITO8
BITO7
BIT06
BITOS
BITO4

SCOPE LOOP
INHIBIT ERROR TYPEOUT
UNUSED
UNUSED
ENABLE ERROR FLAGS TESTS

-~ ENABLE BREAK FUNCTION TESTS
- ENABLE DATA TEST WITH WRAP CABLE
= INHIBIT RTC TESTS (ALLOW ONLY SLU TESTS)
= ALLOW MANUAL SETTING OF ''SDEVM'' (DEVICE MAP)
=~ INHIBIT SLU TESTS (ALLOW ONLY LINE CLOCK TESTS)

BUILT INTO THE PROGRAM IS 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

CODE

CONTENTS

(IE)

APPLICABLE

SWREG,

WHICH

ERROR ROUTINES,
AREAS.

BECAUSE

PROCESSED

IN KEY

AFTER HALTS END OF
THIS

DIAGNOSTIC

AREAS

PASS,

USES

THE

AND OTHER

MAINTENANCE

PROGRAM
BIT

OF THE SERIAL LINE, THE CONTROL-G SHOULD BE ISSUED DURING PROGRAM
TYPEQOUTS AT THAT TIME THE MAINTENANCE BIT IS SURE TO BE CLEAR.
IF A CONTROL-G IS DETECTED, UPON EXECUTION
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY

(1€)
POSSIBLE

2.
3.

SWR=XXAXXX

THE CONTENTS OF THE SWREG ARE
CHANGES ARE REQUESTED

NEW=

RESPONSES ARE:

<CR>

6 DIGITS 0-7
U

NO CHANGES ARE

TO REPRESENT
VALUE

;LAST

KEYING

TO BE MADE

[N OCTAL

DIGIT

THE NEW SWITCH REGISTER

FOLLOWED BY

TO ALLOW REENTERING VALUE
SWREG VALUE.

<(CR>.

ERROR

IS COMMITTED

MAIN,
MACYTY 30A(1052)
19-APR-78
czoLbc.P1
19-APR-78 11:41

11:44

PAGE 6

SEQ 0006

2.3.2

SETTING BITS PER CHARACTER
THIS PROGRAM DEFAULTS TO TESTING 8 BITS PER

CHARACTER.

SERIAL LINE IS SET FOR 5-->7 BITS PER CHARACTER,
MEMORY LOCATION ''SUSWR'' AS FOLLOWS:

CHAR.

SIZE

(# OF

8
6
5

THE

“'SUSWR'' CONTENTS

BITMS)
7

SET

(BINARY)

(OCTAL)

100000000

400

001000000
000100000

100
40

010000000

200

"'SUSWR’' IS USED IN THE DATA PATH TESTS TO LIMIT THE BINARY
COUNT TEST PATTERN TO THE NUMBER OF BITS SELECTED ON THE
SERIAL LINE.

2.3.3

RUNNING UNDER APT
THE

LINE
THE

APT

MAILBOX

LOCATED

VECTOR ASSIGNMENTS
EXECUTION

CORE MEMORY,

TIMES

AND

LOCATION

500,

TO THE 400 AREA OF

PROVIDED

110 BAUD.

ARE

FOR

ALLOW

ADDITIONAL

SERIAL

MEMORY.

EXECUTION WITH

11/34

PROCESSOR,

19-APR-78 11:44

PAGE 7

RUN WITH ALTERNATE

CONSOLE

LMAIN,
MACYT11 30A(1052)
CZDbLDC.P11
19-APR-78 11:41

2.3.4

SEQ 0007

ADDRESS

TO USE A CONSOLE ADDRESS OTHER THAN 177560,

OR VECTOR OTHER

CORRECT ADDRESSES BY INSERTING THEM AT THE
CRCSR:
ADDRESS OF RECEIVER RCSR
CRBUF:
ADDRESS OF RECEIVER BUFFER

TAG LABELED ''CRCSR'':

THAN 60,

THE

OPERATOR MUST

CTCSR:

ADDRESS OF

CRPSW:
CTVECT:

ADDRESS OF
ADDRESS OF

CTBUF:
CRVECT:
CTPSW:

SUPPLY

THE

TRANSMITTER

PROGRAM WITH

CSR

ADDRESS OF
ADDRESS OF

TRANSMITTER BUFFER
RECEIVER VECTOR

ADDRESS OF

ASSOCIATED PSW

TESTING ADDITIONAL

SERIAL

THE

ASSOCIAED PSW
TRANSMITTER VECTOR

LINES

THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE SLU'S. IT REQUIRES
THE ADDRESS OF THE FIRST ADDITIONAL RCSR (STORED AT °''SBASE'’) ANC

ITS

INTERRUPT VECTOR

TO ADDRESS ANY

15 CONSECUTIVE

(STORED AT °'‘SVECT1'');

SLU STARTING AT

DEVICES.

EXAMPLE :

$BASE:
$SVECT1:

THE

AND WILL BE ABLE

SPECIFIED BASE

ADDRESS UP

776500
300

THE PROGRAM WILL BE ABLE TO TEST THE CONSOLE PLUS ANY
ADDITIONAL DL11-W SLU'S WITHIN THE RANGE 776500 --> 776660

$BASE
THE

AND SVECT1

DEFAULT

TO 776500 AND

PROGRAM ASSOCIATES UNIT
(NUMBERS IN PARENTHESIS

UNIT# O -->
UNIT# 1 -->
UNITH# 2 -->

UNIT# 3 -->
UNIT# &

-->

UNIT# 5 -->

300 RESPECTIVELY.

NUMBERS TO DEVICES
ARE OCTAL)

FOLLOWS:

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
BASE

ADDRESS + (30)
VECTOR + (30)

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

MAIN.

MACY11

CZ0LDC. P11

30A(1052)
19-APR-78
19-APR=78 11:41

11:44

PAGE

SEQ 0008

START.ING AT LOCATION 200 AND HAVING 8175 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

.
L

AND WILL

UNIT
I

P
T

UNIT

TESTED:

(oooiaeas, '
!

UNIT
2

!
!

UNIT
1

!
!

CONSOLE!
!

A BIT MAP (AN BE ENTERED AT °''SDEVM'' PRIOR TO STARTING THE PROGRAM
SETTING BITS OF THE SWwR INHIBITS THE SELF-SIZING AND DEVICE MAP
GENERATION,AND USES THE VALUE STORED
BY THE OPERATOR.

EXAMPLE:

SWR
=
$BASE:
$VECT1:

000040
776500

$DEVM:

THE

BINARY

0 000 000 000 100 000

300

PROGRAM WILL

BINARY - 0 000 000 000 001
TEST

011

UNIT# 0 = CONSOLE
UNITH# 1 = 776500 :

UNITH 3 = 776520 ;

300
320

LMAIN.
MACY11 30A(1052)
19-APR-78
19-APR-78 11:41
czoLbc.P1

2.4

11:44

EXECUTION TIMES -

PAGE 9

(110 BAUD)

LONGEST SUBTEST
PASS TIME
ADDITIONAL

3.0

SEQ 0009

50 SECONDS
60 SECONDS
55 SECONDS/DEVICE

TIME

DEVICES

ERROR REPORTING
IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT
IS NOT SET, A PRINTOUT RESULTS IN THE FORM:

“"(SOME ASCII MESSAGE)"
TEST#
XXXXXX

ERR PC
XXXXXX

NOTE:

RCSR
XXXXXX

THIS

ERROR

PRINTOUT

HINDER
AN

FAILURES),
TO

FIND

THE

ERROR

THE

SWR

''RCSR'* IS DEPENDENT ON THE FAILURE
8 THEREFORE COULD BE TCSR,RBUF,TBUF,OR LKS

OCCURS

PROVIDED

TYPEOUT.

MESSAGE

(I1.E.

INFORMATION

THE

ERROR

CASES WHERE
FATAL

A HALT OCCURS AND THE PC
ERROR

ANY APPLICABLE DAT HEADINGS
ANY APPLICABLE DATA

WHERE “'XXXXXX'' IS AN OCTAL NUMBER.
WOULD NOT

(BIT13)

THE

CONSOLE

CAN BE

THAT

EXISTS

IS NOT

POSSIBLE

TRANSMITTER

EXAMINED BY

THE

OPERATOR

PROGRAM LISTING.

NOTE: FOR SOFTWARE 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
IMMEDIATELY FOLLOWING THE TYPEOUT.

OCCURS

LMAIN.
MACY11 30A(1052)
19-APR-78
(Z0LDC.P11
19-APR-78 11:41

11:44

PAGE

4.0

SUBROUTINE

ABSTRACTS

4.1

TRAPCATCHER

SEa 0010

THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION O DESIGNED TO
DETECT AND ISOLATE UNEXPECTED TRAPS TO THE TRAP AND INTERRUPT VECTCR
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

WHICH POINTS

TRAP OR

TG THE

INTERRUPT

CAUSES A

''CAICH'' ROUTINE.

THE "‘CATCH'' ROUTINE REPORTS THE PC
THE LOCATION OF
AFTER REPORTING
AT THIS POINT.

4.2

THE
THE

TRAP

THAT CAUSED

THROUGH

THE

THE ORIGINAL

BPT

VECTOR(14)

TRAP AND

TRAP VECTOR (IF UNDER APT, AN ERROR IS INDICATED TO APT).
ERROR THE PROGRAM HALTS. THE PROGRAM MUST BE RESTARTED

WRPSW
THIS

ROUTINE

STACK.

USED

THIS METHOD

WRITE

IS USED

THE

TO BE

PSW BY

POPPING

COMPATIBLE

VALUES

WITH ALL

FROM

THE

FAMILY

PROCESSORS.

4.3

SCOPE
THIS ROUTINE CALL IS PLACED BETWEEN EACH SUBTEST. IT RECNRDS THE STARTING
ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED AND UPDATES THE
TEST NUMBER. IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE START OF THE
SUBTEST AT WHiCH THE SCOPE LOOP IS REQUESTED.

JMAIN.
MATY1T 30A(1052)
19-APR-78
19-APR-78
11:41
czoLoc.P1

11:44

PAGE

SEQ 0011

4.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

USING "'SERRTYPE''.

4.5

CONSOLE

$POWER
THIS ROUTINE
AND RESTORES

SAVES ALL GENERAL
THEM AT POWER-UP.

"'POWER'" IS PRINTED AT

THE

REGISTERS DURING POWER~DOWN
IF A POWER FAILURE OCCURS

CONSOLE

AFTER POWER

IS RESTORED.

4.6
THIS ROUTINE CALL
FROM THE CONSOLE.

IS USED TO DETECT THE RECEPTION OF A CONTROL-G
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.

LMAIN.
MACY11 30A(1052)
19-APR-78
19-APR-78 11:41
czoLbe.P1
422
623
624
425
626
627
428

429
430

3
632

433
634
435
436
437
438
439

440
441
442
463
444

445

446
647

448

449
450
451

652
453
454
455
456
657
458
459

460
461
462
463
464
465
466
667
468
469
470
471
472

473
474
475
476
477

11:44

PAGE

.SBTTL

SEQ 0012

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER #++ 1100 xxx
1100

001100

STACK=

000011
000012
000015
000200
177776

HT=

177774
177772
177570
177570

STKLMT=
PIRQ=
DSWR=
DDISP=

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

RO=
R1=
RZ=
R3=

X0
X1
X2
X3

;;GENERAL
2 :GENERAL
;;GENERAL
:;GENERAL

R5=
R6=
R7=
SP=
PC=

x5
X6
X7
X6
X7

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

000000
000040
000100
000140
000200
000240
200300
000340

PRO=
PR1=
PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

100000

SW15=

040000
020000
010000
004000
002000
001000
000400
000200

.EQUIV
.EQUIV

EMT,ERROR
10T,SCOPE

;sBASIC DEFINITION OF
;:BASIC DEFINITION OF

J*MISCELLANEOQUS DEFINITIONS

LF=
CR=
CRLF=
PS=

.EQUIV

12
15
200
177776

PS,PSW

177774
177772
177570
177570

;;CODE

FOR HORIZONTAL

J:STACK LIMIT REGISTER
:;PROGRAM INTERRUPT REQUEST REGISTER
; ;HARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER
REGISTER
REGISTER
REGISTER
REGISTER

s ;GENERAL REGISTER

J*PRIORITY LEVEL DEFINITIONS
0
40
100
140
200
240
300
340

;:PRIORITY
::PRIORITY
::PRIORITY
;:PRIORITY
;;PRIORITY
::PRIORITY
::PRIORITY
;;PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;¢ 'SWITCH REGISTER'® SWITCH DEFINITIONS

SWié=

100000

40000

sSW13=
SWi2=
SW11=
SWi10=

20000
10000
4000
2000

SW08=
SWo7=

400
200

SWw09=

1000

TAB

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

J*GENERAL PURPOSE REGISTER DEFINITIONS

Ré4=

ERROR CALL
SCOPE CALL

O
1
2
3
4
S
6
7

484

485
486
487
488
489
490
N
492
493
494
495
496
497

000100

000040
000020
000010
000004
000002
000001

100000
040000

020000
10000

004000
002000
001000

000400

SW06=
SW05=
SW04=
SW03=
SW02=
SW01=
SW00=

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
EQUIV
.EQUIV
.EQUIV
.EQUIV
EQUIV

NI NS

478
479
480
481
482
483

BIT09=

000200
000100
000040
000020
000010
000004
000002
000001

100
40

20
10

2
1

SW09,s5w9
SW08,5w8
SW07,SwW7
SW06,SwW6
Sw05,5wWS
SW04, SW4
SW03,sw3
SW02,Sw?2
SW01,sw1
Sw00,sSw0
BIT DEFINITIONS
100000
40000
20000
10000
4000
2000

(BITOO TO BIT15)

1000

400
200
100
40
20
10

2
1

.EQuUlV
.EQUlV
.EQUIV
EQUIV
.EQUIV
EQUIV
.EQUIvV

000004
000010
000014
000014
000014
000020
000024
000030
000034

SEQ 0013

11:44
PAGE 13
BASIC DEFINITIONS

MACY11 30A(1052)
.MAIN.
19-APR-78
19-APR-78 11:41
czoLoc.P1

BIT09,BIT9
8I1708,B1T78
8IT07,8IT77
BIT06,B176
BITOS5.,8ITS
BIT04,BIT4
BIT03.B173
BIT02,BIT2
BITO1,BITY
BI1100,81T0

; *BASIC ''CPU'" TRAP VECTOR ADDRESSES

ERRVEC= 4

;. TIME QUT AND OTHER ERRORS

TBITVEC=14
TRTVEC= 14

ST BIT
;. TRACE TRAP

PWRVEC= 24

;. POWER FAIL

TRAPVE (=34

;. ""TRAP"' TRAP

RESVEC= 10
BPTVEC= 14
I0TVEC= 20
EMTVEC= 30

:sRESERVED AND ILLEGAL

INSTRUCTIONS

; ;BREAKPOINY TRAP (BPT)
s s INPUT/OUTPUT TRAP (IOT)
;s EMULATOR TRAP

(EMT)

««SCOPE®e

=+ERRORtt

JMAIN.
MACY1T 30A(1052)
19-APR-78
CZDLDC.P1I
19-APR-78 11:41
534
535
536
537
538
539
540
541
542
543
544
545

000060
000064
000240
176500
000300
000400
000001
161000
000003

547
548

.=0

R AR

176500
300
400
1
161000
000003

RN PR R PR R

e ——

—
e ——

;. TTY KEYBOARD VECTOR
s TTY PRINTER VECTOR
: :PROGRAM INTERRUPT REQUEST VECTOR

;THIS IS THE COMMAND FOR A TRAP
:
THROUGH 14 (BPT TRAP)
RN N RN R

AP RPN

RN RNARARANRRRREREA

;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000014
000016

000014
012254
000340

.=14
.WORD
.WORD

CATCH
340

.=
.WORD

62
0

.=
DISPREG: .WORD
SWREG:
.WORD

174
0
0

556
557
558
559
560
561
562
563
ggg

000042

000042
000000

000174
000176

000174
000000
000000

566
567
568
569

00200
000204
000210

000200
000137
000137
000137

002546
014762
015202

.=200
JMP
JMP
JMP

START
ECHO
ouTTST

- ———— et —

SEQ 0014

;*ALL UNUSED LOCATIONS FROM &-776 CONTAIN A ''.+2,BP"
;*SEQUENCE TO CATCH ILLEGAL TRAPS & INTERRUPPTS

ggg
551
552
553
22;

——

11:44
PAGE 14
BASIC DEFINITIONS
TKVEC=
60
TPVEC=
64
PIRQVE(=240
ABASE=
AVECT1=
AUSWR=
$TN=
$SWR=
BPT=

000000

546

;THE BPT TRAP VECTOR POINTS TO THE
:
ILLEGAL TRAP HANDLER "'CATCH"

;D0 INTERFACE TEST
;D0 ECHO TEST
;DO OQUTPUT TEST TO TERMINAL

MACYI 30A(1052)
-MAIN,
19-APR-78
czoLoc P
19-APR-78 11:41

570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592

593
594
595
596
597

598
599

600
601
602
603
604

000500

000046
000052

000500
000046
012152
000052
000000
000500

11:44
PAGE 15
BASIC DEFINITIONS

.SBTTL

.z
ACT11

AR R A AR R

SEQ 0015

500
HOOKS
AR AN

R AR

*HOOKS REQUIRED BY ACT11

R NN A AR

AN R AR AR R

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

TZ$SVPC

::2)SET LOC.52 T0 ZERO
1

APT PARAMETER BLOCK
AR

AN R R AR RN

R R

"RESTORE PC

RN AR R AR

AR R AN R RN AN AR A RAA NN RN RN

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

000044

$X=.
.=24
200
=44

SAPTHDR
.=.8X
R

R AN

R R

R R R AR

R RN R AR AR AR R

AR R RN AR AR

s SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF
;:FOR APT START UP
:;POINT TO APT INDIRECT ADDRESS PNTR.

;INTERFACE

000000
001066
000050
000060
000055
000030

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

SPEC.

.WORD
.WORD
_WORD
.WORD
_WORD
.WORD

RN RN R

PROGRAM

;;POINT TO APT HEADER BLOCK
;.RESET LOCATION COUNTER
R

RIS

;SETUP APT PARAMETER BLOCKX AS DEFINED IN THE APT-PDP11
000500
000500
000502
000504
000506
000510
000512

iEgng

000024

:SAVE

000500
000024
000200
000044
000500
000500

AR NN

SSVPC=.

'WORD
_SBTTL

A R

DIAGNOSTIC

O
;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
;;ADDRESS OF APT MAILBOX (BITS 0-15)
50
;:RUN TIM OF LONGEST TEST
60
;sRUN 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)

LMAIN.
MACYTT1 30A(1052)
19-APR-78
czoLbc.P1
19-APR-78 11:41
605

11:44
PAGE 16
COMMON TAGS
.SBTTL

SEQ 0016

COMMON TAGS

289

609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
650
641
642
643
644
645

:*USED IN THE PROGRAM.

608

646

;*THIS

001000
001000
001002
001003
001004
001006
001010
001012
001014
001015
001016
001020
001022
001024
001026
001030
001032
001034
001035
001036
001040
001042
001044
001046
001050
001052
001054
001055
001056
001057
001060
001062
001063
001064

001000

$CMTAG:

000000
000
000

$STSTNM:
$ERFLG:
$ICNT:
SLPADR:
SLPERR:
$ERTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:

000000

000000
000000
000000
000

001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000
077
015
000012

$AUTOB:
$INTAG:

649

-G00000
000000
000000
000000
000000

658
659

001102
001104

000000
000000

657

001100

660 001106

000000

VARIOUS

.=1000

.WORD
.BYTE
.BYTE

0
O
O

.WORD
.WORD
.WORD
.BYTE

0
0
O
0

_WORD

.RYTE
o
.
.
.WOnD
.WORD
.WORD
.WORD
.BYTE
.BYTE

ML R R AR

.SBTTL

001066
001066
001070
001072
001074
001076

CONTAINS

.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
SNULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$STPFLG: .BYTE
SESCAPE:0
$QUES:
.ASCII
SCRLF:
LASCII
SLF:
ASCIZ

22;
650
651
652
653
654
655
656

TABLE

N R R Rt R A RN R R R R R AR AR AR RN AR AR EARNRR IR

COMMON

STORAGE

;:START OF

COMMON TAGS

;. CONTAINS THE TEST NUMBER
;;CONTAINS ERROR FLAG

;s CONTAINS SUBTEST

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

1
0
0
0
0
O
O
0
0
0
O
DSWR
DDISP

;;CONTAINS MAX. ERRORS PER TEST
:;CONTAINS PC OF LAST ERROR INSTRUCTION
:CONTAINS ADDRESS OF °'GOOD' DATA
;:CONTAINS ADDRESS OF 'BAD' DATA
; ;CONTAINS 'GOOD' DATA
;:CONTAINS 'BAD' DATA
; ;RESERVED--NOT TO BE USED

: ;AUTOMATIC MODE
. INTERRUPT MODE

2
12
0
/?/
<15
ARt

INDICATOR
INDICATOR

. .ADDRESS OF SWITCH REGISTER
. ;ADDRESS OF DISPLAY REGISTER
;. TTY KBD STATUS
;:TTY KBD BUFFER
;s TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED
;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

ARt

R A R

.EVEN
$MAIL:
$MSGTY:
SFATAL:
$TESTN:
$PASS:
$DEVCT:

.WORD
.WORD
.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT

;s APT MAILBOX
;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER
;;PASS COUNT
;;DEVICE COUNT

SMSGAD:
$MSGLG:

.WORD
.WORD

AMSGAD
AMSGLG

;;MESSAGE ADDRESS
;;MESSAGE LENGTH

SETABLE :

ITERATION COUNT

SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE

2220202200228

APT MAILBOX-ETABLE

AR AR Al AR

SUNIT:

LOCATIONS

_WORD

AUNIT

;;I/0 UNIT NUMBER

1 APT ENVIRONMENT TABLE

02222222222 2]

JMAIN.
MACYTT 30A(1052)
19-APR-78
czoLoc.P
19-APR-78 11:41
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694

001106
001107
001110
001112
001114

000
000
000000
000400
000000

001116
001117

000
000

001120

000000

001122
001123
001124
001126
001127
001130
001132
001133
001134
001136
007140
001142
001144
001146

000
000
000000
000
000
000000
000
000
000000
000300
000000
176500
000000

11:44
PAGE 17
APT MAILBOX-ETABLE
S$ENV:
SENVM:
$SWREG:
SUSWR:
$CPUOP:
0¥
o
ot
i
it
o*
$MAMS1:
SMTYP1:
i
A
it
ot
$MADR1:
o
$MAMS2:
SMTYP2:
$SMADRZ:
$MAMS3:
SMTYP3:
$SMADR3:
SMAMS4:
SMTYP4:
$MADR4:
SVECT1:
SVECT2:
$BASE:
S$DEVM:
$ETEND:
MEXIT

BYTE
_BYTE
.WORD
.WORD
.WORD

.BYTE
.BYTE

.WORD
_BYTE
.BYTE
.WORD
_BYTE
_BYTE
.WORD
BYTE
_BYTE
.WORD
.WORD
.WORD
.WORD
_WORD

SEQ 0017

AENV
; ;ENVIRONMENY BYTE
AENVM ; ENVIRONMENT MODE BITS
ASWREG
;;APT SWITCH RFGISTER
AUSWR
;;USER SWITCHES
ACPUOP
;;CPU TYPE,OPTICNS
BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
1 /70=06,PDQ=07,0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
AMAMS1
;:HIGH ADDRESS,M.S. BYTE
AMTYP1
;.MEM. TYPE,BLKM
MEM.TYPE BYTE
-(HIGH BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
AMADR1
;;HIGH ADDRESS,BLK#1
MEM.LAST ADOR.=3 BYTES,THIS WORD AND LOW OF '‘TYPE'' ABOVE
AMAMS2
;:HIGH ADDRESS,M.S. BYTE
AMTYP2
; MEM.TYPE,BLKN?
AMADRZ2
;;MEM.LAST ADDRESS,BLK#?
AMAMS3
;;HIGH ADDRESS,M.S.BYTE
AMTYP3
;. MEM.TYPE,BLKA3
AMADR3
;:MEM.LAST ADDRESS,BLK#3
~ AMAMS4
;;HIGH ADDRESS,M.S.BYTE
AMTYP4L
;:MEM.TYPE,BLKNG
AMADR4
;;MEM.LAST ADDRESS,BLK#4
AVECT1
;;INTERRUPT VECTORA1,BUS PRIORITY#1
AVECT2
;;INTERRUPT VECTOR#2BUS PRIORITY#2
ABASE
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
ADEVM
;:DEVICE MAP

LMAIN.
MACY11 30A(1052)
19-APR-78
cZoLbC.P11
19-APR-78 11:41
685
696
697
698
699
700

.SBTTL

ERROR POINTER TABLE

;*NOTE1:
s *NOTEZ:

2
703
704
705
706

710
711
712
713
714

SEQ 0018

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

;81

707
708
709

11:44
PAGE 18
ERROR POINTER TABLE

A
it
o
o
001146

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

EM
DH
DT
DF

;:POINTS
:;POINTS
;;POINTS
;;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

SERRTB:

001146
001146
00%:1.9
00115

015266
021451
022204

717
718
719

.$ERRTB:

000000

EM
DH1
DT

;"'CAN NOT ACCESS TCSR'"
;'TEST# ERR PC
TCSR'
;STESTN,SERRPC,TCSR

001156
001160
001162

015312
021476
022214

000000

EM2
DH2
DT2

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

722
723
7264

001166
001170
001172

015336
021451
022204

EM3
DH1
DT

;"'TCSR DONE NOT CLEARED WITH
;'TEST# ERR PC
TCSR'
;STESTN,SERRPC,TCSR

727
728
729
;g?

001176
001200
001202
001204

015403
021451
022204
000000

EM4
DH1
DT
0

:"'TCSR DONE NOT SET"
;U'TEST# ERR PC
TCSR'
;STESTN,SERRPC,TCSR

732
733
734
;gz

001206
001210
001212
001214

015425
021451
022204
000000

EMS
DH1
DT
0

;TCSR DONE NOT SET WITH RESET
;'TEST# ERR PC
TCSR'
;STESTN,SERRPC,TCSR

737
738
739
;2?

001216
001220
001222
001224

015462
021523
022224
000000

EM6
DH6
DT6
0

;"'CAN NOT ACCESS RCSR"
;"'TEST# ERR PC
RCSR'
;STESTN,SERRPC,RCSR

7642
743
7644

001226
001230
001232

015506
021550
022234

EM?
DH?
D17

;"'CAN NOT ACCESS RBUF"
;"'TEST# ERR PC
RBUF''
;STESTN,SERRPC,RBUF

747
748
749
750

001236
001240
001242
001244

015532
021575
022244
000000

EM10
DH10
D110
0

:"'CAN NOT ACCESS LKS''
;'TEST# ERR PC
LKS'
;STESTN,SERRPC,LKS

;}2

;g?

;gg

;22

001154

001164

001174

001234

000000

TBUF

FULL"

.MAIN,
MACY11 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:41

751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766

767

768

769

770
77
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

800
801
802
803
804
805
806

11:44
PAGE 19
ERROR POINTER TABLE

SEQ 0019

001246
001250
001252
001254

015555
021451
022204
000000

EM1
DH1
011
0

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

001256
001260
001262
001264

015620
021451
022204
000000

EM12
DH1
DT
0

;"'CAN NOT SET BITO OF TCSR"
;'TEST# ERR PC
TCSR"
;STESTN,$ERRPC,TCSR

001266
001270
001272
001274

015651
021451
022204
000000

EM13
DH1
0T1
0

;"'CAN NOT CLEAR BITO OF TCSR''

001276
001300
001302
001304

015704
021451
022204
000000

EM14
DH1
DT
0

:"'RESET DID NOT CLEAR BITO OF TCSR"

001306
001310
001312
001314

015745
021451
022204
000000

EM15
DH1
DT1
0

;"'BIT2 OF TCSR NOT CLEAR AFTER RESET'

001316
001320
001322
001324

016010
021451
022204
000000

EM16
DH1
T
<

;"'CAN NOT SET BIT2 OF TCSR'
TCSR"
;'TEST# ERR PC

001326

016041

EM17

000000

;"'CAN NOT CLEAR BIT2 OF TCSR"
TCSR'
;'TEST# ERR PC
;STESTN,SERRPC,TCSR

001336
001340
001342
001344

016074
021451
022204
000000

EM20
DH1
DT
0

:"'RESET DID NOT CLEAR BIT2 OF T(CSR"

001346
001350
001352
001354

016135
021451
022204
000000

EM2°
DH1
DT?
0

;"'BIT6 OF TCSR NOT CLEAR AFTER RESET2

001356
001360
001362
001364

016201
021451
022204
000000

EM22
DH1
0T1
0

001366
001370
001372
001374

016236
021451
022204
000000

EM23
DH1
DT1
0

001330
001332
001334

021451
022204

DH1
pT1

;U'TEST# ERR PC

T(CSR"

SSTESTN,SERRPC,TCSR

;'TEST# ERR PC
TCSRTM
;STESTN,SERRPC,TCSR

;"'TEST# ERR PC

TCSR'

;STESTN,SERRPC,TCSR

;'TEST# ERR PC
T(CSR"
;STESTN,SERRPC,TCSR

:'TEST# ERR PC

TCSR"

;STESTN,SERRPC,TCSR

;"'XMIT INTERRUPT WITH PRIORITY
;'TEST# ERR PC
T(CSR''

;STESTN,SERRPC,TCSR

;""CAN NOT SET BIT6 OF TCSR"
J'TEST# ERR PC
T(SR'
sSTESTN,SERRPC,TCSR

7°

19-APR-78
.MAIN,
MACY11 30A(1052)
19-APR-78 11:41
¢ZbLoC.P1N

807
808
809
810

811
812

813

814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
84
84
847
848
849
850
851
852
853
854
855
856

857
858
859
860
861
862

SEQ 0020

11:44
PAGE 20
ERROR POINTER TABLE

:"'CAN NOT CLEAR BIT6 OF TCSR'

J01376
001400
001402
001404

016267
021451
022204
000000

EM24
DH1
0T

;'TEST# ERR PC
TCSR"
;STESTN,SERRPC,TCSR

001406
001410
001412
001414

016322
021451
022204
000000

EM25
DH1
0T

;"'RESET DID NOT CLEAR BITé6 OF TCSR"
TCSR"
;'TEST# ERR PC
CSR
;STESTN,SERRPC,T

001416
001420
001422
001424

016363
021523
022224
000000

EM26
DH6
DT6
0

:''BIT6 OF RCSR NOT CLEAR AFTER RESET"

001426
001430
001432
001434

016426
021523
022224
000000

EM27
DH6

;"RCVR INTERRUPT WITH PRIORITY
J'TEST# ERR PC
RCSR"

001436
001440
001442
001444

016465
021523
022224
000000

EM30

;"'CAN NOT SET BIT6 OF RCSR"
;'TEST# ERR PC RCSR"
;STESTN,SERRPC,RCSR

001446
001450
001452
001454

016516
021523
022224
000000

EM31
DH6
DT6
0

;""CAN NOT CLEAR BIT6é OF RCSR"
;'TEST# ERR PC RCSR"
JSTESTN,SERRPC,RCSR

001456
001460
001462
001464

016551
021523
022224
000000

EM32
DH6

;"'CAN NOT CLEAR BIT6 OF RCSR WITH RESET2

001466
001470
001472
001474

016617
021575
022244
000000

EM33
DH10
0T10

;“BIT6 OF LKS NOT CLEAR AFTER RESET'

001476
001500
001502
001504

016661

021575
022244
000000

EM34
DH10
0110
0

;'LKS INTERRUPT WITH PRIORITY 7"

001506
001510
001512

001514

016717
021575
022244
000000

EM35
DH10
DT10
0

;"'CAN NOT SET BIT6 OF LKS''
;"'TEST# ERR PC LKS"
;STESTN,SERRPC,LKS

001516
001520
001522
001524

016747
021575
022244
000000

EM36
DH10
0T10
0

;'CAN NOT CLEAR BIT6 OF LKS"

001526

017001

EM37

;"'RESET DID NOT CLEAR BIT6 OF LKS'

DT6
0

DH6
DT6
0

DT6
0

:"'TEST# ERR PC

RCSR"

;STESTN,SERRPC,RCSR

PC
,RCSR
;STESTN,$ERR

JU'TEST# ERR PC

RCSR"

;STESTN,SERRPC,RCSR

LKS'
SUTEST# ERR PC
SS$TESTN,SERRPC.LKS

JUTESTH ERR PC LKSTM
;STESTN,SERRPC,LKS

;'TEST# ERR PC

LKS"

SSTESTN,SERRPC,LKS

MAIN,
MACY11 30A(1052)
19-APR-78
CZDLDC.P11
19-APR-78 11:41

863
864
865

866
867
868
869
870
8n
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900

901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916

917
918

11:44
PAGE 21
ERROR POINTER

SEQ 0021

TABLE

001530
001532
001534

021575
022244
000000

DH10
0110
0

;'TEST# ERR PC

001536
001540
001542

017041
021621
022254

000000

EM4LO
DH4O
DT40

:"'DUAL ADDRESSING ERROR'
BAD''
;"'TEST# ERR PC GOOD
;STESTN,SERRPC,$GDADR,$BDCSR

001546
001550
001552
001554

017067
021575
022244
000000

EM4T
DH10
DT10
0

;"'BIT7 OF LKS NOT SET AFTER RESETZ
;'TEST# ERR PC LKS"

001556
001560
001562
001564

017127
021575
022244
000000

EM4?2
DH10
DT10
0

001566
001570
001572
001574

017161
021575
022244
000000

EM43
DH10

;"'BIT7 OF LKS DOES NOT SET"
LKS"
;'TEST# ERR PC
;STESTN,SERRPC,LKS

001576
001600
001602
001604

017212
021575
022¢+4
000000

EMSL/
vH10
DT10
0

;"'RTC

001606
001610
001612
001614

017246
021575
022244
000000

EM4S
DH10

;'RTC INTERRUPTS WHEN DISABLED''

DT10
0

;STESTN,SERRPC,LKS

;"'TEST# ERR PC

LKS"

001616
001620
001622
001624

017303
021575

;"'RTC

DID NOT OCCUR''

022244
000000

EM46
DH10
DT10
0

001626
001630
001632
001634

017303
021575
022244
000000

EM47
DH10
DT10
0

;"'RTC INTERRUPT DID NOT OCCUR''

001636
001640
001642
001644

017337
021575
022244
000000

EMS0
DH10
DT10
0

001646
001650
001652
001654

017364
021575
022244
000000

EMST
DH10
D110
0

;"'RESET DID NOT CLEAR RTC INTERRUPT"
LKS"
;U'TEST# ERR PC

001656
001660

017414
021575

EMS2
DH10

;"RTC INTERRUPT DID NOT CLEAR WITH BIT? OF LKS"
;'TEST# ERR PC
LKSTM

001544

DT10
0

LKS"

JSTESTN,SERRPC,LKS

;STESTN,SERRPC,LKS

;"'CAN NOT CLEAR BIT7 OF LKS'

;U'TEST# ERR PC
LKS"
;STESTN,SERRPC,LKS

INTERRUPT AT PRIORITY

;'TEST# ERR PC
LKS"
KS
JSTESTN,SERRPC,L

INTERRUPT

;'TEST# ERR PC

LKS"

;STESTN,SERRPC,LKS

;"'TEST# ERR PC

LKS"

;STESTN,SERRPC,LKS

:"'RTC DOUBLE INTERRUPT''

;"'TEST# ERR PC

LKS''

;STESTN,SERRP(C,LKS

;STESTN,SERRPC,LKS

MACY11

919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943

001662
001664

022244
000000

DT10
0

001666
001670
001672
001674

01747
021655
022266
005000

EMS3
DH53
DT53
0

;'TESTH ERR PC
LKS
CNT1
(NT2''
;STESTN,SERRPC,LKS,FIRST,SECND

001676
001700
001702
001704

017515
021451
022204
000000

EMS4

;U'XMIT INTERRUPTS WHEN DISABLED'

001706
001710
001712
001714

017653
021451
022204
000000

EMSS

001716
001720
001722
001724

017553
021451
022204
000000

EM56

;'XMIT INTERRUPT AT PRIORITY 7'

001726
001730
001732
001734

017611
021451
022204
000000

EMS57
DH1
DT
0

;"'XMIT INTERRUPTS WITH ENABLE CLEAR'

001736
001740
001742
001744

017653
021451
022204
000000

EM60
DH1

;"'XMIT DID NOT INTERRUPT'
TCSR"
;'TEST# ERR PC
sSTESTN,SERRPC,TCSR

001746
001750
001752
001754

017702
621451
022204
000000

EM61
DH1

:""XMIT RE-INTERRUPTED"
TCSR'
;UTEST# ERR PC
;STESTN,SERRPC,TCSR

001756
901760
001762
001764

017726
021451
022204
000000

EM62
DH1
DT

;"'LOADING TBUF DID NOT CLEAR INTERRUPT'

001766
001770
001772
001774

017773
021523
022224
000000

EM63

;"'RCVR ACTIVE NOT SET"
RCSR'
:'TEST# ERR PC
SSTESTN,SERRPC,RCSR

001776
002000
002002
002004

020017
021523
022224
000000

EM64
DH6
DT6

;"'RECEIVER DONE NEVER SET"

002006
002010
002012

020043
021523
022224

EM6S

:"'RCVR ACTIVE NOT CLEARED WITH DONE SET2

944
945
946

947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962

963

964
965
966

967
968
969

970
971
972
973

974

30A(1052)
19-APR-78
19-APR-78 11:41

11:44
PAGE 22
ERROR POINTER TABLE

.MAIN.

cZoLoc.P1

DH1
DT1
0
DH1
DT

DH1
DT
0

DH6
DT6

SEQ 0022

;STESTN,SERRPC,LKS

;"'TEST# ERR PC

TCSR'

;S$TESTN,SERRPC,TCSR

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

;'TEST# ERR PC
TCSR"
sSTESTN,SERRPC,TCSR

;'TEST# ERR PC

TCSR"

;STESTN,SERRPC,TCSR

;'TEST# ERR PC

TCSR'

;STESTN,SERRPC,TCSR

;"'TEST# ERR PC

R(SR'

;STESTN,SERRP(C,RCSR

;"'TEST# ERR PC

RC(SR"

;STESTN,SERRPC,RCSR

LMAIN.
MACY11 30A(1052)
19-APR-78
czoLpc.P1
19-APR-78 11:41

11:44
PAGE 23
ERROR POINTER

SEQ 0023

TABLE

g;g

002014

000000

977
978
979
gg?

002016
002020
002022
002024

020111
021523
022224
000000

EM66
DH6
DT6
0

;""RESET DID NOT CLEAR RCVR DONE"
;'TEST# ERR PC
R(SR"
;S$TESTN,SERRPC,RCSR

982
983
984
832

002026
002030
002032
002034

020147
021523
022224
000000

EM67
DH6
D16
0

:""RDR ENABLE SET DID NOT CLEAR RCVR DONE''
;"'TEST# ERR PC
RCSR"
;STESTN,SERRPC,RCSR

987
988
989
gg?

002036
002040
002042
002044

020212
021523
022224
000000

EM70
DH6
DT6
0

;"'READING RBUF DID NOT CLEAR RCVR DONE''
;'TEST# ERR PC
RCSR"
JSTESTN,SERRPC,RCSR

992
993
994
332

002046
002050
002052
002054

020257
021523
022224
000000

EM71
DH6
DT6
0

;"'RCVR INTERRUPTS WITH ENABLE
;"'TEST# ERR PC
RCSR"
;STESTN,SERRPC
,RCSR

997

002056

020426

EM72

;"'RCVR DID NOT

999

002062

022224

DT6

;STESTN,SERRPC,RCSR

1002
1003

998

}88?

002060

DH6

;'TEST# ERR PC

INTERRUPT"

RCSR"

000000

002066
002070

020321
021523
022224
000000

EM73
DH6

DT6
0

;STESTN,$ERRPC,RCSR

1007
1008
1009
;8:?

002076
002100
002102
002104

020357
021523
022224
000000

EM74
DH6
DT6
0

:"'RCVR INTERRUPT REQUEST PASSED WITH ENABLE
;"'TEST# ERR PC
RCSR'
STESTN,SERRPC,RCSR

1012
1013
1014

002106
002110
002112

020426
021523
022224

EM7S
DH6
DT6

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

1017
1018
1019

002116
002120
002122

020455
021523
022224

EM76
DH6
DT6

;"'RECEIVER RE-INTERRUPTED"
;'TEST# ERR PC
RCSR'
;STESTN,SERRPC,RCSR

1022
1023
1024
;852

002126
002130
002132
002134

020501
021523
022224
000000

EM77
DH6
DT6
0

:"'READING RBUF DID NOT CLEAR
;'TEST# ERR PC
R(SR'
;STESTN,SERRPC,RCSR

1027
1028
1029
1030

002136
002140
002142
002144

020546
021523
022224
000000

EM100
DH6
DT6
0

;"'RESET DID NOT CLEAR RCVR
;'TEST# ERR PC
RCSR'
;STESTN,SERRPC,RCSR

1004
}882

;8}2

}85?

002064

021523

CLEAR"

002072
002074

002114

002124

000000

;"'RCVR INTERRUPTS AT PRIORITY 7"
;'TEST# ERR PC
RCSR'

INTERRUPT"'

INTERRUPT''

CLEAR"

.MAIN.
MACY1T 30A(1052)
19-APR-78
cZoLoc PN
19-APR-78 11:41

1031
1032

1033
1034

1035
1036
1037
1038
1039
1040
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
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086

11:44
PAGE 24
ERROR POINTER TABLE

SEQ 0024

FLAG DID NOT SET''

002146
002150
002152
002154

020611
021523
022224
000000

EM101

002156
002160
002162
002164

020637
021523
022224
000000

EM102
DH6
DT6
0

;"'"ERROR' NOT SET WITH
;"'TEST# ERR PC
RCSR"

002166
002170
002172
002174

020676
021722
022302
000000

EM103
DH103

;"'BREAK DID NOT TRANSM
ALL ZEROES'
.'TEST# ERR PC
RCSR DATA"

002176
002200
002202
002204

020734
021523
022224
000000

EM104
DH6

;"'BREAK DID NOT SET FRAMING ERROR''
;"'TEST# ERR PC RCSR'
,RCSR
;STESTN,SERRPC

002206
002210
002212
002214

020771
021757
022314
000000

;"'DATA COMPARE ERROR"'
;'TEST# ERR PC RCSR GOOD
JSTESTN,SERRPC ,RCSR,GD,BD

002216
0C2220
002222
002224

021014
021757
022314
000000

:"'DATA COMPARE ERROR WITH CABLE"
;"'TEST# ERR PC RCSR
600D
BAD"'

002226
002230
002232
002234

021052
021523
022224
000000

;"'TIMEQUT IN EXERCISER TEST"
;"'TEST# ERR PC RCSR'"
;STESTN,SERRPC,RCSR

002236
002240
002242
002244

021104
022023
022330
000000

;"'INCORRECT RECEIVE COUNT
;'TEST# ERR PC RCSR
TRANS
RCV"
PC
,RCSR, XMTCNT ,RCVCNT
;STESTN,SERR

002246
002250
002252
002254

021134
021757
022314
000000

:"'DATA COMPARE ERROR IN EXERCISER''
;"'TESTH# ERR PC RCSR
600D
BAD"'
sSTESTN,SERRPC,RCSR,GD,BD

002256
002260
002262
002264

021174
022067
022344
000000

:""TRAP CATCHER'

002266
002270
002272
002274

021211
021575

022244
000000

DH6
DT6
0

DT103
0

;"''Ok

;STESTN,$ERRPC,RCSR
'OR®

FLAG''

;STESTN,SERRPC,RCSR

;STESTN,SERRPC,RCSR,$BDDAT

BAD'

sSTESTN,SERRPC,RCSR,GD,BD

;'TEST#
ERR PC RCSR
OLDPC
TRAP ADR'
;$TESTN,SERRPC ,RCSR,OLDPC,BDVECT

;''NO CLK INTERRUPT IN EXERCISER'

;'TEST#

ERR PC

LKSTM

;STESTN,SERRPC,LKS

.MAIN.
MACY11 30A(1052)
19-APR-78
czoLnc P11
19-APR-78 11:41

021247
021523

;"""ERROR'

022224
000000

DT6
0

002304
002310
002312
002314

021306
021523
022224
000000

EM115

;RCV ACTVIE NOT CLEAR WITH INIT

002316
002320
002322
002324

021345
021523
022224
000000

EM116
DH6

002326
002330
002332
002334

021404
021523
022224
000000

002336
002340
002342
002344

000000
000000
000000
000000

002346
002350
002352
002354
002356
002360
002362
002364

000000
000000
000000
000000
000000
000000
000000
000000

D end
D d
b md
D d
d
D
b
b
D e
D ed
b o
b e

RCSR"

'FR'

FLAG"

;STESTN,SERRPC,RCSR

DH6
DT6
0

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

;RCV ACTIVE WITHOUT ‘'START' BIT

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

DT6
0

EM117

sRDR ENABLE

DH6

NOT

CLEAR WITH RCV ACTIVE

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

.WORD
.WORD
.WORD

MmMOOOO

DT6
0
CTSTFL:
TMP1:
TMP2:

NOT SET WITH

;"'TEST# ERR PC

.WORD

; CONSLE UNDER TEST FLAG
;TEMP LOCATION FOR TABLE OFFSETS
;TEMP LOCATION FOR DEVICE COUNT
LOCATION FOR DEVICE MAP BIT TEST MASK

TMP3:
.WORD
JREGISTER AND VE TOR ADDRESSES FOR THE DL-11W UNDER TEST

RCSR:

RBUF :

+WORD

TBUF :

+WORD

TCSR:

RVECT:
RPSW:
TVECT:
TPSW:

.WORD

.WORD
.WORD
.WORD
.WORD

sCONSOLE REGISTER AND VECTOR ADDRESSES FOR THE DL-11W
002366
002370
002372
002374
002376
002400
002402
002404

177560
177562
177564
177566
000060
000062
000064
000066

CRCSR:
CRBUF:
CTCSR:
CTBUF:
CRVECT:
CRPSW:
CTVECT:
CTPSW:

002406
002410
002412

177546
000100
000102

LKS:
RTCVT:
RTCPSW:

.WORD
.WORD
.WORD

177546
100
102

002414
002454

000020

ADRTBL:
VCTTBL:

.BLKW
.BLKW

20
20

D
D
d b d
d e wd
b e md b o
— i d e ed

SEQ 0025

EM114
DH6

COOOOOOO

SN BN B NN NN AN N NN W NN NNPOMNNIMNIMNININ
= bk b b D b b 2 OO O
N=O VB NOWNT WOV NOWVEWN 2OV
NOWVESWN 2OV~

002276
002309
002202
00230%

D
D

D nd
) D

D
D

d md
D d

d ced
d e

b
D

e
D

d d
b e

b
D

b
b

b =D
b b

1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102

11:44
PAGE 25
ERROR POINTER TABLE

000020

177560
177562
177564
177566
60
62
64
66

:ADDRESS
;ADDRESS
:ADDRESS
;ADDRESS

OF
Or
OF
OF

RECEIVER COMMAND/STATUS REGISTER
RECEIVER BUFFER
TRANSMITTER COMMAND/STATUS REGISTER
TRANSMITTER BUFFER

SJRECEIVER INTERRUPT VECTOR
¢ TRANSMITTER

INTERRUPT

JREAL TIME CLOCK REGISTER AND VECTOR ADDRESSES

VECTOR

-MAIN,
MACY11 30A(1052)
19-APR-78
19-APR-78 11:41
czoLoc.P1

QO ~NO NN

O O O OO OO ~O Co 0o Oo 0o 0o O Co OO O OO NNN

NNNNNNVNOOOOOROOVIVIVIVVVIVIVNTVWNWNS
S SN

O VONOVNEAWN=OVONOVEWN
SO OVONOVNEWN SOV NO NS WA =000 NN

11:44
PAGE 26
ERROR POINTER

SEQ 0026

TABLE

:SUBROUTINE TO GENERATE DEVICE ADDRESS TABLL
002514
002520
002524
002526
002532
002534
002540
002542
002544

012702
013700
010001
062701
010022
062700
020001
003773
000207

002546
002552
002556
002562
002566
002572
002576
002602
002604
002612
002620

005037
005037
005037
005037
005037
005037
005737
001003
012737
012737
012737

002414
0C1142

DEVADR:

000170

1%:

000010

START:

001112
000004
000006

18:

012706
005026
022706
001374
012706

002646
002654
002662
002670
002676
002704
002712
002720
002726
002734
002740
002746
002754

012737
012737
012737
012737

002762
002766
002774
003002
003010
003016

012737
012737
012737
012737
013737

005037
112737
012737
012737

013746
012737
012737
012737
022777
001012

JPOINT R2 TO THE DCVICE ADDRESS TABLE
;LOAD BASE DEVICE ADDRESS IN RO
:

#170,R1
RO, (R2)+
#10,R0
RO,R1
1%

JPOINT R1 TO LAST DEVICE ADDRESS
;MOVE DEVICE ADDRESS TO TABLE
JPOINT RO TO NEXT DEVICE ADDRESS
JFINISHED GENERATING TABLE?
;BR, IF LAST DEVICE ADDRESS NOT LOADED

SFATAL
SMSGTYP
STESTN

;CLEAR ERROR NO.
sCLEAR MESSAGE TYPE
JCLEAR TEST NO.

$SUSWR

;IS SUSWR LOADED?

CTISTFL
$0CVCT
$UNIT

JCLEAR CONSOLE UNDER TEST FLAG
JCLEAR DEVICE COUNT

;CLEAR UNIT NUMBER

18
#400,8USWR
46,344

#3,346

INITIALIZE

CLR
cmp
BNE

001000

177570
177777

MOV

mov

001040

000004
003022
177570

MOV

#ADRTBL ,R?2
:SASE.RO
.R

THE

;BR IF YES
JELSE, DEFAULT TO $SUSWR=400
JINITIALIZE TIMEOUT VECTORS TO TRAP
s
CATCHER ROUTINE

COMMON TAGS

;s CLEAR THE COMMON TAGS (SCMTAG) AREA

001000

013000
000340
012304
000340
014704
000340
012622
000340
012132
001060
000001
002746
00275¢

(LR
CLR
CLR
CLR
CLR
CLR
TST
BNE

Mov

.SBTTL

002626
002632
002634
002640
002642

MOV

ADD
CMP
BLE
RTS

001070
001066
001072
002336
001076
001100
001112

000400
000006
000003

MOV

MoV
MOV
ADD

MOV

000020
000022
000030
000032
000034
000036
000024
000026
012124
001015
001006
001010

#SCMTAG,R6
(R6)+
#SWR,R6 ;;DONE?
.~6
#1000,SP

¢ INITIALIZE A FEW VECTORS
MoV
MoV
MOV
mov
Mov
Mov
MOV
MOV
Mmov

CLR

J+sFIRST LOCATION TO BE CLEARED
;s CLEAR MEMORY LOCATION

;. LOOP BACK IF NO
;sSETUP THE STACK POINTER

#3SCOPE ,@#IOTVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,8F#]I0TVEC+2 ;:LEVEL 7

#SERROR,@FENTVEC

;:EMT VECTOR FOR ERROR ROUTINE

#340,3#ENTVEC+2 ;:LEVEL 7

#STRAP,3#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340,9#TRAPVEC+2;LEVEL 7
#S$PURDN ,3#PWRVEC

;;POWER FAILURE

#3640 ,9#PWRVEC+2 ;:LEVEL 7

$SENDCT,SEOPCT

SESCAPE

VECTOR

ssSETUP END~-OF~PROGRAM COUNTER

:;CLEAR THE ESCAPE ON ERROR ADDRESS

Movs
Mov
Mov

#1,SERMAX
#.,SLPADR
#.,SLPERR

:;ALLOW ONE ERROR PER TEST
s INITIALIZE THE LOOP ADDRESS FOR SCOPE
;. SETUP THE ERROR LOOP ADDRESS

Mov
MoV
mov
Mov
CMP

@#ERRVEC,-(S?)
#64S ,QFERRVEC

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

;iSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "-1'', SETUP FOR A SOFTWARE SWITCH REGISTER.
000004
001040
001042
176022

BNE

#DSWR,SWR
#DDISP,DISPLAY

#-1,3SWR
66%

:;SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER

::TRY TO REFERENCE HARDWARE SWR
;s BRANCH IF NO TIMEOUT TRAP OCCURRED

:AND

THE HARDWARE SWR IS NOT = -1

e
R
I

e
S

JMAIN.
RAZY1T 30A(1052)
19-APR-78
czoLoc.e
19-APR-78 11:41

1199

003020

000403

1201
1202
1203
1%82

003026
003030
003036
003044

000002
012737
012737
012637

1206
1207
1208
1209
1210
1211
1212
1213
12164
1215
1216
1217
1218
1219

093050
003054
003062
003064
003072
003072
003100
003102
003106
003112
003120
003122
003130
003132

1222

003142

004737

1225

003156

013703

1200

]gg?
1223
1224

003022

003140
003146
003152

012716

005037
132737
001403
012737

001074
000200

001107

00'110

001040

032777
001404
005237
000137
132737
001404
132737
001056
032777

000020

175740

001052

000004

002336
004056
000001

001106

000200

001107

000040

175700

002514

005037
005037

002342
001144
003212
001142
000160

012737
013700
062700
005710
005237
005237
012706
006337
162700
023700
003762
013700
012737
005710

}gzz

1245
1246
1247
1248
1249
1250
1251
1252
1253

648:
001040
001042

003162
003170
003174
003200
003202
003206
003212
003216
003222
003226
003232
003234
003240
003246
003250
003254
003260

003030
000176
000174

1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239

1240
1241
12642

11:44
PAGE 27
INITIALIZE THE

000004

003264

005237
005237
010337

000415

001144
002342
000004

003266
003272
003276
003300
003302
003306
003310
003312
003314

005037
013702
005702
100002
005237
006302
001401
000771
004737

002342
001144

002342

002514

€6%:

SEQ 0027

COMMON TAGS

B8R

65%

RTI
Mov
MOV
Mov

#SWREG, SWR
::POINT
#DISPREG,DISPLAY

MoV

#6583, (SP)

;;BRANCH IF NO TIMEOUT

;:SET UP FOR TRAP RETURN
TO SOF TWARE

SWR

(SP)+ @#ERRVEC

;.RESTORE

(LR
8178
PEQ
MOY

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

;;CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
;s YES,USE NON-APT SWIT(H
;sNO,USE APT SWITCH REGISTER

MANL:

317
BEQ
INC
JMP
BITB
BEQ
BITB
BNE
BIT

#8174 ,3SWR
INIT
CTSTFL
1D
#BIT0,SENV
MANL
#BIT7 ,SENVM
APTSZD
#BIT5,aSWR

;TEST CLOCK ONLY?
;BR IF NOT
JELSE, SET CONSOLE TEST FLAG TO ENABLE
:
AND JUMP TO TYPE PROGRAM ID
:CHECK IF ON APT
:BR IF NOT APT
;DID APT SIZE
;BR, IF APT SIZFD
;WAS "'SDEVM'' MANUALLY SET?

SIZE:

JSR

PC,DEVADR

:GENERATE

MOV

a8#4 ,R3

:SAVE

67%:

INIT:

000004
3s:

001144
002342
001000
001144
000010
001142
002366
003260

658:

48:

000004

58:
APTSZD:

TSTDVM:
18:
DVADT:

BNE

CLR
CLR

APTSZD
TMP?
$DEVM

MOV
MoV
ADD
TST
INC
INC
MOV
ASL
sus
CMP
BLE
MoV
MoV
TST

Nes, ané
$BASE,RO
#160,R0
(RO)
$DEVM
TMP2
#1000,sP
SDEVM
#10,R0
$BASE RO
33
CRCSR,RO
¥58,ar
(RO)

VCTADR

INC
INC
MOV

CLR
MoV
TST
BPL
INC
ASL
BEQ
BR
JSR

;IF

YES,

ERROR VECTOR

CLOCK

SKIP SELF-SIZING
DEVICE ADDRESS

TABLE

:CLR TEMP LOCATION TO KEEP DEVICE COUNT
:CLEAR DEVICE MAP
TIMEOUT VECTOR

;SET TIMEQUT POINTER
:LOAD BASE ADDRESS
;POINT RO TO UNIT #15 (UNIT#0=CONSOLE)
s CHECK FOR DEVICE EXISTANCE
;INDICATE DEVICE EXISTANCE IN DEVICE MAP
; INCREMENT DEVICE COUNT
sRESET STACK POINTER
;ADJUST DEVICE MAP FOR NEXT UNIT CHECK
;POINT PO TO NEXT DEVICE NUMBER
;FINISHED SIZING?
;BR, IF BASE ADDRESS HAS NOT BEEN CHECKED
:LOAD CONSOLE DEVICE ADDRESS
;SET UP TIMEOUT POINTER
;TEST FOR CONSOLE EXISTANCE

SDEVM
THP2
R3,ané4

;INDICATE CONSOLE EXISTANCE
; INCREMENT DEVICE COUNT
;RESTORE TIMEOUT VECTOR

IN DEVICE MAP

TMP2
SOEVM,R2
R2
1%
TMP2
R2
DVADT
TSTDVM
PC.DEVADR

;CLEAR TEMP LOCATION TO KEEP DEVICE CNT
:MOVE DEVICE MAP TO R2
;TEST MSB OF DEVICE MAP
:BR, IF MSB IS ZERO
; INCREMENT DEVICE COUNT, IF MSB=1
;SHIFT NEXT BIT INTO MSB POSITION
:BR, IF NO OTHER BITS ARE SET IN SDEVM
;CONTINUE CHECKING $DEVM, IF MORE BITS SET
;GENERATE DEVICE ADURESS TABLE

:BR TO GENERATE VECTOR ADDRESS TABLE

TESTS

—

-MAIN.
MACY11 30A(1052)
19-APR-78
czoLnc P11
19-APR-78 11:41

1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307

1308
1309
1310

11:44
PAGE 28
INITIALIZE THE

SEQ 0028

COMMON TAGS

:GENERATE VECTOR ADDRESS TABLE
003320
003324
003330
003334
003336
003342
003344
003350
003352

012702
113700
042700
010001
062701
010022
062700
020001
003773

002454
001136
177400

VCTADR:

000170

1%:

000010

MOV
MOVB
BIC
MoV
ADD

#VCTTBL ,R2
a#SVECTT,RO
#177400,R0
RO,R1
#170,R1

ADD
CMP
BLE

#10,R0
RO,R1
13

Mov

RO, (R2)+

;GET LOCATION OF VECTOR TABLE
;COPY BASE VECTOR
;CLEAR BYTE SIGN EXTENSION
:
;POINT R1 TO LAST DEVICE VECTOR

;PUT

VECTOR ADDRESS

TABLE

;POINT RO TO NEXT VECTOR ADDRESS
;FINISHED GENERATING VECTOR TABLE?
:BR, IF LAST VECTOR IS NOT LOADED

;MOVE DEVICE COUNT INTO DEVICE COUNT MESSAGE
003354
003360
003362
003364
003366
003370
003372
003374
003376
003400
003402
003404
003410
003412
003416
003420

013700
005001
000300
006300
006300
006300

002342

MOV
CLR

SHIFT:

106101

006300
106101
006300
106101

062701
000301

032701
001764

;PUT DEVICE COUNT IN UPPER BYTE OF
;MOVE MSB OF COUNT INTO
:MSB OF RO
sPUT MSB OF COUNT INTO CARRY

ASL

;MOVE LAST BIT OF

SWAB
ASL
ASL
ASL

ROLSB

000060

022154

003424
003432
003436
003444
003446
003450
003454
003460
003464
003466
003472
003474

052737
005037
032737
001001
000414
005237
012700
012701

000002
002340
000001

022701
002374
000137

002364

003500
003506
003510
003514
003522
003526

033737
001010
006337
062737
005237
000764

003530
003534
003540

005237
006337
013702

002344

BEGIN:

001144

002336
002366
002346

TCONS:

18-

003622

00234¢

001144

002344
000002
001100

002340

001100
002344
002340

ROLB
ADD

R1
#60,R1

BEQ
mov

SHIFT
R1,M2A

SWAB
BIT

000020

010137

012021

ROLB
ASL

TMP2 RO
R1
RO
RO
RO
RO
R1
RO

R1
#8174 ,R1

BIS

#B1T1,TMP3

BIT

#8170,$DEVM

CLR

BNE
BR

INC

“IV
MoV
Mov
CMP
BGE
JMP

:COPY DEVICE COUNT INTO RO
:CLEAR AUXILARY REGISTER

;MOVE MSB OF COUNT INTO R1
sMOVE NEXT BIT TO CARRY

;MOVE

INTO R1

SETADR:

BIT
BNE

DIGIT

INTO R1
:CONVERT DIGIT

TO ASCII
TO UPPER BYTE

;MOVE DIGIT
;HAVE BOTH DIGITS BEEN MOVED

;BR, IF NOT
¢MOVE DEVICE

COUNT

TO R1?

TO OUTPUT MESSAGE

;SET UP BIT MASK TO TEST SDEVM FOR DEVICES EXCEPT

THMP1

;CLEAR LOCATION TO STORE TABLE OFFSETS

TCONS
TSTDEV

:BR,
;BR,

CTSTFL

#CRCSR,RO
#RCSR,R1
(RO)+,(R1)+
#TPSW,R1
1%
TsT

;1S CONSOLE

TMP3,SDEVM
SETADR

TO BE

TESTED?

IFf CONSOLE IS TO BE TESTED
TO TEST OTHER DEVICES

sINDICATE

CONSOLE

UNDER

TEST

;SET UP CONSOLE DEVICE ADDRESSES
;POINT R1 TO UUT ADDRESS TABLE
s TRANSFER CONSOLE ADDRESSES
sFINISHED TRANSFER?
;BR, IF NOT
;GO TEST CONSOLE INTERFACE

.PREPARE ADDRESSES AND VECTORS FOR WUT

TSTDEV:

;CHECK TO SEE
:BR, IF YES

DEVICE

TO BE

TESTED

ASL
ADD
INC
BR

TMP3
#2,TMP1
SUNIT
TSTDEV

;SHIFT MASK TO CHECK NEXT SDEVM BIT
:INCREMENT TABLE INDEX
; INCREMENT UNIT NUMBER
;GO TEST NEXT BIT OF DEVICE MAP

INC
ASL
Mov

SUNIT
THP3
TMP1,R2

;UPDATE UNIT NUMBER
;UPDATE DEVICE MAP TEST MASK
;MOVE TABLE OFFSET TO RZ

CONSOL

SN N=OVoO~NO
NS WN -

b
D e
ed
d e
d
d =D ed
d
b
-—

N N NN N NN WWIN W W
WW
NN PNIAIN)
=
b cod ed ed d e ek —

MACY11 30A(1052)
MAIN,
19-APR-78
czoLoc P11
19-APR-78 11:41

1325
1326

003544
003552
003556
003562
003564
003570
003574

003576

003602
003604
003610
003614
003616

062737

016200
012701
010021
062700
030027
001372
016200
010021
062700
030027
001372
000137

000002
002414
002346
000002
000006

002454
000002
000006
003622

0
11:44
PAGE 29
INITIALIZE THE COMMON TAGS

002340

ADD
MOV
MOV
ADR:

mMov

ADD

BIY
BNE
VECT:

Mov
MoV
ADD

BIT
BNE
JMP

SEQ 0029

#2,TMP1
ADRTBL
(R2) ,RO

;UPDATE

RO, (R1)+
#2,R0
RO,#6

; TRANSFER UUT ADDRESS

#RCSR R

ADR

VCTTBL(R2)
,RO
RO, (R1)+

#2,R0

RO, #6
VECT
TSTH

TABLE OFFSET FOR NEXT DEVICE

;PUT UUT ADDRESS INTO RO
;POINT

TO STORAGE

AREA

FOR UUT ADDRESSES

sPOINT TO NEXT UUT REGISTER
;FINISHED TRANSFER?

:BR,

If NOT

;PUT UUT VECTOR INTO RO
s TRANSFER UUT VECTORS TO ACTIVE TABLE AREA
;POINT TO NEXT VECTOR
;FINISHED TRANSFER?
:BR, IF NOT
;60 TEST DEVICE

MACY11 30A(1052)
19-APR-78
19-APR-78 11:41
czoLoc PN
-MAIN.

1327
1328
1329
1330
133
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353

1354

1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369

11:44
PAGE 30
INITIALIZE THE COMMON TAGS

SRR

R R R

S*TEST

R PR R

TEST

SEQ 0030

AR RN

ABILITY

AR RN R AR AR AN NAN R AN

TO REFERENCE

RNY

TCSR

;;ttt'ttiititttt*ttititt't'*titt'tt'ti'itititttttt'ttttttttttt't'

003622
003624
003630
003636
003642

000004
013703
012737
005777
000412

003644
003646
003652
003654
003656
003660
003660
003664
003666
003670

022626
005737
001002
104001
000404

004737
000001
000000
010337

000004
003644

176510

1ST1:

000004

;SAVE TIMEOUT VECTOR
:SET UP TIMEOUT VECTOR

CMP
ST

’s

012170

(SP)+,(SP)+
CTSTFL

JSR

PC.SATY4

MOV

:REFERENCE

28
1
4$

HALT

4$:

aTCSR

BNE
ERROR
BR
1

000004

ars,R3
s, ang

002336

SCOPE
MOV
MOV

SATEST 2

GO TO END OF

TEST

COMMAND/STATUS

REG.

;RESTORE SP AFTER TIMEOUT
:CHECK IF DEVICE IS CONSOLE

:1F YES, SKIP ERROR TYPEOUT
:REPORT ERROR TO APT § TTY
:BR TO END OF TEST
::THE

;RESTORE

XMIT

;:ONLY REPORT A FATAL ERROR

R3,aN4

AR R AR

THE

AR RN

TEST ABILITY

ERROR NUMBER

(FROM APT LIST)

TIMEOUT VECTOR

RN R AR PR AR AR R AN RN

TO REFERENCE

RN RN RRA RS

TBUF

:;'ti'.ti""t"‘"t""""i""'t""f".t.t*"ii'*'.""""t'

003674

001576
003702
003710
003714
003716
003720
003724
003726
003730
003732
003732
003736
003740
003742

000004
013703
012737
005777
000412

022626
005737
001002
104002
000404

004737
000002
000000
010337

000204
003716

176440

002336

T1ST2:
000004

1¢:

arsd ,R3
AR T )

o TBUF
43

JREFERENCE THE
;G0 TC END OF

CMP
TST

(SP)+,(SP)+
CTSTFL

JRESTORE SP AFTER TIMEOUT
;CHECK IF DEVICE IS CONSOLE

23
2
4%

JSR

PC,8ATYS

3%:

2
HALT

MOV

R3,a#4

4%:

sSAVE TIMEOUT VECTOR
JSET UP TIMEQUT VECTOR

TST
BR

BNE
ERROR
B8R

013170
000004

SCOPE

MOV
MOV

XMIT BUFFER
TEST

JIF YES, SKIP ERROR TYPEOUT
;REPORT ERROR TO APT & TTY
;BR TO END OF TEST
J;ONLY

REPORT A FATAL

;s THE ERROR NUMBER
SRESTORE

TIMEOQUT

VECTOR

ERROR

(FROM APT LIST)

MACY11 30A(1052)
19-APR-78
19-APR-78 11:41
czoLoc PN
-MAIN.

1370
131
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1601
1402
1403
1404
1405
1406
1407
1408
1409
1410
16411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422

11:44
T2

TEST ABILITY

NSRS

;*TEST
I

PAGE 3

TO REFERENCE

SEQ 0031

TBUF

RSRARARRRRRRSRitRllliRRatiadaiRd222
202222222222 21

TEST

RALAR AR

THAT

TCSR BIT7(DONE)

CLEARS WHEN XBUF

IS LOADED

AR ARARl
iaR iRttt
iisilslsd

003746
003750
003754
003760

000004
005077

003762
003766
003772

005077
105777

176366
176360

CLR
TSTB
BPL

aTBUF
aTCSR

;FILL

003774
004000
004002
004004
004006
004006
004012
004014
004016
004020
004024
004026
004030

005737
001002
104003
000404

002336

ST
BNE
ERROR
BR

CTSTFL
1%

;CHECK IF DEVICE IS CONSOLE
;IF YES, SKIP ERROR TYPEOUT
:DONE NOT CLEARED WITH TBUF FULL
;BR TO END OF TEST

004737
000003
000000
005000
105777

013170

JSR
3

PC.SATYS

CLR

004032
004036
004040
004042
004044
004044
004050
004052
004054
004056
004064
004066
004072
004074
004100
004102
004104
004106

004110
004112
004120
004122

105777
100016

100011

100414
005200

TST3:

176400
176372

TST8
BPL

1%:

2%:
3%:

176326

4%:

TSTB
INC

BNE

005737
001002
104004
000405

002336

004737
000004

013170

5%:

000000

000042

TST
BNE
ERROR
BR

000046

ID:

001074
001076

104401

aTBUF
aTCSR

3
e 3

005056

174720

68$:

BUFFER

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

;TCSR "'DONE’'‘' NOT CLEARED WITH TBUF FULL

;CHECK

;TCSR ''DONE'’' DOES NOT

5%
ID

HALT
BR

TST4

anel ,ansé

#BIT4,aSWR
TST4
TCLOCK

IF DEVICE

;BR TO END OF

IS CONSOLE

TEST

SET

:sONLY REPORT A FATAL ERROR
;. THE ERROR NUMBER (FROM APT LIST)
;BR TO NEXT TEST, AND SKIP THE TYPEOUT THAT FOLLOWS
.
BECAUSE OF THIS FAILURE

;UNDER ACT11?
YES, SKIP IDENT. TYPEOUT
THIS THE FIRST PASS?
NOT BR TO NEXT TEST & SKIP THE IDENTIFICATION TYPEQU
THIS THE FIRST SUBPASS?
NOT, BRTO NEXT TEST

;1F
;1S
;IF
;1S
:IF

BIT
BtQ
JMP

;CHECK DONE
;BR IF CLEAR

CTSTFL

TYPE

000020

DOUBLE

RO
31

PC.SATY4

CMP
8EQ
TST
BNE
TST
BNE
TYPE
M1

;LOAD XBUF
s CHECK DONE
:BR IF CLEAR
;FILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE
FIRST TEST TO FAIL
:

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

aTCSR
ID

JSR

000424

022152
032777
001402
000137

HALT

BMI

001373

023737
001412
005737
001007
005737
001004
104401
022140

SCOPE
CLR

; TYPE

PROGRAM

;TYPE

NUMBER

INDENTIFICATION

DEVICES

UNDER

;CLOCK TEST ONLY?
:BR IF NOT
SELSE, JUMP TO TEST CLOCK

TEST

MACY11 30A(1052)
.MAIN.
19-APR-78
CZoLDC P11
19-APR-78 11:41
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447

1448
1449
1450
1451
1452
1453

11:446
T3

PAGE 32
TEST THAT

004126
004130
004134
004140
004142
004146
004150
004152
004156

000004
005077
105777
100375
005077
000240
000005
105777

004160

104005

100401

176220
176212
176206

NOP
RESET
TSTB
BMI

176174

AAA

J*TEST
MR

004162
004164
004170
004176
004202

000004
013703
012737

004204
004206
004210

022626
104006
010337

005777
000402

000004
004204
176144

000004

SAAR

SCOPE
CLR
TST8B
BPL
CLR

1%:

TST,:

iit 2222222222222
]

Rttt

llit

sttt

dist ittt

8TBUF
?ICSR

sLOAD TRANSMIT BUFFER
;WAIT FOR DONE

aTBUf

;LOAD SECOND BUFFER

issiinsitss]

;CLEAR DONE WITH RESET

aTCSR
TSTS

:CHECK FOR DONE SET
:BR TO NEXT TEST IF DONE

SET

ARl ettt
sl
RSl ttl
R RRRE

TEST
AR

; TCSR "'DONE'’ DOES NOT SET WITH RESET

ABILITY

AR ARl

SCOPE

MOV
MOV
TST
BR

000004

SEQ 0032

IS LOADED

ERROR

AAAAAA

Rttt

CLEARS WHEN XBUF

TEST THAT TCSR ''DONE’* SETS WITH RESET

TST4:

TCSR BIT7(DONE)

J*TEST 4
AR

TO ACCESS RCSR

Rttt

ar4 ,R3

;SAVE

;BR TO END OF

18, ané
aRCSR

ittt

TIMEOUT VECTOR

:SET UP TIMEOUT
;ACCESS RCSR

VECTOR

TEST

1%:

Cmp

(SP)+,(SP)+

;RESTORE

2%:

ERROR
MOV

6
R3,a#4

;CAN NOT ACCESS RCSR
;RESTORE TIMEOUT VECTOR

SP AFTER

TIMEOUT

.MAIN.
MACY11 30A(1052)
19-APR-78
€zZoLdce P11
19-APR-78 11:41

1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464

1465

1466
1467
1468
1469
1470
1471

11:44
TS

PAGE

H
3
33
TEST ABILITY TO ACCESS RCSR

RN R RN

S*TEST 6
NPAAASA

004214
004216
004222
004230
004234

000004
013703
012737
005777
000402

004236

022626

004240
004242

104007

010337

000004
004236
176114

000004

TST6:

000004

RN R

R RN E AR AN RN

SEQ (033

RANRARRA RN

R RN RO

TEST ABILITY TO ACCESS RBUF

SCOPE
MOV
MoV

a4 ,R3
AR
LA

B8R

TST

ARl

iRttt

:SAVE TIMEQUT VECTOR
;SET UP TIMEOUT VECTOR

aRBUF

;ACCESS RBUF

;BR TO END OF

TEST

1$:

CMP

(SP)+,(SP)+

;RESTORE

2%:

ERROR
MOV

7
R3,a#4

;CAN NOT ACCESS RBUF
;RESTORE TIMEOUT VECTOR

SP AFTER

TIMEOUT

ntld)

MACY1? 30A(1052)
-MAIN.
19-APR-78
19-APR-78 11:41
czoLoc P11
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505

N 144
T6

PAGE

MRS A

34
TEST ABILITY

S*TEST 7
MR

004246
004250
004256
004260
004262
004270
004272
004276
004300
004302
004304
004304
004310
004312

000004
032777
001545
000005
032777
001411
005737
001002

004737
000011
000000

013170

004314
004322
004330

052777
032777
001001

000001
000001

004332

104012

004334
004342
004350
004352
004356
004360
004362
004364
004364
004370
004372

042777
032777
001411
005737
001002

004737
000013
000000

01317¢

004374
004402
004404
004412
804414
004422

052777
000005
032777
001467
042777

000001

000400

174562

0000G1

176062

1S17:

002336

104011

000404

1%:

2%:

000001

176030
176022

176010
176002

104014

3%:

43:

002336

104013
000404

5%:

SRR

000001

175740

000001

175730

RARA

ARt RSttt
slng]]

THAT BITO(BREAK BIT)

SCOPE
BIT
BEQ
RESET
BIT
BEQ
TST
BNE
ERROR
BR

SEQ 0034

TO ACCESS RBUF

AR AR

TEST

ROl

#BIT8,aSWR
ST

#BITO,aTCSR

CTSTFL
18
1"

CAN BE

Rialits

SET & CLEARED & RESET

lislits)]

2 1S BREAK FUNCTION ENABLED?
sBR TO NEXT TEST, IF NOT
;CLEAR EVERYTHING

;CHECK BITO OF TCSR CLEAR
sBR IF CLEAR

;BITO WAS NOT CLEAR AFTER RESET
;sONLY REPORT A FATAL ERROR
;s THE ERROR NUMBER (FROM APT LIST)

JSR
1"
HALT

PC.SATY4

BIS
BIT
BNE

#BITO,aTCSR
#BITO,aTCSR
43

;SET BITO IN T(SR
;TEST BITO OF TCSR

ERROR

;BITO OF TCSR WILL NOT SET

8IC

#BIT0,3TCSR
#BITO,aTCSR

;CLEAR BITO OF TCSR
;TEST BITO OF T(CSR

BIT

BEQ
TST
BNE
ERROR
BR
JSR

175750

SET

;BITO OF TCSR WILL NOT CLEAR
PC,SATYS

6s:

HALT

7%:

BIS

#BIT0,aTCSR

BIT
BEQ
8IC
ERROR

#BITO0,3TCSR
ST
#B1T0,a8TCSR
14

RESET

;BR

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

;SET BITO IN TCSR
;CLEAR BITO WITH RESET
;TEST BITO CLEAR
;BR IF CLEAR
;CLEAR BITO, TO PRINT ERROR
;RESET DID NOT CLEAR BITO OF T(CSR

MACY11 30A(1052)
-MAIN.
19-APR-78
czoLnc P
19-APR-78 11:41

11:44
17

PAGE

TEST THAT BITO(BREAK BIT)

TRTEST 10
AL

004424
006426
004430
004436

000004
000005
032777
001411

004440
0046444
006446
004450

005737
001002
104015
000404

002336

004452
004452
004456
004460

004737
000015
000000

013170

004462
004470
004476

052777
032777

000004
000004

004500

104016

004502
004510
004516

042777
032777
001411

000004
000004

004520
004524
004526
004530
004532
004532
004536
004540

005737
001002
104017
000404

002336

004737
000017
000000

013170

004542
004550
004552
004560

052777
000005
032777
001461

000004

175602

000004

175572

004562
004570

042777

000004

175562

001001

104020

TST10:

000004

175714

AR RSl

TEST

ARt

il iaiiitiiolitildisistsssn])

THAT BIT2(MAINT.

175642
175634

CAN BE

SET & RESET

sCLEAR EVERYTHING

;TEST FOR BIT2 OF TCSR CLEAR
;BR IF CLEAR

TST
BNE
ERROR
BR

CTSTFL
1%
15

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

JSR

PC.SATY4

#BIT2,aTCSR

1%:

175662
175654

BIT)

AR ARl ARttt
dsd]

SCOPE

RESET
BIT
BEQ

CAN BE SET & CLEARED & RESET

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

2%:

HALT

3s:

BIS
BIT
BNE

#BIT2,aTCSR
#B1T2,3TCSR
43

;SET BIT2 OF TCSR
;TEST FOR BIT2 SET
;BR IF SET

ERROR

;BIT2 OF TCSR WILL NOT SET

BIC
BIT
BEQ

#BIT2,3TCSR
#BIT2,QTCSR
’$

;CLEAR BIT2 OF TCSR
:TEST BIT2 CLEAR
sBR IF CLEAR

TST
BNE
ERROR
BR

CTSTFL

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

5%:

JSR
17

6$:

HALT

7%:

BIS
RESET
BIT
BEQ

BIC
ERROR

17
7$

PC.SATY4

;;ONLY REPORT A FATAL ERROR
;. THE ERROR NUMBER (fROM APT LIST)
;BITO OF TCSR WILL NOT CLFAR

#B1T2,3TCSR

;SET BIT2 OF T(SR
;CLEAR BIT2 WITH RESET
;TEST FOR BIT2 CLEAR

#BIT2,aTCSR

TST12

;IF CLEAR, GO TO NEXT TEST

#BITc,aTCSR

;CLEAR BIT2, TO PRINT ERROR

;RESET

DID NOT

CLEAR BIT2 OF

TCSR

SEQ 0035

JMAIN.
MACY11 30A(1052)
19-APR-78
C20LDC.P11
19-APR-78 11:41

11:44
PAGE 36
710
TEST THAT BIT2(MAINT.

1563
1564

BIT)

CAN BE

SEQ 0036

SET & RESET

1565

;:tttttttttttttt"'t'tttttttt'ittt'tttttttttttittttttt'ttttfittttt

1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576

004572
004574
004576
004602
004610
004614
004616
004624
004626

000004
000005
017703
012777
004737
000340
032777
001404
104021

;2;3

004630

000402

;*TEST N
TEST THAY BITO6(XMIT INT EN) CAN BE SET & RESET
;;'tttttitttttttttttt"ttttttt'tttttitttttttttttttttttttttttttttt
TST11:
SCOPE
RESET
;CLEAR EVERYTHING
MOV
8TVECT,R3
:SAVE XMIT VECTOR
MOV
#18,3TVECT
;SET UP INTERRUPT VECTOR FOR ERROR REPORT
JSR
PC,WRPSW
:SET PSW TO PRIORITY=7
.WORD
340
BIT
#BIT6,3TCSR
:TEST BIT6 OF TCSR
BEQ
28
:BR IF ZERO
ERROR
21
:BIT6 IN TCSR NOT CLEAR AFTER RESET

1580
1581
}23%

004632
004634

022626
104022

1584

004636

052777

1588

004654

104023

1591
1592
1593
1594

004656
004664
004672
004674

042777
032777
001401
1064024

000100
000100

1597
1598
1599
}ggg

004676
004704
004706
004714

052777
000005
032777
001401

000100

175446

000100

175436

1602
1603
1604

004716

104025

004720

010377

1577

1585
}ggg

}ggg

004644
004652

032777
001001

175560
004632
012242

175552

000100

175526

1%:

000100
000100

175436

175506
175500

175466
175460

2%:

3$:

4$:

5%:

CMe
ERROR

(SP)+,(SP)+
22

BIS

#BIT6,3TCSR

ERROR

BIC
BIT
BEQ
ERROR

¥ 1T6,3TCSR
#B1T6,3TCSR
48
24

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

BIS
RESET
BIT
BEQ

#BIT6,3TCSR

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

ERROR

MoV

R3,aTVECT

BIT
BNE

#BIT6,aTCSR
3s

#BIT6.aTCSR
5%

;RESTORE
;XMIT

SP AFTER

INTERRUPT

INTERRUPT OCCURRED

;SET BIT6 OF

:TEST BIT6 OF
;BR, IF SET

PRIO=7

TCSR

; CANNOT SET BIT6é OF TCSR

:CANNOT CLEAR BIT6 OF TCSR

;CANNOT CLEAR BIT6 OF
RESTORE XMIT VECTOR

TCSR WITH RESET

LMAIN.
MACY11 30A(1052)
19-APR-78
CZoLDC.P1M
19-APR-78 11:41

11:44
TM

1605
1606

PAGE 37
TEST THAT BIT6(XMIT

3
INT EN)

CAN BE

SEQ 0037

SET & RESET

1607

;‘-tttttttttt't'ttttt"ttttttt't't't't"t"tttttttttt'ttt"ttttttt

1608

S*TEST 12

1609

1610
1611
1612

004724
004726
004730

000004
000005
017703

1614
1615
1616
1617
1618
1619

004742
004746
004750
004756
004760

004737
000340
032777
001404
104026

}25?

004762

000402

1622
1623
lggg

004764
004766

022626
104027

1626
1627

004770
004776

052777
032777

1630
}g%}

005006

104030

1633
1634
}ggg

005010
005016
005024

042777
032777
001401

1637

005026

104031

1640

005030

052777

1613

}ggg

}ggg
1641
1642

}222

004734

005004

005036
005040

012777

001001

000005
032777

005046

001401

1645

005050

104032

1647

005052

010377

1646

TEST THAT BIT6 OF

RCSR CAN BE SET & RESET

.-;tttttttttttt'titt'ttttttQtttttttttt'ttttttttttt'tttttt'tttttttt

TST12:
175422

004764

175414

000100

175370

012242

MOV
JSR

1%:

000100
000100

175350
175342

175330
175322

000100

175310

000100

175300

SCOPE
RESET
MOV

2%:

4$:

5%:

#1838 ,3RVECT

BIT
BEQ
ERROR

PC,WRPSW
.WORD
340
#BIT6,3RCSR
23
26

B8R

Cmp
ERROR

(SP)+,(SP)+
27

BIS
BIT

#BIT6,8RCSR
#B1T6,3RCSR

ERROR

BIC
BIT
BEQ

#BIT6,3RCSR
#B8176,3RCSR
43

ERROR

BIS

#BI1T6,aRCSR

BEQ

#BIT6,8RCSR
5$

ERROR

MoV

R3,aRVEC(CT

BNE

3$:

aRVECT,R3

RESET
BIT

:CLEAR EVERYTHING
;SAVE RECEIVE VECTOR

;SET UP INTERRUPT VECTOR FOR ERROR REPORT
;SET PSW TO PRIORITY=7
:TEST BIT6 OF

RCSR

:BIT6 OF

RCSR NOT

CLEAR AFTER RESET

:RESTORE

SP AFTER

INTERRUPT

;RCVR

INTERRUPT WITH PRIORITY=7

;SET BIT6 OF RCSR
;TEST BIT6 OF RCSR

;BR,

SET

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

:CANNOT CLEAR BIT6 OF RCSR
;SET BIT6 OF RCSR

;CLEAR BIT60F
;TEST BIT6 OF

;BR,

CLEAR

RCSR WITH RESET
RCSR

; CANNOT CLEAR BIT6 OF

RCSR WITH RESET

JRESTORE RECEIVE VECTOR

MACY11 30A(1052)
19-APR-78
19-APR-78 11:41
czoLoC.P11
MAIN.

1649
1650
1651
1652
1653
1654

1655
1656

1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704

005056

012737

000012

n3
11:44
PAGE 38
712
TEST THAY BIT6 OF RCSR CAN BE SET & RESET

001002

TCLOCK:

#12,8TSTNM

MOV

SEQ 0038

sADJUST TEST NUMBER TO (NEXT TEST - 1)

R A0SRl
Rl lalliiiiiiiiiiiiiiiiisitilizisiitiitzsiszsats

;«TEST 13

005064
005066
005072
005074
005102

005104
005110
005116
005122

000004
005737
001420
032777
001014
013703
012737
005777
000402

005124
005126

022626
104010

005130

010337

TST13:

002336
000100

173736

000004
005124
175264

000004

MR
0

005134
005136
005142
005144
005152
005154
005156
005162
005170
005174
005176
005204
005206

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

005210

000402

005212
005214

022626

005216
005224
005232

052777
032777
001001

005234

104035

TST14:

002336
000100

173666

175226
005212
012242

175220

000100

175202

1%:

000100
000100

005236
005244
005252
005254

042777
032777
001401

000100
000100

005256

052777

000100

2%:

3s:

104036

175122

48:

tsssls]

sRESTORE SP AFTER TIMEOUT
;CAN NOT ACCESS LKS

[[0}

R3,a#4

sRESTORE TIMEOUT VECTOR

CTSTFL
TST14
#BIT6,aSWR
TST14
ar4 ,R3
s, an
aLKS$

dldladlRl

TEST
A

SCOPE

TST
BEQ
8IT
BNE
RESET

idillidiiillz

THAT BIT6 OF

ARl

CTSTFL
TST15

#BIT6,3SWR

TST15

LKS

ittt

CAN BE

stz

22232822

23222}

SET & RESET

itiiidilitsl

ititissisissslny]

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

MoV
Mov

8RTCVT ,R3

#18 ,8RTCVT
PC,WRPSW

:SAVE LINE CLOCK VECTOR
sSET UP INTERRUPT VECTOR FOR ERROR REPORT
;SET PSW TO PRIORITY 7

8IT
BEQ
ERROR

#BIT6,aLKS

;TEST BIT6é OF LKS

CMP
ERROR

(SP)+,(SP)+

JSR

104034

ERROR

SRRt

AL AR

(SP)+,(SP)+
10

J*TEST 14
PR

TO ACCESS LKS

ARl

CmMP

ARAE

;IS CONSOLE UNDER TEST?
;IF NOT, SKIP THIS TEST
SARE LINE CLOCK TESTS INHIBITED?
;IF YES, SKIP THIS TEST
;SAVE TIMEOUT VECTOR
;SET UP TIMEOUT VECTOR
sACCESS LKS
sNO TIMEOUT - BR TO END OF TEST

TST
8EQ
BIT
BNE
MoV
[[0]
TST
B8R

2$:
o’

SCOPE

1$:

000004

TEST ABILITY

BIS
BIT
BNE

.WORD

340

23
33

#BIT6,8LKS
#B1T6,8LKS

ERROR

BIC

#3176,8LKS
#BIT6,aLKS
48

BIT
BEQ
ERROR

BIS

#B1T6,3LKS

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

sLKS INTERRUPT WITH PRIORITY=7

;SET BIT6 OF LKS
;TEST BITé6 OF LKS
;BR [F SET
; CANNOT SET BIT6 OF LKS
;CLEAR BIT6 OF LKS
;TEST BIT6 OF LK
: CANNOT CLEAR BIT6 OF LKS
;5ET BIT6 OF LKS

-MAIN,
MACY11 30A(1052)
19-APR-78
czoLopc.P1
19-APR-78 11:41

1705
1706
1707
1708
1709
1710
1711

005264

005274

000005
032777
001401

005276

104037

005300

010377

005266

000100

175104

11:44
PAGE 39
T14
TEST THAT BIT6é OF LKS CAN BE

175112

5%:

RESET
BIT
BEQ

#BIT6,aLKS

ERROR

Mov

R3,aRTCVT

SET & RESET

;CLEAR BIT6é OF LKS WITH RESET
;TEST BIT6 OF LKS
;BR IF CLEAR
: CANNOT CLEAR BIT6 OF LKS WITH RESET
;RESTORE LINE CLOCK VECTOR

SEQ 0039

b
nno POPIPIN)
cd eed e cd o =
[V, W
=2 OV
~NO- NS W [a¥]

D
)
)
o
i
)
il
il
)
—
-

~~d NNNNNNNNYVN ~J

MACY11 30A(1052)
19-APR-78
RAIN,
19-APR-78 11:41
czoLoc L1

1726
1727
1728
1729
1730
1731
1732
1733
1734
1/35
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751

11:46
PAGE 40
114
TEST

8
THAT BIT6 OF

LKS CAN BE

SET & RESET

SEQ 0040

JrsavntRRRtttetttR
R RROCRORRRACOORCRORNGROROERORROOEROARORRRNRRRARNRORRORRRORRORTRNTOY

TRTEST 15

TEST

FOR DUAL

ADDRESSING OF

REGISTERS

ot ntttettRRROARRRRRLRRRRORORRORRRACORNRRRARNRNRRACRORAQORARNROIQRONANCOOETS

00530¢
005306
005312
005316
005324
005332
005334
005340
005346
005350
005356
005360
005366
005374
005400
005406
005410
005414
005422
005430
005436
005440
005446
005450
005452
005454
005456
005460

000004
013703
013704
012737
012737
000005
012700
032777
001404
013737
000403
013737
013737
040037
023737
001002
050037
017737
052777
032777
001011
013777
000401
022626
006300

005462

104040

000004
000006

iSTlS:

005450
000340

00000¢
000006

000007
000020

173472

002406

001020

002346
00102¢
001022
001020

001020
001022

001022

BIT
BEQ

mov
BR
Mov
Mov
BIC

001022

173402
000100

000100

001024
173372
173362

001024

173354

3s:

CMP
BNE
BIS
Mov
BIS

BiT
BNE

MOV

48:

5%:

105700
100343
000401

ZCOPE

MoV
MoV
MOV
MoV
RESET
Mov

6%:

BR
cmMp

ASL
TSTB
BPL

a4 ,R3
886 R4

48,304

#340,3#6
#B171,RO
#BI1T4,aSWR
1%
LKS,$GDADR

RCSR,$GDADR
$GDADR,$BDADR
RO,$BDADR
$GDADR,$BDADR

R0,$BDADR
8$BDADR ,$GDDAT

#B81T16,38BDADR

ngTb.BSGDADR

$GDDAT,a$BDADR

(SP)+,(SP)+
RO
RO

2%
79

ERROR

:SAVE TIMEOUT VECTOR
:SAVE TIMEOUT PSW
;SET UP TIMEOUT VECTOR

;KEEP PRIO=7
:CLEAR EVERYTHING
JSET UP BIT MASK

;CLOCK TEST ONLY?
;BR IF NOT

JELSE, MOVE GOOD LKS ADDRESS INTO $GDADR

:MOVE GOOD RCSR ADDRESS INTO SGDADR
;MOVE GOOD ADDRESS INTO TEST ADDRESS LOCATION
sCREATE BAD ADDRESS BY COMPLEMENTING ONE BIT
sARE ADDRESSES IDENTICAL?
;1F NOT, TEST THIS ADDRESS
;ELSE, BIT SET THIS BIT POSITION TO GENERATE BAD ADDRESS
:SAVE CONTENTS OF BAD ADDRESS IF IT EXISTS
;SET BIT6 USING BAD ADDRESS
sCHECK TO SEE IF CJ0D ADDRESS CONTAINS BIT6
;BR IF SET -==> ERROR
JRESTORE ANY MEMORY LOCATION THAT WAS ALTERED
;BR TO CONTINUE TEST
;RESTORE SP AFTER TIMEOUT
;SHIFT BIT MASK TO NEXT POSITION
; COMPLEMENTED ALL BITS FROM 1 - 7?
;BR, IF NOT.
;BR TO NEXT TEST
;DUAL ADDR.SSING ERROR
:$BDADR = DUAL ADDRESS

:$GDADR = GOOD ADDRESS
005464
005470

010337
010437

000004
000006

7%:

MoV
Mov

R3,a¥4
R4 ,36

;RESTORE TIMEOUT VECTOR
;RESTORE TIMEOUT PSW

LMAIN.

MACY1T

CcZ0LDC.P1Y

30A(1052)

19-APR-78

19-APR-78 11:41

11:44

1752
1753
1754
1755

SEQ 0041

TEST FOR DUAL ADDRESSING OF REGISTERS

MRS AR AR SRR
ARl Rttt
0t R
2R
;*TEST 16
TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED

1?56

1757
1758
1759
1760
1761
1762
1763
};22

005474
005476
005502
005504
005512
005514
005516
005522

000004
005737
001437
032777
001033
000005
105777
100401

};g?

005524

104041

"768
1769
1770
1771
1772
;;;2

005526
005534
005542
005544
005552
005560

042777
072777
001410
042777
032777
001401

};;g

005562

104042

1777
1778
1779
1780

005564
005566
005572
005574

005000
105777
100403
005200

1783
1784

005600

};g;

T15

PAGE 41

005576

AAAAR AR AR AR

ARl

iRt

222202022021 ]

SCOPE
TST
BEQ
BIT
BNE
RESET
TSTB
BMI

aLKS
2%

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

ERROR

;BIT7 OF LKS DID NOT SET WITH RESeT

BIC
BIT
BEQ
BIC
BIT
CEQ

#BIT7,3LKS
#BIT7,aLKS
33
#B177,aLKS
#BIT7,aLKS
3%

;CLEAR BIT7 OF LKS
;TEST BIT7 OF LKS

ERROR

;CAN NOT CLEAR BIT? OF LKS

RO
aLkKS

001373

CLR
TSTB
BMI
INC

BNE

TST17
RO
CONT

;CLEAR TIMER
;TEST FOR BIT7 OF
:BR, IF SET
; INCREMENT TIMER

104043

ERROR

002336
000100

TST16:

21 2]

'
173326

174664

1$:

000200
000200

174652
174644

000200
000200

174634
174626

174614

28%:

3s:
CONT:

CTSTFL
TST17
#BIT6,aSWR
TST17

;IS CONSOLE UNDER TEST?
;IF NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INHIBITED?
sIF YES, SKIP THIS TEST

:TRY ONE MORE TIME BECAUSE THE CLOCK
:
MAY HAVE SET IMMEDIATELY AFTER THE FIRST CLEAR

LKS

:CONTINUE UNTIL TIME EXPIRES
;BIT7 OF

LKS DOES NOT SET

MACY11 30A(1052)
MAIN,
19-APR-78
czoLoc P11
19-APR-78 11:41

1785
1786
1787
1788
1789
1790
17N
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805

1N 144

PAGE 42
116
TEST THAT BIT7 OF

ALl

TRTEST 17
N

005602
005604
005610
005612
005620
005622
005626
005630
005634
005640
005646
005654
005662
005670
005674
005676
005700

000004
005737
001503
032777
001077
004737
000340
017703
017704
012777
012777
042777
052777
105777
100375
000240
000402

005702
005704

022626

005706
005712

005077
012777
004737
000240
105777

005720
005724

100375
000240
000402

005740
005742

022626
104045

005744
005752
005760
005766
005772
002774

012777
042777
052777
105777
100375
000240

005776

104046

006000
006002
006010

022626
042777
010377
010477

1$:

2s:
174474

005740
012242

174470

3s:

20$:

48 :

1744614

000700
174574
174372

BIS
TSTB
BPL
NOP
BR

174436
174426
174420

174376

5$:
6$:

7$:

LKS SETS & CAN BE

THAT

AR AR

SEQ 0042

CLEARE.

ld 2223202222222
3222222 X8

THE
A

CTSTFL
1ST20
#B176,aSWR
15120
PC,WRPSY

.WORD
340
SRTCVT,R3
SRTCPSW,
R4

#2%,aRTCVT
#340,3RTCPSW
#BIT7,aLKS
#8176,aLKS
aLKS
1%

REAL
AR

TIME

CLOCK

INTERRUPTS PROPERLY

RRdRRRR

]

;1S CONSOLE UNDER TEST?
;1F NOT, SKIP THIS TEST
ARE LINE CLOCK TESTS INHIBITED?
;IF YES, SKIP THIS TEST
;SET PSW TO PRIORITY 7

;SAVE LINE CLOCK VECTOR
:SAVE LINE CLOCK PSW VECTOR
;SET RTC INTERRUPT VECTOR TO ERROR REPORT
;KEEP PRIORITY AT 7
;CLEAR CLOCK DONE FLAG
;SET INTERRUPT ENABLE
SWAIT FOR RTC DONE (INTERRUPT REQUEST)

;GIVE TIME FOR ANY INTERRUPTS
:BR, IF NO INTERRUPT QCCURS

(MP

(SP)+,(SP)+
44

JRESTQRE SP AFTER INTERRUPT
;RTC INTERRUPTS AT PRIORITY 7

CLR

aLKS
;DISABLE RTC INTERRUPTS & CLEAR DONE
#48 ,@RTCVT
;SET RTC INTERRUPT VECTOR FOR ERROR
PC,WRPSW
;CHANGE PSW TO PRIORITY §

ERROR

MOV

JSR

174454

006000
000200
000100

TST

MOV
MOV
Mov
Mov
BIC

174542
174536

174524
174516

SCOPE

BNE
JSR

012242
174554
174552
005702
000340
000200
000100
174512

BEQ
BIT

173220

104044

nN05726
005732
005734
005736

006014

TST17:

002336
000100

AAAAL AR

TEST

.WORD

240

(INTERRUPT REQUEST)

TSTB
BPL
NOP
BR

alLKS

CmMpP

(SP)+,(SP)+
45

sRESTORE

#78 ,8RTCVT
#BI1T7,aLKS
#BIT6,aLKS
aLKS
6%

;POINT RTC VECTOR TO END OF
;CLEAR CLOCK DONE FLAG
sALLOW INTERRUPTS

ERROR

JRTC INTERRUPT DID NOT OCCUR

CMP
BIC

(SP)+,(SP)+
#BIT6,aLKS

;RESTORE
;DISABLE
;RESTORE
;RESTORE

ERROR

MOV

BIC
BIS

TSTB

B8PL
NOP

Mov
Mov

20%
5%

R3,aRTCVT
R4,aRTCPSW

;WAIT FOR DONE

;sGIVE TIME FOR ANY INTERRUPT
sIF NO INTERRUPT - BR TO CONTINUE
;RTC

;WAIT

SP AFTER

TEST

INTERRUPT

INTERRUPTS WITH INTERRUPTS DISABLED

FOR RTC

TEST

DONE

;GIVE TIME FOR INTERRUPT

SP AFTER INTERRUPT
INTERRUPTS
LINE CLOCK VECTOR
LINE CLOCK PSW VECTOR

CJMAIN.
MACY1T 30A(1052)
19-APR-78
¢ZoLoC.P1
19-APR-78 11:41

4
E
11:44
PAGE 43
117
TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY

1837
1838
1839

1840

1841

s*TEST 20

1842

1843
1844
1845
1846
1847
1848
1349
1850
1851
1852
1853
1854
1855
1856
1857
1858
}gzg

006020
006022
006026
006030
006036
006040
006042
006046
006052
006060
006066
006072
006074
006102
006110
006114
006116

000004
005737
001457
032777
001053
000005
017703
017704
012777
012777
004737
000240
042777
052777
105777
100375
000240

}gg}

006120

104047

1863
1864
1865
1866
1867
}ggg

006122
006124
006132
006136
006140
006142

022626
012777
004737
000240
000240
000402

1870
1871
}g;g

006144
006146

022626
104050

1874
1875
1876

006150
006156
006162

042777
010377
010477

002336
000160

174342
174340
006122
000340
012242
000200
000100
174272

006144
012242

000100
174226
174224

TST20:

SCOPE
ST
BEQ
BIT
BNE
RESET
Mov
mov
Mov
Mov
JSR

173002

174330
174324
174304
174276

174256

174230

1%:

2%:

8IC
BIS
7STB
BPL
NOP

TEST RTC FOR DOUBLE
A

R R

CYSTFL
TST21
#BIT6,aSWR
TST21
SRTCVT ,R3
SRTCPSW, R4
#28 ,ARTCVY
#340,8RTCPSW
PC,WRPSW
.WORD
240
#BIT7,aLKS
#BIT6,aLKS
aLKS
1%

AN R R R

INTERRUPTS

R R R RN R

R R

A RN R AR R AN R R

SEQ 0043

R
RN

Rt
N R RO

;1S CONSOLE UNDER TEST?
:IF NOT, SKIP THIS TEST
sARE LINE CLOCK TESTS INHIBITED?
sIF YES, SKIP THIS TEST
s CLEAR EVERYTHING
;SAVE LINE CLOCK VECTOR
sSAVE LINE CLOCK PSW VECTOR
sSET UP RTC INTERRUPT VECTOR
;DISALLOW INTERRUPTS AFTER THE INTERRUPT
;SET PRIORITY TO 5
sCLEAR CLOCK DONE FLAG
;ENABLE CLOCK :NTERRUPTS
;WAIT FOR DONE
;GIVE

TIME

FOR ANY

INTERRUPT

ERROR

;RTC

INTERRUPT DID NOT OCCUR

CMP
MOV
JSR

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

sRESTORE SP AFTER INTERRUPT
;POINT RTC VECTOR TO ERROR REPORT
;SET PSW TO PRIORITY 5

NOP
BR

;GIVE SOME TIME FOR AN INTERRUPT
;NO INTERRUPT - BR TO END OF TEST

3$:

(mP
ERROR

(SP)+,(SP)+
50

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

4$:

BIC
MOV
Mov

#BIT6,aLKS
R3,aRTCVY
R4,3RTCPSW

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

CLEAR

MAIN,
MACY11 30A(1052)
19-APR-78
19-APR~78 11:41
c2oLoc P11

1877
1878
1879
1880
1881
188¢
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892

1893
1894
1895
1896
1897
1898

1899
1900
1901
1902
1903
1904
1905

11:44

120

006766

006170
006174

TEST RTC FOR DOUBLE

AAASAARSARAAR AR

TeTEST 21

000004

005737
001442

006176
032777
006204
001036
006206
004737
006212
000340
006214
017703
006220
012777
006226
042777
006234, 052777
006242105777
006246
N0375
006250
0ODA05
006252
004737
006256
000240
006260
000240
006262
042777
006270
000402
006272
006274

022626
104051

006276

010377

000100

172634

174162
174152
174144

1%:

MoV
MoV
BIC
BIS

1ST8
BPL
RESET
JSR
NOP

174116

2$:
176106

TST

BNE
JSR

012242
000100

SCOPE

3%:

SEQ 0044

INTERRUPTS

AR Rl
illlii i
020020

TEST
RS

BEQ
BIY

012242
174170
006272
000200
000100
174140

AAALAAR

TST21:

002336

PAGE 44

THAT RTC

INTERRUPT CLEARS WITH RESET

ARl ARl
R
200220002

CTSTFL
TST22
#BIT6,aSWR
TST22

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

.WORD
340
aRTCVT,R3

sSAVE LINE CLOCK VECTOR

PC,URPSW

#2%,aRTCVT
#BIT7,aLKS
#BIT6,3LKS
aLKS
1%
PC,WRPSW

.WORD

240

BIC
BR

#B1T6,aLKS

CMP

;SET PRIORITY TO 7
;POINT

RTC

VECTOR

TO ERROR REPORT

sCLEAR CLOCK DONE FLAG
;ENABLE CLOCK INTERRUPTS
;WAIT

FOR DONE

(INTERRUPT REQUEST)

;CLEAR PENDING INTERRUPT WITH RESET
;SET PRIORITY TO 5
;GIVE TIME FOR ANY INTERRUPT
;DISALLOW INTERRUPTS
;BR TO END OF TEST

(SP)+,(SP)+

ERROR

;RESTORE SP AFTER INTERRUPT
;RESET DID NOT CLEAR INTERRUPT

MOV

R3,aRTCVT

;RESTORE LINE CLOCK VECTOR

JMAIN.,
MACY1T 30A(1052)
19-APR-78
CZ0LDC.PN
19-APR-78 11:41

11:44
121

1906
1907

PAGE 45
TEST

1908

1909

J*TEST 22

1910

006302
006304

000004
005737

1914
1915
1916
1917
1918
1919
1920
1921
1922

006312
006320
006322
006326
006330
006334
006342
006350
006356

032777
001043
004737
000340
017703
012777
042777
052777
105777

006310

001447

1923
1924
1925
1926
1927
1928
1929
1930
1931
1932

006362
006364
006372
006376
006400
006402
006410

100375
042777
004737
000240
000240
042777
000402

006412

022626

1935
1936
1937

006416
006422
006426

010377
004737
000340

}3%2

R R N R

DI EE R

1911
1912

1913

006414

TST22:

002336
000100

BEQ

172520

BIT
BNE
JSR

012242
174054
006412
000200
000100
174024

174046
174036
174030

000200
012242

174014

000100

173776

1%:

173766
012242

MOV
MOV
BIC
BIS
TSTB
BP.
BIC
JSR
NOP
BIC
BR

2$:

104052

SCOPE
TST

3%:

o, 14

6
THAT RTC

INTERRUPT

R R R R R A N O N R R R

TEST

R R R

THAT RTC
R

#B176,8SWR
TS122
PC,WRPSW
.WORD
340
aRTCVT,R3
#28,3RTCVT
#BIT7,8LKS
#BIT6,aLKS
abtK$

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

R NN R

R RN AN R

RN TN

INTERRUPT CLEARS BY CLEARING BIT? OF

R R R A N RN

CISTFL

1ST123

R R

SEQ 0045

CLEARS WITH RESET

R AN A AN R RN RN

AR AR AR AN

AR RN

LKS

;1S CONSOLE UNDER TEST?

;1F NOT,

SKIP THIS TEST

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

JSAVE LINE CLOCK VECTOR
JPOINT RTC VECTOR TO ERROR REPORT
;CLEAR CLOCK DONE FLAG
;ENABLE CLOCK INTERRUPTS
JWALIT FOR DONE (INTERRUPT REQUEST)
;CLEAR DONE & INTERRUPT
JALLOW INTERRUPTS

#BIT6,aLKS
3%

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

ERROR

(SP)+,(SP)+

JRESTORE

SP AFTER

INTERRUPT

MOV
JSR
.WORD

RY,3RTCVT
PC,WRPSW
340

JRESTORE
JRESTORE

LINE CLOCK VECTOR
PRIORITY 10 7

;CLEARING BIT7 OF LKS DID NOT CLEAR INTERRUPT

LMAIN.
MACY11 30A(1052)
19-APR-78
CZ0LoC.PNM
19-APR-78 11:41

11:44
PAGE 46
122
TEST

H
THAT

RTC

INTERRUPT

CLEARS BY CLEARING BIT? OF

SEQ 0C46

LKS

1938
1939
1940

1941

J+TEST

1942

1943
1944
1945
1946
1947

006430
006432
006436
006440
006446

000004
005737
001462
032777
001056

1950
1951
1952

006456
006460
006464

}gzg

1953
1954

006450

006466
006472

000100

172372

042777

000100

"73730

005000
012701
005002

177777

005077
105777

2%:

173702
173676

3s:

100375
005077
105777
100003
005202
005077
005200
001370
005201
001003
010237
000753
013701
160201
100001
005401
020127

1974

006556

010237

006602

1977
1978

006564
006572

032777
001404

000020

1981

006600

}3;2

}3;8

1982

006562

006574

006602

003403
104053

000137
000000

000000

173666

SCOPE
TST

006600

(MPARE:

000001

TOLER:

5%:

012102
SECND:

R R RN

AN R R RN NN RN NN

R TR R

R A R

RN R R R R

R R RN R R R RN R

RO RNY

R RN R AR

RN RN

RO
#-1,R1
R?
alKS
alKS
2%
aLKS
aLkKS
43
R2

JCLEAR A TIMER
JSET A FLAG INDICATING FIRST PASS
JCLEAR CLOCK COUNTER

INC

MOV
BR
MOV
sSuB

R2,FIRST
1%
FIRST R
R2.R1

BLE

CLR
INC
BNE

BPL
NEG
(CMP

#B176,aLKS

alKS
RO
is

CMPARE

TOLER
R1
R1.81

;DISALLOW INTERRUPTS

;CLEAR DONE
;IS CLOCK DONE?
;BR IF NOT , TO INCREMENT TIMER
;1F DONE, INCREMENT CLOCK COUNT
;CLEAR DONE
;INCREMENT TIMER
;BR IF TIME REMAINS
s 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
10 POSITIVE,SKIP NEGATION OF DIFFERENCE
JMAKE DIFFERENCE A POSITIVE NUMBER
;COMPARE DIFFERENCE WITH DESIRED TOLERANCE

;BR,

;CLOCK REPEATABILITY ERROR

BIT
BEQ

#BITL,aSWR
TST124

;CLOCK TESTS ONLY?
;BR I1F NOT

.WORD

JELSE,

SECOND

TO TOLERANCE

.WORD

;STORE

LOWER/EQUAL

R2,SECND

$EOP

THRU THIS LOOP

;CLEAR DONE
;SYNC ON DONE

MOV

JMP

FIRST:

A RN

CLR
MOV
CLR
CLR
TSTB
BPL
CLR
TSTB
8PL
INC

ERROR
172246

CLOCK REPEATABILITY

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

BNE

006600

TEST

CISTFL
TST24
#B176,aSWR
TST24

BNE
BIC

1%:

BEQ
BIT

173714
173710

006476
006500
006504
006510
006512
006514
006520
006522
006524
006526
006530
006534
006536
006542
006544
006546
006550

006554

TST23:

002336

1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971

;g;g

COUNT

JUMP TO END OF

PASS ROUTINE

MACY11 30A(1052)
MAIN.
19~APR-78
CZ0LDC.P11T
19-APR-78 11:41
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003

2004

2005
2006
2007
2008
2009
2010

l
11 :44
PAGE 47
123
TEST CLOCK REPEATABILITY

AAA AR

AR AR

AR AASA

TST24:

SCOPE
BIC

J*TEST 24
006604
006606
006614
006620
006626

006632
006634
006640
006642

000004
042777
017703
012777

105777
100375
004737
000140
000402

006644
006646

022626

006650
006656
006664

012777
052777
000240

006666

104055

006670
006676
006700

042777
022626
010377

000100
173542
006644

173520

173536
173534

1%:

012242

10405¢4

006670
000100

173504
173466

TEST

THAT

ARl

XMIT
d

173456

173454

dRtRdRi

ittt

idls]])

INTERRUPTS ONLY WHEN ENABLED

idl

g0 dE]

;CLEAR TRANSMIT INTERRUPT ENABLE
:SAVE XMIT VECTOR
;POINT XMIT VECTOR TO ERROR REPORT
JWAIT FOR DONE

(SP)+,(SP)+

;RESTORE SP AFTER INTERRUPT

8IS

#48 ,QTVECT
#BIT6,3TCSR

;XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR
;SET XMIT VECTOR TO END OF TEST
;ENABLE INTERRUPTS

ERROR

;XMIT DID NOT INTERRUPT

BIC
CMP

#BIT6,aTCSR
(SP)+,(SP)+

;DISABLE INTERRUPTS
sRESTORE SP AFTER INTERRUPT
;RESTORE XMIT VECTOR

Mov
Mov

TSTB
8PL
JSR
BR

.WORD
3

2$:

CMP
ERROR

3%:

MOV

#BIT6,8TCSR
@TVECT,R3
#28 ,@TVECT
8TCSR
1%
PC,WRPSW

140

NOP

000100

SEQ 0047

MOV

R3,a8TVE(CT

;SET PSW TO PRIORITY 3

MACY11 30A(1052)
19-APR-78
CZDLDC.PI
19-APR-78 11.41
MAIN,

2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
207
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040

11:44
PAGE 48
TEST
T24

TeTEST 25
AL

006704
006706
006714
006720
006722
006726
006734
006740
006742
006750
006752

000004
042777
004737
000340
017703
012777
105777
100375

052777
000240
000402

006754
006756

022626

006760
006766
006774
007000
007002
007004

042777
012777
004737
000140
000240
000402

007006
007010

022626
104057

007012

01037

000100
012242

173436

173434
006754
173412

173426

000100

173402

104056

000100
007006
012242

173344

173364
173366

TST25:

1%:

J
THAT

XMIT

TEST
AR

SCOPE
BIC
JSR
MoV
MoV
TSTB
BPL
BIS
NOP
BR

Rals

THAT XMIT

AR AR SRR

SEQ 0048

INTERRUPTS ONLY WHEN ENABLED

#BIT6,aTCSR
PC,WRPSW

.WORD
340
aTVECT,R3

ittt

stds)

INTERRUPTS DO NOT OCCUR WHEN DISABLED
Rl

stttz

lts]

sDISABLE INTERRUPTS
JSET PSW TO PRIORITY 7
:SAVE XMIT VECTOR
;POINT XMIT VECTOR TO ERROR REPORT

#28% ,@TVECT
aTCSR
1%
#B1T6,aTCSR

SENABLE INTERRUPT

sCONTINUE

(SP)+,(SP)+

;RESTORE SP AFTER INTERRUPT

;WAIT

FOR DONE

TEST

2%:

CMP
ERROR

3s:

8IC
MOV
JSR

#BIT6,aTCSR
#468 ,ITVECT
PC,WRPSW

NOP
BR

;BR TO END OF

CMP
ERROR

(SP)+,(SP)+

sRESTORE

5%:

MOV

R3,aTVECT

;XMIT INTERRUPT OCCURES WITH BIT6 CLEAP
sRESTORE XMIT VECTOR

.WORD

140

;XMIT

INTERRUPTS AT PRIORITY=7

sCLEAR INTERRUPT ENABLE
;POINT XMIT VECTOR TO ERROR REPORT

JSET PSW TO PRIORITY 3

TEST~NO INTERRUPT

SP AFTER

INTERRUPT

MACY11 30A(1052)
MAIN,
19-APR-78
czoLnc.P1
19-APR-78 11:41

2093
2094
2095
2096

AR AAAR

007016
007020
007026
007032
007036
007044
007052
007056
007060
007064
007066
207074

042777
017703
017704
012777
012777
004737
000140
105777
100375
052777
000240

007076

104060

007100
007102
007110
007114
007116
607120
007126

022626
012777
004737
000140
000240
042777
000402

007130
007132

022626
104061

007134
007140

010377
010477

000004

TST26:

000100
173330
173326
0071G0
000340
012242

AR AR

000100

SCOPE

007130
0122642

173252

000100

173224

173222
173220

PC,WRPSW

.WORD

cmMp

(SP)+,(SP)+
#48,aTVECT
PC,WRPSW
140

48:

cmMp
ERROR

5%:

MOV

MoV

007174
007202
007206
007212
007214
007220
007224
007226
007230
007236
007240
007242

005077
004737
000140
000240
042777
000402
022626

104062

173174
007240

000100
173146
173140

173176

—a

000100
012242

IST27:

1$:

173134

012242
000100

173114

2%:

isislalnsds

INTERRUPTS

ittt

sttt

istsssd

;WAIT FOR DONE
INTERRUPTS

JENABLE

sXMIT INTERRUPT DID NOT OCCUR
;RESTORE SP AFTER INTERRUPT
sPOINT XMIT VECTOR TO ERROR
;SET PSW TO PRIORITY 3

#BIT6,aTCSR

sGIVE TIME FOR ANY INTERRUPTS
;DISABLE INTERRUPTS
sBR TO END OF TEST

(SP)+,(SP)+

;RESTORE SP AFTER INTERRUPT

R3,aTVECT
R4 ,aTPSW

sXMIT RE-INTERRUPTED
;RESTORE XMIT VECTOR
sRESTORE XMIT PSW VECTOR

TEST
R

SCOPE

BIC
JSR

Mov
Mov

3166
3150

sttt

AAAARA ARl
ss ittt
22 0002 ]

000004
042777
004737
000340
017703
012777
052777
005077
105777
100375

sSET P10 7 AFTER INTERRUPT
;SET PSW TO PRIORITY 3

J*TEST 27

007144
007146
007154
007160
007162
007166

SEQ 0049

:CLEAR INTERRUPT ENABLE
;SAVE XMIT VECTOR
:SAVE XMIT PSW VECTOR
sSET UP XMIT VECTOR

140

ERROR

JSR
.WORD
NOP
8IC
BR

aTCSR
18
#BIT6,aTCSR

MoV

dliid

TRANSMITTER FOR DOUBLE
AR

aTVECT,R3
R4
aTPSW,
#2%,9TVECT
#340,3TPSW

8PL
BIS
NOP

2s:

ARl

#BIT6,aTCSR

BIC

TSTB

173256

JSR

1$:

TEST
AR

MOV
MoV
MOV
MOV

173266

TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED

J*TEST 26

~N~

2053

2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092

125

PAGE 49

—

2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052

11 :44

R R

THAT
RN

XMIT

#BIT6,aTCSR
PC,WRPSW

.WORD
340
S8TVECT,R3
#28 ,STVECT

INTERRUPT
RN

CLEARS

RN NN AR AN AR AR

WITH

NN R

AR N RN

;SAVE XMIT VECTOR

+POINT

XMIT VECTOR

TO ERROR

#BIT6,3TCSR
S8 TBUF
8TCSR
1%
8 TBUF
PC,WRPSW

NOP
BIC
BR

#BIT6,aTCSR

;GIVE TIME FOR ANY INTERRUPTS
;DISABLE INTERRUPTS
;BR TO END OF TEST

(SP)¢+,(SP)+

;RESTORE SP AFTER INTERRUPT

cmp

ERROR

140

;DISABLE INTERRUPTS
;SET PSW TO PRIORITY 7

8IS
CLR
TST8
BPL
CLR
JSR

.WORD

TBUF

:ENABLE INTERRUPTS
:LOAD TBUF
;WALT FOR DONE (INTERRUPT)

SFILL SELOND BUFFER TO RESET
;ALLOW INTERRUPTS

INT.

LMAIN.
MACY11 30A(1052)
19-APR-78
CZ0LDC.P11
19-APR-78 11:41
2097
gggg

007244

010377

173112

11:44
PAGE 50
127
TEST THAT XMIT

3s:

Mov

SEQ 0050

INTERRUPT CLEARS WITH LOADING TBUF

R3,3TVECT

;LOADING TBUF DID NOT CLEAR
JRESTORE XMIT VECTOR

INTERRUPT.

LMAIN.
MACY11 30A(1052)
19-APR-78
C20LDC.P1
19-APR-78 11:41

n
4
11:44
PAGE 51
127
TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF

2100

2101

2102

:*TEST 30

2]03

R R

R A R AN R R R T R R AR AR RN R AR NN N R R AR AR

TEST THAT RCVR ACTIVE

(11) & DONE

RN R RN RN

(/)

SET & CLEAR PROPERLY

;:ttttttt'tittt'tttttttt'tttttt'tt'ttttt"tttt"tttttttttttfittttt

2104
2105
2106
2107
2108
2109
2110
2111
2112
g}}z

007250
007252
007254
007262
007264
007270
007276
007300
007302
007304

000004
000005
052777
005000
005077
032777
001006
005200
001372
042777

%}}2

007312

104063

2117
2118
g};g

007314
007316
007324

000005
032777
001401

%}53

007326

104115

2123

007330

005000

2125
2126
2127
2128
s:%g

007340
007344
007346
007350
007356

062700
005200
001374
033777
001404

2131
S;gg

007360
007366

042777
104136

2134
2135
2136
2137
2138
2139
2140
2141

007370
007372
007376
007402
007404
007406
007410
007416

005000
005077
105777
100406
005200
001373
042777
104064

2144
2145
2146
2147

007420
007426
007430
007436

032777
001404
042777
104065

2150
2151
g}gg

007440
007442
007446

000005
105777
001404

2154
2155

007450
007456

042777
104066

2124

007332

052777

TST30:
000004

173070

173064
004060

173050

000004

173040

004000

173022

000004

173012

004000

172770

000004

172764

000000

WACTV:

2$:

38:
WT:

SCOPE
RESET
BIS
CLR
CLR
BIT
BNE
INC
BNE
BIC

#BIT2,3TCSR
RO
aTBUF
#BIT11,3RCSR
2s
RO
WACTV
#BIT2,3TCSR

;CLEAR EVERYTHING
:SET MAINTENANCE WRAP
JCLEAR A TIMER
:LOAD TRANSMIT BUFFER
:TEST RCVR ACTIVE BIT
;BR IF SET
; INCREMENT TIMER IF NOT SET
;CONTINUE WAIT IF TIME REMAINS
:CLEAR MAINTENANCE BIT

ERROR

;RCVR ACTIVE DID NOT SET WHILE RECEIVING

RESET
BIT
BEQ

#BIT11,8RCSR
38

sVERIFY "INIT'" CLEARS RCV ACTIVE

ERROR

115

;INIT DID NOT CLEAR RCV ACTIVE

;CLEAR A TIMER

ADD
INC
BNE
BIT
BEQ

#0,R0
RO
W
BIT11,3RCSR
43

;WAIT AT LEAST ONE BIT TIME
;VERIFY RCV ACTIVE STILL CLEAR
:BR IF CLEAR

BIC
ERROR

#BIT2,8TCSR
116

;CLEAR MAINTENANCE WRAP
;RCV ACTIVE WITHOUT ''START' BIT

CLR
LR
TSTB
BMI
INC
BNE
BIC
ERROR

RO
aTBUF
aRCSR
5$
RO
WOONE
#BIT2,aTCSR
64

:CLEAR TIMER
;LOAD TRANSMIT BUFFER
;CHECK FOR RECEIVER DONE
:BR, IF DONE
:INCREMENT TIMER, IF NOT DONE
;CONTINUE WAIT IF TIME REMAINS
:CLEAR MAINTENANCE BIT

BIT
BEQ
BIC
ERROR

#BIT11,8RCSR
63
#BIT2,3TCSR
65

RESET
TSTB
BEQ

SRCSR
7%

BIC
ERROR

#BIT2,aTCSR
66

CLR

BIS

#BIT2,a8TCSR

:SET MAINTENANCE WRAP

S}:g

5123

48:

172756
172744

000004

WDONE:

172734

004000

172720

00000¢

172714

6$:

172700
000004

S$:

172674

sRECEIVER DONE NEVER SET
;CHECK FOR RCVR ACTIVE CLEAR
;BR, IF CLEAR
;CLEAR MAINTENANCE BIT

sRCVR ACTIVE DID NOT CLEAR WITH RCVR DONE
;CLEAR DONE WITH RESET
;CHECK FOR DONE CLEAR

:CLEAR MAINTENANCE BIT

SEQ 0051

cZoLoc.pP1

g}g?

2158
2159

30A(1052)

19-APR-78

19-APR-78 11:41

11:44

130

PAGE

TEST THAT RCVR ACTIVE

(11) & DONE

(7) SET & CLEAR PROPERLY

;RESET DID NOT CLEAR RCVR DONE
007460
007466

042777
000400

000004

172660

7%:

8IC
BR

#BIT2,aRCSR
TST31

:CLEAR MAINTENANCE BIT
;BR TO NEXT TEST

SEQ 0052

MACY11

~N X

-MAIN.

MACY11 30A(1052)
MAIN,
19-APR-78
19-APR-~78
11.41
(zoLoC PN

2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
21N
2172

2173
2174
2175
2176
2177
2178
2179

2180
2181

2182

2183
2184
2185
2186
2187
2188
2189
2190
219
2192
2193
2194
2195
2196
2197
2198
2199
2200

11 164

PAGE 53
T30
TEST THAT RCVR ACTIVE

(11) & DONE

(7)

SET & CLEAR PROPERLY

cectttRRtRRRRARRORRACCRRERRNRCORRSOONRRORORRRRROACRRARROARNARORRARARROROROOROTY

SeTEST 31

TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG

cotvtRttRRRRRRRRORRRROOGCRRCRCRCGOEROGCEORIRRRGEARORRNRNARRRNRNRANRRRNOORRCRRANACNTY

007470
007472
007474
007502
0C7510
007514
007520
007522
007530

032777
001401

007532

104117

007534
007542
007546
007550
007556

052777

000004
000005
052777
052777
005077
105777
100375

105777
001404

042777
104067

IST31:
000001
000004

172640
172626

000001

172644
172642

8IS
BIS

172604

000004

172574

#81T0,a8RCSR

;VERIFY RCV ACTIVE CLEARED RDR ENABLE

ERROR

117

;RDR ENABLE NOT CLEARED WITH RCV ACTIVE

BIS

#BIT0,3RCSR

sCLEAR DONE BY SETTING RDR ENABLE

BEQ

TST32

;BR,

TSTB

SRR

MPAAAAAAAA

000004
000005
052777
005077
105777
100375
017700
042777
105777
001401
104775

TST32:

000004
172556
172544
172540
000004
172524

8IS
1$:

CLR
ggTB
L

172534

CLEAR

:CLEAR MAINTENANCE BIT

THAT READING RBUF
R

#BIT2,aTCSR

8TBUF
?:CSR

SRBUF ,RO

i5T8

dRCSR

ERROR

BEQ

FOR DONE

IF CLEAR TO NEXT TEST

ARl ARt
s
22222220202

MOV

BIC

CLEAR

;SETTING RDR ENABLE DID NOT CLEAR RCVR DONE

SCOPE

RESET

172560

s CHECK

#BIT2,3TCSR
67

TEST
AR

:BR

SRCSR

AR AR AR

;*TEST 32

007560
007562
007564
007572
007576
007602
007604
007610
007616
007622
007624

8IC
ERROR

LOAD TRANSMITTER
;WAIT FOR RECEIVER DONE

BIT

BEQ

2%:

;SEY RDR ENABLE
:SCI MAINTENANCE WRAP

aT8UF
?:CSR

BPL

172616

:CLEAR EVERYTHING

#BIT0,3RCSR
#BIT2,QTCSR

CLR
1ST8

1%:

000001
172600

SCOPE

RESET

#B17c,aTCSR

TST33

CLEARS RECEIVER DONE

iRl ilitliliiilisdislisssisss)

;CLEAR EVERYTHING

sSET MAINTENANCE WRAP

;LOAD TRANSMITTER
;WAIT FOR RECEIVER DONE
JREAD RECEIVE BUFFER

"CLEAR MAINTENANCE BIT
HECK

;BR,

FOR RECEIVE

.READING

DONE

CLEAR

CLEAR TO NEXT TEST
RBUF

DID

NOT

CLEAR

RCVR

DONE

SEQ 0053

MAIN.
MACY11 30A(1052)
19-APR-78
c2oLbC.P1Y
19-APR=-78 11:41

11:44
PAGE S4
132
TEST THAT READING RBUF

2201
2202

SEQ 0054

CLEARS RECEIVER DONE

2203

:;'tttttttt'tt'"t't'ttt'tttttt'tt'tt""'tflt"tttttt"t'tttttttt

2204

;*TEST 33

2205

2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
gg}g

007626
007630
007636
007644
007652
007656
007664
007670
007672
007676
007702
007704
007712

000004
042777
042777
052777
017703
012777
004737
000140
005077
105777
100375
042777
000405

2220

007714

042777

2222

007724

10407

2221

3352

007722

022626

000100
000100
000004
1725G0
007714
012242

172514
172502
172500

172456
172444

1%:

000004

172440

000004

172430

007726
007734
007742
007744
007752

012777
052777
000240
042777
104072

007754
000100

172422
172404

000004

172400

2232

007754

042777

000100

2234
2235

007770
007772

022626
010377

2233

007762

042777

000004

172360

TST33:

172472

2225
2226
2227
2228
2229

gg%g

TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED

;;tttttttttttttttttttt"t"tttt'tl‘ 1223232323223 22232X222X22 328 X

172364

172362

2%:

3%:

4$:

SCOPE
BIC
BIC
BIS
MOV
MOV
JSR
CLR
TSTB
BPL
BIC
B8R

#B1T6,3TCSR
#BIT6,8RCSR
#BIT2,87CSR
8RVECT,R3
#28 ,3RVECT
PC,WRPSW
.WORD
140
3TBUF
SRCSR
1%
#BIT2,aTCSR
3%

;CLEAR MAINTENANCE BIT
;CONTINUE TEST

BIC

#BIT2,3TCSR

:CLEAR MAINTENANCE BIT

ERROR

;RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR

MoV
BIS
NOP
BIC
ERROR

#4% ,QRVECT
#BIT6,3RCSR

BIC

#BIT6,8RCSR

;DISABLE

CMP
Mov

(SP)+,(SP)+
R3,aRVECT

;RESTORE SP AFTER INTERRUPT
;RESTORE RECEIVE VECTOR

CMP

BIC

(SP)¢+,(SP)+

#BIT2,3TCSR
72

#BIT2,38TCSR

;:DISABLE TRANSMIT INTERRUPTS
;DISABLE RECEIVER INTERRUPTS
:SET MAINTENANCE WRAP
;SAVE RECEIVE VECTOR
:POINT RCV VECTOR TO ERROR REPORT
;SET PSW TO PRIORITY 3
:SEND A CHARACTER
;WAIT FOR RECEIVER DONE

:RESTORE SP AFTER INTERRUPT

;POINT RCV VECTOR TO END OF
;ENABLE RCV INTERRUPTS
;GIVE ANY INTERRUPTS TIME
;CLEAR MAINTENANCE BIT

TEST

;RCVR DID NOT INTERRUPT
INTERRUPTS

:CLEAR MAINTENANCE BIT

.ot

MAIN.
MACY1T 30A(1052)
19-APR-78
CZbLDC.P11
19-APR-78 11:41

11:44
PAGE 55
133
TEST THAT RCVR

2236
2237

2238

2239

JeTEST 34

2240

2241
2242
2243
2244
2245
2246
2247
2248
2249
2250

2251

2252
2253
2254
2255
2256
S%g;

007776
010000
010002
010006
010010
010014
010022
010030
010034
010040

010042

010050
010052
010054
010062
010064

000004
000005
004737
000340
017703
012777
052777
005077
105777
100375

052777

000240
000405
042777
022626
104073

TST34:
012242

172342
010054
000004
172320
172306

172334
172322
18:

000100

172276

000006

172270

2259
2260
2261
2262
2263
2264
gggg

010066
010074
010102
010106
010110
010112
010120

042777
012777
004737
000140
000240
042777
000405

000100
010122
012242

172252
172254

000004

172232

2267
2268
2269
2270
2271

010122
010130
010132

042777
022626
104074

000004

172222

010134

010377

172216

SCOPE
RESET
JSR

MOV
MoV
BIS
CLR
TST8
BPL
BIS

2%:

3%:

NOP
BR
BIC
CMP
ERROR
BIC
MoV
JSR
NOP
BIC
BR

AN R

SEQ 0055

INTERRUPTS ONLY WHEN ENABLED

R R R R RN R RN R AN R R R A RN R AN

RRANRE RN E R R

TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED

N RN

PC,WRPSW
.WORD
340
SRVECT ,R3
#28 ,ARVECT
#BIT2,3TCSR
a8 TBUF
SRCSR
1%

#BIT6,3RCSR

3$
#BIT2,8TCSR
(SP)+,(SP)+
73
#BIT6,aRCSR
#48 ,3RVECT
PC,WRPSW
.WORD
140
#BIT2,aTCSR
5%

4$:

8IC
CMP
ERROR

#BIT2 aTCSR
(SP)+,(SP)+
74

5%:

Mov

R3,a8RVECT

R R R R A AR P R A RN

S RN R

R RN R

RN RN AR

NRY

;CLEAR EVERYTHING
;SET PSW TO PRIORITY 7

sSAVE RECEIVE VECTOR
sPOINT RCVR VECTOR TO ERROR REPORT
;SET MAINTENANCE WRAP
;SEND A CHARACTER
;WAIT FOR RECEIVER DONE
;ENABLE

INTERRUPTS

;GIVE TIME FOR INTERRUPT
;CONTINUE TEST
;CLEAR MAINTENANCE BIT
sRESTORE SP AFTER INTERRUPT
sRCVR

INTERRUPTS AT PRIORITY 7

sCLEAR INTERRUPT ENABLE
;POINT RCVR VECTOR TO ERROR REPORT
;SET PSW TO PRIORITY 3
:GIVE TIME FOR ANY INTERRUPT
;CLEAR MAINTENANCE BIT
;BR TO END OF TEST, IF NO INTERRUPT
sCLEAR MAINTENANCE BIT
sRESTORE SP AFTER INTERRUPT
;RCVR INTERRUPT REQUEST PASSED WITH BIT6 CLEAR
;RESTORE RECEIVE VECTOR

JMAIN.
MACY11 30AC1052)
19-APR-78
czoLdC.P1M
19-APR-78 11:41

11:44
PAGE 56
T34
TEST

2272
2273

2274

2275

;*TEST 35

2276

2277
2278
2279
2280
2281
2282
2283
2284
22%5
2286
2287
2288
2289
2290
ggg;

010140
010142
010144
010150
010154
010162
010170
010174
010176
010204
010210
010214
010216
010224
010232

000004
000005
017703
017704
012777
012777
004737
000140
052777
005077
105777
100375
042777
052777
000240

2293
g%gg

010234

104075

2296
2297
2298

010236
010240
010246

022626
012777
004737

010276
012242

172110

2300
2301
2302
2303

010254
010256
010264
010270

000240
042777
010377
010477

000100
172066
172064

172062

2306
2307

010276
010300

022626
104076

010302

010377

2299

gggg

2308
2309

010252

010274

000140

000402

172206
172204
010236
000340

012242

172146

000004
000100

172126
172114

172050

RN R

AN RN R

TST35:

SCOPE
RESET
MOV
MOV
MOV
MOV
JSR

1%:

BIS
CLR
TST8
BPL
BIC
BIS
NOP

THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED

172174
172170

000004
172144
172132

N R R R RN

ANA NN NANRRARNRNR

TEST RECEIVER FOR DOUBLE INTERRUPTS

P R

P R PN R R

O P P PO

dRVECT,R3
aRPSW, R4
#28 ,RVECT
#340,9RPSW

PC,WRPSW

.WORD
140
#BIT2,3TCSR
a TBUF
aRCSR
1%
#BIT2,a8TCSR
#BIT6,aRCSR

ERROR

CMpP
MOV
JSR
.WORD
NOP
BIC
MOV
MOV
BR

(SP)+,(SP)+
#3% ,aRVE(CT
PC,WRPSW
#1140

3%:

CmMp
ERROK

(SP)+,(SP)+
76

4%:

MoV

R3,aRVECT

2%:

NN RN R RN

#BIT6,aRCSR
R3,3RVECT
R4 ,aRPSW
4

A A A

NN AR R RGN

O RN PR RN R AN RRNR RS

sCLEAR EVERYTHING
JSAVE RECEIVE VECTOR
sSAVE RECEIVE PSW VECTOR
JPOINT RCV VECTOR TO CONTINUE TEST
sSET PRIORITY TO 7 AFTER INTERRUPT
;SET PSW TO PRIORITY 3
;SET MAINTENANCE WRAP
JSEND A CHARACTER
;WAIT FOR RCVR DONE

;CLEAR MAINTENANCE BIT
;ENABLE RCV INTERRUPTS
;GIVE SOME TIME
JRCVR

INTERRUPT DID NOT OCCUR

JRESTORE SP AFTER INTERRUPT
JPOINT RCV VECTOR TO ERROR REPORT
JRESET PSW TO PRIORITY 3
;GIVE SOME TIME
sCLEAR INTERRUPT ENABLE
JRESTORE RECEIVE VECTOR
JRESTORE RECEIVE PSW VECTOR

;BR TO END OF TEST

JRESTURE SP AFTER INTERRUPT
JRECEIVER RE-INTERRUPTED
;RESTORE RECEIVE VECTOR

SEQ 0056

MACY11 30A(1052)
.MAIN.
19-APR-78
cZoLdC P
19-APR-78 11:41

2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338

11:44
PAGE 57
T35
TEST RECEIVER FOR DOUBLE

SEQ 0057

INTERRUPTS

R SRRl
Rdll
R0t
222023282322322022222322¢

TRTEST 36
R

010306
010310
010312
010316
010320
010324
010332
010340
010346
010352
010356
010360
010366
010372
010376
010400
010402
010410

000004
000005
004737
000340
017703
012777
052777

052777
005077

105777
100375
042777

005077
004737
000140
000240
042777
000402

010412
010414

022626

010416

010377

1ST36:
012242
172032

010412
000100
000004
172002
171770

000004
171756
012242

000100

171734

AR LA

TEST
AR

SCOPE

RESET
JSR
Mov
Mov

172024

172006
1720C4

18:

BIS
BIS
CLR
TST8

BPL
8IC
CLR
JSR

171764

NOP
BIC
BR

171736

2%:

104077

3s:

cmp

THAT RCVR
AR

PC,WRPSW

.WORD
340
dRVECT ,R3

#28,3RVECT
#BIT6,aRCSR
#BIT2,aTCSR
a8 TBUF
SRCSR
1$
#BIT2,3TCSR
SRBUF
PC.WRPSW

.WORD

INTERRUPT CLEARS BY READING RBUF

ARl

140

#BIT6,aRCSR

(SP)+,(SP)+

Rttt

sCLEAR EVERYTHING
;SET PSW PRIORITY TO 7

;SAVE RECEIVE VECTOR
;POINT

RCV

VECTOR

TO ERROR

REPORT

sSET RCVR INTERRUPT ENABLE
;SET MAINTENANCE WRAP
sSEND A CHARACTER
;WAIT FOR DONE (INTERRUPT)

sCLEAR MAINTENANCE BIT
JREAD RBUF TO CLEAR PENDING INTERRPUT
JSET PSW TO PRIORITY 3
sALLOW TIME FOR ANY ERRONEOUS INTERRUPT
:NO INTERRUPT-CLEAR INT. ENABLE

ERROR

;RESTORE SP AFTER INTERRUPT
;READING RBUF DID NOT CLEAR

mov

R3,aRVECT

;RESTORE

QECEIVE

VECTOR

INTERRUPT

JMAIN.
MACY11 30A(1052)
19-APR-78
CZDLDC.P11
19-APR-78 11:41

11:44
PAGE 58
136
TEST

2339
2340

2342
2343
2344
2345
2346
2347
2348
2349

;*TEST 37
IR
R
A
TST37:
SCOPE
RESET
JSR

TEST THAT RESET CLEARS RECEIVE INTERRUPT
R AN A R R R R R R AR RN N R RN R RN RN RN R R RN R RN TR AR RN RE

MOV
MOV
BIS
8IS
MOV
TSTB
BPL
RESET
JSR

;SAVE RECEIVE VECTOR
:POINT RCV VECTOR TO ERROR REPORT
;SET RCV INTERRUPT ENABLE
;SET MAINTENANCE WRAP
;SEND AN ALL 1'S CHARACTER
:WAIT FOR RCV DONE

2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363

000004
000005
004737
000340
017703
012777

010446
010454
010462
010470
010474
010476
010500
010504
010506
010510
010516

052777
052777
012777
105777
100375
000005
004737
000140
000240
042777
000402

Sggg

010520
010522

022626
104100

2366

010524

010377

:
012242
171716
010520
000100
000004
000377
171652

171710
171672
171670
1716664

1%:

012242
000100

171626

R R

SEQ 0058

INTERRUPT CLEARS BY READING RBUF

234

010422
010424
010426
010432
010434
010440

THAT RCVR

PC,WRPSW
.WORD
340
@RVECT,R3
#28 ,ARVECT
#BIT6,aRCSR
#BIT2,aTCSR
#377,37BUF
@RCSR
1%
PC,WRPSW
.WORD
140

R AR R AN R

R RN AN RN R R AR R AR AR

R R

;CLEAR EVERYTHING
;SET PSW TO PRIORITY 7

;CLEAR RCV INTERRUPT §& RBUF
;SET PSW TO PRIORITY 3

NOP
BIC
BR

#BIT6,aRCSR
38

;ALLOW TIME FOR AN ERRONEOUS INTERRUPT
;NO INTERRUPT-CLEAR INT. ENABLE
;CONTINJE TEST

28:

CMP
ERROR

(SP)+, (SP)+
100

;RESTORE SP AFTER INTERRUPT
;RESET DID NOT CLEAR RCVR INTERRUPT

3s:

Mov

R3,aRVECT

;RESTORE RECEIVE VECTOR

171630

JMAIN.
MACYTY 30A(1052)
19-APR-78
C20LDC.PN
19-APR-78 11:41

11:44
PAGE 59
137
TEST

23¢7
2368

2369

2370

J*TEST 40

23N

2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
%ggg

2389
2390
2391
2392
2393

010530
010532
010540
010542
010544
010552
010556
010562
010566
010570
010572
010574
010602
010610
010612

010614
010622
010624
010626

000004
032777
001432
000005
052777
012700
005077
105777
100375
005300
001371
042777
032777
001001

002000

170300

0000C4
000003
17157¢
171564

171600

000004
040000

TST40:

1%:
2$:

171550
171540

104101

032777
001001
104102

R
AR

SCOPE
BIT
BEQ
RESET
BIS
MOV
CLR
TSTB
BPL
DEC
BNE
BIC
BIT
BNE

171526

3$%:

BIT
BNE
ERROR

THAT RESET CLEARS RECEIVE

ERROR

100000

R Rt A R RN

NN NN R RN P RN EERANNRNRON R

TEST THAT THE ''OR'' ERROR
N

A N

#B1710,aSWR
1ST41
#BIT2,3TCSR
#3,RO
aTBUF
aTCSR
2%
RO
1R )
#BIT2,aTCSR
#B1T14 ,aRBUF
3s
101

#B1T15,8RBUF
43
102

R RN

AN R AR

SEQ 0059

INTERRUPT

(BIT14) & ''ERROR'* (BIT15) CAN BE SET

RN RN R

RN AR AR

ER R RN

;1S THIS TEST ENABLED
;1F NOT ENABLED, BR TO NEXT TEST
sCLEAR EVERYTHING
JSET MAINTENANCE WRAP
JSET CHARACTER COUNT TO SEND 3 CHAR.
;LOAD TRANSMIT BUFFER
JWAIT FOR TRANSMIT DONE
JDECREMENT CHARACTER COUNT
sBR IF ALL CHARACTERS NOT TRANSMITTED
sCLEAR MAINTENANCE BIT
;TEST FOR "'OR'* ERROR FLAG
;BR, IF SET
;"'OR"' ERROR FLAG DID NOT SETY
sTEST "'ERROR'' FLAG
;BR, IF SET
;"'ERROR'' FLAG DID NOT SET WITH "'OR'' FLAG

LJMAIN.
MACY11 30A(1052)
19-APR-78
€ZoLoC.P1N
19-APR-78 11:41

2394
2395

2396

2397

J*TEST 41

2398

2399

010626

006004

2400
2401
2402
2403
2404
2605
2406
2407
2408
2409
2410
2411
2412
52}2

010630
010636
010640
010642
010650
010656
010662
010664
010670
010676
010700
010706
010710
010712

032777
001444
000005
052777
012777
105777
100375
005077
052777
005000
117737
100406
005200
001372

2415

010714

2418
2419
szg?

000400

170202

000004
177777
171464

171502
171476

171460
000001

171454

171442

001026

042777

000005

171430

010724
010730
010732

105777
001404
042777

1714620

%25%

010740

104103

2424

010742

042777

52}?

010722

104103

000005

11:44
PAGE 60
140
TEST THAT THE ''OR" ERROR

N R

TST41:

SCOPE

18:

2%:

171412

3$:

R R A

& ''ERROR'' (BIT15)

AN R AN

TEST THAT BREAK TRANSMITS ALL ZEROES
R R

R A A A R RN

#B1T8,aSWR
TST42

CAN BE

AN RN R A AN R R AN AR AR AN

AR AN

#BIT2,aTCSR
#-1,aTBUF
aRCSR
1$
aRBUF
#BITO,8TCSR
RO
aRCSR,$BDDAT
CONT41
RO
2%

BIC

#BITO!BIT2,aTCSR

TSTB
BtaQ
BIC

aRBUF
;CHECK RECEIVE BUFFER FOR ZERO
38
;BR, IF ZERO
#BITO!BIT2,aTCSR
;CLEAR MAINTENANCE & BREAK BITS

ERROR

103

8IC

#BITO.BIT2,aTCSR ;CLEAR MAINTENANCE & BREAK BITS

103

SET

A RN

BIT
BEQ
RESET
BIS
MOV
TSTB
BPL
CLR
BIS
CLR
MOVB
BMI
INC
BNE
ERROR

CONT41:

171402

(BIT14)

;1S BREAK FUNCTION TEST ENABLED?
;BR TO NEXT TEST, IF NOI ENABLED
;CLEAR EVERYTHING
sSET MAINTENANCE WRAP
:TRANSMIT ALL ONES TO KCVR
;WAIT FOR RCVR DONE
;CLEAR DONE (LEAVING ALL CNES
sTRANSMIT BREAK
;CLEAR A TIMER
;WAIT FOR RCVR DONE
sBR IF UCUNE
:1F NOT, INCREMENT TIMER
:BR IF TIME REMAINS

IN Rb.F)

;CLEAR MAINTENANCE £ BREAK BITS

;BREAK DID NOT

sBREAK DID NOT

TRANSMIT ANYTHING

TRANSMIT ALL ZEROES

SEQ 0060

MACY11 30A(1052)
19-APR-78
MAIN,
(zoLnc PN
19-APR-78 11:41

PAGE 61
TEST

THAT BREAK.TRANSMITS ALL

SEQ 0061

ZEROES

JINARARRRAARRAEARAERACERRNNEERANENANERNOANARAAARNRRROARRRNAAROAROCND

J*TEST 42
MR

104104

011042
011050

032777
001001

011052

104114

011054

000400

170050

000004
000001

171340
171326

000005
020000

100000

171300

SCOPE
BIT
BEQ
BIT

BEQ

RESET

1%:

THAT
el

"'FR'" ERROR CAN BE
Rl

#BIT10,3SWR
TST43
#BIT8,aSWR

TST4L3

BIS
BIS

#BIT2,aTCSR
#BIT0,aTCSR

TSTB

?gcsa

CLR

BPL

2s:

TEST

ASAARSAAR RSNl

TST42:

171350
171342

—

011040

002000

170060

N (N

000004
032777
001435
032777
001431
000005
052777
052777
005077
105777
100375
042777
032777
001001

~N~N

010750
010752
010760
010762
010770
010772
010774
011002
011010
011014
011020
011022
011030
011036

2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
24461
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452

11:44
T41

a8 TBUF

SET DURING BREAK

il tllitslialliiiislissiisiiislitssds

;1S THE "'TEST ERROR FLAGS'' BIT SET
;B8R TO NEXT TEST, IF NOT SET
:1S BREAK FUNCTION ENABLED

JBR TO NEXT TEST, IF NOT SET
:CLEAR

EVERYTHING

;SET MAINTENANCE WRAP
:SEND BREAK

;TRANSMIT A CHARACTER TO TIME BREAK
:WAIT

FOR RCVR DONE

BIC
BIT
BNE

#BITO'BIT2,aTCSR :CLEAR MAINTENANCE & BREAK BITS
#BITi3,aRBUF
;CHECK FOR FRAMING ERROR FLAG
2%
;BR, IF SET

ERROR

104

BIT

#B17115,aRBUF

ERROR

114

BNE

;BREAK DID NOT SET FRAMING ERROR

:TEST "ERROR''FLAG

;BR,

SET

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

JMAIN.

MACYYY

cZDoLDC.P11

30A(1052)

19-APR-78

19-APR-78 11:41

11:44

2453
2454
2455
2456

5223

011054

000004

2460
2461
2462
2463

011056
011060
011062

000005
005001
052777

2466
26467
2468
2469
2470
2471
2472
2473
26474
2475
26476
2477
2478
2479
Szg?

011070
011072
011076
011102
011106
011110
011114
011120
011122
011124
011126
011132
011136
011144

005201
010177
105777
100375
017702
043701
020102
001003
105701
001411
000761
010137
010237
042777
104105

Szgg

011146

042777

011116

TST43:

0000C4

1%:

171256
171244

2%:

171240
001112

001024
001026
000004

171206

000004

171176

3%:

2484
2485

4S$:

SEQ 0062

R
R R R R R S R R R R R R R
R
R
L]
TEST DATA PATH FROM TRANSMITTER TO RECEIVER USING MAINTENANCE WRAP
R AR AR R

R PR R R

AR AR AR AN AN RN E NN R AR

AN RO

SCOPE
RESET
CLR
BIS

171262

TEST THAT '‘FR'* ERROR CAN BE SET DURING BREAK

I T
sxTEST 43

2457

26464
2465

142

PAGE 62

R1
#BIT2,3TCSR

JCLEAR EVERYTHING
sCLEAR REGISTER FOR TEST DATA
JSET MAINTENANCE WRAP
;TRANSMIT A BINARY COUNT PATTERN - UP

;TO THE BIT POSITION INDICATED BY THE
;CONTENTS OF LOCATION ‘'SUSW '

INC
MOV
TST8
BPL
MOV
BIC
CMP
BNE
TSTB
BEQ
BR
MoV
MOV
BIC
ERROR

R
R1,a3TBUF
aRCSR
2%
aRBUF ,R2
a#SUSWR,R1
R1,R2
R1
43
1%
R1,$GDDAT
RZ,$BDDAT
#BIT2,8TCSR
105

sGET RECEIVED CHARACTER
JCLEAR 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
JSTORE THE EXPECTED DATA
JSTORE RECEIVED DATA
;CLEAR MAINTENANCE BIT
;DATA COMPARE DATA

BIC

#BIT2,3TCSR

sCLEAR MAINTENANCE BIT

2486

2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
5282

J*TEST 44
TEST DATA PATHS USING WRAP CABLE
I
I
TST44:
SCOPE
BIT
#BIT7,aSWR
;1S THIS TEST ENABLED
BEQ
TST45
;BR, IF NOT
RESET
;CLEAR EVERYTHING
CLR
R1
;CLEAR REGISTER FOR TEST DATA
JTRANSMIT A BINARY COUNT PATTERN - UP
;7O THE BIT POSITION INDICATED BY THE
JCONTENTS OF LOCATION ‘'SUSWR''
1%:
INCB
R
JINCREMENT THE TEST DATA
MoV
R1,aTBUF
JXMIT A CHARACTER
(LR
RO
;CLEAR A TIMER
2%
TS18
aR(SR
;WAIT FOR RECEIVER DONE
BMI
3
:BR IF DONE
INC
RO
JINCREMENT TIMER [F NOT
BNE
2%
;BR IF TIME RFMAINS

011154
011156
011164
011166
011170

000004
032777
001432
000005
005001

011172
011174
011200
011202
011206
011210
011212

105201
010177
005000
105777
100403
005200
001373

3282

011214

104064

2507
2508

011216
011222

017702
0437017

000200

171154

171140

171126
001112

167654

3s:

R R

R R R

;INCREMENT THE TEST DATA
JXMIT A CHARACTER
JWAIT FOR RECEIVER DONE

R R R R P R R R R

R R

A AR A AR A RN AN NN

RR RN

ERROR

JRECEIVER DONE NOT SET

MOV
BIC

aRBUF ,R2
afSUSWR R

JGET RECEIVED CHARACTER
JCLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA

MACY11 30A(1052)
19-APR-78
19-APR-78 11:41
CZ0LDC.P1Y
MAIN,

2509
2510
2511
2512
2513
2514
2515
2516
2517

020102
001003
105701

011226
011230
011232
011234
011236
011240
011244

000755
010137
010237

011250

104106

001406

001024
001026

11:44
PAGE 63
T44
TEST DATA PATHS USING WRAP CABLE

4%:

CMP
BNE
TSTB
BEQ
BR

Mov
MoV

ERROR

3
R1
TST4S

SEQ 0063

; COMPARE DATA
;BR, IF NON-COMPARE

STEST

XMIT DATA FOR

1%
R1,$GDPDAT

R2,$BDDAT

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

106

;DATA COMPARE

ZERO

ERROR WITH WRAP CABLE

SEQ 0064

DATA PATHS USING WRAP CABLE

2518
2519

2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2561
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552

2553

2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569

2570
2571
2572
2573

JokkthtttRtRARARCERARARACRNORONCORRRRORORARRRAANRRACROANRROONARORNTY

s*TEST 45
R

011252
011254
011256
011262
011264
011270
011274
011300
011306
011314
011322
011330
011334
011342
011346
011352
011354
011362
011364
011372
011376
011404
011412
011420
011426
011432
011436
011440
011442
011446
011452
011456

017737
012777
005077
012777
005077
005737
001414
032777
001010
012777
005077
052777
052777
052777
052777
005037
005037
005001
005000
012702
005077
004737
000140

011460
011464
011470
011472
011500
011502

062700
062700
001373
032777
001402
000005

011504

104107

011506
011514
011516

001402
000005

011520

104110

000004
000005
004737
000340
017703
017704
017705
017737
017737

023737

AAAS

iSTéS:
012242

SRR

TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE,

SCOPE
RESET
JSR
.WORD
MoV
Mov
MOV
Mov
MOV
MOV
Mov

CLR

11704

171012

002336
000100
011720
171014
000100
000004
000100
000100
011730
011726

167456

171016
171002
170740

170732

170720

011742
170702
012242

000100

170652

CLR
8IS
BIS
BIS
BIS
CLR
CLR
CLR
CLR

ADD
ADD
BNE
BIT

011726

4
.

[
.

L]
.

4
.

[
[

aTPSW

#CLK,SRTCVT
dRTCPSW
#BIT6,38LKS

#BIT2,8TCSR
#BIT6,8TCSR
#B1T6,3RCSR
XMTCNT
RCVCNT
R1
RO
#BUF ,R2
STBUF
PC,WRPSW

.WORD

140

#0,R0
#1,R0

#BIT6,3TCSR

4
.

J
.

4
-

[J
.

4
.

[4
.

.
.

*
.

L4
.

[
.

4
.

[4
.

J
.

*
.

J
.

SAVE
SAVE
SAVE
SAVE
SAVE
SAVE

XMIT VECTOR
RECEIVE VECTOR
CLOCK VECTOR
XMIT PSW VECTOR
RECEIVE PSW VECTOR
CLOCK PSW VECTOR
POINT TRANSMIT VECTOR TO TRANSMIT ROUTINE
ALLOW INTERRUPTS AFTER XMIT INTERRUPT
POINT

RECEIVE

VECTOR

TO RECEIVE

ALLOW INTERRPUTS AFTER RCVR
IS CONSOLE UNDER TEST?

ROUTINE

INTERRUPT

IF NOT SKIP CLOCK SET UuP
IF YES, ARE CLOCK TEST DISABLED?
IF YES, SKIP CLOCK SET UP

POINT VECTOR TO CLOCK INTERRUPT ROUTINE
ALLOW INTERRUPTS AFTER CLOCK INTERRUPT

ENABLE CLOCK INTERRUPTS
SET MAINTENANCE WRAP
ENABLE TRANSMIT INTERRUPTS
ENABLE RECEIVE INTERRUPTS
CLEAR 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
ADD INSTRUCTIONS ARE USED TO LENGTHEN LOOP TIME
TO COVER THE SLOWEST BAUD RATE ON THE FASTEST CPU

FINISHED ENTIRE TRANSMISSION
BR, IF INTERRPUTS ARE DISABLED

ERROR

107

TRANSMIT

Cmp
BEQ
RESET

XMTCNT,RCVCNT

COMPARE THE NUMBER OF
BR, If EQUAL
CLEAR EVERYTHING

ERROR

110

RECEIVER DID NOT GET FULL

8EQ

3$:

SET PRIORITY TO 7

#XMIT,QTVECT

SRPSW
CTSTFL
13
#BIT6,aSWR
13

RESET

011730

8TPSW,STPSW
RPSW,SRPSW
SRTCPSW,SCPSW

CLR
TST
BEQ
BIT
BNE

CLR
JSR

2s:

340
S8TVECT,R3
SRVECT
R4
SRTCVT
RS

#RCV,IRVECT

Mov

000000
000001

AVAILABLE)

CLEAR EVERYTHING

PC,WRPSY

MoV

Mmov

18:

& CLOCK(IF

ARl el
i
2]

CLEAR EVERYTHING

INTERRUPT

TIMEOUT

(FINISHED)

IN MAIN.

DATA TEST

INTERRUPTS

TRANSMISSION

IF RCVCNT=0, NO DATA RECEIVED

IF RCVCNT=?, THEN (XMTCNT-RCVCNT)
EQUALS THE NO, OF INTERRUPTS LOST.

11:44
PAGE 64
T44
TEST

~NXE

.MAIN,
MACY11 30A(1052)
19-APR-78
CZ0LDC.P1Y
19-APR-78 11:41

<MAIN,
MACY11 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:41

011522
011526
011530
011536
011544

005737
001410
032777
001004
005737
001001

011546

104113

011550
011552
011556
011560
011562
011564
011566
011572
011574

000005
012700
005001
022001
001005
105201
032701
001772
000405

011576
011602
011606

014037
010137

011610
011614
011620
011624
011632
011640
011646

010377
010477
010577

011540

104111

013777
013777
013777

000501

002336
000100

TST
BEQ
BIT
BNE
TST
BNE

ERROR

5%:

011742

COMP:

000040

001026
001024

6%:

RESET
MoV
CLR
CMP
BNE
INCB
BIT
BEQ
B8R
Mov
MoV

ERROR

170546
170536
170564

011734
011736
011740

005237

011730

032701
001404
042777
000402
110177
005000
000002

000040

011704
011710
011714
011716

017722
005237
005000
000002

170440
011726

011720
011724

005237
000002

011732

000000
000000
000000
000000
000000

167302

011732

011650
011654
011656
011662
011664
011672
011674
011700
011702

105201

4%:

000100
170454

5§

Mov
Mov
MOV
MOV
Mov
MoV

170532
170520
170544

XMIT:

170460
XCONT:
XRET:

STPSW:
SRPSW:

AVAILABLE)

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

113

:NO CLOCK INTERRUPTS IN EXERCISER

#BIT6,aSWR

CLKCNT

sCLEAR EVERYTHING
;LOAD RECEIVED DATA POINTER TO RO
;SET UP REGISTER FOR COMPARISON
;COMPARE XMIT & RCV DATA
sBR, IF NOT EQUAL
s INCREMENT COMPARE DATA
;FINISHED CHECKING RECEIVED DATA?
sBR, IF NOT FINISHED
;BR TO END OF TEST

-(R0O) ,$BDDAT
R1,$GDDAT
M

;STORE BAD DATA FOR ERROR REPORT
:STORE GOOD DATA FOR ERROR REPORT
;DATA COMPARE ERROR IN EXERCISER

R3,8TVECY

SRESTORE XMIT VECTOR
;RESTORE RECEIVE VECTOR
;RESTORE CLOCK VECTOR
SRESTORE XMIT PSW VECTOR
;RESTORE RECEIVE PSW VECTOR
;RESTORE CLOCK PSW VECTOR
;BR TO END OF DEVICE TEST ROUTINE

#BUF ,RO
R1
(RO)+,R1

R1
#BITS,R1
COMP

R4 ,BRVECT

RS,8RTCVT

STPSW,8TPSW
SRPSW,aRPSW
SCPSW,aRTCPSW

INC
INCB
BIT
BEQ
BIC
BR

CLR

XMTCNT
R1
#B175,R1
XCONT
#BIT6,aTCSR
XRET
R1,aTBUF
RO

¢ INCREMENT XMIT INTERRUPT COUNTER
s INCREMENT TEST DATA
;SEND DATA PATTERN FROM 00 --> 37
:BR, IF MORE DATA TO BE SENT
;CLEAR XMIT INTERRUPT ENABLE
SRETURN, WITHOUT SENDING ANY MORE DATA
sSEND NEW CHARACTER
;CLEAR TIMER
JRETURN

Mov

aRBUF
, (R2) +

;STORE RECEIVED DATA
s INCREMENT RCV INTERRUPT COUNTER
;CLEAR TIMER

Movae

RTI

RCVCNT:
XMTCNT:
CLKCNT:

& CLOCK(IF

ENDEV

INC
CLR

CLK:

XMIT,RECEIVE,

RTI
RCV:

CTSTFL

RCVCNT

JRETURN

INC
RTI

CLKCNT

.WORD
.WORD
.WORD
.WORD
.WORD

OOOOO

2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629

11:44
PAGE 65
T45
TEST DL11-W LOGIC BY EXERCISING THE

JINCREMENT CLOCK INTERRUPT COUNT

JRETURN

SEQ 0065
SIMULTAN

AAIN.

MACYTY

2630
2631
2632

011740
011742

czoLocC.P1N

30A(1052)

19-APR-78

19-APR-78 11:41
000000
000044

11:44

145

PAGE 66

SCPSW:
BUF :

SEQ 0066

TEST DL11-wW LOGIC BY EXERCISING THE XMIT, RECEIVE, & CLOCK(IF AVAILABLE) SIMULTAN
.WORD
BLKW

O
44

MACY11 30A(1052)
19-APR-78
C20L0C P11
19-APR-78 11:41
-MAIN.

2633
2634
2635
2636
2637
2638
2639

2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652

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

¢
6
11:44
PAGE 67
T45
TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE,

& CLOCK(IF

AVAILABLE)

;END OF DEVICE PASS ROUTINE
012052
012056
012062
012070
012072
012076

005037
005237
023737
001404
005037
000137

001002
001076
002342

ENDEV:

001076

002336
003500

.SBTTL

CLR
INC
CHP
BEQ
CLR
JMP

END OF

SRR R RN R

AN RN

$STSTNM
$DEVCT
TMP2,$DEVCT
$EOP
CTSTFL

sCLEAR TEST NO. COUNT FOR SCOPE ROUTINE
; INCREMENT DEVICE COUNTER
JALL DEVICES TESTED
;BR, IF YES
;CLEAR CONSOLE UNDER TEST FLAG
;GO TEST NEXT DEVICE

TSTDEV

PASS ROUTINE
R

A AR AR

AR RN AR

AN RN

**INCREMENT THE PASS NUMBER (SPASS)

NN AR

;*]F THERES A MONITOR GO TO IT
;*IF THERE ISN'T JUMP TO GOAGIN
012102
012102
012104
012110
012114
012122
012124
012126
012130
012132
012134

012136
012142

012146
012150
012152
012154
012156
012160
012162
012162
012164
012166

012172
012200

000004
005037
005237
042737
005327
000001
003015
012737
000001
012124
104401
013700
001405
000005
004710
000240
000240
000240

000137
012206
377
012172
005015
040520

$EOP:

001002
001074
100000

001074
$EOPCT:

$SENDCT:

012172
000042

$GET42:

SENDAD:

$DOAGN:

377

000

047105
051523

020104
000040

SRTNAD:
SENULL:

ENDMG:

SCOPE
CLR
INC
8IC
DEC
.WORD
BGT
MOV
.WORD

SEOPCT
TYPE

MOV
BEQ
RESET

JSR

NOP
NOP
NOP

JMP
.WORD
.BYTE
.EVEN
LASCIZ

$STSTNM
$PASS
#100000,$PASS
(PC)+
1
$DOAGN
(PC)+,a(PO)+

.ENDMG
are?2 RO
$DOAGN

PC, (RO)

:;LERDO THE TEST NUMBER
;s INCREMENT THE PASS NUMBER
;;OON'T ALLOW A NEG. NUMBER
;.L00P?

;s YES
J;RESTORE COUNTER
::TYPE "'END PASS''

;;GET MONITOR ADDRESS
:;BRANCH IF NO MONITOR
;;CLEAR THE WORLD
::6G0 TO MONITOR
;; SAVE ROOM

;sFOR
JoACTN

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

. s RETURN
: sNULL CHARACTER STRING
PASS

SEQ 0067
SIMULTAN

MACY11 30A(1052)
MAIN,
19~APR~78
czoLopc P11
19-APR-78 11:41

2678
2679
2680
2681
2682
2683
2684
2685
2686

2687

2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704

012206
012212
012220
012222
012226

005037
022737
001004
012706
000137

001076
000001

012232
012236

005037
000137

001100
003424

012242
012244
012246
012252

011646
013616
062746
000002

11:44
PAGE 68
END OF PASS ROUTINE

002342

GOAGIN:

001000

003622

CLR

SDEVCTY

BNE
Mov
JMP

RSTRT
#1000,
sP
ST

CMP

#1,TMP2

RSTRT:

(LR
JMP

WRPSW:

MOV(SP),-(SP)
Mov
a(SP)+,(SP)
ADD
#2,-(SP)
RTI

000002

SUNIT
BEGIN

SEQ 0068

:CLEAR DEVICE COUNT
;1S THERE ONLY ONE DEVICE UNDER TEST?
;8R, IF NOT
;RESET STACK POINTER

;GO DO ANOTHER PASS

;CLEAR UNIT NUMBER

;COPY RETUN PC
;MOVE NEW PSW TO STACK
sADJUST JSR RETURN
;POP RETURN PC & NEW PSW

;SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS
012254
012256
012262
012266
012274

012600

012276
012300
012302

000000
000000
000000

162700

010037
016637
104112

000004
012302
000002

CATCH:

#4 RO

ERROR

2(SP),0LDPC
112

MoV
MOV

012300

OLDPC:
BDVECT:

(SP)+,RO

MOV
sus

HALT
.WORD

.WORD

RO,BDVECT

0
0

;GET ADDRESS OF TRAP VECTOR + 4
sADJUST TO POINT TO TRAP ADDRESS
;STORE TRAP OR INTERRUPT ADDRESS
;GET PC WHERE TRAP OR INTERRUPT OCCURRED

;REPORT ERROR

;PROGRAM MUST BE RESTARTED AT THIS POINT

MACY11 30A(1052)
MAIN.
19-APR-78
czoLoe.P1
19-APR-78 11:41

2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
27461
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754

PAGE 69
1" :44
END OF PASS ROUTINE

SEQ 0069

R R

AN E R R R R A AN

RN RN R AR RN AR R R AR RN RN RN

s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL
s*AND GO TO SERRTYP ON ERROR

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
;*SW15=1
ceSW13=1
INHIBIT ERROR TYPEOUTS
:*SW09=1
LOOP IN ERROR
s*CALL
A

012304
012304
012310
012312
012320
012324
012330
012336
012344
012352
012354
012360
012364
012364
012372
012374
012402
012406
012407
012410
012412
012416
012420
012422

012424
012432
012434

012440
012444
012446
012452
012452
012460
012462
012464
012464

105237

001775
013777
005237
011637
162737
117737
032777
001004
004737

$ERROR:
7%:

001003
001002
001012
001016
000002
1666454
020000

166522

104401

122737

000001

001106

001014
013170

012406

104406

032777
001402
013716
005737
001402
013716
022737
001001
000000
000002

INCB
8EQ

BIT
BNE
JSR

208:

22%:
i ¥

166406

001010
051060

3s:

000042

5%:

6$:

; ;ERROR=EMT

R R

20%

PC,SERRTYP

.SCRLF

CMPB
BNE

#APTENV ,SENV

.BYTE
.BYTE
BR
TST
BPL

0
0
22%

MOVB
JSR

HALT

CKSWR
BIT
BEQ

MOV
TST

$ERFLG
7$
STSTNM, aDISPLAY
SERTTL
(SP) ,$ERRPC
#2,$ERRPC
SERRPC ,SITEMB
#BIT13,aswR

TYPE

$ITEMB,21$
PC,SATY4

aSWR

#B1709,aswR
3]
SLPERR, (SP)
SESCAPE

AND N=ERROR

A AR

ITEM NUMBER

AN AR AR

RARRR

;SET THE ERROR FLAG

;OON'T LET FLAG GO TO ZERO
;DISPLAY TEST NUMBER AND ERROR FLAG
s INCREMENT ERROR COUNT
sGET ADDRESS OF ERROR INSTRUCTION
;STRIP AND SAVE THE ERROR ITEM CODE
;SKIP TYPEOUT IF SET
;SKIP TYPEOUTS
;GO TO USER ERROR ROUTINE
;RUNNING IN APT MODE
sNO, SKIP APT ERROR REPORT
;SET ITEM NUMBER AS ERROR NUMBER
;REPORT FATAL ERROR TO APT
;APT

ERROR

LOOP

sHALT ON ERROR
JSKIP IF CONTINUE

JHALT ON ERROR!

JTEST FOR CHANGE IN cJFT-SWR
;LOOP ON ERROR SW.T(CH SET?
;BR IF NO
;FUDGE

RETURN FOR LOOPING

Mov

$ESCAPE, (SP)

JCHECK FOR AN ESCAPE ADDRESS
;BR IF NONE
sFUDGE RETURN ADDRESS FOR ESCAPE

CMP
BNE
HALT

#SENDAD ,an42
6%

;sACT=11 AUTO-ACCEPT?
;BR IF NO

BEQ

001060

012152

Mov
sus
MovB

218:

166422

001000

INC

012466
001063

001007
113737
004737
000
000
000777
005777
100001
000000

Mov

001016
001014
166466

ERROR

RTI

JYES

; RETURN

JMAIN.
MACYTY 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:4°

11:44
PAGE 70
END OF PASS ROUTINE

SEQ 0070

2755
%;gg

.SBTTL

2758

2759
2760

;*THIS ROUTINE USES THE "ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE '‘ERROR TABLE'' (SERRTB),

g;g;

2763
2764
2765
2766
2767
2768
2769
2770
27N
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802

2803

ERROR MESSAGE

AR AR RRA

TYPEOUT ROUTINE

AR RARARRiRR

R Rt

litdliat ittt

siiaolitsd]

;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
012466
0126466
012472
012474
012476
012502

104401
010046
005000
153700
001004

001063

012504

013746

001016

012510
012512
012514
012516
012520
012522
012524
012530
012534
012536
012540
012542
012546
012552
012554
012556
012560
012564
012566
012570
012572
012576
012600
012600
012602
012604
012606
012610
012614
012616

104402
000426
005300
006300
006300
006300
062700
012037
001404
104401
000000
104401
012037
001404
104401
000000
104401
011000
001004
012600
104401
000207
013046
104402
005710
001770
104401
000771
020040
012622

S$ERRTYP:

001014

1%:

001146
012540

001063
012556

001063

2s:

3s:
4:
5%:
6$:
7$:

012616
ooc

8$:

TYPE
MoV
CLR
BISB
BNE

.SCRLF
RO,-(SP)
RO
S#SITEMB,RO
1%

Mov

$ERRPC,-(SP)

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
Mov
8EQ
TYPE
.WORD
TYPE
Mov
BEQ
TYPE
.WORD
TYPE
Mov
BNE
Mov
TYPE
RTS
MOV
TYPOC
TST
BEQ
TYPE
BR
LASCIZ
.EVEN

6%
RO
RO
RO
RO
#SERRTB,RO
(RO)+.,28
3s
0
.SCRLF
(RO)+,48
5%

0
.SCRLF
(RO) RO
78
(SP)+,RO
,SCRLF
Pl
3(RO)¢+,-(SP)

(RO)
63
., 8%
s
/Y

; ;"'CARRIAGE RETURN'' & '‘LINE FEED''
;. SAVE RO
::PICKUP THE ITEM INDEX
;.
1F 1TEM NUMBER IS ZERO, JUST
;;TYPE THE PC OF THE ERROR
;. SAVE SERRPC FOR TYPEOUT
: ;ERROR ADDRESS
;.60 TYPE-~OCTAL ASCII(ALL DIGITS)
..GET our
;;ADJUST THE INDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE
;;FORM TABLE POINTER
;:PICKUP ''ERROR MESSAGE'' POINTER
::SKiP TYPEQOUT IF NO POINTER
;:TYPE THE ''ERROR MESSAGE'’
::'ERROR MESSAGE'® POINTER GOES HERE
;s 'CARRIAGL RETURN'' & '‘LINE FEED"
:sPICKUP ''DATA HEADER'' POINTER
s SKIP YYPEQUT IF O
::TYPE THE ''DATA HEADER'
;:'DATA HEACFR'' POINTER GOES HERE
;:"'CARRIASE RETURN & 'LINE FEED"
;;PICKUP "'wATA TABLE'' POINTER
;:GU TYPE THE DATA
;sRESTURE RO
;''CARRIAGE RETURN'' & '‘LINE FEED"

; ;RETURN

:;SAVE @(RO)+ FOR TYPEOUT
;:GO TYPE-~OCTAL ASCII(ALL DIGITS)
::1S THERE ANOTHER NUMBER?
;:BR IF NO
;. TYPE TWO(2) SPACES
..LO0P
;:TWO(2) SPACES

MACY11 30A(1052)
19-APR-78
cZbLoC.P1N
19-APR-78 11:41
MAIN.

2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814

2815
2816
2817

2818
2819
2820
2821
2822
2823
2824
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

PAGE
1" 144
ERROR MESSAGE

.SBTTL

SEQ 0071

TYPEOUT ROUTINE

POWER DOWN AND UP ROUTINES

MR ALAARAAAAAARARARAS
AL RA AR
Rttt il ststssl!

;*POWER DOWN ROUTINE

NP RARARARAR

012622
012630
012636
012640
012642
012644
012646
012650

012652
012656
012662
012670
012672

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000
000776

012762
000340

000024
000026

$PWRDN:

166162

012766
012674

000024

012674
012702
012706
012712
012714
012716
012720
012722
012724
012726
012734
012742
012746
012752
012754
012756
012760
012762
012764
012766
012770
012776

012737
013706
012677
012605
012604
012603
012602
012601
012600
012737
012737
005037
005237
001375

104401
012770
000002
000000
000776
000000
005015
000122

012762
012766

000024

AAAAA

$PWRUP:

000024
000026
1%:

SPWRMG:
$ILLUP:

047520

042527

$SAVR6:
$POWER:

sttt

itslns

#SILLUP ,Q#PWRVEC ;SET FOR FAST UP
#340,3#PWRVEC+2 ;PRIO:7

RO, ~(SP)

sPUSH RO ON STACK

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

:PUSH R1 ON STACK
:PUSH R2 ON STA(K
:PUSH R3 ON STACK

R3,-(SP)

R4 ,-(SP)

;PUSH R4 ON STACK

R5,-(SP)

;PUSH R5 ON STACK

SP,$SAVR6

s SAVE

aSWR, =~ (SP)

:PUSH @SWR ON STACK

#SPURUP ,3#PWRVEC

.=2

MoV
mov
MoV
Mov
Mov
MoV
MoV
MoV
MOV
MOV
Mov
CLR

;SET UP VECTOR

+HANG UP

ARl

;*POWER UP ROUTINE

AR AR R R RN RN

166126

012622
000340
012766
012766

mMov
MOV
Mov
MOV
MoV
MoV
MOV
Mov
Mov
MOV
Mov
HALT
BR

R R R RN R R RN PR

ettt

R RN RN

#SILLUP ,@#PWRVEC

$SAVRG,SP

(SP)+,38SWR

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

;SET

FOR FAST

JGET SP

DOWN

JPOP STACK INTO a8SWR

INC
BNE

.WORD

$POWER

.=2

LASCIZ

<15><12>"'POWER""

RTI
HALT

]

AR RANANRNNCARANNRARORA
TR

;POP STACK INTO R4
;POP STACK INTO R3
;POP STACK INTO R2
;POP STACK INTO R1
;POP STACK INTO RO
#$PWRDN ,@#PWRVEC ;SET UP THE POWER DOWN VECTOR
#340 ,8#PURVEC+2 ;PRIO:7
$SAVR6
;WAIT LOOP FOR THE TTY
$SAVRE
;WAIT FOR THE INC
1%
:OF WORD

TYPE

sREPORT THE POWER FAILURE

;POWER FAIL MESSAGE POINTER

;THE POWER UP SEQUENCE WAS STARTED
; BEFORE THE POWER DOWN WAS COMPLETE
JPUT THE SP HERE

MAIN,
MACY11 30A(1052)
19-APR-78
czoLoc.P
19-APR-78 11:41

2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
287
2872
2873
2874
2875
2876
2877

2878
2879

2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895

H
1 144
PAGE 72
POWER DOWN AND UP ROUTINES

.SBTTL

SCOPE HANDLER ROUTINE

N R R RN

SEQ 0072

A R R

PR AR

A R R TR R

AR NS R A

KRR NN NN RN R

s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
s*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;eSWI4=1
:*SW09=1
J*CALL

M
013000
013000
013002
013010

104406

032777
001052

013012

000416

013014
013020
013026
013032
013036
013040
013042
013046
013050
013050
013054
013056
013064
013066
013074
013076
013102
013106
013114
013120
013124
013130
013136
013144
013150

013746
012737
005737
012637

000421
022626
012637
000407

105737
001412
032777
001404
013737
000420
105037
105237
113737
011637
011637
005037
112737
013777
013716
000002

$SCOPE:

040000

166030

1%:

LOOP ON TEST
LOOP ON ERROR

CKSWR
BIT
BNE

HARRASTART

$XTSTR:

000004
013040
177060
000004

000004

5%:

000004

2%:
165754

001010

001006

001072

001015
165676

7%:
4%:
$SVLAD:

$SOVER:

$OVER

CO%E

FOR

THE

;:LOOP ON PRESENT

XOR

MOV
MOV
TST
MOV
BR

S#ERRVEC,-(SP)
#5% ,@#ERRVEC

cmp

TS18

BEQ
BIT
BEQ
MOV
BR
CLRB
INCB
MOVB
MOV
MOV
CLR
MOvVB

MOV

MOV
RTI

FOR CHANGE IN SOFT-SWR

;s TEST

#BIT14,aSWR

BR
6S:; MMNNSEND OF

001000

001003
001002
001002
001006
001010
001060
000001
001002
001006

MOV

001003

;:SCOPE=]10T

SCOPE

JoYES

TEST?

SW14=1

TESTER#NNXN

;:1F RUNNING ON THE ''XOR'' TESTER CHANGE

art77060

;. THIS INSTRUCTION TO A "'NOP'' (NOP=240)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
;;SET FOR TIMEOUT

;:TIME OUT ON XOR?

(SP)+ ,@#ERRVEC
;;RESTORE THE ERROR VECTOR
$SVLAD
;:60 TO THE NEXT TEST
(SP)+,(SP)+
;;CLEAR THE STACK AFTER A TIME
(SP)+ ,@#ERRVEC
,;.RESTORE THE ERROR VECTOR
7%
;. LOOP ON THE PRESENT TEST
CODE FOR THE XOR TESTER###M#
SERFLG
;:HAS AN ERROR OCCURRED?
$SVLAD
J:BR IF NO
#BIT09,8SWR
;:;LO0OP ON ERROR?
43
J:BR IF NO

OUT

:LPE:R.SLPADR

;.SET LOOP ADDRESS TO LAST

$ERFLG
$TSTNM
$TSTNM,STESTN
(SP),SLPADR
(SP),SLPERR

;. LERO THE ERROR FLAG
;. COUNT TEST NUMBERS
5oSET TEST NUMBER IN APT MAILBOX
;. SAVE SCOPE LOOP ADDRESS
;:;SAVE ERROR LOOP ADDRESS

#1,8ERMAX

;;ONLY

$SESCAPE

STSTNM,
@D ISPLAY
$LPADR, (SP)

SCOPE

;. CLEAR THE ESCAPE FROM ERROR ADDRESS
ALLOW ONE(1)

ERROR ON NEXT

;;DISPLAY TEST NUMBER
;. FUDGE RETURN ADDRESS

s FIXES PS

TEST

MACY11 30A(1052)
-MAIN,
19-APR-78
19-APR-78 11:41
CZoLDC.P11

" 144
PAGE 73
SCOPE HANDLER ROUTINE

2896
2897
2898
2899
2900

2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951

MR A

;70 REPORT FATAL ERROR
270 TYPE A MESSAGE

MOV

RO,-(SP)

;PUSH RO ON STACK

TST8B
B8EQ

SMFLG
5%

;SHOULD TYPE A MESSAGE?
sIF NOT: BR

013300
013302
013310
013316
013322
013326
013330
013330
013334
013336
013342
013344
013350
013352
013360
013364
013372
013376
013402
013406
013410
013412
013414
013415
013416

$SATY1:
SATY3:

112737

000001

013416

:A}Yé:

001375
010037

105720
001376
163700
006200

010037
012737
000413
017637
062766
03746
004737
000000
105737
001413
005737
001410
005737
001375
017637
005237
062766
105037
105037
105037

012601
012600
000207
000
000
000
013420

ATY(C:

013414

000100

001107

000004
000002
001066

000004

2$%:

001102

000004
000002
177776
013420

001066
013326
000004

3s:

43 :

5%:

013416

10%:

001106

11%:

001066

000004
001066
000002
013416
01341¢
013414

001070

000004

128 :

$MFLG:
$LFLG:
$FFLG:

R1,- (SP)

RSl

iiststiiitslslsl]

;70 ONLY REPORT FATAL

;PUSH R1

ERROR

ON STACK

#APTENV,SENV

8IT8

#APTSPOOL ,$ENVM ;SHOULD SPOOL MESSAGE?

MOV

84 (SP) RO

TST

$MNSGTYPE

BEQ
1%:

CMPB

BNE

ADD

BNE

001102

001104
000004

MOV

001106

RaRRR RtRRiesiisliitsiilisissisldd]

#1,8FFLG
#,SMFLG
SATYC
#1,8FFLG

013416
013414

000001

MOVB
MOVB
BR
MOVB

000001
000001

010046
010146
105737
001450
122737
00331
132737
001425
017600
062766
005737

APT COMMUNICATIONS ROUTINE

112737
112737

000403

-SBTTL

NAALEAASA

013152
013160
013166
013170
013176
013176
013200
013202
013206
013210
013216
013220
013226
013230
013234
013242
013246
013250
013254
013256
013260
013264
013266
013272

SEQ 0073

;IF NOT: BR

;IF NOT:

#2.,4(SP)

;BUMP RETURN ADDRESS

;GET MESSAGE

;SEE

IF DONE W/ LAST XMISSION?

;IF

(RO)+

;FIND END OF MESSAGE

RO,$SMSGAD

BNE
SUB
ASR

23
$MSGAD,RO
RO

NOT:

ADDRESS

MOV

TSTB

JOPERATING UNDER APT?

WAIT

;PUT ADDRESS IN MAILBOX

MoV
SSV

RO,SMSGLGT
g:.‘HSGTYPE

;SUB START OF MESSAGE
;GET MESSAGE LENGTH IN WORDS
JPUT LENGTH IN MAILBOX
JTELL APT TO TAKE MESSAGE

MOV

84 (SP) ,48

JPUT MSG ADDR IN JSR LINKAGE

MOV
JSR

177776,-(SP)
PC,STYPE

;PUSH 177776 ON STACK
;CALL TYPE MACRO

ADD

#2,4(SP)

;BUMP RETURN ADDRESS

.WORD

TSTB

$FFLG

;SHOULD REPORT

TST

SENV

JRUNNING UNDER APT?

TST

$SMSGTYPE

8EQ
BEQ
BNE
MoV
INC

ADD
CLRB

CLRB
CLRB
MOV
MOV
RTS
.BYTE
.BYTE
.BYTE
.EVEN

12%

118
84 (SP) ,SFATAL
$MSGTYPE

#2.,4(SP)
S$FFLG

SLFLG
SMFLG
(SP)+ R
(SP)+,R0
PC
0
0
0

JIF NOT: BR
;1F

NOT:

FATAL

ERROR?

JFINISHED LAST MESSAGE?
JIF NOT: WAIT
JGET ERROR #
;TELL APT TO TAKE

ERROR

;BUMP RETURN ADDRESS
JCLEAR FATAL FLAG
;CLEAR LOG FLAG
;CLEAR MESSAGE FLAG
;POP STACK INTO R1
JPOP STACK INTO R1
JRETURN

;LOG FLAG
sFATAL FLAG

JMAIN.
MACY11 30A(1052)
19-APR-78
CZoLDC.P11
19-APR=-78 11:41

2952
2953
2954
2955
2956

000200
000001
000100
000040

J
11:44
PAGE 74
APT COMMUNICATIONS ROUTINE

APTSIZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040

SEQ 0074

N
€z

)

MAIN.
MACY11 30A(1052)
19-APR-78
CZoLDC.PIN
19-APR-78 11:41

K
11:44
PAGE 75
APT COMMUNICATIONS ROUTINE

SEQ 0075

2957
gggg

.SBTTL

2960
2961
2962

'tt'ttt"ttttt'tttttt'tttttt'tttttttt'ttttttttttttttttttttttttt
'ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

2964
5865
66
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986

;*NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
;*NOTE3:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.
N
:*CALL:
;*1) USING A TRAP INSTRUCTION
%
TYPE
LMESADR
;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING
S *+0R
o
TYPE
ox
MESADR
o*

013420
013424
013426
013430
013432
013434
013440
013446
013450
013456
013460
013464

105737
100002
000000
000430
010046
017600
122737
001011
132737
001405
010037
004737

001057

2988
2989
2990

013472
013500
013502

132737
001003
112046

000040

2992
2993
2994
2995
2996
2997

013506
013510
013512
013516
013520
013524

2963

2987

2991

S *NOTE1:

013470

013504

2998
2999
3000
3001
3002
3003
3004
3005

013526
013532
013534
013536
013540
013542
013546
013550

3007
3008
3009
3010
3011
3012

013560
013562

3006

TYPE ROUTINE

013554

013566
013572
013574

000000

122716
001006
005726
104401
001063
105037
000755
004737
123726
001350

1%:

000002
000001

001106

000100

001107

013470
013160
001107

618%:
628:
2s:

001005

005726
012600
062716
000002
122716
001430

$TYPE:

000002

60$:
3s:

000011

000200

01367¢

013632

001056

013746

001054

105366
002770
004737

000001
013632

5%:

6%:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

TSTB
BPL
HALT
BR
MOV
MoV
CMPB
BNE
BITB
BEQ
MOV
JSR

::1S THERE A TERMINAL?
;:BR IF YES
:HALT HERE IF NO TERMINAL
3s
;s LEAVE
RO,-(SP)
:;SAVE RO
82(SP) RO
:;GET ADDRESS OF ASCIZ STRING
#APTENV,SENV
;:RUNNING IN APT MODE
623
:.NO,GO CHECK FOR APT CONSOLE
#APTSPOOL,SENVM ;;SPOOL MESSAGE TO APT
623
::NU,GO CHECK FOR CONSOLE
RO,61$
;s SETUP MESSAGE ADDRESS FOR APT
PC,SATY3
:;SPOOL MESSAGE TO APT

BITB
8NE
MOVB

#APTCSUP,SENVM
60$
(RO)+,-(SP)

TST
MOV
ADD
RTI
CMPB
BEQ

(SP)+
(SP)+,R0
#2,(SP)

LWORD

BNE

CMPB
BNE
TST
TYPE
SCRLF
CLRB
BR
JSR
CMPB
BNE

MOV
78:

DECB
BLT
JSR

$TPFLG
1%

I3 3

#HT, (SP)
8s
#CRLF, (SP)
5%
(SP)+

:;MESSAGE ADDRESS

::APT CONSOLE SUPPRESSED
:YES,SKIP TYPE 0OUT
;;PUSH CHARACTER TO BE TYPED ONTO STACK

::BR IF IT ISN'T THE TERMINATOR

:;1F TERMINATOR POP IT OFF
;;RESTORE RO
::;ADJUST RETURN PC
; ;RETURN
;:BRANCH IF <HT>

THE

STACK

: ;BRANCH IF NOT <CRLF>
::POP
<CR><LF> EQUIV
;:TYPE A CR AND LF

SCHARCNT
2%
PC,8TYPEC
$SFILLC, (SP)+
2%

::CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
;1S IT TIME FOR FILLER CHARS.?
;.
1F NO GO GET NEXT CHAR.

1(SP)
6%
PC,STYPEC

::AND THE NULL CHAR.
:;D0ES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF
::6G0 TYPE A NULL

$NULL,=-(SP)

;;GET # OF FILLER CHARS. NEEDED

STACK

N
czl

LMAIN.
MACY11 30A(1052)
19-APR-78
cZ0LDC.P11
19-APR-78 11:41

3013
gg}g

013600
013604

105337
000770

11:44
PAGE 76
TYPE ROUTINE

013676

DECB
BR

%8}?

3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
gggg

;HORIZONTAL

013606
013612
013616
013624
013626
013630
013632
013636
013640
013646
013654
013656
013662
013664
013672
013674
013676
013700

112716
004737
132737
001372
005726
000724
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

000040
013632
000007

013676

165212

000002
000015

165204
000002

013676
000012

SEQ 0076

000002

$CHARCNT
7%

;D0 NOT COUNT AS A COUNT
;. LOOP

TAB PROCESSOR

8%:
9%:

MOVB
JSR
BITB
BNE
TST
BR
$TYPEC: TSTB
BPL
MOVB
(MPB
BNE
CLRB
BR
1%:
CMPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RTS

¥ ,(SP)
PC,STYPEC
#7,8CHARCNT
9%
(SP)+
2
asTPS
$TYPEC
2(SP),a8TPB
#CR,2(SP)
19
$CHARCNT
S$TYPEX
#LF,2(SP)
$TYPEX
(PC)+
0
PC

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

%g%g

.SBTTL

3039

""ttt.t'i’""'i""""'i"i'i"""""'itt.'i'ittt.t"'t"tt'ti

3040

;*THIS ROUTINE

%gz%

;*$TYPOS--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

3041

s*0CTAL
s*CALL:

3044
3045
3046
3047
3048

It
o
o
Jx
13

;828

BINARY TO OCTAL (ASCII) AND TYPE
IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

(ASCII) NUMBER AND TYPE

[T,

MOV
TYPOS
.BYTE
.BYTE

JsNUMBER TO BE TYPED
;:CALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBZR OF DIGITS TO TYPE
;:;M=1 0RO
;:1=TYPE LEADING ZEROS

NUM,-(SP)

N
M

;:;0=SUPPRESS LEADING ZEROS

3051
3052
3053
3054
3055
3056
3057
3058
3059
ggg?

3062
JC63
3064
3065
3066
3067
3068

J*$TYPON--=-=ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
J*CALL:
o
MOV
NUM,-(SP)
::NUMBER TO BE TYPED
3
TYPON
;:CALL FOR TYPEOUT
o
J*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
seCALL:
ot
MOV
NUM,-(SP)
;:NUMBER TO BE TYPED
I
TYPOC
;:CALL FOR TYPEOUT

013702
013706
013714
013720
013724
013726
013734

017646
116637
112637
062716
000406
112737
112737

000000
000001
014127
000002

000001
000006

014125

014125
014127

$TYPOS: MOV
MOVB
MOVB
ADD
BR
S$TYPOC: MOVB
MovB

a(SP) ,-(SP)
1(SP),S0FILL
(SP)+,SOMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,$0MODE +1

;:;PICKUP THE MODE
2:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TOQ TYPE
;s ADJUST RETURN ADDRESS

JoSET THE ZERO FILL SWITCH
:;SET FOR SIX(6) DIGITS

110337
104401

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

RS,-(SP)
:2HODE*1.R4

::SAVE RS
JsGET THE NUMBER OF

JsSAVE

014127

MOV
ngzs

000006
014126
014125
000012

ADD
MOVB
MOVB
MOV

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

JsSUBTRACT IT FOR MAX. ALLOWED
;:SAVE IT FOR USE
J:GET THE ZERO FILL SWITCH
;sPICKUP THE INPUT NUMBER

ROL
BR

RS
33

;:ROTATE MSB INTO ''C"’
;.60 DO MSB

177770

4% :

5%:
7%:

000002

000004
8%:
$OCNT:
$OFILL:
$OMODE:

:.GET LSB OF
;:TYPE

THIS DIGIT

THIS DIGIT?

;:BR IF NO
J:GET RID OF JUNK

TST

;¢ SUPPRESS

BEQ
INC

;;TEST FOR O

J:BR IF

YES

THIS 0?

;:DON'T

SUPPRESS ANYMORE 0°'S

£ ,R3
R3,8%
.8%

ssMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
;.60 TYPE THIS DIGIT

BIS

#'0,R3

DECB

$OCNT

::COUNT BY

BGT
BLT

2%
6%

;:BR
;:BR

::60 DO THE LAST DIGIT

BIS
MovB
TYPE

MOV

MOV
MOV
MOV
MOV
RTI

.BYTE
.BYTE
.BYTE
.BYTE

.WORD

(SP)+ RS

JsMAKE THIS DIGIT ASCII

IF MORE TO DO
IF DONE

;. INSURE

LAST

DIGIT

ISN'T A BLANK

;;RESTORE RS

(SP)+,R4
(SP)+ R}
2(SP),4(SP)
(SP)+,(SP)

;.RESTORE
;;RESTORE
;sSET THE

0
0
0
0

;:STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
;;O0CTAL DIGIT COUNTER
;. lERO FILL SWITCH

alf ada
alf

add

;:FORM THIS DIGIT

7%
#177770.R3

INC

69%:

RS
RS
RS.R3
R3
$OMODE

8PL
BIC
BNE

000060
000vV40
014122
0146122
014124

adf

ROL
ROL
MoV
ROL
DECB

;:CLEAR THE OUTPUT WORD

add

3s:

014126

ROL

add

2$:

CLR

TO TYPE

ad ald

1$:

D1°1ITS

all adf ads

S8 afl

R4 ,-(SP)

add

014052
014056
014062
014066
014072
014074
014076
014100
014102
014104
014106
014110
014116
014120
014122
014123
014124
014125
014126

s;SET THE ITERATION Ct
;sSAVE R3

aff

014046

MOV

#5,80CNT
R3,-(SP)

adl

014044

$TYPON: MOVB
MOV

afd

014042

014124

014010
014012
014014
014016
014020
014022
014024
014030
014032
014036
014040

000005

R4
R3
STACK FOR RETURNING

; sRETURN

;NUMBER OF

DIGITS

TO TYPE

014006

112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703

SEQ 0077

(ASCII) AND TYPE

anl aba

013742
013750
013752
013754
013756
013762
013764
013770
013774
014000
014004

a0 adl adf atd

3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107

11:44
PAGE 77
BINARY TO OCTAL

L adl ast add adt ass

MACY11 30A(1052)
-MAIN.
19-APR-78
czoLoc P
19-APR-78 11:41

MACY11 30A(1052)
MAIN.
19-APR-78
czoLoc.P1
19-APR-78 11:41

.SBTTL

TTY

AL AAAASRA

.ENABL

014144

014146
014152
014156
014162
014164
014172
014174
014200
014204

014210
014212
014216

022737
001074
105777
100071
117746

042716
022726

001062
123727
001456
104401
104401

013746

104402
104401
005046

000176

001040

164700
164674
177600
000007

001034

000001

014655
014662
000176

AR AR

19%:

005046
105777

014230
0146234

117746
042716

164612

014240
014244
014246
014252
014256

021627
001005
104401
062706
000757

000025

9%:

014650
000006

20$:

014260
014264
014266
014272
014274
014302
014306
014312
014320
014322
014330
014332

021627
001022
005766
001403
016677
062706

000015

012777
000002
004737

7%:

177600

108:

000002
000006
001063
001035

000001

000100

164514

164536

o~ —

00000¢

013632

el aliitiiiiiiitz
e
a2
Y
lttii
S 222222220

R A R

R AN

R AR

AN N AR

R AR AN R

RN NS

CMPB
BEQ

$AUTOB,
M
15%

;:ARE WE RUNNING [N AUTO-MODE?
;;BRANCH IF YES

TYPE
TYPE

.SCNTLG
. SMSWR

:;TYPE

16%:

SWREG,~(SP)

;;ECHO THE CONTROL-G ( G)
CURRENT

CONTENTS

;:SAVE SWREG FOR TYPEOUT
;:60 TYPE~--OCTAL ASCIIC(ALL DIGITS)

TYPE
CLR
CLR
TST8
8PL

. SMNEW
-(SP)
-(SP)
a$TKS
7$

s CLEAR COUNTER
;:THE NEW SWR
;. CHAR THERE?
J:1F NOT TRY AGAIN

MOVB

a$TKB,~(SP)}
¥ L177,(SP)

;:P1CK UP CHAR
:MAKE IT 7-BIT ASCII

(SP),#25
108
LSCNTLU
#6,SP
193

JoIS IT A CONTROL-U?
;:BRANCH IF NOT
;:YES, ECHO CONTROL-U ( U)
;s IGNORE PREVIOUS INPUT

BIC

L X _J

104401
123727
001003

164616

—

100375

LSB

MoV
TYPOC

014220
014222

014226

SEQ 0078

(ASCII) AND TYPE

:*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
s *WHEN OPERATING IN TTY FLAG MODE.
$CKSWR: (MP
#SWREG, SWR
2:1S THE SOFT-SWR SELECTED?
158
BNE
2 ;BRANCH IF NO
TSTB
8871KS
;s CHAR THERE?
BPL
158
::1F NO, DON'T WAIT AROUND
MOVB
a$TKB,-(SP)
;:SAVE THE CHAR
BIC
¥ C177,(SP)
;:STRIP-OFF THE ASCII
#7,(SP)+
Cmp
;;IS IT A CONTROL G?
15%
BNE
;:NO, RETURN TO USER

$GTSWR:

014675

INPUT ROUTINE

014130
014136
014140

11:44
PAGE 78
BINARY TO OCTAL

cMP
BNE
TYPE

ADD

CMP
BNE
TST
BEQ
MoV
ADD
TYPE
CMPB
BNE
Mov

#100,337KS

JSR

PC.STYPEC

;;PROMPT FOR NEW SWR

J:LET'S TRY IT AGAIN
SIS IT A <CR>?

;:BRANCF

JoYES, 1S IT THE FIRST CHAR?
;:BRANCH IF YES
;:SAVE NEW SWR
;:CLEAR UP STACK
JsELHO <CR> AND <LF>
: RE-ENABLE TTY KBD INTERRUPTS?
s ;BRANCH IF NOT
sRE~ENABLE TTY KBD INTERRUPTS
;sRETURN
;sECHO CHAR

19-APR-78
MACY11 30A(1052)
19-APR-78 11:41
C2oLDC.PN
MAIN.

nn
3172
3173
3174
3175
3176
1
3178
3179

3180
318
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191

014336
014342
014344
014350
014352

014356
014362
0146364
014366
014370

014372
014376
014402
014404
014410

021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401

000720

11:44

3223
3224
3225
3226

ROUTINE

cmp
BLT
[
q,
8G7
BIC

000067

000060
000002

187
BEQ
ASL

000002
177776

17%:

001062

18%:

ACL
ASL

INC
BIS
8R
TYPE
AR

.DSABL

sta 0079

INPUT

000060

LSB

(SP) ,#60
18%
(SP), 867
183
#60,(SP)+
2(SP)
178

::CHAR < 0?

;:BRANCH IF YES

::CHAR > 7

;:BRANCH IF YES
JoSTRIP=-OFF ASCII
;1S THIS THE FIRST CHAR
::BRANCH IF YES
;:NO, SHIFT PRESENT
CHAR OVER TO MAKE
M
ROOM FOR NEW ONE.
5
;o KEEP COUNT OF CHAR
::SET IN NEW CHAR
;sGET THE NEXT ONE

(SP)
(SP)
(SP)

2(SP)
-2(SP), (SP)
4]

,$QUES

5 TYPE

208

2<CRO<LF>

;:SIMULATE CONTROL-U

MR AARAZARAARAARAARARARRRAARARRRRRRRRRRRARRRRRARRldtitaltlRRtttRtd])

;*THIS

;*CALL:

3192

3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222

TTY

PAGE

ROUTINE

WILL

INPUT

SINGLE

014412
014414

014422

014426
014430
014436
014444
014452
014454
014460
014462
014466
014472
014476
014500
014502

014510
014512
014520
014522
014530

011646
016666
105777
100375
117766
042766
026627
001013
105777
100375
117746
042716
022627
001366
000750

026627
002407
026627

003003
042766
000002

000004
164416

000002

164412
177600
000004

000004
000004
000023

164364

$RDCHR:

1%:

MOV
MOV
TSTB
8PL
MOVB

(SP),-(SP)
4(SP),2(SP)
98$7kKS
1%
o3TKB,4 (SP)

MOVB

887KB,-(SP)

BIC
Cmp
8NE
1STB
8PL

2%:

164360

177600
000021

8IC
cmp
BNE

000004

000140

000004

000175

000040

000004

BR
Cmp
BLT

3s:

cmMp

BGT

BIC

43:
AL

RTI

AR AR

'EQIS ROUTINE
;*CALL:

010346
012703

014640

TTY

J:WAIT

# C177,(SP)
(SP)+, 421
2%
1%
4(SP) 2140
4%

4(SP),M75
4

#40,4(SP)
RN

FOR

;A CHARACTER
;sREAD THE TTY
;:;GET RID OF JUNK IF ANY
;oIS IT A CONTROL=-S?
;;BRANCH IF NO
;:WAIT FOR A CHARACTER
;.LO0P UNTIL ITS THERE
::GET CHARACTER

J;MAKE IT 7-BIT ASCII

;1S IT A CONTROL-Q?
1F NOT DISCARD IT
;.
;:YES, RESUME
;1S IT UPPER CASE?
;:BRANCH IF YES
;: IS IT A SPECIAL CHAR?

:;BRANCH IF YES
;:MAKE IT UPPER CASE
360 BACK TO USER

ARttt

INPUT A STRING FROM THE

RttdtRRRRRRd]

TTY

:'
M

ROLIN
RETURN HERE

¢ s INPUT A STRING FROM THE TTY
:;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;;TERMINATOR WILL BE A BYTE OF ALL 0'S

SRDLIN:
1%:

MOV
MoV

;. SAVE R3
::GET ADDRESS

014532
014534

THE

;:PUSH DOWN THE PC
;:SAVE THE PS

# CAA77>,4(SP)
4(SP)
., #23
33
88$TKS
2%

WILL

FROM

;s INPUT A SINGLE CHARACTER FROM THE TTY
s sCHARACTER IS ON THE STACK
;;WITH PARITY BIT STRIPPED OFF

RDCHR

RETURN HERE

CHARACTER

R3,-(SP)
#STTYIN,R3Z

MACY11 30A(1052)
19-APR-78
.MAIN.
C20LDC PN
19-APR-78 11:41

3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255

014540
014544

014546

014550
014552

014556
014560
014564
014566
014572
014576
014602
014604
014610
014614
014616
014620
014626
014634
014636
014637
014640
014650
014655
014662
014670
014673
014700

022703
101405

104407
112613
122713
001003
104401
003763
111327

11 144

014650

TTY

2s:

000177

10%:

001062

4% :

104401
1227

v14636
014636
000015

3%.

105063
104401

17777
001064

001356

012603
011646
016666
012766
000002
000
000
000010
052536
136
005015

020075
040
036440

000004
014640

PAGE 80
INPUT ROUTINE

000002
000004

#STTYIN+8.
,R3
4%

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

TYPE

MOV
MoV
MOV
Mov
RTI

.BYTE

000
000012
020122

$TTYIN:
$CNTLU:
$CNTLG:
$MSWR:

.BYTE
.BLKB
.ASCIZ
.ASCIZ
+ASCIZ

053505

SMNEW:

.ASCIZ

;;BUFFER FULL?
;:BR IF YES
;:60 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
;1S IT A RUBOUT
;:SKIP IF NOT
;sTYPE

;. CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

Movs

(MPB
BNE
CLRB
TYPE

9% :
005015
006507
053523
000
047040
000040

CMP

8LOS
RDCHR
MOvVB
CMPB
BNE
TYPE
BR

SEQ 0080

#15,(R3)+
28

-1(R3)
JSLF
(SP)+,R3
(SP) ,-(SP)
4 (SP),2(SP)

#STTYIN,L(SP)

0
0
8.
>
/ U/<15<A

;:CHECK FOR RLTURN
;;LO00P IF NOT RETURN
;:CLEAR RETURN (THE 15)
;sTYPE A LINE FEED

:sRESTORE R3

s :ADJUST THE STACK AND PUT ADDRESS OF
M
FIRST ASCII CHARACTER ON IT

:sRETURN
;sSTORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR
;sRESERVE 8 BYTES FOR TTY INPUT

::CONTROL ‘U

/ G/
;:CONTROL ''G"’
<15><12>/SWR = /
/

NEW =/

THE

MAIN,
MACY11 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:41

11:44

3256
3257
3258
3259
3260
3261
3262
3263

3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299

TTY

PAGE 81

SEQ 0081

INPUT ROUTINE

.SBTTL

TRAP DECODER

SRR RN RN AN AR N E ANV R A NN

R AN AR

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE

;*0F THE DESIRED ROUTINE.
;*GO TO THAT ROUTINE.
014704
014706
014712
014714
014716
014720
014724

010046

016600
005740

STRAP:

000002

111000

006300
016000
000200

014740

MOV
MoV
TST
move
ASL
Mov
RTS

THE
FOR

AR AR

"'TRAP'' INSTRUCTION
THE STARTING ADDRESS

THEN USING THE ADDRESS OBTAINED IT WILL

RO,-(SP)
2(SP) ,RO
-(RO)
(RO) ,RC
RO
S$TRPAD(RO)
,RO
RO

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

;o THIS IS USE TO HANDLE THE ''GETPRI'' MACRO
014726
014730
014736

011646
016666
000002

000004

000002

$TRAP2:

MOV
Mov
RTI

.SBTTL

(SP) ,-(SP)
4(SP),2(SP)

;:MOVE
;:MOVE

THE PC DOWN
THE PSW DOWN

::RESTORE

THE

PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE ''TRAP'" INSTRUCTION.

;

THE ROUTINES CALLED

ROUTINE

$TRPAD: .WORD

$TRAP2

014740
014742
014744
014746
014750

014726
013420
013726
013702
013742

014752

014200

$GTSWR

014754
014756
014760

014130
014412
014532

$CKSWR ;; CALL=CKSWR
SRDCHR
;;CALL=RDCHR
$SROLIN
;;CALL=ROLIN

$TYPE
$TYPOC
$TYPOS
$TYPON

;;CALL=TYPE
;. CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZERQS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

;;CALL=GTSWR

TRAP+5(104405)

GET

TRAP+6(104406)
TRAP+7(104407)
TRAP+#10(104410)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

SOFT-SWR SETTING

MAIN,
MACY11 30A(1052)
19-APR-78
czoLoc P11
19-APR-78 11:41

3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
331
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348

3349
3350
3351
3352
3353
3354
3355

11:44
PAGE 82
ECHO TEST

SEQ 0NR?2

.SBTTL
IR

R R

ECHO TEST

R R RN R R A R R

R AR R PR N AR AR AR A RN

;*THIS ROUTINE WILL ECHO ANY

;*AT THE CONSOLE
;*THE
MR

014762
014762
014764
014772
014776
015000
015006
015012
015014
015020
015022
015024
015030
015032
015034
015036
015040
015044
015046
015050
015052
015054
015060
015062
015066
015072
015074
015100
015102
015104
015106
015110
015114
015120
015122

015126
015130
015132

015134
015142
015145
015152
015157
015164
015172
015200

000005
112777
105777
100375
117777
017700
100023
052701
030100
001403
004737
015134
006301
030100
001403
004737
015145
006301
030100
001403

004737
015157

042700
022700
001337
004737
015172
000000
000726

013600
062746
105777
100375

000052
165370

165 402

165364
165356

165 366

2$:

015106

015106
000200
000003

5%:

015106

165246

005015
054524
015
044515

040520
000
043012
043516
047412
047514
052123

MSG:
WAIT:

001371
000207

015
043122
005015
000

aCRBUF RO

TYPED

TYPING A CONTROL-C

ARl

2%
8CRBUF ,aCTBUF

sttt

tatnss

sCLEAR EVERYTHING

:TRANSMIT PROMPT ''s'*
JWAIT FOR INPUT

JECHO INPUT
;STORE

INPUT

5%
#BIT12.R1
R1.RO
3%

;BR IF ''ERROR''NOT SET
;SET PARITY ERROR TEST MASK
;CHECK
FOR PARITY ERRGR FLACG
;BR IF NOT SET

ASL

JSHIFT MASK TO TEST "'FR'' FLAG

BEQ

BIT

PC,MSG

R1,R0O

;REPORT PARITY ERROR

;TEST FOR FRAMING ERROR FLAG
;BR

IF NOT SET

PC,MSG

JREPSORT

ASL
BIT
BEQ
Ag:

R1
R1,RO

JSHIFT MASK TO TEST "'OR'' FLAG
JTEST FOR OVERFLOW ERROR

PC,MSG

;REPORT OVERFLOW ERROR

BIC
CMP
BNE

#BIT7,R0
#3,R0
23

;CLEAR ANY PARITY BIT
;WAS INPUT CONTROL-C
;BR IF NOT

ECHO

JEND OF TEST HALT
JAFTER END OF TEST

MoV

a(SP)+, RO

JPICK UP MESSAGE POINTER

MovB

(RO)¢+,aCTBUF

sSEND CHARACTER

JSR
MSTOP
HALT

000002
165252

ARl

MoV

BPL
MOVB

:?:

4$:

#'+,aCTBUF
8CRCSR

;2:R

3s:

112077
105710

RESET

MOVB
1STB

BPL
BIS
BIT
BEQ

010000

IS HALTED BY

A AR

s*TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING

ASASR SRR

ECHO:

TEST

CHARACTER

RN AR RRN RO

ADD
TSTB
BPL

PC,MSG

#2,-(SP)
aCTCSR
WAIT

TSTB
BNE
RTS

(RO)
WAIT
PC

FRAMING ERROR

:BR IF NOT SET

;REPORT PROGRAM STOP

;

HALT

PRESS CONTINUE TO RESTART ECHO TEST

JADJUST RETURN PC
;WAIT FOR XMIT DONE

;IS
;B8R

THIS END OF
[F NOT
;RETURN

044 522

MPAR:

JASCIZ

<CRO<LF>/PARITY/

040 385

MFR:

JASCIZ

<CR><LF>/FRAMING/

042 ?Sg
000
050 117

MOR:

LASCIZ

<CR><LF>/QOVERFLOW/

MSTOP:

.ASCIZ

<CR>XLF>/STOP/

MESSAGE?

JMAIN.

MACY11

€2Z0LDC.PN
3356
3357
3358
3359
%%2?

30A(1052)

19-APR-78

19-APR-78 11:41

11:44

PAGE 83

SEQ 0083

ECHO TEST

015202

.EVEN
.SBTTL

3362

TERMINAL QUTPUT TEST
A

R R

R R AN

N RN C RN N NN NN RN NN RN AR R RN AR RN

3363
3364
3365

;*THIS ROUTINE WILL QUTPUT ALL WRITABLE CHARACTERS FOR THE
;*THE OCTAL CODE 040 --> 377
;%32 CHARACTERS ARE PRINTED ON EACH LINE

3368

,-:tttttt;fltttttt'0'tttttt'ttttttttt'tttt'ttttitttttt'ttttttittttt

gggg

3369
3370
3371
3372
3373
3374
3375
3376
3377
gg;g

;*THE PATTERN IS REPEATED EVERY THREE LINES
- %

015202
015206
015212
015216
015220
015224
015226
015230
015232

012701
012700
105777
100375
010177
105201
005300
001370
004737

3380
3381
3382
3383
3384

gggg

015236
015240
015244
015246
015252
015254

001063
105777
100404
032701
001353
000754

3387
3388
3389

015256
015262
015264

005077
000000
000746

000040
000040
165154
165150

QUTTST: MOV
1%:
MoV
2%:
TSTB
BPL
MOV
INCB
DEC
BNE
JSR

015106

S$CRLF
TSTB
BMI
BIT
BNE
BR

165122
000200

165106

3%:

CLR
HALT
B8R

#40,R1
#40,R0
aCTCSR
2%
R1,9CTBUF
R1

JLOAD FIRST WRITABLE CHARACTER
;LOAD CHAR COUNT PER LINE
:WAIT FOR DONE

RO
2%
PC,.MSG

sTRANSMIT A CHARACTER
JINCREMENT CHARACTER CODE
sDECREMENT CHAR COUNT
sBR IF LINE NOT COMPLETE
;sSSUE CR,LINE FEED

aCRCSR
3%
#B81T7.,R1
QUTTST

JANY CHARACTER RECEIVED?
;BR IF YES
JFINISHED ONE PASS OF WRITABLE
;BR IF YES

JIF NOT WRITE NEXT LINE

aCRBUF

;CLEAR RECEIVER
;STUP TEST
JRESTART TEST IF

QUTTST

CHARACTERS?

CONTINUED

M
M

]
M
"

-MAIN.
MACY11 30A(1052)
19-APR-78
czoLoc P11
19-APR-78 11:41

3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3616
3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445

015266
015274
015302
015310
015312
015320

015326
015334
015336
015344
015352
015360
015366
015374
015402

015403

015410
015416
015424
015425
015432
015440
015446
015454
015462
015470
015476
015504
015506
015514
015522
015530
015532
015540
015546
015554

015555
015562
015570
015576
015604
015612
015620
015626
015634
015642
015650
015651
015656
015664
015672
015700
015704
015712

040503
020124
051523
000122
040503
020124
051523
000106
041524
047117
020124
042522
044124
020106
000
124
047504
052117
000
124
047504
052117
053440
042522
040503
020124
051523
000122
040503
020124
051523
000106
040503
020124
051523
000

11:44
PAGE 84
TERMINAL OUTPUT

SEQ 0084

TEST

020116
041501
052040

047516

EM1:

LASCIZ

/CAN NOT ACCESS

TCSR/

020116
041501
052040

047516
042503
052502

EM2:

LASCIZ

/CAN NOT ACCESS

TBUF/

051123
020105
046103
020104
052040
052506

042040
047516
040505
044527
052502
046114

EM3:

LASCIZ

/TCSR DONE

NOT

CLEARED

051503
042516
051440

020122
047040
052105

:
EM4

ASCIZ

/TCSR

DONE

NOT

SET/

051503
042516
051440
052111
042523
020116
041501

EMS:

.ASCIZ

/TCSR

DONE

NOT

SET

EM6:

.ASCIZ

/CAN NOT

ACCESS

RCSR/

051040

020122
047040
0523705
020110
000124
047516
042503
051503

020116
041501
051040

047516
042503
052502

EM7:

<ASCIZ

/CAN NOT ACCESS

RBUF/

020116
041501
046040

042503

047516

EM10:

<ASCIZ

/CAN NOT ACCESS LKS/

EM11:

<ASCIZ

/BITO OF

EM12:

<ASCIZ

/CAN NOT SET BITO OF

042503
051503

WITH

TBUF

FULL/

RESET/

051513

043117
020122
046103
043101
042522
040503
020124
044502
020106

052111
052040
047516
040505
042524
042523
020116
042523

03012¢
041524

020060
051503
020124
020122
020122
000124
047516
020124
047440
051123

047040
042514
052111
052040

EM13:

CASCIZ

/CAN NOT CLEAR BITO OF

042522
044504

047101
041440
041040
043117
000122
042523
020104

020124
047516

EM14:

<ASCIZ

/RESET

102

WITH

TCSR NOT

DID NOT

CLEAR AFTER RESET/

TCSR/

CLEAR BITO OF

TCSR/

MACY11 30A(1052)
-MAIN.
19-APR-78
czoLnc P11
19-APR-78 11:41

3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
34N
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
349
3492

3493
3494
3495
3496
3497
3498
3499
3500
3501

015720
015726
015734
015742
015745
015752
015760
015766
015774
016002
016010
016016
016024
016032
016040
016041
016046
016054
016062
016070
016074
016102

016110
016116
016124
016132
016135
016142
016150
016156
016164
016172
016200
016201
016206
016214
016222
016230
016236
016244
016252
016260
016266
016267
016274
016302
016310
016316
016322
016330

016336
016344
016352
016360
016363
016370

020124
020122
047440
051123
102

043117
020122
046103
043101
042522
040503
020124
044502
020106
000
103

052117
051101
020062
051503
042522
044504
020124
020122
047440
051123
102
043117

020122
046103
043101
042522
000
130
047111
050125

050040

052111
040503
020124
044502
020106
000
103

052117
051101
020066
051503
042522
044504
020124
020122
047440
051123
102

043117

046103
044502
020106

000
052111
052040
047516
040505
042524
042523
020116
042523
031124
041524

047101

041440

041040
043117
000122
042523
020104
046103
044502
020106
000
052111
052040
047516
040505
042524
042523
044515
042524
020124

044522
020131
020116
042523
033124
041524

047101
041440
041040
043117
000122
042523
020104
046103
044502
020106
000
052111
051040

11:44

PAGE 85

TERMINAL OUTPUT

SEQ 0085

TEST

040505
030124
041524
020062
051503

020124
020122
020122
000124
047516
020124
047440
051123

EM1S:

LASCIZ

/BIT2 OF

EM16:

.ASCIZ

/CAN NOT SET BIT2 OF

TCSR NOT

CLEAR AFTER RESET/

EM17:

LASCIZ

/CAN NOT CLEAR BIT2 OF

020124
047516
040505
031124
041524

EM20:

LASCIZ

/RESET

020066
051503
020124
020122
020122
027524

EM21:

LASCIZ

;BIT6 OF TCSR NOT CLEAR AFTER RESET/

020124
051122
052101
051117
000067
047516
020124
047440
051123

EM22:

LASCIZ

/XMIT

EM23:

LASCIZ

/CAN NOT

SET

047040
0642514
052111
052040

EM24:

LASCIZ

/CAN NOT

CLEAR

020124
047516
040505

EM2S:

LASCIZ

/RESET

020066
051503

EM26:

LASCIZ

/B1T6 OF

NOT

INTERRUPT

CLEAR

PRIORITY

BIT6 OF

DID NOT

TCSR/

BIT2 OF

TCSR/

BIT6 OF

TCSR/

CLEAR BIT6 OF

TCSR/

033124
041524

RCSR NOT

CLEAR

RC
RC
RD
RO
RE
RP
RS
RY

TCSR/

047040
042514
052111
052040

DID

AFTER RESET/

SC
SE
SE
SH
S1
SR
ST
ST
ST
ST
SW

SW
SW
SW
SW
SW
SW
SW
SW
SwW!
SW
SW
SW
SW
SW
SwW
SW
SW
SW
SW
SW
SW
S
SW
SWi
SW
SW
SW
1B
TBI
TC

-MAIN.
MACY11 30A(1052)
19-APR-78
czoLoc P11
19-APR-78 11:41

3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
. 547

3548
3549
3550
3551
3552
3553
3554
3555
3556
3557

016376
016404
016412
016420
016426
016434
016442
016450
016456
016464
016465
016472
016500
016506
016514
016516
016524
016532
016540
016546
016551
016556
016564
016572
016600
016606
01661«
016617
016624
016632
016640
016646
016654
016661
016666
016674
016702
016710
016716
016717
016724
016732
016740
016746
016747
016754
016762
016770
016776
017001
017006
017014
017022
017030
017036
017041

020122
046103
043101
042522
041522
052116
052120
020110
044522
000
103
052117
041040
043117
000122
040503
020124
020122
047440
051123
103
052117
051101
020066
051503
044124
032105
102

043117

047040

042514
052106
051505
114
052116
052120
020110
044522
000
103
052117
041040

043117
000
103
052117

051101
020066
051513
122

042040
052117
051101
020066
051513
104

11:44

PAGE 86

TERMINAL

OUTPUT

SEQ 0086

TEST

TC
TC

047516
040505
042524
0642523
051126
051105
053440
051120
054524

044440

052522
052111
047511
033440

EM27:

<ASCIZ

/RCVR

047101
051440
052111
051040

047040
052105
020066
051503

EM30:

LASCIZ

/CAN NOT

SET

020116
046103
044502
020106
000
047101
041440
041040
043117
020122
051040
000
052111
046040
052117
051101
051105
052105
051513
051105
053440
051120
054524

047516
040505
033124
041522

EM31:

LASCIZ

/CAN NOT

CLEAR

BIT6 OF

RCSR/

047040
042514
052111
051040
044527
051505

EmM32:

<ASCIZ

/CAN NOT

CLEAR

BIT6 OF

RCSR WITH

020066
051513
041440
040440
051040
000

EM33:

LASCIZ

/BIT6 OF

LKS NOT

044440
052522
052111
047511
033440

EM34:

LASCIZ

/LKS

047101
051440
05211

047040
052105
020066
051513

EM3S:

<ASCIZ

/CAN NOT SET

047101
041440
041040
043117
000
051505
042111
041440
041040
043117
000
040525

047040
042514
052111
046040

EM36:

<ASCIZ

/CAN NOT CLEAR BIT6 OF

052105
047040
042514
052111
046040

EM37:

LASCIZ

/RESET

020114

EM4O:

LASCIZ

/DUAL

046040

020124
020122
020122
000124

INTERRUPT WITH PRIORITY

BIT6 OF

INTERRUPT

DID NOT

RCSR/

CLEAR

LKS/

CLEAR BIT6 OF

ADODRESSING ERROR/

RESET/

AFTER RESET/

WITH PRIORITY

BIT6 OF

LKS/

<MAIN.
MACY11 30A(1052)
19-APR-78
czobLoc P11
19-APR-78 11:41

3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583

3584
3585
3586
3587

3588
3589
3590

359,
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613

017046
017054
017062
017067
017074
017102
017110
017116
017124
017127
017134
017142

017150

017156
017161
17166
017174
017202
017210
017212
017220
017226
017234
017242
017246
017254
017262
017270
017276
017303
017303
017310
017316
017324
017332
017337
017344
017352
017360

017364
017372
017400
017406
017414
017422
017430
017436
017444
017452
017460
017466
017471
017476
017504
017512
017515

042101
044523
051122
102
043117
047040
052105
051105
052105
103
052117
051101
020067
051513
102

043117
042040
047516
000124
052122
042524

020124
044522
020131
052122
042524
051524
020116
046102
122

052116
052120
047040
041503
122

052517
047111
050125
042522
044504
020124
051122
052122
042524
020124
047516
040505
044124
020067
051513
103

051040
040524
054524
130

051104
043516
051117
052111
046040
052117
040440
051040
000
047101
041440
041040
043117
000
052111
046040
042517
020124

020103
051122
052101
051117
000067
020103
051122
053440
044504
042105
041524
051105
042040
052117
051125
041524
046102
042524
000124
042523
020104
047111
050125
020103

051122
044504
02012¢
020122
041040
043117
000
047514
050105
044502
000
044515

11:44

PAGE 87

SEQ 0087

TERMINAL

OUTPUT

TEST

EM&LT:

LASCIZ

/BIT6 OF LKS NOT

047040
042514
052111

EMG2:

LASCIZ

/CAN NOT CLEAR BIT7 OF

020067
051513
020123
042523

EM4LTS:

CASCIZ

/BIT7 OF

047111
050125
050040
052111

EM4LS:

.ASCIZ

/RTC

INTERRUPT

047111
050125
042510
040523
000

EM4S:

LASCIZ

/RTC

INTERRUPTS WHEN

EMLG7:
EM46:

.ASCIZ

/RTC

INTERRUPT

EM50:

LASCIZ

/RTC

DOUBLE

EMS1:

LASCIZ

/RESET

EMS2:

CASCIZ

/RTC

045503
040505
044514

EMS53:

CASCIZ

/CLOCK

REPEATABILITY/

020124

EMSS

LASCIZ

/XAIT

INTERRUPTS WHEN DISABLED/

051505
042440
000
020066
051513
051440
052106
051505

SET AFTER RESET/

LKS/

046040

044440
052522
042111
047440
000
062040
020105
051122
020124
047516
0642524
000124
047111
050125
020104

LKS DOES NOT

DID

SET/

PRIORITY

DISABLED/

DID NOT

OCCUR/

INTERRUPT/

NOT

INTERRUPT

INTERRUPT/

DID NOT

CLEAR WITH BIT? OF

046103
044527
052111
046040

LKS/

MAIN,
MACY11 30A(1052)
19-APR-78
czoLoc P11
19-APR-78 11:41

3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669

017522

017530

017536
017544

017552
017553
017560
017566

017574
017602
017610
017611
017616
017624
017632

017640

017646
017653
017653

017660

017666
017674
017702
017710
017716
017724
017726
017734
017742
017750
017756
017764
017772
017773
020000
020006
020014
020017
020024
020032
020040
020043
020050
020056
020064
020072
020100
020106
020111
020116
020124
020132
020140
020146
020147
020154

047111
050125
042510
040523
000
130
047111
050125
020124
044522
000

11 :44

PAGE 88
TERMINAL OUTPUT

SEQ 0088

TEST

$EF

042524
051524
020116
046102

051122
053440
044504
042105

044515
042524
051524
051120
054524

020124
051122
040440
047511
033440

EM56:

LASCIZ

/XMIT

INTERRUPTS

130

044515
042524
051524
020110
0642514
051101

020124
051122
353440
047105
041440
000

EM57:

LASCIZ

/XMIT

INTERRUPTS

WITH

130
044504
020124
051122
046530
026505
051122
000104
047514
020107

044515
020104
047111
050125
052111
047111
050125

020124
047516
042524
000124
051040
042524
042524

EMSS:
EM60:

LASCIZ

/XMIT

DID NOT

EM61:

.ASCI12Z

/XMIT

RE-INTERRUPTED/

042101
041124
042111
041440
044440
052522

047111
043125
047040
042514
052116
052120

EM62:

LASCIZ

/LOADING TBUF

053103
044524
052117
000
053103
042516
051105
000
053103
044574
052117
051101

020122
042526
051440

EM63:

.ASCIZ

/RCVR

020122
047040
051440

EM64:

LASCIZ

/RCVR DONE

020122
042526
041440
042105
020110
051440

EM6S:

.ASCI2Z

/RCVR

052105
047040

EM66:

.ASCIZ

/RESET

042640
020105

EM67:

LASCIZ

/RDR ENABLE

047111
050125
052111
041101
042514

042040

052117
051101
051105
000
122
041501
047040
052105
122
047504
053105
052105
122
041501

047040
042514
053440
047504
052105
122
042040
052117
051101
020122
000
122
040516

052111
04251¢
000
051505
042111
041440
051040
047504
051104
046102

czt
$E1

S$E1
$F4

ACTIVE

PRIORITY

CLEAR/

INTERRUPT/

DID NOT

NOT

SET/

NEVER

SET/

ACTIVE

ENABLE

NOT

CLEAR

INTERRUPT/

CLEARED WITH DONE

SET/

$0(

DID

NOT

CLEAR

RCVR

DONE/

042514
053103
042516

DID NOT

CLEAR RCVR

DONE/

$0\
$PA
$P/
$PC
$Ph
$P
$P4
$QL
$RC

LMAIN.
MACYI1 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:41
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725

020162
020170
020176
020204
020212
020220
020226
020234
020242
020250
020256
020257
020264
020272
020300
020306
020314
020321
020326
020334
020342
020350
020356
020357
020364
020372
020400
020406
020414
020422
020426
020426
020434
020442
020450
020455
020462
020470
020476
020501
020506
020514
020522
020530
020536
020544
020546
020554
020562
020570
020576
020604
020611
020616
G20624
020632

044504
020124
020122
042040
042522
020107
042040
052117
051101
020122
000
122
047111
050125
052111
041101
042514
122
047111
050125
020124
044522
000
122
047111
052123
042523
044124
046102
040505
041522
042111
044440
052522
122
042522
051105
042105
122
043516
020106
047516
040505
042524
000124
042522
044504
020124
020122
044440
052522
047
046106
042111
051440

11:44
PAGE 89
TERMINAL OUTPUT TEST

020104
046103
041522
047117
042101
041122
042111
041440
051040
047504

047516
040505
051126
000105
047111
043125
047040
042514
053103
042516

053103
042524
051524
020110
042514
051101
053103
042524
051524
051120
054524

020122
051122
053440
047105
041440
000
020122
051122
040440
04751
033440

053103
020124
050040
020104
042440

020122
050522
051501
044527
040516

020105

000122

SEQ 0089

EM70:

.ASCIZ

/READING RBUF DID NOT CLEAR RCVR DONE/

EM71:

_ASCIZ

/RCVR INTERRUPTS WITH ENABLE CLEAR/

EM73:

.ASCIZ

/RCVR INTERRUPTS AT PRIORITY 7/

EM74:

.ASCIZ

/RCVR INT RQST PASSED WITH ENABLE

EM72:
EM75:

_ASCIZ

/RCVR DID NOT

EM76:

.ASCIZ

/RCVR RE-INTERRUPTED/

CLEAR/

046103

051126
047040
052116
052120
053103
044455
052522
000
040505
051040
044504
020126
020122
051122

042040
052117
051105
000
020122
052116
052120

INTERRUPT/

044504
052502
020104
046103
047111
050125

EM77:

_ASCIZ

/READING RBUF DID NOT CLEAR INTERRUPT/

04252
020106
046103
041522
052116
052120
051117
043501
047040
052105

020124
047516
040505
051126
051105
000
020047
042040
052117
000

EM100:

.ASCIZ

/RESET DID NOT

EM101:

_ASCIZ

/'OR'

CLEAR RCVR INTERRUPT/

FLAG DID NOT SET/

-MAIN,
MACY11 30A(1052)
19-APR-78
cZoLopC.P1
19-APR-78 11:41

3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774

3775
3776
3777
3778
3779
3780
3781

020637
020644
020652
020660
020666
020674
020676
020704
020712
020720
020726
020734
020742
020750
020756
020764
020771
020776

021004
021012
021014
021022
021030
021036
021044
021052
021060
021066

021074

021102
021104
021112
021120
021126
021134
021142
021150
021156
021164
021172

021174
021202
021210
021211
021216
021224
021232
021240
021246
021247
021254
021262
021270
021276
021304
021306

047
023522
051440
052111
023522
000107
051102
044504
020124
040440
051105
051102
044504
020124
043047

051122
104

047503
020105
000122
040504
046517
042440
053440
040503
044524
020124
042530
051105
000124
047111
041505
042503
047503
040504
046517
042440
044440
051105
000122
051124
052101
000
116

020113
051122
047111

041522

051105
047040
052105
020110
043040
040505
020104
046530
046114
042517
040505
020104
042523
023522
051117
052101
050115
051105

11:44

PAGE 90

SEQ 0090

TERMINAL OUTPLT

TEST

047522
052117
053440
047447
040514

EM102:

LASCIZ

/'ERROR' NOT SET WITH

020113

EM103:

LASCIZ

/BREAK

DID

EM104:

.ASCIZ

/BREAK

DID NOT

EM10S:

.ASCIZ

/DATA

COMPARE

ERROR/

EM106:

<ASCIZ

/DATA

COMPARE

ERROR

EM107:

.ASCIZ

/TIMEOQUT

EM110:

LASCIZ

/INCORRECT

EMI111:

JASCIZ

/DATA COMPARE

047516

0521
055040
000123
020113
047516
020124
042440
000
020101
051101
047522

NOT

'OR'

FLAG/

XMIT

ALL

ZEROES/

SET

'FR'

ERROR/

040524
040520
051122
052111
046102
042515
047111
041522
052040

041440

047503
020124
053111
047125
040524
040520
051122
020116
044503

051122
042522
020105
000124
041440

051117
0564105
042523

050101
044103

041440
051105

EM112:

+ASCIZ

/TRAP

020117
047111
050125
042440
051511

046103
042524
020124
042530
051105

EM113:

ASCIZ

/NO CLK

051105
047040
052105
020110
043040

047522
052117
053440
043042
040514

EM114:

CASCIZ

/"'ERROR'* NOT SET WITH "'FR'" FLAG/

020126

041501

EM11S:

ASCIZ

/RCV ACTIVE

042522
051117
020110
000105
052517
042440
051511
051505

042522

WITH

IN EXERCISER

RECEIVE

CABLE/

TEST/

COUNT/

ERROR

IN EXERCISER/

CATCHER/

INTERRUPTY

NOT

[N EXEACISER/

CLEAR WITH

INIT/

MACY11 30A(1052)
RAIN,
19-APR-78
CZoLDC.PN
19-APR-78 11:41

3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837

021314
021322
021330
021336
021344
021345
021352
021360
021366
021374
021402

021404
021412
021420
021426
021434
021442
021450

021451
021456
021464
021472
021476
021504
021512
021520
021523
021530
021536
021544
021550
021556
021564
021572
021575
021602
021610
021616
021621
021626
021634
021642
021650
021655
021662
021670
021676
021704
021712
021720
021722
021730
021736

021744
021752

044524
052117
051101
020110
000
122
052103
044527
020124
052122
000124
042122
041101
052117
051101
020110
041501
000
124
020040
051117
051503
042524
020040
041520
043125
124

020040

050040
051503
042524
020040
041520

043125
124
020040

050040

051513
124

020040
050040
047517
041040
124
020040
050040
051513
041440
020040
000062
042524
020040
041520
051123
040504

11:44
PAGE N
TERMINAL OUTPUT TEST

SEQ@ 0091

042526
041440

053440
047111

047040
042514
05211
052111

053103
053111
044124
051442
020042

040440
020105
052517
040524
044502

EM116:

.ASCIZ

/RCV ACTIVE WITHOUT

020122
042514

EM117:

_ASCIZ

/RDR ENABLE

044524

047105
047040
042514
05211
020126

042526

051505
042440
020043
000122
052123
051105
020040
000
051505
042440
020103
000122
052123
051105
020040
000
051505
042440
020103
000
051505
042440
020103
020104
042101
051505
042440
020102
020040
052116
041440

021524
051122
052040

DH1:

.ASCIZ

020043
020122
041124

DH2:

ASCIZ

021524

DH6:

020043
020122
041122

041440

053440
041522

052123
051105
020040
020040
040524

NOT

''START'' BIT/

CLEAR WITH RCV ACTIVE/

ERROR#

TCSR/

/TESTH

ERR PC

T8UF/

LASCIZ

/TESTH

ERR PC

RCSR/

DH7:

LASCI2

/TEST#

ERR PC

RBUF
/

021524
051122
046040

DH10:

ASCIZ

/TEST#

ERR PC

LKS/

021524
051122
043440
020040

DH4O:

LASCIZ

/TEST#

ERR PC

600D

BAD/

021524
051122
046040
020040
020061
052116

DHS53:

ASCIZ

/TEST#

ERR PC

LKS

020043
020122
041522
020040
000

DH103:

LASCIZ

/TESTH

ERR PC

RCSR

DATA/

051122
051040

000

CNT2/

MACY11 30A(1052)
19-APR-78
RAIN,
19-APR-78 11 <1
czoLoc.pP1

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
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890

3891
3892

021757
021764
021772
022000
022006
022014
022022
022023
022030
022036
022044
022052
022060
022066
022067
022074
022102
022110
022116
022124
022132

N :44
PAGE 92
TERMINAL OQUTPUT

SEQ 0092

TEST

051505
042440
020103
020122
047517
041040

021524
051122
051046
020040
020104
042101

DH105:

.ASCIZ

/TEST®

ERR

P(C

R(SR

6000

BAD/

051505
042440
020103
020122
040522
051040

021524
051122
051040
020040
051516
053103

DH110:

.ASCIZ

/JTEST®

ERR

KRC(SR

TRANS

RCV/

021524
051122
051040
020040
041520
040522
000122

DH112:

.ASCIZ

/1EST®

ERR

RCSR

oLoP(

TRAP ADR/

020040
020120

051505
042440
020103
020122
042114
052040
042101

L2140
022146

005015
026504

055103
000103

046104

.EVEN
LASCIZ

<CR><LF>/CZIDLD-C/

022152
022154
022162
022170
022176

005015
020040
041511
042116
051505

042040
051505
051105
020124

053105
052440
052040
000040

022204
022212
022214
022222
022224
022232
022234
022242
022244
022252
022254
022262
022266
022274
022302
022310
022314
022322
022330
022336
022344
022352

001072
000000
001072
000000
001072
000000
001072
000000
001072
000000
001072
001022
001072
006600
001072
001026
001072
001024
001072

001016

124

020040
050040
051503

043440
020040

000
126
020040
050040
051503
052040
020040
000
124
020040
050040

051503
047440

011730
001072
012300
000001

.EVEN

MoA:

IASClz

<CR><LF>
/
DEVICES

002352

DT1:

:Sggg

STESTN,SERRPC,TCSR,0

001016

002354

012:

.WORD

STESTN,SERRPC,TBUF,0

001016

002346

DT6:

.WORD

$STESTN,SERRPC,RCSR,0

001016

002350

DT7:

.WORD

STESTN,SERRPC,RBUF
,0

001016

002406

DT10:

.WORD

STESTN,SERRPC,LKS,O

001016
000000
001016
006602
00101¢
000000
001016
001026
001016
011726
001016
012302

001020

DT40:

.WORD

STESTN,SERRPC,SGDADR,$BDADR,0

002406
000000
002346

DT53:

.WORD

STESTN,SERRPC..KS,FIRST,SECND,O

DT103:

.WORD

STESTN,SERRPC,RCSR,$BDDAT,0

DT105:

.WORD

STESTN,SERRPC,RCSR,SGDDAT ,$BDDAT,0

DT110:

.WORD

$TESTN,SERRPC,RCSR,XMTCNT ,RCVCNT,0

DT112:

.WORD

$TESTN,SERRPC,RCSR,OLDPC,BDVECT,O

002346
000000
002346
000000
002346
000000

.END

UNDER

TEST

-MAIN.
MACY11 30A(1052)
19-APR-78
czoLoc.P?
19-APR-78 11:41

T B

DEVCTY

| O

| =

»
o
o

T IO [ I

[ I

/RO

TI T A

ABASE =
ACDWY =
ACOW2 =
ACPUOP=
ADDWO
ADDW1

176500
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000090
000000
003562
002414
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000040
000001
000200
000100
003266
000000

000000
000000
000400
000300

000000
DVECT ‘912302
[}

A
L

)

S374
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650

13144
11394
650
650

650
650
650
650
650
650
650
650
650
650

650
650
650

11:44
PAGE 94
CRCSS REFERENCE

650
665

656
692
1317
1145
661
662
653
678
682
€85
688
672
680
683
686
658
659
652
673
681
684
687
655

650
650
650
650
650
29554
2731
1207
2912

2988
2910
29524
29544

650
650
S394
5384
650
2697+

654
657
650
650
690
27034

1218
650

691

1220
663

1312

29534

2983

12454

664
689

3890

2981

¢
TABLE

=-~ USER

SYMBOLS

SEQ 0093

LMAIN.
MACYNT 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:41

BIT3
IT6
BITS
BIT6

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

=
=
=
=

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

000010
000020
000040
000100

= 000200
=
=
=
=

000400
001000
000003
000014
011742
012254
= 104406
011720
011732
006536

011560
005566
010724
= 000015
002370
002366
= 000200
002400
002376
002374
002372

2359
515#
3330

5144
5134
542#
5294
2551
553

2741
2541
2580
1964

2420

2742
1723
2431
2118

SYMBOLS

1492

1493
2437

2441

21N
2322
2482

2196
2326
2544

1597
1693
1856
2016
2251

1599
1699
1874

2424

2144

2154
2264
2436

1537
2158
2267
2441

1542
2168
2285
2462

1543
2180
2289
2479

1282

1420

1724

1977

1591

1592
1692
1846

1768

1585
1675
1824
1989
2208
2545
1769

2400

2433

1536

2591
1584
1657
1801
1948

2207
2543

1498

1499

1510

1512

1514

2167

2172

1560

2106
2217
2376

2113
2220
2383

2124
2228
2403

2131
2233
2415

1616

1626
1704
1892

1706

1627

1634
1736

2079
2350

2490

2881

2128

2726
2865
2447

SEQ 0094

=-- USER

2609

1682
1832
2002
2226
2546
17N

2007
2232
2559
1772

3350

1555

1557

1800

2023
2259
2611
1823

3352

3354

2578

2209
2351

1700
1885
2030
2290

2047
2301

2056
2321

1899

1633
1735
1914
2066
233

1855

1891

1920

1924

3860

3863

26314
32964
26274

2588#
1778»

2411
4374
11264
1125#
«38#
11304
1129#
11284
11274

3027
3313
1293
3037

3312+
3372

1701
17102
1703
17104
1705
IT06
1707
1708
17109
IT1
IT10
IT11
IT12
IT13
IT14
1T15
IT2

1481

TABLE

WO
—=
00 \N
o~

BITO0 = 000001

1287#
522#
2177
5124
5114
510#
5094
508#
507#
506#
SO5#
S04n
5034
521#
502#
501#
500#
4994
498#
497
520#
2140
2247
2420
S19#
518#
S17#
S516#
1640
1760
1928
2084

3348

BEGIN
003424
8170
= 000001

11:44
PAGE 95
CROSS REFERENCE

3381

33431

3374+

1921

LMAIN.
MACY1T 30A(1052)
19-APR-78
CZoLbC.P1
19-APR-78 11:41
CTPSW
CTSTFL

002404
002336

002402
177570
002514
021451
021575
021722
021757
022023
022067
021476
021621
021655
021523
021550
001042
000174
177570
022204
022244
022302
022314
022330
022344
022214
022254
022266
022224

022234
003314
014762
000030
015266
015532
020546
020611

020637
020676
020734
020771
021014
021052
015555
021104
021134
021174

11324
1108#
1673
11314
44N
11454
713
798
748
908
1044
1054
1069
1079
718
868
923
738
998
1099
743
6334
563#
4430
714
799
749
909
1045
1055
1070
1080
719
869
924
739
999
1100
744
1251
568
5324
712
747
1027
1033

1038
1043
1048
1053
1058
1063
752
1068
1073
1078

11:44
PAGE 96
CROSS REFERENCE TABLE ~- USER SYMBOLS

SEQ 0095

1160+
1758

1213«
1790

1292+«
1844

1339
1883

1361
1912

1385
1944

1399
2537

1483
2576

1501
2640

1526

1546

1655

633
1222
723
803
843
913
3833#
1059
38454
38524
38054
3821#
3826#
818
1003
1104
38134
1195+«
1203
632
724
804
844
914
38844
1060
3888#
38904
38724
3880#
38824
819
1004
1105
38764
12534
33074
1179+
33924
34244
37164
37224

1195
1253
728
808
848
918

733
813
853
1084

753
928
858
38174

758
933
863

763
938
873

768
943
878

773
948
883

778
953
888

783
958
893

788
3801#
898

793

1074

38384

37264
37324
37374
37424
37464
3751#
3428#
37564
37604
37664

823

828

833

1008
3809#

1013

1018

1203+«

2721+

2892+

1194
729
809
849
919

734
814
854
1085

1075

3886#

824
1009
3874w

829
1014

3336
1180+

838

963

968

973

978

983

988

903

993

1023

1028

1034

1039

1049

1064

1089

1094

754
929
859
3878«

759
934
864

764
939
874

769
944
879

774
949
884

779
954
889

784
959
894

789
38704
899

794
904

834
1019

839
1024

964
1029

969
1035

974
1040

979
1050

984
1065

989
1090

994
1095

LMAIN.
MACYT 30A(1052)
19-APR-78
CZoLDC.P1
19-APR-78 11:41

EM13
EMI14
EM115
EM116
EMiI17
EM12
EM13
EM14
EM1S
EM16

021211
021247
021306
021345
021404
015620
015651
015704
015745
016010

EM2
EM20
EM21
EM22
EM23
EM24
EM25

015312
016074
016135
016201
016236
016267
016322

EM?7

M26

016041

016363

EM27
EM3
EM30
M3
EM32
EM33
EM34
EM35
EM36
EM37
EMé
EM4O
EM4
EM42
EM43
EM&4

016426
015336
016465
016516
016551
016617
016661
016717
016747
017001
015403
017041
017067
017127
017161
017212

EM46
ms7

017303
017303
015425
017337
017364
017414
017471
017515
017653
017553
017611
015462
017653
017702
017726
017773
020017
020043
020111
020147

EM&LS

M5
M50
M51
M52
m53
M54
msS
M56
ns7
Mé
M60
Mé1
n62

M63
Mé4
M65
M66
m67

017246

1083
1088
1093
1098
1103
757
762
767
772
77
782
717
787
792
797
802

807

812

317
822
722
827
832
837
842
847
852
857
862
727
867
872
877
882
887
892
897
902
732

907

912

917
922
927
932
937
942

737

947

952
957
962
967
972
977
982

11:44
PAGE 97
CROSS REFERENCE

37694

37754
37814
37874
37934
34344
34394
3444H

34504
34564
34614
33964
34664
34724
34794
34844
34894
34944
35004
35064
34004
35124
35174
35224
35294
35354
35414
35464
35514
34074
35574
35614
35674
35724
35774
3582#
35884
35874
34114
35934
35974
36014
36094
36134
36314

36194
36254
34164
36324
36364
36404
36474
3651#
36554
36624
36684

TABLE =-- USER

SYMBOLS

SEQ 0096

.MAIN.
MACY11 30A(1052)
19-APR-78
czoLoc.P1N
19-APR-78 11:41

EM?
EM70
EM71
EM72
EM73
EM74
EM75

015506
020212
020257
020426
020321
020357
020426

EM76

020455

ENDEV
ENDMG
ERRVEC=
FIRSY

012052
012172
000004
006600

EM77

GNS

020501

222X
2

GOAGIN
012206
GTSWR = 104405

= 000011

ID
004056
INIT
003112
I0TVEC= 000020

|LF

LKS

= 000012

MANL
MF R
OR
PAR
MSG
MSTOP
1

2
2A
LDPC
OUTTST

002406

003132
015145
015157
015134
015106
015172
022140

022152
022154
012300
015202

PIRQ
=
IRQVE=
RO
=
R1
=
R2
=
R3
=
R4
=
RS
=
R6
=
R7
=
S
=
SW
=
WRVEC=
RBUF

177772
000240
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
000024
002350

RCSR

002346

11:44
PAGE 98
CROSS REFERENCE

742
987
992
997
1002
1007
1012
1017
1022
2605
2663
5254
1965+
3289

34204
36744
36814
37004
36874
36934
3701#
3705#
37094
26364
26764
1192
1967
3290

3291

1204+
3882
3292

4354
1214
1212

2996
1395

3037
1402

14104

2676

3031

2673
3294#

5304
4364
11354

1771«
1856+
1953+
1216

3324
3329
3319
3318
3334

16417
1419
1284+

2698+
569

4420
5364
4594
4604
4614
4624
4634
1317|
4654
4664
L39»
4400

5314

11154

3876

11144

2118
2208+
2350+
3890

26794

12154
1177+
1661
1772
1857
1954

12194
33504
33524

33484
3323
33544
38604
38634
38644
27024
33704

1193+
19814

1178+

3037

8
SYMBOLS

2870

2871+

2873+

2876+

3294

3296

3297

3298

3348

3352

3354

3878

3882

1692+
1800+
1891+
1957

1693
1801+
1892+
1960+

3350
1699+
1802
1893
2543

3328

3333

3339«

3378

3890
3384

3389

2810+
2384

2819+
2389

2827+
2407+

1626+

1627
2167+
2259+
2468

1682
1778
1874
1956+

SEQ 0097

TABLE =-- USER

1700
1810+
1899+

3860

3863

1726
1824+
1922

1763
1825
1924+

1768+
1832+
1928+

1769
1855+
1948+

2836+
2418

2837+
2442

2447

2470

2507

2617

1633+
2170
2287
2500

1634

10‘2

1728
2193

2109
2197
2331
3888

1704
1814
1920+

1706
1823+
1921«

440
1183«
1462

1294
2128

2215
2353

2809+
2327+
1448

2144
2232+
2405

1616

2151
2249
2410

2158+
2251
2439

2172
2290+
2546+

1640+

2177+
2301+
3874

2178
2321
3884

2324
3886

19-APR-78
MACY11 30A(1052)
CZoLdC.P1N
19-APR-78 11:41
MAIN.

RCV
011704
RCVCNT
011726
RDCHR = 104407

ROLIN =
RESVEC=
RPSW
RSTRT
RTCPSW
RTCVT

104410
000010
002360
012232
002412
002410

RVECT

002356

SCPSW
SECND
SETADR
SHIFT
SIZE
SRPSW
STACK =
START

011740
006602
003530
003370
003142
011736
001100
002546

STKLMT= 177774
STPSW
011734
SWR
001040
SWREG
000176
Sw0
= 000001
SW00
= 000001

SW01
SW02
Sw03

= 000002
= 000004
= 000010

Sw04
SW05
Sw06

= 000020
= 000040
= 000100

SWw1

= 000002

Sw07
Sw08
Sw09

= 000200
= 000400
= 001000

Sw10
=
SWw1l
=
SWi2
=
sWw13
=
SWi4
=
Sw15
=
Sw2
=
Sw3
=
Swé4
=
SW5
=
Swé
=
Sw7
=
Sw8
=
SWw9
=
TBITVE=
TBUF
TCLOCK

002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000014
002354
005056

2535
2548
3229
3298#
5264
11194

2681

11374
11364
188$
11184
2281+

11:44
PAGE 99
CROSS REFERENCE

26174
2565
3297#
2280
26854
1797
1678
1890+
1612

3888

2282+

2303+

2531

2536+

2603+

1799+
1679+
1905+
1613+

1834+
1711
1918
1647+

1850
1796
1919+

1852+
1798+
1935+

1876+
1811+

2532+

2531+

2603

26294

4304
567
Lo1n

2530+
6324
1760

2578

5644
L94n
484N
483#
4824
4814
4804
4794
4784
YU
L764
4754
4934
4744
4734
4724
4714
4704
469#
4924
4910
4900
4894
4884
4“874
4864
4854

5274
11174

2248+
1422

SEQ 0098

TABLE =-- USER SYMBOLS

2625#

2302+
26304
3882

19824
13084
1283

2618+

2297+
2604

1974+
1302
12744
12224

2309+

2210
2319

2211+
2320+

2529
2225+
2337+

1196
1885

1202+
1914

1209+
1946

1211
1977

2532

1822+

2541
2235«
2348

2542+
1833+
2601+
2245
2349

2604+
1849

1851+

1864+

1875+

2246
2366«

2260+
2528

2271+
2535+

2279
2600+

11574

2602
1173
1792

2726
1202

26284
1194+
1846

2738
3126

2742
3139

1219

2817

2829+

2865

2373
2881

1429+

1432+
2404+

2085+
2438+

2088+
2467+

2400
3126

1420

1478
2431
3163

2433

2490

2539

2108+
2498

2135+
2552+

2169
2613

2192+
3872

2214+

1657

1675

1724

494

493

492
491
490
489
488
487
486
485

1357
2286+
16504

1376+

2323

1381+

2352+

2378+

JMAIN,
MACYTY 30A(1052)
19-APR-78
19-APR-78 11:41
CZoLbC.P1N
TCONS
TCSR

003450
002352

11:44
PAGE 100
CROSS REFERENCE

1290

1377
1523
1597+
2066«
2180+

11164
1512
1591+

TPVEC

= 000064

TRAPVE=
TRTVEC=
TSTDEV
TSTOVM
ST
TST10
TST11
TST12
TST13
TST14
TST15
TST16
TST17
TST?
TST20
TST21
TST22
TST23
TST24
TST25
TST26
TST27
TST3
TST30
TST31

TST32
TST33

TST34
TST35
TST36
TST37
TST4
TST40
TST41
TST42
TST43
TST44
TST45
TSTS
TST6
TST7

000034
000014
003500
003276
003622
004424
004572
004724
005064
005134
005304
005474
005602
003674
006020
006166
006302
006430
006604
006704
007016
007144
003746
007250
007470

007560
007626

007776
010140
010306
010422
004126
010530
010626
010750
011054
011154
011252
004162
004214
004246

1394
1537
1989+

=-- USER

1430
1542+
1992
2086

SEQ 0099

SYMBOLS

2207+
2326+
2462+

1435
1543
2002+
2092+
2209+
2351+
2479

2007«
2106x
2217«
2376%
2482+

2113«
2220+
2379
2544
2680

1481
1555+

2437+

1304+

'231
“301

1310
1241+
1303+

1311+
1245+
1309+

1249+

1269

2638

2049

2051«

2073«

2530

2534

2602+

1182+

1306

2641

13324

2683

15684
16724
17174

1779

1789#

18434
18824
19114
19434
1978

1988#

21654
21894
22064

1621

14284

23994
24304
2434

24584

2512

25234

14457

TABLE

2084
2196+
2322+
2441

2285«
2L34n

TKVEC = 000060
TMP1
002340
TMP?
002342
TMP3
002344
TOLER
006550
TPSW
002364

1382
1536+
1599
2079+
2191+
2289

1492+
1557
2016+

1493
1560+
2021
2124+

2228+
2383«
2545+

1498+
1574

2023+
2131«
2233+
2403+
2559

1499
1584+

2030+
2140+
2247
2408+

2611+

1510+
1585

2047+
2146+
2254+
2415+
3870

MACY1T 30A(1052)
.MAIN.
19-APR-78
cZoLbC.P11
19-APR-78 11:461
TVECT

TYPE
TYPOC
TYPON
TYPOS

002362

11204
2050+
1616
3097
2772
3292#
32914
1243
11404
13204
21094
33414
21364

104401

104402
104404
104403
003320
002454
003602
007270
015114
007376
012242

007340
011674
011650
011730
011700
000500
1882821

013176
013152
013160
013170
001034
001142
001022
001026
013676
014130
001000
000000
014655
014650
001114
001063
001076
001144
012162
012152
012132
012166
001106
001107
012102
012124
001003
001015
012304
001016
001146
012466

11:44
PAGE 101
CROSS REFERENCE

1570
2062+
1418

3137
2796

1680

1344
6294

1604+
2082
2729
3141
3290#

1990
2083+
2764
3154

1794

1991+

2098+
2781
3165

2001+
2527
2783
3184

2009+
2533+
2786
3233

2019
2599+
2788
3236

1887

1896
2261

2283

29044

2020+

2031+

2040+

2048

2792

2799
32894

2841

3001

1916

1925
2298

1936
2317

2328

3882

3884

3240

6244
6264
3003+

31264
6124
6424
3157
3154
6654
644N
6564

2063
2553

1812
2080
26884

2607+

26264

3888

1390

1404

1488

1506

1532

1551

1390

1404

1488

1506

1532

1551

2734

1227
1730+
2478
3020

1235
1731

2515¢
3029+

1733+
2595+
30344

1734
3884

1735+
3886

1738«

3880

1179

1185

1186

2764

2783
2637+

2788
2638

2792
2679+

3002

3037

3165

3249

3380

1289

1301

2910
2912

2934
2983

2981
2988

2879
2895

2885+

2895

2725

2770

3870

3872

3874

3876

3878

3880

1614

1230+

6920

2659
578

26714
2749

26744
6614
662#

2731

1185

1217

1979
1185+

26524
2662
2856
2891+

6154
6214
1179
622#
3886

2724+
3890
27634

1853
2089

2052
2525

3255

6914

2728

SEQ 0100

TABLE =-- USER SYMBOLS

3345

2017
2346
2125#
2610
2533
2547+
2612
591
1344
2903
2901#
2902#

709#

1319

1572

1571«
2072+
2663
3138
3140

1233+

1240+

1246

2243

1994

LMAIN.
MACY11 30A(1052)
19-APR-78
CZbLDC.P1Y
19-APR-78 11:41
SERTTL
SESCAP
SETABL
SETEND
SFATAL
$SFFLG
SFILLC
$FILLS
$GDADR
$GDDAT
$GET42
$SGTSWR
SHIBTS
SICNT
ILLUP
$INTAG
SITEMB
SLF
SLFLG
SLPADR
SLPERR
$MADR1
MADR2
MADR3
MADR4
SMAIL

001012
001060
001106
001146
001070
013416
001056
001055
001020
001024
012142
014200
000500
001004
012762
001035
001014
001064
013415
001006
001010
001120
001124
(001130
001134
001066

6194
6424
6604
603
6534
2901+
6404
6394
6234
6254
26644
31384
598#
6164
2809
6304
6204
6454
2942+
617#
618#
678#
6824
685#
6884
599

SMAMS2
MAMS3

001122
001126

6804
6834

$MAMS1

001116

6724

MAMSS
MBADR
MFLG
SMNEW
MSGAD
MSGLG
MSGTY
SMSWR
SMTYP1
MTYP2

001132
000502
013414
014673
001102
001104
001066
014662
001117
001123

6864
S99
2902+«
3141
6584
6594
6524
3138
6734
6814

MTYP4
NULL
SNWTST=

001133
001054
000001

6874
638#
13294
17540

MTYP3

SOCNT
$OMODE
SOVER
$PASS
$PASTM
POWER
PWRDN
PWRMG
PWRUP
QUES
SROCHR

001127

014124
014126
013136
001074
000506
012770
012622
012756
012674
001062
014412

11:44
PAGE 102
CROSS REFERENCE

2722+
1186+
6934
1157+
2904+
3006
3037
1726+
1734+

K
TABLE

2745

2747

2890+

2938+
2932
3037

2941+

29494

1729

1731
2514+

2596+

1728+
1738

2477

SEQ 0101

-- USER SYMBOLS

1736

3880

3886

3294
2827
3166

28444
3255

2725+
3037
29484
1188+
1189+

2733
3240

2767
3249

2883+
2744

2888+
2883

2893
2889+

2895
2895

603

6514

1206

2887

2981

2908
3253#
2918+
2923+
1158+
3251#

2943+

29474

2924+

2936

2939+

3008
1351#
17864

3037
13724

14254
18794

1642#
1908#

14564
196404

2921

2916

684#

22034

3069+
3064
2866
6554
6014
2842
1183
28424
2819
6434
31974

22384

3098+
3068+
2884
1206+

18404

22740
3111
3073
2892#
1412

28474
28094

2836

28274
3037

3184

3297

23124

23418

23694

3076+

3087+

3113#

2655+

2656

2674

3233

3249

147484
19854

23964

15184
20124

24274

15654
20434
24554

16074
20754
24864

16514
21014
25204

16694
21624

17148
21864

MAIN.
MACY11 30A(1052)
19-APR-78
czoLbC.P1N
19-APR-78 11:41
SRODEC=
SROLIN
SRDOOCT=
$RDSZ =
SRTNAD
SR2A
=
SSAVRE=
$SAVR6
$SCOPE
$SETUP=
$STUP =
$SVLAD
$SVPC =
$SWR

wwewsr |
014532
trees |
000010
012164
wrrerr
wewers |
012766
013000
000137
177777
013102
000500
161000

3299
3225#
3299
3218¢
26734
3299
3299
2818+
1177
S60#
5604
2874
5764
S61#

1522
2016

2431
2865

$SWREG
001110
$SWRMK= 000000
STESTN
001072

6634
2860
6544

$TKB
$TKS
$TN

6354
634n
5404
1474

001046
001044
= 000046

3890

1714
19444

$TPB
STPFLG
$TPS
STRAP

$TRAP2

001052
001057
001050
014704

014726

$TRP
= 000011
STRPAD
014740

$TSTM

TSTNR
STTIYIN
STYPBN=
TYPDS=
TYPE

$TYPEC
$STYPEX
$TYPOC

TYPON
TYPOS

UNIT
SUNITM
USWR
VECT1
VECT2
XTSTR
$GET4=
OFILL

000504

001002
014640
ttrees |
stwwan |
013420

013632
013700
013726

013742
013702

001100
000510
001112
001136
001140
013012
000000
014125

2186
23734
6374
6414
636#
1181

32774

32814
32N

600#

6144
3226
3293
3293
2929

3005
3030
3067#

3066
3062#

6574
6024
6644
6894
6904
28684
26664
3063+

11:44
PAGE 103
CROSS REFERENCE

SEQ 0102

TABLE =-- USER SYMBOLS

3298

2828
28634
1176

2838+

2839+

28464

1177

1179

IRE-}

1183

1185

1186

1188

2654

2864

3255

2880
581

28864
1188
1673
2166
2649
2881

1189
1718
2190
2655
2886

1333
1758
2207
2666
2889

1355
1790

1376

2242
2672
2892

1844

2278
2674
2895

1429
1883

2316
2857

1446
1912

2345
2858

1460
1944

2373
2859

1478
1989
2400
2860

3876

3878

3880

3882

3884

3886

3888

1425
16114
18444

14294
1650
1879

1442
1651

14464
16554
1908

1456
1669
1912#

14604
16734
1940

642
1569

2047
2459
2877

2079
2490
2879

1186
'655
2105
2524
2880

1159+

2887+

3870

3872

3874

3119
3119
1329
14784

3130
3128
13334
1518
1754
19894

3147
3144
1351
15224
17584
2012

3201
3168+

2207#
2427

20164
2238
2431

3207
3199
1372
15694
17904
2043
22424
2455

20474
2274
24594

2075
22784
2486

20794
2312
24904

1209

17184
1985

643
1611

13554
1565
1786

3205

13764
1607
1840

18834
2101

2105#

32994

21904
2396
3026+
2975
3024
32664
3288
32904
3288#

2203
24004

32914

3292¢#

32934

3294

3295#

3296

32974

32984

1650+

2636+
3244

2654+
32484

2856

2886+

2887

2892

2895

29754
3012
3032
3290
30694
3291

3281
3019
30354

3289
30244

3025

3170

1162+

1305+

1308+

2685+

1163
1258

1165+

2471

2508

3067+

3077

31124

3227

3037
3037
3037

3292

23164
2520

2341
2524

2162
23454

21664

2369

LMAIN.
MACY11 30A(1052)
19-APR-78
cZoLbC.P1
19-APR-78 11:41
$40CAT= srerer |

2865

= 022360

5454
5904
2821

LSERRT
001146
.$X
= 000500

ABS.

022360

ERRORS DETECTED:

114
5874

11:44
PAGE 104
CROSS REFERENCE TABLE =-- USER SYMBOLS

551
5924
2845

5524
611»#
2895

592

000
O

DSKZ:CZDLDC,DSKZ:CZDLDC.SEQ=DSKZ:CZDLDC.P11
RUN-TIME: 25 14 1 SECONDS
RUN-TIME RATIO: 357/41=8.6
CORE USED:
21K
(41 PAGES)
DOCUMENT PAGES:

103

5564
646
29514

5624
11394
3037

5664
11404
3119

S7T14#
1174
32484

SEQ 0103

576
1188
3249

S77#
1189
3255

5794
26314
33584

5814
2674

587
26754

588#
28024