Digital PDFs

AH-E518A-MC

May 1978

35 pages

Original

1.9MB

view download

OCR Version

1.6MB

view download

Document:	CZKMOA0 KMC-11 ITEP OVERLAY DEC 1978 bw
Order Number:	AH-E518A-MC
Revision:	000
Pages:	35
Original Filename:	CZKMOA0__KMC-11__ITEP_OVERLAY__AH-E518A-MC__DEC_1978_bw.pdf

OCR Text

ITEP OVERLAY

CZKMOAO

AH-E518A-MC

DEC 1978

1
FICHE1 OF

MADE IN USA

fll@flflflfl

°°

[TEP OVERLAY
MACY11
JemOA P11
24-MAY-78 15:1§5

30A(1052)

31-MAY-78

16:08

8
PAGE 2

:
PAGE

IDENTIFICATION

THE

PRODUCT CODE:

AC-ES17A-MC

PRODUCT

CZKMOAO KMC-11

NAME:

ITEP OVRLY

PROGRAM DATE:

MAY 1978

MAINTAINER:

DIAGNOSTICS-MERRIMACK

AUTHORS :

ED BADGER

INFORMATION

THIS

DOCUMENT

SUBJECT

CHANGE

WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
THE

SOF TWARE

DESCRIBED

IN THIS DOCUMENT

IS FURNISHED UNDER A

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

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF
NOT SUPPLIED B8Y DIGITAL.

(C)

ITS SOFTWARE

ON EQUIPMENT

1978 BY DIGITAL EQUIPMENT CORPORATION

THAT

0001

€%
1 [TEP OVERLAY
F1 1
IKMDA

1.0

MACY11 30A(1052)

24-MAY~78 15:15

31-MAY-78

16:08

0002

PAGE 3

ABSTRACT.
THIS PROGRAM IS DESIGNED AS A MAINTENANCE AID FOR
FIELD SERVICE PERSONEL.
IT WILL VERIFY THE PROPER OPERATION

OfF A COMPLETE COMMUNICATION LINK FROM ONE PDP-11
SYSTEM TO ANOTHER OR TO A COMMUNICATION TEST CENTER.

THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE INTERPROCESSOR
TEST PROGRAM(DZITP) ON A PDP-11 SYSTEM WITH A DL-11 INTERFACE.
: :JMPORTANT
::

PLEASE NOTE:

THIS OVERLAY REQUIRES A SYSTEM TO HAVE 8K OF MEMORY.
ALSO KCM=11 MAY TALK TO A DMC-11. ALSO THE DMC-11 MAY
TALK TO THIS OVERLAY.

PARAM #1

MUST BE

SET UP TO REFLECT

WHICH VERSION OF MICRO-CODES YOU WISH TO RUN. SET PARAM #1 AN OCTAL 1 FOR HIGH SPEED MICRO-CODE (USE WITH MB202 LINE UNIT).
SET PARAM #1 ~ AN OCTAL O FOR LOW SPEED MICRO-CODE (USE WITH
M8201 LINE UNIT).
2.0

REQUIREMENTS.

2.1

EQUIPMENT
A.
B.

2.2

PDP-11 SYSTEM WITH 8K OF MEMORY.
A KMC11 COMMUNICATION INTERFACE.

STORAGE
.
4K OF

3.0

«.0

CORE

LOADING PROCEDURE

THIS PROGRAM IS IN ABSOLUTE FORMAT.
THE ABS LOADER MUST BE USED TO LOAD

THE PROGRAM.

OPERATING PROCEDURES.
A.

TWO METHODS OF

ENTERING PARAMETERS ARE PROVIDED

LOAD ADDRESS 200 AND START TO ENTER PARAMS FROM CONSOLE TTY, PROCEED TO SECTION B.

LOAD ADDRESS 200 AND SET SWITCH REGISTER BIT 15 BEFORE

STARTING TO ENTER PARAMS FROM CONSOLE SWITCHES, PROCEED TO SECTION C.
*THE PROGRAM MAY BE RESTARTED AT LOC 204

C(ONSOLE DIALOGUE PARAMETER INPUT
1.

(ONCE PARAMETERS HAVE ALREADY BEEN SELECTED)

(CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY)

THE PROGRAM WILL TYPEOUT THE NAME OF THE VARIABLE OVERLAY.
A.
IF YOU WISH TO SETUP JUST THE INDICATED OVERLAY, TYPE A CARAGE RETURN
B.
IF YOU WISH TO SETUP A DN11, TYPE IN DN.

YOU WISH TO SETUP A DM11BB,

TYPE

IN DMB.

IF DN OR DMB WAS TYPED IN STEP 1 ABOVE THEN THE BUS ADDRESS,
VECTOR ETC. REFERED TO IN STEPS 2 THRU 7, PERTAIN TO THE DN11

OR DMBB.

THE PROGRAM WILL TYPE THE DEFAULT BUS ADDRESS OF THE INTERFACE UNDER TEST.

KMC11 ITEP OVERLAY
T9C¥;1
CZKMOA.P11
24L-MAY-78

A.
B.

30A(1052)

31-MAY-78

16:08

:
PAGE

PAGE 4

TYPE A CAR. RETURN TO USE DEFAULT BUS ADDRESS
TYPEIN ACTUAL BUS ADDRESS

THE PROGRAM WILL TYPE OUT THE DEFAULT VECTOR ADDRESS
A.
TYPE A CAR. RETURN TO USE DEFAULT ADDRESS
B.
TYPEIN ACTUAL VECTOR ADDRESS
THE PROGRAM WILL TYPE OQUT THE DEFAULT

INTERFACE PRIORITY

NOTE: 200=PRIO 4, 240=PRIO 5, 300=PRIO 6, ETC.

A.
B.

TYPE A CAR. RETURN TO USE DEFAULT VALUE
TYPEIN ACTUAL VALUE

THE PROGRAM WILL TYPEQUT THE DEFAULT VALUE OF PARAMA1

IF REQUIRED BY THE ISR.(SEE SECT.

A.
B.

10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION)

TYPE A CAR. RETURN TO USE DEFAULT VALUE
TYPEIN ACTUAL VALUE

THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAMA?
IF REQUIRED BY THE ISR.
A.
B.

TYPE A CAR. RETURN TO USE DEFAULT VALUE
ENTER ACTUAL VALUE

THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#3
IF REQUIRED BY THE OVERLAY.
A.
TYPE A CAR. RETURN TO USE DEFAULT VALUE
THE ON-11 WILL USE PARAM #3 uS THE # TO DIAL.
IF USING A MODEM WITHOUT AUTOMATIC HANDSHAKING,
THE NUMBER MUST TERMINATE WITH A
"END-OF ~NUMBER'' CHARACTER (:).
B.
ENTER ACTUAL VALUE.
THE PROGRAM WILL RETURN TO STEP B1
WAS FOR DN11 OR DM1:B8.

THIS SETUP

THE PROGRAM WILL REQUEST THAT SWITCH REGISTER BE SET.
A.
SETUP SWITCH REGISTER AS SPECIFIED IN STEP D.
AND TYPE A CAR. RETURN.

NOTE:

IF ANY OF THE ABOVE ITEMS 2 THRU 7 WERE CHANGED BY ENTERING

NEW VALUES,THE NEW VALUE BECOMES THE DEFAULT VALUE
RESTARTS OF

THE PROGRAM,

FOR SUBSEQUENT

0003

ITEP OVERLAY

CZKMOA.P1

MACY11 30A(1052)

24-MAY=-78 15:15
C.

31-MAY-78

16:08

E
PAGE 5

MANUAL PARAMETER INPUT FROM SWITCH REGISTER
1.
THE PROGRAM HALTS FOR ISR(INTERFACE SERVICE ROUTINE)
SWR14=St UP DM-11B ISR
SWR13=SETUP DN=-11 ISR
SWR=000000=SETUP VARIABLE

PAGE:

SPECIFICATION

ISR

THE FOLLOWING HALTS ARE REPEATED FOR EACH ISR SPECIFIED.
SETUP SEQUENCE IS: DN11,DM11-B8 THEN VARIABLE OVERLAY. (EACH ENTRY SET SWICHES THEN HIT CONTINUE.)

nTMOND>»

KMC11

HALT FOR BUS ADDRESS OF INTERFACE
HALT FOR VECTOR ADDRESS OF INTERFACE
HALT FOR PRIORITY OF INTERFACE

HALT FOR INTERFACE PARAM #1 (SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION)
HALT FOR INTERFACE PARAM #2 (DN11 AND DMBB PARAMETERS ARE DISCUSSED IN SECT. 10.0 OF THE MONITOR.
GO BACK TO STEP A IF THIS SETUP WAS FOR DN OR DMB.

HALT FOR OPERATIONAL SWITCH SETTINGS.
A.

PRESS CONTINUE

TO START TESTING

BEFORE ATTEMPTING TO RUN THIS PROGRAM,

(SEE STEP D.)

THE OPERATOR MUST

ACCERTAIN THE COMPLETE COMMUNICATION LOOP AND PROCEEDURES
TO BE USED, INCLUDING THE TYPE OF MODEMS, THE TYPE OF

INTERFACE BEING USED AT THE OTHER CPU AND THE MODES OF OPERATION,

DATA AND PARAMETERS TO BE USED AT EACH CPU.

THIS WILL REQUIRED VOCAL COMMUNICATION WITH THE OPERATOR
AT THE OTHER CPU UNLESS ITS CONFIGURATION AND OPERATION
ARE FIXED AS A TEST CENTER.

AFTER DETERMINING THAT THE EQUIPMENTS ARE COMPATIBLE AND
AGREEING ON THE MODE AND VARIABLE PARAMETERS TO BE USED,
THE SYSTEM WHICH IS TO RECEIVE DATA FIRST SHOULD BE
LOADED AND STARTED.
IF THE MODEM BEING USED ON THIS SYSTEM
HAS AN AUTOMATIC ANSWER FEATURE, IT SHOULD BE ENABLED.
THE SYSTEM WHICH IS TO TRANSMIT FIRST SHOULD THEN BE LOADED
AND STARTED AND THE CONNECTION ESTABLISHED EITHER MANUALLY

OR AUTOMATICALLY

(VIA DN-11).

0004

XKMC11 ITEP OVERLAY
MACY11
CZKMOA.P11
24-MAY~-78 15:15

31-MAY-78

16:08

PAGE 6

OPERATIONAL SWITCH SETTINGS.

SW15=1 HALT ON ERRCR
SW14=1 SINGLE PASS
SW14 HAS NO EFFECT IF SW04=0
SW13=1 INHIBIT ERROR TYPEOUTS
SW12=1 INHIBIT ALL TYPEOUTS EXCEPT ERRORS

IF SW12=0 AND SW04=1 END PASS IS TYPED

AND TRANSMITTED/RECEIVED DATA IS TYPED.
SW11=1 USE PREVIOUSLY SPECIFIED DATA

SW10=1 DATA SELECT (WITH SW09)
SW09=1 DATA SELECT (WITH SW10)

00=1 GET DATA FROM OPERATOR
01=1 TEST MESSAGE #1 (SA QUICK BROWN FOX)
10=1 TEST MESSAGE #2 ($8 NUMERICS)
11=1 TEST MESSAGE #3 ($C COMTEST/QUICK BROWN FOX/NUMERICS)
SWO8=1
TRANSMIT RECEIVED DATA (INTERNAL LOOPBACK MODE)
SW07=1 DO NOT TEST RECEIVED DATA
SW06=1 MONITOR TRANSMITTED DATA ON CONSOLE TTY.*
SWO5=1 MONITOR RECEIVED DATA ON CONSOLE TTY,*
* IN MANY CASES, NOT ALL DATA WILL APPEAR ON THE CONSOLE
nin

30A(1052)

TTY. THIS IS ESPECIALLY TRUE WHEN THE COMM INTERFACE IS
RUNNING AT A FASTER BAUD THAN THE CONSOLE, BUT EVEN AT EQUAL
OR SLOWER BAUDS, ALL CHARACTERS MAY NOT APPEAR ON THE CONSOLE.

SW04=1 RETURN TO MONITOR FOR END PASS
WHEN SW04=0 PROGRAM LOOPS IN THE OVERLAY NEVER RETURNING TO THE MONITOR.
SW03=1 INTERNAL LOOPBACK MODE
SWO2=1 EXTERNAL LOOPBACK MODE
SW01=1 ONE-WAY-IN MODE
SW00=1 ONE-WAY-0OUT MODE

:
PAGE

0005

KMC11

ITEP OVERLAY

CZKMOA .P11

MACY11 30A(1052)

24-MAY-78 15:15

31-MAY-78

16:08

PAGE 7

THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF_NOT FOUND A

SOF TWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO.
IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE

OUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED
(18)

SWR=XXXXXX

NEW=

POSSIBLE RESPONSES ARE:
1.

<CR>

6 DIGITS 0-7

IF NO CHANGES ARE TO BE MADE

TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER

VALUE ;LAST DIGIT FOLLOWED BY <CR>.
TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED
KEYING IN SWREG VALUE.

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER
APPLICABLE AREAS.

IF OPERATOR SPECIFIED DATA WAS INDICATED, THE PROGRAM WILL TYPE A
REQUEST FOR THE DATA. DATA MAY BE ENTERED AS ASCII CHARACTERS OR OCTAL CODE.
TYPE IN THE DATA TERMINATED WITH A CR. OCTAL CODE MAY BE ENTERED BY TYPING AN

“(UP ARROW) FOLLOWED BY THE OCTAL CODE

(IN THE RANGE 000 TO 377)

SEPERATED BY SPACES AND TERMINATED BY “(UP ARROW).

I1.E.

ABCD* 000 123 377* EFG (CAR.RETURN)

A TYPICAL SWITCH SETTING FOR HALF-DUPLEX=003150 THIS SETTING USES
INTERNAL LOOPBACK MODE, LOOPS IN OVERLAY, MONITORS TRANSMITTED AND RECEIVED
DATA ON THE CONSOLE TTY, AND TESTS RECEIVED DATA USING TEST MESSAGE #3.
A TYPICAL SWITCH SETTING FOR FULL-DUPLEX=003144 THIS SETTING
IS THE SAME AS ABOVE EXCEPT IT USES THE EXTERNAL LOOPBACK MODE.

ALL STANDARD MESSAGES(TEST MESSAGES 1-3) ARE PRECEDED BY 2 FILL CHARACTERS(177),

AND ARE FOLLOWED BY A CR(015), LF(012) ,RECEIVE TERMINATING CHARACTER(001),
4 FILLS(177), AND A TRANSMIT TERMINATING CHARACTER(000). DURING TRANSMISSION,
WHEN A 000 CHARACTER IS SEEN THE TRANSMISSION IS STOPPED.DURING RECEPTION,
WHEN A 001 CHARACTER IS RECEIVED, THE RECEIVER IS SHUT OFF.
IF THE MESSAGE WAS INPUTED BY THE OPERATER, THE TERMINATING CHARACTERS ARE ADDED.

PAGE:

0006

KMC11 ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
24-MAY-78 15: 15

‘

31-MAY-78

16:08

PAGE 8

:
PAGE

TEST MODES

INTERNAL LOOPBACK MODE
1.

2.
3.
4.

THE OVERLAY WAITS TO RECEIVE A MESSAGE

(TERMINATED BY <001>)

VERFIES THE DATA AGAINST THE DATA SELECTED BY SW09 AND SW10(SW7=0)
TRANSMIT THE DATA SELECTED BY SWO9 AND SW10 (Sw8=0) OR
TRANSMIT THE RECEIVED DATA (Sw8=1)
RETURNS TO MONITOR FOR ‘END PASS'' (SW4=1) OR
GO TO STEP 1. (Sw4=0)

NOWVI
S NN —

EXTERNAL LOOPBACK MODE
THE OVERLAY SETS REQUEST TO SEND
WAIT FOR CLEAR TO SEND
TRANSMITS THE SELECTED DATA
RESETS REQUEST TO SEND
WAIT FOR MESSAGE TO BE RECEIVED

VERIFIES THE DATA (SW07=0)
RETURNS TO MONITOR FOR "END PASS''.
GO TO STEP 1(SW04=0)

(SW04 1)

ONE-WAY~IN MODE
THE OVERLAY WAITS FOR MESSAGE

TO BE

RECEIVED.

VERIFIES THE DATA(SW07=0)
RETURNS TO MONITOR FOR "END PASS''(SW04=1)
GO TO STEP 1 (SW04=0)

ONE-~WAY-0UT MODE
THE OVERLAY SETS REQUEST
WAITS FOR CLEAR TO SEND
TRANSMITS SELECTED DATA

TO SEND

RETURNS TO MONITOR FOR "END PASS''.
GO TO STEP 1 (SW04=0)
E.

(SW04=1)

THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER
MANUALLY OR AUTOMATICALLY.

IF ONE-WAY=IN OR INTERNAL LOOPBACK MODES ARE SELECTED.

THE OVERLAY WILL

SET DATA TERMINAL READY AND WAIT FOR DATA.

IF ONE-WAY-OUT OR EXTERNAL LOOPBACK MODES WERE SELECTED.
THE OVERLAY WILL
THE OVERLAY WILL
TRANSMIT DATA.

SET DATA TERMINAL READY AND REQUEST TO SEND.
THEN WAIT FOR CLEAR TO SEND BEFORE ATTEMPTING TO

THE PROGRAM WILL PRINTOUT A ‘WAITING FOR CLEAR TO SEND'’
MESSAGE AND THE CONTENTS OF THE XMIT (SR EVERY 60 SECS.
UNTIL CLEAR TO SEND IS ASSERTED.

0007

KMC11

ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
24-MAY-78 15:15
F.

31-MAY-78

16:08

:
PAGE

PAGE 9

SW04=0 THE OVERLAY WILL CONTINUE TO

TRANSMIT/RECEIVE DATA.

IF SW04=1 THE OVERLAY WILL RETURN
TO THE MONITOR AND TYPE 'END PASS''.

IF BOTH SW04=1 AND SW14=1, THE PROGRAM WILL REQUEST
?EngaéngACE PARAMS AFTER ONE PASS OF THE SELECTED
TEST EXECUTION MAY BE INTERRUPTED BY TYPING THE FOLLOWING
CHARACTERS ON THE CONSOLE TTY.

LINE FEED = RESTART PROGRAM AT LOCATION 200.
QUESTION MARK = PRINTOUT FIRST 8 WORDS OF
THEN TYPE EITHER:

*WXXXXXX

INPUT BUFFER.(ASCII)

TO PRINTOUT THE 8 WORDS

AT LOC XXXXXX.

*BXXXXXX

TO PRINTOUT THE
AFTER LOC XXXXXX.

TO CONTINUE

16 BYTES

PROGRAM MUST BE RESTARTED AT 200 AFTER PRINTING.
CARRIAGE RETURN = RESTART AT REQUEST FOR NEW OPERATIONAL SWITCHES.

5.0

PROGRAM AND/OR OPERATOR ACTION

IF THE OPERATOR WISHES TO MANUALY EXAMINE THE TRANSMIT OR RECEIVE
BUFFERS, DO THE FOLLOWING; TO FIND THE STARTING ADDRESS OF THE RECEIVE

BUFFER, LOAD ADDRESS 11020 AND EXAMINE. TO FIND THE STARTING ADDRESS
OF THE TRANSMIT BUFFER. LOAD ADDRESS 11022 AND EXAMINE.
5.1

NORMAL HALTS
SEE SECTION 4.

6.0

ERRORS

6.1

ERROR REPORTING
THE ONLY ERROR REPORT FROM THE

CONTROL PROGRAM OCCURS

INTERFACE SPECIFIED IS NOT LOADED.

IF DATA IS RECEIVED AND SWITCH 7 (NO DATA COMPARE)

THE

IS RESET, THE DATA WILL BE COMPARED AGAINST THE PRESELECTED
DATA AFTER A LINE FEED CHARACTER IS RECEIVED. IF THERE IS A
MISMATCH,
THE FOLLOWING ERROR REPORT IS PRINTED:
RECEIVED DATA=RRRRRR
DATA SHOULD BE TTTITTT
DATA COMPARE ERROR;
BAD DATA=888

GOOD DATA=GGG

WHERE RRRRRR IS THE RECEIVE BUFFER

(UP TO 512 CHARACTERS)

0008

KMC11

ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
24-MAY-78 15:15

31-MAY-78

16:08

PAGE 10

TTTTTT IS THE TRANSMIT BUFFER (UP TO 512 CHARACTERS)

BBB IS THE BAD DATA CHARACTER
GGG IS THE GOOD DATA CHARACTER

IF THE INTERFACE DETECTS A DATA ERROR, THE FOLLOWING

WILL BE PRINTED BEFORE THE DATA IS COMPARED:

THERE WAS A RECEIVER ERROR. RECEIVER DATA REGISTER =XXXXXX
WHERE XXXXXX
THE LOW BYTE

IS THE CONTENTS OF THE RECEIVER DATA REGISTER
IS THE DATA, AND THE HIGH BYTE IS THE ERROR BITS.

IF A RECEIVE TERMINATING CHARACTER<001> IS NOT DETECTED

WITHIN 512 CHARACTERS A 'BUFFER FULL''" PRINTOUT WILL OCCUR.
7.0

RESTRICTIONS

THE OPERATION OF THIS PROGRAM REQUIRES COORDINATION BETWEEN
THE OPERATOR AND THE OPERATOR OF ANOTHER PDP-11 SYSTEM
UNLESS ONE OF THE SYSTEMS IS ALWAYS OPERATING IN A FIXED
MODE.
THE FOLLOWING TABLE LISTS THE VALID COMBINATIONS:

cPU M

ONE-WAY-0UT
ONE-WAY-=IN
EXTERNAL-LOOPBACK
INTERNAL -LOOPBA(CK
EXTERNAL-LOOPBACK

CPU #2

ONE-WAY-IN
ONE-WAY-0UT
INTERNAL -LOOPBACK
EXTERNAL-LOOPBA(CK
EXTERNAL-LOOPBACK (FULL DUPLEX)

WHEN THE COMMUNICATION LINK
RESTRICTION APPLY:

INVOLVES MODEMS

THE

FOLLOWING

IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS
MUST BE IN EXTERNAL LOOP BACK MODE.
ggmo E\Ersrsns SHOULD BE RUNNING IDENTICAL ROUTINES.

SWITCHES 14,13,7.4 SHOULD BE THE SAME

ON BOTH CPU’S

IF PROGRAM IS WAITING IN A SCAN ROUTINE AND TYPES OUT
A "WAITING MESSAGE'',IF AN INCOMING MESSAGE STARTS DURING
THE

TYPE QUT,

IT WILL BE LOST BECAUSE

THE

TYPEOUT PRIORITY

IS AT LEVEL 7. THIS WILL RESULT IN OVERRUN OR SILO OVER-

RUN ERRORS,

DEPENDING ON THE DEVICE.TO AVOID THIS SITUATION

RUN WITH SWITCH 13 UP.

IF OVERRUN DOES OCCURE DURING A

TYPEOUT THE PROGRAM SHOULD

BE RESTARTED.

IF USING AN ASYNCRONOUS DEVICE, MODEMS AND THE

MAYNARD TEST STATION AND INITALIZE DOES NOT CLEAR THE

CONNECTION (EXAMPLE THE DJ11) IF THE PROGRAM IS RESTARTED
IN THE MIDDLE OF A MESSAGE AT LOC 204 OR BY HITTING CR

AN IMMEDEATE ERROR MESSAGE FROM MAYNARD WILL BE

CEIVED.

RE-

THIS IS BECAUSE THE TEST STATION IS STILL LOOKING

:
PAGE

0009

KMC11

ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
24-MAY-78 15:15
FOR THE REST OF

THE

31-MAY-78

16:08

INTERUPTED MESSAGE.

K 1
PAGE 11

TO AVOID THIS

ERROR , RESTART PROGRAM ONLY AT THE END OF THE MESSAGE
CURRENTLY BEING TRANSMITTED.
8.0

MISCELLANEOUS

ITEP WAS CHECKED OUT USING THE FOLLOWING BELL TELEPHONE MODEMS.
208A (SYNCHRONOUS 4800 BAUD)
5.0

PROGRAM DESCRIPTION

9.1

THE KMC11 INTERFACE SERVICE PARAMS ARE SETUP, AS SPECIFIED BY THE OPERATOR,
BY THE ITEP CONTROL PROGRAM.
TIME: PROVIDES A MEANS OF MEASURING ELASPED TIME. IT IS INCREMENTED
EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN ITEP.

9.2

WHEN THE OVERLAY IS FIRST ENTERED BY ITEP AT 'OCATION START:,

THE CONTENTS OF THE SWITCH REGISTER ARE STORE. IN REGISTER 0.

THE MODE AND DATA SELECTIONS ARE FIXED AT THIS TIME AND CANNOT
BE ALTERED WITHOUT RETURNING TO THE CONTROL PROGRAM.
THE INTERRUPT VECTORS AND VARIABLES ARE THEN SETUP.
THE SELECTED ROUTINE DETERMINED BY THE MODE IS THEN ENTERED

NEXT, THE MICRO-CODE TO LOAD INTO THE KMC-11

CRAM. AFTER LOAD,

THE CRAM IS VERIFIED AGAINST THE MICRO~CODE IN PDP-11 MEMORY.
IF A BAD LOAD, THE PROGRAM WILL REPORT AN ERROR AND CONTINUE.
EITHER LOW SPEED MOCRO-CODE OR HIGH SPEED MICOR-CODE WILL BE
LOADED, DEPENDED ON THE CONTENTS OF PARAM #2.

9.3

THE OVERLAY THEN LOOPS IN ROUTINES: SOWI ,IF 'ONE WAY IN'' MODE
WAS SELECTED. $OWO,IF 'ONE WAY OUT'' MODE WAS SELECTED.
$ILB, IF "'INTERNAL LOOP BACK'' MODE WAS SELECTED.
$XLB,IF 'EXTERNAL LOOP BACK'' WAS SELECTED.

9.31

$OWI: IN THIS ROUTINE THE RECEIVER IS INITIALIZED AND PROGRAM
LOOPS WAITING FOR THE RECEIVER TO FINISH.IF NOTHING IS RECEIVED
FOR 60 SECS A "WAITING'' MESSAGE IS TYPED. WHEN THE RECEIVER IS
DONE
., THE PROGRAM CHECKS DATA IF SWITCHES PERMIT,AND TYPES END
PASS DEPENDING ON SWITCH SETTINGS.

9.32

$OWO: THE TRANSMITTER IS INITIALIZED AND PROGRAM LOOPS
WAITING FOR TRANSMITTER TO FINISH,A ‘WAITING'' MESSAGE IS TYPED

EVERY 60 SECS IF THERE 1S NO ACTION. WHEN THE TRANSMITTER IS

DONE, THE PROGRAM EITHER LOOPS BACK TO $OWO OR TYPES END PASS
DEPENDING ON SWITCH SETTINGS.

9.33

$ILB: THE RECEIVEF IS INITIALIZED AND PROGRAM LOOPS WAITING FOR
RECEIVER TO FINISH, A 'WAITING'' MESSAGE IS TYPED EVERY 60 SEC
IF NO ACTION. WHEN RECEIVER IS DONE PROGRAM CHECKS DATA IF SWITCH
SETTINGS PERMIT, AND END PASS IS TYPED IF SWITCH SETTINGS PERMIT.
THEN THE TRANSMITTER IS INITIALIZED, A 'WAITING'' MESSAGE IS TYPED

EVERY 60 SEC IF NO ACTION. WHEN TRANSMITTER 1S DONE PROGRAM RETURNS
TO START OF ROUTINE.

($ILB)

PAGE :

0010

KMC11

ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
24-MAY-78 15:15
9.34

31-MAY-78

16:08

L1
PAGE 12

PAGE :

$XLB: IF IN HALF DUPLEX THE TRANSMITTER IS INITIALIZED,
A 'WAITING MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION
WHEN THE TRANSMITTER IS DONE THE RECEIVER IS INITIALIZED

LA "WAITING'' MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION.

WHEN THE RECEIVER IS DONE,DATA IS CHECKED IF SWITCH SETTINGS
PERMIT AND END PASS IS TYPED IF SWITCHES ALLOW.THE PROGRAM NOW
REPEATS CYCLE STARTING AT $XLB.

IF IN FULL DUPLEX THE RECEIVER AND TRANSMITTER ARE INITIALIZED

. A "WAITING'® MESSAGE IS TYPED EVERY 6

SEC IF THERE IS NO

ACTION. WHEN BOTH THE RECEIVER AND TRANSMITTER ARE DONE ,DATA

CHECKED, END PASS IS TYPED AND PROGRAM LOOPS TO $XLB DEPENDING

ON THE SWITCH SETTINGS.
9.4

THE RETURN TO MONITOR ROUTINE FOR END PASS AT EOP:

LOCKS OUT INTERUPTS AND SAVES THE TRANSMITTER INTERUPT ENABLE
BIT AND ALL GENERAL REGISTERS. IT THEN RETURNS TO THE MONITOR
TO TYPE "END PASS''. THE MONITOR CHECKS SW14 IF UP IT RETURNS
TO ENTER:, OTHERWISE

9.5

ENTER-

IT RESTARTS THE PROGRAM.

JS ENTERED FROM THE MONITOR AFTER TYPEING 'END PASS'’,

IT RESTORES THE GENERAL REGISTERS AND THE TRANSMITTER CSR

AS SAVED IN EOP. THE DELAY FLAG IS SET AND PROGRAM RETURNS TO
THE SCAN ROUTINE (OWO,OWI,ILB,XLB) WHERE IT CAME FROM.

9.6

THE

INITIALIZE TRANSMIT SUBROUTINE AT STARTX:

SETS UP THE INTERFACE AND POINTERS NECESSARY TO
INITIATE A TRANSMIT OPERATION.
AFTER SETTING 'DATA TERMINAL READY'' AND ‘'REQUEST TO SEND'' A CHECK
IS MADE ON PARAM? TO DETERMINE IF HALF DUPLEX OPERATION
WAS SELECTED BY THE OPERATOR. IF IT WAS,
SUBROUTINE WAITS FOR CLEAR TO SEND.

THE

'WAITING FOR CLEAR TO SEND' PRINTOUT CCCURS

EVERY 30 SECONDS UNTIL CLEAR TO SEND IS ASSERTED.

9.7

THE INITIALIZE RECEIVED SUBROUTINE AT STARTR:
SETS UP THE INTERFACE AND POINTERS NECESSARY TO
RECEIVE A MESSAGE.

9.8

THE TRANSMIT INTERRUPT SERVICE ROUTINE,
AT XISR:, IS5 ENTERED VIA TRANSMIT INTERRUPTS
FROM THE INTERFACE.
A TEST IS MADE TO SEE IF THE LAST CHARACTER
TRANSMITTED WAS A NULL (ALL ZEROS) CHARACTER.

IF IT WAS; THE TRANSMIT LOGIC IN THE INTERFACE
IS RESET AND THE TRANSMIT COMPLETE FLAG IS SET.
AT XISR1: THE NEXT CHARACTER IS TRANSMITTED
AND PRINTED ON THE TTY IF THE MONITOR TRANSMIT
SWITCH IS SET.

9.9

THE RECEIVE INTERRUPT SERVICE ROUTINE

AT RISR:, IS ENTERED VIA RECEIVER INTERRUPTS

FROM THE INTERFACE.
THE RECEIVED CHARACTER IS STORED IN
THE INPUT BUFFER AND PRINTED ON THE TTY
THE MONITOR RECEIVER SWITCH IS SET.

0011

KMC11

ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
24-MAY-78 15:15

31-MAY-78

16:08

PAGE 13

IF THE INPUT BUFFER IS FULL, A 'BUFFER FULL'

PRINTOUT WILL OCCUR.

THIS INDICATES THAT A

L'NE FEED CHARACTER WAS NOT RECOGNIZED

IN THE RECEIVED DATA (WITHIN 1000 CHARACTERS).

IF THE RECEIVED CHARACTER IS A LINE FEED,

THE RECEIVED LOGIC IS RESET AND THE
RECEIVE COMPLETE FLAG IS SET.

IF A "RECEIVE ERROR' IS DETECTED AT RISR:, THE
CSR AND DBR WILL BE SAVED AND PRINTED OUT
AFTER THE COMPLETE MESSAGE HAS BEEN RECEIVED.
9.10

THE DATA TEST SUBROUTINE AT TESTD: IS
ENTERED AFTER A COMPLETE MESSAGE HAS BEEN
RECEIVED.

IF A 'RECEIVE ERROR' HAD BEEN DETECTED,

THE CONTENTS OF THE 'RECEIVE BUFFER' AT THE
TIME THE ERROR OCCURRED WILL BE PRINTED.
THE DATA IS COMPARED UNTIL A °'ALL ZEROS'

CHARACTER IS RECOGNIZED.

'FILL'

(ALL ONES)

CHARACTERS ARE IGNORED. IF A MISMAT(CH
IS DETECTED, THE COMPLETE CONTENTS OF THE
INPUT BUFFER AND GOOD DATA IS PRINTED.

10.0

PARAME TERS FOR THE KMC11

DZDMOA PROVIDES THREE TESTS FOR THE KMC-11, SELECTABLE BY
}?ETEAQSQETER LOCATIONS PROVIDED

10.1

1.)

IN ITEP.

THE

THREE

LINK TEST

NORMAL ITEP OPERATION, THE ONLY RESTRICTION
IS IT MUST BE KMC TO KMC OR DMC. IT IS NORMAL TO GET
SOFT _ERRORS DURING THE LINK TEST. THE PARAMETERS
FOR THE LINK TEST ARE AS FOLLOWS:

PARAMA

BIT1 = 0
BIT1 =1
BIT15 = 0
BIT15 =1

LOW SPEED MICRO-CODE (M8201)
HIGH SPEED MICRO-CODE (M8202)
KMC=11 ‘DEFAULT)
DO NOT VERIFY MICRO-CODE LOAD

PARAM¥? FULL/RALF DUPLEX SELECTION

BITO = 0

HALF DUPLEX

PARAMN¥3 IS NOT USED
10.2

FULL DUPLEX

(DEFAULT)

(177777)

2.) SECONDARY MODE TEST
THIS TEST CHECKS

THE SECONDARY STATION DELAY.

:
PAGE

0012

KMCI11

ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
24-MAY~78 15:15

31-MAY-78

16:08

PAGE 14

IF RUNNING THIS TEST, EXTERNAL LOOP BACK IS

THE ONLY LEGAL MODE OF OPERATION. ALSO BOTH
KMC-11'S MUST HAVE HALF-DUPLEX SELECTED AND THE

SECONDARY MODE BIT SET IN THE PARAMETER WORD.
ADDITIONALLY ONE KMC IS SET TO BE THE SECONDARY
STATION AND THE OTHER THE PRIMARY STATION.
AGAIN IT IS NORMAL TO GET SOFT ERRORS DURING

THE SECONDARY MODE TEST AS IN THE LINK TEST.
THE PARAMETERS FOR THE SECONDARY MODE TEST
ARE AS FOLLOWS:
PARAMA1

BIT1 = 0
BIT1 =1

LOW SPEED MICRO-CODE (M8201)
HIGH SPEED MICRO-CODE (M8202)

BIT15 = 0
BIT15 =1

KMC-11 (DEFAULT)
DO NOT VERIFY MICRO-CODE LOAD

PARAMNF? SECONDARY MCOE TEST SELECTION
BITO = 0
HALF DUPLEX(MUST BE O FOR THIS TEST)
BIT1 =1
SECODARY MODE TEST(MUST BE 1)
BIT2 = 0
PRIMARY STATION
=1
SECONDARY STATION
PARAM¥3 IS NOT USED

(177777)

11.0

KMC11 RESTRICTIONS

1.1

THE KMC11 IS A DMA DEVICE AND THEREFORE THE TRANSMITTED
AND RECEIVED DATA CAN NOT BE MONITORED ON A PER CHARACTER
BASIS BY THE CONSOLE TTY. BECAUSE OF THIS, SWO5 AND SW06
HAVE NO EFFECT.
KMC ITEP IS MEANT TO BE AN ON LINE LINK TEST FOR TWO
KMC11S. KMC ITEP WILL NOT WORK WITH ANY OTHER DEVICE
RUNNING ITEP EXCEPT ANOTHER KMC11 OR SLAVE DMC11,

BECAUSE THE KMC11
THE PDP-11

WHAT

SUPPORTS DDCMP OPERATION IN THE FIRMWARE,

PROGRAM (ITEP)

IS UNABLE

TO CONTROL OR KNOW EXACTLY

IS BEING TRANSMITTED AT ANY GIVEN TIME.

ALL DATA

MESSAGES ARE ENCLOSED IN A DDCMP ENVELOPE AND THERE MAY
ALSO BE CONTROL MESSAGES (AKS NAKS ETC) BEING TRANSMITTED.
BECAUSE OF THIS PLEASE BEWARE IF YOU ARE SCOPING DATA.

:
PAGE

0013

KMC11 ITEP OVERLAY
MACY11
CZKMOA P11
24~MAY-78 15:15

647

648
649

31-MAY-78

30A(1052)

16:08

8 2
PAGE 15

PAGE
:

:'Q.ttt't"..tttttttltflt'fi'ttt.Qfitkttttfittttfifittttttt'*fitfiiifit"

;

KMC11

INTERFACE SERVICE PARAMS

:Q"Q.'Qfi."".'.""fi'fiQ'"'fi'fi.*ttfitfi**.fl"fitfi.tt***t*fifi'fi"fifi

000103

.=11000

KMC11:

.ASCIZ

BA:

160010

177570

;ISR NAME

;BUS ADDRESS

RIV:
PRIOR:
PARAM1:
PARAM?:
PARAMZ:
IRDA:
IXDA:
SETTLE:

300
240
0
1
-1
.WORD
WORD
.:823

O
O
8

;VECTOR ADDRESS
;PRIORITY
JPARAM #1
;PARAM #?2
;PARAM #3
JINITIAL READ DATA ADDRESS
;INITIAL XMIT DATA ADDRESS
JLINE SETTLE DELAY FLAG

B2016:

.4O0RD

;ADDR OF BIN TO OCT TYPE ROUTINE

TIME:

001
000000

/KMC/

.WORD
WORD
IX.TERM .WORD

O
O
START

RX.

TERM .BYTE

000

;TRANSMITTER TERMINATING CHAR.

BYTE

001

JRECEIVER TERMINATING CHAR.

X.
X.

FLAG:

:
:

. WORD

SWR:
177570
DISPLAY:177570

;TIMER
:
:ADDR OF

START OF PROGRAM

:Rfifitfitfi'*fi.ttifi*.*fiififiQ"tfi'*fi*Qfi**fi"t.*'fl'tfitti'tfiti'ttflifiti'

CONSTANTS + WORKING STORAGE

:**'t.t**t.fi'fi'fi***'fi'*"ti't*ttt*fifi.fi**fifi'tttfi'tfifi..lt'fifi'fififi*t

STAT=R0
XFLG=100000
RFLG=40000
DSFLG=20000
BIT13=20000

011050

JXMIT COMPLETE FLAG
;RCV COMPLETE FLAG
;DATA SET STATUS CHANGE FLAG
JINHIBIT PRINTOUTS

SXCSR:
SRCSR:
ERCSR:
ERDBR:
DSSTAT:

0
0
O
O
0

;SAVED XMIT CSR
;SAVED RCV CSR
;RCVY CSR SAVED ON ERROR
;RCV DATA REG SAVED ON ERROR
JRCV CSR SAVED ON DS CHANGE

TXWC:
RXW( :
XCC:
RCC:
RDA:
XDA:

0
0
0
0
0
0

JXMIT CHAR COUNT
:RCY CHAR COUNT
:RCV DATA ADDR.
JXMIT DATA ADDR.

177560

177562
177564
177566

TKS:
TKB:
TPS:
TPB:

177560
177562
177564
177566

000001

FULL .DUPLEX=000001

011052

011054
011056
011060

0014

KMC11 ITEP OVERLAY
CZKMOA.P11
24-MAY-78

30A(1052)

31-MAY-~78

16:08

PAGE 16

:
PAGE

:ttttfittfittttttfi*tt*tQtttt'ttt***fifitttttt**ttttttttttttitttttttt

iIMCT11-X INTERFACE SERVICE ROUTINE
NWNIN)
=

START:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

VNN
B

011234

000004
011012

015132
015316
040000

BIT
BEQ
MOV

000004

MOV
MOV
CLR
MOV

JSR

017446
100000

011022

1%:

011040

011062

000010
011064

2s:

017014
017024
017022

—

HOP
MOV

elC

N
NON) = =2 2O

POPIPNININININA)
= = b b d o b b nd b —d b b b )

