Digital PDFs

AH-8529C-MC

July 1978

104 pages

Original

48MB

view download

OCR Version

58MB

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_gray.pdf

OCR Text

D L1

DIAGNOSTIC

AH-8529C-MC

CzDLDCO

copvrignT

JUL1978

76-78

FICHE1 OF1

LS O0S0
MADEIN USA

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

11:44

PAGE

SEQ 0001

.REM

IDENTIFICATION
PRODUCT

CODE:

AC-8528C-MC

PRODUCT NAME:

(CZDLDCO DL11-W DIAG

DATE CREATED:

MARCH 1978

MAINTAINER:

DIAGNOSTIC

AUTHOR:

DAN CASALETTO

ENGINEERING

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

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES

NO RESPONSIBILITY

FOR ANY ERRORS THAT MAY

NO RESPONSIBILITY

IS ASSUMED FOR THE

SOFTWARE ON EQUIPMENT THAT

AFFILIATED COMPANEIS.

(C)

IN THIS DOCUMENT.

USE OR RELIABILITY OF

IS NOT SUPPLIED BY DIGITAL OR ITS

1976 1978 BY DIGITAL EQUIPMENT CORPORATION

FOLLOWNG ARE

DIGITAL
DEC

APPEAR

TRADEMARKS OF
PDP
DECUS

DIGITAL EQUIPMENT
UNIBUS
DECTAPE

CORPORATION:
MASSBUS

1.0

GENERAL

11:44

SEQ 0002

PAGE 2

INFORMATION

1.1

THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE
DL11-W SERIAL LINE/ REAL TIME CLOCK INTERFACE. THE PROGRAM
WILL RUN WITHOUT ANY SPECIAL TEST FIXTURES BY DEFAULT. HOWEVER,

CABLE CAN BE USED AND TESTED BY OPTION

(BIT7 OF SWR).

A WRAP

THIS TEST OFERATES ON THE CONSOLE DL11-W 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 - 177560

OTHER SERIAL LINE = 776500

PROGRAM

177546

DESIGNED

AND A DL11-W MODULE.

SERIAL LINE

CLOCK

TO RUN ON ANY

FIRST SERIAL LINE ADDRESS
OF 15 CONSECUTIVE SERIAL
LINE ADDRESSES
PDP-11

WITH 8K OF

IT CAN BE RUN UNDER XXDP,APT,

AND ON PROCESSORS WITH NO HARDWARE

MEMORY

AND ACT MONITORS,

SWITCH REGISTER,

SCFTWARE SWITCH REGISTER = LOCATION 176

POWER

FAILURE

NOTE:

1.8

SUPPORTED

FOR

SYSTEMS WITH

THIS DIAGNOSTIC WITH THE

CORE MEMORY.

SWR = 000020

(CLOCK TESTS ONLY) SHOULD BE USED ON SWITCHLESS CPU'S
TO TEST KW=11L LINE CLOCK MODULES.

SYSTEM REQUIREMENTS

.2.1

STANDARD 11 FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE
AND 8K OF MEMORY.
1.2.2

STORAGE
THE

PROGRAM USES MEMORY FROM 00000

TO 22372

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

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

1.3

11:44

PAGE 3

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

THE UUT

IS NOT

THE

CONSOLE,

THE RTC

IS NOT

TESTED FOR

THAT DEVICE.

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

2.0

OPERATING INSTRUCTIONS

2.1
USE

2.2

STANDARD PROCEDURE FOR PDP-11

ABSOLUTE BINARY FORMATTED TAPES.

STARTING PROCEDURE
LOAD THE

SWITCH REGISTER WITH SETTING
(SOF TWARE 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).

"EggRP?gg; IS PRINTED AFTER A FULL PASS HAS BEEN MADE ON ALL DEVICES

START AT 204.
e e tNOTEw®xt
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.

et tNOTE®ewe

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):

PUHSXE

()r+, -, /0123456789:;<=>?

@dABCDEFGHIJKLMNOPQRSTUVWXYZ

"ABCDEFGHIJKLMNOPQRSTUVWXYZ

(OCTAL CODE)

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

LOWER CASE ALPHA

11:44

PAGE 4

THIS BOTTOM LINE COULD BE
DOES NOT HAVE LOWER CASE:

SEQ 0004
THE

FOLLOWING

dABCDEFGHIJKLMNOPQRSTUVWXYZ

THE

TERMINAL

UPPER CASE ALPHA

ttt ksNOTEre
e

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

sote(

FFL

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

LMAIN.

MACY11

czoLoc.P1

30A(1052)

19-APR-78

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. IF A

HARDWARE
DESIRED,

BIT15

SWITCH IS AVAILABLE AND A SOFTWARE SWR
PUT ALL SWITCHES UP.

= HALT OUN ERROR

BIT14
BIT13
BIT12
BITI
BIT10

=
=
=
=

BITO9
BITO8
BITO7
BIT06
BITOS
BITO4

=
-~
=
=
=

SCOPE LOOP
INHIBIT ERROR TYPEOUT
UNUSED
UNUSED
ENABLE ERROR FLAGS TESTS

LOOP ON ERROR
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 OF

(IE)

SWREG,

WHICH

ERROR ROUTINES,

IS PROCESSED

IN KEY

AREAS OF

THE

PROGRAM

AFTER HALTS END OF PASS, AND OTHER

APPLICABLE AREAS. BECAUSE THIS DIAGNOSTIC USES THE MAINTENANCE BIT
OF THE SERIAL LINE, THE CONTROL-G SHOULD BE ISSUED DURING PROGRAM
TYPEOUTS AT THAT TIME THE MAINTENANCE BIT IS SURE TO BE CLEAR.

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

(I1E)
POSSIBLE

SWR=XXXXXX

NEW=

RESPONSES ARE:

<CR>

6 DIGITS 0-7
v

NO CHANGES ARE TO BE MADE

TO REPRESENT

IN OCTAL THE NEW SWITCH REGISTER

VALUE ;LAST DIGIT FOLLOWED BY <CR>.
TO ALLOW REENTERING VALUE IF ERROR IS
KEYING IN SWREG VALUE.

COMMITTED

11:44

PAGE 6

SEQ 0006

2.3.2

SETTING BITS PER CHARACTER
THIS PROGRAM DEFAULTS TO TESTING 8 BITS PER CHARACTER. IF
SERIAL LINE IS SET FOR 5-=>7 BITS PER CHARACTER, SET THE
MEMORY LOCATION ''SUSWR'' AS FOLLOWS:

CHAR.

SIZE

(# OF

"SUSWR'' CONTENTS

BITS)

7
6
5

"'SUSWR'' IS USED
ggg?;

2s3e3

THE

(BINARY)

(OCTAL)

100000000

400

010000000
001000000
000100000

200
100
40

IN THE DATA PATH TESTS TO LIMIT THE BINARY

TE?LEPATTERN
L
.

THE

NUMBER OF

BITS SELECTED ON

THE

RUNNING UNDER APT
THE

APT MAILBOX

LOCATED

LOCATION

500,

TO ALLOW ADDITIONAL

SERIAL

LINE VECTOR ASSIGNMENTS TO THE 400 AREA OF MEMORY.
THE

EXECUTION

CORE MEMORY,

TIMES

PROVIDED

AND 110 BAUD.

ARE

FOR

EXECUTION WITH

AN 11/34

PROCESSOR,

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

19-APR=78 11:44

PAGE 7

RUN WITH ALTERNATE

CONSOLE

LMAIN.
MACY11 30A(1052)
CZDLDC.P1T
19-APR-78 11:41

ADDRESS

TO USE A CONSOLE ADDRESS OTHER THAN 177560, OR VECTOR OTHER

THAN 60, THE OPERATOR MUST SUPPLY THE PROGRAM WITH THE
CORRECT ADDRESSES BY INSERTING THEM AT THE TAG LABELED ''CRCSR'':
CRCSR:
ADDRESS OF RECEIVER RCSR
CRBUF:
ADDRESS OF RECEIVER BUFFER

CTCSR:
CTBUF:

ADDRESS OF
ADDRESS OF

CRVECT:
CRPSW:
CTVECT:

ADDRESS OF
ADDRESS OF
ADDRESS OF

CTPSW:

ADDRESS OF

TESTING ADDITIONAL

SERIAL

TRANSMITTER CSR
TRANSMITTER BUFFER

RECEIVER VECTOR
ASSOCIAED PSW
TRANSMITTER VECTOR

ASSOCIATED PSW
LINES

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

ITS INTERRUPT VECTOR

TO ADDRESS ANY

(STORED AT “‘SVECT1');

SLU STARTING AT

15 CONSECUTIVE DEVICES.

EXAMPLE :

$BASE:

$VECT1:

THE

AND WILL BE ABLE

SPECIFIED BASE

ADDRESS UP TO

776500
300

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

$BASE AND SVECT1

PROGRAM ASSOCIATES UNIT NUMBERS TO DEVICES AS
(NUMBERS IN PARENTHESIS ARE OCTAL)

UNIT# 0 ==>
UNIT# 1 -=>
UNIT# 2 -=>

UNIT# 3 -=>
UNIT# 4 -->
< i mtmtmtmt
s -

THE

DEFAULT TO 776500 AND 300 RESPECTIVELY.

UNIT#15

==>

2.3.4

SEQ 0007

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 ADDRESS +

(30)

BASE VECTOR + (30)

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

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

11:44

PAGE 8

SEQ 0008

STARTING AT LOCATION 200 AND HAVING BIT5 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

T
¥

AND WILL BE

UNIT
19

!
3

UNIY
W

!
'L

TESTED:

coevnconsoe !
sesnssanecs !

UNIT
£

A BIT MAP CAN BE ENTERED AT ''SDEVM'' PRIOR

SETTING BIT5 OF

!
1

UNIT
|

!
B

CONSOLE!
:

TO STARTING THE PROGRAM

THE SWR INHIBITS THE SELF-SIZING AND DEVICE MAP

GENERATION,AND USES

THE

VALUE

STORED

BY THE

OPERATOR.

:
EXAMPLE

SWR
=
$BASE:
$VECT1:

000040
776500
300

$DEVM:

THE

PROGRAM WILL

BINARY

0 000 000 000 100 000
:

BINARY - 0 000 000 000 001

011

TEST -

UNIT# 0 = CONSOLE
UNIT# 1 = 776500 ;
UNIT# 3 = 776520 ;

300
320

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

2.4

11:44

EXECUTION TIMES -

PAGE 9

SEQ 0009

(110 BAUD)
50 SECONDS
60 SECONDS
55 SECONDS/DEVICE

LONGEST SUBTEST TIME

PASS TIME
ADDITIONAL

3.0

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

TYPEOUT.

TO PRINT AN ERROR MESSAGE
TO FIND

THE

THE ERROR

IN CASES WHERE

(I.E.

FATAL

CONSOLE

THAT EXISTS

IS NOT POSSIBLE

TRANSMITTER

A HALT OCCURS AND THE PC CAN BE EXAMINED BY
ERROR

THE SWR

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

THIS ERROR PRINTOUT OCCURS PROVIDED

FAILURES),

ANY APPLICABLE DAT HEADINGS
ANY APPLICABLE DATA

WHERE ‘''XXXXXX'' IS AN OCTAL NUMBER.
WOULD NOT HINDER THE

(BIT13)

INFORMATION

THE

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 OCCURS
IMMEDIATELY FOLLOWING THE TYPEOUT.

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

4.0

11:44

PAGE

SEQ 0010

SUBROUTINE ABSTRACTS

4.1
THIS

IS A SERIES OF

INSTRUCTIONS

STARTING AT LOCATION O DESIGNED

DETECT AND ISOLATE UNEXPECTED TRAPS TO THE
AREA OF MEMORY.

TRAP AND

INTERRUPT VECTOR

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE NEXT
LOCATION. THE NEXT LOCATION IS LOADED WITH A BREAK POINT TRAP (000003).
THUS AN

ILLEGAL

TRAP OR

INTERRUPT

CAUSES A TRAP THROUGH THE BPT

WHICH POINTS TO THE ''CATCH'' ROUTINE.

VECTOR(14)

THE "‘CATCH'' ROUTINE REPORTS THE PC THAT CAUSED THE ORIGINAL TRAP AND

THE LOCATION OF THE
AFTER REPORTING THE
AT THIS POINT.

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

4.2
THIS ROUTINE

STACK.

IS USED

THIS METHOD

PROCESSORS.

TO WRITE

IS USED

THE

TO BE

PSW BY POPPING VALUES

COMPATIBLE WITH ALL

FROM

THE

FAMILY

4.3
THIS ROUTINE CALL IS PLACED BETWEEN EACH SUBTEST. IT RECORDS 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.

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

11:44

PAGE

SEQ 0011

§.4
THIS ROUTINE CALL IS PLACED WHEREEVER AN ERROR REPORT
IS DESIRED. THE LOWER BYTE OF THIS CALL IS USED AS THE ERROR NUMBER
AND AS A POINTER INTO THE ERROR TABLE . THIS ROUTINE REPORTS ERRORS
TO APT USING '*SAPTYPE'' AND TYPES ERROR REPORTS TO THE CONSOLE

USING "‘SERRTYPE''.

4.5

$POWER
THIS ROUTINE SAVES ALL GENERAL REGISTERS DURING POWER-DOWN
AND RESTORES THEM AT POWER-UP. IF A POWER FAILURE OCCURS

"'POWER'' IS PRINTED AT

THE

CONSOLE AFTER POWER

IS RESTORED.

4.6
THIS

ROUTINE

CALL

IS USED

TO DETECT

THE

RECEPTION OF

CONTROL=-G

FROM THE CONSOLE. THE CALL USES '*SREAD'' TO PERFORM THE CONTROL-G
SEQUENCE OF DISPLAYING THE CONTENTS OF THE SOFTWARE SWITCH REGISTER
AND THE ENTERING THE NEW CONTENTS FROM THE TERMINAL.

PAGE

SEQ 0012

422
423
424
425

426

427
428
429
430
&3
432
433
434
435

436
437
438
439
440
441
442
403
)

445

446

447
448
449
450
451
452
453
454
455
456

457
458
459
460
461
462

463
464
465
466
467
468
469
470
471
472
473
474
475

476

477

.SBTTL

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER #*+ 17100 w#«

001100

STACK=

000011
000012
000015
000200
177776

HT=

177774
177772
177570
177570

STKLMT= 177774

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000

000040
000100
000140
000200
000240
000300
000340
100000

040000
020000
010000
004000
002000
001000
000400
000200

.EQUIV
.EQUIv

1100

EMT,ERROR
I0T,SCOPE

:;BASIC DEFINITION OF
;:BASIC DEFINITION OF

;*MISCELLANEOUS DEFINITIONS

LF=
CR=
CRLF=
PS=

12
15
200
177776

.EQUIV

PS,PSW

PIRQ=
DSWR=
DDISP=

177772
177570
177570

::CODE FOR HORIZONTAL

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

; *GENERAL PURPOSE REGISTER DEFINITIONS
20
3

: GENERAL REGISTER
: GENERAL REGISTER

R3=

; ;GENERAL REGISTER

R5=
R6=
R7=
SP=
PC=

x5
%6
X7
X6
x7

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

Ré4=

¥4

: GENERAL REGISTER

s*PRIORITY LEVEL DEFINITIONS

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

0
40
100
140
200
240
300
340

;;PRIORITY
;:PRIORITY
;sPRIORITY
::PRIORITY
;:PRIORITY
;:PRIORITY
;:PRIORITY
::PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

s*"'SWITCH REGISTER' SWITCH DEFINITIONS

sWw15=
SWi4=
sSW13=
sW12=
SWil=
SW10=
sSWw09=
SWw08=
sSWo7=

100000
40000
20000
10000
4000
2000
1000
400
200

TAB

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

RO=
R1=

R2=

ERROR CALL
SCOPE CALL

0
1
2
3
4
5
6
7

11:44

NTE

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

478
479
480
481
482
483

484

485
486

000100
000040
000020
000010
000004
000002
000001

487

488
489
490
49N
492
493
494
495
496
497
498
499
500
501
502

503
504

SW06=
SW05=
SW04=
SW03=
SwW02=
SWo1=
SW00=

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

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

200

100
40

20
10

2
1

.EQUIV
.EQUIV
.EQUIV

000034

(BITOO TO BIT15)

1000
400

.EQUIV
.EQUIV
.EQUIV
.EQUIV

000004
000010
000014
000014
000014
000020
000024
000030

SW09,sw9
SW08,sw8
SW07,sw7
SW06,SW6
SW05,SW5
SW04, SW4
SW03,5W3
sW02,sw2
SW01,sw1
SW00,sw0
BIT DEFINITIONS
100000
40000
20000
10000
4000
2000

100000

SEQ 0013

BIT09,BIT9
BIT08,B1T78
BIT07,BIT7
BIT06,B1T6
BITO05,BITS
BITO04,BIT4
BIT03,.B1T3
BIT02,BIT2
BITO1,BIT1
BIT00,BITO

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES
;sTIME OUT AND OTHER ERRORS
::flgfifigy;b AND ILLEGAL INSTRUCTIONS

ERRVEC= &
RESVEC= 10
TBITVEC=14
TRTVEC= 14

BPTVEC= 14
I0OTVEC= 20
PWRVEC= 24

EMTVEC= 30
TRAPVE(C=34

;s TRACE TRAP
;;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT) =«SCOPEw+
;sPOWER FAIL
s EMULATOR TRAP (EMT) «+*ERROR®*
;i "TRAP'" TRAP

11:44
PAGE 13
BASIC DEFINITIONS

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

LMAIN.

MACY11

czoLpc.P1

534
535
536
537
538
539

30A(1052)

19-APR-78

19-APR-78 11:41

000060
000064
000240
176500
000300
000400

540
541

545

SEQ 0014

1
161000
000003

.=0

AAL R AL AR AR

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

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

ARl

iRttt

ittt lds

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

228

ggg

BASIC DEFINITIONS

547
548

551
552
553

$TN=
$SWR=
BPT=

000000

546

PAGE

TKVEC= 60
TPVEC=
64
PIRQVE(C=240
ABASE=
176500
AVECT1= 300
AUSWR=
400

000001
161000
000003

542
gzz

11:44

;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED YECTORS

000014
000016

000014
012254

=14
.WORD

.WORD

CATCH
340

.=
.WORD

42
0

%
DISPREG:.WORD
SWREG:
.WORD

174
0
0

000340

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
QUTTST

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

;DO INTERFACE TEST
;00 ECHO TEST
;D0 OUTPUT TEST TO TERMINAL

MACY1T 30A(1052)
-MAIN.
19-APR-78
czoLoc. P11
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

11:44
PAGE 15
BASIC DEFINITIONS

.SBTTL
AR

000046
000052

000500
000046
012152
000052
000000
000500

SEQ 0015

500
ACT11 HOOKS

AR ARl
iRt ds]

;HOOKS REQUIRED BY ACT11
SSVPC=.

:SAVE PC

iErs«ng

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

"WORD
.SBTTL

T=$SVPC

::2)SET LOC.52 TO ZERO

APT PARAMETER BLOCK

AR AAL AR

RESTORE PC

SRR a2
222

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
R

000024
000044

000500
000024
000200
000044
000500
000500

.$X=.
.=24
200
=44
SAPTHDR
.=.8X
MR

R R

R R R

R RN R R RN R R R R

R R R R AR R R AR R RN

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

AR RS ARl

il a2
]

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
s INTERFACE SPEC.
000500
000500
000502
000504
000506
000510
000512

000000
001066
000050
000060
000055
000030

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
SUNITM:

.WORD
.WORD
_WORD
.WORD
._WORD
.WORD

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

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

685

.SBTTL

609

608
eog
61

COMMON TAGS

:+THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
+USED IN THE PROGRAM.
001000

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

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000

.WORD
STSTNM: .BYTE
SERFLG: .BYTE
SICNT:
.WORD
SLPADR: .WORD
SLPERR: .WORD
SERTTL: .WORD
SITEMB: .BYTE
SERMAX: .RYTE
SERRPC: .
Y
$GDADR: .
$BDADR: .
$GDDAT: .WOKD
$BDDAT: .WORD
WORD
WORD
SAUTOB: .BYTE
$INTAG: .BYTE
WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
SNULL:
.BYTE

640
641
642
643
644
645

001056
001057
001060
001062
001063
001064

012
000
000000
077
015
000012

SFILLC: .BYTE
STPFLG: .BYTE
$ESCAPE : 0
SQUES:
.ASCII
SCRLF:
.ASCII
SLF:
.ASCIZ

646

001055

002

SCMTAG:

.=1000

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

SEQ 0016

'-:'ttt't'tt't'ti't"'t't't"It'i't"""t'tttfitt'fitttttt't'*t'l't

611

11:44
PAGE 16
COMMON TAGS

SFILLS:

.BYTE

;:START OF COMMON TAGS

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

:;CONTAINS THE TEST NUMBER
::CONTAINS ERROR FLAG
::CONTAINS SUBTEST ITERATION COUNT
::CONTAINS SCOPE LOOP ADDRESS
::CONTAINS SCOPE RETURN FOR ERRORS
::CONTAINS TOTAL ERRORS DETECTED
::CONTAINS ITEM CONTROL BYTE
::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 INDICATOR
: INTERRUPT MODE INDICATOR
:;ADDRESS OF SWITCH REGISTER
::ADDRESS OF DISPLAY REGISTER
$ITTY KBD STATUS
::TTY KBD BUFFER
:TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS
: :CONTAINS NULL CHARACTER FOR FILLS
::CONTAINS # OF FILLER CHARACTERS REQUIRED
::INSERT FILL CHARS. AFTER A "LINE FEED"
::"TERMINAL AVAILABLE' FLAG (BIT<07>=0=YES)
::ESCAPE ON ERROR ADDRESS
:1QUESTION MARK
: :CARRIAGE RETURN
::LINE FEED

0
2
12
0

/?/
<15>
<12>

.';t"ti"'t'tt"'"i't"t"t"'it""t""'t'it't't'itt't'!"iit'i

647

.SBTTL

6‘9

.‘:ttt'i't"t"tt't"ii"i'it""'i""""i"'t"tttIttit'i"'ttt

650
651
652
653
654
655
656
657
658
659
660

001066
001066
001070
001072
001074
001076
001100
001102
001104
001106

600000
000000
000000
000000
000000
000000
000000
000000

APT MAILBOX-ETABLE

.EVEN
SMAIL :
SMSGTY: .WORD
SFATAL: .WORD
STESTN: .WORD
$PASS:
.WORD
SDEVCT: .WORD
SUNIT:
.WORD
SMSGAD: .WORD
SMSGLG: .WORD
SETABLE :

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

::APT MAILBOX
::MESSAGE TYPE CODE
::FATAL ERROR NUMBER
::TEST NUMBER
::PASS COUNT
::DEVICE COUNT
::1/0 UNIT NUMBER
::MESSAGE ADDRESS
::MESSAGE LENGTH
::APT ENVIRONMENT TABLE

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

001106
001107

664
665
666
667
668

001112
001114

663

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

001110

11:44
PAGE 17
APT MAILBOX-ETABLE

000
000

SENV:
SENVM:

.BYTE
_BYTE

AENV
AENVM

000400
000000

$USWR:
$CPUOP:
:*
it
it

.WORD
.WORD

AUSWR
ACPUOP

000000

001116
001117

000
000

001120

000000

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

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

$SWREG:

s
s
:*
$MAMS1:
SMTYP1:
i
o
Bt
:*
$MADR1:
:*
$SMAMS2:
SMTYP2:
$MADR2:
$MAMS3:
SMTYP3:
$SMADR3:
SMAMS4:
SMTYP4:
$SMADR4:
SVECT1:
SVECT2:
$BASE:
SDEVM:
SETEND:
JMEXIT

.WORD

ASWREG

.BYTE
.BYTE

AMAMS1
AMTYP1

.WORD

AMADR1

.BYTE
.BYTE
.WORD
_BYTE
.BYTE
.WORD
_BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
_.WORD

AMAMS2
AMTYP2
AMADR2
AMAMS3
AMTYP3
AMADR3
AMAMSSL
AMTYP4L
AMADRS
AVECT1
AVECT2
ABASE
ADEVM

SEQ 0017
; ;ENVIRONMENT BYTE
;;ENVIRONMENT MODE BITS

;;APT SWITCH REGISTER

;;USER SWITCHES
;;CPU TYPE,OPTICNS
BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,Q=10

BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
;:HIGH ADDRESS,M.S. BYTE
;;MEM. TYPE,BLKM
MEM.TYPE BYTE
==
(HIGH BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
;;HIGH ADDRESS,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF '‘TYPE'' ABOVE
;:HIGH ADDRESS,M.S. BYTE
;;MEM.TYPE,BLK#2
;;MEM.LAST ADDRESS,BLK#2
;:HIGH ADDRESS,M.S.BYTE
;:MEM.TYPE,BLK#3
;;MEM.LAST ADDRESS,BLK#3
;;HIGH ADDRESS,M.S.BYTE
;;MEM.TYPE,BLK#4
;;MEM.LAST ADDRESS,BLK#4
;;INTERRUPT VECTOR#1,BUS PRIORITY#1
;;INTERRUPT VECTOR#2BUS PRIORITY#2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP

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

11:44
PAGE 18
ERROR POINTER TABLE

SEQ 0018

ggg

.SBTTL

697
698

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

;8;

;*NOTE2:

699
700

ERROR POINTER TABLE

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

703

:®

706
707
708

DF
~

704
705

:®
;¥

709

001146

711
712
713
714
;}2

001146
001146
0011.97
00115
001154

015266
021451
022204
000000

717
718
719

001156
001160
001162

722

710

DH
DT

:;POINTS TO THE ERROR MESSAGE

:;POINTS TO THE DATA HEADER
;:POINTS TO THE DATA
:;POINTS TO THE DATA FORMAT

SERRTB:

.SERRTB:

EM1
DH1
DT
0

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

015312
021476
022214

EM2
DH2
DT2

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

001166

015336

EM3

:"'TCSR DONE NOT CLEARED WITH TBUF

727
728
729
;g?

001176
001200
001202
001204

015403
021451
022204
000000

EM4
DH1
DT
0

:"'TCSR DONE NOT SET''
;"'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
744

001226
001230
001232

015506
021550
022234

EM7
DH7
DT?

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

;g?

723
724
;gg

;22

747
748
749
750

001164

001170
001172
001174

001234

001236
001240
001242
001244

000000

021451
022204
000000

DH1
DT1
0

000000

015532
021575
022244
000000

EM10
DH10
DT10
0

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

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

FULL"

MACY11 30A(1052)
.MAIN.
19-APR-78
czoLbc.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
771
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

EM11
DH1
DT1
0

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

001256
001260
001262
001264

015620
021451
022204
000000

EM12

;"'CAN NOT SET BITO OF TCSR"

001266
001270
001272
001274

015651
021451
022204
000000

EM13

DH1
DT
0

001276
001300
001302
001304

015704
021451
022204
000000

EM14
DH1
DT1
0

;"'RESET DID NOT CLEAR BITO OF TCSR'

001306
001310
001312
001314

015745
021451
022204
000000

EM15
DH1
DT

;"'BIT2 OF TCSR NOT CLEAR AFTER RESET''

001316
001320
001322
001324

016010
021451
022204
000000

EM16

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

001326
001330
001332

EM17

001334

016041
021451
022204
000000

001336
001340
001342
001344

016074
021451
022204
000000

EM20
DH1
DT

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

001346
001350
001352
001354

016135
021451
022204
000000

EM2°
DH1
pT?

:"BIT6 OF TCSR NOT CLEAR AFTER RESETZ2
;'TEST# ERR PC TCSR"
;STESTN,SERRPC,TCSR

001356
001360
001362
001364

016201
021451
022204
000000

EM22
DH1

;"XMIT INTERRUPT WITH PRIORITY 7"

