PDF Printing 600 Dpi AC 8528C MC_CZDLDC0 DL11 W Diag_Mar78 MC CZDLDC0 Diag Mar78

AC-8528C-MC_CZDLDC0-DL11-W-Diag_Mar78 AC-8528C-MC_CZDLDC0-DL11-W-Diag_Mar78

User Manual: AC-8528C-MC_CZDLDC0-DL11-W-Diag_Mar78

Open the PDF directly: View PDF .
Page Count: 57

Download
Open PDF In Browser	View PDF

~-

II III111!11lit 11

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

11:44

PAGE

SEQ 0001

@

IDENTIFICATION

-------------PRODUCT CODE:

AC-8528C-MC

PRODUCT NAME:

CZDLDCO DL11-W DIAG

DATE CREATED:

MARCH 1978

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

DAN CASALETTO

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED COMPANEIS.
COPYRIGHT (C) 1976 1978 BY DIGITAL EQUIPMENT CORPORATION
THE FOLLOWNG ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DIGITAL
DEC

"""""

PDP
DECUS

UNIBUS
DECTAPE

MASS BUS

. 9 ·
.MAIN. MACY11 30A(105:2) 19-APR-78
CZDLDC.P11
19-APR-7811:41

11:44

1.0

GENERAL INFORMATION

1.1

ABSTRACT

PAGE:2

SEQ 0002

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, A WRAP
CABLE CAN BE USED AND TESTED BY OPTION (BIT7 OF SWR).
THIS TEST OPERATES 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:
A. CONSOLE - 177560
177546

SERIAL LINE
CLOCK

B. OTHER SERIAL LINE - 776500

FIRST SERIAL LINE ADDRESS
OF 15 CONSECUTIVE SERIAL
LINE ADDRESSES

THE PROGRAM IS DESIGNED TO RUN ON ANY PDP-11 WITH 8K OF MEMORY
AND A DL11-W MODULE. IT CAN BE RUN UNDER XXDP,APT, AND ACT MONITORS.
AND ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER,
SOFTWARE SWITCH REGISTER = LOCATION 176
POWER FAILURE IS SUPPORTED FOR SYSTEMS WITH CORE MEMORY.
NOTE:

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

1.2

SYSTEM REQUIREMENTS

1 .:2.1

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

1.2.2

lio

STORAGE
THE PROGRAM USES MEMORY FROM 00000 TO 22372

·MAIN. MACY" 30A(1052) 19-APR-7B
CZDLDC.P11
19-APR-7B 11:41
1.3

11:44

PAGE 3

SEQ 0003

ASSUMPTIONS
A.

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.

B.

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

C.

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

2.0

OPERATING INSTRUCTIONS

2.1

LOADING PROCEDURE
USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES.

2.2

STARTING PROCEDURE
LOAD THE SWITCH REGISTER WITH SETTING
(SOFTWARE SWITCH REGISTER LOCATION

176)

A. START AT 200.
AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS IDENTIFICATION
AND REPORT THE NUMBER OF DEVICES UNDER TEST (NUMBER IS OCTAL).
"END PASS" IS PRINTED AFTER A FULL PASS HAS BEEN MADE ON ALL DEVICES
UNDER TEST.
B. START AT 204.
****NOTE****
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.
C. START AT 210.
****NOTE****
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 :HE
PATTERN EVERY THREE LINES. THE PATTERN IS AS FOLLOWS
(OCTAL CODE 040 --> 377):
1"#$%&'()*+,-./0123456789:;<=>?

(OCTAL CODE)
(040 --> 077)

~ABCDEFGHIJKLMNOPQRSTUVWXYZ[\lA_

(100 -> 137)

'ABCDEFGHIJKlMNOPQRSTUVWXYZ
41

$

(140 -> 177)

R CASE ALPHA]

'"

•

•

jf

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

11 :44

'"

...

PAGE 4

SEQ 0004

THIS BOTTOM LINE COULD BE THE FOLLOWING IF THE TERMINAL
DOES NOT HAVE LOWER CASE:
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\

[UPPER CASE ALPHA}

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

; ;++C
: ;++C

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

11:44

PAGE 5

2.3

OPERATING PROCEDURE

2.3.1

OPERATIONAL SWITCH SETTINGS

SEQ 0005

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 SWITCH IS AVAILABLE AND A SOFTWARE SWR IS
DESIRED, PUT ALL SWITCHES UP.
-

BITtS
BIT14
BIT13
BIT12
BITt1
BIT1 0
BIT09
BITOS
BIT07
BITOG
BIT05
BIT04

HALT ON ERROR
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 "$DEVM" (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 CG"SOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER
APPLICABLE AREAS. BECAUSE THIS DIAGNOSTIC USES THE MAINTENANCE BIT
OF THE SERIAL LINE, THE CONTROL-G SHOULD BE ISSUED DURING PROGRAM
TYPEOUTS AT THAT TIME THE MAINTENANCE BIT 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
(IE)

SWR=XXXXXX

NEW=

POSSIBLE RESPONSES ARE:
1•



2.

6 DIGITS 0-7

3.

AU

41

IF NO CHANGES ARE TO BE MADE
TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER
VALUE ;LAST DIGIT FOLLOWED BY .
TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED
KEYING IN SWREG VALUE.

'"

II!

.

III

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

2.3.2

11:44

PAGE 6

SEQ 0006

SETTING BITS PER CHARACTER
THIS PROGRAM DEFAULTS TO TESTING 8 BITS PER CHARACTER. IF THE
SERIAL LINE IS SET FOR 5-->7 BITS PER CHARACTER, SET THE
MEMORY LOCATION "$USWR" AS FOLLOWS:
CHAR. SIZE
(N OF BITS)
8
7
6
5

"$USWR" CONTENTS
(BINARY)
(OCTAL)
100000000
010000000
001000000
000100000

400
200
100
40

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

2.3.3

..

RUNNING UNDER APT
THE APT MAILBOX IS LOCATED AT LOCATION 500, TO ALLOW ADDITIONAL SERIAL
LINE VECTOR ASSIGNMENTS TO THE 400 AREA OF MEMORY.
THE EXECUTION TIMES PROVIDED ARE FOR EXECUTION WITH AN 11/34 PROCESSOR.
CORE MEMORY, AND 110 BAUD.

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

2.3.4

11:44

PAGE 7

SEQ 0007

RUN WITH ALTERNATE CONSOLE ADDRESS
TO USE A CONSOLE ADDRESS OTHER THAN 177560, OR VECTOR OTHER
THAN 60, THE OPERATOR MUST SUPPLY THE PROGRAM WITH THE
CORRECT ADDRESSES BY INSERTING THEM AT THE TAG LABELED UCRCSR":
CRCSR: ADDRESS OF RECEIVER RCSR
CRBUF: ADDRESS OF RECEIVER BUFFER
CTCSR: ADDRESS OF TRANSMITTER CSR
CTBUF: ADDRESS OF TRANSMITTER BUFFER
CRVECT: ADDRESS OF RECEIVER VECTOR
CRPSW: ADDRESS OF ASSOCIAED PSW
CTVEC;: ADDRESS OF TRANSMITTER VECTOR
CTPSW: ADDRESS OF ASSOCIATED PSW

2.3.5

TESTING ADDITIONAL SERIAL LINES
THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE SLU'S. IT REQUIRES
THE ADDRESS OF THE FIRST ADDITIONAL RCSR (~"ORED AT U$BASE") AND
ITS INTERRUPT VECTOR (STORED AT U$VECT1 U); AND WILL BE ABLE
TO ADDRESS ANY SLU STARTING AT THE SPECIFIED BASE ADDRESS UP TO
15 CONSECUTIVE DEVICES.
EXAMPLE:

$BASE: 776500
$VECT1: 300
THE PROGRAM WILL BE ABLE TO TEST THE CONSOLE PLUS ANY
ADDITIONAL DL11-W SLU'S WITHIN THE RANGE 776500 --> 776660
SBASE AND $VECT1 DEFAULT TO 776500 AND 300 RESPECTIVELY.
THE PROGRAM ASSOCIATES UNIT NUMBERS TO DEVICES AS FOLLOWS:
(NUMBERS IN PARENTHESIS ARE OCTAL)
UNIT# 0 -->
UNIT# 1 -->
UNIT# 2 -->
UNIT# 3 -->
UNIT# 4 ->

CONSOLE [ADDRESS STORED AT "CRCSRu]
BASE ADDRESS STORED AT U$BASE"
ASSOCIATED BASE VECTOR STORED AT"$VECT1"
BASE ADDRESS + (10)
BASE VECTOR + (10)
BASE ADDRESS + (20)
BASE VECTOR + (20)
BASE ADDRESS + (30)
BASE VECTOR + (30)

!
I
V

UNIT#<) -->

%I

"

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

II>

-

•

..

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

/\,,~ «\A

11:44

;:'"Z\(t~

,.

SEQ 0008

PAGE 8

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

UNIT

UNIT

15

14

•.•......•• ! UNIT
........... !

2

UNIT

CONSOLE!

1

!

A BIT MAP CAN BE ENTERED AT "$DEVM" PRIOR TO STARTING THE PROGRAM
SETTING BITS OF THE SWR INHIBITS THE SELF-SIZING AND DEVICE MAP
GENERATION,AND USES THE VALUE STORED BY THE OPERATOR.
EXAMPLE:
SWR
000040
$BASE: 776500
$VECT1: 300
$DEVM:

13

'"

[BINARY

0 000 000 000 100 0001

[BINARY - 0 000 000 000 001 011]

THE PROGRAM WILL TEST UNIT# 0
CONSOLE
UNIT# 1 = 776500 ; 300
UNIT# 3 = 776520 ; 320

,MAN. MACYl 30A(1052) 1ShB.PR-78
CZDLDC.P i
19-APR-78 11:41

2.4

1];44

seQ

PAGES

EXECUTION TIMES - (1'0 BAUD)
LONGEST SUBTEST TIME
50 SECONDS
PASS TIME
60 SECONDS
ADDITIONAL DEVICES
= 55 SECONDS/DEVICE

3.0

ERROR REPORTING
IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT (BIT13) OF THE SWR
IS NOT SET, A PRINTOUT RESULTS IN THE FORM:
"(SOME ASCII MESSAGE)"
TEST#
ERR PC
RCSR
XXXXXX XXX XXX
XXXXXX

[ANY APPLICABLE DAT HEADINGS]
[ANY APPLICAS~E DATA]

NOTE: "RCSR" IS DEPENDENT ON THE FAILURE
& THEREFORE COULD BE TCSR,RBUF,TBUF,OR LKS
WHERE "XXXXXX" IS AN OCTAL NUMBER.
THIS ERROR PRINTOUT OCCURS PROVIDED THE ERROR THAT EXISTS
WOULD NOT HINDER THE TYPEOUT. IN CASES WHERE IT IS NOT POSSIBLE
TO PRINT AN ERROR MESSAGE (I.E. FATAL CONSOLE TRANSMITTER
FAILURES), A HALT OCCURS AND THE PC CAN BE EXAMINED BY THE OPERATOR
TO FIND THE ERROR INFORMATION IN THE PROGRAM LISTING.
NOTE: 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.

It

It

..

0001&

p

IN.

MACV11 30A(1052j

CZDLDC.P1i

19-APR-78

'$

&

11:44

PAGE 10

19-APR-7811:4

400

SUBROUTINE ABSTRACTS

4.1

TRAPCATCHER
THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 DESIGNED TO
DETECT AND ISOLATE UNEXPECTED TRAPS TO THE TRAP AND INTERRUPT VECTOR
AREA OF MEMORY.
EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE NEXT
LOCATION. THE NEXT LOCATION IS LOADED WITH A BREAK POINT TRAP (000003).
THUS AN ILLEG~L TRAP OR INTERRUPT CAUSES A TRAP THROUGH THE BPT VECTOR(14)
WHICH POINTS TO THE "CATCH" ROUTINE.
THE "CATCH" ROUTINE REPORTS THE PC THAT CAUSED THE ORIGINAL TRAP AND
THE LOCATION OF THE TRAP VECTOR (IF UNDER APT, AN ERROR IS INDICATED TO APT).
AFTER REPORTING THE ERROR THE PROGRAM HALTS. THE PROGRAM MUST BE RESTARTED
AT THIS POINT.

4.:2

\~RPSW

THIS ROUTINE IS USED TO WRITE THE PSW BY POPPING VALUES FROM THE
STACK. THIS METHOD IS USED TO BE COMPATIBLE WITH ALL 11 ~AMrLY
PROCESSORS.
4.3

SCOPE
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
SWBlEST AT WHICH THE SCOPE LOOP IS REQUESTED.

*

SEq iH)10

.MAIN. MACY11 30A(1052) 19-APR-78
C2DLDC.P11
19-APR-7811:41
4.4

11:44

PAGE 11

SEQ 0011

ERROR
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 REP~RTS ERRORS
TO APT USING "$APTYPE" AND TYPES ERROR REPORTS TO THE CONSOLE
USING "$ERRTYPE",

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

CKSllfR
THIS ROUTINE CALL IS USED TO DETECT THE RECEPTION OF A CONTROL-G
FROM THE CONSOLE. THE CALL USES "$READ" TO PERFORM THE CONTROL-G
SEQUENCE OF DISPLAYING THE CONTENTS OF THE SOFTWARE S~ITCH REGISTER
AND THE ENTERING THE NEW CONTENTS FROM THE TERMINAL.

%

m

II

'*

.MAIN.
MACV11 30A(1052)
19-APR-78
CZDLDC.Pl1
19-APR-7811:41

..

422
423
424
425
426
427
42B
429
430
431
432
433
434
43S
436
437
43B
439
440
441
442
443
444
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

001100

177774
177772
177570
177570

HT·
IF=
CR=
CRLF=
PS=
• EQUIV
STKLMT=
PIRQ=
DSWR=

ODISP:zo

11
12
15
200
177776
PS,PSW
177774
177772
177570
177570

; ;CODE FOR HORIZONTAL TAB
; ;CODE FOR LINE FEED
; ;CODE FOR CARR I AGE RETURN
; ;CODE FOR CARRIAGE RETURN-LINE FEED
;; PROCE:'SOR STATUS wORD
;;STACK LIMIT REGISTER
;; PROGRAM INTERRUPT REQUEST REGISTER
; ;HAROWARE SWITCH REGISTER
; ;HAROWARE DISPLAY REGISTER

; -GENERAL PURPOSE REGISTER DEFINITIONS
RO=
;;GENERAL REGISTER
%0
; ;GENERAL REGISTER
Rl =
%1
R2=
;;GENERAL REGISTER
%2
R3=
; ;GENERAL REGISTER
%3
R4=
; ;GENERAL REGISTER
%4
;;GENERAL REGISTER
R5=
%5
R6=
; :GENERAL REGISTER
%6
R7=
; :GENERAL REGISTER
%7
Sp=
; ;STACK POINTER
%6
PC=
; ; PROGRAM COUNT ER
%7

000000
000040
000100
000140
000200
000240
000300
000340

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

100000
040000
020000
010000
004000
00 2000
001000
000400
000200

;,"SWITCH REGISTER" SWITCH DEFINITIONS
SWI5=
100000
40000
SWI4=
SW13=
20000
SWI2=
10000
4000
SW11 =
SW10=
2000
Sw09=
1000
SW08=
400
SW07=
200

; "'PRIORITY LEVEL DEFINITIONS

000100
000040
000020
000010
000004
000002
000001

a

40
100
140
200
240
300
340

a

;; PRIORITY LEVEL
;;PRlDRITY LEVEL 1
; ;PRIORITY LEVEL 2
; ;l-rdORITY LEVEL 3
;; PRIORITY LEVEL 4
;; PRIORITY LEVEL 5
;; PRIORITY LEVEL 6
; ;PRIORITY LEVEL 7

SEQ 0013

11 :44
PAGE 13
8ASIC DEFINITIONS
SW06=
SW05=
Sw04=
SW03=

100
40
20
10

SW02=

swoo=

4
2
1

.EQUIV
.EQUIV
.EQUIV
.EQUIV
• EQU I V
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

SW09, SW9
SW08, SWB
SW07, SW7
SWOB,SW6
SW05, SW5
SW04, SW4
SW03,SW3
SW02, SW2
SW01, SWI
SWOO,SWO

SWOl =

; "OATA BIT DEFINITIONS (8ITOO TO BITIS)
100000
04 0000
020000

010000
004000
002000

001000
00 0400
000200
000100
00 0040
000020
00 00 10
000004
000002
000001

81T15=
BITI4=
BIT 13=
BIT 12=
BIT 11 =
BIT 1 0=
B1T09=
SIT 08",
BIT07=
BIT06=
aIT05=
BIT04=
BIT03=
BIT02=
BITOI =
BITOO=
• EQUIV
• EQUIV
.EQUIV
.EQUIV
.EQUIV
• EQUIV
• EQUIV
• EQUIV
• EQUIV
• EQUIV

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

4
2
1
BIT09,BIT9
81T08,BlT8
BIT07, BlT7
BIT06.BIT6
BIT05,BIT5
BlT04, BlT4
BIT03, BIT3
BlT02,61T2
BIT01.BITl
BITOO, BITO

; *BASIC "CPU" TRAP VECTOR ADDRESSES

524

527
528
529
530
531
532
533

BASIC DEFINITIONS

;.INITIAL ADDRESS OF THE STACK POINTER * .. * 1100 *·u
ST ACK=
1100
.EQUIV
EMT ,ERROR
;; BASIC DEFINITION OF ERROR CAll
.EQUIV
lOT, SCOPE
;; BASIC DEFINITION OF SCOPE CAll

000000
00 000 1
000002
000003
000004
000005
000006
000007
000006
000007

523

526

SEQ 0012

;*MISCELLANEOUS DEFINITIONS
000011
000012
0000 15
000200
177776

522

525

PAGE 12

.SBTH

.MAIN.
MACYll 30A(1052)
19-APR-78
CZDLDC.Pl1
19-APR-7811:41
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521

'''44

000004
000010
000014
000014
000014
000020
000024
000030
000034

ERRVEC= 4
RESVEC= 10
TBlTVEC= 14
TRTVEC= 14
BPTVEC= 14
IOTVEC= 20
PWRVEC· 24
EMTVEC= 30
TRAPVEC=34

TIME OUT AND OTHER ERRORS
RESERVED AND ILLEGAL INSTRUCTIONS

"T" BI T
TRACE TRAP
8REAKPOINT TRAP (8PT)
INPUT/OUTPUT TRAP (lOT) "SCOPE"
POWER FAIL
EMULATOR TRAP (EMT) •• ERROR"
'TRAP' TRAP

.MAIN.
MACY1130A(1052)
19-APR-7B
CZDLDC.P11
19-APR-7811:41
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549

000060
000064
000240
176500
000300

11:44 PAGE 14
BASIC DEFINITIONS
TKVEC=
TPVEC",

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

PIRQVEC.240
ABASE=

176500

AVECT1= 300

000400
161000

AUSWR=
$TN.
$SWR.

400
1

000003

BPT",

000003

000001

000000

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

.=0

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

550
551
552
553
554
555
556
557
558
559

SEQ 0014

60
64

000014

000014

012254

000016

000340

.=14
.WORD
.WORD

CATCH
340

000042

000042
000000

.WORD

a

DISPREG: .WORD
SWREG:
.WORD

a
a

; THE BPT TRAP VECTOR POINTS TO THE
U.LEGAL TRAP HANDLER 'CATCH'

42

560
561
562
563
564
565
566
567
568
569

000174
000176

000200
000204
000210

000174
000000

174

000000
000200
000137
000137
000137

.·200
JMP
JMP
JMP

002546
014762
015202

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

START
ECHO
OUTTST

DO INTERFACE TEST
DO ECHO TEST
DO OUTPUT TEST TO TERMINAL

11:44 PAGE 15
8ASIC DEFINITIONS

SEQ 0015

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

500
ACTll HOOKS

: : *** "'oil '" "' ...... ** ****** •• **** .... ** ••• "'.'" *** "''''''' •• * '" '" **"' ••• IIt • • • • • • • ,., • • •

000500
000046
000046
000052

012152
000052
000000
000500

;HOOKS REQUIRED BY ACT11
$SVPC=.
.=46
$ENDAD
• =52
.WORD
• =$SVPC
.SBTH
APT PARAMETER BLOCK
j : '"

"'* * .. '" '" "'*

>I<

; SAVE PC
;; 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
; ;2)SET LDC.52 TO ZERO
:; RESTORE PC

* "'* *** '" ** >1<* *** * *** * * ***"'*,..,.. *** ******",**"'*.* * "'.*"' •••
>I<

>I<

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
; ; >1< ..

000024
000044

000500
000024
000200
000044
000500
000500

* >I< >1< ........ >I< * >1<"'. * * * ..... '" '" * '" >1<" '"
• $X=.
.=24
200
.=44
$APTHDR
• =. $X

>1< .. '"

* * .. * * * '" '" "' .... * >I< >I< *. >to .. ** ** '" "'. * >I< >I< *"' . . "' ••

; :SAVE CURRENT .. DCATION
; ;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

: ; *'" * * "'** **** **** ... *"'* ***,...* * **"'*. * •• *** ** **** * ... *. ** **** ****** •• "'oil

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

000000
001066
000050
000060
000055
000030

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$UNITM:

• WORO
.WORD
.WORD
.WORD
.WORD
.WORO

o

; ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR •
: ;ADDRESS OF APT MAILBOX (BITS 0-15)
T 1M OF LONGEST TEST
60
; ;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
55
; ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
$ETENO-$MAIL/2 ;: LENGTH MAILBOX-ETABLE(WORDS)
$MAIL

so

: : RUN

19-APR-78
.MAIN.
MACVll 30A( 1052)
19-APR-78 11 :41
CIDLDC.Pl1
605
606
607
60B
609
610
611
612
613
614
615
616
617
61B
619
620
621
622
623
624
625
626
627
629
629
630
631
632
633
634
635
636
637
63B
639
640
641
642
643
644
645
646
647
64B
649
650
651
652
653
654
655
656
657
65B
659
660

; '" >I< >I<- II' '" '" '" >I< '" "',. ... '"

$CMTAG:
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
002
012
000
000000
077
015
000012

; ;START OF COMMON TAGS

.WORD
• BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
• BYTE
• BYTE
• WORD
.WORD
.WDRD
.WORD
.wORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: • BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
HKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
• BYTE
$FILLS: · BYTE
$FI LLC: • BYTE
$TPFLG: .BYTE
$ESCAPE: 0
$QUES:
• ASCI I
$CR LF:
• ASCII
$LF:
.ASCII
$TSTNM:
$ERFLG:
$ ICNT:
$LPADR:
$LPERR:
$ERTT L:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDOA T:

; ;CONTAINS THE TEST NUMBER
; ;CoNTAINS ERROR FLAG
;;CONTAINS SUBTEST I TERAT ION 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
i ;CONTAINS I BAD I DATA
; ; RESERVED--NOT TO BE USED

1
0
0
0
0
0
0
0
0
0
0
DSWR
DoiSP

AUTOMAT I C MODE INDI CAToR
: ; INTERR' 'PT MODE INDICATOR

j ;

j ;ADDRESS OF SwITCH REGISTER
;; ADDRESS OF DISPLAY REGISTER
; ;TTY KBD STATUS
;; TTY KBD BUFFER
; ;TTY PRINTER STATUS REG. ADDRESS
;; TTY PRINTER BUFFER REG. ADDRESS
i ;CONTAINS NULL CHARACTER FOR FILLS
i ;CONTAINS II OF FILLER CHARACTERS REQUIRED
; ;INSERT FILL CHARS. AFTER A "LINE FEED"
;; "TERMINAL AVA! LABLE" FLAG (BI T<07>·O.YES)
; ; ESCAPE ON ERROR ADDRESS
; ; QUEST ION MARK
; ;CARRIAGE RETURN
;; LINE FEED

0

2
12
0
/7/
<15>
<12>

; ; '" ** "' ... '" ** *'" ** >I< ** ** '" '" "'* >1<'" >1<* * '" '" * ** *'" 0;:*"
>I<

APT MAl LBoX-ET ABLE

.SBTH

: ; >I< "' . . . . . . >1< • •

001056
001066
001070
001072
001074
001076
001100
001102
0011 04
0011 06

000000
000000
000000
000000
000000
000000
000000
00 0000

672

001116
00,,17

000
000
000000
000400
000000

• EVEN
$MAI L:
$MSGTY:
$FATAL:
$TESTN:
$PASS:
$DEVCT :
$UNIT:
$MSGAD:
$MSGLG:
$ETABLE:

**.* >I< ."''''.* >I< *** ** * *

.WDRD
.WORD
.WORD
.WDRD
.WoRD
.WDRD
.WDRD
.WORD

>I<

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

PAGE 17
'1:44
APT MAl LBoX-ETABLE
$ENV:
$ENVM:
$SWREG:
$USWR:
$CPUOP:
;
;

;
;
;
000
000

..
...
.
.
.

;
$MAMSI :
$MTYPl :
:*

;

• BYTE
• BYTE
.woRo
.WoRD
.WORD

AENV
AENVM
ASWREG
AUSWR
ACPUoP

• BYTE
• BYTE

AMAMS 1
AMTYPI

.wORD

AMADRI

.BYTE
.BYTE
• \;oRD
• BYTE
• BYTE
.WORD
• BYTE
• BYTE
.WDRD
.WDRD
.WDRD
.WORD
,WORD

AMAMS2
AMTYP2
AMADR2
AMAMS3
AMTYP3
AMADR3
AMAMS4
AMTYP4
AMADR4
AVECT 1
AVECT2
ABASE
ADEVM

;*

;
001120

000000

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

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

***. *'"

."'1000

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

001106
001107
001110
001112
001114

6B3
684
685
6B6
6B7
6BB
689
690
691
692
693
694

*'" '" '" "'* '"

*'" '"

*", .......... * .... '" '" "'. '" >1<*
* '" * '" * ** ** **** *' '"
;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
: -USED IN THE PROGRAM.
;

661
662
663
664
665
666
667
66B
669
670
671

682

COMMON TAGS

.SBTH

19-APR-79
.MAIN.
MACY11 30A (1052)
19-APR-79 11 :41
CZDLDC. Pl1

673
674
675
676
677
67B
679
680
6Bl

SEQ 0016

11 :44
PAGE 16
COMMON TAGS

$MADRI :
;*
$MAMS2 :
$MTYP2 :
$MADR2 :
$MAMS3 :
$MTYP3:
$MADR3 :
$MAMS4 :
$MTYP4:
$MADR4 :
$VECT 1 :
$VECT2 :
$BASE:
$oEVM:
$ETENO:
.MEXlT

>I<

0;;

"'>I<

*. ** '" "'*."' ..... *.**",***""11

* '" '" >I< ***>1< "'*** ** * "'.* ••••

,,"'*. *" 111*"' •••

; :APT MAl LBoX
; ;MESSAGE TYPE CODE
;:FATAL ERROR NUMBER
; ;TEST NUMBER
; ; PASS COUNT
: : DEV I CE COUNT
:;1/0 UNIT NUMBER
; :MESSAGE ADDRESS
: :MESSAGE LENGTH
:: APT ENVIRONMENT TABLE

SEQ 0017

; E.IN IRONMENT BYTE
;ENVIRDNMENT MODE 9ITS
;APT SWITCH REGISTER
; USER S,JITCHES
:CPU TYPE,OPTIONS
ITS 15-11 =CPU T I PE
11/04=01.11/05=02.11/20.03,11/40-04,11/45-05
11/70=06, PDQ=07, Q=l 0
BIT 10=REAL TIME CLOCK
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
BIT
; :HIGH ADDRESS,M.S. BYTE
: :MEM. TYPE,BLK#1
(HIGH BYTE)
MEM. TYPE BYTE
900 NSEC CORE=OOI
300 NSEC BIPOLAR=002
500 NSEC MOS=OO3
; ;HIGH ADDRESS, BLKII1
MEM. LAST ADDR. =3 BYTES, THIS WORD AND LOW OF "TYPE- ABOVE
HIGH ADDRESS,M.S. BYTE
MEM.TYPE,BLKII2
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,BLKII4
MEM. LAST ADDRESS, BLK#4
INTERRUPT VECTOR." BUS PRIORlTYNl
INTERRUPT VECToR#29US PRIoRlTYH2
BASE ADDRESS OF EQUIPMENT UNDER TEST
DEVICE MAP

19-APR-78
.MAIN.
MACYll 30A (1052)
19-APR-7811:41
CZDLDC. Pll
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
7' ,
7' 2
7' 3
714
715
716
717
7' 8
7' 9
720
72,
722
723
724
725
726
727
728

729
730
73'
732
733
734
735
736

737
738
739
740
74'
742
743
744
745
746
747
748
749
750

.SBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
:'THE INFORMATION IS OBTAINED BY USING THE INOEX NUMBER FOUND IN
:'LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
:>NOTE1:
IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC).
;.NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOwS:
EM
DH
DT
OF

00" 46
001146
00' 150
001152
001154

POINTS
POINTS
POINTS
POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

001146

SERRTB:
0' 5266
021451
022204
000000

EMI
DHI
DTI

: "CAN NOT ACCESS TCSR'
: "TEST# ERR PC
TCSR'
: $TESTN. $ERRPC. TCSR

001156
001160
001162
001164

0' 5312
021476
022214

EM2
DH2
OT2

000000

o

: "CAN NOT ACCESS TBUF'
: "TESH ERR PC
TBUF'
: $TESTN .$ERRPC. TBUF

001166
001 t 70
001172
001174

0' 5336
021451
022204
000000

EM3
DHI
oTl

: "TCSR DONE NOT CLEARED WITH TBUf FULL'
: "TEST# ERR PC
TCSR"
: $TESTN, $ERRPC. TCSR

001176
CO, 200
001202
00' 204

015403
021451
022204
000000

EM4
DHI
DTI

: ,jTC5R DONE NOT SET"
; "TESTII ERR PC
TC5R"
: $TESTN. $ERRPC. TCSR

001206
001210
001212
001214

0, 5425
021451
022204
000000

EM5
oHl
DTI

:TCSR DONE NOT 5ET WITH RESET
: "TEST# ERR PC
TCSR"
: $rESTN. $ERRPC. TC5R

001216
001220
001222
001224

015462
02'523
022224
000000

EM6
DH6
oT6

: "CAN NOT ACCESS RCSR"
: "TESTN ERR PC
RCSR"
: $TESTN. $ERRPC. RCSR

00'226
001230
00' 232
001234

015506
021550
022234
ODOOOO

EM7
DH7
DT7

: "CAN NOT ACCESS RBUF"
: "TEST# ERR PC
RBUF'
j $TESTN. $~RRPC. RBUF

001236
001240
001242
OD1244

015532
021575
022244
000000

EM10
OHIO
DT10

i "CAN NOT ACCESS LK5"
: "TEST# ERR PC
LKS'
: $TESTN. $ERRPC. LKS

19-APR-7B
.MAIN.
MACYll 304(1052)
19-APR-7811:41
CZDLoC.P11
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
7Bl
782
7B3
7B4
785
786
787
788
789
790
791
792
793
794
795
796
797
79B
799
800
801
802
803
804
805
B06

SEQ OOt8

11: 44
PAGE 18
ERROR POINTER TABLE

o

..

o

o

o

o

o

o

SEQ 0019

11 :44
PAGE 19
ERROR POINTER TABLE

001246
001250
001252
00 1254

015555
021451
022204
000000

EM11
oHl
DTI
0

:" BITO OF TCSR NOT CLEAR AFTER RESET'
TCSR
: "TESTH ERR PC
: $TESTN. $ERRPC. TCSR

001256
001260
001262
001264

015620
021451
022204
000000

EM12
DHI
DTI
0

: "CAN NOT SET BITO OF TCSR'
: "TEST# ERR PC
TCSR'
: $TE5TN. $ERRPC. TCSR

001266
001270
001272
001274

015651
021451
022204
000000

EM13
oHl
oTl
0

: "CAN NOT CLEAR BITO OF TCSR'
TCSR'
: "TEST# ERR PC
: $TESTN. $ERRPC. TC5R

001276
001300
001302
001304

015704
021451
022204
000000

EM14
DHI
DTI
0

; IORESET DID NDT CLEAR BITO OF TCSR'
TCSR"
i "TESTN ERR PC
: $TESTN. $ERRPC. TCSR

001306
001310
001312
001314

015745
021451
022204
000000

EM15
oHl
DTI
0

:"BIT2 OF TCSR NOT CLEAR AFTER RESET'
TCSR"
:"TESTN ERR PC
: $TESTN. $ERRPC. TCSR

001316
001320
00' 322
001324

016010
021451
022204

: "CAN NOT SET BIT2 OF
:"TEST# ERR PC
TCSR"
: $TESTN, $ERRPC. TCSR

000000

EM16
DHI
DTI
0

001323
001330
001332
001334

016041
021451
022204
000000

EM17
oHl
DTI
0

: "CAN NOT CLEAR BIT2 OF TCSR'
TCSR"
: "TEST# ERR PC
: $TESTN. $ERRPC. TCSR

00'336
001340
001342
001344

016074
021451
022204
000000

EM20
oHl
DTI
0

:"RESET DID NOT CLEAR BlT2 OF TCSR'
: "TEST# ERR PC
TCSR"
: $TESTN. $ERRPC. TCSR

001346
001350
001352
001354

016135
021451
022204
000000

EM21
DHI
oTl
0

:"BIT6 OF TCSR NOT CLEAR AFTER RESET2
:"TESTN ERR PC
TCSR'
: $TESTN. $ERRPC. TCSR

001356
00'360
001362
001364

01620 1
021451
022204
000000

EM22
DHI
DTI
0

j "XMIT INTERRUPT WITH PRIORITY 7'
TCSR"
: "TESH ERR PC
; $TE5TN, $ERRPC. TCSR

001366
001370
001372
001374

016236
021451
022204
000000

EM23
oHl
DTl
0

TCSR"

"CAN NOT SET BIT6 OF TCSR"
"TEST# ERR PC
TCSR'
$TESTN.$ERRPC. TCSR

19-APR-78
.MAIN.
MACVl t 30A( 1052)
19-APR-78 11 :41
CZOLOC. Pll

.
..

807
808
B09
810
B11
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
85B
859
B60
861
862

001376
001400
001402
00' 404

O' 6267
021451
022204
000000

EM24
OHl
OTl
0

,"CAN NOT CLEAR BIT6 OF TCSR'
TeSR"
j "TESTN ERR PC
,STESTN. SERRPC. TCSR

001406
001410
001412
001414

016322
021451
022204
000000

EM25
OHI
OTl
0

,"RESET ,,10 NOT CLEAR BIT6 OF TCSR'
; "TESTII ERR PC
TCSR'
,STESTN. SERRPC. TCSR

001416
001420
001422
001424

016363
021523
022224
000000

EM26
OH6
OT6
0

, "BIT6 OF RCSR NOT CLEAR AFTER RESET'
,"TEST# ERR PC RCSR'
,STESTN. SERRPC. RCSR

001426
001430
001432
001434

016426
021523
022224
000000

EM27
OH6
OT6
0

,"RCVR INTERRUPT WITH PRIORITY 7'
,"TEST# ERR PC ReSR"
,STESTN. SERRPC. RCSR

001436
001440
001442
001444

016465
021523
022224
000000

EM30
DH6
DT6
0

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

00'446
001450
001452
001454

016516
021523
022224
000000

EM31
OH6
OT6
0

,"CAN NOT CLEAR 8IT6 OF
,"TEST# ERR PC RCSR'
,STESTN. SERRPC. RCSR

001456
001460
001462
001464

016551
021523
022224
000000

EM32
OH6
OT6
0

,"CAN NOT CLEAR 8IT6 OF RCSR WITH RESET2
,"TESTN ERR PC RCSR"
,STESTN. SERRPC. RCSR

001466
001470
001472
001474

016617
021575
022244
000000

EM33
OHIO
OTtO
0

,"8IT6 OF LKS NOT CLEAR AFTER RESET"
,"TEST# ERR PC
LKS'
,STESTN. SERRPC. LKS

001476
001500
001502
001504

016661
021575
022244
000000

EM34
OHIO
OTIO
0

," LKS INTERRUPT WITH PRIORITY 7'
LKS·
,"TESTH ERR PC
,STESTN. SERRPC. LKS

001506
001510
001512
001514

016717
021575
022244
000000

EM35
OHIO
OT10
0

,"CAN NOT SET BIT6 OF LKS"
LKS"
; "TESTII ERR PC
,STESTN. SERRPC. LKS

001516
001520
001522
001524

016747
021575
022244
000000

EM36
OH10
OTIO
0

; "CAN NOT CLEAR BIT6 OF LKS'
; "TESTH ERR PC
LKS"
; STESTN. SERRPC. LKS

001526

017001

EM37

, "RESET DID NOT CLEAR BIT6 OF LKS'

.MAIN.
19-APR-78
MACV11 30A( 1052)
CZOLOC. Pll
19-APR-78 11 :41

..

863
864
865
866
867
86B
869
B70
871
B72
873
B74
875
876
B77
878
B79
B80
8Bl
B82
883
B84
B85
B86
B87
B8B
B89
B90
B91
B92
893
B94
a95
B96
897
898
899
900
901
902
903
904
905
906
907
90B
909
910
911
912
913
914
915
916
917

918

SEQ 0020

11 :44 PAGE 20
ERROR POINTER TABLE

RCSR"

11:44 PAGE 21
ERROR POINTER TABLE

SEQ 0021

001530
001532
001534

021575
022244
000000

OH10
OT10
0

; "TESTN ERR PC LKS'
; STESTN. SERRPC. LKS

001536
001540
001542
001544

017041
021621
022254
000000

EM40
OH40
OT40
0

001546
001550
001552
001554

017067
021575
022244
000000

EM41
OHIO
OT10
0

001556
001560
001562
001564

017127
021575
022244
000000

EM42
OHIO
OT10
0

001566
001570
001572
001574

017161
021575
022244
000000

EM43
OHIO
OT10
0

; "BIT7 OF LKS ODES NOT SET·
; "TESTII ERR PC
LKS'
; STESTN. SERRPC. LKS

001576
001600
001602
001604

017212
021575
022244
000000

EM44
OHIO
OT10
0

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

001606
001610
001612
001614

017246
021575
022244
000000

EM45
OH10
OT10
0

; "RTC INTERRUPTS WHEN DISABLED'
; "TEST# ERR PC
LKS"
; STESTN. SERRPC. LKS

001616
001620
001622
001624

017303
021575
022244
000000

EM46
OHIO
OT10
0

; "RTC INTERRUPT DID NOT OCCUR'
; "TESTN ERR PC
LKS'
; STESTN. SERRPC. LKS

001626
001630
001632
001634

017303
021575
022244
000000

EM47
OHIO
OT10
0

,"RTC INTERRUPT 010 NOT OCCUR"
LKS·
; "TEST# ERR PC
; STESTN. SERRPC. LKS

001636
001640
001642
001644

017337
021575
022244
000000

EM50
OHIO
OT10
0

; "RTC ~OUBLE INTERRUPT'
; II TEST.+'
eRR PC
LKS'
; STESTN. SERRPC. LKS

001646
001650
001652
001654

017364
021575
022244
000000

EM51
OH10
OT10
0

; "RESET 010 NOT CLEAR RTC INTERRUPT'
; "TESTN ERR PC
LKS'
; $TESTN. $ERRPC. LKS

001656
001660

017414
021575

EM52
OHIO

; 'RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS'
,"TESTN ERR PC LKS·

; "DUAL ADDRESSING ERROR'
GOOD
BAD'
; STESTN. SERRPC. SGOAOR. SBOCSR

;"TESTN ERR PC

," BIT7 OF LKS NOT SET AFTER RESET2
LKS·
; "TESTN ERR PC
,STESTN. SERRPC. LKS
i "CAN NOT CLEAR BIT7 OF LKS'

; "TESTN ERR PC
LKS"
; STESTN. SERRPC. LKS

19-APR-78
.MAIN.
MACY11 30A(1052)
19-APR-78 11: 41
ClOLDC.P11
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954

955
956
957
95B
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974

1000
1001
1002
1 003

, 004
1005
1006
1007
1 008
1009

SEQ

PAGE 22
ERROR POINTER TABLE

022244
000000

OT10
0

001666
001670
00' 672
001674

017471
021555
022266
000000

EM53
DH53
DT53
0

001676
001700

017515
021451
022204
000000

EM 54
DHl
DTl
0

; "XMlT INTERRUPTS WHEN DISABLED"
TCSR"
; "TEST' ERR PC
; STESTN. $ERRPC. TCSR

017653
021451
022204
000000

EM55
DHl
DTl
0

; "XMIT DID NOT INTERRUPT·
TCSR"
; "TESTN ERR PC
;STESTN.$ERRPC. TCSR

017553
021451

EM56
DHl
OT 1
0

; "XMlT INTERRUPT AT PRIORITY
TCSR'
i "TESTN ERR PC
; STESTN. SERRPC. TCSR

EM57
DHl
DTl
0

; "XMIT I NTERRUPTS WITH ENABLE CLEAR'
TCSR"
;" TESTN ERR PC
; STESTN. ·,ERRPC. TCSR

EM60
DHl
DTl
0

;"XMIT DID NOT INTERRUPT"

001702
001704
001706
001710

001712
001714
001716
001720
001722
001724

001726
001730
001732
001734
001736

001740
00'742
001744

022204
000000

017611
021451
022204

000000
017653
021451
022204

000000

001746

017702

001750
001752

021451
022204

001754

000000

001756

017726

00176C

021451
022204
000000

001762
00' 764
001766
001770

001772
001774

017773
021523
022224

000000

EM61
DHl
DTI
0

CNT:lI
LKS
CNTl
; "TESTN ERR PC
; STESTN. SERRPC. lKS. FIRST. SECND

TCSR·
; "TESTN EllR PC
; STESTN. SERRPC. TCSR

: "XMIT RE-INTERRUPTED Ili
TCSRERR PC

j l!TESTH

; $ TESTN. $ERRPC. TCSR

;" LOADING TBUF DID NOT CLEAR INTERRUPT'
TCSR~
; "TESTH ERR PC
;STESTN. $ERRPC. TCSR

EM63
DH6
DT6
0

; "RCVR ACTIVE NOT SET·
RCSR"
j"TESTH ERR PC
; STESTN. $ERRPC. RCSR

; "RECEIVER DONE NEVER SET"
RCSR"
;"TEST' ERR PC
; $TESTN. $ERRPC. RCSR

; "RCVR ACTIVE NOT CLEARED W'TH DONE SET2
; "TESTN ERR PC
RCSR"
; $TESTN. SERRPC. RCSR

020017

002000
002002
002004

021523
022224
000000

EM64
DH6
DT6
0

002006
002010
002012

020043
021523
022224

EM65
DH6
DT6

SEQ

11 :44
PAGE 23
ERROR POINTER TABLE

002014

000000

0

002016
002020

020111
021523
022224
000000

EM66
DH6
oT6
0

; "RESET DID NOT CLEAR RCVR DONE'
;IITESTH ERR PC
RCSR II
; STESTN. $ERRPC. RCSR

020141

EM67
DH6
DT6
0

j IIROR ENABLE SeT DID NOT CLEAR RCVR DONE'
i "rESTN ERR PC
RCSR'
; $TESTN. $ERRPC. RCSR

EM70
DH6
DT6
0

i IIREADING RBUF DID NOT CLEAR RCVR DONE'
; "TESTN ERR PC
RCSR"
; $TESTN. SERRPC. RCSR

i "RCVR INTERRUPTS WITH ENABLE CLEAR'
; "TESTN ERR PC
RC5R"
; $TESTN. $ERRPC. RCSR

002022
002024
002026
002030
002034

021523
022224
000000

002036
002040
002042
002044

022224
000000

002032

020212

021523

002046
002050
002052
002054

020257
021523
022224

000000

EM71
DH6
DT6
0

002056

020426
021523
022224
000000

EM72
oH6
DT6
0

; "RCVR DID NOT INTERRUPT'
; "TEST, ERR PC
RCSR"
; STESTN. $ERRPC. RCSR

002066
002070
002072
002074

020321
021523
022224

; "RCVR INTERRUPTS AT PRIORITY
i uTESTN ERR PC
RCSR"
; $TESTN. $ERRPC. RCSR

000000

EM73
DH6
DT6
0

020357
021523
022224
000000

EM74
DH6
DT6
0

; "RCVR INTERRUPT REQUEST PASSED WITH ENABLE CLEAR'
; "lESTII' ERR PC
RCSR"
; STESTN. $ERRPC. RCSR

020426

002060
002062
002064

'010

002076
002100
002102
002104

1011
1012
1013
t 014
1015

002106
00211 0

021523

002112
002114

022224
000000

EM75
DH6
DT6
0

;"RCVR DID NOT INTERRUPT ..
RCSR"
; "TESTH ERR PC
; STESTN. $ERRPC. RCSR

1016
'017

002116

020455
021523
022224
000000

EM76
DH6
DT6
0

; "RECEIVER RE-INTERRUPTED'
i IlrESTII' ERR PC
RCSR"
; STESTN. $ERRPC. RCSR

002130
002132
002134

020501
021523
022224
000000

EM77
DH6
oT6
0

002136
002140
002142
002144

020546
021523
022224
000000

EM100
DH6
DT6
0

101 B
1 019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030

7'

EM62
DHl
DTl
0

001776

002120
002122
002124

002126

0022

; $TESTN. SERRPC. LKS

00'662
001664

19-APR-78
.MAIN.
MACY11 30A(1052)
ClDLDC.Pll
19-APR-78 11 :41
975
976
977
978
979
980
981
982
983
9B4
9B5
986
9B7
9B8
989
990
991
992
993
994
995
996
997
99B
999

'"'

l' :44

7'

; "READING RBUF DID NOT CLEAR INTERRUPT'
RCSR'
; STESTN. SERRPC. RCSR

; I!TESTH ERR PC

"RESET DID NOT CLEAR RCVR INTERRUPT'
"TESTN ERR PC
RCSR'
STESTN. $ERRPC. RCSR

0023

19-APR-78
.MAIN.
MACY11 30A ( 1052)
19-APR-78 11: 41
ClOLDC.P11
1031
1032
1033
1 034
1035

, 036
1037
1038
1039
1040
1041
1042
1043
1044
10'15
1046
1047
1048
1049
1060
1051
1062
10S3
1054
1055
1056
1057
1068
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068

1 069
1070
1071
1072
1073
1074
1075

1076
1077
1078
1079
t 080
1081
1082
1083
10B4
1086
1086

EM101
DH6
DT6
0

:" I OR I

: III ERROR! NDT SET WITH
RCSR"
;"TESTH ERR PC
i $TESTN, $ERRPC. RCSR

000000

EM102
DH6
DT6
0

020676
021722
022302
000000

EM103
DH103
DT,03
0

; "BREAK DI D NOT TRANSMIT ALL ZEROES'
DATAl!
RCSR
;"TESTN ERR PC
; $ TESTN, $ERRPC, RCSR. $BDDAT

002176
002200
002202
002204

020734
021623
022224
000000

EM104
DH6
DT6
0

; "BREAK DID NOT SET FRAMING ERROR'
RCSR'
; "TEST. ERR PC
; $TESTN ,$ERRPC. RCSR

002206
002210
002212
002214

020771
021757
022314
000000

EM105
DH'05
DT105
0

; "DATA COMPARE ERROR"
RCSR
GOOD
;" TESTN ERR PC
; $TESTN. $ERRPC, RCSR. GO. BD

002216
002220
002222

EM106
DH105
DT105
0

; "DATA COMPARE ERROR WITH CABLE'
BAD'
RCSR
GOOD
; "TESTN ERR PC
; $TESTN, $ERRPC, RCSR .GD, BD

002224

021014
021751
022314
000000

002226
002230
002232
002234

02' 062
021623
022224
000000

EM107
DH6
DT6
0

; "TIMEOUT IN EXERCISER
RCSR"
:"TESTH ERR PC
; $TESTN, $ERRPC, RC5R

002236
002240
002242

EM" 0
DH11 0
DT11 0
0

;" INCORRECT RECEIVE COUNT
TRANS
RCV'
RCSR
; "TESTN ERR PC
; $TESTN, $ERRPC. RCSR. XMTCNT ,RCVCNT

002244

021104
022023
022330
000000

002246
002250
002262
002254

021134
02' 757
0223' 4
000000

EM111
DH105
DT 1 05
0

; "DATA COMPARE ERROR IN EXERCISER II
BAO'
RCSR
GOOD
; "TESTH ERR PC
; $TESTN. $ERRPC. RCSR, GO. BD

002256
002260
002262
002264

021174
022067
022344
000000

EM,,2
DH112
DT112
0

; "TRAP CATCHER"
TRAP ADR'
OLDPC
RCSR
; "TESH
ERR PC
; $TESTN, $£RRPC. RCSR. OlDPC, BOVECT

002266
002270
002272
002274

021211
021575
022244
000000

EM113
DH10
DT10
0

; "NO CLK INTERRUPT IN EXERCISER'
jl'TESTH
ERR PC
LKS'
; $TESTN, $ERRPC. LKS

002146

020611

002160
002152
002154

021523
022224
000000

002156
002160
002162
002164

020637
021523

002166
002170
002172
002174

022224

.MAIN.
MACY1130A(1052)
19-APR-78
ClDLDC.P11
19-APR-7811:41
1087
1088
1089
1090
, 091
1092
1093
1094
1096
1096
1097
1098
1099

1100
1101
11 02
1103
1104
11 05
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116

1 t 17
1118
1119
1120
1121
1122
1123
1124
1125
1126

1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142

SEQ 00"4

11 :44
PAGE 24
ERROR POINTER TABLE

FLAG OlD NOT SET"

; $TESTN, $ERRPC, RCSR
lOR

I

FLAG'

BADII

TEST~

11:~44

SEQ 0025

PAGE 25
ERROR POINTER TABLE

002276
002300
002302
002304

021247
021523
022224
000000

EM114
DH6
DT6

;"I~RROR' NOT SET WITH
j "TESTH ERR PC
RCSR; $TESTN. $ERRPC. RCSR

002306
002310
002312
002314

021306
021523
022224
000000

EM115
DH6
DT6

; RCV ACTVIE NOT CLEAR WITH INIT
; "TESH ERR PC
RCSR'
; $TESTN, $ERRPC. RCSR

002316
002320
002322
002324

021345
021523
022224
000000

EM116
DH6
DT6

; RCV ACT! VE WITHOUT • START' BIT
;"TESTH ERR PC
RCSR"
; $TESTN, $ERRPC. RCSR

002326
002330
002332
002334

021404
02'523
022224
000000

EM117
DH6
DT6

; ROR ENABLE NOT CLEAR WITH RCV ACTIVE
; "TESTH ERR PC
RCSR"
; $TESTN. $ERRPC. RCSR

002336
002340
002342
002344

000000
000000
000000
000000

; CONSLE UNDER TEST FLAG
CTSTFL: .WORD
o
;TEMP LOCATION FOR TABLE OFFSETS
TMP1:
.WORD
o
;TEMP LOCATION FOR DEVICE COUNT
TMP2:
.wORD
o
; LOCATION FOR DEVICE MAP BIT TEST MASK
TMP3:
. WORD
o
;REGISTER AND VECTOR ADDRESSES FOR THE Oc-11 W UNDER TEST

002346
002350
002352
002354
002356
002360
002362
002364

000000
000000
000000
000000
000000
000000
000000
000000

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

002366
00237C
002372
002374
002376
002400
002402
002404

177560
177562
177664
177566
000060
000062
000064
000066

CRCSR:
177560
CRBUF:
177562
CTCSR:
177564
CTBUF:
177566
CRVECT: 60
CRPSW:
62
CTVECT: 64
CTPSW:
66

002406
002410
0024' 2

177546
000100
000102

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

002414
002454

000020
000020

ADRTBL:
VCTTBL:

'FRI

FLAG"

o

o

o

o

TPSw:

.WORO

.WORD
.WORD
.WORD
.WORD
.wORD
.wORD
.WORD

;CONSOLE REGISTER AND VECTOR ADDRESSES FOR THE DL-llW

.BLKW
• BLKW

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

20
20

.MAIN.
MACV11 30A(1052)
19-APR-78
ClDLDC.P11
i9-APR-7811:41
1143
1144
1145
1146
'147
1148
1149
1150
1151
1152

1153
1154
1155
1156
i 157
1158

1159
1160
t 161

'162
1163
1164
1165

1166
1167
1168

;SU8ROUTINE TO GENERATE DE"ICE AOORESS TA8LE

002514
002520
002524
002526
002532
002534
002540
002542
002544

012702
013700

DEVADR:

002414
001142

0,0001
062701
010022

000170

062700

0000' 0

1$:

020001
003773
000207

005037
005037
005037

002626

012706
005026

001000

005037
005037
005037
005737
001003

012737
012737
0'2737

START:

001070
001066
001072
002336

002546
002552
002556
002562
002566
002572
002576
002602
002604
002612
002620

001076
001100
001112

000400
000006
000003

001112
000004
000006

1169
1170
1171
117,2

002632

1173
1174

002634
002640

002642

022706
001374
012706

001040

1175
1176
1177
1178

002645

012737

013000

002654
002662
002670

012737

000340

012737

012304
000340

000032

002676
002704

012737

182

014704
000340

000036

1 '183

C02712

012737

1184

002720
002726
002734
002740

012737

002746
002754

012737

1179
1180
1181
i

1185
1186
1187
1188
1189
1190

012737
012737
013737
005037
"2737
012737

001000

012622
000340
012132
001060
000001
002746
002754

000020
000022
000030

000034
0000 24
000026

012124
001015
001006
001010

1191

1192

002762

1193
1194

002766
002774

, '95

003002

012737
012737

1196

003010

022777

1197

003016

001012

013746
012737

000004
003022
177570
177570
177777

000004
001040

00100£. .2
176022

1199

.MAIN,
MACY1130A(1052)
19-APR-78
CZDLDC,P11
19-APR-781':41

1199
1200

1201
1202
1203
1204
1205
1206
1207
1208
1209
12' 0
1211
1212
1213
1214
1215
1216
1217
i 218
1219

1220
1221
1222
1223

1224
1225

1226
1227

1228
1229
1230
1231
1232
1233

1234
1235

1236
1237
1238

1239
1240
1241
1242
1243

1244
1245
1246

1247
1248

1249
1250
i 251
1252
1253
'254

SEQ 0026

11:44
PAGE 26
ERROR POINTER TA8lE

003020
003022

64$:

003030
003036

012737
012737

000176

001040

000174

001042

003044

012637

000004

003050

005037
132737

001074
000200

001107

003030

012737

001110

001040

003072
003072

032777

000020

175740

002336
004056
000001

001106

000200

001107

000040

175700

003142

003146

003216
003222
003226
003232

003234

65$ :
66$:

003054
003062
003064

003152
003156
003162
003170
D03174
003200
003202
003206
003212

: POINT R2 TO THE DEVICE ADDRESS TABLE
: LOAD BASE DEVICE ADDRESS IN RD

ClR
ClR
ClR
CLR
ClR
ClR
TST
BNE
MOV
MOV
MOV

$FATAl
$MSGTYP
$TESTN
CTSTFl
$OEVCT
$UNIT
$USWR
1$
H400, $USWR
#6,@H4
113,@//6

;CLEAR ERROR NO.
: CLEAR MESSAGE TYPE
;CLEAR TEST NO.
;CLEAR CONSOLE UNDER TEST FLAG
;ClEAR DEVICE COUNT
;ClEAR UNIT NUMBER
: IS $USWR LOADED?
;BR IF YES
;ElSE. DEFAULT TO $USWR=400
; INITIALIZE TIMEOUT VECTORS TO TRAP
CATCHER ROUT INE

; POINT R I TO LAST DEVICE ADDRESS
:MOVE DEVICE ADDRESS TO TABLE
: POINT HO TO NEXT DEVICE ADDRESS
; FINISHED GENERATING TABLE?
:BR, IF LAST DEVICE ADDRESS NOT LOADED

.S8TH
INITIALIZE THE COMMON TAGS
; ;CLEAR THE COMMON TAGS ($CMTAG) AREA
MOV
• $CMT AG. R6
; ; FIRST LOCA Tl ON TO BE CLEARED
ClR
(R6) +
;; CLEAR MEMORY lOCAT ION
CMP
#5WR, R6 :: DONE?
8NE
.-6
;; lOOP BACK IF NO
MOV
#1000,SP
;;SETUP THE STACK POINTER
;; INITIALIZE A FEW VECTORS
MOV
#$SCOPE.@#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE
MOV
11340,@lIlIOTVEC+2 ;; LEVEL 7
MOV
#$ERROR ,@#EMTVEr: :; EMT VECTOR FOR ERROR ROUTINE
MOV
H340,@#EMTVEC+2 ;;LEVEL 7
MOV
#$TRAP,@#TRAPVEC ; ;TRAP VECTOR FOR TRAP CALLS
MOV
#340,@/tTRAPVEC+2;LEVEL 7
MDV
#$PWRDN_@#PWRVEC ; ;POWER FAILURE VECTOR
MOV
#340,@#PWRVEC+2 ;;LEVEL 7
MOV
$ENOeT, $EOPCT
;; SETUP END-OF-PROGRAM COUNTER
CLR
$ESCAPE
; ;CLEAR THE ESCAPE ON ERROR ADDRESS
MOVS
//1,$ERMAX
; ;ALLOW ONE ERROR PER TEST
MOV
H • • $LPADR
;;INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#.,$LPERR
;;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
@HERRVEC.-(SP); ; SAVE ERROR VECTOR
MOV
H64$,@#ERRVEC: ;SET UP ERROR VECTOR
MOV
HOSWR,SWR
; ; SETUP FOR A HARDWARE SWICH REGISTER
MOV
#ODISP,OISPlAY; ;ANO A HARDWARE DISPLAY REGISTER
CMP
H-l ,~SWR
;; TRY TO REFERENCE HARDWARE SWR
BNE
66$
; ; BRANCH I F NO TIMEOUT TRAP OCCURRED
; ; AND
THE HARDWARE SWR I S NOT • -1

000403

012716
000002

003102
003106
003112
003120
003122
003130
003132
003140

HAORTBl, R2
$8ASE, RO
RO. Rl
H170,Rl
RO,(R2)+
Hi 0, RO
RO,Rl
1$
PC

SEQ 0027

11:44
PAGE 27
INITIALIZE THE COMMON TAGS

003026

003100

1$:

MOV
MOV
MOV
ADD
MOV
ADD
CMP
8lE
RTS

001403

65$
H65$. (SP)

;; BRANCH I F NO TIMEOUT
; ; SET UP FOR TRAP RETURN

6R
MOV
RTI
MOV
MOV
MOV

#SWREG, SWR
; ; POINT TO SOFTWARE SWR
HOI SPREG, 01 SP LAY
(SP)+,@HERRVEC
; :RESTORE ERROR VECTOR

ClR
BI T8
BEQ
MOV

$PASS
HAPTSIZE,$ENVM
67$
H$SWREG, SWR

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

8IT
8EQ
INC

#BIT4,@lSWR
INIT
CTSTF L

TEST CLOCK ONLY?
8R IF NOT
ELSE. SET CONSOLE TEST FLAG TO ENABLE CLOCK TESTS
AND JUMP TO TYPE PROGRAM 10
CHECK I F ON APT
BR IF NOT APT
010 APT SIZE
BR, IF APT SIZED
WAS "$DEVM'· MANUAllY SET?
IF YES, SKIP SELF-SIZING

67$ :

001404
005237
000137
132737

INIT:

001404
132737

001056
032777

MANL:

001052
SIZE:

002514

004737
005037

002342

005037
013703

001144
000004

012737

003212

013700
062700

000160

000004

001142
3$:

005710
005237
005237
0'2706
006337

162700
023700
003762
013700

001144

002342
4$:

001000
001144
000010
001142

003240

012737

002366
003260

003246
003250
003254
003260
003264

0057'0
005237
005237
010337

001144
002342
000004

5$:

003266

005037

002342

APTSlD:

003272
003276
003300
003302
003306
003310
003312
003314

013702

001144

000004

000415

005702
100002
005237
006302

TSTDVM:

002342

1 $:

001401
000771
004737

002514

DVADT:

JMP

lO

BITB
BEQ
BIT8
BNE
BIT
8NE

#8ITO.$ENV
MANL
H8IT7,$ENVM
APTSZD
HBlT5,@SWR
APTSZD

JSR
ClR
CLR
MOV
MOV
MOV
ADD
TST
INC
INC
MOV
ASl
SUB
CMP
8lE
MOV
MOV
T5T
INC
INC
MOV
8R

PC,OEVAOR
TMP2
$DEVM
@lH4,R3

ClR
MOV
TST
BPl
INC
ASL
BEQ
BR
JSR

TMP2
$OEVM, R2
R2
1$
TMP2
R2
OVAOT
TSTDVM
PC, DEVAOR

//4$ .@#4
$BASE, RO
H160,RO
(RO)
$DEVM
TMP2
#1000,SP
$DEVM
Hl 0, RO
$BASE, RO
3$
CRCSR,RO
#5$,@H4
(RO)
$DEVM
TMP2
R3,@H4
VCTAOR

GENERATE DEVICE ADDRESS TABLE
ClR TEMP LOCATION TO KEEP DEVICE COUNT
CLEAR DEVICE MAP
SAVE TIMEOUT VECTOR
SET TIMEOUT POINTER
LOAD BASE ADDRESS
POINT RO TO UNIT H15 (UNITHO=CONSOlE)
CHECK FOR DEVICE EXISTANCE
INDICATE DEVICE EXISTANCE IN DEVICE MAP
INCREMENT OEV I CE COUNT
: RESET STACK POINTER
ADJUST DEVICE MAP FOR NEXT UNIT CHECK
POINT RO TO NEXT DEVICE NUMBER

FINISHED SIZING?
8R, IF BASE ADDRESS HAS NOT BEEN CHECKED
lOAD CONSOLE DEV ICE ADDRESS
SET UP TIMEOUT POINTER
TEST FOR CONSOLE EXISTANCE
INDICATE CONSOLE EXISTANCE IN DEVICE MAP
INCREMENT DEVICE COUNT
RESTORE TIMEOUT VECTOR
8R TO GENERATE VECTOR ADDRESS TABLE
CLEAR TEMP LOCATIDN TO KEEP DEVICE CNi
MOVE DEVICE MAP TO R2
TEST MSB OF DEVICE MAP
8R. IF MS8 IS ZERO
INCREMENT DEVICE COUNT. IF MSB=l
SHIFT NEXT BIT INTO MSB POSITION
BR, IF NO OTHER BITS ARE SET IN SOEVM
CONTINUE CHECKING $OEVM, IF MORE BITS SET
GENERATE DEVICE ADDRESS TABLE

19-APR-78
.MAIN.
MACY11 30A(1052)
CZDLDC. P1 1
19-APR-7B 11:41
1255
1256
1257
1258
1259
1260
1261
1262
1263

1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
.275
1276
1277

• 278
1279
1280
'281
1282
1283
1284
1285
1286
1287
.288
• 289
1290
1291
1292
1293
1294
1295
.296
1297
1298
.299
1300
1301
1302
1303
1304
1305
.306
• 307
1308
• 309
'3'0

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
02000,
003773

003354
003360
003362
003364
003366
003370
003372
003374
003376
003400
003402
003404
003410
003412
0034' 6
003420

013700
005001
000300
006300
006300
006300
106101
006300
106101
006300
106101
062701
000301
0327(11
001764
010137

003424
003432
003.'j36
C03444
003446
003450
003454
00346C
003464
003466
003472
003474

052737
005037
032737
001001
000414
005237
012700
012701
012021
02270.
002374
000137

003500
003506
003510
003514
003522
003526

033737
001010
006337
062737
005237
000764

003530
003534
003540

005237
006337
013702

VCTADR:

002454
001136
177400
000170

1$:
000010

MDV
MOVB
BIC
MOV
ADD
MOV
ADD
CMP
BlE

#VCTTBL, R2
i'H$VECT 1 ,RO
HI77400,RO
RO, ,11
#170. R1
RO,(R2)+
#10. RO
RO, Rl
1$

GET LOCATION OF VECTOR TABLE
COpy BASE VECTOR
CLEAR BYTE SIGN EXTENSION
POINT Rl TO lAST DEVICE VECTOR
PUT VECTOR ADDRESS IN TABLE
POINT RO TO NEXT VECTOR ADDRESS
FINISHED GENERAT ING VECTOR TABLE?
BR, lF LAST VECTOR I S NOT lOADED

;MOVE DEVICE COUNT INTO DEVICE COUNT MESSAGE
002342

SHIFT :

000060
000020
022.54

000002
002340
000001

002344

003544
003552
003556
003562
003564
003570
003574

062737
016200
012701
01002.
062700
030027
00.372

003576
003602
003604
0036.0
0036.4
003616

016200
010021
062700
030027
DO 1372
000'37

BEGIN:

001144

TCONS:

002336
002366
002346

1$:
002364
003622

002344

001144

002344
000002
001.00

002340

000002
0024.4
002346

002340

AOR:

002454
VEeT:

003622

TMP2. RO
Rl
RO
RO
RO
RO
Rl
RO
Rl
RO
Rl
#60, Rl
Rl
#BIT4,R1
SHIFT
Rl.M2A

; COpy DEVICE COUNT INTO RO
;CLEAR AUXlLARY 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 Rl
;MOVE NEXT 8IT TO CARRY
,MOVE INTO Rl
; MOVE LAST BI T OF DIGIT
; INTO Rl
; CONVERT DIGI T TO ASCII
;MOVE DIGIT TO UPPER BYTE
;HAVE BOTH DIGITS BEEN MOVED TO Rl?
; BR. IF NOT
;MOVE DEVICE COUNT TO OUTPUT MESSAGE

8IS
CLR
BI T
BNE
BR
INC
MOV
MOV
MOV
CMP
BGE
JMP

#8IT1. TMP3
TMP,
#BITO.$DEVM
TCONS
TSTDEV
CTSTFL
HCRCSR. RO
HRCSR. R.
(RO)+. (Rl)+
#TPSW.R1
'$
TSTl

,SET UP BIT MASK TO TEST $OEVM FOR DEVICES EXCEPT CQNSOL
;CLEAR lOCATION TO STORE TABLE OFFSETS
; IS CONSOLE TO BE TESTED?
; 8R, IF CONSOLE IS TO BE TESTED
; BR, TO TEST OTHER DEVICES
; INDICATE CONSOLE UNDER TEST
; SET UP CONSOLE DEVICE AOORESSES
;POINT Rl TO UUT ADDRESS TABLE
; TRANSFER CONSOLE ADDRESSES
; FINISHED TRANSFER?
; BR, IF NOT
; GO TE5 T CON50 LE INTERFACE

INC
ASL
MOV

$UNIT
TMP3
TMPl • R2

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

11 :44
PAGE 29
INITIALIZE THE COMMON TAGS

000002
oooooe

000002
000006

MDV
CLR
SWAB
ASL
ASL
ASL
ROLB
ASL
ROLB
ASL
ROl8
ADD
SWAB
BIT
BEQ
MOV

; PREPARE ADDRESSES AND VECTORS FOR UUT
TSTDEV: BIT
TMP3, $DEVM
; CHECK TO SEE IF DEVICE IS TO BE TESTED
BNE
SET ADR
; BR, I F YES
TMP3
A5L
; SHI FT MASK TO CHECK NEXT $DEVM BIT
ADD
112. TMP1
; INCREMENT TABLE INDEX
INC
$UNIT
: INCREMENT UNIT NUMBER
BR
TSTDEV
;GO TEST NEXT BIT OF DEVICE MAP
SETAOR:

001100
002344
002340

.MAIN.
MACY11 30A('052)
'9-APR-78
19-APR-7811:41
ClDlDC.Pl1
'311
1312
1313
1314
'3'5
1316
13'7
131 B
1319
1320
1321
'322
1323
1324
1325
1326

11 :44

SEQ 0029

ADD
MOV
MOV
MOV
ADD
BIT
BNE

112. TMP1
ADRTBL(R2) .RO
HRCSR.Rl
RO,(R1)+
H2, RO
RO, H6
AOR

UPDATE TABLE OFFSET FOR NEXT DEVICE
PUT UUT ADDRESS INTO RO
POINT R1 TO STORAGE AREA FOR UUT AODRESSES
TRANSFER UUT ADDRESS
POINT TO NEXT UUT REGISTER
FINISHE.L.J TRANSFER?
8R. I F NOT

MOV
MOV
ADD
BIT
BNE
JMP

VCTTBL(R2) .RO
RO.(R1)+
'2, RO
Ro,.e
VECT
T5Tl

PUT UUT VECTOR INTO RO
TRANSFER UUT VECTORS TO ACTIVE TABLE AREA
POINT TO NEXT VECTOR
FINISHED TRANSFER?
BR. IF NOT
GO TEST DEVICE

.MAIN.
MACYll 30A(1052)
19-APR-78
CZDLDC. Pll
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

1422

SEQ 0030

; ; ............................................. ** .......... Ill • • • • • • • • •
TEST ASI LIlY TO REFERENCE TCSR

; *TEST 1

i , •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

003622
003624
003630
003636
003642

000004
013703
012737
005777
000412

003644
003646
003652
003654
003656
003660
003660
003664
003666
003670

022626
005737
001002
104001
000404

TSTI :
000004
003644
176510

000004

1$:
002336

SCOPE
MOV
MOV
TST
8R

fIIN4.R3
Nl$.fIIN4
fIITCSR
4$

; SAVE TIMEOUT VECTOR
; SET UP TIMEOUT VECTOR
; REFERENCE THE XMIT COMMAND/STATUS REG.
; GO TO END OF TEST

CMP
TST
BNE
ERROR
BR

(SP)+. (SP)+
CTSTFL
2$
1
4$

; RESTORE SP AFTER TIMEOUT
;CHECK IF DEVICE IS CONSOLE
; I F YES. SKIP ERROR TYPEOUT
; REPORT ERROR TO APT & TTY
; BR TO END OF TEST

JSR
1
HALT
MOV

PC.$ATY4

2$:
004737
000001
000000
010337

013170
3$:
4$:

000004

;;

003674
003676
003702
003710
003714

000004
013703
012737
005777
000412

003716
003720
003724
003726
003730
003732
003732
003736
003740
003742

022626
005737
001002
104002
000404

000004
003716
176440

000004

R3.fIIN4

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

..

: RESTORE TIMEOUT VECTOR

.......................................... ....................
.......................................... .... "'''' .... "' .........
"'

; *TEST 2
;;
TST2:
SCOPE
MOV
MOV
TST
BR
1$:

002336

TEST ABI LIlY TO REFERENCE TBUF

"'

fIIN4.R3
#1$.IDN4
fIITBUF
4$

: SAVE TIMEOUT VECTOR
; SET UP TIMEOUT VECTOR
: REFERENCE THE XMIT BUFFER
;GO TO END OF
TEST

CMP
TST
BNE
ERROR
BR

ISP)+.ISP)+
CTSTFL
2$
2
4$

; RESTORE SP AFTER TIMEOUT
:CHECK IF DEVICE IS CONSOLE
; IF YES. SKIP ERROR TYPEOUT
: REPORT ERROR TO APT & TTY
: BR TO END OF TEST

JSR
2
HALT
MOV

PC.$ATY4

2$:
004737
000002
000000
010337

013170
3$:
4$:

000004

.MAIN.
MACYll 30A(1052)
19-APR-7B
CZOLDC.Pl1
19-APR-7811:41
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
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421

11:44 PAGE 30
INITIALIZE THE COMMON TAGS

11:44
T2

R3.fIIN4

;;ONLY REPORT A FATAL ERROR
;: THE ERROR NUMBER I FROM APT LIST)
; RESTORE TIMEOUT VECTOR

PAGE 31
TEST ABILITY TO REFERENCE TBUF

SEQ 0031

; ; •••••• *"'."''''* •••••••••••••••••••••••• *** ......................... .
003746
003750
003754
003760

000004
005077
105777
100016

................... ............... "' ...........................

:.rEST 3
;;
TST3:
SCOPE
CLR
TSTB
BPL

176400
176372

TEST THAT TCSR BIT7IDONE) CLEARS WHEN XBUF IS LOADED

"'

fIITBUF
IDTCSR
3$

: LOAD XBUF
: CHECK DONE

;BR IF CLEAR

003762
003766
003772

005077
105777
100011

176366
176360

CLR
TSTB
BPL

t>TBUF
fIITCSR
3$

: FI LL SECOND BUFFER. BECAUSE REFRESH COULD CAUSE
FIRST TEST TO FAIL
; FILL DOUBLE BUFFER
: CHECK DONE
:BR IF CLEAR

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

005737
001002
104003
000404

002336

TST
BNE
ERROR
BR

CTSTFL
1$
3
3$

: CHECK IF DEV I CE IS CONSOLE
: I F YES. SK I P ERROR TYPEOUT
: DONE NOT CLEARED WITH TBUF FULL
: BR TO END OF TEST

004737
000003
000000
005000
105777
100414
005200
001373

013170

JSR
3
HALT
CLR
TSTB
BMI
INC
BNE

PC.$ATY4

;:ONLY REPORT A FATAL ERROR
; : THE ERROR NUMBER I FROM APT LIST)
:TCSR "DONE" NOT CLEARED WITH TBUF FULL
:CLEAR TIMER
:CHECK FOR XMIT DONE
;IF DONE SETS. BR TO END OF TEST
: INCREMENT TIMER
;BR IF TIMER NOT DONE

005737
001002
104004
000405

002336

1$:

004032
004036
004040
004042
004044
004044
004050
004052
004054

004737
000004
000000
000424

004056
004064
004066
004072
004074
004100
004102
004104
004106
004110
004112
004120
004122

023737
001412
005737
001007
005737
001004
104401
022140
104401
022152
032777
001402
000137

2$:
3$:
4$:

176326

TST
BNE
ERROR
BR

RO
fIITCSR

10
RO
4$
CTSTFL
5$

:CHECK IF DEVICE IS CONSOLE

4

: TCSR "DONE" DOES NOT SET
: BR TO END OF TEST

10

5$:
JSR

013170

PC.$ATY4

4
HALT
BR
000042

000046

10:

174720

6$:

001074
001076

000020
005056

CMP
BEQ
TST
BNE
TST
BNE
TYPE
Ml
TYPE
M2
BIT
BEQ
JMP

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

T5T4

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

t'#42.fIIN46
6$
$PASS
6$
$DEVCT
6$

: UNDER AC T 117
;IF YES. SKIP IDENT. TYPEOUT
: IS THIS THE FIRST PASS?
: I F NOT BR TO NEXT TEST & SKIP THE IDENTIFICATION TYPEDU
: IS THIS THE FIRST SUBPASS7
; I F NOT. BRTO NEXT TEST
;TYPE PROGRAM INDENTlFICATlON

NBIT4.IISWR
TST4
TCLOCK

:CLOCK TEST ONLY?
: BR IF NOT
: ELSE. JUMP TO TEST CLOCK

; TYPE NUMBER OF DEVICES UNDER TEST

.MAIN.
MACYll 30A(1052)
19-APR-78
CZDLDC.Pll
19-APR-78 11 :41

..

1423
1424
1425
1426
1427
142B
1429
1430
1431
1432
1433
1434
1435
1436
1437
143B
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453

PAGE 32
TEST THAT TCSR BIT7(DONE) CLEARS WHEN X8UF IS LOADED

004126
004130
004134
004140
004142
004146
004150
004152
004156

000004
005077
105777
100375
005077
000240
000005
105777
100401

004160

104005

;;
TS14:

176220
176212

TEST THAT TCSR 'DONE' SETS WITH RESET

SCOPE
CLR
TSTB
BPL
CLR
NOP
RESET
TSTB
BMI

1$:

176206
176174

PTBUF
PTCSR
1$
PTBUF

ERROR

000004
013703
012737
005777
000402

004204
004206
004210

022626
104006
010337

: LOAD TRANSMIT BUFFER
;WAIT FOR DONE
: LOAD SECOND BUFFER

PTCSR
TST5

; CLEAR DONE WITH RESET
; CHECK FOR DONE SET
; BR TO NEXT TEST IF DONE SET

5

:TCSR "DONE" DOES NOT SET WITH RESET

...............................................................
...............................................................

;;
;*TEST 5
004162
004164
004170
004176
004202

;;
TST5:
000004
004204
176144

000004

1$:
2$:

000004

11:44
T5

TEST ABI LIlY TO ACCESS RCSR

SCOPE
MOV
MOV
TST
BR

P'4.R3
I1$.P'4
PRCSR
2$

SAVE TIMEOUT VECTOR
SET UP TIMEOUT VECTOR
ACCESS RCSR
BR TO END OF TEST

CMP
ERROR
MOV

(SP)+. (SP)+
6
R3 • .,4

RESTORE SP AFTER TIMEOUT
CAN NOT ACCESS RCSR
RESTORE TIMEOUT VECTOR

PAGE 33
TEST ABILITY TO ACCESS RCSR

...............................................................

;;
:-TEST 6

TEST ABILITY TO ACCESS RBUF
,...............................................................
.
TST6:
SCOPE

;

004214
004216
004222
004230
004234

000004
013703
012737
005777
000402

004236
004240
004242

022626
104007
010337

SEQ 0032

..........................................................."'...
..................................................................

;;
:-TEST 4

.MAIN.
MACYl1 30A(1052)
19-APR-7B
CZDLDC.Pl1
19-APR-7B 11:41
1454
1455
1456
1457
145B
1459
1460
1461
1462
1463
1464
1465
1466
1467
146B
1469
1470
1471

11:44
T3

000004
004236
176114

000004

1$:
000004

2$:

MOV
MOV
TST
BR

P'4.R3
"$.P.4
PRBUF
2$

SAVE TIMEOUT VECTOR
SET UP TIMEOUT VECTOR
ACCESS RBUF
BR TO END OF TEST

CMP
ERROR
MOV

(SP)+. (SP)+

7

RESTORE SP AFTER TIMEOUT
CAN NOT ACCESS RBUF
RESTORE TIMEOUT VECTOR

R3.P'4

SEQ 0033

19-APR-78
MACVll 30A( 1052)
.MAIN.
19-APR-78 11:41
CZDLDC. Pll
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
t 492
1493
1494
1495
1496
1497
1498
, 499
1500
1501
1502
1503
t 504
1505
1506
1507
1508
1509
1510
1511

1512
1513
1514
1515

11 :44
T6

seq 0034

PAGE 34
TEST ABILITY TO ACCESS RaUF

; ; "'* '" "' .. *** '" "'''' "''''* "'* '" *'" '" '" 1<':' ** "'* '" ** * '" '* '" ** **

>I< "' .. ** * ** '" ** "'* r;.* >I< '" >I< *'" 01< 010* 'Ii $"
TEST THAT BITO(SREAK BIT) CAN BE SET & CLEARED & RESET
:*TEST 7
; : * .** *-. >I< '" >I< >I< **"'*'* '" '* *'* '* **'* "'* *'*"'*'* '" '" 0/' "'*** ** "' . . **- .. '" >I< '" ** *'** '"
*' ******'*'
TST7:
SCOPE
: IS SREAK FUNCTION ENABLED?
HBITB ,@SWR
BIT
IF
NOT
:BR
TO
NEXT
TEST,
TST11
BEQ
:CLEAR EVERyTHING
RESET
; CHECK BI TO OF TCSR CLEAR
HBITO,Ii'TCSR
81 T
3$
: BR IF CLEAR
BEQ
CTSTFL
TST
1$
BNE
: BITO WAS NOT CLEAR AFTER RESET
ERROR
11
3$
BR
1$:
; :ONLY REPORT A FATAL ERROR
PC,$ATY4
JSR
: : THE ERROR NUMBER (FROM APT LIST)
11
HALT
2$:

"'*

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

013170

004314
004322
004330

052777
032777
001001

000001
000001

004332

104012

000400

174562

000001

176062

002336

000001
000001

176030
176022

3$:

176010
176002

4$:

004334
004342
004350
004352
004356
C04360
004362
004364
004364
004370
004372

042777
032777
001411
005737
001002
104013
000404
004737
000013
OGOOOO

013170

004374
004402
004404
004412
004414
004422

052777
COOO05
032777
001467
042777
104014

000001

175750

000001

175740

000001

175730

NBITO,@TCSI.
NBITO,@TCSR
4$

:SET BITO IN TCSR
: TEST BITO OF TeSR
:BR I F SET

ERROR

12

: BITO OF TCSR wILL NOT SET

BIC
BIT
8EQ
TST
BNE
ERROR
BR

NBITO ,@TCSR
H8lTO ,@TCSR
7$
CTSTFL
5$
13
7$

: CLEAR BITO OF TCSR
; TEST BITO OF TCSR

JSR
13
HALT

PC,$ATY4

BI S
BIT
BNE

002336

;BITO OF TCSR WI LL NOT CLEAR

5$ :

6$:

.MAIN.
MACYl1 30A( 1052)
19-APR-78
CZOLDC.Pl1
19-APR-78 11 :41

7$:

11 :44
T7

BI S
RESET
BIT
BEQ
BIC
ERROR

N BI TO.@TCSR

NBITO ,@TCSR
TSTll
NBITO ,I>TCSR
14

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

SET BI TO IN TCSR
CLEAR BITO WITH RESET
TEST BITO CLEAR
BR IF CLEAR
CLEAR BITO, TO PRINT ERROR
RESET DID NOT CLEAR BlTO OF TCSR

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

1516
1517
1518
1519
1520
1521
1522

1523
1524
1525
1526
1527
152B

1529
1530

::*TEST
; '" '" ** ... 10
*** '" ** "'. '" TEST
*** ** THAT
'" '" '" '" '" BIT2(MAINT.
'" "'* "'''''''* ** ****BIT)
'" * .. *' CAN
** '" '" BE
"'''''''*SET
*******
'" **** **
& RESET
004424
004430
004436

000004
000005
032777
001411

004440
004444
004446
004450

005737
001002
104015
000404

004426

1531
004452
004737
1532
004452
004456
000015
1533
000000
004460
1534
1535
052777
00446:2
1536
032777
1537
004470
004476
001001
1538
1539
1540004500104016
1541
042777
1542
004502
032777
1543
004510
1544
004516
001411
1545
005737
1546
004520
001002
1547
004524
104017
004526
1548
000404
004530
1549
1550
004532
004737
1551
004532
000017
1552
004536
000000
1553
004540

: ; '" ** '" "'* >I< *** ****** *"'''' '" *** .... **"'''' "' . . *"''''''''''''' ** '" *" ** *** '" ** .. "' •• >11* *****:11 **

TST 10:
000004

175714

002336

SCOPE
RESET
BIT
BEQ

HSIT2,"TCSR
3$

TST
BNE
ERROR
BR

CTSTFL
1$
15
3$

JSR
15
HAlT

PC,$ATY4

HBIT2,@TCSR
HBIT2,@>TCSR
4$

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

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

:IF

1$:
013170
2$:

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

000004
000004

175662
175654

3$:

BIS
BIT
BNE
ERROR

16

:BIT2 OF TCSR "ILL NOT SET

000004
000004

175642
175634

4$:

BIC
BIT
BEQ

NBIT2,@TCSR
HBIT2,@TCSR
7$

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

TST
BNE
ERROR
BR

CTSTFL
5$
17
7$

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

JSR
17
HALT

PC,$ATY4

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

BI S
RESET
BIT
BEQ

NBIT2,!'TCSR

: SET BI T2 OF TCSR
;CLEAR BIT2 WITH RESET
: TEST FOR BIT2 CLEAR
: IF CLEAR, GO TO NEXT TEST

BIC
ERROR

#BIT2
20

002336

5$:
013170
6$:

1554
1555
1556
1557
1558
1559
1560
1561
1562

: CLEAR EVERYTH I NG
:TEST FOR BIT2 OF TeSR CLEAR
:BR IF CLEAR

175602

00454:2
004550
004552
004560

052777
000005
032777
001461

000004
000004

175572

004562
004570

042777
104020

000004

175562

7$:

HBlT2,@>TCSR
TST12
r~TCSR

;CLEAR BIT2,

TO PRINT ERROR

: RESET DID NOT CLEAR BIT2 OF TCSR

SEQ

0035

.MAIN.
MACYll 30A(10S2)
19-APR-78
CZDLDC.Pl1
19-APR-7811:41

..

1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
15B5
1586
1587
15B8
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604

004572
004574
004576
004602
004610
004614
004616
004624
004626

000004
000005
017703
012777
004737
000340
032777
001404
104021

004630

000402

004632
004634

022626
104022

.

SEQ 0038

.................................. "' ................................
.................................................................

175560
004632
012242

175552

000100

175521>

;;
;*TEST 11
;;
TST11:
SCOPE
RESET
MOV
MOV
JSR

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

BIT
BEQ
ERROR

PTVECT. R3
N15.I'TVECT
PC.WRPSW
.WORD
340
NBIT6.PTCSR
2$
21

BR

2$

CMP
ERROR

(SP)+. (SP)+
22

;CLEAR EVERyTHING
; SAVE XMIT VECTOR
;SET UP INTERRUPT VECTOR FOR ERROR REPORT
;SET PSW TO PRIORITY-7
;TEST BIT6 OF TCSR
; BR IF ZERO
; BIT6 IN TCSR NOT CLEAR AFTER RESET

1$:

;RESTORE SP AFTER INTERRUPT
; XMIT INTERRUPT OCCURRED

175506
175500

004636
004644
004652

052777
032777
001001

004654

104023

004656
004664
004672
004674

042777
032777
001401
104024

000100
000100

175466
175460

004676
004704
004706
004714

052777
000005
032777
001401

000100

175446

000100

175436

000100
000100

2$:

BIS
BIT
BNE

NBIT6.IIiCSR
#BIT6.IITCSR
3$

ERROR

23

3$:

BIC
BIT
BEQ
ERROR

NBIT6.t>TCSR
#BIT6.t>TCSR
4$
24

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

4$:

BIS
RESET
BIT
BEQ

NBIT6.t>TCSR
#BIT6.IITCSR
5$

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

ERROR

25

MOV

R3.PTVECT

PRID-7

;SET BIT6 OF TCSR
; TEST BIT6 OF TCSR
;BR. IF SET
;CANNOT SET BIT6 OF TCSR

;CANNOT CLEAR BIT6 OF TCSR

004716

104025

004720

010377

5$:

175436

19-APR-78
.MAIN.
MACYll 30A( 1052)
CZDLDC. Pll
19-APR-7B 11 :41
1605
1606
1607
160B
1609
1610
1611
1612
1613
1614
1615
1616
1617
161B
1619
1620
1621
1622
1623
1624
1625
1626
1627
162B
1629
1630
1631
1632
1633
1634
1635
1636
1637
163B
1639
1640
1641
1642
1643
1644
1645
1646
1647
164B

11:44 PAGE 36
TlO
TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET

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

11 :44 PAGE 37
TEST THAT BIT6(XMIT INT EN) CAN BE SET & RESET
T11

;; ••••••• ** ••••• ** •••••••••••••••••••••••••••••••• "' ••••••••••••••
;*TEST 12

TEST THAT BIT6 OF RCSR CAN BE SET & RESET

; ; ••••••••••••••••••••••••••••••• * •••••••••••••••••••••••••••••••
004724
004726
004730
004734
004742
004746
004750
004756
004760

000004
000005
017703
012777
004737
000340
032777
001404
104026

004762

000402

004764
004766

022626
104027

004770
004776
005004

052777
032777
001001

005006

104030

005010
005016
005024

042777
032777
001401

005026

104031

005030
005036
005040
005046

052777
000005
032777
001401

005050

104032

TSTI2:
175422
004764
012242

175414

0001 DO

175370

SCOPE
RESET
MOV
MOV
JSR

;CLEAR EVERYTHING
; SAVE RECEIVE VECTOR
; SET UP INTERRUPT VECTOR FOR ERROR REPORT
; SET PSw TO PRIORITY-7

BIT
BEQ
ERROR

IIRVECT. R3
#1$ .@RVECT
PC.WRPSW
.WORD
340
NBIT6.t>RCSR
2$
26

SR

2$

1$:

CMP
ERROR

(SP)+. (SP)+
27

;RESTORE SP AFTER INTERRUPT

2$:

BIS
BIT
BNE

#BIT6.@RCSR
#BIT6.@RCSR
3$

; SET BIT6 OF RCSR
; TEST BIT6 OF RCSR
;BR. IF SET

ERROR

30

BIC
BIT
BEQ

#BIT6.t>RCSR
#BIT6.IIRCSR
4$

ERROR

31

BIS
RESET
BIT
BEQ

#BIT6.IIRCSR
#BIT6.IIRCSR
5$

ERROR

32

MOV

R3.IIRVECT

; TEST BIT6 OF RCSR
;BIT6 OF RCSR NOT CLEAR AFTER RESET

;RCVR INTERRUPT WITH PRIORITY-7
000100
000100

175350
175342

;CANNOT SET BIT6 OF RCSR
000100
000100

175330
175322

3$:

;CLEAR BIT6 Of RCSR
; TEST BITG OF RCSR

;SR. IF CLEAR
;CANNOT CLEAR BIT6 OF RCSR

005052

010377

000100

175310

000100

175300

175300

4$:

5S:

; SET BIT6 OF RCSR
;CLEAR BIT60F RCSR WITH RESET
; TEST BIT6 OF RCSR
;BR. IF CLEAR
; CANNOT CLEAR BIT6 OF RCSR WITH RESET
; RESTORE RECEIVE VECTOR

SEQ 0037

1649
1650
1651
1652
1653
1654
1655
1656
1657
165B
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
'677
167B
1679
1680
16Bl
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

001002

000004
005737
001420
032777
001014
013703
012737
005777
000402

005124
005126

022626
104010

005130

010337

173736

000004
005124
175264

000004

000004

'711

** "' ..

SCOPE
T5T
BEQ
BIT
BNE
MOV
MOV
TST
BR

CTSTFL
TST14
NBIT6,I!'SWR
TST14
I!'N4,R3
H1S,@lN4
I!'LKS
2$

; IS CONSOLE UNDER TEST?
; IF NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INHIBITED?
; I F YES, SKIP THIS TEST
; SAVE TIMEOUT VECTOR
j5ET UP TIMEOUT VECTOR
; ACCESS LKS
;NO TIMEOUT BR TO ENO OF TEST

1$:

CMP
ERROR

(SP)+, (SP)+
10

JRESTORE SP AFTER TIMEOUT
; CAN NOT ACCESS LKS

2$:

MOV

R3,1"'4

; RESTORE TIMEOUT VECTOR

TST13:

000100

; ADJUST TEST NUMBER TO (NEXT TEST
****** ••• '" '" +- .... * •• "',. .... "'. '"
"'$I ** '" '"
*""'1<. $'"
TEST ABILITY TO ACCESS LKS

H12,$TSTNM

"'* "'*
; ; *'1""""'" '" **"' ......... "' •• * *.**** •• "' ..... **.'" *"'''' '" ** '" "'.* **."' . . "'''' '" .>11"'."' •• '"