OGP

Sorar Grusr Pour P
G

I O
I

Gour G
Qo

S
O
S

S
Gur Gonr
Gonr S

O
O

poar Qe

Qoo

Guur G

elelelolelelolelelolalelalolalololololalels)

Purd

;tttttttvfittt*tfittttttt*'fittttittttfitttfittt'itt*tt*"*tttttttt't

000100
000143
011054
011056
017036
017040
017042
017044
017051
017052
017054
017056
017060
017020
017012

aSWR,
RO
#177400,
RIV,
R2
#RISR,
(R2)+
PRIOR,
(R2)+
#XISR,
(R2)+
PRIOR,
(R2)+
Ré
BA,
RIV,R2
#XISR, (R2)

#RISR,4(R2)
ggl T8,PARAM
#11SR, (R2)

#0ISR,4(R¢)
#BIT14,(R4)
(R4)
R4 .R1

000002

TX.TERM, (R2) +
1$
R3,TXWC
#10,R3
R3,RXW(
(R4)

RFLAG
XFLAG

(R4)
(43
#100,2(R4)
#1643, (R4)
ERCSR
ERDBR
ERRCNT

ERRCNT+2

+4
ERRCNT
+6
ERRCNT
BASE+3
BASE +4
BASE +6
BASE+10
BASE+1?2
TEMP?

5$:

;STRIP JUNK

sSETUP
s INTERRUPT
:VECTORS

:SETUP BUS ADDR INDEX

sADJUST VECTORS FOR
s INPUT SERVICE ROUTINE
sOUTPUT SERVICE ROUTINE
.800T MODE?
:BR IF NO
;LOAD BOOT VECTORS

*MASTER CLEAR KMC11

PC,LDRVRF

#1715, (R4)
IXDA,R2
R3
R3

BASEFG
L%

; SETUP MODE IN RO

RE SUME

;CALCULATE WORD COUNTS

;CLEAR COUNT
JINC COUNT
:LAST CHARA(CTER?
;BR IF NO

JSTORE XMIT COUNT

;ADD 10 TO IT
JSTORE REC

COUNT

JWAIT FOR RUN
;BR IF RUN NOT SET
;CLEAR BASE LOAD FLAG
;CLEAR RECEIVE FLAG
;CLEAR XMIT FLAG
JRUN SET?
;BR IF NO
;SET OIE
;ASK FOR BASE TRANSFER
JCLEAR ERROR LOCATIONS
;CLEAR SOFT ERROR STORAGE
sLOCATIONS

;CLEAR BASE ERROR COUNT LOCATIONS

;CLEAR RESUME FLAG

0015

KMC11 ITEP OVERLAY
MACY11
CZKMOA.P11
24-MAY-78 15:15
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785

011404

017700

MoV

177434

801
802
803
804
805
806
807
808
809
810
811
812
813
814

16:08

D_2
PAGE 17

aSWR,RO

:
PAGE

JREREAD SWR

ERARRRERERRANRRAANRNE
NN R RN RN RARRARNS

;

ROUTINE USED TO GOTO

[

ON MODE SELECTED.

;

SUBROUTINE DEPENDENT

:t*itttt*fittittt'tttt'tit'iit*t*tttt**t

011032
013402
013406
000001

011410
011414
011420
011424
011430
011432
011436
011442
011444
011450
011454
011456
011462

GO:

011612
000002

1%:

011500
000010

2%:

011714

3s:

000004

011466

011470
011474
011476

012150

786
787
788
789
790
1
792

793
794
795
796
797
798
799
800

31-maY-78

30A(1052)

CLR
CLR
CLR
BIT
BEQ
JMP

TIME
DELAY
STOP
#0W0 ,MCDE
1%
$0W0

BEQ
JWP
BIT
BEQ
JMP
8IT
BEQ
JMP

2%
$OW!
#11L8,MODE
3%
$ILB
#XLB,MODE
43
$XLB

BIT

HALT

#0W] ,MODE

.~2

;tfittttttttttt***ittttt*t**t'tt*'tittt*tt.tfitfit*ttt'ttiifitt"ttt'ttt'

ROUTINE USED IF ''ONE WAY IN'' MODE WAS SELECTED.
NOTE THAT WHEN IN THIS MODE HALF
ONLY MODE AVAILABLE.
’

DUPLEX IS THE

"ONE WAY IN'' MEANS THAT ONLY THE RECEIVER IS
ENABLED. THE TRANSMITTER IS NEVER '‘TURNED ON''.

;ttttt*ttttt*tittttttttt*t*'ttifitt'ttttt**fififi'tt**t'tfi'i.tfifltt"ttiit

011500
011502

104416

004737
032700
001013
023727
103771
011402
016403

013500

011534
011540

005037
000762

011022

011542
011550
011552
011556
011562

032777

000200

011506
011512
011514
011522
011524
011526
011532

104001

$OWl:

040000

011032

1%:

000100

000002

012626
040000
016242

KBDIN
JSR
BIT

PC,STARTR
ARFLG,STAT

HLT
CLR

TIME

BNE
cMP
8LO
MOV
MOV
BR

177274

2%:

3s:

2%
TIME #4100
18
aRCSR,R2
¥CSR(R4),R3
1%

BIT
BNE

#NODAT ,aSWR
3s

BIC

W#RFLG,STAT

JSR

PC,TESTD

PC,CKBASE

JCKECK KMC SOFT ERROR COUNTERS

0016

MACY11
KMC11 ITEP OVERLAY
CZKMOA.P11
24-MAY-78 15:15
011566

011574
011576

032777
001405

011604
011610

31-MaY-78

30A(1052)

000020

177250

011610
012466

013404
4%:

16:08

E 2
PAGE 18

BIT
BEQ
MOV

#LOOP,aSWwR

$Ow!

JMP

PAGE
:

#4$ BACK
EOP

:t'tt"i.Qttfi"'tfi.tt'.t"""t.'.tt'tfi..'tt't.ttttttt*t*tfiititttttt*

ROUTINE USED IF 'ONE WAY OUT'' WAS SELECTED.

NOTE THAT WHEN IN THIS MODE HALF DUPLEX
MODE AVAILABLE.
4

IS THE ONLY

"ONE WAY OUT'' MEANS THAT ONLY THE TRANSMITTER IS
CNABLED. THE RECEIVER IS NEVER '‘TURNED ON.

:tt'tt'tfifi"fit?...t....t""'t'.t.!tttltttttttttfi'tttt"tttttt*tttttfi

011612
011614
011620
011624
011630
011632
011640
011642
011644
011650
011652
011656
011660
011664
011670
011676
011700
011706
011712

104416

004737
005037
032700
001013
023727
103771
011402
016403
104001

100000

011032

1%:

000100

000002

005037
000762
042700
004737
032777

011032

012737
000137
000737

011712
012466

001405

$OW0:

013410
011032

100000
016242
000020

KBDIN
JSR
CLR
BIT

BNE
v
BLO
MOV
MOV
HLT
CLR

2%:
177146

013404

B8R

TIME
. #100
1%
aRCSR,R2
#CSR(RL),R3
TIME

8IC
JSR
BIT
BEQ

#XFLG,STAT
PC,CKBASE
ggOOP.QSUR

JMP
BR

EOP
$0W0

MOV

3%:

PC,STARTX
TIME
#XFLG,STAT
2%

#3% ,BACK

;CKECK KMC SOFT ERROR COUNTERS

0017

KMC11 ITEP OVERLAY
MACY11
CZKMOA.P11
24-MAY-78 15:15

30A(1052)

31-MAY-78

16:08

PAGE 19

AR R AN ARANNARAARRAAARAAAR AN RN

ROUTINE USED IF

MNOTE

:
PAGE

RN RRRAANANRAARRANRARA
RN
AN
ARAANS

INTERNAL LOOP BACK'' WAS SELECTED.

THAT WHEN IN THIS MODE;

ONLY MODE AVAILABLE.

HALF DUPLEX IS THE

"'INTERNAL LOOP BACK'' MEANS THAT THE RECEIVER IS '‘TURNED ON''

AND A COMLPETE MESSAGE

IS RECEIVED.

IT IS; IF "END PASS'' IS DESIRED;

THEN THE TRANSMITTER IS ENABLED.

IS TRANSMITTED.;

DATA IS TO BE CHECKED

IT IS GIVEN.

AFTER THE WHOLE MESSAGE

THE CYCLE IS REPETED AS ABOVE.

:t.'ttfitt't'ttt*tfit.ttt*tt.ttttti'ttttttttttttfittittttttittttflttt*t't

011714
011716
011722
011726
011732
011734
011742
011744
011746
011752
011754
011760
011762
011770
011772
011776
012002

$ILB:

013500
011032
040000
011032

1%:

000100

000002

011032
000200

012626
040000
016242
000020
012030
012466
000400

177054

KBDIN
JSR
CLR
BIT
BNE
cw
BLO
MOV
MOV
HLT

2%:

PC,STARTR
TIME

#RFLG,STAT

23
TIME
. #4100

13
@RCSR,R2
¥CSR(R4).R3
TIME
1

#NODAT ,aSWR

PC,TESTD
#RFLG,STAT
PC,CKBASE
#LOOP,aSWR

3s:
177030

43
#4838 ,BACK
EOP

013404

#4600,

aSWR

011020
011022
011074

IRDA,
IXDA,
R3,
(R2)+,

R2
R3
XDA
(R3)+

000177

877,

-(R3)

177006

R3
nzz,

000177

011032
013410
100000

011032

7%:

8LO

000002

HLT
CLR

011032
100000

011714

TIME
PC,STARTX
H#XFLG,STAT

5%:
000100

6%:

(R3)+

BIC
JMP

63
TIME,#100
5%
aRCSR,R2

¥CSR(R4).R3
TIME

#XFLG,STAT

$ILB

;CKECK KMC SOFT ERROR COUNTERS

;USE EXTERNAL DATA?
:BR IF NO
:SET POINTER
:SET POINTER
sSETUP XMIT DATA ADDR
;sMOVE INPUT TO OUTPUT
;LOOP IF NOT ZERO CHAR
s INSERT A FILL CHAR
;BUMP ADDRESS
JINSERT ANOTHER FILL
s INSERT ZERO CHAR

0018

KMC11 ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
24-MAY~78 15:15
908
909
910
911
912
913
914
95
916
97
918
919

31-MAY-78

16:08

6 2
PAGE 20

PAGE
:

"ittttt'**tQQttfiittt.ltt'*tttttttl’tttttttttttttttittttifi'fittfit'*tttt'

H
:
:

ROUTINE USED IF 'EXTERNAL LOOP BACK'' WAS SELECTED.
EITHER HALF OR FULL DUPLEX MAY BE SELECTED IN THIS MODE.

:
:
:
:

BE GIVEN IF DESIRED.
THEN THE CYCLE IS REPEATED
AS ABOVE.
IF RUNNING IN FULL DUPLEX THE PROGRAM
WAITS FOR BOTH THE RECEIVER AND TRANSMITTER TO
FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER.

$XLB:

KBDIN
BIT
BNE
BIT
BEQ
JSR
BIT
BEQ
TST
BEQ
BIT
BEQ
MoV
JSR
CLR
BIT
BNE
BIT
BNE
P
BLO
MOV
MoV
HLT
CLR
B8R
8IT
BNE
BIT
BNE
BIC
JSR
BR
BIT
BNE
BIT
BEQ
BIT
BNE
cMP
BLO
MOV
MOV

:
H
H

"EXTERNAL LOOP BACK'' MEANS THAT THE TRANSMITTER IS FIRST

TURNED ON (IF HALF DUPLEX) AND THE WHOLE MESSAGE IS TRANSMITTED;
THEN THE RECEIVER IS ENABLED. AFTER THE WHOLE MESSAGE IS RECEIVED
DATA WILL THEN BE CHECKED IF DESIRED AND END PASS WILL

:t**t*itti'*ttt.'fiiittt*tttttttfi.tittttt*'tfi*ttttttttittttt*ttttttttt

012150
012152
012160
012162
012170
012172
012176
012204
012206
012212
012214
012220
012222
012230
012234
012240
012244
012246
012252
012254
012262
012264
012266
012272
012274
012300
012302
012310
012312
012320
012322
012326
012332
012334
012342
012344
012352
012354
012360
012362
012370
012372
012374

104416
032737
001004
032737
001417
004737
032737
001411
005737
001403
032700
001774
012737
004737
005037
032700
001016
032700
001030
023727
103766
011402
016403
104001
005037
000757
032737
001356
032737
001352
042700
004737
000742
032737
001004
032737
001420
032700
001013
023727
103761
011402
016403

000002

011014

000001

011014

013500
0000064

011014

9%:

017020
040000
177777
013410
011032
100000

017020

2%:

040000

011032

11$:
18:

7$:

000100

000002
011032
000002

011014

000001

011014

3$:

100000
013500
000002

011014

000001

011014

100000
011032
000002

4$:

108:
000100

#B1T1,PARAM2
9%
#FULL .DUPLEX ,PARAM?
13
PC,STARTR
#B1T2,PARAM2
13
TEMP2
1%
WRFLG,STAT
.~6
#-1,TEMP2
PC,STARTX
TIME
#XFLG,STAT
3$
#RFLG,STAT
43
TIME #4100
2%
aRCSR,R2
XCSR(R4)
,R3
1
TIME
2%
#81T1,PARAM2
7$
#FULL .DUPLEX ,PARAM?
78
#XFLG,STAT
PC,STARTR
2%
#81T1,PARAM2
108
#FULL .DUPLEX ,PARAM2
8%
W#XFLG,STAT
63
TIME 4100
43
aRCSR.R?
XCSR(R4)
,R3

; SECONDARY MODE?
;BR IF YES

s SECONDARY STATION?

;BR IF NO
;FIRST TIME HERE?
;BR IF YES
;WAIT FOR RECEIVE BEFORE
s TRANSMITTING
JSET FIRST TIME FLAG

; SECONDARY MODE?
;BR IF YES

: SECONDARY MODE?
JBR IF YES

0019

KMC11 ITEP OVERLAY

CZKMOA.P11
964
965
966
967
968
969
970
971
972
973
974
975
976
977

012400
0126402
012406
012410
012414
012420

012424
012432
012434
012440
012444
012452
012454
012462

MACY11 30A(1052)

24-MAY-78 15:15
104001
005037
000752
042700
042700
005037

032777
001002
004737
004737
032777
001636
012737
000137

31-MAY-78

011032
100000
040000
011032
000200
012626
016242

6$:
8$:
176412

000020

176372

012150
012666

013404

5%:

HLT
CLR
BR
BIC
BIC
CLR

BIT
BNE
JSR
JSR
BIT
BEQ
MOV
JMP

16:08

PAGE 21

PAGE:

1
TIME
43
#XFLG,STAT
W#RFLG,STAT
TIME

#NODAT ,3SWR
5%
PC,TESTD
PC,CKBASE
#LOOP,aSWR
$XLB
#$XLB,BACK
EOP

sCHECK KMC SOFT ERROR COUNTERS

0020

KMC11 ITEP OVERLAY
MACY11
CZKMOA P11
24-MAY-78 15:15
978
979
980

981
982
983
984
985

;
H

PAGE 22

PAGE:

ROUTINE TO RETLRN
TO MONITOR FOR

END PASS.

:tttttttttttttttittfittt*ttttt

012466
012466
012472
012500

EOP:

104414

012506
012514
012522
012526
012532
012536
012542
012546
012552

016437
042737
042764
012766
010037
010137
010237
010337
010437
010537
000207

012554
012554
012560
012564
012570
012574
012600
012604
012612
012620
012624

013700
013701
013702
013703
013704
013705
012737
053764
000177
000000

012624
012624
000002
000002

STPS,PRTY?
MOV
XCSR(R4) ,QTPIE
8IC
#*C<TIE>,QTPIE
8IC
#TIE XCSR(R4)

;SET PS PRIORITY TO 7
SAVE TX CSR
CLEAR ALL BUT TX IE.
JCLEAR TX IE (EVEN IF I7T WASN'T SET)

MOV
MOV

:SAVE REGISTER 0
;SAVE REGISTER 1

MOV

N#ENTER,2(SP)

MOV

R2,SAVR?2

;SAVE REGISTER 2

M3V

R4, SAVRS

;SAVE REGISTER 4

RTS

JRETURN TO CONTROL PROGRAM

MOV
013400

013366
013370
013372
013374
013376
013400

177777
012624
000560

MOV
ENTER:

QTPIE:

R3,SAVR3

JSET FOR RETURN IF SW 14=1

;SAVE REGISTER 3

R5,SAVRS

sSAVE REGISTER 5

SAVRO,RO
SAVR1,R1

;RESTORE RO
JRESTORE R1

MOV
MOV
MOV

SAVR3,R3
SAVR4 R4
SAVRS RS

JRESTORE R3
JRESTORE R4
;RESTORE RS

QTPIE XCSR(R&4)
aBACK

;IF ORGINALLY SET,

MOV

013402
000002

RO, SAVRO
R1.SAVR1

MOV
MOV

MOV

BIS
JMP
000000

SAVR?2 ,R2

;RESTORE R?

#-1_,DELAY

SET TX IE

SRRARRAAARRRRRANARRRARRARR
AN RARARAA

:
;

SUBROUTINE TO CHECK

RECEIVER DATA.

SRR RARARRNRRAAAARARARARAC
AR RN RN

o
G
e G

16:08

;ttttttttttttt'tttttttttttttt

Gaey

e Qo G

O~NOWVNEBWN=O

N
N

ololelelelolelele]

1009

31-MAY-78

30A(1052)

012626
012632
012634
012642
012644
012650
012654

013746
001413
032777
001007

011056

020000

176202

176154

013107
011022

011040

000002

012720

MOV
BEQ

=~(SP)

#BIT13,aSWR

TST

=(SP)

TYPE

TSTDAT: MOV

SCAN4:

ERDBR,
TSTDAT

BIT

BNE
TYPE
JSR

013026

011020

012716

TESTD:

MOV
(MPB
8EQ
CMP8
BEQ
cMP8
BNE
MOV

;WAS THERE A RECEIVE ERROR?
:BR IF NO

s INHIBIT PRINTOUTS?

TSTDAT
.MSGO
RO,aB2016

;BR_IF YES
:<15><12>THERE WAS A RECEIVE ERROR. RBUF=
sPRINT CONTENTS OF RBUF

.MSG1

;<1512

IXDA,

IRDA,
R2
(R1)+,
(R2)+
SCANG
TX.TERM,-(R1)
TESTDX
#002,-(R2)
2%
R2.1$

;SETUP XMIT DATA ADDR

;SETUP RCV DATA ADDR
DATA OK ?
sBR IF OK
;1S IT END OF DATA
;BR IF YES

0021

KMC11 ITEP OVERLAY
Tg( Y1 1
:15
CZKMOA P
24-MAY-78
1034

012720
012722
012724
012724
012726

30A(1052)

1%:

000000
000437

2%:

105712

001435

122721
001756
005301
122722
001752

000177

013112
011020
013137
011022

176066

RDAX:

013012

DERR:

PN PN PN PN PN PN

S FEFRFEEII3222

b
b
d
ond cd od
—

——d ——d

013022
013024

013366
013370
013372
013374

SCANS:

012774

013014
013016
013020

TESTDX:

044124
000012
042522
042012
046120
053412
046120

16:08

.WORD
BR
TST8

BEQ
CMP8
BEQ
DEC

000177

020000

013026
013107
013112
013137
013162
01323
013314

31-MAY-78

CMP8
BEQ

NOP

BIT
BNE

TYPE
MOV
TYPE

TYPE
MoV
TYPE
IXDA

MOVB
MOvVB
HLT+7
TST
RTS

J_ ¢
PAGE 23

:
PAGE

TESTDX

(R2)

TESTDX
877,

SCAN4

R1
n77,
SCANS

(R1)+

(R2)+

#BIT13,aSWR
DERR

.MSG2

IRDA,

.MSG3

IXDA,

RDAX

;DATA ERROR
;INHIBIT PRINTOUTS
:BR IF YES

:<15><12>RECEIVED DATA = <15><12>

;SETUP DATA ADRESS

;PRINT RECEIVED DATA

JRECEIVED DATA ADDR.
.+10

:<15><12>DATA SHOULD BE<15><12>

;SETUP ADDR.
<PRINT GOOD DATA

(R1) ,R3 ;SETUP XMIT DATA
-(R2) ,R2
;SETUP RCV DATA
(SP)+

;DATA ERROR HALT
;POP STACK

JRETURN FROM SUB/ROUT

051105

MSGO:

ASCIZ

042503
052101
040505
042510
040505

MSG2:
MSG3:

MSG4:

LASCIZ
.ASCI2
LASCII <15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER)./

MSGS:
.EVEN
SAVRO:
SAVR1:
SAVR?:
SAVR3:
SAVR4:
SAVRS:
DELAY:
BACK:
STOP:

O
0
O
O
0
O
O
0
0

MSG1:

ASCI2Z

<15><12>/THERE WAS A RECEIVER ERROR.
<15><12>
<15><12>/RECEIVED DATA = /<15><12>
<15><12>/DATA SHOULD BE/<15><12>

(SEL 2)

LASCIZ <15><12>/WHEN CONNECTION COMPLETE; HIT CONTINUE SWITCH./<15><12>
LASCIZ <15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER)./<15><12>

0022

KMC11

ITEP OVERLAY

CZKMOA.P11

MACY11 30A(1052)

31-MAY-78

24-MAY-78 15:15

1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085

16:08

PAGE 24

PAGE:

;t*i*ttitt.'tttttttttt*tttttitttttttttittttttt*t*tt'*ttii'titt'i

TRANSMIT INIT ROUTINE

:tttttfittttt*tttttttttttttttttttttttttttl*tttfittitiitttttttti*ti

013406

STARTX:

013162
013406
017014
017014
017016
000025
000001

1%:

017020
017016

017020

TST

STOP

;FIRST TIME HERE?

thg

JMSG4

;TYPE CONNECT MESS

oM
TST
BEQ
CLR
CLR
MOV
ADD
BNE
DEC

STOP
BASEFG

#25,TEMP?
#1,TEMPI
.~6
TEMP?

;SET FIRST TIME FLAG
JBASE AND CNTL IN ALL DONE?
:BR IF NO
JCLEAR FLAG
:GET SET TO DELAY
H
¢ INC DELAY
.
-DEC DELAY COUNTER

RTS

;RETURN

BNE

BNE
BISB

000140

;BR IF NOT

BASEFG
TEMP1

.~14
#1460, (R4)

;BR IF NOT DONE
;ASK FOR XMIT BUFFER

;titttttt.ttttttfififi*ttittt*tttttt'fit't*tttttfitt.tttttttitt'ttttfi

RECEIVE INIT ROUTINE

STARTR:

TST

STOP

cFIRST TIME HERE?

TYPE
CoM
TST
BNE
TST
BEQ
CLR

.MSG5
STOP
RFLAG
2%
BASEFG
1$
BASEFG

cTYPE CONNECT MESS
.SET FIRST TIME FLAG
sHAS AN REC BUFFER ALREADY BEEN GIVEN
;BR IF YES
sBASE AND CNTL IN ALL DONE?
;B8R _IF NO
sCLEAR FLAG

CLR

RFLAG

:CLEAR FLAG

SRR ARRRARRARARRRRNRARAAR
RN AN ARANANRRRARRNRANNNARRARARRRRANAARR AN SRR

013500

013546

013406

104400

013314
013406
017024

005137
005737
001007
005737
001772
005037
152714

005037
000207

1$:

017014
017014
000144
017024

2s:

b
—h b

e
e

b
b

e
b

d
b

b
b

D wd
b b

b
d

e
b

D cnd
b ed

b
d =D b
bk =D e

b
ad

b —d
b
b

b
D

d
b

b
b

N
YY Y
o [»] [@]e]
OflnbfluhhflaLOGrflownbfldhfiflC£38LMShnihdh)

1101

013504
013506
013512
013516
013522
013524
013530
013532
013536
013542

005737

BNE

81s8
RTS

#1446, (RG)

cASK FOR REC BUFFER

SANRERANAA AR AR RARNRAARAAAC
[

¢BR IF NOT

RETURN
AR

AN ANRAARRNANANANANRAANANRAAANARACANY

INPUT SERVICE ROUTINE

SNRAARAREAARANRANARANAAARRAEANAAAANARRAANARAAANRRAAANARRAAANGANNRS

013550
01355¢
013556

032714
001426
032714
001403
004737
000002
012764
005064
005737
001403

000002

XISR:

BIT
BEQ

#8IT1,(R4)
1%

;BASE REQUEST?
;BR IF NO

BEQ
JSR

9s
PC,4$

:BR IF NO
;YES, CLEAR RQl

BIT

000004

014024

017046
000006
017012

000004

010000
014024
000141

000006

9s:

8$:

RTI

MOV
CLR
TST
8EQ
MOV
JSR
81s8
RTI

#BIT2, (RG)

#BASE 4 (R4)
6(R4)
RE SUME
8%
#BIT12,6(R4)
PC,4$
#141,(R4)

;1S 1T REALLY A SHUT DOWN?
sAND RETURN

;LOAD BASE ADDRESS
;CLEAR SEL 6
JRESUME FLAG SET?
;BR IF NOT
sOTHERWISE SET RESUME BIT
:CLEAR RQ!
sASK FOR CNTL !
sRETURN

0023

KMC11 ITEP OVERLAY
MACY11
CZKMOA. P11
24-MAY~78 15:15

032714
001430
032737

)

d
D

D i
)

d
D
S

D e

011014

000004

011014

006000

000006

002000
014024
177777

000006

017014

78:
6$:

D e

)