001366
001370
001372
001374

016236
021451
022204
000000

EM23
DH1
DT

022204
000000

DH1
DT1
0

DH1
DT
)

DH1
DT

;'TEST# ERR PC

TCSR"

;STESTN,SERRPC,TCSR

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

TCSR"

;STESTN,SERRPC,TCSR

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

;"'TEST# ERR PC

TCSR"

;STESTN,SERRPC,TCSR

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

TCSR"

;STESTN,SERRPC,TCSR

;"'TEST# ERR PC

TCSR"

;STESTN,SERRPC,TCSR

;""CAN NOT SET BIT6 OF TCSR'

;"'TEST# ERR PC

TCSR"

sSTESTN,SERRPC,TCSR

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

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
845
846
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

EM24
DH1

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

016322
021451
022204
000000

EM25

;"'RESET DID NOT CLEAR BIT6 OF TCSR"
;""TEST# ERR PC TCSR"
;STESTN,SERRPC,TCSR

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
DT6
0

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

001436
001440
001442
001444

016465
021523
022224
000000

EM30

;"'CAN NOT SET BIT6 OF RCSR''

001446
001450
001452
001454

016516
021523
022224
000000

EM31
DHé
DT6
0

;"'CAN NOT CLEAR BITé6 OF RCSR''
;"TEST# ERR PC RCSR"
;STESTN,SERRPC,RCSR

001456
001460
001462
001464

016551
021523
022224
000000

EM32
DH6

;"'CAN NOT CLEAR BIT6 OF RCSR WITH RESET?2

001466
001470
001472
001474

016617
021575
022244
000000

EM33
DH10
DT10

001476
001500
001502
001504

016661
021575
022244
000000

EM34
DH10
DT10

;"LKS INTERRUPT WITH PRIORITY 7"
;"'TEST# ERR PC LKS"
;STESTN,SERRPC,LKS

001506
001510
001512
001514

016717
021575
022244
000000

EM35
DH10
DT10

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

001516
001520
001522
001524

016747
021575
022244
000000

EM36
DH10
DT10

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

001526

017001

EM37

;"RESET DID NOT CLEAR BITé OF LKS'

001376
001400
001402
001404

016267
021451
022204
000000

001406
001410
001412
001414

DT
0

DH1
DT1
0

DH6
DT6

DT6

;"'TEST# ERR PC

RCSR"

;STESTN,SERRPC,RCSR

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

;"'TEST# ERR PC

RCSR"

;STESTN,SERRPC,RCSR

:“BIT6 OF LKS NOT CLEAR AFTER RESET"'
STEST# ERR PC LKS"
*$TESTN.SERRPC,LKS

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

863
864
865

866
867
868
869
870
871
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
91
912
913
914
915
916
917
918

SEQ 0021

11:44
PAGE 21
ERROR POINTER TABLE

001530
001532
001534

021575
022244

000000

DH10
DT10
0

001536
001540
001542
001544

017041
021621
022254
000000

EM4O
DH40
DT40
0

001546
001550
001552

001554

017067
021575
022244
000000

EM4T
DH10
DT10
0

001556
001560
001562
001564

017127
021575
022244
000000

EM42
DH10
DT10
0

001566
001570
001572
001574

017161
021575
022244
000000

EM43
DH10
DT10
0

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

001576
001600
001602
001604

017212
021575
022244
000000

EMLL
vH10
DT10
0

;"'RTC INTERRUPT AT PRIORITY 7"
;"'TEST# ERR PC LKS"
;STESTN,SERRPC,LKS

001606
001610
001612
001614

017246
021575
022244
000000

EM4S
DH10

;""RTC INTERRUPTS WHEN DISABLED''

001616
001620
001622
001624

017303
021575

022244
000000

EM46
DH10
DT10
0

001626
001630
001632
001634

017303
021575
022244
000000

EM4G7
DH10
DT10
0

;"'RTC INTERRUPT DID NOT OCCUR"
;"'TEST# ERR PC LKS'

001636
001640
001642
001644

017337
021575
022244
000000

EMS50
DH10
DT10
0

:""RTC DOUBLE INTERRUPT''
;""TEST# ERR PC LKS"

001646
001650
001652
001654

017364
021575
022244
000000

EMST
DH10
DT10
0

:"'RESET DID NOT CLEAR RTC INTERRUPT"'
;"'TEST# ERR PC LKS"
;STESTN,SERRPC,LKS

001656
001660

017414
021575

EMS52
DH10

DT10
0

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

:"'DUAL ADDRESSING ERROR"'

;"'TEST# ERR PC
GOOD
BAD''
;STESTN,SERRPC,$GDADR,$BDCSR

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

;"'CAN NOT CLEAR BIT7 OF LKS"

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

;"'TEST# ERR PC

LKS"

;STESTN,SERRPC,LKS

:"RTC INTERRUPT DID NOT OCCUR"

;"'TEST# ERR PC

LKS"

;STESTN,SERRPC,LKS

:"RTC INTERRUPT DID NOT CLEAR WITH BIT? OF LKS"

;""TEST# ERR PC

LKS"

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

11:44
PAGE 22
ERROR POINTER TABLE

SEQ 0022

919

001662

022244

DT10

:STESTN,SERRPC,LKS

922
923
924
ggg

001666
001670
001672
001674

017471
021655
022266
000000

EMS3
DHS3
DT53
0

:"'TEST# ERR PC
LKS
CNT1
CNT2"
;STESTN,SERRPC,LKS,FIRST,SECND

927
928
929

001676
001700
001702

017515
021451
022204

000000

EMS4
DH1
DT1

;"XMIT INTERRUPTS WHEN DISABLED"
:""TEST# ERR PC
TCSR"
:STESTN,SERRPC,TCSR

932
933
934
ggg

001706
001710
001712
001714

017653
021451
022204
000000

EMSS
DH1
DT1
0

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

937
938
939
gz$

001716
001720
001722
001724

017553
021451
022204
000000

EMS6
DH1
DT
0

:"XMIT INTERRUPT AT PRIORITY 7"
;"TEST# ERR PC
TCSR"
STESTN,SERRPC,TCSR

942
943
944

001726
001730
001732

017611
021451
022204

EMS7
DH1
DT

;"'XMIT INTERRUPTS WITH ENABLE CLEAR'
:"TEST# ERR PC
TCSR"
:STESTN,SERRPC,TCSR

947
948
949
32?

001736
001740
001742
001744

017653
021451
022204
000000

EM60
DH1
DT1
0

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

952
953
954
ggg

001746
001750
001752
001754

017702
(21451
022204
000000

EM61
DH1
DT1
0

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

957
958
959
329

001756
001760
001762
001764

017726
021451
022204
000000

EM62
DH1
DT1
0

;"LOADING TBUF DID NOT CLEAR INTERRUPT'"
:"TEST# ERR PC
TCSR"
sSTESTN,SERRPC,TCSR

962
963
964
822

001766
001770
001772
001774

017773
021523
022224
000000

EM63
DHé
DTé
0

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

967
968
969
g;?

001776
002000
002002
002004

020017
021523
022224
000000

EM64
DH6
DTé
0

;"RECEIVER DONE NEVER SET''
:"TEST# ERR PC
RCSR'"
sSTESTN,SERRPC
,RCSR

972
973
974

002006
002010
002012

020043
021523
022224

EM6S
DHé6
DTé

:"RCVR ACTIVE NOT CLEARED WITH DONE SET2
:"'TEST# ERR PC
RCSR"
;STESTN,SERRPC
,RCSR

g%?

g§$

322

001664

001704

001734

000000

-MAIN.

MACY11

3;2

002014

000000

977
978
979

002016
002020
002022

020111
021523
022224

EM66
DHé
DT6

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

982
983
984
ggz

002026
002030
002032
002034

020147
021523
022224
000000

EM67
DHé
DTé
0

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

987
988
989
gg?

002036
002040
002042
002044

020212
021523
022224
000000

EM70
DHé
DT6
0

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

992
993
994

002046
002050
002052

020257
021523
022224

EM71
DHé
DT6

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

997
998
999

002056
002060
002062

020426
021523
022224

EM72
DH6
DTé

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

1002
1003

002066
002070

020321
021523
022224
000000

EM73
DH6

DT6
0

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

;STESTN,SERRPC,RCSR

1007
1008
1009
;8}?

002076
002100
002102
002104

020357
021523
022224
000000

EM74
DH6
DTé
0

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

1012
1013
1014

002106
002110
002112

020426
021523
022224

EM75
DHé
DTé

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

1017
1018
1019

002116
002120
002122

020455
021523
022224

EM76
DH6
DTé

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

1022
1023
1024

002126
002130
002132

020501
021523
022224

EM77
DHé
DTé

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

1027

002136

020546

EM100

;"'RESET DID NOT CLEAR RCVR INTERRUPT"

1029
1030

002142
002144

022224
000000

DTé
0

;STESTN,SERRPC,RCSR

czoLbpC.P1

gg?

ggz

}88?

1004
}882

}8}2

:85?

;gsg

1028

002024

002054

002064

002072
002074

002114

002124

002134

002140

30A(1052)

19-APR-78

19-APR-78 11:41

000000

000000
021523

11:44

PAGE 23

SEQ 0023

ERROR POINTER TABLE

DHé

;""TEST# ERR PC

RCSR"

CLEAR"

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

FLAG DID NOT SET"

002146
002150
002152
002154

020611
021523
022224
000000

EM101
DH6
DT6
0

;STESTN,SERRPC,RCSR

002156
002160
002162
002164

020637
021523
022224
000000

EM102
DH6

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

002166
002170
002172
002174

020676
021722
022302
000000

EM103
DH103
DT103
0

;"'BREAK DID NOT TRANSM!T ALL ZEROES"

002176
002200
002202
002204

020734
021523
022224
000000

EM104
DHé

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

002206
002210
002212
002214

020771
021757
022314
000000

EM105
DH105
DT105
0

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

002216
0C2220
002222
002224

021014
021757
022314
000000

EM106
DH105

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

002226
002230
002232
002234

021052
021523
022224
000000

002236
002240
002242
002244

021104
022023
022330
000000

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

002246
002250
002252
002254

021134
021757
022314
000000

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

002256
002260
002262
002264

021174
022067
022344
000000

:""TRAP CATCHER"'

002266
002270
002272
002274

021211
021575
022244
000000

:"'NO CLK INTERRUPT IN EXERCISER"
;""TEST# ERR PC LKS"

DT6

DTé
0

;""'Ok

'OR'

;STESTN,SERRPC,RCSR

;"'TESTH# ERR PC
RCSR
DATA"
;STESTN,SERRPC ,RCSR,$BDDAT

DT105

;STESTN,SERRPC,RCSR,GD,BD

EM107
DHé

;"'TIMEOUT IN EXERCISER TEST"

DTé

FLAG"

;""TEST# ERR PC

BAD"

RCSR"

;STESTN,SERRPC,RCSR

;"'TEST#
ERR PC RCSR
OLDPC TRAP ADR"
;STESTN,SERRPC,RCSR,OLDPC,BDVECT

;STESTN,SERRPC,LKS

SEQ 0024

11:44
PAGE 24
ERROR POINTER TABLE

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

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

EM114
DHé6
DT6
0

;""'ERROR' NOT SET WITH "FR'

002306
002310
002312
002314

021306
021523

EM115

022224
000000

DHé6
DT6
0

sRCV ACTVIE NOT CLEAR WITH INIT
;"'TEST# ERR PC
RCSR"

002316
002320
002322
002324

021345
021523
022224
000000

EM116
DH6
DT6
0

;RCV ACTIVE WITHOUT ''START'' BIT

002326
002330
002332
002334

021404
021523
022224
000000

EM117

sRDR ENABLE NOT

002336
002340
002342
002344

000000
000000
000000
000000

002346
002350
002352
002354
002356
002360
002362
002364

000000
000000
000000
000000
000000
000000
000000
000000

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

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

DH6
DT6

;"'TEST# ERR PC

CLEAR WITH RCV ACTIVE

RCSR"

;STESTN,SERRPC,RCSR

0
CTSTFL:
TMP1:
TMP2:

FLAG'"

;STESTN,SERRPC,RCSR

.WORD
.WORD
.WORD

MOoOOoOOoOOo

d
d

021247
021523
022224
000000

.WORD

OO0 O0OO0O0O0O

BB NWWWWUWWWWWWNONONDNDNNNDNNNNND
= b D e a D aaaa000
N=LOVENOWVNFEWN
2OV NOVMEAWN=O0OVENO VS WN=0V0N

d
d e

d
D e

i
D

D
d
e

D e
d e
D

D
D

—d e d e
e d D e
D e
— e

SEQ 0025

002276
002309
002202
002304

D
D

d e o
d e e d

d o

b
d

D d e o
D e i d

D
kD

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

11:44
PAGE 25
ERROR POINTER TABLE

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

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

RCSR:

RBUF :

TCSR:
TBUF :
RVECT:
RPSW:
TVECT:
TPSW:

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

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

002406
002410
002412

002414
002454

177560
177562
177564
17756¢€

000060
000062
000064
000066
177546

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

177560
177562
177564
177566
60
62
64
66

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

INTERRUPT VECTOR

sREAL TIME CLOCK1;EGISTER AND VECTOR ADDRESSES
7546
.WORD

000100
000102

LKS:
RTCVT:
RTCPSW:

.WORD
.WORD

100
102

000020
000020

ADRTBL:
VCTTBL:

.BLKW
.BLKW

20
20

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

11:44
PAGE 26
ERROR POINTER TABLE

}}22
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162

1163
1164
1165

1166

}}2;
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
119i

1192

1193
1194
1195
1196
1197
1198

SEQ 0026

sSUBROUTINE TO GENERATE DEVICE ADDRESS TABLE
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
001142
000170

000010

001070
001066
001072
002336
001076
001100
001112
000400
000006
000003

002626
002632
002634
002640
002642

012706
005026
022706
001374
012706

001000

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

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

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

002762

002766
002774
003002
003010
003016

013746

012737
012737
012737
022777
001012

001112
000004
000006

001000
001040

000004

003022
177570
177570
177777

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

000004
001040
001042
176022

DEVADR: MOV
MoV
MoV
ADD
18:
MoV
ADD
CMP
BLE
RTS

#ADRTBL ,R2
$BASE RO
RO,R1
#170,R1.
RO, (R2)+
#10,R0
RO,R1
1%
PC

;POINT R2 TO THE DEVICE ADDRESS TABLE
:LOAD BASE DEVICE ADDRESS IN RO
H
;POINT R1 TO LAST DEVICE ADDRESS
;MOVE DEVICE ADDRESS TO TABLE
;POINT RO TO NEXT DEVICE ADDRESS
sFINISHED GENERATING TABLE?
:BR, IF LAST DEVICE ADDRESS NOT LOADED

START:

SFATAL
SMSGTYP
STESTN
CTSTFL
$DEVCT
SUNIT
SUSWR
1%
#400,SUSWR
¥6,an
#3,346

:CLEAR
sCLEAR
sCLEAR
;CLEAR
:CLEAR

1$:

(LR
CLR
CLR
CLR
CLR
CLR
TST
BNE
MoV
MoV
MoV

ERROR NO.
MESSAGE TYPE
TEST NO.
CONSOLE UNDER TEST FLAG
DEVICE COUNT

sCLEAR UNIT NUMBER

;1S SUSWR LOADED?
;BR IF YES
;ELSE, DEFAULT TO SUSWR=400

sINITIALIZE TIMEOUT VECTORS TO TRAP

CATCHER ROUTINE

.SBTTL
INITIALIZE THE COMMON TAGS
:sCLEAR THE COMMON TAGS (SCMTAG) AREA
Mmov
#SCMTAG,.R6
s:FIRST LOCATION TO BE CLEARED
CLR
(R6) +
::CLEAR MEMORY LOCATION
CMP
#SWR,R6 ;;DONE?
BNE
«=6
::LOOP BACK IF NO
MOV
#1000, SP
::SETUP THE STACK POINTER
soINITIALIZE A FEW VECTORS
MoV
#$SCOPE ,a#I0TVEC ;;I0T VECTOR FOR SCOPE ROUTINE
Mov
#340,8#10TVEC+2 ;;LEVEL 7
MOV
#SERROR ,@#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MoV
#340 ,QPENTVEC+2 ;:LEVEL 7
MoV
#STRAP,@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
MoV
#340 ,8#TRAPVEC+2;LEVEL 7
MOV
#SPURDN ,a#PWRVEC ;;POWER FAILURE VECTOR
MoV
#340 ,3#PURVEC+2 ;;LEVEL 7
MoV
SENDCT,SEOPCT
;;SETUP END-OF~PROGRAM COUNTER
CLR
SESCAPE
:sCLEAR THE ESCAPE ON ERROR ADDRESS
MOovB
#1,SERMAX
:;ALLOW ONE ERROR PER TEST
MoV
#.,SLPADR
:sINITIALIZE THE LOOP ADDRESS FOR SCOPE
Mov
#.,SLPERR
:;SETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.

MoV

MOV
Mmov
Mov
CMP
BNE

@FERRVEC,=-(SP)

#64S ,@FERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
66%

;;SAVE ERROR VECTOR

;;SET UP ERROR VECTOR
:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;s TRY TO REFERENCE HARDWARE SWR
: sBRANCH IF NO TIMEOUT TRAP OCCURRED
::AND
THE HARDWARE SWR IS NOT = -1

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

-MAIN.

MACY11

1199
1200
1201
1202
1203
1204
1205
1206

003020
003022
003026
003030
003036
003044

000403
012716
000002
012737
012737
012637

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

005037
132737
001403
012737

001074
000200

001107

001110

001040

032777
001404
005237
000137
132737
001404
132737
001056
032777
001052

000020

175740

002336
004056
000001

001106

000200

001107

000040

175700

e cd

d i

OV NOWVIS~SWN
=

b
ik
d e
e
e
e
h
—d

cZoLbce PN

003142
003146

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

1254

003266
003272
003276
003300
003302
003306
003310
003312
003314

004737
005037
005037
013703
012737
013700
062700
005710
005237
005237
012706
006337
162700
023700
003762

013700
012737
005710
005237
005237
010337
000415

003030

000176
000174
000004

002514
002342
001144
000004
003212
001142
000160

001040
001042

002366
003260

001144
002342
000004

002342
001144

005237
006302
001401
000771
004737

002342

002514

PAGE 27

SEQ 0027

INITIALIZE THE COMMON TAGS

648 :

BR
:?Y

65%
#65%, (SP)

;;BRANCH IF NO TIMEOUT
;:SET UP FOR TRAP RETURN

65%:

MOV

#SWREG, SWR

::POINT TO SOF TWARE SWR

668%:

MOV

(SP)+,3#ERRVEC

;;RESTORE ERROR VECTOR

CLR
BITB

$PASS
#APTSIZE,SENVM

MOV

#SSWREG,SWR

;:CLEAR PASS COUNT
;s TEST USER SIZE UNDER APT
;:YES,USE NON-APT SWITCH
ssNO,USE APT SWITCH REGISTER

317

#BIT4,aSWR

BITB

#BITO,SENV

BITB

#BIT7,SENVM

MOV

EEQ
67%:

INIT:

MANL :

SI1LE:

000004

3%:

00114%
002342
001000
001144
000010
001142

005037
013702
005702
100002

11:44

(%:

BEQ
INC
JMP

BEQ
BNE

INIT
CTSTFL
ID

MANL

APTSZD

#BITS5,aSWR

JSR

PC,DEVADR

CLR
MoV
MOV
MOV
ADD

$SDEVM
aré4 ,R3
AR
$BASE RO
#160,R0

MOV
ASL

#1000,SP
$SDEVM

CMP

$BASE RO

MOV
MOV
TST
INC
INC

CRCSR,RO
#58,a84
(RO)
SDEVM
TMP2

VCTADR

BNE

CLR

TST
INC
INC

BLE

5%:

67%

BIT

SuB

000004

#DISPREG,DISPLAY

MOV

APTSZD:

APTSZD

TMP2

(RO)
$DEVM
TMP2

#10,R0
3%

R3,ax4

CLR
MOV
TSTDVM: TST

TMP2
$SDEVM,R2
R2

1%:

R2
DVADT
TSTOVM
PC,DEVADR

DVADT:

BPL
INC

ASL
BEQ
BR
JSR

1%
TMP2

sTEST CLOCK ONLY?
;BR IF NOT
sELSE, SET CONSOLE TEST FLAG TO ENABLE CLOCK TESTS
:

AND JUMP TO TYPE PROGRAM

;CHECK IF ON APT
;BR IF NOT APT
:DID APT SIZE
;BR, IF APT SIZED

;WAS ""SDEVM'' MANUALLY SET?
sIF YES, SKIP SELF-SIZING
;GENERATE DEVICE ADDRESS TABLE
:CLR TEMP LOCATION TO KEEP DEVICE COUNT
sCLEAR DEVICE MAP
;SAVE TIMEOUT VECTOR
;SET TIMEOUT POINTER
:LOAD BASE ADDRESS

;POINT RO TO UNIT #15 (UNIT#0=CONSOLE)
sCHECK FOR DEVICE EXISTANCE
;INDICATE DEVICE EXISTANCE IN DEVICE MAP
; INCREMENT DEVICE COUNT
;RESET STACK POINTER
sADJUST DEVICE MAP FOR NEXT UNIT CHECK
;POINT RO TO NEXT DEVICE NUMBER
sFINISHED SIZING?
:BR, IF BASE ADDRESS HAS NOT BEEN CHECKED
:LOAD CONSOLE DEVICE ADDRESS
;SET UP TIMEOUT POINTER

;TEST FOR CONSOLE EXISTANCE
sINDICATE CONSOLE EXISTANCE IN DEVICE MAP
s INCREMENT DEVICE COUNT
sRESTORE TIMEOUT VECTOR
:BR TO GENERATE VECTOR ADDRESS TABLE
;CLEAR TEMP LOCATION TO KEEP DEVICE CNT
:MOVE DEVICE MAP TO R2
;TEST MSB OF DEVICE MAP
:BR, IF MSB IS ZERO
s INCREMENT DEVICE COUNT, IF MSB=1
sSHIFT NEXT BIT INTO MSB POSITION
:BR, IF NO OTHER BITS ARE SET IN SDEVM
;CONTINUE CHECKING SDEVM, IF MORE BITS SET
:GENERATE DEVICE ADDRESS TABLE

-MAIN.
MACY11 30A(1052)
19-APR-78
czZoLoC 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 COMMON TAGS

SEQ 0028

;GENERATE VECTOR ADDRESS TABLE
003320
003324

003330
003334
003336
003342
003344
003350
003352

012702
113700
042700
010001
062701
010022
062700
020001
003773

002454
001136

VCTADR: MOV
MOVB
BIC

177400

MOV

000170

1%:

000010

#VCTTBL,R2
a#SVECT1,RO
#177400,R0
RO,R1

RO, (R2)+
#10,R0

;PUT VECTOR ADDRESS IN TABLE
;POINT RO TO NEXT VECTOR ADDRESS

ADD

#170,R1

CMP
BLE

RO,R1
1%

Mov
ADD

;GET LOCATION OF VECTOR TABLE
:COPY BASE VECTOR
;CLEAR BYTE SIGN EXTENSION

;POINT R1 TO LAST DEVICE VECTOR

;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

002342

000300
006300
006300

006300

SHIFT:

106101

006300
106101

062701
000301
032701
001764
010137

000060

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

052737
005037
032737
001001

000002
002340
000001

005237
012700
012701

002336
002366
002346

003500
003506
003510
003514
003522
003526

033737
001010
006337
062737
005237
000764

003530
003534
003540

005237
006337
013702

000414

012021
022701

002374
000137

000020

022154

002344

BEGIN:

001144
TCONS:

18:

002364

ROLB
ASL
ROLB

00234¢

001144

002344
000002
001100

002340

TMP2,RO
R1
RO
RO
RO
RO

R1
RO
R1

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

ASL
ROLB
ADD
SWAB
BIT
BEQ
MoV

RO
R1
#60,R1
R1
#BIT4,R1
SHIFT
R1,M2A

;MOVE LAST BIT OF DIGIT
;INTO R1
; CONVERT DIGIT TO ASCII
;MOVE DIGIT TO UPPER BYTE
;HAVE BOTH DIGITS BEEN MOVED TO R1?
;BR, IF NOT
sMOVE DEVICE COUNT TO OUTPUT MESSAGE

BIS
CLR
BIT

#BIT1,THP3
THP1
#B1T0,SDEVM

;SET UP BIT MASK TO TEST SDEVM FOR DEVICES EXCEPT CONSOL
;CLEAR LOCATION TO STORE TABLE OFFSETS

BNE
BR
INC
MOV
MOV
MOV
CMP

BGE
JMP

003622

001100
002344
002340

Mov
CLR
SWAB
ASL
ASL
ASL

TCONS
TSTDEV
CTSTFL
#CRCSR,RO
#RCSR,R1
(RO)+, (R1)+
#TPSW,R1

1%
ST

;1S CONSOLE TO BE TESTED?

;BR, IF CONSOLE IS TO BE TESTED
;BR, TO TEST OTHER DEVICES
sINDICATE CONSOLE UNDER TEST
sSET UP CONSOLE DEVICE ADDRESSES
;POINT R1 TO UUT ADDRESS TABLE
s TRANSFER CONSOLE ADDRESSES
;FINISHED TRANSFER?

:BR, IF NOT
;GO TEST CONSOLE

:PREPARE ADDRESSES AND VECTORS FOR UUT
TSTDEV:

SETADR:

BIT
BNE

TMP3,SDEVM
SETADR

;CHECK TO SEE
:BR, IF YES

INTERFACE
DEVICE

TO BE

TESTED

ASL
ADD
INC
BR

THP3
#2,THP1
SUNIT
TSTDEV

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

INC
ASL

SUNIT
TMP3
TMP1,R2

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

Mov

——)
Y——
Y
Y
R R
Y
J
P
—

WW WWWWWWWWWWWW W
NN NN
=
b D b
v WN =2 OO0V
NO WV
WND —

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

1326

003544
003552
003556
003562
003564
003570
003574

062737
016200
012701
010021
062700
030027
001372

000002
002414
002346

003576
003602
003604
003610
003614
003616

016200
010021
062700
030027
001372
000137

002454

000002
000006

000002
000006
003622

11:44
PAGE 29
INITIALIZE THE COMMON TAGS

002340
ADR:

VECT:

ADD
MOV
MOV
MoV
ADD

#2,THP1
ADRTBL
(R2) ,RO
#RCSR,R1

SEQ 0029

;UPDATE TABLE OFFSET FOR NEXT DEVICE
sPUT UUT ADDRESS INTO RO
;POINT R1 TO STORAGE AREA FOR UUT ADDRESSES

RO, (R1)+

s TRANSFER UUT ADDRESS

BIT
BNE

#2,R0
RO, #6
ADR

MOV
MoV
ADD

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

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

BIT
BNE
JMP

RO, #6
VECT
ST

sPOINT TO NEXT UUT REGISTER
;FINISHED TRANSFER?
:BR, IF NOT

;FINISHED TRANSFER?

:BR, IF NOT
;GO TEST DEVICE

MACY11 30A(1052)
+MAIN.
19-APR-78
cZoLoc PN
19-APR-78 11:41
1327
1328
1329
1330
1331
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

3
SEQ 0030

AR AR a2
22222

SATEST

TEST ABILITY

TO REFERENCE

TCSR

;:t"ttt"'Q""""""""Q"""""""'.'.""t*""'."t'*'

003622

003624
003630
003636
003642
003644
003646
003652
003654
003656
003660
003660
003664
003666
003670

000004
013703
012737
005777
000412

000004
003644
176510

022626
005737
001002

002336

1511:

000004

1%:

sSAVE TIMEOUT VECTOR

TST

aTCSR

JREFERENCE

013170
4%

AARAR

000004
013703

003716
003720
003724
003726
003730
003732
003732
003736
003740
003742

022626
005737
001002

012737
005777
000412

000C04
003716
176440

002336

1ST2:
000004

1%:

004737
000002
000000
010337

013170

000004

3%:

4%:

THE

GO TO END OF

XMIT

TEST

COMMAND/STATUS REG.

ERROR
BR

1
4%

JREPORT ERROR TO APT & TTY
;BR TO END OF TEST

JSR
1

PC,8ATYS

MOV

R3,a#4

P 3

ARl

SCOPE

;IF YES, SKIP ERROR TYPEOUT

;sONLY REPORT A FATAL ERROR
;sTHE ERROR NUMBER (FROM APT LIST)
JRESTORE TIMEOUT VECTOR

aré4 ,R3

TST

o TBUF

1 1A

R R

R Ry

sSAVE TIMEOUT VECTOR

sSET UP TIMEOUT VECTOR
JREFERENCE

THE

XMIT BUFFER

;GO TC END OF

CMP
st
BNE

(SP)+,(SP)+
CTSTFL
2%

sRESTORE SP AFTER TIMEOUT
sCHECK IF DEVICE IS CONSOLE
;IF YES, SKIP ERROR TYPEOUT

ERROR
BR

2
4%

JSR

PC,8ATYS

MOV

R3,a#4

2
HALT

TEST ABILITY TO REFERENCE TBUF

MOV

104002

000404

JRESTORE SP AFTER TIMEOUT
sCHECK IF DEVICE IS CONSOLE

;*TEST 2
S

sSET UP TIMEOUT VECTOR

(SP)+,(SP)+
CISTFL

HALT

3%:

000004

1 1A

CMP
TST

003674
002576
003702
003710
003714

BNE

000404
000001
000000
010337

ar4 ,R3

MOV

104001

004737

SCOPE

MOV

TEST

JREPORT ERROR TO APT & TTY
;BR TO END OF TEST

;sONLY REPORT A FATAL ERROR

;:THE ERROR NUMBER
JRESTORE

TIMEOUT VECTOR

(FROM APT LIST)

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

1370
1371
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
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
141
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421

1422

11:44
T2

PAGE 31

TEST ABILITY

TO REFERENCE

SEQ 0031

TBUF

rrktkRARRRRRRR R RRERRRERRR R RERRT R R RN RETRTRT RN R R R R R R RARTRR AR AR AR

;*TEST 3
AR

003746
003750
003754
003760

000004
005077
105777
100016

TST3:

176400
176372

TEST THAT TCSR BIT7(DONE)

ARl

SCOPE
CLR
TSTB
BPL

a TBUF
aTCSR

003762
003766
003772

005077
105777
100011

176366
176360

CLR
TSTB
BPL

a TBUF
aTCSR

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

005737
001002

002336

TST
BNE
ERROR
BR

CTSTFL
1%

004737
000003
000000
005000
105777
100414
005200
001373

013170

JSR

PC.SATY4

005737
001002

002336

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

104003
000404

1%:

2%:
3%:

176326

4%:

104004

000405

004737
000004
000000
000424

013170

023737
001412
005737
001007
005737
001004
104401
022140

000042

5%:

HALT

CLR
TSTB
BMI
INC
BNE
TST
BNE
ERROR
BR

ID:

001074
001076

3
’s

;LOAD XBUF
: CHECK DONE
:BR IF CLEAR
;FILL

005056

174720

6%:

BECAUSE

REFRESH COULD CAUSE

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

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

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

RO
4%

CTSTFL

sCHECK IF DEVICE IS CONSOLE

;TCSR "'DONE'' DOES NOT SET

5%
ID

;BR TO END OF TEST

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

PC.SATY4

HALT
BR

TST4

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

ani2,ansé
6%
$PASS
6%
$DEVCT
6%

;UNDER ACT11?
:IF YES, SKIP IDENT. TYPEOUT
;1S THIS THE FIRST PASS?
:1F NOT BR TO NEXT TEST & SKIP THE IDENTIFICATION TYPEOU
;1S THIS THE FIRST SUBPASS?
:IF NOT, BRTO NEXT TEST
: TYPE PROGRAM INDENTIFICATION
;TYPE

000020

SECOND BUFFER,

FIRST TEST TO FAIL
;
;FILL DOUBLE BUFFER
:CHECK DONE
:BR IF CLEAR

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

aTCSR
ID

104401

022152
032777
001402
000137

IS LOADED

JSR

000046

CLEARS WHEN XBUF

Rl iRl

#BIT4,aSWR
TST4
TCLOCK

NUMBER OF

DEVICES UNDER

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

TEST

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

11:44
T3

1423
1424

PAGE

1425

1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
}2%?

