Digital PDFs

AH-8517H-MC

November 1979

76 pages

Original

41MB

view download

OCR Version

57MB

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_gray.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.
MACYTT 30A(1052)
2B-JUN=79
CIOLAN P
28-JUN=79 10:49

10:53

PAGE

.REM
9
.REPT 0

IDENTIFICATION
PRODUCT

CODE:

AC=-8516H=M(

PRODUCT

NAME:

CZDLAHO DL11=E,C/D OFLNE

DATE:

JULY

MAINTAINER:

DIAGNOSTIC

AUTHOR:

ROBERT

TST

1979
ENGINEERING

WHITTON

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

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR

THE

SOF TWARE DESCRIBED

IN THIS DOCUMENT

IN THIS DOCUMENT.

1S FURMISHED UNDER A

LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF

SUCH LICENSE.

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

(C)

1972,1979 BY DIGITAL EQUIPMENT CORPORATION

FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OF

PDP
DECUS

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

CORPOPATION:

MASSBUS

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

DL11<E

<MAIN.

MACYT1

CZIDLANH.PII

30A(1052)

2B-JUN=79

10:53

28-JUN-79 10:49

PAGE 2

StQ 0002

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

REQUIRE THE
USE OF A MODEM, HOWEVER A SPECIAL JUMPER CONNECTOR H315 iS REQUIRED.
THE ON LINE TESTS ARE ESSENTIALLY DATA RELIABILITY TESTS RE-

QUIRING THE USE

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

VERSIONS IT
TO THE

IN THE

TEST

NUMBER

ARE

IS NECESSARY TO MODIFY

INSTRUCTIONS

CONTAINED

TESTS WHICH ARE NOT

EXECUTED.

THE

TABLE

THERE.

IN ORDER

TEST

AND

AT LOCATION 1300 ACCORDING

EXECUTED FOR DL11C+D CAN BE

PERFORMED BY

USING THE SELECT SWITCH OPTION (SR9). TEST 56 IS A DATA TEST WHICH
CAN BE USED FOR CABLE TESTING DL11-D'S. WARNING==A FAILURE IN THIS TEST

MAY

OCCUR DUE

SPLIT

BAUD RATE

THIS DOCUMENT

DESCRIBES THE

THE

TESTS ARE:

AVAILABLE

PRGO
PRG1

OFF

PRG4

SPECIAL BINARY

REQUIREMENTS

2.1

EQUIPMENT

RCVTR/TXVIR.

TESTS.

INPUT/OUTPUT LOGIC TESTS
TRANSMITTER SCOPE LOOP

RECEIVER SCOPE LOOP

LINE

PRG?2
PRG3

2.2

TO A

SINGLE CHARACTER MAINT. MODE DATA TEST
COUNT MAINTENANCE MODE

PDP 11

DLI1-E OR DL11-C OR DL11-D

SPECIAL JUMPER CONNECTOR H315 (SEE 0 L11
FOR DETAILED
DESCRIPTION) IF DL of

TEST

SYSTEM

MAINTENANCE MANUAL

STORAGE
THIS PROGRAM USES ALL OF CORE (4k) EXCEPT
FOR THE BOOTSTRAP AND ABSOLUTE LOADERS.

DATA

THAT

AREA RESERVED

LOADING PROCEDURE
THE

ABSOLUTE

USE

PROCEDURE

LOADER

IS USED

TO LOAD

THIS PROGRAM HAS BEEN MODIFIED
A CONSOLE PROCESSOR.

A CONSOLE MACHINE

1S USED;

THE

PROGRAM.

TO RUN WITH OR WITHOUT

THEN THE PROGRAM

-MAIN.
MACY11 30A(1052)
28-JUN=79
CZDLAH.P1I
28-JUN-79 10:49

10:53

PAGE

3
SEG 0003

LOOKS AT THE HARDWARE SWITCH REGISTER.
IF A CONSOLE=LESS MACHINE 1S 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 1S STARTED.
IT WILL THEN ASK FOR

INPUT

TO THE

SOFTWARE

BEFORE STARTING ANY OF
THAT

THE

TTY

SWITCH REGISTER.

TYPE

THE
THE

CARRIAGE

THE SELECTABLE PROGRAMS MAKE

IN REMOTE MODE;

AND

THAT

THE

SOFT. SWITCH REG.
NEW CONTENTS T0

RETURN TO FINISH INPUT.

SURE

PROGRAM SELECTED

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

DEVICES PRESENT

WILL BE

TYPED

BE TYPED OUT AGAIN UNLESS THE PROGRAM IS

RUN TIME.

THIS MAP WiLL

NOT

RESTARTED AT LOCATION 200. A RESTART FROM THIS LOCATION WILL CAUSE
T?E HSECOE DEVICES TO BE TYPED OUT AGAIN AND THEN A NORMAL START

WiLL

4. 1

PRGO
A.

UR.

INPUT/OUTPUT LOGIC TESTS
LOAD ADDRESS = 000200 (RESTART LOAD ADDR. = 000204)
TYPE PROGRAM NUMBER = 0.
THE DIAGNOSTIC WILL IDENTIFY THE PROGAM YOU SELECTED.

DISCONNECT THE DL11-E FROM THE MODEM AND INSERT THE 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 WiLL TYPE OUT INSTRUCTIONS TO SET IN THE DESIRED
SR OPTIONS. TYPE CARRIAGE RETURN WHEN THE OPTIONS ARE IN THE SR.
THE

AVAILABLE OPTIONS ARE:

SR 0-6
SR7
SR9

SR10
SR11
SR12
SR13
SR14
SR15
C.

ROUTINE TO BE RUN (IF ENABLED BY SR9)
DISABLE STALL MODE
LOOP SELECTED ROUTINE

HALT AT END OF CURRENT TEST
INHIBIT ITERATION
SELECT LINE NUMBER AND LOCK ON IT
INHIBIT PRINTOUT
SCOPE
HALT ON ERROR.

THE PROGRAM WILL NOW REQUEST THE LINE #(1F
TEST.

TYPE

THE

LINE

# AS REQUESTED,

SR12=1)

FOLLOWED BY

vYOU WISH TO

A CARRIAGE

RETURN.

LINE NUMBER REFERS TO THE ADDRESSES TO WHICH THE DL11-E RESPONDS.

LINE 00 77561x

LINE
LINE
LINE
LINE

01
02
03
04

LINE 10 77571X

77562X
77563x
77564X
77565X

LINE
LINE
LINE
LINE

11
12
13
14

LINE 06 77567X

LINE

16 77577x

LINE 05 77656X

77572X
77573x
77574X
77575X%

LINE 15 77576X

LINE 20 77601X

LINE
LINE
LINE
LINE

21
22
23
24

77602X
77603X
77604X
77605X

LINE 25 77606X

LINE 26 77607X

LINE 30 77611x

LINE
LINE
LINE
LINE

31
32
33
34

77612X
77613x
77614X
77615x

LINE 35 77616X

LINE 36 77617x

LMAIN,

MACY11

CIDLAH.PI

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

10:53

SEQ 0004

LINE 07 77570X
THE

PAGE &

LINE

17 77600x

PROGRAM WILL

NOW BEGIN

LINE 27 77610x
TESTING

THE

DL:1-E

C/D

YOU

ALL DL11'S WILL BE TESTED AUTOMATICALLY AND SEQUENTIALLY
UNLESS SR12 IS SELECTED.
NOTE: ALL LOGIC TESTS WILL NOT BE RUN AUTOMATICALLY.

SELECTED.

THERE ARE TWO TESTS WHICH REQUIRE MANUAL INTERVENTION
WHICH ARE USED TO TEST THE SPEED SELECTION SWITCHES.
THESE ARE TESTS T134,740. TO EXECUTE THESE TESTS USE S 9 AND

SR 0-6 TO SELECT THEM.

REFER

TO SECTION 5.1.2

AFTER ONE

COMPLETE

FOR

PASS

ERROR

DESCRIPTION

THE BELL WILL RING

FOLLOWED BY '"END PASS = '' WITH THE NUMBER OF
PASSES COMPLETED SINCE PROGRAM LAST STARTED AND
THE

4.2

PRG1
A.

DEVICE

ADDRESS UNDER

TEST

AND

ITS

TRAP VECTOR.

- TRANSMITTER SCOPE 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.
€.

THE PROGAM WILL RUN WITHOUT

ERROR OR END TYPEOUIS.

PRGZ2 - RECEIVER SCOPE LOOP
A.

LOAD ADDRESS = 000200

(RESTART

= 000204)

TYPE PROGRAM NUMBER = 2.
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 REQUEST A TEST CHARACTER
TIME. THE CHARACTER CODE IS THE DATA THAT
TRANSMITTING AND THE DELAY 1S THE ELAPSED

SIVE

THE

4 A

CHARACTERS.

PROGRAM WILL NOW RUN WITHOUT

PRG3 - SINGLE
A.

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

ERROR OR END TYPEQUTS.

CHARACTER MAINT MODE DATA TEST

LOAD ADDRESS = 000200 (RESTART
TYPE PROGRAM NUMBER = 3,
THE

CODE,

DIAGNOSTIC

WILL

IDENTIFY

= 000204)

THE

PROGRAM YOU SELECTED,

AND

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

10:53

REQUEST

THE

UESTED,
B.
C.

4.5

LINE

SEQ 0005 |

YOU WISH

THE PROGRAM WILL REQUEST

ACTER,

FOLLOWED BY

Y:ESPROGRAH WILL
U
.

TO TEST.

TYPE

THE

A TEST

CARRIAGE

NOW RUN

COUNT

CHARACTER.

RETURN.

LINE

TYPE

THE

CONTINUOSLY REPORTING ANY

MAINT.

MODE DATA

# AS REQG-

TEST