000004
000006
127777

011022
011062
014024
177777

BIT
BEQ

#BIT2, (R4)
33

¢RECEIVE BUFFER REQUEST?
;B8R _IF NO

MOYV

RXWC ,6(R4)

:LOAD REC BYTE COUNT

RTI

#RFLG,STAT
IRDA,4 (R4)

PC,4$
#-1,BASEFG

BICB

#40, (RG)

aMl

.=2

D e

; CONT INUE
:SELECT HALF DUPLEX
;CLEAR Ral
:SET BASE LOADED FLAG

4s:

) e

)
D

:
PAGE

63
#81710,6(R4)
PC,4$
#-1,BASEFG

MOV
MOV
MOV
JSR
MOV
RTI

TS18

RTS

W#XFLG,STAT

#-1_XFLAG
IXDA,4(R4)
TXWC,6(R4)
PC,4$
#-1,BASEFG
(R&)

SRETURN

cCLEAR RECEIVE FLAG BIT
:LAOD REC BUFFER ADDRESS

. CLEAR RQI
:SET FLAG
cRETURN

;sCLEAR XMIT FLAG BIT

JSET XMIT FLAG(FOR TIMEOUT ERROR)
cLOAD XMIT BUFFER ADDRESS
LOAD XMIT BYTE COUNT
:CLEAR RQI
;SET FLAG
JRETURN