004126
004130
004134
004140
004142
004146
004150
004152
004156

000004
005077
105777
100375
005077
000240
000005
105777
100401

J*TEST 4
PR
R
TST4:
SCOPE
CLR
18:
TSTB
BPL
CLR
NOP
RESET
TSTB
BMI

}2%3

004160

104005

176220
176212

176206
176174

32
TEST THAT

TCSR BIT7(DONE)

R R

ERROR

CLEARS WHEN XBUF

R R R R R R R

R R AR RN R

SEQ 0032

IS LOADED

AR NN

A RN

TEST THAT TCSR "'DONE'* SETS WITH RESET
R
R R R R R R R R R AR AR AR R AR AR AR AR AR AR AR AR
aTBUF
aTCSR
1%
aTBUF

sLOAD TRANSMIT BUFFER
;WAIT FOR DONE

;LOAD SECOND BUFFER

aTCSR
TSTS

sCLEAR DONE WITH RESET
;sCHECK FOR DONE SET
;sBR TO NEXT TEST IF DONE SET

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

1440

1441

1442

1443

J*TEST 5

1444

1445
1446
1447
1448

004162
004164
004170
004176

000004
013703
012737
005777

1451
1452
1453

004204
004206
004210

022626
104006
010337

}215.8

004202

000402

000004
004204
176144

TST5:
000004

2%:

R R A R

TEST ABILITY
R

R R R R R R R R R

R R

AR R R R

R AR R AR R R AR AR

TO ACCESS RCSR

R R R R R R R R R AR AR R

ars ,R3
s, an
aRCSR

;SAVE TIMEOUT VECTOR
;SET UP TIMEOUT VECTOR
;ACCESS RCSR

CMP
ERROR
MoV

(SP)+,(SP)+
6
R3,a#4

sRESTORE SP AFTER TIMEOUT
sCAN NOT ACCESS RCSR
;RESTORE TIMEOUT VECTOR

:BR TO END OF

R R RS

A RN R R AR RN

SCOPE
MOV
MOV
TST

1%:

000004

R R

TEST

MACY11 30A(1052)
-MAIN.
19-APR-78
czoLpc.P1
19-APR-78 11:41
1454
1455
1456
1457
1458
1459
1460

1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
147

11:44
T5

H
3
PAGE 33
TEST ABILITY TO ACCESS RCSR

SRR

;*TEST 6

004214
004216
004222
004230
004234

000004
013703
012737
005777
000402

004236
004240
004242

022626

104007

010337

000004
004236
176114

TST6:

000004

2%:

ARl

a4 ,R3
S, ant

CMP

ERROR
MOV

TEST ABILITY TO ACCESS RBUF

SCOPE
MOV
MoV
TST

1%:

000004

ARl

SEQ (033

R R

AR A

:SAVE TIMEOUT VECTOR
;SET UP TIMEOUT VECTOR

aRBUF

sACCESS RBUF

(SP)+,(SP)+

;RESTORE

7
R3,a#4

AR RIS

;BR TO END OF

TEST

SP AFTER

TIMEOUT

:CAN NOT ACCESS RBUF
;RESTORE TIMEOUT VECTOR

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

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

11:44

Té

|
PAGE 34
TEST ABILITY TO ACCESS RBUF

SEQ 0034

ARl
22222223222222223

J*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
104011
000404

004737

000011
000000

000400

174562

0000061

176062

1%:

013170

2%:

052777
032777
001001

004332

104012

004334
004342
004350
004352
004356
004360
004362
004364
004364
004370
004372

042777
032777
001411
005737
001002

000001
000001

004737
000013
000000

013170

004374
004402
004404
004412
504414
004422

052777
000005
032777
001467
042777

000001

175750

000001

175740

000001

175730

000001
000001

176030
176022

176010
176002

3s:

4%:

002336

104013
000404

TEST THAT BITO(BREAK BIT)
AR

5%:

AR ARl

#BIT8,aSWR
TSTI

BIT

#BITO,aTCSR

BEQ
TST
BNE
ERROR
BR

CAN BE SET & CLEARED & RESET

Rl iRl
s]

SCOPE
BIT
BEQ

RESET

002336

004314
004322
004330

104014

1ST17:

CTSTFL
1%
1

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

;CHECK BITO OF TCSR CLEAR
;BR IF CLEAR

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

JSR
n
HALT

PC.SATY4

BIS
BIT
BNE

#BITO,aTCSR
#BITO,aTCSR
4%

;SET BITO IN TCSR
;TEST BITO OF TCSR
;BR IF SET

ERROR

;BITO OF TCSR WILL NOT SET

BIC
BIT
BEQ
TST
BNE
ERROR
BR

#BITO,aTCSR
#BITO,aTCSR

:CLEAR BITO OF TCSR
:TEST BITO OF TCSR

JSR

PC,SATYS

6%:

HALT

7%:

BIS
RESET

BIT

BEQ
BIC
ERROR

;:BITO OF TCSR WILL NOT CLEAR

#BITO,aTCSR
#BITO,aTCSR
TST1
#BITO,aTCSR
14

:;ONLY 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 TCSR

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

1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547

11:44
17

PAGE 35
TEST THAT BITO(BREAK BIT)

AR AA R

ARt

T*TEST 10
004424
004426
004430
004436

000004
000005
032777
001411

004440
004444
004446
004450

005737
001002
104015
000404

002336

004452
004452
004456
004460

004737
000015
000000

013170

004462
004470
004476

052777
032777
001001

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

104020

TST10:
000004

175714

1%:

175662
175654

175642
175634

R R AR

TEST THAT BIT2(MAINT.

SCOPE
RESET
BIT
BEQ

AR AR

BIT)

CAN BE

AR AR

SET & RESET

Rl a2
222 T

#BIT2,3TCSR

TST
BNE
ERROR
BR

CTSTFL
1%
15

JSR

PC,.SATYS

R AR

sCLEAR EVERYTHING
;TEST FOR BIT2 OF TCSR CLEAR
:BR IF CLEAR
;CHECK IF DEVICE IS CONSOLE
sIF YES, SKIP ERROR TYPEOUT

;BIT2 OF TCSR NOT CLEAR AFTER RESET

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

2%:

HALT

3s:

BIS
BIT
BNE

#BIT2,aTCSR
#BIT2,3TCSR
4%

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

ERROR

;:BIT2 OF TCSR WILL NOT SET

BIC
BIT.
BEQ

#BIT2,aTCSR

;CLEAR BIT2 OF TCSR
;TEST BIT2 CLEAR
;BR IF CLEAR

CTSTFL

;CHECK IF DEVICE IS CONSOLE
;IF YES, SKIP ERROR TYPEOUT

4%:

5%:

6%:
7%:

TST
BNE
ERROR
BR

;EITZ.iYCSR

17
7%

JSR
17
HALT

PC,SATY4

BIS
RESET

#BIT2,3TCSR

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

;BITO OF TCSR WILL NOT CLFAR
;SET BIT2 OF TCSR
;CLEAR BIT2 WITH RESET

BIT

#BIT2,aTCSR
TST12

sIF CLEAR, GO TO NEXT TEST

BIC
ERROR

#BITZ,ATCSR

;CLEAR BIT2, TO PRINT ERROR

BEQ

175562

R R R R

CAN BE SET & CLEARED & RESET

;TEST FOR BIT2 CLEAR

;RESET DID NOT CLEAR BIT2 OF TCSR

SEQ 0035

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

1563
1564

1565

1566

S*TEST N

1567

004572
004574
004576
004602
004610
004614
004616
004624
004626

000004
000005
017703
012777
004737
000340
032777
001404
104021

;g;g

004630

000402

1580
1581

004632
004634

022626
104022

1584
1585
}gg?

004636
004644
004652

052777
032777
001001

1588

004654

104023

1591
1592
1593
1594

004656
004664
004672
004674

042777
032777
001401
104024

000100
000100

1597
1598
1599
}gg?

004676
004704
004706
004714

052777
000005
032777
001401

000100

175446

000100

175436

1602
1603
1604

004716

104025

004720

010377

}ggg

}ggz

1568
1569
1570
1571
1572
1573
1574
1575
1576
1577

}gg%

TST11:

175560
004632
012242

175552

000100

175526

1$:

000100
000100

175436

11:44
PAGE 36
110
TEST THAT BIT2(MAINT. BIT)

175506
175500

175466
175460

28%:

3$:

4$:

5%:

R RN R R R R

TEST THAT BIT6(XMIT

SCOPE
RESET
MoV
MOV
JSR

R R R

R R

CAN BE

R R AR

INT EN)

AR R

SEQ 0036

SET & RESET

R RN R R RN

R AR R AR

CAN BE SET & RESET

AR R R AR R

R AR

AR AR

R AR

BIT
BEQ
ERROR

(MP
ERROR

(SP)+,(SP)+
22

sRESTORE SP AFTER INTERRUPT

BIS
BIT
BNE

#BIT6,aTCSR
#BIT6,aTCSR
3s

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

ERROR

BIC
BIT
BEQ
ERROR

#EIT6,aTCSR
#BIT6,aTCSR
43
24

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

BIS
RESET
BIT
BEQ

#BIT6,aTCSR

;SET BIT6 OF TCSR
sCLEAR BIT6 WITH RESET
;TEST BITé OF TCSR
;BR IF CLEAR

ERROR

MOV

R3,aTVECT

R ®

;CLEAR EVERYTHING
;SAVE XMIT VECTOR
;SET UP INTERRUPT VECTOR FOR ERROR REPORT
;SET PSW TO PRIORITY=7

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

#BIT6,aTCSR

;TEST BIT6 OF TCSR
:BR IF ZERO
;BIT6 IN TCSR NOT CLEAR AFTER RESET

:XMIT

INTERRUPT OCCURRED

PRIO=7

s 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
cZoLoC.P1N
19-APR=-78 11:41

11:44
TM

1605
1606

PAGE 37
TEST THAT BIT6(XMIT

1607

1608

;*TEST 12

1609

1610
1611
1612
1613
1614
1615
1616
1617
1618
1619

004724
004726
004730
004734
004742
004746
004750
004756
004760

000004
000005
017703
012777
004737
000340
032777
001404
104026

}23?

004762

000402

1622
1623

004764
004766

022626
104027

1626
1627
}253

004770
004776
005004

052777
032777
001001

1630

005006

104030

1633
1634
}2;2

005010
005016
005024

042777
032777
001401

1637

005026

104031

1640
1641
1642

005030
005036
005040

052777
000005
032777

1645
1646
1647

005050

104032

005052

010377

12%?

}gg}

}ggg

}222

005046

001401

175422
004764

175414

000100

175370

012242

TST12:

SCOPE
RESET
MOV
MOV
JSR

1%:

000100
000100

175350
175342

175330
175322

000100

175310

000100

175300

R R

2%:

3%:

4$:

5%:

3
INT EN)

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

TEST THAT BIT6 OF
R

aRVECT,R3
#1% ,3RVECT

BIT
BEQ
ERROR

PC,WRPSW
.WORD
340
#BIT6,aRCSR
2%
26

CMP
ERROR

(SP)+,(SP)+
27

BIS
BIT
BNE

#BIT6,aRCSR
#BIT6,aRCSR
3s

ERROR

BIC
BIT
BEQ

#BIT6,aRCSR
#BIT6,aRCSR
4%

ERROR

BIS
RESET
BIT

#BIT6,aRCSR

BEQ

#BIT6,aRCSR
5%

ERROR

MOV

R3,aRVECT

R R

SEQ 0037

CAN BE SET & RESET

R RN RS

RCSR CAN BE SET & RESET

R R R A R

R R R AR R AR RN

sCLEAR EVERYTHING
sSAVE RECEIVE VECTOR
JSET UP INTERRUPT VECTOR FOR ERROR REPORT
sSET PSW TO PRIORITY=7
sTEST BIT6 OF RCSR
;BIT6 OF RCSR NOT CLEAR AFTER RESET

sRESTORE SP AFTER INTERRUPT

sRCVR INTERRUPT WITH PRIORITY=7
;SET BIT6 OF RCSR
sTEST BIT6 OF RCSR
;BR, IF SET

sCANNOT SET BIT6 OF RCSR
sCLEAR BIT6 OF RCSR
sTEST BIT6 OF RCSR
;BR, IF CLEAR

s CANNOT CLEAR BIT6 OF RCSR
;SET BIT6 OF RCSR
sCLEAR BIT60F RCSR WITH RESET
;TEST BIT6 OF RCSR

;BR,

IF CLEAR

sCANNOT CLEAR BIT6 OF RCSR WITH RESET
sRESTORE RECEIVE VECTOR

MACY11 30A(1052)
19-APR-78
cZoLoc.P1
19-APR-78 11:41
-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

mn3
PAGE 38
T2
TEST THAT BIT6 OF RCSR CAN BE SET & RESET

11:44

001002

TCLOCK:
AR

;*TEST 13
MR

005064
005066
005072
005074
005102
005104
005110
005116
005122

000004
005737
001420
032777
001014
013703
012737
005777
000402

005124
005126

022626
104010

005130

010337

AAAR AR

TST13:

002336
000100

173736

000004
005124
175264

000004

2%:

000004

SCOPE
TST
BEQ
BIT
BNE

001054
000005
017703
012777
004737
000340
032777
001404
104033

005210

000402

005212
005214

022626
104034

005216
005224
005232

052777
032777
001001

005234

104035

005236
005244
005252
005254

042777
032777
001401
104036

000100
000100

005256

052777

000100

002336
000100

173666

175226
005212
012242

175220

000100

175202

000100
000100

175122

4%:

TO ACCESS LKS

i ittt
itisiississ]

;1S CONSOLE UNDER TEST?
sIF NOT, SKIP THIS TEST
sARE LINE CLOCK TESTS INHIBITED?
;IF YES, SKIP THIS TEST
;SAVE TIMEOUT VECTOR
;SET UP TIMEOUT VECTOR

CTSTFL
TST14
#BIT6,aSWR
TST14

N6 ,R3

sACCESS LKS

sNO TIMEOUT =

BR TO END OF TEST

sRESTORE SP AFTER TIMEOUT

Mov

R3,a#4

sRESTORE TIMEOUT VECTOR

R R

A AR AR AR R A

THAT BIT6 OF

SCOPE
TST
BEQ
BIT
BNE

CTSTFL
TST15

#BIT6,aSWR

TST15

aRTCVT,R3

#18,3RTCVT
PC,WRPSW

.WORD

340

BIT
BEQ
ERROR

#BIT6,aLKS

CMP
ERROR

(SP)+,(SP)+

2%
33

BIT

#BIT6,aLKS
#BIT6,aLKS

ERROR

BIC
BIT
BEQ
ERROR

#81T6,aLKS
#BIT6,aLKS
48

BIS

#BIT6,aLKS

BIS

;CAN NOT ACCESS LKS

TEST

BNE

3s:

(SP)+,(SP)+
10

JSR

2$:

CMP

RESET
MOV
MoV

1%:

AR AR R

TST14:

il ARt]

ERROR

SRR AR

000004
005737
001460
032777

18,384
aLKS

;*TEST 14

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

ARt

MOV
MoV
TST
BR

1$:

TEST ABILITY
A

;ADJUST TEST NUMBER TO (NEXT TEST - 1)

#12,8TSTNM

MOV

RS SRR

SEQ 0038

AN AR

LKS CAN BE

AR AR

AR R

SET & RESET

R AR RS

;1S CONSOLE UNDER TEST?
:IF NOT, SKIP THIS TEST
sARE LINE CLOCK TESTS INHIBITED?
;IF YES, SKIP THIS TEST
sSAVE LINE CLOCK VECTOR
:SET UP INTERRUPT VECTOR FOR ERROR REPORT
;SET PSW TO PRIORITY 7

;TEST BITé OF LKS
;BIT6 OF LKS NOT CLEAR AFTER RESET
;RESTORE SP AFTER INTERRUPT

;LKS INTERRUPT WITH PRIORITY=7

;SET BITé OF LKS
;TEST BITé OF LKS
:BR IF SET

: CANNOT SET BIT6 OF LKS
;CLEAR BIT6é OF LKS
;TEST BIT6 OF LK
: CANNOT CLEAR BIT6 OF LKS
;SET BIT6 OF LKS

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

1705
1706
};8;

005264
005266
005274

000005
032777
001401

1709
1710
1711

005276

104037

005300

010377

000100

175104

11:44
PAGE 39
T4
TEST THAT BIT6 OF LKS CAN BE SET & RESET

175112

5%:

RESET
BIT
BEQ

#BIT6,aLKS
5%

ERROR

MOV

R3,aRTCVT

;CLEAR BIT6 OF LKS WITH RESET
;TEST BIT6 OF LKS

:BR IF CLEAR

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

SEQ 0039

Y —————
) —
S
Y
R
—_ IR

N~ NNNNNNNNNNYVN ~
NN PORININ)
b = b b b = b —
o WN=OVENOWniW ~n

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

1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742

1743
1744
1745
1746
1747
1748
1749
1750
1751

11:44
PAGE 40
T4
TEST

THAT BIT6 OF

LKS CAN BE

SEQ 0040

SET & RESET

SRR RRRARRRLERRRRRNRROERRORRRRCERRRRRORRORRRARRAROARCRAOROERORRORRETSR

TeTEST 15
AL AR

005304
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

005462

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

1ST1S:

000004
000006
005450
000340

000004
000006

000002
000020

173472

002406

001020

002346
00102C
001022
001020

001020
001022

001024
173372
173362

001024

173354

3s:

000401

6%:

FOR DUAL

AR AR

ADDRESSING OF
A

a6 R3
ar6 R4

I LL)
LA
#340,3#6

#BIT1,RO
#BIT4 ,aSWR
1%
LKS,$GDADR

BR
MOV
MOV
BIC
CMP
BNE
BIS
MOV
BIS

#BIT6,3$BDADR

BNE
MOV

ggDDAY.iSBDADR

BiT

5%:

104040

<COPE

MOV
MOV
MOV
MOV
RESET
MOV

Mov

4%:

105700
100343

TEST
AR

BIT
BEQ

001022

001022
173402
000100
000100

BR
CmMP

ASL
TSTB
BPL

RCSR,$GDADR
$GDADR,$BDADR
RO,$BDADR
;20ADR.SBDADR

RO, $BDADR
@$BDADR,SGDDAT

:ngb.iSGDADR

(SP)+,(SP)+
RO
RO

2%
7$

ERROR

REGISTERS

ARl

sSAVE TIMEOUT VECTOR
;SAVE TIMEOUT PSW
;SET UP TIMEOUT VECTOR

;KEEP PRIO=7
;CLEAR EVERYTHING
;SET UP BIT MASK

sCLOCK TEST ONLY?

;:BR IF NOT
;ELSE, MOVE GOOD LKS ADDRESS INTO S$GDADR
:MOVE GOOD RCSR ADDRESS INTO SGDADR
:MOVE GOOD ADDRESS INTO TEST ADDRESS LOCATION
;CREATE BAD ADDRESS BY COMPLEMENTING ONE BIT

sARE ADDRESSES

IDENTICAL?

:IF 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 COOD ADDRESS CONTAINS BIT6
:BR IF SET ==<=> ERROR
sRESTORE ANY MEMORY LOCATION THAT WAS ALTERED
;BR TO CONTINUE TEST
;RESTORE SP AFTER TIMEOUT
sSHIFT BIT MASK TO NEXT POSITION
;COMPLEMENTED ALL BITS FROM 1 - 7?
:BR, IF NOT.
;BR TO NEXT TEST
;DUAL ADDRESSING ERROR
:SBDADR = DUAL ADDRESS

:$GDADR = GOOD ADDRESS
005464
005470

010337
010437

000004
000006

7%:

MOV
Mov

R3.,ax4
R4, an6

;RESTORE TIMEOUT VECTOR
;RESTORE TIMEOUT PSW

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

1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
17N
1772
1773
1774
1775
- 1776
1777
1778
1779
1780
1781
1782
1783
1784

MRS

ARl

;*TEST 16
M

005474
005476
005502
005504
005512
005514
005516
005522

000004
005737
001437
032777
001033
000005
105777
100401

005524

104041

005526
005534
005542
005544
005552
005560

042777
022777
001410
042777
032777
001401

005562

104042

005564
005566
005572
005574
005576

005000
105777
100403
005200
001373

005600

104043

174652
174644

000200
000200

174634
174626

SCOPE

2%:

38:
CONT:

Rd Rl
ts]

TEST THAT BIT7 OF
AR

Rl A

SEQ 0041

Al A

LKS SETS & CAN BE

CLEARED

i st
ds

TST

CTSTFL

;IS CONSOLE UNDER TEST?

BIT

#BIT6,aSWR

;ARE LINE CLOCK TESTS

BNE
1$:

000200
000200

AR AR

BEQ

173326

174664

174614

ARAR R

TST16:

002336
000100

11:44
PAGE 41
T15
TEST FOR DUAL ADDRESSING OF REGISTERS

RESET

TST17

:IF NOT, SKIP THIS TEST

INHIBITED?

;IF YES, SKIP THIS TEST

;CLEAR EVERYTHING & SET BIT7 OF

alLKS
2%

ERROR

;BIT7 OF LKS DID NOT SET WITH RESET

BIC
gé;

#BIT7,aLKS
gng?.iLKS

;CLEAR BIT7 OF LKS
;TEST BIT7 OF LKS

BIC
Eé;

#BIT7,aLKS
gng?,iLKS

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

ERROR

;CAN NOT CLEAR BIT7 OF LKS

CLR
TSTB
BMI
INC

RO
alLksS
TST17
RO

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

ERROR

;BIT7 OF LKS DOES NOT SET

BNE

CONT

;TEST FOR BIT7 OF LKS
:BR IF SET

LKS

TSTB
BMI

:CONTINUE UNTIL TIME EXPIRES

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

1785
1786
1787
1788
1789
1790

1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805

11 144

T16

AR AR a2
02322222232232223 2221

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

100375
000240
000402

005702
005704

022626

005706
005712
005720
005724
005726
005732
005734
005736

005077
012777
004737
000240
105777
100375
000240
000402

005740
005742

022626
104045

005744
005752
005760
005766
005772
005774

012777
042777
052777
105777
100375
000240

005776

104046

006000
006002
006010
006014

022626
042777
010377
010477

000100

173220

012242
174554
174552
005702
000340
000200
000100
174512

174542
174536
174524
174516

174474

012242

174470

174414

000700
174574
174372

TEST
AR

SCOPE
TST
BEQ
BIT
BNE
JSR

1%:

3%:

BIC
BIS
TSTB
BPL
NOP
BR

20%:

174436
174426
174420

174376

ARl

THAT

ARt

THE REAL
s

TIME

CLOCK

INTERRUPTS PROPERLY

e i)

PC,WRPSW

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

dRTCPSW,R4
#28 ,aRTCVT

sSAVE LINE CLOCK VECTOR
;SAVE LINE CLOCK PSW VECTOR
;SET RTC INTERRUPT VECTOR TO ERROR REPORT

CTSTFL
TST20

#BIT6,aSWR

1S8T120

.WORD
340
aRTCVT,R3

#340,aRTCPSW
#BIT7,aLKS
#BIT6,aLKS
aLKS
1%

;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 OCCURS

CMP

(SP)+,(SP)+
44

