Digital PDFs

AH-E189A-MC

May 1978

149 pages

Original

78MB

view download

OCR Version

114MB

view download

Document:	CVDLAA0 DLV11-J DLV11-J TEST AH-E189A-MC JUL 1978 gray
Order Number:	AH-E189A-MC
Revision:	0
Pages:	149
Original Filename:	CVDLAA0__DLV11-J__DLV11-J_TEST__AH-E189A-MC__JUL_1978_gray.pdf

OCR Text

DLV11-J TEST

CVDLAAO
e

AH-E189A-MC

~ FICHE 1 OF1

loji|t{al!

MADEIN USA

CVDLAAOQ DLV11=J TEST
MACY11
CVDLAA.P1
11-MAY-78 00:00

30A(1052)

30-JUN-78

10:10

B
PAGE 3

SEQ 0001

.REM X

IDENTIFICATION
PRODUCT

CODE:

AC-E188A-MC

PRODUCT NAME:

CVDLAAO DLV11=yJ

PRODUCT DATE:

MAY

MAINTAINER:

DIAGNOSTIC

TEST

1978
ENGINEERING

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

EQUIPMENT CORPORATION.

RESPONSIBILITY FOR ANY
NO RESPONSIBILITY

IS ASSUMED

SOFTWARE ON EQUIPMENT

AFFILIATED COMPANIES.

(C)

THAT

THAT MAY APPEAR

FOR

IS NOT

THE

IN THIS DOCUMENT.

USE

RELIABILITY

SUPPLIED

DIGITAL

ITS

1978 BY DIGITAL EQUIPMENT CORPCRATION

FOLLOWING ARE

DIGITAL
DEC

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

ERRORS

TRADEMARKS OF

PDP
DECUS

DIGITAL

UNIBUS
DECTAPE

EQUIPMENT

CORPORATION:

MASSBUS

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00

30A(1052)

30-JUN-78

TABLE OF

1.0
1.1
1.2

1.3
1.4
1.5
2.0
2.1
&.€
Red
2.4
€9
2.6

3.0
3.8
4.0
4.1

10:10

PAGE 4

CONTENTS

GENERAL PROGRAM INFORMATION.
PROGRAM PURPOSE (ABSTRACT).
SYSTEM REQUIREMENTS.

RELATED DOCUMENTS AND STANDARDS.
DIAGNOSTIC HIERARCHY PREREQUISTES.
ASSUMPTIONS.
OPERATING INSTRUCTIONS.
LOADING AND STARTING PROCEDURES.
SPECIAL ENVIRONMENTS.
OPERATIONAL SWITCH SETTINGS
PROGRAM OPTIONS.
EXECUTION TIMES.
POWER FAIL.

ERROR INFORMATION.
ERROR REPORTING PROCEDURE.
ERROR HALTS.
PERFOMANCE AND PROGRESS REPORTS.
PERFORMANCE REPORTS.

5.0

DEVICE

INFORMATION TABLES.

6.0

SUMMARY OF

TESTS.

SEQ 0002

cvl
cvt

CVDLAAO DLV11=J TEST
MACY11 30A(1052)
CVOLAA.P11
11-MAY=78 00:00

30-JUN-78

1.0

GENERAL PROGRAM INFORMATION.

1.1

PROGRAM PURPOSE

(ABSTRACT).

THIS DIAGNOSTIC

A LOGIC

TWO DISTINCT

DLV11-J

TESTING

SERIAL

IS DONE

INTERFACE.

TEST

10:10

TO VERIFY

PAGE
§

THE

SEQ 0003

OPERATION OF

THE

PHASES:

ALL SELECTED CHANNELS PER DLV11-J MODULE ARE TESTED

INDIVIDUALLY

THE DLV11-J MODULE IS TESTED AS A WHOLE FOR CHANNEL INTERACTION

PROBLEMS.

THIS DIAGNOSTIC

ERRORS TO THE LOGIC LEVEL

IS DESIGNED

TO TEST AND DETECT

(NOT TO THE CHIP LEVEL).

THIS DIAGNOSTIC OPERATES UP TO 2 DLV11-J SERIAL LINE INTERFACES
CONFIGURED AT CONSECUTIVE BASE ADDRESSES.
THE PROGRAM WILL DO AUTO-SIZING IF THE DEVICE MAP 'SDEVM' = 0.
ALTERNATELY, THE OPERATOR CAN SELECT OR DESELECT INDIVIDUAL MODULES
& CHANNELS BY SETTING THE PROPER BITS IN 'SDEVM' (SEE PROGRAM OPTIONS SEC.
BEFORE RUNNING THE PROGRAM.
BY THIS METHOD, THE PROGRAM WILL BYPASS AUTO-SIZING AND TEST ONLY
THOSE MODULES/CHANNELS

IN EITHER CASE,

TO BE
THE

FINDS

IN SDEVM.

THE PROGRAM WILL PRINT OUT ALL MODULES & CHANNELS

TESTED BEFORE

OPERATOR MUST

PROCEEDING.

INSTALL

DATA WRAP AROUND CONNECTORS

TO DO

DATA TESTING. TO BYPASS DATA TESTS, THE OPERATOR MUST MODIFY
'SUSWR' (USER SWITCH REGISTER) , SEE PROGRAM OPTIONS SEC. 2.4)
THE

DEFAULT

ADDRESSES & VECTORS ARE

AS FOLLOWS:

177560 -CONSOLE INTERFACE DEVICE ADDRESS
176500 ~FIRST SERIAL CHANNEL ADDRESS OF UP TO 8
SERIAL LINE DEVICES.

CONSECUTIVE

60 - VECTOR FOR CONSOLE DEVICE INTERFACE.
300 - VECTOR FOR FIRST OF 16 DEVICES.
THIS PROGRAM IS DESIGNED TO RUN
ON
ANY Q-BUS
PDP-11
MEMORY AND A DLV11-J (@-BUS) MODULE.
IT CAN RUN UNDER
APT MONITORS, AND
ON
PROCESSORS
WITH
NO
HARDWARE
SWITCH REGISTER.

WITH
4K
XXDP &

2.4)

CVvD
cvD

CVDLAAO DLV11-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PT
1.2

30A(1052)

30-JUN-78

3
PAGE 6

10:10

SEQ 0004

SYSTEM REQUIREMENTS.
HARDWARE

REQUIREMENTS:

ANY Q-BUS PDP-11 FAMILY PROCESSOR
4K MEMORY = MINIMUM
A SPECIAL DATA WRAP AROUND CONNECTOR OR EQUIVALENT
(REQ'D IF DATA WRAP AROUND TESTS DESIRED)

CHANNEL 3 IS CONFIGURED AS THE CONSOLE,

TESTS WILL BE BYPASSED ON CHANNEL

THE FOLLOWING

TESTS 6 THRU 12
TESTS 14 THRU 17
TESTS 21 & 22
SOF TWARE REQUIREMENTS:

THIS DIAGNOSTIC

FOLLOWING WAYS:

IS DESIGNED TO

RUN

ANY

THE

STAND ALONE

WITH APT MONITOR
WITH XXDP MONITOR
THIS DIAGNOSTIC

DIAGNOSTIC
1.3

(CHAINABLE

RENAMED TO

.BIC

IS NOT DESIGNED

TO RUN WITH

THE

SUPERVISOR.

RELATED DOCUMENTS AND STANDARDS.

DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS
APT
SYSMAC

1.4

EXTENSION)

DIAGNOSTIC HIERARCHY PREREQUISITES.
NO SPECIAL DIAGNOSTICS ARE REQUIRED
THE
PROCESSOR,
MEMORY,
AND
BUS

175-003-009-02
MD-11-DZZMA
MD-11-DZQAC

TO RUN
BEFORE
THIS,
BUT
ARE
ASSUMED
TO BE FULLY

OPERATIONAL.
1.5

ASSUMPTIONS.

THIS

DIAGNOSTIC

LOCATION

'SUSWR'

ASSUMES

AND

THAT

'SDEVM'

THE

OPERATOR

HAS

TO THE PROPER VALUES.

INITIALIZED

(SEE

SEC.

2.4)

cve
cvD

CVDLAAOD DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.P11

30A(1052)

30-JUN-78

2.0

OPERATING INSTRUCTIONS.

2.1

LOADING AND STARTING PROCEDURES.
gggliTANDARD PROCEDURE

THERE ARE

FOR PDP-11

2 STARTING LOCATIONS FOR

10:10

PAGE 7

ABSOLUTE

BINARY

SEQ 0005

FORMATTED

THIS DIAGNOSTIC:

LOCATION 200 FOR ALL NORMAL TESTING STARTS & RESTARTS.

2. LOCATION 400 FOR INTERRUPT VECTOR DEBUG... OFFLINE ONLY.
THE 400 START SHOULD BE USED ONLY TO DEBUG FAULTY VECTOR ADDRESSES
PUT OQUT BY THE DV11-J DURING INTERRUPTS.

STARTING AT 400 WILL CAUSE THE ENTIRE VECTOR AREA, EXCEPT THAT

NEEDED BY SYSMAC,
ROUTINE TO ENABLE

TO BE OVERWRITTEN & TO POINT
LOOPING ON THE PROBLEM.

TO A COMMON SERVICE

AS SOON AS TESTING STARTS, THE OPERATOR CAN CHANGE THE SWITCH
REGISTER ONLY BY A 'BREAK' & MANUALLY LOADING LOCATION 176 (SWREG)
WITH THE DESIRED CONTENTS (SEE SEC. 2.3) THEN DOING A 'P' TO PROCEED.

IT IS IMPORTANT THAT WHEN GOING BACK TO NORMAL TESTING A FRESH
LOAD OF THE PROGRAM BE PERFORMED TO RESET THE VECTOR AREA.
THE

USER

CAN SELECT

A SPECIFIC

BIT 8 IN SWREG AND THE
(NOTE:

ALL

TEST

TEST NUMBER

TESTS PREVIOUS

THE

ONE ARE EXECUTED WITHOUT

2.2

TO BE

(IN OCTAL)

SETTING

IN BITS <7:0>.

SELECTED

ITERATIONS.)

SPECIAL ENVIRONMENTS.
THIS DIAGNOSTIC

FOLLOWS

THE

STANDARD

UDER
APT,XXDP
MONITORS, AS DESCRIBED
PROCEDURES MANUAL AND SYSMAC PACKAGE.

2.3

EXECUTED BY

PROCEDURE

FOR

IN THEIR RESPECTIVE

OPERATIONAL SWITCH SETTINGS
THE SOFTWARE SWITCH REGISTER
OPERATIONAL SWITCH SETTINGS.
THIS

CAN BE ACCOMPLISHED

(LOC.
THE

176)

RUNNING

IS USED FOR ALL

FOLLOWING WAY:

CcvD
cvD

CVDLAAO DLV11=-J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00
1)

TYPE

30A(1052)

CONTROL G < G>;

DATA

INTO

LOC.

PROGRAM.

30-JUN-78

THIS WILL ALLOW

176

THE MACHINE WILL THEN TYPE:'

AFTER THE

THE

OCTAL

ONE GF

CONTENTS OF

'NEW='

THE

G
PAGE 8

10:10

THE

SEQ 0006

TTY

ENTER

SELECTED POINTS WITHIN THE

SWR=XXXXXX
SOFTWARE

NEW="'

(XXXXXX

SWITCH REGISTER.)

HAS BEEN TYPED THEN THE OPERATOR

THE FOLLOWING AT THE

C(CAN

TTY:

;

TYPE A NUMBER TO BE LOADED INTO LOC.
176 FOLLOWED
BY
A
<CR>.
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED).

CvD
cVD

|
'

LEADING ZEROS NEED NOT BE TYPED, AND IF
MORE
THAN
6
DIGITS
ARE
TYPED THE LAST 6 WILL BE USED.
IF A <CR>
IS
THE
FIRST
KEY
DEPRESSED
THE
SOFTWARE
SWITCH
REGISTER CONTENTS WILL NOT BE CHANGED.

j
!
‘
’

IF A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL
SEND YOU BACK TO STEP 3.

‘

IF THE INPUT CHARACTER IS NOT ONE
OF
THE
CHARACTERS
MENTIONED ABOVE THEN A QUESTION MARK (?) WILL BE TYPED

{
!

FOLLOWED BY A

{

CARRAGE

RETURN AND A LINE

THEN PROCEED FROM STEP 3

THE

DIAGNOSTIC

SOFTWARE

BIT

WILL

CONTINUE

100000 = HALT ON ERROR

13 SET
12 SET
11 SET
10 SET
9 SET
8 SET
7:0

20000
10000
4000
2000
1000
400

SET

=
=

=
=
=

SEQUENCE

40000 = LOOP ON TEST

INPUT).

(SWREG)

(TO BE USED ONLY WHILE

TESTING

= INHIBIT ERROR TYPEOQUTS
= ENABLE PERFORMANCE REPORTS

= INHIBIT ITERATIONS
= BELL ON ERROR

= LOOP ON ERROR
= LOOP ON TEST IN SWR<7:0>

NUMBER OF TEST TO LOOP ON (USED WITH BIT 8)
(ALL TESTS PREVIOIUS TO THE SELECTED TEST
ARE

EXECUTED

TYPING <CR>.

SWITCH REGISTER OPTIONS

15 SET =
14

FEED

(ERASING ALL PREVIOUS

FIRST WITH 1

ITERATION ONLY)

IN PROGRESS)

CVDLAAQ DLV11=-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.P1
2.4

30A(1052)

30-JUN-78

10:10

ADDRESS OF

THE

PAGE 9

SEQ 0007

PROGRAM OPTIONS.
THIS PROGRAM REQUIRES

ITS INTERRUPT VECTOR

THE

(STORED AT

°"SVECT1').

TO
ADDRESS ANY DLV11-J STARTING AT
THRU 2 CONSECUTIVE
MODULES.

EXAMPLES:

$BASE:
SVECT1:

LOCATION 'SDEVM'

NUMBERS ARE

$DEVM

AND WILL BE

TESTED.

)

A BIT MAP CAN BE

"SDEVM'

WHICH

UNIT

MODULE

)

ENTERED AT

"SDEVM'

PRIOR

IS LEFT AT ITS DEFAULT VALUE

SIZING

FOR

BIT

CHANNEL

TO STARTING

THE

PROGRAM.

(0),

THE PROGRAM WILL DO AUTO-SIZING

THE

BEGINNING OF

BEGINNING AT THE DEVICE ADDRESS IN 'SBASE' & WILL SETUP 'SDEVM'
IN EITHER CASE, THE PROGRAM WILL TYPE OUT A LIST OF ALL THE
MODULES/CHANNELS TO BE TESTED BEFORE PROCEEDING.
NOTE:

1====== !
e

e a2
222222222222 222222 3

AND

e ARttt
2222232223222 2232233332322

ABLE

l====MODULE 2--====~ R
8
Y

IS PERFORMED ONLY ONCE

$SDEVM IS TO BE CHANGED,
IT

TO BE

EFFECTIVE.

THE

ACCORDINGLY.

PROGRAM.

THE PROGRAM MUST BE RESTARTED AT 200

OTHERWISE,

SDEVM WILL BE

IGNORED.

OPTIONS

LOCATION SUSWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE VALUES
IN
THIS WORD MUST CONFORM TO THE ACTUAL BOARD CONFIGURATION.

1 = 8 BITS

PARITY ENABLED

2
3

EVEN ODD PARITY
BREAK GENERATION ENABLED

4
<11:9>

RUN DATA WRAP AROUND TESTS
CONSOLE DEVICE

1
1

= YES
= YES =

—

= NO

= 00D
= YES

<11:9> = 1 = CONSOLE ON MODULE 1
<11:9> = 2 = CONSOLE ON MODULE 2

IMPORTANT NOTE:

0
1

—

DATA BITS TRANSMITTED

0 =78BITS,

SUSWR
DEFAULT VALUE

DEFINITION

BIT POSITION

LA AR

IT WILL

'SBASE')

SPECIFIED BASE ADDRESS

IS USED AS A BIT MAP TO INDICATE

PRESENT

(STORED AT

—

THE

RCSR

176500 (DEFAULT)
300 (DEFAULT)

(BITS 15 THRU 8 NOT USED)

FIRST

FOR DIAGNOSTIC PURPOSES, ALL CHANNELS MUST BE
CONFIGURED THE SAME, EITHER 7 OR 8 BITS.

CONSOLE ON MODULE

CHAN.

CvDI
CvoI

30-JUN-78

CONSOLE

P,
W

VECTORS
<=ccceeREC
XMIT

$BASE+00
+10
+20
+30

$SVECT1+00
+10
+20
+30

SVECT1+4
+14
+24
+34

2
3

+60
+70

+64
+74

TKVEC=60

TPVEC=64

DEVICE

+40
+50

$TKS

T
T

+44
+54

+40
+50

0
1

CHANNEL 0
1
2
3
CHANNEL

USER LOCATIONS & DEFAULTS.

DEFAULT

$BASE
SVECT1
$TKS
TKVEC
TPVEC

1250
1244
1144

176500
300
177560
60
64

$DEVM
SWREG

1252
176

SEE
SEE

R
R

SEE SEC. 2.4

0
0

SEC. 2.4
SEC. 2.3

1031

L T

1220

FOR CONSOLE DEVICE ON MODULE UNDER TEST
FOR CONSOLE DEVICE ON MODULE UNDER TEST
FOR CONSOLE DEVICE ON MODULE UNDER TEST

EXECUTION TIMES.

CH. 0,1,2
CH. 3 (CONSOLE)

TIME

BAUD

R
N
Y

DEPENDENT;

HIGHER BAUD RATES RESULT

IN THIS PROGRAM,

IMPLEMENTED

IS NOT

FROM POWER FAIL

POWER FAIL.
AUTO START

. N

RATE

TEST

30 SEC
90 SEC

FIRST PASSADDITIONAL PASSES

SHORTER PASS TIMES.

2.6

AT 9600 BAUD.
AT 300 BAUD.

THE

DLV11-J MODULE AT SHIPMENT CONFIGURATION:

ARE :

PROCESSOR WITH ONE

EXECUTION TIMES FOR AN LSI-11

"8,

$SUSWR

LOC

SUMMARY OF

DEVICE ADDRESSES & VECTORS.

MODULE #1

CvbL
cvolL
DN

SEQ 0008

DEV ADDRESS
(RCSR)

MODULE

N
g
PAGE 10

10:10

SUMMARY OF

30A(1052)

CVDLAAQ DLV11=J TEST
MACY11
CVDLAA.P1
11-MAY-78 00:00

ERROR

30-JUN-78

10:10

PAGE 11

SEQ 0009

INFORMATION.

3.1

SINCE THIS DlAGNOSTfC WAS DESIGNED TO FIT IN 4K OF MEMORY THE

ERROR
TYPEOUT
FOLLOWS:
IS AS

.ERROR#

THE

FORMAT OF

THE ERROR

TYPEOUT

PC=_____ ,ADDRESS=

WHERE ALL VALUES TYPED ARE OCTAL.
THE ADDRESS AND VECTOR REFER TO THE FAILING CHANNEL.
FOR FURTHER INFORMATION THE LISTING MUST
BE
CONSULTED.

BITS
15,13,10
AND
9
OF
THE
SWITCH
REGISTER
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT.

BIT 15 SET:

CAUSES THE PROGRAM
TO
HALT
IF THE PROGRAM IS CONTINUED,

FROM WHERE

IT HALTED.

CONTROL

DISABLES THE PRINTING OF THE ERROR MESSAGE.

BIT 10 SET:

CAUSES THE BELL TO RING ON ERROR.

BIT

CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING

9 SET:

TEST

THE

[N
THE
ERROR ROUTINE.
IT WILL PROCEED

BIT 13 SET:

TO ERROR.

THE ERROR ROUTINE SUPPORTS THE CONTROL
REFER TO SECTION 2.3 FOR DETAILS.

3.2

(SWREG)

Lo RV RV RV, RV, RV

TEST#

IS VERY BRIEF.

G < G> FUNCTION.

ERROR HALTS.

THE

ONLY HALT

EXECUTED

THIS DIAGNOGSTIC

ONLY

WHEN AN ERROR OCCURS.

BIT

15 OF

THE

ERROR ROUTINE,

SWITCH REGISTER

AND

(SWREG)

CcvoL
cvoL
Vo BV, XV, TV, MV, RV, RV, Vs W, Vo IV, W, W, IV, BV, RV, NV, NV, RV, NV, IV, RV, RV, RV, RV, BV, BV, )

3.0

30A(1052)

Vs BV

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P1
11-MAY-78 00:00

IS SET

4.0

PERFORMANCE

6.1

PERFORMANCE REPORTS.

30-JUN-78

K
1
PAGE 12

10:10

SEQ 0010

CvDL
CvDL

AND PROGRESS REPORTS.

(BIT 12 SET

IN THE

SWITCH REGISTER

AS EACH CHANNEL (4 CHANNELS/DLV11-J)
COMPLETES
THE DIAGNOSTIC THE FOLLOWING ITEMS ARE TYPED:

ONE

PASS

"CSR:_____"

THE BASE ADDRESS OF

"ERRORS:__*'

THE TOTAL NUMBER OF ERRORS ON THIS DEVICE
ON THIS PASS.

'SWREG')
OF

THE LINE UNDER TEST

"VECTOR:__"' : THE ASSOCIATED VECTOR

AFTER ALL MODULES & CHANNELS
AN END PASS

STATEMENT

TO BE

TYPED:

TESTED HAVE BEEN EXERCISED,

“END PASSH_____. "
PRINTOUT ASSUMING:

2 DLV11-J MODULES

ALL CHANNELS ENABLED
SEPERATE CONSOLE DEVICE
NO ERRORS
-3

EXAMPLE OF

SWR= 000000
WILL

—

CVDLAAO DLV11-J TEST
NEW= 10000<CR>

(ENABLE PERFORMANCE

TEST:

MODULE 1
MODULE 2

CHANNEL 0
CHANNEL 0
** PHASE

1
1

2
2

SUMMARY

176500,
176510,
176520,
176530,

ERRORS:
ERRORS:
ERRORS:
ERRORS:

CSR:

176500, VECTOR: 000300, ERRORS:

CSR:
CSR:
CSR:
CSR:

176540,
176550,
176560,
176570,

CSR:

176540, VECTOR: 000340, ERRORS: 0

** PHASE 2 SUMMARY =+

** PHASE

SUMMARY w+

VECTOR:
VECTOR:
VECTOR:
VECTOR:

000340,
000350,
000360,
000370,

** PHASE 2 SUMMARY #+

END PASS #

ERRORS:
ERRORS:
ERRORS:
ERRORS:

000300,
000310,
000320,
000330,

ooOooOo

CSR:
CSR:
CSR:
CSR:

oOoOo0Oo

VECTOR:
VECTOR:
VECTOR:
VECTOR:

3
3

REPORTS)

RV RV RV RV, RV RV. RV, Vo RV e RV o BV, RV, RV, BV, RV, BV RV, RV RV RV RVe RV, RV, 1

30A(1052)

(@Y

CVDLAAO DLV11-J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00

30-JUN-78

k3
PAGE 13

10:10

SEQ 0011

19
LAAAARA

”?

222222222223 232332223222222

RCSR!

'RCVR!RCVR!

'RDR

'DONE!IE

'ENB

R
R R R R R R
AR ARttt

RBUF !ERRO!OR

‘R

'ERR

!FR

'ERR

'ERR
e

RECEIVER DATA BUFFER

22222222322232323222322222322¢2

TCSR!

'XMIT!XMIT!

!BREA!

'ROY

TBUFE
AR A

AL SRRl

!IE
R

!
R

TRANSMITTER DATA BUFFER

2223232222232323222222222232222222

]

NOTES:
BASE ADDRESS
$BASE+2
SBASE
+4
SBASE+6

RCSR
RBUF
TCSR
TBUF

BLANK BOXES INDICATE UNUSED AND RESERVED

($BASE)

ORERR

BIT
POSITIONS.
SEE THE LISTING FOR AN
EXPLANATION OF THE BITS.

FRERR
PERR

= OVERRUN ERROR

= FRAMING ERROR
= PARITY ERROR

:
I

AT
AT
AT
AT

AR ARSI

b d d e d h d D d D d d d e d b d e e o o o e o o bo e D e o o o e b

DEVICE REGISTERS.

eleleleleleleleleleloleleleleleleleleleleleleleleleleloleloleleleleleleleloleleleoleleloleleleolololelolelele
o]

5.0

30A(1052)

| e d o e —d d

CVDLAAO DLV11=J TEST
MACYT1
CVDLAA.PTT
11-MAY-78 00:00

PHASE

30-JUN-78

LR
PAGE 14

10:10

SEQ 0012

SUMMARY OF TESTS AND SPECIAL SUBROUTINES.
1

TESTS

THIS TEST VERIFIES THAT ALL 4 REGISTERS OF

UNDER TEST RESPOND TO THEIR ADDRESSES.
THE FOLLOWING 3 TESTS TEST ALL

THE

CHANNEL

"READ WRITE' BITS

TEST 6 XMIT RDY = TCSR 7 - CLEARS WHEN TBUF IS LOADED
WITH
A
CHARACTER
AND
THAT IT SETS WITHIN A
REASONABLE AMOUNT OF TIME.

TEST 7 OUTPUTTING A CHAR FROM TBUF
RESULTS
IN
RCVRDONE
REASONABLE
AMOUNT
OF
CLEARS THE BIT.

TEST 10

RCVRDONE

(WITH

CVvDL
CvDL
e
e
)

6.0

30A(1052)

WRAP AROUND

SETTING
TIME
AND

CONNECTED)

WITHIN
A
THAT
RESET

IS CLEARED BY SETTING READER ENABLE

(eoJeleolele
)]

CVDLAAO DLV11=J TEST
MACY11
{CVDLAA.P1T
11-MAY-78 00:00

10:10

N
1
PAGE 15

SEQ 0013

- —

TEST 13 TRANSMITTER INTERRUPT LOGIC TEST
A)

DOES TRANSMITTER INTERRUPT LOGIC WORK

AND ONLY ONCE

LOGICALLLY THIS IS & SEPARATE TESTS
B) AT PRIORITY OF 0

D e

D) BUT NOT WITH INTERRUPT ENABLE CLEAR
TEST

CVvDL
CcvboL
OO OO0

30-JUN-78

14 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL
OF
THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN

INTERRUPT MODE.

D e

TEST DATA WRAP AROUND:

FLAG MODE.

IF PARITY IS ENABLED AND ODD PARITY IS SELECTED,
CHECK TO BE SURE PARITY ERROR WAS GENERATED

IF PARITY IS ENABLED AND EVEN PARITY IS SELECTED,
CHECK TO BE SURE NO PARITY ERROR OCCURRED

ASSIGNED PRIORITY

D e
D
D

INTERRUPT

CHANNELS

THAT

TEST

TEST 21

PHASE 2 TESTS

e =

TEST 20 NOT A TEST - SEND BACK TO LOOP

TEST FOR FRAMING ERROR ON BREAK

TRANSMIT KNOWN CHAR WITH BREAK SET
AND COMPARE RECEIVED WITH 0

CHAR

KNOWN

TRANSMIT

-k L OO O OO OO

TEST BREAK GENERATION LOGIC

TEST DATA WRAP AROUND:

D e

CHARACTER MODE.

R e

30A(1052)

OO OO0

CVDLAAOQ DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00

C(VDLAAOD DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PT

588

623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643

10:10

B 2
PAGE 16

SEQ 0014

LTITLE
CVDLAAO DLV11-J TEST
;*COPYRIGHT (C) 1978
;*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754
'+ %

:*PROGRAM BY GREGORY GLEZMAN & GARY PAPAZIAN
. %

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC 5YSMAC
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977,
*

OPERATIONAL SWITCH SETTINGS
SWITCH

USE

VWO —=WwWsHrwv

.SBTTL

589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622

30-JUN-78

30A(1052)

.SBTTL

001100

HALT ON ERROR

LOOP ON
INHIBIT
INHIBIT
BELL ON
LOOP ON

TEST
ERROR TYPEOUTS
ITERATIONS

ERROR
ERROR

LOOP ON TEST IN SWR<7:0>

BASIC DEFINITIONS

s*INITIAL ADuiCSS OF THE STACK POINTER ##+ 1100 wwx
1100

STACK=
.EQUIV
.EQUIV

EMT,ERROR
I0T,SCOPE

;:BASIC DEFINITION OF
;:BASIC DEFINITION OF

s*MISCELLANEOUS DEFINITIONS

000011
000012
000015
000200
177776

HT=

LF=
CR=
CRLF=
PS=

12
15
200
177776

177774
177772
177570
177570

STKLMT=
PIRQ=
DSWR=
DDISP=

177774
177772
177570
177570

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

RO=

R2=
R3=

%2
13

R5=
R6=
R7=
SP=
PC=

000000

PRO=

.EQUIV

PS,PSW

::CODE FOR HORIZONTAL

Ré4=

;sSTACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
: ;HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER
: GENERAL REGISTER

; ;GENERAL REGISTER

: ;GENERAL REGISTER

x5
{)
X7
16
x7

TAB

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

: *GENERAL PURPOSE REGISTER DEFINITIONS

R1=

ERROR CALL
SCOPE CALL

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

;*PRIORITY LEVEL DEFINITIONS
0
;sPRIORITY LEVEL O

644
645

646

647
648

649

650
651
652
653
654
655
656
657
658
659
660
661
662
663
664

665

666

667
668
669
670
671
672
673
674
675
676
677

678
679
680
681
682
683
684
685
686
687
688
689
690

691
692

693
694
695
696

697
698
699

30A(1052)

30-JUN-78

10:10
BASIC DEFINITIONS

c_2

PAGE 17

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

100000
040000
020000
010000
004000

;*''SWITCH REGISTER' SWITCH DEFINITIONS
SW15=
100000
SWi4=
40000
sSWwi13=
20000
sWwi2=
10000
SWi1=
4000
sW10=
2000

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

100000

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

Sw09=

Sw08=
Swo7=
Swoé=
SW05=
SW04=
sWwo3=
Sw02=
sSwo1=
sSWwoo=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

40
100
140
200
240
300
340

s :PRIORITY
;:PRIORITY
;:PRIORITY
;sPRIORITY

000040
000100
000140
000200
000240
000300
000340

1000

400
200
100
40
20
10
4
2
1
SW09,Sw9
SW08,Sw8
SWO7,Sw7
SW06,Swé
SWO5,SW5
SWO04,SW4
SW03,SwW3
SW02,SW2
SWO01,sw1
Sw00,Sw0

:*DATA BIT DEFINITIONS

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BITO6=
BIT05=
BIT04=
BIT03=
BIT02=
BITO1=
BITO0=
.EQUIV
.EQUIV
.EQUIV

LEVEL
LEVEL
LEVEL
LEVEL
s :PRIORITY LEVEL
;;PRIORITY LEVEL
::PRIORITY LEVEL

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
BIT09,BITY
BIT08,.BIT8
BITO07,BIT?

(BITOO TO BIT15)

SEQ 0015
NO\WV
S W) —

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78
CVDLAA.PI
00:00

Cv
Cv

CVDLAAOD DLV11=J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00
700
701
702
703
704
705
706
707
708
709
710
(4}
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731

30A(1052)

30-JUN-78
10:10
BASIC DEFINITIONS

BIT02,BIT2
BITO1,BIT
BIT00,8ITO

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
ERRVEC= 4
;s TIME OUT AND OTHER ERRORS
RESVEC= 10
:;R$§Eg¥$° AND ILLEGAL INSTRUCTIONS

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

TPVEC=
64
PIRQVEC=240

000004
000001

ADRS=

177777
000000
000001

SEQ 0016

BIT06.BIT6
BITO05,BITS
BIT04,BIT4
BIT03,BIT3

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

176500

D
2
PAGE 18

TBITVEC=14
TRTVEC= 14

BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

EMTVEC= 30

TRAPVEC=34
TKVEC=
60

;s TRACE

TRAP

; ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT) *=xSCOPE*»
;s POWER FAIL
;sEMULATOR TRAP (EMT) *+*ERROR%*
::""TRAP'" TRAP

;sTTY

KEYBOARD VECTOR

;:TTY PRINTER VECTOR
;;PROGRAM INTERRUPT REQUEST VECTOR

ILLMEM= &

DLADDR= 176500
:

THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS

SET= =1
CLR=
0
TRUE=

v
v

CVDLAAQ DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PT
732
733
734
735
736
737
738
739

740
741
742
743
744

745
746
747
748
749
750
751
752
753

754
755
756
757
758
759
760
761
762
763

764
765
766
767
768
769
770
77
772

30A(1052)

30-JUN-78

10:10

BASIC DEFINITIOMS

AR AR AR

E
2
PAGE 19

SEQ 0017

Rl iR
Rtl]

; RCSR REGISTER BIT NAMES

AR RAR AR AR AR Rttt

UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED

BIT15

. UNUSED

000200
000100

RCVRDONE
=
RCVRIE=

;
;

RECEIVER DONE
RECEIVER INTERRUPT

000001

RDRRUN=

READER RUN

:
;
:
:
.

100000

040000
020000
010000

000200
000100
000040
000020
000010
000004
000002
000001

AR R

SRR

A AR

UNUSED
UNUSED
UNUSED
UNUSED
UNUSED

ENABLE

R AR R

; RBUF REGISTER BIT NAMES
RN

ERROR=
ORERR=
FRERR=
PERR=

;
;
;
.

UNUSED
UNUSED
UNUSED
UNUSED

RDATA7=
RDATA6=
RDATAS=

RDATA4=

RDATA3=

RDATAZ2=
RDATA1=
RDATAO=

RE P RRERERRRRRE R RERRARRRRRAR AR AR AR AR

BIT15
BIT14
BIT13
BIT12
BITI
BIT10
BITO9
BITO8
BITO7
BITO6
BITOS
BITO04
BITO3
BITO2
BITO1
BITOO

;
;

ERROR INDICATOR
OVERRUN ERROR

;

PARITY ERROR

FRAMING ERROR

RECEIVED DATA BITS

cvi
cvi

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY=78 00:00
773

774

30A(1052)

AR AR

775

776

S A R A

R R

777
778
779
780
781

782
783
784
785

786

787

000200

000100

796

TCSR REGISTER BIT NAMES

:
:
:
;
:

UNUSED
UNUSED
UNUSED
UNUSED
UNUSED

;

st ss

BIT1S
BIT14
BIT13
BIT12
BITI

BIT10
BITO9
BITO8
BITO7

BITO06

UNUSED

BITOS

BITO3
BITO2
BITO1
BITO0

;

TBUF

;
;
;
:

UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED

TRANSMITTER READY

: TRANSMITTER INTERRUPT ENABLE

SEND BREAK

(CONTINUOUS SPACE)

BIT1S
BIT14
BIT13
BIT12

000200
000100
000040

BITI
BIT10
BITO9
BITO8
BITO7
BIT06
BITOS

;
:
5.3

000010
000004
000002
000001

TDATA3=
TDATA2=
TDATAl=
TDATAQ=

BITO3
BIT02
BITO1
BITO0

8%
;!
;!
;7

815
816

BITO04

TRANSMITTER DATA BUFFER

;'-i'lttttt'tt"t"tt't"'t't'ttttttt"t'tttttittttttttt'tt'tt't'i

g}g

;
000002
000004
000010
000020

FLAG BITS TO BE USE OR CLEARED IN SUSWR.
PARITY
EVENODD
BRK
WRAP

=
=
=
=

2
&
10
20

1
1
1
1

1
1
1
1
1

1
1
1
T
1
!
1

:
:
:
; UNUSED
TDATA7=
TDATAb=
TDATAS=

TDATA4=

::ttitttttiittt""ttttt'tt'ttttt't"tttttt"t'tttt'ttttttttttitt

000020

cve
cve

1
1
1
1
1

BITO04

; UNUSED
: UNUSED
; UNUSED
BREAK=

798
799
800
801

819
820
821
822

SEQ 0018

:;tttt't"tti"'tt"ttttitt'ttttttt'ttt"ttttttt'ttttttttttt'tttt

797

810
811
812
g}z

XMITIE=

000001

794

809

: UNUSED

795

802
803
804
805
806
807
808

; UNUSED
: UNUSED
: UNUSED
XMITRDY=

788

789
790
791
;gg

F
2
PAGE 20

30-JUN-78
10:10
BASIC DEFINITIONS

1
1
1
1

1
1
1
}
1

}
1
1
1
}
1
1
1
1
1

841
842
843
844
845
846
847
848
849
850

2
SEQ 0019

.SBTTL

0
; :SOFTWARE DISPLAY REGISTER
.WORD
0
;;SOFTWARE SWITCH REGISTER
STARTING ADDRESS(ES)
JMP
@#START ;;JUMP TO STARTING ADDRESS OF PROGRAM

o
e

=174
.WORD

;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

.=0

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A "'.+2 HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
DISPREG:
SWREG:

000137

AR AR AR

TRAP CATCHER

000200

AAAR

.SBTTL

000174
000176

000174
000000
000000

000000

cve

PAGE 21

30-JUN-78
10:10
BASIC DEFINITIONS

; OFFLINE TESTING FOR INTERRUPT VECTOR PROBLEMS
000400
000400
000402
000406
000412
000416
000420
000424

005000

012720
012720
020027
001371
005037
000137

.=400

013742|

000340
|

000400 |
000176
001334

1%:

CLR

MoV
MoV

CMP
BNE
CLR
JMP

#INTSRV,(RO)+
#PR7, (RO) +

;SET INTR HANDLER PTR
:SET PRIORITY

START

;GO DO

RO,#400
1%
176

sALL DONE?
:BR IF NO
;CLEAN UP SWREG
7

823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840

30A(1052)

(]

CVDLAAO DLV11=J TEST
'‘MACY11
CVDLAA P11
11-MAY=78 00:00

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY=-78 00:00

30A(1052)

,
H 2
30-JUN-78
10:10
PAGE 22
STARTING ADDRESS(ES)

SEQ 0020

CvD
cvD

851
gg%

LSBTTL

854

:;ttttttttttt"t"t"t't't'tt'ttttti'tttttttfittttttt'tttt'ttttttt

:HOOKS REQUIRED BY ACT11
$SVPC=.
.=46
SENDAD
.252
LWORD
O
.=$SVPC
.=1000

1
1
1
1
1
1
1
1

:32)SET LOC.52 TO ZERO
:: RESTORE PC

.SBTTL

APT PARAMETER BLOCK

865

R R R R R

866

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

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

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11
:INTERFACE SPEC.
001000
001000
001002
001004
001006
001010
001012

000000
001174
000031
000144
000144
000030

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

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

DIAGNOSTIC

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

R R R

R R R TR

1
1
1

R R R R

::FOR APT START UP

.=bb
;;POINT TO APT INDIRECT ADDRESS PNTR.
$SAPTHDR ;:POINT TO APT HEADER BLOCK
!=.8X
;;RESET LOCATION COUNTER
R

1
1

;;SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM

875
876
877
878
879
880
881
882
883
884

D o

874

200

D —d

000044

;,-tttttttt't't"ti't'ttt't't'tttt't'Qtttttttttt'ttttfit'tttttttitt

000200

000044
001000
001000

AR R AR

000024

.$X=.
.=24

R R A R R R R R AR R AR

D —d

870

871
872
873

001000
000024

R R R R R R

868
869

R R R

867

;

ggz

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

000052

:SAVE PC

000046

000430
000046
014602
000052
000000
000430
001000

ACT11 HOOKS

—r

855
856
857
858
859
860
861
862

1
}

001171
001172

177564
177566
000
002
012
000
000000
000000
177607
077
015
000012

000377

$SLF:

.SBTTL

LASCIZ

001174
001174
001176
001200
001202
001204
001206
001210

000000
000000
000000
000000
000000
000000
000000

$SMSGAD:

LOCATIONS

COMMON TAGS

:sCONTAINS THE TEST NUMBER
:sCONTAINS ERROR FLAG
;sCONTAINS SUBTEST ITERATION COUNT
s sCONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
;s sCONTAINS TOTAL ERRORS DETECTED
;s CONTAINS ITEM CONTROL BYTE
;sCONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
;sCONTAINS ADDRESS OF 'GOOD' DATA
:sCONTAINS ADDRESS OF 'BAD' DATA
:sCONTAINS 'GOOD' DATA
;sCONTAINS 'BAD' DATA
; ;RESERVED=-=NOT TO BE USED
:sAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR
: ADDRESS OF SWITCH REGISTER
; ;ADDRESS OF DISPLAY REGISTER

DDISP

;:TTY
::TTY
s:TTY
;:TTY

KBD STATUS
KBD BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

ADDRESS
ADDRESS
: s CONTAINS NULL CHARACTER FOR FILLS
s CONTAINS # OF FILLER CHARACTERS REQUIRED

;s INSERT FILL CHARS. AFTER A ''LINE FEED''

;:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

: sMAX. NUMBER OF ITERATIONS
:;ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
/?/
:;QUESTION MARK
<15>
: :CARRIAGE RETURN
<12>
;:LINE FEED

2222223222322

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

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD

R R

AR R

R R R

R R R R R AR R AR R AR AR AR AR ARk

JsAPT MAILBOX

s sMESSAGE TYPE CODE

ssFATAL ERROR NUMBER

;s TEST NUMBER
s sPASS COUNT
;sDEVICE COUNT
2:1/70 UNIT NUMBER
2 sMESSAGE ADDRESS

[)

<
o
R

—

;sSTART OF

STORAGE

AR R AR R R AR AR AR AR AR R

COMMON

AR R

APT MAILBCX-ETABLE

.EVEN
$SMAIL:
$MSGTY:
S$SFATAL:
$STESTN:
$PASS:
$DEVCT:
SUNIT:

VARIOUS

R R R

.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
SLPERR: .WORD
$ERTTL: .WORD
SITEMB: .BYTE
$SERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
$SAUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
LASCII
$CRLF:
LASCII
AR

R R

.=1100

$CMTAG:

000000

R R

CONTAINS

;*THIS

TABLE

cvD

001100

913

928
929
930
931
932
933
934
935
936
937
938
939
940

001100

COMMON TAGS

;*USED IN THE PROGRAM.

900
901
902
903
904
905
906
907
908
909
910
911
912
914
915
916
917
918
919
920
921
922
923
924
925
926
927

PAGE 23

SEQ 0021

893
894
895
896
897
898
899

.SBTTL

10:10

o (=lejeleleleleloleledolelelelelee]-]

892

30-JUN-78
COMMON TAGS

OoO—=MNO

885
886
887
888
889
890
891

30A(1052)

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN

CVDLAAO DLV11=J TEST

CVDLAA.P11

941
942
943
944
945
946
947
948

001212
001214
001214
001215
001216
001220
001222

11-MAY-78 00:00

000000

000

000000
001031
000000

949
950

954

955
956

962
963
964
965
966
967
968
969
970
971
972
973
974
975
976

30-JUN-78

10:10

APT MAILBOX-ETABLE

$MSGLG: .WORD
$ETABLE:
SENV:
.BYTE
SENVM:
_BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD
o

J
2
PAGE 24

AMSGLG

AENV

AENVM

ASWREG
AUSWR

ACPUOP

001224

001225

000

ix
i*

$MAMS1:

SMTYP1:
i

.BYTE

AMAMS1

AMTYP1

ix
o*

001226

000000

001230
001231
001232
001234
001235
001236
001240
001241
001242
001244
001246
001250
001252
001254

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

i
$MADR1:
i
$MAMS2:
SMTYP2:
$MADR2:
$MAMS3:
SMTYP3:
$MADR3:
$MAMS4:
SMTYP4:
SMADR4:
SVECT1:
SVECT2:
$BASE:
$DEVM:
SETEND:
CMEXIT

SEQ 0022

1
1
1
1
1
1
1
1

BIT 10=REAL TIME CLOCK

BIT
BIT

9=FLOATING POINT PROCESSOR
8=MEMORY MANAGEMENT

::HIGH ADDRESS.M.S. BYTE

;:MEM. TYPE,BLK#
MEM.TYPE BYTE
==

AMADR1

1
1

(HIGH BYTE)

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

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

500 NSEC M0S=003
;;HIGH ADDRESS,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF
;;HIGH ADDRESS.M.S. BYTE
;:MEM.TYPE,BLK#?2
;;MEM.LAST ADDRESS,BLK#?2
;:HIGH ADDRESS.M.S.BYTE
::MEM.TYPE,BLK#3
;:MEM.LAST ADDRESS,BLK#3
;;HIGH ADDRESS,M.S.BYTE
;:MEM.TYPE,BLK#4
;;MEM.LAST ADDRESS,BLK#4
;;INTERRUPT VECTOR#1,BUS PRIORITY#1
;;INTERRUPT VECTOR#2BUS PRIORITY#2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP

1
1

900 NSEC CORE=001
300 NSEC BIPOLAR=002

.WORD

cvD

;:MESSAGE LENGTH
:;APT ENVIRONMENT TABLE
:;ENVIRONMENT BYTE
;;ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;;USER SWITCHES
;;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10

957
958
959
960
961

30A(1052)

3
i

951

952
953

MACY11

1
1

‘‘TYPE'' ABOVE

1
1
1
1

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00

.SBTTL

SEQ 0023

ERROR POINTER TABLE

;*THIS TABLE

CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

DT
DF

000300

176500
176502
176504
176506
000000
000020
000000

‘.

DLADD:
DLVEC:
RCSR:
:
RBUF
TCSR:
TBUF:
s

GLOBAL DATA

.BLKW 20
RSSTACK:

DLADDR

300

DLADDR
DLADDR
DLADDR
8LADDR

N ST}

176500

[« P

$ERRTB:

001254
001256
001260
001262
001264
001266
001270
001272
001332

:sPOINTS
:;POINTS
;;POINTS
:;POINTS

001254

ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

:
:

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

EACH

EM
DH

;*NOTE1:
;*NOTE2:

997

998
999
1000
1001

K
2
30-JUN-78
10:10
PAGE 25
ERROR POINTER TABLE

977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996

30A(1052)

;FOR RS STACK
.WORD 0

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00

h
o
o
D
b
b

VOO NV
WA =

b
)
il
i
i
b
)
-

OO0 O0O0O0O0O0O0O

1002
1003
1004
1005

1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057

30A(1052)

001334

START:
.SBTTL

001334
001340
001342
001346
001350

012706
005026
022706
001374
012706

001354
001362
001370
001376
001404
001412
001420
001426
001432
001436
001444
001452

012737
012737
072737
012737
012737
012737
013737
005037
005037
112737

012737
012737

001460
001464
001472
001500
001506
001514

013746
012737
012737
012737
022777
001012

001516
001520
001524
001526
001534
001542

000403
012716
000002
012737
012737
012637

001546
001552

005037
132737
001403
012737

001560
001562
001570

30-JUN-78
10:10
PAGE 26
ERROR POINTER TABLE

CLR
CMP

001140

BNE

001100

MoV

001612
001616
001620
001626
001630
001636

005227
001043
022737
001437

001162
000001
001444
001452

104401

005737
001012
123727
001406
023727
001005

#STACK,SP

;:SETUP THE

STACK POINTER

#$SCOPE ,@#I0TVEC

MOV
MOV
MOV
MOV
MoV
CLR
CLR
MOVB

#SERROR,@#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#340 ,9#EMTVEC+2 ;;LEVEL 7
#STRAP ,@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340,3#TRAPVEC+2;LEVEL 7
SENDCT,SEOPCT
;;SETUP END-OF-PROGRAM COUNTER
STIMES
;INITIALIZE NUMBER OF ITERATIONS
SESCAPE
::CLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
:;ALLOW ONE ERROR PER TEST

MoV
MOV

; ;10T VECTOR FOR SCOPE ROUTINE

#340,8#I0TVEC+2 ;;LEVEL 7

#.,SLPADR
#.,SLPERR

;s INITIALIZE THE LOOP ADDRESS FOR
::SETUP THE ERROR LOOP ADDRESS

::SIZE FOR A HARDWARE SWITCH REGISTER.

SCOPE

IF NOT FOUND OR IT IS

;;EQUAL TO A "'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV

@#ERRVEC,=(SP)

;;SAVE

MOV
MOV

#DSWR, SWR
#DDISP,DISPLAY

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

MoV

001142
177424

001526
001140
001142

001202
000200

001215

001216

001140

CMP
BNE

#64% ,@PERRVEC

ERROR VECTOR

;;SET UP ERROR VECTOR

#-1,3SWR
66%

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

;:AND

THE HARDWARE SWR IS NOT = =1

648:

BR
:?Y

65%
#658, (SP)

65%:

MoV

#SWREG, SWR

;;POINT TO SOFTWARE SWR

668%:

MOV

(SP)+ ,@#ERRVEC

;;RESTORE ERROR VECTOR

CLR
BITB

$PASS
#APTSIZE,SENVM

::CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT

MOV

#$SWREG,SWR

::NO,USE APT

&78

MOV

BEQ

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

#DISPREG,DISPLAY

67%

s:YES ,USE NON-APT SWITCH

SWITCH REGISTER

TYPE PROGRAM NAME

;:TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777

014602

(R6) +
ssCLEAR MEMORY LOCATION
#SWR,R6 ;;DONE?
.=6
;;LOOP BACK IF NO

MOV

.SBTTL

001570
001574
001576
001604
001606

THE COMMON TAGS

s INITIALIZE A FEW VECTORS

016342
000340
016142
000340
017274
000340
014550
001160

000176
000174
000004

SEQ 0024

;;CLEAR THE COMMON TAGS (SCMTAG) AREA
L [)]'}
#SCMTAG,R6
ssFIRST LOCATION TO BE CLEARED

001100

000004
001520
177570
177570
177777

INITIALIZE

INC
BNE
CMP
BEQ

000042

001654

.SBTTL

000042
001214

000001

001140

000176

#-1
68%
#SENDAD ,a#42

68%

TYPE
.69%
GET VALUE FOR SOFTWARE
TST
an42

BNE
(MPB
BEQ
CMP
BNE

708
SENV. M

708

SWR,#SWREG
71%

::FIRST TIME?
: ;BRANCH IF NO
;:ACT=11?
: ;BRANCH IF YES

::TYPE ASCIZ STRING
SWITCH REGISTER
::ARE WE RUNNING UNDER XXDP/ACT?
: :BRANCH IF YES
::ARE WE RUNNING UNDER APT?

::BRANCH IF YES

:;SOFTWARE SWITCH REG SELECTED?
; :BRANCH IF NO

CVDLAAD DLV11-J TEST
MACY11
CVDLAA.P1T
11-MAY-78 00:00
1058
1059
1060
1061
1062
1063
1064

001640
001642
001644
001652
001652
001704

30A(1052)

L4
30-JUN-78
10:10
PAGE 27
GET VALUE FOR SOFTWARE SWITCH REGISTER

104406

000403
112737

000414

GTSWR

000001

001134

;?::

éég9s;

BR
MOVE

718
#1,$AUTOB

688

LASCIZ

SEQ 0025

;:GET SOFT-SWR SETTINGS

::SET AUTO-MODE INDICATOR

::GET OVER THE ASCIZ

<CRLF>*CVDLAAO DLV11-J

TEST*<CRLF>

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00
1065
1066
1067
1068
1069
1070
107
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082

1083
1084

e
d = 1= 1"
S W00V~

ko
d o
d

1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099

001704

004737

013012

001710
001714
001722
001726

005037
012737
005037
005037

014320

000001
014316
014322

001732
001736

012706
004737

001100
013752

30A(1052)

30-JUN-78
10:10
PAGE 28
GET VALUE FOR SOFTWARE SWITCH REGISTER

JSR

CLR

001206

LOOP:

PC,SIZE

sSIZE

SEQ 0026

THE BUS IF $DEVM = 0

MOV
CLR
CLR

#1,8UNIT
CHAN
P1CNT

PHASE?2

;INIT FOR TESTS

MOV
JSR

#STACK,SP
PC,CYCLE

JRESET STACK POINTER
;sSETUP MODULE AND CHANNEL

3
001742
001742

001746
001746
001752
001752
001760
001760
001766
001774
001774
002002
002010
002010
002016
002024
002024

002030
002034
002036
002036
002040
002040
002044
002044
002052
002054
002060
002060
002062
002062
002062
002066
002066

012137
011137

001254

MOV

001256

MOV

(ADRS) +,DLADD
(ADRS) ,DLVEC

013737

001254

001260

MOV

DLADD,RCSR

013737
062737

001254
000002

001262
001262

MOV
ADD

DLADD,RBUF
#2 ,RBUF

013737
062737

001254
000004

001264
001264

MOV
ADD

DLADD,TCSR
#4,TCSR

013737
062737

001254
000006

001266
001266

MOV
ADD

DLADD, TBUF
#6, TBUF

012705

001332

MOV

#RS5STACK,RS

012700
077001

001000

MOV

#1000,R0

SOB

000005

RESET

005237

001204

123727
001003
000137

014320

000001

INC

$DEVCT

gHEB

:?ASEZ.#TRUE

007112

000402

005037

RO, .

$1:

001102

$2:

JMP

MODTST

CLR

$TSTNM

ADRS+2 => NEXT VECTOR
;GET UNIT ADDRESS

LET

DLADD

(ADRS)+

;GET UNIT VECTOR

LET

DLVEC

(ADRS)

LET

RCSR

:= DLADD

LET

RBUF

= DLADD + #2

LET

TCSR

:= DLADD + #4

LET

TBUF

= DLADD + #6

LET

= #RSSTACK

;RCSR = DLADD

;DELAY TO ALLOW PRINT TO FINISH

;BEFORE RESET

BRESET

LET

$DEVCT

:= SDEVCT + #1

IFB

PHASE2

#TRUE

;GO TO PHASE 2 TESTING
ELSE

LET $TSTNM := #0

ENDIF

THEN

OO VIV
E BB EB DB ESNDUWWWWWWWWWWNNNNNRONDNNON
N = = oo
N=OOVENOWVNSR WSOV
VNS WSOV
NO VNS WSOV NOWVSRWNN—=OV~NOWm

o
D o

D o
e

R R R R R R R R RN R

M
ot

- %

R AR

SEQ 0027
AR

RRRRRTRRRRRRRRRRR AR AR AR

R AR R

ADDRESSABILITY

i o
d
D

30-JUN-78
10:10
PAGE 29
m
ADDRESSABILITY

J*TEST 1

THIS TEST VERIFIES THAT ALL & REGISTERS OF THE CHANNEL UNDER TEST

RESPOND TO THEIR ADDRESSES.

;:ttttt'tt"ttt"t"'ttt"tttt't'ttt"'t"t'ttttttttt'tttttt'tttt

D o
D o
il

i
i

)
D
i
-

) —

)

i
D
D

)

i
D

30A(1052)

AR R AR R

002066
002070
002076
002104
002104
002110
002110
002112
002116
002122
002126
002130
002130
002134
002134
002134
002134

002142
002142

000004
012737
012737

000002
000001

013701

001254

010146
012701
012721
012711
012601

000004
013742
000340

005037

001270

002146
002150
002150
002154
002156
002156
002160
002160
002160
002160
002160
002166
002166
002172
002176
002176
002204

001160

TST1:

SCOPE
MOV
MOV

#2,8TIMES
#1,8TESTN

MOV

DLADD,ADRS

MOV
MOV
MOV

R1,-(SP)
#ILLMEM,
R
#INTSRV,(R1)+

MOV

(SP)+,R1

[0}
CLR

012737

002142

MOV

#64% ,SLPERR

005037

013750

CLR

INTFLAG

TST

aADRS

TST

INTFLAG

005711

005737
001401

013750

104001

;.00 2 ITERATIONS
;sSET TEST NUMBER IN APT MAIL BOX
LET
ADRS := DLADD

; SET UP INTERRUPT

SETVEC

W#ILLMEM,#INTSRV,#PR7

LET

#PR7,(R1)

$3:

D e
D

Dl —

D il
D
D

—h —h —
s —
—
—
— i

—

D —d e

—

D e

D o

MACY11
CVDLAAOD DLVI1=J TEST
CVDLAA.P1T
11-MAY-78 00:00

REPEAT

BGNSUB

:CLEAR FLAG
LET INTFLAG := #0
;READ

BEQ

ERROR

IF
;

ENDSUB

062737

000002

ADD

#2,1

013701
063701

001254
001270

MOV
ADD

DLADD,ADRS
1.ADRS

023727
001353

00127¢

CMP
BNE

1,#8.
$3

FLAG

INTFLAG NE #0 THEN
FATAL ERROR

ERRDF 1

ENDIF

$4:

000010

:= #0

LET

:=]1

LET

ADRS

UNTIL I EQ #8.

¢+ #2

:= DLADD +

VOO
NN NNNNNN~YNOOO

— el

—
) )
D i - i - i -l B ol D D - o - ol _l—l—A-—.-—l—l-‘—.—l_‘—l_‘—.—b—l-‘—l—d—h_‘—l—h-fl_‘—‘_l—‘_—.

oo~
c><HD~dOnnJ~uuv-ac><HD~40wnJ~uuv-ac><ur-q8kfi1~
W

CVDLAAO DLV11=J TEST
MACY1T
CVDLAA P11
11-MAY-78 00:00

002206
002214
002216

032777
001401
104027

177476

002220
002226
002230

032777
001401

007400

002232
002240
002242

032777
001401
104031

177476

002244
002252
002254

032777
001401
104032

1776400

002256
002256
002260
002262
002266
002270
002274
002276
002300
002302

010146
010246
012701
010102
062702
010221
005011
012602
012601

30A(1052)T130-JUN-78
10:10
PAGE 30
ADDRESSABILITY
177044

177034

1%:

104030

177024

177014

2%:

3%:

4%:

000004

000002

3
SEQ 0028

BIT
BEQ
ERROR

#177476,aRCSR
1%
27

;RCSR HAS UNUSED BITS SET

BIT
BEQ
ERROR

#7400,aRBUF
2%
30

;RBUF

BIT

#177476,3TCSR

;CHECK THAT ALL UNUSED BITS ARE 0

HAS UNUSED BITS

SET

3%
31

; TCSR HAS UNUSED BITS

SET

BIT
BEQ
ERROR

#177400,aTBUF
4%
32

; TBUF

MOV
[0}
MOV
MOV

R1,-(SP)
R2,=(SP)
#ILLMEM,
R
R1,R2

BEQ
ERROR

ADD

#2,R2

MOV

(SP)+,R1

MOV
CLR
MOV

HAS

;UNUSED BITS

CLRVEC

SET

ILLMEM

R2,(R1)+
(R1)
(SP)+,R2

;END OF TEST

C\
C\

CVDLAAO DLV11=J TEST
MACY11
CVDLAA PN
11-MAY-78 00:00

30A(1052)

30-JUN-78

10:10

D
PAGE 31

ADDRESSABILITY

SEQ 0029

trRRRR AR RN RRRR R RR R R R RTRRETRRRETRRTRTRTRNTRTRTRETRTRTRTRTRTRTRTRTARRR
AR R AR
AR

:* THE FOLLOWING 3 TESTS
A

AEE

AR AR AR

SRR

J*TEST 2

R Rttt
dE]

BREAK = TCSR O SET,

1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246

—

012737
012737

000010
000002

001160
001200

032737
001001

000010

001220

T2:

000452

SCOPE

ARl

MOV
MOV

#10,8TIMES
#2,8TESTN

BIT
BNE

:gnx.susun

TST3

iRttt

EXIT
:EXIT THIS TEST
ENDIF

$5:

;

SEE

002342

001110

#64%,SLPERR

002342
002342
002350

032777
001401

000001

176714

:EREAx.aTCSR

002370
002370
002376
002400
002400
002402
002402
002402

002402
002402

i 2202022222202
8]

IF #BRK NOTSETIN SUSWR THEN

012737

002354
002354
002362
002362

IN THIS POSITION

;:D00 10 ITERATIONS
;sSET TEST NUMBER IN APT MAIL BOX

002334
002334

002352
002352
002354
002354
002354

CLEAR, RESET

THIS BIT IS THE ONLY ONE
THAT IS READ AND WRITE.

=»
D
e
[P R
——

rororoNN oo
D
e e
D
NN N b
OOV
NN = OV NOWVESWN
=

1227
1228
1229

002322
002322
002330
002332
002332
002334
002334

000004

002304
002306
002314

TEST ALL 'READ WRITE' BITS

Rl A2
22222222222

INSTALLED

IT IS CLEAR

BGNSUB

#BREAK SETIN @TCSR THEN

; BREAK DID NOT RESET IN TCSR
ERRHRD 2

104002

; BREAK NOT

ENDIF

$6:

ENDSUB
5

012737

002362

001110

MoV

052777

000001

176674

BIS

032777
001001

000001

176666

BIT

TRY TO SET BREAK BIT
BGNSUB
#6485 ,SLPERR
LET

#BREAK ,aTCSR

:gREAK,iYCSR

BNE

104003

ERROR

ENDIF

001110

MOV

#BREAK NOTSETIN @TCSR THEN

; BREAK DID NOT SET IN TCSR

ENDSUB

002410

:= @TCSR SET.BY #BREAK

s STUCK TO O

ERRHRD 3

$7:

012737

@TCSR

TRY

#64% ,8LPERR

TO CLEAR A SET BIT

BGNSUB

CVDLAAO DLVI1=J TEST
MACY11
CVDLAA PN
11-MAY-78 00:00
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
127
1272
1273
1274
1275
1276
1277

002410
002410

002416
002416
002424
002426
002426
002430
002430
002430

042777
032777
001401

000001
000001

30A(1052)

30-JUN-78
10:10
PAGE 32
T2
BREAK = TCSR O SET, CLEAR,

176646

BIC

176640

104004

#BREAK ,aTCSR

BIT
BEQ

#BREAK ,aTCSR
$10

ERROR

LET
IF

@TCSR

:= @TCSR CLR.BY #BREAK

; SHOULD HAVE CLEARED
#BREAK SETIN @TCSR

THEN

DID NOT CLEAR IN TCSR
. BREAK
ERRHRD 4

ENDSUB

;

NOW SEE

012737

002436

001110

MoV

#645 ,SLPERR

002436
002436

052777

000001

176620

BIS

#BREAK ,aTCSR

002456
002456
002460
002460
002460

SEQ 0030

ENDIF

$10:

002430
002430

002444
002444
002446
002446
002454

RESET

IF RESET CLEARS IT
BGNSUB

LET

@TCSR

000005

032777
001401

BRESET

RESET

000001

176610

BIT
BEQ

104005

ERROR
$11:

#BREAK ,aTCSR
$11

:= QTCSR SET.BY #BREAK

ISSUE BUS RESET
#BREAK SETIN Q@TCSR THEN

: BREAK DID NOT RESET IN TCSR
ERRHRD 5
ENDIF

ENDSUB

C\
Cv

CVDLAAO DLV11=J TEST
MACY11
CVDLAA PN
11-MAY-78 00:00
1278
1279
1280
1281
1282
1283
1284

1285
1286
1287

1288
1289
1290
1291
1292
1293

1294
1295
1296
1297
1298
1299
1300
1301
1302

N
A
e
Bl
—

W WWWWWWWIWWWWWWWWWW
W W W W
W WROMNONO NN MNP NININ = =
e
s b
n) - OV
NOVNS N WNN=LOVEBNOT
NS WN=O

1303
1304
1305
1306
1307

1333

30A(1052)

k.3
30-JUN-78
10:10
PAGE 33
T2
BREAK = TCSR 0 SET, CLEAR, RESET
MAAAAAAR AR

J*TEST 3
A

002460
002462
002470

000004
012737
012737

000010
000003

001160
001200

ARAAAE AR AR AR

TST3:

SCOPE

MOV
Mov

002476

ARl

SEE

001110

Mov

#65% ,SLPERR

002516
002516
002524

032777
001401

000100

176540

BIT
BEQ

#XMITIE,QTCSR

002554
002554
002556
002556
002556

SET,

CLEAR,

IS CLEAR
BGNSUB
IF

#XMITIE

104012

ERROR

RESET

SETIN @TCSR

THEN

XMITIE DID NOT RESET IN TCSR

ERRHRD 12

ENDIF

$12:

ENDSUB
;

TRY

012737

002536

001110

Mov

#6485 ,SLPERR

052777

000100

176520

BIS

#XMITIE,aTCSR

032777
001001

000100

176512

BIT

BNE

104013

ERROR

TO SET

XMITIE

BIT

BGNSUB

LET

#XMITIE,aTCSR

@TCSR

:= QTCSR SET.BY #XMITIE

; STUCK TO 0

#XMITIE NOTSETIN QTCSR THEN

$13

; XMIT DID NOT SET IN TCSR
ERRHRD 13

ENDIF

$13:

ENDSUB
;

TRY

012737

002564

001110

MOV

#64% ,SLPERR

002564
002564

042777

000100

176472

BIC

#XMITIE ,QTCSR

002602
002602
002604
002604
002604

$12

002556
002556

002572
002572
002600

SETPRI #PR7

002516

002544
002544
002552

::D0 10 ITERATIONS
::SET TEST NUMBER IN APT MAIL BOX
: USE PRIORITY OF 7

012737

002530
002530
002536
002536

#10,8STIMES
#3,8TESTN

002510
002510

002526
002526
002530
002530
002530

XMITIE - TCSR 6

SEQ 0031

032777
001401

000100

176464

BIT
BEQ

104014

ERROR

$14:

#XMITIE ,QTCSR

CLEAR

SET BIT

BGNSUB
LET

@TCSR

:= QTCSR CLR.BY #XMITIE

SHOULD HAVE CLEARED

#XMITIE SETIN QTCSR THEN

$14

:
XMIT DID NOT CLEAR IN TCSR
ERRHRD 14
ENDIF
ENDSUB

v
cv

CVDLAAO DLV11=J TEST
MACY1T
11-MAY-78 00:00
CVDLAA PN
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351

1352

G
3
SOA(IOSZ)T330~JUN-7B
10:10
PAGE 34
XMITIE - TCSR 6

012737

002612

001110

MOV

#64% ,SLPERR

002612
002612

052777

000100

176444

BIS

#XMITIE,aTCSR

002632
002632
002634
002634
002634

SEQ 0032

CLEAR, RESET

; NOW SEE IF RESET CLEARS IT

002604
002604

002620
002620
002622
002622
002630

SET,

000005

032777
001401

176434

BIT
BEQ

104015

ERROR

$15:

LET

@TCSR

BRESET

RESET

000100

BGNSUB

#XMITIE ,aTCSR

$15
15

ISSUE BUS RESET
#XMITIE

;

ENDIF

SETIN @TCSR THEN

XMIT DID NOT RESET

ERRHRD 15

ENDSUB

:= QTCSR SET.BY #XMITIE

IN TCSR

cv
cvi

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN

1353
1354
1355
1356
1357
1358
1359

1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
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

30A(1052)

_30-JUN-78

10:10

H
3
PAGE 35

XMITIE = TCSR 6

LSRR

SATEST 4

SET, CLEAR, RESET

R iRl
td]

RCVRIE - RCSR 6

SET,

THIS BIT IS THE ONLY ONE
THAT IS READ AND WRITE.

. %

SEQ 0033

CLEAR, RESET

IN THIS POSITION

rrkRRR AR RRERRRERRRERNRRRRTRRERRRRCORT
RN RTRRRTRTRTRTRTRRRRRR AR AR AR AR AR

002634
002636
002644

000004
012737

1ST4:

SCOPE

;:00 10 ITERATIONS

012737

000010
000004

001160
001200

002652
002652

012737

002660

001110

MOV

#643, SLPERR

002660
002660
002666

032777
001401

000100

176372

BIT

#RCVRIE ,ARCSR

002670
002670
002672
002672
002672
002672
002672
002700
002700

002706
002706
002714

002716
002716
002720
002720
002720

MOV
MOV

BEQ

104035

ERROR

#10,$TIMES
#4,8TESTN

SEE IF

IS CLEAR
BGNSUB
IF

#RCVRIE
;

RCVRIE

ERRHRD 35

SETIN QaRCSR THEN

DID NOT RESET

IN RCSR

ENDIF

$16:

ENDSUB
;

TRY

012737

002700

001110

MOV

#643, SLPERR

052777

000100

176352

BIS

#RCVRIE,ARCSR

032777
001001

000100

176344

BIT

#RCVRIE,ARCSR

104036

BNE

$17

ERROR

TRY

002726

001110

MOV

#64%, SLPERR

002726
002726

042777

000100

176324

BIC

#RCVRIE,aRCSR

176316

BIT

BEQ

104037

ERROR
$20:

LET
IF

aRCSR

:= @RCSR SET.BY #RCVRIE

: STUCK TO O

#RCVRIE NOTSETIN aRCSR THEN

ENDSUB
;

000100

RCVRIE BIT
BGNSUB

ENDIF

$17:

032777
001401

TO SET

; RCVRIE DID NOT SET IN RCSR
ERRHRD 36

012737

002744
002744
002746
002746
002746

$16

002720
002720

002734
002734
002742

;:SET TEST NUMBER IN APT MAIL BOX

#RCVRIE,ARCSR

TO CLEAR A SET BIT
BGNSUB

LET
IF

$20

aRCSR

:= QRCSR CLR.BY #RCVRIE

; SHOULD HAVE CLEARED
#RCVRIE

SETIN QRCSR THEN

: RCVRIE DID NOT CLEAR IN RCSR
ERRHRD 37
ENDIF
ENDSUB

v
'

N
— Y— N
G
N
N
N
U

ENDIF

; RCVRIE DID NOT RESET IN RCSR
ERRHRD 40

THEN

SETIN @RCSR

ENDSUB

$21

#RCVRIE

ERROR

$21:

#RCVRIE ,@RCSR

104040

BIT
BEQ

176266

000100

032777
001401

RESET

000005

ISSUE BUS RESET

BRESET

:= IRCSR SET.BY #RCVRIE

dRCSR

002774
002774
002776
002776
002776

LET

#RCVRIE ,aRCSR

BIS

176276

000100

052777

002754
002754

BGNSUB

#6485, SLPERR

Mov

CLEARS

cvi
cve

001110

RESET

SEQ 0034

002754

RESET

012737

CLEAR,

NOW SEE

002746
002746

002762
002762
002764
002764
002772

SET,

;

o N

30-JUN-78
10:10
PAGE 36
T4
RCVRIE = RCSR 6

1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1621
1422
1423
1424
1425
1426

30A(1052)

CVDLAAD DLV11=J TEST
MACY11
CVDLAA L1
11-MAY-78 00:00

CLEAR,

RESET

SEQ 0035

cve

]

SET,

RCVRIE = RCSR 6

000004
012737
012737

000010
000005

001160
001200

003014
003014

012737

003022

032777

000200

003022
003022
003030

001002

TSTS:

TEST
AR

R a2

THAT XMITRDY =

AR ARl

TCSR 7 =

IS SET BY

INIT

222222

002776
003000
003006

AARAAA

J*TEST §
M

AR R

SCOPE
MOV
Mov

#10,8$TIMES
#5,8TESTN

001110

Mov

#64% ,SLPERR

176234

BIT
BNE

#XMITRDY,aTCSR

::D0 10 ITERATIONS

;:SET TEST NUMBER IN APT MAIL BOX

BGNSUB

1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452

J_3
PAGE 37

—

1430
1431
1432

10:10

1427
1428
1429

30-JUN-78

[

30A(1052)

[

CVDLAAO DLV1I1=J TEST
MACY11
CVDLAA P11
11-MAY-78 00:00

#XMITRDY NOTSETIN @TCSR THEN

$22

JRESET SHOULD HAVE SET BIT.
003032
003032

003034
003034
003036
003036
003036

;XMITRDY DID NOT

104042

ERROR

000005

ERRHRD 42

IN TCSR

: ISSUE ANOTHER RESET

BRESET

RESET

$22:

SET

ENDIF
ENDSUB

JALLOW LOOPING ON ERROR

(AFTER RESE

1500
1501
1502
1503
1504
1505
1506
1507
1508

J*TEST 6

R R

R RN

SEQ 0036

RN AR AR RN RN

TEST THAT XMIT RDY = TCSR 7 = CLEARS

WHEN

AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF

TBUF

IS LOADED WITH A

CHARACTER

TIME.

R LTI

003324

CLR

ERRORFLAG

005037

003326

CLR

EXITFLAG

CLRB

WAIT FOR READY

TO SET

(SHOULD BE VERY SHORT WAIT
SINCE UART DOUBLE BUFFERS ITS INPUT)

aTBUF

sSEND A CHARACTER
LET QTBUF :B= #0

WAIT A MAXIMUM

003136
003136

003140
003140
003142
003146
003146

sXMIT RDY

010546
012745

013745
012745
012745
004737
072605

MoV
MoV
MoV
Mov
MOV
JSR
MOV

177777
001264
000200
000500
012560

:= #0

:0F 50 MSEC FOR

003106
003106
003110
003114
003120
003124
003130
003134

MAX OF 2 TIMES THRU
:= #0

R5,=(SP)
#SET,-(RS)
TCSR,=(R5)
#XMITRDY,=(RS)
#500,-(RS)
PC,TIMER
(SP)+,RS

TO SET

IN TCSR

CALL TIMER IN <#500,#XMITRDY,TCSR,#SET>

;TIMER RETURNS AN ERROR IF BIT DID
;NOT MEET CONDITION WITHIN TIME LIMIT

103003

BCC

$26

IF .ERROR THEN

:XMIT RDY DID NOT SET IN TCSR

104066

000137

ERROR
JMP

003330
$26:

66
TS17

d
b

;

LET EXITFLAG

LOOP

START OF

; LOAD TBUF WITH ONE CHARACTER
;
:

176160

TIMES THRU

005037

LET ERRORFLAG

;INIT COUNT OF

LOOP

$24:

105077

:= #0

LET PASS

;

003102
003102

PASS

003322

EXIT
JsEXIT THIS TEST
ENDIF

005037

M el

CLR

$23:

THEN

TS17

CONSOL EQ #TRUE

CONSOL
, #TRUE
$23

b el

CMP
BNE

;:D0 10 ITERATIONS
;:SET TEST NUMBER IN APT MAIL BOX

000521

#10,8TIMES
#6,8TESTN

000001

SCOPE
MOV
MOV

013736

TST6:

ed e

003072
003072
003076
003076

001160
001200

003066
003066
003072
003072

023727
001001

000010
000006

d ed e

003054
003054
003062
003064
003064
003066
003066

000004
012737
012737

ed ed ed

003036
003040
003046

cvl
cve
A_A_A_ A _a—a

TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT

1462
1463
1464
1465
1466
1467
1468
1469
1470
147
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499

K
3
PAGE 38

10:10

1461

30-JUN-78

1453
1454
1455
1456
1457
1458
1459
1460

30A(1052)

ERRHRD 66
ENDIF

PLUALAIRLIRLIAIRIRUNRIAINI R

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

CLRB
ggTB

aTBUF
?ICSR

003160
003160
003164

105077
000240

003166
003166
003174

032777
001404

000200

003176
003176

012737

177777

003204
003204
003206

18:

1761062

CLRB

176070

003324

000416

$27:

SEQ 0037

;SHIP 1°'ST CHAR
;WAIT FOR RDY

: LOAD TBUF WITH A SECOND CHARACTER (TO DOUBLE BUFFER)
; CHECK IMMEDIATELY THAT XMITRDY IS CLEAR
: AND THEN WAIT FOR IT TO SET

aTBUF

;SEND SECOND CHARACTER
LET @TBUF :B= #0
NOP

BIT
BEQ

#XMITRDY,QTCSR
$27

Mov

#SET ,ERRORFLAG

$30

;

GIVE

TIME

TO CLEAR

: XMITRDY SHOULD HAVE CLEARED UPON
; RECEIPT OF A CHARACTER

#XMITRDY SETIN @TCSR THEN

; XMITRDY DID NOT CLEAR IN TCSR

LET ERRORFLAG

:= #SET

; DEFER ERROR TYPEOUT
ELSE
WAIT A MAXIMUM

003224
003230
003234
003236
003236

003240
003240
003242
003242
003242
003242
003242
003242
003250
003252
003252
003256
003256
003264

003266
003266
003270

010546

012745
013745
012745
012745
004737
012605

MOV
MOV

177777

001264
000200
001000
012560

103001
104070

R5,=(SP)
#SET,~-(RS)

MoV
MoV
MOV
JSR
MOV

TCSR,=(RS)
#XMITRDY,~(RS)
#1000,-(RS5)
PC,TIMER
(SP)+,RS

BCC

$31

ERROR

$31:
$30

023727
001013

003224

005237

003322

023727
003404

003322

104067

177777

000001

CALL TIMER IN <#1000,#XMITRDY,TCSR,
#SET>

IF .ERROR THEN
JXMIT RDY DID NOT

ERRHRD 70

ERRORFLAG,#SET
$32

INC

PASS

CMP
BLE

PASS
., #1
$33

ERROR

SET

IN TCSR

ENDIF
ENDIF

CMP
BNE

003206
003206
003210
003214
003220

;0F 100 MSEC FOR
;XMIT RDY TO SET IN TCSR

;

DEFERED ERROR CALL

IF ERRORFLAG EQ #SET THEN
LET PASS

:= PASS + #1

IF PASS GT #1

cvD
cvd
PN PPN PPN NN NN N

176114
176106

NN AL NN NNV PLNNVPLALNNLNNNNLPLNI

105077
105777
100375

30-JUN-78
10:10 PAGE 39
Té
TEST THAT XMIT RDY = TCSR 7 = CLEARS

THEN

; CALL ERROR IF 2ND TRY
ERRHRD 67
LET EXITFLAG

:= #SET

NL AL

003146
003152
003156

30A(1052)

MPORLNLALALALNLNLALALALNL AL AL AL

WN =00V
NIWVS
W
=

w\nmmmwmmmwmmw
PONIN) =
s b e e
=

—

)

-l

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585

003270
003276
003276
003276
003276
003300
003300
003300
003306
003306
003306
003306
003314
003316
003316
003320
003320
003320
003322
003324
003326

012737

177777

30A(1052)

30-JUN-78

003326

10:10

PAGE 40

TEST THAT XMIT RDY = TCSR 7 = CLEARS

MOV

#SET,EXITFLAG

ENDIF

$33:
000403

012737

$32:

177777

003326

$34

MOV

#SET,EXITFLAG

ELSE

000665

000403
000000
000000
000000

003326

177777

CMP

EXITFLAG,#SET

$24

TST7

BEQ
$25:
PASS:

ERRORFLAG:
EXITFLAG:

$25

0
0

;

LET EXITFLAG

NO ERROR

:= #SET

ENDIF

$34:

023727
001401

SEQ 0038

EXIF

EXITFLAG EQ #SET

ENDLOOP
EXIT

;

SKIP AROUND FLAG WORDS

JsEXIT THIS TEST

jcvo
cVvD

LASIASIANI NI N L SIS TN IS N T NT ST N NI NI NN

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00

1586
1587
1588
1589
1590
1591
1592

1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632

1633
1634
1635
1636

N
3
30-JUN-78
10:10
PAGE 41
T6
TEST THAT XMIT RDY = TCSR 7 = CLEARS
IR

s*TEST 7

003346
003346
003354
003356
003364
003366
003366
003366
003370
003370
003370
003370
003376
003376

000004
012737
012737

032737
001404
023727
001001

000010
000007

001160
001200

000020

001220

013736

000001

AND
R

TST7:

SCOPE
MOV
MOV

#10,8TIMES
#7,8TESTN

BIT
BEQ
CMP
BNE

#URAP,SUSWR
$35
CONSOL ,#TRUE
$36

TST10

000434

THAT RESET

$35:

R AR R

AR RN AR RN RN

CLEARS

105077

003376

001110

1756€%

R RN R NN RN

003410
003414
003420
003424
003430
003432
003432

003434
003434
003436
003436

1641

003444
003444

IF #WURAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN

EXIT
JJEXIT THIS TEST
ENDIF

MOV

#64% ,SLPERR

CLRB

aTBUF

BGNSUB

SEND A CHARACTER AND LET IT WRAP AROUND
LET aTBUF

:B= #0

WAIT A MAXIMUM OF

50 MSEC

s FOR RCVR DONE TO SET IN
;. RCSR

010546
012745
013745
012745
012745
004737
012605

MOV
MOV
MOV
MOV
MOV
JSR
MOV

177777
001260
000200
000500
012560

CALL

RS5,-(SP)
#SET,-(RS)
RCSR,=(RS)
#RCVRDONE ,=(RS)
#500,-(RS)
PC,TIMER
(SP)+,RS

TIMER IN <#500,#RCVRDONE ,RCSR,#SET>

;DIDN'T SET IN TIME

103001

BCC

IF.ERROR THEN

$37

;

104071

ERROR

RCVRDONE

ERRHRD 71

DID NOT

ENDIF

$37:

003436
003436
003436

TIME

;:D00 10 ITERATIONS
;sSET TEST NUMBER IN APT MAIL BOX

;

003402
003402
003404

R R

THE BIT.

$36:

012737

RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF

003330
003332
003340

SEQ 0039

TEST THAT OQUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED)

1637
1638

1639
1640

30A(1052)

ENDSUB

012737
000005

003444

001110

MOV

RESET

#64% ,SLPERR
; NOW THAT

BGNSUB
IT

SET

SEE

BRESET

CAN BE

RESET

SET

IN RCSR

CvD
CcvD

I LSS LS LNLN LN NSNS LNLN LSS EN LS LSDSENLSESEN VLN NSNS LSS LSS ENT SN LSLS LSS LN LS LSS LS ENTSTNLSENTSESTNTNT N VTN

CVCLAAO DLV11=J TEST
MACY11
CVDLAA PN
11-MAY-78 00:00

MACY11
CVDLAAOQ DLV11=J TEST
11-MAY-78 00:00
CVDLAA PN
1642
1643
1644
1645

1646
1647
1648
1649
1650
1651

003446
003446
003454

003456
003456
003460
003460
003460

032777
001401

000200

30A(1052)

30-JUN-78

175604

TEST

BIT

104072

$40:

10:10

4
8
PAGE 42

THAT OUTPUTTING A CHAR FROM TBUF

#RCVRDONE ,aRCSR

BEQ

$40

ERROR

(WITH WRAP CONNECTED)

IF #RCVRDONE SETIN @RCSR THEN

; RCVRDONE DID NOT RESET IN RCSR.
ERRHRD 72
ENDIF
ENDSUB

SEQ 0040

CVDLAAOD DLV11=J TEST
MACY11
CVDLAA.P1T
11-MAY=78 00:00

30A(1052)

1652

1653

1654

s*TEST 10

1655

003460
003462

000004
012737

1660
1661
1662

003476
003476
003504

032737
001404

003470

012737

1663
1664
1665

003506
003514
003516

023727
001001

1667
1668

003516
003520

000433

1666

1669
1670
1671
1672

12;2

1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698

1699
1700
};g;

1703
1704
1705
1706
1707

R R

R R R R

TEST THAT RCVRDONE

(WITH WRAP CONNECTED)

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

SEQ 0041

IS CLEARED BY SETTING READER ENABLE

".'tfifiitttt'ttii't"tt"i"'tt"t"'t't't't'tt'ttt't't""tttittt'

1656
1657

}ggg

30-JUN=78
10:10
PAGE 43
7
TEST THAT OUTPUTTING A CHAR FROM TBUF

003516

000010
000010

001160
001200

000020

001220

013736

000001
$41:

003520
003520

003520

TST10:

SCOPE
[ [)]

MOV

#10,8TIMES
#10,8TESTN

BIT
BEQ

#URAP,SUSWR
$41

MOV

#6485 ,SLPERR

CMP
BNE

003526

001110

105077

175534

CLRB

aTBUF

003532
003532
003534
003540
003544
003550
003554
003560

010546
012745
013745
012745
012745
004737
012605

177777
001260
000200
000500
012560

L[]
[ [0]"
MOV
MOV
[ [0]"
JSR
[ [0]

RS5,=(SP)
#SET,-(RS)
RCSR,=(RS)
#RCVRDONE
, - (RS)
#500,-(RS)
PC,TIMER
(SP)+,RS

003562
003562

103001

BCC

$43

003564
003564

104025

ERROR

EXIT

JsEXIT THIS TEST
ENDIF

BGNSUB

; OUTPUT A CHARACTER
LET QTBUF :B= #0

;s WAIT MAXIMUM OF S00 MSEC
;s FOR RCVRDONE TO SET IN
; RCSR
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET>

; DID IT BECOME READY?
IF.ERROR
THEN

JRCVRDONE DID NOT SET

IN R(SR

ERRHRD 25
s
ENDIF

$43:

SET

IT BACK TO CONTINUE

ENDSUB
sNOW THAT IT IS SET LETS SEE IF
sREADER ENABLE CLEARS RCVRDONE

003566
003566
003574
003574
003602

THEN

; OUTPUT A CHARACTER AND WAIT FOR XMITRDY TO SET.

003526
003526

003566
003566
003566

IF #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE

CONSOL ,#TRUE
$42

$42:

012737

;:D0 10 ITERATIONS
sSET TEST NUMBER IN APT MAIL BOX

052777

000001

175464

BIS

#RDRRUN ,aRCSR

032777
001401

000200

175456

BIT
BEQ

#RCVRDONE ,aRCSR
$44

SETTING

LET @RCSR := @RCSR SET.BY #RDRRUN
IF #RCVRDONE SETIN QaRCSR THEN

CVDLAAO DLV11=J TEST
MACYT1
CVDLAA.PI
11-MAY-78 00:00
1708
1709
1710
171
1712
1713

003604
003604

003606
003606

30A(1052)

&
D
30-JUN-78
10:10
PAGE 44
710
TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE

104026

ERROR
$44:

sRCVRDONE DID NOT CLEAR IN RCSR
ERRHRD 26
. SET IT BACK TO CONTINUE
ENDIF

SEQ 0042

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00

30A(1052)

1714

&
E
30-JUN-78
10:10
PAGE 45
110
TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE

1715

AR RAAA SRR AR AR

1716
1717
1718
1719
};g?

003606
003610
003616

S*TEST N
AL AARAR AR
TST11:
SCOPE
MoV
MOV

1722
1723
1724

003624
003624
003632

1725
1726
1727
1728
1729
1730
1731
1732
1733
1734

};gg

1737
1738
1739
1740
1741
1742
1743
1744

1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
};g?

003634
003642
003644
003644
003644
003646
003646

003646
003646

003654
003654

003660

032737
001404
023727
001001

000010
000011

001160
001200

000020

001220

013736

000001
$45:

000432

012737

105077

010546

012745
013745
012745
012745
004737
012605

003710
003710
093712
003712

003654

003720

#10,8STIMES
#11,8TESTN
#WRAP,SUSWR
$45
CONSOL
, #TRUE

TST12

MoV

#6485 ,SLPERR

BNE

ARt Rddl

TEST THAT RCVRDONE IS CLEARED BY READING RBUF
AR Rl ARl
R

BIT
BEQ
CMP

CLRB

MOV

177777
001260
000200
000500
012560

;:D0 10 ITERATIONS
;+SET TEST NUMBER IN APT MAIL BOX
IF #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN

EXIT
;sEXIT THIS TEST
ENDIF

BGNSUB

: OUTPUT A CHARACTER AND WAIT FOR RCVRDONE TO SET.

aTBUF

: OUTPUT A CHARACTER
LET QTBUF :B= #0
; WAIT MAXIMUM OF 500 MSEC
: FOR RCVRDONE TO SET IN
. RCSR
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET>

R5,=(SP)

#SET,-(RS)
RCSR,=(R5)
#RCVRDONE
, - (R5)
#500,-(RS)
PC,TIMER
(SP)+,RS5

103001

BCC

$47

104073

ERROR

: DID IT BECOME READY?
IF.ERROR
THEN
sRCVRDONE DID NOT SET
ERRHRD 73

:
ENDIF

$47:

117700

175342

SET

IN RCSR

IT BACK TO CONTINUE

ENDSUB
; NOW THAT IT IS SET LETS SEE
: BUFFER CLEARS RCVRDONE.

003714

$46

Mov
MoV
Mov
MoV
JSR
Mov

003714

1769

001110

175406

003714
003714

003714

ARl

$46:

003662
003666
003672
003676
003702
003706

1762
1763
1764
1765
1766

:;2;

000004
012737
012737

SEQ 0043

MOVB

aRBUF ,RO

IF READING THE

:READ BUFFER
LET RO :B= QRBUF
IF #RCVRDONE SETIN QRCSR THEN

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00
1770
17N
1772
1773
1774
1775
1776
1777

003720
003726

003730
003730
003732
003732

032777
001401

000200

30A(1052)

30-JUN-78

TMm

175332

TEST

BIT

BEQ

ERROR

104074

$50:

10:10

PAGE 46

THAT RCVRDONE

SEQ 0044

IS CLEARED BY READING RBUF

#RCVRDONE ,aRCSR

$50

RCVRDONE

ERRHRD 74
;
ENDIF

SET

DID NOT

CLEAR

IN RCSR

IT BACK TO CONTINUE

CVDLAAOQ DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800

1801
1802
1803
1804
1805
1806
1807
1808
1809
1810

1811
1812
1813

1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830

1831

1832

1833

30A(1052)

30-JUN-78

TMm

TEST

TRTEST 12

003732
003734
003742

003750
003750
003754
003756
003756
003764
003766
003766
003770
003770
003770
003772
003772
003772
003772
003774
003774
003774
003776
003776

003776
003776

004004
004004
004010
004010
004012
004016
004022
004026
004032
004036

004040
004040
004042
004042

000004
012737
012737

000010
000012

005737
001007

013736

032737
001401

000020

001160
001200

TST12:

001220

000401

$52:

4
6
PAGE 47

10:10

THAT RCVRDONE

TEST
R

AR A

R R

R R R R

#10,8TIMES
#12,8TESTN

TST

CONSOL

BNE

$51

BIT
BEQ

#WRAP ,SUSWR

000524

R R R R R R

R AR AR AR AR

$51:

000522

$53

001110

;s NULL ==-<EXECUTE TEST

JEXIT THIS TEST

EXIT

ENDIF

ELSE

$54
TST13

004004

R RS

#WRAP SETIN SUSWR THEN

ELSE

EXIT

ssEXIT THIS TEST
ENDIF

$54:

012737

22222222

IF CONSOL EQ #0 THEN

$53:
BR

SEQ 0045

::D0 10 ITERATIONS
;:SET TEST NUMBER IN APT MAIL BOX

$52

TST13

000401

THE OVERRUN & ERROR BITS - RBUF
R

SCOPE
MoV
Mov

IS CLEARED BY READING RBUF

Mov

#6485 ,SLPERR

BGNSUB

;0UTPUT 2 CHARACTERS
;THIS SHOULD AN CAUSE OVERRUN ERROR.

;OUTPUT 1 CHARACTER

105077

010546
012745
013745
072745

012745
004737
012605

103001

175256

177777
001260
000200
000500
012560

CLRB

aTBUF

MOV
MoV
MOV
MOV
Mov

R5,=(SP)
#SET,=(RS)
RCSR,=(R5)

JSR

MoV

BCC

LET aTBUF
CALL

TIMER

:B= #0

IN <#500,#RCVRDONE ,RCSR,#SET>

#RCVRDONE
, - (R5)
#500,-(RS)
PC,TIMER

(SP)+,R5

$55

;DID IT SET
IF.ERROR THEN

IN TIME?

:RCVRDONE DID NOT SET IN RCSR

104016

ERROR

ERRHRD 16

Cvl
cvi

1859

1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889

30A(1052)

004044
004044

004044
004044
004050
004050
004052
004056
004062

004064
004064

105077

010546

012745
004737
012605

017704

104101

004102
004102
004110
004110
004114
004116
004116

004120
004120
004122
004122
004122
004122
004122

004130

175216

CLRB
MOV
Mov

000454
012732

JSR

MOV

LET @TBUF

aTBUF

:B= #0

sLET OVERRUN HAPPEN

WAITMS 300.

R5,=(SP)
#300.,-(R5)
PC,WAIT

(SP)+,R5

;READ BUFFER AND ERROR BITS

004076
004076

004100

SEQ 0046

;OUTPUT 2ND CHARACTER

032704
001002

004102
004102
004102

ENDIF

$55:

004070
004070
004074

004100

30-JUN=78
10:10
PAGE 48
T2
TEST THE OVERRUN & ERROR BITS - RBUF

175172

MOV

040000

000460

aRBUF ,R4

BIT
BNE

$56

ERROR

101

LET R4

#ORERR
, R4

:= QRBUF

;IT DIDN'T SET

#ORERR NOTSETIN R4

THEN

;ORERR DID NOT SET IN RBUF
ERRHRD 101
éN?TUSE
X

TST13

COMPOUNDING ERRORS

;sEXIT THIS TEST
ENDIF

$56:

ENDSUB

;NOW SEE

012737

004110

032704
001002

100000

001110

104102

IF ERROR BIT SET WITH OVERRUN

Mov

#6485 ,SLPERR

BIT
BNE

#ERROR,
R4

ERROR

BGNSUB

ERROR:

IF #ERROR NOTSETIN R4

THEN

$57

;ERROR DID NOT SET IN RBUF
ERRHRD 102

102

;=WHEN ORERR SET.
;GET OUT NOW.

000450

TST13

$57:

EXIT
sJEXIT THIS TEST
ENDIF

ENDSUB

012737

004130

001110

Mov

#6485 ,SLPERR

BGNSUB

;CHECK REAL RBUF TO SEE IF ORERR IS STILL SET.
IF #ORERR NOTSETIN QRBUF

THEN

cvl
cve
AaAsArfaaiasAlALCATRAIALACAIAIACAIAIALAIALALTA
L AL AIRIAIAIAIAIA AR ALIATRAIAIRA I AITAYTA A ALRIAYACAIAIAIAIAIRIAITAIAIAIA LA

1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858

MACY11
11-MAY-78 00:00

[

CVDLAAQ DLV11=J TEST

CVDLAA PN

004130
004136
004140
004140
004142
004142
004144
004144
004144
004144
004144

004152
004152
004156
004156
004160
004164
004170
004174
004200
004204
004206
004206

004210
004210
004212
004212

032777
001002

175124

10:10

4
I
PAGE 49

TEST THE OVERRUN & ERROR BITS = RBUF

BIT

BNE

ERROR

000437

SEQ 0047

#ORERR,aRBUF

$60

sREADING RBUF CLEARED ORERR.
ERRHRD 103

103

;SKIP REST OF TEST

TST13

$60:

EXIT

ssEXIT THIS TEST
ENDIF
ENDSUB

012737

105077

010546
012745
013745
012745
012745
004737
012605

004152

001110

MOV

#64% ,SLPERR

BGNSUB

sREADING RBUF ABOVE SHOULD ENABLE ERROR TO BE CLEARED
;BY NEXT TRANSFER.
sNOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED

175110

CLRB

o TBUF

177777
001260
000200
000500
012560

MOV
MOV
MOV
MOV
MOV
JSR
MOV

R5,=-(SP)
#SET,~-(RS)
RCSR,=(RS)
#RCVRDONE ,=(RS)
#500,-(RS)
PC,TIMER
(SP)+,RS

;SEND A CHARACTER AROUND.
LET @TBUF :B= #0
CALL

TIMER

IN <#500,#RCVRDONE ,RCSR,#SET>

;DID IT SET IN TIME?

103001

BCC

104020

$61

004222
004222

104104

040000

175042

IF.ERROR THEN

JRCVRDONE

ERROR

BIT
BEQ

#ORERR ,aRBUF
$62

ERROR

104

$61:

032777
001402

ERRHRD 20

DID NOT

SET

IN RCSR

ENDIF

IF #ORERR SETIN @RBUF

THEN

;ORERR DID NOT CLEAR IN RBUF
ERRHRD 104

;=AFTER RECEIVING ANOTHER CHAR
;SKIP AROUND REST

000406

004226
004226
004226

112

104103

004212
004212
004220

004224
004224
004226

040000

30-JUN=-78

TST13

BIT

#ERROR,aRBUF

$62:

032777

100000

175026

s:EXIT THIS TEST

EXIT

ENDIF

IF #ERROR SETIN aRBUF

THEN

vl
cve
T AIALTAIAITAIALTALAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIA
LA IA LA

1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945

30A(1052)

ALTAIAIA LA

CVDLAAOD DLV1I1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN

;sEXIT THIS TEST

(=]

AIRAIAIAIAIAIAIA Y
NI NI AN

IST13

000400

ENDSUB
EXIT

ENDIF

$63:

004240
004240
004240
004240
004240

105

MO A

ERROR

104105

;ERROR DID NOT CLEAR IN RBUF
ERRHRD 105

004236
004236

$63

MDA

BEQ

cve

MMM

001401

SEQ 0048

MDD NN

004234

MMM MM OMOIN

30~JUN-78
10:10
PAGE 50
T2
TEST THE OVERRUN & ERROR BITS - RBUF

1946
1947
1948
1949
1950
1951
1952
1953
1954
1955

30A(1052)

4
()

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00

CVDLAA PN

2000
2001
2002
2003
2004
2005
2006
2007
2008

2009
2010
2011

;*TEST 13
5"
et
:*
it
e

R R

004260
004260

004264
004264
004270
004270
004274
004274
004276
004300
004304
004310
004312
004312

004320
004320
004322
004326
004332
004336
004342
004346
004350
004350

000004
012737
012737

005037

013703
062703
010146
010301
012721
01271
012601

012737
010546
012745
013745
012745
012745
004737
012605

042777

000010
000013

001160
001200

013750

004376
004376
004400
004404

SCOPE
MOV
Mov

CLR

001256

Mov

000004

ADD
MoV

013742
000340
004320

001110

000500
012560

BUT NOT WITH

000100

174706

#10,STIMES
#13,8TESTN

INTFLAG

DLVEC,R3
#4,R3
R1,-(SP)

Mov

#6485 ,SLPERR

Mov

BIC

177777

013750

174666

R5,=(SP)
#SET,-(RS)
TCSR,=(RS)
#XMITRDY,=(R5)

RN R AR

CLEAR

ttL

;:D0 10 ITERATIONS
;:SET TEST NUMBER IN APT MAIL BOX
LET

;CLEAR "INTERRUPT OCCURED' FLAG

INTFLAG

:= #0

;GET VECTOR ADDRESS
LET R3 := DLVEC
LET R3

;FOR

THE

:= R3 + #4

TRANSMITTER

;SET VECTOR TO POINT TO TRANS.SRV AT PRI
SETVEC R3, #INTSRV, #PR7

BGNSUB

;. MAKE SURE THAT TRANSMITTER READY IS SET
CALL TIMER IN <#500,#XMITRDY,TCSR,#SET>

#500,-(RS)
PC,TIMER
(SP)+,R5

#XMITIE,QTCSR

:CLEAR INTERRUPT ENABLE
LET @TCSR := QTCSR CLR.BY #XMITIE

;SET IT TO O

BIS

#XMITIE,QTCSR

Mov
MOV

R5,=(SP)
#SET,=(RS)

MOV

R AR

(SP)+,R1

SETPRI #PRO

000100

INTERRUPT ENABLE

R3,R1
#INTSRV,(R1)+
#PR7,(R1)

MoV
JSR

RN R R AR R R RN R AR

TRANSMITTER INTERRUPT LOGIC TEST

MOV
MOV
MOV
Mov

MOV
MoV
MoV
MOV

177777
001264
000200

004356

004370
004370

TST13:

SEQ 0049

LOGICALLY THIS IS 4 SEPARATE TESTS
A) DOES TRANSMITTER INTERRUPT LOGIC WORK
B) AT PRIORITY OF 0
C) AND ONLY ONCE

004242
004244
004252

R R R R AR

#INTFLAG,-(R5)

<NOW SET I.E. BIT
LET @TCSR := QTCSR SET.BY #XMITIE

CALL TIMER IN <#500,#1,#INTFLAG,#SET>

cve
cve
ST .NT N

&
K
30-JUN-78
10:10
PAGE 51
T12
TEST THE OVERRUN & ERROR BITS - RBUF

ST NI NI NI VT ST ST NY. ST, S

1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

30A(1052)

LSS

CVDLAAD DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN

2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041

004426
004426

2016
2017

2042

2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067

004430
004430
004432
004432
004432
004432
004434
004440
004444
004446
004446
004454

004456
004456
004460
004460
004460
004460
004460

004466
004466

004474
004474

004500
004500

012745
012745
004737
012605

000001
000500
012560

Mov
Mov

#1,-(RS)
#500,<(RS)

Mov

(SP)+,R5

JSR

103001
106106

SEQ 0050

PC,TIMER

BCC

$64

ERROR

106

[F.ERROR

;DID IT SET IN TIME?
THEN

; INTERRUPT DID NOT OCCUR

ERRHRD 106
ENDIF

$64:

;LET POSSIBLE 2°ND INTERR OCCUR

010546
012745
004737
012605

023727
003401

MOV
MoV

000764
012732

013750

JSR

Mov

000001

CMP
BLE

WAITMS 500.

R5,=(SP)

#500.,-(R5)
PC, WAIT

(SP)+,R5

INTFLAG,#
$65

;DID EXACTLY 1

INTFLAG GT #1

s TRANSMITTER

104107

ERROR

INTERRUPT OCCUR

THEN

INTERRUPTED TWICE

ERRHRD 107

107

ENDIF

$65:

ENDSUB

: INTERRUPT WITHOUT INTERRUPT ENABLE SET
012737

004466

001110

Mov

#6485 ,SLPERR

BGNSUB

;CLEAR INTERRUPT ENABLE

042777

000100

174570

BIC

#XMITIE ,QTCSR

LET @TCSR

:= QTCSR CLR.BY #XMITIE

;CLEAR "INTERRUPT OCCURED' FLAG

005037

005077

013750

174562

CLR

INTFLAG

CLR

a TBUF

LET INTFLAG

010546
012745
012745
012745
012745
004737
012605

004534

103401

177777

013750

000001
001000
012560

MOV
MOV
MOV
MoV
MOV

R5,=-(SP)

Mov

#SET,-(RS5)
#INTFLAG,-(RS)
#1,-(R5)
#1000, -(RS)
PC,TIMER
(SP)+,R5

BCS

JSR

:= #0

;NO INTERRUPTS SHOULD OCCUR, PSW STILL AT 0.
:DARE IT TO HAPPEN
LET @TBUF := #0
sSEE IF

004504
004504
004506
004512
004516
004522
004526
004532

cvD
cvD
NTNT.NT,ST.N]

004410
004414
004420
004424

TEST

INT FLAG EVER SETS

CALL TIMER IN <#1000,#1 ,#INTFLAG,#SET>

;DID IT SET DURING TIMER?
:BR IF NO
;INTERR STILL OCCURED WITH IE DISABLED

LN TSNS NN TSN TSNS LS LS NS TN NS TS NT SN

2012
2013
2014
2015

MACY11
11-MAY-78 00:00

WSS LNLS LN LS LS LS LS LS LN LN USLSLSLS NSNS LS ENLS LN LN LNV

CVDLAAO DLV11-J TEST

CVDLAA PN

4
L
30A(1052)
30-JUN =78
10:10
PAGE 52
713
TRANSMITTER INTERRUPT LOGIC

2083
2084

004536
004536
004540
004540
004542

004542
004542
004544
004546

004552
004554
004560
004562
004564
004566

104110

1%:

000005

010146
010246
012701
010102
062702
010221
005011
012602
012601

000003
000002

30-JUN-78
10:10
PAGE 53
T3
TRANSMITTER INTERRUPT LOGIC TEST
ERROR

110

RESET

MoV
MoV
MoV
MOV
ADD
Mov
CLR
MoV
MoV

SEQ 0051
ERRHRD 110
BRESET

ENDSUB
R1,-(SP)
R2,-(SP)
#R3,R1
#2,R2
R2,(R1)+
(R1)
(SP)+,R2
(SP)+,R1

;RESTORE VECTOR AREA

CLRVEC R3

cvD
cvD
NSNS LS TSN NN LSS NS LS TN TS TAN NN LN T NN N

2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082

30A(1052)

USTNDN LN NN LN LS LSS NN NDST NN LS NN LSS LN NS ENT NS LS LN NSNS

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

CVDLAAO DLV11=j TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00

30A(1052)

2085

N
&
30-JUN-78
10:10
PAGE 54
T13
TRANSMITTER INTERRUPT LOGIC TEST

2086

2087
2088
2089
2090

;*TEST 14
T
i
i

2091

2092

004570

000004

004572
004600
004606

012737
012737

000010
000014

001160
001200

2097
2098
2099
2100
2101
2102
2103
2104
2105

004614
004616
004624
004626
004626
004632
004632

032737

001404
023727
001002

000020

001220

013736

000001

000137

005156

2106
2107
2108
2109

2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133

2134
2135

2136
2137
2138
2139
2140

R R R

R RR

R A R R R R R R AR R R AR AR

R R AR AR

RECEIVER INTERRUPT LOGIC TEST
THIS TEST COVERS ALL OF THE RECEIVER
SIDE OF THE INTERRUPT LOGIC IN
CHARACTER MODE.

::tttttttt'i't'tttttt'tt'ttttttttttttttttttt'ttt'tttttttttttttitt

2093
2094
2095

2096

R R

SEQ 0052

004606

004632
004632
004634
004640
004644
004650
004652
004652
004660
004660

004664
004664

010146
013701
012721
012711
012601

001256
013742
000340

012737

004660

005037

013750

042777

000100

105077

004710
004710
004712

010546
012745

004726
004732
004736

012745
004737
012605

004740

#10,8TIMES
#14,8TESTN

BIT

#WURAP, SUSWR

JMP

TST15

BEQ
CMP
BNE

;:D0 10 ITERATIONS
;:SET TEST NUMBER IN APT MAIL BOX
1§ #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN

$66
CONSOL , #TRUE
$67

001110

174366

MOV
MOV
MOV
MOV
MOV

R1,-(SP)
DLVEC,R1
#INTSRV,(R1)+
#PR7,(R1)
(SP)+,R1
;PRIORITY O AND MULTIPLE

MOV

#648 ,SLPERR

CLR

INTFLAG

BIC

#RCVRIE,ARCSR

SETPRI #PRO

004704

004716
004722

$66:

SCOPE

MOV
MOV

$67:

004672
004704

TST14:

013745
012745

174356

CLRB

aTBUF

177777

MOV
MOV

RS,=(SP)
#SET,=(RS)

001264
000200
000500
012560

MOV
MOV

MOV
JSR
MOV

2
EXIT TEST
ENDIF
:CLEAR INTERRUPT OCCURED FLAG
;SET UP RECEIVER INTER.VECTOR
SETVEC DLVEC,#INTSRV,#PR7

INTERRUPT TEST.=-RCVRIE
BGNSUB
LET INTFLAG := #0

:CLEAR INTERRUPTS
LET @RCSR := @RCSR CLR.BY #RCVRIE
:CHANGE PRIORITY
:..T0 0

sSEND A CHARACTER
LET QTBUF :B= #0
:WAIT A MAXIMUM
;OF S50 MSEC FOR
;XMIT RDY TO SET IN TCSR
CALL TIMER IN <#500,#RCVRDONE,TCSR,
#SET>

TCSR,=-(RS)
#RCVRDONE , - (RS)
#500,~(RS)
PC,TIMER
(SP)+,RS

cvD
cVvD

2
2
2
2
2

2
2
2

2
2
2
2
2
2
2
2
2

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

2
2
2
2
2
2
2

2
2
2
2
2

:SET INTERRUPT ENABLE
LET @RCSR := @RCSR SET.BY #RCVRIE

2
2

CVDLAAD DLVI1=J TEST
MACY11
CVDLAA PN
11-MAY-78 00:00

2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169

2170
217N
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196

004740

052777

004746
004746
004750
004754
004760
004764
004770
004774

010546
012745
012745
012745
012745
004737
012605

004776
004776
005000
005000
005002
005002
005002
005002
005004
005010
005014
005016
005016
005024

005026
005026
005030
005030
005030

005030
005030
005036
005036

005044
005044
005050
005050

000100

30A(1052)

30-JUN -78

114

174312

177777

013750
000001
000500
012560

10:10

RECEIVER

8
5
PAGE 55

BIS

#RCVRIE,3RCSR

MOV
MoV
MOV
MOV
MOV

R5,=(SP)

JSR

Mov

SEQ 0053

INTERRUPT LOGIC TEST

JLET IT COME IN.
CALL TIMER IN <#500,#1,#INTFLAG,#SET>

#SET,=(RS)
#INTFLAG,=(RS)
#1,-(RS)
#500,=(RS5)
PC,TIMER

(SP)+,R5

;DID IT SET IN TIME?

103001

104111

BCC

$70

ERROR

$70:
N10546
012745
004737
012605

023727
003401

013750

JSR

MoV

000001

104112

; INTERRUPT DID NOT OCCUR
ERRHRD 111
ENDIF

;LET POSSIBLE 2°ND INTERR OCCUR

Mov
MoV

000500
012732

IF.ERROR THEN

WAITMS 500

R5,=(SP)
#500,-(R5)
PC,WAIT

(SP)+,RS

CMP
BLE

INTFLAG,#1
$71

ERROR

112

;EXACTLY 1 INTERRUPT?

INTFLAG GT #1

THEN

JRECEIVER INTERRUPTED TWICE
ERRHRD 112
ENDIF

$71:

ENDSUB

; INTERRUPT WITHOUT IE SET.
012737

005036

001110

MoV

#64%,SLPERR

BGNSUB

:CLEAR INTERRUPT

042777

005037
105077

000100

013750
174212

174214

BIC

#RCVRIE ,aRCSR

CLR

INTFLAG

CLRB

aTBUF

LET @RCSR

:= @RCSR CLR.BY #RCVRIE

;CLEAR INTERRUPT FLAG
LET INTFLAG := #0
: SEND A CHARACTER
:B= #0

LET QTBUF

C
5
MACY11 30A(1052)
30-JUN-78
10:10
PAGE 56
CVDLAAO DLV11=J TEST
11-MAY-78 00:00
CVDLAA P11
114
RECEIVER INTERRUPT LOGIC TEST

2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
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

SEQ 0054

; DARE IT
005054
005054
005056
005062
005066
005072
005076
005102
005104
005104
005106
005106
005110
005110
005110
005110

005122
005122
005124
005124
005130

005130
005132
005134
005140
005142
005146
005150
005152
005154

010546
012745
012745
012745
012745
004737
012605

MOV
MOV

000000
013750
000001
000500
012560

MoV
MOV
Mov
JSR

MoV

103001

BCC

104113

R5,=(SP)
#CLR,=(R5)

#INTFLAG,=(R5)
#1,-(RS)
#500,-(RS)
PC,TIMER

(SP)+,RS

;DID IT CLEAR IN TIME?

IF.ERROR THEN

$72

ERROR

113

SETPRI

#PR7

;INTERR STILL OCCURED WITH IE DISABLED

ERRHRD 113
ENDIF

$72:

000005

017704
010146
010246
012701
010102
062702
010221
005011
012602
012601

RESET

174126

000004
000002

ENDSUB
;RAISE CPU PRIORITY
:CLEAR THE WORLD
BRESET

MoV

aDLVEC,R4

Mov
MoV

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

Mov
MoV
ADD
Mov

CLR

MoV
Mov

CALL TIMER IN <#500,#1 ,#INTFLAG,#CLR>

#R4 ,R1
R1,R2

#2,R2
R2,(R1)+
(R1)
(SP)+,R2
(SP)+,R1

LET R4

:= aDLVEC

CLRVEC R4

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 0C:00

2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289

30A(1052)

ARE

SRR

S#TEST 15
AL

005156
005160
005166
005174
005174
005202
005204
005212
005214
005214
005214
005216
005216
005216
005216

005220
005220
005222
005224
005224
005226
005226
005232

005234
005234
005236
005242
005246
005252
005256
005262
005264
005264

005266
005266
005270
005270
005272
005272

005272
005272
005276

000004
012737
012737

032737
001404
023727
001001

000001
000015

001160
001200

000020

001220

013736

000001

30-JUN-78
10:10
PAGE 57
RECEIVER INTERRUPT LOGIC TEST
T14

AAR

TST15:

$73:

000506

AR RS20]

TEST DATA
AR

WRAP AROUND:

#1,8TIMES
#15,8TESTN

BIT
BEQ
CMP
BNE

#WRAP,SUSWR
$73
CONSOL ,#TRUE
$74

TST16

RESET

005002
000401

CLR
BR

R2
$75

INC

CMP
BGT

R2,#377
$77

020227
003077

000377

$75:

[F #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN

EXIT

;CAN'T TEST WITHOUT A WRAP

ssEXIT THIS TEST
BRESET

000005

$76:

;:00 1 ITERATION
::SET TEST NUMBER IN APT MAIL BOX

ENDIF

$74:

005202

FLAG MODE

R ARttt
ittt
Rttt d)

SCOPE
MOV
MOV

SEQ 0055

;BINARY COUNT PATTERN
INCR R2 FROM #0 TO #377 BY M

; MAKE SURE IT'S READY

010546
012745
013745
012745
012745
004737
012605

MOV
MOV
MOV
MOV
MOV
JSR
MOV

RS5,=(SP)
#SET,-(RS)
TCSR,=(RS)
#XMITRDY,=(RS)
#500,-(RS)
PC,TIMER
(SP)+,RS

BCC

$100

104123

ERROR

123

000460

B8R

TST16

177777
001264
000200
000500
012560

103002

$100:

CALL TIMER IN <#500,#XMITRDY,TCSR,
#SET>

IF .ERROR THEN
;

TRANSMITTER NEVER BECAME READY

ERRHRD 123
ssEXIT THIS TEST

EXIT

ENDIF

;START IT ON ITS WAY

110277

173770

MOVB

R2,aTBUF

LET @TBUF

:B= R2

. NOW WAIT FOR RECIEVER DONE

CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET>

CVDLAAO DLV1I1=J TEST

CVDLAA.PT

11-MAY-78 00:00

2290
2291
2292
2293
2294

005276
005300
005304
005310
005314

010546
012745
013745
012745
012745

2296
2297
2298
2299
2300
2301
2302
2303
2304

005324
005326
005326
005330
005330

012605

2295

2305

2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344

2345

005320

005332
005332
005334
005334

MACY11

004737

30A(1052)

30-JUN-78

T15

177777
001260
000200
000500
012560

10:10

TEST DATA

PAGE 58

WRAP AROUND:

MoV
MOV
MoV
MoV
MoV

R5,-(SP)
#SET,=(RS)
RCSR,=(RS5)
#RCVRDONE
, - (R5)
#500,-(RS5)

Mov

(SP)+,R5

JSR

103002

BCC

$101

104124

ERROR

124

000437

TST16

$101:

017703

173722

Mov

aRBUF ,R3

005340
005340
005344

032703
001401

100000

BIT
BEQ

#ERROR,R3
$102

ERROR

200

005350
005350
005352
005354
005354
005362
005364
005364
005370
005372
005372
005374
005374
005376
005376
005376
005376
005400

005400
005400
005402
005402

104200
$102:

020302
001415

R3,R2
$103

BIT
BNE

#BIT0,SUSWR
$104

CMP
BGE

R2,#200
$105

104117

ERROR

117

000416

TST16

$106

000001

020227
002002

000200

001220

SEQ 0056

IF.ERROR THEN
ERRHRD 124
; RECIEVER NEVER BECAME READY
EXIT

;sEXIT THIS TEST
ENDIF

;RETRIEVE
LET R3 := QRBUF
;CHECK FOR ERROR DURING TRANSFER
IF #ERROR SETIN R3 THEN
;ERROR BIT SET IN HIGH BYTE OF RBUF
ERRHRD 200
ENDIF

: COMPARE DATA
IF R3 NE R2 THEN

CMP
BEQ

032737
001006

FLAG MODE

PC,TIMER

005334
005334

005346
005346
005350
005350

IF #BITO NOTSETIN SUSWR THEN
IF R2 LT #200 THEN

:DATA COMPARE ERR IN 7 BIT WORD
ERRHRD 117
;sEXIT THIS TEST

$105:

000402

$104:

104017

ERROR

000413

TST16

EXIT
ENDIF

ELSE

:DATA COMP ERR IN 8 BIT WORD
ERRHRD 17

;sEXIT THIS TEST

EXIT

CVDLAAO DLV11=J TEST

CVDLAA.PT

2346

2347
2348
2345
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366

005404
005404
005404

005404
005406
005406
005414
005416

005422

005424
005424
005426
005426
005430
005430
005430
005430
005430
005432

MACY11
11-MAY-78 00:00

30A(1052)

F_3
30-JUN-78
10:10
PAGE 59
T15
TEST DATA
WRAP AROUND:

FLAG MODE

ENDIF

$106:
000411

032737
001005

020227
003402

000001

001220

$103:

000177

SEQ 0057

$107

BIT
BNE
CMP
BLE

#BITO,SUSWR

ELSE

IF #BITO NOTSETIN SUSWR AND R2 GT #177 THEN

$110

R2,#177
$110

;GETTING 8 BITS ON 7 BIT XMIT
sMAKE

104022

ERROR

000401

TST16

$76

$110:
$107:

000675

$77:

SURE

ERRHRD 22

JsEXIT THIS TEST
ENDIF

ENDINC

;R2

EXIT

SUSWR SETUP CORRECTLY.

CVDLAAOD DLV1I1=J TEST

CVDLAA.P1

MACY11

11-MAY-78 00:00

30A(1052)

2367

30-JUN-78

T15

10:10

TEST DATA

6
5
PAGE 60

WRAP AROUND:

FLAG MODE

SEQ 0058

2368

:;tttttttttt'Q""t"""t"tt'tt'ttttt"tttttttttt't'tttttttt"'

2369

J*TEST 16

2370

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

TEST DATA WRAP AROUND:

INTERRUPT MODE

;;tttt'tttt"'t'tttt"ttt'ttt'tt"tfi'tt""tttttttttttttttt"t'tt

005432
005434
005442
005450
005450
005456
005460
005466
005470
005470
005474
005474

000004
012737
012737
032737
001004
023727
001002
000137

000001
000016

001160
001200

000020

001220

013736

000001

TST16:

$111:

006102

SCOPE
MOV
MOV

#1,8TIMES
#16,8TESTN

BIT
BNE
CMP
BNE

#WRAP,SUSWR
$111
CONSOL
, #TRUE
$112

JMP

TST17

$112:

;

:
:

gggg

::D0 1 ITERATION
::SET TEST NUMBER IN APT MAIL BOX
IF #WRAP SETIN SUSWR OR CONSOL EQ #TRUE THEN

SEXIT TEST
ENDIF

THIS TEST WILL RUN BOTH TRANSMITTER AND

RECIEVER AT FULL SPEED TESTING
THE ABILITY OF THE MODULE

: TO HANDLE INTERRUPTS FROM BOTH SIDES AT ONCE.

2389
2390
2391

:DOUBLE BUFFERING IS NOT FULLY TESTED BECAUSE OF
;APT CONSIDERATIONS. I1.E. "BREAK' FROM APT
;CAUSES OVERRUN ERRORS. THEREFORE TRANSMIT INTR IS

2394
2395

:
;:

ggg%

;ENABLED ONLY AFTER THE RECVR HAS OBTAINED THE LAST WORD

; IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS.

§§3$

2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
gz:g
2416

2417
2418
2419
2420
2421
2422

THIS TEST WILL TRANSFER A MAXIMUM OF 400(8)
CHARACTERS THROUGH THE MODULE, BUT IF AN ERROR

005474
005506
005506

005512
005512
005516
005516
005522
005522
005526
005526

005532
005532
005536
005536
005542
005542

:CHANGE PRIORITY
:..T0 0

SETPRI #PRO
013701

001256

MOV

DLVEC,R1

012721

005774

MOV

#REC,(R1)+

012721

000340

MOV

#PR7,(R1)+

012721

005736

MOV

#TRAN, (R1)+

012711

000340

MOV

#PR7,(R1)

LET R1

:GET VECTOR ADDRESS
:= DLVEC

:RCVR VECTOR
LET (R1)+ := #REC
LET

(R1)+

LET

;POINT TO TRANSMITTER VECTOR
sAND SET IT UP ALSO
(R1)+ := #TRAN

LET (R1)

:= #PR7
:

005037

005732

CLR

ERRCNT

005037

005772

CLR

DATA

032737

000001

BIT

#BITO,SUSWR

001220

:= #PR7

LET ERRCNT

CLEAR ERROR COUNTER

:= #0

LET DATA := #0

:XMIT DATA

IF #BITO NOTSETIN SUSWR THEN

CVDLAAO DLV11=J TEST
MACY11
CVDLAA P11
11-MAY-78 00:00

2423
2424
2425
2426
2427
2428
2429

2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
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

005550
005552
005552
005560
005560
005562
005562
005562
005570
005570
005570
005570
005572
005572
005600
005600

005606
005606
005606
005606
005614
005616
005622
005624

005624
005624
005632
005632
005640
005640
005644
005646
005646
005654
005656
005656
005664
005666
005666
005670
005670
005672
005672
005700

30A(1052)

T16

001004

012737

000200

005734

000403

012737

$113:

000400

30-JUN -78

005734

10:10
PAGE 61
TEST DATA WRAP AROUND:

BNE

$113

Mov

#200,NUMBER

$114

Mov

#400,NUMBER

LET NUMBER :=
ELSE

LET NUMBER

BRESET

RESET

000100

173464

BIS

#XMITIE,QTCSR

LET @TCSR

000100

173452

BIS

#RCVRIE ,aRCSR

023737
001403
005737
003771

005772

005734

005732
$116:

CMP
BEQ
TST
BLE

DATA,NUMBER
$116
ERRCNT
$115

IN TRANSMITTER

RECEIVER

LET @RCSR := @RCSR SET.BY #RCVRIE
;NOW WE
REPEAT

$115:

REGISTERS

:= QTCSR SET.BY #XMITIE

AND

052777

#400

;SET UP ALL

JSET I.E.

052777

#200

ENDIF

$114:

000005

SEQ 0059

INTERRUPT MODE

UNTIL

WAIT

DATA EQ NUMBER OR ERRCNT GT #0

;NOW LETS CHECK.
;TURN OFF ALL INTR ENABLE

042777

000100

173432

BIC

#XMITIE,QTCSR

042777

000100

173420

BIC

#RCVRIE ,aRCSR

005737
001431

005732

TST
BEQ

ERRCNT

032737
001424

100000

006100

BIT
BEQ

#ERROR,RHLD

032737
001402

040000

006100

BIT

#ORERR,RHLD

BEQ

$117

$120

$121

104220

ERROR

220

000415

$122

BIT

#FRERR,RHLD

032737
001402

020000

006100

$121:

BEQ

$123

LET @TCSR

:= QTCSR CLR.BY #XMITIE

LET @RCSR

:= @RCSR CLR.BY #RCVRIE

IF ERRCNT NE #0 THEN
IF #ERROR SETIN RHLD THEN
IF

#ORERR SETIN RHLD THEN

:OVERRUN ERROR
ERRHRD 220
ELSE

#FRERR SETIN RHLD THEN

;FRAMING ERROR

cvl
cvt

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

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
2509
2510
2511
2512
2513
2514

005702
005702
005704
005794
005706
005706
005714
005716
005716
005720
005720
005722

005722
005722
005724
005724
005724
005724
005724
005724
005726

30A(1052)

30-JUN -78

116

10:10

PAGE 62

TEST DATA WRAP AROUND:

104221

ERROR

221

000407

$124

BIT

#PERR,RHLD

032737

001402

010000

006100

$123:

BEQ

ERRPR

222

000401

$126

104024

INTERRUPT MODE

ERRHRD 221
ELSE

005726
005726
005730
005730
005730
005730
005730
005730

000464

005732
005734

000000
000000

104120

ERROR

ELSE

ERRHRD 24

$127

ENDIF

:DATA COMPARE ERROR
ERRHRD 120
ENDIF

ENDIF

$117:
BR

ERRCNT:

ELSE

120

$127:

NUMBER:

#PERR SETIN RHLD THEN

:UNKNOWN ERROR

ERROR

$120:

;PARITY ERROR
ERRHRD 222

$126:
$124:
$122:

000401

SEQ 0060

$125

104222

$125:

0
0

TST17

EXIT

JEXIT THIS TEST

;SKIP OVER SUPPORT ROUTINES & STORAGE

cvl
cvi

30-JUN-78
10:10
PAGE 63
T16
TEST DATA WRAP AROUND:

INTERRUPT MODE

SEQ 0061

cvi
cve

: TRANSMIT
AR AR AR SRR

005754
005754
005762
005762

023737
001406
005737
001003
013777

005772

CMP

005732

005772

$130

BNE

$130

TST

173304

DATA,NUMBER

BEQ

TRAN
DATA NE NUMBER AND ERRCNT EQ #0 THEN

ERRCNT

MOV

;SHIP OUT WORD

LET @TBUF

DATA,aTBUF

:= DATA

ENDIF

sSTOP INTERR, NOT EXER DOUBL BUFFER

005772

000000

042777

000100

173274

BIC

LET @TCSR

#XMITIE,aTCSR

DATA:

005774
005774

:= @TCSR CLR.BY #XMITIE

ENDSRV

RTI

AAL AR

ARl

;RECEIVER

006022
006022
006030
006030
006036
006036
006042
006042
006044
006044
006044
006050
006050
006056
006060
006060

$130:

000002

006002
006002
006010
006012
006020
006022

BGNSRV

005734

INTERRUPT HANDLER

TRAN:

005762
005762
005770
005770

005774
005774

R AR R AR R AR AR R

005736
005736
005736
005736
005744
005746
005752

R R

ARl

R R

abs

add als

ARl

INTERRUPT

222223232

REC

;GET CHAR

017737
032737
001004
023737
001411

173262

006100

MOV

100000

006100

BIT

006100

005772

CMP

BNE

$131:

BEQ

aRBUF ,RHLD

#ERROR,RHLD

222222

HANDLER

BGNSRV

REC:

LET RHLD

:= aRBUF

;CHECK ERROR
IF

#ERROR SETIN RHLD OR RHLD NE

DATA THEN

$131

RHLD ,DATA

$132

;STOP ALL INTERR PROC & GET QUT

013737

005734

005772

MOV

NUMBER,DATA

042777

000100

173222

BIC

#RCVRIE ,aRCSR

005237

005732

INC

ERRCNT

$133

INC

DATA

CMP

DATA,NUMBER

BIC

#RCVRIE ,@RCSR

000415

$132:

005237

005772

023737
001004

005772

005734

042777

000100

173172

BNE

$134

bl adt ol

ot fakioans attads

abi

adt

ant at b aldt

Cadt abl ads

2515
2516
2517
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

30A(1052)

-a

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN

LET DATA

:= NUMBER

LET @RCSR

:= QRCSR CLR.BY #RCVRIE

LET ERRCNT

:= ERRCNT + #1

ELSE
LET DATA
IF

:= DATA + #1

DATA EQ NUMBER THEN

LET @RCSR

:= @RCSR CLR.BY #RCVRIE

2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581

2582
2583
2584
2585

006066
006066
006070

30A(1052)

000403

006070
006070
006076
006076
006076
006076
006076
006076

000002

006100

000000

052777

$134:

000100

30-JUN-78
10:10
PAGE 64
T16
TEST DATA WRAP AROUND:

173166

INTERRUPT MODE
ELSE

$135

JALLOW NEXT XMIT INTERR

BIS

LET @TCSR

#XMITIE ,QTCSR

ENDIF

$135:
ENDIF

$133:
RTI
RHLD:

SEQ 0062

ENDSRV

:= QTCSR SET.BY #XMITIE

cvD
cvD
INWWWIWNWWWWIWWWWWW
W N W W N NN N W NN W W N
W

CVDLAAO DLV11=J TEST
MACY11
11-MAY-7
CVDLAA P11
8 00:00

2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601

2602

2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637

2638
2639
2640
2641

30A(1052)

30-JUN-78

T16

PAGE 65

TEST DATA WRAP AROUND:

;*TEST

10:10

R R

R R R R R R

INTERRUPT MODE
RN

R R R R RN RN R AR

TEST BREAK GENERATION LOGIC

TRANSMIT KNOWN

CHAR WITH BREAK

AND COMPARE RECEIVED WITH 0.

IF ERROR BITS ARE ENABLED.

SEQ 0063

FRAMING ERROR WILL ALSO BE

SET.

CHECKED

.'.'"""fi""'""""""""""""""'.."Q"Q'"'.'Q.fi."'*

006102
006104
006112
006120
006120
006126
006130
006136
006140
006140
006144
006144
006146
006146
006146
006154

000004
012737
012737

000010
000017

001160
001200

032737
001404
032737

000020

001220

000010

001220

000137

006614

001003

$137:

023727
001002

013736

000137

006614

012737

006170

006170
006170

005037

006612

006202
006202

006210
006210
006212
006216
006222
006226
006232
006236
006240
006240
006242
006242
006244

$136:

000406

006156
006162
006162
006162
006162
006162
006162

006174
006174

TST17:

000001

SCOPE

MOV
MOV

#10,8TIMES
#17,8TESTN

BIT
BEQ
BIT
BNE

#WRAP,SUSWR
$136
#BRK
, SUSWR
$137

JMP

TST20

$140

CMP

CONSOL ,#TRUE

BNE

$141

JMP

TST120

;:D00 10 ITERATIONS
;:SET TEST NUMBER IN APT MAIL BOX
IF

012777

000001

000252

173062

173056

CONSOL EQ #TRUE

ENDIF
ENDIF

MOV

#64% ,SLPERR

CLR

ERRCHK

BIS

[ [0}

#BREAK ,aTCSR

#252,aTBUF

BGNSUB

LET ERRCHK

:= #0

103001
104115

177777

001260
000200
000500
012560

MOV
MOV

RS.,=(SP)
#SET,-(RS)

MOV
MOV
MOV
JSR

RCSR,=(RS)
#RCVRDONE ,~(RS)
#500,-(RS)
PC,TIMER

BCC

$142

ERROR

115

MOV

(SP)+,RS

;

CLEAR ERROR WORD

;SET BREAK BIT

LET @TCSR

:= @TCSR SET.BY #BREAK

;NON-ZERO CHAR.
LET QTBUF := #252
;WAIT

010546
012745
073745
012745
012745
004737
012605

THEN

JCAN'T TEST CONSOLE
sEXIT TEST

$140:

052777

SEXIT TEST

ELSE

$141:

001110

#WRAP NOTSETIN SUSWR OR #BRK NOTSETIN SUSWR T

'+’

FOR DONE

CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET>

IF .ERROR THEN

;5 RECIEVER DONE DID NOT SET
ERRHRD 115
ENDIF

cvD
cvD

l U L L U U U U L N N U N N N N N N N AN N AN N N N N N N W NN N N NN N NN N N N N NN N N NN W N N NN NN

MACY11
CVDLAAO DLV11=J TEST
CVDLAA PN
11-MAY-78 00:00

2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662

2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680

2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697

006244
006244
006244
006250
006250
006252
006254
006254

006262
006262
006262
006262
006266
006270
006270
006276
006276

006276
006276
006304
006306
006306
006314

006316
006316
006322

006324
006324

006332
006332
006332
006332
006334

006334
006334
006340
006342
006342
006350
006350
006350
006350
006350
006350
006350
006350
006352
006360
006362
006364

mn
S
10:10
SOA(1052)T1 30-JUN-78
PAGE 66
7
TEST BREAK GENERATION LOGIC

$142:

017700

173012

105700

001403

052737

Mov

aRBUF ,RO

TSTB

BEQ
000001

006612

020000

052737

000002

006612

BIS

#BITO,ERRCHK

BIT
BNE

#FRERR,RO
$144

BIS

#BIT1,ERRCHK

BIT

#PARITY,SUSWR

$144:

032737
001421

032737
001007
032700
001003

000002

000004

001220

BEQ

001220

BIT

BNE

010000

BIT
BNE

LET RO := @RBUF

IFB RO NE #0 THEN

$143

$143:

032700
001003

SEQ 0064

$145

#EVENODD, SUSWR

; BREAK DID NOT EQUAL 0

LET ERRCHK := ERRCHK SET.BY #BITO
ENDIF

IF #FRERR NOTSETIN RO THEN
LET ERRCHK

:= ERRCHK SET.BY #BIT1

ENDIF

IF #PARITY SETIN SUSWR THEN

;ODD PARITY ENABLED
IF #EVENODD NOTSETIN SUSWR THEN

$146

:BREAK SHOULD GENERATE A PARITY ERRO

IF #PERR NOTSETIN RO THEN

#PERR,RO
$147

:NO PAR ERROR WHEN THERE

052737

000004

006612

BIS

#BIT2,ERRCHK

$150

BIT
BEQ

#PERR,RO
$151

BIS

#BIT3 ERRCNT

LET ERRCHK

ENDIF

$147:

000406

$146:

032700
001403

010000

052737

000010

005732

$151:

170000

RESET

172702

LET ERRCNT

:= ERRCNT SET.BY #BIT3

ENDIF

BRESET

BIT

#170000,aRBUF

ERROR

BEQ
1%:

IF #PERR SETIN RO THEN

ENDIF

$145:

000005
032777
001401
104033

ELSE

ENDIF

$150:

SHOULD

:= ERRCHK SET.BY #BIT?2

;CLEAN UP

JRESET DID NOT CLEAR ERROR,FR ERR,OR PERR IN RBUF

CvD
cvD

r Ll Ul L U L Ll U Ll L L Ll L Ll AN U G L N L N L N N L N L N Ll i A L O O U N L U N N LN AN N AN N N N N AN N AN AN AN AN N AN

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

2751
2752
2753

006434
006434
006434
006434
006434
006442
006442

006450
006450
006452
006456
006462
006466
006472
006476

006500
006500

006502
006502
006504

104121

BIT
BEQ

#BITO,ERRCHK
$152

ERROR

121

BIT
BEQ

#BIT1,ERRCHK
$153

ERROR

122

BIT
B.Q

#BIT2,ERRCHK
$154

ERROR

235

IF #BITO SETIN ERRCHK THEN
ERRHRD 121
ENDIF

$152:

032737
001401

000002

006612

104122

IF #BIT1

000004

006612

104235

000010

006612

104236

#BIT3 ERRCHK
$155

ERROR

236

ERRHRD

052777
010546
012745
013745

012745
012745
004737
012605

006442
000001

177777
001264
000001
000500
012560

001110
172614

#64% ,SLPERR

BIS

#BREAK ,aTCSR

MOV
MOV
MoV
MOV
MOV
JSR
MOV

R5,=(SP)
#SET,-(RS)
TCSR,=(RS)
#BREAK ,-(RS5)
#500,-(RS)
PC,TIMER
(SP)+,R5

: THERE SHOULD BE

IF #BIT3 SETIN ERRCHK THEN
ERRHRD 236

ENDIF

Mov

235

sNO PARITY ERROR WHEN

$155:

012737

FRAMING ERROR

IF #BIT2 SETIN ERRCHK THEN

ENDIF

BIT
BEQ

;

ENDIF

$154:

032737
001401

SETIN ERRCHK THEN

ERRHRD 122

$153:

032737
001401

;BREAK ERROR

:PARITY ERROR SHOULD NOT HAVE
;OCCURED WITH EVEN PARITY
sENABLED AND BREAK SET

ENDSUB
BGNSUB

:SET BREAK BIT

LET @TCSR

:= QTCSR SET.BY #BREAK

CALL TIMER IN <#500,#BREAK,TCSR,#SET>

;DID IT SET?

103001

BCC

$156

104021

ERROR

IF.ERROR THEN

;BREAK DID NOT SET
ERRHRD 21
ENDIF

cvD
cvD
N W W N N W

006612

SEQ 0065

TEST BREAK GENERATION LOGIC

N N NN W N NN W NN N W N WW W

006422
006422
006422
006422
006430
006432
006432

000001

N5
PAGE 67

N NN N AN N NN AN NN NN N NN W N NN N N NN N NN

006406
006406
006410
006410
006410
006410
006416
006420
006420

032737
001401

10:10

AN AN

006364
006364
006372
006374
006374
006376
006376
006376
006376
006404

30-JUN =78

U L

2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2T
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750

30A(1052)

A A

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

CVDLAAO DLV1I1-J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN

2754
2755
2756
2757
2758
2759
2760

2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
277
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

30A(1052)

006504
006504
006504
006512
006512
006514
006520
006524

006526
006526
006532
006532
006540
006540
006542
006546
006552
006556
006562
006566
006570
006570

006572
006572
006574
006574

006574
006574
006602
006604
006604
006606
006606
006606
006606
006610
006610
006610
006612

30-JUN-78

T17

10:10

B 6
PAGE 68

TEST BREAK GENERATION LOGIC

SEQ 0066

$156:

;CLEAR

0462777
010546
012745
004737
012605

017700

012777
010546
012745
013745
012745
012745
004737
012605

000001

172552

000144
012732

#BREAK ,@TCSR

MOV

RS,=(SP)

MOV
JSR

MOV

172530

000252

BIC

MOV

172526

[ [)]'}

177777

001260
000200
000500
012560

103001

104230

WAITMS 100.

(SP)+,RS

LET RO

aRBUF ,RO

MOV

(SP)+,R5

BCC

$157

CALL

001401

172462

000252

ERROR

IF .ERROR THEN

RECEIVER NEVER CAME READY
ERRHRD 230

230

sWAS CHAR AFTER BREAK RECEIVED
IFB @RBUF NE #252 THEN

aRBUF ,#252
$160

;CHAR AFTER BREAK NOT RECEIVED CORRECTLY
ERRHRD 231

ENDIF

$160:

000005
000401
000000

RESEN

ERRCHK:

;WAIT FOR DONE BIT
TIMER IN <#500,#RCVRDONE,RCSR,#SET>

ENDIF

CMPB
BEQ

104231

TO CLEAR ERRORS & REC DONE

RCSR,=(RS)
#RCVRDONE
, = (RS)
#500,-(RS)
PC,TIMER

$157:

127727

;READ RBUF
:= QRBUF

:SEND CHAR
LET QTBUF := #252

#252,3TBUF
RS,=(SP)
#SET,=-(RS)

ERROR

BREAK BIT

:= @TCSR CLR.BY #BREAK

#100.,-(RS)
PC,WAIT

MOV
MOV

MoV
MOV
MOV
JSR

LET @TCSR

BR
TST120
.WORD 0

BRESET
ENDSUB
EXIT

sEXIT THIS TEST

C\
Cv

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PT

2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815

2816

2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849

30A(1052)

C
6
10:10
PAGE 69
TEST BREAK GENERATION LOGIC

30-JUN-78

AASA

AR ARttt
REd

J*TEST 20
AR

006614
006616
006624
006624
006632
006634
006634
006642
006644
006704
006704
006706
006706
006706
006712
006714
006754
006754
006760
006760
006760
006760
006760
006774
007002
007022
007030
007050
007056
007062
007062
007062
007066
007066
007074
007076
007076
007102
007102
007106
007106
007106

000004
012737

000001

001160

032777
001513

010000

023727
001021

014320

005237

SCOPE

NOT A

TEST -

#1,8TIMES

172306

BIT
BEQ

#BIT12,aSwWR

000001

CMP
BNE

PHASE2
, #TRUE

TYPTXT

$162:

014322

;:00 1

$162

<<CRLF>/

$163

TST
BNE

P1CNT

INC

TO LOOP

ITERATION

IF #BI1T12 SETIN @SWR THEN

$161

TYPTXT

SEND BACK

R ARl
Rl

MoV

000425

005737
001022

1§120:

SEQ 0067

IF PHASE2 EQ #TRUE
*+

PHASE

2 SUMMARY

104401

001171

005037

001112

023727
001004

014320

005037
005237
000137

$161:

IF PICNT EQ #0 THEN

$164

<<CRLF>/

PHASE

SUMMARY

P1CNT

ENDIF
TYPTXT
TYPOCT
TYPTXT
TYPOCT
TYPTXT
TYPDEC
TYPE

<t(SR:

*©

DLADD

<+, VECTOR:

DLVEC
<+ ,ERRORS:
SERTTL

.SCRLF

CMP
BNE

PHASEZ
, #TRUE
2

$165

014320

CLR

PHASE?2

001206

INC

SUNIT

JMP

LOOP

001732

:= PICNT + M

ENDIF

SERTTL

$165:

#*#/<CRLF>>

LET PICNT

CLR

000001

#*#/<(CRLF>>

ELSE

$164:

$163:

THEN

ENDIF

;

RESET FOR NEXT DEVICE/PASS

IF PHASE2 EQ #TRUE THEN

LET PHASE2 := #0
LET SUNIT

:= SUNIT + M

ENDIF
:

BACK UP TO THE BEGINNING

Cv
cv

CVDLAAO DLV11-J TEST
MACY11
11-MAY-7
CVDLAA.PT
8 00:00

2850
2851
2852

2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867

2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883

2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905

30A(1052)

007112

D
6
30-JUN-78
10:10
PAGE 70
120
NOT A TEST - SEND BACK TO LOOP
MODTST:
SRR

TRTEST 21

AL AR

007130
007130
007134
007134
007134
007134
007136
007136
007142

000004
012737
012737

012700

001200

Mov

010056

MoV

005020
020027
001374

010076

R R

#1,8TIMES

#21,8TESTN

#INTRTABLE,RO

;:D0 1 ITERATION
;:SET TEST NUMBER IN APT MAIL BOX
;CLEAR OUT INTERRUPT TABLE
LET RO := NINTRTABLE

CLR

(RO)+

CMP
BNE

RO,#TABEND
$166

LET

(RO)+

013700

001256

MoV

DLVEC,RO

012701

007536

Mov

#RCVROSRV,R1

:= #0

UNTIL RO EQ #TABEND

;SET PRIORITY TO 7

SETPRI #PR7

sSET UP ALL INTERRUPT VECTORS

LET RO

LET R1

:= #RCVROSRV

DLVEC

REPEAT

$167:
010120

2222222222222 ]

REPEAT

$166:

007144

007156
007156
007162
007162
007166
007166
007166
007166
007170
007170
007174
007174
007200
007200
007204

000061 001160 e SSSPE
000021

R R R

TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY
INTERRUPTS WILL BE ENABLED ON ALL ACTIVE CHANNELS.
RECEIVER AND TRANSMITTER. THEN WE'LL CHECK TO
SEE IF THEY INTERRUPTED IN THE ASSIGNED SEQUENCE.

. %

007112
007114
007122

SEQ 0068

Mov

R1,(RO)+

012720

000340

Mov

#PR7,(RO)+

062701

000030

ADD

#30,R1

020127
001370

010036

CMP
BNE

R1,#SRVEND
$167

LET (RO)+

#PR7

LET R1
UNTIL R1

:= R1

+ #30

EQ #SRVEND

;ENABLE

INTERRUPTS ON ALL ACTIVE LINES,

;ALSO, XMIT CHAR'S TO PRIME RECEIVERS
007206
007206
007214
007214
007220
007220
007224
007224

. COPY MASK

013737

014314

005037
013700

010076

Mov

MASK, CHMASK

010100

CLR

CHCNT

001254

Mov

DLADD,RO

$170:

LET CHMASK

LET CHCNT

:= MASK

:= #0

LET RO := DLADD
REPEAT

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

2906
2907
2908
2909
2910
2911
2912

2913
2914

2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961

007224
007224
007232
007234
007234
007240
007240

007244
007244
007250
007250
007256
007256
007262
007262
007264
007270
007272
007276
007302
007306
007310
007310
007312
007312
007314
007314
007314
007314
007314
007314

007320
007320
007324
007324
007330
007330
007336
007340
007340
007344
007344
007350
007352
007352
007356
007356

032737
001430

000001

30A(1052)

E
6
30-JUN -78
10:10
PAGE 71
T2l
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY

010076

BIT
BEQ

#BITO, CHMASK
$171

052710

000100

BIS

#BIT6, (RO)

062700

000004

ADD

#4,RO

052710
012760
162700

010546
012745
010045
012745
012745
004737
012605

000100

000252

000002

000004

BIS

#BIT6, (RO)

Mov

#252,2(RO)

suB

#4,RO

Mov
MOV
MoV
MoV
MoV
JSR
Mov

177777

000200
000500
012560

103001

104023

IF #BITO SETIN CHMASK THEN

;SET RCSR IE
(RO) := (RO) SET.BY #BIT6

LET

LET RO := RO + #4

;SET XCSR IE

LET

$172

ERROR

SET.BY #BITé

.LOOK FOR RCVR DONE
CALL TIMER IN <#500,#RCVRDONE ,RO,#SET>

;DID IT SET IN TIME?

IF .ERROR THEN

sRCVRDONE DID NOT SET IN RCSR
ERRHRD 23
ENDIF

ENDIF

$171:

000010

:= (RO)

;GO BACK TO RCSR
LET RO := RO - #4

$172:

062700

(RO)

sLOAD XBUF
LET 2(RO) := #252

R5,=(SP)
#SET,=(RS5)
RO,=(R5)
#RCVRDONE
, - (R5)
#500,-(RS)
PC,TIMER
(SP)+,RS

BCC

SEQ 0069

ADD

LET RO

#10,R0

:= RO + #10

;SETUP FOR NEXT CHANNEL

006237

010076

ASR

CHMASK

005237

010100

INC

CHCNT

023727
001007

010100

CMP
BNE

CHCNT
, #3
$173

004737

013662

JSR

PC,TSTCON

005737
001402

013736

TST

CONSOLE

005237

010100

000003

$174:

BEQ

$174

INC

CHCNT

LET CHMASK

LET CHCNT

:= CHMASK SHIFT =1

:= CHCNT + M

CHCNT EQ #3 THEN
CALL

TSTCON

CONSOLE NE #0 THEN
LET CHCNT

ENDIF

:= CHCNT + M

v
Cvl

CVDLAAOD DLV11=J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00

2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004

3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017

007356
007356
007356
007356
007364

30A(1052)

F
6
-78
10:10
PAGE 72
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY
ENDIF

$173:
023727
001317

010100

000004

CMP
BNE

, #4
CHCNT
$170

UNTIL CHCNT EQ #4

;ALL XMIT & REC INTERRUPTS SHOULD BE
:IN CONTENTION.
;RECEIVE INTERRUPTS HAVE PRIORITY
;OVER XMIT INTERRUPTS.
;LOW CHANNELS HAVE PRIORITY OVER HIGH CHANNELS.
: THEREFORE, ONCE CPU PRIORITY IS LOWERED,
sINTERRUPTS S/B IN THE ORDER SHOWN IN THE
; CHANNEL IDENTIFIER TABLE (RCHO:)
007366
007366

012704

010056

MoV

007372

#INTRTABLE,R4

LET R4

;LET EM GO

SETPRI #PRO

007404
007404

000005

007406
007406

005037

BRESET

RESET

010104

CLR

TCNT

007412
007412
007416
007416

005037

010102

CLR

PRIERR

012700

010056

Mov

#INTRTABLE,RO

007422
007422
007426

012701
013737

010060
014314

MOV
Mov

#INTRTABLE+2,R1

007434
007440
007442
007446
007452

006237
103002
005237
005737
001370

010076

007454
007460
007464
007466
007472

004737
005737
001402
005337
006337

013662
013736

010104
010104

3s:

007476
007502
007504
007512
007514
007516

005337
001410
023727
001404
022120

010104

4%:

003367

010076

010104
010076

010104

2%:

177777

ASR
BCC
INC

MASK, CHMASK

;SET UP POINTER FOR SERVICE ROUTINE

:= FINTRTABLE

LET TCNT

;:DISABLE ALL INTERRUPTS

:= #0

;CLEAR ERR FLAG

LET PRIERR

:= #0

LET RO := #INTRTABLE

;SETUP EXPECTED VALUE
LET R1 := W#INTRTABLE+2
;GET # OF CHANNELS IN TCNT

CHMASK

TCNT
CHMASK
1%

;GET TOTAL CHANNEL CT

JSR
TST
BEQ
DEC

PC,TSTCON

;CORRECT CHANNEL CT FOR CONSOLE

DEC
BEQ
CMP
BEQ
(MP
BGT

TCNT

TST

BNE

ASL

CONSOLE

TCNT
TCNT

TCNT,#-1
5$
(R1)+,(RO)+
4%

;APPLY X2 MULT FACTOR

sALL 1°'S ?
;BR IF YES
:R1=R0O

;BR IF R1>R0

SEQ 0070

cvi
vt

$175

ERROR

250

ERRHRD 250

; CHANNELS DID NOT INTR ACCORDING TO
sASSIGNED PRIORITY. THE BYTE ENTRIES
;IN INTRTABLE: SHOULD BE IN THE ORDER

;THAT THEY APPEAR IN THE CHANNEL #
ENDIéTABLE . (EXCLUDING CHANNELS NOT ACTIVE)

JoEXIT THIS TEST

(=)

Ll Gl el
N LA
Al Ll LN LA AN LN AN

EXIT

tal

TST22

ialtaitaitai

000565

$175:

ittt

104250

BEQ

IF PRIERR NE #0 THEN

Al Ll O

PRIERR

TST

010102

;ELSE ERROR

SEQ 0071

005737
001401

ASSIGNED PRIORITY

il AN AN

PRIERR

INTR AT

N Ll

INC

cve

THAT CHANNELS

5%:

007534
007534
007534
007534

010102

G
6
PAGE 73

007524
007524
007524
007530
007532
007532

005237

TEST

10:10

tul

3034
3035

007520

?0-JUN-78

(nlaltlautlulisa ittt

3018
3019
3020
3021
3022
3023
3024
3025
5026
3027
3028
3029
3030
3031
3032
3033

30A(1052)

(]

CVDLAAO DLV11=J TEST
MACY11
CVDLAA P11
11-MAY-78 00:00

3036

3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084

3085
3086
3087
3088
3089
3090
3091

START OF

MAAAAAAA

007536
007536

007542
007542
007550
007550

AR AR AR

SERVICE ROUTINES
s

BGNSRV RCVROSRV

RCVROSRV:

013724

010036

MOV

R Rt

sPUT INTR IDENTIFIER IN INTRTABLE
LET (R4)+ := RCHO

RCHO, (R4) +

013737

001260

010106

MOV

RCSR,TEMP

062737

000000

010106

ADD

#0,TEMP

LET

:GENERATE (SR ADDRESS
TEMP

LET TEMP

;ONE

042777

000100

00032

006002

BIC

LET QTEMP

#BIT6,aTEMP

:= RCSR

:= TEMP + #0

INTR IS ALL WE WANT FROM HERE
:= QTEMP CLR.BY #BITé6

ENDSRV

RTI

007556
007556
007564
007564

AN L

007536
007536

ARl ARttt
sl

N LA LA

AAAA LSRR

007566
007566
007566
007566
007572
007572
007600
007600

007606
007606
007614
007614

013724

010046

MoV

001260

010106

Mov

RCSR,TEMP

062737

000004

010106

ADD

#4,TEMP

007622
007622
007630
007630
007636
007636
007644
007644

007646
007646

XMITOSRvV

LET

TCHO, (R4) +

013737

sPUT INTR IDENTIFIER IN INTRTABLE
(R4)+ := TCHO
:GENERATE CSR ADDRESS

LET TEMP

:= RCSR

LET

:= TEMP + #4

TEMP

;ONE INTR IS ALL WE WANT FROM HERE

042777

000100

000272

000002

BIC

010040

MoV

BGNSRV

001260

010106

MOV

RCSR,TEMP

062737

000010

010106

ADD

#10,TEMP

000002

000100

000242

RCVR1SRV
LET

RCH1, (R4)+

013737

042777

:= QTEMP CLR.BY #BIT6

ENDSRV

RCVR1SRV:

013724

LET QTEMP

#BIT6,QTEMP

RTI

007616
007616
007616
007616

BGNSRV

XMITOSRV:

LET

:PUT INTR IDENTIFIER IN INTRTABLE
(R&)+

:= RCH1

;GENERATE CSR ADDRESS

TEMP

:= RCSR

LET TEMP := TEMP + #10

:ONE INTR IS ALL WE WANT FROM HERE

BIC
RTI

XMIT1SRV:

LET QTEMP

#BIT6,aTEMP

ENDSRV
BGNSRV

XMIT1SRV

:= QTEMP CLR.BY #BIT6

3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072

SEQ 0072

NNt

3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055

cve

LA AN

INTR AT ASSIGNED PRIORITY

N LA

THAT CHANNELS

TEST

PAGE 74

N L

121

10:10

AN L

30-JUN-78

N L

30A(1052)

N L

CVDLAA P11

MACY11
11-MAY-78 00:00

()

CVDLAAO DLV11-J TEST

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

062737

000014

010106

ADD

#14,TEMP

007702
007702
007710
007710
007716
007716
007724
007724

MoV

007732
007732

007740
007740
007746
007746
007754
007754

007762
007762
007770
007770

RCSR,TEMP

062737

000020

010106

ADD

#20,TEMP

000002

BIC

MoV

:= RCSR

LET TEMP := TEMP + #20
LET QTEMP

:= QTEMP CLR.BY #BIT6

ENDSRV

BGNSRV

001260

010106

Mov

RCSR,TEMP

062737

000024

010106

ADD

#24 ,TEMP

XMIT2SRV

LET

TCH2, (R4)+

013737

LET

sPUT INTR IDENTIFIER IN INTRTABLE
(R4)+ := TCH2
:GENERATE CSR ADDRESS

TEMP

:= RCSR

LET TEMP := TEMP + #24

;ONE INTR IS ALL WE WANT FROM HERE

042777

000100

000132

000002

BIC

MOV

:= QTEMP CLR.BY #BIT6

ENDSRV

RTI

010044

LET QTEMP

#BIT6,aTEMP

BGNSRV RCVR3SRV

RCVR3SRV:

013724

N N W
W
W
W

;GENERATE (SR ADDRESS

LET TEMP

#BIT6,aTEMP

RTI

010052

RCH3, (R4)+

013737

001260

010106

MoV

RCSR,TEMP

062737

000030

010106

ADD

#30,TEMP

sPUT INTR IDENTIFIER IN INTRTABLE
(R4)+ := RCHZ2

ONE INTR IS ALL WE WANT FROM HERE

XMIT2SRV:

013724

MOV

000162

LET

RCHZ, (R4)+

010106

RCVR2SRV

BGNSRV

001260

007756
007756
007756
007756

ENDSRV

013737

600100

:= QTEMP CLR.BY #BITé

010042

LET QTEMP

#BIT6,aTEMP

RTI

007726
007726

BIC

RCVR2SRV:

042777

:= TEMP + #14

AN NN

000212

000002

013724

TEMP

;ONE INTR IS ALL WE WANT FROM HERE

007676
007676
007676
007676

LET

N W W

RCSR,TEMP

Mov

;GENERATE (SR ADDRESS

LET TEMP := RCSR

cvD
cvD

010106

sPUT INTR IDENTIFIER IN INTRTABLE
(R&)+ := TCHI

SEQ 0073

001260

000100

LET

TCHT, (R&)+

013737

042777

INTR AT ASSIGNED PRIORITY

Mov

THAT CHANNELS

007666
007666
007674
007674

010050

TEST

I
6
PAGE 75

007652
007652
007660
007660

013724

rel

10:10

007646
007646

30-JUN-78

sPUT INTR IDENTIFIER IN INTRTABLE
LET (R4)+ := RCH3

:GENERATE CSR ADDRESS

LET TEMP

:= RCSR

LET TEMP := TEMP + #30

NW AN NN

b
D o
D
il
d

—_ —

oo — i i D i - i i
-0 VOOV
W
-

WNW WIWWWWWWWW

3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107

30A(1052)

INWWWWAN NN

CVDLAAO DLV11=J TEST
MACY11
CVDLAA PN
11-MAY-78 00:00

3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169

007776
007776
010004
010004

30A(1052)

;ONE INTR IS ALL WE WANT FROM HERE

042777

000100

000102

010012
010012
010020
010020

010026
010026
010034
010034
010036

BIC

000002

010054

MoV

BGNSRV

001260

010106

Mov

RCSR,TEMP

062737

000034

010106

ADD

#34,TEMP

000002

000100

XMIT3SRV

sPUT INTR IDENTIFIER IN INTRTABLE
LET (R4)+ := TCH3

TCH3, (R4)+

013737

042777

:= QTEMP (CLR.BY #BIT6

ENDSRV

XMIT3SRV:

013724

LET QTEMP

#BIT6,QTEMP

RTI

010006
010006
010006
010006

J
6
30-JUN-78
10:10
PAGE 76
T21
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY

. GENERATE (SR ADDRESS

LET TEMP

:= RCSR

LET TEMP := TEMP + #34

;ONE INTR IS ALL WE WANT FROM HERE

000052

BIC

SRVEND:

RTI

LET QTEMP

#BIT6,ITEMP

ENDSRV

:= QTEMP CLR.BY #BIT6

SEQ 0074

cvD
CcvD

I N AN NN N NN NN N N AN NN N N N W N W N W N AN N W N W N W N W N N NN W N N W DN N DWW W N W N W W W W W W N W

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN

CVDLAAO DLV11=J) TEST

CVDLAA.P11

MACY11

11-MAY=78 00:00

30A(1052)

130-JUN-78

10:10

K_6

PAGE 77

TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY

SEQ 0075

CcvD

cVD

3170
3171
3172
3173

;**CHANNEL IDENTIFIER TABLE**

3
3
3
3

3175
3176
3177
3178
3179
3180

:TABLE ARE PLACED IN THE INTRTABLE
:IN THE ORDER THAT THE INTR'S
;OCCUR. (EXCLUDING NON-ACTIVE CH'S)
RCHO:
.WORD 0
RCH1:
.WORD 1
RCH2:
.WORD 2

3
3
3
3
3
3

TCH1:
TCH2:
TCH3:

3
3
%

3174

3181
3182

3183
3184
g}gg

:THE ENTRIES FROM THIS

010036
010040
010042
010044
010046
010050
010052
010054

000000
000001
000002
000003
000010
000011
000012
000013

3187
3188
3189
g}g?

.WORD
.WORD
.WORD
.WORD
.WORD

3
10

11
12
13

;THIS TABLE WILL CONTAIN ENTRIES
;REPRESENTING EACH INTR IN THE ORDER
:THAT IT OCCURED
: S/B IN THE ABOVE ORDER

3192

010056

000010

3195
3196
3197
3198
3199
3200

010076
010100
010102
010104
010106

000000
000000
000000
000000
000000

g:gz

RCH3:
TCHO:

010076

INTRTABLE :

.BLKW

TABEND :

CHMASK:
CHCNT:
PRIERR:
TCNT:
TEMP:

.WORD
.WORD
.WORD
.WORD
.WORD

0
0
0
0
0

3
3

3
3
3
%

;BITS 3-0 INDICATE WHICH CH'S ARE ACTIVE FOR THIS TEST
;CHANNEL COUNTER
;ERROR WORD, CONTAINS NO. OF INTR OUT OF ORDER
:TABLE PASS CTR
;FOR SERVICE ROUTINES

3
3
3
3
3
3

;

3
3

3
3
3

3
3

3
3
3

CVDLAAO DLV11=J TEST

CVDLAA PN

MACY11
11-MAY-78 00:00

30A(1052)

3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211

3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224

3225

3226
3227

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

30-JUN =78

R R

010126
010126

010132
010132
010136
010136

010136

010136
010140
010140
010144

010146
010146
010152
010152
010156
010156
010156

10156
010160
010160
010164
010164
010170
010170
010172
010172
010176
010176
010202
010202
010206
010210

001160
001200

R R R AR R R AR

R R R AR R R RO

FOR THIS DLV11=J.

g
;e
o
it

DATA PATERN VIA INTERRUPTS AND RECORD THE RECEIVER
INTR. IN THE RECEIVER STATUS TABLE.
DOUBLE BUFFERING CANNOT BE TESTED AT ITS MAX SPEED
BECAUSE OF APT CONSIDERATIONS. I.E. APT SENDS
'BREAKS' WHICH CAUSE OVERRUN ERRORS. THEREFORE

IN THIS WE'LL ENABLE INTERRUPTS ON ALL CHANNELS

NOTE:

TST22:

THEN WE'LL

XMIT AN INCREMENTING

THE XMIT IE IS NOT ENABLED AGAIN UNTIL
HAS OBTAINED THE PREVIOUS WORD.

SCOPE
MOV
Mov

AR R

#1,8TIMES
#22,8TESTN

R R

RN R R AR R

THE

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

RECVR

R R RO R R

::00 1 ITERATION
;:SET TEST NUMBER IN APT MAIL BOX

:CLR ERROR WORD,

005037

012700

012500

CLR

011472

ERWRD

MoV

#CHOTAB,RO

CLR

(RO)+

CMP

RO,#STATEND

$176:

005020
020027
001374

012472

BNE

LET ERWRD := #0

s CLEAR OUT RECEIVER TABLES
LET RO := #CHOTAB
REPEAT

LET

(RO)+

:= #0

UNTIL RO EQ #STATEND

$176

;SET UP ALL VECTORS

012701

010772

MOV

#ROSRV,R1

013700

001256

MoV

DLVEC,RO

$177:

010120

MOV

R1,(RO)+

012720

000340

Mov

#PR7, (RO) +

062701

000054

ADD

#54 ,R1

MoV

R1,(RO)+

010120

000001
000022

TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING

i
i

000004
012737
012737

SzQ 0076

;*TEST 22
; ®

010110
010112
010120

10:10
PAGE 78
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY

012720

000340

MoV

#PR7,(RO)+

062701

000044

ADD

#4464 ,R1

020127
001363

011472

CMP
BNE

R1,#SEREND
$177

SETPRI #PR7

LET R1

:= #ROSRvV

LET RO := DLVEC
REPEAT

LET

(RO)+

:= R1

LET

(RO)+

:= #PR7

LET R1

:= R1

+ #54

LET (RO)+ := R1
LET (RO)+
LET R1

:= R1

#PR7
+ #44

UNTIL R1 EQ #SEREND

;SET PRIORTY TO 7

CVDLAAO DLV11=J TEST

CVDLAA.PT

3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276

MACY11
11-MAY-78 00:00

30A(1052)

L
30-JUN-78
10:10
PAGE 79
T22
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING

;ENABLE INTR'S ON ALL ACTIVE LINES

010222
010222
010226
010226
010234
010234
010240
010240
010244
010244
010244
010244
010252
010254

013700

001254

013737

014314

005037

012474

005037

[ [o]'}
012472

012476

DLADD,RO

MoV

MASK, CHMSK

CLR

CHCTR

CLR

ACTCH

032737
001413

000001

012472

BIT
BEQ

#BI1T0, CHMSK
$201

006237

012472

ASR

CHMSK

3299
3300

010312
010312

005237

012474

INC

CHCTR

3302

010316

023727

012474

CMP

CHCTR,#3

3303
3304
3305
3306
3307
3308
3309
3310
3311

3312

010316

010324
010326
010326
010332
010332
010336
010340
010340
010344

010344

sINITIALIZE

LET CHMSK

:= MASK

LET CHCTR

:= #0

sACTIVE CHANNEL CTR

LET ACTCH

:= #0

IF #BITO SETIN CHMSK THEN
;# OF

010270
010270
010274
010274
010300
010300
010302
010302
010302
010306
010306
010306
010306

010260
010260
010264
010264

LET RO := DLADD

REPEAT

$200:

3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296

3301

010254

: THIS MODULE

005237

012476

INC

ACTIVE

LET ACTCH

ACTCH

:= ACTCH + ¢

;SET RCSR IE

052719

000100

BIS

#B176, (RO)

062700

000004

ADD

#4 ,R0

052710

000100

BIS

#BIT6, (RO)

062700

000004

ADD

#4,R0

$202

ADD

#10,R0

000402

062700

$201:
000010

$202:

001007

000003

BNE

$203

004737

013662

JSR

PC,TSTCON

005737
001402

013736

TST

CONSOLE

005237

012474

$204:

BEQ

$204

INC

CHCTR

LET

(RO)

SET.BY #BIT6

LET RO := RO + #4
;SET XCSR IE
LET (RO) := (RO)

SET.BY #BITé6

LET RO

:= RO + #4

LET RO

:= RO + #10

ELSE

ENDIF
LET CHMSK

:= CHMSK SHIFT =1

LET CHCTR

:= CHCTR + M

IF CHCTR EQ #3 THEN
CALL

TSTCON

CONSOLE NE #0 THEN
LET CHCTR

ENDIF

:= CHCTR + M

SEQ 0077

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.P11

3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326

3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353

3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368

010344
010344
010344
010344
010352

010354
010354
010360
010360
010364
010364
010370
010370

30A(1052)

N
6
30-JUN-78
10:10
PAGE 80
122
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING
ENDIF

$203:

023727
001334

012474

000004

CMP
BNE

#4
CHCTR,
$200

012700

011472

MoV

#CHOTAB,RO

012701

011672

MoV

#CH1TAB,R1

012702

012072

Mov

#CH2TAB,R2

012703

012272

MoV

#CH3TAB,R3

UNTIL CHCTR EQ #4

;INIT BUFFER POINTERS FOR SERVICE ROUTINES
LET RO := #CHOTAB
LET R1

:= #CHI1TAB

LET R2 := #CH2TAB

LET R3 := #CH3TAB
;FILL XBUF WORDS

;FROM TMPO THRU TMP3E

010374
010374
010400
010400
010402
010402
010406
010406
010406
010406
010414
010416
010416
010422
010422

010426

010426
010430
010430
010430
010434
010434
010440
010440
010440
010440
010444
010444
010450
01045¢2
010452

010460

;START WORD CH 0 ALWAYS 0

005037

012504

CLR

005004

012705

CLR

012506

MoV

TMPO
R4

000001

016425

001220

#TMPOE ,RS

BIT

BNE

#BIT0,SUSWR
$206

012540

Mov

TABL7(R4), (R5)+

012540

MoV

TABL7(R4), (R5)+

$207

000404

$206:

016425

012550

Mov

TABLB(R4),(R5)+

016425

012550

Mov

TABLB(R4), (R5)+

$207:

062704

000002

ADD

#2,R4

020427
001356

000010

CMP
BNE

R4, #10
$205

013737

012476

012526

MOV

;OFFSET TO INDEX
:= #0

LET R4
sPTR

$205:

032737
001005

LET TMPO := #0

ACTCH, THP4

SETPR] #PRO

TO TABLE

TO BE

LET RS := #TMPOE

FILLED

REPEAT

IF #BITO NOTSETIN SUSWR THEN
LET (R5)+

:= TABL7(R4)

LET (R5)+

:= TABL7(R4)

ELSE

LET

(R5)+

:= TABL8(R4)

LET

(R5)+

:= TABL8(R4)

ENDIF

LET R4

:= R4 + #2

UNTIL R4 EQ #10
SINIT TMP4

;WILL BE DECR BY XMIT SERVICE ROUTINES TILL O
LET TMP4 := ACTCH

;SET PRIORITY TO 0

SEQ 0078

CVDLAAO DLV1I1=J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00

3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
341
3412
3413
3414
3415
3416
3417
3418
3419
3420
3421
3422
3423
3424

010472
010472
010472
010472
010476
010500
010500
010506
010506
010506
010506
010512
010512
010516
010520
010520

30A(1052)

30-JUN-78

T22

10:10

8
PAGE 81

TEST DATA TRANSFERS WITH ALL ACTIVE LINES

REPEAT

$210:

005737
001375

012526

TST

BNE

TMP4
$210

UNTIL TMP4 EQ #0

;WAIT

012737

100000

012526

INTERRUPTING

Mov

#100000, TMP4

FOR RECV'S

LET TMP4

TO CATCH UP

:= #100000

REPEAT

$211:

005337

012526

DEC

TMP4

005737
001373

012526

TST
BNE

TMP4

LET TMP4
UNTIL

:= TMP4 - M1

TMP4 EQ #0

$211

;DISABLE ALL INTR'S

000005

BRESET

RESET

;CHECK RECEIVER TABLE

010522
010522
010526
010526
010534
010534
010542
010542
010550
010550
010554
010554
010562
010562
010562
010562
010570
010572
010572
010576
010576
010600
010600
010604
010604
010606
010606

;RESET

005037

012504

013737

012506

013737

CLR

TMPO

012510

Mov

TMPOE
, TMP1

012512

012514

MoV

TMP1E, TMP2

013737

012516

012520

Mov

TMP2E
, TMP3

005037

012474

CLR

CHCTR

013737

014314

Mov

MASK, CHMSK

012472

000001

013700

012474

006300
016002

012472

BIT
BEQ

#BITO, CHMSK
$213

Mov

CHCTR,RO

ASL

012530

006300

LET TMP1

:= TMPOE

LET TMP2

:= TMP1E

LET TMP3 := TMP2E

€T CHCTR 1= 40
LET CHMSK

:= MASK

REPEAT

$212:

032737
001436

TMPO,1,2.3

LET TMPO := #0

Mmov

ASL

RO
TABL6(RO)
,R2

IF #BITO SETIN CHMSK THEN
LET RO

:= CHCTR

;OFFSET TO INDEX (2X)

LET RO

:= RO SHIFT #1

;:GET TABLE LOC FOR THAT CH.
LEi R2 := TABL6(R0)

;OFFSET TO INDEX (4X)
LET RO := RO SHIFT #1

;GET EXPECTED STARTING WORD

016001

012504

Mov

TMPO(RO)
,R1

LET R1

:= TMPO(RO)

SEQ 0079

v
Cv

#2,R0

010616
010616

016003

012504

MOV

TMPO(RO)
,R3

LET RO := RO + #2

010646
010646
010650
010650

010654
010654
010656
010660
010664
010666
010666
010666
010666
010666
010672
010672
010676
010676
010704
010706
010706
010712
010712
010720

010722
010722
010726
010726
010726

LET ERWRD

ENDIF

$215:

001402
005237

012500

CMPB
BEQ

(R2) ,R1
$216

INC

ERWRD

;CHECK FOR DATA COMPARE ERROR
IFB (R2) NE R1 THEN

121201

LET ERWRD

062702

020103
001403
005737
001756

INC

000002

ADD

#2,R2

012500

CMP
BEQ
TST
BEQ

R1,R3
$217
ERWRD
$214

$217:

005237

012474

INC

CHCTR

006237

012472

ASR

CHMSK

023727
001010

012474

CMP
BNE

CHCTR,#3
$220

004737

013662

JSR

PC,TSTCON

023727
001002

013736

CMP
BNE

CONSOLE ,#TRUE
$221

005237

000001

012474

INC
$221:

;BUMP EXPECTED DATA WORD
LET R1 := R1 + M

;BUMP TABLE PTR
LET R2 := R2 + #2
UNTIL R1

EQ R3 OR ERWRD NE #0

ENDIF

$213:

000003

:= ERWRD + #1

ENDIF

$216:

005201

:= ERWRD SET.BY #BIT8

#BIT8,ERWRD

$215

012500

THEN

BIS

BEQ

IF #BIT15 SETIN (R2)

000400

#BIT15,(R2)

052737

BIT

100060

032712
001403

010636
010636
010640
010642
010642
010646
010646

REPEAT

$214:

010622
010622
010622
010622
010626
010630
010630
010636
010636

ADD

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
3478
3479
3480

000002

3449
3450
3451

062700

3445
3446
3447
3448

010612
010612

SEQ 0080

cvl
cvi

3440
3441
3442
3443
3444

7
C
30-JUN-78
10:10
PAGE 82
122
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING

3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439

30A(1052)

-—

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P1
11-MAY-78 00:00

LET CHCTR

:= CHCTR + M

LET CHMSK

:= CHMSK SHIFT =1

IF CHCTR EQ #3 THEN
CALL

TSTCON

CONSOLE EQ #TRUE

JEXIT

LET CHCTR

CHCTR
ENDIF

ENDIF

THEN

CHCTR

012474

000004

012500
$222:

#4
CHCTR,
$222

CMP
BEQ
TST
BEQ

ERWRD
$212

BIT

#B1T8,ERWRD

UNTIL CHCTR EQ #4 OR ERWRD NE #0

023727
001403
005737
001707

SEQ 0081

cvl
cvi
.

$220:

INTERRUPTING

000137

006614

N
N
e
U
L
N
S

TST20

JMP

$224:

271

ENDIF

271

JEXIT TEST

ERROR

:DATA COMPARE ERROR

ERRHRD

104271

IFB ERWRD NE #0 THEN

ERWRD
$224

012500

105737
001401

TSTB
BEQ

ENDIF

$223:

270

ERROR

.ERROR FLAG UP AFTER TRANSFER
ERRHRD
270

104270

$223

010766

BEQ

IF #BIT8 SETIN ERWRD THEN

010764
010764
010766
010766

012500

010754
010756
010756
010756
010756
010762

000460

010754

032737
001401

010744
010744
010752

PSR

3487
3488
3489
3490
3691
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507

010726
010726
010726
010734
010736
010742
010744

30-JUN-78
10:10
PAGE 83
122
TEST DATA TRANSFERS WITH ALL ACTIVE LINES

3481
3482
3483
3484
3485
3486

30A(1052)

CVDLAA.PT

MACY11
11-MAY-78 00:00

CVDLAAO DLV1I1=-J TEST

CVDLAAO DLV11=J TEST

CVDLAA.P11

MACY11

11-MAY-78 00:00

30A(1052)

3508

3509

3510

3557
3558
3559
3560
3561
3562
3563

010772
010772
010772
010772
011000
011000
011006
011006
011012
011012
011020
011022
011022
011030
011030
011036
011036
011040

011040
011040
011044
011044

011044

011046
011046
011046
011046
011054
011054
011062
011062
011070
011070

011074
011074
011102

011102
011110
011110
011112
011112
011112

10:10

PAGE 84

TEST DATA TRANSFERS WITH ALL ACTIVE LINES

SRR

R R R

R R

R R R

012502

MOV

RCSR,TMP

062737

000002

012502

ADD

#2,THP

017720

001470

MOV

aTMP, (RO) +

023737
001407

012504

CMP
BEQ

TMPO, TMPOE
$225

062737

000002

012502

ADD

#2,THP

052777

000100

001444

BIS

#BIT6,aTHP

$226

AR AR R AR

R R AR R AR

012526

DEC

TMP4

$226:

000002

013737

001260

012502

MOV

RCSR,TMP

062737

000006

012502

ADD

#6,TMP

013777

012504

001412

MOV

TMPO,aTMP

005237

012504

INC

TMPO

162737

000002

SUB

#2,TMP

042777

000100

001372

BIC

000002

RTI

R1SRV:

LET TMP := TMP + #2
LET

(RO)+

#BIT6,aTHP

{

:= QTMP

IF TMPO NE TMPOE THEN
:GO TO XCSR
LET TMP := TMP + #2
:ENABLE XMIT INTERR
LET @TMP := 3TMP SET.BY #BITé

ELSE

4
¢
4
¢
¢
4
¢
¢
4
4
4
4
4
4
4
4
4

4
4
4

LET TMP4

:= TMP4 - #1

ENDIF

4
4
4
4

BGNSRV XOSRV

XOSRV:

AR AR

cvi

cve

ENDSRV

RTI

012502

R R

SEQ 0082

LET TMP := RCSR

;ALL DONE

005337

INTERRUPTING

BGNSRV ROSRV

001260

$225:

R R R R R R AR RN

R R R R P R R RN R R R R AR R

013737

012506

R R R R R

START OF SERVICE ROUTINES

ROSRV:

000402

122

3511

3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556

30-JUN-78

LET TMP

:= RCSR

LET TMP

:= TMP + #6

LET @TMP

:= TMPO

LET TMPO := TMPO + M1
:GO BACK TO XCSR
LET TMP := TMP - #2
;:DISABLE XMIT INTERRUPTS,
:NOT EXER DOUBLE BUFFERING
LET @TMP := aTMP CLR.BY #BITé

ENDSRV
BGNSRV R1SRV
LET TMP := RCSR

4
4
4
4
4
4
4

3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607

3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619

011160
011160
011164
011164
011164
011164
011166
011166
011166
011166
011174
011174
011202
011202
011210
011210
011214
011214

011222
011222
011230
011230

011232
011232
011232
011232
011240
011240
011246
011246
011252
011252
011260

017721

001350

Mov

aTMP, (R1)+

023737
001407

012510

CMP
BEQ

TMP1,TMP1E
$227

062737
052777

000002
000100

012512

012502
001324

000402

005337

ADD

$227:

012526

#BIT6,aTMP

$230

:= QTMP

TMP1 NE TMP1E THEN

;GO TO XCSR

LET TMP := TMP + #2

sENABLE XMIT INTERR

LET QTMP

TMP4

:= Q@TMP SET.BY #BITé

ELSE

sALL DONE

$230:

LET

TMP4

:= TMP4 - M1

ENDIF
ENDSRV

RTI

BGNSRV X1SRvV

X1SRV:

013737

001260

012502

[ [o]'}

RCSR,TMP

062737

000016

012502

ADD

#16,THP

013777

012510

001272

MOV

TMP1,3TMP

005237

012510

INC

TMP1

162737

000002

SuB

#2,TMP

012502

LET (R1)+

#2,TMP

BIS

DEC

000002

LET TMP := TMP + #12

LET TMP

:= RCSR

LET TMP

:= TMP + #16

LET @TMP

:= TMP1

LET TMP1

:= TMP1

+ M1

;G0 BACK TO XCSR
LET TMP := TMP - #2

sDISABLE XMIT INTERRUPTS,
sNOT EXER DOUBLE BUFF

042777

000100

001252

BIC

000002

#BI1T6,aTMP

:= @TMP CLR.BY #BITé6

BGNSRV R2SRV

R2SRV:

013737

001260

012502

MOV

RCSR,TMP

062737

000022

012502

ADD

#22,TMP

017722

001230

MOV

aTMP, (R2)+

023737
001407

012514

CMP
BEQ

TMP2
, TMP2E
$231

012516

LET @TMP
ENDSRV

RTI

#12,TMP

ADD

012502

000012

062737

RCSR,THP

MoV

012502

001260

BN B

013737

cvi

SEQ 0083

e
30-JUN-78
10:10
PAGE 85
122
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING

30A(1052)

LET TMP

:= RCSR

LET TMP := TMP + #22

LET (R2)+

:= QTMP

IF TMP2 NE TMP2E THEN

AN BN

DWWNONNON
—
ONNOAOrOO
N
B8
NNV
ViV
OO
O

D
D

D
i

e
D

—

e
e
—

i
i
-

D
—

—

—_—

2
—

OO0

OCOO0O0O0

3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585

OoOoocoCcooco

CVDLAAOD DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

3667
3668
3669
3670
3671
3672
3673
3674
3675

011334
011334
011342
011342
011350
011350
011352
011352
011352
011352
011360
011360
011366
011366
011372
011372
011400
011402
011402

001260

012502

MoV

RCSR,TMP

062737

000026

012502

ADD

#26,TMP

013777

012514

001152

MoV

TMP2 ,3THMP

005237

012514

INC

TMP2

042777

000100

012502

001132

000002

suB

#2,TMP

BIC

#BIT6,aTHMP

001260

012502

MOV

RCSR, TMP

062737

000032

012502

ADD

#32,TMP

017723

001110

MOV

aTMP, (R3)+

01252¢

CMP
BEQ

;gg%,THP3E

062737

000002

ADD

#2,TMP

000402

000100

001064

o
i
a
A
O
O
R
O
i

LET @TMP := TMP2
LET TMP2 := TMP2 + M1

;60 BACK TO XCSR

LET TMP

:= TMP - #2

LET @TMP

:= QTMP CLR.BY #BITé6

:= TMP + #26

BGNSRV R3SRV

013737

052777

LET TMP

ENDSRV

R3SRV:

012502

:= RCSR

;DISABLE XMIT INTERRUPTS,
;NOT EXER DOUBLE BUFF.

RTI

012522

LET TMP

BGNSRV X2SRV

013737

000002

ENDSRV

RTI

X2SRV:

162737

ENDIF

011314
011314
011322
011322
011330
011330

;ALL DONE
LET TMP4 := TMP4 - M1

TMP4

$232:
000002

ELSE

DEC

011306

011306
011306
011306

$232

:= QTMP SET.BY #BIT6

v
cvd

012526

;ENABLE XMIT INTERR

LET @TMP

SEQ 0084

$231:

#BIT6,aTMP

INTERRUPTING

;60 TO XCSR
LET TMP := TMP + #2

#2,THP

BIS

LINES

001204

000402

005337

ADD

TRANSFERS WITH ALL ACTIVE

000100

012502

011300
011300
011304
011304
011304
011304

052777

000002

TEST DATA

PAGE 86

011270
011270
011276
011276
011300

062737

122

10:10

011262
011262

30-JUN-78

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

30A(1052)

Pl S

CVDLAAOD DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

BIS

#BIT6,aTHP

$234

LET TMP :=

RCSR

LET TMP :=

TMP + #32

LET

:= QTMP

(R3)+

IF TMP3 NE TMP3E THEN
;G0 TO XCSR
LET TMP := TMP + #2

;ENABLE XMIT INTERR

LET @TMP := QTMP SET.BY #BITé6
ELSE

sALL

$234:

ENDSRV

INC

TMP3

162737

000002

012502

suB

#2,TMP

000100

001012

BIC

#BIT6.aTMP

SEREND:

RTI

LET TMP3 := TMP3 + #1
.GO BACK TO XCSR
LET TMP := TMP - #2

;DISABLE XMIT INTERRUPTS,
:NOT EXER DOUBLE BUFF

LET @TMP
ENDSRV

:= QTMP CLR.BY #BITé6

012520

:= TMP3

005237

LET @TMP

TMP3,aTMP

Mov

TMP + #36

T AR Ak aF R O

012520 001032

013777

LET TMP

#36,TMP

ADD

012502

RCSR

aF o o

000036

062737

LET TMP

RCSR,TMP

Mov

012502

001260

BGNSRV X3SRvV

013737

000002

RTI

X3SRV:

042777

ENDIF

000002

:= TMP4 - M1

TMP&

DEC

012526

OF F A

005337

DONE

LET TMP4

SEQ 0085

cvD
cvD
At P o

INTERRUPTING

011462
011462
011470
011470
011472

TEST DATA TRANSFERS WITH ALL ACTIVE LINES

011454
011454

3697
3698
3699
3700
3701
3702
3703
3704

011426
011426
011426
011426
011434
011434
011442
011442
011450
011450

PAGE 87

3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696

122

10:10

$233:

011420
011420
011420
011424
011424
011424
011424

30-JUN-78

3676
3677
3678
3679
3680
3681
3682

30A(1052)

Pl S

CVDLAAO DLV1I1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

PAGE 88

8 BIT WDS

0- 77
100-177
200-277
300-377

Q= 3
i
; 40- 77
:100-137
:140-177

;MASK OF

ACTIVE

CHANNELS

s CHANNEL CTR
;sACTIVE CHANNEL CTR
;ERROR WORD,

ol al ol 2l bl al 2l o

;7 BIT WDS

LOW BYTE

IS NO.

DATA ERRORS

sHIGH BYTE INDICATES ERROR FLAG DETECTED

000000

TMP:

.WORD

;TEMP STORAGE FOR SERVICE ROUTINES

012504
012506
012510
012512
012514

TMPO:
TMPOE:
TMP1:
TMP1E:
TMP2:
TMP2E:
TMP3:
TMP3E:

;START WORD FOR CH 0
SEND
WORD FOR CH 0

012516
012520
012522

000000
000000
000000
000000
000000
000000
000000
000002

012526

000000

TMP4:

.WORD

012530
012532
012534

TABL6:

012536

011472
011672
012072
012272

CHOTAB
CH1TAB
CH2TAB
CH3TAB

012540
012542
012544
012546

000040
000100
000140
000200

TABL7:

40
100
140

;7 BIT WORD TABLE

012550
012552
012554
012556

000100
000200
000300
000400

TABLS:

100

:8 BIT WORD TABLE

.BLKW 2

;START

SJEND
;START
JEND
;START
JEND

200

200
300

400

WWMNO
AN — —

012502

STATEND:
CHMSK:
.WORD
CHCTR:
.WORD
ACTCH:
.WORD
ERWRD:
.WORD

100
100
100
100

.BLKW
.BLKW
.BLKW
.BLKW

000000
000000
000000
000000

CHOTAB:
CH1TAB:
CH2TAB:
CH3TAB:

cvD
CVDI

000100
000100
000100
000100

oo
Oo

011472
011672
012072
012272
012472
012472
012474
012476
012500

SEQ 0086

;** RECEIVER STATUS TABLES #+

INTERRUPTING

TEST DATA TRANSFERS WITH ALL ACTIVE LINES

T22

10:10

S S

30-JUN-78

[=jelelelele
-]

3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747

30A(1052)

o S

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING

R o

SEQ 0087

ANY BIT

ARk o

STATUS OF

INPUTS:

I
I
I

R
R
P
R

"C' BIT IS SET TO INDICATE AN ERROR
IT IS TESTED BY THE IF.ERROR STATEMENT

EITHER #SET OR #CLEAR

OQUTPUT:
THE
BUT

THE MAXIMUM AMOUNT OF TIME TO SPEND IN
THIS ROUTINE.
WHICHBIT
A MASK WITH THE BIT(S) SET THAT ARE
TO BE CHECKED.
REG
A PCINTER TO THE REGISTER TO BE CHECKED
SETCLR
THE DESIRED RESULTS

HOWLONG

012616
012616
012616
012624
012624
012624
012624
012632

000004

012720

MOV

REG(RS) ,REGSAV

016537

000000

012722

MOV

HOWLONG(RS)
, TIMSAV

105037

012724

CLRB

FLAG

TIMER <HOWLONG,WHICHBIT,REG,SETCLR>

105037

012725

000112

000403
112737

$241:
177777

012725

BIT
BNE

WHICHBIT(RS) ,aREGSAV
$241

CLRB

HOLDSC

$242

MOVB

#SET,HOLDSC

$242:

123765
001003

012725

000006

REGSAV

:= REG(RS)

LET

TIMSAV

:= HOWLONG(RS)

LET

FLAG

START OF

:B= #0 ;

;

GET POINTER TO REGIST
;

SAVE HOWLONG FOR

INITIALIZE

THE EXIT FLAG

INFINITE

LOOP

CMPB
BNE

HOLDSC,SETCLR(RS)
$243

LOOP

$237:
000002

LET

ROUTINE

016537

036577
001003

R A2
2222222

TIMER:

012600
012600
012600
012600
012606
012610
012610
012614
012614

;

TEST TO SEE IF WHICHBIT IS SET
WHICHBIT(RS)
NOTSETIN QREGSAV THEN

LET

HOLDSC

:B= #0

LET

HOLDSC

:B= #SET

012560
012560
012560
012560
012566
012566
012574
012574

LRSS

ELSE

THE USE OF (R5) IS PART OF THE LINKAGE
MECHANISM BETWEEN THE CALLER AND THE CALLED

NOTE::

aE aE Ak ka2

THE

ROUTINE
: TIMER
THIS ROUTINE IS USED TO TEST
IN ANY REGISTER.

cvD
cvD

PAGE 89

ARl
2222222222222 2222

3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769

3770
377
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803

122

10:10

3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758

30-JUN-78

;

REMEMBER THIS

ENDIF

: NOW SEE IF THAT WAS WHAT WE WANTED
IFB
HOLDSC EQ SETCLR(RS) THEN
: JUST THE THING WE NEEDED

O O ok ak aF ok I S O

30A(1052)

MACY11
CVOLAAO DLV1I1=) TEST
11-MAY-78 00:00
CVDLAA.PT

3843
3844
3845
3846
3847
3848
3849
3850
3851
3852

MOVB

SEQ 0088
LET

#TRUE ,FLAG

000001

CMPB

BEQ
TST
BLE

012722

TIMSAV

$240

005337

012722

000737

RS,=(SP)

JSR
Mov

#1.-(R5)
PC,WAIT
(SP)+,RS

DEC

TIMSAV

ONLY 2 WAYS TO GET HERE
1).

2).
012702
012702
012710
012712
012712
012714
012714
012714
012714
012716

000261
000404

012720
012722
012724
012725

000000
000000
000
000

012726
012726
012726
012730
012730

123727
001001

012724

000001

000405

WE RAN OUT OF

CMPB
BNE

LET

TIMSAV

TIME---ERROR

$244

$235

IFB

FLAG,#TRUE

ARE

DONE

NO.ERROR

ERROR

GO BACK HOME

ENDRTN

$236:

TIMSAV - #1

MILLI-SECONDS

;

COUNTING DOWN

CONTINUED AT

THEN

GOOD

BAD

ENDIF

.
.
4
.

$235:

FLAG EQ #TRUE

RETURN

REGSAV:
TIMSAV:
FLAG:
HOLDSC:

;WAIT FOR 1

;

RETURN

;

000207

THE BIT IS IN THE CORRECT CONDITION--GOOD

$244:

000241

WAITMS

ENDLOOP

$237

$240:

ONE WAY OR THE OTHER, WE ARE DONE

000001
012732

MOV
MOV

IF WE ARE STILL HERE THEN HANG AROUND A WHILE

adi o

010546
012745
004737
012605

FLAG EG #TRUE OR TIMSAV LE #0

$240

;
012660
012660
012662
012666
012672
012674
012674
012700
012700
012702

EXIFB

FLAG,#TRUE

0014174
005737
003411

012724

:B= #TRUE

ENDIF

$243:
123727

FLAG

CvDL
cvblL

012724

TIMER

000001

PAGE 90

aal

012642
012642
012650
012652
012656

112737

ROUTINE

10:10

abt

3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842

012634
012634
012642
012642

30-JUN-78

3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814

30A(1052)

~ao

CVDLAAO DLV11=J TEST
MACY11
CVDLAA PN
11-MAY-78 00:00

THE

TOP

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

30-JUN-78

10:10

ROUTINE = TIMER

7
L
PAGE 91

SEQ 0089

%
%
%

TIT

MR ARSI
2222222223232 222 3

012732
012732
012732
012740
012740
012744
012744
012750
012752
012752
012756
012756
012760
012762
012762
012764
012766
012766
012770
012770
012774
012776
012776
013000
013000
013000
013002
013002
013010
013010
013010
013010

3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893

30A(1052)

ROUTINE :WAIT
THIS ROUTINE IS USED TO DELAY EXECUTION OF THE
MAIN
PROGRAM
FOR A SPECIFIED AMOUNT OF TIME.
THIS
IS
ACCOMPLISHED
BY
[INCREMENTING
A.
REGISTER UP TD A LIMIT.
THE INNER LOOP IS SET
TO APPROXIMATE 1 MILLI SEC.
A

R AR

R R R

ROUTINE WAIT

WAIT:

PUSH

016501

000000

MOV

TIME (RS) ,R1

012702
000402

000001

MOV

#1,R2

062702

000001

ADD

#01,R2

CMP
BHI

R2.R1
$251

CLR
BR

R3
$252

INC

CMP
BGT

R3,#100
$254

$253

$250

020201
101010

005003
000401

000773
000764

000207

$247:

$253:

005203
020327
003001

$250:

000100

$252:

$254:
$251:
$245:
$246:

:= TIME(RS)

INCRU R2 FROM #1

TO R1 BY #1

$247

INCR R3 FROM #0 TO #100 BY #1

ENDINC

ENDRTN
RTS

LET R1

AR AR

POP

<R3,R2.R1>

CVDLAAO DLVI1=J TEST

CVDLAA.P11

3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905

3906
3907
3908
3909
3910

3911
3912
3913
3914
3915

3916
3917
3918
3919
3920
3921
3922
3923

3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942

3943
3944
3945
3946
3947
3948
3949

013012
013016
013020

MACY11
11-MAY-78 00:00

005737
001070

30A(1052)

001252

010146
012701
012721
012711
012601

000004
013742
000340

013040
013046

013737
012737

001250
000001

013054
013060
013064
013070
013072

005037
005777
005737
0M1003
055737

013750
000562
013750
013644

001252

013100
013106
013112

062737
006337
001360

000010
013644

013646

013114
013114
013116
013120
013124
013126
013132
013134
013136
013140

010146
010246
012701
010102
062702
010221
005011
012602
012601

005737
001014

013200
013204

105737
001434

013206
013210
013214
013220
013222
013230

013232

010046
113700
020027
003005
056037
012600
000421

013234
013272

000137

000004
000002

ROUTINE TO SIZE THE BUS

SIZE:

TST
BNE

SDEVM
4%

MOV

R1,=(SP)

MOV
MoV
MoV

#ILLMEM,
R
#INTSRV,(R1)+
#PR7,(R1)

MoV
MoV

$BASE, TMP6
#1,SFTREG

2%:

CLR
TST
TST
BNE
BIS

INTFLAG
aTMP6
INTFLAG
3s
SFTREG, SDEVM

3%:

ADD
ASL

#10,TMP6
SFTREG

MoV
Mov

R1,=(SP)
R2,=(SP)

Mov

013646
013644

BNE

001252

ADD

#2,R2

TST

S$DEVM

4%:

001221
000010

013650

TSTB

SUSWR+1

;SEE IF THERE
:GOT INTERRUPT?
;BR IF YES
(NO DEVICE)
;ELSE THERE, SET MAP
;GO TO NEXT CHANNEL
;BR IF MORE
CLRVEC

TO GO

ILLMEM

<<CRLF>!NO DEV

;ANYONE THERE?
;BR IF

YES

TO TEST!>

;LOOP HERE TILL PROBLEM FIXED

;8 RESTART AT 200

:SEE IF ANY CONSOLE

;BR IF NONE

MoV

RO,=-(SP)

:SAVE RO

(SP)+,RO

;RESTORE RO

<<CRLF>!CONSOLE

IN SUSWR WRONG!>

MoV

5%:

#ILLMEM,#INTSRV,
#PR7

BEQ

014514

SETVEC

R2,(R1)+
(R1)
(SP)+,R2
(SP)+,R1

MOvB
CMP
BGT
BIS

001252

;BR IF INITIALLY SET
;BYPASS AUTO-SIZING

R1,R2

BNE

TYPTXT

000777

#ILLMEM
R

MoV

SEQ 0090

(SP)+,R1

Mov
Mov
CLR
MOV
Mov

001221

n7
PAGE 92

.SBTTL

18:

013020
013022
013026
013032
013036

013142
013146
013150
013176

30-JUN-78
10:10
ROUTINE = WAIT

TYPTXT

JMP

$USWR+1,R0O
;GET CONSOLE DEVICE x2
RO,#10
5%
:BR IF TOO HI
TABL1-2(R0O) ,$DEVM
:SET CONSOLE BIT ON MAP
6%

$EOP

:START ALL OVER

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

4000
4001
4002
4003
4004
4005

013276
013304
013312
013320

013737
013737
013737
013737

001252
001252
001252
001252

013634
013636
013640
013642

013326
013334
013342
013350

042737
042737
042737
042737

177760
177417
170377

007777

013634
013636
013640
013642

013356
013362
013366
013372

006237
006237
006237
006237

013376
013402
013406
013412
013416
013422

30-JUN-78

ROUTINE

6%:

TO SIZE

MOV
MOV

MoV
MOV

PAGE 93

7
SEQ 0091

THE BUS

;STACK WILL RESET IN 'LOOP'

SDEVM,MASK1
$DEVM MASK?
S$DEVM,MASK3
SDEVM, MASKS

BIC
BIC
BIC

BIT

#
#
#
#

013636
013636
013636
013636

ASR
ASR
ASR
ASR

MASK?2
MASK2
MASK?2
MASK2

sRIGHT JUSTIFY MODULE

2 CHANNELS

000337

013640

SWAB

MASK3

000337
006237
006237
006237
006237

013642
013642
013642
013642
013642

ASR
ASR
ASR
ASR

SWAB

MASK4
MASK4
MASK4
MASK4
MASK4

TYPTXT

<<CRLF>!WILL

MOV
MoV
Mov

#MASK1,RO
#61,MODNUM
#60, CHNUM+?2

013426
013452
013456
013464

012700
012737
012737

013634
000061
000060

013472
013476
013500

012037
001001
000441

013650

013502
013522
013526

104401

013626

013550
013556
013560

032737
001402

000001

104401

013630

013564
013570

005237
006237
001365
012737

013632
013650

013604
013610
013616
013620

005237
023727
001325

013626
013626

013624

000207

013626
013630

000061
020040

013574
013576

10:10

104401

000060

013626
013632
7%:

8%:

013650

<<CRLF>!MODULE

TYPE

013632
000065

11%:

INC

CHNUM:

;BR IF ANY THERE
;ELSE TRY NEXT MODULE

.MODNUM

CHANNEL

#B1T0,MSK
108
. CHNUM

;BR IF NOT TESTING THAT CHANNEL
;ELSE TYPE IT

CHNUM+?2

;BUMP CHANNEL CTR

ASR
BNE

MSK

MOV

#60, CHNUM+2

:BR IF MORE TO CHECK
;ELSE RESET CH #

INC
CMP
BNE

MODNUM

MODNUM, #65
7%

;BUMP MOD #
sALL DONE?
;B8R IF NO

RTS

JELSE EXIT

LASCIZ
LASCIZ

/7
/
0/

TYPE

MODNUM:

(RO) +,MSK

TYPTXT
TYPE
TYPTXT

BIT

10%:

;INIT MOD #
;INIT CHANNEL #

;SAVE ONLY MODULE 1 CHANNELS

3
3

TEST:!<CRLF>>

BNE
BR

BEQ

001171

000060

Mov

C<17>,MASK1
(<360>,MASK2
C<7400>,MASK3
C<170000>,MASK4

HSwWN
-

3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

30A(1052)

.SCRLF

VDL
CvoL
44

4006
4007
4008
4009
4010

4011

4012
4013
4014
4015
4016
4017
4018
4019

30A(1052)

30-JUN-78

ROUTINE

TO SIZE

013634
013636
013640
013642

000000
000000
000000
000000

MASK1:
MASK?2:
MASK3:
MASK&:

0
0
0
0

013644
013646
013650

000000
000000
000000

SFTREG:
TMP6:

0
0
0

013652
013654
013656

000010
000200
004000

013660

100000

10:10

MSK:

TABL1:

200

4000
100000

PAGE 94

SEQ 0092

THE BUS

;CONTAINS MODULE 1 CHANNELS

;SET SDEVM IF

CONSOLE ON MODULE

W)
—

CVDLAA.PT

MACY11
11-MAY-78 00:00

HSwWwrn
—

CVDLAAO DLVI1=J TEST

CVDLAAOD DLVI1=J TEST
MACY11
CVDLAA.P1
11-MAY-78 00:00
4020
4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039

4040
4041
4042
4043
4044
4045
4046
4047
4048
4049
4050
4051

4052
4053
4054

4055
4056

013662
013670
013674
013702
013704
013710

113737
006237
023737
001403
005037
000207

013712
013720
013726
013734

013737
012737
012737

013736
013740

000000
000000

000207

001221
013740
013740

30A(1052)

013740

30-JUN-78

TO SIZE

THE BUS

.SBTTL

ROUTINE

TO TEST FOR CONSOLE DEVICE

TSTCON:

MOVB

SUSWR+1,TMP7

;GET

CONSOLE

sELSE CLEAR STALE

001206

ASR
CMP
BEQ
CLR

014310
014312
013736

C
8
PAGE 95
°

ROUTINE

013736
001144
000060
000001

10:10

1%:

TMP7
TMP7 ,8UNIT
1%

CONSOLE

INFO ONLY

sRIGHT JUSTIFY
sSEE IF UNIT UNDER TEST HAS CONSOLE
sBR IF YES
INFO

RTS

MOV
MOV

$TKS,ADDRESS
#TKVEC,VECTOR

sFORCE
:

MOV
RTS

#TRUE ,CONSOLE
PC

sSET

sFLAG, 1= TESTING CONSOLE DEVICE

CONSOLE:
TMP7:

.SBTTL

SEQ 0093

INTSRV

TTY ADDRESS
VECTOR

FLAG

sHOLD CONSOLE

INTERRUPT

SERVICE ROUTINE

:;l"tttt'ttQ"tt't'tt'tt'tttttQ'tt'tttttttt'tttttt'ittttttttt'tt

THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT

;¢
st

THAT THE MAIN CALLING ROUTINE WILL
TO LOOK FOR.

'"INTFLAG'

EACH TIME IT IS CALLED.

IT ASSUMES

KNOW

WHAT

;."t'ttt"'t'tttt""t"'tttt'tt'tt'ttt"ttttttttttt'tt'ttttttttt

013742
013742

013742
013742
013746
013746
013750

?G¥gsv INTSRYV
N

sGLOBAL INTERRUPT SERVICE ROUTINE

:ADD 1

005237
000002
000000

013750

INC
ENDSRV

INTFLAG:

RTI

INTFLAG

"INTERRUPT OCCURED'

FLAG

LET INTFLAG

;THAT'S ALL

INTFLAG + #1

cv
v

CVDLAAD DLV11=J TEST
MACY11
CVDLAA P11
11-MAY-78 00:00

30A(1052)

4057

.SBTTL

i
i
i
MR

013752
013760

013737
013737

001250
001244

014310
014312

013766
013774
013776
014002

001206

000005

014006
014014
014020

023727
001013
005037
005037
012737
005037
000137

014024
014030
014032
014040
014046

013700
006300
066037
066037
017037

001206

014054
014060
014064
014066
014072

005037
005737
001004
005237
000137

013736
014314

014076
014104
014106
014114

023727
001452
023727
001021

014320

000001

014316

000004

014116
014122
014130
014132
014136

005037
032737
001004
005237
000137

014316
000020

001220

014142
014150
014154

012737
005037
000137

000001
014322
013752

014160
014164
014166
014174
014202
014210

013700
006300
066037
066037
036037
001413

014316
014270
014270
014300

oOOoOOo

014212

023727

014316

000003

014320
014316
000001

014322
014514

ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS

THIS ROUTINE

;DONE ALL MODULES?

CLR

PHASE?2

;RE=INIT

014320

38:

b
-

sSneo

PR
O
WWW

48:

CLR
Mov
CLR

CHAN
#1,8UNIT
P1CNT

Mov

$UNIT,RO

ADD
ADD

TABL2-2(R0O) ,ADDRESS
TABL2-2(R0O) ,VECTOR

ASL

BNE
INC
JMP

001206
013752

ARl Rttt
ittt ittt
ittt dl)

SUNIT, #5

TST

2%:

THE

CMP

CLR

001206

TO POINT TO

$BASE ,ADDRESS
$VECT1,VECTOR

MoV

013752

ADRS

MOV
Mov

JMP

014246
014246
014256

CAUSES

ADDRESS OF
ODLVI1-J
UNDER
TEST,
ADRS +2 T0
FOINT TO THE VECTOR OF THE DLV11-J UNDER TEST.

BNE

1%:

SEQ 0094

SRR R0
2 ]

CYCLE:

001206

—

4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
407
4072
4073
4074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108
4109
4110
4111
4112

D 8
30-JUN-78 10:10 PAGE 96
INTSRV
INTERRUPT SERVICE ROUTINE

CMP

$EOP

:BR IF NO

;8 EXIT BACK TO 'LOOP'
;STACK WILL GET RESET THERE.

;MULT BY 2 TO INDEX INTO TABLES

aTABL3-2(R0) ,MASK

;STORE CHANNELS IN 'MASK'

CONSOLE

MASK

:ADD MODULE OFFSET
:ADD VECTOR OFFSET

;ANY CHANNELS

TO BE

2%
SUNIT
CYCLE

;BR IF YES
;ELSE BUMP UNIT #
:TRY AGAIN

PHASEZ2, #TRUE

:DOING PHASE 2?

TESTED?

BEQ
CMP
BNE

6%
CHAN, #4
4%

:BR IF YES
;ELSE, DONE ALL CHANNELS?
;BR IF NO

CLR
BIT
BNE
INC
JMP

CHAN
#WRAP ,SUSWR
3%
SUNIT
CYCLE

;ELSE BACK TO 0
;DOING DATA WRAP TESTS?
:BR IF YES
;ELSE GO TO NEXT UNIT, NO PHASE 2
;800 IT

MoV

#TRUE ,PHASE?2

CLR
JMP

P1CNT
CYCLE

;G0 TO PHASE 2 TESTING

Mov
ASL
ADD
ADD

CHAN,RO
RO
TABL4 (RO) ,ADDRESS
TABL4(RO) ,VECTOR

;MULT BY 2 TO INDEX TABLE
:ADD CHANNEL OFFSET
:ADD VECTOR OFFSET

BEQ

:BR IF NO

BIT

CMP

TABLS5(RO) ,MASK

CHAN,#3

;1S THAT CHANNEL TO BE TESTED?
;1S IT CHAN 3?

CVDLAAOD DLV1I1=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

6113

6114
6115
4116
4117
4118
6119
4120
621
4122
6123
4124
4125
4126
6127
4128
4129
4130
N
4132
4133
4134
4135
4136
6137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149
4150

30A(1052)

30-JUN-78

ROUTINE

014220
014222

001002
004737

013662

014226
014232
014236

005237
012701

000207

014316
014310

014240
014244

005237
000137

014316
013752

014250
014252

TABLZ2:

014254
014256

000000
000040
000100
000140

014260
014262
014264
014266

013634
013636
013640
013642

014270
014272
014274
014276

10:10

PAGE 97

TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS

BNE

SEQ 0095

JSR

PC,TSTCON

;BR IF NC

5%:
6%:

INC
MOV

CHAN
#ADDRESS,ADRS

;BUMP CHANNEL CTR FOR NEXT TIME

;GO

7%:

INC
JMP

CHAN
CYCLE

;TRY AGAIN

RTS

JELSE

TO PHASE

ITS

JOFFSET

100
140

3
3

TABL3:

MASK1
MASK2
MASK3
MASK4

;MODULE 1 CHANNEL DATA
3
2
;
3
4
:

000000
000010
000020
000030

TABL4:

sCHANNEL O OFFSET

014300
014302
014304
014306

000001
000002
000004
000010

TABLS:

BITO
BIT1

sBIT TO TEST CHANNEL O PRESENT
:
1
3
2
3
3

014310
014312
014314
014316
014320
014322

000000
000000
000000
000000
000000
000000

ADDRESS: 0
VECTOR: 0

10
20
30

BIT2
BIT3

MASK :
CHAN:

PHASEZ2:
P1CNT:

:
H
:

FOR MODULE

SEE

TESTS

3
4

1
2
3

0
0

sCTR TO PRINT

'PHASE

THE

ONLY ONCE

CONSOLE

v
cv

6162
4163
4164
64165
64166
64167
4168
64169
4170

PAGE 98

TO SET UP FOR NEXT MODULE/CHANNEL

ADDRESS

SEQ 0096

cvi
cve

014372
014400
014410
014426
014434

014452
014460
014500
014506
014512
014512
014512
014512

113737

104401

000207

001114

001176

TYPOCT
TYPTXT
TYPOCT
TYPTXT
TYPOCT
TYPE

001171
$255:
$256:

RTS

<* ERROR # >
SITEMB,SFATAL
SFATAL
<t ,PC

»>

<+ ,(SR:

»>

$ERRPC

DLADD
<+ VECTOR:
DLVEC

LSCRLF

»>

<KCRLF>*TEST

STESTN

TYPTXT
TYPOCT
TYPTXT
MOVB
TYPOCS
TYPTXT

014352

ROUTINE MYTYPE

MYTYPE:

;

APT

FATAL

ERROR NUMBER

014324
014324
014324
014344

4157
4158
4159
4160
4161

ROUTINE

10:10

4156

30-JUN-78

4151
6152
4153
61564
4155

30A(1052)

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P1
11-MAY-78 00:00

ENDRTN

.SBTTL

.
SEQ 0097

END OF PASS ROUTINE

R R R

R R R R R R R

R AR RN AR R AR AR

AR AR AR RN

R AR

;*INCREMENT THE PASS NUMBER (SPASS)
;*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM
;*TYPE

''END PASS #XXXXX'' (WHERE

;*IF THERES A MONITOR GO TO IT
;*IF THERE ISN'T JUMP TO LOOP
014514
014514
014516
014522
014526
014532
014540
014542
014544
014546
014550
014552
014554
014560
014564

014566
014572
014576
014600
014602
014604
014606
014610
014612
014612
014614
014616
014621
014626
014634

000004
005037
005037
005237
042737
005327
000001
003022
012737
000001
014542
104401
013746
104405
104401
013700
001405
000005
004710
000240
000240
000240

000137
001732
377
015
050040
000043

$EOP:

001102
001160
001202
100000

001202
$EOPCT:

SENDCT:

014621
001202

014616
000042

$GET42: Mov
BEQ
$ENDAD:

$DOAGN:

377
042412
051501

SCOPE
CLR
CLR
INC
BIC
DEC
.WORD
BGT
Mov
.WORD
$EOPCT
TYPE
Mov
TYPDS
TYPE

000
042116
020123

SRTNAD:
S$ENULL:

SENDMG:

RESET
JSR
NOP
NOP
NOP

JMP
.WORD
.BYTE
LASCIZ

XXXXX

IS A DECIMAL NUMBER)

$TSTNM
STIMES
$PASS
#100000,$PASS
;PC)O

;:ZERO THE TEST NUMBER
;:ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
;.L00P?

$DOAGN

;PC)*.S(PC)*

s:VES
;;RESTORE COUNTER

. SENDMG

;s TYPE

$PASS,~(SP)

.SENULL
ar42 RO
$DOAGN

PC, (RO)

"'END PASS #"

s :SAVE SPASS FOR TYPEOUT

;:G0 TYPE--DECIMAL ASCII WITH SIGN
s:TYPE

A NULL

CHARACTER

;sGET MONITOR ADDRESS
s sBRANCH IF NO MONITOR
.LEAR

THE WORLD

5,90 TO MONITOR
;s SAVE ROOM
;:FOR

;oACTI
a(PC)+

: ;RETURN

=1.,-1.,0

: :NULL CHARACTER STRING

<15><12>/END PAS S #/

cve

(=]

30-JUN-78
10:10
PAGE 99
END OF PASS ROUTINE

BB DDDDDDDDEDDDDDDDDDDDDDDDDDEDDDDDDDDDDDD
DD DD DD
DD

L7
4172
6173
6174
4175
4176
677
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209

30A(1052)

()

CVDLAAD DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

4263
4264

4265

TYPE ROUTINE
R R R R

R AR R AR

R R

AR AR AR RS

;*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:
;*NOTE2:
:*NOTE3:

SNULL

CONTAINS THE

CHARACTER

$FILLS CONTAINS THE NUMBER OF

S$FILLC

CONTAINS THE

TO BE USED AS THE

FILLER CHARACTER.

FILLER CHARACTERS REQUIRED.

CHARACTER TO FILL AFTER.

INSTRUCTION

.MESADR

; MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1%

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

TYPE

MESADR

$TYPE:

TST8
BPL
HALT

;*0R
M

TYPE

;*CALL:
:*1) USING A TRAP

.SBTTL

SEQ 0098

cve

(<]

ROUTINE

TYPE

H
8
PAGE 100

10:10

30-JUN-78

014636

014642
014644

014646
014650
014652

014656
014664
014666
014674
014676
014702
014706
014710
014716
014720
014722
014724
014726
014730
014734
014736
014742
014744
014750
014752
014754
014756
014760
014764
014766
014772
014776
015000

015004
015010
015012
015016

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

005726
012600

062716
000002
122716
001430
122716
001006
005726
104401
001171
105037

000755
004737
123726
001350

001157

000002
000001

001214

000100

001215

014706
015702

000040

001215

61%:

#APTSPOOL
, SENVM s :SPOOL MESSAGE

62%

RO,61%
SC.SATYS

TST

(RO)+,-(SP)
4%
(SP)+
(SP)+,R0
#2,(SP)

RTI
CMPB
BEQ

#HT, (SP)

;sBRANCH

#CRLF, (SP)

;sBRANCH IF NOT <CRLF>

(SP)+

;:POP

SCHARCNT

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
::1S IT TIME FOR FILLER CHARS.?
;:IF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
::D0 NOT COUNT AS A COUNT

015114

015050
015114

2:NO,GO CHECK FOR APT CONSOLE
TO APT
2:NO,GO CHECK FOR CONSOLE
;sSETUP MESSAGE ADDRESS FOR APT
s ;SPOOL MESSAGE TO APT
s sMESSAGE ADDRESS
s ;APT CONSOLE SUPPRESSED
;sYES,SKIP TYPE OUT
;;PUSH CHARACTER TO BE TYPED ONTO STACK

;sGET ADDRESS OF ASCIZ STRING
;sRUNNING IN APT MODE

MOVB

000200

000001

62%

#APTENV,SENV

2%:

4%:

105366

s SAVE RO

#APTCSUP,SENVM

000011

001154

RO,=(SP)
@2(SP) RO

BITB

60%:
3%:

015050
001156

BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR
.WORD

628%:

000002

013746

002770
004737
105337

1%:

5%:
6%:

7%:

BNE
BNE

MOV
ADD

CMPB
BNE
TST
TYPE
$CRLF
CLRB
BR

JSR
CMPB

BNE
[0}

DECB
BLT
JSR
DECB

608

PC,STYPEC
$FILLC,(SP)+

$NULL,=(SP)
1(SP)

PC,S$TYPEC

SCHARCNT

;:BR IF IT ISN'T THE TERMINATOR
;s
IF TERMINATOR POP IT OFF THE STACK
;;RESTORE RO
s sADJUST RETURN PC
s sRETURN
IF

<HT>

<CR><LF> EQUIV

::TYPE A CR AND LF

Pl S

4210
6211
4212
6213
4214
4215
4216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262

30A(1052)

()

CVDLAAO DLVI1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA LP1

CVDLAAD DLV11=J TEST

CVDLAA.P11
4266
4267
4268
4269
4270
427
4272
4273
4274
4275
4276
4277
4278
4279

4280
4281
4282
4283
4284
4285
4286
4287
4288

015022

MACY11
11-MAY-78 00:00

30A(1052)

30-JUN-78

TYPE

ROUTINE

10:10

000770

|
PAGE 101

SEC 0099

. .LOOP

;HORIZONTAL TAB PROCESSOR
015024
015030
015034
015042
015044
015046

015050
015054
015056
015064
015072
015074
015100
015102
015110
015112
015114
015116

112716

004737
132737
001372
005726
000724
105777
100375

000040
015050
000007

164074

116677
122766

000002
000015

105037
000406
122766

015114

001003

001402

105227
000000
000207

015114

000012

164066
000002

000002

8%:
9%:

MOVB
JSR
BITB
BNE

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

#' ,(SP)
PC,STYPEC
#7,8CHARCNT

2%
as$TPS

; ;REPLACE TAB WITH SPACC
;:TYPE A SPACE
: ;BRANCH IF NOT AT
;:TAB STOP
::POP SPACE OFF STACK
;:GET NEXT CHARACTER
;;WAIT UNTIL PRINTER IS READY

2(SP),asTPB

::LOAD CHAR TO BE TYPED INTO DATA REG.

(SP)+

STYPEC

#CR,2(SP)
1%
$SCHARCNT
$STYPEX
#LF ,2(SP)
STYPEX
(PC)+

;:1S CHARACTER A CARRIAGE RETURN?
s BRANCH IF NO
::ZE§;-CLEAR CHARACTER COUNT
s:EX

::1S CHARACTER A LINE FEED?
s sBRANCH IF YES
;s COUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

CvD
cvD

CVDLAAOD DLV1I1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA. P11

4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
431
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328

4329

4330
4331
4332
4333
4334
4335

4336
4337
4338
4339
4340
4341
4342
4343
4344

30A(1052)

30-JUN-78

TTY

10:10

INPUT ROUTINE

.SBTTL

TTY

8
SEQ 0100

INPUT ROUTINE

.ENABL

PAGE 102

AR RN

LSB

AL AAAAA ARSI
T

'SOFTHARE SWITCH REGISTER CHANGE ROUTINE.

;*ROUTINE

IS ENTERED FROM THE

TRAP HANDLER,

AND WILL

:'SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL

015120
015126
015130
015134
015136
015142
015146
015152
015154

022737
001074
105777
100071
117746
042716
022726
001062
123727
001456

015164

104401
104401
013746
104402
104401
005046

015162

015170
015174
015200
015202
015206
015210
015212
015216

000176

001140

: *WHEN OPERATING

$CKSWR:

164010

TSTB
BPL
MovB
BIC
CMP
BNE
CMPB
BEQ

164004
177600
000007

001134

000001

015645
015652
000176

$GTSWR:

015663

19%:

005046
105777

163726

015220
015224

117746
042716

163722
177600

015230
015234
015236
015242
015246

021627
001005

000025

9%:

015640
000006

20%:

015250
015254
015256
015262
015264
015272
015276
015302
015310
015312

021627
001022
005766
001403
016677
062706

015320
015322
015326

100375

104401

062706
000757

104401
123727

001003
012777
000002
004737
021627

7%:

000015

10%:

000004
000002
000006
001171
001135

000001

000100

163624

015050
000060

163646

CMP
BNE

15%:

16%:

15%
a$TkKS
15%
a$TKB,=-(SP)
# C177,(SP)
#7,(SP)+
15%
$AUTOB,
15%

.SCNTLG
. SMSWR

THE SOFT-SWR SELECTED?
s sBRANCH IF NO
;s CHAR THERE?

;:IF NO, DON'T WAIT AROUND
;:SAVE THE CHAR
;sSTRIP-OFF THE ASCII
;IS IT A CONTROL G?

;:NO, RETURN TO USER
:;ARE WE RUNNING IN AUTO-MODE?
;;BRANCH IF YES

;:ECHO THE CONTROL-G ( G)

TYPE
TYPE
Mov
TYPOC
TYPE
CLR
CLR
TSTB
BPL

a$TKS
7%

MOVB
BIC

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

;:PICK UP CHAR

CMP
BNE
TYPE

(SP),#25
108

;1S IT A CONTROL=U?
: :BRANCH IF NOT
::YES, ECHO CONTROL-U ( V)
;: IGNORE PREVIOUS INPUT

SWREG,~(SP)

. SMNEW

-(SP)
-(SP)

LSCNTLU

ADD

#6,SP
19%

CMP
BNE
TST

(SP),#15
16%

BEQ

$:
$:

IN TTY FLAG MODE.
#SWREG, SWR
;:1S

MOV

ADD
TYPE
CMPB
BNE

4 (SP)
11%

2(SP) ,aSwR

#6,5P

.SCRLF

MOV

M
$INTAG,
15%
#100,38TKS

JSR
CMP

PC,STYPEC
(SP),#60

RTI

;s TYPE

CURRENT

CONTENTS

::SAVE SWREG FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
: ;PROMPT FOR NEW SWR
;s CLEAR COUNTER
:: THE NEW SWR
::CHAR THERE?
::1F NOT TRY AGAIN

;sMAKE IT 7-BIT ASCII

;:LET'S TRY IT AGAIN

;0IS IT A <CR>?
; sBRANCH IF NO
JsYES, IS IT THE FIRST CHAR?
s sBRANCH IF YES
;sSAVE NEW SWR
;sCLEAR UP STACK
;sECHO <CR> AND <LF>
ssRE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH IF NOT
;sRE~ENABLE TTY KBD INTERRUPTS
:sRETURN
;sECHO CHAR

::CHAR < 0?

CcvD
cvo
ABA
ACDI
ACDI
CPl
T
ADD!
ADD!
DD
OD!
DD!
OD!
D!
DDI
DDI
D!
DD!
DD\
DDt
DD!
DD!
DD!
DD\
DE!
DE!
EN'
EN'
MAI
MAI
MAI
MA|
MAI
MAI
MAI
MAI
MS(
MS(
MS(
mT
MT
MT'
M7
PA!
PR.
PTI
PTI
PT!
PT!

Swi
TE!
UN.

us\
VE(
VE(

IT(
I

CVDLAAO DLV11=J TEST
MACY11
CVDLAA PN
11-MAY-78 00:00
4345
4346
6347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364

015332
015334
015340
015342
015346

015352

015354
015356
015360
015362
015366
015372
015374
015400

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

30A(1052)

4376
4377

4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
439
4392
4393
4394
4395
4396
4397
4398
4399
4400

TTY

000060
000002

18%:

17%
(SP)
(SP)
(SP)

ASL
ASL
ASL

IN®

2(SP)

,$QUES

;*THIS ROUTINE
s*CALL:
i *
RDCHR

015426
015434
015442
015444
015450
015452
015456
015462
015466
015470
015472
015500
015502
015510
015512
015520

042766
026627
001013
105777
100375

015420

016666
105777
100375
117766

117746

042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

000004
163526

000002

163522
177600

000004
000004
000023

000004
163474

$RDCHR:

MOV
MOV
TSTB
BPL

]

1%:

MOVB

2%:

000004

000175

000040

000004

3%:

INPUT

R R R

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

# C177,(SP)
(SP)+ #21

CMP

4%:
AR AR

a$TKB,~-(SP)

2%
1%

4(SP),#140

4%
4(SP),#175
4%
#40,4(SP)
R

CHARACTER

FROM

THE

TTY

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

BIC
CMP

BLT
CMP
BGT
BIC
RTI

R R R R R R R R R AR

SINGLE

# C<177>,4(SP)
4(SP) ,#23
3%
a$TKS
2%

BNE
BR

7<CR><XLF>

;s SIMULATE CONTROL=-U

BIC
CMP
BNE
TSTB
BPL

MOVB

000140

RETURN HERE

163470
177600
000021
000004

WILL

o
b

ssTYPE

20%

LSB

SHIFT PRESENT

CHAR OVER TO MAKE
8ROOM FOR NEW ONE.
s sKEEP COUNT OF CHAR
;sSET IN NEW CHAR
;:GET THE NEXT ONE

011646

;:NO,

-2(SP),(SP)

.DSABL

015402
015404
015412
015416

;:;CHAR > 7?

; ;BRANCH IF YES
;sSTRIP-OFF ASCII
s+1S THIS THE FIRST CHAR
s BRANCH IF YES

2(SP)

BEQ

001170

;sBRANCH IF YES

#60, (SP)+

TST

17%:

SEQ@ 0101

18%
(SP) ,#67
18%

BLT
CMP
BGT
BIC

0000G2
177776

K
8
PAGE 103

10:10

INPUT ROUTINE

000067

4365

4366
4367
4368
4369
4370
4371
4372
4373
4374
4375

30-JUN-78

;:PUSH DOWN THE PC
;:SAVE THE PS
;:WAIT FOR
::A CHARACTER
;:READ THE TTY
;:GET RID OF JUNK IF ANY
;:IS IT A CONTROL=-S?

s sBRANCH

;:WAIT FOR A CHARACTER
2:LOOP UNTIL ITS THERE
::GET CHARACTER

ssMAKE IT 7-BIT ASCII

;IS IT A CONTROL=-Q?
IF NOT DISCARD IT
;s
;s YES, RESUME
::1S IT UPPER CASE?
;;BRANCH IF YES
;:IS IT A SPECIAL CHAR?
;;BRANCH IF YES
;:MAKE IT UPPER CASE
;:G0 BACK TO USER

R a2
s 222222222

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:
i
i

RDLIN
RETURN HERE

010346
012703
022703

015630
015640

$RDLIN: MOV
1%:
MOV

2%:

CMP

R3,~-(SP)
#STTYIN,R3

#STTYIN+8.
,R3

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

;:SAVE R3
;sGET ADDRESS
;sBUFFER FULL?

CVDLAAO DLV =J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00
4401
4402
4403

4404
4405
4406
4407
4408
4409
4410
4411
4412
4413
4414
4415
4416
4617
4418
4419
4420
4421
4422
4423
4424
4425
4426
44627

015534
015536
015540
015542

015546
015550
015554
015556
015562
015566
015572
015574
015600
015604
015606
015610
015616
015624
015626
015627
015630
015640
015645
015652
015660
015663
015670

101405
104410
112613
122713
001003
104401
000763
111337
104401
122723
001356
105063
104401
012603
011646
016666
012766
000002
000
000
000010
052536
136
005015
020075
040
036440

30A(1052)

30-JUN-78

10:10

BLOS

TTY

000177

108:

001170

4%:

015626
015626
000015

3%:

INPUT ROUTINE

177777
001172
000004
015630

000002
000004
9%:

005015
006507
053523
000
047040
000040

RDCHR
MOVB
CMPB
BNE
TYPE
BR
MOvVB
TYPE
(MPB
BNE
CLRB
TYPE
MOV
MoV
MOV
MOV
RTI

000
000012
020122

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

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

053505

$SMNEW:

.ASCIZ

PAGE 104

SEQ 0102

;:BR IF YES
;5 :G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
;318 IT A RUBOUT
::SKIP IF NOT

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

:TYPE A 'Y
ssCLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER
;;CHECK FOR RETURN

#15, (R3)+

::LOOP IF 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
‘e

=1(R3)
LSLF
(SP)+,R3
(SP),=(SP)
4(SP),2(SP)
#STTYIN,4(SP)

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

/ G/<15><12>

<15><12>/SWR =
NEW =/

s ;RETURN
;sSTORAGE FOR ASCII CHAR.
s s TERMINATOR

TO TYPE

;sRESERVE 8 BYTES FOR TTY INPUT
;;CONTROL "'U''

::;CONTROL ''G"

CVDI
CvDl

ERR!
ERR(
ERR!
ERWI
EVE!
X1
FLA(
FREI
NS

GTSI

|
HOW|
T

ILL
INTI

INTI
INT!
om
AS|
MAS|
AS|
MASI
AS|
MODI
MOD
SK
Ak
UMI
ORE!
AR.
AS!
ERI
HA!
PIR!
IR(
RII
RO

PR1
R2
R3
R4

SW
WR\
10

BUI

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY=78 00:00

30A(1052)

4453
44

.SBTTL

‘430

015674
015702
015710
015712
015720
015720

010046

4438
4439
4440
4441
4442
4443
4444
4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460

015724
015730
015732
015740
015742
015750
015752
015756
015764
015770
015772
015776
016000
016002
016006
016010
016014
016022
016024
016032
016040
016044
016050

105737
001450
122737
001031
132737
001425
017600
062766
005737
001375
010037
105720
001376
163700
006200
010037
012737
000413
017637
062766
013746
004737
000000

016056
016060
016064

001416
005737
001413

016072

001375

4461
4462

4463
4464
4465
4466

4467

4468

4469
4470
4471
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481
4482
4483

SEQ 0103

APT COMMUNICATIONS ROUTINE

;;tt'tttt'ttQt'ttt"tt'ttt"ttttt"tttttttt'tttttttttt'tttttttt't

4431
4432
4433
4434
4435
4436

4437

mn 8
30-JUN-78
10:10
PAGE 105
APT COMMUNICATIONS ROUTINE

015722

016052
016052

016066
016074

016102
016110
016114
016120
016124
016130
016132
016134
016136
016137
016140

112737
112737
000403
112737

010146

105737

005737

017637

062766
005237
105037
105037
105037
012601
012600
000207
000
000
000
016142
000200
000001
000100

000001
000001

016140
016136

SATY1:
SATY3:

000001

016140

SATY4:
SATYC:

000001

001214

000100

001215

000004
000002
001174

000004

001210

1$:

2%:

001210

000004
000002
177776
014636

001174
016050
000004

3$:

48:
5%:
108:

016140

001214
001174
000004

000002
001174
016140
016137
016136

#1,8FFLG
#1,8MFLG
SATYC
#1,8FFLG

::TO REPORT FATAL ERROR
::TO TYPE A MESSAGE

MOV

RO,-(SP)

::PUSH RO ON STACK

TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
TST
BNE
MOV
TSTB
BNE
SUB
ASR
MOV
MOV
BR
MoV
ADD
MOV
JSR
.WORD

SMFLG
5%
#APTENV,SENV
3s
#APTSPOOL ,SENVM
3s
a4 (SP) ,RO
#2,4(SP)
SMSGTYPE
1%
RO, SMSGAD
(RO) +
2%
$MSGAD,RO
RO
RO,$MSGLGT
#4 ,$MSGTYPE
5%
a4 (SP) 48
#2,4(SP)
177776,=(SP)
PC,STYPE
0

::SHOULD TYPE A MESSAGE?
::1F NOT:
BR
; ;OPERATING UNDER APT?
::1F NOT:
BR
; ; SHOULD SPOOL MESSAGES?
::1F NOT:
BR
::GET MESSAGE ADDR.
: :BUMP RETURN ADDR.
::SEE IF DONE W/ LAST XMISSION?
::1F NOT:
WAIT
;:PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

TSTB

$FFLG

MOV

016136

001212
000004

MOVB
MOVB
BR
MOVB

118:
001176

000004

BEQ
TST
BEQ

R1,=-(5P)

;:SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
::PUT LENGTH IN MAILBOX
::TELL APT TO TAKE MSG.
;:PUT MSG ADDR IN JSR LINKAGE
::BUMP RETURN ADDRESS
::PUSH 177776 ON STACK
::CALL TYPE MACRO
: :SHOULD REPORT FATAL ERROR?

;:1F NOT:
BR
: RUNNING UNDER APT?
::1F NOT:
BR

118

::1F NOT:

$MSGTYPE

MOV

@4 (SP) ,$FATAL

ADD
INC
12%:
CLRB
CLRB
CLRB
MOV
MOV
RTS
SMFLG:
.BYTE
SLFLG:
.BYE
$FFLG:
.BYTE
.EVEN
APTSIZ2E=200
APTENV=001
APTSPOOL=100

;:PUSH R1 ON STACK

128
SENV
12%

TST

BNE

::TO ONLY REPORT FATAL ERROR

#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,R0
PC
0
0
0

;sFINISHED LAST MESSAGE?

WAIT

;;GET ERROR #

::BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
::CLEAR FATAL FLAG
::CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
;:POP STACK INTO R1
::POP STACK INTO RO
: :RETURN
::MESSG. FLAG
::L0G FLAG
;:FATAL FLAG

CVDLAAD DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00
4484

000040

30A(1052)

30-JUN-78

10:10

PAGE 106

APT COMMUNICATIONS ROUTINE

APTCSUP=040

SEQ 0104

CVDLAAO DLV11=J TEST
MACY11
CVDLAA P11
11-MAY-78 00:00
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
4497
4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
451
4512
4513
4514
4515
4516
4517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538

30A(1052)

30-JUN-78

10:10
PAGE 107
ERROR HANDLER ROUTINE

.SBTTL

ERROR HANDLER ROUTINE

ARA

AR AR

SEQ 0105

ARl iRttt
dtittstl)

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO MYTYPE ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
:xSW15=1
;*SW13=1
INHIBIT ERROR TYPEOUTS
;*SW10=1
BELL ON ERROR
;*SW09=1
s*CALL
%

016142
016142
016144
016150
016152
016160
016166
016170
016174
016200
016204
016212
016220
016226
016230
016234
016240
016240
016246

016250
016256
016262
016263
016264
016266
016272
016274
016276
016300
016306
016310
016314
016320
016322
016326
016326
016334
016336
016340
016340

104407
105237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737
104401
122737
001007
113737

004737

$ERROR:

001103

001102
002000

7%:

162762
162752

001164
001112
001116
000002
162700
020000

022737
001001
000000
000002

BIT
BEQ

TYPE

INC

SuB
MOVB
BIT
BNE
JSR

000001

001214

001114
015712

016262

20%:

21%:

22%:
2%:

162632

001110
001162

3s:
4%:

TYPE

CMPB
BNE
Mmove
JSR
.BYTE
.BYTE
BR
TST
BPL
HALT
CKSWR

BIT
BEQ

Mov
TST

BEQ

001162

014602

CKSWR
INCB
BEQ

Mov

162646

001402
013716

ERROR

MoV

1%:

014324
001171

001000

LOOP ON ERROR

000042

5%:

6%:

Mov

CMP
BNE
HALT
RTI

; ;ERROR=EMT

AND N=ERROR

ITEM NUMBER

;s TEST FOR CHANGE IN SOFT-SWR

$ERFLG
7%
STSTNM,RDISPLAY
#BIT10,aSWR
1%

;:SET THE ERROR FLAG
s;DON'T LET THE FLAG GO TO ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
;:;BELL ON ERROR?
;:NO - SKIP

(SP) ,$ERRPC
#2 ,8ERRPC
@SERRPC,SITEMB
#BIT13,aSWR

;sGET ADDRESS OF

,$BELL
$SERTTL

20%

PC,MYTYPE

,SCRLF

;sRING BELL
;;COUNT THE NUMBER OF ERRORS
ERROR

INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE
;:SKIP TYPEOUT IF SET

::SKIP TYPEOUTS

;G0 TO USER ERROR ROUTINE

#APTENV,SENV

;s sRUNNING IN APT MODE

$ITEMB,21%
SC.SATva

;sSET ITEM NUMBER AS ERROR NUMBER
;;REPORT FATAL ERROR TO APT

0
22%

aSWR

#BIT09,aSWR
4%
$LPERR, (SP)

;sNO,SKIP APT ERROR REPORT

::APT ERROR LOOP
;:HALT ON ERROR

;:SKIP IF CONTINUE
;;HALT ON ERROR!

;s TEST FOR CHANGE IN SOFT-SWR
;:LOOP ON ERROR SWITCH SET?
;:BR IF NO
::FUDGE RETURN FOR LOOPING

$ESCAPE
5%
$ESCAPE, (SP)

;s CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE

#SENDAD ,a#42
6%

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

;;FUDGE RETURN ADDRESS FOR ESCAPE

2= YES

s sRETURN

CVDLAAD DLVI1=J TEST
MACY11
CVDLAA.PTT
11-MAY-78 00:00

30A(1052)

30-JUN-78
10:10
PAGE 108
SCOPE HANDLER ROUTINE

9
SEQ 0106

2228

.SBTTL

6541

MR AR AR AR

4542
4543

s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)

4544
4545
4546
4547
6548
4549
4550
4551
4552
4553

016342
016342
016344
016352

032777
001114

4558

016354

000416

016356
016362
016370
016374
016400
016402
016404
016410
016412
016412
016420
016422

013746
012737
005737
012637
000463
022626
012637
000423

000004
016402
177060
000004

032777
001404
127737
001465
105737
001421
123737
101015
032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737

000400

162520

162512

001102

4559
4560
4561
4562
4563
4564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592
4593
4594

AR AR AR AR d

ittt d)

;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
s *SW14=1
LOOP ON TEST
;*SW11=1
INHIBIT ITERATIONS
;*SW09=1
LOOP ON ERROR
;*SW08=1
LOOP ON TEST IN SWR<7:0>
s*CALL
;e
SCOPE
;:SCOPE=]I0T

4554

4555
4556
4557

SCOPE HANDLER ROUTINE

016430
016432

016436
016440
016446
016450
016456
016460
016466
016470
016474

016500
016502
016510
016512
016516
016520
016524
016532
016534
016542
016550
016554

104407

$SCOPE:
040000

162566

1%:

CKSWR

BIT
BNE
HARRNSTART OF

$XTSTR: BR

000004

001103
001115

001103

001000

162462

001110

001106

001103
001160
004000

162430

001202

001104
001160
000001
016620
001102
001102

001104
001104
001160
001200

;s TEST

FOR CHANGE IN SOFT-SWR

#BIT14,aSWR
;:LOOP ON PRESENT TEST?
SOVER
;:YES IF SW14=1
CODE FOR THE XOR TESTER##NAN

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

;:THIS INSTRUCTION TO A ''NOP'' (NOP=240)
Mov
@#ERRVEC,~(SP)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
#5% ,a#ERRVEC
::SET FOR TIMEOUT
TST
ar177060
::TIME OUT ON XOR?
MOV
(SP)+,3#ERRVEC
;;RESTORE THE ERROR VECTOR
BR
$SVLAD
::G0 TO THE NEXT TEST
5%:
CMP
(SP)+,(SP)+
;;CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)+,a#ERRVEC
;;RESTORE THE ERROR VECTOR
BR
7%
;:LOOP ON THE PRESENT TEST
6$:;##AFNEND OF CODE FOR THE XOR TESTERA##NAA
BIT
#BITO8,asSwR
::;LOOP ON SPEC. TEST?
BEQ
2%
;:BR IF NO
CMPB
dSWR,STSTNM
;:ON THE RIGHT TEST?
SWR<7:0>
BEQ
$OVER
::BR IF YES
2$%:
TSTB
SERFLG
: :HAS AN ERROR OCCURRED?
BEQ
3%
;:BR IF NO
CMPB
SERMAX ,SERFLG
;;MAX. ERRORS FOR THIS TEST OCCURRED?
BHI
3%
::BR IF NO
BIT
#BIT09,aSwR
::LOOP ON ERROR?
BEQ
4%
::BR IF NO
7%:
MOV
SLPERR,SLPADR
;:SET LOOP ADDRESS TO LAST SCOPE
BR
$OVER
4s:
CLRB
SERFLG
::ZERO THE ERROR FLAG
CLR
$TIMES
;:CLEAR THE NUMBER OF ITERATIONS TO MAKE
BR
1%
;;ESCAPE TO THE NEXT TEST
38:
BIT
#BIT11,aSWR
s INHIBIT ITERATIONS?
BNE
1%
::BR IF YES
TST
$PASS
;:1F FIRST PASS OF PROGRAM
BEQ
1%
HH
INHIBIT ITERATIONS
INC
$ICNT
;s INCREMENT ITERATION COUNT
CMP
STIMES,SICNT
: :CHECK THE NUMBER OF ITERATIONS MADE
BGE
$SOVER
::BR IF MORE ITERATION REQUIRED
18:
MOV
#1,81CNT
;:REINITIALIZE THE ITERATION COUNTER
MoV
SMXCNT,STIMES
;;SET NUMBER OF ITERATIONS TO DO
$SVLAD: INCB
STSTNM
: :COUNT TEST NUMBERS
MovBe
STSTNM, STESTN
;;SET TEST NUMBER IN APT MAILBOX

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00
4595
4596
4597
4598
4599
4600
4601
4602

016562
016566
016572
016576
016604
016612
016616
016620

011637
011637
005037

112737
013777
013716
000002
003720

001106
001110
001162
000001
001102
001106

30A(1052)

001115

162330

30-JUN-78
10:10
PAGE 109
SCOPE HANDLER ROUTINE
Mov
MoV
CLR

MOVB

SOVER:

MOV

$MXCNT:

2000.

MOV
RTI

(SP) ,SLPADR
(SP) ,SLPERR
$ESCAPE
#1,8ERMAX
$STSTNM,ADISPLAY
$LPADR, (SP)

SEQ 0107
::SAVE SCOPE LOOP ADDRESS
s sSAVE ERROR LOOP ADDRESS
;sCLEAR THE ESCAPE FROM ERROR ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
;sFUDGE RETURN ADDRESS

;sFIXES PS
;;MAX. NUMBER OF

ITERATIONS

CVDLAAO DLVI1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PT
4603
4604
4605
4606
4607
4608
4609
4610
4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647
4648
4649

4650
4651
4652
4653
4654
4655
4656
4657
4658

30A(1052)

9
3
10:10
PAGE 110
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

30-JUN-78

.SBTTL
A

SEQ 0108

cv
cv

CONVERT BINARY TO DECiIMAL AND TYPE ROUTINE

AAR AR

AR ARttt
ittt
Rt Rl

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.
. %

CALL:

- ®

*®

016622
016622
016624
016626

016630
016632
016634
016640
016644
016646
016650
016656

016660
016664
016670

016672
016676
016700
016702
016704
016706
016710
016712
016714
016716
016720
016722
016724
016732
016736
016742
016744
016746
016752
016754
016756
016760
016762
016764
016766
016774
016776
017000
017002

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000

012703

112723
005002
016001

160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

052702
052702

110223
005720

020027
002746
003002
010502
000764
105726
100003
116663
105013

012605
012603
012602

$T YPDS:

020200
000020

000055

000001

017036
000040

1%:

2%:

017026

3%:

A ¥

5%:

000001
000060
000040

177777

6%:
7%:

MoV
TYPDS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOVB
CLR
MOV
MOVB
CLR
MoV

SuB
BLT
INC
BR

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,=-(SP)
R5,=(SP)
#20200,-(SP)
20(SP) ,RS
1%
R5
#'-,1(5P)
RO
#$DBLK,R3
#' L(R3)+

R2
$OTBL (RO) ,R1
R1,R5
4%

ADD
TST

BNE
TSTB
BMI
ASLB
BCC
MOVB
BIS
BIS

MOvVB

TST
CMP

000010

NUM,-(SP)

BLT
BGT

1(SP),=1(R3)
#'0,R2
# LR2
R2.,(R3)+
(RO)+
RO,#10

MOV

8%:
177777

177776

9%:

TSTB

BPL

MOVB
CLRB
MOV
MOV
MOV

9
-1(SP) ,=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2

;:PUT THE BINARY NUMBER ON THE STACK
::G0 TO THE ROUTINE

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
::PUSH R3 ON STACK
;3PUSH RS ON STACK
;sSET BLANK SWITCH AND SIGN
;;GET THE INPUT NUMBER
;:BR IF INPUT IS POS.

;sMAKE THE BINARY NUMBER POS.
;sMAKE THE ASCII NUMBER NEG.
;sZERO THE CONSTANTS INDEX
;;SETUP THE OUTPUT POINTER
;sSET THE FIRST CHARACTER TO A BLANK
;sCLEAR THE BCD NUMBER
ssGET THE CONSTANT

$F
F
F

;sFORM THIS BCD DIGIT

;:BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

;:;ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0
;:;FALL THROUGH IF 0
;:STILL DOING LEADING 0°'S?
;:BR IF YES
;:MSD?
;:BR IF NO
ssYES==SET THE SIGN
;sMAKE THE BCD DIGIT ASCII
;:MAKE IT A SPACE IF NOT ALREADY A DIGIT
;sPUT THIS CHARACTER IN THE OUTPUT BUFFER
;s JUST INCREMENTING
;:CHECK THE TABLE INDEX
;:G0 DO THE NEXT DIGIT
;2:G0 TO EXIT
;sGET THE LSD
;G0 CHANGE TO ASCII
;sWAS THE LSD THE FIRST NON-ZERQ?
;:BR

IF NO

JsYES==SET THE SIGN FOR TYPING
5sSET THE TERMINATOR

;sPOP STACK INTO RS
;sPOP STACK INTO R3
;sPOP STACK INTO RZ2

4661
4662

4663

4664

4665

4666

4667
4668
4669

017004
017006
017010
017014
017022
017024
017026
617030
017032
017034
017036

012601
012600

104401
016666
012616
000002
023420
001750
000144
000012

000004

017036
000002

F
9
30-JUN-78
10:10
PAGE 111
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

000004
$DTBL:

$DBLK:

Mov
Mov
TYPE
MoV
Mov
RTI

10000.
1000.

100.
10.
.BLKW

(SP)+,R1
(SP)+,RO

. $DBLK
2(SP),4(SP)
(SP)+, (SP)

;:POP STACK INTO R1
;:POP STACK INTO RO
;:NOW TYPE THE NUMBER
;;ADJUST THE STACK
;:RETURN TO USER

SEQ 0109

$F
$F

PAAAAR
P o

4659
4660

30A(1052)

——_TIXIooOooo

CVDLAAO DLVI1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

$1
$1

CVDLAAO DLVI1=) TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

30A(1052)

4670
4671
4672
4673
4674

.SBTTL
IR

4723
4724
4725

R R

R R R

PR R

R R R RN R AR R

IS USED TO CHANGE

R TR R RRRRR RO

o®

.BYTE
.BYTE

;:N=1

DIGITS

;:1=TYPE LEADING ZEROS

;:0=SUPPRESS LEADING ZEROS

;*$TYPON=-==<ENTER HERE

;*$TYPOS OR $TYPOC
s*CALL:

MoV
TYPON

TO TYPE OUT WITH THE

NUM, - (SP)

SAME PARAMETERS AS THE LAST

; sNUMBER TO BE TYPED
;s CALL FOR TYPEOUT

;*$TYPOC-=--ENTER HERE
s*CALL:

017646

116637
112637
062716
000406
112737
112737
112737

010346
010446
010546

113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503

006103

105337
100016

042703
001002
005704
001403

000000
000001
017273
000002

000001
000006
000005

017271

017271
017273
017270

16 BIT NUMBER

NUM, - (SP)

; sNUMBER TO BE TYPED
;s CALL FOR TYPEOUT

$TYPOS:

MOV
MOVB
MovB
ADD
BR
MOVB
MOVB
MOVB
MoV
MOV
MoV
ngza

a(SP),-(SP)
1(SP),SOFILL
(SP)+,SOMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,S0MODE +1
#5,80CNT
R3,-(SP)
R4 ,=(SP)
R5,-(SP)
S?HODE*1.R4

;sPICKUP THE MODE
;:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
:sADJUST RETURN ADDRESS
;:SET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
::SET THE ITERATION COUNT
::SAVE R3
::SAVE R4
;:SAVE RS
::GET THE NUMBER OF DIGITS TO TYPE

N
ADD
MOVB

R
#6,R4
R4, $OMODE
$OFILL,R4

:;SUBTRACT IT FOR MAX. ALLOWED
;:SAVE IT FOR USE
::GET THE ZERO FILL SWITCH

$TYPON:

000006
017272
017271
000012

MOVB
MOV
1%:

2%:

177770

TYPEOUT OF

MOV
TYPOC

017273

017272

FOR

:®
:®

$TYPOC:

3%:

TYPE

0RO

017046
017052
017060
017064
017070
017072
017100
017106
017114
017116
017120
017122
017126
017130
017134
017140
017144
017150

TO 6 FOR NUMBER OF DIGITS TO TYPE

;:M=1

;"
:*

R AR

A 16-BIT BINARY NUMBER TO A 6-DIGIT

;*$TYPOS==<ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
;*CALL:
A
MOV
NUM,-(SP)
s sNUMBER TO BE TYPED
s
TYPOS
;sCALL FOR TYPEOUT

CLR

12(SP) RS
R3

BR
ROL

3%
RS

;:FORM THIS DIGIT

;:GET LSB OF

BPL
BIC
BNE

7%
#177770,R3
4%

::BR _IF NO
::GET RID OF JUNK
;:TEST FOR 0

BEQ

ROL

ROL
ROL
MoV

RS
RS
R5.R3

DECB

$OMODE

ROL

TST

;;PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD
:;ROTATE MSB INTO ''C"'
::G0 DO MSB

;:TYPE

v
cvi

;*OCTAL (ASCII) NUMBER AND TYPE IT.

4676
4677
4678
4679
4680

4698
4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722

SEQ 0110

BINARY TO OCTAL (ASCII) AND TYPE

;*THIS ROUTINE

4675

4681
4682
4683
4684
4,685
4,686
4687
4,688
4689
4690
4691
4692
4693
4694
4695
4696
4697

9
6
30-JUN-78
10:10
PAGE 112
BINARY TO OCTAL (ASCII) AND TYPE

THIS DIGIT

THIS DIGIT?

;s SUPPRESS

::BR IF YES

THIS 0?

$1
$1
$LI
$L
$LI(

CVDLAAO DLVI1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741

4742
4743
4744
4745
4746

017210
017212
017216
017222
017226
017232
017236
017240
017242
017244
017246
017250
017252
017254
017262
017264
017266
017267
017270
01727
017272

005204
052703
052703
110337
104401

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

30A(1052)

H
9
30-JUN-78
10:10
PAGE 113
BINARY TO OCTAL (ASCII) AND TYPE
4%:

000060
000040
017266
017266
017270

5%:

7$:

6%:

000002

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

INC

BIS
BIS
MOVB
TYPE
DECB
BGT
BLT
INC
BR
MoV

#'0,R3
" ,R3
R3,8%
., 8%
$SOCNT
2%
6%

MOV
MoV
MoV
MOV

R4
2%
(SP)+,R5
(SP)+ R4
(SP)+,R3
2(SP),4(SP)
(SP)+, (SP)

.BYTE
.BYTE
.BYTE
.BYTE

0
0
0
O

RTI

.WORD

SE@ 011
;:DON'T SUPPRESS ANYMORE 0'S

;sMAKE THIS DIGIT ASCII
;:MAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
::G0 TYPE THIS DIGIT
;;COUNT BY 1
;:BR IF MORE TO DO
;:BR IF DONE

CVv
cvi

$L
SL

;s INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
; ;RESTORE R5
; ;RESTORE R4
;;RESTORE R3
::SET THE STACK FOR RETURNING
; ;RETURN

;;STORAGE FOR ASCII DIGIT
;; TERMINATOR FOR TYPE ROUTINE
:;0CTAL DIGIT COUNTER
;;ZERO FILL SWITCH
: ;NUMBER OF

DIGITS TO TYPE

CVDLAAO DLV11 =J TEST

CVDLAA. P11

4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763

4764
4765
4766
4767
4768
4769
4770
4771
4772

4773
4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789

MACY11

11-MAY-78 00:00

30A(1052)

30-JUN-78

TRAP DECODER

.SBTTL

10:10

9
I
PAGE 114

SEQ 0112

TRAP DECODER

MAAAAALA

AR AR AR AR AR ARttt

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

THE '‘TRAP'' INSTRUCTION
FOR THE STARTING ADDRESS

:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
017274
017276
017302
017304
017306
017310
017314

010046
016600
005740
111000
006300
016000
000200

$TRAP:

0000G2

017330

MOV
MOV
TST
MOvB
ASL
MoV
RTS

RO,=(SP)
2(SP) ,RO
-(RO)
(RO) ,RO
RO
$TRPAD(RG)
,RO
RO

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

;:THIS IS USE TO HANDLE THE ""GETPRI'' MACRO
017316
017320
017326

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV

(SP) ,=(SP)
4(SP),2(SP)

RTI

.SBTTL
s*THIS

017330
017332
017334
017336
017340
017342

017316
014636
017072
017046
017106
016622

017344

015170

017346
017350
017352

015120
015402
015522
000001

TABLE

CONTAINS

;;RESTORE

THE

PSW

THE

STARTING

ADDRESSES

THE

ROUTINES

CALLED

ROUT INE

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

.END

THE PC DOWN
THE PSW DOWN

TRAP TABLE

;*BY THE ''TRAP'' INSTRUCTION.

;

;;MOVE
;sMOVE

$TRAP2"'

;;CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

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

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

$SGTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR

;:CALL=CKSWR

TRAP+7(104407)

TEST FOR CHANGE

SRDCHR
SRDLIN

::CALL=RDCHR
::CALL=RDLIN

TRAP+#10(104410)
TRAP+11(104411)

TTY
TTY

IN SOFT-SWR

TYPEIN CHARACTER ROUTINE
TYPEIN STRING ROUTINE

cvl
cve

CVDLAAD DLVI1=J TEST
MACY11
CVDLAA.PTT
11-MAY-78 00:00
ABASE
ACDW?

176500

588#

30-JUN-78

10:10

CROSS REFERENCE

932

947
3277«

4067+

9
J
PAGE 116

TABLE == USER SYMBOLS

SEQ 0113

cvD
cvD

973

3366

4080+

3715#

4107+«

4117

L1430

VIS WN=O

000000
ACDW2
000000
CPUOP= 000000
ACTCH
012476
ADDRES
014310
ADDWO
000000
ADDW1
000000
DDW1
000000
ADDW1
000000
DDW1
000000
DDW1
000000
DDW1
000000
DDW1
000000
DDW2
000000
DDW3
000000
DDW4
000000
DDW5
000000
DDW6
000000
DDW7
000000
DDW8
000000
DDW9
000000
DEVCT
000000
DEVM
000000
ENV
000000
ENVM
000000
FATAL
000000
MADR1= 000000
MADR2= 000000
MADR3= 000000
MADR&
= 000000
MAMS1= 000000
MAMS2= 000000
MAMS3= 000000
MAKS4= 000000
MSGAD= 000000
MSGLG= 000000
MSGTY= 000000
MTYP1= 000000
MTYP2= 000000
MTYP3= 000000
MTYP4= 000000
PASS = 000000
PRIOR= 000000
PTCSU= 000040
PTENV= 000001
PTSIZ= 000200
PTSPO= 000100
SWREG= 000000
TESTN= 000000
000000
UNIT
USWR
001031
VECT1
000300
VECT2
000000
IT0
000001
1700
000001

30A(1052)

938
932
943
944
935
960
964
967
970
954
962
965
968

974

$LS

940
941

934
955
963
966
969
937

4484
4440
44814
4442

7064
6964

945
936
939
932
932
972

2326

706

L4828

4516

L4834

946
971

2351
752

2422
772

2650
792

2699
813

2907

3273

3343

3409

3988

4138

CVDLAAO DLV11=-J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000

nnwuwuwnmn

100000
000004
000010
000020
000040
000100

O
-

s
—

o
o

—

BITO1
BIT02
BITO3
BITO04
BITOS
BIT06
BITO7
BIT08
BIT09
BIT
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S
BIT2
BIT3

000200
000400
001000
000014
000001
000010
014316
010100
012474
010076
012472
013630
011472
011672
012072
012272
104407
000000
013736
000015
000200

013752
005772
177570

001142
000174

001254

176500

001256

177570

000030
006612
005732

695#
694#
6934

6924
6914
6904
6894
688#
6874
705#
6864
685#
6844
6834
6824
6814
7044
7034
7024
7014
7004

3529
6994
698#
6974

7134
7924
821#
1071«

2901+
3266+
2899+
3264+
3978+
3224
3323
3325
3327
4500

7304
1464
4027+
6214

30A(1052)

705
704
703
702
701
700
699
698
697

2657

4504
4584

760

759
758

786
785

807
806

2811

4511
4555

2911
3557

2916
3577

3053
3605

3070
3625

3086
3653

3102
3673

3437

3490

1218
1206
4073

1231
2600

1234

1248

1251

1265

4095+

4105

4112

2949+
3300+
2907
3273
3990
3321
3709#
37104
3711»#
4526
2201
1599

7164

2449

2650+
2451

SEQ 0114

4577
4139

4140
4141

913
1028+
1036
1079+
993
1082+
912
1013+

2620+
2418+

812
811
810
809
808
766
765

3434
2713
2722

757

1075

2420+
628#
9134
832#
9934
7264
994#
6274

77
770
769
768
767
746
745
4569
4527
2706

2673
2683

4032+
4279
1064
40674

6224

K
9
30-JUN-78
10:10
PAGE 117
CROSS REFERENCE TABLE == USER SYMBOLS

4092

2951
3302
2947
3296+
3992+
3708#
3733
3734
3735
4554
1663
40354
4289
2817
4088

2522

1028
1036+

1085
995
1974
1027
1014+

2657+
2462

2959+
3310+
2998+
3405+
3995+
3732

2965
3316
3000+
3409

4005#

31964
3403+
3003
3466

3134

3150

3166

3280

1270

2623

2736

2742

2758

4116+

4120+

L1464

3412
3195#
37134

3464

3468

3477+

3483

37144

3307

3285

L7864

1725
4084+

2824

4099

2528

1787

2098

2244

2377

2608

2956

3007

3935

3949
4121

3975

3985

4155

4250

4289

2551

2556+

2565+

2567

1093

1126

1158

2832

2903

3261

4165

4103

2537#

4503+

4599+

1087
996
2109

1090
997

2223

2403

2834

2879

3237

2673+
2513#

2699
2524

2706
2560+

2713
2683

2722

28034

4163

3473

cve
cve

CVDLAAOQ DLV1I1=J TEST

CVDLAA.P11

ERROR =
ERRORF
ERRVEC=
ERWRD
EVENOD=
XITFL

100000
003324
000004
012500
000004
003326

FLAG
012724
FRERR = 020000
NS

RttRRR

GTSWR = 104406
HOLDSC
012725

HOWLON= 000000
T
= 000011

I
001270
ILLMEM= 000004
INTFLA
013750
INTRTA
010056
INTSRV
013742
I0OTVEC= 000020
F

LOOP

= 000012

001732

ASK
MASK1
ASK2
MASK3
ASK4
MODNUM
MODTST
SK
YTYPE
UMBER
ORERR =
PARITY=
ASS
ERR
=
PHASE2
PIRQ
=

014314
013634
013636
013640
013642
013626
007112
013650
014324
005734
040000
000002
003322
010000
014320
177772

RIERR

010102

IRQVE= 000240

RO
PR1
R2
R3
R&
RS
R6
R7

=
=
=
=
=
=
=
=

000000
000040
000100
000140
000200
000240
000300
000340

S
=
SW
=
WRVEC=
1CNT
BUF

177776
177776

000024
014322

001262

MACY11
11-MAY-78 00:00
757#
1477+
709#

3219+
820#
1479+
3778+
759#
831
4157
1058

3790+
37734
6194

999#
7240
1142«

3913
2865
845

7144

6204

10744

2899
3951+
3952+
3953«
3954+
3977+
1107

3980+
4153
2425+
758#
819#
1472+
7604
1069+

6264
7204

2992+«
6434
644Ln
645#
6464
64T
6487
6494
6504
3257
6234
6244
715#
1072+
9964

2768

30A(1052)

1870
1527+
1025

3437+
2665
1565+
3805+
2476

1063
4160
L784H
3795+

3776

9
L
10:10
PAGE 118
CROSS REFERENCE TABLE == USER SYMBOLS

30-JUN-78

1945
1554
1026+
3445+
1572+
3810
2654
2817
4162

3801

4248
1135+
1130
1147
4052+

4289
1156+
1183
1970+
4055#

1131
1011+
4283

1982
1012+
4289
4205

2312

2465

2549

3458

4560
3485

4561+
3490

1584#
1037+

1576

4563
3498

4566+

38454

2824

2831
4778

2833

4780

2835

3935
4781

3949
4782

3975
4784

4786

4787

3987

4155
4788

2060

2117+

2147

2170

2193+

2202

3911+

4085

4109

41454

1159

3963+

3964+

4008#

4129

3970+

3971+

3972+

40104

4101+

L1474

1161

2051+

2994

2997
2110

3192#
3904

40494

3264
3976

3405
4007#

4082+
4128

3968+
3997+«

40094
3969+
3998

4130

3993«

40144

2449

25144
1931

2522
2468

2556

2567

1559

1105

2669
2814

15834
2680
2841

2844+

4072+

4090

3018+
2003

3022
2124

3197#
2401

2983

3369

1557+

2484

3961«
3966+

1890

3985

38464

3924
2035

2849
2998
3956+
3957+
3958+
3959+
3985
28514
3988
4513
2430+
1853
2661

37164

4779

3903
2011

2979

cvD
CvD
M1
SMT
SMT
SMX
SNE

1585#

3833
4164

SEQ 0115

3962+

4004#

$NS

846
3905
624

1132

1287

1983

2821

2825+

4075+
1168

4102+
1767

41484
1849

1087+

2791

1088+

2217

1890

2408

1931

2414

1945

2876

2309

2887

2546

3243

2644

3249

2693

$NS
$NU
SNW

$0C
SOM
SOV

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PTT
11-MAY-78 00:00

010036
010040
010042
010044
001260

000200
000100
007536
007616
007676
007756
000001
000002
000004
000010
000020
000040
000100
000200
104410
104411

000001
005774
000004
012720
000010
006100
010772
011112
011232
011352
001332
011472
177777
000006
013644
013012
010036
001100
001334
012472
177774
001140

000176
000001
000001
000002
000004
000010

3045
3078
3110
3142
995#
1704+

2570
3564

7454

2928

7464

2558
2881
3075#
3107#
3139#

7724
7714
7704
7694
768#
7674
7664
7654
4402
4L788#
7524

30A(1052)

3180#

3181#
1085+
1706

2631
3592
1621

1367

2570
30424

3253
729

37044

1067

2891

6144

835
3230
625#

912#
4527

8334
6784
668#
6674
6664
6654

3048
3640

1380+

1822

3065
3660

1383
1915

1644

1685

1706

3081
3688
1747

1380

1383

1397

1400

3612

1397+
2120+
3097

2141+
3113

2190+
3129

2292
3145

2442+
3161

1770

1823

1916

2135

1414

1419

2120

2141

1400

1414+

1419

1620

1644
2460+

1684

3516

2558+
3544

2293

2632

2777

2190

2442

2460

$PA
$PA
$Qul
$RD
SRD|

RDI
RD!
RD'
RTI

R2,
SA'
$SA
SCI
SE

$SW
SSW
$TA

1704

2468
35144

37734
3909+

2776

1367
1770

47874

2465
3235
3562#
36104
3658#

1990

1164
1746

cvD
cvD

$SS
$STI
SvI
Svi
SW

25434
3774
3787

1001#

SEQ 0116

3178#
31794

2406
37734
3774«
7104

M
9
30-JUN-78
10:10
PAGE 119
CROSS REFERENCE TABLE == USER SYMBOLS

38434

2476

2484

2546+

2549

2551

25844

1538

1554
2146

2269

1565

1572
2291

2630

2740

2775

2926

3795

1821

1914

1042+

1056

2811

4299

4336+

4504

451

4523

1096

1493
2010

3801
3915
3898#
3169#
1009

37124
1007
4555
1035

678

677
676

675

1527

2059

2133

3918+

4012#

1576

1619

1683

1745

1074
1002#

1027+
4569
1056

1029
4571
4299

1035+
4577
4312

4584

$TAI

= 000020

= 000040
= 000100

SW08
SW09
SW1
SW10
SW11
SW12

=
=
=
=
=
=

sSW07

= 000200

000400
001000
000002
002000
004000
010000

SW13
SW14
SW15
SW2
SW3

=
=
=
=
=

020000
040000
100000
000004
000010

SW5
SWwé6
SW7
SW8
SW9

=
=
=
=
=

000040
000100
000200
000400
001000

SWé&

TABEND
TABL1

= 000020

010076
013652
TABL2Z
014250
TABL3
014260
TABL4
014270
TABLS
014300
TABL6
012530
TABL7?
012540
TABL8
012550
TBITVE= 000014
TBUF
001266
TCHO
TCH1
TCH2
TCH3
TCNT
TCSR

TDATAO=
TDATA1=
TDATA2=
TDATA3=
TDATA4=
TDATAS=
TDATA6=
TDATA7=
TEMP

010046
010050
010052
010054
010104
001264

000001
000002
000004
000010
000020
000040
000100
000200
010106

TIME
= 000000
TIMER
012560

TIMSAV
012722
TkvEC = 000060

664N

6634
6624
6614

660#
6594
6774
6584
6574
6564
6554
6544
6534
6764
6754
6744
6734
6724
6714
6704
6694
2871
3944

4080
4082
4107
4109
3418
3346
3353
7114
9984
2055+
3062
3094
3126
3158
2989+
9974
1309
2048+
8134
8124
8114
8104
8095#
808#

807#
806#
3048+
3115
38644
1497

2273
3776+

718#

30-JUN-78

10:10

CROSS REFERENCE

N 9
PAGE 120

SEQ 0117

TABLE == USER SYMBOLS

cvd
cvD

674
673
672
671
670
669

$TE

31934

40164
4081
4128#
4108
4138#

37324
3348
3355
1093+

2127+«
3182#
31834
31844
3185#
3002+
1090+
1323+

41234
41334

37374
37424
1094+

1176

2528+

2626

1509+

1518+
2771«

3012+

3014

3198#
1234

1487+

2196+

2287+

3009+

3010+
1172
1340+
2439

1345
2458+

2533+

1091+
1326

1218

1231+
1439

1612+

1677+

1739+

1817+

1839+

1911«

2623+

1251
1523
2736+

1270

2576+

1248+
1510

= —a
~N WV

Sw04

SW05
SWw0é6

30A(1052)

1991

1293
1999+

2006+

1494

1306+

2134

2270

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78
CVDLAA.PT
00:00

2758«

3050+
3118+
3866

3053«

3065+
3131«

3067+
3134+

3070+
3145+

3081+
3147

3083+
3150+

3086+
3161«

3097«
3163+

3099+
3166+

3102+
3199#

3113

1623

1687
2744

1749

1825

1918

1994

2014

2063

2137

2150

2205

1542

2295
3812

4031

3129+

2634
3823+

38440

2779

2930

3772¢#

012504
012506
012510
012512
012514
012516
012520
012522
012526
013646
013740
0000564
005736
000034
000014
000001

TSTCON
TST1
TST10
TST11
TST12
TST13
TST14

013662
002066
003460
003606
003732
004242
00457C

TST16
TST17
TST2
TST20
TST21
TS122

005432
006102
002304
006614
007112
010110

TST15

005156

TST3
002460
TST4
002634
TSTS
002776
TST6
003036
TS17
003330
TYPDS = 104405
TYPE
= 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403

VECTOR
AIT

014312
012732

EH ICHB= 000002
RAP

= 000020

XMITIE= 000100

XMITRD= 000200
XMITOS
007566
XMIT1S 007646

4023+
7194
2412
7174
7124
7314
3805
2954
1122#
1603
1667
1729
1797
20924
2101

2249
2380

12014

2603
2858#
3035
1209
1359#
14314
14594
1467

2836

1050
4000
4327

2832

47814
4159
4031+
1844

37734
822#
7864

2533

7854

30594
3091#

3518+
3577+
3644
37194
3394+
3396
3570
3570
3618
3618
3666
3728#
3373
3912

4024

25204

3520
3592+
3649«

3526+
3594+
3653+

3529+
3596+
3660+

3544+
3601+
3662+

3546+
3605+
3664

3548+
3612+
3670+

3424
3522
3596
37240
3644
37264
3692

3429
37224
3598+

3522

3548

3550

37214

37234

3646+

3725#

3694+

37274

3382+

3384

3535+

3583+

1599
4032

34N

1663
4090
40234

1725
4101
4114

3378+
3917+

4025

1015+

1016+

1105

1464

40134
40364

3553+
3614+
3673+

3557+«
3616
3688+

3631+

3679+

37304

2098

2244

2377

19654

3810
3006

3833
3305

16564
17184
17824
1804

1861

1880

1898

1940

1955

22384
2281
2510

2303
25944

2335

2345

2360

2371#

2611

2802

2808#

3507

1592#

2834

1582
47824
2824
4157
4357
4156

4160
4406
4161

4162
4409
4163

47804
4068+

4081+

4108+

41440

3820

3863#

1597
1293

1661
1306

1723
1309

1790
1323

1439

1495

1523

1540

3564+
3622+
3690+

3566+
3625+
3692+

3568
3640+
3697+

2608

2814

2841

3473

3975

3985
4310
L7784

431

3987

3990
4314

2048

2439

2458

SEQ 0118

32144
12824

1506
4194
2817
4155
4338

2030
3787
2576

2831

2833

2835

2836

3935

3949

4165
4506
4313

4192
4514
L7794

4195
4661

4253
4730

2096
1326

2242
1340

2375

2598

4096

1992

227

4164
4413
4165

A La

TMPO
TMPOE
TMP1
TMP1E
TMP2
TMP2E
TMP3
TMP3E
TMP4
TMP6
TMP?
TPVEC =
TRAN
TRAPVE=
TRTVEC=
TRUE
=

3516+
3574+
3642+
3701+
3333«
3339
3396+
3398
3398+
3400
3400+
3666
3366+
3908+

10:10
PAGE 121
CROSS REFERENCE TABLE == USER SYMBOLS

012502

8 10

30-JUN-78

2165

2762

A &N

TMP

30A(1052)

1345

1999

2006

R ca &0

CVDLAAO DLVI1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PTT

$CPUOP
SCRLF
$DBLK
SDEVCT
SDEVM
$DOAGN
$DTBL
SENDAD
SENDCT
SENDMG
SENULL
SENV
SENVM
$EOP

SEOPCT
SERFLG
SERMAX

001222
001171
017036
001204
001252
014612
017026
014602
014550
014621
014616
001214
001215
014514

014542
001103
001115

$ERRFL= 000000

42994
8924
922#
4310
4327
9474
9264
4627
938#
9744
4188
4630

858

1017
4192
4195
9434
944H

3949
1017+
895#
901#

10794
1097
11354
11844
1246

13207
1381
14774
1558
1673
1811#
1887
19814

2028#
2078#

4506

4539

4265+
4786
1004

4272

4281+

42864

1005

1013

1017

1018

1019

4000
L6694

4254

4289

4338

4422

4514

3915«

3944+

3951

3952

3953

3954

4428

5884
4255+

4307
4067

44234
44224

2836

4661
1103+

3898
4197
46654
1048
41904
42074
42064
1054
1040

4076
L1874
4501+
1020+
1080
11034
1136
11864
12484
1321
13944
1478
15654
16774
1812
1904#
19824

2045#
20804

42034

4539

41994

4233
4235
41804
&N
4539
4575
10824
1104
11394
11874
1249

13234
1395
14794
1566
1678
18174
1905
19834
2046
2081#

4516

4575

88#
62#

18394
19134
19864

20514
2084

4581
1087#
1127
11564
1215#
1266
13404
1412
14924
1609
17344
1840

19704
1987
2052
2108#

PAAPAAAAANAAAANAN

$CM3 = 000000
CNTLG
015645
CNTLU
015640

9244

44324
4519
1060+
3908

AAAA

015702

015712
001134
001250
001122
001126
001164
177777
015114
015120
001100

ATYS

878#
4477
L4354

904
41

4on

SATYL
AUTOB
$BASE
BDADR
BDDAT
BELL
BGNLE=
CHARC
$CKSWR
CMTAG

4462
4433
44314
4238
L4340
909#
9734
9044
9064

LR ]

015720
015674

sennes

SEQ 0119

NVONOWVSWWNN
= 2O
NN
O WO O
NOWVMS
OO — ~no

ATYC
ATY1

ASTAT=

001000

011426

APTHD

NN = s
o
oo 00— (NON O & no Co
W 0o 0o —=0WVOW oo
=
=
£
=

X3SRV

011166
011306

3123
3155#
35424
35904
36384
36864
872

10:10
PAGE 122
CROSS REFERENCE TABLE == USER SYMBOLS

X1SRV
X2SRV

007726
010006
011046

¢ 10

30-JUN-78

XMIT2S
XMIT3S
XOSRV

30A(1052)

— —_—

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

CVDLAA.PT

016142
001116
001254
001112
SESCAP
001162
$ETABL
001214
ETEND
001254
SFATAL
001176
$FFLG
016140
$FILLC
001156
SFILLS
001155
$F SAND= 000310
SERROR
SERRPC
SERRTB
SERTTL

MACY11
11-MAY-78 00:00

2116
2187
22284
22904
24184
2459
2560#
2624
2684
27740
2881#
2904
2945
2993
3062#
3084
31134
3135
3163#
3238
32614
3283
3311
3339#
3367
34034
3425
34640
35264
3551
35774
3602
3631#
3654
36884
3775
3824
3879
39284
1013
902#
9914
899#
9234
9424

884
935#
4431
9204
9194
5884
1385
1772

2325
2569
2793

30A(1052)

21174
21904
22304
2309#
2419
24604
2561
26264
27334
2825#
2882
29114
29474
29944
3063
3086#
3114
31424
3164
32414
3262
32854
3321#
3340
33784
3404
34264
3465
3527
35534
3578
36054
3632
36604
3689
37764
38364
3883
39294

L4994
4161

2836

1019+

9754
4157+
4434
4258
4289
1107
1402
1789

2328
2600
2813

D 10

30-JUN-78

10:10
PAGE 123
CROSS REFERENCE TABLE =-- USEk SYMBOLS

2118
2191
2231#

2310
26204
2461
25654
2627
2734
2826
28854
2912
2948
2995
30654

2120
2193
22328
24034
2421
2528#
2566
26294
27364
2844

2121
2194
2233#
2404
2425#
2529
2570#
2644#
2737
284S

21274
21964
2234
24064
2426
25334
2571
2645
27394
28464
2888
29164
29544
3045#
3068
3097#

2886

2887#

3087
31154
3143
31664
3242
32644
3286
3322
33464
3379
3405#
3427
34664
3529#
3554
3583#
3606
36404
3661
36904
3777
3837
3902#
39304

3066
3094#
3116
31454
3167
32438
3265
3287#
33234
3347
3382#
3406
34294
3467
3530
3557#
3584
36124
3641
3662#
3691
3778¢
38404
3903#
3931

3067#
3095
3118#
3146
3219#
3244
32664
3288
3324
33484
3383
34124
3430
34714
3535#
3558
3592#
3613
36424
3663
3692#
3779
3842
39044
4052#

4053

4508+

4509+

4510

4539

2839+

4507«
4532

4539
4539

4597+

4159
4462
4289

4468+
G471

4479

1149
1421

1208

1220

4530

1792
2331
2610

2816

2913#
2949
2997#

1441

1855

2353
2648
2823

2914
2950
2998

1466

1872

2377
2656
2843

3119
31474
3220
3245#
3267
32924
33254
3349
33944
3413
34374
34774
3536
35644
3593
36144
3643
3664#
3693
3790#
3866#
3905#

1236
1525
1892

2424
2663
2909

2128
2197
22564
2407
24304
2534
25764
26504
27584
2847
28894
2917
29594
3046
3070#
3098
31264
3148
32244
3246
32694
3293
3326
33534
3395
34154
3438
3478
35444
3565
3594#
3615
36440
3665
3694#
3791
3867
3906#

SEQ 0120

21324
2200#
2257
24084
2431

25464
2577
2651
2759
28654
2890
29194
2960
30484
3071
30994
3127
31504
3225
32474
3270
32964
33274
3354
33964
3416
34454
35164
3545
35664
3595
36164
3645
36704
3695
37954
3868#
3907

1272
1561
1947

2467
2671
2958

21414
22234
2259
2409
24394
2547
26174
26574
27604
2866
28994
2920
29794
3049
30784
3100
31294
3151
3228#
3248
32774
3297
3328
33554
3397
34184
3446
3517
35464
3567
35964
3617
36464
3671
36974
3796
3869
3922#

1295
1599

2037
2470
2682
3024

13N

1646

2098
2478
2701
3275

21454
22254
22684
2413
442N
2557
26204
26734
2769
2870
29014
2923
29894
3051
30814
3103
31314
3159
3235#
3250
3280#
3301
3334
33594
3399
34214
3451
3519
35484
3569
3598#
3623
36494
3674

37014
3806
3875
39244

21634
22264
22874
24144
2443
2558#
2621
2674
27714
28794
2902
29254
2990
30534
3082
31104
3132
31614
3236
32514
3281
33054
33364
3360
34004
3422
34534
3520#
3549
35744
3599
3625#
3650
36794
3702
3818#
38764
39254

3401
34240
3454
3521
35504
3575
36014
3626
3653#
3680
37744
3823#
3877
39274

1328
1663

1347
1708

1369
1725

2172
2486
2708
3304

2244
2524
2715
3309

21864
2227#
2288
2415
24584
2559
26234
2683#
2772
2880
29034
29440
29924
3054
30834
3111
31344
3162
3237#
3252
3282#
3310#
3337
33664

2314
2551
2724
3345

(el

CVDLAAO DLV11=J TEST

CVDLAAOD DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00

$F$BAD= 000401

$FS$BLA= 000170
$FSCAS= 000150
$FSDEC= 000220
$F$G00= 000400

$FSIF

= 000110

$FSINC=
$F$L00=
$FSNAM=
$FSNO =

000210
000200
000160
000403

$FSOR = 000320

30A(1052)

E 10
30-JUN-78
10:10
PAGE 124
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0121

gg;;

3436

3444

3470

3475

3492

3500

3524

3572

3620

3668

3789

3803

588#
1385
1772
2325
2569
2793
3411
3835

1107
1402
1789

1149
1421
1792

1208
1441
1855

1220
1466
1872

1236
1525
1892

1253
1556
1933

1272
1561
1947

1295
1602
2037

1311
1646
2101

1328
1666
2172

1347
1708
2247

1369
1728
2314

2328
2603
2813
3436

2331
2610
2816
3444

2355
2648
2823
3470

2380
2656
2843
3475

2424
2663
2909
3492

2464
2667
2953
3500

2467
2671
2958
3524

588#

1105

1147

1206

1218

1234

1270

1293

1309

1326

1345

1367

1661
1931

1691
1945

1706
2019

1723
2035

1753
2096

1770
2155

1251
1523
1787
2170
2465
2665

1790
2209

2476
2680
2934
3490

1853
2276

2484
2699
2951
3498

1870
2298

1890
2312

1923
2323

2841
3468

2468
2669
2907
3473

1830
2242

1211

1218

1224

1234

1240

1251

588#
588#
588#

1383

1400

2326
2598
2749
3302
3666

2329
2608
2782
3307
3787

1257
1383
1531
1633
1753
1863

1270
1389
1545
1644
1759
1870

588¢

2035
2251
2349
2474
2551
2642
2689
279N
2939
3312
3479
3627

588#
5884
5884
588¢
1400
1723

1105

1419

1439

2351
2637
2791
3343
3801

2375
2646
2811
3409
3833

1276
1400
1550
1650
1770
1882

1293
1406
1552
1661
1777
1890

2422
2654
2814
3434

1502

2462
2661
2821
3442

1545

1554

2478
2701
3275
3620

1559

2522
2706
2956
3522

1628

2549
2713
3022
3570

2554
2724
3345
3803

1644

2567
2722
3273
3618

1153

1206

2365
1576

2098
2298
2362
2484
2572
2654
2706
2814
2956
3350
3496
3675

2103
2305
2375
2490
2578
2659
2711
2818
2961
3357
3498
3681

2155
2312
2377
2496
2580
2661
2713
2821
2963
3409
3504
3787

2160
2318
2382
2500
2598
2665
2720
2827
3022
3434
3522
3792

2170
2323
2422
2506
2600
2669
2722
2829
3032
3439
3531
3797

2176
2326
2427
2508
2605
2675
2730
2838
3273
3442
3537
3801

2209
2329
2432
2522
2608
2677
2749
2841
3289
3447
3570
3807

2214
2337
2462
2524
2613
2680
2754
2848
3294
3462
3579
3833

2242
2339
2465
2530
2615
2685
2782
2907
3302
3468
3585
3838

2244
2347
2468
2549
2637
2687
2787
2934
3307
3473
3618

2256
1474

2096
2283
2353
2482
2567
2652
2704
2811
2951
3343
3490
3666

1147
1419
1725

1206
1439
1770

1218
1464
1787

1234
1523
1790

1251
1554
1853

1270
1559
1870

1 2 93

1309
1599
1931

1326
1644
1945

1345
1661
2035

1367
1663
2096

1383
1706
2098

2814

2821

2841

2907

3868
1579

1299
1419
1554
1663
1787
1900

3876
3784

1309
1425
1559
1669
1790
1923

3884
3810

1315
1439
1567
1691
1794
1928

3887
3825

1326
1450
1569
1697
1799
1931

} 5 97
890

1332
1464
1574
1706
1801
1942

1345
1469
1597
1713
1806
1945

2242
2468
2665
2956
3618

2244
2476
2669
3022
3666

2312
2484
2680
3273
3787

2323
2522
2699
3302

2326
2524
2706
3307

2329
2549
2713
3 343

g 351
551
2 722
3409

2353
2567

2375
2598

3434

3468

1385

1402

1421

1208

1441

1220

1236

1855
2353

1466

1872
2355

1892
2377

1 253
1 556
1 933
2 424

1272
1561
1947
2464

1295
1599
2037
2467

1772
2325

1597

2526
2715
3309
3789

1147

2170
2465
2661
2951
3570

588¢

2486
2708
3304
3668

1114

2041
2276
2351
2476
2562
2646
2699
2797
2941
3314
3481
3633

1109

1464

2470
2682
3024
3572

1107

1789
2328

1149

1792
2331

1525

2811

1311
1646
2098
2470

1351
1502
1599
1723
1830
1952

2377
2600
3473

1328
1663
2172
2478

1367
1508
1605
1725
1835
2019

2422
2608
3490

1347
1708
2244
2486

1373
1523
1628
1731
1853
2024

2462
2654
3522

1369
1725
2314
2524

CVDLAAO DLV11=J TEST

CVDLAA.PTT

$FSRTN= 000300
$FS$SEL= 000140
$FSUNT= 000130
$FSWHI= 000120
$FSYES= 000402

$GDADR
$GDDAT
SGET42
SGTSWR
$HD
=
[SHIBTS
SICNT
$IFLEV=

001120
001124
014572
015170
000000
(001000
001104
177777

$INTAG
001135
$15k0 = 000001

MACY11

30A(1052)

2526
2715
3309
3789

11-MAY-78 00:00

30-JUN-78

10:10

F 10
PAGE 125

CROSS REFERENCE

TABLE == USER SYMBOLS

2551
2724
3345
3803

2569
2793
3411
3835

2600
2813
3436

2610
2816
3444

2648
2823
3470

2656
2843
3475

3849

3864

3891

4154

4167

1137

1161

2447

2449

2867

588#
588#

1599
1105

1663
1147

1725
1206

2098
1218

1706

1723

1725

1770

1787

588#
588#
588

gzgg

1383
2098
2462
2646
2821
3468

903#
9054
41964
43118
599
8794
8964
588#
12704
13894
15504
1669#
17994
19424

22094
23374
24964
2637H
26894
27914
29414
33430
34964
38014
910#
1105
1276
1400#
1574
17234
1882

20964
2305
2530
2699%
2797
3302#
3537

3773

3253

1400

2170
2465
2654
2841
3473

327

1419

3316

1439

3341

1464

2242
2468
2661
2907
3490

2244
2476
2665
2951
3498

2312
2484
2669
2956
3522

4589
11144
1293%
164064
1554
16974
18304
19524

4591
1147%
1299#
14194
15594
17064
18354
20194

4602
11534
1309#
1425#
15674
17134
18534
20244

SEQ 0122

2663
2909
3492

2667
2953
3500

2671
2958
3524

2682
3024
3572

2701
3275
3620

2708
3304
3668

2871

2883

2891

2905

2965

3407

3226

3432

3230

2244
1234

2353
1251

2377
1270

2524
1293

2551
1309

2600
1326

1345

1367

1790

1853

1870

1890

1931

1945

2035

2096

3361

1523

33N

1554

3373

1559

3380

1597

3384

1599

1644

1661

2377
2600
2811
3434

3456

1663

2323
2522
2680
3022
3570

2326
2524
2699
3273
3618

2329
2549
2706
3302
3666

2351
2551
2713
3307
3787

2353
2567
2722
3343
3801

2375
2598
2791
3409
3833

2422
2608
2814
3442

12 064

12114
13264
14504
15974

12188
13324
14644
16054

12244
13454
14694
16284

12348
13514
15024
16334

12404
13674
15084
16444

12514
13734
1523
1650

12574
1383#
15454
16614

4784
4588+
11054
12764
14004
15524
16914
1806+
19454

22144
23474
25064
26424
26994
27974
29514
33574
34984
38074

22424
2355
25084
26464
27044
28114
29564
34094
35044
38334

4339
1114
1293

4428
11474
1299

2312#
2549#
2704
28114
3314
35704

2318
2580
27064
2838
33434
3585

1406
1597#
1731
1890#
2103

1619
1605
1753
1900
21554

2251
23624
25224
26528
27064
28144
29614
34348
35224
3838#
1153
1309¢
1425
1628¢
1759
1923#

2160
23234
2598¢
2711
28414
3357
3618¢

22764
23754
25304
2654K
27114
28214
29634
34398
35374
1206#
1315
1439¢
1633
17704
1928

21704
2355¢
2615
2713
2848
3409¢
3633

13154

14398
15744
17234
18634
20354

22834
238K
25494
26594
27134
28274
30224
34428
35704
12
1326#
14
1644#
1777
19314

2176
2362
26378
2720
2907#
3462
36664

17314

1753%4

1759#

17704

17774

17874

17904

18704
20414
22984
24228
25674
26618
2720

18824
20964
23054
24328
2578
26654
2722k

18904
21034
23124
2462K
25804
2669
27304

19004
21554
2318
24654
25984
26754
27494

19234
21604
23234
2468¢
26084
26804
2754

1928#
21704
23264
2478
26134
26854
27824

19314
21764
23294
2486
2615#
26874
27874

1218¢
1332
14648
1650
1787#
1942

1224
13454
1469
16614
1806
19454

12344
1351
1502#
1669
18304
1952

1240
13674
1508
16914
1835
20194

12514
1373
1523
1697
18534
2024

1257
1383#
1552
17064
1863
20354

1270#
1389
1554#
1713
18704
2041

28294
30324
3L4TH
35854

22094
23754
2642
27228
2941
3468#¢
3681

2838
32734
34628
36184

2214
2382
26464
2730
29514
3481
37874

28414
32944
34684
36334

22428
24228
2652
27494
2963
34904
3797

28484
33024
34734
36664

2251
2432
26544
2754
3022¢
3496
38014

29074
33074
34794
36814

22764
24628
2659
2782
3032
3498%
3807

2934k
33124
34814
37874

2283
2508
26614
2787
32734
3504
38334

29394
3314H
34904
37974

22984
2522#
2689
27914
3294
3522#
3838

29344

1799

23264
2939

2506
3307#

25674
3312

2578
34340

24864
4539

2496

26694

2685

28214

2827

1109
1207
1253
1315
1374
1440
1509
1556
1580
1645
1697
1753
1795
1854
1924
2024

1110
1208
1257
1316
1384
1441
1524
1560
1581
1646
1698
1754
1796
1855
1928
2025

3537
3629

3878

3851
3880

2934
2964
3254
3308
3351
3386
3447
3479
3499
3579
3668
3794
3827
3863
3882

2100
2210
2260
2314
2341
2365
2428
2466
2486
2508
2562
2600
2637
2663
2686
2714
2783
2820
2867
2935
2966
3255
3309
3352
3407
3448
3480
3500
3580
3675
3797
3834
3869
3883

2099
2209
2259
2313
2340
2364
2427
2464
2485
2507
2554
2599
2616
2662
2685
2712
2782
2819
2849

3033

2579
2613
2656
2679
2707
2750
2815
2842
2906
2961
3232
3295
3344
3380
3440
3470
3492
3538
3633
3789
3814
3850
3879

S~
O N

&S oo

b
wub
b

2098
2177
2258
2306
2339
2363
2424
2463
2484
2506
2553
2581
2615
2660
2682
2711
2755
2818
2848
2909
2963
3240
3304
3350
3385
3444
3475
3497
3572
3667
3793
3826
3852
3881

1891
1947

2453
2482
2501

2097
2176
2257
2305
2338
2362
2423
2454
2483
2502
2552
2580
2614
2659
2681
2708
2754
2816
2843
2908
2962
3239
3303
3345
3381
3443
3474
3496
3571
3634
3792
3825

1788
1807

1777
1803
1882
1943

1666
1726

¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
$¢
$¢
¢
¢
¢

3289
3317
3371
3433
3461
3486
3531
3620
3772
3808
3839
3874

1602
1664
1724

47
1406
1470
1546
1571
1605
1665
1725
1778
1806
1883
1946

1153
1236
1299
1352
1420
1475
1551
1575
1628
1669
1727
1789
1830
1892
1952

3275
3315
3363
3432
3460
3485
3524
3619
3682
3807
3838
3873

1277
1346
1402
1469
1545
1570

1149
1235
1295
1351
1407
1474
1550
1574
1606

2156
2245
2277
2327
2351
2378
2448
2475
2497
2526
2572
2606
2648
2675
2700
2724
2797
2829
2884
2952

1138

1224

2155
2244
2276
2325
2350
2377
2447
2474
2496
2525
2569
2605
2647
2671
2690
2723
2793
2828
2883
2942
3032

2608#
3439

4539

4422

1790#

3586
3681
3803
3837
3872

2829

1567

2020
2104
2243
2263
2324
2349
2376
2433
2470
2492
2524
2568
2603
2643
2670
2689
2721
2792
2827
2873
2941
3024
3274
3314
3362
3411
3459
3484
3523

28144
3479
24788
4518

W
—

b
b
=
il
il
al)

1836
1923

SEQ 0123

2687
2715
2787
2822
2868
2939
2967
3271
3312
3357
3408
3457
5481
3504
3581
3676
3798
3835
3870

4289
L4784

4510
4413

900#
9274
4472+
588#
1154
1246
1300
1368
1421
1502
1552
1577
1629
1670
1728
1791
1831
1900
1953
2101
2214
2261
2318
2347
2366
2429
2467
2490
2509
2563
2601
2638
2666

15594
2687
34734
24684

and

000001
001114
001172
016137
177777

1550

26654
3447
2337
4157

b -

$15k2 =
$ITEMB
SLF
SLFLG
SLOCTA=

15454

2613
34424
23294

10:10
PAGE 126
CROSS REFERENCE TABLE -~ USER SYMBOLS

= 000001

G 10

30-JUN-78

S NN
— —
NNOO VIV
O WOW NWVON
N =N~ o
SO
S~ OO W—-=NOW ~

$15k1

30A(1052)

CVDLAAD DLVI1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PT

CVDLAAO DLV11=J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00
SLPADR
SLPERR

001106
001110

SLSTCN= 177777

3884

8974
8984

1394+«
2115+«
588#
1208
1276
1367
1441
1533
1579
1669
1770

3885

1211
1293
1369
1450
1545
1580
1691

1218
1295
1373
1464
1546
1597
1692

1220
1299
1383
1466
1550
1602
1697

1411+
2186+
1105

1772

2508
2580
2648
2679

1541
1561

3887

4595+
1215+

2506
2578
2646
2678
2713
2793
2841
2934
3032
3294
3352
3432
3473
3524
3633
3797
3871

1480
1518

3886

4579+
1139+«

1831
1928
2096
2247
2312

588¢#
1093
1113
1142
1181
1215
1246
1290
1321
1364
1395
1436

H 10
30-JUN-78
10:10
PAGE 127
CROSS REFERENCE TABLE == USER SYMBOLS

1021+
1022+

1830
1924
2041
2242
2305

2347
2428
2475

$LSTIN= 000000

30A(1052)

1436+
2617+
1107

1777

1835
1931
2101
2251
2314

1608+«
2733+
1110

1787

3888

4600
1229+«

1638+
4529
1M1
1224
1309
1385
1469
1552
1605
1706

1789

3889

4602
1245+

1672+«
4579
1114
1234
1311
1389
1474
1554
1628
1708

1790

1320+

1337+«

1364+

1986+

1378+

2045+

1147
1251

1149
1253

1153
1257

1161
1270

1206
1272

1734+
4596+
1137
1236
1315
1400
1475
1556
1629
1713
1792

1811+«
4602
1138
1240
1326
1402
1502
1559
1633
1723
1795

2563
2610
2663
2699

1868+

1328
1406
1503
1561
1644
1728
1796
1882
2019

1886*

1332
1419
1508
1567
1646
1731
1799
1890
2020

1904+

1345
1421
1523
1570
1650
1753
1802
1892
2024

1347
1425
1525
1571
1661
1754
1803
1900
2035

1351
1439
1532
1574
1666
1759
1806
1923
2037

2750
2820
2884
2958

3826
3879

2749
2819
2883
2956
3253
3314
3380
3444
3490
3580
3773
3833
3880

3835
3883

1083
1097
1130
1149
1185
1220
1252
1295
1327
1369
1401
1441

1085
1103
113
1156
1186
1229
1253
1304
1328
1378
1402
1464

1086
1104
1132
1157
1187
1230
1262
1305
1337
1379
1411
1465

1087
1105
1133
1158
1188
1231
1263
1306
1338
1380
1412
1466

1088
1106
1134
1159
1189
1232
1265
1307
1340
1381
1414
1472

1089
1107
1135
1160
1190
1234
1266
1309
1341
1383
1415
1473

1090
1109
1136
1161
1206
1235
1270
1310
1345
1384
1419
1477

1091
1110
1139
1162
1207
1236
1271
131
1346
1385
1420
1478

1092
1112
1140
1163
1208
1245
1272
1320
1347
1394
1421
1479

1492
1524

1493
1525

1494
1527

1495
1528

1496
1531

1497
1532

1498
1537

1499
1538

1502
1539

1503
1540

1569

1570

1572

1573

1576

1577

1578

1579

1580

1488
1523

1082
1096
1129
1148
1184
1219
1251
1294
1326
1368
1400
1440

1566

1543

1304+

2554
2608
2661
2689

3825
3878

1565

1290+

2549
2607
2659
2687

3807
3876

1542

1262+«

2530
2606
2656
2685

2730
2816
2871
2953

1487
1519

4169

2526
2603
2654
2682

2724
2814
2868
2951

1080
1095
1127
1147
1183
1218
1249
1293
1324
1367
1398
1439

4168

2172
2276
2329
2375
2464
2496
2564
2613
2665
2701
2754
2821
2891
2961
3272
3341
3384
3456
3496
3585
3785
3838
3884

2722
2813
2867
2941

1079
1094
1126
1143
1182
1216
1248
1291
1323
1365
1397
1437

4167

1872
1952
2170
2263
2328

2720
2811
2848
2939

3803
3875

4153

1870
1947
2160
2260
2326

2715
2797
2843
2935

3801
3872

3893

1863
1945
2156
2259
2325

2355
2447
2483

3227
3304
3361
3434
3479
3533
3668

3892

1855
1942
2155
2258
2323

2351
2432
2478

3226
3302
3357
3433
3475
3532
3666

3891

1853
1933
2103
2256
2318

2350
2429
2476

2522
2598
2652
2680

SEQ 0124

3230
3307
3371
3436
3481
3537
3676

1544

2362
2448
2484

3239
3309
3372
3439
3483
3570
3677

1545

2363
2449
2486

3240
3312
3373
3442
3488
3572
3681

1546

2365
2454
2491

1554

2366
2462
2492

3271
3316
3381
3447
3492
3581
3784

1555

1556

2176
2277
2331
2380
2465
2497
2567
2615
2667
2704
2782
2823
2905
2963
3273
3342
3407
3461
3498
3618
3787
3849
3885

2209
2283
2337
2382
2467
2498
2569
2637
2669
2706
2783
2827
2906
2965
3275
3343
3408
3462
3500
3620
3789
3864
3887

2210
2298
2340
2422
2468
2501
2573
2638
2671
2708
2787
2829
2907
3022
3290
3345
3409
3468
3504
3628
3793
3868
3888

2214
2299
2341
2424
2470
2502
2574
2642
2675
2711
2791
2838
2909
3024
3291
3351
3411
3470
3522
3629
3794
3870
3891

1557

1558

1559

1560
1597

-8

2015
2046
2064
2097
2118
2141
2164
2196
2224
2244
2270
2293
2324
2352
2406
2423
2450
2467
2486
2534
2561
2577
2620
2636
2657
2677
2713
2742
2764
2782
2821
2866
2888
2908
2926
2949
2966
3023
3066
3094

1931
1981
1995

2016
2048
2065
2098
2120
2142
2165
2197
2225
2245
2271
2294
2325
2353
2407
2424
2451
2468
2490
2546
2562
2598
2621
2637
2658
2678
2714
2743
2768
2783
2822
2869
2889
2909
2927
2950
2967
3024
3067
3095
3118
3146
3219

1600
1625
1672
1692
1739
1768

1802

1830
1855
1911
1932
1982

1996

2019
2049
2075
2099
2121
2145
2166
2200
2226
2246
2272
2295
2326
2354
2408
2425
2452
2469
2491
2547
2563
2599
2623
2638
2661
2680
2715
2744
2769
2791
2823
2870
2890
2911
2928
2951
2979
3045
3068
3097

3119
3147
3220

1601
1628
1673
1704
1740
1770

1811

1831
1868
1912
1933
1983

1999

2020
2051
2076
2100
2127
2146
2167
2201
2227
2256
2273
2296
2327
2355
2409
2426
2453
2470
2500
2549
2565
2600
2624
2644
2662
2681
2722
2745
2771
2792
2825
2871
2891
2912
2929
2952
2980
3046
3070
3098

3126
3148
3224

SEQ 0125

TABLE -- USER SYMBOLS

1608
1629
1677
1705
1744
177

1812

1839
1869
1913
1945
1984

2000

2028
2052
2077
2108
2128
2147
2170
2202
2228
2257
2274
2297
2328
2365
2412
2427
2458
2474
2501
2550
2566
2601
2626
2645
2663
2682
2723
2746
2772
2793
2826
2872
2892
2913
2930
2953
2989
3048
307
3099

3127
3150
3225

1609
1638
1678
1706
1745
1772
1817
1840
1870
1914

1946

1985
2006
2029
2055

2078
2109
2132
2148
21N
2203
2229
2258
2275
2298
2329
2366
2413
2428
2459
2475
2522
2551
2567
2602
2627
2646
2665
2683
2724
2749
2774
2811
2841
2873
2893
2914
2931
2954
2990
3049
3078
3100
3129
3151
3228

1612

1639

1682
1707
1746
1787
1818
1842
1871
1915
1947
1986

2007
2030
2056
2079
2110
2133
2149
2172
2204
2230
2259
2276
2299
2330
2375
2414
2430
2460
2476
2523
2552
2568
2605
2629
2647
2666
2684
2733
2750
2775
2812
2842
2879
2899
2916
2932
2955
2992
3050
3079
3102
3130
3158
3229

1613
1644
1683

1708
1747

1788
1820
1843
1872
1916
1970
1987
2009

2031
2058
2080
2111
2134
2150
2186
2205
2231
2260
2277
2309
2331
2376
2415
2431
2461
2477
2524
2553
2569
2606
2630
2648
2667
2699
2734
2758

2776

2813
2843
2880
2900
2917
2934
2956
2993
3051
3081
3103
313
3159
3230

2032
2059
2081
2112

2135
2151
2187
2206
2232
2261
2287
2310
2339
2377
2418
2439
2462
2478
2525
2556
2570
2608
2631
2650
2669
2700
2736
2759
2777
2814
2844
2881
2901
2919
2935
2957
2994
3053
3082
3110
3132
3161
3231

1619
1646
1685
1724
1749
1790
1822
1845
1887
1918
1974
1990

2011
2035
2060
2082
2113
2136
2152
2190
2207
2233
2262
2288
2312
2340
2378
2419
2440
2463
2482
2526
2557
257
2609
2632
2651
2670
2701
2737
2760
2778
2815
2845
2882
2902
2920
2944
2958
2995
3054

3083
31
3134
3162
3232

1620
1661
1686
1725
1750
1791
1823
1846
1890
1919
1975
1991

2012
2036
2061
2083
2115
2137
2155
2191
2209
2234
2263
2290
2313
2349
2379
2420
2442
2464
2483
2528
2558
2572
2610
2633
2654
2671
2706
2739
2761
2779
2816
2846
2885
2903
2922
2945
2959

2997
3062
3084
3113
3135
3163
3235

1621
1662
1687
1726
1751
1792
1824
1849
1891
1920
1977
1992

2013
2037
2062
2084
2116
2138
2156
2193
2210
2242
2268
2291
2314
2350
2403
2421

L2443
2465
2484
2529
2559
2573
2617
2634
2655
2673
2707
2740
2762
2780
2818
2847
2886
2904

2923
2947
2960
2998
3063
3086
3114
3142
3164
3236

1622
1663

1688
1727

1753
1794
1825

1850
1892
1923
1978
1993

2014
2045
2063
2096
2117
2139
2163
2194
2223
2243
2269
2292
2323
2351
2404
2422
2449
2466
2485
2533
2560
2576
2618
2635
2656
2674
2708
2741
2763
2781
2819
2865
2887
2907
2925
2948
2965
3022
3065
3087
3115
3143
3166
3237

X x W

1904
1924
1980
1994

1854
1905

CROSS REFERENCE

I 10
PAGE 128

1853

10:10

1826

1599
1624
1665
1691
1735
1767
1801
1827

30-JUN-78

O
— NONS
=00 WSHs N

1598
1623
1664
1689
1734
1754
1795

30A(1052)

d
d
o
—d
N — - — e
OV NV NNNOOON
- 00 ~N — 00NN
SN0 S —

CVDLAAO DLV1I1=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

SLSTST= 177777

4052
588#
1206
1272
1351
1439
1531
1570
1646
1731
1796
1872
1952

2170
2263
2328
2363
2448
2483
2508
2574
2638
2671
2706
2783
2823
2905

4053
1105
1208
1276
1367
1441

1532
1571
1650
1753
1799
1882

2019
2172
2276
2329
2365
2449
2484
2522
2578
2642
2675
2708
2787
2827
2906

4169
1107
1211

1293
1369
1450
1533
1574

1661
1754

1801
1890

2020
2176
2277

2331
2366
2462
2486
2526
2580
2646
2677
2711
2791
2829
2907

3244
3262
3281
3300
3317
3337
3354
3378
3400
3418
3437
3458
3474
3499
3529
3551
3572

3245
3264

3282
3301
3318
3339
3355
3379
3401
3419
3438
3459
3475
3500
3530

3595
3616

3596
3617

3553
3574
3597
3618

4170
1109
1218
1295
1373
1464
1545
1576
1666
1759
1802
1892

1110
1220
1299
1383
1466
1546
1579
1669
1770
1803
1900

"
1224
1309
1385
1469
1550
1580
1691
1772
1806
1923

3640
3661
3676
3701
3792
3814
3836
3870
3883
3922

2024
2209
2283

2337
2375
2464
2490
2530
2598
2648
2678
2713
2793
2838
2909

3641
3662
3679
3702
3793
3818
3837
3871
3884
3923

2035
2210
2298

2339
2380
2465
2491
2549
2603
2652
2679
2715
2797
2841
2934

3642
3663
3680
3774
3795
3819
3840
3872
3885
3924

2037
2214
2299
2340
2382
2467
2492
2554
2605
2654
2680
2720
2811
2843
2935

3246
3265
3283
3302
3321
3340
3356
3382
3403
3421
3442
3460
3477
3516
3531
3554
3575
3598
3619
3643
3664
3688
3775
3796
3820
3841
3873

3248
3267
3286
3304
3323
3344
3360
3384
3405
3424
3444
3465
3483
3518
3535

3558

3578
3601
3622
3645
3666
3690
3777
3802
3822
3850
3875
3893
3927
1138
1240
1326
1402
1502
1556
1605
1706
1789
1835
1931
2101
2251

2314
2349
2427
2474
2498
2564
2608
2661
2687
2730
2816
2868
2951

3249
3269
3287
3305
3324
3345
3361
3385
3406
3425
3445
3466
3484
3519
3536
3564
3579
3602
3623
3646
3667
3691
3778
3803
3823
3851
3876
3894
3928

3251
3273
3289
3307
3326
3347
3363
3394
3410
3427
3450
3468
3486
3521
3545
3566
3583
3606
3626
3649
3670
3693
3787
3806
3825
3853
3878
3903
3930

3252
3274
3290
3308
3327
3348
3366
3395
3411
3429
3451
3469
3487
3522
3546
3567
3584
3612
3627
3650
3671
3694
3788
3810
3826
3866
3879
3904
3931

1147
1251
1328
1406
1503
1559
1628
1708
1790
1853
1933

1153
1257
1345
1421
1523
1567
1633
1723
1794
1863
1945

1161
1270
1347
1425
1525
1569
1644
1728
1795
1870
1947

2103
2256
2318
2350
2428
2475
2500
2567
2610
2663
2689
2749
2818
2871
2953

2156
2259
2325
2355
2432

2478
2502
2572
2615
2667
2701
2754
2820
2884
2958

2160
2260
2326
2362
2447
2482
2506

2573
2637
2669
2704
2782
2821
2891
2961

IF
IF
IF
IN
IN
IN
E
E

wnwoo

3833
3867
3880
3905

3243
3261
3280
3297
3316
3336
3353
3375
3399
3416
3436
3457
3473
3498
3527
3550
3571

mMmC

3695
3789
3811

3593
3614
3631
3654
3674
3697
3790
3812
3834
3868
3881
3906

3242
3255
3278
3296
3311
3334
3351
3374
3398
3415
3435
3456
3472
3492
3526
3549
3570
3594
3615
3632
3660
3675
3698
3791
3813
3835
3869
3882
3907

SEQ 0126

3653
3673

3548
3569

10:10
PAGE 129
CROSS REFERENCE TABLE =-- USER SYMBOLS

OoO>»0OMMMCOO0

3568
3592
3613
3628

3241
3254
3277
3293
3310
3333
3350
3373
3397
3413
3434
3454
3471
3491
3524

J 10

30-JUN-78

mmm m

3238
3253
3275
3292
3309
3328
3349
3367
3396
3412
3430
3453
3470
3490
3523
3547

30A(1052)

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.P1

2963
3273
3341
3381
3447
3498
3581
3681

SLSTTA= 000000

3810
3876
588#
1240
1352
1474
1571
1665
1760
1863

2025
2246
2319
2367
2475
2507
2580
2653
2704
2798
2883
3033
3314
3408
3481
3581
3784
$MADR1

$MADR2
SMADR3
SMADRS
SMAIL

001226
001232
001236
001242
001174

001224
001230
001234
001240
001002
MCALL= 000000
MFLG
016136
SMNEW
015663
MSGAD
001210
MSGLG
001212
MSGTY
001174
SMSWR
015652
MTYP1
001225

SMAMS1
SMAMS?2
SMAMS3
SMAMS4
SMBADR

3850
3885
960#
9644
9674
9704
880

1720

9544
9624
9654
968#
880#
”
4432+
4314
9404
9414
9344
4311
955#

30A(1052)

2965
3275
3342
3384
3456
3500
3585
3773
3825
3878

1110
1241
1373
1475
1574
1666
1777
1864

30-JUN-78

10:10

SEQ 0127

CROSS REFERENCE TABLE -- USER SYMBOLS

3022
3289
3343
3407
3462
3504
3618
3784
3826
3879

3024
3290
3345
3408
3468
3522
3620
3785
3833
3880

3032
3291
3350
3409
3470
3524
3627
3787
3835
3883

1
1257
1374
1508
1575

1114
1258
1389
1509
1580

1115
1276
1390
1532
1581

1778
1882

1795
1883

1796
1900

1669

1670

1697

2041
2247
2337
2379
2476
2508
2581
2659
2705
2819
2884
3226
3315
3432
3482
3585
3785
3851
3886

2042
2251
2338
2380
2483
2509
2602
2660
2711
2820
2905
3227
3341
3433
3487
3586
3793
3852
3888

2100
2252
2340
2382
2484
2530
2603
2675
2712
2827
2906
3239
3342
3439
3488
3628
3794
3863
3889

2101
2258
2341
2383
249N
2531
2606
2676
2720
2828
2939
3240
3351
3440
3496
3629
3797
3864
3891

884
1784

9334
1967

1039
2094

1054
2240

588
4438
L4264
44487
4453«
4446
4424

K 10

PAGE 130

3226
3294
3351
3411
3473
3531
3628
3789
3838
3884

1137
1277
1406
1533
1601
1698
1799
1901
2103

2259
2347
2428
2492
2553
2607
2678
2721
2829
2940
3271
3352
3447
3497
3633
3798
3870
3892

1124

2373

3227
3302
3352
3432
3475
3532
3629
3792
3849
3885
1138

1299
1407

1550
1602
1713
1800
1928

3230
3304
3357
3433
3479
3533
3633
3793
3864
3887

1153
1300
1425
1551
1605
1714
1802
1929
2160

2104
2260
2348
2429
2496
2554
2613
2679
2730
2830
2941
3272
3357
3448
3504
3634
3807
3871
3893

4153

1203
2596

2860

2261
2350
2432
2497
2563
2614
2685
2731
2838
2942
3290
3358
3460
3505
3676
3808
3872

1284

3239
3307
3361
3434
3481
3537

3666

3794
3868
3888

1154
1315
1426
1552
1606
1727
1803
1942
2161
2283

2351
2433
2498
2564
2615
2686
2754
2839
2961
3291
3371
3461
3532
3677
3826
3873

3240
3309
3371
3436
3483
3570
3668
3797
3870
3891
1211
1316
1450
1553
1633
1728
1806
1943

2176
2284
2362
2447
2499
2573
2616
2687
2755
2848
2962
3294
3372
3462
3533
3681
3827
3878

3253
3312
3372
3439
3490
3572
3675
3801
3871

4154
1212
1332
1451
1567
1634
1731
1807
1952

2177
2305
2363
2448
2501
2574
2642
2688
2787
2849
2963
3295
3380
3463
3537
3682
3838
3879

3271
3314
3373
3442
3492
3579
3676
3803
3872
4167
1224
1333
1469
1568
1650
1732
1835
1953

2214
2306
2364
2453
2502
2578
2643
2689
2788
2867
2964
3312
3381
3479
3538
3772
3839
3880

4154

4167

4168

4169

1361

1433
4233

4516

1461

1594
4594

3216

3272
3316
3380

3444
3496
3580
3677
3807
3875
1225
1351
1470
1570
1651
1759
1836

v
cv

SE
SK
SL
SP.
ST

2024
2215
2318
2366
2454
2506
2579
2652
2690
2797
2868
3032
3313
3407
3480
3580
3773
3849
3881

1658

$A
$B8

473«

44T7TH

4451

4454

4466

4470

CVDLAAO DLV1I1=-J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00
SMTYP2

SMTYP3

SMTYPL

001231

001235

001241

SMXCNT
016620
SNESTL= 177777

$NSKO = 000300

$NSK1

= 000210

$NSK2 = 000210

$NSK3 = 000110

SNULL
SNWTST=

SOCNT
SOMODE
SOVER

001154
000001

017270
017272
016604

963#
9664
969#
4592
588#
12404
13674
15024
15794
17234
18354
20194
22514

23474
2468#
2572
26594
2711#
2818
29344
32534
33574
34564
35374
3792
3887#

1105#
12704
1389
1605
17534
18904

2103
24224
2605
2711
28414
3253
34984
3681
11474
22764
2572
2963
3784#
1545#
2675
34734
23294
918#
1115#
17154

3202#
4702+
4697+
4556

30A(1052)

4602#
1105#
12514
13734
1508#
1597#
17314
1853#

2024#
22564
2349
2474
2578#
26614
27134
2821#
29394
3271#
33614
34624
35704
37974
3891#
1109
1276
14004
1628#
1759
1900

21554
2427
2615
27134
2848
32714
3504
37734
1153
2283
2578
32734
3810
1550
26804
3479

2337

4260
1117
17794

3204

4731«
4701+
4572

30-JUN-78

L_10

10:10
PAGE 131
CROSS REFERENCE TABLE =-- USER SYMBOLS

11474
1293#
14064

1550#

16444
17774
1890#

SEQ 0128

12064
13154
14394
15594
16694
1794
1928#

12114
13264
14504
15674

16914
17994
19314

21034
2305#
23824
2500
2608#
2677
27494
28414
29614
3302#
3384#
34814
3627
3825#

21704
23234
24324
25224
26374
26874
27874
28714
30224
33144
34324
34964
3675
38494

21764
23264
24474
25304
26424
26894
27914
28834
3032#
33164
34340
34984
36814
38644

1206#
1315
14394
1661#
1801
1942
22094

1224
13454
1469
1697
1835

12344
1351
14744
17064
1853#
2024
22564
25494
2689
27914
3032
34074
3627

24624
2652
27494
2891
3371#
3570#

4154#
1531

2318
2677
3314
3868#
2339
2934#
3801#
3447
13544
2088

L7464

20194
2251
2530
26614
2787
3022#
3384
3618#

1218#
1332#
14644
1569
16974

1801
19424
22094
23294
24494
25494
26464
26994
27974
28914
32264
33414
34394
35044
37734
38684
1240
13674
1576
1713
1863

12244
13454
14694
15744
1706#
1806#
19454

22144
23374
24624
2562
26524
27044
28114

12344
13514
14744
1576
17134
1830#
1952#

3230#
33434
34424
35224
3784#
38764

22424
2339
24654
25674
26544
27064
28144
2907#
32394
3350
34474
3531
37874
38844

1251#
1373
1579
17234
18704
2041

1257
1383#
1597#
1731
1882
2096#

2905#

20354
2365
2562
26994
2797
32264
3483
3633

23754
2580
2704
2811#
3230
34904
36664

2382
2598#
27064
2838
3239#
3496
3675

2362
2818
3357

24654
2829
34094

1574

1790#
2500
29074
3462

2506
2941
34684

1794

1799
25674
2951#
3481

2474
2961
3884

2482
3307#

2490
3312

2496
34324

26694
3456

1569

14544
2587#

v
'

$B|

$CI

$C
$C)

$Cl

1456

2589

1587#

2805#

1589

2852#4

1653#

2854

CVDLAAO DLVI1- J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PI
$PASS
$PASTM
QUES
SRDCHR

001202
001006
001170
015402

RDLIN

015522

RDDEC=
RDOCT=

#txwnn

wtwewnn

RDSZ = 000010
RTNAD

R2A

014614

wtwnnn

SAVLE= 177777

$SAVRE=

wtewwsn

SCOPE
016342
SETUP= 000127

$SSK0 =
$STUP =
SVLAD
SVPC =
SWR
=

000253
177777
016550
000430
167400

$SWREG
001216
$SWRMK= 000000
$TAGLE= 177777

$TAGNU= 000257

U
v
v

937#
882#
9254
43704
4789

43984
4789
4391#
42054
4785
588#
4789
1011
1002#
4428
1579#
1002#
4564
8564
588#
1019
1966
449N
4548
4599
9454
610
588#
12364
13514
14754
15714
16974
1799#
1928#

21724
23144
23634
24704
2502#
26034
26674
27154
28204
29354
32534
3351
34440
35244
36764
3838#
588#
1235
13474
1474
15614

30A(1052)

30-JUN-78

10:10

Mm10

PAGE 132

SEQ 0129

CROSS REFERENCE TABLE -~ USER SYMBOLS

1039+

4184

4185+

4193

4206

4289
4787

4357

4406

4422

4539

4586

Cv
cv

4603

$0
$E|
$E|
$E
$E.

4788

ISE.
1579#

15804

2259#

2263#

38264

38714

38754

3883#

45534
1010
4500
1580

1011
4526

1013
4534

1015
4554

1018

1019

1021

1051

3825#

38714

3875

38794

604
1022

605
1123

606
1202

608
1360

609

610
1460
6177
4527
4575

45934
861
599
1021
2093
4492
4549
4602
1042
611
1107#
12404
1369#
15034
15744
1708#
1802#
19334

21764
23184
23654
24754
25064
26064
26714
27204
2823#
29394
32724
33524
34474
35324
36774
38704
1106
12364
1368
14754
1569

22594

2263

4494
4567

2595

4495
4569

2859
4511
4573

1432
3215
4523
4574

4550
11114
12574
13854
15254
15794
1728%
18064
19478

457
11144
1272#
1389#
1532#
1602#
1731#
1831#
19524

1149#
1295#
14064
15464
16294
17594
1855#

11534
12994
14214
15504
16334
17724
18634

23804
24788
25264
26104
26784
27304
28294
29534
32904
33614
34624
35374
37854
38754

23824
2483#
25304
26134
26794
27504
2838#
2958#
3291#
33724
34704
35724
37894
38784

2239

2372

4549
11104
12534
13734
15084
1576
17134
18034
19424

4493
4555

22104
23254
23664
24764
25084
26074
26754
27244
28274
29414
3275#
33574
34564
35334
36814
38724
1107#
1252
13694
1502
15714

22144
23284

1109
1253¢
1384
1503¢
1598

2247%
2331#

1111#
12N
13854
1524
1600

2024#
22584
23404
24284
24864
25634
26384
2685#
27834
2848#
2963#
3304#
33814
34794
35814
37944
3883#
11384
1294
14024
1531
1602#

20374
22604
23414
24294
24914
25644
26424
26874
27874
2868#
29654
3309#
33844
34814
35854
37974
38844
1148

12954
1420
15334

1628

$E
$GI

4182

4294

924
1719
4204
4546
4584

1018
1783
4206
4547
4596

12204
13324
14664
15674
16694
17954
19004

12244
13474
14694
15704
1692#
17964
19244
2160#

21564
22994
23554
24644
24984
2578#
26594
2708#
28164
29064
3230#
33424
34364
3500#
36334
38254
1219
13284
1465
15564
1662

2305#
23624
24674
25014
25804
26634
2711#
2819#
29094
32404
33454
34394
3504#
36684
3835#
12204
1346
14664
1560

1664

$G|

CVDLAAO DLV11- J TEST
MACY11
CVDLAA.P1
11-MAY-78 00:00
1665
1772#

1871

$TEMP = 000300

2037#
2246
2324
2376
2463
24864
2564
2637
26794
2782
28434
2957
3291#
3380
3460
3523
36684
3835#
1079#
10974
1132#
11604
1215#
1262#
13204
1378#
14154
14884
15664
1609#
1704#
1795#
1850#
19424
1985#

2051#
2103#
2127#
2197#
2251#
2347
2408#
2428#
2461”0
2501#
2559#
2578#
26274
26774

27364
2825#
28704
2891»

30A(1052)
16664
1788
1872#

2097
22474
23254
2378
2464N
2490
2568
2638#
2681
27834
2867
29584
3303
3381#
34614
35244
3675
38644
1080#
1103#
11334
11614
12164
12634

N 10
10:10
PAGE 133
CROSS REFERENCE TABLE =-- USER SYMBOLS

30-JUN-78

1691
1789#
1891

2099
2257
2327
2379

1692¢
1791
1892¢
2100
22580

23280
23800
26674
2550
2572
26488
2700
2793¢
2883
3024#
3308
3,08¢
34704
35334
37730
38704
10834
1100¢
1135¢
11814
1229¢
12668
13244
13814
14378
15198

15708
16334
17318
1802¢
18694
19714
1999¢

20564
21108
21420
22240
22830
23550
24130
24320
24780
25280
25620
26060
26450
26848
27588
28290
2879¢
29000

1707
1792#
1923
21014
2259#

2330
2423
2469
25024
25744
2655
27014
2812
28844
3226
33094
3410
3474
3571
3784
38714
1085#
11104
11364
11824
12304
12764
13324
1389#
14504
15274

1572#
16384
17344
18064
18824

19748
20004

2075#
21114
21604
22254
22874
23624
24144
24394
24824
25294
25634
26134
26504
26854
27594
28384
28804
29014

1708¢
1794
1924#
2155
2262

2331#
24244
24704
2523
2599
26564
2707
28134
2505
32274
3341
34114
34754
35724
3785#
3874
1086#
11124

1724
17964
1932
21564

2263#
2339
2427
2474
2525
2601
2662
2708#
2815
29064
3239
33424
3432
3484
3579
3788
38754

10874
11134
1140#
1184#
1232#
1291#
1338#
1395#
14724
1531#
15744
1650#
17394
1812#
1887#
1977#

2007#
20774
21134
21864
2227#
2305#
23654
24184
24424
24864

25334
25664
26174
26524
2689#
27694
28454
2882¢#
2903¢#

SEQ 0130
1726
1801
19334

2171
2276
23414
24294
24764
25264
2602
26634
2714
28164
2908
32404
3344
34334
3487
35814
37894
3877

1089#
11144
11424
11864
12404
12994
13404
13974
14734
15324
15764
16694

17404
18174
19004
19784

20244
2078#
2115#
21874
22284
2309#
23664
26194
24430
24904
2534
25704
26184
2657#
2704

2771
28464
2885#
29044

1727
18034
1946

21724
22774
2349
2447
2477
2550
26034
2666
27154
2818
29094
3271
33454
3435
34884
3619
3792
38784
10904
11264
11434
11874

12454

13044
1341
1398#
14774
15504
1577
16724
1759
18184
19044
19804

20414
2080#
21164
21904
22304
23104
2382#
246204
2449
2491
25464
2571
26204
2658#
2711»
2772#
28478
28864
2911»

1728#
1830
19474

2209
2298
2351
2448H
2478#
2552
2605
26674
2723
28204
2934
32724
3350
34364
3491
36204
37944
38794

1092#
11274
11534
1188#
12464
1305#
1351#
14064
14784
1552#
15794
16734
17674
1835#
1905#
1981#

20454
2081#
2117#
2191#
2231#
23184
24034
24214
2452
24964
25474
25724
26214
26594
27204
27874
2848#
2887#
2912#

1753
1831#

2019
22104
22994
2352
2450
2482
2553
26074
2670
2724M
2822
29354
3274
3352#
3443
34924
3627

3802
3882
10934
1129#
11564
11894
1248#
13064
13644
14114
14794
1557#
15804
16774
1768#
1839#
1911#
19824

20464
2082#
2118#
2193#
2232#
23374
24044
246254
2458#
2497#
2556#
2573
26234
26734
27304
2797#
2865#
2888#
2913

17544
1854
2020#

2243
2313
2354
2453

24844

2554#
2609
26714
2749
2823
2952
3275#
3371
34444
3499
36294
3803#
3883#

1095#
11304
1157#
11904
1249#
1307#
1365#
1412#
14804
1558#
1605#
16784
17774
18404
1912#
1983#

20484
2083#
2120#
2194#

22334
2339#
24064
24264
2459#
2498#
2557#
25764
26244
26740
2733
2818#
28664
2889#
291448

cvl
cvl

1771
1855#

2036
2245
23144
23554
24540
2485
2562
26104
2677
27504
2842
2953#
3289
33724
3457
35004

3667
3834
4154#
1096#
1131#
1158#
1211#
1257#
1315#
13734
14144
14874
1565#
1608#
1697#
17944
1849#
19284
1984#

20494
20844
2121#
2196#
2234#
23404
2407#
2427#
24604
2500#
2558#
2577
26264
26754
2734#
2819

28692
2890#
29164

SLI

$LI
$0!

$0!
$0/

$0!I

[soi

29174
29594
29954
30634
30864
311764
31426
31644
32370
325¢4
32804
32964
33244
33484
33664
3397#
3618#
36450
34678
35204
35464
35674
35934
36144
36400

36614
36814
37744
38054
38674
23?;:
$TESTN

001200

$TIMES

001160

$TKB

$TKS

$TN

001146

001144

= 000023

$TPB
$TPFLG
$TPS
STRAP
STRAP2
[STRP
=

001152
001157
001150
017274
017316
000012

$TRPAD 017330
$7SK0 = 000251

9364

30A(1052)

29194
29604
29974
30654
30874
31154
31434
31664
3238
32534
32814
3297¢
33254
33494
33674
33984
34194
34464
3477H
35214
35474
35684
3594
36154
36414

36624
36884
37754
38064
38724
2329:
1124+

B 1N
30-JUN-78
10:10 PAGE 134
CROSS REFERENCE TABLE =~ USER SYMBOLS

29204
29614
2998
30664
30944
31164
31454
31674
3241K
3254
32824
33004
33264
33504
33734
33994
34214
3447
3478K
35264
3548
35694
35954
36164
36428
36634
36894
37764
38074
38754
39074
1203+

29228
2963#
30324
30674
30954
31184
31464
32194
32428
32610
32834
33014
33274
33514
3374
34004
34228
34504
34794
35274
35494
35744
35964
36174
36438

36644
36904
37774
38104
38804
3922¢
1284+

29234
29654
30454
30684
30974
31194
31478
32204
32438
32624
32854
33104
33284
33534
33784
34014
34248
34514
34814
35294
35504
35754
35974
36228
3644F

36654
36914
3778#¢
3811
38834
39234
1361+

29394
2966
30464
3070#
30984
31264
31484
32244
3244N
3264F
32864
33114
33334
33544
33794
34034
3425K
34538
34834
35304
35514
35774
35984
36234
3645K
36708
36924
3779#
3813
38844
39244
1433+

2941k
29794
30484
30714
30994
31274
31504
32254
32458
32654
32874
33124
33344
33554
33824
3404K
34264
34540
3486
35314
35534
35784
35994
36254
36464

SEQ 0131

2944N
29804
30494
30784
31004
31294
31514
3228
3246K
32664
32884
33144
33364
33564
33834
34054
3427H
34564
34964
35324
3554
35794
36014
36264
3647K

36764
36984
37954
3838#
39024
39304

36794
37014
37964
38494
39034
39314

1461+

1594+

1658+«

1720%

1784+

1967+

2094+

3216+

4156

4594+

2093+

2239+

2372+

2595+

2809+

2859+

3215+

4183+«

4361+

4372

4378

1283+

1360+

9154

4292

4303

4320

4374

4380

5884
1360
1603

599
1361
1653

1115
1428
16574

1123¢
14324
1658

1124
1433
1667

1196
1454
1715

9144

1804
22394
25954

9174
9214
916#
1015
47668
L7704

476C
1107#
1257
13854
1605
1754%

4030

1861
2240
2596

4278+
4227
4276
47554
4777
4779%

L7774
1110
1272#
1389
16294
1759

4292

4301

4317

29504
2994#
3062#
30844
31134
31354
31634
32364
32514
3278#
32944
33234
33474
3362
33964
34164
34394
34664
3519#
35454
35664
3592#
36134
36334
36604

36754
3697
37934
38264
38914
39294

2860+
1202+

2949
29934
30544
30834
31114
31344
31624
32354
32504
3277#
32934
3322¢
33464
33614
33954
34154
34384
34654
35184
3544k
35654
35854
3612#
36324
36544

36744
36954
37924
38254
38884
39284

2596+
1123+

2948F
2992¢
30534
30824
31104
31324
316°.
3231
32494
32704
3292#
33214
33404
33604
33944
34134
34374
34648
35174
35374
35644
35844
36064
36314
36534

3673
36944
3791k
38244
38874
39274

2373«
1018+

2947H
29904
30514
30814
31034
31314
31594
32304
32484
32694
32904
3317
33394
33594
3385
34124
34304
34628
35164
35364
35584
35834
36054
3628#¢
3650

36714
36934
37904
38234
38854
39254

2240+

922#

2945K
29894
30504
30794
31024
31304
31584
32294
3247H
3267F
32894
33164
33374
33574
33844
34064
34294
3459
35044
35354
35574
35804
3602¢
3627
36494

1432+

1202#
164600
17194

1460+

1203
1461
1720

1593+

1657+«

1719+

4582+

4589

4592+

4602

1783+«

1966+

1209
1467
1729

1279
1582
1779

12834
1587
17834

1284
1593#
1784

1354
1594
1797

1880
2249
2802

1898
2281
2805

1940
2303
2809

1955
2335
2852

1957
2345
2859#

19664
2360
2860

1967
2368
3035

2086
2372¢
3202

20934
2373
3215#

2094
2510
3216

4L78B0X

47B1N

4TB2H

4TB3N

4784

47854

4786

47878

LT788BF

47894

11114
1276
1402#
1633
17724

1114
1295#
1406
16464
1777

1138#
1299
164214
1650
1789+

1161
1311
1425
1666#
1802

1208#
1315
14414
1669
1803¢

1211
1328¢
1450
16924
1806

12204
1332
14664
1697
18314

1224
1347
1469
1708
1835

12364
1351
1475
1713
18554

1240
1369
1579
1728¢
1863

4289
4289
4289

36804
3702#
37974
38664
39044
4052#

2235
2587

12534
1373
1602#
1731
1872#

TR
A o

CVDLAAO DLVI1=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

$T5K2

000250

000253

$T5K4
$TSTM
TSTNM
$TTYIN
$TYPBN=

000126
001004
001102
015630

$TYPE
$TYPEC
$STYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR

SVECT
VECT?2

25024
2819
33454

000254

$75K3

TYPDS

11494

LA A

Al 2

016622
014636
015050
015116
017072
017106
017046
001206
001010
001220

001244
001246
XTSTR
016354
YESNO= 000001

1503#
2305
26824
3479
15464
2497
23314
8814
894n
4399

4783
46154
42274
4257
4282
47004
4699
46954
9394

8834

9464
2600
9714
9724
45584
1088#
11864

13804
2000#

22294
25340
26504
2826»
29444
30684
31184
31674
3287#
33834
34534
35304
35744

1153

2506
2820#
3351
1508

23144
2685
3789#

1928

3585
3870#

2160
2424
2580
27014
2797
3227#
3483
36204
3872

21724
2428
2603#
2704
2813#
3230
34924
3628
3875#

2829
3352#

2573
2909#
3357

25744
2941
36114

2325#
2827

2350
2935#

14754
25694
1525#

2318
28234
3793

1576

1532

19334

2176
24294
2606
2708#
2838
32404
3496

1579

1942

2210#
2432
26074
2711
28434
3253
3500#
3633
1795

2020#
2251
2464
2642
27240
2871
33420
3532
36774

2024
22584
2508
26484
2730
2884
3361

20374
2260
25264
2652
27504
2891
33724
3537
3785#

1799

22634
2678
3291»#
3810

24674
2687
3304#
38754
2283
26714
3456

2501
28164
3314
3887
22994
2675
34754

2483

24844

35334
3681

26674
3290
37854
15714
2475
33094
3880
23554

24764
3312
3883#
2362

2365
26794
3294
3825
22774
2498
34334
3885
24784

457

4593

4594

4599

4603

4087+

4098+

1556#
2363
2958#
3807
23414
3884

1550
34364
2337

1561#
3439
24864

37944
1567
34440
2491

3797
2328#
3447
24924

1112+
4400

4182+
4417

4503
4421

4539

4770
427
L2874

4778
L2764

4277

4343

2846+

4025

4070

4074+

4078

1597

4782
4459
4264
4284
4779
47024
4780
1070+

17964

1952
22474
2449
26384
2720
28684
3316
35244
3676

2613
32754
3481
1570
24704
2961
3878#
2347

26104
2963
34704

1533#

19474

2214
24484
2615
27154
2848
32724
3504
36684

1574

2041
22634
2530
26564
2754

2906#

3373
35724
3825

4781

1206
2661
4068

2665

1661
3343

1723
3937

1790
3941

4023

4096

2242

2326

2351

2375

2422

2598

10894
12314
13814

10914
12324
13974

1092#
12484
13984

1094#
1249#
14144

1095#
12654
14154

11034
12664
1557#

11044
13064
15584
21204

11564
13074
17044

1157#
13234
17054

11594
13244
1977#
21424
24604

11604
13404
1978#
21904

1185#
13414
19994

2006#
22304
25584
26514
28464
29454
3070#
31194
32454
32884
34154
34540
35354
3575#

2007#
22594
25594
26574
28474
29474
3071#
3131
32464
32924
34164
34640
35364
3577#

20484
22604
25604
26584
2889#
29488
30834
31324
32514
32934
34214
34654
35464
35784

2049#
24394
2561#
26734
28904
29494
30844
31344
3252#
32964
3422#
34664
35474
3583#

20794
24404
2565#
26744
29114
2950#
3086#
31354
32774
3297#
34264
34674
35504
35844

2096

2080#
24424
25664
26834
29124
29594
3087#
31474
32784

3300#
34274
34774
3551#
35944

24434
25704
2684#
29134
29604
30994
3148#
32804
3301#
34374
34784
35534
35954

21214
2458#

25714
27364
29144
30504
31004
31504
32814
33104
34384
3518#
35544
3598#

21414
24594
25764
27374
29164
30514
31024
3151#
32824
33114
34454
3519#
35574
3599#

25774
27584
29174
30534
31034
31634
32834
33594
34464
35264
35584
36014

24614
26234
27594
29224
30544
3115#
31644
3285#
33604
34504
35274
35664
3602#

2191#
25334
26244
2825#
29234

30674
3116#
31664
32864
33824
34514
35294
35674
3605#

Aeds

19244

2103
23804
2563
26634
2787
3024#
3384
3581#
3838

1900
21564
2382
25640
2689
27934
3032
3408#

SEQ 0132

18924

10:10
PAGE 135
CROSS REFERENCE TABLE -- USER SYMBOLS

$T5K1

2101#
2366
25544
2659
27834
2965
33814
3580
3835#

30-JUN-78

APAAANAN

1882

30A(1052)

CVDLAAO DLV11-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PTT

36254
36634
37014

36264
36704
37024

36314
36714
38234

36324
36734
38244

36428
36744
38714

36434
36794
3872¢

36464
36804
38794

3647#
36904
38804

17704

1218%
14648
17874

12344
15238
17904

12514
15544
18534

12704
15594
18704

12934
15978
18904

13094
15994
19314

13264
1644
19454

13454
1€61X
20354

1367#
16634
20964

1383#
17064
2098#

1218%
1295

1220
1299#

12248
13094

12344
1311

1466
15674
1666
17704
1863#
1947

1469%
15744
16694
1772
1870#
1952#

1502#
15974
16914
17774
1872
20194

2671
27134
28114

26754
2715
2813

22428
2468F
26614
29074
34904

2244k
2476K
26654
29514
3498¢

23124
24B4LK
2669F
29564
35224

1315#

13264

1328

13324

11054
1236

2646%
20804
27204

1107
12404

1402
1523#
1602
17064
1789
18904

20354
214k
2325
2380
a4
2567

11144
12514

164064
1525
16054
1708
17904
1892

2037
2242K
23264
23824
2486
2578#

11478
1253

14194
15454
1628#
17134
1792
19004

20414
2244#
2328
24228
24964
25804

23234
25228
26804
30224
35704

23264
2524N
26994
32734
36184

23294
25494
27064
33024
36664

23514
2551
27134
33074
37874

2353F
2567K
2722¢
33434
38014

2375
25984
2791
34094
38334

13454

1347

13514

13674

1369

13734

1383»

2101
22764
23374
24628
25224
2603

26614
2701
27824
2838#
29614
33144
3468
3524
3797#

21034
22834
23478
2464
2524k
2608%

2663
27044
27878

21554
2298
23514
24654
2526
2610

21604
23054
23534
2467
25304
26134

21704
2312
2355
24688
25494
26154

2172
2314
23628
2470
25514
26378

28274
29564
3309
34470
3504#
3787#

2098#
22514
2331
24320
25084
26004
26594
2699¢
27544
28294
2958
3312¢
34628
35224
3789

2841
29634
33434
3470
35374
38014

2843
3022¢
3345
34734
35704
3803

28484
3024
33574
3475
3572
38074

29074
30324
34094
34794
3585#
38334

2909
32734
3411
34814
3618¢
3835

1149
12574

1421
15504
16334
1723#
1799#
1923#¢

20964
2247
2329¢
2424
25064
25984

11534
12704

14254
1552#
1644F
17254
18064
1928#

12064
1272

1439%
1554#
1646
1728
18304
19314

28144
29394
3294%
3436
3492
36334

2648
2682
2722
2816
2941k
3302¢
34394
34964
36664

26524
26854
2724

2654#
26874
27304

2656
2689¢
27494

%;?g:

21634

16184

22004

16824

22684

17444

22904

2629%

27394

41984
11064
1253
13844
1525
16644
1789
19324

1107
12714
1385
15454
1665
17914
1933

1148#
1272
14014
1546
16914
1792
19464

1149
1294#
1402
1555#
1692
1830#
1947

1162#
1295
16204
1556
1707#
1831
2019#

1163
1310#
1421
1560#
1708
1854#
2020

1207#
131
14404
1561

14924

2172
2327¢
2453
25254
2648
27074
2813
29344

15374

28214
2951#
3304
34428
3498¢
3668

2823
2953
3307#
3444
3500
36814

18204

18424

1208
12764

1441
1556
16504
17314
18354
1933

19134

12114
1293#

14504
15594
16614
17538
1853#
19424

26654
27064
27914

14648
1561
16634
1759%
1855
19454

2667
2708
2793

23774
26004
28114
3434k

26694
2711x
27974

2422¢
26084
28144
34420

1385

24624
26464
28214
34684

13894

21764
2318#
23754
24764
2554
2642#4

29344
3275
34344
34904
3620
3838#

27604

19894

2774k

20094

20284

2058#

2132#

1208
13274
1441
16004
1727
18714
2037

12194
1328
14654
1601
17534
1872
20994

1220
13464
1466
1628#
1754
1891
2100

1235#
1347
1502#
1629
1771%
1892
21554

1236
1368#
1503
16454
1772
1923
2156

1252#
1369
1524#
1646
1788#
1924
2171#

29254

2954k

33054

21704
2L65H
2654M
2841
34734

20244
22094
23238
23774
2478
25674

$$GET4= 000000
$$LOC = 012710

3623
36A28
36954

4154
12064
1439%

14004
1508
1599#
1697#
17874
18824

$$FROM= 000000

36224
36548
3697¢
40534

3864k
11474
14194

17254

SEQ 0133

36154
36534
36954
4052¢

37734
11054
14004

17234

$$FLAG= 000001

36144
36504
36944
39274

DN
30-JUN-78
10:10
PAGE 136
CROSS REFERENCE TABLE =~ USER SYMBOLS

34714
A

$$ARGC= 000000
$$BYTE= 000402

36064
36498
36914
39264

30A(1052)

22094
2328
24638
2526
26554
2708
28154
2935

2210
2330
2464
2552#
2656
27144
2816
29524

22454
233
24664
2553
26624
2715
28224
2953

2246
2352#
2467
2568#
2663
2723#
2823
2957#

22764
2353
2469%
2569
26664
2724
28424
2958

17264
1855
20364

2277
23540
2470
2601#
2667
2749#
2843
29664

22984
2355
2477h
2602
26704
2750
28724
2967

2299
2378%
2478
26094
2671
2782¢
2873
30234

2313¢
2379
24854
2610
26814
2783
2892¢
3024

2314
24238
2486
26374
2682
2792%
2893
32314

23244
2424
25234
2638
2700#
2793
2908#
3232

2325
24524
2524
26474
2701
2812#
2909
32544

CVDLAAOD DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

CVDLAAD DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

$SLOCN= 000000
$SRETU= 000000
$SRTN1= 000255
000256
000001

s
s
3

PAAPAAAAAN

2
—_—

NN = B b b B2
-0
NOWVSsrWNN=O
N

106

017271
002062
002430
005272
005334
005350
005406
005400
005376
005404
005430
002460
005430
005470
005474
005562
005570
005606
005624
005730
002530
005726
005672
005724
005706
005724
005722
005724
005730
002556
005762
006022
006044
006076
006070
006076
006140
006146

002604
006162
006162
006244
006262

3255
33740
3470
36194
37738
37738
37738
37738
14924
1845

21454
2745
38184

4696+
1106
1252

2276
2298
2312
2324
2327
2330
2339
2349
1271
2352
2376
2378
2423
2427
244T7H
2450
2463

30A(1052)

32740
3375
34740
3620

30-JUN-78

2637
2647

E 1
PAGE 137

SEQ 0134

CROSS REFERENCE TABLE -~ USER SYMBOLS

3275
33854
3475
36674
38644
3840#
3849
3851
15374
1919

3303#
3386
34864
3668
3893
3850
38644
3864#
1543
1989#

21638
2763

2166
27744

4710

L7454

3304
3410#
3487
3788#
41544
38644
3891
3892
1618#
1995

22004
2780

3308#
3411
34914
3789

3309
34354
3492
3802#

3892

L1544
4167
4168
1682#

4169

41540
41544
1624
2009#

2206
29254

2015
22684
2931

33174
3436

34994
3803

3318
34434
3500
3834n

33444
3444
35234
3835

3345
34594
3524

3362#
3460
3571

3363
34694
3572

4168

1688
2028#
2274
29544

17444

2031
22904
2955

1750

2058#
2296
3305#

18204

2064
26294
3306

1826

21324
2635
34714

1842#

2138
27394
3472

$!
$

23624

1294

2466
2469
2474
2477
2482
2485
2490
2500
1310
2523
2550
2552
2562
2568
2572
2599
2601
1327
2605
2609

10:10

25304

010726
010744
010756
010766

32714
3274
3289
3303
3308
33414
3344
3350
1420

33714
33804
34074
3410
3432
3435
3443
3457
1440

3469
3474
3484
3491
3499

11144
16064

3317
32904
32944
33144
33124
3362
33514
33574
14254
3374
3385
3486
34624
3459
34394
34474
34604
14504
34814
34794
34874
34964
35044

1
e

[Tl

&
8

LR Ll

3254

1109
1401

1389#
2966
29414
29394
29634
29614
30324
3231

2952
2957
3023
32264
32394

1384
2905#
2908
2934

27974
28384
28194
28294
28274
28484
2872
2892

13734

2792
2812
2815
2818
2822
2842
2867#
28834

1368

SEQ 0135

006606
007062
006706
006760
006760
007106
007134
007166
002720
007224
007314
007314
007356
007356
007534
010136
010156
002066
002746
010244
010302
010306
010344
010344
010406
010430
010440
002776
010472
010506
010562
010666
010622
010636
010646
010666
003036
010726

26854
27044
2711#
27204
2730#
27544
27874

1351#
26874

138

006574
002672

2677
2681
2700
2707
2714
2723
2749
2782

1346

PAGE

TABLE == USER SYMBOLS

—t

006410
006422
006434
006504

26594
26894
2678#
26754

10:10

006334
006332
002634
006350
006350
006376

2655
2662
2666
2670

30-JUN-78

CROSS REFERENCE

006276
006350

30A(1052)

CVDLAA.PI

MACY11
11-MAY-78 00:00

CVDLAAD DLV1I1=J TEST

CVDLAAOD DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.P11

$225

$226
$227
$23

$230
$231
$232
$233
$234
235
236
237
24
240
241
242
243
244
245
246
247
25
250
251
252
253
254
255
256
26
27
3
30
31
32
33
34
35
36
37

011040

3523
3531
3571

35324
35374
35804

011164
011300
011304
011420
011424
012726
012730
012600
003072
012702
012616
012624
012642
012714
013010
013010
012756
003320
012752
013002
012770
012766
013000
014512
014512
003146
003206
002134
003242
003242
003300
003276
003306
003366
003370
003436

3579
3619
3627
3667
3675
3836
3841
3784n

3585#
3628#
36334
36764
36814
38494
38514
3825

011044
011160
003066

4
40

002160
003460

41
42

003516
003520

44
45
46
47

003606
003644
003646
003714

LOCAT=

5
50
51
52
53
54

30A(1052)

wewnnn

003566

002334
003732
003774
003770
003772
003776

1465

14744
3811
3788
3792
3802
3834
38914

38924
3869

1577
38704
3874
3877
3878#
3882
L1674
4168#
1502
1524
11374
1531
1545
1555
1560
1569

1598
1600
1628

1148
1645
4513
1662
1664
1691
1707
1724
1726
1753
1207
1771
1788

1791

1794
1801

‘
6 1
30-JUN-78
10:10
PAGE 139
CROSS REFERENCE TABLE =< USER SYMBOLS

1469

1579

3813
37934
37974
38074
38384
38724

15804

3887
3888#
3880#
3884
3885#

38264

SEQ 0136

CVDLAAOD DLV11=J TEST
MACY11
CVDLAA.PIN
11-MAY-78 00:00
$55
$56
$57
$6
$60
$61
$62

004044
004102
004122
002354
004144
004212
004226

$63
$64

004240
004432

7
70
71
72
73
74

002402
005002
005030
005110
005214
005216

65
66
67

004460
004626
004632

$75

$77

1830
1854
1871
1219
1891
1923
1932
1946
2019

2036
2097
2099
1235

2155
217
2209
2243
2245
2257
22584
2262

005226
005224

005432
= 017354

8274
928
1207
1311
1440
1561
1726
1855
2036
2277

2354
2470
2601
2667
2749
28244
2957
3303
3386
3486
3668

39754

SASTA=

.$x

wewnex

= 001000

)

44804
4432
868#

30A(1052)

H 1
10:10
PAGE 140
30-JUN-78
CROSS REFERENCE TABLE =<~ USER SYMBOLS

SEQ 0137

18354
1863#
18824
12244
19004
1928#
19424
19524
20244
20461#
2100#
2103#
12404

21604
21764
22144
22464
22514
22604
2365
23664
8314
10004
1208
1327
1441
1600
1727
1871

2037
2298
2355
2477
2602
2670
2750
2842
2958
3304
3410
3487
3708#
3985#
4539

4435
873

8424

1008
1219
1328
1465

1601
1753
1872
2099
2299
2378
2478
2609
2671

2782
2843
2966
3308
3411
3491
37094
3987#

4602

856
1021
1220
1346
1466
1628
1754
1891

2100
2313
2379
2485
2610
2681
2783
2872
2967
3309
3435
3492
3710#
4155#

4603

857#

1022
1235
1347
1502
1629
1771
1892

2155
2314
2423
2486
2637
2682
2792
2873
3023
3317
3436
3499
3711#

41604
L6694

859#
10644
1236
1368
1503
1645
1772
1923

2156
2324
2424
2523
2638
2700
2793
2892
3024
3318
3443
3500
37284

41624

861#

1099
1252
1369
1524
1646
1788
1924

217N
2325
2452
2524
2647
2701
2812
2893
31924
3344
3444
3523
3788

4206

8624
1106
1253
1384
1525
1664
1789
1932

2172
2327
2453
2525
2648
2707
2813
2908
3231
3345
3459
3524
3789

4210

868
1107

1271
1385
1545
1665
1791
1933

2209
2328
2463
2526
2655
2708
2815
2909
3232
3362
3460
3571
3802

4289

8694
1148
1272
1401
1546
1691
1792
1946
2210

2330
2464
2552
2656
2714
2816
2934
3254
3363
3469
3572
3803

4292

8714

1149
1294
1402
1555
1692

1830
1947
2245
2331
2466

2553
2662
2715
28174
2935
3255
3374
3470
3619
3834

44214

8734

1162
1295
1420
1556
1707
1831

2019
2246
2352
2467
2568
2663
2723
2822
2952
3274
3375
3474
3620
3835
4422

891#

1163

1310
1421
1560
1708
1854

2020
2276
2353
2469
2569
2666
2724
2823
2953
3275
3385
3475
3667
3935

4428

CVDLAAO DLV1I1=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

ERRDF

[ERRHRD

ERROR

2604

»
14
1L
1#
»
1424
1758

2175
2577
2753
3356

1#
1
1L
1L
588#

3634

588#
1635
588#
588#
1547

2021
2493
6154
1387
1875

ESCAPE

2343
2795
1L

XIT

588#

XIF
XIFB

GETPRI
ETSWR

3122

3138

3154

3513

1244

1261
1867
1447
1743

1303
1903

2070

1319
1985

2218

1336
2044
2252

2738

1289
1885
1640
1819
2760

2773

2924

2953

1363
2114
2434
2008
3304

2185
2691
2028
3470

2616
2798
2057
3818

2732
2985
2131

3388
2144

1810
1416
1681

1842

1912

1988

1377

3541
1393

3561

3589

1410

1435

2628

1180
7214

2074

2224

3921

1530

1568

1793

1800

2338

2348
3626

2426
3674

2473

2481

2489

2499

2561

2571

1210

1223
1549
1834

1239
1551
1862

1256
1566
1881

1275
1573
1899

1298
1604
1927

1314
1632
1941

1331
1649
1951

1350
1668

1372
1696

1388
1712

1405
1730

1108

2676

2817

3288

3349

3530

3578

379

7214

2213
2579
2786
3438
2364
1578

3848

2534
3654
1154
1651
1150
1221
1562

2038
2503
1151
1404
1895

2358
2937

7214
1575

2302

1889

3106

2289

2280

2467

3090

2267

3809

1
1438

3074

2199

1L
1L

1
1L

3058

4048

1208

7214
7214
1146
1463
1930

2521

1152
1468
1798

2250
2612
2796
3446
3883
3824
3890

2581

3682
1225
1698
1237
1630

2068
2639
1166
1423
1926

2472
3025

1466

2334
1051#
1205
1522
1944

2548

1507

1805

2282
2614
2826
3461
3886

2641
2828
3478

2317
2651
2837
3480

2336
2658
2847
3495

2346
2674
2938
3503

2361
2684

2940
3536

2381
2686
2960
3584

3071

2304

2688
2962
3632

2023
2495
2703
3031
3680

2040
2505
2710
3293
3796

2102
2507
2719
3311
3806

2159
2529
2729
3313
3837

2431

4166

3054
3702

3087

3103

3119

3135

3151

3167

3538

3558

3586

3606

1241
1760

4053
1258
1864

1277
1883

1300
1901

1316
1953

1333

2042

1352
2072

1374

2177

1390

2215

1407

2731

1426

2800

1452

1254
1647

1273
1693

1296
1709

1312
1755

1329
1773

1348
1832

1370
1856

1386
1874

1403
1894

1422
1925

1934

1444

1504
1948

2157
2701
1170
1445
1935

2480
3494

1581

2173
2708
1174
1505
1949
2488
3502

1602

2211
2715

1178
1548
2022

2494

1666

2278
2724

2299
2751
1238

2315
2784

2504

2069
2640

2158
2695

2174
2702

1222
1563
2039

1631

1255
1648

2332
2794
1274
1694

2342
2936

2357
3024

1297
1710
2212

1313
1756
2279

2709

2716

2344

2359

2509

2801

1728

1796

1803

1860

1879

1897

1233
1558

1250
1596
2169
2607

1269
1643
2241
2653

1292
1660

1308
1705

1344
1769

1366
1786

2095
2597

3034

231
2660

2322
2664

row

ENDSUB

4
588#
1
1
#
»
#

1228
1733
1342
1617

SEQ 0138

~N W

ENDINC
ENDLOO
NDRTN
NDSEL
NDSRV

2163

1100
1491

1214
1671
1267
1536

3041
3685

10:10
PAGE 142
CROSS REFERENCE TABLE -~ MACRO NAMES

—

END
NDCOM
NDDEC
NDDO
NDIF

1637

2542
3657

I 1

30-JUN-78

PNOND
= wvownnn
O
—
oA
NN

CASE
CLRVEC
COMMEN
ECR
ECRU
EFAUL
LSE

588#

1138

~N
s =
N OW

CALL

588#

1607

2519
3637

BRESET

3609

GNSUB

1L
588#

—

BEGIN
GNSRV

30A(1052)

2325
2668

2328
2679

2374
2698

2471
3493
1330
1774

2300
2725

1382
1789

2421
2705

2479
3501

2487

2316
2752

2333
2785

1954

2248

1399
1852

1418
1869

1349
1833

2461
2712

1371
1857

2464
2721

LOCAL

00oP
SG

ULT
EWTST
OLOCA
oP
PUSH
REPEAT
REPORT
ETURN
OUTIN
SAVR14
COPE

SELECT
SETPRI

SETTRA

SETUP

2813
3489

1104

2820
3521
2645

2840
3569
27%0

2506
3617
3441

2950
3665
3497

2955
3786
3800

3832

1501

1544

1627

1690

1752

1829

2255
3867

3875

1078
1134
1230
1394
1611
1910

1089
1157
1264
1436
1703
1980
2078
2186
2402

1092
1181
1290
1471
1734
1981

1396

1638
1969

2075
2119

3433

3467

1922

2018

2297

2636

2748

1095
1182
1304
1476
1738

1102
1183
1305
1478
1766
1983
2082

1982

1131
1189
1364
1564
1868

2195
2411
2559
2757
2902
3044
3101
3162
3265
3332
3402
3476
3567
3630
3691
3905

2112
2230
2438
2622
2864
2943
3066
3128
3236
3286
3354
3423
3534
3595
3652
3777
3927

1456

1587#

2088

25874

1454

1587

2086

2235

2115
2231
2441
2625
2868
2946
3069
3130
3240
3291
3358
3425
3543
3597
3659
3789
3928

1473

3783

2589

2852#

2854

2368

2587

2805

1115

1354

1428

7214
7214
1136
588#

3889
3864
2446

4656
4458
2904

4615

3225

3238

3270

3340

3370

3379

3406

363

1592

1656

1718

1782

1965

2092

2238

2982

3256

3368

1115#
»
»

4
#
¥
#
4
1L
#
#
6164

2594

#
1#

47704

1117

7214
7214

3835
3771

1122

3556
3615
3678
3902

2080
2189
2405
2555
2733
2898
2993
3096
3157
3260
3324
3397
3463
3563
3621
3687
3903

2081
2192
2407
2557
2735
2900
2996
3098
3160
3263
3326
3399
3465
3565
3624
3689
3904

11964

1356

14540

3080
3141
3244
3299
3377
3436
3547
3604
3663
3804
3930

721#

2545
2682
2888
2991
3093
3149
3250
3322
3395
3452

1571
1886
2047

2045
2111
2228
2429
2619
2845
2921
3064
3125
3234
3284
3352
3420
3528
3593
3648
3775
3925

2054
2116
2232
2457
2643
2878
2948
3077
3133
3242
3295
3365
3428
3545
3600
3661
3794
3929

2233
2459
2649
2880
2958

3408

1
»
1L
»
i
1
1133
1229
1379
1608
1904
2050

2933

3272

—

2781

3021

SEQ 0139

WA
—
~N - N
cown N

»
1
»

IF .NO.
INCR
INCRU
INLINE
EAVE
ET

2810
3472

—_—

IF8
1 ¥ COND
IF.ERR

30A(1052)

11-MAY-78 00:00

CVDLAA.PI

J 1N
10:10
PAGE 143
CROSS REFERENCE TABLE =-- MACRO NAMES

30-JUN-78

MACY11

nN—=O
S wWoo
VO —

CVDLAAO DLV11=) TEST

3839
3862

2808

2858

1201

1431

1459

7214
4779
7214

1286
4780
1002

4784

2216

2400

4786

2875

4787

4788

2371

SLASH
SPACE
STARS

588#
#

2249

»
7214
1#

874
1430

2235
3039

STRUCT
SWRSU

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
NTIL

UNTILB
AITMS
HILE
HILEB
$ADDON

4291
1#

1128
7214

2107

3901

2281

1979
1209

2303

2335

2345

2360

1603

1729
2802

7214

734
928
1458

736
931
1587

754
1115
1591

756
1121
1653
2518
3749
4487

776

7214

887

1454

2237

3202
4294

588#
7214

7214
7214
7214
7214
7214
7214
7214
4163
1160

1804

1861

795
1196
1717

797
1200
1779

4158
2831

4164

4312

2448

3252

2370
3509

4391

2516
3511

4430

2593

4042
4749

1880

1898

1940

824

854
1354
1964
2852
4065

865
1358
2086
2857
4173

4212

4159

1281
1957

2807
4061

1955

867

1428

2091
3037

10234

2835
1044

2816

1107
1272
1419
1554
1692
1830
2020

2257
2423
2550
2677

1193
1715

SEQ 0140

1797

3035

4605

4362

1105
1270
1402
1546
1691
1803

1106
1401
1628
1854

1582

2587
3861
4672

2027

2351

1467

2541
3854

2368
3213

1841

2019
2258
2341
2468
2574
2667
2750
2868
3226
3343
3442
3570
3801
$AND
SBRANC

K 11
10:10
PAGE 144
30-JUN-78
CROSS REFERENCE TABLE =-- MACRO NAMES

N\
= oo

SETVEC
SKIP

30A(1052)

CVDLAAOQ DLVI1=J TEST
MACY11
11-MAY-78
CVDLAA.PI
00:00

3934

2259
2351
2470
2598
2669
2782
2883
3227
3345
3444
3572
3803

2522
1109
1420
1645
1871

2262
2427

2552
2681

2463
2572
2714

3948

3974

4154

4156

3315

3360

3455

3482

1206
1328
1474
1597
1754
1890

1208
1345
1475
1602
1770
1892

1234
1369
1523
1644
1789
1931

1236
1383
1525
1646
1790
1933

2156
2312
2429
2502
2638
2701
2814
2934
3275
3407
3488
3668
3870

2170
2314
2447
2522
2646
2706
2816
2935
3291
3408
3490
3677
3871

2210
2326
2462
2554
2656
2715
2823
2956
3307
3432

1252
1545
1726

1271
1555
1753

1327
1577
1791

2036
2330
2474
2605
2782

2097
2339
2477
2609
2792

3500

3785
3878

217
2354
2490
2655
2818

1251
1385
1533
1661
1792
1945

2242
2328
2464
2564
2661
2722
2841
2958
3309
3433
3522
3787
3879

2247
2329
2465
2567
2663
2724
2843
3022
3341
3434
3524
3789
3883

1346

1368
1598
1801

1579
1794

2209
2365
2500
2662
2822

2243
2376
2523
2666
2842

CVDLAAC DLV11=J TEST
MACY11
CVDLAA.PT
11-MAY-78 00:00

$BRCOD

SCALL
$CHECK

$CHK1

$CKOP2

$CKR6
$CMND

$COMPA

2872
3344
3499
3834

2892
3350
3523
3836

1576

3873

1492

2200

1105
1439
1890
2465

2699
3307
3833
1079
1182
1378
1672
1980

2908
3362
3531
3841

1597

3881

1537

30A(1052)

2934
3374
3571
3869
1661

1618

2268

2290

2468
2706
3343

1523
1945
2476
2713
3409

1147
1464
1931

1082
1183
1394
1677
1981

2083
2227
2420
2869
3048
3219
3325
3403
3616
3871

2108
2230
2425
2879
3062
3224
3327
3405
3640
3876

1087
1414

1090
1557

1206

1085
1186
1411

1734
1982
2109

2231
2430
2881
3065
3228
3333
3412
3644
3879
1093
1704

2460
2846
3086
3282
3453
3583
3673

2533
2889
3099
3285
3464
3594
3679

2558
2911
3102
3287
3466
3598
3690

1105
1439
1790

1147

1206
1523
1870

2329
2567
2811
3468
1105
1439
1770

2209
2476
2706
3273
3787

1464

1853

2351
2598
2814
3473

1147
1464

1787
2242
2484
2713
3302
3801

2353
2600
2821
3490
1206
1502
1790

2256
2522
2722
3307
3833

L 1N

30-JUN-78

10:10
PAGE 145
CROSS REFERENCE TABLE =-- MACRO NAMES

2952
3385
3579
3874

2957
3410
3619
3877

2966
3435
3627
3882

3231
3457
3675
3887
2375
1913

1723

2096

2242

3023
3443
3667
3884
2261

1682

1744

1820

1842

2629
1218
1554

2739

1234
1559

2760
1251
1597

2035
2484
2722
3434

2096
2522
2791
3442

2170
2549
2811
3468

1096
1187
1436
1739
1983

1112
1188
1472
1767
1984

1126
1189
1477
1811
1986

2110
2232
2528
2885
3078
3235
3336
3418
3660
3902

21
2233
2546
2887
3081
3237
3339
3424
3664
3903

2112
2256
2556
2899
3094
3241
3346
3429
3688
3904

1103

1156
1999

1158
2006

1977
2560

2913
3115
3292
3477
3601
3694

2565
2916
3118
3296
3518
3605
3697

2570
2922
3131
3300
3526
3614
3701

1218
1554
1890

1234
1559
1931

1251
1597
1945

2375

2608
2841
3498
1218
1523
1830
2276
2549
2749

3343
3868

2377
2646
2907
3522
1234
1545
1853

2298
2567
2782
3409
3876

2422
2654
2951
3570
1251
1554
1870

2312
2598
2791
3434

2774

1270
1644
2242

2567
2814
3473

SEQ 0141

3254
3459
3788

3274
3469
3792

3289
3474
3802

3303
3484
3811

3308
3486
3813

3317
3491
3825

2449

2549

2598

3456

3483

3810

1989
2954
1309

2028
3471
1345
1770
2329
2654
2951
3570

2058
3818
1367
1787
2351
2661
2956
3618

2132

2145

1383
1790

2375
2665

3022
3666

1400
1853
2422
2669
3273
3787

1133
1290
1565
1886
2076

1135
1304
1572
1904
2077
2196
2408

1139
1320
1608
1911

1142
1337
1612
1970

2312
2598
2821
3490

2323
2608
2841
3498

2009
3305
1326
1723
2326
2646
2907
3522

1130
1229
1487
1839
2051

1131
1245
1518
1849

1132
1262
1527
1868

2925

1293
1661

2117
2287
2620
2903
3110
3247
3353

3520
3774
3906
1231

2078
2623
2947
3147
3359
3535
3625
3925
1293
1644

2096
2465
2665
3022
3666
1293
1597
1923

2326
2637
2814
3468

1706

2055
2127
2309
2626
2919
3113
3249
3355
3544

2075
2186
2403

2979
3126
3261
3366
3548
3778
3923

2193
2406
2733
2989
3129
3264
3378
3564
3790
3924

1248

1265
2141
2657
2959
3163
3415
3550
3642

1306
2190
2673
3050
3166
3421
3553
3646

1326
1663
2170
2476
2680
3302
3801
1326
1644
1945

1345
1706

3776
3922

2120
2650
2949
3150
3382
3546
3631

4052

1309
1661

2098
2468
2669
3273
3787
1309

1628
1931

2329
2646
2821
3473

2644

2351
2654
2841
3490

2768
2992
3142
3266
3394
3568
3795
3927

2080
2223
2412
27N
2994
3145
3269
3396
3592
3805
3928

2081
2225
2414
2844
2997
3158
3321
3398
3596
3866
3929

1323

1340

1380

2228
2683
3053
3245
3426
3557
3649

2439
2736
3067
3251
3437
3566
3653

2442
2758
3070
3277
3445
3574
3662

1367
1723
2244

1383
1725

1400
1770

2242
2484
2699
3307
3833

2522
2706
3343

2312
2524
2713
3409

2722
3434

2019
2375
2661
2907
3498

1367
1691

2035
2422
2665
2934
3522

1383
1706

1400
1723

1345
1661

2096
2462
2669
2951
3570

2323
2549

2155
2465
2680
2956
3618

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PT
SCOUNT
$00
$ELSE
SERRMS
SEXIFA
EXIFO

EXIF2
EXIF3

GENBR

$GENTA

”

2163

2200

1492

1537
2268

2290

2351

2476

2484

110$
1420
1645
1871

1148
1440
1662
1891

$1FCOD

$1FCON

$1FOPR

1618

LA
10:10
PAGE 146
CROSS REFERENCE TABLE -- MACRO NAMES

30-JUN-78

1682

1744

2629

2739

2760

2774

2925

1913

1989
2954

2009
3305

1162
1465
1664
1923

1207
1502
1691
1932

1219
1524
1707
1946

1235
1531
1724

1252
1545
1726

1271
1555
1753

1294
1560
1771

1820

1842

SEQ 0142

2028
3471

2058
3818

2132

2145

1327
1577
1791

1346
1579
1794
2209

1368
1598
1801

3810
1106
1401
1628
1854

2257
2423
2550
2677
2892
3350
3523
3836
1110
1406
1633
1863

2258
2432
2573
2704
2939
3371
$IF

30A(1052)

2262
2427
2552
2681
2908
3362
3531
3841
1114

1425
1650
1882
2260

2447
2578
2711
2941
3380
3585
3878

2276
2450
2562
2700
2934
3374
3571
3869
1137
1450
1665
1900

2283
2453
2580
2720
2961
3407
3628
3880

2298
2452
2568
2707
2952
3385
3579
3874
1153
1469
1669
1928

2305
2475
2602
2730
2963
3432
3633
3885

3580
3872
1105
1439
1890
2465

1931
2468

2706
3343

2476
2713
3409

2035
2484
2722
3434

1105
1419
1870

1147
1439
1890

1161
1464
1931

1206
1523
1945

2699
3307
3833

2422
2661
2907
3409
3833
1502
2934
1106
1420

1753
2171
2466
2670

1147

1464

1206
1523
1945

1211
1474
1697
1942

2324
2466
2599
2723
2966
3435
3627
3882
1224
1508
1713
1952

2019
2327
2469
2601
2749
3023
3443
3667
3884
1240
1532
1727

2318
2483
2606
2754
3032
3439
3676
3888
1234
1559
2096
2522
2791
3442

2787
3226
3447
3681
3891

2024
2340
2496
2615
2797
3239
3460
3784
3892

2170
2549
2811
3468

2242
2567
2814
3473

1218
1554

1234
1559

1251
1599

2337
2491
2613

1251
1597

1270
1644

2036
2330
2474
2605
2782
3231
3457
3675
3887
1257
1550
1731
2041

2347
2497
2642
2819
3271
3462
3793

4167
1293
1661

2312
2598
2821
3490
1270

1644

2465
2680
2965
3458

2035
2468
2699
3022
3468

2098
2476
2706
3230
3473

2170
2484
2713
3253
3485

2244
2522
2722
3273
3490

1628

1691

1753

1830

1923

1162
1465

1207
1502
1791

1219
1524
1830

1235
1545
1854

1252
1555
1871

2451
2665
2951
3434

2462
2669
2956
3442

1545
1148
1440
1771

2209
2469
2681

1218
1554

2313
2463
2572
2714
2957
3410
3619
3877

1788
2245
2477
2700

2276
2485
2707

2298
2523
2714

2313
2525
2723

2324
2552
2749

2097
2339
2477
2609
2792
3254
3459
3788

2099
2349
2482
2637
2812
3274
3469
3792

217
2354
2490
2655
2818

1276
1552
1759

1299
1567
1777

1332

1351
1580

2103
2362
2501
2659
2829
3294
3481
3807

2176
2366
2508
2678
2848
3314
3496
3838

2214
2379
2530
2685
2867
3341
3504
3849

1326
1723
2326
2646

1367
1787

1383
1790

2100
2350
2498
2652
2827
3290
3479
3797

4168
1309
1706

2323
2608
2841
3498

1293
1663
2312

1802

1373
1601
1806
2246
2382
2553
2687
2883
3351
3532
3851
1400

1853

2907
3522

2375
2665
3022
3666

2422
2669
3273
3787

1309
1706

1345
1770

1367
1787

1383
1790

2351
2608
2841
3361
3666

2353

3570

2329
2600
2821
3343
3618

2209

2276

2298

2637

2749

1310
1628
1932

1327
1645
1946

1664

1346

1368
1691

1384
1707

2323
2551
2811
3307
3522

2019

2155

1271
1560
1891

1294
1600
1923

2330
2601
2792

1574
1799

2662
2822
3308
3486
3813

2243
2376
2523
2666
2842
3317
3491
3825

2351
2661
2956
3618

2524
2791
3302
3498

2327
2568
2782

3303
3484
3811

2365
2500

2352
2609
2812

2354
2637
2815

2019
2378
2647
2822

2036
2423
2655
2842

2646
2871
3373

3787

2099
2452
2662
2872

CVDLAAO DLV11=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.P11

SLET

SLPCNT
$OPADD

$OPAND

#ovcol

$0P(D2
$OPCOD

$OPCOM

[SOPDEF

2892
3374
3788

1
1133
1229
1380
1608
1904

2051
2115
2231
2442
2626
2869
2947
3070
3131
3241
3292
3359
3426
3544
3598
3660
3790
3928

1
1L

2825
3245
3518
3694

2908
3385
3802

1079
1135
1231

1394

1612
1911

2055
2117
2232
2458
2644
2879
2949
3078
3134
3243
3296
3366
3429
3546

3601

3662
3795
3929
2256
1088
2846
3251
3526
3871
1088
1414

2458
2825
3083
3280
3450
3577
3670
2947
1088
1414

30A(1052)

N 11
10:10
PAGE 147
CROSS REFERENCE TABLE =-- MACRO NAMES

30-JUN-78

SEQ 0143

2934
3410
3834

2952
3435

2957
3443

2966
3459

3023
3469

3231
3474

3254
3486

3308
3523

3344
3619

3362
3667

2075
2120
2233
2460
2650
2881
2959
3081
3142
3245
3300
3378
3437
3548
3605
3664
3805
3930

1085
1142
1248
1411
1672
1974

2076
2127
2287
2528
2657
2885
2979
3083
3145
3247
3310
3382
3445

1087
1156
1262
1414
1677
1977

1090
1158
1265
1436
1704
1980

1093
1181
1290
1472
1734
1981

1096
1182
1304
1477
1739
1982

1103
1183
1306
1479
1767
1983

1129
1187
1337
1527
1839
1999

1131
1189
1364
1565
1868
2045
21
2228

1132
1215
1378
1572
1886
2048
2112
2230

1082
1139
1245
1397
1638
1970

3868
1091
2889
3277

3546
3879

109
1557

2460
2846
3086
3282

3453
3583
3673
3296

1091
1557

3550
3612
3670
3823
4052
3876
1094
2913
3282
3550

2109
2226
2420
2576
2825
2916
3053
3115
3224
3280
3346
3415
3520
3583
3644
3701
3923

1159

1185
3050
3310
3598

1557
3067
3359
3614

2229
3115
3450
3646

2560
3147
3464
3670

2565
3163
3477
3690

1159
2006

1185

1231

1306

1340

1380

2949
3292
3574

2959
3300
3594

1156
1999

1094

1103

1094
1704

3466
3566
3625
3690
3904

2082
2196
2412
2560
2758
2903
3045
3102
3163
3266
3333
3403
3477
3568
3631
3692
3905

1103
2944
3287
3566

4052

2533
2889
3099
3285
3464
3594
3679
3415

2081
2193
2408
2558
2736
2901
2997
3099
3161
3264
3327
3400

2078
2186
2403
2546
2683
2889
2992
3094
3150
3251
3323
3396
3453
3557
3616
3679
3902

3926
1704

2080
2190
2406
2556
2733
2899
2994
3097
3158
3261
3325
3398
3464
3564
3622
3688
3903

2077
2141
2309
2533
2673
2887
2989
3086
3147
3249
3321
3394
3450
3553
3614
3673
3866

1977
2558
2911
3102
3287
3466

3598
3690
3421

1103
1977

1156

2560
2913
3115
3292
3477
3601
3694
3466
1156
1999

2565
2916
3118
3296
3518
3605
3697

1159
2006

2048
2570
2922
313
3300
3526
3614
3701

2079
2576
2944
3134
3310
3529
3622
3823

2190
2657
2959
3163
3415

1185

1231

1306

3550
3642
3926

2458
2825
3083
3280
3450
3577
3670

2460
2846
3086
3282
3453
3583
3673

2533
2889
3099
3285
3464
3594
3679

2558
2911
3102
3287
3466
3598
3690

2560
2913
3115
3292
3477
3601
3694

2565
2916
3118
3296
3518
3605
3697

2048
2570
2922
3131
3300
3526
3614
3701

2079
2576
2944
3134
3310
3529
3622

3823

2190
2657
2959
3163
3415
3550
3642
3926

1079

1082
1129

1085
1130

1087
1N

1088
1132

1090
1133

109
1135

1093
1139

1103
1148

1126

2430
2620
2846
2922
3065
3126
3235
3285
3353
3421
3529
3594
3649
3776
3925

2259
2683
3053
3557
3649

2439
2623
2865
2944
3067
3129
3237
3287
3355
3424
3535
3596
3653
3778
3927

2439
2736
3067
3251
3437
3566
3653

1380

2439
2736
3067
3251
3437
3566
3653
1109
1159

2036
2078
2115
2148

2200
2231
2271

2312
2375

2430
2474
2549

2599
2634
2670
2736
2771
2818
2887
2926
2959
3065
3126
3230
3269
3307

$OPEQU
OPNAN
OPNEG

3348
3396
3435
34,71
3522
3570
3618
3666
3787
3821
3874
3923

1#
#
1

2006
2045
2079
2117
2149
2201
2232
2272
2313
2376
2439
2476
2550
2600
2635
2673
2739
2774
2821
2889
2927
2965
3067
3129
3231
3273
3308
3350
3398
3437
3473
3523
3571
3619
3667
3788
3823
3876
3924

2048
2080
2120
2150
2202
2233
2273
2323
2377
2442
2477
2551
2601
2637
2677
2740
2775
2822
2891
2928
2966
3070
313
3235
3274
3310
3353
3400
3442
3474
3526
3574
3622
3670
3790
3825
3877
3925

2012
2058
2083
2133
2163
2205
2244
2287
2327
2406
2451
2485
2558
2609
2647

2081
2127
2151
2203
2242
2274
2324
2378
2449
2482
2552
2605
2644

2680
2741
2776
2825

2683

2892
2929

2979
3078
3134
3237
3277
3316
3355
3403
3443
3477
3529
3577
3625
3673
3792
3833
3879
3926

3531
3579
3627

3881
3927

2743
2778
2842
2901
2931
2992
3083
3145
3243
3282
3321
3361
3409
3450
3484
3535
3583
3631
3679
3801
3836
3882
3928

2013
2059

2061

2096

2134
2164
2206
2245
2290
2329
2408
2452
2490
2560
2617
2650
2699
2744
2779
2844
2903
2934
2994
3086
3147
3245
3285
3323
3362
3410
3453
3485
3544
3592
3640
3688
3802
3840
3884
3929

2098

3366
3412

3594
3642

3930

2136
2166
2223
2257
2292
2339
2414
2460
2522
2565
2623
2655
2706
2749
2782
2865
2908
2947
3022
3097
3158
3249
3289
3327
3373
3415
3457
3490
3548
3596
3644
3692
3810
3850
3893

4052

OO0
=y

1206
1270
1345
1419

] SO

—- SN=

1496
1543
1599

— N

1661
1706
1753

b
b
b
b
e
b
wd

1187
1252
1327
1401
1493
1540
1579
1638
1688
1748
1820
1854
1919
1989
2015

1186
1251
1326

— -

—
S
WS S
T

1184
1245
1320
1394
1479
1537
1572
1623
1685
1745
1801
1845
1916
1983

SEQ 0144
oo~ OO\
S BN —

1560
1620
1682
1734
1790
1842
1913
1980
2009

1182
1234
1309
1383
1472
1527
1565
1621
1683
1739
1791
1843
1914
1981
2010
2051

1181
1231
1306
1380
1465
1524

1162
1229
1304
1378
1464
1523
1559
1619
1677
1726
1788
1839
1911
1977

10:10
PAGE 148
CROSS REFERENCE TABLE == MACRO NAMES
O O OO NOO VNI NN —
oo — S =
conrno ~N W 0o O n S0
SN O - O [« ¥ 8 OO0 ~N~ woow

1161
1219
1294
1368
1440
1518
1557
1618
1672
1725
1787
1830
1904
1974
1999

B 12

30-JUN-78

—b D

MACY11 30A(1052)

CVDLAAO DLV11- J TEST
11-MAY-78 00:00
CVDLAA.PT

1823
1871
1932

1868
1923
1990

2019
2062
2099
2137
2170
2225
2259
2293
2349
2418
2462
2523
2567
2626
2657
2707
2758
2791
2869
2911
2949
3023
3099
3161
3251
3292
3333
3374
3418
3458
3491
3550
3598
3646
3694
3811
3852
3902
4169

1992

2713
2760
2792

3163
3253
3296

3498
3553

3866
3903

2029
2064
2109
2141
2186
2227
2262
2295
2352
2422
2465
2525
2570
2630
2662
2714
2761
2811
2872
2916
2952
3048
3110
3166
3254
3300
3339
3382
3424
3464
3499
3557
3605
3653
3701
3813
3868
3904

1207
1271
1346
1420
1497
1545
1600
1662
1707
1767
1824
1886
1945
1993

2030
2075
2110
2145
2190
2228
2268
2296
2353
2423
2466
2528
2572
2631
2665
2722
2762
2812
2879
2919
2954
3050
3113
3219

3261
3302

3343
3384
3426
3466
3516
3564
3612
3660
3774
3818
3869
3905

1215
1290
1364
1436
1498
1554
1608
1663
1723
1770
1825
1890
1946
1994
2031
2076

2111
2146
2193
2229
2269
2298
2354
2425
2468
2533
2576

2632
2666

2723
2763
2814
2881
2922
2956
3053
3115
3224
3264
3303
3344
3385
3429
3468
3518
3566
3614
3662
3776
3819
3871
3906

1218
1293
1367
1439

1502
1555
1612
1664
1724
177
1826
1891
1970
1995

2035
2077
2112
2147

2196
2230
2270
2309
2365
2427
2469
2546
2598
2633
2669
2733
2768
2815
2885
2925
2957
3062
3118
3228
3266
3305
3346
3394
3434
3469
3520
3568
3616
3664
3778
3820
3873
3922

CVDLAAO DLV11-J TEST

CVDLAA.PT
$OPNOR
$OPNOT
$OPOR

MACY11 30A(1052)

11-MAY-78 00:00

1L
1%

1248

3070

3086

1323

3102

¢ 12
PAGE 149

CROSS REFERENCE TABLE == MACRO NAMES
1999

3118

3134

2120

2190

2458

2460

2533

2558

2570

2758

3053

1380

1414

1704

2006

2141

2439

2442

2576

2623

2650

1129
1215

1130
1229
1487
1839
2051
2117
2309
2626
2919
3113
3249
3355
3544
3776
3924

1131
1245

1132
1262

1133
1290

1135
1304

1142
1337

2055
2127

2403
2644
2979
3126
3261
3366
3548
3778
3927

2075
2186
2406
2733
2989
3129
3264
3378
3564
3790
3928

2076
2193

2408
2768
2992
3142
3266
3394
3568
3795
3929

2077
2196

2412
2771
2994
3145
3269
3396
3592
3805
3930

1139
1320
1608
1911
2080
2223

2414
2844
2997
3158
3321
3398
3596
3866

1612
1970
2081
2225
2418
2865
3045
3161
3323
3400
3612
3868

1231
2078

1248
2120

1265
2141

1306
2190

1323
2228

1340
2439

1380
2442

3150

3166

3557

123

2673

2683

2736

2911

2916

$OPRO

1*
1181

1079
1182

1082
1183

1085
1186

1096
1187

1974
2082
2226
2420
2869
3048
3219
3325
3403
3616
3876

1980
2083
2227
2425
2879
3062
3224
3327
3405
3640
3902

1981
2108
2230
2430
2881
3065
3228
3333
3412
3644
3903

1982
2109
2231
2528
2885
3078
3235
3336
3418
3660
3904

1983
2110
2232
2546
2887
3081
3237
3339
3424
3664
3905

1M 2
118 8
147 2
176 7
4
1

t
A2233
2556
2899
3094
3241
3346
3429
3688
3906

1986
2112
2256
2617
2901
3097
3243
3348
3516
3692
3922

1479
1817
2045
2115
2287
2620
2903
3110
3247
3353
3520
3774
3923

1103
1977

1156
1999

1158
2006

1184
2048

$OPR1
$OPR2

1w
1#
1397

2458
2825
3083
3240
3450
3577
3670

2259
1087
1414

2460
2846
3086
3282
3453
3583
2673

1394
1677

3871
1090
1557

2533
2889
3099
3285
3464
3594
3679

3879
1093
1704

2558
2911
3102
3287
3466
3598
3690

2560
2913
3115
3292
3477
3601
3694

3529

1518
1849

3577

1527
1868

2657
2959
3163
3415
3550
3642

3625

1565
1886

2570
2922
3131
3300
3526
3614
3701

2576
2944
3134
3310
3529
3622
3823

2623
2947
3147
3359
3535
3625
3925

2650
2949
3150
3382
3546
3631
4052

2673
3050
3166
3421
3553
3646

3601

3631

3649

3679

3697

3823

3673

1572
1904

2683
3053
3245
3426
3557
3649

2736
3067
3251
3437
3566
3653

2758
3070
3277
3445
3574
3662

1723
1619
2291

2096
1683
2630

2242
1745
2740

2375
1821
2761

2549
1843
2775

2598
1914
2926

1990
3819

2010

2029

2059

2133

2146

$SUBON

1
1389
1633
1900

1114
1425
1669
1942

1153
1450
1697
1952

1161
1469
1713
2024

1211
1508
1731
2041

1224
1532
1759
2103

1240
1550
1777
2160

1257
1552
1795
2176

1276
1567
1799
2214

1299
1570
1802
2251

1315
1574
1806
2260

1332
1579
1835
2263

1351
1580
1863
2283

1373
1605
1882
2305

1206
1523
1945
2476

1218
1554
2035
2484

1293
1663
2312
2600

1309
1706
2323
2608

1345
1770
2329
2654

1367
1787
2353
2661

1383
1790
2377
2665

1400
1853
2422
2669

STHEN

2680
3302

2699
3307

1
1419
1870
2462

1105
1439
1890
2465

2340
2497
2659
2829
3312
3496
3838

1147
1464
1931
2468

2706
3343

2347
2498
2675
2838
3314
3504
3849

2713
3409

2350
2501
2678
2848
3316
3532
3872

2722
3434

3466
3583

1477
1811

3437

3701

1661
1538
2269

2337
2496
2652
2827
3294
3483
3826

3421
3553

2565
2916
3118
3296
3518
3605
3697

1126
1189

3285

3653

1w
2947
1w
2922
1L
1L
1
1597
#1493
216?‘
2201

2318
2491
2642
2819
3290
3481
3825

3415
3535

1436
1739

3280

3605

SOPSHF
$0PSUB
$0PSWB
$OPXOR
$OR
$PUT
I

1110
1406
1650
1928

3296
3382

1411
1734

1340

SEQ 0145

2048

265{‘

1378
1672

1306

10:10

—

1364
1638

1265

1397

'
30-JUN-78

2362
2506
2685
2871
3351
3537
3875
1234
1559
2098
2524
2791
3442

2363
2508
2687
2891
3357
3580
3880
1251
1599
2170
2551

2811
3468

2365
2530
2689
2939
3361
3585
3883
1270
1644
2244
2567
2814
3473

2366
2563
2704
2941
3373
3628
3884

2821
3490

2382
2573
271
2961
3384
3633
3885

2428
2578
2720
2963
3439
3676
3887

2841
3498

297
3522

1326
1725
2326
2646

2432
2580
2730
2965
3447
3681
3888

2951
3570

2449
2606
2754
3032
3456
3793
3891

2475
2613
2787
3230
3462
3797
4167

2956
3618

3022
3666

2483
2615
2797
3253
3479
3807

3273
3787

CVDLAAO DLV1I1=J TEST
MACY11
CVDLAA.PTT
11-MAY-78 00:00

$$GETS

$SGETT

1L
*
»

2449

7214
1110
1406
1633
1863

2258
2432
2573
2704
2939
3371
3580
3863

1109
1389
1579
1802

2251
2365
2496
2606
2730
2963
3373
3580
3838
1109
2500

$SLPCN
SSNEWT

2259

$$POP

1110
1406
1650
1928

$$PUSH

SEQ 0146

3833

7214

2587

2337
2496
2652
2827
3294
3483
3826
1105
1270
1402

3456

3483

1153
1469
1669
1928

2305
2475
2602
2730
2963
3432
3633
3878
1153
1450
1633
1863

2283
2427
2500
2642
2797
3230
3447
3628
3875
1576
2605
1279
3202

1161
1469

1713
2024

2350
2501
2678
2848
3316
3532
3872
1137
1295
1439

3801

D 12

30-JUN-78 10:10 PAGE 150
CROSS REFERENCE TABLE == MACRO NAMES

o
O
N NS
-

STILA
$TILO
SUNTLZ2
SUNTL3
SWHILE
$CMRE
SCMTM
SDEFA
SENDS
$SERRO
SESCA
$GEN

30A(1052)

1942

2318
2483
2606
2754
3032
3439
3676
3880
1161
1469
1650
1882

2305
2428
2501
2652
2818
3253
3456
3633
3880

1224
1508
1713
1952

2337
2491
2613
2787
3226
3447
3681
3885
121
1508
1669
1900

2318
2432
2506
2659
2819
3289
3462
3675
3883

1240
1532
1727

2024
2340
2496
2615
2797
3239
3460
3772
3888
1224
1531
1697
1928

1257
1550
1731

2041
2347
2497
2642
2819
327
3462
3784
3891
1240
1532
1713
1942

1276
1552
1759

2100
2350
2498
2652
2827
3290
3479
3793
3892
1257
1550
1731
1952

1299
1567
1777

2103
2362
2501
2659
2829
3294
3481
3797

4153
1276
1552
1759

1315
1570
1795
2160

2363
2506
2675
2838
3312
3487
3807

4167
1299
1567
1777
2041

1332
1574
1799

2176
2366
2508
2678
2848
3514
3496
3826

4168
1315
1569
1794

1351
1580
1802

1373

1601
1806

2214
2379
2530
2685
2867
3341
3504
3838

2246
2382
2553
2687
2883
3351
3532
3849

1332
1570
1795
2160

1351
1574
1799
2176
2362
2490
2580
271
2941
3357

2339
2474
2530
2677
2829
3294
3481
3681
3885
2349
3350

2340
2475
2562
2678
2838
3312
3483
3792
3887
2355
3531

2024
2347
2478
2563
2685
2848
3314
3496
3793
3888
2427
3579

2349
2482
2572
2687
2871
3316
3504
3797
3891
2474
3627

2103
2350
2483
2573
2689
2891
3350
3531
3807
4167
2478
3675

2482
3792

2486
3810

1794
2677

2818

2337
2449
2508
2675
2827
3290
3479
3676
3884
2339
3289

1354

1428

1454

1587

1653

1715

1779

1957

2086

2235

1211
1508
1731

1224
1532
1759

1240
1550
1777

1257
1552
1795

1276
1567
1799
2214
2382
2573
2711
2961
3384
3633
3885
1208
1345
1475

1299

1315
1574
1806

1332
1579
1835

1351
1580
1863
2283

1373
1605
1882

2041
2362
2506
2685
2871
3351
3537
3875
1138
1309
1441

1801

2103
2363
2508
2687
2891
3357
3580
3880
1147
1311
1464

2160
2365
2530
2689
2939
3361
3585
3883
1149
1326
1466

2176
2366
2563
2704
2941
3373
3628
3884
1206
1328
1474

1802

2251

1502

2260
2432
2580
2730
2965
3447
3681
3888
1220
1367
1503

2263
2449
2606
2754
3032
3456
3793
3891
1234
1369
1523

2355
2486
2578
2704
2939
3351
3532
3810

2475
2613
2787
3230
3462
3797

4167
1236
1383
1525

3537
3825

2305
2483
2615
2797
3253
3479
3807
1251
1385
1533

CVDLAAO DLV1I1=J TEST
MACY11
11-MAY-78 00:00
CVDLAA.P1T
1545
1666
1796
1947

2256
2331
2468
2574
2667
2750
2868
3226
3343

$$SELE
$SSET
$SSETM
$SSETS

3442
3581
3825

47704
1039#
1

1253

1400
1545
1666
1796
1947

2256
2331
2468
2574
2667

$SSETT
$$SKIP
.EQUAT
.HEADE
KT11
.SETUP
. SWRHI
. SWRLO
.SACT1
.SAPTB
.SAPTH
. SAPTY
.SASTA
.SCATC
.SCMTA

. $DB2D
.$DB2C

1546
1691
1803

10:10

E 12
PAGE 151

1559
1708
1853
2037

1561
1723
1855
2096

1571
1728
1870
2101

1597
1754
1890
2156

3835

2277
2380
2486
2610
2682
2811
2907
3272
3380
3475
3668
3870

2298
2422
2492
2637
2699
2813
2909
3273
3381
3490
3677
3871

4779

4780

4782

4784

4786

4787

4788

1105
1270
1402
1546
1691
1803

1107
1272
1419
1554
1692
1830
2020

1137
1295
1439
1559
1708
1853
2037
2276
2375
2484
2608
2680
2793
2906
3271
3372
3473
3666
3868

1138
1309
1441
1561
1723
1855
2096
2277
2380
2486
2610
2682
2811
2907
3272
3380
3475
3668
3870

1147
1311
1464
1571
1728
1870
2101
2298
2422
2492
2637
2699
2813
2909
3273
3381
3490
3677
3871

1149
1326
1466
1579
1753
1872

1206
1328
1474
1597
1754
1890

3444
3618
3833

2019
2258
2341
2470
2598
2669
2782
2883
3227
3345
3444
3618
3833
2355

2020
2259
2351
2476
2603
2671
2783
2884
3239
3352
3468
3620

2259
2351
2476
2603
2671
2783
2884
3239
3352
3468
3620
3835
2478
1209

2303
611
589

588#
588#

1002

588#
588#
588#
588#

852
929#
863
4428

5884
5884

825
885

600

SEQ 0147

CROSS REFERENCE TABLE -- MACRO NAMES

2276
2375
2484
2608
2680
2793
2906
3271
3372
3473
3666
3868

2019
2258
2341
2470
2598
2669
2782
2883
3227
3345

2281
5884
588#

104
#
#
4
1
1L
#
1L
#

1556
1706

30-JUN-78

1579
1753
1872
2155
2299
2424
2502
2638
2701
2814
2934
3275
3407
3492
3773
3875

7214

6114

1554
1692
1830

30A(1052)

1582

2345

1603

2360

1667

2510

2155
2299
2424
2502

2638
2701
2814
2934
3275
3407
3492
3773
3875
1729
2802

2312
2429
2522
2646
2706
2816
2935
3291
3408
3498
3784
3876

2156
2312
2429
2522
2646
2706
2816
2935
3291
3408

1602
1770
1892

2170
2314
2447
2526
2648
2708
2820
2951
3302

1629
1787
1924

3785
3878

2209
2325
2462
2554
2656
2715
2823
2956
3307
3432
3524
3789
3883

1208
1345
1475
1602
1770
1892

1220
1367
1503
1629
1787
1924

3409
3500

1644
1789
1931
221

2328
2465
2567
2663
2724
2843

1234
1369
1523

1236
1383
1525
1646
1790
1933
2242
2328

3754
4154

1644

1789
1931

3784
3876

2209
2325
2462
2554
2656
2715
2823
2956
3307
3432
3524
3789
3883

2210
2326
2464
2564
2661
2722
2841
2958
3309
3433
3533
3794
4154

1797

1804

1880

1898

3035

1790
1933
2242

2326
2464
2564
2661
27¢2
2841
2958
3309
3433
3533

2170
2314
2447
2526
2648
2708
2820
2951
3302
3409
3500
3785
3878

3498

1646

3022
3341
3434
3570
3801

1661
1792
1945

2247
2329
2467
2569
2665
2749
2867
3024
3342
3436
3572
3803

1251
1385
1533
1661
1792
1945

2465
2567
2663
2724
2843
3022
3341
3434
3570
3801

2247
2329
2467
2569
2665
2749
2867
3024
3342
3436
3572
3803

1940

1955

CVDLAAO DLV11=J TEST

CVDLAA.P1

.SDIV

. SEOP
.SERRO
.SERRT
.SMULT
. SPOWE
. SRAND
. SRDDE
.SRDOC
.SREAD

.SR2AZ
.$SAVE

.$5B82D

11-MAY-78 00:00

588%
5884

4171
4485

5884

4285

588¢

4539

5888

4747

588#
588%
588#

4603
4210
4670

017354

000

1
1L
»
”
1
1#
1L
#
»

1L
1#

1
1*
1#
1L
1»
1
104
14

.$40CA
L1170

*
1%

ABS.

30A(1052)

30-JUN-78

ERRORS DETECTED:

10:10

CROSS REFERENCE

.$5820
.$SCOP
.$SIZE
. $SUPR
.STRAP
.$TYPB
.$TYPD
.STYPE
.$TYPO

MACY11

CVDLAA,CVDLAA=SPMAC.SML,SYSMAC.SML,CVDLAA.P11
RUN=TIME: 105 112 7 SECONDS
RUN=TIME RATIO: 996/226=4.4
CORE USED:
42K
(83 PAGES)

F 12
PAGE 152

TABLE == MACRO NAMES

SEQ 0148