Digital PDFs

AH-8517H-MC

November 1979

76 pages

Original

4.2MB

view download

OCR Version

4.0MB

view download

Document:	CZDLAH0 DL11-E,C,D DL11 E C-D OFLNE TST NOV 1979 bw
Order Number:	AH-8517H-MC
Revision:	000
Pages:	76
Original Filename:	CZDLAH0__DL11-E,C,D__DL11_E_C-D_OFLNE_TST__AH-8517H-MC__NOV_1979_bw.pdf

OCR Text

DL1 1

’

DL11 E C/D OFLNE TST

CZDLAHO

AH 8517H MC

72 79
L

NOV 1979

:fl'flflfifl

MADE

INUSA

JMAIN,
MACYTY B0AC1052)
28-JUN-79
CIDLAN,P
28=-JUN=79 10:49

.REM
.REPT

10:53

PAGE

IDENTIFICATION
PRODUCT

CODE:

AC=-8516H-M(

PRODUCT

NAME:

CIDLAHO DL11-E,C/D OFLNE

DATE:

JULY

MAINTAINER:

DIAGNOSTIC

AUTHOR:

ROBERT

T1ST

1979
ENGINEERING

WHITTION

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO (HANGE W]THOU!T
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMM]TMENT BY DIG]TAL

EQUIPMENT

CORPORATION.

RESPONSIBILITY

THE

SOFTWARE

FOR ANY

DESCRIBED

DIGITAL EQUIPMENT

ERRORS

THAT

MAY

IN THIS DOCUMENT

LICENSE AND MAY ONLY BE USED OR COPIED
TERMS OF

SUCH

LICENSE.

CORPORATION ASSUMES NO

APPEAR

IN THIS DOCUMENT,

1S FURMISHED UNDER A

IN ACCORDANCE WITH THE

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
USE OR RELIABILITY OF ITS SOF TWARE ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.

1972,1979 BY DIGITAL EQUIPMENT

FOLLOWING ARE

DIGITAL
DEC