sRESTORE SP AFTER INTERRUPT
sRTC INTERRUPTS AT PRIORITY 7

CLR

aLKS
;DISABLE RTC INTERRUPTS & CLEAR DONE
#48 ARTCVT
;SET RTC INTERRUPT VECTOR FOR ERROR
PC,WRPSW
:CHANGE PSW TO PRIORITY 5

ERROR
MOV

JSR

174454

006000
000200
000100

MOV
MOV
MOV
MoV

2%:

104044

005740

TST17:

002336

TEST THAT BIT7 OF LKS SETS & CAN BE CLEAREv

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

PAGE 42

.WORD

240

TSTB
BPL
NOP

aLKS

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

4%:

CMP
ERROR

(SP)+,(SP)+
45

RESTORE SP AFTER INTERRUPT
;RTC INTERRUPTS WITH INTERRUPTS DISABLED

5%:

MOV

#78 ,aRTCVT
#BIT7,aLKS
#BIT6,aLKS
aLKS
6%

;POINT RTC VECTOR TO END OF TEST
sCLEAR CLOCK DONE FLAG
sALLOW INTERRUPTS
;WAIT FOR RTC DONE

ERROR

sRTC INTERRUPT DID NOT OCCUR

CMP
BIC

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

;RESTORE
:DISABLE
sRESTORE
sRESTORE

6%:

7%:

BIC
BIS

TSTB

BPL
NOP

MOV
MOV

208

R3,aRTCVT
R4 ,aRTCPSW

;WAIT

FOR DONE

(INTERRUPT REQUEST)

:GIVE TIME FOR INTERRUPT

SP AFTER INTERRUPT
INTERRUPTS
LINE CLOCK VECTOR
LINE CLOCK PSW VECTOR

SEQ 0042

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

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

1837
1838
1839

18’.0

ML AAAR

1841

;*TEST 20

1842

MR AR AL

1843
1844
1845

006020
006022
006026

000004
005737
001457

1847
1848
1349
1850
1851
1852
1853
1854
1855
1856
1857
1858
}ggg

006036
006040
006042
006046
006052
006060
006066
006072
006074
006102
006110
006114
006116

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

006144
006146

022626
104050

1874
1875
1876

006150
006156
006162

042777
010377
010477

1846

}g;g

AR AR ARl

006030

032777

TST20:

002336
000160

174342
174340
006122
000340
012242
000200
000100
174272

006144
012242

173002

BIT

BNE
RESET
Mov
MOV
MoV
MoV
JSR

174330
174324
174304
174276

174256

SCOPE
TST
BEQ

18:

2%:

BIC
BIS
TSTB
BPL
NOP

000100
174226
174224

174230

4$:

TEST RTC FOR DOUBLE

INTERRUPTS

RR ARttt sl

CTSTFL
TST21
#BIT6,aSWR
TST21

aRTCVT,R3
aRTCPSW, R4
#28 ,aRTCVT
#340,aRTCPSW
PC,WRPSW
.WORD
240
#BIT7,aLKS
#BIT6,aLKS
aLKS
1%

ittt

;1S CONSOLE UNDER TEST?
;IF NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INHIBITED?
;IF YES, SKIP THIS TEST
sCLEAR EVERYTHING
sSAVE 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 iINTERRUPTS
;WAIT FOR DONE
;GIVE

TIME FOR ANY INTERRUPT
INTERRUPT DID NOT OCCUR

ERROR

sRTC

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
38:

iRttt issiiists]

;GIVE SOME TIME FOR AN INTERRUPT
sNO INTERRUPT = BR TO END OF TEST

CMP
ERROR

(SP)+,(SP)+
50

;RESTORE SP AFTER INTERRUPT
; INTERRUPT SEQUENCE DID NOT CLEAR

BIC
MOV
MOV

#BIT6,aLKS
R3,aRTCVT
R4 ,aRTCPSW

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

; INTERRUPT REQUEST

SEQ 0043

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

1877
1878
1879
1880
1881
1882
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

006166

006170
006174
006176
006204
006206
006212
006214

006220
006226
006234,
006242

TEST RTC FOR DOUBLE

ASAAAR

SRTEST 21

000004

005737
001442
032777
001036
004737
000340
017703
012777
042777
052777
,105777

006246 NWQggrs

006250
006252
006256
006260
006262
006270

00D905
004737
000240
000240
042777
000402

006272
006274

022626
104051

006276

010377

LSRR

TST21:

002336
000100

172634

012242
174170
006272
000200
000100
174140

174162
174152
174144

012242

000100

174116

2%:
174106

SRRt

TEST
AR

SCOPE
TST
BEQ
BIT
BNE
JSR
Mov
MOV
BIC

1%:

3%:

PAGE 44

BIS
TSTB
BPL
RESET
JSR

iRl ARt
s]

THAT RTC

ARt

CTSTFL
TST22
#BIT6,aSWR
TST22
PC,WRPSW

.WORD

340

aRTCVT,R3

#28 ,aRTCVT
#BIT7,aLKS
#BIT6,aLKS
aLKS
1%
PC,WRPSW

.WORD

INTERRUPTS

240

INTERRUPT CLEARS WITH RESET
A AR

;1S CONSOLE UNDER TEST?
:IF NOT, SKIP THIS TEST
JARE LINE CLOCK TESTS INHIBITED?
sIF YES, SKIP THIS TEST

;SET PRIORITY TO 7

sSAVE LINE CLOCK VECTOR
;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

NOP
BIC
BR

#BIT6,aLKS

CMP

ERROR

(SP)+,(SP)+

sRESTORE SP AFTER INTERRUPT
;RESET DID NOT CLEAR INTERRUPT

MOV

R3,aRTCVT

;RESTORE LINE CLOCK VECTOR

SEQ 0044

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

11:44
121

PAGE 45
TEST

G
THAT RTC

SEQ 0045

INTERRUPT CLEARS WITH RESET

1906
AR

LR RSl
ls)

;*TEST 22
e

006302
006304
006310
006312
006320
006322
006326
006330
006334
006342
006350
006356
006362
006364
006372
006376
006400
006402
006410

105777
100375
042777
004737
000240
000240
042777
000402

006412
006414

022626
104052

006416
006422
006426

010377
004737
000340

000004
005737
001447
032777

001043
004737
000340
017703
012777
042777
052777

TST22:

002336
000100

172520

SCOPE

TST

JSR

174046
174036
174030

000200
012242

174014

000100

173776

173766
012242

R R

BEQ
BIT
BNE

012242
174054
006412
000200
000100
174024

TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS

18:

MOV
MoV
BIC
BIS
;gTB
L

BIC

JSR

NOP

R R R

AR R R R AR AR AR AR

CTSTFL

;IS

PC,WRPSW
.WORD
340
aRTCVT,R3
#28 ,aRTCVT

;SET PRIORITY TO 7

TST23
#BIT6,aSwR
TST22

CONSOLE

UNDER

TEST?

;IF NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INHIBITED?
;IF YES, SKIP THIS TEST

?kKS

sSAVE LINE CLOCK VECTOR
;POINT RTC VECTOR TO ERROR REPORT
:CLEAR CLOCK DONE FLAG
;ENABLE CLOCK INTERRUPTS
sWAIT FOR DONE (INTERRUPT REQUEST)

#BIT7,aLKS

;CLEAR DONE & INTERRUPT

#BIT7,9LKS
#BIT6,aLKS

PC,WRPSW
.WORD
240

sALLOW
;sGIVE

INTERRUPTS

TIME

FOR ANY

INTERRUPT

BIC
BR

#BIT6,aLKS
3s

2$:

CMP
ERROR

(SP)+,(SP)+
52

;RESTORE SP AFTER INTERRUPT
;:CLEARING BIT7 OF LKS DID NOT CLEAR INTERRUPT

3%:

MOV

R3,ARTCVT

;RESTORE LINE CLOCK VECTOR

.WORD

340

JSR

PC,WRPSW

;DISALLOW INTERRUPTS
;BR TO END OF TEST

;RESTORE

PRIORITY

TO 7

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

11:44
PAGE 46
122
TEST THAT RTC

1938
1939

19‘0

1941

;*TEST 23

19‘2

006430
006432
006436

000004
005737
001462

002336
000100

172372

}gzg

006450

042777

000100

173730

006440
006446

032777
001056

1950
1951
1952
1953
1954
1955
1956
1957
1958
1959

006456
006460
006464
006466
006472
006476
006500
006504
006510
006512

005000
012701
005002
005077
105777
100375
005077
105777
100003
005202

1962
1963

006522
006524

001370
005201

1960
1961

1964
1965

1966
1967
1968
1969
1970
1971

}g;g

006514
006520

006526
006530

006534
006536
006542
006544
006546
006550

006554

005077
005200

001003
010237

000753
013701
160201
100001
005401
020127

003403

173714
173710

006600

CMPARE:

000001

TOLER:

1977
1978

006564
006572

032777
001404

000020

1981

006600

006602

000000

48:

006600

006602

1982

&8s

3%:

173666

010237
104053

000137

172246

SCOPE
TST
BEQ
BIT
BNE

BIC

18:

173702
173676

006556
006562

006574

TST23:

177777

1974
}g;g

}g;g

AR ARl

INTERRUPT CLEARS BY CLEARING BIT7 OF LKS

ARt TE)

TEST CLOCK REPEATABILITY

MR AAL AR RR AR AR ARl a2
E]

1943
1944
1945
1946
1947

AR AR

5%:

012102

SECND:

;1S CONSOLE UNDER TEST?
;1F NOT, SKIP THIS TEST

#BIT6,aLKS

;DISALLOW INTERRUPTS

#BIT6,aSWR
TST24

;ARE LINE CLOCK TESTS INHIBITED?
;IF YES, SKIP THIS TEST

CLR
Mov
CLR
CLR
TSTB
BPL
CLR
TSTB
BPL
INC
CLR
INC
BNE
INC
BNE
MOV
BR
MOV
suB
BPL
NEG
(CMP

CMPARE
R2,FIRST
1%
FIRST,R1
R2,R1
TOLER
R1
R1.M

;00 LOOP AGAIN
;RECALL FIRST CLOCK COUNT
s CALCULATE DIFFERENCE OF TWO COUNTS
;IF POSITIVE,SKIP NEGATION OF DIFFERENCE
sMAKE DIFFERENCE A POSITIVE NUMBER
: COMPARE DIFFERENCE WITH DESIRED TOLERANCE
:BR, IF LOWER/EQUAL TO TOLERANCE

MOV
ERROR

R2,SECND
53

:STORE SECOND COUNT
;CLOCK REPEATABILITY ERROR

BIT
BEQ

#BITL,aSWR
TST24

;CLOCK TESTS ONLY?
;BR IF NOT

.WORD

BLE

JMP

FIRST:

CTSTFL
TST24

.WORD

RO
f~1.R1
R2
aLKS
alLKS
2%
aLKS
aLKsS
3
R2

;CLEAR DONE
;1S CLOCK DONE?
sBR IF NOT , TO INCREMENT TIMER
;1F DONE, INCREMENT CLOCK COUNT

3%
R1

:BR IF TIME REMAINS
: INCREMENT LOOP PASS FLAG

aLKS
RO

$EOP

;CLEAR A TIMER
sSET A FLAG INDICATING FIRST PASS THRU THIS LOOP
;CLEAR CLOCK COUNTER
;CLEAR DONE
;SYNC ON DONE

;CLEAR DONE
s INCREMENT TIMER

;BR IF TWO PASSES HAVE BEEN MADE
:IF NOT, STORE FIRST CLOCK COUNT

;ELSE, JUMP TO END OF

PASS ROUTINE

SEQ 0046

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

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

I
11:44
PAGE 47
123
TEST CLOCK REPEATABILITY

NAARAL AR

AR AR R

J*TEST 24
AR AR AR

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

TST24:

006670
000100

000100
173456

173504
173466

173454

TEST
AR AR

SCOPE

THAT

XMIT

R RS
]

INTERRUPTS ONLY WHEN ENABLED

;CLEAR TRANSMIT INTERRUPT ENABLE
;SAVE XMIT VECTOR

TSTB
BPL
JSR

#BIT6,aTCSR
aTVECT,R3
#28 ,aTVECT
aTCSR
1%
PC,WRPSW

2%:

CMP
ERROR

(SP)+,(SP)+

sRESTORE SP AFTER INTERRUPT

3s:

MOV

#48,QTVECT
#BIT6,aTCSR

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

ERROR

;XMIT DID NOT INTERRUPT

BIC
CMP

#BIT6,ATCSR
(SP)+,(SP)+

;DISABLE INTERRUPTS
;RESTORE SP AFTER INTERRUPT
;RESTORE XMIT VECTOR

1%:

012242

104054

ARl

SEQ 0047

48:

BIC

MOV
MOV

BIS
NOP

MoV

.WORD
3s

140

R3,aTVECT

;POINT XMIT VECTOR TO ERROR REPORT
;WAIT FOR DONE
;SET PSW TO PRIORITY 3

LMAIN.
MACY11 30A(1052)
19-APR-78
cZoLoc.P1N
19-APR-78 11.41

4
J
11:44
PAGE 48
T24
TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED

2011

2012

MR RA AR AR R R

2013

;*TEST 25

201‘

006704
006706
006714
006720
006722
006726
006734
006740
006742
006750
006752

000004
042777
004737
000340
017703
012777
105777
100375
052777
000240
000402

2027
2028
2029
2030
2031
2032
2033
2034
gggg

006754
006756

022626
104056

006760
006766
006774
007000
007002
007004

042777
012777
004737
000140
000240
000402

007006
007010

022626
104057

007012

010377

2040

000100
012242

173436

173434
006754
173412

173426

000100

173402

000100
007006
012242

173364
173366

TS125:

1%:

SCOPE
BIC
JSR
MoV
MoV
TSTB
BPL
BIS
NOP
BR

173344

INTERRUPTS DO NOT OCCUR WHEN DISABLED

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

sDISABLE INTERRUPTS
;SET PSW TO PRIORITY 7

JENABLE

;CONTINUE TEST
sRESTORE SP AFTER INTERRUPT

28:

CMP
ERROR

(SP)+,(SP)+
56

3$:

BIC
MOV
JSR

#BIT6,aTCSR
#48 ,QTVECT
PC,WRPSW
.WORD
140

NOP
BR

TEST THAT XMIT

MR R AR AR AR Rl

2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
5832

2037
2038
2039

ARl

SEQ 0048

sSAVE XMIT VECTOR
sPOINT XMIT VECTOR TO ERROR REPORT
;WAIT FOR DONE
INTERRUPT

;XMIT INTERRUPTS AT PRIORITY=7
;CLEAR INTERRUPT ENABLE
sPOINT XMIT VECTOR TO ERROR REPORT
;SET PSW TO PRIORITY 3

;BR TO END OF

sRESTORE SP AFTER INTERRUPT

48:

CMP
ERROR

(SP)+,(SP)+
57

5%:

Mov

R3,aTVECT

TEST=NO INTERRUPT

;XMIT INTERRUPT OCCURES WITH BIT6 CLEAR
sRESTORE XMIT VECTOR

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

11:44
PAGE 49
125
TEST THAT XMIT

2041
2042

2043

2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
gggg

s*TEST 26
R
R
TST26:
SCOPE
BIC
MOV
MOV
MOV
MOV
JSR

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

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

2059
2060
2061
2062
2063
2064
2065
2066
gggg

007076

104060

007100
007102
007110
007114
007116
007120
007126

022626
012777
004737
000140
000240
042777
000402

2069
2070
2071
2072
gg;z

007130
007132

022626
104061

007134
007140

010377
010477

000100
173330
173326
0071060
000340
012242

173324
173316
173312

173266
000100

9:
173256

TSTB
BPL
BIS
NOP

A R R

#BIT6,8TCSR
aTVECT,R3
aTPSW,R4
#2% ,9TVECT
#340,3TPSW
PC,WRPSW
.WORD
140

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

4%:

CMP
ERROR

(SP)+,(SP)+
61

5%:

MOV
MOV

R3,aTVECT
R4 ,3TPSW

2075

2076

;*TEST 27

000100

173224

173222
173220

2077

2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091

007144
007146
007154
007160
007162
007166
007174
007202
007206
007212
007214
007220
007224
007226

000004
042777
004737
000340
017703
012777
052777
005077
105777
100375
005077
004737
000140
000240

2095
2096

007240
007242

022626
104062

2092
5882

007230
007236

042777
000402

000100
012242
173174
007240
000100
173146
173140

173176

TST27:

173166
173150
1%:

173134
012242

000100

173114
2%:

R R

SCOPE
BIC
JSR
MOV
MOV
BIS
CLR
TSTB
BPL
CLR
JSR

AR R AR

RN R RN

AR RN R RN

sWAIT FOR DONE
JENABLE

AR R

INTERRUPTS

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

sGIVE TIME FOR ANY INTERRUPTS
sDISABLE INTERRUPTS
;BR TO END OF TEST

#BIT6,aTCSR
5%

R R

sCLEAR INTERRUPT ENABLE
sSAVE XMIT VECTOR.
JSAVE XMIT PSW VECTOR
sSET UP XMIT VECTOR
sSET PIO 7 AFTER INTERRUPT
;SET PSW TO PRIORITY 3

aTCSR
1%
#BIT6,aTCSR

CMP
MOV
JSR
.WORD
NOP
BIC
BR

173252

R R AR

TEST TRANSMITTER FOR DOUBLE INTERRUPTS
R R R R R R R R R R R R AR R AR AR AR R R R AR AR

007130
012242

SEQ 0049

INTERRUPTS DO NOT OCCUR WHEN DISABLED

ERROR
2$:

JRESTORE SP AFTER INTERRUPT

sXMIT RE-INTERRUPTED
JRESTORE XMIT VECTOR
sRESTORE XMIT PSW VECTOR
R R R

R R R AR AR R

R R AR AR RN R

R AR

RR AR

TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF
R R R

#BIT6,8TCSR
PC,WRPSW
.WORD
340
@TVECT,R3
#2% ,8TVECT
#BIT6,3TCSR
aTBUF
aTCSR
1%
aTBUF
PC,WRPSW
.WORD
140

NOP
BIC
BR

#BIT6,aTCSR
3s

CMP
ERROR

(SP)+,(SP)+
62

R R R R R R

RN RN R R RN RN RN RN RN R

RRRR

sDISABLE INTERRUPTS
;SET PSW TO PRIORITY 7
:sSAVE XMIT VECTOR
LPOINT XMIT VECTOR TO ERROR
sENABLE INTERRUPTS
sLOAD TBUF
sWALT FOR DONE (INTERRUPT)
sFILL SECOND BUFFER TO RESET INT.
sALLOW INTERRUPTS

sGIVE TIME FOR ANY INTERRUPTS
sDISABLE INTERRUPTS
;BR TO END OF TEST

sRESTORE SP AFTER INTERRUPT

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

2097
2098
2099

007244

010377

173112

11:44

127

3%:

PAGE

50
TEST THAT XMIT
MoV

INTERRUPT CLEARS WITH LOADING TBUF

R3,aTVECT

;LOADING TBUF DID NOT CLEAR INTERRUPT.
sRESTORE XMIT VECTOR

SEQ 0050

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

mn
&
11:44
PAGE 51
127
TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF

2100
2101
2102

;;tt'QQtfi'ttt"tt""""'t'ttt't"tii"t'ttttttttt'ttttttttititt
S+TEST 30
TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY

2]03

2 ;ttti"'"tii""tt"i"i"'t"it't'"'tttttit"ittttt'ttt'ttttt

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

g}}z

007312

104063

2117
2118
g};g

007314
007316
007324

000005
032777
001401

3}3}

007326

104115

2123
2124
2125
2126
2127
2128
g}gg

007330
007332
007340
007344
007346
007350
007356

005000
052777
062700
005200
001374
033777
001404

2131
Sigg

007360
007366

042777
104116

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
5};5

007440
007442
007446

000005
105777
001404

2154
2155

007450
007456

042777
104066

slzg

5}23

TST30:
000004

173070

173064
004000

173050

000004

173040

004000

173022

000004
000000

173012

004000

172770

000004

172764

38:
wT:

WDONE:

172734

004000

172720

00000¢

172714

58:

68:

172700

000004

28:

4$:

172756
172744

000004

WACTV:

172674

SCOPE
RESET
BIS
CLR
CLR
BIT
BNE
INC
BNE
BIC

#BIT2,3TCSR
RO
aTBUF
#BIT11,3RCSR
23
RO
WACTV
#BIT2,3TCSR

;CLEAR EVERYTHING
:SET MAINTENANCE WRAP
:CLEAR 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,3RCSR
38

;VERIFY "INIT"' CLEARS RCV ACTIVE

ERROR

115

;INIT DID NOT CLEAR RCV ACTIVE

CLR
BIS
ADD
INC
BNE
BIT
BEQ

RO
#BIT2,3TCSR
#0,R0
RO
T
BIT11,3RCSR
4$

;CLEAR A TIMER
:SET MAINTENANCE WRAP
:WAIT AT LEAST ONE BIT TIME
;VERIFY RCV ACTIVE STILL CLEAR
:BR IF CLEAR

BIC
ERROR

#BIT2,3TCSR
116

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

CLR
CLR
TSTB
BMI
INC
BNE
BIC
ERROR

RO
aTBUF
@RCSR
5%
RO
WDONE
#BIT2,3TCSR
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,aRCSR
1
#BIT2,3TCSR
65

RESET
TSTB
BEQ

@RCSR
7%

BIC
ERROR

#BIT2,3TCSR
66

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

:RCVR ACTIVE DID NOT CLEAR WITH RCVR DONE
;CLEAR DONE WITH RESET
:CHECK FOR DONE CLEAR
s CLEAR MAINTENANCE BIT

SEQ 0051

2156
2157
2158
2159

(11) & DONE

(7)

SET & CLEAR PROPERLY

JRESET DID NOT CLEAR RCVR DONE
007460
007466

042777
000400

000004

172660

78%:

BIC
BR

#BIT2,aRCSR
ST

:CLEAR MAINTENANCE BIT
;BR TO NEXT TEST

SEQ 0052

N
&
11:44
PAGE 52
130
TEST THAT RCVR ACTIVE

~N TS

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

MACY11 30A(1052}
19-APR-78
€zoLonc PN
19-APR-78 11:41

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
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200

11 1644

130

PAGE

53
TEST THAT RCVR ACTIVE

(11) & DONE

(7)

SET & CLEAR PROPERLY

s oRtRRRRRRRRRRRRRRRECRRRRCERRROORRRRRORROICRRARRRAORARRORRNRROERRORRROTS

SeTEST 31
SRR

007470
007472
007474
007502
0C7510
007514
007520
007522
007530

032777
001401

007532

106117

007534
007542
007546
007550
007556

052777
105777
001404
042777

000004
000005
052777
052777
005077
105777
100375

104067

TST31:
000001
000004

172640
172626

000001

172600

000004

172644
172642

172616

2%:

#BIT0,aRCSR
#BIT2,QTCSR

BIT
BEQ

#B1T0,aRCSR
2%

;VERIFY RCV ACTIVE CLEARED RDR ENABLE
:BR IF CLEAR

ERROR

117

;RDR ENABLE NOT CLEARED WITH RCV ACTIVE

BIS

#BITO,aRCSR

sCLEAR DONE BY SETTING RDR ENABLE

BEQ
BIC
ERROR

TST32
#BIT2,aTCSR
67

;BR, IF CLEAR TO NEXT TEST
;CLEAR MAINTENANCE BIT

000004
000005
052777
005077
105777
100375
017700
042777
105777
001401
1046075

TST32:

000004

172556
172544

172540

000004
172524

172560

RESET

CLR
;STB

:LOAD TRANSMITTER
;WAIT FOR RECEIVER DONE

aRCSR

sCHECK

FOR DONE

CLEAR

sSETTING RDR ENABLE DID NOT CLEAR RCVR DONE

TEST THAT READING RBUF CLEARS RECEIVER DONE

R AR R

#BIT2,aTCSR

R R R

R R

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

MOV

aRBUF ,RO

;READ RECEIVE BUFFER

1578

aRCSR

. .HECK FOR RECEIVE

BEQ
ERROR

#BITc,alCSR
TST33
70

RRR

;SET MAINTENANCE WRAP

;LOAD TRANSMITTER
;WAIT FOR RECEIVER DONE

BIC

RRRR RN

sCLEAR EVERYTHING

a TBUF
?QCSR

172534

a TBUF
?:CSR

SCOPE

BIS
1$:

sSET RDR ENABLE
;SCT MAINTENANCE WRAP

LS ARl R332
2222232222222

;*TEST 32
007560
007562
007564
007572
007576
007602
007604
007610
007616
007622
007624

sCLEAR EVERYTHING

BIS
BIS

TSTB

172574

SCOPE

RESET

CLR
;ETB
L

1$:

172604

TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG

RN RN RN RN RRRRRRPREROERRTORORNRORRRRRNRARNAARRARRRROOTRROEROERTRETS

:CLEAR MAINTENANCE BIT

;BR,

DONE

CLEAR

IF CLEAR TO NEXT TEST

;READING RBUF DID NOT CLEAR RCVR DONE

SEQ 0053

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

2201
2202
2203
2204
2205
2206
2207
2208

007626
007630
007636

000004
042777
042777

2210
2211
2212
2213
2214
2215
2216
2217
gg}g

007652
007656
007664
007670
007672
007676
007702
007704
007712

017703
012777
004737
000140
005077
105777
100375
042777
000405

172500
007714
012242

000004

172440

2220
2221
2222

007714
007722
007724

042777
022626
104071

000004

172430

2225
2226
2227
2228
2229

007726
007734
007742
007744
007752

012777
052777
000240
042777
104072

007754
000100

172422
172404

000004

172400

2232
2233
2234
2235

007754
007762
007770
007772

042777
042777
022626
010377

000100
000004

2209

gggz

gggg

007644

052777

000100
000100

000004

172514
172502

172500

BIS

MOV
MOV
JSR
1%:

172364
172362

SEQ 0054

;;tt!tttt'tt'tt'ttt'Qt"'tttttt'tt't"ttt'ti 1333333322333 232323322322333
;*TEST 33
TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED
- ;ttitttti'ttt"t't""ttt't't'tt't 1233323233332 232322233232232222323323232
TST33:
SCOPE
BIC
#BIT6,3TCSR
:DISABLE TRANSMIT INTERRUPTS
BIC
#BIT6,aRCSR
:DISABLE RECEIVER INTERRUPTS

172472

172456
172444

172360

11:44
PAGE 54
132
TEST THAT READING RBUF CLEARS RECEIVER DONE

2%:

3%:

4$:

#BIT2,a87CSR

:SET MAINTENANCE WRAP

CLR
TSTB
BPL
BIC
BR

SRVECT,R3
#2%,3RVECT
PC,WRPSW
.WORD
140
aTBUF
aRCSR
1%
#BIT2,aTCSR
3$

BIC
CMP
ERROR

#BIT2,3TCSR
(SP)+,(SP)+
71

;CLEAR MAINTENANCE BIT
:RESTORE SP AFTER INTERRUPT

MOV
BIS
NOP
BIC
ERROR

#48 ,3RVECT
#BIT6,aRCSR

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

BIC
BIC
CMP
MoV

#BIT6,aRCSR
#BIT2,aTCSR
(SP)+,(SP)+
R3,aRVECT

#BIT2,aTCSR
72

:SAVE RECEIVE VECTOR
;POINT RCV VECTOR TO ERROR REPORT
;SET PSW TO PRIORITY 3
;SEND A CHARACTER
;WAIT FOR RECEIVER DONE
;CLEAR MAINTENANCE BIT
;CONTINUE TEST

;RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR

:RCVR DID NOT INTERRUPT
;DISABLE INTERRUPTS
:CLEAR MAINTENANCE BIT
;RESTORE SP AFTER INTERRUPT
sRESTORE RECEIVE VECTOR

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

D
5
11:44
PAGE 55
733
TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED

2236
2237

2238

: ;tttttttttttttt"tttttt'tQt'ti"ttttt"tttttttttttttt!'ttttttttt

2239
22‘00
2241

:*TEST 34
TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED
s 1233233233323 323322323323232332333223322323223232323232322332232323222332223233332322%
TST34:
SCOPE

007776

000004

2242

010000

000005

2244
2245
2246
2247

010006
010010
010014
010022

000340
017703
012777
052777

2243

010002

004737

RESET

012242
172342
010054
000004
172320
172306

JSR

172334
172322

2248
2249
2250
2251
2252
2253
2254
2255
2256

010030
010034
010040
010042
010050
010052
010054
010062
010064

005077
105777
100375
052777
000240
000405
042777
022626
104073

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

5%2;

1%:

000100

172276

000004

172270

2%:

3%:

MOV
MOV
BIS
CLR
TSTB
BPL
BIS
NOP
BR
BIC
CMP
ERROR

BIC
MOV
JSR
NOP
BIC
&R

PC,WRPSW

.WORD
340
aRVECT,R3
#2%,3RVECT
#BIT2,3TCSR

aTBUF
RCSR
1%
#BIT6,aRCSR
3
#BIT2,3TCSR
(SP)+,(SP)+
73

#BIT6,aRCSR
#4% ,3RVECT
PC,WRPSW
.WORD
140
#BIT2,3TCSR
5%

4$:

BIC
CMP
ERROR

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

5%:

Mov

R3,aRVECT

sCLEAR EVERYTHING

:SET PSW TO PRIORITY 7
sSAVE RECEIVE VECTOR
;POINT 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
:RESTORE SP AFTER INTERRUPT

:RCVR INTERRUPTS AT PRIORITY 7
;CLEAR 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
;CLEAR MAINTENANCE BIT
:RESTORE SP AFTER INTERRUPT
:RCVR INTERRUPT REQUEST PASSED WITH BITé CLEAR
;RESTORE RECEIVE VECTOR

SEQ 0055

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

11:44
PAGE 56
T34
TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED

2272
2273

2274

IR R

2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
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

;*TEST 35
TEST RECEIVER FOR DOUBLE INTERRUPTS
R
R R
R R aa sy
TST35:
SCOPE
RESET
sCLEAR EVERYTHING
MoV
dRVECT,R3
:SAVE RECEIVE VECTOR
MOV
aRPSW,R4
sSAVE RECEIVE PSW VECTOR
MOV
#2% ,aRVECT
sPOINT RCV VECTOR TO CONTINUE TEST
MOV
#340,3RPSW
sSET PRIORITY TO 7 AFTER INTERRUPT
JSR
PC,WRPSW
;SET PSW TO PRIORITY 3
.WORD
140
BIS
#BIT2,3TCSR
sSET MAINTENANCE WRAP
CLR
aTBUF
sSEND A CHARACTER
1%:
TSTB
aRCSR
;sWAIT FOR RCVR DONE
BPL
1%
BIC
#BIT2,aTCSR
sCLEAR MAINTENANCE BIT
BIS
#BIT6,3RCSR
sENABLE RCV INTERRUPTS
NOP
;sGIVE SOME TIME

2293

010234

104075

2296
2297
2298
2299
2300
2301
2302
2303
gggg

010236
010240
010246
010252
010254
010256
010264
010270
010274

022626
012777
004737
000140
000240
042777
010377
010477
000402

2306
2307
2308
2309

010276
010300

022626
104076

010302

010377

%53‘5'.

172206
172204
010236
000340
012242

172174
172170

000004
172144
172132

172146

000004
000100

172126
172114

010276
012242

172110

000100
172066
172064

172062

172050

R R

R R R

R R AR AR AR RN

SEQ 0056

R RS

ERROR

CMP
MOV
JSR

(SP)+,(SP)+
#3% ,aRVECT
PC,WRPSW

JRESTORE SP AFTER INTERRUPT
sPOINT RCV VECTOR TO ERROR REPORT
sRESET PSW TO PRIORITY 3

NOP
BIC
MOV
MOV
BR

#BIT6,aRCSR
R3,8RVECT
R4 ,aRPSW
31

;GIVE SOME TIME
sCLEAR INTERRUPT ENABLE
sRESTORE RECEIVE VECTOR
sRESTORE RECEIVE PSW VECTOR
;BR TO END OF TEST

3s:

CMP
ERROR

(SP)+,(SP)+
76

4%:

MoV

R3,3RVECT

2%:

.WORD

#140

;RCVR INTERRUPT DID NOT OCCUR

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

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

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

AAAR SRR

LATEST 36
P

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

042777
005077
004737
000140
000240
042777
000402

010412
010414

022626
104077

010416

010377

000004
000005
004737
000340
017703
012777
052777
052777
005077
105777
100375

012242
172032
010412
000100
000004
172002
171770

000004
171756
012242

000100

SCOPE
RESET
JSR
MOV
MoV

172024
172006
1720C4
1$:
171764

BIS
BIS
CLR
TSTB

BPL
BIC

CLR
JSR

NOP
BIC
BR

171736

2%:
171734

A Al
2222222222222 22222 2

TST36:

38:

CMpP

SEQ 0057

INTERRUPTS

TEST
R

THAT RCVR

R R R R

.WORD
340
aRVECT,R3

#28 ,aRVECT
#BIT6,aRCSR
#BIT2,aTCSR
aTBUF
dRCSR
1%
#BIT2,aTCSR

.WORD

R RN

;:CLEAR EVERYTHING

PC,WRPSW

aRBUF
PC,WRPSW

INTERRUPT CLEARS BY READING RBUF

R R R R R R R

140

#BIT6,aRCSR

(SP)+,(SP)+

;SET PSW PRIORITY TO 7
sSAVE RECEIVE VECTOR
sPOINT RCV VECTOR TO ERROR REPORT
sSET RCVR INTERRUPT ENABLE
sSET MAINTENANCE WRAP
:SEND A CHARACTER
;WAIT FOR DONE (INTERRUPT)
sCLEAR MAINTENANCE BIT
sREAD RBUF TO CLEAR PENDING INTERRPUT
;SET PSW TO PRIORITY 3
sALLOW TIME FOR ANY ERRONEOUS INTERRUPT
:NO INTERRUPT=-CLEAR INT. ENABLE

ERROR

;RESTORE SP AFTER INTERRUPT
sREADING RBUF DID NOT CLEAR

MoV

R3,aRVECT

;RESTORE RECEIVE VECTOR

INTERRUPT

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

11:44
PAGE 58
136
TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF

2339
2340

2341

;.'lit"tit"'t"""""tttt't"'li"i'tt"fi'i'i"'t'ttttt'tttt't