(HAR-

DATA FAlL-

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,
B.

FOLLOWED BY A CARRIAGE RETURN.

PRG4 - SPECIAL BINARY
A.

PAGE

FOLLOWED BY A CARRIAGE RETURN.

THE PROGRAM WILL BEGIN TESTING
AND REPORT ANY DATA ERRORS.

THE

LINE

YOU SELECTED.

PROGRAM DESCRIPTIONS

PRGO -

INPUT/OUTPUT LOGIC

TESTS

THE INPUT/OQUTPUT LOGIC TESTS CONSIST OF 57(8) ROUTINES WHICH
MAY BE RUN IN SEQUENTIAL ORDER OR INDIVIDUALLY LOOPED (SEE

SECT 4.1, C FOR SWITCH SETTINGS).
THE JUMPER CONNECTOR MUST
BE INSERTED BEFORE STARTING IF DL11-E.
5.1.1

ROUTINE DESCRIPTIONS
ROUTINE

TESTS

AT0-AT3
AT&=AT27

ADDRESSABILITY OF (SRS & DBRS
DIDDLES ALL BITS IN THE (SRS AND
CHECKS THAT THEY CAN BE READ/WRITTEN
PROPERLY.

AT31-AT32
AT33
AT34

PROPER OPERATION OF RESET INSTRUCTION
PROPER OPERATION OF READY BIT
PROPER OPERATION OF TRANSMIT SPEED SELECTION

AT35-AT37

PROPER OPERATION OF DONE BI1

AT40

PROPER OPERATION RECEIVER SPEED SELECT

AT41

PROPER OPERATION OF

DATA OVERRUN

AT42-ATS2

PROPER OPERATION OF

INTERRUPIS

AT53

READING RXCSR DOES NOT

AT54

ERROR CAUSES

INTERRUPT

C(LEAR DONE

LMAIN.
MACYT1 30A(1052)
28-JUN-79
CZDLAH.P
28-JUN-79 10:49

3.1,

10:53

PAGE 6
SEa@ 0006

ATSS

DATA TEST MAINTENANCE MODE

ATS6

DATA TEST WITH JUMPER

ATS7

PROPER OPERATION Of

/
'

BREAK BIT

ERROR DESCRIPTION
IF A ROUTINE FAILS AND THE INHIBIT
ENABLED (SR13) A PRINTOUT RESULTS.

PRINTOUT SWITCH 1S NOT
THE PRINTOUT FORMAT [S:

T(ROUTINEN)
PC=(PC OF ERROR CALL) RXCSR=(ADDRESS OF
AND AN ADDITLONAL/MESSAGE (1F APPLICABLE)

DEVICE

UNDER

TEST)

T005 PC=XXXX RXCSR=XXXX
T122 PC=XXXX RXCSR=XXXX DATA S/B:===WA5:===
INDICATING A DATA ERROR
TO RESUME

THE

TESTING PRESS

A TRAP TO,THE
WiLL 0CCU’.

1 3

CONTINUE.

VECTOR PROVIDED BY

THE

INTERRUPTING DL11-E

WRONG LOCATION WIL!

OCCUR AND

INCORRECT

AN FRROR MESSAGE
’

JUMPER CONNECTOR
THE

JUMPER

CONNECTOR

TESTS

THOSE

F/F'S,

GATES

(RING

INDICATOR,

CARRIER TRANSITION, CLEAR TO SEND, AND SUPERVISORY RECEIVE
DATA) WHICH CANNOT BE TEST:-D UNLESS A DATA SET IS ACTUALLY
CONNECTED TO THE DL11-E.
IN ADDITION TO TESTING DLIY=E LOGIC

THE

JUMPER ALSO TESTS CABLE WIRING TO/FROM THE

SET.
THE FOLLOWING TESTS WILL FAIL
INSALLED IN THE DL11-E:

5.2

DL11-E/DATA

THE CABLE

AT22,AT23,AT25,A130,A132,A156

PRG1-TRANSMITTER SCOPE LOOP

15 NOT
!

{

THE PURPOSE/
OF PRG1 1S TO ALLOW SCOPING OF TRANSMITTER

FUNCTIONS IN A RUN CONDITION USING USER SPECIFIED DLT1-E

PARHATER%/AND DATA.

NO ERROR PRINTOUTS ARE PROVIDED.

PRG2-RECEIVER SCOPE LOOP

THE PURPOSE OF PRG2 IS TO ALLOW SCOPING OF RECEIVER FUNCTIONS
IN A RUN CONDITION USING USER SPECIFIED DL11-E PARAMETERS
AND DATA.
NO ERROR PRINTOUTS ARE PROVIDED.

5.4

PRG3-SINGLE

CHARACTER MAINT MODE DATA TEST

PRG3 TRANSMITS, RECEIVES AND CHECKS RECETVED DATA USING USER
SPECIFIED

PARAMETERS,

AND DATA,

ERROR PRINTOUTS

.\LL

5.4. 1

DL11-E

MAIN.
MACY11 30A(1052) -28=JUN-79
CZDLAH.P1I
28-JUN-79 10:49
SELF

10:53

PAGE 7
SEQ 0007 |

EXPLANITORY ERROR PRINTOUTS ARE

PRG4-SPECIAL

BINARY

COUNT MAINT

MODE

PROVIDED.
DATA

TEST

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

3.5.1

USER

DL11-E

RUNNING PARAMETERS,

ERROR PRINTOUTS

SELF

6.0

SPECIFIES

POWER

EXPLANATORY PRINTOUTS ARE

PROVIDED.

FAIL

A POWER FAIL ROUTINE

IS INCLUDED IN THE PROGRAM.

WHEN THE POWER FAILS

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

INTERVENTION 1S NEEDED TO PRESS CONTINUE. AN ERROR TYPEOQUT RESULTS

AND WILL TYPE THE PROGRAM #, THE ROUTINE THAT WAS RUNNING AT THE TIME
THE POWER FAILED (PROGRAM O ONLY), AND THE PC OF THE POWER FAIL ERROR
CALL.
RECOVERED FROM POWER FAILURE.
P(PRG#)
T{ROUTINE #) PC = (ADDRESS Of

senxxwnwwrr

CHGH1
CHGHZ
CHGH3
CHGH4
CHGH5

=
-

E(O

HISTORY

ERROR CALL)

reeeveceen

NEW STORAGE LOCATIONS FOR REFERENCE IN “G MODE
CHANGE START UP FOR ENTERING SOFTWARE SWITCH REGISTER INFO.
CHECK FOR “G BETWEEN TESTS.
NEW EMT LOCATION
ROUTINE TO CHECK PRINTOUT, UPDATE SOF TWARE SWITCH REG.

CHGH6 - NEW MESSAGES FOR SOF TWARE

SWITCH REG ROUTINES.

(HGH7 - NEW EMT ROUTINE TO PRINTOUT A <CR> AND <LF>.
(HGHB - DELETED HALT AND INSCRTED WALT FOR TTY INPUI
CHGH9 - DELETED HALT AND INSERTED WAIT FOR TTY INPUT
A AN

AN IR

RN REAERAN AT OIRERORIORER

NDR

385
386
387
38

390
391
392

.LIST
SEQ,BIN
.ENABLE ABS,AMA

" :DL11-E,C/D DIAGNOSTIC PROGRAM (OFF LINE TESTS)

*PRGO- INPUT-OUTPUT LOGIC TESTS
;PRG1= TRANSMITTER SCOPE LOOP
;PRG2= RECEIVER SCOPE LOOP

MACY1] 30A(1052)
.MAIN.
28-JUN-79
CZDLAH.PII
28=JUN-79 10:49

393

:STANDARD SR SWITCH OPTIONS (SWITCH SET TO A 1)
:SR15~- HALT ON ERROR
:SR14- SCOPE.
:SR13- INHIBIT PRINTOUT
:SR12- SELECT LINE NUMBER AND LOCK ON IT
;SR11=- INHIBIT ITERATION.
:SR10=- HALT AT END CURRENT TEST, TEST NO.

417
418
419

429

421
422
423
424
425
426
427
428
429
439
431
432
433
434
435
436
437
438
439
440
441
442
443
LG4

445
L4456

447
448

IN DATA LIGHTS

:SR9= SELECT ROCUTINE.
:SR7= DISABLE STALL MODE AND RUN FULL SPEED.

:SR6 THROUGH SRO = NUMBER OF ROUTINE TO BE SELECTED.

*STANDARD CONF IGURATION

410

416

SEQ 0008

:PRG4= SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST

400
401
402
403
404
405
406
407
408
409

415

PAG E8

:PRG3= SINGLE CHARACTER MAINTENANCE MODE DATA TEST

394
395
396
397
398
399

411
412
413
414

10:53

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

000000

006042
000000
006042
000040
006042
000100
006042
000140
006150
000340
006370
000340
003064

000340
006042
000340
000042
000000
000046
005446
000165

s CHARAC TER LENGTH 8
;STOP C ODE 2

MACHER:

ERTP

;UNASSIGNED TRAP

ERTP
40
ERTP
100
ERTP
140

;SP OVERFLOW, BUS ERRCR TRAP

;RESERVED INSTRUCTION TRAP
; TRACE

MAPVEC
PRTY7
PFAIL

;TRAP TO MAP VECTOR

;POWER FAIL TRAP

PRIY?
EMTINT
PRTY?7
ERTP

JEMT

HALY

. =46
LOGIC

LREPT
.42

117,

.ENDR

001176
000240
000000
100000
100000
040000
020000
010000
004000

TRAP

340
.42

177776

TRAP

JEQUATE STATEMENTS
PSW=177776
SPBOT=1176
NOP=240

OPEN=0
MANUAL=BIT15
BIT1S
BIT14

BI1T113
BIT12
BITIY

sTRAP TO TRAP REPORTER

«MAIN.
MACY11 30AC1052)
2B8-JUN=79
CZDLAN.P1
28-JUN=-79 10:49
449
450
651

10:53

PAGE 9
SEQ 0009

002000
001000
000400

652
453
454
455
656
457
458
459
460
461
462
463

B81710=2000
B119=1000
B118=400

000200
000100

B117=200
BI1T6=100

000040
000020
000010
000004
000002
000001
005726
022626
000340
000300

BIT15=40
B114=20
B1713=10
B112=4
BIT1=2
B170=1
POPSP=5726
POPSP2=022626
PRTY7=340
PRTY6=300

465

000200

PRTY&=200

467
468
469
470
471
472
473
474
475
476
677
478
479
480
481
482
483
484
485
486
487
488

000100
000040
000000

PRTY2=100
PRTY1=40
PRTY0=0

104000
104001
104002
104003
104004
104005
104006
104007
104010
104011
104012
104013
104014
104015
104016
104017

TYPE=EMT+0
TYPES=EMT+]
STALL=EMT+2
ERROR=EMT+3
DATCHK=EMT
+4
CHALT=EMT+5
STRXV=EMT+6
STIXV=EMT+7
EHALT=EMT+10
SRESET=EMT+11
SCOPE=EMT+12
SAVREG=EMT+13
RSTREG=EMT+14
ERROR1=EMT+15
DELAY=EMT+16
TIMERX=EMT+17

104021
177777
100600

SCRLF=EMT+21
ATLAST==1
(p=100000

464

000240

460

4«89

490
491
43%
4

sPRIORITY LEVEL DEFINITIONS

PRTYS=240

000140

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

PRTY3=140

104020

TIMETX=EMT+20

; CHGHS

FLAG FOR (/D TESTS

494
495
496
497
498
499

500
501
502
503
504

000170
000172
000174

000170
177570
177570
000000

SRPTR:
DISPREG:
DISPLAY:

A 15T
=170

177570
177570
OPEN

sSWITCH REG POINTER
;DISPLAY REGISTER
:SOF TWARE DISPLAY REG

-MAIN.
MACYT1 30A(1052)
28-JUN-79
CZDLAH.PI
28-JUN=79 10:49

505
506
507
508
509
2}?

000176

000200
000206

000000
000200
000137
000204
000137
001200

512
513
514
515

516

517

10:53

PAGE

SEQ 0010

SWREG:

.=200
JMP
.=204
JMP
.=1200

001656
006550

OPEN

;SOF TWARE REGISTER

a#STARTZ

;G0 TO START OF

PRCGRAM.

ANFRESTART

sDEVICE ADDRESS LIST
:LSB BITO IS SET TO A 1 BY MAPPER IF DEVICE NOT FOUND
;7O TEST THAT LINE NOT FOUND CLEAR BITO IN THAT DEVICE ADPRESS
sIN THIS TABLE AFTER MAPPING DONE

001200

518 001202
519 001204
520 001206
521
001210
522
001212
523
001214
524
001216
525
001220
526 001222
527
001224
528 001226
529 001230
530 001232
531
001234
532
001236
533 001240
534
001242
535
001244
536 001246
537 001250
538 001252
539 001254
540 001256
5641
001260
542
001262
5643 001264
544
001266
545
001270
546 001272
547 001274
548 001276
ggg
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

551

RXCR1:
RXCR2:
RXCR3:
RXCR4&:
RXCRS5:
RXCR6:
RXCR7:
RXCR10:
RXCR11:
RXCR12:
RXCR13:
RXCR1&:
RXCR15:
RXCR16:
RXCR17:
RXCR20:
RXCR21:
RXCR22:
RXCR23:
RXCR24:
RXCR25:
RXCR26:
RXCR27:
RXCR30:
RXCR31:
RXCR32:
RXCR33:
RXCR34:
RXCR35:
RXCR36:
XORADD:
RXEND:

RXCRO:

175610

;LINE O DEVICE ADDRESS (RXCSR)

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

1 DEVICE ADDRESS (RXCSR)
2 DEVICE ADDRESS (RXCSR)
3 DEVICE ADDRESS (RXCSR)
4 DEVICE ADDRESS (RXCSR)
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 (RXCSR)
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 (RXCSR)
26 DEVICE ADDRESS (RXCSR)
27 DEVICE ADDRESS (RXCSR)
30 DEVICE ADDRESS (RXCSR)
31 DEVICE ADDRESS (RXCSR)
32 DEVICE ADDRESS (RXCSR)
33 DEVICE ADDRESS (RXCSR)
34 DEVICE ADDRESS (RXCSR)
35 DEVICE ADDRESS (RXCSR)
36 DEVICE ADDRESS (RXCSR)
37 SPECIAL ADDRESS FOR XOR

;LINE XX DEVICE ADDRESS (RXCSR)

;CHARACTER LENGTH, PRIORITY, (/D MASK

552
553

sINITIALLY SET FOR DL11=-E, PRIORITY=4,CHARACTER LENGTH=8
'BIT 15 SET TO A 1 = THAT LINE HAS DL11=C OR DL11=D

557

554
555
556

558
559
560

;EX: 140377 = DL11C OR DL11D, PRIORITY = 4, CHARACTER LENGIH ;BITS 12-14 = PRIORITY LEVEL THAT LINE
;BITS 0-7 = CHARACTER MASK EX. 377=8, 177=7, 77=6, 37=5

001302
001304
001306

040377
040377
040377

CHASO
CMAST1:
(MAS2:

R R R R R

040377
040377
040377

R R

;LINE O CHARACTER MASK, PRIORITY, (/D FLAG
sLINE 1 CHARACTER MASK, PRIORITY, €/D FLAG
sLINE 2 CHARACTER MASK, PRIORITY, {/D FLAG

001402
001404
001406

000000
000000
177740

001410
001412
001414
001416
001420
001422
001424
001426

000000
000000
000000
000000
000000
000000
000000
000000

STLMSK:.

RXCSR:
:
RXBUF
TXCSR:
TXBUF
:

RXVIR:
RXLVL:
TXVIR:
TXLVL:
.

N
NV
YO

mm mmmmMmmmmMmMmmMmmm

et bt
Pt Pt Bt et bt Bt )t bt b
s

zz TZETTZTTTTTZTZTZZTZ

S Bt

TR T
TR
TRTR
IRTR
TR
N

CHARACTER MASK,
CHARACTER MASK,
CHARACTER MASK,

PRIORITY,
PRIORITY,

PRIORITY,
PRIORITY,
PRIORITY,

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

(/D
(/D
(/D
(/D
C/D

FLAG
FLAG

FLAG
FLAG
FLAG

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

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

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

(/D
(/D
(/D
(/D
(/D
(/D
C/D
C/D
C/D
(/D
(/D
C/D
(/D
(/D
C/D
(/D

sMASK FOR MAX RANDOM STALL

;RECEIVER UNDER TEST
;RECEIVER BUFFER UNDER TEST
sTRANSMITTER CSR UNDER TEST

sTRANSMITTER BUFFER UNDER TEST

sRECEIVER VECTOR UNDER TEST
sRECEIVER PRIORITY LEVEL uT

:TRANSMITTER VECTOR UNDER TEST
sTRANSMITTER PRIORITY LEVEL Ul

;'..'Q'l TERRERERRACERY

001430
001432
001434
001436

001440
001442
001444
001446
001450
001452
001454
001456

177560
177562
177564
177566
000060
000200

000064
000200
000000
000000
000000
000000

K8
TKB:
TPS:
TPB:
TKVIR:
TKLVL:

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

FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG

FLAG
FLAG
FLAG

FLAG
FLAG

FLAG

FLAG
FLAG

FLAG

sMASK FOR DEVICE uT
sMASK FOR CHAR LENGTH FOR DEVICE

RMASK
:

OOO0CO0OOOOO

001400

040377
040377
040377
040377
040377
040377
040377

;LINE
sLINE
sLINE
sLINE
sLINE
sLINE
sLINE
sLINE
sLINE
sLINE
;LINE
sLINE
sLINE
sLINE

CHARACTER MASK,
CHARACTER MASK,

we NN
WW
NN NN NN = = b e e et e e
-~ oV N=ONOWVSWN—=ONO
VW —O

040377
040377

- B

040
040
040

~r bl
5
0, O,
G
L

CMAS7:

CMASS:
CMASS:
CMASG6:

NNN N NN NN N NN NN NN NN NN N NN SN NN N N N

CMAS3:

L N LN LN N LN N N N N N AN N N N NN
NNNNNNNNNNNNNNNNN

SEQ
C

040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377
040377

PAGE

561
562
563
564
565

10:53

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

o [=lelelelelele]le]
S R
R
o j=l=lelolololele]

w.HAlN.

177560
177562
177564
177566
60
PRTYL
64
PRTY4
OPEN
OPEN
OPEN
OPEN

;LSR (SR

sLSR BUFFER
sLSP CSR
:LSP BUFFER
;LSR INTERRUPT VECTOR
sLSR PRIORITY LEVEL
JLSP INTERRUPT VECTOR
JLSP PRIORITY LEVEL
s CONTAINS CURRENT PROGRAM#
;CURRENT PROGRAM START ADDRESS.
;CONTAINS ADDR OF CURRENT TEST,
s CONTAINS CURRENT TEST &,

617
618
619
620
621
622
623
624
625
626

627
628
629
630
631
632
633
634
635
636
637
638
639
640

641
642
643
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
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
001554
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
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

10:53

PAGE

SEQ 0012
TNNO:
NXTST:

0
OPEN
OPEN

ICTR:
SCOPTR: OPEN
OLDPS:
0
FMAP:
0
PRGTAB: PRGO
PRGY
PRG2
PRG3
PRG4

EMTTAB:

INCRPG
INCRPG
INCRPG

TYP
TYPS
STAL
ERR

DTCHK
OPEN
STLSRvV
STLSPV
EHLT
SRSETT
CHAINN
SAVRG
RSTRG

ERR1

DLY
TMRX
TMTX

$SCRLF

CRBUF: OPEN
CRBUFA: OPEN
CRBUF : OPEN
CTRO:
OPEN
CTIRY:
OPEN
CTR2:
OPEN
CTR3:
OPEN
CTRG:
OPEN

CTRS:
CTRG:

OPEN
OPEN
CTR7:
OPEN
TXCSRT: OPEN
RXCSRT: OPEN
RXBUFT: OPEN
FOUNDV:

FTITLE:
FNONE
:
TOPC:

0
0
0

LINENO: 0
TEMP:
OPEN
TEMP1:
TEMP2:
COUNT:
J
oo

.MAIN.
MACY1 30A(1052)
28-JUN-79
CIDLAH.P11
28-JUN=79 10:49

:CONTAINES EDITED TNUM

;CONTAINS ADDR OF

TEST.

;CONTAINS CURRENT ITERATION COUNT
:CONTAINS CURRENT SCOPE POINTER.
:PS SAVED FROM TRAP T0 EMT ROUTINE
;MAPPING FLAG, 1= MAPPING IN PROGRESS

;PRGO START ADDRESS

;PRG1

START ADDRESS

;PRG4

START

:PRG2 START ADDRESS
:PRG3 START ADDRESS

ADDRESS

: INCORRECT PROGRAM SELECTED

;POINTER
;POINTER
;POINTER
;POINTER

TO
TO
TO
TO

TYPEOUT ROUTINE
CHAINED MESSAGES ROUTINF
RANDOM STALL ROUTINE
ERROR ROUTINE

;POINTER TO ERROR HALT ROUTINE.

MACY11 _30A(1052)
.MAIN.
28-JUN-79
CZDLAH P11
28-JUN-79 10:49

673 001636 000000
674
001640 000000
675
676
001642
000000
677 001644
000000
678 001646 000000
679 001650 000000
680 001652
000000
681
001654 000000
682
683
684
685
686
687
688 001656 012706
689
690 001662
013746
001666 013746
691
692
001672
012737
693 001700 022777
694
001706 001402
695 001710 000407
696
001712
022626
697 001714
012737
698 001722 012737
699 001730 012637
700
001734 012637
701
001740 022737
702
001746 001015
703 001750
004737
704
001754
013701
705
001760 012721
706
001764
013721
707
001770 005777
708
001774 012777
709
710
002002
005037
711
002006 013746
712
002012 012737
713
002020 005737
714
002024
012637
715
002030 012737
716
002036 012737
717 002044
104000
718
002046 002054
719 002050
000137
720
002054
005015
721
002062
051101
722
002070 040440
723
002076 020122
724 002104
051105
725
002110
726
002110 000000
727
728
002112 02262¢

10:53

PAGE

SEQ 0013
FROMPC:
PASCNT:

0
0

:'.""""

T1B:
TEMPST:

OPEN
OPEN

FILL:
MODE:

OPEN
OPEN

COUNT1:

CNT:

CHGHI

I AR

ARR

: TEMPORARY KYBD BUFFER STORAGE
; TEMPORARY WORK LOCATION

OPEN

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

001176

STARTZ:

MOV

#SPBOT, %6

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

000006
000004
001712
177777

000176
000174
000004
000006
000176

015256
001440
015502
001442
177436
000100

CHGH2:
000004
176262

000170
000172
000170

648:
658:
668:

678:

MOV

MOV
CMP
BEQ
BR
POPSP2

MOV

6,-(SP)

:SAVE CURRENT VECTOR

$64S, N4
#-1,3SRPIR

;SET UP LOC. 4 FOR NON-EXIS MEM TRAP
:REFERENCE MARDWARE SWITCH REGISTER

4.-(SP)

658
66%

#SWREG,SRPTR

MOV

(SP)+.aN6

MOV

CMP
BNE

JSR

MOV
181
MOV

002136
047531
020105
020116
042526
100

60$:

000004

(SP)+,aNé

#SWREG,SRPTR
608

PC,CNTLUY

:RESTORE VECTORS

:SAME AS ABOVE

:1S SOFT SWREG SELECTED
*1F NOT, BR OVER SOF TWARE OPER

:SOfT SW REG INPUT ROUTINE

TKVIR, R
#TTINTS,(R1)+

SSET UP TO INSTALL VECTORS
;VECTOR ADDRESS TO LOC 60

aTKB
#100,37KS

:CLEAR DONE FLAG
:SET TTY INTERRUPT ON

TKLVL, (R1)+

CLR

SNFTITLE

181

ar177060

MOV

#174000,3#XORADD

MOV
MOV

MOV

001276
002110

“1F IT = =1,USE SOFT SW REG
:THEN USE HARDWARE SW REG
:CORRECT THE STACK, NO HDWE SW REG
:POINT TO SOFT SW REG

#DISPLAY,DISPREG ;POINT TO SOFT DISP REG

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

001630
000004
092112
177060
000004
174000
177777

;SET UP STACK POINTER

MOV

MOV
MOV

177426

;LOOP COUNT FOR TEST
;ZERO FILL SWITCH
;NUMBER OF DIGITS TO TYPE
;1TERATION COUNT

‘PRIORITY TO LOC 62

G ,-(%6)
#XORA, 304

(26)+, 04

MCV
TYPE

#-1,30X0RFLOG

MESS1:

JMP
LASCII

ANSTART
<15><12>'YOU ARE ON AN XOR TESTERQ"

XORFLG:

.WORD

XORA:

(MP

(X6)+,(%6)+

MESS1

JEVEN

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

729
730
731
732
733
734
735
736

002114
002120
002126
002132

012637
012737
005037
000137

000004
177777

002110
002136

10: 53

759
760
761
762
763
764
765
766
767
768
769
770
77

772
773

774
775
776
777
778
779
780
781
782
783
784

14
SEa 0014

001276

MOV
MOV

CLR
JMP

(X6)+,a04
#-1,3#X0RADD
a#XORFLG
QN¥START

MACR

TSTAA

737
738
739

740
741
742
743
744
745
746
767
748
749
750
751
752
753
754
755
756
757
758

PAGE

AT'E':

AX,B,.C,D,E

C
AT'D®

;TEST NUMBER
;ADDRESS OF NEXT

TEST

B
;ITERATION COUNT
YAX'A
;SCOPE ENTRY POINT
X=X+1
;!Qt""'t'!'t""'t't""t"l";'lt""'t"'tttt'.t"tttt'tt'lt't'cttt'o.c'ttct
.ENDM
TSTA
.MACR
B,AX,Z
TSTAA

AX,B,\X#147 \X42,\Xx+1

MOV
MOV

#SPBOT%6
,
#PFAIL,24
FOUNDV
FMAP

.ENDM

002136
002142
002150
002154
002160
002164
002170
002174

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
004737
005737
001054
104000
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:

CLR
CLR
JSR
JSR
187
BNE

TYPE
MTIT

INC
CLR

000004
MAPA:

000001
177776
000000
MAPNE:

001622
004624

MAPOK:

001200

000004

STARI

FTITLE
FNONE
#MAPNE ,MACHER
#RXCRO,
X4

sOVERLAY TRAP AREA
:TITLE PRINTED AND MAP MADE
:YES, SKIP OVER THIS

;CLEAR DEVICE PRESENT FLAG
:SET UP NO DEVICE PRESENT RETURN
:SET UP DEVICE POINTER
sLAST DEVICE
;YES, EXI17

(X&) ,@#RXEND
MAPEND
#BIT0, (&)
PSuW
8(4)

BR
BiS
POPSP2
BR

MAPOK
#BI1T10,(4)¢

sNOT LIVING

JSR
TEMP1

MAPA
(4)¢, TEMPY

%5,0ACNY

;SAVE DEVICE ADDRESS FOR TYPING

MOV

MDEVAD
6
TYPE
MDEVAD

001632

FTITLE

sCLEAR DEVICE UT PARAMETERS

cMp
BEQ
BIC
CLR
187
NOP

000001

006042
001632

MOV
MOV

%7.CLRCD
X7 ,0VRLAY

:SET BOTTOM OF SP STACK.

INC
BR

MAPEND: MOV
181

BEQ
START1: Mov

f NONE
MAPA
FERTP ,MACHER
F NONE
MAPERR

#RXCRO,
X1

sCLEAR ODD ADDRESS

sTEST DEVICE

:SET HAVE DEVICE
+RESET TRAPS
+ANY DEVICES PRESENT
:NO, ERROR

833
834
835
836
837
838
839
840

002576
002602
002606
002610
002614
002622
002624
002630

042700
123700

001002
000177
022737
001344
004737
000721

STARTZ2:

001616

006226
START3:

00130C

MAPERR:

000042
005436
001630
002136
000001

177776
001456

001640

CLR
CLR

BIC

MOV
ASL
JMP

001462
000004

000006

GETRDY: MOV

GTRDYX: MOV
MOV

CLR

MOV

177776

175422

001402
001456
176664
175372
177600
001456

005234

JMP

MOV

JSR

001474

176640
177777

TYPE
MNONE
187
BEQ
JMP
CLR
HALT

MOV

177770
001450

003032
001000

BNE

TYPE
PGMSG

003652

001452
006042
000040
001472
001176

START4:

BIT

BNE
Mov
SUB
ASR
MOV
JSR
BR
181
CMP

001462

SRESET
CLR
GTRDYA: JSR
BIT
BNE
18T
BPL
187
BPL
GTRDA1: JMP
BR
GTRDYC: MOV
BIC
(MPB
BNE
JMP
GTRDYD: (MP
BNE
JSR
BR

e
#BITO0,(1)

STARTS
%1,LINENO

;1S DEVICE LIVING

:NC,

CHECK

FOR END

;YES,

LOAD

AND EXIT

RXEND

JEND OF TABLE
:NO, LOOP

lRlCRg.LlNENO
N

;CALCULATE

LINE

NUMBER UNDER

TEST

001616
001200
001616

SEQ 0015

000001

002332
002336
002340
002344
789
002352
790
002356
791
002360
792
002364
793
002366
794
002370
795
002374
796
002376
797
002400
798
002402
799
002406
800 002410
801
002414
802
002420
803
002422
804
002426
805
002434
806 002440
807 002444
808 002446
809 002450
810 002454
811
002456
812
002462
813
002466
002470
814
000170
815
816
002474
013737
817 002502 012737
818
002510 012737
819 002516 005037
820 002522
012706
821
002526
104011
822
002530 005037
823 002534 004737
824 002540 032777
825 002546 001011
826 002550 005737
100003
827 002554
828 002556 005737
829 002562
100364
830 002564 000177
831
002570 000466
832 002572 017700

PAGE

Ww+DODTMs

785
786
787
788

10:53

NI~~~
]
et ] Y et et

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

ORMAD
T4

ane?

.46
PRGXTL
FTITLE

;MONITOR LOAD
;NO, CONTINUE
SYES,

EXIT

:CALL

FOR PROGRAM NUMBER.

;READ

IN PROGRAM NUMBER.

START

#1,PASCNT
PSW
RT%NO

PC,RDOCT

(SP)+.,%0
#177770,%0
X0,PRGNUM
%0
aPRGTAB(0)
KSTART ,NXTST
FERTP ,MACHER
P40, MACHER+2
FMAP
#SPBOT%6
,

PSW

; INPUT DATA T0 RO
sLIMIT (SR) 10 BITS 3-0
;SAVE PROGRAM #

;G0 TO SELECTED PROGRAM.
sADDR OF 1ST ROUTINE
sRESET MACHER TRAP.

TO NXTST

sSET BOTTOM OF STACK.
< ISSUE RESET.

%7,F0RWD

+ROLL FORWARD 70 "NEXT'" ROUTINE.
sCHECK SELECT ROUTINE SwlTCw

UMASK
GTRDA1

+C/D DEVICE

#B119,aSRPIR
GTRDYC

RTNNO

GTRDYA
SCURTST

CHNB
aSRPIR,
X0
#177600,%0
RTNNO,
%0
GTRDYD
aCURTST

;BRANCH IF

SELECT ROUTINE SWITCwW IS SET.

+NO, CONTINUE

sTHIS A C/D TEST
;NO, DO NEXT TEST
;GO RUN CURRENT ROUTINE.
:NO GO. MANUAL RTN BYPASSED.

: (SR) 10 RO

¢MASK UNDESIRED BITS
+COMPARE RTNNO T0 (RO)

+BRANCH 1* ROUTINE NOTU FOUND YET,

GIRDYA

:G0 RUN ROUTINE.
+NO. CHECK FOR LAST ROUTINE.
+BRANCH IF NOT LAST ROUTINE.

GETRDY

sSTART OVER,

#=1,NXTST

%7, INCRIN

sYES. INCORRECT ROUTINE SELECTED,

MAIN.
MACY11 30A(1052!}
28-JUN-79
CZDLAH.P1T
28-JUN-79 10:49

841
842
843
844
845
846
847
848
849

850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896

002632
002632
004737
002636
032777
002644
001403
002646 013716
002652
000002
002654 005737
002660
100011
002662 013746
002666 012737
002674
005737
002700 012637
002704
032777
002712 001003
002714
005337
002720 001352
002722
022626
002724
032777
002732
001405
013700
002734
002740
042700
002744
000000
002746
032777
002754
001247
002756 022737
002764
001246
002766 004737
002772
000640
002774
002776
003002

022626
012637
000721

015204
040000

10:53

PAGE

(HGH3:
17532¢

CHAINN:

001466

CHNAB:

002110

CHNA:

000004
002774
177060
000004
004000

000004
175256

1%:

001464

002000

175236

CHNAA:

001456
001000
127777

JSR
BIT
BEQ

MOV
RTI
TST

BPL
MOV
MOV
181
MOV
BIT
8NE
DEC
BNE
POPSP2

BIT
BEQ

MOV

100000

BIC

175214

CHNB:

001462

005256
XOR:

000004

HALT
BIT

BNE
cMpP
BNE
JSR
BR
CMp
MOV

PC,CKSWR
#BIT14,3SRPTIR
CHNA

SCOPTR,a%6

d¥XORFLG
1%

;SEE IF A *G HAS BEEN GIVEN
;(HECK FOR SCOPE OPTION.
;BRANCH 1F SCOPE Sw NOT SET.
;SET UP TO RETURN TO RCUTINE.

;RETURN TO ROUTINE.

aNs,-(%6)

#XOR,aN&

an177060

;TEST FOR XOR

#BIT11,3SRPTR
CHNAA
ICTR
CHNAB

;TEST INHIBIT ITERATION SWiT(H
;BRANCH IF INHIBIT ITERATION 5w SET.
;DECREMENT ITERATION COUNT.
;BRANCH IF COUNT NOT O.
;POP STACK TWICE

(R6)+, a0

#BIT10,aSRPTR
CHNB
RTNNO,2%0

#BIT15,%0

#BIT9,aSRPIR

GETRDY

#=1_NXTST

GIRDYX

X7 ,PRGEND

GETRDY

sCHECK SELECT ROUTINE SWITCH
;BRANCH IF

SELECT RIN Sw SET

sLAST TEST?
;BRANCH IF NOT LAST TEST.

;PROGRAM END.

(26)+,(%6)¢
(X6)+ a0
CHNAB

(INIT FOR C/D - WITHOUT JUMPER RESET STARTS ASSEMBLING CHARACTER SETTING
003004
003010
003012
003020
003022
003024
003030
003032
003036
003042
003046
003052
003056
003062

003064
003066
003072

005737

001402

052777

000004

100007

104016

002734
005777
000207

176362

001462
001456
001462
001464
001466

001454

000002
000000

;SET MAINT, DELAY, CLEAR RX DONE

CDINIT:
176374

CDINX:

FORWD:

TST
BPL
BIS
DELAY
1500.

UMASK
CDINX
#B1T2,QTXCSR

:C-D DEVICE
:NO, EXIT
sSET MAINT BIT

sWALT

1.5 SEC

1SV
RIS

+CLEAR RX DONE

MOV
MOV
MOV
MOV
MOV
MoV
RTS

;ADDR OF NEXT ROUTINE T0 RS.
sGET NEXT ROUTINE NUMBER.
sGET ADDR OF NEXT "NEXT'' ROUTINE.
;GET ITERATION COUNT.
:GET SCOPE LOOP ENTRY POINTER.
+ADDR OF NOW CURRENT TEST 10 CURTST.
;EXIT FORWD SUBROUTINE.

EMTINT: MOV

SUB

MOV

:GET SAVED PC,
;DECREMENT PC BY 2.

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

897
898
899

900
901
902
903
904
905
906
907
908
909
910
9N
912
913
914
915
916
917
918
919
920
921
922
923

924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941

942
943

944
945
946
947
948
949
950
951
952

003076
003100
003104
003110
003114

10:53

PAGE

2
SEQ

EMTA:

177001

001514
000000

ASL
BiC

ADD
MOV

JMP

axé

;EMT ARG X 2.

#177001,3%6

;REMOVE

NEMTTAB,a%6

;FORM

a(6),ax6
al6)+

7 MSB.

EMT

RTN ADDR.

;60 TO EMT

ROUTINE.

*SAVE REGS 0 10 & SUBROUTINE.
003116
003122
003126
003130
003132
003134
003136
003140
003144
003150
003152
003154

003152
003154

013746
000002
000000
000000

SAVRG:

003154
003152
SVRPC:
SVRPSW:

MOv
MOV
MOV
MOv
MOv
MOV
MOV
MOV
Mov
RTI
OPEN
OPEN

(6)+,SVRPC
(6)+,SVRPSW
%6,-(6)

;SAVE

SVRPSW,=(6)
SVRP(C,=(6)

;RESTORE PC AND PSW.

PC AND PSW.

;SAVE REGS 0 - 4

%3.-(6)
%2,-(6)
x1,-(6)
%0,-(6)

;IN STACK.

JEXIT,

‘RESTORE REGS 0 T0 & SUBROUTINE.
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
001422

003252
003256
003264
003270
003274
003300
003304

004737
017637
062716
013701
012721

013721

006424
000000
000002
001424
000000

000002

001426

003306

012700

052525

003212
003214

RSTRG:

003214
003212
RSTP(:
RSTPSW:

003242

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RT1
OPEN
OPEN

(6)+,%0
(6)+,%1
(6)¢,%2
(6)+,23
(6)+, %6
RSTPSW,=-(6)
RSTPC,-(6)

sSAVE

AND PSw.

RESTORE REGS 0 - &
:FROM STACK.

sRESTORE PC AND PSW.

SEXIT

;ROUTINE TO SET RECEIVER INTERRUPY VECTOR AND PRIORITY
STLSRv: JSR
X7,TSTVEC
MOV

ADD

STPRA:

MOv
MOV
MO.

RT1

;ROUTINE

003276

(6)¢ ,RSTPC
(6)+ ,RSTPSW

STLSPV:

STPPA:

8(6) ,STPRA+2
#2,a%6
RAVIR,X1
#OPEN, (1)
RxLve,
(1 )+
v

T0 SET TRANSMITIER

JSR

MOV
ADD
MoV

MOV
MOV
RYI

27,7STVEC

:SET VECTOR ADDRESS
sSET PRIORITY
SEXIT
INTERRUPT

VECTOR AND PRIORITY,

83(6),STPPA+?

sMOVE VECTOR ADDR TQ STPPAs?

TXVIR,
%1
#OPEN, (1)
TXLVL, (1)

sSET VECTOR ADDRESS.

#2,9%

;SET UP EX]T

+SET PRIORITY
JEXLT,

*ROUVINE TO 1SSUE RESET,

SRSETT: MOV

sMOVE VECTOR ADDR TO STPRAs?
sSET UP EXIT

#52525,%0

;DATA 10 RO,

JMAIN.

MACY11

CZOLAKH.PIN
953
954
955

003312
003314
003320

30A(1052)

005100
010037
000005

32?

003322

000002

958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
3;2

003324
003330
003332
003334
003340
003344
003346
003350
003354
003356
003360
003364
003370
003372
003374

013700
006100
006100
063700
010037
006100
006100
063700
006100
006100
010037
013700
000207
001233
007622

003376
003402
0034C6

005037
005037
005037

975
976
977
978
979
980
981
982
983
gg;

003412
003416
003422

005037
005037
005037

003426
003432
003436

005037
005037
000207

995
996
997
998
999
1000
1001
1002
1003
10064
1005

003440
003442
003446
003450
003454
003462
003464
003466
003474
003476
003504
003506

011600
062716
011000
112037
122737
001001
000002
122737
001416
122737
001417
004737

003522
003526
003530
003532
003540

105777
100375
000207
112737
004737

1007
1008

003552
003556

004737
000734

986
987
988
989
990
991
992
993
994

1006

003512
003514

903544

28-JUN=79

28-JUN-79 10:49

000756
113777

112737

10:53

PAGE

(oM
MOV
RESET

003310

SEQ 0018
%0
20,SRSETT4?

RTI

003374
003372
003374
003374
003372

001412
001420
001424
001422
001426

CLR
CLR
CLR

CLR
CLR
RIS

000002

003560
000100

003560

000045

003560

000043

003560

003514
175706

000015
003514
000012

003514

ROUTINE EX1TS WITH NUMBER

SEXIT. NUMBER

IN REGISTER 0.

IN RO

sCLRCD = CLEAR CURRENT DEVICE PARAME TERS
CLRCD:
(LR
TXBUF
CLR
TXCSR
(LR
RXCSR

001416
001414
001410

003560

;DISPLAYED., EXIT.

;RANDOM NUMBER GENERATOR.
RNGEN:
MOV
RP1,%0
ROL
%0
ROL
%0
ADD
RP2,%0
MOV
%X0,RP1
ROL
%0
ROL
%0
ADD
RP2,%0
ROL
20
ROL
%0
MOV
%0,RP?2
MOV
RP1,%0
RTS
134
RP1:
1233
RP2:
7622

003372

sCOMPLEMENT (RO).
:(RO) TO SRSETT+2,
;1SSUE RESET., (RO)

175714

RXBUF
RXVIR
TXVIR

RXLVL
TXLVL
X7

;SUBROUTINE TO OUTPUT ASCI! MESSAGE ON TELETYPE PRINTER.
TYP:
MOV
a%6,%0
sGET ADDRESS THAT CONTAINS MESSAGE ADDRESS.
ADD
#2.,9%6
JSET UP EXIT.
MOV
@%0,%0
sADDRESS OF MESSAGE 70 RO.
TYPA:
MOVB
(0)+,1YPDAY
;GET CHARACTER
CMPB
#100, TYPDAY
sCHECK FOR''3''CHARACTER
BNE
TYPL
sBRANCH IF NOT'Q'.
RT1
sTERMINATOR CHAR. DONE. ExXIT.
TYPC:
CMPB
8465, TYPDAY
sCHECK FOR''R'.
BEQ
TYPF
;BRANCH 1F°7X"
:
CMPB
#4353, 1YPDAT
:NOV“!".(HE(Knroa"l‘.
BEQ
1VPG
sBRANCH IF ''»
JSR
X7.1YPD
sTYPE CHAR IN TYPDAY

TYPD:

003560

TYPF:

003560

TYPG:

BR
MOV

TYPA
TYPDAT,a1PB

1S18
BPL
R1S
MOVB
JSR

alPs
)
%7
#15,TYPDAT
27,TYPD

JSR
BR

%7,1YPD
TYPA

MOVB

#12,TYPDAY

;OUTPUT CHARACTER T0 PRINTER
sWALT FCR DONE FLAG.

JEXIY
sMOVE CARRIAGE RETURN CCDE
;GO TYPE CMAR.
sMOVE

;60 TYPE

CODE

(MAR,

TQ TYyPDAY,

'
T0 TyPDAY

1056
1057

1058
1059
1060

1061
1062
1063
1064

PAGE

TVPDA':

003562
003564
003570
003574
003602
003604
003606
003610
003612

011600

T¥PS:

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

003752

003760
003762
003764

003766
003770
003774

003776
004000

011037
022737
001001
000002

003610

104000

WA
—

——

221
010321
062702
020127
001401
000770
000207
011646
010046
010146
005001
005037
105777
100375
117746

042716
105777

MOV
MOV
MOV
OVRLYA: MOV
MOV
ADD
CMP

BEQ
BR
OVRLYB: RTS

#=-1,TYPSB
TYPSA

ASCI] MESSAGES ON TELETYPE PRINTER

;GET ADDRESS THAT CONTAINS MESSAGE
;UPDATE TO NEXT MESSAGE ADDRESS

;ADDRESS OF

MESSAGE

TO TYPSB

:CHECK FOR TERMINATOR

+BRANCH IF NOT TERMINATOR.
;TERMINATOR, EXIT

;CALL ON TYP SUB TO TYPE MESSAGE

TYPS
#300,%1
#302,%2
#6,%3
%2,(1)+
23.(1)¢

e ,%2
%1.#21000
OVRLYB
OVRLYA
7

;ADDRESS OF

MESSAGE

GOES HERE

;GO PROCESS NEXT MESSAGE

;GET DL11-E VECTOR BASE ADDRESS
;LOAD VECTOR WiTH 10T ERROR TRAP

;ALL

VECTORS BEEN LOADED

SEXY

; SUBROUTINE TO READ OCTAL DATA FROM THE TELETYPE PRINTER

RDOCT:

INDAT:

001626

175536

RDDAT:

175532
177600
175524

000177

122716

000060

104000

OVRLAY:

000004
001000

122716

003020
122716
002415
005237
022737
003407
006301
006301
006301
162716
062601
000733

ax6,%0
e, 316
azo.‘vpsa

sOVERLAY VECTOR AREA

000300
000302
000004

000015

001423

RTI
TYPE
OPEN

100375
111677
122716

001432

MOV
ADD
MOV

Cmp
BNE

TYPSA:
TYPSB:

000000
000763
70
70
70

OPEN

.aUBROUTlNE TO OUTPUT A SERIES OF

062716

ornrorn

003614
003620
003624
003630
003632
003634
003640
003644
003646
003650

SEQ 0019

000000

oooo

1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055

10:53

003560

= OV~
NS W=D 0

NN e

ettt
[
———

jel=lele] elelololelolale] o
e
e e et D
(=4

MACY11 30A(1052)
LMAIN,
28-JUN-79
CZDLAH K28
28-JUN-79 10:49

ECDAT:

175520

MoV
MOV
(LR
(LR

1STB

BPL
MOVB
BIC
1S1B

ASL

SUB

RREAD:

ADD
BR

TYPE

ROOM FOR DATA WORD

:SAVE R!

a1ksS

alpPs

JTEST

RDDAT
91kB,=(5P)
#177600,(SP)

RREAD
X1

ASL

sMAKE

sSAVE RO

sCLEAR DATA WORD
sSET NO. OF DIGITS = O
STEST TTy READ STATULS
SWALT
;PUSH DIGIT ON Sll(l

BLE
ASL

cmMp

000060

20,=-(SP)
%1,-(SP)
%1
CGUNY

(MPB
BLY
INC

BEQ
CMPB
BGT

001626

(SP),=(5P)

ECDAY
(SP) ,a1PB
15,05
RETRN
#177,(5P)
RREAD
#60, (5P)
RREAD
#67,(5P)
RREAD
COUNT

BPL
MOVB
CMPB
BEQ

CMPB

000067

001626
000007

MOV

906

ulll

T1vy PRINT

SIAYUS

:E(HG CHARACTER

;1S 1T A TERMINATQOR?

.BR
;1S
;BR
218
:BR

1F
17
IF
1
IF

YES
A RuUBOUT?
YES
AN OCTAL DIGIT?
NO

JTEST AGAIN

:BR 1F NO
;s INC NO. OF DIGITS

#7,COUNT

sMORE

13!

;0F

#60, (SP)

sCONVERY T0O BINARY
+ADD DIGIT 10 DA'A WORD
JGET NEXT DIGHT
STELL USER ABOUT lilEGAL

(SP)+,
%Y
RDDAT

THAN SIX DIGITISY

BR 1F YES

;:+¢G

sCLEAR LOWEST THREE BITS
DATA WORD

(wARXCTER

ADDRESS

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

1065

1066

1067
1068
1069
1070
1071

}8;;
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087

}833
1090
1091

1092
1093
1094
1095
1096
1097

}ggg
1100
1101
1102
1103
1106
1105
1106
1}8;

1109
1110
1111
1112
1113
11164
1115

1116
1117
1118
1119

1120

004002

004004

004006
004010
004014
004016
004020

020142

DIERR

000724
010166
005726
012601
012600

8R
MOV
181
MOV
MOV

000207

004024
004030
00403&
004040
004042
004046
004052
004054
004056
004060
004062

011637
062716
017746
001411
005037
012746
005316
001376
005726
005316
001371

004070

PAGE

005726

004022

004064
004066

10:53

157

000010

RETRN:

RTS

(SP)+

JGET RID OF

;RETURN

INDAT
21,10(SP)
(SP)+
(SP)+ .31
(SP)+,%0

JLLEGAL CHARACTER

;START SUBROUTINE AGAIN
;STORE DATA WORD ON STACK
sINC STACK POINTER
;RESTORE R1
;RESTORE RO

s SUBROUTINE TO DELAY A SPECIFIED NUMBER OF MILLISECONDS
DLY:
MOV
a%6,DLONT
;GET DELAY COUNT ADDRESS.
ADD
¥2,3%6
;SET UP EXIT ADDRESS
MOV
ODLINT,=(6)
JDELAY COUNT T0 STACK
BEQ
DLYC
CLR
PSW
JSET PRIORITY C
LYA:
MOV
#226,-16)
;1 MSEC COUNT TO STACK
DLYB:
DEC
axé
;DECREMENT 1 MSEC COUNT
BNE
DLYB
;BRANCH IF NOT 0.
POPSP
;ZERO. UNCOVER MSECS. COUNT.
DEC
axeé
sDECREMENTY 7
BNE
DLYA
;BR IF NOT DONE DELAYING

004070
000002
000030
177776
000226

005726
000002

DLYC:

POPSP
RTI

; DONE
EXLIT.

000000

DLCNT:

004072
004076
004102
004104
004110
004112

004112

004114

004737
043700
001404
010037
104016
000000
000002

sSUBROUTINE TO STALL A RANDOM NUMBER OF MILLISECONDS. MAXIMUM STALL
sDETERMINED BY CONTENTS OF LOC STLMSK.
STAL:
JSR
X7 .RNGEN
;G0 GET RANDOM NUMBER.
BiC
STLMSK, %0
;8 IN RO. APPLY STALL MASK.
BEQ
STALB
;BRANCH jF RESULTY IS 0.
MOV
20,STALA
DELAY
;DELAY
STALA:
OPEN
LDELAY COUNT
STALB:
RTIl
sDONE. EXI]T.

004116

004737

003324

004122
004126
004130
004134
004136
004140

043700
001773
010037
000207
000000
000000

003324
001406

004152

0064160
004164
004170
004172
004176
006200
0064204

004206

013737
000403
013737
005037
005237
001405

004136

004140
RCMSK:
RNCNT:

105777
100372
062716
000002
000000

001410

004210

001414

004210

004206
004206

000012

sCONTAINS MILLISECONDS (OUNT ADDRESS.

;SUBROUTINE TO GENERATE RANDOM (HARACTER COUNT
GRCNT:
JSR
%7 .RNGEN
;GET RANDOM NUMBER

004142
004150

OPEN

BIC
BEQ
MOV
R1S
OPEN
OPEN

RCMSK %0
GRCNT
X0,RNCNT
x7

JAPPLY MASK
sTRY AGAIN IF RESULT ©
:COUNT 1O RNCNT
SEXLT.
sRANDOM (HARACTER MASK.
;RANDOM CHARACTER COUNT.

;SUBROUTINE TO SKIP CN FLAG AND TIME OuY IF SKIP FAILS
TMRX:
MOV
RXCSR,S107
sSET UP RXCSR ADDRESS
BR
TIME
1TMTX:
MOV
TXCSR,S107Y
SET UP TXCSR ADDRESS
TIMET:
CLR
TIMER
TIME2:
INC
TIMER
BEQ
TIMEX
sBRANCH 1F (OUNTER OVERFLOW

1518
BPL

000002

TIMEX:

TIMER:

ADD
RTI]
O

.aslion
TIME?

"2 .,ak%

sSEY UP EXIT

RETURN

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

1121

1122

004210

10:53

000000

S10T:

1134

:ROUTINE
004212
004212
004216
004220
004226
004232
004234
004242

105777
100375
112777
105777
100375
112777
000002

032777
001003
005037
000205
004737
004737
104000
017546
004737
012637
042737
013737
006337
013701
016101
032701
001403
104000
020077
000744
004737
005037
052737
042777
052777
000240

1164

005737

004406

1165

004414

1166

1167

1168
1169
1170
1171
1172
11735

}:;g

1176

004410

004416

004426

004432
004436
004440
004442
004444
004446

004450

000015
175202

17521¢C

000012

175174

1%:

SRR

TO PRINT
T1S1B
BPL
MOVB
1STB
BPL
MOVB
RTI

A CARRIAGE

alP$
$SCRLF
#15,a1PB
aTPs
1%
#12.91PB

000240
001753

042777

012737

004537
001616
017665
000002
104000
017574

000205

010000

173716

001614
003614
003376

003652
001620

1777640
001620
001620
001620
001200
000001

001620
001616

006226

177776
000001
000100
000100

001472
175016
175010

000100

000340
004624

;SUBROUTINE TO SELECT LINE
LINSEL: BIT
#BIT12,3SRPTR
BNE
LINSLX
CLR
FOUNDV
RTS
5
LINSLX: JSR
%7,0VRLAY
JSR
%7,CLRCD
TYPE
LDL INE
JSR
PC,RDOCT
MOV
(SP)+ TEWP
BIC
#177740,TEMP
MOV
TEMP,LINENO
ASL
TEMP
MOV
TEMP,31
MoV
RXCRO(1),31
BIT
#B8110,%1
BEQ
LINB
LINA:
TYPE
MNOL IN
BR
LINSLX
LINB:
JSR
27 ,FORMAD
(LR
PSW
BIS
#BITO,FMAP
BIC
#B1T6,.3TXCSR
BIS
#BIT6,ITXCSR
NOP

NOP

001420

151

174770

177776

;BRANCH IF

LINA

MOV

lPRYV?.PSU

RIS

BIC

sSAVE

FOR TYPING

;GET RXCSR DEVICE ADDRESS
;1S DEVICE THERE
SYES
:NO, REPORT

sSET MAPPING FLAG

¥BIT6,ATXCSR

JSR
LINENO
SEL INE
2
T1YPE
AL INE

9 ,0ACNY

TO INITIALIZE

FEED

SET

RXVIR

BEQ

;SUBROUTINE

RETURN AND A LiNE

;1S PRINTER READY
;TRY AGAIN IS SO
JPRINT <(R>
;1S PRINTER BUSY
;TRY AGAIN IF SO
;PRINT <LF>
;RETURN TO INTEKRRUPT

JrTRERERRRRRIRRERIRRNRNTY

1135
1136
1137
004244
1138
004252
1139
004254
1140
004260
1141
004262
1162
004266
1143
004272
1146
004274
1145
004276
1146
004302
1147
004306
1148
004314
1149
004322
1150
004326
1151
004332
1152
004336
1153 - 004342
1154
004344
1155
004346
1156
004350
1157
004352
1158
004356
1159
004362
1160
004370
1161
004376
1162
004404

1163

CHGH?:
$SCRLF:

175216

1123
}}%g
1126
1127
1128
1129
1130
1131
1132
1133

PAGE

sTYPE

LINE

BINARY COUNT PATTERNS

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

ot cd

N ol e

OVRNOWV
NN —

—

——

30 0 O O "0 O \O 0O O 0o 0o 0o

—_—
=

=88 BN LFAN 2SS ERXERRRI
=S 3

RN
NN

004452
004460
004464
004466
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
004554
004556
004564
004570
004574
004576
004602
004610
004616
004622

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

004624
004626
004632
004634
004636
004640
004644
004650
004654
004656
004664
004670
004674
004700
004702
004704
004706
004710

104013

004712
004714

013537
012501

012502
060201
013703
042703
062703
110341

042737
006037
006037
006037
005302
001356
104014

000205
000000

177777

004712

10:53

004474

PAGE

SEQ 0022
INBIN:

MOV

JSR

RIND
RIND*1

11,

RIND:
P10:

PT1:

PIND:

PTOP:
PT1IP:

004476
004500
006474
004500
177400

004500
004500
004504
004506
004502

004506
177400
004506
004506

004500

004500
004476
004506

RTS

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN

#=1,RIND

X5,BMOVE

;SET

ALL

;10 MINUS

VARIABLES

JEXLT

*SPECIAL BINARY COUNT PASTERN SUBROUTINE. EXITS WITH BIN (HAR IN RO

GTBIN:

MOV
COM
COM
BNE
INC

BIC

MOV
MOV
RIS
GTBINP: MOV

(oM
COMm
BNE
INC
Blv

004506
004504

MOV
MOV
R1S

g;?,Pll

;PREVIOUS BIN (HAR

10 PT1

RIND

P11
#177400,P71
PT1,PT0

PT11,%0

X7
:}?;.PIIP

;MASK 10 8 BITS
sSAVE BIN CHAR IN P10

:BIN (HAR 10 RO.

EX1Y.,
;PREVIOUS BIN CHAR 10 PT1P

PIND

PT1P
#177400,PT1P
PIIP,PTOP
PT1P. X1
X7

sMASK 10 8 BITS.
;SAVE BIN CHAR

IN PTOP.

;BIN CHAR 10 R1I.
JEXIY,

T0CTAL 10 ASCII CONVERT ROUTINE

DACNV:

004710

SAVREG

MOV
MOV

MOV

ADD
:
MOV
OACNVA

004710
177770
000060

000007
004710
004710
004710

BIC

ADD
MOVB

004710

B1C

ROR
ROR
ROR

DEC
BNE

RSTREG
RTS
OACNVX: OPEN

a(5)+,0ACNVX
(5)+,%1
(5)+ %2

12,21
OACNVX,
X3

#177770,%3

#60,%3

sGEYT OCTAL VALUE.

sGET DESTINATION ADDR.
sGET CONVERT COUNT.

;DEVELOP ADDR TO STORE 1ST C(MAR.

s 1SOLATE LEAST SIGNIFICANT DIGIT.

sCONVERT DIGIT TO ASCi!.

23.-(1)

sSTORE ASCI] CHARACTER.

;DONE ALL DIGITS?

#7,0ACNVX
OACNVX
OACNVX
OACNVX
OACNVA

sBRANCH IF

NOT DONE.

sDONE. EXIT.

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

BMOVE:

MoV

(5)¢,%1

(GET'FROM'ADDRE
S5

10:53

004716
004720
004722

PAGE 23
SEQ 00253

BMOVA:

004724

004726
004730
004732
NNNNNN—-=OW

NN NO WO
O —

004734
004736
004742
004744
004750
004754
004760
004766
004772
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
605150
005154
005160
005164

MOV
MOV
MOVB

DEC

BNE
RSTREG
RTS
j=i=l=l-T=l=T-T=
Ot edtoedetotes
s O
S oo
WD S
NNNNWVNVBWNO

—-=0OO oo~ '

2k P

o b
» W

Det
L a— e

oo ST STNTINT
ST ~no

XV [P N NN Y W~

-MAIN.
MACY11 30A(1052)
28=JUN-T79
CZDLAH.PI
28-JUN-79 10:49

005337
001371
163700

010037
004537
000000
000000
000000

103403

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

BMOVA
x5

;GET''TO''ADDRESS

;GET COUNT
;MOVE BYTE

;DECREMENT COUNT
;BRANCH IF NOT DONE.

;RESTORE REGS.

;DONE EXI7

‘BINARY TO DECIMAL ASCII COMVERT SUBROUTINE.

BDCNV:

005112
005022
005024
005100
000005
005076
005032
005072

005072

005024
005020
004712

BDCNVA:

MOV
MOV
MOV

JSR
DEC
BNE
SUB
MOV

6SR

BDCNVB:
BDCNVC: 0
BDCNVD: 0
RSTREG
R1S
SUBTEN: CLR
SUBTNA: SUB

005074
005C76

B(CS

005074

005076
000060
005074

SAVREG
MOV
MOV
MOV

MOV

104014

000205
005037
163701

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

INC
BR

005074

SUBTNB: ADD
ADD
MOVB
R1S
CNVCTR: OPEN
DIGIT:
OPEN
TENPWR: OPEN
ADTENP: 10000.
1000.

#DECVAL,%0
a(5)+,%1
(5)+,BDCNVC
(5)+,BDCNVD
#ADTEN%2
P
#5,CNVCTR
(2)+,TENPWR

X7,SUBTEN
CNVCTR
BDCNVA

BDCNVD,
%0
%0,BDCNVB

;:SET UP ADDR 10 STORE DECIMAL ASCII IN RO
;BINARY VALUE T0 R1.
;GET DEST ADDR
:GET CHAR COUNT
;ADDR OF TEN POWER STRING TO R2.
;SET UP FOR 5 POWER CONVERSIONS.
:MOVE POWER OF TEN VALUE TO TENPWR.

;PERFORM CONVERSION

;DONE 5 CONVERSIONS?

sBRANCH IF NOT YET 5.

%5.,BMOVE

x5
DIGIT

SUBTNB

sYES, EX]TY.
sCLEAR DIGIT
sSUBTRACT TEN POWER FROM BINARY VALUE.
sBRANCH IF UNSUCCESSFUL SUBTRAC:ION.

TENPUWR
X1

sRESTORE SUBTRACTED VALUE.

TENPUWR,
%1

DIGIT
SUBTNA

#60,D1G17
DIGIT, (D)
27

: CONVERT (DIGIT) TO ASCII
::QYE ASCII CHAR TO DECVAL FIELD.

100.
‘o.

040
040
000002
000004
000144
1746246

004556
001562
005530
174226

040
040
176262
174260
001566

DECVAL:

.BYTE

DATTIST: BIC

BIS

DATAA:

MOV

1S18B

BPL

JSR

040,060,040,040,040,040
#B1T1,3RXCSR
#B172,8TXCSR
#100.,CTRO

aTXCSR
=4

7,G1BINP

;CLEAR DATA TERM, READY
+SET MAINTENANCE BI1
o

sGEY CHARACTER COUNT
;WALIT FOR
sREADY FLAG

MOVB

%1,CRBUFA

:GET CHARACTER
+MOVE CHARACTER

MOVB

%1,a1XBUF

s TRANSMIT

JSR

7,MASK]T

+MASK OFF NON TRANSMITTED BIT'S
CHARACTER

MAIN.
MACY11 30A(1052)
28-JUN-79
CZDLAH.P1T
28-JUN-79 10:49

1289
1290
1291
1292

1293
1294

1295
1296

1297
1298
1299
1300

NS NN = O Do NN —-OO

b ——d
e
et

e —
D il e
s

Wn
0 BN

—h —h D ks

w NN N

—

4 L

) i

NN NN
R R0 R0 R0 R0 0 R0 RO R o s s s o NN
o

1301
1302
1303

R ot T

N L AN N N NN

£H
\N\N\N&WU‘
e
SPAN—=OOVN

332

TR
el
NN
S

005170
005174
005176
005204
005206
005212
005214
005216

005220
005222
005224
005230
005232
005234
005236
005240
005242
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

005376
005404

005410
005414
005420

005422
005426

10: 53

PAGE 24

SEQ 0024

1764214
1764210

001560

001566

174200

(HUHS8:
INCRTN:

INCRPG:

002136
001614
020000

172700

PRGEND
:

004734

017332
000006
004537
001420
017353
000004
104000
017261
032777
001403
005237
000425

013737
006337
062737
013701
016101
022701
001023
005237
005037

MOVB
DATCHK

ARXBUF
, CRBUF

004624

CTRO
DATAA
(6)+

TYPE

ASETSR

1STB
BPL

RTS
TYPE
AINCRT
HALT
RS
TYPE
AINCPG
HALT

JMP
CLR
BIT
BNE
JSR

PASCNT
APCNT
6

JSR
L INENO

017316

000002
004537
001410

anzcsa

DEC
BNE
18T
SCOPE

SETSR:

005037
032777
001026
004537
001640
017276
000006
004537
001616

1518

BPL

aTkKsS

(CHGHS

;WAIT FOR
;DONE FLAG
;GET RECEIVED CHARACTER
;CHK DATA
;DECREMENT CHARACTER COUNT
;POP STA(K

;TYPE

SELECT

;SEE

:WAIT

CEXIT.

:TYPE

OPTION MESSAGE
.

ANY _INPUT

FOR

INPUT

INCORRECT

ROUTINE

SELECTED.

s COMMON HALT.

JEXIT,

START

FOUNDYV

#BIT13,aSRPIR
PRGEXT

INHIBIT PRINT SET?

%5,0ACNY

:CONVERT LINE NUMBER

25,0ACNY

s CONVERT RXCSR

%5,0ACNV

s CONVERT VECTOR

%5,BDUNY

;BR

SEI

ACLIN

004624

JSR

RXCSR
APRXC

6
JSR
RXVIR
2PVEC

004624

010000

172¢14

001640

001616
001620
000002
001620
001200
177777

001640
001616

001620
001620

PRGEXT:

TYPE
APGEND

Bl
BEQ

INC
BR

PRGXT1: MOV
ASL
PRGEC:
ADD
PRGEA:
MOV
MOV
(MP
BNE
INC

CLR

: TYPE

PROGRAM UND.

#BI1T12,3SRPIR
PRGXT1
PASCNT

PRGXTL

LINENO, TEMP

:GET LINENO

02, TEMP

:UPDATE LINE NUMBER

TEMP

TEMP, X1

RXCROC1),
%1
777751

PRGEB
PASCNT

L INENO

sGET RXCSR DEVICE ADDRESS
;LAST ONE
+NO, CONT INUE

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

005516
005522
005524
005526

005777

005530
005536
005544

005550
005556

WA
-

3&\48\!\

T i

W NN

$3883 O
O 00O
&~

SEEEFERE

1382

1400

100001

001620
000042

PRGXTL:

LOGIC:

010000

172504

000001
001620
001620
006226

CONT

7.(5)

’
#BIT12,3SRPIR
;RGEA

;LOCK ON LINE
;BRANCH IF NOT

BIT

#B170,%1

;DEVICE

MOV

JSR

R1S

PRGEC
TEMP

EHLT:

EHLTA:

173626
170000

001564
001564

001560

001562

001404
001404

004624

187
BPL

HALT
RTI]

;NO

SET

THERE

TEMP,LINENO

%7 ,FORMAD

sCONDITIONAL ERROR HALT ROUTINE.

172446

017737
032737
001004
023737
001421
004537
001560
016740
000003
004537
001562
016727
000003

012737
012737

TEMP
ana2 %5

NOP
BIT
g%g

ASR

001616

001562

005652
005660

RESET
JSR
NOP
NOP

BNE

001402
177000
001404
001404

104015
016715
000002

CONT:
PRGEB:

013737
0462737
005137
043737
0v0207

004537
001564
016753
000006

CLR
MOV

BEQ

000000
000002

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

SEQ QU5

9SRPIR
EHLTA

JEXIT,

sCHECK FOR HALT ON ERROR.
sBRANCH IF NO HALT DESIRED.
JHALT,
s IN DATA LIGHTS.

sMASKIT - MASK DATA ACCORDING TO LINE NUMBER
MASKIT: MOV
UMASK ,RMASK
;GET MASK

BIC

COM
BiC
RTS

#177000,RMASK

RMASK
RMASK ,CRBUFA
7

;REMOVE C/D FLAG*PRIORITY

;sMASK DESIRED BITS

;DATA (HECK ROUTINE, TEST ERROR BITS

DTCHK:

MOV

oRXBUF ,CRBUFB

:DID ANY ERROR BITS SET

BNE

DYCHKX

sYES, TYPE ERROR

BEQ

DICHKA

B11

cmp

DICHKX:

JSR
CRBUF
AWAS

3
JSR

004624

CRBUFA

#170000,CRBUFB
CRBUF ,CRBUFA

;COMPARE EXPECTED AND RECEIVED

X5.0ACNY

;G0 TO OCTAL 1O ASCII CONVERT.
:SOURCE ADDR.
sDESTINATION ADDR.

X5.0ACNY

AASB

004624

JSR
CRBUFB

sCHARS. BRANCH IF SAME.

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

s SOURCE ADDR.

sDESTINATION ADDR.

X5.,0ACNV

;#0F DIGITS TO CONVERT.

zRXBUF

DTCHKA:
177777

000240

006022
006024

ERROR1
ERDAT
RTI]

JERROR HANDLER
ERR:
MOV

MOV

#-1,ERRB

#240 ,ERRB*?

JSET UP ONE MESSAGE

CALL.
——

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

PAGE 25

— — —

N NN LN LN N

- e

351

N N
N
o w LIV
IV IV IV v
o 0 O~NO VW

cndh e el

1350

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

10: 53

1345
1346
1347
1348
1349

B e

012

.MAIN.
MACY11 30A€1052)
28-JUN-79
CZIDLAH.PY
28-JUN=-79 10:49

1418
1419
1620
1621
1422
1423
1624
1625

14626
1627
1428
1429
1430
1431

1432
1433

1434
1435
1436
1437
1438
1439
1440
1441
1442
16443
1644
1445

1446

1647
1448
1449
1450
1451

1452
1453

1454
1455
1456

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

006136

006140
006142
006144

005037
000413

NNNONNN~N~

NNOO~N~N~N ~Oo
W N NN NN NN

005666
005672
005674
005700
005706
005714
005722
005730
005732
005736
005744
005752
005760
005764
005766
005770
005772
005776
006000
006002
006004
006010
006012
006014
006016
006020
006022
006024
006026
006030
006034
006036
006040

—
O et
N et e e
NN = = PPN~
—

1401
1602
1403
1604
1605
1406
1607
1408
1409
16410
1411
1412
1413
1414
1415
1416
1617

O—-=000Oo0COoO

0013

042737
004537
006036
016104
000006
004537
001410
016123
000006
004537
001456
016074
000003
104001
016072
000000
177777
104010
063716
000002
000000
000000
013737
012737
006237
006237
006237
042737
013737
011637
004537
001634
020034
000006
004537
001636

006022
000116

177777
000002
020000

006036
000002
001456
100000
004624

SeEa

CLR

006022
006024
006040
172240

ERR1:

BR
MOv
MOV

MOv

ERRA:

006036
001460
001460

004624

MOov

BIT
BNE
MOV
SUB
MOV
BIC
JSR
ERRD
APC
6
JSR
RXCSR
:RKNUH

JSR
RTNNO
;TNUHB

ERRE

ERRA
ax6,ERRB
aERRB,ERRB
#-1,ERRB+2

¥2 ,ERRE

#BIT13,3SRPTR
ERRC
ax6,ERRD
#2 ,ERRD

006040

ERRB:

EMO
O?EN

ERRC:

EHALT

ERRD:
ERRE:
177776

000340
001470
001470
001470
177740
001470
001636
004624

004624

017767
002136

001470
177776

ADD
RTI

:DEVELOP ADDT'L MESSAGE ADDR.

;STORE AT ERRB.

;INHIBIT ERROR PRINT?

;BRANCH TO INHIBIT PRINT,
;DEVELOP CALLING ADDR.

RTNNO, TNNO

#BIT15,TNNO
%5,0ACNV

%5,0ACNV

TYPES

020066

000137

PAGE 26

006040

000006
104000

000000

10:53

;G0 TO OCTAL TO ASCII CONVERT.
; SOURCE ADDR.
;DESTINATION ADDR.
;#OF DIGITS TO CONVERT.
;GO TO OCTAL TO ASCII CONVERT.
; SOURCE ADDR.
;DESTINATION ADDR.
;#OF DIGITS TO CONVERT.
;GO TO OCTAL TO ASCII CONVERT.
;SOURCE ADDR.
sDESTINATION ADDR.
;#0F DIGITS TO CONVERT.
;TYPE:

;ERROR HEADER,

;ADDT'L ERROR MESSAGE IF ANY.

ERRE ,a%6

;G0 ERR HALT

IF DESIRED.

EXLY.

OPEN
OPEN

;ERROR TRAP HANDLER - TYPE TO AND FROM WHERE ERROR TRAP OCCURRED

ERTP:

001470
001634

MOV

PSW,OLDPS

ASR
ASR
ASR

OLDPS
OLDPS
OLDPS

MOV
MOV

OLOPS, TOPC
@9%6,FROMPC

MOV

Bic

ERTPA:

JSR

TOPC
MT0

#PRIY7 ,PSW

#177740,0LDPS

%5,0ACNV

JSR

%5.0ACNY

MFROM
6
TYPE
MTERR
HALT
JMP

START

FROMPC

:SAVE OLD STATUS

sGET FROM PC

1473

16474
1475
1476
1477
1478
1479
1480
1481
16482
1483
1484
1485
16486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497

1498
1499
1500
1501

006226
006232

006236
006242
006246
006252
006256
006262
006270
006274
006302
006310
006316
006322
006326
006334
006342
006350

NN~
N NNNNO

1459
16460
1461
1462
1463
1464
1465
1666
16467
16468
1469
1470
1471
1472

006150
006154
006156
006162
006170
006174
006176
006204
006212
006220
006224

So—o oo
ggéncgfu-uwv-anh—
NNN~NO

16458

OO0 —=0O00 —

1457

O NN NS W WO
s

.MAIN.
MACY11 30A(1052)
28-JUN-79
CZIDLAH P11
28-JUN-79 10:49

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

042737
013737
013737
000207

10:53

001634
000004
001634
001472

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

SEa 0027
;:MAPVEC - MAP VECTOR OR REPORT
MAPVEC: MOV
ax6,T0PC

001634

001636
000004
001472

PAGE 27

POPSP2

MOV

001634

001424
001634
001420

DEPENDING ON FMAP

FLAG

a%6,FROMPC

SUB
TST
BEQ
MOV
SUB

¥4 ,T0PC
FMAP
ERTPA
TOPC, TXVIR
#4,TOPC

CLR
RTI

FMAP

MOov

ERROR

;NOT MAPPING, REPORT ERROR
:STORE VECTOR

TOPC,RXVIR

:FORMAD=F ORM DEVICE AT ADDRESSES

FORMAD:

001620
001620
001622
001402

001622
001422
001426

MOV
ADD
MOV
ADD
MOV
ADD
MOv
MOV
ASL
ADD
MOv
MOV
SWAB
ASL

%1,RXCSR
"2.x
%1,RXBUF
¥2,%1
21,TXCSR
#2,%1
%1, TXBUF
L INENO, TEMP
TEMP
#CMASO, TEMP
aTEMP, TEMP1
TEMP1,UMASK
TEMP1
TEMP1

B1C

177437 ,TEMPY

RTS

MOV
MOV

;GET

PRIORITY

TEMP1 ,RXLVL
TEMPT, TXLVL

:DOTHIS - SELECTABLE TEST DECISION MAKER
006352
006360
006362
006366

032777
001002
000137
000207

001000

006370
006376
006400
006406
006410
006414
006416
006420
006422

012737
000000
012737
000005
012706

00640C

006370

020263
104003
000452

006424
006432
006434
006440
006444

022737
001045
004737
005037
005037

104000

171610

DOTHIS: BIT

BNE
JMP
GOBACK: RTS

GOBACK
GTRDYX
X7

000024

PFAIL:

#PWRUP,
24

000024

PWRUP:

002502

001176

MOV

HALT
MOY
RESET
MOV
TYPE
MPWRF

ERROR
BR

000000

003614
001420
177776

#BIT9,aSRPTR

001614

;15 SELECT TEST SWITCH SET

;RETURN TO TEST

;G0 TO NEXT TEST

#5PBOT,
%6

RESTART

CMP
BNE

#0,FOUNDV
TSTVEX

CLR
CLR

RXVIR
PSW

JSR

Sw SET

#PFAIL,24

;DECIDE IF VECTOR TO BE MAPPED AND MAP

TSTVEC:

%7,0VRLAY

sNEED VECTOR MAPPING
«NO, EXIT

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

020145
104003
00137
042777
012737
005237
000207

006550
006554
006556

013700
006300
000170

006562
006564
006566
006570

006640
014706
014760
015056
015106
005244
005244
005244

006572
006574

006576
006600

052737
062777
052777
000240
000240
005737
001011
032777
001344

000001
000100
000100

00147
17273
17272

PAGE

BIS
BIC
BIS

NOP
NOP
187

001420
020000

SEQ 0028
rnonr

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

10:53

BNE
Bl
BNE

171456

104000

TSTVA:

TSTVEX:

INTER
ERROR
JMP

ASL
JMP

006562
RSTART:

;DID

TRAP OCCUR?

:NO,

ERROR

#BIT6,aTXCSR

MOV
INC
RTS

RESTART : MOV

RXVTR

;YES,

TSTVEC

BIC

WPRTY7,PSW
FOUNDV
%7

:RESTART ROUTINE

001450

;SET MAPPING FLAG
: CAUSE INTERRUPT

TSTVA
#BIT13,aSRPTR
TSTVEC

TYPE

006424
000100
000340
001614

#B1TO,FMAP
#BIT6,aTXCSR
#BIT6,aTXCSR

;RAISE PRIORITY,

RETURN

PRGNUM,
%0

%0
aRSTART(0)

;G0 RESTART SELECTED PROGRAM

PRGOA

:PROGRAM O RESTART ADDRESS

PRG1A
PRG2A

:PROGRAM 1 RESTART ADDRESS
:PROGRAM 2 RESTART ADDRESS

PRG3A

:PROGRAM 3 RESTART ADDRESS

PRG4A

:PROGRAM & RESTART ADDRESS

INCRPG
INCRPG
INCRPG

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

006630

006634
006640

006644
006644

012737
005737
001007
104000
016134
105777
100375
004737
004537

000137
177777

006644
000C&2

001452

PRGO:

MOV
157

BNE

;5¥§T

172602

(HGH9:

005220
004244
002474

PRGOB:
PRGOA :

TS1B
BPL
JSR
JSR
anl

ISTA

TSTAA

#ATO,KSTART

ana2

PRGOB

aTks$
CHGHY
7.SETSR

S LINSEL
GETRDY

sMONITOR LOAD

:YES, START TEST

sTYPE

TITLE AND

INSTRUCTIONS

sSEE IF ANY INPUT
;WAIT FOR INPUT
160 GET LINE # FROM USER
1GET STARTED.

1000..AA,CD

AA,1000..\)+314CD,\X42,\X+1

:.".'."""""""""'0"'"""'.I'...ll"'l'.i'!ll.."l'.tt'vl.l.‘.."i"tl

006644
006646
006650
006652

100000

006676
001750
006654
000000

ATO:

100000
AT1

s TEST NUMBER
;ADDRESS OF NEXT

:lfl 1

:SCOPE ENTRY POINT

1000.

: ITERATION COUNT

=X+

TEST

:'l"""""""'"""'.'i""'l""'l'..ll""""i.lll.'ti't!"!"'ll!t!"lt

;TEST

ABILITY

TO REFERENCE

RECEIVER (SR WITHOU!

TRAPPING

.
.

B e

N ~N~NNNNN~N~N~NO
14 mgaW COO000
= OO0
NT NS W
—-O O

e e e et e e e e D e od —.—d.a.‘._o_.
A
AR ALY AV ) ARl IV IV IV I IV I
S

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

1589

006654
006662
006666
006670
006672
006674
006676
006676

006676
006700
006702
006704

0127SZ
005077
106012
022626

006670
172522

10:53

000004

PAGE 29
SEQ 0029

AAA:
AAB:

AAE :

104003

MOV
CLR
SCOPE
POPSP2

#AAE ,MACHER
aRXCSR

AAB

ERROR

000774

TSTA
TSTAA

;SET UP MACHINE ERROR TRAP.
JREFERENCE RX(CSR
;0K IF NO TRAP. SCOPE
; TRAPPED WHEN REFERENCING RXCSR.

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

.-'"t.""0""""""""‘"'l"""'l'.'t

100001

AT1:

006736
001750
C06706

"l'llt."t'tt"tttlt"'t"tt"'tl't

100001

AT2
1000.
ABA

000001

;TEST NUMBER

;ADDRESS OF NEXT TEST
sITERATION COUNT
;SCOPE ENTRY POINT

X=X+1

B
v
.

;""tt"""'I""t""""'l'0"""'."'.'0"'00

006706
006714
006720
006722
006726
006730
006732
006734
006736
006736

012737
005737

100402
005777
104012
022626
104003
000774

006730
(02110

000004

172464

;TEST

ABA:

ABILITY

MOV
187

¥ABE ,MACHER
a¥XORFLG

BMI
1$3]
SCOPE

ABB:
ABE :

AT2:

006770
001750
006746
000002

sREFERENCE RXBUF
;0K IF NO TRAP SCOPE

: TRAPPED WHEN REFERENCING RXBUF

ABB

TSTA
TSTAA

TRAPPING

;SET UP MACHINE ERROR TRAP.

POPSP?2

100002

RECEIVER BUFFER WITHOUT

ABB
aRXBUF

ERROR

HAAAAAR A

006736
006740
006742
006744

TO REFERENCE

"t".'lt't"tttt"t""'t't't

1000.,AC,CD
AC,1000.,\X+14CD,\X+2,\X+1

100002

;TEST NUMBER

AT3
1000.
ACA
X=X¢1

sADDRESS OF NEXT TEST
;ITERATION COUNT
;SCOPE ENTRY POINT
:

H
B
.

:'.."."'"""".".".'"'"'."""..."'...'..........Qtl'...."Q"":""t.

006746
006754
006760
006762
006764
006766
006770
006770

012737
005777
104012
022626

006762
172434

000004

STEST ABILITY TO REFERENCE TRANSMITTER CSR WiTHOUT TRAPPING.

ACA:
ACB:
ACE:

104003

#ACE ,MACHER
aTXCSR

BR
TSTA

ACB
1000.,AD,CD

ERROR

000774

TSTAA

006770
006772
006774
006776

MOV
TST
SCOPE
POPSP2

100003
007022
001750
007000
000003

AT3:

;SET UP MACHINE ERROR TRAP,
sREFERENCE TXCSR
;s SCOPE

; TRAPPED WHEN REFERENCING TXCSR

AD,1000,,\X+14(D,\X#2,\X*1]
N R

I R R

T R P R R R R

100003
AT4
1000.
ADA
X=X+1

R R R PR R R R AR PR

RN R RN RN R

RN RERRRERSITERRRRERORRRORRERRRTRTY

sTEST NUMBER
sADDRESS OF NEXT TEST

.
.

s ITERATION COUNT
:SCOPE ENTRY POINT

“
.

;ttt't""tt!l'tttt'tl't'tt't't!ttt!"'tittttttttl't'.l!ttttttt-tt.-t.tt't"ctt-'

007000
007006
007012
007014
007016
007020

012737
005777
104012
022626
104003
000774

007014
172404

000004

STEST

ADA:

ADB:

ADE :

ABILITY

MOV
181
SCOPE
POPSP2
ERROR
BR

TO REFERENCE

#ADE ,MACHER
a1 XBUF

ADB

TRANSMITTER BUFFER WITHCUT

TRAPPING

;SET UP MACHINE ERROR TRAP,
sREFERENCE TX BUF.
; SCOPE

; TRAPPED WHEN REFERENCING TxBUF

MACY11

30A(1052)

28=JUN-79
28=JUN-79 10:49

10:53

PAGE

007022
007024
007026

007030

SEG 0030

007022
007022

TSTA
TSTAA

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

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

100004

AT4:

007122
000012
007032
000004

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

100004

;TEST NUMBER

ATS
10.
:E: 1

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

=X+

.
*
'

:""""""""""""""'";'l"""'""""""'l"'l"""'"tt'lt"""'

sTEST THAT TXCSR BIT O (BREAK) CAN BE SET AND CLEARED

000901

172354

000001
000001

172340
172332

AEB:

:AND
AEA:

032777
001402

AEC:

172276

AED:

104003

052777
104011
104012

000001

b
-—d

032777
001401

000001
000001

104003
000410
042777

LA AAA

007122
007124
007126
007130

THAT RESET
BIT

BEQ
ERROR
BR

104003

000421
052777
032777
001002

007032
007040
007042
007044
007046
007054
007062
007064
007066
007070
007076
007104
007106
007110
007116
007120
007122
007122

-t

.MAIN.

CZDLANH P11

100005

ATS:

007222
000012
007132
000005

#BIT0,3TXCSR
AEC

#BITO,RTXCSR

BIT
BEQ
ERROR

;SET

TXCSR BIT 0

BIT

;CLEAR

#BITO,3TXCSR
AED

TXCSR BIT

:DID IT CLEAR

#B110,3TXCSR

TSTAA

10.,AG,CD
AG,10.,\X¢14(D,\X42,\X*1

100005

s ISSUE RESET

;ADDRESS OF

10.

sITERATION COUNT

AGA !
X=X+

CLEAR

TO CLEAR

sTEST NUMBER

:TXCSR BIT O DID NOT

BIS

SRESET
SCOPE
TSTA

IS CLEAR

;DID IT SET
:YES, GO ON
sTXCSR BITO FAILED 10 SET

AED

BIC

;SEE

;BR IF CLEAR
;RESET DID NOT CLEAR IT

#BITO,aTXCSR

BIT
BNE
ERROR
BR

AEB
AED

BIS

CLEARS IT
#BITO,QTXCSR

InmnmmmMm

TEST

;SCOPE ENTRY POINT
3

:'t"'t"'Q'tt"'t'l"'.'t'tt".'t"t.'t.'.tt.'ttttt't'.'.tttt.fiotottt..to"t'-'

007132
007140
007142
007144
007146
007154
007162
007164
007166

007170
007176
007204
007206
007210
007216
007220
007222
007222

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

052777
104011
104012

000004

172254

;TEST
AGA:

000004
000004

172240
172232

AGB:

000004
000004

172216
172210

AGC:

000004

172176

AGD:

THAT TXCSR BITZ2 CAN BE SET, CLEARED, AND THAT RESET CLEARS
BIT
#BIT2,9TXCSR
sSEE IF TXCSR BIT2 IS CLEAR.

BEO

AGB

aen

sRESET DID NOT CLEAR TXCSR BIT?

BIS

#BI12,9TXCSR

sSET

AGC

:BRANCH IF BIT IS SET.
;TXCSR BIT2 FAILED 1O SET.

#EIT2,3TXCSR

BIC

#E1T2,QTXCSR

BEQ
ERROR

AGD

BNE
ERROR
BR

811

AGD

sSEE

TXCSR BlT2,

IF B11 1S SEV.

:CLEAR TXCSR BlT2

#BIT2,aTXCSR

sSEE

BiS

#BIT2,3TXCSR

;SET

TSTAA

AJ,L10,,\X#140D,\X42,\X+]

SRESET
SCOPE
TSTA

10.,AJ,CD

IT.

:BRANCH IF BIT IS CLEAR.

S:ROQ

BIT

v
.

IF BIT 1S CLEAR.

sTXCSR BIT2 FAILED 7O CLEAR.
TXCSR BIT2.

:1SSUE RESET TO CLEAR BiT.
: SCOPE

:"."'l""""."""""""""""'Qi....l..'..i!.l.I.‘.""l.lli'll'lil!'ii

.MAIN.
MACYT1 30A(1052)
28-JUN-79
CZDLAH P11
23 -JUN-79 10:49

NS NN
- CSOWNO

N“‘-‘—hd.‘-‘—h‘-‘—‘cna

TRkl o T e
—h ol - — D Bl ol i
ol B all il ol ol el ol et —
NNNNNNNNNNNNNNNN NN NN NNNNNNNNY
SN
LN LN NN whornoruNN
NN NN

VL WN—=OOVRNT
NS W =0 O

AT6:

31
100006

;TEST

A7
10.

AJ:

NUMBER

;ADDRESS OF NEXT
;1TERATION COUNT

X=X+

;SCOPE
$

ENTRY

TEST

.
.

POINT

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

007330
007332
007334
007336

012737
032777
001402

;TEST
AJA:

000340
000100

104003

—

no W

000100
000100

AJB:

000100
000100

AJC:

052777

000100

172070

AJD:

104003

1064011
104012

——

000410
042777
032777
001401

O o

001002
104003

g:ROR
N~

000421
052777
032777

THAT TXCSR BI1T6 CAN BE
MoV
¥PRTY7,PSW

BIT
BEQ

007232
007240
007246
007250
007252
007254
007262
007270
007272
007274
007276
007304
007312
007314
007316
007324
007326
007330
007330

1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707

100006

007330
000012
007232
000006

ronrno

1683
1684
1685

007222
007224
007226
007230

PAGE

SEQ 0031

—

1681
1682

10:53

#BIT6,RTXCSR
AJB

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

SET, CLEARED, AND THAT
;SET PRIORITY 7.

RESET

;RESET

DID NOT

CLEAR

TXCSR BIT6

BIS

#BIT6,aTXCSR

;SET

BNE
ERROR
BR

AJC

;BRANCH IF BIT IS SET,
;TXCSR BIT6 FAILED TO SET.

BIC

BIT
BEQ
ERROR

BIS

SRESET

SCOPE
TSTA
TSTAA

#BIT6,aTXCSR

AJD

#BIT6,aTXCSR

#B1T6,aTXCSR
AJD

#B1T6,aTXCSR

;SEE IF TXCSR 8176 IS CLEAR.
;BRANCH IF BIT [S CLEAR.

BI1T1

CLEARS

TXCSR BIT6.

;SEE IF BIT IS SET.

;CLEAR

JSEE

TXCSR BIT6

BIT

IS CLEAR.

sTXCSR BiT6 FAILED TO C(LEAR.

;SET

TXCSR BIT6.

:ISSUE RESET
: SCOPE

TO CLEAR BIT.

100.,AK,CD
AK,100.,\X+14CD,\X42,\X+1

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

100007
007354
000144
007340
000007

AT7:

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

100007
AT10
100.

;TEST NUMBER
;ADDRESS OF NEXT
;ITERATION COUNT

AKA .
X=X+

»
.
=

TEST

;SCOPE ENTRY POINT
3

.
.

;t'tt"tt.".tt'O'!"I't"ttlt"t".ttl'tttt.'tt.'t.lttt.tt"'t'.o"

t"a't'ttt"

007340
007344
007346
007350
007352
007354
007354

105777
100402
104003
104011
104012

007354
007356
007360
007362

000010
007436
000144
007364
000010

;TEST
:THAT
AKA:

172050

AKB:

THAT TXCSR BIT 7 (READY BIT)
IT CAN BE READ RELIABLY.
TSTB
aTXCSR

BMI
ERROR
SRESET

IS SET

;SEE

AKB

TXCSR BIT

AND

IS SET.

sBRANCH IF SET.
sTXCSR BIT 7 NOT SET.
;ISSUE RESET T0 CLEAR BIT

SCOPE

TSTA
TSTAA

UPON ENTERING ROUTINE

100.,AL.0
AL,100, ,\X*1+0,\x+2,\ X+

ERROR

: SCOPE

:'.I'Q""""'l."'"""""""'.".""..'.Il"i""l.t'l".ltl"lt'.'."'t'l

AT10:

10
AT11

100.

ALA

s TEST NUMBER
:ADDRESS OF NEXT

;1TERATION COUNT

:SCOPE

X=X+

.
.

TEST

ENTRY POINT

;"!tttot't"'t'!'t'tt"!"!t'tt"t'ttt't't.tt.tlnt-ottttt.ttt-tto."-o-tt'tt'o'

007364
007372
007400
007406
007410
007412

042777
052777
032777
001002
104003

000410

000002
000002
000002

172016

172010
172002

TEST
ALA:

THAT RXCSR BIT 1 CAN BE
BIC
#BIT1 IRXCSR

BIS
Bl

BNE
ERROR
BR

#BIT1,RXCSR

#B1T1,aRXCSR

ALY

ALl

SET

CLEARED

sSEY RXCSR BITY

sSEE

BIT

+BRANCH iF
+RXCSR BIT

IS SEN

SET
1 FALILED

10 St!

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

007414
007422
007430
007432
007434
007436
007436

042777
032777
001401

007436
007440
007442
007444

000011
007536
000012
007446
000011

000002
000002

10:53

PAGE

SEQ 0032

171 76 6
m”m 76 0

104003
106012

ALY:

BIC

#B1T1,aRXCSR

Bil
BEQ
ERROR

ALZ:

;sCLEAR

#BIT1,aRXCSR
ALZ

JSEE

;TEST

AT12

10.

APA

NUMBER

;ADDRESS OF

;1TERATION COUNT

;SCOPE

X=X+

ENTRY

1S CLEAR
FAILED TO CLEAR

. SCOPE

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

AL AR SR

AT11:

BIT

JRXCSR BIT

SCOPE

TSTA
TSTAA

RXCSR BIT

I I I I I M

TEST

POINT

""'Qt"'.'lt't""""""t"t"t""'l"'l""t'l

007446
007454
007456
007460
007462
007470
007476
007500
007502
007504
007512
007520
007522
007524
007532
007534
007536
007536

032777
001402
104003
000421
052777
032777
001002

000004

171734

:TEST
APA:

BEQ
ERROR
BR

000004
000004

APB:

000004
000004

APCX:

BIS

BIT
BNE
ERRCR
BR
BIC
BIT
BEQ
ERROR

104003

000410
042777
032777
001401
104003
052777
104011
104012

000004

171656

APD:

BIS

SRESET
SCOPE

TISTA

TSTAA

007536
007540
007542
007544

THAT RXCSR BIT2 IS CLEAR
BIT
#BIT2,aRXCSR

000012
007636
000012
007546
000012

AT12:

APB

'"""'0""""'t'lt"t'ct"

AND CAN BE READ RELIABLY.
;SEE IF RXCSR BIT2 IS (LEAR.

sBRANCH IF BIT IS CLEAR.
sRXCSR BIT2 IS NOT CLEAR.

APD

#B1T2,aRXCSR

;SET

#BIT2,3RXCSR
APCX

RXCSR BIT2

sSEE IF BIT IS SET
sBRANCH IF SET
sRXCSR BIT2 FAILED TO SET

APD
#BIT2 ,aRXCSR
#BIT2,aRXCSR
APD

;CLEAR RX(CSR BIT?

sSEE

BIT

iS CLEAR

sRXCSR BIT2 FAILED TG CLEAR

#B1T2,3RXCSR

;SET BIT

s ISSUE RESET

10 CLEAR 817

10.,A0,0

AQ,10.,\X+140,\X42,\X+1

12
AT13
10.

Il ImmmmTmT T

:TEST NUMBER
sADDRESS OF NEXT TEST
sITERATION COUNT

AQA "
X=X+

YTM

.
.
.

: SCOPE ENTRY POINT
-

.
-

;"tlt'ttt'l"'tt't"'l"l""ttltt'll"'t'lt"tlt't't.tlttt-.....tttfio-

ttt"tt'o

000010

171634

000421
052777
032777
001002

000010
000010

—

032777
001402

000410
062777
032777
001401

000010
000C10

—

052777

000010

17155¢

ACB:

AQC:

BNE
ERROR
BR
BIC

AQD
#B1T3,aRXCSR

BEQ

AQD

104011

—

104003

THAT RXCSR BIT3 CAN BE SET, CLEARED, AND THAT RESET CLEARS
BIT
#3173,3RXCSR
;SEE IF RXCSR BI1T13 IS CLEAR.

BEQ
E:ROR
B
BIS

104003

007546
007554
007556
007560
007562
007570
007576
007600
007602
007604
007612
007620
007622
007624
007632

;TEST
AQA:

AQD:

BIT

ERROR

BIS
SRESET

AGB
85

;BRANCH IF BIT iS CLEAR.
sRESET DID NOT CLEAR RX(SR B1T3

#BIT3,3RXCSR

;SET RXCSR BIT3,

AQC

sBRANCH IF BIT IS SET.
sRXCSR BIT3 FAILED TO SET.

#BIT3,3RXCSR

#BIT3,9RXCSR

#B1T3,aRXCSR

sSCE

17 817 1S SE1,

sCLEAR RXCSR B!1!3

;SEE

IF BIT 1S CLEAR,

JRXCSR BIT3 FAILED TO CLEAR,

;SET RXCSR BI13,
s 1SSUE RESET TQ (LEAR BT,

IT.

MACY11 30A(1052)
LMAIN,
28=JUN-79
CIDLAH P11
28=JUN=-79 10:49

1793
1794
1795
1796
1797

it
—

—

0o oo 0o 0o 00 0D 00 OO 0o 0o 0o

oo ot b e e
ok e
ok~ VONO
NP NN —

1798
1799
1800
1801
1802
1803
1804
1805
1806

1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836

1837

1838
1839
1840
1841
1842

1843
1844
1845

1846

1847

1848

007634
007636
007636

007636
007640
007642
007644

10: 53

PAGE

33
StEa

104012

SCCOPE

;SCOPE

10.,AR,0

T5TA
TSTAA

AR,10.,\X+140,\X*2,\xX+1

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

AT13:

000013
0C7744

'0l"""'l""".""'lt"."I'

;TEST

AT14
10.
ARA
X=X+1

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

007744
007746
007750
007752

000340
000040

000040
000040

ARB:

000040
000040

171470
171462

ARC:

000040

171450

ARD:

104012

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

THAT RXCSR BITS CAN BE
MOv
#PRTY7 ,PSW
#BITS,aRXCSR
BIT

BEQ
ERROR
BR
BIS
BIT
BNE
ERROR
BR
BIC
BIT
BEQ
ERROR
BIS
SPESET
SCOPE
TSTA
TSTAA

SET »

CLEARED, AND THAT RESET CLEARS

;PRTY7

;SEE

ARB

.
.
.

70 INHIBIT ANY

INT

IT.

IF RXCSR BITS5 IS CLEAR.

;BRANCH IF

BIT

IS CLEAR.

;RESET DID NOT CLEAR RXCSR BiTS

ARD

#BITS ,@RXCSR
#BITS,aRXCSR

;SET RXCSR BITS.
;SEE IF BIT IS SET.
;BRANCH [F BIT 1S SET.

ARC

;RXCSR BITS FAILED

ARD

#BITS,aRXCSR

TO SET.

;CLEAR RXCSR B175
;SEE IF BIT IS CLEAR.

#B1T5,aRXCSR
ARD

sRXCSR BlT4 FAILED

#BITS5,aRKCSR

10 (LEAR.

;SET RXCSR BITS.
:1SSUE RESET 10 CLEAR BIT.
: SCOPE

10.,AS,CD
AS, 10, ,\X¢1+(D,\X42,\X+1

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

""'.."."Q."'tl..

100014
010052

AT14:

000012
007754
000014

012737
032777
001402

000340
000100

177776
171420

;TEST
ASA:

000100
000100

ASB:

104003

000410
042777
032777
001401
104003

052777
104011
104012

sTEST NUMBER
sADDRESS OF NEXT TEST
s1TERATION COUNT
;SCOPE ENTRY POINT

ASA

104003

000421
052777
032777
001002

100014
AT15
‘o'

X=X+1
LSRR

007754

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

:l'0'..".""""""""""" LA A

sTEST
ARA:

NUMBER

000100
000100

000100

ASC:

171342

ASD:

THAT

MOV

RXCSR BIT6 CAN BE

BT
BEQ
ERROR
BR
BIS
Bl
BNE
ERROR
BR
BIC

Bl
BEQ

ERROR
BIS
SRESET
SCOPE
TSTA

#PRIY7,PSW

#B1T6,aRXCSR
ASE
ASD
#B116,3RXCSR
#B1T6,aRXCSR

ASC
ASD
#BIT6,aRXCSR
#B1T6,aRXCSR
ASD

#BIT16,aRXCSR
100.,A1,0

SET,

CLEARED,

.
.
.
.

AND THAT RESET

CLEARS

sSET PRIORITY 7,
:SEE IF RXCSR BIT6 IS CLEAR.
;BRANCH IF BIT

IS CLEAR.

sRESET DID NOT CLEAR RX(SR BlTe
sSET RXCSR BITe6.
<SEE 1F BIT 1S SEV.
;BRANCH IF BIT 1S SET.

sRXCSR BIT6 FAILED TO SETY.

+CLEAR RXCSR BITS
JSEE IF BIT IS CLEAR,
JRXCSR BIT6 FAILED

;SET

RXCSR BlTe.

10 (LEAR,

: ISSUE RESET 10 CLEAR BiT.
+ SCOPE

.y I ImmmmmmTTMT

IT.

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

1887

1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904

PAGE

TSTAA
AR

010052
010054
010056
010060

000015

AT15:

010100

3
SEG 0034

010052

AT,100, ,\X+140,\X42,\X+1

15
AT16

000144
010062
000015

;TEST NUMBER
;ADDRESS OF NEXT

100.

ATA

;1TERATION COUNT

;SCOPE

X=X+

[

.
.

TEST

ENTRY POINT

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

032777
001402

000200

171320

104003
1064011
104012

1861

1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
187%
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886

10:53

;TEST
ATA:

THAT RXCSR BIT7 IS CLEAR
BIT
#B117,aRXCSR

BEQ
ERROR
SRESET

ATB:

ATB

SCOPE
TSTA
TSTAA

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

AND CAN BE READ RELIABLY.
;SEE IF RXCSR BIT7 IS CLEAR.

;BRANCH IF BIT IS CLEAR.
sRXCSR BIT7 1S NOT CLEAR.
;RESET IF ERROR

s SCOPE

100.,AX,0

AX,100. ,\X*140,\X42,\x+1

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

000016
010126
000144
0101:0
000016

AT16:

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

16
AT17

100.

AXA

;TEST NUMBER
:ADDRESS OF NEXT

:1TERATION COUNT

:SCOPE

X=X+

.
.

TEST

ENTRY POINT

""'..""""""""'"'."."'"."'..'...'."..l.lt

032777
001402

002000

171272

104003
104011
104012

"t"'!"".tllt.l't'.."

:TEST
AXA:

THAT RXCSR BIT10 IS CLEAR AND CAN BE READ RELIABLY.
BIT
#BIT10,3RXCSR
;SEE IF RXCSR BIT10 IS CLEAR.
BEQ
AXB
;BRANCH IF BIT IS CLEAR.
ERROR
sRXCSR BIT10 IS NOT CLEAR.

SRESET

AXB:

010126

010126
010130
010132
010134

100017
010154
000144
0310136
000017

AT17:

: SCOPE

100.,AY,CD

TSTAA

sRESET BIT

SCOPE
TSTA

ERROR

AY,100. ,\X#14(D,\X42,\X*1
A

100017
AT20
100.
AYA

)

I ImMmmMm

T T

"TM

s TEST NUMBER
sADDRESS OF NEXT TEST
: ITERATION COUNT

.
.
.

:SCOPE ENTRY PGINT

X=X¢

:"..""‘"."."""'."".".",'..'..................'.Q.".""I'l"."'t"

010136
010144
010146
010150
010152
010154
010154

032777
001402

004000

171244

104003
104011
104012

;TEST
AYA:

AYB:

THAT RXCSR BIT11 IS CLEAR AND CAN BE READ RELIABLY.
Bl
#BIT11,QRXCSR
;SEE IF RXCSR BIT11 !S CLEAR.

BEG
ERROR
SRESET
SCOPE
1STA

TSTAA

AYB

:BRANCH IF BIT 1S CLEAR.
;RXCSR BIT11 IS NOT CLEAR.
;RESET BiT IF ERROR

100, ,AZ,CD

: SCOPE

AZ,100.,\X+1¢CD,\X42,\X+1

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

010154
010156
010160
010162

100020

AT20:

010202
000144
010164
000020

100020

sTEST NUMBER

AT21
100.

;ADDRESS OF NEXT
;1TERATION COUNT

X=X+

:
.

AZA 1

TES!

:SCOPE ENTRY POINT

:l"'""l"'Il""'.'."""'""""'."'..Q'..l"'l.i.tIt.tti!ltl'll"t".'l.

010164
010172

032777
001402

040000

171216

;TEST

AlA:

THAT

Bl
BEQ

RXCSR BIT14

IS CLEAR AND CAN BE READ RELIABLY,

#BIT16,QRXCSR
AlB

;SEE IF RXCSR BIT14 IS CLEAR,
+BRANCH 1F BIT IS CLEAR,

.
.
.

1922

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
1955
1956
1957
© 1958
1959
1960

OO~~~
oo
s

(L]

s
el el ol

PAGE

35
SEQ

1064003

ERROR
SRESET

104011

104012

AlB:

100021
010230
000144
010212
000021

AT21:

SCOPE
TSTA
TSTAA

;RXCSR BIT14 [S NOT CLEAR.
;RESET BIT IF ERROR

; SCOPE
100.,AAA,CD
AAA,100.,\X+14CD,\X42,\X+1

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

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

100021

;TEST

100.

;ITERATION COUNT

AT2?2

NUMBER

;ADDRESS OF NEXT TEST -

AAAA\

;SCOPE

X=X+

ENTRY

POINT

«
.

:Q""'I"""'."""'""'".""'l"l'l."

032777
001402

1921

1923
1924

10:53

OO0

el e
e
e
et e
e
D e e

204
206

ee —
OV
NP Nr — o

00 00000
OO 0O

1905
1906
1907
1908
1909

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

010226

100000

sTEST

171170

104003
104011
104912

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

THAT RXCSR BIT15 1S CLEAR AND CAN BE READ RELIABLY.

AAAA:

BIT
BEQ

ERROR
SRESET

AAAB:

#BIT15,9RXCSR
AAAB

;SEE IF RXCSR BIT15 IS CLEAR.
;BRANCH IF BIT IS CLEAR.

sRXCSR BIT15 IS NOT CLEAR.
;RESET BIT IF ERROR

SCOPE

: SCOPE

+ALL PREVIOUS TESTS MUST HAVE BEEN RUN SUCCESSFULLY PRIOR

;7O RUNNING THE FOLLOWING TESTS.
ALSO, THE JUMPER CONNECTOR
;MUST BE INSERTED IN THE DL11-E CABLE IN PLACE OF THE MODEM.

SREFER TO OPERATION WITH JUMPER

010230
010230

01023C
010232
010234
010236

TSTA
TSTAA

INSERTED.

(OMMENTS

100. ,AFB,0
AFB,100.,\X+140,\X+2,\x+1

;tl'ltt"'t""""""t"'t'ttt"'t'tttttOttt..cttto'l.t.t

000022
010314
000144
010240
000022

tttto't-t'.o'to""oco

AT22:

;TEST NUMBER

A123
100.

;ADDRESS OF NEXT TEST
s1TERATION COUNT

AFBA‘

*
.

:SCOPE ENTRY PCINT

X=X+

:tlt't'l'ttt't'ttt't'0""Q'ttt'ttt"tttttt.'tto..fitttt.-t.t---.-".t

-t'o..-"tt

010240
010246
010252
010260
010262
010264
010266
010274
010300

052777
004737
032777
001002

000002
012122
010000

171142

sTEST THAT CARRIER DETECT
sREADY SETS AND CLEARS.

AFBA:

BIS

#BIT1,3RXCSR

sSET DATA TERMINAL READY

#BIT12,3RXCSR
AFBB

;TEST CARRIER DETECT
s SHOULD BE SET
sWASN'T

AfBB:

BIT
BNE
ERROR
BR
BIC

JSR

171130

104003

000412
042777
004737
032777
001401
104003
104012

000002
012122
010000

171114

SETS AND CLEARS WHEN DATA TERMINAL

JSR
811

171102

BEQ
ERRCR

AFBC:

SCOPE

ISTA
TSTAA

X7,T1IME

AFBC
#BIT1,9RXCSR

X7,11M
#BIT12 ,RXCSR
AFBC

sDELAY

sCLEAR DATA TERMINAL READY

;DELAY
;TEST CARRIER DETECT
sWAS SET, ERROR

100.,AGB,0
AGB,100.,\X¢140,\x#2,\X¢1

:tt!t't"t't""t"t'ttttt"!'t't'tl'tlilttl"'ttttttttttltttlttontt.:t"tt't-tt'

000023
010466
000144
010324
000023

AT125: . - 25
AT24
100.

AGBAI
X=X+

RN RPN R

sTEST NUMBER
sADDRESS OF NEXT
:1TERATION COUNT
;SCOPE
3

TEST

ENTRY POIN?

R R RPN R R NPT RN R R R R RPN R RN RRRRRRARRRRRRRRRERRRORROERRRRORRORRRORROERRERRETR

.
.
.
.

MACYT1 30A(1052)
MAIN.
28-JUN-79
CZDLAH P11
28-JUN-79 10:49

1997
1998
1999
2000

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

»H

e el

il el

j=lelelelele) oo

042777
004737
017737
032777
001402

171056

SEQ

AGBA:

171022

MODEM

BIC

INTERRUPT

(BIT

#BIT1,aRXCSR

JSR

15)

SETS WHEN CARRIER DETE(!

AGBB:

;CLEAR DATA

%7,T1ME

MOV

104003

000442
052777

THAT

: CHANGES STATE, AND IS CLEARED WHEN RXCSR 1S READ.

001610
171036

BIT
BEQ
ERROR
BR
BIS

;DELAY

aRXCSR,RXCSRT

TERMINAL

READY

;READ RXCSR

#BIT15,9RXCSR
AGBB

;TEST MODEM INTERRUPT
;WAS CLEAR
GO TO AGBB
;WASN'T CLEAR
;60 TO SCOPE

AGBE

#BIT1,aRXCSR

;SETTING DATA TERMINAL READY

;CAUSES CARRIER DETECT TO SET
010366
010372
010400
010406
010410
010412
010414
010422
010424
010426
010430

010436
010442
010450
010456
010460
010462
010464
010466
010466
010466
010470
010472
010474

004737
017737
032737
001002
104003
000424
032777

JSR

001610
001610

100000

170766

AGBC:

104003
000416
042777

004737
017737
032737
001002
104003
000400
104012

000002

2122
0742
0000

170752

AGBD:

BNE
ERROR
BR

BIT

BEQ
ERROR
BR

BIC

JSR

001610
001610

BNE

010544
010546
010550

;MODEM

AGBD

;1T WAS
GO TO AGBD
;1T WASN'T
;G0 TO SCOPE

AGBE

#BIT1,aRXCSR

AGBE

INTERRUPT BIT

sHAVE BEEN CLEARED

;CLEARING DATA

SHOULD

TERMINAL

READY

:CAUSES CARRIER DETECT TO (LEAR
;BUT MODEM INTERRUPT WILL SET
sDELAY

;MOV RXCSR TO TEMPORARY LOCATION
;TEST MODEM INTERRUPT

;SHOULD BE SET
1T WASN'T

AGBE

ISTA

100.,AJ8.0

SCOPE

GO TO AGBC

s SCOPE

AJB,100.,\X#140,\X+2,\X+]

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

'..""'.'t

000024
010600
000144
010476
000024

AT24:

AT125
=X+

000002
012122
020000

170704

THAT

R R R R P R R R

CLEAR

170672

#BIT1,ARXCSR

BEQ

AJBB

s:ROR

000002
012122
020000

170656

170644

AJBB:

(BIT13)

BIC

JSR
Bil

sITERATION COUNT
:SCOPE ENTRY POINT

.
.

R R RN N R R R R R R R R R R P R R R R R E RN R R RN R R R RR RO RO RERRERROEORRERRRRRROERRRETRTY

TO SEND

sREADY SETS/CLEARS.

AJBA:

sTEST NUMBER

sADDRESS OF NEXT TEST

100.
:ng‘

;TEST

010536

AGBE

;SHOULD BE SET
;WAS CLEAR
;60 TO SCOPE

#BIT15,aRXCSR

TSTAA

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

AGBC

TQ SET

~ ;MOVE RXCSR TO TEMPORARY LOCATION
;TEST MODEM INTERRUPT

SRXCSR,RXCSRT
#BIT15 RXCSRT

ERROR

SR RN

010476
010504
010510
010516
010520
010522
010524
010532

aRXCSR,RXCSRT
#BIT15,RXCSRT

:DELAY

X7,T1ME

MOv
Bl

AGBE:

;WHICH CAUSES MODEM !NTERRUPT

X7.TIME

MOV
BIT

001402

—
O N~

1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996

PAGE 36

;TEST

(elelololeloloYe)

1961
1962
1963
1964

10: 53

27,T1ME
#BIT13,3RXCSR

SETS/CLEARS WHEN DATA

TERMINAL

sCLEAR DATA TERMINAL READY

sDELAY
;TEST CLEAR TO SEND

BIS

At
J
#BIT1,aRXCSR

+SET DATA TERMINAL READY

B17

#BIT13,9RXCSR

;TEST CLEAR 10 SEND

JSR

BNE
ERROR
BR

%7,T1ME
AJBC

AJBD

;CLEAR TO SEND SHOULD BE CLEAR

+DELAY

+BRANCH IF SET
;CLEAR TO SEND SHMOULD BE SE!

]

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

2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028

2029
2030

010552
010560
10564
0572

2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
010646
2041
2042 010654
2043 010660
2044 010666
2045 010670
2046 010672
2047 010674
2048
010674
2049
2050 010674
2051
010676
2052 010700
2053 010702
2054
2055
2056
2057 010704
2058 010712
2059 010716
2060 010724
2061
010726
2062
2063
2064
2065
2066
2067

2068
2069
2070
207
2072

042777
004737
032777
001401

000002
012122
020000

10: 53

170630

PAGE

SEQ 0037
AJBC:

170616

104003
104012

AJBD:

BIC
JSR
BIT
BEQ
ERROR
SCOPE

TSTA
TSTAA

0 RXCSR
ME

3,aRXCSR

;CLEAR DATA TERMINAL READY
;DELAY
sTEST CLEAR TO SEND
;CLEAR TO SEND SHOULD BE CLEAR

: SCOPE

100.,AkB,0
AXB,100.,\X+14C ,\X+2,\X+1

'l"".I"""""""""'l"."""'i"..'l"

000025
010674
000144
010610
000025

AT25:

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

;TEST NUMBER

AT26
100.

;ADDRESS OF

: 1TERATION COUNT

AKBA

TEST

:SCOPE ENTRY POINT

X=X+1

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

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

042777
004737
052777
004737
032777
001001
104003
042777

004737
032777

001401
104003

000004
012122
000004
012122
040000
000004
012122
040000

170572

170560
170546
170534

;TEST THAT RING (BIT 14 RXCSR) SETS WHEN REQUEST TO
:SEND SETS AND CLEARS AND RESET CLEARS RING
AKBA:
#BIT2,aRXCSR
BIC
;CLEAR REQUEST TO SEND
JSR
x7,TIME
sDELAY
#BIT2,3RXCSR
BIS
;SET REQUEST TO SEND
JSR
X7,T1ME
sDELAY
BIT
;TEST RING
#BIT14,QRXCSR
AKBC(:

170522

BNE
ERROR
BIC
J3R

#BIT2,3RXCSR

X7,.T1ME

sRING SHOULD BE SET
;CLEAR REQUEST TO SEND
;DELAY

#BIT14 QRXCSR
-“

TSTA
TSTAA

100.,A08,0
AOB, 100, ,\X#140,\X+2,\X+1

BEQ
ERROR
SCOPE

104012

AKBC

;TEST

RING

: SHOULD BE CLEAR

: SCOPE

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

.t'.""tt

000026
011006
000144
010704
000026

AT26:

26
A127

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

100.
AOBA
X=X+1

;'l!tt'tit'tt"t"t!"t.'t.t'ti0"""ltlt"tttt'ttttot'tt--tt"-"ttt'-"t't'o'

062777
004737
032777
001402

000004
012122
100000

170476
170464

;TEST THAT MODEM INTERRUPT (BIT 15 RXCSR) SETS WMEN RING SETS.
BlC
#B172,3RXCSR
:CLEAR REQUEST TO SEND
JSR
%7, T1ME
sDELAY
#BITi5,3RXCSR
BIT
sTEST MODEMTM INTERRUPT BIT

AUBA:

104003

000425
052777
004737
032777
001002

000004
012122

100000

170450

AOBB:

170436

104003

000412
062777
004737
032777
001401

000004
012122
100000

170422

170610

AOBC:

BEQ
ERROR
BR
BIS
JSR
BIT
BNE
ERROR
BR

AOBB

AOBD
#B172,3RXCSR

X7,T1ME

#BIT15,9RXCSR

AOBC

BIC

A0BD
#B1T12,3RXCSR

8171

#BIT15,ARXCSR

JSR

BEQ

x7,T1ME

AOBD

:SET REQUEST TO SEND
sDELAY

sTEST MODEM INTERRUPT BIT

+CLEAR REQUEST TO SEND

JDELAY

+TEST MODEM INTERRUP! BIT

.
.
.
"

25
!
'

] LMAIN. MACY11 30A(1052) 28-JUN-79 10:53 PAGE 38
CZDLAH.P11
28-JUN=79 10:49
2073
20764

011002
011004

2075
2076

011006
011006

2078
2079
2080
2081
¢082

011006
011010
011012
011014

2077

2083%

|
|

2084
2085
2086
2087

2088

000425

052777
004737
032777
001002

011070
011072
011100

000412
042777
004737

011066

011104

001402
104003

032777

011112
011114
011116
011120
011120

001401
104003
104012

2107
2108
2109
2110

011120
011122
011124
011126

000030
011260
000144
011130

2111

2112

213
2114
2115
2116
2117
2118
2119
2120
2121
2122

2123
2126
2125
2126
2127
2128

011130
011136
011142
011150
011154
011162
011164
011166
011170

011176
011200
011202
011204
011212
011276

AT27:

ERROR
SCOPE

TSTA
TSTAA

000010
012122
002000

170364
172352

170336

27
AT30
100.
ALBA
X=X+1

002000

ALBB:

001402
104003
000425
042777
004737
032777

#BIT10,aRXCSR

ALBD

ALBB

R R R R R R

R R R R

ALBC:

BR
BIC
JSR

ALBD
#BIT3,aRXCSR
X7,11ME
ALBD

ALBD:

BEQ
ERROR
SCOPE
TSTA
TSTAA

BIT

AT30:

30
AT31
100.
AMBA

#BIT10,3RXCSR

;SHOULD HAVE BEEN SET

sCLEAR SUPERVISORY XMIT DATA
sDELAY

;TEST SUPERVISGRY RECEIVE DATA

T R R RN PN R R R T PR RN E NN RN SRR RN RN R RRRRRRYERRROEROERRIRTTRY

sTEST NUMBER
sADDRESS OF NEXT TEST
sITERATION COUNT
;SCOPE ENTRY POINT
:

*
.
.

100000

170212

000010
012122

170176

AMBC:

BIT

AMBC

sCLEARED BY PREVIOUS READ

AMBE
#BIT3,aRXCSR
%7,11ME

:1=0 TRANS OF SUP REC DATA
sDELAY

PBITIS,9RXCSR

;TEST MODEM INTERRUPT

170240

170164

;SET SUPERVISORY XMIT DATA
;DELAY
sTEST SUPERVISORY RECEIVE DATA

sTEST THAT SUP REC DATA TRANSISTIONS SET MODEM INTERRUPT
AMBA:
BIC
#BIT3,SRXCSR
sCLEAR SUP REC
JSR
X7,11ME
sDELAY
BIS
#BIT3,3RXCSR
sSET SUP REC
JSR
X7,T1ME
sDELAY
BIT
#BIT15,3RXCSR
;TEST MODEM INTERRUPT
BNE
AMBB
sMODEM INTERRUPT SHOULD BE SET
ERROR
BR
AMBE
AMBB:
BI17
#BIT15,3RXCSR
;MODEM INTERRUPT SHOULD BE

100000

.
.
B
B
“

;TEST SUPERVISORY RECEIVE DATA.

000010
012122
000010
012122
100000

BEQ
ERROR
BR
BIC
JSR

mMmm -

:SHOULD HAVE BEEN CLEAR
s SCOPE

R N N R T R N N N

X=X+1

170226

100. ,AMB,0
AMB,100.,\X+140,\X+2,
\X+1

A R R

170252

I I

;SHOULD MAVE BEEN CLEAR

#BIT13,aRXCSR
X7,T1ME
#BIT10,3RXCSR
ALBC

042777
004737
052777
004737
032777
001002
104003
000433
032777

A A

BIS
JSR
BIT
BNE

170276

000030

R R

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

BIT

BEQ
ERROR

170324

170310

R R

;TEST THAT SUPERVISORY RECEIVE DATA (BIT 10 RXCSR) SETS/CLEARS
;WHEN SUPERVISORY XMIT DATA SETS/CLEARS.
ALBA:
BIC
#BIT3,aRXCSR
;CLEAR SUPERVISOR XMIT DATA
JSR
%X7,T1ME
sDELAY

ERROR

000010
012122

. SCOPE

100.,ALB,0
ALB,100.,\X+1+0,\X42,\X+1

R RR R

104003

2101
2102
2103
2106
2105

2106

;

011042

011044
011052
011056
011064

2100

x
;
|

042777
004737
032777

2092
2093
2094
2095

2097
2098
2099

011016
011026
011030

011036
011040

2091

AOBD:

000027
011120
000144
011016
000027

2089
2090

2096

104003
104012

026

-MAIN.

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

10:53

CZIDLAH.PI
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2](.0

2141
2142
2143
2144
2145

011224
011226
011230
011232
011240
011244
011252
011254
011256
011260
011260

011260
011262
011264
011266

2146

001002
104003
000412
052777
000010
004737 012122
032777
100000
001001
104003
104012 °

170136
AMBE:

100031
011364
000012
011270
000031

011270
011276
011304
011306
011314
011316
011324
011332
011336
011340
011342
011344
011350
011352
011354

012737
012777
104011
022777
001422
017737
012737
004537
001620
016306
000006
004537
001606
016323
000006

2164
2165
2166

011360
011362
0})364

016273
104012

011356

AMBD:

BNE
ERROR
BR
BIS
JSR
BIT
BNE
ERROR
SCOPE
TSTA
TSTAA

MLAAAA LR R A

2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163

170150

PAGE 39

AT31:

000340
177777

177776
170110

000200

170100

170072
000200
004624

001606
001620

004624

104015

AMBD

;SHOULD BE SET

AMBE
#BIT3,aRXCSR
xX7,T1ME
#BIT15,9RXCSR
AMBE

;C=1 TRANS OF SUP REC DATA
;DELAY
;TEST MODEM INTERRUPT
: SHOULD BE SET

10.,ABA,(D
ABA,10.,\X+14CD,\X42,\X+1

100031
AT32
10.
ABAA
X=X+1

P T

N N N

R R R

R R R 2R R R

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

N R R A N R R R R N R NN N R N R RN N AR R

I I

M TrTs

’
.
.
.
.

R RN A IR RO PR R O RTRIOITIEETSY

;TEST THAT RESET CLEARS ALL TXCSR BITS, AND SETS BIT 7 (READY)
ABAA:
MOV
#PRTY7,PSW
;SET PRIORITY 7.
MOV
#-1,3TXCSR
;SET ALL POSSIBLE BITS IN TX(CSR
SRESET
;ISSUE RESET TO CLEAR BITS
CMP
#BIT7,QTXCSR
;SEE IF ONLY BIT 7 IS SET.
BEQ
'‘ABAB
;BRANCH IF ONLY BIT 7 IS SET
MOV
@TXCSR,TXCSRT
;SAVE CONTENTS OF TXCSR
MOV
¥B1T17,TEMP
;MOVE EXPECTED TXCSR TO TEMP.
JSR
25,0ACNV
;GO TO OCTAL TO ASCII1 CONVERT.
TEMP
: SOURCE ADDR.
ATXSB
;DESTINATION ADDR.
6
:#OF DIGITS TO CONVERT.
JSR
%5,0ACNV
;GO TO OCTAL TO ASCII CONVERT.
TXCSRT
: SOURCE ADDR.
ATXWAS
;DESTINATION ADDR.
6
s#0F DIGITS TO CONVERT.
ERROR

ABAB:

ATXCSR
SCOPE
TSTA
TSTAA

sRESET FAILED TO CLEAR ALL BITS EXCFPI

10.,ACA,D

:BIT 7 - SEE PRINTOUT
: SCOPE

ACA,10.,\X+140,\X4+2,\X+1

;ttll't"'t't.'tttt""t.""'.""tl""t"t'.t.t'tt"..tt'tt'.'tt"t"tt"ttttt

000032
011534
000012
011374
000032

AT32:

‘

32
AT33
10.
ACAA
X=X+

s TEST NUMBER
+ADDRESS OF NEXT TEST
s 1TERATION COUNY
:SCOPE ENTRY POINT
;

.
.
.
.
.

;ttt't""tti"itt""!l"t"tltt't't!'t'l'tttttitttttttttt-tt"ta-ttfittt't't-'.'

34
012737
042777
012777
052777
005077

104020
104003 ,

012777

000340 ~177776
000002 170000
177777
167772
000004
167770
167766
000001

167754

sTEST THAT RESET CLEARS ALL RXCSR BITS EXCEPT DATA TERMINAL READY, RING
;CLEAR TO SEND,CARRIER DET

ACAA:

MOV
BIC
MOv
BIS
CLR

TIMETX
ERROR

MOV

#PRTY7,PSW
#BIT1,aRXCSR
#-1,3RXCSR
¥4 ,3TXCSR
aTXBUF
#1,31XBUF

;SET PRIORITY 7
sCLEAR DATA TERM.READY
;SET ALL POSSIBLE BITS IN RXCSR
:SET MAINT BIT
: TRANSMIT A CHAR

s TIME OUT TX DONE
;ERROR DONE NOT SETTING

s TRANSMIT ANOTHER CHAR.

-MAIN.

MACYT1

CZDLAM. P

30AC1052)

2B-JUN=79

28-JUN=79 10:49

2185
011442
2186 011444
2187 011446
2188 011450
2189 011456
2190 011464
2191
011466
2192
011474
2193 011500
2194
011502
2195 011504
2196 011506
2197 011512
2198 011514
2199 011516
2200 011520
2201
011522
2202 011524
2203 011532
2204
011534
2205 011534

104017
104003
10401
017737
022737
001417
012737
004537
001620
016345
(©0000%
004537
001610
016362
000006
104015
016332
042777
104012

2207
2208
2209
2210
2211

100033
011614
000012
011544
000033

16773«
030002

001610
001610

030002
004624

001620

2212

000002

167656

011544
011550
011552
011554
011560
011564
011566
011570
011572
011574
011576
011604
011606
011610
011612
011614
011614

005077
104020
104003
(005077
105777
100002
104003
000407
104020
104003
032777
001001
104003
104011
104012

2233
2234
2235

011614
011616
011620

100034
012136
000001

2238

2239
2240

011622

SEQ 0040

TIMERX
ERROR
SRESET
MOV
(MP
BEQ
Mov
JSR
TEMP
ARXSB
6
JSR
RXCSRT
ARXWAS
6
ERROR1
ARXCSR
BIC
SCOPE
TSTA
TSTAA

ACAB:

AT33:

2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231

2236
2237

2213

2232

PAGE

004624

2206

011534
011536
011540
011562

10:53

011624
000034

167646
167636
167630

000200

167610

sTEST

dRXCSR,RXCSRT
#30002 ,RXCSRT
ACAB
#30002, TEMP
%5,0ACNV

%5,0ACNV

#BIT1,3RXCSR

;TIME OUT RX DONE
;ERROR DONE NOT SETTING
;1SSUE RESET TO CLEAR BITS.
sMOVE RXCSR CONTENTS TO RXCSRT
;SEE IF ONLY BITS 1,12,13 SET
;BRANCH IF ONLY BITS 1,12,13 SET.
;GO TO OCTAL TO ASCII CONVERT,
: SOURCE ADDR.
;DESTINATION ADDR.
:#OF DIGITS TO CONVERT.
;GO TO OCTAL TO ASCI! CONVERT.
: SOURCE ADDR.
;DESTINATION ADDR.
;#OF DIGITS TO CONVERT,
;RESET FAILED TO CLEAR ALL BITS EXCEPT

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

10.,ADA,CD
ADA,10.,\X+14CD,\X42,\X+1

100033
AT134
10.
ADAA
X=X+1

A A A

A A

THAT LOADING TXBUF

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

(TRANSMITTER BUFFER)

I mmmmmTTTM

.
.

I I, mMmmmm

CLEARS TXCSR BIT

.
.
.

TMTM

7 (READY)

AND WITHOUT MAINT SET THAT TXDONE SETS READY
ADAA:
CLR
3 TXBUF
;LOAD TXBUF
TIMETX
;TIME OUT TX DONE
ERROR
;ERROR, DCNE NOT SETTING
CLR
a1 XBUF
:LOAD TX BUF
1518
aTXCSR
;TEST TXCSR BIT 7 (READY BIT)
BPL
ADAB
;BRANCH IF BIT NOT SET.
ERROR
;ERROR. LOADING TXBUF FAILED TO CLEAR READY.
BR
ADAC
ADAB:
TIMETX
sWAIT FOR DONE
ERROK
:DONE NEVER SET
Bl17
#BIT7,3TXCSR
BNE
th
ERROR
;READY DID NOT SET
ADAC:
SRESET
SCOPE
s SCOPE.
TSTA
1.,ALA,CD
TSTAA AIA, 1., AX+140D,\X42,\X+!
B

AT34:

100034
AT35
1.

AlAA
X=X+1

;TEST NUMBER
;ADDRESS OF NEXT TEST
s 1TERATION COUNT

R T

R R

:SCOPE ENTRY POINT
)

T I

P R R P E R P R P R R R R RN R RN R TR RN RN R R RN RO RO

.
.
.

.
.

R RN R RN RO RRROETTYE

;TEST THAT TRANSMIT SPEEDS ARE ARRANGED IN ASCENDING ORDER BY CHECKING THMAT Tim¢
;70 READY BIT (TXCSR BIT 7) DECREASES AS A HIGHER SPEED 1S SELECTED.

MACYT1 30A(1052)
MAIN.
28=JUN-79
CZDLAH.P11
28-JUN-79 10:49

006352

PAGE 41
SEQ 0041

AJAA:

JSR

T(PES
MSETTX
MSETC

%7 ,DOTHIS

;TEST

THIS TEST SELECTED

-_0

v
b

rnono

H?O

HALT
JSR
MOv
TYPE

001566

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

sro

rnono

s
e

s
—

(=]

(=l

MS1

HALT

001570

JSR

%7 ,A1AS

ATAST,CTRY

;OUTPUT CHAR AND TIME.
;MOVE ELAPSED TIME TO CTR1.

MS2
HALT
JSR
MOV

AIAST,CTRZ

%7,A1AS

;OUTPUT CHAR AND TIME.

X7 ,ALAS

;OUTPUT CHAR AND TIME.
:MOVE ELAPSED TIME T0 CTR3.

%7 ,AIAS

;OUTPUT CHAR AND TIME
:MOVE ELAPSED TIME 10 CTR4

%7 ,AIAS

sOUTPUT (CHAR AND TIME
<MOVE ELAPSED iIME TO CTRS

X7 ,A1AS

;OUTPUT CHAR AND TIME
sMOVE ELAPSED TIME TO CTR6

X7,A1AS

;OUTPUT CHAR AND TIME
sMOVE ELAPSED TIME YO CIR7
sCHECK THAT CTRO THROUGH CTR7 CONTAIN
sDESCENDING VALUES
s TRANSMIT SPEEDS NOT ARRANGED IN
sASCENDING ORDER.
+ SCOPE

MOV
TYPE

001572

TYPE

;MOVE ELAPSED TIME

10 CTRZ2.

—

Ms3

oo
-

2241
011624
004737
22642
104001
011630
2243 011632
017653
2244
011634
017701
2245
011636 020163
22646 011640
177777
2247 011642 000000
2248 011644
004737
2249 011650 013737
104000
2250 011656
2251
011660 020173
2252
011662
000000
2253 011664
004737
225
011670 013737
104000
2255 011676
2256 011700 120203
‘00000
2257
011702
2258
011704
004737
2259 011710 013737
2260 011716
1040C0
2261
011720 020213
2262 011722
000000
2263
011724
004737
2264
011730 013737
104000
2265 011736
2266 011740 020223
2267 011742 000000
2268 011744
004737
2269 011750 013737
104000
2270 011756
2271
011760 020233
2272
011762 000000
2273 011764
004737
2276 011770 013737
104000
2275
011776
2276 012000 020243
2277 012002 000000
2278 012004 004737
2279 012010 013737
104000
2280 012016
2281
012020 020253
2282 012022
000000
2283 012024 004737
2284
012030 013737
2285 012036 004737
2286 012042 000402
104015
2287 012044
2288 012046 016372
2289 01205) 104012
2290
2291
012052 005037
105777
2292 012056
100575
2293 012062
2294 012064 0059377
105777
2295 012070
100375
2296 012074

10:53

HALT
JSR
MOV
TYPE
MS4
HALT
JSR
MOV
TYPE

001574

001576

AIAST,CTR3

AIAST,CTR4

MS5

HALT

JSR

001600

MOV
TYPE
MS6
HALT
JSR
MOV
TYPE

001602

Ms7
HALT
JSR

001604

MOV

AlAF:

012134

167332

167326
167320

ALAS:

JSR
BR
ERROR1
ETXTIM
SCOPE
CLR
1518
BPL
CLR
1518

BPL

AIAST,CTRS

AIAST,CTRG

AIAST,CTR7

%7,CMPT

ALAF

A1AST
aTXCSR
.=k

AT XBUF
81XCSR

:CLEAR ELAPSED TIME COUMTER.
;WAIT FOR TX READY.

—

TM
L=

10:53

NANAY
—
Lo o ol VI

= =00~

e ol
el el
—

LS LV TNT ST VTN

e e

2136
2140
21642
2144

PAGE 42

SEG 004/
AJASA:

CLR
JSR

a1 XBUF
%7,TIME

;LOAD
JWALT

1STB
BPL
RTS

aTXCSR
A1ASA
%7

;READY SET?
;BRANCH 1F READY NOT
JEXIT,

MOV
DEC
BNE
RTS
OPEN
TSTA
TSTAA

#15.,%0
%0
TIM1
%7

INC

000017

TIME:
TIM1:

AIAST:

NV
LN —O0

2 8 JUN=79
0:4
7
673
121
121
7
672

012700
005300
001376
000207
000000

A A LAY L ST VT, N1 VT, N
N AN NN NN N NN N

2297
2298
2299
2300
2301
2302
2303
2304

ooocooo

.MAIN.
MACY11 30A(1
CZDLAH P11
28-Ju

AIAST

TXBUF.
75 US

; INCREMENT ELAPSED TIME

COUNTER.

SET.

10.,ALA,Q
ALA,10.,\X+140,\X42,\x+1

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

000035
(012212
000012
012146
000035

AT35:

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

35
AT36
10.
:LAA‘

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

=X+

B
.
-

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

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

b o

ocooocococooco

:TEST THAT OUTPUTTING A CHARACTER WITH THE MAINTENANCE BIT SET (TXCSR BIT 2)
:RESULTS IN DONE BIT SETTING (RXCSR BIT 7) NO LATER THAN SO0 MSECS, AND

6
&
0

052777
005077
104016

000004
167236

105777

167220

000764

0
2

100402
104003

74
176

012200

012204
012206
012210

000405
104011

105777

100001
194003
194012

167240

s THAT

RESET

ALAA:

BIS

INSTRUCTION CLEARS
#BIT2,3TXCSR

CLR

ggbkv

1S1B
BM]
ERROR

ALAB:

167204

ALAC:

2212
2214
2216
2220

100036
012256
000144
012222
030036

AT36:

;TEST

012234
012236
012240
012244
012250

052777
005077

104017
104003
005777
105777
100001

;WAIT

aRXCSR
ALAB

1S1B
BPL
ERROR

aRXCSR
ALAC

TSTA

100. ,AMA,CD

SCOPE

RPN

000004
167162

167146

167140

167164

MAINTENANCE

500 MSECS.

s ISSUE RESET

TO CLEAR DONE BIT

<SEE IF DONE BIT IS CLEARED
;BRANCH IF DONE BIT IS CLEARED
;RESET FAILED TO CLEAR DONE BIT
: SCOPE

AMA,100.,\X+14(D,\X*2,\X+1

R R R RN E R N R NN R R

R R R R

R R P R R R R R R RN R

R RO

R RO RN RERERRRERRRSERRRERRRRRERRORRRERRETY

100036

s TEST NUMBER

AHAA1

:SCOPE ENTRY POINT

AT37
100.

THAT

BIT

sSEE IF DONE BIT IS SET
;BRANCH IF DONE BIT IS SET
;DONE BIT FAILED TO SET

sADDRESS OF NEX7 TEST
;1TERATION COUNT

X=X+
S

012222
012230

sLOAD TXBUF

ALAC

SRESET

sSET

9T XBUF

TSTAA
SRR

THME DONE BIT

R P

R R

P R PR R

DONE BIT

P R P R

N E RN R P R PR R R PR R R R E AR RN R E R RN RRRRRCEERRRREERRRRERRRRERREY

(RXCSR BIT

IS CLEARED BY READING RXBUF.

:DONE SET BY OUTPUTTING CHARACTER WITH MAINTENANCE BIT SET

AMAA:

.
.

(TXCSR BIT 2)

BIS
CLR
g;:g:x

#BIT2,3TXCSR
a1 XBUF

:SET MAINTENANCE BIT (TXCSR BIT 2)
sLOAD TXBUF
;WAIT FOR DONE BIT TO SET.

187
1STB

aRXBUF
dRXCSR

;READ RXBUF TO CLEAR DONE BIT
;SEE IF DONE BIT IS CLEAR

BPL

AMAC

+BRANCH

DONE

BIT

IS CLEAR

100037

10:53

PAGE

SEQ 0043
ERROR

AMAC :

SCOPE
TSTA
TSTAA

-—

—

NN
NP
Wo
oo

(=l=leleiiNelelo)

104003
104012

oo
NN
ooV
sSoooe

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

:READING RXBUF

; SCOPE

FAILED

TO CLEAR DONE BIT

100.,A0A,CD
ADA,100.,\X+14CD,\X42,\X+1

"‘.'.l""'l'"'l""'"'""""""

AT37:

012366
000144
012272
000037

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

100037

;TEST NUMBER

AT40
100.

;ADDRESS OF NEXT
s ITERATION COUNT

AO:A1

:SCOPE

X=X+

TEST

.
.

ENTRY POINT

:"'i""""""""'.""ll"""'"""'.l.'

:TEST

004737
052777
005077
005037
032777
001402
005237
105777
100367

023727
001002
104003
000405
032777
001401
104003

005777
104012

003004
000004
167112
001620
004000

004000

RECEIVER

167114

167072

ADAA:

SETS WHEN

AOAB:

167034

167026

ADAC:

CLR
CLR

aTXBUF
TEMP

s TRANSMIT CHAR
;CLEAR BUSY INDICATOR

BEQ
INC

ADAB1
TEMP

T1S1B

000040
012670
000001

AT40:

MAINT

#BIT11,3RXCSR

;1S RECEIVER ACTIVE

aRXCSR

;SEE

AOAB
TEMP,#0
AOAC

;BRANCH IF CLEAR
sYES, REMEMBER THAT
IF

DONE

SET

;RECEIVER ACTIVE NEVER SET

#BIT11,3RXCSR

;DID DONE

;EAPE

aRXBUF

;CLEAR RX DONE

RS S

SET

;:DID RECEIVER ACTIVE SET

AOAD

CLEAR ACTIVE

:NO, RECEIVER ACTIVE DID NOT

CLEAR

1.,AQA,0
AQA, 1., \X*140,\X42,\X+1
A

40
AT41

sTEST NUMBER
sADDRESS OF NEXT

AOAA‘
X=X+

;SCOPE ENTRY POINT
3

)

012576
000040

;SET

BIT

BEQ
ERROR

AOAD :

AND

SINIT IF C-D DEVICE

#BIT2,3TXCSR

BPL
CMP
BNE
ERROR
BR

000000

STARTS

%X7,CDINIT

BIT

ACAB1:

CHAR

JSR

BIS

TSTA
TSTAA

012374

ACTIVE

;CLEARS WHEN RECEIVER DONE SETS

001620
167060

001620

THAT

.'l""ttt'.".l""t"""'t!tt'

sITERATION COUNT

TEST

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

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

(=lelelelelelelelolels]

12376
12402
12404
12406
12410
12412
12414
12416
126422

12430
12432

004737
104001
017625
017701
020163
177777

000000
004737
013737
104000

020173

;TEST THAT RECEIVF SPEEDS ARE ARRANGED IN ASCENDING ORDER BY CHECKING THAT TIME
sELAPSED TO DONE BIT SETTING (RXCSR BIT 7) DECREASES AS A HIGHER SPEED
;THIS 1S NOT DONE IN MAINTENANCE MODE TX AND RX
;POTS MUST BE STEPPED TOGETHER
;1S SELECTED.

006352

AQAA:

JSR

TYPES
MSETRX
MSETC

%7,D0THIS

;CHECK

%7 ,AQAS

;OUTPUT CHARACTER AND TIME DONE BIT

THIS TEST

10 BE DONE

H?O
012624
012666

HALT

001566

JSR

?Og

YPE

MS1

AQAST,CTRO

:MOVE ELAPSED TIME

TO CIRQ

.
.

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

oSO

012634
012436
012442

N et

26409
2610
26411
2612
2413
26414
2415
2416
2617
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
26429
2430
2431
2432
2633
24634
2435
2636
2437
2438

2439
2440

2441
2442
2443
2444
2445
2646

2647
2448
2449
2450
2451
2452

2453
2454
2455
2656
2457
2458
2459
2460
2461
2462
2463
2464

012620
012622

012624
012630
012634
012636
012642
012646
012652
012656
012662
012664
012666
012670
012670

000000
004737
013737

012624
012666

106000
020203
000000
004737
012624
013737 012666
104000
020213
000000
004737
012624
013737 012666
104000
020223
000000
004737 012624
013737 012666
104000
020233
000000
004737 012624
013737 012666
106000
020243
000000
004737 012624
013737 012666
104000
020253
000000
004737 012624
013737 012666
004737 014564
000402
104015
016434
104012

005037
105777
100375

005777
005077
004737
005237
105777
100371

000207
000000

012666

166560

166550
166550

012122
012666

10:53

PAGE 44

SEQ 0044
HALT
J3R
MOV
TYPE

001570

100041

013034
000012

AQAST,CTR1

;OUTPUT CHARACTER AND TIME DONE BIT
;MOVE ELAPSED TIME 10 CTR1

%7 ,AQAS

;OUTPUT

MS?2

HALT

JSR

001572

MOV
TYPE

AQAST,CTR2

CHARACTER AND

TIME DONE BIT,

(HARACTER AND

TIME

:MOVE ELAPSED TIME

TO (TR2.

MS3

HALT

JSR

001574

MOV
TYPE
MS4
HALT

JSR
MOV
TYPE

001576

%7 ,AQAS

AQAST,CTR3

;OUTPUT

:MOVE ELAPSED TIME

TO CTR3.

DONE BIT

%7 ,A0AS

AQAST,CTRS

MS5S

HALT
JSR
MOV
TYPE
MS6
HALT

001600

JSR
MOV
TYPE

001602

X7,AGAS

AQAST,CTRS

%7 ,AQAS

AQAST,CTR6

MS7

HALT

001604

JSR

%7,AQAS

JSR
BR

X7,CMPT

MOV

AQAB:

AQAS:

AQASTY,CTR7

ERROR1
ERXTIM
(LR
1518

187

AQASA:

CLR

AQAST:

OPEN

TSTA
TSTAA

AT41:

a!:csn

:CLEAR ELAPSED TIME COUNTER AQASY
sWAIT FOR TX READY.

aRXBUF
aTXBUF

+CLEAR DONE BIT IF SET
:LOAD TXBUF

AQAST
SRXCSR

: INCREMENT ELAPSED TIME COUNTER
DONE SET?
:g:??cn IF DONE NOT SE1

‘ELAPSED TIME COUNTER

10.,ARA,CD
ARA, 10, ,\X*14CD,\X42,\X¢)

R R RN R R R TR

100041
AT42
10.

sDESCENDING VALUES.
sRECEIVE SPEEDS NOT ARRANGED IN

AQAST

AGASA

RIS

sCHECK THAT CTRO THROUGH C(TR3 CONTAIN

sASCENDING ORDER.
: SCOPE

X7,TIME

JSR

INC
1S18
BPL

166526

AGAB

SCOPE

BPL

SRR

012670
012672
012674

%7 ,AQAS

NP RN RPN RN R RN R RN R R RN RN RN R RRERRRERRRRRERRRTEOROARRREEROEROERRORERERRERYTY

s TEST NUMBER
+ADDRESS OF NEX1 TES!
s ITERATION COUN?

.
.
.

012676

2500

2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513

2514
2515
2516
2517
2518
2519
2520

SEQ 0045

012700
000047

oo
NN NN

BBNWWHND
- —-00
Ssrooonvoorocosro

NNNNNNNNNN
N~

=lelelololelelolelele]

004737
004737
017737
032737
001002
104003
104012

005737
100402
104003
104012

032777
001002
104003
104012
004737
032777
001402
104003
104012
032777
001401
104003
104012

052777
005077

2496

2497
2498
2499

PAGE 45
ARAA
X=X4+1

;SCOPE ENTRY POINT

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

2465
2466
2467
2468
26469
2470
24671
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495

10:53

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

013032
013034
013034
013034
013036
013040
013042

104016
000764
000207

s TEST

013014
013014

ARAA:

CORRECT OPERATION OF
JSR
JSR

166476

MOV

040000

BIT
BNE
ERROR
SCOPE
;a}

001612

166440

013014

100000

040000

166404

BIT

15)

FAILED TO SET WHEN OVERRUN SET

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

SET

;READING RXBUF

#BIT15,aRXBUF

(RXBUF

;OUTPUT

(HAR

CLEARED DATA OVERRUN

+WAIT

S00MS

.*6

;TEST

THAT ERROR CLEARED

lB{IIk.aRIBUF

;TEST

THAT OVERRUN CLEARED

- @

000004
166370

166372

ERROR
SCOPE

BIS

ARAS:

CLR
DELAY

500.

RTS
TSTA
TSTAA

#BIT2,37TXCSR

aTXBUF

s SCOPE

sSET MAINTENANCE BIT

sLOAD TXBUF
sDELAY 500 MSECS

X7
SEXIT
10, ,ATA,CD
ATA,10.,\X*14(D, \X*2,\X*1

:'t't't'tt"tl'ttttt"'""tt"t""."t'l"ttt.ttttt't"tttqo"Qtt.t"tt-tct.t'-

AT42:

100042
AT43

TEST NUMBER
:ADDRESS OF NEXT TEST

AI:A‘

;SCOPE ENTRY POINT

10.

X=X+
R

THAT

R R

R RN

R R N R N PR N R

TRANSMITTER

.
.

; ITERATION COUNT

P RN R PR RN RN R R RN R AR R R R TR R RN R R RN RN R ERRORERRSERROERCERRERRERTS

1S ABLE

INTERRUPT.

THE

INTERRUPT

;1T WILL HAVE OCCURRED AT THE CORRECT VECTOR.
7 ,0VRLAY
JSR
;GO TO OVER LAY ROUTINE
STTXV
sSET TX INTERRUPT SERVICE

003614

000100
177776
000100

166332

042777

000100

166306

062777

000100

166276

104012

CLEAR DONE

THAT ERROR BIT WAS SET

;ERROR BIT

X7 ,ARAS

géé

;:SEE

.46

BEQ
ERROR
SCOPE

CONTENTS

RXEUFI

BNE

BIT

RXBUF

;SEE 1F DATA OVERRUN BIT WAS SET
sBRANCH IF BIT WAS SET

#¥BIT14,3RXBUF

JSR

166420

sTEST

013110
062777
005037
052777
000240
104003

:SAVE

500 MSECS
500 MSECS

#BIT14,RXBUFT
.46

BIT
gggg:

104007

@RXBUF ,RXBUFT

gggg:

040000

(RXBUF BIT 14)
;OUTPUT C(HARACTER AND WAIT
;OUTPUT CHARACTER AND WAIT

100042
013122
000012
013054
000042

004737

X7 ,ARAS
X7 ,ARAS

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

DATA OVERRUN BIT

ATAA:

166320

ATAB:
ATAC:

ATAC
BIC
CLR
B1S
NOP
ERROK
BIC
SCOPE
BIC

#BIT6,aTXCSR
PSW

#B.T6,3TXCSR

#B1T6,aTXCSR

#BIT6,3TXCSR

;10 ATAC

sDISABLE TX INTERRUPT
sSET PROCESSOR PRIORITY 10 Q
SENABLE TX INTERRUPT

JPEADY DID NOT CAUSE AN INTERRUP!
+ SCOPE
JHERE IF

INT, DISABLE Tx IN!

SERVICED,

e
e
—

s
e
—,

OO
—
WA

NN W

—

N
—y

022626
00077¢

100043

10:53

PAGE

SEQ 0046
POPSP?

BR
TSTA
TSTAA

ATAB
1000, ,AUA,CD
AUA,1000. ,\X+14CD,\X#2,\X+1

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

AT43:

013200
001750

"'lt""l"ltil'l"tll""lt't"'

100043

;TEST NUMBER

AT44

;ADDRESS OF

1000.
:UAA'|

TEST

: 1TERATION COUNT
: SCOPE ENTRY POINT

.
B

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

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

NN
NN NN NN NN
P

:TEST THAT READY DOES NOT CAUSE AN INTERRUFT WHEN THE PROCESSOR 1S

jelelolelelelote)

;AT

THE

001426
000100
000100

177776
166242
166234

AUAA:

000100

166224

AUAB:
AUAC:

174

SAME

2T1év
U

PRIORITY

MOV

BIC
Blg
NO
BIC
SCOPE

THE

TXLVL,PSW

#BIT6,aTXCSR
#BIT6,aTXLSR
#BIT6,aTXCSR

POPSP?

ERROR
BR

—=OV0~NO NS W

AN LR

ot el Va1 ST VT ST VT VT V)

o VNN

w el

=leloleBNelelsle)

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

TSTA
TSTAA

TRANSMITTER

INTERRUPT

REQUEST

:SET

;SET

PROCESSOR PRIDRITY

;ENABLE

INTERRUPT

SERVICE

LEVEL

SAME

PRIORITY

INTERRUPTS

;0K 1F NO INTERRUPT OCCURS.
DISABLE
: SCOPE
SHERE IF INTERRUPT OCCURS. POP STO({K

;TX INTERRUPTED WITH PROCESSOR AT
:PRIORITY AS THE TRANSMITTER

AUAB
10.,AVA,CD
AVA,10.,\X+14CD,\X+2,\X+1

INTERRUPTS
TWICE

SAME

:tttt!'t'tt't""lt't""'t't!l'tctt'ttttt'tt.lttttttttttta

tfittnt-'ttt"to'otc.t'

100044

AT44:

013264
000012
013214

100044

;TEST

10.

;ITERATION COUNT

AT4S5

AVAA1
X=X+

000044

NUMBER

;ADDRESS OF NEXT TEST

:SCOPE
:

ENTRY POINT

.
»

;'Q't.tt"""'t't'tt'tt"Ol't'tl't"t'tttttttt'.tttttt'.t..

ttttttttttf.tot't'tt

;TEST

013210
013212
013214
013222
013230
013236
013244
013246
013250
013252
013254
013262
013264
013264

162737

052777
000240
104003
000401
022626
042777
104012

TRANSMITTER

INTERRUPTS WHEN PROCESSOR

;LOWER THAN THE TRANSMITTER INTERRUPT PRIORITY.

104007

013252
042777
013737

THAT

SYT;V

000100
001426
000040
000100

000100

166172
177776
177776
166150

166132

AVAA:

AVA
BIC
MOV

SUB

AVAB:
AVAC:

812
NO
gRROR
R
POPSP2

BIC

SCOPE
TSTA
TSTAA

sSET TX

IS AT

INTERRUPT SERVICE

#BIT6,aTXCSR

;DISABLE

#40,PSW

;LOWER THAN TX PRIORITY

TXLVL ,PSW

#B1T6,aTXCSR
ke
VA
#BIT6,aTXCSR

PRIORITY ONE

INTERRUPTS

:SET PROCESSOR PRIORITY

;ENABLE

TO AvAB

TO ONE LEVEL

INTERRUPTS

:1X FAILED TO
+HERE IF
sDISABLE

LEVEL

INTERRUPT

INTERRUPT OCCURS.
TX INTERRUPIS

POP STOCK

TwICE

: SCOPE
100, ,AWA,CD
AWA,100.,\X*1+(D,\X42,\X*1

:".""'.""'i."""""".i"""".'l.."'Q.l".."t'l'lt!'l"'.'l.""l'."

013264
013266
013270
013272

100045
013362
000144
013274
000045

AT4S:

100045

sADDRESS OF

AHAA1

sSCOPE

100,

X=X+
CHR R

’

sTEST NUMBER

AT46

sITERATION COUNT

TEST

ENTRY POINT

RN IR R ERNRNERRIRTRNRRNRRRRRNRRERORNRRNRRRERRRRRRRRRRRROARRRRRRRROARRORROEOERRRRRRCOERRORROERTY

.
.

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

no sSnoonvo
oo e~

NN N N PO N

~ NN

2585
2586
2587
2588
2589
2590
2591

w NN
= OO~~~

2582
2583
2584

013362

2602

013362
013364
013366
013370

2603
2004
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627

2628
2629
2630
2631
2632

104012

SEQ 0047
THAT

TRANSMITTER

DOES

NOT

;OCCURRED AND HAS BEEN SERVICED,

104007

013334
062777
005037
052777
000240
104003
042777
012777
012716
000002
000240
000764
022626
104003
000761

2592
2593
2594
2595
2596
2597

2598
2599
2600
2601

PAGE

;TEST
Ll L IV TV T T T T

2577
2578
2579
2580
2581

10:53

AWAA:

000100

166106

000100

166074

000100

166062

177776

013354
013350

166062

STTXV
AWA(C

BIC
CLR

sé;

AWAB :

ERROR

BIC

SCOPE

AWAC:

MOV
:?Y

AWAD :

NOP
BR
POPSP2
ERROR
BR

AWAE :

TSTA
TSTAA

#BIT6,TXCSR
PSW

#BIT6,aTXCSR

FAWAE ,@TXVTR
FAWAD ,a%6

REINTERRUPT
JSET

THE

INTERRUPT

INITIAL

SERVICE

;DISABLE TX INTERRUPTS
;SET PROCESSOR PRIORITY
;ENABLE

INTERRUPTS

INTERRUPT

HAS

TO AWAC

T0 0

s TRANSMITTER FAILED TO INTERRUPT
;DISABLE

: SCOPE

;HERE IF
;POINTER

;0K

AWAB

AFTER

INTERRUPTS

INTERRUPT OCCURS. CHANGE EXIT
TO AWAD AND EXIT INTERRUPT

NO INTERRUPT REOCCURS.

;HERE IF INTERRUPT REOCCURS
;TX REINTERRUPTED AFTER RTI

AWAB

10.,AXA,CD
AKA,10,,\X+14CD,\X42,\X+1

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

100046
013446
000012
013406
000046

AT46:

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

100046

;TEST NUMBER

AT47
10.

;ADDRESS OF NEXT
:1TERATION COUNT

AX:A1

TEST

.
.

:SCOPE ENTRY POINT

X=X+

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

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

;TEST THAT RECEIVER CONE BIT 1S ABLE TO INTERRUPT. If

013372
013376
013400
013402
013406
013414
013420
013426
013430
013432
013434
013436
013444
013446
013446

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

013446
013450
013452
013454

000047
013530
000012
013466
000047

/ :SERVICED IT WILL HAVE OCCURREC AT THE CORRECT VECTOR.

003614

JSR

EIR;V

014544
000100
177776
000100

000100

165774

AXAA:

165762

165744

AXAB:

AXAC:

7,0VRLAY

THE IN _RRUPT

;G0 TO GVERLAY ROUTIN:

sSET RX

INTERRUPT SERIVCE

1O AXAB

JSR

7,STRXD

:SET RX DONE BIT

CLR

PSW

.SET PROCESSOR PRIORITY 10 0

BIC

#B1T6,3RXCSR

gég

#B1T6,3RXCSR

ERROR
BR
POPSP2

AXAC

BIC

SCOPE
1STA
TSTAA

:UISABLE RX

sENABLE RX

INTERRUPTS

sRX FAILED TO INTERRUPT

#B116,3RXCSR

+HERE

;DISABLE

: SCOPE

INTERRUPT OCCURS
INT EN

10, ,AX1,0
AX1,10.,\X+140,\X42,\X*1

:'.f"'."""""'""."""'"'."."...Q".'.'l"l...'l"ilt".‘lt""""t'l

AT47:

47
AT50

s TEST NUMBER
sADDRESS OF NEXT TEST

X=X+

10.
A!|A1

.
.
.
.

s ITERATION COUNT
:SCOPE ENTRY POINT
.

:"ll't"".'l""'I""'I"'.'.'l""".Q'.l"."ll'..li!l.llt.tl.'ti'.-|||tt||

;TEST THAT MODEM INTERRUPT BIT
013456
013462

004737
104006

003614

;SERVICED

IT WILL HAVE

JSR

STRXv

IS ABLE TO INTERRUPT.

OCCURRED Al

7 ,OVRLAY

THE

CORRECTY

VECTOR.

+G0 TO OVERLAY ROUTINE
sSET RX

INTERRUPT

THE

SERIV(E

INTERRUPT

10 AxAB

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

13666
13670

013516
062777
005037
052777
106016

000044
177776
000044

PAGE 48
SEQ 0048

165714

AX1B
BIC
CLR
géSAv

AX1A:

165702

000005

104003

000401
022626
042777
104012

000040

165662

;MODEM FAILED
JHERE

#B1T5,3RXCSR

INTERRUPT

INT

;TEST NUMBER
;ADDRESS OF NEXT
;ITERATION COUNT
;SCOPE

=X+
A

TO INTERRUPT
CCCURS

1000.,AYA,CD
AYA,1000.,\X+14CD,\X#2,\X+1

100050
ATS1
1000.

;DISABLE

:YAA1

AR AR

ENTRY

.
.
B

TEST

POINT

”

22222223

ITmTTMTT TM

;TEST THAT RECEIVER DONE BIT DOES NOT CAUSE AN INTERRUPT WHEN THE PROCESSOR
;1S AT THE SAME PRIORITY LEVEL AS THE RECEIVER INTERRUPT REQUEST LEVEL

104006

104012
022626
104003
000771

BIC
SCOPE
TSTA
TSTAA
RE

;DISABLE MODEM INTERRUPTS
;SET PROCESSOR PRIORITY 10 0
;ENABLE MODEM INTERRUPTS,RQ TO SND

AX1C

POPSP2

AX1C:

AT50:

013612
001750
013550
000050

013604
004737
042777
013737
052777
000240
042777

ERROR
BR

AX1B:

100050

K44 ,QRXCSR
PSW
HL4 ,ARXCSR

il:gv

;SET

014544
000100
001422
000100

165632
177776
165616

AYAA:

000100

165606

AYAB:

JSR

X7,STRXD

BIC

#BIT6,aRXCSR

MOV
862

RXLVL,PSW
¥BI116,aRXCSR

N
BIC

SCOPE
POPSP2

AYAC:

ERROR
BR
TSTA

ATS51:

100051

013702
000012
013632
000051

#BIT6,aRXCSR

INTERRUPT

SERVICE

TO AYAC

:SET RX DONE BIT

;DISABLE

INTERRUPTS

:SET PROCESSOR PRIORITY SAME AS RECEIVER'S
sENABLE RX INTERRUPTS
;0K

NO INTERRUPT.

:SCOPE
SHERE IF

AYAB
10.,AZA,CD

TSTAA

SRS

DISABLE

INTERRUPT OCCURS.

INTERRUPTS

POP STOCK

sRX INTERRUPTED WITH PROCESOR AT SAME
;PRIORITY AS THE RECEIVER

TWICE,

AZA,10.,\X+14CD,\X#2,\X+1
S

100051
ATS52

I I I

mmMmm

;TEST NUMBER
;ADDRESS OF NEXT TEST

10.

AZAA‘
X=X+

.
®

sI1TERATION COUNT

:SCOPE ENTRY POINT
:

.
-

:Q.ttttt"""tt"'i"""it"."'t""t't'ttti'tl.tt.t'.t'tttt't'-tttt't-t"'o-'

;TEST THAT RECEIVER DONE BIT CAUSES INTERRUPT WHEN PROCESSOR IS AT PRIORITY
;ONE LEVEL LOWER THAN THE RECEIVER'S INTERRUPT REQUEST LEVEL
S;Rgv
sSET RX INTERRUPT T0 AZAB

104006

N
N W

—d

N NNV

052777
000240

000100
001422
000040
000100

AZA

162737

014544

—, ot

013670
004737
042777
013737

srNNOo

= s s e<
N NN

orNNO

WVIWAWW

(=lejlelelelelelelelele]

2687
2688

WY
ALAV LV]

NN N N N N N N e N
NN NN

L————

Ooooo =leloleleYe)
OCOO0O0

2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
- 2665
2666
2667
2668 013612
2669
2670 013612
2671
013614
2672
013616
2673 013620
2674
2675
2676
2677
13622
2678
13624
2679
13626
2680
13632
2681
13640
2682
13646
2683
13654
2684
13662
2685
13664
2686

10:53

AZAA:

BIC
MOV

SUB
BIS

104003

000401
022626

JSR

AlAB:

NOP
ERROR
BR
POPSP2

%X7,STRXD

sSET RX DONE BIT

#B1T6,aRXCSR
RXLVL ,PSW

sDISABLE RX INTERRUPTS
;SET PROCESSOR PRIORITY ONE

AZAC

sRX FAILED TO INTERRUPT Wllw PROCESSOR A
;PRIORITY ONE LEVEL LOWER THAN RETEIVER®S
+HERE 1F INTERRUPT OCCURS

#40,PSW
#BIT6,IRXCSR

LEVEL

;LOWER THAN RECEIVER'S PRIORITY
+ENABLE RX INTERRUPTS

B e

e el el

CONO VNN —

NNNNSNNNN

~N~N ~Oo

NNN~N

—

i s

NN NN
NN

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

MACY11
(=lelole BNeleleYe)

MAIN.
CZDLAH

LS LN T ST STNTNT,Y

)36

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

42777
104012

000100

10:53

165510

PAGE

49
SEQ 0049

AZAC:

BIC
SCOPE
TSTA
TSTAA

#BIT6,aRXCSR

“ ;DISABLE
;SCOPE

INTERRUPTS

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

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

100052
014000
000144
013716
000052

ATS52:

t'"'l"'lt."l"ltl"'t"'.ll"

100052
ATS53
100.

"t'

;TEST NUMBER
;ADDRESS OF NEXT TEST
;1TERATION COUNT

:AgAI

; SCOPE

=X+

ENTRY

.
.
.

POINT

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

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

013712
013716
013720
013722
013730
013736
013740
013742
013750
013752
013760
013764
013766
013770
013772
013774
013776
014000
014000
014000
014002
014004
014006

004737
104006
013752
042777
052777
000240
104003
042777
104012
012777
012716
000002
000240
000764
022626
104003
000761

;TEST THAT RECEIVER DOES NOT INTERRUPT AFTER THE INiTIAL INTERRUPT HAS
:OCCURED AND DONE BIT HAS NOT BEEN CLEARED
JSR
%7,STRXD
:SET RX DONE BiT

014544

AABA:

000100
000100

165460
165452

000100

165440

AABB:

013772
013766

165440

AABC:

i:gév

BIC

gég

ERROR

;SET

#BIT6,aRXCSR

SERVICE

70 AABC

;DISABLE RX INTERRUPTS

;ENABLE

#BIT6,aRXCSR

;DISABLE RX INTERRUPTS
; SCOPE
;HERE IF INTERRUPT OCCURS. CHANGE
sAABE, SET EXIT POINTER TO AABD
;EXIT INTERRUPT SERVICE
;0K IF NO INTERRUPT REOCCURS

#AABE ,aRXVTR
FAABD ,3%6

AABD:

AABE:

POPSP?2

AABB

TSTAA

INTERRUPT

#BIT6,aRXCSR

BIC
SCOPE
MOV
MOV
RTI
NOP

ERROR
BR
ISTA

AABB
100.,ABB,
(D

INTERRUPTS

:RX FAILED TO INTERAUPT

SHERE

SERVICE

INTERRUPT REOCCURS

;RX REINTERRUPTED AFTER RT]

ABB,100.,\X+14CD,\X+2,\X+1

:'..'.'...".'..'."".'."'."."""."....‘..'.".."'....Q"".".'t".

100053
014040

AT53:

000144
014010
000053

'.tt.t

100053
AT54

100.

;TEST NUMBER
sADDRESS OF NEXT TEST

:SCOPE ENTRY POINT

s 1TERATION COUNT

A98A1
X=X+

.
.

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

014010
014014
014022
014026
014030
014032
014036
014040
014040

004737
017737
105777

100401
104003
005777
104012

014544

165370
165362

165354

001610

;TEST THAT READING RXCSR DOES NOT CLEAR DONE BIT (RXCSR BIT 7 )
ABBA:
JSR
X7,STRXD
:SET _RX DONE BIT
MOV
aRXCSR,RXCSRT
;SAVE CONTENT OF RXCSR
1518
aRXCSR
sSEE IF DONE Bl7 IS CLEAR
g:;oa
ABBB
:BRANCH IF DONE BIT IS NOT CLEAR
ABBB:

187

aRXBUF

TSTAA

ACB,100,,\x+1+CD,\X42,\X+1

SCOPE
TSTA

100.,ACB,CD

sCLEAR DONE BIT

+ SCOPE

SET

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

014040
014042
014044
014046

100054

014124
000144
014054
000054

AT54:

100054
AT55
100.
A(BA1
X=X+

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

.
.
.

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

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

NN~~~ NN~

PR
NI PO NN nono

037

54
55

57
58

014050
014052
014054
014060
014064
014072
014076
0146104
01
01
01
01

014124
014126
014130
014132

104006
014112

004737
004737
062777
005037
052777
000240
104003
000401
022626
062777
104012

10:53

PAGE

SEQ 0050
;TEST

014544
014544
000100
177776
000100

000100

ACBA:

THAT DONE
STRXV
ACBB
JSR

JSR
BIC
CLR

165316
165304

165266

50
INT

WITH ERROR SET
;SET RX INTERRUPT

X7,STRXD

;SET

%7,STRXD
#BIT6,aRXCSR
PSW

Ség

ACBB:
ACBC:

CAN CAUSE

DONE

SERVICE

TO A(BB.

BIT

;SET RX DATA OFLOW
;DISABLE RX INTERRUPTS
;SET PROCESSOR PRIORITY 10 0

#BIT6,aRXLSR

;ENABLE

g:ROR

POPSP2
gégPE

#BIT6,aRXCSR

TSTA
TSTAA

3.,ADD,CD
ADD,3.,\X414CD,\X42,\X+1

INTERRUPTS

;RX DONE

FAILED TO CAUSE

;HERE

INTERRUPT

OCCURS.

POP STOCK

TWICE

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

100055

AT55:

014146
000003
0146140
000055

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

100055

;TEST NUMBER

AT56

“

;1TERATION COUNT

ADgA‘
x:

;ADDRESS OF NEXT TEST

:SCOPE ENTRY POINT

;

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

0146134
014140
014144
014146
014146

004737

004537
104012

sDATA TEST USING NORMAL CONFIGURATION
JSR
X7.CDINIT
JINIT IF C-D DEVICE

003004
005120

ADDA:

000056
014240
000003
014162
000056

AL S

3..APB,0
APB,3..\X#1+0,\X#2,\X+1

56
ATS?

004737
110137
004737
110177
104017
104003
117737
104004
005337
001355

004556
001562
005530

001566

001560

I ImMmMmm

.
#

:SCOPE ENTRY POINT

b
Al

I IS

;DATA TEST USING JUMPER CONNECTOR.
sUSES SPECIAL BINARY COUNT PATTERN FOR DATA. NO INTERRUPT.
JSR
7.INBIN
sINITIALIZE BINARY COUNT PATTYERN

APBA:
APBB:

MOV
TIMETX

ERROR
JSR

#1000, ,CTRO

7.GIBINP

MOVB

X1,CRBUFA

MOVB
TIMERX

%1,3TXBUF

Move

IRXBUF , CRBUF

DEC

CTRO

JSR

165202

165166

AR A

s1TERATION COUNT

=X+
RS

sTEST NUMBER
sADDRESS OF NEXT TEST

004452
001750

104012

5.DATTIST

:PEA1

004737
012737
104020
104003

ATS6:

LA ASA

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

JSR

SCOPE
ISTA
TSTAA
MR

014146
014150
014152
014154

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

ERROR

DATCHK

7.MASKIT

sSET CHARACTER COUNT
sTIME OUT TX DONE

sERROR DONE NOT SETTING
;GET BINARY CHARACTER

sSAVE CTHAR IN CRBUFA AND

JMASK OFF NON TRANSMITTED BITS

sLOAD CHAR.
:TIME QUT RX DONE

;ERROR DONE NOT SETYING
+LOAD RECEIVED DATA

s CHECK DATA

INTO CRBUF

:TESTED 1000 CHARACTERS

BNE

APBB

TSTA
TSTAA

3.,EXT,0
EXT,3.,\X4140,\X42,\X¢)

SCOPE

TO 1000

+BRANCH 1F

JYES.

SCOPE

NOT

;'.l'l""""""'""."\"""ll'lll""..'..!.lI.ti.i"tit"'ll!.ttti'tti"it

0038

.MAIN.

CZDLAH

2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811

MACY11

014240
014242
0146244
014246

2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856

10:53

000057
014324
000003
014250
000057

PAGE

SEQ 0051

ATS7:

57
AT60

;TEST NUMBER
;ADDRESS OF NEXT

§X}A1

;SCOPE

;1TERATION COUNT

=X+

ENTRY

*
B

TEST

POINT

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

""t

;TEST THAT RDR BUSY TURNS OFF KDR ENABLE
sWHEN RUN ON AN XOR TESTER

000005
005277
012737
005237
001375
005077
012737
105777
100404
005227
001372
104003
104012

2812
2813
2814
2815
2816
2817
2818

2819
2820
2821
2822
2823
2824
2825

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

EXTA:

014314

?gEET

MOV

2%:

INC
BNE

CLR
MOV

5%:

1S18B

BMI
ézg

3%:

ERROR
SCOPE
TSTA
TSTAA

6%:

014324

014324
014326
014330
014332

—

;RE?ET

;SET

#-10,3%+2

3%+2
2%

6%
g;\O

ENABLE,

SEE

RDE

TURNED OFF

;WALIT LOOP FOR XOR TESTER

aTXBUF
#-50000,38+2

aRXCSR

RDR

;SHIP OUT

RDR

midhand o

(HAR.

;TEST COMPLETE
sALLOW TIME FOR PDR LONE TC SET
;FAILURE OF

RDR DONE

TO SET

10.,Ex,0
EX,10.,\X+140,\X+2,\X+1

:ttt'tt'i"'t'ttttt't't't't"t.ltt'tttt'tttttt'atottttntttt-'t

000060
0146374
000012
014334
000060

AT60:

attt'tttt.t.to'.'t'

60
ATH1

10.

sTEST NUMBER
;ADDRESS OF NEXT TEST

B
B

;SCOPE ENTRY POINT

;1TERATION COUNT

El: .
=X+

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

l"".."

;TEST

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

000005

;BiT 1S CLEARED

004737
005277
105777

016544

012737
005227
001375

177770
177770

100001
106003

THAT WHEN RDR ENABLE

EXA:

RESET
JSR
INC

165042
165036

1ST8

014366

BPL
ERROR

1%:

3s:

aRXCSR

sSET RCVR DONE
sSET ENABLE

;DONE SHOULD CLEAR

+DONE NOT CLEAR

MOV

#-10,38+2

SCOPE
TSTA
TSTAA

3..EXA,O
EXA,3..,\X#1¢0,\X¢2,\X#+

INC
BNE

104012

PC,STRXD
aRXCSR

IS SET THAT THE RXCSR DONE

-10
3%

;MALT 100MIC. SEC. FOR XOR

;"'.'C."".""""".""'..'..""".'.i'....'...'l."'ltl"'tl."tilt""t"

014374
014376
014400
014402

000061
014430
000003
014404
000061

AT61:

; TEST NUMBER

+ADDRESS OF NEXT TEST

SX:A1

:SCOPE ENTRY POINT

-N

s1TERATION COUNT

=X+

:"""."""l""""""l".'"""...".l".'i....""t't"'t'tt"""'"'!'

014404
014410
014412
014420

005737
100006

012777
005777

002110

177777
164764

EXAA:

164770

;gl
-

AT62

MOV
187

;gRFLG

¥-1,aRXCSR

aRXCSR

sCHECKING JUMPER CONNECTIONS FOR XOR, RCyR

0039

-MAIN.

MACY11 30A(1052)

CZDLAH.PI

014424
014426
014430
014430

000005
104012

2862
2863
2864
2865
2866

014430
014432
014434
014436

000062
014464
000003
014440
000062

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

014440
014444
014446
014454
014460
014462
014464

005737
100006
012777
005777
000005
104012

2867

014464
014466
014470
014472

2881

2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897

2898
2899
2900
2901
2902

‘

2903
2904
2905
2906

014524
014526
014534
014536
014540
014542

104003
127727
001401
104003
104011
104012

164740

68
S
AT63:

003004
000004
000001
000252

164706
164700
164674

164660

000000

014564
014572

023737
101430

001566

001570

001572

014612
014614

2911
2912

177677
164734

EXBA:

164642

2909
2910

:
g

A R

002110

000004
164640

G14576&

014604

014622
0146264

023737
101424

023737

101420
023737
101414
023737

]

; ”

001572

001574

001576

001600

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

LR AR AR A A

AT62:

052777
005077
104017
104003
000207

014602

RESET
SCOPE
1STA
TSTAA

38:

014544
014552
014556
014560
014562

2907

2908

104017

PAGE 52
s

100063
177777
000012
014474
000063

004737
052777
052777
012777

014522

10:53

014474
014500
014506
014514

28-JUN-79 10:49

2857
2858
2859
2860

2861

28-JUN=79

62
AT63
3s
EXBA
X=X4+1

R R

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

S R

R R R R R R R R

TST
XORFLG
;SAME AS ABOVE BUT FOR XMTR
BPL
4%
MoV
#177677,@TXCSR
18T
aTXCSR
RESET
SCOPE
TSTAA
AQB,10.,\X+14CD,LAST,\X+1
N
R
R N R N
R N A R R R N N A R R A RN A A P IR R R R R R S AR SO
100063
;TEST NUMBER
ATLAST
:ADDRESS OF NEXT TEST
10.
:1TERATION COUNT
AQBA
:SCOPE ENTRY -POINT
X=X+1
:
N N T

RR R N T R T N R R N R

R R N R R R N I R R R R R R N N T A R S N R R IR R SRR

sTEST THAT WHEN TXCSR BIT O IS SET TAAT THE OUTPUT DATA LINE
;1S PULLED TO A SPACE.
AQBA:
JSR
X7,CDINIT
e INIT IF C-D DEVICE
BIS
#BIT2,TXCSR
:SET MAINTENANCE BIT IN TXCSR
BIS
#BITO,3TXCSR
:SET BREAK BIT
MOV
#252,3TXBUF
;LOAD BUFFER
TIMERX
:TIME OUT RX DONE
ERROR
;ERROR DONE NOT SETTING
(MPB
aRXBUF ,#0
; CHARACTER RECEIVED SHOULD BE 0
B&Q
.t
ERROR
sCHARACTER OTHER THAN 0
SRESET
: ISSUE RESET
7
SCOPE
/

CMP

CIR1,CTR2

BLOS

CMPTING

BLOS
(MpP

CMPTNG
CTR3,CTRG

CMP

R AR

BLOS
c(mp

CMPTNG
CTR4,CTRS

o~
o
o

.
*
.
.
.

O AT N

.
.
.
.
.

I TR RO P ER R R RS

CTR2,CTR3
:

I I

:
:SUBROUTINE TO SET RXCSR DONE BIT.
STRXD:
BIS
#BIT2,3TXCSR
sSET MAINTENANCE BIT.
CLR
aTXBUF
sLOAD TXBUF.
TIMERX
:
:TIME OUT Tx DONE
ERROR
;ERROR DONE NOT SETTING
RTS
x7
JEXIT,
;SUBROUTINE TO CHECK THAT CTRO_THROUGH CTR3 CONTAIN DESCENDING VALUES.
(MPT:
(MP
CTRO,CTRY
BLOS
CMPING

R R R R

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

2913
2914
2915
2916
2917
2918
2919

2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968

014632
014634
014642
014644

01410

014652

014654
014660

10:53

001600

001602

001604

000002

PAGE

53
SEG 0053

BLOS
CMP

BLOS

CMPTNG:
CMPTOK:

CMP
BHI
ADD
RTS

CMPTNG

CTRS,CTR6

CMPTNG
CTR6,CTR7
CMPTOK
¥2,a%6

:'.""""

;PRG1 = TRANSMITTER SCOPE LOOP

:"..t"'l'

014662
014664
014666
014672
014674
014676
014702
014706
014714
014722
014726
014730
014732

104000
016476

004537
104000

016573
004737
012637

113737
113777
105777
104016
000000
000765

PRG1:

004262
003652
001624
001624
001625
164466

014730
164474

PRG1A:

PRGIB:

TYPE
P1TIT
JSR

TYPE
SELCAD
JSR
MOV
MOVB
MOVB
1STB

DELAY
OPEN
BR

:TYPE

PROGRAM TITLE.

5,LINSLX

;GO GET LINE # FROM USER
:TYPE SELECT CHAR AND DELAY.

PC,RDOCT
(SP)+,TEMP2

;READ IN DATA.
;STORE DATA.
:DELAY COUNT TO PRG1B.
;LOAD TXBUF.

TEMP2 ,PRG B
TEMP2+1,2TXBUF
aTXCSR

sTEST

PRG1A

sREPEAT.

AL
SRS S22

FOR DONE.

:DELAY # OF MSECS. SET AT SR.

:PRG2 - RECEIVER SCOPE LOOP.

;"""."'

014734
014736
014740
014744
014746
014750
014754
014760
014766
014774

104000
016536
004537
104000

016573
004737
012637
052777
113737
113777
105777
104016

000000
017700
000005

PRGZ2:
004262

003652
001624
000004
001624
001625
164406

164374

164426

015010

PRG2A:

164414

PRG2B:

000005
000005
000005

000005

000753

TYPE

P2T11
JSR
TYPE
SELCAD
JSR

MOV

BIS
MOVB

MOVB
1ST1B
DELAY
OPEN
MOV
RESET
RESET
RESET
RESET
RESET

:TYPE

PROGRAM TITLE.

5.LINSLX

;60 GET LINE # FROM USER
sTYPE SELECT CHAR AND DELAY.

PC,RDOCT

(SP)+ TEMP?
#B112,9TXCSR
TEMP2 ,PRG2B
TEMP2+1,3TXBUF
aTXCSR

SREAD IN DATA,
:STORE DATA.
:SET MAINTENANCE BIT.
sDELAY COUNT TO PRG2B.
;LOAD TXBUF.
sTEST FOR DONE
sDELAY # OF MSECS. SET IN SR.

aRXBUF ,%0

+RXBUF CONTENTS T0 RO.

;DISPLAY CONTENTS OF RXBUF

PRG2A

EELRSS
RS

;PRG3 - SINGLE CHARACTER MAINTENANCE MODE DATA TEST.
;!""""'

104000

017364
004537

PRG3:

004262

TYPE

P3T17
JSR

(IN RQO),

:BY ISSUING 5 RESET INSTRUCTIONS

:TYPE PROGRAM TITLE.

5,LINSLX

:G0 GET LINE # FROM USER

MAIN.
MACYT1 30A(1052)
28-JUN=79
CIDLAH.P1
28-JUN-79 10:49

2969
2970
2971

2972

2973
2974
2975
2976
2977

015042
015044
015046

104000
017507
004737

01505¢
015064
015070

113737
004737
000772

015052

012637

003652
001624
001625
015124

10:53

3002

TYPE
SELCAR
JSR

001562

PRG3A:

104000
017434
004537
004737
004737
110137
004737
000771

PC,RDOCT
(SP)+,TEMP2
TEMP2+1,CRRUFA
%7 ,MOUTIN
PRG3A

SELECT CHARACTER.

;GET TEST CHAR AND DELAY FROM USER.
sSTORE TEST CHAR AND DELAY.

MOVB
;MOVE DATA CHAR T0 CRBUFA.
JSR
;GO OUTPUT, RECEIVE, AND CHECK DATA.
BR
JETERRREREEY
:PRG4 = SPECIAL BINARY COUNT MAINTENANCE MODE DATA TEST.

032777
001001
104002
104020
104003
052777
005777
013777
004737
104017
104003
017737
104004
000207

PRG4 :

004262
004452
004556
001562
015124
000200

163036

000004
164236
001562
005530

164244

164214

164234

001560

TYPE
P&TIT
JSR
5,LINSLX
JSR
X7,INBIN
PRG4A:
JSR
%X7,.GTBINP
MOVB
%1,CRBUFA
JSR
%7 ,MOUTIN
BR
PRG4A
: SUBROUTINE TO OUTPUT, RECEIVE,
MOUTIN: BIT
#BIT7,3SRPTR
BNE
YA
STALL
TIMETX
ERROR
BIS
#BIT2,aTXCSR
187
aRXBUF
MOV
CRBUFA,aTXBUF
JSR
7.MASKIT
TIMERX
ERROR
MOV
aRXBUF , (RBUF
DATCHK
RTS
X7

JERRERERRERRES

;TYPE PROGRAM TITLE.
;G0 GET LINE # FROM JSER
;INITIALIZE BINARY COUNT.
;GET BINARY CHARACTER.
;SAVE AT CRBUFA.
;G0 OUTPUT, RECEIVE, AND CHECK DATA.
sREPEAT.
AND CHECK DATA WITH MAINTENANCE BIT SET.
JSEE IF BIT 7 IS SET.
;BRANCH IF SET.
;SET. DO A RANDOM STALL.
;TIME OUT TX DONE
;ERROR DONE NOT SETTING
sSET MAINTENANCE BIT.
;CLR RX DONE
;LOAD TXBUF.
sMASK OFF NON TRANSMITTED BITS
;TIME OUT RX DONE
;ERROR DONE NOT SETTING
sMOVE CHAR IN RX BUFFER TO CRBUF.
; COMPARE EXPECTED AND RECEIVED DATA
JEXLT,

:
sCHECK SWITCH REGISTER ROUTINE.
CHECKS 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, SWITCHW REG. ,TYPES 1T OUT, AND THEN SEEKS
sNEW DATA FROM OPERATOR.
ONCE DATA IS SUPPLIED, IT INSERTS THMIS
;DATA INTO THE SOFT.SWIITCH REG. AND RESUMES OPERATION IN THE
sMAIN PROGRAM.
INCORRECT ENTRIES (SUCH AS 8,9,LETTERS) ARE DELETED,

sAND THE PROCESS RESTARTED.

;81%

TYPING *U ALLOWS THE PRESENT

ENTRY TO BE DELETED AND THE PROCESS RESTARTED.

1
3014

3015

3021
3022
3023
3024

MOV

;TYPE:

JEERRRERREY

3003
3004
3005
3006
3007
3008
3009
3010
3011

3016
3017
3018
3019
3020

SEQ 0054

2978

2979 015072
2980 015074
2981
015076
2982 015102
2983 015106
2984
015112
2985 015116
2986 015122
2987
2988 015124
2989 015132
2990 015134
2991
015136
2992
015140
2993 015142
2994
015150
2995
015154
2996 015162
2997 015166
2998 015170
2999 015172
3000 015200
3001
015202

PAGE

JEeRERRRRRRLE

015204
015206
015212

015214
015220
015222
015230

022737
001132
105777
100127
017737
042737

00Ci76

000170

164210
164204
177600

001642
001642

CHGHS:
(KSWR:

CMP
BNE
1S1B
BPL
MOV
BIC

#SWREG,SRPTR
oul
alkKS
out
alkB,118B
#177600,118

;SOF TWARE SW REG PRES?
:NO, GET QuT
JYES, 1S CHARACTER READY?
s1F NOT, GET Out
+STORE BUFFER
JSTRIP DFF GARBAGE

MAIN.
MACY11 3CAC1052)
28-JUN=79
CZDLAN.P1
28-JUN-79 10:49

3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
30646
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057

3058
3059

3060

3061
3062

3063
3066
3065
3066
3067
3068
3069
;8;?

3072
3073
3074
3075
3076
3077
3078
30;9
3080

015236
015244
015246
015250
015252
015256
015260
015262
015266
015272
015274
015276
015300
015304
015312
015316
015320
015326
015332
015334
015342
015350
015356
015360
015362
015370
015372
015374
015402
015404
015412
015414
015422

015424
015426

022737
000007
001642
001115
104000
020321
005077
164160
104000
02033C
017746
162702
004737
015520
022600
104000
020341
005037 001644
012737 000007 001646
105777
164112
100375
117737
164106 001642
105777
164102
100375
113777 001642
164074
042737
177600
001642
122737 000025
001642
001001
000736
122737
000015
001642
001005
104021
022737 000007 001646
001033
122737 000060 001642
003004
122737
000067 001642
002003

015454
015462
015466
015470
015472
015500

104000
020352
000753
006337
006337
006337
142737
153737
005337
001756
000710
013777
000207

015502
015504
015506
015512

010046
010146
004737
012601

015430

015432
015436

015442
015446

015514
015516

10:53

012600
000002

001644
001644

001644
000060

001642
001646
001644

015204

SEQ 0055

CNTLU:

1%:
8%:

38:
2%:

4%:

5%:
6%:

001642
001644

162470

PAGE

7%:
ouT:

(MP
BNE
TYPE
C(NTG
CLR
TYPE
SWR
MOov
JSR
CMP
TYPE
NEW
CLR
MOV
1STB
BPL
MOVB
1STB
BPL
MOVB
BIC
CMPB
BNE
BR
(MPB
BNE
SCRLF
CMP
BNE
CMPB
BGT
(MPB
BGE

TYPE
QUEST
BR
ASL
ASL
ASL
B1(B
B1SB
DEC
BEQ
BR
MoV
RTS

TTINTS: MOV
MOV
JSR
MOV

MOV
RT1

87,118
out

aTPB

(IS 1T A %6
;1F NOT GET OUT
;ECHO *G

;ALLOW SWR= TO BE TYPED

aSRPTIR,=(5P)
PC,TYPOC
(SP)+,RO

;MOV CONTENTS OF SWR
;OCTAL TYPE OUT ROUTINE
;CORRECT STACK POINTER
;ALLOW NEW= TO BE TYPED

TEMPST
#7,COUNTY
aTks
1%
@7ikB,TIB
alP$
8%
T1B,aTPB
#177600,718
#25,118
2%
CNTLU
#15,718
6%

;CLEAR TEMP STORAGE LOC
:SET UP TO ACCEPT 7 CHAR
;1S CHARACTER THERE?
;1F NOT,TRY AGAIN
;PICKUP CHARACTER
;CHECK PRINTER STATUS
:NOT READY, TRY AGAIN
;PRINT IT
;STRIP OFF GARBAGE
IS IT A %Y
;:BRANCH 1F NOT
;START OVER
;1S 1T A <CR>
;BRANCH IF NOT
: TYPEOUT <CR>AND <LF>
;WAS <CR> FIRST (HAR
s CHANGE SWREG IF NOT FIRST <(R>
;1S 1T LESS THAN O
;G0 TO ? ROUTINE IF SO
s1S 17 GREATER THAN 7
:G0 TO ? ROUTINE If SO
sSET UP FOR ? TYPEOUT

#7,COUNTY
7%
#60,118
5%
#67,118
6%
3%

TEMPST
TEMPST

;START INPUT STRING OVER

sMULTIPLY BY 10

TEMPST
260,718
T1B,TEMPST
COUNT1
5%
1%
TEMPST ,@SRPTR
PC

;CLEAR OF ASC1l
;MOV CHAR TO TEMPST
;ONLY WANT 6 NUMBERS AND <(R>
;1F = 7 TOO MANY NUMBERS
;GET NEXT CHAR
;CHANGE SWR CONTENTS
;RETURN TO PROGRAM

RO,=(SP)
R1,=(SP)
PC,CKSWR
(SP)+ ,R1

: INTERRUPT SERVICE ROUTINE
;SAVE RO AND R!
;G0 TO SUBR TO SERVICE Ty
+RESTORE R AND RO

(SP)+,RO

;RETURN FROM INTERRUP!

INTERRUPY

NN
WN=O VNV

LA L N N T N

—

LA LN L LN N N N

e o

—o
—O 0

N AN AN N NN N

404

001650
001653
001654

TYPOC:

TYPON:

001653

000006
001652
001650
000010

2%:

015632
015634
015636
015640
015644
015650
015652
015656
015662
015664
015670
015672
015674
015676
015700
015702
015704
015706

3%:

001652
177770

4%:

000060
163564

5%:

163560
163552

8%:

001654

56
SEQ 00%6

18:

105337
100020
042703
001002
005704
001403
005204
052703
105777
100375
110377
105777
100375
105337
003345
002402
005204
000742
012605
012604
012603
000207

PAGE

7%:

6%:

MOVB
MOVB
MOVB
MOV
MOV
Mov
MOvVB
NEG
ADD
MOvB
MOvB
MOV

CLR

ROL

BR
ROL
ROL
ROL
MOv
ROL
DECB
BPL

BIC
BNE
18T
BEQ
INC
B1S
1STB
BPL

MOVB
1818

BPL
DECB

BGT
8Ly
INC
BR
MOV

MOV
MOV
RTS

JHKFERTRAERIOYE

M1, EILL
#6,MOD+1
E

;SET

R4 ,=(SP)

;SAVE

#5,CNT
R3,=-(SP)

RS5,=(SP)
MODE+1,R4

R&
#6,R4
R4 ,MODE
FILL,R4

0(SP) RS
;N

000001
000006
000005

10:53

W0
0 —

oAU VAW

S ironr0
ornosr~o0o

.s
e e e

e s

A ALY LIV TV TV ] oo

e
e

3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101

3081
3082
3083
3084
3085
3086

elelelolololelele) oooo

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

;SET

THE

ZERO FILL

FOR SIX(6)

;SET THE ITERATION COUNT
;SAVE R3
R4

;SAVE RS
;GET THE NUMBER OF DIGITS TO TYPE

;SUBTRACT IT FOR MAX. ALLOWED
:SAVE IT FOR USE
;GET THE ZERO FILL SWITCH
;PICKUP THE INPUT NUMBER
;CLEAR THE OUTPUT WORD

;ROTATE MSB

;G0 DO MSB

INTO ''C”

;FORM THIS DIGIT

sGET LSB OF THIS DIGIT
:TYPE

#177770,R3
3]
R4

#60,R3
?1PS

5%
R3,3TPR
aIP$

CNT
2%
6%
R4

2%
(SP)+ RS

(SP)+ R4
(SP)+,R3
PC

THIS DIGIT?

:BR _IF NO
:GET RID OF JuNK
sTEST FOR O
:SUPPRESS THIS 0
:BR IF YES

;DON'T SUPPRESS ANYMORE 0°'S

sMAKE THIS DIGIT ASCII
:1S PRINTER READY FOR CHARACTER?
:1F NOT, TRY AGAIN
:TYPE OUT NUMBER

sMAKE SURE LAST DIGIT TYPES

s COUNT BY 1
:BR IF MORE 10 DO
:BR IF DONE
s INSURE LAST DIGIT ISN'T A BLANK
;GO DO THE LAST DIGIT
sRESTORE RS
sRESTORE R4

sRESTORE R3

sRETURN FROM INTERRUPT PC

;ASCI] MESSAGES
042045
026105
043117

051524
055103
022510

030514
027503
047114
020124
046104

026461
020104
020105
020055
026501

MTIT:

LASCLI

SWITCH

DIGITS

'ADL11=E,C/D OFLNE TST = CZDLA-HWX'

O\J'J“WN—QO

AL
YAl ALV TV TV )

3144

O — oo o

s
—

oooo

3137
3138
3139
3140
3141
3142
3143

[l olvalY, wvion
[=1=} O~~~ ~
[=l=] oO~NOWw» v

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

046445
020106
042503
051505
100

040
020040
020040
045
0464440
043517
052516
020040
045
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
124

016372

051440
020040
020040
040
040
040040
054122
027523
040
020040
020072
020040
040040
054124

050101

042504

10: 53

PAGE

SEQ 0057

047

LASCI]

"XMAP OF

MDEVAD:

.ASCII

PGMSG:

.ASCII

'XTYPE

MNONE:

.ASCII

'XNONE FOUND%3'

EMO:

LASCII

.x‘!

DEVICES PRESENT%3'

020123
047105
020040
020040
022440
054524
020116
040522
041115
020040
047516
052517

zal

IN PROGRAM NUMBER

020040

041520

ATNUMB:

.ASCII

020040
054122
040
020040
040040
051120
064440
047455
020124
020103
027123
044504
042516
030514

020040
051503

APC:

+ASCII

020040

MRXNUM:

_ASCII

POTIT:

.ASCIlI

*RXPRGO -

LASCII

'AIDISCONNECT DL11~E FROM MODEM®

042516
046525
047524
042514

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

JASCII

041530
041057
020040
040527

051123
020072
020040
035123

ATXCSR:

.ASClI

'TXCSR S/B:

ATXSB:

LASCII

020040

ATXWAS:

,ASCII

]

051503
035102
020040
053440

020122

ARXCSR:

,ASCI!I

'RXCSR S/B:

020940
051501

ARXSB:

LASCII

020040

ARXWAS:

,ASC]I

051440

042520

ETXTIM:

,ASC]I

'TX SPEEDS NOT

051106
042117

042116

040

P(:

RXCSR=

INPUT-OUTPUT LOGIC

AND CONNECT

TESTS.

JUMPER 1O CABLE.Xa'

WAS:

°*

IN ASCENDING ORDER.Q'

-MAIN.
MACY11 30A(1052)
28-JUN-79
CZDLAH PN
28-JUN-79 10:49

016400
016406
016414

016422

016430
016434

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

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
052111
060
043117
041517
047527
100
052101
035102
020040
020072
040
054122
040
020040

100
042523
042122

10: 53

PAGE 58
SEQ 0058

047516
040440
044504
042122
042520
047516
040440

ERXTIM:

_ASCII

"RX

030507
040522
052124
047503
047517

PI11Te

LASCLI

'XAPRG1

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

P2TIT:

L.ASCII

'RAPRG2 - RECEIVER SCOPE LOOP3’

SELCAD:

.ASCII

"XTYPE

LASCLI

'X0F

SPEEDS NOT

IN ASCENDING ORDER.3’

044504
042122

- TRANSMITTER SCOPE

TEST

(HAR.

CODE

LOOP3’

IN BITS

15-8,TYPE

052040
047111

020123
040440
040524
042122

AN OCTAL WORD.23'

020101

ERDAT:

_ASCII

'DATA S/B:

053440

AASH:

LASCI]

’

AWAS:

LASCILI

040

052502

020040

WAS:

RXBUF:

°*
.

LASCII

ARXBUF: .ASCII

]

ASETSR:

.ASCII

'%SET MARDWARE

LASCII

"1S WITH SR=000000.

SR OPTIONS. NORMAL QPERATION °

051440
044524
047040
020114
052101

053440
051123

DELAY

IF NONE, TYPE <(R>Ra'

TiME

[N BITS 7-0°

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

3278
3279

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

3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304

SEQ 0059

030060
020106
020054
036040
100

047111

AINCRT:

,ASCII

"XINCORRECT

LASCII

'%IN SR 0-2 AND PRESS CONTINUE.a'

AINCPG:

.ASCII

'RINVALID PROGRAM SELECTED.3'

APGEND:

.BYTE

207

APCNT:

_ASCI1]

ACLIN:

LASCII

APRXC:

LAS

VECTOR =

APVEC:

,ASCII

031507
046107
051101
052116
020105
052040

P3TIT:

LASCII

'XXPRG3-SINGLE CHAR MAINT MODE DATA TESTa®

032107

P&TIT:

LASCII

'AXPRG4=-SPEC BIN COUNT MAINT MODE DATA TESTR®

SELCAR:

,ASCII

'RTYPE

041505
052 1 2
042 5 2
042 1 0
041 5 0
OS} 1 2
0511 2
1 1
1 1
0264 6

ROUTINE

SELECTED,

PLACE

CORRECT PROGRAM’

SN oSOV o~

D el

~o o NI

D ol e

OO~

D s (=]

NNNNNNNNN~N

030060
044440
17066
062516
1
042520
1
022476
1
045
1
051122
1
047522
1
020105
1
052103
1
046120
047503
020124
040522
045
020122
047101
051505
216
052116
040056
044445
042111
051107
046105
027104
207
062445
051501
020040
020040
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

PAGE 59

O = VNON

017052
017060

—

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
3274
3275
3276
3277

10: 53

020104
020123
047111

047503
042525

053116
050040
046501
041505

046101
047522
051440
042524

042116
020123
020040
044514
020040
020040
020122
020040
042526

050040
020975
020040
042516

100

036440

020040
040040
051120
047111
044103
044501
042117
040524
040124
051120
042520
020116
020124
020124
042040
042524

054524
020116
041440

054122
020075
020040
052103
040
020040

LASCII

'XEND PASS =

LINE =
RX(SR =

°*

IN TEST (WAR, CODE.

MACY11 30A(1052)
.MAIN.
28-JUN-79
CZDLANH P11
28-JUN-79 10:49

e S
b

e P

ocooco

NN
= s
s

..J—O—‘—‘—‘—‘o

—=OVENC
VNS W —=O D

WN
N (NG NN
LN AN N N N
NN
N NN NN LN N (NN
N

ey ot

7530
7536
7544
7546
7554

027122
041440
027105
020040
040045
052045
050131
047111
046040
020105
047516
020040 040040
046045
047111
047516
056
040
020040
020123
042523
052103
042105
045
042522
053111
051105
042520 042105
042510
045503
045
051124
046523
052111
042520 042105
042510
045503
045
042523
046103 041517
053523
052111
051505
052040
047520
044523
%7117
020054
047105
050040
051523 041440
052516
044524
100

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

SEQ 0060

042117
020040

020105
047111
020056

LDLINE:

,ASCII

'XTYPE

020105

ALINE:

(ASCII

'RLINE NO.'

040527
042514
100
042503
051440
041440

SELINE:

.ASCII

MSETRX:

,ASCII

'XRECEIVER SPEED CHECK]'

MSETTX:

.ASCII

"RTRANSMIT

MSETC:

LASCII

"XSET CLOUK SWITCHES TO POSITION,

MTERR:

,ASCII

'ZERROR - UNEXPECTED TRAP®

IN LINE

NO.

WAS SELECTEDA'

100

047101
051440

041440
100
020124

020113
044103
020117
044524
044124
042522
047117
027105

051105
020055
042520
052040

047522
047125
052103
040522

051124
020104

0501901
047524

020040

040522
043040
041520
020040

050120
047522
020040
020040

047516
041511
051505
020055
046040
047516

042040
020105
047105
044124
047111
040056

100

PAGE 60

044440
052522

036440

SPEED (HE(K]'

'XTRAPPED 10

THEN PRESS CONTINUE.3°

LASCII

LASCLI

'STRAPPED FROM PC

MFROM:

_ASC11I

MNOLIN:

.ASCII

'ANO DEVICE PRESENT = THIS LINE NO.a'

DTERR:
INTER:

.ASClI
LASCII

‘7%’
'XNO INTERRUPTQ'

MSO:

LASCLI

TS - 0a

MTO:

]

JAIN,
MACY11 30A(1052)
28-JUN-79
CZDLAH.PIN
28=JUN-79 10:49

3361
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
020173
020200
020203
020210
020213
020220
020223
020230
020233
020240
020243
020250
020253
020260
020263
020270
020276
020304
020312
020320

020321
020326
020330
020336
020341
020346
020352

030040

100

SEG 0061

036440

MS1:

LASCI]

'%CS =

051503

036440

MS2:

ASCI]

'%CS = 29°

051503

036440

MS3:

LASCII

'%CS =

051503
100
051503

036440

MS4:

LASCII

'%CS = 4

036440

MS5:

LASCII

'%CS =

051503

036440

MS6:

+ASCII

'%CS = 62’

036440

MS7:

JASCII

‘%S =

047503
020104
050040
043040

MPWRF
:

LASCII

'XRECOVERED FROM POWER FAILURER®

100

100
051503
100
042522

100

PAGE

051503

100

051106
053517
044501

10:53

042522
046517
051105
052514

52’

062522

(HOHE

040
020100
020040
020040
040
020075
020040

13’

tevecnnese

057040

020107

CNTG:

LASCII

"6+

053523
100
047040
040040
020077

036522

SWR:

LASCII

SWR=

053505

NEW:

LASCII

NEw=

040040

QUEST:

LASCI]

[

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

000001

LEVEN
.END

JPAIN.
MACY11 30AC1052)
28-JUN-79
CZOLAM.PIT
28=JiIN=79 10:49

AAA

006654

AAAA
AAAB

010212
010226

AAB
AABA
AABB

006566
013716
013742

AABC
AABD
AABE
AAE

AASB
ABA
ABAA

ABAB
ABB

ABBA
ABBB
ABE
ACA
ACAA
ACAB
ACB
ACBA
ACBB
ACBC
ACE

013752
013766
013772
006670

016727
006706
011270

011362
006726

014010
014032
006730
006746
011374
011524
006760
014054
014112
014114
006762

ACLIN
ADA
ADAA
“DAB
ADAC
ADB
ADDA

017316
007000
011544
011572
011610
007012
014140

ADTENP
AEA

005100
007032

ADE

AEB
AEC
AED
AFBA
AFBB
AFBC
AGA
AGB
AGBA
AGBB
AGBC
AGBD
AGBE
AGC

AGD

AIAA
ATAF
AIAS
AIASA
ATAST

007014

007046
007070
007110
010240 °
010266
010312
007132
007146
010324
010360
010414
010430
010464
007170

007210

011624
012050
012052
012102
012134

10:53
PAGE 63
C(ROSS REFERENCE

1565

15694

1914
1919

1918#
19228

15718
2697
27094

1574
27034
2715

2706
2712
2711
1569

27114
2714H
2716#
15728

1388
1581
2144

32324
15854
21484

2725
2732
1585
1599
2172
2190
1605#
2742
2747
2755
1603

2729
2734
15904
16034
21774
22024
1608
27484
2756
27578
1606#

2152
1587

2165#
15894

1320
1615
2210
2220
2222
16218
2765

22284
1624
27704

1247
1631

1273
16364

1619

TABLE

== USER

5
SYMBOLS

SEQ 0086/

2718

1592

32804
16194
2215#
22234

16228

1637
1642
1639
1935
1943
1945
1658
1663
1958
1967
1976
1981
1969
1668

16404
16454
1646
19404
1946#
1949
16624
16664
19634
19704
1979#
19844
1978
16714

2236
2286
22648
22984
2069

2241#
22894
2253
2301
228

1665

1670

1667

16494

19514

1983

1990

1673

16754

2258

2263

2273

2283

2291#»

2059 -

2364

2274

2284

2291+

19934,

2299

2308
-

050

MAIN.
MACY11 30A(1052)
28-JUN-79
CIDLAH.P11
28-JUN-79 10:49
AINCPG
AINCRT
AJA

017226
017105
007232

AJBA
AJBB
AJBC
AJBD
AJC
AJD
AKA
AKB
AKBA
AKBC

010476
010524
010552
010576
007276
007316
007340
007352
010610
010646

AJB

ALA
ALAA
ALAB

ALAC
ALBA
ALBB
ALBC
ALBD
AL INE
ALY
ALZ
AMAA
AMAC
AMBA
AMBB

007254

007364
012146
012176

012210
01101é

AMBC
AMBD
AMBE
ADAA
AOAB
AOAB1
AOAC
AOAD
AOBA
AOBB
ADBC
AQBD
APA
APB
APBA
APBB
APC
APCNT

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
014170
016104
017276

APD
APGEND
APRXC

007524
017261
017332

APCX

APVEC
ADA
AGAA
AGAB
AQAS

007504

017353
007546
012376
012622
012624

1308
1304
1684
1690

2000
2008
2014
2010
1695
1692
1711
1717

10:53
PAGE 64
CROSS REFERENCE

2005#
20114
2017«
2016
16984
1697
17164
17204

20344
20414

2315
2327
2329
2081
2089
2095
2091

23224
23304
2332
20864
2092#
20984
2097

2341
2352
2110
2119
2123
2129
2121
2361
23704
2371
2376
2378
2053
2060
2066
2062

23464
2354n
21140
21224
21264
21324
2125
23674
2374
23734
23794
2380
2057#
20634
2069#
2068

2778
2785#

27840
2796

1316
1758
1755
1331
1324

32774
17614
1760
32740
32824

1173
1734
1736

1748
1753

1415

== USER SYMBOLS

SEQ 0063

2020

2022#

1700

17024

17314

33124
17374
1739

17524
17564

2334n

2101

2103#

176414

2131

2135

21374

23824

2072

20744

1763

17654

2415

2620

31564

1328

32854

2390
2443
2405

23984
24460
2410

1774

TABLE

32694
3254K
16884
16934

2029
2039
1727

17784

2425

2430

2435

2440

26480

016323
006644
006676
007354
007436
007536
007636
007744
010052
010100
010126
006736
010154
010202
010230

AT23
AT24
A125
AT26

010314
010466
010600
010674

AT3
AT30
AT31
AT32

006770
011120
011260
011364

AT34

011614

AT127

AT33

011006

011534

867

18094
18144
NN O 0000 N £ 5

W= s O WV O NN NN O
D
0 OV OO0 W00 &S —

1806
1811

26694
2470

o — O — OoO~NwT~N w~
L
X 3 LR
¥

2465
2469

1786
18044

oo
=

1784
1781
1800

2879

10:53

2456
2411
17824
28844
17874

(N b et et d g AN N N —a
oo AU 00000000
— — — N oo

1779

e el e e ol i el o o ol o

ATXWAS
AT0
AT
AT10
AT11
AT12
AT13
AT14
AT15
AT16
AT17
AT2
AT20
AT21
AT22

013014
007670
007712
007732
016753
016332
016345
016362
007754
007776
018020
010040
016763
010062
013054
013106
013110
010076
177777
016074
016273
016306

26534
2406

=t o o e cd e

ARAS
ARB
ARC
ARD
ARXBUF
ARXCSR
ARXSB
ARXWAS
ASA
ASB
ASC
ASD
ASETSR
ATA
ATAA
ATAB
ATAC
ATB
ATLAST=
ATNUMB
ATXCSR
ATXSB

012646
012666
007562
014474
007604
007624
007646
012700

N =t = OO OO0 O 000w
ONSONOWVIN
OV
=000~
WONRON—NOO WNNNO

AQASA
AQAST
AQB
AQBA
AQC
AQD
ARA
ARAA

POPLURUNUND =2 DU N

0051

LMAIN.,
MACY1] 30A(1052)
28-JUN-79
CZDLAH.P11
28-JUN-79 10:49

PAGE 65

CROSS REFERENCE

TABLE

2416

2621

2426

1789

17914

2485

24944

1816

1818#

18432

1845#

== USER SYMBOLS

2431

2436

SEQ

2441

2448¢

2454+

2458#

00¢

LMAIN.

J052

CZDLAH.P11
AT35

AT36
AT37

ATG
AT40
AT41
AT42
AT43
AT4h
AT4S
AT46
AT47
ATS

AT50
ATS1
AT52
AT53
ATS4
AT55
ATS6
AT57
AT6
AT60
AT61
AT62
AT63
AT7
AUAA
AUAB
AUAC
AVAA
AVAB
AVAC
AVAA
AVAB
AVAC
AWAD
AVAE

AWAS
AXA_
AXAA
AXAB

i
;
|

012136

012212
012256

007022
012366
012670
013034
013122
013200
013264
013362
013446
007122

013530
013612
013702
014000
014040
014124
014146
014240
007222
014324
014374
014430
014464
007330
013136
013162
013172
013214
013252
013254
013274
013324
013334
013350
013354

016740
010110
013406
013434

AXAC
AXB

013436
010124

AX1B

013516

AXTA

AX1C

;

MACY11

013466

013520

30A(1052)

28-JUN=79

28-JUN=79 10:49
2236

2313
2339

1613
2359
2388
2663
2503
2527
2549
2572
2600
1629

2606
2648
2671
2695
2723
2740
2763
2776
1656
2802
2827
2848
2863
1682
2529
25404
2535
2551
2557
2564
2574
25868
2580
2589
2588

1384
1869
2602
2609

2616
1874

2626

2633

16284
23874
246M
25024
25264
2548#
25714
25994
26234
16554

26474
26704
26944
27224
2739#
27624
27758
28014
16814
2826#
28474
28624
2876H
17084
2536H
2544
25420
25584
25654
25664
25794
2592
25884
25914
25934

32340
1873#
26114
26174

26184
18774

26344

26414

2660

1886
2650

26420

AYAC

013604

013574

26620

2666

010152
010164

1889
1899

18924
1903#

AYB
AZA

AZAA
AZAB
AIAC

013632
013670
(13672

2673
2679
2687

1888N
26584

664N

26814
26884
26894

CROSS REFERENCE

23124

010136
013550

2656

PAGE

23384
2358#

AYA
AYAA

AYAB

10:53

2595

NS
TABLE

== USER SYMBOLS

LMAIN.
MACYTY 30A(1052)
28-JUN-79
CIDLANW.P1
28-JUN-79 10:49

BIT7
= 000200
BI118
= 000400
BIT9 = 001000
BMOVA
004722
BMOVE
004712

()]

CDINIT
CDINX
CHAINN

= 100000
003004
003030
002632

CHALT = 104005
CHGH2
001662
CHGH3
002632
CHGHS
015204
C#GH7
004212
CHGH8
0r%224
CHGH9
006622
CHNA
002654
CHNAA
002722
CHNAB
002646
CHNB
002746
CKSWR
015204
CLRCC
003376
CMASO
001302
CMAST
001304
CMAS10 001322
(MASTT
001324

1738

1940

1946

1963

1970

1984

2005

2370

2094
2379

2100

L4L5H
443

2038

2007
2043

2013
2472

2019
2480

2490

1989

2059

2065

2071

2118

L4574
1762
2898
4564

2036

2041

2057

2063

2069

2322

1675

1752
2346

2367

2694

1757

1761

2885

1783

1787

1788

1791

2086

2092

2098

2114

2116

2126

2642
1689
2515
2613
2757

1610

1626
2460

LaTH

1732
2202
2088

1353
1520

LL6N

1412

2122

2486
1662

2132

4554
L54H
4538
1832
2558

2684

452
4514
4508
1235#
1178
4920

2154

855
8464
831
843
752

5584
5594
Soo#
5674

1918

1666

1948

1966

1667

1975

1671

1979

1672

1693

2518
2618

1694

2520
2658

1756

1698

2537

2660

1659

1702

2538

2540
2681

1894

1909
2668

2662

1492

1594

2139
2692
8774

878
641
L78N
6904
8420
3018#
11264
1300#
15534
845

1942

= 000100

1737

2011
LL9N
LLBN

BIT6

1733

O~ OO

= 000020
= 000040

1646

BIT4
BI1TS

1645

= 000010

1641

N ==

BIT3

1640

~NOr VWU

= 000004

1636

[

= 040000
= 100000

1513

PNONONY
= -

BIT2

= 020000

1356

O N W 0o W 00
COVOD
& = (=TT
RV LV IV}

= 002000
= 004000
= 010000

SEQ 0066

PN
N ot et s

81110
BIT11
B1112
B1113
B1T14
BIT15

=-- USER SYMBOLS

1159

OO0
S = e
VO
W
S

= 000002

TABLE

PO
N
b it it
N~V
oo WV 0o

BIT1

1152

~ W 0o — 00
(=
o
OO

= 000001

PON)
b et

BIT0

1904
12428
12494
1254+
1245+
1246+
4594
1649
4584

NSOVNO oS wNOoONSN

010200
004734
004766
005020
005022
005024

WO
-

AlB
BDCNV
BDCNVA
BDCNVB
BDCNVC
BOCNVD

10:53
PAGE 67
CROSS REFERENCE

2336
2760
2884

1301
1554
848#

8584
857
860
3019#
9764
1480

873
864n
3076
1142

2356
2874

1653

2500

1679

2524

1706

2546

1822

2569

1879

2597

2645

.MAIN.
MACY1] 30A(1052)
28-JUN-79
CZDLAH.PI
28-JUN=79 10:49

(MAS1?
CMAS13
CMAS14

TABLE

=-- USER SYMBOLS

SEQ 0067

5684
569#
5704
5714
572#
5734
5604
574K
S75#4
5764
5774
5784
5794
5804
5814
5614
5824
5834
S84H
585#
5864
5874
5884
589#
5624
5634

CMAS1S

CMAS16
CMAS17

CMAS?2
CMAS20
(MAS21
(MAS22
(MAS23
CMAS24
CMAS25
CMAS26
CMAS27
CMAS3
CMAS30
CMAS31
CMAS32
CMAS33
CMAS34
CMAS35
CMAS36
(MAS37

CMAS4

CMASS

CMASH

5644

12834
4774
12804
1243
4874
1261

2911

1055+

3052

1380
1373«
1378
1293«

3066+

1383
1380
1391

2249+
2904
2906
2908
2910
2912
2914
2916

1292

2794

3000

2524

1278#

880

1264+

2918#»

2793+

2999+
2788

2973+

2984

26406+
2906
2908
2910
2912
2914
2916

2784

2795+

2904

2637

2935

2952

1056

2611
2616+
2621+
2426*
2431
2436
2441
836

2770

2915

3048
1270#

2254+
2259+
2264
2269+
2274
2279+
2284+
830
1294

2913

3117«

~NOo

DELAY = 104016
pDIGIT
005074

651#
6524
6534
6544
6554
6564
6574
658#
6594
6604
6154

1291«
1286+
1377«
1282+

29044
2909

001560
001562
001564
CTRO
001566
CTR1
001579
CTR2
001572
CTR3
001574
CTRG
001576
CTRS
001600
CTR6
001602
CIR7
001604
CURTST
001454
005142
DATAA
= 104004
DATCHK
DATTST
005120
DECVAL
005112

2442
2907
2919#
3086+
33834
30304
1251«
1353#
1039+
3038+

—

015256
005072
005456
001626
001646

S65#
2285
2905
2917
6814
3028
703
1248+
1347
6694
6784
6504

CMAS?7

CMPT
CMPTNG
CMPTOK
CNT
CNTG
CNTLU
CNVCTR
CONT
COUNT
COUNT1
CRBUF
CRBUFA
CR3UFB

10:53
PAGE 68
CROSS REFERENCE

1387

891+

1268

2995

CMAIN.
MACYT 30A(1052)
28-JUN-79
CIDLAH.P1
28-JUN-79 10:49

DISPLA
DISPRE

DLCNT
DLY
DLYA
DLYB
DLYC
DOTHIS
DTCHK
DTCHKA
DTCHKX
DTERR

000174
000172

004070
004024
004046
004052
0046064
006352
005560
005650
005606
020142

ECDAT
003704
EMALT = 104010
EMLT
005516
EHLTA
005526
EMTA
003076
EMTINT
003064
EMTITAB
001514
EMO
016072
ERDAT
016715
ERR
005652
ERRA
005722
ERRB
006022
ERRC
006026
ERRD
006036
ERRE
006040
ERROR = 104003

ERROR1=
ERR1
ERTP
ERTPA
ERXTIM
ETXTIM
EXA

EXAA
EXBA
EXTA

FILL
FMAP
F NONE
FORMAD
FORWD
FOUNDY

FROMPC
FTITLE
GETRDY

GOBACK
GRCNT

104015
005674
006042
006112
016434
016372
014334

014404
014440
014250

001650
001472
001632
006226
003032
001614

001636
001630
002474

006366
004116

5040
503#

1075
645
1080#
10814

1078
14924

635
1381

10:53
PAGE 69
CROSS REFERENCE

D
TABLE

== USER SYMBOLS

SEQ 0068 i

698
1088#

2398

1379
1065
10448
4814

639

1365

8974

424

6314

1426
1395

634

1402
1399+
1408
1409+
1401+
L764
1691
1812
1977

2102
2349
2594
2889

4864

644
412
14440

1403~

1404«

1405+

1427#

1414
1430
1524
1701
1834
1991

14320
14334
1573
1718
1839

1591

1607
1740
1860

2124
2377
2639
2901
2163

2009
2130
2381
2665
2992
2200

1735
1844
2015
2136
2474
2686
2998
2287

416

418

426

3094
819+
779+«
1360

1159«
782

2021
2183
2478
2708

1623
1754
1875
2040-

664N

6734
6704
8164

1493
1101#

1139+
1449
754

865

1759
1890

2045

2186
2483

2217
2488

781

817

14364

1462

1467+

1513

1311

1508

1528+

869

1557

2717

14719

1460+
758

801+

2733

2444

2445

2288
2829
2850
2865
2804
6794
6224
6714
791
823

1638

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
2585
2835

MAPOK
MAPVEC
MASKIT
MDEVAD

MESS1

MFEROM
MNOLIN
MNONE
MODE

MOUTIN
MPWRF

MRXNUM
MSETC

002054

020066
020077
016055
001652

015124
020263

016123
017701

MSETRX
MSETTX
MsO

017625
017653
020163

Ms2
Ms3
MS4

020203
020213
020223

mMs1

MS5S

MS6

mMs7

020173

020233

020243

020253

MTIERR
017767
MTIT
015710
M10
020034
NEW
020341
NOP
= 000240
NXTST
001462

—

LR %

8304
829
8324
8374
867
856+
2783

—

000004
100000
002224
002312
002376
002252

002262
006150
(05530
016001

1285

1287
775
718
1450
1155
797

680#
2974
1503
1419

2244
2400
2243
2245
2251
2256
2261
2266
2271
2276
2281
1453
757

s
—

o S HPVOVOO
—o
o0 =NV NN
- = =
- N
=
Iz

MACHER
MANUAL=
MAPA
MAPEND
MAPERR
MAPNE

001452

017546
004344
004352
001616
004244
004262
005446

7
7814
7964
7694
7728
14584
1370%
778
7208

33484
3350%
3150#
3085+
2985
33764
3159#
2401
33174
3321#
2402
2408

2413
2418
2423
2428
2633
2438
33354

3036

31310
33430
33874

6184

816+

1446

41
H

10:53
PAGE 70
CROSS REFERENCE

~ NN
et s N NDO N

LDLINE
LINA
LINB
LINENO
LINSEL
LINSLX
LOGIC

KSTART

004510
004556
002564
902534
002572
002614
002502
001464
004452
005244
005234
003660
020145

GTBIN
GIBINP
GTRDA1
GTRDYA
GTRDYC
GTRDYD
GTRDYX
ICIR
INBIN
INCRPG
INCRTN
INDAT
INTER

ISt
ON bt O O 0o O~ — O 0000 00 00 00N —
WNWOr VDS - NN NN = = WO O
CONWVNES
S W o0 ONONNNNNO b

LMAIN,
MACYT 30A(1052)
28-JUN-79
CZIDLAH.P11
28=JUN-79 10:49

2787

TABLE -~ USER

SYMBOLS

SEQ 0069

2983

838
1494

889+
2982
630

1307#

1541

1542

1543

789+

1148+

1169

1319

1548+

788+

1156

2927

2943

2968

2981

781+

817+

818+

1569+

1585+

780

2789

2996

3090
2988#

3093«

3104+

866

886

31424

33254

33604
33620
33648
33664
33684
3370#
33724
33744

837

888+

1336

1344+

1603«

1619+

1359«

1478

-MAIN.
MACY11 30A(1052)
28=-JUN=79
CZDLAH.P1
28=JUN=79 10:49

CACNV

004624

OACNVA
OACNVX
OLDPS

004640
004710
001470

OPEN

ouT
OVRLAY
OVRLYA
OVRLYB

= 000000

015500
003614
003630
003650

PASCNT
001640
PFAIL
006370
PGMSG
016021
PIND
004502
POPSP = 005726
POPSP2= 022626
PRGEA
PRGEB

PRGEC
PRGEND
PRGEXT
PRGNUM
PRGTAB
PRGXTL
PRGXT1
PRGO
PRGOA
PRGOB
PRG1
PRGIA
PRGIB
PRG2
PRG2A
PRG2B
PRG3
PRG3A
PRG4
PRG4A
PRTY0 =
PRTY1 =
PRTYZ2 =
PRTY3 =
PRTY4 =
PRTYS =
PRTY6 =
PRTY7 =

PSWw

P10

PT1OP

005404
005470

005376
005256
005346
001450
001474
005436
005364
006602
006640
006634
014662
014706
014730
014734
014760
015010
015032
015056
015072
015106
000000
000040
0001700
000140
000200
000240
000300
000340

177776

006476

004504

10:53
PAGE 71
CROSS REFERENCE

TABLE

== USER

SYMBOLS

773
1448
12164
1212+
6214

1168
2155
1225
1216
1636

12114
2159

1318
2192

1322
2196

1326

1382

1220+
1438+

1221+
1439+

1222+
1440¢

1223
1441

1228#
1442

652

653

654

655

656

657

658

L4208

676
1019
1271
3020
753
1026#
1030

6748
422
808
11864
4608
“oN

504

677
1088
1272
3022
10234
1031
10324

804*
749
31454
1202«
1083
696

2617

2641

1338#
868
1313
6134
6234
800
1333
623
1536
1550
624
1537
2932«
625
1538
2949
626
1539
627
1540
L6994

1357
1311#
1332#
812«
814
1335
13364
15484
1557#
1556#
2925#
29324
29364
29414
29488
2953#
29664
29734
2979
2983#

1339
1342

L68#
Lo7H
L664
L65#

LOLN
463
621
4394

1831+
2751

11844

1187#

1354
13564

505

678
1097
1427
3026
1141

679
1106
1432
3070
1510

1315
14974

1334
1499

1086
770

2664

858

614

615

616

680
1107
1433

681
1183
2308

915
1184
2458

2510

2607

2631

1386

1390

1413

1417

16421

618

619

620

636

650

659

660

661

662

663

1444

651

666

916
1185
2936

930
1186
2953

931
1187

938
1188

97
1228

1009
1270

1622

2521

2542

2565

2553

1804

1331

avz7

1343

1459

2688

2716

2756

1572

1590

1606

4620

1167

1437

1527

1688

1532

1346%

2937

2960

2975
2986

610

612

423

425

765«
2148

BOS+
2177

1191

1197+

1200

613

SEQ 0070

1206+

822+
2514

1079+
2536+

1158+
2559+

1167+
2560

1436
2582+

1437+
2012

15120
c6i5e

1527+
2653

16B8e
LR

1B04e
2683

-MAIN.
MACYI1 30A(1052)
28B=JUN=79
CIDLAH.PI1
28-JUN-79 10:49
PT1
PT1P
PWRUP

POTIT
PITIT
P2TIT
P3TIT

P&TIT
QUEST
RCMSK
RDDAT
RDOCT
RESTAR
RETRN
RIND
RMASK
RNCNT
RNGEN
RP1

RP2

RREAD
RSTART
RSTPC
RSTPSW
RSTREG=
RSTRG
RTNNO
RXBUF

RXBUFT
RXCRO
RXCR1
RXCR10
RXCR11

RXCR12
RXCR13
RXCR14
RXCR15
RXCR16
RXCR17
RXCR2
RXCR20
RXCR21
RXCR22
RXCR23
RXCR24
RXCR25
RXCR26
RXCR27
RXCR3
RXCR30
RXCR31
RXCR32
RXCR33
RXCR34
RXCR3S

004500
004506
006400

016134
016476
016536
017364

017434
020352
004136
003666
003652
006550
004010
004474
001404
004140
003324
003372

003374

004000
006562
003212
003214
104014
003156
001456
(001412

001612
001200
001202
00122
001222

11854
1188#
1497

1552
2926
2942
2967

2980
3059
1102
10404

809
509
1048

1177«
5924
1106«
9594

959
962
105¢C
1534

920+
921+

4B85¢
643
6164
5964

2490

6638
5174
5184
525#
5264

001224
001226
001230
001232
001234
001236
001204
001240
001242
001244
001246
001250

5274
528#
5294
5304
5314
5324
519%
5334
5344
5354
5364
5374

001254

539#

001252

001256
001206
001260
001262
001264
001266
001270
001272

5384

5404
5204
5414
5424
5634
5444
5654
5464

10:53
PAGE 72
CROSS REFERENCE

1191«
1200+«
14994

1192+«
1201«

TABLE == USER SYMBOLS

1195«
1204+

1196+
1205+«

1197
1206

1145
15324

2930

2946

2971

1180
1371«

11834
1372«

1193«
1373

1054

9724
9734
1057

10642

9304
9314
1238

1259

828
979+«

834
1291

SEQ 0077

1198
1207

31614
32044
32104
32874

32944
33894
1106#
1041
10354
1505
10684
1179
1370+«
1107#
1092
963«

966

1052
15364
928
927
1226
9204
806+
882

2734

2471«
761

1063

1101
970

969+

2793

2472
784

2890

2476
788

861
1377

887«
1473«

2954

2994

1151

1340

1411
1588

2999

1622
2350

2382

2651

2671

2680

LTS

-MAIN.
MACY11 30A(1052)
28-JUN=79
CIDLAH.P
2B=JUN=79 10:49

RXCR36

RXCR&
RXCRS
RXCR6
RXCR7
RXCSR

001274

001210
001212
001214
001216
001410

1805

1873
1979

RXEND

RXLVL
RXVIR

001610

001300

001422
001420

SAVREG= 104013
SAVRG
003116
SCOPE = 104012

SCOPTR
SCRLF =
SELCAD
SELCAR
SELINE
SETSR
SIOT
SPBOT =
SRESET=

001466
104021
016573
017507
017605
005220
004210
001176
104011

SRPTR

000170

978+

1752

1809+«

1888
1984«

762

794

6004
5994

LB4H
642
838

1820
2137
2493
2797

1965+

939
937

1211
9054
1296

1847
2165
2519
2822

10974
1098#
2990

STARTZ
START1
START2

001656
002326
002332

507
755
785#

688#
7844
795

STARTL
STLMSK
STLSPy
STLSRv
STPPA
STPRA
STRXD
STRXY -

002426
001406
003252
003216
003274
003240
014544
104006

792
5934
638
637
944w
935+
2610
4798

804#
1093
9438
934
n
9474
9384
2657
2608

002366

1903
1988

5494

6624

1095+
1094
475

START3

1810

2059
2118
2370
2681+
2836+

003306
004072
004112
004114
104902

002136

1756+

2057«
2116+
2351
2662+
2817

846
3051
2945
3302#
33144
1555
1112
688
821
1921
693

STARTY

1110

2043
2114
2331
2660
2811«

620#
490
2929
2970
1170
1298#
1110
4400
4820
1906
5024

SRSETT
STAL
STALA
STALB
STALL =

TABLE

== USER

1289

1323

SYMBOLS

SEQ 0072

5678
S2en
5224
5234
5244
5954

1738

RXCSRT

10:53
PAGE 73
CROSS REFERENCE

1353
640
633

719

786

1364
952#
1092#

732

1974«

982+
980+

1231

1571
1862
2203
2541
2843
890+

1280

1757

1814

1918
2005+

2063
2122
2373
2684+
2837
1975

1486+
1164

1242

1589
1877
2229
2567
2858

1761+

1815

1940+
2007

2065
2126+
2379
2689+
2855+

1762

1818+

1942
2011+

2069+
2128
2455
2705+
2856

1418

1765«

1832

1946
2013

1471+

1778

1836+

1948
2017«

1570+

1782+

1837

1963«
2019

1731+

1732+

1733

1737

1841+

1842

1845+

1858

1783

1965
2034«

1787+

1966
2036+

1788

1791«

2994
2188
2636«
2750+«

1970«
2038

2098+«
2202+«
2642+
2752+

1974
20419

2071
2132+
2611
2706+

2086+
2134
2613«
2709«

2088
2178+
2618+
273%0

2092+«
2179«
2634
2731

1989

2188+

2189

2197

2730+

2659
1327

2682
1466*

1511«

1518

2711

1605
1892
2289
2587
2873

1621
1907
2334
2619
2894

1651
1922
2354
2643

1677
1951
2383
2663

1704
1993
2446
2690

1720
2022
2475
2710

1741
2046
2479
2735

1767
2074
2484
2758

1793
2103
2489
2771

1719
2330
832
2988

1766
2893
844
3019

1792

1819

1846

1861

1876

1891

854
3032

859
3069«

864

13137

1312

133

28135

:
JBYNSE

1988+

2100
2326
2658+
2757

3215#

1116
748
1650
2150
697+

1121#
820
1676
2187
701

1492

1501
1703
2228
824
1520

7484

803%

1310

1455

2702
2655

2729
2678

ZZ«G
2703

1407
954+

7934

2680
2632

2{49
2lu8

1PB
TPLVL
TPS
TPVIR
TSTVA
TSTVEC
TISTVEX
TTINTS
TXBUF
TXCSR

001436
001446
N01434
001444
006526
006424
006546
015502
001416
001414

IRR B

11142

23054
6064
6104
605#

T1YPJ

TYP(

TYPD

TYPLAT

001606
001426
001424
003440

003450

003466

003514

003560

1174
2185
2182
11194

11204

2348
2216

~NMNOW SO

1338+

1339

2191«
3069

2369«

2372«

2950

2973

1486

1487

3045¢
2012

3049
2035
2298

3054
2037
23044

1484+

VSO ——
SroVe

»
-

NN
—
-

2087

SEQ 0073

2127

13450

1358+

1359

2042

3056

3064
2058

3065
2064

2375

2453

2997

11134

1117

2306
707
706
708+

1040

3021

3039

6174
6728
608#
6124
607#
6114

1411»
1442+
1000+

1412+
1445
1046+

1464

3029+

14650

3044

1466

1001

1044

3042

3112

3115

934
1509
705
598#
2368
5974
1604
1689

943
15294
30744
976+
2452+
879«
1636
1693+

2181+
2887+

2184

2215¢
2932

2218
2950¢

2294
2995

2297~

2323%-

2347

2540«
2948+
2153«
948
946
9874
999
9944
1000#
991

2153
2515

2180«
2518
2885+«

1526«
1675

2538+
2934
6614
6024

2151
2513
2870+

1515
1672

2649
2583

2149«
2494
25860

1514
1671

1006+

1009«

609#
646
647

1519

2292

TXCSRT
Txeve
TXVIR
TYP

1947

3061

SYMBOLS

1336+

(¥ale -]

1113
4884
4894
1115

774
2932
1266
3024+
1964
2093

3037
772+
2931«
1262
3023~

N — N,
—

2070

701
1147+
1480

=00
—00sS

TIMER
004206
TIMERX= 104017
TIMETX= 104020
TIMEX
004204
TIMED
004160
TIME2
004164
TIM1
012126
TKB
001432
TKLVL
001442
XS
001430
TKVIR
001440
TMRX
004142
TMTX
004152
TNNO
001460
TOPC
001634

1941

1146+
1479«

3385#
697

2579

N — N

012122

6774
6674
6684
1249+
6764

9154
9164

-- USER

N
oo

T1IME

005076

001642

6664
1478+

912

TABLE

ronro

TENPWR

118

001624

3031
505#

913

2556

E=3

TEMP?2

001644
001622

906+

2534

W
— N — 000

TEMPST
TEMP1

001620

905+

251
12614
1265
12664

) et et N

TEMP

020330

000176

480n
1250
12628
1263

et [N

SWREG

104007

005032
005036
005052
003152
003154

— A

SWR

VONNOVSTOr—D
NN ~NWOO
O 00 S —

STIXV

SUBTEN
SUBINA
SUBTNB
SVRPC
SVRPSW

10:53
PAGE 74
CROSS REFERENCE

MACY11 30A(1052)
MAIN.
28-JUN=-79
CIDLAM.P11
28-JUN-79 10:49

6014
631

9904
992
998
990+

704
11104
1112#

15264

2295

1042

3114

1508#

1288+

2695+
977+
1640+
1694

1161
1646
1702+

2300
2558+
2951
2160

2367
2581+

983
981+

2899«
1166+

1649
1716

1281+
1662

2559

1008

1005
994

996

1000

1004+

1283
1666+

1475
1667

287

2219
2520+
2886

2225
2537
2898

XOR
XORA
XORADD
XORFLG
$SCRLF

)

002774
002112
001276
002110
004212

= 020360

L7648
995
997
3033
30864

O PO —

oo
—

(LWL

oo
LSRN
e 3

~NO0o

srNoo

26432

SEQ 0074
NN
—

303
239

807
1551

Py
—

26417
3030
2242

796
1522
2427
3058

1154

1172

1298

1303

2265
2941

2270
2944

2275
2966

2280

1626

16324
1795
19158

1653
1801#
1830

16594
1822
19364-

2969

632

5914

21454
2385
2603#
2760
28804
851

712
5484
716+
648
L1
1284
2989

~no

1558#
1679
18284
1953

1016
1014+

82#

orno

001402

= 000063

2407
2979

777
15 02
242

70#

1594
17284
1879

1600#

1743
1885#

2030#
2231
25064
2668
2805#

2048
22374
2524
26744
2824

1586

2853

2868

5014
2293

5064
2296

508#
2450

015520
015534
003562
003606
003610

756
1452

== USER SYMBOLS

114

o:o

104001
003532
003544

L7348
1307

TABLE

NOWVNOO 0~V S
VN0
=P~
oo

UMASK

104000

PNONUNINUNY
= st s s

TYPES
TYPF
TYPG
TYPOC
TYPON
TYPS
TYPSA
TYPSB

\l\\

TYPE

10:53
PAGE 75
CROSS REFERENCE

O v

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

1610
17494
‘1894

16164
1769
1900#

20544
2310
25304
2692
2830#

2698#
2845

510#

7258

2473

2076
2356
2546

2677

1775#
1909
2082#

2336
2552#
2720
2851#

2105
23428
2569
2726#
2860

799
2682

2487

1002

21118
2356
2575#
2737
2866#

119¢

2691

2139
236248
2597
27438
2874

1203

2891

ABS.

735#
1864

2335
2759
1560
1879

1575

1893

2355
2772

1576
1894

2310
2737

2336
2760

235
277

020360

000

ERRORS DETECTED:

]

1609
1929

2459
2823
1610
1930

2460
2824

CZDLAH.BIN,CZDLAH.LST/CRF/SOL/NL:TOC=CZDLAH.P1

RUN=TIME: 11 23 4 SECON
RUN-TIME RATIO: 122/39=3.
CORE USED 11k
(21 PAGES)

1625
1952

2499
2844

1626
1953
2500
2845

TABLE
1652
1994

2523
2859

1653
1995
2524
2860

== MACRO NAMES

SEQ 0075

1678
2023

1705
2047

1679
2024
2546
2874

1706
2048
2569

2545

2568

VWO
N
O~
oo —

2309
2736

1559

1678

PO
—

TSTAA

7440

1863

10:53
PAGE 77
CROSS REFERENCE

VO
O~
~NoeNy

TSTA

NN
—

CMAIN.
MACY1Y 30A(1052)
28-J4u
CZDLAK.P1
28=JUN-79 10:49

1742

1768

1794

1821

2104
2620

2138
2644

2166
2667

2204
2691

1743
2105
2621

1769

1795

1822

2139
2645

2167
2668

2205
2692

1848

2230
2719
1849

2231
2720