;CLEAR RQI

;WAIT FOR RDI

TO DROP

sBR IF STILL SET
JRETURN

"t't'fitttQttit.tt*ttfi'ttttttttt'ttltt.fiitittfittitifi.ittttttttitt

#BITO, (R&)
CNTL I REQUEST?
2%
BR IF NO
#FULL.DUPLEX, PARAMZ FULL OR HALF?
5%
F HALF
6(R4)
$SELECT FULL DUPLEX
63
- CONTINUE
#8172 ,PARAM?
:SECONDARY STATION?
73
;B8R IF NO
#8IT10!81T11,6(R4);SET SEC MODE AND HALF DUPLEX

B8IC

017014

PAGE 25

OUTPUT SERVICE ROUTINE

RISR:

BIT
BEQ

"'.'i*ttttt't.ttttttt!’Qtt"t"tfit.*.t*fitfifi*fi*fi't!ttktt*ltttfitttfit

)

16:08

3s:

017022
000004
000006

BR
MOV
JSR
MOV

JSR
MOV

017014

000040

)

b e

) e

)

) e

100000
177777

BIT
BEQ
BIT
BEQ
CLR
BR
BIT
BEQ
MOV

BIC
MOV

) e e

5%:

28:

)

D e

) e

1$:

000001

21-MAY~78