002336

-1)

:; .TEST
; *.** ••14*.* ** *"'* TEST
•• * ** THAT
** .* ••BIT6
"'. '" "''''.'''
... "'.*'" '" It'" *'" *'" '" "''''* "'* .***** *...... '"
OF LKS CAN BE SET & RESET
*"' •••••••••••••••••••• ** ••• *' •••• '" *,.. '" *'" *'" '" '" *. ** '" •••• "' ••••••

000004
005737
001460
032777

*.

i ; •••
TST14:

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

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

175142
175134

005256

052777

000100

175122

000100

173666

175226
005212
012242

175220

000100

175202

SCOPE
TST
BEQ
BIT
BNE
RESET
MOV
MOV
JSR

CT5TFL
TST15
NBlT6,I!'SWR
TST15

; IS CONSOLE UNDER TEST?
; I F NOT, SKIP THIS TEST
;ARE LINE CLOCK TESTS INHIBITED?
; I F YES, SKIP THIS TEST
; SAVE LINE CLOCK VECTOR
;SET UP INTERRUPT VECTOR FOR ERROR REPORT
;SET PSW TO PRIORITY 7

BIT
BEQ
ERROR

@RTCVT,R3
#1 $ ,@RTCVT
PC,WRPSW
.WORD
340
NBIT6,OLKS
2$
33

BR

2$

1$:

CMP
ERROR

(SP)+, (SP)+
34

; RESTORE SP AFTER INTERRUPT

2$:

BIS
BIT
BNE

NBIT6,@LKS
NBIT6,@LKS
3$

; SET BIT6 OF LKS
; TEST BIT6 OF LKS
;BR IF SET

ERROR

35

3$:

BIC
BIT
BEQ
ERROR

NBIT6,IilLKS
NBIT6,@LKS
4$

36

4$:

BIS

NBIT6,@LKS

002336

001054

;TEST BIT6 OF LKS

;BIT6 OF LKS NOT CLEAR AFTER RESET

; LKS INTERRUPT WITH PRIORITY.7
000100
000100

175162
175154

; CANNOT SET BIT6 OF lKS

.MAIN.
19-APR-78
MACV11 30A (1052)
CZDLDC. P11
19-APR-78 11 :41
1705
1706
1707
1708
1709
1710

;;. '" "' . . . . '" '" '" "' ... "' . . *.

TCLOCK: MOV

;*TEST 13-

005064
005066
005072
005074
005102
005104
005110
005116
005122

SEQ 0038

11 :44 PAGE 3B
TEST THAT BITG OF RCSR CAN BE SET & RESET
T12

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

005264
005266
005274

000005
032777
001401

005276

104037

005300

010377

000100

175104

; CLEAR BI T6 OF LKS
; TEST BIT6 OF LK

; CANNOT CLEAR B! T6 OF LKS
;SET BIT6 OF LKS

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

175112

5$:

RESET
BIT
BEQ

#BIT6,IilLKS
5$

ERROR

37

MOV

R3,IilRTCVT

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

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

SEQ 0039

, 9-APR-19
.MAIN.
MACV11 30A (1052)
19-APR-7S 11:4,
CZDLDC. Pl1

"

1712
1713
1714
1715

; ;.* .. *" ... '"
;*TEST '5

17'6
1717
171 B
1719
1720
'721
1722
1723
1724
1725
1726
1727
1728

1729
1730
, 731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
'747
1748
1749
1750
1751

; ; ....... 1ft. '"

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

000004
013703
013704
012737
012737
000005
0' 2700
032777
001404
013737
000403
013737
013737
040037
023737
001002
050037
017737
052777
032777
001011
013777
000401
022626
006300
105700
100343
000401

005462

104040

005464
005470

0' 0337
010437

TST15:
000004
000006
005450
000340

000004
000006

000002
000020

'73472

002406

001020

002346
001020
001022
001020

001020
001022

001024
173372
'73362

001024

'73354

.MAIN.
MACYll 30A(1052)
19-APR-7B
ClDLDC.Pl1
19-APR-7B 11:41
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
, 778
'779
1780
1781
1782
1783
17B4

* ••••• '" ** '" ****. ** .. "' •• ** '" '" ** ** '" '" ** '"

"'.** .. $* "'."''''''' "

TEST FOR DUAL ADDRESSING OF REGISTERS

6$:

ERROR

40

;DUAL ADDRESSING ERROR
;$BDADR ; DUAL ADDRESS
; $GDADR ; GOOD ADDRESS

1$:

MOV
MDV

R3,I'N4
R4,('N6

; RESTORE TIMEOUT VECTOR
; RESTORE TIMEOUT PSIoI

1$:
2$:

3$:

@#4,R3
I'N6, R4
N4$,1'#4
N340,I'#6

; SAVE TIMEOUT VECTOR
; SAVE TIMEOuT PSW
; SET UP TIMEOUT VECTOR
; KEEP PR \0=7
;CLEAR EVERYTHING
; SET UP BIT MASK
;CLOCK TEST ONLY?
;BR I F NOT
; ELSE, MOVE GOOD LKS ADDRESS INTO SGDADR
;MOVE GOOD RCSR ADDRESS INTO $GDADR
;MOVE GOOD ADDRESS INTO TEST ADORESS LOCAT ION
;CREATE BAD ADDRESS BY COMPLEMENTING ONE BIr
; ARE ADDRESSES I DENTI CA L?
; I F NOT, TEST THIS ADDRESS
; ELSE, BIT SET THIS BIT POS IT ION TO GENERATE BAD AOOAESS
; SAVE CONTENTS OF BAD ADDRESS IF I T EXISTS
; SET BIT6 USING BAD ADDRESS
; CHECK TO SEE I F GOOD ADDRESS CONTAINS BIT6
; BR IF s:-:r ---> ERROR
; RESTORE ANY MEMORY LOCATION THAT ~AS Al HRED
;8R TO CONTINUE TEST
; RESTORE SP AFTER TIMEOUT
; SHI FT BIT MASK TO NEXT POSITION
;COMPLEMENTED ALL BITS FROM 1 - 77
; BR, IF NOT,
; BR TO NEXT TEST

SEQ 0041

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

; ; * "'* * ** '" ** "'* *******"'******* '" ..... '" * "' •• '" "' ... '" '" '" '" '" ** *'" ** '" '" "'* ** $** >1<$$
i"'TEST 16

005474
005476
005502
005504
005512
005514
005516
005522

000004
005737
001437
0327i7
001033
000005
105777
100401

005524

104041

005526
005534
005542
005544
005552
005560

042777
032777
001410
042777
032777
001401

005562

, 04042

005564
005566
005572
005574
005576

005000
105777
100403
005200
001373

005600

'04043

TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED

; ; '" ...... *.*** '" "'***'" "''''** * "'** •• "' •• *. 01< "'''''''* ** .. '" "'''''''''' >I< * * "'"'* '" *"'. lit,. *'

TST,6:
002336
000'00

173326

1$:

174664

000200
000200

'74652
'14644

000200
000200

,74634
'74626

'746'4

2$:

3$:
CONT:

SCOPE
TST
BEQ
BIT
8NE
RESET
TSTB
BMI

004Q

"'*. * .... * * .... "' ••••••• *'" "'***.01< .. "' .... '" '" '" * * .. *.",Jj;l4<.,.. $11'1«$:",."-

NBIT1,RO
NBIT4,I'SWR
'$
LKS ,$GDADR
2$
RCSR, $GDADR
$GDADR, $BDADR
RO,$BDADR
$GDADR, $BDADR
3$
RO, $BDADR
@$BOADR,$GDDAT
# BI T6,@>$BDADR
# BIT6 ,@$GDADR
6$
$GDOAT ,1l'$BDADR
5$
(SP)+, (SP)+
RO
RO
2$
7$

4$:
:3$:

000004
000006

>1< . . . . . . . . .

.*. '" ..

SCOPE
MOV
MOV
MOV
MDV
RESET
MOV
BIT
BEa
MOV
BR
MOV
MOV
BIC
CMP
BNE
BIS
MOV
BI S
BIT
BNE
MOV
BR
CMP
ASL
TSTB
BPL
BR

001022

001022
173402
000100
000100

seQ

PAGE 40
:44
TEST THAT BIT6 OF LKS CAN BE SET & RESET
T'4

CTSTFL
TST'7
NBIT6 ,~SWR
TST17
O!>LKS
2$

;
;
;
;
;
;
;

"'*. *11<"'*

IS CONSOLE UNDER TEST?
I F NOT, SKIP THIS TEST
ARE LINE CLOCK TESTS INHIBITED?
I F YES, SKIP THIS TEST
CLEAR EVERYTHING & SET BIT7 OF lKS
TEST FOR BIT7 OF LKS
BR IF SET

ERROR

41

; BIT7 OF LKS DID NOT SET WITH RESET

BIC
BIT
8EQ
BIC
BIT
BEQ

HBIT7,t'LKS
NBIT7,@LKS
3$
HBIT1,@lLKS
NBIT? ,Gi'LKS
3$

jCLEAR BIT7 OF LKS
; TEST BIT7 OF LKS

; TRY ONE MORE TIME BECAUSE THE CLOCK
MAY HAVE SET IMMEDIATELY AFTER THE fIRST CLEAR

ERROR

42

;CAN NOT CLEAR BIT7 OF lKS

CLR
TSTB
BMI
INC
BNE

RO
@LKS
TST11
RO
CONT

;CLEAR TIMER
; TEST FOR BIT? OF LKS
;BR, IF SET
; INCREMENT TIMER
; CONTINUE UNTI L TIME EX?! RES

ERROR

43

; BIT? OF LKS DOES NOT SET

19-APR-78
.MAIN.
MACY11 30A (1052)
19-APR-78 11 :41
CZDLDC. P11
17B5
17B6
1787
1788
17B9
1790
1791
'792
1793
1794
1795
1796
1797
1798
1799

; ;.Jto >I< *" *** '" '" >It"'** '" ** ** .. '" '" "'II<'"

005602
005604
005610
005612
005620
005622
005626
005630
005634

005640
005646
005654
005662
005670
005674
005676

000004
005737
001503
032777
001077
004737
000340

017703
017704
012777

005700

012777
042777
052777
105777
100375
000240
000402

lB07
1808
1809

005702
005704

022626
104044

1e10
1811
1812

005706
005712
005720
005724

005077
012777

1800
, 801
1802

1 B03
1804
lB05

11: 44 PAGE 42
TEST THAT BIT? OF LKS SETS & CAN BE CLEARED
T16

TST17 :
002336
000100

173220

012242
174554
174552
005702

000340
000200
000100
174512

174542
174536
174524
174516

1$:

SCOPE
TST
BEQ
BIT
BNE
JSR

MOV
MOV
MOV
MOV
BIC
BIS
TSTB
BPL
NOP
BR

1806

1813
1814
1815

1816
1 al 7

005726
005732

005734
005736

004737
000240
105777
100375
000240

174474
005740
012242

005740

022626

1820

005742

104045

005744
005752

012777
042777

006000
000200

005760
005766
005772

052777

000100
174414

1821
1822
1823
1824

, 825
1826
1827

, 828
1829
1830
1831
1832
1833
1834
lB35
1 B36

005774

105777
100375
000240

005776

104046

006000
006002
006010
006014

022626

042777
010377
010477

174436
174426
174420

1862
1863
1864
1 B65
1866
1857
1868
1 B69
1870
lB71
1872
1973
lB74
1875
lB76

;GIVE TIrt.E FOR ANY INTERRUPTS
; BR, IF NO INTERRUPT OCCURS
;RESTORE SP AFTER INTERRUPT
;RTC INTERRUPTS AT PRIORITY

CLR
MOV
JSR

20$:

T5T8
BPL
NOP
BR

@LKS
;DISABLE RTC INTERRUPTS & CLEAR OONE
;SET RTC INTERRUPT VECTOR FOR ERROR
H4$ ,@RTCVT
:CHANGE PSw TO PRIORITY 5
PC,WRPSW
.WORD
240
@lLKS
;WAIT FOR DONE ( INTERRUPT REQUEST)

5$

;GIVE TIME FOR ANY INTERRUPT
; I F NO INTERRUPT - BR TO CONTINUE TEST

CMP
ERROR

(SP)+, (SP)+
45

;RESTORE SP AFTER INTERRUPT
; RTC INTERRUPTS WITH INTERRUPTS DISABLED

5$:

MOV
BIC
BIS
TSTB
BPL
NOP

#7$ ,@RTCVT
HBIT7,@LKS
HBlT6,@LKS
It", ** '" "'''''''''' '" '" "''''''' ****** ********
TST20:
SCOPE
",II< '" '"

