Digital PDFs

AC-E188A-MC

May 1978

149 pages

Original

7.8MB

view download

OCR Version

6.6MB

view download

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

OCR Text

DLV11-J TEST

CVDLAAO
e

AH-E189A-MC

~ FICHE 1 OF1

loji|t{al!

MADEIN USA

CVDLAAO DLV11=J TEST _ MACY11 30A(1052)
CVDLAA.PY
11-MAY-78 00:00

30-JUN-78

—~

PAGE
3

SEQ 0001

.REM X

IDENTIFICATION
CODE:

AC-E188A-M(

PRODUCT

NAME:

CVDLAAO DLV11-J

PRODUCTY

DATE:

MAY

MAINTAINER:

TEST

1978

DIAGNOSTIC

ENGINEERING

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

EQUIPMENT CORPORATION.
RESPONSIBILITY

FOR ANY

DIGITAL EQUIPMENT

ERRORS

THAT

NO RESPONSIBILITY IS ASSUMED
FOR
SOF TWARE ON EQUIPMENT THAT [S NOT
AFFILIATED

CORPORATION ASSUMES NO

APPEAR

THE
USE
SUPPLIED

[N THIS

OR
BY

DOCUMENT.

RELIABILITY
DIGITAL
OR

Of
ITS

COMPANIES.

(C)

1978 BY DIGITAL EQUIPMENT CORPORATION

FOLLOWING ARE

DIGITAL
DEC

MAY

TRADEMARKS

PDP
DECUS

DIGITAL

UNIBUS
DECTAPE

10:10

PRODUCY

_---——9-:‘

EQUIPMENT

CORPORATION:

MASSBUS

LVl
vt

CVDLAAO DLVI1-J TEST

MACY11

11-MAY-78 00:00

30A(1052)

TABLE

30-JUN-78

10:10

PAGE 4

CONTENTS

»
e

aad
e

—d

PROGRAM PURPOSE

(ABSTRACT).

SYSTEM REQUIREMENTS.

RELATED DOCUMENTS AND STANDARDS.
DIAGNOSTIC HIERARCHY PREREQUISTES.
ASSUMPTIONS.

OPERATING
OV
S NN —

o
e
e
e
e
"

LSNP
—

GENERAL PROGRAM INFORMATION.

[aSNAS ISR I, N, ]

CVOLAA.P11

INSTRUCTIONS.

LOADING AND STARTING PROCEDURES.
SPECIAL ENVIRONMENTS.
OPERATIONAL SWITCH SETTINGS

PROGRAM OPTIONS.

EXECUTION TIMES.

POWER

FAIL.

ERROR

INFORMATION.

ERROR REPORTING PROCEDURE.
ERROR HALTS.

PERFOMANCE
PERFORMANCE

DEVICE

AND PROGRESS
REPORTS,

INFORMATION

SUMMARY OF

REPORTS.

TESTS.

TABLES.

SEQ 0002

Cvi
cvt

CVDLAAQ DLVI1-J TEST
MACY11
CVOLAA.P1Y
11-MAY-78 00:00

30A(1052)

30-JUN-78

GENERAL PROGRAM

INFORMATION.

PROGRAM PURPOSE

(ABSTRACT).

THIS

A LOGIC

TWO DISTINCT

DIAGNOSTIC

10:10

TO VERIFY

PAGE 5

THE

DLV11~J

SERIAL

SELECTED CHANNELS PER DLV11-J MODULE

TESTING

ALL

IS DONE

INTERFACE.

TEST

SEQ 0003

OPERATION OF

THE

PHASES:

ARE

TESTED

INDIVIDUALLY

THE DLV11-J MODULE

IS TESTED AS A WHOLE FOR CHANNEL INTERACTION

ERRORS TO THE LOGIC

LEVEL

PROBLEMS.

THIS DIAGNOSTIC

DESIGNED

(NOT

TO THE

TEST

AND

DETECT

CHIP LEVEL).

THIS DIAGNOSTIC OPERATES UP TO 2 DLV11-J SERIAL LINE INTERFACES
CONF IGURED 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
BEFORE RUNNING THE PROGRAM,
BY THIS METHOD, THE PROGRAM WILL BYPASS AUTO-SIZING AND TEST ONLY
THOSE

MODULES/CHANNELS

IN EITHER CASE,

TO BE

FINDS

SDEVM,

THE PROGRAM WILL PRINT OUT ALL MODULES & CHANNELS

TESTED BEFORE

PROCEEDING.

THE OPERATOR MUST 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

177560 -CONSOLE

VECTORS

ARE

FOLLOWS:

INTERFACE DEVICE ADDRESS

176500 -FIRST SERIAL CHANNEL ADDRESS Of UP
SERIAL LINE DEVICES.

TO 8

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 (Q-BUS) MODULE.
IT CAN RUN UNDER
APT MONITORS, AND
ON
PROCESSORS
WITH
NO
HARDWARE
SWITCH REGISTER.

WITH
4K
XXDP &

SEC.

2.4)

cve
cvD

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

30A(1052)

30-JUN-78

E
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, THE

TESTS WILL

BYPASSED ON

CHANNEL

FOLLOWING

TESTS 6 THRU 12
TESTS 14 THRU 17
TESTS 21 € 22

SOF TWARE

REQUIREMENTS:

THIS DIAGNOSTIC
FOLLOWING WAYS:

IS DESIGNED

RUN

ANY

THE

STAND ALONE

WITH APT MONITOR
WITH XXDP MONITOR
THIS

DIAGNOSTIC

DIAGNOSTIC
1.3

1.5

IS NOT

SUPERVISOR.

DESIGNED

RENAMED

TO RUN WITH

.BIC

EXTENSION)

THE

RELATED DOCUMENTS AND STANDARDS.
DIAGNOSTIC
APT
SYSMAC

1.4

(CHAINABLE

ENGINEERING

STANDARDS

AND

CONVENTIONS

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

MD-11-DZQAC

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

TO RUN
BEFORE
THIS,
BUT
ARE
ASSUMED
TO BE FULLY

ASSUMPTIONS.

THIS

DIAGNOSTIC

LOCATION

°*SUSVR'

ASSUMES

AND

THAT

'SDEVM'

THE

TO THE

OPERATOR

HAS

PROPER VALUES.

INITIALIZED

(SEE

SEC.

2.4)

Cve
CVD

CVDLAAQ DLV11-J TEST
MACY11
11-MAY-78 00:00
CVOLAA PN

30A(1052)

30-JUN-78

2.0

OPERATING

2.1

LOADING AND STARTING PROCEDURES.
USE

STANDARD PROCEDURE

ARE

PAGE 7

ABSOLUTE

BINARY

FOR PDP-11

STARTING LOCATIONS

FOR

LOCATION 200 FOR ALL NORMAL

LOCATION 400 FOR INTERRUPT VECTOR DEBUG...

TESTING STARTS & RESTARTS.

400 START SHOULD BE USED ONLY TO DEBUG
OUT BY THE DV11-J DURING INTERRUPTS.

STARTING AT 400 WILL CAUSE

NEEDED BY SYSMAC,
ROUTINE TO ENABLE

FORMATTED

THIS DIAGNOSTIC:

THE
PUT

SEQ 0005

INSTRUCTIONS.

MEDIA.
THERE

10:10

OFFLINE ONLY.

FAULTY VECTOR ADDRESSES

THE ENTIRE VECTOR AREA, EXCEPT

TO BE OVERWRITTEN & TO POINT
LOOPING ON THE PROBLEM.

TO A

THAT

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

BIT

SELECT

IN SWREG AND

(NOTE:

2.2

CAN

SPECIAL

SPECIFIC

THE

ALL

TESTS

ONE

ARE

THIS

DIAGNOSTIC

UDER

APT_XXDP

OPERATIONAL

TEST NUMBER

THE

EXECUTED WITHOUT

FOLLOWS

THE

MONITORS,
AND

TO BE

EXECUTED BY

(IN OCTAL)

SETTING

IN BITS <7:0>.

SELECTED

ITERATIONS.)

CAN BE

STANDARD

AS DESCRIBED

SYSMA(

PROCEDURE

FOR

ACCOMPLISHED

(LOC.
THE

176)

RUNNING

IN THEIR RESPECTIVE

PACKAGE.

SWITCH SETTINGS

THE SOFTWARE SWITCH REGISTER
OPERATIONAL SWITCH SETTINGS.
THIS

TEST

ENVIRONMENTS.

PROCEDURES MANUAL

2.3

USED FOR

FOLLOWING WAY:

ALL

(vD
cvD

CVDLAAO DLV11-J

MACY11

11-MAY-78 00:00
1

TYPE

30A(1052)

CONTROL

DATA

INTO

THE

AFTER THE

10:10

PAGE 8

G>;

LOC.

THIS
I

176

WILL

ALLOW

THE

TTY

ENTER

SELECTED POINTS WITHIN THE

MACHINE WILL THEN TYPE:' SWR=XXXXXX
NEW=' (XXXXXX
IS
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.)

ONE

'NEW='
THE

HAS BEEN TYPED THEN THE OPERATOR

FOLLOWING AT

THE

TTY:

CAN

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

IF A CONTROL U < U> IS DEPRESSED THEN THE
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 FEED SEQUENCE
THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT).

THE

DIAGNOSTIC

—

———b

SOFTWARE

BIT

30-JUN-78

SEQ 0006

PROGRAM.

~NOOVO =W

CVDOLAA.P11

TEST

SET
SET
SET
SET
SET
SET
SET
SET
0

=
=
=
=
=
=
=
=
=

WILL

CONTINUE

TYPING

SWITCH REGISTER OPTIONS

100000
40000
20000
10000
4000
2000
1000
400

=
=
=
=
=
=
=
=

PROGRAM WILL

<CR>.

(SWREG)

HALT ON ERROR
LOOP ON TEST
(7O BE USED ONLY WHILE TESTING
INHIBIT ERROR TYPEOUTS
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 FIRST WITH 1 ITERATION ONLY)

IN PROGRESS)

CvD
cvD

CVOLAAQ DLV1I1~y TEST
MACY11
11-MAY-78 00:00
CVDLAA.P1T
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:
LOCATION

$BASE:
SVECT:

'SDEVM'

NUMBERS ARE

$DEVM
15

THE

AND WILL BE

LSRRl

11
sl

(STORED AT

IT WILL

'S$SBASE')

ABLE

SPECIFIED BASE

IS USED AS A BIT MAP TO INDICATE

PRESENT

RCSR

AND

ADDRESS

176500 (DEFAULT)
300 (DEFAULT)
TESTED.

(BITS 15 THRU 8 NOT USED)

FIRST

WHICH

UNIT

!«-=-MODULE 2-----~- lemmee MODULE
7
6
S
4
3
2

iRttt

]

ii izt

[}

1-=----- .
1
0

BIT

2222222322222}

CHANNEL

L3RRSttt
il
tsisi izt
sl stz
22223222202
R]
|

A BIT MAP

"SDEVM'

CAN BE

ENTERED AT

'SDEVM'

PRIOR

IS LEFT AT ITS DEFAULT VALUE

TO STARTING

THE

PROGRAM.

(0),

THE PROGRAM WILL DO AUTO-SIZING

THE

BEGINNING OF

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

SIZING

FOR

PERFORMED

SDEVM IS TO BE
IT

TO BE

ONLY

ONCE

CHANGED,

EFFECTIVE.

THE PROGRAM MUST BE

OTHERWISE,

SDEVM WILL

THE

ACCORDINGLY.

PROGRAM,

RESTARTED AT 200

IGNORED.

OPTIONS

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

BIT POSITION

SUSWR
DEFAULY VALUE

DEFINITION

# OF DATA BITS TRANSMITTED
0 =78ITS, 1 =8 BITS

PARITY

2
3

ENABLED

EVEN ODD PARITY
BREAK GENERATION ENABLED

4
<11:9>

RUN DATA WRAP AROUND
CONSOLE DEVICE

<11:9
<11:9

[MPORTANT NOTE:

CONSOLE

TESTS

ON MODULE

= 8 BITS

= NO

1
1

=
=

0
1

= 00D
= YES
YES
YES

2 = CONSOLE ON MODULE 2
FOR DIAGNOSTIC PURPOSES, ALL CHANNELS MUST BE
CONFIGURED THE SAME, EITHER 7 OR 8 BITS.

CONSOLE

ON MODULE

CHAN.

CvD
cvd!

CVDLAAO DLV11-y TEST
MACY11
CVOLAA.PI
11-MAY-78 00:00

30A(1052)

30-JUN-78

10:10

PAGE

ron

SEQ 0008

cvdl
cvhlL

ADDRESSES & VECTORS.

DEVICE

SUMMARY OF

MODULE

CHANNEL

P
N A
TN

SVECT1+00
+10

SVECT1+4
+14

+40

+44

2
3

+20
+30

1
2
3

+20
+30

+50
+60

+24
+34

+50
+60

+54
+64

TKVEC=60

TPVEC=64

+70

+74

DEVICE

$TKS

CONSOLE

+70

$BASE+00
+10

(A P

O
1

CHANNEL

MODULE

VECTORS
<~ecceee
REC
XMIT

PSS

DEV ADDRESS
(RCSR)

ON MODULE
ON MODULE
ON MODULE

UNDER
UNDER
UNDER

TEST
TEST
TEST

EXECUTION

TIMES.

EXECUTION

TIMES

ARE :

THE

TIME

SHORTER PASS

2.6

POWER

AUTO

BAUD

TIMES.

MODULE

30
90

RATE

SEC
SEC
DEPENDENT;

HIGHER BAUD RATES

RESULT

FAIL.

START

FROM POWER

AT 9600 BAUD.
AT 300 BAUD.

FIRST PASSADDITIONAL PASSES
TEST

DLV11-J

FAIL

IS NOT

SHIPMENT

CONFIGURATION:

0,1,2
3 (CONSOLE)

PROCESSOR WITH ONE

IMPLEMENTED

IN THIS PROGRAM,

MIWMAMIWVAIAWM
N AT AWMMIUWMI AWM AN WA LN LA

CH.
CH.

FOR AN LSI-11

2.5

1220
1252
176

FOR CONSOLE DEVICE
FOR CONSOLE DEVICE
FOR CONSOLE DEVICE
SEE SEC. 2.4
SEE SEC. 2.4
SEE SEC. 2.3

176500
300
177560
60
64
1031
0
0

1250
1244
1144

DEFAULT

$BASE
SVECT?
$TKS
TKVEC
TPVEC
$USWR
$DEVM
SWREG

LOC

USER LOCATIONS & DEFAULTS.

SUMMARY OF

3.0

ERROR

30A(1052)

30-JUN-78

10:10

PAGE 11

SEQ 0009

INFORMATION.

3.1
SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4K OF MEMORY THE
ERROR
TYPEOUT IS VERY BRIEF.
THE FORMAT OfF THE ERROR TYPEOUT
IS AS FOLLOWS:
TEST#

.ERROR#

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

SET:

CAUSES THE PROGRAM
TO
HALT
IF THE PROGRAM IS CONTINUED,

FROM WHERE

13 SET:

DISABLES THE PRINTING OF

BIT

10 SET:

CAUSES THE BELL

BIT

9 SET:

CAUSES
OF

TEST

ERROR

THE

THE ERROR MESSAGE.

TO RING ON ERROR.

THE DIAGNOSTIC

TO LOOP FROM BEGINNING

TO ERROR.

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

3.2

CONTROL

[N
THE
ERROR ROUTINE.
IT WILL PROCEED

HALTED.

BIT

(SWREG)

G <

FUNCTION.

HALTS.

ONLY

HALT

THIS

IS
EXECUTED
ONLY
IF
WHEN AN ERROR OCCURS.

DIAGNGSTIC

BIT

15 OF

THE

ERROR

ROUTINE,

SWITCH REGISTER

AND

(SWREG)

SET

CvDL
cvDbL
L o RVoRVo RV RV RVo RVo RVe RVo RV o RV e RV RV RV RV RV o RV RV EVo RV o XV RV, RV o RVo RV o RV RV, RV RV, RV, Vo RV RV, RV RV RWLY

CVDLAAO DLVI1-J TEST
MACY11
CVOLAA.PIN
11-MAY-78 00:00

30-JUN-78

4.0

PERFORMANCE

AND PROGRESS REPORTS.

6.1

PERFORMANCE

REPORTS.

EACH CHANNEL

THE

DIAGNOSTIC

THE

(BIT

12 SET

10:10

IN THE

CHANNELS/DLV11-J)
FOLLOWING

ITEMS

PAGE 12

SWITCH REGISTER

COMPLETES

ARE

SEQ 0010

ONE

PASS

THE BASE ADDRESS OF

THE LINE UNDER TEST

"ERRORS:__'

THE TOTAL NUMBER OF
ON THIS PASS.

ERRORS ON THIS DEVICE

PASS

STATEMENT

"END PASS#
OF

TO BE

TYPED:

TESTED HAVE BEEN EXERCISED,

PRINTOUT ASSUMING:

2 DLV11-J MODULES
ALL

CHANNELS

SEPERATE

-—d wud

NO ERRORS

CVDLAAO DLVI1-Jy

TEST

SWR= 000000

NEW= 10000<CR>

WILL

ENABLED

CONSOLE DEVICE

(ENABLE

TEST:

MODULE
MODULE

1
2

CHANNEL 0
CHANNEL 0
** PHASE

1
1

2
2

3
3

SUMMARY

r¢

v+ PHASE 2 SUMMARY

w+¢

176500, VECTOR: 000300, ERRORS:
176510, VECTOR: 000310, ERRORS:
176520, VECTGR: 000320, ERRORS:
176530, VECTOR: 000330, ERRORS:

CSR:

176500, VECTOR: 000300, ERRORS:

(SR:
CSR:
CSR:
CSR:

176540,
176550,
176560,
176570,

CSR:

176540, VECTOR: 000340, ERRORS: 0

** PHASE

vt PHASE

2 SUMMARY

END PASS #

SUMMARY tv

VECTOR:
VECTOR:
VECTOR:
VECTOR:

000340,
000350,
000360,
000370,

«+¢

ERRORS:
ERRORS:
ERRORS:
ERRORS:

OOOO

CSR:
CSR:
CSR:
CSR:

OOOO

EXAMPLE

: THE ASSOCIATED VECTOR

AFTER ALL MODULES & CHANNELS
AN END

'SWREG')

TYPED:

"CSR:_____"

"VECTOR:__'

CvhL
cvbL
Vo RV RV o RV, RV RV, RV, RV RV RV RV RV RV RV e RV RV ]

30A(1052)

PERFORMANCE

REPORTS)

[ Y= R e VRV RVo RV o RV RV

CVDOLAAO DLVIT1=~J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00

5.0

30A(1052)

30-JUN-78

10:10

L1
PAGE 13

SEa 0011

R R

!
NN

!DONE'IE

R R R AR R R R R R AN R

!'FR

'ERR

!ERR

AR AR

a2 d

R R R A N R R R R R AN R E AR

RECEIVER

DATA BUFFER

'XMIT!XMIT!

'ROY

]

TRANSMITTER DATA BUFFER

)
Lt

TIIY

!
|

i ddiiiid22222]12222222222
2222222
2SS RS2 X22220

]

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

INDICATE UNUSED AND RESERVED

FRAMING ERROR
PARITY ERROR

= OVERRUN ERROR
=
=

mad

FRERR
PERR

D wnd W

ORERR

LISTING FOR

BIT
POSITIONS.
SEE THE
EXPLAMATION OF THE BITS.

el wed

BLANK BOXES

($BASE)

AT
AT
AT
AT

D wd

RCSR
RBUF
TCSR
TBUF

b wd

!BREA!

b med

D cd

!IE

TBUF;

il ilidadliliiiiiiiiiiiiititizeitzlz
Iz
e R
T SR

'ENB

RN R AN RPN AR AR E RN NARER

'RDR

TCSR!
L

LAAAAAA

'RCVR!RCVR!

RBUF !ERRO'OR

!ERR

D —d

b wd

—t

RCSR!

Rl Rdisiddiiisiiiliiiiiiiiiiliilziziazsiizii
stz eI SRR RSS2SR SR T

b cud wd nd

13
d

SRS

I COO0O0O0O0O0O0OO0OO0O0OO0O0OO0OO0O0O0OO0O0O0O

15
LA

b —

DEVICE REGISTERS.

CvOL
cvbL
O0OO0O0O0OO0OO0OO O0O00o

CVDLAAQ DLVI1-J TEST
MACY11
CVOLAA.P11
11-MAY-78 00:00

TESTS AND SPECIAL

Mmoo
PAGE 14

10:10

SEQ 0012

CvOL
CvhL

SUBROUTINES.

SUMMARY OF

30-JUN-78

6.0

30A(1052)

THIS TEST VERIFIES THAT ALL 4 REGISTERS OF
UNDER TEST RESPOM) TO THEIR ADDRESSES.
THE

TEST

FOLLOWING 3 TESTS TEST ALL

3 XMITIE - TCSR 6 SET,

& RCYRIE

- RCSR 6 SET,

TEST 5 XMITRDY - TCSR 7 -

'READ WRITE'

CLEAR,

IS SET BY

TEST 7 OUTPUTTING A CHAR FROM TBUF
RESULTS
IN
RCVRDONE
REASONABLE
AMOUNT
OF

CLEARS

TEST

RCVRDONE

CHANNEL

BITS

RESET

INIT

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

------

THE

(WITH

IS LOADED
SETS WITHIN A

WRAP AROUND

SETTING
TIME
AND

CONNECTED)

WITHIN
A
THAT
RESET

THE BIT.

IS CLEARED BY SETTING READER ENABLE

OOO0OOOO

CVDLAAO DLV1I1-y TEST
MACY11
11-MAY~78 00:00
CVOLAA.PI

DOES

SEPARATE

b
b

TEST

IS &

TRANSMITTER

cvbL
cvoL

TESTS

LOGICALLLY THIS

LOGIC

SEQ 0013

INTERRUPT LOGIC WORK

CLEAR

LOGIC

TEST

OF
THE RECEIVER SIDE OF
CHARACTER MODE.

THIS

THE

COVERS

INTERRUPT LOGIC

TEST

DATA WRAP AROUND:

FLAG MODE.

TEST

DATA WRAP AROUND:

INTERRUPT

TEST BREAK GENERATION LOGIC

TEST

ALL

MODE.

TRANSMIT

KNOWN

CHAR

TRANSMIT KNOWN CHAR WITH BREAK
AND COMPARE RECEIVED WITH 0

TEST FOR FRAMING ERROR ON BREAK

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

SEND BACK

TO LOOP

D wd

LINES

INTERRUPTING.

b wd

ACTIVE

D wd

TRANSFERS WITH ALL

PRIORITY

DATA

ASSIGNED

TEST

b ed

TEST 22

INTERRUPT

wed md

CHANNELS

)

THAT

TEST

b o

TEST 21

TESTS

cmd

- e

PHASE

TEST

SET

D wnh

TEST 20 NOT A

INTERRUPT

14 RECEIVER

D b =k

TEST

—

B) AT PRIORITY OF 0
C) AND ONLY ONCE
D) BUT NOT WITH INTERRUPT ENABLE

INTERRUPT

N1
PAGE 15

10:10

b ed

TEST 13 TRANSMITTER

30-JUN-78

30A(1052)

— o

CVOLAA.P

MACY11
11-MAY-78 00:00

000000000

CVDLAAQ DLV11-y TEST

ey
-

——
e
e

——g—

(VOLAAO DLV -J TEST
MACY11
CVOLAA.PY
11-MAY-78 00:00

588
589
590
5N
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

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

—

30-JUN-78

30A(1052)

LTITLE

10:10

8 2
PAGE 16

;tDIGITAL EQUIPMENT CORP.

;*MAYNARD, MASS. 01754
- %

: *PROGRAM BY GREGORY GLEZMAN & GARY PAPAZIAN
. %

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC 5YSMAC

.SBTTL

(MAINDEC-11-DZQAC-C3), JAN 19, 1977,

OPERATIONAL

SWITCH

SETTINGS

*
*

SWITCH

USE

*
[

10
9
8

*
*

"SBTTL
001100

000011
000012
000015
000200
177776
177774

177772

177570
177570

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000

INHIBIT ERROR TYPEOUTS

EMT,ERROR
IOT,SCOPE

THE STACK POINTER e+ 17100 %we
:+sBASIC DEFINITION OF
ssBASIC DEFINITION OF

;*MISCELLANEOUS DEFINITIONS

HT=

ITERATIONS

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

BASIC DEFINITIONS

S*INITIAL ADL: 2SS OF
STACK=
1100
.EQUIV
.EQUIV

HALT ON ERROR
LOOP ON TEST

INHIBIT

LF=
12
(R=
15
CRLF=
200
PS=
177776
.EQUIV
PS,PSW
STKLMT= 177774
PIRQ=
177772
DSWR=
177570
DDISP=
177570

;;CODE

FOR HORIZONTAL

Ré4=

RS=
R6=
R7=
SP=
PC=

;STACK LIMIT REGISTER

;;GENERAL
;. GENERAL
s ;GENERAL
: GENERAL

15
16
17
16
17

RO=

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

;;GENERAL REGISTER

;*PRIORITY LEVEL DEFINITIONS

TAB

: ;PROGRAM INTERRUPT REQUEST REGISTER
: sHARDWARE SWITCH REGISTER
: s HARDWARE DISPLAY REGISTER

10
14
12
13

ERROR CALL
SCOPE CALL

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

. *GENERAL PURPOSE REGISTER DEFINITIONS

RO=
R1=
R2=
R3=

cmaa

SEQ 0014

CVDLAAO DLVI1-yJ TEST

;*PACKAGE

;;PRIORITY LEVEL O

CVDLAAO DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PI
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

BASIC DEFINITIONS

000040
000100
000140
000200
000240
000300
000340

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

100000

sSWi5=
SWi4=
Swi3=
Swi2=
SWil=
SW10=
Sw09=
Sw08=
Sw07=
Sw06=
SW05=
SW04=
Sw03=
SW02=
SWo1=
Sw00=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV

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

40
100
140
200
240
300
340

C
2
PAGE 17
:sPRIORITY
;:PRIORITY
;;PRIORITY
;:PRIORITY
;;PRIORITY
;PRIORITY
;;PRIORITY

SEQ 0015
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*"'SWITCH REGISTER' SWITCH DEFINITIONS

.EQUIV
LEQUIV
.EQUIV

100000

10:1 0

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SW09,sSW9
SW08,Sw8
SWO07,SW7
SW06,SW6
SWO0S5,SW5
SWO04,SW4
SWO03,Sw3
SW02,SW?2
SWO01,SwW1
SW00,Sw0

:*DATA BIT DEFINITIONS (BITOO TO BIT1S5)

BIT15=
BIT14=

100000
40000

BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BIT06=
BITOS=
BIT04=

10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
B1109,BI179
BIT08,B178
BITO07.BI77

BIT13=

BIT03=
BIT02=
BITO01=
BIT00=

EQulv
EQuIv
EQulv

20000

1
2
3
4
S
6
7

cv
Cv

CVDLAAO DLVI1~J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00
700
701
702
703
704
705
706
707
708
709
710
711
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

.EQUIV
.EQUlV
EQUIV
EQUIV
.EQUIV
LEQUIV
.EQUIV

SEQ 0016

BIT06,BIT6
BIT05,B1TS
BIT04,BIT4
BIT03,8I73
BIT02.BIT2
BIT01,BIT1
8I1T700,BITO

;*BASIC ""CPU'" TRAP VECTOR ADDRESSES

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

TPVEC=
64
PIRQVEC=240

000004
000001

ADRS=

177777
000000
000001

SET= -1
CLR=
0
TRUE= 1

176500

D
2
PAGE 18

ERRVEC=
RESVEC=

TBITVEC=14
TRTVEC= 14

BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

EMTVEC= 30
TRAPVE(C=34
TKVEC=
60

;:TIME QUT AND OTHER ERRORS
::R%fiESYED AND ILLEGAL INSTRUCTIONS
;s TRACE

TRAP

; ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (10T) ««SCOPEn+
;:POWER FAIL
;;EMULATOR TRAP (EMT) w+ERRORw¢

::'TRAP' TRAP

;.TTY

J;TTY

KEYBOARD VECTOR

PRINTER VECTOR

;;PROGRAM

INTERRUPT

REQUEST

ILLMEM= &

DLADDR= 176500

THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS

VECTOR

v
v

CVDLAAQ DLVI1=J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00
732
733
734

30A(1052)

735

736

R R

UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED

BIT1S
BIT14
BIT13
BIT1?2
BITI
8IT10
BITO9
BIT07

;

RECEIVER DONE

81700

;

READER RUN

;g%

000001

RDORRUN=

756

757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772

100000
040000
020000
010000

000200
000100
000040
000020
000010
000004
000002
000001

RBUF

N Rt R

ERROR=
ORERR=
FRERR=
PERR=
s UNUSED
. UNUSED
; UNUSED
; UNUSED
RDATA7=

RDATA4=
RDATA3=
RDATAZ=
RDATA1=
RDATAO=

BITO6
BITOS
BIT04
BIT03
BITO?
BITO1

;

RN N R R R R AR

P AR A AN R R

AR TR R EN

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

R R R R R

RDATA6=
RDATAS=

AN R R R R

81708

RCVRIE=
; UNUSED
s UNUSED
s UNUSED
; UNUSED
s UNUSED

755

UNUSED

RCVRDONE=

754

RN NN

s
s
:
;
s
;
s

R R R

000200
000100

R AR R R R R R R AN AR AR R R R R

RCSR REGISTER BIT NAMES

745

746
747
748
749
750
751

R At R R R

SEQ 0017

;

737
738
739
740
741
742
743
744

E
2
PAGE 19

30-JUN-78
10:10
BASIC DEFINITIOMS

R A R

RECEIVER

RRA N AR

INTERRUPT

ENABLE

AR N R AR RN

RN RN RANC AR RN

R L

R RN R R AN

R RN PR RNR R R RN

BIT15
BIT14
8IT13
8IT1?2
BIT1
BIT10
BIT09
BITO8

;
;
.
;

ERROR INDICATOR
OVERRUN ERROR
FRAMING ERROR
PARITY ERROR

81707
BIT06
BITOS
BITO4
BITO03
BITO0?
BITO1
BI1T00

;
:
;
/
.
M
./

RECEIVED DATA BITS

v
vt

SEQ 0018

vt
cve

RRRR

Rttt

AR A

AR SRRl
R Rttt dl)

BREAK=

Aed

BIT15
BIT14
BIT13
BIT12
BIT11
BIT10
BIT09
BITO8
BIT107
BITO06
BITOS
BIT04
BITO03
BIT02
BITO1

;
.

TRANSMITTER READY
TRANSMITTER INTERRUPT ENABLE

;

SEND BREAK

BITOO

(CONTINUOUS SPACE)

AAS

:
000002
000004
000010
000020

&
A
_a_ A
A
b

ARl

:
;!
H
:
:
/
.
.
;7

_ A

BIT07
BIT06
BITO5
BIT04
B1703
BIT02
BIT01
BI1T00

TRANSMITTER DATA BUFFER

iRl

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

=
=
=
=

2
&
10
20

Ao A

TDATA?=
TDATAb=
TDATAS=
TDATA4=
TDATA3=
TDATA2=
TDATA1=
TDATAO=

hAemd o Aad

BIT15
BIT14
BIT13
BIT12
BIT11
BIT10
BIT09
BIT08

UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED
UNUSED

AR SRRttt
RtttRit
Rl

Ak owd

RRRRl

tRd

R0l

A oAk

000200
000100
000040
000020
000010
000004
000002
000001

Rttt

TBUF REGISTER BIT NAMES

AR AR AR

;
s
;
:
;
;
.
.

RRRRRRRRRRRRRRR

AARR A

;
A

AR ARALRARAARR

AR AR

D oemd

000001

TCSR REGISTER BIT NAMES

. UNUSED
; UNUSED
; UNUSED
: UNUSED
; UNUSED
; UNUSED
. UNUSED
; UNUSED
XMITRDY=
XMITIE=
; UNUSED
; UNUSED
; UNUSED
; UNUSED
. UNUSED

000200
000100

A _A_a_D

AAAARALAAAAA AR

;

AAAARL

821

822

BASIC DEFINITIONS

812
813
814
815
816
817
818
819
820

F
2
PAGE 20

10:10

805
806
807
808
809
810
811

30-JUN-78

—h

773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804

30A(1052)

CVDLAAQ DLVI1~-J TEST
MACY11
11-MAY-78 00:00
CVDLAA. PN

SEQ 0019

823
RN RARNRARRANARROINNNY

s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
000174
000176

000174
000000
000000

000200

000137

;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=174

DISPREG: .WORD
0
::SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
0
:*SOF TWARE SWITCH REGISTER
.SBTTL
STARTING ADDRESS(ES)
JMP
a#START ;. JUMP TO STARTING ADDRESS OF PROGRAM

D e

837

000400
000400
000402
000406
000412
000416
000420
000424

005000
012720
012720
020027
001371
005037
000137

)

: OFFLINE TESTING FOR INTERRUPT VECTOR PROBLEMS

—

838
839
840
841
842
843
844
845
846
847
848
849
850

.=0

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A '',42 HALT"

D e

TRAP CATCHER

000000

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

.SBTTL

827

828
829
830
831
832
833
834
835
836

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

SRR

824
825
826

Cve

[

PAGE 21

30-JUN-78
10:10
BASIC DEFINITIONS

D oD o

30A(1052)

[gn]

CVDLAAQ DLVIT1-J TEST
'‘MACY11
11-MAY-78 00:00
CVDLAA P11

.=400

013742
000340
000400
000176
001334

18:
\

CLR

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

;SET
;SET

CMP
BNE
CLR
JMP

RO, #400
1%
176

;ALL DONE?
;BR IF NO
;CLEAN UP SWREG
;60 Dbuv 7

Mov
MoV

START

INTR HANDLER
PRIORITY

PTR

ACT11 HOOKS

:;t""t't"'t"'tt'titt'tttt'tit"i"'itttt!tfittttit'tt‘tttttttt

D ad e

RESTORE PC

APT PARAMETER BLOCK

ARl ittt
il
it tsstil]]

R R RN

R R R R R R PR PR

RN AR R RN AR NN RN R NN NN RN R

d ad
D
)
)
D
D
D wd e
D ed

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

.WORD
.WORD
.WwORD
.WORD
_WORD
.WIRD

D WD

$MBADR:
$TSTM:
$PASTM:
SUNITM:

$APTHD:
$SHIBTS:

DIAGNOSTIC

000000
001174
000031
000144
000144
000030

AR NS

)

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

PROGRAM

dl ARttt
it

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

d wd ad ad

AARARAR ARl

C$X=,
.=24
200
.=44
SAPTHOR
.=.8X

D e

000044

RS A

) amd

000024

)

001000
000024
000200
000044
001000
001000

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

AAAR

.SBTTL

;32)SET LOC.52 TO ZERO

"=$SVPC

<
o
D

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

WORD
.=1000

iEgng

D ad

; SAVE PC

ssx2c=.

d cd

000052

;HOOKS REQUIRED BY ACT11

000046

000430
000046
014602
000052
000000
000430
001000

cvd

.SBTTL

SEQ 0020

- —d —b

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

—

851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884

30A(1052)

CVDLAAO DLV1IT=-J TEST
MACY11
11-MAY-78 00:00
CVOLAA.P

177570

913

177570
177560
177562
177564
177566
000
002
012

001172

000
000000
000000
177607
077
015
000012

000377

.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$SAUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
177560
$TKS:
177562
$TKB:
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$SFILLS: .BYTE
SFILLC: .BYTE
$TPFLG: .BYTE
$TIMES: 0
$SESCAPE: 0
$BELL:
<ASCIZ
$QUES:
LASCII
$CRLF:
<ASCII
$LF:
LASCIZ
A

.SBTTL
A

001174
001174
001176
001200
001202
001204
001206
001210

000000
000000
000000
000000
000000
000000
000000

AAAAAA

.EVEN
SMAIL:
$MSGTY:
$SFATAL:
$TESTN:
$PASS:
$DEVCT:
SUNIT:
$SMSGAD:

: AUTOMATIC MODE INDICATOR
: ; INTERRUPT MODE INDICATOR
;. ADDRESS OF SWITCH REGISTER
;;ADDRESS OF DISPLAY REGISTER
;. TTY KBD STATUS

;:TTY KBD BUFFER
;:TTY PRINTER STATUS REG.
;. TTY PRINTER BUFFER REG.

<207><377><377>
/?/

<15>
<12>

ADDRESS
ADDRESS

;s CONTAINS NULL CHARACTER FOR FILLS
;s CONTAINS # OF FILLER CHARACTERS REQUIRED
JsINSERT FILL CHARS. AFTER A ''LINE FEED'
;o '"TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
s sMAX. NUMBER OF ITERATIONS
;;ESCAPE ON ERROR ADDRESS

;:CODE FOR BELL
;s QUESTION MARK

; CARRIAGE RETURN
::LINE FEED
22 0222222222222
R
SRR R

MAILBCX-ETABLE

RS R

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

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD

J;APT MAILBOX
;:MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;.TEST NUMBER
::PASS COUNT
;.DEVICE COUNT
;:1/0 UNIT NUMBER
;;MESSAGE ADDRESS

[s]

<
o
D ad =D wd wnd omd nd
D i

J:CONTAINS THE TEST NUMBER
;sCONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
;. CONTAINS SCOPE LOOP ADDRESS
;. CONTAINS SCCPE RETURN FOR ERRORS
;sCONTAINS TOTAL ERRORS DETECTED
;s CONTAINS ITEM CONTROL BYTE
;sCONTAINS MAX. ERRORS PER TEST
;s CONTAINS PC OF LAST ERROR INSTRUCTION
;s CONTAINS ADDRESS OF °'GOOD' DATA
;s CONTAINS ADDRESS OF 'BAD' DATA
;;CONTAINS 'GOOD' DATA
;:CONTAINS °'BAD' DATA
; sRESERVED--NOT TO BE USED

ARl

APT

;:START OF COMMON TAGS

$STSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
SERTTL:
SITEMB:
SERMAX:
$SERRPC:
$GDADR:
$B8DADR:
$GDDAT:
$BDDAT:

.WORD
.BYTE
.BYTE
.WORD
.WORD

LOCATIONS

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000

.=1100

w
©

$CMTAG:

COMMON STORAGE

OOO0O0OOOOOOOO-LOOOOOOOO

001100

VARIOUS

CONTAINS

D ond

TABLE

dd a2
022222222222

—

001100
001100
001102
001103
001104

909
910
911
912

940

ARl

;*USED IN THE PROGRAM.

903
904
905
906
907
908

930
931
932
933
934
935
936
937
938
939

;*THIS

900
901
902

914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929

COMMON TAGS

Cvo

PAGE 23

SEQ 0021

o w

897
898
899

.SBTTL

10:10

o o

896

30-JUN-78
COMMON TAGS

O—=rNO

885
886
887
888
889
890
891
892
893
894
895

30A(1052)

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

969

970
971
972
973

974

975
976

®
v,

000000

$MADR1:

.WORD

AMADR1

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

AMAMS?2
AMTYP2
AMADR?
AMAMS3
AMTYP3
AMADR3
AMAMSS
AMTYP4
AMADRS
AVECT
AVECT?
ABASE

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

SMAMS?:

SMTYP2:
$MADRZ:
$MAMSS:
SMTYP3:
$MADR3:
SMAMSS:
SMTYP4:
$MADRS:
SVECT:
SVECTZ:

:
$BASE
$DEVM:
SETEND:
JMEX]IT

ADEVM

)
b
b
D
d
b

;:USER SWITCHES
::CPU TYPE,OPTIONS

;;HIGH ADDRESS,M.S. BYTE
;sMEM. TYPE,BLKM
==

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=00?2
500 NSEC M0S=003
;:;HIGH ADDRESS.BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF

J:HIGH ADDRESS.M.S. BYTE
TYPE ,BLK#2
;:MEM.

)

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
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
MEM.TYPE BYTE

001226

SWITCH REGISTER

D wd

AMAMS]
AMTYP1

;;ENVIRONMENT MODE BITS

J;APT

b wd wd TS

.BYTE
.BYTE

;sMESSAGE LENGTH
;:APT ENVIRONMENT TABLE
;;ENVIRONMENT BYTE

»
%

W
R

»
*

AMS1:
TYP:

[ X" LR

000
000

001224
001225

SEQ 0022

CvD
(vd

°‘'TYPE'' ABOVE

wnd

AUSWR
ACPUCP

*» %

954
955
956
957
958
959
960
961
962
963
964
965
966
967
968

AENV
AENVM
ASWREG

950
951
952
953

001222

000
000
000000
001031
000000

AMSGLG

D e

943

944
945
946
947
948
949

$MSGLG: .WORD
$ETABLE:
$ENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

PAGE 24

JsMEM.LAST ADDRESS.,BLK#?

D ad

000000

30-JUN-78
10:10
APT MAILBOX-ETABLE

JMEM.TYPE,BLK#3
J:MEM.LAST ADDRESS.BLK#3
;;HIGH ADDRESS.,M.S.BYTE

941
942

30A(1052)

CVOLAAO DLVI1-J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00

;:HIGH ADDRESS,M.S.BYTE

:sMEM.TYPE,BLK#S

ssMEM.LAST ADDRESS.BLK#4

;:INTERRUPT VECTOR#1,BUS PRIORITYH
;s INTERRUPT VECTOR#2BUS PRIORITY®?
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP

CVDLAAO DLV11~J

CVDLAA.PI

1000
1001

MACY11
11-MAY-78 00:00

30A(1052)

30-JUN-78
10:10
ERROR POINTER TABLE
.SBTTL

K
2
PAGE 25

SEQ 0023

ERROR POINTER TABLE

:*THIS TABLE CONTAINS THE
;*THE

INFORMATION

;*LOCATION SITEMB.

J*NOTET:
;*NOTEZ:

THE

ERROR MESSAGE

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

RBUF
TCSR:
TBUF
I.

.BLKW 20

R5STACK:

300

DLADDR
DLADDR
DLADDR
gLADDR

[« W N V]

GLOBAL DATA
DLADDR
.

DLADD:
DLVE C:
RCSR:

:;POINTS

$ERRTB:

176500
000300
176500
176502
176504
176506
000000
000020
000000

INDEX NUMBER

FOUND

THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

001254
001256
001260
001262
001264
001266
001270
001272
001332

THE

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

001254

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

IS OBTAINED BY USING

EM
DH
DT
DF

»
.

977
978
979
980
981
98¢
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999

TEST

;FOR RS STACK
.WORD 0

CvD

000176
000174
000004

001140
001142

001215

001216

001140

001654

001612
001616
001620
001626
001630
001636

005737

000042

001406
023727
001005

64%:

001202
000200

005227
001043
022737
001437
104401

65%:

MOV
mMov
CMpP
BNE

#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
663

8R
HOY

65%
#65%, (SP)

001140

000176

;:AND

678

CLR
BITB
BEQ
MoV

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

.SETTL

TYPE

PROGRAM NAME

INC
BNE

#-1
68%

BEQ

68%

CMP
TYPE

GET

TST

BNE

(MPB
BEQ
cmp
BNE

#SENDAD ,a#42
,69%

VALUE

;. CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
JsYES,USE NON-APT SWITCH
JsNO,USE APT SWITCH REGISTER

THE PROGRAM IFf

FOR SOFTWARE

Y 1Y

FIRST PASS

;sFIRST TIME?
:;BRANCH IF NO

JsACT=-11?

;:BRANCH

YES

;s TYPE ASCIZ STRING

SWITCH REGISTER

;. ARE WE RUNNING UNDER XXDP/ACT?

70%

::BRANCH IF

YES

71%

;;BRANCH

$SENV, M
70%
SWR,#SWREG

D e

P wd =D

d e

66%:

;;ARE WE RUNNING UNDER APT?
;;BRANCH [F YES
;SOFTWARE SWITCH REG SELECTED?
[F

D wd D

)

D wd cd

THE HARDWARE SWR IS NOT = -1

;;BRANCH IF NO TIMEOUT
J.SET UP FOR TRAP RETURN

#SWREG, SWR
;sPOINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+,@#ERRVEC
;;RESTORE ERROR VECTOR

LSBTTL

000001

JsSETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;s TRY TO REFERENCE HARDWARE SWR
;;BRANCH IF NO TIMEQUT TRAP OCCURRED

MOV
MOV
MOV

000042

001214

;,SAVE ERROR VECTOR
J:SET UP ERROR VECTOR

Q#ERRVEC,-(SP)
#648 ,a#ERRVEC

;. TYPE THE NAME OF

177777

014602

MOV
MOV

000004
001140
001142
177424

001526

001570
001574
001576
001604
001606

001012
123727

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

D ed wd Wb od

177570
177570
177777

#340,3#TRAPVEC+2;LEVEL 7

MOV
SENDCT,SEOPCT
J:SETUP END-OF-PROGRAM COUNTER
CLR
$STIMES
JoINITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
;s CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,3ERRMAX
;:ALLOW ONE ERROR PER TEST
MOV
¥.,8LPADR
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#.,.8LPERR
;:SETUP THE ERROR LOOP ADDRESS
:.SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

005037
132737
001403
012737

000004
001520

001115
001106
001110

[ [0]Y]

001546
001552
001560
001562
001570

014542

000036

D wd v

000403
012716
000002
012737
012737
012637

014550
001160
001162
000001
001444
001452

001516
001520
001524
001526
001534
001542

000020
000022
000030
000032
000034

D wd

013746
012737
012737
012737
022777
001012

016342
000340
016142
000340
017274

D wrd D cad wd

001460
001464
001472
001500
001506
001514

112737

001100

MOV
#SCMTAG,R6
JsFIRST LOCATION TO BE CLEARED
CLR
(R6)+
2 sCLEAR MEMORY LOCATION
CMP
#SUR,R6 ;;DONE?
BNE
.6
;:L00P BACK IF NO
MOV
#STACK,SP
JsSETUP THE STACK POINTER
JoINITIALIZE A FEW VECTORS
MOV
#$SCOPE ,@#IOTVEC ;10T VECTOR FOR SCOPE ROUTINE
MoV
#340,32I0TVEC+2 ;;LEVEL 7
MOV
#SERROR,S#EMTVEC ;.EMT VECTOR FOR ERROR ROUTINE
MoV
#340,8#ENTVEC+2 ;;LEVEL 7
MOV
#STRAP,S#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS

D and

012737
012737

001140

000340

COMMON TAGS

d cod

012737
012737
0°2737
012737
012737
012737
013737
005037
005037

THE

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

INITIALIZE

J;CLEAR THE COMMON TAGS (SCMTAG) AREA

001100

CvD
Cvol

012706
005026
022706
001374
012706

SEQ 0024

001334
001340
001342
001346
001350

D e e

START:
LSBTTL

PAGE 26

001334

30-JUN-78
10:10
ERROR POINTER TABLE

1002
1003
1004

30A(1052)

—

CVDLAAQ DLVI1-J TEST
MACY11
CVOLAA.PI
11-MAY-78 00:00

68%

<CRLF>*CVDLAAO

;;GET OVER

DLV11=y

THE ASCIZ

b nd
d
D

INDICATOR

BR
_ASCIZ

;:SET AUTO-MODE

TEST*<CRLF>

;:69%:
68%:

MOVB

D wad

718:

70%:

;:GET SOFT-SWR SETTINGS

001134

71%
#1,8AUT0B

D ad

000414

000601

GTSWR
BR

cvD
CvDI

001704

104406
000403
112737

SEQ 0025

D wd ad

001640
001642
001644
001652
001652

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

el wd

1058

1059
1060
1061
1062
1063
1064

30A(1052)

—d e

CVOLAAO DLVI1-J TEST
MACY11
CVOLAA.P11
11-MAY-78 00:00

CVDLAAQ DLVI1=~J TEST
MACY11
CVOLAA.P11
11-MAY-78 00:00

b
d

—_, e ek = =0 OO
B U200V~

b cmd

b
—d

b cod

b md
i

1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103

001704

004737

013012

001710
001714
001722
001726

005037
012737
005037
005037

014320
000001
014316
014322

001732
001736

012706
004737

001100
013752

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

30A(1052)

001206

LOOP:

001254
001256

JSR

PC,SIZE

;SIZE

CLR

MOV
JSR

#STACK,SP
PC.CYCLE

JRESET STACK POINTER
JSETUP MODULE AND CHANNEL

MoV

(ADRS)
+ ,DLADD

(ADRS) ,DLVEC

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

#RSSTACK,RS

012700
077001

001000

MOV

#1000,R0

S08

000001

007112

000402

005037

RO,.

RESET

014320

$1:

001102

$2:

SDEVM = 0

JINIT FOR TESTS

001260

123727
001003
000137

#1,8UNIT
CHAN
P1CNT

001254

001204

THE BUS

PHASE?2

Mov

000005

SEQ 0026

MOV
CLR
CLR

013737

005237

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

INC

$DEVCT

CMPB
BNE
JMP

PHASEZ2 ,#TRUE
$1
MODTST

CLR

$TSTNM

ADRS+2 -> NEXT VECTOR
JGET UNIT ADDRESS

LET

DLADD

(ADRS)+

;GET UNIT VECTOR

LET

DLVEC

(ADRS)

LET

JRCSR = DLADD

RCSR

:= DLADD

LET

RBUF

= DLADD

+ #2

LET

TCSR

= DLADD

+ #4

LET

TBUF

= DLADD

+ #6

LET

= #RSSTACK

;DELAY

TO ALLOW PRINT

LET

$DEVCT

:= SDEVCT + M1

IFB

PHASE2

#TRUE

TESTING

;BEFORE RESET
BRESET

;G0 TO PHASE
ELSE

LET STSTNM
ENDIF

:= #0

TO FINISH

THEN

OIS
S EDESD NS WWWWWWWWWWRN
NN
NINDAININ b b s o NN=2OWVWORNOWVMB WA =SOOVR YO VN WN 2OV
NO NS WN
OOV
NO VN WNN~=O V0O~ (54

b -

PAGE 29

N anl

10:10

ADDRESSABILITY

SEQ 0027

;.'ttt'Q"i"""i"f."""‘"Q"'Q"'"Q"Q.Q'Q.'.'.ti't"..t'.'

J*TEST

ADDRESSABILITY

D o

=D
D e

d =D
D

D
d
D

d
D

i
D

d ad

e
D

)
D

d md
D

d el

D
i

D i
d

)

i e

D
i

D
d

D
)

d wnd
D
D

30-JUN-78

i
3

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

RESPOND

TO THEIR ADDRESSES.

]

E."Qi'Q""i'""""*'Q"'i'f"""'."'.'Q'Qi'.iti"""t.itt'fi
002066
002070
002076
002104
002104
002110
002110
002112
002116
002122
002126
002130
002130
002134
002134
002134
002134

002142
002142

000004
012737
012737

000002

013701

001254

000061

010146
012701
012721
012711
012601

000004
013742
000340

005037

001270

001160

TST1:

001200

SCOPE

mov

#2.8TIMES

[ [o]'}

DLADD,ADRS

MOV

#1,8TESTIN

R1,-(SP)

MOV
MoV
MoV

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

(LR

Mov

(SP)+ R

005037

002142

001110

013750

J:SET TEST NUMBER IN APT MAIL BOX
LET

ADRS

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

005711

005737
001401

013750

SETVEC

A#ILLMEM, H#INTSRV,#PR7

;

SET UP INTERRUPT

LET

:= 40

MoV

#6483 ,SLPERR

CLR

INTFLAG

TST

8ADRS

TST

INTFLAG

BEQ

BGNSUB

;CLEAR FLAG
LET INTFLAG
JREAD

IF
;

104001

ERROR

000002

013701
063701

001254
001270

023727
001353

00127¢

001270

000010

ADD

#2,1

MoV
ADD

DLADD,ADRS
[,ADRS

(MP
BNE

1,48,
$3

:= #0

FLAG

INTFLAG NE #0 THEN
FATAL

ERROR

ERRDF

ENDIF

$4:

062737

:= DLADD

REPEAT

$3:
012737

;.00 2 ITERATIONS

D e

D
D

)

el
d wd

e
d

ed
i

e e

) e

D
)
D el

d md
e
e

el e
e

—d e

—

11-MAY-78 00:00

30A(1052)

D pd

CVDLAA.P1

MACY11

ENDSUB
LET
1
LET

UNTIL

ADRS

EQ #8.

+ #

:= DLADD

[

CVOLAAO DLVI1=J TEST

d
e
el
nd
b
d
D
e
D
d
D
e
e
D
e
d
)
il
e
—t o

D 0000000000000 ~NNNNNNNNYN
OOV
NOWVNEWNN
OV
NO NS WN 2O

CVDLAAQ DLVI1-y TEST
MACY11
CVDLAA.PIN
11-MAY-78 00:00

002206
002214
002216

032777
001401
104027

177476

002220
002226
002230

032777
001401
104030

007400

002232
002240
002242

032777
001401
104031

177476

002244
002252
002254

032777
001401

177400

002256
002256
002260
002262
002266
002270
002274
002276

002300
002302

30A(1052)

30-JUN-78

177044

177034

177024

177014

104032

010146
010246
012701
010102
062702
010221
005011
012602
012601

10:10

PAGE 30

000002

ADDRESSABILITY

SEQ 0028

BIT
BEQ
ERROR

#177476,aRCSR
1%
27

;RCSR HAS UNUSED BITS

SET

BIT
BEQ
ERROR

#76400,3RBUF
2$
30

:RBUF

SET

BIT
BEQ
ERROR

#177476 ,8TCSR
3%
3

;TCSR HAS UNUSED BITS SET

BIT
BEQ
ERROR

#177400,a8TBUF
(%1
32

; TBUF HAS ;UNUSED BITS SET

MOV
MOV
MoV
MoV
ADD
MOV

R1,-(SP)
R2,-(SP)
#ILLMENM,
R
R1,R2
#2,R2
R2,(R1)+

4%:

000004

CLR
MOV
MOV

. CHECK THAT ALL UNUSED BITS ARE 0

HAS

UNUSED BITS

CLRVEC

ILLMEM

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

sEND OF

TEST

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

30A(1052)

D
30-JUN-78
10:10
PAGE 31
T
ADDRESSABILITY

)

SEQ 0029

A A28ttt
0222222822222 2282222}

i% THE FOLLOWING 3 TESTS
A

001160
001200

032737

000010

001220

001001

SRR

T2:

000452

SCOPE

Mov
mov

#10,8TIMES
#2,8TESTN

BIT
BNE

#BRK ,SUSWR

T$13

IF #BRK NOTSETIN SUSWR THEN
EXIT
JsEXIT THIS TEST
ENDIF

;

SEE

012737

002342

001110

Mov

#6438, SLPERR

002342
002342
002350

032777
001401

000001

176714

BIT
BEQ

#BREAK ,aTCSR

002354
002354
002362
002362
002370
002370
002376
002400
002400
002402
002402
002402

002402
002402

THIS POSITION

::00 10 ITERATIONS
J+SET TEST NUMBER IN APT MAIL BOX

$5:

104002

RESET

ARSARARAS ARttt
2220

002334
002334

002352
002352
002354
002354
002354

CLEAR,

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

»
d
b
b
d
emd
o
D
nd e
[ PN —

NN
o oo
RN AN e d = d ed d —d d D
W)
— OV NN
WWN =

1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246

002322
002322
002330
002332
002332
002334
002334

012737

000010
000002

[7.1]

A
i

TEST ALL 'READ WRITE' BITS

Rl RS2SR
R

BREAK - TCSR O SET,

000004
012737

RAARSl

;*TEST 2

002304
002306
002314

ERROR

;

BREAK NOT

[NSTALLED

IS CLEAR

BGNSUB

#BREAK SETIN @TCSR

; BREAK DID NOT RESET
ERRHRD 2

THEN

IN TCSR

ENDIF

$6:

ENDSUB

TRY TO SET BREAK BIT

012737

002362

001110

Mov

#64S,SLPERR

052777

000001

176674

BIS

#BREAK,aT(SR

032777
001001

000001

176666

BIT

BNE

104003

ERROR

#BREAK ,@TCSR

BGNSUB

LET
IF

ENDIF

;

001110

Mov

:= QTCSR SET.BY #BREAK

STUCK TO 0

#BREAK NOTSETIN @TCSR

. BREAK DID NOT SET

ENDSUB

002410

;

ERRHRD 3

$7:

012737

@TCSR

TRY

#64% ,SLPERR

TO CLEAR A SET BIT
BGNSUB

THEN

IN TCSR

CVDLAAO DLVI1-J TEST
MACY11
CVOLAA.PI
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
1271
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

176646

B8IC

176640

10:10
PAGE 32
BREAK - TCSR O SET, CLEAR,

BIT
BEQ

LET

#BREAK ,aTCSR
$10

aTC(SR

;

#BREAK

; BREAK

104004

ERROR

:= a@TCSR

CLR.BY #BREAK

SHOULD HAVE CLEARED

ERRHRD 4

SETIN aTCSR

THEN

DID NOT CLEAR [N T(CSR

ENDIF

$10:

ENDSUB
;

NOW

012737

002436

001110

MOV

#64% ,SLPERR

002436
002436

052777

000001

176620

BIS

#BREAK ,aT(SR

002456
002456
002460
002460
002460

SEQ 0030

#BREAK ,aT(SR

002430
002430

002444
002444
002446
002446
002454

RESET

SEE

RESET

CLEARS

LET

aTCSR

;

000005

032777
001401

BRESET

RESET

000001

176610

BIT
BEQ

104005

ERROR
$11:

#BREAK ,aT(CSR
$11

BGNSUB

:= aTCSR

SET.BY #BREAK

ISSUE BUS RESET
#BREAK

SETIN aT(CSR

. BREAK DID NOT RESET
ERRHRD §
ENDIF

ENDSUB

THEN

IN TCSR

C\
Cv

CVDLAAQ DLVI1=~J TEST
MACY11
CVOLAA P11
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

AASAA

s*TEST 3
M

002460
002462
002470

000004
012737
012737

000010
000003

001160
001200

OOV
V] N2

[a¥] PNOPOND =

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

AR ARl

SCOPE

MOV
Mov

002476

#10,$TIMES
#3,8TESTIN

;

SEE

002516

001110

mov

#6583 ,SLPERR

002516
002516
002524

032777
001401

000100

176540

BIT
8EQ

#XMITIE,QTCSR

ERROR

002536

002544
002544
002552

002554
002554
002556
002556
002556

22222222

IS CLEAR
BGNSUB

#XMITIE

SETIN @TCSR

; XMITIE DID NOT RESET
ERRHRD 12

THEN

IN TCSR

ENDIF

$12:

ENDSUB
;

TRY

012737

002536

001110

mov

#6438 ,SLPERR

052777

000100

176520

BIS

#XMITIE,aTCSR

032777
001001

000100

176512

104013

BIT
BNE

#XMITIE,QTCSR

ERROR

SET

XMITIE

BIT

BGNSUB
LET

$13

@TCSR

;

:= QTCSR

SET.BY #XMITIE

STUCK TO O

#XMITIE NOTSETIN QTCSR

. XMIT DID NOT SET
ERRHRD 13

THEN

IN TCSR

ENDIF

$13:

ENDSUB
:

TRY

012737

002564

001110

Mov

#6493 ,SLPERR

002564
002564

042777

000100

176472

BIC

FXMITIE,QTCSR

002602
002602
002604
002604
002604

RESET

$12

002556
002556

002572
002572
002600

CLEAR,

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

012737

002530
002530
002536

SET,

SETPRI #PR7

104012

SEQ 0031

AR 2222222222
X

002510
002510

002526
002526
002530
002530
002530

RESET

XMITIE - TCSR 6

AAAAREA

TST3:

ARl

b cd wd d

~JO NN
-

AN N NN WU (NN NN NN

p =B

1303
1304
1305
1306

30A(1052)

032777
001401

000100

176464

#XMITIE ,QTCSR

CLEAR

SET

BIT

BGNSUB

LET
If

@TCSR
;

:= @TCSR CLR.BY #XMITIE

SHOULD HAVE CLEARED
#XMITIE SETIN Q@TCSR

THEN

$14

104014

$14:

XMIT DID NOT CLEAR IN T(SR

ERRHRD 14
ENDIF

ENDSUB

v
cv

MACY11
CVDLAAQ DLVI1=J TEST
11-MAY-78 00:00
CVOLAA P
1334
1335
1336
1337
1338

1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352

30A(1052)

330-JUN-78
T

10:10

XMITIE

PAGE 34

TCSR 6

SET,

; NOW SEE

002604
002604

012737

002612

001110

Mov

#643 ,SLPERR

002612
002612

052777

000100

176444

BIS

#XMITIE,aTCSR

002620
002620
002622
002622
002630
002632
002632
002634
002634
002634

[F RESET CLEARS 1IT
BGNSUB

LET

9TCSR

BRESET

RESET

000100

176434

104015
$15:

BIT
BEQ

#XMITIE,QTCSR

ERROR

SEQ 0032

RESET

000005

032777
001401

CLEAR,

$15

:= @TCSR SET.BY #XMITIE

ISSUE BUS RESET
#XMITIE

SETIN QTCSR

THEN

. XMIT DID NOT RESET IN TCSR
ERRHRD 15
ENDIF
ENDSUB

cv
v

CVDLAAO DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVOLAA PN

30A(1052)

H
3
30-JUN-78
10:10
PAGE 35
T3
XMITIE - TCSR 6

SET,

CLEAR, RESET

SEQ 0033

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

AAARAR

JeTEST 4
AR

R R RO

000004
012737
012737

000010
000004

001160
001200

002652
002652

012737

002660

001110

MOV

#6483, 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

SCOPE
MOV
MOV

BEQ

ERROR

;:SET

SEE

]

THIS POSITION

AR AR RN R PR RN

TEST NUMBER

IS CLEAR

RN AR E RN RN

IN APT MAIL BOX

BGNSUB

$16

#RCVRIE

SETIN @RCSR

THEN

: RCVRIE DID NOT RESET IN RCSR

ERRHRD 35

ENDIF

$16:

ENDSUB
:

TRY

012737

002700

001110

MOV

#6438 ,8LPERR

052777

000100

176352

BIS

#RCVRIE ,aRCSR

8IT

#RCVRIE ,aRCSR

032777
001001

000100

176344

BNE

104036

ERROR

SET

RCVRIE BIT
BGNSUB

LET

BRCSR

:= BRCSR SET.BY #RCVRIE

STUCK TO O

;

RCVRIE

#RCVRIE NOTSETIN BRCSR

THEN

$17

ERRHRD 36

DID NOT

SET

IN RCSR

ENDIF

$17:

ENDSUB
;

TRY

012737

002726

001110

MOV

645 ,SLPERR

002726
002726

042777

000100

176324

BIC

#RCVRIE ,aRCSR

002744
002744
002746
002746
002746

Rttt

::;00 10 ITERAT]ONS

#4,8TESTN

002720
002720

002734
002734
002742

SET, CLEAR, RESET

R R R

#10,8TIMES

104035

RRARARRR

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

002634
002636
002644

TST4:

RCVRIE ~ RCSR 6

ot
s

032777
001401

000100

176316

104037
$20:

BIT
BEQ

#RCVRIE ,aRCSR
$20

ERROR

CLEAR

SET

BIT

BGNSUB

LET
1F

BRCSR

;

:= BRCSR CLR.BY #RCVRIE

SHOULD HAVE CLEARED
#RCVRIE

SETIN QRCSR THEN

; RCVRIE DID NOT CLEAR
ERRHRD 37
ENDIF
ENDSUB

IN RCSR

v
cv

_a
A
A
b
A
A
A

THEN

b
—h
d
A
d
A
kb
A
b
A
b
D
—d

ENDSUB

ENDIF

IN RCSR

; RCVRIE DID NOT RESET
ERRHRD 40

$21

SETIN @RCSR

$21:

#RCVRIE

ERROR

104040

#RCVRIE ,IRCSR

—d

BIT
BEQ

176266

000100

032777
001401

RESET

ISSUE BUS RESET

000005

SET.BY #RCVRIE

BRESET

:= QRCSR

dRCSR

002774
002774
002776
002776
002776

LET

#RCVRIE,ARCSR

BIS

176276

000100

052777

002754
002754

BGNSUB

#6465, SLPERR

Mov

001110

IF RESET CLEARS IT

cve
cvt

—h

002754

SEQ 0034

RESET

012737

CLEAR,

NOW SEE

002746
002746

002762
002762
002764
002764
002772

SET,

—d

;

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

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

30A(1052)

—tr

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

1441
1442
1443
1444

1445
1446
1447
1448
1449
1450
1451
1452

J*TEST 5

ARR

ARl

TEST

002776
003000
003006

000004
012737
012737

000010
000005

001160
001200

003014
003014

012737

003022

032777

000200

003022
003022
003030

001002

TSTS:

SCOPE

THAT
Al

XMITRDY

TCSR

222222232222

7 -

SET BY

2022

INIT
22228202

Mmov
Mov

#10,$TIMES
#5,8TESTN

001110

Mov

#64S,SLPERR

176234

BIT
BNE

#XMITRDY,aTCSR

;.00 10 ITERATIONS
;;SET TEST NUMBER IN APT MAIL BOX
BGNSUB

#XMITRDY NOTSETIN @TCSR

003034
003034
003036
003036

003036

XMITRDY

104042

ERROR

000005

ERRHRD 42

DID NOT

SET

. ISSUE ANOTHER RESET

BRESET

RESET

$22:

THEN

$22

JRESET SHOULD HAVE SET BIT.
003032
003032

vl
cve

PR AAAASAAR AR ARl

Rttt

SEQ 0035

AR AR

RESET

RAL RS

CLEAR,

SET,

RCVRIE - RCSR 6

J_
3
PAGE 37

10:10

1431

1432
1433
1434
1435
1436
1437
1438
1439
1440

30-JUN-78

1427
1428
1429
1430

30A(1052)

—

CVDLAAO DLV11=-y TEST
MACY11
CVOLAA PN
11-MAY-78 00:00

ENDIF

ENDSUB

;ALLOW LOOPING ON ERROR

TCSR

(AFTER

RESE

003102
003102

003106
003106
003110
003114
003120
003124
003130
003134

003136
003136
003140
003140
003142
003146
003146

CONSOL
, #TRUE

$23

TST7

003322

LET PASS

PASS

003324

CLR

ERRORFLAG

005037

003326

CLR

EXITFLAG

177777
001264
000200
000500
012560

:= #0

;INIT

LOOP

005037

010546
012745
013745
012745
012745
004737
012605

JoEXIT THIS TEST
ENDIF

CLR

176160

THEN

EXIT

$24:

105077

CONSOL EQ #TRUE

;oSET TEST NUMBER IN APT MAIL BOX

$23:

005037

A _h

CmMP
BNE

;:D0 10 ITERATIONS

000521

#10,STIMES
#6,$TESTN

;

START OF

;

MAX OF
:= #0

LET EXITFLAG

TIMES

THRU

LOOP
2

TIMES

THRU

:= #0

LOAD TBUF WITH ONE CHARACTER

WAIT

;
:

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

aTBUF

MoV
MoV
Mov
mMov
Mov

RS.=-(SP)

JSR

;

CLRB

Mov

LET ERRORFLAG

COUNT OF

000001

SCOPE

Mov
mov

b ond

013736

1516:

003072
003072
003076
003076

001160
001200

TIME.

sl s2222020222222222322222223
2222222328}

003066
003066
003072
003072

023727
001001

000010
000006

FOR READY

TO SET

003054
003054
003062
003064
003064
003066
003066

000004
012737
012737

ARl

b e

003036
003040
003046

A =P —d

A _A__A_A_aAed

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

. %

ARl a2
22222 22222222

J*TEST 6

.SEND A CHARACTER
LET QTBUF :B= #0

CALL

WAIT A MAXIMUM
;0F 50 MSEC FOR
;XMIT RDY TO SET IN TCSR
TIMER

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

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

(SP)+,RS

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

103003
104066

000137

BCC

ERROR
JMP

003330
$26:

$26
66
1S17

D oh —F —h

AR AR

b —od —h ok

b end —d

1467
1468
1469
1470
16471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508

SEQ 0036

vt
cvt

b —d

1466

INIT

1463
1464
1465

IS SET BY

cd ch

1461
1462

30-JUN-78
10:10
PAGE 38
TS5
TEST THAT XMITRDY - TCSR 7 -

IF .ERROR

THEN

SXMIT RDY DID NOT SET
ERRHRD 66
ENDIF

IN TCSR

POMNOAINLPOARIAIRINAIAIRNI A

1453
1454
1455
1456
1457
1458
1459
1460

30A(1052)

CVOLAAO DLVI1-J TEST
MACY11
CVOLAA.P11
11-MAY-78 00:00

1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564

003160
003160
003164
003166
003166
003174
003176
003176

105077
000240

032777
001404

176162

CLRB

AND THEN WAIT

176070

BIT
BEQ

TO SET

JSEND SECOND CHARACTER
LET aTBUF :B= #0

aTBUF
NOP

000200

FOR

;

GIVE

#XMITRDY,’TCSR
$27

IT TIME TO CLEAR
; XMITRDY SHOULD HAVE

#XMITRDY SETIN @TCSR THEN

XMITRDY DID NOT CLEAR IN TCSR

;

012737

177777

003324

Mov

000416

$27:

$30

:= #SET

LET ERRORFLAG

#SET,ERRORFLAG

;
003204
003204
003206

CLEARED UPON

; RECEIPT QF A CHARACTER

DEFER ERROR TYPEOUT

ELSE
JWAIT A MAXIMUM

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

177777

MoV

001264
000200
001000
012560

103001
104070

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

8CC

$31

ERROR

(SP)+,RS

IF .ERROR THEN

JXMIT RDY DID NOT SET
ERRHRD 70

003224

005237

003322

023727
003404

003322

104067

177777

000001

ENDIF

CMP
BNE

ERRORFLAG,#SET
$32

INC

PASS

CMP
BLE

PASS.#1
$33

ERROR

IN T(CSR

ENDIF

$31:
$30

023727
001013

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

#SET,~-(RS)

MOV
MOV
MOV
JSR

[ [0}

CALL TIMER

RS,=-(SP)

;

VNNV NI N
PN PRV

003206
003206
003210
003214
003220
003224
003230
003234
003236
003236

;JOF 100 MSEC FOR
JXMIT RDY TO SET IN TCSR

PPN

;

VNNV PV

; LOAD TBUF WITH A SECOND CHARACTER (TO DOUBLE BUFFER)
; CHECK IMMEDIATELY THAT XMITRDY IS CLEAR

PPN

BPL

VNNV

sSHIP 1°'ST CHAR
;WAIT FOR RDY

PPN NN PN

aTBUf
?ICSR

NN NN

CLRB
TSTB

(vD
cvd

DEFERED ERROR CALL

1%:

SEQ 0037

PL NV ALV

1544
1545
1546
1547
1548
1549
1550
1551

176114
176106

ERRORFLAG EQ #SET THEN
LET PASS

:= PASS + M1

IF PASS GT #1

THEN

; CALL ERROR IF 2ND TRY

ERRHRD 67

LET EXITFLAG

:= #SET

PNV

1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543

105077
105777
100375

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

1525

003146
003152
003156

30A(1052)

~NO VLW
=20 o
Hwin0
= OV

b d
D
gD
e
)
=Y
i
d
il
b —r o
d
—

Viuvnun (V LV LV, JV W RV XV IV TV LV, IV IV ] N
NN
NPN = ed ed md od b ok b o
Q

CVOLAAO DLVI1-J TEST
MACY11
CVOLAA.PY
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)

M
3
30-JUN-78
10:10
PAGE 40
T6
TEST THAT XMIT RDY - TCSR 7 - CLEARS

003326

MOV

#SET,EXITFLAG

ENDIF

$33:
000403
012737

$32:

177777

003326

$34

MOV

#SET,EXITFLAG

ELSE

000665
000403
006000
000000
000000

003326

177777

NO ERROR
:= #SET

ENDIF
CMp

$25:

;
LET EXITFLAG

$34:

023727
001401

SEQ 0038

EXITFLAG,#SET

BEQ

$25

$24

1S17

PASS:
ERRORFLAG:

EXITFLAG:

0
0
0

EXiF

EXITFLAG EQ #SET

ENDLOOP

EXIT

;

SKIP AROUND

$sEXIT THIS TEST

FLAG WORDS

cvD
cvD
OO
NN
NN N

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

CVCLAAO DLV11=-J TEST

CVDLAA.P11

MACY11

11-MAY-78 00:00

1586

30A(1052)

‘

1587

1588
1589
1590
003330
003332
003340

1596

003346

003346
003354
003356
003364
003366
003366
003366
003370
003370

000004
012737
012737
032737
001404
023727
001001

000010
000007

001160
001200

000020

001220

013736

000001

000434

012737

003376

1611
;2}%

003376
003376

105077

1756¢4

1614
1615
1616
1617
1618
1619

003402
003402
003404

010546
012745

1621
1622
1623

003414
003420
003424

012745
012745
004737

1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1660
1641

TEST THAT XMIT RDY = TCSR 7 - CLEARS

R N

A N R

R R

AR A A

RN N R

SEQ 0039

AN RN RN R RN RN R AR AR

SCOPE
MOV
MOV

#10,$TIMES
#7.8TESTN

BIT
BEQ
CMP
BNE

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

TST10

2
2
2

001110

MOV

#643,SLPERR

CLRB

aTBUF

IF #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE

003430
003432
003432

003434
003434
003436
003436

013745

LET aTBUF

012605

MOV
MoV

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

000200
000500
012560

MOV
MOV
JSR

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

MoV

MOVv

103001

BCC

ERROR

2
g

WAIT A MAXIMUM OF 50 MSEC
FOR RCVR DONE TO SET IN
: RCSR
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET>

RCSR,=-(RS)

2
2

(SP)+,RS

S
:DIDN'T SET
IF .ERROR THEN

$37

RCVRDONE

IN TIME
DID NOT

ENDSUB

003444
003444

000005

003444

001110

MOV

RESET

#6438, SLPERR
; NOW THAT

BGNSUB

IS SET SEE

IT CAN BE

BRESET

SET

[N RCSR

2
2
2
2
2

2
2
2
2

ENDIF

003436
012737

2
2
2
2
2
2

$37:

003436
003436

2
2
2
2
2
2
2
2
2

:B= #0

ERRHRD 71

104071

2
2
2

BGNSUB

SEND A CHARACTER AND LET IT WRAP AROUND

177777

001260

THEN

EXIT
THIS TEST
ENDIF

;
:

003410

2
2
g

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

:;EXIT

cVD

cvd

TEST THAT OQUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED)
RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF TIME
AND THAT RESET CLEARS THE BIT.

$36:

003370
003370

;ggg

TST7:

$35:

1606
1607
1608

1620

N
PAGE 41

;"tt'tttt'tttti'tttttttttt't"ttt't'titittt'ttttttttttttttttitt*t

1592
1593
}ggg

}2?3

10:10

;eTEST 7
ot
I

1591

1597
1598
1599
1600
1601
1602
1603
1604
1605

30-JUN-78

RESET

2
2
2
2
2
2
2

(VOLAAOQ DLVI1=-y TEST

CVDLAA P11

1642
1643
1645

003446
003446
003454

1647
1648
1649
1650
1651

003456
003456
003460
003460
003460

1644

1646

MACY11
11-MAY-78 00:00

032777
001401

000200

30A(1052)

30-JUN-78

175604

TEST

BIT

BEQ

104072

ERROR
$40:

10:10
THAT

4
8
PAGE 42

QUTPUTTING

#RCVRDONE ,aRCSR

(HAR

FROM

TBUF

SEQ 0040

(WITH WRAP CONNECTED)

#RCVRDONE

SETIN Q@RCSR THEN

$40

. RCVRDONE DID NOT RESET
ERRHRD 72

ENDIF
ENDSUB

IN RCSR.

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

30A(1052)

1652

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

1653

TN R R R AR R IR RN RN AR

1654

JeTEST

THAT RCVRDONE

1655

1656
1657
}ggg

003460
003462
003470

1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672

003476
003476
003504
003506
003514
003516
003516
003516
003520
003520

12;2

003520
003520

000004
012737
012737

000010
000010

001160
001200

032737

000020

001220

013736

000001

001404
023727
001001

TST10:

$41:

000433

TEST
N

BIT

#URAP,SUSWR

[ [0]

#6643 ,3LPERR

BEQ
CMP
BNE

012737

003526

001110

105077

175534

003532
003532
003534
003540
003544
003550
003554
003560

010546
012745
013745
012745
012745
004737
012605

177777
001260
000200
000500
012560

NAA NN

R AN RN

AN RN RN RN RN

;300 10 ITERATIONS
;sSET TEST NUMBER IN APT MAIL BOX
IF

JoEXIT

#WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE

RS,=-(SP)

MOV
MoV
MoV
MoV
JSR
MoV

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

$43

003564
003564

104025

ERROR

FOR

XMITRDY

TO SET.

;. OUTPUT A CHARACTER
LET QaTBUF :B= #0

MoV

BCC

EXIT
THIS TEST
ENDIF

OUTPUT A CHARACTER AND WAIT

aTBUF

; WAIT MAXIMUM OF SO0 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

;
ENDIF

$43:

SET

IT BACK TO CONTINUE

ENDSUB

JNOW THAT

};8}

THEN

BGNSUB

CLRB

103001

003566
003566
003574
003574
003602

A AR

$41
CONSOL ,#TRUE
$42

003562
003562

1703
1704
1705
1706
1707

AR R R AR AR

SEQ 0041

IS CLEARED BY SETTING READER ENABLE

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

$42:

003526
003526

003566
003566
003566

#10,8TIMES
#10,8TESTN

1696
1697
1698
1699
1700

SCOPE
mMov
MoV

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

RN RN AR AR

(WITH WRAP CONNECTED)

IS SET LETS SEE

JREADER ENABLE CLEARS RCVRDONE

052777

000001

175464

BIS

PRDRRUN ,3RCSR

032777
001401

000200

175456

BIT
BEQ

#RCVRDONE ,@R(CSR
$44

LET @RCSR

SETTING

:= QRCSR SET.BY #RDRRUN

IF #RCVRDONE SETIN 3RCSR THEN

CVDLAAO DLV11=J TEST
MACY11
CVOLAA.PIN
11-MAY-78 00:00
1708
1709
1710
1711
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
ERRHRD 26
.
ENDIF

SET

IT BACK

SEQ 0042
[N RCSR

TO CONTINUE

CVDLAAQ DLVI1-J TEST
o0 CONONLS
(NN 2OV~

d
b
ed
d ol
D
d
o
)
ol o
d
d
b
—

~N -~ NNSNSNSNYNNNNNNNNNY
W N NIV PINININ) = D b s —d

CVOLAA.PI1T

1731
1732
1733
1734

1;%2

1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
17648
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759

};g?

11-MAY-78 00:00

30A(1052)

30-JUN-78

70
A

003624
003624
003632
003634
003642
003644
003644
003644
003646

000004
012737
012737
032737
001404
023727
001001

000010

001160

000020

001220

013736

000001

000011

$45:

000432

003646

003646
003646

TST11:

001200

TEST THAT RCVRDONE IS CLEARED BY READING RBUF
R

RPN

SCOPE
Mov
Mmov

#11,$TESTN

BIT
BEQ
(MpP
BNE

#WRAP,SUSWR
$45
CONSOL
, #TRUE
$46

TST12

Mov

#64%,SLPERR

#10,STIMES

003654

001110

175406

CLRB

aTBUF

003660
003660
003662
003666
003672
003676
003702
003706

010546
012745
013745
012745
012745
004737
012605

177777
001260
000200
000500
012560

MoV
Mov
MOV
Mov
Mov
JSR
MoV

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

003710

103001

BCC

$47

003712
003712

104073

ERROR

003714

1769

003720

117700

175342

N R

AR RRRRR

;;00 10 ITERATIONS

;;SET TEST NUMBER IN APT MAIL BOX
IF #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE

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

. DID IT BECOME READY?
IF.ERROR
THEN

SET

IT BACK

READING THE

IN RCSR

TO CONTINUE

ENDSUB

Mov8

THEN

BGNSUB

.
ENDIF

;
;

003715

.RCVRDONE DID NOT SET
ERRHRD 73

$47:

003714

RARR

. OUTPUT A CHARACTER
LET ITBUF :B= #0

105077

003714
003714

RPN

: OUTPUT A CHARACTER AND WAIT FOR RCVRDONE TO SET,

003654
003654

003710

R AR

EXIT
;oEXIT THIS TEST
ENDIF

$46:

012737

SEQ 0043

RASRAR RSl
2222222222202 2]

003606
003610
003616

&
E
PAGE 45

10:10

TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE

JeTEST N

1762
1763
1764
1765
1766

;;g;

MACY11

NOW THAT IT IS SET LETS SEE
BUFFER CLEARS RCVRDONE.

aRBUF ,RO

;READ BUFFER
LET RO :B= aRBUF
IF #RCVRDONE

SETIN QRCSR THEN

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

003720
003726
003730
003730

003732
003732

032777
001401

000200

30A(1052)

30-JUN-78

175332

TEST

BIT
BtaQ

104074

ERROR

10:10
THAT

PAGE 46

RCVRDONE

4
IS

#RCVRDONE ,38RCSR

$50

;RCVRDONE

ERRHRD 74
;
ENDIF
L4

$50:

SEQ 0044

CLEARED BY READING RBUF

SET

DID NOT

IT BACK

CLEAR

IN RCSR

TO CONTINUE

CVOLAAO DLV11-y TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
179N
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

TEST

JeTEST 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

000004
012737
012737

000010
000012

005737
001007

013736

032737
001401

000020

001160
001200

10:10

PAGE 47

THAT RCVRDONE

IS CLEARED BY READING RBUF

R R

SCOPE
MOV
MoV

R R

#10,8TIMES
#12,8TESTN

IST

CONSOL

BNE

$51

BIT
BEQ

#WRAP,SUSWR
$52

PR R

RN RO RN AR RN AR RN R RN AR

$51:

000522

004004

001110

CONSOL EQ #0 THEN
I[F

W#WRAP SETIN SUSWR

ELSE

$53

TST13

$54

B8R

TST13

ScEXIT

THIS

TEST

THEN

NULL =-=--EXECUTE

TEST

EXIT

ENDIF

ELSE

EXIT

JIEXIT THIS TEST
ENDIF

$54:

012737

R R RN AR

::00 10 ITERAT]IONS
;3SET TEST NUMBER IN APT MAIL BOX

$53:

000401

SEQ 0045

TEST THE OVERRUN & ERROR BITS - RBUF 14

1ST12:

000524

RN R RPN

$52:

001220

000401

MOV

#64% ,3LPERR

BGNSUB

;OUTPUT 2 CHARACTERS

JTHIS SHOULD AN CAUSE OVERRUN ERROR.
004004
004004

004010
004010
004012
004016
004022
004026
004032
004036
004040
004040

004042
004042

JOUTPUT 1 CHARACTER

105077

010546
012745

013745
012745
012745
004737
012605

175256

CLRB

aTBUF

177777
001260
000200
00050¢
012560

MoV
MoV
MoV
MoV
Mov
JSR
Mov

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

LET QTBUF
CALL

TIMER

:B= #0

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

;OID IT SET

103001

BCC

$55

IF.ERROR THEN

IN TIME?

:RCVRDONE DID NOT SET

104016

ERROR

ERRHRD

IN RCSR

Cv
cvl

105077

010546
012745
004737
012605

CLRB

MOV
MoV
JSR
MOV

000454
012732

LET aTBUF

aTBUF

:B= #0

;LET OVERRUN HAPPEN

WAITMS 300.

RS.,~-(SP)
#300.,~-(RS5)
PC,WALIY
(SP)+,RS

JREAD BUFFER AND ERROR BITS

017704

032704
001002

004076
004076

104101

004102
004102
004110
004110
004114

175216

175172

MOV

040000

LET R4

dRBUF R4

BIT
BNE

#ORERR,RS
$56

ERROR

101

:= QRBUF

IT DIDN'T SET

#ORERR NOTSETIN R4

ORERR DID NOT SET IN RBUF
ERRHRD 101
:NO USE

000460

THEN

JoEXIT THIS TEST

TST13

EXIT

COMPOUNDING ERRORS

ENDIF

$56:

ENDSUB

;NOW SEE
012737

004110

032704
001002

100000

001110

IF ERROR BIT SET WITH OVERRUN

MOV

#6485 ,SLPERR

BIT
BNE

#ERROR ,R4
$57

BGNSUB
IF

ERROR:

#ERROR NOTSETIN R4

THEN

YA YAMIACATRAIAITATAITAIAIAYTAYAIAIAYIAYIAYA
YA

sOUTPUT 2ND CHARACTER

004070
004070
004074

004100
004100
004102
004102
004102

ENDIF

$55:

cvl
vt

Y AYARIAIAITA

1853
1854
1855
1856
1857
1858
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

004064
004064

SEQ 0046

AYA

1849
1850
1851
1852

004050
004050
004052
004056
004062

IAC A

1843
1844
1845
1846
1847
1848

004044
004044

10:10
PAGE 48
THE OVERRUN & ERROR BITS - RBUF

VAR

1841
1842

004044
004044

30-JUN-78
TEST

T12

004116
004116

004120
004120
004122
004122
004122
004122
004122
004130

104102

ERROR

ERROR DID NOT SET
ERRHRD 102

102

IN RBUF

;~WHEN ORERR SET.
;GET OUT NOW.

000450

TST13

;o EXIT THIS TEST

EXIT

ENDIF

$57:

ENDSUB

012737

004130

001110

MOV

#64% ,SLPERR
;CHECK REAL RBUF

BGNSUB

TO SEE

IF ORERR IS STILL SET.
IF

#ORERR NOTSETIN QRBUF

THEN

ARxACROIRAOWDACAVALARA LR YVALALAYALIACRAYAIA

1834
1835
1836
1837
1838
1839
1840

30A(1052)

ACAYALTRTAYALAYAYAYC AR

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

1939
1940

1941
1942

1943
1944
1945

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

040000

30-JUN=-78

T12

175124

ERROR

000437

PAGE 49

TEST THE OVERRUN & ERROR BITS ~ RBUF

BIT
BNE

104103

10:10

B8R

SEQ 0047

#ORERR,aRBUF
$60

103

TST13

$60:

JSEXIT THIS TEST

JREADING RBUF
ERRHRD 103

CLEARED ORERR.

:SKIP REST OF

TEST

EXIT

ENDIF

ENDSUB

012737

105077

010546
012745
013745
012745
012745
004737
012605

004152

001110

MOV

#64% ,SLPERR

BGNSUB

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

175110

CLRB

aTBUF

177777
001260
000200
000500
012560

MoV
MOV
MoV
MoV
MoV
JSR
MOV

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

JSEND A CHARACTER AROUND.
LET a8TBUF :8= #0
CALL TIMER

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

;DID IT SET IN TIME?

103003

BCC

$61

[fF.ERROR THEN

sRCVRDONE

104020

ERROR

BIT
BEQ

#ORERR ,aRBUF
$6¢

ERROR

104

$61:

004212
004212
004220

032777
001402

004222
004222

104104

040000

175042

ERRHRD 20

DID NOT

SET

IN RCSR

ENDIF

#ORERR SETIN aRBUF

THEN

;ORERR DID NOT CLEAR IN RBUF
ERRHRD 104
;=AFTER RECEIVING ANOTHER

004224
004224
004226
004226

004226
004226

;SKIP AROUND REST

000406

TST13

BIT

#ERRQOR, aRBUF

$62:

032777

100000

175026

EXIT

c2EXIT THIS TEST
ENDIF

IF #ERROR SETIN QRBUF

THEN

CHAR

cvi
cvt
AIAITARIAITALIALALAIAIALIAIAIAIAIAIAIAIRIAIAIAIAIAITAIAIAIAIAIAIA
LA

1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
191
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

30A(1052)

ALAIAIAITA

MACY11
CVDLAAO DLVIT1=~) TEST
CVOLAA P11
11-MAY-78 00:00

RO AIAIAIADIAIAIAIAIALIAY
A
A
A
A
A

JEXIT THIS TEST

TST13

ENDSUB
EXIT

PO NI RI PO A A

ENDIF

$63:

AL AR R

105

NI AN

ERROR

R AR

104105

JERROR DID NOT CLEAR IN RBUF
ERRHRD 105

004236
004236

SEQ 0048

AL M

$63

AL AN

BEQ

- RBUF

001401

000400

A AR

004234

004240
004240
004240
004240
004240

PAGE

OVERRUN & ERROR BITS

THE

10:10

30-JUN-78
TEST
T12

1946
1947
1948
1949
1950
1951
1952
1953
1954
1955

30A(1052)

CVDLAAQ DLVI1-J TEST
MACY11
CVOLAA P11
11-MAY-78 00:00

CVDLAAO DLVI1=y

CVOLAA.P11

TEST

MACY11

11-MAY-78 00:00

30A(1052)

1956

30-JUN-78

T12

10:10

TEST

PAGE 51

THE OVERRUN & ERROR BITS - RBUF

1957

1958
1959
1960
1961
1962
1963

;*TEST
ot
ot
r
ot
ot

RN R

TST13:

SCOPE
MOV
MoV

#10,8TIMES
#13,8TESTN

CLR

INTFLAG

1964

1965
1966
1967
1968
1969

}g;$

004242
004244
004252
004260

004260

1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994

004320
004320
004322
004326
004332
004336
004342

1997
1998
;883

004350
004350

2001
2002

004356

5889

004370
004370

2008
2009
2010
2011

004376
004376
004400
004404

}ggg

2003
2004
2005

004264
004264
004270
004270

004274
004274
004276
004300
004304
004310
004312
004312

004346

000004
012737
012737

000010
000013

005037

013750

001160
001200

R N R

AR T R

RN R

A A R R

A AN AR R A RN

SEQ 0049

R AN A AR AN NN

TRANSMITTER INTERRUPT LOGIC TEST
LOGICALLY THIS IS 4 SEPARATE TESTS
A) DOES TRANSMITTER INTERRUPT LOGIC WORK
B) AT PRIORITY OF 0
C) AND ONLY ONCE
D) BUT NOT WITH INTERRUPT ENABLE CLEAR
T R R N

A R N A R

R RN

P AR

R R AR AR R AN AN AR

:
2
2
!
!
l
l

NRAN

;:D0 10 ITERATIONS
;;SET TEST NUMBER IN APT MAIL BOX
;CLEAR 'INTERRUPT OCCURED'
LET

INTFLAG

cve

cvD

FLAG

:= #0

2
2
2
2
2

:GET VECTOR ADDRESS

013703

062703

010146
010301
012721
012711
012601

012737
010546
012745
013745
012745
012745
004737
012605

042777

001256

MOV

000004

(13742
000340
004320

001110

177777
001264
000200
000500
012560

000100

174706

DLVEC,R3

ADD

#4,R3

MOV
MOV
MOV
MOV
MOV

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

MOV

#64S,SLPERR

MOV
MOV
MOV
MOV
MOV
JSR
MoV

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

BIC

#XMITIE,STCSR

010546
012745
012745

000100

177777
013750

174666

BIS

MOV
MOV
MOV

:= DLVEC

LET

;FOR
:= R3

THE TRANSMITTER
+ #4

:SET VECTOR TO POINT
SETVEC R3, W#INTSRV, #PR7

TO TRANS.SRV AT PRI

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

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

;SETIT 100

SETPRI #PRO

052777

LET R3

#XMITIE,QTCSR

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

;NOW SET [.E. BIT
LET @TCSR := QTCSR SET.BY #XMITIE
CALL TIMER IN <#500,#1,#INTFLAG,#SET>

S——

2015

2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
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

004410
006414
004420
004424

004426
004426
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
004504
004504
004506
004512
004516
004522
004526

012745
012745
004737
012605

30-JUN -78

T13

000001
000500
012560

mov
mov
JSR
Mov

103001

8CC

104106

10:10
PAGE 52
TRANSMITTER INTERRUPT LOGIC

ERROR

TEST

SEQ 0050

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

[F.ERROR

$64

;DID IT SET
THEN

IN TIME?

;INTERRUPT DID NOT OCCUR

ERRHRD 106

106

ENDIF

$64:

;LET POSSIBLE 2'ND INTERR OCCUR

010546
012745
004737
012605

023727
003401

MoV
MOV
JSR
Mov

000764
012732

013750

000001

cMP

BLE

WAITMS

R5,~(SP)
#500.,-(R5)
PC,WAIT
(SP)+,R5

INTFLAG,
M

500.

;DID EXACTLY 1

INTFLAG GT #1

$65

sTRANSMITTER

104107

ERROR

004466

001110

Mov

INTERRUPTED

ERRHRD 107

107

TWICE

ENDIF

$65:

012737

INTERRUPT OCCUR

THEN

ENDSUB
; INTERRUPT WITHO UT INTERRUPT ENABLE
BGNSUB

SET

#64%,SLPERR

cCLEAR INTERRUPT ENABLE

042777

005037

005077

000100
013750

174562

174570

BIC

CLR

LET QTCSR

#XMITIE,aTCSR

LET

INTFLAG

aTBUF

004532
004534

103401

177777

013750
€00001
001000
012560

Mov
MoV
Mov
Mov
Mov
JSR
Mov

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

BCS

INTFLAG

"INTERRUPT OCCURED'
:= #0

FLAG

;NO INTERRUPTS SHOULD OCCUR, PSW STILL AT 0.
;DARE IT TO HAPPEN
LET aTBUF := #0
.SEE

010546
012745
012745
012745
012745
004737
012605

;CLEAR

:= a@TCSR CLR.BY #XMITIE

CALL

INT FLAG EVER SETS

TIMER

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

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

CvD
cvD
NIV ML NV AL NV ML ML AL PV NI N AL LMD R AL N RL AL N AL NN N ML ALY NI AL MY AL NN AL N AL A AL N ML AN MDA A N A A N AU N N NN N A

2012
2013
2014

30A(1052)

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

RESET

ERRHRD 110
BRESET

NN
RNV

(SP)
¢+ ,R1

MoV
MOV

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

CLR

PO NNV PO

000002

R1,=-(SP)
R2,-(SP)
#R3,R1
R1,R2
¥2,R2

000063

Mov
MoV
MOV
MOV
ADD
mov

JRESTORE VECTOR AREA
CLRVEC R3

ENDSUB

010146
010246
012701
010102
062702
010221
005011
012602
012601

110

(vD
cvD
PO N N

1%:

000005

ERROR

SEQ 0051

004542
004542
004544
004546
004552
004554
004560
004562
004564
004566

104110

TEST

OO RO RO

2082
2083
2084

004536
004536
004540
004540
004542

30-JUN-78
10:10
PAGE 53
T13
TRANSMITTER INTERRUPT LOGIC

rorororoNrONDrRORONO RN RO

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

30A(1052)

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

CVDLAAO DLV11=~y

CVDLAA.PI

TEST

MACY11

11-MAY-78 00:00

30A(1052)

2085

30-JUN-78

T13

TRANSMITTER

2087
2088

;*TEST 14
o

004570
004572
004600
004606

000004
012737
012737

000010
000014

001160
001200

2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112

004614
004616
004624
004626
004626
004632
004632

032737

001404
023727
001002

000020

001220

013736

000001

000137

005156

2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129

004652
004652
004660
004660

2113

2130
2131
2132
2133
2134
2135
2136
2137
2138

2139

2140

NN RN R R

2092
2093
2094
2095

2096

r
ox

2091

004606

004632
004632
004634
004640
004644
004650

004664
004664

004710
004710
004712
004716
004722
004726
004732
004736

004740

RN R R RN R

010146
013701
012721
012711
012601

012737

004660

005037

013750

042777

000100

001110

174366

SIDE OF THE INTERRUPT LOGIC
CHARACTER MODE.
R

R RN R

SCOPE
MoV
MoV

#10,$TIMES
#14,8TESTN

BIT

#WURAP, SUSWR

JMP

TST15

BEQ
CMP
BNE

010546
012745
013745
012745
012745
004737
012605

174356

177777
001266
000200
000500
012560

cvD

R1,-(SP)
DLVEC,R1
#INTSRV,(R1)+
#PR7, (R1)
(SP)+,R1

#64%,SLPERR

CLR

INTFLAG

BIC

#RCVRIE,3RCSR

MOV
MOV
MOV
MOV
MOV
JSR
MOV

R N R A P

A AN NN NN R RN AR

2
2

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

THEN

:
EXIT
ENDIF

TEST

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

;PRIORITY O AND MULTIPLE INTERRUPT TEST.-RCVRIE

MOV

CLRB

2
2

$66
CONSOL , #TRUE
$67

SETPR1 #PRO

105077

SEQ 0052

RECEIVER INTERRUPT LOGIC TEST
THIS TEST COVERS ALL OF THE RECEIVER

MoV
MOV
MOV
MOV
MOV

001256
013742
600340

TEST

R R A R AL LR R R RN AR A AN N RN ENNNNNRRRNNNNN O

$67:

004672
004704
004704

TST14:

$66:

INTERRUPT LOGIC

2086

2089
2090

N
&
PAGE 54

10:10

aTBUF

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

BGNSUB
LET

INTFLAG

:= #0

:CLEAR INTERRUPTS
LET @RCSR := @RCSR CLR.BY #RCVRIE
:CHANGE PRIORITY
:..T0 0
;SEND A CHARACTER
LET @TBUF :B= #0
WAIT A MAXIMUM
;OF 50 MSEC FOR
;XMIT RDY TO SET IN TCSR
CALL TIMER IN <#500,#RCVRDONE,TCSR,#SET>

;SET

LET @RCSR

INTERRUPT ENABLE

:= @RCSR SET.BY WRCVRIE

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

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
217
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
21N
2192
2193
2194
2195
2196

004740

052777

004746
004746
0064750
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)

114

174312

177777
013750
000001
000500
012560

BIS

#RCVRIE ,aRCSR

Mmov
Mov
Mov
MoV
Mov

RS,=-(SP)

#SET,-(RS)
#INTFLAG,=-(RS)
#1,-(RS)

JSR

PC,TIMER

Mov

103001

BCC

104111

10:10
PAGE 55
RECEIVER INTERRUPY LOGIC TEST

30-JUN-78

ERROR

023727
003401

013750

JSR

Mov

000001

CMP
BLE

106112

CALL

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

(SP)+,RS

$70

IN TIME?

;DID IT SET
IF .ERROR THEN

o INTERRUPT DID NOT OCCUR

ERRHRD 111

AR
ENDIF

sLET POSSIBLE 2'ND INTERR OCCUR

mMov
mMov

000500
012732

SLET IT COME IN.

#500,-(R5)

$70:

010546
012745
004737
012605

SEQ 0053

ERROR

WAITMS

R5,~(SP)
#500,<(RS)

500

PC,WAIT

(SP)+,RS

M
INTFLAG,
$71

;EXACTLY 1

INTERRUPT?
THEN

INTFLAG GT #1

JRECEIVER INTERRUPTED TWICE
ERRHRD 112

112

ENDIF

$71:

ENDSUB

; INTERRUPT WITHOUT IE
012737

005036

001110

Mov

#64% ,SLPERR

SET.

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

LET @TBUF

:B= #0

MACY11
CVOLAAO DLVI1-J TEST
CVOLAA P11
11-MAY-78 00:00

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

30A(1052)

5
C
30-JUN-78
10:10
PAGE 56
T14
RECEIVER INTERRUPT LOGIC TEST

SEQ 0054

. DARE IT7
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

000000
013750
000001
000500
012560

#CLR,~(RS)
#INTFLAG,-(RS)
#1,-(R5)
#500,-(RS)

PC,TIMER

103001

BCC

104113

CALL

RS,-(SP)

MoV
mov
MOV
Mov
Mov

(SP)+,RS

IF.ERROR

$72

ERROR

113

SETPRI

#PR7

017704

010146
010246
012701
010102
062702
010221
005011
012602
012601

000004

;RAISE

000002

BRESET

RS
a0LVEC,

Mov

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

CLR

Mov
Mov

ENDSUB
CPU PRICRITY

;CLEAR THE WORLD

Mov

Mov
MoV
Mov
ADD
MoV

THEN

ENDIF

RESETY

174126

;DID IT CLEAR IN TIME?

JINTERR STILL OCCURED WITH IE DISABLED
ERRHRD 113

$72:

000005

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

#R4 R

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

LET R4

:= aDLVEC

CLRVEC R4

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

CVOLAAO DLV11-J TESY
MACY11
11-MAY-78 0C:00
CVOLAA P

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
227
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289

30A(1052)

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

SATEST 15

ARaRRR

AL RARAARAR AR

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

1ST15:

$73:

000506

SCOPE

MoV
Mov

BIT
BEQ
CMpP
BNE

Rttt

TEST
AR

DATA

WRAP AROUND:

RSl

#1,8TIMES

#15,8TESTN
#WRAP,SUSWR

TST16

005002
000401

CLR
B8R

INC

CMP
BGT

R2,#377

020227
003077

010546
012745

013745
012745
012745
004737
012605

000377

Mov
Mov
Mov
MoV
MoV

177777
001264
000200
000500
012560

JSR

103002

FLAG MODE

;.00 1 ITERATION
;s SET TEST NUMBER IN APT MAIL BOX

IF #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE

THEN

EXIT

;CAN'T TEST WITHOUT A WRAP

ssEXIT THIS TEST
ENDIF

BRESET

RESET

$75:

X2}

$73
CONSOL ,#TRUE
$74

000005

005202

2222022228222

AR ARttt
Rttt

$74:

$76:

SEQ 0055

TEST

sBINARY COUNT PATTERN
INCR R2 FROM #0 TO #377 BY M1

$75

877

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

CALL

; MAKE SURE IT'S READY
TIMER

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

PC,TIMER

Mov

(SP)+,RS

BCC

$100

104123

ERROR

123

000460

TST16

$100:

IF .ERROR THEN
.

TRANSMITTER NEVER BECAME

ERRHRD 123

JoEXIT THIS TEST

READY

EXIT

ENDIF

JSTART IT ON ITS WAY

110277

173770

Mmove

R2,aTBUF

LET @TBUF

:B= R2

. NOW WAIT FOR RECIEVER DONE
CALL TIMER IN <#500,#RCVRDONE
,RCSR, #SET>

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

2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
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

005276
005300
005304
005310
005314
005320
005324
005326
005326
605330
005330
005332
005332
005334
005334
005334
005334

005340
005340
005344
005346
005346
005350

010546

012745
013745
012745
012745
004737
012605

30A(1052)

005372
005372
005374
005374
005376
005376
005376
005376
005400

005400
005400
005402
005402

115

TEST

mov
Mov
MoV
mov
mov

177777
001260
000200
000500
012560

10:10

DATA

PAGE 58

WRAP AROUND:

FLAG MODE

SEQ 0056

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

JSR

PC,TIMER

mov

(SP)+,RS

103002

BCC

$10

104124

ERROR

124

IF .ERROR

000437

TST16

THEN

ERRHRD 124
.

soEXIT THIS TEST

RECIEVER NEVER BECAME

EXIT

READY

ENDIF

$101:

JRETRIEVE

017703

032703
001401

173722

mMov

100000

BIT
BEQ

LET R3 := aRBUF

aRBUF ,R3

;CHECK FOR ERROR DURING TRANSFER
#ERROR SETIN R3 THEN

#ERROR,R3

$102

JERROR BIT SET

104200

ERROR

005350

005350
005350
005352
005354
005354
005362
005364
005364
005370

30~JUN-78

ERRHRD 200

200

ENDIF

$102:

020302
001415

032737
001006

000001

020227
002002

000200

001220

cmp
BEQ

R3,R2
$103

BIT
BNE

#BIT0,SUSWR

cMP
BGE

R2,#200

IN HIGH BYTE OF RBUF

: COMPARE DATA
R3 NE R2 THEN
IF

#BITO NOTSETIN SUSWR THEN

$104

R2 LT #200 THEN

$105

.DATA COMPARE ERR IN 7 BIT WORD

104117

ERROR

117

000416

TST16

$106

ERRHRD 117

JeEXIT THIS TEST

$105:
000402

$104:

EXIT

ENDIF

ELSE
;DATA COMP ERR

104017

ERROR

000413

TST16

ERRHRD 17

SEXIT THIS TEST

EXIT

IN 8 BIT WORD

Cv
cv

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

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

30A(1052)

F
5
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
$110
R2, 4177
$110

ELSE

IF #BITO NOTSETIN SUSWR AND R2 GT #177 THEN

;GETTING 8 BITS ON 7 BIT XMIT
JMAKE

104022

ERROR

000401

TST16

$76

$110:
$107:

000675

$77:

SURE

ERRHRD 22

JsEXIT THIS TEST
ENDIF

ENDINC

:R2

EXIT

SUSWR

SETUP CORRECTLY.

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

2367
2368
2369
2370
237
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
24609
2410
2411
2412
2613
24614
2415
2416
2617
2418
2419
2420
2421
2422

30A(1052)

30-JUN-78

115

10:10

TEST DATA

AR AR

S*TEST

WRAP AROUND:

AR Rl

PAGE 60

FLAG MODE

SEQ 0058

222220

TEST DATA WRAP AROUND:

2222222

INTERRUPT MODE

';'t'tt""'""'"i'"""""'t""""'t.ttttttttitt'tittttt't

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

1ST16:

$111:

006102

SCOPE

MoV
Mov

#1,$TIMES
#16,8TESTN

BIT
BNE
CMP
BNE

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

JMP

TST17

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

JEXIT TEST
ENDIF

$112:

;

THIS TEST WILL RUN BOTH TRANSMITTER AND

;

RECIEVER

FULL

SPEED

TESTING

.
:

THE ABILITY OF THE MODULE
TO HANDLE INTERRUPTS FROM BOTH SIDES AT ONCE.

;DOUBLE BUFFERING IS NOT FULLY TESTED BECAUSE OF
;APT

CONSIDERATIONS.

I.E.

°'BREAK'

FROM APT

:CAUSES OVERRUN ERRORS. THEREFORE TRANSMIT INTR [S
;ENABLED ONLY AFTER THE RECVR HAS OBTAINED THE LAST WORD
:
.
;

THIS TEST WILL TRANSFER A MAXIMUM OF 400(8)
CHARACTERS THROUGH THE MODULE, BUT IF AN ERROR
IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS.
;CHANGE PRIORITY

005474
005506
005506

005512
005512
005516
005516

SETPRI
013701

001256

MOV

;..T0 0

#PRO
DLVEC,R1

012721

005774

MOV

#REC,(R1)+

012721

000340

MOV

#PR7,(R1)+

LET R1

;GET VECTOR ADDRESS

:= DLVEC

LET

sRCVR VECTOR
(R1)+ := #REC

LET

(R1)¢+

:= #PR7

;POINT

005522
005522
005526
005526

005532

005532
005536
005536

005542
005542

012721

005736

Mov

#TRAN, (R1)+

012711

000340

MOV

#PR7,(R1)

005037

005732

CLR

ERRCNT

005037

005772

CLR

DATA

032737

000001

BIT

#B1TO,SUSWR

001220

TRANSMITTER VECTOR

SAND SET IT UP ALSO

LET

(R1)+

:= #TRAN

LET

(R1)

:= #PR7

; CLEAR ERROR COUNTER
LET ERRCNT := #0
LET DATA

:= #0

;XMIT DATA

If #BITO NOTSETIN SUSWR THEN

THEN

v
v

CVDLAAO DLV11-y TEST
MACY11
CVDLAA P
11-MAY-78 00:00

2423

2624
2425
2426
24627
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
00555¢
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)

H
5
30-JUN-78
10:10
PAGE 61
T16
TEST DATA WRAP AROUND:

001004

012737

000200

005734

000403
012737

$113:
000400

005734

BNE

$113

MoV

#200,NUMBER

B8R

$114

MOV

#400,NUMBER

LET NUMBER

:= #200

ELSE

LET NUMBER

:= #400

ENDIF

$114:

000005

SEQ 0059

INTERRUPT MODE

BRESET

RESET

SET UP ALL REGISTERS

JSET I.E.

052777

000100

173464

BIS

#XMITIE,aTCSR

LET @TCSR

AND

052777

000100

173452

815

#RCVRIE ,aRCSR

$115:

023737
001403
005737
003771

005772

005734

005732
$116:

LET 3RCSR

NOW WE
REPEAT

o, [
BEQ
TST
BLE

DATA,NUMBER
$116
ERRCNT
$115

UNTIL

000100

173432

BIC

#XMITIE ,aTCSR

042777

000100

173420

BIC

#RCVRIE ,aRCSR

005737
001431

005732

TST
BEQ

ERRCNT
$117

032737
001424

100000

006100

BIT
BEQ

#ERROR,RHLD
$120

032737
001402

040000

006100

BIT
BEQ

#ORERR,RHLD
$121

104220

ERROR

220

000415

$122

BIT

#FRERR,RHLD

032737
001402

020000

006100

$121:

BEQ

RECEIVER

QRCSR

SET.BY #RCVRIE

WAIT

DATA EQ NUMBER OR ERRCNT

;NOW LETS

CHECK.

LET QTCSR

:= QTCSR CLR.BY #XMITIE

LET @RCSR

:= Q@RCSR CLR.BY WRCVRIE

;TURN OFF ALL

042777

IN TRANSMITTER

:= QTCSR SET.BY #XMITIE

INTR ENABLE

IF ERRCNT NE #0 THEN
IF

#ERROR SETIN RHLD THEN

#ORERR SETIN RHLD THEN

sOVERRUN ERROR
ERRHRD 220
ELSE

#FRERR SETVIN RHLD THEN

$123

;FRAMING ERROR

cvi
cvt

(VDLAAO DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVDLAA P11

2479
2480

2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
249N
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506

2507

2508
2509
2510
251
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

1.5

PAGE 62

TEST DATA WRAP AROUND:

104221

ERROR

221

000407

$124

BIT
BEQ

#PERR,RHLD

104222

ERRNR

222

000401

$126

001402

010000

006100

$123:

$125:

104024

ERROR

INTERRUPT MODE

ERRHRD 221
ELSE

$125

005726
005726
005730
005730
005730
005730
005730
005730

000464

005732
005734

000000
000000

$120:

104120

WPERR SETIN RHLD

THEN

ELSE

;UNKNOWN ERROR
ERRHRD 24

ENDIF

ERROR

ELSE

$127

DATA COMPARE ERROR
ERRHRD 120

120

ENDIF

$127:

ENDIF

$117:
BR

ERRCNT:
NUMBER:

JPARITY ERROR
ERRHRD 222

$126:
$124:
$122:
000401

SEQ 0060

O
0

TST17

J;EXIT

EXIT
;SKIP OVER
THIS TEST

SUPPORT

ROUTINES &

STORAGE

Cv
cwvi

CVDLAAO DLVI1-y

CVDLAA.PT

TEST

MACY11

11-MAY-78 00:00

30A(1052)

2515

2516

2517

005736
005736
005736
005736
005744
005746
005752
005754
005754
005762
005762

023737
001406
005737
001003
013777

005772

005732

005772

173304

005762
005762
005770
005770

000002

005772

000000

042777

000100

173274

2564
2565

2566
2567

2568
2569
2570

:TRANSMIT

SEQ 0061

INTERRUPT HANDLER

R A R P R R R R PR R R R

CMP
BLQ
TST
BNE

DATA ,NUMBER
$130
ERRCNT
$130

MOV

DATA,aTBUF

BIC

DATA:

P AR AN E RN R AN

BGNSRV

AR AN

RN RN RN

)

TRAN

;SHIP OUT WORD
LET @TBUF := DATA

ENDIF
;STOP INTERR, NOT EXER DOUBL BUFFER
LET @TCSR := @TCSR CLR.BY #XMITIE

#XMITIE,QTCSR

ENDSRV

0
R

P N

N P R T RN T R N

P R

AR R PR AR N R R RN AR AR

AR AN RN

INTERRUPT HANDLER

005774
005774
005774

006002
006002
006010
006012
006020
006022
006022

BGNSRV

REC:
017737

173262

006100

MOV

032737
001004
023737
001411

100000

006100

005772

BIT
BNE
CMP
BEQ

$131:

aRBUF ,RHLD

005734

005772

MOV

NUMBER,DATA

042777

000100

173222

BIC

#RCVRIE ,aRCSR

006036

005237

005732

INC

ERRCNT

006042
006044

000415

$133

INC

DATA

006044
006044

006050
006050

006056
006060
006060

$132:

;:GET CHAR
LET RHLD := @RBUF
DATA THEN

#ERROR,RHLD
$131
RHLD,DATA
$132

013737

006042

REC

;CHECK ERROR
IF #ERROR SETIN RHLD OR RHLD NE

005237

005772

023737
001004

005772

005734

cmMp
BNE

DATA,NUMBER
$134

042777

000100

173172

BIC

#RCVRIE ,aRCSR

;STOP ALL INTERR PROC & GET OUT
LET DATA := NUMBER

LET @RCSR

:= @RCSR CLR.BY #RCVRIE

LET ERRCNT

:= ERRCNT + #1

ELSE
LET DATA := DATA + #1
If DATA EQ NUMBER THEN

LET BRCSR

cve

cvt
P

IF DATA NE NUMBER AND ERRCNT EQ #0 THEN

RTI

005774

006030
006030
006036

2561

;RECEIVER

2557
2558
2559
2562
2563

INTERRUPT MODE

:;ttttttttttt'ttttttt'ttt'ttittt""ttt'tttttttitttttttttttt'tttt

006022

2560

SRR R R

2555

2556

DATA WRAP AROUND:

$130:

2540

2543

005734

2541

2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554

TEST

TRAN:

2539

2542

T16

J
5
PAGE 63

10:10

‘-;tt't't"ttt't't""'tt"t't'ittttt"tt'tttittttitttttt'tt"tttt

2518

2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
gggg

30-JUN-78

:= @RCSR CLR.BY #RCVRIE

1
1
b
i
b
:
:
:
:
;
:
:
!
.
;
!
:
:

006070

006076
006076
006076
006076

05¢777

173166

INTERRUPT MODE
ELSE

$135

JALLOW NEXT XMIT INTERR

BIS

LET @TCSR

#XMITIE QTCSR

ENDIF

$135:
ENDIF

$133:
000002

006100

000000

RTI

ENDSRV

CvD
cvD

@TCSR

SET.BY

#XMITIE

NN
N N AN

N N

RHLD:

N N

006076
006076

SEQ 0062

$134:
000100

N NN N

006070

000403

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

N (N N AN N N AN

2585

006066
006066
006070

30A(1052)

N WA

257
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584

MACY11
11-MAY-78 00:00

CVDLAA. PN

TEST

N AN W

CVDLAAQ DLVI1=J

2640

2641

AR O

R R

R R AR R AR NN AR

NN WA

R R

ANROARARR AN

SET.

AND COMPARE RECEIVED WITH 0.
FRAMING ERROR WILL ALSO BE CHECKED

If ERROR BITS ARE ENABLED.

WITH BREAK

oy
13

CHAR

TEST BREAK GENERATION LOGIC
TRANSMIT KNOWN

NN AN

:;ti""i'it""'""""""'."""".'.".t't"i'."t'ii'."'t

000137
000406

$137:

023727
001002

013736

000137

006614

006156
006162
006162
006162
006162
006162
006162

012737

006170

006170
006170

005037

006612

006174
006174
006202
006202

006210
006210
006212
006216
006222
006226
006232
006236
006240
006240

006242
006242
006244

$136:

006614

000001

TST20

$140

Cmp
BNE

CONSOL ,#TRUE
$141

JMP

TST20

#WRAP NOTSETIN SUSWR OR #BRK NOTSETIN SUSWR

SEXIT TEST
ELSE

SEXIT
ENDIF

000001

173062

TEST

#6483 ,8LPERR

CLR

ERRCHK

BIS

#BREAK,aTCSR

B8GNSUB

AN O

MOV

LET ERRCHK

:= #0

000252

173056

MoV

#252,8TBUF

103001
104115

177777
001260

MOV
[ [0}
MOV

000500
012560

MOV
JSR

00020¢C

RS,~(SP)
#SET,-(RS)
RCSR,~-(RS)

MOV

#RCVRDONE
, - (RS)

MOV

(SP)+,RS5

BCC
ERROR

CLEAR ERROR WORD

:= @TCSR SET.BY #BREAK

LET @TBUF

:= #252

;WAIT

010546
012745
013745
012745
012745
004737
012605

;

;SET BREAK BIT

LET @TCSR

JNON~ZERO CHAR.

012777

THEN

ENDIF

$140:

052777

CONSOL EQ #TRUE

JCAN'T TEST CONSOLE

$141:

001110

JMP

#UWRAP,SUSWR
$136
#BRK
, SUSWR
$137

;:SET TEST NUMBER IN APT MAIL BOX

001220

BIT
BEQ
BIT
BNE

;:00 10 ITERATIONS

000010

#17,$TESTIN

001220

#10,8TIMES

MOV

000020

001200

SCOPE

MOV

032737
001404
032737
001003

000017

TST17:

AN W

001160

‘'»°

FOR DONE

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

#500,~(RS)
PC,TIMER
$142
115

000010

AN U AN AN AN UGN U

000004

012737
012737

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

s*TEST

CvD
cvo

SEQ 0063

INTERRUPT MODE

AN AN AN A

TEST DATA WRAP AROUND:

Ut AN A

2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639

2616

PAGE 65

IF.ERROR THEN

; RECIEVER DONE DID NOT SET

ERRHRD 115
ENDIF

WA U AN U

2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615

T16

10:10

2596

30-JUN-78

AN L

2586
2587
2588
2589
2590
2591
2592
2593
2594
2595

30A(1052)

MACY11
CVOLAAO DLV11=-yJ TEST
11-MAY-78 00:00
CVOLAA P11

052737

000002

006612

BIT

#PARITY,SUSWR

$144:

032737
001421

032737
001007

000002

000004

001220

BEQ

001220

BIT
BNE

N
L
L
AN L

LET ERRCHK

:= ERRCHK SET.BY #BIT1

ENDIF

IF #PARITY SETIN SUSWR THEN

$145

#EVENODD,SUSWR
$146

L
ek L

#BIT1,ERRCHK

Ll L

BIS

IF #FRERR NOTSETIN RO THEN

#FRERR,RO
$144

020000

032700
001003

ENDIF

BIT
BNE

$143:

:= ERRCHK SET.BY #BITO

#BIT0,ERRCHK

Al A

BIS

Ll U

006612

. BREAK DID NOT EQUAL 0

LET ERRCHK

;0DD PARITY ENABLED

000001

$143

IF #EVENODD NOTSETIN SUSWR THEN

BEQ

IFB RO NE #0 THEN

:= @RBUF

052737

TST8

LET RO

;BREAK SHOULD GENERATE A PARITY ERRO

006324
006324
006332
006332
006332
006332
006334
006334
006334
006340
006342
006342
006350
006350
006350
006350
006350
006350

032700
001403

010000

052737

000010

006350
006350
006352
006360
006362
006364

000005
032777
001401
104033

052737

000004

BIY

BNE
006612

#PERR,RO

010000

$147

BIS

#BIT2,ERRCHK

$150

BIT

#PERR,RO

;NO PAR ERROR WHEN

LET ERRCHK

$146:

005732

BEQ

$151

BIS

#BIT3,ERRCNT

$151:

RESET

#PERR SETIN RO THEN
LET ERRCNT

:= ERRCNT

SET.BY #BIT3

ENDIF

BRESET

BIT

#170000,aRBUF

ERROR

BEQ
1%:

ENDIF

$145:

172702

ELSE

ENDIF

$150:

170000

SHOULD

ENDIF

$147:

000406

THERE

:= ERRCHK SET.BY #BITZ2

LA U

032700
001003

IF #PERR NOTSETIN RO THEN

LA L

001403

aRBUF ,RO

LN L

105700

MOV

173012

006316
006316
006322

017700

cvo
cvd

006306
006306
006314

$142:

SEQ 0064

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

TEST BREAK GENERATION LOGIC

2662

m
S
PAGE 66

;CLEAN UP

¢RESET DID NOT CLEAR ERROR,FR ERR,OR PERR [N RBUF

Lt Gl Ll Ll Ll L

2653
2654
2655
2656
2657
2658
2659
2660
2661

006254
006254
006262
006262
006262
006262
006266
006270
006270
006276
006276
006276
006276
006304

T17

10:10

Lol Und Lt Und Ll Lt G

2652

006244
006244
006244
006250
006250
006252

30-JUN=-78

Ut Lo L

2642
2643
2644
2645
2646
2547
2648
2649
2650
2651

30A(1052)

Cad L

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

2750
2751
2752
2753

006450
006450
006452
006456
006462
006466
006472
006476
006500
006500
006502
006502
006504

104122

BIT
E Q

#BIT2,ERRCHK
$154

ERROR

235

ERRHRD 122

000004

006612

104235

IF #BIT2 SETIN ERRCHK THEN

ERRHRD

ENDIF

$154:

032737
001401

000010

006612

104236

BIT
BEQ

#BIT3,ERRCHK
$155

ERROR

236

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

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

;NO PARITY ERROR WHEN
:THERE SHOULD BE

ERRHRD 236

ENDIF

MoV

235

IF #BIT3 SETIN ERRCHK THEN

$155:
012737

FRAMING ERROR

ENDIF

$153:

032737
001401

;

THEN

;PARITY ERROR SHOULD NOT HAVE
sOCCURED WITH EVEN PARITY
;ENABLED AND BREAK SET

ENDSUB
BGNSUB

.SET BREAK BIT

LET @TCSR

:= QATCSR SET.BY #BREAK

CALL TIMER

IN <#500,#BREAK,TCSR,
ASET>

;DID IT SET?

103001

104021

BCC

$156

ERROR

NN NN

122

SETIN ERRCHK

ERROR

IF #BIT1

NN N NN

006612

000002

N NN NN

#BIT1 ERRCHK
$153

ENDIF

$152:

032737
001401

;BREAK ERROR

NN AN

BlT
BEQ

ERRHRD 121

N AN

121

N N AN N (N NN AN N AN AN

ERROR

IF #BITO SETIN ERRCHK THEN

N A

#BIT0,ERRCHK
$152

N N N AN O

104121

BIT
BEQ

N A A

006442
006442

006612

O AN N AN

006434
006434
006434
006434
006434

001401

000001

N U

006422
006422
006422
006422
006430
006432
006432

032737

SEQ 0065

CvD
cvD

[F.ERROR THEN

;BREAK DID NOT SET
ERRHRD 21
ENDIF

AN AN AN

006364
006364
006372
006374
006374
006376
006376
006376
006376
006404
006406
006406
006410
006410
006410
006410
006416
006420
006420

N
5
30-JUN-78
10:10
PAGE 67
T17
TEST BREAK GENERATION LOGIC

2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2
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

30A(1052)

AN L A

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

CVDLAAD DLVI1-) TEST
MACY11
CVOLAA.PY
11-MAY-78 00:00

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

8
6
30-JUN-78
10:10
PAGE 68
117
TEST BREAK GENERATION LOGIC

SEQ 0066

$156:

042777
010546
012745
004737
012605

017700

012777
010546
012745
013745
012745
012745
004737
012605

000001

172552

000144
012732

BIC

#BREAK,aTCSR

MOV

RS5,=(5P)

MOV
JSR

Mov

172530

000252

MOV

172526

MoV
MOV

177777
001260
000200
000500
012560

MoV
mMov
MOV
MOV
JSR

103001
104230

172462

000252

LET RO

aRBUF ,RO

104231

$157

CALL

000401

000000

ERRCHK:

:= #252

WAIT FOR DONE BIT

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

THEN

ENDIF

sWAS (HAR AFTER BREAK RECEIVED
IFB QRBUF NE #252 THEN

aRBUF ,#252
$160

;CHAR AFTER BREAK NOT RECEIVED CORRECTLY
ERRHRD 231

231

TST20
BR
.WORD 0

TO CLEAR ERRORS & REC DONE

JRECEIVER NEVER CAME READY
ERRHRD 230

230

RESEN

@RBUF

TIMER

IF.ERROR

ENDIF

$160:

000005

JREAD RBUF

s SEND CHAR

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

B8CC

ERROR

100.

LET QTBUF

#252,3TBUF

MOV

CMPB
BEQ

WAITMS

(SP)+,RS

$157:

127727
001401

BREAK BIT

:= @TCSR CLR.BY #BREAK

#100.,-(RS)
PC,WAIT

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

ERROR

CLEAR

LET @TCSR

BRESET
ENDSUB
EXIT

JEXIT THIS TEST

CVDLAAQ DLVI1-J TEST
MACY11
CVDLAA. P11
11-MAY-78 00:00

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)

30-JUN-78

seTEST 20

RARAA

000001

001160

032777
001513

010000

172306

023727
001021

014320

000001

005237

$162:

014322

#1,8TIMES

BIT

#BIT12,aSWR

BEQ

$161

CMP
BNE

PHASEZ ,#TRUE

;:D0 1

$162

<<CRLF>/

$163

TST
BNE
TYPTXT

P1CNT

INC

AR AR ARl

sttt

iRl

104401

001171

005037

001112

023727
001004

014320

005037
005237

PHASE

SUMMARY

000137

##/<CRLF>>

IF PICNT EQ #0 THEN

$164

<<CRLF>/

PHASE

SUMMARY

#+/<(CRLF>>

LET PICNT

P1CNT

:= PICNT + M

ENDIF
ENDIF

TYPTXT
TYPOCT
TYPTXT
TYPOCT
TYPTXT
TYPDEC
TYPE

<*(SR:

DLADD

<t ,VECTOR:

DLVEC

<* ERRORS:

*>
*>

$SERTTL

,SCRLF

$ERTTL

CMp
BNE

PHASEZ
, #TRUE
2
$165

014320

CLR

PHASE?2

001206

INC

SUNIT

JMP

LOOP

001732

THEN

ELSE

CLR

$165:

IF #BIT12 SETIN aSWR THEN
IF PHASEZ2 EQ NTRUE

ENDIF

$161:

000001

Rttt

ITERATION

$164:

$163:

iRl

TO LOOP

ARl

SCOPE
Mov

TYPTXT

000425

005737
001022

15120:

NOT A TEST - SEND BACK

AL AAARAAAARAAR R

000004
012737

SEQ 0067

TEST BREAK GENERATION LOGIC

MMAARAARAS 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

C
6
PAGE 69

10:10

;

RESET

FOR NEXT DEVICE/PASS

PHASE2 EQ #TRUE THEN

LET PHASE?

:= #0

LET SUNIT

:= SUNIT

ENDIF
;

BACK UP

TO THE

BEGINNING

+ M1

Cv
cv

CVOLAAO DLVI1-J TEST

CVDLAA PN

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

MACY11
11-MAY-78 00:00

30A(1052)

007112

30-JUN-78

120

000004
012737
012737

012700

000061
000021

001160
001200

TST21:

010056

SCOPE

Mmov
Mov

L [0}Y)

SEQ 0068

005020

020027
001374

010076

#1,S$TIMES

#21,8TESTN

#INTRTABLE
,RO

CLR

(RO)+

CMP
BNE

RO, #TABEND
$166

013700

001256

MOV

DLVEC,RO

012701

007536

MOV

#RCVROSRV,R1

::D00 1

ITERATION

LET RO

;CLEAR OUT INTERRUPT TABLE
:= #INTRTABLE

:;SET TEST NUMBER IN APT MAIL BOX

REPEAT

LET

(RO)+

:= #0

UNTIL RO EQ ¥TABEND

;SET PRIORITY T0O 7

SETPR] #PR7

JSET UP ALL INTERRUPT VECTORS

LET RO

:= DLVEC

LET R1

:= #RCVROSRY

REPEAT

$167:
010120

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.

$166:

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

NOT A TEST - SEND BACK TO LOOP

JeTEST 21
it
it
N

007130
007130
007134
007134
007134
007134
007136
007136
007142

PAGE 70

MODTST:
R

007112
007114
007122

10:10

MoV

R1,(RO)+

012720

000340

MoV

#PR7,(RO)+

062701

000030

ADD

#30,R1

020127
001370

010036

CMP
BNE

R1,#SRVEND
$167

LET

(RO)+

:= R

LET

(RO)+

:= #PR7

LET R1
UNTIL R1

:= R1

+ #30

EQ #SRVEND

JENABLE

INTERRUPTS ON ALL ACTIVE

LINES,

sALSO, 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

(LR

CHCNT

001254

MOV

DLADD,RO

$170:

LET CHMASK

LET CHCNT

:= MASK

:= #0

LET RO := DLADD
REPEAT

v
v

CVDLAAO DLVI1-y TEST
MACY11
CVOLAA.P11
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
293
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)

30-JUN-78
121
TEST

010076

BIT
BEQ

E
6
10:10
PAGE 71
THAT CHANNELS INTR AT ASSIGNED PRIORITY
#BIT0, CHMASK
$171

052710

000100

BIS

#B1T6,(RO)

062700

000004

ADD

#4 RO

052710

012760
162700

000100
000252

BIS
000002

MOV

000004

SuB

SEQ 0069

[F #BITO SETIN CHMASK THEN

;SET RCSR IE

LET

(RO)

LET RO

(RO)

:= RO + #4

;SET XCSR IE
LET (RO) := (RO)

#B1T6, (RO)

SET.BY #BIT6

:LOAD XBUF
LET 2(R0O) := #252

#252,2(R0O)

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

#4 RO

;LOOK FOR RCVR DONE

010546

012745
010045
012745
012745
004737
012605

o)}

177777

MOV
MOV

000200
000500
012560

MOV
MOV
JSR

MOV

CALL

RS,=-(SP)

TIMER

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

#SET,-(RS)
RO,~-(R5)

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

sDID IT SET IN TIME?

103001

8(C(

104023

ERROR

IF .ERROR THEN

$172

RCVRDONE DID NOT
ERRHRD 23

ENDIF

$171:

000010

IN RCSR

ENDIF

$172:

062700

SET

ADD

LET RO

#10,R0

:= RO + M0

;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
0014C.

013736

TST
BEQ

CONSOLE
$174

005”37

010100

INC

CHCONT

000003

$174:

LET

CHMASK

LET

CHCNT

CHMASK SHIFT -1

CHCNT

+ 11

CHCNT EQ #3 THEN
CALL

TSTCON

CONSOLE NE #0 THEN
LET

ENDIF

CHCNT

:= CHCNT

+ M1

Cv
v

CVDLAAQ DLVI1-y TEST
MACY11
11-MAY-78 00:00
CVOLAA.PI
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)

=78

TEST

10:10

THAT

F
6
PAGE 72

CHANNELS

INTR AT

ENDIF

$173:
023727
001317

010100

000004

SEQ 0070

ASSIGNED PRIORITY

CMP
BNE

UNTIL CHCNT EQ #4

#4
CHCNT,
$170

;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

LOWERED,

;INTERRUPTS S/B IN THE ORDER SHOWN IN THE
;CHANNEL IDENTIFIER TABLE (RCHO:)
007366
007366

012704

010056

Mov

007372

;SET UP POINTER FOR SERVICE ROUTINE

:= NINTRTABLE

JLET EM GO

SETPRI #PRO

007404
007404

000005

007406
007406

005037

007412
007412
007416
007416

#INTRTABLE
,R4

LET R4

RESET

010104

CLR

TCNT

005037

010102

CLR

PRIERR

012700

010056

Mov

#INTRTABLE
,RO

007422
007422
007426

012701
013737

010060
014314

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
003367

010104

010076

010104

010076

010104

MoV
mov

2$:

177777

ASR
BCC
INC

#INTRTABLE +2,R1
MASK, CHMASK

TCNT

CHMASK
1%

JSR
TST
BEQ
DEC

PC,TSTCON

DEC
BEQ
CMP
BEQ
(MP
BGT

LET

TCNT

INTERRUPTS

:= #0

;CLEAR ERR FLAG

LET PRIERR
LET RO

:= #0

:= #INTRTABLE

;SETUP EXPECTED VALUE

LET R1

:= WINTRTABLE+2

;GET # OF

CHANNELS IN TCNT

CHMASK

TST
BNE

ASL

;DISABLE ALL

BRESET

CONSOLE

;GET TOTAL CHANNEL (T

. CORRECT CHANNEL CT FOR CONSOLE

TCNT
TCNT

;APPLY

X2 MULT

TCNT

, #-1
TCNT

(R1)¢+,(RO)+
31

JALL 1°'S ?
;BR IF YES
;R1-R0
;BR IF R1>RO

FACTOR

Cvi
cvt

%8}8

007520

3020
3021
3022
3023
3024
3025
5026
3027
3028
3029
3030
3031
3032
3033
3034
3035

007524
007526
007524
007530
007532
007532

005237

005737
001401

010102

104250

INC

PRIERR

TST
BEQ

PRIERR
$175

ERROR

250

TST22

$175:
000565

30-JUuN-78
10:10
PAGE 73
T2
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY

5%:

007534
007534
007534
007534

30A(1052)

JELSE ERROR
IF

PRIERR NE

#0 THEN

ERRHRD 250
;CHANNELS DID NOT INTR ACCORDING TO
;ASSIGNED PRIORITY. THE BYTE ENTRIES
;IN INTRTABLE: SHOULD BE IN THE ORDER
:THAT THEY APPEAR IN THE CHANNEL #
.TABLE .(EXCLUDING CHANNELS NOT ACTIVE)
ENDIF
EXIT
JoEXIT

THIS

TEST

SEQ@ 0071

cve
v
(altladtamtataitutalatisaiotisadisatsaitatlaitaisdiolsististisadtatatisatisaitataiiadiaitallaitaltalla
s AN LA AN A LA N LA Ll el tad LN A Ll Ld tad Lad Gl Cad iad t s

CVOLAAO DLVI1-J TEST
MACY11
CVOLAA.PY
11-MAY-~78 00:00

3077
3078

3079
3080
3081
3082

3083
3084
3085
3086
3087
3088
3089

3090
3091

007536
007536

START OF

007572
007572
007600
007600
007606
007606
007614
007614

013724

010036

MOV

007622
007622
007630
007630
007636
007636
007644
007644

007646
007646

SERVICE

ROUTINES

RN RRRRARAARRRRRERRRR
R RRRRRRRRRR R

BGNSRV RCVROSRV
LET

RCHO, (R4)+

013737

001260

010106

Mov

RCSR,TEMP

062737

000000

010106

ADD

,OoTEHP

LET

sPUT

(R4)+

042777

000100

000322

006002

BIC

TEMP

LET TEMP

MoV

BGNSRV

TCHO, (R4) +

013737

001260

010106

Mov

RCSR,TEMP

062737

000004

010106

ADD

¥4, TEMP

042777

000100

000272

000002

BIC

:= RCSR

:= TEMP + #0

INTR IS ALL WE WANT FROM HERE
:= QTEMP (LR.BY #BIT6

LET

sPUT INTR IDENTIFIER IN INTRTABLE
(R4)+ := T(CHO

LET

TEMP

:= RCSR

LET

TEMP

;ONE

INTR IS ALL WE WANT FROM HERE

:GENERATE CSR ADDRESS

BGNSRV

TEMP + #4

:= QTEMP (LR.BY #BIT6

RCVRISRV
sPUT

MoV

INTRTABLE

ENDSRV

RTI

010040

XMITOSRV

LET QTEMP

#BIT6,ITEMP

RCVR1SRV:

013724

IDENTIFIER

:= RCHO

ENDSRV

RTI

010046

LET QTEMP

#BIT6,aTEMP

XMITOSRV:

013724

INTR

- GENERATE (SR ADDRESS

cONE

007616
007616
007616
007616

RCVROSRV:

007566
007566

RCH1, (R&4)+

03737

001260

010106

Mov

RCSR, TEMP

062737

000010

010106

ADD

#10,TEMP

INTR

IDENTIFIER

:= RCHT

LET

(R&4)+

LET

TEMP

:= R(SR

LET

TEMP

INTRTABLE

.GENERATE (SR ADDRESS
TEMP + #10

JONE INTR IS ALL WE WANT FROM HERE

042777
000002

000100

000242

BIC
RTI

XMIT1SRV:

lw/

007556
007556
007564
007564

007542
007542
097550
007550

AAL

R AR
222X22022 8 22 2]

007536
007536

LAl Ll LAl AN L

LAl tad AN LAl AN AN LA LA LA

Cve

ALARAAR

SEQ 0072

H
6
10:10
PAGE 74
THAT CHANNELS INTR AT ASSIGNED PRIORITY

LA LAl

30-JUN-78
TN
TEST

LAl LAl

3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076

30A(1052)

LET QTEMP

#BIT6,QTEMP

ENDSRV
BGNSRV

XMIT1SRY

:= QTEMP CLR.BY #BIT6

A tAl LAl Lttt

CVOLAA.PI

MACY11
11-MAY=78 00:00

CVOLAAO DLVI1=-J TEST

3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147

042777

000100

000212

000002

007702
007702
007710
007710

007716
007716
007724
007724

010042

MOV

007732
007732
007740
007740
007746
007746
007754
007754

007762
007762
007770
007770

BGNSRV

RCH2,(R&)+

013737

001260

010106

Mov

RCSR, TEMP

062737

000020

010106

ADD

#20,TEMP

JONE

INTR IS ALL WE WANT FROM HERE

042777

600100

000162

000002

BIC

;PUT INTR IDENTIFIER IN INTRTABLE
(R&4)+ := RCHZ

LET

TEMP

. GENERATE (SR ADDRESS

mov

LET QTEMP

:= RCSR

:= TEMP + #20

INTR IS ALL WE WANT FROM HERE
:= QTEMP CLR.BY #BIT6

ENDSRV

RTI

010052

:= QTEMP CLR.BY #BITé

LET

LET TEMP

#BIT6,ITEMP

BGNSRV

XMIT2SRV:

013724

TEMP + #14

RCVR2SRV

sONE

TCHZ, (R&) +

013737

001260

010106

Mov

RCSR,TEMP

062737

000024

010106

ADD

#24 TEMP

XMIT2SRvV

LET

sPUT INTR [DENTIFIER IN INTRTABLE
(R&)+ := T(CHZ

LET

TEMP

:= R(CSR

LET

TEMP

;GENERATE (SR ADDRESS
TEMP + #24

ONE INTR IS ALL WE WANT FROM HERE

042777

000100

000132

000002

BIC

010044

Mov

:= ITEMP CLR.BY #BIT6

ENDSRV

BGNSRV RCVR3SRYV

RCVR3SRV:

013724

LET QTEMP

#BIT6,QTEMP

RTI

007756
007756
007756
007756

ENDSRV

RCVRZ2SRYV:

013724

TEMP

LET QTEMP

#BIT6,ITEMP

RTI

007726
007726
007726
007726

BIC

LET

RCH3, (R4)+

013737

001260

010106

Mov

RCSR,TEMP

062737

000030

010106

ADD

#30,TEMP

NN
NN

14, TEMP

ADD

010106

N N

000014

:= RCSR

N (NN

062737

TEMP

LET

SPUT INTR IDENTIFIER IN INTRTABLE
(R4)+ := RCH3
:GENERATE CSR ADDRESS

LET TEMP

N AW (N AN

RCSR,TEMP

. GENERATE (SR ADDRESS

LET

Mmov

:= TCHI

N N

010106

(R4)+

N AN

001260

;PUT INTR IDENTIFIER IN INTRTABLE

N AN

013737

007676
007676

TCHY, (R4) ¢

cvD
cvd

N AN AN AN

Mmov

LET

SEQ 0073

N AN

007666
007666
007674
007674

010050

TEST

:= RCSR

LET TEMP := TEMP + #30

N AN WA U

007652
007652
007660
007660

013724

121

I
6
10:10
PAGE 75
THAT CHANNELS INTR AT ASSIGNED PRIORITY

3121
3122
3123
3124
3125
3126
3127
3128

007646
007646

30-JUN-78

N LN N AN N

d
b

OO O~NO
N WN—=O

D amd

ol
i

-t mad

— —

—

NN AU

N N N W

N NN

b ond

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

30A(1052)

LN LA

CVDLAAQ DLV11-y TEST
MACY11
CVDLAA P
11-MAY-78 00:00

000100

000052

BIC

000002

SRVEND:

#BI1T6,3TEMP
ENDSRV

NN
NN
NN
N
N AN
N
NN
N
N O

:= QTEMP CLR.BY #BIT6

N AN

042777

INTR IS ALL WE WANT FROM HERE

N AN

JONE

LET @TEMP

:= TEMP + #34

LET TEMP

N AN

#34,TEMP

ADD

010106

000034

N AN A

062737

:= R(CSR

RCSR,TEMP

N U

MOV

;GENERATE (SR ADDRESS

TEMP

010106

INTRTARLE

N A

001260

:= T(CH3

013737

LET

(R4)+

IDENTIFIER

LET

TCH3,(R4)+

INTR

MOV

;PUT

N O

010054

XMIT3SRvV

BGNSRV

N O

010026
010026
010034
010034
010036

ENDSRV

RTI

XMIT3SRY:
013724

:= QTEMP (CLR.BY #BIT6

000002

#BIT6,QTEMP

N AN

010012
010012
010020
010020

BIC

000102

000100

INTR IS ALL WE WANT FROM HERE

cvD
cvd

042777

LET @TEMP

SEQ 0074

Y NN

JONE

010006
010006
010006
010006

J
6
10:10
PAGE 76
THAT CHANNELS INTR AT ASSIGNED PRIORITY

3165
3166
3167
3168
3169

007776
007776
010004
010004

30-JUN-78
T21
TEST

3148
3149
3150
31N
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164

30A(1052)

A AN LN

CVOLAAO DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVOLAA P11

N W N W W

SEQ 0075

N W N AW N W NN N N NN W

JTHIS

O
1
2
3
10
11
12
13

TABLE

WILL

CONTAIN ENTRIES

JREPRESENTING EACH INTR IN THE ORDER
JTHAT

5
010056
010076

000010

010076
010100
010102
010104
010106

000000
000000
000000
000000
000000

OCCURED

S/B IN THE ABOVE ORDER

INTRTABLE:

TABEND:

.BLKW

CHMASK:
CHCNT:

.WORD 0
_WORD 0

.WORD 0

JERROR WORD,

TCNT:
TEMP:

WORD 0
WORD O

;TABLE PASS CTR
;FOR SERVICE ROUTINES

PRIERR:

;BITS 3-0 INDICATE WHICH CH'S ARE ACTIVE
;CHANNEL COUNTER
CONTAINS NO.

INTR OUT

FOR

THIS TEST

ORDER

N AN AN AN AN N N N N W

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

U AN N AN N AN O

RCHO:
RCH1:
RCHZ:
RCH3:
TCHO:
TCH:
TCHZ:
TCH3:

O A

000000
000001
000002
000003
000010
000011
000012
000013

INTRTABLE

;IN THE ORDER THAT THE INTR'S
JOCCUR., (EXCLUDING NON-ACTIVE CH'S)

W A

010036
010040
010042
010044
010046
010050
010052
010054

NN W

;**CHANNEL IDENTIFIER TABLE+*t+

;THE ENTRIES FROM THIS
;TABLE ARE PLACED IN THE

CvD
CvD

N A

3199
3200

K
6
30-JUN-78
10:10
PAGE 77
121
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY

3170
nn
3172
3173
3174
3175
3176
377
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
31N
3192
3193
3194
3195
3196
3197
3198

30A(1052)

CVDLAA PN

MACY11
11-MAY-78 00:00

L LN LN W

CVOLAAQ DLVI1-J TEST

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

30A(1052)

3201

L
6
30-JUN-78
10:10
PAGE 78
121
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY

s-Q 0076

CvD
CVD

3202

.-;tttt'tttittt"tt'ttttttttttittttittttt'ttttt'tttttttttttt"t'tt

3203
3204
3205
3206
3207
3208
3209
3210
3211
3212

JeTEST 22
it
o
ot
o*
it
NOTE:
it
Y
or
e

3
3
3
3
3
3
3
3
3
3

3213

3214
3215
3216
3217
3218
gg;g
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
ggg;

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

TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING
IN THIS WE'LL ENABLE INTERRUPTS ON ALL CHANNELS
FOR THIS DLVI1=-J. THEN WE'LL XMIT AN INCREMENTING
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
THE XMIT IE IS NOT ENABLED AGAIN UNTIL THE RECVR
HAS OBTAINED THE PREVIOUS WORD.

;.-ttt'ttttit'itt'ttt'tttttttt'tttttttt't'tt'tttttttttttttttttttti

010110
010112
010120

000004
012737
012737

000001
000022

010126
010126

005037

012500

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

012700

001160
001200

TST22:

011472

SCOPE
MOV
MOV

#1,8TIMES
#22,8TESTN

CLR

ERWRD

MOV

#CHOTAB,RO

CLR

(RO)+

CMP
8NE

RO, #STATEND
$176

$176:

005020
020027
001374

012472

012701

010772

MOV

#ROSRV,R1

013700

001256

MOV

DLVEC,RO

MOV

R1, (RO)+

$177:
010120
012720

000340

MOV

#PR7,(RO)+

062701

000054

ADD

#54 ,R1

MOV

R1,(RO)+

010120

012720

000340

MOV

#PR7, (RO)+

062701

000044

ADD

#44 ,R1

020127
001363

011472

CMP
BNE

R1,#SEREND
$177

SETPRI #PR7

::D0 1 ITERATION
;:SET TEST NUMBER IN APT MAIL BOX
;CLR ERROR WORD,
LET ERWRD := #0

;CLEAR OUT RECEIVER TABLES
LET RO := #CHOTAB

REPEAT
LET

(RO)+

:= #0

UNTIL RO EQ #STATEND

;SET UP ALL VECTORS
LET R1 := #ROSRV
LET RO := DLVEC
REPEAT

LET

(RO)+

LET (RO)+
LET RT1

:= R1
:= #PR7

:= R1

+ #54

LET (RO)+

:= R1

LET

:= #PR7

(RO)+

LET R1
UNTIL R1

:= R1

+ #44

EQ #SEREND

:SET PRIORTY TO 7

3
3
3
3
3
a
3
3
3
3
3
3
3
3
3i
3
?

3
3
3
3
3
3
3
3
3

CVDLAAQ DLVI1-J TEST
MACY11
CVOLAA.PI
11-MAY-78 00:00

3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312

010222
010222
010226
010226
010234
010234
010240
010240
010244
010244
010244
010244
010252
010254
010254
010260
010260
010264
010264
010270

010270

010274
010274
010300
010300
010302
010302
010302
010306
010306
010306
010306
010312
010312
010316
010316

010324
010326
010326
010332
010332
010336
010340
010340
010344
010344

30A(1052)

30-JUN-78

T22

10:10

PAGE

m
6
79

TEST DATA TRANSFERS WITH ALL ACTIVE LINES

INTERRUPTING

;ENABLE INTR'S ON ALL ACTIVE LINES
. THIS MODULE

013700

001254

01373/

074314

005037

012474

005037

MOV
012472

012476

DLADD,RO

MOV

MASK, CHMSK

(LR

CHCTR

(LR

ACTCH

005237

000001

012472

012476

LET

:= DLADD

JINITIALIZE

CHMSK

LET CHCTR

:= MASK

:= #0

.ACTIVE CHANNEL CTR

LET ACTCH

:= #0

REPEAT

$200:

032737
001413

LET RO

BIT
BFQ

#B1T0, CHMSK
$201

INC

ACTCH

052719

000100

BIS

#BIT6, (RO)

062700

000004

ADD

#4 RO

#BITO SETIN CHMSK THEN

;# OF ACTIVE CH

LET ACTCH

:= ACTCH + ¢

;SET RCSR IE
LET (RO) := (RO)
LET RO

:= RO + #4

;SET XCSR IE

052710

000100

BIS

#B176, (RO)

062700

000004

ADD

#4,R0

$202

ADD

#10,R0

000402
$201:

062700

000010

006237

012472

ASR

CHMSK

005237

012474

INC

CHCTR

023727

012474

CMpP

CHCTR,#3

001007

BNE

$203

004737

013662

JSR

PC,TSTCON

005737
001402

013736

TST

CONSOLE

005237

012474

$204:

(RO)

(RQ)

SET.BY #BITé

LET RO

:= RO + #4

LET RO

:= RO + #10

ELSE

ENDIF

$202:

000003

LET

SET.BY #BIT6

BEQ

$204

INC

CHCTR

LET CHMSK

:= CHMSK SHIFT -1

LET

:= CHCTR

CHCTR

+ M1

CHCTR EQ #3 THEN
CALL

TSTCON

CONSOLE NE #0 THEN
LET CHCTR

ENDIF

:= CHCTR + M

SEQ 0077

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

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

012474

000004

SEQ 0078

INTERRUPTING

ENDIF

$203:

023727
001334

LINES

cmMp
BNE

#4
CHCTR,
$200

UNTIL CHCTR tQ #4

;INIT BUFFER POINTERS FOR SERVICE ROUTINES

012700

011472

MoV

#CHOTAB.RO

012701

011672

MoV

#CH1TAB
. R1

012702

012072

Mov

#CH2TAB.R2

012703

012272

Mov

#CH3TAB,R3

LET RO

:= #CHOTAB

LET R1

:= #CHITAB

LET R2

:= #(CH2TAB

LET R3

:= #CH3TAB

sFILL 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¢
010452
010460

;START WORD CH O ALWAYS O

005037

012504

005004
012705

012506

CLR

TMPO

CLR

Mov

000001

016425

001220

#TMPOE RS

BNE

012540

Mov

TABL7(R4), (R5)+

012540

MoV

TABL7(R4), (RS)+

$207

016425

012550

MoV

TABLB(R4), (RS)+

016425

012550

Mov

TABLB(R4),(RS)+

$207:

062704

000002

ADD

#2,R&

020427
001356

000010

CMP
BNE

R4, #10

013737

012476

012526

LET RS

:= #0

TABLE

TO BE

:= #TMPOE

FILLED

REPEAT

#BIT0,SUSWR
$206

$206:

LEY R4
;PTR

BIT

000404

:= #0

JOFFSET TO INDEX

$205:

032737
001005

LET TMPO

Mov

SETPR]

$205

ACTCH, TMPS

#PRO

[F #8170 NOTSETIN SUSWR THEN
LET

(RS)+

:= TABL7(R4)

LET

(R5)+

:= TABL7(R4)

LET

(R5)+

:= TABL8(R4)

LET

(R5)+

:= TABL8(R4)

ELSE

ENDIF

LET R4

:- R4

+ ¥2

UNTIL R4 EQ #10
JINIT TMP4
;WILL BE DECR BY XMIT SERVICE ROUTINES
LET TMP4L := ACTCH

;SET PRIORITY

10 0

TILL O

CVDLAAQ OLVI1=~J TEST
MACY11
CVOLAA PN
11-MAY-78 00:00

3369
3370

337
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
3411
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)

8
30-JUN-78
10:10
PAGE 81
122
TEST DATA TRANSFERS WITH ALL

012737

012526

100060

TST
BNE

012526

LINES

Mov

TMP4
$210

#100000,TMP4

UNTIL

TMP4 EQ #0

;WAIT

FOR

LET

TMP4

RECV'S

CATCH UP

:= #100000

REPEAT

$211:

005337

012526

DEC

TMP4

005737
001373

012526

TST

TMP4

BNE

LET
UNTIL

TMP4
TMP4

TMP4

- M1

EQ #0

$211

.DISABLE ALL

000005

INTERRUPTING

REPEAT

$210:

005737
001375

ACTIVE

BRESET

RESET

INTR'S

;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

JRESET

005037

012504

013737

012506

013737
013737

CLR

TMPO

012510

Mmov

TMPOE
, TMP1

012512

012514

Mov

TMP1E, TMP2

012516

012520

MoV

TMP2E,TMP3

TMPO,1,2.3

LET TMPO

:= #0

LET TMP1

:= TMPOE

LET TMP2

:= TMPIE

LET TMP3 := TMP2E
JINITIALIZE

005037

012474

013737

014314

012472

CLR

CHCTR

Mov

MASK
, CHMSK

000001

013700

012474

006300
016002

012472

BIT
BEQ

#BITO, CHMSK

Mov

CHCTR,RO

ASL

012530

006300

CHCTR

:= #0

LET

CHMSK

:= MASK

REPEAT

$212:

032737
001436

LET

Mov

ASL

$213

TABL6(R0O)
,R2

#BI1TO SETIN CHMSK THEN
'ET RO

:= CHCTR

;OFFSET TO INDEX (2X)
LET RO :- RO SHIFT #1
;GET TABLE LOC FOR THAT (H.
LE1 R2 := TABL6(RO)
;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
v

3473
3474
3475
3476
3477
3478
3479
3480

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 RO

#2,R0

#BIT8,ERWRD

LET ERWRD

001402

005237

012500

THEN

ERWRD

SET.BY

CMPB
BEQ

(R2).R1
$216

INC

ERWRD

IFB

:= ERWRD + #1

ENDIF

:BUMP EXPECTED DATA WORD

062702

020103
001403
005737
001756

000002

012500

$217:

INC

ADD

#2.R2

cmp
BEQ
TST
BEQ

R1,R3
$217
ERWRD
$214

005237

012474

INC

CHCTIR

006237

012472

ASR

CHMSK

023727
001010

012474

CMp
BNE

CHCTR,#3
$220

004737

013667

JSR

PC,TSTCON

023727
001002

013736

cMpP
BNE

CONSOLE,#TRUE
$221

005237

000001

012474

INC
$221:

:= R1

+ #1

;BUMP TABLE PTR
LET R2 :=R2 + #2
EQ R3 OR ERWRD NE #0

ENDIF

$213:

000002

LET R1

UNTIL R1

sCHECK FOR DATA COMPARE ERROR
(R2) NE R1 THEN
LET ERWRD

$216:

005201

#BIT8

ENDIF

$215:
121201

(R2)

BIS

IF #BIT15 SETIN

012500

#BIT1S5,(R2)
$215

000400

BIT
BEQ

REPEAT

052737

TMPO(RO)
,R3

100060

:= RO + #2

;GET MAX WORD FOR THAT C(H.
LET R3 := TMPO(R0)

$274:

032712
001403

SEQ 0080

INTERRUPTING

MOV

LINES

010646
010646

012504

ACTIVE

010636
010636
010640
010642
010642
010646
010646

ADD

TRANSFERS WITH ALL

v
cvt

010622
010622
010622
010622
010626
010630
010630
010636
010636

016003

000002

DATA

7
C
PAGE 82

010616
010616

062700

10:10

3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
347
3472

010612

30-JUN-78
122
TEST

[

3425
3426

30A(1052)

CVOLAAO DLVI1-J TEST
MACY11
CVOLAA.P
11-MAY-78 00:00

LET

CHCTR

:= CHCTR + M1

LET

CHMSK

SHIFT

-1

CHCTR EQ #3 THEN
CALL

TSTCON

CONSOLE EQ #TRUE

JEXIT

LET

CHCTR
ENDIF

ENDIF

CHCTR

THEN

CHCTR

104270

270

TSTB
BEQ

ERWRD
$224

ERROR

27N

JMP

TST120

$223:
105737
001401

012500

104271

$224:

ERROR

$223

#B1T8,ERWRD

BIT
BEQ

#B1T8 SETIN ERWRD

THEN

.ERROR FLAG UP AFTER TRANSFER
ERRHRD
270
ENDIF

012500

CHCTR EQ #4 OR ERWRD NE

000460

UNTIL

$222:

#4
CHCTR,
$222
ERWRD
$212

[FB ERWRD NE #0 THEN

:DATA COMPARE ERROR
271
ERRHRD

012500

CmP
BEQ
TST
BEQ

000004

ENDIF

O
W
O
O
S
L
SN
O
Oy
Oy
S
N
O
O

JEXIT TEST

006614

000137

010766

010764
010764
010766
010766

032737
001401

012474

010754
010754
010756
010756
010756
010756
010762

023727
001403
005737
001707

SEQ 0081

vl
cvi

3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507

010744
010744
010752

$220:

INTERRUPTING

3493

010726
010726
010726
010734
010736
010742
010744

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

3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492

30A(1052)

CVOLAAO DLVI1=J TEST
MACY11
CVDLAA.PIN
11-MAY-78 00:00

AR ARl

START OF
AR

2222820

ROUTINES

ARAAAALAARR

SERVICE

Cvl

SEQ 0082

INTERRUPTING

LINES

011054
011054
011062
011062
011070
011070

ol ——
—

—

I
i

OO0OOO

011074
011074

001470

Mov

aTMP, (RO)+

061407

012504

CMP
BEQ

TMPO, TMPOE

012502

ADD

TMP + #2

LET

(RO)+

:= aTMP

TMPO NE

TMPOE

$225

THEN

;GO TO XCSR

LET

#2,THP

TMP

+ #2

;ENABLE XMIT INTERR

ELSE

$226

;ALL

DEC

TMP4

001260

012502

MoV

RCSR,TMP

062737

000006

012502

ADD

#6,TMP

013777

012504

001412

MoV

TMPO,aTMP

005237

012504

INC

TMPO

042777

000100

012502

SuB

001372

BIC

000002

RTI

R1SRV:

- M

BGNSRV XOSRV

013737

000002

TMP4

ENDSRV

RTI

XOSRV:

162737

ENDIF

$226:

000002

DONE

TMP4

012526

LET

005337

:= @TMP SET.BY #BIT6

LET @TMP

$225:

#BIT6,aTMP

000402

BIS

001444

000100

¥2,TMP

#BIT6,aTMP

052777

000002

062737

012506

TMP

017720

LET

#2,THP

ADD

R(CSR

012502

000002

TMP

062737

LET

RCSR, TMP

mov

012502

001260

013737

LET

TMP

:= R(CSR

LET

TMP

011046
011046
011046
011046

BGNSRV ROSRV

ROSRV:

LET QTMP

LET

TMPO

:= TMPO + M

LET

TMP

LET

TMPO

.60 BACK TO XCSR
:=

TMP - #2

;DISABLE XMIT INTERRUPTS,
:NOT EXER DOUBLE BUFFERING

QTMP

:= QTMP (LR.BY #BIT6

ENDSRV

BGNSRV R1SRvV

LET

TMP

:= R(SR

Pl S

011040
011040
011044
011044
011044
011044

3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563

011030
011030
011036
011036
011040

—

3546
3547
3548
3549
3550
3551
3552

011022
011022

3543
3544
3545

010772
010772
010772
010772
011000
011000
011006
011006
011012
011012
011020

ek
—h

3538
3539
3540
3541
3542

—

3537

122

—

3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536

E
10:10
PAGE 84
TEST DATA TRANSFERS WITH ALL ACTIVE

30-JUN-78

NAAALR

OO0

3508
3509
3510
351
3512

30A(1052)

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

3613
3614
3615
3616
3617
3618
3619

ADD

#12,TMP

017721

001350

012510

000100

012502

005337

TMP1,TMP1E
$227

ADD

011214
011214
011222
011222
011230
011230

$227:
012526

BIS

#BIT6,aTHP

$230

DEC

000002

011232
011232
011232
011232
011240
011240
011246
011246
011252
011252
011260

TMP

THEN

001260

012502

MoV

RCSR,TMP

062737

000016

012502

ADD

#16,TMP

013777

012510

001272

Mov

TMP1,aTMP

005237

012510

INC

TMP1

162737

000002

SuB

#2,TMP

BIC

#BIT6,aTMP

001252

000002

:- QTMP SET.BY #BIT6

ELSE

.ALL DONE
LET TMP4 :=

TMPL - M1

BGNSRV X1SRV

013737

012502

LET QTMP

I=]

[an]

TMP + #?

ENDSRV

X1SRV:

LET

TMP

LET TMP

:= RCSR
:=

TMP + M16

LET aTMP

:= TMP1

LET TMPT1

:= TMP1

+ M

.60 BACK TO XCSR
LET TMP := TMP - #2

;DISABLE XMIT INTERRUPTS,
-NOT EXER DOUBLE BUFF

LET aTMP

:= Q@TMP CLR.BY #BIT6

ENDSRV

RTI

BGNSRV R2SRV

R2SRV:

013737

001260

012502

Mov

RCSR,THMP

062737

000022

012502

ADD

#22,TMpP

017722

001230

Mmov

aTMP, (R2) ¢+

023737
001407

012514

CMP
BEQ

TMP2, TMP2E

012516

TMP1E

ENDIF

RTI

000100

;G0 TO XCSR

LET

TMP4

$230:

042777

TMP1

#2,TMP

011166

011166
011166
011166
011174
011174
011202
011202
011210
011210

;ENABLE XMIT INTERR

001324

000402

CMP
BEQ

052777

000002

aTMP, (R1)+

:= aTMP

(R1)¢+

LET

062737

012512

MOV

LET TMP := TMP + X712

012502

000012

062737

RCSR,TMP

mov

012502

001260

013737

Cvt

SEQ 0083

OO OO

F
7
30-JUN-78
10:10 PAGE 85
T 22
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING

$231

LET

TMP

RCSR

LET

TMP

TMP + #22

LET

(R2)¢+

:= aTMP

TMP2 NE TMP2E THEN

ONNONOCOON

b
s
b
d
d
d
—
b

[e AV AV, IV XV |

ek
—

—

b
nd
b

e
—

—

011160
011160
011164
011164
011164
011164

30A(1052)

3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612

bk
b
D

3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580

SN NN NN
—

CVOLAAO DLVIT1-J TEST
MACY11
11-MAY-78 00:00
CVOLAA P

052777

000100

001204

BIS

#B1T6,aTMP

$232

011342
011342
011350
011350

RCSR, TMP

062737

000026

012502

ADD

#26,TMP

013777

012514

001152

Mov

TMP2,3TMP

005237

012514

INC

TMP2

012502

SuB

n2,TMP

TMP

R(SR

LET TMP

TMP

+ #26

LET aTMP

TMP2

LET TMP2

TMP2 + M

.60 BACK TO XCSR

LET TMP

TMP - #2

;DISABLE XMIT INTERRUPTS,
;NOT EXER DOUBLE BUFF.

042777

000100

001132

BIC

000002

#BITH,aTMP

013737

001260

012502

Mov

RCSR,TMP

062737

000032

012502

ADD

#32,Tmp

017723

001110

MOV

aTMP, (R3)+

01252¢

CMP
BEQ

TMP3, TMP3E
$233

062737

000002

ADD

#2,THP

052777

000402

000100

012502
001064

:= QTMP CLR.BY #BIT6

BGNSRV R3SRV

R3SRV:

012522

LEY aTMP
ENDSRV

RTI

BIS

#BIT6,aTHP

$234

LET

TMP

RCSR

LET

TMP

TMP + #32

LET

(R3)+

o)
0
AR
S
L IR o I o iF S BV o

LET

2 E 2R 2R

MoV

012502

001260

BGNSRV X2SRV

013737

000002

TMPL - M1

ENDSRV

RTI

X2SRV:

162737

011334
011334

TMP4

ENDIF

$232:
000002

LET

TMP4

DEC

012526

005337

DONE

S AF P

;ALL

$231:

ELSE

1P LI L

000402

JENABLE XMIT INTERR
LET @TMP := QTMP SET.BY #BITé

N2, TMP

(vD
cvd

ADD

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

SEQ 0084

012502

INTERRUPTING

DIV OV i

000002

LINES

062737

011306
011306

011306
011306
011314
011314
011322
011322
011330
011330

7
9
30-JUN-78
10:10
PAGE 86
T22
TEST DATA TRANSFERS WITH ALL ACTIVE

E IV SN S

011300
011300
011304
011304
011304
011304

OOO0OCOOO0OOO0O0OO

3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675

011270
011270
011276
011276
011300

OO0

3649
3650
3651

011262
011262

QOO0

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

30A(1052)

CVDLAAQ DLVI1-) TEST
MACY11
11-MAY-78 00:00
CVOLAA PN

:= aTMpP

TMP3 NE TMP3E THEN
;60 TO XCSR
LET TMP := TMP + #¢

;ENABLE XMIT INTERR

LET @TMP
ELSE

:= QTMP SET.BY #BIT6

TRANSFERS WITH ALL

ACTIVE

o
o
X

TMPL - #1

O
A
Ol W

ENDSRV

SuB

#2,TMP

LET

.NOT

042777
000002

000100

001012

BIC

SEREND:

RTI

#BIT6,aTMP

LET @TMP
ENDSRV

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

;DISABLE XMIT
011462
011462
011470
011470
011472

TMP3 + M

IR IR IR I

TMP3

LET TMP3

INC

TMP3

EXER

012520

INTERRUPTS,

DOUBLE

BUFF

:= aTMP (LR.BY #B]T6

005237

LET @aTMP

TMP3,3TMP

TMP + #36

IV W

MoV

012520 001032

TMP

013777

LET

#36,TMP

ADD

012502

:= R(SR

LI I

000036

TMP

062737

LET

RCSR,TMP

MoV

012502

001260

013737

IR R

BGNSRV X3SRvV

X3SRV:

012502

ENDIF

RTI

000002

TMP4

DI N

TMP4

$234:

162737

LET

AR R

JALL DONE

DEC

000002

SEQ 0085

cvD
CvD

012526

INTERRUPTING

AF A

005337

LINES

3704

DATA

3697
3698
3699
3700
3701
3702
3703

011454
011454

TEST

PAGE 87

3692
3693
3694
3695
3696

011426
011426
011426
011426
011434
011434
011442
011442
011450
011450

122

10:10

$233:

011420

011420
011420
011424
011424
011424
011424

30-JUN-78

3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691

30A(1052)

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

012502

000000

TMP:

012504
012506
012510
012512
012514
012516
012520
012522

000000
000000
000000
000000
000000
000000
000000
000002

012526

200-277

100-177

ACTIVE

;CHANNEL CTR
sACTIVE

CHANNEL

;ERROR WORD,
;HIGH BYTE

CTR

LOW BYTE IS NO. OF DATA ERRORS

INDICATES

.WORD 0

;TEMP

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

;START WORD FOR CH O
WORD FOR CH O
JEND

000000

TMP4;

.WORD

012530
012532
012534
012536

011472
011672

TABLG:

CHOTAB
CH1TAB

012540
012542
012544
012546

000040
000100
000140
000200

TABL7:

012550
012552
012554
012556

000100
000200
000300
000400

TABLS:

012072

FOR

;START
JEND
:START
JEND

;START

;END

CH2TAB
CH3TAB

012272

40
100
140

;7 BIT WORD TABLE

100

;8 BIT WORD TABLE

200

200
300

400

ERROR

SERVICE

NN
2 —a

.BLKW ¢

STORAGE

CHANNELS

;MASK

300-377

;140-177

40-

.100-137

20 IR i

8 BIT WDS
0- 77

FLAG

DETECTED

ROUTINES

0
0
0
0

;7 BIT WDS
0-37
.

STATEND:
CHMSK:
.WORD
CHCTR:
.WORD
ACTCH:
.WORD
RD:
ERW
.WORD

100
100
100
100

.BLKW
.BLKW
.BLKW
.BLKW

000000
000000
000000
000000

(HOTAB:
(H1TAB:
(H2TAB:
CH3TAB:

000100
000100
000100
000100

CvD
cvD

011472
011672
012072
012272
012472
012472
012474
012476
012500

SEQ 0086

;e* RECEIVER STATUS TABLES #v

INTERRUPTING

7
1
30-JUN-78
10:10
PAGE 88
T22
TEST DATA TRANSFERS WITH ALL ACTIVE LINES

COOOOCOO

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
373
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747

30A(1052)

ElF AW

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

CVOLAAQ DLVYT=~J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00

30A(1052)

'C'

BIT

T
R
Ol R
O
O
ol LR N
AR AR R

IS SET TO INDICATE AN ERROR

BUT IT IS TESTED BY THE I[F.ERROR STATEMENT

016537

000004

012720

MOV

REG(RS) ,REGSAV

016537

000000

012722

MOV

HOWLONG
(RS) , TIMSAV

105037

012724

CLRB

FLAG

LI
I
R

TIMER <HOWLONG,WHICHBIT,REG,SETCLR>

LET

REGSAV

:= REG(RS)

;

GET POINTER TO REGIST

LET

TIMSAV

:= HOWLONG(RS)

LET

FLAG

:B= #0 ;

START

;

SAVE HOWLONG FOR

INITIALIZE

THE EXIT FLAG

ROUTINE

TIMER:

012624
012624
012632

112737

177777

012725

000006

Rk T
R

:B= #SET

;

REMEMBER THIS

ENDIF

:
012725

HOLDSC

ELSE

$242:

123765
001003

LET

CMPB
BNE

HOLDSC,SETCLR(RS)
$243

#SET,HOLDSC

Move

:B= #0

$242

HOLDSC

LET

SET

HOLDSC

NOTSETIN QREGSAV THEN

$241:

CLRB

WHICHBIT

NOW SEE

1FB

;

000403

WHICHBIT(RS),aREGSAV
$241

012725

BIT
BNE

TO SEE

WHICHBIT(RS5)

105037

000112

TEST

000002

;

THAT WAS WHAT WE WANTED

HOLDSC EQ SETCLR(RS)

JUST THE THING WE NEEDED

THEN

AR E

012614
012614
012616
012616
012616
012624
012624

LOOP

$237:

036577
001003

LOOP

012600
012600
012606
012610
012610

INFINITE

EaR A

012600
012600

012560
012560
012560
012560
012566
012566
012574
012574

o
o ¥
NOTE::
THE USE OF (RS) IS PART OF THE LINKAGE
M
MECHANISM BETWEEN THE CALLER AND THE CALLED
".".'."f"""""'I"'t""'f"'""'t"".it't"."""""ifl'

(D AR aE 2R

EITHER #SET OR #CLEAR

g;gz

QUTPUT:
THE

o
i
P

THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT
IN ANY REGISTER.
INPUTS:
HOWLONG
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

it
s
it
M
o
M
.,
o
i

3760
3761
3762

3800
3801
3802
3803

SEQ 0087

".‘i""‘.""""""."'t"'""'""ti""""".."'i'i't't"i
;* ROUTINE:TIMER

3751
3752
3753
3754
3755
3756
3757
3758
3759

3791
3792
3793
3794
3795
3796
3797
3798
3799

INTERRUPTING

CvD
cvD

37‘09
3750

3765
3766
3767
3?68
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
2780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790

3748

30-JuN-78
10:10
PAGE 89
122
TEST DATA TRANSFERS WITH ALL ACTIVE LINES

012634
012634
012642
012642
012642
012642
012650
012652
012656

112737

000001

30-JUN-78
10:10
ROUTINE - TIMER

012724

MOVB

PAGE 90

SE@ 0088
LET

#TRUE,FLAG

005737
003411

012724

000001

012722

$240

BLE

$240

TST

EXIFB

FLAG,#TRUE

CMPB
BEQ

012674
012700
012700
012702

010546
012745
004737
012605

000001
012732

005337

012722

MOV

R5,=(SP)
#1,-(RS5)

MoV

000737

$240:

JSR

PC,WAILT

Mov

(SP)+,R5

DEC

TIMSAV

$237

;

000261
000404

012720
012722
012724
012725

000000
000000
000
000

012726
012726
012726
012730
012730

123727
001001

012724

000001

000405

1).

000207

ONE WAY OR

THE

STILL HERE

TIMSAV LE #0

WAITMS

LET

TIMSAV

OTHER,

WE ARE

CMPB
BNE

$244

$235

IFB

FLAG,#TRUE

;WAIT

FOR

FLAG EQ #TRUE

ERROR

$236
.,
.
.
.

$236:
RTS

ARE

GO BACK HOME
ENDRTN

DONE

MILLI-SECONDS

;

COUNTING DOWN

CONTINUED AT

THEN

;

600D

BAD

ENDIF
RETURN

$235:

NO.ERROR

TIMSAV - #1
;

RETURN

DONE

THEN HANG AROUND A WHILE

WE RAN OUT OF TIME---ERROR ! !
THE BIT IS IN THE CORRECT CONDITION--GOOD

;

000241

IF WE ARE

ENDLOOP

$244:

REGSAV:
TIMSAV:
FLAG:
HOLDSC:

ONLY 2 WAYS TO GET HERE

2).

012702
012702
012710
012712
012712
012714
012714
012714
012714
012716

FLAG EQ #TRUE

TIMSAV

.
012660
012660
012662
012666
012672
012674

:B= #TRUE

ENDIF

$243:
123727
001474

FLAG

THE

TOP

Cvol
cvol

PSRt
SR AP aF SR R W O R R S

3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852

30A(1052)

CVDLAAQ DLVI1-y TEST
MACY11
CVDLAA P11
11-MAY-78 00:00

CVDLAAQ DLVI1-y TEST
MACY1T
CVDLAA P11
11-MAY-78 00:00

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)

30-JUN-78

ROUTINE

L
PAGE 91

10:10

TIMER

7
SEQ 0089

NRAALAAARAAARAAALA
AR
A AR ARl
22 222222222222 22222}

:* 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 TO A LIMIT,
THE INNER LOOP IS SET
TO APPROXIMATE 1 MILLI SEC.

* ¥

« %

* %

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

AAL

ROUTINE

WAIT:

016501

000000

Mov

TIME (RS),R1

012702
000402

000001

Mov

#1,R2
$247

062702

000001

ADD

#01,R2

cMpP
BHI

$251

CLR
BR

R3
$252

INC

cmMp
BGT

R3,#100
$254

3253

$250

020201
101010
005003
000401

000773
000764

$247:

$253:

005203

020327
003001

$250:

000100

$252:

$254:
$251:

sttt

WAIT

<TIME>

PUSH

<R1,R2.R3>

LET R1

ay)

TO R1

BY M1

RZ,R1

INCR R3 FROM #0 TO #100 BY "

ENDINC

ENDRTN

$245:
$246:
RTS

TIME(RS)

INCRU R2 FROM #1

POP

000207

<R3,R2,R1>

CVOLAAO DLVI1-yJ TEST
MACY11
11-MAY-78 00:00
CVOLAA 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

30A(1052)

30-JUN-78
10:10
ROUTINE - WAIT

.SBTTL

013012
013016

013020
013020

005737
001070

001252

SIZE:
1%:

013026
013032
013036

010146
012701
012721
012711
012601

000004
013742
000340

013040
013046

013737
012737

001250
000001

013054
013060
013064
013070
013072

005037
005777
005737
001003
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

013022

013142
013146
013150
013176

013200
013204
013206
013210
013214
013220
013222
013230

005737
001014

105737

010046

113700

013232

020027
003005
056037
012600
000421

013234
013272

000137

TS7

MOV

R1,-(SP)

#1LLMEM,RT
#INTSRV,(R1)+
#PR7,(R1)

MOV
Mov

$BASE, TMP6
#1,SFTREG

2%:

CLR
TSY
TST
BNE
BIS

INTFLAG
aTMPé
INTFLAG
3%
SFTREG,SDEVM

3%:

ADD
ASL
BNE

#10,TMP6
SFTREG
2%

Mov
MoV
Mov
MOV
ADD
Mov
CLR
MoV

R1,-(SP)
R2,=(SP)
#ILLMEM,
R
R1,R¢
#2,R2
R2,(R1)+
(R1)
(SP)+,R2

TST

SDEVM

BNE

013646
013644

000004
000002

MoV

001252

TYPTXT

4%:

001221
000010
013650

014514

5%:

sBR [F

INITIALLY SET

SETVEC

W#ILLMEM,#INTSRV,
APR7

;BYPASS AUTO-SIZING

(SP)+,R1

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

CLRVEC

TO GO

ILLMEM

(SP)+,R1

<<CRLF>!NO DEV

:ANYONE THERE?
cBR

YES

TEST!>

;LOOP HERE

TILL

PROBLEM FIXED

;8 RESTART AT 200

TSTB

SUSWR+1

BEQ

;BR

Mov

RO,=(SP)

: SAVE RO

MoV
BR

(SP)+,RO
6%

;RESTORE RO

TYPTXT
JMP

<<CRLF>!CONSOLE
$EOP

IN SUSWR WRONG!>
;START ALL OVER

Move
(MP
BGT
BIS

001252

SEQ 0090

THE BUS

S$DEVM

BNE

Mov

001221

TO SIZE

Mov
MoV
Mov

000777

001434

ROUTINE

PAGE 92

;SEE

IF ANY CONSOLE

NONE

SUSWR+1,R0
;GET CONSOLE DEVICE X2
RO,#10
5%
;BR If TOO HI
TABL1-2(RO) ,SDEVM
;SET CONSOLE BIT ON MAP

CVOLAAO DLV11-y TEST
MACY11
CVOLAA.PI
11-MAY-78 00:00

3950
3951
3952
3953
3954
3955
3956
3957
3958

3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
397
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

4000
4001
4002
4003
4004
4005

30A(1052)

30-JUN-78

ROUTINE

10:10

TO SIZE

THE

PAGE 93

BUS

SEQ 0091

JSTACK WILL

RESET

'LOOP!®

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
1774617
170377

007777

013634
013636
013640
013642

013356
013362
013366
013372

006237
006237
006237
006237

013636
013636
013636
013636

ASR

MASK?2

JRIGHT JUSTIFY MODULE 2 CHANNELS

013376

000337

013640

SWAB

MASK3

013402
013406
013412
013416
013422

000337
006237
006237
006237
006237

013642
013642
013642
013642
013642

ASR
ASR
ASR
ASR

SWAB

MASK4

MASKS
MASK4
MASK&4
MASK&

;

TYPTXT

<<CRLF>'WILL

MOV
MOV

#MASKT,RO
#61,M0DNUM

JINIT MOD #

MOV
8NE

(RO) +,MSK
8%

;BR IF

TYPTXT

<<CRLF>'MODULE

6%:

013426
013452
013456
013464

012700
012737
012737

013634
000061
000060

013472
013476
013500

012037
001001
000441

013650

013502
013522
013526

104401

013626

032737
00140¢2
104401

013630

013564

005237
006237
001365
012737

013632
013650

013604
013610
013616
013620

005237
023727
001325

013626
013626

013624

000207

013626
013630

000061
020040

104401

MOV

SOEVM,MASK
$DEVM,MASK?2
$DEVM,MASK]
$DEVM, MASKS

BIC
BIC
BIC
BIT

#
#
#
#

ASR
ASR
ASR

MASK?2
MASK?
MASK?

MOV

7%:

B8R

013550
013556
013560
013570
013574
013576

013626
013632

MOV
MOV
MOV

000001

000060

8$%:

013650

9% :

BIT
BEQ

TYPE

10%:

000065

11%:

JINIT CHANNEL #

.MODNUM
<!
CHANNEL

;SAVE ONLY MODULE 1 CHANNELS
:
2
:
3
;
4

TEST:'<CRLF>>

#60, CHNUM+?2

ANY THERE

JELSE TRY NEXT MODULE

#B1T0,MSK
108

;BR

;BUMP CHANNEL

, CHNUM

INC

CHNUM+2

ASR

MSK

MoV

#60, CHNUM+2

BNE

013632

IF NOT

;ELSE

TYPE

;BR

INC

MODNUM

;BUMP MQD #

(mp

MODNUM, #65

sALL DONE?

TYPE

,SCRLF

BNE

001171

000060

TYPE
TYPTXT

CA7> ,MASKT
(<360>,MASK2
(<7400>,MASK3
(<170000>,MASK4

14 3

RTS

MODNUM:

_ASCIZ2

CHNUM:

_ASCIZ

71/

IF MORE

;ELSE

;BR IF NO
JELSE

RESET

EXIT

TESTING
IT

THAT (CHANNEL

CTR

TO CHECK

CH #

VDt
cvoL
&4

4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019

013634
013636
013640
013642

000000
000000
000000
000000

013644
013646
013650

000000
000000
000000

013652
013654
013656

000010
000200
004000
100000

013660

30A(1052)

30-JUN-78

10:10

ROUTINE

TO SIZE

MASK1:
MASK?:

0
0
0
0

MASK3:

MASK&G:

SFTREG:
TMP6:
MSK:

TABL1:

THE

B
8
PAGE 94

BUS

SEQ 0092

;CONTAINS MODULE 1 CHANNELS
;
2
3

0
0
0
10

200

4000
100000

;SET SDEVM IF CONSOLE ON MODULE 1

SN0

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

CVDLAAO DLVI1=J TEST
MACY11
CVOLAA.PIN
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

30A(1052)

30-JUN-78
10:10
PAGE 95
ROUTINE TO SIZE THE BUS

.SBTTL

013662
013670
013674
013702
013704
013710

006237
023737
001403
005037

013712
013720
013726
013734

013737
012737
012737
000207

013736
013740

000000
000000

113737

000207

001221
013740
013740

013740
001206

TSTCON: MOVB
ASR
CMP
BEQ

013736
001144
000060
000001

ROUTINE

CLR

014310
014312
013736

18:

SEQ 0093

TO TEST FOR CONSOLE DEVICE

SUSWR+1,TMP?7
TMP7
TMP7,SUNIT

;GET CONSOLE INFO ONLY
;RIGHT JUSTIFY
;SEE IF UNIT UNDER TEST HAS CONSOLE

;BR

MoV
MoV
mov

$TKS,ADDRESS
#TKVEC,VECTOR
# TRUE , CONSOLE

RTS

sFLAG,

ARl

;HOLD

INTERRUPT

SERVICE

ARt

‘e
‘e

THAT THE MAIN
TO LOOK FOR.

EACH TIME IT IS CALLED.
CALLING

1= TESTING CONSOLE DEVICE

CONSOLE

022222223 222222222 X222

THIS GLOBAL ROUTINE DOES NOTHING BUT

"INTFLAG'

INFO

ROUTINE

YES

;FORCE TTY ADDRESS
H
VECTOR
JSET FLAG

INTSRV

JELSE CLEAR STALE

RTS

TMP?:

CONSOLE

CONSOLE :

.SBTTL

ROUTINE

WILL

INCREMENT

IT ASSUMES

KNOW

WHAT

";"""""'""I"""""fi""'""'""i".t"*""tiii.'i""

013742

BG??RV INTSRV
INTSRV:

013742
013742
013742
013746
013746
013750

005237
000002
000000

013750

INC
ENDSRV

INTFLAG:

RTI

;GLOBAL

JADD 1
INTFLAG

INTERRUPT SERVICE ROUTINE

TO 'INTERRUPT OCCURED'
LEY

;THAT'S ALL

FLAG

INTFLAG

INTFLAG + M1

cv
v

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

30A(1052)

4057
4058
4059
4060
4061

%~
%

013766
013774
013776
014002

023727
001013
005037
005037
012737
005037
000137

001206

000005

014006

014014
014020

014320
014316
000001

014322

013700
006300
066037
066037
017037

001206

014054
014060

013736
014314

014072

005037
005737
001004
005237
000137

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

014212

023727

PENENEN

TO THE

014320

3s:

4%:

THE

UNDER

TEST.

SRRl 2022022222222
X0

CLR

PHASE?2

;RE=INIT

CHAN
#1,SUNIT

P1CNT
SEOP

MOV

SUNIT,RO

ADD

TABL2-2(R0O) ,ADDRESS

ASL

:BR IF

;& EXIT BACK TO

;MULT BY 2 TO INDEX

INTO TABLES

TABL2-2(RO) ,VECTOR
3TABL3-2(R0) ,MASK

;ADD VECTOR OFFSET
: STORE CHANNELS IN

"MASK'
TESTED?

CONSOLE

;ADD MODULE OFFSET

MASK

;ANY

JMP

CYCLE

: TRY AGAIN

(mpP

'LOOP’

;STACK WILL GET RESET THERE.

TST

2%
SUNIT

PHASEZ , #TRUE

CHANNELS

TO BE

;BR IF YES
;ELSE BUMP UNIT #

;DOING PHASE 2?

BEQ

;BR

;ELSE,

DONE

BNE

;BR

CLR
BIT
BNE
INC
JMP

CHAN
#WRAP,SUSWR
3%
SUNIT
CYCLE

;ELSE BACK TO 0
:DOING DATA WRAP TESTS?

MoV

#TRUE ,PHASE?

CLR
JMP

Mov

014270
014270
014300

ASL
ADD
ADD
BIT
BEQ

014316

000003

CmMP

ot
—

DLV11-J

ADRS +2 T0

;DONE ALL MODULES?

Cmp

001206
013752

THE

TO POINT

TEST,

SUNIT, #5

BNE
INC

28:

VECTOR OF

ADRS

UNDER

cmp

CLR

001206

CAUSES

©OLV11-J

$BASE ,ADDRESS
$VECT1,VECTOR

ADD
Mmov

013752

MOV
Mov

CLR
JMP

S>> MNO

NN W

014
014
014

FUINT

CLR
MoV

1%:

—

014064
014066

016246
014246
014256

ROUTINE

BNE

014514

014024
014030
014032
014040
014046

THIS

AEESRAARRAARRRRA

CYCLE:

001206

TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS

ADDRESS

014310
014312

SEQ 0094

AR RARRRSRRRRRRARRARRRRRRRRRsRRts2
2202222 2R 2

Hne 0

N—=O

b
b

e
—

—

W
SN N

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

001250
001244

013737

—2

4080
4081

013737

4077
4078
4079

ROUTINE

P
NN
N

4076

.SBTTL

—

4072
4073
4074
4075

INTERRUPT SERVICE ROUTINE

013752
013760

0
8
PAGE 96

10:10

INTSRV

OO0

4062
4063
4064
4065
4066
4067
4068
4069
4070
4071

30-JUN-78

CHAN, #4

P1CNT
CYCLE

CHAN,RO

YES

ALL

CHANNELS?

:BR IF YES
;ELSE GO TO NEXT UNIT,
;8 00 IT

;G0 TO PHASE

NO PHASE 2

TESTING

RO
TABL4 (RO) ,ADDRESS
TABL4(RO) ,VECTOR
TABLS (RO) ,MASK
7$

;MULT BY 2 TO INDEX TABLE
;ADD CHANNEL OFFSET
;ADD VECTOR OFFSET
;1S THAT CHANNEL TO BE TESTED?
:BR IF NO

CHAN,#3

;IS IT CHAN 3?

v
v

6113
6114
6115
4116
4117
6118
6119
46120
O
6122
4123
6124
4125
6126
4127
4128
6129
4130
63
6132
6133
6134
4135
6136
6137
4138
4139
4140
61461
6142
4143
4144
6145
4146
6147
4148
4149
4150

30A(1052)

30-JUN-78

ROUTINE

014220
014222

001002
004737

013662

014226
014232
014236

005237
012701

000207

014316
014310

014240
0146244

005237
000137

014250
014252
014254
014256

000000
000040
000100
000140

TABL2:

014260
014262
014264
014266

013634
013636
013640
013642

TABL3:

014270

014272
014274
014276

000000
000010
000020
000030

TABL4:

014300
014302
014304
014306

0000601
000002
000004
000010

TABLS:

014310
014312
014314
014316
014320
014322

000000
000000
000000
000000
000000
000000

ADDRESS:

014316
013752

10:10

SET

E
8
PAGE 97

FOR NEXT MODULE/CHANNEL

:BR

CHAN

;BUMP CHANNEL

;60

CHAN
CYCLE

;TRY AGAIN

PC,TSTCON

5%:
6%:

INC
MOV

#ADDRESS,ADRS

7%:

INC
JMP
0

40
100
140
MASK1
MASK?2
MASK3
MASK4
O

SEE

TO PHASE

ITS

:MODULE ; CHANNEL DATA
:
;

;CHANNEL ? OFFSET

BITO
BIT1

;BIT TO TEST CHANNEL 0 PRESENT
1
.

PHASEZ:
PICNT:

O
O

TESTS

;OFFSET FOR MODULE ;

2
3

0
;CTR

TO PRINT

°'PHASE

THE

CONSOLE

CTR FOR NEXT

MASK :

CHAN:

“ELSE

10
20
30

BIT?
BIT3
VECTOR:

IF NO

SEQ 0095

BNE
JSR

RTS

ADDRESS

CVOLAAO DLVI1-J TEST
MACY11
CVOLAA.PIN
11-MAY-78 00:00

ONLY ONCE

TIME

v
Cv

4168

6169
64170

30-JUN-78
ROUTINE

10:10

TO SET

F
8
PAGE 98

UP FOR NEXT

MODULE/CHANNEL

ADDRESS

SEQ 0096

cv(
cve

014512

001176

TYPTXT
TYPOCT
TYPTXT

104401

000207

TYPOCT
TYPE

001N

<v,CSR:

$ERRPC(

DLADD
<+ VECTOR:
DLVEC

LSCRLF

$255:
$256:
RTS

o
Y

<t ,ERROR #

SITEMB,SFATAL
SFATAL
<t ,P(

;

APT FATAL

ERROR NUMBER

001114

<CCRLF>LTEST

$TESTN

113737

TYPTXT
TYPOCY
TYPTXT
move
TYPOCS
TYPTXT
TYPOCT

MYTYPE

ROUTINE

MYTYPE:

014324
014324
014324
014344
014352
014372
014400
014410
014426
014434
014452
014460
014500
014506
014512
014512

6151
6152
4153
6154
6155
6156
6157
4158
6159
4160
6161
6162
4163
6164
6165
4166
4167

30A(1052)

CVOLAAO DLVI1-J TEST
MACY11
CVOLAA.PI
11-MAY-78 00:00

»>

ENDRTN

END OF

SEQ 0097

cve

PASS ROUTINE
R

PPN

THE

PASS NUMBER

A RN

(SPASS)

;*INDICATE END-OF-PROGRAM AFTER 1

000137
001732
377
015
050040

000043

377
042412
051501

000
042116
020123

SRTNAD:

$ENULL:
SENDMG:

;.90 TO MONITOR
;:SAVE ROOM

LEAR

THE

WORLD

:;FOR

JSACTN
a(PC)+
LOOP
=1,-1,0

<15><12>/END

;sRETURN

s sNULL CHARACTER STRING

PASS

A
A
R

PC, (RO)

;:GET MONITOR ADDRESS
;;BRANCH [F NO MONITOR

CHARACTER

A NULL

ar4? RO
$DOAGN

;.00 TYPE--DECIMAL ASCII WITH SIGN

JMP
.WORD
.BYTE
ASCIZ

;o TYPE

$DOAGN:

. SENULL

PASS #'

000240
000240

RESET
JSR
NOP
NOP
NOP

;. SAVE SPASS FOR TYPEOUT

''END

$ENDAD:

BEQ

. SENDMG

;s TYPE

$PASS,~(SP)

$GETL2:

. YES
;.RESTORE COUNTER

014616
000042

TYPE
Mov
TYPDS
TYPE
Mov

:PC)+,3(PC)4

014621
001202

.WORD
$EOPCT

$DOAGN

SENDCT:

MOV

(PC)+

;. LERO THE TEST NUMBER
;;LERQO THE NUMBER OF ITERATIONS
;o INCREMENT THE PASS NUMBER
:;DON'T ALLOW A NEG. NUMBER
. .LOOP?

013700
001405
000005
004710
000240

$EOPCT:

$STSTNM
$TIMES
$PASS
#100000,8PASS

104405
104401

001202

SCOPE
CLR
CLR
INC
BIC
DEC
.WORD
BGT

104401

013746

001102
001160
001202
100000

005037
005237
042737
005327
000001
003022
012737
000001
014542

$EOP:

ISN'T JUMP TO LOOP

TP LI

000004
005037

THERE

014514
014514
014516
014522
014526
014532
014540
014542
014544
014546
014550
014552
0146554
014560
014564
014566
014572
014576
014600
014602
014604
014606
014610
014612
014612
014614
014616
014621
014626
014634

THERES A MONITOR GO 7O [T

IS A DECIMAL NUMBER)

;*]F

PASSES THRU THE PROGRAM

XXXXX

;*]F

"END PASS #XXXXX'' (WHERE

;*TYPE

R AR R RN RN AR R RN NN RR

RN R R R

;*INCREMENT

.S8TTL

END OF

10:10
PAGE 99
PASS ROUTINE

()

30-JUN-78

FaF A

Oan
4172
6173
4174
6175
6176
677
4178
4179
4180
6181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
6195
4196
6197
4198
4199
4200
6201
4202
4203
4204
4205
4206
4207
4208
4209

30A(1052)

()

CVDLAAO DLV1IT1-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PI1

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE

ROUTINE

J*NOTE:
:*NOTEZ:
;*NOTE3:

WILL

INSERT

A NUMBER QF

NULL

CHARACTERS

AFTER A

LINE

FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HARA(CTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*1) USING A TRAP INSTRUCTION

;sMESADR IS FIRST ADDRESS OF

$TPFLG
1%

;1S THERE A TERMINAL?
;.BR IF YES
JoHALT HERE IF NO TERMINAL
s sLEAVE
::SAVE RO

AN ASCIZ STRING

JMESADR

TYPE

MESADR

TYPE

c+CALL:

I
;*0R
s

015004
015010
015012
015016

010037
004737
000000
132737
001003

001157

1%:

000002
000001

001214

000100

001215

014706
015702
000040

112046

001005
005726
012600
062716
000002
122716
001430
122716
001006
005726

$TYPE:

001215

61%:
62%:
2%:

000002

608 :
3% :

000011

4%:

000200

105037

000755
004737
123726

001350
013746

BNE

MOVB

BNE
TST

MOV
ADD

RTI
(mMPB
BEQ

TYPE

$CRLF

015114
015050
001156

5%:
6%:

001154

105366

000001

105337

015050
015114

002770
004737

.WORD
BITB

CMPB
BNE
TSTY

104401

001171

TST8
BPL
HALT
BR
MoV
Mov
CMPB
B8NE
BITB
BEQ
MoV
JSR

CLRB
BR
JSR
CMPB
BNE

Mov

7%:

DECB
BLT
JSR
DECB

3%
RO,-(SP)
22(SP),RO

#APTENV,SENV

:.GET ADDRESS OF

JsRUNNING

ASCIZ STRING

IN APT MODE

62%

J:NO,GO CHECK FOR APT (CONSOLE

62%
RO,61%

2:NO,GO CHECK FOR CONSOLE
;s SETUP MESSAGE ADDRESS FOR APT

#APTSPOOL ,SENVM

PC,3ATY3

#APTCSUP,SENVM

;:SPOOL

105737
100002
000000
000430
010046
017600
122737
001011
132737
001405

SN S

'-t

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

s 2222222222222
2

RRRRRRRAe

ROUTINE

TYPE

SEG 0098

Cve

H
8
100

ROUTINE

.SBTTL
’r
e

PAGE

TYPE

10:10

30-JUN-78

Pl L

4210
&2
4212
4213
6214
6215
6216
6217
4218
4219
6220
4221
4222
4223
4224
4225
4226
6227
4228
4229
4230
4231
4232
4233
4234
4235
4236
6237
4238
4239
4240
6241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265

30A(1052)

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

MESSAGE

;. SPOOL MESSAGE

TO APT

:sMESSAGE ADDRESS

;.APT

CONSOLE

SUPPRESSED

60%

ssYES,SKIP TYPE 0QUT

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

;;BR IF IT ISN'T THE TERMINATOR
;o
IF TERMINATOR POP IT OFF THE STACK
;;RESTORE RO
;s ADJUST RETURN P
2 sRETURN
;i BRANCH IF <HT>

(RO)+,=-(SP)

gHT,(SP)

;;PUSH CHARACTER TO BE TYPED ONTO STACK

#CRLF, (SP)

;BRANCH IF NOT <CRLF>

(SP)+

;;POP

$SCHARCNT

;s CLEAR CHARACTER COUNT

PC,STYPEC
SFILLC,(SP)+

;.60 TYPE THIS CHARACTER
;. IS IT TIME FOR FILLER CHARS.?

$NULL,-(SP)
1(SP)
6%
PC,STYPEC
SCHARCNT

<CR><LF> EQUIV

:;TYPE A (R AND LF

:.GET NEXT CHARACTER

. 1F

;.GET

NO GO GET NEXT CHAR.
# OF

FILLER CHARS.

NEEDED

:.AND THE NULL CHAR.

..DO0ES A NULL NEED
.:BR IF NO--GO POP
;.60 TYPE A NULL

..D0O NOT

TO BE TYPED?
THE NULL OFF OF

COUNT AS A COUNT

STACK

a2y
R
A
R
S
aF aF o
A

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;s
1S CHARACTER A CARRIAGE RETURN?
;;BRANCH IF NO
;s YES==CLEAR CHARACTER COUNT
JEXIT
;1S CHARACTER A LINE FEED?
:;BRANCH IF YES
;:COUNT THE CHARACTER
;. CHARACTER COUNT STORAGE

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

2(SP) ,38TPB

a$TPS
$TYPEC

STACK

OFF

SPACE

;:GET NEXT CHARACTER
;:WALIT UNTIL PRINTER IS READY

;;POP

(SP)+

#7,8CHARCNT

;;REPLACE TAB WITH SPACC
;o TYPE A SPACE
;;BRANCH [F NOT AT
;. TAB STOP

000002

(mP8
BNE
CLRB
BR
1%:
(meg
BEQ
INCB
$CHARCNT
: .WORD
$TYPEX: RTS

,L(SP)

000012

8PL
MOVB

PC,STYPEC

015114

164066

000002

JSR
BITB
BNE
TST
BR
TSTB

105037
000406
122766
001402
105227
000000
000207

$TYPEC:

MOVB

000002
000015

9% :

015114

164074

116677
122766

001003

8%:

TAB PROCESSOR

132737
001372
005726
000724
105777
100375

000040
015050
000007

..LO00P

any
cvD

004737

SEG 0099

000770

112716

I
8
101

ROUTINE

;HORIZONTAL

015024
015030
015034
015042
015044
015046
015050
015054
015056
015064
015072
015074
015100
015102
015110
015112
015114
015116

PAGE

TYPE

10:10

4282
4283
4284
4285
4286
4287
4288

015022

30-JUN-78

4266
4267
4268
4269
4270
627
4272
4273
4274
4275
4276
6277
4278
4279
4280
4281

30A(1052)

(VOLAAO DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVDLAA PN

CVDLAAO DLVI1=-y TEST
MACY11
CVDLAA PN
11-MAY-78 00:00

4314
4315
4316
6317
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

PAAARA

TTY

PAGE

102

SEQ 0100

INPUT ROUTINE
N TR R

AN AR

R AR R R RN ARNARRANRORORNNNNNS

LS8
RS

AR AR

222222222

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.

;*ROUTINE

015120
015126
015130
015134
015136
015142
015146
015152
015154
015162

015164
015170
015174
015200
015202

015206
015210
015212

022737
001074
105777
100071
117746

042716
022726
001062
123727
001456
104401
104401

013746
104402
104401
005046
005046
105777

000176

001140

164010
164004
177600
000007

001134

$GTSWR:

015663

19%:

163726

7%:

015216

100375

015220
015224

117746
042716

163722
177600

015230
015234
015236
015242
015246

021627
001005

000025

9%:

015640
000006

208

015250
015254
015256
015262
015264
015272
015276
015302
015310
015312
015320
015322
015326

021627
001022
005766
001403
016677
062706

104401

062706
000757

104401

123727
001003

012777
000002
004737
021627

3$TKB,-(5P)
# C177,(sSP)
#7,(SP)+
15%
$AUTOB,
M
15%

TYPE
TYPE
MoV
TYPOC
TYPE

.SCNTLG
,SMSWR

108:

000004
000002
000006
001171
001135

000001

000100

163624

015050
000060

TRAP HANDLER,

AND WILL

163646

15%:

SWREG,
- (SP)

. SMNEW

;:SAVE THE CHAR
;:STRIP-OFF THE ASCII

1S IT A CONTROL G?
;:NO, RETURN TO USER
;. ARE WE RUNNING IN AUTO-MODE?
;;BRANCH IF YES

;;ECHO THE CONTROL-G ( G)
;s TYPE CURRENT CONTENTS
;:SAVE SWREG FOR TYPEOUT
;.60 TYPE--OCTAL ASCII(ALL DIGITS)
;;PROMPT

FOR NEW SWR

=(SP)
=(SP)
a$TKS

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

Mmove
BIC

3$TKB,-(SP)
¥ C177,(SP)

;:PICK UP CHAR

cMp
BNE
TYPE

(SP)
., #25
10%

ADD

’6,SP

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

CLR
CLR

TST8

BPL

000015

THE

Move
8IC
cmMp

BNE
CMPB
BEQ

000001

015645
015652
090176

IS ENTERED FROM

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
:*WHEN OPERATING IN TTY FLAG MODE.
$CKSWR: CMP
#SWREG,
SWR
s:1S THE SOFT-SWR SELECTED?
158
BNE
;;BRANCH IF NO
TSTB
337kKS
;;CHAR THERE?
158
BPL
;:IF NO, DON'T WAIT AROUND

4311
4312
4313

ENABL

10:10

ROUTINE

NN AR

—

4303
4304
4305
4306
4307
4308
4309
4310

INPUT

.SBTTL

4301
4302

TTY

—

4300

30-JUN-78

P o

4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299

30A(1052)

(MP
BNE
TST
BEQ
MOV
ADD
TYPE
CMPB
BNE
Mov
RTI
JSR

CMP

+SCNTLU

19%

JoMAKE IT 7-BIT ASCII

sLET'S TRY [T AGAIN
IS 1T A <CR>?

;:BRANCH

(SP),aSWR

#6,5P

+SCRLF

S$SINTAG,
M
15%
#100,387KS
PC,STYPEC

(SP),#60

J:YES, IS IT THE FIRST CHAR?
;:BRANCH IF YES
;:SAVE NEW SWR
;s CLEAR UP STACK
;:ECHO <CR> AND <LF>
;s RE-ENABLE TTY KBD INTERRUPTS?
;;BRANCH [F NOT
:;RE-ENABLE TTY KBD INTERRUPTS
;sRETURN
JsECHO CHAR

:;CHAR < 0?

CVDLAAO DLVI1-J TEST
MACY11
CVODLAA P
11-MAY-78 00:00

4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
6356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366
6367
4368
4369
4370
4371
4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
439N
4392
4393
4394
4395
4396
4397
4398
4399
4400

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)

30-JUN-78
10:10
TTY INPUT ROUTINE

000060
000002

0000G¢2
177776

17%:

001170

18%:

BIC
TST
BEQ
ASL
ASL
ASL
IN

R R

;*CALL:

it
B

015402
015404
015412
015416
015420
015426
015434
015442
015444
015450
015452
015456
015462
015466
015470
015472
015500
015502
015510
015512

015520

011646
016666
105777
100375
117766
042766
026627
001013
105777
100375
117746

042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

000004

000002

163522
177600
000004

000004
000004
000023

163526

163474

(SP)
(SP)
(SP)

.SQUES
20%

AN RN

WILL

RDCHR
RETURN

HERE

$RDCHR:

1%:

163470
177600

MOV
MOV

000021

000004

000175

000040

000004

k3 ¥

# C177,(SP)
(SP)+, 421

a$TKB,-(SP)

4% :

BLT
CMp
BGT
BIC
RT!

1%
4(SP) ,#140

CMP

43
4(SP),M75
4%
#40,4(SP)
R

R A A R T R R

;*THIS ROUTINE WILL

015630

015640

FROM

AN AR

THE

RN RN

TTY

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

: sBRANCH

;sWAIT FOR A CHARACTER
;;LOOP UNTIL ITS THERE
::GET CHARACTER

soMAKE IT 7-BIT ASCII

;1S IT A CONTROL-Q?
1F NOT DISCARD IT
;.
;. YES, RESUME
:: IS IT UPPER CASE?
; :BRANCH [F YES
;2 IS IT A SPECIAL CHAR?
;;BRANCH [F YES
;;MAKE 1T UPPER CASE
;60 BACK TO USER

R N R R R A RN

AN RN R

R NN

N AN AR AR RN RN

INPUT A STRING FROM THE TTY

A
M

RDLIN
RETURN HERE

;o INPUT A STRING FROM THE TTY
;s ADDRESS OF FIRST CHARACTER WILL BE

$SRDLIN:
1%:

MOV
MOV

;s SAVE R3
:.GET ADDRESS

010346
012703
022703

R RN R AN R AR R

CHARACTER

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

8IC
CMP

s*CALL:

015522
015524
015530

SINGLE

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

B8R

?2<CR><LF>

T R R P R A N R A A RN AR

BIC
CMP
BNE
TSTB
BPL

BNE

000140

P AN R

INPJUT

1%
a$TKkB,4 (SP)

MOVB

YES

;:SIMULATE CONTROL-U

98TKS

BPL
MOVB

;;BRANCH

JiTYPE

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

TST8B

ASCII

;:NO, SHIFT PRESENT
M
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
W
;s KEEP COUNT OF (HAR
;;SET IN NEW (HAR
;sGET THE NEXT ONE

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

ROUTINE

;STRIP=-0OFF

;1S THIS THE FIRST CHAR

2%:

000004

;;BRANCH IF YES
;:CHAR > 77
;;BRANCH IF YES

2(SP)
17%

LS8

;*THIS

SEQ 0101

.DSABL

SRR

K
8
103

18%
(SP),#67
18%
#60, (SP)+

BLT
CMP
BGT

000067

PAGE

2%:

CMP

R3,-(SP)
#STTYIN,R3

#STTYIN+8.,R3

;;TERMINATOR

WILL

;;BUFFER FULL?

BYTE

ALL

ON THE

0'S

STACK

CVDLAAO DLVI1-y TEST
MACY11
CVDLAA. P11
11-MAY-78 00:00
4401
4402
4403
4404
4405
4406
4407
4408

4409
4410
461
4412

4613
4414
4415
4416
4617
4418
4419
4420
4421
4422
4423

4424
4425
4426
4627

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

TTY

000177

10%:

001170

4%:

015626
015626
000015

3%:

INPUT

000002
000004
9%:

005015
006507
053523
000
047040
000040

ROUTINE

BLOS
RDCHR
Move
CMPB
BNE
TYPE
BR
Move
TYPE

(MPB
BNE
CLRB
TYPE

177777
001172
000004
015630

10:10

mMov
Mov
Mov
Mov
RTI

000
000012
020122

$STTYIN:
$CNTLU:
$CNTLG:
$MSWR:

.BYTE
.BYTE
.BLKB
<ASCIZ
.ASCIZ
LASCIZ

053505

$SMNEW:

LASCIZ

PAGE 104

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

SEQ 0102

J.BR IF YES
;:60 READ ONE CHARACTER FROM THE
;:GET CHARACTER
22 IS IT A RUBOUT
J.SKIP IF NOT

J:TYPE A

TTY

;sCLEAR THE BUFFER AND LOOP
;.ECHO THE CHARACTER

015 (R3)+

2%
~-1(R3)
,SLF

(SP)+,R3
(SP) ,-(SP)
4(SP),2(SP)
#STTYIN,4(SP)

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

/ G/<15><12>

<15><12>/5uWR
NEW

::CHECK FOR RETURN
;:LOOP IF NOT RETURN

::CLEAR RETURN (THE 15)
;:TYPE A LINE FEED
; ;RESTORE R3
;;ADJUST THE STACK AND PUT ADDRESS OF THE
‘e
FIRST ASCII CHARACTER ON IT
;;RETURN

;:STORAGE FOR ASCII CHAR.

TO TYPE

J:RESERVE 8 BYTES

[NPUT

::; TERMINATOR

::CONTROL ''U"

/::CONTROL "G’

FOR

TTY

CVDLAAQ DLVI1=) TEST
MACY11
11-MAY-78 00:00
CVDLAA P11
4428
6429
4430
463
4432
4433
4434
4435
4436
6437
4438
4439
4440
4641
64642
4443
4444
4445
4446
4647
4448
4449
4450
6451
4452
4453
4454
4455
4456

4457
4458

4459
4460
4461
4462
4463
4464
4465
4466
4467
4468
4469
4470

447
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481
4482
4483

30A(1052)

LI
30-JUN-78
10:10
PAGE 105
APT COMMUNICATIONS ROUTINE
.SBTTL
IR

015674
015702
015710
015712
015720
015720
015722
015724
015730
015732
015740
015742
015750
015752
015756
015764
015770
015772
015776
016000
016002
016006
016010
016014
016022
016024
016032
016040
016044
016050
016052
016052
016056
016060
016064
016066
016072
016074
016102
016110
015114
016120
016124
016130
016132
016134
016136
016137
016140

112737
112737
000403
112737
010046
010146
105737
001450
122737
001031
132737
001425
017600
062766

005737
001375
010037
105720
001376
163700
006200

010037
012737
000413
017637
062766
013746
004737
000000
105737

001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000
016142
000200
000001
000100

000001
000001

016140
016136

SATY1:
S$ATY3:

000001

016140

S$ATY4:
SATY(C:

016136
000001

001214

000100

001215

000004
000002
001176

000004

001210

1$:
2%:

001210
001212
000004

001174

000004
000002

016050
000004

177776
014636

3$:

g::

016140

108:

001214
001174

000004
000002

001174

016140
016137
016136

118:

001176
000004

12%:

APT COMMUNICATIONS ROUTINE
R

N R

$FFLG:

R R N

R A

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

RN NN NS

#1,8FFLG
:1.sanc

;:T0 REPORT FATAL ERROR
::T0 TYPE A MESSAGE

MOVB

#1,8FFLG

;:TO ONLY REPORT FATAL ERROR

MOV
MOV

RO,-(SP)
R1,-(5P)

::PUSH RO ON STACK
::PUSH R1 ON STACK

TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
TST
BNE
MoV
TSTB

BNE
SUB
ASR
MoV

ATYC

SMFLG
Ss
#APTENV,SENV
s
#APTSPOOL,SENVM
3%
a4 (SP),RO
#2.4(SP)
SMSGTYPE
1%
RO, SMSGAD
(RO) +

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

MOV

23
$MSGAD,RO
RO
RO, SMSGLGT

g:,snsctvpe

::SUB START OF MESSAGE
:;GET MESSAGE LNGTH IN WORDS
::PUT LENGTH IN MAILBOX

MOV
ADD

34 (SP) ,4$
#2,4(SP)

;:PUT MSG ADDR IN JSR LINKAGE
:;BUMP RETURN ADDRESS

B8R

MOV
JSR

177776,-(SP)
PC,STYPE

WORD

TSTB

$SFFLG

BEQ
TST
BEQ
TST
BNE

;:TELL APT TO TAKE ERROR

$FFLG
SLFLG
SMFLG

.BYTE

.BYTE
.EVEN
APTSI12E=200
APTENV=001
APTSPOOL=100

;;SHOULD REPORT FATAL ERROR?

$SMSGTYPE

CLRB
CLRB
CLRB
RTS
.BYTE

::PUSH 177776 ON STACK
::CALL TYPE MACRO

;:1F NOT:
BR
; ;RUNNING UNDER APT?
;:1F NOT:
BR
;;FINISHED LAST MESSAGE?
::1F NOT:
WAIT

34(SP) ,$FATAL
#2,4(SP)

INC

:;TELL APT TO TAKE MSG.

128
SENV
12%
$MSGTYPE
118

MoV
ADD

MOV

$LFLG:

(SP)+,R1

(SP)+,R0O

PC
0

;;GET ERROR #
::BUMP RETURN ADDR.

;:CLEAR FATAL FLAG
::CLEAR LOG FLAG
:;CLEAR MESSAGE FLAG
;:POP

CvDl
cvoL
RCH(
RCH?

MOVB
MOVB

MOV
SMFLG:

SEQ 0103

STACK

INTO R1

::POP STACK INTO RO
: tRETURN
;sMESSG. FLAG

::L0G FLAG

:sFATAL FLAG

RCH¢
RCH!

RCSF

RCVF
RCVF
RCVF
RCVF
RCVF
RCVF
RDA1
RDA1
ROA1
RDA
RDAY
RDA1
RDA1
RDA1
RDCFH
ROL]
RORF
REC
REG
REGS
RE S\
RHLL

ROSF
R1SF
R2SF
R3Sk
RSS1
SERE
SET
SET(
SFTF
SIZE
SRVE
STA(C
STAR
STAl
STKL
SWR
SWRE

Sw0
SWOC
SWO1
Sw0¢
Sw03

CVDLAAQ DLVIT=J TEST
MACY11
CVDLAA. P11
11-MAY-78 00:00
4484

000040

30A(1052)

30-JUN-78

APT

10:10

PAGE 106

COMMUNICATIONS ROUTINF

APTCSUP=040

SEQ 0104

CVDLAAQ DLV11-y TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00

30A(1052)

4435
44

.SBTTL

448?

4512
64513

4514
4515
64516
4517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538

107

9
SEQ 0105

ERROR HANDLER ROUTINE

;*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
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15=1
HALT ON ERROR
;*SW13=1
INHIBIT ERROR TYPEOUTS
;*SW10=1
BELL ON ERROR
;*SW09=1
LOOP ON ERROR

4496

4500
6501
64502
4503
4504
4505
64506
4507
4508
4509
4510
4511

::ti'tQfit"iiit"""t"""'tti'.'i""'Qttt'i"'."t'tt'i'tl't.

4488
4489
4490
44N
4492
4493
4494
4495

443;
44
4499

30-JUN-78
10:10
PAGE
ERROR HANOLER ROUTINE

s +CALL

016142

016142
0161446
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

$ERROR:

104407
105237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777

001164
001112
001116
000002
162700
020000

104401

014324
001171

001004
004737

001103
001102
002000

7$:
162762
162752
1%:
001116
001114
162712

122737
001007
113737
004737
000
000
000777
005777
100002
000000
104407
032777
001402
013716
005737
001402
013716

000001

001214

001114
015712

016262

022737
001001
000000

014602

000002

001000

20$:

22%:
2%:

162632

001110
001162

3$:

001162
000042

CKSWR
INCB
BEQ
Mov
BIT
BEQ
TYPE
INC
Mov
suB
move
BIT
BNE
JSR

21%:

162646

ERROR

5%:

6%:

TYPE

(MPB
BNE
Move
JSR
.BYTE
.BYTE
BR
TST
BPL
HALT
CKSWR
BIT
BEQ
Mov
TST
BEQ
Mov
(MpP
BNE
HALT

RTI

: ERROR=EMT AND N=ERROR

$ERFLG
7%
STSTNM,aDISPLAY
#BIT10,aSWR
1%
.$BELL
SERTTL
(SP) ,SERRPC
#2,3ERRPC
dSERRPC,SITEMB
#BIT13,aSWR
208
PC,MYTYPE
.SCRLF
#APTENV,SENV
2%
$ITEMB,21$
PC,SATYS
0
0
22%
aSWR
3%
#B1709,aSwR
48
SLPERR, (SP)
SESCAPE
5%
$ESCAPE, (SP)
#SENDAD ,an4?
6%

ITEM NUMBER

;s TEST FOR CHANGE IN SOFT-SWR
;:SET THE ERROR FLAG
;:DON'T LET THE FLAG GO TO ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
;.BELL ON ERROR?
::NO - SKIP
;;RING BELL
;s COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION
;:STRIP AND SAVE THE ERROR
;:SKIP TYPEOUT IF SET
;:SKIP TYPEQUTS
;:G0 TO USER ERROR ROUTINE

ITEM CODE

;sRUNNING IN APT MODE
::NO,SKIP APT ERROR REPORT
;.SET ITEM NUMBER AS ERROR NUMBER
; ;REPORT FATAL ERROR TO APT

:;APT ERROR LOOP
; +HALT ON ERROR
::SKIP IF CONTINUE
;:HALT ON ERROR!
;:TEST FOR CHANGE IN SOFT-SWR
;:LOOP ON ERROR SWITCH SET?
;:BR IF NO
::FUDGE RETURN FOR LOOPING
;. CHECK FOR AN ESCAPE ADDRESS
;;BR IF NONE
;;FUDGE RETURN ADDRESS FOR ESCAPE
;sACT=11 AUTO-ACCEPT?
. .BRANCH IF NO
;o YES

; ;RETURN

CVOLAAQ DLVI1=-y TEST
MACY11
11-MAY-78 00:00
CVDLAA.PY
4539
4540
456
6542
4543
4544
6545
6546
4547
4548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560
4561
4562
64563
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

30A(1052)

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

.SBTTL
AR

108

9
SEG 0106

SCOPE HANDLER ROUTINE

SRS

AR AR

ARl

itilslisdgd,

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

;*CALL
o
104407
032777
001114

$SCOPE:

040000

162566

000416

016356
016362
016370
016374
016400
0166402
016404
016410
016412
016412
016420
016422
016430
016432
016436
016440
016446
016450
016456
016460
016466
016470
016474
016500
016502
016510
016512
016516
016520
016524
016532
016534
016542
016550
016554

013746
012737
005737
012637
000463
022626
012637
000423

000004
016402
177060
000004

032777
001404
127737

000400

162520

162512

001102

001465
105737

001421
123737

101015
032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737

1%:
$XTSTR:

000004

5%:

000004

001103
001103

001000

162462

001110

001106

001103
001160
004000

SCOPE
CKSWR

BIT
BNE

78:

3%:

001202

001104
001160
000001
016620
001102
001102

001200

#BIT14,aSWR
$OVER

CODE

FOR

THE

;. TEST

XOR

Mov
Mov
TST
Mov
BR

a#ERRVEC,-(SP)
#5% ,3#ERRVEC
ar177060
(SP)+ ,#ERRVEC
$SVLAD

CmMpP

FOR CHANGE IN SOFT-SWR

:;LOOP ON PRESENT TEST?

BEQ
CMPB
BEQ

TSTB
BEQ
CMPB

(SP)+,(SP)+

1$:

ISWR,STSTNM
SOVER
$ERFLG
3%
;gRHAX.SERFLG

BIT

#BIT09,aSwWR

BEQ

MOV
BR

SLPERR,SLPADR
$OVER

CLRB
CLR

SERFLG
STIMES

BR
BIT
BNE
TST
BEQ

1%
#BIT11,aSwR
1%
$PASS
1%

INC
Cmp

001104
001104
001160

;. SCOPE=10T

BHI

4
162430

ARE:

;. YES IF SW14=1

TESTERAN#ANN

;:IF RUNNING ON THE ''XOR'' TESTER CHANGE
;. THIS INSTRUCTION TO A '*NOP'' (NOP=240)
;. SAVE THE CONTENTS OF THE ERROR VECTOR
;:SET FOR TIMEOUT
.. TIME OUT ON XOR?
:;RESTORE THE ERROR VECTOR
::G0 TO THE NEXT TEST
;:CLEAR THE STACK AFTER A TIME OUT

MoV
(SP)+,3#ERRVEC
s ;RESTORE THE ERROR VECTOR
73
BR
:.LOOP ON THE PRESENT TEST
6S:;##NANEND OF CODE FOR THE XOR TESTERANANA
BIT
gEITOB.OSUR
;;LO0OP ON SPEC. TEST?

2%:

001115

INTO DISPLAY<15:08>

THIS ROUTINE

INHIBIT ITERATIONS
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

SWANRRSTART

016354

(SERFLG)

LOOP ON TEST

;*vSW14=]

;eSW11=1
;*SW09=1
;*SW08=1

016342
016342
016344
016352

ERROR FLAG

SWITCH OPTIONS PROVIDED BY

BGE

(01"
mov
$SVLAD: INCB
MovB

$ICNT
STIMES,SICNT
$OVER

#1,$ICNT
SMXCNT,STIMES
$TSTNM
$TSTNM,STESTN

J:BR

SWR<7:0>
;0N THE RIGHT TEST?
::BR IF YES
:sHAS AN ERROR OCCURRED?
;:BR IF NO
;:MAX, ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO
;;LO0P ON ERROR?
;:8R IF NO
;.SET LOOP ADDRESS TO LAST SCOPE

::IERO THE ERROR FLAG
;;CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
s INHIBIT ITERATIONS?
..BR IF YES
;:IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
M;: INCREMENT ITERATION COUNT
;:CHECK THE NUMBER OF ITERATIONS MADE
;;BR IF MORE ITERATION REQUIRED
;oREINITIALIZE THE ITERATION COUNTER

::SET NUMBER OF ITERATIONS TO DO
;. COUNT TEST NUMBERS
:.SET TEST NUMBER IN APT MAILBOX

CVDLAAO DLVYI1-J TEST
MACY11
CVDLAA.PI
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

0D
9
10:10
PAGE 109
SCOPE HANDLER ROUTINE

30-JUN-78

$OVER:
SMXCNT:

Mmov
Mov
CLR
MovB
MoV
MOV
RTI

2000.

(SP) ,$LPADR
(SP) ,SLPERR
SESCAPE

#1,SERMAX

SEQ 0107
;:SAVE SCOPE LOOP ADDRESS
;:SAVE ERROR LOOP ADDRESS
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
;;ONLY

ALLOW ONE(1)

ERROR ON NEXT

S$TSTNM GDISPLAY ;;DISPLAY TEST NUMBER
$LPADR, (SP)
;;FUDGE RETURN ADDRESS
;. FIXES PS
;sMAX. NUMBER

ITERATIONS

TEST

CVDLAAO DLVIT1=-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PIM
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
E
10:10
PAGE 110
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

30-JUN-78

.SBTTL

SEQ 0108

v
Cv

CONVERT BINARY TO DECiMAL AND TYPE ROUTINE

PR AARAAAS

ARl

Rlal

iRl

liis

lltlis

iisdisitiliss]

:*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
s *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.

s*CALL:
;t
i

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

NUM,~(SP)

Mov
mMov
Mov
Mov
MoV
Mov
Mov
BPL
NEG
MOvB
CLR
MOV
movs
CLR
MoV

RO,-(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R5,=(SP)
#20200,-(SP)

$TYPDS:

020200
000020

000055

000001

017036
000040

1%:

2%:

017026

3%:

060105
005702
001002

4%:

105716

100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602

MoV
TYPDS

5¢:

000001
000060
000040

SuB
BLT
INC
BR

6%:
7%:

MOvVB

BIS
BIS

MovB
TST

000010

1%
RS
#'-,1(5P)
RO
#3$0BLK ,R3
' (R3¢
R2
$DTBL (RO) ,R1

R1,R5

CMP

BLTY
BGT

177777

177776

:
9%

BR
TSTB
BPL

MOV8B

CLRB

MOV
Mov
Mov

;.FORM

THIS BCD

$F
$F

DIGIT

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

;CHECK [F BCD DIGIT=0
;.FALL THROUGH IF O
JoSTILL DOING LEADING 0°'S?
:.BR IF YES

:;MSD?

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

Mov

8%:

;;PUSH RO ON STA(K
;;PUSH R1 ON STACK
;;PUSH R2 ON STACK
;;PUSH R3 ON STACK
;;PUSH R5 ON STACK
::SET BLANK SWITCH AND SIGN
:;GET THE INPUT NUMBER
;:BR IF INPUT [S POS.
; :MAKE THE BINARY NUMBER POS.
;;MAKE THE ASCI] NUMBER NEG.
;. IERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
;:SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
;:GET THE CONSTANT

;. ADD BACK THE CONSTANT

ADD
TST
BNE
TSTB
BMI
ASLB

BCC

177777

20(SP) RS

;;PUT THE BINARY NUMBER ON THE STA(CK
;.60 TO THE ROUTINE

=1(SP),=2(R3)
(RY)
(SP)+,RS
(SP)+,R3
(SP)+,R?2

;:BR IF NO
JsYES==SET THE SIGN
:sMAKE

THE

BCD

DIGIT

ASCII

J:MAKE IT A SPACE IF NOT ALREADY A DIGIT
ssPUT THIS CHARACTER IN THE OUTPUT BUFFER
2:JUST INCREMENTING
;:CHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
;:;6G0 TO EXIT
;:GET THE LSD
;.60 CHANGE TO ASCII

ssWAS THE LSD
:.BR IF NO

THE

FIRST

$F
$F
g

NON-ZERO?

JsYES-=-SET THE SIGN FOR TYPING
;sSET THE TERMINATOR
:sPOP STACK INTO RS
:;POP STACK INTO R3
::POP STACK INTO RZ

CVDLAAO DLVIt-y TEST
MACY11
PN
11-MAY-78 00:00
CVDLAA.
4659
4660
4661
4662
4663
6664
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

30A(1052)

F
9
10:10
PAGE
11
30-JUN-78
CONVERT BINARY TO DECIMAL AND

000004
$DTBL:

$DBLK:

mov
Mov
TYPE
Mov
mov
RTI

10000.
1000.
100.
10.
.BLKW

TYPE

SEQ 0109

ROUTINE

(SP)¢+,R1

;:POP STACK INTO R1

. $OBLK
2(SP),4(SP)

::NOW TYPE THE NUMBER
;;ADJUST THE STA(K

(SP)+,RO

(SP)+,(SP)

;.POP STACK

J;RETURN

INTO RO

TO USER

$F
SF
113

$F
$F

$6
$6
$6
$6
$H
$H
s

$]
$1

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

30A(1052)

4670
67N
4672
4673
4674

.SBTTL
MR

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
4723
4724
4725

BINARY TO OCTAL

SEQ 0110

(ASCII) AND TYPE

s*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

$1
$1
sL

Mmov

.BYTE

s*CALL:

o
it

TYPOS

.BYTE

IS USED

TO CHANGE

16-BIT BINARY NUMBER

NUM, - (SP)

s sNUMBER TO BE

::N=1

;s CALL

FOR

TO A 6-DIGIT

TYPED

TYPEOUT

T0 6 FOR NUMBER OF DIGITS TO TYPE

;:M=1

0RO

;:1=TYPE LEADING ZEROS
;;0=SUPPRESS LEADING ZEROS

° *

E'STVPON°-°-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
;*CALL:
st
o
B

MOV
TYPON

NUM,-(SP)

017152
017154
017156
017160

017162
017164
017166
017170
017174
017176
017202

017204
017206

017646
116637

112637

062716
000406

000000
000001
017273
000002

112737
112737
112737

000001
000006
000005

113704

017273

010346
010446
010546

005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403

017271

017271
017273
017270

$TYPOS: MOV

MOVB

MovB
ADD

$TYPOC:

$TYPON:

1%:

2%:

177770

3%:

TYPEOUT

16 BIT

NUMBER

;NUMBER TO BE TYPED
;;CALL FOR TYPEOQUT

a(SP),~-(SP)

;:PICKUP THE MODE

(SP)+,S0MODE+1
n2,(SP)

;:NUMBER OF DIGITS TO TYPE
:;ADJUST RETURN ADDRESS

1(SP),$0F[LL

$TYPON

;;LOAD 2ERO FILL

SWITCH

MOVB
MOVB
MOVB
MOV
MoV

#1,80FILL
#6,30M0DE +1
#5,80CNT
R3,-(SP)
R4 ,-(SP)

J;SET THME 2ERO FILL SWITCH
;:;SET FOR
SIA(6) DIGITS
;.SET THE ITERATION COUNT
;;SAVE R3
::SAVE R4

Hgvs
NEG
ADD
MOVB
MOVB
MOV

SEHODE*1,R4
R
#6,R4
R4, $0MODE
$OFILL,R4
12(SP) ,RS

;.GET

ROL

MOV

000006
017272
017271
000012

017272

;:NUMBER TO BE TYPED
;;CALL FOR TYPEOUT

]

;*STYPOC-~--ENTER HERE FOR
seCALL:
s
MOV
NUM,-(SP)
s
TYPOC

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

v
cv

AR RS0 RRRRRRRARAREllARRtRR2
iRl
ERR22 R
XS RRR D)

s*THIS ROUTINE

4675

4676
4677
L4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692
4693
4694
4695
4696
4697

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

CLR

ROL
ROL

RS,=-(SP)

;;SAVE RS
THE

NUMBER OF

DIGITS

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

;sPICKUP THE INPUT NUMBER
;. CLEAR THE OUTPUT WORD

::60 DO MSB

;;ROTATE

MSB

INTO ''C*

RS
RS

;:FORM THIS DIGIT

ROL
DECB
BPL
BIC
BNE

R3
$OMODE
7%
#177770,R3
4%

;:GET LSB OF THIS DIGIT
;. TYPE THIS DIGIT?
J:BR IF NO
;;GET RID OF JUNK
;:TEST FOR O

BEQ

;:BR

ROL
mov

TST

RS
RS.R3

; s SUPPRESS

YES

THIS 0?

TYPE

4726
6727
4728
4729
4730
473
4732
4733
4734
4735
4736
4737
4738
4739
4740

4741
4742
4743
L4744
6745
4746

017210
017212
017216
017222
017226
017232
017236
017240
017242
017244
017246

017250
017252
017254
017262
017264
017266
017267
017270
017271
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
10:10
PAGE 113
BINARY TO OCTAL (ASCII) AND TYPE

30-JUN-78

4%:

000060
000040
017266
017266
017270

5%:
7%:

6%:

000002

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

INC
BIS
8IS
Move
TYPE
DECB
BGT
BLT
INC
BR

MOV
MoV
MoV
MOV
MoV
RTI

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

R4
#'0,R3
£ _R3
R3,8%

.8%
$OCNT
2%
6%
R&

(SP)+,RS
{SP)+ R4

(SP)+,R3

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

OCOOOO

(VDLAAQ DLVY1=-J TEST
MACY1T
11-MAY-78 00:00
CVDLAA P11

SEQ 0111

;;DON'T SUPPRESS ANYMORE 0°'S

s MAKE

THIS DIGIT ASCII

JsMAKE ASCII

IF NOT ALREADY

v
v

$L
SL

;:SAVE FOR TYPING

;G0 TYPE THIS DIGIT

;;COUNT BY 1
;;BR IF MORE TO DO
;:BR [F DONE
;o INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT
;:RESTORE RS
;;RESTORE R4
;;RESTORE R3
JsSET THE STACK FOR RETURNING

;sRETURN
;:STORAGE FOR ASCI! DIGIT
;;TERMINATOR

FOR

TYPE

ROUTINE

;;O0CTAL DIGIT COUNTER
;;ZERO FILL SWITCH
s ;NUMBER OF DIGITS TO TYPE

CVDLAAO DLV11-J TEST
MACY11
CVDLAA.PI
11-MAY-78 00:00
L4747
4748
4749
4750
L7
475¢
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
L7
6772
4773
L4774
4775
4776
“777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789

30A(1052)

30-JUN-78

TRAP DECODER

9
I
PAGE 114

SEQ 0112

TRAP DECODER

.SBTTL
AL

10:10

AAAS AR

AR ARl

ARl Rttt
202Dt

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
;*AND USE

INDEX

THROUGH

THE

TRAP TABLE

FOR

THE

STARTING ADDRESS

;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
017274
017276
017302
017304
017306
017310
017314

010046
016600
005740

000062

006300
016000
000200

017330

STRAP:

111000

::SAVE RO

RO,=-(SP)

Mmov
MoV
TST
Movs
ASL
Mmov
RTS

2(SP),RO

-(R0O)
(RO),RO
RO
$TRPAD(RO)
,R 0
RO

::GET TRAP ADDRESS
;:BACKUP BY 2
J:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;. INDEX TO TABLE

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

RT!

.SBTTL

TRAP

s*THIS

TABLE

:;MOVE THE PC DOWN
;:MOVE

THE

PSW [COWN

;;RESTORE THE PSW

TABLE
CONTAINS

THE

STARTING

;*BY THE '‘TRAP'* INSTRUCTION.

ADDRESSES

THE

ROUTINES

CALLED

ROUTINE

017330
017332
017334
017336
017340
017342

017316
014636
017072
017046
017106
016622

017344

015170

017346
017350
017352

015120
015402
015522
000001

$TRPAD: .

JsCALL=TYPE
s CALL=TYPOC
;s CALL=TYPOS

;. CALL=TYPON
;s 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)

$GTSWR

;s CALL=GTSWR

TRAP+6(104406)

GET

$CKSWR
$RDCHR
$RDLIN

;. CALL=CKSWR
;s CALL=RDCHR
;. CALL=RDLIN

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

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

$STYPON
$TYPDS

.END

$STRAP2'

SOFT-SWR

SETTING

cve
cve

CVDLAAO DLVI1=-J

L LI

T I

1 I

TI | I T

ADDW1

ACPUOP
ACTCH
ADDRES
ADDWO

T I

ABASE
ACDW?
ACDW?

nuwnan

CVDLAA.P11

AMAMS
1=
AMAMS 2=

kHAHS3=

MAMSS
=
AMSGAD=
AMSGLG=
AMSGTY=

AMTYP1=
AMTYP2=
MTYP3=
MTYP4=

176500

000000
000000
000000
012476
014310
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000030
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
060000
000040
000001
000200

PASS =
PRIOR=
PTCSU=
PTENV=
P1SIZ=
PTSPO= 000100

SWREG= 000000

TESTN= 000000

UNIT
USWR
VECT1=
VECTZ=
I10
=

000000
001031
000300
000000
000001
BIT00 = 000001

TEST

MACY11
11-MAY-78 00:00

588#
932
932
932

3269+

4030
932
932
932
932
932
932
932
932
932
932
932
932
932
932
932
932
932
588#
932
932

932
932
932
932
932
932
932
932
932
932
932
932
932
932
932
932
932
932
4240
4233
1040
4235
932
932
932
5884

5884

932
7064

6964

30A(1052)

9
J
10:10
PAGE 116
CROSS REFERENCE TABLE =-- USER SYMBOLS

30-~JUN-78

932

947

3277+

4067+

SEQ 0113

973

3366

4080+

938
932
943
944
935
960
964

37154
4107+

4117

41434

974

967

970
954
962
965
968
940
941

$LS

934
955
963
966
969
937

4484
6440
44812
4442

945
936
939
932
932
972
2326
706

cvD
cvo

44824

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

695#

30A(1052)

705

6944
6934
6924
6914
6904
6894
688#
6874
7054
68648
6854

704
703
702
701
700
699
698
697
2657
4504
4584

144

SEQ 0114

811
810
809
808
766
765
4577
4139

760
759
758
757

2673
2683

2811
4511
4555
3434
2713
2722

4140
4141

2911
3557

2916
3577

3053
3605

3070
3625

3086
3653

3102
3673

3118
3701

3134

3150

3166

3280

3437

3490

2736

2742

2758

3477+

3483

37144

786
785

807
806

SLS

=
=
=
=
=

=
=
=
=

000200
000400
001000
000014

7044
7034
7024
7014
700#
3529
699#
6984
697#
7134

= 000010
014316
010100
012474
010076
012472
013630
011472

8214
1071+
2901+
3266
2899+
3264+
3978+
3224

1206
4073+
2949+
3300+
2907
3273
3990
3321

2600
4092
2951
3302
2947+
3296
3992«
37084

1234

1248

12951

1265

1270

2623

4095+
2959+«
3310«
2998+
3405+
3995«
3732

4105
2965
3316
3000+
3409
4005#

4112
31964
3403+
3003
3466t

4116%

4120%

41464

3412
31954
3713#

3464%

3468

3325
3327

37108
37114

3734
3735
4554

L7864

011672

012072
012272

= 104407
= 000000

013736

= 000015
= 000200

013752
005772

= 177570
001142

000174
001254

= 176500

001256
= 177570
= 000030
006612
005732

7924

3323

1218

37094

4500
7304

4526
2201

4027+
6214

4032+«
4279

628#
9134

913
1028+

1464

6224
1075
2420

832¢
9934

7264

9944
6278
7164
26200
2418+

1599

1064
40674
2449

1036
1079+
993

1082+
912
1013+
2650
2451

1231

3733

1663

1725

1787

2098

2244

2377

2608

2956

3007

3935
4103
25378

3949
4121
2551

3975

3985

4155

4250

4289

1028
1036+¢

2824
4099
2528

2556

2565+

2567

4503+

4599+

1085

1087

1090

1093

1126

1158

2832

2903

2109

2223

2403

2834

2879

3237

4165

2673+
25130

2699
2524

2706
2560+

2713
2683+

2722

2803#

40354
4289

2817
4088
2522

995

1974
1027
1014
2657+
2462

Cve
cve

812

770
769
768
767
746
745
4569
4527
2706

010000
020000
040000
100000
000004
000010
000020
000040
000100

= 000001

6844
6834
6824
681#

K
9
30-JUN-78
10:10
PAGE 117
CROSS REFERENCE TABLE =-- USER SYMBOLS

4084+

996

997

3307

3285

3473

$MA
$MA
SMA

SMA
$MA

SMA
SMA
SMA
SMA
$MB
$MC

998

3261

6163

SMF

SMN

$MS
$MS
$MS
$MS

SMT

CVDLAAQ DLVI1=J TEST
MACY11
CVOLAA.P11
11-MAY-78 00:00
ERROR =
ERRORF
ERRVEC=
ERWRD
EVENOD=

[Ex1TFL

100000
003324
000004
012500
000004

30A(1052)

757#
1477«
709#
3219+«
8204

1870
1527+«
1025
3437+«
2665

3778+«
759¢
831

3805+
2476
1063

003326

1479«

GTSWR = 104406
HOLDSC
012725

4157
1058
3790+

4160
LT84
3795+

37734
6194

3776
4248

FLAG
012724
FRERR = 020000
GNS
= wesrss |

HOWLON= 000000
HY
= 000011

I
001270
ILLMEM= 000004
INTFLA
013750

INTRTA
INTSRV
10TVEC=
LF
=
LOOP

ASK
MASKT
MASK2
MASK3
MASKG
MODNUM
MODTST
SK
MYTYPE
NUMBER
ORERR =
PARITY=
PASS
PERR
=
PHASE2
PIRQ
=
PIRQVE=
PRIERR
PRO
=
PR1
=
R2
=

R3
R¢
RS
R6
R?7

010056
013742
000020
000012
001732

014314
013634
013636
013640
013642
013626
007112
013650
014324
005734
040000
000002
003322
010000
014320
177772
000240
010102
000000
000040
000100

999#
7240
1142«
3913
2865
845
7144
6204
10744

2899
3951+
3952+
3953«
3954+«
3977+
1107
3980+
4153#
2625+
758#
8194
1472«
7608
1069+
6264
7204
2992+«
6434
644N
645#

=
=
=
=
=

000140
000200
000240
000300
000340

PS
=
Sw
=
WRVEC=
1CNT
RBUF

177776
177776

6224
6244

001262

7154
1072«
9964

000024
014322

6464
6474
648#
6494
3329'

2768

1565+«

1135+«
1130
1147
4052+
2979
113
1011
4283
2849

2998
3956%
3957+
3958«
3959+«
3985
28514
3988
4513
2430+
1853
2661
1557+«
2484
1105

3018+«
2003

30-JUN-78
10:10
PAGE 118
CROSS REFERENCE TABLE -- USER SYMBOLS
1945
1554
1026
3445+

2312
15844
1037«
3458

1572«

1576

3810
2654
2817

2824

3801

38464

4162

4289

1156+
1183
1970«

4055
2994
1982

1012+
4289
4205
3264
3976
3961s
3966%
3968+
3997+

3833

2665

2549

4560
3485

4561+
3490

4563+
3498

SEQ 0115

SMT
MY
MY
SMX
SNE

4566¢
37164

1585#

38454

4778

4779

2833

2835

4780

4781

4782

4784

4786

4787

3987

4155

1159
3903
2011

1161
3924
2035

2051«

2060

2117«

2147

2170

2193«

2202

3911+

2997
2110

3192#
3904

40494

3405

4082+

4085

4109

41454

4L007#
3962+

4128
3963+

3964+

40084

4129

40094
3969¢
3998

4130
3970+
4004
#

3971«

3972«

40104

4131

2556

2567

4090

4101+

41474

4164

(vD
cvd

2831

3993«

40144

2449

25144

2522

1890

1931

2468

1559
2669
2814

15834
2680
2841

2844t

4072+

3022
2124

31974
2401

2983

3369

3935

3949

3975

3985

4788

$NS

$NS
3332

1132

1287

1983

2111

2217

2408

2414

2876

2887

3243

3249

624

2821
1087+

2791

::3
SNW

2825
1088+

4075+
1168

4102t
1767

4148#
1849

1890

1931

1945

2309

2546

2644

2693

$0(
$OM

S0V

CVDLAAQ DLVI1=J

CVDLAA.P11
RCHO
RCH1
RCH2
RCH3

010036
010040
010042
010044

IRCSR

001260

TEST

30A(1052)

3045
3078
3110
3142

31784
31794
31804
31814
1085+«

1164

1367

1380

1383

1397«

1400

1414

1419

1620

1644

1684

1704+

1706

1746

1770

1822

1915

2120

2141«

2190«

2292

2642+

2460+

2558+

11-MAY-78 00:00

995#

30-JUN-78

10:10

m
9
PAGE 119

MACY11

CROSS REFERENCE

TABLE

-- USER SYMBOLS

RCVRDO= 000200

2570
3564

2;330

2631
3592

2776
3612

3048
3640

3065
3660

3081
3688
1747

1770

1823

1916

2135

2293

2632

2777

IRCVRIE= 000100

zgggc

;zgg

1380

1383

1397

1400

1414

1419

2120

2141

2190

2442

2460

RCVROS

2881

30424

007536

007616
007676
007756
000001
000002
000004
000010
000020
000040
000100
000200
104410
104411

7524
2406
3773
3774
7104
2465
3235
3562#

011352
001332
011472
177777

36584
10014
3253
7294
1990

000006
013644
013012
010036

STACK =
START
STATEN
STKLMT=
SWR

001100
001334
012472
177774
001140

SWREG
SW0
SW00
sw01l
Sw02

000176
000001
000001
000002
000004

Sw03

=
=
=
=

4402
47884

000001
005774
000004
012720
000010
006100
010772
011112
011232

SETCLR=
SFTREG
SIZE
SRVEND

30754
31074
3139#
7724
771
770%
7694
768#
7674
7664
765#

= 000010

1621

1644

1685

1706

3097

SEQ 0116

3113

3129

3145

3161

3516

3544

(vD

cvD

$PA
$PA
$QU
$RD
$RD

$RD

$RD
$RD
::;

§§:

$5C

$SE

$SS
$S7T
$SV
$SV
$SW

L7874

1704
25434
3774
3787
2668
35144

$SW

$SwW
$TA
38434
2476

2484

2546t

2549

2551

25844

1527
2059

1538
2133

1554
2146

1565
2269

1572

1576

1619

1683

1745

1821

2291

2630

2740

2775

2926

3795

3918«

40124

1035+
4577
4312

1042+«
4584

1056

2811

4299

4336t

4504

4511

36104

37734
3909+«
1067
2891

6144
835
3230
625#
912¢
4527
833#
6784
668#
6674
6664

665#

1096
37044
1493
2010
3801
3915
3898#
31694
1009
850
37124
1007
4555
1035

678
677
676
675

1914

1074
1002#

1027«
4569
1056

1029
4571
4299

4523
$TA

CVDLAAQ DLVI1-J TEST
MACY11
CVDLAA.P11
11-MAY-78 00:00
SW04
SW05
SW06
Sw07
SW08
Sw09

=
=
=
=
=
=

000020
000040
000100
000200
000400
001000

SW10
SWil1
SW12
SW13
Swi4

=
=
=
=
=

002000
004000
010000
020000
040000

Swl

SW15
SW2
sWw3

Sw4

SW5
Swé
SW7
Sw8
SWw9

TABEND
TABL1
TABLZ
TABL3
TABL4
TABLS
TABL6
TABL?

= 000002

= 100000
= 000004
= 000010

= 000020

=
=
=
=
=

TABL8

000040
000100
000200
000400
001000

010076
013652
014250
014260
014270
014300
012530
012540

012550

TBITVE= 000014
TBUF
001266

TCHO
TCH1
TCHZ
TCH3
TCNT
TCSR

010046
010050
010052
010054
010104
001264

TDATAO=
TDATA1=
TDATA2=
TDATA3=
TDATA4=
TDATAS=
TDATA6=
TDATA7=
TEMP

000001
000002
000004
000010
000020
000040
000100
000200
010106

TIME
= 000000
TIMER
012560

TIMSAV

TkVEC

012722

= 000060

664
663
662

6612
660#

6594
6774
658#
6S7#
656#
655#
654N
6534
6764
675#
674
6734
6724
67124
6704
6694
2871
3944

4080
4082
4107
4109
3418
3346

30A(1052)

672
671
670
669

$TE

3193«#

40164
4081
41284
4108
41384

3353

3094
3126
3158
2989+

2127+
31824
31834
31844
3185#
3002+

997#
1309

SEQ 0117

1093+

1090+
1323«

41234
41334

37374
37424
1094+

1176

2196+

2287+

2528+

1487+

1509+
2626

1518+
2771«

3009+

3010+
1172
1340+

1218
1345

3012+

3014

31984
1234

1091
1326

1231+
1439

1494

1612+

1677

1739+

1817+

1839+

1911

1248+
1510

1251
1523

1265+
1539

1270
1991

1293
1999+

2006+

1306

2048+
813«
812#
811#
8104
809#

2134

2270

24391

2458+

2533+

2576+

2623

2736+

2741

2758+

3048¢
3115
38644

3050«
3118
3866
1542
2295
3812

3053«

3065
3131

3067«
3134

3070+
3145

3081+
3147y

3083
3150

3086«
3161

3097+
3163

3099+
3166+

3102+
3199#

3113y

1687

1749

1825

1918

1994

2014

2063

2137

2150

2205

808#
807#
806#

1497

2273
3776+

7182

cvD
cvD

674
673

37324
3348
3355

7114
998#
2055+
3062

N
9
10:10
PAGE
120
30-JUN-78
CROSS REFERENCE TABLE -- USER SYMBOLS

4031

3129+

1623

2634
3823

2744
38440

2779

2930

37724

CVDLAA.P1
TMTMP

012502

TMPO
TMPOE
TAP1
TMP1E
TAP2
TMP2E
TMP3
TMP3E
TMP4
TMP6
TMP7

012504
012506
012510
012512
012514
012516
012520
012522
012526
013646
013740

TPVEC

= 000704

TRAN
TRAPVE=
TRTVEC=
TRUE
=
TSTCON
ST
TST10
TST11

TST12
TST13
TST14
TST15
TST16
TST17
TST2
TST20
TST21
TST22
TST3
TST4
TSTS
TST6

TST17

005736
000034
000014
000001
013662
002066
003460
003606
003732
004242
00457C

005156

005432
006102
002304
006614
007112
010110

002460

002634
002776
003036

003330

TYPDS = 104405
TYPE
= 104401

TYPOC =
TYPON =

104402
104404

MACY11
11-MAY-78 00:00

3516+
3574
3642
3707
3333+
3339
3396+
3398
3398+
3400
3400
3666
3366+
3908+

4023+
7194
2412
7174
7124
7314
3805
2954
11224
1603
1667
1729
1797
20924

30-JUN-78

10:10

CROSS REFERENCE

TABLE

8 10

121
-- USER SYMBOLS

PAGE

3520
3592+
3649

3526
3594+
3653+

3529+
3596+
3660+

3544¢
3601+
3662+

3546+
3605+
3664

3548+
3612+
3670+

3394+
3396
3570
3570
3618
3618
3666
37284
3373
3912

3424
3522
3596
37240
3644
37264
3692

3429
37224
3598+

3522

3548

3550+

3721#

3723«

3646+

3725#

3694

3727#

3382+

3384

3535

3583+

1599
4032

3471

1663
4090

40234

1725
4101
6114

37194

4024+

25204

3378+
3917«

4025

1015+

1016+

1105

1464

3810
3006

3833
3305

40134
4036#

3553+
3614+
3673«

3557«
3616
3688+

3631+

3679+

37304

2098

2244

2377

19654

1861

1880

1898

1940

1955

2101
2249
2380

2238#
2281
2510

2303
25944

2335

2345

2360

2371#

2603
2858#
3035

2611

2802

2808

3507

1582
47824

1592#

12014

1209
13594
14314
14594
1467

2836

1050
4000
6327

2832

47810
4159
4031+
1844
37734
8224
7864

XMITRD= 000200
XMITOS
007566
XMIT1S
007646

30594
3091#

2533

7854

SEQ 0118

3518+
3577+
3644+

16564
17184
17824
1804

104403
014312
012732
000002
000020
000100

TYPOS =
VECTOR
WAIT
WHICHB=
RAP
=
XMITIE=

30A(1052)

3564+
3622+
3690+

3566+
3625+
3692+

3568
36401
3697+

2608

2814

2841

3473

4310
L7784

3987

3990
4314

2048

2439

2458

32144
12824

1506
4194

2817
4155
4338

2824
4157

2831

2833

2835

2836

6192
4514
L7794

4195
4661

3949

3975
4253
4730

2375

2598

4096

2834

4357
4156

47804
4068+

4081+

4108+

4144

3820

38634

1597
1293

1661
1306

1723

1790

2096
1326

2242
1340

1439

1495

1523

1992

22N

2030
3787
2576

2165

2762

1309

4162
4409
4163

1323

1540

6164
6413
4165

3935

4165
4506
4313

4160
4406
4161

1345

1999

2006

3985

TM~

CVOLAAO DLVI1-J TEST

42864

1005

1013

1017

1018

1019

4000
L6694

4165

4254

4289

4338

4422

4514

3915+
42034

3932

3944

3951

3952

3953

3954

858

L1994

4534

3949

4233
4235
41804

4440
4240

4539
4575
10824
1104
11394
11874
1249
13234
1395
14794
1566
1678
18174
1905
19834
2046
20814

4544

20284
20784

4581

19114
1984#

20484
2082#

2052
2108#

b
—d
el
wod
d
d
b
b
b

1087#
1127
11564
1215¢#
1266
13404
1412
14924
1609
17344
1840
19704
1987

1246
13204
1381
14774
1558
1673
18114
1887
1981#

— b

8954
901#
10794
1097
11354
11844

O QO NOANINIANIN)
— —
b
~ & W —
&0
—
—-oo
~nN wn ~) oo
=
W%
»

1017+

4539

1017
4192
6195
9434
944n

8924
9224
4310
6327
9474
9264
4627
9384
974
4188
4630

RAAAANRANAAANAALS

4281

P AAN

4272

42994

SERFLG
001103
$SERMAX
001115
$ERRFL= 000000

4539

»u

014514
014542

588#
4255+

N N

$SEOP
$EOPCT

SEQ 0119

4428

gy S

017036
001204
001252
014612
017026
014602
014550
014621
014616
001214
001215

001171

906#
9244

4307
4067

$DBLK
$DEVCT
$OEVM
$DOAGN
$DTBL
SENDAD
SENDCT
SENDMG
SENULL
SENV
SENVM

S$CRLF

872
4462
4433
La314
4238
L4340
9094
9734
904#

I QI G

001164
177777
015114
015120
001100
000000
015645
015640
001222

001250
(001122
001126

015720
015674
015702
015712
001134

tenten

QT |

SATYC
SATY1
$ATYS
SATYS
$SAUTOB
$BASE
$B8DADR
$BDODAT
$BELL
$BGNLE=
SCHARC
$CKSWR
$CMTAG
$CmM3
=
SCNTLG
SCNTLU
$CPUOP

SASTAT=

oo O N NN
= = 2 ON
-—
~no
0O ~NOOONIO00
& —o O
£
e -] NNNNONSNVOON
W 0o

011046
011166
011306
011426
001000

10:10
PAGE 122
CROSS REFERENCE TABLE -- USER SYMBOLS

313
3155#
35424
3590#
36384
36864

007726
010006

XOSRV
X1SRV
X2SRV
X3SRV
SAPTHD

¢ 10

30-JUN-78

XMIT2S
XMIT3S

30A(1052)

[an Nen

CVDLAAO DLVY1-J TEST
MACY11
CVOLAA.PI
11-MAY-78 00:00

140

19894

2055#
21094

2115#

CVDLAA. P11

TEST

MACY11
11-MAY-78 00:00

2116
2187
22284
22904
2418#
2459
25604
2624
2684
27740
2881#
2904
2945
2993
30624
3084
3113#
3135
31634
3238
32614
3283
3311

33394
3367
34034
3425
34640
35264

3551
35774

$ERROR
$SERRP(

016142
001116
$ERRTB
001254
SERTTL
001112
$ESCAP
001162
$ETABL
001214
$ETEND
001254
SFATAL
001176
$FFLG
016140
$FILLC
001156
$FILLS
001155
$FSAND= 000310

3602
36314
3654
36884
3775
3824
3879
39284

1013
9024
9914
8994
9234
9424

884
935#
4431«
920#
9194

5884

1385
1772

2325
2569
2793

30A(1052)

29174
2190#
22304
23054
2619
24604
2561
26264
27334
2825#
2882
29114
29474
29944
3063
3086#
3114
31424
3164
32414

3262
32854
33214
3340
33784
3404
34264
3465
3527
35534
3578
3605#
3632
36604
3689
37764
38364
3883
39294
L4994

4161

2836

1019+

9754
4157+
4434
4258
4289
1107
1402
1789

2328
2600

2813

30-JUN-78

10:10

D 10
PAGE 123

CROSS REFERENCE

TABLE -- USER SYMBOLS

2118
2191
22314
2310
26204
2461
25654
2627
2734
2826
28854
2912
2948
2995
30654
3087
31154
3143
31664
3242
32644
3286
3322
33464
3379

211
2194
22334
2404
24254
2529
25704
26444
2737
284S
28874
2914
2950
2998
30674
3095
31184
3146
32194
3244
32664
3288
3324
33484
3383

34054
3427
364664

35294
3554
35834
3606
36404
3661
36904
3777
3837
39024
39304
4508+

2839+

21204
21934
22324

24038

2421
25284
2566
26298

27364
28440

2886
29134
29494
2997#
3066
30944
3116
31454
3167
32430
3265
32874
33234
3347
33824
3406
34294
3467
3530

34124
3430
34714

3641
36624
3691
3778¢
38404
39034
3931

35354
3558
3592#
3613
36424
3663
3692#
3779
3842
39044
40524

4053

4509+

4510

4539

4507+

4539

35574
3584
36124

4530

4532

4539

6159
4462
4289

4468+
Q471+

44794

1149
1421
1792

1208
1441
1855

1220
1466
1872

2331
2610
2816

21274
21964
2234
24064
2426
25334
257
2645
27394
2846#
2888
29164
29544
30454
3068
3097#
3119
31474
3220
32454
3267
32924
33254
3349
33944
36413
36374
34774
3536
35644
3593
36144
3643
36644
3693
37904
38664
3905#

2353
2648
2823

2377
2656
2843

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
364154
3438
3478
35444
3565
35944
3615
36444
3665
36944
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

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#

2142
2224
2263
24124
2440
25564
2618
2658
27684
28694
2900
29224
2980
30504
3079
31024
3130
31584
3229
32494
3278
3300#

33334
3356
3398#
3419
34504
35184
3547

35684
3597
36224
3647
36734
3698
38054
3871
3923#

21454
22254
22684
26413
24424
2557
26204
26734
2769
2870
29014
2923
29894
3051
30814
3103
31314
3159
32354
3250
3280#
3301
3334
33594
3399
36214
3451
3519
35484
3569
35984
3623
36494
3674
3701#
3806
3875
39244

21634
22264
22874
24140
2443
25584

2621
2674
27710
28794
2902
29254
2990
30534
3082
31100
3132
31614
3236
32514
3281
33054
33360
3360
34004
3422
34534
35200
3549
35744
3599
36254
3650
36794
3702
38184
38764
39254

21864
22274
2288
2415
24584
2559
26234
26834
2772
2880
2903#
29444
29924
3054
30834
3
31344
3162
32374
3252
32824
33104
3337
33664
3401
3424
3454
3521
35504
3575
36014
3626
3653#
3680
37744
3823#
3877
3927#

1347
1708
2244

1369
1725
2314

4597+

1272
1561
1947

2467
2671
2958

1295
1599

2037
2470
2682
3024

13N

1646

2098

2478
2701
3275

1328
1663

2172
2486
2708
3304

2524
2715
3309

2551
2724
3345

(e Xan ]

CVDLAAQ DLVIT1=-yJ

$F$8AD=

000401

$F$BLA= 000170
$FSCAS= 000150
$FSDEC= 000220

$F$G00= 000400

SFSIF

000110

3611
3835
5884
1385
1772
2325
2569
2793
3411
3835
5884
588#
588#
588#
1383
1661
1931

2326
2598
2749
3302
3666
588#
1257
1383
1531
1633
1753
1863

2035

2251
2349
2474

2551
2642

$FSINC=
$F$LO0=
$FSNAM=
$FSNO =

000210
000200
000160
000403

2689
2791
2939
3312
3479
3627
5884
588#
588#
5884
1400

1723

2170
2465

$FSOR - 000320

2661
2951
3570
5884
1385
1772

2325

30A(1052)

30-JUN-78

10:'0

CROSS REFERENCE

E 10
PAGE 124

TABLE

SEQ 0121

-- USER SYMBOLS

3436

3444

3470

3475

3492

3500

3524

3572

3620

3668

3789

3803

1107
1402
1789

1149
1421
1792

1208
1441
1855

1220
1466
1872

1236
1525
1892

1253
1556
1933
2464
2667
2953
3500

1272
1561
1947

1295
1602

1646

1311

1328
1666
2172
2486
2708
3304
3668

1347
1708

1369
1728

2328
2603
2813
3436

2331
2610
2816
3444

2355
2648
2823
3470

2380
2656
2843
3475

1105
1400
1691
1945

1147
1419
1706

1206
1439
1723

1218
1464
1753

2329
2608
2782
3307
3787
1105
1270
1389
1545
1644
1759
1870

2019
2351
2637
27N
3343
3801

1109
1276
1400
1550
1650
1770
1882

2035
2375
2646
2811
3409
3833
1114
1293
1406
1552
1661
1777
1890

2424
2663
2909
3492

2467
2671
2958
3524

2037
2470
2682
3024
3572

2101
2478
2701
3275
3620

1270
1545
1790

1293
1554
1830

1309
1559
1853

2096
2422
2654
2814
3434

2209
2468
2669
2907
3473

2242
2476
2680
2934
3490

2276
2484
2699
2951
3498

1147
1299
1419
1554
1663
1787
1900

121
1326
1450
1569
1697
1799

1218
1332
1464
1574
1706
1801
1942

12264
1345
1469
1597

1931

2041
2276
2351
2476
2562
2646
2699
2797
2941
3314
3481
3633
2256

2096
2283
2353
2482
2567
2652
2704
2811
2951
3343
3490
3666
2365

2098
2298
2362
2484
2572
2654
2706
2814
2956
3350
3496
3675
3868

2103
2305
2375
2490
2578
2659
27
2818
2961
3357
3498
3681
3876

2170
2323
2422
2506

3797

2176
2326
2427
2508
2605
2675
2730
2838
3273
3442
3537
3801

1147
1419
1725

1206
1439
1770
2244

1218
1464
1787
2312

1234
1523
1790
2323

1293
1597
1890

1309
1599
1931

1474

2242
2468
2665
2956
3618
1107
1402
1789

2328

1576

2476
2669
3022
3666
1149
1421
1792

2331

1579

2484
2680
3273
3787
1208
1441
1855

2353

2600
2669
2722
2829
3032

3439
3531

1713
1806
1945

1326
1597
1870
2298

2522
2706
2956
3522
1234
1351
1502
1599
1723
1830
1952

2209
2329
2432
2522

2214
2337
2462
2524
2613
2680
2754
2848
3294
3462
3579
3833

1326

1345
1661

2608
2677
2749
2841
3289
3447
3570
3807

2247
2526
2715
3309
3789

1345
1628
1890

2312
2549
2713
3022
3570
1240
1367
1508
1605
1725
1835

2314
2554
2724
3345

3803

1367

1644

1923
2323
2567

2722
3273
3618
1251
1373
1523
1628
173
1853

2019
2242
2339
2465
2530
2615
2685
2782
2907
3302
3468
3585
3838

2024
2244
2347
2468
2549
2637
2687
2787
2934
3307
3473
3618

1367
1663
2096
2422
2608

1383
1706
2098

2841
3490

2462
2654
2907
3522

1347
1708
2244

1369
1725
2314

3784

1644

1945

2522
2699
3302

2351
2551
2722
3409

2353
2567
2811
3434

2375
2598
2814
3468

1220
1466
1872

1272
1561
1947

1295
1599

131
1646

2355

2464

2037
2467

2098
2470

2035
2377
2600
2821
3473
1328
1663
2172
2478

2486

2524

CVDOLAAO DLVIT- J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PI

1
$FSRTN= 000300
$FSSEL= 000140
$FSUNT= 000130

2526
2715
3309
3789

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

1599
1105

1663
1147

1725
1206

2098
1218

1723
2170

1725
2242

1770
2244

1787
2312

4588+

4589

4591

4602

15524
16914

15544
16974

15594
17064
18354
20194
2251

15674
17134

11-MAY-78 00:00

5884

588/
5884

gzgg
4

SFSWHI= 000120
$FSYES= 000402

S8BF
5884

1383

1706
2098

$GDADR
$GDDAT

$GET4L2
$GTSWR

001120
001124

014572
015170
$HD
= 000000
SHIBTS
(001000
$ICNT
001104
SIFLEV= 177777

2462
2646
2821
3468

9034
905#

L1964
L3110
599
8794
8964

5884
12704
13894
15504
16694

17994

19424

$INTAG
001135
$15K0 = 000001

3773

3253

1400

2465
2654
2841
3473

CROSS REFERENCE

3271

16419

2468
2661
2907
3490

11054
12764
14004
18064

11144
12934
14064
18304

19524

22094
23374
24964
26374
26894
27914
29414

22144
23474
25064
26428
26994
27974
29514

22424
2355
25084
26L6K
27044
28114
29564

9104
11054
1276
14004
1574
17234
1882

4339
1114
12934
1406
15974
1731
18904

4428
11474
1299
14194
1605
17534
1900

20964
2305
2530
26994
2797
3302
3537

3316

1439

2476
2665
2951
3498

PAGE 125

TABLE

3341

1464

2484
2669
2956
3522

=-- USER SYMBOLS

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
2323

1853
2326

1870
2329

1890
2351

1931
2353

1945
2375

2035
2377

2096
2422

12 064
}215#
394
1 5744
17234
18634
20354
22834

12114
13264
14504

12184
13324
14644

12244
13454
14694

1234w
13514
15024

12404
13674
1508#

1251
13734
15234

1257#
13834
1545#

3361

1523

2522
2680
3022
3570

3371

1554

2524
2699
3273
3618

3373

1559

2549
2706
3302
3666

3380

1597

2551
2713
3307
3787

3384

1599

2567
2722
3343
3801

1644

2598
2791
3409
3833

1661

2600
2811
3434

3456

1663

2608
2814
3442

4784

19454

33430
34964
38014

10:10

30A(1052)

33574
364984
38074

2103
23124
25494
2704
28114
3314
35704

34094
35044
38334

21554
2318
2580
27064
2838
33434
3585

11474
12994
14194

23620
25224
26528
27064
28144
29614
3434k
35224
3838«4
1153
13094
1425
16284
1759
19234

2160
23234
25984
2711
28414
3357
3618¢

11534
13094
14254

18534

20244

22764
23754
25304
26544
27114
28214
29634

15974
17314

18704

20414

34398
35374

23B2&
25494
2659
27134
28274
30224
34428
35704

22984
24224
25674
26614
27204
28294
30324
344TH
35854

1206#
1315
14394
1633
}770#
928

1211
13264
1450
16444
1777
19314

12184
1332
164648
1650
17874
1942

21704
23554
2615
2713#
2848
3409
3633

2176
2362
26374
2720
29074
3462
36664

22094
23754
2642
27228
2941
3468#
3681

16054
17534
18824
20964
23054

2432K
2578
26654
27224
2838
32734
34624
36184
1224
1345#
1469
16614
1806
19454

2214
2382
26464
2730
29514
3481
37874

16284
17594

18904

21034

23124
2462M
2580
26694
27304
28414
3294w

16334
17704
19004
21554
2318

3468
36334

2465
25984
26754
2749k
2B4BN
33024
36734
36664

12344
1351
1502#
1669
18304
1952

1240
13674
1508
16914
1835
20194

22428
24228
2652
27494
2963
34904
3797

2251
2432
26544
2754
30224
3496
38014

16444
17774
19234
21604
23234

2468
26084
26804
2754
29074
33074
34794
36814
12514
1373
15234
1697
18534
2024

22764
24624
2659
27824
3032
3498#
3807

16504
17874

19284

16614
17904

1931#

21704

21764

23264
2478
26134
26854
27824
29344
33124

23294
2486
2615#
2687#
2787#
29394
33144

1257
13834
1552
17064
1863
20354

12704
1389
15544
1713
18704
2041

34814
37874

2283
2508
26614
2787
32734
3504
38334

34904
37974

22984
25224
2689
27914
3294
35224
3838

CVDLAA.PYT

30-JUN-78

MACY11

VAAAAANAAAAAPRAPRAAANAAAAAAW

CVOLAAO DLVI1-J TEST

CVDLAAQ DLVI1=~J TEST

CVDLAA.PIT
$1Sk1

= 000001

$15k2 =
$ITEMB
SLF
SLFLG

000001
001114
001172
016137

SLOCTA= 177777

MACY11

11-MAY-78 00:00

1545#

2613
344620

23294
900#
9274
4472+

5884
1154
124G
1300
1368

30A(1052)
1550

26654
3447

30-JUN-78

CROSS REFERENCE
15594

2687
34734

TABLE -- USER SYMBOLS
1790#

SEQ 0123

2829

29344

1799

23264

2347

24650

2506

25674

2578

2939

29564

2961

33074

3312

34344

24684
4510
4413

2L78x
4518
4422

24B6F
4539
4539

2496

2669%

2675

26804

2685

28214

2827

1106
1162
1241

1107
1163

1110
1208

1N
1211

1114
1212

1115
1219

1137
1220

1138
1224

1148
1225

1149
1235

1310
1369

1252

1109
1207

1311
1373

1315
1374

1316
1384

1327
1385

1328
1389

1332
1390

1333
1601

1346
1402

1347
1406

1351
1407

1508
1555
1579
1634
1692
1732

1509
1556
1580
1645
1697
1753

1525
1561
1598
1650
1707
1759

1531
1567
1599
1651
1708
1760

1532
1568
1600
1662
1713
177

1533
1569
1601
1663
1714
1772

1545
1570
1602
1664
1724
1777

1546
1571
1605
1665
1725
1778

14625

1426

1791
1831
1900
1953

1792
1835
1901
2019
2103

1794
1836
1923
2020

2101
2214
2261
2318
2347
2366
2429
2467
2490
2509
2563
2601
2638
2666
2687
2715
2787
2822
2868
2939
2967
3271
3312
3357
3408
3457
5481
3504
3581
3676
3798
3835
3870

1567

28148
3479

G 10
PAGE 126

2337
4157
4289
44L78#

1421

1502
1552
1577
1629
1670
1728

10:10

1503
1553
1578
1633
1691
1731

2215
2262
2319
2348
2367
2432
2469
2491
2523
2564
2602
2642
2667
2688
2720
2788
2823
2872
2940
3023
3272
3313
3358
3410
3458
3482
3505
3585
3677
3802
3836
3871

1253

1440

1795
1854
1924
2024

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

2155
2244
2276
2325
2350
2377
2447
2474
2496
2525
2569
2605
2647
2671
2690
2723
2793
2828
2883
2942
3032
3275
3315
3363
3432
3460
3485
3524

3837
3872

3838
3873

3586
3681
3803

3619
3682
3807

1257

1258

16441

1450

1524
1560
1581
1646
1698
1754

1796
1855
1928
2025
2156

2245
2277
2327
2351
2378
2448
2475
2497
2526
2572
2606
2648
2675
2700
2724
2797
2829
2884
2952
3033
3289
3317
33N
3433
3461
3486
3531
3620
3772
3808
3839
3874

1799
1863
1929
2036
2160

2246
2283
2328
2352
2379
2450
2476
2498
2530
2573
2607
2652
2676
2701
2730
2798
2830
2892
2953
3226
3290
3318
3372
3435
3462
3487
3532
3627
3784
3811
3841
3875

1271

1451

1800
1864
1932
2037
2161

2247
2284
2330
2353
2380
2451
2477
2499
2531
2574
2609
2653
2677
2704
2731
2812
2838
2893
2957
3227
3291
3341
3374
3436
3463
3488
3533
3628
3785
3812
3842
3877

1272

1465

1801
1871
1933
2041

217
2251
2298
2331
23564
2382
2452
2478
2500
2550
2578
2610
2655
2678
2705
2749
2813
2839
2905
2958
3231
3294
3342
3375
3439
3469
34N
3537

3629
3788
3813

3849
3878

1276

1277

1466

1469

1802
1872
1942
2042

2172
2252
2299
2337
2355
2383
2453
2482
2501
2551
2579
2613
2656
2679
2707
2750
2815
2842
2906
2961
3232
3295
3344
3380
3440
3470
3492
3538
3633
3789
3814
3850
3879

1803
1882
1943
2097

1294

1470

1806
1883
1946
2098

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

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

3851
3880

3852
3881

3634
3792
3825

3667
3793
3826

2608#

3439

1153
1236

1295

1299

1474

1475

1807
1891
1947
2099
2209

1830
1892
1952
2100

1550
1574
1606
1666
1726
1788

2259
2313
2340
2364
2427
2464
2485
2507
2554
2599
2616
2662
2685
2712
2782
2819
2849
2934
2964
3254
3308
3351
3386
3447
3479
3499
3579
3668
3794
3827
3863
3882

1352
1420

1551
1575
1628
1669
1727
1789

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

CVOLAAO DLVI1=) TEST
MACY11
CVDLAA.P1T
11-MAY-78 00:00
SLPADR
SLPERR

001106
001110

SLSTCN= 177777

3884

3885

H 10
30-JUN-78
10:10
PAGE 127
CROSS REFERENCE TABLE =-- USER SYMBOLS

3886

3887

3888

3891

3892

3893

4153

4167

4168

4169

1672+«

1262+
1734+

1290«
1811+«

1304+
1868+«

1320+
1886*

1337+
1904+

1364+
1986+

1378+
2045+

1138
1240
1326
1602
1502
1559
1633
1723
1795
1872
1952
2170

1147
12
1328
1606
1503
1561
1644
1728
1796
1882
2019
2172

1149
1332
1419
1508
1567
1646
1731
1799
1890
2020
2176

1153
1257
1345
1421
1523
1570
1650
1753
1802
1892
2024
2209

1161
1270
1347
1425
1525
1571
1661
1754
1803
1900
2035
2210

1206
1272
1351
1439
1532
1574
1666
1759
1806
1923
2037
2214

2326
2365
2454
24N

2328
2366
2462
2492

2329
2375
2464
2496

2331
2380
2465
2497

2337
2382
2467
2498

2340
2422
2468
2501

2341
2424
2470
2502

2610
2663
2699
2750
2820
2884
2958

2613
2665
2701
2754
2821
2891
2961

2615
2667
2704
2782
2823
2905
2963

2637
2669
2706
2783
2827
2906
2965

2638
2671
2708
2787
2829
2907
3022

2642
2675
2711
2791
2838
2909
3024

3447
3492
3581
3784

3461
3498

3462
3500

3470
3522

3849
3885

3620
3789

3864
3887

3468
3504
3628
3793
3868
3888

3629
3794

1021+
1022+

4579+
1139+

4595+«
1215+

4600
1229+

4602
1245+

2115+

2186+

2617+

2733+

4529

4579

1394+

588#
1208
1276
1367
1441
1533
1579
1669
1770
1830
1924
2041

1411+

2314
2351
2432
2478

2318
2355
2447
2483

2598
2652
2680
2720
2811
2848
2939

2603
2654
2682
2722
2813
2867
2941

2606
2656
2685
2724
2814
2868
2951

2607
2659
2687
2730
2816
2871
2953

2608
2661
2689
2749
2819
2883
2956

3433
3475

3634
3479

3572
3681

3444
3490

3803
3875

3439
3483
3570
3677
3825
3878

3442
3488

3801
3872

3533
3668

3436
3481
3537
3676
3807
3876

3826
3879

3580
3773

3833
3880

3835
3883

3456
3496
3585
3785
3838
3884

1080
1095
1127
1147
1183
1218
1249
1293
1324
1367
1398
1439
1488

1082
1096
1129
1148
1184
1219
1251
1294
1326
1368
1400
1440
1492

1083
1097
1130
1149
1185
1220
1252
1295
1327
1369
1401
1441
1493

1085
1103
"N
1156
1186
1229
1253
1304
1328
1378
1402
1464
1494

1086
1104
1132
1157
1187
1230
1262
1305
1337
1379
16411
1465
1495

1087
1105
1133
1158
1188
1231
1263
1306
1338
1380
1412
1466
1496

1088
1106
1134
1159
1189
1232
1265
1307
1340
1381
1414
1472
1497

1089
1107
1135
1160
1190
1234
1266
1309
1341
1383
1415
1473
1498

1090
1109
1136
1161
1206
1235
1270
1310
1345
1384
1419
1477
1499

1091
1110
1139
1162
1207
1236
1271
13N
1346
1385
1420
1478
1502

1092
1112
1140
1163
1208
1245
1272
1320
1347
1394
1421
1479
1503

1543
1566

1544
1569

1545
1570

1546
1572

1554
1573

1585
1576

1556
1577

1557
1578

1558
1579

1559
1580

1560
1597

2508

4154
588¢

1093
1113
1142
1181
1215
1246
1290
1321
1364
1395
1436
1480

1518
1541
1561

2580
2648
2679
2715
2797
2843
2935
3226
3302
3357

3532
3666
4167
1079

1094
1126
1143
1182
1216
1248
1291
1323
1365
1397
1437
1487
1519
1542
1565

2522

3227
3304
3361

1523

2256

2526

3230
3307
3371

1524

2258
2323
2362
2448
2484
2530

3239
3309
3372

1525

1114
1234
1311
1389
1474
1554
1628
1708
1790
1863
1945
2156

2259

2325
2363
2449
2486
2549

3240
3312
3373

1527

1137
1236
1315
1400
1475
1556
1629
1713
1792
1870
1947
2160

4602

2312
2350
2429
2476

2251

111
1224
1309
1385
1469
1552
1605
1706
1789
1855
1942
2155

4596+

1110
1220
1299
1383
1466
1550
1602
1697
1787
1853
1933
2103

2506

3432
3473
3524
3633
3797
3871

1638+

1107
1218
1295
1373
1664
1546
1597
1692
1777
1835
1931
2101

2247

3032
3294
3352

1608+

1105
1211
1293
1369
1450
1545
1580
1691
1772
1831
1928
2096

22642

2578
2646
2678
2713
2793
2841
2934

1436+

SEQ 0124

3889

8974
8984

2305
2347
2428
2475

$LSTIN- 000000

30A(1052)

2260

2554

3253
3314
3380

1528

2263

2563

3271
3316
3381

1531

2276

2564

3272
3341
3384

1532

2277

2567

3273
3342
3407

3618
3787

1537

2283

2569

3275
3343
3408

1538

2298

2573

3290
3345
3409

1539

2299

2574

3291
3351
3411

3870
3891

1540

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
3116
3145
3167

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

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

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

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
3071
3099
3127
3150
3225

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

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

—D
—d

1612

1609
1638
1678
1706
1745
1772
1817
1840
1870
1914

1608
1629
1677
1705
1744
1771
1812
1839
1869
1913
1945
1984
2000

1601
1628
1673
1704
1740
1770
1811
1831
1868
1912
1933
1983
1999

)

1600

1625
1672
1692
1739
1768

SEQ 0125

SYMBOLS

10:10
PAGE 128
CROSS REFERENCE TABLE -- USER

1664
1689
1734
1754
1795
1826
1853
1904
1924
1980
1994

1599
1624
1665
1691
1735
1767
1801
1827
1854
1905
1931
1981
1995

30-JUN-78

0 OO0 ~N~N~NOOO~
—
NSO SO0 S
o NI WNCO 00 ~JOD N &~ N

1598
1623

30A(1052)

— —t

CVOLAAO DLVI1=) TEST
MACY11
CVDLAA.PIT
11-MAY-78 00:00

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

2936
2956
2993
3051
3081
3103
3131
3159
3230

1618
1645
1684
1723
1748
1789
1821
1844
1886
1917
1971
1989

2010
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

1679
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
2571
2609
2632
2651
2670
2701
2737
2760
2778
2815
2845
2882
2902
2920
2944
2958

2995
3054
3083
LARR
3134
3162
3232

1620

1661
1686

1725
1750

1791
1823
1846

1890
1919
1975
1991

2012
2036
2061
2083
2115
2137
2155
21N
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

2443
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
27461
2763
2781
2819
2865
2887
2907
2925
2948
2965
3022
3065
3087
3115
3143
3166
3237

IBG

EN
EN
EN
EN
EN

IER

GE
IGE
If

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

3238
3253
3275
3292
3309
3328
3349
3367
3396
341¢
3430
3453
3470
3490
3523
3547
3568

3592

3613
3628
3653
3673

3695
3789
3811

3833
3867
3880
3905

$LSTST= 177777

4052
5884
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

30A(1052)

3241
3254
3277
3293
3310
3323
3350
3373
3397
3413
3434
3454
3671
3491
3524
3548
3569
3593
3614
3631
3654
3674
3697
3790
3812
3834
3868
3881
3906
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

J 10

30-JUN-78

10:10
PAGE 129
CROSS REFERENCE TABLE -- USER

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

4169
1107
1211
1293
1369
1450
1533
1574
1661
1754
1801
1890

2020
2176
2277
2331
2366
2462
2486
2526
2580
2646
2677
2711
279
2829
2907

3243
3261
3280
3297
3316
3336
3353
3375
3399
3416
3436
3457
3473
3498
3527
3550
3571
3595
3616
3640
3661
3676
3701
3792
3814
3836
3870
3883
3922

4170
1109
1218
1295
1373
1664

1545
1576
1666
1759
1802
1892

2024
2209
2283
2337
2375
2464
2490
2530
2598
2648
2678
2713
2793
2838
2909

3244
3262
3281
3300
3317
3337
3354
3378
3400
3418
3437
3458
3474
3499
3529
3551
3572
3596
3617
3641
3662
3679
3702
3793
3818
3837
3871
3884
3923
1110
1220
1299
1383
1466
1546
1579
1669
1770
1803
1900

2035
2210
2298
2339
2380
2465
249N
2549
2603
2652
2679
2715
2797
2841
2934

3245
3264
3282
3301
3318
3339
3355
3379
3401
3419
3438
3459
3475
3500
3530
3553
3574
3597
3618
3642
3663
3680
3774
3795
3819
3840
3872
3885
3924

SEQ 0126

SYMBOLS

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
3887
3925

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

210
2251
2314
2349
2427
2474
2698
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
1147
1251
1328
14606
1503
1559
1628
1708
1790
1853
1933
2103

2256
2318
2350
2428
2475
2500
2567
2610
2663
2689
2749
2818
2871
2953

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
1153
1257
1345
1421
1523
1567
1633
1723
1794
1863
1945

2156
2259
2325
2355
2432
2478
2502
2572
2615
2667
2701
2754
2820
2884
2958

3252
3274
3290

3308
3327
3348
3366
3395
361
3429
3451
3469
3487
3522
3546
3567
3584
3612
3627
3650
367
3694
3788
3810
3826
3866
3879
3904
3931
1161
1270
1347
1425
1525

1569

1644
1728
1795
1870
1947

2160
2260
2326
2362
2447
2482
2506
2573

2637
2669
2704
2782
2821
28N
2961

CVDLAAQ DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVOLAA.PI

SLSTTA= 00000C

2963
3273
3341
3381
3447
3498
3581
3681
3810
3876
5884

1240
1352
1474
1571
1665
1760
1863

2025
2246

2319
2367
2475
2507
2580

2653
2704

$SMADR1
$SMADRZ2
$SMADR3
$SMADR&
SMAIL
SMAMS1
SMAMS
2
SMAMS3
SMAMSL
$SMBADR
SMCALL=
SMFLG
SMNEW
SMSGAD
SMSGLG
S$MSGTY
SMSWR
SMTYP1

001226
001232
001236
001242
001174

001224
001230
001234
001240
001002
000000
016136
015663
001210
001212
001174
015652
001225

2798
2883
3033
3314
3408
3481
3581
3784
3850
3885
9604
9644
9674
9704
880
1720
9544
9624
9654
968#

880#
104

4432+
4314
9404
9414
934w
4311
9554

30A(1052)

2965
3275

3342
3384
3456
3500
3585
3773
3825
3878
1110
1241
1373
1475
1574

1666

1777
1864

K 10
10:10
PAGE 130
CROSS REFERENCE TABLE -- USER SYMBOLS

30-JUN-78

3022
3289
3343
3407
3462
3504
3618
3784
3826
3879

IBRA
1257
1374
1508
1575
1669
1778
1882

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

884

9334
19¢7

1784

588
4438
44264

4448
4453
4446
La24n

3024
3290
3345
3408
3468
3522
3620
3785
3833
3880

3032
32N
3350
3409
3470
3524
3627
3787
3835
3883

1389
1509
1580
1670
1795
1883
2100
2252

1390
1532
1581
1697
1796
1900
210
2258

1114
1258

2340
2382
2484
2530
2603
2675
2712
2827
2906
3239
3342
3439
3488
3628
3794
3863
3889

1039

2094

1115
1276

2341
2383
24N

2531
2606
2676
2720
2828
2939

3240
3351
3440
3496
3629
3797
3864
3891

1054

2240

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
272
2829
2940
32N
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

2104
2260
2348
2429
2496
2554
2613
2679
2730
2830
2941
3272
3357
3448
3504
3634
3807
3871
3893

1203

2596

SEQ 0127
3230
3304
3357
3433
3479
3533
3633
3793
3864
3887

1153
1300
1425
1551
1605
1714
1802
1929

2160
2261
2350
2432
2497
2563
2614
2685
2731
2838
2942
3290
3358
3460
3505
3676
3808
3872

6153

1284

2860

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

1461
4516

1594
4594

3216

3272
3316
3380
3444
3496
3580
3677
3807
3875

Cv
cv

SE
SK
SL
SP
ST

1225
1351
1470
1570
1651
1759
1836
2024
2215
2318

2366
2454
2506
2579
2652
2690

2797
2868
3032
3313
3407

3480
3580
3773
3849
3881

1658

$A
$8

4473

L4T77#

4451
4454

4466

4470

CVDLAAO DLVI1-J TEST
MACY11
CVDLAA.PIN
11-MAY-78 00:00
$MTYP2

SMTIYP3

001231

001235

SMTYP4
001241
SMXCNT
016620
SNESTL= 177777

9664
9694
4592
5884
12404
1367#

20194
22514

23474
24684
2572
26594
2711

$NSK1

= 000210

$NSK2 = 000210

$NSK3 = 000110

$NULL
SNWTST=

$OCNT
$OMODE
$OVER

001154
000001

017270
017272
016604

L 10

30-JUN-78

10:10
PAGE 131
CROSS REFERENCE TABLE -- USTR SYMBOLS

SEQ 0128

v
cv

9634

15024
15794
17234
18354

$NSKO = 000300

30A(1052)

2818
29344
32534
3357#
34564
35374
3792
3887#

1105#
12704
1389
1605
17534
18904

2103
24224
2605
2711
28414
3253
34984
3681
11474

22764
2572
2963
37844
15454

2675
34734
23294
918#
11154
17154

3202#
4702+
4697
4556

46024
11054
12514
13734
15084
15974
17314
18534
20241
22564
2349
2674
25784
26614
2713#
28214
29394
32714
33614
34620
35700
37974
38914
1109
1276

11472
12934
14064
15504
16444

17774
1890C#
2103#

2305#
2382#
2500
2608#
2677
27494
28414
29614
33024
33844
34814
3627
3825#
12064
1315
14394
16614
1801
1942
22094

14004
16284
1759
1900

21554
2427
2615
27134
2848
32714
3504
37730
1153
2283
2578
32734
3810
1550
26804
3479

2337

4260
1117
17794

3204
4731¢
4701
4572

246624
2652
27494
2891
33714
35704

41544
1531

23264
2827
3797
34424

2318
2677
3314
38684
2339
29344
38014
3447

12794
2086#

1354#
2088

4720+
4599#

L7464

11614
13094
14254
15544
16614
17904
19234

12064
13154
14394
1559#

16694

1794
19284

1211
13264
14504
15674
16914
17994
19314

1218#
1332#
14644
1569
16974
1801
19424

12244
13454
14694
15744
17064
1806#
1945#

12344
13514
14740

1576
17134

21704
23234
24324
25224
26374
26874
27874
28714
3022#
33144
34320
34964
3675
38494

21764
23264
24474
25304
26424
26894
27914
2883
30324
33164
34340
34984
36814
38644

22094
23294
24494
25494
26464
26994
27974
2891#
32264
33414
34394
35044
37734
3868#

2214#
2337
24624
2562
2652#
27044
2811#
2905#
32304
33434
34428
35224
37844
38764

22424
2339
24654
25674
26544
27064
28144
2907#
32394
3350
34474
3531
37874
38844

12184
1332
16644
16914
18304
1952

1224
13454
1469

12344
1351
14740
17064
18534
2024

1240
13674
1576
1713
1863

12514
1373
1579
17234
18704

1257
13834
15974
1731
1882

22424
25224
2659
27824
2965
33804
3585

1697
1835

20194
2251
2530
26614
2787

2035#
2365
2562
26994
2797
32264
3483
3633

2041
23754
2580
2704
28114
3230
34904
36664

1799

$C
$C/

2349
2814
3350

15544

1569
2362
2818
3357

24654
2829
34094

2500
29074
3462

2506
2941
34684

25674
29514
3481

24684
29564
38764

2474
2961
3884

2482
3307

2490
3312

2496
34324

26694
3456

14284

23684

14544

2587#

17904

1794

3384
3618#

1574

20964
2382
2598#
2706#
2838
32394
3496
3675

22564
25494
2689
2791
3032
34074
3627

3022#

18304
19524

21604
23184
2427
25084
26154
26854
27824
28674
29654
33124
34004
34904
36664
3838#

$Cl
1456

2589

15874

2805#

1589

28524

16534

2854

(VOLAAO DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVOLAA.P1
$PASS
SPASTM
$QUES
SRDCHR
SRODEC=

001202
001006
001170
015402
L282881

SROLIN
015522
$SRDOCT= teeeen
$RDSZ = 000010

SRTYNAD
014614
= reeeer
SR2A
$SAVLE= 177777
$SAVRE= treven
$SCOPE
016342

$SETUP= 000127

$55Kk0
$STUP
$SVLAD
$SVPC
$SWR

000253

177777
016550
000430
167400

$SWREG
001216
= 000000
$SWRMK
$TAGLE= 177777

9374
8824

9254

43704

4789
43984
4789
43914
42054
4785
588#
4789
1011
1002#
4428
1579#
1002#
4564
8564
588#
1019
1966
4491
4548
4599
9454
610
588#
12364
13514
14754
1571#
16974
17994
19284

21724
23144
23634
24704
25024
2603#
26674
27154

28204
2935#
32534

$TAGNU= 000257

3351
34440
35244
36764
3838#
5884
1235

13474
1474
1561#

30A(1052)

m10
10:10
PAGE 132
CROSS REFERENCE TABLE -- USER SYMBOLS

30-JUN-78

SEQ 0129

1039+

4184+

4185+

4193

4206

4289
4787

4357

4406

4422

4539

1579#

15804

22594

22634

38254

38264

3871

38754

38794

3883#

45534
1010
4500
1580

1011
4526

1013
4534

1015
4554

1017

1018

1019

1021

1048

1051

3826

38714

3875

38794

3883

610
1460
6177
4527
4575

4586

4603

$0
$E
SE
$E
$E
$E
SE
36

4788

45934
861
599
1021
2093
4492
4549
4602
1042
611
1107#
12404
13694
15034
15744
1708#
18024
19334
21764
23184

2365#
24754
25064
26064
26714

27204
2823#
29394
32724
33524
34474

35324
36774
38704

1106
12364
1368
1475#
1569

22594

604
1022
2239
4493
4555
4549
11104
12534

13734

15084
1576
17134
18034
19424

22104
23254
23664
24764
25084
26074
26754
27244
28274
29414
32754
33574
34564
35334
36814
38724
1107#
1252
13694
1502
15714

2263

605
1123

3825#

2372

4494
4567

606
1202
2595
4495
4569

4550
11118
12574
13854
1525#
1579#
17284
18064
19470
22144
2328%

457
11144
12724
13894
15324
16024
1731#
1831#
19524
22474
23314

23804
24784
25264
26104
26784
27304
2829¢
29534
32904
33614
364624
35374
3785¢
38754

2382¢#
2483#
2530#
26134
26794
2750#
2838#
2958#
3291#
33724
34704
35724
37894
3878#4

1384
15034
1598

13854
1524
1600

1109
12534

11114
1271

608
1360

2859

451
4573

11494
12954
1406#
15464
16294
17594
1855#
2024

2258¢#
23404
24284
2486#
25634
26384
2685#
27834
2848#
29634
33044
33814
34794
35814
37944
38834
11384
1294
14024
1531
1602#

v
Cv

4182

4294

922
1593
4183
4539
4582

924
1719
4204
4546
4584

1018
1783
4206
4547
4596

12084

1220#
13324
14664
1567#
16694
17954
19004
21564

12244
13474
14694
15704
1692#
17964
1924#
2160#

13154
14414

15564
16504
17894
18824

21014
22774
23504
2448
24964
2573
26524
27014
27974
28844
30324
33144
34110
34924
36284
38074
3887#
1207
1311
1440
15464
1645

22994
23554
24644
24984
25784
26594
27084
28164
29064
3230#
33420
34364
35004
36334
38254

23054
23624
24674
25014
25804
26634
27114
28194
29094
32404
3345#
34394
3504#
36684
38354

1219
13284
1465
15564
1662

12204
1346
14664
1560
1664

Is1

CVDLAAO OLVI1-J TEST
MACY11
11-MAY-78 00:00
CVOLAA.PIN
1665
17724

1871

20374
2246
2324
2376
2463

24864
25644
2637
2679%#
2782
2843
2957
3291#
3380
3460
3523
36684
38354
1079#
1097#
1132#
11604
12154
1262#
1320#
1378#

1415#

1488#
1566#
16094
1704
1795#
18504
19424
1985#

2051#
2103#
2127#
2197#
22514
23474
2408#
2428#
24617
25014
25594
2578#
26274
26778

27364
28254
2870#
28912

30A(1052)

30-JUN-78

10:10

CROSS REFERENCE

16664

1691

1692¢

2097
22474
23254
2378
24640

2099
2257
2327
2379
2466
24924
25694
2647
2682#
2792
28684
3023
33044
3407
3469
3531
36774
3869

2100
2258#%
2328¢
23804
24674
2520
2572
26484
2700
27934
2883
30244
3308
3408¢
34700
35334
37734
38704

1788
18724

2490
2568
26384
2681
27834
2867
29584
3303
33814
34614
3524
3675
38644
1080#
11034
11334

17894
1891

1082
11044
11344
1162
12244
12654
13230
13804

14364

1518#
15694
16134
1713
18014
18684
19704
19874
20554
2109#
2l61a
22234
22634
23504
26124
24314
24754
25084

25614
26054
26440
26834
27544
28274
¢?7¢
28994

1791
1892#

1083#
1109#
1135#
1181
1229%
12664
1324
13814

14374

1519#
15704
1633%¢
1731#
1802#
18694
1971#
19994
20564
2110#
2142#
2224w
22834
23554
2413¢
24320
24788
2528#

25624
26064
26450
26844
27588
2829#
28798
29004

N 10
PAGE 133

SEQ 0130

TABLE =-- USER SYMBOLS

1707

17924
1923

2101#
259«
2330
2423
2469
2502#
25744
2655
2701#
2812
2884
3226
33094
3410
3474
3571
3784
3871#
1085#
1110#
1136#
1182«
1230#
12764
13324
1389«

14504

15274
1572#
1638#
17344
1806#
18824
1974#
20004
2075#
2111»#
21604
2225#
2287«
23624
241440
2439#
2482#
2529«

25634
2613¢#
26504
2685#
2759#
28384
2880¢
2901#

1708¢
1794
1924#
2155

2262
23314
26244
24704
2523
2599
26564
2707
28134
2505
32274
3341
3411#
3475#
35724
3785«
3874
1086#
1112#
11394
1183#
1231#
12904
1337#
1394#

14694
1528#
15734
1639#
1735#
1811#
18864
1975#

20064
20764
2112#
21764
2226#
2288«

23634
2415%
24400
2483
2530#
2565#
2615#
2651#
2687¢
2768¢
28440
2881#
2902¢

1724
17964
1932
21564

22634
2339
2427
2474
2525
2601
2662

27084
2815
2906#
3239
33424
3432
3484
3579
3788
38754

1087#
11134
11404
11844
12324
12914
13384
13954
164724
15314
15744
16504
1739#
18124
18874
1977#
2007#

20774
21134
2186#
22274
2305#
23654
2418#
24420
24864
25334
25664
26174
26524
26894
27694
28454
2882¢
2903¢s

1726
1801
19334
2171
2276

23414
24294
24764

25264
2602

26634
2714
28164
2908
32404
3344
34334
3487
35814
3789#
3877

10894
11144
1142#
11864
1240#
12994
13404
13974
14734
1532#
15764
16694
17404
1817#
19004
1978#

20244
2078
2115#
21874
2228#
23094
23664
24194
2443
24904
2534n
25704
2618#
2657
270420
2771\
28468
2885«
29042

1727
18034
1946

21724
22774
2349
2447
2477
2550
26034
2666
2715#

2818
2909#
3271
33454
3435
34884
3619
3792
38784
10904
11264
11434
11874
12454
13044
13414
1398#
14774
1550#
1577
16724
1759#
18184
19044
19804

20414
20804
21164
21904
22304
23104
2382#
24204
24494
24914
25464
2571
26204
2658#
27118
2772%
284704
28864
2911

1728#
1830
19474
2209
2298
2351
24484
24784
2552
2605
26674
2723
28204

2934
32724
3350
34364
3491
36204
37944
38794

1092#
11274
11534
1188#
12464
13054
13514
16064
1478#
1552#
15794
16734
17674
1835#
1905#
19814

20454
20814
21174
2191#
22314
23184
24034
24214
2452
24964
2547
25724
2621#

2659
27208
2787#
2848#
2887¢
2912¢#

1753
1831#

2019
22104
22994
2352
2450
2482
2553
26074
2670
27240
2822
2935«
3274
3352#
3443
34924
3627

3802
3882
1093#
11294
11564
11894
1248#
1306#
13644
14114
1479
15574
1580#
16774
1768#
1839#
1911#
19824

20464
20824
2118#
2193
2232#
23374
2404n
2425%
2458%
24974
2556#
2573
262348
26734
27304
2797#
2865#
2888#
29132

17544
1854

20204
2243
2313
2354
2453
24844

25544
2609
26714
2749
28234
2952
32754
3371
34440
3499
36294
38034
38834

1095#
11304
1157#
11904
1249
1307#
1365#
1412#
1480#
1558#
1605#
1678#
17778
18404
1912#
19834

2048#
20834
21204
2194#
22334

2339«
2406#
24264
24594
2498¢#
2557
25764
262448
267448
2733#
2818#
28664
2889s
291448

Cvi
Cvi

1771
18554

2036
2245
23144
2355#
2454
2485
2562
26104
2677
27504
2842
2953#
3289
33724
3457
3500#
3667
3834

$LE

L154#
10964
1131#
1158#
12114

1257#
1315#
1373#
14144
1487#
1565#
1608#
1697#
17944
1849#
19284
19844
2049
2084#

2121#
21964
22344
23400
2407
24278
24600
2500#

2558#»
2577
262648
2675¢#
27348
28'7¢
28692
2890#
291648

$LI
30/

$0!
POI

$0
$0I

$0
so

29174

29594
29954
30634
30864
31144
31424
31644
32374
325¢4
32804
3296#
33244
33484
33664
33974
34184
34454
34674
35204
35464
35674
35934
36144
36404
36614
36814
37744
38054
38674
3905#

$TESTN

001200

$TIMES
$TKB
$TKS
$TN

001160
001146
001144
= 000023

40534
9364

2240+
9224
2093+
9154
9144

588#
13604

1603
1804

$TPB
$TPFLG
$TPS
STRAP
$TRAP2
TRP
=
$TRPAD

001152
001157
001150
017274
017316
000012
017330

TSKO = 000251

22394
2595#

9174
9214
916#
1015
L7664
47704
476C
11074
1257
13854

1605
17544

30A(1052)

29194
29604
29974
30654
30874
31154
31434
31664
32384
32534
32814
32974
33254
33494
33674
33984
34194
34464
34774
35214
35474
35684
35944
36154
36414
36624
36884
37754
38064
38724
39064

L1674
1124+

2373
1018+

2239+

4292
4030
599
1361
1653
1861

2240
2596

4278+
4227
4276
L7554
4777

L7794
“7774
1110
12724
1389
16294

1759

8 11
PAGE 134
CROSS REFERENCE TABLE -- USER SYMBOLS
30-JUN-78

10:10

29204
29614
29984
30664
30944
31164
31454
31674
32414
3254
32824
33004
33264
33504
33734
33994
36214
34474
34788
35264
35484
35694
35954
36164
36424
36634
36894
37764

29228
29634
30324
30674
30954
31184
31464
32194
32428
32614
32834
33014
33274
33514
3374
34004
34228
34508
34794
35274
35494
35744
35964
36174
36434
36644
36904
37774

2923«
29654
3045#
30684
30974
3119#
31478
32204
3243k
3262#
32854
33104
3328¢#
3353«
3378#
34014
34244
34514
3481k
3529#
35504
35754
35974
36224
36440
36654
36914
3778%

3875+
39074

38804
39224

3883«
39234

38074

1203+«
2596+

38104

1284+
2860r

3811

1361+
3216+

1123«
2372+«
4303
4292
1115
1428
16574
1880
2249
2802
4289
4289
4289

1202+
2595+
4320
4301
11234
14324
1658
1898
2281
2805

1283+
2809+
4374
4317
1124
1433
1667
1940
2303
28094

47804

47814

1My
1276
1402#¢

1114
12954
1406

1633
17724

16464
1777

29394
2966
30464
3070#
3098¢#
3126#
31484
32244
32444
32644
32864
33114
3333#
33544
33794
34034
34254
34534
34834
3530#
3551#
35774
35984
3623#
36454
36704
36924
37794
3813
38844
39244

1433+
4156
1360+

2859
4380

294128
29794
30484
3071#
30994
31274
3150#
32254
32458
32654
32874
33124
33344
33554
33824
34044
34264
34540
3486
3531#
35534
35784
35994
3625#
36464
36714

SEa 0131
29440
29804
30494
30784
3100#
3129#
31514
32284
32464
32664
32884
33144
33364
33564
33834

29474
29904
3051#
3081#
31034
31314
3159#
32304
32484
32694
32904
3317
33394
33594

29484
29924
3053#
30824
31104
31324
3167«
3231
32494
32704
32924
3321#
33404
33604
33944

34294
3459
35044
35354
35574
35804
36024
36274
36494
36744
36954
37924
38254
38884
39284

3385
36124
34304
34624
35164
35364
3558#
35834
36054
3628#
36504
36754
36974
37934
38264
38914
39294

364134
34374
34640
35174
3537#
35644
35844
36064
36314
36534
36764
36984
37954
38384
39024
39304

1594+

1658+

1720+

1460
4183

1593
4582

1657+
4589

4592+

1209
1467
1729

1279
1582
1779
2086

36934
37904
3823#
38854
3925#

34054
34274
34564
34964
35324
35540
35794
36014
36264
36474
36734
36944
37914
38244
38874
39274

1461«

4594+
1432+
3215¢

29454
29894
3050#
30794
3102#
31304
3158#
3229#
32474
3267#
32894
33164
33374
33574
33844
364064

29494
29734
3054#
30834
3111
3134#
31624
3235#
32504
32774
32934
33224
33464
33614
33954
34154
3438#
34654
35184
35444
3565#

3585#
36124
36324
36544
36794
37014
37964
38494

39034
3931#

1784

1967+

2094+

1719+

1783+
4602

1966+

12834
1587
17834

1284
15934
1784
2094

4372
12024
16604
17194
1957

2345
28594

4378
1203
1461
1720
19664
2360
2860

1967
2368
3035

23724
3202

4782

47834

4784

47854

4786

47874

47894

11384
1299
146214

61
114

12084
1315

1211
13284

12204
1332
14664
1697
18314

1224

1240

1650
17894

664
02

14414
1669
18034

1450
16924
1806

13474

1469
1708#
1835

34394
34664
35194

35454
35664
3592#
36134
36334
36604
3680#
3702#
37974
38664
3904#
4052#

4341
1196
1454
1715
1955

2335
2852

29504
29944
30624
30844
31134
31354
3163#
32364
32514
32784
32944
33234
33474
3362
3396#
34164

20934
2373
32154

2510
3216

13694
1579
17284
1863

1354

1594
1797

2235
2587

12534
1373
1602#
1731
1872#

&
A oo

CVDLAAO DLVI1-J TEST
MACYT1
11-MAY-78 00:00
CVOLAA.PI

$T5K1

$T5K2

$75k3
$TSK4
$TSTM
STSTNM
$STTVIN
$TYPBN=
$TYPDS
$TYPE
STYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR

SVECT1
$VECT2

000250

11494

25024
2819
33454

000254

15034

2305
26824
3479

000253

15464

000126
001004
001102

015630

TR ER

016622
014636
015050
015116
017072
017106
017046
001206
001010
001220

001244
001246
$XTSTR
016354
$YESNO= 000001

2497
23314
8814
8944
4399
4783

46154
62274
4257
4282

47004
4699
L6954

9394
883#
9464
2600
9714
9724
45584
1088#
11864
13804

20004
22294
25340
26504
28264
2944H
30684
31184
31674
32874
3383#
34534
35304
35744

2156#
2382
25644
2689
27934
3032
34084
3585

19244

1928

19334

21724
2428
26034
2704
2813
3230
34924
3628
38754

2176
24294
2606
2708#
2838
32404

2573
29094
3357

25744
2941
34114

2578
29534
3462

26104
2963
34704

2325¢
2827

2350
29354

2363

3797
23284
3447
24924

2351#
2939
38034
2340
3883#
2496

4539

4544

3496
36294
3888

23140
2685
37894
1550
34364
2337

38704
14754
25694
2829
33524
15254
2318
28234
3793
15614
3439
24864

37944
1567
34440
2491

1112+
4400

4182+
4417

4503
44214

4770
4271
L2874

4778
L2764

4277

4343

2846+

4025

4070

1597
2665

1661

10914
12324
13974
20074
22594

10924
12488
13984

3838
1153
2506
28204
3351
1508

4782
4459
6264
4284
4779
47024
4780
1070+
1206

2661
4068
108%#
12314
13814
20064

22304
25584
26514
28464
29454
30704
3119#
32454
3288#
34154
34544
35354
35754

1942

2160
24248
2580
27014
2797
32274
3483
36204
3872
1576

1532

1579

1533#

17924

1552

22104
2432
26074
2711
28434
3253
3500#
3633
1795

15564

2958#
3807

23414
3884

19474

2214
2448
2615
27154
2848
32724
3504
36684
17964

2613
32754
3481
1570
24704
2961
3878#
2347

1952

22474
2449
26384
2720
28684
3316
35240
3676
1799

20204
2251
24640
2642
27244
2871
33424
3532
36774

2024
2258#
2508
2648
2730
2884#
3361
35334
3681

20374
2260
25264
2652
27504
2891
33724
3537
3785#

2041
22634
2530
26564
2754
2906#
3373
35724

22634
2678
3291#
3810

24674
2687
3304#
3875#
2283
26714
3456

2501
28164
3314
3887
22994
2675
34754

2483

2484n

2598

2475
33094
3880
23554

24764
3312
38834
2362

2365
26794
3294
3825
22774
2498
34334
3885
24784

4599

4603

26674
3290
37854
15714

1574

4571

4593

4594

4074+

4078

4087

4098+

1723

3937

1790
3941

4023

4096

2242

2326

2351

2375

2422

10944
12494
14144

1095#
12654
1415#

1103#
12664
15574
2080#

11044
13064
15584
21204

11564
13074
17044

1157#
13234
17054

11594
13244
19774

11604
13404
19784

25594
26574
28474
29474
3071#
3131
32464
32924
34164
36640
35364

35774

20484
2260#
25604
26584
28894
29488
30834
31320
32514
32934
34214
34650
35464

3578¢

2049#
24394
2561#
26734
28904
2949#
30844
31344
3252#
32964
342208
34664
35474

3583«

20794
24404
25654
26744
29114
2950#
30864
31354
32774
32974
34264
34674
35504
35844

2096

24420
2566#
26834
29124
29594
30874

31474
3278#
3300#
36274
34774
3551#
35944

24434
25704
26844
29134
29604
30994
31484
32804
3301#

34374
34784
35534

35954

21214
24584
25714
27364
29144
30504
31004
31504
32814

33104
34384
35184
35544
35984

21414
24594
25764
27374
29164
30514
31024
3151#
32824
33114
34454
35194
35574
3599«

21424
24604
25774
27584
29174
30534
31034
31634
3283#
33594
34464
35264
3558#
3601#

21904
24614

26234

27594

29224
30544
3115#
31644
32854
33604
34504
35274
35664

36024

3825

4781

3343

2103
23804
2563
26634
2787
3024#
3384
35814

1900

SEQ 0132

18924

10:10
PAGE 135
CROSS REFERENCE TABLE -- USER SYMBOLS

21014
2366
25544
2659
2783
2965
33814
3580
38354

30-JUN-78

AAAAP

1882

30A(1052)

CVOLAAO DLVI1-) TEST
MACY11
CVOLAA.PI
11-MAY-78 00:00

21704
24654
26544
28414
3473
11054

2242
24684
26614
2907#
34904
1107

37734

14004
17234

1236
13154
14004
1508#
15994
16974
17874
1882#

$$FROM= 000000

$$GET4= 000000
$$LOC = 012710

20244
22094
23234
23774
2478
25674
2646,
25604
27204
28144
29394
32944
3436
3492
36334
14924

21454
3818«

41984
1°06#
1253
13844
1525
16644
1789
1932#

2172
23274
2453
2525#
2648
27074
2813
2934#

14194
1725#

12402
13264
1402
15234
1602
17064
1789
18904

20354
c214H
2325
2380
Zul6H
2567
2648
2682
2722#4
2816
29414
33024
34394
34964
36664
1537#
21634

3615#
36534
36954

40524
L1540
12064
16394
17704

2244n
24764
26654

36224
36544
36974
4053#

36234
36A24
3675#

3625#
3663#
37014

36264
36704
3702#

36424
36744
38714

36464
3680#
38794

36474
3690#
38804

12184
164648
17874

1234#
15234
17904

12514
15544
18534

15594
18704

12704

13264
16444
19454

13674
16634
20964
24224
2608#
28144
34424

13834
17064

23124

2323#

23264
25244
26994
32734

24B4x
26694
29564
35224
11474
1253
13320
14194
15454
16284
17130
1792

25224
2680#
3022#
35704
1149
12574
13454
1421
1550#
16334
1723#
1799#

20414
22448
2328
24228
24964
25804
26540
26874
27304
2823
2953
3307#
3444

20964
2247
23294
2424
25064
25984
2656
26894
27494
28274
29564
3309
34474

36814

3787#

2098#
22514
233
24324
25084
26004
26594
26994
27544
28294
2958
3312#
34624
35224
3789

22004

22684

2290#

26294

11484
1272

1149
12944
1402
15554
1692
18304
1947

11624
1295
14204
1556
17074
1831
2019#

29514
34984
11144
12514
1328
16064
1525
1605#
1708
1790#
1892
2037
22424

23264
23824
2486
2578«
26524
26854
2724
2821#
29514
3304
34424
34984
3668
1618#

14014

1546
16914
1792
19464

2210
2330#
2464
25524
2656
27144
2814
29524

SEQ 0133

19004

3500

16828

22454
2331
24668

2553
2662#
2715
28224
2953

1923«

35044
17444

3618#
11534
12704
1347
14254
1552#

16444
17254
18064
19284

18204

23754
2598#
27914
34094
38334

2101
22764
23374
24624
2522#
2603
26614

21604
23054
23534
2467
25304
26134
2667
2708
2793
2848
3024
33574
3475
3572
3807#
2009#
29254

2811#
2909
3273#
3411
34814
36184
3835
2058#
3305#

20194
21764
23184
23754
24764
2554
26420
26754
2715
2813
29344
3275
34340
34904
3620
38384
21324
34710

1220
13464
1466
1628#
1754
18914

1236
13684
1503
1645#
1772
19234

1252#
1369
1524#
1646
1788#
1924

12064
1272
1351#
14394
15544
1646
1728
1830#
19314

2701
27824
2838#
29614
33144
34684
3524
3797#
18424

27394

2246
23524
2467
25684
2663

27234
2823
29574

2098#
24624
26464

23294
25494
27064
33024
36664

29664

12184
1295
13734
14640
1561
16634
17594
1855
19454

2100
23134
2379
24854
2610
26814
2783
28924
3024

12244
1309#
1385
164694
15744
1669#
1772
18704
1952#

2172
2314
23624
2470
25514
26374
2671

27134

2156
2324#
2424
25234
2638
2700#
2793
2908#
3232

28214
3468#
1234#
1311
13894
15024
15974
16914
17774
1872

2171#»
2325
24524
2524
2647H
2701
2812#
2909
3254#

$$FLAG= 900001

11054

36144
36504
36944
39274
38644
11472

Db 1
10:10
PAGE 136
CROSS REFERENCE TABLE -- USER SYMBOLS

30-JUN-78

$$ARGC= 000000
$$BYTt= 000402

36064
36494
36914
39264

30A(1052)

CVOLAAO DLV11- J TEST
MACY11
11-MAY-78 00:00
TVOLAA.PI

CVDLAA.PT

$SLOCN=
$SRETU=
$SRIN1=
$ERTINZ=
$$70

$OF ILL
$1
$10
$100
$101
$102
$103
$104
$105
$106
$107
$11
$110
$111
$112
$113
$114
$115
$116
$117
$12
$120
$121
$122
$123
$124
$125

$126
$127
$13
$130
$131
$132
$133
$134
$135
$136
$137

$14

$140
$141
$142

$143

000000
000000
000255
000256
000001

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

MACY11
11-MAY-78 00:00

3255
33740
3470
36194
37730
37730
37730
37730

14928
1845

21454
2745
38184

4696+
1106
1252
2276
2298

2312
2324
2327
2330
2339
2349
1271

2352
2376
2378
2423
2427
26478
2450
2463
1294

24666
2469
2474
2477
2482
24,85
2490
2500
1310
2523
2550
2552
2562
2568
2572
2599
2601
1327
2605

2609
2637
2647

30A(1052)

32740
3375
34744
3620
3852
38364
3836
3841
1498
19134

2151
27604
3821

4700+
11104
12574

10:10
PAGE 137
CROSS REFERENCE TABLE -- USER SYMBOLS

3275
33854
3475
36674
38644
38404
3849
3851
15374
1919

21634
2763
4710

22834
23054
2318#
2350#
23404
23374
23474
23634
12764

2354
23794
23824

23624

2428

24324
2452
2453
25084
1299#

2501
24754
24984
24834
24974
24914
24964
25064
1315#
2525
2553«
2563
2580#
25734
2578#
2602#
26064
13324
26154

26134
26424
26524

30-JUN-78

25304

3303
3386
3,864
3668
3893
3850
38644
38644

1543
19894
2166

27744

L7454

3304
34104
3487
3788#
41544

38644
3891
3892
1618#
1995
2200#

2780

SEQ 0134

3308#
3611
34914
3789

3309
34354
3492
3802#

33174
3436
34994
3803

3892

L1544
4167
4168
1682#

4168

4169

41544
41544
1624

2009#
2206
2925#

2015
2268#
293

1688

20284
2274
2954#

3318
34434
3500
3834

33444
3444
35230
3835

17440

1750
2058#
2296
3305#

2031
22904
2955

3345
34594
3524

18204

2064
26294
3306

33624
3460
35714

1826

21324
2635
34714

3363
34694
3572

18424

2138
2739#
3472

[gn
N o]

CVDLAAO DLVI1=-J TEST

$176
$177
$2
$20
$200
$201
$202
$203
$204

$205
$206
$207
$21
$210
$211
$212
$213
$214
$215
$216
$217
$22
$220
$221
$202
$223
18226

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
010726
010744
010756
010766

1384
29054
2908

2934
2952
2957
3023
32264
32394
1109
1401

32714
3274
3289
3303
3308
33414
3344
3350
1420

33714
33804
34074
3410
36320
3435
3443
3457
1440

3469
3474
3484
3491
3499

13894
2966
29461
2939«
29634
29614
30324
3231
3254
11144
14064

3317
32904
32944
33144
33124
3362
3351
3357«
14254
3374
3385
3486
34624
3459
3439
34470
34604
14504
3481

34794
3487#
34964
35044

"
®

e
©

6
Al

28294
28274
28484
2872
2892

[z
N en)

1
$173
$174
$175

2815
2818
2822
28472
28674
28834

2838#
28194

007314

$172

007224

2792
2812

27874
13734
27974

$171

$170

1368

006706
006760
006760
007106
007134
007166
002720

007062

2687#
2685#
27044
2711
27204
2730#
2754n

1351#

SEQ 0135

$162
$163
$164
$165
$166
$167
$17

$161

2677
2681
2700
2707
2714
2723
2749
2782

1346

138

006410
006422
006434
006504
006574
002672
006606

26594
2689#
2678#
26754

PAGE

TABLE ~-- USER SYMBOLS

—

$153
$154
$155
$156
$157
$16
$160

2655
2662
2666
2670

10:10

e«

006276
006350
006334
006332
002634
006350
006350
006376

30-JUN-78

CROSS REFERENCE

$144
$145
$146
$147
$15
$150
$151
$152

30A(1052)

CVDLAAO DLV11~y TEST
MACY11
CVDLAA
. P11
11-MAY-78 00:00

CVDLAAQ DLVI1=~) TEST

CVDLAA.PI

$225
$226
$227
$23
$230
$231
$232
$233
$234
$235
$236
$237
$24
$240

011040
011044
011160
003066
011164
011300
011304
011420
011424
012726
012730
012600
003072
012702

$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

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

$241

002160

SLOCAT=

ntennr

$40

003460

$4 1
$42
$43
$44
$45
$46
$47

003516
003520
003566
003606
003644
003646
003714

$50
$51
$52
$53

003732
003774
003770
003772

$54

002334

003776

30A(1052)

3523
3531
3571

35324
3537#
35804

11-MAY-78 00:00

1665

3579
3619
3627
3667
3675
3836
3841
37844

164744
3811
3788
3792
3802
3834
38914
38924
3869
1577
38704
3874

012616

MACY11

3877
38784
3882

()

L1674
41684
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

30-JUN-78

CROSS REFERENCE

14694

3585#
36284
36334
36764
36814

38494
38514
3825
1579
3813
3793
37974
38074
38384

38724
15804

3887
38884
38804
3884
38854
1508#
15324
1162
15524
15504
15704
15674
15744
16014
16054
16334
1153#
16504

4555

16654
16694
1697#
17134
17274
17314
17594
12114
17774
1802#
17954
17994
18064

10:10

38264

6 1
PAGE 13 9

TABLE

=-- USER

SYMBOLS

SEQ 0136

MACY11
11-MAY-78 00:00

CVDLAAO DLVI1~J TEST

CVDLAA.PT
$55
$56
$57
$6
$60
$61
$62

004044
004102
004122
002354
004144
004212
004226

$63

004240

$64
$65
$66
$67
$7
$70
$71
$72
$73
$74
$75

004432
004460
004626
004632
002402
005002
005030
005110
005214
005216
005226

$76

$77

1830
1854
1871
1219
1891
1923
1932
1946

005432

= 017354

2155
2N
2209
2243
2245
2257
2258#
2262
8274

21604
21764
22144
22464
22514
22604
2365
23664
8314

2036
2277
2354
2470
2601
2667
2749
2824
2957
3303
3386
3486
3668
39754

SASTA:

. $X

weveen

= 001000

44804
4432
8684

SEQ 0137

SYMBOLS

12244
19004
19284
19424
19524

20244
20414
21004
21034

928
1207
131
1440
1561
1726
1855

H 11
10:10
PAGE 140
30-JUN-78
CROSS REFERENCE TABLE =-- USER

18354
18634
18824

2019
2036
2097
2099
1235

005224

30A(1052)

12404

10004
1208
1327
1441
1600
1727
1871

2037

2298
2355
2477
2602
2670
2750
2842
2958
3304
3410
3487
37084
39854
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
37104

L1554
4603

8574
1022
1235
1347
1502
1629
1771
1892

2155
2314
2423
2486

2637
2682
2792
2873
3023
3317
3436
3499
37114

4160#
L6694

859#

1064#
1236
1368
1503
1645
1772
1923

2156
2324
2424
2523
2638
2700
2793
2892
3024
3318
3443
3500
3728#

4162#

8614
1099
1252
1369
1524
1646
1788
1924

2171
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

871#

1149
1294

1402
1555
1692
1830
1947

2210
2330
2464
2552

2245
2331
2466
2553

2934
3254
3363
3469
3572

2817#
2935
3255
3374
3470
3619
3834

2656
2714
2816

3803
4292

2662
2715

L4218

8734

1162
1295
1420
1556
1707
1831
2019

2246
2352
2467
2568
2663
2723
2822
2952
3274
3375
3474
3620
3835
4422

8914

1163

1310
1421
1560
1708
1854
2020

2276
2353
2469
2569
2666
2724
2823
2953
3275
3385
3475
3667
3935

4428

CVDLAAO DLVI1=y TEST
MACY1Y
CVOLAA.P11
11-MAY-78 00:00

BRESET
CALL

CASE
CLRVEC
COMMEN
DECR
ECRU
EFAUL
LSE
END
ENDCOM

ENDDE C
NDDO
NDIF

3609

5884

1607

S88#
12

2163

14
588#
T
14
1#
12
1#

2604

14
T

14
1
1424

1758

ENDINC
ENDLOO
ENDRTN
ENDSEL
NDSRV

ENDSUB

ERRDF
IERRHRD

ERROR

2175
2577
275%
3356

14
1%
14
14
588#

3634

5884
1635
5884
588#
1547

kxxre
XIT

GETPRI

IGE TSWR
If

1138
1637
1100
1491

1180
7214

2074

2224

3921

1530

1568

1108

2676

2280
14

1#
1438
1889

2467

1214
1671
1267
1536

2817

3288

SEQ 0138

3374

3090

3106

3122

3138

1261
1867
1447
1743

1289
1885
1640
1819

1303
1903

1319
1985

1336
2044
2252

2070

3154
1363

3513

3541

3561

3589

1377

1410

1435

2953

2114
2434
2008
3304

2185
2691
2028
3470

1393
2616
2798
2057
3818

2732
2985
2131

3388
2144

2738

2760

2773

2218
1912
2924

1793
3349

1800

3530

2338
3578

2348
3626

2426
3674

2473

2481

2489

2499

2561

2571

1223
1549
1834

1239
1551
1862

1256
1566
1881

1275
1573
1899

1298
1604
1927

1314
1632
1941

130
1649
1951

1350
1668

1372
1696

1388
1712

1405
1730

2628

1842

1988

3791

7214

1113
1449
1776

2213
2579
2786
3438
2364
1578

3848

2534
3654
1154
1651
1150
1221
1562

2358
2937

3058

4048
1244
1810
1416
1681

2267

2343
2795
4
5884

3041
3685

2199

2038
2503

2542
3657

1228
1733
1342
1617
2289

2021
2493
6154
1387
1875

ESCAPE
EXIF

2519
3637

10:10
PAGE 142
CROSS REFERENCE TABLE -- MACRO NAMES

115
1404
1895

7214
1575
3809
1208
2302
7214
7214
1146

1463

1930

2521

1152

1468
1798

2250
2612
2796
3446
3883
3824
3890
2581

2304
2641
2828
3478

2317
2651
2837
3480

2336
2658
2847
3495

2346
2674
2938
3503

2361
2684
2940
3536

2381
2686
2960
3584

2431
2688
2962

2023
2495
2703
3031
3680

2040
2505
2710
3293
3796

2102
2507
2719
3311
3806

2159
2529
2729
3313

3071

3632

3837

3682
1225
1698

4053
1258
1864

3087

3103

3119

3135

315

3167

3538

3558

3586

3606

1277
1883

1300
1901

1316
1953

1333

1352

1374

1390

1407

1426

1452

1237
1630

1273
1693

1296
1709

1312
1755

1329
1773
2299

2068
2639
1166
1423
1926

2472
3025

1466

2173
2708

1174
1505
1949

2488
3502

1602

221
2715

1178
1548

2022
2494

1666

2278
2724
1222
1563

2751

1238
1631

2042

2072

2177

2215

2731

2800

1348
1832

1370
1856

1386
1874

1403
1894

1622
1925

1444
1934

2315
2784

1255
1648

2332
2794
1274
1694

2039
2504

2069
2640

2158
2695

2174
2702

2342
2936
1297
1710
2212

2357
3024
1313
1756
2279

2709

2716

2334

2359

2509

2801

1728

1796

1803

1860

1879

1897

10514
1205
1522
1944

1233
1558
2095

1250
1596
2169
2607

1269
1643

1292
1660

1308
1705

1344
1769
2328
2679

1366
1786

2548

2597

2241
2653

3034

2311
2660

2322
2664

NN NN
PN
[o AV 1,
NV,}

WBGNSUB

5884

30-JUN-78

NI
= —

BEGIN

JIBGNSRYV

30A(1052)

2374
2698

2471
3493
1330
1774

2300
2725

1382
1789

2421
2705

1504
1948

2479
3501

2487

2752

2785

1954

2248

1399
1852

1418
1869

1349
1833
2316

2461

2712

13N
1857

2333

2464
2721

2050

2115
2231
2441
2625
2868

LOCAL
LooP
SG

uLT
EWTST
NOLOCA
0P
PUSH
REPEAT
REPORT

ETURN
OUTIN
SAVR14
SCOPE

SELECT
SETPRI

SETTRA

SETUP

2946
3069
3130
3240
3291
3358
3425
3543
3597
3659
3789
3928

1#
1#
1115#

2589

14
1

2368

4
1#
%
14
14

14
1#
14
6164
2594
14
14

47704
14

2840
3569
2720

2906
3617
3441

2950
3665
3497

2955
3786
3800

3832

1501

1544

1627

1690

1752

1829

2255
2867

3875

1078
1134
1230

1081
1139
1245
1396

1089
1157
1264
1436

1092
1181
1290
1471

1969

1980
2078

1981
2080

1611
1910

2054
2116
2232
2457
2643
2878
2948
3077
3133
3242
3295
3365
3428
3545
3600
3661
3794
3929
1473
1117
28524
7214

1638

1703

2075
2119
2233
2459
2649
2880
2958
3080
3141
3244
3299
3377
3436
3547
3604
3663
3804
3930

1734

3467

1922

2018

2154

2208

2275

2297

2636

2748

1095
1182
1304
1476
1738
1982
2081

1102
1183
1305
1478
1766
1983
2082
2195
2411

1129
1187
1337
1526
1838
1998
2109
2226
2419
2575
2824

1130
1188
1339
1556
1848

1131
1189
1364
1564
1868

3433

3691
3905

2108
2225
2417
2569
2770
2912
3049
3112
3218
3276
3338
3411
3517
3576
3641
3696
3922

3223
3279
3345
3414
3519
3582
3643
3700
3923

2005
2110
2227
2424
2617
2843
2918
3061
3117
3227
3281
3347
3417
3525
3591
3645
3773
3924

2045
21
2228
2429
2619
2845
2921
3064
3125
3234
3284
3352
3420
3528
3593

3621
3687
3903

2192
2407
2557
2735
2900
2996
3098
3160
3263
3326
3399
3465
3565
3624
3689
3904

11964

1356

14544

1456

15874

1957#

1959

2086#

2088

1454

1587

1715

1779

1957

2086

3225

3238

3270

3340

3370

3379

3406

3431

1459

1592

1656

1718

1782

1965

2092

2238

2400

2875
4787

4788

2982

3256

3368

3787

2854

3563

1115

1354

1428

7214
7214
"136
5884

3889
3864
2446

4656
4458

4615

1122

3408

2189
2405
2555
2733
2898
2993
3096
3157
3260
3324
3397
3463

2805

3835
3771

3342

2186
2402
2545
2682
2888
2991
3093
3149
3250
3322
3395
3452
3556
3615
3678
3902

2587

7214

3306

o — =N
N
OOV

1394

3301

—d

2933

3272

3021

14
1#
14
1%
"
14
1133
1229
1379
1608
1904

1104

2820
3521
2645

2781

2813
3489

SEQ 0139

IF .NO.
INCR
INCRU
INLINE
EAVE
ET

14
14

J N

10:10
PAGE 143
CROSS REFERENCE TABLE -- MACRO NAMES

30-JUN-78

O QO \NIN
— —

1F8
1¥ COND
1F .ERR

2810
3472
14

30A(1052)

—

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

2904

721#

2559
2757
2902
3044
3101
3162
3265
3332
3402
3476
3567
3630

2915

3052
3114

3648
3775
3925

3839
3862

2808

2858

1201

1359
4181

7214
4779
7214

1286
4780
1002

2123
4782

1431

2216

4784

4786

23N

CVDLAAQ DLVY1-J TEST
MACY11
11-MAY-78
CVDLAA.PI
00:00
SETVEC
SK1P
SLASH
SPACE
STARS

5884

1128

2249

2281

14
7214
1#

874

1430

2235
3039

STRUCT
SWRSU

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

[UNTIL
UNTILB
WAITMS
WHILE
WHILEB

$ADDON

1
14

47704

4
1
1#
1
14
1
14
4161
1#
14

588#
4
1L
14

1253
1400
1545
1666
1796
1947

2256
2331
2467
2569
2665
2749
2867
3024
3342
3436
3533
3794

$AND
$SBRANC

4154
1#
1
1384
1600
1830

2245
2378
2525
2670

7214

887

1454

2237
3202

6294

588#

7214
7214
7214
7214
7214
7214
7214
7214
6163
1160

30A(1052)

K 11
10:10
PAGE 144
CROSS REFERENCE TABLE -- MACRO NAMES

30-JUN-78

1979
1209

2107

2303

1467

2335

3901
1582
2345

2360

1603

1729
2802

1797
3035

1804

1861

1880

734
928
1458
2368

736
931
1587

754
1115
1591

756
1A
1653

776
1193
1715

795
1196
1717

797
1200
1779

816
1279
1781

1281
1957

3213
4362

2370
3509

4391

2516
3511

2518
3749

8564

865
1358
2086

1428

867

3948

4154

4156

4159

3252

3315

3455

3482

1149
1326
1466
1579
1753
1872

1206
1328
1474
1597
17564
1890

1234
1369
1523
1644
1789
1931

1236
1383

1251
1385

1646
1790

1661
1792
1945

4672

4155

4160

4164

6312

2593

4042
4749

2805

4047

2807

4061

2857

2091
3037

10234

2835
1044

4158
2831

2816

4193

2830

2832

1841

2027

2759

3817

1105

1107
1272
1419
1554
1692
1830
2020

1137
1295
1439
1559
1708
1853
2037

1138
1309
1441
1561
1723
1855
2096

2019
2258
2341
2468
2574
2667
2750
2868
3226
3343
3442
3570
3801

2259
2351
2470
2598
2669
2782
2883
3227
3345
3444
3572
3803

2351

2522

2257
2423
2550
2677

1955

6212

2587
3861

4605

2964

1106
1401
1628
1854

1940

4173

2541
3854

4487

2890

1546
1691
1803

824

1898

1354
1964
2852
4065

4430

2448

1270
1402

SEQ 0140

1109
1420
1645
1871

2262
2427
2552
2681

2276
2375
2478
2607
2679
279
2905
3240
33N
3468
3618
3833

2277
2380
2484
2608
2680
2793
2906
3271
3372
3470
3620
3835

1162

1207

1465

1664

1923
2298
2452

2568
2707

1502

1691

1932
2313
2463

2572
2714

3934

1525

1533

2155
2299
2424
2492
2637
2699
2813
2909
3273
3381
3475
3666
3868

2156
2312
2429
2502
2638
2701
2814
2934
3275
3407
3488
3668
3870

2210
2326
2462
2554
2656
2715
2823
2956
3307
3432
3500
3785
3878

1933
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

1235
1531
1724

1252
1545
1726

1327
1577
1791

1346
1579
1794

1368
1598
1801

2019
2327
2469
2601
2749

2036
2330
2474
2605
2782

2171
2354
2490
2655
2818

2209

2365
2500
2662
2822

2243
2376
2523
2666
2842

CVOLAAC DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.”PI

$BRCOD
S$CALL
$CHECK

$CHK

$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
2268
1147
1464
1931
2468

2706
3343
1082
1183
1394
1677
1981

2083
2227
2420
2869
3048
3219
3325
3403
3616
3871

2108
2230
2425
2879

1087
1414

1090

2460
2846
3086
3282
3453
3583
3673
1105
1439
1790

2329
2567
2811
3468
1105
1439
1770

2209
2476
2706
3273
3787

3062
3224
3327
3405
3640

3876

1557
2533
2889
3099
3285
3464

30A(1052)

2934
3374
3571
3869

10:10
PAGE 145
CROSS REFERENCE TABLE -- MACRO NAMES

1661

2952
3385
3579
3874
1723

2957
3410
3619
3877
2096

2966
3435
3627
3882
2242

3023
3443
3667
3884
2261

3231
3457
3675
3887
2375

1618

1682

1744

1820

1842

1913

2290

1206
1523
1945
2476

2713
3409
1085
1186
1411

1734
1982
2109
2231
2430
2881
3065
3228
3333
3412
3644
3879
1093
1704
2558

2629
1218
1554

2739

1234
1559
2096

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
1977

1156
1999

1158
2006

3594
3679

2911
3102
3287
3466
3598
3690

1147
1464
1853

1206
1523
1870

1218
1554
1890

1234
1559
1931

1147
1464
1787
2242

2484
2713
3302
3801

1206
1502
1790

2256
2522
2722
3307
3833

1251
1597
2170

2522
27N
3442

2565
2916
3118
3296
3518
3605
3697

2353
2600
2821
3490

2760

2035
2484
2722
3434

2560
2913
3115
3292
3477
3601
3694

2351
2598
2814
3473

L 1N

30-~JUN-78

2375

2608
2841
3498
1218
1523
1830

2276
2549
2749
3343
3868

2377
2646
2907
3522
1234
1545
1853

2298
2567
2782
3409
3876

2570
2922
3131
3300
3526
3614
3701

1251
1597
1945

2422
2654
2951
3570
1251
1554
1870

2312
2598
2791
3434

2774
1270
1644

2242
2567

2925

1293
1661

SEQ 0141

3274
3469
3792

3289
3474
3802

3303
3484
3811

3308
3486
3813

3317
3491
3825

2549

2598

3456

3483

3810

2009
3305

2028
3471

2058

2132

2145

1787

1383
1790

1400
1853

1326
1723

1345
1770

3818
1367

2312
2598
2821

2329
2654
2951
3570

2351

3490

2326
2646
2907
3522

2375
2665
3022
3666

2422
2669
3273
3787

1130
1229
16487
1839

1132
1262
1527
1868

1290
1565
1886

1133

1135
1304
1572
1904
2077
2196

1139
1320
1608
1911
2080

1142
1337
1612
1970
2081
2225
2414
2844
2997
3158
3321

2051
2117
2287
2620
2903
3110
3247
3353
3520
3774
3906
1231

2075
2186
2403
2644
2979
3126
3261
3366
3548
3778
3923

2076
2193
2406
2733
2989
3129
3264
3378
3564
3790
3924

1265

1306
2190
2673
3050
3166
3421
3553
3646

1323
2228

2683
3053
3245
3426
3557
3649

2439
2736
3067
3251
3437
3566
3653

2442
2758
3070
3277
3445
3574
3662

1345
1706
2242
2484
2699
3307
3833
1345
1661
2019

1367
1723

1383
1725

1400
1770

2078
2623
2947
3147
3359
3535
3625
3925

2141
2657
2959
3163
3415
3550
3642

1293
1644

1326
1663

2096
2465
2665
3022
3666
1293
1597
1923

2326
2637
2814
3468

2661
2956
3618

2170
2476
2680
3302
3801
1326
1644
1945

235
2654
2841
3490

2375
2661
2907
3498

2408
2768
2992
3142
3266
3394
3568
3795
3927

2223
2412
2771
2994
3145
3269
3396
3592
3805
3928
1340

3398
3596
3866
3929
1380

2244
2522
2706
3343

2312
2524
2713
3409

2323
2549
2722
3434

1367
1691

1383
1706

1400
1723

2035
2422
2665
2934
3522

2096
2462
2669
2951
3570

2155
2465
2680
2956
3618

MACY11
11-MAY~78 00:00

$00
SELSE
SERRMS
SEXIFA
SEXIFO
SEXIF2
SEXIF3
$GENBR

$GENTA

2163

14
14
14
14
14
1#
14
#

1384
1600
1830

2245
2378
2525
2670
2872
3344
3499
3834

1
1389
1605
1835

2251
2428
2563
2689

$IF

$1FCOD

$1FCON

$1FOPR

2905
3357
3537
3870

1X
1419
1870

2462
2680
3302
3801

14
1400
1853

2377
2654
2891
3384
3801

1492
2200

2268

2290

2351

2476

2484

1105
1420
1645
1871
2262

1148
1440
1662
1891

2155
2463
2666

1618

1744

SEQ 0142

2629

2739

2760

2774

2925

2954

1989

2009
3305

2028
3471

2058
3818

2132

2145

1162
16465

1207

1219

1691
1932

1707
1946

1252
1545
1726

1271
1555
1753

1294
1560
1771

1310
1569
1788

1327
1577
1791
217N

1346
1579
1794

1368
1598
1801

1682

1820

1842

1913

3810
1106
1401
1628
1854

2257
2423
2550
2677
2892
3350
3523
3836

1110
1406
1633
1863

2258
2432
2573
2704
2939
3371
3580
3872
1105
1439
1890

2465
2699
3307
3833
1105
1419
1870

2627
2552
2681
2908
3362
3531
3841
1114
1425

1650
1882
2260

2447
2578
2711
2941
3380
3585
3878
1147

1464

2313
2463
2572
2714
2957

2324
2466
2599
2723
2966

2283
2453
2580
2720
2961
3407
3628
3880
1206
1523

2305
2475
2602
2730
2963
3432
3633
3885

1211
1474
1697
1942

2318
2483
2606
2754
3032
3439
3676
3888
1234

1224
1508
1713
1952

2337
24N
2613
2787
3226
3447
3681
3891
1251

2035
2484
2722
3434

2096
2522
2N
3442

2170
2549
2811
3468

1206
1523
1945
2465

1218
1554

1234
1559

1450
1665
1900

1931
2468
2706
3343

2476
2713
3409

1147
1439
1890

1161
1464
1931

1945

1153
1469
1669
1928

1218
1554

3410
3619
3877

1559

3435
3627
3882

1597

2019
2327
2469
2601
2749
3023
3443
3667
3884
1240
1532
1727

2024
2340
2496
2615
2797
3239
3460
3784
3892

1270
1644
2242

2036
2330

2474
2605
2782
323
3457
3675
3887
1257
1550
1731
2041
2347
2497

2642
2819
32N

3462
3793
4167
1293

2097
2339
2477
2609
2792
3254
3459
3788

2099
2349

2155
2352
2485
2647
2815
3289
3474
3802

1276
1552
1759
2100
2350
2498
2652
2827
3290
3479
3797
4168

1299
1567
1777

1315
1570
1795
2160
2363
2506
2675
2838
3312
3487
3826

1309
1706

2482
2637
2812
3274
3469
3792

2103
2362
2501
2659
2829
3294
3481
3807

2243
2376
2523
2666
2842
3317
34N
3825

1332
1574
1799

1351
1580
1802

1373
1601
1806
2246
2382

2176
2366
2508
2678
2848
3314
3496
3838

2214
2379
2530
2685
2867
3341
3504
3849

2553
2687
2883
3351
3532
3851

1326
1723
2326
2646

1367
1787

2351
2661
2956
3618

1383
1790
2375
2665
3022
3666

1345
1770

2600

2821
3343
3618

1367
1787
2351
2608
2841
3361
3666

2353
2646
2871
3373
3787

2567
2814
3473

2312
2598
2821
3490

2323
2608
2841
3498

2907
3522

1345
1770
2329
2654
2951
3570

1251
1599

1270
1644

1293
1663

1309
1706

1326
1725

1661

2490
2655
2818
3303
3484
3811

2209
2365
2500
2662
2822
3308
3486
3813

2354

1400
1853

2422
2669
3273
3787
1383
1790

2680
2965
3458

2035
2468
2699
3022
3468

2098
2476
2706
3230
3473

2170
2484
2713
3253
3485

2244
2522
2722
3273
3490

2312
2524
27N
3302
3498

2323
2551
2811
3307
3522

2326
2567
2814
3316
3570

1628

1691

1753

1830

1923

2019

2155

2209

2276

2298

2637

2749

1162
1465
1788

1207
1502
1791

1219
1524
1830

1235
1545
1854

1252
1555
1871
2324

127
1560
1891

1294
1600
1923

1310
1628
1932

1327
1645
1946

1346
1664

1368

1384
1707
2099

1502

1545

1106
1420
1753

1148
1440
1771

2209
2469
2681

1524

2298
2452
2568
2707
2952
3385
3579
3874

2462
2669
2956
3442

217N
2466
2670

1664

1923

1502

2276
2450
2562
2700
2934
3374
3571
3869
1137

2451
2665
2951
3434

2422
2661
2907
3409
3833
2934

1401
1726

1537

NN W
&H
= un

SCOUNT

LR
10:10
PAGE 146
CROSS REFERENCE TABLE -- MACRO NAMES

30-JUN-78

-t

CVOLAA.PIN

30A(1052)

~w
o

CVDLAAQ DLVI1-y TEST

2245
2477
2700

2276
2485
2707

2298
2523
2714

2313
2525
2723

2552
2749

2327
2568
2782

2330
2601
2792

2352
2609
2812

2354
2637
2815

2329

2019
2378
2647
2822

1691

2036
2423
2655
2842

2452
2662
2872

$OPAND
$OPCD1

$OP(CD2
$0PCOD

$OPCOM
$OPDEf

2115
2231
2442
2626
2869
2947
3070
N
3261
3292
3359
3426
3544
3598
3660
3790
3928

14
14

2825

3245
3518
3694

14
1L
1397

2442
2758
3070
3277
3445
3574
3662

14
1

1397

2442
2758
3070
3277
3445
3574
3662

14
14
1112

1079
1135

123
1394

1612
1911

2934
3410
3834
1082
1139
1245
1397
1638
1970

2055
2117
2232
2458
2644
2879
2949
3078
3134
3243
3296
3366
3429
3546
3601
3662
3795
3929
2256

2075
2120
2233
2460
2650
2881
2959
3081
3142
3245
3300
3378
3437
3548
3605
3664
3805
3930
3868

2846
3251
3526
3871

2889
3277
3546
3879

1088
1414

1091
1557

1088

2458
2825
3083
3280
3450
3577
3670
2947
1088
1414

1091

2460
2846
3086
3282
3453
3583
3673
3296
1091
1557

2952
3435

2957
3443

2966
3459

3023
3469

1085
1142
1248
16411
1672
1974

1087
1156
1262

1090
1158
1265
1436
1704
1980
2078
2186
2403
2546
2683
2889
2992
3094
3150
3251
3323
3396
3453
3557
3616
3679
3902

1093
1181
1290
1472
1734
1981
2080
2190
2406
2556
2733
2899
2994
3097
3158
3261
3325
3398
3464
3564
3622
3688
3903

1982
2081
2193
2408
2558
2736
2901
2997
3099
3161
3264
3327
3400
36466
3566
3625
3690
3904

1159

2076
2127
2287
2528
2657
2885
2979
3083
3145
3247
3310
3382
3445

3550
3612
3670
3823
4052
3876
1094

1414
1677
1977

2077
2141

2309
2533
2673
2887
2989
3086
3147
3249
3321

3394
3450
3553
3614
3673
3866
1103

1156

3231
3474

3254
3486

3344
3619

3362
3667

1096

1103
1183
1306
1479
1767
1983

1131
1189
1364
1565
1868

1132
1215
1378
1572
1886

1182

1304
1477

1739

2082
2196
2412
2560
2758
2903
3045
3102
3163
3266
3333
3403
3477
3568
3631
3692
3905

2045
211
2228
2430
2620
2846
2922
3065
3126
3235
3285
3353
3421
3529
3594
3649
3776
3925

2048
2112
2230
2439
2623
2865
2944
3067
3129
3237
3287
3355
3424
3535
3596
3653
3778
3927

2949
3292

2959
3300

1185

3926

2944
3287
3566

4052

3050
3310
3598

1557
3067
3359
3614

2560
3147
3464
3670

2565
3163
3477
3690

1094

1103
1977

1156
1999

1159
2006

1185

1231

1340

1380

2565
2916
3118
3296
3518
3605
3697

1156
1999

1159
2006

2913
3282
3550

1704
2533

2889
3099
3285
3464
3594
3679
3415
1094
1704

2558
29N
3102
3287
3466
3598
3690
3621
1103
1977

3574

2560
2913
3115
3292
3477
3601
3694
3466

2458
2825
3083
3280
3450
3577
3670

24660
2846
3086
3282
3453
3583
1673

2533
2889
3099
3285
3464
3594
3679

2558
2911
3102
3287
3466
3598
3690

2560
2913
3115
3292
3477
3601
3694

1079

1082
1129

1085

1087

1088

1126

SEQ 0143

1130

nxn

1132

3594

2048
2570
2922
313
3300
3526
3614
3701

2079
2576
2944
3134
3310
3529
3622
3823

2259
2683
3053
3245
3426
3557
3649

2439
2736
3067
3251
3437
3566
3653

1185
2048

1231

1340

1380

2565
2916
3118
3296
3518
3605
3697

2570
2922
31N
3300
3526
3614
3701

1090

1091

1133

1135

2079
2576
2944
3134
3310
3529
3622
3823

2259

1093
1139

2683
3053

3245
3426
3557
3649
-

SLPCNT
$OPADD

4
1133
1229
1380
1608
1904
2051

2908
3385
3802

N 11
10:10
PAGE 147
CROSS REFERENCE TABLE -- MACRO NAMES

30-JUN-78

wo
(J-

SLET

2892
3374
3788

30A(1052)

CVOLAAQ OLVI1=~y TEST
MACY11
11-MAY-78 00:00
CVOLAA.P1Y

2439
2736
3067
3251
3437
3566
3653

2006
2045
2079
2117
2149
2201
2232
2272
2313
2376
2439
2476
2550
2600
2635

2673
2739
2774

$OPEQU
$OPNAN
$OPNEG

2821
2889
2927
2965
3067
3129
3231
3273
3308
3350
3398
3437
3473
3523
3571
3619
3667
3788
3823
3876
3924

2009
2048
2080
2120
2150
2202
2233
2273
2323
2377
2442
2477
2551
2601
2637

2677
2740
2775
2822
2891
2928
2966
3070
3131
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
2683
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
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

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

2019
2062
2099
2137
2170
2225
2259
2293
2349
2418
2462
2523
2567
2626
2657

2707

2758
27N
2869
29N
2949
3023
3099
3161
3251
3292

3333
3374
3418
3458
3491
3550
3598
3646

3694
3811
3852
3902
4169

—d
e
b
cd
o
d
ek
b

1644
1691
1749
1821
1868
1923
1990

- —d

SO
-2 WO 0
- =~y
00

—D

1624
1686
1746
1811
1849
1917
1984

1576

1401
1493
1540
1579
1638
1688
1748
1820
1854
1919
1989
2015
2061
2098

—d

1623
1685
1745
1801
1845
1916
1983

1572

1252
1327

1397
1487
1538

1323

1394
1479
1537

1320

1186
1251
1326
1400
1492
1539
1577

—d

1185
1248

1734
1790
1842
1913
1980

1184
1245

SEQ 0144
o0 ~ NONWAWV
S SN
nNVO OO
O=NO
W N O~ = OWOOWVOO

1682

10:10
PAGE 148
CROSS REFERENCE TABLE -- MACRO NAMES

1181
1231
1306
1380
1465
1524
1560
1620

B 12

30-JUN-78

—

1162
1229
1304
1378
1464
1523
1559
1619
1677
1726
1788
1839
1911
1977

30A(1052)

AN
S SN —

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

1871
1932
1992

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
14620
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
21
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
1771
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 DLVIT1-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.PI
$OPNOR
$OPNOT
$OPOR

$OPRCY
$OPRO

$OPR1

$OPR?2

1”

1248

3086

1231

2673

1079
1182
1378
1672
1980
2083

1981

2108
2230
2430
2881
3065
3228
3333
3412
3644
3903
3871

1085
1186
1411
1734
1982

2947
2922
1597
1493

1661
1538

1723
1619

1087
1414

1090
1557

¢ 12

30-JUN-78

10:10
PAGE 149
CROSS REFERENCE TABLE -- MACRO NAMES
1999

3134

1340
2911

2048
3150
1380
2916

2120
3166
1414

3280

2190
3557
1704
3285

1096

1187
1436

1739
1983

2458
3605
2006
3437

2533
3701
2439
3577

1130
1229
1487
1839

1132
1262
1527
1868
2075
2186
2406

2051
2117
2309
2626
2919
3113
3249
3355
3544
3776
3924

2110
2232
2546
2887
3081
3237
3339
3424
3664
3905
1103
1977

1231
2078
2623
2947
3147
3359
3535

2560
2913
3115
3292
3477
3601
3694
3421
3553

2558

2570

2758

3053

2442
3625

2576
3673

2623

2650

1133
1290
1565
1886

1135
1304
1572
1904

1139
1320
1608
1911

1142
1337
1612
1970
2081
2225
2418

3129
3264
3378
3564
3790
3928

2076
2193
2403
2758
2992
3142
3266
3394
3568
3795
3929

2077
2196
2412
2771
2994

1265
2141

1306
2190

1323
2228
2683
3053
3245
3426
3557
3649

2439
2736
3067
3251
3437
3566
3653

2733
2989

2657
2959
3163

2673
3050
3166
3421

3625

3415
3550
3642

3649

3697

3823

3925

2096

2598

1683

SEQ 0145

3553
3646

3145
3269
3396
3592
3805
3930

2080
2223
2414
2844
2997
3158
3321
3398
3596
3866

1340

2865
3045
3161
3323
3400
3612
3868

1380
2442

2758
3070
3277
3445
3574
3662

2201

2269

2291

2630

2926

1914

2010

2029

2059

2133

2146

1110
1406
1650
1928

1114
1425
1669
1942

1153
1450
1697
1952

1161
1469

1257
1552
1795
2176

1299
1570
1802

1315
1574
1806

1332
1579
1835

1351
1580
1863

1373
1605
1882

2337
2496
2652
2827
3294
$THEN

1677

2736

2533
2889
3099
3285
3464
3594
3679
3296
3382

2227
2425
2879
3062
3224
3327
3405
3640
3902
2259

2R73

$STRUC
$SUBON

1082
1183
1394

1397
3118
1306

2109
2231
2528
2885
3078
3235
3336
3418
3660
3904
3879
1093
1704
2558
2911
3102
3287
3466
3598
3690
3415
3535

2460
2846
3086
3282
3453
3583

$SOPSHF
$0PSUB
$OPSWB
$OPXOR
$OR
$PUT

1323
3102
1265
2683

30A(1052)

3483
3826
1105
1439
1890
2465
2699

3307

2340
2497
2659
2829
3312
3496
3838
1147
1464
1931

2468
2706
3343

2347
2498
2675
2838
3314
3504
3849
1206
1523
1945

2476
2713
3409

1713
2024
2350
2501
2678
2848
3316
3532
3872
1218
1554
2035
2484
2722
3434

2366

2563

1270
1644

2244
2567
2814
3473

2704
2941
3373
3628
3884
1293
1663

2312
2600
2821
3490

2251
2428
2578
2720
2963
3439
3676
3887
1326
1725
2326
2646
2917
3522

2260
2432
2580
2730
2965
3447
3681
3888
1345
1770
2329
2654

2951
3570

2263
2449
2606
2754
3032
3456
3793
3891

2283
2475
2613
2787
3230
3462
3797

2353
2661
2956
3618

2377
2665
3022
3666

1367
1787

6167
1383
1790

2305
2483
2615
2797
3253
3479
3807
1400
1853
2422

2669
3273
3787

CVOLAAO DLVI1=J TEST
MACY11
CVOLAA.PI
11-MAY-78 00:00
STILA
$TILO

SUNTLZ2

SUNTL3
SWHILE
$$( MRE

[sscnTm
SSDEFA
$$EADS
$SLRRO
$SESCA
$$GEN

$$GETS

$SGETT
$SLPCN
SENEWT

$$POP

3801

14
K4

1
1L
885#

D 12

30-JUN-78
10:10
PAGE 150
CROSS REFERENCE TABLE =-- MACRO NAMES

SEQ 0146

3833

2449

3456

3483

7214
1110
1406

1114
1425

1137
1450

885#

14
14
14
4
1
1389
1605

1835
2251
2428
2563
2689
2905
3357
3537
3851

1w
1373
1576
1801

2214
2363
24N
2605
2720
2961
3361
3579
3826

2490

1633
1863
2258
2432

1650
1882
2260
2447
2578
2711
2941
3380
3585
3870

2580
2720
2961
3407
3628
3872

2251
2365
2496
2606
2730
2963
3373
3580
3838

2260
2366
2497
2613
2754
2965
3384
3585
3849

2263
2382
2498
2615
2787
3032
3439
3627
3872

2500

2562

2572

2587

2805

2852

1406
1650

1425
1669

1450
1697

2573
2704
2939
331
3580
3863
1109
1389
1579
1802

1109

1w
1L

2259
7214

1110

2368

1389
1633

1900

2318
2491
2642
2819
3290
3481
$$PUSH

30A(1052)

3825
14
1253
1400

1928

2337
2496
2652
2827
3294
3483
3826
1105
1270
1402

1110
1406
1580
1806

1531

3871
1115

1114

1942

2340
2497
2659
2829
3312
3496
3838
1107
1272
1419

1665
1900
2283
2453

1114
1425
1605
1835

1569

1153
1469

1211
1474

1224
1508

1669
1928
2305
2475

1697
1942
2318
2483

1713
1952
2337
24N

3878
1153
1450
1633
1863
2283

3880
1161
1469
1650
1882
2305

3885
1211
1508
1669
1900
2318

2602
2730
2963
3432
3633

2606
2754
3032
3439
3676

2613
2787
3226
3447
3681

2427
2500
2642
2797
3230
3447
3628
3875

2428
2501
2652
2818
3253
3456
3633
3880

2432
2506
2659
2819
3289
3462
3675
3883

2605

1795
2160
2363
2506
2675
2838
3312
3487
3807
4167

1799
2176
2366
2508
2678
2848
3514
3496
3826
4168

2337
2449
2508
2675
2827
3290
3479
3676
3884

2339
2474
2530
2677
2829
3294
3481
3681
3885

2340
2475
2562
2678
2838
3312
3483
3792
3887

2347
2478
2563
2685
2848
3314
3496
3793
3888

2349
2482
2572
2687
2871
3316
3504
3797
3891

2350
2483
2573
2689
2891
3350
3531
3807
6167

3350

3531

3627

3675

1224
1531
1697
1928

1240
1532
1713
1942

1279

1354

1428

1454

1161

1211

1224

1240

1952

2024

2041

2103

2160

3849
1111
1293

3872
1137
1295

3880
1147
131

3883
1149
1326

2347
2498
2675
2838
3314
3504

1421

2350
2501
2678
2848
3316
3532

1439

2362
2506
2685
2871
3351
3537
3875
1138
1309
1441

1532
1759

2363
2508
2687
2891
3357
3580

1464

1332
1574

1777
2103
2362
2501
2659
2829
3294
3481
3797
4153

2818

1508
1731

1315
1570

1759
2100
2350
2498
2652
2827
3290
3479
3793
3892

2677

1469
1713

1299
1567

1731
2041
2347
2497
2642
2819
3271
3462
3784
3891

2349

1153

1276
1552

1727
2024
2340
2496
2615
2797
3239
3460
3772
3888

2339

3202

1794

1257
1550

1801

3879
1196

1576

1240
1532

3289

1550
1777

2365
2530
2689
2939
3361
3585

1466

1257
1550
1731
1952

1276
1552
1759
2024

1299
1567
1777
2041

1315
1569
1794
2103

1351
1580

1373
1601

1802
2214
2379
2530
2685
2867
3341
3504
3838

1806
2246
2382
2553
2687
2883
3351
3532
3849

1332
1570
1795
2160

1351
1574
1799
2176

2355
2486
2578
2704
2939
3351
3532
3810

2362
2490
2580
271
2941
3357
3537
3825

2478

2482

2486

2355

2427

2474

1587

1653

1715

1779

1957

2086

2235

1257

1276

1299

1315

1332

1351

1373

2176

2214

2251

2260

2263

2283

2305

3884
1206
1328

3885
1208
1345

3888
1220
1367

3891
1234
1369

6167
1236
1383

1251
1385

1552
1795

2366
2563
2704
2941
3373
3628

1474

1567
1799

2382
2573
2711
2961
3384
3633

1475

3579

1570
1802

2428
2578
2720
2963
3439
3676
3887
1218
1347
1502

1574
1806

2432
2580
2730
2965
3447
3681

1503

1579
1835

2449
2606
2754
3032
3456
3793

1523

3792

1580
1863

2475
2613
2787
3230
3462
3797

1525

3810

1605
1882

2483
2615
2797
3253
3479
3807

1533

CVDOLAAQ DLVI1-J TEST
MACY11
11-MAY-78 00:00
CVDLAA.P1T
1545
1666
1796
1947

$SSELE
$$SET
$ESETM
$SSETS

2256
2331
2468
2574
2667
2750
2868
3226
3343
3442
3581
3825

2258
2341
2470
2598
2669
2782
2883
3227
3345
3644
3618
3833

3352
3468
3620
3835

1556
1706
1831
2035
2263
2355
2478
2607
2679
27N
2905
3240
3371
3470
3629
3864

L7704
10394

4779

4780

4781

1105
1270
1402
1546
1691
1803
2019

1107
1272

14
1253
1400
1545
1666

1796
1947

$ESETT
$$SK1P
.EQUAT
.HEADE
KT
.SETUP
. SWRHI
. SWRLO
LSACTT
.$APTB
.SAPTH
.SAPTY
.SASTA
.SCAT(
.SCMTA
.$082D
.$0B2C

30A(1052)

2256
2331
2468
2574
2667
2750
2868
3226
3343
3442
3581
3825

6114
”
14
14
1
14
X4
X4
4
4

1546
1691
1803
2019

1554
1692
1830

2020
2259
2351
2476
2603
2671
2783
2884
3239

1419
15564
1692
1830

2020
2259
2351
2476

2258
2341
2470
2598
2669
2782
2883
3227
3345
3444
3618
3833
2355
7214
2281
5884
588#

2783
2884
3239
3352
3468
3620
3835
2478
1209
2303
611
589

588#
5884#

1002
600

588#
588#
588#
588#

852
9294
4428

588#
588#

825
885

2603
2671

863

E 12

30-JUN-78

10:10
PAGE 151
CROSS REFERENCE TABLE -~ MACRO NAMES

1559
1708
1853

2037
2276
2375
2484
2608
2680
2793
2906
3271
3372
3473

1561
1723
1855

2096

22177

2380
2486
2610

1571
1728
1870

2101

2298

2422
2492
2637

1579
1753
1872

2155
2299
2424

1597
1754
1890

2156
2312
2429
2522

3666
3868

2682
2811
2907
3272
3380
3475
3668
3870

2699
2813
2909
3273
3381
3490
3677
3871

2502
2638
2701
2814
2934
3275
3407
3492
3773
3875

4782

4784

4786

4787

4788

1137
1295
14639

1138

1147

1149
1326

1206
1328
1474
1597
1754
1890

1559
1708
1853

2037
2276
2375
2484
2608
2680
2793
2906
3271
3372
3473
3666
3868
1582
2345

1309
1441

1561
1723
1855
2096

2277
2380
2486
2610

2682
2811

2907
3272
3380

3475
3668
3870
1603

2360

1311

1464

1571
1728
1870
2101

2298
2422
2492
2637

2699
2813

2909
3273
3381

3490
3677
3871
1667

2510

1466

1579
1753
1872

2155
2299
2424

2502

2638
2701
2814
2934
3275
3407
3492
3773
3875
1729
2802

2646
2706
2816

2935
3291

3408
3498
3784
3876

2156
2312
2429
2522
2646
2706
2816
2935
3291
3408

SEQ 0147
1602
1770
1892

1629
1787
1924

1644
1769
1911

1646
1790
1933

1661
1792
1945

2170
2314
2447
2526
2648
2708
2820
2951
3302
3409
3500
3785
3878

2209
2325
2462
2554
2656
2715
2823
2956
3307
3432
3524
3789
3883

2210
23¢6
2464
25¢€4
2661
27¢2
2841
2958
33C9
3433
3533
3754

6154

2242
2328
2465
2567
2663
2724
2843
3022
3341
3434
3570
3801

2247
2329
2467
2569
2665
2749
2867
3024
3342
3436
3572
3803

1208

1220
1367
1503
1629
1787
1924

1234
1369
1523
1644
1789
1931

1236
1383
1525
1646
1790
1933

1251
1385
1533
1661
1792
1945

1345
1475
1602
1770
1892
2170

3784
3876

3500
3785
3878

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

6154

2242
2328
2465
2567
2663
2724
2843
3022
3341
3634
3570
3801

2749
2867
3024
3342
3436
3572
3803

1797

1804

1880

1898

1940

1955

3498

3035

2314
2447
2526
2648
2708
2820
2951
3302
3409

2247
2329
2467
2569

2665

CVDLAAO DLV1I1=J TEST
MACY11
11-MAY-78 00:00
CVOLAA.PY
.$01V
.$EQP
.$ERRO
.SERRY

14
4
1%
1K

.SMULTY

”

.SR2AZ

. $POWE
. SRAND
.$RDDE
. $RDOC
.SREAD

1
"
1#
1#
K

.$SAVE

.$5820
.$SCOP
.$SIZE
.$SUPR
.STRAP
.$TYPB
.$TYPD
.STYPE
.$TYPO
.940CA
L1170

I
"
"
"
1*
14
14
14
"
1
14

ABS.

6171
4485

588«

4285

588#

4539

588#

L4747

5884
588#
588#

4603
4210
4670

30-JUN-78

017354

ERRORS DETECTED:

000
O

CVDLAA,CVDLAA=SPMAC.SML ,SYSMAC.SML,CVDLAA.P11
105 112 7 SECONDS
RUN-TIME RATIO: 996/226-4.4
4 2K
CORE USED:
(83 PAGES)
RUN-TIME:

10:10

CROSS REFERENCE

.$5B82D

588#
588#

30A(1052)

PAGE 152

TABLE

=-- MACRO NAMES

SEQ 0148