2342

23‘.3

2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
gggg

010422
010424
010426
010432
010434
010440
010446
010454
010462
010470
010474
010476
010500
010504
010506
010510
010516

000004
000005
004737
000340
017703
012777
052777
052777
012777
105777
100375
000005
004737
000140
000240
042777
000402

2362
2363
g;gg

010520
010522

022626
104100

2366

010524

010377

‘

S*TEST 37
TST37:

012242
171716
010520
000100
000004
000377
171652

171710
171672
171670
171664

18:

012242
000100

171626

TEST THAT RESET CLEARS RECEIVE INTERRUPT

.';tiit't'i"'i"tt""'t"'tttt"t""i"'tt'.t'ttt'ttit'ti.'.i'*

SCOPE
RESET
JSR
MOV
MOV
BIS
BIS
MOV
TSTB
BPL
RESET
JSR

PC,WRPSW
.WORD
340
SRVECT,R3
#28 ,QRVECT
#BIT6,aRCSR
#BIT2.3TCSR
#377,3TBUF
@RCSR
1$

PC.WRPSW
.WORD
140

:CLEAR EVERYTHING
:SET PSW TO PRIORITY 7
: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

:CLEAR RCV INTERRUPT & RBUF
:SET PSW TO PRIORITY 3

NOP
BIC
BR

#BIT6,aRCSR
3

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

28:

CHP
ERROR

(SP)+,(SP)+
100

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

3s:

Mov

R3,aRVECT

;RESTORE RECEIVE VECTOR

171630

SEQ 0058

LMAIN.

MACY11

czoLocC.P1

30A(1052)

19-APR-78

19-APR-78 11:41

11:44

2367
2368

2369

2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382

010530
010532
010540
010542
010544
010552
010556
010562
010566
010570
010572

000004
032777
001432
000005
052777
012700
005077
105777
100375
005300
001371

2385
2386

010610
010612

001001
104101

2389
2390
2391
2392
2393

010614
010622
010624

gggg

010574
010602

010626

042777
032777

032777
001001
104102

002000

170300

000064
000003
17157¢
171564

171600

000004
040000

100000

TST40:

SCOPE
BIT
BEQ
RESET
BIS
Mov
CLR
TSTB
BPL
DEC
BNE

171550
171540

171526

1$:
2%:

BIC
BIT

BNE
ERROR
3%:

4%:

SEQ 0059

TEST THAT RESET CLEARS RECEIVE INTERRUPT

J*TEST 40

2371

2370

2383
2384

137

PAGE

BIT
BNE
ERROR

R R

AN R

R R

R R AR R R R RN R R R

R R AR

RRR

TEST THAT THE ''OR'' ERROR (BIT14) & 'ERROR'' (BIT15) CAN BE SET
R

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

#BIT10,aSwWR
TST41
#BIT2,aTCSR
#3,R0
a TBUF
aTCSR
2%
RO
1%

#BIT2,aTCSR
#BIT14,aRBUF

3%
101

#BIT15,aRBUF
4%
102

R R AR R RN R

;1S THIS TEST ENABLED
:1F NOT ENABLED, BR TO NEXT TEST
;:CLEAR EVERYTHING
;SET MAINTENANCE WRAP
;SET CHARACTER COUNT TO SEND 3 CHAR.
;LOAD TRANSMIT BUFFER
;WAIT FOR TRANSMIT DONE
;DECREMENT CHARACTER COUNT
;BR IF ALL CHARACTERS NOT TRANSMITTED
sCLEAR MAINTENANCE BIT
;TEST FOR "'OR'" ERROR FLAG

:BR,

IF SET

:"'OR" ERROR FLAG DID NOT SET

;TEST "ERROR'' FLAG
;BR, IF SET
;"'ERROR'" FLAG DID NOT SET WITH "'OR'

FLAG

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

2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424

AL AAR

SRR

ARl

J*TEST 41
SR

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

000004
032777
001444
000005
052777
012777
105777
100375
005077
052777
005000
117737
100406

TST41:

000400

1%:

171460
000001

171454

171442

001026

171430

2%:

005200
001372

042777

000005

010724
010730
010732

105777
001404
042777

171420

010740

104103

010742

042777

104103

000005

SCOPE

BIT

CONT41:
171412

171402

3s:

MoV
TSTB
BPL

(BIT14) & "'ERROR'' (BIT15)

CAN BE SET

iRl RSt
d]

TEST

BEQ
RESET
BIS

000004
177777
171464

010714
010722

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

THAT BREAK
R

TRANSMITS ALL ZEROES

AR AR AR R

#BIT8,aSWR
TST42

#BIT2,aTCSR
#-1,aTBUF
?2CSR

;1S BREAK FUNCTION TEST ENABLED?
;BR TO NEXT TEST, IF NOI ENABLED

;CLEAR EVERYTHING

:SET MAINTENANCE WRAP
: TRANSMIT ALL ONES TO RCVR
;WAIT FOR RCVR DONE

CLR
BIS
CLR
MOVB
BMI
INC
BNE

aRBUF
#BITO,aTCSR

sCLEAR DONE (LEAVING ALL CNES
sTRANSMIT BREAK

dRCSR,$BDDAT

sWAIT FOR RCVR DONE

BIC
ERROR

#BITO!BIT2,aTCSR

103

sBREAK DID NOT TRANSMIT ANYTHING

TSTB
BEQ
BIC

aRBUF

;CHECK RECEIVE BUFFER FOR ZERO

ERROR

103

8IC

#BITO!BIT2,aTCSR

CONT4
RO
2%

#BITO!BIT2,aTCSR

IN RbUF)

sCLEAR A TIMER

:BR IF DUNE
:IF NOT, INCREMENT TIMER
;BR IF TIME REMAINS
;CLEAR MAINTENANCE & BREAK BITS

;BR,

IF ZERO

;CLEAR MAINTENANCE & BREAK BITS

;BREAK DID NOT

TRANSMIT ALL ZEROES

;CLEAR MAINTENANCE

& BREAK BITS

SEQ 0060

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

11:44
T41

2425
2426

PAGE 61
TEST THAT BREAK.TRANSMITS ALL ZEROES

2‘27

.'"'ttttttt"i'Qt"'t""'"'it'ii"""'t'tittt'ittt.'tt"'tt'itt

2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
5222

:"t'it'ttt'tt'ttt"i'tt""'t"tttt"'"'t.'t.!ti'l"ttf"tttttQt
TST42:
SCOPE
BIT
#BIT10,aSwR
;1S THE “'TEST ERROR FLAGS' BIT SET
BEQ
TST43
:BR TO NEXT TEST, IF NOT SET
BIT
#BIT8,aswR
1S BREAK FUNCTION ENABLED
BEQ
1ST43
:BR TO NEXT TEST, IF NOT SET
RESET
:CLEAR EVERYTHING
BIS
#BIT2,aTCSR
:SET MAINTENANCE WRAP
BIS
#B170,aTCSR
SEND BREAK
CLR
aTBUF
:TRANSMIT A CHARACTER TO TIME BREAK
18:
TSTB
@RCSR
:WAIT FOR RCVR DONE
BPL
18
BIC
#BITO'BIT2,@TCSR ;CLEAR MAINTENANCE & BREAK BITS
BIT
#BIT13,aRBUF
;CHECK FOR FRAMING ERROR FLAG
BNE
2%
:BR, IF SET

24,28

2445
2446
2447
2448

2450
2451
2452

SATEST 42

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

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

011040

104104

011042

032777

011052

104114

011050

011054

001001

002000

170060

000400

170050

000004
000001
171340
171326

171350
171342

000005
020000

171322
171312

100000

171300

2%:

3%:

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

ERROR

104

BIT

#BIT15,3RBUF

ERROR

114

BNE

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

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

SEQ 0061

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

K
5
11:44
PAGE 62
T42
TEST THAT "'FR'* ERROR CAN BE SET DURING BREAK

2453
2454
2‘055
2456

R
S*TEST 43

2457

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

AR ARt

g:gg

011054

000004

2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
gzg?

011056
011060
011062

000005
005001
052777

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

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

gzgg

011146

042777

TST43:

000004

171262

1$:

171256
171244

28:

171240
001112

001024
001026
000004

.
171206

000004

171176

2484
2485

4$:

SEQ 0062

iRl

a2 202

SCOPE
RESET
CLR
BIS

R1
#BIT2,aTCSR

INC
MoV
TSTB
BPL
MoV
BIC
CMP
BNE
TSTB
BEQ
BR
Mov
MoV
BIC
ERROR

R1
R1,aTBUF
aRCSR
2%
aRBUF ,R2
a#SUSWR ,R1
R1,R2
38
R1
43
1%
R1,$GDDAT
R2,$BDDAT
#BIT2,3TCSR
105

;GET RECEIVED CHARACTER
;CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA
: COMPARE DATA
;BR, IF NON-COMPARE
;TEST XMIT DATA FOR ZERO
;BR, IF FINISHED
sCONTINUE IF NOT
sSTORE THE EXPECTED DATA
sSTORE RECEIVED DATA
sCLEAR MAINTENANCE BIT
;DATA COMPARE DATA

BIC

#BIT2,3TCSR

;CLEAR MAINTENANCE BIT

2486

2487
2‘088
2489
2490
2491
2492

J*TEST 44
TEST DATA PATHS USING WRAP CABLE
A
R R R R AR AR AR R RN AR
AR
TST44:
SCOPE
BIT
#BIT7,aSWR
;1S THIS TEST ENABLED
BEQ
TST4S
;BR, IF NOT
RESET
sCLEAR EVERYTHING

005001

011214

104064

2507
2508

011216
011222

017702
043701

171140

Sggz

171154

noN

105201
010177
005000
105777
100403
005200
001373

«d

2500
2501
2502
gggz

011172
011174
011200
011202
011206
011210
011212

011170

000200

O o~

2494
2495
2496
2497
2498
2499

000004
032777
001432
000005

-l

2493

011154
011156
011164
011166

167654

1%:

2%:

38:

R R R

sCLEAR EVERYTHING
:CLEAR REGISTER FOR TEST DATA
:SET MAINTENANCE WRAP
sTRANSMIT A BINARY COUNT PATTERN - UP
;TO THE BIT POSITION INDICATED BY THE
;CONTENTS OF LOCATION ''SUSW "'
; INCREMENT THE TEST DATA
sXMIT A CHARACTER
;WAIT FOR RECEIVER DONE

R R R

A R

AR R AR AR R AR AR

CLR

sCLEAR REGISTER FOR TEST DATA

INCB
Mov
CLR
TSTB
BMI
INC
BNE

R1
R1,aTBUF
RO
aRCSR
3%
RO
2%

ERROR

;RECEIVER DONE NOT SET

MOV
BIC

aRBUF ,R2
a#SUSWR ,R1

;GET RECEIVED CHARACTER
;CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA

;TRANSMIT A BINARY COUNT PATTERN - UP
;7O THE BIT POSITION INDICATED BY THE
;CONTENTS OF LOCATION ''SUSWR"'
s INCREMENT THE TEST DATA
;XMIT A CHARACTER
sCLEAR A TIMER

;WAIT FOR RECEIVER DONE
;BR IF DONE
s INCREMENT TIMER IF NOT
:BR IF TIME REMAINS

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

2509
2510
251
2512
2513
2514

2515
2516
2517

011226
011230
011232
011234
011236
011240
011244

020102
001003
105701
001406
000755
010137
010237

011250

104106

001024
001026

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

4%:

CMP
BNE
TSTB
BEQ
BR

48
R1
TST45

MOV
Mov

1%
R1,$GDDAT
R2,$BDDAT

: COMPARE DATA
sBR, IF NON-COMPARE
;TEST XMIT DATA FOR ZERO
:BR, IF FINISHED
sCONTINUE IF NOT
;STORE EXPECTED DATA
;STORE RECEIVED DATA

ERROR

106

;DATA COMPARE ERROR WITH WRAP CABLE

SEQ 0063

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

2518
2519
2520
2521

MAARA AR

011452
011456

000004
000005
004737
000340
017703
017704
017705
017737
017737
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

023737
001402
000005

011520

104110

2540

TST4S:
012242

002336
000100

167456

011720
171014
000100
000004
000100
000100
011730
011726

171016
171002
170740
170732
170720

MOV

18:

2%:
170652

011726

CLR
BIS
BIS
BIS
BIS
CLR
CLR
CLR
CLR

& CLOCK(IF AVAILABLE)

A a2
dE]

PC,WRPSW

340
@TVECT,R3
dRVECT
R4
aRTCVT,RS

aTPSW,STPSW
aRPSW,SRPSW
SRTCPSW,SCPSW

#XMIT,QTVECT

aTPSW

#RCV,IRVECT

aRPSW
CTSTFL
1%
#BIT6,aSWR
1%

#CLK,@RTCVT
aRTCPSW
#BIT6,aLKS
#BIT2,3TCSR
#BIT6,3TCSR
#BIT6,3RCSR
XMTCNT
RCVCNT

;CLEAR EVERYTHING

;SET PRIORITY TO 7
;SAVE XMIT VECTOR
sSAVE RECEIVE VECTOR
:SAVE CLOCK VECTOR
sSAVE XMIT PSW VECTOR
;SAVE RECEIVE PSW VECTOR
sSAVE CLOCK PSW VECTOR
sPOINT TRANSMIT VECTOR TO TRANSMIT ROUTINE
sALLOW INTERRUPTS AFTER XMIT INTERRUPT
sPOINT RECEIVE VECTOR TO RECEIVE ROUTINE
sALLOW INTERRPUTS AFTER RCVR INTERRUPT
;1S CONSOLE UNDER TEST?
: IF NOT SKIP CLOCK SET UP
;1F YES, ARE CLOCK TEST DISABLED?
s1F YES, SKIP CLOCK SET UP
sPOINT VECTOR TO CLOCK INTERRUPT ROUTINE
sALLOW INTERRUPTS AFTER CLOCK INTERRUPT
sENABLE CLOCK INTERRUPTS
sSET MAINTENANCE WRAP
sENABLE TRANSMIT INTERRUPTS
;ENABLE RECEIVE INTERRUPTS
sCLEAR XMIT INTERRUPT COUNTER
sCLEAR RCV INTERRUPT COUNTER
;CLEAR A REGISTER FOR TEST DATA USE
sCLEAR TIMER

;POINT R2 TO RECEIVE DATA STORAGE

JSR

PC,WRPSW

ADD
ADD
BNE

#0,R0
#1.,RO

.WORD

sSEND FIRST CHARACTER

140

;SET PSW TO PRIORITY 3
;WAIT FOR INTERRUPTS
sADD INSTRUCTIONS ARE USED TO LENGTHEN LOOP TIME
:
TO COVER THE SLOWEST BAUD RATE ON THE FASTEST CPU

BIT

#BIT6,3TCSR

sFINISHED ENTIRE TRANSMISSION
:BR, IF INTERRPUTS ARE DISABLED (FINISHED)
sCLEAR EVERYTHING

ERROR

107

: TRANSMIT INTERRUPT TIMEOUT IN MAIN. DATA TEST

CMP
BEQ

XMTCNT ,RCVCNT
48

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

ERROR

110

;RECEIVER DID NOT GET FULL TRANSMISSION

BEQ
RESET

3%:

ARl

SCOPE

RESET
JSR
.WORD
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
CLR
TST
BEQ

MoV
CLR

000000
000001

011730

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

BIT
BNE

011742
170702
012242

000100

SEQ 0064

AR ARl ARttt
ttds

s*TEST 45

2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539

2541
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

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

RESET

:
:
:

IF RCVCNT=0, NO DATA RECEIVED
IF RCVCNT=?, THEN (XMTCNT=-RCVCNT)

EQUALS THE NO, OF

INTERRUPTS LOST.

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

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

011522
011526
011530
011536
011540
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
1041M

001026
001024

011610
011614
011620
011624
011632
011640
011646

010377
010477
010577
013777
013777
013777
000501

170546
170536
170564
011734
011736
011740

011650
011654
011656
011662
011664
011672
011674
011700
011702

005237

011730

105201

002336
000100

167302

011732

TST
BEQ
BIT
BNE
TST
BNE
ERROR

5%:

011742

COMP:

000040

6%:

RESET
MoV

7%:
170532
170520
170544

000040

017722
005237
005000
000002

170440
011726

005237
000002

011732

000100
170454

170460
XCONT:
XRET:

RCV:

RCVCNT:

XMTCNT:
CLKCNT:
STPSW:

SRPSW:

113

:NO CLOCK INTERRUPTS IN EXERCISER

#BIT6,aSWR

CLKCNT

#BUF RO
R1

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

MOV
MOV

=(R0O) ,$BODAT
?}iSGDDAT

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

MOV
MOV
MOV
MOV
MOV
MOV

R3,8TVECY

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

INC
INCB
BIT
BEQ
BIC
MOvB

(RO)+,R1
6%

R4 ,@RVECT

RS,@RTCVT

STPSW,aTPSW
SRPSW,aRPSW
SCPSW,aRTCPSW
ENDEV
XMTCNT

R1
#BIT5,R1
XCONT

#BIT6,3TCSR
XRET
R1,3TBUF

CLR

MoV

aRBUF, (R2) +

RTI

INC
CLR

INC

CLKCNT

.WORD
.WORD
.WORD
.WORD
.WORD

RTI

CLK:

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

R1
#BITS5,R1
COmP
7%

BR
XMIT:

CTSTFL
5%

CLR
CMP
BNE
INCB
BIT
BEQ
BR

ERROR

032701
001404
042777
000402
110177
005000
000002

000000
000000
000000
000000
000000

4$:

=jelolel]

2574
2575
2576
2577
2578
2579
2580

N
5
11:44
PAGE 65
SEQ 0065
T45
TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK(IF AVAILABLE) SIMULTAN

RTI

RCVCNT

: 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
;RETURN, WITHOUT SENDING ANY MORE DATA
:SEND NEW CHARACTER
sCLEAR TIMER
sRETURN

:STORE RECEIVED DATA
s INCREMENT RCV INTERRUPT COUNTER
;CLEAR TIMER
sRETURN
: INCREMENT CLOCK INTERRUPT COUNT
sRETURN

€z

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

2630
2631
2632

011740
011742

000000
000044

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

SCPSW:

BUF :

_.WORD

BLKW

XMIT,RECEIVE,

€& CLOCK(IF

AVAILABLE)

SEQ 0066
SIMULTAN

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

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

c
6
11:44
PAGE 67
SEQ 0067
T45
TEST DL11-W LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK(IF AVAILABLE) SIMULTAN

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

005037
005237
023737
001404
005037
000137

001002
001076
002342

ENDEV:
001076