006020
006022
006026
006030
006036
006040
006042

006046

000004
005737
001457

032777
001053
000005
017703
017704
012777
012777

006052
006060
006066
006072
006074

004737

006102

052777

006110

105777
100375

TsT
BEQ
BIT
BNE
RESET
MOV
MOV
MOV
MOV
JSR

002336
000100

173002

174342
174340

006122

174330

000340

,74324

012242

000240

174304

CTSTFL
TST21
NBlT6,@SWR
TST21
@RTCVT ,R3
@RTCPSW,R4
H2$ ,@RTCVT
H340,@RTCPSW
PC,WRPsW
• WORO
240
HBIT7,@LKS
HBIT6,RTCVT
R4,II'RTCPSW

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

104050

-$

20$

4$:

174376

1837
1838
1839
'840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1 B51
lB52
1 B53
lB54
lB55
lB56
1857
lB58
1859
1860
1861

3$

3$:

6$:

.MAIN.
MACY1130A(1052)
19-APR-7B
CZDLDC.Pl1
19-APR-7B 11:41

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

(SP)+, (SP)+
44

7$:
000100
174374
174372

* . . ** '* '" ** '" '" *** *** ."' ..... *'

CMP
ERROR

000402

181 B
1619

PC. WRPSW

.WORD
340
@RTCVT ,R3
@RTCPSW,R4
H2$,@RTCVT
H340,@RTCP5W
HBlT7,i'LKS
NBlT6,@LKS
i'LKS
1$