000006

oo
NNNNNNNNNOOOQROOO OO NNWNWNVNWNNWNWNWNME
DS
WWWWWNNWWNWWNWNNND
%dgzmdoubum—aoogw&mgwg-agooowowu\um-—-ooooVOmbwm—-oogwgmgwmago

1127
1128

30A(1052)

TST
BEQ
cwP
BNE
Bi(B
MOV

000006

000207
177777

000002
017014

000004

000006

5%:

000144
011054
011056

3s:

—

b ed nd

b ed wmd =D e

b i cmd end cnd

)

001000

) ed e

000002

017012

b ad i and e

) e

000001

014144

000004
000006
016436
011054
016034

#B170,2(R4)
13

#-1,BASEFG

JRESUME FLAG SET?
:BR IF NOT
:1S PROC. ERROR BIT SET?
;BR IF NOT
sCLEAR DONE
+SET BASEFG

e
BNE
géSB

#4 ,6(RG)
38
z144.(R4)

;OVERUN ERROR?
:BR IF NO
sREQUEUE XMIT BUFFER

MOV
MOV

4(R4) ,ERCSR
6(R4) ,ERDBR

;SAVE SELS4
:SAVE SEL6 (ERROR BITS)

MOV

ERCSR,-(SP)

sPUSH SEL&4 ON STACK FOR TYPEOUT