(LR

STSTNM

SDEVCT

INC

CMP
BEQ
CLR
JMP

002336
003500

.SBTTL
MA A LAL

TMP2 ,SDEVCT
$EOP
CTSTFL
TSTDEV

END OF
AR

;CLEAR TEST NO. COUNT FOR SCOPE ROUTINE
; INCREMENT DEVICE COUNTER

;ALL DEVICES TESTED
sBR, IF YES

;CLEAR CONSOLE UNDER TEST FLAG
;60 TEST NEXT DEVICE

PASS ROUTINE

AR AR

Rl ARl

;*INCREMENT THE PASS NUMBER (SPASS)
s*IF 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

$EOP:

001002
001074
100000

001074

012172
000042

TYPE

000240

000137
012206
377
012172
005015
040520

SCOPE
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
SEOPCT

000

047105
051523

020104
000040

$PASS

#100000,8PASS

;sZERO THE TEST NUMBER

;s INCREMENT THE PASS NUMBER

;:DON'T ALLOW A NEG. NUMBER

(PC)+
1

> .L00P?

(PC)+,a(PC)+
1

s sRESTORE COUNTER

$DOAGN

2:YES

,ENDMG

;s TYPE ""END PASS"'

$GET42: MOV
BEQ

aré2 RO
$DOAGN

;sGET MONITOR ADDRESS
;s sBRANCH IF NO MONITOR

$ENDAD:

JSR

PC, (RO)

2:G0 TO MONITOR

JMP
.WORD
.BYTE
.EVEN
.ASCIZ

a(PC)+
GOAGIN
-1.-1,0

$DOAGN:

377

$TSTNM

$RTNAD:
$ENULL:
ENDMG:

RESET

NOP
NOP
NOP

;sCLEAR

THE WORLD

;s SAVE ROOM
;:FOR
1:ACTIY

s sRETURN
s sNULL CHARACTER STRING

<CR>XLF>/END PASS

-MAIN.
MACY11 30A(1052)
19-APR-78
cZoLbC.P1
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

001000
003622

012232
012236

005037
000137

001100
003424

012242
012244
012246
012252

011646

013616
062746
000002

001076
000001

11:44
PAGE 68
END OF PASS ROUTINE

002342

GOAGIN:

CLR
CMP

$DEVCT
#1,THP2

MoV
JMP

#1000,sP
TST1

RSTRT

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

SUNIT

;CLEAR UNIT NUMBER

BNE

RSTRT:
WRPSW:

000002

SEQ 0068

(LR

JMP

BEGIN

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

;COPY RETUN PC

;MOVE NEW PSW TO STACK

;ADJUST 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:

MOV
SuB

MoV
MoV

012300

ERROR

HALT

OLDPC:
BDVECT:

.WORD
.WORD

(SP)+,RO

#4 RO

RO,BDVECT

2(SP),0LDPC
112

;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

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

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
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754

PAGE 69
11 :44
END OF PASS ROUTINE

SEQ 0069

;*THIS ROUTINE WILL

INCREMENT

SRR

ARt

THE ERROR FLAG AND THE ERROR COUNT,

;*SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL
;*AND GO TO SERRTYP ON ERROR
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
LOOP IN ERROR

;*SW15=1
;*SW13=1
;*SW09=1

s*CALL
;e
AR

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
104401

122737
001007
113737
004737
000
000
000777
005777
100001
000000
104406
032777
001402
013716
005737
001402
013716
022737
001001
000000
000002

$ERROR:
7%:

001003

001002
001012
001016
000002
166454
020000

166522

001016
001014
166466

012466
001063

000001

001106

001014
013170

012406

20$:

3s:

001010
001060

4$:

001060

012152

000042

6%:

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

ARl

INCB

SERFLG

sSET THE ERROR FLAG

MOV

$TSTNM,aDISPLAY

;DISPLAY

BEQ

INC
MOV
SUB
MOVB

SERTTL
(SP) ,SERRPC
#2 ,8ERRPC
@SERRPC,SITEMB

JSR

PC,S$ERRTYP

TYPE

#BIT13,3SWR
208
.SCRLF

A el

sDON'T LET FLAG GO TO ZERO

TEST NUMBER AND ERROR FLAG

s INCREMENT ERROR COUNT
sGET ADDRESS OF ERROR INSTRUCTION
;STRIP AND SAVE THE ERROR

;SKIP TYPEOUT IF SET
:SKIP TYPEOUTS

ITEM CODE

;GO TO USER ERROR ROUTINE

CMPB

#APTENV,SENV

sRUNNING IN APT MODE

MOVB
JSR

$ITEMB,21%
PC,SATYS

sSET ITEM NUMBER AS ERROR NUMBER
sREPORT FATAL ERROR TO APT

BNE

22%:
2%:

166406

ERROR

BIT
BNE

21%:

166422

001000

.BYTE
.BYTE
BR
TST
BPL
HALT

CKSWR

BIT

0
0
22%
aSwR
3

#BIT09,aSwWR

:NO,

SKIP APT ERROR REPORT

sAPT ERROR LOOP
sHALT ON ERROR
sSKIP IF CONTINUE

JHALT ON ERROR!

sTEST FOR CHANGE

IN SOFT-SWR

;LOOP ON ERROR SWITCH SET?

BEQ

;BR IF NO

BEQ
MOV

b} 3
$SESCAPE, (SP)

:BR IF NONE
sFUDGE RETURN ADDRESS FOR ESCAPE

CMP
BNE

#SENDAD ,a#42
6%

MOV
TST

HALT
RTI

SLPERR, (SP)
SESCAPE

:FUDGE RETURN FOR LOOPING
sCHECK FOR AN ESCAPE ADDRESS

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

sRETURN

MACY11 30A(1052)
-MAIN.
19-APR-78
cZoLoc.P1
19-APR-78 11:4"

2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
r444
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

11:44
PAGE 70
END OF PASS ROUTINE
.SBTTL

SEQ 0070

ERROR MESSAGE TYPEOUT ROUTINE

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
; *ERROR

IS TO BE REPORTED.

IT THEN OBTAINS,

FROM THE "'ERROR TABLE'' (SERRTB),

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

104401
010046
005000

012502

153700
001004

012504

013746

012510
012512
012514
012516
012520
012522
012524
012530
012534

104402
000426

012536
012540

012542
012546
012552

012554
012556
012560
012564

012566
012570
012572

012576

012600
012600

012602
012604
012606
012610
012614
012616

005300
006300
006300
006300
062700
012037
001404

001063

104401
012037

001404
104401
000000
104401

011000
001004
012600
104401
000207

013046
104402
005710
001770
104401

000771
020040
012622

TYPE

MOV

.SCRLF

RO,=(SP)

CLR
BISB
BNE

RO
a#SITEMB,RO
1%

001016

MoV

$ERRPC,-(SP)

001146
012540

BR
DEC
ASL
ASL
ASL
ADD
MOV

001014

TYPOC

1%:

104401

000000

SERRTYP:

001063
012556

001063

BEQ

2%:

H
A

5%:
6%:
7%:

012616
ooc

TYPE

6%
RO
RO
RO
RO
#SERRTB,RO
(RO)+,28

.WORD

MOV
BEQ

(RO)+,48
5%

.WORD

MOV
BNE
Mov

(RO) RO
7%
(SP)+,RO

TYPE

TYPE
TYPE

.SCRLF

;:"'CARRIAGE RETURN'' & '"LINE FEED'
;:SAVE RO
;:PICKUP THE ITEM INDEX
;:1F

ITEM NUMBER IS ZERO, JUST

::TYPE

THE

PC OF

;:GET ouT

;sADJUST THE INDEX SO THAT IT WILL
H
WORK FOR THE ERROR TABLE

;:FORM TABLE POINTER

;:PICKUP '"ERROR MESSAGE'' POINTER

::SKiP TYPEOUT IF NO POINTER

;:TYPE THE ''ERROR MESSAGE"'
;:"'ERROR MESSAGE'' POINTER GOES HERE
::"'"CARRIAGE RETURN'' & ''LINE FEED''
:;PICKUP ''DATA HEADER'' POINTER
;:SKIP TYPEQUT IF 0

;:TYPE THE ''DATA HEADER"

::"'DATA HEADFR'' POINTER GOES HERE
;:"'CARRIAGE RETURN" & '‘LINE FEED"
:sPTCKUP '"DATA TABLE'' POINTER
::G0 TYPE THE DATA
: ;RESTURE RO
::"'CARRIAGE RETURN'' & ''LINE FEED'

.SCRLF
P

MoV
TYPOC
TST
BEQ
TYPE

a(RO)+,-(SP)

. 8%

;s TYPE TWO(2)

LASCIZ
.EVEN

;:TWO(2) SPACES

ERROR

::SAVE SERRPC FOR TYPEOUT
; ;ERROR ADDRESS
::G0 TYPE--OCTAL ASCIICALL DIGITS)

TYPE
RTS

(RO)
6%

THE

: :RETURN

::SAVE @(RO)+ FOR TYPEOUT

2:G0 TYPE--OCTAL ASCIICALL DIGITS)
;:1S THERE ANOTHER NUMBER?
;:BR IF NO
;:LO00P

SPACES

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

.SBTTL

SEQ 0071

TYPEOUT ROUTINE

POWER DOWN AND UP ROUTINES

R R R R R R AR

AR AR

AR R AR

;*POWER DOWN ROUTINE

AR AR SRR

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

166162
012766
012674

000024
000026

$PWRDN: MOV

000024

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

$PWRUP: MOV

000024
000026
1%:

SPWRMG:

$ILLUP:

047520

042527

$SAVR6:
$POWER:

ARl AT

R5.=-(SP)

MOV
MOV
MoV
MOV
MoV
MOV
MOV
MoV
MOV
MoV
CLR

INC
BNE

TYPE
.WORD
RTI
HALT

;PUSH RS ON STACK

aSWR,-(SP)
SP,$SAVR6

#SPWRUP ,a#PWRVEC

=2
R

R R R R R R

AR Al

;SET UP VECTOR

AR R R AR

#SILLUP ,@#PWRVEC

$SAVR6, SP

(SP)+,aSWR

(SP)+,R5

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

(SP)+,R0O

RA AR AR AR AR R

AR R

;SET FOR FAST DOWN

;GET SP

;POP STACK

INTO aSwR

;POP
;POP
;POP
:POP

INTO
INTO
INTO
INTO

STACK
STACK
STACK
STACK

R4
R3
R2
R1

;POP STACK INTO RO

#SPWRDN,@#PWRVEC ;SET UP THE POWER DOWN VECTOR
#340 ,a#PURVEC+2 ;PRIO:7
$SAVR6
;WAIT LOOP FOR THE TTY
$SAVR6
;WAIT FOR THE INC
1%
;OF WORD

$POWER

LASCIZ

<15><12>"'POWER"’

sPUSH aSWR ON STACK
;s SAVE SP

sHANG UP

:*POWER UP ROUTINE

AR AR AR AR

166126

012622
000340
012766
012766

#SILLUP ,Q#PWRVEC ;SET FOR FAST UP
#340,3#PWRVEC+2 ;PRIO:7
RO,-(SP)
sPUSH RO ON STACK
R1,-(SP)
sPUSH R1 ON STACK
R2,-(SP)
;sPUSH R2 ON STACK
R3,-(SP)
sPUSH R3 ON STACK
R4 ,-(SP)
sPUSH R4 ON STACK

MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MoV
MOV
HALT
BR

s AR

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

ARl

sREPORT THE POWER FAILURE

;POWER FAIL MESSAGE POINTER
;: THE

POWER UP SEQUENCE WAS STARTED

sPUT

THE

;

BEFORE THE POWER DOWN WAS COMPLETE
SP HERE

PAGE 71
n 144
ERROR MESSAGE

~NXR

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

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

H
11:44
PAGE 72
POWER DOWN AND UP ROUTINES

SEQ 0072

2850
ggg;

.SBTTL

SCOPE HANDLER ROUTINE

2853

2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW14=1
LOOP ON TEST
;*SW09=1
LOOP ON ERROR
s *CALL
s
SCOPE
;:SCOPE=]I0T
013000
013000
013002
013010

104406
032777
001052

$SCOPE:

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

000004
013040
177060
000004

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

001003

040000

166030

000004

001000

165754

001010

001006

001003

001002
001002
001006
001010
001060
000001
001002
001006

001072

001015
165676

R R R

CKSWR
BIT
BNE
HAARRSTART OF
$XTSTR: BR
18:

R R

R R AR AR R

R R R R AR AR AR R R R

R R R RN

;:TEST
FOR CHANGE IN SOFT-SWR
#BIT14,3SWR
::LOOP ON PRESENT TEST?
SOVER
;:YES IF SW14=1
CODE FOR THE XOR TESTER#F#A#
6%
;:1F RUNNING ON THE ''XOR'' TESTER CHANGE
;:THIS INSTRUCTION TO A ''NOP'' (NOP=240)
@#ERRVEC,~(SP)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
#5% ,a#ERRVEC
;:SET FOR TIMEOUT
ar177060
::TIME OUT ON XOR?

MOV
MoV
TST
MOV
(SP)+ ,@#ERRVEC
;;RESTORE THE ERROR VECTOR
BR
$SVLAD
::6G0 TO THE NEXT TEST
5%:
CMP
(SP)+,(SP)+
s sCLEAR THE STACK AFTER A TIME OuT
MOV
(SP)+ ,a#ERRVEC
;;RESTORE THE ERROR VECTOR
BR
78
;:LOOP ON THE PRESENT TEST
6$:;#XAXNEND OF CODE FOR THE XOR TESTER##NNN
28:
TSTB
SERFLG
::HAS AN ERROR OCCURRED?
BEQ
$SVLAD
::BR IF NO
BIT
#BI1T09,asSwR
::LOOP ON ERROR?
BEQ
4%
::BR _IF NO
7%:
MoV
SLPERR,SLPADR
;;SET LOOP ADDRESS TO LAST SCOPE
BR
SOVER
48:
CLRB
SERFLG
;:ZERO THE ERROR FLAG
$SVLAD: INCB
STSTNM
::COUNT TEST NUMBERS
MOvB
STSTNM,STESTN
;;SET TEST NUMBER IN APT MAILBOX
Mov
(SP) ,SLPADR
::SAVE SCOPE LOOP ADDRESS
MOV
(SP) ,SLPERR
::SAVE ERROR LOOP ADDRESS
CLR
SESCAPE
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
MOvB
#1,SERMAX
;:ONLY ALLOW ONE(1) ERROR ON NEXT TEST
SOVER:
MOV
STSTNM,@DISPLAY ;:DISPLAY TEST NUMBER
MOV
SLPADR, (SP)
::FUDGE RETURN ADDRESS
RTI
;:FIXES PS

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

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

PAGE 73
1" :44
SCOPE HANDLER ROUTINE

013152
013160
013166
013170
013176
013176
013200
013202
013206
013210
013216
013220
013226
013230
013234

013242
013246
013250

013254
013256
013260
013264
013266
013272
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

112737
112737
000403
112737

010046
010146
105737
001450
122737
003031
132737
001425
017600
062766
005737
001375
010037
105720
001376
163700
006200
010037
012737
000413
017637
062766
013746
004737
000000
105737
001413
005737
001410
005737
001375
017637
005237
062766
105037
105037
105037
012601
012600
000207
000
000
000

013420

013416

:A}Vé:
ATYC:

013414

000004
000002
001066

000004

001102

000004
000002
177776
013420

1%:

001066
3s:

é::

013416

10%:

001106
001066

000004
001066
000002
013416
013415
013414

11%:
001070

000004

12%:

SMFLG:
$LFLG:
$FFLG:

AR R AR R AR AR

AR AR RN

Rl Rttt
d]

;TO REPORT FATAL ERROR
;TO TYPE A MESSAGE

MOVB

#1,8FFLG
#1,8MFLG
SATYC

#1,8FFLG

;TO ONLY REPORT FATAL

MOV
MOV
TSTB
BEQ

RO,-(SP)
R1,-(SP)
SMFLG
5%

sPUSH RO ON STACK
;PUSH R1 ON STACK
sSHOULD TYPE A MESSAGE?
;IF NOT: BR

;IF NOT: BR

CMPB

#APTENV,SENV

BITB

#APTSPOOL ,$SENVM ;SHOULD SPOOL MESSAGE?

MOV
ADD
TST

84 (SP) RO
#2,4(SP)
$MSGTYPE

MOV

RO,$SMSGAD

SUB
ASR
MOV
ggv

$MSGAD,RO
RO
RO,SMSGLGT
g:.SHSGTYPE

MOV

@4 (SP) 4%

MOV
JSR

177776,-(SP)
PC,STYPE

BEQ

2%:

013326
000004

MOVB
MOVB
BR

BNE

001102
001104
000004

R R R R AR AR

APT COMMUNICATIONS ROUTINE

000001

001107

AR AR

ASR

$ATY1:
$ATY3:

000100

.SBTTL

013416
013414

001106

000001
000001

000001

SEQ 0073

BNE

TSTB
BNE

ADD

;OPERATING UNDER APT?

;IF NOT: BR

;1F NOT: WAIT

(RO)+
P 3

#2,4(SP)

ERROR

sGET MESSAGE ADDRESS
;BUMP RETURN ADDRESS
sSEE IF DONE W/ LAST XMISSION?

;PUT ADDRESS IN MAILBOX
sFIND END OF MESSAGE

;SUB START OF MESSAGE
;GET MESSAGE LENGTH IN WORDS
sPUT LENGTH IN MAILBOX
sTELL APT TO TAKE MESSAGE

sPUT MSG ADDR IN JSR LINKAGE-

;BUMP RETURN ADDRESS

sPUSH 177776 ON STACK
;CALL TYPE MACRO

.WORD

TSTB

$FFLG

;SHOULD REPORT FATAL ERROR?

TST

SENV

sRUNNING UNDER APT?

MoV

a4 (SP) ,SFATAL

BEQ
BEQ
TST
BNE

INC
ADD
CLRB
CLRB
CLRB

MOV
MOV
RTS
.BYTE
.BYTE
.BYTE

.EVEN

12%

12%
$SMSGTYPE
11%

$MSGTYPE
#2,4(SP)
$FFLG
SLFLG
$MFLG

(SP)+,R1
(SP)+,R0
PC

O
0
0

;1F NOT: BR

;1F NOT: BR
sFINISHED LAST MESSAGE?
;I1F NOT: WAIT
;GET ERROR #

sTELL APT TO TAKE ERROR
;BUMP RETURN ADDRESS
sCLEAR FATAL FLAG
sCLEAR LOG FLAG
sCLEAR MESSAGE FLAG
;POP STACK INTO R1
sPOP STACK INTO R1
sRETURN
;LOG FLAG
JFATAL FLAG

M
(wd

JMAIN.
MACY11 30A(1052)
19-APR-78
CZ0LDC.PIN
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,
czl

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

2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
297N
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012

1 44
PAGE 75
APT COMMUNICATIONS ROUTINE

.SBTTL
MAARA

SEQ 0075

TYPE ROUTINE
AR

:*ROUTINE

ARl

TO TYPE ASCIZ MESSAGE.

iRt

MESSAGE MUST

TERMINATE WITH A 0 BYTE.

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

;*NOTE1:

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

;*NOTEZ2:
;*NOTE3:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

- %

s*CALL:
;*1) USING A TRAP

o* .
:*0

TYPE

INSTRUCTION

.MESADR

s sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1%

s:1S THERE A TERMINAL?
;:BR IF YES
ssHALT HERE IF NO TERMINAL
s sLEAVE

@2(SP) RO
#APTENV,SENV

2:;GET ADDRESS OF ASCIZ STRING
s sRUNNING IN APT MODE

#APTSPOOL ,$SENVM ;;SPOOL MESSAGE TO APT

TYPE

MESADR

$TYPE:

TSTB
BPL

013420
013424
013426
013430
013432
013434
013440
013446
013450
013456
013460
013464
013470
013472
013500
013502
013504
013506
013510
013512
013516
013520
013524
013526
013532
013534
013536
013540
013542

105737
100002
000000
000430
010046
017600
122737
001011
132737
001405
010037

004737
000000

132737
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001063
105037
000755

001057

HALT

1%:

[ [0}

000002
000001

001106

MOV
CMPB

000100

001107

BITB

013470
013160
000040

BNE

BEQ

MOV

001107

618%:

62%:

JSR

.WORD

RO,-(SP)

62%

2.NO,GO CHECK FOR APT CONSOLE

62%

;:NG,GO CHECK FOR CONSOLE

RO,61%

PC,SATY3

(SP)+

;s
1F TERMINATOR POP IT OFF

000002

60$:
3s:

MOV
ADD

(SP)+,R0O
#2,(SP)

000011

4%:

CMPB
BEQ
CMPB
BNE

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

000200

RTI

TST
TYPE

013546
013550
013554
013560
013562

004737
123726
001350
013746

013632
001056

013566
013572
013574

105366
002770
004737

000001

5%:
6%:

001054

013632

7%:

;;APT CONSOLE SUPPRESSED
;:YES,SKIP TYPE OUuT
s sPUSH CHARACTER TO BE TYPED ONTO STACK
ssBR IF IT ISN'T THE TERMINATOR

;sRESTORE RO
2 :ADJUST RETURN PC

THE

STACK

: sRETURN

s sBRANCH IF <HT>
s :BRANCH IF NOT <CRLF>

(SP)+

;:POP
ssTYPE

CLRB

S$CHARCNT

2%
PC,STYPEC
SFILLC,(SP)+
2%
S$NULL ,-(SP)

s:CLEAR CHARACTER COUNT

ssGET NEXT CHARACTER
2:G0 TYPE THIS CHARACTER
5sIS IT TIME FOR FILLER CHARS.?
ss1F NO GO GET NEXT CHAR.
::GET # OF FILLER CHARS. NEEDED

DECB
BLT
JSR

1(SP)
6%
PC,STYPEC

::BR IF NO--GO POP THE NULL OFF OF

SCRLF

01367¢

;;SPOOL MESSAGE TO APT

s sMESSAGE ADDRESS

#APTCSUP,SENVM
608
(RO)+,-(SP)
43

TST

;s SETUP MESSAGE ADDRESS FOR APT

BITB
BNE
MOVB
BNE

2$:

s sSAVE RO

BR
JSR
CMPB
BNE
Mov

<CR><LF> EQUIV
A CR AND LF

::AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
::G0 TYPE A NULL

STACK

czl

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

3013
gg}g

013600
013604

105337
000770

013676

DECB
BR

gg}g
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032

3033
3034
gggz

11:44
PAGE 76
TYPE ROUTINE

SCHARCNT
7%

SEQ 0076

;.00 NOT COUNT AS A COUNT
;.L00P

;HORIZONTAL TAB PROCESSOR
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

165204
000002

MOVB
JSR
BITB
BNE
TST
BR
$TYPEC: TSTB
BPL
MOVB
CMPB

000002

1%:

013676

165212

000002
000015

8%:
9%:

013676
000012

¥ ,(SP)
PC,STYPEC
#7 ,8CHARCNT
9%
(SP)+
2%
as$TPS
$TYPEC
2(SP) ,as$TPB
#CR,2(SP)

BNE
CLRB
BR
CMPB
BEQ

INCB
$CHARCNT: .WORD
$TYPEX: RTS

1%
SCHARCNT
S$TYPEX
#LF,2(SP)
S$TYPEX

(PC)+
0
PC

ssREPLACE TAB WITH SPACE
;s TYPE A SPACE
s sBRANCH IF NOT AT
;:TAB STOP
s :POP SPACE OFF STACK
ssGET NEXT CHARACTER
ssWAIT UNTIL PRINTER IS READY
2sLOAD CHAR TO BE TYPED INTO DATA REG.
s:1S CHARACTER A CARRIAGE RETURN?
s sBRANCH IF NO
s YES==CLEAR CHARACTER COUNT
JEXIT
2:1S CHARACTER A LINE FEED?
s sBRANCH IF YES
;;COUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

ggg;

.SBTTL

3039

3040
3041
ggz%

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*0CTAL (ASCII) NUMBER AND TYPE IT.
;':;VPOS---ENYER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:
i
MOV
NUM,-(SP)
:NUMBER TO BE TYPED
o
TYPOS
;s CALL FOR TYPEOUT

3044
3045
3046
3047
3048

a®
it
o

gggg

BINARY TO OCTAL (ASCII) AND TYPE
R

.BYTE
.BYTE

R R

R R R R R N R R R R R R AR RN R R R AR R AR RN

N
M

:®

;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
:sM=1 0R 0
::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

3051
3052

:*STYPON=-==-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR STYPOC

3053
3054

s*CALL:
M
MOV

gggz

TYPON

NUM,-(SP)

s sNUMBER TO BE TYPED

ssCALL FOR TYPEOUT

3057
3058

;*$TYPOC~---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:

gggg

3059

3062
3063
3064
3065
3066
3067
3068

M
czl

H
013702
013706
013714
013720
013724
013726
013734

017646
116637
112637
062716
000406
112737
112737

000000
000001
014127
000002
000001
000006

014125

014125
014127

MOV

TYPOC

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

NUM,-(SP)

s sNUMBER TO BE TYPED

a(SP),-(SP)
1(SP),SOFILL
(SP)+,SOMODE+1
#2,(SP)
STYPON
#1,80FILL
#6,30MO0DE +1

;:PICKUP THE MODE
2:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
2sADJUST RETURN ADDRESS

;:CALL FOR TYPEOUT

;sSET THE ZERO FILL SWITCH
2sSET FOR SIX(6) DIGITS

:
:
p
‘
p
g
.
:
p
p

.
)
:
:
!