II< >I<

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

2$:

174470

174454

"'*"'* •• "' ..... *"'* '" '"

CTSTFL
TST20
H8IT6,@SWR
TST20

SEQ 0042

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

SEQ 0043

.MAIN.
MACY"30A(1052)
19-APR-78
CZDLDC.Pl1
19-APR-1811:41
1877
'878
'879
1880
, 881
1882
1883
1884
1885
1886
'887
'888

'889
1890
1891

'892
1893
1894
'895
1896

, 897
'898
1899

'$-

1900
'901
'902
'903
1904
1905

; ; >I<

'"

** '" ** ** '" '* "'* >\<

;'TEST 21
TST21:

000004

006166
006'70
006'74
006176
006204
006206
006212
006214
006220
006226
006234
006242
006246
006250
006252
006256
006260
006262
006270

000005
004737
000240
000240
042777
000402

006272
006274

022626
104051

006276

010377

005737

002336

001442

032777

000100

001036
004737

012242

000340
017703
012777
042777
052777
105777

174170
006272
000200
000100
174140

8NE
JSR

174162
174'52
174144

1$:

012242

000'00

000004
005737
001447
032777
001043
004737
000340
017703
012777
042777
052777
'05777
100375
042777
004737
000240
000240
042777
000402

0064' :I
006414

0:12626
104052

0064 I 6
0064:1:1
006426

010377
004737
000340

SCOPE
TST
8EQ

81T

172634

100375

006302
006304
006310
006312
006320
006322
006326
006330
006334
006342
006350
006356
00636:1
006364
006372
006376
006400
00640:1
006410

oj; '" "' ..

174116

2$:

3$:

174'06

11 :44
T2'

MOV
MOV
BIC
BIS
TSTB
BPL
RESET
JSR

SEQ 0044

** ** '" *"'* ****,;, >I< "' .. '* ** '" '" "' ... * . . "',. '" >1<'" ** "'* "'* •• **.'1,,1•• 'i''''

TEST THAT RTC INTERRUPT CLEARS WITH RESET

; ; '" ** "'*.* ** **>1<***

MACY1 , 30A (1052)
19-APR-78
.MAIN.
19-APR-78 11: 41
CZDLDC. P11
'906
1907
190B
1 909
'910
1911
'912
1913
,9'4
, 915
1916
1917
1918
, 919
1920
, 92,
1922
1923
1924
1925
1926
1927
' 928
1929
1930
193,
1932
1933
1934
1935
'936
1937

11:44 PAGE 44
T20
TEST RTC FOR DOUBLE INTEURUPTS

oj< >I<

"'* ** ** **** 'II"' .. " '" ***** '" **., ** .. '" '" ** ** **"'* "'*"'. "'''''''.

CTsnL
TST22
IIBITS .@lSWR
TST22
PC,WRPSW
340
• WORD
@lRTCVT ,R3
#2$ ,@RTCVT
H B1T7. I<

; IS CONSOLE UNDER TEST?
; I F NOT. SKIP THIS TEST
;ARE LINE CLOCK TESTS INHIBITED?
; IF YES. SKIP THIS TEST
;SET PRIORITY TO 7
; SAVE LINE CLOCK VECTOR
; POINT RTC VECTOR TO ERROR REPORT
;CLEAR CLOCK DONE FLAG
; ENABLE CLOCK INTERRUPTS
;WAIT FOR DONE (INTERRUPT REQUEST)
;CLEAR PENDING INTERRUPT WITH RESET
;SET PRIORITY TO 5

NOP
BIC
BR

3$

CMP
ERROR

51

;RESTORE SP AFTER INTERRUPT
;RESET DID NOT CLEAR INTERRUPT

MOV

R3,Ii'RTCVT

; RESTORE LINE CLOCK VECTOR

IIBIT6,@LKS
(SP)+,(SP)+

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

PAGE 45
TEST THAT RTC INTERRUPT CLEARS WITH RESET

; ; '" ** "'*. '" '" '" *'" ** "' TEST
.. II< "'''' '" THAT
'" *'" '" *'" **** "' .. * "'''' "''''* '" '" '" '" '" '" *'" '" "'''' •• *"'*"'* ** "'*"'* "'*
; .TEST :12
RTC INTERRUPT CLEARS BY CLEARING BIT7 OF
;TST22:
; '" '" * '" "'* SCOPE
'" ** '" *"'* **.'" ** "'* '" "'** ** "''''''' *** '" **'" '" '" "''''''' '" '" '" '" '" ***'" '" "'.* ** .... "'*.
TST
BEQ
BIT
BNE
JSR

002336
000100

172520

0,224:1

174054
00641 :I
000200
000100
, 74024

174046
174036
174030
1$:

000200
012:14:1

174014

000100

173776

2$:

'73766
012:142

3$:

MOV
MOV
BIC
BIS
TSTB
BPL
BIC
JSR

CTSTFL
TST23
'BIT6.@SWR
TST23
PC. WRPSW
.WORD
340
4- '" * ** '" *** .. * '" '* ** .. * '" *** >II"''''''' ** *$*****$
:*TEST 23

006430
006432
006436
006440
006446
006450

000004
005737
001462
032777
001056
042777

006456
006460
006464
006466
006472
006476
006500
006504
006510
006512
0065 I 4
006520
006522
006524
006526
006530
006534
006536
006542
C06544

005000
012701
005002
005077
105777
100375
005077
105777
100003
005202
0050?7
005200
001370
005201
001003
010237
000753

006546
006550
006554
006556
006562

01370t

160201
100001
005401
020127
003403
010237

TST23:

00656-'+

032777
001404

006600
006602

000000

000137

SCOPE
TST
BEQ
BIT
BNE
BIC

000100

172372

000100

173730

173702
173676

173666

006600
006600

000001

006602

000020

172246

012102
FIRST:
SECNO;

000000

oj< "' ...

****** **.****>11

RO
#-I,R1
R2
I'LKS
t'LKS
2$
Il'LKS
@LKS
4$
R2
t'LKS
RO
3$
Rl
CMPARE
R2,FIRST
1$
FIRST,Rl
R2, Rl
TOLER
Rl
Rl.Hl
5$

: CLEAR A TIMER
:SET A FLAG INDICATING FIRST PASS THRU THIS LOOP
: CLEAR C LOCK COUNTER
: C LEAR DONE
i SYNC ON DONE

: BR IF NOT
TO INCREMENT TIMER
: IF DONE. INCREMENT CLOCK COUNT
: CLEAR DCNE
: INCREMENT TIMER
:BR IF TIME REMAINS
: INCREME,;T LOOP PASS FLAG
; BR IF TVJO PASSES HAVE BEEN MADE
; IF NOT. STORE FIRST CLOCK COUNT
; DO LOOP AGAIN
: RECALL FIRST CLOCK COUNT
:CALCULATE DIFFERENCE OF HJO COUNTS
:IF POSITIVE,SKIP NEGATION OF DIFFERENCE
:MAKE DI FFERENCE A POSITIVE NUMBER
: COMPARE 01 FFERENCE WITH DESIRED TOLERANCE
; BR, IF LOViER/EQUAL TO TOLERANCE

MOV
ERROR

R2,SECND
53

i STORE SECOND COUNT
:CLOCK REPEATABILITY ERROR

BIT
BEQ
JMP

IIBIT4,tlIl5WR

TST24
$EOP

:CLOCK TESTS ONLY?
; BR I F NOT
: ELSE, JUMP TO ENO OF PASS ROUTINE

1$:

173714
173710

*** "' ... ~ >I<

: IS CONSOLE UNDER TEST?
:IF NOT, SKIP THIS TeST
:ARE LINE CLOCK TESTS INHIBITED?
:IF YES. SKIP THIS TEST
:DISALLOW INTERRUPTS

CLR
MOV
C LR
CLR
2$:
TSTB
BPL
CLR
3$:
TSTB
BPL
INC
CLR
4$:
INC
8NE
INC
BNE
MOV
BR
CMPARE: MOV
SUB
BPL
NEG
TOLER:
CMP
BLE

177777

>I< '"

CTSTFL
TST24
#BIT6.Ii>SWR
TST24
NBIT6.I'LKS

002336

104053

006572
006574

TEST CLOCK REPEATABILITY

; ; ..... "' •• "'* .......... **** •• *.**** ."'*** "'. "' ... ojoi<

.MAIN.
MACYl1 30A(1052)
19-APR-78
CZDLDC. Pl1
19-APR-78 11:41
1983
'984
1985
1986
, 987
1 9S8

11: 44
PAGE 46
T22
TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT' OF LKS

i CLEAR DONE
;15 CLOCK DONE?

.wORD
• WORD

SEQ 0047

11:44 PAGE 47
T23
TEST CLOCK REPEATABILITY

. . ** **'" ***,.. "''''''''''. '" ** ** .... *"'*'" *"'''' '" '" "'** ... *"'* '" '" '" "' .. '" ** ",:I< "'* ****** .. ,., "''''*''' "'*

;;TEST 24

TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED

; ; '" **** *** ... "''''*''' "'''''''''' ** '" ",,,,"''''>II ****** ******* ....... >1< .. "'''' '" '" ** *** '*'** ****** *'"

000004

006604
006606
006614
006620
006626
006632
006634
006640
006642

042777
017703
012771
105777
100375
004737
000140
000402

006644
006646

022626
104054

006650
006656
006664

012777
052777
000240

006666

104055

006670
006676
006700

TST24:

042777
022626
010377

000 I 00
173542
006644
173520

173536

HBIT6,@TCSR

; CLEAR TRANSMIT INTERRUPT ENABLE
: SAVE XMI T VECTOR
: POINT xMIT VECTOR TO ERROR REPORT

BR

I!'TVECT ,R3
#2$,@>TVECT
@TCSR
1$
PC,WRPSW
140
.WORO
3$

2$:

CMP
ERROR

(SP)+, (SP)+
54

MOV
BIS
NOP

• BIT6, t'TCSR

: XMIT INTERRUPTS "lTH INTERRUPT ENABLE CLEAR
: SET XMIT VECTOR TO END OF TEST
: ENABLE INTERRUPTS

ERROR

55

;XMIT DID NOT INTERRUPT

BIC
CMP
MOV

#BIT6,@TCSR

173534

1$:

012242

006670
000100

173504
173466

3$:

000100

173454

4$:

173456

SCOPE
BIC
MOV
MOV
TSTB
BPL
J5R

#4$ ,@TVECT

(SP)+. (SP)+
R3,I'TVECT

:WAIT FOR DONE
:SET PS,J TO PRIORITY 3

: RESTORE SP AFTER INTERRUPT

DISABLE INTERRUPTS
RESTORE SP AFTER INTERRUPT
RESTORE XMIT VECTOR

·r,MIN.
19-APR-78
MACY11 30A ( 1 052)
CZDLDC.P11
19-APR-7B 11:41

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

SEQ 004U

2011

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

i ; $. * '" ** "' .. * * *'" .*** ** "'''' *'" ** ****. ri<* * ri< '" ** •• '" '" ** "'* '" * *'" "'* *****'" ** 1/1"'** "'.
TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED

; .TEST 25

006704
006706
006714
006720
006722
006726
006734
006740
006742
006750
006752

000004
042777
004737
000340
017703
012777
105777
100375
052777
000240
000402

006754
006756

022626
104056

006760
006766
006774
007000
007002
007004

042777
012777
004737
000140
000240
000402

007006
007010

022626
104057

007012

010377

; : '" '" "''''''' .. ** '" *"'***'" ** "'*.'" >I: '" * *"'* ***,.. '" '" "'*"''''* >I< "'*"'* *'" * '" *'" "'*****"'* 110*****

TST25:
000100
012242
173434
006754
173412

173426

000100

173402

2056
2057

MOV
MOV
TSTB
BPL
BIS
NOP
SR

1$:

2$:

000100
007006
012242

173364
173366

CMP
ERROR

3$:

BIC
MOV
uSR

4S:

5$:

173344

.MAlN.
MACV11 30A(1052)
19-APR-78
CZDLDC.Pl1
19-APR-78 11 :41
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055

SCOPE
BIC
JSR

173436

#BIT6,@TCSR
PC,WRPSW
.WORD
340
@TVECT,R3
#2$ ,@TVECT
@lTCSR
1$

;SAVE XMIT VECTOR
; POINT XMI T VECTOR TO ERROR REPORT
; WAIT FOR DONE

HBIT6,etTCSR

; ENABLE INTERRUPT

3$

;CONTINUE TEST

(SP)+, (5P)+
56
• BIT6, MCSR
#4$ ,@TVECT
PC ,WRPSW
,WORD
140

NOP
SR

5$

CMP
ERROR

(SP)+, (SP)+
57

MOV

;DISABLE INTERRUPTS
; SET PSW TO PRIORITY 7

R3,ClTVECT

; RESTORE SP AFTER INTERRUPT
;XMIT INTERRUPTS AT PRIORITY·7
:CLEAR INTERRUPT ENABLE
; POINT XMI T VECTOR TO ERROR REPORT
; SET PSW TO PRIORITV 3

;BR TO END OF TEST-NO INTERRUPT
; RESTORE SP AFTER INTERRUPT
;XMIT INTERRUPT OCCURES
; RESTORE XMIT VECTOR

WITH

BITS CLEAR

11:44 PAGE 49
T25
TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED

; ; ** '" ** ** ** •••• '" ** . . ** * ... "'''' '" ** **** ........ * *"' ...... ** "'* >I< '" ** ** ** ... * '" *** .... * ••
;-TEST 26

007016
007020
007026
007032

007036
007044
007052
007056

007060
007064
007066
007074

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

; j '"

000100
173330
173326
007100
000340
012242

173324

173316
173312

1$:

173266
000100

TEST TRANSMITTER FOR DOUBLE INTERRUPTS

** '" ** "' ... ** *"'* "'*'" "'*** ",,,,,,,,,,>It "'* "'' ' '" '" *'" **** ** "' ... '" "' ... '" "' ... ** '" '" ** ****110**40 $$

TST26:

SCOPE
BIC
MOV
MOV
MOV
MOV
JSR

TSTB
BPL
815
NOP

173256

#BIT6,@lTCSR
@lTVECT ,R3
!>TPSW,R4
#2$,@lTVECT
#340,i'TPSW
PC,WRPSW
.WORD
140
@TCSR
1$

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

HBIT6,@lTCSR

; ENABLE INTERRUPTS

jWAIT FOR DONE

2058

2059
2060
2061
2062
2063
2064
2065
2066
2067
2069
2059
2070
2071
2072
2073
2074
2075

007076

104060

007100
007102
007110
007114
007116
007120
007126

022626
012777
004737
000140
000240
042777
000402

007130
007132

022626
104061

007134
007140

010377
010477

007144
007146
007154
007160
007162
007166
007174
007202

000004
042777
004737
000340
017703
012777
052777
005077
105777
100375
005077
004737
000 140
000240
042777
000402

2$:
007130
012242

173252

000100

173224

4$:

5$:

173222
173220

60
(SP)+, (SP);
#4$ ,@TVECT
PC I WRPSW
140
#BIT6,Ii'TCSR
5$

CMP
ERROR

(SP)+,(SP)+
61

MOV
MOV

R3,I'TVECT
R4,~TPSW

;XMIT INTERRUPT DID NOT OCCUR
;RESTORE SP AFTER INTERRUPT
; POINT XMIT VECTOR TO ERROR
;SET PSW TO PRIORITV 3
;GIVE TIME FOR ANY INTERRUPTS
; DISABLE INTERRUPTS
;BR TO END OF TEST
; RESTORE SP AFTER INTERRUPT
:XMIT RE-INTERRUPTED
;RESTORE XMIT VECTOR
; RESTORE XMIT PSW VECTOR

; ; ** "''''* ...... '" ******* **** '" "'* * ** **"'*'" '" ** ... '" ** ••• *** ** * '" "'* •• ** "' .. *** 0I<**"'l'

2076
2077
2078
2079
2080
20Bl
20B2
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2095

ERROR
CMP
MOV
JSR
,WORD
NOP
BIC
BR

;-TEST 27

007206
007212
007214
007220
007224
007226
007230
007236

007240
007242

022626
104062

; ; >I<

000100
012242
173174
007240
000100
173146
173140

173176

173166
173150
1$:

173134
012242

000100

17311':'

TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF

** "'** *** "''''iii",''''''''' "''''* *** *** ****** ** '" '" ** '" '" ** "'* '" '" ** ***"'**Ijo '" *,"'*"'**1/1$

TST27:

SCOPE
BIC
JSR

MOV
MOV
BIS
CLR
TSTa
BPL
CLR
JSR

# BIT6, i'TCSR
PC, WRPSW
,WORD
340
i'TVECT, R3
#2$ ,0lTVECT
IIBIT6,I1IITCSR
@lT8UF
@TCSR
1$
",TBUF
PC,WRPSW
.WORD
140

; DISABLE INTERRUPTS
;SET psw TO PRIORITV

7

; SAVE XMIT VECTOR
; POINT XMI T VECTOR TO ERROR
; ENABLE INTERRUPTS
; LOAD TBUF
; WAIT FOR DONE (INTERRUPT)
;FILL SECOND BUFFER TO RESET INT.
jALLOW INTERRUPTS

NOP
BIC
BR

#BIT6,@TCSR
3$

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

CMP
ERROR

(SP)+. (SP)+

; RESTORE SP AFTER INTERRUPT

62

SEQ 0049

.MAIN.
MACYll 30A(1052)
19-APR-78
CZDLDC.Pl1
19-APR-78 '1'41
2097
2098
2099

.MAIN.

007244

MACV11

eZDLDC. Pl1
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
212S
2126
2127
212B
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155

010377

11:44 PAGE 50
T27
TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF

3$:

173112

30A ( 1 OS2)
19-APR-78
19-APR-78 11:41

" :44

T27

MOV

>1< ... '"

; .TEST 30

007254
007262
007264
007270
007276
007300
007302
007304

000004
000005
052777
005000
005077
032777
001006
005200
001372
042777

007312

104063

007314
007316
007324

000005
032777
001401

007252

007326

104115

007330
007332
007340
007344
007346
007350
007356

005000
052777
062700
005200
001374
033777
001404

007360
007366

042777
104116

007370
007372
007376
007402
007404
007406
007410
007416

005000
005077
105777
100406
005200
001373
042777
104064

007420
007426
007430
007436

032777
001404
042777
104065

007440
007442
007446

000005
105777
001404

007450
007456

042777
104066

; LOADING TBUF DID NOT CLEAR INTERRUPT.
; RESTORE XMIT VECTOR

PAGE 51
TEST THAT XMIT INTERRUPT CLEARS ,11TH LOADING TBUF

;;'" *. '"
007250

R3,!'TVECT

* '" *. ** ****** '" '" ****** "''''''' '" '" '" ** ** "'' '>Ie *'" * .. '" ** ** ."'********** **

TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY

*"'**"''''. "'. ** *"'*"'*"'*** '" ** **** ** '" '" ** '" "'*'" *****.****."",,*.1\1

000004

173070

173064
004000

173050

000004

173040

i ; '" ** ... ** .. '" '" '"
TST30 :
SCOPE
RESET
BIS
CLR
CLR
WACTV:
BIT
BNE
INC
BNE
BIC

2$:
004000

173022

3$:
000004
000000

173012

004000

172770

000004

172764

wT:

4$:
172756
172744

WDONE:

000004

172734

004000

172720

000004

172714

RO
@TBUF
#BITll,@RCSR
2$
RO
WACTV
#8IT2,Il>TCSR

;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

63

;RCVR ACTIVE DID NOT SET WHILE RECEIVING

RESET
BIT
BEQ

#BITll,II'RCSR
3$

; VERI FY "INn" CLEARS RCV ACTIVE

;!NIT DID NOT CLEAR RCV ACTIVE

NBIT2,@TCSR

ERROR

115

CLR
BIS
ADD
INC
BNE
BIT
BEQ

RO
#BIT2,@TCSR
#0, RO
RO
WT
BIT11,@RCSR
4$

BIC
ERROR

#BIT2,@TCSR
116

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

CLR
CLR
TST8
8MI
INC
8NE
BIC
ERROR

RO
I'TBUF
I'RCSR
5$
RO
WDONE
# BlT2,@TC5.
64

; CLEAR TIMER
; LOAD TRANSMIT BUFFER
;CHECK FOR RECEIVER DONE
j BR. I F DONE
i INCREMENT TIMER. IF NOT DONE
iCONTINUE WAIT I F TIME REMAINS
;CLEAR MAINTENANCE BIT

BIT
BEQ
BIC
ERROR

HBlT11,Il>RCSR

; C LEAR A TIMER
;SET MAINTENANCE WRAP

;WAIT AT LEAS T ONE BIT TIME

;VERIFY RCV ACTIVE STILL CLEAR
; BR IF CLEAR

;RECEIVER DONE NEVER SET
5$:

6$
#BIT2,fHCSR
65

; CHECK FOR RCVR ACT IVE CLEAR
; 8R, IF ...:LEAR
;CLEAR MAINTENANCE BIT
; ReVR ACTIVE DID NOT CLEAR WITH RCVR DONE

6$:
172700

000004

172674

RESET
TSTB
BEQ
BIC
ERROR

!'RCSR

;CLEAR DONE WITH RESET
;CHECK FOR DONE CLEAR

7$
#BlT2,I'TCSR

66

SEQ 0050

;CLEAR MAINTENANCE BIT

SEQ 0051

.MAIN.
MACYl130A(1052)
19-APR-7B
ClOLDC.Pll
19-APR-7B 11:41
2156
2157
2158
2159

-:$:

SEQ 0052
SET & CLEAR PROPERLY

; RESET DID NOT CLEAR RCVR OONE
007460
007466

042777
000400

000004

172660

• MA IN.
MACY 11 30A ( 1052)
19-APR-78
CZDLDC.Pll
19-APR-7B 11:41
2160
2161
2162
2163
2164
2165
2166
2167
216B
2169
2170
2171
2172
2173
2174
2175
2176
2177
217B
2179
21BO
21Bl
2182
2183
2184
21B5
2166
21B7
218B
2189
2190
2191
2192
2193
2194
2195
2196
2197
219B
2199
2200

11:44 PAGE 52
T30
TEST THAT RCVR ACTIVE (11) & DONE (7)

7$:

BIC
BR

NBIT2,i'RCSR
TST31

11: 44
PAGE 53
T30
TEST THAT RCVR ACTIVE (It) & DONE (7) SET & CLEAR PROPERLY

; ; .. **** ** ************ "''''*
;*TEST 31

007470
007472
007474
007502
007510
007514
007520
007522
007530

000004
000005
052777
052777
005077
105777
100375
032777

; ; *** *** ... ****** '"

TST31 :
000001
000004
172640
172626

172644
172642

000001

172616

000001
172600

172604

000004

172574

1$:

001401

007532

104117

007534
007542
007546
007550
007556

052777
105777
001404
042777
104067

; CLEAR MAINTENANCE BIT
; BR TO NEXT TEST

2$:

SCOPE
RESET
BIS
BIS
CLR
TSTB
BPL
BIT
BEQ

.*.

.*.

**** "' ............ *** ... *** *"'''' . . ",,,,,,,>II "'.*."'* **"'''''''**.

TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG

**** ****** •• ** "''''* *"'''',., "'* '" ** **** ** ••• "'*"' ••••••••

• BlTO,@RCSR
#BIT2,@TCSR
i'TBUF
@RCSR
1$
# BITO,@RCSR
2$

;CLEAR EVERYTHING
; SET RDR ENABLE
;SET MAINTENANCE WRAP
;LOAD TRANSMITTER
; WAIT FOR RECEIVER DONE
; VERI FY RCV ACTIVE CLEARED RDR ENABLE
;BR IF CLEAR

ERROR

117

;RDR ENABLE NOT CLEARED WITH RCV ACTIVE

BIS
TSTB
BEQ
BIC
ERROR

#BITO,@RCSR
@RCSR
TST32
#BIT2,I'TCSR
67

;CLEAR DONE BY SETTING RDR ENABLE
;CHECK FOR DONE CLEAR
; BR, IF CLEAR TO NEXT TEST
; CLEAR MAINTENANCE BIT
; SETTING RDR ENABLE DID NOT CLEAR RCVR DONE

*

****"'."'.

; i '" ******* '" "'''' * "'''' **** "''''II<''' *****'" '" >I; "' ... *** '" '" '" **** ** '" *** ** ****
; -TEST 32
TEST THAT READING RBUF CLEARS RECEIVER DONE
007560
007562
007564
007572
007576
007602
007604
007610
007616
007622
007624

000004
000005
052777
005077
105777
100375
017700
042777
105777
001401
104070

; ;."'*** .. *** '" ."'**** ********'" *****,., '" '" **** '" '" *** *** '" "''''>Ie ****"'. ***."' •••

TST32 :
000004
172556
172544
172540
000004
172524

172560
1$:

172534

SCOPE
RESET
SIS
CLR
TSTB
BPL
MOV
BIC
TSTS
BEQ
ERROR

#BIT2.@TCSR
@TBUF
@RCSR
1$
@RBUF,RO
#BIT2,I'TCSR
@RCSR
TST33
70

; CLEAR EVERYTH ING
;SET MAINTENANCE WRAP
; LOAD TRANSMITTER
;WAIT FOR RECEIVER DONE
;READ RECEIVE BUFFER
; CLEAR MAINTENANCE BIT
;CHECK FOR RECEIVE DONE CLEAR
;SR, IF CLEAR TO NEXT TEST
; READING RBUF DID NOT CLEAR RCVR DONE

SEQ 0053

19-APR-78
MACYll 30A( 1052)
·MAIN.
19-APR-78 11 :41
CZDLDC. Pll
2201
2202
2203
2204
2205
2206
2207
220B
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235

SEQ 0054

; ;'" "'* *** .* ............................ "' ..... **** •• *** of< ** ** *. **.* ."' •• ,. •• "''''.''''''
; *TEST 33

TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED

; ; •••• "'" .. ** •••••• ** .. * '" •• * 01<* . . . . . . '" ******.<40 '" *** '" '" *. ** "' •• *** ..... * ••••

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

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

007714
007722
007724

TST33:
000100
000100
000004
172500
007714
012242

SCOPE
BIC
BIC
BIS
MOV
MOV
uSR

172514
172502
172500
172472

172456
172444

1$:

NBIT6.@TCSR
HBIT6.@lRCSR
HBIT2,@TCSR

CLR
TSTB
BPL
BIC
BR

@lRVECT ,R3
#2$,II>RVECT
PC,WRPSW
.WORD
140
t'TBUF
t'RCSR
1$
HBIT2,@TCSR
3$

; 0 I SABLE TRANSMI T INTERRUPTS
;DISABLE RECEIVER INTERRUPTS
; SET MAINTENANCE WRAP
;SAVE RECEIVE VECTOR
; PO I NT RCV VECTOR TO ERROR REPORT
;SET PSW TO PRIORITY 3
;SEND A CHARACTER
;WAIT FOR RECEIVER DONE

000004

172440

042777
022626
104071

000004

172430

2$:

BIC
CMP
ERROR

HBIT2,IHCSR
(SP)+, (SP)+
71

;CLEAR MAINTENANCE BIT
; RESTORE SP AFTER INTERRUPT

001726
007734
007742
007744
007752

012777
052777
000240
042777
104072

007754
000100

172422
172404

3$:

H4$,t>RVECT
NBIT6,t>RCSR

000004

172400

MOV
BIS
NOP
BIC
ERROR

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

;CLEAR MAINTENANCE BIT
; CONTINUE TEST

007754
007762
007770
007772

042777
042777
022626
010377

000100
000004

172364

BIC
BIC
CMP
MOV

HBIT6,t'RCSR
HBIT2,@TCSR
(SP)+, (SP)+
R3,tI>RVECT

; RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR

HBIT2,IIlTCSR
72

;RCVR DID NOT INTERRUPT
4$:

17236~

172360

.MAIN.
MACY11 30A(1052)
19-APR-78
CWLDC.P11
19-APR-78 11 :41
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
225B
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271

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

DISABLE INTERRUPTS
CLEAR MAINTENANCE BIT
RESTORE SP AFTER INTERRUPT
RESTORE RECEIVE VECTOR

11:44 PAGE 55
T33
TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED

; ; "' .... ** .** ... "'''' ••• ** ••• *** ***!fI. "'* .... "'>II"'''''''. "'''''''* ** ****** >11 • • • "'* .*."''''''' ••

;*TEST 34

007776
010000
010002
010006
010010
010014
010022
010030
010034
010040
010042
010050
010052
010054
010062
010064

000004
000005
004737
000340
017703
012777
052777
005077
105777
100375
052777
000240
000405
042777
022626
104073

010066
010074
010102
010106
01011 0
010112
010120

TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED

; ; ***"'.* •••• *"'."'''''''.'''.''' ***** •• *** ** '" ***'" ****** ** "'II< ******** *.*.**"'*

TST34:
012242
172342
010054
000004
172320
172306
000100

172334
172322

IS:
172276

000004

172270

2$:

042777
012777
004737
000140
000240
042777
000405

000100
010122
012242

172252
172254

3$:

000004

172232

010122
010130
010132

042777
022626
104074

000004

172222

010134

010377

172216

SCOPE
RESET
uSR

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

