Digital PDFs

AH-8537D-MC

August 1978

86 pages

Original

5.0MB

view download

OCR Version

5.0MB

view download

Document:	CZDMAD0 DM11A LOGIC TEST AUG 1978 bw
Order Number:	AH-8537D-MC
Revision:	000
Pages:	86
Original Filename:	CZDMAD0__DM11A__LOGIC_TEST__AH-8537D-MC__AUG_1978_bw.pdf

OCR Text

LOGICTEST

CZDMADO

AH8537D:MC

AUG1978

MAD

CZDMRDO DM11A LGC TST
MACY11
(ZDMAD P11
28-APR-78 13. w4

30A(10652)

28-APR-78

13: 48

PRAGE

SEQ 0001

REN %

IDENTIF ICATION
PRODUCT CODE:

AC-85360-MC

PRODUCT NAME:

CZDMADO OM11A LGC

ORTE RELERSED.

APRIL

MAINTRINER:

DIAGNOSTIC GROUP

TST

1978

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO
CHANGE WITHOUT
NOTICE
RAND
SHOULD
NOT BE CONSTRUED RS R COMMITMENT BY DIG!TAL
EQUIPHENT CORPORATION.
DIGITAL EQUIPMENT CORPORRT
ION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THRT MAY APPEAR
IN THIS DOCUMENT
NO RESPONSIBILITY IS ASSUNED
FOR
SOFTHARE ON EQUIPMENT THAT IS NOT
REFILIATED COMPAMIES.
COPYRIGHT

(C)

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

1972,1978 BY DIGITAL EQUIPMENT CORPORAT
| ON

THE FOLLOWING RRE TRADEMARKS OF DIG!ITAL EQUIPNENT
CORPORAT!ON
DIGITAL

DEC

POP

DECUS

UN1BUS

DECTRPE

MARSSBUS

LZOMRD0 DM11R LGC

(ZDMRO P11

TST

28-APR-78

?g(‘ml

30A(1052)

28-APR-78

13 48

{

PAGE 2

RBSTRACT
THO SEPARATE DIRGNOSTIC PROGRAMS ARE PROVIDED FOR
TESTING THE

ON11A (RSYNCHRONOUS DATA MULTIPLEXER).

CZDMA (DM11R

LOGIC TESTS), AND CZDM8 (DM11R MULTIPLE L INE DATA
TESTS).
TME LOGIC TESTS INDIVIDUALLY TEST EACH OF THE
16 DM11 LINES AND ALL COMMON LOGIC.
THE MULTIPLE LINE DATA
TESTS RUN SEVERAL LINES CONCURRENTLY AND ARE USED
TO TEST L INE
INTERRCTION AND DRATA TRANSMISSION/RECEPTION RELIR
BILITY
THIS DOCUMENT DESCRIBES THE LOGIC TESTS
THE RVRILABLE TESTS ARE:
PRGO - LOGIC TEST
PRG1 - TRANSMITTER SCOPE LOOP

PRGZ - TRANSMIT/RECEIVE SCOPE LOOP

REQUIREMENTS
EQUIPHENT
R.

PDP 11

FAMILY PROCESS:R

g 33:'1}':&5 CONNECTING 16 TRANSMITTERS TO THEIR RESPECTIVE
RECE!VERS.

2.2

STORRGE
THIS_PROGRAM USES ALL OF CORE
FOR THE LORDERS.

(8K) EXCEPT THAT AREA RESERVED

LORDING PROCEEDURE
THE RBSOLUTE LORDER

IS USED TO LOAD THE PROGRANM.

S€Q 0002

CZDMRDO DM11A LGC TST
MACY11
CZOMRD. P11
28-RPR-78 13. 4y

4.
Y4

30R(1052)

28-RAPR-78

13 48

1))

PAGE 3

SEQ 0003

USE PROCEDURCL
1

START ING PROCEDURE

BEFORE STARTING MAKE SURE THAT THE TTY IS IN REMOTE
MODE. AND THE
JUMPERS RRE INSTALLED.
THREE STARTING RDDRESSES ARE PROVIDED
0200 - THIS STARTING ADORESS REQUESTS DMI1 PARAME
TERS, AND MUST
BE USED TO INITIALLY START THE PROGRAM. AND L4ENE
VER ANY OF THE
PRRAMETERS LISTED BELOW IS CHANGED.

VECTOR ADORESS ?
RESPONSE:
~TYPE IN THE VECTOR ADDRESS OF THE DM11
UNDER TEST.
CARRIRGE RETURN SELECTS 0300

RECE IVER

UNIT 8(8)?
RESPONSE:
THE DM11 UNIT NUMBER CORRESPONDS TO THE
RODRESS TO WHICH THE CONTROL STATUS REGISTER (CSR)
RESPONDS.

ESR RDDRESS

75000
175010
175020
175030
175040
175050
175060
175070

DM11 UNIT &

0
1
2
3
4
5
6
7

(SR RDDRESS

175100
175110
175120
175130
175180
175150
175160
175170

CARRIAGE RETURN SELECTS UNIT 8 Q

%11 UNIT &

11
12
13
1%
15
16
17

HHAT 1S THE CHARACTER LENGTH?
is 44D
RESPONSE:
CHARACTER LENGTH REFERS TO THE NUMBER OF DATA
BITS PER CHARACTER (5-8).
CARRIAGE RETURN DEFAULTS A CHARLENGTH OF 8. IF A CHARACTER LENGTH 5-7 IS DESIRED, TYPE
;;Em,v%blts-?) OF THE DESIRED LENGTH AT THE KEYBO
RRD WHEN

PRG &
RESPONSE:
TYPE PROGRAM NUMBER OF PROGRAM YOU WISH TO
RUN. CARRIRGE RETURN SELECTS PROGRAM & O.

NOTES:
CARRIAGE RETURN TERMINATES ALL RESPONSES
ANY UNACCEPTRBLE RESPONSE WILL RESULT IN R ? TYPEO
UT AND
THE PARAMETER WILL RGAIN BE REQUESTED.
0204 - THIS STARTING RODRESS USES PREVIQUSLY DEF INED
DM11
PARAMETERS AND REQUESTS THE PROGRAM NUMBER OF THE
PROGRAM YOU WISH TO RUN.
0210 - THIS STARTING RDORESS STARTS THE PREVIOUSLY
SELECTED
PROGRAM USING PREVIOUSLY SELECTED PARRME TERS.

(ZDMAOO DMI1A LGC TST
l;g(iml
(ZDMRD P11
28-RPR-78

4.2

30R(1052)

28-RPR-78

13.48

t
PAGE
4

SHITCH SETTINGS
THE FOLLOMING SHITCH SETTINGS APPLY TO PROGR
AM #0.
SR
SR
SR
SR
SR
SR
SR

0-6
8
9
11
13
14
15

ROUTINE TO BE RUN (IF ENRBLED BY SR-9)
RING BELL ON ERROR
LOOP SELECTED ROUTINE
INHIBIT ITERRTION (DO EACH ROUTINE ONCE)
INHIBIT PRINTOUT
SCOPE (LOOP ROUTINE)
HALT ON ERROR

THIS PROGRAM HAS BEEN MOOIFIED TO RUN ON A PROCESSOR
WITH OR WITHOUT
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED
THE PROGRAN TESTS
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. If
NOT FOUND A
SOFTHARE SWITCH REGISTER LOCATION (SWREG:LOC. 176
) IS DEFAULTED TO.
IfF THIS IS THE CRSE, UPON EXECUTION THL CONTENTS
OF THE SWREG RRE
DUMPED IN OCTRL ON THE CONSOLE TTY AND ANY CHANG
ES ARE REQUESTED
(e)

SHREXXXXXX

NEW=

POSSIBLE RESPONSES ARE:
t.
2

(R
6 DIGITS 0-7

IF NO CHANGES ARE TO BE MADE
TO REPRESENT IN OCTAL THE NEM SUITCH REGISTER

VALUE ;LAST DIGIT FOLLOMED BY <CR).
TO ALLOW REENTERING VALUE IF ERROR IS COMMI
TTED

KEYING IN SUREG VALLE.

BUILT INTO THE PROGRAM IS THE RBILITY TO DYNRM
ICALLY CMANGE THE
CONTENTS OF SWREG OURING PROGRAM EXECUTION.
BY STRIKING 6
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS R
REQUEST FLAG TO CHANGE
THE CONTENTS OF SWRER. WMICH IS PROCESSED IN
KEY ARERS OF THE PROGRANM
figgfaégh:ggflns“mm‘s' RFTER HALTS END OF PRSS,
AND OTHER

SEQ 000y

ZDMR00 DM11R LGC TST
?g(.m!
CZOMRO P11
28-RAPR-78

’.

30R(1052)

28-APR-78

PROGRAM DESCRIPTION

PRGO -

LOGIC

13 48

PAGE &

SEQ 0005

TESTS

PRGO CONSISTS OF 152(8) INDEPENDENT ROUTINES MHICH TEST
VARIOUS FUNCTIONS OF THE DM11 HARDHARE
ANY OF THESE ROUTINES
?Ea;T?SG;mw'DMLY SELECTED AND RUN (SEE SEC
4.2 FOR SWITCH

ROUTINE DESCRIPTION
ROUTINE

TESTS

RTO
TESTS THE RBILITY TO REFERENCE THE FOUR DM11 REGIS
TERS
CONTROL STRTUS REGISTER (CSR), BUFFER ACTIVE REGISTER
(BAR.,
BREAK STATUS REGISTER (BKCSR), AND THE BRSE REGIS
TER (BRSREG)
IF AN ILLEGAL REFERENCE OCCURS WHEN THE (SR IS
REFERENCED THE
PROGRAM WilL INDICATE AN ERROR. AND RUTOMATICALLY
LOOP THE ERROR
RS LONG RS THE ERROR CONDITION EXISTS.
RTO
PC=XXXXXX
RT1-RT10 BIT "BANGS' THE CSR (BITS 0.1.24.5.6,12,1
3). TESTING THAT
EACH BIT IN THE CSR CAN BE INDIVIDUALLY SET AND
CLERRED
THO ERROR
TYPES ARE DETECTED IN THESE TESTS., R 81T FRILED
TO SET. ANG/OR A
BIT FRILED TO CLEAR.
THE ERROR PRINTOUT SMOMS THE ROUTINE THAY
FRILED AND THE PC WHERE THE ERROR MRS DETEC
i~

5 1. 1

RT11- TESTS THAT RESET AND CLEAR CLEAR ALL R/M BITS
IN THE (SR
TWo
ERROR TYPES ARE DETECTED IN THIS ROUTINE SHOMING
THE CONTENTS OF THE
CSR AFTER THE RESET & CLEAR INSTRUCTION
THE PROGRAM AUTOMATICALLY
LOOPS IF AN ERROR OCCURS.
SHONN BELOM IS
THE ERROR TYPEOUT
RT11
PC=XXXXXX
ERR S/8: 000000 WRS: XXXXXX

(ZOMROU DM11A LGC TSY
?g(lml
(ZDMRD. P11
28-RPR-78

30R(1052)

28-RPR-78

13 48

L
PAGE
6

RT12
LORDS A BINARY COUNT PRTTERN INTO THE BKCSR AND READS
BRCK
THE RESULTS.
IF THE DATA READ BACK IS INCORRECT AN ERROR 1S
INDICATED
THE SCOPE SWITCH WILL CAUSE THE PROGRAN TO RELOA
D THE B INARY NUMBER AND REPERT THE TEST.
THE ERROR TYPEOUT SHOWS CORRECT AND
RCTURL RESULTS.
THE SECOND PORTION OF THE TEST CLEARS THE PREVIOUSLY
LOADED NUMBER
IF_THE SCOPE SWITCH IS SET THE PROGRAM LOOPS BACK
AND REPERTS
THE CLEAR INSTRUCTION.
RT13
THIS ROUTINE LOADS RANDOM NUMBERS INTO THE BKCSR.
If A
RANDOM NUMBER IS LOADED INCORRECTLY AN ERROR IS INDICA
TED SHOWING
THE CORRECT ANO ACTURL RESULTS.

RT1Y
THIS ROUTINE TESTS THAT RESET WILL CLEAR ALL BREAK
STATUS REGISTER (BKCSR) BITS. IF ALL BITS DC NOT CLEAR WHEN THE
RESET IS GIVEN
AN ERROR IS INDICRATED.
THE ERROR TYPEOUT SHOWS THE CORRECT RESULT
(RLL 0°'S) AND THE ACTUAL RESULT.

RT15-RT16 THESE ROUTINES ARE THE SAME RS RT12 & RT13
EXCEPT THAT
THE BRSE REGISTER IS TESTED.
RT17
THIS ROUTINE TESTS THAT ALL BAR BITS CAN BE INDIVI
DURLLY
SET AND CLEARED.
THE ROUTIME SMIFTS A '1' THROUGH THE BAR THEREBY
SETTING ERCH BAR BIT AND THEN THE BAR BIT IS CLEARED.
THE ERROR
TYPEOUTS SHOW CORRECT AND ACTUAL RESULTS

RT20

THIS ROUTINE TESTS THAT RESET AND CLERR CLEAR ALL BAR B1TS

THE ERROR TYPEOUT SHOUS CORRECT AND RCTURL RESULT
S.

RT21-RT23 THESE ROUTINES TEST TMAT TME CSR. BAR.
AND BKCSR RESPOND
PROPERLY TO BYTE COMMANDS.
BOTH BYTES ARE REFERENCED IN TMESE
ROUTINES USING CLRB INSTRUCTIONS.
THE ERROR TYPEOUT SHOUS CORRECT
AND ACTURL RESWLTS.

RT24

THIS ROUTINE TESTS THAT THE DMIt CAN INTERRUPT THE
PROCESSOR

VIA THE OVER RUN BIT (CSR BIT 13).
THE ERROR TYPEQUT SHOMS THE
ROUTINE NUMBER RND THE PC WHERE THE ERROR WRS DETECT
ED.

RT25
THIS ROUTINE TESTS THAT THE DM11
AT THE PROPER LEVEL.

INTERRUPTS THE PROCESSER

RT26-RT4S
ON EACH LINE

THESE ROUTINES TEST THE BRSIC TRANSMITTER FUNCTIONS

RT46-RT65

THESE ROUTINES TEST THE BASIC RECEIVER FUNCTIONS ON

EACH LINE

RT66

THIS ROUTINE TESTS THAT THE OM11 MiILL SET THE NEX BIT

(CSR BIT 14).
WHEN THE DM11 TRIES TO TRANSMIT FROM NON-EX|STANT
MEMORY.
ALL LINES ARE INDIVIOURLLY TRANSMITTED ON.
THE ERROR TYPEOUT
SHOWS THE FRILING LINE. ALSO TESTED IS THAT THE NEX BIT
WHEN SET
CRUSES AN INTERRUPT.

SEQ 0006

L<DMROU DHITR LGC

(ZOMRD P11

TST

28-APR-78

?g(.ml

3J0R(1052)

28-APR-78

13 48

PAGE 7

RT6?
THIS ROUTINE TESTS THAT THE NEX BIT (CSR BIT 14)
SETS
WHEN THE DM11 TRIES TO REFERENCE THE TUMBLE TABLE
THAT IS IN NONEXISTANT MEMORY.
RT70
THIS ROUTINE TESTS THAT WHEN THE GO BIT (CSR BIT
0) IS
CLEAR THAT NO DATA 1S RECEIVED ON ANY LINE.
ALL LINES ARE TRANSMITTED ON AND RFTER THE TRANSMISSION IS COMPLETE
THE RECEIVER DONE
;%?‘ESHI'EDTESTED. THE ERROR TYPEOUT SMOMS THE LINE ON
WHICH DATA WAS
THE TYPEOUT SHOMN BELOW SHOMS THAT DATR WAS RECEI
VED ON LINE O
RT70
PC=XXXXXX
ERRS/B: 000001 WAS: 000001
RT?1
THIS ROUTINE TESTS THAT THE CURRENT ADDRESS IS
INCREMENTED
PROPERLY BY THE DM11.
THE TRABLE BELOW SHOMS THE RDORESS LORDED
INTO IN THE CURRENT RODRESS TRBLE BEFORE 2 CMARA
CTERS ARE TRANSMITTED
AND THE RESULTANT RDORESS AFTER THE CHARRCTER IS TRANSM
ITTED

BEFORE
000000
000001
000003
000007
000017
000037
000077
000177

AFTER
000001
000002
000004
000010
000020
000040
000100
000200

000377

000400

BEFORE
000777
001777
003777
007777
017777
0377?27
077777
1277?27

AF TER
001000
002000
004000
(010000
020000
050000
100000
000000

THE ERROR TYPEOUT SHOMS CORRECT AND ACTURL
CURRENT RDORESS.

RT?22

THIS ROUTINE TESTS THRT DATR CAN BE TRANSNITTED FROM ALL

AVAILRBLE CORE AND RECEIVED CORRECTLY.
THMIS 1S DONE BY TRANSMITTING 1 CHARACTER FROM SEVERAL ROORESSES
IN ERCH WK BLOCK OF
CORE ON LINE 0.
THE ERROR TYPEOUT WILL SHOM TRANSNITTED AND

ACTUAL RECEIVED DRTR
IF A DATR ERROR MESULTED WMEN TRANSIITTING
FROM THE FIRST WK OF CORE EXRNINE THE CURRENT
RDORESS OF LINE O
TO DETERMINE MHERE IN THE FIRST WK OF CORE THE
DM11 MAS TRANSMITTING FROM WHEN ERROR OCCURRED. FOR ERRORS IN
OTHER MK BLOCKS THE
g%li(;&Eg&‘! E?IELHTES TO THE RODRESS WHERE
THME ERROR OCCURRT72 PCaXAXXXX
ERR S/8: 000001
MAS XXXXXX.
INDICRTES THAT THE DMi1 FRILED TO TRANSMIT AND RECEIV
E CORRECT
DATR WHEN TRANSMITTING FROM LOCATION 20000
'T‘gE E)E(?g"I”S‘TMOQTED BEFORE TRANSMITTING IF THE CORE
LOCATION IS
N-

SEQ 0007

CZDMADO DH11R LGC TST
?g(:llol
CZDMAD. P11
28-RPR-78

30R(1052)

28-APR-78

13 48

PAGE 8

StQ 0008

RT73
THIS ROUTINE TESTS THAT THE TRANSMITTER CRN TRANSM
IT
100 CHARRCTERS ON EACH LINE.
THE ROUTINE TESTS THAT EXACTLY
100 CHARRCTERS HAVE BEEN TRANSMITTED BEFORE REROY
(CSR BIT15)
SETS AND THE BAR BIT CLEARS.
THE ERROR TYPEOUT GIVES THE NUMBER
&r”éga?’(‘gas RECEIVED AT THE TIME OF AN ERROR. AND
THE FRILING L INE
RT74
THIS ROUTINE TESTS THAT THE DM11 WILL STORE DATR
SEQUENTIALLY
IN THE TUMBLE TRBLE AND ALSO THAT THE POINTER RETURNS TO
THE TOP
OF THE TRBLE WHEN 64 CHARRCTERS MAVE BEEN REC
| VED.
E

RT75-114
THESE ROUTINES CHECK THAT A BREAK CAN BE
TRANSMITTED AND RECEIVED ON RLL AL INES

R115-R13y

THESE ROUTINES INDIVIDURLLY TRANSMIT,

AND CHECK DATR PLUS PARITY ON ERCH OF
DATR AND PARITY ERRORS RARE REPORTED.

THE

16 DM11

RECEIVE

LINES

ONLY

RT131 ~ THIS ROUTINE SIMULTANEOUSLY TRANSMITS AND RECE IVES
R
CHARACTER (ALL 1'S) ON THE 16 DM11 LINES THE FOLLOM
ING TESTS
ARE PERFORMED:
R:
THERE ARE 16 DRATR ENTRIES (1 PER LINE)
B:
THERE ISN'T R 17TH ENTRY
C.:
DATR IS CORRECT
D:
ONE ENTRY FOR ERACH LINE
RT136
THIS ROUTINE TRANSNITS R BREAK ON EACH LINE
ARE THE SRAME RS IN RT13S.

TESTS PERFORMED

RT137-RT144
THESE ROUTINES TRANSMIT 64 CHARACTERS ON EACH
L INE
HITH A DELAY BEFORE BEGINNING TRANSMISSION ON
THE NEXT SUCCESS!VE
LINE.
THE DELAY BEFORE TRAMSMITTING ON THE NEXT LINE
IS HALVED
BY SUCCESSIVE TESTS.
NO DATA CHECKING IS PERFORNED BY THESE
TESTS.
TESTED ARE THAT OVER RUN (CSR B1T13) AND NEX (CSR B1T1%)

ARE NOT SET DURING TRANSMISSION/RECEPTION.

RT146
THIS ROUTINE TESTS PROPER OPERATION OF
BIT (CSR BIT1)

RT146
THIS ROUTINE
HALT' WHEN THE RESET
DEF INED RS CSR. BAR,
INSTRUCTION AND STRY

THE HRLF DUPLEX

TESTS THRT THE DM11 COMES TO AN 'ORDERLY
INSTRUCTION 15 GIVEN.
'ORDERLY HALT® IS
AND BKCS CLEAR 1MMEDIATLY RFTER THE RESET
CLEARED.

5.2

PRG1TRANSMITTER SCOPE LOOP
PROGRAM 1 ALLOMS THE USER TO SCOPE THE OM11 TRANS
MITTER FUNCTIONS
HITH THE DM11 CONTINUOSLY RUNNING UNDER USER SUPPL IED
PRRANETERS

5.3

PRGZTRANSMITTER/REC
IVER
E SCOPE LOOP
PROGRAN 2 ALLOMS THE USER TO SCOPE THE DM11 RECEIVER FUNCTI
ONS MITH
THE DM11 CONTINUCULY RUNNING UNDER USER SUPPLIED PARAMETERS

CZDMROO DM11A LGC TST_
MACY11
CZDMROD. P11
28-APR-78 13. 44

6.0

30R(1052)

28-APR-78

13 48

PAGE 9

SEQ 0009

PROGRAN 1 AND PROGRAM 2 PARAME TERS
WHEN PROGRAM 1 OR PROGRAM 2 ARE SELECTED RADDIT
IONAL PARAMETERS WILL
BE REQUESTED BY ERCH PROGRAM AS SHOWN BELOMW
A
TYPE LINES TO BE TESTED
EXAMPLES:
'{YPE
60 SELECT LINE(S)

3
10
17
50
3101

177720

1.0
3
3.2.1.0
5.3
10.7.6.0

14,13.12,11.10.7.6.5.4,
3

177277
ALL
NOTE. LINE NUMBERS RRE GIVEN

IN OCTAL.

B. HOW MANY CHARRCTERS
TYPE THE NUMBER OF CHARRCTERS YOU WISH TO TRANSMIT
NOTE,
II’:EOCN#:ER OF CHARRCTERS MUST BE LESS THAN 200. AND
IS TRKEN

C- PUT CHARACTER IN SR (0-7).DELAY IN SR (8-15)
SELF-EXPLANATORY. NOTE, THE DELRY REFERS TO R DELAY AFTER
ALL THE CHARACTERS HAVE BEEN TRANSMITTED AND BEFORE
R NEW
TRANSMISSION PERIOD BEGINS.
70

PROGRAM L 1M TATIONS

BECAUSE THE D11 DIAGNOSTICS ARE INSENSITIVE TO ‘REAL'
ELAPSED TIME
THE DIAGNOSTIC DOES NOT 'KNOW' IF THE DMi1 {S OPERR
TING AT THE CORRECT FREQUENCY OR THAT THE STOP CODE SELECTION LOGIC
1S CORRECY.
THESE SHOULD BE CHECKED WITH R SCOPE.
80

SOMER

PROGRRAM NOTES
IF THE POMER FAILS THE PROGRAN TYPES AN ERROR MESSA
GE INDICRTING THE
ROUTINE THAT WAS RUMNING (PROG #0 ONLY) AND RESTA
RTS THE PROGRAM
FAIL

TEST EESETTXRXBRLILLLLLL

INPORTANT NOTE

ZSERETILTLLLXILLS

A _TEST OF THE POMER FAIL LOGIC SHOULD BE PERFORMED ON
EACH UNIT
SELECT & RUN ROUTINE 148 (L.R = 210 SR =51%4 PRESS START)
. TURN
E;ERQPMR OFF THEN ON. TME PROGRAM WILL TYPE OUT THE POMER
FARIL
R14% P(=003622
AND CONTINUE RUNNING ROUTINE 144, LOWER SR 9 AND WRIT
FOR END OF
TEST MESSAGE.
'TEST DZOMA COMPLETE
'.
NOTE: IF THE POMER IS TURNED OFF DURING R RESET INSTRUCTION
THE
PROGRAM HILL HALT. PRESS CONTINUE AND REPEAT THE TEST
IF THE PROGRAM HANGS THE BUS EXRMINE THE CONTENTS OF
RTNNO
THE
ggfl;fisT?fl?{l}EW IS THE ROUTINE NUMBER THRT WAS RUNNIN
G AT THE TINE

C(ZOMRDO DM11R LGC TST
HACY11
(ZDMRO. P11
28-RAPR-78 13: 44

30R{1052)

28-RPR-78

13 48

PRGE

SEQ 0010

. TITLE

CZDMADO DM11R LGC

TST
LIST
HE.BIN, SEQ
. ENRBLE ABS. AMA

;CZDMADO DM11R LGC TST
;PRGO- INPUT-OUTPUT LOGIC TESTS
;PRG1- TRANSHITTER SCOPE LOOP
;PRG2- TRANSMIT/RECEIVE SCOPE LOOP
;STANDARD SR SHITCH OPTIONS (SWITCH SET TO A 1 )
;SR15- HALT ON ERROR
;SR14- SCOPE.
;SR13- INMIBIT PRINTOUT
;SR12~ INHIBIT TRRCE (NOT USED)
;SR11- INMIBIT ITERRTION
;SR10- LOOP PROGRAM. (NOT USED)
-SR9- LOOP ROUTINE.
/SR8~
RING BELL ON AN ERROR
/SR6 THROUGH SRO - NUMBER OF ROUTINE TO BE LOOPE
D

000010

ERRVEC=Y

NOP=240
OPEN=Q
MANURL=BIT1S
LB1T17=100000
L81T16=40000

LB 1715:20000

LBIT1%4=10000
LB 171324000
LBIT12=2000
LBIT11=1000
LB IT10=400
LBIT2:=200
LBIT6=100
LBITR=z4D
LBiTu=20
LBiT3=10
LBIT2xy

18iT1=2
1T0=1

o
g

000400
000260
000100
000040

;EQUATE STRTEMENTS
(C=177776
PSU=177776

NGUOODOODQUO;
ol e e e e e e et

177276
177776
000004
000240
000000
100000
100000
040000
020000
010000
004000
002000
001000

15z 100000
1440000
13220000
12210000
1=4000

-RDDRESS OF ERROR TRAP VECTOR

) e o

I
Y X
o

SEQ 0011

)

Q=N

PAGE 11

®#IZERANBT*

HRHHBNN
N oms s s ONE

POPSP=5726
POPSP2=022626
PRTY?=340
PRTY6=300
PRTYS5=240
PRTY4=200
PRTY3=140
PRTY2=100
PRTY1=40
PRTYO=0
;L INE NUMBERS

NP
E
MmO
H H MNP

000240
000200
000140
000100
000040
000000

13 48

N -0

000010
000004
000002
000001
005726
022626
000340
000300

28-RAPR-78

W E

474
475
476
4?77

28-RPR-78 13- 4y

30A(1052)

466
467
468
469
470
471
472
473

HACY11

RARRARRAREEERER7

CZOMD P11

TST

--1--1.-T.
-]

L<UMRD0 DM11R LGC

RO=x0
Ri=Xx1
R2=%2
RI=x3
Ry=Xxy
RE2X5

SPzxb
PC=x?

SENT CALLS
TYPE=ENT+0

ERROR=ENT+1
DRTCHK=ENT+2
CHAL T=ENT+3
EHALT=EMT+4
SRESETsENT+5
SCOPE=ENT+6
SRVREG=ENT+?
RSTREGSENT+10
ERRORI=ENT+11

INITIRLIZE<ENT+12

SUSHR=EMT+13
KBDINEMT414
CNTLUSEMT+15
DELRY=TRAP+0
BELL=007

~POP THE STRCK
SAME AS TST (6)+
~POP STRCK THICE
SAME RS CMP (6)+, (6)+
;PRIORITY LEVEL DEFINITIONS

CZDMROD DNM11R LGC TST
MACY11
CZOMAD. P11
28-APR-78 13: 44

28-RPR-78

13 4B

172727

RTLAST=-1

000000
1772727

Y=0
X=-1
A=0
.=0
. +2

°cON

MACHER:

HALT
.42
HALT

PAGE 12

SEqQ 0012

- UNRSS |GNED TRAP

;SP OVERFLON,
;RESERVED

BUS ERROR TRAP

INSTRUCTION TRARP

: TRRCE TRARP
;TRAP TO CALL

10X

NnO 08

;POUER FRIL TRAP
-ENT TRAP
;TRAP TRAP.

SIMILAR TO ENT

: TRAPPED TO PREVIOUS ADDRESS

- TRAPPED TO PREVIOUS ADORESS
- TRRPPED TO PREVIOUS RDODRESS

; TRAPPED TO PREVIOUS RDORESS
: TRAPPED TO PREVIOUS RDDRESS

: TRRAPPED TO PREVIOUS RDORESS.
: TRAPPED TQ PREVIOUS RDORESS.

NSRSRERENEREN SR

gggggggggggggggg §

8 ggg§EeggEggggggggggggggggggagggg

SEEEFRERE SECRERRERE

522
523
52%

30R(1052)

: TRAPPED TO PREVIOUS RDORESS.
: TRRPPED TO PREVIOUS RODRESS.
: TRAPPED TO PREVIOUS RDDRESS
: TRAPPED TO PREVIOUS RODRESS.
:TRAPPED TO PREVIOUS RDORESS.

: TRAPPED TO PREVIOUS ADDRESS.

: TRAPPED TO PREVIOUS ROORESS.
; TRAPPED TO PREVIOUS ROODRESS.
: TRRPPED TO PREVIOUS RDDRESS.

: TRAPPED TO PREVIOUS RDORESS.

CZDMRD0 DN11A LGC TST
MACY11
CZDMRD . P11
Z8-RPR-78 13: 4y

2REEERGRS

578
579
580
581

591

000144
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176

000146
000600
000152

000156

30A(1052)

28-APR-78

13.48

PRAGE 13

SEQ 0013

. 42

HALY
. +2
HALTY

- TRAPPED TO PREVIOUS RDDRESS
; TRAPPED TO PREVIOUS RDDRESS

- TRAPPED TO PREVIOUS ADORESS
; TRAPPED TO PREVIOUS RDORESS
- TRAPPED TO PREVIOUS RDDRESS
; TRAPPED TO PREVIOUS ADORESS
; TRRPPED TO PREVIOUS RODRESS.

593
5%

- TRAPPED TO PREVIOUS RCORESS

597
598
599

. TRAPPED TO PREVIOUS RDORESS

; TRRPPED TO PREVIOUS RDORESS

» TRAPPED TO PREVIOUS RDORESS
: TRAPPED TO PREVIOUS RDDRESS

- TRAPPED TO PREVIOUS RDDRESS

: TRAPPED TO PREVICUS RDORESS.

)

SRERASEREE

- TRAPPED TO PREVIOUS ROCRESS

: TRAPPED TO PREVIOUS ROORESS.

610
611
612

: TRRPPED TO PREVIOUS RODRESS.

618

: TRAPPED TO PREVIOUS RDORESS.

615

; TRAPPED TO PREVIOUS ADDRESS.

i TRAPPED YO PREVIOUS RDORESS.

» TRAPPED TO PREVIOUS ADDRESS.
: TRAPPED TO PREVIOUS RDORESS.
: TRRPPED TO PREVIOUS RDDRESS.

-1

: TRRPPED TO PREVIOUS RDODRESS.

[ 3

: TRRPPED TO PREVIOUS RDODRESS.

SENO

EREEGRRROORRRE

61?7
618
619

; TRRPPED TO PREVIOUS RDODRESS.

; TRRPPED TO PREVIOUS RDORESS.
: TRRPPED TO PREVIOUS RDDRESS.

(ZOMRLU DNTIR LGC TST
MACY11
! C ZOMRD P
28-RPR-78 13 4y

634

000326

000000
000332
000000
000336
000000
000342
000000
000346
000000
090352
000000
000356
000000
000362
000300
000366
000000
00u372
000000
000376
000000

30R(1052)

28-RPR-78
+2
HALT
.42
HALT
+2
HALTY
+2
HALT
+2
HALT
+2
HALT
+2
HALT
+2
HALT
+2
HALT
+2
HALT
+2

HARLT

13 48

B
2
PRGE 14

SEQ 001y

- TRAPPED TO PREVIOUS RDDRESS
- TRAPPED TO PREVIOUS RDORESS
; TRAPPED TO PREVIOUS RODRESS

- TRRPPED TO PREVIOUS RDORESS
- TRAPPED TO PREVIOUS ADORESS

- TRAPPED TO PREVIOUS RADORESS
- TRRPPED TO PREVIOUS RODRESS
- TRRPPED TO PREVIOUS RDDRESS
- TRAPPED TO PPEVIOUS RDORESS
- TRAPPED TO PREVIOUS RODRESS

- TRAPPED TO PREVIOUS ROORESS

CZDMADO DM11A LGC TST
MACY11
CZDMAD. P11
28-APR-78 13: 4y

657

658
659

000046

661
662
663

000052

665
22;

000174
000176

660

S6M

668
669
670
621
672
2;3

675

000206
000208

000210

676
627
678

001200
001202
001208

680

001400

682

001440

68y

001500

686

001540

679
681

683
685
687

001542

688
689
690
691
692
633
6%
%5
6%
697
6%8
699

00158y
001586
001560
001562
001568
001566
001560
001662
001565
001566
001570
001572

701

001600

700

702
703
708
706
706
707

002000
(002002
0020087
002006
002010

30R(1052)

28-APR-78

000046

SEQ 0015

SENDRD

000052

. =52

060000

60000

000174

=174

000000
000000

DiISPREG O
SHREG:
O

000137
000137

002360
002426

000137

002514

001200

C
2
PRGE 15

=46

003036

000200

13 48

. =200
Jnp
JMP

S8START
S#RSTATY

JHP

dBRSTAT2

-G0 TO START OF DIARGNOSTIC
:GO GET PROGRAM & & RESTART PROGRAM
+USING PREVIOUS DM11 PARAME TERS
- RESTART PREVIOUS PROGRAM USING
;PREVIOUS DM11 PARAIETERS

. =1200

.o 44D

000000
177570
175570

SPBOT:
O
SUR
127520
DISPLAY: 175870

000000

(AT:

OPEN

-STRRTING RODRESS OF

000000

HCT-

OPEN

-STRRYING RODRES OF

000000

BRT

OPEN

;STRRTING RDDRESS OF

000000

VAC.

OPEN

;32

001400

001440

001500
001540
175000

CSR:

. 21400

. =CRAT+32

. 2WCT+432
. =BAT+32
175000

.o 4D

s CURRENY RDORESS TRBLE

;HORD COUNT TRBLE

;81T RSSEMBLY TRBLE
SPARE WORDS

;RDDRESS OF CLOCK STATUS REGISTER

175002
17500
175006
000000
000240
000000
000240
000000
000000
000000
000000
000000

BRR:
BKCSR:
BASREG:
CLKINT:
CLKLVL:
XHTINT:
XHTLVL:
TTORT:
LINBIT:
RCVORT:
XMTORT:
CARNSK:

175002
17500%
175006
OPEN
PRTYS
OPEN
PRTYS
OPEN
OPEM
OPEN
OPEN
OPEN

-RODRESS OF BUFFER RCTIVE REGISTER
- RODRESS OF BREAK STRTUS REGISTER
s ROORESS OF BASE REGISTER
0Nt VECTOR ADDRESS (RECE IVER)
PRIORITY LEVEL
~ON11 VECTOR RDORESS ¢ TRANSHITTER)
s TRANSHITTER PRIORITY LEVEL
- TUMBLE TROLE DRTA
LINE BIT (FOR BAR)

000000

TUNTRS:

OPEN

- STRRTING ROORESS OF

KSTART:
CURTST:
RTNNO:
NXTST:
ICTR:

OPEN
OPEN
OPEN
OPEN
OPEN

001600

002000

000000
000000
0D0O00O
000000
000000

000000

gggfl';

710
711
712

002016
002020
002022

007076
016514
016574

PRGTR8:

. BVAC+32

. *TUNTRE+128.

-TUMBLE TROLE

< CURRENT PROGRAM STRRT RDORESS
s CONTRINS RDDR OF CURRENT TEST
< CONTAINS CURRENT TEST &
:CONTRINS ROOR OF MNEXT TEST
;CONTRINS CURRENT | TERATION COUNT

ggz

/CONTRINS CURRENT SCOPE POINTER

PRGG
PRG1
PRG2

;PRGO START RODRESS
;PRGYL START RDDRESS
+PRGZ STARY RODRESS

CZOMADO DM11A LGC TST
HACY11
CZOMRD. P11
28-RPR-78 13. 4y

713
714%
715
216
14 %4
718
719
720
721
722
723
724
725
726
72?7
728
729
730
731
732
733
7
735
736
732
00210%
738
002106
739
002110
0
002112
741
002114
N2
002116

007120
016524
016604
003322
0021%6

002126
000000
000000
003232
002700
003132
003172
002164
003434
017%12
017272
017546
177560
177562
177564
177566

30R(1052)

28-RPR-78

RSTART:
EMTTAR:

13 48

PRGOR
PRGIR
PRGZR
TYP
ERR
DTCHK
0

0
SRSETT
ESCOPE
SAVRG
RSTRG
ERR1
INIT

SUSHRR
KBDINTT
CNTLUU
TKCSR:
177560
TKDER:
177562
TPCSR:
177564
TPDBR:
1727566
COUNT:
OPEN
PCRDD:
OPEN
AP CADD: OPEN
PRVCNT: OPEN
. CSR:
175001
. BAR:
175003
BK(SR: 175005
BASREG: 175007
PRSS:
OPEN

D
2
PRGE 16

SEQ 0016

.PRGO RES TART ADDRESS
; PRG1
. PRG2
;POINTER TO TYPEQUT ROUTINE
»POINTER TO ERROR ROUT INE
;POINTER TO DATA COMPARISON ROUT INE
;POINTER
;POINTER
;POINTER
+POINTER
;POINTER
+POINTER

TO RESET ROUTINE
TO SCOPE ROUT INE
TO SAVE REGISTERS ROUTINE
TO RESTORE REGISTERS ROUT INE
TO ERROR1 ROUT INE
TO

INITIALIZE ROUTINE

CZOMRDO DMI1R LGC TST
MACY11
(ZDMAD P11
28-APR-78 13- 44

743
744
745
746
747
748
749

750
751

104000
020017
000207

002126
002134
002136
002142
002144

1237237
001403
004737
104011
000002

MMlive
002154
002162

752
%3
754
755
756
757
758
759
760
761

002120
002122
002124

28-RAPR-78

13 48

£
2
PRGE 17

«ROUTINE TO TYPE OUT
INCRTN. TYPE

N1
RTS

001566

001570

002332

000402
002100

002246
002102

000240
002100
002332

002246
002102

SEQ 0017

INCORRECT ROUTINE SELECTED

; DATA COMPARISON ROUT INE.
0TC(HK:
cnee
RCVDAT, XMTDAT
8EQ
19
JSR
7. CNVODAT
ERROR1
18:
RTI

,E’Y‘lfi

INCORRECT ROUTINE SELECTED

; COMPARE RECEIVED & TRANSMITTED DRTA
+CHARS. BRANCH IF SAME
; CONVERT RCVDAT & XMTDAT TO RSC!
|
s

EXIT.

;ERROR ROUT INE WHENEVER THE PROGAM DETECTS AN
ERROR THE ERROR
-AND ERROR1 ENT INSTRUCTIONS ENTER HERE. ERROR
AT ERR: , AND
;ERROR1 AT ERRY:
ERR:
Hov
402, ErRD
MOV BR . 46 TO ERRB
nov
PCROD. APCRDD
;GET PC WMERE ERROR OCCURRED

ERRY:

013737
004737
104014
ERRA:
032777 020000
176766
001017
008537 006154
002102
020224
000006
008637 006154
002004
020216
000003
108000
020213
000000
ERRB:
104000
017754
032777 000400 176720 ERRC:
001411
105777 177602
100375
012777 000007
177574
105777
177566
100375
000042 000046 ERRD:

VSR Rog AR oD g

EAPRFRRRREPEFPELEETRRR

002172

012737
013737
000%10
012737

30R(1052)

176660

ERRHLT;
ERREX:

nov
nov

JSR

KBDIN
8T
BNE
JSR

RPCROD
RPC
b
JSR
RTNNO
grm
TYPE
Eno
OPEN
TYPE
ERDRT
8iT
BEQ
TST8
arL
nov
1ST8

arL
cne
8tQ
18T
arL

MALT
KBDIN
RTI

ERRA

#240. ERRS

PCADOD. APCRDD
7. CNVORT

081713, aSuR
ERRC

/NOVE NOP YO ERRB
GEY PC WMERE ERROR OCCURRED
- CONVERT RCVDAT & XMIT DAY TO ASCI|

.60 CHECK FOR
6
;ERROR PRINTOUT DESIRED
SBRANCH IF NO PRINTOUT

5. ORCNV

s CONVERT

5. OACNV

.10
<ASCiY
.FOR
LPRINTOUY

$Bi78. 3SR

ERRD
STPCSR
.

$BELL. JTPOBR
37;(5!

N2, 46
ERRMLY
SSWR
ERREX

. DATAR

. TYPE ERROR
s MESSRGE
<NOP IF ERROR1. BR
+6
+TYPE ANOTHER MESSAGE
+AF ERROR 1
+RING BELL ON ERROR”

If ERROR

+BRANCH 1F NO BELL ON ERROR

sTELEPRINTER
+ READY?
+RING THE BELL

MAIT FOR THE BELL TO RING
JACT11?

+HALT ON ERROR
<60 TO EXIT ifF NO HRLT ON ERROR
SCHECK FOR

+ RETURN

;SUBROUTINE TO CONVERT RCVDAT AND XMTDRT TO RSCi!I

AND PLACE

LZDIMAD0 DRI1R LGC TST
MRCY11
CZDMAD. P11
28-RAPR-78 13 4y

799
800
801
802
803
804
805
806
807
808
809
810

002332
002336
002340
00232

002344
002350
002352
002354
002356

004537
001570

017?66
000006
004537
001566
020002
000006
000207

006154

30R(1052)

28-APR-78

13 48

. IN NESSAGE

CNVDAT.

JSR
XMTDAT
SRSB

5. ORCNV

JSR
RCVDAT
AWRS
6
RTS

5. OACNV

PRGE 18

SEQ 0018

EXIT

LZDMA00 DM11R LGC

(ZDMAD P11

TST

28-RPR-78

r‘wxacnt

J0R(1052)

811
812
813

13 48

G
2
PRAGE 19

StqQ 0019

+THE FIRST PART OF THE START ROUTINE CONTAINS
R SHORT
/ROUTINE TO CHECK FOR MEMORY MANRGEMENT. ALTHOUGH
THIS

-DIRAGNOSTIC_DOES NOT
; INDICRATES THAT OVER
;CASE TESTS RT66 AND
;PRESENT THESE TESTS
002360
002364
002366
00237y
002400

002406
002410

002414

012706
104013
0127237
005737
012737

000402
012706

001200
002410
172300
012716

004737
012706
104012
023737

00346y
001200

013700

000170
022737
001810

023737

000004

012330

HovV

VST

000042

1$:
000004

MOV

RSTATY:

000046

USE MEMORY MANRGEMENT, ITS PRESENCE
28K OF MEMORY MAY BE PRESENT (N WHICH
RT67 MAY FAIL.
IF MEM. MAN.
IS
RRE SKIPPED BY THE PROGRAM.

#SPBOT.
X6

219, JRERRVEC

+SEE IF SWITCH-LESS PROCESSOR
;SET UP FOR ERROR TRRP

SRT?70. MRTeS5+42

. KT11 PRESENT,

94172300
6

&SPBOT. %6

- TEST FOR KT11

-SKIP

RT66

SET UP TO
RT6?

- TRAP OCCURRED,

+RESET STACK

SERRVE(+2, RERRVEC

JSR
7, JRDMPAR
MOV
4SPBOY.
7%
INITIRLIZE
e
N2, k46
8cQ
PRGNUM+2

AND

-OUT

NO KT11 PRESENT,

~RESET ERROR TRAP

INTERRUPTS

(SET PRIORITY LEVEL

-GET DM1Y PARAMETERS

JACT11?

gPE

004416

002014

002454

008576

000024
000026

002454

002454
002016
008576
001200

00002%
000026

PRGNUM:

RSTATZ.

5. RECD
PRGLIN.PRGNUM

-GET PRGNUM AND PUT (T
- HERE
. MASK OFF UMUSED B1TS

nov
Jne

SPFRIL.
v
IPRTY?26
.
PRGNUN, X0
PRETAB (D)

-GET PROGRAN &
;60 START PROGRAM

nov
Hov

WRIY7,
26
SP80T.
%8

nov
Jmne

PRGNUN. X0
MSTART (D)

:GET _PROGRAN &
+GO RESTART PROGRRN

8€EQ
che

1%
N2, Jh%e

SRCT11?

MOV

PRGNUN

SPFAIL2v
.

INITIRLIZE

002%5%
000176

JSR
O
81C

astL
nov
nov

001202

SRSET:

00004
2

t'moao

000000

000%01
108015
013732
012737
108012
004737
032777
001003

MOV

SUSKR
NOV

001200
000006

104000
020011
008537
000000
0N3737
006337
012737
012737
013700
000170
012737
012737
012706
108012

START:

012737

001405

FRIRRERTRAPRIRNRIILYY

28-APR-78

8€Q
TYPE
n

GETROY

n
CNTLU
MOV

GETROY
KSTARY, NXTST

;GO GET SWUREG SETTINGS
;RDDR OF 1ST ROUTINE TO NXYST

JSR
817
8NE

X7, FORWO
8179, 3SR
GTROYC

;ROLL FORMARD TO “NEXT" ROUTINE.
sCHECK SELECT ROUTINE SHITCH
+BRANCH IF SELECT ROUTINE SWITCH IS SET

HALY
18:
GETROY:

SSHREG, SuR

GTROYX: 'I‘a'l,flm.l%g' MERRVE(
176352

GTROYR.

+SHIFT PROGRAM &

:TYPE MESSRGE TO REQUEST SWITCH
;REGISTER SETTINGS

sWAIT FOR OPERATOR TO SET SWITCHES

;RESET ERROR TRAP VECTOR

. SCOPE SERVICE ROUTINE
ESCOPE. NOP
KBOIN
CLR
SBAR
CLR
SCSR
CLR
SBK(SR
INITIRLIZE

176626
176626

002012
040000

176246

000000
004000

176232

00004
2

000046

MOV

SCOPER:
SCOPEB:

002116

002010

1$:

001000

176176

17722727

002006

SCOPED-

87
8ee
Jmp
BIT

BNE
cne
SNE

JIPASS
SCOPED
1ICTR

B!I7Y
NE
e

88179, aSR
GETROY
8-1,NXTST

BNE

FORMD:

. 18T PRSS?

B0 IF YES
DECREMENT ITERATION COUNTY

;BRANCH IF COUNT NOT O

- CHECK SELECT ROUTINE SMITCH
+ARANCH IF SELECT RTN SU SET

.LAST TEST?

{NC
TYPE

HPRSS

+BRANCH IF NOT LAST TEST

nov

o84
2. X0

-TYPE
- "PRGEND"
- CHECK XXDP/ACTI1

7.(0)

+RETURN TO XXDP/RCT11 MON!TOR

NXTST, X8

;ADDR OF NEXT ROUTINE TO RS
ET NEXT ROUTINE NUMBER.

SEQ

SENDRD:

SCOPER

-CHECK FOR SCOPE OPTION
-BRANCH IF SCOPE S NOT SET
;RETURM TO ROUTINE
;TEST INNIBIT ITERATION SHITCH
;ORANCH IF INMIBIT ITERATION SW SET
ALTI1?
DR IF NO

GTROYX

000042

SCOPED
M2, ve
13

TST
8EQ
DEC

BNE

002116

SCOPTR, (SP)

881714, 3SUR
SCOPED
3(SP)
881711, asuR

. C
-CLERR ALL DM11 REGISTERS
;AND SET BRSE REGISTER
-AT THE STARTING ROORESS

176634

[=]

&-1, NXTST

RESET
JSR
NOP
NOP
NOP
MOV

Hov
HOV
MOV
MoV

GETRDY

(5)¢,. RTNNO
(5)+, NXTST
(5)4, ICTR
(5)4,SCOPTR

FORWDA:

JEMT TRAP INTERPRETER
EMTINTY. MOV
(6),-(6)

LSRN

GTROYR
%7, INCRTN
GETROY

CHP

002120

BNE
JSR
BR

CURRENT ROUTINE

MANUAL RTN BYPASSED

0
MASK UNDESIRED BiITS
RRE RTNNO TO (RO)
RANCH IF ROUTINE NOT FOUNO YET
0 RUN ROUTINE.
iNG. CHECK FOR LAST ROUTINE
+BRANCH IF NOT LAST ROUTINE
+YES.
INCORRECT ROUTINE SELECTED
-START OVER
.~

GTRDYD.

- GO RUN

.?gl?&
W

002006

SSWR, %0
#177600. %0
RTNNO, X0
GTROYD
SCURTST

i FiRdee

001003
005737
001403
005337
001360
032777
001275
022737

177120
127227

MOV
8IC
Gl
BNE
Jnp

910

001012
023737

GTRDYC

SCURTST

SCOPED

MOV
RYS

XS5, CURTST
x?

MOMITOR HOOX

T ROOR OF NEXT “NEXT" ROUTINE
T {TERATION COUNT.
T SCOPE LOOP ENTRY POINTER.

gflfifl

032777

176336

177600
002004

SEG 0020

000240
104014
005077
005077
005077
1084012
013716
032777
001402
000176

Jnp

B8R

PAGE 20

EEEEEEEEE
A FAFRFERREETERPET DT RRLEED

873

177144

13 48

000177
000457
017700
0% 2700
123700
001002
000177
022737
001352
004737
000740

28-RAPR-78

867
868
869
870
871
872

30R(1052)

”

CZDMAD0 OM11A LGC TST
MACY11
CZDMRD P11
28-RAPR-78 13. 4%

NOM CURRENT TEST TO CURTST
XIT FORND SUBROUTINE.

:GET PC OF NEXT INSTRUCTION

CZOMRD0 DMI1R LGC

TST

MRCY11

003102
003106
003112
003116
003122
003124
003130

162716
011637
017616
105066
006316
062716
013607

000002
002100
000000
000001

003132
003136
003182
003184
003186
003150
003162
003154
003160
003164
003166
003170

012637
012637
010%%6
0103v%6
010246
0101%6
010086
01376
01376
000002
000000
000000

003172
0031176
003202

012637
012637

(Z0MAD P11

923
924
925

926
927
928
929
930
931
932
933
I
935
936
937
938
939
TM0

"3
badd
Eol
M6
N7
e
badd

950
%51
%2
9%3
bAl
955
9%6
957
9%8
%9

SEFFERRELI
L1 $31)

%1
%2

00320%
003206
003210

003212

003214

28-RAPR-78 13: 4y

012600
012601
012602
012603
012604
0137%6
0137ve6

30R(1062)

28-RPR-78

Sus

003170

SVRPC:
SVRPSH:

SENTTAB, (6)

003230

00323y

3(6)+, x?

-GO TO PROPER ENT

(6)+, SYRPSH
X4.-~(6)
X3.-(6)
X2.-(6)
X1.-(8)

nov

SVRPSHU. -(6)
SVRP(C. -(6)

OPEN
OPEN

nov
nov
nov

003226

052525

(6)+.RSTPSU
(6)+, X0
(B)+, X1

(b)e, %2

nov
nov

(6)+. X3
(b)+. X4

nov
nov

RSTPSU, -(6)
RSTPC, -(6)

RTI
OPEN
OPEN

SRSETT-

MOV

Con
nov

RESEY

003320
003316

003320
003320

IDENTIFIER

»SAVE PC AND PSH

+SAVE REGS 0 . IN STRC(K

+RESTORE PC AND PSH
LEXIT

;RESTORE REGS O - TM
-FRON STACK

+RESTORE PC AND PSH
JEXIT

;ROUTINE TO ISSUE RESET.

852625, 20

%0
%0, SRSETT+2

/Y
0031316

INSTRUCTION

+SHIFT ENT

nov
MoV
nov
nov
MoV

003230

+GET EMT

. CLERR HSH OF EMT INSTRUCTION

1(6)
(6)

;RESTORE REGS O TO % SUBROUTINE.
RSTRG:
MOV
(6)¢, RSTPC
. SAVE PC AND PSW

RSTPC:
RSTPSW:

012700

ADD

P'?\-I

SEQ 0021

~FORM PC OF EMT INSTRUCTION
~GET PC OF EMT INSTRUCTION

- SAVE REGS O TO 4 SUBROUTINE
SRVRG:
MOV
(6)+, SVRP(

003170
003166

003226
003230

82, (6)

(6).,PCRDD
a(6). (6)

Hov

003166

I
PAGE 21

nov
nov

CLRB
RSL

002032

13 48

- RANDOM NUMSER fi.fil%m
RNGEN:
MOV

ROL
RADD
nov
ROL
ROL

X0
RP2.X0
X0. RP1

X0
X0

RDD

RP2.%0

MOV

X0.RP2

ROL
ROL

X0
x0

:DATA T0 RO.
+ COMPLEMENT (RO).
<(RO) TO SRSETT+2
+ ISSUE RESET. (RO) IS
+DISPLRAYED. EXIT.

ROUTINE EXITS HITH NUMBER IN REGISTER Q.

LZOMRDO OM1tR LGC TST
RACY11
(2Dl P11
28-APR-78 13- 44

979

003310

003314
003316
003320

013700

000207
001233
007622
011600

062716

011000
112037
122737

001001
000002
122737
001412
008737
000762
113727
105777
100375
000207

112737
004?737
1127237
004?37
000740
000000

012777
012737
011637
012706
000176

30A(1052)

003316

28-RPR-78

003432
000100

003432

000045

003432

TYPR:

TYPC

003366
176500

TYPD

ROD
MoV
MOVF
Qd
g#f

82, &6
X0, X0
(0)+, TYPDAT
8100, TYPORT
TYPC

cnee

885, TYPORT

001400
000340
001200
001200

00N72

001060

023737

000042

007y

012700
010060

000302
177776
000003

17272777

017102

177727

NUMBER

MESSRGE ON TELETYPE PRINTER
-GEY RDDRESS THAT CONTARINS MESSAGE RCORESS
;SET UP EXIT,

- ADDRESS OF MESSAGE TO RO.

:GET CHARACTER

;CHECK FORTM3”CHARRCTER
+BRANCH IF NOT~@".
;TERMINATOR CHAR. DOME
» CHECK FOR“XTM
BRANCH (F"%"
;TYPE CHAR IN TYPDRT

CEXIT
~MOVE CARRIAGE RETURN CODE TO TYPDAT

003432

TYPG.

nove

JSR

JSR
B8R

OPEN

-4

X?. TYPD

812, TYPORTY
X7, TYPD
TYPR

:GO TYPE CHAR.
+MOVE LF CODE TO TYPDAT
GO TYPE CHAR.

176106

,SWROUTINE TO
-LEVEL
7
INIT.
MOV

000G46

s SUBROUTINE TO GET OM11 PRRAMETERS
; VECTOR ADORESS
ONPAR:
g’l:
2“2.00%
.ggmv

nov
nov
nov
Jnp

INITIRLIZE STACK POINTER AND SET PROCESSOR PRIORITY

SCRT, IBRSRES

PRYY?, PSM
(SP), SPROY
isrgor. o
8(SP)

;SIZE FOR

4s:

000014
000016
001440
001400
176764
175754
002076

Js:

EXIT

14
815, TYPDAT

TYPF

177776

IN RO

;OUTPUT CHARACTER TO PRINTER
HAIT FOR DONE FLRG.

003432

000776

003610
000340

CEXIT

VYPF
X7, TYPD
TYPR
TYPDAT. 3TPDBR
STPCSR

RTS
nOVS

TYPDAT:

SEQ 0022

8EQ
JSR
8R
nove
TSTB

8PL

000015
003366
00J012
003366

J
2
PRGE 22

MOV
RP1,2%0
RTS
%?
RP1
1233
RP2.
7622
- SUBROU
INE
T TO OUTPUT ASCII
TYP
Hov
eX6. %0

000002

003432
176472

13 48

INTERRUPT VECTOR IN RUTO MODE

oy
"oV

8302, %0
RO. ~2(R0)

TST
gp{

(RO)+
am.,ao

MoV
nov

oss.mu
mu. k16

nov

MoV

NOV
MoV
CLR
MoV
Mov

INITIALIZE THE BRSE REGISTER
sSET PRIORITY LEVEL 7
+GET RETURN RDORESS
+SET BOTTON OF THE STRC(K
:RETURN

sSET UP FLORTING VECT RRER

8). (RO

-1,

.SET 8PT VECT
PSH

.SET TO XMIT 1 CHRAR

AOUTBUF, CRY
mmwzwno.acsa

o8PSH
#LBIT0. @BAR
#-1, COUNT

JLVL 0
SXMIY
+WRIT

+SET 1E

«ZDvD0 DM11A LGC

2OMRD. P11

TST

MACYi1
28-RAPR-78 13: 4y

1038
1036
1037
1038
1039
1040
1081
1042
1083
1004
1085
1086
1087
1048
1049
1050
1051
1052

1053
1054
1066
1056
1087
1958
1059
1060
1061

005337
001375
104001
000752
162716
011637
012737
0084737
000%15
008737
104000
017626
0084537

000000

30R(1052)

002076

000004
003650
000016
004372

28-APR-78

000014

004372

VECTOR:

003650
003650
000300

VECOK:

VECOKR:

fiHl TR

003650

JSR
TYPE

HHERE

004416

000300
003650

DEC
BNE
ERROR
BR
sus
MOV
MOV
JSR

000770

00007

003650

003650
000004
003650

001552
003650
001556

0000%
2

000046

000617

VECOKB:

JSR

O
TST

B8NE
MOV

(mp

BMIS
TYPE

CMP

BMI
BiT
BNE

noy

ROD

nov

JUNIT NUMBER

OMPARB:

UNIT

(MP
8ta

UNTOKB:

UNTOKC:

39
#4, (SP)
(SP), 3BVECTOR
816,381y
7, OVRLAY
VECOK
7. OVRLRY

5. RECD
VECTOR
VECOK
#300, VECTOR
VECTOR, #300
VECOKB

DHPAR
VECTOR, 8770
VECOKR
87, VECTOR
VECOKA
VECTOR, CLKINT

ASL
RSL
nov
Hov

B81C

-NO INT OCCURRED
;REPEAT IT
+CALC INT VECT
/STORE IT
/RESTORE BPT VECT
;. 42, HALT IN VECT RRER
;PUT HALT.. 42 IN VECTOR ARER
;ASK USER FOR RECEIVER INT
VECTOR
;OF UNIT UNDER TEST
;GET VECTOR AND PUT T
; HERE

;SET VECTOR = TO 0300

;1S VECTOR HIGHER OR

;EQUAL TO 0300
;TYPE ‘7

;ASK FOR ANOTHER VECTOR

;1S VECTOR = TO OR
-LESS THAN 270
-LS8 OF VECTOR MUST BE ALL O'S

VECTOR.
XMT INT

B2, WG
UNIT+2

UNTOKR

SEQ 0023

%, VECTOR

cne
BLOS

ARSI

COUNT
23

S, RECD

PAGE 23

TYPE
WH
I CH
JSR

TYPE
M1
UNTOKA:

13.48

UNIT, 817

JRACT1I1?

.BR IF YES
-GET UNIT AND PUT IT
; HERE

SUNIT SELECTED MUST BE
BETMEEN O & 17

ONPARD
UNIY
UNIT
UNIT
i, X2

SCSR.
X1

8370. (1)
l.'zfl'l‘.(l)-t
X

ADD
DEC
BNE

UNTOKS

nov
HOV
MoV
MOV

N, x2
8CSR, %3
&. (SR, x1
(3)+, (1)

-FORM RDORESSES OF

"REGISTERS OF UNIT SELECTED

:FORN ODD BYTE RDDRESSES

L ZDMR00 DM11R LBC TST
MACY11
(ZUA0. P11
28-APR-78 13: 4y

1091
1092
1093

004064
004066
004070

005221
005302
00137

1095
109
1097
1098
1099
1100
1101
1102
1103
1108
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
{}}g

UONO?2
004100
008102
0O0N1I0M
008106
00%112
GOM118N
00820
008122
00N130
00%136
OON180
00%182
00%18%
00%1%6
008158
OON1S6
00N16M
0081720
OOMI7%
008202
004208

023737
001405
10%000
017740
004537
000000
005737
001003
012737
023727
103003
104000
(020017
000752
023727
101371
162737
006337
013701
016137
000240
000207

109

1118
1119
1120

1121
1122
::;3

1125

1126
1127
1128
1129
1130
1131
1132

1133
1134
1135
1136
1137
1138
1139
118
118:
1142
1143
114
1186
1146

004206
004210
00%212
008218
008216
008222
008230
008236
0ON2N8
008282
008280

00N266
00NZ272
00NJO0
00NJO6
O0ON310
008318
008322
OO%32y
008326
008332
008338
008336
008342
004350

30R(i052)

13 48

INC
DEC
BNE

0000N2

000OMS

004416
00v112

00001C
004112

004112
000005

004112

000010

000005
904112
J0N112
004206

004112
001572

L
2
PAGE 24

(1)+
x2
UNTOKC

, CHARACTER LENGTH

DHPARC:

CMP
BEQ
TYPE
LEVEL
JSR
LENGTH: O
TST
BNE
Hov
LENOKR: CMP
BHIS
LENOKB: TYPE
1}
8R
LENOKC: CMP
8H|
Sus
RSL
OV
nov
NOP
RTS

SEG UL -

JlU2, atue
LENGTH+2

ACT117?
+BR IF YES

5.RFCD

-GET LENGTH AND PUT
+HERE

LENGTH
LENOKR
#8. . LENGTH
LENGTH, #5
LENOKC

- CHARRCTER LENGTH SELECTED musST
+BE BETHEEN 5-8
- CARRIRGE RETURN SELECTS 8

DMPRRC
LENGTH, #8.
LENOKS
85, LENGTH
LENGTH
LENGTH, X1

LENOKD (1), 38CARMSK
7

- SET (HARACTER LENGTH MARSK

+EXIT PRARANETERS ROUTINE

< THE BELOW TRBLE REPRESENTS THE CHARACTER LENGT
H MASK FOR 5.6.7.
;81TS PER_CHARACTER RESPECTIVELY.
LENOKD: 177740

177740
17?7700
177600
177400

012737
012737
012777
012777
012777
012777
008037
012737
062737
001007
008077
0312737
10%00%
0D073%
006337
001375
000756
006077
013737
006037

28-APR-78

122700
177600
177400

004 366
177777
017102
008336
00OW0
000001
000105

<CALCULATE MACHINE TINE TO TRANSIIT ONE CHARAC TER

001440
001400
175306
175302
17526%
175254

177776
0000
000001

002076
004366

175226
0003M0

177776

002076
175200
004366
004370

TIMER:

TINES:

004370

TINEC:

CLR
nov
nov
nov
nov
ov
noy
CLR
MOV
RDO
8NE
CLR
nov
ERROR
an
DEC
ONE
|
(LR
MoV
ROR

TINEYL
$-1.C7
sSET UP TO TRANSMIT
SOUTBUF . CAY
+1 CHARACTER ON LINE 1
STIMEC. SCLKINT LOAD RECEIVER INTERRUPT
PRTY7, CLKLVL
. AND PRIORITY
SLBITO, AR
s STRRT TRANSNI TTING
$81TH+8IT240170. 3CSR
sSET IE BIY
MPSM
;SEY PROCESSER PRIORITY LEVEL = O
24N, COUNT
81, TN
s INCREMENT MRCH. TIME TO TRANSMIT
TirES
o SR
SPRYY?, PSU
sSET PROCESSER PRIORITY LEVEL = ?
: TRANSHITTER FRILED TO INTERRUPT
TIMER
COUNT
=4
TIMER
oCSR
TINEL, TIME1Y
TINELY

AND 8

(ZDMADO DMT1R LGC TST
RACY11
(ZDMRD. P11
28-APR-78 13: 4y
1147
1148
1149

1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
11627
1168
1169
1170
1171

1172
1173
1174
1175

004358
004356
004362

000241
006037
022626

004366
004370

000000
000000

004372
008376
QOW802
00%WswOM
00%%06
008412
00s%14

012702
010262
005022
005722
022702
100371
000207

00%416
00820
008822

010046
005015
012737

108777
100375
117700
182700
110077

1183
1108
1196
1186

00%60
OONNGA
00MWG6
0072

122700
001415
182700
132700

1189

ODNS02

006315

he SN

ROR

POPSP2
RTS
TIME1.,
TIME14:

00610
OONGIS

OONGIY
008626

e R
1202

H
2
PRGE 25

TINELN
7

OPEN
OPEN

OVRLRAY:

127776

18-

000776

MOV

nov
CLR
TST

4,4

ePL
RTS

SEQ 0025

.RESTORE STACK POINTER
CEXIT TIME CA.CULRTION ROUTINE
-CONTRINS MACHINE TINE TO XMIT 1 CHAR
+CONTRIN TIME TO XMIT 1,8 CHAR

: SUBROUTINE TO PUT HALT,. 42

000302

006337
001422

000007

175432

00uS7y

#302.R2

IN VECTOR RRER (0300-1000)

R2.-2(R2)
(R2)+
(R2)+

8776.R2
18
7

OONGAZ
O0MGA6

004562

100375
012777

006077
106777
100375

RECD:

RO. -(SP)

13:

2%.

8s:

9s:

g;x(s.

STKDBR. RO

€200, R0
RO, aTPOBR
825,00

-CLERR OLD DRTA
-SET CHAR COUNT

ALY FOR CHem

-STRIP OFF PRRITY
+ECHO CHARRACTER
JASITA U

BRANCH IF YES

+ BRANCH IF YESS

#18.0C

$60. %0
f119. %0
75

ASL
fASL
ASL
8iss
DEC

(5
%)
(%)
RO. (&)
{NTY

8Ea

6%:

5
87.CNT

8€Q

8iCh
giTa
SNE

00457y

175320

;gll

000060
000110

175326

CLR
"oV

14 ]
nove
cnrd

000015

175332

nov

nove

175340

NO REGISTER CONTENTS ARE DISTURSED.

INPUT DRTR FROM TYY

175426

000012

(JSR 5.RECD).

;SUBROUTINE TO

000200
176422
000025

e e s 175346

1200
1201

13 48

CLC

o004 370

;CALL

OONN30
00WIN
00%s36
008942
OOWWN6

1196
1197

28-APR-78

:SUBROUTINE TO RECEIVE DATRA
~THIS SUBROUTINE RECEIVES DATR FROM THE KEYBO
ARD (UP TO SIX OCTAL
-DIGITS RND PLACES THEM INTO THE ADORESS FOLLO
WING THE SUBROUT INE

1176
1177
1178
1179
1180

1192
1193

30A(1052)

7ST8

orL
nov

1ST8

BrL
CLR

;;Ia

sTPLSK

11
$12.37POBR
oTPCSR

}]
STPOBR

SIPCSQ

IS IT R (D

; CHECK FOR O-7 8)
+BRANCH IF NOT

+SHIFT DATR
s INSET NEM CHAR
;ONLY 6 CHRR'S PLERSE
sNEXT CHARACTER

+HRIT FOR RERDY
:TYPE <LF)

;HALT FOR RERDY
;LORD CHAR

;. 440

CZDMADO DM11R LGC TST
MACY11
CZOMAD. P11
28-RPR-78 13: 44

1203
004554
1204
0QO0NS56
1205
008560
1206 004562
1207 0QONS6M
1208 00566
1209 0O0NS70
1210 008572
1211
00N57%
1212
1213
1214
004576
1215
0Ow60M
1216
1217
1218 0ONGO6
1219 00%610
1220
00%61%
1221
00%616
1222
1223
122%
1225
1226
1227
1228
1229
1230
1231

1232
1233
1238
1235
1236
1237
1238
1239
12%¢

1223
1238
1286

00N622
008626
008632
008636
CONGA2
0ON6MN
OONGSO

OONGEG
ODNGSE0
0ONG62

::;

0nNe70

1208
1229
1250
1251
1252
1283

OONGTS
08700
008702
OOV79h
008710
008716

& o

1256
1257

008730
008736
00% 7%y

30A(1052)

005725
012600
000205
104000
020017
104000
017666
000712
000000

012237

28-APR-78

1 ¥
CNT:
004606

00002y

13.48

TST
nov
RTS
TYPE
1)
TYPE

$CTLU
BR
0

PRGE 26

(R5)+
(SP)+, RO
RS

-RDJUST RS
;RESTORE RO

1§

;START OVER

;POMER FAIL ROUTINE
PFRIL:
MOV
fPURUP,
v
HALT

-POMER UP SUBROUTINE
PUHRUP:
RESET

001200

SEQ 0026

mov

4SPBOT.
%6

Jne

SERSTAT2

ERROR

002514

;GIVE TELEPRINTER TIME TO START
;TYPE POMER FRIL ERROR
;G0 RESTART PROGRAM

;LINE TEST SUBROUTIMNE: THIS LINE TEST PROVIDES
SEVERAL TESTS ON R DM11 L INE
;THE SUBROUTINE IS CALLED 8Y JSR S, LNTST.
TMIS INSTRUCTION PROVIDES THE
;H'I‘TS'” AD LINE NUMBER.
THE FOLLOMING L IME TESTS ARE PERFORMED
UNTIL CHARQCTER SHOULD MAVE BEEN TRAMSMITTED. THEN
TESTS

TAOT 8

IRERDY SE

81T CLEARED

;D0 MEXT TEST IFf ERROR
-D0 NEXT TEST IF ERROR
+ D0 NEXT TEST iF ERROR

HORD CUUNT MENT TO O

; CURRENT RDORESS DID NOT INCREMEMT :D0 NEXT TEST F LoROR

116730

XMTTST:

007044
001570
006246

1$:

000010

28:

174656

001566

174642

016730
001440

017102
001400
001566

5%:

s INTERRUPTS TO CORRECT VECTOR
;00 NEXT TEST IF ERROR (NO
;nsm 0T CAN BE CLERRED
;END OF TEST
MO
(5)¢, MULINE
sBET LINE NUINBER

JSR

CLR

JSR
-1
v

CLR

DEC
ONE
DEC
ONE

7.GTLING

GO FORM LIME B8IT (FOR BAR)

5. MXNIT0

#10.x3

60 TO TRANSMIT SUBROUT INE
:TRANSHIT ONE CHARACTER
JHALIT IN

X2
=2
%3
2%

LO0P
SUNTIL THE
s TRANSMITTER
+ 1S FINISMED

NTORY

; TRIS

SBAR. RCVOAT

;AR SHOULD NOM BE CLEAR

ST
ani

SR
s

;TEST RERDY BIT SHOWLD BE SET
;ORANCH IF SEY

NV
!'igg

OBL INE. X1
gcm).ncvom

8ca
ERROR1
ERROR

ERKOR
MoV

nov
gga

SOUT
, BUF
XMNTDRY .

CAT(1).RCVDAT

zg VORT, XMTORTY

INTERRUPT)

ORANCH IF 1T 1S
ERROR! BAR BIT FRILED TO CLERR

;ERROR! RERDY NOT SEY

;GET LINE NUMBER
-HORD COUNT SHOWLD BE O

SERROR! LORD COUNT NOT EQUAL TO O

. CURRENT RDDRESS SHOULD NOT HAVE INCREMENTED

CZOMADO DM11R LGS TST
MACY11
CZOMRD. P11
28-RPR-78 13: w4

1259
1260
1261
1262
1263
1268
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274

104011
012777

052777

005037
000240
012737
104001
022626
012737
0N2777
005727
100001
104001
005726
104006

30R(1052)

005002
010000
177776

174556

000340

1727776

000340

17277276
174522

110000

174516

174600

28-APR-78

13 48

ERROR1
MOV

8IS
CLR
NOP

MOV

B
3
PRGE 27

879, aXMTINT
881712, &SR
S#PSU

StaQ 0027
;ERROR! CURRENT RDDR. DID NOT INCREMENT
;LOAD TRANSMITTER INTERRUPT VECTOR
ENRBLE TRANSMITTER INTERRUPT
;SET PROCESSOR PRIORITY =0

#PRTY7, SMPSH
;LOCK OUT INTERRUPTS
ERROR
; TRANSHITTER FAILED TO INTERRUPT OR
. INTERR UPTED TO HRONG LOCATION AND HALTE
D WITH ADORESS +2 DISPLAYED
78:
CHpP
(6)+, (6)+
;RESET STACK PTR
NOV
SPRTY?, 8P SU
;LOCK OUT INTERRUPTS
BIC
#81T124B1T15, 3CSR
;CLEAR XMIT IE & RERDY BITS
TST
oCSR
; TEST THAT RERDY CLEARED
8PL
8s
;60 TO EXIT
ERROR
~ERROR! READY FRILED TO CLEAR
8$:
TST
(6)+
;RESET STACK PTR
SCOPE
; SCOPE

CZOMRDO DM11R LGC TST
MACY11
@4DMRD P11
28-RAPR-78 13. 44

30AR(1052)

1275
1276
127?
1278
1279
1280
1281
1282
1283

28-APR-78

13 48

¢
3
PAGE 28

SEQ 0028

SUBROUTINE IS ENTERED WiTH
TION FOLLOWED BY THE
AND
LINE NUMBER OF THE LIME TO BE
THE SUBROUT
INE PERFORMS THE FOLLOMING
HOMN BELOW
IN THE EVENT OF AN ERROR

-THE REMAINING TESTS RRE ABORTED
- TEST SEQUENCE AND RDORESS TRG
.
.
.

.
.
.
.

+NOTES:
,

012737
005037
005037
012737
012837

1277727
001600

001602
000340
016730
006246

000001

17%436

100000

017102

177776

000340
000340

000300
174326

CHARACTER DONE
CHRRACTER DOME

THE HARDMARE PROVIDES AN INCORRECT VECTOR

THE

INCORRECT VECTOR+2 IN THE RDORESS L IGHTS.

MoV
CLR

8-1, 0UTBUF
TUMTRAS

nov
mov

SPRYY7, 8P SU
(8)e. LINE

BiS

18:

174406
174370

28:

177776

174332

Js:

5. dXNITD

18170, (SR

(SR

81
(LR

881715,
SR
-(SP)

18718

oSSR

BNE

aml
§NC

ERROR
.1
TST

nov
BiIS

28
(SP)

(SP)+

83%. CLKINT
88176, aCSR

CLR

MPSU

nov

BPRYY7.PSU

NOP

177776

TUNMTRB
+2

IS8T

BrL

174426

RTSTB
RYSTC
RTSTD
RTSTE
RTISTF
RTSTG

RODRESS THE PROGRAM WiLL HALT AND DISPL
AY

J?l

174442

RTSTA

CAUSES INTERRUPT
CAN BE CLEARED

TUMBLE TRBLE ENTRY IS CORRECT
NO ENTRY IN NEXT TRBLE RDORESS
HARDUARE TABLE POINTER INCREMENTED
NEXT ENTRY WRS CORRECY

CLR

177776

174420

005172
000100

RCYTST:

CHARACTER DOME SETS

ERROK
14

MOV
cnp
BIC

18718

8PL
ERROR
BR

SPRTY?, MPSH

;LOAD ALL 1'S INTO OUTPUT BUFFER
JCLEAR THE FIRST
;THO TUNBLE TRABLE RDDRESSES
LOCK QUT INTERRUPTS
SGET LINE NUFBER
- TRANSAIT 1 CHRRRCTER (0°S)
+ON LINE SPECIFIED BY JSR

80 817

MAIT FOR TRANSHITTER
7O TRAMSHIT 1 CHAR,
;CLERR TRANSMITTER READY FLAG
sSET WATCH DOG TIMER
: TEST CHAR. DONE FLRG
-ORANCH IF SEY
;WRIT FOR THE FLRG

SERROR! CHAR. DONE FLRG FRILED TO SET
+60 TO EXIT
RESTORE STRCK PTR
sLORD RECEIVER INTERRUPT VEC. RORS.
+SET RECEIVER 1E BT
;ENRBLE INTERRUPTS
+LOCK QUT INTERRUPTS
+RECEIVER FRILED TO INTERRUPY
G0 YO EXIT

sLOCK QUT

INTERRUPTS

(b)+, ()¢
$B1T748iT6. (SR +CLERR CHAR. DONE FLRG
oCSR
+TEST THAT CHAR DONE FLAG CLERRED
1]1
+BRANCH IF CHRR. DONE FLRG CLERRED
+ERROR! CHAR. DONE FRILED TO CLERR
3
;G0 TO EXIT

LZDMRDD DM11A LGC TST
MACY11
CZOMAD P11
28-RPR-78 13: 44

134
1345
1346
1349
1350
1351
1352

005222
005230
005236
005294
005252
005260
005266

013737
082737
012737
083737
153737
052737
023737

C0527%
005276

001402
104011

005306
005318
005316
005326
008332
Q053N
005%0

013737
00140M
005037

000377
001572
016730
100000
001566

001600
001602

000200
001600

On2777
013737
0014%0M
006037
104011
000427
0137237
0M2737
012737
ON3737
153737
052737
023737

1369
1370
1371
1372
1373
137%
1375
1376
1377
1378
1379

005850
005452
005454

001401
108011
104006

us.

5§

001566

001570

006246

006360
00636
005368
006366
006372
00537y
005376
OOGAON
005M2
005420
005426
005A3N
005442

001566
001566
001570
001570
001571
001570
001570

28-APR-78

13 48

MOV
BIC
MOV
BIC
BISB
BIS
CMP

174202
174174
174164
001566

001570

001602
020000
000377
001572
016730

100000
001566

001570
001570
001571
001570
001570

;CLEAR NON TRANSMITTED 81TS
:LORD XNTDAT WITH PROPER L INE 8
SET VALID DATA ENTRY BIT IN XNTDAT
COMPARE TUMBLE TRBLE ENTRY (RCVDAT) &
; CORRECT RESULT (XMTDAT)

8s
:INTRY; 60 TO EXIT
TUMTRE
TUMTAB+2 RCVDAT . ET NEXT ENTRY
63
iBPANCH IF ALL O'S
XMTDAT

BR
JSR

8s
5, aaxmiTD

BPL
IsTe

3SR
-4
sk

BIC
MOV
BEQ
CLR

#8177, aCSR
TUMTRB,RCVDAT
7%
XMTDAT

;CLEAR CHAR. DOME FLRG
TEST THAT MARDMARE TUMBLE
:TRBLE POINTER INCREMENTED (+2)

;NOT INCREMENT; 60 TO EXIT

; CORRECT RESULT

-1
TST

MOV
8¢
MOV

BIC
BISB
BIS
CAP
o

8s:

. GET TUMBLE TRBLE ENTRY
:CLEAR PARITY INDICATOR
:LOAD XMTDAT WITH
TRANSMITTED DAYA

BR
CLR
MOV
BEQ
CLR _

ERROR1

TUMTRB.RCVORT
#8IT13.RCVDAT
8377, XMTDAT
CARMSK, XMTDAT
LINE XMTDAT+1
#BIT16,)MTUAT
RCVDAT,XMTOAT

SEQ 0029

ERROR?

D
3
PAGE 29

BEQ

ERROR1

008537
177777
005777
100375

1355
1356
1357
1358
1359
1360
1361
1362
1363
1368
1365
1366
:gz

1380
1381
1382
1383
1304
1385
1386

001600
020000

28
FE

1331
1332
1333
1334
1335
13136
1337
1338
1339
1340
1341

30A(1052)

indOR! INCORRECT TUMBLE TRBLE

;ERROR! FALSE ENTRY IN NEXT

:TUMBLE TRBLE ADORESS
. TRANSMIT 1 CHARACTER (ALL 1°S)

;ON LINE SPECIFIED BY JSR
:MAIT FOR TRANSMITTER

RERDY FLRG
:TEST FOR THE DOMNE FLAG

;ERROR! TUMBLE TRBLE POINTER DID

TUNMTAB+42 RCVDRT ,GET TUMBLE TRBLE ENTRY
881713, RCVDAT
CLEAR PARITY INDICATOR
8§377.XMTORT
.LORD XMTDRT W'TH TRANSMITTED DATR
CARMSK.MTORT ; CLEAR NOM-TRANSNITTED B1TS
LINE.XMTDAT+1
:LORD LINE & INTO XNTDAT
OBITIS.)MTORT
. SET VALID DATA ENTRY 81T INTO XMTORT
RCVDAT,)MTOAT
.COMPARE TUMBLE TRBLE ENTRY (RCVDAT) &

ERROR{
SCOPE

(XMTDAT)

JERROR! 2ND TUMBLE TRBLE ENTRY
;MRS INCORRECT: SCOPE

; SUBROUTINE TO TEST BREAK OPERATION
;THE TRANSMITTER WILL TRANSMIT THE BREAK FOR TWO
CHARRCTER
;TIMES AND THEN THE FOLLOMWING TESTS WILL BE PERFO
RMED
;
A VALID DATA ENTRY WRS MAOE
BKTSTE

005456
006464
006470
00647%
006476
005508
005510

012777
011577
105777
100375
082777
105777
100375

000001
174056
174046

174056

000200
174032

174036

;
:

BRKTST:

SREAK BIT SET
DATA WAS ALL 0'S

MOV

&1, CSR

TSTB
BPL
BIC
TST8
8PL

3SR
-4
#8177, aCSR
aCSR
e

(5), 3BKCSR

BKTSTC

;SET THE GO 81T

BKTSTO

;SET_THE BRERK BIY

;HAIT FOR THE RECEIVER TO
;RECEIVE BREAK
:CLERR FLAG
]
;WAIT FOR THE RECEIVER 1O
i TO RECEIVE BRERK

(ZOMAD0 DM11A LGC TST
MACY11
(ZDMAD. P11
28-APR-78 13: 4y

1387

1388

1389

1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403

005512

005520

00552%

005530
005532
005538
006836
00558%
006546
006560
005662
005566
005560
005568
005572
005576
005600

042777

005077

005737

100402
10%001
000421
032737
001002
104001
000413
105737
001410
005037
113737
005037
104011
104006

000200

174022

30R(1052)

174022

001600

040000

001600

001566
4s

(LR
TS1

8MI
ERROR
8rR
BIT
BNE
ERROR
8rR
TST8
BEQ
CLR
HOVB
CLR
ERROR1
SCOPE

£
3
PAGE 30

#8177, aCSR

SBKCSK

TUNTAB

4s
#BITI4. TUNTAB
3s
4s
TUMTARS
Y$
RCVORT
TUMTRB, RCVDAT
XMTORY

SEQ 0030

- CLERR FLRG

;CLEAR BREAK BIT

;TEST FOR VALID DATR ENTRY

;ERROR! NO VALID DRTA ENTRY
;G0 TO EXIT
. TEST THRT BREAK BIT IS SET
; IN TUMBLE TRBLE
;ERROR! BREAK BIT FRILED TO SET
;G0 TO EXIT
;TEST THAT DRTA IS ALL 0°'S
; GET RECEIVED DATA
;ERROR! DATA WAS NOT ALL O'S
. SCOPE

- SUBROUTINE TO TRANSMIT & RECEIVE ON ALL LINES THE
DELRY BETWEEN

1407

+TRANSMITTING ON R LINE IS SUPPLIED BY THE CRLLI
NG JSR

1408

1409
005602
012537
1410
005606 005037
1411
005612
008537
1812
005616
020233
i%3
008620 017102
1418
006622
000100
1415
00662%
012737
1416
005632 005037
1417 005636 012777
1418
0066NS
O00N537
1419 005650
177700
1420 005662 013737
1421
006660 01370
1422 005668
109%0y
i%23 006666 000000
1424
006670 005304
1825 006672 00137%
1426 00667
052737

1827
1428
1429
1430
1431
1432
1433
1434
1836
1836
1837
1838
1439
1440
is41
1442

2§

1406

13 48

18.

001690
001566
001600
001570

28-APR-78

COB702
006706
006710
006718
006722
00872%
006726
006?30
008732
00670
006792
00679
006796
0067%%
005756
005768

026337
103356
012708
013737
108400
000000
00530%
00137y
017737
001402
108011
000413
022777
001407
012737
017737

:NOTE NO DRTR CHECKING (S PERFORMED BY THIS TEST

002076
001570
006224

DLYXMT:

000001
016730
000001
006246

001564

004366
002076

005666

173676

1828:

38:
4s:
900002

00156Y4

000100
004366

016730

05724

173606

001566

100201

173566

100201
173552

001570
001566

5§:
6$:

7§:

MOV
CLR
JSR
NSGY
OUTBUF
6M.
OV
CLR
HOV
JSR
-64.
nov
'ad
DELRY
Q
DEC
BNE
ROD

RSL
a8cc
MoV
HOV
OELRY
g
DEC
BNE
HoV
BEQ
ERROR1
8R
CHP
8Ca
MOV
MOV

(5)+, JRCOUNT
XMTORTY
5. BMOVE

INSTRUCTION

;GET CHARACTER DELAY COUNT

-LORD OUTPUT BUFFER WITH DATH
:TO BE TRANSMITTED

LBITO.
L INBIT
SEL INE
48170, 3CSR
;SEY THE GO BIT
5, JAXMITD
;TRANSMIT 6% CHAR.
;ON R LINE
ATINEL
NS
SMCOUNT, x4
iGET CHARACTER DELRY COUNT

XN
33
82, LINE
LINBIT
23
g6, , x4
TinE1, 6$

XYy
5%
98AR, RCVDRT
79
83
#100201, 3CSR
8$
#100201,XMTDAT
#CSR, RCVORT

+FORM NEXT LiINE NUMBER

SHIFT LINE BIT
;BRANCH IF ALL LINES NOT CONE

;GET & TEST BAR DATR
SEXIT IF DONE
;ERROR! BAR SHOUWLD'VE BEEN CLEAR
+ TEST THAT ONLY DONE.GO.3 RERDY BITS RRE SETY
-GET (SR CONTENTS

CZOMADO DOM11A LGC TST
flRCIA!
(ZOMRD P11
28-APR-78 13

1449
1450
1451
1452
1453
1454

005772
00577y
005776

011637
062716
017737
001413
012737
162737

001404
005337
001378
000765
000002
000000
000000

1455
1456
1452
1458
1459

1460
1461
1462

1463

1464
1465
1466
1467
1468

1469
1470
1471
1472
1473
147%
1475
1476
1477
1478
1479
1480
1881
1482
1483
148%
1885
1486 006154
1887
1488

1489
1490
1491
1892
1493
199%
1495
1496
1497
1498

104011
005726
104006

1443
1444
1445
1446
14427
1448

28-APR-78

8s:

006050
000002
00003y

006050

000001

006052
006050

006052

ki)

012737
00M537
006076
006077
000005
000207
000000
00000C
000000

177727
006224

013737
00537
005337

006100

006076

006102

SEQ 0031
. INCORRECT CSR COMTENTS
+RESET THE STACK
. SCOPE

OPEN

;CONTAINS DELARY COUNT

OPEN

RTS

OPEN
OPEN
OPEN

- CONTARINS DELRY ROUTINE CONSTANT

INITIALIZE BINARY COUNT PATTERNS
#-1,RIND
;SET ALL VARIABLES
%5, BMOVE
;TO MINUS 1.

JEXIT

;SPECIAL BINARY COUNT PRTTERN SUBROUTINE.

GTBIN

006076

006102
177400
006102
006102

F
PAGE 31

ERROR 1
POPSP
SCOPE

-SUBROUTINE TO
INBIN
MOV
JSR
RIND
gl"fl#l
R IND:
PTO.
PYY:

006102

13 48

: SUBROUTINE TO DELRY R SPECIFIED NUMBER OF MILLI
SECONDS
oLY
Hov
(6,38
-GET DELAY COUNT RADDRESS
RDD
$2,(6)
;SET UP EXIT RDDRESS
MOV
418,38
;GET DELAY COUNT
BEQ
29
JEXIT IF NO DELAY
1§
MOV
£$50. 49
SUB
#1.39
BEQ
29
DEC
4s
BNE
-4
BR
19
29
RTI
JEXIT

006102
006100

MOV
con
con
BNE
INC
eiC
nov

MoV

NOP
RTS

PT0.PTY
PT1
RIND
. 46
PT1
R177400.PT1
PT1.PTO

EXITS MITH BIN CHAR

;PREVIOUS BIN CHAR TO PTI

IN R1

-MASK TO 8 BITS
-SAVE BIN CHAR IN PTO

PTL. %1

+BIN CHAR TO R}

SEXIY

-OCTAL TO ASCI! CONVERY ROUTINE
OACNV:
SRVREG
-SRVE REGISTERS ON THE STACK

nov
nov

177770

000060
000007

006210
006212

30R(1052)

OACNVA:

MoV
R0D

MoV
8ic

ROD

Hovs

BiC

ROR
ROR
ROR

#(8)+, X4
{5)+, X1

(5)+,%2
%2. %1

N, %3
8#1772770.%3
#60, 23
%3, -(1)
87, %4
4]
7N
4}

+GEY OCTAL VALUE
+GET DESTINATION ADOR

:GET CONVERT COUNT.
:DEVELOP RDOR TO STORE 1ST CHAR
» ISOLATE LERST SIGNIFICANT DIGIT
- CONVERT DIGIT TO ASCII.
-STORE RSCI! CHARRCTER.

CZDMADO DM11R LGC TST
MACY11
CZDMAD P11
28-RPR-78 13 uy

1499
1500
1501
1502
1503
1504

1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1827
1528

1529
1530
1531
1532

00621%
006216
006220
006222

005302
001363
104010
000205

006224
006226
006230
006232
006238
006236
006240
006242
006244

104907
012501
012502
012503
112122
005303
001375
104010
000205

006246
006250
006258
006260
006266
00627
006300
006306
006310

010046
013700
008737
012777
012760
012560
053777
012600
000205

30R(1052)

G
3
PAGE 32

%2
ORCNVA
%5

SEQ 0032

-DONE ALL DIGITS?
;BRANCH IF NOT DONE.
-RESTORE THE REGISTERS
;DONE. EXIT.

. SUBROUTINE TO MOVE A VAR IABLE NUMBER OF
BYTES.
BMOVE:
SRAVREG
;. SAVE REGS.
MOV
(5)+, %1
;GET"FROM"RDDRESS
MOV
(5)+.,2%2
;GET"TO”RDDRESS
MoV
(5)+, %3
;GET COUNT
18
MOVB
(1)4,(2)+
;MOVE BYTE

DEC
BNE
RSTREG
RTS

0070uy
001400
017102
001440
001564

%3
1%

SUBROUTINE TO TRANSMIT DRTAR
+JSR S, XMITD
XRITDMOV
%0.-(SP)

016730

NOV

8L INE, D

nov

$CAT. IBRSREG

JSR

173262

001400

SUBROUTINE CALLED BY
.SAVE RO ON THE STACK

;GEY LIMNE

.FORM LINE BIT (FOR BAR)

INITIALIZE BRSE REGISTER

MoV

SOUTBUF.CAT(0)

,LOAD FIRST CHAR RDDRESS IN AaY

g8is

SELINBIT, 3BAR

;LORD LINE POSITION INTO BaR

R1S

nov

173236

7. HGTL INB

;DECREMENTY COUNT
+BRANCH IF NOT DONE
;. RESTORE REGS.
;OONE EXIT

MoV

(5)+, UWCT(O)

(SP)+, X0

.GET HWORD COUNT

.RESTORE RO

JEXITY

SROUTINE TO TEST R LINE

006312
006316
00632

012537
012737
012702

016730
000144
017102
006104

006336

006337

002076

1538
1539

00630
006N

008037
008637

001600
006224

sTHE LINE TO BE TESTED IS PROVIDED BY THE JSR
CALL TO THE ROUTINE
:100. CHARACTERS ARE TRANSMITTED. RECEIVED AND CHECKED
BY THIS ROUTINE

002076

DATTISYT:

DATIAA:

19%.

g mE S
006372

082777

gt e el
006N06
006A1%
Q0616
0068422
006A2%
006826
006438
006436

032777
00100
108777
100371
000415
032777
001403
104001

MOV

173142

160000

173126

;GET DATA
;LORD OUTPUT BUFFER WITH DATA

MoV

STUNTRR. %1

;LORD TUMBLE TRBLE POINTER

JSR

5. BMOVE

;CLEAR

gis

#8170, CSR

JSR

3%:

-BEY LINE NUMBER

GET CHMARACTER COUNT

SOUTBUF . x2
7. MGTBIN
X1, (2)+
52“'"

TUNTAS

TUNTRB
TUNTAD+1
17?2
nov
SINBUF. %2

173120

173106

(5)+, JBLINE

£100. . COUNT

nov
JSR
nove

CLR

017246
000001
006246

060000

MOV

gfig

i En e 001600

1547
1548
1549
1560
1561
1562
1553
1554

13 46

DEC
BNE
RSTREG
RTS

1535

1584

28-APR-78

-100.

5. 98XNITD

GEY ADDRESS OF OUTPUT BUFFER

;GOT ALL DRIR?

s TUMBLE
- TRBLE
. &% WORDS
;SETUP INPUT BUFFER POINTER

;SEY THE GO BIT

+ TRANSMIY

. 100.

CHARRCTERS

BiT

$BITIS+BITINGBIT
SCSR.
YI],
TEST IF READY OR ANY ERROR

g:L

8T
Eggm

0 ITIN4BIT13, (SR, TESY FOR ERROR FLRGS
‘s
. BRANCH NO ERROR

BNE
17878

18
(SR

<FLAGS ARE SET
HAIT FOR THE RECEIVER

.TO RECEIVE R CHARRCTER

(ZOMAD0 OM11A LGC TST
MACY11
C(ZDMRD. P11
28-RPR-78 13 4

1555
1556
1557
1558
1559
1560
1561
156Z

1563

1568
1565
1566
1567
1568
1569
1570
1571
1572
1573
157+

1575
1526
1577
1578
1579
1580
1581
1582
1583
1508

1585
1536
1587

1588
1589
1590
1591
1592
1593
15%
1596
159
1597
1598

006440
00644y
006452
006456
006460
006466
006470
006472

006474

006476
006502
006504
006510
006512
006514
006520

00652
006532
0065A0
006562
006550
006566
006560
006562
006566

006670
00657
006676

006600
00660N
006610
006612
00661%
006616
006620
00662%
006630
006N
0066A0

0066

1601

0066564

%%
1608
1606
1606
1607
1608
1609
1610

006666
006670
006674

006676
006702
006704

000137
0N2777
105777

100375
082777
005711
100401
104001
111122
012705
000261
032711

001001
0002%1
004537
011137
0n2737
123237
001410
013737
013737
104011

000877

020127
001002
012701
005721
010086
013200
005760
001402
012600
000674
012600
012701
012702

012708
O0NG37
006037
006037
020127
001441

112137
083737
111237
104002

012703
005000
106037

30R(1052)

28-RAPR-78

006760
100000
17 3064

173070

030200

173054

JMP
BiC
1STB
8PL
B1C
TST
BMi

ERROR
MOVB
+ROUTINE

000001
020000

006764

001562
001563

016730
001562

001570
001566

SEC
giT
BNE
e
JSR

BiC

npPB

8EQ

MoV
Moy

ERROR1

001576
g

016730
001440

017102
017246
000014
006764
001566
001570
017245

10%

001570

BNE
MoV
TST
MoV
18T
BEQ
"oy
R

hov

nov
MoV

JSR

CLR
< |
(ne

BEQ
nove
19

nove

DATCHK

001566

15§
#8IT15, (SR
(SR
-y
#8177, 3CSR
(1)
+4

(1).(2)+

SEQ 0033
GO EXIT

»CLEAR TRANSMITTER RERDY FLAG
- TEST FOR CHARACTER RERADY
-CLEAR CHAR DONE B1IT

+TEST FOR VALID ENTRY

+REPORT INVALID ENTRY

-MOVE CHAR FROM TUM.

TO STORE RECEIVED PARITY BIT

MOV

MoV

C01776

000010

PAGE 33

#1.25

$81T13.
(1)
6%

5. RORPARBUF

TRB

INPUT BUFFER

IN PRRITY BIT BUFFER

;GET ROTRTE COUNT

.SET THE CRRRY 81T
-TEST RECEIVED PARITY BIT
-BRANCH (F RECEIVED PRRITY WAS 00D
;CLERR CRRRY BITY
-ROTATE RECEIVED PARITY INTO PARITY BUFFE
R

-ROUTINE TO TEST THAT ENTRY

001562
1607?77
016730

001570
001572
001566

13 48

IS FOR THE CORRECT LINE
-GET TRBLE ENTRY
81860777.17DAT
+CLEAR ALL BUT LINE NUMBER
LINE. TTORY
+¢
;COMPARE L INE NUMBERS

(1).98TTOAY

b4 3

LINE. XHTDAT
TTYDRT. R(VDAY
159

X1, 8TUNTRB+17%

8
S$TUNTRB-2X1
.
(1)+
LINE. XD
WM,
.+
(6)+.X0
23

;‘ounur"'m x1

S INBUF
, X2
812 .x5

8. RORPRRBF

RCVORT
YMYORY
X1, SOUTRUF
+99

189
(1)e, XNTDAT
CARNSK. XMTORT
(2).RCVORT

<GET CORRECT LINE 8 (X2)
-GET LINE 8 (X2) THRT FALSE DRTA CAME
-ERROR' DATA CAME IN ON A LINE THAT
-PROGRAN WAS NOT TRANSMITTING ON
EXIT TESY
- 1S POINTER RT THE END
.OF THE TABLE

IN ON

- INCREMENT POINTER

+SAVE REGISTER 2ER0
SFETCH LINE NUMBER

-HRS THE LAST CHARACTER BEEN TRANSMITTED

<LAST CHARACTER MRS BEEN TRANSMITTED
-RESTORE REGISTER 2ERO
.60 WAIT FOR NEXT CHARRCTER
-RESTORE REGISTER 2ERO
ROTATE PARITY BUFFER
12 PLACES RIGHT
JHAVE ALL (MRRS

BEEN COMPRRED

sGET TRANSMITTED CHARACTER
+CLERR NON-TRRANSMITTED BITS
-GET RECEIVED CHARRCTER
;COMPRRE TRANS. L RCVD CHARS

;ROUTINE TO COMPUTE AND CHECK PARITY ON RECEIVED DATR
11§:
MOV
8. .23
;GET BIT COUNTER
CLR
X0
:CLERR COMPUTED PARITY INDICATOR
128
RORB
RCVDART
-LOOK AT RECEIVED BIT

oDMHD0 DM11AR LGC

(ZOMRO P11

MACY11
28-RPR-78 13 uy

006710
006712
006714
006716
006720

006722
006726
006732
006736
006740
006742

103001
005100
005303

112237
012705
008537
103004
005700
001336
108001

28-APR-78

001566

000001
006764

$1.)5
6. RORPARBUF

TSTY

ERROR

159

007026
007030

007032
007034
007036
007040
00708 2

BR
ST

8EQ

ERROR
B8R

POPSP

ROR
ROR
ROR
ROR
ROR
DEC

PRARQD:

;ROTRTE PARITY BUFFER 1 PLACE
;RIGHY LERVING RECEIVED PARITY BIT IN CRRRY

+BRANCH IF RECEIVED PARITY WAS EVEN

109

;BRANCH IF COMPUTED & RECEIVED WAS 000

108
%0

109

108

;TEST FOR COMPUTED ODD PARITY

-ERROR! COMPUTED =EVEN.RECEIVED = 00D
;CONTINUE TEST
;TEST FOR EVEN COMPUTED PARITY

;BRANCH IF COMPUTED PARITY WAS EVEN

ERROR! COMPUTED =0DD. RECE IVED = EVEN
-CONTINUE TEST
+REPOSITION STACK POINTER

; SCOPE

PRRO
PAR1

PAR2
PAR3
PARY
PARS
PARG
(SP)

RORPRRBLF
1

-DECREMENT ROTATE COUNT

OPEN

OPEN
OPEN

PAR3:
PARY:

OPEN
OPEN

PARG:

OPEN

PARS:

001564

SEQ 003y

-ROUTINE TQ ROTATE PARITY BUFFER.

RORPARBUF: ROR
ROR

PRR1:
PARZ:

000002

149

SCOPE

BNE
RTS
;PARITY BUFFER

001564
016730

I
PAGE 3y

MOV
JSR

BNE

149

13 48

BCC
13%
,BRANCH IF R O
oM
%0
- COMPLEMENT RO IF A {
DEC
%3
;DECREMENT BIT COUNTER
BNE
128
;LOOK AT NEXT BIT IF NOT DONE
NOP
: IF COMPUTED PARITY WAS 00D RO WiLL
+CONTRIN ALL 1°'S, (F EVEN RO = O
MOVB
(2)+, RCVDRAT
;GET RECEIVED CHRRRCTER

8CC

104006

006037
006037

30A(1052)

138

001372
000240

0007 34
005700
001732
104001
000730
005726

1611
1612
1613
161%
15918
1616
1617
1618
1619
1620
1621
1622

TST

OPEN

; SUBROUTINE TO FORM LINE BIT POSITION MITH THE LINE
& IN LINE
GTLING. MOV
X0, -(
;SARVE RO ON THE STACK
CLR
SBLINBIT
CLEAR LINE BITY
nov
SBLINE. X0
JGET LINE
SEC
;SET CARRY
1$:
ROL
LINBIT
sSHIFT LINE BIY

sus

8PL
MoV
RTS

$2.%0

1%
(SP)+. %0
?

;SUBTRACT 2 FROM L INE NUMBER

;BRANCH IF GRERTER THAN O
RESTORE RO
EXIT SUBROUTINE

CZOMADO DM11A LGC TST
mcn1
CZDMRD. P11
28-RPR-78 13

1663
1664

007076
007100
007102
007110

007114

007120
007126
007132
007136
007140
007142
007144

104000
020103
012737
005037
000137
012737
005037
000137

007136
002004

002546
007136

30R(1052)

28-APR-78

002000
002000

MoV
CLR

PRGOR:

002600

JMP
MOV

CLR
JHP

13 48

J
3
PAGE 15

SRT0.KSTART

RTNNO

SRSET
SRYO,. KSTARY

RTNNO
GETROY

SEQ 0035

.GET RDORESS OF FIRST TEST
.CLEAR ROUTINE #

:GEY RODRESS OF FIRST TEST

;CLEAR ROUTINE NUMBER
;60 AND START PROGRAM

’ xnnnuxxxxxxxxunnxxnnnxxnxnuuuunxxxxx
xxxxxxxxxnxxxxxxxx
RTO.
0
;ROUTINE 8 O
|
RT1
-RODR OF NEXT ROUT INE
|
100.
~ATERATION COUNT
b{
§T3R1
. SCOPE ENTRY POINT
4

000000
007200
000144
007146
000000

=X+

; xxxxxxnxnxxzntxxuxnxxnnnunnnnuxxxxnx

xxxxxxxxxxtnxxxxxxxx

0127237
005777
012737
104006
162716

007170
172362
000006

000004

;TEST ABILITY TO REFERENCE CSR WITHOUT TRRPP ING
RTOR:
MOV
8§18, JRERRVEC
.SET UP ERROR TRAP
TST
(SR
- REFERENCE CSR
1%:

104001
000002

g(()g"

SERRVEC+2, JRERRVEC

sus

., (p)

ERROR

+RESET TIMNE OUT TRAP

SRESTORE PC TO WMERE THE
REFERENCE OCCURED

ILLEGRL

JERROR! 1LLEGRL REFERENCE OCCURED

RTI

-LOOP

RT2
100.
§T)1‘R‘

;RDDR OF NEXT ROUTINE.
- ITERATION COUNT

ILLEGAL REFERENCE

INSTRUCTION

; xxxxnnnxzxnxnuxtnxnuxxutxxum
:mmxmzmxxunn:xxnux
RT1
1
SROUTINE B o
¢

000001
007252
000144

007210
000001

- SCOPE ENTRY POINT.

|
1

=X+

; txxuxnuuzunznnu:xuxntuunn:mu

unmnutuxxxnxxxxxxx

012777
022777

001402

000001
000001

172324
172316

;TEST THRT CSR BiT0 CAN BE SET AND CLERRED
RTIA:
nov
48170, &SR
SET BITO.
e
#8170, SR
;TEST THAY BITO IS SET

8EQ

104001

000n07
onN2777
005777
001401
104001
108006

000001
172276

172302

18%:
2

+BRANCH IF SET

ERROR
BR

;CSR BI1TO FRILED TO SETY
;OR AN ADDITIONAL BIT ALSO SET

;g;

g(’Sfl

TEST THRT BITO IS CLEAR

8iC

g:s'o:

#8170, (SR

-CLEAR BITO

(SR BiT0 FAILED TO CLEAR

; wmxununxunxuuutu:xuxtutnumuutunu
nxuuxxunnx
RT2:
2
/ROUTINE & 2

000002
007324
000144
007262
000002

100.

’k‘r’z‘n‘
X+

;ADDR OF NEXT ROUTINE.

- ITERRTION COUNT

+SCOPE ENTRY POINT.

; xxnun:ntuuz:mxuxunuunnuuuuttnunnxuun

uxunun

007262

007270

012777
022777

000002
000002

172252
172244

;TEST THAT (SR BITY CAN BE SET AND CLEARED
RT2R
MOV
#0171, (SR
+SET BITY,
d, 4
#0171, 3CSR
s TEST THAT BITY

(S SET

CZDMR00 DN11R LGC TST
MACY11
(ZDMRD. P11
28-APR-78 13: 44

1719
007276
001402
1720 007300
104001
1721
007302
000807
1722 007304
on2777
1723 007312 005777
1724
007316
001401
1725
007320
104001
1726
007322
104006
172?
1728
007324
000003
1729
007326
00?7376
1730 007330 000144
1731
007332
007334
1732
000003
1733
1734
1735
1736
007334
012777
1737
00732 022777
1738
001402
1739
1084001

1740

000407
082777
005777
001401
104001
10%006

1744
17%2
1743
1744
1795
1746
17%?
1748
1749
1750
1751
1752
1753
1754

30R(1052)

172230

13 48

BEQ

+BRANCH IF SETY

BR
8IC
;ga

29
#B1T1, 3(SR
ggSR

;OR AN RDDITIONAL BIT ALSO SET
;CLERR PITH
;TEST THAT BIT1 IS CLEAR

ggsgg

ERROR

000002
172224

28-APR-78

PRGE 36

SEQ 0036

CSR BITY1 FRILED TO SET

;CSR BIT1

FRILED TO CLEAR

; ti!ttll!t!!t!!!!l!t!!!ull!!!t!ltl!ltl!!t!!!!t!ltK!lltttlt!ltttltt

RT3

3
RTY

;ROUTINE
8 3
;RDDR OF NEXT ROUT INE

100.
:Tgflt

!l!xtt

; ITERATION COUNT
- SCOPE ENTRY POINT.

1
b¢

4
|

; !!!l!!ll!!!tt!ll!t!lllnlltt!!l!llt!l!ulllllll

tt!t!l!!ttt!ttt!tl!!ttlt!

000004
000004

; TEST Tlflg CSR BIT2 CAN BE SET AND CLEARED

RT3A:

172200
122172

#8172, (SR

8B1T2. acsSR
19

;TEST THAT B1IT2 IS SET
sBRANCH IF SET

1$:

L
BIC
IE;

29
8172, aCSR
g(‘SR

;OR AN RDDITIONAL BIT ALSO SET
-CLERR 8172
;TEST THAT B8iT2 IS CLEAR

28.

g:s'flt

ERROR

000004
172152

172156

RTY:

~CSR 8172 FRILED TO SET

-CSR BITZ FRILED TO CLERR

: SRRSRRRRE RN

000004
007450
000144
007406
000004

-SET 8172

cne
8tQ

RRESRRS LR RSN ESNBRLRRRERRESERRRRNRSLILLLLLRIRLAL
LLTLL

RYS

-ROOR OF NEXT ROUTINE

5725‘

;SCOPE ENTRY POINT.

100.

: ITERRTION COUNT

S 3RRRE 2R

LLLL

JROUTINE 8 &

RRESR LS SRNR AR RN R RRRER
R RS
ERESRRENSLLLSSRLTARATLILELY

; TEST THRT (SR BIT8 CAN 8 SET AND CLERRED
RT4R:
MOV
81Ty, ACSR
+SET BTN,

012777
022777
001402
104001
000807
062777
005777
001401
104001
104006

cne

8817w, aCSR

ERROR
8k

SEQ

18.

8ic

;’g;

881 Ty, 3(SR

ggSl

ggs'og

; TEST m BiTe 1S SEY

; SRANCH F SET

+CSR II‘N FAILED TO SEY
;OR AN RODITIONAL 81T ALSO SET

CLERR BITy

sTEST THAT BITe 1S CLEAR

;CSR BITy FRILED TO CLEAR

; uuunttnuuntututtnxunzmtuxtuztuuu

RTS:

007522
000144
007460

5
RT6

:ROUTINE & §
;ADDR OF NEXT ROUTINE.

;ngl

:SCOPE ENTRY POINT.

100.
J

SRERER ER

007460

012777

000040

172054

AR NSRS

+ ITERATION_ COUNT

uununxxnnxxn

3
|

LSRN AR L RIRNSARRRLABRARAARARIALLTLLATITRRARTRALTLLS

;TEST THAT (SR BITS CAN BE SET AND CLEARED
RT5R:
MoV
#8175, 3CSR
;SET BITS,

(ZOMRDO DM11R LGC TST
MACY1t
CZDMRD. P11
28-RPR-78 13: 4y

177%
1776
177?
1778
1779
1780
1781
1782
1783
178%
1785
1786

007466

022777
001402
104001
000407
0N27277
005777
001401
104001
104006

000040

30A(1052)

28-3PR-78

172046

13 48

cKp
BEQ

88175, 3CSR
19

18.

BR
81(C
;gg

(3 3
88175, (SR
ggSR

ggspog

ERROR

000040
172026

172032

L
3
PRAGE 37

SEQ 0037

+TEST THRT BITS
;BRANCH IF SET

IS SET

;CSR BITS FRAILED TO SET

-OR AN RDDITIONAL BIT ALSO SET
/CLERR BITS
. TEST THAT BITS IS CLEAR
;CSR BITS FRILED TO CLEARR

; !!!!lll!l!ltl!il!!!!l!uttl!t!tlll!lttl!l!ll!l
l!ltt!!t!l!!tlll!!lltttt!l
RT6:
6
,ROUT"( 46
4
RY?
. RDDR OF "XT ROUT INE
4
100.
;ITERATION COUNT
{

000006
007574
000144
007532

RT6R

:SCOPE ENTRY POINT.

Xz=X+1
; 3!!!33!!!!!3!ll!!!8!t!nll!!1l!l!t!l!tltll!!!l
tll!t!lllt

!tttlltl!tttl!tt

000100
000100

000100
171754

;: TEST THAT (SR BIT6 (AN BE SET AND CLERRED

RT6R:

172002

171724

171760

18:
2

nov
e
BEQ

ERROR
B8R
8iC

#8176, 3CSR

88176, 3CSR
19

88176, #(SR

ggSR

g:g'flt

.SET BiTs.

TEST THRY B1T6 1S SET
sBRANCH IF SET

;CSR 8176 FRILED TO SET
OR AN RDOITIONRL B!T RLSO SET

SCLERAR BT

. TEST THAY B8iT6 IS CLEAR

-CSR BiT6 FRILED TO CLEAR

. :nxtxnnnuunxntuuntxntmauutnt

RY?:

mnnxxuxuxxxnxunxxx

7
/Y10

ROUTINE 8 7
RODR OF MEXT ROUTINE

100.

+ {ITERATION COUNT

:T’?‘R‘
2

¢
|

:SCOPE ENTRY POINT.

i BRRRBRRERERE
LRSI SR
INLRRTR
LELITLA
RLLLR
RA
SLTLLE
LLSLL
RR
LS 22T
R 020038083041

171730
171722

:TEST THAT (SR BIT12 CAN BE SET AND CLEARED

RT?R:

noy
cne
8€Q

ERROR
171706

1$:

8iC

;g;

MiIT1Z. XSk
#81712. (SR
19

;SEY 81712
- TEST THAY B1IT12 1S SET

JORANCH IF SET

+CSR BIT12 FAILED TO SEY

OR AN RDOITI
BITONA
ALSO SET
L

gC‘SR

TEST THAT BIT12 1S CLERR

B81Y11{2. &SR

:sgz'og

.(Ltfl 81iT12

;CSR BIT12 FAILED TO CLEAR

; nuunxnutuuunnxtnuuummxxuunnxxuun

RT10:

JROUTINE
& 10

Y14

+ROOR OF 'CXY ROUT INE.

100.

; ITERATION COUNT

’l‘t,l‘tl’!
s

FRBESER RE

;SCOPE ENTRY POINT.

X¢

AR RN R

xn:xuunxxx

SR AR LSRR

AR AR RN RR AR LRI

;TEST THAT (SR BIT13 CAN BE SET AND CLERRED

{
LTRRLAA LT

RLLLTERLLAL

(ZDMADO DM11A LGC TST
MACY11
(ZOMRD. P11
28-2PR-78 13: w4
1831

007656

012777

1832
1833
183%
1835
1836
1837
1838
1839
1840

00766%
007672
00767%
007676
007700
007706
007712
007714
007716

022777
001402
104001
0QOOM07
ON2777
005777
001401
104001
104006

1842
1843
17%%
1846

007720
007722
007724
007726

000011
010010
000144
007730

1841

1846

}lg:;

1849
1850

1851
1852
1953
1858
1855
18956
1957
1958
1959

007730
007736
007742
00?798
007752
00775%
007756
007760
007766

012777
008037
104005
017737
001402
108011
000764
012777
005077

Q07772
010000
010002
010008
010006

017737
001402
10%011
000765
104006

i966
1867
1968
1869

010010
010012
01001%
010016

000012
010144
000012
010020

1870

18.;;

171656

020000

171650

020000
171630

171634

1876
1876
1877
1878
1879
1880
1881
1882
1883
188%
1885
1886

RT10A:

1§:

28.

MOV

44
BEQ
ERROR
an
8ic
TST
BEQ
ERROR
SCOPE

881713, &SR

#81T13, &SR
19

29
#BIT13, &SR
oCSR
23

SEQ 0038
+SET BIT13.

+TEST THAT BIT13 IS SET
;BRANCH IF SET
;CSR BIT13 FRILED TO SET
;OR AN RDDITIONAL BIT ALSO SET
;CLEAR BIT13
;TEST THAT BIT13 IS CLEAR
;CSR BIT13 FAILED TO CLEAR

11
RT12
100.
RT11A

Rt t

ittt ittt il Rttt p

030167
0C1570

171604

171572

001566

(30167
171550
171544

17i55%

JROUTINE 8 11
;RDDOR OF NEXT ROUTINE
; ITERATION COUNT
;SCOPE ENTRY POINT

XaX41

0t 080¢0¢e0eiTt

4
b{
b{
X

;TEST THAT RESET & CLEAR INSTRUCTION CLEAR ALL R/M BITS
IN THE CONTROL
; STRATUS REG (CSR)

RT11R:

1§:

001566

28:

MOV
cLe
SRESET
nov
8EQ
ERRORY
R
oV
CLR

nov
8EQ
ERRORY
"
SCOPE

$30167. &SR
XNTORY

(SR, RCVORY
18
RT11A
830167, X SR
(SR
(SR, RCVOARY
23

JSET ALL R/U BITS

IN THE CSR

; ISSUE RESEY
sGET CSR CONTENTS
BRRANCH IF RESET CLERRED ALL BITS
ERROR! RESET OID NOT CLEAR ALL BITS
+LOOP ON EPROR
SET ALL RN BITS IN (SR
CLERR THE (SR

;GET & TEST (Sn
560 TO EXIT IF RESWLY =
JERROR! CLEAR INST. DID NOT CLERR ALL BITS
;LOGP ERROR
- SCOPE

; BB E RS RN RN R SRR RRR LR RERR SRR RRRERREL S RERERETLEEI LRI
TLLLLLSSSL

RT12:

000012

005037
013777
017737
023737
001405
310011
032777
001361
0313701
005037
006077
017737

n3
PAGE 38

RT11:

12
713
10.
KT12A

XzX+1

- ERSRRRERRRRR

010020
01002%
010032
010080
010086
010080
010082
010060
010062
010066
(10072
010076

13: 48

: ABRBTRESRRRRRRREL SNSRI NSRS RENRERSLSRRsRs RSB SS
LRSS LIRS ILLLLLLLLL

1872
1874

28-APR-78

00001 t

1860
1861
1862
1863
1864

1865

G20000

30A(1052)

171514
001566
001566

080000

171122

RT12R:
1§:

28:
001566

3s:

CLR
nov
nov
9.4
8EQ
ERROR1
8T
BNE
HoV
CLR
CLR
MoV

4
b
3

RS ARAR AR A SRR ARSI AR SRYRSRERRARASLLLRELLILTILLRELL

;TEST THAT R §INARY COUNT CAN BE LORDED INTO R CLEAR BKCSR
AND THAT
;A BINARY COUNT CAN BE CLEARED.

001570
001570
1?1510
001570

001570
001570
171450
171444

;ROUTINE & 12
-RDOR OF NEXT ROUTINE.
: ITERATION COUNT
i SCOPE ENTRY POINT.

XHTDRY
XNTORT. BKCSR
SBKCSR, RCVORY
XHTORT. RCVDAT
23

BITIY, 3SR
18
XMTDAT, x1
XMTDAT
SBKLSR
BKCSR. RCVDAT

. LOAD BINRRY COUNY INTO BKCSR
GEY BXCSR DATA
. COMPARE DATR LORDED & DRTA RERD BRCK
;QRANCH IF DRTR COMPRRES
;ERROR! DATR DOD NIT COMPARE
:SCOPE LOOP?
s BRANCH IF SCOPE LOOP
¢ SRVE BINRRY COUNT
;CLERR BKCSR AND TEST
; BK{SR CAN BE CLERRED

CZOMADO DM11R LGC TST
MC‘ml
@4 DHAD P11
28-RPR-78 13
1887

1888
1889
189
1891
1892
1893
18%
1895
1896

1897
1898
1899
1900
1901

1902

1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
191%
1915
1916
1917

1,18

010104

104011
032777
001365
010137
023727
001403
005237
000731
104006

0101%¢
0101%
010150
010152

000013
010256
000144
010154

040000

171064

001570
001570

177777

28-APR-78

13.48

BEQ

+BRANCH IF BKCSR CLERRED

BIT
BNE

88171y, @SHR
3%

;SCOPE LOOP?
;BRANCH IF SCOPE LOOP

001405

010106
010110
010116
010120
01012
010132
0101387
0101%0
010142

ERROR1®

4s.

001570

MOV

cne
8EQ
INC

B8R

5%:

SCOPE

RT13:

13
RT14

PAGE 39

%1, XMTDAT

XMTDAT, #-1
5%
XMTOAT

SEQ 0039

~ERROR! BKCSR DID NOT CLEAR

;GET BINARY COUNT

+ALL _NUMBERS BEEN LORDED
;GO TO EXIT
; INCREMENT BINARY COUNT

-REPERY TEST

; SCOPE

: xxnnxxutuunntnnxxnxtntuznununxxx

nunxxnxxnxuxuux

ROUTINE & 13
;ROOR OF MEXT ROUT INE.

100.
RT13R

000013

4
z

; ITERATION COUNT
:SCOPE ENTRY POINT.

b4
4

XzX41
;t!ttttttttltttltttltltlxxttxt!xttlttltltt!txtlltttxtt

lxxtttxxxttxtt!xxx:

010158
010160
010166
010172
010176
010208
010212
010220
010222
01022
010232
010238

010240

012702
017737
004737
010037
013777
017737
023737
001401
108011
032777
001406
005077

013777

1919
1920
1921
:%

0102%
010250
010262
0102658

000753
005302
001382
10%006

192%
1925
1926
1927

010256
010260
010262
0102684

000014
010316
000012
010266

1928

J0A(1052)

010000
171362
003250
001570
001570
171336
001570
040000
171306
002108

; TEST THAT RANDOM NUMBERS CAN BE LORDED INTO
THE BKCSR
RTI13R:
MOV
#10000. x2
;GET RANDON SCOUNTER
18:
nov
BKCSR, PRVCNT
. GET PREVIOUS CONTENTS

002104

1713w2
001566
001566
170750

28.

3s:

171300

§9:

13 1

010266
010278
010300
010302
010310
010312
010318

012777
005037
104005
017737
001401
104011
104006

19%1
19%2

010316
010320

000015
010452

7, JIRNGEN
X0, XNTOAT

nov

XNTOAT, BKCSR

XNTOAT, RCVOAT

nov
8€Q

ERRORY
8IY

8EQ
CLR
nov
e
DEC

NE
SCOPE

;60 GEY A RANDON MUMBER
;GET RANDOM NUMBER

. LORD RANDON MUPBER INTO BKCSR

BKCSR, RCVORT

. GET BKCSR DATA

;BRANCH iF SAME

881714, 3Sun

‘s
KCSR
PRVCNT. 8BKCSR
28
x2

. COMPARE DATA

;ERROR! ORTR NOT THE SAIE

+SCOPE LOOP?

BRANCH IF NO LOOP ON ERROR
;
LORD PREVIOUS CONTENTS
+REPEAT TEST

sORAMCH IF NOT
+ SCOPE

; xunuxnxzzmtuntunntmnmxmunmu

RT1N:

000014

1929
1930
1931
1932
1933
1938
19356
1936
1937
1938
:,’33

JSR
MoV

1%
RT1E
10.
;T;‘Q?
=

RS2

numxuxmxmxxu

+ROUTINE & 1N
+ADDR OF MNEXT ROUTINE.
: ITERATION COUNT
:SCOPE ENTRY POINT.

Attt ettt it

20t R

2
¢
b¢
b¢

ettt ettt ittt rtrerretrreerr

;TEST THRY RESET CLEARS ALL BRERAK STATUS REGISTER B1TS
177777

171252

171240

001566

001570

RTINA:

MOV
CLR

§-1, 3BKCSR
XNTORT

SBK(SR, RCVORT

SRESET

8EQ
ERRORY

1§:
SCOPE
/BERBRRRRLRERRIRNLRRLAIRRXRRRNERLLALLRLLARRALRLARL EXTLXER

RT15:

15
RT16

;ROUTINE & 15
;ADDR OF NEXT ROUTINE

TXIRXRLRNL !!i!ll:

LZOMRDO DM11A LGC TST
mcnt
(ZOMAD. P11
28-RPR-78 13

010322
01032y

28-APR-78

000012
010326
000015

13 48

B
&
PRGE 40

10.
;!‘T;(SF‘I

SEQ 0040
; ITERATION COUNT
;SCOPE ENTRY POINT.

=X+

b¢
4

P !!t!!!ll!l!ltl!t!!t!!lnl!tl!!t!lltttttlt

ttll!t!ttttttt!l!t!t!tt!!!!tt!!

010812
010814
otoni6
010824
010826
010832
0100
010882
010%6
010850

005037
013777
017737
023737

001405
104011

032777
001361
013701
017737
001405
108011

001570
001570
171204
001570

171210
001566
001566

040000

170614

001570
001570
171144
171140

NOV

001566

040000

170556

001570
001570

177000

3s.

. COMPARE DATA
;BRANCH IF DRTA COMPRRES

87
BNE
MoV
CLR

#8174, SUR
1§
XMTORT, %1
XMTORY

; SCOPE LOOP?
-BRANCH IF SCOPE LOOP
;SAVE BINRRY COUNT

001571

L1 ¥

.ERROR! DATA DID NOT COMPARRE

CLR

SBASREG

BEQ

BRANCH (F BKCSR CLERRED

BIT
BNE

BTN, SSHR
33

- SCOPE LOOP?
-BRANCH IF SCOPE LOOP

XMTDRT. 8177000

.ALL MABERS BEEN LORDED

nov

ERROR1

4s.

;GET BASREG DATA

XMTDAT, RCVOAT
23

ERROR1

BASREG, RCVDAT

cHp
BEQ

nov
4,4

8EQ
INCB
BR

SCorPE

OBASREG.RCVYDAT

%1, XMTDAT

5%
XMTORT +1
19

;ERROR! BKCSR DID NOT CLERR

.BET BINARY COUNT

;60 TO EXIY
; INCREMENT BINARY COUNT
;REPERT TEST

- SCOPE

: xnxnntxxnzxunnxnxnxxxnnnuuu
untuxxuxxxnnxnuunxu
RT16:
16
SROUT'NE 8 ‘6
3

010862

RTY?

ADOR OF NEXT ROUTINE.

1J0.

o10%60

;s ITERATION COUNT

’R‘Y’l‘fil‘l
s

s SCOPE ENTRY POINT

X4+

b¢

; xuuunnn:uuuzxuuunxxnutxuuntunxnx

xuzxxxuxxxxxxxxxx

010000
171056
003250

001570
001570

171026
001570

040000

170776
002104

002104

171032
001566
001566

170436

; TEST THAT RANDON MUMBERS (AN BE LORDED INTO THE
BRSE REGISTER
RT16A:
MOV
#10000, x2
<BET RANDOM BCOUNTER

1$:

2%:

nov
JSR

BASREG. PRVCNT
7. JERNGEN

MOV

XNTORT, SBASREG

XNTORT, RCVORT

8ic
Hov

MoV
BEQ

38:

170770

ERROR Y

alr

8ta
CLR

MoV

Ys:

5$:

R
DEC

BNE
SCOPE

£000377.x0
X0. XNTORT

GET PREVIOUS CONTENTS
;G0 GET R RANDOM NUMBER

+CLEAR UNUSED BITS
+ GET _RANDOM NUMBER

. LOAD RANDOM NUMBER INTO BASREG

SBASREG.RCVDAT

. GET BASREG DATA

;BRANCH IF SANE

#8171y, 3SHR

. CONPARE DATA

;ERROR! DATR NOT THE SAME

;SCOPE LOOP?

“$
JBASREG

;BRANCH IF NO LOOP ON ERROR

2%
%2
1%

-REPERT TEST
.
- 10000 NUMBERS BEEN TESTED

PRVCNT, 3BRSREG ; LORD PREVIOUS CONTENTS
+BRANCH IF NOT
- SCOPE

010326
010332
01040
010n6
010364
010356
010360
010366
010370
01037
010800
010808

;TEST THAT A BINARY COUNT CAN BE LORDED INTO
A CLC"® BRSREG AND THRT
;A BINARRY COUNT CAN BE CLEARRED.
RTI6R:
(LR
XNMTDAT
18:
nov
XHTOAT, BBASREG
;LOAD BINFRY COUNT INTO BASREG

1943
194
1945
1946
1947

30A(1052)

(ZDMAD0 DM11A LGC TST
MACY1Y
(ZDMAD P11
28-RPR-78 13 Wy
1999
2000
2001
z2002
2003
2004
2005
2006
2007
2008

010570
010572
010574
010576

28-APR-78

13 48

C
PAGE 41

4
SEQ 00M1

; t!t!l!l!l!!!!X!!t!!l!Xn!!l!!lltltlt!!lttt!!lt

000017
010662
000144
010600
000017

RT17:

l!t!!ll!t!t!!!:tlt!t!!xxtt

17
RT20
100.
;T)l(??

ROUTINE & 17
;ADDR OF NEXT ROUTINE
; ITERRTION COUNT
- SCOPE EMTRY POINT.

=X+

b¢
b¢
1
b¢

; !!!!!ll!!!!!lll!!!!!t!nl!l!!!!tttllll“ll

l!l!t!!!ll!!!ttXt!l!!!!tttlt!l

010600
010604
010612
010616
010620
010622
01062
010626
010630
010632
01063
010636

2009
2010

2011
2012
2013
201%

2015

LR
R
RS

2016
2017
2018
2019
2020
2021

30R(1052)

010640
010644
010660
010652
010654
010660

010662
010664
010666
010670

013701
012777
012700
050011

001544
001400
000001

170736

020011
001006
080011
005711
001011
006300

103370
108006
010037
011137
104011
000771
005037
000771

;TEST THAT ALL BAR BITS CAN BE
RT17R:
MOV
8RR, x1

INDIVIDURLLY SET AND CLERARED
;GET BAR ADORESS

;SET BAR BIT
;TEST THAT ONLY THE PROPER BAR BIT SET
;BRANCH IF ERROR
;CLEAR BAR 81T
;TEST THAT BAR BIT CLEARED
BRANCH IF BAR BIT FAILED TO CLEAR
SHIFT BIT TESTER

28.
39:

001570

001566

4s:

001570

5S:

MOV
HOV

8IS
e
8NE
BiC
TST
BNE
ASL
8CC

SCOPE
nov

"ov

ERROR1
B8R
gkl

:ER;I"&“SREG

%0, (1)
%0. (1)
3%
X0, (1)
(1)
59
%0
19

X0, XnyoAar

(1), RCVORY

2%
flTMT

;INITIRLIZE BRSE REGISTER
;GET BIT TESTER

. SCOPE
;GET WHAT DRATA UAS SUPPOSED TO BE

-6ET WMAT DATA WRS

;ERROR! INPROPER BIT OPERRTION
;60 TO SCoPE
;GET WMAT DRTA WRS SUPPOSED TO BE

; xtux:nx:ntxxn:ut:u:uxummnmm:mt

000020
010750
000012
010672
000020

RT20:

mnmxnnnnxxxxxx

;ROUTINE ¢ 20

721
10.
’!(T%

-ADOR OF MEXT ROUTINE.
; ITERATION COUNT
iSCOPE ENTRY POINT.

X
1

; xnntuzm:tu:tnxuxuuuunmtmutnunm

:mxnnxtnxxxxxx

005037
052777
104005

017737
001402

001570
1272777

170640

170632

001566

: TEST THAT RESET CLEARS ALL BAR 8iTS
RTZ20R:
(LR
XNTDRY
8is
-1, 3R
<SET ALL BAR BITS

001401

108011
104006

000U21
011056
000144
010760
000021

1772277
170610
170604

170614

SRR, RCVORT

L
8IS

28
-1, BAR

| X’]
ERRORY

108011

000812
082777
006077
017737

SRESET
nov

1§

001566

CLR
oV
BEG

ERRORY

SCOPE

AR
JBAR. RCVORT
25

RIS
id Rttt it ittt
RT23:
21

RT22
100.
RT21R

XuX+1

;RESEY
;BET BAR DATA

+BRANCH IF ALL 0'S
-ERROR! RESET DID NOT CLERR RLL BAR BITS

G0 TO EXiY
;SET RLL BT IN THE BAR

;CLERR ALL BITS IN THE BAR
:GET & TEST RESULT OF CLERR OPERRT iON
JEXIT IF ALL B1TS CLERARED

;ERROR! ALL BITS DID NOT CLERR

s SCOPE

bty oy Pyt
et eteteteststteret
‘ROUTINE & 21
X

:RDDR OF NEXT ROUT INE.
s ITERATION ZOUNT
:SCOPE ENTRY POINT.

;!!3131!‘33!3333!3l‘l‘l‘i!lllll!llll“'tl‘l!li!l‘!lllltll!tll

X
X
X

ll!l!!lll!l!

(ZOMRDO DMI1A LGC TST
MACY11
(ZDMAD P11
28-RvR-78 13 44

30A(1052)

28-APR-78

13 48

D
4
PRGE 42

SEQ 0OuzZ

2055
010760
010766

010100
170550
010000

170542

CLRB
ggz

012737
017737
104011
000415
012777
105077
001407
012737
017237
104011
104006

010100
170526

001570
001566

MOV

SRR R PR

PP EEEEREREREEREL

001410

011170
011172

011174
011202
011206

2110

011214
011216
011224

. TEST THAT (SR RESPONDS PROPERLY TO BYTE
COMMANDS
RTZ21RMoV
910100, &CSR
~LORD TEST NUMBER

01272727
105077
Q22777

170554

010100
171052

170512

000100
170472

001570
001566

28.

;CLERR EVEN BYTE
;TEST THAT ONLY EVEN BYTE CLERRCOD

#10100, M1TDAT

. LOAD CORRECT RESULT

HOV

OCSR, RCVDAT

8R
MOV
gléza

23
#10100, &SR
g.’(SR

;GO TO SCOPE
;LORD TEST NUMBER IN (SR
;TEST THAT OMLY ODD BYTE CLEARED

nov
HOV
ERROR1

#00100, X1TORT
o(SR, RCVOAT

;LORD CORRECT RESULT
;LORD ACTUAL RESULT
;ERROR! ODD BYTE INSTRUCTION FAILED

ERROR1

18.

IN (SR

o(SR
:;M.ISR

SCOPE

;BET RCTURL RESULT

ERROR! EVEN BYTE INSTRUCTIOM FRILED

- SCOPE

; RERXRRTALLTALBLLLTXLLLLRL LSS 2283ttt i ed
sttt et t00000000888sd
RT22
22
;ROUTINE 8 22
3

000022
011164
000144
011066
000022

RT23

100.

;ROOR OF NEXT ROUTINE

:SCOPE ENTRY POINT.

- ITERATION COUNT

,R(T;L:‘fll
E

; !t!l!!‘il!tt!l!lt!t!ltu!lll!!flll“‘ll‘tl‘!‘t‘

!ttfll!uttttttttttttt:tt

012777

105077

022777
001410
012737
017737
108011
000N 15
012777
105077
0014C?
012737
017737
10%011
104006

; TEST THAT BAR RESPONDS PROPERLY TO BYTE COMMA
NDS
RT22A:
nmov
#10100. S8AR
LORD TEST NUMBER IN BRR

010100
170444
010000

1708436

CLRD
55"0

8RR
:;omo.m

+CLEAR EVEN BYTE
;TEST THAT ONLY EVEN BYTE CLEARED

010100
1708422

001570
001566

nov
nov

$10100. MTORAT
SBAR, RCVORY

. LOAD CORRECT RESULT
;GET ACTURL RESWLTY

L
nov

29
#10100. @8/

010100
170746
000100
170364

170850

170406

001570
001566

ERRORY

1§:

RT23:

001410
012737
017737

Es:sglti

o. AR

sTEST TMAT ONLY ODD BYTE CLEARED

§00100, MTOAT
SCSR, RCVOART

. LORD CORRECT RESULT
+LORD ACTUAL RESULY

:g’.ut! 0DO BYTE

+ROUTINE & 23

RT2%
100.

INSTRUCTION FRILED

010100
170340
010000

010100
170316

170344

xuunumuxnxnnx

;RDOR OF NEXT ROUTINE.
; ITERATION COUNT

’R(T’z(.!l’l
Rt

022777

nov
nov

+60 Y0 SCOPE
<LOAD TEST NUMBER IN BAR

; xtuumtunuumunuxnuummxmum

000023
011272
00014y
011174
000023

012777
105077

&sl

ERROR! EVEN BYTE INSTRUCTION FRILED

i SCOPE ENTRY POINT.

2
{

Ittt 2o bt ittt ittt he et ti it iutrroerrtetets
ocestaiorn

;TEST THRT BKCSR RESPONDS PROPERLY TO BYTE COMMA
NDS
RT23R:
MOV
#10100. @KCSR
LORD TEST NUMBER (N BKCSR

170332

g?s

CLRB

SOKCSR

001570
001566

MOV

£10100. XMTORT

MoV

’;oooo. @BKCSR

BKCSR, RCYDAT

;CLERR EVEN BYTE

; TEST THAT ONLY EVEN BYTE CLERRED

. LORD CORRECT RESULT

; GET RCTUAL RESWLT

CZDMADO DM11A LGC TST_
MACY11
CZDMAD P11
28-APR-78 13: 4y

2111
2112
2113
211%
2115
2116
2117
2118
2119

011232
01123%
011236
011294
011250
011252
011260
011266
011270

104011
000415
012777
105077
001407
012737
017737
104011
104006

2121
2172
2123
2124

011272
011277
011276
011300

000024
011336
000144
011302

2120

2125

%}%;

2128

2129
2130
2131
2132
2133
2134

213%
2136

2137

2138

2139
2180
2141
2142
2143
%lll;
14
21%6
2147
2148
2189
2150
2151

2152
2153
2158
2155
2156
2157
2158
2159
2160
2161
2162
2163

2164

2165
2166

30A(1052)

010100
170642

170302

000100
170256

001570
001566

28-APR-78

13 Y8

ERROR1
B8R
HOV
CLRB
BEQ
nov
MOV
ERROR1
SCOPE

1§

2%:

£E
u
PRAGE 43

29
#10100, 3BK(SR
®. BKCSR
29
§00100, XMTDAT
#CSR, RCVORT

SEQ 00M3

~ERROR! EVEN BYTE INSTRUCTION FRILED
;GO _To _Scoet
,LOAD TEST NUMBER IN BK(CSR
;TEST THAT ONLY ODD BYTE CLERKED
. LOAD CORRECT RESULT
;LOAD ACTUAL RESULT
;ERROR! ODO BYTE INSTRUCTION FAILED
; SCOPE

, xxnnunxuuunuxuxuuxuununxunxxuxuux

RT24:

00002y

24
RT25
100.
RT24R

;ROUTINE 8 2v
"ADOR OF NEXT ROUTINE.
; ITERATION COUNT
:SCOPE ENTRY POINT.

XzX+1

nnxuxtutxxnx
|
3
3

; xunxunuutunxuuzunuuuxunnu:uznxxu

uuzxnxxxxnxxxx

011302
011310
011316
01132
011330
011332
011334
011336
011380
011342
O113u%

012777
012777
052777
005037
000240
104001

011334
010000
020000
177776

;TCST THAT OVER RUN BIT (CSR B1T13) CAUSES AN INTERRUPT
WMMEN SET

170246
170224
170216

RT24R:

104006

18:

MOV
HovV
8IS
CLR
NOP
ERROR

0818, IXNTINT
81712, A SR
81713, &SR
HIPSH

;LORD TRANSNITTER INTERRUPT VECTOR
-SET TRANSMITTER IE BIT
;SET OVER RUN BIT
;ENRBLE INTERRUPTS
; ERROR !OVERRUN FRILED TO CAUSE AN

; INTERRUPT,.OR INTERRUPTED TO |NCOR-RECT RDDRESS

SCOPE

; SCOPE

; nut:nuunu:xunazznnunmwuuunnnnnxxxxxx

000025
011444
000100
011346
000025

RT25:

xxtxxxxxn

28
JROUTINE & 28
RT26
RDOR OF NEXT ROUTINE
100
: ITERATION COUNT
RT25R
/SCOPE ENTRY POINT
XzX+1
; xnxuuuuuu:xnnauuuuuu:munxmuxxxxnx:nx
xxnx

4
4

xxxxxx

011346
011358
011362
011370
011376

012737
012777
012777
012737
000240

0003%0
011808
030000
000200

177776
170174
170152
177776

;TEST THAT THE OMi1 INTERRUPYS AT THE CORRECT LEVEL
RT25R:
MOV
PRTY?, BPSU
nov
818, SXNTINT
;LORD TRANSMITTER INTERRUPT VECTOR
nov
#30000. (SR
;SET QVER RUN L IE BITS
MoV
SPRTYY, 3P SU
/ALLOM INTERRUPTS ON LEVEL 5 & RBOVE
NOP

011500
011502
011808
011806
011818
011822
011426
011838
011436
01190

104001
000N17
022626
013737
012777
008077
012777
000240
000401
10%001

011442

104006

38:

000026
011462

RT26:

0O1i4s%
011446

001560
011440
170114
030000

177776
17013y

1§

170106
29:

RIS

ERROR
R
Cnp
nov
HOV
CLR
MOV
NOP
8R
ERROR
SCOPE

3%
(6)+, (b)+
XMTLVL. 0P SH
825, AXNTINT
o(SR
#30000. aCSR
3%

23S0t e et R il
26
RT27

;ERROR!OM11 FRILED TO INTERRUPT
+G0 TO EXiY
;RESET STRCK POINTER
;LORD DM11 INTERRUPT LEVEL
;LORD TRANSMITTER INTERRUPT VECTOR

;60 TO EXIY
;ERROR! DM11 INTERRUPTEDL ON HIGHER
;PRIORITY LEVEL THAN SET FOR

Pttty tryyes itttottotsettrrestestiiiiii
;ROUTINE & 26
: ADDRESS OF NEXT TEST.

X
X

—

CZDMADO DM11R LGC TST
MACY11
CZOMAD. P11
28-RPR-78 13: 4y

2167
2168
2169
2170
2171
2172
2173
217y
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193

011450
011452

30R(1052)

28-APR-78

000144
011454
000026

13.48

F
oy
PRGE 4y

100.

kTiI?
4

——

; ITERATION COUNT

—

;SCOPE ENTRY POINT

,!!!l!!!!l!tl!!!l!t!!!!!!!lt!!lt!l!tll!!tt!!l

011454
011460
011462
011464
011466
011470

011472
011476

011500
011502
01150
011506

011510
011514

011516
011520
011522
011524

008537
000000
000001

oo%e22

;GO TEST TRANSMITTER LINE O

RT30

-RDDRESS OF MNEXT TEST.

kTiT}

;SCOPE ENTRY POINT

100.

=X+

004622

; ITERATION COUNT

;X!!Xtt!!!!tl!t!ltt!ll!!lt!!t!1!!!X!l!!l!l!!t
l!l!ll!l!!t!tt!t!l!!lX!t!tt!
;TRANSMITTER LINE TEST LINE 1
LTST!-JSE'Nn
&, XNTTST
/GO TEST TRANSMITTER LINE 1

Y=Y+1

;!!t!t3!8!!!!!!!!‘3!!3!!1!!1!1!t!!tlt!lttltl!

000030
011516
00014y
011510
000030
004537
000004
000003

!!tlltl!t!l!!t!ti!tl!!!!tt!t

Y=Y+1
PR 28333 3008483 !!!l!‘l!ln!!l!‘3!‘!!!‘133
3333333!!"3!313!3!33!3!3!!‘!3‘!3
RT27:
2?
;ROUTINE 8 27
b{

000027
C11500
000144
011422
000027

onNus3?
000002
000002

;TRANSMITTER LINE TEST LINE O
LTSTO:JstNEO
8, XNTTST

RT30:

30
RT3
100.
LTST2

!l!t!l!ttlt!!!x!t!lt!!t!xt!t

;ROUTINE & 30
- RDORESS OF NEXT TEST.
; ITERATION COUNT
;SCOPE ENTRY POINT

¢
¢
b¢
¢

XzX+1
;28!!l!!l!!33!!lll!!lltl!!!lllt!tll!tlllt!tll

004622

; TRANSHITTER LINE TEST LINE 2
LTSTZ:JSE'NEZ
8, XNTTST

!!tlttlltlltt!t!lt!!t!tttttt

60 TEST TRANSMHITTER LINE 2

YzY44
;l!l!ttt‘ll!flttlt!tltllltl8!38!!!!!!!8!31!3!33llt

000031
011534
000144
011526
000031

RT31:

t!ttttttt!tttt!xxt!txttt

31
RY32

ROUTINE 8 31
;ADDRESS OF MNEXT TEST.

ktizf

:SCOPE ENTRY POINT

100.
t4

b¢
¢

: ITERRTION COUNT

b{
|

;ttt!!ltl!lt!tlll!t!!l!ltllll813!383!!!8!!!83!!!3!

011526
011532
011534
011536
011540
011542

008537
000006
000004

004622

; TRANSHITTER LIMNE TESY LINE 3
LTSTJ:JSt'NEJ
8, XNTTST

!!‘lttt!tt!t!!ttttxtt!!

G0 TEST TRANSMITTER LINE 3

YaY44

:!!t!tt!!l!tll!tl!!t!l!ltt!t!lll!lltllltttll!!tt!!l!tt
t!tx!!!lltt!tt!t!xx
RT32:
32
ROUTINE 8 32
b¢

000032
011552
000144
011544
000032

RT3
100.

§T§T¥
s

X+

-RDORESS OF NEXT TEST
s ITERATION COUNT

b¢
b¢

;SCOPE ENTRY POINT

b¢

;8tlt!l!!tltllll!ll!l!!llt!!!!!!!t!!!!!ttt!tlltlt!lll!

011544
011550

011552
011554
011556

004537
000010

000033
011570
00014y

Co4622

;TRANSMITTER LINE TEST LINE &
LTSTU:JS:'NE“
B, XMTTST

lt!!tt!tl!tlxxxlxxt

-G0 TEST TRANSHITTER LINE &

YzY+1
;tt!!!!!‘!!ltl!t!l!l!t!!l!!tlltt!!ll!t!!t!llt!!tlltlllttl!!!
!!tl!ltt!lX!X
RT33:
33
+ROUTINE & 33
X

RT3y
100.

+RODRESS OF NEXT TEST.
; ITERATION COUNT

b¢
¢

CZOMRDO DM11R LGC TST
MACYit
(ZDMAD . P11
28-RPR-78 13: 4y

2223
2224
2225
2226
2227
2228

011560

011562
011566

2229
2230
2231
2232
2233

SERERRRRR L RHBHR
2257

2259

2261

iR 3

2271
2272
2273

2276

004537
000012
000006

000034
011606
000144
011600
000034

011600
011608

004537
00001%
000007

011616
011622

011624
011626
011630
011632

28-APR-78

011562
000033

011570
011572
011574
011576

011606
011610
011612
0t1614

30A(1052)

Gy
PAGE 45

kTgT?

004622

SEG 0045
;SCOPE ENTRY POINT

=X+

;!!!l!!tl!t!l!!!ll!l!!!!!!!Xl!!!!X!l!!!l!l!l!
!!!tt!t!!!t!!Xlt!!ttltt!t!t!
;TRANSMITTER LINE TEST LINE 5
LTSTS: JSR
5, XMTTST
GO TEST TRANSMITTER LINE &
=Y+

,!lt!!!!tl!t!!!t!!!!!!!!!!ltltlt!!!!!!t!l!8!!

!!3!!!!1!!!3!3!!!!!!!Xltttlt

RT3y

004622

34
;ROUTINE 8 3y
b¢
RT35
;ADDRCSS OF NEXT TEST
b4
100.
; ITERATION COUNT
b¢
LTSTe
;SCOPE ENTRY POINT
b¢
Xz X+1
;xtxtxxtxtxxxxx::xxxzxxxxxxtttxttxxxxtxxxztxxxtxxx
xzxxxtxxxxxxxxxxxxxxxxx
;TRANSMITTER LINE TEST LINE &
LTST6: JSR
5, XMTTST
.GO TEST TRANSMITTER LINE &
=Y¢

;xxxttxttttxxxxxtt:xxtxxxx:xxxxxt::ttxxx:xxz:

000035
011624
000144
011616
000035
004537
000016
000010

13 48

RY3S:

xxtxxxxxxxxxxxzxxxxxxxxxxxxx

JROUTINE 8 35

RT136

100.
LYSY?

004622

. RDORESS OF NEXT TEST

b¢

;I TERARTION COUNT
: SCOPE ENTRY POINT

b¢
|

XzX+1
:333!23!3!3‘3!3!3!!31!!!!!Xlll!!tl!ltltt!ltl!!lltt!!tt
!!l!lt!t!tt!!!!txtx
;TRANSHITTER LINE TEST LINE 7

LYST?:. JSR

Yavs1

S, XMTTST

GO TEST TRANSMITTER LINE ?

zY41

;xxtzt:ttxt:xxx:xxxxx:txxxxtxxttttxtxxxx:xxxxx:xxxxxtx

000636
011642
000144
011634
000036

RT36.

36
RTI?
100.
§T§T}0

xxxzxxxxxxxxxxxxxxz

+ROUTINE & 36
-RDORESS OF MNEXT TEST
s ITERATION COUNT
+SCOPE ENTRY POINT

b4
b¢
b
4

:l!ttl!tlt!tl!ll!ltlt!!ll!lt!t!ttttt!llltttlllttttll!l

011634
011640

011642
011644

011646
011650

011652
011656

011660
011662
011664
011666

004537
000020
000011

004622

000040
011676
000144
011670

tttt!tttttt!ttltxxx

;60 TEST TRANSMITTER LINE 10

zYé

;tt!xx!!tttttlt!!llttlttttttttttttt!llttlt!ttt3ttttltt
txttlttxtttx!xxxxtx
RT37:
37
;ROUTINE & 3?7
4
RT%0
- RDDRESS OF NEXT TEST.
b¢
100.
s ITERATION COUNY
|

000037
011660
000144
011652
000037

004537
000022
000012

;TRANSHITTER LINE TEST LINE 10
LTST10: JSR
5. XNTISY

LYST1

004622

:SCOPE ENTRY POINT

X=X+1
;!!tttlt!ltttltxx!lxlttltxtt!!ttttxlt!xtxttt!ttttlxttt
ttltxxttxttttxxxxxx
;TRANSMITTER LINE TEST LINE 11

LTST!l:Jf’NE,i

B, XMTTST

;GO TEST TRANSMITTER LINE 11

YzY+1
;tttxxtxxxxt:xtxxxz:x:xtxtxxxxxtt!ttttttt:tt:xttt:tt:ttttxxx

RTM4O:

RT41
100.
LTST12

+ROUTINE & 4O

:RDDRESS OF NEXT TEST
. ITERRTION COUNT

- SCOPE ENTRY POINT

xxxxxxxxxxxxx

1
X
X

CZDMRDO DM11R LGC TST
HACY11
(ZDMAD P11
28-APR-78 13: 4y

22?79
2280
2281
2282
2283
2284

000040
011670
01167y

T
R

2285
2286
011676
2287
011700
2288 011702
2289 011704
2290
2291
2292
2293
011706
2%
0117212
2295
22%
229? 011214
2298
011716
2299 011720
2300
011722
2301
2302
2303
2304
011724
2305
011730
2306
2307
2308 011732

01173

011736
011740

004622

28-APR-78

PRGE 46

SEQ 0046

X=X+1
; !t!!llillltttt!!!ll!!!u!!t!l!!!l!l!!!!!l!!l!l
!!ll!lt!t!l!!!!t!ttll!l!!l
;TRANSMITTER LINE TEST LINE 12
LTST1Z: JSR
5, XNTTST
;GO TEST TRANSMITTER LINE 12

000013

=Y+

; Xt!t!tl!t!!t!l!!!tt!!!fll!!!!!!!!!!!l!t!!lttt

000041
011714
000144
011706
000041

004537
000026
000014

13:48

RTu41:

RTH2
100.
kTiT}J
s

004622

;ROUTINE & M1

l!l!tt!lttlltttttttt!t!ttt!

;RDDRESS OF NEXT TEST.
;s ITERARTION COUNT
.SCOPE ENTRY POINT

¢
b¢
4

; l!!t!ttt!lt!lt!l!!!!8lfl!!lt!!l!lll!tl!‘lttl!
!tt!t!tt!!t!!t!t!!tt!tt!t!!
;TRANSMITTER LINE TEST LINE 13

LTST13: JSR

5, XMTTST

;G0 TEST TRANSMITTER LINE 13

; xxxnxxnnnxxznnnnxxnuunnnxxnunxut
xxxxnxxxnuxxxxxxxu
RT42:
42
JROUTINE 8§ %2
b¢

00004
2
011732
000144
011724
000042

RT43

;RDORESS OF MNEXT TEST.

;.‘T’S(T}li

:SCOPE ENTRY POINT

b¢

100.

s ITERATION COUNT

b¢

; t!llllu!llll!tttllll!ull!ll!ulttltl”!t”!!tttl

004537
000030
000015

004622

;TRANSMITTER LINE TEST LINE 1y
LTST1N: JSR
8. XNTTST

Ye¥er

!lttttt!tt!!thl!tlttx

+60 TEST TRANSMITTER LINE 14

; tuunnuuuunxxxntuuxnnununxxnxunxx
nx:xnnxtxxnxxxx
RTH3:
43
sROUTINE 8 43
§

00004
3
011750
00014y
011742
00004
3

RT4Y

-RDDRESS OF NEXT TEST

}(T’S‘I;S

:SCOPE ENTRY POINT

100.

s ITERATION COUNT

; xtxu:unxuxu:mxuzzuutnnunnxnunxux

011742
011746

011750
011752
011754
011756

011760
0117¢¥

2331
2332
2333
233

008537
000024

30A(1052)

011766
011770
011772
011774

004537
000032
000016

004622

20003y

+GO0 TEST TRANSMITTER LINE 15

RTGN:

b o)
RT4S

ROUTINE & W
;RODRESS OF NEXT TEST.

;.‘T’S‘Y}S

+SCOPE ENTRY POINT

100,
s

004622

nuuuxxxnxxx

: ITERATION COUNT

b{
|

b¢

FBRER R R
RN R IR RN R RSB R R B AR LSRN RRAR ALRRRSSLLTLATILRERAA
TLLLLLRNL
;TRANSMITTER LINE TEST LINE 16

LTSTi6: JSR

000017

000045
012004
000144
011776
000045

xxxuunxuuxxnxn

; unxmnuuuunxxuunxuuntnnxuxuuunxxu

0000M4
011766
000144
011760
000044
004537

;TRANSHITTER LINE TEST LINE 15
LTST1S: JSe
8, XNTTSTY

8, XNTTSY

;60 TEST TRANSMITTER LINE 16

; ttxxunnxuutuuuut:mxnuxuznuuuxuxnxxnxnxnx

RT4S:

;ROUTINE & N6

100.

ITERATION COUNT

RT46

,L‘T’S‘TV
z

- RDORESS OF NEXT TEST.

+SCOPE ENTRY POINT

xnxxxxnx

b§

(ZDMRDOC DM11A LGC TST
MACY11
CZDMRD. P11
28-APR-78 13: 4y

2335
2336

2337
2338

2339

011776
012002

230

23427
2348
2349

2350
2351

2352
2353

2354
2355
2356
2357

2358
2359
2360

2361
2362

2363
2364

2365
2366
2367

2368

2369
2370
2371
2372
2373

2374
2375
2376
2377
2378
2379

2380
2381
2382
2383
2384

2385
2186
2387
2388
2389
2390

28-APR-78

004622

LTST1?7. JSR
LINEL?

000020

012014
012020

012022
01202%
012026
012030

012032
012036

012040
012042
01204%
012046

012050
012054

012056
012060
012062
012064

012066
012072
01207«
012076
012100
012102

005034

RCVO:

RT4?:

5. RCVTST

;G0 TEST RECEIVER LINE O

4?7
RT50
100.
RCVY

!tlt!!tt!!!!t!l!

ROUTINE 8 &2
;RDORESS OF NEXT TEST
I TERATION COUNT
-SCOPE ENTRY POINT

b¢
3
b¢
|

XzX+1
; nuunuunxlunuuxnxnxunuutnxxnnxtxxxxnnxnxt
uxxxxxxx
;RECEIVER LINE TEST LINE 1

005034

RCV1:

000002

JSR
LINEL

5. RCVTST

;60 TEST RECEIVER LINE

YxY41
; unnunnunxxunnuxnnxunuuuunuunx:nxxxxx

000050
012056
000144

RT50.

012050

50
RS54
100.

005034

000303

xnxxxxnn

SROUTINE & 80
- RODRESS OF MNEXT TEST
- ITERATION COUNT

RCV2

000050

b¢
|
2

; SCOPE ENTRY POINT

XzX41
; nxtutuxuunnununnnu:nunuun:uxuxxxnunxxtxu
xxxxn
JRECEIVER LINE TEST LINE 2

RCV2:

JSR
LINE2

§. RCVTST

;60 TEST RECEIVER LINE 2

YxY+1
; xnxtuxnuxuuxnnuunxxuxuutu:nnxnxnxnxxxtnx

000051
012074
00014y
012066

RTS51:

000051

000052
012112
000144
012104

JSR
L INEO

Y2Y+1
; !l!l!!!l!!t!tttt!!tt!tu!!!l!lltl!ttlttl!!tttt!tttttl!!t

00004 ?

000004

XzX+1
; l!t!lt!ll!tl!l"lllll!t!tlll!tt!!ltlt!l!lt!lt!l!tttt!!t!
tXt!!t“!!tt!!!!
:RECEIVER LINE TEST LINE O

0C0OM7
012040
00014y
012032

OO04E3?
000006

;GO TEST TRANSMITTER LINE

A=0

000001

004537
000004

5, XNTTST

, !!t!!tt!tt!!!!"!tfl!!t!llxtltttt!t!l1“!tl!l!!l!t!t
tlt!!!!tt!ttlttttttt
RT46:
46
;ROUTINE & u4b
2
RTY7
s RDDRESS OF NEXT TEST
32
100.
; ITERRTION COUNT
3
RCVO
:SCOPE ENTRY POINT
b¢

000046

004537
000002

SEQ 0047

Y=Y+l

000046
012022
000144
012014

004537
000000

I
4
PRGE 47

Y=0

000000
012004
012006
012010
012012

13 48

. xtxnxu:nxxnxxnnxunxnunxxxuuxxuuxxxxu
unxxxxxnxxnxxxu
- TRANSHITTER LINE TEST LINE 17

000000

2341

232
ZM3
23wy
25
2346

004537
000036

30R(1052)

005034

51
RT752
100.
RCY3

ROUTINE & S1
+RDDRESS OF NEXT TEST
s ITERRTION COUNT
:SCOPE ENTRY POINT

XzX41
B
iii et a2 ittt it ite -t et il ot e ettt e et
;RECEIVER LINE TEST LINE 3

RCV3:

PR3 2

RT52:

JSR
LINED

5. RCVTST

YzYel
205120ttt iR et
52
RT53
100
RCVY

xxxxxxxnn

et eter el

X
4
X

/G0 TEST RECEIVER LiINE 3

teord eyt et eyt ie iyt ntortetttstertritiiiiii
;ROUTINE & 82
- RDDRESS OF NEXT TEST
: ITERRTION COUNT
+SCOPE ENTRY POINT

b
X
X
{

(ZOMAD0 DM11A LGC TST
HACY11
(ZDMRD. P11
28-RPR-78 13. 44

2391
000052
2392
2393
23%
012104
004537
005034
2395
012110
000010
239
000005
2397
2398 012112 000053
2399 012114
012130
2400 012116 000144
2401
012120
012122
2402
000053
2403
2404
2405
012122
004537 005034
2406
012126 000012
2407
000006
2408
2409
012130
000054
2410
012132 012146
2411
01213
000144
2412
012136
012140
2413
000054
2414
2415
2416
012140
004537
00503y
TM17
012144
000014
2418
000007
2419
2420
012146
000055
2421
012150 012164
2n22 012152
000144
2423 012154
012156
242%
000055
2425
2426
M2? 012156 004537
005034
N28 012162 000016
2429
000010

012164
012166
012170
012172

012174
012200
012202

012204
012206
012210

28-APR-78

J
4
PRGE 48

SEQ ULy,

X=Xe1
,33!!‘3!!!3!1!!!tt!ll!!lfi!!!!lt!l!ll!!l!!!!l
!lt!tl!thXX!!X!XZX!!X!“X!:!
+RECEIVER LINE TEST LINE 4

RCVN:

JSR

5, RCVTST

,GO TEST RECEIVER LINE 4

=Y+

;xxxxxxxzt:xxxxxxxxxxx:xxxxxxxxxxxxxxtt:xxxx:

RTS3:

xxxxxxxxxxxxxxxxxxxxxxxxxxxx

53
RTSY
100.
RCVS
XzX+1

+ROUTINE & 53
;RDDRESS OF NEXT TEST
+ I TERAT{ON COUNT
:SCOPE ENTRY POINT

b¢
b¢
b¢
b¢

;!!t!!!!t!l!!l!!!!i!t!!l!!l!!!!ll!!!l!ltttl!!
lllttttll!xlttttttt!ttt!xttt
;RECEIVER LINE TEST LINE 5

RCVS:

JSR

5, RCVTST

GO TEST RECEIVER LINE S

=Y+

;!tttl!l!l!ttl!t!ltt!t!!!!l!l!tlttlltlttflltllltt!

RTSY:

!!ltt!l!ttlttl!t!!t!!xxx

;ROUTINE 8 5

RTS8
100.
RCVS

b¢

-ADORESS OF NEXT TEST
s ITERATION COUMT
SCOPE ENTRY POINT

b¢
4
|

XzX+1
;!lt!ttiti!!lt!!tlt!!t!l!!!l!llt!llt!l!lttttl

;RECEIVER LINE TEST LINE &
RCV6:
JSR
5, RCVTIST

(et

lt!ttlt!ttttt!!t!tt!ttt!ttt!

G0 TEST RECEIVER LINE &

=Y¢

;tttt!lt!!tltlltt!tltlt!!lttt!t!llttttttltltt

RTS5:;

tlttt!ttlttxxttx!xxtxxxxxxxx

+ROUTINE & 55§

756
100.

b¢

-ADDRESS OF MEXT TEST
ITERATION COUNT

RCVY?

:SCOPE ENTRY POINT

1
b}

XzX+1
;!ll!llt!llltt!!t!!ttlt!ltl!!l‘ltllttlltlltllltlllttlt
lt!tltxttl!t!lttt!x
+RECEIVER LINE TEST LINE ?

RCV?Z:

JSR

5, RCVTST

;60 VESY RECCIVER LINE 7

zY+4

R156:

SROUTINE 8 56

RYS?
100.
g(;l?
=

005034

tl!!lt!tttttttttxtttt!t!txxtx

+ADDRESS OF NEXT TEST
; ITERRTION COUNT
- SCOPE ENTRY POINT

RS it it it e e dtss 2
ed0Rttet et er
;RECEIVER LIME YEST LINE 10

RCV10:

000011

000057
012220
000144
012212
000057

13 48

;tt!tt!t!tl!tttlfll!lti!!!Itltlttlt!t!lltlltt

000056
012202
000144
012174
000056

004537
000020

30A(1052)

JSR

6. RCVTST

¢
b|
¢

i il orroreetetetcsereery

;GO TEST RECEIVER LINE 10

;tlt!!!ltt!tl!tt&tlttt!ttllt!tlxxtttll!t!ttlltttlttttltlt!!t

RYS7?:

ROUTINE & &7

100.
§C:l}

» ITERATION COUNT
» SCOPE ENTRY POINT

RT60
=X+

. RDDRESS OF NEXT TESY

ttll!ltlxtttt

|
|

|
{

CZOMADO DM11A LGC TST
MACY11
CZDMAD .P11
28-RAPR-78 13: 4y

30R(1052)

2447

2448
2449

2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2961
2462

012212
012216
012220

012222

01222
012226

012230
012234
012236
012240
012242
0122v%

012246
012252

012254
012256

012260
012262

004537
000022
000012

005034

K
y
PRAGE 49

SEQ 0049

-4

, !t!l!!!ltlt!!!8!!X!!!tutlt!t!l!!lt!ll!lt

RT60:

l!!!!!!tl!l!t!t!ilt!!tt!!t!!!!!

60
RT61

ROUTINE 8 60
; RDDRESS OF MNEXT TEST

100.

4
b4

;ITERRTION COUNT

RCVI2
,SCOPE ENTRY POINT
b4
XxX+1
; llllttu!ll!ltl!!lt!!!n!!!l!tlt!llllllltt!t!!!
!!!tltl!ll!l!lttttlt!!t!!
;RECEIVER LINE TEST LINE 12
RCV12:
JSR
B, RCVTYST
GO TEST RECEIVER LINE 12

005034

;l!!!l!!lllt!tll!!!!!!t!!tlll!tl!ttttltl!tttt!lt!tt!t!
ttl!xtttxttttttxxtx
RT61:
61
ROUTINE 8 61
b¢

000061
012254
000144
0122%6
000061

008537
000026
000014

13.48

. !lttlltl!l!l!!!!!l!l!!ultltlll!!l!t!l!!!!!l!!
l!tt!t!!l!tt!l!tt!tl!llt!t
(RECEIVER LINE TEST LINE 11
RCV1I1:
JSR
S, RCVTST
GO TEST RECEIVER LINE 11

000060
012236
000144
012230
000060
004537
000024
00001 3

28-RAPR-78

RT62

;AODRESS OF MEXT TEST

100.

- ITERRTION COUNMT

;cxtg

. SCOPE ENTRY POINT

; t!ll!!lltt!‘ltt!!ltll!ltlll!t!tlltttlt!fi!!”ll!tl!!ttt
utltt!t!ttt!ttttt
;RECEIVER LINE TESY LINE 13
RCVLIY:
JSk
5. RCVTSY
<60 TEST RECEIVER LINE 13

005034

; xnxunuuunuu::nuuuuuxumnnunx:x:xu

000062
012272

RT62:

000144

RT63

+RDORESS OF NEXY TEST

100.

012264
000062

nxxnxtxxxxxxxxx

:ROUTINE 8 62

;' TERRTION COUNT

,l‘(’v‘fl‘l

b¢

s SCOPE ENTRY POINT

sX¢

; ttxxnutmnn:uxuanuuunutmxmnm

012264
012270
012272
012274
012276
012300

008537
000030
000015

005034

;RECEIVER LINE TEST LiNE 1M
RCVIN:
JSR
S. RCVTST

Vevsd

: SERRR R

000063
012310

RT63:

000144
012302
000063

100.

012310
012312
012314

012316

004537
000032
000016

000064
012326
000144
012320
000064

00503y

R LR RERRREE AR ILASRLANLLLLTLL AL

ROUTINE 8 63
<RODRESS OF NEXT TEST

3
4

i SCOPE ENTRY POINT

s ITERRTION COUNT

]

s dat ittt

<60 TEST RECEIVER LINE 1%

R SRS TN SRR RN R RR

g(gl?
Bi ed

012302
012306

LR R AR

63
RTEN

uumxxnxxnxuxnxx

i tie 2t iea et net ettty b

;RECEIVER LINE TESY LINE 15
RCVIS:
JSR
B, RCVTST

ettt attritttreiiiii

;GO TEST RECEIVER LINE 15

RIS

RT6M:

R 2Rt SRR 20 it Rttt Rl

RT65

100.

;C;fi?
2

222ttt

e e ettt et et ettty th

ettt

et etettteireiiii

- ADDRESS OF NEXY TEST

:SCOPE ENTRY POINT

;ROUTINE & 64

- ITERATION COUNT

Rit0eet ettt ettt ettt irtitesetstetetttstsersiiim

CZDMADO OM11A LGC TST
MACY11
CZOMRD. P11
28-RPR-78 13: 4y

2503
2504
2505
2506

012320
012324

250
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518

012326
012330
012332

012334

012336
012342

0123wy
01236

012350
012352
012354

004537
00003y
00001?

30A(1052)

13 48

LY
PAGE 50

+RECEIVER LINE TEST LINE 16
RCVi6:
JSR
5. RCVTST

00503y

{ess

SEQ 0050

+GO TEST RECEIVER LINE

=Y+

P nxxxu:uxxxnuuxtxuxxxxxuuxxxtnxxx

000065
012346

RT65:

000144
012336
000065

004537
000036
000020
000240

28-RPR-78

nxnnnxxunxxxxxxxxnxxxxx

65
RT66

;ROUTINE # 65
;ADDRESS OF NEXT TEST

b¢
¢

RCV1?

- SCOPE ENTRY POINT

100.

; ITERATION COUNT

XzX+1
;xttxxxxxtxxxxtxxxxxt:xt:xxttxx:xttttxxxxx:tt

;RECEIVER LINE TEST LINE 17
RCV1?:
JSe
8. RCVTSY
LINEY1?

00503y

t:xxtt:xxxxxxxzxx:xxxxxxxxxx

;GO0 TESY RECEIVER LINE

; xtnxtnxunnnxnxxnxxuunnuuunuuu:ux

000066
012606

RT66:

000012
012362
000066

xxuxxxxzxnxxxxxxxx

66
RT6?

JROUTINE 8 66
;RODR OF NEXT ROUT INE.

b¢
b4

:T:&l‘l

sSCOPE ENTRY POINT.

b¢

10.

;ITERATION COUNT

; xun:tunxxxtnnxnntnxnxutnttuuunus

uxxxnnunxxxxxnxxx

012356
012360

NOP
NOP

004737

004216

012701

001400
160000
000020

s TEST THAT NEX BIT (CSR BIT 14) SETS WHEN
THE TRANSMITTER REFERENCES
-NON-EXISTRANT MEMORY, THE CORRESPOMDING
BAR 81T CLEARS
;AND THAT AN INTERRUPT OCCURS. RALL LINES ARE
USED FOR THE TEST

RTGHR:

000001
012552

g 989233928889

EERRRBRURYRERRYRRO
AR AARY

012362

000240
000240

167134
167112

000060
167110
004370

01244y

167072

001566

7. TINER

MOV
MOV
"V
MOV
DEC

BLATX1
,
§160000.%2
#16..X3
X2.(1)¢
13

BNE
MOV
MOV
BIS
BIS

nov
DELRY
OPEN
MOV

BAR.RCVORT

CLR

XMTOAT

CLR
1]

8RR
78

167042

WS:

BNE

1]
BIC

78
MBITIE.CSR

BIT

ERROR

100000

TIMEIN, 38

ERRORY

167054

010000

1%
ELBITO.
X1
86S.3XNTINT
860,3CSR
Xxi, aBAR

BEQ

001570

040000

ISR

167026
167020

S§:

BIS

EBITIN.&CSR

#BITI2, 3SR

;60 CRLCULATE MACINE TIME TO TRANSM!IT
:ONE CHARACTER
:GET CAT RDORESS
;GET A MON-EXISTRNT RDORESS
;6ET COUNTER
;LORD THE CURRENT RODRESS

:TRBLE MITH NON-EXISTANT
; ADDRESSES
SGET LINE 81T
.LORD TRAWSMITTER INT. VECTOR
;SET EXTEMDED RDORESS B1TS
:STRRT TRANSMITTER

;LORD DELRY TIiME TO
;DELRY FOR 1/4TH OF R CHARACTER

:TO RESPOND TO NEX
/GET BAR DATR & TEST

STHRT IT IS CLEAR

;ERRORIBAR BIT DID NOT CLEAR

_
;60 TO_SCOPE

:TEST THAT NEX BIT

BRANCH IF SET

IS SET

;ERROR! NEX 81T FRILED TO SET

:60_TO SCOPE
S CLEAR TRANSMITTER READY FLAG

SET TRANSMITTER IE BIT

(ZOMAD0 DM11R LGC

(ZDMAD .P11

2559
2560
2561
2562
2563
256M
Z565
2566
2567

012522
012526
012530
012536
012542
012546

005037
000240
012737
010137
005037
108011

177?276

28-RPR-78 13: 4y

000340

001570
001566

EES3R pEaloaiy

BBnE F8FoopRS

o
-1
o000

012726

166764
000340

004366

30R(1052)

177776

28-APR-78

13 48

S«L)g

olPSU

MOV

$PRTY?7. #PSU

MoV
CLR
ERROR1
68:

177776

012602

PAGE 51

CLR
Hov

X1, XMTDAT
RCVDAY

7§.

8s:

OPEN

DELRAY

+LOCK OUT

INTERRUPTS

+LORD LINE THAT FAILED
+ERROR!' NEX FRILED TO CAUSE INTERRUPT

;TYPEOUT SHOMS LINE 8 THRT FRILED
.60 70 SCOPE

(6)+, (6)+
X1
29
TINEL. 88

;LOCK OUT INTERRUPTS
RDJUST STACK PTR
;SHIFT LINE BIT
-DO NEXT LINE
HARIT FOR TRANSMITTER TO RUN

o(SR
$PRTY?7, HMPSH

4,4
ASL
BCC
MoV

SEQ 0051

~ALLOW INTERRUPTS

;70 COMPLETION BEFORE

JEXITING TEST

SCOPE

. SCOPE

RTY?0

;RDOR OF MNEXT ROUT INE

; ‘3“!‘!333!‘!!!!!3!1!lnlltt!lull””n“mt‘!l
!llll 0283000800880 6883¢
RY6?:
6?
;ROUTINE 8 62
b¢

10.
;T:?fi:

;I TERATION COUMY
:SCOPE ENTRY POINT.

z=X¢

b¢

4
b¢

. xxtu:xxuuunxunnnxuuuunuuzmzmum

83399y

nxnu:xuutxxxxx

=000

EEEERIEREETIROSTRA
IR R RO n Ry
E LN
- O

MACY11

000%10
005077

2568
2569
2570
2571
2522
2573
257y
2575
2576
2577
2578
2579

RERRY

TST

160000
012706

16672%
00000M

004370
000001

012654
166672

160000

166662

040060

;TEST THAT NEX BIT SETS If THE DMI1 TABLES ARE
IN MON-EXISTANT CORE
RT6?R:
MOV
#160000. BASREG . SET BASE REGISTER TO MON=EXiSTA
NT RODRS
MoV
198, MEMVEC
sSET TIME QUY TRAP VECTOR

TST

98 160000

nov
8is

18
166652

DELAY

OPEN

cLR

TIMELS. 18
eLBITO, AR

SBAR

000006

012708
000004

28.

38:
4§

sDELRY 1/4TH OF R CHARRCTER

STHE

;STOP TRANSNITTER

ngHéw.O(Sl

<TEST THAT ONLY NEX 1S SET

nov

TINEL, 38

;OR OTHER 8ITS SEY
;DELAY 1 CHARRCTER TINE TO RLLOM

;?&t

BERRVE(42. JNERRVEC

ERROR
004366

;CHECK THAT RDORESS TIMES OUT

GEV TIME TO TRAMSMIT 1/4 CHAR
;STRRY TO TRANSMIT ON LINE O

OELRY
OPEN

;ERROR! E1THER NEX FALED TO SET

s TRANSHITTER TO RUN TO
. COMPLETION

SRESTORE TINE OUT TRAP

;SR EERR
ARR
ARSI NI LRSS R AR AR RRRRRRSRLNTSLLLRLILIRLLNLLLLE
RT70:
20
;ROUTINE 8 20
z
7
+ROOR OF NEXT ROUTINE.
3

100.

’1‘7;0‘1
Rt t

005037

016730

ittt tirtde

- ITERRTION COUNT

:SCOPE ENTRY POINT.

b§

2 hetRes it et R irttetibroreereeetetesseeiy

;TEST THAT WMEN THE GO BIT IS CLEAR THAT TME RECEIVERS DO NOT
RECE IVE
;ORTA. EACH LINE IN TURN IS TRANSHITTED ON.AND WMEN TEN
CHRRRCTERS
<HAVE CEEN TRANSMITTED THE RECEIVER DOME FLRG IS TESTED. IF IT IS
SET
;AN ERROR 1S INDICATED ON THE LINE DRTRA MRS RECEIVED ON
RT70R(LR
LINE
;SET UP TO TRANSMIT

CZDMRDO DM11A LGC TST
MACY11
(ZDMRD. P11
28-RPR-78 13: 4y

2615
2616

SEERRRRERRECERRRERRRRUBENR
SRS RORR MMM RRR K KRR R R R Ry

2617
2618
2619

012732
012736
012790
012744
01276
012754
012760
012762
012770
012776
013000
013002
013010
01301%
013016
01302%
013026
013030

013032
01303%
013036
013080

004537

177766
005777
100375

0n2777
105777
100010
013237
0137237
108011
000n13

062737
006337
103346
013737
104400

30A(1052)

006246

28-RPR-78

18,

166576

100000

166562
001564
001564

001566
001570

000002

016730

004366

013026

001564

2%:

000071
013226
000024
013082
000071

RT?1:

RERE

5. 38X
IM
TD
SCSR
-4
#100000. aCSR

SEQ 0052

.10 CHARRCTERS
.ON ERCH L INE

HRIT FOR 10
CHARACTERS
. TO BE TRANSMITTED

ggsn

;TEST RECE IVER DONE FLAG

MOV
MoV

LINBIT,RCVDAT
LINBIT.XMTDAT

,GET LINE BIT OF RCTIVE LINE
., THAT ERROR OCCURED ON

.GO TO SCOPE

ASL

LINBIT

-GET READY TO TRAMSMIT ON NEXT LINE

MoV

TIMEL.
38

RDD

8CC

3s:
4s:

PAGE 52

;gls

ERROR1

000000
1C%006

JSR
-10.

TST
BPL
BIC

166566

13 48

DELAY

o
SCoPE

RS RE

71
R172

#2.LINE
1§

NRR LRSS R

20.

.SET UP NEXT L INE NUMBER

.GO TRAMSMIT ON NEXT L INE

;DELAY 1 CHARACTER

;TIME BEFORE ENTERING NEXT TEST
. SCOPE

LRSS
RRERESRRRESRRRSSILESILLSLLILLLLLLLLTLLS

JROUTINE 8 7%
;ADOR OF MEXT ROUT IMNE

P
b4

+SCOPE ENTRY POINT.

; ITERATION COUNT

;T;u‘\
s

-ERROR! DATA WAS RECEIVED ON L INE INDICATED

S BREERRRRRRRR RIS

N SRR AR R LSRR E LRSS SRR SRR LSRR SSISESIRSLTLLIIILL
ILE

- TEST THAT CURRENT ADORESS INCREMENTS PROPERLY WEN
R CHAR-

RCTER

I3l RZ88

2goge 22292299
Glbue

RT?I1R:
19:

013160
013162
013156
013164
013166
01317%
013176
013200
013202
013204

013212

C00N0
001400

001%00
177776
000006
000001

16641

000200

166400

000004

LINE O IS USED FOR TME TEST.

CLR
nov

x0
X0, X1

MoV

$38. SREMVEC

INC

000006
166456

nov
Hov

001940
166426
166422

NOY
"oV
nov

-2, (T
5, A Sk
SLBITD. 8RR

166404

"L
11
IST8

.~
$200. aCSR
oS

nov
1878

001%00
001570

IS TRANSMITTED.

2!'#

sta

001400

001566

040000

166006

nov

28:

0. CAY
{8)

’cfa; X1
2

X1, XNTDAT

CAT. RCVORT

BIT

88iT1N, SSHR

BNE
8R

TST

B8EQ
SEC

;AN R

+SET

ADDRESS AF TER TRANSIIS
ION
S

UP PROCESSOR

SPRYV?. BERRVECH2
;TIE QUY Thew
SCAT. IBRSRES
;SEY UP DASE RESISTER

nov

ERRORY

+RO=CURRENT ADRS AFTER TRANSMISSION
3RW OEFORE TRAMSMISSION

19
J$

;og w ADDRESS TABLE (LINE O)
3
EXist?

SET CHAR. COUNT TO TRAMSMIT 1 CMAR.
;SEY MAINT & 80 81TS
TRIMBNIY ON LINE O

SHWRIY FOR

;T0 RECEIVE F1i
+CLERR
filgl
JHRIT FOR RECED

CHRRACTER
FLAG
T0 RECEIVE

;nmnunm‘”mmm%s
. INCRENENTED PROPERLY

+GET COMPUTED RESLTY

;6ET xmtsuu

;ERROR !

NT RDDRESS DID NOT

: INCREMENTY PROPERLY

JBRANCH IF SCOPE SMITCH IS SET
G0 TO EXIT

CZDMADO DM11R LGC TST
mcnl
CZDMRD . P
28-RPR-78 13:
2671
2672
2673
267%

2675

2676

2677
2678
2679
2680
2681
2682
2683

013206
013210
013212
013220
013224

013226
013230
013232
01323

006100
100715
12737
005037
104006

000006
000006

30R(1052)

000004

28-APR-?8

BRI

3s:

nov
CLR

SCOPE

13:48

PRGE 53

SEQ 0053

SERRVE(+2, JRERRVE(C
RERRVE(+2

+ SCOPE

;RESTORE TIME OUT TRRP

; !t!t!!llt!!!!!t!!!!!!!t!!!I!Xltl!l!llllt

000072
013572
000024
013236
000072

RT72:

tlttt!!!l!!l!titltlt!tltt!t!ttt!

ROUTINE & 72

RT?73
20.

;RDOR OF NEXT ROUTINE.
; ITERATION COUNT

:!‘T’?‘Z?

;SCOPE ENTRY POINT.

=X+

; !t!tlt!!l!!!!!llll!ll!ntl!l!!tt!!l't!llt!!llt

|
b§
|

‘!t!l!lttlt!!tt!!t!!!!ttl!

013236
013240
013242

013272

013526

000C05
172727
000001
1662%4

001400
166264
001440

;TEST THAT DATA CAN BE TRANSMITTED FROM ALL AVAIL
ABLE CORE.
;LINE O IS USED FOR THE TEST AND ONLY ONE WORD
IS TRANSMITTED
:RT A TIME,
RT?2R:
(LR
X0
;CLEAR INDEX REGISTER
RESET
1$:
MOV
ARER(O).CART
;LORD CURRENT RDDRESS

MoV
MoV
MOV

166252

166236
166230

001566
C01600
013526
001572
001566

001566

000006

oCSR
=Y
3(&!

;HAIT FOR THE TRANSMITTER
;7O TRANSMIT THE CHARACTER
;TEST FOR DONE

CLR
CLR

SR
RCVORY

;CLEAR ALL FLRGS

rove

SAREA(O), XMTDAT . GET TRANSMITTED CHARACTER

cnee

RCVOAT. MMTDAT

8IC

8tQ

;(CAT)-1

2s:

ERRORY

00000y

38:

4s:

013526
013526
000005
127777
166100

166072

001400
166120
001440
166106

TUNTAB. RCVORT

CARMSK, MITDAT

; GET RECEIVED CHRRACTER

. CLEAR NON-TRANSMITTED BITS

. COMPARE CHARACTERS

BRANCH IF VAL 1D COMPAR ISON

; ERROR !DRTA COMPRAR
I SON ERROR

1S THE MEMORY LOCATION WHERE THE DATA MRS TRANS
MITTED FROM

B8R

e
8EQ
TST

B8R

013514

;SET MAINT & 60 BITS
;SET UP CHAR COUNT TO TRANSMIT 1 CHAR
;TRANSHIT CMAR ON LINE O

TST
8PL
;gl’fl

nove

001570
001570
001570

45, (SR
-1, W0CT
$LB 170, 38BAR

X0, e
3%
@)+

.60 TO EXiT

iHRS FIRST 4K BEEN TESTED
sBRANCH IF IT MRS
: INCREMENT INDEX

;60 REPERT TESY

MoV

#59, JRERRVEC

;SET TIME OUT TRAP TO EXIT

(LR
INC

3
X1

s TEST IF NENORY TIMES QUT
;SET UP DATR IDENTIFIER
- INCREMENT DRTR I1DENTIF IER

HOVB
HOV
MOV
MoV
MoV
TST
BPL

%1, SAREAR(D)
ARER(D). CART
45, (SR
-1, HCT
SLBITO. 3BAR
SCSR
=4

;LORD IDENTIFIER INTO MEMORY
;LORD CURRENT RODORESS
;SET MRAINT & 60 BITS
+SET UP CHAR COUNT TO TRANSMIT 1 CHAR
TRANSHIT ON LINE O
;HRIT FOR THE TRANSMITTER TO
;TRANSMIT THE CHARRCTER

1ST

TST8

(0)+

o(SR

;BEGIN TESTING RBOVE MK

; INCREMENT INDEX

; TEST FOR CHARACTER DONE

CZDMROC DM11A LGC TST
MACY11
CZDMAD. P11
28-RPR-78 13: 4y

013450
013452

100375
0C5077
113737
117037
043737
123737
0017133
104011
0004 0u
022626
012737
104006

28-APR-78

13.48

8PL
(LR

166064
001600
013526
001572
001566

Move
nove

000006

000004

PRGE EH

-4

TUMTAB, RCVDAT
. GET THE RECEIVED CHARRCTER
SARER(0D), XMTDAT . GET THE TRANSMITTED CHARRCTER

CARMSK, XMTDAT
RCVDAT, XMTDRT
Ys

1 ¥

POPSP2

L ¥

SCOPE

ARER:

]
52582

MOV

SEQ 005y

aCSR

RIC
CHPB
BEQ

ERROR1

#6. JRERRVEC

. CLEAR NON-TRANSMITTED BITS
; COMPARE CHARACTERS
;BRANCH (F VAL ID COMPAR ISON

;ERROR 'DATA COMPRR ISON ERROR NUMBER

:IN S/B GIVES MEMORY LOCATION (SEE TRBLE

JRESET THE STRCK

;RESTORE TIME OUT TRAP

JEXIT TEST

~MEMORY LOCRTIONS TRANSMITTED FROM TRBLE

000000
005252
012525
017777
020000
026314
031463
037477
080000
057477
060000
0?7477
100000
117477
120000
1374?77
140000
173000

ABK.

12525
17227
20000
26314
J1463

A12K:

40000

A16K:
R20K:
AZ28K:

R28X:

;FOR DRTR IN FIRST
;4K SEE THE LISTING

; CONTENTS OF THESE LOCATIONS (BYTE)
;1S THE DATR TRANSMITTED

; CONTENTS =1 (IF AVRILRBLE)
.
"
2
”
.
"
3
"

374277

;

872477
60000
778427
100000
117477
120000
137477
140000
173000

;
;
.
.
,
;
;
;
;

73
RY7y

JROUTINE 8 723
-ADDR OF NEXT ROUTINE.

b¢
b{

RT?3R

:SCOPE ENTRY POINT.

"
"
*
v
"
*
"
*
-

6
7

"
*
*
"
"

10
1
12
13
14
15
16

H xtmmxtuuuunnu:ntxxzntunuztuxtnzx

000073
014006
000012
013602
000073

RT?23:

10.

"
”
"

nxx:xnxxnuuunn

ITERRTION COUNT

XaX+]

; xxuuunuuuuuzxnxxxxx:xntnxtuunuun

b¢

nxxuxxxxxxnxxnnxx

&
3

FEEESERREEEEE

22002228 28gage

EFRRRRSPRRRREPRRFEERE g

2?22?
2728
2729
2730
2731
2732
2733
273
2735
2736
2237
2738
2739
ZTM0
Y03
n2
273
27
ZnS
276
TM7
rel]
"9
2750
2751
2752
753
275
2755
2756
2757
2758
2759

30A(1052)

016730

001566
016730
006246

165726

001570

165702

000200
001566
001566
165652

165672

000144

;TEST THAT THE TRANSMITTER CAN TRANSMIT 100. CHARR
CTERS BEFORE SETTING
:THE RERDY BIT (CSR 15).AND CLEARING THE BAR BIT
RT738:
LR
LINE
1§:
nov
#1.9CSR
;SET THE GO BIY
RCVOAT
LR
nov
SBL INE, WTORT
¢GET LINE NUMBER (X2)
JSR
5, XN
TD
;TRANSAIT 100. CHARRCTERS
=100.
;ON LINE RS SPECIFIED BY LINE
TST8
28:
o(SR
;HRIT FOR THE RECE IVER
8PL
28
70 RECEIVE ONE CHARRCTER
BIC
#8177, 3CSR
:CLEAR CHAR. DONE FLAG
INC
RCVDART
- INCREMENT CHAR. RCVD COUNT
sgvom', #100
cne
/HAVE 100. CHARS. BEEN RCVD

BEQ

TST
BPL

oCSR
1s

; TEST REROY FLRG
. G0 TEST BAR

CZDMACO DM11A LGC TST
MACY11
CZOMARD. P11
28-APR-78 13. %y

2783
2784
2785
2786
2787
2788
2789

013672

28-RPR-78

104011

013674

000443

013626
01370
013706
01371%

023777
001753
u1723?
104011

013716
613720
013726
013730
013732
013736
0137%0
0132
0137%%
013750
013752
013760
013 oM
013766
013770
013776
014002
0185008

30A(1052)

000% 32
013737
104400
000000
005777
100802
104001
000420
008777
001407
017737

005037
108011

ERROR1

SEQ 0055

; ERROR 'RERDY BIT SET TOO SOON

001564

165640

165632

001570

38:

cHp
BEQ

3,434
ERROR1

;60 TO EXIT

O8LINBIT.3BAR
4

#BAR, XMTDAT

, TEST THAT BAR BIT
;BRANCH IF SET

;GET BAR CONTENTS
;ERROR! BAR BIT CLERRED TO SOON

; TYPEQUT SHOMS THE BAR CONTENTS AND HOM MANY
CHARS WERE RECEIVED WHEN BAR FRILED

004370

013730

4s:

165604

BR
HOov

gs&zY

TST
8n|

165574

6S:

165566
001570

001566

ERROR
B8R
TST
BEQ

HOV

CLR
S:RMI

000002
001564

016730

78:
8s:

RDD

RSL

8cc
SCOPE

8s
TIMELIN, 59

SEXIT TEST
;DELRY 1/4 CHARACTER TIME

:TO ALLON TRANSMITTER

oCSR
69

TO FINISH

- TEST READY FLAG (SHOULD BE SET)
;60 TEST BAR

-ERROR! READY FLAG FAILED TO SET
;GO TO EXIT

98AR
73

- TEST THAT BAR BIT
.GO TO 78 iF CLEAR

XMTORY
a5

~ERROR' BAR BIT FAILED TO CLERR

#BAR, RCVDAT

IS CLEAR

2. 30L INE

SALINBIT
19

; xxunnunnxxuuxxunnxxxntnnnuxnnuux

RT?4:

xxxxxxxnxxnxnxxn

74
RY?%
10.
RT74A
AxX+1

SROUTINE & 2y
-ROOR OF NEXT ROUTINE
s ITERRTION COUNT
+SCOPE ENTRY POINT

|
|
3

; tnntnnxunnxxnunuunn:m:unnuu

014064
018072
015100
014104
014106
Ot4e11y

014120

SF8 g88%vi-

015080
014086
0140852
014086

S88

01%03n

888 §§§ o

nunu:unn:xxnnxx

014016
014022
015026
014030
014032

(X2)

IS SET

LOCATION LINRIT HRS THE CORRECT BAR CONTE
NTS.

01401y

ERREEREERNNNRNRRRRaus

D
5
PAGE 55

: TYPEOUT SHOWS HOM MANY (HARS WERE RECEIVED
WHEN READY SET AND THE LINE 8
B8R

014006
014010
014012

R
8

13 48

;TEST THRT THE TUMBLE TABLE POINTER INCREMENTS
PROPERLY AND
;RETURNS TO THE BEGINNING RFTER 64. CHARRCTERS
HAVE BEEN REC
| VED
E
JLINE O IS USED FOR THE TEST
RT74R:
MOV
STUNTRE, X1
JCLEAR THE

11 3

165426

fov. . %2

DEC

MOV
nov

STUNTRB.
%1
#8172, SR

sSET MAINT B8IT & CLERAR 50 BIT

1-65. . WCY

;SEY UP TO TRANSMIT 65

SLBITO. @BRR

TRANSMIT ON LINE O

CLR

8NC

165474

001440
165450
16544v

noy

CLR
CLR

MOV
8IS

2%:

MOV

XNTDRY
RCVYDAY

#8170, (SR

;glfl

ggSR

BiI¢
INC

RCVORT

INC

- TUMBLE TRBLE

{(1)+

#8177,

XMTYDAT

(SR

;SET THE GO BIY

JWALT FOR CHAR

DONE FLPG

CLEAR CHAR DOMNE FLRG
« INCREMENT CHARACTERS

+RECEIVED COUNT

(HRRACTERS

(ZOMADD DM11A LGC

(ZOMAD. P11
2839

014124

2840
2841

014126
014130

2843
284
Z8vS
Z846
2847
2848
ZM9
2850
2851
2852
2853
2854

014132
01v13v
014136
01418
01418
014152
O1MISh
01%160
01%162
014166
014120
0184172

2842

2855
2856
2857
2858
2859
2860
2861

2862
2863
2864
2065
2866

2867
2868
2869
2870
2871
2872

2873
2874
2875
2876
2877

2878
2879
2880
2881
2882
2883

2884

01v17%
014176
01%200
018202

014208
014210

014212
0O1%21%
018216
01%220

014222
014226
015230
014232
01%23%
014236

2885

2887
2888

2889
2890
2891

2892
2893
28%

TST

MACY11

28-APR-78 13- 4y

30R(1052)

005711

014246

014250
014252
D14284

13. 48

TST

PRGE 56

(1)

5
SEQ 0056

;TEST TT ENTRY FOR VALID

100402
104011

8n1
ERROR1

;DRTA ENTRY
ERROR! NO VAL ID DATR ENTRY

000417
005021
023727
001355
005777
100375
108777
100375
005737
100401
10%001
104006

BR
CLR
CHp
BNE
TST
BPL
TST8
BPL
TST
L]
ERROR
SCOPE

4s
(1)+
XMTDAT, fey.
23
oCSR
=Y
oCSR
.Y
TUNTRB
4s

;GO _TO SCOPE
;CLEAR TT ENTRY
/HRVE 64. CHARACTERS BEEN RECE IVED

001570

38:

000100

165370

165362
001600

4s:

000000
000000
000075
014212
000144
014204

RT75:

000075
004537
000001

BRKO:

RT?6:

000076

005450

000002

014264
000144
014256

75
RT76
100.
8RKO

xnxxxxxxx

;ROUTINE & 75
- RDORESS OF NEXT TEST
; ITERATION COUNT
;SCOPE ENTRY POINT

4
§

JSR
LBITO

5. BRKTST

;60 DO BREAK TEST
;ONLINE O

76
RY??
100.
B8kA1

;ROUTINE & 76
- ROORESS OF MNEXT TEST
; ITERATION COUNT
;SCOPE ENTRY POINT

xxxnxxxxxxxx

4
4
x

Xxzé1
; uunununuxunxuunuuumxunntuunxnunxx
nxxxxxxxxxx
;BREAK TEST ON LINE 1.

BRK1{:

RT?7:

000077

000100

;TEST FIRST TT ENTRY
;FOR VALID DATA
;ERROR! POINTER DID NOT RETURN
- SCOPE

JSR
LBiTYL

S, BRKTSY

<60 DO BRERK TEST
JON LINE 1

YaY4i
; xnzuuuutnxunxxnuunuumxmznuunuuuxxnxxxnxx

000077
014246
000144
014240

000003

;HAIT FOR THE LRST CHARACTER
;7O BE TRANSMITTED
;TEST FOR DONE

Yz Y41
; nutxunnxxntnuxunuttnnmmunttnnuxuxxxx

000076
014230
000144
014222

004537
000004

RCVD WHEN ERROR OCCURED

Xe)X+1
. txxnxutxutxunxnxnunuunxutun:ntxnxxxxnuux
xxxxxxxxxxxx
;BREAK TEST ON LINE O.

005456

000001

004537
000002

; TYPEOUT SHOWS & OF CHARS

A=0
Y=0
; nnunnxnnuu:nxtutnunxutnunxxxnxznxxxx
xnxn

014240
014244

28-APR-78

005456

7?
R7100
100.
BRK2

XzX41

st 2t

d Rttt sttt

;BREAK TEST ON LINE 2
BRK2:
JSR
5. BRKTST
LBIT2

ROUTINE & 72?7
; ADDRESS OF NEXT TEST
; ITERATION COUNT
;SCOPE ENTRY POINT

b0ttt etrt ettt

:xxxx

et et reetttert

X
X
3
X

:GO DO BREAK TEST
+ON LINE 2

YxY+1
; unuuu:u:unuuuxxxuunxunxntnxunxtxnnnxnnux

RT100:

100

RT101
100.
BRK3

-ROUTINE & 100

:ADORESS OF NEXY TEST
s ITERRTION COUNTY
- SCOPE ENTRY POINT

nnxx
X

X
b&
X

C{DMAD0 DM11A LGC TST
HACY11
CZDMRD P11
28-RAPR-78 13 w4y

28%
000100
28%
2897
2898
014256
004537
005456
2899
014262
000010
2900
000004
2901
2902
014264
000101
2903
014266 014302
2904
014270 00014y
2905 014272 014274
2906
000101
2907
2908
2909
014274
Q04537 005456
2910
014300 000020
2911
000005
2912
2913 014302 000102
2914
014304
014320
2915
014306
000144
2916
014310
Q14312
2917
000102
2918
2919
2920 014312 008537 005456
2921
014316
000040
2922
000006
2923
2924
014320 000103
2925 014322 014336
2926 014324
00014y
2927 01432¢ 014330
2928
000103
2929
2930
2931
014330 004537
005456
2932 01433y
000100
2933
000007
290
2935 014336 000104
2936 C14n0 014354
2937 014342 000144
2938 O18uy 01436

2939
%0
291
292
293
294
2945
26
s odd
28
2M9
2950

30A(1052)

28-APR-78

IY.B¢T.;3

p !!X!t!!!!!!!t!!!!!l!l!n!!Rt!!!!lt!tll!t!tlt!!

l!!l!t!!lt!l!t!tl!t!t!!tt

!
101
;ROUTINE # 101
|
RT102
;ADORESS OF MNEXT TEST
b¢
100.
; ITERARTION COUNT
b¢
BRKY
:SCOPE ENTRY POINT
b¢
X=X+
;t!!i!ll!t!llll!!lll!!!l!l!llll!!l!!l!!ll!!!l
l:!!l!!l!!!lt!l!!!ltltt!t!!t
;BREAK TEST ON LINE .

RT101:

BRKY:

JSR

I{'!;Tl‘l

014354
014356
014360
014362

000105
014372

000144
014364
000105

S, BRKTST

;G0 CO BREAK TEST
;ON LINE M

zY¢

; uunntununxnnnnxnxxxnuxtu:nunxxxx

RT102:

nxxtxxxnxnxxxxxxxx

102
RT103

100.

;ROUTINE 8 102
-ROORESS OF NEXT TEST

b¢
b¢

;SCOPE ENTRY POINT

: ITERATION COUNT

:agsi
=X+

b¢

; tnxxuuuuununxuxxnxunxuntnxununun
unntxxxxxxxxxu
;BRERK TEST ON LINE 5.

BRKS:

JSR

I‘.'l ‘I' T?

5. BRKTSTY

- GO DO BREAK TEST

;ON LINE §

zY¢

; xuununuuuxnxxuztnz:mnnmuunm

RT103:

103

;ROUTINE 8 103

RT10v
100.

mnunnuxnxxxxxxx

-RDDRESS OF NEXT TESY
s {TERATION COUNT

:lgs’

+SCOPE ENTRY POINT

t9 ¢ 3

b
b¢

; z:xxxuxnuuunuwmnntuttmmxmtm

tmxxmmnuxxuxnx

;BREAK TEST ON LINE 6.

BRKS:

JSR

#I ;I(;

5, BRKTST

60 DO BREAK TEST
JON LINE 6

; xuu:uuuuuuuunz:unutmummxuum

RTION:

10%

JROUTINE & 10N

/7105
’(.;71

s SCOPE ENTRY POINT

R RS

AR AL

;BREAK TEST ON LINE 7.
BRK?:
JSR
5. BRKTST

lqlp:
zY¢

nm:uuunxxxxx:

-RDDRESS OF NEXT TEST
; ITERATION COUNT

100.
s

005456

SEQ 0057

;ON LINE 3

=Y+

;BRRERRRR

004537
000200
000010

F
5
PRGE 57

X=X+1
; xunxu:uuntxxtuuxxnnnnxnxuunu
xxxxxxn 1290034008398 00694¢:
BREAK TEST ON LINE 3.
BRK3:
JSR
5, BRKTST
GO0 DO BREAK TEST

000104

014346
014352

13:48

4
4

RN S RBAR SRR SRR RIRTARTRETTLSRLLNLALLALLRSL

G0 DO BREAK TEST
+ON LINE ?

; xxuuu:uuzxuuz:xutunnxtntnntnunxxnxxu

RT105:

108

RT106
100.

)’(R??
=X+

JROUTINE @ 105

uxnxxxxxxnxxxx

;RODRESS OF NEXT TEST
; ITERATION COUNT

+SCOPE ENTRY POINT

b{
4

(ZDHRDO DM11AR LGC TST
MACY11
(ZOMRD. P11
28-APR-78 13- 4y

2951
2952
2953
2954

2955
2956
2957
2958
2959
2960

2961
2962
2963
294
2965

2966
2967
2968
2969

2970
2971

2972
2973
2974
2975
2976

2977
2978
2979
2980
2981

014364
014370
0143?72
014374
014376
014400

014402
014406

014410
014412

O1%41%
014416

014420
O1%v424

O0Otuw426
01430
014432

2982

01483y

2986
2987

014436
014442

2983
2984
2985

2988
2989
2990
2991
2992
2993

2994
2995
299¢
2997
2998
2999

3000
J001
3002
3003
JOO%
3005

Ots4u4
Oivs4e
014450
014452

004537
000400

30R(1052)

005456

BRK10:

RT106:

000106

005456

BRK11:

RT10?:

000144
014420

005456

BRK12:

;GO DO BRERK TEST
;ON LINE 10

nxxx

;ROUTINE & 106
; ADDRESS OF NEXT TEST
; ITERATION COUNT
;SCOPE ENTRY POINT

b
1
b
b3

JSR
LBIT1Y

5. BRKTST

;GO DO BRERK TEST
JON LINE 11

107
RT110

;ROUTINE 8 10?7
;RDDRESS OF MNEXT TEST

JSR
LBIT12

5. BRKTST

xxxxn
b
b
b
b

;i ITERATION COUNT
;SCOPE ENTRY POINT

dteedit e it

ettt ertetetetretoeiiii

;60 DO BREAK TEST
JON LINE 12

YzY44
; xttxt:u:unntuunuuunuuxumxtmmxmnmtmxutxu

000110
01444y
000144

RT110:

O14436

110
RT111
100.

SROUTINE 8 110
+RDORESS OF MEXT TEST
s ITERATION COUNT

BRK13

000110
005456

000014

xxxz

:SCOPE ENTRY POINT

by
b{
b

b
XzXe1
; xxxntuumtuuunmnnuuxmmxmuu:mxmtxmxuxxnxt
u
;BREAK TEST ON LINE 13.

BRK13:

JSR
LeIT13

5. BRKTSY

60 DO BREAX TEST
JON LINE 13

YaY+t
: tnutnxnumxtununtsnuuuumnnmuuunxxuxuxxxxx

000111
014462
000144
014454

RT111:

000111

000112
014500
000144
014472
000112

106
RY10?7
100.
BRK11

XxX+1
B
it il st asi it ettt
;BREAK TEST ON LINE 12.

00001 3

O1%%62
O1sves
014466
O14%70

5. BRKTST

100.
mK12

000107

004537
010000
000015

JSR
LBITIO0

YzY+4i
; tunuzunnxnuntnnunuuununuunxnnuxnxxxxxxxx

000107
014426

014454
014460

SEQ 0058

X=X+
; x:nzxxxunxunxxtxuxxuunxunnnunxnnxnxnxxxxxxnx
xnnnx
;BREAK TEST ON LINE 1.

000012

004537
004000

G
5
PRGE 58

YzY+41
; xxxxnnxunxnxxuxxnxnuununxunxnnnxxxxxxxxxxxxxxuxx

000106
014410
000144
014402

004537
002000

13.48

. xxxmm:xxnunun:nxnnxxnxxunxxxxxxxxxxxxxxuxxxx
xuxxunun
-BRERK TEST ON LINE 10.

00001 1

004537
001000

28-APR-78

114
RT112
100.
IRK1Y

ROUTINE & 111
- RODRESS OF MEXT TESY
ITERRTION COUNT
. SCOPE ENTRY POINT

z
z
4
b

XaX+1
B it il ittt ittt it tatett e ettt ettt ettt ettt ettt

005456

;BREAK TEST ON LINE 1N,
BRK14:
JSR
B, BRKTST
LBITIN
YaY41

B3I

RT112:

RLEi

60 DO BRERX TEST
JON LINE 14

32022ttt bRt b ped ettt et etttteobotieettetsessctsseriii

112
RT113
100.
BRK15
XzX+1

+ROUTINE & 112
-RODRESS OF NEXT TEST
; ITERATION COUNT
s SCOPE ENTRY POINT

2222008000000 trtdeed ettt

b4
b
X
b4

ettty ety et teeeertestesitiiiir

CZUMAD0 DM11A LGC TST
MACY11
CZDMAD P11
28-RPR-78 13: 44

3007

3008
3009

3010
3011
3012
3013
3014
3015

3016
3017
3018
3019
3020

3021
3022
3023
3024
3025
3026

3027
3028
3029
3030
3031

3032
3033
3034
3035
3036
3037
3038
3039

3080
3041
3082
3043
3044

3045
J0%6
3047
Jou8
3049
3050

3051
3052
3053
3054
3055

3056
3057
3058
3059
3060
3061

3062

014472
014476
014500
014502
014504
014506

014510
014514

014516
014520
014522
014524

014526
014532

01453y
014536
014540
014542

014544
014550

014552
014554
Q14556
014560

014562
0i4566
014570
014572
014574
014576

004537
020000

005456

000016

005456

000017

005456

000020
000000
000000

006312

000001

-G0 DO BREAK TEST
-ON LINE 15

113
RT11Y
100.
BRK16

;ROUTINE & 113
- RDDRESS OF MNEXT TEST
; ITERATION COUNT
;SCOPE ENTRY POINT

xxxxunxxxxxxn

4
4
3
3

JSR
LBITI6

5. BRKTSY

;GO DO BREAK TEST
;ON LINE 16

l!tt!!!tt!xt!!X!Xttt

114
RT115
100.
BRK1?

ROUTINE 8 114
- ROORESS OF NEXT TEST
: ITERATION COUNT
;SCOPE ENTRY POINT

3
3
3
|

X=X+
; l!!!t!l!!t!tlt!!l!ltt!ntlllttltltttl!tt!!ttttttl!tltttl
lt!ttt!ttxt!xtn
;BREAK YEST ON LINE 17

BRK17:

JSR
L81IT1?

5. BRKTST

;G0 DO BRERK TEST
JON LINE 17

118§
RY1t6
100.
DAYQ

xxxxxxuxxu

;ROUTINE 0115
;RDDRESS OF NEXT TEST
s ITERRTION COUNT
;SCOPE ENTRY POINT

3
b4

Xz X41
; xuu:unutuuuxt:nnuuuttmzmmummnu
nmxmmxxuuunn
:ORTA TEST 100 CHARACTERS L INEO

OATO:

JSR
LINEC

5. DRTTST

.60 RUN DRYA TEST
SON LINED

YY1
; xuuuxnn:xu:xu:tu:xxxumtuzmuutm

000116
014570
000144
014562

RT116:

000116

000117

BRK16:

RT115:

000115

000117
014606
00014y
014600

5, BRKTST

Y=Y+i
A=0
¥=0
; :u:txutununxxnxnxxxxxuutuumnzuuumunm
uunu

000115
014552
000144
014544

000002

JSR
LBIT15

SEQ 0059

X=X+1
. xxnxxutxxununuxnxnnntxuunuunxunxunxxnxxx
xxunxxxx
;BRERK TEST ON LINE 16.

RT1IN.

00011y

004537
000002

H
§
PRGE 59

Y= Y41
; !l!!!l!ltttttl!l!!!t!!u!l!!t!ltll“t!ttt!ttt!t!t!t!

00011y
014534
000144
014526

004537
000000

13 48

. BRERK TEST ON LINE 15

BRK15:

RT113:

000113

004537
100000

28-APR-78

Y=Y+1
. xuununnunnxxxn:xnxnxnunxnuuvnxxxxxxx

000113
014516
000144
014510

004537
Q%0000

30R(1052)

006312

xuuunxmxmmzmnxnxn

116
RT11?7
100.
DATY

SROUTINE 8116
: ADORESS OF NEXT TEST
: ITERATION COUNT
: SCOPE ENTRY POINT

XxX+1
; txxunntuttunu:uuutnuxnnxutnnunxuuuuunxnn
xxxxuxnnxx
;DATR TEST 100 CHARACTERS L INEY

ORT1:

JSR
LINEY

§, DRTTSY

;80 RUN URTR TEST
JON LINEYL

YaY4i
; !l!ll!l!‘t"t!!ltll!!lu!llll!t!l!tlltlt!llll!ttl!l!tt!l!!!tll

RT117:

1127
RT120
100.
DAT2

XzX+1

+ROUTINE #8117
- RODRESS OF NEXT TEST
: ITERRTION COUNT
: SCOPE ENTRY POINT

tllll!!ttl!lnllfl

X
§
b
X

CZDMADO OM11A LGC VST
MACY11
C(ZOMRD. P11
28-RPR-78 13. 4y

3063
3064
3065
3066

3067
3068
3069
3070
3071
3072

3073

3074
3075
3076
3077

3078
3079
3080
3081
3082
3083

3084
3085
3086
3087
3088

3089
3090
3091
3092
3093
30%

3095
3096
3097
3098
3099

3100

3101
3102
3103
3108
3105

3106
3107
3108

3109
3110
3111
3112
3113
311%
3115
3116
3117
3118

014600
01460
014606
014610
014612
O1%618

014616
014622
0O1%62%
014626
014630
014632

014634
014640
014642
01%64%
014646
014650

014652
014656

01%660
014662
O1%664
014666

004537
000004

30A(1052)

006312

DAT2:

RT120:

000120

006312

DAT3

RT121:

006312

DRTw:

;GO RUN DATA TEST
;ON LINE2

120
RT121
100.
DAT3

;ROUTINE 8120
- RDDRESS OF NEXT TEST
; ITERRTION COUNT
:SCOPE ENTRY POINT

xxxxxxnxxxxxxxxxxxxz

b4
b§
4
X

JSR
LINE3

5. DRTTSY

;G0 RUN DATA TEST
ON LINE3

121
RY122
100.
DATY

nxxxxxxxxxxxxxx

;ROUTINE 8121
;RDORESS OF NEXT TEST
: ITERATION COUNT
:SCOPE ENTRY POINT

4
4
4

JSR
L INEN

S.DATTST

- 60 RUM DATR TEST
SON LINEY

Y=Y4y
. xnxnuuutuntnxuumxxnummxtmmuunu

000122
014660
000144
014652

RT122:

000122

006312

122
RT7123
100.
DATS

ROUTINE 8122
;RDORESS OF NEXT TEST
s ITERATIOM COUNT
s SCOPE ENTRY POINT

umxnunxxnxxuuu
3
|
b&
|

XaX41{
; xxtnuntmtuuunuuntmmmmumxmmxmxm
tmxuxxxx
;ORTR TEST 100 CHARRCTERS L INES

DATS:

000006

JSR
L INES

8, DATTST

YzYel

+G0 RUN DATR TEST
sON LINES

; :nutuuunuunnuuuz
mmmmmammwm
RT123:
123
JROUTINE 8123
3
RT124
sROORESS OF NEXT TEST
b4
100.
s ITERATION COUNT
b3
ORTé
s SCOPE ENTRY POINT
¢

000123
014676
000144
014670

000123

000124
01471y
000144
014706
000124

5, DATTST

X=X+l
; xxuuu:uxxnn:n:xutxnuutxunnnxnxunzuxunu:x
xxxuuxtxxxxxxxn
:ORTA TEST 100 CHARACTERS L INEW

000005

014676
018700
014702
014708

SEQ 0060

Y=Y41
: unnuunuunxuuxxxxuuntununuunnuxununnx

000121

004537
000014
000007

JSR
LINE2

XzX+1

000121
014682
000144
01463y

014670
O1%67%

; xunttnnnuunnxnnxxxunnuuuuuxnutxxxxxx
xxxxnxxxxxxxxxxxxxxxxx
;DRTR TEST 100 CHARACTERS L INE3

000004

004537
000012

PRGE 60

Y=Y+1
; xntxxuxnxtnxxuuxnxnxxunxuuununxxunxxxuxx

000120
014624
000144
014616

004537
000010

13 48

. xnnxxxxtxxuxxxuxxxuxxxxxxxxxxxuunnxuxxxxxxxx
xuuxxxxnxxxxxxxxxnuxx
.DRATR TEST 100 CHARACTERS L INE?

000003

004537
0C0006

28-APR-78

006312

XzX+1
R nxunuultuuuuuxtnxxuuu:mtuuuunumummxm
nutmxxxx
;ORTA TEST 100 CHARRCTERS LINES

DARTe:

JSR
LINE6
YaY+1

5. DATTSTY

:G0 RUN DATA TEST
JON LINE®

; xxxnuuunnxunuutuuutuunuxmxxunxzxxuzx

RT124:

Rt t

nuunnn:uuuxn

124
sROUTINE 8124
RT126
- RDDRESS OF NEXT TESY
100.
: I TERATION COUNT
DRY?
+ SCOPE ENTRY POINT
XzX+1
ittt ettt ittty it d et byttt Ryt p et g et rtttirtitiitii i

X
X
X
X

rom

(ZOMAD0 DM11A LGC TST_
MACY11
CZDMAD. P11
28-APR-78 13: 4y

3119
3120
3121
3122
3123
3124
3125
3126
3127

3128

014706
014?12

004537
000016
000010

014718
014716
014720
014722

000125
014732
000144
01472y

3129

3130

000125

3131
3132
3133

014724
014730

004537
000020
000011

3135
3136
3137
3138

0147232
01473v
014736
018740

000126
0Otw750
000144
Ot1w742

J13y

3139

3140
3141
3142
J183

k3Ll

3145
J1%
J147
3148

3149

3150

014742
O1847%6
018750
018752
018758

018756

3151

3152

3153
J158

3155
3156

3157
3158
3159
J160
3161

3162
3163

3168
3165

1166

3167
3168
3169
3170
3171

3172
3173

3174

006312

28-APR-78

13.48

J
PAGE 61

SEQ 0061

-DATR TEST 100 CHARACTERS LINE?
DAT?:
JSR
5. DRYTST
.GO RUN DRTA TEST
LINE?
;ON LINE?
Y=Y+
; xxnnunutxnxxxx:xutxxxnnuunnnnxnu
nxunxxxxxxxnxnnxxxxzxxxu
RT125:
128
JROUTINE 8125
b
RT126
- RDDRESS OF NEXT TEST
b3
100.
; ITERATION COUNT
|
DATI0
:SCOPE ENTRY POINT
b¢

X=X+

N xxnunuuuun:utunxnnunxuunnxunxuxxxunx

006312

;ORTA TEST 100 CHARRCTERS L INE1O

DATIO:

JSR
LINE1O
YzYel

8. DRTTST

xxxxxxxxxxxxxxnxxu

;60 RUN DARTR TEST
JON LINE1O

. xnxtuuxxnuuxuuuuunuuunnnutnnunxnxxxx

RY126:

000126
004517
000022

30R(1052)

126
RY12?
100
DAT1Y

;ROUTINE 8126
-RODRESS OF NEXT TEST
;s 1ITERRTION COUNT
+;SCOPE ENTRY POINT

XzXe1

006312

000012

xnxxnxxnnxxxuxx
b
b4
3
b4

. zuu:xuxnxtunux:nuuuuumnuunuuxuxx
unnzxxxxzxxxnxxnxnn
:DATR TEST 100 CHARACTERS L INE1Y
DAT1::
JSR
5. DATTST
:60 RUN DRTR TEST
LINELY
JON LINELY

YsYet

; xxu:t:u:uuunuuuttmuxumxmmumxuz
tuxuuxuunxxxnxuxxxx
RT12?7:
127
JROUTINE 8122
§
RT130
+ADORESS OF MEXT TEST
X
100.
+ ITERRTION COUNT
b4

000127
014766
000144

014760

DAT12

000127

+SCOPE ENTRY POINT

XeXeg

; xtu:tuummnuzmnmmnm:mnnnuuxx

014760
0187684
0Ot%?66
014770
014772
018778

014776
015002
015004
015006
015010
015012

004537
000024

006312

000013

000014

000131
015022
000144
015014
0001 31

DAT12:

JSR
LINEL2

8. DATIST

xmxxxnxxxxxxxxxnmxm

;60 RUM DATR TEST
+ON LINE12

YaYéq
; txut!ultmtmxmmttnummxmxutmntututxxnntxxx

000130
01500
000144
014776
000130

008537
000026

;ORTA TEST 100 CHARRCTERS LINE12

RT130:

006312

130
RY131
100.
pAT13
XuX+1

;ROUTINE 8130
-RDDRESS OF NEXT TEST
s ITERRTION COUNY
:SCOPE ENTRY POINT

xxxxxnnx b33
X
b4
X
b1

;BRERERRERE
SRR SRS ARRR LSRRIARERRRRLRLLINTILILILILLL 1343003008300 00822008¢1
;DRTA TESY 100 CHARRCTERS LINE1L3

DAT13:

JSR
LINEYD

5. DATTST

YsY+

G0 RUN DRTR TEST
JON LINEL3

; nu:nunuuwmxmnnnununuuuxnnxnnxxxxnxun
nxxxxxum 11}
RT131:
13t
sROUTINE 8131
X
RT132
- ADORESS OF NEXT TEST
4
100.
+ ITERRTION COUNT
X
DAT1Y
:SCOPE ENTRY POINT
b{

XX+t
; txuntunxununumxtuuuunnnxxxnxumumxmmx

/DATR TEST 100 CHARRCTERS L INE1N

xmmxmmx

CZOMADO DM11A LGC TST
MACY11
CZOMRD. P11
28-RAPR-78 13: 4y

3175
015014
004537 006312
3176 015020 000030
3177
000015
317¢
3179 015022 000132
3180 015024
015040
3181
015026
000144
3182 015030 015032
3183
000132
3184
3185
3186 015032 004537
006312
3187 015036 000032
3188
000016
3189
3190
015040 000133
3191
015042 015056
3192
01504
000144
3193
015086 015050
319%
000133
3195
3196
3192 015050
004537
006312
3198
015054
00003y
3199
000017
3200
3201
015056 00013y
3202
015060 015074
3203 015062 00014y
3204
01506%
015066
3205
000134
3206
3207
3208 015066 004537
006312
3209 015072 000036
3210
000020
3211
3212 015074
000135
3213 015076
015474
3218 015100 000144
3215 015102 015104
3216
000135

3217
3218
3219
3220
3221

30A(1052)

28-RPR-78

DAT14:

13:48

JSR
w'?"\fl“

K
§
PRAGE 62

5. DATTST

=Y+

SEQ 0062

GO RUN DATA TEST
SON LINE1Y

; xtnnnnxxxnunxtxnxxxnnxnuuut

RT132:

nxuuunuuunnxuxxxnxxuxxxxn

132
RT133

;ROUTINE #132
-RODRESS OF NEXY TEST

100.
DATIS

;ITERATION COUNT
:SCOPE ENTRY POINT

tlltlt!t!lt!t!!t!ltt!t!!l!tt!tttx

;ORATA TEST 100 CHARACTERS LINE1S
DAT15:
JSR
5. DRTTST
;60 RUN DATA TEST
l;l'vs}s
;ON LINELS
]

; t!2!‘!!8!3!3!!!!!ltltttllllt!lllll“lmlt“
!l”l!ultu!tlttt!ttlttt!xtt!!xttti
RT133:
133
;ROUTINE 8133
b
RT134

;RDDRESS OF NEXT TEST
; ITERATION COUNT

100.

2“;‘?
z

004537
001600
001601
000177

001600
006224

|
4

:SCOPE ENTRY POINT

; xnzxnxutuuuuttnxxnutuuuumtuztutm
xxunnxnxnxxxxxxxxxxxxxx
:ORTR TEST 100 CHARACTERS LINEL6

DAT1e:

JSR
#I!fi:i

5. DATTSY

60 RUN DATR TEST
;ON LINELS

; xxnunntutnnunnuutnxummtmtmzmutnx
tuxxxxxxxxxxuxxxxxxx
RTI3%:
13%
JROUTINE 8134
b4

RT135
100,

;RODRESS OF NEXT TEST
+ \TERATION COUNT

gfl;l;

1
X

;SCOPE ENTRY POINT

t3 {4

; ttl!l8“!3‘!!33(!3“l!fll!“&ifll‘“‘tflll‘f

ltflt!fl!mtltttt!xt!m!tt! 1288804

;DATA TEST 100 CHARRCTERS LINE1?
DAT17:
JSR
S. DATTST
;60 RUN DATR TEST
%I%:?
<ON LINEL?

P | xunuuxxuuutuuuutnmmumtmmuut

RT135:

135

+ROUTINE 8 135

mxtmnxxxuxtxx

RT136

;ADDR OF NEXT ROUTINE.

b¢

;T;J?fl

:SCOPE ENTRY POINT.

100.

+ ITERRTION COUNT

sXe

2Rt el estit bt eie ettt tit ittt
etdrteesstercstessririiiimm

;TEST THRT DATA (ALL 1'S) CAN BE TRANSMITTED ON LINES
SIMULTANEOUSLY
:THE FOLLONING TESTS RRE PERFORMED:

005037

b|
|

XxX+1
; t!llt!t!tt!l!!tll!l!llu!lltlltl!!t!t!”ll!‘tl!

R AL

015104
015110
015114
015116
015120

b
b¢

;
;
;
,

THERE ARE 16 ORTR ENTRIES
THERE ISN'T A 17TH ENTRY
DRTR RECEIVED IS CORRECT
ONE DATA ENTRY PER LINE

RT135R:

CLR

JSR

TUNTAB
TUNTAB +1
177

TUNTRS

5, BMOVE

CLEAR THE

- TUMBLE

- TRBLE
: (200

;ENTRIES)

(ZOrMADJ DM11AR LGC TSY
MACY11
(20D P11
28-RPR-78 13. 4y

3231

015122
012737
015130 005000
015132 012737
015180 012777
0151%6 010037
0iS152 004537
015156
122777
015160 005720
015162 006337
015166
103367
015170 013737
015176
1084400
015200 000000
015202 017737
015210 001410
015212 005037
015216
104011

015220
015224
015230
0152312

015240
015242
0152wy
015250

015252
015256

006077
005077
000520
032777
0014%0%

10%001
005077
000510

015262
015266
0158270
015272
01527%
015276
015300
015302
015304
015306
015310

005077
012702
012701
005302
100%0%
005721
100774
10%001
00047y
005721
001402
104201
000470

015312
015316
015322
01632y
016326
016334
0162
015380
015366
016360
0156362
015364
015366

012701
012702
005302
100821
013737
083737
113737
123737
001402
104011
000443
005721
000755

172722727

000001
000001
016230
006246

30R(1052)

28-APR-78

017102
001564
164374

1§:

164336

015200
001566

164320

164312

020000

164302

164272

164 264

000020
001600

MOV
MOV
Nov

SLBITO.LINB!T
8B 1710, 9aCSR
%0. LINE

J?R

5. XMITD

TST
RSL
BCC
MOV

(0)+
LINBIT
19
TIMNEY,
28

OPEN
MOV

#BAR. RCVDART

DELAY

CLR
CLR
1
BIT

BEQ
ERROR
CLR
BR

K4 3
XMTDRT

SBAR
(SR
169
881713, &SR

111

MoV

6%:

MOV

DEC

sni
187
8Mi
ERROR

16%

STUMTAB. X1

63
(1)¢
39

BEQ
ERROR

TRANSHIT 1 CHAR.

;ON ERCH L INE
; INCREMENT L INE NUMBER (+2)
;SHIFT LINE BIT TO NEXT LINE
+BRANCH IF ALL LINES NOT DONE
PUT TIME TO TRANSHIT 1 CHAR
;OELRY 1
; CHRARRCTER TiNE
;GET & TEST BAR CONTENTS

+BRANCH IF O

-ERROR! BAR NOT CLEAR AFTER ALL
;LINES FINISHED
;G0 T0 EXIT
. TEST THAT OVER RUN DID NOT SET

VALID DRTR ENTRIES

16%

TSY

-LORD CHAR INTO OUTPUT BUFFER
.SET RO = LINE O
;GEY LINE BIT
;SET THE 60 BIT
;GET LINE NUMBER

;60 TO EXx1Y

#16.
. X2

SEQ 0063

JERROR! OVER RUN BIT SET

o( SR

; TEST THRT THERE ARE 16
4s.
CLR
oSk

Bs.

-1, 0UTBUF

BEQ
CLR
ERROR

001570

PAGE 63

Hov

CLR

001564
004 366

13 48

(1)

16%

;CLEAR THE (SR
+BEY TT SCAM COUNT
<BET FIRST TT ADDRESS
< DECREMENT SCAN COUNTER
BRANCH IF 16. ENTRIES SCANNED
:TEST FOR WAL1D DATA ENTRY
<BRANCH {F FOUND
<ERROR: MISING DRTR ENTRY
60 7O EX1T
<TEST 17TH ENTRY (SHOULD BE = TO 0)

:BRANCH (F O

CERROR! EXTRR DATA ENTRY
$60 TO EXIT

;TEST THRAT THE DATA IS CORRECT IN ALL 16

7%:

8s:

nov

DEC
8

ATUNTAR. X1

#16..x2

x2
108

017102
001572

noV
8iC

CARMSK., MTDAT

001570

4,4 ]
BEQ
ERRORY
8R

XMTDAT, RCVOART
b2

novs

9s.

TS7

QUTBUF. MTORY
TUNTRE. RCVDAT

16%

(1)+

ENTRIES

+GEY FIST TT ROORESS
+GET SCAM COUNT

+ DECREMENT SCAN COUNT
SBRANCH IF 16 ENTRIES SCRANNED
<GET TRANSMITTED DATA
¢ CLEAR NON-TRANSRITTED BITS
;GEY RECEIVED DRTR
: COMPRRE ORTA
;ERROR
INCORRECY DATR
;G0 TO EXIT
- INCREMENT TT RDODRESS
s TEST NEXT ENTRY

CZDMA00 DM11A LGC

TST_

MACY11

015370
01537y
015400
015402
01540
015410

012701
012702
005302
100403
0842721
000773

001600
000020

015412
015816
015822
015426
015432
015436
01SM40

005037
012701
012702
012700
023720
001406
005302

001570
000020
000020
001600
001570

CZDMAD. P11

3287

3288
3289
3290
3291
3292
32233

3295

A
R e P

329
3297
329¢
3299
3300
3301

01582
015848
015860
015062
015868
015056
015860
015062
015470
015472

O1587%
015876
015500
015502

016504

015512
015516
015622
01662y
015626
016630
018636
016688
016660
016682
016666

016660
016662
016670
016872
016600
015606
015610

28-RAPR-78 13 uy4

001373
005037
108011
000NO?
005301
008701
00180
062737
000754
10%006

30R(1052)

28-APR-78

"5
PRE. b4

- CLERR RLLVBUT LINE NUMBER
10§

11§

160777

MO
Hov
DEC
ani
BIC
BR

SEQ 0064

(N TUMBLE TRBLE ENTRY

&TUMTRB. 1
#16. . %2
%2
129
8160777, (1)+
119

+GET FIRST TT RDORESS
+GET SCAN COUNT
- DECREMENT SCAN COUNT
+BRANCH IF ALL LINES TESTED
~CLEAR ALL BUT LINE NUMBER IN TT
- DO NEXT TT RODRESS

-TEST THAT THERE IS AN ENTRY FOR ERCH OF THE 16
12%-

139

148

001566

15%.
001000

13 48

001570
169

CLR
HOV
MOV
NOV
CHP
BEQ
DEC

BNE
CLR
ERROR1
BR
DEC
TST
BEQ
ROD
8R
SCOPE

XNTORY
#16.
. %1
16 .X%2
§TUMTAB. %0
YMYDAT, (0)+
15%
X2

149
RCVORT

16$
3!
%1
169
#1000, XMTDAT
138

L INES

:TEST FOR LINE ENTRY
-BRANCH IF FOUND
;DECREMENT SCAN COUNT

-LOOK AT NEXT ENTRY

-ERROR! NO ENTRY FOUND FOR THIS LiINE
GO TO EXIY
-DECREMENT LINES FOUND COUNT
~BRAMCH IF ALL LINE TESTED
s INCREMENT L INE NUMBER
.60 DO NEXT LINE
> SCOPE

; uunununnttuntxxnxuuuuumuxxnnxunn

000136
016010
000144
015504

RT136:

0001 36

136
k7137
100.
RT136A

ROUTINE 8 136
-RADOR OF NEXT ROUTINE
s ITERATION COUNT
:SCOPE ENTRY POINT.

XzX+1

nnnxxnxxxxxx

; nxtnuttn:tuntutuxunxxuuunnnnnxnu

¢
4
4

unxxnxxwnxxxxx

013737

005037
00%53?
001600
001601
000177
012777
012777
106777
100375
005077
108400

000000
022777
0014510
017737

012737
104011
000476

004366

001600
006224

000001
1772777
163772

015560

; TEST THAT THE OM11 CAN TRANSMIT R BRERK ON ALL
LINES S IMUL TANE OUSL Y
RT136R: MOV
MTINEL. 1S
;GET TIME TO TRANSMIT ONE CHRRACTER

164004
164002

163770

000201

163752

163744
000201

001566
001570

18:

CcLe
TUNTAR
JSR
5. BMOVE
TUMTRS
TUNMTRE+1
127
oV
#8170, oCSR
nov
8-1. KCSR
TST8
oSe
arL
=4
CLR
SKCSR
DELRY

OPEN
4.4
8EQ
MOV
oV
ERROR1
B8R

;TEST THAT THERE

0201, (SR
23
oCSR, RCVOAT
#201, XNTORY
138
IS 16.

:CLERR
: THE
- TUNBLE
; TRBLE

-SET 60
<SET BREAK BIT FOR ALL LINES
JHAIT FOR THE RECEIVER
;TO RECEIVE R BRERK
JCLERR ALL BRERK B1ITS
+HAIT ONE CHARRCTER

JTIME
JTEST THRT ONLY GO AND DONE RRE SET
+GET CSR ENTRY
;GET CORRECT RESULY
+ERROR! INCORRECY CSR DATA
JEXIY

VALID DATA ENTRIES

CZOMRDO DMi1A LGC TST
MACYY1
(ZOMRD P11
28-APR-78 13 4y

3343
3344
IS
36
347
348
349
gg?

3352

3353
3354
3355
3356
3357
3358
3359
mm‘

3362

3363
3368
3365
3366
3367
3368
3369
3370
gg;

3373

3374
3376
3376
3377
gg

3380

3381
3382
3383
330
3386
3386
3387
3388
3389
3390
33%1
3392
3393
339
3396
339
3397

3398

015612
015616
015622
015624
015626
015630
015632
01563+

012701
012702
005721
100402
104001
000466
005302
001372

001600
000020

015636
015642
0156%¢
015652
015654
015656
015660
015662

012701
012702
032721
001002
104001
000453
005302
001371

001600
000020
040000

015668
015670
01567
015676
015700
015702
015708
015706
015710

012701
012702
105721
001402
108001
000%“1
105721
005302
001371

001600
000020

015712
015716
015722
015726
015730

012701
012702
082721
005302
00137y

001600
000020
160777

015732
015737
016G
016798
016780
015782
016754
016786
016760
015768
016770
015772
01877
016776
016000
016004

00500
012703
012702
012701
020%21
001410
006302
00137y
010437
010837
10m011
000M05
006303
001403
06270
000755

016006

104006

30R(1052)

28-APR-78

23
33

Hov
MOV
TST
BMI
ERROR
8R
DEC
BNE

13 48

PAGE 65

#TUMTRARB. %1
#16..%2
(1)+
4s
138
%2
3%

SEQ 0065

/GEY TUMBLE TRBLE BRSE RDORESS
;GET SCAN COUNT
:TEST FOR VAL ID DATA ENTRY
/BRANCH IF VAL ID DATA ENTRY FOUND
;ERROR! MISSING VALID DATA ENTRY
JEXIT
s DECREMENT SCAN COUNT
/BRANCH IF 16. ENTRIES NOT SCANNED

- TEST THAT THE BREAK BIT IS SET IN 16.
5%

MOV
MOV
BIT
BNE
ERROR
8R
OEC
BNE

STUMTRS,
x1
#16. . %2
8ITIN, (1)4
63

13$
X2
5%

TUMBLE TRBLE ENTRIES

+BRERK BIT SET?
S BRANCH IF SET
~ERROR! MISSING BRERK BIT
CEXIET
-DECREMENT SCAN COUNT

- TEST THAT THE TUMBLE THLE DATA BYTE IS ALL O°S
s %

8s:

nov
nov
1ST8
BEQ
ERROR
B8R
1ST18
DEC
BNE

#TUNTARS,%
#16. .x2
(1)¢
8s

138
(1)+
X2
79

: TEST DATR BYTE
BRANCH IF 0'S
ERROR! INCORRECT DRTA
SEXIT
;STEP TRABLE POINTER TO NEXT DATA BYTE

;CLEAR ALL BUT LIN: NUMBER IN TUMBLE TRBLE ENTRY
9.

nov
HnOV
8iIcC
0EC
BNE

ATUNTAS,
X1
#16. . x2
$1607772.(1)+
X2
”

+CLEAR ALL BUT LINE NUMBER

;TEST THAT THERE IS A TUMBLE TROLE ENTRY FOR EACH L INE
000020
000020
001600

10§11§

001570

001566

CLR
nov
nov
nov
e
8EQ
DEC
BNE
nov

MOV

12%:
001000
138:

ERROR1
ar
OEC
8tQ
ROD
8R
SCOPE

Xy
16..x3
16 .82
STUNTRS.
X1
XN, (§)e
128
X2
118
X4, XNTOAT

X4, RCVDAY
138
x3
13$
#1000, x4
108

;CLERR LINE NUMBER

-TEST FOR LINR ENTRY FOR THIS LINE
+BRANCH IF
FOUND

<ERROR! NO LINE ENTRY FOUND FOR THIS LINE
JEXIT
+ALL LINES BEEN FOUND
+EXIT IF YES
+ SEARCH FOR
s NEXT L INE
; SCOP €

; xuuuuxunxunuuxxunntnnuunnunnnxnuunnu

unxn

CZOMRDO DM11R LGC TST
MACY11
(ZDMAD. P11
28-RAPR-78 13: 4y

3399
3400
3401
3402
3403
404
3405
3406
3407
M08
3409

016019
016012
01601%
016016

30A{1052)

000137
016026
000002
016020
000137

28-APR-78

RT137:

13:48

B
6
PRGE 66

137
RT140

;ROUTINE 8 137
- ADDR OF NEXT ROUT INE

{
4

; ITERATION COUNT

RT137R
;SCOPE ENTRY POINT.
X=X+1
; !X!!!!!!tl!llttltlt!l!u!X!lll!lltt!ll!t!!t!!l
!!!!!tlt!t

t!t!!l!!t!!t!Xlt

016020
016024

016026
016030
016032
01603y

004537
000040

;TEST TO TRANSMIT ON ERCH LINE WITH A DELAY
BEFORE STATING THE
+NEXT LINE.
RT137R: JSR
5. a8DLY)XMT
60 DO TEST. DELRY

005602

32.

;THIS MUCH BETLEEN LINES

140
RT141
2
’R‘T’I‘H?R

;ROUTINE 8 140
;ADDR OF NEXT ROUTINE.
; ITERRTION COUNT
;SCOPE ENTRY POINT.

’ !!th!!!!!!!!!tl!t!l!!fl!!13tl!t!l!l!t”l!

000140
016044

RT140:

016036
000140

338‘“!!!!!!3!3!XX!lt!!t!lll!l

=X+

b¢
b¢
b|
b

; X!!t!t!t!!t!!!l!!!!!!!n!!!t!!l!llt!!l!l!l!!l!

!!!!!tl!Xt!!tll!!lt!!!ttt!

016036
016042

004537

016044
016046
016050
016052

000141
016062

;TEST TO TRANSMIT ON ERCH LINE WITH A DELAY
BEFORE STATING THE
. NEXT L INE.

005602

RTI40R:

JSR

5, SR0LY)NMT

16.

.60 DO TEST.

DELAY

-THIS MUCH BETMEEN L INES

; unnnxxxxnxunxxxuxxnxxxuuxun:nxxn

RTI41:

xxnxnxnxxxxxxnnxxxxx

$u41
RT182

;ROUTINE B 141
;RGOR OF NEXT ROUTINE.

3
1

57’1('0;“

;SCOPE ENTRY POINT.

016054
000141

;) TERRTION COUNT

z=X¢

; X!lll!tt!ll!!itttlltt!u!l!lt!!!!t!l!tlttll!!!

!!tttt!ttt!l!t!!t!!xt!tt!!

;Ei; I?szasmr ON ERCH LINE HITH A DELAY BEFOR
E STATING THE

016054
016060

004537
000010

016062
01_26%
016066
016070

000142
016100

005602

RT141R: JSR

5, J40L Y)MT

R s ittt iRt
RT142:
142
RT143

016072
000142

RT142A

;60 DO TEST. DELAY

;THIS MUCH BETWEEN LINES

T
T
;ROUTINE & 142
;ROOR OF NEXT ROUT INE.

Mrpuma
X

X
4

; ITERATION COUNT

;SCOPE ENTRY POINT.

XzX+1
;tllt!ltllltll!!fl!lt!'!!’!tl!!ttttl‘t!llt!!!l!lt!
!!lt!!t!!!

l!!!!tht!l!!!

016072
016076

004537

016100
016102
016104
016106

000143
016116

005602

;TEST TO TRANSMIT ON ERCH LINE WITH A DELAY BEFORE
STATING THE
s NEXT LINE.
RT142R: JSR
5, aROLY)XNT
;60 DO TEST. DELRY
]
:THIS MUCH BETMEEN LINES
; :xxuuunxnnxxnnnunxuzunu:xnuuunxuxxxx
xxxx:nxxxxuxx
RTIN3:
143
sROUTINE & 183

RT14Y4

016110

’I(T,l‘lofn

000143

BRIt t

it 0ttt

+ADOR OF NEXT ROUTINE.

s ITERATION COUNT

;SCOPE ENTRY POINT.

2ttt et obt ettt

b¢
X

ittt etttyorretcessttertrtiiiii

;TEST TO TRANSMIT ON ERCH LINE WITH A DELRY BEFOR
E STATING THE

(ZDMADO DM11A LGC

CZOMRD P11

3455
3456
w57
3458
3459
3460
3461
3462
3463
Ju6M
3465
3466
Jue?
3468
3469
3470
471
M72
473
47y
3475
76
N27
478
3479
3«80
81

82
ne3
Rl
Ne5
86
g7
nes
g9
N90
N9
N92
N93
Rkel
2%
9%
97
N9
N9

TST

MACY11
28-APR-78 13: 4%

01611 0
01611 4

004537
000002

016116
016120
016122
016124

000144
016134
000002
016126
000144

30A(1052)

28-APR-78

13:48

- NEXT LINE.
RT143A: JSR
2

005602

C_
6
PRAGE 67

5., IROLY)XMT

;60 DO TEST. DELAY
;THIS MUCH BETUWEEN LINES

; !!!l!!tttl!t!ltl!t!!ltu!tl!l!tll!tltl”‘!
tl!tlt!t!l!l!tll!!!!ttt!t!!!lt
RTIGN:
14y
;ROUTINE 8 14y
b{
RT145
-RODR OF NEXT ROUTINE.
b
¢
2

; ITERATION COUNT
- SCOPE ENTRY POINT

§T’l"fl‘m
=X+

b¢
b4

; l!!!!!ll!lt!!!!!i!!lt!u!ll!!!!3!!3!!!!!8

83!!!8!!!‘!3!!!!!!X!!tl!!l!t!!t

016126
016132

004537
000001

016134
016136
016140
016142

000145
016302
000144
01614y
000145

;TEST I?'gamsmr ON ERCH LINE WITH R DELAY BEFORE STATING THE

RT14MA. JSR

005602

5. J80L )07

;60 DO TEST. DELAY

1
;THIS MUCH BETMEEN L INES
R St
i
Y Yt
N
T
Tt t
T
RT145:
145
;ROUTINE 8 145
b
RT146
;RODR OF NEXT ROUT INE.
100.
; ITERATION COUNT
3

RT145R

;SCOPE ENTRY POINT.

XzX+1
; x:uxnx:xxnxnuuunuutunnxxuuu
nnxnnx

nxnxuuxxnxnn

:TEST THAT THE DM11 WORKS PROPERLY WHEN THE MALFDUPLEX BIT (CSR BIT 1)
1S SET. THE TEST TRANSMITS DATA ON LINE 0. AND
'BRERKS' ON LINE 1. ONLY
: THE BREAK SHOULD BE RECEIVED ON LINE O IN
THE TUMBLE TRBLE.
RT145R: CLR
TUNTAS
;CLERR THE FIRST TiO

016144 005037
016150 005037
016154
012737
016162 012737
016170 012777
016176 012777
016208 012777
016212
105777
016216
100375
016220 005077

001600
001602
017102
172727
000007
000001
000002
163324

016224
016232
01623%
016242
016250
016252

141000

001600

001566
001570

016254
016262
016264

016270

016272
016276
016300

016302
016304
016306
016310

022737
001410
013737

000407

013737

001403
005037
104011
006777
100375

001400

CLR
nov

TUNTRB +2
SOUTBUF ., CART

;TUNBLE TRBLE ENTRIES
;SET UP YO

16334y
163340
163334

MOV
Hnov
1,3

87, (SR
SLBITO. aBAR
SLBITI. 3BXCSR

;SET GO, MALF DUPLEX & MARINT BITS
;TRANSHIT 1 CHAP. ON LHNE O
,SET BREAK ON LINE 1

001440

Mov

TST8
aPL
CLR

163322

141000

001602

001566

1772777
00014y
016312

+HRIT FOR THE CMARRCTER
:T0 BE RECEIVED
CLERR THE BRERK BIT ON LINE 1

ggg

:;'HMO.TUNTH

;TDST FOR BREAK ENTRY (LINE 1)

nov
MoV

TUNTRB. RCVDAT
#141000. XMTOAT

. GET ACTURL ENTRY
. GET CORRECT ENTRY

8R
nov
BEQ
CLR

29
;G0 TO EXIT
TUNTRB+2 RCVORT . TEST THAT NEXT ENTRY
28
SEXIT IF CORRECT
XMTDAY

TST
8PL

(SR
.

ERRORY

18:

28:

104006

000146

(SR
.Y
QBKCSR

;TRANSMIY 1 CHARRACTER

;TEST THAT ONLY THE BREAK WRS RECE IVED

001570
163244

-1, 0T

SRR

RT146:

ERROR1

SCOPE
146

RTLAST
100.
RT146R

JERROR! INCORRECT BREAK ENTRY
IS CLEAR

+ERROR! SECOND ENTRY WRS NOT CLERR

URIT FOR THE TRANSMITTER
+TO FINISH

KRR R

: SCOPE
LR R

KRR R TR

+ROUTINE & 146

E R EL LK

;ROOR OF NEXT ROUTINE.
s ITERATION COUNT
; SCOPE ENTRY POINT.

XRTRRRLRLLE

CZDHMR00 DMy 1A LGC TST
MCYP
CZOMAD P11
28-RPR-78 13:
%

3511
3512
3513

000146

28-RAPR-78

13:48

D
6
PAGE 68

SEQ 00¢8

X=X+1
; !t!l!!t!!!!!!!!l!llt!!n!!!l!!lltlt!tltlt

!!l!t!lt!l!tl!t!!t!!lt!tlt!lt!t

016312
016320

012737
012737
013737

017102

001400
001440
016376
016442

:TEST THAT THE Dri11 RESPONDS CORRECTLY
TO R RESET
RT146A: nov
#O0UTBUF, CAT
:SET UP

016326
01633y
013737
016342 005037
0166 012772
163166
016354
01277?
163162
016362 012777
163156
016370 012704
016374
10%400
016376 000000
016400 005304
016402 001374
016804
104005
016406 0177237
163130
001566
016818 001401
016416
104011
216420 017737
163120
001566
3S.
016426 001402
016430
10401 1
016432 000427
01643% 012704
000010
4s:
016840
104400
£s:
016442 000000
6%:
016444 005 304
016446 00137y
015450 017737
163066
001566
016456 001402
016860 104011
016462 000413
016464 017737
163054
0C1566 t4 ¥
016472 001402
01647%
104011
016476 000405
016500 017737
163042
001566
8%:
016506 001401
016510
104011
016512
104006
9%

3514
3515
3516
3517
3518
3519
3520
3521

30A(1052)

HOV
MOV
Hov
CLR
HOV
MOV
MOV
MOV
DELRY
OPEN
DEC
BNE
SRESET
MOV
BEQ
ERROR1
MoV
8EQ
ERROR1
B8R
Mov
DELAY
OPEN
DEC

BNE

nov
8EQ
ERROR1
8R
nov
8taQ
ERROR1

8R
nov
BEQ
ERRORY
SCOPE

TIMEL, 28
TINEL, 63
XMTDAT
87.aCSR
SLBITO. aBAR
#LBIT1, @BKCSR
82,54
M
18

(SR, RCVDAT
3
@8AR, RCVOAT
4s
%%
8. .\

TO TRANSMIT 10
; CHARACTERS ON LINE O
;GET TIME TO TRANSMIT 2 CHARACTERS

;SET MAINT. , HALF DUPLEX & GO BITS
;STRART TO TRANSMIT ON LINE O
;BREAK ON LINE 1

;HAIT 2 CHARACTER
;TIMES
SRESET

;GET CSR CONTENTS

;BRANCH IF O
;ERROR! CSR DID NOT CLERR
;BET BAR CONTENTS
SBRANCH IF O
,gl(l’!(rfl' B8AR IS NOT CLEARR

;HRIT B MORE CHARRCTER TIMES
X\

5%
9CSR, RCVDAT
78

9
SBRAR. RCVDAT
8s
95

SBK(SR, RCYDAT
9

; TEST THAT CSR

IS CLERR

;ERROR! (SR WAS NOT CLEAR
;60 T0 EXIY
:TES THAT BAR 1S CLEAR

;ERROR! BAR DID NOT CLERR
: TEST THAT BKCSR IS CLEAR

;ERROR! BKCSR DID NOT CLERR
;SCOPE

CZDMADO DM11A LGC TST
MACY11
(ZOMAD P11
28-RPR-78 13- 4y

3553
3554
3555

3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
335523
3570

016514
016514

016516
016520
016524
016530
01653%
016536
016542
0165%
016554
016562
016566
016570
016572

30R(1052)

28-RAPR-78

13:48

E
6
PRGE 69

;PRG1- TRANSMITTER SCOPE LOOP

104000
020117
004737
004737
008777
001375
005077
005037
017737
082737
000337
104400
000000
000754

PRG1:

016720
016772
163010
163009
016570
162430
000377
016570

PRGIR:
PRG1B:
PRG1C:
016570
016570
PRG1D.

TYPE
PRGINM
JSR
JSR
TST
BNE
(LR
CLR
MOV
8IC
SHAB
DELAY
OPEN
B8R

7. PARAM
7, LOOP
S8AR
PRG1B
JCSR
PRG1D
SSHR, PRG1D
8377, PRG1D
PRGID
PRGIR

SEQ 0069

/BEGIN
;TYPE PROGRAM TITLE

;GO GET USER PARRMETERS
;GO LOOP TRANSMITTER
;HAIT FOR ALL LINES TO FINISH
/BRANCH IF NOT DONE
;CLERR THE (SR
;CLEAR DELRY TIME
:GET DELAY
.. 44D
. 44D
;. 44D
-DELRY RS SPECIFIED
;BY USER
:LOOP BRCK

CZDMADO DM11R LGC TST
MACY11
CZOMRD. P11
28-RPR-78 13: 4y

3571
3572
3523
357«

016574
016574
3575 016576
3576 016600
3577 016608
3578 016610
3579 016616
3580 016622
3581
016624
3582 016630
3583 016632
358%
0166%
3585 016688
3586
01664
2587 016652
3588 016654
3589 016656
3590 016662
3591
016666

J592
3593
359
3595
359
3597

299

3600

3601
3602
3603
3608
3605
3606
3607
3608
3609
3610
3611
3612
3613
3618
3615
3616
3617

319

3620

3621
3622
3623
3624
3625
3626

016672
016700

104000
020135
004737
004737
012777
005777
001415
105777
100372
082777
020127
001002
012701
005721
000755
005077
005077
005037

016706
016712
016714
016716

017737
082737
000337
104400
000000
000732

016720
016722
016724
016730
016732
016737
016736
016742
0167%%
016752
01675%
016756
016760
016762
016764
016766
016770

104000
020154
004537
000000
108000
020177
008537
0000C0
023727
101403
104000
020017
000764
104000
020043
10%015
000207

016772
017000
017008
017006
017010
017012

117737
004537
017102
017103
000307
012777

016720
016772
000001
162722

30R(1052)

162724

162712
000200
001776

162702

001576
162660
162656
0167214
162304
000377
016714

016714
016714

28-RPR-78

13-48

F
6
PRGE 70

.PRGZ2- RECEIVER SCOPE LCOP
PRG2:
TYPE
PRG2M
JSR
7. PARAN
PRGZR:
JSR
7. LOOP
PRG2R:
MOV
#8!T0. aCSR
PRG2AR: TST
SBAR
BEQ
PRGZB
TST8
SCSR
BPL
PRG2RA
BIC
88177, aCSR
CHP
X1, RTUNTAB+176
BNE
+6
Hov
S$TUNTRB-2, %1
IS8T
(1)4
8R
PRG2A
PRG28
CLR
oCSR
CLR
oBAR
CLR
PRG2C

rMov
BiC

PRG2C

SHAB
OELRY
OPEN
1

SSHR, PRG2C
8377, PRG2C

SEQ 0070

+BEGIN
- TYPE PROGRAM
;TITLE
+GO GET USER PRRAME TERS
;GO START TRANSMITTER
-SET 60.CLEAR THE OTHERS
+HAVE ALL LS SELECTED F INISHED
BRANCH IF Fi. .SHED TRANSMITT'NG
CHAIT FOR THE RECEIVER 1O
;RECEIVE A CHARRCTER
;CLERR RECEIVER FLAG
. 1S THE POINTER AT THE END OF THE TT
~BRANCH IF NOT
~RESET POINTER
+ INCREMENT POINTER
-G0 BACK & TEST TRANSMITTER FLAG
-CLERR THE (SR
;CLERR THE BAR
-CLEAR USER DELRY

;GET USER DELRY

PRG2C
PRGZR

:DELRY RS SPECIFIED
-8Y USER
- REPERT LOOP

,SUBROUTINE TO GET USER PARAMETERS (FOR PRGI & 2)

PRRAM

004416

004416
016742

000310

162204
006224

017102

001400

16253C

YPE
lem
JSR
LINE:
O
PRARAMA: TYPE
HOMMAN
JSR
CHARS.
O
cne
8Lo0S
TYPE
"
ar
PARAMG: TYPE
"
CNTLU
RYS

5. RECD

5. RECD
CHARS. ¥200.
PRARAMS

PARAMA

ASK USER WMICH LINE
10 TESY
;GET LINE AND PUT 1T
- HERE
:ASK USER MOM MANY
-CMT‘!S TO TRANSI T
sGET CMARS AMD PUT T
» HERE
o‘LlflIT RESPONSE TO 200.
s (CORE LINITATION)

sRE-REQUEST PARRMETER
;TYPE INSTRUCTIONS
-60 GET VALUE
JEXIT

s SUBROUTINE TO TRANSMIT MTR FRON THE SR

LOOP-

MOVS
SSHR, OUTE
JSR
5, BMOVE
OUTBUF
OUTBUF +1
199.
MOV
RCAT. @BRSREG

;FILL OUTPUT
s BUFFER
WITH
.DHTR 10 BE
TRANSMITTED
‘ lNlT!flL 2E BRSE REGISTER

.. 44D
.. 44D

.. 44D

LZDMRO0 DM11R LGC TST_
MACY11
(ZDMRO P11
28-APR-78 13: 44

3627
3528

3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643

3644

3e45

3646

017020
017026

017032
01703%
017036
017080
017086
017052
017056
017060
017062
01706%
017072
017100

012737
004537
001400
001402
0000MO0
013737
005437
00%537?
001440
001442
000040
013737
013777
000207

017102

000000

017246

3659
3650
3651
3652
3653
3654
3655

3656

3657
3658
3659
3660
3661
3662

017412
017%16
017922
017930
017436
017940
017%42

017w%

017462
017%60
017%weM
017470

017192
006224

30R(1052)

001400

016742
001440
006224

001440

016730
016730

001564
162444

000000

012737
012637
012637
000002

000006
000004
017442
177777

000004
161544

000176

001202

000174
Q00004
000006

SUSURR:

001204

3;‘2.:’:

3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675

3677

3680

1$:
2%:
38:

13 48

017472
017500
017502
017510
017612
017516
01752%
017532
017540
017542
017544

022737
001021
023737
001415
006037
117237
142737
122737
001001
104015
000002

000176

001202

000042

O0OGOM6

017604
162346
000200
000007

017604
017604
017604

PRGE 71

6
SEQ 0071

#OUTBUF, CAT
5. BMOVE

+LORD CURRENT
»RCDRESS TRABLE
+HITH ROORESS
;OF OUTPUT BUFFER

CHARS, WCT
WCTY
5. BHOVE

- LORD WORD COUNT
;FORM THO'S COMPLEMENT
;TRBLE WITH
:NUMBER OF
; CHARACTERS TO BE
; TRANSM{TTED
;SAVE LINES TO BE TRANSMITTED ON
;STRART TRANSMITTING ON SELECTED LINES
JEXIY

LINE.LINBIT
LINE, 3BAR
?

. =OUTBUF +100.

. = INBUF +100.

MOV
nov
nov
cne
8EQ
8R
e

nov

nov
NOV
Nov
T

KBDINTY: CMP
BNE
e
8tQ
CLR
nove
81c8
G
BNE
CNTLU
1$:
RTI

-FIRST RDORESS OF

100

;FIRST ADORESS OF

100.

; CHARACTER OUTPUT BUFFER

; CHARRCTER INPUT BUFFER (MHERE RECEIVED

;DATA IS STORED)

886, - (SP)
By
- (SP)
,
518, a8y
8-1.35WR
23
33
(SP)+, (SP)e

- SAVE VECTORS

-SET UP FOR TiMCOUT
;REFERENCE MARDUARE SWITCH REG)STER

GSUREG. SR

S01SPREG. DISPLAY
(SP)+. N
(SP)+, 386

;ROUTINE TO (HECK FOR

332;3
3681
3682

CAT
CAT+2
32.
MOV
NEG
JSR
WCT
HCT+2
32.
Hov
MOV
RTS

INBUF-

017412

012737

MOV
JSR

OUTBUF:

017246

013746
013746
012737
022777
001402
000M07
(22626

28-APR-78

sROJUST STRCK
;POINT TO SOFTURRE SMITCH REG
;POINT TO SOFT DISPLAY REG
-RESTORE VECTORS

G BEING TYPED

SSHREG. SR
18
N2, 3896
18
TP
STKDBR, TP
8200, TrPY
7.1
18

SRCT11?
:BR IF YES
+CLERR TENP ARER
+FETCH THE BUFFER
STRIP OFF PRRITY
SUAS IT 6
s NOP
GO CHANGE 1T
SEXNT

sROUTINE TO CHANGE CONTENTS OF SWREG(LOC 176)

017546
017554
017556

022737

001023
104000

000176

001202

CNTLUU:

CMP

BNE
TYPE

ASHREG, SHR
FIx

(ZOMADC DM11R LGC TST
HACY11
{Z0MAD P11
28-APR-78 13: 44

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

017560
017562
017566
017570
017522
01752y
017576
017600
017604
017606
017614
017616
017624

017641
004537

000176
017647
000006
104000
017647
008537
000000
022737
001403

013777
000002

30R(1052)

28-APR-78

13 48

SSUREG

006154

JSR
SHREG
ZVRLUE

PAGE 72

RS. OACNV

6
SEQ 0072

- CONVERT TO ARSCIi

TYFE

SVALUE
JSR
0
CHpP
BEQ

004416

000007

0au57y

017604

161356

FJX:

NOV
RTI

5. RECD
87, CNT
FJdx
THP1, ISIR

-GET THP1
- HERE

AND PUT

- CHANGE CONTENTS OF SWREG

CZDMRDO DM11R LGC TST
MACY11
CZOMRD. P11
28-RAPR-78 13: 44

30R(1052)

3698 017626
3699 01763%
3700 017641
3701
017646
3702 017687
3703 017658
3708
017662
3705 017666
3706 017678
3707 017702
3708 017710
3709 017716
3710 017722
3711
017728
3712 017732
3713 01790
3718
0177%
3715 01775%
3716 017762
3717 017766
3718 017778
3719 020002
3720 020010
3?21
020011
3722 020016
3723 020017

041505
037522
053523

02012y
100
036522

020080
020040
0M1516
052103
052125
020131

053045
042101
NS
100
OND
(020040
053505
OM4WNS
042522
080116
05112%
044501
036NS
NS
02vO63
On1WNS
ON711N
O82WS
081087
020080
050
020080
100
NS
100
]

28-RPR-78

)

13 48

PAGE 73

SEQ 0673

- MESSRGES
HHERE
. RSCH

"ZVECT ADR?Q'

SSHREG:

. ASCI
1

"%SHR=8'

020040
047040

SVALUE:

RSCII

051117
044440
020054
043501

SCTLU

RSC1HI

"% INCORRECT

:xzao

HHICH:

ASCI)
RSC11

"XUNITH(8)79°

LEVEL

RSC1
1

"%CHAR LNGTHe"

ERDAT

ASCI

'XERR S/B

RARSB:

RSCIt

ON7125
02%470
ON0S10
062107
051122

0652111
040077
020122
080110
051%40

0200M0
051501
020040

020040
020072
020040

051120

021507

NEW=d'
TRY AGAIN'"

HARS

. RSC1

ns:
n2.

INPUT,

.RSCi

‘%PRGRG’

. ASCi1
LASCLE

‘%79

‘XEND @°

. RSCi
1

"XLD CHAR

02116
036522

OMOONO
037460

ONZ2118
020122
030122
054518
051123

OuiNM0
087111
033455
Ow4usn0
026n70

ON751%
05152%

ON4S07
051524

PRGONM:

. RSCti

‘ALOGIC TSTSa’

ON6B30
020122

052111
0%7514

PRGIN:

. RSCH1

‘XXMITTER LOOPS'

ONG530
ON1506

0582111
ON60MO

PRG2N:

.RSCHI

"XXNIT/REC LOOPY'

0680131
061505
06152%

086040
052080
02012

L INPRR:

. RSCi

‘XTYP LINES TO TST @'

ON7%43
051101

020106
037523

HOWMAN:

. RSCH

"%ROF CHARS?Q'

ENO:
ATNUMS:
APC:

.RASCI
|
. RSC11
. ASCI

l,.R

PCa!

027117

050040
020040

100

036503
020040

n3:

RASCI1

‘%SR=0? GO @'

IN SRO-7.DLY

IN SR8-153°

CZUMRO0 DM11A LGC TST_
MACY11
(ZDMRD P11
28-APR-78 13: 44

3753

374
3755
3756
3757
3758
3759
3760
3761
3762
3763

3764

3765

0202313

020235
020242
0202650
020256
020268
020272
020300
020306
020318
020322

020330

015

12%
084525
0M7522
054117
082520
051105
OM60M0
ON/SOM
041501
032063

030071

000001

012

082510
045503
07127
0OM5080
020108
052080
055101
051507
020113
033065

30R(1052)

050440
041040
043040
046525
053117
042510
020131
OM1040
031061
034067

28-APR-78

MSG1

.BYTE

13 48

ASCII

END

J
b
PAGE 7y

15,12

"THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS
BACK 1234567890

SEQ 007y

CZDMA00 DM11A LGC TST
MACY11
(ZOMRD. P11
28-RPR-78 13: 4y
R

= 000000

ARS8
APC

APCRADD

AREA

ATNUMB

ANAS
A12X

017766
020224

002102

013526
020216

020002

013546

5268

37174
37518

2689

2700

806

3719¢

7368

775

272498

013552

27518

R24K

013562

27558

013556

R28K
A8K
8RR

013566
013536
001544

23418

802
771

R16K

A20K

30A(1052)

761%

37508

K
6
28-RPR-78
13.48
PRGE 76
CROSS REFERENCE TRBLE -- USER SYMBOLS

28558

764%

22192

SEQ 0075

3033#

770

2720

2730

27408

27538

2757%
27448
6888

882%

1033

11313

1245

1435

1523%

2008

2036

2043z

2044

1987

1993x

19942

20092

1703

2832

323

3328

3578

2558
1831
1915

1832
1956

1836
1964

2131
1991

3251
2553

2593

1547
2828

1556

2557

1793
1559

179
2272

1798
2836

3583

1877
2110
3324

18853
21138
3622

1886
33295
3628

1907
33328
Jo3v

19108
3487

1911
3w90x

19172
3522

19182
3549

2953

2964

2975

2986

2082z
2789
3639%

2083
2801

2086
2803

2089
2833

2543x
32wy

2647
3248%

25858

2648

1520%

36262

1951%

1952

1960

1961

1982

19863

= 000007
= 000001
= 000002
= 002000
= 0ON000
= 010000
= 020000
= 0ONOOODO

5218
4695
48t
4598
Y588
Y578
\564
2222'

786
1031
1717

1132
1718

1308
1722

14127

154y

1698

1699

890
1261
767
3%

1269
1332
1393

1812
1362
1542

1813
1547
1852

1817
15562
1881

2130
1568
1889

81715 = 100000
8172 = 00000%
8173 = 000010
8iTs
= 000020
8iTS = O0OOONO
8176 = 000100
8177
= 000200
8178
= O0OONOD
8i179
= 001000
BKCSR
001546

W37
4678
4668
4658
YNl
4638
4628
4618
4608
6895¢
19332
1411
1380¢

YN
103t

1269
1132

1308
1736

1336
1737

1366
174

1755
177y
1031
1326
782
865
8Sv:
1936
1468
2865

1756
1775
1132
1355

1760
1279
1318
1384

1326
138?

898
1381%
21058
1505¢
2876

13882
21063
1839

18763
2107
3227

BASREG

B8RT

BELL
8170
8171
81710
81711
81712
81713
8iT1%

OV
BRKTST

SRK0
RK1

BRK10
MK11
MKI2Z
IRK13
BRK1N
MK1S
IRK16
BRK17

BRK2
BRK3
BKKis

001550

001500

006224
005856

018204

014222

014364
014402
014820
014436
016454
014472
014510
014526

014240
014256
014274

€90¢

6848

1009%

685

2997
2861

3008
28658

2949
2960
2971
2982
2993
3004
3015
3026

29534
29688
29754
29864
29974
3008¢
30198
30304

2872

2883
28
2905

28764

28878
2898¢
29094

3019

2887

3030

2898

2038

20423

20813
2787
3590

2909

2920

2551%
3uB6:

2931

2589%
3521%

29%2

259285
3532

26533
3545

2692¢
3559

2723t
3579

CZDMROC DN11A LGC

CZOMRD. P11
BRKS
BRK6
BRK?
CARMSK
(AT

014312
014330
014346
001572
001400

CC
= 127776
CHALT = 104003
CHARS
016742
CLKINT
001552
CLKLVL
001554
CNT
00857y
CNTLU = 104015
CNTLUU 017546
CNVORY
002332
COUNT
002076

(SR

001542

TST_

MACY11

28-RPR-78 13: 4y

2916
2927
2938
6998
6808

2663

432¢
5094
3608¢
6918
692¢
11758
519¢
729
753
7348

6878

1306

13878

1699

17602
1818

2062

25588
2697
28363

CURTST
002002
DRTCHK= 104002
DATTST
006312

DATO
DAT1

DATIAR
DRAT10
DATII
DRT1Z
DATI3
DAT1N
DAT1S
OAT16
DAT17?

DAT2

DAT3
DATY

DRTS
DRT6

DART?

014544
014562

006316
014724
O187%2
018760
018776
015014
015032
015050
015066

DLy

DLyiT
DreAR
‘OMPAR8

70M8
5088
15308

3175

3039
3050

014706

3116

001204
000174

006000
005602
00346u
003746

3105

3222'

1364
1030

3632
1129%

13172

12118
3616

3692
3674

13082

141722

17032

1761
1831

20658

8004
1035%

1031z

1310
149

1720v

17788
1832

2069

2567t
27213
28?7

2593
272M
2849

867
1605
30M3

873

3503

3186

30438
30544

'
SEQ 0076

11348

108t

1318%
1442

172172

1278
18362

2093

2617
2726
3234z

1603
11288

3515%

1413

1088

1326
1544

1218

1779¢
1837

2117

2619
2728
3249z

2701
1256

2731
1520

3278
1521

14098

1421

15318

3626

11328

1327

36273

11378

1351

3629

11vvgs

1353

1542

1549

1552

1780
18518

17932
185y

17%
18582

17228

2130%

2620
27720
3251

1223

21318

17362

21498

2009

3620

15352

§12u48

13558
15563

1737

17982
1859

21578

253y

2648

26498

2659

1269

1270

1305%

15592

1682

1698%

1799
1860

18128
2057

1813
2058z

18172
2059

12612

1380
1557

17918

21583

1382
1742

25423

1384

17558

1385

175

26528
2778
32548

2654
27778
3258:

26563
2781
33285

2657
2797
3330

2690
2828%
333%

2693
2832
3337

2553

25572
2695
283
34852

3520

3529

3054

3065

3076

Jos?

3098

3109

3120

313t

3142

3153

3164

1431

2545

2573

2590

2598

2630

2795

3242

3333

3524

35837

3420
1056

3432

44y

3456

R{TY

3197

97z

3208

3541

3561z

3578z

3581

3583z

3589z

30658

30984

31098

31208
lsgg

6788
6668

36573
3657

14098
811
10668

3408
1018¢
1076

542

133y
1009

3609
10612
11302
11922
860
36804
765
10342

883

L
6
PRGE 77

CROSS REFERENCE TRBLE -- USER SYMBOLS

3483z

30768
30874

30%

13:48

2720x

3072
3083

01%652

28-APR-78

2689%

31318
31428
31538
31648
31754
31864
3197¢
32084

3061

014670

29208
293148
2928
1114x
681

15314
3127
3138
3149
3160
3171
3182
3193
3204

014600

018616
018634

OELAY = 108400

DISPLA
DISPRE

3488

30A(1052)

1448s

CZDMADO DM11R LGC TST
MACY11
CZOMRD. P11
28-RPR-78 13- 4y
DMPARC
DTCHK
EHALY =
£Mo

EMTINY
ENTTRS
EROAY
ERR
ERRA
ERRE
ERRC
ERRD
ERREX
ERRMLY
ERROR =

004072
002126
104004
020213

003100
002032
017754
002146

ERROR1
=

1095¢
718
5108
778
540
7168
781
21?7
762
7602

30R(1052)

N
28-RAPR-78
13 48
PRGE 78
CROSS REFERENCE TRBLE -- USER SYMBOLS

SEa 0077

1108
7518

37494
922¢
928
37158
7608
72668
763%
7824
7858
7948
7938
1037
1623
1796
3253
754
1862

779%

1220
1687
1815

2087
2841
ERRVE(C=

1250
1701
1820
3347
1259
1914
2118
3305

1265
1706
1834
3357
1341
1938
28
33

16812

899

1272
1720
1839

1329
1744
2161

1391
1758
2555

1395
1763
259%

1554
1777
2799

1402

1437

256M
339

270
3831

27
3534

1443
2046

2783
3543

1580
2063

2790

16832

25862

26472

26733

267v3

27142

906

1671

2589

2653

2833

2866

3233

3486

3367
13427
sarg

S I

ERR1
ESCOPE
FJX

3547

003072
87?

006104
00708
002616
002640
002662
002606

020177
002010
006064
0172%
002120
]
108012
KBOIN = 108014
K80 INT 017472
KSTRART 002000
LBITO = 000001
IcTm
INBIN
1 NDUF
INCRTH
NIy
INITIR=

LBiTY = 000002
LOiT10s 000%00
LBiTits 001000
LO1T12s 002000
LBiIT13s 00%000
LBITiN= 010000
LBiIT16s 020000

9152

36458

J646

849
7%

863
881

16662

1131

1669%
1415

3487

3522

885

2540

2692

2723

CZDMRDO Dr11R LGC TST
MRCY11
CZOMRD. P11
28-APR-78 13: 44
LB1T16= OM0000
LBIT17=
100000
LBITZ = 000004
LBIT3 = 0000°0
LBITY = 000020
LBITS = 000ON0
L8176 = 000100
L8177 = 000200
LENGTH 008112

LENOKR
LENOKS
LENOKC

4398
4388
4518
4508
Y49¢
Yy8s
478
Y46t

00%130
004140
008146

30A(1052)

3020
3031
2888
2899
2910
2921
2932
2943
11008
11044
1110
11098
11208
37138
14152

1251
26262
2173
218y
2261
2272
2283

LYST3
011526
LTSTS
011544
LISTE
011662
LIST6é
011600
LIST?
011616
MACHER
00000
MANUAL
= 100000

HSG1

020233

2311
2322
2333
2190
2201

2212
2223
2234
2245
5304
4378
1412
837

28-RPR-78
13:48
PRAGE 79
CROSS REFERENCE TRBLE -- USER SYMBOLS

1101

11032

SEQ 0078

1104

1109

11112

11122

1113

16542

1657%

2622

2623

2627%

2787

28083

3233

32392

1365
2807%

3235%

14262

1518
3638

15303
3639

1576

1578

1588

1655

14162

36048

CZOMRDO DM11A LGC TST
MACY11
CZDMAD P11
28-RPR-78 13: 44

ni
n2
"

020017
020022
020030

NOP
=
NXTST
ORCNV
OACNVA
OPEN
=

000240
002006
006154
006166
000000

02004 3

[6.24
90M
857

3615

4358
7068
769
14918
4368

703
M2

1645

oUTBUF
OVRLAY
PARAN
PARAMA
PARAME

PARO

PAR1

PAR2
PAR3
PARY
PARS
PARG
PASS

017102

PRG1

PRGZR

PR
4.

=
=
=
=
=

1633

1635
16363
16373
16382
1639
742¢
7358
842
4208
4718
7098
835
7108

710

020103
007120

1665
713

016530
016536

3559¢
35618

016610

016616
016666

016714
020135

PRGIR
01660%
PRTYD = 000000

PRTY1
PRTYZ
PRTY3
PRTYS
PRTYS

8613
773
1500
680

874
800

900
804

912
14868

91ux
3684

682

684

686

691

ODODNO
000100
000140
000200
000240

711

3562
3556
214

712

35788

3579¢
3580

35912
3575
715
479¢

4788
4778
4768
4758
4248

StQ 0079

37234

37278

70%
N3

1646

705
957

1647

706
958

1648

3538

3567

359%

3623

3624

3627

1128

16458

01667y

PRGN
PRG2S

3612

16343

016570
020117
016562y

PRG2

1207

007030

007026

016514

PRGID
PRGIN
PRGIR

1107

1044
3576
3613
36148

007076

PRG1S
PRGIC

3621

1075

1042
3557
36058
3610

PCAROD
002100
PFRIL
008576
POPSP = 006726
POPSP2:= 022626
PRGLIN 002014
PRONUN 0D2454
PRGTRS 002016

PRGO

1030

8
7
28-APR-78
13:48 PRGE 80
CROSS REFERENCE TRBLE -- USER SYMBOLS

1055
37248
37258

004372
016720
016732
016762

007032
007034
007036
007040
007082
002116

PRGON
FRGOR

3525

30R(1062)

1255

11568
36014

1298

70?7
1004

1649
1413

708
1152

761
846
14k
1149
840
839¢
845

9022

8412

84y

3564%

35658

35678

35%4%

35964

16648

37338
16698

35544

3560

3563%
37368
35588

35738

3568

3588

3582
35894

35923
37394

3593%

35778

3597

2150
692

694

696

735
1460

697

736
1469

698

737
1470

699

742
1471

701

779
1644

2591

2599

279

3243

333

1521

1532

159%4

1600

3231

3277

3483

3515

850

840z

734
1459

2574

36wy

92412

695

2546

36438

264
12148
1629
2736

709
1153

1650

16448

16468
16478
16488
16498
16508
8%

693

CZOMAD0 DM11R LGT TST
MACY11
CZOMRD. P11
28-APR-78 13: 44
PRTY6 = 000300
PRTY? = 000340
PRVCNT
002104
PSH
= 177776

PT0
PT1
PHRUP
RCVOAT

006100
006102
004606
0C1566

RCVTST

005034

RCVO
RCV1
RCVI0O
RCV11
RCV1Z
RCV13
RCVIN
RCViS
RCVi6e
RCV1?
RCV2
RCV3

012014
012032
01217y
012212
012230
0122%6
012264
012302
012320
012336
012050
012066

RCYS
RCVS
RCY6
RCV?
RECD
RIND
RNGEN
RORPAR
RP1
P2
RSTARY
RSTAT1
RSTATZ
RSTPC
RSTPSH
RSTREG=
RSTRG
RILASTs
RTWNO
R70

R70R

RT1
RT1R

R7T10

RT1I0A
RT100
RT101

012104
012122
0121%0
012156
ooss16
006076
003250
006764
003316
003320
002024
002426
002514
003226
003230
108010
003172
177777
0D200%
007136

007146

007200
007210

007646

007656
Ot42ve
Ot14264

4738
4728
2142
7378
4338
21473
14708
14718
121%
6978
13628
1877%
204M2
2702
333732
1298¢
2482
2346
2357
2434
24485
2456
2467
2478
2489
2500
2511

2368
2379
2390
2401
2412
2423
838
14632
%8¢
1571
98
971
7138
670
672
N6
MN7%
5188
724
5228
7058
1666
1676
1674
1693
1805
1826
2881
2892

30A(1052)

541
2561
19072
10103
2150%
1474
14742
12188
751
1367
1878
20622
2729
33902
2350
2493
2350%
23618
24388
24498
2%608
24718
24828
249318
25044
25158
23728
23838

X all
25058
24168
24278
1087

C
7
28-APR-78
13:48 PRAGE 81
CROSS REFERENCE TRBLE -- USER SYMBOLS

SEQ 0080

543
2568
1918
103232
2155%
14802
14753

843
2647
19823
11332
25592

847

1010

1130

1138

1264

1268

1301

1321

1324

199%
11382
2561%

12623
25683

12643

12682

13013

13192

13212

13242

21322

147832

14792

1480

1481

805
13992
18862
20692
2732
34952
2361
2504

1245%
14002
19112
20863
27712
34992
2372
2515

12522
14352
1912
20932
27782
35292
2383

12562
14422

19363
21102
2779
35322
23%

1257
15793
19522
21173
28033
J541x%
2405

13312
15982
1953
2547%
28302
J545%
2416

13322
16082
196132

1337
16102
19872

13442
16173
1988

135632
185432

136132
186032
2038z

1070
1466
1983
1619

1099
14698

117238
147632

3603

3607

3690

16338
9818
982%

1641

9132

1667%

97832

1221
9578
9588
1512

871
16738

16702

25632
28373
3549%
2427

26223
32443

26633
3279

20212
26982
3280

26993
33042

2438

2449

2460

2471

CZOMADO DNM11A LGC /ST
MACY11
(ZOMAD. P11
28-APR-78 13: 4y

RT102
RT103
RTI0M
RT105
RT106
RT107
RY11
RT11R
RT110
RT111
RT112
RT113
RT114
RT115
RT116
RT117
RT12
RT12R
RT120
RT121
RT122
RT123
RTI2%
RT125
RT126
RT127
RT13
RT13R
RT130

RT131
RT132
RT133
RTIN
RT135
RT135A
RT136
RT136R
R7137
RT1I7R
RT1N
RTISA
RTINS0
RT180R
RTINT
RTINIA
RT18Z2
RT1827
RTIN]
RYINIR
RTINS

RTINGR
RYING
RTINGA
RTi%

RTi%6A
RT15

014302
014320
014336
014354
014372
014410
007720
007730
J1482¢
Otwewy
01%462
014500
014516
01483y
014552
014570
010010
010020
014606
014624
O1%ém2
014660
014676
O1%71y
014732
014750
010144
010154
014766

01500
015022
015040
015056
01507v
015104
015474
015504
016010
016020
010256
010266
016026
016036
01604
016054
(016062
016072
016100
016110
016116

016126
01613
016144
016302
016312
010316

2903
2914

2925

2936
297
2958
1824
1845
2969
2980
2991
3002
3013
3024
3037
3088
1843
1869
3059
3070
3081
3092
3103
3114

3125
3136

1867
1901
31427

3158
3169
3180
3191
3215
3213
3317
3315

3402

1927
3400
341y
3412
3426
3424
3438

3450
w48
3462
3460
347y
3472
3510
1925

30A(1052)

29138
29244
29354
294648
29578
29688
18428
18514
2979%
29904
3001%
3012¢
30238
30368

30478
30584
18664
18758

30694
30808
30914
31028
31134
31248
31358
31468

18984
19068
31528

31688
31798
31904
32018
32128
32268
33148
33228
33994
38088
19244
19334
Ju118
34208
34238
34328
34358

Jusue
w78
34564
34594
34688
34718
34818
35078
35154
19418

D
7
28-APR-78
13:48
PRGE 82
CROSS REFERENCE TRBLE -- USER SYMBOLS

1857

SEG 0081

CZOMRDO DM11A LGC TST
MACY11
CZOMRD P11
28-APR-78 13: 44
RT15A
010326
RT16
010452
RT16R
010462
RY1?
010570
RT17R
010600
RYT2
007252
RT2R
007262
RT20
010662
RT20R
010672
RT21
010750
RT21R
010760
RT22
011056
RT22R
011066
RY23
011164
RT23R
01117
RT24
011272
RT24R
011302
RT125
011336
RT25A
0113%6
RT26
01144y
RT27
011462
RT3
007324
RT3R
00733y
RT30
011500
RT31
011516
RT32
01153y
RT33
011552
RTN
011570
RY3S
011606
RT36
01162y
R13?
011642
RTY
007376
RTHA
007406
RT4O
011660
RT41
011676
RT%2
011714
RT43
011732
RTuY
011750
RTNS
011766

RT%6
RTS?

RTS
RTSA
RT50
R751

R152
RT53
RT5%
RT55
R756

R157
k76

RT6A
RT60
RT61
RT62

1944
1942
1976
1974
2003
1691
1712
2001
2030
2028
2052
2050

2076
207

2100

2098
2124
2122
2142
21%0
2166
1710
1731
2177
2188
2199
2210
2221

30A(1052)

19508
19738
198148
20008
20084
1709¢
17128
20278
2035¢%
20498
2057%

20738
20818
20978
21054
21218
2129
2139
21428
21658
21768
17288
17368
21878
21988

012004
012022
007950
007460
012080
012056
012074
012112
012130
0121%6
012164
012202

24318
24428

007532
012220
012236
012254

17938
24538
24648
24754

E
7
28-APR-78
13 48
PRAGE 83
CROSS REFERENCE TRBLE -- USER SYMBOLS

SEQ 0082

CZDMRDO DM11A LGC TST
MACY11
(Z0MAD P11
28-RAPR-78 13: 4y

SCOPER 002736
SCOPES
0027%2
SCOPED 002776
SCOPTR
002012
SPSOT
001200
SRESET= 108005
SRSET
002546
SRSETT 003232
START
002360
SUSIR = 108013
SUSIRR 017912
SYRPC
003166
SVRPSH 003170
SR
001202

SUREG
TIRER
TIMED
TIREC
TIRER

000176
008272
00nN:2s
008336
0DN216

e, S

TKCSR
TTMXOBR
1
PSR
TPOR
TTORT
TUMTRS

002066
002070
01760%
002072
00207%
001562
001600

822
2606
2608
2637
2635
2680
2678
2763
2761
2818
2813
2859
2870
5138
723
5128
1821
2132
8898
888

868
7088
2768
5118
8528
721
669
5178
72?
9322
933z
6778
1956
6664

013572

013602
01%006
014016
01412y
014212
018230
104007
003132
104006

1807

¥E

RT73R
RT?%
RT74A
RT7S
RT76
RY??
SAVREG=
SAVRG
SCOPE =

2476
2487
8222
2509
2523
2521
2580
1786

b g ub
b b b

RT?23

012272
012310
012326
012346
012362
012606
012616
007574
007604
012716
012726
013032
013082
013226
013236

- o pub
b sk o

RT63
RTAN
RT65
RT66
RT66A
RT6?
RT67R
RY?
RT7R
R770
RT70R
RT71
RT71R
RY72
RT?2R

7308
7318
3669%
7328
7338
6954
7018

30A(1052)

24868
24978
2498
25204
25328
2577%
25858
18088
18128
2578
26148
26348
26438
2677%
26878
27608
27698
28124
28228
28588
28698
2880¢
1486
9328
1274
1840
2163
897
8908

891
886
818

1853
1668

%148
818¢
819
36498

F
7
28-RAPR-78
13 48
PRGE 84
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0083

25084

2603%

1505
1371

257%

9162
1935

1403

2601

832

2037

1445
1922
2632

88
Js28

1630
1939

267%

1684
1921
2238

1011

1012

1219

869

887
3652

1726
2019

1745

1764

2087
3312

2071
3397

1783
209
3505

1802
2119
3562

36562

3665

1881
3680

R{Y 3

1889

1915

2597

2629

32wt

3322

3517

3518

1356

1361

1389

1393

1397

1400

9633

N2e

1991

3656

865

3592
3685

3621

2532

1185
11482

3670
3671%
787

15752
1299%

2572
27%

3694
1198
1200%

1201

1343%

1 34h

CZOMRDC DM11A LGC VST
MACY11
C20MAD P11
28-APR-78 13: 44

1537

TYP
TYPR
TYPC
TYPD
TYPORT
TYPE
=

TYPF
TYPG

003322
003332
003350
003366
003432
10%000

003404
003416

UNIT

UNTOKR
UNTOKS
UNTOKC

VRC

VECOK
VECOKR
VECOKB
VECTOR
WY

003766

3229
3384

716
9874
989
993
987%
5068

1206
992

10018

1067

1046
1062
5258

178%

22028

227y

23478
2419
24908
26388

2890

2699

2729

2822

3323%
358y

3328
3586

10013
856
3601

10044
903
3605

1045
3611

1054
3614

3326

28727

3343

1068
3682

1074
3688

1097

1106

2831%

3uBux

3516t

17518

1765

20538

2072

1079%

1083

3633z

10%9
1029
3635

10512
1127%
3636

1052
1252

105?
1522

1059
1589

1061
26513

10628
26918

1063
2722¢

1789

1803

16778

1689

16948

1708

12138

1722

17328

17%6

21018

1940

2208

2279

2383
24248
249
2676

28958

10528
1060

1808¢

1822

2120

21250

2138

2285

22908

22%

19458

22138

23588
2830
25018
26818

2901

1972

2219

2360
24358
2807
2759

29068

3112

31178

3123

30408

3178

31838

1237
6984

1303
751

3422

30%6

3189

34278
1349
301

30518

222%¢

2369
241
25128
27600

2912

2983¢

3087

31288

3200

1418
12363

16178
12552

July

1365%
1878

13668
1883

20683
27312
3300

208535
2732
3310

20928
27728
3338z

1958

19728

J19%&

13642
1876

1953

3228

3374

10785

36988
3711¢
1672

32263

3363

1077

200

2851

3353

1072

31068

20613
2730
3293

1585

3299
3499

10718

2978

1951

= 000020

1002
995
780

29728

1363
1875

001556
001560
004622

1000
991
’7?

2967

34158

1583

3288
3495

1003

2918

3035

006246
001570

1541

3279
3493

3555

1050
1058
10578
10888
683

36328

1540

3273
3u82x

SEQ 008y

1664

1083
10548
1053
1080
6828

6868

1208
9994

003666
003676
00370%
003650
001440

001540

28-RPR-78
13:48
PRGE 85
CROSS REFERENCE TABLE -- USER SYMBOLS

999%
836
3574

10778
1085
1093

209

98ue
9N
9914
9954
988
246

1073
10828
10908

19288

XMTINT
XMTLVL
XMTTST

1538

3260
J481%

004006
00803~
00M062

HHERE
017626
WHICH
0177228
X
= 0001%6

XMiTD
XMTDAT

30A(1052)

19598

J43I9

18278

1999

18y1

20088

2026

1865

20318

21438

21606

2169

2175

23018

2307

23128

2318

220

2378
29468
2518
2811

29178
299

30628

32058

Jwne
1588
1287

22358

23008
2482
2519
28168

2923

29%8

3068

3139

3211

Ju518
2615
1333

1362
18042

18012
1891

21098
2789%
3

21168
280M%

2549%
2829%

1963

18464

1967

IN10Z
1892

1969

22wt

2386
0578
I"NE
2852

2928
3000

22%68

23918
2463
2578
20628

29N

J005¢

3023

3079

32168

3313

27273
133wz

3236
13382

3188
Jusg

1912
18942

31508

%638

18708

20%8

21808

2252

23238

2397
29688
25818
2368

29398

1897

218

22578

2329

28028
2%
2602
2873¢

19028

21918

22688

208
%798
26078
2879

24154
248
26313
2884

3022

3027%

29508

308%

30%

30958

33188

3338

3156
3Iv70

1336z

30168

31618

758
1332

20773

2197

2263

238

23S

3011

17708

1923

3167

232

2956

3101

3172%

3wQ3s

3w10

13962

13582

3506

35118

15782
1909

1599T
1910

2662F
28381

2623k
28S

26622
3246t

22008
3277

27012
3278%x

2702
3280

1988

1986

1988

16027
1912

20208

1603:
19342

20248

18522
19502

20352

6938
6%8
128¢

1063%
2155
2172

12608

2129%

218885

21563

25u1s

2183

21%

2205

2216

2227

2238

2249

2260

2271

2282

2293

5248

2164

21748

2175

21858

2186

219%

2192

2207¢

2208

2218¢

2219

2229¢

23w2

2388

2383

23638

236M

230

2230

23068

2315

22408
2307

2326

224y

23178

2337

22518

2318

2252

23288

22628

2329

2263

23398

2273

23v0F

227

228\

2288

22958

22%

CZDMRDO DM11R LGC TST
HACY11
CZDMRD. P11
28-RPR-78 13: 4y

23248
2441
2517%
2922¢
2989
3057
31338
3200
1209
659
3683
3686
5278
556
582
608
634
6648

SCTLY

017666
003036
SSUREG
017641
SVALUE
017647
= 020332
$ENDRD

11842

8RR

. BASRE
. BKCSR
. CSR

002110
002114
002112
002106

ABS.

020332

ERRORS DETECTED:

2655
36468
73954
7418
7408
7388

30A(1052)

2375
24518
28564
2923
2999

3067¢
3134
32108
37058
9088
372004
3689
528
558
584

H
7
28-RPR-78
13:48
PAGE 86
CROSS REFERENCE TRBLE -- USER SYMBOLS

23858
2452
2857
29313s
3000
3068
31448

610
636
6688
1242
2658

20663

000
O

2397
24738
28788
2945
30214
30894
3156

532
562
588

534
564

536

6794
1352
2696

DSK2: CZDMAD, DSKZ: C2DMAD. SEQ=DSK2: CZDNAD. P11t
RUN-TIME: 7 11 1 SECONDS
RUN-TIME RATIO: 322/20-15.8
CORE USED:
(25 PRGES)
13K

DOCUMENT PRGES:

23968
2463
2868
29448
3011
3079
31558

61y
640

20903
2114x
1089

2386
24628
28678
293y
30108
30784
3148

616

642

6818
1354
2725

592
618
6Ny
6838
1383
2227

24078
247y
2879
29554
3022
3090
31664

SEQ 0085
2408

24848
28894

30328
31008
3167

24188
2485
2890
29668
30348
3101
3177¢

2419
24954

2967
3035
31118
3178

24298
24%
2901
2977¢
30458
3112
31888

546
572
598
524

548
574

576

552
578

554

628

630

632

788
1561
3504

82%
1590
3585

997
2618
36448

2028
1477
3331

626
652
785

1558
3489

2430
29118
2978
3046
3122¢
3189

24408
2507
2912
30564
3123
3199¢