é
{
g

ROL

;sGET LSB OF THIS DIGIT

TST

4$:

000060
000040
014122
014122
014124

5%:
7%:

BEQ
INC
BIS

BIS

MOVB
TYPE
DECB
BGT

BLT
INC

6%:

000002

000004
8%:
$OCNT:

$OFILL:
$OMODE:

BR
MOV

MOV
MOV
MOV
MoV
RTI

.BYTE

.BYTE
.BYTE

.BYTE
.WORD

s
als o alt alt o all bt als
ol
N

(SP)+,R5
(SP)+ R4

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

;:TYPE

THIS DIGIT?

::BR IF NO
::GET RID OF JUNK

ssTEST FOR 0
;s SUPPRESS THIS 0?
::BR IF YES
;:DON'T SUPPRESS ANYMORE 0'S
ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY
JsSAVE FOR TYPING
::G0 TYPE THIS DIGIT
::COUNT BY 1
ssBR IF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
::RESTORE RS
: sRESTORE R4
:sRESTORE R3
JsSET THE STACK FOR RETURNING
; ;RETURN
: ;STORAGE FOR ASCII DIGIT
;:TERMINATOR FOR TYPE ROUTINE
s:0CTAL DIGIT COUNTER
;:ZERO FILL SWITCH
: NUMBER OF DIGITS TO TYPE

7
#177770,R3
4s

TR N N
T

DECB
BPL
BIC
BNE

ROL
ROL
MOV

I et all ol

;:G0 DO MSB
;:FORM THIS DIGIT

Y P IR
T N

177770

ROL

T R

3%:

014126

::ROTATE MSB INTO ‘"

R R| P

2%:

;s SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
s:GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD

R R R R

1%:

R4, SOMODE
SOFILL.R4
12(SP) ,RS

ssGET THE NUMBER OF DI“ITS TO TYPE

014104
014106
014110
014116
014120
014122
014123
014124
014125
014126

000006
014126
014125
000012

NEG
ADD
MOVB
MOVB
MoV
CLR
ROL
BR

s :SAVE R4
:sSAVE RS

014100
014102

005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

MOVB

ssSET THE ITERATION CO NT
::SAVE R3

R Y

014072
014074
014076

110337
104401
105337
003347
002402

014127

#5,80CNT
R3,-(SP)
R4, =(SP)
R5,=(SP)
$OMODE +1,R4
R4

014042
014044
014046
014052
014056
014062
014066

005704
001403
005204
052703
052703

[[1]'}
MOV
MOV

014040

$TYPON: MOVB

014036

100016
042703
001002

014124

014030
014032

000005

czl

014010
014012
014014
014016
014020
014022
014024

112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337

SEQ 0077

013742
013750
013752
013754
013756
013762
013764
013770
013774
014000
014004
014006

oOoOoOoOoO

3069
3070
307
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
3108
3109
3110
31
3112
3113
3114

mn 6
11:44
PAGE 77
BINARY TO OCTAL (ASCII) AND TYPE

P
L
N R

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

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

3115
3116
3117
3118
3119
3120
32
3122
3123
3124
3125
3126
3127
3128
3129
3130
313N
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145

3146
3147
3148
3149
3150
3151

3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170

11:44
PAGE 78
BINARY TO OCTAL
.SBTTL

TTY

ARl A

AR AR

.ENABL
R

014130
014136
014140
014144
014146
014152
014156
014162
014164
014172

022737
001074
105777
100071
117746
042716
022726
001062
123727
001456

014174
014200
014204
014210
014212
014216
014220
014222
014226

104401
104401

104402
104401
005046
005046
105777
100375

014230
014234

117746
042716

014240
014244
014246
014252
014256

021627
001005

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

021627
001022
005766
001403
016677
062706

013746

104401

062706
000757

104401
123727

001003
012777
000002
004737

000176

001040

164700

164674
177600
000007

001034

000001

014655
014662
000176

19%:

164616

7%:

164612

177600

000025

9%:

014650
000006

208:

000015

108:

00000¢

000002
000006
001063
001035

000001

000100

164514

013632

164536

6
SEQ 0078

(ASCII) AND TYPE

INPUT ROUTINE
A

i 222222232223
22222223
2

LSB
R

R R R

R R R R R

R R

R RN R R R

RN AR R RN AR

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
: *WHEN OPERATING IN TTY FLAG MODE.
$CKSWR: CMP
#SWREG,
SWR
::1S THE SOFT-SWR SELECTED?
15%
BNE
: ;BRANCH IF NO
TSTB
asTKS
:;CHAR THERE?
BPL
15%
s:1F NO, DON'T WAIT AROUND
MOVB
as$TkB,~-(SP)
;s SAVE THE CHAR
BIC
# C177,(SP)
::STRIP-OFF THE ASCII
#7,(SP)+
CHP
s:IS IT A CONTROL G?
15%
BNE
::NO, RETURN TO USER
CMPB
$AUTOB,
71
::ARE WE RUNNING IN AUTO-MODE?
BEQ
15%
: ;BRANCH IF YES
$GTSWR:

014675

$:
$:

15%:
16%:

TYPE
TYPE

SCNTLG
. SMSWR

CLR
CLR
TSTB

BPL

. SMNEW
=(SP)
-(SP)
asTkKS
7%

ssECHO THE CONTROL=-G ( G)
s TYPE CURRENT CONTENTS
:sSAVE SWREG FOR TYPEOUT
s:60 TYPE=--OCTAL ASCIICALL DIGITS)
s ;PROMPT FOR NEW SWR
;sCLEAR COUNTER
;:THE NEW SWR
;:CHAR THERE?
;s
1F NOT TRY AGAIN

MOVB
BIC

a$TkB,~(SP)
# (177,(SP)

::PICK UP CHAR
:sMAKE IT 7-BIT ASCII

CMP
BNE
TYPE

(SP),#25
108

3218 IT A CONTROL=U?
;sBRANCH IF NOT
ssYES, ECHO CONTROL=U ( V)
s : IGNORE PREVIOUS INPUT
ssLET'S TRY IT AGAIN

MOV
TYPOC

TYPE

ADD

SWREG,~(SP)

LSCNTLUY

#6,SP

19%

CMP
BNE
TST
BEQ

MOV

ADD
TYPE
CMPB

BNE
MOV

#100,387kS

JSR

PC.STYPEC

RTI

s3IS IT A <CR>?
::BRANCE IF NO
s3YES, IS IT THE FIRST CHAR?
s ;BRANCH IF YES
::SAVE NEW SWR
ssCLEAR UP STACK
J3FCHO <CR> AND <LF>
:;RE-ENABLE TTY KBD INTERRUPTS?
s ;BRANCH IF NOT
s sRE-ENABLE TTY KBD INTERRUPTS
; sRETURN
s sECHO CHAR

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

nn
3172
3173
3174
3175
3176
3177
3178
3179

3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198

3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
321
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226

014336
014342
014344
014350
014352
014356
014362
014364
014366
014370
014372
014376
014402
014404
014410

021627
002420
021627
003015
042726
005766

001403
006316
006316
006316
005266
056616
000707
104401
000720

11:44

TTY

INPUT ROUTINE

000060
000067

CHp
BLY

(SP) ,#60
18%

BIC

#60, (SP)+

BEQ

17%

CHP
BGT

000060
000002

TST

000002
177776

17%:

001062

18%:

SEQ 0079

PAGE 79

2(SP)

ASL
AL
ASL
INC

(SP)
(SP)
(SP)
2(SP)

BR
LSB

208

BIS
BR
TYPE

.DSABL

(SP) ,#67
18%

=2(SP), (SP)
78
. SQUES

;:CHAR < 0?
:;BRANCH IF YES
::CHAR > 7?
;:BRANCH IF YES
;:STRIP=OFF ASCII
;1S THIS THE FIRST CHAR
;;BRANCH IF YES

::NO, SHIFT PRESENT
CHAR OVER TO MAKE
4
ROOM FOR NEW ONE.
-

;sKEEP COUNT OF CHAR
::SET IN NEW CHAR
;:GET THE NEXT ONE
;s TYPE

72<CR><LF>

s :SIMULATE CONTROL=-V

Rttt RRRERRRRRRRRRNORRRARRRRRRRARRRRRRRARRORRRARANARSORAANRRAORRRARERRSY

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s*CALL:
B
RDCHR
;s INPUT A SINGLE CHARACTER FROM THE TTY
RETURN HERE
ot
: s CHARACTER IS ON THE STACK
. %
;:WITH PARITY BIT STRIPPED OFF
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%:

2%:

164360
177600
000021

000004

000140

000004

000175

000040

000004

MOV
MOV
TSTB
BPL
MovB

BIC
CMP
BNE
TSTB
BPL
MOvVB
BIC

¥ (<177>,4(SP)
4(SP) ,#23
38
as$TKS
2%
a$1KkB,~(SP)
# C177,(SP)

CMP

4(SP),M75

CMP
BNE
BR
CMP
BLT

3s:

BGT

BIC

4s:
s

(SP) ,-(SP)
4 (SP),2(SP)
as$TKS
1%
a$TKB,4 (SP)

RTI

(SP)+,#21
2%
1%
4(SP),#140
4%
43

#40,4(SP)

::;PUSH DOWN THE PC
:sSAVE THE PS
;:WAIT FOR

s:A CHARACTER
:sREAD THE TTY
;:GET RID OF JUNK IF ANY
;:1IS IT A CONTROL=-S?
:sBRANCH IF NO
:;WAIT FOR A CHARACTER
;:LO0OP UNTIL ITS THERE
:3GET CHARACTER

ssMAKE IT 7-BIT ASCII
;:IS IT A CONTROL=-Q?
ss1F NOT DISCARD IT
;s YES, RESUME
::1S IT UPPER CASE?

; ;BRANCH IF YES
5318 IT A SPECIAL CHAR?
:;BRANCH IF YES
ssMAKE IT UPPER CASE
;:G0 BACK TO USER

AR RRRREERERRRRRRERRRRRERRERRR
AR RRRRRARR R RR AR AR RS

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

i*CALL:

it
it
%

014532
014534

010346
012703

014640

RDLIN
RETURN HERE

SROLIN: MOV
18:
MOV

R3,=-(SP)
#STTYIN,R3

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

;. SAVE R3
::GET ADDRESS

001356
105063
104401

012603

000177

10%:

001062

4%:

u14636
014636
000015

3%:

177777
001064

011646
016666
012766
000002

000004
014640

052536
136
005015
020075
040
036440

005015
006507
053523
000
047040
000040

000
000
000010

000002
000004
9%:

CMP

BLOS

RDCHR
MOVB
CMPB

BNE
TYPE
BR
MOVB

TYPE
CMPB
BNE
CLRB
TYPE

MOV
MOV
MOV
MOV
RTI

000
000012
020122

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

.BYTE
.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ

053505

$MNEW:

.ASCIZ

#STTYIN+8.
,R3
4%

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

015 (R3)+
2$
=1(R3)

.SLF
(SP)+,R3

(SP) ,=(SP)
4 (SP),2(SP)
#STTYIN,4(SP)

0
0
8.
/ U/<155<12>

s sBUFFER FULL?
;:BR IF YES
;G0 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
::1S IT A RUBOUT
;:SKIP IF NOT
3TYPE R '
;:sCLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER
; :CHECK FOR RETURN
;:;LOOP IF NOT RETURN
;:CLEAR RETURN (THE 15)
::TYPE A LINE FEED
:;RESTORE R3
: ADJUST THE STACK AND PUT ADDRESS OF THE
H
FIRST ASCII CHARACTER ON IT

;sRETURN
;sSTORAGE FOR ASCII CHAR.
s TERMINATOR

;:RESERVE 8 BYTES FOR TTY INPUT
::CONTROL ''U"

/ G/<15><12>
/::CONTROL "6
<15><12>/SWR =
NEW =

TO TYPE

EhEEBEEEEEREEERBI Uulrlicivivicvlevlolvlolelelelololelele]

4994

Cw' G

2%:

014610
014614
014616
014620
014626
014634
014636
014637
014640
014650
014655
014662
014670
014673
014700

104407
112613
122713
001003
104401
000763
111327
104401

014650

014572
014576
014602
014604

022703
101405

014540
014544
014546
014550
014552
014556
014560
014564
014566

SEQ 0080

dedaBPI7 B - BB R - R-E- R

3227
3228
3229
3230
3231
3232
3233
3234
3235

11 :44
PAGE 80
TTY INPUT ROUTINE

v P

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

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

11:44
PAGE 81
TTY INPUT ROUTINE

SEQ 0081

3256
3257
%ggg

.SBTTL

3260
3261
3262
3263

RN
R A AR R R R RN R AR AR AR RN RN AR AR
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "'TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
s*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

gggg

TRAP DECODER

;%GO TO THAT ROUTINE.

3266
3267
3268
3269
3270
3271
3272
3273
3274
g%;g

014704
014706
014712
014714
014716
014720
014724

3277
3278
;g;g

014726
014730
014736

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

014740

MOV
MOV
TST
MOvB
ASL
MOV
RTS

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

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

;sTHIS IS USE TO HANDLE THE ''GETPRI'* MACRO
011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

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

;sMOVE THE PC DOWN
;sMOVE THE PSW DOWN
;sRESTORE THE PSW

;gg;

.SBTTL

TRAP TABLE

3283
3284
3285
3286
3287
3288
3289
3290
3291
;gg%

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;*BY THE ''TRAP'' INSTRUCTION.

014740
014742
014744
014746
014750

014726
013420
013726
013702
013742

gggg

014752

014200

$GTSWR

3296
3297
gggg

014754
014756
014760

014130
014412
014532

SCKSWR
SRDCHR
SROLIN

Z
ROUTINE
L
$TRPAD: .WORD
$TRAP?2
STYPE
;s CALL=TYPE
$TYPOC
;;CALL=TYPOC
$TYPOS
;;CALL=TYPOS
STYPON
;;CALL=TYPON

THE ROUTINES CALLED

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

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

;;CALL=GTSWR

TRAP+5(104405)

GET SOFT-SWR SETTING

;;CALL=CKSWR
; ; CALL=RDCHR
;;CALL=RDLIN

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

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

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

SEQ 0082
ECHO TEST

.SBTTL
IR

R R

R R R

R R R R R

R RN RN

R R R AR AR RN RN R AR

R AR

;*THIS ROUTINE WILL ECHO ANY CHARACTER TYPED
;*AT THE CONSOLE

;*THE

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

000005
112777
105777
100375
17777
017700
100023
052701
030100
001403
004737
015134
006301
030100
001403
004737
015145
006301
030100
001403
004737
015157
042700
022700
001337
004737
015172
000000
000726

015106
015110
015114
015120
015122
015126
015130
015132

013600
062746
105777
100375
112077
105710
001371
000207

015134

005015
054524
015
044515
015
043122
005015
000

015142

015145
015152
015157
015164
015172
015200

165402

165364
165356

165366

2%:

010000
015106

3%:
015106

4%:
015106

5%:

015106

MSG:

WAIT:

165246

040520
000
043012
043516
0647412
047514
052123

RESET

;CLEAR EVERYTHING

MOVB
TSTB

#'+ aCTBUF

MOVB
MOV

aCRBUF ,aCTBUF

;ECHO INPUT

BIS

#BIT12,.R

;SET PARITY ERROR TEST MASK

BPL

BIT
BEQ
JSR
MPAR

ASL

ggRCSR

aCRBUF ,RO
5%
R1,RO
3%

PC,MSG

sTRANSMIT PROMPT ‘'s''
;WAIT

FOR

INPUT

;STORE INPUT
;BR IF "'ERROR''NOT SET

;CHECK
FOR PARITY ERROR FLAG
;BR IF NOT SET
;REPORT PARITY ERROR

R1
R1,RO
43

;SHIFT MASK TO TEST ''FR'' FLAG
;TEST FOR FRAMING ERROR FLAG
;BR IF NOT SET

R1
R1,RO
5%

;SHIFT MASK TO TEST ''OR'' FLAG
;TEST FOR OVERFLOW ERROR
;BR IF NOT SET

BIC
CMP
BNE
JSR

#BIT7,RO
#3.R0

sCLEAR ANY PARITY BIT
;WAS INPUT CONTROL-C

PC,MSG

;REPORT PROGRAM STOP

ECHO

MOV

a(SP)+,RO
#2,-(SP)
a§}$SR

BIT
BEQ
JSR
MFR

ASL
BIT
BEQ
JSR
MOR

MSTOP
HALT

000002
165252

TYPING A CONTROL-C

s*TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING

BPL

000200
000003

IS HALTED BY

AR ARl A2
2222222222223 22222220

ECHO:

000052
165370

TEST

ADD
TSTB

BPL
MovB
TSTB
BNE

PC,MSG

(RO) +,aCTBUF
(RO)

RTS

WAIT
PC

;REPSORT

FRAMING ERROR

;REPORT OVERFLOW ERROR

;BR IF NOT

JEND OF TEST HALT
sAFTER END OF

TEST HALT

PRESS CONTINUE TO RESTART ECHO TEST

sPICK UP MESSAGE POINTER
;ADJUST RETURN PC
sWAIT FOR XMIT DONE

sSEND CHARACTER
;1S THIS END OF MESSAGE?

;BR IF NOT
sRETURN

044522

MPAR:

.ASCIZ

<CR>XLF>/PARITY/

040522
000
042526
000127
050117

MFR:

LASCIZ

<CR>XLF>/FRAMING/

MOR:

LASCIZ

<CR><LF>/OVERFLOW/

MSTOP:

.ASCIZ

<CR>XLF>/STOP/

EEXTEXEETEXTEXTEEETEXTEXTXTIXTREN<

3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
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

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

3356
3357
3358
3359
g%g?

11:44
PAGE 83
ECHO TEST

015202

SEQ 0083

.EVEN

.SBTTL

3362

TERMINAL OUTPUT TEST

AR R R

R R R R

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

R AR

3363
3364
3365

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

3368

:;tttttt;ft't'tt'tt"ttttitttttt'tt'tt'tttttttttttt'.tttt'tittttt

g%g?

;*THE PATTERN IS REPEATED EVERY THREE LINES
x

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

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

015256

005077

3389

015264

000746

3388

015262

000000

000040
000040
165154
165150

015106

QUTTST: MOV
1$:
MOV
2$:
TSTB
BPL
MOV
INCB
DEC
BNE
JSR

165122
000200

165106

3%:

#40,R1
#40,R0
aCTCSR
2%
R1,aCTBUF
R1
RO
2%
PC,MSG

:TRANSMIT A CHARACTER
: INCREMENT CHARACTER CODE
sDECREMENT CHAR COUNT
:BR IF LINE NOT COMPLETE
;SSUE CR,LINE FEED

SCRLF
TSTB
BMI
BIT.
BNE
BR

aCRCSR
3%
#BIT7,R1
OUTTST
1%

sANY CHARACTER RECEIVED?
;BR IF YES
;FINISHED ONE PASS OF WRITABLE CHARACTERS?
;BR IF YES
;1F NOT WRITE NEXT LINE

CLR

aCRBUF

;CLEAR RECEIVER

OUTTST

;RESTART TEST IF CONTINUED

HALT

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

;STOP TEST

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

3392
3393
3394
3395
3396
3397
3398
3399
36400
3401
3402
3403
3404
3405

015266
015274
015302
015310
015312
015320
015326
015334
015336
015344
015352
015360
015366
015374

040503
020124
051523
000122
040503
020124
051523
000106
041524
047117
020124
042522
044124
020106

3408
36409
3410
3611
3412
3413
3414
3415
3616
3417
3418
3419
3420
3421
3422
3423
34264
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445

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

047504
052117
000
124
047504
052117
053440
042522
040503
020124
051523
000122
040503
020124
051523
000106
040503
020124
051523
000
102
043117
020122
046103
043101
042522
040503
020124
044502
020106
000
103
052117
051101
020060
051503
042522
044504

3406
3407

015402
015403

000
124

11:44
PAGE 84
TERMINAL OUTPUT TEST

SEQ 0084

020116
041501
052040

047516
042503
051503

EM1:

.ASCIZ

/CAN NOT ACCESS TCSR/

020116
041501
052040

047516
042503
052502

EM2:

.ASCIZ

/CAN NOT ACCESS TBUF/

051123
020105
046103
020104
052040
052506

042040
047516
040505
044527
052502
046114

EM3:

.ASCIZ

/TCSR DONE NOT CLEARED WITH TBUF FULL/

051503
042516
051440

020122
047040
052105

EM4:

.ASCIZ

/TCSR DONE NOT SET/

051503
042516
051440
052111
042523
020116
041501
051040

020122
047040
052105
020110
000124
047516
042503
051503

EMS:

.ASCIZ

/TCSR DONE NOT SET WITH RESET/

EM6:

.ASCIZ

/CAN NOT ACCESS RCSR/

020116
041501
051040

047516
042503
052502

EM7:

.ASCIZ

/CAN NOT ACCESS RBUF/

020116
041501
046040

047516
042503
051513

EM10:

.ASCIZ

/CAN NOT ACCESS LKS/

052111
052040
047516
040505
042524
042523
020116
042523
03012¢
041524

020060
051503
020124
020122
020122
000124
047516
020124
047440
051123

EM11:

.ASCIZ

/BITO OF TCSR NOT CLEAR AFTER RESET/

EM12:

.ASCIZ

/CAN NOT SET BITO OF

047101
041440
041040
043117
000122
042523
020104

047040
042514
052111
052040

EM13:

_ASCIZ

/CAN NOT CLEAR BITO OF

020124
047516

EM14:

ASCIZ

/RESET DID NOT CLEAR BITO OF TCSR/

TCSR/

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

11:44

3446
3447

015720
015726

020124
020122

046103
044502

040505
030124
041524

3450
3451
3452
3453

015745
015752
015760
015766

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

052111
052040
047516
040505

020062
051503
020124
020122

3448
3449

3454
3455
3456
3457
3458

3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
34764
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501

015734
015742

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

047440
051123

020066
051503
042522
044504
020124
020122
047440
051123
102
043117

020106
000

PAGE 85
TERMINAL OUTPUT TEST

SEQ 0085

EMI5:

.ASCIZ

/BIT2 OF TCSR NOT CLEAR AFTER RESET/

EM16:

.ASCIZ

/CAN NOT SET BIT2 OF

042524
042523
020116
042523
031124

020122
000124
047516
020124
047440

047101
041440
041040
043117
000122
042523
020104
046103
044502
020106
000
052111
052040
047516
040505
042524
042523

047040
042514
05211
052040

EM17:

.ASCIZ

/CAN NOT CLEAR BIT2 OF

020124
047516
040505
031124
041524

EM20:

.ASCIZ

/RESET DID NOT CLEAR BIT2 OF

020066
051503
020124
020122
020122
027524

EM21:

.ASCIZ

;BIT6 OF TCSR NOT CLEAR AFTER RESET/

044515
042524
020124
044522
020131
020116
042523
033124
041524

020124
051122
052101
051117
000067
047516
020124
047440
051123

EM22:

.ASCIZ

/XMIT INTERRUPT AT PRIORITY 7/

EM23:

_ASCIZ

/CAN NOT SET BITé OF

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

047040
042514
052111
052040

EM24:

.ASCIZ

/CAN NOT CLEAR BIT6 OF

020124
047516
040505
033124
041524

EM25:

.ASCIZ

020066
051503

EM26:

.ASCIZ

041524

TCSR/

051123

TCSR/

/RESET DID NOT CLEAR BIT6 OF

TCSR/

/BIT6 OF RCSR NOT CLEAR AFTER RESET/

-MAIN.
MACY11 30A(1052)
19-APR-78
CZbLDC 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
2547
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 144

PAGE 86
TERMINAL OUTPUT

SEQ 0086

TEST

047516
040505
042524
042523
051126
051105
053440
051120
054524

044440
052522
052111
047511
033440

EM27:

047101
051440
052111
051040

047040
052105
020066
051503

EM30:

.ASCIZ

/CAN NOT SET BIT6 OF

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:

.ASCIZ

/CAN NOT CLEAR BITé6 OF

RCSR/

047040
042514
052111
051040
044527
051505

EM32:

.ASCIZ

/CAN NOT CLEAR BIT6 OF

RCSR WITH RESET/

020066
051513

EM33:

LASCIZ

/BIT6 OF LKS NOT

040440
051040
000
044440
052522
052111
04751
033440

EM34:

LASCIZ

/LKS

047101
051440
052111
046040

047040
052105
020066
051513

EM35:

.ASCIZ

/CAN NOT SET BIT6 OF

047101
041440

047040
042514
052111
046040

EM36:

.ASCIZ

/CAN NOT CLEAR BIT6 OF LKS/

052105
047040
042514
052111
046040

EM37:

.ASCIZ

/RESET DID NOT

020114

EM4O:

.ASCIZ

/DUAL ADDRESSING ERROR/

041040

043117
000
051505
042111
041440
041040
043117
000
040525

020124
020122
020122
000124

cZl
TCl
1C!

LASCIZ

/RCVR

INTERRUPT WITH PRIORITY 7/

RCSR/

CLEAR AFTER RESET/

041440

INTERRUPT WITH PRIORITY 7/

LKS/

TK
TMI
TMI
TM
TOl
TP!
TP
TRi
TR’
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS
TS

TS
TS
TS
TS’
TS’

CLEAR BIT6 OF

LKS/

TS
TS
TS
TS
TS
TS
TS
TS
TS
TS

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

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
3591
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
017166
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

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

052122
042524
020124
044522
020131
052122
042524

020103
051122
052101
051117
000067
020103
051122
053440
044504
042105

122
052116
052120
047040
041503
122
052517
047111
050125

041524
051105
042040
052117
051125
041524
046102
042524
000124
042523
020104
047111
050125
020103

051524
020116
046102

042522
044504
020124
051122
052122
042524
020124
047516
040505
044124
020067
051513
103
051040
040524
054524
130

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

11 144

051505
042440
000
020066
051513
051440
052106
051505

PAGE 87
TERMINAL OUTPUT TEST

SEQ 0087

EM&T:

.ASCIZ

/BIT6 OF LKS NOT SET AFTER RESET/

047040
042514
052111

EM&L2:

LASCIZ

/CAN NOT CLEAR BIT7 OF LKS/

020067
051513
020123
042523

EM43:

.ASCIZ

/BIT7 OF LKS DOES NOT SET/

047111
050125
050040
052111

EM&4:

.ASCIZ

/RTC

INTERRUPT AT PRIORITY

047111
050125
042510
040523
000

EM4S:

.ASCIZ

/RTC

INTERRUPTS WHEN DISABLED/

EM4LT:
EM46:

LASCIZ

/RTC

INTERRUPT DID NOT OCCUR/

EM50:

.ASCIZ

/RTC DOUBLE

EMS51:

.ASCIZ

/RESET DID NOT

EMS2:

LASCIZ

/RTC

045503
040505
044514

EMS53:

.ASCIZ

/CLOCK REPEATABILITY/

020124

EMS4:

LASCIZ

/XMIT

046040

044440
052522
042111
047440
000
042040
020105
051122

020124
047516
042524
000124
047111
050125
020104
046103
044527
052111
046040

INTERRUPT/

INTERRUPT DID NOT CLEAR WITH BIT7 OF

INTERRUPTS WHEN DISABLED/

LKS/

LMAIN.
MACY11 30A(1052)
19-APR-78
czoLoc.P1
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
130
047111
050125
052111
041101
042514
130
044504
020124
051122
046530
026505
051122
000104
047514
020107
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

11:44
PAGE 88
TERMINAL OUTPUT TEST

SEQ 0088

042524
051524
020116
046102

051122
053440
044504
042105

044515
042524
051524
051120
054524

020124
051122
040440
047511
033440

EM56:

.ASCIZ

/XMIT

044515
042524
051524
020110
042514
051101

020124
051122
053440
047105
041440
000

EM57:

.ASCIZ

/XMIT INTERRUPTS WITH ENABLE CLEAR/

044515
020104
047111
050125
052111
047111
050125

020124
047516
042524
000124
051040
042524
042524

EM55:
EM60:

.ASCIZ

/XMIT DID NOT INTERRUPT/

EM61:

ASCIZ

/XMIT RE-INTERRUPTED/

042101
041124
042111
041440
044440
052522

047111
043125
047040
042514
052116
052120

EM62:

.ASCIZ

/LOADING TBUF DID NOT CLEAR INTERRUPT/

053103
044524
052117
000
053103
042516
051105
000
053103
044524
052117
051101
052111
04251€¢
000
051505

020122
042526
051440

EM63:

.ASCIZ

/RCVR ACTIVE NOT SET/

020122
047040
051440

EM64:

.ASCIZ

/RCVR DONE NEVER SET/

020122
042526
041440
042105
020110
051440

EM65:

.ASCIZ

/RCVR ACTIVE NOT CLEARED WITH DONE SET/

052105

EM66:

.ASCIZ

/RESET DID NOT CLEAR RCVR DONE/

EM67:

.ASCIZ

/RDR ENABLE DID NOT CLEAR RCVR DONE/

042111
041440
051040
047504
051104
046102

047040
042514
053103
042516
'
042440
020105

INTERRUPTS AT PRIORITY 7/

MACY11 30A(1052)
-MAIN.
19-APR-78
czoLoc P11
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
371
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
020624
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 144
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

SEQ 0089