PC ,WRPSW
• WORD
340
@RVECT ,R3
H2$ ,@RVECT
#BIT2,!'TCSR
lilTBUF
t'RCSR
1$
HBIT6, !ilRCSR
3$
HBIT2,t'TCSR
(SP)+, (SP)+
73

;CLEAR EVERYTHING
;SET psw TO PRIORITY 7

j5AVE RECEIVE VECTOR
; POINT RCVR VECTOR TO ERROR REPORT
;SET MAINTENANCE WRAP
;SEND A CHARACTER
;WAIT FOR RECEIVER DONE
; ENA8LE INTERRUPTS
;GIVE TIME FOR INTERRUPT

;CONTINUE TEST
; CLEAR MAINTENANCE BIT
; RESTORE SP AFTER INTERRUPT
; RCVR INTERRUPTS AT PRIORITY 7

BIC
MOV
uSR

#BIT6,@RCSR
H4$ ,@RVECT
PC I WRPSW
.WORD
140

NOP
BIC
BR

NBIT2,"'TCSR
5$

4$:

BIC
CMP
ERROR

#BIT2,I'TCSR
(SP) .. , (SP)+
74

5$:

MOV

R3,IIRVECT

;CLEAR INTERRUPT ENABLE
; POINT RCVR VECTOR TO ERROR REPORT
;SET PS~ TO PRIORITY 3
;GIVE TIME FOR ANY INTERRUPT
;CLEAR MAINTENANCE BIT
; BR TO ENO OF TEST, I F NO INTERRUPT
; CLEAR MAINTENANCE BIT
; RESTORE SP AFTER INTERRUPT
; RCVR INTERRUPT REQUEST PASSED WITH BITB CLEAR
; RESTORE RECE IVE VECTOR

SEQ 0055

.MAIN.
MACVll 30A (1052)
19-APR-78
CZDLDC. Pll
19-APR-7B 11:41
2272
2273
2274
2275
2276
2277
227B
2279
2280
2281

2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
230B
2309

2321

.;%.

2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
233B

SEC) 0056

i ; ...................................................... "' ................
TEST RECEIVER FOR DOUBLE INTERRUPTS
: -TEST 35

; ; ••••••••••• ,.. ••••••••••••••••••••• "' ................... "' ........ * ••••
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

010234

104075

010236
010240
010246
010252
010254
010256
010264
010270
010274

022626
012777
004737
000140
000240
042777
010377
010477
000402

010275
010300

022626
104076

TSt3S:
172206
172204
010236
000340
012242

SCOPE
RESET
MOV
MOV
MOV
MOV
.)SR

172174
172170

000004
172144
172132

172146

000004
000100

172126
172114

BIS
CLR
TSTB
BPL
BIC
BIS
NOP

1$:

IlRVECT, R3
"RPSW, R4
N2$ ,RVECT
N340,@lRP5W
PC,WRPSW
.WORD
140
NBIT2,@TCSR
IlTBUF
"RCSR
1$
NBIT2,"TCSR
NBIT6,"RCSR

ERROR

75

CMP
MOV
.)SR
.WORD
NOP
BIC
MOV
MOV
BR

(SP)+, (SP)+
H3$ ,RVECT
PC,WRPSW
#140
HBIT6,I'RCSR
R3,I'RVECT
R4,(IIRPSW
4$

CMP
ERROR

(SP)+, (SP)+
76

: CLEAR EVERYTH ING
: SAVE RECEIVE VECTOR
: SAVE RECEIVE PSW VECTOR
: POINT RCV VECTOR TO CONTINUE TEST
:SET PRIORITY TO 7 AFTER INTERRUPT
:SET PSW TO PRIORITY 3
:SET MAINTENANCE WRAP
: SEND A CHARACTER
: WA I T FOR RCVR DONE
:CLEAR MAINTENANCE BIT
: ENABLE RCV INTERRUPTS
:GIVE SOME TIME

;RCVR INTERRUPT DID NOT OCCUR

010302

010377

2$:
010276
012242

172110

000100
172066
172064

172062

3$:

4$:

172050

.MAIN.
MACYll 30A( 1052)
19-APR-78
19-APR-7B 11 :41
CZDLDC. Pll
2310
2311
2312
2313
2314
2315
2316
2317
231 B
2319
2320

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

MOV

R3,ClRVECT

: RESTORE SP AFTER INTERRUPT
: POINT RCV VECTOR TO ERROR REPORT
: RESET PSW TO PRIORITY 3
: GIVE SOME TIME
:CLEAR INTERRUPT ENABLE
:RESTORE RECEIVE VECTOR
:RESTORE RECEIvE PSW VECTOR
: BR TO END OF TEST
: RESTORE SP AFTER INTERRUPT
: RECEIVER RE-INTERRUPTED
: RESTORE RECEIVE VECTOR

11 :44 PAGE 57
T35
TEST RECEIVER FOR DOUBLE INTERRUPTS

; ; •••••••• '" •••••••• ** •• ******* •••• *.* ... '" "'*. '" ** .. *** *'" ** **** "'* *"'.'" "'>II

i·······"'''' ... '''·'''.· .. ****** ••• * ••• ,., .*.*. '"

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

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

010412
010414

022626
104077

010416

010377

i
TST36:
012242
172032
010412
000100
000004
172002
171770

172024
17200&
172004
1$:

000004
171756
012242

171764

000100

171736

171734

SCOPE
RESET
')SR

MOV
MOV
BIS
BIS
CLR
TSTB
BPL
BIC
CLR
.)SR

TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF

PC, WRPSW
.WORD
340
I'RVECT ,R3
H2$,@RVECT
HBIT6,I'RCSR
HBIT2, TCSR
It'TBUF
IIIRCSR
1$
NBIT2,I'TCSR
I'RBUF
PC,WRPSW
.WORD
140

** *. *'" '" '" "'* ** ***. "'.*"' •• "'.

:CLEAR EVERYTHING
: SET PSW PRIORITY TO
:SAVE RECEIVE VECTOR
: POINT RCV VECTOR TO ERROR REPORT
: SET RCVR INTERRUPT ENABLE
:SET MAINTENANCE WRAP
: SEND A CHARACTER
:WAIT FOR DONE (INTERRUPT)
: CLEAR MAINTENANCE BIT
: READ RBUF TO CLEAR PENDING INTERRPUT
:SET PSW TO PRIORITY 3

NOP
BIC
BR

HBIT6,CORCSR
3$

2$:

CMP
ERROR

(SP)+, (SP)+
77

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

3$:

MOV

R3,lORVECT

: RESTORE RECEIVE VECTOR

:ALLOW TIME FOR ANY ERRONEOUS INTERRUPT
:NO INTERRUPT-CLEAR INT. ENABLE

SEQ 0057

.MAIN.
MACYl1 30A(1052)
19-APR-78
ClOLOC.P11
19-APR-7811:41
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
235B
2359
2360
2361
2362
2363
2364
2365
2366

; ; '" '" '" >to"'

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
000'40
000240
042777
000402

010520
010522

022626
104100

010524

010377

012242
171716
010520
000100
000004
000377
171652

171710
171672
171670
171664

012242

000100

171630

171626

*** '" '" *"' ••• "'**** '" • *.* >Ie • • • '" ** "',., ... ** '" '" '" '" '" '" >I< '" '" >I< ** • "''''''' "'. * "'''''''* •• ' '

** "'.

"'*'" "'.* *.*."' ...... "'''' •••••

2$:

CMP
ERROR

(SP)+. (SP)+
100

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

3S:

MOV

R3.PRVECT

; RESTORE RECEIVE VECTOR

11:44 PAGE 59
T37
TEST THAT RESET CLEARS RECEIVE INTERRUPT

; ; .......... "' . . *** **"'**"'** **"'**'" ***** '" **** ** *** * ** . . ** *** *,,*"',,* **"'*** >II",

; "TEST 40
010530
010532
010540
010542
010544
010552
010556
010562
010566
010570
010572
010574
010602
010610
010612

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

010614
010622
010624

032777
001001
104102

TEST THAT THE "OR" ERROR (B1T14 ) & "ERROR" (BITI5) CAN BE SET

; ; * *'" "' . . ***
** "'** *** . . "'* ** "'***"'''''''*'''* ** "'*** . . '" "'*** **** **** *****"'******
TST 40:
SCOPE
002000

170300

000004
000003
171572
171564

171600

000004
040000

171550
171540

'00000

171526

1$:
2$:

BI T
BEQ
RESET
BI S
MOV
CLR
TSTB
BPL
DEC
BNE
BIC
BIT
BNE
ERROR

NBITI 0 .I!'SWR
TST41

; IS THIS TEST ENABLED
; IF NOT ENABLED. BR TO NEXT TEST
;CLEAR EVERYTHING

NBIT2.@TCSR
N3. RO
@TBUF
I'TCSR
2$
RO
1$
NBIT2.I'TCSR
NBITI4.PRBUF
3$
101

;SET MAINTENANCE WRAP
; SET CHARACTER COUNT TO SEND 3 CHAR.
; LOAD TRANSMI T BUFFER
;WAIT FOR TRANSMI TOONE
; DECREMENT CHARACTER COUNT
;BR IF ALL CHARACTERS NOT TRANSMITTED
; CLEAR MAINTENANCE BIT
;TEST FOR "OR" ERROR FLAG
; BR. IF SET
;"OR" ERROR FLAG DID NOT SET

3$:

BIT
BNE
ERROR

IIBIT15f~RBUF

4$
102

; TEST " ERROR"
;BR. IF SET

FLAG

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

SEQ 0058

; .TEST 37
TEST THAT RESET CLEARS RECEIVE INTERRUPT
i ; .. ** ** '" ** '" "' •• '" ** '" *.* •••
"'*110 •• '" '"
** '"
>I<
TST37 :
SCOPE
RESET
;CLEAR EVERYTHING
JSR
PC.WRPSW
; SET PSW TO PRIORITY 7
.WORD
340
MOV
I'RVECT • R3
; SAVE RECEIVE VECTOR
MOV
N2$ .I'RVECT
; POINT RCV VECTOR TO ERROR REPORT
BIS
NBIT6.@RCSR
; SeT Rev INTERRUPT ENABLE
BIS
#BlT2.@TCSR
;SET MAINTENANCE WRAP
1/377,@TBUF
MOV
; SEND AN ALL l ' S CHARACTER
1$:
TSTB
@RCSR
; WAlT FOR RCV DONE
BPL
1$
RESET
;CLEAR Rev INTERRUPT & RBUF
JSR
PC,WRPSW
;SET PSW TO PRIORITY 3
.WORD
140
NOP
;ALLOW TIME FOR AN ERRONEOUS INTERRUPT
BIC
;NO INTERRUPT-CLEAR INT. ENABLE
NBIT6."RCSh
3$
BR
; CONTINUE TEST

"'.* '"

.MAIN.
MACVl1 30A(1052)
19-APR-7B
ClDLDC.Pl1
19-APR-7B 11 :41
2367
236B
2369
2370
2371
2372
:2373
2374
2375
2376
2377
237B
2379
2380
2381
2382
23B3
2384
23B5
2386
23B7
238B
23B9
2390
2391
2392
2393

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

4$:

SEQ 0059

.MAIN.
MACYll 30A(1052)
19-APR-78
ClDlDC.Pl1
19-APR-7811:41
2394
2395
2396
2397
239B
2399
2400
2401
2402

2403
2404
2405
2406
2407
240B
2409
2410
2411
2412
2413
2414
2415
2~16

2417
2418
2419
2420
2421
2422
2423
2424

*

SEQ 0060
ERROR

(BITI4) & "ERROR"

(BIT1S) CAN BE SET

; ; '" "'.'" ** .. **Jio >11>11*** '" '" >II. "'* '" '" '" '" "''''* '" '" '" '" '" '" •• * '" "' .. '" '" "' .. '" '" '" ** .. *.*"" •• "'>II';'.>fII >fl.
; .TEST 41

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

010724
010730
010732

; ; .. ** "'. "' ..

TST41 :

000004
032777
001444
000005

000400

170202

052777

000004
177777
171464

17 I 502
171476

012777

105777
100375
005077
052777
005000
117737
100406
005200
001372

042777

1$:

171460
000001

171454

171442

001026

000005

171430

105777

171420

001404
042777

000005

171412

000005

171402

010740

104103

010742

042777

010750
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

010752

2$:

011042
011050

032777
001001

2450

011052

104114

2451
2452

011 054

*. '"

TEST THAT BREAK TRANSMITS ALL ZEROES

>I< '" '" • • •

SCOPE
SI T
SEQ
RESET
BIS
MOV
TSTB
BPl
CLR
BIS
CLR
MOVB
BMI
INC
BNE

** •• ** '" "'. "'oil ",.>11. ***

*** '" '" "'* '" '" '" "' ....... * '" •• "' ••••••••••

NSITS .@SWR
TST42

: IS BREAK FUNCTION TEST ENABLED?
: BR TO NEXT TEST. I F NOT ENABLED
:CLEAR EVERYTHING

NBIT2.@TCSR
#-1.@TBUF
I'RCSR
1$
@RBUF
#BITO.@TCSR
RO
@RCSR.$BDDAT
CONT41
RO
2$

;SET MAINTENANCE WRAP

:TRANSMIT ALL ONES TO RCVR
: WAIT FOR RCVR DONE
: CLEAR DONE (LEAV IND ALL ONLS IN RBUF)
: TRANSMI T BREAK
:CLEAR A TIMER
;WAIT FOR RCVR DONE
: BR IF DONE
: IF NOT. INCREMENT TIMER
: BR IF TIME REMAINS

,~TCSR

BIC
ERROR

IIBI TO! B1 T2
103

CONT41:

TSTB
BEQ
BIC

@lRBUF
:CHECK RECEIVE BUFFER FOR ZERO
3$
: BR. I F ZERO
# BITO I BIT2.@TCSR
: CLEAR MAINTENANCE & BREAK BITS

ERROR

103

3$:

BIC

#BI TO! BI T2 .@TCSR

104103

.MAIN.
MACYl1 30A(1052)
19-APR-7B
CZDlDC.Pl1
19-APR-7B 11:41
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
243B
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449

11:44
PAGE 60
T40
TEST THAT THE "OR'

11:44
T41

: CLEAR MAINTENANCE & BREAK BITS
:BREAK DID NOT TRANSMIT ANYTHING

: BREAK DID NOT TRANSMIT ALL ZEROES
: CLEAR MAINTENANCE & BREAK BITS

PAGE 61
TEST THAT BREAK TRANSMITS ALL ZEROES

; ; * '" '" * -* '" -*"'''' . . * ** * *"'* _.. * .. "' .. **"''''* . . *** *** ** . . * * "' .. *'" "'.*.* *** .. *** •• "''''.
i .TEST 42
TEST THAT " FR" ERROR CAN BE SET DUR ING BREAK
; ; "'.* •• * * ** "'.**** **.* **'" "' ............ *** **'" *** ** ... '" *. ot<*'" ••••• *** •• * **

TST42 :
002000

170060

000400

170050

000004
000001
171340
171326

171350

000005
020000

171322
171312

100000

171300

17134~

1$:

2$:

SCOPE
BIT
BEQ
BIT
BEQ
RESET
BIS
BIS
CLR
TSTB
BPL
BIC
BI T
BNE

HBITI0."SWR
TST43
NBITB.@lSWR
TST43

: IS THE " TEST ERROR FLAGS" BIT SET
: 8R TO NEXT TEST. IF NOT SET
: IS BREAK FUNCTION ENABLED
;BR TO NEXT TEST, I F NOT SET
: CLEAR EVERYTH ING
:SET MAINTENANCE WRAP
: SEND BREAK
jTRANSM1T A CHARACTER TO TIME BREAK
j WA I T FOR RCVR DONE

NBIT2.@TCSR
NBITO."TCSR
@TBUF
@RCSR
1$
# BITO! BIT2.@lTCSR : CLEAR MAINTENANCE & BREAK BITS
#BIT13.I'RBUF
: CHECK FOR FRAMING ERROR FLAG
2$
:BR. IF SET

ERROR

104

BIT
BNE

NBITI5,I'RBUF
3$

ERROR

114

: BREAK DID NOT SET FRAMING ERROR
: TEST "ERROR"FLAD
: BR. IF SET

:"ERROR"
3$:

FLAG DID NOT SET WITH 'OR' FLAD

SEQ 0061

.MAIN.
MACYI130A(1052)
19-APR-78
ClDLDe.Pll
19-APR-7811:41
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508

2511

2512
2513
2514
2515
2516
2517

SEQ 00B2

;;••• "' ••• *."' •••••• "' ................................ * •• "' ................... .
;.TEST 43

TEST DATA PATH FROM TRANSMITTER TO RECEIVER USING MAINTENANCE WRAP

; ; .......... "' •••••••••••• ** •• "' ...... "' ............ **
011054

000004

011056
011060
011062

000005
005001
052777

011070
011072
011076
011102
011104

011116
011120
011122
011124
011126
011132
011136
011144

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

011146

042777

011110
011114

011154
011156
011164

011166
011170

011172

011174
011200

011202
011206
011210
011212

000004
032777
001432
000005
005001

105201
010177
005000
105777
100403
005200
001373

011214

104064

011216
011222

017702
043701

TST43:

000004

1$:
171256
171244

2$:

171240
001112

001024
001026
000004

171206

000004

17,,76

011226
011230
011232
011234

011250

104106

** ........ " •••••••

Rl
Rl.i'T8UF
"'RCSR
2$

;CLEAR EVERYTHING
;CLEAR REGISTER FOR TEST DATA
; SET MAINTENANCE WRAP
; TRANSMIT A 81NARY COUNT PATTERN - UP
; TO THE 81T POSITION INDICATED BY THE
;CONTENTS OF LOCATION '$USWR"
; INCREMENT THE TEST DATA
;XMIT A CHARACTER
;WAIT FOR RECEIVER DONE

INC
MOV
TST8
BPL
MOV
81C
CMP
BNE
TST8
BEQ
BR
MOV
MOV
BIC
ERROR

",#SUSWR. Rl
Rl.R2
3$
Rl
4$
1$
Rl.SGDDAT
R2.SBDDAT
#BI T2. I'TCSR
105

;GET RECEIVED CHARACTER
; CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA
;COMPARE DATA
; 8R. I F NON-COMPARE
;TEST XMIT DATA FOR ZERO
;8R. IF FINISHED
; CONTINUE I F NOT
; STORE THE EXPECTED DATA
;STORE RECEIVED DATA
; CLEAR MAINTENANCE BIT
;DATA COMPARE DATA

BIC

NBIT2.I'TCSR

;CLEAR MAINTENANCE BIT

@RBUF,R2

; ;.............................. "'*"'''''''. '" ........ "' •• ** *"'**.* ... *.'" *.*"'*."'. *"'."' •• "'.
;*TEST 44
TEST DATA PATHS USING WRAP CA8LE
***'" "'*.*.*"' •• '"
TST44:
SCOPE
000200

167654

1$:
171154
171140

2$:

171126
001112

35:

001024
001026

8IT
BEQ
RESET
CLR

NBIT7.ClSWR
TST45
Rl

INCB
MOV
CLR
TSTB
8MI
INC
8NE

Rl
Rl.11>T8UF
RO
I'RCSR
3$
RO
2$

>II "' • •

*.

; IS THIS TEST ENABLED
;8R. IF NOT
;CLEAR EVERYTHING
; CLEAR REGISTER FOR TEST DATA
;TRANSMIT A 81NARY COUNT PATTERN - UP
;TO THE BIT POSITION INDICATED BV THE
;CONTENTS OF LOCATION "SUSWR"
; INCREMENT THE TEST DATA
;XMIT A CHARACTER
; CLEAR A TIMER
;WAIT FOR RECEIVER DONE
; 8R IF DONE
;INCREMENT TIMER IF NOT
;8R IF TIME REMAINS

ERROR

64

; RECEIVER DONE NOT SET

MOV
BIC

ClRBUF. R2
I'#$USWR.Rl

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

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

105701

001406
000755
010137
010237

Rl
N81T2.'HCSR

: ; * •• * •• '" '" ••• * ••• *.*.****"'*"' •• ,."••• * '" *.*** '" ** '"

020102
001003

011240
011244

011236

4$:

>1< . . . . .

SCOPE
RESET
CLR
SIS

171262

19-APR-7B
.MAIN.
MACY11 30A( 1052)
CZDLDC. Pl1
19-APR-78 11 :4'
2509
2510

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

4$:

CMP
BNE
TSTB
BEQ
BR
MOV
MOV

Rl.R2
4$
Rl
TST45
1$
Rl.SGDDAT
R2.SBDDAT

;COMPARE DATA
; 8R. I F NON-COMPARE
;TEST XMIT DATA FOR ZERO
;BR. IF FINISHED
;CONTINUE IF NOT
;STORE EXPECTED DATA
;STORE RECEIVED DATA

ERROR

,06

;DATA COMPARE ERROR wITH WRAP CABLE

SEQ 0063

.MAIN.
MACY11 30A( 1052)
19-APR-78
ClDLDe.P11
19-APR-78 11 :41
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
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

2591

2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
261 S
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629

SEQ 0084

; ; *** .... * ................. "' ... "' .... *.*** ..... 01< '" '" *** . . "' •• '" "'* "' ... '" *** •••••• *>1<* ••• $*
:.TEST 45

; : •••• >,,,,' •••• **.

011252
011254
011256
011262
011264
011270
011274

011300
011306
011314
011322
011330
011334
011342
011346
011352
011354
011362
011364
011372
01'376
011404
011412

011420
011426

011432
011436
011440
011442

000004
000005
004737
000340
017703
017704
017705
017737
017737
017737
012777
005077
012777
005077
005737
001414
032777

171014

171012

002336
000100

167456

011720
171014
000100
000004
000100
000100
011730
011726

171016

01270~

011742
170702
012242

011460

062700
062700
001373
032777
001402
000005

011504

104107

011506
011514
011516

023737
001402
000005

011520

10411 0

011522
011526
011530
011536
011540
011544

005737

171002
170740
170732
170720

~SR

2$:

000000
000001
000100

170652

011730

011726

3$:

002336
000100

ADD
ADO
BNE
BIT
BEQ
RESET

HO. RO
Nl.RO
2$
NBIT6.@TCSR
3$

ERROR

107

CMP
BEQ
RESET

XMTCNT • RCVCNT
4$

ERROR

110

**** *.,.. ** . . ** "'>II",.",. "'*>10*."'*$

:CLEAR EVERYTHING
;SET PRIORITy TO 7
:SAVE XMIT VECTOR
:SAVE RECEIVE VECTOR
: SAVE CLOCK VECTOR
; SAVE XMIT PSW VECTOR
:SAVE RECEIVE PSW VECTOR
;SAVE CLOCK PSW VECTOR
: POINT TRANSMIT VECTOR TO TRANSMIT ROUTINE
;ALLOW INTERRUPTS AFTER XMiT INTERRUPT
:POINT RECEIVE VECTOR TO RECEIVE ROUTINE
;ALLOW INTERRPUTS AFTER RCVR INTERRUPT
; IS CONSOLE UNDER TEST?
:IF NOT SKIP CLOCK SET UP
: IF YES. ARE CLOCK TEST DISABLED?
:IF YES. SKIP CLOCK SET UP
: POINT VECTOR TO CLOCK INTERRUPT ROUTINE
:ALLOW INTERRUPTS AFTER CLOCK INTERRUPT
i ENABLE ~LOCK INTERRUPTS
:SET MAINTENANCE WRAP
; ENABLE TRANSMI T INTERRUPTS
: ENABLE RECEI VE INTERRUPTS

;CLEAR XMIT INTERRUPT COUNTER
:CLEAR RCV INTERRUPT COUNTER
:CLEAR A REGISTER FOR TEST DATA USE
:CLEAR TIMER
; POINT R2 TO RECEIVE DATA STORAGE
: SEND FIRST CHARACTER
:SET PSW TO PRIORITY 3
:WAIT FOR INTERRUPTS
:ADD INSTRUCTIONS ARE USED TO LENGTHEN lOOP TIME
TO COVER THE SLOWEST BAUD RATE ON THE FASTEST CPU
; FINISHEO ENTIRE TRANSMISSION
: BR. IF INTERRPUTS ARE OISABLED (FINISHED)
:CLEAR EVERYTHING
:TRANSMIT INTERRUPT TIMEOUT IN MAIN. DATA TEST
: COMPARE THE NUMBER OF INTERRUPTS

JBR,

IF EQUAL

:CLEAR EVERYTHING
:RECEIVER DID NOT GET FULL TRANSMI,SION
IF RCVCNT=O. NO DATA RECEIVED
IF RCVCNT·?
THEN (XMTC;'JT-RCVCNT)
EQUALS THE NO. OF INTERRUPTS LOST.

11 :44 PAGE 65
T45
TEST DLll-W LOGIC BY EXERCISING THE XMIT.RECEIVE.

&

SEQ 0065
CLOCK(IF AVAILABLE) SIMULTAN

4$:

TST
BEQ
BIT
BNE
TST
BNE

CTSTF L
5$
NBIT6./ilSWR
5$
CLKCNT
5$

ERROR

113

: NO CLOCK INTERRUPTS IN EXERCISER

5$:

RESET
MOV
CLR
CMP
BNE
INCB
BIT
BEQ
BR

_BUF.RO
Rl
(RO)+. Rl
6$
Rl
'BIT5.Rl
CaMP
7$

:CLEAR EVERYTHING
: LOAD RECEIVED DATA POINTER TO RO
; SET UP REGI STER FOR COMPARISON
: COMPARE XMIT & RCV DATA
: BR. IF NOT EQUAL
: INCREMENT COMPARE DATA
; FINISHEO CHECKING RECEIVED DATA?
: BR. IF NOT FINISHEO
: BR TO END OF TEST

001410

032777
001004
005737
001001

PC. WRPSW
340
tIlTVECT • R3
tIlRVECT • R4
@RTCVT • R5
@lTPSW.STPSW
I!>RPSW. SRPSW
I!>RTCPSW. SCPSW
NXMIT .@TVECT
I'TPSW
NRCV.I'RVECT
tIlRPSW
CTSTFL
1$
NBIT6.IIlSWR
1$
NCLK .I'RTCVT
I'RTCPSW
NBIT6.I'LKS
NBIT2.Ii'TCSR
NBIT6.tIlTCSR
NBIT6.@RCSR
XMTCNT
RCVCNT
Rl
RO
NBUF.R2
li'TBUF
PC .WRPSW
.WORD
140

.WORD
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
CLR
TST
BEQ
BiT
BNE
MOV
CLR
BIS
BIS
BIS
BIS
CLR
CLR
CLR
CLR
MOV
CLR

01173.
011736
011740
171032

012777
005077
052777
052777
052777
052777
005037
005037
005001
005000
005077
004737
000140

011470
011472
011500
011502

171072
171062
17111 0
171060
171046
171072
011650
171030
011704

*.

TEST DL11-W LOGIC BY EXERCISING THE XMIT.RECEIVE. "CLOCK(IF AVAILABLE)

"'.* .............. "' .. * ......

SCOPE
RESET
~SR

012242

001010

011446
011452
011456

011464

TST45:

.MAIN.
MACY11 30A(1052)
19-APR-78
ClDLDC.P11
19-APR-78 11 :41
2574
257S
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2S88
2589
2590

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

167302

011732

irs CONCOLE UNDER TEST?
: IF NOT. SKIP CLOCK COUNT CHECK
; IF YES. ARE CLOCK TESTS DISABLED?
;IF YES. SKIP CLOCK COUNT CHECK
; CHECK FOR AT LESST ONE CLOCK INTERRUPT
: BR I F I NTERRUPTS OCCURRED

011546

104113

011550

011564
011566
011572
011574

000005
012700
005001
022001
001005
105201
032701
001772
000405

011576
011602
011606

014037
010137
104111

001026
001024

6$:

MOV
MOV
ERROR

-(RO) .$BDDAT
Rl.$GDDAT
111

,STORE 8AO DATA FOR ERROR REPORT
: STORE GOOD DATA FOR ERROR REPORT
: OAT A COMPARE ERROR IN EXERCISER

011610
011614
011620
011624
011632
011640
011646

010377
010477
010577
013777
013777
013777
000501

170546
170536
170564
011734
011736
011740

7$:

MOV
MOV
MOV
MOV
MDV
MOV
BR

R3.I'TVECT
R4.I'RVECT
R5.@RTCVT
STPSI, .II'TPSW
SRPSW. I!'RPSW
SCPSW. IilRTCPSW
ENOEV

, RESTORE
i RESTORE
: RESTORE
: RESTORE

011650
011654
011656
011662
011664
011672
011674
011700
011702

005237
105201
032701
001404
042777
000402
110177
005000
000002

XMIT:

INC
INCB
BIT
BEQ
BIC
BR
MOVB
CLR
RTI

011704
011710
011714
011716

011552

011556
011560
011562

011742
COMP:

000040

170532
170520
17054"'

011730
000040
000100

170460

XMIT VECTOR
RECE I VE vECTOR
CLOCK VECTOR
XMIT PSW VECTOR
; RESTORE RECEIVE PSW VECTOR
: RESTORE CLOCK PSW VECTOR
i BR TO END OF OEVICE TEST ROUTINE

XMTCNT
Rl

; INCREMENT XMIT INTERRUPT COUNTER
: INCREMENT TEST DATA

IfBIT5,R1

;SEND DATA PATTERN FROM 00

XCONT
N BIT6.@TCSR
XRET
Rl.I'TBUF
RO

: BR. IF MORE DATA TO BE SENT
:CLEAR XMIT INTERRUPT ENABLE
: RETURN. WITHOUT SENDING ANY MORE DATA
,SEND NEW CHARACTER
: CLEAR TIMER
: RETURN

--> 37

170454

XCONT:
XRET:

017722
005237
005000
000002

170440
011726

RCV:

MOV
INC
CLR
RTI

@RBUF. (R2)+
RCVCNT
RO

,STORE RECEIVEO DATA
: INCREMENT RCV INTERRUPT COUNTER
: CLEAR TIMER
, RETURN

011720
011724

005237
000002

011732

CLK:

INC
RTI

CLKCNT

: INCREMENT CLOCK INTERRUPT COUNT
: RETURN

011726
011730
011732
011734
011736

000000
000000
000000
000000
000000

RCVCNT:
XMTCNT:
CLKCNT:
STPSW:
SRPSW:

.WORD
.WORO
.WORD
.WORD
.WORD

0
0
0
0
0

·MAIN.
MACY1130A(1052)
19-APR-7a
CZDLDC.Pll
19-APR-7811:41
2630
2631
2632

011740
011742

000000
000044

SCPSW:
aUF:

, 9-APR-78
,MAIN.
MACY11 30A ( 1 052)
19-APR-78 11:41
CZDLDC. Pll

2633
2634
2635
2636
2537
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
2611
2672
2673
2674
2675
2616
2677

11:44 PAGE 66
SEQ 0066
T45
TEST DL11-1"/ LOGIC BY EXERCISING THE XMIT,RECEIVE, & CLOCK(lF AVAILABLE) SIMULTAN

11 :44

T45

• WORD
.BLKW

0
44

PAGE 67
SEQ 0067
TEST DL11-W LOGIC BY EXERCISING THE XMIT.RECEIVE. & CLOCK(lF AVAILABLE) SIMULTAN

: END OF DEVICE
012052
012056
012062
012070
012072
012076

005037
005237
023737
001404
005037
000137

001002
DO 1076
002342

~ASS

ENDEV:

CLR
INC
CMP
BEQ
CLR
JMP

.SBTTL

END OF PASS ROUTINE

001076

002336
003500

ROUTINE

$TSTNM
$DEVCT
TMP2. $DEVCT
$EOP
CTSTFL
TSTDEV

:CLEAR TEST NO. COUNT FOR SCOPE ROUTINE
: INCREMENT DEVICE COUNTER
:ALL DEVICES TESTED
:BR. IF YES
:CLEAR CONSOLE UNDER TEST FLAG
: GO TEST NEXT DEV ICE

: ; ** ** ** "' .. *** *** >I< "'''''''* ** '" '" ** ** *. . "'''''''''' ."' .... *******"."'*** "'*."' •• "' .........
; * INCREMENT THE PASS NUMBER ($PASS)
;*IF THE RES A MONITOR GO TO IT
;*IF THERE ISN I 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

SEOP:
000004
005037
005237
042737
005321
000001
003015
012737
000001
012124
104401
013700
001405
000005
004710
000240
000240
000240
000137
012206
377
012112
005015
040520

001002
001014
100000

001074

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

TYPE

012172
000042

377

000

047105
051523

020104
000040

$GET42 : MOV
BEQ
RESET
$ENDAD: JSR
NOP
NOP
NOP
$OOAGN:
JMP
SRTNAD: .WORO
$ENULL: .BYTE
• EVEN
ENDMG:
.AseiZ

$TSTNM
$PA5S
# 1 00000. $PASS
( PC)+
1
$DOAGN
(PC)+.@>( PC)+
1

,ENDMG
@#42,RO

: : ZERO THE TEST NUMBER
: ; INCREMENT THE PASS NUMBER
;;DON1T ALLOW A NEG. NUMBER

; ; LOOP?
i :YES
; ; RESTORE COUNTER

$DOAGN

; : TYPE .. END PASS"
j i GET MON I TOR ADDRESS
; : BRANCH I F NO MONITOR

PC. (RO)

: : GO TO MONITOR

j ;

C LEAR THE WOR LD

; ; SAVE ROOM
::FOR
; jACT11
@(PC)+
GOAGIN
-1.-1.0

j ;

RETURN

: :NULL CHARACTER STRING

/END PASS /

.MAIN.
MACV11 30A(1052)
19-APR-78
ClDLDC.P11
19-APR-78 11 :41
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702

2703

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

