Digital PDFs

AH-A914B-MC

November 1980

140 pages

Original

72MB

view download

OCR Version

96MB

view download

Document:	CZKCFB0 KMC11-A BITSTUFF MD L TSTS NOV 1980 bw
Order Number:	AH-A914B-MC
Revision:	000
Pages:	140
Original Filename:	CZKCFB0__KMC11-A__BITSTUFF_MD_L_TSTS__AH-A914B-MC__NOV_1980_gray.pdf

OCR Text

KNCLL-A

” CZKCFBO

BITSITUEE MD [ TSTS

18o0C, gt ww HEIED

AH-A914B-MC

_FICHE

Jovime-

“oo

MACY11 30A(1052)
08-JUL-80
P11
08-JUL-80 08:24

08:27
.REM

PAGE 2

SEQ 0001

NN = O 000

OB NN —

PRODUCT CODE:

AC-A913B-MC

= OV

IDENTIFICATION

PRODUCT NAME:

CIKCFBO BITSTUFF MD L TSTS

DATE:

AUGUST 1980

MAINTAINER:

DIAGNOSTICS-MERRIMACK

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
ggcuzga¥0NSlBlthY FOR ANY ERRORS
THAT MAY APPEAR
THE SOF TWARE DESCRIBED IN THIS DOCUMENT

LICENSE

IS FURNISHED

WITHOUT
DIGITAL

ASSUMES
IN THIS

UNDER

AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES
THE

USE

RELIABILITY OF

NOT SUPPLIED BY DIGITAL.

RESPONSIBILITY

ITS SOFTWARE ON EQUIPMENT THAT

FOR
IS

PAGE 3

SEQ 0002

ABSTRACT
THE FUNCTION OF

THE KMC11

DIAGNOSTICS

IS TO

OPTION OPERATES ACCORDING TO SPECIFICATIONS.
VERF1Y THAT THERE ARE NO MALFUNCTIONS AND THE
OF THE KMC11 ARE CORRECT IN ITS ENVIRONMENT.
PARAMETERS MUST BE SET UP TO

ALERT

THE

VERIFY

THAT

THE

M8202).

THE DIAGNOSTICS
ALL
OPERATIONS

DIAGNOSTICS

KMC11
CONFIGURATION.
THESE
PARAMETERS ARE CONTAINED IN THE
STATUS
TABLE
AND
ARE
GENERATED
IN
TWO WAYS:
1)
MANUAL
INPUT = THE
OPERATOR
ANSWERS QUESTIONS.
2) AUTOSIZING - THE
PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY.

CZKCF TESTS

PERFORMS

THE

KMC-11

LINE_

UNIT

(M8201

WRITE/READ TESTS ON THE KMC LINE UNIT REGISTERS.

CHECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION
IN
BITSTUFF
MODE.
THE MODEM SIGNALS ARE ALSO CHECKED.
DZKCF
REQUIRES A KMC
MICRO-PROCESSOR
(MB204)
TO
RUN.
FOR
BEST
DIAGNOSIS A TURN-AROUND CONNECTOR SHOULD BE INSTALLED, HOWEVER
THE DIAGNOSTIC WILL RUN WITHOUT IT (SOME TESTS ARE SKIPPED).
CURRENTLY THERE ARE FOUR OFF LINE DIAGNOSTICS THAT ARE
TO BE
RUN
IN
SEQUENCE
TO
INSURE THAT IF AN ERROR SHOULD OCCUR IT
WILL BE DETECTED AT AN EARLY STAGE.
NOTE:

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE FOUR DIAGNOSTICS ARE:

WSS NN -

DZKCC
DZKCD
DZKCE
DZKCF

DZKCA

CREV] BASIC W/R AND MICRO-PROCESSOR TESTS
[REV] JUMP AND MAIN MEMORYTESTS (HEAT TEST TAPE)
CREV] DDCMP LINE UNIT TESTS
EREV] BITSTUFF LINE UNIT TESTS

[REV] KMC11

CPU MICRO-DIGNOSTICS.

NOTE: NAMES MAY CHANGE AS UPDATES OCCUR.
REQUIREMENTS

EQUIPMENT

ANY PDP11 FAMILY CPU (EXCEPT AN LSI=11) WITH MINIMUM 8K MEMORY
ASR 33 (OR EQUILIVALENT)
KMC11-AN 10P (M8204)
KMC11=DA OR KMC11=MD OR KMC11-MA

—

43
Lo
45

08:27

CZKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.P1
08-JuL-80 08:2¢4

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF P11
08-JuL-80 08:24
92
93
gg

08:27

PAGE &

2.2

96
97
98
99
100

rURZS

..._.d-.d_‘_‘-.—.—.d-‘—l-d—.-a—.—O—l—...‘—b-._._.._‘_.d—l-.
N N L L
S N L L
L
N P e
L
PN
o

STORAGE
PROGRAM WILL USE
ALL
8K
OF
MEMORY
EXCEPT
WHERE
ABL
AND
BOOTSTRAP
LOADER
RESIDE.
LOCATIONS 2100 THRU 2300;
CONTAIN
THE "'STATUS TABLE'' INFORMATION WHICH IS GENERATED AT START
OF
DIAGNOSTICS BY
MANUAL
INPUT
(QUESTIONS)
OR AUTOMATICALLY
(AUTO-SIZING).
THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE
ALTERED BY THE OPERATOR.

}8;

}82

SEQ 0003

LOADING PROCEEDURE

3.1

METHOD
ALL PROGRAMS ARE

ABSOLUTE LOADER.

IN ABSOLUTE FORMAT AND ARE LOADED

NOTE:

USING

THE

IF THE DIAGNOSTICS ARE ON A MEDIA SUCH

AS DISK ,MAGTAPE,DECTAPE, OR
CASSETTE;
FOLLOW
INSTRUCTIONS
;ggIATHE
MONITOR
WHICH
HAS
BEEN
PROVIDED ON THAT SPECIFIC

ABSOLUTE LOADER STARTING ADDRESS #500
MEMORY

+ SIZE

8K
12K
16K

20K
24K
28K

37
57

117
137
157

3.1.1

PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER.
(ALSO PLACE "HALT' SW UP)

3.1.2

DEPRESS 'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

3.1.3

DEPRESS 'START KEY' ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW
BE LOADING INTO CPU)

MACY11

30A(1052)

08-JUL-80

08-JuUL~-80 08:24

08:27

PAGE 5

B.
C.

D e

SET SWITCH REGISTER TO 000200

DEPRESS 'LOAD ADDRESS' KEY AND RELEASE
SET SWR TO ZERO FOR 'AUTO SIZING' OR SWR BITO=1 FOR MANUAL
INPUT (QUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS
3?16388?{CA PREVIOUS

(IF

PREVIOUSLY

THE

PROGRAM

RUN

KMC11

WILL

TYPE

THIS WAS THE FIRST START

UP OF THE PROGRAM) AND ALSO THE FOLLOWING:
MAP OF KMC11 STATUS

CSR

STAT1

002100 160010 045310
002110 160020 045320

D
D
b
D
b
b
D i
D wdd
b
b
b wod wd
i
) b onld i
ol aid
i
b cnld s
i
b il

DEPRESS 'START KEY' AND RELEASE.

STAT2

STAT3

177777
177777

000000
000000

THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN
THE
DIAGNOSTIC.
THE
ABOVE IS ONLY AN EXAMPLE.
THIS WOULD INDICATE THE STATUS
TABLE STARTING AT ADD.
2100 IN THE PROGRAM.
IN THIS
EXAMPLE
THE
TABLE CONTAINS THE INFORMATION AND STATUS OF TWO KMC11°'S.
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF
AUTO
SIZING

agLPDONE.

FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR

IF THE DIAGNOSTIC WAS STARTED WITH

PARAMETER

INPUT

THEN

THE

SWO00=1

INDICATING

MANUAL

FOLLOWING SHOWS AN EXAMPLE OF THE

QUESTIONS ASKED AND SOME EXAMPLE ANSWERS:
8?0 MANY KMC11'S TO BE TESTED?1
CSR ADDRESS?160010
VECTOR ADDRESS?310

UNICH LINE UNITS
IF NONE TYPE'N", IF WB201 TYpE “1°, If
M8202 TYPE g"?l

IS tg25” BACK CONNECTOR ON?Y
(1f
1 AND LOOP BACK CONNECTOR ON THEN YOU GET THE NEXT QUESTION)
WHICH MODEM TYPE, TYPE "D’ FOR KMC11-DA (RS232).OR

TYPE *F'' FOR KMCT1=FA (v.35) 2 D

SWITCH PAC#1 (DDCMP

SWITCH PAC#2 (

LINE#)?377

800T ADD)?377

FOLLOWING THE QUESTIONS

b sl

0o Co 00 G0 00 0o 0o G0 ~

START

MAINDEC NAME AND PROGRAM NAME

b— e e

D D D e

SEQ 0004

STARTING PROCEEDURE

D wd

D d d h i

BB DD
DN
NNSNSNNNNNNO Ooo«googgmmuwmmm\nmwb
VRNV
WSOV
NOWVS NN =0V~

SW00=0

AND

SWO

(

THE

AND ONLY THE STATUS=MA
USED THE STATUS INFORMA
(MATCH THE HARDWARE).
IF
DIAGNOSTIC MUST BE REST
ANSWERED.

STATUS

MAP

PRINTED

OUT

ORMATION IN THE MAP REFLECTS THE

THE DIAGNOSTIC WAS STARTED WITH
ING) THEN NO QUESTIONS ARE ASKED
NTED OUT.
IF
AUTO-SIZING IS
ON MUST BE VERIFIED TO BE CORRECT
DOES NOT MATCH THE HARDWARE THE

WITH SWO0=1 AND THE QUESTIONS

VIS WN =O

d cnd

sk ek

NN AN PINININI NI e

i o

) e e

SEIRIRER28 ERLRRRE828%S

= x

alsl

om
NN

MACY11 30A(1052)
08-JuUL-80
L1
08-JuL-80 08:2¢4

08:27

4.1

PAGE 6

SEQ 0005

CONTROL SWITCH SETTINGS

SW
SW
SW
SW
SW
SW
SW
SW
SW
SW

15
14
13
12
11
10
09
08
07
06

SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:

HALT ON ERROR
LOOP ON CURRENT TEST
INWIBIT ERROR PRINT OUT
INHIBIT TYPE OUT ABELL ON ERROR.
INHIBIT ITERATIONS.
(QUICK PASS)
ESCAPE TO NEXT TEST ON ERROR
LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE.
HALT IN
ROMCLK
ROUTINE
BEFORE

SW
SW
SW
SW
SW
SW

05
04
03
02
01
00

SET:
SET:
SET:
SET:
SET:
SET:

RESERVED
RESERVED
RESELECT KMC11'S DESIRED ACTIVE
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST
BUILD NEW STATUS TABLE FROM QUESTIONS.
(IF SW07=0
AND SW00=0 A NEW STATUS
TABLE
IS BUILT BY

CLOCKING

MICRO-PROCESSOR

AUTO-SIZING)

SWITCH 06 AMD 08-15 ARE DYNAMIC AND CAN BE CHANGED

NEEDED

WHILE THE DIAGNOSTIC IS RUNNING.
SWITCHES 00-03 AND SWITCH 07
S?Esasg;{g, AND ARE USED ONLY ON STARTING
OR
RESTARTING
THE

MACY11 30A(1052)
08-JuL-80
PN
08-JuL-80 08:24

08:27

PAGE 7
SEQ 0006

4.1.2

SWITCH REGISTER OPTIONS (AT START UP)
sw 01

RESTART PROGRAM AT

SUGGESTED

SELECTED

TEST.

STRONGLY

THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE

TRYING TO SELECT A TEST, THE REASON BEING IS THAT
THE
PROGRAM
HAS
TO
CLEAR
AREAS
AND SET UP PARAMETERS.
WHEN THIS SWITCH IS USED THE DIAGNOSTIC WILL ASK
TEST
NO.?
ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED

?ggTCARRIGE RETURN TO BEGIN EXECUTION AT THE

sw 02

LOCK ON SELECTED TEST.

SW01

THIS

SWITCH

WHEN

SELECTED

USED

WITH

WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE

SELECTED TEST.
HITTING ANY KEY ON THE
CONSOLE
WILL
LET
IT
ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY

IS HIT AGAIN.

SW02=0

WHEN

SW01

USED.

THE

PROGRAM WILL
BEGIN AT THE SELECTED TEST AND CONTINUE
NORMAL OPERATIONS.

Sw 03

RESELECT KMC11'S DESIRED ACTIVE.
PLEASE NOTE
THAT
A
MESSAGE
IS
TYPED OUT FOR SETTING THE SWITCH REGISTER

EQUAL TO KMC11°'S ACTIVE.
THIS MEANS IF THE SYSTEM HAS
FOUR KMC11S;
BITS 00,01,02,03 WILL BE SET IN LOC
'KMACTV'
FROM THE
SWITCH REGISTER.
USING
THIS
SWITCH(SWOO)
ALTERS
THAT LOCATION;THEREFORE IF FOUR
KMC11S ARE IN THE SYSTEM ###D0 NOTee+
SET
SWITCHS
GREATER THAN SW 03 IN THE UP POSITION.
THIS WOULD BE
A FATAL ERROR.
DO NOT SELECT MORE ACTIVE KMC11S
THERE IS INFORMATION ON IN THE STATUS TABLE.

METHOD: A:

THAN

LOAD ADDRESS 200

B:
C:
D:

START WITH Sw 00=1
PROGRAM WILL TYPE MESSAGE
SET A SWITCH FOR EACH KMC DESIRED ACTIVE.
EXAMPLE:
IF YOU HAVE 4 KMC'S BUT ONLY WANT TO
RUN THE FIRST AND THE LAST SET SWR BITS 0 AND

NUMBER (IF VALID)
(EXCLUDING 11/05)

3 = 1.

PRESS CONTINUE

SET WITH ANY OTHER
PRESS CONTINUE.

WILL
SWITCH

DATA

SETTINGS

LIGHTS
DESIRED.

MACY11 30A(1052)
08-JUL-80
1
08-JuUL-80 08:24

08:27

PAGE 8
SEQ 0007

4.1.3

DYNAMIC SWITCHES
FRROR SWITCHES
1.

SW 1

DELETE PRINT OQUT/BELL ON ERROR.

SWw 08

GOTO BEGINNING OF THE TEST(ON ERROR).

2.
3.

sW 1
SW 15

SW 10

SCOPE

DELETE ERROR PRINTOUT.
HALT ON THE ERROR.

GOTO NEXT TEST(ON ERROR).

SWITCHES

SW06

MWALT
IN
ROMCLK
ROUTINE
MICRO-PROCESSOR
INSTRUCTION.

BEFORE
CLOCKING
THIS
ALLOWS
THE

OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN
THE
STATIC
STATE
BEFORE
IT
1S
CLOCKED.
HIT
CONTINUE TO RESUME RUNNING.
(IF ENABLED BY 'SCOP1') ON AN ERROR;
IF AN '+' IS

SW09

PRINTED

1IN FRONT OF THE TEST NO.

(EX.

+TEST NO.

10
)
W09 IS
INCORPORATED
IN THAT
TEST AND
THEREFORE
SW09 IS USUALLY THE BEST SWITCH FOR THE

SCOPE LOOP (SW14=0, SW10=0, SW09=1, SWO08=0).
IFf
SW09 IS NOT ENABELED;
AND THERE IS A HARD ERROR
(CONSTANT);

SWOB

SW09=0, SWO8=1).

WILL LOOP ON TEST

4.
4.2

BEST.

(SW14=1,0,

Sw10=0,

FOR INTERMITTEMT ERRORS:
assxunoLess

ERROR

ERROR.
(SW14=1, Sw10=0, SW09=0, SW08=1,0)
INWIBIT INTERATIONS.

SWil

SW14

SW14=1

NOT

LOOP ON CURRENT TEST.

STARTING ADDRESS

STARTING ADDRESS IS AT 000200 THERE
ADDRESSES FOR THE KMC11 DIAGNOSTICS.

NOTE:

ARE NO OTHER STARTING
(SEE SECTION 4.0)

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES 1T
IS
UNDER
ACT11
OR XXDP CONTROL AND WILL ACT

ACCORDINGLY AFTER ALL AVAILABLE KMC11'S ARE TESTED THE
PROGRAM WILL RETURN TO 'XXDP' OR 'ACT-11'.

OPERATING PROCEDURE
WHEN PROGRAM IS INITIALLY STARTED

SECTION

4.0

THE DIAGNOSTIC

WILL

MESSAGES

DESCRIBED

BE PRINTED, AND PROGRAM WILL BEGIN RUNNING

MACY11 30A(1052)
LZK CF
08-JUL-80
CZKCF.P11
08-JuL-80 08:2¢4

LN LN N N N N N NN N W
P e e
ed e o
s oOV
VNS WNN — OO

307
308

08:27

PAGE 9
SEQ 0008

5.2

PROGRAM AND/OR OPERATOR ACTION
THE

TYPICAL APPROACH SHOULD BE

HALT ON ERROR (VIA SW 15=1) WHEN EVER AN ERROR OCCURS.

SET SW 13:

g,
3.

CLEAR SW 15,
SET SW 14:
(LOOP ON THIS TEST)

(INHIBIT ERROR PRINT OUT)

THE TEST NUMBER AND PC WILL BE

ERROR

TYPED

OUT

AND

POSSIBILY

MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR

AN IDEA AS TO THE SOURCE OF THE PROBLEM.
IF IT
IS
NECESSARY
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT;
LOOK IN
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND
THEN
NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF
THE TEST CAN BE DETERMINED.

ERRORS
AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND S
12=0).
_IN MOST CASES ADDITIONAL INFORMATION WILL BE
SUPPLIED
%:Etggkgge ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF

6.2

ERROR RECOVERY

IF FOR SOME REASON THE KMC11
SHOULD
'HANG THE BUS'
(GAIN
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED)
AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR
TO REGAIN
CONTROL OF
CPU.
IF
THIS SHOULD HAPPEN;
LOOK IN LOCATION
‘TSTNM' (ADDRESS 1202)FOR THE NUMBER OF
THE TEST THAT WAS

RUNNING

THE

TIME OF THE CATASTROPHIC ERROR.

IN THIS WAY

THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE KMC11 WAS
AT THE TIME OF THE ERROR.

DOING

RESTRICTIONS
STARTING RESTRICTIONS
SEE SECTION 4,
(PLEASE)
STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS
STARTED.,
ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH
;ggatg:glfllTION PRINTED ON THE
TTY TO COMPLETLY
ISOLATE

—

MACY11 30A(1052)
08-JuUL-80
1"
08-JuL-80 08:24

08:27

7.2

PAGE 10

SEQ 0009

OPERATING RESTRICTIONS
THE
THE

FIRST TIME A KMC11 DIAGNOSTIC
STATUS TABLE MUST BE SET UP,

(SW00=1) OR BY AUTOSIZING

(SW00=0

IS LOADED INTO CORE AND
RUN
THIS IS DONE BY MANUAL INPUT

AND

SW07=0).

THEREAFTER

HOWEVER
THE
STATUS
TABLE
NEED
NOT
BE SETUP BY SUBSEQUENT
RESTARTS OR EVEN LOADING THE NEXT KMC DIAGNOSTIC
BECAUSE
THE

STATUS
TABLE
IS OVERLAYED. _ THE
CURRENT PARAMETERS IN THE
STATUS TABLE ARE USED WHEN SWO07=1 ON START UP.

HARDWARE CONFIGURATION RESTRICTIONS

KMC11

IOP(M8204)= JUMPER W1 MUST BE IN,

LINE UNIT(M8201)~- JUMPERS W1, W2, AND W4 MUST BE IN.
JUMPERS
ggéxr?gz W5 MUST BE OUT.
SW8 OF
E26 MUST BE IN THE ON

LINE UNIT (M8202)- JUMPER W1 MUST BE IN.

SW8 OF E26

IN THE OFF POSITION.

MUST

MISCELLANEOUS

EXECUTION TIME
ALL KMC11 DEVICE DIAGNOSTICS WILL
GIVE AN 'END
PASS'
(PROVIDING NO ERRORS AND
SW12=0)
WITHIN & MINS.

MESSAGE
THIS IS

ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST
POSSIBLE EXECUTION.
THE ACTUAL EXECUTION TIME DEPENDS GREATLY
g¢8¥g§ PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE

8.2

PASS COMPLETE

NOTE:
EVERY TIME THE PROGRAM 1S STARTED;
THE TESTS WILL RUN
AS
IF
SW11
(DELETE
ITERATIONS) WAS UP (=1).
THIS IS TO
'VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE.
THEREFORE THE
FIRST PASS <=EACH TIME PROGRAM IS STARTED- WILL BE A ‘QuUICK
PASS' UNTIL ALL KMC11'S IN SYSTEM ARE TESTED.
WHEN THE

DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF
THE PRINT OUT TO BE EXPECTED.

END PASS CZKCF CSR:
ERRORS:

NOTE:

175000 VEC:

0300 PASSES:

THE PASS COUNT AND ERROR COUNTS

EACH

KMC11

THAT IS RUNNING,

ARE

000001
CUMMULITIVE

FOR

AND ARE SET TO ZERO ONLY

WHEN THE DIAGNOSTIC IS STARTED.

THEREFORE

AFTER

OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS
FOR EACH KMC11 SINCE THE DIAGNOSTIC WAS STARTED ARE
REFLECTED IN PASSES:

AND ERRORS:.

08:27

PAGE 11

SEQ@ 0010

(={=]

MACY11 30A(1052)
08-JuL-80
P11
08-JuL-80 08:24

8.4

KEY LOCATIONS

LPADR (1206)

CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN

(1442)

CONTAINS THE ADDRESS OF
PEFORMED.

THE NEXT

TEST

TSTNM

(1202)

CONTAINS THE NUMBER

THE

NOW

BEING

RUN

(1500)

WHEN
ITERATION COUNT IS REACHED OR IF LOOP ON
TEST IS ASSERTED.

PEFORMED.

TEST

THE BIT IN "RUN' ALWAYS POINTS
TO
THE
CURRENTLY
BEING
TESTED.
EXAMPLE:
1500/0000000001000000 MEANS THAT
KMC11

IS THE KMC11 NOW RUNNING.

KMCROO-KMCR17
KMSTO0-KMST17
(2100)-(2300)

KMC11
(RUN)
NO.06

THESE LOCATIONS CONTAIN THE INFORMATION NEEDED
TO TEST UP TO 16 (DECIMAL) KMC11S SEQUENTIALY.
THEY
CONTAIN
THE
CSR,VECTOR
AND
STATUS

CONCERNING THE CONFIGURATION OF EACH KMC11.
KMACTV (14700

KMCSR

8.4A

(2066)

EACH BIT SET IN THIS LOCATION INDICATES THAT
THE
ASSOCIATED KMC11 WILL BE TESTED IN TURN.

EXAMPLE:

(KMACTV) 1470/0000000000011111 MEANS

EXAMPLE:

(KMACTY) ~1470/0000000000010001 MEANS

THAT KMC11 NO.

00.01,02,03,04 WILL BE TESTED.

THAT KMC11 NO.

00,04 WILL BE TESTED.

ggg;Alus THE CSR OF THE

CURRENT

KMC11

UNDER

'STATUS TABLE' (2100-2300)
THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL

PARAMETER

INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY
USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO
SUIT THE SPECIFIC
3
CONFIGURATION.
THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS
INFORMATION FOR
TW0 KMC11'S
THE TABLE CAN CONTAIN UP TO 16 KMC11'S.
Eg%kgfllflG THE E MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP

MAP OF KMC11 STATUS

463

CSR

002110

8 160010
160020

STAT1

STAT2

STAT3

Si10
016320

177777
000000

000000
000000

CZKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.P11
08=JUL-80 08:24

468
466
467
468
469

470

471

08:27

PAGE 12

SEQ@ 0011

EACH MAP ENTRY CONTAINS &
WORDS WHICH
CONTAIN
THE
STATUS
INFORMATION
FOR
1
KMC11.
THE PC SHOWS WHERE IN CORE MEMORY
THE FIRST OF THE & uoaos IS.
gu
THE EXAMPLE ABOVE
THE
FIRST
KMC'S STATUS IS IN LOCATIONS,
210 ,
2102, 2104,
AND 2106.
THE

SECOND KMC STATUS IS LOCATEDAT 211 21912, 2114, AND 2116.
THE

INFORMATION

CONTAINED IN EACH & uono ENTRY IS DEFINED AS

Z.;rg

FOLLOWS :

2;§

CSR:

CONTAINS KMC11 CSR ADDRESS

476
477
478
479
480
481

STAT1:

BITS 00-08 IS KMC11 VECTOR ADDRESS
BIT14=1 TURNAROUND CONNECTOR IS ON
BIT14=0 NO TURNAROUND CONNECTOR
BIT13=0 LINE UNIT IS AN M8201
BIT13=1 LINE UNIT IS AN M8202
BIT12=1 NO LINE UNIT

484

STAT2:

487

STAT3:

2g§
232

233

BITS 09-11 IS KMC11 BR PRIORITY LEVEL
LOW BYTE IS SWITCH PACH#1

(DDCMP LINE NUMBER)

HIGH BYTE IS SWITCH PACA2 (BM873 BOOT ADD)

BIT2=0
BIT2=1

KMC11-DA

KMC11-FA

CZKCF
MACY11 30A(1052)
08-JUL-B0
CZKCF.PI
08-JuL-80 08:24

08:27

PAGE 13

SEQ@ 0012

490

491
492

493
494
495

8.5

METHOD OF AUTO SIZING

8.5.1

FINDING THE CONTROL STATUS REGISTER.

496

THE AUTO-SIZING ROUTINE FINDS A KMC11 AS FOLLOWS:
IT
ST
AT ADDRESS 160000 AND TESTS ALL
ADDRESS IN INCREMENTS OF 1
TO AND INCLUDING ADDRESS 167760.
IF THE ADDRESS DOES NOT
OUT,
THE FOLLOWING IS DONE, THE FIRST CRAM ADDRESS IS WRI

497

TO A 125252 THEN IT IS READ BACK.
IF
IT CONTAINS A =1
OR
125252 A KMC11 HAS BEEN FOUND, IF NOT, THE ADDRESS IS UPDATED
BY 10 AND THE SEARCH CONTINUES. A =1 INDICATES A KMC11 WITH
NO CRAM,
A 125252 INDICATES A KMC11 WITH CRAM FURTHER TESTS

ARE PERFORMED AT THIS POINT TO DETERMINE WHICH LINE
UNIT,
IF
ANY,
IS
INSTALLED,
IF A LOOP-BACK CONNECTOR IS INSTALLED AND
0
VARIOUS SWITCH SETTINGS ON THE LINE UNIT,
THIS
IS WHY
THE

STATUS TABLE MUST BE VERIFIED BY THE USER AND IF ANY OF THE
INFORMATION DOES NOT AGREE WITH THE HARDWARE
THE DIAGNOSTIC
MUST BE RESTARTED AND THE QUESTIONS MUST BE ANSWERED.
ALL
KMC11°'S IN ThE SYSTEM WILL BE FOUND BY THE AUTO-SIZER.
IF
IT
DOES NOT FIND A KMC11 THE DIAGNOSTIC MUST BE RESTARTED AND THE
QUESTIONS ANSWERED.

LVLN
B o0

VWAL

—

VIV
N2kl m\un\au\nmvlm\nvl\flmmmummumummmmuo
NI NININONININD = b s =2

EIFHRRURZE VONOWVSWN=OOVRNOWVSWNN—-O

509

8.5.2

FINDING THE VECTOR AND BR LEVEL

THE

VECTOR

AREA

(ADDRESS

300-776)

FILLED

WITH

THE

INSTRUCTION IOT AND_ '.+2'
(NEXT ADDRESS).
THE PROCESSOR
STATUS 1S STARTED AT 7 AND THE KMC IS PROGRAMMED TO INTERRUPT.

THE PS
IS LOWERED BY 1 UNTIL THE KMC INTERRUPTS, A DELAY IS
MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF
A
KMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL
AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC.
ONCE THE
PROBLEM IS FIXED:
THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET
CORRECT VECTOR.
IF AN INTERUPT OCCURED;
THE ADDRESS TO WHICH
THE KMC11
INTERUPTED TO IS PICKED UP AND REPORTED AS THE
VECTOR. NOTE:
IF THE VECTOR REPORTED IS NOT THE VECTOR SET
UP BY YOU;
THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE
8.6

SOFTWARE SWITCH REGISTER

IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A
SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO
ALLOW USER THE SAME
SWITCH OPTIONS AS DESCRIBED PREVIOUSLY.
IF THE HARDWARE SWITCH REGISTER ggs; NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (17
)
THIS SOFTWARE SWITCH
ggz%:ssl IS USED.
TO OBTAIN CONTROL AT ANY ALLOWABLE TIME

DURING

EXECUTION

THE DIAGNOSTIC THE OPERATOR TYPES A CTRL G ON THE CONSOLE
TERMINAL KEYBOARD.
AS SOON AS THE CTRL G
IS RECOGNIZED, BY
THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED:
SWR=XXXXXX NEW?

CZKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.P1
08-JuL-80 08:2¢4

08:27

PAGE 14

SEQ 0013

VWA VI UYWAY
VI VWAL w

54
WHERE XXXXXX IS THE CURRENT CONTENTS OF
THE
SOFTWARE
SWITCH
REGISTER
IN
OCTAL.
THE
SOFTWARE CONTROL ROUTINE WILL THEN
AWAIT OPERATOR ACTION.
AT WHICH TIME THE OPERATOR IS REQUIRED
TO
TYPE
ONE
OR_MORE OF THE LEGAL CHARACTERS:
1) 0 -7, 2)

LINE FEED(<LF>), 3) CARRIAGE

RETURN(<CR>),

CONTROL-U

(CTRL
U).
NO CHECK
IS MADE
FOR
LEGALITY.
[IF THE INPUT
CHARACTER IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED
TO BE

AN OCTAL DIGIT.

TO CHANGE THE CONTENTS OF THE SSR THE
OPERATOR
SIMPLY
TYPES
THE
NEW
DESIRED
VALUE
IN OCTAL - LEADING ZEROS NEED NOT BE
TYPED.
AND TERMINATES THE INPUT STRING WITH A
<CR>
OR
<LF>

DEPENDING
THE

THE

PROGRAM ACTION DESIRED AS DESCRIBED BELOW.

INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS

TYPED.

AT
LEAST ONE
DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR.
WHEN THE INPUT STRING IS TERMINATED WITH A <CR> THE DIAGNOSTIC

WILL
CONTINUE EXECUTION FROM THE
POINT AT WHICH
IT WAS
INTERRUPTED.
IF A <CR> IS THE ONLY THING TYPED
THE
PROGRAM
WILL CONTINUE WITHOUT CHANGING THE SSR.
THE <LF> DIFFERS FROM
I=§R§§g>238 RESTARTING THE PROGRAM AS IF

IT WERE RESTARTED

IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO
THE
TERMINATOR
THE
INPUT VALUE WILL BE DISREGARDED AND THE
PROMPT DISPLAYED (SWR = XXXXXX NEW?).
TO SET THE SSR FOR

THE

STARTING

R R R

SWITCHES,

FIRST

LOAD

DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC.
AR

THE

R R AR AR R AR R AR RS

NOTE:FOR IPG'S LINE UNIT M8202-YE USERS.

CABLE DATA TEST:[TEST 60, TEST 61]
THESE TESTS WON'T RUN RELIABLY ON LINE
TERMINATING RESISTENCE.

UNITS

WITHOUT

MACY11

P11

30A(1052)

08-JUL-80

08-JUL-80 08:24

08:27

PAGE 15

SEQ 0014

APT/ACT/XXDP/SLIDE

THIS DIAGNOSTIC

IS APT/ACT/XXDP/SLIDE

COMPATIBLE USER WOULD BE

NOTE:
FOR MANUFACTURING PURPOSE ONLY
UNDER APT ENVIRONMENT.

ITS DESCRIBED HOW TO RUN

ABLE TO RUN IT UNDER APT/ACT/XXDP ENVIRONMENT.

LAA AR

AR A

2222

ETABLE SETTING FOR APT TO RUN UNDER APT

FIRST PASS TIME:

LONGEST TEST TIME:
ADDITIONAL TEST TIME:
ALL
THE
ABOVE
PARAMETERS
ARE
DEPENDENT
DIAGNOSTICS
AND
SHOULD BE
LOADED
AT
THE
ETABLE.THERE IS NO DEFAULT TIME SET UP.

SOF TWARE ENVIRONMENT:001

ON
PARTICULAR
TIME OF SETTING

ENVIRONMENT MODE :200

SWITCH 1:-SHOULD BE USED AS NORMAL SWITCH REGISTER.

SWITCH 2:-NOT USED.
CPU OPTIONS:=NOT USED.

MEMORY TYPE 1:-BITS<2:4>:=BITS <12:14> OF STAT1 OF DEV:0.
MAXIMUM ADDRESS:=BITS<17:19>:=BITS<12:14> OF STAT1 OF DEV:1

BITS<2:4>:=BITS <12:14> OF STAT1 OF DEV:2

BITS<10:12>:=BIT7S<12:14> OF STAT1 OF DEV:3
IN THE SAME MANNER

MEMORY TYPE 2 MAXIMUM
L '60 .

ADDRESS:-GETS

STAT1<12:14>

DEVICE

gfigO?z }{PE 3 MAXIMUM

ADDRESS:=GETS

STAT1<12:14>

DEVICE

?SH?§Y117:

ADDRESS:-GETS

STATI<12:14>

DEVICE

4 MAXIMUM

INTERRUPT VECTOR 1:FIRST DEVICE RECEIVE VECTOR.

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JUL-80 08:24

08:27

PAGE 16

SEQ 0015

644

REST OF

647
648

BUS PRIORITY:KMC'S PRIORITY(SHOULD BE SAME FOR ALL KMC'S UNDER
TEST).

650

INTERRUPT VECTOR 2:NOT USED.

652

BUS PRIORITY:NOT USED.

654

BASE ADDRESS:FIRST DEVICE CSR ADDRESS.

645

THE DEVICE(KMC'S) VECTOR SHOULD BE SET UP SEQUENTIALLY

IN INCREMENTS OF 10.

656

REST SHOULD FOLLOW SEQUENTIALLY

658

IN INCREMENTS OF 10.

660

DEVICE MAP:AS DESCRIBED IN APT MANUAL.

662

CONTROLLER SPECIFIC CODE 1:-NO.

664

CONTROLLER SPECIFIC CODE 2:=NOT USED.

666

DEVICE DESCRIPTOR WORD 0:STAT2 OF FIRST DEVICE.

668

‘

670

672

674

676

678

DEVICE DESCRIPTOR WORD 15:STAT2 OF 16TH DEVICE.(KMC)

681
683
685

9.0

OF DEVICES UNDER TEST.

HISTORY
THIS DIAGNOSTIC WAS UPDATED TO DETECT FOR THE CONDITION OF V.35
AND MB201.
IN THIS CONIFURATION, RING WILL NOT BE LOOPED BACK
AND SHOULD NOT BE TESTED FOR.

CZKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.PI
08-JUL~-80 08:24

687

08:27

PAGE 17
SEQ 0016

.TITLE

CZKCF

;*COPYRIGHT (C) 1976
;*DIGITAL EQUIPMENT CORP.

'tHAYNARD MASS.

01754

OPROGRAH BY DINESH GORADIA
'THIS PROGRAM WAS ASSEMBLED USING THE PDP=11

;*PACKAGE

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

1977.

MAINDEC

SYSMAC

s*CZKCF
BIT STUFF MD L TSTS
;*COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
- -

sSTARTING PROCEDURE
:LOAD PROGRAM
:LOAD ADDRESS 000200
;SWR=0 AUTOSIZE KMC11

:SW07=1
:SW00=1

USE CURRENT KMC11 PARAMETERS
INPUT NEW KMC11 PARAMETERS

;PRESS START
;PROGRAM WILL TYPE "'CZKCF
BIT STUFF MD L TSTS"
:PROGRAM WILL TYPE STATUS MAP
:PROGRAM WILL TYPE "'R'* TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF
A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE

:AND THEN RESUME TESTING
;SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE
.SBTTL

001200

s*INITIAL ADDRESS OF THE STACK POINTER *#x 1200 x««
STACK= 1200
.EQUIV EMT,ERROR
;sBASIC DEFINITION OF ERROR CALL
.EQUIV

000011
000012

000015
000200

177776
177774
177772
177570
177570

000000
000001
000002

BASIC DEFINITIONS

107,SCOPE

;sBASIC DEFINITION OF SCOPE CALL

s*MISCELLANEOUS DEFINITIONS

HT=

LF=
CR=
CRLF=
PS=

.EQUIV

12
15
200
177776

PS,PSW

;:CODE FOR HORIZONTAL TAB

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

STKLMT= 170774

;3STACK LIMIT REGISTER

DSWR=
DDISP=

: 'HARDWARE SWITCH REGISTER
: 'HARDWARE DISPLAY REGISTER

PIRG=

17777

17757
17757

: 'PROGRAM INTERRUPT REQUEST REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

RO=
R1=
R2=

%0
1
%2

GENERAL REGISTER
:'GENERAL REGISTER
: :GENERAL REGISTER

; ;GENERAL REGISTER

RS=
Ré=
R7=
SP=
PC=

x5
X6
X7
X6
X7

; sGENERAL REGISTER
; sGENERAL REGISTER
s sGENERAL REGISTER
:sSTACK POINTER
s PROGRAM COUNTER

s sGENERAL REGISTER

s*PRIORITY LEVEL DEFINITIONS

PPO

PR3=
PR4=
PRS=
PR6=

140
200
240
300

PR1=
FR2=

ssPRIORITY LEVEL 0

40
100

000340

PR7=

100000

SW15=
SWi4=
SWi3=
sWwi2=

JsPRIORITY
ssPRIORITY
+sPRIORITY
ssPRIORITY
;sPRIORITY
ssPRIORITY

340

LEVEL 1
LEVEL 2

LEVEL
LEVEL
LEVEL
LEVEL

+sPRIORITY LEVEL

s*"'SWITCH REGISTER'' SWITCH DEFINITIONS

SWil=
SW10=
Sw09=
SW08=

SWo7=
SWo6=

.EQUIV
.EQUIV

100000
40000
20000
10000
4000
2000
1000
400
200
100

L =40
B
N2 S
ocoo

SW09,Sw9
SWO08,Suw8

.EQUIV SW07,Sw7

-EQUIV
.EQUIV
.EQUIV

W06,
SW6
SWO5,S5W5
SWO04,
SWé

.EQUIV
.EQUIV

538.SW2
SWw01,5w1

.EQUIV

SW03,Sw3

.EQUIV $WO00,SW0
DATA BIT DSSINITIONS (BL1TO0 1O BITIS

1 15=
1
I
1
|
I
1
1
1

Nfl@O-‘NW:‘

ottt

[=1&]

8888=83

000000
000040
000100
000140

000006
000007

SEQ 0017

R3=

Ré4=

000003
000004

PAGE 18

BASIC DEFINITIONS

OO
2 wd b i ok

74 3
744
745
746
747
748
749

08:27

PSS =AY B~ —2 N

MACY11 30A(1052)
CZK
4 CF
08-JuUL-80
CZKCF
08-JUL-B0 08:24
4
, P11

3
4
§
6
7

826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845

SEQ 0018

O =MW NN ~NOO

e
et Bt Bt Bt Bt Bt Bt St

— )
— — ——

T
E

o 0o 0o o o o TM TM
O

et
4
—— —t

[el=lelelelelelelel]
O =N
VIO N0 O

&S =N
—
(=lelele]
DODDDODDDDAD =N

c<<<<
N UuHNHuHN

B bt et B fn bt bt s b b

f e = =4

CCCCCOOOODO0O
Bt et et Bt Bt ) =2 NI N S~ NON

+»
*»

+»

807
808
809

‘CPU'" TRAP VECTOR ADDRESSES
;:TIME OUT AND OTHER ERRORS
fl

810
an
812
813
814
815
816
817
818
819
820
821
822
823
824
825

CDOOOOODDO®D

000100

000040
000020
000010
000004
000002
000001

DD D D D —4 =t =

799

800
801
802
803
804
805
806

08:27 PAGE 19
BASIC DEFINITIONS
alaalaslasl
s LTS
——p—"

CZKCF
MACY1] 30A(1052)8 gG-JUL-GO
C2xCF . P11
08-JuL-80 0

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

..RESE:YED AND ILLEGAL INSTRUCTIONS

TBITVEC=14
TRTVEC= 14

;i TRACE TRAP
: ;BREAKPOINT TRAP (BPT)

BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

: s INPUT/QUTPUT TRAP (IOT) ««SCOPE++

: sPOMER FAIL
;sEMULATOR TRAP (EMT) #+ERROR+*+
::'TRAP'' TRAP

EMTVEC= 30
TRAPVEC=34
TKVEC= 60

::TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR

TPVEC= 64
PIRQVEC=240

: ;PROGRAM INTERRUPT REQUEST VECTOR

s INSTRUCTION DEFINITIONS
005746
005726
010046

012600
024646
022626

PUSH1SP=5746
POP15P=5726

PUSHRO=10046

sDECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
ON STACK
: SAVE

RESTORE RO FROM STACK
DECREMENT STACK TWICE

.EQUIV

: INCREMENT STACK TWICE

EMT,MLT sBASIC DEFINITION OF ERROR CALL

CZKC F
MACY11 30A(1052)
08-JUL-80
CZKCF.P1
08-JUL-80 08:24

08:27

PAGE 20

TRAPCATCHER FOR UNEXPECTED

INTERUPTS

SEQ 0019

847
AR AR R

AR R

; TRAPCATCAER FOR ILLEGAL INTERRUPTS

:THE STANDARD ''TRAP CATCHER'' 1S PLACED
;BETWEEN ADDRESS 0 TO ADDRESS 776.

;1T LOOKS LIKE "'PC+2 HALT'

ttt".tt...t."ti't""""""t'tt"fi"t't't'tt'tt'ttt'tttt.t.ttt't

000000

000000
000000

.=0

000000

000020

.=20

004134
000340
007126
000340
006512
000340
006414
000340

.SBTTL
AR

000174
000176

000174
000000
000000

$SCOPE
PR7
$PWRDN
PR7
$ERROR
PR7
$TRAP
PR7
ACT11 HOOKS

R AR

A d

; SCOPE LOOP HANDLER.
: SERVICE AT LEVEL 7.
;POWER FAIL HANDLER
;SERVICE AT LEVEL 7
;ERROR HANDLER
;SERVICE AT LEVEL 7
:GENERAL HANDLER DISPATCH SERVICE
sSERVICE AT LEVEL 7
R

002402

001000
005200
044502

055103
020124

.=200

04 1 5 1
05 2 1 2

il ss

sSAVE PC

SENDAD

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

UORD
0
.=$SVP(

::2)SET LOC.52 TO ZERO
;s RESTORE PC
s SOF TWARE DISPLAY REGISTER
;SOFTWARE SWITCH REGISTER

JMP

«START

MTITLE:

.ASCI1
LASCIZ

<200><12>/CIKCF/<200>
/BIT STUFF MD L TSTS/<200>

DSWR
DDISP

=
=

177570
177570

.=1000

$S
z:c .

=174
DISPREG:0
SWREG: 0

000200
000137

177570
177570

0,0

HOOKS REQUIRED BY ACT1

000040
000046
004070
000052
000000
000040

000052

.WORD

STANDARD INTERRUPT VECTORS

;GO TO START OF PROGRAM

CZKCF
MACY11 30A(1052)
08-JuUL-80
CZKCF.P11
08-JUL-80 08:2¢4

08:27
PAGE 21
COMMON TAGS

SEQ 0020

ggg

.SBTTL

896

;.'ttt..t"tittt't'tttt't't'ttttt"'tttttttt'ttttt"ttttt"ttt"'t

897

s*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

ggg

900
901

s*USED IN THE PROGRAM.
001200

001200

902
903

001200
001202

000000
000

905
906
907
908
909
910
911
912

001204
001206
001210
001212
001214
001215
001216
001220

914
915
916
917
918
919

001224
001226
001230
001232
001234
001235

913

001203

001222

O
O

000000
000000
000000
000000
000
001
000000
000000

$ICNT:
SLPADR:
SLPERR:
$ERTTL:
SITEMB:
SERMAX:
SERRPC:
$GDADR:

LWORD
.WORD
.WORDP
.WORD
.BYTE
.BYTE
.WORD
.WORD

O
0
O
O
O
1
O
O

000000
000000
000000
000000
000
000

$GDDAT:
$BDDAT:
SAUTOB:
$INTAG:

.WORD
.WORD
JWORD
WORD
.BYTE
.BYTE

O
O
O
O
O
O

177570

SWR:
DISPLAY:

.WORD

DDISP

000

000000

000000
177570

923
924
925
926
927
928
929
930
931

001244
001246
001250
001252
001254
00i255
001256
001257
001260

177560
177562
177564
177566

933
934
935
936
937
938
939
940
941
942
943
944
945
96
947

001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001313
001314

932

948

949

.=1200
MORD
.BYTE

001236
001%40
001242

SCMTAG:

$TSTNM:

920
921
922

COMMON TAGS

SERFLG: .BYTE

$BDADR:

.WORD

MORD
.WORD

O
DSWR

002
012
000
000000

$TKS:
$TKB:
$TPS:
$TPB:
$NULL:
SFILLS:
SFILLC:
$TPFLG:
SREGAD:

177560
177562
177564
177566
.BYTE
.BYTE
.BYTE
.BYTE
.WORD

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
077
015
000012

SREGO:
SREG1:
SREG2:
SREG3:
SREG4:
SREG5:
$TMPO:
$TMP1:
$TMP2:
$TMP3:
$TMP4:
STIMES:
$QUES:
SCRLF:
$SLF:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
0
L.ASCII
LASCII
LASCIZ

.SBTTL

APT MAILBOX-ETABLE

O
2
12
O
O
O
O
O
O
O
0
O
O
O
O
O
7%/
<15
12>

‘

;sSTART OF COMMON TAGS

;sCONTAINS THE TEST NUMBER

;s CONTAINS ERROR FLAG
;sCONTAINS
s sCONTAINS
s sCONTAINS
;sCONTAINS
;;CONTAINS
;s CONTAINS
;s CONTAINS
:;CONTAINS

SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF °"GCOD' DATA
;s CONTAINS ADDRESS OF 'BAD' DATA
;;CONTAINS 'GOOD' DATA
+;CONTAINS °'BAD' DATA
: sRESERVED=-=NOT TO BE USED
ssAUTOMATIC MODE INDICATOR
+ s INTERRUPT MODE INDICATOR

:;ADDRESS OF SWITCH REGISTER
s ;ADDRESS OF DISPLAY REGISTER
;s TTY KBD STATUS
;:TTY KBD BUFFER
s+TTY PRINTER STATUS REG. ADDRESS
2:TTY PRINTER BUFFER REG. ADDRESS
:sCONTAINS NULL CHARACTER FOR FILLS
;sCONTAINS # OF FILLER CHARACTERS REQUIRED
s+ INSERT FILL CHARS. QFTER A "LINE FEED"'
;:"'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
:;CONTAINS THE ADDRESS FROM

;:WHICH

(SREGO) WAS OBTAINED

s sCONTAINS ((SREGAD)+0)
s sCONTAINS ((SREGAD)+2)
s s CONTAINS ((SREGAD)
+4)
:;CONTAINS ((SREGAD)+6)
;s CONTAINS ((SREGAD)+10)
1 CONTAINS ((SREGAD)+12)
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
ssUSER DEF INED
s sUSER DEF INED
:sMAX. NUMBER OF ITERATIONS
2sQUESTION MARK
s :CARRIAGE RETURN
sLINE FEED

MACY11 30A(1052)
08-JuUL-80
P11
08-JUL-80 08:24

08:27
PAGE 22
APT MAILBOX-ETABLE
AL AAAA AR

001316
001316
0C1320
001322
001324
oo13§e

001330
001332
001334

000000
000000
000000
000000
000000
000000
000000
000000

001336
001337
001340
001342
001344

002
000
000000
000000
000000

001336

AR AR

AR A

SEQ 0021
R

" EVEN

$MAIL:
$MSGTY:
$FATAL:
STESTN:
$PASS:
$DEVCT:

SUNIT:
$MSGAD:
$MSGLG:

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

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

SENV:
SENVM:
$SWREG:
SUSWR:
$CPUOP:

.BYTE
.BYTE
.WORD
.WORD
.WORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

SETABLE :

i
e

001346

000

$MAMS1: .BYTE

.BYTE

AMAMS1

AMTYP1

i
i

SRERS83823288

::ENVIRONMENT BYTE
::ENVIRONMENT MODE BITS
::APT SWITCH REGISTER
::USER SWITCHES
::CPU TYPE,OPTIONS

BiTS 15-11=CPU TYPE

BIT 10=REAL TIME CLOCK
BIT O9=FLOATING POINT PROCESSOR
BIT B8=MEMORY MANAGEMENT

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

MEM.TYPE BYTE

(WIGH BYTE)

NSEC CORE=001
NSEC BIPOLAR=002

‘e

00 NSEC MOS=003

AMADR1

001352

000

$MAMS2: .BYTE

AMAMS2 ;;HIGH ADDRESS,M.S.
BYTE

000

SMTYP3: .BYTE

001360
001362

000000
000

001364

000000

001372
001374
001376
001400
001402
001404
001406
001410
001412
001414
001416
001420
001422

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

001363

:*APT ENVIRONMENT TABLE

$MADR1: .WORD

001357

1
001370

000

000000
000000

SMTYP2: .BYTE
snuoa;: .WORD
SMAMS3: .BYTE

;;HIGH ADDRESS,BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “‘TYPE'* ABOVE

AMTYP2
AMADR2
AMAMS3

::MEM.TYPE,BLK#?
;:MEM.LAST ADDRESS,BLK#2
;:WIGH ADDRESS,M.S.BYTE

SMADR3: .WORD
SMAMSG: : .BYTE

AMADRS
AMAMSA

;:MEM.LAST ADDRESS.BLKA3
::HIGH ADDRESS,M.S.BYTE
::

SMADR4:

.WORD

AMADP4

;:MEM.LAST ADDRESS,BLK#4

SBASE:
$DEVM:
$COW1:
$COW2:
$ODWO:
$ODW1:
$ODW2:
$ODW3:
DW4:
$ODWS:
SDDW6:
$DDW7:
$DDW8:

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

SMTYP4: .BYTE
SVECT1:
SVECT2:

::1/0 UNIT NUMBER
::MESSAGE ADDRESS
::MESSAGE LENGTH

000000
000
000000
000

::APT MAILBOX
::MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
::TEST NUMBER
::PASS COUNT
::DEVICE COUNT

001350
001353
001354
001356

11/70=06.PDa=07,0=10

i
M
a

$MTYP1:

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05

001347

.WORD
.WORD

AMTYPS

AMTYP4

AVECT1
AVECT2
ABASE
ADEVM
ACOW!
ACDW2
A
ADDW1
ADDW2
ADDW3
ADDW4
ADDWS
AD
ADDW7
ADDW8

::MEM.TYPE,BLK#3
;:MEM.TYPE,BLKA4

::INTERRUPT VECTOR#1,BUS PRIORITY#1
::INTERRUPT VECTOR#2BUS PRIORITYA?2

::BASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP
;:CONTROLLER DESCKIPTION WORDA1
::CONTROLLER DESCRIPTION WORD#2
::DEVICE DESCRIPTOR WORDAO
::ggv CE DESCRIPTOR WORD#1
;:DEVICE DESCRIPTOR WORDA
;:DEVICE DESCRIPTOR WORD#
;;DEVICE DESCRIPTOR WORD#&
;;DEVICE DESCRIPTOR WORDAS
:iDEVICE DESCRIPTOR WORD#
::DEVICE DESCRIPTOR WORD#
;:DEVICE DESCRIPTOR WORD#8

08:27

$DDWY:

$ODW11:
$0DW1 :
$ODW1 :
$DDW14:
$DDW15:

001456
001460

001462
001464
0014
0014
001472
001474
001476
001500

001502
001504

000000
000000

001510
001511

.WORD
.WORD

ADDW10
ADDW11
ADDW1
ADDW1
ADDW14
ADDW1S

;;DEVICE

TOR WORD#9
TOR WORDA10

;;DEVICE
;;DEVICE
+sDEVICE
+sDEVICE
;:DEVICE
;;DEVICE

TOR WORD#11

TOR
TOR
TOR
TOR

WORD#12
WORD#13
WORDA14
WORD#15

PROGRAM CONTROL PARAMETERS

NEXT:
LOCK:

WORD
WORD

O
O

;
;

ADDRSS OF NEXT TEST TO BE EXECUTED
ADDRESS FOR LOCK CURRENT DATA

PROGRAM VARIABLES

STRTSW: .WORD
STAT:
.WORD
CLKX:
.WORD
MASKX:
.WORD
SAVSP:
.WORD
SAVPC:
.WORD
ZERO:
WORD
ONE:
MORD
MEMLIM: .WORD
KMACTV: .BLkW

O
O
O
O
O
O
O
1
O
1

SAVACT: .BLkWw
SAVNUM: .BLkW
RUN:
MORD
EVEN
CREAM:
.WORD

1
1
O

KMNUM:

.BLKW

MILK:

+WORD

;
001506

.WORD

.WORD
.WORD

ADDW9

SEQ 0022

SETEND:

:
001446
001450
001452
001454

.WORD

$DDW10: .WORD

:
001442
001444

PAGE 23

APT MAILBOX-ETABLE
VOUVOVOVOOUO

i
Y

8838888 EERSESS
ST

000000
000000

&»H
»
~N

-d

08-JUL-80
08-JuL-80 08:24

o
o

VB UWN 2O OV®NO VNN =D

PNINININIPOPIN)
= ed e b ed e o

el e

D e

D e e

jelelelelelelelelelelelelo) j=lelele]

$8S% .

nls]

o
~NN

MACY11 30A(1052)

SWITCHES AT START OF PROGRAM
KM STATUS WORD STORAGE

STACK POINTER STORAGE

PROGRAM COUNTER STORAGE

HIGHEST LOCATION FOR NPR'S
KMC11
SELECTED ACTIVE

OCTAL NUMBER OF KMC11°'S
ORIGINAL ACTIVE DEVICES.
WORKABLE NUMBER.
POINTER TO RUNNING DEVICES

KM.MAP-6

TABLE POINTER
TABLE POINTER

CNT.MAP=4

PROGRAM CONTROL FLAGS

INIFLG: .BYTE
EVEN
LOKFLG: .BYTE

QV.FLG:

.BYTE

.EVEN

O
O

PROGRAM INITIALIZING FLAG

; LOCK ON CURRENT TEST FLAG
: QUICK VERIFY FLAG
; ON FIRST PASS OF EACH KMC11 ITERATIONS WILL BE SUPPRES

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JuL-80 08:24

08:27
PAGE 24
ERROR POINTER TABLE

SEG 0023

}823

.SBTTL

1053
1054
1055
1056

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FGUND IN
s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
s *NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

1059

}82;

:*NOTE2:

1060
1061
1062

:*
ot
i

1063

1064
1065

001512

1068
1069
1070
1071
1072
1073
1074
1075
1076
1077

001512
001514
001516
001520
001522
001524
001526
001530
001532
001534

000000
000000
000000
032062
033224
033550
032120
033245
033562
032163

001540
001542
001544
001546
001550
001552
001554
001556

033600
032227
033341
033612
032227
033401
033624
032271

001562
001564

033642
032321

1066
1067

1078

1079
1080
1081
1082
1083
1084
1085
1086

001538

1087

001560

1090

001596

1088
1089

1091
109§
1093
1094
1095
1096
1097
1098
1099
1100
1101

110;

110
1104
1105
1106

ERROR POINTER TABLE

001570
001572
001574
001576
001600
001602
001604
001606
001610
001612
001614

001616

%1
001622
001624
001626

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

;sPOINTS TO THE ERROR MESSAGE

:; DOES NOT APPLY IN THIS DIAGNOSTIC.

DH
DT
DF

::POINTS TO THE DATA HEADER
:;POINTS TO THE DATA
;sPOINTS TO THE DATA FORMAT

$ERRTB:

033303

.EVEN
s*

0
0
0
EM1
DH1
pT1
EM2
DH2
pT2
EM3

DH3

D13
EM4
DH4
DT4
EM&
DHS
DTS
EMS

: ERROR 1

: ERROR 2

; ERROR 3
; ERROR &
; ERROR 5

033303

DH3

: ERROR 6

033433

DH6

; ERROR 7

033624
032340
000000
000000
032365
000000

DT6
EM6

032570
033303
033600
032617

DTS
EM7
0
0
EM10
0
0
EM11
DH3
D13
EM12

033624
03;263
033433
033624

DTS
EM13
DH6
DTS5

DH6

; ERROR 10
; ERROR 11
: ERROR 12

; ERROR 13
; ERROR 14

!
alel

s il il ol il D o

v
W At Se o S
SRR
N

B ol

VIVAVAVASB
DB DN

-l ol il ol ol

W
~

08-JUL-80

08-JUL=-80 08:24

001630

001632

08:27

PAGE 25

ERROR POINTER TABLE

osiros

EM14

SEQ 0024

033303

DH3

001636
001640
001642
001644
001646
001650
001652
001654
001656

0 grs
033341
033612
032774
000000
000000
033910
000000
000000

EM15
DH&
DT4
EM16
0
0
EM17
0
0

001662
001664
001666
001670
001672
001674
001676
001700
001702

033433
033624
033054
033303
033660
033075
033303
033600
033054

DH6
DTS
EM20
DH3
D17
EM21
DH3
DT3
EM20

: ERROR 21

DH3

; ERROR 25

0016

ogseag

DTH

001660 osgzro

001704
001706
001710

000000
000000
033112

001714

033600

001712

EM11

0
0
EM22

033303

002034

.=2034

"SBTTL

D13

; ERROR 15
: ERROR 16
; ERROR 17

; ERROR

; ERROR 22
; ERROR 23
; ERROR 24

APT PARAMETER BLOCK

;;t'.'t.""".i"""""'it"'tti'.tti..t..t."'t'Ittttt!tttttt

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

b i

N bt v Sy bt

D el il D ol el B el D o ol ol

D il

eD D e

e e e

e e e e o

PNIPNINIPONININININ
= e e ed ed ed ed od o od

GDNM’\”JFUHRJ-OC)130|~dCFUMFW~N¢-‘<>$;

e
o (=]
oo ~

;
NN

[ale)

MACY11 30A(1052)

P11

002034
000024
000024 000200
000044
000044 002034
002034

;:"'.I..."Q'.""Q"""'Q".Qttltl"tli'ttttttt't.tl"""tttt

.$X=. ;:;SAVE CURRENT LOCATION
=24~
::SET POWER FAIL TO POINT TO START OF PROGRAM
200
$:FOR APT START UP
=44
::POINT TO APT INDIRECT ADDRESS PNTR.
$APTHDR ::POINT TO APT HEADER BLOCK
.=.8X ::RESET LOCATION COUNTER

;:.'Q'Qt..'C'.ti""'.'Q""'i"'i..'."'....lti"tt'tl...'tlli't

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
1 INTERFACE SPEC.

002034

002034
002036
002040
002042
002044
002046

000000
001316
000132
000137
000137
000052

SAPTHD:

SHIBTS:
SMBADR:
$TSTM:
SPASTM:
SUNITM:

.WORD
.WORD
.WORD
.WORD
.WORD
"WORD

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

SRLRVREC2BTEISRRET2SII ONOM&U‘N—‘OO&

D il el i ol D D Dl il D o D D il e el
Dl el D ol D D e d e D D e e e
)
D il il il i
— ol il ol

por o o0 o

WA=
O

D ol ol o ol
Bl ol ol ol
ol

08:27
PAGE 26
APT PARAMETER BLOCK

SEQ 0025

;KMC11 CONTROL INDICATORS FOR CURRENT KMC11 UNDER TEST
002050
002052
002054

000000
000000
000000

STAT1:
STATZ2:
STAT3:

0
0
0

:KMC11 VECTOR AND REGISTER INDIRECT POINTERS

e el e il el el D i e D e e e D e e e
D el il ol D il il D il D il ot D i i D e el e e
NNNNNNNNNO
o

W=
O 000

X x

als)

lslal
NN

MACY11 30A(1052)
08-JuL-80
PN
08-JUL-80 08:2¢4

002056
002060
002062
002064
002066
002070
002072
002074
002076

000000
000000
000000
000000
000000
000000
000000
000000
000000

KMRVEC:
KMRLVL:
KMTVEC:
KMTLVL:
KMCSR:
KMCSRH:
KMCTL:
KMPO4:
KMPO6:

0
0
0
0
0
0
0
0
0

;POINTER
;POINTER
;POINTER
;POINTER
;POINTER
;POINTER
;POINTER
sPOINTER
;POINTER

TO KMC11
TO KMC11
TO KMC11
TO KMC11
TO KMC11
TO KMC11
TO KMC11
TO KMC11
TO KMC11

RECEIVER INTERRUPT VECTOR
RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR
TRANSMITTER INTERRUPT SERVICE PS
CONTROL STATUS REGISTER
CONTROL STATUS REGISTER HWIGH BYTE.
CONTOL OUT REGISTER
PORT REGISTER(SEL 4)
PORT REGISTER(SEL 6)

: TEMP STORAGE
;TEMP:

s.=.+40

:KMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS

000001
000001
000001
000001

.=2100
KM.MAP:
KMCROO:
KMS100:
KHS%OO:
KMS300:

.BLkW
.BLkWw
BLKW
.BLkw

1
1
1
1

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 00
sVECTOR FOR KMC11 NUMBER 00
sDDCMP LINE# FOR KMC11 NUMBER 00
s3RD STATUS WORD

002110
002112
002114
002116

000001
000001
000001
000001

KMCRO1:
KMS101:
KMS201:
KMS301:

.BLkW
.BLkW
.BLkW
.BLKW

1
1
1
1

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 01
sVECTOR FOR KMC11 NUMBER 01
sDDCMP LINE# FOR KMC11 NUMBER 01
:3RD STATUS WORD

002120
002122
002124
002126

000001
000001
000001
000001

KMCRO2:
KMS102:
‘"3535’
KMS302:

.BLkW
.BLKW
BLkW
.BLkw

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 02
sVECTOR FOR KMC11 NUMBER 02
;ODCMP LINE# FOR KMC11 NUMBER 02
:SRD STATUS WORD

002130
002132
002134
002136

000001
000001
000001
000001

KMCRO3:
KMS103:
KMS203:
KMS303:

.BLkW
.BLkW
.BLKkW
.BLKW

1
1
1
1

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 03
sVECTOR FOR KMC11 NUMBER 03
;ODCMP LINE# FOR KMC11 NUMBER 03
:3RD STATUS WORD

002140
002142
002144
002146

000001
000001
000001
000001

KMCRO4:
KMS104:
KMS204:
KMS304:

.BLKW
.BLKW
.BLKW
.BLkW

1
1
1
1

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 04
+VECTOR FOR KMC11 NUMBER 04
:gDCHP LINE# FOR KMC11 NUMBER 04
:3RD STATUS WORD

002100
002100
002102
002104
002106

002100

xox

lalal

NNDNNDNDNDNDNNDNO
NN NNNN

pRpPRREERLLLNS
&FOGRISERIERR
SFURZEo&IG
&

— e d e e D e o e i D D e e e e
NN
NN NN
NN NI NIAD
N NN NNININININ
W
s
WA
D0 NO VS N = O 000 ~O W &~

MACY11 30A(1052)
08-JUL-80
P11
08-JuL-80 08:2¢4

002150
002152

08:27
PAGE 27
APT PARAMETER BLOCK

SEQ@ 0026

002154
002156

000001
009001

000001
000001

KMCRO5:
KMS105:

.BLKW
.BLKW

1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 05
;VECTOR FOR KMC11 NUMBER 05

002160
002162
002164
002166

000001
000001
000001
000001

KMCRO6:
KMS106:
KMS206:
KMS306:

.BLKW
.BLKW
.BLKW
.BLkW

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 06
;VECTOR FOR KMC11 NUMBER 06
;DDCMP LINE# FOR KMC11 NUMBER 06
;3RD STATUS WORD

002170

000001

KMCRO7:

.BLKW

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 07

002176

000001

KMS307:

.BLKW

;3RD STATUS WORD

002172
002174

000001
000001

KMS205: .BLKW
KMS305: .BLKW

KMS107: .BLKW
KMS207: .BLKW

1
1

;DDCMP LINE# FOR KMC11 NUMBER 05
:SRD STATUS WORD

;VECTOR FOR KMC11 NUMBER 07
;DDCMP LINE# FOR KMC11 NUMBER 07

002200
002202
002204
002206

000001
000001
000001
000001

KMCR10:
KMS110:
KMS210:
KMS310:

.BLKW
.BLKW
.BLKW
.BLkw

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 10
;VECTOR FOR KMC11 NUMBER 10
;DDCMP LINE# FOR KMC11 NUMBER 10
;3RD STATUS WORD

002210
002212
002214
002216

000001
000001
000001
000001

KMCR11:
KMS111:
KMS211:
KMS311:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 11
sVECTOR FOR KMC11 NUMBER 11
:DDCMP LINE# FOR KMC11 NUMBER 11
:3RD STATUS WORD

002220
88352

000001
1

KMCR12: .BLKW
KlSl‘lg: BLkW

1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 12
;VECTOR FOR KMC11 NUMBER 12

002226

000001

:3RD STATUS WORD

002232
002234
002236

002240
002242
002246

.BLkW

000001

KMCR13: .BLKW

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 13

000001
000001

KMCR14: .BLkw
KMS114: .BLkW

1
1

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 14
sVECTOR FOR KMC11 NUMBER 14

000001

KMS314: .BLKW

:SRD STATUS WORD

000001
000001
000001

000001

KMS212:

KMS312: .BLkW
KMS113: .BLkW
KMS213: .BLkw
KMS313: .BLKkW

KMS214: .BLkW

1
1
1

;DDCMP LINE# FOR KMC11 NUMBER 12

sVECTOR FOR KMC11 NUMBER 13
;DDCMP LINE# FOR KMC11 NUMBER 13
:3RD STATUS WORD

;DDCMP LINEX FOR KMC11 NUMBER 14

002250
002252
002254
002256

000001
000001
000001
000001

KMCR15:
KMS115:
KMS215:
KMS315:

.BLkW
.BLkW
.BLKW
.BLkW

1
1
1
1

sCONTROL STATUS REGISTER FOR KMC11 NUMBER 15
:VECTOR FOR KMC11 NUMBER 15
;DDCMP LINE# FOR KMC11 NUMBER 15
:3RD STATUS WORD

002260

000001

KMCR16: .BLKW

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 16

002270
002272
002274
002276

000001
000001
000001
000001

KMCR17:
KMS117:
KMS217:
KMS317:

1
1
1
1

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 17
;VECTOR FOR KMC11 NUMBER 17
;:DDCMP LINE# FOR KMC11 NUMBER 17
:3RD STATUS WORD

002262
002264
002266

000001
000001
000001

KMS116: .BLKW
KMS216: .BLKW
KMS316: .BLkw
.BLKW
.BLKW
.BLKW
.BLkW

1
1
1

;VECTOR FOR KMC11 NUMBER 16
;DDCMP LINE# FOR KMC11 NUMBER 16
:3RD STATUS WORD

MACY11 30A(1052)
C KCF
08-JuL-80
08-JuL-80 08:24
C KCF.P11
1270

002300

000000

08:27
PAGE 28
APT PARAMETER BLOCK
KM.END: 000000

SEQ 0027

P11

08-JUL-B80 08:24

NUNININY
RRRRRRERRY
OO0 ~NO NS NN -

AN N N L
AN
A N N
NN N
RN s e b e b ek et D e
DNV
NN
=D
W= OO

SESRORERESE
BB

ddflfldddddfl-‘dd—‘d‘dddddd—‘-‘dddddfldd—.d-‘fldd—.

RIS NI N A0 PO 0 A0 0 R R RO RO ~
O o PO PO T P P

~N N~

nlsl

lalal
~NN

MACY11 30A(1052) 08-JuL-80 08:27 PAGE 29

APT PARAMETER BLOCK

’

SEQ 0028

;KMC11 PASS COUNT AND ERROR COUNT TABLE

002302

CNT.MAP:

002302
002304

000000
000000

PACT00: 0
ERCTO0: 0

;PASS COUNT FOR KMC11 NUMBER 00
*ERROR COUNT FOR KMC11 NUMBER 00

002306
002310

000000
000000

PACTO1: 0
ERCTO1: 0

:PASS COUNT FOR KMC11 NUMBER 01
*ERROR COUNT FOR KMC11 NUMBER 01

002312
002314

000000
000000

PACTO2: 0
ERCTO02: 0

;PASS COUNT FOR KMC11 NUMBER 02
*ERROR COUNT FOR KMC11 NUMBER 02

002316
002320

000000
000000

PACTO3: 0
ERCTO3: 0

;PASS COUNT FOR KMC11 NUMBER 03
*ERROR COUNT FOR KMC11 NUMBER 03

002322
002324

000000
000000

PACTO4: 0
ERCTO4: 0

;PASS COUNT FOR KMC11 NUMBER 04
*ERROR COUNT FOR KMC11 NUMBER 04

002326
002330

000000
000000

PACTOS: 0
ERCTO5: 0

;PASS COUNT FOR KMC11 NUMBER 05
*ERROR COUNT FOR KMC11 NUMBER 05

002332
002334

000000
000000

PACTO06: 0
ERCTO6: 0

:PASS COUNT FOR KMC11 NUMBER 06
*ERROR COUNT FOR KMC11 NUMBER 06

002336

000000

PACTO7: 0

;PASS COUNT FOR KMC11 NUMBER 07

002342
002344

000000
000000

PACT10: 0
ERCT10: 0

;PASS COUNT FOR KMC11 NUMBER 10
*ERROR COUNT FOR KMC11 NUMBER 10

002346
002350

000000
000000

PACT11: 0
ERCT11: 0

:PASS COUNT FOR KMC11 NUMBER 11
:ERROR COUNT FOR KMC11 NUMBER 11

002352
002354

000000
000000

PACT12: 0
ERCT12: 0

;PASS COUNT FOR KMC11 NUMBER 12
:ERROR COUNT FOR KMC11 NUMBER 12

002356
002360

000000
000000

PACT13: 0
ERCT13: 0

;PASS COUNT FOR KMC11 NUMBER 13
*ERROR COUNT FOR KMC11 NUMBER 13

002362
002364

000000
000000

PACT14: 0
ERCT14: 0

:PASS COUNT FOR KMC11 NUMBER 14
:ERROR COUNT FOR KMC11 NUMBER 14

882366 000000
2370

000000

PACT15: 0

:PASS COUNT FOR KMC11 NUMBER 15

002372
002374

000000
000000

PACT16: 0
ERCT16: 0

;PASS COUNT FOR KMC11 NUMBER 16
*ERROR COUNT FOR KMC11 NUMBER 16

002376

000000

PACT17: 0

:PASS COUNT FOR KMC11 NUMBER 17

002340

002400

000000

ERCTO7: 0

ERCT15: 0

ERCT17: 0

*ERROR COUNT FOR KMC11 NUMBER 07

:ERROR COUNT FOR KMC11 NUMBER 15

*ERROR COUNT FOR KMC11 NUMBER 17

CIKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P1T
08-JUL~-80 08:24

08:27 PAGE 30
APT PARAMETER BLOCK

SEQ 0029

1324
1325
1326
1327
1328
1329
FORHAT OF

15
Y-

B
e
f e
S

STATUS TABLE

l
0 %

NG S
Pk N
B
S
onk TR Tl
sagnieguntare
=
¥
£
el gt Lol B
i
Wil REh ST ST

AU SRR AN
£
5
9.
TN Bk G

SO DN
N
&}
TN AR

STAT1

rhr S
LA
|
NI St

STAT2

6
tnar g
Sainy Rl U
MR G0N RN
SRRl e
ook RS CHNL SRS O 85 R
B0 |
R
Tl S0
D
Sais SRaD N
¥R TN

STAT3

AN
1%
R

SAT Vo MR aRIE SR R0 Dheh Gigh SRS GRee SEY U
8
%
k-9
B
ovaw
L
-}
8%
R
NEh
e
o
Sl SR PSS dhgl U8 b
R
SR

e
Cibe
FET

e
o
heeS B0
e
See BAS Sc B
TORS U
AR g
SN S
R
VI

CSR

ONE
DI

DEFINITION OF FORMAT

CSR:

CONTAINS KMC11 CSR ADDRESS

STAT1:

BITS 00-08 IS KMC11 VECTOR ADDRESS
BIT14=1 22??7? TURNAROUND CONNECTOR IS ON
B 1T14=0 NO TURNAROUND CONNECTOR
8 lT13=0 LINE UNIT IS AN M8201
8 IT13=1 LINE UNIT IS AN M8202
8 IT12=1 NO LINE UN 1
8 ITS 09-11IS KMC11
BR PRIORITY LEVEL

STAT2:

LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER)
HIGH BYTE IS SWITCH PAC#2 (BMB73 BOOT ADD)

STAT3:

BI1T0=1 DO FREE RUNNING TESTS ON KMC
(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLY])
8l%-0
1
BIT

DMC11-DA (RS232C)
DMC11=FA (V.35)

MACY11 30A(1052)
08-JuUL-80
08-JuL =80 08:24

08:27

PAGE 31

APT PARAMETER BLOCK

SEQ 0030

E%:g:

MACY11 30A(1052)
08-JUL-80
P11
08-JUL~-80 08:24

F
3
08:27
PAGE 32
PROGRAM INITIALIZATION AND START UP.

1381

1382
1383
1384
1385
1386
}ggg

;PROGRAM INITIALIZATION
*LOCK OUT INTERRUPTS
*SET UP PROCESSOR STACK
*SET UP POWER FAIL VECTOR
sCLEAR PROGRAM CONTROL FLAGS AND COUNTS
*TYPE TITLE MESSAGE

1389
1390
1391
1392
1393
1394
1395
1396
1397
1398

002402
002410
002414
002422
002430
002434
002440
002444
002452
002460

012737
012706
012737
013737
005037
105037
105037
012737
012737
012737

1400
1401
1402
1403
1406
1405
1406
1407
1408
1409
1410
1411
1412
1413

002472
002474
002500
002502
002506
002514

005020
022700
001374
005037
012737
012737

oozsgg
33%5
532
002540
002542
002546
002552

132737
0014
013737
000423
013746
013746
012737

000006
000004
002606

1415
1416

002566
002574

012737
022777

177570
177777

1399

1414

002466

002560

1417 002602
1418 002604

1419
1420

002606
002610

1422

002624

012700

012737

001402
000407

000340
001200
007126
001472
011544
001203
001511
002070
002276
100000

002302

177776

.START: MOV
MOV
MOV
MOV
CLR
CLRB
CLRB
MOV
MOV
MOV

#340,PS
;LOCK OUT INTERRUPTS
#STACK, SP
PSET UP STACK
#SPURDN,a#24
:SET UP POWER FAIL VECTOR
KMNUM,SAVNUM
;SAVE NUMBER GF DEVICES IN SYSTEM.
SWFLG
:CLEAR SOFT TYPEOUT FLAG
$ERFLG
;CLEAR ERROR FLAG
QV.FLG
:ZERO QUICK VERIFY FLAG
#KM.MAP=10,CREAM:GET MAP POINTER.
#CNT.MAP=4.MILK :GET PASS COUNT MAP POINTER
#BIT15,RUN
sPOINT POINTER TO FIRST DEVICE.

238:

CLR
CMP
BNE
CLR
MOV
MOV

(RO) +
#CNT.MAP+100,R0
238
$ERRPC
#1,8TSTNM
# .START,SLPADR

000004

BITB
BEQ
MOV
BR
MOV
MOV
MOV

#1,8ENV
3s
$SWREG,SWREG
6%+2
a6, ~(SP)
. -(SP)
965384

001242
176436

MOV
CMP

#177570.D1SPLAY :SET DISPLAY TO HARD SWR ADDRESS
#-1,a5WR
*REFERENCE HARDWARE SWITCH REGISTER

000024

001476

001502
001504
001500

002402

001216
000001
002402

001202
001206

000001

001336

001340

000176

177570

022626
012737

000176

012637

000004

3s:

001240

1421 002616 012737 000174 001242
1423

1426

1425
1426
1427
1428

14
14

002630

012637

002642
002650
002652

001006
022737
001402
104401

002634

gggo

1431

002670

143

ggssr

1432

1434
1435

1436

SEQ 0031

002674

02
002710

002712

105737

004737
017737

005737
oo1ao;

000006

68:

78:

011340
176352
000042
001446

105737

001446

000001

BEQ
B8R

000042

001446

20$:

#CNT.MAP,RO

#179570, swr

ggoé

CMP
MOV

(SP)+,(SP)+
#SWREG, SUR

MOV

(SP)+, a8

MOV

:PASS COUNT POINTER TO RO

1CLEAR TABLE
:DONE YET?
‘KEEP GOING
sCLEAR LAST ERROR POINTER
:SET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE
TESTING STARTS
2 IS IT RUNNING UNDER APT?
: IF NOT CHECK FOR TYPE OF SWITCH REGISTER.
: LOAD SOFTWARE SWITCH REG.
;s GO SET UP SOFTWARE SWITCH REG.
*SAVE CURRENT VECTORS
:
*SET UP FOR TIMEOUT

*SET SWR TO HARD SWR ADDRESS

(IF = =1 USE SOFT SWR ANYWAY
:1F IT EXISTS AND NOT = -1 USE HARD SWR
TADJUST STACK
:POINTER TO SOFT SWR

#DISPREG,DISPLAY:POINTER
TO SOFT DISPLAY REG
‘RESTORE VECTORS

MOV

(SP)+ .06

;

BNE
CMP
BEQ
TYPE

208
#SENDAD,@#42
208
MTITLE

‘BR IF YES
:IF ACT=11 AUTOMATIC MODE, DON'T TYPE 1D

TSTB

001000

oggos

032737
001012

MOV

001506
004070

MOV

INIFLG

‘HAS INITIALIZATION BEEN PERFORMED
;TYPE TITLE MESSAGE

JSR
MOV

PC,CKSWR
aSWR,STRTSW

BEQ

.46

:BR IF NO

#5W00,STRTSW
178

+1F SW00=1,
QUESTIONS ARE ASKED.
:BR ;r swod=1

CLR

BIT
BNE

TSTB

STRTSW

:CHECK FOR SOFT SWR
;STORE STARTING SWITCHES

;1S IT RUNNING IN AUTO MODE?
:IF YES,

BIT7=122

CLEAR SWITCHES

CF
MACY11 30UA(1052)
08-JUL-B0
CF.P11
08-JUL-80 08:24
1437
1438
1439
1440
1441
1442
1443
1444

1445
1446

1447
1448
1449
1450
1451

1452

002716
002720
002724
002726
002732
002734
002736
002742

100007
005737
001027
104401
000000
000776
105737
001405

002754
002756
002762
002764
002772

000406
105737
100406
042737
004737

002744
002752

002776

132737
001012

000402

BPL
ST

001470

BNE
TYPE,
HALT

010731

001336

000001

17%:

001336

001337
000001
012236

1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463

00
003004
003010
003012
003016
003070
003026
003030
003032
003036
003042

004737
105737
001410
105737
100431
032737
001403
000424
105137
104401
012704

001506
010077
002100

1465

003052

012437

001300

001446

013716
001506

}2;2

003056
003060
003064
003070
003074
003076
003100

003102

001411
012437
012437
012437
104416
011206
000762

012700

338:
308:
168:

001446
000006

001446

21$:
248:

5%:

001302
001304
001306

002100

18:

178
KMACTV
16$
NOACT

SEQ 0032

:BR IF SW07=0
:ARE ANY DEVICES SELECTED?

:BR IF YES
:NO DEVICES SELECTED.
:STOP THE SHOW

TSTB
BEQ

SENV
27%

¢
:

BR
TSTB
BMI
BIC
JSR

3
SENVM
30$
#SWO0,STRTSW
PC,AUTO.SIZE

; NO, NEEDS REGULAR AUTO.SIZE.
: IS IT SIZED BY APT?
; YES, NEEDS ONLY APT SIZING.
: SIZE ONLY IN AUTO MODE.
; GO DO THE AUTO.SIZE.

BITB
BNE

278:

1464 w£% 010437 001276
1466
1467
1468
1469
1470
1471
1472

6 3

08:27
PAGE 33
PROGRAM INITIALIZATION AND START UP.

#1,$3ENV
gofi

16$

:DISQUALIFY CONTINUE SWITCH

IS IT UNDER APT DUMP MODE?
YES,
CHECK IF APT SIZED IT?

: 1S 1T UNDER @,V OR RUN MODE?
* YES, NEEDS ONLY APT SIZING.

: GO PRINT THE MAP.

JSR
TSTB
BEQ
TSTB
BMI
BIT
BEQ
BR
(OMB
TYPE
MOV

PC,APT.SIZE
: GO DO THE APT SIZING.
INIFLG
SFIRST TIME?
218
:BR IF YES
STRTSW
;1F USING SAME PARAMETERS DONT TYPE MAP
1$
#BIT1!BIT2,STRTSW;
IS TEST NO. OR LOCK SELECTED
248
:IF NO THEN TYPE STATUS
1%
:IF YES DO NOT TYPE STATUS
INIFLG
:SET FLAG
,XHEAD
:TYPE HEADER
#XM_MAP, R4
:SET POINTER

MOV

(RE)+,$TMP1

MOV

BEQ
MOV
MOV
MOV
CONVRT
XSTATQ
BR

MOV

:SET ADDRESS

1
(R4)+,$THP2
(R4)+,$THP3
(R&) +,STHPS

;ALL DONE IF 2ERO
;SET STATH
:SET STAT2
;SET STAT3
;TYPE OUT STATUS MAP
:

#XM.MAP, RO

;RO POINTS TO STATUS TABLE

1476
1477
1478
1479

;;*AUTO SIZE TEST
;:*THIS TEST VERIFYS THAT THE KMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING
:;*ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS. IT IS NOT A HARDWARE ERROR.
;:*CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,.DM,DQ,DU,.DUP,LK,.DMC,DZ.KMC).

e T ey

;i*IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE KMCi1, THE FIRST

1481

;i KMC1Y

1482

156583310. NO DEVICE SHOULD EVER BE AT

: :*ADDRESS 7

"“3

1484
1485
1486
1487
1488
1489
1490
1491
1492

*SET CSR

1475

1480

R4, $THPO

‘

:;'QO.'Q""!.""QQ'Q"'Q'Ct"tttttittt'ittQtttt!'.tiillittt'l'tt‘ltt

003106
003112
003116
003122
0031§g
003132
003134
003142

013746
013746
005037
005037
011037
001510
012737
012703

000004
000006
000006
001302
002066
003240
000010

000004

MOV
MOV
CLR
CLR
AUSTRT: MOV
BEQ
2%:
MOV
3$:
MOV

G, -(5P)
a6,-(SP)
a6
$THP2
(RO) ,KMCSR
AUDONE
#NODEV , a#4
#10,R3

;SAVE LOC &
:SAVE LOC 6
:CLEAR VEC+2
;CLEAR FLAG
:GET NEXT KMC CSR
:BR IF DONE
:SET UP FOR TIMEOUT
;R3
1S COUNT OF DEVICES BEFORE KMC

MACY1! 30A(1052)
08-JUL-80
P11
08-JUL-80 08:24
493

494
495
496

497

498

499
500
501
502

003146

003152
003156
003160

003162

003164

012702

012701
005711
111204

003342

4s:

160010

FLOAT:

060401

005201

503
504
505
506
507
508
509

003166
003170
003172
003174
003202
003204
003210
003212
003216
003220
003224

040401
005703
001371
012737
005711
020137
001403
062701
000771
062700
701

511
512

003234
003236

001447
000761

) ol B el e el e sl s e

H 3
08:27
PAGE 34
PROGRAM INITIALIZATION AND START UP,

003240
003242
003244

122243
000002
005737

517

003252

104401

516 003250 001014

003244

000004

002066

FY:

000010
000010
000010

0K :

) ol B ol B ol D i -

SSO

g%bb

104417

522

003270

104401

ADD

R4 ,R1

001302

ERR:

ADD

(R1)
R1,KMCSR
oK
#10,R1
FY
#10,R0
#10,R1

BEQ
BR

AUDONE
FY

; BRANCH IF ALL DONE.
P D0 IT AGAIN.

ST
CMP

BEQ
ADD
BR
ADD

CMPB
RTI
TST

BNE

1$:

CNERR
MOV
MOV

104416

528
529
530

003312
003314
003316

104401
011175
022626

48:

532

003322

000001

ERRPC:

534,
535

003326
003330

001460
000002

537

003334

001264

540
541

00334
00334

007
017

DEVIAB: .BYTE
BYTE

007

BYTE

b ol il

527 003310 003330

b il el i ol o

3$:

003320 000737

006

002

006

004

538 003336
006
539 003
002066

002

s ol ol ol sl il ol ol il

555
543
544
545
54.9

003344
003345
003346
003347
003350

007
007
007
007
007

548 003352

007

e o

547

003351

$TMP2

CONVRT

#-1,8THP2
R1,$REG

(SP)+,(SP)+

BYTE

6.2

BYTE

6.4

BYTE
KMCSR

6,2

BYIE
BYTE
BYTE
BYTE
BYTE

7
7
7
7
7

BYTE

SAVPC
CONTAB: 2
$REG1

: GET NEXT KMC CSR

*ON TIMEOUT, INC R2, DEC R3
*SLPADR
sCHECK FLAG IF = 0 TYPE HEADER

1SKIP MEADER

:TYPEOUT HEADER MESSAGE

CONF IGURATION ERROR'''!
*SAVE PC FOR TYPEOUT
:TYPE OUT ERROR PC

;
*SET FLAG SO IT ONLY GETS TYPED ONCE
SSAVE R1 FOR TYPEOUT
;TYPE CSR VALUES

BR
1

|
‘

:TYPE REST OF HEADER

CONTAB

TYPE
KMCM
M

|
'

TYPE

003306

536 003332

(R2)+,=(R3)

ERRP(

526

533 003324

(RO) ,KMCSR

l
;

:IN R1

:
JANY MORE DEVICES TO CHECK FOR?
sBR IF YES
sOK ONLY KMC'S ARE LEFT, SET UP FOR TIMEOUT
:CHECK KMC ADDRESS
sDOES IT MATCH
BR IF YES
sGET NEXT KMC ADDRESS
:D0 IT AGAIN
*SKIP TO NEXT KMC CSR
s GET NEXT KMC ADDRESS

CNVRT

66 003322

*START WITH ADDRESS 160010
sCHECK ADDRESS IN R1
+1F NO TIMEOUT, GET NEXT ADDRESS

R&,R1
R3
FLOAT
#ERR ,a#4

BI(
TST
BNE
MOV

CONERR
MOV
#ERR, SAVPC

001460

:R2 1S DE VICE TABLE PONTER

TYPE

523 003272 011154
526 003274 012737 177777 001302
525 003302 010137 001264

531

#160010 R
(R1)
(R2) ,R4
R

MOV
NODEV:

518 003254 011107
519 003256 012737 003244

521

#DEVTAB,R2

MOV
TST
MOVB
INC

510 oos;so 011037 002066

515
514
515

MOV

SEQ 0033

;ADJUST STACK

:BR TO GET OUT

7
17

:DJ
:DH

:Da
DU
:DUP
LK
:DMC

TKMC

__J

UYWAY
VIV
S

VRNV
NN —-O O

Inlial

~NN

D e

Ron
SR

W) —

oo o

e el il D D ol ol D
WVAIWWA LWL VIV

b
D

o
b
b

u-o8
~ & EF
28328888898 3333888

—

NNNNNNNNNO
33>

d-d-‘flddddddddddfld—‘dddd-‘flflfld—.dfl—l—l—.-‘_fi-fl_‘ b
i
VAVAVAVALVAWA
VL ViAW

MACY11 30A(1052)
08-JUL-80
P11
08-JUL=-80 08:24

003354

003354
003360
003
003372

003374

003400
003402
003404
003412

003354
012637
012637
032737
001422
104401
005000
000000
027737
101404
104401
000000
000776
017737
013700

003414
003420
003422
003424
003432
003436

000000

003444
003450

012701
010120

003454

022021

000006
000004
000010

.EVEN
AUDONE:
1%:

001446

010017
175630

001474

007672
175610
001470

MOV
MOV
BIT
BEQ

(SP)+,an6
(SP)+,a#4
#SW03,STRTSW
3%

JRESTORE LOC 6
JRESTORE LOC 4
JSELECT SPECIFIC DEVICES??
BR IF NO.

CLR
HALT
CMP
BLOS

sIERO DATA LIGHTS
sWAIT FOR USER TO TELL WHAT DEVICES TO RUN
1S THE NUMBER VALID?
sBR IF NUMBER IS OK.

TYPE

001470

003440 012700 000300

003452

08:27
PAGE 35
PROGRAM INITIALIZATION AND START UP.

2%:

38:

000302

48:

005021

003456 022700 001000
003462 001372

TYPE
HALT
BR
MOV
MOV
HALT

MOV

JMNEW

@SWR,SAVACT
2%

.MERR?Y

.2
ASWR,KMACTY
KMACTV,RO

#300,R0

MOV
MOV

#302,R1
R1,(RO)+

CMP

(RO)+,(R1)+

CLR

CMP
BNE

(R1)+

#1000, R0
48

sTYPE THE MESSAGE.

sTELL USER OF INVALID NUMBER.
;STOP EVERY THING.
JRESTART THE PROGRAM AGAIN.
sGET NEW DEVICE PATTERN
:SHOW THE USER WHAT HE SELECTED.
sCONTINUE DYNAMIC SWITCHES.

:PREPARE TO CLEAR THE FLOATING
sVECTOR AREA. 300-776
:START PUTTING "'PC+2 - HALT"

:IN VECTOR AREA.
sPOP POINTERS

:ALL DONE??
BR IF NO.

JTEST START AND RESTART
003464

003470
003474
003500
003502
003510
003514
003516
003522
003524
003530
003534
003540
003544
003546
003550
003554
003560
003564
33”93
3572
ggssn
38

012706

013746
013746
005000
012737
005037
005720
022700
001374
162700
010037
012637
012637
ogous
06%626
162700
162700
022700
001361
012700
00075
012737

001200

000006
000004
003546 000004
000006
157776
007776

001466
000004
000006

68:

78:
28:

000004

007776
030000

037400
000340

;202 032737 "00004
10

.BEGIN: MOV

001406

177776

001446

108:

003624 oog‘gs
003626

013737

004360

004146

18:

sSET UP STACK

a6, -(SP)
., -(SP)
RO
928,304
aré
(RO) +
#157776.R0
68
#7776 RO
RO, MEML IN
(SP)+,alh
(SP)+.a06
108
(SP)+,(SP)+
#4 R0
#7476,R0
#30000, R0
7%
#37400,R0
72‘

*SAVE LOC 6
*SAVE LOC &
SSTART AT 0
SSET UP FOR TIME OUT
:TO AUTOSIZE MEMORY
*CHECK ADDRESS IN RO
;IS IT AT LEAST 28K
:BR IF NO
:SAVE 2K FOR MONITORS
:STORE MEMORY LIMIT
*RESTORE LOC &
*RESTORE LOC 6
: CONT INVE
*ADJUST STACK
;GET LAST GOOD ADDRESS
*SAVE 2Kk FOR MONITORS
(1S IT 8?2
:BR ‘: NO
*IF 8K DON'T SAVE 2K
;

BIT

#BIT2,STRTSW

:CMECK FOR LOCK ON TEST

MOV
BEQ

3212 1064401 007716
003616 012737 000240 004146

#STACK,SP

MOV
MOV
CLR
MOV
CLR
ST
CMP
BNE
SuB
MOV
MOV
MOV
BR
CMP
SuB
SUB
CMP
BNE
MOV
BR

#340,°$
1%

1LOCK OUT INTERRUPTS

:BR IF NO LOCK DESIRED.

TYPE
MOV

MLOCK
#NOP, TTST

(TYPE LOCK SELECTED.
:SET UP TO LOCK

MOV

BRW,TTST

sPREPARE NORMAL SCOPE ROUTINE

*CONTINUE ALONG.

SEQ 0034

—

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JuUL~80 08:24

1605
1606
1607
1608
1609

003634
003642
003650
003652
003656

0157%7
032737
001002
104401
000177

011606
000002
A
007642
175324

08:27
PAGE 36
PROGRAM INITIALIZATION AND START UP.

001206
001446

3$:
4$:
5%:

MOV
BIT
BNE
TYPE
JMP

#CYCLE ,SLPADR
#SW0T,STRTSW
5%
MR
a$LPADR

;START AT "'CYCLE'' FIND WHICH DEVICE TO TEST
;1S TEST NO. SELECTED?
:BR _IF YES
:TYPE R
sSTART TESTING

SEQ 0035

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
C8-JuL-80 08:24

08:27
PAGE 37
END OF PASS ROUTINE

1610
1611
1612
1613

SEQ 0036

sEND OF PASS
sTYPE NAME OF TEST
sUPDATE PASS COUNT
sCHECK FOR EXIT TO ACT=-11

}g}‘s'

sRESTART TEST

}21_6,

.SBTTL

1618

1619
1620
}gg;

s*INCREMENT THE PASS NUMBER ($PASS)
;*IF THERES A MONITOR GO TO IT
s*IF THERE ISN'T JUMP TO CYCLE

1623
1626
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634

003662
003662
003664
003670
003674
003700
003704
003710
003714
003720
003726
003730

1636

1635

1637

R AN

R AN N

AR AN

AR RN RN AR RN

RESET
INC
CLRB
TYPE
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
TYPE

$PASS
SERFLG
+MEPASS
,MCSRX
,XCSR
+MVECX
,XVEC
,MPASSX
,XPASS
+MERRX

003740

013700

001504

MOV

MILK,RO

SHOW IT,
TYPE ** PASSES *'
SHOW IT,
TYPE '' ERRORS "'
: SHOW IT.
s SET POINTER TO PASSCNT.

003750

0137

001212

MOV

SERTTL, (RO)+

s SAVE ERROR COUNT

003734

003744

104417

013720

0137
005077
013777
005077
005337
001035
112737
013737
005037

1649
1650
1651
1652

0040
004036
004044
004046

005237
042737
005327
%0001

1664
1665

$EOP:

001324
0012C3
007620
007745
004104
007753
004112
007761
004120
007772

003754
003762
003766
003774
004000
004004
004006
004014
004022

1653
1654
1655
16
165
1658
1659
1660
1661
166;
1663

5
005237
105037
104401
104401
104417
104401
104417
104401
104417
104401

1639
1640
1641
1642
1643
1644
1645
1646
1647

1648

END OF PASS ROUTINE

0060%%

004050
004052
004054
m
004064

004072
004074
004076
004100

004100

005037

004126

001324

176074

000377
001472
001216

001511
001476

001324
100000

004710

000240
000240
000240
000137

000042

MOV
CLR
MOV
CLR
DEC
BNE
MOVB
MOV
CLR

176066

001310

3013

013700
001405
000905

MOV

002060
176072
002064
176064
001476

012737
000001

004046

CNVRT

CLR

001324

INC
BIC
DEC
SEOPCT: .WORD

8GT
MoV
SENDCT: .WORD
SEOPCT
$GET4L2: MOV
BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP
$DOAGN:

JMP

s
;
:
:
s
:
s
:
;
:

,XERR

SPASS,(RO)¢

INCREMENT THE PASS COUNT
CLEAR ERROR FLAG
TYPE END PASS.
TYPE "CSR’
SHOW IT.
TYPE VECTOR.

: SAVE THE PASS COUNT.

KMRLVL ,@KMRVEC
aKMRLVL
KMTLVL ,@KMTVEC
SKMTLVL
SAVNUN
329&6'0
#377,QV.FLG
KMNUM, SAVNUM
SERRPC

;
;
;
;
;
;
s
s
s

SPAS
n
(PC)+
1

:: INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
::LO0P?

STIMES

SPASS

RESTORE THE RECEIVER INTERRUPT VECTOR.
RESTORE RECEIVER LEVEL
RESTORE THE TRANSMIT INTERRUPT VECTOR.
RESTORE TRANSMITTER LEVEL
ALL DEVICE TESTED?
BRANCH IF NO.
SET QUICK VERIFY FLAG.
RESTORE DEVICE COUNT.
CLEAR LAST ERROR PC

ssZERO THE NUMBER OF ITERATIONS

$DOAGN
(PC)+,3(PC)+
1

3: 183
;sRESTORE COUNTER

62 RO
$DOAGN

2:GET MONITOR ADDRESS
s sBRANCH IF NO MONITOR
s:CLEAR THE WORLD

PC,(RO)

a(PC)+

R AR

;260 TO MONITOR
::SAVE ROOM
:+FOR
ACTN
s sRETURN

MACY11

WINNIMNIMNIN)
= bl

aRERRRsssssss -

30A(1052)
08-JuUL-80
08-JUL~-80 08:24

08:27

PAGE 38

END OF PASS ROUTINE

SRTNAD : iUORD

011606
000001
006
002066
000001
004
002056
000001
006
001324
000001

XCSR:

XVEC:
XPASS:
XERR:

006

001212

BYTE

KMCSR

BYTE

KMRVEC
1
BYTE
$PASS
1
.BYTE
SERTTL

SEQ 0037

CYCLE
6,2
4,2
6,2
6,2

:SCOPE LOOP AND INTERATION HANDLER
.SBTTL

SCOPE HANDLER ROUTINE

L LRt

'YHIS ROUTINE CONTROLS THE LOOPING OF

s*AND LOAD THE TEST NUMBER(STSTNM)

SUBTESTS.

IT WILL

INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)

:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
s *SW14=1
LOOP ON TEST
JeSWil=1
INHIBIT ITERATIONS
s*CALL

$SCOPE:

TIST:

1$:

SCOPE

CLR
CMP

: :SCOPE=]0OT

BEQ

SERRPC
T1ST1+2,(SP)

%!151!

CLEAR LAST ERROR P(
IS THIS TEST #1 ?

1S1B

I‘Y(S

KEYBOARD DONE ?

BPL
MOV
BIT
BNE

ng -2($P)
llll‘ l.asuu

IF SO DON'T LOOP.

IF NO DONT WAIT.

::LOOP ON PRESENT TEST?

‘YES IF SWik=1

SMRRRASTART OF cooe m THE XOR TESTERMMNES

$XTSTR: BR

5$:

::1F RUNNING ON THE "XOR'* TESTER CHANGE

MoV
MOV
ST
MOV
BR
CMP
MOV
B8R

mec -(sn
,oeRVEC
csm mnvec
$SVLAD
(SP)+, (SP)+
(SP)+,3FERRVEC
$OVER

::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
:iTIME OUT ON XOR?
..nestont THE ERROR VECTOR
so o THE NEXT TEST
S:CLEAR THE STACK AFTER A TIME OUT
..aesmz THE ERROR VECTOR
LOOP ON THE PRESENT TEST

1578
BEQ

g;ms

CLR

STIMES

::THIS INSTRUCTION TO A "NOP'' (NOP=240)

6$::MMAMNEND OF CODE FOR THE XOR fesmm
2%:

pary

3333 ddadds

32 S
WVSWN—=O

3 VRN
-

I
il
I
e
I
e e

NNNNNNNNNNSNN
b ek e e o o o
i
b wh
nN

1706

BRRRERRASS
38
8
NREREERERY
SRSEVRERNS

:®

4$:
38:

CLRB

SERFLG

BIT

#BITI1,a5WR

::HAS AN mon OCCURRED?
*BR IF NO

..zm me ERROR FLAG

c EAR THE NUMBER OF ITERATIONS TO MAKE
PINNIBIT ITERATIONS?

MACY11 30A(1052)
08-JUL-80
P11
08-JUL~-80 08:24

2
723

724
725
726
727
728
729
730

731
732
1733
1734
1735
1736
1737
1738

};‘3.8

004256
004260

004264
004266
004272
004300
004302
004310
004316

004322
004330
004334

004342
004346
004352

004356
004360

004362

001011
005737

001406
005;%7
023737
002015
015737
013737
105237

113737
011637
013777

013716
005037
013701

08:27
PAGE 39
SCOPE HANDLER ROUTINE

BNE
TST

001324
001204
001310

000001
004362
001202
001202

001206
001202
001206
001444

001204
001204
001310

001322
174700

000002
000406

BEQ
INC
CMP
BGE
1$:
MOV
MOV
$SVLAD: INCB

$9VER:

RTI
LWORD
SMXCNT: 20

000020

1%
$PASS

;sBR IF YES
++IF FIRST PASS OF PROGRAM

1%
$ICNT
STIMES,SICNT
$OVER
#1,51CNT
SMXCNT ,STIMES
$TSTNM

STSTNM,STESTN
(SP) ,SLPADR
STSTNM,BDISPLAY
SLPADR, (SP)
LOCK
KMCSR,R1
406

H
INHIBIT ITERATIONS
s+ INCREMENT ITERATION COUNT
;+sCHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
J+sREINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
;sCOUNT TEST NUMBERS

;;SET TEST NUMBER IN APT MAILBOX
++SAVE SCOPE LOOP ADDRESS
;;DISPLAY TEST NUMBER
2sFUDGE RETURN ADDRESS
; RESET LOCK ON DATA.
; R1 CONTAINS BASE KMC ADDRESS.

;sMAX. NUMBER OF ITERATIONS

sCHECK FOR FREEZE ON CURRENT DATA

};2%

};g?

MOV
CLR
MOV

BRW:

1741

1744
1745
17646
1747
1748
1749

MOvB
MOV
MOV

SEQ 0038

: ................................

004364
004370
004376
004400
004404
0044

00441

174642

.SCOP1: JSR
BIT
BEQ
TST
BEQ
MOV

1$:

1752

RTI

PC,CKSWR
#5W09,aSWR
1$
LOCK
1$
LOCK, (SP)

sCHECK FOR SOFT SWR
;1S SW09=1(SET)?
:sBR IF NOT SET.

;GOTO THE ADDRESS IN LOCK.
:G0 BACK.

sTELETYPE OUTPUT ROUTINE

1753

1754

- e e

};22

.SBTTL

TYPE ROUTINE

1757

R AR R

1758
1759
1760
1761

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
s*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
s*NOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

};2%

;*NOTE3:

AR R R R R R R RN R R RN AR AR AR AR AR RR AR

s«CALL:
:*1) USING A TRAP INSTRUCTION

};29

;.OR

TYPE

)
M

TYPE
MESADR

$TYPE:

TSTB
BPL

1768
1769

004414
004420
004422
0046424
004426
0044

1$:

ERRRRRARRRRR S

SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

1764
1765

1772
1773
1774
1775
1776
1777

HALT
BR
MOV
MOV

,MESADR

ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

STPFLG
1%

s+ 1S THERE A TERMINAL?
siBR IF YES

3%
RO,=(SP)
#2(SP) RO

;sGET ADDRESS OF ASCIZ STRING

ssHALT HERE IF NO TERMINAL
s sLEAVE
+:SAVE RO

]

alsl

sl
NN

F
MACY11 30A(1052)
08-JUL-80
F.P11
08-JUL~-80 08:24

SNNNSNNSNNSNNN NNSNSNSN~N ~

78
79

91
92
93
9

};

122737
001011

004452

001405

004444

004454

004460
004464
004466
004474
004476
004500
004502
004504

004506
004512
004514
004520

000001

001336

132737

000100

001337

010037

004464

004737
000000
132737
001003
112046
001005
005726
012600

062716
000002
122716
001430

004522 122716
004526 001006
0045%0 005726
004532. 104401
004534 001313
004536 105037

004542
004544
004550
004554
004556

000755
004737
123726
001350
013746

004562
004566
004570

105366
002770
004737

004600

000770

004574

105337

004704
000040

004602

17
18
19

004612
004620
004622

1821

S
9

828
agg
830
1

;;RUNNING IN APT MODE
1INO,GO CHECK FOR APT CONSOLE

BEQ

62%

1iNO,GO CHECK FOR CONSOLE

PC.SATY3
0
NAPTCSUP,SENVM
60$
(RO)+,=(SP)
48
(SP)+
(SP)+,R0

::SPOOL MESSAGE TO APT
: *MESSAGE ADDRESS
::APT CONSOLE SUPPRESSED
11YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK
SiBR IF IT ISN'T THE TERMINATOR
s
1IF TERMINATOR POP IT OFF THE STACK
: *RESTORE RO

001337

28:
60$:

000002

3$:

000011

48:

000200

004672
004626
001256

5%:
68:

001254
000001

78:

004626
004672

JSR
.WORD
BITB
BNE
MOVB
BNE
TST
MOV

ADD
RTI
CMPB
BEQ

WAPTSPOOL,SENVM ::SPOOL MESSAGE TO APT
RO,618

#2,(sP)

#HT, (SP)
8s

CMPB #CRLF, (SP)
BNE
5¢
1ST
(SP)+
TYPE
$CRLF
CLRE
SCHARCNT
BR
28
JSR
PC,STYPEC
CMPB
SFILLC,(SP)+
BNE
28
MOV
SNULL , =(SP)

::SETUP MESSAGE ADDRESS FOR APT

1 *ADJUST RETURN PC
: *RETURN
P:BRANCH IF <HT>

::BRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIV
33TYPE A CR AND LF

DECB
BLT
JSR

1(SP)
6
PC,STYPEC

:;CLEAR CHARACTER COUNT
1:GET NEXT CHARACTER
::GO TYPE THIS CHARACTER
;:IS IT TIME FOR FILLER CHARS.?
;:1F NO GO GET NEXT CHAR.
;
::GET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.
i
;:DOES A NULL NEED TO BE TYPED?
::BR IF NO==GO POP THE NULL OFF OF STACK
1360 TYPE A NULL

DECB

SCHARCNT

::D0 NOT COUNT AS A COUNT

:LOOP

;HORIZONTAL TAB PROCESSOR

#APTENV,SENV
62%

BITB

61$:
628:

SEQ 0039

CMPB
BNE

MOV

— o

o o

00 0o 0o 0o 00 0o 09 0 o OO

e o o

e e

e o

o e

—

32IR38222833333

83
84
85
86
87
88
89
90

004434
004442

08:27
PAGE 40
TYPE ROUTINE

112716

000040

132737
001372
005726

000007

004606

004737

004624
004626

000724
105777

174416

004634

116677

000002

004650
004652

001003
105037

004632 100375
004642

004656
004660
004666
004670
004672
004674

122766

000406
122766
001402
105227

000000
000207

004626

000015

8s:

004672

9s:

JSR

BITB
BNE
ST

BR
STYPEC: TSTB

BPL

174410

MOVE

000002

CMPB

BNE
CLRB

004672

000012

MOVE

000002

18:

BR
CMPB
BEQ
INCB

$CHARCNT: .WORD
$TYPEX: RTS

,(SP)

P;.itvrec

#7.SCHARCNT
9
(SP)+

28
@$1PS

$TYPEC

; ;REPLACE TAB WITH SPACE

1:TYPE A SPACE

:BRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK

1:GET NEXT CHARACTER
$SWAIT UNTIL PRINTER IS READY

2(SP),asTPB

::LOAD CHAR TO BE TYPED INTO DATA REG.

1$
SCHARCNT

:BRANCH IF NO
$3YES==CLEAR CHARACTER COUNT

#CR,2(sP)

S$TYPEX
#LF,2(SP)
$TYPEX
(PC)+
0
PC

+31S CHARACTER A CARRIAGE RETURN?
JIEXIT
::1S CHARACTER A LINE FEED?
$:BRANCH IF YES
1:COUNT THE CHARACTER
: sCHARACTER COUNT STORAGE

el
]

08:27
PAGE 41
APT COMMUNICATIONS ROUTINE

.SBTTL

VNN

DRBBBBBBD®
SNNNNN
NOWN
NN
I3IFANANIS
FERECRERSE

333333333

b e

00 Oo OO 0o OO 00 OO OO 00 00

D e

D s
D

FIIIIIIN
“\fl\fig\flm“\fl\fim
VNN
W —-O

—

D ed il

D e

i oo
WN—=O SEES S

falal

nlal

sla
~NN

MACY11 30A(1052)
08-JuUL-80
P11
08-JuL-80 08:24

004676

112737

005142

$ATY1:

000001

005142

::;;2=

112737
000403
112737

004722
004724
0067%6
004732
004734
004742
004744
004752
004754
004760
004766
004772
004774

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766
005737
001375
010037

005002
005006
005010
005012
005016
005024
005026
005034

001376
163700
006200
010037
012737
000413
017637
062766

005046
8833?5

004737
000000

004414

005054
005060

105737
001416

005142

005066
005070
005074
005076

001413
005737
001375
017637

005116
005122
005126
005132

105037
105037

005000

005042

105720

013746

000001

005140

SATY3:

005140
000001

001336

000100

001337

000004
000002
001316

000004

001332

1$:

2$:

001332
001334
000004

001316

000004
000002

005052
000004

177776

3$:

108:

005062 005737 001336

005104
005112

062766
005237

105037
012601

005134 012600

005136
005140
005141
005142

000207
000
000
000
005144
000200
000001
000100

000004

000002
001316

005142
005141

005140

MOVB

#1.$FFLG

MOVB
BR
MOVB

#1.SMFLG
$ATYC
#1,8$FFLG

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
ST
BNE
MOV

T1ST8B

BNE
SUB
ASR
MOV
MoV
BR
MOV
ADD

RO,=(SP)
R1,=(SP)
$MFLG
5$
#APTENV, SENV
3%
#APTSPOOL ,$ENVM
38
84 (SP) RO
#2,4(SP)
$MSGTYPE
1%
RO, SMSGAD
.

MOV
§§‘

001316

APT COMMUNICATIONS ROUTINE

'.'tt.ttttttttttit'tt"t"itttt'tt'tttt't!'tt'ttt'ttttttt'tttt'ttt

000001

004704
004712
882;53

SEQ 0040

11%:

001320

000004

128:

(Ré)#

2§
$MSGAD , RO
RO
RO,SMSGLGT
#4 ,SMSGTYPE
5%
94 (SP) 48
#2,4(SP)

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

::T0 ONLY REPORT FATAL ERROR

;sPUSH RO ON STACK
PIPUSH R1 ON STACK
+sSHOULD TYPE A MESSAGE?
(:IF NOT:
BR
;sOPERATING UNDER APT?
s31F NOT:
BR
;;SHOULD SPOOL MESSAGES?
(iIF NOT: BR
J3GET MESSAGE ADPR.
;:BUMP FETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?
PiIF NOT:
WAIT
;sPUT ADDR IN MAILBOX

;:FIND END OF MESSAGE

::SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
J3PUT LENGTH IN MAILBOX
JsTELL APT TO TAKE MSG.
::PUT MSG ADDR IN JSR LINKAGE
::BUMP RETURN ADDRESS

JSR
LWORD

PC.STYPE
0

177776,-(SP)

;;PUSH 177776 ON STACK

TSTB
BEQ

S$FFLG
128

::SHOULD REPORT FATAL ERROR?
$:1F NOT: BR

12
SMSGTYPE
1%
84(SP) ,$FATAL

$:IF NOT: BR
ssFINISHED LAST MESSAGE?
S3IF NOT: WAIT
:;GET ERROR #

TST

SENV

ADD
INC

#2,4(SP)
SMSGTYPE

BEQ
18T
BNE
MOV
CLRB
CLRB
CLRB
MOV

MOV

RTS
$MFLG:
.BYTE
SLFLG:
.BYTE
$FFLG:
.BYTE
-EVEN
APTS12E=200
APTENV=001
APTSPOOL =100

SFFLG
SLFLG

SHFLG
(SP)+,R1

(SP)+.RO0

PC
0
0
0

;:CALL TYPE MACRO

: SRUNNING UNDER APT?

: :BUMP RETURN ADDR.
::TELL APT TO TAKE ERROR
:CLEAR FATAL FLAG
::CLEAR LOG FLAG

::CLEAR MESSAGE FLAG
1sPOP STACK INTO R1

1:POP STACK INTO RO

: SRETURN
::MESSG. FLAG
11L0G FLAG
SiFATAL FLAG

——

IKCF
MACY11 30A(1052)
08-JuL-80
IKCF P11
08-JUL-80 08:24
1890
1891
1892

08:27 PAGE 42
APT COMMUNICATIONS ROUTINE

000040

SEQ 0041

APTCSUP=040
R

}ggz

SBTTL

1895

TTY INPUT ROUTINE

."'.'...fi""""""""'.""'.'fi'."..."'.'.."".""'i"

1896
1897

1898
1899
1900

.ENABL

LSB

.DSABL

LSB

1901

}gg%

J'E:zf ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

1904
1905
1906

o
ot
ot

1909
1910
1911
1912

005144
005146
005154
005160

011646
016666
105777
100375

000004
174064

000002

005170
005176

042766
026627

177600
000004

174060

000004

1913

005162

1916
1917
1918
1919

005204
885502
5212
005214

1914
1915

1920
1921

1922
1923
1924
1925
1926
1927
1928
1929
19

005220
005224

005230
005232
005234
005242

005244
005252
005254
005262

117766

001013
105777
100375
117746

042716
022627

001366
000750
026627
002407

026627
003003

042766
000002

174026

000140

000004

000175

000040

000004

MovB

;;PUSH DOWN THE PC
:sSAVE THE PS
JsWAIT FOR
ssA CHARACTER

BNE
1STB
BPL
Move

33
as$TKS
2%
as$TkB,-(SP)

s ;BRANCH IF NO
ssWAIT FOR A CHARACTER
s:LOOP UNTIL ITS THERE
s:GET CHARACTER

BNE
BR
CMP
BLT

2%
1%
4(SP) 7140
43

s:IF NOT DISCARD IT
s YES, RESUME
218 1T UPPER CASE?
;sBRANCH IF YES

CMP
BGT
BIC
RTI
R

AR R R R

#°C<177>,4(5P)
4(SP) 323

l‘C171 (SP)
(SP)+, 21

4(SP) ,.M75
43
#40,4(5P)
A

AT R

R R

ot
005264

010346

1939

005270

012703

005
005302

101456
10440

0052

1940

005274

1943

005304

1944
1945

63:

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

;sREAD THE TTY

;sGET RID OF JUNK IF ANY
::1S IT A CONTROL-S?

sMAKE IT 7-BIT ASCII
::IS 1T A CONTROL-Q?

3:1S IT A SPECIAL CHAR?
s BRANCH IF YES
;sMAKE IT UPPER CASE
::60 BACK TO USER

R R R TR R R R RN RN RRRRRR AR

RN RN ARRNRR

'VHIS ROUTINE WILL INPUT A STRING FROM THE TTY
'CALL
:'
RDLIN
s+ INPUT A STRING FROM THE TTY
)
RETURN HERE
s sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

1937

1941
19‘%

3%:

R LTI

(SP) ,=(SP)
4(SP),2(sP)
as$TKS
1%
as$TkB,4(SP)

BIC
CMP

000004

}ggz

1938

2%:

RDCHR
RETURN HERE

BIC
CMP

177600
000021

1931
1932
1933
1934

$SRDCHR: MOV
MOV
1$:
TSTB
BPL

000004
000023

174032

005306
005312

005046

022703
11261

122713
001022

005520

s s TERMINATOR WILL BE A BYTE OF ALL 0°'S

SRDLIN: MOV

R3,=(SP)

;:SAVE R3

1%:

MOV

#STIYIN,RS

ssGET ADDRESS

BLOS
RDCHR

005527

2%:

000177

10%:

CLR

CMP

MOVB

(MPB
BNE

-(5P)

“TTYINOT R3
(SP) 0 (R3)

#177,(R3)
5%

;sCLEAR THE RUBOUT KEY
s sBUFFER FULL?

;sBR IF YES
2:G0 READ ONE CHARACTER FROM THE TTY

3sGET CHARACTER

i 1 A RUBOUT
+:BR IF NO

MACY11

005314
005316
005320
005326
005332

195§
1953
1954
1955

005340
005344
005346
005352

1951

1956

005336

005356

1957
1958
1959
1960
1961
1962
1963
1964

005360
005362
005364
005372
005376
005400
005404
005406

1966
1967
1968
1969

005414
005420
005422
005424

1971

005434

005716
001007
112737
104401
012716

005303
020327
103434
111337
104401

000746

005716
001406
112737
104401
005016
122713
001003
104401

005412

000726

1970 005430

104401

d D D b b ) e

s88d $337333388832848

1972
1973
1974
1975
1976
1977
1978
1979
1980
981

005436
005442
005444
005450
005454
005460
005462
005466
005472
005474

005476
005500
005506
005514
005516

005517

122713
001011
105013
104401

000717

104401
000712
111337
104401
122723
001305
105063
104401
005726
012603

011646
016666
012766
000002
000

08-JUL-80

oooogz

005534

043536

005552
005560

020040
020075

005541

000134
005516
177777

08:27

PAGE 43

INPUT ROUTINE

68:

005520

005516
005516

cg:
000134
005516

005516

000025

7%:

005527
000022

8s:

001313

005520
001312

48:

005516
005516
000015

3s:

CMP
BLO
MOVB
TYPE

R3,#STTYIN
4%
(R3),9%
9%

DEC

000012

015

051412

051127

042516
000

020127

000

ST
BEQ
MOVB
TYPE
CLR
CMPB
BNE
TYPE

(SP)
7%
#'\,9%
.98
(sP)
#25,(R3)
8s
$CNTLU

CMPB
BNE
CLRB
TYPE

#22, (R3)
3$
(R®)
,SCRLF

TYPE
BR
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
ST
MOV

$STTYIN

;1S THIS THE FIRST RUBOUT?
PIBR IF NO
P'TYPE A BACK SLASH

::SET THE RUBOUT KEY
:*BACKUP BY ONE
1'STACK EMPTY?
(iBR IF YES
*iSETUP TO TYPEOUT THE DELETED CHAR.
1160 TYPE

1160 READ ANOTHER CHAR.
:'RUBOUT KEY SET?
(:BR IF NO
S*TYPE A BACK SLASH

::CLEAR THE RUBOUT KEY
1+IS CHARACTER A CTRL U?
::BR IF NO
::TYPE A CONTROL ''U"

1160 START OVER

1:1S CHARACTER A ""R'"?
:*BRANCH IF NO
::CLEAR THE CHARACTER
SiTYPE A "CRTM & "LF"

::TYPE THE INPUT STRING

::6G0 PICKUP ANOTHER CHACTER

MOV
MOV
MOV
RTI
BYTE

:;CHECK FOR RETURN
::LOOP IF NOT RETURN
::CLEAR RETURN (THE 15)
;:TYPE A LINE FEED
::CLEAN RUBOUT KEY FROM THE STACK
1 :RESTORE R3

: sRETURN
::STORAGE FOR ASCII CHAR. TO TYPE

STTYIN:

.BLKB

::RESERVE 7 BYTES FOR TTY INPUT

000002
000004

006525

005015

(SP)
6%
#'\,9%
,9%
#-1,(5P)

,SQUES
is
(R3),9%
9%
#15,(R3)+
28
=1(R3)
SLF
(SP)+
(SP)+,R3

177777
001314

000004
005520

SEQ 0042

ST
BNE
MOVB
TYPE
MOV

TYPE

136

005564

TTY

005516

000

005520

1965

30A(1052)

08-JUL-80 08:24

1946
1947
1948
1949
1950

PNOND b wod od od D ek b o

KCF

KCF.P11

BYTE

(SP) ,-(SP)
4(SP},2(SP)
#STTYIN,&(SP)

.ASCIZ

SMSWR:

ASCIZ

<15><12>/SWR
= /

SMNEW:

.ASCIZ

.EVEN

.SBTTL

::ADJUST THE STACK AND PUT ADDRESS OF THE
i
FIRST ASCII CHARACTER ON IT

: s TERMINATOR

SCNTLU:

SCNTLG: .ASCIZ

SITYPE A '2°
::CLEAR THE BUFFER AND LOOP
::ECHO THE CHARACTER

/7°U/<15><12>

/*G/<15><12>

::CONTROL

: : CONTROL ''6"'

NEW
= /

READ AN OCTAL NUMBER FROM THE TTY

JiRARRRRRRARARRERCEREERRIRENRARRARRRARRRRRERRRRRRR
R R R AR AR R AR REY

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
s*CHANGE IT TO BINARY.
;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

MACY11 30A(1052)
08-JUL-80
PN
08-JuL-80 08:24

4
E
08:27
PAGE 44
READ AN OCTAL NUMBER FROM THE TTY

SEQ 0043

;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ''?'' WILL BE TYPED
:*FOLLOWED BY A CARRIAGE RETURN=-LINE FEED. THE COMPLETE NUMBER MUST
:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

s*CALL:

005564
005566
005574

005576
005600
005602
005604

011646
016666
010046
010146
010246
104403
012600

005612
005614
005616
005620
005622
005626
005630
005634
005636
005640
005642
5644
5646
005650
005652
005656

005001
005002
112046
001420
122716
003026
122716
002423
006301
006102
006301
006102
006301
006102
042716
062601

005662

005726

000004

000002

$RDOCT: MOV
MOV
MOV

1%:

005606 010037 005712

005664
005670
005674
005676
005700

000060
000067

177770

005702
005704
005706
005710
005712

005714

010166 000012
010237 005722
012602
012601
012600
000002
005726
105010
104401
000000

104401

005720 000730
005722

3s:

4$:

001312

000000

58:

oosrgg
005732
005736
005742

010546

01 gs
012537
012537
012537

(SP)+,RO

RO,5$

R1
R2
(RO)+,=(SP)
3$
#'0,(SP)
43
#'7,(SP)
48
R1
R2
R1
R2
R1
R2
#5C7,(SP)
(SP)+,R1

TST

(SP)+

MOV
MOV
MOV
MOV
MOV

RTI
TST
CLRB
TYPE
LMORD

TYPE

$HIOCT: .WORD

000002
005770
006050
006052

(SP) ,=(SP)
4(SPY,2(SP)
RO,=(SP)
R1,=(SP)
R2.,=-(SP)

CLR
CLR
MOVB
BEQ
CMPB
BGT
CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD

005724

MoV
MOV
RDLIN
MOV

MOV
2%:

005660 000756

RDOCT

RETURN HERE

R1,12(sP)
R2,$SHIOCT
(SP)+,R2
(SP)+.R1
(SP)+.RO
(SP)+
(RO)
O

;sREAD AN OCTAL NUMBER

2.LOW ORDER BITS ARE ON TOP OF

ssHIGH ORDER BITS ARE IN SHIOCT

STACK

:sPROVIDE SPACE FOR THE
PVINPUT NUMBER
;sPUSH RO ON STACK

:sPUSH R1 ON STACK
;sPUSH R2 ON STACK
;sREAD AN ASCIZ LINE
;3GET ADDRESS OF 1ST CHARACTER

SYAND SAVE IT

::CLEAR DATA WORD
;sPICKUP THIS CHARACTER
::1F ZERO GET OUT
s sMAKE SURE THIS CHARACTER
:3IS AN OCTAL DIGIT
;%2
L]
;ie8

;:STRIP THE ASCII JUNK
J:ADD IN THIS DIGIT

: :LOOP

ssCLEAN TERMINATOR FROM STACK

1:SAVE THE RESULT

::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

* RETURN
3sCLEAN PARTIAL FROM STACK
1:SET A TERMINATOR
;:TYPE UP THRU THE BAD CHAR.

$QUES

T ity aoth + sadl B

::HIGH ORDER BITS GO HERE

THE

PSTRY AGAIN

1 LU

INPUT OCTAL NUMBER ROUTINE

$INPUT: MOV

MOV
MOV
MOV
MOV

RS,=(SP)

2(5P) RS
(RS)+,WHAT
(R5)+,LOLINM
(RS)+,HILIM

: SAVE REGISTER RS.

: GET FIRST PARAMETER ADDRESS.
: GET MESSAGE ADDRESS.
: GET LOW LIMIT FOR THE #
P GET HIGH LIMIT FOR THE #.

SR——

KCF
MACY11 30A(1052)
08-JUL-80
KCF.P11
08-JUL-80 08:24

08:27
PAGE 45
READ AN OCTAL NUMBER FROM THE TTY

2059 005752 112537 006056

MOVB

SEQ 0044

(RS)+,LOBITS

; GET LOWMASK BITS.

2058

005746

012537

006054

MOV

(RS)+,WHERE

; GET ADDRESS OF INBUFFER

2060
2061
206
2063
2064
2065

112537
010566
104401
000000
104404
021637
003003
021637
002005
104401
104401
000762
013705
011625
062716
105337
001372

006057
000002

MOVB
MoV
TYPE
LWORD
RDOCT
CMP
BGT
cMP
BGE
TYPE
TYPE
BR
MoV
MOV
ADD
DECB
BNE

(RS)+,ADRCNT
RS,2(SP)

; GET # OF #'S TO BE GENERATED.
; SAVE THE RETURN ADDRESS.
; TYPE THE MESSAGE.

2067
2068
2069
2070
2071
2072
2073
2074
2075
2076

005756
005762
005796
005770
005772
005774
006000
006002
006006
006010
006014
006020
006022
006026
0060
006034
006040

2078
2079
2080
2081

006044
006046
006050
006052

012605
000002
000000
000000

2077

2082
2083
zoag

3836

006042

006054
006056
006057

INLP1:
WHAT:

006052
006050

001312

2s:

006054

3%:
48:

001313

000002
006057

005726

MoV
RTI
.WORD
.WORD

LOLIM:
HILIM:
WHERE:
.WORD
LOBITS: .BYTE
ADRCNT: .BYTE

000000
000
000

%899(7:

006060
006064
006070

013716
005037
000002

001442
001444

006072

016637

000004

.ADVANCE :
CLR
RTI

READ OCTAL # FROM KEYBOARD.
IS IT IN HIGH LIMIT?
BRANCH IF NO.
IS IT MORE THAN LOW LIMIT.
BRANCH IF YES.
TYPE "7 "
TYPE <CR>,<LF>

(SP)+,RS

: POP THE REG.S

GET BUFFER ADDRESS.
SAVE THE # IN RIGHT PLACE.
NEXT SEQUENTIAL NUMBER.
COUNT BY 1.
BRANCH IF NOT DONE.
: POP THE STACK POINTER.

(SP)+

O
O
0
0
0

MOV
LOCK

———

NEXT, (SP)

: CRUNCH STACK WITH ADDRESSOF SCOPE CALL
: RESET TIGHT LOOP ADDRESS
; CHECK TO SEE IF OLD TEST GETS REPEATED

;SAVE PC OF TEST THAT FAILED AND RO-RS

001460

;

.SAVOS: MOV

4(SP) ,SAVPC

:SAVE R7 (PC)

;SAVE RO=RS

2100
2101

006100
006104

010537
010437

001274
001272

2103
2104
2105
g}gg

006114
006120
006124
006130

010237
010137
010037
000002

001266
001264
001262

210%

;
;
;
:
;
:
:
¢
;
;
;
;
;

%832

2095

(SP) ,HILIM
2%
(SP),LOLIM
3$
LSQUES
LSCRLF
INLPY
WHERE ,RS
(SP),(RS)+
#2,(SP)
ADRCNT
43

: ADVANCE TO NEXT TEST HWANDLER

2089
2090
%835

006110

010337

001270

g;%

Sv05:

MoV
MOV

RS,SREGS
R4 ,SREG4

:SAVE RS
:SAVE Ré

MoV
MOV
MOV
RTI

R2,SREG
R1,SREGY
RO,SREGO

:SAVE R2
:SAVE R1
sSAVE RO
sLEAVE.

MOV

R3,S$REG

sSAVE R3

sRESTORE RO-RS

2110
2111

006132
006136

013700
013701

001262
001264

.RESOS5: MOV
MOV

$REGO,RO
$REG1,R1

sRESTORE RO
sRESTORE R!

2113

006146

013703

001270

MOV

$REG3,R

+RESTORE R3

2112

006142

01370%

001266

MoV

$REG .Rg

sRESTORE R2

PEARTRAR
LB IR IFRRUR2

A e

o e

ek et ch i

ch oD

h o

NIRIRIAINIRIAIAIAINININI
AIRINI NI NI AN

kb ok

S
WN—-O

SR HPHRTEIRRASS

NN
= =

-2

MACY11 30A(1052)
08-JUL-B0
1
08-JuL~-80 08:24

006152
006156
006162

013704
013705
000002

08:27
PAGE 46
READ AN OCTAL NUMBER FROM THE TTY

001272
001274

MOV
MOV
RTI

:
006164
006170

104401
010046

001313

006174
006176

010346
010446

006206

062766

000002

20
26

112137
112137

006410
006411

006234

122737

000003

006410

006244

062737

177400

006412

006256

113705

006410

006172 010146

0062164

012137 006406

30 013137 006412

006242 001003

006252 013704 006412

$REG4 R4
$REGS,RS

"CONVR: TYPE
.CNVRT: MOV

,$CRLF
RO,=(SP)

MOV
MOV

R3.=(SP)
R&,=(SP)

000012

R1.=(SP)

MOV
MOV

RS . =(SP)
a12(SP)
R

MOV

(R1)+,WRDCNT

ADD

18:

MOVB
MOVB

MOV

CMPB

BNE

BIC

#2,12(5P)

(R1)+.CHRCNT
(R1)+.SPACNT

a(R1)+,BINWRD
#3,CHRCNT

#177400,BINWRD

28:

MOV

BINWRD
, R4

38:

MOV
MOV

#TEMP,RO
R4 ,R3

382500 110320

MOVE

agf(ion

006304
006306
006310

ROR
CLe
ROR

R4
R4

ROR
DEC
BNE
MOV

R4
RS
3%
MDATA R3

DECB
BNE

CHRCNT
48

BEG

BNE
CLRB
TYPE
DEC
BNE

58
(R3)
,MDATA
WRDCNT
1%

MOV
MOV

(SP) +.R1
(SP) +.RO

006262 012700 011234
006266 010403
006302

000241

006312

000241

ooosgg

114023

006314
ooogs 005305
006
001362
006322 012703 011276
006330
105337 006410
006334 001374
006333

105737

006411

112723
105337

000040
006411

006342

001405

006354
006
006
383

ogms
105013
104401 011276
335337 006406
1313

006344
006350

006372 mgws
006374 012604
006376 01%603

006400 012601
006402 012600
006404

000002

MOVB

cLC

000241

cLC

48:

MOVBE

1818

5%:

68:

JRESTORE R4
sRESTORE RS
‘LEAVE

sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

MOV

006200 010546
006202 017601 000012

——

MOVB
DECB

MOV
MOV
MOV
RTI

CHRCNT,RS

=(RO),(R3)+
SPACNT

#040,(R3)+
SPACNT

(SP)+,RS
(SP) +.Ré
(SP)+.R3

SEAQ 0045

MACY11 30A(1052)
08-JuL-80
PN
08-JuL-80 08:24

n
72
73
74
75
76
77
78
79

006406
006410

H
&
08:27
PAGE 47
READ AN OCTAL NUMBER FROM THE TTY

000000
000000
006411
000000

006412

WRDCNT: 0
CHRCNT: 0
SPACNT=CHRCNT+1
BINWRD: 0
;TRAP DISPATCH SERVICE

+ARGUMENT OF TRAP IS EXTRACTED
sAND USED AS OFFSET TO OBTAIN POINTER
:TO SELECTED SUBROUTINE

80
81
82

.SBTTL

TRAP DECODER
R

010046
016600
005740

000002

STRAP:

016000 006450

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

::SAVE RO
;:GET TRAP ADDRESS
; :BACKUP BY 2

ASL

:;POSITION FOR INDEXING

RTS

MOV

000200

MOV
MOV
TST

Move

111000

(RO) ,RO

$TRPAD(RO)
,RO

;sGET RIGHT BYTE OF TRAP

:;INDEX TO TABLE
::G0 TO ROUTINE

ssTHIS IS USE TO HANDLE THE ''GETPRI'' MACRO

2200

006436

011646

S$TRAP2: MOV

%%8%

006446

000002

RTI

2201

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
s*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.
I

85
86
87
88
89
90
9N
92
93

SEQ 0046

006440 016666 000004 000002

MOV

(SP) ,=(SP)

4(SP),2(SP)

;sMOVE THE PC DOWN

::MOVE THE PSW DOWN

;sRESTORE THE PSW

%ggg

.SBTTL

2206

;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

gg%

558;

TRAP TABLE

:*BY THE ''TRAP'' INSTRUCTION.

ROUTINE

2211

006450

006436

$TRPAD: .WORD

2214
2215

006454

005144

2220 oougo 006132

%%}%

2219
2217
sm
219
2221
2222
2223
2224

2225

006452

006456
006460
006462
006464

006470
006472
006474
006476

006500

004414

005264
005564
004364
006072
oorsgz
007332
007400
007446

007512

S$TYPE

STRAP2

33CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

SRDCHR

;:CALL=RDCHR

TRAP+2(1 uoi)

TTY TYPEIN CHARACTER ROUTINE

JRESOS

::CALL=RESO5

SROLIN
SRDOCT
.SCOP1
.SAVOS

::CALL=RDLIN
::CALL=RDOCT
::CALL=SCOP1
::CALL=SAVOS

TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+&(1 40*)

TRAP+7(104407)

TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
CALL TO LOOP ON CURRENT DATA HANDLER
CALL TO REGISTER SAVE ROUTINE

CALL TO REGISTER RESTORE ROUTINE

JMSTCLR ::CALL=MSTCLR
TRAP+10(104410) CALL TO ISSUE A MASTER CLEAR
.DELAY ;;CALL=DELAY
rmmng:m) CALL TO DELAY
JROMCLK ::CALL=ROMCLK
TRAP+12(104412) CALL TO CLOCK ROM ONCE
"DATACLK
+*CALL=DATACLK TRAP+13(104413) CALL TO CLOCK DATA

"TIMER

;;CALL=TIMER

TRAP+14(104414) CALL TO DELAY A CLOCK TICK

F
MACY11 30A(1052)
08-JUL-80
F.P11
08-JUL-80 08:24

26
27
28
%g

006502
006504
006506
006510

08:27
PAGE 48
TRAP TABLE

005724
006164
006170
006060

SEQ 0047

$INPUT
;;CALL=INPUT
TRAP+15(104415) CALL TC OCTAL # INPUT ROUTINE
.CONVRT ;:CALL=CONVRT
TRAP+16(104416) CALL T0
.....
CNVRT
:;CALL=CNVRT
TRAP+17(104417) CALL T0
.......
.ADVANCE
:;CALL=ADVANCE TRAP+20(104420) CALL TO ADVANCE TO NEXT TEST

S
——

;:ttt"t!'ttt't"'"'i't"'tt'i't'ttttttt'tt'tttttttt"tttttt"t

;ERROR HANDLER

%Zgg

2236

2237
2238
2239
2240
2241

2242

jeeeccccccnann

006512

006516
006526
006526
006532
006534

006542

004737

032777
001406
105777
1
3
112777

032777

011340

010000

172514

$ERROR: JSR

PC,CKSWR

sCHECK FOR SOFT SWR

xBX:

05015.SSHR

sDELETE ERROR PRINT OUT?

172516

000207

020000

172510

172470

BIT
BEQ
TSTB
BPL
MOvB

BIT

2243
2244
2245
2246
2247
2248
2249

006550
006552
006556
006560
006564
006570
006572

001107
021637
001404
011637
105037
104406
011605

222%

006602

aaggaz

2255
2256
2257

006612
006614
006620

006304
042704
062704

2259
2260
2261
2262
2263
2264
2265
2266
267

006630
006634
006640
006644
006646
006652
006654
006660

012437
011437
105737
001403
005737
001040
104401
104401
005737

001313
001313
001444

MOV
MOV
ISTB
BEQ
TST
BNE
TYPMSG: TYPE
TYPE
ST

2269
2270

006672
006676

104401
104401

010015
010003

TYPE
TYPE

2250 006574
2251 006600

162705
011504

3 54 8322?3 061504

001216
001216
001203

000002

2271
zz;;
2273
2276

006702
006706
006712
026716

2275 006722
2276
227
2 ;3
2279
2280

0067
ooor;z
006736
006740
006742

104417
104401
104417
104401

112737

005737
001402
104401
000000

SUB
MOV

001214

:gzfl

177001
001512

ASL
BIC
ADD

2258 006624 012437 006740

268 503393 001402

1%:

BNE
cmp
BEQ
MOV
CLRB
SAV0S
MOV

006752
006764
001203
006764

007120
010072
007112
00131

177777 001203

00674

2281 006742 005737 006752

ADD

MOV

BEQ

18:

CNVRT
TYPE
CNVRT
TYPE

MOVB

TST
BEQ
TYPE
ERRMSG: 0
WRKO.FM:

TST

#5W12,35WR
XBX
@s$TPS
XBX
#207,387TPB
HALTS
(SP) ,SERRPC
1%
(SP) , SERRPC
SERFLG

BELL ON ERROR?
:BR IF NO BELL
STTY READY,
:DON'T WAIT IF TTY NOT READY.
sPUSH A BELL AT THE TTY.

(SP) ,RS

sBR IF NO PRINT OUT WANTED.
sWAS THIS ERROR FOUND LAST TIME?
:BR IF YES
*RECORD BEING HERE
:PREPARE HEADER
sSAVE ALL PROC REGISTERS
1GET THE PC OF ERROR

:2.$ITEHB

;.6E:Y'$R¥3s # FOR APT HANDLING

R4
#177001,R4
#SERRTB R4

IMULT AGAIN
*CLEAR JUNK
*GET POINTER

(R4)+,DATAHD
(R4) ,DATABP
SERFLG
TYPMSG
DATABP
TYPDAT
,SCRLF
,SCRLF
LocK

;GET DATA HEADRER
*GET DATA TABLE
:TYPE HEADREER
iBR IF YES
:DOES DATA TABLE EXIST?
BR IF YES.

#2,RS
(RS) R4

(R5) ,R4

(R4)+,ERRMSG

:GET ADDRESS OF TRAP CALL
*GET ERROR INSTRUCTION

:DOUBLE IT

:GET ERROR MESSAGE

,MASTEK
.MISIN

,XTSTN
,MERRPC
,ERTABO
$CRLF

;SHOW 1T
:TYPE PC.
;SHOW IT
‘GIVE A CR/LF

ERRMSG
WRKO.FM

:1S THERE AN ERROR MESSAGE?
:BR IF NO.
STYPE
i
ERROR MESSAGE
:

#-1,SERFLG

DATAHD

*NO MORE HEADER UNLESS NO DATA TABLE.

‘DATA HEADER?

SIXRRIZ T

NINININI
NN
NI NNn
NN NN
OO
oo
N 0

PAGE 49

TRAP TABLE

BEQ

104401

000000
005737
001402

TYPE

DATAHD: 0

006764

TYPDAT:

104416

000060

104407
122737
001007
113737

004737
000000

TST
BEQ
CONVRT

SEQ 0048

TYPDAT
DATABP
RESREG

DATABP: 0

000001

001336

001214
004714

007012

004070

000042

172206

000002

D00 NN
LN -COB®UG
o

2325

08:27

001402

DI
SEELTTLBLL
3 KRR

NN NINIRININIRINIAIAIND
AN AN N N NN NN

lalal

NN~

MACY11 30A(1052)
08-JUL-80
P11
08-JUL-80 08:24

001212
000400

172160

002000

172150

001206
172076

002

RESREG: RESO5
HALTS:
CMPB

BNE

6%:
9%:
3$:

.WORD
BR
CMP
BEQ
IS8T
BPL
1%:
PUSHRO
MoV
HALT
POPRO
EXITER: INC

BIT
BNE
BIT
BEQ

MOV
1%:
MoV
JMP
RTI
2%:
ERTABO: 1

XTSTN:

002

Move
JSR

g:PTENV.SENV

$ITEMB,6%
PC,SATY4

0
9%
g:ENDAD,OOQZ
aSwWR
EXITER

2(SP) RO
SERTTL
g%flOS.iSHR
#SW10,aSWR

NEXT,SLPADR

#STACK,SP
aSLPADR

.BYTE
?AVPC

6.2

.BYTE
S$STSTNM

3,2

;BR IF NO

:TYPE

DATA HEADER
:
sDATA TABLE?
;BR IF NO.
s SHOW
DATA TABLE
:

JRESTORE PROC REGISTERS
. IS APT RUNNING ?
;s SKIP APT CALL IF NOT,
s COPY ERROR #.
: CALL APT SERVICES.
s ERROR # GOES HERE.
s LOCK HERE.
;IF ACT=11 AUTOMATIC MODE, HALT!!
sHALT ON ERROR?
JBR IF NO HALT ON ERROR
:SAVE RO
sSHOW ERROR PC IN DATA LIGHTS
JHALT
:GET RO
;UPDATE ERROR COUNT
:GOTO TOP OF TEST?
sBR IF YES
;GOTO NEXT TEST?
:BR IF NO
:SET FOR NEXT TEST
sRESET SP
;GOTO SPECIFIED TEST

:SLPADR

;ENTER HERE ON POWER FAILURE

.SBTTL

POWER DOWN AND UP ROUTINES

sttt RRARRRSRRRRARERRRERRAERRARARAGQORARARRRRARRARROROERRRRORRERTSE

012737
012737

007316
000340

000024

000026

:POWER DOWN ROUTINE
$PWRDN: MOV
ILLUP,@#PWRVEC ;:SET FOR FAST UP
MOV

&
SFPURVEC+2 ;:PRIO:7
‘gk
RO, -(SP)

R1.=-(SP)

ai.-(sp)
R3.-(SP)
R&.=(SP)
RS .-(SP)

aSWR, - (SP)

000024

ssPUSH RO ON STACK
:sPUSH R1 ON STACK
;sPUSH R2 ON STACK
J:PUSH RS ON STACK
:sPUSH R& ON STACK
:sPUSH RS ON STACK
: s PUSH OEUR ON STACK
:iSAVE S

SP,$SAVRE
#SPURUP, a#PWRVEC :;SET UP VECTOR

SOS—

[ale)
NN

KCF
MACY11 30A(1052)
08-JUL-80
KCF.P11
08-JUL~80 08:24

gggs

007176

08:27
PAGE 50
POWER DOWN AND UP ROUTINES

000776

2340

2341

007200

012737

007316

2344
2345
2346
2347
348

007212
007216
007222
007224
007230

005037
005237
001375
104401
104417

007322
007322

350
351
352
353

007240
007244
007250
007252

005037
013701
005011
104410

357

007264

012603

2343 007206 013706 007322

007234

105037

354 007254 012677
355 007260 012605
356 007262 012604

2358
2359
2360
2361
2362

2363
2364
ggz

007266
007270
007272
0072764
007302

000024

‘POWER UP ROUTINE

$PWRUP: MOV
1%:

007562
007324

001203

CLR
INC
BNE
TYPE
CNVRT
CLR
MOV
CLR
MSTCLR

;GET sP

$ERFLG

‘CLEAR ERROR FLAG.

$ERRPC
KMCSR, R
(R1)

*'WAIT LOOP FOR THE TTY
*IWAIT FOR THE INC
YI0F WORD
:
;
;s CLEAR LAST ERROR PC
: RESTORE DEVICE ADDRESS.
: CLEAR THE CSR.
;

171760

MOV
MOV
MOV

(SP)+,aSWR
(SP)+.R5
(SP)+.Ré4

012602
012601
012600
012737 007126 000024
012737 000340 000026

MOV
MOV
MOV
MOV
MOV

(SP)+.R2
1:POP STACK INTO R2
(SP)+.R1
$:POP STACK INTO R1
(SP)+.RO
::POP STACK INTO RO
#SPURDN, a#PWRVEC :;SET UP THE POWER DOWN VECTOR
#340,a#PURVEC+2 ;:PRID:7

MOV

TYPE
SPURMG: .WORD
RTI
SILLUP: HALT

53323

007322

000000

$SAVR6: 0

2370
2371

007324
007326

000001
003

2374

007332

2377
2378

007342
007344

2380

007346

2367 007320 000776

ggg 007330 001202

PFTAB:
.BYTE

002

121111

.DELAY:

18:

2379 00

104412

2381

007350
007356

032777
001772

000020

007362
007362

152777

000100

121224

172516

142777

000300

2390
2391

007400
007400

152777

000002

2393

007412

062746

000002

007406 013677 172464

MSTCLR:

172472
172462

MPFAIL

: REPORT THE POWER FAILURE
::POWER FAIL MESSAGE POINTER

:: BEFORE THE POWER DOWN WAS COMPLETE

::THE POWER UP SEQUENCE WAS STARTED

::PUT THE SP HERE

MOV
#20,3KMPO4
ROMCLK

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROMCLK

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

121111

BIT
BEQ

#BI1T4,3KMPO&
1$

BISB

#BIT6 BKNCSRH

BICB

RTI

.ROMCLK:

1:POP STACK INTO R3

$TSTAM

RTI

172500

1:POP STACK INTO @SWR
1:POP STACK INTO RS
1:POP STACK INTO Ré

1
3,2

121224

;& 007376 000002

(SP)+.R3

B8R

2375 007332 012777 000020 172534
2376 00
104412

2392

$SAVRG, §P
$SAVR6
$SAVRG
1%
,MPFAIL
PFTAB

CLRB

001216
002066

104401
007562
000002
000000

2387 007370

#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN

MOV

007310
007312
007314
007316

2384
2385
2386

: HANG UP

::'.'t'fit't'ttt"tt"'tt"'t't'ttt'tt'tttt'tttttt'ttttttttt'ttttt

2342

349

SEQ 0049

*POKE CLOCK DELAY BIT
‘PORT4_1BUS*11

:1S CLOCK BIT SET?
:BR IF NO

;SET MASTER CLEAR

#BIT6'BIT7,3KMCSRH

;CLEAR MASTER CLEAR AND RUN

:RETURN

BISB

#BIT1,3KMCSRH

:SET ROMI

ADD

#2,-(SP)

TADJUST STACK

MOV

3(SP)+,aKMP06

:LOAD INSTRUCTION IN SEL6

MACY11 30A(1052)
08-JuL-80
P11
08-JUL~-80 08:24
94
5

007416
007424
007‘%6

598

007436

2401
2402
2403
2404
2405
2406
2407

007446
007446
007452
007456
007464
007472
007500

2483

007430

007444

2408
2409
%2}?

007504
007506
007510

2412
2413
2414
2415
2616
2417

007512
007512
007516
007522
007522
007524

032777
001401
000000

152777

013637
062746
104412
021364
032777
001772

2429
(2)
(2)

007562
007620
007642

050200
042
051200

(2)
(2)
(2)
(2)

(2)

(2)
(2)
(2)

010015

172432

011234
000002
000020
172376
000020
011234

104412
021364
032777
001372
005337
001361
000002

(2)

000003

013637
062746
152777
027777
142777
005337
001364
000002
000001

007526
007534
007536
007536
007540
007542
007550
007552
007556
007560

007645
007672
007716
007745
007753
007761
007772
010003

171614

000007

2418
2419
2420
2421
2422
2423
2424
2425
2626
%2%;

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

000100

142777

000002

200
044600
046200
103
126
120
051105
126

052

08:27 PAGE 51
POWER DOWN AND UP ROUTINES

172424

172404
172374
172370

000002

1$:

172340
2$:

000002

172324

011234

051127
042116
000

043040
050040

047516
051516
041517
051123
041505
051501
0‘752;
051505

042040
1
020113

00C

020072

051522
0201264

200
041520
200
020200

042523
020072
020040
020040

0201264
008
020040
020040

0102‘7

029‘55

oz“ss

010323
010363
010401

200
200
200
200

020040

047510
051503
042526

MPFAIL:
MEPASS:
MR:

MERR2:
MERR3:
MLOCK:
MCSRX:
MVECX:
MPASSX:
MERRX:
MTSIN:

BI(B

#BIT2!BIT1!BITO,@KMCSRH

BISB

BNE
RTI
.BLKW 1

MOV
ADD
ROMCLK
021364
BIT
BEQ
Rg"§LK
021364
BIT
BNE
DEC
BNE
RTI
.ASCIZ
.ASCIZ
JASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ

MASTEK: .ASCIZ
MNEW:
MERRPC:
XHEAD:

041520
020127
020182
052103

#SW06,aSWR
1%

.DATACLK:
MOV
ADD
1%:
B1SB
CMP
BICB
DEC

.TIMER:

011234
000002

BIT
BEQ
HALT

RTI

3s:

010017
010072
0100
0101

01017

1%:

JHALT IF SW06 =1
:BR IF SW06 =0

;HALT BEFORE CLOCKING INSTRUCTION

‘BlT1!BlTof3KHCS§H ;CLOCK INSTRUCTION

;CLEAR ROMO, ROMI, STEP

a(SP)+, TEMP
#2,-(SP)
#BIT4 9KMCSRH
dKMCSR,AKMCSR
#BIT4 ,3KMCSRH
TEMP
1%

sPUT TICK COUNT IN TEMP
;ADJUST STACK
;SET STEP LU
;WASTE TIME
;CLEAR STEP LU
sDEC TICK COUNT
sBR _IF NOT DONE
;RETURN

a(SP)+,TEMP
#2,-(SP)

;MOVE COUNT TO TEMP
sADJUST STACK

#2 ,3KMPO4
1%

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _IBUS* REG11
;1S PGM CLOCK BIT CLEAR?
:BR IF YES

#2 ,3KMPO4
2%
TEMP
1%

<200>/PWR FAILED. RESTART AT TEST /
<200>/END PASS CZKCF
/
<200>/R/
<200>/NO DEVICES PRESENT./
<200>/INSUFFICIENT DATA!/
<200>/LOCK ON SELECTED TEST/
/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/TEST NO: /

/+/

<200>/SET SWITCH REG TO KMC11'S DESIRED ACTIVE./
/PC: /
<200>/
MAP OF KMC11 STATUS/
<200>/
e—ee

.Asclz

LASCIZ
LASCIZ
ASCIZ

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 _IBUS* REG11
;15 PGM CLOCK BIT SET?
sBR IF YES
;DEC_COUNT
sBR _IF NOT DONE
sRETURN

.ASCIZ
.ASCIZ
.ASCII
LASCIT

LASCII
NUM:
CSR:
VEC:

SEQ 0050

<200>/

V/emenc=

CSR

-----:

STATY

STATZ2

STAT3/

..................

<200>/HOW MANY KMC11°'S TO BE TESTED?/
<200>/CSR ADDRESS?/
<200>/VECTOR ADDRESS?/

——

D EPONININD
= =
=t OO0 = =\
OOHH—=aarn
VIO
O = = 2 O
— ek
VIV
—=O—
VIV

[eleoloBielelelelelelele]
S8
NS
NOVS WD

PAGE 52

POWER DOWN AND UP ROUTINES

PRIO:

.ASCIZ

LINE:

.ASCIZ

MODU:

BM:
CONN:

NOACT:
MV35:
CONERR:
CNERR:

KMCM:

003

002
.EVEN

<200>/BR PRIORITY LEVEL?

(4,5,6,7)7/

<200>/WHICH LINE UNIT? IF NONE TYPE 'N'', IF M8201 TYPE ‘1'*, IF M8202 TYP

LASCIZ
.ASCIZ

<200>/SWITCH PAC#2 (BM873 BOOT ADD)?/
<200>/1S THE LOOP BACK CONNECTOR ON?/

<200>/SWITCH PAC#1

(DDCMP LINE #)?/

.ASCIZ
.ASCII

<200>/NO DEVICES ARE SELECTED/
<200>/WHICH MODEM TYPE,
TYPE ''D'' FOR KMC11-DA (RS232C),OR/

.ASCIZ
.ASCIZ

<200><200>/KMC11 AT NONSTANDARD ADDRESS
<200>/EXPECTED FOUND/

JASCIZ

.ASCIZ

<200>/TYPE "‘F'' FOR KMCi1=FA (v.35) 7 /
/

(KMC)

6,3

.BYTE

6.3

$TMP2
.BYTE
$TMP3
.BYTE
$TMP4

PC: /

6,3

.BYTE

$TMP1

003

SEQ 0051

.ASCIZ

.EVEN
XSTATQ: §
BYTE
$TMPO

OOV SNO

WANIMNONIN)
= b b b

WVIND
OO0

Vs~

NNNNNNNN'\DN%) Sabed g

D
D
—
—

bt
D b ed D e D D

D
D
D
D
D
e
D e e
D

W= = 2 NN
—=OO—=~NIN

OCOO00O0O0O0O
WVIES SS v
ES N
O N=NNSO

S ONWNN
ON =

~NWNWO

ggo

B OO
B
d

08:27

—_

(elelelelelele
o

Bielel
=)
[=lelelelelelelelelele

6.3
6.2

;BUFFERS FOR INPUT=OUTPUT
011234

011276

000000
011276
000000
011340

TEMP:

.=.+40
MDATA:
.=, 440

NEr2SSIIFEIRER

R PP
e e

o
o
o
ol e
o
et e

w
~N

o
o
o
i o

b
D wd
e
e
d

i o

D cd

sROUTINE USED TO CHANGE SOF TWARE SWITCH
sREGISTER USING THE CONSOLE TERMINAL

30A(1052)
08-JUL-80
08-JuUL-80 08:24

10422
10461
10573

[elelelelelelalelolalelalelalelotlele]

N Nl Nl N N Nl N N i N N N

MACY11

022737

000176

001240

000001

001336

000007

167660

000207

167650

CKSWR:

BNE
CMP
BEQ
CMP
18:

177777

177777
005541

005552

011544

CMP
BNE
BITB

BNE

csuneg.sun
CKSWR

;IS THE SOFT SWR BEING USED?
‘BR IF NO

CKSWRS
#7,387kB
1$
#207,387KkB

: EXIT IF VES.
{WAS CTRL G TYPED? (7 BIT ASCID)
:BR IF YES
‘WAS CTRL G TYPED? (8 BIT ASCID)

#1,SENV

CKSWRS

MOV

R%.-(SP)

MOV

#-1,SWFLG

MOV
MOV

CKSWR1: CLR
MOV
TYPE
CKSWR2: CNVRT
SOF TSW
CKSWR3: TYPE

R3.=(SP)
Ré = (SP)
R2
#-1,R4
,SMSWR

,SMNEW

: IS IT RUNNING UNDER APT?

:BR IF NO
:STORE R

:STORE R
:STORE R4

:SET SOFT TYPE QUT FLAG

:CLEAR NEW SWR CONTENTS
:SET FLAG TO ALL ONES
STYPE "'SWR= '
*TYPE OUT PRESENT CONTENTS
:OF SOFT SWITCH REGISTER
STYPE 'NEW?

MACY11 30A(1052)
08-JuL-80
1
08-JUL-80 08:24

011436

011442

011446
011450
011454
011456
011462
011464
011470
011472
011474
011500
011502
0115046
011506
011510
011512
011520
011522
011524

004737

022703

001424
022703
00141
022703
001754
022703
001762
005004
042703
006302
006302
006302
050302
000752
012766
005704
001002
010277

08:27
PAGE 53
POWER DOWN AND UP ROUTINES

011546

CKSWR4: JSR

000015

CMP

000012
000025

000007
177770

002402
167510
011544

000006

4$:
5%

011530
011534
011536

005037
012604
012603

011542

000207

CKSWRS: RTS

011544

000000

SWFLG:

011546
011552
011554
011560
011564
011566
011572
011576

105777
100375
017703
105777
100375
010377
042703
000207

011600
011602
011604

000001
006
000176

011540 012602

68:

BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
CLR
BIC
ASL
ASL
ASL
BIS
BR
MOV
ST
BNE
MOV

CLR
MOV
MOV

MOV

167472

167466
167464
167460
000200

002

SEQ 0052

PC, INCHAR

;GET RESPONSE

5%
#12,R3
4$
#25,R3
CKSWR1
#7.R3
CKSWRG
Ré
#177770,R3
R2
R2
R2
R3,R2
CKSWR4
#.START,6(SP)
Ré
6%
R2,aSWR

BR IF YES
‘WAS IT A LF?
‘BR IF YES
‘WAS IT CTRL U?
:BR IF YES(START OVER)
:IF CNTL G GET NEXT CHAR

#14,R3

‘WAS IT A CR?

;1T MUST BE A DIGIT SO CLR FLAG
:ONLY 0-7 ARE LEGAL SO MASK OFF BITS
SSHIFT R2 3 TIMES

SWFLG
(SP)+,R4
(SP)+.R3

;ADD LAST DIGIT
*GET NEXT CHARACTER
:LF WAS TYPED SO GO TO START
IS FLAG CLEAR?
:IF NOT DON'T CHANGE SOFT SWR
:IF YES THEN WRITE NEW CONTENTS TO SOFT SWR
1CLEAR TYPEOUT FLAG
:RESTORE R4
‘RESTORE R3

‘RETURN

(SP)#+.R2

INCHAR: TSTB
BPL
MOV
TSTE
BPL
MOV
BIC
RTS

a$TKS
=4
a$TKB.R3
asTPS
4
R3,a$TPB
#BiT7.83
PC

SOFTSW: 1
BYTE
SWREG

6,2

‘RESTORE R2

MACY11

P11

30A(1052)

08-JuL-80

08-JUL-80 08:24

08:27

PAGE

POWER DOWN AND UP ROUTINES

SEQ 0053

g
4

sROUTINE USED TO ''CYCLE'' THROUGH UP TO 16 KMC11'S

5
)
7

sTHIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
JAND RUNS THE SPECIFIED KMC11'S.
THIS ROUTINE *MUST«
sBE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE

sSETUP NECESSARY.

2
3

4
S

6
7
8

011606

011612
011614

137
005537

001500
001500

011644

062737

000010

011636

FEREEVA

012016
012022

012030

000241

062737

022737
001
012737
012737
033737
001747
013700
013702
0128 7
011037

042737
012037

012037
012037
012237
012237
012700
013737
005237
013737
oos;gr
013737

060037
013737
060037

1%:

000004

001504

002300

001502

002100
002302
001500

001502
001504
001470

001502
001504
005826
002056

177000
002050

002052
002054
001324
001212
000002
002066
002070
002070
002072
002072

002074
002074

002076

012034

013737

002056

012054

060037

002062

012066

060037

002064

012042

CYCLE:

010731

0116;6
011632

011624

011740
011744
011750
011754
011760
011764
011772
011776
012004
012010

FFR

001470

000000
000776

011726
011734

oI NN NN NN

001004
104401

0116%0
011622

011652
011660
011662
011670
011676
011704
011706
011712
011712
01172

005737

37 002060

TST

KMACTV

sARE ANY KMC11'S TO BE TESTED?

HALT
BR

;STOP THE SHOW.
;DISQUALIFY CONT.

ROL
ADC

RUN
RUN

sUPDATE POINTER
sCATCH CARRY FROM RUN

ADD

016.CREAH

BNE
TYPE
CLC

ADD

001502

2%:

002056

002072
002074

002060

RO, KMPO6

001446

032737
001447

000002

012102

005737

000042

:CLEAR UNWANTED BITS
:LOAD STAT1
*LOAD
:LOAD
sLOAD
:LOAD
:SAVE

STAT2
STAT3
PASS COUNT
ERROR COUNT
CORE THIS WAY!

RO, KWPO4
KMPO4
, KMPO6

KMRVEC ,KMRLVL

ADD

RO, KMTVEC

KMRLVL ,KMTVEC

KMTVEC,KMTLVL

:TX LVL

BIT
BEQ

#SW01,STRTSW
7%

;1S TEST NO. SELECTED
‘BR IF NO

18T

=Y 1Y

JRUNNING IN AUTO MODE?

ADD

RO, KMRLVL

:PTY LVL

;

MOV

#177000,KMRVEC
(RO)+,STATY

MOV

01%072
332333

sUPDATE ADDRESS POINTER.

ADD

012060

002064

JUPDATE POINTER

(RO)+.STAT
(RO)+,STAT
(R2) +,3PASS
(R2)+,$ERTTL
#2,R0
KMCSR, KMCSRH
KMCSRH
KMCSRH,KMCTL
KMCTL
KMCTL ,KMPO4

012046 5??937 002060 002062
002062

sCLEAR PROC. CARRY BIT.

MOV
MOV
MOV
MOV
MoV
MOV
INC
MOV
INC
MOV

ADD

013737

SW.

#KM.MAP+200,CREAM
2%
sKEEP GOING; NOT ALL TESTED FOR.
#KM.MAP,CREAM
sRESET ADDRESS POINTER.
#CNT.MAP MILK
JRESET PASS COUNT POINTER
RUN,KMACTYV
;IS THIS ONE ACTIVE?
18
:BR IF NO
CREAM,RO
sGET ADDRESS POINTER
MILK,R2
sGET PASS COUNT POINTER
(RO)+,KMCSR
JLOAD SYSTEM CTRL. REG
(RO) ,KMRVEC
sLOAD VECTOR

ADD
MOV

002076

#4 MILK

;BR IF OK.
sNO KMC11°'S SELECTED!!

CMP
BNE
MOV
MOV
BIT
BEQ
MOV
MOV
MOV
MOV

BIC
MOV

002070

1%
JNOACT

RO, KMTLVL

:TX VEC
;

NNNNNNNNNNO
aR2Z VONO
WV W =00

Lt bbb b A LA S LS T ST ST NT.NT N
WVIVAWIWA
VAN WA NN AWV

MACY11 30A(1052)
08-JUL-80
1
08-JUL-80 08:24

012106
012110
01%114
012116
012120
012122
0121264
012156
012127
012130

001044
104401
104415
010003
000001
001000
001202
000
001
012700

012136
012140
012142
012150
012152
012160
012162
012166

012737
001020
023760
001014
022760
001010
010037
104401

012134

022710

012172
012200
012202
012204
012210
012212

042737
000412
005720
020027
001351
104401

012220
012226
012232

012737
013701
000177

012216 000731

08:27
PAGE 55
POWER DOWN AND UP ROUTINES

001313

BYTE
BYTE

014140

5%:

001202

000002

001202

000004

001206
007642
000002

001446

68:

027716
001312

014140
002066
166750

001206

7$:
8s:

BNE
TYPE
INPUT
MTSTN
1
1000
$STSTNM
0
1
MOV

#TST1,R0

MOV
BNE
CMP
BNE
CMP
BNE
MOV
TYPE

(PC)+,a(PC)+
6%
$TSTNM,2(R0)
11
#STSTNM,4(RO)
6%
RO,SLPADR
MR

CMP

BIC
BR
ST
CMP
BNE
TYPE

7%
,S$CRLF

(PC)+. (RO)

SEQ 0054

:BR IF YES

;CMP FIRST WORD TO 12737
:BR IF NOT SAME
:DOES STSTNM MATCH?
‘BR IF NO
:IS LAST WORD OK?
:BR IF NO
;1T IS A LEGAL TEST SO DO IT

B8R

#SW01,STRTSW
8%
(RO) +
RO,#TLAST#10
5%
$QUES

;POP RO
:AT END YET?
:BR IF NO
SYES ILLEGAL TEST NO.

MOV
MOV
JMP

#TST1,SLPADR
KMCSR.R1
aSLPADR

;PREPARE SLPADR ADDRESS
*R1 = BASE KMC11 ADDRESS
160 START TESTING.

:TRY AGAIN

:ROUTINE USED TO "AUTO SIZE'' THE KMC11
:CSR AND VECTOR.

INOTE:

3000000

:
:
:
012236
012236
012240
012244

012246

015252
012254
012260
01 94
012270
01227
01
01

81
12
12314

012316

00000
012702
005022

882702

1374
005037
1;5 ;
032737
1002
137
12737
104415
010323

000001

AUTO.SIZE:
RESET
CSRMAP: MOV
1%:
CLR

002100

002300

cMP

001472
002100
001470
000001

001446

012740
000001

001306

BNE
CLR
MOV
CLR
BIT
BNE
JMP
MOV

INPUT
NUM

THE CSR MAY BE ANY WHERE IN THE FLOATING

ADDRESS RANGE (160000:164000)
AND THE VECTOR MAY BE ANY WHERE IN THE
FLOATING VECTOR RANGE (300:770)

#KM_MAP,R2
(R2)+

:INSURE A BUS INIT.
:LOAD MAP POINTER.
:1ERO ENTIRE MAP

1%
KMNUM
#XH.MAP,R2
KMACTV
#SW00,STRTSW
.46
7
1 ,$THPL

:BR IF NO
:SET OCTAL NUMBER OF KMC11'S TO ©
:R2 POINTS TO KMC MAP
:CLEAR ACTIVE
:QUESTIONS?
‘BR IF YES
‘1F NO SKIP QUESTIONS
SSTART WITH 1

#XKM.END,R2

sALL DONE?

CIKCF
MACY11 30A(1052)
08-JuUL=-80
CIKCF.PIN
08-JUL-80 08:24

08:27 PAGE 56
POWER DOWN AND UP ROUTINES

zogs 012352 oo”%%z

$TMP?

26%7
2628
2629
26
2631
2632
2633
2634
2635
2636
2637

012325
012 52
012
012340
012342
012344
012350
012352
012354
012356
012360

001
013737
104401
104416
013372
005237
104415
010363
160000
164000
001304

BYTE
MOV
TYPE
CONVRT
WHICH
INC
INPUT
CSR
160000
164000
$TMP3

2641
2642
2643
2644
2645

012370
012372
012374
012376
012400

104415
010401
000000
000776
001304

2649

012410

104401

2624

012320

2626 012324

SEQ 0055

16.

000

BYTE

001302
001313

001472

128:

001306

1
$TMP2 ,KMNUM
,S$CRLf
$TMP4

:KMNUM = HOW MANY

sTYPE WHICH KMC IS BEING DONE
sSTMP4 1S WHICH KMC

2638 o1zu§
000
2639 01236
001
2640 012364 013722 001304

.BYTE
BYTE
MOV

0
1
$TMP3, (R2) +

:STORE CSR IN MAP

2646 012402
000
2647 012403
001
2648 012404 013712 001304

BYTE
BYTE
MOV

0
1
$TMP3, (R2)

;STORE VECTOR IN MAP

TSR
CMP

PC,INTTY
#24 ,R3

{GET
RESPONSE
T
;

2831
013615 000335 013664
652 012420 833703 000024

INPUT
VEC
0
776
$TMP3

108:

TYPE

2653 012426 101014
2654 012426 022703 000027

BHI
CMP

508
#27.R3

2656 012434 012704 000011

MOV

11,84

2659 012444

BNE

2655

012432

103411

2657
2658

012440
012442

006303
005304

2660
2661

012446
012452

042703
050312

2663

012456

104401

2665
2666
2667
2668
2669
2670

012462
012464
012464
012464

000752

012464

672

012470

001375

012454 000403

73
676

012466

004737

8s:
9%
168

B8R

TYPE

$QUES
BR

:BR IF GREATER THAN 7

R3
R4

SSHIFT R3 LEFT
:DEC SHIFT COUNT

#170777,R3
R3,(R2)

108

TYPE

013664

MODU
JSR

PC,INTTY

012474 022703 000021
012500 001417

CMP
BEQ

#2183
30%

012506
012510
012514
012516

BEQ
CMP
BEQ
TYPE

31$
#116,R3
328

2675 01%502 022703 000022
%or
677
2678
2679

BIC
BIS

508:

104401

010461

ASL
DEC

170777

2664 0126460 001312

2671

BLO

001412
022703
001403
104401

000116

cMP

:BR IF LESS THAN &
;

#22.R3

tR& = NUMBER OF SHIFTS
:BR IF NOT DONE

*BIC UNWANTED BITS
:PUT BR LEVEL IN STATUS MAP

+ CONT INUE

;RESPONSE IS OUT OF LIMITS
STRY AGAIN

:ASK WHICH LINE UNIT
*GET REPLY

L
O
©

)

N N~

= AoV

g2zRess

WIS

010000

328:

020000

gag:

013664

000131

NN
NN -

177776

178:

-4
NN~
OWwWo
w~NN

]

-0
8x82

013664

000002
4428:
S

000004

(V.
fifl

Wi~ N

g88322

000002

;ASK IF LOOP-BACK IS ON

PC,INTTY

‘GET REPLY

#1%1,R3

17%
#116,R3
188

308
#BIT14,(R2)*+
#BIT13.-2(R2)
198
;

PC,INTTY

;IF NOT Y OR N TYPE ''2"

*TRY AGAIN
:TURNAROUND IS CONNECTED
: MB202?
: BR IF VES.

ASK QUESTION

: ABOUT MODEM TTYPE

: GET ANSWER.

(MPB

#°'D,R3

BIC
BR

#B112,2(R2)
AT

: YES INDICATE IT IN STAT3

(MPB

#'F.R3

;1S IT A DMC11-FA (V.35)?

BEQ

4628

4438%

TYPE

P IS IT DMC11-DA?

: NO.

: YES=TAKE CARE OF IT.

: NO ASK OPERATER WHATS GOING ON.

4408

: REASK QUESTION

443$:

BIS

#B112,2(R2)

; YES V.35, RECORD IN STAT3

4418:

; END DECISION POINT.

}g::

BIC

#81T14,(R2)¢

;NO TURNAROUND

0
1
$TMP3,(R2)+

;STORE SWITCH PAC IN MAP

©INPUT

wwn

8 32
£-~ - AN
b883
—d

BR
BIS
BIT
BNE

BNE

000106

Q)
b b

h b

CONN

JSR

000104

040000

—h

;SET BIT 13 IN STAT2 IF M8202

Myv3S

012642
012644
012646

OOO0O

#BIT13, (R2)

TYPE

000004

012704

?535

ggp

$QUES

4408:

012650

§§§”""2”

;1F NOT A 1,2 OR N TYPE '2"
STRY AGIAN
:SET BIT 12 IN STAT2 IF NO LU
‘POP OVER STAT2 AND STAT3

BEQ
CMP
BEQ

012606

012634
012640

168
#BIT12,(R2)+

TYPE

040000
020000

SEQ 0056

$QUES
BR
BIS

CMP

000116

O NNNWS
NN~
O

—

08:27 PAGE 57
POWER DOWN AND UP ROUTINES

—_

2
60

228838888
L PONIO = B =i D) =N

ViAW

ol ol e

o el s

NNNNN%NNMNN
PINPS z\n\n

oS OO

FRERNS

VAN WA VWAV

el el el s

D e

WA LSS LN TN T ST N TN

elelelelolelelela] iedoleloleloleleteTe)

(2 KCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JuL-80 08: 24

LINE

0
377

$TMP3

001304

BYTE
.BYTE
MOVB
INPUT
BM

0
377
$TMP3

MACY11 30A(1052)
08-JuL-80
1
08-JUL=-80 08:24

012716
012717
01%720
012724
0127;6
012732
012734
0127640
012744

000
001
113722
0057 ;
0053
001200
000137
012701
012737

012754
012756
012760
012764
012770
012772
012776
013002
013010

005711
001135
005061
005761
001130
012711
005061
012761
052711

015752 005011

013014

013022
013026

013024
013026
013032
013036

022761

001113
010122
012711
005061
012761

013046 052711
013050 012761
013056 052711
013062 122761

001304
001302

33%:

013272
160000
013364

7%:

013076

000436

013108

001403

000004

002000
000004

125252
020000

125252

000006

000004

001000

000004
122113

ogo4oo
021264
000400
000377

032761
001023

000010

12761

052711

122113

000400

000006

013160 032761

000010

000004

8131 0

052712

040000

013176

012761

021324

013210

156122

ooogga

00042

omgg 012761

JMP
MOV
MOV

138
#160 000 R1
#6$ .37

TST
BNE
CLR
TST
BNE
MOV
CLR
MOV
BIS

(R1)
3%
6(R1)
6(R1)
3s
#B1T10, (R1)
4(R1)
#125252,6(R1)
#1713, (R1)

sIF KMC11 KMCSR $/B 0
sIF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO KMC11
‘CLEAR SEL6
;IF KMC11 THEN KMRIC S/B =0!
‘BR IF NOT KMC11
$SET ROMO
.CLEAR SEL4
:WRITE THIS TO SEL6
SWRITE IT!

BNE

(1F NO IT IS NOT CRAM

CLR

BIS
MOV
BIS
CMPB

BNE
BIS

012711 001400

013214 015761
013222 012711
013 ;o 156122
013232

005722

351 4
001400
000004

000006

;CLOCK INSTRUCTION
:LOAD INSTRUCTION
:CLOCK INSTRUCTION
:IS IT ALL ONES?

208

;CONNECTOR ON)

BIT
BNE

BEQ

;STORE CSR IN CORE TABLE.
:CLEAR LINE UNIT LOOP
:CLEAR PORT4
:LOAD INSTRUCTION (CLR DTR)

BIS

013196

000006

CSR ADDRESS.

uswnuAmv

BEQ

208

+10

IF M8201

#BIT13!BITI4, (azS nazoz ASSUME CONNECTOR
13,4(R1)

nno mn

:IS MRDY SET
:BR IF M8201 NO CONNECTOR (ON LINE)

:LOAD PORT4

MOV

01221o(u1)

8IT

53114 (R1)

1IS MRDY SET NOW?

BIS

00111‘ (R2)

:SET STATUS BIT FOR CONNECTOR

MOV

40 1 24 R1)

BISB

MOV
MOV
BISB

4(R1),(R2)+

coz1g£4 6(R1)
:PORT6_INSTRUCTION
#B1T8'BIT19, (R1) :CLOCK"INSTR.
4(R1),(R2)+
:STORE BM873 ADD IN TABLE

:STORE"DDCMP LINE # IN TABLE

(R2)+

‘POP OVER STAT

8IS

208:

385“ (RY)
1264,6(R1)
#BIT8, (R1)
#377,4(R1)

HOLDS A KMC11

#BIT1,4(R1)

MOV
BIS

1;17« 005722

IS ASSUMED THAT R1

BIT

013146
012761 021264 000006
m?u 052711 000400
1402

:WAS IT WRITTEN?

:BR IF NO
+IF YES, NO LINE UNIT, SET STATUS BIT

000004

*CLEAR SELO

+10
#B1T12, (R2)

MOV

013142

#125252,4(R1)
R1,(R2)+
#8119, (R1)
4(R1)
#122113,6(R1)

MOV
MOV
CLR
MOV

000100 000004

0131

(R1)

22%:
158:

000002 000004

SEQ 0057

JSTORE SWITCH PAC IN MAP
;POP OVER STAT3
sDEC KMC COUNT
sBR IF MORE TO DO
CONTINUE
JSET FOR FIRST ADDRESS TO BE TESTED
sSET FOR NON=-EXISTANT DEVICE TIME OUT

000004

013116
0131264

0
1
$TMP3, (R2)+
(R2)+
$TMP2
12%

5?1 THIS POINT

000006

05271; 060000

BYTE
BYTE
MOVB
18T
DEC
BNE

CMP

000006

01311

013114

28:

000006
000006

013070 001003
013072 052712 010000

013100 032761

08:27 PAGE 58
POWER DOWN AND UP ROUTINES

TST

:LOAD INSTRUCTION

:CLOCK INSTRUCTION(SET DTR)
1264
a<a1)
:LOAD
INSTRUCTION
#8118, (R1)
:CLOCK INSTRUCTION(READ MODEM REG)
335

(R2)

:BR IF NO CONNECTOR

:POP POINTER

:PUT INSTRUCTION IN PORT6

#1817 °aira.<a1> :PORT4_LU 15

MACY11 30A(1052)
08-JUL-80
P11
08-JUL~-80 08:24

2
3

794
795

013234
013236

005011
005237

001472

013242
013250

022737
001410

013254

005061

000006

799

013264

022701

164000

9
8

013252

013260

005011

062701

000020

001472

38:
14%:

001470
001472

138:

013270
013272
013;56
013302
013304
013310
013314
013316
013322

001230
005037
005737
001423
013701
010137
000241
006137
005237

2810
2811
2812
2813
2814
2815
2816
2817
2818
g;g

013330
013332
013340
013346
013352
013356
013360
013362
013364
013370

001371
012737
013737
000137
104401
005000
000000
000776
012716
000002

2821
2822
sggz

013372
013374
013376

000001
002
001306

2825

013400
013406
013410
013416
013424

032737
001114
012737
012737
012702

013434
013440
013442

012701
010120
012721

000004

0134564
013456

101771
013737

001470

013470
013472
013476
01%504
013506

103063
012704
016437
011;01
015 61

013532

105200

001472
001476

48:

001470
001470

000006
001470
013400
007645

000004
001474
5%:

013260

68:
WHICH:

002

000001

001446

38 omg&

000340
013572
002100

000022
000020

18:

013514 012711
5 0135
01%761
013526 012711

000012
013650

177776

000200

000004

001000
121111 000006
001400

28:

7%:

(R1)

:CLEAR BIT 10

lgo.KHNUH
13$%

CMP

#164000,
81

BNE
CLR
TST
BEQ
MOV
MOV
cLe
ROL
INC

BNE
MOV
MOV
JMP
TYPE
CLR
HALT
BR
MOV
RTI
1
BYTE
$TMPL

MOV
MOV
MOV

CMP
(NP

001276

sCLEAR ROM]
:UPDATE DEVICE COUNTER

6(R1)

ADD

BLOS
MOV

SEQ 0058

(R1)
KMNUM

CLR

MOV

000302

37 001276

CLR

VECMAP: BIT
BNE
MOV
MOV
MOV

013446 022021
013450 020127 001000

CMP
BEQ

DEC

830 013430 012700 000300
32

CLR
INC

000010

800
801
802
803
804
2805
806
2807
2808

2809 o133§3 005301

08:27
PAGE 59
POWER DOWN AND UP ROUTINES

#10,R1

sARE MAX. NO. OF DEV FOUND?
:YES DON'T LOOK FOR ANY MORE.
‘CLEAR SEL 6

JUPDATE CSR POINTER ADDRESS

28
KMACTV
KMNUM
5%
KMNUM,
R
R1, SAVNUM

:BR IF MORE ADDRESS TO CHECK.

KMACTV
KMACTV

sGENERATE ACTIVE REGISTER OF DEVICES.
SSET THE BIT

48
16,304
KMACTV,SAVACT
VECMAP
,MERR2
RO

:BR IF MORE TO GENERATE
;RESTORE TRAP VECTOR
;SAVE ACTIVE REGISTER
:GO FIND THE VECTOR NOW.
:NOTIFY OPR THAT NO KMC11'S FOUND.
:MAKE DATA LIGHTS ZERO
:STOP THE SHOW
:DISABLE CONT. SW.
;ENTERED BY NON-EXISTANT TIME-OUT.
:RETURN TO MAINSTREAM

=2
#148, (SP)

sWERE ANY KMC11'S FOUND AT ALL?
sERROR AUTO SIZER FOUND NO KMC11°'S IN THIS SYS.
;SAVE NUMBER OF DEVICES

2,2

gSUOO.STRTSU
s
#340,3022
#48,3020
#XN.MAP,R2

:SET 10T TRAP PRIO TO 7
:SET 10T TRAP VECTOR
*SET SOFTWARE POINTER

#302
,R1
R1, (RO)+
86 (R1)+

:PC OF 10T INSTR.
:START FILLING VECTOR AREA
SMITH .+2; 10T

#300,R0

(ROY+, (R1)+
R1,#1000

:FLOATING
VECTORS START HERE.
:ADD 2 TO RO +R1

18
KMACTV,$TMPO

:BR IF MORE TO FILL
:STORE TEMPORALLY

5$
M2.R4
BRLVL(R4),PS
(R2) ,R1
#200,4(R1)

:BR IF ALL DONE
‘R4 IS INDEX REGISTER
:SET PS TO 7

ROR

$THPO

MOV
MOV
MOV

00516 (R1)
;SET ROMI
#121191,6(R1)
:PUT INSTRUCTION IN PORT6
#B1T9!BIT8,
(R1) :FORCE AN INTERRUPT

BCC
MOV
MOV
MOV
MOV

INCB

:BRING OUT A BIT

PSTALL

MACY11 30A(1052)

08-JUL-B0

08-JUL-80 08:24

01%5;2
013536
013542
013544
013552
013554
013562
012534
013570
013572
013576
013604
013610
013612
013614
013616

001376
162704
001404
016437

000767
052762
005011
062702
000735
051662
042762
016405
006305
006305
006305
006305

013624
0136
8};2;2

050562
022626
01271g

013640
013646

012737
000207

013650
013652

000000
000000

08:27

177776

005300

000002

000010
000002
000007
013652

000002

BNE
SUB
BEQ
MoV

6$:
3%:
48:

013620 042705 170777
013562

000020

013662

000340

013664
013670

105777
100375

165354

165350
165346

:PUT BR LEVEL IN STATUS TABLE
sPOP ICT JUNK OFF STACK
;SET FOR RETURN

013716
013716
013720
013722
013724

000005
010046
010146
010246

013740
013744

013709
01093

001376
001476

013754

013737

001372

014134

013770

113737

001367

014136

165342
000240

oo1sag

113737 001

013776 013737 001374

PRO
PRO

:LEVEL 0
‘LEVEL 0

‘LEVEL 6

PR7

SLEVEL 7

TSTB
BPL

@$1KS
Rt

:WAIT FOR DONE

a$TKB,R3
asTPS
=&
R3,a$1PB
#BIT7'BITS,R3
PC

:PUT CHAR IN R3
JWAIT UNTIL PRINTER IS READY

RO,=(SP)
R1,=(5P)
'i"(s"

::PUSH RO ON STACK
1iPUSH R1 ON STACK
1IPUSH R2 ON STACK

;ECHO CHAR
:MASK OFF LOWER CASE
‘RETURN

MOV
CLR
(LR

R3.=(SP)
VECTR
PRIRTY

$:PUSHR3 ON STACK
:"CLEAR THE LOCAL VARIABLE
: CLEAN UP LOCAL VARIABLE

MOV

#SHARST, R1

: GET EXTRA INFO, BITS POINTER

MOVB

SVECTI,VECTR

MOV
MOV

001470

; RESTORE SCOPE VECTOR
;ALL DONE WITH "‘AUTO SIZING'

BRLVL:

APT.SIZE:
RESET
MOV
MOV
MOV

014132

;CLEAR UNWANTED BITS

#SSCOPE,a#20
PC

MOV
1ST18
BPL
MOV
BIC
RTS

013726 01034
13
005037
014132
13734 005037 014136

RS,2(R2)
(SP)+,(SP)+
#3%,(SP)

‘BR TO DELAY
INO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX KMC11 LATER
sCLEAR FOMI
‘POP SOF TWARE POINTER
*KEEP GOING
1GET VECTOR ADDRESS
*CLEAR JUNK
:GET BR LEVEL OF KMC11
:SHIFT LEVEL 4 PLACES
1TO THE LEFT FOR THE
:STATUS TABLE

#170777.RS

MOV
RTS

INTTY:

017793
105777
100375
010377
042703
000207

013762

BIS
CMP
:?Y

013672
013676
013702
013704
013710
013714

013750 o1§ 01

8R
BIS
CLR
ADD
BR
BIS
BIC
MOV
ASL
ASL
ASL
ASL

sFOR TIME TO INTERUPT
*GET NEXT LOWEST PS LEVEL
‘BR IF R4 = 0
sMOVE NEXT LOWER LEVEL IN PS

58:

013263 000300

SEQ 0059

.2
#2.R4
6%
BRLVL(R&) ,PS
7%
#5300,2(R2)
(R1)
#10,R2
2%
(SP),2(R2)
#7,2(R2)
BRLVL+2(R4)
,RS
RS
RS
RS
RS

BIC

000002

004134

POWER DOWN AND UP ROUTINES

000002
013650

PAGE 60

MOV

MOVB

MOV

$CON1,RO
RO, SAVNUM

$BASE , BASE

: GET THE DEVICE COUNT
: SAVE THE NO. OF DEVICES
: GET BASE CSR ADDRESS

: GET THE VECTOR

SVECT1+1,PRIRTY : GET THE PRIORITY

SDEVM,KMACTV

: SAVE THE KMC'S SELECTED ACTIVE

MACY11 30A(1052)
08-JuL-80
P
08-JuL-80 08:24

014004
014012
016013

014022
0160;8

o VAN

33
4

BYBVIFBIBRY

I= O

V00 ~NO VB

—d d i d

&RSR L%ISR3RRRRRRESBBBB3

0140
014032

0140

013737
01%70
012703

0050 g
02%7
003374
01%703

01 72;

014042
014046
014050
014052
014056

112163
006213
;13
053713
006%13

014062
016064
0160?%
0140
014074
014076
014100
014102
014110

006313
006313
053723
012223
005723
005300
001407
062737
062737

014120
014122

012603
012602

8}2};8

8161%‘
16126

014130
014132

014134
014136

000747

001470
001402
002100

08:27 PAGE 61
POWER DOWN AND UP ROUTINES

001474

MOV
MOV
MOV

3s:

002300
002100

014134

MOvB
ASR
ASR
BIS
ASL

014132

014134
014132

012601
012600

(R3) ¢+
#KM_END,R3
3%
#KM.MAP RS

MOV

014136

000010
000010

KMACTV,SAVACT
#$0DW0,R2
#KM . MAP,R3

CLR
CMP
BGT
MoV

18:

000001

BASE, (R%)+

(R1)+,1(R3)
(R3)
(R3)
PRIRTY, (R3)
(R3)

; SAVE THE ACTIVE REGISTER
: GET ADDRESS OF FIRST DEVICE DESCRIPTOR WORD
; GET POINTER TO DEVICE MAP

:
;
:
;

CLEAR DEVICLE MAP
15 WHOLE DEV.MAP CLEARED?

NO, THEN GO ON.
RESTORE DEV.MAP POINTER.

:
:
¢
:
:

GET
SET
SET
GET
SET

"
v
"
"
"
o
P
"
"
GET THE VECTOR IN STAT1.
GET THE STAT2 FROM DDWXX
SK.P OVER STAT3
COUNT BY 1
ALL DONE?
INCREMENT BASE CSR ADDRESS BY 10
INCREMENT VECTOR ADDRESS BY 10

: LOAD CSR ADDRESS

EXTRA IN7O, BITS
IT IN RiGHT POSITION.
IT IM RIGHT POSITION.
PRIORITY IN STAT1
THEM IN RIGHT POSITION

ASL
ASL
BIS
MoV
1ST
DEC
BEQ
ADD
ADD

(R3)
(R3)
VECTR, (R3)+
(R2)+,(R3)+
(R3)+
RO
2%
#10,BASE
#10,VECTR

:
}
:
;
:
;
¢
;
;

MOV
MOV

(SP)+,R3
(SP)+,R2

::POP STACK INTO R3
:sPOP STACK INTO R2

MOV
MOV

000207
000000
000000
000000

SEQ 0060

RTS
VECTR:
.WORD
BASE:
.WORD
PRIRTY: .WORD

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

‘
‘
|
(
]

: SET THE NEXT MAP ENTRY

:sPOP STACK INTO R1
::POP STACK INTO RO

PC
0
O
O

: RETURN

JeRRnktennRne
R eeatenennnen

TEST

tetencnanencenanceenanntnnee

:+0UT CONTROL REGISTER READ/ONLY TEST

:#D0 A MASTER CLEAR,

VERIFY THAT ALL READ/ONLY

:«BITS ARE IN THE CORRECT STATE
SRR AR

R AR AR E RN AR R AR

AR R RN RAARR RO ARARRRRNRRERCERRRY

VB8 %

014140
014142

000004
012737

014150 012737
014156
014162

005077
012702

014170

021224

Oraiee 104412
014172

014214
165704
000011

001202

001442

TS11:

ScoPE
MOV

MOV

(LR
MOV

ROMCLK

#1,STSTNM

#TST2,NEXT
@KMCSR
#11,R2

021004 !<20¢11>

016104

000004

MOV

4(R1),R4

012705

000020

MOV

#20.RS

Qlaire 0ug704
014202

000001

ARRRRA AR RRRRRERNCRRNRNRNRCRORRRNRARACRRRCRARCOERRRRRRERROORERRRNRTSE

00003

BIC

#54,R4

; LOAD THE NO. OF THIS TEST

; POINT TO THE START OF NEXT TEST.

;R1_CONTAINS BASE KMC11 ADDRESS
:CLEAR SELO
:SAVE R2 FOR TYPEQUT

:NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304
:PORT4_LINE UNIT REG 11

:PUT

"FOUND''

IN R4

:PUT

“EXPECTED''

:CLEAR_UNKNOWN BITS

IN RS

—

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF P11
08-JUL-80 08:24

2960
2961
2962
2963
2964
2965

014206
014210
014212
014214

08:27
PAGE 62
LINE UNIT READ/ONLY TESTS

120504
001401
104002

1$:

(MPB
BEQ
ERROR

SEQ 0061

RS ,R4
1%
2

;1S OUT READY SET?
:BR IF YES
JERROR IN LU 1

2966

JRRRRERRRRRRRRRRRRRRNRR
Rt ant TEST

%gg?

AL AR A A A A R e

2967
2968
2969

TEST 2

2973

2982

2985

R iii

s I e e Ty

AR AR

AR AR AR

014214
014216
014224

000004
012737
012737

014232
014236
014240
014242
014246
014252
014254

012702
104412
021244
016104
042704
005005
120504

000002
014262

001202
001442

TST2:

SCOPE
MOV
MOV

000012

AR R

#2,8TSTNM
#TSTI NEXT

MOV
2,R2
ROMCLK
021004 !<20+12>
MOV
4(R1) ,Ré
BIC
#7,R4
CLR
RS
CMPB
RS5.R4

000004
000017

5087 014260 104002
2988 016562

18:

2989

2990

AR R R AN AR

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
sR1 CONTAINS BASE KMC11 ADDRESS
;SAVE R2 FOR TYPEOUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LINE UNIT REG 12

;PUT "FOUND'' IN Ré
sCLEAR UNKNOWN BITS
;PUT "EXPECTED'' IN RS
sARE ALL BITS CLEARED?

ERROR 2

{ERROR IN LU 12

setRtRRRRtRee
Rt Rentndndenes TEST 3 sacecccnnecnnnenenennnnnens

299

;*BITS ARE IN THE CORRECT STATE

2992
2993

;*MODEM CONTROL REGISTER READ/ONLY TEST
;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY

2995

2996

2997

;

2999

3000 014262

000004

3001
3002

014264
014272

3004
3005
!009

014300
014302
016)%
014310
014312

104410
012702
104412
021264
016104

014322

012705

0143
014334

104002

11
12

3013
%‘1!;

‘

2991

3003

;
{
1

|eeeccccnsccccns

2974

2983
2984

wavannnonnanerannanntnnnnns

s*IN CONTROL REGISTER READ/ONLY TEST
s*D0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY
;*BITS ARE IN THE CORRECT STATE

2972

2975
2976
2977
2978
2979
2980
2981

012737
012737

014316 042704
014326
014330

120504
001401

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

R RN AR RN

CRERRRRR Y

TESY B

2e L L
PP,

000003
014334

001202
001442

1513:

SCOPE

MOV
MOV

#3,8TSTNR
#TST4L NEXT

000004

MSTCLR
MoV
#13,R2
m‘%
021004
1<20+13>
MOV
4(R1) R4

000100

MOV

000013

000213

1$:

BIC

o;u.i:.

CMPB
BEQ

RS,R4
1%

ERROR

#100,RS

; LOAD THE NO. OF THIS TEST
: POINT TO THE START OF NEXT TEST.

sR1 CONTAINS BASE KMC11 ADDRESS

JMASTER CLEAR KMC11
:SAVE R2 FOR TYPEOUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LINE UNIT REG 13
:PUT "FOUND'' IN R4

; CLEAR, UNKNOWN BITS
;PUT

“EXPECTED'

:ARE RING, DTR,
iBR IF YES

IN RS

AND MODEM READY SET?

;ERROR IN LU 13

—

MACY11

30A(1052)

08-JUL-B0

08-JuL-80 08:24

08:27

PAGE 63

LINE UNIT READ/ONLY TESTS

SEQ 0062

JRARRRRRRTRRRRRRRRTRTRRR
R

TEST

wonaananvennnnnvanannantens

s*MAINTENANCE REGISTER READ/ONLY TEST
:*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY
;*BITS ARE IN THE CORRECT STATE

3021

R L

R AR R R

R R ste

014334

3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039

014336
014344

012737
012737

014352
014354
014360
0146362
014364
014370
014374
014400
014406
014410

104410
012702
104412
021364
016104
042704
012705
032737
001404
042704

3041
3042
3043
3044

014420
014422
014424
014426

3040

0144146

042705

120504
001401
104002

000004
014426

001202
001442

t§T4:

SCOPE

MOV
MOV

#4,8TSTNM
#TSTS, NEXT

002050

000040

BIC

1%:

CMPB
BEQ
ERROR

22222222222

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
sR1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
sSAVE R2 FOR TYPEOUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4_LINE UNIT REG 17
;PUT "FOUND'' IN R4
sCLEAR UNKNOWN BITS
sPUT “EXPECTED'' IN RS
;1S LU AN MB202 OR MB201?
;BR IF MB201
sMASK OFF SI BIT IF M8202

MSTCLR
MOV
#M7,R2
ROMCLK
021004 !<20«17>
MOV
4&(R1) ,R4
BIC
#206,R4
MOV
#51,R5
BIT
#BIT13,STATY
BEQ
.4+12
BIC
#40,R4

000017
000004
000206
000051
020000

oaxis.as

:SI BIT IS UNKNOWN ON AN MB8202

R5,R4
1%
2

sARE SI AND ICIR SET?
;BR IF YES

;ERROR IN LU 17

3047

JerRkReRtetbeeeReetnt
et TEST

3048
3049

s*LINE UNIT REGISTER WRITE/READ TEST
s*SET BITS IN LU REGISTER 12, VERIFY IT IS SET

3051

3050
3052

:
014426
0144

000004
012737

000005

001202

3059 014444

012737

014460

001444

3058 014436 012737 014566 001442
3060
1

306;
;&‘

3065
3066
3067

014452

104410

014454
014460

01%702
012761

000012
000040

014476

012705

000040

01
0144
014472
014474

014502
0 0145
1

senesancaneannennnanntaenns

;*CLEAR BITS IN LU REGISTER 12, VERIFY IT IS CLEAR

;8;2

3055
56
57

014512

1046412
122112
104412
021245

116104
ol.sr

120504

000005
000337

R R

R RN R

R R RN AR RN

RN AR ERRRRERRNRESE

TSV 5

;;ttttt';tthiQt'ltit't'QQ'Qtltt't'tttI'ttt'tttt.t'ttt!tttt.tt...
T1S15:
SCOPE
MOV
#5,8TSTNN
; LOAD THE NO. OF THIS TEST

MOV
MOV

MSTCLR

000004

1%:

#1576, NEXT
01$.L6CK

MOV
MOV

12,R2
#40,4(RY)

MOV

#40,RS

(MPB

R5,R4

ROMCLK
122112
ROMCLK
021245

move
BIC

S(RT).Re
#337 R4

: POINT TO THE START OF NEXT TEST.
; ADDRESS FOR LOCK ON DATA.

sR1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11

sSAVE REGISTER ADDRESS FOR TYPEOUT
sLOAD PORT4

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sSET BITS IN LU-12
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:READ LU-12 ~
:PUT "EXPECTED'

IN RS

;PUT “'FOUND"' IN R4
:CLEAR
UNWANTED BITS
(1S BITS

SET?

p—

—

3098

99
100

3101
g}gg

3106
3105
3106
3107
3108
3109

3110
111

3112
3113
g116
115

3116
317
318

119
120
121
12%

31%

;1 4
125

3126
3127

005061
104412
122112
104412
021245
005005
116104
042704
120504
001401
104003
104405

014530
000004

001444

28:

3s:

000005
000337

4s:

BEQ
ERROR
SCOP1
MoV

(LR
ROMCLK
122112
ROMCLK
021245
CLR
Move
BIC
CMPB
BEQ
ERROR
SCOP1

:BR IF YES

:ERROR, BIT 5 IS NOT SET
: SCOPE SUBTEST (5W09=1)
:NEW SCOP1
:LOAD PORT4
iNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#3%,L0CK

:CLEAR BIT 5 IN LU-12

:NEXT WORD_1S INSTRUCTION, ROMCLK PC=5304

:READ LU=12

:PUT

"EXPECTED" IN RS

:PUT "'FOUND'* IN Ré

:CLEAR UNWANTED BITS

;1S BITS CLEAR?
:BR _IF YES
:ERROR, BITS IS NOT CLEAR
:SCOPE "SUBTEST (5W09=1)

JRRRRRRRRRRRRRRRERTRRERRRRRNERSRY

TEST

sesanenannnsnnarnnenenrannnn

s*LINE UNIT REGISTER WRITE/READ TEST

s*SET BIT1 IN LU REGISTER 17

VERIFY IT IS SET

:*CLEAR BIT1 IN LU REGISTER 17, VERIFY IT IS CLEAR
e Mt

0145
014570

012737

012737
012737

014612
014614
014620
0166%8
014630
014632

104410
012702
012761
104412
122117
104412

014642
014646
014652
014654

014656
816660
1669%

021365
012705

116104
042704
120504
001401

104003
104405
012737

014670
014674
014676
014700

005061
104412
122117
104412

014706
014706

005005
116104

014702

014712
014716

e
AR
H

014576
014604

014634
014636

000006

014726
014620
000017
000001

001442
001444

000004

18:

000004

AR A

TEST 6

38:

SCOPE
MoV

MSTCLR
MoV
MoV
ROMCLK
122117
ROMCLK

ERROR
SCOP1
MoV

CLR
ROMCLK
122117
ROMCLK

021365

000005

000376

CMPB
BEQ

28:

AR AR AR AR RN AN TR AR

Move
8IC

001444

AR A

e et

021365
MoV

000005
000376

014670

MoV
MoV

000001

021365

042704
120504

001202

TST6:

CLR
Move

BIC
CMPB

TR AR R RN A AR R R AARNA AR AR

#1%,L0Ck

n7,r2

#1,4(R1)

#,RS

5(R1),R4

#376 R4

R4
RS,
2%

#38,L0CK

41D

RN ERARRARRNNEY

; LOAD THE NO. OF THIS TEST
: POINT TO THE START OF NEXT TEST.
; ADDRESS FOR LOCK ON DATA.

#6,8TSTNN

#TST7 NEXT

:R1 CONTAINS BASE KMC11 ADDRESS
¢MASTER CLEAR KMC11
:SAVE REGISTER ADDRESS FOR TYPEOUT
:LOAD PORT4
¢NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET BIT1 IN LU-17
;NEXT WORD IS INSTRUCTION., ROMCLK PC=5304
sREAD LU-17
;PUT “EXPECTED" IN RS

;PUT "FOUND'' IN Ré

;CLEAR_UNWANTED BITS
;1S BIT1 SET?
:BR IF YES
;ERROR, BIT 1 IS NOT SET
;SCOPE SUBTEST (Sw09=1)
:NEW SCOP1
:LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sCLEAR BIT 1 IN LU-17

:NEXT WORD_ IS INSTRUCTION, ROMCLK PC=5304
:READ

LU=-17

014536
014540
014542
014544
014546
014552
014556
014560
014562
014564

001401
104003
104405
012737

SEQ 0063

3078
3079
3080
3081
308§
3083
3084
3085
3086
3087
3088
3089
3090
30N
3092
3093
3094
3095
3096

014514
014516
014520
014522
014530
0145

D |0
UN
A~ N

3072
3073
30764
3075
3076
3077

08:27 PAGE 64
LINE UNIT WRITE/READ TESTS

WH
0D WO
PPN A~
s WD
D N F

C IKCF
MACY11 30A(1052)
08-JuL-80
C IKCF.PI
08-JuL~-80 08:2¢4

:PUT "EXPECTED'' IN RS
;PUT "'FOUND'' IN Ré

sCLEAR_UNWANTED BITS

;15 BIT1 CLEAR?

MACY11

30A(1052)
08-JuL~-80
08-JuL-80 08:24

001401
104003
104405

BEQ
48:

014720
014722
014724

08:27 PAGE 65
LINE UNIT WRITE/READ TESTS

SCOP1

;BR IF YES

;ERROR, BIT1 IS NOT CLEAR
:SCOPE SUBTEST

JRRRRRRRrRRterrnntranenennnn

TEST

(SW09=1)

aavenannnevranesneaneennenis

s*LINE UNIT REGISTER WRITE/READ TEST
s*FLOAT A 1 THROUGH LINE UNIT REGISTER 13
s*FLOAT A O THROUGH LINE UNIT REGISTER 13

\“Ilg\h\h\fl\fll‘bbbbJ“&bb&u

RN
NN N R RN R R R AR AR AN RN AR AN RN

000007
015136
014764

001202
001442
001444

SCOPE

MOV
MOV
MOV

MSTCLR

000013
000001
000004
000257

1§T7:

000004

#7,8TSTNM
#TST10,NEXT
#64$,L0CK

MOV
MOV

#3,R2
#1,R0

MOV

RO,4(R1)

BIC

ROMCLK

#257,4R1)

122100113

nonch

21005 ' <13+20>

000257

001444

3:::3:3888§§S§

g;g:

-lszieiENfl\”\fififluififl-.

SRR
SURNER
53333882303
OO
= b b
Ot

S3IBRBINIRTE

et e

ndh o

OO0 O00OVO0O0O0O0O000O

RO,RS

MOVB
BIC

S(R1),Ré&
#257,R4

CMPB
BEQ
658:

015050

MOV

BIC

000257

ERROR

SEQ 0064

000004

ERROR
SCOP1
cLe
ROLB

:MOV DATA TO IBUS REGISTER 13
INEXT WORD IS INSTRUCTION,

:READ FROM IBUS REGISTER 13
:PUT "'FOUND'' INTO Ré&
$CLEAR UNWANTED BITS

SSTART WITH BIT 0

#257,4(RV)

RO,RS

#2575
S(R1,Ré
o§s7 R4
RS.R4
68§

ROMCLK PC=5304

:PUT EXPECTED IN RS

#1,r0

21005 ! <13+20>

BIC
MOVE
BIC
(MPB
BEQ

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

122100!13
nonch

MOV

:CLEAR UNWANTED BITS

:ERROR
15W09=12
:CLEAR CARRY
SSHIFT BIT IN RO

RO, 4 (R1)
cbx

:PUT PATTERN INTO PORT4

:DATA CORRECT?
:BR IF YES

:SAVE REGISTER ADDRESS FOR TYPEOUT
SSTART WITH BIT 0

RS,R&
gsi

COM

BIC

:MASTER CLEAR KMC11

$CLEAR UNMANTED BITS

643
#678,L0CK

MOV

;R1 CONTAINS BASE KMC11 ADDRESS

225785

BNE
MOV
MOV

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
: ADDRESS FOR LOCK ON DATA.

:1F RO=0 THEN DONE
INEW SCOP1
:CHANGE TO FLOATING ZERO

;PUT PATTERN INTO PORT4

SCLEAR UNWANTED BITS

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;MOV DATA TO IBUS REGISTER 13
‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:READ FROM IBUS negxsr:n i3
*PUT EXPECTED IN R

:CLEAR UNWANTED BITS
:PUT “'FOUND'' INTO R4
:CLEAR UNWANTED BITS
:DATA CORRECT?
‘BR IF YES

N x

3R28283BI22e 77

inls)

O
NN

MACY11 30A(1052)

P11

08-JUL=-80

08-JUL=-80 08:24

015122
015124
015126
015130
015132
015134

08:27

104003
104405
005100
000241
106100
001347

PAGE 66

LINE UNIT WRITE/READ TESTS

688:

;

104410

015162

012700

015174

010061

000004

122114

015164

000010
015312
015174

b
~N

012737
012737
012737

8};};2

seanennneaveannnneennannnen

8'5383

104412

015206
015206
015210

104412
021305
010005

015216

120504

015222
015224
01s%§8
015
015532
015234

104003
104405
000241
106100
001360
012737

813533

005100

015250
015256
015256

010061
104412
122114

015512

116104

001202
001442
001444

7ST10:

015260

000001

015

120504

015274

015276
015
015302

116104

000005

#1,R0
ckx

MOVB

RO,4(R1)

658:

015250

001444

g;g:

000004

S(R1),R&

CMPB

RS,R4

ERROR
SCOP1
cLe
ROLB
BNE
MOV

BEQ

MOV

COM

65%

000005

;R1 CONTAINS BASE KMC11 ADDRESS

;MASTER CLEAR KMC11

:SAVE REGISTER ADDRESS FOR TYPEOUT
;START WITH BIT 0

;PUT PATTERN INTO PORT4

;NEXT WORD IS INSTRUCTION,

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304&
;READ FROM IBUS REGISTER 14
:PUT EXPECTED IN RS

:PUT ""FOUND" INTO Ré
:DATA CORRECT?

:BR IF YES

RO
64%
#67%,L0CK
RO

;CHANGE TO FLOATING ZERO

#,r0

ROMCLK PC=5304

:MOV DATA TO IBUS REGISTER 14

:START WITH BIT 0

MOV
RO,4(R1)
ROMCLK
12210014

;PUT PATTERN INTO PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;MOV DATA TO IBUS REGISTER 14

21005 ! <14+20>

:READ FROM IBUS REGISTER 14

MOV

RO,RS

CMPB

RS,R4

MOVB
BEQ
688:

: LOAD THE NO. OF THIS TEST
: POINT TO THE START OF NEXT TEST.
: ADDRESS FOR LOCK ON DATA.

:ERROR
:SW09=12
:CLEAR CARRY
sSHIFT BIT IN RO
:1F RO=0 THEN DONE
:NEW SCOP1

ROMCLK

001401

104003
104405
005100

4, R2

nonc%x
21005 ! <14+20>
MOV
RO,RS

104412

010005

MOV

MoV

015262 021305
ms%

MOV

#10,$TSTNM
#1111, NEXT
#648,L0CK

12210014

012700 000001

015264

SCOPE
MOV
MOV
MOV

MSTCLR

o1sgzo 001401

015242

TEST 10

;:'Qtttt;.'t.ttt"""'t"ttt't"tttttttttt'tt'tttt'tt'tt'.".t't

015136
015140
015146
015154

000014

b e

TEST

;:ttt'tt"tt""""ttt"tttt!tittt"ttt"'lttttt'ttttt't'.ct.t.

012702

RO
698

;*FLOAT A O THROUGH LINE UNIT REGISTER 14

; ERROR
15W09=17
:CHANGE TO FLOATING 1
:CLEAR CARRY
;SHIFT BIT IN RO
:1F RO=0 THEN DONE

:«LINE UNIT REGISTER WRITE/READ TEST
;*FLOAT A 1 THROUGH LINE UNIT REGISTER 14

—

JRrrknRnrenrnenvrreevevnnnnt

RO
RO RO DRI
R
NN
=3
WO NV WIN—-O

ERROR
SCOPI
COM
cLe
ROLB
BNE

SEQ 0065

ERROR
SCOP1
COM

S(R1).Ré4

gai
RO

:NEXT WORD IS INSTRUCTION,
:PUT EXPECTED IN RS

:PUT "FOUNDTM INTO Ré4
:DATA CORRECT?

:BR IF YES

*ERROR
:5W09=1?
:CHANGE TO FLOATING 1

ROMCLK PC=5304

KCF
MACY11 30A(1052)
08-JuL-80
KCF.P1
08-JUL-80 08:24

32640

015304

000241

3242

015310

001356

08:27
PAGE 67
"INE UNIT WRITE/READ TESTS

CLC

3%41 015%06 106100

ROLB

SEQ 0066

;CLEAR CARRY

BNE

;SHIFT BIT IN RO

69%

;1F RO=0 THEN DONE

3245

JRRRERRNRERANRR
RN Rt hwnn TEST

3246
3247
3248

s*SWITCH PAC TEST
;*THIS TEST READS SWITCH PACH1
s*THIS SWITCH PAC CONTAINS THE DDCMP LINE #

2523

g%gg

3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3266
3265
3266

015312
015314
015322

000004
012737
012737

015330
015332
015334
015336
015342
015346
015350
015352
015354

104410
104412
021324
016104
113705
120504
001401
104031

000011
015354

001202
001442

000004
002052

R AR

R R R R AR

AR R

wnnnnnaannnnananneaanneatss

R AR AR

;;tttttt;tttttcttt"t't"tttt'tttttttt'tttt't'ttt"tQttttttt".tfi
1ST11:
SCOPE
MOV
#11,8TSTNM
; LOAD THE NO. OF THIS TEST
MOV
#TST12,NEXT
: POINT TO THE START OF NEXT TEST.
;R1 CONTAINS BASE KMC11 ADDRESS
MSTCLR
sMASTER CLEAR KMC11
ROMCLK
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
021324
sPORT4 _LU1S
MOV
4(R1) ,R4
;PUT "FOUND'' IN R4
MOVB
STAT2,RS
;PUT "EXPECTED'' IN RS
CMPB
RS .,R4
;SW 0K?
BEQ
1%
sBR IF YES
ERROR
n
sERROR, SWITCH PAC READ ERROR
18:
JRrRRRRRRRRRRRRRRReennnnnen

3270
327
3272

s*SWITCH PAC TEST
;*THIS TEST READS SWITCH PACH?2
s*THIS SWITCH PAC CONTAINS THE BMB73 BOOT ADD

3273

3274

gg;z

78
79

:
015354
015356

3280 015364
81

82
3283
84
85
86
87
88
89
ggo

329'
329

329‘
295

015372
015376
015376
015400
015404
otsug
015412
015414
015416

000004
012737

012737

104410
104412
021344
016104
113705
120504
001401
104031

A AR RO

TEST W

3269

3277

A AR AR

R AR

TEST

R AR A R R AR R R R

teavcnnanenenantnanenenenns

R RN R AR AR RN RRRRNRRRR

1881 12

;;ttltt';Q'tttttttQttttt""tttt"t'l"tltlttti.tttt't't"tltlttt
000012

015416

001202

TST12:

001442

SCOPE
MOV

MOV

000004
002053

1$:

MSTCLR
ROMCLK
021344
MoV
MOVB
CMPB
BEQ
ERROR

#12,8TSTNR

#TSTI3,NEXT

4(R1) R4
STAT2+1,R5
RS, R4
1%
b3

; LOAD THE NO. OF THIS TEST

: POINT TO THE START OF NEXT TEST.

;R1 CONTAINS BASE KMC11 ADDRESS

sMASTER CLEAR KMC11
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4_LUTG
;PUT "FOUND'' IN R&
sPUT "EXPECTED'' IN RS
:SW 0K?
:BR IF YES
sERROR, SWITCH PAC READ ERROR

st RrRrRenetnrndnentnnenn TEST

S«LINE UNIT CLOCK TEST

13 aenenectnennnennnnnenennnns

*aTHIS TEST VERIFYS THAT THE LU INTERNAL CLOCK

poo—
—
o ———————

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JUL-80 08:24

08:27
PAGE 68
LINE UNIT WRITE/READ TESTS

3296

;*(BIT 1

3299
3300

:
TEST 13
jeeeeccccccccne

%%gg

3302
3303
3304
3305
3306

3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317

3318
3319

3320
3321
3322
3323
3246
3325

3357

IN LU=17)

3301

015416
015420
015426

000004
012737
012737

000013
015516

015434
015436
015442
015442
015444
015446
015454
015456
015462
015464
015466
015472

104410
005037

011234

015472
015474

015476
015504
015506
015512
015514
015516

104412
021364
032761
001004
005237
001367
104004
005037
104412
021364
032761
001404
005237
001367
104004

000002

001202
001442

TST13:

1%:
000004

011234
011234

000002

2%:
3%:

000004

011234
4$:

SEQ 0067

IS WORKING

R R R

R R

R R R R R

R R

AN R AN R AR

AR R R R R

AN RN

MSTCLR
CLR

TEMP

ROMCLK
021364
BIT
BNE
INC
BNE
ERROR
CLR

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 _LU=17
#2,4(R1)
;1S CLOCK BIT SET?
2%
sBR IF YES
TEMP
sDELAY
1%
sDELAY FINISHED?
&
;ERROR BIT IS STUCK CLEAR
TEMP
sPREPARE FOR DELAY

ROMCLK
021364
BIT
BEQ
INC
BNE
ERROR

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 _LU=-17

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
sR1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
sPREPARE FOR DELAY

#2,4(R1)
4%
TEMP
3
4

;1S CLOCK BIT CLEAR?
;BR IF YES
sDELAY
sBR IF DELAY NOT DONE
sERROR BIT IS STUCK SET

JRRRtRRERRRRRERRRCERCERR
R R e

s*0UT DATA SILO TEST
s*SET SOM AND LOAD OUT DATA SILO
s*VERIFY THAT OCOR SET, INDICATING THAT THE
s*CHARACTER IS AT THE BOTTOM OF THE OUT SILO

3334
g;gz

;

015516
015520
015526

000004
012737
012737

000014
015616

334§
3343

015534
0155

104410
012711

004000

345
g"?
347
g;:l

015550
015552
015554
015556

104412
12211
104412
122110

3341

gS&b

3350
3351

015542

015560

0155?4
015570

012761

104414

012702
104412

000001

000002

000017

001202
001442

000004

R AR RN

#13,8TSTNM
#TSTI4 NEXT

3329
3330
3351
3332

3337
3338
3339
3340

stIIIIIIIIITY

SCOPE
MOV
MOV

3328

3333

R R R

TEST

tevennnnrencennennconenanns

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

R AR R R RN RRRRRRRS

TEST 14

;;catntt;ttt'tttfiaco"ttttttto'otct-t.ct'-ct:-.t..taantactnc--'-TST14:
SCOPE
MOV
#14,8TSTNM
; LOAD THE NO. OF THIS TEST
MOV
#TSTIS NEXT
; POINT TO THE START OF NEXT TEST.

MSTCLR
MOV

MoV

ROMCLK
122111
ROMCLK
122110
TIMER,

MOV
ROMCLK

;R1 CONTAINS BASE KMC11 ADDRESS

#BIT11,(RY)

01.4(!‘)

n7,R2

sMASTER CLEAR KMC11
+SET LINE UNIT LOOP

;LOAD PORT4 WITH BITO

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sLOAD OUT DATA SILO
;WAIT FOR OCOR

+SAVE ADDRESS FOR TYPEOQUT
sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

O*J‘h)()iz
143 3
&S

el
L Yy

VB AW

021364
016104
0462704
012705
120504

08:27

PAGE 69

BASIC TRANSMITTER TESTS

SEQ 0068

021364

000020

104005

;PORT4 LU 17

;PUT "FOUND'' 1 N Ré

MoV
BIC
MoV
(MPB
BEQ
ERROR

001401

1%:

;CLEAR UNWANTE D BITS
sPUT "EXPECTED "IN RS
;1S OCOR SET?
:BR IF YES

JRRkRkRRerRr Rttt nnnnnnn

TEST

saaneveavnvanenennanastannnen

s*DDCMP TEST OF RTS AND OUT ACTIVE
;*SET SOM AND LOAD OUT DATA SILO

;*SINGLE STEP 2 DATA CLOCKS, VERIFY

s*THAT RTS AND ACTIVE ARE SET

hfl\fl\flhflhfluflgf &

(=leleleleleleTe)

bl
e

Inle

AL R A

AR AR R

TEST 13

000015
015754

004000
000001

001202
001442

SCOPE
MOV
MOV

MSTCLR
MoV
MoV
ROMCLK

000004

#BIT11,(RY)
#1,4(R1)

ROMCLK

122110
PC,OCOR
JSR
DATACLK,
#11,R2

030260

4(R1),Ré

000120

000013

1$:

000004
000337
000040

2822222}

; LOAD THE NC. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
;R1 CONTAINS BASE KMC11 ADDRESS

sMASTER CLEAR KMC11
;SET LINE UNIT LOOP
;LOAD PORT4 WITH BITO
:gg¥tsggao 1S INSTRUCTION, ROMCiK PC=5304
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA SILO
:WAIT FOR OCOR

:CLOCK DATA FOUR TIMES

:SAVE ADDRESS FOR TYPEOUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 1N

;PUT "FOUND'' IN R4

#257 ,R4
#120,R5
RS .R&

;CLEAR UNWANTED BITS

f3,R2

;SAVE ADDRESS FOR TYPEOUT
:NEXT WORD is INSTRUCTION, ROMCLK PC=5304
:PORT4 LU 1

1$
5

4(R1),R4
#337 R4

it
gi

2%:

#15,8TSTNM
#TST16,NEXT

122111

ORI
=
&0
N -SN

§§T1S:

8
oW
eN

015726

2= S

~
nN

15714

d-.
s2ReRss
28
o R aogoo§g—

::‘l

Viun

Cwnd

15674

TM
~NN

NN
N
N NNLN LN LN N N N NN NN N LN LN N N NN
N NN N NN
SNNNSNNN
WVIVIWAWVIVAIUWA
VIS
W
- OO0 o~
WIS
NN = O000NN
B inD

MACY11 30A(1052)
08-JuUL-B0
P11
08-JUL-B0 08:24

;PUT “EXPECTED'' IN RS
;1S ACTIVE SET?
:BR IF YES

;PUT ERPECTED IN R4

:CLEAR_UNWANTED BITS

;PUT “EXPECTED'' IN RS, RTS SHOULD BE SET
;1S RTS 0K?
:BR IF YES
;RTS ERROR

etk reeerenrearrrenenneed

TEST

ventvnntncenenntesnnnnnennn

CZKCF

MACY11

CZKCF.P1N

30A(10%2)

08-JUL-80

08-JUL-B0 08:2¢4

08:27

PAGE 70

BASIC TRANSMITTER TESTS

3408
3409
3410

;*TEST OF OUT CLEAR
;*SET SOM AND LOAD OUT DATA SILO
s*SINGLE STEP DATA CLOCK, SET OUT CLEAR

3411
3412
36413
3414

3415
3416

;*VERIFY THAT OCOR,RTS, AND ACTIVE ARE CLEARED
AR A

015754
015756

000004
012737

3421
lkg%
34¢3
3426
3425
3426
3427
3428
3429
3430
3431
3432
3433
34§g

015772
015776
016000
016006
016010
016012
016014
016016
016022
016026
016034
016036
016040
8}60;3

104410
012711
012761
104412
122111
104412
122110
004737
104413
012761
104412
122111
104413
?IZZ?%

3437
3438
3439
3440
3441
3442
3443
3444
3445
3446
3447
3448
3449

016054
016060
016064
016066
016070
016072
016074
016074
016100
016102
016104
016110
016114

015764

012737

g:s;
53
3454
3455

3456
3457
3458
3459
;260
61
;:6;
6

ses’

TEST 16

016116
016120

016122
016124
0161;3
0161

016132
016134
016140
016144
016146
016150
016152

000016
016152

004000
000001

001202
001442

AR AR

TST16:

000004

#16,8TSTNM
#TST17 ,NEXT

MSTCLR
MOV
MOV

#BIT11,(RY)
#1,4(R1)

ROMCLK

122111

ROMCLK

030260
000002
000200

122110
JSR
PC,OCOR
DATACLK,
2
MOV
#BI1T7,4(R1)

000004

ROMCLK

122111
DATACLK,
MOV
NM7,.R2

0161064
042704
005005
120504
001401
104005

000004
000357

MOV

012702
104412
021264
016104
042704
005005

000013

ROMCLK

021364

1$:

MOV

#13,R2

MOV

000011

2%:

#337.R4
RS

BEQ
ERROR

MOV

ROMCLX

021224

000004
000020

RS.R4
S

#11,R2

MOV

4(R1) R4

BEOQ

MOV
CMPB
3%:

4(R1) R4

BIC
CLR

CMPB

104005

021224
016104
012705
120504
001401
104005

#357,.R4
RS
R5,R4
1%
§

021264

000004
000
~’

4(R1) R4

BIC
CLR
(MPB
BEQ
ERROR
ROMCLK

120504
001401

012702
104412

SCOPE
MOV
MOV

000001
000017

g236 012852 Og?Sbk

3450
3451

AL A

3417
3418

gz;g

SEQ 0069

ERROR

#BIT4,RS
RS,.R4

;R1

2L}

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.

CONTAINS BASE KMC11 ADDRESS

sMASTER CLEAR KMC11
;SET LINE UNIT LOOP
;LOAD PORT4 WITH BITO
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET _SOM
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA SILO
;WAIT FOR OCOR
sCLOCK DATA FOUR TIMES

;SET BIT7 IN PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK P{=5304
sSET OUT CLEAR
;GIVE A TICK TO CLEAR RTS

;SAVE ADDRESS FOR TYPEOUT
sNEXT WORD ;S INSTRUCTION, ROMCLK PC=5304
sPORT4 LU 1

;PUT "FOUND"' IN Ré

sCLEAR UNWANTED BITS

;PUT "EXPECTED'' IN RS

;1S OCOR CLEARED?
:BR IF YES

;SAVE ADDRESS FOR TYPEOUT

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PORT4 LU 13

;PUT ERPECTED IN R4

;CLEAR UNWANTED BITS

;PUT “EXPECTED'' IN RS, RTS SHOULD BE CLEARED
;1S RTS 0K?
:BR IF YES
sRTS ERROR

;SAVE ADDRESS FOR TYPEOUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PORT4 LU

;PUT “FOUND'' IN R4

;ONLY OUT READY SHOULD BE SET
+IS ACTIVE CLEAR?
sBR IF YES
JERROR ACTIVE NOT CLEARED

CZKCF
MACY11 30A(1052)
08-JuUL-80
CZKCF.P11
08-JUL-80 08:24

08:27
PAGE 71
BASIC TRANSMITTER TESTS

3464

3465

SEQ 0070

JARRRRARRRRRRRRRRRER
RN annnnn TEST

aanunnnaannanntanaaneansons

3466
3467
3468
3469
3470

s*DDCMP TRANSMITTER TEST
s*SINGLE CLOCK THE CHARACTER 0
s*VERIFY EACH BIT POSITION AS IT
s*PASSES THE BIT WINDOW (SI BIT)
s*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILUKRE

32;2

3}2;5

3475

3476
3477
3478
3479
3480
3481
34
3483
3484
3485
3486
3487
3488
3489
3490
91
92

3493

3494
3495

3496
3497

3498
3499
3500

501

3503
3506
505
506
3507
350‘
509
3510
511
51;
513
514
3515

17
33518
3519

016152
016154
016162

000004
012737
012737

016170
016172
016176
016202
016210
016212
016214
016220
0162%8
0162
016232

104410
012711
004737
012761
104412
122111
012705
004737
010561
104412
122110

012%62

010502

016254
012%56

106002
103005

812236
016240

016244
016250
016260
016266
01

01
016272
016276
016
016302
016302
016304
016310
016312
016316
016320
016%;5
016
016332
016334

000017
016334
004000
030412
0000017

104413
104413

000002
(000001

00 ;
022703
001357
104413
104412
021264
032761
001401
104034

001202
001442

TST17:

AR A

AR AR

AR AR IR AR RN AR AR

T AR

TEST 17

000004

JSR
MOV
ROMCLK
122110
JSR
CLR

MOV
1$:

030226

2%:
3s:

000010
000014

000040

SCOPE
MOV
MOV

MSTCLR
MOV
JSR
MOV
ROMCLK
122111
MOV

000000
030412
000004
030260

0004604
004737
103001
104006

;_'t'tttt;tttt"tfltttt'tt't'ttt'tt't't't'tttttttttt'ttttt'ttt"t.t

737
5003

004737
103406
104006

000004
48:

DATACLK,
DATACLK,

RORB

BCC
JSR
BCS
ERROR
BR
JSR
BCC
ERROR

#17,8TSTNM
#TST20,NEXT

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
;R1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
#BIT11,(RY)
;SET LINE UNIT LOOP
PC,OUTRDY
;WAIT FOR OUT=READY
#1,4(RY)
sSET BITO IN PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sSET SOM!
#0,R5
;LOAD CHARACTER IN RS FOR TYPEOUT
PC,OUTRDY
sWAIT FOR OUT=-READY
RS5,4(R1)
sLOAD PORT4 WITH CHARACTER
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sLOAD OUT DATA

PC,OCOR
R3

RS,.R2
R2
2%

;WAIT FOR OCOR TO SET
sCLEAR BIT COUNTER

2
1

PC,GETSI
33
6

PC,GETSI

3s
6

INC
R3
CMP
#10,R3
BNE
18
DATACLK,
14
ROMCLK
021264
BIT
#B1715,4(RY)
BEQ
ERROR

1)
34

sLOAD CHARACTER IN R2

;2 TICKS TO SET UP TRANSMITTER
sSHIFT NEXT BIT IN THE WINDOW (SI BIT)

sSHIFT NEXT SOFTWARE BIT IN TO CARRY
sBR IF CARRY CLEAR
sGET THE WINDOW
sBR IF BIT IS A MARK
sERROR BIT WAS A SPACE

sCONTINE WITH TEST

sGET THE WINDOW

sBR IF BIT IS A SPACE
ERROR BIT WAS A MARK
sNEXT BIT
;DONE YET?
sBR IF NO
JCLOCK TRANSMITTER 14 MORE TICKS
sNEXT WORD §S INSTRUCTION, ROMCLK PC=5304
sPORT4_LU-1
;RTS SAOULD BE CLEAR NOW
sBR IF YES
JERROR, RTS NOT CLEAR

seeknenntenneereenerentnenen TEST 20 tveentnnsantecennanennenens

s*DDCMP TRANSMITTER TEST

A U U L

‘”fi:fi:‘”!:‘”
~
~
NN - O

o U U L A

N U U U A

AN N AN NN N

A
AV S
SSEETEREE :z\fi::\fi::\”\”

LS LS
N TN TNT ST 9
SIFRRUR2EDL
VNN
NN O

MACY11 30A(1052)
08-JUL-80
PN
08-JUL-80 08:24

08:27
PAGE 72
BASIC TRANSMITTER TESTS

SEQ 0071

s*SINGLE CLOCK THE CHARACTER 125
S#VERIFY EACH BIT POSITION AS IT

«PASSES THE BIT WINDOW (SI BIT)

1«ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE

::.".""""""""""C""'"'.'.'Q.".Q.'Q"""..'t.'Q"t

016334

016336

016344

900004

012737

016352
016354
016360
016364
016372
016374
016376
016402
016406
016412
016414
016416
016422
016424
0164;3
0164
016436
016440
016442
016446
016450

104410
012711
004737
012761
104412
122111
012705
004737
010561
104412
122119
004737
005003
010502
104413
104413
106002
103005
004737
103406
104006

016456
016460
016462

004737
103001
104006

016452

016464

000404

016464

005203

016474

104413

016466
016472

022703
001357

016500
016502

104412
021264

016512

001401

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

000020

016516

004000
030412
000001

001202

ST20

001442

MSTCLR
MOV
JSR

000004

MOV
ROMCLK
122111
MOV
JSR
MOV
ROMCLK

000125
030412
000004
030260

000002
000001

1$:

030226

104034

SCOPE

MOV

2%:

3s:
000010
000014

'TSTZ\ NEXT
#BIT11,(RY)
PC,OUTRDY
#1,4(RY)

; LOAD THE NO. OF THIS TEST
sR1

s POINT TO THE START OF NEXT TEST.

CONTAINS BASE KMC11 ADDRESS

sMASTER CLEAR KMC11
;SET LINE UNIT LOOP
JWAIT FOR OUT=READY

;SET BITO IN PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
+SET SOM!
#125,RS ;LOAD CNARACTER IN RS FOR TYPEOUT
L. OUYRDY
JWAIT FOR QUT=-READY
RS, 4(R1)
;LOAD PORT4 WITH CHARACTER
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
sWAIT FOR OCOR TO SET
sCLEAR BIT COUNTER
sLOAD CHARACTER IN R2
;2 TICKS TO SET UP TRANSMITTER
sSHIFT NEXT BIT IN THE WINDOW (SI BIT)

sCONTINE WITH TEST

RORB
8CC
JSR
BCS
ERROR

R2
2%
PC,GETSI
3%
6

JSR
BCC
ERROR

PC,GETSI
3
6

INC

DATACLK,

ROMCLK
021264

#20,8TSTNM

122110
JSR
PC,OCOR
CLR
R3
MOV
RS,R2
DATACLK,
2
DATACLK,
1

CMP
BNE

016504 032761 000040 000004
8}22}2

TEST 20

#10,R3
1%

1GET THE WINDOW
sBR IF BIT IS A SPACE
:ERROR BIT WAS A MARK

sNEXT BIT

BIT

'2"5.4('1)

ERROR

BEQ

SNIFT NEXT SOFTWARE BIT IN TO CARRY
BR IF CARRY CLEAR
GET THE WINDOW
:BR IF BIT IS A MARK
sERROR BIT WAS A SPACE

sDONE YET?
;BR IF NO

sCLOCK TRANSMITTER 14 MORE TICKS

JNEXT WRD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 _LU-13

:RTS SflOULD BE CLEAR NOW
JBR IF
Y

sERROR, RTS NOT CLEAR

serkrRReteerRennaeeennttnnnnr

TEST

;*DDCMP TRANSMITTER TEST
;*SINGLE CLOCK THE CHARACTER 252
;*VERIFY EACH BIT POSITION AS IT

:*PASSES THE BIT WINDOW (SI BIT)

ttecvanctevnentntveceneenes

|
|

|
VIVAWA - ey
\fiac\fl\fl\fi\fi\fl\fl
3
bt het NNSNN T

lals)
N

MACY11 30A(1052)
08-JuL-80
P11
08-JUL~-80 08:24

08:27
PAGE 73
BASIC TRANSMITTER TESTS

SEQ 00772

s*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE

;:tt'ttt""'tt'titt""ttt'ttt'fi'ttt‘ttt'tttt'ttttt.tttt't'tttt

;

016516
016550
016526

000004
012737
012737

A $EEREEE

;

016534
016536
016542
016546
016554
016556
016560
016564
016570
016574
016576
016600
016604
016606
016610
016614
016620
016622
016624
016630
016632
016634
016636
016642
016644

104410
012711
004737
012761
104412
122111
012705
004737
010561
104412
122110
004737
005003
010502
104413
104413
1
2
10
;
0047
103406
104006
000404
004737
103001
104006

016645»8

005203

4
S

016654
016656

001357
104413

016666

032761

3605

2REE A

6
7

016646

0166

016662
016664

016674
016676

016700

022703
104412
0§1ZM
001401
104034

TEST 21

:;ttt'it;t'tttt"t"'t""tt"tttt'tt't'tt""tttt'lt't'tt'tttt"

000021
016700

004000
030412
000001

001202
001442

TST21:

000004

000252
030412
000004
030260
000002
000001

1%:

030226

2%:
38:

000010

#21,8TSTNM
#TST22 NEXT

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
sR1 CONTAINS BASE KMC11 ADDRESS
JMASTER CLEAR KMC11
#BIT11,(RY)
sSET LINE UNIT LOOP
PC,OUTRDY
JWAIT FOR OUT=READY
#1,4(R1)
sSET BITO IN PORTS
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sSET SOM!
#252.,R5 ;LOAD CHARACTER IN RS FOR TYPEOUT
PC,OUTRDY
JWAIT FOR OUT=-READY

MSTCLR
MOV
JSR
MOV
ROMCLK
122111
MOV
JSR
MOV
RS5,4(R1)
ROMCLK
122110
JSR
PC,OCOR
CLR
R3
MOV
RS ,.R2
DATACLK,
2
DATACLK,
1
RORB
R2
BCC
2%
JSR
PC,GETSI
BCS
3
ERROR
6
BR
33
JSR
PC,GETS!
BCC
3s
ERROR
6

sERROR BIT WAS A SPACE
sCONTINE WITH TEST
+GET THE WINDOW
sBR IF BIT IS A SPACE
JERROR BIT WAS A MARK

INC

SNEXT BIT

CMP

#10,R3

BNE
13
DATACLK,

000014

000040

SCOPE
MOV
MOV

ROMCLK
021264

000004

BIT

4%:

BEQ
ERROR

sLOAD PORT4 WITH CHARACTER
sNEAT WORD IS INSTRUCTIOM, ROMCLK PC=5304
sLOAD OUT DATA
sWAIT FOR OCOR TO SET
sCLEAR BIT COUNTER
sLOAD CHARACTER IN R2
:2 TICKS TO SET UP TRANSMITTER
sSHIFT NEXT BIT IN THE WINDOW (SI BIT)
sSHIFT NEXT SOFTWARE BIT IN TO CARRY

:BR IF CARRY CLEAR

sGET THE WINDOW
sBR IF BIT IS A MARK

sDONE YET?
14

#BITS,4(RT)
43
34

:BR IF NO
sCLOCK TRANSMITTER 14 MORE TICKS
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 _LU-13

;RTS SHOULD BE CLEAR NOW
sBR IF YES
sERROR, RTS NOT CLEAR

3624

JRreRaaReRtereRnettenenennen

3628

;*PASSES THE BIT WINDOW (SI BIT)

3625
3626
3627
3629
3630

TEST 22

s*DDCMP TRANSMITTER TEST
s*SINGLE CLOCK THE CHARACTER 377
s*VERIFY EACH BIT POSITION AS IT

setanttennsnnetteencevnnnent

s*0ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE
R

|
RN
ol

O‘g
alnl
NN
T

08:27
PAGE 74
BASIC TRANSMITTER TESTS

3333333330

SEQ 0073

016700
016702

016710

016716
016720
016726
0167

ooooga
012737

012737

104410
012711
004737
012761

016736
016740
016742
016746
016752
016756
016760
016762

104412
122111
012705
004737
010561
104412
122110
004737

016770
016772

010502
104413

017002
017004
017006
017012
017014
017016
017020
017024
017026
017030
017030
017032
017036
017040
017044
017046
017050
017056
017060

106002
103005
004737
103406
104
0004
004737
103001
104006

016766
016776

017062

005003
104413

005203
022703
001357
104413
104412
021264
032761
001401
104034

000022

017062
004000
030412
000001

001202

TST22:

001442

AR R

SCOPE
MOV

MOV

MSTCLR
MOV

000004

030260
000002
000001

1%:

030226

28:

3%:
000010
000014

000004
48:

#1723, NEXT

JSR
MOV

CLR

RORB
BCC
JSR
BCS
ERROR
BR
JSR
BCC
ERROR

3687

; LOAD THE NO. OF THIS TEST
;R1

: POINT TO THE START OF NEXT TEST.

CONTAINS BASE KMC11 ADDRESS

JMASTER CLEAR KMC*1
sSET LINE UNIT LOOP
;WAIT FOR OUT=READY
sSET BITO IN PORT4

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM!
#377,RS ;LOAD CHARACTER IN RS FOR TYPEOUT
PC,OUTRDY
;WAIT FOR OUT=READY
RS,4(R1)
;LOAD PORT4 WITH CHARACTER
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sLOAD OUT DATA
PC,OCOR
sWAIT FOR OCOR TO SET

MoV
RS,.R2
DATACLK,
DATACLK,

#22,8TSTNM

#BIT11,(RY)
PC,OUTRDY
#1,4(RY)

ROMCLK
122111
MOV
JSR
MOV
ROMCLK
122110
JSR

000377
030412
000004

000040

R2
2%
PC,GETSI
3%
g
$
PC,GETSI
3%
6

;CLEAR BIT COUNTER

2
1

INC
R3
CMP
#10,R3
BNE
1%
DATACLK,
14
ROMCLK
021264
BIT
#B1715,4(R1)
BEQ
4$
ERROR
34

:LOAD CHARACTER IN R2
:2 TICKS TO SET UP TRANSMITTER

sSHIFT NEXT BIT IN THE WINDOW (SI BIT)

sSHIFT NEXT SOFTWARE BIT IN TO CARRY
;BR IF CARRY CLEAR
;GET THE WINDOW
;BR IF BIT IS A MARK
sERROR BIT WAS A SPACE
;CONTINE WITH TEST
sGET THE WINDOW
sBR IF BIT IS A SPACE
JERROR BIT WAS A MARK

sNEXT BIT
:DONE YET?
:BR IF NO
JCLOCK TRANSMITTER 14 MORE TICKS
JNEXT WORD is INSTRUCTION, ROMCLK PC=5304
:PORTS _LU-1
;RTS SAOULD BE CLEAR NOW
:BR IF YES
JERROR, RTS NOT CLEAR

srtmkeeneetevenetetrnenenner

BERELEE

MACY11 30A(1052)
08-JuL-80
PN
08-JuL-80 08:24

TEST

evnerteneneccnanencanrnnnnne

;*DDCMP TRANSMITTER TEST
s*SINGLE CLOCK A BINARY COUNT PATTERN
s*VERIFY EACH BIT POSITION AS |
s*PASSES THE BIT WINDOW (SI BIT)
s*ON AN ERROR, RS CONTAINS BIT POSITION OF FAILURE

;*AND RS CONTAINS THE CHARACTER THAT FAILED

JIRRRRARARRRNRARRENREREARRCRRRRRRRROERARERRRERRRRRRRROERRRERRRRERRREY

;

TEST 2%

MACY11 30A(1052)
08-JuL-80
PN
08-JuL-80 08:24

017062

017064

012737

017100
017102
017106
017110

104410
012711
005003
005004

017072

012737

017112
017114
017120
017126

005005
004737
012761
104412

017132
017136
017142
017144
017146
017150

004737
010461
104412
122110
005204
004737

017130

017154

122111

010461

017160
017162
017164
017170
017174
017176

104412
122110
004737
104413
005003
01050§

017206
017210
017214
017216
017220
017222
017226

103005
004737
103406
104006
000404
004737
103001

1;382
1

8}72

13:33
1
2

000023

017270

030412
000001

01
017256
017 gg
017

106412
122110
005205
022705

017250 010461

017266 001342

017270

001442

000004

122111

JSR
MOV
ROMCLK
122110
INC
JSR

48:
18:

28:
-

000004

5%:

#23,$TSTNM

0TSf24,NEXT
0%1111.(R1)
R
R4
RS
PC,OUTRDY
#1.4(R1)

PC,OUTRDY
R&.4(R1)

2222222222

; LOAD THE NO. OF THIS TEST
;R1

;s POINT TO THE START OF NEXT TEST.

CONTAINS BASE KMC11 ADDRESS

JMASTER CLEAR KMC11
JSET LINE UNIT LOOP
‘R3 CONTAINS BIT COUNT
R4 CONTAINS CHAR TO BE LOADED I.. SILO

sR5 CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT
JWAIT FOR OUT=READY
:SET BITO IN PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
SSET SOM!

ROMCLK
122110
JSR
PC,OCOR
DATACLK,
2
CLR
R3
MOV
RS,R2

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
:WAIT FOR OCOR TO SET
:2 TICKS TO SET UP TRANSMITTER
:CLEAR BIT COUNTER
:LOAD CHARACTER IN R2

R&,4(RY)

DATACLK,
RORB
R2

BCC
JSR
BCS
ERROR
8R
JSR
BCC

ERROR

INC

#10,R3

MOV

RG.&(RT)

BNE

28
PC,GETSI
3s
6
33
PC,GETSI
38

CMP

LK
122110
INC
CMP

000400

R4
PC,OUTRDY

BNE
INC
JSR

030412

SEQ 0074

;WAIT FOR OUT=READY
:LOAD PORT4 WITH CHARACTER
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
s INCREMENT TO NEXT CHARACTER
JWAIT FOR OUT=READY

MOV

030226

MOV

CLR
JSR
MOV
ROMCLK

000004

000001

MSTCLR
MOV
CLR
CLR

030412

030260
000002

SCOPE

MOV

030412
000004

81;3
005203
17234 022703 000010
881357
005204
004737

001202

AR R

t§123:

004000

104006

017%60
017242
017244

08:27
PAGE 75
BASIC TRANSMITTER TESTS

13
R4
PC,OUTRDY

RS
#400,RS

sLOAD PORT4 WITH CHARACTER

:SHIFT NEXT BIT IN THE WINDOW (SI BIT)
sSHIFT NEXT SOFTWARE BIT IN TO CARRY

:BR IF CARRY CLEAR
:GET THE WINDOW
:BR IF BIT IS A MARK
:ERROR BIT WAS A SPACE
;CONTINE WITH TEST
;GET THE WINDOW
:BR IF BIT IS A SPACE
:ERROR BIT WAS A MARK

sNEXT
BIT
:DONE YET?

:BR IF NO
:NEXT CHARACTER
:WAIT FOR OUT-READY

:LOAD PORT4 WITH CHARACTER

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
JNEXT CHARACTER
:DONE YET?

:BR IF NO

jetenantrtedeeeneeeenetneene

TEST

:«DDCMP STRIP SYNC TEST
1«SET LU LOOP, SINGLE STEP S5 SYNCS

SeVERIFY THAT IN ACTIVE DOES NOT SET

wtctcctncntnevncenvecnnnnnee

f—

E%KCF
MACY11 30A(1052)
08-JUL-80
KCF.P11
08-JUL-80 08:24

08:27
PAGE 76
BASIC RECEIVER TESTS

%;kg
4

3750

3751

375
3753
3754
3755
3756
3757
3758
3759
3760

3761
37
3763
3764

3765
3766
3767
3768
3769

R R R

017270

017272

017300
017306
017310
017314
017320
017324
017326
017332
017334
017336
017342
017346
017350
017352
017354
017356

000004

012737

104410
012711
012702
004737
000005
104413
104412
021244
016104
042704
005005
120504

000024

017356

001202

MOV

001442

MOV

#24 ,$TSTNM

#1125, NEXT

MSTCLR
MOV
#BIT11,(RT)
MoV
#12,R2
JSR
PC,SYNC
5
DATACLK,
54
ROMCLK
021244

004000
000012
030276
000054

000004
000277

MOV
BIC
CLR
CMPB

001401
104040

1%:

772

BEQ
ERROR

4(R1) R4
#277 R4
RS
RS ,R4
1%
40

3775

: “TE3Y &5

3779
3780
3781
3782

017356
017360
017366

784

017376

017374

017402
017406
017412
017414
0174

017422

000004
012737
012737
104410

012711

000025
017446

MSTCLR

000012
030276

MOV

#B81T11,(R1)

MOV
#12,R2
JSR
PC,SYNC
5
DATACLK,
64
ROMCLK

000064

021244

017424

016104

000004

MOV

4(R1) R4

793

017434

012705

000100

MOV

#BIT,RS

795
799
797
798
799

;BR IF YES
sERROR ACTIVE IS NOT CLEAR

TEST

snetncevsettnscnnennnntnens

0174

017440

017442
017444
017446

042704

120504

001401
104040

T T

;;Qtttt';ttttttt0".""."'"ttt!ttttltttttt..'lttt'.ttttt'l.ttt
TST25: SCOPE
MOV
#25,8TSTNR
: LOAD THE NO. OF THIS TEST
MoV
#1ST26 ,NEXT
s POINT TO THE START OF NEXT TEST.
sR1 CONTAINS BASE KMC11 ADDRESS

004000

01270;
004737
000005
104413
104412
021244

001202
001442

791

794

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 _LU12
;PUT "FOUND'' IN Ré
sCLEAR UNWANTED BITS
sPUT "EXPECTED'' IN RS
;1S ACTIVE CLEAR?

;*SET LU LOOP, SINGLE STEP 5 SYNCS AND A NON-SYNC (301)

70;

; POINT TO THE START OF NEXT TEST.

s*VERIFY THAT IN ACTIVE IS SET

3774

790

R LT

;R1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
;SET LU LOOP
;SAVE LU REG FOR TYPEOUT
;SINGLE CLOCK 5 SYNC CHARACTERS

;*DDCMP IN ACTIVE TEST

3773

3785
3786
3787
3788
789

R R R R R R R R

; LOAD THE NO. OF THIS TEST

sRRtRRERRRRR
R e e ennennnennnt

144

g?l!

R R

';tt'ttt;"tttttfittt't"'t"tt"'tttt't'QQQQttt!t.tttttttttttt'tt
tS124: scope

3770

9
3;;
3778

R R R

: TEST 24

gg:?

1748
3749

SEQ 0075

000277

BIC

CMPB

1$:

BEQ
ERROR

#277 ,R4

RS5.R4
1%
40

sMASTER CLEAR KMC1

;SET LU LOOP

sSAVE LU REG FOR TYPEOUT
sSINGLE CLOCK 5 SYNC CHARACTERS
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORTS _LUY2

;PUT "FOUND'' IN R4

:CLEAR UNWANTED BITS

;PUT "EXPECTEDTM IN RS

;1S ACTIVE SET?

:BR IF YES
+ERROR ACTIVE IS NOT SET

CIKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.P11
08-JuL-80 08:24

08:27

PAGE 77

BASIC RECEIVER TESTS

SEQ@ 0076

JeRrdnRterRRrRrRrenennenennn

TEST

weavennactnenenventteteanes

:*DDCMP IN ACTIVE TEST

s*SET LU LOOP, SINGLE STEP 1 SYNC AND A NON-SYNC (301)

s*VERIFY THAT [N ACTIVE DOES NOT SET
:

TEST 26

000026
017534

001202
001442

SCOPE

MOV
MOV

MSTCLR

MOV
MOV
#SR

#26,$TSTNM
#TST27 NEXT
#BIT11,(RT)
#12,R2
PC,SYNC

DATACLK,

ROMCLK

021244

MOV
BIC
CLR
CMPB

BEQ

ERROR

T2}

: LOAD THE NO. OF THIS TEST

;

POINT TO THE START OF NEXT

;R1 CONTAINS BASE KMC11 ADDRESS
;MASTER CLEAR KMC11
;SET LU LOOP
:SAVE LU REG FOR TYPEOUT
;SINGLE CLOCK 1 SYNC CHARACTERS

TEST.

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORTA _LU12

;PUT "FOUND'' IN Ré4

4(R1)
R 1),R i
’ 7 7.Ré
R
R
R4
1
4

sCLEAR UNWANTED BITS

;PUT “EXPECTED'" IN RS
;1S ACTIVE CLEAR?
;BR IF YES
;ERROR ACTIVE IS NOT CLEAR

JenRRRRReeRReReRenenedendnen

TEST

seennttndencnnnntnnntesnets

:*DDCMP IN ACTIVE TEST
s*SET LU LOOP, SINGLE STEP 2 SYNCS AND A NON-SYNC (301)
s*VERIFY THAT IN ACTIVE IS SET
SRR RAR AR R E R R RN R RPN

;

LN RN AR

RN AN RACRAREERREAACRERERRRSORESR

TEST 27

017570
17572

17576
17600

017616
017620

017552

SCOPE

MoV

8
S2pSR==g8e2s
—=ONNION
-

017534
017536
017544

S3333RII8ASIT
-isz\ni!izl~hlhflfifl'&hfi-“’ I
~N~

SRR ARERRRRRAARCEREARCNERENNERERERCERARRRRRAARRRERACARRCAORRRETS

017606
83;
35
017615
3356
55

PR NN~

N
N~

SNNNS

Pt ONO ==
B NVNANYN
2O

OO0-

OO ——

~
wv

WN = OOV

NO VWS

g 'oi;ie-ona RRERRRE
gs-‘-a — 2

A AA AR AR

aE®
el
ggso

N —=O

EEEREE g5t3 SSsEEeEReE g¥EaEsssrEre

HEAAL AR A

MSTCLR
MOV
MOV

MOV

JSR

2
DATACLK,

#27,81STNM

#TST30,NEXT

#BIT11, R1)
2,82

PC. SYNC

ROMCLK

021244
MOV

4(R1),Ré

BIC
MOV

#277,R4
0;116.ns

BEQ

(MPB

RS.R&

s LOAD THE NO. OF THIS TEST
: POINT TO THE START OF NEXT TEST.

sRT CONTAINS BASE KMC11 ADDRESS

JMASTER CLEAR KMC11
;SET LU LOOP
JSAVE LU REG FOR TYPEOUT
sSINGLE CLOCK 2 SYNC CHARACTERS

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 _LUT2

:PUT "FOUND" IN R4

:CLEAR UNWANTED BITS

:PUT_

"EXPECTED"'

;1S ACTIVE SET?
iBR IF YES

IN RS

MACY11 30A(1052)
08-JuL-80
P
08-JUL-80 08:24

08:27 PAGE 78
BASIC RECEIVER TESTS

017622

ERROR

017624

SEQ 0077
;ERROR ACTIVE

JRrRennnrrrdentrernnnnnwnnnne

TEST

J0)

IS NOT SET

wnavennnnanoneenananeeanene

s*IN CLEAR TEST
s*SYNC UP RECEIVER AND TRANSMIT A CHARACTER
;*WAIT FOR IN RDY, THEN SET IN CLEAR
s*VERIFY THAT IN ACTIVE AND IN RDY ARE CLEARED
AL

AR A

AR AR A A

TEST 30

oybt
T b L N~
SE
BNDPNANYSVO

2ongee88225 22
O b b

LEREEELEEE
R R3SeigEcgngages

017642
017644
017650
017654

OO0

0176;2
0176

CO—-=

017624

LA AR R

000030
017776

000012
004000
030444
000053
000002

357
000020

000200

001202
001442

SCOPE

MOV
MOV

MSTCLR

#30,$TSTNM
#TST31,NEXT

MOV

M2,R2

JSR

PC,CHAR

MOV
301

DATACLK,

TIMER,
ROMCLK

021244
MOV

#1111, (RD)
2

BIC
MOV

#357,R4
#B1T4,RS

8EQ
ERROR

1%
40

MOV

#B117,4(R1)

CMPB

ROMCL

RS5,R&

ROMCLK

021244
MOV

4(R1) R4

CLR

BIC

CMPB
BEQ
ERROR
000004

000357

017772
017774
017776

4(R1) ,R&

122112

000004
000277

R R

MoV

BIC

CLR
(MPB
BEQ
ERROR

cg77.a«

: LOAD THE NO. OF THIS TEST

; POINT TO THE START OF NEXT TEST.
:R1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
;SAVE REG ADDRESS IN R2 FOR TYPEOUT
sSET LINE UNIT LOOP
sLOAD SILO WITH 3 SYNCS
sAND A MON-SYNC

(301)

;SINGLE CLOCK THE DATA
sWAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

sPORTA LU 12

:PUT "FOUND"' IN Ré4

sCLEAR UNWANTED BITS

;PUT "EXPECTED'" IN RS

;1S INRDY SET?

;ERROR, INRDY IS NOT SET
;LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

sSET IN CLEAR
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 1

:PUT "FOUND'' IN R4

:CLEAR_UNWANTED BITS

:PUT

“EXPECTED''

IN RS

RS.R&
2%
40

;1S IN ACTIVE CLEAR?

4(R1) R4

;PUT ''FOUND'' IN R4
sCLEAR UNWANTED BITS
;PUT “EXPECTED"' IN RS
;1S INRDY CLEARED?

#357.R4
RS
RS5.R4
33
40

;ERROR, IN ACTIVE IS NOT CLEAR

;ERROR, INRDY IS NOT CLEARED

et ReeetvReRneenenenennenr

TEST

tettennenettteenetteenenane

E%KU
MACY11 30A(1052)
08-JuL-80
KCF.P11
08-JUL-80 08:24

08:27
PAGE 79
BASIC RECEIVER TESTS

3912
3913
3914

:*DDCMP BASIC RECEICER TEST
s*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0
J*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED

gg}s

gg};
3919

3920
3921

3922

3923
3924
3925
3926
3927
3928
3929
3930
3931
9

;
017776
020000

020006

020014
02001
020022
020026
020032
020034
020040
020044

020046

000004
012737

012737

104410
01%702
012711
004737
000000
104413
104414
104412

021244

3933
3934
3935

020050
020054
0

016104
042704
012705

3937
3938

020066
020070

001401
104040

020074

021204

3936

;939

3941

3942

3943
3944
3945
3946
3947

3069
3950

SEQ 0078

020064

8%8875
72

020076
020102
020104
020106
020110
020112

120504

005005
120504
001401
104010

R R

R R L

R R

TEST 31

;.'.t..'t:"".".'"""""Q"!"'.t..'tt".t""'t'!"""""'

000031

020112

001202

TST31:

001442

SCOPE
MOV

MOV

000012
004000
030444
000053
000002

000004
000357
000020

;PUT "FOUND'' IN R4
sCLEAR UNWANTED BITS
:PUT "EXPECTED'" IN RS

BEQ
ERROR

sPORT4 LU 12

4(R1) R4
#357 R4
#B1T4,RS

RS,R4
1%
40

;1S INRDY SET?

;ERROR, INRDY [S NOT SET

ROMCLK

MOV

2%:

: POINT TO THE START OF NEXT TEST.

MOV
BIC
MOV

021204

000004

; LOAD THE NO. OF THIS TEST

MSTCLR
MOV
#12,R2
MOV
#BIT11,(RY)
JSR
PC,CHAR
0
DATACLK,
53
TIMER, 2
ROMCLK

CMPB

1%:

#31,8TSTNM

#15132,NEXT

sR1 CONTAINS BASE KMC11 ADDRESS
JMASTER CLEAR KMC11
sSAVE REG ADDRESS IN R2 FOR TYPEOUT
sSET LINE UNIT LOOP
JLOAD SILO WITH 3 SYNCS
sAND THE CHARACTER 0
sSINGLE CLOCK THE DATA
sWAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

021244

104412

016104

CLR
CMPB
BEQ
ERROR

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

sPORT4 _IN DATA

4(R1) R4

sPUT *FOUND'' IN Ré

RS
RS,R4
2%
10

sPUT "EXPECTED'' IN RS
:WAS A 0 RECEIVED?
sERROR, RECEIVED DATA IS WRONG

Jnkendaseeseneateneneendenn TEST 32 sencsnecentsnnnennnnenesene

3951

s*DDCMP BASIC RECEICER TES/V

3953

s*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED

3952

s*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 125

3954

3955

gggg

3958
3959 020112
3960

3961

3%;
3963
3964

020114

000004

012737

000032

020130
020132

104410
012702

020146

000125

000012

3965 020136 012711 004000
3966 020142 004737 030444
3967

001202

020122 012737 020230 001442

L T

T T

T eIy

YESY 92

-;tnnt;nn"nnnnntnnnunnn:unnnnnnnnnnn
15132: SCOPE
MoV

MOV

MSTCLR
MOV

MOV
JSR
125

732 gTSTNI

"Sf 3.NEXT
”2,R2

#1117, (R
PC,CHAR

s LOAD THE NO. OF THIS TEST

s POINT TO THE START OF NEXT TEST.

sR1 CONTAINS BASE KMC11 ADDRESS
JMASTER CLEAR KMC11
sSAVE REG ADDRESS IN R2 FOR TYPEOQUT

;SET LINE UNIT LOOP
:LOAD SILO WITH 3 SYNCS
+AND THE CHARACTER 125

MACY11 30A(1052)
08-JuL-80
P11
08-JUL-80 08:24

020150
020154
020160
020162
020164
020170

020174

020200
020202
8%8282

104413
104414
104412
021244
016104
042704

012705
120504
001401
104040

020206
020210
020212
020216

104412
021204
016104
012705

020224
020226
020230

001401
104010

020222

120504

08:27
PAGE 80
BASIC RECEIVER TESTS

000053
000002
000004
000357

000020

DATACLK,
53
TIMER,
2
ROMCLK
021244
MOV
4(R1),R4
BIC
#357 Ré

;SINGLE CLOCK THE DATA
‘WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
‘PORT4 LU 12
‘PUT "FOUND"" IN Ré
:CLEAR UNWANTED BITS

CMPB
BEQ
ERROR

;1S INRDY SET?

MOV

000004
000125

#B114,R5

RS,R4
1%
40

;PUT "EXPECTED'' IN RS

:ERROR, INRDY IS NOT SET

ROMCLK
021204
MOV
MOV

4(R1) R4
#125,RS

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_IN DATA
:PUT "FOUND'' IN Ré
;PUT "EXPECTED'' IN RS

BEQ
ERROR

2%
10

;ERROR, RECEIVED DATA IS WRONG

CMPB

28:

SEQ 0079

RS,R&

:WAS A 125 RECEIVED?

shetanrereeteenetenetnennennt

TEST

aecnevnnctenenerannsnnannen

++DDCMP BASIC RECEICER TEST
;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252
S*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED
.':'.Q'l'Q".""Q""'!'t't"t"l't.t.t.'Q'Q't't.t'ttt'ttt'tttt't

;
020230
020232

200004
012737

020246
020250

104410
012702

020260
020264
020266
020272
ozogzs
020
020302
sog

004737
000252
104413
104414
104412
021244
016104
042704

020316
020320
8%83 2

120504
001401
104040

020240

020254

020312

012737

012711

012705

;;.tt".;.t.!""tt"".t""t'i".t'Q't'..QQ'Q.'QQ.Q'..'Q.Q.'Q"

000033

020346

3;8

020330

021204

016104

020334 012705
020340
020342

120504

001401

001202

TST33:

001442

MSTCLR
MOV

004000

MOV

030444

000053
000002

000004
000357

000020

000252

#33,8TSTNM

#TST34, NEXT
212,82

#1111, (RD)

: LOAD THE NO. OF THIS TEST

: POINT TO THE START OF NEXT TEST.

;R1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
;SAVE REG ADDRESS IN R2 FOR TYPEOUT

;SET LINE UNIT LOOP

JSR
PC,CHAR
252
DATACLK,
53
TIMER, 2
ROMCLK
021244
MOV
4(R1),R&
BIC
#357.Ré4

;LOAD SILO WITH 3 SYNCS
sAND THE CHARACTER 252
;SINGLE CLOCK THE DATA
;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 12
;PUT “FOUND"' IN R4
;CLEAR UNWANTED BITS

CMPB
BEQ
ERROR

;1S INRDY SET?

MOV
=

000004

SCOPE
MOV

MOV

000012

020324 104412
0

TEST 33

ROMCLK
021204

ogxrl.as
RS.R&
1%
40

MOV

4(R1),Ré4

(MPB

RS.R4

MOV

BEQ

o;sz RS
2%

:PUT “EXPECTED"

;ERROR, INRDY IS NOT SET

IN RS

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_IN DATA

;PUT 'FOUND''
IN R4

*PUT “EXPECTED"
‘WAS A 252

IN RS

RECEIVED?

MACY11

30A(1052)

08-JUL-80
08-JuUL-80 08:24

020344
020346

08:27

PAGE 81

BASIC RECEIVER TESTS

104010

ERROR

SEQ 0080

;ERROR, RECEIVED DATA IS WRONG

JerennRnrtrrentenenennnnnnnn

TEST

wevnnnnnneannanvanetnenonne

;*DDCMP BASIC RECEICER TEST
:*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377
s*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED
MEAAAAA AR AR

TEST 34

000034
020464

00120 2
00144 2

TST34:

SCOPE

MoV

#TST3S, NEXT

MSTCLR

MOV
MOV

000053
000002

DATACLK,
TIMER,
2

JSR

#12,R2
#BIT11, (RD)
PC,CHAR

377

ROMCLK

021244

000004
000357
000020

MOV

4(R1) R4

MOV

#B114,RS

BIC

#357 R4

; POINT TO THE START OF NEXT TEST.

;MASTER CLEAR KMC11

:SAVE REG ADDRESS IN R2 FOR TYPEOUT
:SET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS

*AND THE CHARACTER 377

;SINGLE CLOCK THE DATA
:WAIT FOR INRDY

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 LU 12

;PUT “FOUND"' IN R&

:CLEAR UNWANTED BITS

:PUT "EXPECTED'' IN RS

;ERROR, INRDY IS NOT SET

4(R1),R&

#377.RS

ERROR

gg.u

R R

:R1 CONTAINS BASE KMC11 ADDRESS

ERROR

MOV

NN TR

; LOAD THE NO. OF THIS TEST

;1S INRDY SET?

gga

l;:.n

MOV

000377

AR R AR R AR RN AR AR

gg:a

ROMCLK
021204

000004

#34,8TSTNM

000012
004000
030444

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_IN DATA
;PUT “FOUND'' IN R4

;PUT “EXPECTED" IN RS
:WAS A 377 RECEIVED?

;ERROR, RECEIVED DATA IS WRONG

serennRsenettevetetcentaneen

TEST

tecetvnennccnenennnnnnenner

;*DDCMP DATA TEST
s*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN
s*CHECKING EACH CHARACTER AS IT IS RECEIVED

JINEARRRRERREERRERARECRRAERERRARRRRRORARERRERRERRCERRROERTRRARRORTEETSE

;

Y 9

JrRRRARARRRARARRERROCORRESERRRROERRRRARRRRARRARARRRARRRRRRRERRRRRRRREY

020346
020350
020356

000035
020614

001 202
001 442

ST35:

SCOPE
MoV

MoV

#35,8TSTNM

#75736, NEXT

: LOAD THE NO. OF THIS TEST

; POINT TO THE START OF NEXT TEST.

:R1 CONTAINS BASE KMC11 ADDRESS

MACY11 30A(1052)

LS LS IV IV, ]

NNOO
=N
2 N O O W
PO NN N =NN~

<>¢>E;§5-‘-'
28228 22829
Esa"u3~:vq

2
255y

o
N
(=]

NINONONONOND

OCO0000000e

08-JUL-80
08-JUL-80 08:24

08:27

PAGE 82

BASIC RECEIVER TESTS
MSTCLR

031062
031064

1%:

031066

CLR
CLR
CLR
MOV
MOV
JSR

SCHAR
STUFLG
R2
#73,R3
#BIT11,(RT)
PC,SILOLD

JSR
ROMCLK

PC, INRDY

MOV
MoV

4(R1) R4
R2,R5

DATACLK,
DATACLK,

021204

000004

2%:

000400

CMPB
BEQ
ERROR
INC

;MASTER CLEAR KMC11

;START BINARY COUNT AT ZERO

;CLEAR BITSTUFF FLAG

:R§ IS "EXPECTED'' DATA
;R3 IS CHARACTER COUNT
;SET LINE UNIT LOOP
;LOAD SILO WITH COUNT PATTERN
sSYNC RECEIVER AND GET IT ACTIVE
CLOCK IN 73 CHARACTERS

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_IN DATA

;PUT "FOUND'' IN R4

;PUT "EXPECTED'' IN RS
;1S DATA CORRECT?
:BR IF YES
:DATA ERROR

CMP

#400,R2

JSR

PC,SILOLD

sNEXT CHARACTER
sALL DONE?
:BR IF YES
;DECREMENT CHARACTER COUNT
;BR IF SILO NOT EMPTY
;LOAD SILO WITH MORE OF COUNT PATTERN
;RELOAD CHARACTER COUNT
; CONT INUE

3%
R3
69

MOV
3$:

43
730

R5,R4
2%
10
R2

BEQ
DEC
BNE

030622
000073

SEQ 0081

175,83

JheRnkrttreetvenentevinnnrn

TEST

senacccnnencnenensnennannns

s*DDCMP DATA TESY
s*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN
s*CHECKING EACH CHARACTER AS IT IS RECEIVED
s*THIS TEST IS EXACTLY THE SAME AS THE LAST TEST,
s*EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12
NER AR AR A

;

AR A8 d

TEST 36

RN RN RN

— D

3334
R~ ses88
’U““‘U-“"fl:g

(=]

000036
020754

020676
020702

001202
001442

031062
031064

030622
000043
000730
031066

SCOPE

MOV

#36,3TSTNM

MSTCLR
CLR
CLR

SCHAR
STUFLG

MOV

CLR
MoV

000073

000040

75136

000004

R AN R R RN RN

CLR
MOV

ROMCLK

122112

JSR

DATACLK,

DATACLK,
JSR

#7537, NEXT

R;
#73,R3

(R1)
#BIT5,4(RY)
PC,SILOLD

PC, INRDY

730

R AR RN R AR AR R RN RN

AR RRRARRARRRRRRD

: LOAD THE NO. OF THIS TEST
: POINT TO THE START OF NEXT TEST.
:R1_CONTAINS BASE KMC11 ADDRESS

:MASTER CLEAR KMC11
:START BINARY COUNT AT ZERO
:CLEAR BITSTUFF FLAG
:R2 IS “EXPECTED" DATA
:R3_IS CHARACTER COUNT
:CLEAR LU LOOP IN MAINT REG

|
:LOAD PORTA
:NEXT WORD IS INSTRUCTION. ROMCLK PC=5304
:SET LU LOOP IN LU REG 12
:LOAD SILO WITH COUNT PATTERN
:SYNC RECEIVER AND GET IT ACTIVE

:CLOCK IN

73 CHARACTERS

SWAIT FOR INRDY

MACY11 30A(1052)
08-JuL-80
P11
08=JUL-80 08:24

36
7

38
39

020706

020710

020712
020716

104412

021204

016104
010205

40
41
4142
4143
4144
4145
4146
4147
4148

020720
020722
020724
020726
020730
020734
020736
020740
020742

120504
001401
104010
005202
022702
001407
005303
001360
004737

4150
4151

020752
020754

000751

4149

020746

08:27
PAGE 83
BASIC RECEIVER TESTS

012703

SEQ 0082

ROMCLK
021204

000004

MOV
MOV

28:

000400

030622

000073

(MPB
BEQ
ERROR
INC
CMP
BEQ
DEC
BNE
JSR

MOV

38:

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_IN DATA

4(R1),R4
R2,RS

:PUT ""FOUND'' IN R&4
;PUT "EXPECTED'' IN RS

RS.R&
28
10
R2
#400,R2
3$
R3
43
PC,SILOLD

:1S DATA CORRECT?
:BR IF YES
:DATA ERROR
:NEXT CHARACTER
;ALL DONE?
:BR IF YES
:DECREMENT CHARACTER COUNT
:BR IF SILO NOT EMPTY
;LOAD SILO WITH MORE OF COUNT PATTERN

#7583

:RELOAD CHARACTER COUNT

: CONT INUE

4154

JRerkeRnrertnterennennenwnnt

4155
4156
4157
4158
4159

;*TRANSMITTER MARK TEST
;*SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA
;*CLOCK TICKS, VERIFY THAT A 301, A 377 AND A 377
;*WERE RECEIVED INDICATING THAT THE TRANSMITTER WENT
;*TO A MARK STATE FOR 16 BITS WHEN OUT SILO WAS EMPTY

4160

4161

2}2%
61“

4165

4166

4167
4168
4169
4170
4171
4172
4173
41764
4175
4176

4177

4178

4179
4180

4181
4182
4183

4184
4185
4186

4187
4188

:
020754

000004

020764

012737

020756
020772
020774
021000
021004
021006
021012
021016

021020

021022

021026

021032
021034

021036
021040
8%1044

104410
012711
004737

004000
030444

016104
012705

120504
001401

021046
821050
021054

104010
004737
104412
021204
016104
012705

0%1062

082401

oztoog

004737

021060

4189

021064

4191

021072

4190

000037

021204

120504

104010
104412

TEST

wevnnnaennnvannannnevavtnns

R R R R AR R RN AR RN

R AR AR AR AR

RRERARRRS

TEST 37

;:ttltt"i"'!"t"t't‘itttttttttttt'.'t.ttQtt"'tt'..tttttt't.t'

012737

000301
104413
004737
104412

021114

001202

TST37:

001442

000004
000301

#TSTLO,NEXT

MSTCLR
MOV
JSR

#BIT11,(R1)
PC,CHAR

MOV

4(R1),R4

CMPB
BEQ

RS5,RG
1%

MOV

18:

000004
000377

031066

#37,8$TSTNM

MoV

301
DATACLK,
73
JSR
PC, INRDY
ROMCLK
0212

000073
031066

031066

SCOPE

MOV

ERROR
JSR
ROMCLK

10
PC, INRDY

021204
MOV
MOV

4(R1),R4
#377 RS

BEQ

(MPB

28:

#301,RS

ERROR

JSR

ROMCLK

R5,RL
10

PC, INRDY

.
|

; LOAD THE NO. OF THIS TEST

: POINT TO THE START OF NEXT TEST.
;R1 CONTAINS BASE KMC11 ADDRESS
;MASTER CLEAR KMC11
;SET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS
;AND A 301
:CLOCK THE 301 IN AND 20 EXTRA TICKS
:WAIT FOR INRDY
:NEXT WORD IS INSTRUCTION. ROMCLK PC=5304

:PORT4_IN DATA

:PUT "FOUND" IN R4
:PUT “EXPECTED''

IN RS

‘WAS A 301 RECEIVED?

;ERROR FIRST CHARACTER INCORRECT
;WAIT FOR INRDY
:NEXT WORD IS INSTRUCTION., ROMCLK PC=5304

:PORT4_IN DATA
;PUT "FOUND'' IN R4
:PUT “EXPECTED'"
IN RS

‘WAS A 377
;ERROR,

RECEIVED?

377 WAS NOT RECEIVED

‘WAIT FOR INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

me—

CZKCF
MACY11 30A(1052)
08-JuL~-80
CZKCF.P1N
08-JuL~-80 08:24
419
4193
4194
4195
4196
4197
4198
4199
4200
6201

0%1076
021076
0%1102
021106
021110
021112
021114

021204
016104
012705
120504
001401
104010

08:27
PAGE 84
BASIC RECEIVER TESTS

000004
000377

38:

021204
MOV
MOV
CMPB
BEQ
ERROR

SEQ 0083

;PORT4 _IN DATA
;PUT "'FOUND'' IN R4
;PUT "EXPECTED'' IN RS
sWAS A 377 RECEIVED?

4(R1),R4
#377 ,RS
RS.R4
3
10

JERROR,

177 WAS NOT RECEIVED

Rtk RkRnerernhrnenennnnnwnnn TEST L0 swonanannnennanevanennannnes

420
420
4204

s*CABLE TURNAROUND TEST
s*CLEAR LINE UNIT LOOP, SET DTR
;*VERIFY THAT RING AND MODEM READY ARE SET

4206

4205

s*CLEAR DTR, VERIFY THAT RING AND MRDY ARE CLEARED

4207
2%83

4210

4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221

;

021132
021134
021142
021144
021152
021154
021156

04
012737
012737
:
104410
032737
001004
032737
001473
005011
012761

4224
4225
4226

021170
021174
021176

104414
104412
021264

4228

021204

042704

4222
4223

4227

021114
021116
021124

021164
021166

021200

104412
122113

016104

4231
2%%%

021214

032737

000040
021342

001202
001442

020000

002050

040000

002050

000100

000004

020000

021230

032737

000004

4237
4238
4239
4240
4241
4242

021240
021244
021244
021246

042705

000200

4244
4245
4246
4247

021252
021256
021260
021262

4243

021250

104011

000004
000002

#40,$TSTNM
#TSTLY NEXT

MSTCLR
BIT
BNE
BIT
BEQ
CLR
MOV

#BIT13,STATY
.+12
#BIT14,STATY
2%
(R1)
#100,4(R1)

002050

4(R1) R4

MOV

#310,RS

BIT

BEQ
BIC

002054

RN R RN R AR AR A RN ARA R AR AR AN TR RN AR AR RN

1$:

0;3 R

#1713, sTAT
46
#B1T7,RS

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
sR1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
;1S LINE UNIT M8202?
sBR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN)
;1S TURNAROUND CONNECTOR ON?
sSKIP TEST IF NO
sCLEAR LINE UNIT LOOP
sLOAD PORT4

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET DTR
SWAIT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 _LU13

; PUT FOUND IN Ré
; CLEAR JUNK

++++NEW

: GET EXPECTED.

: IS LINE UNIT mMB202?
; NO RING ON MB8202

BIT

#8172,STATS

; NO THEN GO AHEAD.

BIC

#BIT7,RS

; YES=NO RING ON V.35 MODEM

CMP
BEQ

RS ,R4
1%

;
;
;
:

BEQ

38:

MOV
BIC

000200

020504
001401

005061
104412
122113
104414

SCOPE
MOV
MoV

TIMER,
ROMCLK
021264

000023

4234

001402

TEST 40

ROMCLK
122113

000004

001402
042705

021236

T1ST40:

000002

021222
021224

:%35

;;Qtt'ta;ttnt't'tt'ttttn"'ttttnttattt'ttttttttt.'tttttttt'tt-t

4229 021210 012705 000310
4230

ERROR

CLR
ROMCLK
122113
TIMER,

4(R1)
2

; IS THIS V.35 MODEM?

ARE RING AND MODEM READY SET?
WARNING! IF V.35 AND AUTO STARTED,
YOU WILL GET THIS ERROR. YOU MUST
MANUALL NASWER THE QUESTIONS FOR Vv.35.

sERROR, RING OR MRDY NOT SET

sCLEAR PORT4
+NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
+CLEAR DTR

gre——

T
e
é:*rgaamrcaJ~na$2nac»nac>8:
no

021

4251
4252
4253
4254
4255
4256

!unaanuaonuuaonfiafinafiafiz

4250

elelelelelelelele]

4248
4249

RL
Y
—

MACY11 30A(1052)
CZKCF
08-JUL-80
4 KCF.P11
08-JuUL-80 08:24

08:27

PAGE 85

BASIC RECEIVER TESTS

SEQ 0084

ROMCLK

000004
000023
020000

INSTRUCTION, ROMCLK PC=5304

4(R1),R4
#23,R4

BIS
BIT
BEQ
BIC

#BIT3,RS
#BIT2,STATS
4%
#B1T7,R4

; YES THEN EXPECT MRDY SET.
; 1S THIS v,35?

gg:fi

g:.RS

: ARE RING AND MRDY CLEAR?

(LR
gé;

002050

sNEXT WORD

021264
MoV
BIC

:PORT4 _LU13
: PUR FOUND IN R4
: STRIP JUNK

RS
OBéT13.STAT1

;
;

++4NEW

SET EXPECTED.
IS THIS A MB202?

000010
000004

002054

000200

120405
001401

: WARNING! YOU MAY GET THIS ERROR IF V.35
; AND AUTOSTART. YOU MUST MANNUALLY ANSWER

104011

ERROR

; ALL QUESTIONS IF v.35,

;ERROR, RING OR MRDY NOT CLEAR

JeRtRncteeenenenteennnnennns

TEST

wentnssarncnnanavanntnnenes

s*CABLE TURNAROUND TEST
;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO
J*VERIFY THAT ALL MODEM SIGNALS ARE SET
MR

AR AR

TEST &1

R RARAR AN RRARANAR

021342
021344
021352

000041
021536
020000

002050

040000

002050

004000

4301
430
430

000002
000001

TST41:

BIT
BNE
BIT

000004

#61,8TSTNR
#TST4L2 NEXT
#B17113,5TAT
.12
#BIT14,5TAT

BEQ
1%
MOV
#BIT11,(RY)
MOV
#1100, ~ 4(RV)
ROMCLK

000004

122113
TIMER,

MOV

000004

ROMCLK
122111

031530
000050

SCOPE

MOV
Mov

MSTCLR

nN
~N

— e

2-.

) b b
N
~N
- s~
Py

000100

021436
021442
021444
021446
021452
021454
021454
021456
021460

001202
001442

RN ENRRERA

#1,4(R1)

JSR

RS, MESLD

MOV

#50,R0

ze‘sw

CLR
ROMCLK

021264

MoV

(R1)

4(R1),R4

RN RRARRRAAARERORERARRAARRGCARARENNRSE

: LOAD THE NO. OF THIS TEST
s POINT TO THE START OF NEXT TEST.

sR1 CONTAINS BASE KMC11 ADDRESS
JMASTER CLEAR KMC!

;IS LINE UNIT MB202?
sBR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN)
;IS TURNAROUND CONNECTOR ON?

:SKIP TEST IF NO
:SET LINE UNIT LOOP
:LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:CLEAR ALL MODEM SIGNALS,EXCEPT DIR
WALT

:LOAD PORT4

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*SET SOM

SFILL OUT DATA SILO
‘WITH 64 CHARACTERS

:PREPARE FOR DELAY

;CLEAR LINE UNIT LOOP
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
‘PORT4 LU13

;PUT "FOUND'' IN R4

l‘fiJCDCFJ‘CDCFC>C>iENLFIDi:

D
e e e

e o

VI WAWA WA WAL
B I &»
WNWNWWNINON)
= -2
O~~~

j=l=1=] CO0O00O0O0000O

LS LS LN LN

4304
4305

N TN T TN LNT NT VT N LS [N ]

MACY11 30A(1052)
( KCF
08-JUL-80
CZKCF.P1
08-JuL~-80 08:24

042704
012705

000023
000354
000004

032737
001402
042705

000200

032737

020000

08:27

PAGE 86

BASIC RECEIVER TESTS

BIC

002054
-

002050

#23 R4

#354 RS
#B1T2,5TATS

:PUT "EXPECTED’' IN RS

RIC

#B1T7,RS

;

BIT

#BIT13,STAT1

;IS LINE UNIT M8202?

BIC

#BI1T7.RS

:NO RING ON M8202

BEQ
DEC
BNE
ERROR

1%
RO
28
11

BEQ

. +6

CMPB

104011

RS,R4

NO RING ON V.35

:BR IF NO

:COMPARE EXPECTED AND FOUND

:BR IF OK
:DEC DELAY COUNT
:BR IF NOT ZERO
:ERROR, ALL SIGNALS ARE NOT SET

: WARNING YOU MUST MANUALLY ANSWER QUESTIONS
: IF YOU HAVE V.35,

021536

;CLEAR UNWANTED BITS

MOV
BIT

BEQ

000200

SEQ 0085

JRRRARRRRRNCCRRCOCRRIRORNRRRRnndn

TEST

suntasannaanasaaenetasnttnat

s*TEST OF CRC OPERATION
s*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER

:*0, VERIFY THE LSB OF THE BCC ON EACH SHIFT
s*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC
A

AR A

AR AR AR

edy

TEST 42

AN R AR AN AR

021536
021540
021546
021554

000042
022052
021570

021562

004737
000

001202
001442
001444

000000
021646
031232
000021
000001

SCOPE

MOV
MOV

MOV

MSTCLR

004000
031572
120001

TST42:

648:

031226
021644

658:

031122

668:
678:
031344

MOV
JSR
CLR
MOV

688:

RN R RN IR AN RN RN AN RN AR AN RA AR RN EANREERE RN

#42,$TSTNM
#TSTAS NEXT

#6438 ,L0CK

#BIT11,(RD)
PC.CLRIO
RO
#CRC16,XPOLY

MOV
668
CLR
67%
JSR
PC.BCCLD
0
DATACLK,
%1
DATACLK.
INC
RO
JSR
RS.SIMBCC
1

0
0
BCS
JSR

NN NS

: LOAD THE NO. OF THIS TEST
;s POINT TO THE START OF NEXT TEST.

: ADDRESS FOR LOCKX ON DATA.

;R1 CONTAINS BASE KMC11 ADDRESS
‘MASTER CLEAR KMC11

*SET LU LOOP
:CLEAR BCC REGISTERS
*START SHIFT COUNTER AT ZERO
:-LOAD POLYNOMIAL FOR SOF TWARE BCC

SLOAD CHAR FOR SOF TWARE BCC
:CLEAR OLD SOF TWARE BCC
*LOAD OUT SILO WITH 2 SYNCS
*AND THE CHARACTER 0
*GET TRANSMITTER ACTIVE

*SHIFT BCC ONCE
‘BUMP SHIFT COUNT
:CALCULATE SOF TWARE BCC LSB
SONE SHIFT

PC,GETQO

:DATA CHARACTER
0LD BCC
‘BR IF SOFT BCC LSB IS SET
1GET HARDWARE TRANSMITTER BCC LSB

‘ERROR, BCC LSB IS SET

688

BCC

69%

BR
JSR

698
PC,GETAD

ERROR

031344

‘BR IF WARD BCC LSB IS CLEAR

: CONT INUE
1GET WARDWARE TRANSMITTER BCC LSB

CZKCF
MACY11 30A(1052)
08-JuUL-80
CZKCF.P11
08-JuL~-80 08:24

021670

103401

4361
4362
6363

021672
021674
021674

006037

4365
4366
4367
4368
4369
4370

021706
021712
021714
021716
021724
0217

022700
001346
104405
012737
004737
005000

4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
B
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
44601
4602
4403
4404
4405
4406
4407
4408
44609
4610
4611
4612

021740
021746
021752
021756
021760
021764
021770
021772
021776
022000
022002
022004
022006
022012
022014
0%%816
022020
022024
022026
0220
022030
022034
022042
022046
022050
022052

012737
005037
004737
000000
104413
104413
005200
004537
000001
000000
000000
103405
004737
103006
104013
0004
004737
103401
104017

022052
022054
022062

000004
012737
012737

4615

022076

104410

4364

4371

22}2

021700

021732

08:27 PAGE 87
BASIC RECEIVER TESTS

104016

013737

012737

006037
013737
022700
001346
104405

021644

031230
000010

021646

021724
031572

001444

120001

031226

000000
022002
031232

;BR IF HARD BCC LSB IS SET
*ERROR, HARD BCC LSB IS CLEAR

ROR

668

;SHIFT SOFT DATA

BNE
SCOP1
MOV

65%

:BR IF NOT DONE
:SCOPE SUBTEST (SW09=1)
*NEW SCOPE1

CLR
MOV
MOV

RO
#CRC16,XPOLY
#0,73%

JSR

PC,BCCLD

CLR

0
DATACLK,

728:

DATACLK.

738:
748:

1
0
0

INC
JSR

031122

BCS

031356

758:

‘CLEAR BCC REGISTERS

74%

;CLEAR OLD SOF TWARE BCC

:START SHIFT COUNTER AT ZERO
:LOAD POLYNOMIAL FOR SOF TWARE BCC
:LOAD CHAR FOR SOF TWARE BCC
:LOAD OUT SILO WITH 2 SYNCS

32
1

RO
RS,SIMBCC

SAND THE CHARACTER 0
*GET RECEIVER ACTIVE

:SHIFT BCC ONCE

:BUMP SHIFT COUNT
:CALCULATE SOF TWARE BCC LSB
:ONE SHIFT
:DATA CHARACTER
:0LD BCC

:BR IF SOFT BCC LSB IS SET

ERROR
BR

13
768

:ERROR, BCC LSB IS SET
+ CONT INUE

76%

:BR IF HARD BCC LSB IS SET

738

:SHIFT SOFT DATA

728

:BR IF NOT DONE

76$

JSR

PC,GETAL

ERROR

MOV
CMP

CALBCC,748
#10,R0

BNE

PC,CLRIO

758

ROR

022002

#71%,L0CK

:LOAD OLD SOFT BCC
‘DONE YET?

PC,GETAL

BCS

CALBCC,678
#10,R0

JSR

BCC

031356

022000
031230
000010

69
16

JSR

022000

000032
000001

BCS
ERROR
MOV
CMP

718:

SEQ 0086

SCOP1

:GET HWARDWARE RECEIVER BCC LSB

:BR IF MWARD BCC LSB IS CLEAR

‘GET MARDWARE RECEIVER BCC LSB

:ERROR, BCC LSB IS CLEAR
:LOAD OLD SOFT BCC
:DONE YET?
:SCOPE SUBTEST (SwW09=1)

jeeramtvenneenetenertenstees

TEST

nwevevcccnnncnncenennennnens

s*TEST OF CRC OPERATION
:'g; NG THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER
s"
VERIFY THE LSB OF THE BCC ON EACH SHIFT

;«TEST TRANSMITTER FIRST THEN THE RECEIVER BCC

JINRRRARRENRRRRRRERERRRRRRRRRRRRARTRNRREERRRERNRRCTCERRROROERRRERRRTY

:
SRR

022070

012737

000043
022365

022104

001202
001442

001444

TEST &3

RARRRAR R AR ERRRRRRRERRRROARRNRRARRARRRRRORERRRARRRERRORCROERRRRRRETY

TS143:

SCOPE

MOV

#43,8T1STNN

MOV

#648,10CK

MOV
MSTCLR

#75744, NEXT

; LOAD THE NO. OF THIS TEST

: POINT TO THE START OF NEXT TEST.
* ADDRESS FOR LOCK ON DATA.
:R1 CONTAINS BASE KMC11 ADDRESS
{MASTER CLEAR KMC11

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
0B-JUL-80 08:24

4416
4617
4618
4419

4620

02%100
022104
022110
02 118

022120

012711
004737
005
012737

012737

120001

—

648:
031226

022160

MOV
JSR
CLR
MOV

MOV

SEQ 0087

#BIT11,(RT)
PC,CLRID
RO
0§R%16 XPOLY

#377,668;

005037
004737
000377
104413
104413
005200
004537
000001
000000
000000
103405
004737

4634
4435
4436

0221764
022176
022200

104012
000404
004737

4438
4439
4440
4441
4442
4443
44bh
4445
4h4b
4447
4648

022206
022210
022210
022214
022222
oggs;s
0
022232
022240
022244
022246

104016

013737
022700
001346

031230
000010

022162

MOV
CMP
BNE

CALBCC,678
#10,R0
658

012737
004737
005000
012737

022240
031572

001444

MOV
JSR
CLR
MOV

#718,L0CK
PC,CLRIO
RO
ogac1$ XPOLY

:LOAD OLD SOFT BCC
:DONE YET?
:BR IF NOT DONE
:SCOPE SUBTEST (SW09=1)
*NEW SCOPE1
;CLEAR BCC REGISTERS
:START SHIFT COUNTER AT ZERO
:;LOAD POLYNOMIAL FOR SOF TWARE BCC

4450

022262

005037

022316

CLR

748

:CLEAR OLD SOF TWARE BCC

4437

4449

4451

4452

0222064

022254
022272

4454

022

4456
4457
4458
4459

022306
022312
022314
022316

4461

022322

4463

4460

‘4o§
4hbh
4465

103401

006037

104405

012737

031344

ERROR
BR
JSR

000021
000001

031122
668:
67%:

022160

120001

000377

688:
698:

718:

031226

022314

022304

022320

02 gis

104413 000032
104413

000001

004537
000001
000000
000000

031122

004737

031356

005200

103405

103806

BCS

69%

ERROR

ROR

JSR

377

728:

DATACLK.

44b

g §3&2

104017

471

022356 022700 000010

4&25
022344
37 022314
470 022350 013737 031230 022316

PC,BCCLD

;SHIFT SOFT DATA

:LOAD CHAR FOR SOF TWARE BCC

:LOAD OUT SILO WITH 2 SYNCS
32

758

JSR

:ERROR, HARD BCC LSB IS CLEAR

#377,788;

B8CS

JSR
1
0
0

:BR IF HARD BCC LSB IS CLEAR

:BR IF MARD BCC LSB iS SET

668

:CLEAR OLD SOF TWARE BCC
sLOAD OUT SILO WITH 2 SYNCS
sAND THE CHARACTER 377
1GET TRANSMITTER ACTIVE
SSHIFT BCC ONCE
‘BUMP SHIFT COUNT
sCALCULATE SOFTWARE BCC LSB
:ONE SHIFT
:DATA CHARACTER
:0LD BCC
:BR IF SOFT BCC LSB IS SET
sGET MARDWARE TRANSMITTER BCC LSB

:ERROR, BCC LSB IS SET
: CONT INUE
:GET HARDWARE TRANSMITTER BCC LSB

INC

RS.SIMBCC

PC,GETQI

:AND THE CHARACTER 377

:GET RECEIVER ACTIVE
;SHIFT BCC ONCE

‘BUMP SHIFT COUNT

:CALCULATE SOF TWARE BCC LSB
:ONE SHIFT
*DATA CHARACTER
:0LD BCC

:BR IF SOFT BCC LSB IS SET

:GET MARDWARE RECEIVER BCC LSB

734

:BR IF WARD BCC LSB IS CLEAR

758:

BR
JSR

768
PC,GETAl

: CONT INUE
:GET MARDWARE RECEIVER BCC LSB

ERROR

:ERROR, BCC LSB IS CLEAR

#10,R0

:DONE YET?

ERROR

031356

12
698
PC,GETQO

DATACLK,

BCC

104013

103401

69%

MOV

738:
7%8:

000404
004737

022340

BCC

SCOP1

000377

02 ise
022334

6‘69

658:

022266 004737 031232

4453 ozdgzg
4455

103006

031344

‘LOAD CHAR FOR SOF TWARE BCC

02%1%6
022132
022136
022140
022144
022150
022152
022156
022160
022162
022164
022166

022172

CLR
67%
JSR
PC,BCCLD
377
DATACLK,
21
DATACLK.
1
INC
RO
JSR
RS,SIMBCC
1
0
0
BCS
68$
JSR
PC,GETQO

;SET LU LOOP
*CLEAR BCC REGISTERS
:START SHIFT COUNTER AT ZERO
sLOAD POLYNOMIAL FOR SOFTWARE BCC

4421
4622
4423
4424
4625
4426
4427
4428
4429
4630
4631
4632

4,33

0;216%
03123

08:27
PAGE 88
BASIC RECEIVER TESTS

004200
031572

000377

———

BCS

ROR
MOV

CMP

79(

738
CA BCC, 748

:ERROR, BCC LSB IS SET

:BR IF MARD BCC LSB IS SET

;SHIFT
SOFT DATA
:LOAD OLD SOFT BCC

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JUL-80 08:24

L47?2

4473
4474

4475
4476
477
4478
4479
4480
4481
4482

022362

022364
022366

08: 27 PAGE 89
BASIC RECEIVER TESTS

001346
104405

77%:

BNE
SCOP1

SEQ 0088

72%

;BR _IF NOT DONE
:SCOPE SUBTEST (Sw09=1)

JennnkReRenteneraneennvnnnnn

s*TEST OF

TEST

wevnnecensonnnocnnennnentns

CRC OPERATION

:*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER
14125 VERIFY THE LSB OF THE BCC ON EACH SHIFT

-resf TRANSMITTER FIRST THEN THE RECEIVER BCC
A

4483
LLB4

22222}

TEST 44

4485
4686

."Q""'t'.t"""""'t""""lt.'.tt".ti.'Q'tt"t'."'.."'

4487

(NN
NN

4488

Wb
N=O

4489
4490
469N
4492
4493
L4946

000044
022702
022420

< SSNRIRNESS82KS8

8-.‘
B el o

MOV
MOV
64%:

031226
022474

ERteiasaontes

120001
000125
022476
031232

000021
000001

65%:

031122

66%:
67%:

031344

225
33 0022576

CLR

678

gsn

RS,SIMBCC

JSR

69$:

71%:

0125,668;

JSR
PC,BCCLD
125
DATACLK,
21
1
DATACLK .
INC
RO

BCC

68$%:

#TST4S,NEXT
#648,L0CK
#BIT11,(R1)
PC,CLRIO
RO
#CRC16, XPOLY

0
0
BCS

ERROR
8R
JSR

BCS

ERROR
ROR

MOV
CMP
BNE
SCOP1
MOV
JSR
CLR
MOV

MOV
CLR

; LOAD THE NO. OF THIS TEST

#44,8TSTNM

MOV
JSR
CLR
MOV

MOV

022476

546

SCOPE
MOV

MSTCLR

004000
031572

4495

44696
4497
4498
4499
4500
4501
4502
4503

001202
001442
001444

TST44:

; POINT TO THE START OF NEXT TEST.

: ADDRESS FOR LOCK ON DATA.
;R1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
;SET LU LOOP
;CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOF TWARE BCC
;LOAD CHAR FOR SOF TWARE BCC

sCLEAR OLD SOFTWARE BCC
;LOAD OUT SILO WITH 2 SYNCS
sAND THE CHARACTER 125
sGET TRANSMITTER ACTIVE
sSHIFT BCC ONCE
;BUMP SHIFT COUNT

+CALCULATE SOF TWARE BCC LSB
:ONE SHIFT
;DATA CHARACTER
;0LD BCC

PC cttoo

696

PC,GETQO

:BR_IF SOFT BCC LSB IS SET

:GET HARDWARE TRANSMITTER BCC LSB
;BR _IF HARD BCC LSB IS CLEAR
Ellfl?uugtc LSB IS SET

;GET MARDWARE TRANSMITTER BCC LSB

69%

:BR IF WARD BCC LSB IS SET

66%

sSHIFT SOFT DATA
:LOAD OLD SOFT BCC

CALBCC,678
#10,R0

65%

#718,L0CK
PC,CLRIO
RO
#CRC16,XPOLY

925,7%8;
$

;ERROR, HARD BCC LSB IS CLEAR

:DONE_YET?

IR IF NOT DONE

OPE SUBTEST (Sw09=1)

W SCOPE 1
" REGIS ERS
IFT COUNTER AT ZERO
YNOM IAL F FOR SOF TWARE BCC
R FOR SOF TWARE BCC
D SOFTWARE BCC

MACY11

VWS
—

saestsmmmayens
—

000032
000001

§-.
£
022702

PAGE 90

BASIC RECEIVER TESTS

SEQ@ 0089

72%:

PC.BCCLD
JSR
125
DATACLK,
32
1
DATACLK,
INC
RO
R5,SIMBCC
JSR

73%:
74%:

0
0

031122

031356

022630
031230
000010
4551

08:27

031232

031356

ooococ o000

28228
SIS8SSUS IS

30A(1052)
08-JuUL-80
08-JuL-80 08:24

737 RADORZZ &

75%:
76%:

77%:

sLOAD OUT SILO WITH

JAND THE CHARACTER 125

;GET RECEIVER ACTIVE
sSHIFT BCC ONCE

sBUMP SHIFT COUNT
sCALCULATE SOFTWARE BCC LSB
JONE SHIFT
sDATA CHARACTER
;O0LD BCC
;BR IF SOFT BCC LSB
;GET MARDWARE RECEIV
;BR IF HARD BCC LSB
;ERROR, BCC LSB IS
s CONTINUE
;GET HARDWARE RECEI
sBR IF HARD BCC LSB
;ERROR, BCC LSB IS C

758

BCS
JSR
BCC
ERROR
BR
JSR
BCS
ERROR

PC,GETAI

76$
13
768

PC,GETQI

76$
17

73%
CALBCC,748

ROR

MOV
CMP
BNE
scorP1

SYNCS

;SHIFT SOFT DATA
;LOAD OLD SOFT BCC
;DONE YET?
;BR _IF NOT DONE
:SCOPE SUBTEST (Sw09=1)

#10,R0

72%

Jeakntttenieranetneenennenee

TEST

sencnansctavevennntnnnannae

s*TEST OF CRC OPERATION
s*USING THE CRC1 POLYNOMIAL, SINGLE CLOCK THE CHARACTER

14252

ieTES
AR

AR A

VERIFY THE LSB OF THE BCC ON EACH SHIFT
TRANSMITTER FIRST THEN THE RECEIVER BCC

A A

AR A

A R

sd’

TEST 45

MOV

MSTCLR

~ ~

648:

RN RN AN

RN AR RN AR RN R AN RARARRRERRANCERARARARRES

#TST46, NEXT
#648,L0CK

MOV

#1711, (RD)

CLR
MOV

RO
s agte XPOLY

JSR

MOV
CLR
JSR

: LOAD THE NO. OF THIS TEST
: POINT TO THE START OF NEXT TEST.
: ADDRESS FOR LOCK ON DATA.

#45,3TSTNM

PC,CLRID

#252,668;
67%
PC,BCCLD

658:

252
21
DATACLK,
1
DATACLK.
INC
RO
{sa
RS,SIMBCC

66%:

:R1 CONTAINS BASE KMC11 ADDRESS

:MASTER CLEAR KMC11
:SET LU LOOP

:CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO
:LOAD POLYNOMIA'. FOR SOF TWARE BCC
:LOAD CHAR FOR SOF TWARE BCC
;CLEAR OLD SOF TWARE BCC
:LOAD OUT SILO WITH 2 SYNCS
:AND THE CHARACTER 252
:

et
ot

W
NNN

NNES

SCOPE

MOV
MOV

4582

653% 002301

— e APV ANNININO
AN
W=t
ed
<8WWRINI
N=-O

NN~

774

whs SN

0227
2740
274
7
8

4571
45
45
4574
4575

o 855138

022726

4569

-‘iz Prur iy
§8
$3338883c8s

o °°°§

SRR ARARA R AR RN AR R

75145:

RANSMITTER ACTIVE
C ONCE
FT
COUNT
; SOF TWARE BCC LSB
R

CZKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.P1
08-JUL-80 08:24

4602

023076

4604

053112

023104

4605
4606
4607
4608
4609
4610
4611
4612
4613
4616
4615
4616

023116
023122
023124
023130
023134
023136
0 g1£2
023144
023146
023150
023152
023156

4618
4619

023162
023164

4620

4621
662§

4623

4626
4627
4628
4629
4630

4631

4632
4633
4634
4635
4636

§§§%§8§§§
NN

001444

023172
023174

023174

023212
023214
023216

PC,GETQO

69%
12

698

PC,GETQO

;GET HARDWARE TRANSMITTER BCC LSB

69%

;BR IF HARD BCC LSB IS SET
;ERROR, HARD BCC LSB IS CLEAR

#71%,L0CK

71%:

PC,CLRIO

RO
#CRC16, XPOLY

031226
023144

#252,73s;
748

PC,BCCLD

72%:

DATACLK,
DATACLK,

1
RO
R5,SIMBCC

75%

031356

PC,GETAl

031356

768
PC,GETQI

76%
13

023160

023170

;0LD BCC
;BR IF SOFT BCC LSB IS SET
:GET HARDWARE TRANSMITTER BCC LSB
;BR _IF HWARD BCC LS3 IS CLEAR
;ERROR, BCC LSB IS SET
s CONT INUE

68%

66%
CALBCC,67%
#10,R0
65%

023012

~
=n
~

69%:

74$%:

-~ -~

4617

68%:

031344

BCS
JSR
BCC
ERROR
BR
JSR
BCS
ERROR

SEQ 0090

738:

- N

4603

023074

4601

67%:

031344

WM
NN NNO NNWO

02;892

4599

4600

VIR

8882288238 £ER NSNS
s 3% Fode23us

023012

0%
14
023016
023022
023024
0%30 6
0230
0230
023036
023040
023040
023044
0 3852

4584

4585
4586
4587
4588
4589
4590
4591
4592
4593
4596
4595
4596

08:27 PAGE 9
BASIC RECEIVER TESTS

023144
031230
000010

75%:

76$
17

76%:

738
CALBCC,748

023146

#10,R0

77%:

;SHIFT SOFT DATA
;LOAD OLD SOFT BCC
;DONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (Sw09=1)
sNEW SCOPE1
sCLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO

;LOAD POLYNOMIAL FOR SOF TWARE BCC
sLOAD CHAR FOR SOF TWARE BCC
;CLEAR OLD SOF TWARE BCC
sLOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 252
sGET RECEIVER ACTIVE
;SHIFT BCC ONCE
:BUMP SHIFT COUNT
sCALCULATE SOF TWARE BCC LSB
sONE SHIFT
sDATA CHARACTER
;0LD BCC
. é S SET
sBR IF SOFT BCC LSB
;GET HARDWARE RECEIV R BCC LSB
:BR _IF HARD BCC LSB é S CLEAR
;ERROR, BCC LSB IS SET
: CONTINUE
3 B CC LSB
+GET HARDWARE RECEIVER
;BR IF HARD BCC LSB IS S ET
;ERROR, BCC LSB IS CLEAR

sSHIFT SOFT DATA

sLOAD OLD SOFT BCC

;DONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (Sw09=1)

JekkknnettResttteeravnenenen

s*TRANSMITTER CRC TEST
;*USING THE CRC16 POLYNOMINAL

TEST

tevtvnnecccnnnncnncnnenenee

SINGLE CLOCK A BINARY

:*COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT
::"l'""Q""""'Q"'.Ql.'titliltl.lll'l.ttl".i'.'l.l'ti'lll

4637

4638

JiMRRRAERRARAARRAALCECERRRORRRERROOERRERAREROERRAARRRRRRROEROARERRRRRTRRY

CIKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.P11
08-JUL~-80 08:24
4640

4641
222

0
50
023226

464k

4645
4646
4647
4648
4649

4650

4651

0
023242
023244
023246
023250

023254

000004

015737
012737

104410

000046
023454

012711
005003
005004
oosogs
005037

023352

004737

031374

012737

4654
4655

023274
023276

4657
4658
4659

023304
023306
023310

104412
122110
005204

4661
4662
4663
4664

023316
023320
023322
023326

104412
122110
004737
104413

030260
000021

4666

023336

104413

000001

4669
4670
4671
4672
4673

023350
023352
023354
023356
023362

4676
4677
:g;g

023370
023374
023376

4680

023400

4656 og

4660

4665

023312

023332

010461

120001

oggg

104412

122110
005204

010461

010537

oo1zog
00144

SCOPE

MOV
MOV

MSTCLR

031226

JSR

PC,SYNLD

ROMCLK

122110
INC

000004

MOV

ROMCLK
122110
INC

000004

023350

ognn,m)
R
Ré
RS
4

MOV

1%:

28:

#CRC16,XPOLY

R&,4(R1)

R4 ,4(R1)

JSR
1

RS,SIMBCC

4684 ofiu 852703 000010
4685
1346

CMP
BNE

#10,R3
23

4688
4689
4690
4691
469,

CMP
#400,R4
BLE
9%
MOV
R4 ,4(R1)
ROMCLK
122110

023350

4683

023412

005203

4686
4687

023422
023424

005003
005204

4682 023404 oc‘cgru” 031230 023352

4693

4696

4695

0 ;:
ozg‘o‘ 000400
0
go 04
023434
010461 000004
ozs“g 104641
ozgz&
12;11
023444

005205

023452

001327

02346 022705

000400

68:

JSR
BCS
ERROR

INC

CLR
INC

9s:

;R4

NE UNIT LOOP

‘8 BIT COUNT

CONTAINS CHMAR TO BE LOADED IN SILO
;RS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT
;CLEAR SOFT BCC

;NEXT GORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 CHAR

;NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
; INCREMENT TO NEXT CHARACTER
;PORT4 _CHAR

;SHIFT BCC ONCE
sCALCULATE SOFT BCC
:SOFT SHIFT COUNT
:SOFT CHARACTER
;0LD SOFT BCC
;BR IF SOFT BCC LSB IS SET

RS,3$

CALBCC,48

DATACLK,1

MOV

ROR

023400

4681

START OF NEXT TEST.

sNEXT QORD IS INSTRUCTION, ROMCLK PC=5304

BCC

5$:

POINT TO THE

ROMCLK
122110
JSR
PC,OCOR
DATACLK,
21

MOV

031344

CON TAINS BASE KMC11 ADDRESS
;MASTER CLEAR KMC11

;LOAD OUT DATA
; INCREMENT TO NEXT CHARACTER

20
6%

004737
103401
104021

; LOAD THE NO. OF THIS TEST

ERROR
BR

104020
000404

SEQ 0091

RG.4(RT)

58
PC.GETQO

031344

;LOAD POLYNOMINAL
;LOAD SILO WITH 2 SYNCS, SOM SET
:PORT4_CHAR

0
0
BCS
JSR

4674 ozg
4675 8%

38:
is:

#46,8TSTNM
#15T47 NEXT

MOV
CLR
CLR
CLR
CLR

MOV

000004

4667 og 2 004537 031122
4668
000001
000000
000000
103405
004737
103006

TST46:

004000

465

4653

08:27
PAGE 92
BASIC RECEIVER TESTS

PC,GETQO
68
21

R3
R&

INC

BNE

CMP

#400,R5

;:LOAD OUT DATA
:WAIT FOR OCOR
;CLOCK DATA

:LOAD CHAR FOR SOFT CRC

;GET HARDWARE TRANSMITTER BCC LSB

:BR IF OK (CLEARED)
;ERROR, BCC LSB WAS SET
;CONTINUE WITH TEST
:GET MARDWARE TRANSMITTER BCC LSB
(SET)
OK
IF
:BR
LSB WAS CLEAR
BCC
:ERROR,

sSHIFT SOFT DATA
sLOAD OLD SOFT BCC
s INCREMENT BIT COUNTER
+sDONE A FULL CHARACTER YET?
:BR #F NO
sRESTART BIT COUNTER
s INCREMENT DATA FOR SILO
;DONE BINARY COUNT YET?

Bl 1

sNEXT QORD IS INSTRUCTION, ROMCLK PC=5304

sLOAD OUT DATA
s INCREMENT DATA
sDONE BINARY PATTERN YET?

+BR [F NO

[
—

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF . P
08-JuL-80 08:24
4696
4697

——

08:27 PAGE 93
BASIC RECEIVER TESTS

023454

SEQ 0092

78:

4698

4699

Jennannkrnenennnrennnrnnnnnn

4700
4701
4702

s*RECEIVER CRC TEST
;*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY
;*COUNT PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT

4703

4704

4705

;

4706
4707

4708
4709
4710
4711
4712
4713

023454
023456
023464

000004
012737
012737

023472
023474
023500
023502
023504
023506
023512
023520
023524

104410
012711
005003
005004
005005
005037
012737
004737
010461

4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
47

023532
Ogiggz
0
023542
023544
023546
023550
023554
023556
023560
023564
023570
023574
02
023604

122110
005204
010461
104412
122110
005204
010461
104412
122110
004737
104413
010537
104413
004537
000001

4738
4739

8%3610
023612

4741
4742
4743
4744
4745

0
0
2
0
4
0
g
0236

4714
4715
4716
4717
4718
4719
4720

4721

4737

4740

2;2?

4748
4749
4750
4751

023530

023606
023614

023634

023236
023636
023642
023650

104412

000047
023712

001202
001442

004000

023610
120001
031374
000004

031226

000004

030260
000032
023606
000001
031122

18:
2%:

103006
104022
000404
004737
103401

3s:

4s:

031356

5%:

104023

00%037
013737
005203

023606
031230

6$:
023610

R R

AR R R R AN

R R RN NN

AR RN RN RN

R AN

TEST 47

ie=eeccccccccce
AR

R AR

AR R

SCOPE
MoV
MOV

#47 ,$TSTNM
#TSTS0,NEXT

MSTCLR
MOV
CLR
CLR
CLR
CLR
MOV
JSR
MOV

#BITIT,(RY)
R3
R&
RS
43
#CRC16,XPOLY
PC,SYNLD
R4 ,4(RY)

ROMCLK

000000

103405
004737

TST47:

TEST 47 wevvnnvnvantnnantnantoeanen

R R AN

R AN R R RN

R R RN

AR RN

A NN

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.
;R1 CONTAINS BASE KMC11 ADDRESS
sMASTER CLEAR KMC11
;SET LINE UNIT LOOP
;IERO BIT COUNT
;R4 CONTAINS CHAR TO BE LOADED IN SILO
:R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT
;CLEAR SOFT BCC
sLOAD POLYNOMINAL
;LOAD SILO WITH 2 SYNCS, SOM SET
:PORT4_CHAR

sNEXT QORD IS INSTRUCTION, ROMCLK PC=5304

122110
INC
R4
MOV
R4 ,4(RY)
ROMCLK
122110
INC
R4
MOV
R4 ,4(RT)
ROMCLK
122110
JSR
PC.OCOR
DATACLK, 32
MoV
R5.3%
DATACLK
JSR
R5,SIMBCC
1

:LOAD OUT DATA
s INCREMENT TO NEXT CHARACTER
:PORT4_CHAR
sNEXT QORD IS INSTRUCTION, ROMCLK PC=5304
sLOAD OUT DATA
s INCREMENT TO NEXT CHARACTER
;PORT4_CHAR
sNEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
sWAIT FOR OCOR
sCLOCK DATA
;LOAD CHAR FOR SOFT CRC
sSHIFT BCC ONCE
sCALCULATE SOFT BCC
sSOFT SHIFT COUNT

0
BCS

;OLD SOFT BCC
sBR IF SOFT BCC LSB IS SET

JSR

5%
PC,GETQI

ERROR

BCC
ERROR
BR
JSR
BCS

ROR
MOV
INC

;SOFT CHARACTER

;GET HARDWARE RECEIVER BCC LSB

6%
22
6%
PC,GETQI
6%

:BR IF OK (CLEARED)
sERROR, BCC LSB WAS SET
;CONTINUE WITH TEST
;GET HARDWARE RECEIVER BCC LSB
:BR IF OK (SET)

3%
CALBCC,4%
R3

sSHIFT SOFT DATA
sLOAD OLD SOFT BCC
: INCREMENT BIT COUNTER

;ERROR, BCC LSB WAS CLEAR

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JUL-80 08:2¢4

475%
4753
4756
4755
L4756
4757
4758

023652
023656
023660
023662
02
023670
023672

022703
001346
005003
005204
022704
003404
010461

4760

023700

122110

4759
4761
4762
4763

4764
4765
4766

023676

023702
023704
023710
023712

104412

005205
022705
001327

08:27
PAGE 94
BASIC RECEIVER TESTS

000010

CMP
BNE
CLR
INC
CMP
BLE
MOV

000400
000004

ROMCLK

9s:

000400

78:

122110

INC
CMP
BNE

SEQ 0093

#10,R3
2%
R3
R4
#400,R4
9%
R4 ,4(RY)

;DONE A FULL CHARACTER YET?
;BR IF NO
JRESTART BIT COUNTER
s INCREMENT DATA FOR SILO
;DONE BINARY COUNT YET?
sBR IF YES
sPORT4 _DATA

;NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA

RS
#400,R5
1%

; INCREMENT DATA
;DONE BINARY PATTERN YET?
;BR IF NO

4767

JeRkRkRreeRteravrerennnnnnnnn

4769
4770

;*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC
:*BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT

4768

;*TRANSMITTER DDCMP CRC TEST

PYedl

4774

:;;2

L7777

4781
:;gg

vevnnennananatanranenneneen

;*THE TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BCC

477%

4780

;*WINDOW. THE FOUR CHARACTERS ARE 0,125,252,377

4772

4778
4779

TEST

N R R AR R R AR AR AR

AR R

RN AR R

TEST 50

023722

023730

000004
012737

012737

000050

024244

001202

1S750:

001442

SCOPE
MOV

MoV

104410

#50 ;TSTNH

#7ST51,NEXT

MSTCLR

: LOAD THE NO. OF THIS TEST

; POINT TO THE START OF NEXT TEST.

;R1 CONTAINS BASE KMC11 ADDRESS
;MASTER CLEAR KMC11

;LOAD OUT DATA SILO

4786

023732

012711

004000

MOV

#BIT11,(RY)

sSET LINE UNIT LOOP

4788

023762

005037

024036

CLR

108

sCLEAR SOFT BCC

R5,.R2

;LOAD R2 WITH CHAR

4789
4790
4791
4792
4793
4796
4795
4
4797
4798
4799

023736

023746
023752
023756
023762
0237
023770
023772
023776
024002
024004
024010

024012

012704

012700
004737
004737
0%537
032012
000004
004737
004737
005003
104413
112405

032012

MOV

000004
031374
030412
031530

031504
030260

000022

12%:

010502

4802

#MESDAT R4

MOV
#4 RO
JSR
PC,SYNLD
JSR
PC,OUTRDY
JSR
RS,MESLD
MESDAT
4
JSR
PC,EOM
JSR
Pg.OCOR
CLR
R
DATACLK,22
MOVB
(R4)+,RS

MOV

sLOAD PCINTER TO DATA

;LOAD CHARACTER COUNT
:LOAD 2 SYNCS IN OUT SILO
sWAIT FOR OUTRDY
sLOAD SILO WITH & CHAR MESS
;ADDRESS OF MESSAGE
;NUMBER OF CHARACTERS
:LOAD GARBAGE CHARACTER, WITH EOM SET
sWAIT FOR OCOR
sCLEAR BIT COUNTER
sCLOCK DATA
:LOAD RS WITH CHAR

sCHECK FIRST FOUR CHARACTER MESSAGE

2&3

4805
4806
4807

RAR TR

;;"tt.t;.'ttt'tt"""'t"t"'t'tttttttt'tttttttttt'tttttt'ttt't
023712
0%3714

2;3;
4787

R PN RN AR

;IN THE BIT WINDOW (0,125,252,377)

024014
024022
024026

012737
010537
004537

120001
024034
031122

031226

MoV
MOV
JSR

#CRC16,XPOLY
R5.,67%
R5,SIMBCC

sLOAD POLYNOMIAL
sLOAD SOFT CHAR FOR BCC
sCALCULATE SOFT BCC

MACY11

P11

30A(1052)
08-JuUL-80
08-JuL~80 08:2¢4

08:27

034036

67%:

024036
024040

031230
000001

024036

108:

64%:

030226

PAGE 95

BASIC RECEIVER TESTS

668$:
000010

MOV
CALBCC,108
DATACLK,
1
RORB
R2

CHARACTER
:0LD BCC

:LOAD SOFT BCC FOR NEXT SHIFT
:SHIFT DATA IN TO BIT WINDOW
:SHIFT SOFT DATA

BCC

658

BCS

66$

:BR IF OK (MARK)

BCC

66$

:BR IF OK (SPACE)

ERROR
BR
JSR
ERROR

INC

CMP
BNE
CLR
DEC

024114

;SHIFT COUNT

0
0

JSR

€5%:

SEQ 0094

BNE

PC,GETSI

‘BR IF A SPACE

:LOOK AT BIT WINDOW

6
66$
PC,GETSI

;ERROR, BIT WINDOW WAS A SPACE
: CONT INUE
:LOOK AT BIT WINDOW

:ERROR, BIT WINDOW WAS A MARK

;BUMP BIT COUNTER

#10,R3
648
R3
RO

:DONE FULL 8 BITS YET
:BR IF NO
:CLEAR BIT COUNTER
:DEC CHARACTER COUNT

128

:BR IF NOT DONE YET

sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
031230
000001

33883383

024116
024122
024126
0241
0241
024136
024140
024142
024144
024150
024152
024154
024154
024156
024162
024164

68%:

030226

69%:
708:

000020

MOV
CALBCC,RO
DATACLK, 1
ROR
RO

sPUT BCC IN RO
:SHIFT HARDWARE BCC
*SHIFT SOFT BCC

JSR

PC,GETSI

1LOOK AT BIT WINDOW

ERROR
BR
JSR

14
708
PC,GETSI

‘ERROR, CRC WRONG (SPACE)
: CONT INUE
:LOOK AT BIT WINDOW

ERROR

:ERROR, CRC WRONG (MARK)

R3
#20,R3
68
R3

:BUMP BIT COUNTER
:FINISHED BCC YET?
:BR IF NO
*CLEAR BIT COUNTER

BCC

698

BCS

70§

BCC

INC
(MP
BNE
CLR

:BR IF CARRY CLEAR

:BR IF OK (MARK)

70§

:BR IF OK (SPACE)

sCHECK TO SEE IF TRANSMITTER IS MARKING
024166
024172

000001
030226

000007

2%:

38:

000010

0242
024232

000001
030226

4%:

DATACLK,
1
JSR
PC,GETSI
8CS
3

;CLOCK TRANSMITTER
1LOOK AT WINDOW
*IT SHOULD BE MARKING

INC

:BUMP BIT COUNTER

ERROR

CMP
#7.83
BNE
28
DATACLK,
CLR
R3

DATACLK,
1
JSR
PC,GETSI

BCS

ERROR

L+

:ERROR,

BIT WAS A SPACE

:DONE YET
:BR IF NO
:GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
:CLEAR BIT COUNTER
SSHIFT OUT NEXT BIT
:LOOK AT BIT WINDOW

(BR IF IT IS A MARK

*ERROR, TRANSMITTER IS NOT MARKING

MACY1Y 30A(1052)
08-JUL-80
P11
08-JUL-80 08:24

024234
024236
024242
024244

005203
022703
001366

08:27
PAGE 96
BASIC RECEIVER TESTS

000020
5%:

INC
CMP
BNE

R3
#20,R3
48

SEQ 0095

;INC BIT COUNT
;DONE YET?
;BR IF NO

Jerannnnrerenneetrenennennnn

TEST

neannavanenanssanentsannene

+*RECEIVER DDCMP CRC TEST
;*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC
s*AND VERIFYS CORRECT DATA RECEPTION AND BCC MATCH
s*THE FOUR CMARACTER MESSAGE

IS 0,125,252,377

.':0.'!.""'tt"""""'tttfi'ttt.t"tt.Qttttttt't"'tttt"t"tt

;
024244
024246
024254

000004
012737
012737

024262
024264

104410
012711

:;"'t't;t.tttl"'t't"tt""tt'Q'QQQt"t.'l'.tttttl'tltt't'!"tt

000051
024446

004737
004737

031504
030260

024334
024340
024342
024344
024350
024352
024354
024356
024360
024362

004737
104412
021204
016104
112205
120504
001401
104010
005300
001364

031066

104413

001202
001442

TST51:

SCOPE
MOV
MOV

MSTCLR
MOV

004000
032012
000004
031374
030412
031530

024270
024274
024300
024304
024310
Ogl.gll.
024316
024320
024324

024330

012702
012700
004737
004737
004537
32012

TEST 51

MOV
MoV
JSR
JSR
JSR
MESDAT
&
JSR
JSR

000114

3s:

000004

18:

#51,8TSTNM
#TSTS52 NEXT
#BIT11,(RY)
#MESDAT ,R2
#4 RO
PC,SYNLD
PC,OUTRDY
RS ,MESLD

PC.EOM
PC,OCOR

DATACLK, 114

JSR
ROMCLK
021204
MOV
MOVB
CMPB
BEQ
ERROR
DEC
BNE

PC, INRDY

4(R1) R4
(R2)+,RS
R5,Ré
1%
10
RO
3%

sR1

; LOAD THE NO. OF THIS TEST
; POINT TO THE START OF NEXT TEST.

CONTAINS BASE KMC11 ADDRESS

sMASTER CLEAR KMC11
sSET LINE UNIT LOOP

sLOAD POINTER TO DATA
;LOAD CHARACTER COUNT
sLOAD 2 SYNCS IN OUT SILO
;WAIT FOR OUTRDY
;LOAD SILO WITH & CHAR MESS
;ADDRESS OF MESSAGE
sNUMBER OF CHARACTERS
sLOAD GARBAGE CHARACTER, WITH EOM SET
:WAIT FOR OCOR

:CLOCK DATA

sWAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET IN DATA
;PUT "FOUND'' IN Ré&
:PUT “EXPECTED'' IN RS
.CWME RECEIVED DATA
:BR_IF OK
;DATA ERROR
:DEC CHARACTER COUNT
:BR IF NOT DONE YET

sCHECK TO SEE THAT IN BCC MATCH IS SET
024364
024370

004737
104412

031066

024374
0264402

116137
042737

000004
177400

024372

024410
02464146
026416
024420

024424
024430

021204

004737
104412
021244
016104

042704
012705

031066

000096

000376
000001

001302
001302

JSR
ROMCLK
021204

Move
BIC

JSR
OMCLK
0212“
MOV

BIC
mov

PC,INRDY

4(R1),8THP2
#177400,8TMP2
PC,INRDY

4(R1) R4

#376,R4
#1,RS

;WAIT FOR INRDY
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

sGET FIRST HALF OF CRC

:PUT IN STMP2
:CLEAR MI BYTE

iWAIT FOR INRDY
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:
o
;PUT “'FOUND'' IN R4

iCLEAR_UNWANTED BITS
:PUT “EXPECTEDTM IN RS

CIKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JUL-80 08:24
4920

4921

49?2

4923
49246
4925
4926
4927
4928

024434

024436

024440

024442
024442
024444
024446

08:27
PAGE 97
BASIC RECEIVER TESTS

120504

001401

CMPB

RS,R4

;1S IN BCC MATCH SET?

ERROR

sIN BCC MATCH ERROR

BEQ

104015

25%:

104412
021204

28%:

SEQ 0096

25%

ROMCLK
021204

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JGET LLAST HALF

4929

JRRRRRRRRRRRRR
RN R R R
ndannnn TEST

4930
4931
4932
4933

s*DDCMP EOM FUNCTION TEST
s*THIS TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE ,EOM
s%4 CHARACTER MESS,EOM. THE DATA STREAM IS CHECKED TO BE
s*4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT

4935

s*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW

4934

sennernnnantersenenvenenene

s *THE CHARCTERS LOADED WITH EOM SET ARE LOST

4936

s*THE FOUR CHARACTER MESSAGE IS 0,125,252,377

4937

;*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED

4938

R R

RN RN R AR AR AN RN

AR RN R AR

RRRERRORERY

4939

232?

4942

4943
4944
4945
4946
232;

024446
024450
024456

000004
012737
012737

024464

104410

:;tQtttt;t"tttttt't"'t't"tiQ'ttttttttt'tttt'tttt'ttt'tt"t.t't
000052

025546

001202

1S752:

001442

SCOPE
MOV

MOV

024466

012711

004000

MOV

4953

024476

005037

024606

CLR

4957
4958
4959
4960
4961
4
4963
4964
4965
4966
4967
4968
2393

024516
024522
024524
024526
0245
024536
024540
024542
024546
024552
024554
024560
024562

024472

024502
024506
024512

012704

012700
004737
004737

004537
032012
000004
004737
537
032012
000004
004737
004737
005003
104413
112405
010502

032012

000004
031374
030412
031530

031504
031530
031504
030260

000022

12%:

4971

; POINT TO THE START OF NEXT TEST.

sR1 CONTAINS BASE KMCi1 ADDRESS

sMASTER CLEAR KMC11

#BIT11,(RY)

sSET LINE UNIT LOOP

10%

sCLEAR SOFT BCC

MOV

lflESDAf.lk

MOV
JSR
JSR

#4,R0
PC,SYNLD
PC,OUTRDY

JSR
RS ,MESLD
MESDAY
B
JSR
PC,.EOM
JSR
R5,MESLD
MESDAT
4
JSR
PC,EON
JSR
PC,O0COR
R
DATACLK,22
MOVB
(R4)+,RS
MOV
R5,R2

sLOAD POINTER 10 DATA

sLOAD CHARACTER COUNT
sLOAD 2 SYNCS IN OUT SILO
sWAIT FOR OUTRDY

sLOAD SILO WITH & CHAR MESS
sADDRESS OF MESSAGE
sNUMBER OF CHARACTERS
;LOAD GARBAGE CHARACTER, WITH EOM SET
sLOAD FOUR MORE CHARACTERS
sADDRESS OF MESSAGE
sNUMBER OF CHACTERS
sSET EOM
sWAIT FOR OCOR
:CLEAR BIT COUNTER
sCLOCK DATA
sLOAD RS WITH CHAR
sLOAD R2 WITH CHAR

sCHECK FIRST FOUR CHARACTER MESSAGE

23;13’

4974
4975

#TSTSI, NEXT

; LOAD THE NO. OF THIS TEST

sLOAD OUT DATA SILO

4951

4956
4955
4956

#52,8TSTNM

MSTCLR

2828

4952

YEST 52

;IN THE BIT WINDOW (0,125,252,377)
024564
024572

012737
010537

120001
024604

031226

MOV
MOV

#CRC16,XPOLY
RS.67%

+LOAD POLYNOMIAL
+sLOAD SOFT CHAR FOR BCC

CZKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.P11
08-JuL~80 08:24

004537
000010
000000

031122
67%:

031230
000001

024606

108:

648

JSR
10

65%:
66%:

000010

65%

JSR

PC,GETSI

ERROR
BR

6
668

BCC

66$

INC
CMP
BNE
CLR
DEC
BNE

R3
#10,R3
64$
R3
RO
128

JSR

ERROR

SEQ 0097

sCALCULATE SOFT BCC
;SHIFT COUNT
s CHARACTER

CALBCC,108
DATACLK,
1
RORE
R2

BCS

030226

RS,SIMBCC

0
MOV
BCC

030226

66$

PC,GETSI

;0LD BCC
;LOAD SOFT BCC FOR NEXT SHIFT
;SHIFT DATA IN TO BIT WINDOW
;SHIFT SOFT DATA
:BR IF A SPACE
;LOOK AT BIT WINDOW
:BR IF OK (MARK)
;ERROR, BIT WINDOW WAS A SPACE
s CONT INUE
;LOOK AT BIT WINDOW
;BR _IF 0K (SPACE)
;ERROR, BIT WINDOW WAS A MARK
;BUMP BIT COUNTER

;DONE FULL 8 BITS YET
:BR_IF NO
;CLEAR BIT COUNTER

;DEC CHARACTER COUNT
:BR IF NOT DONE YET

sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
031230
000001

68%:

030226

MOV
CALBCC,RO
1
DATACLK,
ROR
“8;
BCC
6
JSR
PC,GETSI

BCS

69%:

030226

708:

ERROR
BR

13%:

70§

14
708

JSR

PC,GETSI

ERROR

BCC

708

INC

?E:

ouisoar R4

MOVB

(Rb)o RS

cMpP
BNE

MOV

#20,R3
$

RS, R2’

;PUT BCC IN RO
sSHIFT HARDWARE BCC
sSHIFT SOFT BCC
:BR IF CARRY CLEAR
sLOOK AT BIT WINDGW
sBR IF OK (MARK)
:ERROR, CRC WRONG (SPACE)
s CONTINUE
;LOOK AT BIT WINDOW
:BR IF Ok (SPACE)
;ERROR, CRC WRONG (MARK)
;BUMP BIT COUNTER
:F INISHED BCC YET?
:BR_IF NO
;CLEAR BIT COUNTER
;RESET CHARACTER COUNTER
LOAD MESSAGE POINTER

sCLR SOFT BCC
:LOAD CHAR IN RS
sLOAD CHAR IN R2

sCHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377)
031226

MOV
MOV
-

4993

024576
024602

PAGE 98

BASIC RECEIVER TESTS

4976
4977
4978
4979
4980
4981
498
498
4984
4985
4986
4987
4988
4989
4990
499N
4992

08:27

031230

025000

0cn§16L XPOLY

JSR

ns SIMBCC

MoV

CALBCC, 118

éo

:LOAD POLYNOMIAL
:LOAD SOFT CHAR FOR BCC
+CALCULATE SOFT BCC

;SHIFT COUNT
: CHARACTER

:0LD BCC
;LOAD SOFT BCC FOR NEXT SHIFT

g SRS
JESENSSS |

8228287

388838
b At
®
8UN~
wWwo o

WNNWW

j=l=d=]

guswuw—o
et b
oo
oo
o

OCO000O000

---~°-°8 TM
AAAAAAWAWAWN
® OCO0O0O00000O0

30A(1052)

08-JuUL-80
8-JuL-80 08:24

MACY11

000001

08:27

BASIC RECEIVER TESTS

73%:

DATACLK,
RORB
R

BCC

030226

PAGE 99

748:

PC,GETSI

ERROR

JSR

PC,GETSI

ERROR

75%:

000010

INC
CMP
BNE
CLR
DEC
BNE

R3
#10,R3
738
R3
RO
138

B8R

BCC

748

JSR

RCS

SEQ 0098

75¢

75%

75¢

;SHIFT DATA IN TO BIT WINDOW
;SHIFT SOFT DATA
;BR IF A SPACE
;LOOK AT BIT WINDOW
;BR IF 0K (MARK)
;ERROR, BIT WINDOW WAS A SPACE
s CONT INUE
;LOOK AT BIT WINDOW
;BR IF OK (SPACE)
;ERROR, BIT WINDOW WAS A MARK
;:BUMP BIT COUNTER

:DONE FULL 8 BITS YET
;BR_IF NO
;CLEAR BIT COUNTER
;DEC CHARACTER COUNT
;BR IF NOT DONE YET

sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
031230
000001

77%:

JSR

PC,GETSI

ERROR

INC
CMP
BNE
CLR

R3
c;o.ns
778
R3

;BUMP BIT COUNTER
sFINISHED BCC YET?
sBR IF NO
sCLEAR BIT COUNTER

ROR

JSR

PC,GETSI

ERROR
BR

14
79%

BCC

030226

sPUT BCC IN RO
sSHIFT HARDWARE BCC
sSHIFT SOFT BCC
sBR IF CARRY CLEAR
;LOOK AT BIT WINDOW
sBR IF OK (MARK)
sERROR, CRC WRONG (SPACE)
s CONT INUE
;LOOK AT BIT WINDOW
:BR IF OK (SPACE)
JERROR, CRC WRONG (MARK)

MOV
CALBCC,RO
DATACLK,1

BCS

78%:
79%:

000020

BCC

788

79%

000020

4%:

JSR

PC,GETSI

ERROR
INC
CMP
BNE

24
R3
#20,R3
“$

BCS

3s
BCS
ERROR
24
INC
R3
(NP
7,83
BNE
28
DATACLK,
CLR
R3
DATACLK,

sCLOCK TRANSRMITTER
;LOOK AT WINDOW
:1T SHOULD BE MARKING
:
IT WAS A SPACE
——m

® S3
NVO £

000001
030226

38:

1
DATACLK,
JSR
PC,GETSI

[ X

OONOW—
AN
8 = NN

000010

000007

2%:

NNO
SN~
QONOW—
NN = N

b =t O =

000001
030226

S RSEces
--

RSINIFAER ~N SERSYE

VW
e
VWA
B

WAVAVAWAWA VIV
PN b e ol o nlh d el

025

PR RS SSS282

sCHECK TO SEE IF TRANSMITTER IS MARKING

10
1

COUNTER

——

—

CZKCF

—_—

———

MACY11 30A(1052)

CZXKCF.P11

08-JuL-80

08-JUL=-B0O 0B:24

08:27

—

p——c—

PAGE 100

BASIC RECEIVER TESTS

5088
;888

SEQ 0099

sCHECK TO SEE THAT FIRST FOUR CHARACT;R ME SSAGE
sWAS RECEIVED CORRECTLY (0,125,252,377)

5091
$092
5093
5094
5095
5096

025206
025212
025216
0O 5%22
025226
025230

104413
012703
01270;
00473
104412
021204

5098
5099

025
025240

112205
120504

000001
000004
032012
031066

40$:

DATACLK,
1
MOV
#4,R3
MOV
#MESDAT ,R2
JSR
PC,INRDY
ROMCLK
021204

sGET LAST BIT IN RECEIVER
JR5=CHARACTER COUNT
;LOAD MESSAGE POINTER IN R2
sWALIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MOVB
CMPB

sPUT ""EXPECTED'' IN RS
;1S RECEIVED DATA CORRECT?

5097 ozss 2 016104 000004

MOV

4(R1),R4

;PUT "'FOUND'' IN Ré

5100

BEQ

:BR IF YES

5101
510§

g;g‘

025242

025244
025246

001401

104010
005303

41%:

025250 001364

5105

BNE

10
R3

408

025252

004737

031066

5110
5111

025260
025262

021204
116137

000004

5113
5114
5115
5116
5117

025276
025302
025312

004737
104412
0 1;«.
016104
042704

5119

025322

120504

5121
5122

025326
0253

104015

5125

025334

5109 025256
025270

104412

042737

177400

031066

JSR

PC,INRDY

021204
MOVB

&L(R1),$THMP?2

ROMCLK

001302

BIC

JSR
ROMCLK
021244
MOV
BiC

000004
000376

#177400,8THP2
PC,INRDY

BEQ

508

5123 ozssig 104412
5124 ozsg
0212

116137

000004

5126 025342

042737 000377

?131

104027

001301

001300

025370
025404

012703

000004

104412

025406

gmo/.

025414
025416

112205
120504

5140 025410
5143

sTwpi, TP
CALBCC,$TMP2
t;s
2

:IN BCC MATCH ERROR

:NEXT WORD IS INSTRUCTION. ROMCLK PC=5304
1GET LAST HALF
:PUT IN STMP1

:CLEAR LO BYTE

116 BIT BCC NOW IN STMP?
;IS IT CORRECT?
:BR IF OK

CHARACTER MESSAGE
‘WAS RECEIVED CORRECTLY (0,125,252,377)

5136 025374 012702 032012
5137 025400 004737 031066
5141
sug

8IS
CMp
BEQ

#377,$THP1

:PUT "EXPECTED"' IN RS

;CHECK TO SEE THAT SECOND FOUR

ggz

5139

4(R1),$TMP1+1

ERROR

5132

MOVEB

BIC

5127 025350 053737 001300 001302
5128 025356 023737 031230 001302
51;3 025364 001401
025366

ROMCLK
021204

JWAIT FOR INRDY
sJNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;1S IN BCC MATCH SET?

5120 025326 001401

ERROR

:CLEAR WI BYTE

RS .R4

21,88

508:

‘GET FIRST HWALF OF CRC
sPUT IN STMP2

:PUT "'FOUND'' IN R&
:CLEAR UNWANTED BITS

MOV

C(MPB

;WAIT FOR INRDY

'NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304

4(R1) R4
#376,R4

5118 025316 012705 000001

5138

‘BR IF NOT DONE YET

;AND THAT THE BCC WAS RECEIVED CORRECTLY

5108

5135

:RECEIVE DATA ERROR
;DEC CHARACTER COUNT

;CHECK TO SEE THAT IN BCC MATCH IS SET

g}gg

5112

ERROR
DEC

(R2)+,RS
RS,R4

016104 000004

025420 001401

428:

438:

MOV

MOV
JSR

m%:
021

94,83

MESDAT,R2
PC, INRDY

;R3=CHARACTER COUNT

:LOAD MESSAGE POINTER IN R2
‘WAIT FOR INRDY

*NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304
.

MOV

4(R1),R4

;PUT "'FOUND''

BEQ

BR IF YES

MOVB
(MPB

(R2)+.RS
RS,R4

IN R4

*PUT “EXPECTED" IN RS
‘1S RECEIVED DATA CORRECT?

—

025422

104010

025426

001364

025430

004737

025436
025440

021204
116137

104412

025446

042737

025460

104412

025454

004737

021244

025470

042704

025500

120504

64
65

025504
025506

BNE

;DEC CHARACTER COUNT

;RECEIVE DATA ERROR

439

;BR IF NOT DONE YET

031066

177400

031066

JSR

PC, INRDY

;WAIT FOR INRDY

021204
MOVE

4(R1),$TMP2

(GET FIRST HALF OF CRC
:PUT IN $TMP2

JSR

PC, INRDY

:WAIT FOR INRDY

ROMCLK

001302

BIC

ROMCLK
021244

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#177400,8THP2

:CLEAR W] BYTE

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1),Ré4

:PUT "'FOUND"' IN R4

025474 012705

000001

MOV

#,RS

:PUT "EXPECTED'' IN RS

BEQ

51§

025502

025512

116137

025544

104027

025546

BIC

1401

518:

000004

000377
001300
031230

#376,R4

CMPB

104015

02554

000376

001401

042737
053737
023737

DEC

ERROR

MOV

025520
025526
025534

44S:

SEQ 0100

000004

69
70
71
72

—

025464 016104

66 025506 104412
67 025510 021204
68

—

;CHECK TO SEE THAT IN BCC MATCH IS SET
JAND THAT THE BCC WAS RECEIVED CORRECTLY

025462

—

08:27
PAGE 101
BASIC RECEIVER TESTS

0254%‘ 005?03

VNV
NN —=O VR~ N

MACY11 30A(1052)
08-JuL-80
P11
08-JuL-80 08:24
VAAVIWAWVIWAIWAWVIWA
S B 0 0 0

001301

ERROR

ROMCLK
021204

MOVE

001300
001302
001302

BIC
BIS
CMP

BEQ
5%:

ERROR

:CLEAR UNWANTED BITS

RS.R&

;1S IN BCC MATCH SET?

:IN BCC MATCH ERROR

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
SGET LAST MALF

4(R1),STMP1+1

:PUT IN STMPI

2377, $THP1
$THPi,STHP2
CALBCC,$TMP2

;CLEAR LO BYTE
;16 BIT BCC NOW IN STMP2
:IS IT CORRECT?

‘BR IF OK

Jrenerstntenetnecnevevennnee

;«DDCMP EOM FUNCTION TEST

79
80
81

:«THE CHARCTERS %onén UITH EOM SET ARE LOST

;*ALSO TMAT THE

;*THE FOUR

LOADED WITH SOM IS NOT IN THE BCC

CHECKED IN THE

BIT WINDOW

CWARACTER MESSAGE 1S 0,125,252,377

S*RECEIVED DATA 1S VERIFIED, AND [N BCC MATCH IS CMECKED

9’3

ozss;a
0255
025556

95
39 025564
99

CWAR

seALL DATA AND BCC'S

cvennenccectccenncanntenene

I c%c & CHAR,BCC,MARKS, THIS TEST VERIFYS THAT

;*THIS TEST LOADS OUT SILO WITH: 2 SYNCS.4 CHAR MESSAGE,EOM
:#SOM,4 CHAR MESS.EOM. THE DATA STREAM IS CHECKED TO BE

9;
93
9%

TEST

LT L

LR LR L LRt L R

TEST 53

-;Qtt0t.:.t.'.t.'tt"""'lQ't't't'!tt."t0.!.""'.!..!.'.'!'.‘!

015 7
012737

104410

000053
026746

001202
001442

f5153:

scope
MOV
MOV

"3 usm
#75154, NEXT

MSTCLR
;LOAD OUT DATA SILO

: LOAD THE NO. OF THIS TEST
: POINT TO THE
START OF NEXT TEST.

;R1 CONTAINS BASE KMC11 ADDRESS
:MASTER CLEAR KMC11

MACY11 30A(1052)
08-JuL-80
P11
08-JUL-B0 08:24

01 ogss
00

025566

02
03
04
S
06
07
08
09
0
1
2
3
4
S
6
7
8
3

025576
025602
025606
025612
025616
025622
o%ss 4
025626
025632
025636
025642
025644
025646
025652
025656
025660
025664
025666

08:27
PAGE 102
BASIC RECEIVER TESTS

012704 032012

MOV

004000

MOV

005037
012700
004737
004737
004537
032012

025712
000004
031374
030412
031530

CLR
108
MOV
#4,R0
JSR
PC.SYNLD
JSR
PC .OUTRDY
JSR
RS.MESLD
MESDAT
4
JSR
PC,EOM
JSR
PC,SOM
JSR
RS .MESLD
MESDAT
4
JSR
PC,EOM
JSR
PC.OCOR
CLR
R3
DATACLK,22
MOVB
(R4)+,RS
MOV
RS,R2

004737

004537

032012
ooooga
004737
004737
005003
104413
112405

031504

031454

031530

031504
030260
000022

128:

010502

025670
025676
ozgroz

012737
010537
ooas;z

120001
025710
031122

031226

8 5571 338800
67%:
025712
08:
5230 025714 5%%955 031230 025712
5235
5237
5238

5239
5240
5241

5264
5245
5246
gg:;

025722
025726
025730
025732

104413
106002
103005
004737

025740
025742
025744

104006
000404
004737

025752
ggsrs4
5754
025756
025762
025764
025766
025770

104006

025736

025750

103406
103001

005203
022703
881357
3
005
001335

000001

648:

;

54
5

*CLEAR SOFT BCC
*LOAD CHARACTER COUNT
*LOAD 2 SYNCS IN OUT SILO
‘WAIT FOR OUTRDY
*LOAD SILO WITH & CHAR MESS
*ADDRESS OF MESSAGE
'NUMBER OF CHARACTERS
*LOAD GARBAGE CHARACTER, WITH EOM SET
‘LOAD GARBAGE CHAR WITH SOM SET
*LOAD FOUR MORE CHARACTERS
:ADDRESS OF MESSAGE
*NUMBER OF CHACTERS
SET EOM
‘WAIT FOR OCOR
*CLEAR BIT COUNTER
;CLOCK DATA
:LOAD RS WITH CHAR
:LOAD R2 WITH CHAR

MOV
MOV
43a

#CRC16,XPOLY
RS.678
RS .SIMBCC

CALBCC,108

0
MOV

;LOAD POLYNOMIAL
ILOAD SOFT CHAR FOR BCC
‘§3%§¥L355u§°" BCC

:CHARACTER
10LD BCC
1LOAD SOFT BCC FOR NEXT SHIFT

030226

DATACLK,
1
RORE
R2
BCC
653
JSR
PC,GETSI

SSHIFT DATA IN TO BIT WINDOW
:SHIFT SOFT DATA
BR IF A SPACE
*LOOK AT BIT WINDOW

030226

ERROR
BR
JSR

*ERROR, BIT WINDOW WAS A SPACE
: CONT INUE
:LOOK AT BIT WINDOW

658:
668:

000010

gz;g

5251

*LOAD POINTER TO DATA
;SET LINE UNIT LOOP

(IN THE BIT WINDOW (0,125,252,377)

5229

5231
sg
5233

#B1T11, (R1)

;CHECK FIRST FOUR CHARACTER MESSAGE

szgg

5224
5225
szzg

#MESDAT, R4

012711

SEQ 0101

BCS

66$

BCC

668

ERROR

INC
CMP
BNE
CLR
DEC
BNE

6
668
PC,GETSI
6

R3
#10,83
643
R3
RO
12%

:BR IF OK (MARK)

‘BR IF OK (SPACE)

‘ERROR, BIT WINDOW WAS A MARK
:BUMP BIT COUNTER
‘DONE FULL 8 BITS YET
:BR IF NO
:CLEAR BIT COUNTER
:DEC CHARACTER COUNT
:BR IF NOT DONE YET

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

025772 013700 031230
025776
026002
026006
026006

104413

000001

10
004737

030226

688:

MoV

CALBCC,RO

DATACLK,T
ROR
RO
BCC
69%
JSR
PC,GETSI

:PUT BCC IN RO

ISHIFT MARDWARE BCC
SSHIFT SOFT BCC
BR IF CARRY CLEAR
1LOOK AT BIT WINDOW

—

CZKCF
MACY11 30A(1052)
08-JuL-80
CIKCF.P11
08-JuL=-80 08:24

5256
5257
5258
5259

026012
026014
026016
026020

103406
104014
000404
004737

5261
szeg
5263
5264
5265
gggg

0 eogg
0260
0 6osg
026032
026036
026040

104014

§260

026024

103001

005203
022703
001357
005003

026042
026044
026046
026052
026054
026056

005005
010502
104413
106002
103005
004737

5277
5278
5279

026064
ogeogo
026070

104006
000404
004737

5281

026076

104006

5276 026062
026074

103406

103001

030226

698:
708:

000020

000001

328:

;

026112
8%6116
026122
ozo1§3
026130

012700
012704
005037
112405
010502

012737

010537
004537
000010
000000
000000
913737
13

106002
103005
004737

sgs;

104006

103406

w&g‘

5309

103001

5308

gg;g

——————

SEQ 0102

:BR IF OK (MARK)
:ERROR, CRC WRONG (SPACE)
: CONT INUE
:LOOK AT BIT WINDOW

ERROR

:ERROR, CRC WRONG (MARK)

BCC

INC
(MP
BNE
CLR

70§

:BR IF OK (SPACE)

R3
#20,R3
68%
R3

:BUMP BIT COUNTER
:FINISHED BCC YET?
:BR IF NO
:CLEAR BIT COUNTER

CLR
RS
MOV
RS,R2
DATACLK,

030226

ERROR
3R
JSR

6
s
PC,GETSI

ERROR

BCS

308:

BCC

BNE

CLR

000004
032012
026154

138:

MOV
MOV
CLR
MOVB
MOV

3§

;CHARACTER LOADED WITH SOM
:LOAD R2 WITH CHAR
:CLOCK TRANSMITTER
;SHIFT SOFT DATA
:BR IF SPACE
:LOOK AT BIT WINDOW

:BR IF OK (MARK)

sERROR,BIT WINDOW WAS A SPACE
: CONT INUE
;LOOK AT BIT WINDOW

3¢

:BR IF OK (SPACE)

32%

:BR IF NO

#4,R0
#MESDAT, R4
1%
(R4)+,RS
RS.R2

;RESET CHARACTER COUNTER
;LOAD MESSAGE POINTER
:CLR SOFT BCC
:LOAD CMAR IN RS
:LOAD CHAR IN R2

;ERROR,BIT WINDOW WAS A MARK

R3S

;RESET BIT COUNTER

sCHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252.377)

530
5304

5305

—

70%
14
70$
PC,GETSI

R2
308
PC,GETSI

253%
5295
5296
5297
5
5
S

—

BCS
ERROR
BR
JSR

RORB
BCC
JSR

5534 836186 8813 7

5285 026110 005003

5294

—

sCHECK CHARACTER LOADED WITH SOM (000), IN THE BIT WINDOW

§270
5271
5272
5273
5274
5275

5286
528
5288
5289
gggg

08:27
PAGE 103
BASIC RECEIVER TESTS

gggg

5280

737

104006

120001
026152
031122

031230
000001

031226

026154

MOV

768:
118:
738:

030226

CALBCC, 118

;LOAD POLYNOMIAL
:LOAD SOFT CHAR FOR BCC
;CALCULATE SOFT BCC
:SHIFT COUNT
:CHARACTER
:0LD BCC
;LOAD SOFT BCC FOR NEXT SHIFT

RORB
BCC
JSR

R2
748
PC,GETSI

;SHIFT SOFT DATA
:BR IF A SPACE
;LOOK AT BIT WINDOW

ERROR

JSR

Pg GETSI

ERROR

MOV
JSR
10
0
0
MOV

DATACLK,

BCS
74%:
i

B8R

BCC

#CRC16,XPOLY

RS,76%
RS,SIMBCC

756
58

75§

:SHIFT DATA IN TO BIT WINDOW

:BR IF OK (MARK)

:ERROR, BIT WINDOW WAS A SPACE

: CONT INUE

;LOOK AT BIT WINDOW

:BR IF OK (SPACE)

:ERROR, BIT WINDOW WAS A MARK

N
—

REF TS

08:27 PAGE 104
BASIC RECEIVER TESTS

INC
(MP

000010

BNE
CLR
DEC
BNE

NIPONININD

oo
O

)
08-JUL-80
08:24

SEQ 0103

R3
#10,R3
738
R3

JBUMP BIT COUNTER
‘DONE FULL 8 BITS YET
‘BR IF NO
*CLEAR BIT COUNTER

ng
138

‘DEC CHARACTER COUNT
‘BR IF NOT DONE YET

778:

~
w

SSHIFT SOFT BCC

BCS

79%

‘BR IF OK (MARK)

030226

788:

ERROR
BR
JSR

14
79%
PC,GETSI

ERRGR

gsss

Y = NN

OWwW~NN
owVo
o

——

ROR

030226

BCC

INC
CMP

000020

;PUT BCC IN RO
*SHIFT HARDWARE BCC

BNE
CLR

788
PC,GETSI

:BR IF CARRY CLEAR
1LOOK AT BIT WINDOW
‘ERROR, CRC WRONG (SPACE)
* CONT INUE
:LOOK AT BIT WINDOW

79%

:BR IF OK (SPACE)

*ERROR, CRC WRONG (MARK)

R3
#20,R3

;BUMP BIT COUNTER
‘FINISHED BCC YET?

778
R3

:BR IF NO
:CLEAR BIT COUNTER

000001
030226

fl
CONO W
N
B = NN

S8
- PO

358 3 g 4

8 288
- NI\

3 s

~ "
~O
—
~
W
-t~

;CHECK TO SEE IF TRANSMITTER IS MARKING

000007

2%:

38:

;CLOCK TRANSMITTER
1LOOK AT WINDOW
:IT SHOULD BE MARKING

INC

‘BUMP BIT COUNTER

ERROR
mP

BNE

000010

000001
030226

DATACLK,
1
JSR
PC,GETSI
BCS
3s

DATACLK,

48:

87 .83

ERROR

INC

cMP
BNE

*ERROR,

BIT WAS A SPACE

:DONE YET
10

CLR
R3
DATACLK,
1
JSR
PC,GETSI

BCS

000020

:BR IF NO

:GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE

:CLEAR BIT COUNTER
SSHIFT OUT NEXT BIT
:LOOK AT BIT WINDOW

SBR IF IT IS A MARK

SINC BiT COUNT

‘ERROR,

#20,R3
i

TRANSMITTER IS NOT MARKING

:DONE YET?
:BR IF NO

;CHECK TO SEE THAT FIRST FOUR CNA!AgY;I ME SSAGE

O-

SSEIS3S
SR

228= ooR

*WAS RECEIVED CORRECTLY (0,125,252,377)
oo

VAV

AVAWA iWVAWA VAWV
VWA

frivitviive
(P LI
IV IV
VO] w
NN
VAVAWAUALA
¥
FREEd
v
— 3 Lo 332333 233
SETFEREETE SERR
v
1w

MoV
CALBCC,RO
DATACLK,1

BCC
JSR

~Nw

031230
000001

—

22 —2‘d
$
¥
28
8 38
WSNWW
O -t~y

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

000001
000004

032012

031066
000004

DATACLK,
MOV
2% 3
408:

MOV

JSR

sgggtz
MOV
MOVE

#MESDAT ,R2

;GET LAST BIT IN RECEIVER
*R3=CHARACTER COUNT

:LOAD MESSAGE POINTER IN R2

PC, INRDY

‘WAIT FOR INRDY

4(R1),R&
(R2)+.RS

:PUT “FOUND"' IN R&
‘PUT “EXPECTED'' IN RS

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

CIKCF
MACY11 30A(1052)
08-JuL=-80
CZKCF.PIN
08-JUL-80 08:24

5368

5369

5370
5371
3;;;

026414

026416

0 6450
026422
026424

08:27 PAGE 105
BASIC RECEIVER TESTS

120504

001401

418:

§374,

5381

o%ea 6
026432
026434
026436

026444

004737
104412
021204
116137

042737

026452
026456
026460
026462
026466

004737
104412
021244
016104
042704

5388

026476

120504

5390
5391
5392
5393
5396

026502
026504
026504
026506
026510

104412
021204
116137

5397
5398
3233

026532
026540
026542

023737
001401
104027

5389

026472

026500

5395 836516
5396
0265264

012705

031066

5407

000004

177400

031066

001302

‘RECEIVE DATA ERROR
‘DEC CHARACTER COUNT
‘BR IF NOT DONE YET

BIC

JSR
ROMCLK
021244
MOV
BIC

000004
000376

000001

MOV

CMPB

001401

BEQ

104015

;7 7
053737

508:
000004

377
001300

031230

001301

001300
001302

ERROR

ROMCLK
021204
MOVE

BIC
BIS

001302

CMP
BEQ
ERROR

026544
026550
026552
026554
026560
026562

004737
104412
021204
016104
005005
120504

026566

104010

031066

458:

000004

001401

‘BR IF YES

PC, INRDY

4(R1),$TMP2

#177400,8TMP2

;WAIT FOR INRDY
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
SGET FIRST MALF OF CRC
SPUT IN $TMP?

:CLEAR W] BYTE

PC,INRDY

:WAIT FOR INRDY
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1),R&
#376,R4

:PUT "FOUND'' IN Ré&
:CLEAR UNWANTED BITS

#,RS

RS.Ré4

508

:PUT "EXPECTED'' IN RS
:1S IN BCC MATCH SET?

sIN BCC MATCH ERROR

4(R1),S8TMP1+1

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
SGET LAST HALF
:PUT IN STMP1

9377, $THP1
sTpf,sTHP2

CALBCC,$TMP2
(5%
27

*CLEAR LO BYTE
216 BIT BCC NOW IN STMP2

:IS IT CORRECT?
iBR IF OK

JSR
ROMCLK
021204
MOV
CLR
(MPB

4(R1),R&
RS
RS,R&

;WAIT FOR INRDY
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET RECEIVE DATA
-;PUT "FOUND" IN Ré
:PUT “EXPECTED'' IN RS
1S RECEVIED DATA CORRECT?

ERROR

*RECEIVE DATA ERROR

BEQ

5412

32}2

10
R3
408

;CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000)

5409 026564
gz;g

ERROR
DEC
BNE

JSR
ROMCLK
021204
MOVE

2281

5403
5404
5405

;1S RECEIVED DATA CORRECT?

41$

*AND THAT THE B(C WAS RECEIVED CORRECTLY

5382
5383
5384
5385
5386

5387

RS,R4

;CHECK TO SEE THAT IN BCC MATCH IS SET

3;;2

§377
5378
5379
5380

CMPB

BEQ

104010
005303
001364

SEQ 0104

PC, INRDY

454

‘BR IF YES

;CHECK TO SEE THAT SECOND FOUR

CHARACTER MESSAGE

:WAS RECEIVED CORRECTLY (0,125,252,377)

5415

026570

012703

000004

428:

MOV

# ,R3

;R3=CHARACTER COUNT

5417
5418
5419
5420
5421
5422

026600
026604
ogooos
026610
026614
026616

004737
104412
021204
016104
112205
120504

031066

438:

JSR
ROMCLK
021204
MOV
MOVB
CMPB

PC, INRDY

:WAIT FOR INRDY
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
.
=
;PUT "FOUND"' IN Ré
:PUT “EXPECTED' IN RS
:1S RECEIVED DATA CORRECT?

5416 0265764

5423 026620

012702

001401

032012
000004

MOV

BEQ

#MESDAT,R2
4(R1),Ré
(R2)+.RS
RS,R&4

:LOAD MESSAGE POINTER IN R2

‘BR IF YES

MACY11

30A(1052)
08-JUL~80
08-JuL-80 08:24

6622

08:27 PAGE 106
BASIC RECEIVER TESTS

104010
005303
001364

44$:

ERROR

SEQ 0105

DEC

JRECEIVE DATA ERROR

BNE

‘DEC CHARACTER COUNT

‘BR IF NOT DONE YET

;CHECK TO SEE THAT IN BCC MATCH IS SET

:AND THAT

2 g SxSRS

0013
0013

LS LV

000004
177400
031066

021204

14
7
;

JSR

ROMCLK

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1),Ré

;PUT "'FOUND"' IN Ré

MOV

#1,RS

‘PUT “EXPECTED'' IN RS

#376,R4

:CLEAR UNWANTED BITS

RS.Ré

:1S IN BCC MATCH SET?

51§

ERROR

:IN BCC MATCH ERROR
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MOVE

&4(R1),STMP1+1

CMP

CALBCC,$TMP2

BIC
BIS
i

:CLEAR WI BYTE

MOV

021204

~
w
N

ARZR

‘WAIT FOR INRDY

BEQ

#377,$TMP1
$TmPi,$THP2

BEQ
ERROR

ROMCLK PC=5304

‘GET FIRST MALF OF CRC

PC, INRDY

ROMCLK

836734
6742
026744
026746

INSTRUCTION,

JSR

(MPB

SPUT IN STMP2

#177400,8TMP2

BIC

000001

;WAIT FOR INRDY

JNEXT WORD

4(R1),$TMP2

33?5%5

000004
000376

PC, INRDY

MOVE

BIC

WO
=

CO—-O

NN~
NN
=
oo

ped=l=]

S
g

Rflgg

031066

THE BCC WAS RECEIVED CORRECTLY

5%
27

sGET LAST HALF
:PUT IN STMPI

:CLEAR LO BYTE
;16 BIT BCC NOW IN $TMP2
:IS IT CORRECT?

‘BR IF OK

Jeknnnetnnentteeeeentnnnttnn

TEST

tetannnenannnnntatenenntens

;*EMPTY SILO TEST
s*LOAD SILO WITH 2 SYNCS, & CHAR MESSAGE, SINGLE CLOCK
S*UNTIL THE SILO IS EMPTY, LOAD 4 MORE CHARACTERS IN THE
;*SILO, GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST
;%6 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS IS CLEAR
PR

;

AR A

AR 2

Al A

eIty

TEST 54

8 N~

gs..

we
—

000
2012

NNNNNON =0

—

0000
027200

[=1-TTT]

NN
NN
OWVMINNNNNES
=NANANO
O~
=

4
~N

Y QR

o
~

3
o

OO0~

LS LN

(=1

026746
026750
026756

7STS4:

R AR

SCOPE

MOV

MOV
MSTCLR

R R R

#8171,

MOV

¥4 ,R0

JSR
JSR
JSR
MESDAT

RN AR

#54,8TSTNN

#1755, NEXT

MOV

AR R RN

(R1)

RN R R AR R R AR RN R AR RRAERRRS

; LOAD THE NO. OF THIS TEST

: POINT TO THE START OF NEXT TEST.

:R1 CONTAINS BASE KMC11 ADDRESS
:MASTER CLEAR KMC11

:SET LINE UNIT LOOP

#MESDAT,R2

;ns POINTS TO MESSAGE

PC.SYNLD
PC.OUTRDY
RS.MESLD

*LOAD SILO WITH TWO SYNCS
‘WAIT FOR OUTRDY
:LOAD MESSAGE IN SILO
‘START OF MESSAGE

‘RO

= CHAR COUNT

——

Ty
J——

’g%:g:

MACY11 30A(1052) 08-JuL-80 08:27 PAGE 107

P11

5480

5481
5482
5483
5484
5485
5486
5487
5488
5489

08-JUL~-80 08:24

027020

027022
027026
027032
027036
027040
027042
027046
027052
027054

000004

004737
104413
034537
032012
000004
004737
104413
104412
o§1zoa

5490
5491
5492
5493
5494
5495

027056
027
027
027070
027074
027100

032761
001401
104054
104413
004737
104412

5497

027104

016104

5496

5498
5499
5500

5501
§502

5503
5504
5505
5506
§507

027102

027110
027112
027114

027116
027120

021204

112205
120504
001401

001364
004737
104412
021204
013184

5509
5510
§511
5512
§513
5514

027144
027146
027150
027152
027156
027160

120504
001401
104010
004737
104412
021204

5516

027166

012705

§515

5517
5518

5519
§520

027140

027162
027172
027174

027176
027200

030260
000065
031530

012705

016104
120504
001401

JSR
PC,OCOR
DATACLK,
65
JSR
RS,MESLD
MESDAT
4
JSR
PC,OCOR
DATACLK,
5
ROMCLK
021264

030260
000005

000040

000004

000041
031066

5%:
1$:

BIT
#BITS,4(R1)
BEQ
5%
ERROR
34
DATACLK,
41
JSR
PC, INRDY
ROMCLK
021204

000004

MOV

4(R1),Ré4

ERROR
DEC

10
RO

MOVB
CMPB
BEQ

104010
005300

027122
027124
027130
027132
027134

5508

BASIC RECEIVER TESTS

28:

031066

3s:

000004

000377

BNE
JSR
ROMCLK
021204
MOV

MOV

031066

48:

000004

000377

104010

108:

;CHARACTER COUNT

:WAIT FOR OCOR
sCLOCK DATA (EMPTY SILOD)
:PUT MORE CHARACTERS IN SILO

;CLOCK UNTIL RTS IS CLEARED
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET RTS
;1S IT CLEAR?
:BR IF YES
;ERROR, RTS NOT CLEAR

:CLOCK XMITTER SOME MORE
;0K LETS CHECK WHAT WAS RECEIVED
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET RECEIVE DATA

:PUT IT IN R4

(R2)+.RS
RS,R&
2%

;RS = “EXPECTED"
:1S DATA CORRECT?
:BR IF OK

1s
PC, INRDY

:BR IF NOT DONE YET
:WAIT FOR INRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET RECEIVE DATA
;PUT IT IN "FOUND"

4(R1),R4

#377,RS

(MPB
BEQ
ERROR
JSR
ROMCLK
021204

RS5,R4
48
10
PC, INRDY

MOV

#377,R5

MOV

4(R1),Ré4

(MPB
BEQ

R5,Ré
108

ERROR

SEQ 0106

:DATA ERROR
:DEC CHAR COUNT

:RS

= "EXPECTED"

:SHOULD SEE 377
:BR IF OK
;ERROR, TRANSMITTER DID NOT ABORT
:WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION., ROMCLK PC=5304
;GET RECEIVE DATA

sPUT IT IN “FOUND"
;RS = “EXPECTED"

:SHOULD SEE 377
:BR IF OK

:ERROR, TRANSMITTER DID NOT ABORT

5523

Jeennnenneeeereneennnvnannns TEST 55 avenctenvnnnenvnennevtnennn

5524
§525
5526

;*MALF DUPLEX TEST
;*SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A
;*MESSAGE. VERIFY THAT IN=ACTIVE AND IN-READY ARE CLEAR

5527

::t"t.'t.!"'tt'i'tQtt"Qt'itl'!!tttit'iii"i"'t"'t"tltilttt

5528

gggg

;

ss,'

sssg
§53%

5534
5535

TEST 55

.-;tltt"‘t.tttt't""'t"t'tt"'t'ttttttt't.'t"t't'tlittittltil!

027200
027202

027210

012737

000055

027316

001202

001442

7S155:

SCOPE
MOV

MOV

#55,8TSTNM

#75756,NEXT

: LOAD THE NO. OF THIS TEST

: POINT TO THE START OF NEXT TEST.

;R1 CONTAINS BASE KMC11 ADDRESS

(ale)
NN

KCF

MACY11

KCF.P1

5536
5537
5538
5539
5540
55641
SS&%
5543
5544
5545
5546
5547
5548

5549
5550
5551
5552
555%
5554
5555

5556
5557
5558
5559

30A(1052)

08-JuL-80

08-JuL~-80 08:24

027216
027220
027226
027
027236
027240
0%7262
0 7263
027252
027256
027260
027262
027266

027272
027274
027276
027302
027306
027310
027312

027314
027316

104410
012702
012711
012761
10441§
12211
0067;7
004737
004537
032012
000004
004737
104413

104412
021244
016104
042704
005005
120504
001401

000012
004000
000020

08:27

PAGE 108

BASIC RECEIVER TESTS

MSTCLR
MoV

000004

031374
030412
031530
030260
000073

000004
000257

104035

18:

5560

TEST

wunnnnnvanesnanasnntnteannns

;%4 SYNCS,16 CHAR,EOM,16 CHAR,.EOM,16 CHAR,EOM

:*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO

;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK
:*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
;*LOOP=-BACK CONNECTOR MUST BE ON TO RUN THIS TEST
MR

AR R

ARl A

TESY 56

eIy

:----‘----.—--.

—

~N
~
w

012737
012737

ozrs;z
027336
027344
ozrgbg
027352
7356
7
07

133410
032737
001557
012711
004737
004737
012737
005037

812 03

004000
031374
031374
120001
027420
20

558

76406

11 gs

027416

gsaa
589
5590
5591

;SET LINE UNIT LOOP
;LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET H/D BIT
:LOAD 2 SYNCS
;WAIT FOR OUTRDY
;LOAD 4 CHAR MESSAGE
;ADDRESS OF MESSAGE
s CHARACTER COUNT
sWAIT FOR OCOR
s SEND MESSAGE
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU-12
;PUT "'FOUND'' IN R4
sCLEAR UNWANTED BITS
;RS = "EXPECTED"'
sIN=ACTIVE AND IN-RDY SHOULD BE CLEAR
:BR_IF 0K
;ERROR BOTH ARE NOT CLEAR

;*DDCMP CABLE DATA TEST

027320
027326

ssa;

MOV
MOV
ROMCLK
122113
JSR
PC,SYNLD
JSR
PC,OUTRDY
JSR
RS.,MESLD
MESDAT
4
JSR
PC,OCOR
DATACLK,
73
ROMCLK
021244
MOV
4&(R1) R4
BIC
#257 R4
CLR
RS
CMPB
R5,R4
BEQ
1%
ERROR
35

;*THIS TEST LOADS OUT SILO WITH THE FOLLOWING:

;
5
5
5577
5578
5579
5580
5581
ssag
558
5584

5585

sMASTER CLEAR KMC11
:SAVE R2 FOR TYPEOUT

#12,R2
#BIT11,(R1)
#BIT4,4(RT)

JetRRRRrRReR
Rt enenevnnnnnk

SNNSNNNY

VIV VIV
WA

3‘m:~u--oo
$ELEEE

5561
“ 562
5 563
5
5
5
5
5
5
<
5
g

SEQ 0107

(27374

000056
027706

001202
001442

040000

002050

7400 1570 3?2316

7410
027414
0274;3
027420

37
10

000000

031122

15156:

031226

SCOPE

5%
68:

RN RN

R R R R

R R AR AR AR AR AR RN RN AR

MOV
MOV

#56,8TSTNM
#1557, NEXT

MSTCLR
BIT
BEQ
MOV
JSR
JSR
MOV
CLR

#BIT14,STATY
s
#BIT11, (R1)
PC,SYNLD
PC.SYNLD
#CRC16,XPOLY
63

: LOAD THE NO. OF THIS TEST
: POINT TO THE START OF NEXT TEST.
;R1 CONTAINS BASE KMC11 ADDRESS
‘MASTER CLEAR KMC11
:SKIP TEST IF NO
:LOOPBACK CONNECTOR ON
:SET LINE UNIT LOOP
:LOAD 2 SYNCS
:LOAD 2 MORE SYNCS
:LOAD POLYNOMIAL FOR SOFT CRC CALC
:CLEAR OLD BCC

MOVBE

(R2)+,5%

:LOAD CHAR FOR SOFT BCC CALC.

MOV

7%:

MOV

JSR
10
0
0

6. ,R3

#FLTDAT,R2
RS,SIMBCC

*CHARACTER COUNT

:R2= POINTER

:CALC SOFT BCC
SSHIFT COUNT
{CHARACTER
:0LD BCC

013737
005303

031230

o
w
~N
W~
Ow
— AN
—
- NNOONNOO NNOON

MACY11 30A(1052)
08-JuL-80
P11
08-JuUL-80 08:24

031530

027420

027552

MOV
DEC
BNE
JSR
FLTDAT
16
JSR
JSR
FLTDAT
16.
FLTDAT

16.
JSR

CALBCC,6%

7%
RS ,MESLD
PC,EOM

R5,MESLD

PC,EOM

RS ,MESLD
PC,EOM
PC.OCOR

(r1)

#3,.R0

#16. .83
#FLTDAT,R2
PC, INRDY

4(R1) R4
(R2)+,RS

;LOAD OLD BCC
sDEC COUNT
sBR IF NOT DONE YET
;LOAD SILO
JMESSAGE ADDRESS
sCHARACTER COUNT
sLOAD AN EOM
sLOAD SILO
JMESSAGE ADDRESS
sCHARACTER COUNT
sLOAD AN EOM
;LOAD SILO
sMESSAGE ADDRESS

sCHARACTER COUNT
sLOAD AN EOM

sWAIT FOR OCOR

sCLEAR LINE UNIT LOOP
;RO = MESSAGE COUNT

sR3= CHARACTER COUNT

sLOAD MESSAGE POINTER IN R2
sWAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET DATA FROM IN SILO
sPUT CHARACTER IN “'FOUND'’

sPUT "EXPECTED'' IN RS

R5,R4
2%

;1S RECEIVED DATA CORRECT
sBR IF 0K
sDATA ERROR

R3
1%
#16..R3

sDEC CHARACTER COUNT
:BR IF NOT DONE THIS MESSAGE

000020

SEQ 0108

sRESET CHARACTER COUNT

000004

177400

031066

JSR

ROMCLK

00130

PC,INRDY

021204

MOVB
BIC
JSR

ROMCLK

021244

sWAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET FIRST HALF OF CRC
;PUT IN STMP2
;CLEAR HI BYTE
;MAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:PUT "FOUND'' IN Ré
:CLEAR_UNWANTED BITS
:PUT "EXPECTED" IN RS
;1S IN BCC MATCH SET?
;IN BCC MATCH ERROR

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

WO
NN
S~

027654

031066

N-a

) -

027556

S2283 288NINION
2p2R=22=0=8
= N g
uuug : SES SSSRE NN S

;CHECK TO SEE THAT IN BCC MATCH IS SET
sAND THAT THE BCC WAS RECEIVED CORRECTLY

g333333

PAGE 109

BASIC RECEIVER TESTS

JSR
JSR

—
SRR REICS8=
IR

S¢S
R
(o TwTw]
WwWHw
v

—

00NV
N —

¥SSBEEEEEEENEE SEELLLLLE
A

238
3 A $ATNT AL L9 L
VoW S 83:283822288882888388

001

08:27

4(R1),$THP+1

2377, $1MP1
sTupi,sTHP2

sGET LAST HALF

;PUT IN STHPY
sCLEAR LO BYTE
;16 BIT BCC NOW IN $TMP2

—

CZKCF

MACY11 30A(1052)

CIKCF.P11

08-JuL-80

08-JUL-80 08:24

5648
5649

027662
027670

023737
001401

031230

5651
5652
5653

027674
027700
027702

012702
005300
001307

032016

5650 027672

gggg

027704

104027

08:27

001302
4s:

104420

PAGE 110

BASIC RECEIVER TESTS

38:

5656

SEQ 0109

CMP
BEQ

CALBCC,$TMP2
(8

;IS IT CORRECT?
:BR IF OK

MOV
DEC
BNE

#FLTDAT,R2
RO
1%

;RESET MESSAGE POINTER
:DECREMENT COUNTER
‘BR IF NOT DONE

ERROR

ADVANCE

; ADVANCE TO NEXT TEST

5657

JRkerRRRtrRRRnaneeenavennnt

5658
5659
5660
5661
5662
5663

;*DDCMP CABLE DATA TEST
;#THIS TEST LOADS OUT SILO WITH THE FOLLOWING:
;%4 SYNCS,59 DATA CHARACTERS,EOM WITH GARBAGE CHARACTER
;#THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK
:«RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
:*LOOP=-BACK CONNECTOR MUST BE ON TO RUN THIS TEST

S“l.

5665

;
027706
027710
027716

000004
012737
012737

000057
003662

001202
001442

027724
027726

104410
032737

040000

002050

004000
031374
031374
120001

031226

857732
0277
027742
027746
027752

801533
12711
00&737
004737
o1§737

5680 027760 005037 030010
5681 027764 012703 000073
seag 027770 012702 032012
5683

5684
5685
seag
5687
5688
5689
5690
5691
scog
569
5694
5695

5696

5697

027774

0
0
0
030010
030012
8
2
030024
30030
soogi

5698 0
5699
5700
5701
570
5703

57 srananevsnnvnvraevannannnene

::Ql.""'Qt"""""""tt'tttt".Q!t..ttl't"t'.tttt."t""t

gggg

5668
5669
5670
5671
5672
5673
5674
75
676
5677
5678
5679

TEST

0
3

030064
osoogo
030072

112;37

004537
000010
000000

TEST 57

;:Q'Qt.';"'."tt't""'ttt"'t"ttt.t'l..Qlttttt'ttttt't'ttt'ttt
7ST57:
SCOPE
MOV
#57,8TSTNM
: LOAD THE NO. OF THIS TEST
MOV
#SEOP, NEXT
: POINT TO THE END OF PASS HANDLER.
;R1 CONTAINS BASE KMC11 ADDRESS
MSTCLR
:MASTER CLEAR KMC11
BIT
#BIT14,STAT1
:SKIP TEST IF NO
BEQ
3s
:LOOPBACK CONNECTOR ON
MOV
#BIT11, (R1)
:SET LINE UNIT LOOP
JSR
PC,SYNLD
:LOAD 2 SYNCS
JSR
PC,SYNLD
:LOAD 2 MORE SYNCS
MOV
#CRC16,XPOLY
;LOAD POLYNOMIAL FOR SOFT CRC CALC

CLR
MOV

68
#59. .83
#MESDAT ,R2

;CLEAR
OLD BCC
:CHARACTER COUNT
*R2= POINTER

RS,SIMBCC

PC,EOM
PC,OCOR

+CALC SOFT BCC
SSHIFT COUNT
:CHARACTER
:0LD BCC
:LOAD OLD BCC
:DEC COUNT
:BR IF NOT DONE YET
:LOAD SILO
;MESSAGE ADDRESS
;CHARACTER COUNT
:LOAD AN EOM
‘WAIT FOR OCOR

:RO= CHMARACTER COUNT

MOV

030006

78:

MOVE

(R2)+,5%

013737
005303
001
004537
03201
7
737
737

031230

031504
030260

JSR
10
0
0
MOV
DEC
BNE
JSR
MESDAT
59,
JSR
JSR

812 00

000073

MOV

#59. R0

og:rs
1046412
021204
016104
112205

031066

JSR
aonbe
021204
MOV
MOVE

PC, INRDY

12702

031122

030010

5%:
68:

031530

032012
000004

CLR

1%:

MOV

CALBCC,68
R3
7%
RS, MESLD

#MESDAT,R2
4(R1),R4
(R2)+.RS

:LOAD CHAR FOR SOFT BCC CALC.

:cbsan LINE UNIT LOOP

1LOAD MESSAGE POINTER IN R2

:WAIT FOR INRDY
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET DATA FROM IN SILO

:PUT CHARACTER
IN "F OUND
:PUT “EXPECTED'' IN RS

alal
~Nr~

KCF
MACY11 30A(1052)
08-JUL-80
KCF.P11
08-JUL=-B0 08:24

5704
5705

5706

5707
€708
g;?g

030074
030076

030100

030102
030102
030104

08:27
PAGE 111
BASIC RECEIVER TESTS

120504
001401

104025

28:

005300

001364

5718

030106
030112
030114
030116

030126

030132
030136
030140

5723

004737
104412
021204
116137

042737

031066

000004

177400

004737
104412
021244

031066

030146

042704

000376

030156

120504

§722 030142 016104
5724

030152

5726

030160

§727
5728

030162
030164

5729 030164

012705

001302

030222

;;gz 030224

JSR
ROMCLK
021204
MOVB

PC,INRDY

JSR
ROMCLK
021244

PC, INRDY

sBR IF NOT DONE

4(R1),$TMP2

#177400,8TMP2

000001

MOV

#1,RS

BIC

CMPB

001401

BEQ

104015

25%:

104412

104027

104420

ERROR

38:

ERROR

ADVANCE

:CLEAR HI BYTE

‘WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PUT "FOUND'' IN R4

SCLEAR UNWANTED BITS

RS.Ré4

+1S IN BCC MATCH SET?

:PUT “EXPECTED'' IN RS

25¢
15

:IN BCC MATCH ERROR

ROMCLK

BIS
CMP
BEQ

JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
“GET FIRST MALF OF CRC
‘PUT IN STMP2

#376,R4

%350‘ 4(R1),$TMP1+1+
BIC
#377,$1MP1
s, STHP2
CALBCC,STMP2
3
27

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

’35;
%as;#%r
H
:CLEAR
LO BYTE

:16 BIT BCC NOW IN STMP2
;IS IT CORRECT?
:BR IF OK

; ADVANCE TO NEXT TEST

: SUBROUT INES
030226

GETSI:

g;:z

:THIS SUBROUTINE READS LU 17, AND PUTS IT INTO NITCH.
INITCH IS ROTATED LEFT UNTILL THE SI BIT IS IN CARRY

5747
5748

030226
030230

104412
021

5751

830 46
30250
030254
030256

106137
106137
000207
000000

'°"§'¢;§
021

5749 8”223 017737 151636 030256
5750 0302
1«1;7 030256

5758

;DATA ERROR

4(R1),R4

5740

5754
5755

:DECREMENT COUNTER

MOV

5739

5744

000004

33 030204 053737 001300 001302
573, 030212 023737 031230 001302
5735 030220 001401

5742
5743

DEC

ERROR

BIC

sng oso}% ?¥‘¥°’7'
001301
gg 833175 osgr 7 ooon
“87”7' 001300

5736

1S RECEIVED DATA CORRECT
‘BR IF OK

IAND THAT THE BCC WAS RECEIVED CORRECTLY

5719
5720
5721

5725

RS.R4
2%

;CHECK TO SEE THAT IN BCC MATCH IS SET

g;}g
5714
5715
5716
5717

CMPB
BEQ

BNE

§711

SEQ 0110

030260

MOV
ROLB

030256
030256

NITCH:

OCOR:

ROLB
ROLB
RTS
0

KMPO4L NITCH
NITCH
NITCH
NITCH
PC

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LU 17

:STORETMLU 17

:PUT S1 IN THE CARRY BIT

:THIS SUBROUTINE SPINS ON OCOR

MACY11

30A(1052)

030260
030262
030264
030272
030274

104412
o§1
032777
001772
000207

P11
60
61
762
5763
g;gg

§766

08-JUL-B0

08-JUL-80 08:24

000020

08:27

PAGE

ROMCLK
021364
BIT
BEQ
RTS

151602

5767
5768
5769

030276

5772

SYNC:

030%6

013637

001276

5774

030306

012761

000026

000004

g;;g
5773
5775
5776

030302

030314
030316

062746
104412
122114

000002

004737
012761
104412

030412
000001

000004

5781
5782

030336
030344

012761
104412

000026

000004

5784
5785
5786

030350
030354
030356

005337
001361
004737

001276

5789

5790
5791

5792
5793
5794
5795

030334

030346

ogg

030370

030372
030400
030402
030404
030410

5796
5797

030412

5800

030412

g%
5801
5802
S803

5804
5805
saog
5807

5808
5809
5810
5811
5812
5813

gg}g

#B1T4,3KMPO4
0COR
PC

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 17
;15 OCOR SET?
:BR IF NO
;0K OCOR IS SET, GO BACK

.
;THIS SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF SYNC
;CHARACTERS PASSED TO IT IN THE WORD AFTER THE JSR CALL

MOV

030320
030324
030332

5783

SEQ 0111

JAND A NON=SYNC CHARACTER (301)

5777
5778
5779
5780

112

SUBROUTINES

030416
030416
030420

030422
030430
030432
030436
030440
030442

030444

122111

122110

005061

104412
122111

012761
104412

122110
004737
000207

ADD

MOV
1$:

104412
021224

032777
001004
005237
001367

104036
000207

$TMPO
1
PC,OUTRDY

122111

122110
JSR
RTS

001306
000020

DEC
BNE
JSR

MOV
ROMCLK

OUTRDY:

005037

#26,4(R1)

CLR

030260

18:

151444

2%:
CHAR:

4(R1)

#301,4(R1)
PC,OCOR
PC

:ADJUST STACK
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD SYNC REGISTER

:WAIT FOR OUTRDY
;LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;SET SOM

;LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA

;ALL DONE?
:BR IF NOT
;WAIT FOR OUTRDY
;LOAD PORT4

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:SET SOM

;LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;LOAD OUT DAT:
:MAIT FOR OCOR

;THIS SUBROUTINE SPINS ON OUT READY

CLR
ROMCLX
021224

BIT
BNE
INC
BNE

001306

;LOAD PORT4

MOV
ROMCLK

ROMCLK
000004

#26,4(R1)
PC,OUTRDY
#1,4(RY)

122110

030412

;GET COUNT

JSR
MOV
ROMCLK
122111

000004

000301

ROMCLK
122114

a(SP)+,$TMPO

#2,-(SP)

;
.
;

ERROR
RTS

$TAPS
#8174,3KNPO4
28
$THPS
1
36
PC

;CLEAR TIMER
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_LUN

;1S ouY RDY SET?
:BR IF YES
+INC TIMER
;KEEP CHECKING IF NOT DONE
;ERROR, OUT READY NOT SET

;THIS SUBROUTINE LOADS THE SILOC WITH 3 SYNCS

;AND THE CMARACTER PASSED TO IT.

!
|

MACY11

30A(1052)

030444
030450

013637
06274

P11

8
9

030454
030462

012737
012761

030472
030474
0;8500

122114
004737
012761

5826 030512
7 030520

012761
104412

5821
SQZ%
582

030470

5824
5825

030506
030510

5828
ag

030522
030524

5831

0305

5834
5835
5836
5837
5838
5839

030546
030550
030554

0305

5832 030536
5833 030544

Ssgb‘g

08-JUL-80

08-JUL-80 08:24

104412

104412
122111

001300
00000§

000003
000026

MOV
ADD

030412
000001

000004

122114
JSR
MOV

000026

000004

004737

030412

122110
004737
000207

030260

001300

ROMCLK

1%:

ROMCLK
122111

MOV
ROMCLK

000004

5844 8;3335 3&73 8282?2
5847

030602

5850

030612

122110

5848 030604 004737
5849 030610 104412

030412

5851

030614

030260

5854
5855

030622

5856

030620

122110

004737

000207

5861
sasg
5863
5864

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
SSET SOM

:LOAD PORT4
:NEXT WORD IS INSTRUCTION SOMCLK PC=5304
sWAIT FOR OUTRDY

122110
JSR
RTS

PC,OCOR
PC

$TMP1,4(R1)

PC,OUTRDY

$THP1,4(R1)

JSR
ROMCLK

PC,OUTRDY

JSR

PC.OCOR

RTS

;

‘BR IF NOT

:LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
:WAIT FOR OCOR

sTHIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT.

122110

:WAIT FOR OUTRDY

:LOAD PORT&
sNEXT WORD IS INSTRUCTION., ROMCLK PC=5304
:LOAD OUT DATA

:WAIT FOR OUTRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD GARBAGE CHAR

:WAIT FOR OCOR

;THIS SUBROUTINE FILLS THE OUT SILO

0
0
0
0

001360

MOV

#73,8TAP1

100470
001%2
7 ooooog 001300
12737 00000
1276

BM]
BNE
ADD
MOV

T3
28
#2,8THP1
#3,$THPO

104412

ROMCLK

005737

031062

5865 030654 012761 000026
sug 0
5867

*LOAD SYNC REGISTER
JWAIT FOR OUTRDY
;LOAD PORTS

: WITH A BINARY COUNT PATTERN

5859 osoog 012737 000073
5860

#26,4(R1)

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

PC,OUTRDY

122110

gg;

PC,OUTRDY
#1,4(RY1)

:SET FOR 3 SYNCS
:LOAD PORT4

JSR

MOV
ROMCLK

SILOLD:

#3.8$TMPO
#26,4(RT)

JGET CHARACTER
sADJUST STACK

;LOAD OUT DATA
:ALL DONE?

JSR

013761 001300 000004
104412

a(SP)+,8TMPY
#2,-(SP)

$TMPO

MOV
ROMCLK

CHARSD:

SEQ 0112

122110
DEC

BNE

030556

5845 030572
5846 030600

113

MOV
MOV

001276

013761
104412

PAGE

SUBROUTINES

001276
000004

122110
005337

ooug1

08:27

agm

saog 0
737 030412
osog
012761 000001 000004
5870 030
104412
5871 030702 122111

MOV

1%:

122114

JSR
MOV
ROMCLK
122111

SCHAR

#26,4(R1)
PC,OUTRDY
M .4(R1)

:LOAD COUNT

;FIRST TIME MERE?

:BR IF BITSTUFF
:BR IF NO
:ADD 2 TO CHARACTER COUNT
:SET FOR 3 SYNCS

:LOAD PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD SYNC REGISTER

:WAIT FOR OUTRDY
:LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:SET SOM

|
|

——

CZKCF

MACY11

30A(1052)

030704
030712

012761
104412

CIKCF.P11
5872
5873

5874
5875
5876
5877

5878
5879

030714
030716
030722
030724

030730
030736

5880
5881
5882

030740
030742
030746

5
5885
5886

030756
030762
030764

5883

5887
S888

030750

0307
030772

5889
S890

031000
031002

5892
5893
5894

031010
031014
031016

5891

031006

122110
005337
001361
004737

013761
104412

122110
005737
001407

013737

004537
000000
000010

oos;sr
022737

001403
005337

001346

004737
000207
005037

5895
5896
5897
5898

031022
031030
031034
031042

012737
005037
062737
012761

5901

031054

104412

5903

031060

000721

5%
5
§902

5904
§905
5906
5907
€908

5909
5910
5911

0B8-JUL-B0

08-JUL-80 08:24

031050
031052

031056

031062
031064

1gu.1z
122111

000026

08:27

000004

MOV
ROMCLK

001276
030412

031062

000004

28:

031064

031062

031612

031062
000400

030762
5%:

031062

68:

030260
om%

177777
032010
000002
000001

3s:

031064

48:

001300
000004

5921
5 ;
5

;LOAD OUT DATA
;BITSTUFF277
:BR IF NO

JSR
0
10

SCHAR,4(R1)

SCHAR,SS$

RS,STFFCL

INC
CMP

SCHAR
#400,SCHAR

BNE

JSR
RTS
CLR

MOV
CLR
ADD
MOV

000000
000000

SCHAR: 0
STUFLG: 0

031066

INRDY:

3
$THPI

PC,OCOR
PC
SCHAR

#-1,STUFLG
BITCON
2,571
#1,4(RY)

:LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;1T IS SDLD SO CHECK BITSTUFFING
;ADD ANY BIT STUFF CLOCK TICKS
; CHARACTER
;CHIFT COUNT

;NEXT CHARACTER
;ALL DONE?

:DECREMENT COUNT

;:BR IF NOT DONE
:WAIT FOR OCOR

:START PATTERN AT ZERO

;SET BITSTUFF FLAG
;CLEAR STUFF COUNT
;:ADD 2 TO CHARACTER COUNT
;SET BITO IN PORT4

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
SSET SOM!

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
2%

;LOAD GARBAGE CMAR

:GO LOAD SILO

;THIS SUBROUTINE SPINS ON INRDY
;IF INRDY FAILS TO SET THE DELAY TIMES OUT AND AN
;ERROR IS
REPORTED. FOR BETTER SCOPE LOOPS THIS
;DELAY CAN BE WADE SMORTER

BY ALTERING THE NUMBER

sINITIALLY LOADED INTO STMPO, THE SMALLER THE NUMBER
;:THE SHORTER THE DELAY. O IS THE LONGEST DELAY.

8310?6

012737

031076

104412

81100

000020

7
001367

001276

31074

031076

1;‘4

mos
0311
031114

0311

000207

§924 811;8 1
5925

STUFLG
6%

122110

gg};

5919

122110
ST
BEQ

MOV
ROMCLK

ROMCLK

122110

:LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
;ALL DONE?
:BR IF NOT
;WAIT FOR OUTRDY

ugnwz
12211

591

§31

#26,4(R1)
$TMPO
18
PC,OUTRDY

BEQ
DEC

001300

SEQ 0113

122110
DEC
BNE
JSR

MOV

591

gg}

PAGE 114

SUBROUTINES

000000

001276

18:

MOV
ROMCLK
021244

150766

BIT

BNE
INC
BNE
28:

#0,3THPO

ERROR
RTS

:SET UP DELAY COUNTER
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#8174,3KMPOL

$
TMPO
13

;PORT4 LUT2

;15 INRDY SET?

:BR IF YES
; INC DELAY
:TRY AGAIN

;ERROR,NO INRDY
:RETURN

CIKCF
MACY11 30A(1052)
gQ'JUL -80
CZKCF.P1Y
08-JUL-80 08:24

5928
5929
59

08:27

031122

PAGE 115

SUBROUTINES

SIMBCC:

5951

3938 031122
010046
031126

59
5934
5935
5936
5937
59
5939
5940
5941
5942
5943

5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
59’8
5970
5971
597
59
5974
5975
597
59
59
59
5980
5981
SG‘;
5983

0;11
031
0;1160
031144
031146
031152
031156
031160
031152

031193
031
031174
031202
031206
031212
031214
031220
031222
031224
0312;8
0312

012537
01 Sg?
012537
013700
000241
006037
37
005500
103011

013700
043700
043737
050037
005337
001352
013700
000000
012600
000205
000000

RO,=(SP)

MOV
MOV
?E!

(RS)+.$THP1
(RS)+.CALBCC
CALBCC,RO

031230
001300

ROR
ROR

031226
031230
031226
031230
001276

BCC
MOV
BIC
BIC
BIS
DEC

CALBCC
$TMP1
RO
RO

031230

200
120001
102010

0 1%
0N
031
1
1
1276
1276
1
1
1310
131
03131
1
1324
031332

MOV

1$:

012761
104412
122114
806737
12761
104412
1 g!ll
012761
106412
1 119
37
1361
806 7
013761
104412

(RS)+,8TMPO

ADC
ROR

031230
28:

2%
XPOLY,RO
CALBCC,RO
XPOLY, CALBCC
RO, CALBCC
$THPO

BNE

MOV
ROR
MOV
RTS
XPOLY:
0
CALECS: 0

CALBCC,RO
RO
(SP)+,RO
RS

;SAVE RO ON STACK
:$TMPO = SHIFT COUMT

;$TMP1 = CHARACTER

sCALBCC = OLD BCC
sPUT OLD BCC IN RO

sSHIFT OLD BCC
;SHIFT CHARACTER
sADD CHAR CARRY TO OLD BCC

:PUT BITO TO CARRY BIT
;CARRY IS FEEDBACK BIT

s1F FEEDBACK = 1
sEXCLUSIVLY OR XPOLY TO CALBCC
;DEC SHIFT COUNT

:BR IF NOT DONE

*PUT RESULT IN RO
SSHIFT BITO TO CARRY
*RESTORE RO
*SLPADR

LRC8=200
CRC16=120001
CRC.CCITT=102010
BCCLD:

013637
746
012737

;THIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN
:IN XPOLY. THE CORRECT CRC IS SLPADRED IN CALBCC, AND THE
;STATE OF THE LSB OF THE BCC IS SLPADRED IN THE C BIT.
MOV

001%76
001300
031230
031230

031232

0312;%
031%
031 gs

SEQ 0114

001300
000002
000002

MOV

@(SP)+,$TMP1

MOV

#2 . $THPO

ADD

#2,-(SP)

MOV

000026
030412
000001

:THIS SUBROUTINE LOADS THE OUT SILO WITH 2 SYNCS
*WITH SOM SET, AND ONE CHARACTER PASSED TO IT
‘WITH THE SOM'BIT CLEAR (ENABLE CRC)

18:

ngnth
122114
JSR

MOV

ROMCLK
122111

;GET CHARACTER

SADJUST STACK

*SET FOR 2 SYNCS

#26,4RY)

:LOAD PORT4

PC,OUTRDY

‘WAIT FOR OUTRDY

#1.4(RY)

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD SYNC REGISTER

:LOAD PORT4

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
‘SET SOM

000026

MOV

001276

DEC
BNE

$THPO
13

:ALL DONE?
;
gr NOT

MOV

$THP1,4(R1)

:LOAD PORT4

030412
1300

122110

JSR

ROMCLK

#26,4(R1)

PC,OUTRDY

:LOAD PORT4
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
‘WAIT

FOR QUTRDY

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

-~
.

ICZKCF

MACY11 30A(1052) 08-JuL-B0 08:27 PAGE 116
CIKCF.PI
08-JUL~-80 08:24
SUBROUTINES
5984
5985
5986
5987
€988
5989
5990

031334
031336
031342

122110
004737
000207

122110
JSR
RTS

030260

031344

GETQO:

ggg;

5993
5994
5995
5996
5997

5998
5999
6000

031344
031346
031350
031354

104412
021364
106177
000207

150520

031356

GETQI:

031356
031360
031362
031366
031372

104412
021364
106177
106177
000207

;LOAD OUT DATA
;WAIT FOR OCOR

THE TRANSMIT

AKMPO4
PC

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 _LU=17
‘PUT Q0 IN CARRY
:RETURN

;THIS SUBROUTINE READS THE STATE OF THE RECEIVE

ROMCLK
021364
ROLB
ROLB
RTS

150506
150502

031374

SYNLD:

AKMPOL
FKMPOL
PC

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
‘PORT4 LU=17
:PUT 0 IN CARRY
;PUT QI IN CARRY
‘RETURN

;THIS SUBROUTINE LOADS OUT SILO WITH

32 SYNC CHARACTERS WITH SOM SET

031374

012737

6017
6018
6019
6020
6021
6022
6023
6026
6025
6026
6027
6028
6029
6030
6031

031412
031414
031420
031426
0314
031432
031440
031442
031444
031450
031452

122114
004737
012761
104412
122111
012761
104412
122110
005337
001361
000207

6034

031454

000002

001276

MOV

6015 031402 012761 000026 000004
6016 031410 104412
030412
000001

000004

000026

000004

031454

2.8TMPO

MOV
& 4(R1)
ROMCLK
18:

001276

SOM:

28;%

122114
JSR
nov
n
2111
MOV
ROMCLK
122110
DEC
BNE
RTS

PC,OUTRDY
21,4(RY)
#26,4(R1)

$THPO
1%
PC

;LOAD counren FOR 2 SYNCS

:PORT4
INEXT Uouo IS INSTRUCTION, ROMCLK PC=5304
;LOAD SYNC REG
sWAIT FOR OUTRDY
:LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:SET SOM
;PORT_26
sNEXTWORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA WITH SYNC
;DECREMENT COUNTER
:BR IF NOT DONE
sRETURN

;THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A

:GARBAGE CHARACTER (0)

031460

6019 031
603

PC,OCOR
PC

sBCC LSB AND PUTS IT IN THE CARRY BIT

6014

6038

SEG 0115

;THIS SUBROUTINE READS THE STATE OF

ROMCLK
021364
ROLB
RTS

28}%

6035

;BCC LSB AND PUTS IT IN THE CARRY BIT

2885

6003
6004
6005
6006
6007
6008
6009
6010
6011

ogtt 0

031472

6039 031476

004737

012741

104412
122111

005061

104412

030412

000001

000004

JSR

MOV

ROMCLK
12211

CLR

ROMCLK

PC,OUTRDY

#1.4(RY)
4(R1)

uAlt roa OUTRDY

:PORT4

INEXT Goao IS INSTRUCTION, ROMCLK PC=5304
:SET SOM

:CLEAR DATA CHAR

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P1N
08-JuL-80 08:24

SEQ 0116
PC

;LOAD GARBAGE CHARACTER

‘RETURN

;THIS SUBROUTINE LOADS EOM AND OUT DATA WITH A

:GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC
031504

o
or

03 12
000 02

031510
031516
031520

JSR

000004

MOV

ROMCLK

PC,OUTRDY

#2.4(RY)

122111

031522
031524
031526

122110

RTS

MESLD:

;WAIT FOR OUTRDY

‘PORT4 2

sNEXT QORD IS INSTRUCTION, ROMCLK PC=5304

(SET EOM

ROMCLK

031530

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:LOAD GARBAGE CHARACTER
*RETURN

;THIS SUBROUTINE LOADS SILO WITH MESSAGE

2
oS

28
3

18:

6088
6089
6090
6091
6092
6093
6096
6095

031612

:SAVE RO

MOV

(RS)+,$TMPO

:$TMPO=CHARACTER COUNT

JSR

MOVB

122110

001276

DEC
BNE

030260

JSR
MOV
RTS
CLRIO:

55 Ngd

031604
031606
031610

RO,=(SP)

agnc%x

031572

MOV

=Y~

Ny
~wun
w

=11}

SSn3 =9

~
w
~ NNON

031554
031560
031562
031566
031570

031530
031532
031534
031540
03}564

prar Qe uerd

STHE FIRST ARUGUMENT 1S THE ADDRESS OF THE MESSAGE
;THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE

6083
6084
6085

600;

EOM:

~N
s
N - P~
O«
wd s et ON

122110

RTS

031504

o i

6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080

122110

000207

—

6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064
6065
e

031500
031502

— O

6040
6041
604
604
6044
6045
6046

08:27 PAGE 117
SUBROUT INES

000200

LK
122112

ROMCLK
122111
RTS

STFFCL:

PC,OUTRDY

(RO)+,4(RD)

$TMPO
1%

PC,OCOR
(SP)+,RO
RS

:RO=MESSAGE POINTER
:WAIT FOR OUT RDY

:LOAD PORT4 WITH CHARACTER

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

*LOAD OUT DATA SILO

:DEC CHAR COUNT
:BR IF NOT DONE

‘WAIT FOR OCOR
SRESTORE RO
:RETURN

;THIS SUBROUTINE SETS IN CLR AND OUT CLR TO
:CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS

MOV

000004

(R$)+,RO

#B117,4(RY)

;LOAD PORT4
INEXT WORD IS INSTRUCTION., ROMCLK PC=5304

;SET IN CLR!
*NEXT WORD IS INSTRUCTION. ROMCLK PC=5304
1SET OUT CLR!
*RETURN

;THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS

:FIRST ARGUMENT IS CHAR, SECOND ARGUMENT 1S SHIFT COUNT.

031612

031614
031613
03162

001302

MOV

RO,=(SP)

MOV
RORE

(RS)+,8TMP2
RO

MOV
1$:

(R§)+,RO

:SAVE RO

tPUT CHAR IN RO

tPUT SHIFT COUNT IN STMP2
1LOOK AT NEXT BIT

~N NN~

N =0

NOWNSO

N
— N
N~

\flgN\fi

~n0
o
N —

8288 38822 ggfii

oooo

b2333373
33
OKNOb

uuuuvouwocooo

SEIRGR OOOS
W
—

1034

08:27

PAGE 118

SUBROUT INES

032010

032010
000005

032010

032010
000001
001302

2%:

BCS
CLR
BR
INC
(MP

BNE

SEQ 0117

2%
gnrcou

$
BITCON
#5,B1TCON
3§

CLR
BITCON
DATACLK,
1
DEC
$TMP2
BNE
13
MOV
(SP)+,RO
RTS
RS

:BR IF A MARK
;1T WAS A SPACE, CLEAR 1'S COUNTER
: CONTINUE
*INC CONSECUTIVE 1'S COUNTER
(1S IT S YET?

‘BR IF NO

TYES!
SO START AGAIN
sGIVE EXTRA TICK TO STUFF ZERO
:DEC SHIFT COUNT
‘BR IF NOT DONE
‘RESTORE RO
*RETURN

N
~N

—

STFFCK:

§§aw§
O N Ngo
NNO

001302

1$:

032010
032010
000005

032010

28:

3s:

NOO

18:

~NOWwW

147246

OO~

N = VA NN

RO,=(SP)

:SAVE RO

MOV

(RS)+.$TMP2

:PUT SHIFT COUNT IN STMP2

RO
2%
gxrcou
s
BITCON
#5,8B1TCON

CLR

BITCON

JSR

PC,GETSI

RTS

BCC
ERROR
DEC
BNE
MOV

125

252

3
30
$THP2
1$
(SP)+,RO

:PUT CHAR IN RO

SSHIFT OUT NEXT BIT
:BR IF IT IS A MARK
;1T WAS A SPACE, CLEAR 1°S COUNTER
: CONT INUE
:INC CONSECUTIVE I'S COUNTER
‘S IN A ROW YET?

:BR IF NO
IYES,

SO START OVER

(EXTRA TICK TO STUFF ZERO

:LOOK AT WINDOW

‘IS IT A ZERO, BR IF YES
:NO, ERROR ZERD WAS NOT STUFFED
:DEC SMIFT COUNT
:BR IF NOT DONE
‘RESTORE RO
*RETURN

;THIS SUBROUTINE WASTES TIME UNTIL CTS SETS,
:BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OUT
MOV

ng -<8r)

;SAVE RO

CMP

a$TKS,a81ks

‘WASTE TIME

MOV

DEC
BNE
MOV
RTS

FLAG:

(R$)+,RO

RORE
B8CS
CLR
B8R
INC
(MP
DATACLK,

001302

83
358
3 838

88832

MOV

BNE

032010
000001
030226

CTSDLY:

;THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER
;1S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT
115 THE CHARACTER, SECOND ARGUMENT 1S SHIFT COUNT.

MOV

— i O

WHNO O NS

OO~NN

gsssszssssse

-2 JWNWNO
NN

—-—000
OO
=b

OOV

031672

[

i G

NO VS WO

— -y

— e

b o

oo
O O oocoocoo

OCOO0O0O00O

§8¢3

¥
MACY11 30A(1052)
CZKCF
08-JUL-80
(Z KCF.P1
08-JuL-80 08:24

33,8

RO
1%
(SP)+,R0
PC

“B<01111110>

BITCON: 0
MESDAT: .BYTE

0,125,252,377

:LOAD RO WITH COUNT
:DECREMENT COUNTER
:D0 IT AGAIN IF NOT = 0
‘RESTORE RO
‘RETURN

;FLAG CHARACTER

MACY11 30A(1052)
08-JuUL-80
P11
08-JuL-80 08:24

2
3

4
S

6159

0%2015
032016

032021
Og 024

377
001

010
100

0 20%7
0;20 2
032035
032036
032041
032044
32047
32050
32053
32056
32061

375
357
177
100
170
174
001
363
200
377
037

32062
32120
32163
32227
32271
032321
032340
032365
032410
032470
032551

046200
046200
200
200
200
200
051200

032570
032617
032643
032703
032753
032774

052200
04
2
052%88

002

020
ioo

140
003
176

160
300
177

347
000
377

317
377
200

047111
047111
044514
044514
051124
062582
041505
047515
044510
0521§S
047531

020105
020105
042516
042516
047101
042503
044505
042504
020123
051517
020125

043200
052200
051600
2
052200

2
2
044600

033224
033245
033303
033341
033401
033433
033501
033524

042600
200
200
200
200
200
200
8;;%?8

050130
054105
044103
047503
054105
054105
046102
051524

0335
033552
033554
033556
033560

003
001274
003
001272

007

033135
033157
033202

040
376

367
277

033010
033054
033075
033112

200
200

004

73
337

Okgssg
0425
047111
051124
040503
040514
040522
044527
041101
040522
040510
052517
020116

002

B 10

08:27
PAGE 119
SUBROUTINES

SEQ 0118

FLTDAT:

.BYTE

1,2,4,10,20,40,100,200,376,375,373,367,357,337,277,177

STUFDT:

.BYTE

100,140,160,170,3,300,174,176,177,1

.BYTE

363,347,317,200,0,377,377,377,200,37

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ
LASCIZ
LASCII
LASCII
LASCII
LASCIZ

<200>/LINE UNIT INITALIZATION TEST/
<200>*LINE UNIT REGISTER READ/ONLY TEST*
<200>*LINE UNIT REGISTER WRITE/READ TEST*
<200>/LINE UNIT INTERNAL CLOCK FAILURE/
<200>/TRANSMITTER DATA ERROR/
<200>/RECEIVER TEST/
<200>/RECEIVER DATA ERROR/
<200>/MODEM SIGNAL ERROR/
<200>/THIS ERROR COULD BE CAUSED IF YOU HAVE V.35 AND/
<200>/AUTOSIZED. YOU MUST MANUALLY ANSWER QUESTIONS IF/
<200>/YOU HAVE v.35/

i
EM1:
EM2:
EM3:
EM4:
EMS:
EM6:
EM7:
EM10

05151g
042503
041040
047101
046102
020107
051516
041524
051117
051516
043114
020124
042522

EM11:
EM12:
EM13:
EM14:
EM15:
EM16:
EM17:
EM20:
EM21:
EM22:
EM23:
EM24:
EM25:

_ASCIZ
.ASCIZ
LASCIZ
LASCIZ
_ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
. ASCIZ

<200>/TRANSMITTER CRC ERROR/
<200>/RECEIVER CRC ERROR/
<200>/IN BCC MATCH ERROR (LU REG 12)/
<200>/TRANSMITTER FAILED TO GO TO MARK STATE/
<200>/CABLE DATA TEST/
<200>/FLAG ERROR/
<200>/TRANSMITTER FAILED TO STUFF A ZERO/
<200>/SWITCH PAC TEST/
<200>/ABORT ERROR/
<200>/TRANSMITTER ERROR/
<200>/WALF DUPLEX TEST/
<200>/0UT READY NOT SET/
<200>/IN READY NOT SET/

041505
042520
051101
051155
0425
042520
041517
042040

DH1:
DH2:
DH3:
DHé:
DH5:
DH6:
DH7:
Dgagé

LASCIZ
+ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ

<200>/EXPECTED FOUND/
<200>/EXPECTED FOUND LU-REGISTER/
<200>/CHARACTER
BIT THAT FAILED/
<200>/CORRECT CRC
BIT THAT FAILED/
<200>/EXPECTED
FOUND
SHIFT/
<200>/EXPECTED
FOUND
CHARACTER
SHIFT/
<g >/BLOCK END NOT SET/
<200>/RTS DID NOT CLEAR/

2
.BYTE
$REGS
BYTE
SREG&

3,7
3,2

—

talal

Inlal

lalal

~Ney

MACY11 30A(1052)
08-JuL-80
1
08-JuL~80 08:24

033562
033564
033566

003
001274

033572
033574
033576
033600
033602
033604

001272
003
001266
000002
003
001274

033570

033606
033610
033612
033614
033616
033620
033622
033656
033626
033630
033632
033634
033636
033640
033642
033644
033646
0;;250
033652
033654
033656
033660
033662
033664
03
0336
033672
033674
033676
osgrog
03370
033704
033706
033710
033712
033714
033716
033720
033722
ogsr 4
0337
033
033732
033734
033736
033740

003

002
001270
000002
006
031230
002
001270
000003
001
001462
001
001464
002
00i262
000003
001
001464
001
001462
002
001262
001
001462
001
001464
3

001274
002
001270
001
001464
001
001462
001274
092
001270
OOOOO§
88‘
032
002
001270
000002

007

DT2:

010

DT3:

002
021

DT4:

002
011

DTS:

on
002
01

DT6:

011
002
o1

DT7:

007
001

011

DT10:

o1
007

001
007

DT11:

002
004

3
.thg
$REG

BYTE

002
017

¢ 10

08:27
PAGE 120
SUBROUTINES

pT12:

$REG4
BYTE
$REG2
2
BYTE
$REGS

S
$REG3
2
BYTE
CALBCC
BYTE
$REG3
3
BYTE
ZERO
.BYTE
ONE
BYTE
$REGO
3
.BYTE
ONE
.BYTE
ZERO
Sk
$REGO
4
.BYTE
1ERO
.BYTE
ONE
S

$REGS
BYTE
$REG3
&
S
ONE
4y
ZERO
BYTE
$REGS
SR
$REG3
2
BYTE
FLAG
.BYT
$REG
2
BYTE

SEQ 0119

3,10
3,2
3,17

2.2
6,21
2,2
i)
1.1
2,2
1.1}

.1
2.2
1.1
1.1

3.7
2.1

LN
.1
3.7

2.3
3,7

2.2
6,4

6,2

Sd S

SR A0 A

SR sin BAD Sl AU

BUR s

AdB wam

CORMAX:

001

$TMP2

001302

CALBCC
.BYTE

002

SEQ 0120

006

SUBROUTINES

Al Al

033750

031230

D10

PAGE 121

033742
033 744
033746

08:27

MACY11 30A(1052)
CIKCF
08-JuL~-80
CZKCF P11
08-JuL-80 08:24

pom———

ADVANC= 104420
AENV = 000002
AENVM =
AFATAL=
AMADR1=
AMADR? =

08:27

PAGE 123

CROSS REFERENCE TABLE =-- USER SYMBOLS

993

995

967

- OOVN
= OO0

o OCOVWOOOOO
OOV
—=—=00

O 0 O O 0 0 0 0 D000 OOOO

= 000000

o 0 %0 0 0
v ViV

ACOW1

v VMWW
LS LNLS LS LN LN TS TN TN LSTS TS TSTSTSTSTNTSTSTSTNT
N

CZKCF
MACY11 30A(1052)
08-JuUL-80
CZKCF.P11
08-JUL-80 08:24

2075+
5654
952
964
955

2084w
5737
963

980
984
987
990
974
982
985
988

1890#
1846

18884

1848

1889#

151
959

1550#

APT.SI 013716
ASWREG=
ATESTN= 00935

28894
965
956

AUNIT =
AUSTRT 003126
AUSWR =
AUTO.S 0122

966
26084

2290

SEQ 0121

a——

CIKCF
MACY11 30A(1052)
08-JUuL-B0
CZKCF.P1N
08-JuL-80 08:24
AVECT1= 000000
AVECT2= 000000
BASE
0141;&

952
952
2900+«

F 10
08:27
PAGE 124
CROSS REFERENCE TABLE == USER SYMBOLS

991
992
2911

BCCLD
031232
BINWRD 006412
BITCON 032010
BIT0 = 000001
81700 = 000001
BIT01 = 000002
BITO§ = 000004
BIT03 = 000010
B1T04 = 000020
BIT05 = 000040

4345
2132«
5896+
8154
805#
8044
8034
802#
801#
800#

4374
2135«
6097+«
2397
815
814
813
812
811
810

BITO8 = 000400
BIT09 = 001000

7974
7964

807
806

81709 = 000100
BIT07 = 000200

BIT1
= 000002
BIT10 = 002000
BIT11 = 004000

7994
798#

8144
7954
794

3844
4645

BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020

7934
7928
791#
7904
8134
8124
5353'

BITS

8104

= 000040

BITé
BIT7
BIT8
BIT9
BM

= 000100
= 000200
= 000400
= 001000
010631

8094
808s
8074
8064
26298

BRLVL

013650

2841

BPTVEC= 000014

BRW
CALBCC

CHAR

004360
031230

030444

1604
4364
5001
5688
3877

011340

1429

CHARSD
CHRCNT

030556
006410

CKSWR1
(K

011414
011426

CKSWR

CKSWR3
CKSWRG
CKSWRS
CLkx

CLRIO

8224

0114
011436
011542
N‘l‘Sg

5839#
2130«
2663:
24

24710
24728
245
10274

2925+

29354

SEQ 0122

44622
2136
6099+
2398

44651
21734
6100

4499

4528

4576

4605

59614

6102+

6120+

6122+

6123

6125«

2391

2397

2398

2770

3343

3377

809
808

1458
2751
1721

3876
4713

3422

3481

3534

3587

3640

3754

4004
4951

4043
5200

4085
5473

4170
5538

4287
5580

4339
5676

4416

2754
2721

2772
2772

3037
2783

4216
4218

4230
4285

4253
5578

4283
5674

4310

1599
2781
24

2398
4255
2406

2707

217

4234

4256

4306

3458

3885

3935

3974

4013

4052

3040
2387
2506
2765
2786

3400
2776
2886
2778
2789

3512
3793
3430
2780
2844

3565

3853
3890
2786
2846

3618

3671

4129

5490

4232
2789

4237
2846

4258

2859

28724

4441

4470

4518

4547

4595

4624

4682

2137

2153«

2171

2172

2480
2457

2487
2461

24964

2886

2386
2387
2763
2760
2732
2851

1738#
4393
5031
5734
3927
2133

1744

2478

2768
2697
2696

5052
5936«
3966

2236

5128
5937
4005
24540

N
5939+
4044

5230
5945
an

5251
5946+
5812#

5300
5947+

5321
5950

4340

4369

4617

4446

4494

4523

4600

60764

CNVRT = 104417

1520

1629

1631

1633

1635

228

22N

2273

2348

}3£13

3694

3965
4885

2682
2685
1703
1398
1458
774
381

3926
4786

03157

Efi% 83;;053

61504

%’3 g: 1397

1399

1401

534

3784

3814

4493

4570

5539

5762

5804

4308

4312

6080

4750

4811

4832

5397
5955#

2469

5451
6168

5592

4980

5648

CIKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P1
08-JuL-80 08:2¢4

CONERR
CONN
CONTAB
CONVRT=
CORMAX
(R
=
CRC.CC=
CRC16 =

011107
010671
003330
104416
033750
000015
102010
120001

CREAM
001502
CRLF
= 000200
CSR
010363
CSRMAP 012240
CTSDLY 031762
CYCLE
011606
DATABP 006764
DATACL= 104413

1518
26294
1527
1470
61684
7304
5958#
4342
5224
10404
7310
24298
26104
61364
1605
2260+
2224m

DATAHD

006752

4046
4454
4798
5078
5482
2259

DELAY = 104411
DEVTAB 003342
DH1
Og g &
DH10
0
“
DH2
033%35
DH3
033303
DH4
033341
DH5
033401

22224
1493
1072
61684
1075
1078
1081
1084

DDISP = 177570

DH6
DH7

DISPLA
DISPRE
DSWR =
DT
0110

oTN
pT12
D12
D13
DT4
D15
D16
D17

033433
033501

001242
09017&
177570
033550
033702

033724
03g736
0; 562
033600
033612
033624
033642
03

3653

7374

1090
61684
9228
8834
7364
1073
61684
61684
61684
1076
1079
1082
1085

1088
1124

DIDME = eeewee |
DIDMG = seeeee |

1068
1068

Em
EM10

107
1095

EMTVEC=
EM11
EM12
Em3

30
;

0
032570

03%617
032643

8;50

1098
1101
1104

G 10
08:27 PAGE 125
CROSS REFERENCE TABLE =-- USER SYMBOLS

%6%90
687
1535#
1526

22278

1824

1834

437
S§94
1396+
1795
2634

4419
5583
2530«
1834

1666
2263
3384

2521#
2285
3429

4087
4501
4812

4088
4502
4833

8934

922

3654

5080
5487
2281

2287

2630

4448
5679
2531

4496
5957#
2533+

4525

22884
3433

3494

4133
4530
4851
5217
5548

1099
61684

SEQ 0123

4573

4602

4650

4718

4805

4974

3495

3509

3547

3548

3562

3600

3601

4134
4531
4858
5231
6103

6173
4578
4860
5252
6126

4347
4579
4895
5272

4348
4607
4967
5301

4376
4608
4981
5322

4377
4664
5002
5340

4424
4666
5032
5347

4425
4732
5053
5349

1108

1123

1126

1132

61684

1105

1120

6168#

1421«

1733«

3668

5091
5493
2284n

3712

3715

2537

3758

3788

3818

15404
61684
61684
1087
mm
61684
1102
1415«
1421
8924
61684

61684
1100
1112
1091
1109
61684

61684
61684

119
61684
61684

921

1127
618'0
1103
61684

61684

1133

61684

1106

121

5025

61684

3848

3879

3929

3968

3615

4007

4453
4734
5071
5360

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF P11
08-JUL-80 08:24

EM16
EM1S
EM16

032703
032753
osggra

Em17

033010

EM2
EM20

032120
033054

EM21
EM2
EM2
EM26

033075
033112
033135
033157

EMé
EMS
EM6

032163
032227
032271
032321

EOM
ERCTO0
ERCTO1
ERCTO2
ERCTO3
ERCTO4
ERCTOS
ERCTO6

031504
002304
002310
002314
002320
002324
002330
002334

EM25
EM3

1,14

033202

032340

ERCTO7 002340
ERCTI0 002344
ERCT11 002350
ERCT
ooggzg
ERCTI3
00
ERCT14 002364
ERCT1S 002370
ERCT16
002374
ERCT17
002400
ERR
003244
ERRMSG 006740
ERRPC
003322
ERRVEC= 000004
ERTABO 007112
Ex1T = 000205
EXITER 007046
FLAG
FLOAT

FLTDAT
FY
GETQI

GETQ0
GETSI

032006
003156

032016
003202
031356

031344
030226

1107
1110
1113

1116

1076
1122

11§s
1131
61684
61684

6168#
1077
1080
1086
1089

1092

4795
12774
12804
12834
12864
128%#
12924
1295#

1298#
13014
13044
1307#
1310#
13134
13164
1319#
13224
1502
2258+«
1521
818
2273
8454
2299

61494
14954

5566
15034
4384

4355
3498
4840

2%’347

GNS

= eeeeer |

HALTS
006770
HicIMm
006052
HT
= 000011

INCHAR

011546

H 10
08:27 PAGE 126
CROSS REFERENCE TABLE -- USER SYMBOLS

61684
6168«
6168#

61684

61684
1128

61684
61684

61684
1083
61684
61684

61684
4B93

61684

’

4960

4964

5209

5214

5598

5602

5606

5694

6044

(
'
\

i
|

15154
2276
1532#
1708
2313#

1519
2279
1709+

1711%

1714

5600
1512
4&31

5604

5611

5651

6153#

4465

4538

4542

4615

23044

6168
1501

5596
1507
4388

4359
3502
6855

523

4432
3551
4861

5255

2215

2216

2243
2057«
7288

22904
2065
1793

2081#
1834

2472

5
;
;
{

6168#

2212

2227

SEQ 0124

2228

25004

2229

4436
3555
492&

5259

2217

4509
3604
4988

5275

2218

4513
3608
5005

5279

2219

4586
3657
5009

5304

2220

4619

4590
3661
5035

5308

2221

4740

4672
3718
5039

5325

2222

4744

5999

4676
3722
5056

5989#
4815
5060

4819
5072

4836
5081

2223

2224

2225

2226

5329

5341

5350

57438

110

CZKCF
MACY11 30A(1052)
08-JuL-80
CIKCF.P1
08-JuUL=-80 08:24

08:27
PAGE 127
CROSS REFERENCE TABLE == USER SYMBOLS

INIFLG
INLP1

001506
005766

10454
20320

1424
2071

INRDY

031066

4089

4135

4174

INPUT = 104415
INTTY
013664
10TVEC= 000020

22260

5156
5633
2651
823

2570

5363
5699
2672

KMACTY

001470

}%zn

1438

KMCM
KMCROO
KMCROT
KMCRO2

011175
002100
002110
002120

1529
11904
11954
12004

246294

KMCRO3

KMCRO4
KMCROS

KMC

KMCRO7
KMCR10

KMCR11

KMCR12
KMCR13
KMCR14
KMCR1S
KMCR16
KMCR17
KMCSR
KMCSRM
KMCTL

KMNUM
KMPO4

KMPO6

KMRL VL

KMRVE C

002130

12104
1215#

002170
002200

12254
12304

002210

002220
002230
002240
002250
002260
002270

002072

001472

002074

002076

KMS100
kms101
tuswg

002102
002112
153

msw?
KMS107
KNS1W

132
002172
502

KMs112
KMs11

KMsS10
KMS104
KMS105

KMsS111

132
]45
15

KAS114

KMsS115
KMS11
KMsS11
K
KkmMs201

KMS

Kkns203

2633

5377
5714
2688

5382
5719
2703

2641

2723

5403
59084
2880#

5417

4182

4190

1563«

1564

1510«
2391+«
2552

2731

4896

4909

4914

5094

5108

5113

5137

5151

2521

2535

2616*

2801+

2807+«

2808«

2812

2837

2903+

1539
2397+«

1669
2398+

1736
2404+

2351
2406+

2405
2548+

2539«
2549+«

2548
2550

2596

2953«

2628+«

2793«

2794

2802

2804

5762

5804

5920

5995+

2558+«

2559

5431

5436

5494

5504

5512

5612

5628

1235#

12400
1245#
12504
1255#
12604
1265#
11738
11748
11754

1489+
2386+
2550+

1504
2387+«
2551«

mgo

2375«

2381

11778

11694

10354

11708

1191»
11964
1201#

1206#
1211#
12164
12214
12264
1231»

12364

124124
12464

12514

104
oogv;:

12024

0021

2621

12204

12564
12614
12664
119;0

114

1461+

1205#

002140
002150

002160

1454

SEQ 0125

1197#
1207#

1392

1646

2614

2392+

2554+

2555+

1639+

1672

2540+

1639

1640«

2618

2557«

2423

2541«

2552«

2557

2553«

2554

5749

CZIKCF
MACY11 30A(1052)
08-JuL-80
CIKCF.P11
08-JUL-80 08:24
KMS204
KMS205
KMS206
KMS207
KMS210
KkMS211
KMS 1%

KMS213

KMS214
KMS215
KMS216
KMS217

002144
002154
002164
002174
002204
002214
002%24

12124
12174
12224
12274
12324
1237#
12420

002244
002254
002264
002274

12524
12574
12624
12674

002234

002106
002116

1193#
1198#

KMS303
KMS304
KkMS305
KMS306
KMS307
KMS310
KMS311

0021
002146
002156
002166
002176
002206
002216

1208#
12134
1218#
12234
12284
12334
1238#

KMS313
KMS314
KMS315
KMS316

0022
002246
002256
002266

1248#
1253#
1258#
12634

KMTVEC

885062

KMS312

KMS317
KMTLVL
KM.END
KM.MAP

0021§2

oogzgg

11718

127048
1040

01057

26298

LOCK

001444

10214

LOKFLG
LOLIM

1510
50

10474
2056

001454

1028#

LINE

LOBITS

= 00001

006056

LRC8 =
LUTYPE= seeeee |

MASKX

MASTEK
MCSRX
MDATA
MEMLIM
REPASS
MERRPC

MERRX
MERR

&1,%)15
45
011276
1
7

;
'
:
!

12438

129&0
11728

729

2059+

3224

59564
687

1661
1641+«
2612

1189#
1828

2724

20834

1735«

1642%
2559+

2908
1396
1834

1747

4336+

4368+

2067

20804

2561+
2560+

2562+
2561

1463

1473

2531

2267

1749

4413%

4445+

24294
26294
161
587+
24

1634

2906

2910

3145+

3168+

4599«

3102«

3118+

3204+

g
521

a8
5478

oo
s:.ai

amoaxoa,
5544 5595 5599 5603

24464

e
g%g%

Uy
qmoum
:fi;’ 4.335 495

um
o gR
4961 5206

MILK

10612

1397«

2534+

001504

2829

4567+

gy
v
MESLD 031530

1560

3075+

2615

4522«

24294

og;sr

3059

2610

4490

00764

MERR

2533

5928

2269
1628
2151
1033#
1627
2272

|
‘
|

1203#

300
002100

SEQ 0126

126478

KkMS300
kMs301

KMS 30

J 10

08:27
PAGE 128
CROSS REFERENCE TABLE =-- USER SYMBOLS

814

1636

2529+«

2538

CIKCF
MACY11 30A(1052)
08-JuL-80
CZKCF .P1N
08-JuL-80 08:2¢4

MLOCK

007716

MNEW

010017

MODU

MPASSX
MPFAIL

010461

007761
00756

00764

MRESET= 004000

MSTCLR= 104410

1601

08:27
PAGE 129
CROSS REFERENCE

24294

lg 2
2347

24294
2364

2629%

2586

22214

2353

3004

3030

3061

3104

3147

3206

3258

3282

3306

3342

3376

4002
4782

4041
4884

4080
4947

4123
5196

4169
5472

4215
5536

4282
5577

4338
5673

4415

4492

4569

Lbhb

4712

2951«

2977+

3002+

3028+«

3058+«

3101+

3144+

3203«

3256+

3280+

8454

3621

3480

8914
2270

Mv35
NEXT

010762
001442

24294
10204

2702
2089

NITCH

030256

6566
5749«
1440
1491

4642+
5750«
26294
1513#

NOACT
NODEV

010731
003240

NUM
OCOR

010323
030260

0K
ONE
OUTRDY

003220
001464

PACTO0
PACTO1
PACTO2
PACTO3
PACTO4

002302
002306
002312
002316
002322

PACTOS

PACT

PACTO
PACT10

PACT11

PACT12
PACT13
PACT14
PACT15
PACT16
PACT17

030412

1630

3304+
3872«

24298
3383
5481
1505
1032#
348
488
5877

002326

12764
12794
12824
12854
12884
12914

002;‘36
2

12974
13004

002352
002356
002362
002366
002372
002376

13064
13094
13124
13154
13184
13214

002332
346

PIRQVE=
240
POPRO = 01
POP1SP= 005726
POP2SP= (022626
PRIO
010422

8294
8404
838s
8420
26290

PRIRTY

0141

24294

3340«
3922«

2622
3428
5486
1508
6168
3487
4956
5972

3586

7354

2896+

2309

3374+
3961+

3419+
4000+

3753

3783

3813

3843

3874

3924

3963

4780+
5752+«

3491
5547
1531
3535

4710%
5751«
2523

4BB2+
S5754#

4945+

3584
4121%

3637+
4167+

3691+
4213+

3751«
4280*

3781«
4335+

3811+
4412+

3841+
4489+

3544
5607

3597
5695

3650
57578

3711
5763

4663
5793

4731
5835

4796
5851

4894
5892

4965
5985

5215
6071

3540

358

3593

3641

3646

3698

3702
5831

3707

3730
5848

4791

5205
5981

5477
6018

2915

29364

2303

2902+«

3693

3531«
4078+

23704

2650

3639

257

1303#

8454
8454
2348

1428
26298

3533

12944

PARBT= 0‘00?0
PERFOR= 004537
PFTAB
g
“
PIRG

24294

1608

001000
010003

007753

SEQ 0127

2671

MTITLE
MTSTN

MVECX

TABLE == USER SYMBOLS

24294

1555

24%90

K 10

3478+
4039+

554
6034

5777
6048

5194

5786
6065

5470+

57978

5534x

5822

5575«

5671+

5844

5868

CIKCF
MACY11 30A(1052)
08-JuL-B0
CZKCF P11
08-JuL-80 08:24
PRO

PR1

PRZ2

PR3
PR
PRS
PR6
PR7
PS
PSW

= 000000

752¢

= 000100

7544

= 000040

=
=
=
=
=
=
=

000140
000200
000240
000300
000340
177776
177776

PWRVEC=
QV.FLG
RDCHR =
ROLIN =
RDOCT =
RESREG
RESVEC=
RESO5 =
ROMCLK=

000024
001511
104402
104403
104404
006766
000010
104407
104412

PUSHRO= 010046
PUSH1S= 005746
PUSH2S= 024646

RUN
001500
SAVACT 001474
SAVNUM 001476
SAVPC
001460
SAVSP
001456
SAVOS = 104406
SCHAR
031062
SCOP1 = 104405
SILOLD
simBCC

030622
031122

SOF TSW 011622
SOm
831‘
SPACNT=
1
STACK =
1228
STAT
14
STAT1
002050

STAT
STAT
STFFCk
STFFCL

003052
002054
031672
031612

7554
7564
7578
758¢
7594

7324
7334

839+
e37#
8414

L 10
08:27
PAGE 130
CROSS REFERENCE TABLE =-- USER SYMBOLS

2872

2874
2875
2876
864

733

2873

866
1389+

868
1598+«

870
2841+

2877
2851+

2327+«
1645+

2336+

2342+

2361+

2362+

2421

2955

2980

4289
4915
5392
5629
5791
5901

4293
4924
5404
5634
5802
5918

2300

824
10484
1942
2015

2326+
1395+
22154
22164
22174
22894

22238

2376

2379

2416

41N
4725

4;58
&
5166
5513
5775
5870

6;;5
4759
5364
5540
5779
5873

4245
4897
5378
5549
5782
5879

2064
2286
8194
22204

3107
3283
3435
3648
3931

5157
5505
5760
5866
6016
10384
10364
10374
1030#
10294

22194
4081+
22184
4521
4086
4350

52;6
2470
5210

2131«
7234
10264

116;:
116
11640
31100
884

SEQ 0128

2289

3109
3309
3445
3669
3940

6020
1398+
1558
1392«
1519+«

2248
4124+«
3074
4550
4102
4379
5296
25094
6030#
2155
1390
2542+
2543+
2544
6088#

3120
3318
3455
3700
3970

3122
3345
3484
3704
3979

3153
3347
3489
3709
4009

3155
3351
3510
3732
4018

6023
2527«
281%'
1643+
1534

6036
528+
904+
1646+
2096+

62;9
2535

6050

2805+
2315

2898+

5860
3087
4598
4132
4427
5588

5878
3117

5883
3130

5887«
3164

5684

5855#
4504
5928#

4218

4627
4148
4456

2158«
1577

21724
2310

2037
2?2
4234

4216
3286
4256

4;6
N
5383
5613
5788
5899

4306

3006

3032

3064

3174
3379
3537
3759
4048

3176
3381
3542
3789
4057

3211
3386
3563
3819
4090

3213
3396
3590
3849
4130

6052

6067

6081

6083

5888
3185

5894
3220

59044
3238

4367

4533

4581

4610

4667

4230

4253

4283

4285

4301
5095
5618
5643
5820
5970

4653
5109
5432
5700
5824
5974

3066

3077

4661
5123
5446
5720
5833
5983

4691
5138
5488
5729
5846
5993

3079

3231
3426
3616
3891
6175

3259
3431
3643
3893
4183

4396

4444

4473

4735

4807

4976

5027

4310

5578

5674

4657
5114
5437
5715
5827
5977

3229
3424
3595
3881
4136

4721
5152
5495
5747
5849
6003

CZKCF
MACY11 30A(1052)
08-JuL-B0C
CZKCF.P1
08-JuL-80 08:24

M 10
08:27 PAGE 131
CROSS REFERENCE TABLE == USER SYMBOLS

STKLMT= 177774
STRTSW 001446

7348
%2%;'

533?'

1433+«

1434

1436

STUFDT
STUFLG

032036
031064

61594
4082+

4125+«

5881

5895+«

5905«

011544
001240

1393+
9214

2465+
1414+

2492+
1416

24984
1420«

1430

884N
7874
774

1409+

1420

2454

SV05

SWFLG
SWR

006100

SWREG
000176
SW0
= 000001
Sw00 = 000001

Sw01

sw02
sw03

sw04
SW05

SW06
Sw07
Sw08
sw09
sW1
SW10
SW1l
swi2
SW13

= 000002

= 000004
= 000010

= 000020
= 000040

= 000100
= 000200
= 000400
= 001000
= 000002
= 002000
= 004000
= 010000
= 020000

2100#
2305

7764

2307
787

786

7754
7744

785
784

71
7704
7694
7684
7864
7674
7664
7654
7648

781
780
779
778

7734
7724

783
782

2334
1434

1606

1450+

1456

1458

1553

1599

1606

2564

2587+

1558

1563

1703

1721

1745

2237

2242

2298

5476

5542

5581

5582

5677

5678

6010#

2354v

2394

2454

1450

2617

2825

2564

251

2587

SEQ 0129

2491

1553
2394

2305
1745

2307

2237
2242

SW
swé
SW5
Sw6
sW7
SW8
W9

= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000

SYNLD

031374

4651

4719

3786

3816

3846

4888

4955

011234

2138

402«

2407+

2413+

425+

2590

5738#

1697
3144
3203

577
2014
254

2595

29494

1ST164 015516

350‘

Sg%l

1ST16
1ST17
1S12

3374
3419
2951

174
347
29754

SYNC

030276

TB1TVE= 000014

TENP

TIMER = 104414
TKVEC = 00%60

TLAST = 05

TPVEC =
TRAPVE= 000034
TRTVEC= 000014
1sT1
014140
TST10
015136
IST11
015312

1ST15

015916
015754
016152
014214

7844
7834
7824
7814
7804
7794
7784

3756

8204

22254
827#

8284
8264
821#

3340

3349

gzm

4790

3880

3930

5767#

969

5204

2444

4008

3307+

4047

3313+«

42264

3316+

4247

3322+

2 E:

C2z

MACY11

P11

187120
18121
TSYZ%
1ST2
1S124
18125
18126
18127

30A(1052)

08-JUL-80

08-JUL-80 08:24

016334
016516
016700
017062
017%70
017356
017446
017534

3478
353
3584
3637
3691
3751
3781
3811

1S13
1ST30
T1ST31
15732
1ST33
1ST34
TST3S
157136
1ST37
1ST4

014262
017624
017776
020112
020230
020346
020464
020614
020754
014334

TST41
T1ST42

021342
021536

4213
4280

TST44

022366

4412

TST140

TST43
TST45
TST46
T1ST47
1ST5
15150
TSTS1

TSTS

15715

T1STS54
1ST55
1S156
1S157
1576

TSTE0 =

1877
TTST
TWOSYN=
TYPDAT
TYPE
=

TYPMSG
VEC

VECMAP
VECTR
WHAT
WHERE
WHICH
WRDCNT
WRKO.F
XBX

021114

022052

022702
023216
023454
014426
8;3712
4244

024446
025546
026746
027200
027316
027706
014566

seewne |

014726
004146
01
006754
104601

006654
010401

013400
014132
005770
54
13372
06
006742
006542

2977
3841
3872
3922
3961
40090
4039
4078
621
3002

4167

08:27

42114

4278
43334

4489
4566
4642
3028
4710
4780

45644
46404
47084
30564
L778%
48804

4945

5192#

5671

L4BTH

49434
54684
55324
55734
S5669#
30994

5738

3101
1602«
845#
2264
1428
1632

31424
1604+

1699

2282
1440
1634

22854
1462
1798

2262
24298

22654
2642

2046
2278
2670

2813
2895«
2055«
2058«
2631
2129«
2277
2238

SEQ 0130

3000#
38704
39204
39594
39984
40374
L0764
41194
41654
30264

L6100

5194
5470
5534
5575
3058

CROSS REFERENCE TABLE == USER SYMBOLS

35294
35824
36354
36894
76454
7794
8094
38394

4335

4882

N 10

PAGE 132

2062
2283
2679

28254
2901+
20634
2072
2821#
2162+«
22804
2240

1517
1949

15%2
1955

2069
2347
2686

2070
2363
2693

2121
%468
701

2920

2926«

29344

20824
21704

22424

1528
1960

2161
2471
2713

1555
1964

22128
2523
2814

1560
1969

2265
2569

1601
1970

2266
2586

1608
1972

2269
2592
»

1627
1975

2270
2629

1628
1979

2272
2649

1630
2044

2274
2663

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JUL-80 08:24

B 1
08:27 PAGE 133
CROSS REFERENCE TABLE == USER SYMBOLS

XCSR
XERR
XHEAD
XPASS
XPCOLY

004104
004126
010077
0g6120
031226

1629
1635
16g§
1g
6362+

16674
16764
24294
16734
4371+

XSTATQ
XTSTN

011206
007120

1471
2271

26294
23164

ZERO
$SAPTHD

001462
002034

10314
1144

6168
11504

SATYS
SATYSL
$SAUTOB

004704
004714

001234

1783
18404
918#

1838#
2293

001222
001226
001376
001400
004672
weweer |
001200
000006

9134
9154
9954
9964
1800«
2215
901#
9334

XVEC

0046112

SASTAT= wenses |
SATYC
004722
$SATY1
004676

$BASE

$8DADR
$BDDAT
$COW1
$Cow2
SCHARC
SCKSWR=
$CMTAG
$CM1
=

001372

$CM2
$CH3

= 000014
= 888882

$COD

5224+

1631

1868
1839
1837#

9934

9334
9314

$CMé
=
$CNTLG 005534
SCNTLU 005527

9394
19904
1964

$CPUOP 001344
SCRAP = 177777

9674
1#
3045#
3246

wewenr |

687

$ODWO0
$0DW1

$ODW10

$oDw11
$0DW12
$ODW13
$0DW14
$ODW1S
$00W
$00W
$0DWe

001402
001404

0016;8

0014
001432
001434
001436
001440
001406
001410
001412

4496+

1810«

1817

1826

18314

934w

935#

9364

9374

937

938#4

9404

9414

942N

943

9448

29440

29648

1007#4

1008#
10094
1010#
10114
1012#
9994
10004
1001#

4573%

938#

9394

5946

59544

4602+

4650+

4718+

4BOS*

4974e

5025+

29894

2992

2995#

3015#

3018

3021#

2897

G934
933

9354

9364

9394

1989#
29384

2941

L7654

9974
9984

4525+

2900

47038

%68

5944

1883
18414

41528

54554

5679«

16704

3051#
3267¢
3408
36304
3828
3990
L1608

44601

001313

L44Br

5583+«

3048
32494
34054
3625
#
39874
4155

33674
3622#¢
3801
39544

$CRLF

L419%

5294+«

SEQ 0131

GLOSH
5458

1799

2905

2967

3270
4124
754
1
39934
4199%

3091
32734
32630
78
38340
4026#
420

094#
2918
66
848
3858#
4029
4

476

47738

486

4871

1834

1969

44758
546

4478

5521

L4B2F
5524

1989

45528
55278

2049

29704

3131¢
3294
34714
37388
33&1
40328
42678

3134
32978
35164
3741
18654
4065
4270

3137#
33264
3519
37440
39094
406
427

3190#
3329
35244
3768
3912
40718
43218

3193
33334
3569#
3TN
3915#
41068
4324

31964
33604
3572
37748
3948
4109
43288

32434
3363
3577#
3798#
3951
L4114
4398#

4B758

49278

4930

4938

5175#

5178

5187#

2265

2266

4555

55584

2070

45598
5561

2121

46298

55684

4632

56554

L6358
5658

2274

4697%
56644

2569

4700
2629

CROSS REFEPENCE TABLE =-- USER SYMBOLS

SEQ 0132

O WwWW

o0
Vo

D ~N

PAGE 134

1870

2290

2456

“

1719«

1740

2247+

2261

2275+

2349+

2246+

2350

1734

1739

2309+

2585+

2595+

[+ ] Nugob

B A S) D

1846

O NSHSN NN
WWVOWN
O VINSO
o=~

»
-

867

9114
10654
908#
9624
10154
9554
1837+
9294
9284
9124
9144
16574

1002#
1003#
10044
1005#
1006#
9584
9944
1644
877
1655#
9634
964
16234
16524
904n
9104

08:27

OO0~
WO
S Nwn
&~ w
s

o SN T T. A

Ll
NNONMNON)
-

NSO

L e

§T
o

SEE

WVIWONO

VINOWVINO
N

GG
St

prd L

8883888

001255

2214
697

11514

2037+
9054
2326
2053#
9194
9094
9L7n
1878+
9064

NN
O

NOON

SREZ

SFILLS

$FFLG
S$FILLC

N
e
=y

SERFLG
SERMAX
SERROR
SERRPC
SERRTB
SERTTL
SETABL
SETEND
SFATAL

$OCW9
SDEVCT
$SDEVM
$DOAGN
$ENDAD
SENDCT
SENV
SENVM
$EOP
$EOPCT

3838
unu\n-nzg

$00WS
$00wW6
$ODW7
$00w8

888833883838838883

MACY11 30A(1052)
CZKCF
08-JUL-B0
CZKCF.P11
08-JUL~-80 08:24

907#
980#
9844
9874
9904
9534
9744
9824
9854
9884

1152#

1838+
19934

9604
9614

1728+

1739

1979

1989

2049

1605+

1609

1732«

1156

173

1778

1879+

18834

1726

23664
2292

1857

2597

—

—————————————

CZKCF
MACY11 30A(1052)
08-JUL-80
CZKCF . P11
08-JUL-80 08:24

$MSGTY
$MSWR
SMTYP1
SMTYP2

001316
005541
001347
001353

9544
19914
975#
9834

SMTYPSL
001363
SMXCNT
004362
$N
= 000057

9894
1729
1%

$MTYP3

001357

SOVER
$PASS
SPASTM

SPWRDN

SPURMG
$PWRUP

30054
3096
3243
3306
3412
35344
3686
3798
3874
3993

1872

1876+

1739
2938

3015
3104
3249
3307
3414
3569
3693
3804
38754
3995

2944

2946

2953¢

3021
31054
3251
3326
3421
3577
36944
3806
3909
4002

4405
45708
4775
5175

4407
4629
4782
5187

927#
948#

39978

4164

GTT7TH
1701
9574
1154

007312
007200

2364#
2336

$QUES
001312
SRDCHR 005144
SRDDEC= weewne |
SROLIN 005264
SRDOCT 005564
$RDSZ = 000007
SREGAD 001260
SREGO
001262
SREG1
001264
SRE
001266
$REG
001270
SREGA
001272
SREGS
001274
SRTNAD 004102
SR2ZA = weenee |
$s
= 000061

TABLE == USER SYMBOLS

1860+

40814
4208
4398
4569
4773
49488

004334
001324
002042

007126

1852
2468

DN
SEQ 0133

9864

;;g:‘

SNULL
001254
SNWTST= 000000

08:27
PAGE 135
CROSS REFERENCE

w———————————

865

945#
1909#
2218
1937
20104
1930#
931#
9334
9
9354
&
937#
938#
16664
2218
"

4106
4215

4114
L2168

3023
3131
3258
3333
34228
3579
3738
3813
3915
4003

4116
4267

3030
3137
32594
3335
3463
3586
3744
38144
3917
6056

4123
4273

2964

2970

2972

29794

2989

2995

2997

L1240
4275

4152
4282

4160
42838

4162
4321

4169
4328

3088
3206
3297
33778
3526
3675
3783
3865
39648
4073

3094
32074
3299
3405
3533
3684
3784n
3867
3987
4080

L1708
4330

4199
4338

4206
43398

30314
3139
3267
3342
3471
35874
3746
3828
3924
4032

55378

4415
4635
47834
5189
5558

LL168
4637
4LB6B
5196
5568

4475
4644
4875
5197#
5570

1805
9744

1834
59990

igssc

gg S#

20980

40368

LO7SH

L1IBE

L1648

5536

754

S528#

LB79N
1704
1625«

49428
1715
1637

1391

23264

2361

1972

1989

2110

6168

23424

1834
2215

51918
1727
1649+

546784
1733
1650+

2046

3045
3147
3§73
33,34
3473
3622
3753
3834
39§Sl
4034

3053
3190
3282
3367
34814
3632
3768
3843
3954
L0428

4484
4697
4884
5463
5578%

4492
4703
4BBSH
5465
5655

1414

g;gol

ggsso

L2108

L277H

43328

1667

1675

2049

002

55314

4482
LOLSH
4877
5455
5577

3051
3148
3275
3360
3480
3630
37540
3836
3948
4041

3061
3196
32834
3369
3516
3639
3774
3844
3956
4065

3004

4552
4712
4938
54734
5666

4559
47138
4940
5521
5673

4561
4765
4947
5527
56744

3277#

33014

3337

3371#

L4098

44BOR

4S63F

46398

4707

1723

1740

2545+

2069

2592

2664

2680

2694

2714

005#

0 g

3031#

3058

3062#¢

3101

748

SS5728

S668#

084

L4938
4705
4927
5472
5664

3062#
3198
3291
3376
3524
36400
3776
3858
3963
4071

38384

38694

39194

3958«

2216
2217
2105«

1525«
2103«
2102«
2101+«
2100«

1537
211§
211
2114
2115

2106+
6168
6168
6168
6168

2111

%951

29534

2977

9794

Wi
310
3751
3754m

leoar
3
781
37840

dadse
811

330
8144

363
841

3105#

380
g%%.
32%3’
00
3891
3ous
844
872
875#
3922
3925¢
3961

E%:gf
MACY11 30A(1052)
08-JuL-80
F.P1
08-JuL~80 08:24

3964

$SAVRE= seever |
$SAVR6
007322

$SCOPE
004134
$SETUP= 0C0000
$SVLAD 004316

$SVPC = 000040
$SWR
= 164000

$SWREG

001340

$TIMES
$TKB

001310
001246

42834
4780

2218
2335+

2343

5575

863
1648
1712

8754
"

1703
3027
3583
4120
5193
9654

1692
9564

$TKS
$TMPO

001244
001276

9234
9394

$TMP1

001300

$TMP2

001302

$TMP3
$TMPL

001304
001306

$1PB
STPFLG
$TPS

= 000060

001252
001257
001250

e, g
$TRP

S$TSTNM

S$TTYIN

= 000021

001202

005520

4000

4280
47134

$SWRMK= 000000
STESTN 001322

$TN

08:27
PAGE 136
CROSS REFERENCE

944N
9244

5934+
9408

5449+
5863+
9414

5578¢

16954
1696
1730#
880
697

1715
3057
3636
4166
5469
1409

40034

4039

4335
47834

43398
4BB2

2344x

2345+

S67

2869
1898
944

5674n

4412
4BBSH

SEQ 0134

4078

4081

4121

1648

1659

1665

G160
4945

44B9
49484

LL938
5194

412640

4566
51974

945

1620

1667

1719
3202
3780
4334
5670

1720
3255
3810
4611

1721
3279
3840
4488

1733
3303
3871
4565

1739
3339
3921
4641

1720+
1896

1729«
1919

1917
2838+

1739
2458
2500
5772+«

2460
2880
5784+

2502
6142
5818+

2882

5126+

5168+

5169+

1465+«

2433

3125«

5968«

5979+

6014r

6025+

6064

5731«
S9§6'

5732«
5982

5645+
5897+

5646+
5935+«

5827
5940+

L5708
5470

L1708

4642
54734

4213

L6458
5534

L2164

4710
55374

1515

5127

6069+
5733

1689

1690

1691

1692

2365
3373
3960
4709

2950
3418
3999
4779

2976
3477
4038
4881

3001
3530
4077
4944

5829+

5B64v

5875+

5916+

5922+

5170

5394«

5395«

5396

5448+

7640

4912«

4913+

5111«

5112«

2735

2738

5816«

5832

5842«

5845

5859+

5127«
Z?gg

5128
5631

5154+
5632«

5155+
5647+

5170+
5648

15;&0

g& 5

ggss

ggs&

1+
5733«

396«
5734

9428
9638

1468+
1469+

2437
2639

2637
2620+

2640
2632+

2645
2823

2648
5800+

2727
5806+

2730

31004
33N
36904
3958

3141
33738
3748
39604

14
3416
37504
3997

200
34184
;778
9994

2024
7
7
6g

325
364778
3808
40388

32554
3528
38104
4075

3277
35308
3838
40778

3279
3581
38404
4118

3301
35834
3869
41200

3303#
3634
38714
4164

3337
36364
3919
41668
4639
5469

4L64ls
5531

1488+

4167

23684

1718
3143
3750
4279
5574

1896
2431

1467+

L042¢

== USER SYMBOLS

1717
3100
3690
4212
5533

1726
1913
1911
2837+

5450
5890+

TABLE

1995

1731«
1648+
1702
1700
1464+

5948+

697

%963‘

42128
4707

4277
L7098

42798
4777

433
47797

9264
9304
925¢

1823+
1772
1821

1834
1834
183¢

22044

22134

9034

1404+

4038«
4BB1¢
1939

4077+
4944+

55334

5572

5 dh
22264

2976+
36477«

2227k

3001+
3530«
1940

§9 o

n
5717+«

§9 or

43348
4879

4409
4BB1F

2241+

2505+

2885+

2239

2503

2883

2215

22164

52170

22188

1688

1739'

175

415?'
5193¢

4166
5£99'

4 1%'
5533«

5574r

22284

3027+«
3583«
1952

5668

22294

3057+
3636+
1970

52700

22304

3100'
90+
1984

1733

3143'
3750+

4;79'
5574+

1988#

O
5718+

2999

5397
6094t

5450+
6130+

3057#

3098

3025

4486
94

44BBR
51N

22198

2220

2221k

2222

2223k

2224m

2225#

1740

§318

%372

2574

2381

2583

2950+

43364+
5670

4411+

L4BBv

4565

4641+

4709+

4779

3202+«
3780+

3255+
3810+

3279+
3840+

4563
51938

3303+
3871+

3055

5435+
6117+

30014

441N
4942

3027#

5634+
6104+

45658
5467

3339+
3921+

3373«
3960+

3339+
3688
3921#
4210

3418e
3999+

CZKCF
MACY11 30A(1052)
08-JuL-80
CZKCF.P11
08-JuL~-80 08:24
STYPBN=
STYPDS=
$TYPE
STYPEC
S$TYPEX
S$TYPOC=

$SUNIT
SUNITM
SUSWR
SVECT1
$SVECT2
S$XTSTR
$Y
=
$$GET4=
$4LOCAT=
.
=

.ADVAN

.BEGIN
.CNVRT
.CONVR
DATAC
.DELAY
MSTCL
.RESOS
ROMCL
.SAVOS
.SCOP1
START
.TIMER
SASTA=
X
=

weense |
weweesx |
004414
004626
004674
wewene |

001330
002044
001342
001366
001370
004174
000000
000000
wevnen |
033750

006060

003464
006170
006164
007446
007332
007362
006132
007400
006072
004364
002402
007512
eeener
002034

2213
2213
17724
1802
1827
2213

9594
1155#
9664
9914
9924
1698
1%
16594
1703
857#
10354
11934
12104
12264
12428
12584
1667

26294
2884

20894

1577#
5122!
1214
2224
2222
2221
21104
2223
20964
176440
887
2225
1838
11404

F1N
08:27
PAGE 137
CROSS REFERENCE TABLE =-- USER SYMBOLS

1865

2204

1829

1832#4

1809

2901

1816

2212

18214

1822

875
10464
11974
12134
12304
12464

876#
1134#¢
1198#¢
12154
1231#
12478

4231

2504
4254

SEQ 0135

2902

17064
1157#

859
10364
11954
12114
12278
12438

12604
1739
L4SH

038

2229

8624
1037#
11964
12128
1228%
12458

12614
1740
24478

1262¢
1834
2501

1405

2488

£217

%52
2
24014
2374m

2385#
2220
23904
2219
2218
13894
246124
1841
1145

12638
18864

8784
1140
12004
12164
1232¢#
12488

12654
1896
2525

4284

8804
11414
12014
12178
15330
1250

12668
19884
2618

431

882#
11434
1202#
12188
12354
12514

8864
11454
12034
12204
12364
12524

4862

2767
5082

12678
1989
2659

1268B¢
19954

890#
1188
1205#
12214
12374
1253

1432
2049

2771
5351

900#
11904
12064
12228
12388
12558

1442
2338

2817
6168#

948
11914
1207#
1223%%
12408
12564

15498
2367

2848

1034»
1192#
1208#
12254
12412
1257#
1562
2410#

2881

e
——

CZKCF
MACY11 30A(1052)
08-JuL-80
CIkCF.P11
08-JUL-80 08:24

COMMEN

E:ggg"

8308

932:
3315
610
3946

962
324

587
;353

013
§393

3977

3985

4016

3650

4357
4621
5007
5260
gg%z

4361
L674
5011
5257
2?;3

ESCAPE
GETPRI
GE TSWR
HLTY
KMEND

830#
830
8304
BLaln
1

1610

mLT
NEWTST

8308
8308
3475

2948
$508

gor

180

830#

KMFRNT

g;;g

POP

PUSH

B30#

REPORT

SCOPE

725#

SETPRI
SETTRA

76
&
5532
830#
20048

SETUP
KIP
SLASH
SPACE
STARS

8308
8308
8308
8308
8304

337
3997

suRsU

192

B30W

TRMTRP
TYPBIN

22044
8

TYPNUM
TYPOCS
TYPOCT
TYPTXT

304

i
$ABORT
$AUTO
$BCC.
$BINCR

$Binvi

3659

3663

61
08:27 PAGE 139
CROSS REFERENCE TABLE == MACRO NAMES

043
g‘os
3673

‘0;‘

6878

4055

08
g‘sg
3734

4063

116
3661
3766

4099

3129
3500
79

414

163
éSO‘
a6

3184
3514
se

3219
3553
dage

3237
3557
0

3265
3567
807

3 289
3606
3ese

4386
4678
5037
8281
5453

4390
4742
5041
577
5492

64634
4746
5058
5281
5501

4638
4817
5062
8306
5511

4463
4821
5074
3310
5519

442
4838
5083
9337
5556

4511
4B42
51?1
381
5619

4181

4515
4854
5121
3343
5641

4189

4197

4243

4265

4317

2976
$581

2999
S63¢
4277

3025
3688

(332

3055
37a8

4409

3098
3778

4486

3141
3808

3200
3838

3253
3669

3277
3919

3301
3998

3337
3997

3371
2088

3416
20rs

53%¢

2891

3056

3099

312

4540
4823
5130
3339
5650

4544
4903
5144
3330
5706

4588
4922
5164
a%96
§727

4592
4986
5173
o303
5736

4617
4990
5236
2o39
5808

687

g}gg

gg;g

1841

1843

1881

2949

2975

3000

3026

1884

3012

3328

4563

4639

4707

&777

4879

3201

325

3278

3302

4942

3338

5191

3372

5467

3417

359
4165
$573

Ssm2
4211
5669

e
4278

B9
4333

Iu9
410

So
4L4B7

300
6564

30
4640

0
4708

o0
4778

3
4880

3%
4943

0%
5192

aove
5468

215

216

217

218

219

873
283

896
Zk

948
g0

951
s

1139

1146
S

1618
3055

1685
3098

1757
3141

1836
3200

1895
3253

1901
3297

1930
3301

$371
4036
5191

Saie
4075

Sars
4118

3528
4164

4398
4697

4475

4SS2

S467

531

s572

§30e

6878
1
6878
6874

073
%442
3730

SEQ 07%¢

1474

4321
66;9
3675

$981

3
4277

4332

3748
4409

3778
4486

3808
4563

3838
4639

3869
4707

3919
L7177

3958
LR79

{

:
.

CZKCF
MACY11 30A(1052)
08-JUL-B0
CZKCF.P1
08-JUL-80 08:24

$BUFFE
SCDATA
$CLOCK

1
6874
6874

441
558
3291

4193
6874

4917
4340

SEMPTY
$EOP

68784
17

5455
1610

$F INI

$SCOMP

$CRC
$CRCSH
$CYCLE

SERTBL

6874

17w

3149

3169

3208

3225

3768

3798

3828

2964

2989

3015

5104

5147

5521
697
3738

6874
6878
6874
1
6878
6878
1"

2938
3045
3088

sLu1
$LU12
sLU17
SMARM |
SMARK
SMATCH
$MOCK
$MODEM
$MSG

6878
1%

3902

4713

3933

3942

3972

5439
4494

5636
4523

§722
45N

5373

5427

5624

5710

3981

401

4020

4050

4059

4177

4185

4600

1067

6878
1
6874

6874
687

3895

5738

SHALF
$SHEADE
SINACT

$SINIT
SLINET

3883

5385
4446

687#
6878

SEQ 0137

5655
5159
417

$FLAG
$FLOAT

$GE TPA

H 11

08:27
PAGE 140
CROSS REFERENCE TABLE == MACRO NAMES

5116
4369

6878
4645
#2512

31N

4152
4906

3190

4199
2429

SMULT
$PASEN
SPATTE

6874
1
6874

1624
4065

4106

$Q0Q1
SQUEST

6878
1w

5989
2621

5999
2633

2641

2723

2731

SRCLK

2376

2379

2416

2421

955

2980

3006

3032

3064

3066

3077

3079

3107

3109

3347
3537
3819
4136

3351
3542
3849
4175

3379
3563
3881
4183

3381
gggo
1
4N

Sglg
;9
893
4222

3394
3616
3931
4225

940
4245

26
8
970
4248

3431
3669
3979
4289

3435
3700
4009
4293

3445
3704
4018
4300

3455
3709
4048
4653

3484
3732
4057
4657

3489
3759
4090
4661

3510
3789
4130
4691

5166
5549
5791
zgzg

5364
5613
5802
5974

5378
5629
5820
5977

5383
5634
5824
5

5392

5418
5715
5846
6016

5432
5720
5849
6020

5437
5729
5866
6023

5446
S747
5870
6036

5488
5760
5873
6039

5495
5775
5879
6050

5505
5779
5899
6052

5513
5782
5901
6067

5540
5788
5918
6081

SRAMCL

1%
1#

3120

$SIMBC

—
~TM

$SINAC

3122

4725

4B6B

1
"W

1692
1

6874
1"

6878

$SCADD
$SCAD1

2373

6878

—

$RCRC

$SREC
SROVAR

2319

3858
1017

5928
~N
»
&~
L]

SPFAIL

3153

4729

3909

3155

4759

3948

3174

4897

176

4910

5827

5404
7
5833

3987

4026

211

4915

3213

4924

3229

5095

3231

5109

3259

5114

3283

5123

3309

5138

3318

5152

3345

5157

CIKCF
MACY1 30A(1052)
08-JUL-80
CZKCF P11
08-JuL-80 08:24

$STUFF
S$SWPAC
STCHAR
$TCRC
STRANW
$TRAN1
$TSTN

$SUPADD

6874
6874
687#
6874
6B7#
6874
1w

3473
6116
5529

3;43
476
3326
2%

3526
4162
5570

3267
4885
49;
4974
3360
2972

4951
5175
5025
3405
§997

08:¢7
PAGE 141
CROSS REFERENCE

In
TABLE == MACRO NAMES

5200

5224

5294

3023

3053

3096

3917
4775

3956
4B77

3995
4940

403
5189

4073
5465

2989

2995

3015

3021

3045

3051

3088

3094

313

3137

4267
4773

4273
4B6B

4321
4B7S

6152
4635

4160
4697

6199
4703

4206
4765

933
939

934
940

935
941

936
942

937
943

938

2948
3528
4164

2974
3581
4210

2999
3634
L277

3025
3688
4332

3055
3748
4409

3098
3778
4486

$$SCOP
$SSET

w1679
%%ggl
2215

2216

2217

2218

2219

2220

$$SKIP
-EQUAT
+HEADE
.SETUP
SACTY
.SAPTB
.SAPTH
SAPTY
.SCATC
SCHTA
.SEOP
.SERRO
+SERRT
. SPOWE
-SRDOC
. SREAD
.$500P
.STRAP
.STYPE
.$TYPO

8304
"
720
"
687
14
1
871
1
9494
1
1135
#1834
14
1"
894
1%
1816
1L
1
1w
2322
1
199
1#
1893
17
1683
1w
218
1w
1755
"

3475

4118

. ABS.

033750

000

3414

3867
4705

4114
4629

6874
8944
8944
8304
8304

3369

3836
4637

3622
2970

$ZEROS
$SCMRE
SSCMTH
$SESCA
SSNEWT

3335

3806
4561

3569
2964

3196
3516
3834

3299

3776
44B4

3516
2944

3190
347
3828

3275

3746
4407

3463
2938

889

3251

3686
4330

6874
1#

SWINDO
$xZ

3196

632
4275

2347

3139

3579
4208
5666

SVARIA

SEQ 0138

3243
3524
3858

3249
3569
3865

3267
3577
3909

3273
3622
3915

3291
3630
3948

3297
3675
3954

3326
3684
3987

4328
4927

3333
3738
3993

4398
4938

3360
3744
4026

3367
3768
4032
4475
5187

3405
3774
4065

4482
5455

3412
3798
4071

3463
3804
4106

3141
3808
4563

3200
383
463

3253
3869
4707

3277
3919
&777

3301
3958
4879

3337
3997
4942

3371
4036

3416
4075

2221

2222

2223

2224

2225

2226

2227

2228

6405
5175

4552
S463

519

4559
5521

5467

CZKCF
MACY11 30A(1052)
08-JUL-80
CZKCF.P11
08-JuL-80 08:24

ERRORS DETECTED:

CZKCF ,CZKCF/NL:TOC/SOL/CRF _CZKCF.MAC,CZKCF.P11
RUN-TIME: 29 25 1 SECONDS
RUN-TIME RATIO: 73/56=1.2

CORE USED:

53k

(105 PAGES)

J "

08:27
PAGE 142
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0139