SR
$SR(
SR(
SR(

EM70:

.ASCIZ

/READING RBUF

EM71:

LASCIZ

/RCVR

INTERRUPTS WITH ENABLE

020122
051122
040440
047511
033440

EM73:

.ASCIZ

/RCVR

INTERRUPTS AT

053103
020124
050040
020104
042440
020105
000122

020122
050522
051501
044527
040516
046103

EM74:

LASCIZ

/RCVR

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

042040

EM72:
EM75:

LASCIZ

/RCVR DID NOT

EM76:

.ASCIZ

/RCVR RE-INTERRUPTED/

044504
052502
020104
046103
047111
050125

EM77:

LASCIZ

/READING RBUF

020124
047516
040505
051126
051105
000
020047
042040
052117
000

EM100:

.ASCIZ

/RESET DID NOT

EM101:

LASCIZ

/'OR"

04252%
020104
046103
041522
052116
052120
051117
043501
047040

052105

052117
051105
000
020122
052116
052120

czl

DID NOT

CLEAR RCVR DONE/

CLEAR/

PRIORITY 7/

Re
S/
S/
$S(
St
$S
$5\
$5\
Sk

$S\

Sk
TE

INT RQST PASSED WITH ENABLE

CLEAR/

INTERRUPT/

DID NOT

CLEAR

CLEAR RCVR

FLAG DID NOT SET/

INTERRUPT/

s
$T)
$T)

.MAIN.
MACY11 30A(1052)
19-APR-78
czZoLoc P
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
b144.
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
02077
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

041522

11 :44

PAGE 90
TERMINAL OUTPUT TEST

SEQ 0090

051105
047040
052105
020110
043040

047522
052117
053440
047447
040514

EM102:

.ASCIZ

/'ERROR' NOT SET WITH

040505
020104
046530
046114
042517
040505
020104
042523
023522
051117
052101
050115
051105

020113
047516
05211
055040
000123
020113
047516
020124
042440
000
020101
051101
047522

EM103:

.ASCIZ

/BREAK DID NOT XMIT ALL ZEROES/

EM104:

.ASCIZ

/BREAK DID NOT

EM105:

.ASCIZ

/DATA COMPARE ERROR/

040524
040520
051122
05211
046102
042515
047111
041522
052040

041440

EM106:

.ASCIZ

/DATA COMPARE ERROR WITH CABLE/

EM107:

.ASCIZ

/TIMEOUT

047503
020124
05311
047125
040524
040520
051122
020116
044503

051122
042522
020105
000124
041440
042522
051117
054105
042523

EM110:

.ASCIZ

/INCORRECT RECEIVE

EM111:

_ASCIZ

/DATA COMPARE ERROR

050101
044103

041440
051105

EM112:

L.ASCIZ

/TRAP CATCHER/

020117
047111
050125
042440
05151

046103
042524
020124
042530
051105

EM113:

.ASCIZ

/NO CLK INTERRUPT IN EXERCISER/

051105
047040
052105
020110
043040

047522
052117
053440
043042
040514

EM114:

_ASCIZ

/"'ERROR'* NOT SET WITH "‘FR' FLAG/

020126

041501

EM115:

_ASCIZ

/RCV ACTIVE NOT CLEAR WITH INIT/

042522
051117
020110
000105
052517
042440
051511
051505

SET

'OR'

'FR'

IN EXERCISER

FLAG/

ERROR/

TEST/

COUNT/

IN EXERCISER/

.MAIN.
MACY11 30A(1052)
19-APR-78
CZoLoC.P1N
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

021314
021322
021330
021336
021344
021345
021352
021360
021366
021374
021402
021404
021412
021420
021426
021434
021442
021450

044524
052117
051101
020110
000
122
052103
044527
020124
052122
000124
042122
041101
052117
051101
020110
041501
000

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

124
020040
051117
051503
042524
020040
041520
043125
124
020040
050040
051503
042524
020040
041520
043125
124
020040
050040

021712
021720
021722
021730
021736
021744
021752

051513
124

020040
050040
047517
041040
124
020040
050040
051513
041440
020040
000062
042524
020040
041520

051123
040504

11 144

PAGE 91
TERMINAL OUTPUT TEST

SEQ 0091

042526
041440
053440
0471M

047040
042514
052111
052111

053103
053111
044124
051442
020042

040440
020105
052517
040524
044502

EM116:

.ASCIZ

/RCV ACTIVE WITHOUT "'START" BIT/

020122
042514
041440
053440
041522
044524

047105
047040
042514
052111
020126
042526

EM117:

.ASCIZ

/RDR ENABLE

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

/TESTH

ERROR#

TCSR/

020043
020122
041124

DH2:

.ASCIZ

/TESTH

ERR PC

TBUF/

021524
051122
051040

DH6:

.ASCIZ

/TEST#

ERR PC

RCSR/

020043
020122
041122

DH7:

.ASCIZ

/TESTH

ERR PC

RBUF/

021524
051122
046040

DH10:

.ASCIZ

/TEST#

ERR PC

LKS/

021524
051122
043440
020040
000
021524
051122
046040
020040
020061
052116

DH40:

.ASCIZ

/TEST#

ERR PC

GOOD

BAD/

DH53:

.ASCIZ

/TEST#

ERR PC

LKS

CNTY

052123
051105
020040
020040
040524

020043
020122
041522
020040
000

DH103:

.ASCIZ

/TEST#

ERR PC

RCSR

DATA/

NOT

CLEAR WITH RCV ACTIVE/

CNT2/

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

3838

11:46
PAGE 92
TERMINAL OUTPUT TEST

SEQ 0092

051505
0462440
020103
020122

DH105:

LASCIZ

/TEST®

ERR PC

R(CSR

600D

BAD/

047517
041040

021524
051122
051040
020040
020104
042101

051505
042440
020103
020122
040522
051040

021524
051122
051040
020040
051516
053103

DH110:

.ASCIZ

/TEST#

ERR PC

RCSR

TRANS

RCV/

124
020040
050040

021524
051122
051040
020040
041520
040522
000122

DH112:

.ASCIZ

/TEST®

ERR PC

RCSR

OLDPC

TRAP ADR/

051503
047440
020040
020120

051505
042440
020103
020122
042114
052040
042101

0c2140
022146

005015
026504

055103
000103

046104

M1:

.EVEN
LASCIZ

<CR><LF>/CZDLD-C/

022152
022154
022162
022170
022176

005015
020040
041511
042116
051505

M2:
M2A:

.EVEN
LASCII
LASCIZ

<CR><LF>
/
DEVICES UNDER

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

021757
021764
021772
022000
022006
022014
022022
022023
022030
022036
022044
022052
022060
022066
022067
022074
022102
022110
022116
022124
022132

124

020040
050040
051503
043440
020040
000
124
020040
050040
051503
052040
020040
000

011730
001072
012300
000001

053105
052440
052040

042040
051505
051105
020124

000040

001016

002352

DT1:

.EVEN
.WORD

$TESTN,SERRPC,TCSR,0

001016

002354

DT2:

.WORD

STESTN,SERRPC, TBUF,0

001016

002346

DT6:

.WORD

$TESTN,SERRPC,RCSR,0

001016

002350

DT7:

.WORD

$STESTN,SERRPC,RBUF,0

001016

002406

DT10:

.WORD

STESTN,SERRPC,LKS,0

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,LKS,FIRST,SECND,O

DT103:

.WORD

$STESTN,SERRPC,RCSR,$BDDAT,0

002346
000000
002346
000000
002346
000000

DT105:

.WORD

STESTN,SERRPC,RCSR,$GDDAT,$BDDAT,
0

DT110:

.WORD

$TESTN,SERRPC,RCSR,XMTCNT ,RCVCNT,O

pT112:

.WORD

$TESTN,SERRPC,RCSR,OLDPC,BDVECT,0

.END

TEST

MACY11 30A(1052)
.MAIN.
19-APR-78
czoLnc.P1?
19-APR-78 11:41
ABASE = 176500
ACDWY = 000000

= 000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

003562
002414
000000
000000
000000
000000
000000
000000
MADRé4= 000000
MAMS1= 000000
MAMS2= 000000
MAMS 3= 000000
MAMS4
= 000000
MSGAD= 000000
MSGLG= 000000
MSGTY= 000000
MTYP1= 000000
MTYP2= 000000
MTYP3= 000000
MTYP4= 000000
PASS = 000000
PRIOR= 000000
PTCSU= 000040
PTENV= 000001
PTS1Z= 000200
PTSPO= 000100

003266
000000
000000
000000
000400
000300
000000
DVECT ‘01 2302
A

)

5374
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650

13144
1139#
650
650

650
650
650
650
650
650
650
650

650
650

650
650
650

650
650
650
650
650
29554
2731

650

691

665

656
692
1317
1145
661
662
653
678
682
685
688
672
680
683
686
658
659
652
673
681
684
687
655
2988

1312

2910

29534

2912

29544

650
650
650
5394
5384
650
2697+«

663
654
657
650
650
690
27034

2983
12454

1207

1218

29524

1220

11:44
PAGE 94
CRCSS REFERENCE TABLE == USER SYMBOLS

664

689
3890

2981

SEQ 0093

MACY11 30A(1052)
19-APR-78
CZOLDC.P1
19-APR=78 11:41

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

000004

000010
000020
000040
000100

12874
522#

2177
512#
5114
510#
509#
5084
507#
506#
505#
504#
5034
5214
502#
5014
500#

000400
001000
000003
000014
011742
012254
104406
011720
011732
006536
011560
005566
010724
000015
002370
002366
000200
002400
002376
002374

002372

2686
1215

2408
522
521
520
519
518
517
516
515
514
513
1287
2373
2109
3315

1289
2415

1481
2420

2742
1723
2431
2118

2881

2092
2539
1217
3383
1478

2580

2586
26954
2864
26224
2622+

2588¢
1778¢
2411
L378

2592
1781
24184
2676

1964

11264
1125#
(38
1130#
1129%
1128+
11274

1967#

2207
2543
1768

2400

1512

1514

2167

2172

2191
2322
2482

1555

1557
2196
2326
2544

2209
2351

1560

2106
2217
2376

2113
2220
2383

2124
2228
2403

2131
2233
2415

1597
1693
1856

1599
1699
1874

1616
1700
1885

1626
1704
1892

1627

1634
1736
1921

2079
2350

2490

1592
1692
1846

1420
2609
1585
1675
1824
1989
2208

2084
2359
515#
3330
5144
513#
5424
5294
2551
553
2741
2541

1510

1591
1682
1832
2002
2226
2546
177N

1282

1792
1946

1499

1977

121
1219
1574
1642

1584
1657
1801
1948

1498
2441

1724

S19#
518#
517
516#
1640

2591

1493
2437

1543
2180
2289
2479

1537
2158
2267
2441

2254
2424

1492

2424

1542

1536

2545

1769

SEQ 0094

TABLE ==~ USER SYMBOLS

2168
2285
2462

2726
2865
2447

2247
2420

2144

2442
2384
2389
1523
2146

2154
2264
2436

2128

L9
498%
4974
520#
2140

1760
1928

000200

11:44
PAGE 95
CROSS REFERENCE

2007
2232
2559

2016
2251
2578

2023
2259
2611

2030
2290

2047
2301

2056
2321

1899

1633
1735
1914
2066
2331

1823

1855

1891

1920

1924

3350

3352

3354

3860

3863

1772

1800

2433

26314
32964

26274

3312
1237
2998

3027
3313
1293
3037

3037
3387+
3310

3381

.
3309+
3341

3312+
3372

3343

3374+

3348

1706

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

002404
002336

CTVECT

002402
177570
002514
021451

021575
021722
021757
022023
022067
021476
021621
021655
021523
021550
001042
000174
177570
022204
:

022244

11324
1108#
1673
11314
LY
11454
713
798

748
908
1044
1054
1069
1079
718
868
923
738
998
1099
743
6334
563#
443N
714
799

749
909
1045
1055
1070

022302
022314
022330
022344
022214
022254
022266
022224

1080
719

022234
003314
014762
000030
015266
015532
020546
020611
020637
020676

744
1251
568
532#
712
747
1027
1033
1038
1043

020734
020771
021014
021052
015555
021104
021134
021174

869
924
739
999
1100

1048
1053
1058
1063
752
1068
1073
1078

E
8
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

1195
1253
728
808

733
813

753
928

758
933

763
938

768
943

773
948

778
953

783
958

788
3801#

793

843
913
38334
1059
38454
3852#
3805#
38214
38264
818

1003
1104
38134
1195+«
1203
632
724
804
844
914
38844
1060
38884

38904
38724
3880#
3882#
819
1004
1105
38764
12534
33074
1179+«
33924
34240
37164
37224
37264
37324

- 37374
37424
37464
3751#
3428#
37564
3760#
37664

848
918

853
1084

1074

3838#

823

828

858
3817#

833

1008
3809#

1013

1018

1203«

2721+

2892+

1194
729
809
849
919

854
1085

1075

3886#

824
1009
3874n

829
1014

3336
1180+

734

814

754

863

838

1023

759

873

963

1028

764

878

968

1034

769

883

973

1039

774

929

934

939

944

949

834
1019

839
1024

964
1029

969
1035

859
3878#

864

874

879

888

978

1049

779

893

983

1064

784

898

988

903

993

1089

1094

789

794

884

954

889

959

38704

899

904

974
1040

979
1050

984
1065

989
1090

994
1095

894

LMAIN.
MACYN 30A(1052)
19-APR-78
CZbLDC.P1
19-APR-78 11:41

EM113
EM114
EM115
EM116
EMI17
EM12
EM13
EM14
EM15
EM16

EM17
EM2
EM20
EM21
M22
m23

Mm24
Mm25

m26
M7
n3
M30
m31
m32
M33
M34

EM35

021211
021247
021306
021345
021404
015620
015651
015704
015745

016010

016041
015312
016074
016135

016201
016236

016267
016322

016363
016426
015336
016465
016516
016551
016617
016661
016717
016747
017001

M36
m37
M4
M40
M4
M42

015403
017041
017067
017127

Mé4
M45

017212
017246

EM43

M4&6

M47
M5
M50
M51
M52
M53
M54
M55
M56
m57
Mé
M60
Mé1
M62
M63
Mé4
M65
M66
M67

017161

017303

017303
015425
017337
017364
017414
017471
017515
017653
017553
017611
015462
017653
017702
017726
017773
020017
020043
020111
020147

1083

1088
1093
1098
1103

757
762
767
772
77
782
717
787
792
797
802
807
812
817
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

F
8
11:44
PAGE 97
CROSS REFERENCE TABLE == USER SYMBOLS

37694
37754
3781#
37874
37934
34340
34394
34440
34504
34564
34614
33964
34664
34724
34794
3484
34894
34944
3500#
3506#
34004
3512#
35174
3522#
35294
3535#
35414
35464
3551#
34074
35574
3561#
35674
35724
35774
3582#
3588#
3587#
34114
35934
35974
3601#
36094
36134
36314
36194
36254
34164
36324
36364
36404
36474
36514
3655#
36624
36684

SEQ 0096

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

EM7
EM70
EM71
EM72
EM73
EM74
EM7S
EM76
EM77
ENDEV
ENDMG

015506
020212
020257
020426
020321
020357
020426
020455
020501
012052
012172

FIRST

006600

ERRVEC= 000004
GNS

RRRRRE

GOAGIN 012206
GTSWR = 104405
T

= 000011

ID
004056
INIT
003112
IOTVEC= 000020

LKS

= 000012

002406

MANL
FR
OR

003132
015145
015157

015106

2
2A
LDPC
UTTST
IRQ
=
IRQVE=

022152
022154
012300
015202
177772
000240

PAR

015134

MSTOP
1

RO
R1
R2
R3
R&
RS
R6
R7

=
=
=
=
=
=
=
=

S
=
SW
=
WRVEC=
RBUF

CSR

015172
022140

000000
000040
000100
000140
000200
000240
000300
000340

742
987
992
997
1002
1007
1012
1017
1022

11:44
PAGE 98
CROSS REFERENCE

2673
32944

26794

1192
1967
3290

1193+
19814
3291

4354
1214
1212

2996

3037

4364
1135#
1771«
1856+
1953+
1216

2676

3031

3324
3329
3319
3318
3334

1417
1419
1284+

2698+

569
442
5364
4594
460
461
4624
4634
Lo4n
4654
4664
439
4400

1395
12154
1177+
1661

1772
1857
1954
12194
3350#

33524
33484
3323
33544
3860#
3863#
38644
27024
33704

177776
177776
000024
002350

1115#

1183+
1462

002346

11144

1294

531#

3876

2118
2208+
2350+
3890

SEQ 0097

TABLE == USER SYMBOLS

37094

26364
26764

S30#

34204
36744
36814
37004
36874
36934
3701#
3705#

2605
2663
525#
1965+
3289

1402

1178+

1682
1778
1874+
1956+

1204+
3882
3292

2870

2871+

2873

2876+

3294

3296

3297

3298

3348

3350

3352

3354

3860
1706
1823+
1921+

2827+
2407+

2836+
2418

2837+
2442

1627

1633+
2170
2287
2500

1634

14104

3037

1692+
1800+
1891+
1957

3328

3333

3890
3384

3389

1693
1801+
1892+
1960+

2543+

3339#

3378

2810+
2384

2819+
2389

1699+
1802
1893

1700
1810+
1899+
3878

1704
1814
1920+
3882

3863

1726
1824+
1922

1763
1825
1924+

1768+
1832+
1928+

1769
1855+
1948+

2447

2470

2507

2617

00‘2

1728
2193
2324
3886

2109
2197
2331
3888

440

2128
2215
2353

2809+
2327+
1448

2144
2232+
2405

1616

2151
2249
2410

1626+

2158+
2251+
2439

2167+
2259+
2468

2172
2290+
2546+

1640+

2177+
2301+
3874

2178
2321+
3884

LMAIN.
MACYT 30A(1052)
19-APR-78
czoLoc.P1
19-APR-78 11:41
RCV
RCVCNT
ROCHR =
ROLIN =
RESVEC=
RPSW
RSTRT

011704
011726
104407
104410
000010
102360
012232

RTCPSW
RTCVT

002412
002410

RVECT

002356

SCPSW
SECND
SETADR
SHIFT
SIZE
SRPSW
STACK =
START
STKLMT=
STPSW
SWR

011740
006602
003530
003370
003142
011736
001100
002546
177774
011734
001040

SWREG
SW0
SW00
SW01
SW02
SWw03
SW04
SW05
Sw0é6

SW07
SW08
sw09

SW1
SW10
SW11
SW12

SW13

SW14
SW15
w2

SW3

wé&
w5
w6
w7

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000200
000400
001000

000002
002000
004000
010000

020000

040000
100000
= 000004

= 000010

=
=
=
=

w8
=
w9
=
BITVE=
TBUF
TCLOCK

000176
000001
000001
000002
000004
000010
000020
000040
000100

000020
000040
000100
000200

000400
001000
000014
002354

005056

2535
2548
3229
3298#
5264
11194

11:44
PAGE 99
CROSS REFERENCE

26174
2565
3297#

2532+

2280
26854
1797
1678
1890+
1612
2297+
2604

2531«

2603

567

1157#

2530+
6324

2602
1173
1792
2726

2681

1137#
1136#
18865
1118#
2281+

1974+
1302
12744
1222#
4304
n
Lo

1760

2578

S64LN
494k
4B4H
4834
482#
4814
4804
4794
L78#
4774
L7764
4754
4934
474K
4734
L4724
4714
4704
4694
4924
4914
490
4894
4B88#
4874
4864
485#

5274

1117#

2248+
1422

1982#
13084
1283

1202

2618+

26254

3888

2282+

2303

2531

2536+

2603+

1799+
1679+
1905+
1613+
2302+
26304
3882

1834+
1711+
1918
1647+

1850
1796
1919+

1852+
1798+
1935+

1876+
1811+

2309+

SEQ 0098

TABLE == USER SYMBOLS

2210
2319

2532

2542+

2604+

2541+
2235+
2348

1849

1851+

1864+

1875+

2211+
2320+

2529
2225+
2337+

2245
2349+

2246+
2366+

2260+
2528

2271«
2535+

2279
2600+

1209+
1946

2865

1219
2373
2881

1420

2829+

1211
1977

2400
3126

1478
2431
3163+

2433

2490

2539

1432+
2404+

2085+
2438

2088+
2467+

2108+
2498+

2135+
2552+

2169+
2613+

2192+
3872

2214+

1822+

1833+
2601+

26294

2628#
1194+
1846

2738
3126

1196
1885

2742
3139

1657

1675

1724

494
493
492
491
490
489
488
487
486
485

1357
2286+
16504

1376+

2323+

1381+

2352+

1429+

2378+

LMAIN.
MACYT 30A(1052)
19-APR-78
CZoLDC.P1
19-APR-78 11:41
TCONS
TCSR

003450
002352

TKVEC = 000060
TMP1
002340
TMP2
002342
TMP3
002344
TOLER
006550
TPSW
002364

TPVEC = 000064
TRAPVE= 000034

TRTVEC=
TSTDEV
TSTDVM
ST
TST10
TST11
TST12
TST13
TST14
TST15
TST16
TST17
TST2
TST20
TST21
TST22
TST23
TST24
TST25
TST26
TST27
TST3
TST30
TST31
TST32
TST33
TST34
TST35
TST36

TST37

TST4
TST40
TST41
TST42

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

TST43
TST44
TST45
TSTS

011054
011154
011252
004162

TST7

004246

TST6

004214

1290
11164
1512
1591+

2054
2154x
2264
2420+
5344

1105#
11104
1111#
1969
11214
5354
5334
528#
1291
12474
1298
1521#
1479
1558
16544
1656
1674
1757#
1759
13544
1791
1845
1884
1913
1945
2015#
20464
20784
13754

21044
2159
2179
2198
22414
22774
23154
2344n
1407

23724
2374
2401
2432
24894
2491
1436
14594
14774

I
8
11:44
PAGE 100
CROSS REFERENCE TABLE == USER SYMBOLS

1292#
1335
1514+
1592
2056+
2168+
2267+
24624

2066+
2180+
2285+
2436%

1382
1536+
1599
2079+
2191+
2289
2437

2084+
2196+
2322+
2441

1377
1523
1597+

1394
1537
1989+

SEQ 0099

1430
1542+
1992
2086

2207+
2326+
2462+

1435
1543
2002+
2092+
2209+
2351+
2479+

2007+
2106+
2217«
2376+
2482+

1481
1555+

1288+
1223+
1287+
1971#
1296

1304+
1231+
1301

1310
1241+
1303+

1311+
1245+
1309+

1249+

1269

2638

2049

2051+

2073+

2530

2534+

2602+

1181+

1182+

1301#
1252
1324

1306

2641

13324

2683

1513
16104

1568#

1658
1676

16724
17174

1761

1779

1789#

1793
1847
1886
1915
1947

18434
18824
19114
19434
1978

1988#

21654
21894
22064

1421

14284

23994
24304
2434

24584

2512

25234

14454

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

LMAIN.
MACY11 30A(1052)
19-APR-78
CZbLoC.P1N
19-APR-78 11:41
TVECT
TYPE

002362
= 104401

TYPOC = 104402
TYPON = 104404

11204
2050+
1416

3097

1570
2062+«

1571«
2072+«

1604
2082

3137

3138

3141

1418

2772
32924

2796

1243

12574

007270
015114
007376
012242

21094
33414
21364
1572

2112
3342
2139
1614

007340
011674
011650
011730
011700
000500

2346
21254
2610
2533
2547«
2612
591

2356
2127
26134
26074
2565
26144
597#

013176
013152
013160
013170
001034

2903
29014
29024
1344
629%

29054

001022
001026
013676
014130
001000
= 000000
014655
014650
001114
001063
001076
001144
012162
012152
012132
012166
001106
001107
012102
012124
001003
001015
012304
001016

6244
6264
3003«
31264
612#
6424
3157
3154
6654
644w
6564
6924
2659
578
1185
2674N
6614
662#
1979
1185+«
6154
6214
1179
6224
3886
709
2728

1729+
2410%
3013+«
3296
1170

= 104403

003320
002454
003602

= wreen |

001142

001146
012466

3291#
11404
13204

2017

1344

6914

11:44
PAGE 101
CROSS REFERENCE TABLE == USER SYMBOLS

1257
1323

2663

3140

2729

3290#

1990
2083+

1991+«
2098+

2001+«
2527

2009+
2533«

2019
2599+

2020+

2031+

2040+

2048

3154

3165

3184

3233

2788

3236

2792

3240

2799

2841

3001

1896
2261

1916
2283

1925
2298

1936
2317

1994
2328

29044

3882

3884

2764

2783

2786

3289#

3345
1794
2063

1812
2080

2607«

26264

3888

1366

1390

1404

2986
1366
3134

1390
3255

1404

1146

2781

1319

1680
2052

2032

SEQ 0100

2525

1227

2553

1235

1853
2089

1865
2212

1887
2243

1488

1506

1532

1551

1488

1506

1532

1551

2734

1735«
3886

1738+«

3880

3002

3037

3165

3249

3380

1289

1301

3872

3874

3876

3878

3880

2688#

1730+
2478+
3020

1731
2515+
3029+

1733«
2595+
3034#

1734
3884

1179

1185

1186

2729
1161+
1224+
2665
26674
26614

2764
1414
1230+
26714
2749

2783
2637+«
1233+

2788
2638
1240+

2792
2679+
1246

1215
1207
2639
2658%
2719+
1187+«
2718#
2723+
3888
2778
27634

2731
1217
26524
2662
2856
2891+

2910
2912

2934
2983

2981
2988

2879
2895

2885+

2895

2725

2770

3870

3250#
32494

2724+
3890

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

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
001116
001122
001126
001132
000502
013414
014673
001102
001104
001066
014662
001117
001123

001127

001133
001054
000001

014124
014126
013136
001074
000506
012770
012622
012756
012674
001062
014412

6194
6424
660#
603
6534
2901+
640#
6394
6234
6254
26644
31384
5984

6164
2809
6304
6204
6454
2942+
6174
6184
6784
682#
685#
688#
599
6724
6804
6834
6864
5994
2902«
3141
6584
6594
6524
3138
6734
6814
6844
6874
6384
13294
17544
22034
3069+«
3064*
2866
6554
601#

11:44
PAGE 102
CROSS REFERENCE

2722+
1186+

6934
1157+
2904+
3006
3037
1726+
1734+

2747

2890+

2938+
2932
3037

2941+

29494

1728+
1738

2477

2827
3166
2725+
3037
29484
1188+
1189+

2844H
3255
2733
3240

2767
3249

2883+
2744

603

1729

TABLE == USER SYMBOLS

2745

1731

1736

2514+

2596+

2888+
2883

2893
2889+

2895
2895

6514

1206

2887

2981

2908
3253#
2918+
2923+
1158+
3251#

2943

29474

2924+

2936

2939+

3008
1351#
17864
2238#
3098+
3068+
2884
1206+

3037
13724

14254
1879#

14424
1908#

14564
19404

3294

2921

2916

18404

22744
31114
3073
28924
1412

2842

28474

28424
2819
6434
3197

2809#

2836

2827#
3037
3297

3184

1183

2312#

23414

23694

3076+

3087+

3113

2655+

2656+

2674

3233

3249

SEQ 0101

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

$RDDEC= LA A 222 v
SROL IN
014532
SRDOCT= TERREE U
RDSZ = 000010
RTNAD

R2A
=
SAVRE=
SAVR6
$SCOPE
$SETUP=
$STUP =
$SVLAD
$SVPC
SWR

012164
LA
a a2
khkkkw

012766
013000
000137

v
U

177777

013102

000500
161000

$SWREG
001110
$ SWRMK= 000000
STESTN
001072

$TKB
$TKS
$TN

001046
001044
= 000046

001052
001057
001050
TRAP
014704
TRAP2
014726
TRP
= 000011
$TRPAD
014740
TSTM
000504
TSTNM
001002
STTYIN
014640

$TPB
$TPFLG
$TPS

TYPBN= LA222 U
TYPDS= 1222 ddd U
TYPE
013420
TYPEC
013632

013700
TYPOC
013726
TYPON
013742
TYPOS
013702
UNIT
001100
UNITM 000510
001112
USWR
VECT1
001136
VECT2 001140
XTSTR
013012
$GET4= 000000
OFILL
014125

STYPEX

3299
32254
3299
3218#
26734
3299
3299
2818+«

177
5604
560#

11:44

PAGE 103

SEQ 0102

CROSS REFERENCE

TABLE =~ USER SYMBOLS

2838+

2839+

28464

1177

1179

1181

1183

1185

1186

1188

2654

2864

3121

3255

1186
1655
2105

1189
1718

1355
1790
2242

2316
2857

2345
2858

1460
1944

2672
2892

2278
2674
2895

1429
1883

1446

2190
2655
2886

1333
1758
2207
2666
2889

1376
1844

2524
2880

1188
1673
2166
2649
2881

2373
2859

1478
1989
2400

3878

3880

3882

3884

3886

3888

1425

14294
1650
1879

1442
1651
1883#
2101

14464
16554
1908
21054

1456
1669
19124

14604
16734
1940

32994

3298

2828

28634
1176

2874
5764
5614

2880
581
642

28864

2016
2431
2865
6634
2860
6544
3890
6354
6344
5640

2047
2459
2877
1209

2079
2490
2879

1159+

2887+

3870

3872

3874

3876

3119
3119
1329

3130
3128
13334

3201
3168+

2186
23734
6374
6414
6364
1181
32774
32814
3271
6004
6144
3226
3293

21904
2396
3026+
2975
3024
32664
3288
32904
3288#

2203
24004
3037
3037
3037

3147
3144
1351
15224
1758#
2012
2207#
2427

20164
2238
2431

3207
3199
1372
15694
1790#
2043
22424
2455

3205
13764
1607
1840
2047#
2274
24594

2075
22784
2486

20794
2312
24904

3291#

3292¢#

3293#

3294

3295#

3296

3297#

3298#

1650+
3227

2636+
3244

2654+
3248#

2721

2856

2886+

2887

2892

2895

29754
3012
3032
3290
30694
3291
1162+

3281
3019
3035#

3289
30244

3025

3170

1305+

1308+

2685+

1163
1258

1165+

247

2508

3067+

3077

31124

1522

1474
1714
19444

3293
2929
3005
3030
3067#
3066
3062#
6574
6024
6644
6894
690#
2868#
26664
3063«

1569

14784
1718#
1985

643

1611

1518
1754
1989#

1355#
1565
1786

3292

16114
18444

23164
2520

1912

2341
25244

2162
23454

2860

21664
2369

LMAIN.

MACY11

czoLoc.P1

30A(1052)

19-APR-78 11:41

$40CAT= wewver |
.
= 022360

2865
5454
590#
2821
7114
5874

.SERRT
001146
.$X
= 000500

. ABS.

19-APR-78

022360

ERRORS DETECTED:

mn 8
11:44
PAGE 104
CROSS REFERENCE TABLE == USER SYMBOLS

551
592#
2845

552#
6114
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
2951%

5624
1139#
3037

5664
1140#
3119

5714
1174
3248¢

SEQ 0103

576
1188
3249

S77#

1189

3255

5794
26314
3358#

5814
2674

587
26754

588#
2802#