012254
012256

012600
162700
010037
016637
,04112

001076
000001

1 t :44
PAGE 68
END OF PASS ROUTINE

SEQ 0088

GOAGIN:

CLR
CMP
BNE
MOV
JMP

SDEVCT
1i1, TMP2
RSTRT
Nl000,SP
TSTl

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

RSTRT:

CLR
JMP

$UNIT
BEGIN

; CLEAR UNIT NUMBER

WRPSW:

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

002342

000002

; COpy RETUN PC
; MOVE NEW PSW TO STACK
; ADJUST JSR RETURN
; POP RETURN PC & NEW PSW

; SU8ROUT INE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS

012262
012266
012274

012276
012300
012302

CATCH:
000004
012302
000002

012300

000000
000000
000000

OLDPC:
BDVECT:

MOV
SU8
MOV
MoV
ERROR

(SP)+,RO
#4, RO
RO, BOVECT
2 (SP) ,OLDPC
112

HALT
.WORD
.WORD

0
0

;GET ADDRESS OF TRAP VECTOR + 4
;ADJUST 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

2704

*

.MAIN.
MACYll 30A(1052)
19-APR-78
ClDLDC.Pll
19-APR-78 11 :41

11:44
PAGE 69
END OF PASS ROUTINE

2705
2706

; ; II< '"

2735
2736
2737
2738

2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754

**.* "'*"' . . **.* '" **** '" '" **** "'* "''''* '" ****** "'*'" >I< ** '" '" '" '" ** "'''''''. ** **"'***.*

;*THIS ROUTINE WILL INCRE~ENT THE ERROR FLAG AND THE ERROR COUNT,
; .SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL
; 'AND GO TO $ERRTYP ON ERROR
; "'THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15=1
HALT ON ERROR
INHIBIT ERROR TYPEOUTS
: *5W13=1
;*SW09=1
LOOP IN ERROR

2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
271 B
2719
2720
2721
2722
2723
2724
2725
2726
2727
272B
2729
2730
2731
2732
2733
2734

SEQ 0069

.

; ·CALL
;

ERROR

N

; ; ERRoR=EMT AND N=ERROR ITEM NUMBER

INCB
BEQ
MOV
INC
MOV
SUB
MOVB
BIT
BNE
JSR
TYPE

$ERFLG
7$
$TSTNM,@OISPLAY
$ERTT L
(SP),$ERRPC
#2,$ERRPC
@$ERRPC.$ITEMB
#8IT13,@SWR
20$
PC, $ERRTYP
, $CRLF

CMPB
BNE
MOVB
JSR
• BYTE
• BYTE
BR
TST
BPL
HALT
CKSWR
BIT
BEQ
MOV
TST
BEQ
MOV

HAPTENV, SENV
2$
$ITEMB,21$
PC,$ATY4
0
0
22$
@SWR
3$

CMP
BNE
HALT

H$ENOAD,t>H42
6$

; ; '" "'''''''* ** ** "'* ********* '" ***"" *.'" *** ** '" "'>II'" '" '" "''''* "' .. *** ** "'."' .. '" '" ."'*"''''''''''.
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

$ERROR:
7$:

001003
001002
001012
001016
000002
166454
020000

166522

001016
001014
166466

012466
001063

; SET THE ERROR FLAG
; DON'T LET F LAG GO TO ZERO
;DISPLAY TEST NUMBER AND ERROR FLAG
; INCREMENT ERROR COUNT
; GET ADDRESS OF ERROR INSTRUCTION
;STRIP AND SAVE THE ERROR ITEM CODE
;SKIP TYPEOUT I F SET
i SKIP TYPEOUTS
; GO TO USER ERROR ROUTINE

20$:
122737
001007
113737
004737
000
000
000777
005777
100001
000000
104406
032777
001402
013716
005737
001402
013716

000001

001106

001014
013170

012406
21 $:
22$:
2$:

166422

3$:
001000

166406

001010
001060

4$:

001060

NBIT09,@SWR
4$
$LPERR, (SP'
$ESCAPE
5$
$ESCAPE, (SP)

; RUNNING IN APT MODE
;NO, SKIP APT ERROR REPORT
; SET I TEM NUMBER AS ERROR NUMBER
i REPORT FATAL ERROR TO APT

; APT ERROR LOOP
; HA LT ON ERROR
;SKIP IF CONTINUE
;HALT ON ERROR!
; TEST FOR CHANGE IN SOFT-SWR
; LOOP ON ERROR SWITCH SET?
; BR I F NO
; FUDGE RETURN FOR LOOPING
; CHECK FOR AN ESCAPE ADDRESS
; BR IF NONE
; FUDGE RETURN ADDRESS FOR ESCAPE

5$:
022737
001001
000000

012152

000042

; ACT-ll AUTO-ACCEPT?
; BR IF Nu
;YES

6$:
000002

RTI

; RETURN

·MAIN.
MACY11 30'(1052)
19-APR-78
CZOLDC.Pll
19-APR-7611:41
2755
2756
2757
275B
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
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

.SBTTL

2810

2811
2812
2813
2814
28' 5
2816
2817
2818
28'9
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

ERROR MESSAGE TYPEOUT ROUTINE

; ; * ... * *.* .. Ii<"'*'" ** ** ... *"' .. *.*** >I< *** .. '" ",,,,,,,,,II<,,, "' .. *** ..... '"

>1< ..

*.

*.* .... ** .*****

;_THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH
;-ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE' ($ERRTB),
;.AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

SERRTYP:

012466
012466
012472
012474
012476
012502

010046
005000
153700
001004

012504

013746

012510
012512
012514

104402
000426
005300
006300
006300
006300
062700
012037
001404

012516
012520

012522
012524

012530
012534
012536
012540
o t 2542

012546
012552
012554

012556
012560
012564
012566
012570
012572
012576
012600
012600
012602
012604
012606
012610
012614

012616

104401

001063

001014

001016

lS:

0011 46
012540

104401

2S:

000000
104401

012037
001404
104401
000000
104401

001063
012556

3$:

4$:
001063
5$:

011000

001004
012600
104401

65:
001063

000207

TYPE
MOV
CLR
BISB
BNE

, $CRLF
RO,-(SP)
RO
t'N$ITEMB, RO
1$

MOV

$ERRPC,-(SP)

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
.WORD
TYPE
MOV
8EQ
TYPE
.WORD
TYPE
MOV
BNE
MOV
TYPE
RTS

;i"CARRIAGE RETURN" & -LINE FEED"
i ;SAVE RO
;; PICKUP THE ITEM INDEX
I F IT EM NUM8ER IS ZERO, JUST
TYPE THE PC OF THE ERROR
SAVE $ERRPC FOR TYPEOUT
ERROR ADDRESS
GO TYPE--OCTAL ASCII(ALL DIGITS)
GET OUT
ADJUST THE INDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE

6S
RO
RO
RO
RO
#SERRTB,RO
(RO)+,2$
3$

FORM TABLE POINTER
PICKUP "ERROR MESSAGE" POINTER
SKIP T·. PEOUT IF NO POINTER
TYPE THE "ERROR MESSAGE"
"ERROR MESSAGE" POINTER GOES HERE
"CARRIAGE RETURN" & N LINE FEED"
PICKUP 'DATA HEADER" POINTER
SKIP TYPEOUT IF 0
TYPE THE "DATA HEADER"

o
, SCRLF
(RO)+,4$
5$

o

"DATA HEADER" POINTER GOES HERE
"CARRIAGE RETURN" & "LINE FEEOII

, SCRLF
(RO), RO
7$
(SP)+,RO
, $CRLF
PC

PICKUP "DATA TA8LE" POINTER
GO TYPE THE DATA
RESTORE RO
"CARRIAGE RETURN" & 'LINE FEEO'
RETURN

7$:
013046
104402
005710
001770
104401
00077'
020040

012616
000

8S:

012622

• MA IN.
MACY 11 30A (1052)
19-APR-78
CZDLDC.Pll
'9-APR-78 11 :41
2804
2805
2806
2807
280B
2609

SEQ 0070

11:44 PAGE 70
END OF PASS ROUTINE

"

MOV
TYPOC
TST
BEQ
TYPE
BR
.ASCIZ
.EVEN

I'(RO)+,-(SP)

SAVE "(RO)+ FOR TYPEOUT
GO TYPE--OCTAL ASCII(ALL OIGITS)
I S THERE ANOTHER NUMBER?
BR IF NO
TYPE TWO(2) SPACES
LOOP
TWO(2) SPACES

(RO)
6$
,85
7$

/

/

SEQ 0071

: 44 PAGE 71
ERROR MESSAGE TYPEOUT ROUTINE

.SBTTL

POWER DOWN AND UP ROUTINES

; ; '" '" ****** ... ***** *** ** ** ** "'''''''*''''''''' '" ** **** ***** >I< • • • '" ... "',.. . . . . . . . . *."' . . ***
; -POWER DOWN ROUTINE

012622
012630
012636
0,2640
0'2642
012644
012646
012650
012652
012656

012662
012670
012672

012674
012702
012706

012712
012714
012716
012720
012722
012724
012726
012734
012742
012746
012752
012754
012756
012760
012762
012764
012766

012770
012776

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

012737
013706
012677
012605
012604
012603
012602
012601
012600
012737
012737
005037
005237
001375
104401
012770
000002
000000
000776
000000
005015
000122

012762
000340

000024
000026

166162
012766
012674

000024

012762
012766
166126

000024

012622
000340
012766
012766

000024
000026

047520

042527

; ; **** ** '" ***.** *** "'* '" '" ********** '" ** **** "' ... ** *** '" ****"'* ... *.*"'* •••• "'.

$PWRDN: MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT
BR

#$1LLUP,"HPWRVEC ;SET FOR FAST UP
#340,,,.PWRVEC+2 ;PRIO:7
RO,-(SP)
;PUSH RO ON STACK
Rl,-(SP)
;PUSH R1 ON STACK
R2,-(SP)
;PUSH R2 ON STACK
R3,-(SP)
;PUSH R3 ON STACK
R4,-(SP)
;PUSH R4 ON STACK
R5,-(SP)
;PUSH R5 ON STACK
t'SWR.-(SP)
;PUSH @SWR ON STACK
SP,$SAVR6
; SAVE SP
#SPWRUP,"'HPWRVEC ;SET UP VECTOR
.-2

;HANG UP

~ ; '" ** '" '" '" '" "' .. "',.. "' .. '" * '" '" '" '" '" '" '" '" '" "' .. '" '" '" '" * '" "' ... '" ** '" '" '" '" '" '" "',.. '" '" '" '" ** **'" '" **** ** '" '"
i ",POWER UP ROUTINE
; ; "''''''''''''''' ....... "'''' ............... *..... ** * ... * * ......... "' .. ** * "'** ** **** .. '" *,. *'" ......... **.** ..... .

$PWRUP: MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
1$:
INC
BNE
TYPE
$PWRMG: .WORD
RTI
$ILLUP: HALT
BR
$SAVR6: 0
SPOWER: • AselZ

#$ILLUP.<12>"POWER"

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

.MAIN.
MACYl130A(1052)
19-APR-76
CZDLDC.P11
19-APR-7611:41
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2B71
2872
2873
2874
2875
2876
2877
2B78
2879
2880
2B81
2882
2883
2884
2885
2886
28B7
2888
2B89
2890
2891
2892
2893
2894
2895

.S8TH

SEQ 0072

SCOPE HANDLER ROUTINE

; :*"' ..... "''''.**** ••• '''*''' •• '''''' .......................................... ** •••••••
:>THIS ROUTINE CONTROLS THE LOOPING OF SU8TESTS. IT WILL INCREMENT
:>AND LOAD THE TEST NUM8ER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0»
:.AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08>
,>THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
; *SW1 4=1
LOOP ON TEST
LOOP ON ERROR
; "SW09'" 1

.

;*CALL

:
, 04406
032777
001052

013012

000416

013014

013746
012737
005737
012637
000421
022626
012637
000407

013020
013026
013032
013036
013040
013042
013046
013050
013050
013054
013056
013064
013066
013074
013076
013102
013106
013114
013120
013124

013130
013136
013144
013150

SCOPE

: : SCOPE. lOT

$SCOPE:

013000
013000
013002
013010

105737
00141'2
032777
001404
013737
000420
105037
105237
113737
011637
011637
005037
112737
013777
013716
000002

040000

000004
013040
177060
000004

166030

000004

000004

001003
001000

165754

001010

001006

001003
001002
001002
001006
001010
001060
000001
001002
001006

001072

001015
165676

19-APR-78
.MAIN.
MACY11 30A( 1 052)
19-APR-7B 11: 41
CZDLDC. Pll

2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
290B
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

11:44 PAGE 72
POWER DOWN AND UP ROUTINES

CKSWR
A'BIT14,@l5WR
BIT
8NE
$OVER
: •• OH.START OF CODE FOR THE XOR
$XTSTR: BR
6$

FOR CHANGE IN SOFT-SWR
:TEST
: LOOP ON PRESENT TEST?
,YES IF SW14.1
ESTER"H ••
: IF RUNNING ON THE "XOR" TESTER CHANGE
;THIS INSTRUCTION TO A "NaP' ( NOP=240)
MOV
O1lHERRVEr,-(SP)
; SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
.5$ ,01l.ERRVEC
; SET FOR TIMEOUT
TST
@>',77060
; TIME OUT ON XOR?
MOV
(SP)+,@.ERRVEC
; RESTORE THE ERROR VECTOR
BR
$SVLAD
; GO TO THE NEXT TEST
5$:
(SP)+, (SP)+
CMP
; C LEAR THE STACK AFTER A TIME OUT
MOV
(SP)+,@.ERRVEC
; RESTORE THE ERROR VECTOR
7$
BR
: LOOP ON THE PRESENT TEST
6$: ;IINNNNENO OF CODE FOR THE XOR TESTERHHHNN
2$:
TSTB
SERFLG
; HAS AN ERROR OCCURRED?
$SVLAD
BEQ
;BR IF NO
BI T
.BIT09,tIISWR
; LOOP ON ERROR?
4$
BEQ
; BR IF NO
7S:
MDV
$ LPERR, S LPADR
: SET LOOP ADDRESS TO LAST SCOPE
BR
SDVER
4$:
$ERFLG
CLRB
ZERO THE ERROR FLAG
$SVLAD: INCB
STSTNM
COUNT TEST NUMBERS
MOVB
$TSTNM,$TESTN
SET TEST NUMBER IN APT MAILBOX
MDV
(SPl.$LPADR
SAVE SCOPE LOOP ADDRESS
(SP) ,5LPERr
MOV
SAVE ERROR LOOP ADDRESS
CLR
CLEAR THE ESCAPE FROM ERROR ADDRESS
SESCAPE
MOVB
#l,SERMAX
ONLY ALLOW ONE(1) ERROR ON NEXT TEST
SOVER:
MOV
STSTNM, tIIDISPLAY
DISPLAY TEST NUMBER
$LPADR, (SP)
MOV
FUDGE RETURN ADDRESS
FIXES oS
RTI

1$:

SEQ 0073

PAGE 73
11 :44
SCOPE HANDLER ROUTINE

; ; ",.* ** ** '" ***"'* ****** **, '" *****"'* '"

*"''''.'''* "''''''' *** *** *** **** $.****** ••

• seTH

APT COMMUNICATIONS ROUTINE

MDVB
MDVB
BR
MOVB

#l,SFFLG
#l,$MFLG
$ATYC
#l,$FFLG

;TO REPORT FATAL ERROR
;TO TYPE A MESSAGE

MDV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
TST
BNE
MOV
TSTB
BNE
SUB
ASR
MDV
MDV
8R
MDV
ADD
MDV
JSR
,WORD

RO,-(SP)
Rl,-(SP)
$MFLG
5$
HAPTENV, $ENV
3$
NAPTSPDOL, SENVM
3S
@4(SP),RO
'2,4(SP)
$MSGTYPE
1$
RO ,$MSGAD
( RO)+
2$
SMSGAD, RO
RO
RD ,SMSGLGT
'4, $MSGTYPE
5$
<114(SP) ,4$
#2,4(SP)
177776,-(SP)
PC,$TYPE
0

; PUSH RO ON STACK
: PUSH Rl ON STACK
: SHOULD TYPE A MESSAGE?
i IF NOT: BR
i OPERAT I NG UNDER APT?
; I F NOT: BR
; SHOULD SPOOL MESSAGE?
; IF NOT: BR
;GET MESSAGE ADDRESS
: BUMP RETURN ADDRESS
;SEE IF DONE WI LAST XMISSION?
; I F NOT: WAIT
:PUT ADDRESS IN MAILBOX
; FIND END OF MESSAGE

TSTB
BEQ
TST
BEQ
TST
BNE
MDV
INC
ADD
CLRB
CLRB
CLRB
MOV
MOV
RTS
• BYTE
,BYTE
.BYTE

$FFLG
12$
$ENV
12S
$MSGTYPE
11$
@4(SP),$FATAL
$MSGTYPE
'2,4(SP)
SFFLG
$LFLG
$MFLG
(SP)+,Rl
(SP)+.RO
PC
0
0
0

; ; '" ** ... ******* *** .. ** ** ............. *"'."'. "'II<'" * ...... ** .. * •• ****** **********

013152
013160

11 2737
112737

000001
000001

013416
013414

SATYl :
SATY3 :

013166
013170
013176
013176
013200
013202

000403
11 2737

000001

013416

SATY4 :
SATYC:

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
0' 3342
0,3344
013350
0'3352
013360
013364
013372
013376
013402
013406
013410
013412
013414
013415
013416

010046
010146
105737
00 t 450
122737
001031

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

013414
000001

0011 06

DOD 100

0011 07

000004
000002
001066

000004
1$:

0011 02
2S:
0011 02
001104
000004
000004
000002
177776
013420

001066
013326
000004

3$:

4$:
5$:
10$:

013416
001106

11$ :

001066
000004
001066
000002
013416
013415
013414

001070
000004

12$:

$MFLG:
$LFLG:
$FFLG:

,EVEN

;TD ONLY REPORT FATAL ERROR

: SUB STA'~T OF MESSAGE
; GET MESSAGE LENGTH IN WORDS
;PUT LENGTH IN MAILBOX
:TELL APT TO TAKE MESSAGE
; PUT MSG ADDR IN JSR LINKAGE
; BUMP RETURN ADDRESS
: PUSH 177776 ON STACK
; CALL TYPE MACRO

; SHOULD REPORT FATAL ERROR?
; IF NOT: BR
; RUNNING UNDER APT?
: IF NOT: BR
: FINISHED LAST MESSAGE?
iIF NOT: WAIT
; GET ERROR.
;TELL APT TO TAKE ERROR
: BUMP RETURN ADDRESS
;CLEAR FATAL FLAG
; CLEAR LOG FLAG
: CLEAR MESSAGE FLAG
:POP STACK INTO Rl
;POP STACK INTO Rl
j RETURN
: LOG FLAG
: FATAL FLAG

.MAIN.
MACYI130A(1052)
19-APR-78
CZOLOC.Pll
19-APR-7811:41
2952
2953
2954
2955
2956

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

SEQ 0074

APTSIZE.200

000200
000001
000100
000040

APTENV=OQ1

APTSPOOL·l00
APTCSUP.040

. MA IN.
MACY 11 30A ( 1 052)
19-APR-78
CZDLDC.Pl1
19-APR-7811:41
29S7
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
297B
2979
2980
2981
2982
2983
2984

11:44 PAGE 74
APT COMMUNICATIONS ROUTINE

11 : 44
PAGE 75
APT CDMMUNICATIONS ROUTINE

• S8TH

SEQ 0075

TYPE ROUTINE

:;*ROUTINE
: .. *.'" * ... '" ******
******* ** *** '" '" "' ... ** ****** '" "' ... *** *** *** "'*'" '" ** . . *** ** **
TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
: -THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;-NOTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;*NOTE.2:
$F ILLS CONT A INS THE NUMBER OF FILLER CHARACTERS REQUI RED.
;*NOTE3:
$FI LLC CONTAINS THE CHARACTER TO FILL AFTER.

:

-

."'CALL:

; *1 ) USING A TRAP INSTRUCTION
TYPE
,MESADR
:*

..
.

: :MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

: .. OR

:
:
:

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
013546
013550
013554
013560
013562

105737
100002
000000
000430
010046
017600
122737
001011
132737
001405
010037

112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001063
105037
000755
004737
123726
001350
013746

013566
013572
013574

105366
002770
004737

$TYPE:

0010S7

1$:
000002
000001

001106

000100

001107

004737

013470
013160

000000
132737

000040

001107

61$:
62$:
2$:

000002

60$:
3$:

000011

4$:

013676
5$:
6$:

001054

013632

8NE
BITB
BEQ
MOV
uSR
,WORD
BlTB
BNE
MOV8
8NE
TST
MOV
ADD
RTI
CMPB
BEQ
CMPB

000200

000001

TSTB
BPL
HALT
BR
MOV
MOV
CMPB

001003

013632
001056

TYPE
MESADR

7$:

$TPFLG
1$
3$
RO,-(SP)
@2(SP),RO
HAPTENV,$ENV
62$
HAPTSPOOL, $ENVM
62$
RO.61$
PC, $ATY3
0
HAPTCSUP,$ENVM
60$
(RO)+,-(SP)
4$
(SP)+
(SP)+,RO
H2, (SP)
HHT',(SP)
8$
HCRLF,(SP)
5$
(SP )+

BNE
TST
TYPE
$CRLF
CLRB
BR
JSR
CMP8
BNE
MOV

$CHARCNT
2$
PC,STYPEC
$FILLC, (SP)+
2$
$NULL, - (SP)

OEca
BLT
uSR

1 (SP)
6$
PC. STYPEC

:: IS THERE A TERMINAL?
: : BR I F YES
::HALT HERE IF NO TERMINAL

:iLEAVE
i ;SAVE RO
: :GET ADDRESS OF ASCIZ STRING
i: RUNNING IN APT MODE
: :NO.GO CHECK FOR APT CONSOLE
: : SPOOL MESSAGE TO APT
: :NO,GO CHECK FOR CONSOLE
: : SETUP MESSAGE ADDRESS FOR APT
: : SPOOL MESSAGE TO APT
: :MESSAGE ADDRESS
: : APT CONSOLE SUPPRESSED
: :YES,SKIP TYPE OUT
: : PUSH CHARACTER TO 8E TYPED ONTO STACK
; ; BR IF lT ISN'T THE TERMINATOR
:: IF TERMINATOR PDP IT OFF THE STACK
i ; RESTORE RD
: : ADJUST RETURN PC
: ; RETURN
; ; BRANCH IF 
j ;

BRANCH IF NOT 

 EQUIV
i i POP
: :TYPE A CR AND LF
CLEAR CHARACTER COUNT
GET NEXT CHARACTER
GO TYPE THIS CHARACTER
IS IT TIME FOR FILLER CHARS,?
I F NO GO GET NEXT CHAR.
GET H OF Fl LLER CHARS. NEEDED
AND THE NULL CHAR.
DOES A NULL NEED TO BE TYPED?
BR IF NO--GO PDP THE NULL OFF OF STACK
GO TYPE A NULL

• MA IN.
MACY 11 30A I 1052)
19-APR-78
CZOlOC. Pl1
19-APR-78 11: 41
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068

013600
013604

105337
000770

013676

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

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

000040
013632
000007

DEca
SR

$CHARCNT
7$

; : DO NOT COUNT A5 A COUNT

;: lOOP

;HORIZONTAl TAB PROCESSOR
8$:
9$:

013676

165212
000002
000015

165204
000002

013676
000012

000002

MOVB
JSR
BITB
BNE
TST
BR
$TYPEC: TSTB
BPl
MOVS
CMPB
BNE
ClRB
BR
1$:
CMPB
BEQ
INCB
$CHARCNT: • WORD
STYPEX: RTS
.SBTTl

#' • ISP)
PC.$TVPEC

N7 ,$CHARCNT
9$
(SP)+
2$
"$TPS
$TYPEC
2(5P) ,@>$TPB
HCR.2ISP)
1$
SCHARCNT
$TYPEX
#LF .2(SP)
$TYPEX
I PC)+

o

;; REPLACE TAB WITH SPACE
j : TYPE A SPACE
; ; BRANCH 1 F NOT AT
;: TAB STOP

;; POP SPACE OFF STACK
; ; GET NEXT CHARACTER
; ;WAIT UNTIL PRINTER IS READY
;; LOAD CHAR TO BE TYPED INTO DATA REG.
;; IS CHARACTER A CARRIAGE RETURN?
; j

BRANCH IF NO

; ;YES--CLEAR CHARACTER COUNT

; ; EXIT
;; IS CHARACTER A LINE FEED?

i ;BRANCH IF YES
; ; COUNT THE CHARACTER
; ;CHARACTER COUNT STORAGE

PC

BINARY TO OCTAL IASCII) AND TYPE

;;.THIS
; . . **,., '" ROUTINE
'" *** '" *$*'"IS'" **USED
*'" '" "' TO
.. ***CHANGE
**** * "''''* '" *** ** '" "'*"'''' .... *** .1It* ••• "'* *.*.>10"
A 16-BIT BINARY NUMBER TO A 6-0IGIT
;.DCTAl IASCII) NUMBER AND TYPE IT.
; <$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

..
..
..
.
..

j"'CALL:
;
MOV
;

;

;
;
;
;

TYPOS
• BYTE
• BYTE

NUM.-(SP)

; ; NUMBER TO BE TYPED

N
M

; ;N=l TO 6 FOR NUMBER OF DIGITS TO TYPE
; ;M=l OR 0
; ; 1 =TYPE LEADING ZEROS
; ; O=SUPPRESS lEADING ZEROS

; ;CALL FOR TYPEOUT

; .$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;<$TYPOS OR $TYPOC
;*CALL:
;
MOV
NUM.-(SP)
i j NUMBER TO BE TYPED
;
TYPON
;;CAll FOR TYPEOUT

;

.

; <$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

; .CALl:

013702
013706
013714
013720
013724
013726
013734

017646
116637
" 2637
062716
000406
112737
112737

000000
000001
014127
000002
000001
000006

014125

014125
014127

.MAIN.
MACYl130All052)
19-APR-78
CZDlDC.Pll
19-APR-78 11:41
3069
3070
3071
3072
3073
3074
3075
3076
3017
3078
3079
3080
3081
30B2
3083
3084
30B5
3086
3087
30B8
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114

SEQ 0078

11: 44
PAGE 76
TYPE ROUTI NE

013742
013750
013752
013754
013756
0'13762
013764
013770
013774
014000
014004
014006
014010
014012
014014
014016
014020
014022
014024
014030
014032
014036
014040
014042
014044
014046
014052
014056
014062
014066
014072
014074
014076
014100
014102
014104
014106
01411 0
014116
014120
014122
014123
014124
014125
014126

112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105

000005

042703
001002
005704
001403
005204
052703
052703
110337
104401
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

014124

014127
000006
014126
014125
000012

014126
177770

000060
000040
014122
014122
014124

000002

MOV

TYPOC

$TYPOS: MOV
MOVB
MOVB
ADD
BR
STYPOC: MOVB
MOVB

NUM.-ISP)

"(SP) .-(SP)
liSP) .$OFIll
(SP)+.$OMODE+l
#2. (SP)
$TYPON
#1. $OFI lL
#6. $OMDDE... ,

11:44
PAGE 77
BINARY TO OCTAL (ASCII)

000404
006105
006105
006105
010503
006103
105337
100016

i*

;*

000004

$TYPDN: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
ClR
1$:
ROl
BR
2$:
ROl
ROL
ROL
MOV
3$:
ROl
OECB
BPl
BIC
BNE
TST
BEQ
4$:
INC
BIS
5$:
BIS
MOVB
TYPE
7S:
OECB
BGT
BlT
INC
BR
6S:
MOV
MOV
MOV
MOV
MOV
RTI
8$:
.BYTE
.BYTE
$DCNT:
.BYTE
$OFILl: .BYTE
$OMODE: .WORD

o
o

j ; PICKUP THE MODE
;iLOAC ZERO FILL SWITCH

; ;NUMBER OF DIGITS TO TYPE
; ; ADJUST RETURN ADDRESS
; ; SET THE ZERO FI Ll SWITCH
; ;SET FOR SIX(6) DIGITS

SEQ 0077
AND TYPE

#5. SOCNT
R3.-ISP)
R4.-(SP)
R5.-ISP)
$OMODE+l • R4
R4
#6.R4
R4,SDMOOE
$OFIll. R4
12(SP) ,R5
R3
R5
3$
R5
R5
R5
R5.R3
R3
$OMODE
7$
"77770.R3
4$
R4
5$
R4
#. a,R3
1/' .R3
R3.8$
,8$
SOCNT
2$
6$
R4
2S
(SP)+.R5
(SP)+.R4
(SP)+.R3
2(SP) ,4(SP)
(SP) .... (SP)

o
o
o

; ; NUMBER TO BE TYPEO
; ;CALl FOR TYPEOUT

SET THE ITERATiON COUNT
SAVE R3
SAVE R4
SAVE R5
GET THF NUM8ER OF DIGITS TO TYPE
SUBTRACT IT FOR MAX. ALLOWED
SAVE IT FOR USE
GET THE ZERO FILL SWITCH
PICKUP THE INPUT NUMBER
CLEAR THE OUTPUT WORD

ROT ATE MSB INTO "C"
GO DO MSB
FORM THIS DIGIT

GET LSB OF THIS DIGIT
TYPE THIS DIGIT?
BR IF NO
GET RID OF JUNK
TEST FOR 0
SUPPRESS THIS O?
BR IF YES
DON'T SUPPRESS ANYMORE 0 I 5
MAKE THIS DIGIT ASCII
MAKE ASCII 1 F NOT ALREADY
SAVE FOR TYPING
GO TYPE THIS DIGIT
COUNT BY 1
8R IF MORE TO DO
BR IF DONE
INSURE lAST DIGIT ISN'T A BLANK
GO DO THE. lAST DIGIT
RESTORE RS
RESTORE R4
RESTORE R3
SET THE STACK FOR RETURNING
RETURN
STORAGE FOR ASCII DIGIT
TERMINATOR FOR TYPE ROUTINE
OCTAL DIGIT COUNTER
ZERO FILL SWITCH
NUMBER OF OIGITS TO TYPE

.MA!N.
MACYll 30A(1052)
19-APR-7a
ClDLDC.P1'
19-APR-7811:41
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
314B
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158

3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170

SEQ 0078
AND TYPE

.SBTTl

TTY INPUT ROUTINE

i ; '" * .... '" >$I

*

• ENABL

LSB

oj! "' ....

*** *.* oil'" •••• "' ..... "'>Ie"' ••••••• '" *** ** * "' .... "'''' ••••• '" •• "'''' ••