RTI

TYPE

JSR

RE SUME
5%
#BIT9,6(R4)
5%
#207,2(R4)

:ERROR?
:BR IF NO

KMCER

RO,$820CT

sRETURN

;ERROR MESSAGE

STYPE JI OUT

0024

3SSSSRS 3 SEBLRRRIS28TB FRERE
—
N

o
b

WN—=O

b =
b =D
b ed =D
=

VNN

b
b
d
D —d
b
b
b
b
b
D
d
ed
d

b ek

b —d

ENTNTNTNT
NI ST 1,8 1,8 1,8

SRRRRED ny

d e

N—)—‘—l—l—l—‘—‘—l—d—.—l—.—h—i—l—l -—

D -—

KMC11 ITEP OVERLAY
TQC Y1 1
:15
CZKMOA. P11
24-MAY-78

014150
014151

014152
014156

014162
014166
016167
014170
014174
014176
014200
014204
014212
014214
014222
014224
014230

006
001
104400
013746
004037
006
001
005777
100001
000000

005037

142764
000002

011056
000207

000002

48:

000004

000002

1%:

000207

16:08

.BYTE
.BYTE
TYPE
MOV
JSR
.BYTE

174650

100000
017022

014250
014256

31-MAY-78

016632
011056
016034

040000
000207

014236
014240
014244

30A(1052)

000002
2s:
000002