(()

TRADEMARKS OF

PDP
DECUS

CORPORATION

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

THE

CORPOPAYION:

MASSBUS

ABSTRACT
TwO SEPARATE DJAGNOSTIC PROGRAMS ARE PROVIDED FOR THE
(ASYNCRONOUS MODEM INTERFACE), CZDLA (DL11=-E OFF LINE

LMAIN.
MACYTY 30A(1052)
28=JUN-79
CIDLANM,. P
28-JUN-79 10:49

10:53

PAGE 2
Sta 0002

TESTS) AND CZDLB (DL11-E ON LINE TESTS).,
THE OFF LINE
TEST TESTS ALL DLY1-E LOGIC . THE OFF LINE TESTS DO NOT

USE OF

A MODEM,

THE ON (INE
QUIRING THE

HOWEVER A SPECIAL JUMPER CONNECTOR H31S

REQUIRE

THE

iS REQUIRED.

TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS REUSE OF MODEMS AND A SUITABLE TERMINAL DEVICE.

THE DL11-C AND DL11-D CAN ALSO BE TESTED WITH THIS OFF LINE TEST.
THESE ARE BOTH TESTED IN MAINTENANCE MODE AND ONLY THOSE TESTS
MARKED C,D IN THE TEST NUMBER ARE EXECUTED. IN ORDER TO TEST C AND

VERSIONS
TO THE

IS NECESSARY

INSTRUCTIONS

TO MODIFY

CONTAINED

THE

THERE.

TABLE

LOCATION 1300 ACCORDING

TESTS WHICH ARE NOT EXECUTED FOR DL11C+D CAN BE PERFORMED BY
USING THE SELECT SWITCH OPTION (SR9). TEST 56 IS A DATA TEST WMICH

CAN BE USED FOR CABLE TESTING DL11-D'S. WARNING=-A
MAY OCCUR DUE TO A SPLIT BAUD RATE OF RCVIR/TXVIR.

THIS

DOCUMENT

THE

AVAILABLE

PRGO
PRGI
PRG?
PRG3

PRG4

DESCRIBES

TESTS

THE

OFF

LINE

FAILURE

TESTS.

ARE:

INPUT/OUTPUT LOGIC TESTS
TRANSMITTER SCOPE LOOP
RECEIVER SCOPE LOOP
SINGLE CHARACTER MAINT. MODE DATA TEST
SPECIAL BINARY

COUNT MAINTENANCE MODE

DATA

TEST

REQUIREMENTS

EQUIPMENT

2.2

PDP

DLI1-E OR DL11-C OR DL11-D

SPECIAL JUMPER CONNECTOR HM315 (SEE DL11
FOR DETAILED
DESCRIPTION) IF DL11-E.

SYSTEM

MAINTENANCE MANUAL

STORAGE
THIS PROGRAM USES ALL
FOR THE BOOTSTRAP AND

OF CORE (4K) EXCEPT
ABSOLUTE LOADERS.

THMAT

AREA RESERVED

LOADING PROCEDURE
THE

ABSOLUTE

USE

PROCEDURE

LOADER

1S USED

TO LOAD

TH]S PROGRAM HAS BEEN MODIFIED
A (ONSOLE PROCESSOR.

A CONSOLE MACHINE

THIS

IS USED;

THE

PROGRAM,

TO RUN WITH OR WlTHOU!

THEN THE PROGRAM

TEST

MAIN.
MACY11 30A(1052)
28-JUN-79
CIDLAN.PII
28-JUN-79 10:49

10:53

PAGE 3
SEa 0003

LOOKS AT THE HARDWARE SWITCH REGISTER.
1F A CONSOLE-LESS MACHINE IS USED;THEN THE PROGRAM
AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION
SOFTSR (176) AS A SWITCH REGISTER.
THE PROGRAM WILL PRINT OUT THE PRESENT CONTENTS OF
WHEN THE PROGRAM IS STARTED.
IT WILL THEN ASK FOR

INPUT

TO THE SOFTWARE

BEFORE STARTING ANY OF
THAT

THE

TTY

SWITCH REGISTER.

THE

IN REMOTE

TYPt

THE
THE

CARRIAGE RETURN TO FINISH

SELECTABLE PROGRAMS MAKE

MODE:

AND

THAT

THE

SOFT. SWITCH REG.
NEW CONTENTS 10

SURE

PROGRAM SELECTED

1S A LEGAL PROGRAM,1E. NO.0-4, OTHERWISE AN ERROR MESSAGE
WILL OCCUR. TERMINATE ALL INPUTS WITH A CARRIAGE RETURN.
A MAP OF

DEVICES PRESENT

TYPED OUT

WILL BE

AGAIN UNLESS THE

TYPED

PROGRAM

RUN

TIME.

THIS MAP WwiLL

NOT

RESTARTED AT LOCATION 200. A RESTART FROM THIS LOCATION WILL CAUSE
THE MAP 0; DEVICES TO BE TYPED OUT AGAIN AND THEN A NORMA( START
WitL OCCUR.

4. 1

PRGO
A.

INPUT/OUTPUT
LOAD

ADDRESS

LOGIC

TESTS

000200

(RESTARTY

LOAD

ADDR.

000204)

TYPE PROGRAM NUMBER = 0,
THE DIAGNOSTIC WILL IDENTIFY THE PROGAM YOU SELECTED.
DISCONNECT THE DL11-E FROM THE MODEM AND INSERT THME JUMPER (ONNECTOR IN THE MODEM END OF THE CABLE, AND TYPE CARRIAGE RETURN.
NOTE, IF THE CABLE IS LEFT CONNECTED TO THE MODEM THE FOLLOWING TESTS WILL FAIL:

AT22,AT23,AT25,AT30,AT32,AT56

THE PROGRAM WilLL TYPE OUT INSTRUCTIONS TO SEY IN THE DESIRED
SR OPTIONS. TYPE CARRIAGE RETURN WHEN THE OPTIONS ARE IN THE SR.
THE AVAILABLE OPTIONS ARE:
SR 0-6
ROUTINE TO BE RUN (If ENABLED BY SR9)

SR?7

SR9
SR10
SR11
SR12
SR13
SR14
SR15
C.

DISABLE STALL MODE

LOOP SELECTED ROUTINE
HALT AT END OF CURRENT TEST
INHIBIT ITERATION
SELECT LINE NUMBER AND LOCKX ON 11
INHIBIT PRINTOUT
SCOPE
HALT ON ERROR.

THE PROGRAM WiLL NOW REQUEST THE LINE #(lF SR12=1)
YOU WISH T0O
TEST. TYPE THE LINE # AS REQUESTED, FOLLOWED BY A CARRIAGE RETURN.
LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DL11-E RESPONDS.

LINE 00
CINE 01
LINE 02
LINE 03
LINE 06
LINE 05
LINE 06

77561X
77562X
77563X
77566X
77565X
77656X
77567X

LINE
LINE
LINE
LINE
LINE
LINE
LINE

10
11
12
13
14
15
16

77571x
77572x
77573x
77574X
77575%
77576X
77577X

LINE
LINE
LINE
LINE
LINE
LINE
LINE

20
21
22
23
24
25
26

77601X
77602X
77603
77604X
77605X
77606X
77607X

LINE
LINE
LINE
LINE
LINE
LINE
LINE

30
31
32
33
34
35
36

77611x
77612x
77613x
77614x
77615x
77616X
77617x

INPUT.

JMAIN.

MACY1Y

CIDLANK,.PYY

30A(1052)
28-JUN-79
28-JUN-79 10:49

10:53

SEQ 0004

LINE 07 77570X
THE
ALL

PAGE 4

LINE

17 77600X

LINE 27 77610X

PROGRAM WILL NOW BEGIN TESTING THE DL:1-E OR C/D YOU SELECTED.
DL11'S WILL BE TESTED AUTOMATICALLY AND SEQUENTIALLY

UNLESS SR12
NOTE:
THERE
WHICH
THESE

IS SELECTED.

ALL LOGIC TESTS WILL NOT BE RUN AUTOMATICALLY.
ARE TWO TESTS WHICH REQUIRE MANUAL INTERVENTION
ARE USED TO TEST THE SPEED SELECTION SWITCHES.
ARE TESTS 134,740, TO EXECUTE THESE TESTS USE S$°9 AND

SR 0-6 TO SELECT

REFER

SECTION

THEM,

5.1.2

FOR

ERROR

DESCRIPTION

AFTER ONE COMPLETE PASS THE BELL WILL RING
FOLLOWED BY “END PASS = "* WITH THE NUMBER OF

PASSES

THE

4.2

PRG1
A.

COMPLETED

DEVICE

SINCE

PROGRAM

ADDRESS UNDER

TRANSMITTER SCOPE

TEST

LAST

AND

STARTED

ITS

AND

TRAP VECTOR.

LOOP

LOAD ADDRESS = 000200

(RESTART

= 000204)

TYPE PROGRAM NUMBER = 1,
THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND
REQUEST THE LINE # YOU WISH TO TEST. TYPE THE LINE # AS REQUESTED, FOLLOWED BY A CARRIAGE RETURN,
THE PROGRAM WILL REQUEST A CHARACTER CODE, AND A DELAY
TIME. THE CHARACTER CODE IS THE DATA THE DL11-E WILL TRANSMIT
AND THE DELAY IS THE TIME ELAPSED BETWEEN SUCCESSIVE TRANSMISSIONS OF ONE CHARACTER.

4.3

THE

PROGAM WILL

PRG2 - RECEIVER
A.

RUN WITHOUT

SCOPE

ERROR OR END

TYPEOQUIS.

iOOP

LOAD ADDRESS = 000200 (RESTART
TYPE PROGRAM NUMBER = 2.

= 000204)

THE DJAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTYED, AND
REQUEST THE LINE # YOU WISH TO TESYT, TYPE THE LINE # AS REQ-

UESTED,

FOLLOWED BY A CARRIAGE RETURN.

THE PROGRAM WiLL REQUEST A TEST CHARACTER
TIME. THE CHARACTER CODE IS THE DATA THAT
TRANSMITTING AND THE DELAY 1S THE ELAPSED

SIVE

THE

PRG3 A,

CHARACTERS.

PROGRAM WILL NOW RUN WITHOUT

SINGLE

CHARACTER MAINT

LOAD ADDRESS

- 000200

TYPE PROGRAM NUMBER
THE DIAGNOSTIC WILL

DATA TEST

(RESTART

= 000204)

THE

AND A DELAY
THE DL11-E wiLL BE
TIME BETWEEN SUCCES-

ERROR OR END TYPEQUIS.

MODE

= 3,
IDENTIFY

CODE,

PROGRAM YOU

SELECTED,

AND

MAIN.
MACYY1 30A(1052)
28-JUN-79
CIDLAKM.PI
28-JUN-79 10:49
REQUEST

UESTED,

10:53

PAGE

SE@ 0005
THE

LINE

YOU WISH

TO TEST.

TYPE

THE

FOLLOWED BY A CARRIAGE RETURN.

THE PROGRAM WILL REQUEST A TEST CHARACTER.
ACTER, FOLLOWED BY A CARRIAGE RETURN.
THE

PROGRAM WILL

NOW RUN

URES.
4.

PRG4
A.

SPECIAL

BINARY

COUNT

CONTINUOSLY

MAINT.

MODE

TYPE

REPORTING

DATA

LINE

# AS

THE

ANY

REQ-

TEST

DATA

(HAR-

FAJL-

TEST

LOAD ADDRESS = 000200
TYPE PROGRAM NUMBER = 4.
THE DIAGNOSTIC WILL IDENTIFY THE PROGRAM YOU SELECTED, AND
REQUEST THE LINE # YOU WISH TO TEST, TYPE THE LINE # AS REQ-

UESTED,

FOLLOWED BY A CARRIAGE RETURN.

THE PROGRAM WILL BEGIN TESTING
AND REPORT ANY DATA ERRORS.

THE

LINE

YOU SELECTED.

PROGRAM DESCRIPTIONS

5.1

PRGO THE
MAY

INPUT/OUTPUT

LOGIC

TESTS

INPUT/QUTPUT LOGIC TESTS CONSIST OF 57(B) ROUTINES wHICH
BE RUN IN SEQUENTIAL ORDER OR INDIVIDUALLY LOOPED (SEE

SECT &.1, C FOR SWITCH SETTINGS).
THE
BE INSERTED BEFORE STARTING If DLIV-E.

5. 1. 1

ROUTINE

JUMPER CONNECTOR MUST

DESCRIPTIONS

ROUT INE

AT0-AT3
AT&=-AT27

TESTS
ADDRESSABILITY OF

(SRS & DBRS

DIDDLES ALL BITS IN THE (SRS AND
CHECKS THAT THEY (AN BE READ/WRIYTVEN
PROPERLY.

AT31-AT32
AT133
AT34

PROPER OPERATION OF

RESET

AT35-AT137

PROPER OPERATION OF

DONE BI1

AT40

PROPER OPERATION RECEIVER SPEED SELECT

AT41

PROPER OPERATION OF

DATA OVERRUN

AT42-ATS?

PROPER OPERATION OF

INTERRUPTS

ATS53

READING RXCSR DOES NOT

AT54

ERROR CAUSES

INSTRUCTION

PROPER OPERAYION OF READY BlY
PROPER OPERATION OF TRANSMIT SPEED SELEC'ION

INTERRUPT

(LEAR DONE

MAIN.
MACYTT 30A(1052)
28-JUN-79
C70LAN.PI
¢8-JUN-79 10:49

10:53

PAGE 6
SEQ 000«

ATSS

DATA TEST MAINTENANCE MODE

A156

DATA TEST WITH JUMPER

ATS7

PROPER OPERATION Of

BREAK

’

BIT

ERROR DESCRIPTION

IF A ROUTINE FAILS AND THE [NMIBIT
ENABLED (SR13) A PRINTOUT RESULTS.

PRINTOUT SWITCH IS NOT
THE PRINTOUT FORMAT IS:

T(ROUTINEN)
PC=(P( OF ERROR CALL) RX(CSR=(ADDRESS
AND AN ADD]TLONAL/MESSAGE (IF APPLICABLE)

DEVI(E

INCORRECT

UNDER

TEST)

T005 PC-XXXX RXCSR=XXXX

T122 PC-XXXX

TO RESUME

THE

TESTING PRESS

JUMPER
THE

CONTINUE.

VECTOR PROVIDED BY

A TRAP T0,THE
wiLL OCCUF.

5.1 .3

RXCSR-XXXX DATA S/B:===WA5:===
INDICATING A DATA ERROR

WRONG

THE

INTERRUPTING DL11-F

LOCATION wiL!.

OCCUR

AND

AN FRROR MESSAGE
[

CONNECTOR

JUMPER

CONNECTOR

TFSTS

THOSE

F/F'S,

GATES

(RING

lnochtoa

CARRJER TRANSITION, CLEAR TO SEND, AND ‘SUPERVISORY RECEIVE

DATA)

WHICH CANNOT BE

TEST-D UNLESS DATA SET

IS ACTUALLY

CONNECTED 1O THE DL11 E.
IN ADDITION TO TESTING DLIY-E LOGIC
THE JUMPER ALSO TESTS CABLE WIRING TO/FROM THE DL1V-E/DATA
SET.
THE FOLLOWING !Es1s Witt FAIL IF THE CABLE LS NOT
INSALLED IN THE DL11-E:
g

AT22 ,AT23,AT125,A130,A132,A156

5.2

PRG1-TRANSMITTER SCOPE LOOP

{

THE PURPOSE Of PRG1 IS TO ALLOW SCOPING OF TRANSMITIER
FUNCTIONS IN A RUN CONDITION USING USER SPECIFIED DLIV-E
PARHATER%/AND DATA.
NO ERROR PRINTOUTS ARE PROVIDED.

5.3

PRG2-RECEIVER SCOPE

LOOP

;

THE PURPOSE OF PRGZ IS TO ALLOW SCOPING QF RECEIVER FUNCTIONS
IN A RUN CONDITION USING USER SPECIFIED DL11~t PARAMETERS
AND DATA.
NO ERROR PRINTQUTS ARE PROVIDED.

5.4

PRG3-SINGLE

CHARACTER MAINT

MODE

DATA

’

TEST

PRG3 TRANSMITS, RECEIVES AND CHECKS RECETVED DATA USING USER
SPECIFIED

5.64. !

DL11-E

ERROR PRINTOUTS

PARAMETERS,

AND DATA,

;

CLMAIN.
MACYTT 30A(1052)
28=JUN=79
CIDLAN. P
28-JUN-79 10:49

SELF

5.5

10:53

PAG? 7
Sto 0007

EXPLANITORY ERROR PRINTOUTS ARE

PRGQ4~-SPECIAL

BINARY

COUNT

MAINT

MODE

PROVIDED.
DATA

TEST

PRG4 1S THE SAME AS PRGO ROUTINE S4 EXCEPT THAT
THE

5.5.1

USER

RUNNING

PARAMETERS.

ERROR PRINTOUTS

SELF

6.0

SPECIFIES DL11-E

POWER

EXPLANATORY PRINTOUTS ARE

PROVIDED.

FAIL

A POWER FAIL ROUTINE

INCLUDED

IN THE PROGRAM,

WHEN THE

POWER FAJLS

THE PROGRAM WILL AUTOMATICALLY RESTART USING THE PRESENT 3R OPTIONS
AND THE LINE PREVIOUSLY SELECTED. NOTE: THE POWER MAY FAIL WHEN THE
PROGRAM 1S EXECUTING A 'RESET' INSTRUCTION, IN THIS CASE OPERATOR

INTERVENTION IS NEEDED TO PRESS CONTINUE.

AN ERROR

AND WILL TYPE THE PROGRAM #, THE ROUTINE THAT
THE POWER FAILED (PROGRAM O ONLY), AND THE PC
ROR CALL.
RECOVERED FROM POWER FAILURE.
P(PRGH)
TIROUTINE #) PC = (ADDRESS Of

srnsrverer

ECO

HISTORY

ERROR

TYPEQUT RESULTS

WAS RUNNING AT THE TIME
OF THE POWER FAIL ER-

CALL)

tetrevencen

CHGH1 - NEW STORAGE LOCATIONS FOR REFERENCE IN “G MODE
CHGH2 - CHANGE START UP FOR ENTERING SOFTWARE SWITCH REGISTER

CHGH3 - CHECK FOR “G BETWEEN TESTS.

INFO.

CHGH4 - NEW EMT LOCATION

CHGH3 -~ ROUTINE TO CHECK PRINTOUT, UPDATE SOFTWARE SWITCH REG.
(HGH6 - NEW MESSAGES

FOR SOFf TWARE

CHGH7 - NEW EMT ROUTINE

SWITCH REG ROUTINES.

TO PRINTOUT A <CR> AND <iLf>,

CHGHB - DELETED HALT AND INSTRTED WALV FOR TTY [NPUY
(HGH9 - DELETED HALT AND INSERTED WAIT FOR TTY [NPUl
(X232

X ]

NDR

385
386
387
38

390
391
392

LIST
SEQ,BIN
ENABLE ABS,AMA

;DL11-E,C/D DIAGNOSTIC PROGRAM (OFF LINE

*PRGO- INPUT-OUTPUT LOGIC TESTS

:PRG1- TRANSMITTER SCOPE LOOP
;PRG2- RECEIVER SCOPE LOOP

TESTS)

.MAIN,
MACY1 30A(1052)
28-JUN-79
CIDLAN.PY
28-JUN-79 10:49

393
394
395
3196
397

ISTANDARD SR SWITCH OPTIONS (SWITCH SET TO A 1)
SSR15- HALT

:SR12- SELECT LINE NUMBER AND LOCK ON IT

;SR11-

JTERATION.

IN DATA LIGHTS

;SR7- DISABLE STALL MODE AND RUN FULL SPEED.
:SR6 THROUGH SRO - NUMBER OF ROUTINE 10 BE SELECTED.

:STANDARD CONF IGURATION

s CHARAC TER LENGTH 8

.=0
ERTP

MACHER:

sUNASSIGNED TRAP

ERTP
40
ERTP
100
ERIP
140

:SP OVERFLOW, BUS ERRCR TRAP

JRESERVED INSTRUCTION TRAP
: TRACE

MAPVE(

;POVER FAJL

JEMT

HALY
. =46
L0GIC

-REP1
.42

117,

OPEN=0

[o Yo
X7,

-~y

STATEME
PSW=177

MANUAL=BIT1%
BIT 5=100000

BIT1
BIM
BIT]
BITI

JEQUATE

.ENDR

040000
020000
010000
004000

TRAP

ERTP
340

177776
001176
000240
500000
100000
100000

TRAP

;TRAP TO MAP VECTOR

PRTY?7
PEAIL
PRIY?
EMTINT
PRYY7

000046

;STOP € ODE 2

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042

000000
006042
000000
006042
000040
006042
000100
006042
000140
006150
000340
006370
000340
003064
000340
006042
000340
000042
000000
000046
005446
000165

447

448

INHIBIT

:SR10- HALT AT END CURRENT TEST, TEST NO.
;SR9- SELECT RCUTINE,

— NN

445
456

ON ERROR

TSR14- SCOPE.
:SR13- INHIBIT PRINTOUT

410

L44

Sta 0008

;PRG3- SINGLE CHARACTER MAINTENANCE MODE DATA TEST

400
401
402
403
404
405
406
407
408
409

617
418
619
429
421
422
423
424
425
426
427
428
429
430
431
432
433
L34
435
436
437
438
439
440
441
442
4643

PAG £ 8

;PRG&= SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST

398
399

41
612
413
414
415
416

10: 53

:TRAP 10O TRAP REPORTER

472
473

104000
104001
104002
104003
104004
104005
104006
104007
1064010
104011
104012
106013
104014
104015
104016
104017
1064020
104021
177777
100600

474
475
476
477
478
479
480
481
482
483
484

485
486
487
488
489

490
491
492
493
494
495
496
497
498
499

000170
000172
000174

000170
177570
177570
000000

—
=PI
=2 PSS =S
§

el
ot ettt ol

0 O O O C0 O T 00 O O 0

D 0t 0t 0t bt bt bt ot Bt Gt Pt e

000300
000240
000200
000140
000100
000040
000000

467
468
469
470
471

=5726

POPSP2=022626
PRTY7=340
PRTY6=300
PRTY5=240
PRTY4=200
PRTY3=-140
PRTY2=100
PRTY1=40
PRTY0=0

000340

460

]k —d —d

Sta 0009

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
005726
022626

464
465

500
501
502
503
504

PAGE 9

449
450
451
452
453
454
455
656
457
458
459
460
461
462
463

10:53

DO —=PINI
NO ~00O —
b 2 LI T T T T
O T (R TR T o}

JMAIN.
MACYTY 30A(1052)
28-JUN-79
CIDLAN.PIN
28-JUN-79 10:49

;POP THE STACK, SAME AS TST (6)+
;POP STACK TWICE. SAME AS (MP (6)+,(6)«

:PRIORITY LEVEL DEFINITIONS

TYPE=EMT+0
TYPES=EMT
1

STALL=EMT+2
ERROR=EMT+3

DATCHK=EMT
¢4

CHALT=EMT+S

STRXV=EMT+6
STIXV=ERT+?
EHALT=EMT*10
SRESEV=EMT+11
SCOPE=EMT+1?

SAVREG=EMTY+13

RSTREG=EMT+14

ERROR1=EMT+15

DELAY=EMT+16
TIMERX=EMT+17
TIMETX=EMT+20
SCRLF=EMT
21
ATLAST==1

(b=100000

LIST

SPPIR:
DISPREG:

DISPLAY:

.=170

s (HGOHG
JELAG FOR

C/D

TESTS

ME
177570
177570
OPEN

;SWITCH REG POINTER
:D1SPLAY REGISTER

SOFTWARE DISPLAY REG

SMAIN.
MACYI1 30A(1052)
2B8-JUN-79
CIDLAH.PN
28-JUN=-79 10:49

505
506
507
508
509
2}?

000176
000200
000204

000000
000200
000137
000204
000137
001200

10:53

SWREG:

.=200
JMP
.=204
JMP
.=1200

001656
006550

;7O TEST

518

;SOf TWARE REGISTER

dNSTARTZ

;G0 TO START OF

THAT

001200
001202
001204
001206
001210
001212
001214
001216
001220
001222
001224
001226
001230
001232
001234
001236
001240
001242
001244
001246
001250
001252
001256
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300

175610
175620
175630
175640
175650
175660
175670
175700
175710
175720
175730
175740
175750
175760
175770
176000
176010
176020
176030
176040
176050
176060
176070
176100
176110
176120
176130
176140
176150
176160
176170
177777
177777

PRCGRAM.

INRESTART

LINE NOT

DEVICE NOT FOUND

FOUND CLEAR BITO IN THAT

:IN THIS TABLE AFTER MAPPING DONE

516

DEVICE

ADPRESS

JERRRREANRARNNRONRRELIEY

RXCRO:
RXCR1:
RXCRZ2:
RXCR3:
RXCR4:
RXCRS:
RXCR6:
RXCR7:
RXCR10:
RXCRY1:
RXCR12:
RXCR13:
RXCR14:
RXCR15:
RXCR16:
RXCR17:
RXCR20:
RXCR21:
RXCR22:
RXCR23:
RXCR24:
RXCR25:
RXCR26:
RXCR27:
RXCR30:
RXCR31:
RXCR32:
RXCR33:
RXCR34:
RXCR35:
RXCR36:
XORADD:
RXEND:

;LINE
;LINE
;LINE
;LINE
;LINE
:LINE
;LINE
;LINE
;LINE
sLINE
;LINE
;LINE
;LINE
sLINE
;LINE
;LINE
;LINE
;LINE
:LINE
:LINE
¢LINE
;LINE
;LINE
:LINE
:LINE
;LINE
;LINE
;LINE
;LINE
;LINE
;LINE
:LINE
;LINE

O DEVICE ADDRESS (RX(SR)
1 DEVICE ADDRESS (RXCSR)
2 DEVICE ADDRESS (RXCSR)
3 DEVICE ADDRESS (RX(CSR)
& DEVICE ADDRESS (RX(CSR)
5 DEVICE ADDRESS (RXCSR)
6 DEVICE ADDRESS (RXCSR)
7 DEVICE ADDRESS (RXCSR)
10 DEVICE ADDRESS (RXCSR)
11 DEVICE ADDRESS (RXCSR)
12 DEVICE ADDRESS (RXCSR)
13 DEVICE ADDRESS (RXCSR)
14 DEVICE ADDRESS (RXCSR)
15 DEVICE ADDRESS (RX(CSR)
16 DEVICE ADDRESS (RXCSR)
17 DEVICE ADDRESS (RXCSR)
20 DEVICE ADDRESS (RXCSR)
21 DEVICE ADDRESS (RXCSR)
22 DEVICE ADDRESS (RXCSR)
23 DEVICE ADDRESS (RXCSR)
24 DEVICE ADDRESS (RXCSR)
25 DEVICE ADDRESS (RX(SR)
26 DEVICE ADDRESS (RX(SR)
27 DEVICE ADDRESS (RX(SR)
30 DEVICE ADDRESS (RX(SR)
31 DEVICE ADDRESS (RX(SR)
32 DEVICE ADDRESS (RXCSR)
33 DEVICE ADDRESS (RXC3R)
34 DEVICE ADDRESS (RXCSR)
35 DEVICE ADDRESS (RXCSR)
36 DEVICE ADDRESS (RX(SR)
37 SPECIAL ADDRESS FOR XOR
XX DEVICE ADDRESS (RXCSR)

551
552
553
554
595
556

;CHARACTER LENGTH, PRIORITY, (/D MASK
¢INITIALLY SET FOR DL11-E, PRIORITY=4,CHARACTER LENGTH=8
;BIT 15 SET TO A 1 = THAT LINE HAS DL11-C OR DL11=D
;EX: 160377 = DL1IC OR DL11D, PRIORITY = 4, CHARACTER LENGTH
;BITS 12-14 = PRIORITY LEVEL THAT LINE
;BITS 0-7 = CHARACTER MASK EX. 377-8, 177=7, 77=6, 37=5

JYTENRSTIESIEIOEITIETQOTSL

558

001302

040377

(MASO:

040377

560

001306

040377

(MAS2:

040377

559

OPEN

:DEVICE ADDRESS L]ST
;LSB BITO IS SET 70 A 1 BY MAPPER

514

SEQ O¢°

512
513

517
518
519
520
521
522
523
526
525
526
527
528
529
530
531
532
533
536
535
536
537
538
539
560
561
562
563
566
545
546
5647
548
Sgg

PAGE

001304

040377

(MAS1:

040377

;LINE O CHARACTER MASK, PRIORITY, (/D FLAG

;LINE

CHARACTER MASK, PRIORITY, €/D FLAG

;LINE 2 CHARACTER MASK, PRIORLITY, U/D FLAG

PAGE

610
611
612

613
614
615
616

001410
001412
001414
001416
001420
001422
001424
001426

;LINE
sLINE
sUINE
sLINE
sLINE
sLINE
sLINE
;LINE
;LINE
sLINE

sLINE
sLINE
LINE
;LINE
sLINE

G O VN S

TP T V)
ol LV T TV IV VT T

: 040377
: 060377
: 040377
: 060377
: 040377
: 040377
: 040377
: 040377
: 040377
: 040377
: 040377

JLINE

CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER

AN D U AU NI OV P NI )
b oot b
b el e et ek
S ONOWNEMNWN
O ~NO N
NN —O

001402
001404
001406

: 04

JLINE
sLINE
;LINE
;LINE
sLINE
sLINE
;LINE
JLINE
JLINE
;LINE
sLINE

32
33
34
35
sLINE 36
cLINE 37

MASK,
MASK,
MASK,
MASK,
MASK,

PRIORITY,
PRIORITY,
PRIORITY,
PRIORITY,
PRIORITY,

CHARACTER MASK, PRIORITY,
CHARACTER MASK, PRIORITY,
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER

MASK, PRIORITY,
MASK, PRIORITY,
MASK, PRIORITY,
MASK, PRIORITY,
MASK, PRIORITY,

CHARACTER MASK,
CHARACTER MASK,
CHARACTER MASK,

CHARACTER MASK,

CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER
CHARACTER

(/D
(/D
(/D
(/D
(/D

MASK,
MASK,
MASK,
MASK,
MASK,
MASK,
MASK,

CHARACTER MASK,
CHARACTER MASK,
CHARACTER MASK,
CHARACTER MASK,
CHARACTER MASK,
SPECIAL ADDRESS

PRIORITY,
PRIORITY,

PRIORITY,
PRICRITY,
PRIORITY,
PRIORITY,
PRIORITY,
PRIORITY,
PRIORITY,

PRIORITY,
PRIORITY,
PRIORITY,
PRIORITY,
PRIORITY,
FOR XOR

CMAS37:

040377

000000
000000
177740

GHASK:

RMASK:

0
0

;MASK
cMASK
sPMASK

000000
000000
000000
000000
000000
000000
000000
000000

RXCSR:
:
RXBUF
TXCSR:
TXBUF
:
RXVIR:
RXLVL:
TXVIR:
TXLVL:

;RECEIVER UNDER TEST
;RECEIVER BUFFER UNDER TEST

STLMSK:

177740

FLAG
FLAG
FLAG
FLAG
FLAG

(/D FLAG
(/D FLAG
(/D
(/D
(/D
(/D
(/D

FLAG
FLAG
FLAG
FLAG
FLAG

(/D
(/D
(/D
(/D
(/D
(/D
(/D
(/D
(/D

FLAG
FLAG

PRIORITY, (/D FLAG
PRIORITY, (/D FLAG

[~]olelelelele]
o]

001370
001372
001374
001376
001400

040377
040377
040377
040377
040377
040377
040377
040377

[=lelelelelo]e]

CMAS7:

NNNNNNNNNNNNSNNNN~N
NNNNNNNNNN
NN NN
NN

04
04

CMASG:

040377

607
608
609

CMASS:

040377
040377
040377
040377
040377
040377
040377
040377
040377

603
604

CMASS:

OO0O0O0O0O0OO0OODDOOOO

CMAS3:

W oo batabad

561
562
563
564
565
566
567
568

10:93

MACYIY 30A(1052)
.MAIN.
28-JUN-79
CZIDLAH PN
28-JUN-79 10:49

(/D
(/D
(/D
(/D
(/D

001432
001434
001436
001440
001442
001444
001446
001450
001452
001454
001456

177560
177562
177564
177566
000060
000200
000064

000200
000000
000000
000000
000000

TKS:
TKB:
1PS:
1PB:
TKVIR:
TKLVL:

TPVIR:
TPLVL:
PRGNUM:
KSTART:
CURTST:
RTNNO:

177560
177562
177564
177566
60

STRANSMITTER (SR UNDER TEST
sTRANSMITTER BUFFER UNDER TEST

;RECEIVER VECTOR UNDER TEST
¢RECEIVER PRIORITY LEVEL Ul

: TRANSMITTER VECTOR UNDER TEST
cTRANSMITTER PRIORITY LEVEL UT

PRTY4
64

PRTYS
OPEN
OPEN
OPEN
OPEN

:LSR (SR

;LSR
sLSP
:LSP
;LSR
;LSR
;LSP

FLAG
FLAG
FLAG
FLAG
FLAG

FOR DEVICE UT
FOR CHAR LENGTH FOR DEVICE
FOR MAX RANDOM STALL

:"lt." (A2222222022
XR]

001430

FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG

BUFFER
(SR
BUFFER
INTERRUPT VECTOR
PRIORITY LEVEL
INTERRUPT VECTOR

;LSP PRIORITY LEVEL

; CONTAINS CURRENT PROGRAM#
; CURRENT PROGRAM START ADDRESS.
;CONTAINS ADDR OF CURRENT TEST,
+CONTAINS CURRENT TEST &,

617

618
619
6¢0
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640

641
642
643
644

645

646

647

648

649

650
651
652
653
654
655
656
657
658
659
660

661

662
663
664

665

666

667
668
669

670

671
672

001460
001462
001464
001466
001470
001472
001474
001476
001500

001502
001504
001506
001510
001512
001514
001516
001520

001522
001524
001526
001530
001532
001534
001536
001540
001542
001544
001546
001550
001552
00155¢4
001556

001560
001562
001564
001566
001570
001572
001574
001576
001600
001602
001604
001606
001610
001612
001614
001616
001620
001622
001624
001626
001630

001632
001634

000000
000000
000000
000000
000000
000000
006602
014662
014734

10:53

PAGE

SEQ 0012
TNNO:
NXTST:

ICTR:

SCOPTR:
OLDPS:
FMAP:

PRGTAB:

015032
015072
005244
005244

005244
003440
003562
004072
005652
005560
000000
003216
003252
005516
003306
002632
003116
003156
005674
004024
004142
004152
004212

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

OPEN
OPEN
OPEN

0
0

PRGO
PRGY
PRG?
PRG3

PRG4

EMTTAB:

INCRPG
INCRPG
INCRPG

DLY
TMRX
TMTX

$SCRLF
OPEN
OPEN

OFEN

OPEN
OPEN
OPEN
CTIR3:
OPEN
CTRG:
OPEN
CIRS:
OPEN
CTR6:
OPEN
CIRY7:
OPEN
TXCSRT: OPEN
RXCSRT: OPEN
T: OPEN
RXBUF
FOUNDV:

:
FNONE
10PC:

;MAPPING FLAG,

1= MAPPING

;PRGO START ADDRESS

;PRG1

START

ADDRESS

;PRG4

START

ADDRESS

IN PROGRESS

;PRG2 START ADDRESS
;PRG3 START ADDRESS

: INCORRECT PROGRAM SELECTED

;POINTER TO ERROR MALT ROUTINE.

RSTRG

LINENO:
TEMP:
TEMPY:
TEMPZ:
COUNT:
FYITLE:

TEST.

EHLT
SRSETY
CHAINN
SAVRG

ERRT

CRBUF:

;CONTAINS CURRENT ITERATION COUNT
;CONTAINS CURRENT SCOPE POINTER,
:PS SAVED FROM TRAP 10 EMT ROUTINE

;POINTER TO
;POINTER TO
;POINTER TO
;POINTER TO

DTCHK
OPEN
STLSRvV
STLSPV

(RBUFA:
CRBUF :
CTRO:
CTRY:
CTIRZ2:

:CONTAINES EDJTED TNUM

; CONTAINS ADDR OF

TYP
TYPS
STAL
ERR

0
0
OPEN

CTOOLOO

-MAIN.
MACY1 30A(1052)
28-JUN-79
CIDLAK.P
28-JUN-79 10:49

TYPEOUT ROUTINE
CHAINED MESSAGES ROUTINF
RANDOM STALL ROUTINE
ERROR ROUTINE

MACY11 30A(1052)
MAIN,
28-JUN-79
CZDLAH P11
28-JUN-79 10:49

678

679
680
681

682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704

705
706
7G7
708
709
710
43
712
713
714
715
716
717
718
719
720
721
722
723

724
725
726

727

728

SEQ 0013

000000
000000

FROMPC:
PASCNT:

0
0

;tt""""

001642
001644
001646
001650
001652
001654

000000
000000
000000
000000
000000
000000

T18:
TEMPST:

COUNTT:

FILL:
MODE:
CNT:

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

CHGHY

(I AARAS

]

: TEMPORARY KYBD BUFFER STORAGE
; TEMPORARY WORK

;""t"""""t'l""'tt""

001656

012706

01176

STARTZ:

MOV

¥SPBOT,%6

:'."."""""""'

001662
001666
001672
001700
001706
001710

001712

001714
001722
001730
001734
001740
001746
001750
001754
001760
001764
001770
001774

013746
013746
012737
022777
001402
000407
022626
012737
012737
012637
012637
022737
001015
004737
013701
012721
013721
005777
012777

000006
000004
001712
177727

000176
000174
000004
000006
000176
015256
001440
015502
001442
177436
000100

CHGHZ:

000170
000172
000170

MOV

648 :
65%:
€6$:
67$:

&,-(SP)

(MP
8EQ

#-1,3SRPIR
65%

B8R
POPSP?2
Mov
Mov

MOV
MOV
cmp
BNE

JSR
MOV
Mov
MoV
187
Mov

177426

6.-(SP)

Mov

000004
176262

F64S ., a0t

66%

002002
002006
002012

002110

005037
013746
012737
005737
012637
012737
012737
104000
002054
000137
005015
051101
040440
020122
J51105
002110
000000

002112

02262¢

002020
002024
002030
002036
002044
00206
002059
002054
002062
002070
002076
002104

001630
000004
002112
177060
000004
174000
177777
002136
047531
020105
020116
042526
100

60$:

030004
001276
002110

02 12
04 11
04 5%
05 12

:SAVE CURRENT VECTOR

:SET UP LOC. 4 FOR NON-EXIS MEM TRAP

;REFERENCE HARDWARE SWIT(H REGISTER
;1F 1T = -1,USE SOFT SW REG

#SWREG,SRPIR

(SP)+, a4
(SP)+, 306
#SWREG,SRPTR
60%

SRESTORE
:SAME AS
;1S SOFT
;1F NOT,

PC,CNTLY
TKVIR,R1
STTINTS,(R1)¢
TKLVL,(R1)¢
a7kB
#100,37xS

aFFTITLE

1S1

arir7060

MOv
MmCv

#174000,3#XORADD
#-1,aM0RFLG

MoV

JSET UP STACK POINTER

#DISPLAY ,DISPREG ;POINT

CLR

Mov
MoV

LOCATION

;LOOP COUNT FOR TEST
;LERO FILL SWITCH
;NUMBER OF DIGJTS TO TYPE
:1TERATION COUNT

:THEN USE HARDWARE SW REG
+CORRECT THE STACK, NO HDWE Sw REG
:POINT TO SOFT SW REG

sessssatteRRRCREERAOOYY

~3wW

677

PAGE

TO SOFT DISP REG

VECTORS
ABOVE
SWREG SELECTED
BR OVER SOF TWARE OPER

:SOIT SW REG INPUT ROUTINE
;SET UP TO INSTALL VECTORS
;VECTOR ADDRESS TO LOC 60
sPRIORITY TO LOC 62
sCLEAR DONE FLAG
sSET TTY INTERRUPT ON

ars ,-(X6)
#XORA, 386

(36)+,a04

MESST:

TYPE
MESS1
JMP
LASCII

A¥START
<15><12>'YOU ARE ON AN XOR VESTERa®

XORFLG:

.EVEN
.WORD

XORA:

(mp

(X6)¢,(X6)+

WNO

676

001636
001640

673
674
675

10:53

MALIN,
MACY11 30AC1052)
28-JUN-79
CIDL AH PN
28-JUN-79 10:49

729
730

731
732

733
734
735

002114
002120
002126
002132

012637
012737
005037
000137

000004
177777
002110
002136

10: 53

PAGE

S€Q 0014

001276

736

Mov
(LR
JMP

Mov

(R6)
¢, aN4
#-1,3#X0ORADD
IVXORFLG
@¥START

.MACR

TSTAA

AX,B.(C,D,E

;!'.""t"""'t""""""'."""""

737
738
739

AT'E':

"""l"'t"'"""""""""""'Q"

(

;TEST NUMBER
;ADDRESS OF NEXT

AT'D'
B
CAX'A
X=X+1

740

741

762

743
744
745
746
47
748
749
750
751
752
753
754
795
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
77
778
779
780
781
’82
783
784

:1TERATION COUNT

: SCOPE

TEST

ENTRY POINT

:"""'f."'t'""""""""'.""""'.'.'

l"""l"'l't"'t""l""'ll."'

.ENDM
LMACR
TSTAA
.ENDM

002136
002142
002150
002154
002160
002164
002170
00217¢
002176
002200
002202
002206
002212
002220
002224
002230
002232
002236
002242
002246
002250
002252
002256
002260
002262
002266
002272
002274
002276
002300

002302
002304
002310
002312
002320
002324
002326

012706
012737
005037
005037
004737
00737
005737
001054
1064000
015710
005237
005037
012737
012704
021437
001430
042714
005037
005774
000240
000404
052724
022626

000761
012437
004537
001622
016001
000006
104000
016001
005237
000745
012737
005737
001424
012701

001176
006370
001614
001472
003376
003614
001630

001630
001632
002252
001200
001300

000024

START:

(LR
(LR
JSR
JSR

600004
FAPA:

157
NOP

000001

MAPNE:

001622
004624

MAPOK:

BIS

POPSP2

MOV

JSR

TEMP1
MDEVAD
6
TYPE
MDE VAD

001632

001200

151
BNE
TYPE
mri
INC
CLR
Mov
MOV
(MP

BEQ
BIC
CLR

000001
177776
000000

006042
001632

MOV

MoV

000004

MAPEND:

START1:

INC
B8R

MOV
181

BEQ
MOV

TSTA
B,AX,Z
AX B, \X#142 \X42,\X¢1

#SPBOTY,%6

;SET BOTTOM OF SP STA(K.

27.CLRCD

;CLEAR DEVICE UT PARAMETERS

FTITLE

;TITLE

PPFAIL,
24
£ OUNDV
FMAP

X7.,0VRLAY

:OVERLAY TRAP AREA

STARTY

FYITLE

F NONE
SPAPNE ,MACHER

SRXCRO, X4
(X&) ,QFRXEND
MAPEND

PRINTED AND MAP MADE

;YES, SKIP OVER THIS

’

;CLEAR DEVICE PRESENT FLAG
;SET UP NO DEVICE PRESENT RFTURN

;SET UP DEVICE POINTER
sLAST DEVICE
JYES, EXIT

;glto.<4>

;CLEAR ODD ADDRESS

JTESY DEVICE

MAPOK
#BIT0, (&)

;NOT

MAPA
(6)+,TEMPY

;SAVE DEVICE

%5.0ACNY

f NONE
MAPA
NERTP,MACHER
F NONE
MAPERR
#RXCRO,
X!

;SET

LIVING

HWAVE

ADDRESS FOR

DEVICE

:RESET TRAPS
JANY DEVICES PRESENT
:NO, ERROR

TYPING

800
801
802
803
804
805
806
807
808
809
810
81
812
813
814
815
816
817
818
819
820
821
822

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

002332
002336
002340
002344
002352
002356
002360
002364
002366
002370
002374
002376
002400
016055
002402
005737
002406
001402
002410
000137
002414
005037
002420
000000
002422
000137
002426
012737
002434
005037
002440
005037
104000
002444
002446
016021
002450
004737
002454
012600
002456
042700
002462
010037
006300
002466
002470
000170

002474
002502
002510
002516
002522
002526

002530
002534
002540
002546
002550
002554
002556
002562
002564
002570
002572
002576
002602
002606
002610
002614
002622
002624
002630

013737
012737
012737
005037
012706
1064011
005037
004737
032777
001011
005737
100003
005737
100364
000177
000466
017700
042700
123700
001002

000177
022737
001344
004737
000721

000001

001616
001200
001616

PAGE

S€Ea 0015

STARTZ:

001616

START3:

00130C

MAPERR:

HALT

001640

JMP

MOV

{LR

CLR

JSR
Mov

177770

BIC

001450

MOov
ASL
JMP

001474
001462
000004
000006

175422

001402

GETRDY: MOV

GIRDYX: mov
MOV
(LR
MOV
SRESET
(LR
GTRDYA: JSR

817
BNE

TST
BPL

001456

1§1

BPL
GTRDA1: JMP
BR
GIRDY(: MOV
BIC

176664
175372
177600

001456

005234

START4:

TYPE
PGMSG

003652

176640
177777

STARTS
X1, LINEND

CMPB

001462

BNE
JMP
GTRDYD: (mp
BNE
JSR
BR

;1S DEVICE LIVING
:NO, CHECK FOR END

;CALCULATE

LINE

;YES,

AND EXIT

LOAD

NUMBER UNDER

TEST

;END OF TABLE
:NO, LOOP
;MONITOR LOAD

BEQ
JMP
CLR

005436
001630

177776
003032
001000

JSR
BR
151
CMP
BNE
TYPE

#8170, (1

MNONE
181

000042

001452
006042
000040
001472
001176

Bl
BNE
Mov
SuB
ASR

MoV

006226

002136
000001
177776
001456

~NPE~M
W

785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

10:53

MACY1T 30A(1052)
MALIN,
28-JUN-79
CIDLAN P
28-JUN-79 10:49

sNO, CONTINUE
SYES, EXIT

STAKRT

#1,PASCNT
PSW
RT*.NO
:CALL

FOR PROGRAM NUMBER.

PC,RDOCT

sREAD

10, PRGNUM
10
SPRGTAB(0)

;G0 TO SELECTED PROGRAM.

(SP)+,%0
#177770,20

KSTART NXTSY
FERTP MACHER
#40,MACHER+?
F AP
#SPBOT X6
PSW

%7,FORWD
#B119,3SRPIR

GTRDY(
UMASK
GTRDAY
RINNO

GTRDYA
SCURTSY
CHNB
aSRPIR,X0

#177600,%0
RTNNO,X0
GYRDYD
sCURTST
=1 ,NX187

GIRDYA

X7, INCRIN
GETRDY

IN PROGRAM NUMBER.
; INPUT DATA TO RO
sLIMIT (SR) 10 BITS 3-0
:SAVE PROGRAM »

cADDR OF 1ST ROUTINE TO NXTSY
sRESET MACHER TRAP.
sSET BOTTOM OF
< 1SSUE RESET.

STA(CK.

+ROLL FORWARD 70 'NEXT'" ROUTINE.

sCHECK SELECT ROUTINE SwlT(w
¢BRANCH IF SELECT ROUTINE SWIT{M 1S SET,
;C/D DEVICE

sNO,

CONTINUE

sTHIS A C/D TEST

sNO, DO NEXT TEST
;60 RUN CURRENT ROUTINE.

sNO GO. MANUAL RTN BYPASSED.
:(SR) 10 RO

sMASK UNDESIRED BI1S

sCOMPARE RTNNO YO (RO)

sBRANCH ]* ROUTINE NOU FOUND 87,

;G0 RUN ROUTINE.
NO. CHECK FOR LAST ROUTINE.
JBRANCH 1F NOT LAST ROUTINE.
JYES. INCORRECT ROUVINE SELE: "t1 .
JSTART QVER,

MAIN,
MACY11 30A(1052
28-JUN-T79
CZOLAH.P
28-JUN-79 10:49

013746
012737
005737
012637
032777
001003
005337
001352
022626
032777
001405
013700
0427C0
000000
032777
001247
022737
0012446
004737
000640

002774
002776
003002

022626
012637
000721

100011

015204
040000

PAGE

CHGHS:

17532¢

CHAINN:

001466

CHNAB:

002110

CHNA:

000004
002774
177060
000004
004000

00000«
175256

1%:

001464
002000

175236

CHNAA:

001456
100000

001000
127777

JSR
Bl
BEQ

MOV
R1]
181

BPL
MOV
MOV
1871
MOV
811
8NE

DEC
BNE
POPSP?2
BIT
BEQ

Mov

175214

CHNB:

001462

005256

BIC
HALTY
BIT
BNE
cmp
BNE
JSR

B8R
XOR:

000004

CMP
MoV

PC,(KSWR
#BIT14 ,3SRPTR
CHNA
SCOPTR,aX6

INXORFLG
1%
aNs,-(%6)

;SEE IF A *G HAS BEEM GIVEN
:(HECK FOR SCOPE OPTION.
;BRANCH [F SCOPE SW NOT SET.
;SET UP TO RETURN TO RCUTINE.

RETURN

TO ROUTINE.

FXOR,aN4

an177060

(X6)+ N6
#BIT11,3SRPIR
CHNAA
I1CTR
(HNAB

#BIT10,aSRPIR
CHNB
RINNO,
X0
#B1715,%0
#BIT9,ASRPIR

GETROY

#=1,NXTST

GIRDYX
X7 ,PRGEND
GETROY

;TEST

FOR

STEST

INHIBIT

XOR

ITERATION SWiT(M

;BRANCH 1F

INHIBIT

:BRANCH IF

COUNT NOT O,

ITERATION 5W SET.

;DECREMENT ITERATION COUNT.

;POP

STACK

TWICE

sCHECK SELECT ROUTINE SWIT(H
:BRANCH IF SELECT RIN Sw SET
SLAST

TEST?

sBRANCH [f NOT LAST TEST,

:PROGRAM END.

(%6)+,(26)¢
(X6)+ .04
CHNAB

;lNll FOR C/D - WITHOUT JUMPER RESET STARTS ASSEMBLING CHARACTER SETTING DGNE
003004
003010
003012
003020
003022
003024
003030

002734
005777
000207

003032
003036
003042
003046
003052
003056
003062

003064
003066
003072

005737

001402

052777

000004

100007

104016

NN ANNINO
NNNNNW

885
886
887
888
889
890
891
892
893
894
895
596

002646
002652
002656
002660
002662
002666
002676
002700
002704
002712
002714
002720
002722
002726
002732
002734
002740
002744
002746
002754
002756
002764
002766
002772

NANANN
N

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

002644

004737
032777
001403
013716
000002
005737

OO0O0O0O0OO0O

845

846
847
848

002632
002632
002636

O—=0O

84
842
843
844

10:53

176362

001462
001656
001462
001464
001466
001454

000002
000000

;SET MAINT, DELAY, CLEAR RX DONE

CDINIT:

176374

(DINX:
FORWD:

181
8PL
81s
DELAY
1500.

UMASK
COINX

#BIT2,QTXCSR

:C-D DEVI(E
:NO, EXIT
sSET MAINT BIl1Y
JWALT

1.5

SEC

181
RTS

;CLEAR RX DONE

MOV
MOV

+ADDR OF

Mov
Mov
MOv
Mov
RTS

EMTINT: MOV

suB
MOV

NEXT ROUTINE

Y0 RS.

;GET NEXT ROUTINE NUMBER.
sGEY ADDR OF NEXT "NEXT'' ROUTINE.
sGEY ITERATION COUNT.
;GEY SCOPE LOOP ENTRY POINTER.
;ADDR OF NOW CURRENT TEST 10 _URTST,
;EXIT FORWD SUBROUTINE.

(GET SAVED P(.
+DECREMENT PC BY 2,

MACY1Y 30A(105¢2)
.MAIN
28-JUN-T79
CZDLAN PN
28-JUN-79 10:49

908

909
910
911
912
913
914
915

916

917

934

935
936
937
938
939
940
941
942
943
bty
945
946
947
948
949
950
951
952

17
_)Eu

ASL
Bi(

ak6
#177001,9%6

JMP

a(6),a%6
3l6)+

ADD
MOV

JEMT ARG X 2.
;REMOVE 7 MSB.

NEMTTAB,a%é

;FORM

;60

EMT

RTN ADDR,

TO EMT

ROUTINE.

013746
013746
000002
000000
000000

"»ro

WA~

003116
003122
003126
003130
003132
003134
003136
003140
003144
003150
003152
003154

*SAVE REGS 0 10 & SUBROUTINE.
SAVRG:

003154
003152
SVRP(:
SVRPSW:

MOv
MOov
MoV
Mov
MOv
Mov
MoV
MOV
Mov
RTI
OPEN

(6)+,SVRPC
(6)+,SVRPSW

:SAVE PC AND PSW.

sSAVE REGS 0 - 4
JIN STACK,

13.-(6)
%2,-16)

x1,-(6)
10,-(6)
SVRPSW,=(6)

JRESTORE

SVRPC,=(6)

AND PSW.

JEXLT,

OPEN

*RESTORE REGS 0 10 4 SUBROUTINE.

918

919
920
921
922
923
924
925
926
927
928
929
930
931
932
933

PAGE

EMTA:

177001
001514
000000

(=3 =4
[=l=]

904
705
906
907

w
~

901
902
903

006316
062716
062716
017616
000136

900

003076
003100
003104
003110
003114

897
898
899

10:53

003156
003162
003166
003170
003172
003174
003176
003200
003204
003210
003212
003214

012637
012637
012600
012601
012602
012603
012604
013746
013746
000002
000000
000000

003216
003222
003230
003234
003240
003244
003250

004737
017637
062716
013701
012721
013721
000002

006424
000000
000002
001420
000000
001622

003252
003256
003264
003270
003274
003300
003304

004737
017637
062716
013701
012721
013721
000002

006424
000000
000002
001424
000000
001426

003300

012700

052525

003212
003214

RSTRG:

003214
003212
RSTP{:
RSTPSW:

003242

MOV
Mov
Mov
MOov
MOV
mov
MoV
Mov
MoV
RTI
OPEN
OPEN

(6)+,%0
(6)+,%1
(6)+,%2

(6)+,%3
(6)¢ %4
RSTPSW,~(6)
RSTP(,-(6)

sSAVE P( AND PSu.
¢RESTORE

REGS 0 - ¢

;FROM STA(K,

SRESTORE P( AND PSW.
JEXlY

;ROUTINE TO SEV RECEIVER INTERRUPY VECTOR AND PRIORITY
STLSRv: JSR
X7,VSTVEC
MOV

STPRA-

ADD
MoV

MOV
mO.
RT1

.ROUTINE

003276

(6)+ ,RSTP(
(6)¢ ,RSTPSW

STLSPV:

STPPA:

TO SET

() ,SIPRA2
#2,3%6
RAVIR,
X!

#OPEN, (1)«
RALVL, (1)

TRANSMITTER

JSR

X7, TSTVEC
8(6),STPPA+?
"2 ,3%6

MOV
MOy

FOPEN, (1)
TXeve, (1)

MOV
ADD
MOov

RTI

TXVIR,X1

MOV

JSET VECTOR ADDRESS
;SEY PRIORITY

JEX]Y

INTERRUPTY

VECTOR AND PRIOR]ITY,

+MOVE VECIOR ADDR TQ STPPAS?
JSET UP EXIT
+SET

VECTOR ADDRESS.

JSET PRIOR]TY

SEXLT,

SROUTINE TO ISSUE RESET,
SRSETT:

JMOVE VECTOR ADDR 10 STPRAs?
JSEY UP EX]T

#52525,%0

¢DATA 10 RO,

MACYTY1 30A01052)
JMALN,
28-JUN-79
CIOLAN PN
28-JUN-79 10:49

953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986

987
988

989
990
991
992
993
994
995
996

997
998
999
1000
1001
1002
1003
1004
1005
1006
1007

1608

005100
010037
000005
000007
00332¢
003330
003332
003334
003340
003344
003346
003350
00335¢4
003356
003360
002364
003370
003372
003374

013700
000207
001233
007622

003376
003402
0034C6
003412
003416
003422
003426
003432
003436

005037
005037
005037
005037
005037
005037
005037
005037
000207

003440
003442
003446
003450
003454
003462
003464
003466
003474
003476
003504
003506
003512
003514
003522
003526
003530
003532
003540
003544
003552

011600
062716
011000
112037
122737
001001
000002
122737
001416
122737
001417
004737
000756
113777
105777
100375

003556

015700
006100
006100
063700
010037
006100
006100
063700
006100
006100

010037

000207
112737
004737
112737

004737
N00734

10:53

PAGE

SEQ 0018
(oM
MOV
RESE?T

003310

20
X0 ,SRSETT4?2

RT1]

RNGEN:

003374
003372
003374
003374
003372
RP1:

RP2:

MOV
ROL
ROL
ADD
MOV
ROL
ROL
ADD
ROL
ROL
MOV
Mov
RTS
1233

CLRCD:

TYP:

000002

(LR
CLR
(LR
(LR
(LR
(LR
{LR
(LR
RIS

Mov

ADD

003560

000045

003560C

000043

003560

TYPA:

RPY,LX0
X0
%0
RP?,%C
X0,RPY
%0
X0
RP2,%0
X0
10
X0,RP?2
RP1,%0
X7

SEXIT. NUMBER [N RO

TYP(:

TYPD:

003560

1YPF :

003560

TYPG:

TO OUTPUT ASC1] MESSAGE ON TELETYPE PRINTER.
8%6.%0

92.8%6

820,10

(npr8

#100, TYYPDAY

RY}
CMPB

845, TYPDAT

Move

(0)+,1YPDAY

TYP{

BEQ
cnrB
BEQ

TYPF
#43,1YPOAY
I"PG

TYPA

JSR

175714

1 XBUF
TXCSR
RX(SR
RXBUT
RXVIR
TXVIR
RXLVL
TXLVL
¥4

MOV
8NE

003514

000015
003514
000012
003514

7622

; SUBROUTINE

175706

:ISSUE RESET. (RO)
;DISPLAYED., EXIT.

sCLRCD = CLEAR CURRENT DEVICE PARAME TERS

001416
001614
001410
001412
001420
001424
001422
001426

003560

(RO).

TO SRSETT+2,

IRANDOM NUMBER GENERATOR. ROUTINE EX1TS WITH NUMBER IN REGISTER 0.

003372

003560
000100

:COMPLEMENT

:(RC)

Move

X7.1yPD

TYPDAT ,Q1PB

1878

alPs

MovB
JSR
MOVB

#15,TYPDAT
X7,1YPD
#12,1YPDAY

TYPA

BPL
RIS

JSR

.k
X7

27,1YPD

GEY ADDRESS THAT (ONTAINS MESSAGE ADDRESS.

JSEY UP EXIY.,
:ADDRESS OF MESSAGE 10 RO.
sGET CMARACTER

sCHECK FOR''''CHARACTER

;BRANCH IF NOY'Q.

STERRINATOR C(MAR,

DONE.

JCHECK FOR'TXTM.
SBRANCH 1F° 72"
NOT
'R CHECK FOR''®'",

;BRANCH IF
sTYPE

CHAR

Exl”.

IN 1YPDAY

sOUTPUT CHARACTER 10 PRINTER
JMALT FCR DONE FLAG.

JEXIY
+MOVE CARRIAGE RETURN (CDE

160 TYPE (HAR,

+MOVE

;60 TYPE

CODE

(HAR,

10 TYPDAY,

'( TvPpar

e
d et

1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037

1038

1039
1040
1043
1042
1043
1044
1045

1046

1047

1048
1049

1050
1051
1052
1053
1054
1055

1056

1057
1058
1059
1060
1061
1062
1063
1064

10:53

PAGE

000000

TYPDAY:

003562
063564
003570
003574
003602
003604
003606
003610
003612

011600
062716
011037
022737
001001
000002

TYPS:

003614
003620
003624
003630
003632
003634
003640
003644
003646
003650

003652
003654
003656
033660
003662
003666
003672
003674
003700
003704
003710
003712
003716
003722
003724
003730
003732
003736
003740
003744
003746
003752
003760
003762

TYPSA:
1YPSB:

003764
003766
003770
003774
003776
004000

OVRLYA:

000004
001000

042716
105777

175532
177600
175524

INDAT:

175536

100375
111677
122716

000015

122716

000377

122716

000060

122716

000067

104000

B8R

MOV
MOv
MOV

RODAY:

ECDAT:

175520

001626
000007

(LR

CLR
T1S1B

TYPS

;GO PROCESS NEXT MESSAGE

;GEY DL1V=-E

VECTOR BASE

JLOAD VECTOR WITH

ALy

VECTORS BEEN LOADED

JEXLY

TO READ OCTAL DATA FROR THE TELETYPE PRINTER
(SP),=(5P)

X0,-(SP)

X1,=(5P)

13!

(GUNT
81x$S

JMAKE ROOM FOR DATA WORD

JSAYE RO
:SAVE R}

JLLEAR DATA wORD

JSEY NO. OF DIGITS - O
JTEST TYY READ STATUS

1S 11 A TERMINATOQR?
;BR 1F YES
:15 11 A RUBQUY?

(mMPB

260, (5P)

(SP),alPB

JECHD CHARACTER

RREAD

JBR

RREAD

:BR

[F NO

#67,(S5P)

JTEST AGAIN

RREAD

;BR

(mp

#7,C0UNY

JMORE

COuUNT

BLE
ASL
ASt

RREAD
X
X1

SuB

060, (5P)

RDOAT

ADD

TYPE

(SP1e, XY

YES

SIS IV AN OCTAL DIGIT?

BLY

ASL

TRAP

0,2

215, 5P)
RE TRN
#177,(5P)

INC

ADDRESS

10T FRROR

1]
BEQ
(nePB

(MPB

RREAD:

;CALL ON TYP SUB 70 TYPE MESSAGE
sADDRESS OF MESSAGE GOES MERE

JWALY
sPUSH DIGIT ON STA(K
::*%6
STEST T1v PRINT STATUS
sWALY

867

ADDRESS

;ADDRESS OF MESSAGE TO TYPSB
LCHECK FOR TERMINATOR

RDDAY
a1kB,=-(SP)
#177600,(5P)
alpPs
ECDAY

8ta

000060

#300,%1
#302,%2
G ,13

TO NEXT MESSAGE

BPL
ROV8
8I(
1S1B
BPL
move

001626

CONTAINS MESSAGE

JBRANCH [F NOT TERMINATOR.
JTERMINATOR, EXIT

21.81000
OVRLYB
OVRLYA
7

MOV

THAT

TYPSA

9%0,71YPSB
#=-1,1YPSB

(MP
8EQ
BR
RIS

nov

ADDRESS

JUPDATE

X2,(1)e
X3.(1)e

MOV

;GET

#2,3%6

MOV
MOV

sSUBROUTINE

RDOCTY:

001626

002415
005237
022737
003407
006301
006301
006301
162716
062601
000733

TYPE
OPEN

ADD

OVRLYB:

005001
005037

003020

BNE
RT1

9%6,%0

JOVERLAY VECTOR AREA

OVRLAY:

011646
010046
010146

001423

MOV
(mp

003610

000300
000302
000004

001432

MOV

ADD

1064000

105777
100375
117746

QOPEN

:SUBROUTINE 10 OUTPUT A SERIES OF ASCI1 MESSAGES ON TELETYPE PRINTER

000000
000763

001401
000770
000207

SEQ 0019

003560

= OV

ol
b
el

~NO NI NN —O e

s
el il
D el
e
el
—

Tl el

)

~No NI
=
-

(=] COO0ODODOOOOO0O

[=]
[=]

MACY11 30A(1052)
CMAIN,
28=JUN-79
CZOL AN PN
28=JUN=79 10:49

s INC NO. OF DIGITS

THAN SIX DIGITS?Y

JBR 1F YES
cCLEAR LOWEST TMREE B!'S
;0F DATA WORD

;CONVERT

:esy

TO BINARY

JADD DIGIT

1O DATA WORD

STELL

ABOUT

GET NEXT DIGIY
USER

TitEGAL

mARY

"bw

ADDRESS

MACY11 30A(1052)
MALN,
28=JUN-79
CIDLAN P
28-JUN-79 10:49

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

N et ekt et et bt et et et s 2 OOOO
DOV
NO NS W= OO

004002
004004
004006
004010
004014
004016
004020
004022

020142
005726
000724
010166
005726
012601
012600
000207

004024
004030
004034
004040
004042
004046
004052
004054
004056
004060
004062
004064
004066
004070

011037
062716
017746
001611
005037
012746
005316
001376
005726
005316
001371
005726
000002
000000

10:53

PAGE

20
DIERR
157

000010

RETRN:

B8R

177776

000226

DLYA:
DLYB:

DLYC:

DLCNT:

;OET RIC OF

INDAT

MOV
181
MOV
MOV
RS

s SUBROUTINE
DLY:
Mov
ADD

004070
000002
000030

(SP)+

X1,10(SP)
(SP)+
(SP)+ X1
(SP)+,%0
PC

TO DELAY

;START
:STORE

MOV

SDLINT ,=(6)

BEQ
(LR
MOV
DEC
BNE
POPSP
DEC
BNE
POPSP

pLYC
PSW
#8226,-16)
%6
DLYB
aX6
OLYA

RTI

OPEN

(HARA(TER

;INC STACK POINTER
;RESTORE R1

;RESTORE
JRETURN

SPECIFIED NUMBER OF

aXx6,DLINT
¥2,a3%6

ILLEGAL

SUBROUTINE AGAIN
DATA WORD ON STA(K

MILLISECONDS

:GET DELAY COUNT ADDRESS.
:SET UP EXIT ADDRESS
;DELAY COUNT

TO STA(K

JSET PRIORITY O
;1

MSEC COUNT

10 STA(KX

;DECREMENT 1 MSEC COUNT
;BRANCH IF NOT O,
;ZERO. UNCOVER MSECS. COUNT.
sDECREMENT [T
sBR IF NOT DONE DELAYING
: DONE
JEXLY,
sCONTAINS MILLISECONDS (OUNT ADDRESS.

:SUBROUTINE TO STALL A RANDOM NUMBER OF MILLISECONDS. MAXIMUM STALL
004072
004076
004102
004104
004110
004112
004114

004116
006122
004126
004130
004134

004136
006140
00442
004150
004152
004160
004164
004170
004172
0046176
004200
004204
004206

004737
043700
001404
010037
104016

;DETERMINED BY CONTENTS OF

003324
001406

STAL:

004117

000000
000002

004737
043700
001773
010037
000207
000000
000000
013737
000403
013737
005037
005237
001405
105777
100372

062716
000002
000600

STALA:
STALB:

GRONT:

004140
R{MSK:
RNCNT:

001410

004210

001414
004206
004206

004210

17 .RNGEN
STLMSK,
20
STALB
X0,STALA

OPFN
RT!

:SUBROUTINE

003324
004136

JSR
BIC
BEQ
MoV
RIS

LOC STLMSK,
;G0 GET RANDOM NuUMBER.

;8 IN RO, APPLY STALL MASK.
JBRANCH §F

RESULY

IS 0.

sDELAY
.DELAY (OunT
cDONE. EXIT.

YO GENERATE RANDOM (HWARACTER (OUN!
X7.RNGEN
R{MSK .20
GRONT
X0,RNCNT
1 ¥4

OPEN
OPEN

sGET RANDOM NUMBER

+APPLY MASK
sTRY AGAIN IF

RESULT O

s COUNT 1O RNONT

SEXIT.

RANDON (HARACTER MASK,
:RANDOR (HARACTER COUNT.

;SUBROUTINE

TMRX :

TMTX:

TIMEY:
TIMEZ2:

10 SKIP ON FLAG AND YIME QUY IF SKIP FAILS
RXCSR,S100
sSET UP RX(SR ADDRESS
8R
TIREN
MoV
TXCSR,SI0Y
JSET UP IXCSR ADDRESS

MoV

(LR
INC

TIMER
TIMER

1518

88107

ADD

#2.3%¢6

BEQ

000012
000002

JSR
BiC
BEQ
MOV
DELAY

8PL
TIMEX:
TIMER:

RTI
O

TIMEX

Time?

BRANCH If COUNTER QvERELOw
JSEY UP EX1T RETURN

MACYIY1 Z0A(1052)
28-JUN=79
PN
28-JUN-79 10:49

004210

10:53

000000

PAGE

SEC 00!

sioT:

;'."'Q"'l"'t"""

;ROUTINE

004212
006212
004216
0064220
004226
004232
006234
004242

105777
100375
112777
105777
100375
112777
000002

CHGHTZ:
$SCRLF:

175216
000015
175202

17521C

000012

175174

1%:

TO PRINT

1518
BPL
MOvB
1S18
BPL
MOVB
RT1

CARRIAGE

a1Ps
$SCRLF
#15,a1P8
alP$
1%
#12.37PB

;tt't""ttt'l""'it

(o RV IV YV, JV SV RV}

0042464
004252
004254
004260
004262
004266
004272
004274
004276
004302
006306
004314

004322
004326
004332
004336
006342
004344

004346
004350
004352
006356
006362
0064370

= TVY: ]
TP

NTNNNNNNOO

[ AV F RVH

—
ad

il vl
ol

b
d

ol
vl
o

b ok
b

h
i

006337
013701
016101
032701
001403
104000

020077
000744
004737
005037
052737
042777

0064376
006404

052777
000240

004410
004414
006416
004426
0064632
0046436
004440
004442
004444
00464466
004450

005737
001753
042777
(012737
004537
001616
0176065
000002
104000
017574
000205

004406

032777
001003
005037
000205
004737
004737
104000
017546
004737
012637
042737
C13737

000240

010000

173716

001614

003614
003376
003652
001620
1777640
001620

001620
001620
001200
000001

006226
177776
(G00001
000100

000100

001620
001616

000100
000340
004624

1174770
177776

A LINE

FEED

;1S PRINTER READY
;TRY AGAIN IS SO
:PRINT <(CR>
;1S PRINTER BUSY
JTRY AGAIN [F SO
;PRINT <LF>
;RETURN 10 INTEKRUPT

:SAVE FOR TYPING

LINA:

sGET RX(CSR DEVICE ADDRESS
;1S DEVICE THERE
SYES
:NO. REPOR!

ASL
Mov
MOV
81T
BEQ
TYPE

MNOL IN
BR
JSR
(LR
BIs
B1¢

81s
NOP
NOP

001420

AND

;SUBROUTINE 10O SELECT LINE
LINSEL: BIT
#B1T12,35RPTIR
BNE
LINSLYX
(LR
f OUNDV
RTS
S
LINSLX: JSR
X7.,0VRLAY
JSR
17.CLRCD
TYPE
LOL INE
JSR
PC,RDOCT
MOV
(SP)+ TEMP
81lC
BV77740,TEMP
MOV
TEMP, L INEND

LINB:

001472
175016
175010

RETURN

181
BEQ
BI(
MOV
JSR
LINEND
SEL INE
2
TYPE
AL INE
RIS

TEMP
TEMP,
%1
RXCROC(1) , X1
CEEREOR §
Lt INB

LINSLX
X7.E0RMAD
PSu
#8110, FMAP
#B1T6,3TX(SR
#BIT6,TACSR

RXVIR
LINA
#B1T6,8TNCSR
#PRTY7,PSW
5., 0ACNY

;BRANCH IF

SET

;SET MAPPING FLAG

sTYPE

LINE #

*SUBROUTINE 10 INJTIALIZE BINARY COUNT PATTERNS

MACY1Y

004452
004460
004464

30A(1052)
c8=JUN-T79
2B8-0UN-79 10:49

004470
004472
004474
004476
004500
004502
004504
004506

012737
004537
004474
004475
000013
000207
000000
000000
000000
000000
000000
000000

004510
004516
004522
004526
004530
004534
004542
004550
0045564
004556
004564
006570
004574
004576
004602
004610
004616
004622

013737
005137
005137
001002
005237
042737
013737
013700
000207
013737
005137
005137
001002
005237
042737
013737
013701
000207

004626
004626
004632
004634
004636
004640
0046644
004650
004654
004656
004664
004670

104013

V04466

177777

004712

012502
060201
013703
062703
062703
1103461

042737
006037

006037

004674
004700
004702
004704
004706
004710

006037
005302
001356

004712
004714

L
Y

PAGE

N
~—

O -

000205
000000

SEQ 0022
INBIN:

MOV
JoR

RIND
RIND*1

ND:

1:
ND:
PTOP:
PTIP:

004476
004500
004474

004500
177400

004500
004500
004504
004506
004502

004506
177400

004506
004596

004500

004500
004476
004506

GIBINP:

004506

%5,BMOVE

(SET

ALL

;10 MINUS

VARJABLFS

JEXIT

OPEN

OPEN
OPEN
OPEN
OPEN

MOy
oM
(om
BNE
INC
BIC

MoV
Mov
R1S
MOy

COM
(oM
8NE
INC

BlL

004504

MOV
MOV
RIS

:;9,?11

sPREVIOUS BIN (MAR

10 PT1

RIND

P11
#177400,P71

PT1,PT0
P11,20

1 ¥4

g}?g.vvlp

;MASK

10 8 BITS

;SAVE BIN CHAR N P10
:BIN CHAR TO RO.

JEXIY,

sPREVIOUS BIN (HAR 10 PT1P

PIND

PTIP
#177400,P11P

PIIP,PTIOP
PT1P, %1

t ¥4

JMASK

10 8 BITS.

;SAVE BIN CHAR IN PTOP.

:BIN CMAR 10 RI1.

dEXTY.

SOCTAL
OACNV:

004710

004710
177770
000060
000007
004710
004710
004710

1.
RYS
OPEN

#=1,RIND

;SPECIAL BINARY COUNT PATTERN SUBROUTINE. EXITS WiTH BIN (HAR IN RO

GTBIN:

004710

10 ASCII CONVERT ROUTINE
SAVREG
MoV
8(5)+ ,0ACNVX
MoV
(5)+,%1
mov
(5)¢,%2
ADD
X2.%1
OACNVA: MOV
OACNVX,
23
0977770.%3
BIC
ADD
#60,%X3%
MOv8
X3.-(1)
#7,0ACNVY
8l1¢
ROR
DACNVX
ROR
OACNVYX
ROR
OACNVX

DEC
BNE

104014

LAV
o
o

1222

013537

012501

10:53

004474

b
et =

md cd e

e e

—=OVRNO VWO

PORY

b
b
o
d
od
l
h
kit ad

NN
ORI NN NN

OO ~NO N

N—‘OO@NO\J‘wa_oo,Om\

H.P11

OACNVX:

RSTREG
RIS
OPEN

sOET OCTAL VALUE.

JGET DESTINATION ADDR.
;GET CONVERT COUNT,
DEVELOP ADDR 10 STORE

s ISOLATE LEAST SIGNIFICANY DIGI’.

sCONVERTY DIGIT TO ASCIL.
sSTORE ASCI] C(HARACYER.

¥4

:DONE ALL DIGLTS?

JDONE. EXIT,

OACNVA

;BRANCH 1F

NOT DONE.

;SUBROUTINE TO MOVE A VARIABLE NUMBER OF BYTES,
SAVREG
+SAVE REGS.

BMOVE:

MOV

(9) ¢, %1

1ST (MAR.

+GEV''FROM 'ADDRE S5

1260

1261
1262
1263

o
[ 7]

1264
1265
1266
1267

AN —-O

SNNTNTN
N NNNYNN N

il o
o
d
e
b
b
h
)

NN
NN N NN

1269

004734
004736
004742
004744
004750
004756
004760
004766
006772
004776
005002
005004
005010
005014
005020
005022
005024
005026
005030
005032
005036
005042
005044
005050
005052
005056
005064
005070
005072
005074
005076
005100
005102
005104
005106
005110
005112

005115
005120
005126
005134
005142
005146
G05150
005154
005160
005164

PAGE

NONVNOO

BMOVA:

104014

163700

010037
004537
000000
000000
000000

103403

005237
000772
063701
062737
113720
000207
000000
000000
000000
023420
001750
000144
000012
000001
040
040
062777
052777
012737
105777
100375
004737

(5)+,%2
(5)+,%3
(1)+,(2)¢
X2
BMUVA
X5

;GET''TO''ADDRESS
JGET COUNT
:MOVE BYTE

;DECREMENT COUNT

JBRANCH IF NOT
JRESTORE REGS,
;DONE EX]TY

DONE.

JBINARY TO DECIMAL ASCI] COMVERT SUBROUTINE.

BDCNV:

005112

005022
005024
005100
000005
005076
005032
005072

005072

005024
005020
004712

#DECVAL,X0
a(5)+,%1
(5)+,BDONVC
(5)¢,BDCNVD
NADTENP X2

;SET UP ADDR 10 STORE DECIMAL ASCI]
;BINARY VALUE T0 R1.
;GET DEST ADDR
;GET CHAR (OUNT
:ADDR OF TEN POWER STRING TO R2.

MOy

(2)+,TENPWR

;MOVE

POWER OF

SYES,

EX]IT,

MOV

JSR
DEC
BNE

8DCNVB:
BDCNVC: 0O
8DCNVD: O

RSIREG
RIS

005074
005C76
005074

005076
000060
005074

BDCNVA:

SAVREG
MOV
MOV
MOV
MOV
MOV

SuB
MoV
JSR
0

104014

000205
005037
163701

MOV
MOV
MOVB
DEC
BNE

RSTREG
RS

004737
005337
001371

£Ec 0023

PRl ¥ 1 VT,V

— NN
PO
NN
=
o

OO
ot ot s

oco—-oo

004726
004730
004732

10:53

o
o
o
n
=4

004724

o e d e ek )
[AVIaS I VI VY NTU ST W
NIN~NWVVNDNO
WWOWWRO
O —
NN
NN - O

A A AL YAl V.V ol OV O N brhbhbumumwwm
VB WA —~=O0O0~o VNN = O 000~ NP
~

b
d oeh
ol
b e ond e

1258
1259

004716
004720
004722

QOO0 OOD —

ol ol

ad e o el o D s’ s — ok e s
1AV T,V VY . NY, VY N AN — a1
1 V1 VT VT VY ST NT T

b e

U N

MACY11 30A(1052)
MAIN,
28-JUN-T79
CIDLAH PN
28-JUN-79 10:49

005074

#5,CNVCTR

X7,SUBTEN
CNVCIR
BDUNVA

BDCNVD,X0
X0,BDCNVB
25.8MOVE

;SET UP FOR S POWER CONVERSIONS.

DlGI1Y
TENPUWR, %1
SUBTNB
DIGIT
SUBTNA

ADD

#60,01611

sCONVERT

JEXIT,

ADD

Move

RYS
CNVCTR: OPEN
DIGIT:
OPEN
TENPWR:

ADTENP:

TENPUR, 2!

DIGIT.(0)Y

TEN VALUE

;PERFORM CONVERSION
;DONE S CONVERSIONS?
JBRANCH JF NOT YET S,

SUBTEN: (LR
SUBTNA: SUB
B(S
INC
BR

SUBTNB:

10 TENPWR.

JCLEAR DIGITY
;SUBTRALT TEN POMER FROM SINARY VALUF.
JBRANCH [F UNSUCCESSFUL SUBTRAL ION.

JRESTORE SUBTRACTED VALUE.

(DIGIT)

10 ASClI

cMOVE ASCI] CHAR Y0 DECVAL FIELD.

OPEN

10000.
1000.

100.
}0.
040
040
000002
000004
000144
174246

004556
001562
005530

174226

848
4

1764262

174260
001566

DECVAL:

.BYTE

DATIST:

BIC

DATAA:

040,040,040,040,040,040
#B171,3RXCSR

JCLEAR DATA TERM. READY

81s
MOov

#B1712,3Tx(SR
#100.,C1RO

BPL
JSR
MOVB

b
7,GIBINP
X1,(RBUFA

JREADY FLAG
JGET CMARACTER
JMOVE CHARACTER

X1,31XBUS

JTRANSMIT (HARACTYER

T1S1B

JSR

MOVB

aTXCSR

7.,MASK]T

IN RO

:SET MAINTENANCE BIY
sGFY CHARACTER (OQUNT
JWALY

FOR

JMASK OFF NON TRANSMITIED B17S

MAIN.,
MACY11 30A(1052)
28-JUN-79
(ZDLANH PN
28-JUN=-79 10:49
1289
1290

1291
1292
1293
1294

1295

1296
1297
1298

005170
005174
005176
005204
005206
005212
005214
005216

005220
005222
1300
005224
1301
005230
1302
005232
1303
005234
1304
005236
1305
005240
1306
005242
1307
005244
005246
005250
005252
005256
005262
005270
005272
005276
005300
005302
005304
005310
005312
005314
005316
005322
005324
005326
005330
005334
005336
005340
005342
005344
005346
005354
005356
005362
005364
005372
J‘U‘N—'Oomwombwmaoom

—

D
el Pl L Y VIV IV R T
IO
et b ad D b
et 2 OO

1299

NN
A

)1‘

005376
005404
005410
005414
005420

005422
005426

105777
100375

117737
1064004
005337
001353
005726

10:53

PAGE

JEG 0028

176214
174210

1STB
BPL
MOvB
DATCHK
DEC
BNE
187

001560

001566

104012

106000
016763
105777
100375

SCOPE

SETSR:
174200

(huH8:

000207
106000

INCRTN:

017105
000000
000207
104000

017226
000000
000137
005037
032777
001026
004537
001640
017276
000006
004537
003616
017316
000002
004537
001410
017332
000006
004537
001420
017353
000004
104000
017261
032777
001403
005237
000425
013737
006337

062737
013701
016101
022701
001023
005237
005037

INCRPG:

002136
001614
020000

172700

PRGEND:

004624

CIRO
DATAA
(6)+

TYPE

TS1B
BPL
RTS
TYPE
AINCRT
HALT
RIS
TYPE
AINCPG
HALT
JMP
(LR

811

JSR
RXCSR
APRXC
6

004624

3RXBUF
, CRBUF

JSR
RAVIR
APVEC

JWAIT FOR

;DONE

FLAG

;GET RECEIVED CMARA(CTER
DATA

;DECREMENT (HARACTER COUNT
;POP STA(K

;TYPE

ASETSR

BNE
JSR
PASCNT
APCNT
6
JSR
L INENO
S(LIN

004734

an:csa

alks

CHOKB
1%4

;SEE

:WALT

SELECT

CEXIT,

STYPE

OPTION MESSAGE
.

ANY INPUT

FOR

INPUT

INCORRECT

ROUTINE

SELECTED.

;COMMON HALT,
JEXTT.

START

FOUNDYV

#BiT13,a9RPTR
PRGEXT

X5,BDINV

SINHIBIT PRINT SET?
;BR

SED

%5, 0ACNV

. CONVERT

%5.0ACNV

s CONVERT RX(SR

X5,0ACNV

;CONVERY VvECTOR

L INE NUMBER

010000

172614

001640

001616
001620
000002
001620
001200
177777
001640
001616

001620
001620

TYPE
APGEND

PRGEXT: Bl1
BEQ
INC
BR

PRGXT1: MOV
ASL
PRGEC:
ADD
PRGEA:
MOV
MOV
(mp
BNE
INC
(LR

¢ TYPE

MBIT12,35RPIR
PRGXT
PASCNT
PRGXTL

PROGRAM IND.

BR 1F NoY SE1

LINENO, TEMP

+GET LINENO

N2, TEMP
TEMP X1
RXCROC1),
X1
#7777
M

JUPDATE LINE NUMBER

TEMP

PRGEB
PASCNT

L INENO

sOEY RXCSR DEVICE ADDRESS
+LAST ONE
+NO, CONTINUE

CMAIN,
MACY11 30AC1052)
28-JUN-79
CZDLAH PN
28-JUN-T79 10:49

005516
0055¢2
005524
005526

005777

005530
005536
005544
005550
005556

100001

10: 53

001620
000042

013737
042737
005137

043737
000207

005560
005566
005574
005576
005604
005606
005612
005614
005616
005620
005624
005626
005630
005632
005636
005640
005642
005644
005646
005650

000006
104015
016715
000002

005652
005660

017737
032737
001004
023737
001421
004537
001560
016740
000003
004537
001562

(¥
1V
]
-~ ~

016727
000003
004537
001564
016753

PAGE 25
StQ 0025

PRGXTL:

CLR

MOV

BEQ

LOGIC:

010000

172504

000001

001620
001620
006226

CONT:
PRGEB:

BIT

TEMP

ane? 15

CONT

7.(5)

#BIT12,35RPTR

;RGEA

JBRANCH

BI71

#8170,%1

;DEVICE

THERE

JSR
RIS

PRGEC

TEMP
TEMP,LINENO

X7 ,FORMAD
X7

JCONDITIONAL ERROR HALT ROUTINE.

EHLT:

EHLTA:

001404
001404

JMASKIT

MASK]T:

181
8PL

HALT
RT]

UMASK ,RMASK

COm

RMASK

Bic

RTS
DICHK:

001560

001562

cmp
8EQ
DICHKX: JSR
CRBUF
AWAS

SET

JEXIT,

JCHECK FOR HALY ON ERROR.
JBRANCH JF NO HALTY DESIRED.
JHALT,
JIN DATA L]IGHTS.

RMASK, CRBUF A
7

JGET

MASK

SREMOVE C/D FLAG*PRIORITY

sRASK DESIRED BITS

TEST ERROR RITS

MmOV

SRXBUF ,CRBUFB

:DID ANY ERROR BITS SET

8BNE

DICHKYX

JYES, TYPE ERROR

3
JSR

CRBUFA
AASB

3
JSR
(RBUFB

004624

#177000,RMASK

;DATA (HECK ROUTINE,

001564
001564

004624

:NO

NOT

= MASK DATA ACCORDING TO LINE NUMBER

173626
170000

004624

S8SRPTR
EHLTA

MOV

BIC

001562

;LOCK ON LINE

g%g

ASR
MOV

001616

172446

001402
177000
001404
001404

RESET
JSR
NOP
NOP
NOP

BNE

000000
000002

c—

1349

005037
013705
001405
000005
006715
000240
000240
000240
032777
001747
000207
032701
001340
006237
013737
004737
000207

—

1348

005432
0U5436
005442
005444
005446
005450
005452
005454
005456
005464
005466
005470
005474
005476
005502
005510
005514

1345
1346
1347

[=]

1012

#170000,CRBUFB

CRBUF ,CRBUFA
DICHKA
XS.0ACNY

X5.0ACNY

15.0ACNY

;COMPARE EXPECTED AND RECEIVED
sCHARS. BRANCH IF SAME.
;GO 10 OCYAL 10 ASCII CONVERTY.
: SOURCE ADDR.
JOESTINATION ADDR.

s#0F DIGITS 10 CONVERT.
;G0 TO OCYAL YO ASCI1 CONVERT.

s SOURCE ADDR.
;DESTINATION ADDR.

;#0F DIGITS YO CCONVERT,

ARXBUF
6

ERROR
ERDAT
DTCHKA: RT]
77777
000240

006022
006024

JERROR HANDLER
ERR:
MOV
MOV

#-1,ERRB
#2640 ,ERRB*?

JSET UP ONE MESSAGE CALL.
\

MACY1T1 30A(1052)
LAAIN,
28-JUN-79
CIDLAN P
28-JUN-79 10:49

— Ot O (Nt
NN = 2 PIPNI N ~ —
NNOONN~N~NO
N M NN
N N NN
NNNO NN~~~

1401
005666
005037
1602
005672
000413
1403
005674
")
1404
005700
1405
005706
1406
005714
1407
005722
1408
005730
1409
005732
1610
005736
1411
005744
1412
005752
042737
1413
005760
004537
1614
005764
006036
1415
005766
016104
1416
005770
000006
1617
005772 004537
1418
005776
001410
1419
006000
016123
1420
006002
000006
1621
006004
004537
1622
006010
001456
1423
006012
016074
1624
006014
000003
1425
006016
104001
1426
006020
016072
1427
006022
000000
1628
177777
006024
1429
104010
006026
1430
006030
063716
1431
006034
000002
O~O000O0O0O

0013

1432
16433
1434
1435
1436
1437
1438
1439
1440

1441
16442
1443
1444
1445
1646

1447
16448
1449
1450
1451
16452
1453
1656
16455
1456

006036
006040

000000
000000

006042
006050
006056
006062
006066
006072
006100
006106
006112
006116
006120
006122
006124
006130
006132
006134
006136
006140
006142
006144

013737
012737
006237
006237
006237

042737
013737
011637
004537
001634
020034
000006
004537
001636
020066
000006

PAGE

006022
000116
177777
000002
020000

006036
000002
001456
100000
004624

Sea 0026

006040

(LR

006022
006024
006040
172240

ERR:

ERRA:

006036
001460
001460

B8R
MOV

MOV
MOV
MOV

B17
BNE
MOV
SUB

MOV

BIC
JSR
ERRD

APC
6
JSR
RXCSR
MRXNUM

006624

6
JSR

004624

RTNNO
ATNUMB

ERRE

ERRA
aX6,ERRB

9ERRB,ERRB
#-1,ERRB¢?
#2 ,ERRE

#BIT13,3SRPIR
ERRC
aX6 ,ERRD
#2 ,ERRD

#81115,TNNO
X5,0ACNY

%5 ,0A(NY

ERRC:

006040

25 ,0ACNY

ERRD:
ERRE:
177776

000340
001470
001470
001470
1777640
001470
001636
004624

004624

001470

177776

001470
001634

RT]
OPEN
OPEN

;60 TO OCTAL T0 ASCII
; SOURCE ADDR.

CONVERT.

;60 TO OCTAL

CONVERT,

;OESTINATION ADDR.
;#0F DIGITS TO CONVERT.

7O ASCI]

;#0F DIGITS TO CONVERT.
;GO TO OCTAL TO ASCII CONVERT.

DIGITS TO CONVERT.

:1YPE:

:ERROR HEADER,

;ADDT'L ERROR MESSAGE

ERRE ,3X6

;60 ERR HALT

ANY.

IF DESIRED.

JEXIT,

;ERROR TRAP HANDLER - TYPE TO AND FROM WHERE ERROR TRAP OCCURRED
ERTP:
MOV
PSW,0LDPS
;SAVE OLD STATUS
Mov
#PRIY?,PSW
ASR
oLOPS
ASR
OLDPS
ASR
OLDPS

BIC

ERTPA:

MOV
Mov

JSR

TOPC
M10
6

JSR

fFROMPC
MFROM

#177740,0LDPS

OLDPS, TOPC
ak6, FROMPC

X5,0ACNY

X5 ,0ACNY

6
TYPE
MTERR

002136

ERRB.

;INHIBIT ERROR PRINT?
;BRANCH TO INMIBIT PRINT.
;DEVELOP CALLING ADDR.

;#OF

£EM0

EHALT

;SOURCE ADDR.
:DESTINATION ADDR.

0?EN

ADD

;STORE

;SOURCE ADDR.
;DESTINATION ADDR.

ERRB:

;DEVELOP ADDT'L MESSAGE ADDR.

RTNNO, TNNO

TYPES

1064000

017767
000000
000137

10:53

HALT

JMp

STARY

;GET

FROM PC

MAIN,
MACYT1 30A€1052)
28-JUN-79
CIDLAN P
28-JUN-79 10:49

1467
1468

1469

1470
1471
1472
1473
1674
1475
1476
1477
1478
1479
1480
1481
1482
1483
14684
1485
1486
1487
1488
1489
1490

1691
1492
1493

1494

16495
1496
16497
1498
1499
1500
1501
1502
1503

(PARV AV}

1504
1505
1506
1507
1508
1509

1510
1911
1512

010137
062701
010137
062701
010137
062701
010137
013737
006337
062737
017737
013737
000337
006337

006326
006334
006342
006350

LV PV IV VT S YV

D et ) —a

~ NNONNNO~

006226
006232
006236
006242
006246
006252
006256
006262
006270
006274
006302
006310
006316
006322

O —=OO
=Ny —

005037
000002

~ NNNNNOOO

1466

—

1463
1464
1465

- PN

1461
1662

006150
006154
006156
006162
006170
006174
006176
006204
006212
006220
006224

o —=OO0OO0O—~0O000

1457
1658
1459
1460

062737

013737
013737
000207

10:53

001634
000004
001634
001472

001410
000002
001412
000002
001461¢
000002
001416
001616
001620
001302
173312
001622
001622
001622
177437
001622
001622

Sta 0027
;MAPVEC
MAPVEC:

001634
001636
000004
001472

PAGE

001634

- MAP VECTOR OR REPORT
MOV
ax6,10P(
POPSP?
MoV
aX6,FROMP(C

suB

1§71

001424
001634
001420

DEPENDING ON

FMAP

fLAG

¥4 ,10PC

FMAP

BEQ
MOV
SuB

ERTPA
TOPC,TXVIR
#4,T0PC

CLR
RTI

fFMAP

MOov

ERROR

;NOT MAPPING, REPORT ERROR
;STORE

VECTOR

TOPC,RXVIR

:FORMAD~FORM DEVICE AT ADDRESSES

FORMAD:

MOV

ADD
MOY
ADD
Mov
ADD
Mov
MOv
ASL
ADD
Mov
MOV
SWAB
ASL

001620
001620
001622
001402

001622
007422
001426

BIC

MOV
Mov
RTS

X1,RXCSR

",
%1 ,RXBUF
"2.x
X1, TXCSR
#2,x1
%1, TXBUF
L INENO, TEMP
TEMP
#CMASO, TEMP
STEMP, TERPY
TEMPY ,UMASK
TEMP
TEMPY

;GET PRIORITY

1776437 ,TERP]

TEMP1,RXLVL
TEMPY, TXaLVL
X7

:DOTHIS - SELECTABLE TEST DECISION MAKER
006352
006360
0063062
006366

032777
001002
000137
000207

006370
006376
006400
006406
006410
006414
006416
006420
006422

012737
000000
012737
000005
012706
104000
020263
104003
000452

006424
006432
0064 34
006440
006444

022737
001045
004737
005037
005037

001000

171610

002502

DOTHIS:

GOBACLK:

00640C

000024

PFAIL:

006370

000024

PWRUP:

001176

000060

003614
001420
177776

BIT
BNE
JMP
RTS

#BIT9,SRPIR
GOBACK
GTRDYX
X7

MmOV
HALT

FPURUP,
24

MOV
RESET
Mov

#5PBOT,
X6

ERROR
BR

RESTART

TYPE
MPWRF

001614

s1S SELECT TEST SWITCH SET

;RETURN TO TEST

;GO TO NEXT

(MP

#0,FOUNDV

JSR

X7 ,0VRLAY

BNE

(LR
(LR

I1F

Sw SET

#PFAIL,24

:DECIDE 1f VECTOR TO BE MAPPED AND MAP

TSTVEC:

TEST

TSTVEX

RXVIR
PSW

sNEED VECTOR MAPPING
(NO, EX1T

N AN N (NN W
W

1714656

~NO

006424
000100
000340
001614

~N~

104000

TSTVA:

TSTVEX:

VoOwHAw

006640
014706
014760
015056
015106
005244
005244
005244

SEQ 0028

001420
020000

28
ZZDDD
D

006562
006564
006566
006570
006572
006574
206576
006600

PAGE

rnNOr

013700
006300
000170

10:53
~~H
NN~

006550
006554
006556

000001
000100
000100

— s O
NNO

020145
1064003
€00137
062777
012737
005237
000207

052737
042777
052777
000240
000240
005737
001011
032777
001344

NN
—

006450
006456
006464
006472
006474
006476
006502
006504
0C6512
006514
006516
006520
006522
006526
006534
006542
006546

—

PO PO AN

umdoomwowbwmaoomwowbu

MAIN,
MACY11 30A(1052)
28-JUN-79
CZOLAH.PIN
28-JUN-79 10:49

l
[
l
0
0
TST
BNE
BT
BNE
TYPE
INTER
ERROR
JMP
BIC
Mov
INC
RTS

:SET MAPPING FLAG
:CAUSE INTERRUPT

RXVIR
TSTVA
#BIT13,3SRPIR
TSTVEC

:NO,

#PRIY7,PSW

PRIORITY,

RETURN

134

PRGNUM,
X0

%0
IRSTART (D)

JMP
RSTART:

;RAISE

FQUNDV

RESTARY:
MOV
ASL

006562

ERROR

TSTVEC
#B1T16,aTXCSR

*RESTART ROUTINE

001450

:DID TRAP OCCUR?
;YES, OK

;60 RESTART SELECTED PROGRAM

PRGOA

PRG1A
PRGZ2A

:PROGRAM O RESTART

ADDRESS

:PROGRAM 2

RESTART

ADDRESS

:PROGRAM &

RESTART

ADDRESS

:PROGRAM 1

PRG3A

RESTART ADDRESS

:PROGRAM 3 RESTART ADDRESS

PRG4A

INCRPG
INCRPG
INCRPG

:PRGO = INPUT=-QUTPUT LOGIC TESTS
006602
006610
006614
006616
006620
006622
006626

006630

N06634
006640

006644
006644

012737
005737
001307
104000
016134
105777
100375
004737
004537

00037
177777

006644
000Cs2

172602

005220
0042446
002474

001452

PRGO:

(HGH9:
PRGOB:
PRGOA:

006650
006652

POTIY
T1S1B
8PL
JSR

PRGOB

sMONITOR LOAD
sYES, START TEST
sTYPE TITLE AND INSTRUCTIONS

aTKS

sSEE 1F ANY INPUT

CHGHY

;WAIT FOR INPUT

7,SETSR

S, LINSEL

JSR
JMP

+GO GET LINE # FROM USER
sGET STARTED.

GETRDY

AA,T1000.,\)11¢CD,\X42
,\ X4
AR

006644
006646

#AT0,XSTARY

MOV
187
BNE
TYPE

100000

006676
001750
006654
000200

ATO:

AR AR

100000

AT
1000.
AAA
X=X¢1

+TEST NUMBER
;ADDRESS OF NEXT TtST
:1TERATION COUNT
:SCOPE ENTRY POINY

:ll""l""l.'"'"""'."l"Q"l'.."'t'.I"'I..'llllili"'!t'ttl!!'!Ql~|tt"

STEST ABILITY TO REFERENCE RECEIVER (SR WITHOU®

TRAPPING

LMATN,

MACY11

NN N N TN N SN
Y
gONDaKDG
rwunnac»oaruo~nrwuna~cflz

ALY
IV IV DR

—

Yol Vol A IV LV IV SV I I

CIDLAM.P1

006654
006662
006666
006670
006672
006676
006676
006676
006676
006700
006702
006704

30A(1052)
28-JUN-79
28-JUN-79 10:49

012737
005077

106012
022626

006670
172522

10:53

000004

PAGE 29
SEQ 0029

AAA:

AAB:
AAE :

104003

MOV

FAAE MACHER

CLR

SCOPE
POPSP2

MACHINE

RX(CSR

TRAP.

ERROR

TRAP,

SCOPE

;TRAPPED WHEN REFERENCING RX(SR.

AAB

TSTA
TSTAA

;REFERENCE

;OK

ERROR
BR

000774

;SET

aRXCSR

1000.,A8,CD
AB,1000.,\X+14(D,\X¢2,\X+1

;"l"""""""""""'i"'"""l"".

100001

AT1:

006736
001750
C06706
000001

'.""t""Q"""..""'ll""l'0.?

100001

;TEST

AT?
1000.

ABA

NUMBER

:ADDRESS OF NEXT
; 1TERATION COUNT

:SCOPE

X=X+

TEST

.
.

ENTRY POINT

;Q'I.""""""'""'l"l""""'.t""'t"l.tt'.ttl'

006706
006714
006720
006722
006726
006730
006732
006734
006736
006736

006736
006740
006742
006744

012737
005737

006730
202110

005777
104012
022626
104003
000774

172464

100402

000004

sTEST ABILITY TO REFERENCE RECEIVER BUFFER WITHOUT

ABA:

MoV
187

WABE ,MACHER
Q¥ XORFLG

BM]
ABB:
ABE :

sSET

ABB

1S1

aRXBUF

SCOPE
POPSP?

sREFERENCE
;0K

ERROR
BR
TSTA
TSTAA

UP MACHINE

0t'.""'.l"'t""'l'tt

TRAPPING

ERROR

TRAP,

RXBUF
TRAP SCOPE

; TRAPPED WHEN REFERENCING RXBUF
ABB
1000.,AC,CD
AC,1000.,\X¢1¢(D,\X*2,\X+1

:'l"'.""""".""'Q""0".'.Q'.'..ll.'l.t.'."l't't

100002

AT2:

006770
001750
006746
000002

."'ttl"tt".l'."tt'"

100002

;TEST NUMBER

A3
1000.

ACA

s ADDRESS OF NEXT TEST
s ITERATION COUNT

.
*

;SCOPE ENTRY POINT

X=X¢

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

.'.."'.."'.u""'

006746
006754
006760
006762
006764
006766
006770
006770

012737
005777

104012
022626
104003

006762
172434

000004

STEST
ACA:

A(CB:

ACE:

000774

1ST1
SCOPE

YO REFERENCE TRANSMITTER (SR WiTHOUT TRAPPING.
FACE ,MACHER
:SET UP MACHINE ERROR TRAP,

STXCSR

1STA

TSTAA
100003

AL AR

AT3:

007022
001750
007000
000003

SREFERENCE TXCSR
s SCOPE

POPSP2

ERROR

B8R
A

006770
006772
006774
006776

ABILITY
Mov

; TRAPPED WHEN REFERENCING TX(SR

A(B

1000, ,AD,CD

AD, 1000, ,\X414CD, \Xe2,\X+}

AR A

100003

TMTM

:TEST NUMBER

:ADDRESS OF NEXT TEST

AT4

1000.

;1TERATION COUNT

:SCOPE ENTRY POINT

ADA :
X=X+

;"'O!t'ttt""lt'!t!t't'tt'!'t"ttt'tttttttl"ttll"ttlt'ttt"tt-tttt"tt"QQ-'

007000
007006
007012
007014
007016
007020

012737
005777
104012
022626
104003
000774

007014

172404

000004

STEST
ADA:

ADB:
ADE :

ABILITY
MOV

187

SCOPE
POPSP2

ERROR
BR

TO REFERENCE TRANSMITIER BUFFER WITHCUT
#ADE ,MACHER
sSET UP MACHINE ERROR

31XBUF

JREFERENCE
. SCOPE

ADB

TRAPPING
TRAP,

TX BUF,

s TRAPPED WHEN REFERENCING YxBut

MACY11 30A(1052)
.MAIN,
28-JUN-79
CIDLAN P
28-JUN=79 10:49

007122
000012
007032
00C00¢4

10.,AE,
(D
AE,10.,\X414CD,\X42,\X¢1

"'t!'ti."t"tl""""""'l!""t

100004
ATS
10.

;TEST NUMBER

;ADDRESS OF

TEST

; 1TERATION COUNT
:SCOPE ENTRY POINT

AEA

X=X+1

.
.

;"'!'l""""'."'"""t"'""'"'""'t".'t".

000301

000001

b
—

000001
000001

172340
172332

[V IV

000001
000001

172354

~N TM~

032777
001402
104003
000421
052777
032777
001002
104003
000410
042777
032777
001401
104003
052777
1064011
104012

172276

;TEST THAT TXCSR BIT O (BREAK)
;AND THAT RESET CLEARS T
AEA:
817
#B1T0,3TXCSR
AEB
BEQ
AEB:

AEC:

AED:

ERROR
BR
BIS
Bl11
BNE
ERROR
BR
BiC
BI1
BEQ
ERROR
B1S
SRESET
SCOPE
TSTA
TSTAA

AED

#BIT0,aTXCSR
#BITO,3TXCSR
AEC
AED

#BIT0,3TXCSR
#BIT0,QTX(SR

AED

#BI11G,3TXCSR

"t'.""'ti"’l"tlttt't"'

CAN BE

¢SEE

:BR

SET

AND

BIT

CLEAR

CLEARED

IS CLEAR

SRESET DID NOT CLEAR IT
sSET TXCSR BIT O
;01D IT SETY

;YES, GO ON
sTXCSR BITO FAILED

10 SET

CLEAR TXCSR BIT O
:DID IT CLEAR
:TXCSR BIT

O DID NOT

CLEAR

:ISSUE RESET TO CLEAR

10.,A6,CD
AG,10. ,\X+1
\X¢2
¢(D,
\Xo1

;l'tit"'tl"t'tttt'ttttt"QQttt't"tt't.ttttt'tl."ttt'.oot

t'.t-t-ttn-'c'to'-o.'

100005

ATS:

007222
000012
007132
000005

100005

ATé

10.
AGA
X=x+1

s VEST NUMBER
;ADDRESS OF NEXT TEST

;sSCOPE ENTRY POINT?

S1TERATION COUNT

;tl'"tltti'tt""'Qtt""ttCt'0"'.tt't'tttttttttt.'it."t"'t

tt-.'tto:.'t.-'--

032777
001402
104003
000421
052777
032777
001002

000004

000004
000004

17225¢4

172240
172232

:TEST

AGA:

AGB:

000410
04277/
032777
001401
104003

052777
104011
104012

00000¢
000004

000004

—

104003

007132
007140
007142
007144
007146
007154
007162
007164
007166
007170
007176
007204
007206
007210
007216
007220
007222
007222

1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680

SEQ@ 0637

100004

—

1661
1662
1663
1664
1665
1666

007124
007126
007130

:tl'f""""'l'"""'""'t'i""""""'l

~N -~

1656
1657
1658
1659
1660

PAGE

TSTA
TSTAA

—

1625
007022
1626
007022
1627
1628
007022
1629
007024
1630
007026
1631
007030
1632
1633
1634
1635
1636
007032
1637
007040
1638
007042
1639
007044
1640
007046
1641
007054
1642
007C62
1643
007064
1644
007066
1645
007070
1646
007076
1647
007104
1648
007106
1649
007110
1650
007116
1651
007120
1652
007122
1653
007122
1654
1655
007122

10:93

172176

AGC:

AGD:

THAT TXCSR BIT2 CAN BE SEV, CLEARED, AND THAT RESET CLEARS IT.
81T
#BIT2,QTXCSR
¢SEE IF TXCSR BIT2 IS CLEAR.
8EQ
AGB
sBRANCH IF BIT IS CLEAR,
ERROR
BR
B1S
8I1
BNE
ERROR
BR

AGD
#BI12,8TXCSR
#EIT2,QTX(SR
AGC
AGD

BIC

MB1T12,3TX(SR

BEQ
ERROR
BiS
SRESET
SCOPE
TSTA

AGD

811

TSTAA

#BIT2,aTXCSR
¥BI12,3TXC(SR

10.,AJ,0D
A, 10, N

sRESET DID NOT CLEAR TX(SR BIT?
;SEY TXCSR BiTZ.
sSEE IF BIT IS SET.
;BRANCH 1F BIT 1S SET.

sTXCSR BIT2 FAILED 10 SET.

;CLEAR TXCSR BIT?
;SEE IF BIT 1S CLEAR.

JTXCSR BIT2 FAJLED TO CLEAR,
JSET TXCSR BIT2.
:1SSUE RESET TO CLEAR BiT.
; SCOPE

Te (D, \ R4 E ,\ X0

:tIl'."'t"!"'l'!"'l"!l"l'Q"l".".l"l"'."l‘.QIQ!..'.l"!l.ii'll'llll"i

.MAIN,
MACY11 30A€1052)
28=JUN-79
(ZDLAH P11
23 -JUN=79 10:49

007334
007336

NS W
VWEHE W= OO0OWB N

NN NN N SN TN N N TN NN

—O

POPUNUPROUDNUN)
=0 ot it ot i e el e bt

1681
007222
1682
007224
1683
007226
1684
007230
1685
1686
1687
1688
007232
1689
007240
1690
007246
1691
007250
1692
007252
1693
007254
1694
007262
1695
007270
1696
007272
1697
007274
1698
007276
1699
007304
1700
007312
1701
007314
1702
007316
1703
007324
1704
007326
1705
007330
1706
007330
1707
1708
007330
1709
007332

10:53

100006

PAGE

Sta 007"
AT6:

007330
000012
007232
000006

3
100006

;TEST

AT7
10.

:JA

)¢

NUMBER

;ADDRESS OF NEXT
;1TERATION COUNT

:SCOPE
:

ENTRY

TEST

.
.

POINT

’

:ttlt't"tt"""t"t't""""'t""'t."'tt"l

012737
032777
001402

000340
000100

177
172146

STEST

AJA:

104003

000421
052777
032777
001002

104011
104012

THAT

MoV
BIT
BEQ

TXCSR BIT6 CAN BE

#PRIYT7,PSW
FBIT6,aTXCSR
A.B

g:ROR

000100
000100

172132
172124

AJB:

000100
000100

17
17

AJC:

000100

172070

AJD:

104003

000410
042777
032777
001401
104003
052777

ttt'tltt"l'tl""t"t'll"c'tttt

B1S

#BIT6,ITXCSR
AJC

AJD

BI(

¥BIT6,aTXLSR

BIT

¥B1T6,aTXCSR

ERROR
B1S

#BIT6,3TACSR

AJD

SRESET
SCOPE
TSTA
TSTAA

000144

AND

THAT

DID NOT

AKA

SSET

RESET

CLEARS

|T.

CLEAR

TX(SR BIT6

TXCSR BJT6.

;SEE IF BIT IS SET.
;BRANCH IF BIT 1S SET,
sTXCSR BIT6 FAILED TO SET.
;CLEAR

JSEE

TXCSR BIT6

BIT

IS CLEAR.

sTXCSR BIT6 FAILED
SSET TX(SR BTG,

s ISSUE RESET
:SCOPE

TO (LEAR.

TO CLEAR BIT.

100.,AK,CD
AK,100.,,\X+14(D,\X¢2,\X¢1
A

100007
AT10

100.

007340
000007

;RESET

#B1T6,aTXCSR

BIT
BNE
ERROR
BR

BeaQ

AT7:

CLEARED,

;SET PRIORITY 7,
;SEE If TXCSR BiT6 1S CLEAR.
;BRANCH IF BIT |S CLEAR,

MLAAAAARAAS

100007
007354

SET,

;s TEST NUMBER
;ADDRESS OF NEXT

ITERATION COUNT

;SCOPE ENTRY

X=X+

T I

TEST

.
.

POINT

:'l""""'.'.""""."'.i""".I""Q.'..t'.".t.t.ttt'

.tt.""t"t't"".'

007340
007344
007346
007350
007352
007354
007354

007354
007356
007360
007362

105777
100402

STEST
:THAT
AKA:

172050

104003
104011
104012

AKB:

THAT TXCSR BIT 7 (READY BIT)
1T CAN BE READ RELIABLY.
1S18
STXCSR

8nl
ERROR
SRESE?

IS SET

sSEE

AKB

TXCSR BIT

AND
SET.

sBRANCH IF SET,
STXCSR BIT 7 NOT SET.
sISSUE RESET 1O C(LEAR B!

SCOPE

TSTA
TSTAA

UPON ENTERING ROUTINE

100, ,AL.0
AL, 100, ,\X* 140 ,\xe¢2,\X*)

ERROR

;SCOPE

:"l'.""""'.'.."'."..""""..'.'..C....'l.ll't""i't""'t.tl

".l".l'.'

000010
007436
000144
007364
000010

AT10:

10
AT1Y

s TEST NUMBER
+ADDRESS OF NEXT

ALA :
X-X¢

;SCOPE
M

100.

;ITERATION COUNT

.
.

TEST

ENTRY POINT

.
.

;lt'.".""""""Q!'l""""""""."'.."'!'l'.'l.tl'i'.llt"'l!i"'.'t"

007364
007372
007400
007406
007410
007412

062777

052777
032777

001002
104003
000410

000002
000002
000002

172016
172010
172002

JTEST

ALA:

THAT

BIC
BIS

RXCSR BIT

CAN BE

#B1T1,3RXCSR
#BITY QRX(SR

#B171,aRXCSR

ERROR
BR

ALl

8BNE

ALY

SET

(LEARED

JSEY RXCSR BIT!
sSEE

BIT

JBRANCH F

SRACSR BIT

SEY
Y

SEY

BALLED

"0 st

<MAIN.
MACY11 30A(1092)
28-JUN=79
CZDLAH.PIN
28-JUN-79 10:49

1737
1738

1739

007414
007422

007430

1740
1761
1762
17643

007472
0076434
007436
007436

1745
1746
17647
17648
1749

007636
007440
(07442
0074644

]7"4

1750

042777
032777

001401

1771
1772

007536
0075640

000012
007636

007446
0076456
0074656

1788

1789

1790
1791
1792

032777
001402
104003

007542
00754

ALY:

B1C
BiT

#BITi,aRXCSR
#B1711,aRXCSR

007612

007620

007622
007624
007632

032777

001401

104003
052777
10401°

JRXCSR BIT
:SCOPE

10.,AP,0

)

FAILED

TO CLEAR

AP, 10.,\X+140,\X+2,\K¢]1

:|ttttt"'t"!'"t'!"lt"""l"'."""""l'l'ttlt't"'"l'D"

AT1Y:

STEST
APA:

000004

171734

000004
000004

171720
171712

APB:

000004
000004

171676
171670

APCX:

000004

171656

APD:

AT12:

000012
007546
000012

032777
001402
104003
000421
052777
032777
001002
104003
000410
042777

;CLEAR RX(SR BT 1
JSEE IF BIT IS CLEAR

ALl

ERROR
SCOPE
TSTA
TSTAA

ALZ:

007546
007554
007556
007560
007562
007570
007576
007600
007602
007604

3
SEQ 0032

1776

1779
1780
1781
1782
1783
1784
1785
1786
1787

".tl"llllltltc

"
AT12
10.
APA
X=X+

MALL AR LA R A A A A R

000421
052777
032777
001002
104003
000410
042777
032777
001401
104003
052777
104011
104012

1777
1778

PAGE

BEQ

000011
007536
000012
007446
000011

007460
007462
007470
007476
007500
007502
007504
007512
007520
007522
0075264
007532
007534
(007536
007536

1773
1776
1775

171766
171760

104003
104012

1751
1752
1753
1756
1755
1756
1757
1758
1759
1760
761
1762
1763
1764
1765
1766
1767
1768
1769
1770

000002
000002

10:53

000010

171634

171620
171612

000010

171576

171570

171556

A A

N R R R R R R R R R R

A A

R A

12
AT13

10.
AQA
X=X%+1

A AR

AQC:

AQD:

Y YT TM

:TEST NUMBER
JADDRESS OF NEXT

A A

e mnImnmmMmMm

:1TERATION COUNT
;SCOPE ENTRY POINT
:
A I

BEQ
ERROR
BR

AQD

BiY
BNE

#BIT3,QRXCSR
AQ(

BR
BIC
Bl!

AQD
#B1T3,QRXCSR

BEQ

AQD

81S

ERROR
BIS
SRESE”

AQB

#B1T3,3RXCSR

#BIT3, SRXCSR

#B]T3,3RXCSR

sBRANCH JF RIT
SRESEY DID NGT

iS CLEAR.
CLEAR RX(SR B11'3

;SET RXCSR BIT3,

;SEE IF BIT IS SET,
sBRANCH IF BIT IS SET.
sRXCSR BIT3 FAILED 10 SET.

sCLEAR RXCSR B113
SSEE

BIV

T I

TMTMTM

.
.

TEST

STEST THAT RXCSR BIT3 (AN BE SET, CLEARED, AND THAT RESET CLEARS
AQA:
BIT
#I]T3 QRACSR
JSEE IF RXCSR BIT3 1S CLEAR,

ACB:

’
.
.
.
.

THAT RXCSR BI1T2 IS C(LEAR AND CAN BE READ RELIABLY.
Bl
#BIT2,aRXCSR
JSEE IF RXCSR BIT2 IS CLEAR.
BEQ
APB
sBRANCH IF BIT 1S (LEAR.
ERROR
;RXCSR BIT2 IS NOT (CLEAR.
BR
APD
BIS
#8112 ,8RXCSR
;SET RXCSR BITZ2
BIT
#BIT2,3RXCSR
SSEE IF BJY IS SET
BNE
APCX
;BRANCH IF SET
ERRCR
:RXCSR BIT2 FAILED 1O SET
BR
APD
BIC
#BI1T2 ,SRX(SR
;CLEAR RX(SR B1T12
Bl
#B1T12,8RX(SR
SSEE IF BIT §S (LEAR
BEQ
APD
ERROR
sRXCSR BIT2 FAILED TO CLEAR
B1S
#BITZ,3RXCSR
JSET BIY
SRESEY
s ISSUE RESET 10 CLEAR BIT
SCOPE
TSTA
10.,AG,0
TSTAA
AQ,10,,\X*1¢0,\X¢2,\X¢1

ERROR

000010

sTEST NUMBER
;ADDRESS OF NEXT TEST
; ITERATION COUNT
:SCOPE ENTRY POINT
;

1S CLEAR,

;RXCSR BIT3 FAILED YO (LEAR,
;SET RXCSR B]13.
s 1SSUE RESET TO CLEAR BIT,

.
.
.

o arIIInmnmmmmILs

IT.

LMAIN,
MACY11 30A(1052)
28=-JUN-79
CIDLAN.P1
28=JUN-79 10:49

007634
007636
007636

104012

007636
007640
007642
007644

000013
007744

PAGE

33
r)

SCOPE

: SCOPE

15TA
TSTAA

10.,AR,0
AR,10.,\x¢1¢0,\x
\X+1
42

;'..'""'l""'l"""""""."""."'..!'l'.'

AT13:

.I""l""'t"'l""'l"lttt0'

13
AT14
10.

000012
007646

;TEST

X¢1

NUMBER

;ADDRESS OF NEXT TEST
:1TERATION COUNT
;SCOPE ENTRY POINT

ARA

000013

v
.
'

N07744

0
052

2
2

007646
007654
007662
007664
007666
007670
007676
007704
007706
007710
007712
007720
007726
007730
007732
007740
007742

NSO
NN
NVOO NN

:'."""""""""."""""""""".."""'Q

O=00O
QOO
W —

032777

001002
104003
000410
042777
032777
031401
104003
052777
104011
104012

;TEST

000340
000040

000040
000040

RXCSR BITS CAN BE
MoV
FPRTY7,PSW
#BITS, ARXCSR
Bl1Y
ARB
BEQ

ERROR
BR
B1S
Bl
BNE
ERROR
BR
BIC
Bl
B8EQ
ERROR

ARB:

000040
000040

171470
171462

AR(:

000040

171450

ARD:

0127%7
032777
001402

104011
104012

;SEE

000340
000100

177776
171420

AR LA

RAR R

THAT

o &~

—

000100
000100

ASB:

000100
000100

171362
171354

ASC:

000100

171342

ASD:

IS SET.

10O CLEAR.

10 CLEAR BIT.

I T

T I

TYTMTTM

;TEST NUMBER
sADDRESS OF NEXT TEST
s1TERATION COUNT

.
.
.

s SCOPE ENTRY POINT
AR AR RS

CAN BE

SPRIY7 PSW
#BI16,3RXCSR
ASE

ASD

#B116,3RX(SR

Bl
BtQ

ASD
#BIT6,QRASR
#B1T6,IRXCSR
ASD

BIS

#BIT6,3RX(SR

TSTA

100.,A7,0

SRESET
SCOPE

1T,

AS, 10, ,\Xe1e(D,\Xe2,\X+1
A

BNE

ERROR

BIT

;ISSUE RESET
:SCOPE

#B116,aRX(SR
ASC

ERROR
BR
BIC

SRXCSR BIT& FAILED
JSET RXCSR BITS,

10.,AS,C0

RXCSR BIT6

811

CLEARS

;CLEAR RXCSR B1T5
SSEE IF BIT IS CLEAR.

#BITS,8RK(SR

AR AR A

MOV
Bl
BEQ
ERROR
B8R
BIS

RESET

;BRANCH [F BIT IS SET.
;RXCSR BITS FAILED 10 SET.

100014
AT1S
10.

;TEST
ASA:

THAT

;SET RXCSR BITS.

X=X}

104003

000421
052777
032777
001002
104003
000410
042777
032777
001401
1046003
052777

AND

:BRANCH IF BIT IS CLEAR,
;RESEY DID NOT CLEAR RXCSR BiTS

ASA

—

007762
007770
007772
007774
007776
010004
010012
010014
010016
010020
010026
010034
010036
010040
010046
010050
010052

AT14:

(VR

007754

100014
010052
000012
007754
000014

007744
007746
007750
007752

CLEARED,

;PRIY7? i0 INMIBIT ANY INT
;SEE IF RXCSR BITS IS (LEAR.

ARD
#BITH, aRXCSR
#BIT5,3RXCSR
ARD

B1S

007744

SET,

ARD
#BITS,aRXCSR
#BITS,3RXCSR
ARC

SPESET
SCOPE
TSTA
TSTAA

'.""""l"""'llt"'t"'

THAT

ARA:

——

1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
180¢
1805
1806
1807
1808
1809

10:53

SET,

CLEARED,

AND

THAT

SSET PRIORITY

.
e

RESET

CLEARS

¢SEE IF RXCSR BlT6 1S (LEAR.
;BRANCH IF BIT 1S CLEAR,
;RESET DID NOT CLEAR RX(SR BIYe
;SET RXCSR BlTe.
SSEE IF BIT IS SET,
;BRANCH IF BIT 1S SET.

+RXCSR B1T6 FAJLED TO SET.

+CLEAR RXCSR BITS
JSEE 1F BIT 1S CLEAR.

¢RXCSR B1T6 FALLED 10 (LEAR,
;SET RXCSR Blte.
s 1SSUE RESET 0 (LEAR Bi!Y.
:SCOPE

IT.

T T I

MACYT1 30A(1052)
MAIN,
28-JUN-79
CZDLAN P11
28-JUN-79 10:49

1849
1850
1851
1852

1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
187%
1876

1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899

1900

1901
1902
1903
1904

PAGE

010052
010054
010056
010060

3¢
SEG

010052

TSTAA

AT, 100, ,\X¢140,\X¢2,\X+1

,'."'l""""'""""""""""""'l'."""

000015
010100
000144
010062
000015

AT15:

'l"."'l".""""""'t't't't

15
AT16

;TEST NUMBER
JADDRESS OF NEXT

100.

ATA

;1TERATION COUNT

;SCOPE

X=X+

v
.

TEST

ENTRY POINT

’
'3

;"'"t"""0""""""""'""""""l""""'

fi A

032777
001402

000200

171320

JJEST
ATA:

104003
106011

104012

A1B:

THAT
Bl

RXCSR BIT7

gta
ERROR
SRESET
SCOPE
TSTA
TSTAA

IS CLEAR

#B117,aRXCSR

ATB

AND

CAN BE

;SEE

AR AN R

XN R F R

RN NN

READ RELIABLY.

RXCSR BIT7

CLEAR.

;BRANCH IF BIT IS CLEAR.
;RXCSR BIT7 1S NOT (LEAR.
;RESET IF ERROR

100.,AX.0

:SCOPE

AX,100.,\X¢1¢0,\X¢2,\X41

;tttttt"""'t'Q"'tt't"'tC't'ttt't'ltttt.tltt..

000016
010126
000144
0101:0
000016

AT16:

t'ctttttt-ttttott.'ntlt""""

16
ATY7
100.
AXA

s TEST NUMBER
sADDRESS OF NEXT
J1TERATION COUNT

:SCOPE

X=X+

v
.
.
.

TEST

ENTRY POINT

[

;'.t'Q"Ct"".""."""'"."'.'"'l'..'.t'."...

""".t..'t.'tt't-""'t"'

032777
001402

002000

171272

104003
104011
104012

1877

1878
1879
1880
1881
1882
1883
1884
1885
1886

10:53

sTEST
AXA:

AXB:

THAT
Bl

RXCSR BIT10

BEQ
ERROR
SRESET
SCOPE
TSTA
TSTAA

IS CLEAR AND CAN BE

#BIT10,9RXCSR

AX8

;SEE

READ RELIABLY.

RXCSR BIT10

CLEAR.

sBRANCH IF BIT IS CLEAR.
sRXCSR BIT10 IS NOT CLEAR.
SRESET BIT IF ERROR

:SCoPE
100. ,AY.CD
AY, 100, ,\X*14(
\X*2 D,
\X¢1

;'t""tt"t""!'t""""'tt"tttt..tttttt.t.tttttttttot.t

100017
010154

010134

AT17:

000144
010136
000017

.tt.c-"tt'-.'-"'tt'

10007
A120
100.
AYA

s TEST NUMBER
sADDRESS OF NEXT TEST
SITERATION COUNT

sSCOPE ENTRY PGINT

X=X+

.
.
»
.

:".l'"'.""'."""""".".""..'........'...".'.."Qt't.'.Q'I"'Q""t"

010136
010144
010146
010150
010152
010154
010154

032777
001402
106003
104011

010154

100020
010202

004000

171244

sTEST THAT RXCSR BIT11

AYA:

817

BEQ
ERROR

104012

AYB:

IS (LEAR AND CAN BE READ RELIABLY.

#BITV],QRXCSR

AYB

SRESET

SCOPE

TISTA

TSTAA

;SEE

RXCSR BIT11

sRESET BIT

100, ,A2,€D

!S (LEAR.

¢BRANCH IF BIT IS C(LEAR.
;RXCSR BIT11 IS NOT CLEAR.
IF

ERROR

: SCOPE

AZ,100.,\X*14CD,\x42,\X+1

:'"""""'."'t""".".""".""'."i'l"....l"l'."t'l"ll'.".t.'ltti"

AT120:

000144
010164
000020

100020

AT21
100.
ALA

x:‘O

s TEST NUMBER

+ADDRESS OF NEXT
s 1TERATION COUNT

TES?

+SCOPE ENTRY POINT
:

;tt'ttnttt"lttt'tttt"t't"tt'tt'it""'.'tttti't'tt..tQl.tt--ttnnttttttt:.o'--

032777
001402

040000

171216

;TEST

AlA:

THAT

Bl
BtO

RXCSR BIT14

IS CLEAR AND CAN BE READ RELIABLY.

PBITIGL,QRXCSR
AlB

;SEE IF RXMCSR BIT14 IS CLEAR,
¢BRANCH F BIT IS CLEAR,

.
.
.
[

MAIN,
MACYTT1 30A(1052)
28-JUN-79
CIDLAKH.PI
28-JUN=-79 10:49

1923

1924
1925
1926
1927
1928
1929

1930
1931
1932
1933

1934

1935
1936

1937
1938
1939

1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1959

1956
1957
1958
1959
1960

ERROR
SRESET

AlB:

JRXCSR BIT14 IS NOT CLEAR.
;RESET BIT |F ERROR

SCOPE
TSTA
TSTAA

. SCoPE
100.,AAA,
(D
AAA,T00.,\X¢14CD,\X42,
\X+1

;'l't'l"""""'""""""""""""

100021
010230
000144
010212
000021

AT21:

"""."l".".".""""0"""""'

100021
AT22

;TEST NUMBER
;ADDRESS OF NEXT

AAAA\

;SCOPE

100.

;1TERATION COUNT

X=Xe¢

;

ENTRY

.
.

TEST -

POINT

:.."'.""""0"""""'!".""""tl'.t"

OV~

e
el
i
i el
e el
e
ot

106203

032777
001402

1921

1922

PAGE

SEQ@ 0035

104011
1064012

P\ et ol ool el b b ot s

VOO0V OVVOOO

1905
1906
1907
1908
1909
1910
1911

10:53

010226

100000

sTEST
AAAA:

171170

104003
1064011
104912

THAT RXCSR BIT15 1S CLEAR
BT
#BIT15,3RXCSR
BEQ
AAAB
ERROR

SRESET

AAAB:

"".t.ll.'l.'.l""""""l"l.'

AND CAN BE READ RELIABLY.
;SEE JF RXCSR BIT15 IS (LEAR.
;BRANCH IF BIT IS CLEAR,
sRXCSR BIT15 IS NOT (CLEAR,

SRESETY BIT

SCOPE

; SCOPE

ERROR

+ALL PREVIOUS TESTS MUST HAVE BEEN RUN SUCCESSFULLY PRIOR
;7O RUNNING THE FOLLOWING TESTS.
ALSO, THE JUMPER CONNE(TOR
;MUST BE INSERTED IN THE DLIV-E CABLE IN PLACE OF THE MODEM.

sREFER

TO OPERATION WITH JUMPER

010230
010230

TSTA
TSTAA

[NSERTED.

(OMMENTS

100.,Af8,0
AFB,100.,\X*140,\X*2,
\X¢1

:.I.'i""""'"'.'Q'Cl'.'.'.‘.."".."......'

01023G
010232
010234
010236

AT2?2:

000022
01031¢
000144
010240
000022

104003
106012

s TEST NUMBER
;ADDRESS OF NEXT TEST

AR A

000002
012122
010000

171142

000002
012122
010000

171116

THAT

;SCOPE ENTRY POINT

171130

AtBB:

171102

AFBC:

CARRIER DETECY

SREADY SETS AND CLEARS.

AFBA:

.
.
.

ITERATION COUNT

X=X¢

STEST

052777
004737
032777
001002
104003
0004612
042777
004737
032777
001401

22
A123
100.

AFBA‘

LA S

010246
010246
010252
010260
010262
010264

-'.'...."'l"".-t't."l'."l"'

SETS AND CLEARS WHEN DATA

BIS

#B1T1,3RACSR

sSET DATA TERMINAL READY

BIT
BNE
ERROR

#BITI2,3RXCSR
AFBB

;TEST CARRIER DEVECY
:SHOULD BE SET
SWASN'Y

BI(

#BIT],IRXCSR

JSR

B8R

JSR
811

BEQ
ERRCR
SCOPE

1STA
TSTAA

X7,T1IRE

AfFBC

X7,11me
#BIT12 GRXCSR
AFBC

I T

T T

TERMINAL

sDELAY

¢CLEAR DATA TERMINAL

;DELAY
;TEST CARRIER DETECT

sWAS SET, ERROR

READY

100.,AG8,0
AGB,100,,\X+1¢0,\X¢2,
\X¢}

;""""""""."'".""".I"""'...'illl.til'.'li."'.li'.ltl.ttt"t't.lt'

000023
010466
000144
010324
000023

AT2%:

:TEST NUMBER

AGBA1

JSCOPE

AT24
100,
X=X¢

CHEREP RSP AR NR

;ADDRESS OF NEXT
;1 TERATION COUNT

TEST

ENTRY POIN?

AN OC R TV RPN PO PO RP R RROOEREOORARORARERERGRRROERRNRORPOROOOOIORORNQEOIREOEOTCOTRE

.
.
.

1977
1978
1979
1980
1981
1982
1983
1984
198¢
1986
1987
1988
1989
1950
1991
1992
1993
1994
1995
1996
1997
1998
1999

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016

171056

001610

PAGE

360

010366
010372
010400
010406
010410
010412
010414
010422
010426
010426
010430

010436
010442
010450
010456
010460
010462
010454
010466
010466

000002

;TEST THAT MODEM INTERRUPT (BIT 15) SETS WHEN CARRIER DETECT
:CHANGES STATE, AND IS CLEARED WHEN RXCSR IS READ.
AGBA:
BI(
#BIT1,aRXCSR
sCLEAR DATA TERMINAL READY
X7,TIME
JSR
sDELAY
Mov

171036

004737
017737
032737
001002

171022

100000

AGBB:

104003
000416
042777

004737
017737
032737
001002

000002

170752

012122
170742
100000

001610
001610

MLAR A

010466
010470
010472
010474

000024
010600
000144
010476
000024

AT24:

TSTAA

100.,AJB.0
AJB.,100. \X¢1¢0,\X42 \ X4

001002

104003

000412

000002
012122
020000

170704

000002
012122
020000

170644

1O SEND

SREADY SETS/CLEARS.

AJBA:

170672

170656

CLEAR

AJBB:

BIC

JSR
BiT
BEQ
ERRDR
BR
B1S
JSR

B17

BNE
ERROR
Bk

TMTM

N
.
.

:SCOPE ENTRY POINT

YR R R PR P RN RN R N RO R R R RN

THAT

sTEST NUMBER
sADDRESS OF NEXT TEST
s1TERATION COUNT

AT25
100.

X=X+1

104003

052777
004737
032777

s SCOPE

AJBA

;TESYT

000425

SHOULD

s SHOULD BE SET
J1T WASN'Y

AGBE

BIT

sVEST MODEM INTERRUPT

AGBE

ERROR
B8R

VTP RN C R

042777
004737
032777
001402

X7,T1Mg

SCOPE
ISTA

INTERRUPT

sHAVE BEEN CLEARED
;17T WAS GO TO AGBD
;17 WASN'T
.60 10 SCoPE
JCLEARING DATA TERMINAL READY
sCAUSES CARRIER DETECT 10 CLEAR
;BUT MODEM INTERRUPT WitL SEY
sDELAY
MOV RXCSR TO TEMPORARY {O{AT]ON

SRXCSR, RXCSRY
#BIT1S5 RXCSRY

Bl11

AGBE:

;G0 10 SCOPE

sMODEM

AGBE
#BIT1,3RXCSR

BNE

104012

;sWAS CLEAR

AGBD

JSR

000400

:MOVE RXCSR TO TEMPORARY LOCATION
;TEST MODEM INTERRUPT
;SHOULD BE SET
GO TO AGBC

#BIT15,3RXCSR

MOV

1064003

JDELAY

AGBE

BEQ
ERROR
8R
BIC

AGBD:

;60 T0 SCOPE
;SETTING DATA TERMINAL READY
sCAUSES CARRIER DETECT 1O SET
:ggl:u CAUSES MODEM INTERRUPT 10 SET

SRXCSR ,RXCSRY
#BIT15,kXCSRT
AGBC

BIT
BNE
ERROR
BR
BI1

001402

sWASN'T (LEAR

7,71mME

JSR

MOV

AGB(:

sREAD RXCSR
;TEST MODEM INTERRUPY
;WAS CLEAR
GO TO AGBB

AGBE
#BIT1,aRXCSR

BIS

001610
001610

170766

SRXCSR,RXCSRY

#BIT15,3RXCSR
AGBB

Bl
BEQ
ERROR
BR

1064003

000424
032777

S€a 00%6

ld el
i

000002
012122
171046
100000

10:53

324
332
336
344
352

— s O
O~
—
Q—~ro
OO
—
O —ru
o

1975
1976

— ad ed esd

1965

1966
1967
1968
1969
1970
1971
1972
1973
1974

=lelololeleYs) o

1961
1962
1963
1964

[el=lolelatelaYe)

JMAIN.
MACYTT1 30A(1052)
28-JUN-T79
CZDLAH PN
28-JUN=79 10:49

(BIT13)

#BIT1,@RXCSR

17,T1ME

#B1713,QRXCSR
AJBB
AJBD

#BIT1,aRXCSR
X7,71M¢E

#B1T13,QRXCSR
AJBC
AJBD

R RN R RSN OCRRRRATPETROROERNOORERNRANREOERNORRETTY

SETS/CLEARS WHEN DATA

TERMINAL

JCLEAR DATA TERMINAL READY
sDELAY
sTEST CLEAR 10 SEND

+CLEAR TO SEND SHOULD BE C(iEAR
;SET DATA TERMINAL READY
JDELAY

sTEST CLEAR 10 SEND

:BRANCH 1F

SE1

JCLEAR 10 SEND SHOULD BE St1

]

JMAIN.
MACYTY 30A(1052)
2B8-JUN-79
CIOLAH.PW
28-JUN-79 10:49

2017
2018
2019
2020
2021
2022
2023
2024

010552
010560
010564
010572
010574
010576
010600
010600

042777
004737
032777
001401
104003
104012

2026
2027
2028
2029
2030

010600
010602
010604
(010606

000025
010674
000144
010610
000325

2025

2031

2032
2033
2034
2035
2036
2037
2038
2039
2060
2061
2042
2043
2044

2045
2066
2047
2048
2049

2050
2051
2052

2053
2054

2071
2072

170630

PAGE

010610
010616
010622
010630
010634
010642
010644
010646
010654
010660
010666
010670
010672
010674
010674

042777
004737
052777
004737
032777
001001
104003
042777
004737
032777
001401
104003
104012

AJUBC:

010700

010702

010704
010712
010716
0310724
010726
010730
010732
010740
010744
010752
010754
010756
010760
010766

010772
011000

BIf
J3R
Bl
BEQ
ERROR
SCOPE
TSTA
TSTAA

17G616

AJBD:

AT2S5:

000004
012122
000004
012122
040000

000006
012122
040000

170572
170560

170546
170534
170522

25
AT26
100.
AXKBA
XzX+1

;CLEAR TO SEND SHOULD BE CLFAR
: SCOPE

AR AR A

TSTAA

AAA LA

000144

170476

AAAAAA

AR A A

A A d A

A A

170450

000004
012122

170422

100000

Ry R R R

R R R

N R Y

R R

AOBA
X=X+

;SCOPE ENTRY POIN?
:

.
.

sITERATION COUNT

THAY MODEM !NTERRUPT (BIT
81(
#B172,3RXACSR
JSR
X7,.VIRE
Bli
#BIT 5,QRXCSR
BEQ
AOBB
ERROR
BR
AOBD
BIS
#B1T2,8RX(SR
JSR
17,71mM¢E
Bl
#BITIS,QRXCSR
BNE
AQBC
ERROR
BR
AOBD
BiC
#B1T2,3RX(SR
JSR
X7,11ME

AOBC:

’
.

SsTEST
AUBA:

AOBB:

;TEST NUMBER
sADDRESS OF NEXT TEST

170436

170410

26
A127

170464

000004
012122
100000

.
.
’
v
’

:SCOPE
100.,A08,0
AOB,100.,\X+1¢0,\X¢2
\X¢1

100.

000004
012122
100000

;TEST NUMBER
;ADDRESS OF NEXT TEST
;s ITERAT]ION COUNT
;SCOPE ENTRY POINT
;

STESY THAT RING (BIT 14 RXCSR) SETS WHEN REQUEST 10O
sSEND SETS AND CLEARS AND RESET CLEARS RING
AKBA:
8IC
#BIT2,9RXCSR
;CLEAR REQUEST TO SEND
JSR
X7,TIME
sDELAY
B1S
#BIT2,9RXCSR
;SET REQUEST TO SEND
JSR
X7,7IME
sDELAY
BIT
#BI1T14,3RXCSR
;TEST RING
BNE
AKBC
ERROR
SRING SHOULD BE SET
AKBC:
BIC
#BIT2,3RXCSR
sCLEAR REQUEST 10O SEND
JSR
X7.T1ME
sDELAY
811
#BITIL,QRXCSR
TESY RING
BEQ
R
:SHOULD BE CLEAR

AT26:

010704
000026

032777
001401

;CLEAR DATA TERMINAL READY
;DELAY
JTEST CLEAR TO SEND

100.,AkB,0
AXB,100.,\X+14( ,\ (42, ,\X41

ERROR
SCOPE
TSTA

000026
011006

042777
004737
032777
001402
104003
000425
052777
004737
032777
001002
104003
000412
042777
004737

#B1T1,aRXCSR
X7,11M¢E
#BIT13,aRXCSR
AJBD

.'"l."l’""""""""'""""""'i""".'..'l"'l"’l""'l"l"';"""l"

010674
010676

SEQ 0037

SRR

2055

2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070

000002
012122
020000

10:53

Bl
BtQ

A A

#BIT15,8RXCSR
AQBD

15 RXCSR) SETS WMEN RING SETVS.
JCLEAR REQUEST TO SEND
sDELAY
;TESY MODEM INTERRUPT BI7

+SET REQUEST TO SEND
sDELAY
;TEST MODEM INTERRUP! BI!

sCLEAR REQUEST TO SEND
sDELAY

;TESY MODEM INTVERRUPY B!

I MY

-MAIN.

MACY11

CZOLAH.PI

30A(1052)

28-JUN-79 10:49

2073
2074
2075
2076

011002
011006
011006
011006

104003
104012

2078
2079

011006
011010

000027
011120

2077

2080
2081
<082

2090
2091

2092
2093
2094
2095
2096
2097
2098
2099

2100

2101
2102
2103
2106
2105
2106

2107
2108
2109
2110
21

011012
011014

011016
011026
011030
011036

011040
0110642
011044
011052
011056
011064
011066
011070
011072
011100
011104
011112
011114
011116
011120
011120

011120
011122
011124
011126

2112

2113
2116
2115
2116
2117
2118
2119
2120
2121
2122
2123
2126
2125
2126

2127
2128

10:53

PAGE

AQOBD:

011130

011136
011142
011150
011154
011162
011164
011166
011170
011176
011200
011202
011204
011212
011236

AT27:

000144
011016
000027

062777
004737
032777
001402

ERROR
SCOPE
TSTA
TSTAA

104003
000425

052777
004737
032777
001002
104003
000412
042777
004737

032777

001401
104003
104012

000010
012122
002000

000010
012122

002000

170344
173352

170336

ALBB:

ALBC:

170276

ALBD:

000030
011260
000144
011130
000030
042777

AT30:

A R

ERROR
BR
BIS
JSR
BIT
BNE
ERROR
BR
BIC
JSR
811
Bta
ERROR
SCOPE
TSTA
TSTAA

A A

30
AT31
100.
AMBA
X=X¢1

MAAAARAS AL AL AR

000010

170252

012122
000010
012122
100000

170240

100000

170212

000010
012122
100000

170176

170226

170164

R N

;1TERATION COUNT
:SCOPE ENTRY POINT
;

RN N

R R R R

.
.

;CLEAR SUPERVISORY XMIT DATA
sDELAY

;TEST SUPERVISGRY RECEIVE DATA

ALBD

:SHOULD HAVE BEEN CLEAR
s SCOPE

100.,AM8,0
AMB,100.,\X4140,\X¢2,\X+1

AR A

T TmTmTsr

: SHOULD HAVE BEEN SET

#BIT10,3RXCSR

sSET SUPERVISORY XMIT DATA
;DELAY
;TEST SUPERVISORY RECEIVE DATA

ALBD
#BIT3,QRXCSR
X7,V1ME

.
v
.

:SHOULD HAVE BEEN CLEAR

ALBD
#BIT13,3RXCSR
X7,71ME
#BITI10,3RXCSR
ALBC

N N

:TEST NUMBER
sADDRESS OF NEXT TEST
s 1TERATION COUNT
sSCOPE ENTRY POINT
:
A

sTEST THAT SUP REC DATA TRANSISTIONS SEV MODEM INTERRUPY
AMBA:
BIC
#BIT3,QRACSR
sCLEAR SUP REC
JSR
27, TIME
sDELAY
BIS
#8173,3RXCSR
sSET SUP REC
JSR
X7,T1ME
+DELAY
811
#BIT15,9RXCSR
;TEST MODEM INTERRUPT
BNE
AMBg
;MODEM INTERRUPT SHOULD BE SET
ERROR
B8R
AMBE
AMBB:
817
#BIT15,3RXCSR
;MODEM INTERRUPT SHOULD BE
8EQ
AMB(
;CLEARED BY PREVIOUS READ
ERROR
B8R
AMBE
AMB(:
BIC
MBIT3,QRXCSR
:1=0 TRANS OF SUP REC DATA

JSR
81

; TEST NUMBER
s ADDRESS OF NEXT TEST

;TEST THAT SUPERVISORY RECEIVE OATA (BJT 10 RXCSR) SETS/CLEARS
;WHEN SUPERVISORY XMIT DATA SETS/CLEARS,
ALBA:
BIC
#BI1T13,3RXCSR
;CLEAR SUPERVISOR XMIT DATA
JSR
X7,T1ME
sDELAY
BIT
#BIT10,3RXCSR
;TEST SUPERVISORY RECEIVE DATA.
BEQ
ALBB

17032¢

170310

; SCOPE
100.,ALB,0
ALB,100.,\X¢140,\x42,\X¢1

27
AT30

AR A

HMAAS AL

004737
052777
004737
032777
001002
104003
000433
032777
001402
104003
000425
042777
004737
032777

100.
ALBA
X=X+1

000010
012122
002000

SEQ 003

ALAAAALAAAA R

2083

2084
2085
2086
2087
2088
2089

28-JUN=79

X7,T11ME
#BITIS,8RXCSR

sDELAY
;TEST MODEM INTERRUP!

mMmMmmr:

.
.
.
.
.

D26

LMAIN,
MACY11 30A(1052)
28-JUN-79
CZOLAK. P
28-JUN-79 10:49

2129
2130
2131
2132
2133

2134
2135
2136
2137
2138
2139
21640
21641
2162
214643
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169/
2174
271
72
173

2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184

01122¢4
011226
011230
011232
011240

011244
011252
011254
011256
011260
011260
011260
011262
011264
011266

10:93

PAGE

001202

104903

000412
052777
004737
032777
001001

000010
012122
100000

170150

AMBD
:

170136

104003

104912

AMB(
:

BNE
ERROR
BR
B1S
JSR
BIT
BNE
ERROR
SCOPE

AMBD

:SHOULD BE SET

AMBE
¥BIT3,3RXCSR

;C-1 TRANS OF

X7,11ME

;DELAY

#BIT15,aRXCSR

sTEST

AMBE

MODEM

SUP REC DATA

INTERRUPT

; SHOULD BE SET

10.,ABA,CD
ABA,10.,\X+14CD,\X42,\X41

TSTA
TSTAA

:'.'t""""'"""I'"'l't""""""lfl't".l"

100031

AT3Y:

011364
000012
011270
000031

't""'t"l't"'"""'t'tt't't

100031
AT132

;TEST NUMBER

:ADDRESS OF

10.
ABAA

”

;1TERATION COUNT

X=X+1

TEST

[
L4

:SCOPE ENTRY POINT

]

;"lt"""""'t""'t'lt"tt"""""t.'..'ll'

011270
011276
011304
011306
011314
011316
011324
011332

011336
011340

011342
011344
011350
011352
011354
011356
011360
011362
011304
0x1364

011364
011366
011370
011372

017737
012737
004537
001620
016306
000006
004537
001606
016323
000006
104015
016273
104012

000340
177777

177776
170110

000200

170100

170072
000200
004624

001606
001620

THAT RESET CLEARS ALL
MOV
#PRIY7,PSW
Mov
#-1,aTXCSR

SRESET
cmp
BEQ

MOV
mMov
JSR
TEMP
ATXSB
6

004624

TXCSR BITS,

(READY)

FRIT7,QTXCSR
ABAB
dTXCSR, TXCSRY
#B117,TEMP

;OESTINATION ADDR.

TXCSRT
AT1XWAS
6

;#O0F DIGITS TO CONVERT.
;GO TO OCTAL TO ASCII CONVERT,
: SOURCE ADDR.

X5,0ACNV

:DESTINATION ADDR.

;#0F DIGITS TO CONVERT.
;RESET FAILED TO CLEAR ALL BITS EX(FPI

ERRNRI
ABAS:

AND SETS BIT

;SET PRIORITY 7.
;SET ALL POSSIBLE BITS IN TX(CSR
;1SSUE RESET TO CLEAR BITS
;SEE IF ONLY BIT 7 |5 SET.
;BRANCH IF ONLY BIT 7 [S SET
:SAVE CONTENTS OF TX(SR
:MOVE EXPECTED TXCSR T0 TEMP.
;GO TO OCTAL TO ASCII CONVERT,
s SOURCE ADDR.

X5,0ACNV

JSR

ATXCSR

SCOPE
TSTA
TSTAA

:B1T 7 - SEE PRINTOUT

:SCOPE

10.,ACA,0
ACA,10.,\X+140,\X42,\X+1

;'ttl"""."'t"""""i""l"i'l.Q'tt"lt'll.'."t'.'t""t"l'ttt"

"'lt"'

000032
011534
000012
011374
000032

AT32:

012737
062777
012777
052777
005077
106020
104003
012777

32
AT33

s TEST NUMBER

10.

X=X+1

000340 ~1 77776
1 70000
000002
177777
1 67772
167770
000004
167766

167754

”
*
L

P N

R P

P T

N R

P R R

P R R A R

R RN TR RN RN

RO RO RN

T CEOOEROEENOROETEERIYTY

sTEST THAT RESET CLEARS ALL RXCSR BITS EXCEPT DATA TERMINAL READY, RING
.CLEAR TO SEND,CARRIER DET
ACAA:
MoV
#PRIY7,PSW
;SET PRIORITY 7
#B1T1,3RXCSR
BIC
sCLEAR DATA TERM_READY
MOv
#-1,3RXCSR
;SET ALL POSSIBLE BITS IN RX(5R
¥4 ,3TXCSR
B1S
+SET MAINT BIT
(LR
a1 XBUF
¢ TRANSMIT A (HAR
TIMETX

000001

s ADDRESS OF NEXT TEST
s 1ITERATION COUNT
:SCOPE ENTRY POINT

ACAA

011374
011402
011410
011416
011424
011430
011432
011434

cTEST
ABAA:

.'t.t'tlt'llttt'ttl""'t"'t" v

FRROR

MOV

#1,31xBUF

:TIME OUT

TX DONE

s TRANSMIT

ANOTHER (HAR.

;ERROR DONE NOT SEITING

104017
106003
104011

mwou‘bum_‘g

017737
022737
001417
012737
004537
001620
016345
000005
004537
001610
016362
000006
1064015
016332
042777

106012

16:93

PAGE

SEQ 0040
TIMERX

167734

030002
030002
004624

ERROR
SRESET
MOV
(mp
BEQ
MOV
JSR
TEMP

001610
001610
001620

;TIME

SRXCSR,RXCSRT

#30002,RXCSRT
ACAB
#30002, TEMP
X5,0ACNY

004624

RXCSRT
ARXWAS

X5,0ACNV

167656

ARXCSR
BIC
SCOPE
TSTA
TSTAA

ACAB:

DONE

;G0 TO OCTAL TO ASCII

CONVERT,

;GO TO OCTAL

CONVERT.

TO ASCJ!

: SOURCE ADDR.
:DESTINATION ADDR.

6
ERROR1

000002

OUT

;ERROR DONE NOT SETTING
;1SSUE RESET T0 CLEAR BITS,
;MOVE RXCSR CONTENTS TO RX(SRT
;SEE IF ONLY BITS 1,12,13 SET
;BRANCH IF ONLY BITS 1,12,13 SET,
: SOURCE ADDR.
;DESTINATION ADDR.,
:#OF DIGITS TO CONVERT.

ARXSB

6
JSR

;#OF DIGITS TO CONVERT.
;RESET FAILED TO CLEAR ALL BITS EXCEPT

#BIT1,aRXCSR

:BIT 0. SEE ERROR PRINTOUT.
;CLEAR DATA TERM. READY
; SCOPE

10.,ADA,CD
ADA,10.,\X+1¢CD,\X\X+1
42,

:'...".""""""""t"'."""."'.".!.

100033
011614
000012
011544
000033

AT33:

t't""'tl'.tt'l'tl'.."""""""

100033
AT34
10.

sTEST NUMBER
;ADDRESS OF NEXT TEST
; 1TERAT]ON COUNT
:SCOPE ENTRY POINT
N

ADAA
X=X+1

.
.
.
.
-

:.t'l""""""""""""'Q"""".'llt!t".'..tl'Qt""

O ARVo
SO O
S

i e

SN e No No No We ¥o RV IV IV TV TV TV IV IV IV IV, ] wn

i e
e
e
i
D

e st e

i
o

005077
104020
104003
005077
105777
100002
104003
000407
106020
104003
032777

001001

104003
104011
104012

(o Xe Xeo e

20
22

AND WITHOUT MAINT

167646

ADAA:

CLR
TIMETX

ERROR
CLR

167636
167630

1518

BPL
ERRON

B8R

ADAB:

000200

TIMETX

ERROK
Bl
BNE
ERROR

167610

ADAC:

TXBUF

SET

3T XBUF

(TRANSMITTER BUFFER)

THAT

TXDONE

SCOPE
TSTA
TSTAA
R

AT34:

STXCSR

;TEST

ADAB

ADAC

;WAIT

#BLT7,3TXCSR
.44

I RN N

(READY)

TXCSR BIT

(READY BIT)

FOR DONE

;DONE NEVER SET

;READY DID NOT

SET

+SCOPE.
1.,ALA,COD
ATA, T, AXT4CD,\X¢2,\
X}
R R

RN PR RN P RN AR RO RGN E AR RN RGN EOERCENRROIOSTRREROEOOSROREREOETRTS

;TEST NUMBER
;ADDRESS OF NEXT TEST
J1TERATION {OUNT
;SCOPE ENTRY POINT

X=X¢

TXCSR BIT

;BRANCH IF BIT NOT SET.
;ERROR. LOADING TXBUF FAILED 10O (LEAR READY.

1.
AIAA1
A

CLEARS

;ERROR, DCNE NOT SETTING
sLOAD TX BUF

a1 XBUF

100034
AT3S

011624
000034

SETS READY

;LOAD TXBUF
;VTIME OUT TX DONE

SRESET

100034
012136
000001

'"'!.."'."'l".' .

THAT

ed e

D i

D oD i

OOO0OOO0OTUOOOOOCOOOOO

;TEST

OO0

[a¥]

011442
011444

OO OO Rl * 2o lVe ]V,

—

Q0 0o 0o 0o o
00 ~NO

MAIN,
MACYT1 30A(1052)
28-JUN-79
(IDLAM P1
28-JUN-79 10:49

.
.
.
.

M
AR

.
R

AR AX

XXX

TEST THAT TRANSMIT SPEEDS ARE ARRANGED IN ASCENDING ORDER BY CHECKING THAT 1Mt

;7O READY

BIT

(TXCSR BIT

DECREASES AS A HIGHER SPEED

SELECTED.

MACY11 30A€1052)
MAIN,
28=-JUN-79
CZIDOLAM.P
28-JUN-79 10:49

2288
2289
2290
2291
2292
229%
2294
2295
2296

012052
012134

001566

—O

srro

—

HALT

JSR

001570

MOV
TYPE
MSs?2
HALT

001572

MOV
TYPE

[V RV, ]

ww
Heo

Hro

—

[V,
]

(o]]

[’

——d

nono

001574

001576

;OUTPUT

CHAR AND TIME.

JSR

X7.A1AS

;OUTPUT (HAR AND TIME.
:MOVE ELAPSED TIME 10 (TR3,

JSR
MOV
TYPE

%7.A1AS

;OUTPUT (HAR AND TIME
:MOVE ELAPSED TIME 10 C(TR4

ALAST,CIRS

%7 ,A1AS

sOUTPUT (HAR AND TIME
sMOVE ELAPSED (IME 1O CTRS

17 ,A1AS

sOUTPUT

ATAST,CTRZ

AIAST,CTR3

AIASY,CTR4

005037

AIAS:

JSR
BR
ERROR1
ETXTIM
SCOPE

(LR

158718

BPL
(LR

1518

BPL

—l

-4

Moy

Xt
T
>

001604

ATAST,CTRG

001602

g bt

HALY
JSR
MOV
TYPE
ms?
HALT
JSR

bXY
halaX%
D J

~Heo

MOV
TYPE
MS6

X
& _F

—_

NN
"o

—

s
—

[aS 1V

JSR

001600

012052
012056

100375

X7,A1AS

;OUTPUT CHAR AND TIME.
;MOVE ELAPSED TIME 10 CTR2.

HALY

104015

005377
105777

;OUTPUT C(HAR AND TIME.
;MOVE ELAPSED TIME TO (TRO.

%7,A1AS

MOV
TYPE
MS4
HALT

AlAF:

(012064
012070
012074

THIS TEST SELECTED

;MOVE

HALT

016372
104012

012062

ATAST,CTRY

JSR

012J46
012059

105777
100575

sTEST

mso
-1
HALT
JSR
MOV

020253
000000
004737
013737
004737
000402

%7 ,DOTHIS

ELAPSED

TIME

TO (TR,

MsS

[aS2,N]

104000
020233
000000
004737
013737
104000
020243
000000
004737
013737
1064000

JSR

Ms3

013737

AlAA:

—

004737
013737
1060C0
020213
000000
004737
013737
104000
020223
000000
004737

SEq 004

TYPE

020173
000000
004737
013737
1064000

120203
00000

PAGE 41

T(PES
MSETTX
MSETC

(v 3V,

106000

006352

rono

004737
104007
017653
017701
020163
177777
000000
004737
013737

2241
011624
2262
011630
2243
011632
2244
011434
2245
011636
2246
011640
22647
011642
2248
011644
2249
011650
2250
011656
2251
011660
2252
011662
2253
011664
2256
0131670
2255
011676
2256
011700
2257
011702
2258
011704
2259
011710
2260
011716
2261
011720
2262
011722
2263
011724
2266
011730
2265
011736
2266
011740
2267
011742
2268
011744
2269
011750
2270
011756
2271
011760
2272
011762
2273
011764
2¢74
011770
2275
011776
2276
012000
2277
012002
2278 012004
2279 012010
2280 012016
2281
012020
2282
012022
2283
012024
2284
012030
2285
012036
2286
012042
2287 012044

10:53

(HAR AND TIME

sMOVE ELAPSED TIME 10 (TR

sOUTPUT CHAR AND TIME
;MOVE ELAPSED TIME 1O CIR?7
¢CHECK THAT CTRO THROUGH CTR7? (ONTAIN
sDESCENDING VALUES

:TRANSMIT

SPEEDS NOT

;ASCENDING GRDER.
s SCOPE
ATAST

dTXCSR
.4

o TXBUf
axz(sn

ARRANGED

¢CLEAR ELAPSED TIME COUMTER.
JWAIT

FOR

READY,

MAIN.
flA(Y11
CIDLAH.PI

30AC1052)
28-JUN=79
79 10:49

2297
2298
2299
2300
2301
%gg%

012076
012102
012106
012112
012116
012120

077
737
257
5777

167314
012122
012134
167276

2304
2305
2306
2307
2308
2309

012122/
012126
0121
012182
012Y34¢
012136

012700
(05300
001376
000207
000000

000017

012136
012140
012142
012144

(00035
(012212
000012
012146
000035

2310

23N

2312
2313
2314
2315
2316

10:53

TIME:
TIMY:
AJAST:

o T XBUF
X7,T1IME
AlAST
DTXCSR
Al1ASA
X7

MOV
DEC
BNE
RTS
OPEN
TSTA

#15..,%0
X0
TIM
X7

;LOAD TXBUF.
JWAIT 75 US
s INCREMENT ELAPSED TIME COUNTER.
sREADY SET?
;BRANCH ]F READY NOT SET.
JEXIT,

10.,ALA,Q

ALA,10. ,\X+140,\X+2,\X+1

RAMAAAARSARA S AR A A A

AT3S:

35
AT36
10.
ALAA
X=X+1

;TEST NUMBER
;ADDRESS OF NEXT TEST
;s ITERATION COUNT
;SCOPE ENTRY POINT
:

N R

R R

;"Q""'."""'""""tl""""""l'."t'.'.".l..'l.t.'lt'l"ll""'"it

¢TEST THAT OUTPUTTING A CHARACTER WITH THE MAINTENANCE BIT SET

2319

;RESULTS

g;g?

IN DONE BIT SETTING (RXCSR BIT

.
*
.
.
.

't'

(TXCSR BIT 2)

7) NO LATER THAN SO0 MSECS. AND

sTHAT RESET INSTRUCTION CLEARS THE DONE BIT

2322
2323
2326
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336

012146
012154
012160
012162
012164
012170
012172
012174
012176
012200
012204
012206
012210
Q12212
012212

2338
2339
23640
231
2362

012212
012214
012216
012220

2343

2344
2345
2346

012222

2368
2349
2350
2351
2352

012256
(012236
012240
012244
012250

2347

(LR
J3R
INC
1518
BPL
R1S

TSTAA

2318

2337

SEG 004¢

AJASA:

012136

2317

PAGE

012230

052777
005077
104016
000764

135777
100402
104003
000405
104011
105777
120001
194003
134012

000004
167236

167240

ALAA:

B1S
CLR
DELAY
500.
1818
8n]
ERROR
BR
SRESET
1518
BPL
ERROR
SC(OPE
TSTA
TSTAA

167220

ALAB:

167204

ALAC:

AR A R R A

190036
012256
000144
012222
030036

052777

005077

104017
104003
005777
105777
10000}

AT36:

000004

167162
167146

167140

167164

s s A

100036
AT37
100.
AMAA
X=X+1

NBIT2,8TX(SR
aTXBUF

SSET MAINTENANCE BIT
sLOAD TXBUF
;WALT 500 MSECS.

aRY(CSR
ALAB

sSEE IF DONE BIT IS SET
sBRANCH IF DONE BIT IS StV
sDONE BIT FAILED T0O SET

ALAC
aRXCSR
ALAC

s 1SSUE RESET TO CLEAR DONE BlY
sSEE IF DONE BIT IS CLEARED
sBRANCH 1F DONE BIT IS CLEARED
sRESET FAILED 10 CLEAR DONE BIT
: SCOPE

100. ,ARA, (D
AMA,100. ,\X+1eCD, \X¢2, \ X
A

:TEST NUMBER
sADDRESS OF NEXV TEST
s ITERATION COUNT
sSCOPE ENTRY POINY
:
A

I IIImImmnmm

M m MM I

.
.
.
.
I

;TEST THAT DONE BIT (RXCSR BIT 7) 1S CLEARED BY READING RXBUF.
;DONE SET BY OUTPUTTING CHARACTER WITH MAINTENANCE BIT SET (TXCSR BI!T 2
AMAA:
B1s
#BIT2,3TXCSR
sSEY MAINTENANCE BIT (TXCSR B!1 2)

(LR

8T XBUF

sLOAD TXBUF

18T

SRXBUF

sREAD RXBUF

TIMERX
ERROR

1518
BPL

ARXCSR
AMA(

sWAlT FOR DONE BIT 10 SET.
10 CtEAR DONE B17

+SEE IF DONE BIT IS CLEAR
;BRANCH IF DOONE BIT IS C(LEAR

MmO

(e JX« ¥ « XV RV N1
HrNOO00
OO

—

AV 1.V 1, V] VR VT OYTN
ORI
NORUAO
RO

—

OOO0C

2353
2354
2355

OOoOO

MACY11 30AC1052)
LMAIN,
28=JUN-79
CIDLAH P
28-JUN-79 10:49

10:53

104003
104012

PAGE 43

SEQ 0043
AMAC:

ERROR

SCOPE
TSTA
TSTAA

;READING RXBUF

; SCOPE

FAILED

TO (LEAR DONE BIT

100.,A0A,
(D
AOA,100.,\X+14CD,\X42,\X+1

;"'t'."""""t"""'t"""""""'

100037

AT37:

012366
000144
012272
000037

.'tl't"""'l"""'""""""t't"

100037
A140

:TEST NUMBER
;ADDRESS OF NEXT

AO:A1
X=X+

;SCOPE
H

100.

; 1ITERATION COUNT
ENTRY

.
.

TEST

POINT

.
*

:""t't""'"""'!"""""""""""t.tt"

"t"'l"'t"ttt"'t't"l't""

004737
052777
005077
005037
032777
001402
005237
105777
100367

023727
001002
104003
000405
032777
001401
104003
005777
104012

003004
000004
167112
001620

004000

167114

167072

001620
167060
001620

;TEST THAT RECEIVER ACTIVE SETS WHEN CHAR STARTS AND
;CLEARS WHEN RECEIVER DONE SETS
JSR
X7,CDINIY
JINIT IF C-D DEVICE

ADAA:

AOAB:

ACAB1:

BIS

#BIT2,3TXCSR

CLR
(LR

3T XBUF
TEMP

BtQ
INC

AOABI
TEMP

BIT

MBIT11,QRXCSR

T1S1B

BPL

000000

004000

167034

AOAD

167026

AQAD :

BEQ
ERROR
EEAPE

SET

DONE

SET

SRECEIVER ACTIVE NEVER SET

#BIT11,aRXCSR

;DID DONE

aRXBUF

:NO, RECEIVER ACTIVE DID NOT
sCLEAR RX DONE

ACAD

TSTA
TSTAA

ACTIVE

;DID RECEIVER ACTIVE

RECEIVER

;BRANCH IF CLEAR
;YES, REMEMBER THAT

TEMP ,#0

AQAL

AOAC:

;1S

;SEE

BNE

ERROR

MAINT

;TRANSMIT CHAR
;CLEAR BUSY INDICATOR

IRXCSR

AOAB

cmp

JSET

CLEAR ACTIVE

(LEAR

1.,AQA,0
AQA, T, \X¢140,\X4
\X¢1
2,

;tll.I't"."""""l'l"'l"'""'"t".'.....'..‘."'."

-t.t".'.!"t""""'

000040
012670
000001
012576

AT40:

s TEST NUMBER

AT41

;ADDRESS OF

:1TERATION COUNT

AQAA‘
X=X+

000040

:SCOPE
.

TEST

ENTRY POINT

.
.

;t'tl""""'i""t""'I'Qt""""'.'.".Q.'.'..t'.l't.

.l...'t"....."i'".'

;TEST THAT RECEIVF SPEEDS ARE ARRANGED IN ASCENDING ORDER BY CMECKING THAT TIme
;ELAPSED TO DONE BIT SETTING (RXCSR BIT 7) DECREASES AS A HIGHMER SPEED

;THIS

012376
012402
012404
012406
01246410
012412
012414
01246416
012422

012430

012432

004737
104001

006352

AQAA:

017625
017701
020163

177777
000000

004737
013737
104000

020173

1S NOT

DONE

IN MAINTENANCE MODE

;POTS MUST BE STEPPED TOGETHER
:1S SELECTED.
JSR

TYPES
MSETRX
MSETC

TX AND RX

X7,00THIS

;CHECK

%7,AQAS

;OUTPUT (HARACTER AND TIME DONE Bi°

THIS TEST

10 BE DONE

H?O

012624
012666

HALT

001566

JSR

Mov

TYPE

Ms1

AQAST,CTRO

;MOVE

ELAPSED TIME

TO (RO

MACY11 30A(1052)
LMAIN,
28=JUN-79
CIDLAK.PI
28-JUN-79 10:49

2609
2410
261
2612
26413
26414
2415
2416
2617

012434
012636
012442
012450
012452
012454
012456

2428
26429
2430
2431
2432
24633
24634
2435
2436
2437
2438
24639
2640
26441
2442
2443
2444
24645
24646
2447
2448
24649
2450
2451
2452
2453
24654
2455
2456

26457
2458
2459
2460
2461
24662
2463
2464

OO ~no

»H NONNO

2624
2425
2426
2427

(¥ WNN
= e e

2419
2420
2621
2422
2423

a2
Yol VALV IV IV TV

24618

000000
004737
013737
104000

020253
000000
004737
013737
004737
000402

016434

012624
012630
012634
012636
012642
012646
012652

005037

012666

012670
012670

HALT
J3R
MOV
TYPE

005777
005077
004737
005237
105777

100371
000207
000000

JSR
MOV
TYPE

001572

100041

013034
000012

AQAST, (TR

:OUTPUT CHARACTER AND TIME DONE BIT
;MOVE ELAPSED TIME 1C (TRI

X7,AQAS

;OUTPUT

AQAST,CTR2

CHARACTER AND

;MOVE ELAPSED TIME

TIME

TO (TR2.

DONE

BIT.

MS3
012624
012666

HALT

JSR

001574

X7,A0AS

MoV
TYPE

;OUTPUT (HARACTER AND TIME DONE BIT
;MOVE ELAPSED TIME TO (TR3.

AQAST ,CIRY

MS¢

012624
012666

HALT
JSR
MOV
TYPE

001576

X7,AQAS

AQAST,CTR4

MSS

012624
012666

0126264
012666

HALT

17,AGAS

JSR

001600

MOV

AQAST,CTRS

TYPE
MS6
HALT
JSR
Mov
TYPE

001602

27,A0AS

AQASTY,(1R6

Ms?

012624
012666
014564

HALT
JSR
nov
JSR

001604

AQAB:

012666
166560
166550
166550

012122
012666

AQAS:

17,A0AS

AQAST ,CTR?

AQASA:

AQAB

(LR
1S1B

AQAST

AQAST:

AL AR

AT41:

sCHECK

187
CLR

1S18
BPL
RTS
OPEN
TSTA
TSTAA
AR

100041

ATGL?2
‘o.

CTRO THROUGH (TR3 C(ONTALY

sASCENDING ORDER.
s SCOPE

sCLEAR ELAPSED TIME COUNTER AQASY
sWAIT FOR X READY.

STXCSR
=4
aRXBUF
a1 XBUF

+LOAD TXBUF

AGAST
SRXLSR
AGASA

; INCREMENT ELAPSED TIME COUNTER
DONE SET?
;E§?¥c" IF DONE NOT SE1

.CLEAR DONE BIT

X7,11me

JSR

THAT

DESCENDING VALUES.
sRECEIVE SPEEDS NOT ARRANGED IN

SCOPE

INC

166526

X7.CMPT

8R
ERROR1
ERXTIN

BPL

012670
012672
012674

%7 ,AQAS

mMs2

HALT

104012

105777
100375

SEQ 0044

104015

012620
012622

012656
012662
012664

PAGE

001570

020203
000000
004737
013737

1046000
020213
000000
004737
013737
104000
020223
000000
004737
013737
106000
020233
000000
004737
013737
1046000
020243
000000
004737
013737
104000

10:53

IF SET

TELAPSED TIME COUNTER

10. ,ARA,(D
ARA, 10, ,\Xe140D
\ X2, \ XM
R

AR R

;TEST NUMBER
ADDRESS OF NEXU TES!
S1TERATION COUNT

X R R

ER R

:
.
.

2492

2493
2694
2495

Y, V1 VY V1, V], V], ¥

ol VARV RV LW YU JV RV | A%

N——.—.—l—‘—dd —
DO0®W
N
N no

ARAA

;SCOPE ENTRY POINT

X-X#+1

100402
104003
106012
032777

CORRECT OPERATION OF
JSR
X7,ARAS

MOV

BI1

BNE
ERROR
SCOPE
161
BMI
ERROR
SCOPE
Bl

001612

040000

166440

1064003
104012

013016

100000

166420

032777
001401
104003
106012
052777
005077

040000

166404

013030
013032
013034
013034
013034
013036
013040
013042

;SEF

000004
16637C

166372

ARAS:

000764
000207

THAT ERROR BIT WAS SET

;ERROR BIT

#BIT14 ,aRXBUF

CLEARED DATA OVERRUN

#BIT15,aRXBUF
.*6

sOUTPUT CHAR <+WALT 500MS
;TES! THAT ERROR CLEARED

#B17114,3RXBUF
Y

sTEST

THAT

OVERRUN (LEARED

s SCOPE
;SET MAINTENANCE 817

#BIT2,37XCSR
8 1XBUF

500.

15)

:SEE THAT DATA OVERRUN WAS NOT
;CLEARED WHEN RXBUF WAS READ
;BRANCH IF SET

%7 ,ARAS

sLOAD TXBUF

sDELAY 500 MSECS

RTS
TSTA
TSTAA

(RXBUF BIT

FAILED TO SET WMEN OVERRUN SET

;READING RXBUF

SCOPE

JEXIY

10.,ATA,CD
ATA,10
140D,
.,\X+
\X¢2 \X*1

:t".Q"""'.".'.""C"'.Q'".'.'."..Il."l.'t..".t't""tl

100042
013122
000012
013054
000042

106007

013110
062777
005037
052777
000240
104003

177776
000100

166332

ATAA:

166320

TRANSMITTER

ATAC
BIC
CLR
B1S
NOP

042777

000100

166306

042777

000100

166276

106012

IS ABLE

INTERRUPT.

THE

ATAB:
ATAC:

ERROR
BlC
SCOPE
8IcC

#BIT6,3TXISR
PSk
#B.16,3Tx(sR

#BIT6,ATXCSR

INTERRUPT

;17T Wit HAVE OCCURRED AT THE CORRECY VECTOR.
JSR
7 ,0VRLAY
;G0 TO OQVER LAY ROUTINE
STV
JSET TX INTERRUPT SERVICE

003614

000100

THAT

.
.
N

;ADDRESS OF NEXT TEST
:1TERATION COUNT
;SCOPE ENTRY POINT

X=X+1
AR

s TEST NUMBER

ATAA

;TEST

004737

't'.t.."'tt"'ti

100042
AT4L3
lol

AT&2:

MAAAAASA

013044
013050

RXBUFT

Bl1
BEC
ERROR
SCOPE
B1S
(LR
CELAY

500 MSECS
500 MSECS

;SAVL RXBUF CONTENTS + (LEAR DONE
;SEE IF DATA OVERRUN BT WAS SET
:BRANCH 1F BIT WAS SET

BNE

004737
032777
001402

104016

(RXBUF BIT 14)
;OQUTPUT CHARACTER AND WAIT
;OUTPUT CHARACTER AND WAIT

ERROR
SCOPE
JSR
BIT
BEQ
ERROR

l"l’llt""'t""l'l"'l"""l'

DATA OVERRUN BIT

X7 ,ARAS
aRXBUF ,RXBUF 1
lBéT14.RXBUFT

JSR

rnonro

—

ARAA:
——

013014
013014
166476
040000

:TEST

o0
OO

WANWNNIN)
— = OO

srooorvoOorcordS
os

OO
NN

b ot

ed i

PIPY

o ——

)

oo (rleleleloloto
Yoo

d o
b
e

2491

LAV 1T

012700
000047

106003
104012

2490

2502
2503
2504
2505
2506
2507
2508
2509
2510
2511

SEQ 0065

001002

2488
2489

2496
2497
2498
2699
2500
2501

PAGE 45

:'l"t""""t"t"""""'l""""tt."""'

2677
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487

012676

OO0OO0O

2465
2466
2467
2468
2469
2470
2671
2472
24673
2474
2475
2676

10:53

Fen)

MACY11 30A(1052)
MAIN,
¢8~-JUN-79
CIDLAN P11
28-JUN-79 10:49

J10 ATAC

sDISABLE TX INTERRUPT
sSET PROCESSOR PRIORITY 10 Q
JENABLE TX INTERRUPY

+PEADY DID NOT CAUSE AN INTERRuP?
+SCOPE
(HERE

INT,

DISABLE

IN?

SERVICED,

NN
—
WIONIN

T Ve
Yo 3
(o]0 oF
VI

-t o i
— e acd

—

et ek

NN NN
WM

[=leloleliNelelof
)

10:53

PAGE

SEQ 0040

022626
00077¢

POPSP?

BR
TSTA
TSTAA

ATAB
1000. ,AUA,CD
AUA,1000.,\X+14CD,\X42,\X+1

;.l'l‘""""""""'""""""""""l'tt"

100043

AT43:

013200
001750
013136
000043

ttt"fl"'tlt.l""llllt"t't't't

100043

;TEST

AT4LS
1000.

NUMBER

;sADDRESS OF NEXT
;1TERATION COUNT

AUAA'|

;SCOPE

X=X+

NN N AN NI NI N

VAN
= O 000 ~NO NS W

LA IV ST, VT VT VT VY, VY VY, VT V7. V)
et A Al Al Y IV IV AT A AN IV

LMAIN,
MACYT11 30A(1052)
28~JUN=-79
CIDLAH. P
2B-JUN-79 10:49

ENTRY

TEST

.
.

POINT

;

*
'

;'tl'..""t""""i'7"'""'l""""'.t""lt'

(v MHAN

;TEST

;AT

[a%]

104007

174
176

013172
013737
042777
052777
000240
042777
106012
022626

001426
000100
000100
000100

177776
166242

l'."tt"'l"'.t'.""""'ltl

THAT READY DOES NOT CAUSE AN INTERRUFT WHEN THE PROCESSOR IS

THE

AUAA:

MOV

AUAC:

104003

ERROR
BR

000771

THE

TRANSMITTER INTERRUPT REQUEST LEVEL
;SET TX INTERRUPT SERVICE 10O
;SET

#B1T6,aTXCSR
#BIT6,aTXLSR

NOP
BIC
SCOPE
POPSP2

AUAB:

TXLVL,PSW

BIC
BIS

166234
166224

SAME PRIORITY
iTTéV
UA

SENABLE

#BIT6,aTXCSR

PRIORITY

SAME

PRIORITY

INTERRUPTS

;0K IF NO INTERRUPT OCCURS.
DISABLE
:SCOPE
;HERE IF INTERRUPT OCCURS. POP STOCK

;TX INTERRUPTED WITH PROCESSOR AT
;PRIORITY AS THE TRANSMITTER

AUAB

TSTA
TSTAA

PROCESSOR

INTERRUPTS
TWICE

SAME

10. ,AVA,CD
AVA, 10, ,\X414CD,\X42,\X+1

;lt"l""".l'"""'t"'."'"'l"""tl'.'.."'.'.'tl"'.

’t'l"'t"'t.t.'t."t

100044

013206

AT44:

013264
000012
013214
000044

100044

s TEST

AT45
10.

NUMBER

;ADDRESS OF NEXT TEST
;1TERATION COUNT

AVAA‘
X=X+

;SCOPE
.

ENTRY

.
.

POINT

:'l"t""""'t"'."'""'"'"'.""""'t'.".t

""i"..t't'.l'l.tf."""'.

JTEST

013210
013212
013214
013222
013230
013236
013244
013246
013250
013252
013254

013262
013264
013264

162737

052777
000240
104003
000401
022626
042777
104012

000100
001426
000040
000100

166172

177776
177776

100045
013362

INTERRUPTS WHEN PROCESSOR

STT;V
AVA

AVAA:

BiC
Mov

166150

166132

AVAB:
AVAC:

AT4S:

000144
013274
000045

AR A

INTERRUPT

PRIORITY ONE

SERVICE

sTX FAILED

#B1T6,aTXCSR

EVEL

TO AvAB

TO ONE LEVEL

;LOWER THAN TX PRIORITY
;ENABLE TX INTERRUPTS
INTERRUPT

JHERE 1F
sDISABLL

INTERRUPT OCCURS.
TX INTERRUPTS

POP STOCK

TWICE

:SCOPE
100. ,AWA, (D
AWA, 100, ,\X*10(
\X*2,\
D,
X1
AR R

100045

sTEST

AT46

+ADDRESS OFf

X=X+

;

OSSR OR RSP E NN E RN RIS PR RE RN YRR

E R

»
NEXT

s1TERATION COUNT
;SCOPE

NUMBER

100,

AWAA
’

IS AT

;DISABLE TX INTERRUPTS
:SET PROCESSGR PRIORITY

AVA(C

POPSP?2
BI(

SCOPE
TSTA
TSTAA
»

;SET

#60,PSW
#B116,3TXCSR

N
ERROR

000100

INTERRUPT PRIORITY,

#B176,31XCSR
TXLVL ,PSW

SuB
Bég

MAARA

013264
013266
013270
013272

TRANSMITTER

;LOWER THAN THE TRANSMITTER

106007

013252
042777
013737

THAT

.
.

ENTRY

TES!

POINY

RN RN REROERRRRRT RO RRERTRRORROARCREROOE

]
RO RO

RORNTYETS

MACYTY 30AC1052)
MAIN,
23=JUN=79
CIDLANK.P
28-JUN=79 10:49

2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
259N
2592
2593
2594
2595
2596
2597
2598
2599
2600
013366
2601
2602
013370
2603
200
2605
2606
013372
2607
2608 013376
013400
2609
2610
013402
2611
013406
2612
013414
2613 013420
2614
013426
2615
013430
013432
2616
2617 013434
2618 013436
2619
013444
2620
013446
013446
2621
2622
2623 013446
2624
013450
013452
2625
013454
2626
2627

2628
2529
2630
2631
2632

WNNNINI
=

L L A
N AN (N
Lo (o L A M NN AN PO )

10:93

PAGE

SEQ 0047
JTEST

1064012

012777
012716
000002
000240
000764
022626

THAT

TRANSMITTER

DOES NOT

;OCCURRED AND HAS BEEN SERVICED.

104007

013334
0462777
005037
052777
000240
1064003
042777

AWAA:

000100
177776

000100

166106

STIxXy
AWAC

B1C
(LR
BIS

166074

NOP

ERROR

#B1T6,3TXCSR

PSW
MB1T6,aTXCSR

000100

166062

AWAB :

Bl1C

#BIT6,aTXCSR

01335¢4
01335¢

166062

AWAC:

MOV
MOy
RTI]
NOP

NAWAE ,aTXVTR
FAWAD ,aX6

AWAB

AWAD :

AWAE :

104003
000761

SCOPE

POPSP?2

ERROR
BR

TSTA
TSTAA

REINTERRUPT

;SET

THE

INITIAL

TX INTERRUPT SERVICE

;DISABLE

INTERRUPT

HAS

TO AWAC

INTERRUPTS

;SET PROCESSOR PRIORITY
;ENABLE TX INTERRUPTS

10 0

; IRANSMITTER FAJLED TO INTERRUPT
;DISABLE TX INTERRUPTS
; SCOPE
JHERE |F INTERRUPT OCCURS. (MANGE EXIT
;POINTER TO AWAD AND EXIT INTERRUPT

;0K JF NO INTERRUPT REOCCURS.
SHERE

AWAB

AFTER

:TX

INTERRUPT REOCCURS

REINTERRUPTED AFTER RT]

10.,AXA,CD
ALA 10, ,\X+T
,\X42,
40D
\X¢1

:"'.""""l'.""'."'..""""'..".'I..".'.'.t'

100046

AT46:

013446
000012
013406
000046

.ll.."'l...'.'."'."'."t

100046

;TEST NUMBER
:ADDRESS OF NEXT TEST
s1TERATION COUNT
;SCOPE ENTRY POINT

A147
10.

AXAA

X=X¢1

.
.
>
.

;'ttt""'.'.""l."""’.l.'.'"."'l".'....'I.

...'...t'l"..'..'Q"t"'.""

004737
104006
013434
004737
042777
005037
052777
000240
106003
000401
022626
042777
104012

;TEST THAT RECEIVER CONE BIT 1S ABLE 1O INTERRUPT. IF THE IV
;SERVICED 1T WwitL HAVE OCTURREC AT THE (ORRECT VECTOR.

003614

JSR
SIRXV

014544
000100

165774

000100

165762

177776

000100

AXAA:

AXAB
JSR
BIC

CLR
BIS

NOP
ERROR
165744

AXAB:

AXAC:

7 .OVRLAY

;SET RX INTERRUPT SERIVCE

X7,STRXD
#8176, ,3RXCSR

;SIT RX DONE BIT
:TISABLE RX INTERRUPTS

#B116,aRXCSR

SENABLE RX

PSu

AXAC

BIC

#B116,3RXCSR

POPSP?2

SCOPE
TSTA
TSTAA

;GO YO OVERLAY ROUTINE

RRUPT

TO AXAB

.SET PROCESSOR PRIORITY 10 0
INTERRUPTS

sRX FAILED TO INTERRUPT
JHERE 1F

;DISABLE

: SCOPE

INTERRUPT OCCURS
INT EN

10. ,AX1,0
AXT,10.,\X4140,\X42,\X¢1

:t""'t""""'ltC"'.'"'"l"'."".'.'Ql""..".l!.tltl!"".'it""'!.'tt'

000047
013530
000012
0134666
000047

AT47:

47
ATS0
10.
AX1A
X=x+1

sTEST NUMBER
;ADDRESS OF NEXT TEST
s 1TERATION COUNT
:SCOPE ENTRY POINT

.
.
.
v

;"l".l""'""'ll""""'i'l'l'"'I'l.'l"ll."il..tt"tit't'l'l.""t.'tl'.

013456
013462

006757
104006

003614

;TEST THAYT MODEM INTERRUPT BIT IS ABLE TO INTERRUPT. [F
;SERVICED 1T WiLL HAVE OCCURRED AY THE CORRECY VECTOR.
JSR
STRXV

7 ,0VRLAY

+GO TO OVERLAY ROUTINE

THE

INTERRUPY

sSET RX INTERRUPY SERIVLE 10 AXAB

MACY11 30A(1052)
LMAIN,
28-JUN-79
CIDLAM.PY
28-JUN-79 10:49

2633
2634
2635
°636
2637
2638
2639
2640
2641
2642
2663
2644
2665
2646
2647
2648
2669
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676

2677
2678
2679

2680

2681
2682
2683
2684
2685
2686
2687
2688

013464
013466
013474
013500
013506
013510
013512
013514
013516
013520
013526
013530
013530

013530
013532
013534
013536

013516
062777
005037
052777
106016

000044
177776
000044

10:53

165714

PAGE

SEQ 006R
AXTA:

165702

000005
104003

104012

AX18B
BIC
(LR
BIS
(5)[LAY

ERROR

000401

022626
042777

000040

165662

AX1B:
AX1C:

H44 ,aRXCSR
PSW
¥L4 aRXCSR

:DISABLE MODEM INTERRUPTS
:SET PROCESSOR PRIORITY 10 9
;ENABLE MODEM INTERRUPTS,RQ TQ SND

;MODEM FAILED

BR
POPSP?
gééPE

AX1C

TSTA
TSTAA

1000.,AYA,CD
AYA,1000.,\X+14CD,\X42,\X+1

¥B115,3RXCSR

SHERE IF
;DISABLE

TO INTERRUPT

INTERRUPT
INT EN

CCCUPS

;"!l""""ll""""""'"'""""".'ltt.

100050

AT50:

013612
001750
013550
000050

l.t".'l'l"l'll"l't't""t"l"'

100050
ATS1
1000.

:TEST NUMBER
;ADDRESS OF NEXT
;ITERATION COUNT

:Y:A1

;SCOPE

=X¢

ENTRY

.
v
.

TEST

POINT

:l'.".""""""'..'l"lt""'l"'tt'...!tl

;TEST

013540
013542
013544
013550
013556
013564
013572
013574
013602
013604
013606
013610
013612
013612
013612
013614
013616
013620

104012

THAT

RECEIVER DONE B1T

DOES NOT

CAUSE

INTERRUPT WHEN THE

PROCESSOR

;1S AT THE SAME PRIORITY LEVEL AS THME RECEIVER INTERRUPT REQUEST LEVEL

104006

013604
004737
042777
013737
052777
000240
042777

tl'l'tt'."""'."I't.".'t""'t

i:iév

014544
000100
001422
000100

165632
177776
165616

000100

165606

022626
104003
000771

AYAA:

JSR

BIC

SET

X7,STRXD

#BIT6,IRXCSR

MOV
Bég

RXLVL,PSW
#B1T6,aRXCSR

AYAB:

BIC

#B1T16,3RXCSR

AYAC:

SCOPE
POPSP?

ERROR
8R
TSTA
TSTAA

INTERRUPT

SERVICE

TO AYAC

;SET RX DONE BIT

;DISABLE

INTERRUPTS

;SET PROCESSOR PRIORITY
;ENABLE RX INTERRUPTS

;0K

NO INTERRUPT.

. SCOPE
;HERE IF

SAME

AS RECEIVER'S

DISABLE RX

INTERRUPT OCCURS.

INTERRUPTS

POP STO(K

:RX INTERRUPTED WITH PROCESOR AT SAME
sPRIORITY AS THE RECEIVER

TWICE

AYAB
10.,AZA,CD
AZA,10.
AKX+ 14(D,\X+2,\ X4

:I"'.""""""i'..""""'l""""..".'..'...'..t.".'""".""

t"""'.

100051
013702
000012
013632
000051

ATS1:

100051

; TEST NUMBER

AT52
10.

+ADDRESS OF NEXT TEST
s 1TERATION COUNT

X=X+

AZAA1

.
.

:SCOPE ENTRY POINT

.
.

:'"t""""'.I"""""'!"'tl"""""..liI.'..'t.!...l'.i't'.'t""'t.l"'

013622
(013624
013626
013632
013640

013646
(01365¢
013662

013664
013666
013670

JTEST THAT RECEIVER DONE BIT CAUSES INTERRUPT WHEN PROCESSOR IS AT PRIORITY
;ONE LEVEL LOWER THAN THE RECEIVER'S INTERRUPT REQUEST LEVEL

104006

013670
006737
062777
013737
162737

052777
000240

s;ngv

014544
600100
001422
000040
000100

ALA

AZAA:

AIAB:

X7,STRXD

sSEY RX DONE BI1

BIC
Mov

#B116,aRACSR
RXLVL,PSW

;DISABLE RX INTERRUPTS
;SET PROCESSOR PRIORITY ONE

Blg
NO
ERROR

#B116,3RX(SR

+ENABLE

SuB

106003

000401
022626

JSR

sSET RX INTERRUPT T0 AZAB

POPSP?

#40,PSW

ALAC

LEVEL

;LOWER THAN RECEIVER'S PRIOR]
Y

JRY

FATLED

INTERRUPTS

INTERRUPY WllW PROCESSOR AY

;PRIORITY ONE LEVEL LOWER TWAN RECEIVER®S
JHERE

INTERRUPT

OCCURS

MAIN.
MACYTT 30A(1052)
28-JUN-T79
CZDLAN P11
28-JUN-79 10:49

672
700

000100

PAGE

49
Sta

165510

AZAC:

BIC
SCOPE
TSTA
TSTAA

#BIT6,3RXCSR

" ;DISABLE
;SCOPE

INTERRUPTS

100.,AAB,CD
AAB,100.,\X¢14CD,\X42,\X+1

'"'t""""""0"""'"""""""".

ATS2:

014000
000144
013716
000052

"'.."!I".'ll'ttt"""tttt"

100052

ltttt'.t

;TEST NUMBER

AT53
100.

s ADDRESS OF NEXT
;1TERATION COUNT

:A2A1

;SCOPE

=X+

ENTRY

TEST

,
.

POINT

;""""'t""""'""""""""'""'."."'l

;TEST

e W
el
e e
P
ol
o

LT
104012

10:53

100052

ONO
NS W —=O O oo

NNNNSN
NN NN ~

2689
2690
269
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707

a1 1,91, V] VT VY, 7. VT W) [p¥]

)36

013766
013770
013772
013774
013776
014000
014000
014000
014002
014004
014006

004737
106006
013752
042777
082777
000240
104003
042777
104012
012777
012716
000002
000240
000764
022026
104003
000761

014544

AABA:

000100
000100

RECEIVER DOES NOT

i;ggv

165460
165652

;SET

BIC
Bég

¥B116,aRXCSR
#B116,aRXCSR

000100

165440

AABB:

013772
013766

165440

AABC:

ERROR

BIC
SCOPE
MOV
MOV
RT1
NOP

AABD:

005777
104012

THE

INiTIAL

INTERRUPT

;DISABLE RX
;SCOPE

SERVICE

HAS

70 AABC

INTERRUPTS

JHERE IF INTERRUPT OCCURS. CHANGE
JAABE, SET EXIT POINTER TO AABD
SEXIT INTERRUPT SERVICE
;0K If NO INTERRUPT REOCCURS

AABB

INTERRUPT

RX FAILED TO INTERAUPT

#AABE ,aRXVIR
FAABD ,3%6

BR
POPSP?2
ERROR

AABE :

SERVICE

SHERE IF INTERRUPT REOC(URS
;RX REINTERRUPTED AFTER RT}

AABB

100.,A88,(D
ABB,100.,\X¢1¢(D,\X42,\X+1

:tt't"!'t".'tt!"t"ttt't't"t"'t"'ttitttttitt"tt'totttttt

100053
014040
000144
014010
000053

017737
105777
100401
104003

AFTER

;DISABLE RX INTERRUPTS
;ENABLE RX INTERRUPTS

#BIT6,aRX(SR

1STA
TSTAA

004737

INTERRUPT

;OCCURED AND DONE BIT HAS NOT BEEN CLEARED
JSR
X7,STRXD
sSET RX DONE BT

tttt.'ttt'c-'wt'tn

AT53:

100053
AT56

s TEST NUMBER
;ADDRESS OF NEXT

100.

s1TERATION COUNT

X=X+

A33l1
AL ALA

014010
014014
014022
014026
014030
014032
014036
014040
014040

THAT

'l"t"l"""l"""'t""'tt

014544

165370

165362

165354

AR AR AR A

:SCOPE

.
v

TEST

ENTRY POINT

ARl

;TEST THAY READING RXCSR DOES NOT CLEAR DONE BIT (RXCSR BIT 7 )

001610

ABBA:

JSR

ABBB:

X7,STRXD

;SET RX DONE BI1

MoV
1518
g:éflfl

aRXCSR,RXCSRT
SRXCSR
ABBB

;SAVE CONTENT OF RX(CSR
sSEE IF DONE BI7 IS CLEAR
;BRANCH IF DONE BIT IS NOT

aRXBUF

sCLEAR DONE

SCOPE
TSTA
TSTAA

:SCuPt
100.,ACB,CD
ACB,100,,\x+1¢(D,
\X42 \X+1

BIT

C(LEAR

SET

;ct't't!'tt!ttt"tt!!t"ttlt'tttt't'tttt'tt'ttl"tttttn'tt'tt-t'ttc't'--n"n"'--

014040
014042
014044
014046

100054

014124
000144
014054
000054

AT54:

”

100054

sTEST NUMBER

AT55
100.
A(BA1
XaX+¢
AR

AR AR

ADDRESS OF NEXT TEST
JITERATION COUNT
+SCOPE ENTRY POINT
:
A

.
.
.
.
E

E R Y

R R R R R

RN R

MALIN.
MACY11 30A(1052)
28-JUN=-79
CIDLAN PN
28~JUN-79 10:49

014050
014052

SN0

014054
014060
014064
014072
014076
01410¢
014106
0141
0141
1
0141
014122
014124
016124
—

037

014124
014126
014130
014132

10:53

;TEST

014544
0146544
000100
177776
000100

ACBA:

104012

000100

THAT DONE
iéggv
JSR

165316

165304

ACBB:
ACBC:

165266

CAN CAUSE

INT

WITH ERROR SET
;SET RX INTERRUPT

SERVICE

TO A(BB.

X7,STRXD

;SET

B1C
(LR
aég

#BIT6,aRXCSR
PSW

;DISABLE RX INTERRUPTS
;SET PROCESSOR PRIORITY 10 0

g:ROR

ACBC

POPSP2
BIC

#B1T16,3RXCSR

JSR

104003
000401

022626
042777

St 0050

104006

016112
004737
004737
042777
005037
052777
000240

PAGE

SCOPE
TSTA
TSTAA

X7,5TRXD

#B1T6,3RXISR

DONE

BI1T

;SET RX DATA OFLOW

JENABLE

INTERRUPTS

:RX DONE

FAILED TO CAUSF

SHERE

INTERRUPT

OCCURS.

POP STOCK

TWICE

3..,ADD,CD
ADD, 3. ,\X+14(D,\X+2,
\X+1

:'t'ltt""ll""'l"'t'!"'t'"t"t'.'ttlt'!t.i

ATS5S:

100055

014146
000003
0146140
000055

t!"'l'll'l"lt'l't't"tt'vl"l"

100055

;TEST NUMBER

;ITERATION COUNT

ATS6

;ADDRESS OF NEXT TEST

ADDA1

:SCOPE ENTRY POINT

X=X+

;lt'tltt't't'tt"!t't'tt!t'tt'tctttt'.tttt.t'ttttlt

tttcttt't.t'ttt'ttttctt't't'.'

016134
0146140
014144

014146

004737

N04537
104012

sDATA TEST USING NORMAL CONFIGURATION
JSR
X7.CDINTY
sINIT IF C-D DEVICE

003004
005120

ADDA:

JSR

SCOPE
TSTA
TSTAA

0146146

5.DATIST

3..AP8,0
APB,3..\X+1+0,\X¢2
\X+1

;t""t"".'t't'.t"l""'.'.tt.t't'.t'tttt.ttttt."t.Q'.

014146
014150
014152
014154

000056
014240
000003
014162
000056

ATS6:

t'tttt..tt.'t.'l-"'t"

56
ATS?

;TEST NUMBER
:ADDRESS OF NEXT TESY

:1ITERATION COUNT

X=)X¢

APBA1

.
.

:SCOPE ENTRY POINT

;t.t't0tttt'0"""tt't"'ttt'Qttttt'tt'ttttttttttttttntt-'t.t't-tc'-tt""c--"'

;DATA TEST USING JUMPER {ONNECTOR.

014156
014162
014170
014172
014174
014200
014204
014210
014214
014216
014220
014226
014230
014234
014236
014240
014240

004737
012737
106020

004452
001750

004737
110137
004737

004556
001562
005530

104003

110177
104017
104003
117737
104004

005337
001355

001566

sUSES SPECIAL BINARY (OUNTY PATTERN FOR DATA. NO INTERRUPT.
JSR
7,INBIN
SINITIALIZE BINARY COUNY PATYERN

APBA:

APBB:

TIRETX

ERROR
JSR

MOVB

JSR
MOvVB

165202

165166

MOV

TIMERX

ERROR

001560

X1, CRBUFA

7,MASKIT
X1,8TxBuf

DEC

CTRO

PRE RS E IR

7.61BINP

aRXBUF , CRBUF

BNE
SCOPE
1STA
TSTAA

104012

sSEYT CHARACTER COUNT

sTIME OUT

Mov8

DATCHK

00156¢

#1000.,CTRO

APBB

Tx DONE

TO 1000

<ERROR DONE NOT SETTING
:GEY BINARY CHARACTER

sSAVE CHAR IN CRBUFA AND

+MASK OFF NOM TRANSMITTED BITS
sLOAD CHAR.
« TIME QUT RX DONE

+ERROR DONE NOT SETTYING
+LOAD RECEIVED DATA

s CHECK DATA

INVO CRBUF

sVYESTED 1000 CHARACTERS
+BRANCH [F NOT
sYES. SCOPE

3,..EXT,0
EXT, 3, ,\Xe140,\
X2, \X+)

TN R RO O N RN O R PP RR RN RPN

R EE RO RRRRNRERRERRNRARRARNERERRRTERRREOREROERAOEOEROYRRRNTORTRY

MACY11 30A(1052)
MALIN,
28-JUN-79
CZDLAN PN
28-JUN-79 10:49

2847
2848

2849
2850
2851
2852
2853
2854

2855
2856

014240
014242
014244
014246

10:53

000057
014324
000003
014250
000057

PAGE

SEQ 0051

ATS7:

;TEST NUMBER

AT60

;ADDRESS OF

;1TERATION COUNT

sx;Al

;SCOPE

=X+

ENTRY

TEST

POINT

”

:l.t""""t""""'t"lt"t";t'l"""'l".tltlt"ttlt't't't""'t't

oo SrONMNNOSONVO

\NKNE:QNE;flJNNVflJhJNHV
—
—
NNSNO NN

"t"""

ol I N

2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846

LR REAE RE BE 2P o

0038

STEST THAT RDR BUSY TURNS OFfF
+WHEN RUN ON AN XOR TESTER

000005
005277

012737
005237
001375

005077
012737
105777
100404
005227
001372
104003
104012

014314

014314
177770

EXTA:

RESET

2%:

MoV
INC

5%:

014334
014336
014342
014346
014352
014354
014356
014364
014370
014372
014374
014374

000005
004737
005277
105777
100001
106003

012737
005227
001375

AR A

AT60:

;WAIT

a1 XBUF
#-50000,3%+2

TEST

HAAAL A

AR L

;TEST

THAT WHEN RDR ENABLE

RESET
JSR

1S1B

3s:

000061
014430
000003
014404
000061

AT61:

MoV

#-10,3%¢2

BNE

AR AR

I T I T I

T TS

TEST

THAT

.
.

YTM

THME RXCSR DONE

sSET RCVR DONE
sSET ENABLE
;DONE

SHOULD CLEAR

sDONE NOT CLEAR

SCOPE
ISTA
TSTAA

sRXCSR

INC

106012

IS SET

PC,STRXD
aRXCSR

BPL
ERROR

18:

TO SET

;:SCOPE ENTRY POINY
:

INC

014366

ITERATION COUNT

Bil IS CLEARED

177770
177770

RDR DONE

10.,Ex,0
EX,10.,\X#140,\K¢2,\X¢1

EXA
X=x+1

EXA:

COMPLETE

;FAILURE OF

10.

016544
165042
165036

(HAR.

sTEST NUMBER
:ADDRESS OF NEXT

IS TURNED OFF BY RDR BUSY

sALLOW TIME FOR PDR LONE TC SET

60
AT61

AL A

IF RDE

LOOP FOR XOR TESTER

;SHIP OUT

ARXCSR
6%
:;10

ERROR
SCOPE
TSTA
TSTAA

6%:

ASE

014374
014376
014400
014402

BNE

;RESET

:SET RDR ENABLE, SEE

¥-10,38+2
3842

1578
BM]
é:é

MAAS A

014332

ARX(CSR

(LR
MOV

3%:

000060
0146374
000012
014334
000060

INC

RDR ENABLE

SWALT

100MIC. SEC. FOR XOR

3..EXA,0
EXA,S.,\X¢1¢0,\X42
\X+)
AR

Ay R

s TEST NUMBER

: ITERATION COUNT

X=X+

AT62

EXAA1

R R

SR R

AR R

sADDRESS OF NEXT TEST

;SCOPE ENTRY POINT

.
.

:l"l"'.""'l"l""'""l'lt."'."'ll"'..!"l'tl'l"'.."t'tl.lt!Q't'!t""'

0146404
014410
0164412
014420

005737
100006

012777
005777

002110
177777
164764

EXAA:
164770

égT
L

MOV
187

geRFLG
#-1,aRXCSR

aRXCSR

sCHECKING JUMPER (ONNECTIONS FOR XOR, RCvR

0039

MAIN.

MACY11

CIDLAH PN

2857
016424
2858
014426
2859
014430
014430
28€0
2861
014430
2862
2863 014432
2864
014634
014436
2865
2866
2867
2868 014440
2869 014644
2870 014446
2871
014456
2872
016460
2873
014462
2874
014464
2875
2876 014464
2877 014466
2878 014470
2879 014472
2880
2881
2882
2883
2884
014474
2885 014500
2886 014506
2887 014514
014522
2888
2889
014524
2890 014526
2891
014534
2892
014536
2893 014540
014542
2894
2895
2896
2897
2898 014544
2899 014552
2900 014556
014560
2901
2902
014562
2903
2904
014564
014572
2905
2906 014574
2907 014602
2908 014604
2909 014612
2910 014614
2911
014622
2912
014624

30A(1052)
28-=JUN-79
28-JUN-79 10:49

10:53

000005
1064012

3%:

100006

012777
005777
000005
104012

52
RESET

SCOPE

ISTA
TSTAA

3..EXB,0

EXB,3.,\X4140,\X42,\X+1

;l""""""""'"l"'l"""".""""

000062
016464
000003
0146440
000062
005737

PAGE

AT62:

"l"'t""'!"l"'l""lt""l't"t

:TEST

AT63
3.

;ADDRESS OF NEXT TEST
;1TERATION COUNT

§X2A1

;SCOPE

=X+

ENTRY

.
.

POINT

:ttt""t""""ti""t't""";t"""'."'l"'tt.t"t"l"l'ttl""'t"'t".t'

002110
177677
164734

NUMBER

EXBA:

;;T

164740
6%:

ZQRFLG

:SAME AS ABOVE BUT

MOV
151
RESET

#177677,8TXCSR
ATXCSR

TSTAA

AQB,10.,\X414CD,LAST,\X+1

SCOPE

FOR XMITR

;t""l"."""""""".'tl""""'."'t'.

100063

AT63:

177777
000012
014474

'.'.'..l'..""""ltt"tt""""'

100063
ATLAST
10.

s TEST NUMBER

AQBA

000063

:ADDRESS OF NEXT TEST
;ITERATION COUNT
:SCOPE ENTRY -POINT

X=X+1

.
.
.

:tttttt"t't"'itt't"tt'tt'cttt'tttttctt"ttttttttttt

004737
052777
052777
012777
104017
1064003
127727
001401
104003
104011

003004
000004

000001
000252
164660

:TEST THAT WHEN TXCSR BIT O [S SET
:1S PULLED TO A SPACE.

164706

AQBA:

164700

B1S

164674

MOv

TIRERX

ERROR
(MP8
840
ERROR
SRESET
SCOPE

00000

104012

052777
005077
104017
104003
000207

023737

000004

164640

JSR
BIS

16464¢

001570

001572

001574

001576

001600

#BIT2,3TXCSR

INIT IF C-D DEVICE

sSET MAINTENANCE BIT

IN TX(SR

#BIT0,37XCSR
#252,3TxBUF

¢SET BREAK BIT
sLOAD BUFFER

BRZBUF.IO

:CHARACTER RECEIVED SHMOULD BE 0O

:TIRE OUT RX DONE
;ERROR DONE NOT SETTING

sCHARACTER OTHER THAN O

s ISSUE RESET

*SUBROUTINE 10 SET RXCSR DONE BIT.

STRXD:

BIS
(LR
TIMERX

ERROR
RTS

001566

X7,.COINIT

t.t.tt.t'.'tt"ttoo'ct'-at

TAAT THE OUTPUT DATA LIME

PBIT2,3TXCSR
aTXBUF

:SET MAINTENANCE BIT.
:LOAD TXBUF
.
:TIME OUT TX DONE

:ERROR DONE NOT SETTING
SEXIT.

;SUBROUTINE TO CHECK THAT CTRG THROUGH CTR3 CONTAIN DESCENDING VALUES.

CMPT:

(MP
BLOS
CMp
BLOS

CMP
BLOS
CHP
BLOS
Cup

CTRO,CTR
(MPTNG
CTR1,CTR2
CMPING

(TR2,CTR3
CMPTNG
CTR3,CTRG

CMPING

CTR&,CTRS

MACY 30A(1052)
PALN,
28-JUN-79
(IDLAN P11
28-JUN-79 10:49

293
014632
2914
014634
2915
014642
2916
014644
014652
2917
2918
014654
2919
0146660
2920
2921
2922
2923
2924
014662
2925
2926
016664
2927 014666
2928 014672
2929 014674
2930 014676
014702
2931
2932
014706
2933 014714
2934 014722
2935
014726
014730
2936
2637 014732
2938
2939
2940
2941
014734
2942
014736
2943
014740
014744
2944
014746
2945
2946
014750
2947 014754
2948
014760
2949
014766
2950
2951
2952
2953
2954
2955
2956

2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968

10:53

001600

001602

001604

000002

PAGE

SEQ 0053
BLOS
CMP

BLOS

CmMpP
BHI
ADD
RTS

CMPTNG:
(MPTOK:

AL AARAR

:PRGY!

CMPTNG

CTRS,CTR6

CMPING
CTR6,CTR7
CMPTOK
N2, a%6
134

- TRANSMITTER SCOPE

LOOP

;'tt"'t"'

104000
016476
004537
104000

016573
004737
012637

113737
113777
105777
104016
000000
000765

PRG1:

004262
003652
001624
001624
001625
164466

TYPE
PITIT
JSR

TYPE
SELCAD

JSR

014730
164474

PRGTA:

PRG1B:

MOV
MOVB
MovB
1ST8

DELAY
OPEN
BR

:TYPE PROGRAM TITLE.
5, LINSLX
PC,RDOCT
(SP)+, TEMP?

;60 GET LINE # FROM USER

:1YPE

SELECT

;READ

IN DATA.

CHAR AND DELAY.

TEMP2 PRG B
TEMP2+1,3TXBUF
aTXCSR

:STORE DATA.
;DELAY COUNT T0 PRG1B.
sLOAD TXBUF.
sTEST FOR DONE.
:DELAY # OF MSE(S. SEYT AT SR,

PRG1A

<REPEAT,

AL
S AL AR AA

:PRG2 - RECEIVER SCOPE LOOP.
;'tt'l.'!.'

104000
016536
004537
104000
016573

004737
012657
052777

113737
113777
105777
104016
000000

017700
000005
000005
0C0005
000005
000005
000753

PRG?:

004262

TYPE
pP2111
JSR
T1YPE

003652
001624
000004
00162¢4
001625
164406
164374

SELCAD

164426

015010

PRG2A:

164414

PRG2B:

;1YPE

5. LINSLX
PC,RDOCT

MOVB
MOVB
1518

TEMP2+¢1
QT XBUF
aTXCSR

DELAY

OPEN
MOV
RESET
RESEY
RESET
RESET
RESET

;00 GET LINE # FROM USER

s TYPE

JSR

Mov
BIS

(SP)+ TEMP?
#B1T2,3TXCSR
TEMP2 ,PRG2B

aRXBUF X0

PROGRAM TITLE.

SELECT

CHAR AND DELAY.

;READ IN DATA,
;STORE DATA,
;SET MAINTENANCE BIT.
sDELAY COUNT TO PRGZB.
sLOAD TXBUF
.
;TEST FOR DONE
;DELAY # OF MSECS. SET

IN SR,

+RXBUF CONTENTS 10 RO.
¢DISPLAY CONTENTS Of RXBUF (IN RO),
:BY ISSUING 5 RESET INSTRUCTIONS

PRGZA

:'."'i"l'

;PRG3 - SINGLE
,rereeeaTe

104000

017364
004537

PRGE:

004262

TYPE
P3T1T
JSR

CHARACTER MAINTENANCE MODE DATA TEST,
;TYPE

S, LINSLX

PROGRAM TITLE.

:GO GET LINE # tROM USER

LMAIN.
MACY1T 30A(1052)
2B-JUN-=79
CIDLAK.PIN
28-JUN-79 10:49

2969
2970
2971
2972
2973
2974
2975
2976

015042
015044
015046
015052
01505¢
015064
015070

104000
017507
004737
012637
113737
004737
000772

003652
001624
001625
015124

10:53

2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997

2998

2999
3000
3001

3002

015072
015074
015076
015102
015106
015112
015116
015122

004737
004737
110137
004737
000771

004452
004556
001562
015124

015126
015132
015134
G15136
015140
015142
015150
015154
015162
015166

032777
001001
104002
104020
104003
052777
005777
013777
004737
104017

000200

163036

000004
164236
001562
00530

164244

015172
015200
015202

017737
104004
000207

015170

104000
017434

004537

104003

004262

164214

164234

ERROR

MOV
DATCHK
RTS

2222222 222"

PC,RDOCT
(SP)+,TEMP?
TEMP2+1 ,CRRUFA
X7,MOUTIN
PRG3A

SELECT CHARACTER,

;GET TEST (HAR AND DELAY FROM USER.
JSTORE TEST CHAR AND DELAY
;MOVE DATA CHAR O CRBUFA.
;GO OUTPUT, RECEIVE, AND CHECK DATA,

COUNT MAINTENANCE MODE

DATA TEST.

aRXBUF , CRBUF
X7

;ERROR DONE NOY SETTING

MOVE (HAR IN RX BUFFER TO CRBL}.
s COMPARE EXPECTED AND RECEIVED DATA
SEXLT.

:
CHECK SWITCH REGISTER ROUTINE.
CMECKS FOR “G TO ALLOW CHANGING
;OF LOC 176,
ROUTINE 1S ENTERED AT CNTLU FOR START UP PURPOSES.
JWHEN A *G IS GIVEN, THE PROGRAM ENTERS AT CKSWR.
THE PROGRAM
;GETS CONTENTS OF SOFT. SWITCH REG. ,TYPES IT QUT, AND THEN SEEKS
sNEW DATA FROM OPERATOR.,
ONCE DATA 1S SUPPLIED, IT INSERTS THIS
sDATA INTO THE SOFT.SWIITCH REG. AND RESUMES OPERATION IN THE
;MAIN PROGRAM,
INCORRECY ENTRIES (SUCH AS 8,9,LETTERS) ARE DELETED,
sAND THE PROCESS RESTARTED.
TYPING “U ALLOWS THE PRESENT
JENTRY

3014

;

301°%

3024

sTYPE:

JrEERRTYILQEY
PRGA4.
TYPE
;TYPE PROGRAM TITLE.
PLTIY
JOR
S, LINSLX
;60 GET LINE ¥ FROTM JSER
JSR
X7, INBIN
;INITIALIZE BINARY COUNT.
PRG4LA:
JSR
X7,GTBIN
;GET BINARY (HARACTER.
MOve
X1,CRBUFA
;SAVE AT CRBUFA.
JSR
X7,MOUTIN
;60 OQUTPUY, RECEIVE, AND (HECK DATA.
BR
PRG4LA
sREPEAT.
: SUBROUTINE TO OUTPUT, RECEIVE, AND CHECK DATA WITH MAINTENANCE BIT SET.
MOUTIN: BIT
#B1T7,3SRPTIR
;SEE 1F BIT 7 IS SET.
BNE
b
;BRANCH IF SET.
STALL
;sSET. DO A RANDOM STALL.
TIMETX
;TIME OUT TX DONE
ERROR
;sERROR DONE NOT SETTING
BIS
#BIT2,RTXCSR
sSET MAINTENANCE 81T,
151
ORXBUF
sCLR RX DONE
mov
CRBUF A, 3T1xBUF
;LOAD TXBUF.
JSR
7,MASK]T
sMASK OFF NON TRANSMITTED BITS
TIMERX
;VIME OUT RX DONE

001560

ggl%

3020
3021
3022
3023

TYPE
SELCAR
JSR
MOV
PRG3A:
MOVB
JSR
BR
JereERReLer

:PRG4 = SPECIAL BINARY

3003
3004
3005
3006
3007
3008
3009
3010
3011

3016
3017
3018
3019

SEQ 0054

001562

2977

PAGE

TO BE DELETED AND THE

MASAEEEAR

015204
0152064
015212
015214
015220
015222
015230

022737
001132
105777
100127
017737
042737

00Gi176

000170

164210
164204

177600

001642

CHGHS:
(KSWR:

PROCESS RESTARTED.

(CMP
BNE
1518
BPL
MOV
BIC

#SWREG,SRPIR
oul
avKs
out
alkBg,1]B
#177600,118

;SOF TWARE SW REG PRES?
NG, GEY QUT
SYES, 1S CHARACTIER READY?
s1F NOT, GEY OUuY
sSTORE BUFFER

JSTRIP NFE

GARBAGE

3043

3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072

3073
3074
3075
3076
3077
3078
3079
3080

022737
001115

000007

PAGE

001642

adn]

CNTLUL:

—

02033¢C
017746
004737
022600
104000

001644

122737
003004
122737

002003
104000
020352
000753
006337
006337

001646

164106
1646102

001642

164074
001642
001642

006337

142737
153737

005337
001756
000710
013777
000207

010046
010146
004737
012601
012600
000002

000015

001642

000007

001646

000060

001642

000067

001642

001644

015204

SWR

JSR
cmp
1YPE
NEW
(LR

1%:

8%:

3%:
2%:

4%:

6%:

001642
001644

162470

mov
1S1B
8PL
MOVB
1518
BPL
MOvVB

BIC
CMPB

5¢:

001644
001644
001644
000060
001642
001646

(Mp
BNE
TYPE
CNTG
(LR
TYPE
MOV

000007
164112

177600
000025

55
SEQ 0055

164160
A\
ala
V]

104000

Q-

020321
005077

015436
015442
015446
015454
015462
015466
015470
015472
015500

10: 53

134000

1 d

3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042

ol
1V IV LV ] ALY
IV T
e d N LV [V TV 1,N7. N NN
NI AUV P L,
TM
No
OO NN S
oo ~nN oo Ee

MAIN,
MACY11 3CAC1052)
28-JUN-79
CIDLAH PN
28-JUN=-79 10:49

BNE
BR
(MPB
BNE
SCRLF
cHp
BNE

87,118
out

dSRPTR,=(5P)
PC.TYPOC
(SP)+,RO

TEMPST

#7,COUNTY
81xs
1%
8ikB,1IB

aT1Ps
8%
118,a1PB
¥177600,718
025,118
2%
CNTLY
15,118
6%
#7,C0UNTI
8
#60,118

81(B
B1S8
DEC
BEQ
BR

7%:
ouT:

MOV
RTS

TTINTS:

MOV
MoV

JSR

MOv
MOV
RT1

A %G

NOT GET
EC H 0 %6

QuT

;ALLOW SWR=

TQO BE

:MOV CONTENTS OF

TEMPST
TEMPSY
TEMPST
#60,718
118, TEMPST

COUNTY
5%

19
TEMPST ,@SRPIR

TYPED

SWR

;0CTAL TYPE OUT ROUTINE
;CORRECT STACK POINTER

;ALLOW NEW=

5%
r67,118
6%

ASL
ASL
ASL

a1P8

CnpPB
B8GT
(MPB
BGE
TYPE

QUEST

;15

TO BE

TYPED

;CLEAR TEMP STORAGE LOC
sSET UP TO ACCEPT 7 (HAR
;1S CHARACTER THERE?
;1F

NOT,TRY AGAIN

JPICKUP CHARACTER
cCHECX PRINTER STATUS

;NOT READY,

JPRINT

TRY AGAIN

:STRIP OFF GARBAGE
JIS IT A~y

JBRANCH IF NOY

JSTARY OVER
JIS 1T A <CR>
;BRANCH 1F NOT

sTYPEOUT <CR>AND <LF>
JWAS <CR> FIRST (HAR

sCHANGE SWREG IF NOT FIRST (R>

;1S I LESS THAN O
;G0 70 ? ROUTINE IF SO
SIS 17 GREATER THAN 7
;60 10 ? ROUTINE IF SO
JSET UP FOR ? TYYPEOUT

;START INPUT STRING OVER
JRULTIPLY BY 10

JCLEAR OF ASC1]
MOV (HAR 10 TEMPST
sONLY WANY 6 NUMBERS AND <(R»>
J1F = 7 T00 MANY NUMBERS
;GET NEXT (MHAR
sCHANGE SWR CONTENTS

JRETURN 10 FROGRAM

RO,=(SP)
R1,=(5P)
PC,(KSWR
(SP)+
R
(SP)+ RO

: INTERRUPT SERVICE ROUTINE
;SAVE RO AND R

;G0 10 SUBR TO SERVICE Ty

+RESTORE

AND RO

;RETURN FROM INTERRUPY

INTERRUPY

3099
3100

VNS NN 2O 0O NONE NN =D
OCWVNE W =000 N

ot crh e

A L AN M L

NN NI PO AU R

e e

d o

PO PO RO PO PO N

b e o o

d e

b et =8

s et b et

b o

s ot et

A L L Lo i A AN L U U A L AN L N A LN N LN N N LN N N N N

3101
3102
3103
3104
3105

L Ead wnono
£H no S 00O

AR AR A YAV IV IV TV ]

000001
000006
000005

50
5

10:53

001650
001653
001654

TYPOC:

TYPON:

000006
001652
001650
000010

566

1%:

006105
006105
010503
006103
105337
100020
042703
001002
005704
001403
005204
052703
105777
100375
110377
105777
100375
105337
013345
002402
005204
000742
012605
012604
012603
000207

2%:

3%:

001652
177770

4%:

000060
163564

5%:

163560
163552

8%:

001654

PAGE

56
SEQ 005¢

001653

d o ed e

d rad i

Al Al VALY IV IV IV 1V 1V 3 (P AVAV}

3094

3095
3096
3097
3098

b e

3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093

OO0

.MAIN,
MACYTY1 30A(1052)
28-JUN-79
CIOLAK.PYY
28-JUN-79 10:49

7%:

6%:

MOVB
MOvB
mMovB
MOV
MOV
Mov
MOvVB
NEG
ADD
Mova
MOvVB
MoV
CLR
ROL

ROL
ROL
ROL
MOV
ROL

MLEILL

#6,MOD¢+1
E

#5,CNT
R3,=(SP)
R4, =(SP)

RS,=(SP)

MODE+1,R4
RG
"6, R4
R& ,MODE
FILL,RG

10(SP) ,RS
R3
RS

RS
RS
RS
RS ,R3
R3

DECB
BPL
BIC
BNE
187

MODE

INC
8ls
1S18
8PL

8EaQ

MOvVB

1STB
BPL
DECB
BGT
8Ll
INC
BR

MOv
MOV

MOV
RTS

ANA
AR
SS
SR D)

7%
#177770,83
3]
Ré

#60,R3
81PS

;SET

THE

;SET
;SET

JERO FILL

;SAVE R3
;SAVE R4
;SAVE RS
;:GET THE NUMBER OF DIGITS 70O TYPE
sSUBTRACT IT FOR MAX. ALLOWED
sSAVE 1T FOR USE
;GET THE ZERO FILL SWIT(H
;PICKUP THE INPUT NUMBER
:CLEAR THE OUTPUT WORD

;ROTATE MSB

;60 DO MSB

;FORM

THIS DIGIT

;GET LSB OF

:TYPE

INTO "‘C”

THIS DIGIT

THIS DJIGIT?

:BR IF NO

;GET RID OF JUNK
;TEST FUR O
:SUPPRESS THIS 0

:BR

YES

:DON'T SUPPRESS ANYMORE 0°S
:MAKE

THIS DIGIT

ASCII

;1S PRINTER READY FOR CHARACTER?

:1F NOT, TRY AGAIN

R3,37p8
aIPs

:TYPE OUT NUMBER
;MAKE SURE LAST DIGIT

(N
2%
6%

. COUNT BY 1
;BR If MORE 10 DD
:BR IF DONE
s INSURE LAST DIGIT ISN'Y A BLANK
<G0 DO THE LAST DIGIT
+RESTORE RS
sRESTORE R4
sRESTORE R3
;RETURN FROM [NTERRUPT P{

(SP)+ RS
(SP)+ R4
(5P)+,R3
PC

;ASCI] MESSAGES
042045
026105

043117
051524
055103
022510

0305

047114
020124

046104

026461
020104
020105
020055
026501

MTIT:

LASCL]

SWITCH

FOR SIX(6) DIGITS
THE ITERATION COUNT

'XDL1T=E,C/D OFLNE

TST = C2DLA-WX*

TYPES

JMAIN.
MACYI1 30AC1052)
28-JUN=79
CIDLAK.PI
28-JUN-79 10:49

3137
3138

3139
31640
3141
3142
3163
31644
3145
3146
3147
3148
31649
3150
3151
3152
3153
3156
3155
3156
3157
3158
3159
3160

3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
31764
3175
3176
3177
3178
3179
3180
3181
3182
3183
3186
3185
3186
3187
3188
3189
3190
3191
3162

015750
015756

015764
015772
016000
016001
016006
016014
016021
016026
016034
016042
016050
016055
016062
016070
016072
016076
016102
016105
016112
016120
016123

016130

016134
016142
016150
016156
016164
016172
016177
016204
016212
016220
016226
016234
016242
016257
016256
016264
016272
016273
0163.)
016306
016314
016322
(16323
016330
016332
016340
016345
016352
016360
016362
016370
016372

046445
020106

042503
051505
100
040
020060
020040
065
044460
0643517
052516
020040
065
043040
040045
052045
020040
020075
020040
020040
036522
040

020040

022445
026440
052125
052520
044507
052123
045
047117
042040
020105
046440
040440
047117
045040
020122
041101
100
126
051440
020040
020040
040
040
040040
054122
027523
040
020040
020072
020040
040040
054124

050101
042504

10:53

051120
0¢252¢4

020040
020040
022440

020040
020040
100

042520
051120
020115
051105
100

57
SEQ 0057

047440
044526

020123
047105

054524
020116
040522
041115
020040

PAGE

LASCIT

"XMAP OF

MDEVAD:

.ASCII

PGMSG:

.ASCII

'XTYPE

IN PROGRAM NUMBER

MNONE:

.ASClI

'XNONE

FOUNDYX®'

EMO:
ATNUMB:

CASCIL
.ASCI1

%1
°*

DEVICES PRESENTXA’

11N

0647516
052517

042516
042116

020040

061520

0200640
054122
040
020040

020040
051503

APC:

LASCIE

020040

MRXNUM:

_ASCI]

051120
044440
047455
020124
020103
027123
044504
042516
030514
051106
042117
042116
062516
066525
047524
042514

030107
050116
052125
047514
042524
040
0461523
052103
026461
046517
046505
041440
052103
042520
041640
022456

POTIT:

.ASCII

“XXIPRGO - INPUT-OUTPUT LGGIC

CASCIL

"XDISCONNECT DLIV~E FROM MODEM’

CASCIL

' AND CONNECY JUAPER 10 CABLE.X3®

061530
041057
020040
040527

051123
020072
020040
035123

ATXCSR:

ASCII

'TX(SR S/B:

ATXSB:

.ASCIl

°*

020040

ATXWAS:

.ASCI]

051503
035102
020040
053440

020122
040
020940
051501

ARXCSR:

.ASCI]

°*RXCSR S/B:

ARXSB:

.ASCI1

020040

ARXWAS:

,ASCI]

051440

042520

ETXTIM:

_ASCI1

'Tx SPEEDS NO!

040040

PC=

RXCSR=

°'
TESTS.

WAS:

a'
IN ASCENDING ORDER.Q'

MACYTT1 30A(1052)
MAIN,
28-JUN-79
CIDLAN.P1Y
28~JUN-79 10:49

3193
3194
2199
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205

3206
3207
3208
3209
3210
LYAR
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243

3244
3245

3246
3247
3248

016400

062105

051516
051105
042520
040120
022445
026440
044505
041523
047514
045
052040
044103
047503
020116
030440

054524

046105

046511

041040
026467
045
020116
020114
022456
104

027523
040
051501
020040
040

035106
040
020040
045
040510

020123
047111
047105
047440
040056
051440
020123
047111
047105
047440
040056
051120
052040
044515
051440
046040
051120
051040

042526
050117
050117
054524
051505
051101
042504
044502
026465
042520

054501

020105
05211
060

043117
041517
047527

100
052101
035102
020040

020072

040
054122
040
020040
100

042523
062122
051440
044524
047040
020114
052101

053440
051123

10: 53

PAGE

SEQ 0Cs8

047516
060640
044504
042122

042520
047516

ERXTIM:

_ASCIH!

'RX

030507
060522
052124
047503
047517

FITIT:

LASCIlI

'XAPRG1

031107
041505
020122
020105
100
042520
020124
020056
0464440
051524
026070
062040

P2TIT:

_ASCHI

'RAPRG2 - RECEIVER SCOPE LOOPa’

SELCAD:

.ASClI

*RTYPE

LASCIE

'X0F

ERDAT:

_ASCI]]

'DATA S/B:

AASH:

LASCII

AWAS :

LASCII

SPEEDS NOT

IN ASCENDING ORDER.3'

060440

0464504
042122

TRANSMITTER SCOPE

TESV

(HAR.

CODE

LOOP3’

IN BITS 15-8,1YPE DELAY

052040
047111

020123
040440
040524
042122

020101
040
053440

052502
020040

AN OCTAL WORD.23°'

HAS:

RXBUF:

]

LASCII

ARXBUF: .ASC]1

]

ASETSR:

.ASC]]

'XSET MARDWARE

LASCLY

"1S Wl'H SR=000000.

SR OPTIONS. NORMAL QOPERATION °

IF NONE, TYPE <(R>Xa'

TimMe

IN BITS 7-0°

NJJLE
MACY11 30A(1052)
28-JUN-T79
CIDLAN PN
28-JUN-T79 10:49

017052

3304

027060
047516
054524
051103

047503
020124
047111
042514

AINCRT:

_ASCII

"XINCORRECT

LASCII

'RIN SR 0-2 AND PRESS CONTINUE.3’

ASCH!

'RINVALIU PROGRAM SELECTED.3®

ROUTINE

SELECTED,

PLACE

(ORRECT PROGRAM®

020054

051440

020062

7
7210
7216
7
7

017406
017414
017622
017430
017634
017442

017450

051120
047503
042525

046101
047522
051440
042524

036440
020040
051503
020040
020040
051117
040
020040
022445
051455
020105
046440
046440
040504
051505
022445
051455
044502
047125
047111
042504
020101
100
045
044440
052123

044514

020040
020040

020122
020040
04252¢
036440
020040
040040
051120
04711
046103
044501
042117
040524
040124
051120
042520
020116
020124
020124
042040
042524

054524
020116
061440

AINCPG:

APGEND:

.BYTE

207

APCNT:

_ASCIlI

LINE

ACLIN:

LASCII

RXCSR =

APRXC:

LAS

’

VECTOR =

APVEC:

LASC]]

031507
046107

P3TIT:

LASCH]

'RAPRGI-SINGLE CHAR MAINT MGDE DATA TESTa®

032107
020103

PeTIT:

(ASCHI

'AXPRGL-SPEC BIN COUNT MAINT MODE DAYA TES'Q®

SELCAR:

LASCII

'RTYPE

050040
020375
020040
042516

054122
020075
020040
052103
040
020040

CASCI]

'REND PASS -

051101
052116
020105
052040

NO
e a0 O
N = NN

3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303

030060
020106
020054

020105
041505
0643517

3278

3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292

030060
044440
042516
042520
022476

PAGE

SEQ 00%9

A ALY
OrO0O

3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
327«
3275
3276
3277

10: 53

IN TEST (WAR, CODE.

1w’

V.2V

(S0
ol XV Y]
Pale
o ¥e S

[V IV

~
—

[o¥]

D b e et
bl et o

s el e e

562

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

3356
3357
3358
3359
3360

027122
027 05
040045
052045
047111
020105
020u40
046045
047516
040
020123
052103
045
053111

042520
042510

045
046523
042520
042510

nonro NN
— s s s

e
D SO

N=O0VNT
N
-0

(=]

NN LN AN (NN
N
N NN
AN NN N

VIV WNANININN
NG

AN AN AN UM LN AN

530

QCOOO0O0OO

NN N~ ~N~-~ NN NN N~y

MACYI1 30A(C'052)
.MAIN,
28-JUN-79
CIDLAN P11
28-JUN-79 10:49

045

046103
053523
051505
047520

7117

047105
051523
04646524
100

017774
020002
020010
020016
020017
020024
020032
020034
020042
020044
020052
020060
020066
020074
020077
020104
020112
020120
020126
020134
020142
020145
020152
020160
020163

045
020122
054105
042105
120
045

042520

020040
020040
020040
052045
042105
020115

020040
020040
045
053105
051120
020124
051511
020105
022477
045
052116
052120
045

10:53

PAGE

SEQ 0060

041440
020040

042117
020040

050131
046060
047516
040040
047111
056
020040
062523
042105
042522
051105
042105
045503
051124
052111
042105
045503
062523
041517
052111
052040
044523
020054
050040
041440
052516

020105
047111
020056

LDLINE:

.ASCII

'XTYPE

IN LINE NO.

020105

ALINE:

LASCII

'XLINE

NO.'

040527

SELINE:

,ASCli

100
042503

MSETRX:

,ASCII

'XRECEIVER SPEED (HECKD'

047101
051440

MSETTX:

.ASCI!

"XTRANSMIT SPEED (ME(KS'

020124
020113
044103
020117
044524
064124
042522
047117
027105

MSETC:

LASCII

'ASET

051105
020055
042520
052040

047522
047125
052103
040522

MTERR:

ASCII

'XERROR =~ UNEXPECTED TRAP'

051124
020104

050101
0475264

LASCIH

‘XTRAPPED 10

020040

040522
043040
041520
020040

050120
047522
020040
020040

047516
041511
051505
020055
046040
047516

042040
020105

100

042514

051440
041440
100

0461440
100

047105
044124
047111
040056

044440
052522
036440

MT10:

°'

WAS SELECTEDA'

CLOIK SWITCHES TO POSITION,

THEN PRESS CONTINUE.@°

°*

LASCII
JASCI]

'LTRAPPED FROM PC

MFROM:

_ASC1I

[]

MNOLIN:

.ASCII

'AINO DEVICE PRESENT - THIS LINE NO.Q°

DTERR:
INTER:

,ASCI]
LASCI!

‘%9
'XNO INTERRUPI]®

mso:

LASCL]

1ees < 0a

MACYT11 30AC1052)
AN,
28-JUN-79
(IDLAN P11
28-JUN-79 10:49

5361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381

3382
3383

3384
3385
3386
3387

3388
3389
3390

3391
3392

020170
0020173
020200
020203

020210
020213
020220
020223

020230
020233
020240
020243
020250
020253
020260
020263
020270
020276
020304
020312
020320

030040
045
030440
045
031040

045
031440
045
032040
065
032440
045
033040
045

033440
045
042526
051106
053517
0464501
100

100

051503
100
051503

10:53

PAGE

SEQ 0061

036440

MS1:

JASCI]

'%Cs

036440

MS2:

JASCII

'S = 29

036440

MS3:

LASCI]

‘%S -

036440

MS4:

LASCL]

'%CS - 4a'

036440

MS5:

LASCLI

'%CS = 53°

036440

MS6:

JASCII

'RCS = 63

036440

Ms7:

JASCII

‘%S =

042522
046517
051105
052514

047503
020104
050040
043040
042522

MPWRF:

LASCII

‘ARECOVERED FROM POWER FAILURER®

057040

020107

(NTG:

LASCLI

*6 e/

053523
100
047040
040040
020077

036522

SWR:

LASCLI

SuWR:

053505

NEW:

LASCLI

NEw:

040040

QUEST:

LASCI!

100

051503
100
051503
100
051503
100
051503
100
051503
100
042522

svvevnveene

020321
020326
020330
020336
020341
020346
020352

040
020100
020040
020040
040
020075
020040

(HOHO

18’

39’

73°

eevcenverne

.'t"".t""."i".""."'..'

000001

JEVEN
JEND

“

LPAIN.

MACYIY

CZDLAKH.PIY
AAA

006654

AAAA
AAAB

010212
010226

AAB
AABA
AABB
AAB{
AABD
AABE

006566
013716
013742
013752
013766
013772

AAE

006670

AASB
ABA
ABAA
ABAB
ABB
ABBA

016727
006706
011270
011362
006726
014010

ABBB
ABE
ACA
ACAA
ACAB
ACB
ACBA
A(BB
ACBC
ACE
ACLIN
ADA
ADAA
.DAB
ADAC
ADB
ADDA
ADE
ADTENP
AEA

014032
006730
006746
011374
011524
006760
014054
014112
014114
006762
017316
007000
011544
011572
011610
007012
014140
007014
005100
007032

AEB
AEC
AED

007046
007070
007110

AFBA
AfBB
AFBC
AGA
AGB

AGBA
AGBB
AGB(
AGBD
AGBE
AG(
AGD
ALAA
ATAF
ALAS
ALASA
ATAST

010240
010266
010312
007132
007146

010324
010360
010414
010430
010464
007170
007210
011624
012050
012052
012102
012134

30A(1092)

28-JUN-79

28-JUN-79 10:49

10:53
PAGE 63
(ROSS REFERENCE

1365

15694

1914
1919

19184
1922#

15718
2697

1574
2703«

27094
2704
2712
2711

2715
2711
27 14n
27164

1569

32324
15854
21484
21654
15894
27294

2732
1585
1599
2172
2190
16054
2742
2747
2755
1603
1320
1615
2210
2220
2222
16214
2765
1619
1247
1631

27344
15904
16034
21774
22024
1608
27484
27564
27574
16064
32804
16194
22154
22234
22284
1626
27708
1622#
127354
16364

1935
1943
1945
1658
1663

19404
19464
1949
16624
16664

1958
1967
1976
1981
1969
1668
1665
2236
2286
2248
22984
2249

TABLE

=-- USER

5
SYMBOLS

SEQ@ 0062

2718

15724

1388
1581
2144
2152
1587
2725

1637
1642
1639

16404
16454
1644

19634
19704
19794
19844
1978
16714
1670
22414
22894
2253
2301
22564

1592

1647

16498

1951¥

1983

1990

1673

16754

2258

2259

1992

1993«

2263

2268

2273

2218

2283

22914

2264

2269

2274

2219

2284

2291

2299

2508#
o~

050

MACY1T 30A(1052)
MAIN.
28-JUN-79
CIDLAH.P1Y
28-JUN=-79 10:49
AINCPG
AINCRT
AJA
AJB
AJBA
AJBB
AJBC
AJBD
AJC
AJD
AKA
AKB

017226
01705
007232
007254
010476
010524
010552
010576
007276
007316
007340
007352

AKBC
ALA
ALAA
ALAB

010646
007364
012146
012176

AKBA

ALAC

ALBA

ALBB
ALBC
ALBD
AL INE
ALY
ALZ
AMAA
AMAC
AMBA
AMBB
AMB(
AMBD
AMBE
ADAA
AOAB

AOAB1
AOAC
AOAD
AOBA
AOBB
AOB(
AQBD

APA
APB
APBA
APBB
AP(

AP(CNT

APCX
APD
APGEND
APRXC
APVE(
ADA
AGAA
AGAB
AQAS

010610

012210

011016

011044
011072
011116
017574
007414
007434
012222
012254
011130
011170
011204
011232
011256
012272
012310
012324
012346
012360
010704
010732
010760
011004

007446
007462
014162
0146170
016104

017276

007504
007524
017261
017%32
017353
007546
012376
012622
012624

1308
1304
1684

1690

2000
2008
2014
2010

1695
1692
1711
1717

2029
2039
1727
2315
2327
2329
2081
2089
2095
2091
1173
1734
1736

10:53
PAGE 64
CROSS REFERENCE

=-- USER

SYMBOLS

SEG

16934

2005«
2011#
20174
2016
16984
1697
17164
17204

2034w
20414
17314
23224
2330#
2332
20864
20924
2098#
2097

33124
17374
1739

23464
2354
21144
21224
21264
21324
2125
23674
2374
23734
23798
2380
20574
20634
20694
2068
17524
17564
2784nN
2796

1316
1758
1755
1331
1324
1328
1774

32774
17614
1760
32744
32824
3285#
17784

2390
2643
2405

TABLE

32694
3254H
1688«

2341
2352
2130
2119
2123
2129
2121
2361
23704
23N
2376
2378
2053
2060
2066
2062
1748
1753
2778
27854
1415

2020

2022#

1700

17024

2334

2101

2103

17614

12N

215

2135

21374

23824

2072

20744

1763

17654

2415

2420

31564

23984
446N
2410

2425

2430

2435

2440

24480

u !

SETSR

ATA

ATAA

ATAB
ATAC
ATB

016763

010062

013054

013106
013110
010076
ATLASY= 177777
ATNUMB
016074
ATXCSR
016273

ATXSB
ATXWAS
ATO

016306
016323
006644

AT
AT10

006676
007354

AT12

007536

007436

AT13
AT14
AT15
AT16
AT17
AT2

007636
007744
010052
010100
010126
006736

AT21
AT2¢
AT23
AT24

010202
010230

AT120

AT125

AT26

010154

010314
010466

010600

010674

AT127

011006

AT30
AT31
AT32

011120
011260
011364

AT134

011614

A13

AT133

006770

011534

2416

2421

1789

17914

2665
2469

1806
1811
1808
1392

2485

2494¥

1816

1818#

1842

1845#

NN OO D

007776

1784
1781
1800

:vol\):mb OO0 N ~NOD & -

010020
010040

ASB

10:53
PAGE 65
CROSS REFERENCE

2879

[ B 2k *oR¥ 1 - J.N¥) OV =2 s O WO NN
N OD — ~y &

AS(
ASD

1779

et PO
—t I
M) ot et sl d b et
APNS
ot ad et P S OWNNNOONOOCDODO0
— + AU

007562
014474
007604
007624
007646
012700
013014
007670
007712
007732
016753
016332
016345
016362
007754

oed rd ol sl ond i

AQB
AQBA
AQ(
AQD
ARA
ARAA
ARAS
ARB
ARC
ARD
ARXBUF
ARXCSR
ARXSB
ARXWAS
ASA

26538
2406

i o

012646
012666

725

NS =t et =2 OO OO 0 O 00000 \WNOD 0o 00~~~
ONS ONOWVNNOWVNN=—=
00 ~NO NN
NO ~N S
COOMNO O N ==
NN NN D~ AN AV 1.7,
Y. )

AQASA
AQAST

POPOPONURD —a POND ot ol vt —d —d el il v

0051

CMAIN,
MACYT] 30A(1052)
28-JUN-79
CZDLAN.P1Y
28-JUN-79 10:49

m
TABLE

2426

=-- USER SYMBOLS

24631

2436

2441

26480

2654

2458%

AT4L0
AT4H
AT4L2

012366
012670
013034

AT4

AT43
AT44
AT4S
AT46
AT47
ATS
AT50

ATS1

ATS5?2

ATS3
AT54
A155
AT56

ATS57

AT6
A160
AT61
AT62
AT63

AT?7

007022

013122
013200
013264

013362
013446

007122
013530
013612

013702

014000
014040
014124
014146

014240

007222
014324
014374
014430
014464

007330

AUAA
AUAB
AUAC
AVAA
AVAB
AVAC
AWAA
AWAB
AWAC
AWAD
AWAE
AWAS
AXA
AXAA
AXAB
AXAC
AXB
AX1A

013136
013162
013172
013214
013252
013254
013274
013324
013334
013350
013354
016740
010110
013406
013434
013436
016124
013466

AX1L

013520

AYAA
AYAB
AYA(
AYB

013550
013574
013604
010152

AX1B
AYA

AlA
AZAA
AlAB
AZAC

013516
010136

010164
013632
013670
(13672

CROSS REFERENCE

— PNPU
RN

012136

012212
012256

PAGE 66

ooow A
N L L AV TV T N
nNNO
~P
NO O 00\ =
=
SHO00onrn NO NN AN O0 O N O N

AT135S

AT36
AY37

10:53

N = NN PINIPOLPL NN

J052 |

.MAIN,
MACY11 30A(1052)
28-JUN-79
CIDLAKH.PI
28-JUN-79 10:49

2648
2671
2695
2723
2740
2763
2776
1656

2802
2827
2848
2863
1682
2529
25404

2535
2551
2557
2564
2574
25864
2580
2589
2588
1384
1869

2602
2609
2616
1874
2626

2633
2640
1884

2650
26624
2656
1889
1899

2673
2679
2687

2595

N
TABLE

=-- USER

S
SYMBOLS

SEQ 0065

LMAIN.
MACY1T 30AC1052)
28-JUN-79
CIDLAM.PIY
28-JUN-79 10:49
AlB

010200

BDOCNV
BDCNVA
BDCNVB
BOCNVC

004734
004766
005920
005022

BOCNVD
005024
BI1TO
= 000001
8171

= 000002

817110
81711
BI112
81113
BIT14
BIT15

=
=
=
=
=
=

B1T2

= 000004

002000
004000
010000
020000
040000
100000

BIT3

= 000010

B1164
B1T5
8116

= 000020
= 000040
= 000100

8117
= 000200
BI1T8
= 000400
8179
= 001000
BMOVA
004722
BMOVE
004712
o

(DINIT
(DINX
(HAINN
CHALT =
(HGH2

CHGH3
(HGHS
CHGH7
(HGHB
(HGH9
(HNA
CHNAA
(HNAB
CHNB
(kSWR
CLRCC
(MASO
(MAST
(MAS10
(MASTT

100000

003004
003030
002632
104005
001662

002632
015204
004212
017224
006622
002654
002722
002646
002746
015204
003376
001302
001304
001322
001324

1904

12420
126492
1254+
1265«

12646
4594

1649

64584
20N
4490
LLB84
74
LL6N
L45N
443
2122

4574
1762
2898
z?ggl

L5540
6544
4534
1832
2558

2684
4524
4510
4504
12354
1178

6920
2139

2692
8774
878
641
4784
6904
8424
3018#
11264
13004
15530
845
855
8464
831
843
752
558¢
5594
Soul
5674

10:53
PAGE 67
CROSS REFERENCE

TABLE

=-- USER

SYMBOLS

SEQ 0066

19074

1314
1252
12564
12574

1253
764

12584
769

78%

1152

1159

1356

1513

1636

1640

1641

1645

1646

1280
2017
859
854
1137
1312
844
L44n
2128

1731
2178
1873
1888
1332
1407
1903
862
2134

1732
2202
2088
2370
1353
1520
2038
1612
2486

1733

1737

1738

1940

1946

1963

1970

1984

2005

2094
2379
1942
2007
2043
1918

2100

1948
2013
2472
1966

2019
2480
1975

2490

1979

1989

2059

2065

2071

2118

1672

1752

1757

1761

2886

879
1765
2948
1778

1281
2034
2993
1782

1662
2036

1666
2041

1667
2057

1671
2063

2069

1675
2322

2346

1756
2367

24694

2885

1783

1787

1788

1791

2086

2092

2098

2114

2116

2126

1805
1160
1836
2561
2689
1858

1809
1161
1837
2566

2705
2151

1810
1166
1841
2581
2706
2154

1814
1514
1842
2583
2709
2225

1815
1515
1845
2586
2750
2988

1818
1526
2513
2611
2752

2642
1689
2515
2613

2518
2618

864

1492

1255
1576
2231

1594
2336

1610
2356
2874

1626
26460

1653
2500

824
1237
12314
1560
2205
2720
2366
8a3s
8434

1301
1554
8484
858#
857
860
30194
9764
1480

2737
2769

873
8644
3076
1142

2760
2884

2757

1679

2524

1693

1706

2546

1694

2520
2658

1822

2569

1698

1699

1702

2537
2660

2538
2062

2540
2681

1879

1894
2645

1909
2668

2597

JMAIN.
MACYTT 30A(1052)
28;JUN-79
CIDLAK.PY]
28=JUN=79 10:4

(MAS12
(MAS1S
(MASY4
CMAS1S

(MAST6

CMAS17

CMAS?2

(MAS20
CMAS21
CMAS22
(MAS23

(MAS24
(MAS25
CMAS26
CMAS27

(MAS3
(MAS30
CMAS31
(MAS32
(MAS33
CMAS34
CMAS3S
(MAS36
(MAS37

001326
001330
001332
001334

5684
569#
5704
5714

001340

573

001336

0013C6

001342
001344
001346
001350

001352
001354
001356
001360

001310
001362
001364
001366
001370
001372
001374
001376
001400

10:53
PAGE 68
CROSS REFERENCE

5784
5794
S80N
5814

5614
5824
5834
SB4N
5854
5864
S874
5884
589#

2642
2907
29194
3086+
33834
30304
1251«
1353«#
1039+«
3038+
1291«
1286
1377«
1282«
2254
2259+

1055«
3052
1380
1373«
1378
1293+
26110
2416+

1056
3066+
1383
1380
1391
2249+«
2904
2906

CTRG

001576

6574

2269

2426+

2910

2284+

2441¢

2916

CIR?7

CURTST
DATAA
DAT(HK=
DATIST
DECVAL
DELAY DIGIT

001600
001602

001604

001454
005142
104004
005120
005112
104016
005074

SEQ 0067

5604

2285
2905
2917
6814
3028
703
1248+
1347
6694
6784
6507
6514
652#
6534
6548
6554

CTRS
CTRG

-- USER SYM3OLS

574N
5754
5764
S77H

001312
(001314
001316
001320
014564
014654
014660
001654
020321
015256
005072
005456
001626
001646
001560
001562
001564
001566
001579
001572

001574

TABLE

572#

(MASS
CMASS
CMASS
(MAS7
(MPT
(MPING
(MPTOK
CNT
(NTG
(NTLU
(NVCTR
CONT
COUNT
COUNTT
CRBUF
CRBUFA
CRBUFB
CTRO
C1R1
CTR2

CIR3

5624
5634
5644

S654

6564

2264r

6588
6594

2274y
2279

6154
12834
L7708
12804
1243
487
1261+

830
1294
1292
2770
1278#
880
1264+

6608

29044
2909

2911

2913

2915

2918#

2798+
1387

2999«
c788e

2973«

2984+

2406+
2906
2908

2784

2795+

2904

26357

2935

2952

3117«

3048
12704

2421+
2431«
2436+
836

2908

2012
2914

2910
2912

2914
2916

B91s

2794

3000

1096
1267

2324
1268

2496
12714

2995

JAAIN,
MACYY) 30A(1052)
28=-JUN-79
CIDLAKH.PY
28-JUN-79 10:49
DISPLA
DISPRE
OLONT
DLY

DLYA
DLYB
OLYC
DOTMIS
OTCHK
DTCHKA
DICHKX
DTERR

000174
000172
004070
004024
004046
004052
004064
006352
005560
005650
005606
020142

ECDAT
003704
EMALT = 1046010
EHLT
005516
EMLTA
005526
EMTA
003076
EMTINT
003064
EMTITAB
001514
EmO
016072
ERDAT
016715
ERR
005652
ERRA
00572°2
ERRB
006022
ERRC
006026
ERRD
006036
ERRE
006040
ERROR = 104003

ERROR1ERR1
ERTP
ERTPA
ERXTIM
ETXTIM
EXA
EXAA
EXBA
EXTA
FILL

FMAP
f NONE
FORMAD
FORWD
FOUNDVY

FROMPC
FTITLE
GETRDY
GOBA(K

GRONT

104015
005674
006042
006112
(016434
016372
016334
014404
014440
014250
001650

001472
001632
006226
003032
(001614

001636
001630
002474
(006366

004116

5048
5034
1075+
645
10804

10814
1078
164924

635
1381

10:93
PAGE 69
CROSS REFERENCE

D
TABLE

== USER

1405+

1427

1591
1735
1844

1607
1740
1860

6
SYMBOLS

SEG 0068

1088«

2398

1379
1065
10444
4814

639

1365

8974
424
6314
1426
1395
634

1402

1399«
1408
1409+
1401+
4768
1691
1812
1977
2102

2349
2594
2889

4864
644
412
14440

2445
2288
2829
2850
2865
2804

6794
6220

6714
791

823

664N

6734
6704
8164

1493
11010

3094

2015
2136
2674
2686
2998
2287

24644

426

2021
2183
2478
2708

1623
1754
1875

1638
1759
1890

2040
2186
2483

2045

781

817

14364

1513

819+
779¢
1360

1159
782
14710

1462

1667+

1139¢
1449
754
865

16460+
758

1311

1508

1528

869

801
1597

2Ny

2217
2488

2733

1643
1764
1905

2061
2221
2492
2754

1648

1780
1920

2067
2224
2517
2786

1664
1785

1944
2073
2227
2543
2792

1669
1790
1950

2090
2328
25¢3
2821

1674
1807
1968

2096
2333
258¢
2839

JMAIN,
MACYIN 350A(1052)
28-JUN-79
CIDLANH.P1Y
28-JUN-79 10:49

GIBIN
GIBINP
GTRDAY
GIRDYA
GIRDYC
GTRDYD
GTIRDYX
ICTR

INBIN
INCRPG
INCRTN

INDA
INTER

KSTART

LOLINE
LINA
LINB
LINENO
LINSEL
LINSLX
LOGIC

004510
(004556
002964
902534
002572
002614
002502
001464

2787

889+
2982
630

001452

788+

1156

MS4

020223

mrit
M10
NEW
NOP
NXTST

781+

2983

1307#

1541

1542

1543

789+

1148

1169

1319

2943

2968

2981

B8«

1569+

1585¢

817

2789
31424

2996

3090
2988#

3093.

5104«

866

886

33254

020163

33604
33620
33640
33664
33680
33704
33724
35744

020213

020233
020243

020253
017767
015710
020034
020341
= 000240
001462

292:

780

015124
020263
(016123

020173
020203

ms?
MTERR

SEQ 0069

1548«

017546
004344
004352
001616
004244
004262
005446

ms1
ms2

MssS
MsSo6

TABLE -- USER SYMBOLS

003660
020145

017701
017625
017653

mMs3

1494

004452
005244
005234

MSETC
MSETRX
MSETTX

mMso

838

MACHER
000004
MANUAL= 100000
MAPA
002224
MAPEND
002312
MAPERR
002376
MAPNE
002252
MAPOK
002262
MAPVEC
006150
MASKIT
(05530
MDEVAD
016001
MESST
002054
Mt ROM
020066
MNOLIN
020077
MNONE
016055
MODE
001652

MOUTIN
MPURF
MRANUM

10:53
PAGE 70
CROSS REFERENCE

6184

816+

888¢

1336

1344

1603«

1619«

1359,

1478

LMAIN.
MACY1T 30A(1052)
28-JUN=79
CIDLAN.PYY
28-JUN=79 10:49

CACNV

0064624

OACNVA
004640
OACNVX
004710
OLOPS
001470
OPEN
= 000000

oul
OVRLAY
OVRLYA
OVRL(B
PASCNT
PFAIL
PGMSG
PIND
POPSP =
POPSP2=

PRGEA
PRGEB
PRGEC

PRGEND
PRGEXT
PRGNUM
PRGTAB
PRGXTL

PRGXT1
PRGO
PRGOA
PRGOB
PRG1
PRG1A
PRGIB
PRG2

PRGZ2A
PRG3
PRG3A
PRG&

PRTY0
PRTIY1
PRTY2
PRIY3
PRIYS4

001640
006370
016021
004502
005726
022626
005404
005470
005376
005256
005346
001450
001474
005436

P10
PIOP

622
808
11864
4604
XYY ]

2617

13394
1342
13384
868
1313
6134
6234
800

015010

2949«

015106

000000
000040
000100
000140
000200

PRTYS =
PRIY7 = 000340

PSW

1019
1271
3020
753
1026
1030
6748

1333
623
1536
1550
624
1537
2932+
625

015032
015056
015072

=
=
=
=
=

652
676

005364
006602
006640
006634
014662
014706
014730
014734

014760

PRG2B

PRG4LA

015500
0036164
003630
003650

773
1448
12164
1212«
6214
G20

177776

004476
004504

1538

10:53
PAGE 71
CROSS REFERENCE

1168
2155
1225
1216
1636
504

653
677

1088
1272
3022
10234
1031
10324
804

749
31454

1202+
1083
696

2641

135¢4
13564
1357
13114
13324
812«
814
1335

13364
15484
15574
15564
29254
2932#
29364
29414

SYM3OLS

1326

1382

1220«
1438+
509

1221+
1439
613

1222+
1440
614

1223«
1461
615

12284
1442
616

654
678

659
679

1097
1427
3026
1141

1106
1432
30704
1510

1315
164978

1334
1499

1086
770

2664

858

656
680

657
681

658
915

1107
1433

1183
2308

1184
2458

2510

2607

2631

1572

1590

SEQ 0070

1386

618

659
916

1390

1413

1417

1621

619

620

636

650

660
930

661
931

66?2
938

1444

651

663
967

666
1009

2593

1185
293¢

1186
2953

1187

1188

1228

1606

1622

2521

2542

2565

1088

1804

1831

2148

1270

1343

1459

2688

2716

2756

1167

1437

1532
13464

2937

29664
29734
29794

2975

LOIN
4684
YL
L664
L65#4

2983s

2986

610

612

423

425

4394
1831

7651
21480

805+
2177«

11844
11874

1191
1200

1197
1206+

2751«

== USER

1322
2196

626
1539
627

421

TABLE

1318
2192

2960

1540

12114
2159

29484

2953y

822+
2514

1079«
2536

1158+
2559+

1527

1167
2560

1436
2582

1437
2012

15120
c6 85

1527
2653

1688
SRl

T8 in
JHB
e

.MAIN,

MACY11

CIDLANH.P1I
48
PI1P
PWRUP

POTITY
PITIT
P2T1H
P3TIT
P&4TI11
QUEST
R(MSK

RDDAT
RDOCT
RESTAR
RETRN
RIND

RMASK
RNCNT
RNGEN
RP1
RP?2

004500
004506
006400
016134
016476
016536
017364
017434
020352
0046136
003066
003652
006559
004010
004474
001404

004140
003324
003372
003374
004000
006562
003212
003214

RREAD
RSTARY
RSTPC
RSTPSW
RSTREG= 104014
RSTRG
002156
RTINNO
001456
RXBUF
001412

RXBUF
Y
RXCRO
RXCR1
RXCR10
RXCR11
RXCR12
RXCR13
RXCR14
RXCR1S
RXCR16

RXCR17

RXCR?
RXCR20
RXCR21

RXCR2?2
RXCRZ23
RXCRZ24
RXCRZ2S
RXCR26
RXCRZ27
RXCR3

RXCR30
RXCR31
RXCR32
RX(R33

RACR34
RN(RES

001612
001200
001202
001220
001222
001224
001226
001230
001232
00123¢
001236
001204
001240
001242
001244
001246
001250
001252
001254
001256
001206
001260
001262
001264
001266
001270
001272

30A(1052)

28-JUN-79

28=JUN=79 10:49

11854
1188#
1497
1552

2926
2942
2967
2980
3059

1102
10404

809
509

10:53
PAGE 72
CROSS REFERENCE

1191
1209+
16994
31614

1192«
1201

1195+
1204

1063
1145

2930

11064
1041

10354
1505

15320

10684
1179
1370+
1107#
1092
963«
966
1052
15364
928
927
1226

1180
1371«

1183#
1372«

1101
970
969+
1054

9724
9734
1057

9304
9314
1238

1259

6164
5964
2490

806
882
2734

979«

6638
Si7#
518«
5254

5264
5274
528#
5294

5304
531
5324
519#

5334
S340
535
5364
537»
5384
5398
5404
520N
S
5424
5434
5440
5654
5468

TABLE

1196+
1205«

== USER

SYMBOLS

1197

1198

1206

SE0 007"

1207

32044
32104
12874
32940
3389«

1048
1177«
5924
1104
959«
959
962
1050
1534
920+
921
4B5#

643

92048

2471
761

828

2793

2672
784

B3¢

2971

10648

2890

861
1377
2554

2994

788

1340

1291

2476

887«

1473«

141

1588

2999

1622

2350

2382

2631

PIYA

2680

26Bs

OONONO

2289
2587
2873

1907

2334

2619
2894

N —

—

—h

N~
£ 00\

md cad
nd

65
2034
2092«
2179«
2634+
273

1732+
1787«
1842
1966
2036+
2994
2188
2636«

2750«

1733
1788
1845
1970+

1737
1791«
1858
1974

2038
2098
2202«
2662+
2752«

2041
2100
2326
2658«
2757«

1767

1793%

2730¢

O
o

W
o

N~ POPONON
et —b —a e

LI
L4

2 OO0
NN
ok ® ol g ¥
o (Vale LVe B doV1e -1 VIV ]
~ S

o (Wl oV To Bl

~n PNONINON)
= et e

-»

—O 0
OO N~NOWN—
O

(¥,

LJ
»
.

O
PININY
b o

oo FW—OOVO00
N

PNINOPOPONIND
= —s s -

1651
1922

W—O OO0 ~uN.

WO~
O — — N0
VDWW
S O

1621

1720

2710

1741
2046
2479
2735

2074
2484
2758

2103
2689
277

2022

2354
2645

2675

104021

016573
017507
017605
005220
004210

1116
748
1650

001176
104011
000170

820
1676

1501

1703

1719

2150
697+

2187
m

2228

1492

1520

824

2330
832
2988

748¢

803

1310

1455

2729
2678

16407
95¢

003306
004072
004112
004114

11214

1766

2893
844
3019

1792

1819

1846

1861

1876

1891

854
3032

859
3069+

864

iy7

1312

13y

2749

2835

2893#

1049002

002136
001656
002326
002332
002366
002426
001406
003252
003216
00327«
203240
014544
106006

9384

2657
2608

2680
2632

s 30

START3

STARTS
STLMSK
STLSPvV
STLSRv
STPPA
STPRA
STRXD
STRXY

1605
1892

~d~

STARTI
START?2

1511

1327

1989

ja¥ 1, V]

SRSETT
STAL
STALA
STALB
STALL START
START!Z

StQ 0072

1466+

1988+«

2856

[¥
o1,
¥

SRPIR

001466

SYMBOLS

2682

>~
W

SCOPTIR
SCRLF
SELCAD
SELCAR
SELINE
SETSR
5107
SPBOT SRESET

== USER

2659

SAVREG= 106013
SAVRG
003116
SCOPE - 104012

TABLE

OO0
NSO

001610
001300
001422
001420

(Yol N~NOD

»
»

£ 00 0Onruoo

o WO WO
o —
N NO NN 0D N

no Ny

RXCSR1T
RXEND
RXLVL
RXVIR

PN~
O T~y
S,

RX(R36
RXCRS
RXCRS
RXCR6
RXCR?7
RXCSR

10:53
PAGE 73
CROSS REFERENCE

Y ] O~V
O &~

MAIN,
MACY 1 30A(1052)
28-JuN-79
CIDLAR P
28-JUN-79 10:49

2740

TIME?2

1Im1
k8
TKLVL
%S

TKVIR
TMRX
TMT X
TNNO
Y0P~
1PB
TPLVL
TPS
TPVIR
TSTVA
TSTVEC
TSTVEX
TTINTS
T XBUF

TXCSR

915#
9164

6664
1478+

701
1147
16480+

2579

TYP),

TYP(
TYPD

TYPRAT

—

1338

2900
2991

2115

11204

Ow
N

3044
2006
2117

N —

3061«

1687

1483

Ny —

2949

2947

1482

1266
3024+
1964
2093

1113
4884
4894

2156
3065«

O
~N00
POV

3061+
774
2932

2154«
3063

—_O0
N
WO

6778
6674
6684
1249
6764
1941
2070

1149+

3031
5054

1263

2888

012126
001432
001442

1042

3041

001430

1040

1553

3021

3039

16445
1046+

1461

1132

1464

3029+

1405

3044

1466

1044

1130

3042

3112

3115

2181
o887

2184
2899«

2215¢
29332

1716

1662
2149

2785

1339

13450

1358«

1359

3054

3056
2062
2453

3064
2058

3065
2064

2218e
2950«

2294
2995+

2297~

2323»

2% 7.

2151
2513
2820+

2153

1514
1671e
2180«

1515+
1672
2219

1526
1675

2369

2372¢

1486

1487

3049
2035
2298

2037
230448

2973

2175

2348
2216

004164

001440
004142
004152
001460
001634
001436
001446
N01434
001444
006526
006424
006546
015502
001416

1612¢

1288«

2695+
977+

001414

1161
1646
1702+

2367
2581

2300
2558+
2951
2160

001606
001426
001424
003440

983«
981

003450

1166
1649

2449
2583

1281+

2694
2586+

2959

1008

003466
03514
003560

5114

15084

1640+
1694

TXCSRT
TXLve
TxvIR
TYP

1150

SEQ 0073

TIMER
004206
TIMERX= 104017
TIMETX= 104020
TIMEX
006204
TImE?
004160

905+
906+

2556

SYMBOLS

001644
001622
001624
005076
001642
012122

2534

== USER

NI
—O0
-+
NN

TEMPST
TEMPY
TEMP2
TENPWR
T1B
T1ME

001620

480#
1250
12624

TABLE

O
O

TEMP

104007

005032
005036
005052
003152
003154
020330
000176

STIXyY
SUBTEN
SUBINA
SUBTNB
SVRP(
SVRPSW
SWR
SWREG

10:53
PAGE 74
CROSS REFERENCE

Doy
—
WVHrO—w
N0
O
OO0

JMALN,
MA(YY) 50A(1052)
28-JuUN-79
CIDLAN.PY
28-JUN-79 10:49

991

1005
994

996

1000

1004

1006

1009¢

1283
1666+

1475
1667

2515«

28N

2518e
2885+

2520+
2880

2225

2537

2898

UMASK
X

XOR
XORA
XORADD
XORFLG

$SCRLF
.

015520

001402

000063

002774
002112
001276
002110

004212
020360

591

1558#
1679
18284
1953

712
5480
716+

L11a
1284

2989

DN
—
oo
WO

O
—

oo
LaSRY
To

(VLR
P o

S€Ea 0074
NONY —

2632

~N
O 00

2627
3058

HsrNoo

807
1551

1594
17284
1879

21454
2385
26034
2760
28804
851

648

796

1522

SYMBOLS
NN

2622
3035
2399

-~ USER

1154

2265
2941

1172

2270
2944

1298

1303

2275
2966

2280

1653
1801#
1930

2ills

16598
1822
19368
2139

2737
28668

2597
27438
2874

2969

30864
632

1016
1014

777
1502

TABLE

L B

015534
003562
003606
003610

OCOOSHr Or N~
COOOMIN)
—
SO
O N

TYPON
1YPS
TYPSA
TYPSB

003544

474N
9995
997
3033

756
1452
2417
3030
2242

[+ AV Te
1))
LR

T1YPG

TYPOC

26407
2979

104001
003532

L7348
1307

1046000

—

TYPES
TYPF

WOoOOO

TYPE

10:53
PAGE 75
(ROSS REFERENCE

NONY —

MAIN,
MACYTT 30A(1052)
28-JUN-/9
CZDLAN.P
28-JUN-79 10:49

436

2226

1600

1743
1885#

20304
2231
2506#
2668
2805#

2048
223748
2524
26740
2824

2853

2868

5068

2296

508#
2450

1610
17494
1894

16164
1769
1900#

1626

1775#
1909

20544
2310
25304
2692
28304

2076
23i6n
2546
2698#
2845

2082#
2336
2552#
2720
28518

510#
2473

7258

799

2677

2482

2356
25758

1002

2487

1194

2691

23628

1203

2891

MAIN,
MACY1Y 30AC1052)
28-UUNF79
CIDLAK.PI
28-JUN-79 10:49
TSTA

Taaw

1863

TSTAA

1575

1893

1593

1908,

1609

1929

1652

1994

2355 [
2772/

238’
2798

2459
2823

2499
2Bub

2523
2859

186

1879

1894/

1909

1930

1953

1995

1560

1576/

2336
2760

02030

000

ERRORS DETECTED:

2354
2775

1594

2385
2799

1610

2460
2824

CIDLAH.BIN,CZDLAH.LST/CRF/SOL/NL:TOC=C2DLAK.P1
RUN=-TIME: 11 23 & SECON

CORE

1952

TABLE

2335
2759

2310
2737

RUN-TIME

1625

2309
2736

735

ABS.

1559

1678

10:53
PAGE 77
CROSS REFERENCE

RATIO:

USED:

11k

122/39=3.0

(21

PAGES)

1626

2500
284S

1653

2524
2860

-- MACRD NAMES
1678

2023

2545

1679

2024

2546
2874

1705

2047

2568
1706

2048

2569

SEQ O(7¢
1721

2075

2596
1722

2076

2597

1742

1768

1794

2104

2138

2166

1743

17¢9

1795

2620

2105

2621

seah

2139

2645

2667
.
2167

2668

1821

2204

3691

1822

2205

2692

1848

2230

5910
1849

2231

2720