; ; "' . . *"' ........... "''''''''''*.* ...... * "' •• '"

000176

001040

022737
001074
105777
100071
117746
042716
022726
001062
123727
001456

014174
014200
014204
014210
014212
014216
014220
014222
014226

104401
104401
013746
104402
104401
005046
005046
105777
100375

014655
014662
000176

014230
014234

117746
042716

164612
177600

014240
014244
014246
014252
014256

021627
001005
104401
062706
000757

000025

9$:

014650
000006

20$:

014260
014264
014266
014272
014274
014302

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737

000015

014306
014312
014320
014322
014330
014332

164700
164674
177600
000007
001034

000001

TYPE
SGTSWR: TYPE
MoV
TYPoC
TYPE
19$:
CLR
CLR
7$:
TST8
BPL

014673

164616

000004
164536

000002
000006
001063
001035

000001

000100

164514

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

ojr. '" lOll.", '" '" >I'll'

11$:
14$:

15$:
16$:

013632

;; ECHO THE CONTRoL-G I "G)
; ; TYPE CURRENT CONTENTS
; ; SAVE SWREG FOR TYPEOUT
; ;GO TVPE--OCTAl ASCII(ALL DIGITS)
; ; PROMPT FOR NEW SWR

.$CNTlG
, $MSWR
SWREG. - (SP)
• $MNEW
-(SP)
-(SP)
!'$TKS
7$

; ;CLEAR COUNTER
; ; THE NEW SWR
; ; CHAR THERE?
; ; I F NOT TRY AGAIN

i ;PICK UP CHAR

MDVB
BIC

(O$TKB. - (SP)
rC177. (SP)

CMP
BNE
TYPE
ADD
BR

(SP).N25
10$
• $CNTLU
'6.SP
19$

;;15 IT A CONTROL-U?
; ; BRANCH I F NOT
;;YES. ECHO coNTRoL-U I"U)
;; IGNORE PREVIOUS INPUT

CMP
BNE
TST
BEQ
MOV
ADD
TYPE
CMPB
BNE
MoV

(SP). "S
16$
4 I SP)
11$
2(SP) .ii>SWR
#6. SP
.$CRLF
$INTAG.#1
15$
#100.@$TKS

; : IS I T A ?
; ; BRANCH I F NO
; ;YES. 15 IT THE FIRST CHAR?

;;MAKE IT 7-BIT ASCII

; i LET r 5 TRY I T AGAIN

; : BRANCH I F YES
;
;
:
;
;
;

; SAVE NEW SWR
; CLEAR UP STACK
i ECHO  AND 
; RE-ENA8LE TTY KBo INTERRUPTS?
; 8RANCH I F NOT
; RE-ENABLE TTY KBD INTERRUPTS
i ; RETURN
; i ECHO CHAR

RTi
PC.$TYPEC

JSR

000060
000067
000060
000002

000002
177776

17$ :

001062

18$:

CMP
BLl
CMP
BGT
BIC
TST
BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE
BR
LSB

SEQ 0079

(SP).#60
lB$
ISP).#67
lB$
#60. (SP)+
2( SP)
17$
(SP)
(SP)
I SP)
2(SP)
-2(SP). (SP)
7$
.$QUES
20$

;; *THIS
: '" "'* * "'*ROUTINE
** "' ... ** *** '" "'.'" ****.*
WI LL INPUT A

..

i CHAR

014430
014436

014444

026627

014452
014454

001013
105777
100375
117746
042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

014460
014462
014466
014472
01447C
014500
014502
014510
014512
014520
014522
014530

000002

164412
177600
000004

000004
000004
000023

164364
164360
177600
000021

000004

000140

000004

000175

000040

000004

$RDCHR: MoV
MOV
1$:
TSTB
BPL
MoVB
BIC
CMP
BNE
2$:
TSTB
BPL
MOVa
BIC
CMP
BNE
BR
3$:
eMP
BLl
CMP
BGT
BIC
4$:
RTI

O?

;STRIP-OFF ASCII
; IS THIS THE FIRST CHAR
; BRANCH I F YES
;No. SHI FT PRESENT
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
; KEEP COUNT OF CHAR
;SET IN NEW CHAR

JGET THE NEXT ONE
; TYPE ?
; SIMULATE CoNTROL-U

.* .

** '"

.*.

** ** **

* * '"
*11< "'.., **
*** •••• It<
SINGLE CHARACTER FROM THE TTY

;*

000004
164416

<

: BRANCH IF YES
; CHAR> 7?
; BRANCH IF YES

i·CALL:
;
RDCHR
;
RETURN HERE

011646
016666
105777
100375
11 7766
042766

** **. '" **,.. '" ** **** ••• * •• * •••••

11 :44
PAGE 79
TTY INPUT ROUTINE

.DSABL

014412
014414
0141122
014426

",to

;.SoFTWARE SWITCH REGISTER CHANGE ROUTINE.
;*RoUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
;*WHEN OPERATING IN TTY FLAG MODE.
SCKSWR: CMP
#SWREG.SWR
;; IS THE SDFT-SWR SELECTEO?
BNE
15$
; ;BRANCH IF NO
T5r8
CiI$TKS
i ;CHAR THERE?
BPL
15$
;;IF NO. DON'T WAIT AROUND
MoVB
(O$TKB.-(SP)
; ;SAVE THE CHAR
BIC
rC177. (SP)
; ;STRIP-OFF THE ASCII
CMP
#7.(SP)+
;;IS IT A CONTROL G?
BNE
15$
; ;No. RETURN TO USER
CMP8
$AUTOB.Nl
; ;ARE WE RUNNING IN AUTO-MODE?
BEQ
15$
; ; BRANCH I F YES

014130
014136
014140
014144
014146
014152
014156
014162
014164
014172

.MAIN.
19-APR-78
MACY11 30A I 1 052)
CZDLDC. Pl1
19-APR-78 11 :41
3171
3172
3173
3174
3175
3176
3177
317B
3179
3180
3181
31 B2
3183
31 B4
31B5
31 B6
31 B7
318B
3189
3190
3191
3192
3193
3194
3195
3196
3197
319B
3199
3200
3201
3202
3203
3204
3205
3206
3207
32DB
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226

11:44
PAGE 78
BINARY TO OCTAL (ASCII)

(SP) .-(SP)
4(SP) .2(SP)
@$TKS
1$
@$TKB.4(SP)
rC.4(SP)
4(SP} .#23
3$
@$TKS
2$
@$TKB.-(SP)
rCI77.(SP)
(SP)+.N21
2$
1$
4(SP) .#140
4$
4(SP) .#175
4$
'40.4(SP)

****

*.

;;INPUT A SINGLE CHARACTER FROM THE
; i CHARACTER IS ON THE STACK
; ;WITH PARITY BIT STRIPPED OFF

TTY

;; PUSH DOWN THE PC
; ; SAVE THE PS
; ;WAIT FOR

i;A CHARACTER
; ; READ THE TTY
; ;GET RID OF JUNK IF ANY
;; IS IT A CoNTROL-S7
; ; BRANCH I F NO
; ;WAlT FOR A CHARACTER
;; LOOP UNTI L I T5 THERE
; ; GET CHARACTER
; ;MAKE IT 7-BIT ASCII
;;IS IT A CONTRoL-Q?
;;IF NOT DISCARD IT
j ; YES. RESUME
;; IS IT UPPER CASE?
; ; BRANCH IF YES
;; IS IT A SPECIAL CHAR?
; ; BRANCH I F YES
; ;MAKE IT UPPER CASE
: : GO BACK TO USER

; ; ***'" *+* *"' •• "'. *"'**"' . . ***""'*** +>1<* ** **"'** ** **** ** * '" "'* *<12>
/"G/<15><12>
<15><12>/SWR

053505

SMNEW:

/

014650

000177
001062
014636
014636
000015
177777
001064

000004
014640

005015
006507
053523
000
047040
000040

000002
000004

.MAIN.
MACYI1 30A(1052)
19-APR-78
CIDLDC. Pl1
19-APR-78 11 :41

NSTTYIN+S. ,R3
4$

BUFFER FULL?

SR IF YES
GO READ ONE CHARACTER FROM THE TTY
GET CHARACTER
I S IT A RU80UT
SKIP I F NOT
TYPE A '? '
CLEAR THE 8UFFER AND LOOP
ECHO THE CHARACTER

(SP)+. (R3)
',77,
(R3)
3$
, $QUES
1$
(R3J,9$
,9$
',5, (R3)+
2$
-1 (R3)
,$LF
(SP)+,R3
(SP) ,-(SP)
4(SP) ,2(SP)
#$TTYIN,4(SP)

CHECK FOR RETURN
LOOP I F NOT RETURN
CLEAR RETURN (THE 15)
TYPE A LINE FEED
RESTORE R3
ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT

a
a

.ASeIZ

./

RETURN
STORAGE FOR ASCII CHAR. TO TYPE
TERMINATOR
RESERVE B BYTES FOR TTY INPUT
CONTROL "u"
CONTROL 'G'

NEW· /

seQ

11:44 PAGE 81
TTY INPUT ROUTINE

3256
3257
3258
3259
3260

.58TTL

0081

TRAP DECODER

; ; ",,,, '" "' ... *** ***** ** *",,,,11< '" ******* *** ... ****** '" ** '" ** ...

*. '" ** .*.* "' ... '" ***** **

;.THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP"

3261

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

SEQ OOBO

11 :44
PAGE 80
TTY INPUT ROUTINE

INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
014704
014706
014712
014714
014716
014720
014724

010046
016600
005740

014726
014730
014736

011646
016666
000002

STRAP:
000002

111000

006300
016000
000200

014740

MDV
MOV
TST
MOVB
ASL
MOV
RTS

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

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

; ;THIS IS USE TO HANDLE THE 'GETPRI" MACRO

000004

000002

$TRAP2: MDV
MOV
RTI
.S8TTL

(SP) ,-(5P)
4(SP) ,2(SP)

j ; MOVE THE PC DOWN
i i MOVE THE PSW DOWN
; ; RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;.BY THE "TRAP" INSTRUCTION.
ROUTINE
014740
014742
014744
014746
014750

014726
013420
013726
013702
013742

$TRPAD:

.WORD
$TYPE
$TYPOC
STYPOS
$TYPON

$TRAP2
j jCALL",TYPE
: jCALL=TYPOC
; ;CALL=TYPOS
; j CALL=TYPON

TRAP+l (104401 )
TRAP+2( 104402)
TRAP+3( 1 04403)
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)
GET SOFT-SWR SETTING

014752

014200

SGTSWR

; ;CALL=GTSWR

TRAP+5 ( 104405)

014754
014756
014760

014130
014412
014532

$CKSWR
SRDCHR
SRDLIN

; ;CALL=CKS\\~
; ;CALL=RDCHR

TRAP+6 ( 104406)
TEST FOR CHANGE IN SOFT-SIIIR
TRAP+7 ( 104407)
TTY TYPEIN CHARACTER ROUTINE
TRAP+l0(104410) TTY TYPEIN STRING ROUTINE

; ;CALL=RDLIN

19-APR-78
MACVll 30A (1052)
·MAIN.
19-APR-78 11 :41
CZDLDC. Pll
3300
3301
3302
3303
3304
3305
3306
3307
330B
3309
3310
3311
3312
3313
3314
3315
3316
3317
331B
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
334'
3342
3343
3344
3345
3346
3347
334B
3349
3350
3351
3352
3353
3354
3355

;

;."'

SEQ OOlli

................... "' ..........................................
• S8TH

ECHO TEST

: -THIS ROUTINE WI LL ECHO ANY CHARACTER TYPED
: -AT THE CONSOLE
: -THE TEST IS HAL TED BY TYPING A CONTROL-C
: -TEST CAN BE RESTARTED AFTER HALTiNG BY .lUST CONTINUING

; j •••••••••••

* •••••••••••••••••••••••••••••••••••••••••••••••••••

ECHO:

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
0'5074
0'5'00
0'5,02
0'5,04

000005
112777
105777
100375
117777
017700
100023
052701
030100
001403
004737
015134
006301
030100
001403
004737
015145
006301
030100
001403
004737
015157
042700
022700
00'337
004737
0' 5'72
000000
000726

01S106
0'5,'0
0,5114
0,5,20
015,22
0,5, 26
0'5,30
015, 32

013600
062746
'05777
100375
11'2077
,057'0
00'37,
000207

0,5'34
0'5,42
0,5,45
0'5152
015157
015164
015172
015200

0050,5
054524
0,5
044515
015
043122
005015
000

000052
165370

165402

165364
165356

1653611

2$:

010000
015106
3$:

015106
4$:
015106
5$:

000200
000003
015106

MSG:
000002
165252

WAIT:

,65246

040520
000
0430'2
043516
047412
047514
052123

RESET
MOVS
TST8
BPL
MOVB
MOV
BPL
BIS
BIT
BEQ
uSR
MPAR
ASL
BIT
BEQ
uSR
MFR
ASL
BIT
BEQ
uSR
MOR
BIC
CMP
BNE
uSR
MSTOP
HALT
BR
MOV
ADO
TSTB
BPL
MOVB
T5TB
BNE
RTS

/11",

.f;ilCTBUF

:CLEAR EVERYTHING
: TRANSMIT PROMPT
:WAIT FOR INPUT

"- .

l'CRCSR
2$
l'CRBU F • l'CTBUF
l'CRBUF. RO
5$
NBIT12.Rl
Rl.RO
3$
PC.MSG

; ECHO INPUT
: STORE INPUT
:BR IF "ERROR"NOT SET
: SET PARITY ERROR TEST MASK
: CHECK FOR PARITY ERROR FLAG
: BR IF NOT SET
: REPORT PARITY ERROR

Rl
Rl.RO
4$
PC.MSG

:SHIFT MASK TO TEST "FR" flAG
:TEST FOR FRAMING ERROR FLAG
:BR IF NOT SET
: REPSORT FRAMING ERROR

Rl
Rl.RO
5$
PC.MSG

:SHIFT M,.SK TO TEST 'OR" FLAG
: TEST FOR OVERFLOW ERROR
: BR I F NOT SE T
: REPORT OVERFLOW ERROR

'B1T7. RO
'3.RO
2$
PC.MSG

:CLEAR ANY PARITY BIT
:WAS INPUT CONTROL-C
;BR IF NOT
; REPORT PROGRAM STOP

ECHO

; END OF TEST HALT
;AFTER END OF TEST HALT
PRESS CONTINUE TO RESTART ECHO TEST

l'(SP)+.RO
'2.-(SP)
l'CTCSR
WAIT
(RO)+.l'CTBUF
(RO)
WAIT
PC

; PICK UP MESSAGE POINTER
; AOuUST RETURN PC
; WAIT FOR XMIT OONE
:SEND CHARACTER
: IS THIS END OF MESSAGE?
; BR IF NOT
: RETURN

044522

MPAR:

.ASCIZ

/PARITY I

040522
OOl
042526
000127
050117

MFR:

.ASCIZ

/FRAMINGI

.MAIN.
MACY1! 30A( 1052)
19-APR-78
CZDLDC.Pl1
19-APR-7B 11:41
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
336B
3369
3370
3371
3372
3373
3374
3375
3376
3377
337B
3379
3380
33Bl
3382
3383
3384
3385
33B6
33B7
33BB
3389

11:44 PAGE 82
ECHO TEST

MOR:

.ASCIZ

< LF> lOVER F LOWI

MSTOP:

.ASCIZ

/STOPI

11 :44 PAGE 83
ECHO TEST

SEQ 0083

.EVEN

015202
.SBTTL

; ;"'

TERMINAL OUTPUT TEST

..................................................................

;-THIS ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS FOR THE
; _THE OCTAL CODE 040 --> 377
: -32 CHARACTERS ARE PRINTED ON EACH LINE
;*THE PATTERN IS REPEATED EVERY THREE LINES

;;

015202
015206
0152,2
015216
015220
015224
015226
015230
015232

012701
012700
105777
100375
010177
105201
005300
001370
004737

015236
015240
015244
015246
015252
015254

001063
105777
100404
032701
001353
000754

015256
015262
015264

005077
000000
000746

000040
000040
165154
165150

015106

.................................................................

$CRLF
TSTB
BMI
BIT
BNE
BR

165122
000200

165106

:

OUTTST: MOV
1$:
MOV
2$:
T5TB
BPL
MOV
INCB
DEC
BNE
uSR

3$:

CLR
HALT
BR

'40,R1
'40.RO
l'CTCSR
2$
Rl ••CTBUF
Rl
RO
2$
PC.MSG

: LOAD FIRST WRITABLE CHARACTER
: LOAD CHAR COUNT PER LINE
: WAIT FOR DONE
TRANSMIT A CHARACTER
INCREMENT CHARACTER CODE
DECREMENT CHAR COUNT
BR IF LINE NOT COMPLETE
SSUE CR .LINE FEED

PCRCSR
3$
NBIT7.Rl
OUTTST
1$

ANY CHARACTER RECEIVED?
BR IF YES
FINISHED ONE PASS OF WRIT AILE CHARACTER,,?
BR IF YES
I F NOT WRITE NEXT LINE

PCRBUF

CLEAR RECEIVER
STOP TEST
RESTART TEST IF CONTINUED

OUTTST

.MAIN.
MACVll 30A(1052)
19-APR-78
19-APR-7811:41
CZDLDC.PI1
3390
3391
3392
3393
3394
3395
3396
3397
339B
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439

015266
015274
015302
015310
015312
015320
015326
015334
015336
015344
015352
015360
015366
015374
015402
015403
015410
015416
015424
015425
015432
015440
015446
015454
015462
015470
015476
015504
015506
015514
015522
015530
015532
015540
015546
015554
015555
015562
015570
015576
015604
015612
015620
015626
015634
015642
015650
015651

3440

015656

3441
3442
3443
3444
3445

015664
015672
015700
015704
015712

040503
020124
051523
000122
040503
020124
051523
000106
041524
047117
020124
042522
044124
020106
000
124
047504
052117
000
124
047504
052117
053440
042522
040503
020124
051523
000122
040503
020124
051523
000106
040503
020124
051523
000
102
043117
020122
046103
043101
042522
040503
020124
044502
020106
000
103
052117

0511 01
020060
051503
042522
044504

.

015720
015726
015734
015742
015745
015752
015760
015766
015774
016002
016010
016016
016024
016032
016040
016041
016046
016054
016062
016070
016074
016102
016110
016116
016124
016132
016135
016142
016150
016156
016164
016172
016200
016201
016206
016214
016222
016230

016236
01624~

016252
016260
016266
016267
016274
016302
016310
016316
016322
016330
016336
016344
016352
016360
016363
016370

020124
020122
047440
051123
102
043117
020122
046103
043101
042522
040503
020124
044502
020106
000
103
052117
0511 01
020062
051503

042522
044504
020124
020122
047440
051123
102
043117
020122
046103
043101
042522
000
130
047111
050125
050040
052111
040503
020124
044502
020106
000
103
052117
051101
020066
051503
042522
044504
020124
020122
047440
051123
102
043117

SEQ 0084

020116
041501
052040

047516
042503
051503

EM1:

.ASCIZ

ICAN NOT ACCESS TCSRI

020116
041501
052040

047516
042503
052502

EM2:

.ASCIZ

leAN NOT ACCESS TBUFI

051123
020105
046103
020104
052040
052506

042040
04751&
040505
044527
052502
046114

EM3:

.ASCIZ

ITCSR DONE NOT CLEARED WITH TBUF FULLI

051503
042516
051440

020122
047040
052105

EM4:

.ASCIZ

ITCSR

051503
042516
051440
05211 1
042523
020116
041501
051040

020122
047040
052105
020110
000124
047516
042503
051503

EMS:

.ASCIZ

ITCSR DONE NOT SET WITH RESET I

EM6:

.ASCIZ

ICAN NOT ACCESS RCSRI

020116
041501
051040

047516
042503

EM7:

.ASCIZ

ICAN NOT ACCESS R8UF I

020116
041501
046040

047516
042503
051513

EM10:

.ASCIZ

ICAN NOT ACCESS LKSI

052111
052040
047516
040505
042524
042523
020116
042523
030124
041524

020060
051503
020124
020122
020122
00.0 124
047516
020124
047440
051123

EMIl:

.ASCIZ

IBITO OF TCSR NOT CLEAR AFTER RESET I

EMI2:

.ASCIZ

ICAN NOT SET BITO OF

EMI3:

.ASCIZ

ICAN NOT CLEAR BITO OF TCSRI

EMI4:

.ASCIZ

IRESET DID NOT CLEAR BITO OF TCSRI

047101

047040

041440

042514

041040
043117
000122
042523
020104

052111
052040
020124
047516

040505
030124
041524

047101
041440
041040
043117
000122
042523
020104
046103
044502
020106
000
052111
052040
047516
040505
042524
042523
044515
042524
020124
044522
020131
020116
033124
041524
047101
041440
041040
043117
000122
042523
020104
046103
044502
020106
000
052111
051040

TCSRI

seQ

11:44 PAGE 85
TERMINAL OUTPUT TEST

046103
044502
020106
000
052111
052040
047516
040505
042524
042523
020116
042523
031124
041524

042523

OONE NOT SET I

0525C~

19-APR-78
.MAIN.
MACVll 30A(1052)
19-APR-78 11 :41
CZDLDC. PI1
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
347B
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
349B
3499
3500
3501

11:44 PAGE B4
TERMINAL OUTPUT TEST

EMI5:

.ASCIZ

IBIT2 OF TCSR NOT CLEAR AFTER RESET I

EMI6:

.ASCIZ

ICAN NOT SET 8IT2 OF TCSR/

047040
042514
052111
052040

EMI7:

.ASCIZ

ICAN

020124
047516
040505
031124
041524

EM20:

.ASCIZ

IRESET DID :.OT CLEAR BIT2 OF TCSR/

020066
051503
020124
020122
020122
027524

EM21l

.ASCIZ

; BIT6 OF TCSR NOT CLEAR AFTER RESET I

020124
051122
052101

EM22:

.ASCIZ

IXMIT INTERRUPT AT PRIORITY

EM23:

.ASCIZ

ICAN NOT SET BIT6 OF TCSRI

047040
042514
052111
052040

EM24:

.ASCIZ

ICAN NOT CLEAR BIT6 OF TCSRI

020124
047516
040505
03312,
041524

EM25:

.ASClZ

IRESET 010 NOT CLEAR BITS OF TCSR/

020066
051503

EM26:

.ASCiZ

IBITS OF RCSR NOT CLEAR AFTER RESET I

020062
051503
020124
020122
020122
000124
047516
020124
04744~

051123
NOT CLEAR BIT2 OF TCSR/

71

051117
000067
047516
020124
047440
051123

0085

19-APR-78
MACYll 30A (1052)
·MAIN.
19-APR-78 11 :41
CZDLDC. Pll
3502
3503
3504
3505
3506
3507
3508
3509
3510

3511

016376
016404
016412
0'\ 6420
016426
016434
016442
016450
Oi6456

o Hi464

35' ;2
3513

o i 6465
016472

3514
3515
3516
3517
3518
3519
3520

0' 6500

3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
35.33

3534
3535
,~1S.36

-1S37
3538
3539
'35--10
3541
3542

016506
016514
016516
016524
016532
016540
016546
016551
016556
016564
016572
0' 6600
o ! 6606
o i 6814
016617
016624
Of 6632
016640
016646
016654
o 1f:i2-o1
011366'3
(;16674
0167C2
0: 671 0
0167~6
r) t 6717

3544

r; j 6724
6732
('11)740

:!5(.7
354e
354S
3550

1::754
! 6762
<';! 6770
67'16

355~

f"-i

3543

3552
.1553
3554

3555
3556
3'557

/, i

70e,
7(}06

,.

~,

70 i 4

D! 7022
1 '7030
7D36

1041

020122
046103
04310 t
042522
041522
052116
052120
010110
044522
000
103
052117
041040
043117
000122
040503
020124
020122
047440
0511 23
103
052117
051 t 01
020066
051503
044124
052 t 05
102
043117
C47040
042514
052106
051505
114
052116
~5 2120
020110
044522
000
103
052117
041040
043117
000
103
052117
051101
020056
051513
122
042040
052117

05,,01
020066
051513
104

017046
01 -;054
017062

3613

017515

01:067
1)17074
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

PAGE 86
TERMINAL OUTPUT TEST

047516
040505
042524
042523
051126
05110S
053440
051120
054524

020124
020122
020122
000124

047101
051440
052111
051040

INTERRUPT WITH PRInRlTY 7/

EM27:

.ASCIZ

/RCVR

047040
052105
020066
051503

EM30:

.A5CIZ

leAN NOT SET

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

047516
040505
033124
041522

EM31 :

.ASCIZ

/CAN NOT CLEAR BIT6 OF RCSR/

047040
042514
052111
051040
044527
051505

EM32:

.ASCIZ

/CAN NOT CLEAR BITS OF RCSR WITH RESET /

020066
051513
041440
04044!"

EM33:

.ASCI!

/B1T6 OF LKS NOT CLEAR AFTER RESET/

EM34:

.ASCIZ

/LKS INTERRUPT WITH PRIDRITV 7/

047101
051440
052111
046040

047040
052105
020066
051513

EM35:

.ASCIZ

/CAN NOT SET BIT6 OF LKS/

047040

EM36:

.ASCIZ

/CAN NOT CLEAR BIT6 OF LKS/

052105
047040
042514
05211 j
046040

EM37:

.ASCIZ

/RESET DID NOT CLEAR BIT6 OF LKS/

020114

EM40:

.ASCIZ

/DUAL ADDRESSING ERROR/

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

044440
052522
052111
04 751 ~
033440

BITS

OF RCSR/

"

051040
000
044440
052522
052 t i 1
047511
033440

042514
052111
046040

19-APR-78
.MAIN.
MACY11 30A (1052 J
, 9-APR-78 11 :41
CZDLDC. Pl1
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

SEQ 0086

11:44

11 :44
PAGE 87
TERMINAL OUTPUT TEST

04210 i
044523
051122
102
043117
047040
052' 05
051105
052105
103
052117
051101
020067
051513
102
043117
042040
047516
000124
052122
042524
020124
044522
020131
052122
042524
051524
020116
046102

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

051505
042440
000
020066
051513
051440
052106
051505

020103
051122
052101
051117
000067
020103
0511 22
053440
044504
042105

122
052116
052120
047040
041503
122
052517
047111
050125
042522
044504
020124
051122
052122
042524
020124
047516
040505
044124
020067
051513
103
051040
040524
054524
130

041524
051105
042040
052117
05i 125
041524
046102
042524
000124
042523
020104
047111
050125
020103
051122
044504
020124
020122
041040
043117
000
047514
050105
044502
000
044515

EM41 :

.ASCIZ

/B1T6 OF LKS NOT SET AFTER RESET /

047040
042514
052111
046040

EM42:

.ASCIZ

/CAN NOT CLEAR BIT7 OF LKS/

020067
051513
020123
042523

EM43:

.ASCIZ

/B1T7 OF LKS DOES NOT SET /

047111
050125
050040
052111

EM44:

.ASCIZ

/RTC INTERRUPT AT PRIORITY 7/

047111
050125
042510
040523
000

EM45:

• ASCIZ

/RTC INTERRUPTS WHEN OISABLED/

EM47:
EM46:

.ASCIZ

/RTC INTERRUPT OlD NOT OCCUR/

EM50:

.ASCIZ

/RTC DOUBLE INTERRUPT /

EM51 :

.ASCIZ

/RESET OlD ~OT INTERRUPT /

EM52:

.ASCIZ

/RTC INTERRUPT 010 NOT CLEAR WITH BIT7 OF LKS/

EM53:

.ASCIZ

/CLOCK REPEATABILITY/

EMS4:

.ASCIZ

/XMIT INTERRUPTS WHEN DISABLED/

044440
052522
04211
047440
000
042040
020105
051122
020124
047516
042524
000124
047111
050125
020104
046103
044527

052111
046040
045503
040505

044514
020124

SEQ 0087

19-APR-78
.MAIN.
MACV11 30A 1 1052)
19-APR-78 ,1:41
ClDLDC. Pl1
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
o t 7764
017772
017773
020000
02000€
020014
020017
020024
020032
020040
020043
020050
020056
020064
02C072
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
OOC
122
040516

042524
051524

020116
046102

051122
053440
044504
042105
020124
051122
040440
047511
033440

EM56:

.ASCIZ

/XMIT INTERRUPTS AT PRIORITY 7/

042524
051524
051120
054524
044515
042524
051524
020110
042514
0511 01

020124
05112,:;!
053440
047105
041440
000

EM57:

.AselZ

/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 010 NOT CLEAR INTERRUPT/

053103
044524
052117
000
053103
042516
051105
000
053103
044524
052117
051101
052111
042516
000
051505
042111
041440
051040
047504

020122
042526
051440

EM63:

• ASCIZ

/RCVR ACT I VE NOT SET /

020 1 22
047040
051440

EM64:

• AselZ

/RCVR DONE NEVER SET /

020122
042526
041440
042105
020110
051440

EM65:

.ASCIZ

/RCVR ACTIVE NOT CLEARED WITH OONE SET/

052105
047040
042514
0531 O~
042516

EM66:

• ASCIZ

/RESET DID NOT CLEAR RCVR OONEI

0511 04
046102

042440
020105

EM67:

.ASCIZ

/RDR ENABLE DID NOT CLEAR RCVR DONE/

044515

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

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

020604
020611
020616
020624
020632

SEQ OOBB

11 :44
PAGE 88
TERMINAL OUTPUT TEST

SEQ 00B9

11 :44
PAGE 89
TERMINAL OUTPUT TEST

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

020104
046103
041522
047117
042101
041122
042111
041440
051040
047504

047516
040505
051126
000105
047111
043125
047040
042514
053103
042516

053103
042524
051524
020110
042514
051101
053103
042524
051524
051120
054524

020122
051122
053440
047105
041440
000
020122
051122
040440
047511
033440

053103
020124
050040
020104
042440
020105
000 122

020122
050522
051501
044527
040516
046103

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

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

042040
052117
051105
000
020122
052116
052120

042523
020104
046103
041522
052116
052120
051117
043501
047040
052105

EM70:

.ASCIZ

/READING RBUF DID NOT CLEAR RCVR DONE/

EM71 :

.ASCIZ

/RCVR INTERRUPTS WITH ENABLE CLEAR/

EM73:

• ASCIZ

/RCYR INTERRUPTS AT PRIORITY 7/

EM74:

.ASCIZ

/RCVR INT RQST PASSEO WITH ENA8LE CLEARI

EM72:
EM75:

.ASCIZ

/RCYR DID NOT INTERRUPT /

EM76:

.ASCIZ

/RCVR RE-INTERRUPTED/

044504
052502
020104
046103
047111
050125

EM77:

.ASCIZ

/READING RBUF DID NOT CLEAR INTERRUPTI

020124
047516
040505
051126
051105
000
020047
042040
052117
000

EM100:

.AselZ

/RESET DID NOT CLEAR RCVR INTERRUPT /

EM101 :

.ASCIZ

IICR I

FLAG DID NOT SET/

.MAIN.

MACY11

CZDLDC. P1l

3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748

020637
0.20644
020552
020560
020566
020674
020676
020704
020712
020720

020726
020734
020742
020750
020756
020764
020771
020776
021004
021012
021014
021022
02' 030

3749

021036

3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
377,
3772
3773
3774
3775
3776
3777
3778
3779
3780
3761

021044
02:1052
021060
021066
021074
021102
021104
021112
02112:0
0211.26
021 I 34
021142
021150
021156
021164
021172
021174
021202
021210
02121 I
021215
021224
021232
021240
021246
021247
021254
021262
021270
021276
021304
021306

19-APR-78
30A ( 1 052)
19-APR-78 11: 41
047
023522
051440
052111
023522
000107
051102
044504
02 a 1 24
040440
05" 05
051102
044504
020124
043047
051122
104
047503
020105
00 a 122
040504
046517
042440
053440
040503
044524
020124
042530
051' 05
000124
047111
Q415CS

042503
047503
040504
046S 17
042:440
044440
051105
000122
051124
052'01
000
116
020113
05 t 122
047111
04152:2
000
042
021122
051440
052111
02" 22
000107
041522

3797
3798
3799
3800
3801
3802
3803
3804
3905
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
38'6
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837

IOR I FLAG!

047522
052117
053440
047447
040514

EM102:

.ASCIZ

/ ' ERROR' NOT SET WITH

047040
052105
020110
043040
040505
020104
046530
046114
042517
040505
020104
042523
023522
0511 I 7
052101
050115
051105

020113
047516
052' 11
055040
000123
020113
047516
020'24
042440
000
020101
051101
047522

E""03:

.ASCIZ

/BREAK OlD NOT XMIT ALL ZEROES/

EM104:

.ASCIZ

/BREAK DID NOT SET

EM105:

.ASCIZ

/OATA COMPARE ERROR/

040524
040520
051122:
052:111
046102
042515
047111
041522
052040

041440
042522
051117
020110
DOD 1 05
052517
042440
051511
051505

EM106:

.ASCIZ

/DATA COMPARE ERROR WITH CABlE/

EM107:

.ASCIZ

/TIMEOUT IN EXERCISER TEST/

047503
020124
0531 I 1
047125
040524
040520
051122
020116
044503

051122

EM" 0:

.ASCIZ

/INCORRECT RECEIVE COUNT /

EM1 11:

.ASCIZ

/DATA COMPARE ERROR IN EXERCISER/

050101
044103

041440
05110S

EM112:

.ASCIZ

/TRAP CATChER/

0201 17
047111

EM113:

.ASCIZ

/NO ClK INTERRUPT IN EXERCISER/

042440
051511

046103
042524
020124
042530
051105

05" 05
047040
052105
020110
043040

047522
052117
053440
043042
040514

EM114 :

.ASCIZ

/"ERROR' NOT SET WITH " FR"

020126

041501

EM" 5:

.ASCIZ

/RCV ACTIVE NOT CLEAR WITH INIT/

051105

050125

'FR' ERROR/

042522
0201C~

000124
041440
042522
051117
054 I as
042523

19-APR-78
.MAIN.
MACV11 30A(1052)
19-APR-79 '1 :41
CZDLDC. PI 1
3782
3783
3784
3785
3786
3787
3788
3789
3790
379'
3792
3793
3794
3795
3196

SEQ 0090

PAGE 90
11 :44
TERMINAL OUTPUT TEST

FLAG/

SEQ 0091

, 1 :44
PAGE Yl
TERMINAL OUTPUT TEST

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

044524
052117
05110 t
0201 to
000
122
052103
044527
020124
052122
000124
042122
041101
052117
as 11 01
020110
041501
000

042526
041440
053440
047111

047040
042514
052111
052111

053103
0531 I 1
04~ 124
051442
020042

040440
020105
0525,7
040524
044502

EM" 6:

.ASCIZ

/RCV ACTIVE WITHOUT

020122
042514
041440
053440
041522
044524

047105

EMll7:

.ASCIZ

/ROR ENA8lE NOT CLEAR WITH RCV ACTIVE/

021451
021456
021464
021472
021476
021504
021512
021520
021523
021530
02' 536
021544
021550
02' 556
02' 564
02' 572
02' 575
021602
021610
021616
021621
021626
02' 634
021642
021650
021655
021662
021670
021676
021704
021712
021720
021722
021730
021736
021744
021752

, 24
020040
051117
051503
042524
020040
041520
043125
'24
020040
050040
as 1503
042524
020040
041520
043125
124
020040
050040
051513
'24
020040
050040
047517
04'040
124
020040
050040
051513
041440
020040
000062
042524
020040
04,520
0511 23
040504

051505
04.2440
020043
000122
052 I 23
0511 05
020040
000
051505
042440
020103
000122
052123
051 105
020040
000
051505
042440
020103
000
051505
042440
020103
020104
042101
051505
042440
020103
020040
052116
041440
052123
0511 05
020040
020040
040524

'START' BIT/

047041'1
042514
052111
020'26
042526

.;

02' 524
05' 122
052040

DHI:

.ASCIZ

/TESH

ERRORN

TCSR/

020043
020'22
041124

DH2:

.ASCIZ

/TESH

ERR PC

TBUF/

02'524
051122
051040

DHS:

.ASCIZ

/TESTN

ERR PC

RCSR/

020043
020122
041122

OH7:

.ASCIZ

/TESH

ERR PC

RBUF/

021524
051122
046040

OHIO:

.ASCIZ

/TESH

ERR PC

LKS/

021524
051122
043440
020040
000
02'524
051122
046040
020040
020061
052116

OH40:

.ASCIZ

/TESTN

ERR PC

GOOD

8AD/

OH53:

.ASCIZ

/TEST>

ERR PC

lKS

CNTI

02004~

DH103:

.ASCIZ

/TESTN

ERR PC

RCSR

DATA/

020122
041522
020040
000

CNT2/

,MA.IN.
MACY
ClDLDC.P11

3838
3839
3840
3841
3842
3843
3844
~{B45

~

3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
~")72

3873
3874
3975
3876
3877
3878
3879
3880
3881
3882
3893
3884
3B85
3886
3887
38B8
3889
3890
3891

~ ~

02! 757

021764
02 1 772
022000

19-APR-78
30A ( 1 052)
19-APR-78 1 ! : 41
124

020040

051505
042440
020 I 03
020122

ITES,.

ERR PC

RCSR

GOaD

BAOI

DHl1 0:

.ASCIZ

jTE5TN

ERR PC

RCSR

TRANS

Revi

021524
051122
051040
020040
041520
040522
000122

DH1'2:

.ASCIZ

/TESH

ERR PC

RCSR

OLOPC

TRAP ADR/

046104

Ml :

.EVEN
.ASCIZ

 /CZDLD-CI

M2:
M2A:

• EVEN
.ASCII
.ASCIZ


DEVICES UNOER TEST
/

021524

051505
042440
020103
020122
042114
052040
042101

022140
022146

005015
026504

055103
000103

022152
022154
022162
022170
022176

005015
020040
041511
042116
051505

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

051122
051040
020040
051516
053103

042040
051505
051105
020124

053105
052440
052040
000040

001015

002352

OT"

.EVEN
.WORD

$TESTN,$ERRPC, TCSR,O

001016

002354

OT2:

.WORO

$TESTN,$ERRPC,TBUF,O

001016

002346

OT6:

.WORO

$TESTN. $ERRPC, R~SR, 0

001016

002350

0T7:

.WORO

$TESTN, $ERRPC, R8UF, 0

001016

002406

OTlO:

.WORD

$TESTN,

001016
000000
001016
006602
001016
000000
001016
001026
001016
011726
001016
012302

001020

OT40:

.WORO

$ TEST N, $ERRPC, $GDAOR, $8DAOR, 0

002406
000000
002346

DT53 :

.WORO

$TESTN, $ERRPC. lKS, FIRST, SECNO, 0

DT103:

.WORD

$TESTN ,$ERRPC, RCSR, $BDDAT, 0

DlI 05:

.WORD

$TESTN, $ERRPC, RCSR, $GODAT • $800AT ,0

DTl1 0:

.wORO

$TESTN, $ERRPC, RCSR, XMTCNT ,RCVCNT ,0

DT112:

.WORO

$TESTN, $ERRPC, RCSR, OLDPC, BOVECT ,0

DOCDDO
001072
000000
001072
001022
001072
006600
001072
001026
00,072
001024
001072
011730
001072
012300
000001

002346
000000
002346
000000
00234,3
000000

=
=

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
003562
002414
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

00000 t
000200
000100
003266
000000
000000
000000
000400
000300
000000
012302

~ERRPC,

LKS, 0

.END

19-APR-7B
.MAIN.
MACY11 30A(1052)
19-APR-7B 11 : 41
CZDlDC. PI 1
176500
000000
000000
000000
000000
000000
000000
000000

SEQ 0092

.ASCI!

051505
042440
020103
020122
040522
051040

047517
041040

44
PAGE 92
TERMINAL OUTPUT TEST
DH1OS.

021524

022014
022022
022023
022030
022036
022044
022052
022060
022066
022067
022074
022102
0221 to
022116
022124
022132

022006

~

0511.22
051040
020040
020104
042101

050040
D5150:3
043440
020040
000
124
020040
050040
051503
052040
020040
000
124
020040
050040
051503
047440
020040
020120

3892

ABASE =
ACDW1 =
ACDW2 =
ACPUOP=
ADDWO =
ADDW1 =
ADDW10=
ADDW11 =
ADDW12=
AODWI3=
ADDW14=
ADDW15=
ADDW2
ADDW3
ADDW4
ADOW5
ADDW6
ADDW7
ADDW8
ADDW9
ADEVCT=
ADEVM =
ADR
ADRT8l
AENV
AENVM
AFATAL=
ArMOR1
AMADR2=
AMAOR3=
AMAOR4 =
AMAMS 1.=
AMAMS2 =
AMAMS3:::
AMAMS4=
AMSGAD;
AMSGLG=
AMSGTY=
AMTYP1=
AMTyP2=
AMTYP3=
AMTYP4=
APASS =
APRIOR=
APTCSU:::I
APTENV=
APTSIZ=
APTSPO=
APTSZO
AS\,\1REG=
AT ESTN=
AUNIT =
AUSWR =
AVECT1,
AVECT2-:::
BOVECT

11

537.
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
1314.
1139.
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
650
2955.
2731
1207
2912
121 B
650
650
650
539.
538#
650

2697*

11 :44
PAGE 94
CROSS REFERENCE TABLE - - USER SYMBOLS

650

691

665

656
692
1317
1145
661
662
653
678
682
685
68B
672
68r
683
686
658
659
652
673
681
684
6B7
655
29B8
2910
2952'

2954#
1220
663
654
657
650
650
690
2703'

1312

2953.
2983
'245'

664
689
3890

29Bl

SEQ 0093

.MAlN.

MACV11

CZDlDC. PI 1
BEGIN
003424
BI TO
'" 000001

30A (1052)
19-APR-7B

19-APR-78
41

1281'
522#
2177

BITOO
000001
BITOl = 000002

512ft

81 T02 :: 000004

510#
509H
508H
507#
50S'
505H
50411
503#

000010

Bl r03
BIT04
BITOS
BlTOS
B 1 T07
BITOB

000020

000040
000100
000200

BI TOg

t;::

BITI

•

BIT! 0
BIT11
Bl T12
BIT13 •
BIT14
BlT15

;II

81 T2

•

000400
001000

000002
002000
004000
010000

020000
040000
100000
000004

511 AI

52111

502.
SOU
500.
49911
49B#

497#
52011
2140

2247
2420

OlT3

:: 000010

81 T4
8IT5
BITS

000020
000040
• 000100

81 T7

= 000200

81 TB

000400

BIT9
8PT
SPTVEC.
8UF

001000
000003
000014

1211

1219
1574
1642
1792
1946
2092
2539

COMP
CONT

011560

2580
1964
2588#

005566
010724

2411

1778#
437#
112611'

1125#
438#
1130#

2586
2695#
2864
2622'
2622*
1967#
2592
1781
2418.
2676
3312
1237
2998

CTP5W

002404
002336

CTVECT

002402

DO I SP = 177570
002514
021451

DH10

021575

DH1Q3
OH105

021722
021757
022023

3312*
3372

1131 II
444#
114511

713
798
748
908
1044
1054

021476

718

021621

OH53

021655

DH6

021523

868
923
738
998
1099
743
633#
563'

OT10

022244

D f1 03
0T1 05

022302
022314
022330
022344
022214
022254
022266
022224

OT110

OT 112
DT2
DT40
OT53
DT6

443#

714
799
749
909
1045
1055
1070
1080
719
B69
924
739

999
1100

OT7

DVAOT
ECHO
EMTVEC=
EMI
EM10
EM100
EM101

EM102
EM103
EM104

EM10S
(M106
EM107
EM11

022234
003314
014762
000030
015266
015532
020546
020611
020637
020676
020734
020771
021014
021052
015555

EM11 0

0:21104

EMf l '

0211 34
021114

EM112

1510

1512

1514

2167

2172

1555
2191
2322
2482

1557
2196
2326
2544

1560
2209
2351

2106
2217
2376

2113
2220
2383

2124
2228
2403

2131
2233
2415

1599
1699

1616
1700
1885
2030
2290

1626
1704
1892
2047
2301

1627
1706
18.99
2056
2321

1633
1735
1914
2066
2331

1634
1736
1921
2079
2350

1855

1!l91

1920

1924

2490

3860

3863

2,28

2144

1537
2158
2267
2441

1542
2168
2285
2462

, ~ ,3
2180
2289
2479

1420
2609
1585
1675
1824
1989
2208
2545
1769

1724

1977

1591
1682
1832
2002
2226
2546
1771

1592
1692
1846
2007
2232
2559
1772

1597
1693
1856
2016
2251
2578
1800

2023
2259
2611
1823

2433

3348

3350

3352

3354

1874

3037

3387*
3310

3381

3343_

3374*

11 :44 PAGE 96
CROSS REFERENCE TABLE

SEQ 0095
USER SYMBOLS

113.2#
1108H

DH2
DH40

021550
001042
000174
177570
022204

3027
3313
1293
3037

3341

1069
1079

OH7
OISPLA
DISPRE
DSWR
OT 1

1499

2627H

3309*

022067

DH110
OH112

1498
2441

2631.

'12911'
'12811

1673

O,VAOR
DHI

1493
2437

3296.

1127H

19-APR-78
,MAIN.
MACV11 30A(1052)
19-APR-78 11 :41
ClOlOC. Pll

CTSTFL

1948

1492
2424

529#

C"'PARE

CTCSR

1282
2591
1584
'657
1801

2400

2541

CTSUF

2726
2865
2447
1536
2154
2264
2436

1217

006536

CRPSW
CRVECT

28Bl

3383
1478

011720

002370
002366
000200
002400
002376
002374
002372

2742
1723
2431
2118

51511

011732

0000 15

1481
2420

3330
514.
513'
542#

C LKCNT

CR
CRBUF
CRCSR
CRLF

'289
2415

2207
2543
1768

elK

CONT41

1215

2408
522
521
520
519
518
517
516
515
514
513
1287
2373
2109
3315
2442
2384
2389
1523
2146
2254
2424

517,41
516.
1640
1760
1928
2084
2359

= 104406

CKSwR

SEQ 0094
USER SYMBOLS

2686

519,'1
51811

2551
553
2741

CATCH

011742
012254

11 :44 PAGE 95
CROSS REFERENCE TABLE

,1:

744
1251

568

532#
712
747
1027
1033

1038
1043

1048
1053
1058
1063
752
1068
1073
1078

1501
2640fll.<

1526

1546

1655

773
948
883

778
953
888

783
958
893

788
3801#
898

793

968
1034

973
1039

978
1049

983
1064

764
939
874

769
944
879

714
949
884

779
954
889

894

964
1029

969
1035

974
1040

979
1050

984

989

994

1065

1090

1095

1160*
1758

1213*
1790

1292.
1844

1339
1883

1361
1912

1385
1944

1399
2537

1483
2576

633
1222
723
803
843
913
3833'
1059
3845.
3852.
3805H
382"

1195
1253
728
808
848
918

733
813
853
1084

753
928
858
3817#

758
933
863

763
938
873

768
943
878

1074

3838.

823
1008
3809H

828
1013

833
1018

838
1023

963
1028

1203*

2721.

2892'

754
929
859
3878#

759
934
864

834
1019

839
1024

903

3826#

818
1003
1104
3813#
1195*
1203

632

98B
1089

993
1094

789
3870#
899

904

1194

724

729

804
844
914
3884.
1060
3888'

809
849
919

734
814
854
1085

1075

3886#

824
1009
3874#

829
1014

784
959

794

3890#

3872'
3880'
3882#
819
1004
11 05
3876.
1253.
3307'
1179'"
3392#
3424H
3716.
3722'
3726H
3732'
3737H
3742#
3746H
375"
342£ .'
3756H
3760'

3766.

3336

1180*

021211
021247
021306
021345
021404
015620
015651
015704
015745
016010
016041
015312
016074
016135

EM113
EM114

EM115
EM116
EM11?
EM1.2
EM13
EM14

EM15
EMl6
EM17

EM2
EM20

EM21
EM22

016201

EM23
EM24

016236
016267
016322
016363
016426
015336
016465

EM25

EM26
EM27
EM3
EM30

016516
016551

EM31
EM32
EM33
Ef',rl34

016617
016661
016717
016747
017001
015403
017041
017067
017127

EM35
EM36
EM37

EM4
EM40
EI\141
£M42
EM43
EM44
EM45
EM46
EM47

017161

017212
017246
017303
017303
015425
017337
017364
017414
017471
017515
017653

EMS
EM 50
EM51

EM52
EM53
[1\154
EM55
E[I,156
EMS7
EM6
EM60

017553

017611
015462
017653
017702
017726
017773
020017
020043
020111
020147

EMGl
Er,ll62

EM63
E"64
EM65
EM66
EM67

1083
1088
1093
1098
11 03
757
762
767
772
777
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

3769'
3775H
3781 II

3787#
3793H
3434H
3439H
3444'
3450H
3456'
3461#
3396.
3466'
3472H
3479'
3484'
3489H
3494'
3500H
3506'
3400'
3512H
3517#
3522'
3529'
3535H
354111

3546H
3551#
3407#
3557#
3561#
3567,"
3572H
3577#
3582#
3588'
35870
3411 ;;

3593H
3597H
360,.
3609'
3613'
3631#
3619'
3625'
3416H
3632'
3636H
3640'
3647#
3651#
3655H
3662'
3668.

19-APR-78
.MAIN.
MACY11 30A (1052)
19-APR-78 11 : 41
CZOLOC. Pl1
EM7

015506
020212
020257
020426
020321
EM74
020357
020426
EM7S
EM76
020455
020501
EM77
012052
ENDEV
ENDMG
012172
ERRVEC= 000004
FI RST
006600
GNS
U
GOAGIN
012206
GTSWR
104405
000011
HT
004056
10
INIT
003112
IOTVEC· 000020
, 000012
LF
LKS
002406
EM70

EM71
EM72
EM73

742
987
992
997
1002
1007
1012
1017
1022
2605
2663
525'

1965*
3289
2673
3294.
435.
1214
1212
530H
436.
1135.

1771.
MANL

MFR

MOR
MPAR

MSG
MSTOP
Ml
M2
M2A
OLOPC
DUTTST
PIRQ
PIRQVE.
PRO
PR 1
PR2
PR3
=
PR4
PR5
=
PR6
PR7
PS
PSW
PWRVEC·
RBUF

..

RCSR

003132
015145
015157
015134
015106
015172
022140
022152
022154

012300
015202
177772
000240
000000
00004C
000100
000140
000200
000240
000300
000340
177776
177776
000024
002350
002346

1 856.
1953*
1216
3324
3329
3319
3318
3334
1417
1419
1284*
2698*
569
442#
536#
459.
460.
461N
462.
463.

SEQ 0096

11 :44 PAGE 97
CROSS REFERENCE TA8LE -- USER SYM80LS

19-APR-7B
.MAIN.
MACV1 t 30A(1052)
19-APR-78 11 : 41
CZDLDC. P"

SEO 0097

11 :44 PAGE 98
CROSS REFERENCE TA8LE -- USER SYM80LS

3420H
3674'
3681#
3700H
3687H
3693'
3701#
3705.
3709H
2636'
2676'
1192
1967
3290
2679'
2996
1395
1215H
1177*
2676
1661
1772
1857
1954
1219#
3350.
3352H
3348H
3323
3354H
3860'
3863H
3864#
2702#
3370#

1193*

1204.

2870

2871'"

2873_

2876*

198IN
3291

3882
3292

3294

3296

3297

3298

3037
1402

1410H
3:"'-,0

3352
1700

3354

1789

1824*

1763
1825

176B-

1814

3860
1706
1823'

3863
1726

1810*
1899*

1832$

1855-

1920*

1921

1922

1924*

1928'

1948-

3878

3882

2827.
2407.

2836*

2837.

2418

2442

2447

2470

2507

2611

1634
2172
22902546-

1640*

1~42

2177-

2178
2321'
3694

1728
2193

2197

1178*
3031
1682
1778

3037

1 874*
1956.

1891.
1957

3348
1693
1801 '"
1892'
1960'

3326

3333

3339#

3378

3890
3384

3389

2810*
2384

28192389

169.2*
1800'"

1699*
1802
1893
2543'

1704*

*'

46411

465.
466H
439 •
440'
531#
1115H
3876
1114#
2118
2208_

2350*
3890

440
1183>/1
1462
1294
2128
2215
2353

1184.
2195
1313
2136
2226.
2359-

2809",
2327_
1448
2144
2232_
2405

1616
2151
2249
2410

1626-

1627

1633*

2158.

2167·

2170
2287
2500

225,.
2439

22592468

23':'11.

3874

2324

3a6S

2109
2331>

3eaB

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

Rev

2535

RCVCNT

2548>1<

2617#
2565

RDeHR
"
RDUN '"

3229

3297#

011704
011726
104407
104410
RESVEC= 000010

RP5w

2280
2685#
1797
1678

RTCVT

002412
002410

113711
1136#

1889

1890*

RvECT

002356

1118#

SCPSW
SECND

011740
006602

SET ADR
SHI FT
SI ZE

003530

228' . . .
2532*
1974*
1302

003370
003142
011736

1612
2297*
2604
1982#
130a>
1283

2531

SRPSW

'119#

1274#

43011

567

001040

S~vREG

000176

5',0.10

000001

5\1)00

000001

5'1101
51'J02
sw03
s ',oJ 0 4
5\1.'05

000002

swa6

000004
000010
000020
000040
000100

S'~'!07

000200

:;:,,/08

000400
001000

S~JIj9

Sit! j 0
SW11

5',,<12

S',,",3

"

Sl1i6

QO(H 00

SJ.~4

479#
478ft
477#
476#

475#
493#

005056

1798*

1811*

1822>1<

1851 '"

,864_

1875-

22,0
2319

1935*
2211 :I<
2320.

2529
22252337.

2541*
2235*
2348

:2542*
1833*
2601.
2245
23490

1849

1919*

2246*
2366*

22602528

2271 $
2535.

2279

1209>1<

1675

2490

1724
2539

2214-

2286*

1650H

1290
1116#
1512

1591

2629#

2628.
1846
2738
3126

1196
1885
2742
3139

,202*
,914
28,7

1946
2829.

'21 I
1977
2865

1219
2373
2881

1420
2400
3,26

1478
2431
3163'

'657
2433

1376*
.2323*

1381 '"
2352*

1429*
2378'

1432*
2404*

20852438-

2088*
:2467.

2108*

21352552-

.2169$

2192.

2613'"

3672

1194*

11 :44 PAGE 100
CROSS REFERENCE TABLE

>I<

2154*
2264*
2420*

1335

'377

1382

1514"
1592
2056*
2168*
2267*
2424*

1523

1536*

,597*
2066*
2180*
2285*
2436*

1599

1394
1537
19S9*

2079*
2191 *
2299*
2437*

2094*
2196*
2322*
2441 *

1304*
1231 *
1301

1310
1241*
1303*

1311 *
1245*
1309*

2051

2073*

000060

534'

002340

1.288*

002342
002344

1109#
111011
1111 #

006550

1969

1971 II

002364

112111
53511

1296

2049

11 a 1 *

'182*

533.
528.

1223~
1287~

1291

1301#

1306

2641

1247#
1298

1252
1324

1332#

26B3

1479

1513

1568#

1558

1610#

>I<

TST10
T5T 11
T5T 12
T5T 13
TST 14

004424
004572
004724

152111

005064

1654#

005134

T ST 15
TST 16
TST17
TST2
T5T20

005304
005474
005602
003674
006020
006166
OC6302
006430
006604
006704
007016

1656
1674
1759
1354#

1761

1779

1789#

1791
1845
1884
T913
1945
2015.
2046.

1793
1847
lB86
1915
1947

1843.
1882.
191 TN
1943.
1978

19B8#

007144

2078#

003746

2104#

TST31
TST32

007470
007560
007626
007776

2159
2179
2198
2241.#
2277N
2315#
2344H

TST35
T5T36
T514

TST40
TST41
TST 42
T5143
TST,,:j4

15T45
TST5

TST6
TST7

010140
010306
010422
004126

1407

010530
010626
010750

2372#

01 i 054
011154

2432
2489#
2491
1436
1459'

011252
004162

004214
004246

1672.
1717#

1375H

007250

TST37

1658
1676

1757H

T5T30

15133
T5T34

249B_

SEQ 0099
USER SYMBOLS

1292#

2054

TST2S
TST26
TST27
1ST3

2600-

3882

1357

117#

1422

002352

T5T21
TS T22
15123
15124

2604>1<

527;;
~

2248*

003450

TR1VECz 000014
TSTOEV 003500
T5 TDVM 003276
1ST 1
003622

2532

487#
48611
485ft

TCSR

000034

1876*

491 #
49011
48911
48811

TeONS

000064

>is

,918
1647*
2309_

470#
469#
492#

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

1KV(C
rMP1
TMP2
TMP3
TOLER
TPSW
TPVEC
TRAPVE=

1711

471 N

000200
000400
001000
5\\19
TB1TVEz 000014

T CLOCK

1679*
, 905*

2603.

47411'
473#
472#

S~/7

()O2354

1852*

494
493
492
491
490
489
488
487
486
485

483,1;
482H
481 II
480#

5w8

TSUF

2536*

1850
1796

2630H

2602
1173
1792
2726
1202

564#
494#
484#

iOOOOO

$ ',\i 5

2531

1834 ....

441 II

010000
020000
040000

000004
000010
000020
000040

2303'"

1799'i'

1157#

2530*
632.
1760
2578

000002
002000
004000

S',,11

:228:2*

1613*
2302*

2603

>I<

S1 ACK

SWR

3888

1222'

S1 ART

001100
002546
STKLMT= 177774
011734
S1 PSW

2625#

526#
2681

R1CPSW

2.618*

3298,1,1

002360
012232

RS1RT

SEQ 0098

PAGE 99
CROSS REFERENCE TABLE -- USER SYMBOLS

11 :44

2374
2401

1477#

2165.
2189#
2206#

1421

1428#

2399.
2430#
2434

2458#

2512

2523#

144511

1557

1560*

,574

1584*

2016*
2113*
2220*

2021

2023*

2092.
2209_

1481
,555*
2007*
2106*
2217*

2124*

2351.

2376-

2379

2479.

2482*

2544'"

2131 >It
223324032559

203021402247'
2408'
26'"

1249'

1269

2638

2680

2530

2534.

2602'

1430
1542*

1992
2086
2207*
2326*
2462*

1435
1543
2002*

1492*

1493

222823832545-

1498*

1499

15101585
2047'"
21462254_
24153870

"

002362

TVECT
TYPE

B

104401

=
=

TYPQC
104402
TYPON == 104404
TYPOS
104403
VCTAOR 003320
VCTTBL
002454
VECT
003602
WACTV
007270
WAIT
015114
WOONE
007376
WRPSW
012242

4

WT
XCONT
XMIT
XMTCNT
XRET
SAP THO
$ASTAT.
$ATYC
$ATYI
$ATY3
$ATY4
$AUTDB
$BASE
$80AOR
$aOOAT
$CHARC
$CKSWR
$CMTAG
SCM3
$CNTLG
$CNTLU
$CPUOP
$CRLF
$DEVCT
$OEVM
$ODAGN
$ENDAO
$ENOCT
SENULL
$ENV
SENVM
SEDP
SEDPCT
SERFLG
SERMAX
$ERRDR
SERRPC

007340
011674
011650
011730
011700
000500
013176
013152
013160
013170
001034
001142
001022
001026
013676
014130
001000
000000
014655
014650
001114
001063
001076
001144
012162
012152
012132
012166
0011 06
001107
012102
012124
001003
001015
012304
001016

SERRTB
$ERRTY

001145
012466

........

U

1120.
2050*
1416
3097
2772
3292.
329IN
1243
1140'
1320#
2109.
334 IN
2136.
1572
2017
2346
2125.
2610
2533
2547·
2612
591
1344
2903
290IN
2902#
1344
629.
69,.
624.
626'
30033126'
612.
642#
3137
3154
665.
644N
656#
692#
2659
578
1185
2674#
66"
6621
1979
1185615.
62 IN
1179
622.
3886
709N
2728

SEO 0100

11 :44 PAGE 101
CROSS REFERENCE TABLE -- VSER SYMBOLS

19-APR-78
,MAIN. MACV11 30A(1052)
19-APR-78 11: 41
CZDLOC. PI!

*

2020'

2031'

2040'

2048

2792

2799

2841

3001

3240

3289'

1896
2261

1916
2283

1925
2298

1936
2317

1994
2328

1551

2734

2904.

1735'
3886

'1738-

3880

3002

3037

3165

3249

3380

1289

1301

3872

3874

3876

3818

3880

3882

3884

200,.

1604.
20B2
2729
3141
3290'

1990
20832764
3154

1991.
209S2781
3165

2527
2783
3184

200925332786
3233

2019
2599'
2788
3236

1680
2052
2525

1794
2063
2553

1812
2080
2688.

1853
2089

1865
2212

1887
2243

2607'

2626#

3888

1390

1404

1488

1506

1532

1551

1390
3255
1227
173024783020

1404

1488

1506

1532

1235
1731
25153029-

173325953034'

1734
3884

1171

1179

1185

1186

2729
1161·
12242665
26671
266,.

2764
1414
1230.
2671#
2749

2783
2637_
1233-

2788
2638
1240_

2792
26791246

1215
1207
2639
2658N
2719-

2731
1217
26521
2662
2B56
2891-

2910
2912

2934
2983

2981
2988

2879
2895

2885-

2895

2724'
3890

2725

2770

3870

1570
2062·
1418
3137
2796
1257#
1257
1323
2112
3342
2139
1614
2032
2356
2127
2613'
2607#
2565
2614.
597#
1366
2905#
2986
1366
3134
1146

17292410*
30133296
1170

1571
20722663
3138
3140

1319
3345

3250.
3249.

1187·
2718/r
27233888
2778
2763#

<.'

19-APR-78
.MAIN.
MACY 11 30A ( 1 052)
19-APR-78 11 :41
CZOLDC. Pl1
$ERTTL
$ESCAP
SETABL
$ETENO
$FATAL
$FFLG
SF I LLC
$FILLS
$GOAOR
SGOOAT
$GET42
SGTSWR
$HIBTS
SICNT
$I LLUP
$INTAG
SITEM8
$LF
SLFLG
$LPADR
$LPERR
$MAORI
SMAOR2
$MAOR3
$MAOR4
$MAIL
$MAMSI
$MAMS2
$MAMS3
$MAMS4
$M8AOR
$MFLG
$MNEW
$MSGAO
SMSGLG
SMSGTY
$MSWR
$MTYPI
SMTYP2
$MTYP3
SMTYP4
$NULL
$NWTST=

001012
001060
0011 06
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
0011 02
0011 04
001066
014662
001117
001123
001127
001133
001054
000001

$DCNT
SOMOOE
$OVER
$PASS
$PASTM
$PDWER
$PWRDN
SPWRMG
SPWRUP
SCUES
SROCHR

014124
014126
013136
001074
000506
012710
012622
012756
012674
001062
014412

619'
642#
660'
603
653#
2901.
640#
639#
623.
625.
2664N
3138.
59B#
616#
2809
630.
620.
645.
29426171
618.
678#
6821
685.
688.
599
672.
6BO.
6B3.
6B6.
599.
29023141
658.
659'
652.
3138
673.
68IN
684#
687.
63B.
1329#
1754.
2203#
30693064.
2866
655.
60IN
2842
1183
2842.
2819
643.
31971

11 :44 PAGE 102
CROSS REFERENCE TABLE -- USER SYM80LS

27221186693'
1157'
29043006
3037
17261734-

2745

2747

2890-

29382932
3037

294"

2949.

1728'
173B

1729
2477_

1731
2514'

1736
2596-

2844.
3255
2733
3240

2767
3249

2B832744

2B882883

2B93
2889-

2895
2895

1206

2B87

2981

2924_

2936

293S'

1425.
1879.
23121

14421
1908.
234U

1456.
1940#
2369.

3076_

3087-

3113.

2655.

2656'

2674

3233

3249

SEO 0101

3880
3886

3294
2827
3166
27253037
2948.
11881189'

603

2908
3253'
2918292311583251#

651#

2943_

2916

3008
1351#
1786.
2238.
309830682884
1206-

3037
1372.
1840'
2274.
3111#
3013
2892#
1412

28471
2809.

2836

2827#
3037
3291

29471

2921

31B4

1414.
1985.
2396.

1518.
2012.
24271

1565.
2043.
2455#

160U
20151.
2486'

1651M
210U
2520.

1669'
2162.

1114.
21B8I

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

$RODEC = ."'**.*
014532
$ROOCT.
$ROSZ = 000010
$RTNAD
012164
$R2A
$SAVRE=
$SAVR6
012766
$SCOPE
013000
$SETUP= 000137
$STUP = 177777
$SVLAD 013102
$SVPC = 000500
$SWR
= 161000

3225N
3218N

2673.
3299
3299
2818*
1177
560.
560.
2874

U

U

576N
541H

1522
2016
2431
2865
663.
2860
654#
3B90
635'
634#
540.
1474
1714

001046
001044
000046

194411

$TP8
$TPFLG
$TPS
$T RAP

2186
2373'
63U
641N
636H
1181
3277.

001052
001057
001050

014704

$ T RAP2

014726

5TRP
$ T RPAD
$TSTM
$1 S TNM
$TTY!N

0000 11
014740
000504
001002
014640

3281 II

3271
614#
3226
3293
3293
2929
3005
3030
3067#
3066

U
U
013420
013632
013700
013726

$TYPON

013742

$TYPDS
SUNlT
$UNITM
$USWR
$VECTI
$VECT2
$XTSTR
$$GET4.
$OF!LL

013702
001100
000510
001112
001136
001140
013012
000000
014125

2828
2863.
1176

2839'"

2839-

2846'

1177

1179

1181

1183

1185

1186

1188

2654

2864

3121

3255

2880
581
642
1569
2047
2459
2877
1209

2886.
1186
1655
2105
2524
2880

1188
1673
2166
2649
2881

1189
1718
2190
2655
2886

1333
1758
2207
2666
2889

1355
1790
2242
2672
2892

1376
1844
2278
2674
2895

14..:9
1883
2316
2857

1446
1912
2345
2858

1460
1944
2373
2859

1478
1989
2400
2860

1159'"

2887* .. 3870

3872

3874

3876

3878

3880

3882

3884

3886

3BBB

3119
3119
1329
1478'
1718#
1985
2190#
2396
3026·
2975

3130
3128
1333.
1518
1754
1989.
2203
2400.
3037
3037
3037

3147
3144
1351
1522.
1758'
2012
2207#
2427

3201
3168*
1355'
1565
1786
2016.
2238
2431#

3207
3199
1372
1569#
1790#
2043
2242#
2455

3205
1376'
1607
1840
2047#
2274
2459.

1425
1611 II
1844'
2075
2278'
2486

1429#
1650
1879
2079'
2312
N90'

1442
1651
1883N
2101
2316'
2520

1446.
1655#
1908
2105#
2341
2524#

1456
1669
1912#
2162
2345#

1460#
1673#
1940
2166#

3266"
3288
3290'
3288"

3291#

3292.

3293#

3294

3295#

3296

3297#

3298#

3299#

1650*
3227

2636*
3244

2654.
3248.

2721

2856

2886*

2887

2892

2895

2975#
3012
3032
3290
3069'
3291
1162*

3281
3019
3035.

3289
3024"

3025

3170

1305.

1308*

2695*

1163
1258

1165-

2471

2508

3067*

3077

3112.

302~

3062#

657.
602.
664.
689.

.$X
A8S.

"

;L'

3292

690N

2868.

3063*

U

2865
545.
590#
2821

022360
.$ERRT

2369

2666N

. MA IN.
MACY 11 30A (I 052)
19-APR-78
CZOLDC.Pl1
19-APR-78 11 :41
$40CAT=

643
1611
2079
2490
2879

600N

$TYPBN=

$TYPDS=
$TYPE
STYPEC
$TYPEX
$ T YPOC

3298

3299

U

$SWREG
001110
$SWRMK. 000000
$TESTN
001072

:I:

SEQ 0102

3299

U

$RDLlN

$TK8
$TK5
$TN

11 :44 PAGE 103
CROSS REFERENCE TABLE -- USER SYMBOLS

551
592#
2845

552#
611#
2895

556#
646
2951#

562#
1139'
3037

566#
1140.
3119

571N
1174
3248'

SEQ 0103

576
1188
3249

577#
1189
3255

S79#
2631'
335S.

581.
2674

5a7
2675#

5BB#

28021

711H

001146
000500

022360

11: 44
PAGE 104
CROSS REFERENCE TA8LE -- USER SYMBOLS

587.

592

000

ERRORS DETECTED:
DSKZ: CZDLDC. DSKZ: CZDLDC. SEQ=DSKZ: CZDcDC. Pl1
RUN-T IME: 25 14 1 SECONDS
RUN-TIME RATIO: 357/41=8.6
CORE USED:
21K
(41 PAGES)
DOCUMENT PAGES:

103

I



File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Format                          : application/pdf
Creator                         : Copier User
Title                           : PDF Printing 600 dpi
Create Date                     : 2005:01:05 13:30:24Z
Creator Tool                    : Oce-Technologies
Modify Date                     : 2013:11:25 20:03:02-08:00
Metadata Date                   : 2013:11:25 20:03:02-08:00
Oce Scan Application Selector String: Scanjob
Oce Scan Compression            : 8
Oce Scan Hostcomputer           : pr342
Oce Scan Identification Number String: 4573
Oce Scan Image Logic            : 1
Oce Scan Image Orientation      : 8
Oce Scan Job Description        : PDF Printing 600 dpi
Oce Scan Model                  : 166010924l
Oce Scan Resolution             : 600
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Document ID                     : uuid:960fc484-8b71-44c4-be84-a99ce67cad7d
Instance ID                     : uuid:67827b49-b3f3-4090-88e7-c761607fbc8b
Page Count                      : 57
Author                          : Copier User