TST
BPL
HALT
CLR
8I(CB
RTI
BIT
BEQ
BIS
B8I(B
RTI

BIS

CLR
B8I(8B
RTI

PAGE 26

:
PAGE

6
,SPACE3

ERDBR,~(SP)
ZO.SBZOCT
1
aSWR

;INSERT 3 SPACES
;SPUSH SEL6 ON STACK FOR TYPEOUT
;TYPE IT OUT

;CHECK BIT 15
JSKIP HALT IF = 0
JHALT IF SWR15 =1
JCLR ERDBR LOCATION

ERDBR
#207 ,2(R4)

#BIT2,2(R4)
2%
#RFLG,STAT

#207,2(R4)

#XFLG,STAI
XFLAG
#207,2(R4)

;CLEAR DONE
JRETURN
JREC DONE?
;BR IF NO
JSET REC DONE FLAG
;CLEAR DONE
;RETURN
JSET XMIT DONE FLAG
;CLEAR XFLAG
cCLEAR DONE
JRETURN

:fitttttttttt*t**tfittttt*t*ttttttfit'tttttfitttfitt*tfi*tt*tttfitttttt

ENTER HERE IF BOOT MODE WAS SELECTED

SR ARRARA R AR AR ARAAARAARAAAA

014260

014266

014270
014276
014300
014306
014310
014314

032737
001413
032737
001522
032737
001540

003000

011012

002000

011012

001000

011012

B800T:

016636

BIT

BEQ
8IT
8EQ
BIT
8EQ
TYPE
BR

AR RRARANARRRARARARANARRRARARARANR
AN RN AR

#BIT10!81T9,PARAMT
; DETERMINE WHICH BOOT MODE
;BR IF AUTO MODE, ORIGINATING STATION
#81T710,PARAM1

AUTORG

AUTB0O

¢BR IF AUTO MODE, BOOT STATION

MANORG

sBR IF MANUAL MODE, ORIGINATING STATION
sMANUAL MODE, BOOT STATION

#8179 ,PARAMI

.BOOMSG

;WAIT FOR MANUAL B0OT

SRR ARRRANRRARRANARRRAANRA
RN AN ARANRARARRARNRRARRRAANRARRAAANARRAARANS

AUTOMATIC MODE ORIGINATING STATION

SRR RRR AN R

015607
011012
011012
011012
011012
017014

014316
014322
014326
014332
014336

017014
002400
000141
017014

052714

017014
017024
000144

AUTORG: MOV

AAANANARANRR AN R AN AR ARRANARNARARANNRNRRAAARARNRRAAR
RN KA AR

#MOP1+1
,R1
, (R1) +
PARAMY
PARAM1, (R1) +
PARAMY
, (R1) +
PARAM1, (R1) +
BASEFG

AUTORG

BASEF
G
#2400,SEL6

017034
18:

TST

#141,(R6)
BASEFG
1%

G
BASEF

RFLAG
#144,(RG)

;LOAD MOP1 MESSAGE WITH
;PASSWORD FOUR TIMES

;1S BASE REQUEST DONE?
;BR IF NO
;CLEAR LOCK FLAG

JMAINT. MODE BIT(MOP)
;ASK FOR CNTL

;1S CNTL IN DONE?
;BR IF NO

;CLEAR LOCK FLAG
;CLEAR RECEIVE FLAG
;ASK FOR REC BA/CC

0025

KMC11 ITEP OVERLAY
CZKMOA P11
24-MAY-78

1239
1240
1261
1242
1243

1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276

1277
1278

1279
1280
1281
1282
1283

014410
014414
014416
014422
014426
014434
014442
014446
014456
014460

005737
001775
005037
005037
012737
012737
052714
012737

014464
014466

?2C¥;1 30A(1052)
017014
017014
017022
015606
000005
000140
000005
013402
017024

31-MAY-78
2$:

017032

017034

017016
38:

013402

014472
014476
014500
014502
014506
014510

017016

TST
BEQ
CLR
CLR
MOV
MOV
BIS
MOV
CLR
TST
BNE
DEC
BNE
DEC
BNE
TST
BNE

017022

HALT

16:08

N_2

PAGE 27

BASEFG
2%
BASEFG
XFLAG
#MOP1,SELS
#5,SEL6
#140, (R4)
#5,TEMPT
DELAY
RFLAG
43
DELAY
3%
TEMP1
3%
XFLAG
2%

PAGE :
¢ 1S REQUEST DONE?
:BR IF NO
;CLEAR LOCK FLAG
sCLEAR XMIT FLAG
:SET FOR KMC LOAD
sSET FOR KMC LOAD
¢ASK FOR XMIT BA/CC
sSET UP DELAY COUNT
JRECEIVED ANYTHING?
;BR IF YES
;DEC DELAY COUNTER
sWAIT TO RECEIVE
¢DEC SECOND COUNT
:BR IF NOT DONE DELAY
JWAS XMIT COMPLETED ?
;BR IF YES, SEND MOP1 AGAIN

;ERROR, MOP1 WAS NEVER SENT OUT

;CHECK TO SEE IF RECEIVED MESSAGE IS MOP?
014512

015614
011020

014516

014522
014524
014526
014530
014532
014536
014540

4s:
5%:

000004

015512

MOV
MOV
CLR
(MP8
BNE
INC
cMP
BNE

JSR

#MOP2 ,R1
IRDA ,R2
R3
(R1)+,(R2)+
1$
R3
#4 R3
5%

PC.MP3

;STARTING ADDRESS OF MOP?2
;RECEJVE BUFFER ADDRESS
sCLEAR COUNT
: COMPARE DATA
;IF _NOT MOP2 TRY AGAIN
;DATA 0K, BUMP COUNTER
;DONE YET?
;B8R IF NO

;1T WAS MOP2, SO SEND MOP3

.'t*tttttttttittt*t*fitt**ittt't*fitttttti**fiti*t*fiit**t.t*ttfittt*fi

AUTOMATIC MODE B0OOT STATION

SRR ARRRARAR AN AN RN AN RN A RN A RN AARRAARANRAARRAA AR

014544
014550
014552
014556
014562
014566
014572
014576
014600
014604
014606

017014

AUTBOO:

017014
017030
017024

000144

017030

1$:

017024

2s%:

AR AR

TST

BASEF G

sBASE COMPLETED?

CLR
CLR
CLR

BASEFG
MFLAG
RFLAG

;CLEAR LOCK FLAG
;CLEAR MAINT FLAG
;CLEAR REC FLAG

TST

MFLAG

;ARE WE IN MAINT MODE?

TST

RFLAG

;DID WE RECEIVE ANYTHING?

BEQ

8IS
BNE
BNE

AUTB00

#1464, (R4)

AUTBOO
AUTB00

RRANS

;BR_IF NO

sASK FOR REC BA/CC

;BR IF YES

sYES REQUEUE RECEIVE BUFFER

;KEEP ON TRUCKIN'

SRR RA AR AR AR RAAARRAARRAARA AR NRARARARNKAARAAAARNARRARRNANRNARANARRRARAAR

MANUAL MODE ORGINATING STATION

:ttttfit*tttfittfifitttt'ttt'ttttfittttt**t*fitl’ttfifiit’tttittittttfi!fit

014610
014614
014620
014624
014626

005037
005037
005737
001775
005037

017030
017026
017014

017014

MANORG: CLR
CLR
7$:
TST
BEQ

CLR

MFLAG
SFLAG
BASEFG
78

BASEFG

;CLEAR MAINT FLAG
;CLEAR DDCMP START RECEIVED ERROR FLAG
;BASE LOADED?
;B8R IF NO

‘RESET FLAG

0026

g%NNNNNN

b
d
b
D
b
b
d
d
b
b
d
d
G —d
G
S
U
N
[

NN NN NN NN NN WNWNNNWNN
N NN
N AIN) = b —d b d b —d b b
CO~NON\WNES
W N =S OV
NN
WN—=O

D e

D o

) o

d o

KMC11 ITEP OVERLAY
MACY11
CZKMOA.P11
24-MAY-78 15:15

014632
014636
014642
014646

016650
014654
014660
014664
014670
014672
014676
014700

014702
014706
014712
014720
014724
014730
014732
014736

014742
014746
014752
014754
014760
014764
014770
014774
014776
015002
015004
015006
015012
015020
015024
015030
015032
015036
015044

052714
005737
001437
012714
005714
100376
005037
005037
052764
052714
005737
001775
005037
005037
052714
005737
001775
005037
005037
052714
005737
001733
012714
005714
100376
005037
052764
052714
005737
001775
005037
012737
052714
005737
001775
005037
005037
052714
005737
001775

017034
000141
017014

31-MAY-78

8$:

17014

017024
000144
017026

1%:

040000
017026
017014
000100
000143
017014

2%:

000002
3$:

017014
017034
000141
017014

0%:

4%:

040000

017014
002400
000141
017014
017014
017024
000144
017024

CLR
CLR
8IS
TST
BEQ
MOV
TST
BPL
CLR
CLR
BIS

BIS

TST
BEQ
CLR

017014
017024
000144
017030

017014
000100
000143
017014

CLR
BIS
TST
BEQ

10%:

CLR
BIS

TST
BEQ
CLR
CLR
BIS
TST
BEQ
MOV
TST

B8PL

CLR

000002
118:

017034
12%:

5%:

BIS
BIS

16:08

SEL6
#1641, (R4)
BASEFG
8%

:
PAGE

JLOAD SELS FOR FULL=-DUPLEX
JASK FOR CNTLI
;CNTLI DONE?
¢BR IF NOT

;RESET FLAG

BASEFG
3$
BASEFG
SEL6
#141, (R4)
BASEFG
9%

;BASE DONE?
;B8R IF NO
;CLEAR FLAG
JSET UP FOR FULL-DUPLEX

#143, (R4)

BASEFG
RFLAG

#1644, (RG)

MFLAG

1%
#8IT14,(R&)
(R4)

108

BASEFG

#100,2(R4)
#1463, (R4)

BASEFG

CLR

BASEFG

TST
BEQ
CLR
CLR
8IS
TST
BEQ

BASEFG
12$
BASEFG
RFLAG

MOV
BIS

BASEFG
RFELAG
#1446, (R4)
SFLAG
43
#BIT14,(R4)
(RG)
2%
SFLAG
BASEFG
#100,2(R4)

TST

BEQ

PAGE 28

118

#2400,SEL6
#141, (R4)

#144, (R4)
RFLAG
5%

;CLEAR RECEIVE FLAG
;ASK FOR REC BA/C(C

;DDCMP START ERROR?
:BR IF NO

JINITIALIZE KMC
JRUN SET?
:BR IF NO
;CLEAR FLAG

;CLEAR LOCK FLAG

JSET INT ENABLE

<ASK FOrR BASE

cASK FOR CNTLI

JCNTLI FINISHED?
;BR IF NOT

;CLEAR FLAG
cCLEAR RECEIVER FLAG
cASK FOR REC BA/CC
JARE WE IN MAINT MODE?
:BR IF NO
JINITIALIZE KMC
;RUN SET?

;BR IF NO

;CLEAR LOCK FLAG
;SET INT ENABLE
;ASK FOR BASE
;BASE DONE?

:BR IF NO

.CLEAR FLAG

JMAINT. MODE (MOP)
;ASK FOR CNTLI
sCNTLI FINISHED?
;BR IF NOT
;CLEAR FLAG
;CLEAR RECEIVER FLAG
;ASK FOR REC BA/CC

JHAVE WE RECEIVED ANYTHING?
;BR IF NO

d
b
b
b
b

b b b —d

012701

Ghury
Qhur i

(elelelelelele]

;CHECK TO SEE IF RECEIVED MESSAGE IS MOP2

pour Qi

NO NS W=

SRR

1340

005037
052714
005737
001775
005037
005037

30A(1052)

015614
011020
6%:

022703

000004

MOV
MOV
C.R
(MP8
BNE
INC
MP

#MOP2 ,R1
IRDA ,R2
R3
(R1)+,(R2)+
11$
R3
#4,R3

;MOP2 STARTING ADDRESS
;RECEVE BUFFER ADDRESS
sCLEAR COUNT
: COMPARE DATA

1T ISN'T MOP2, TRY AGAIN
;DATA 0K, BUMP COUNT

;DONE YET?

0027

KMC11 ITEP OVERLAY
MAcyil
CZKMOA.P11
24-MAY-78 15:15

1350

015124
015126

001372
004737

30A(1052)

31-MAY-78

16:08

BNE

JSR

015512

PAGE 29

PC,MP3

PAGE:
<BR IF NO

;1T WAS MOP2, SO SEND OUT MOP3

;tttt*tttt*ttfititt*t*ttt"t't*ttttttt*tttttt*ttttt*ttt*flt**itttfi

INPUT INTERRUPT SERVICE ROUTINE (BOOT MODE)

I1I5R:

BIT

#MIT1,(R4)

;1S 1T A BASE REQUEST?

CLR

6(R4)
PC,4$
#-1,BASEFG

;CLEAR SEL6
;CLEAR RQI
:SET FLAG

&
3%
A
$a 33
e
3@\!0‘%59"\)—‘00
28 O gERERELS T

015132
015136

015140
015146

015152
015156
015164
015166

015172
015174
015202
015206
015214
015216
015222

015224
015232
015240
015244
015252
015254
015262
015270
015274
015302

015304
015310

032714
001413

000002

017046
000006
015304
177777

000004

BEQ
MOV

017014

JSR
MOV
1%:

000001

017034
015304

177777

000006

017014

2%:

000004
011020
000010
015304
1772777

000004
000006

017032
017034
015304
177777

000004
000006

017014

3s:

#8170, (R4)
2%
SEL6,6(R4)
PC,48
#-1,BASEFG

MOV
MOV
JSR
MOV
RT1I

IRDA,4 (R4)
#10,6(R4)
PC,4$

8IT
BEQ

MOV
MOV
JSR

4%:

000040

RTI

015312
015314

13
#BASE ,4 (R4)

8IT
8EQ
MOV
JSR
Mov
RTI

MOV

017014

RT1I
BI(B
T7ST8B
BMI
RTS

) wd

)

b —d —

d and

b aed

)

) odd

)

d e

:lwtt'tt*ttttt.***fi*ttttttttt*tttttttt**fittttttttt*ifittttttttttt

#8IT2,(R&)
3s

#-1,BASEFG

SEL4,4(R4G)
SEL6.,6(R&G)

PC,4$

#-1 _,BASEFG
#40, (R4)

(R4)

:NO
JYES, LOAD BASE ADDRESS

;RETURN

;IS IT CNTL IN?
BR IF NO
;LOAD SEL6 FOR CNTLI
;CLEAR RQI
“SET FLAG
JRETURN

;IS IT RECEIVE REQUEST?
NO
:YES, LOAD REC BA
.CC
.CLEAR RQJ
;SET FLAG
JRETURN

JXMIT REQUEST, LOAD XMIT BA
JXMIT CC
;CLEAR RQ!

:SET FLAG

JRETURN
;CLEAR RQI
sRDI CLEAR?
:NO
JRETURN

d e

:**ttttt*ttttifittttfit*tttt'tttfittQt'tt*tt"fii*tttfiikttfittttttt't
4

OUTPUT INTERRUPT SERVICE ROUTINE

(BOOT MODE)

OO0

—
—

:**ttttQtit*'*t*ttfit*t*ttttt*tfi***tttt'tti*fitt*tttttttttfittttfi'i

015316
015324

000001

000002

015326

000010

000006

015336

177777

017030

000200

000006

177777

017026

000004
000006
016436
011054
016034

011054
011056

015334

015344
015346
015354
015356
015364
015366
015374
015402
015406
015412

O0ISR:

BIT7

#B8170,2(R4)

ERROR’

#10,6(R4)

YES MAINT MODE ENTERED?

MOV
B8R
gxg

#-1_,MFLAG
5%
5500.6(R4)

YES SET MFLAG
*RETURN
DDCMP START RECEIVED ERROR?

MOV
bR

#-1,SFLAG
5%

YES SET SFLAG
:RETURN

,KMCER

;ERROR MESSAGE

8EQ
BNE

18:

2$:

MOV
MOV

TYPE

MOV
JSR

4 (R4) ,ERCSR
6(R4) ,ERDBR
ERCSR,=(SP)
RO,$820CT

:SAVE SEL4
sSAVE SEL6 (ERROR BITS)
sPUSH SEL4 ON STACK FOR TYPEOUT
;TYPE IT OUT

0028

KMC11 ITEP OVERLAY
T2C¥;1
CZKMOA.P11
24~-MAY-78
1407
1408
1409
1410
1411
1412
1413
1414

1415

1416

1617
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428

015416
015417
015420
015424
015430
015434
015435
015436
015442
015444
015446

015452
015454
015462
015464
015472
015474
015502

006
001
104400
013746
004037
006
001

005037

011056

000004

000002

177777

017024

177777
000207

017022
000002

1444
1445
1446
1447
1448
1449
1450
1451
1452

1453
1454
1455
1456
1457
1458
1459
1460
1461

1462

4%:
5§$:

PAGE 30

6
1

MoV
JSR
.BYTE
.BYTE
TST
BPL
HALT
CLR
BR
BIT
BEQ
MOV
BR
MOV
BI(B

ERDBR,~(SP)
RO,$820CT
6
1
aSwR
R

RTI

,SPACE3

ERDBR
5%
#B172,2(R4)
43
#-1,RFLAG
5%
#-1,XFLAG
#207,2(RG)

:
PAGE

;INSERT 3 SPACES

;SPUSH SEL6 ON STACK FOR TYPEOUT
sTYPE IT OUT
;CHECK BIT 15
;SKIP HALT IF = 0
JHALT IF
SWR15 = 1
:CLR ERDBR LOCATION
JRETURN

cRECEIVE DONE?

:BR IF NO
;SET RECEIVE FLAG
JRETURN
sXMIT DONE, SET XMIT FLAG
s CLEAR DONE
JRETURN

:*ttt*tfitfitQttQti*t*ttt"tittfiflfiifitit*t*titttttttttttt*ttttttttt

1429

1430
1431
1432
1433
1634
1435
1436
1437
1438
1439
1440
1441
1442
1443

3%:

16:08

.BYTE
.BYTE

TYPE

011056
016034
173402

015510

31-Mavy-78

016632

005777
100001
000000

30A(1052)

SUBROUTINE TO SEND MOP3 MESSAGE

MP3:

TST
BEQ
CLR
CLR

"tttttttitfitttfiti.t'tfifit"ti*!tflttitt*fit*t*fitfittt*fiflttfitt*'t*ti*

015512
015516
015520
015524
015530
015536
015544
015550
015554
015560
015562
015566
015570

017014

017014
017022

015620
000154
000140

017032
017034

013402
017022

MOV
MOV
BIS

1$:

013402
016705

2%:

011106

CLR
TST
BNE
DEC
BNE
HALT
TYPE

TST
HALT

BASEFG
MP3
BASEFG
XFLAG

W#MOP3, SEL4
DELAY
XFLAG
2%
DELAY
1%

.ORGOK
(SP)+

JMP

START

.BYTE

6,0,0,0,0

000
000

000

MOP1:

015614
015617
015620
015623

014

001

MOPZ:

.BYTE

10,12..1.0

000

006

MOP3:

.BYTE

0,0,6,0,6.0

015626
015632
015634
015640
015644

0Cé6

005037
00000
012706
012701
010700

000006
001000
177560

000

OK TO REQUEST
NO
LOCK FLAG
XMIT FLAG

.MOP3 ADDRESS

#MOP3ED-MOP3,SEL6 ;MOP3 COUNT
#1460, (R4)
;ASK FOR XMIT BA/(C

015606
015611

.EVEN

;1S IT
;BR IF
;CLEAR
;CLEAR

:START DELAY COUNT
JXMIT DONE?
:BR IF YES
;DEC DELAY COUNT
;B8R IF NO DONE
;ERROR, MOF3 SEND NOT DONE
;0K MOP3 SEND DONE

;POP STACK (ENTERED BY JSR)
sALL DONE HIT CONT TO DO IT AGAIN

s IMAGE OF PROGRAM TO BE DOWN LINE LOADED
CLR

aré

;SET UP TIMEOUT VECTOR TO HALT

MOV
MOV
MOV

#1000, SP
#177560,R1
PC.RO

JSET UP STACK
;SET TTY CSR
;MAKE ADDRESS PIC

RESET

JCLEAR ALL!!

0029

KMC11 ITEP OVERLAY
MACY11
CZKMOA.P11
24-MAY-78 15:15

1463

1464

1665

1466

1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483

015646
015652
015656

015746
015754
015762
015770
015773
015774

062700
105761
100375
112061

001372
012737
005037
000777
006412
046440
042507
051040
042526
041503
046125
042440
020106
020441
006

000034
000004

1%:

000006

000026
000026

000024

047502
051505
053440
041505
020104
051505
054514
042116
042524

052117
040523
051501
044505
052523
043123
026440
047440
052123

000

015774
016002
016010
016016
016024
016032

006412
020122
040517
046440
041455
000012

MSG:

MOP3ED:
.EVEN

1484

1485
1486
1487
1488
1489

31-MAY-78

30A(1052)

051105
047111
044504
041511
042117

047522
046040
043516
047522
006505

MLDER:

16:08

E
3
PAGE 31

PAGE:

ADD

#<MSG=-.>,RO

;ADDRESS OF MESSAGE

8PL
mMove
BNE
MOV
CLR

18
(RO)+,6(R1)
13
#26,an24
an26

:BR IF NO
;TYPE A CHARA(CTER
JKEEP TYPING IF NOT ZERO
;SET UP POWER FAIL VECTOR
sMAKE SURE T BIT CLEAR

TST8

BR
.ASCIZ

4(R1)

JREADY SET?

.
.BR
<12><15>/BO0OT MESSAGE WAS RECEIVED SUCCESSFULLY - END OF

TEST!!/

BYTE

.ASCIZ

<12><15>'ERROR

IN LOADING MICRO-CODE’'<15><12>

.EVEN
S RANARAANRRRANARAARRARRARAARRRRNAAANAAARRAANARNAN
RN

;BINARY TO OCTAL (ASCII) AND TYPE

;$820CT---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

;CALL:

:
.
:
.

MOV
JSR
.BYTE
.BYTE

NUM, - (SP)

RO,$820CT
N
M

;NUMBER TO BE TYPED

;CALL FOR TYPEOUT
;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
:M=1 0RO
;1=TYPE LEADING ZEROS

;0=SUPPRESS LEADING ZEROS

1$8201----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST $8SOCT OR $82016
. CALL:

.a—a_;_pd-a_a_o_wzsg
oONOWVNSWN=O

b
b wd
)
b
d
b md ad
ad

wvivvuiauonaWvaiwva

— e

1506
07

.
N

MOV
JSR

,
- (SP)
NUM
RO,$8201

;$82016~---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

JCALL:
;

016034
016040
016044
016046
016054

112037
112037
000406
112737
112737

016241
016237

000001
000006

MOV

JSR

$820CT: MOVB

016237
016241

MOvVB
B8R

$82016: MOVB
MOvB

- (SP)
NUM,
RO,$82016

(RO) +,$OMODE +1

;PICKUP THE NUMBER OF DIGITS TO TYPE

#1,S0FILL
#6,$OMODE +1

;SET THE ZERO FILL SWITCH
;SET FOR SIX(6) DIGITS

;ggé;,SOFILL

;GET THE ZERO FILL SWITCH

0030

KMC11

CZKMOA.P11
1519
1520
1521

MACY11 30A(1052)
24-MAY-78 15:15

ITEP OVERLAY

016062
016070
016072
016074
016076
016102
016104
016110
016114
016120
016124
016126
016130
016132
016134
016136
016140
016142
016144
016150
016152
016156
016160
016162
016164
016166
016172

112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105

000005

016236

$8201:

016241
000006
016240
016237
000010
1%:

2%:

3s:

177770

000060
000040
016234
016234
016236

5%:

005037

017014

100376

017012

ROL
ROL
ROL
MOV
ROL

DE(B
BPL
BIC
BNE
TST
B8EQ
INC
8IS
BIS
Mov8

(CKBASE: MOV

1%:

040000
100000

TYPE
DE(B
8GT
8LT
INC
BR
6%:
MOV
MOV
MOV
MOV
RTS
8$:
.BYTE
.BYTE
$OCNT:
.BYTE
SOFILL: .BYTE
: 0
$OMODE

016237
016240
177777
017014
000146
017014

CLR

ROL

16:08

PAGE 32

2$:

CLR
BIS
TST
BEQ
MOV
MOV
TST
8PL
CLR

:
PAGE

#5,80CNT
R3,-(SF)
R4 ,~(SP)
R5,~(SP)
$OMODE+1,R4
R4

;oET _THE ITERATION COUNT
;SAVE R3
:SAYE R4
;SAVE RS
;GET THE NUMBER OF DIGITS TO TYPE

R4 , $SOMODE
SOFILL
R4
10(SP) ,RS
R3
RS

;SAVE IT FOR USE
JGET THE ZERO FILL SWITCH
¢PICKUP THE INPUT NUMBER
:CLEAR THE OUTPUT WORD

#6,R4

33
RS
RS
RS
R5.R3
R3

$OMODE
73
2177770.R3

sSUBTRACT IT FOR MAX. ALLOWED

;ROTATE MSB INTO ‘'C*’
:6GO DO MS8B

;FORM THIS DIGIT

;sGET LSB CF THIS DIGIT
;TYPE

THIS DIGIT?

:BR _IF NO
:GET RID OF JUNK

JTEST FOR O

:SUPPRESS THIS 0?

:BR IF YES

78:

016216
016220
016222
016224
016226
016230
0156232
016234
016235
016236

012737
005037
052714
005737
001775
01714
012714
005714

movBe
MOV
MOV
MOV
MovBe
NEG
ADD
MovB
mMov8
MOV

016240

016176
016202
016206
016212
016214

016242
016250
016254

31-MAY-78

(SP)+,RS
+ R4
(SP)
(SP)+,R3
(SP)+,(SP)
RO
0
0

0
0

;DON'T SUPPRESS ANYMORE 0'S
sMAKE THIS DIGIT ASCII
sJMAKE ASCII IF NOT ALREADY
:SAVE FOR TYPING
;GO TYPE THIS DIGIT
;COUNT BY 1
;BR IF MORE TO DO
:BR IF DONE
s INSURE LAST DIGIT ISN'T A BLANK
;GO DO THE LAST DIGIT
JRESTORE R5
JRESTORE R4
JRESTORE R3

;SET THE STACK FOR RETURNING
JRETURN
;STORAGE FOR ASCII DIGIT
;TERMINATOR FOR TYPE ROUTINE
sOCTAL DIGIT COUNTER
;ZERO FILL SWITCH
sNUMBER OF DIGITS TO TYPE

#-1,RESUME
BASEFG
#1466, (R4)
BASEFG
18
#8I1T14, (RS)

sSET RESUME FLAG
;CLEAR BASEFG
:SHUT DOWN KMC TO UPDATE BASE TABLE
sSHUT DOWN DONE?

(R4)

;RUN SET?
JBR IF NO
. CLEAR BASEFG

#BIT1S5, (R4)
2%

BASEFG

BR IF NO
MASTER CLEAR KMC

0031

ITEP OVERLAY
MACY11
CZKMOA. P11
24-MAY-78 15:15
KMC11

1575
1576
1577

016306
016312
016316
016320
016326
016332
016336
016340
016346
016350
016352

052714
005737
001775

30A(1052)

000143

31-MAY-78

3%:

017014

000100
017012
000003

000002

017046

017036

016507
000003

5%:

6$:

017036

7%:

016632
016426

000013

016432
016434

016436
016462
016503
016507
016566
016632
016636
016705

015
005015
020040
005015
015
017012

017012
017014
017016
017020
017022
017024
017026
017030
017032
017034

040515
047412

047117
042523
0 00
047523
020040

052516
044522

.NLIST

KMCER:

SOFT:

SPACE3:
BOOMSG:
ORGOK:

.EVEN
LIST

CLR
CMPB
BNE
CMPB
CMP
BNE
RTS

TYPE

MOV

CLR

MOovB
MOVB
8IC
JSR
.BYTE
.BYTE
TYPE
cMPB
cMP
BNE
RTS

BEX

.ASCII
LASCI]

LASCIZ

.ASCI!
LASCI!

.ASCIZ
.ASCI2
.ASCIZ

O
O
O
O

MFLAG:

SELG6:

SELS:

017446

:
PAGE

#1643, (RG)

+ASK FOR BASE REQUEST

:BR IF NO

#100,2(R4)
RE SUME
#3,R2
R1

;SET INTERRUPT ENABLE
;CLEAR RESUME FLAG
;LOAD BASE OFFSET TO ERROR COUNTS
JR1 IS OFFSET INTO SOFTWARE TABLE

2:SE(R2),ERRCNT(R1):ANY ERRORS THIS PASS?
(R1)+,(R2)+
#13,R2
5%
PC

;BR IF YES

+INC INDEXS
;DONE?
;BR IF NO
JRETURN

LSOFT
;TYPE SOFT ERROR MESSAGE
#3,R2
;LOAD BASE OFFSET TO ERROR COUNTS
R1
;SOFTWARE TABLE OFFSET
BASE (R2) ,ERRCNT(R1)
;SAVE ERROR COUNTS

BASE(R2) ,-(SP)
#~C<377>,(SP)
RO,$820CT

;PUSH ON STACK FOR TYPEOUT
;CLEAR HI-BYTE
;TYPE IT OUT

.SPACE3

(R2)+,(R1)+
#13,R2
73
PC

;INSERT 3 SPACES

s INC INDEXS
;DONE?
:BR IF NO
sRETURN

<15><12><12>/CONTROL OUT ERROR/
<15><12>/
SEL4
SEL6/
<15><12>/ /
<15><12><12>/SOFT ERROR - DDCMP ERROR COUNTS ARE NON ZERO/

;15>;12>/

BASE+3 THRU BASE+12/<15><12><0>

<15><12>/MANUALLY BOOT KMC NOW (VIA M9301-YJ)/
<15><12>/0RIGINATING STATION HAS COMPLETED BOOT SUCCESSFULLY - END OF

;BASE LOAD FLAG

O
0

ERRCNT:

.BLKW

BASE :

.=.+256.

0032

;BASE LOADED?

BEX

TEMP1:
TEMP2:
XFLAG:
RFLAG:

SFLAG:

PAGE 33

BASEFG

RESUME: O
BASEFG: O

017036
017046

041412
020040
020012
005012
020040
000040

8IS
TST
BcQ
MOV
CLR
MOV

000013

017046
017046
177400
016034

16:08

KMC11 ITEP OVERLAY
MACY11
CZKMOA P11
24-MAY-78 15:15

30A(1052)

31-MAY-78

1621
1622
1623
1624
1625
1626
1627

16:08

H 3
PAGE 34

PAGE
:

; THIS ROUTINE 1S DESIGNED TO LOAD MICRO CODE INTO THE
;MICRO-CPU AND VERIFY THAT IT WAS LOADED PROPERLY.
;CALL = JSR PC,LDRVRF
:IF A LOAD ERROR IS DETECTED,AN ERROR WILL BE TYPED OUT.

JROUTINE °"'SETMAP'' IS CALLED IN ORDER TO DETERMINE WHICH
JVERSION OF MICRO-CODE TO LOAD.

017446

012711

017456
017460
017464
017466
017472
017476
017502
017506
017510

005000
004737
005011
010061
012261
012711
012711
005200
022700

017452

017514
017516
017522

017526
017530
017532
017534
017540
017544
017550
017552
017556
017560
017564
017566
017572

017574
017600
017606
017610
017614

042711

003363
004737
005737

100421
005000
005011
010061
012711
026122
001402
104400
005200
022700
003362
012711
000207

012702
032737
001402
012702
000207

040000

LDRVRF: MJV

140000

017574

B8GT
JSR
TST

BM]
CLR
CLR
MOV
MOV
(MP
8EQ
TYPE
INC
M
BGT
MOV
RTS

3s
PC,SETMAP
PARAM1
108
RO
(R1)
RO,4(R1)
#81T10,(R1)
6(R1),(R2)+
9s
.MLDER
RO
#2000,R0
63
#8IT14,(R1)
PC

:=1 NO.
;SET UPC POINTER.
JSTART WITH THE CLEAN WORLD.
;sLOAD CRAM ADDRESS.
;SET ROM 0.
sCHECK IF RIGHT?
;BR IF GOOD.
sLOADING ERROR.
;BUMP UPC POINTER.
;IS IT DONE?
;BR IF NO.
JMASTER CLEAR KMC-11.
JRETURN.

SETMAP: MOV
BIT
BEQ
MOV
3s:
RTS

#LOMAP R?
#81T1,PARAMI
3
#HIMAP R?
PC

;LOAD ADDRESS OF LOW SPEED.
;1S IT HIGH SPEED?
;BR IF NO.
;LOAD HIGH SPEED ADDRESS.
JRETURN TO CALLER.

002000

017574
011012

VERFY:

6%:

000004
002000
000006
015774

9%:

002000

040000
023650
000002
027654

108:

011012

JMASTER CLEAR KM(C-11.

#BIT15!BIT14, (R1)

3s:

000004
000006
002000
022000

#IT14,(R1)

BIC

CLR
JSR
CLR
MOV
MOV
MOV
MOV
INC
CMP

JAND SHUT IT DOWN,

RO
sCLEAR UPC POINTER.
PC,SETMAP
;SET MICRO-CODE POINTER IN R2.
(R1)
;START WITH THE CLEAN WORLD.
RO,4(R1)
.LOAD CRAM ADDRESS.
(R2)+,6(R1)
;sLOAD INSTRUCTION WORD.
#31710, (R1)
;SET ROM O.
#31T13!81710, (R1)
SWRITE IT...
RO
;UPDATE UPC POINTER.
#2000,R0
;JOVER FLOW?

;BR IF NO.
;SET MICRO-CODE POINTER IN R2.
;VERIFY MICRO-CODE

0033

KMC11 ITEP OVERLAY
MACY11
CZKMOA.P11
24-MAY-78 15:15
AUTBOO

014544

EOP

AUTORG 014316
BA
011004
BACK
013404
BASE
017046
BASEFG 017014
BITO0 = 000001
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4
= 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BiT9 = 001000
BOOMSG 016636
8007
014260
B2016
011030
CKBASE
016242
DELAY
013402
DERR
013014
DISPLA 011046
DSFLG = 020000
DSSTAT 011060
ENTER
012554
. ABS.

033654

ERRORS DETECTED:

30A(1052)
012466

ERCSR
011054
ERDBR
011056
ERRCNT
017036
FLAG
011042
FULL.D= 000001
GO
011410
HIMAP
027654
IISR
015132
ILB
= 000010
IRDA
011020
IXDA
011022
KBDIN = 104416
KMCER
016436
KMC11
011000
LDRVRF
017446
LOMAP
023650
LOOP = 000020
MANORG 014610
MFLAG
017030
MLDER
015774
MODE
=X000000
MOP1
015606
MOP2
015614
MOP3
015620
MOP3ED
015774
MP3
015512
MSG
015702
MSGO
013026
MSG1
013107
MSG2
013112
MSG3
013137
000
O

DSKZ : CZKMOA ,DSKZ : CZKMOA/SOL=CZKMOA
.MA( ,CZKMOA.P11
RUN-TIME: 6 8 .1 SECONDS
RUN-TIME RATIO: 217/14=14.6

CORE USED:

17k

(33 PAGES)

PAGE 36

16:08
31-MAY-78
SYMBOL TABLE

MSG4
MSGS
NODAT =
OISR
ORGOK
owl
=
owo
=
PARAM1
PARAM?
PARAM3
PRIOR
PRTY0
PRTY1
PRTY2
PRTY3
PRTY4
PRTYS
PRTY6
PRTY?
QTPIE
RCC
RCSR

011012
011014
011016
011010
000000
000040
000100
000140
000200

=
=
=
=
=
= 000240
= 000300
= 000340
012624
011070
=%000004

RDA
RDAX
RESUME
RFLAG
RFLG
=
RISR
RIV
RWAIT =
RXWC
RX.TER

013162
012314
000200
015316
016705
000002
000001

011072
012774
017012
017024
040000
014036
011006
104410
011064
011041

:
PAGE

=%000006
=%000007
SAVRO
013366
SAVR1
013370
SAVR2
013372
SAVR3
013374
SAVR4
013376
SAVRS
013400
SCAN4
012672
SCANS
012746
SELS
017032
SEL6
017034
SETMAP 017574
011024
SETTLE
SFLAG
017026
SOFT
016507
SPACE3 016632
011052
SRCSR
011106
START
013500
STARTR
STARTX
013410
=%2000000
STAT
STOP
013406
104414
STPS
011044
Swi12
010000
SXCSR
011050
TEMP1
017016
TEMP2
017020

TESTD
TESTDX
TIE

012626

013022
000100

TIME
TKB
TKS
P8
TPS
TSTDAT
TXW(C
TX.TER
TYPE
=

VERFY
XCC
XCSR

XDA
XFLAG
XFLG
XISR
XL8

XWAIT
$820CT
$8201
$82016
$ILB
SOCNT
$SOMODE
$Owl
$0W0
$xLB
$OF ILL

0034