Digital PDFs

AH-E518A-MC

May 1978

35 pages

Original

17MB

view download

OCR Version

26MB

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_gray.pdf

OCR Text

ITEP OVERLAY

CZKMOAO

AH-E518A-MC

DEC 1978

1
FICHE1 OF

MADE IN USA

fll@flflflfl

[TEP OVERLAY

[ JeMDA P

MACY11 30A(1052)

31-MAY-78

24-MAY-78 15:15

16:08

8
PAGE 2

PAGE:

IDENTIFICATION

THE

PRODUCT CODE:

AC-E517A-MC

PRODUCT NAME:

CZKMOAO KMC=11

PROGRAM DATE
:

MAY 1978

MAINTAINER:

DIAGNOSTICS=MERRIMACK

AUTHORS :

ED BADGER

INFORMATION IN THIS DOCUMENT

ITEP OVRLY

IS SUBJECT TO 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 ASSMS NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF

NOT SUPPLIED BY DIGITAL.

ITS SOFTWARE ON EQUIPMENT THAT

0001

KMC11 [TEP OVERLAY

CZXMDA . P11

1.0

MACY11 30A(1052) 31-MAY-78 16:08 PAGE%

24~MAY-78 15:15
ABSTRACT.

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

OF 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.
: :IMPORTANT
: :

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 M8202 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.

2.2

PDP-11

SYSTEM WITH 8K OF MEMORY.

A KMC11 COMMUNICATION INTERFACE.

STORAGE.
4K OF CORE

3.0

LOADING PROCEDURE

4.0

OPERATING PROCEDURES.

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

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 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED)

CONSOLE DIALOGUE PARAMETER INPUT (CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY)
1.

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.
C.

IF YOU WISH TO SETUP A DN11, TYPE IN DN.
IF YOU WISH TO SETUP A DM1188, 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 DNi1 OR DMBB.
2.

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

PAGE: 0002

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

A.
B.

30A(1052)

31-MAY-78

16:08

PAGE &

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 OUT 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 TYPEOUT THE DEFAULT VALUE OF PARAMA#1

IF REQUIRED BY THE ISR.(SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION)

A.
B.

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

THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#?
IF REQUIRED BY THE ISR.
A.
TYPE A CAR. RETURN TO USE DEFAULT VALUE
B.

ENTER ACTUAL VALUE

THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAMA3
IF REQUIRED BY THE OVERLAY.
TYPE A CAR. RETURN TO USE DEFAULT VALUE

THE DN=11 WILL USE PARAM #3 AS THE # TO DIAL.

IF USING A MODEM WITHOUT AUTOMATIC HANDSHAKING,
THE NUMBER MUST TERMINATE WITH A

" END-OF -NUMBER' ' CHARACTER (:).

ENTER ACTUAL VALUE.

THE PROGRAM WILL RETURN TO STEP B1
WAS FOR DN11 OR DM1iBB.

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 FOR SUBSEQUENT
RESTARTS OF

THE PROGRAM.

PAGE:

0003

KMC11 ITEP OVERLAY

CZKMOA.P11

MACY11 30A(1052) 31-MAY-78 16:08 PAGE§

24~MAY-78 15:15
C.

PAGE: 0004

MANUAL PARAMETER INPUT FROM SWITCH REGISTER
1.
THE PROGRAM HALTS FOR ISR(INTERFACE SERVICE ROUTINE) SPECIFICATION
SWR14=SE /UP DM-11B ISR

SWR13=SETUP DN-11 ISR
SWR=000000=SETUP VARIABLE ISR

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

A.
B.
C.

D.
E.
F.

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

(SEE STEP D.)

BEFORE ATTEMPTING TO RUN THIS PROGRAM, 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 OPERATI(N

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).

KMC11

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

ITEP OVERLAY

CZKMOA.P11

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)
SWO07=1 DO NOT TEST RECEIVED DATA
SWO6=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

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
SW02=1 EXTERNAL LOOPBACK MODE
SWO1=1 ONE-WAY-IN MODE
SWO0=1 ONE-WAY-OUT MODE

PAGE :

0005

KMC11 ITEP OVERLAY
MACY11 30A(1052)
CZKMOA.P11
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
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED
(1E)

SWR=XXXXXX

NEW=

POSSIBLE RESPONSES ARE:

| 8

<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

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

ITEP OVERLAY

31-MAY-78

16:08

PAGE 8

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 SWO09 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. (SwW4=0)

W
=
.NOWVSHS

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(SwW04=0)

(SW04=1) OR

WN.—‘

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) OR
GO TO STEP 1 (SW04=0)
ONE-WAY-0UT MODE

Swno—=

CZKMOA.P11

KMC11

THE OVERLAY SETS REQUEST TO SEND
WAITS FOR CLEAR TO SEND
TRANSMITS SELECTED DATA

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

(SW04=1) OR

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 SET DATA TERMINAL READY AND REQUEST TO SEND.

}giNgx?‘;LSXT:ILL 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 CSR EVERY 60 SECS.
UNTIL CLEAR TO SEND IS ASSERTED.

PAGE:

0007

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

31-MAY-78

16:08

PAGE:

PAGE 9

IF 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
;ngTI%gFE%FACE 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 INPUT BUFFER. (ASCII)
THEN TYPE EITHER:

*WXXXXXX

TO PRINTOUT THE 8 WORDS

AT LOC XXXXXX.

*BXXXXXX

TO PRINTOUT THE
AFTER LOC XXXXXX.

~(C

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 IF

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 TTTTTT
DATA COMPARE ERROR;
BAD DATA=BBB

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

J 1
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 IS THE CONTENTS OF THE RECEIVER DATA REGISTER
THE LOW BYTE 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 -LOOPBACK
EXTERNAL-LOOPBACK

CPU #2
ONE-WAY=-IN
ONE-WAY-0UT
INTERNAL -LOOPBACK
EXTERNAL-LOOPBACK
EXTERNAL-LOOPBACK (FULL DUPLEX)

WHEN THE COMMUNICATION LINK INVOLVES MODEMS THE FOLLOWING
RESTRICTION APPLY:

IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS
MUST BE IN EXTERNAL LOOP BACK MODE.
BOTH SYSTEMS SHOULD BE RUNNING IDENTICAL ROUTINES.
EXAMPLE:

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 'MWAITING MESSAGE'',IF AN INCOMING MESSAGE STARTS DURING
THE TYPE OUT,

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 RE-

CEIVED. THIS IS BECAUSE THE TEST STATION IS STILL LOOKING

PAGE:

0009

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

31-MAY-78

16:08

FOR THE REST OF THE INTERUPTED MESSAGE.

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)
9.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.

EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN ITEP.
9.2

IT IS INCREMENTED

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. SOWO,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 "MWAITING'' 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 ‘MWAITING'' MESSAGE IS TYPED

EVERY 60 SECS IF THERE IS 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 RECEIVER 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 IS DONE PROGRAM RETURNS
TO START OF ROUTINE.

($SILB)

PAGE:

0010

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

31-MAY-78

16:08

PAGE 12

$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 &

SEC IF THERE IS NO

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

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 IT RESTARTS THE PROGRAM.

9.5

ENTER: IS 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 PARAM2 TO DETERMINE IF HALF DUPLEX OPERATION
WAS SELECTED BY THE OPERATOR.

IT WAS,

THE

SUBROUTINE WAITS FOR CLEAR TO SEND.
A '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:, IS 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

LAT RISR:, IS ENTERED VIA RECEIVER INTERRUPTS

FROM THE INTERFACE.
THE RECEIVED CHARACTER IS STORED IN

THE INPUT BUFFER AND PRINTED ON THE TTY IF
THE MONITOR RECEIVER SWITCH IS SET.

PAGE:

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

LINE 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
sgzg?sgb” TER A COMPLETE MESSAGE HAS BEEN

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 MISMATCH
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
}?EYEARNA{EETER LOCATIONS PROVIDED IN ITEP.

10.1

THE THREE

1.) 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:

PARAMA1

BIT1 =0
BIT1 =1
BIT15 =
BIT15 =1

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

PARAM#2 FULL/HALF DUPLEX SELECTION

BITO = 0
=1

HALF DUPLEX

FULL DUPLEX

(DEFAULT)

PARAM#3 IS NOT USED (177777)
10.2

2.) SECONDARY MODE TEST
THIS TEST CHECKS THE SECONDARY STATION DELAY.

PAGE:

0012

KMC11 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
BIT15 = 0
BIT15 = 1

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

PARAM#2 SECONDARY MODE TEST SELECTION

BITO = 0
BIT1 =1
BIT2 = 0
=1

HALF DUPLEX(MUST BE O FOR THIS TEST)
SECODARY MODE TEST(MUST BE 1)
'
PRIMARY STATION
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

HAVE NO EFFECT.

THIS,

SWO5 AND SW06

11.2

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.

11.3

BECAUSE THE KMC11

SUPPORTS DDCMP OPERATION IN THE FIRMWARE,

THE PDP=11 PROGRAM (ITEP) IS UNABLE TO CONTROL OR KNOW EXACTLY
WHAT 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

31-MAY-78

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

SRR

16:08

B 2
PAGE 15

PAGE :

AR AR AR R AR AR AR A AR A AR TR AR A RO

A AR AR AR AR,

KMC11

INTERFACE SERVICE PARAMS

KMC11:

.=11000
_ASCIZ /KkMC/

;ISR NAME

300

JVECTOR ADDRESS

:."QQ.....'Q.Q......."."".Q..fi...Qt....'...'fiQQQQ..Q.'Q.""

000103

BA:

RIV:

PRIOR:
PARAM1:
PARAM?:
PARAMI:
IRDA:
IXDA:
SETTLE:

B2016:
TIME:

001
000000

177570
177570

160010

;BUS ADDRESS

240
0
1
-1
MWORD
MWORD
gg

O
O
8

JPRIORITY
;PARAM #1
sPARAM #2
;PARAM #3
JINITIAL READ DATA ADDRESS
;INITIAL XMIT DATA ADDRESS
sLINE SETTLE DELAY FLAG

.WORD
.WORD

O
0

;ADDR OF BIN TO OCT TYPE ROUTINE
: TIMER

MWORD
- .WORD

O
START

3
;ADDR OF START OF PROGRAM

og— .BYTE

000

sTRANSMITTER TERMINATING CHAR.

001

JRECEIVER TERMINATING CHAR.

BYTE

FLAG:
.WORD
177570
SWR:
DISPLAY:177570
SRRARRAAA AR

R AN AAAAAAAAAAAAARAAAAARAAAAAAAAAAAAA
AR RA AR AR AR,

CONSTANTS + WORKING STORAGE

:..".tfi‘....*t.'*'t*t..""'..'Qt.fit.'fi.fifit'tfi"'fi.."..Qfi".'.

STAT=R0

XFLG=100000
RFLG=40000
DSFLG=20000
B81T13=20000
684
685
686
687
688

011050
011052
011054
011056
011060

JXMIT COMPLETE FLAG
JRCV COMPLETE FLAG
:DATA SET STATUS CHANGE FLAG
:INHIBIT PRINTOUTS

SXCSR:
SRCSR:
ERCSR:
ERDBR:
DSSTAT:

0
0
0
0
0

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

TXWC:
RXWC:
XCC:
RCC:
RDA:
XDA:

O
O
0
0
0
0

JXMIT CHAR COUNT
:RCV CHAR COUNT
;RCV DATA ADDR.
:XMIT DATA ADDR.

TKS:

TKB:

TPS:

TPB:

177560

177562

177564

177566

FULL .DUPLEX=000001

0014

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

31-MAY-78

16:08

SRR

705

:tt'ttfit!ltttttttt*.tittit'itt.t*fittt.tt.fi't.'fi'tfitt.ttttittttttt

706
707
708
709
710
711
712
713
714
715
716
717
718

011106
011110
011114
011120
011126
011130
011134
011140
011144
011150
011154
011160
011166

000240
017700
042700
013702
012722
013722
012722
013722
013704
013702
012712
012762
032737

177730
177400
011006
014036
011010
013550
011010
011004
011006
013550
014036
000400

720
721
722

011176
011202
011210

012712
012762
012714

015132
015316
040000

004737

017446

719

723
726
725

726
727
728
729
730
731
732
733
734
735
736
737
738
739

7640
741

7642
7643
744
745

011174

011214
011216
011220

011226
011230
011234
011236
011240
011244
011246
011252
011256
011262
011264
011266
011272
011276
011302
011304

011306
011314
011320
011326

001405

005014
010401

012714
013702
005003
005203
123722
001374
010337
062703
010337
005714
100376
005037
005037
005037

005714
100376

28:

017014
017024
017022

48:

000002

011056

005037
005037

017036
017040

749
750
751
752
753
754
755
756
757

011344
011350
011354
011360
011364
011370
011374
011400
011404

005037
105037
005037
005037
005037
105037
005037
005037

017044
017051
0170°
017054
017056
017060
017020
017012

758

1$:

: SETUP MODE IN RO
RO
;STRIP JUNK
;SETUP
;INTERRUPT
;VECTORS

MOV
MOV
MOV

#11SR, (R2)
#OISR,4(Rc)
#BIT14, (RY)

:LOAD BOOT VECTORS
3
;MASTER CLEAR KMC11

CLR
MOV

(R4)
R4 .R1

AR AR

;
:SETUP BUS ADDR INDEX
sADJUST VECTORS FOR

s INPUT SERVICE ROUTINE
sOUTPUT SERVICE ROUTINE
;B00T MODE?
:BR IF NO

PC,LDRVRF

#BIT15, (R4)
IXDA,R2
R3
R3
TX.TERM,(R2)+
1$
R3, TXWC
#10,R3
R3,RXWC
(R4)
2%
BASEFG
RFLAG
XFLAG

;LAST CHARACTER?
:BR IF NO
sSTORE XMIT COUNT
;ADD 10 TO IT
:STORE REC COUNT
;WAIT FOR RUN
:BR _IF RUN NOT SET
;CLEAR BASE LOAD FLAG
sCLEAR RECEIVE FLAG
;CLEAR XMIT FLAG

BIS
BIS
CLR

#100,2(R4)
#143, (R4)
ERCSR

:SET OIE
sASK FOR BASE TRANSFER
;CLEAR ERROR LOCATIONS

CLR
CLR

ERRCNT
ERRCNT +2

TST
BPL

CLR
CLR8
CLR
CLR
CLR
CLR8
CLR
CLR

;

MOV
MOV
CLR
INC
CMP8
BNE
MOV
ADD
MOV
TST
8PL
CLR
CLR
CLR

CLR

5%:

AR AR AR

aSWR,
RO
#177400,
RIV,
R2
#RISR,
(R2)+
PRIOR,
(R2)+
#XISR,
(R2)+
PRIOR,
(R2)+
oA,
Re
RIV,R2
#XISR, (R2)
#RISR,4 (R2)
#81T8,PARAM1

CLR

017042

NOP
MOV
eIc
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT

JSR

000010
011064

000100
000143
011054

005037

3s:

AR AR AAAAAA AR

IKMC11=X INTERFACE SERVICE ROUTINE

BEQ

011062

011330
011334

011340

000004

011040

746
747
748

000004
011012

100000
011022

052764
052714
005037
005037

START:

AR AR

PAGE:

703

704

AR R AR A AR AR

£ &
PAGE 16

(R4)
L%

ERDBR

ERRCNT +4

ERRCNT +6
BASE+3
BASE +4
BASE +6
BASE+10
BASE+12
TEMP2
RE SUME

sCALCULATE WORD COUNTS
;CLEAR COUNT
s INC_COUNT

sRUN SET?
:BR _IF NO

;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

011404

017700

31-MaY-78

30A(1052)

177434

MOV
CRARAARAA AR AR

0_2
PAGE 17

16:08

PAGE:

aSwR,RO
AR AN

;REREAD SWR
AR

A AR

ROUTINE USED TO GOTO
SUBROUTINE DEPENDENT
ON MODE SELECTED.
CRARAARAAAA
AR RAAA
AR AT AR

011410
011414
011420
011424
011430
011432
011436

011032
013402
013406
000001

GO:

011612
000002

1%:

011500
000010

2%:

011714
000004
011474
011476

CLR
CLR
CLR
BIT
BEQ
JMP
BIT
BEQ
JWP
BIT
BEQ
JMP
BIT
BEQ
JMP
HALT
BR

3s:

012150

4%:

$OWI

#1LB,MODE

$ILB

#XLB,MODE

48
$XLB

.-2

AR AR A A AR AR AR R A AR A AR

AR A AR AR

AR AR AR A AR AR

AR AR

A ARk

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

i
b

h o

grfl\hU\
oo N

SS N

.I T

yu R

AACER 2222
§§k30~&4u1~ha85u§g

AR A AR A AR AR AR AR A A AR AR AR AR AR AR RRAA AR A AR

elelelele BN elelelelelelelele]lele]

) —2
b =D

00 0o 0o 0o Co

—_—

S WN=O

ZRIRIREISI IR

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

:
$OW]

013500
040000
011032

2
TIME #4100

000100

aRCSR,R2
#CSR(R‘).R3

011022

012626
040000
016242

AR AR A AR AR AR

PC,STARTR
#2FLG.STAT

1%:

000002

000200

AR AR AR

TIME
18

177274

§§00A7.3$UR

3s:

JSR

PC,TESTD
#RFLG,STAT
PC,CKBASE

sCKECK KMC SOFT ERROR COUNTERS

0016

MACY11 30A(1052) 31-MAY-78 16:08 PAGE EB

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

011566

011610

032777

000020

177250

011610
012466

013404

BIT

4$:
AR

PAGE :

#LOOP ,aSWR

(33
#46$ ,BACK
EOP
$OwW!

BEQ
MOV
JMP
BR
AR

AR AN RN AT AR

AR R RN RN R AR AR AR RRAR AR AR RN R R AR

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

NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY
MODE AVAILABLE.

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

R AARRAANL ARAARAAAAAARAARAAAARANAARAA
AR
AR
AR AR A AR AR

$0WO0:

013410
011032

100000

011032
011644

011650
011652
011656
011660
011664
011670
011676
011700
011706
011712

1%:

000100

aRCSR,R2
{CSR(RL) .R3

011032

011712
012466

PC,STARTX
TIME
#XFLG,STAT

TIME
. #100
18

000002

100000
016242
000020

KBD IN
JSR
CLR

TIME

2%:

177146

#XFLG,STAT
PC,CKBASE
#LOOP ,aSWR

013404
3s:

#3$ ,BACK
EOP
$0W0

sCKECK KMC SOFT ERROR COUNTERS

0017

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

31-MAY-78

:
:

856

855

857

858
859

011714

104416

865
866

011722
011726

005037
032700

011032
040000

872
873

011752
011754

104001
005037

011032

864 011716 004737 013500

874
876
877
878
879
880
881
882
883
884
885

886
887
888
889
890
891
892
893
8%
895

011732
011734
011742
011744
011746
011760
011762
011770
011772
011776
012002
012006
012014
012016
012024
012030
012036

012040
012044
012050
012054
012056

012060
012064
012066
012072
012074

001013
023727 011032 000100
103771
011402
016403 000002
000762
032777
001002
004737
042700
004737
032777
001405
012737
000137
032777
001416

000200

012626
040000
016242

000020

177054

898
899
900
901
902
903
904

i tiidiiiddddddddds

ROUTINE USED IF INTERNAL LOOP BACK'' WAS SELECTED.

AND A COMLPETE MESSAGE IS RECEIVED. IF DATA IS TO BE CHECKED

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

;

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

THEN THE TRANSMITTER IS ENABLED. AFTER THE WHOLE MESSAGE

IS TRANSMITTED; THE CYCLE IS REPETED AS ABOVE.

KBDIN

1$:

CLR
BIT

177006

JSR

PC,STARTR

BNE
CWP
BLO
MOV
MOV

2
TIME ,#100
18
aRCSR,R2
XCSR(R4)
,R3

HLT
CLR

2$:

177030

012030 013404
012466
000400

$ILB:

4$:

013702 011020
013703 011022
010337 011074
112223
001376

:CKECK KMC SOFT ERROR COUNTERS

MOV
MOV
MOV
MOVB
BNE

IRDA,
IXDA,
R3
(R2)+,
=2

*SET POINTER
*SET POINTER
*SETUP XMIT DATA ADDR
:MOVE INPUT TO OUTPUT
*LOOP IF NOT ZERO CHAR

BIT
BEQ

011032

78:

MOVB
INC
MOVB
CLRB
CLR

012106

032700

100000

5%:

BIT

012130
012132

104001
005037

011032

042700

100000

012110
012112
012120
012122
012124

001013
023727 011032 000100
103771
011402
016403 000002

012140

907 012144 000137 011714

JSR

BNE
CMP
BLO
MOV
MOV
HLT
CLR

68:

1
TIME

18
3s
PC,TESTD
ARFLG,STAT
PC, CKBASE
#LOOP, aSWR
4
#4$ ,BACK
EOP

000177

TIME
#RFLG,STAT

B8R
BIT
BNE
JSR
BIC
JSR
BIT
BEQ
MOV
JMP

112743
005203
112723
105023
005037

905 012136 000762
906

R ddddiiddii ittt

3$:

89 012100 004737 013410
897

PAGE:

:ttQttttttttttlttt.t.t'tt't"t...'ttt.'.ttttt't.t'.t.t.tt.ttt"t.tt"

862
863

875

861

PAGE 19

NOTE THAT WHEN IN THIS MODE; HALF DUPLEX IS THE
ONLY MODE AVAILABLE.

;
:

860

867
868
869
870
871

16:08

2222232222333

853
854

BIC

JMP

#NODAT
, aSWR

#400,
78

#177.,
R3
#77,
(R3)+
TIME

@SWR

R2
R3
XDA

(R3)+

=-(R3)

(R3)+

PC,STARTX

#XFLG,STAT

68
TIME #4100
58
aRCSR,R2
XCSR(R4)
,R3
1
TIME

#XFLG,STAT

$ILB

;USE EXTERNAL DATA?
*BR IF NO

:INSERT
A FILL CHAR
*BUMP ADDRESS
;INSERT ANOTHER FILL
*INSERT ZERO CHAR

0018

f"OVERLAY

MACY11 30A(1052)

24-MAY-78 15:15

31-MAY-78
L3223

WN-=O
OV

P
P
e

919

012150
012152

104416
032737

924
925
926
927
928

012162
012170
012172
012176
012204

032737
001417
004737
032737
001411

930
931
932

012212
012214
012220

933
934

935

012160

012206

012222

012230

012234

936
937
938
939

012240
012244
012246
012252

012262

942
%3
944
945
9%6
947
%8
949
950
951
952
953
954
955
956
957
958
959
960
91
962
93

ittt

PAGE:
ittt iiiiiidddiidiiiddidididddd)

2223322232222 22 222 2222 ddd ittt

920
921
922

929

23232222222 dd

PAGE 20

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

917
918

923

16:08

ROUTINE USED IF 'EXTERNAL LOOP BACK'' WAS SELECTED.
EITHER HALF OR FULL DUPLEX MAY BE SELECTED IN THIS MODE.
"EXTERNAL LOOP BACK'' MEANS THAT THE TRANSMITTER IS FIRST

VOV
OV OO0

53 3

—

012254

012264
012266
012272
012274
012300
012302
012310
012312
012320
012322
012326
012332
012334
012342
012344
012352
012354
012360
012362
012370
012372
012374

001004

005737
001403
032700
001774

012737

000002

011014

000001

011014

013500
000004

011014

$XLB:

017020

177777

017020

11%:

004737

013410

032700
001016
032700
001030

100000

28:

040000

78:

005037

023727

103766

011402
016403
104001
005037
000757
032737
001356
032737
001352
042700
004737
000742
032737
001004
032737
001420
032700
001013
023727
103761
011402
016403

011032

18:

000100

011032
000002

011014

000001

011014

3s:

100000
013500
000002

011014

000001

011014

100000

000002

: SECONDARY MODE?

BIT
BEQ
JSR
BIT
BEQ

#FULL .DUPLEX ,PARAM?
1$
PC,STARTR
#81T2,PARAM2
18

; SECONDARY STATION?
:BR IF NO

BEQ
BIT
BEQ

118
#RFLG,STAT
$

JSR

PC,STARTX

4$:

108:

000100

MOV
CLR

TEMP2

#-1,TEMP2

#XFLG,STAT
33
#RFLG,STAT
48

BLO

MOV
MOV
HLT
CLR
BR
BIT
BNE
BIT
BNE
BIC
JSR
BR
BIT
BNE
BIT
BEQ
BIT
BNE
cMP
BLO
MOV
MoV

;BR IF YES

;FIRST TIME HERE?

:BR IF YES
:WAIT FOR RECEIVE BEFORE
: TRANSMITTING

;SET FIRST TIME FLAG

TIME

BIT
BNE
BIT
BNE

cMP

000002

011032

#81T1,PARAM2

TST

040000

ittt dsdddd

KBDIN
BIT

BNE
9%:

TIME #4100

aRCSR,R2
XCSR(R4) ,R3
1
TIME
2%
#81T1,PARAM2
7$
#FULL .DUPLEX ,PARAM?
78
#XFLG,STAT
PC,STARTR
2%
#81T1,PARAMZ
108
#FULL .DUPLEX ,PARAM2
8s
#XFLG,STAT
63
TIME 4100
4%
aRCSR,R2
XCSR(R4)
,R3

: SECONDARY MODE?
:BR IF YES

0019

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

966
967
968
969
970

971
972

973
974
975

976
977

012400
012402

012406
012410
012414
012420
0124246

012432
012434

012440
012444
012452

012454
012462

104001
005037

011032

032777

100000
040000
011032
000200

000752
042700
042700
005037

001002
004737

004737
032777
001636

012737
000137

012626
016242
000020

012150
012466

31-MAY-78
HLT
CLR

6%:
8$:
176412

176372

013404

58:

16:08

PAGE 21

PAGE:

1
TIME

BR
BIC
8IC
CLR

4$
#XFLG,STAT
#RFLG,STAT
TIME

JSR
BIT
BEQ
MOV
JMP

PC,TESTD
PC,CKBASE
#LOOP ,aSWR
$XLB
#$XLB,BACK
EOP

BIT
BNE
JSR

#NODAT ,aSWR

sCHECK KMC SOFT ERROR COUNTERS

0020

31-MAY-78

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

16:08

1 2
PAGE 22

PAGE :

3232233322322 3223322220203 3

ROUTINE TO RETLURN

END PASS.

TO MONITOR FOR

:ttt'tttttttt.tttt.ttt.ttttt'

EOP:

012624
012624
000002
000002

STPS,PRTY7
XCSR(R4) ,QTPIE
MOV
BIC
BIC

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

ENTER:

" 013402
000002

QTPIE:

SAVRO,RO
SAVR1,R1
SAVRZ2 ,R2
SAVR3,R3
SAVR4 R4
SAVRS RS
#-1,DELAY
. XCSR(R4)
QTPIE
aBACK

;RESTORE RO
;RESTORE R1
;RESTORE R2
;RESTORE R3
;RESTORE Ré4
;RESTORE R5
:IF ORGINALLY SET; SET TX IE

Qe Qo G

:.ttttttttttttttttttt'tt'ttttt!ttt

:
s

SUBROUTINE TO CHECK
RECEIVER DATA.

TESTD:

MOV

ERDBR,

BIT
BNE

#BIT13,3SWR

JSR

RO,aB2016

:ttttttttttttQtttttttlttttt.tt'ttt

o G

013746

011056
020000

176202

b b d
e
e

000000

RO, SAVRO
R1,SAVR1
R2.SAVR2
R3,SAVR3
R4 ,SAVR4
RS,SAVRS

o G

VONOWVSWN=O

b d

elelelelelelelelele]

1009

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIS
JMP

#*C<TIE>,QTPIE
#TIE XCSR(R4)
#ENTER,2(SP)

;SET PS PRIORITY TO 7
sSAVE TX CSR
sCLEAR ALL BUT TX IE.
sCLEAR TX IE (EVEN IF IT WASN'T SET)
:SET FOR RETURN IF SW 14=1
;SAVE REGISTER 0
sSAVE REGISTER 1
;SAVE REGISTER 2
;SAVE REGISTER 3
:SAVE REGISTER 4
;SAVE REGISTER 5
SRETURN TO CONTROL PROGRAM

— e

013026
176154

1022

013107
011022
011020

011040

000002
012716

012720

BEQ

TST

TYPE

TSTDAT

~(SP)

TSTDAT

-(SP)

.MSG1

TSTDAT: MOV

IXDA,

SCANG:

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

MOV

(MPB
BEQ
CMP8
BEQ
CMPB
BNE
MOV

IRDA,

;WAS THERE A RECEIVE ERROR?
:BR IF NO
:INHIBIT PRINTOUTS?
;BR IF YES

:<15><12>THERE WAS A RECEIVE ERROR. RBUF=

JPRINT CONTENTS OF RBUF
:<15><12>

;SETUP XMIT DATA ADDR
;SETUP RCV DATA ADDR
JDATA OK ?
:BR IF OK
;1S IT END OF DATA
:BR IF YES

0021

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

1$:

000000
000437

2%:

105712

020000

013112
011020
013137
011022

CMPB

176066

SCANS:

RDAX:

013012

b el
d
D
d
—d ed

ZERERER

el
lalealalalale

S
o

013314

013366

051105
042503
052101
040505
042510
040505

MSGO:

scw’.

(R1)+

#177
SCAN4

BIT

#BIT13,3SWR

TYPE

MSG2

NOP

(R2)+

DERR

:
;BR IF YES

;IS IT FILL CHAR?

*BR IF YES

;BACKUP

18 1T FILLY
sBR IF YES
;DATA ERROR

;INHIBIT PRINTOUTS
BR IF YES

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

IRDA,

MoV

IXDA,

MOVB
MOVB
HLT+7

(R1) ,R3 :SETUP XMIT DATA
-(R2) .R2
;SETUP RCV DATA
;DATA ERROR HALT

TYPE

TST
RTS

.MSG3

(SP)+
PC

RDAX

PAGE:

MOV
TYPE
0

};;E

TESTDX:

0177

BEQ
BNE

012774

013024
013026
013107
013112
013137

(R2)

DEC

DERR:

1061

TSTB
BEQ

BEQ

000177

J_2
PAGE 23

O
TESTDX

CMPB

000177

16:08

WORD
BR

SETUP DATA ADRESS
PRINT RECEIVED DATA

RECEIVED DATA ADDR.
.+10

<1S><12>DATA SHOULD BE<15><12>
SETUP ADDR.

:PRINT GOOD DATA

;POP STACK
JRETURN FROM SUB/ROUT

LASCIZ <15><12>/THERE WAS A RECEIVER ERROR. REGISTER (SEL 2) =/
ASCIZ <15<12>
LASCIZ <15><12>/RECEIVED DATA = /<15><12>
LASCIZ <15><12>/DATA SHOULD BE/<15><12>
LASCII <15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER)./

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

lelelelelelelelels]

012720

31-MAY-78

0022

31-MAY-78

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

SRRAAA

16:08

K 2
PAGE 24

AR A AR AR AR AR R AR AR AR AR AR AAAA AR A AR AR AR AR AR AR AR AR

TRANSMIT INIT ROUTINE

SRARRAAAAAR AR AR AAAA AR

STOP

;FIRST Tll'E HERE?

013162

TYPE
HALT

MSG4

:TYPE CMCT MESS

BNE

e
e
e e e
T
e T
32233838 ITBERRERE
RRRUNNB
B
I N er a0
3BIRIREV28

d
D d D
D

017020
017016

BASEFG
TEMP1

RTS

D d D
D d
D e
D
D
)
D
D e

CLR
CLR

BEQ

BISB

#25, TEMP2
1, TEMPI
.~6
TEMP2
=14

#140, (R4)
PC

:BR IF NO

;SET FIRST TIME FLAG
sBASE AND CNTL IN ALL DONE?
;B8R _IF NO

*CLEAR FLAG

“GET SET TO DELAY

*INC DELAY
;DEC DELAY COUNTER
:BR IF NOT DONE
sASK FOR XMIT BUFFER
sRETURN

SRR AARAARAAAAAAAAAAARAAAAAARRAAAAARAAAAAAAA
AR A A AR AR AR
AR d

RECEIVE INIT ROUTINE

SRR RRAARAARARAAAAARAAAARRAAAAARARAAAAAAAAAAARRAAAA
A AR AR AR R AR od

013406

STARTR:

013314
013406
017024

18:

017014
017014

TST

28:

sFIRST TIME HERE?
:BR IF NOT

STOP

+SET FIRST TIME FLAG

STOP

BNE
TYPE
coM
TST
BNE
ST
BEQ

2
BASEFG
1$

BISB
CLR

#144, (R4)
RFLAG

CLR

D e

d D e

BASEFG

BNE

000140

STOP

TST

DEC

017020

RTS

,MSGS

RFLAG

BASEFG
PC

s TYPE CONNECT MESS

sHAS AN REC BUFFER ALREADY BEEN GIVEN
;BR IF YES
sBASE AND CNTL IN ALL DONE?
:BR_IF NO
:CLEAR FLAG
:ASK FOR REC BUFFER
+CLEAR FLAG

sRETURN

D d D d

SRAAAAAARAAAAAAAAAAAAAAAAAARAAAAAAAARAAAAAAAAARAAAAAAAA
AR AAR
RS
o

INPUT SERVICE ROUTINE

sRRARARAAAARAAAAAAAAAAAARAARRAAAAAAAAAAAARAAAAARAAAR
AR AR AR RN

XISR:

D
) —d

COM

MOV
ADD
BNE

d D

017014
017016
000025
000001

18:

AR A AR AR AR AAA AR

STARTX: TST

BIT

#BIT1, (R&)

PC,4$

BEQ
BIT
BEQ

18
#BIT2, (R4)
9%

000004 9%:

MOV

#BASE
, 4 (RG)

TST

RE SUME

000006

BEQ
MOV
JSR

d
— e

AR ARRAARRAA AR AR AAAA

013406

013406
017014
1082

PAGE :

CLR

BISB
RTI

6(R4)

8s
#81T12,6(R4)
PC.4$

#141,(R4)

;BASE REQUEST?
:BR IF NO
ég IT REALLY A SHUT DOWN?
IF NO
;YES, CLEAR RaQl
AND RETURN

;LOAD BASE ADDRESS
:CLEAR SEL 6
:RESUME FLAG SET?
:BR IF NOT
;OTHERWISE SET RESUME BIT
;CLEAR RQI

:ASK FOR CNTL 1
sRETURN

0023

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

013632
013636

032714
001430

1130
1131

013646
013650

001403
005064

1129 013640
1132
1133
1134

1135

1136
1137

1138

032737

013654
013656
013664

000413
032737
001404

013674
013676

000403
012764

013724

004737

013720

000002

013726

013732

013740

1152

013752

013760
013762
013766
013774

1153

014002
014010

1155

014022

1158
}}28

014032
014034

0140246
014030

017014

000004

2$:

BEQ
CLR

5%
6(R4)

BR IF HALF
SELECT FULL DUPLEX

017014

177777
011022

017022
000004

3s:

000006

000040

JSR

BIT

BEQ
BIC

0-1 BASEFG

RTI
BIC
MOV
MOV

1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181

014054
014062
014064
014072
014100
014102
014110
014112
014116
014120
014126
014134
014140

022764
001007
142764
012737
000002
022764
001003
152714
000432
016437
016437
104400
013746

000001

000002

RISR:

017012

001000

000006

000207
177777

000002
017014

000004

000006

S%:

011054
011056

3$:

000144

000004
000006
016436
011054

1182 014144 004037 016034

:LOAD REC BYTE COUNT

PC,4$

:CLEAR RQI

#XFLG,STAT
#-1 ,XFLAG
IXDA,4(R4)

sRETURN
JCLEAR XMIT FLAG BIT
JSET XMIT FLAG(FOR TIMEOUT ERROR)
sLOAD XMIT BUFFER ADDRESS

;SET FLAG

;LOAD XMIT BYTE COUNT
;CLEAR RQI

#-1,BASEFG

BICB
TSTB

LAOD REC BUFFER ADDRESS

TXWC,6(R4)

RTI

SET BASE LOADED FLAG
M IF NO
sCLEAR RECEIVE FLAG BIT

PC,4$

MOV

sCLEAR RQI
;RETURN

IRDA, 4(R4)

MOV

1163

032764
(001463
005737
001413

RECEIVE BUFFER REQUEST?

RXWC ,6(R4)

014036
014044
014046
014052

#BIT2,(R4)

MOY

BM]
RTS

1162

C(N INUE
SELECT HALF DUPLEX

33
#RFLG,STAT

MOV
JSR

100776
000207

63
#IT10,6(R4)
PC,4$

#-1 BASEFG

RTI

A ¥

s CONT INUE
SEC(N)ARY STATION?
U! IF

#IT10!BIT1 6(R4) SET SEC MODE AND HALF DUPLEX

MOV

1161

1164
1165
1166
1167
1168

#8172 ,PARAM?2
7%

BR
MOV

JSR

177777

#FULL .DUPLEX, PARMZ FULL OR HALF?

BR
BIT
BEQ

014024

000006

177777 017014

142714
105714

CNTL I REQUEST?
IF NO

MOV

011064

PAGE:

#BITO0, (R4)
23

MOV
7%:
6%:

PAGE 25

BIT
BEQ

011020 000004

011
014024

1154 014014
1156
1157

177777

000006

S$:

0000

1146 013746

1148
1149
1150
1151

011014

013704

1142
1143

1147

000004

16:08

BIT

000006

002000
014024

013716

1145

011014

006000 000006

1140

1144

000001

1%:

013666 012764

1139 013710 012737
1141

000001

21-MAY-78

*SET FLAG
RETUW

#40, (R4)
(R4)

;CLEAR RQI
UAIT FOR RDI TO DROP

=2
PC

:BR IF STILL SET
JRETURN

A AR AR RN AR AN AR AR RN RANRRNRAAARARRRAARRANRRANRAN RN

OUTPUT SERVICE ROUTINE
R RARAR AR AR AR

BIT
BEQ
TST
BEQ

CMP
BNE
B8I(B
MOV
RTI
cMP
BNE
BISB
BR
MOV
MOV
TYPE
MOV

JSR

#81T0,2(R4)
1%
RE SUME
5%

#BIT9,6(R4)
5$
#207,2(R4)
#-1_,BASEFG

#4,6(R4)
3s
#144,(RG)
4%
4(R4) ,ERCSR
6(R4) ,ERDBR
JKMCER
ERCSR -(SP)

RO,$820CT

R R ARRRRRRAARRRRRRARRRRRARRRRRARRRRRARR

;ERROR?
BR IF NO
RESL!E FLAG SET?
H! IF NOT

:1S PROC. ERROR BIT SET?
;BR IF NOT
;CLEAR DONE
;SET BASEFG
JRETURN
;OVERUN ERROR?
BR IF NO
REO(ELE XMIT BUFFER
;SAVE SEL4
SAVE SEL6 (ERROR BITS)
ERRm ME SSAGE
:PUSH SELS ON STACK FOR TYPEOUT

:TYPE 1T oUT

0024

31-MAY-78

014150
014151
014152
014156
014162

006
001

16:08

.BYTE
.BYTE

016632
011056
016034

TYPE

,SPACE3
ERDBR, - (SP)

aSWR

S
S

D e

£
1

174650

011056
000207

000002

48:

BICB

000004

000002

1$:

BIT

040000
000207

000002

ERDBR
#207,2(R&)

D e

PAGE 26

RO,$820CT

D e

d i e

s e P

eSS BB IRIREC28BRIRRR

]

©o
W

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

#207,2(R4)
BIS

000002

BICB
RTI

#XFLG,STAT
XFLAG

#207,2(R4)

PAGE :

s INSERT 3 SPACES
sSPUSH SEL6 ON STACK FOR TYPEOUT
sTYPE

IT OUT

sCHECK BIT 15
;SKIP HALT IF = 0
JHALT IF SWR15 =
:CLR ERDBR LOCATION
;CLEAR DONE
sRETURN
sREC DONE?
:BR IF NO
:SET REC DONE FLAG

:CLEAR DONE

:RETURN

sSET XMIT DONE FLAG

:CLEAR XFLAG
:CLEAR DONE
sRETURN

SRR RRARAAAAAAAAAAAAAAAARAAAAAARARAAAARAAA
AR AR AR AR AR AR AR

SRR

ENTER HERE IF BOOT MODE WAS SELECTED

AR AR AR AR

A A AAAAAAAAAAAAARRARAAAARRAAAAAAARAAA
AR A A AR AR

003000

011012

002000

011012

001000

011012

BOOT:

016636

014314

d od

VNNV

WN=O

e
d

d o

D d e

)

#RFLG,STAT

28:

D d

)

D e

NOWVES WA=

100000
017022
000207

#BIT2,2(R4)
28

BIT
BEQ
BIT
BEQ
BIT
BEQ
TYPE

EIQO'BIWPARAM1; DETERMINE WHICH BOOT MODE
;BR IF AUTO MODE, ORIGINATING STATION
#BI1T10,PARAM1
AU T800

;BR IF AUTO MODE, BOOT STATION

MANORG

sBR IF MANUAL MODE, ORIGINATING STATION
sMANUAL MODE, BOOT STATION
;WAIT FOR MANUAL BOOT

#81T9,PARAM1

.BOOMSG

SRR RAA AR A RA AR A AR AAAAAARAAAAAAAAARAAAARARAAAAAAAA
AR
AR RARS

AUTOMATIC MODE ORIGINATING STATION

SRRARRAAAANAAAAAAAAAAAAA
AR ARAAAANAAARRAA A AR RN AR A AR AR AR AR

014316

AUTORG: MOV
MOVB
MOVB
MOVB

MOVB
TST
BEQ

CLR

017034

MOV
18:

052714

017014
017024
000144

BIS

TST
BEQ

CLR
CLR
BIS

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

BASEFG
#2400,SEL6
#141,(R4)

BASEFG
1$
BASEFG
RFLAG

#144,(R4)

;LOAD MOP1 MESSAGE WITH
;PASSWORD FOUR TIMES

1S BASE REQUEST DONE?
‘BR IF NO

:CLEAR LOCK FLAG
sMAINT. MODE BIT(MOP)
sASK FOR CNTL IN
:1S CNTL IN DONE?
.m IF NO

sCLEAR LOCK FLAG
sCLEAR RECEIVE FLAG
sASK FOR REC BA/CC

0025

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

014410

005737

017014

1241
1242
1243
1244

014416
014422
014426
014434

005037
005037
012737
012737

017014
017022
015606
000005

1246

014446

012737

000005

1248
1249
1250

014460
014464
014466

005737
001012
005337

1240

014414

001775

1245 014442 052714
1247

1251
1252
1253
1254
1255
}ggg

014454

014472
014474
014500
014502
014506
014510

005037

001372
005337
001367
005737
001340
000000

000140
013402

017024

31-MAY-78
28:

014512
014516

012701
013702

1263
1264

014524
014526

122122
001317

1266
1267
}%gg

BASEFG

;1S REQUEST DONE?

017032
017034

CLR
CLR
MOV
MOV

BASEFG
XFLAG
#MOP1,SEL4
#5,SEL6

;CLEAR LOCK FLAG
:CLEAR XMIT FLAG
:SET FOR KMC LOAD
sSET FOR KMC LOAD

017016

MOV

#S, TEMP

3s:

013402
017016
017022

:BR IF NO

#140, (R4)

CLR

sASK FOR XMIT BA/CC

sSET UP DELAY COUNT

DELAY

TST
BNE
DEC
BNE
DEC
BNE
TST
BNE
HALT

014522

014530

014532
014536
014540

005003
005203

022703
001372
004737

015614
011020

48:

RFLAG
4%
DELAY

sRECEIVED ANYTHING?
:BR IF YES
;DEC DELAY COUNTER

38
TEMP1
3%
XFLAG
2%

;WAIT TO RECEIVE
:DEC SECOND COUNT
;BR IF NOT DONE DELAY
;WAS XMIT COMPLETED ?
;BR IF YES, SEND MOP1 AGAIN
;ERROR, MOP1 WAS NEVER SENT OUT

58:

MOV
MOV

#MOP2 ,R1
IRDA,R2

;STARTING ADDRESS OF MOP2
sRECEIVE BUFFER ADDRESS

CMPB
BNE

(R1)+,(R2)+
1%

:COMPARE DATA
:IF _NOT MOP2 TRY AGAIN

CLR

IRERRRE AR

sCLEAR COUNT

cMP
BNE
JSR

015512

1272

INC

000004

1271

1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
}gg‘so

BIS

1270

1273

;DATA OK, BUMP COUNTER

#4 ,R3
5%
. PC,MP3
AR

:DONE YET?
:BR IF NO
;1T WAS MOP2, SO SEND MOP3
AR

RRRRRRRRRRRRR AR

RRERRRCRR AR

Re
e

014544
014550
014552
014556
014562
014566
014572
014576
014600
014604
014606

005737
001775
005037
005037
005037
052714
005737
001362
005737
001357
000771

017014
017014
017030
017024
000144
017030

017024

AUTBOO: TST
BEQ
CLR
CLR
CLR
BIS
1$:
TST
BNE
28:
TST
BNE
BR

BASEFG
AUTBOO
BASEF G
MFLAG
RFLAG
#1464, (R4)
MF LAG
AUTBOO
RFLAG
AUTBOO
18

1ggg

014610
014614
014620
014624
014626

005037
005037
005737
001775
005037

017030
017026
017014
017014

AR AR AR AR AR AR

;BASE COMPLETED?
;BR_IF NO
;CLEAR LOCK FLAG
;CLEAR MAINT FLAG
:CLEAR REC FLAG
sASK FOR REC BA/CC
;ARE WE IN MAINT MODE?
;BR IF YES
;DID WE RECEIVE ANYTHING?
:YES REQUEUE RECEIVE BUFFER
sKEEP ON TRUCKIN'

1287

1290
1291
1292
1293
1294

RRE RN

AUTOMATIC MODE BOOT STATION

1286
1

PAGE:

;CHECK TO SEE IF RECEIVED MESSAGE IS MOP2

1260
1261

1265

PAGE 27

TST

BEQ

}%gg

1262

N_2

16:08

AR RN AR AR RRRRRRRANRRN AR RRERS

MANUAL MODE ORGINATING STATION

MANORG: CLR
CLR
7%:
TST
BEQ
CLR

MFLAG
SFLAG
BASEFG
’$
BASEFG

;CLEAR MAINT FLAG
;CLEAR DDC'P START RECEIVED ERROR FLAG
:BASE LOADED?
:BR IF NO
:RESET FLAG

0026

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

1296
1297

014632

014636
014642

1298

014646

1301

014660

1299
1300
1302
1303
13064
1305
1306
1307

1308

1309
1310
1311
1312

1313
1314
1315

1316
1317
1318
1319
1320
1321
1322
1323
1326

014650
014654

052714
005737
001775

017034

(17014
017024

014664
014670
014672
014676
014700

005737
001437
012714
005714
100376

017026

014706

005037

014702

014712
014720
014724
014730

014732

014736
014742

014746
014752
014754
014760
014764
014770
014774
014776
015002

015004
015006
015012
015020
015026
015030
015032

1333
1334
1335
1336
1337
1338
1339
}332(1)

015044
015050
015054
015056
015062
015066
015072
015076

015036

052714

CLR

000141
017014

005037
005037

1325
1326
1327
1328
1329
1330
1331

1332

005037

31-MAY-78

8$:

000144

1$:

040000

005037

017026

052764
052714
005737
001775

000100
000143
017014

017014

2%:

38:

005037

017014

005737
001775
005037
005037
052714
005737
001733
012714

017014

9%:

017014
017024
000144
017030

4%:

005037
052714

005714

100376
005037
052764
052714
005737
001775
005037

012737

052714
005737
001775
005037
005037
052714
005737
001775

017034
000141

040000
017014
000100
000143
017014
017014

002400
000141
017014

017014
017024
000144
017024

108:

000002

118:

017034

5%:

}3325
1344
1345
1346
1347

1348
1349
1350

PAGE:
;LOAD SEL6 FOR FULL=DUPLEX

CLR
CLR

8s
BASEFG
RFLAG

;BR _IF NOT

TST
BEQ
MOV
TST
BPL

SFLAG
4%
#BIT14, (R4)
(R4)
2%

CLR

BASEFG

CLR

BASEFG

BEQ
BIS

BIS
BIS
TST
BEQ
CLR
BIS

#1461, (R4)
BASEFG

#144, (R4)

SFLAG

#100,2(R4)
#143, (R4)
BASEFG
3%
SEL6
#141, (R4)

sASK FOR CNTLI
sCNTLI DONE?

;RESET FLAG
;CLEAR RECEIVE FLAG
sASK FOR REC BA/CC

;DDCMP START ERROR?
:BR IF NO
sINITIALIZE KMC
sRUN SET?
:BR _IF NO
;CLEAR FLAG

:CLEAR LOCK FLAG
sSET INT ENABLE
;ASK FOR BASE
sBASE DONE?
;BR_IF NO

:CLEAR FLAG

sSET UP FOR FULL-DUPLEX
cASK FOR CNTLI

TST
BEQ
CLR
CLR
BIS
TST
BEQ
MOV

BASEFG
9%
BASEFG
RFLAG
#1644, (R4)
MF LAG
1%
#BIT14, (R4)

BPL
CLR
BIS
BIS
TST
BEQ
CLR

108
BASEFG
#100,2(R4)
#143, (R4)
BASEFG
118
BASEFG

«BR _IF NO
sCLEAR LOCK FLAG
sSET INT ENABLE
;ASK FOR BASE
;BASE DONE?
:BR _IF NO
;CLEAR FLAG

BIS
TST
BEQ
CLR
CLR
BIS
TST
BEQ

#141,(R4)
BASEFG
12$
BASEFG
RFLAG
#1644, (R4)
RFLAG
5%

sASK FOR CNTLI
sCNTLI FINISHED?
;BR_IF NOT
;CLEAR FLAG
sCLEAR RECEIVER FLAG
sASK FOR REC BA/CC
sHAVE WE RECEIVED ANYTHING?
:BR IF NO

TST

MOV

12%:

B 3
PAGE 28

SEL6

BIS
TST

CLR

000002

16:08

(R4)

#2400,SEL6

sCNTLI FINISHED?
:BR IF NOT
:CLEAR FLAG
;CLEAR RECEIVER FLAG
;ASK FOR REC BA/CC
;ARE WE IN MAINT MODE?
:BR IF NO
sINITIALIZE KMC
sRUN SET?

sMAINT. MODE (MOP)

;CHECK TO SEE IF RECEIVED MESSAGE IS MOP2
015100
015106
015110
015112
015114
015116
015120

012701
013702
005003
122122
001343
005203
022703

015614
011020
6%:
000004

MOv
MOV
CLR
CMPB
BNE
INC
P

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

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

;IT ISN'T MOP2, TRY AGAIN
;DATA OK, BUMP COUNT
;DONE YET?

0027

015124
015126

16:08

BNE

001372
004737

JSR

PAGE 29

PC .MP3

PAGE :
JBR IF NO

;1T WAS MOP2, SO SEND OUT MOP3

INPUT INTERRUPT SERVICE ROUTINE (BOOT MODE)

I1ISR:

BIT
BEQ
MOV
CLR
JSR
MOV

#BIT1,(RG)
1%
#BASE ,4 (R4)
6(R4)
PC,4$
#-1 ,BASEFG

;1S IT A BASE REQUEST?
sNO
:YES, LOAD BASE ADDRESS
;CLEAR SEL6
;CLEAR RQI
:SET FLAG

1%:

BIT
BEQ
MOV
JSR
MOY

#BIT0, (R4)
2%
SEL6,6(R4)
PC,4$
#-1,BASEFG

;IS IT CNTL IN?
:BR IF NO
JLOAD SEL6 FOR CNTLI
;CLEAR RQI
:SET FLAG

2%:

BIT

#BIT2,(R4)

MOV
MOV
JSR
MOV

IRDA,4 (R4)
#10,6(R4)
PC,4%
#-1,BASEFG

MOV

SEL4,4(R4)

JSR
MOV

PC,4$

BICB

#4640, (R4)

Voo~

:l'ti't'..t.'*"ittQttttttfifififitiififi.fifi**'.ttttitttt..*tttttt*..'

032714
001413
012764
005064
004737
012737
000002
032714
001411
013764
004737
012737
000002
032714

000002
017046
000006
015304
177777

000004
017014

000006
177777

017014

000004
011020
000010
015304
177777

000004
000006

017032
017034
015304
177777

000004
000006

017014
3s:

017014
4$:

000040

RTI

BEQ

RTI

MOV
RTI

TSTB

BM]

015314

RTS

;RETURN

;1S IT RECEIVE REQUEST?
:NO

;YES, LOAD REC BA
;CC
;CLEAR RQI
*SET FLAG
;RETURN

:XMIT REQUEST, LOAD XMIT BA

SEL6,6(R4G)

JXMIT CC

#-1,BASEFG

:SET FLAG

(R4)

-2

:CLEAR RQI
JRETURN

;CLEAR RQI

;RDI CLEAR?

:NO

JRETURN

:ttttttt't'tttttit'ttfitt't't"ttt.t*tfitfi'i.fitittttttfi'tt..t'.t.t

OUTPUT INTERRUPT SERVICE ROUTINE (BOOT MODE)

OISR:

BIT
BEQ

;tt*Qtttttttt*tt*tt**'ttfittttt.tittttifitit'tfitt.ltt.".ttttttttt

-4

SR e REREREE YINIIIINIIEECLEREREE

31-MAY-78

1 30A(1052)

ttttttttfitttttttttttitt'tttttt.ttttttttfifit.tttttttt't.ttttt't.'

WWWWWWWWW

EAV
S 4

KMC11 ITEP OVERLAY
CZKMOA.P11
24-MAY-78

015316
015324

032764
001453
022764
001004
012737
000456
022764
001004
012737
000446
016437
016437
104400
013746
004037

000001

000002

000010

000006

177777

017030

000200

000006

177777

017026
011054

000008 011056
016436
011054
016034

1$:

28:

CMP
BNE
MOV
BR
cMP
BNE
MOV
BR
MOV
MOV
TYPE
MOV
JSR

#BI1T0,2(R4)
3s

#10,6(R4)
1$
#-1,MFLAG
58
#200,6(R4)
28
#-1,SFLAG
58
4(R4) ,ERCSR
6(R4) _ERDBR
,KMCER
ERCSR, - (SP)
RO,$820CT

;ERROR?
sNO

;YES, MAINT MODE ENTERED?
:NO
;YES, SET MFLAG
:RETURN

ngHP START RECEIVED ERROR?
:YES,SET SFLAG
;RETURN

;SAVE SEL4
:SAVE SEL6 (ERROR BITS)

;ERROR MESSAGE
:PUSH SEL4 ON STACK FOR TYPEOUT
sTYPE IT OUT

0028

31-MAY-78

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

015416
015417

006
001

104400

013746
004037
006

016632
011056
016034

011056
000004

000002

177777

017024

177777
000207

017022
000002

3$:

48:

6
1
,SPACE3
ERDBR, - (SP)

BYTE
BYTE
ST
8PL
HAL T
CLR
BR
BIT
BEQ
MOV
BR

6
1
aSWR
.+

#BIT2,2(R4)
4
#-1,RFLAG
58

BICB

#207.2(R4)

RO,$820CT

ERDBR
X3

MOV

5%:

D 3
PAGE 30

BYTE
BYTE
TYPE
MOV

JSR

173402

015472
015474
015502
015510

16:08

#-1,XFLAG

RTI

PAGE :

; INSERT 3 SPACES
*SPUSH SEL6 ON STACK FOR TYPEOUT

*TYPE IT OUT

;CHECK BIT 15
:SKIP HALT IF = 0
SHALT IF
SWR1S = 1
:CLR ERDBR LOCATION
*RETURN
*RECEIVE DONE?
*BR IF NO
*SET RECEIVE FLAG
*RETURN

SXMIT DONE, SET XMIT FLAG

*CLEAR DONE

*RETURN

:tfitttt'tttttt.ttt'fifitt't*".t.fi'.t.tttt"'fit'tfi.ttfitttttittttt'

MP3:

017014
017014
017022
015620
000154
000140
013402
017022

AR AR AR,

:CLEAR LOCK FLAG

MOV

#MOP3,SEL4

;MOP3 ADDRESS

CLR

DELAY

sSTART DELAY COUNT

BNE
DEC
BNE
HALT
TYPE
TST
HALT
JMP

2%
DELAY
18

:BR IF YES
sDEC DELAY COUNT
:BR IF NO DONE
;ERROR, MOP3 SEND NOT DONE
;0K MOP3 SEND DONE
;POP STACK (ENTERED BY JSR)
sALL DONE HIT CONT TO DO IT AGAIN

.BYTE

6.,0,0.0.0

MOP2:

.BYTE

10,12..1.0

moP3:

.BYTE

0,0,6.0,6.0

BEQ
CLR

MOV
BIS

mMoP1:

88
8

BASEFG

2%:

AR AR AR RARAAAAARARRRARA AR

CLR

011106

177560

A AR

;1S IT OK TO REQUEST

013402

014

BASEFG

1$:

016705

TST

017032
017034

015512
015516

SUBROUTINE TO SEND MOP3 MESSAGE

AR A AR AR

.EVEN

TST

MP3

XFLAG

;B8R _IF NO

;CLEAR XMIT FLAG

#MOP3ED-MOP3,SEL6 ;MOP3 COUNT
#140, (R4)
sASK FOR XMIT BA/CC
XFLAG

.ORGOK
(SP)+

START

sXMIT DONE?

; IMAGE OF PROGRAM TO BE DOWN LINE LOADED
CLR

;SET UP TIMEOUT VECTOR TO HALT

MOV

#1000, SP

;SET UP STACK

RESET

MOV
MOV

#177560,R1
PC.RO

sCLEAR ALL!!

sSET TTY CSR
sMAKE ADDRESS PIC

0029

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

1463

015646

062700

1465
1466
1467
1468
}298

015656
015660
015664
015666
8]@%

100375
112061
001372
012737
005037

1471

015702

006412

1481

015773

006

1486
1487
1488
1489
1490
1491
1492

015774
016002
016010
016016
016024
016032

006412
020122
040517
046440
041455
000012

1464

1482
1483

015652

015774

105761

000034

000004

31-MAY-78

1$:

000024

047502

052117

MSG:

000
MOP3ED:
.EVEN
051105
047111
044504
041511
042117

047522
046040
043516
047522
006505

MLDER:

£ 3
PAGE 31

PAGE:

ADD

#<MSG-.>,RO

;ADDRESS OF MESSAGE

BPL
MOovB
BNE
MOV
CLR

18
(RO)+,6(R1)
1$
#26,aH24
w26

;BR _IF NO
sTYPE A CHARACTER
;KEEP TYPING IF NOT ZERO
;SET UP POWER FAIL VECTOR
sMAKE SURE T BIT CLEAR

LASCIZ

<12><15>/BO0OT MESSAGE WAS RECEIVED SUCCESSFULLY - END OF TEST!!/

.BYTE

.ASCIZ

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

TSTB

000006

000026
000026

16:08

4(R1)

;READY SET?

.EVEN

1493

.'t.'ttfit."tttt.lt'ttti""'.Qtt.t.'.ttttttt'l.t't

}232

:gtzfgcr-—-smsn HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

1494

*BINARY TO OCTAL (ASCII) AND TYPE

1497
1498

:
:

1499
1500

:
:

1501

mov
JSR

BYTE
BYTE

NUM, - (SP)
RO, $820CT

N
M

}ggg

:NUMBER TO BE TYPED
*CALL FOR TYPEOUT

‘N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
‘M=1 OR 0
:1=TYPE LEADING ZEROS

:0=SUPPRESS LEADING ZEROS

1138‘5

ng?b--smen HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST $8SOCT OR $82016

1506
}ggg
1509

P
mov
NUM,
- (SP)
:
JSR
RO, $8201
*$82016---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

1511

1510

CALL:

}2}%

1514
1515

016034
016040

1517
1518

016046
016054

1516 016044

112037
112037

016241
016237

112737
112737

000001
000006

000406

MOV
JSR

$820CT: MOVB
MOVB

016237
016241

B8R

$82016: MOVB
MOVB

NUM,
- (SP)

RO,$82016
(R0)+,$SOMODE+1
(RO)+.SOFILL

:PICKUP THE NUMBER OF DIGITS TO TYPE
SGET THE ZERO FILL SWITCH

#1,SOFILL
#6.SOMODE
+1

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

$8201

0030

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

016062

112737

000005

1523
1524

016076
016102

113704
005404

016241

1526
1527

016110
016114

110437
113704

016240
016237

1520 016070 010346
1521 016072 010446
1522 016074 010546

016236

31-MAY-78
$8201:

MOVB
NEG

SOMODE+1,Ré4
R4

*GET THE NUMBER OF DIGITS TO TYPE

1528
1529
1530
1531
1532
1533
1534
1535

MOV
CLR
ROL
B8R
ROL
ROL
ROL
MOV

1536
1537

016142
016144

006103
105337

1538 016150 100016
016152 042703
1540 016156 001002
1541
016160 005704
1542 016162 001403
1539

1543
1544
1545

016164
016166
016172

005204
052703
052703

1547
1548
1549

016202
016206
016212

104400
105337
003347

1551

016216

005204

}ssgg

016240

000000

1546

016176

110337

016240

3$:

177770

000060
000040

016234

016234
016236

48:
58:
78:

1550 016214 002402

1552
1553
1554
1555
1556
1557
1558
1559
1560
1561

016220
016222
016224
016226
016230
016232
016234
016235
016236
016237

ROL
DECB

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

:SUBTRACT IT FOR MAX. ALLOWED

10(SP) _RS
R5
3$
RS
RS
RS
RS.R3

*PICKUP THE INPUT NUMBER
*CLEAR THE OUTPUT WORD
*ROTATE MSB INTO 'C"'
*GO DO MSB
*FORM THIS DIGIT

R&4.SOMODE
SOFILL.R4

:GET LSB CF THIS DIGIT
*TYPE THIS DIGIT?

R4
#'0,R3
#
R3

*DON'T SUPPRESS ANYMORE 0°'S
*MAKE THIS DIGIT ASCII
*MAKE ASCII IF NOT ALREADY

MOVB

R3,8$

TYPE
DECB
BGT

INC

BR
68:
MOV
MOV
MOV
MOV
RTS
8s:
.BYTE
‘BYTE
SOCNT: .BYTE
$OFILL: .BYTE
$OMODE: 0

1564

“SAVE IT FOR USE
‘GET THE ZERO FILL SWITCH

R3
$OMODE

7s
#177770.R3
48
R4
58

INC
8IS
BIS

*SAVE R3
*SAVE Ré&
*SAVE RS

#6,R4

BPL
BIC
BNE
ST
BEQ

BLT

000744
012605
012604
012603
012616
000200
000
000
000
000

PAGE:
;SET THE ITERATION COUNT

MOVB
MOVB

18:
28:

#5.SOCNT

ADD

016605 000010
005003
006105
000404
006105
006105
006105
010503

PAGE 32

MOVB

MOV
MOV
MOV

1525 016104 062704 000006
016120
016124
016126
016130
016132
016134
016136
016140

16:08

8%
$OCNT
28

6
R4

28
(SP)+,RS
(SP)+.Ré
(SP)+.R3
(SP)+. (SP)
RO
0
0
0
0

‘BR IF NO
*GET RID OF JUNK
*TEST FOR 0
*SUPPRESS THIS 0?
‘BR IF YES
*SAVE FOR TYPING

GO TYPE THIS DIGIT
*COUNT BY
1
‘BR IF MORE TO DO

‘BR IF DONE

*INSURE LAST DIGIT ISN'T A BLANK

*GO DO THE LAST DIGIT
*RESTORE RS
‘RESTORE Ré%
*RESTORE R3
*SET THE STACK FOR RETURNING
*RETURN
*STORAGE FOR ASCII DIGIT
*TERMINATOR FOR TYPE ROUTINE
*OCTAL DIGIT COUNTER
*ZERO FILL SWITCH
*NUMBER OF DIGITS TO TYPE

1565 016242 012737 177777 017012 CKBASE: MOV
1566 016250 005037 017014
CLR

#-1,RESUME
BASEFG

:SET RESUME FLAG
*CLEAR BASEFG

1568 016260 005737 017014

BASEF G

*SHUT DOWN DONE?

MOV
MOV
TST
8PL
CLR

#BI1T14, (R4)
#BIT15. (R4)
(R&)
28
BASEFG

1567

016254

052714

1569

016264

001775

1570
1571
1572
1573
1574

016266
016272
016276
016300
016302

000146

012714 040000
012714 100000
005714
100376
005037 017014

18:
2s:

BIS

BEQ

#146, (R4)
1$

*SHUT DOWN KMC TO UPDATE BASE TABLE
:BR
IF NO

“MASTER CLEAR KMC
:RUN SET?

‘BR IF NO
*CLEAR BASEFG

0031

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

016306

052714

QX JIRES2E BEERRLEL

000100
017012
000003

000002

017046

017036

016507
000003

017046
017046

\3\:!

D
D
D
e
D e
d
d
D
d
d
- —d

3%:

5%:

000013

1581

000143
017014

31-MAY-78

1598

6%:

017036

7%:

MOV
CLR
MOV
CLR

(MPB

BNE
CMPB
CMP
BNE
RTS

TYPE

MOV

CLR

177400
016034

016632

TYPE

.BYTE
.BYTE

¢
CMP
BNE
RTS

047117
042523
000
047523
020040

052516
044522

.NLIST
KMCER:

SOFT:

SPACE3:

BEX
.ASCII
LASCII
LASCIZ
LASCII
LASCII

.ASCIZ

BOOMSG: .ASCIZ
ORGOK:
.ASCIZ
.EVEN
LIST
BEX

RESUME:
BASEFG:
TEMP1:
TEMP2:
XFLAG:

0
0
0
0
O

SFLAG:
MFLAG:
SEL4:
SEL6:

O
0
O
O

RFLAG:

ERRCNT:

017446

BIS
TST
BcQ

MOVB
MOVB
BIC
JSR

000013

1609

16:08

#143, (R4)

BASEF G
33

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

0032
;ASK FOR BASE REQUEST

*BASE LOADED?
JBR IF NO

*SET INTERRUPT ENABLE
*CLEAR RESUME FLAG

*LOAD BASE OFFSET TO ERROR COUNTS
*R1 IS OFFSET INTO SOF TWARE TABLE

BASE (R2) ,ERRCNT
(R1) ; ANY ERRORS THIS PASS?
6%
(R1)+,(R2)+

;BR IF YES
*INC INDEXS

b} 3

2BR IF NO

#13,R2
PC
LSOFT
#3,R2
R

*DONE?

*RETURN
*TYPE SOFT ERROR MESSAGE
*LOAD BASE OFFSET TO ERROR COUNTS
*SOFTWARE TABLE OFFSET

BASE (R2) ,ERRCNT(R1)
; SAVE ERROR COUNTS
BASE
(R2) ,=(SP)
;PUSH ON STACK FOR TYPEOUT
#*C<377>,(SP)

go.sazoct
1

;CLEAR HI-BYTE

STYPE IT OUT

,SPACE3

:INSERT 3 SPACES

#13,R2

*DONE?

(R2)+, (R1)+

7%
PC

*INC INDEXS
:BR IF NO
*RETURN

<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

.BLKW

G.3

PAGE 33

KMC11

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

ITEP OVERLAY

CZKMOA.P11

31-MAY-78

16:08

H 3
PAGE 34

PAGE
:

: THIS ROUTINE IS DESIGNED TO LOAD MICRO CODE INTO THE
sMICRO-CPU AND VERIFY THAT IT WAS LOADED PROPERLY.

;CALL = JSR PC,LDRYRF

:IF A LOAD ERROR IS DETECTED,AN ERROR WILL BE TYPED OUT.
;ROUTINE ''SETMAP'' IS CALLED IN ORDER TO DETERMINE WHICH
;VERSION OF MICRO-CODE TO LOAD.
.
. i

017446
017452
017456

012711
042711

VERFY:

MOV
BIC
CLR
JSR
CLR
MOV
MOV
MOV
MOV
INC
CMP
BGT
JSR

#BIT14, (R1)
:MASTER CLEAR KMC=-11.
#8IT151BIT14, (R1)
sAND SHUT IT DOWN.
RO
:CLEAR UPC POINTER.
PC,SETMAP
*SET MICRO-CODE POINTER IN R2.
(R1)
*START WITH THE CLEAN WORLD.
RO,4 (R1)
SLOAD CRAM ADDRESS.
(R2)+,6(R1)
:LOAD INSTRUCTION WORD.
#1710, (R1)
*SET ROM 0.
#B1T13/81710, (R1)
sWRITE IT...
RO
:UPDATE UPC POINTER.
#2000,R0
*OVER FLOW?
3$
*BR IF NO.
PC,SETMAP
:SET MICRO-CODE POINTER IN R2.

6%:

CLR
CLR

RO
(R1)

LDRVRF:

040000

140000

017574

3s:

000004
000006
002000
022000
002000

017574
011012

000004
002000
000006

015774

017574

017614

040000
023650
000002

027654

PARAM1
108

*VERIFY MICRO-CODE
:=1 NO.

MOV
MOV
CTMP
BEQ

RO,4(R1)
#1710, (R1)
6(R1), (R2)+
9s

*LOAD CRAM ADDRESS.
*SET ROM 0.
:CHECK IF RIGHT?
*BR IF GOOD.

INC

TYPE

002000

017572

TST
BMI

108:

011012

SETMAP:

3s:

,MLDER

*SET UPC POINTER.
*START WITH THE CLEAN WORLD.

:LOADING ERROR.

*BUMP UPC POINTER.

CMP
BGT
MOV

#2000,R0
68
#B8IT14, (R1)

MOV

#LOMAP ,R2

:LOAD ADDRESS OF LOW SPEED.

BEQ
MOV

3s
#HIMAP ,R2

:BR IF NO.
*LOAD HIGH SPEED ADDRESS.

RTS

BIT

RTS

#BIT1,PARAM1
PC

*IS IT DONE?
*BR IF NO.
*MASTER CLEAR KMC=11.
*RETURN.

:IS IT HIGH SPEED?
*RETURN TO CALLER.

0033

KMC11 ITEP OVERLAY

CZKMOA.P11

AUTBOO
AUTORG
BA
BACK
BASE

MACY11 30A(1052) 31-MAY-78 16:08 PAGE gé

24-MAY-78 15:15

014544
014316
011004
013404
017046

EOP
ERCSR
ERDBR
ERRCNT
FLAG

012466
011054
011056
017036
011042

FULL.D= 000001
GO
011410
HIMAP
027654
I1ISR
015132
ILB
= 000010
IRDA
011020

MSG4
013162
MSG5
012314
NODAT = 000200
OISR
015316
ORGOK
016705

MODE =%X000000
MOP1
015606
MOP2
015614
MOP3
015620
MOP3ED 015774
MP3
015512
MSG
015702
MSGO
013026

owl
= 000002
ow0
= 000001
PARAM1 011012
PARAM?2 011014
PARAM3 011016
PRIOR
011010
PRTYO = 000000
PRTY1 = 000040
PRTY2 = 000100
PRTY3 = 000140
PRTY4 = 000200
PRTYS = 000240
PRTY6 = 000300
PRTY7 = 000340
QTPIE
012624
RCC
011070
RCSR =%000004
RDA
011072
RDAX
012774
RESUME 017012
RFLAG
017024
RFLG = 040000
RISR
014036
RIV
011006

DSSTAT
ENTER

011060
012554

MSG2
MSG3

RXWC
RX.TER

. ABS.

033654

IXDA
011022
KBDIN = 104416
KMCER
016436
KMC11
011000
LDRVRF 017446
LOMAP
023650
LOOP = 000020
MANORG 014610
MFLAG
017030
MLDER
015774

ERRORS DETECTED:

MSG1

013107

013112
013137

000
O

DSKZ : CZKMOA,DSKZ : CZKMOA/SOL =CZKMOA . MAC , CZKMOA. P11
RUN-TIME: 6 8 .1_SECONDS
RUN-TIME RATIO: 217/14=14.6

| CORE USED:

17K

(33 PAGES)

PAGE: 0034

SYMBOL TABLE

BASEFG 017014
BITO = 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
BOOT
014260
B2016
011030
CKBASE 016242
DELAY
013402
DERR
013014
DISPLA 011046
DSFLG = 020000

RWAIT = 104410

011064
011041

R6
=%000006
R7
=%000007
SAVRO
013366
SAVR1
013370
SAVR2
013372

’

SAVR3
013374
SAVR4
013376
SAVRS
013400
SCAN4
012672
SCAN5S
012746
SEL4
017032
SEL6
017034
SETMAP 017574
SETTLE 011024
SFLAG
017026
SOFT
016507
SPACE3 016632
SRCSR
011052
START
011106
STARTR 013500
STARTX 013410
STAT =%000000
STOP
013406
STPS = 104414
SWR
011044
sw12 = 010000
SXCSR
011050
TEMP1
017016
TEMP2
017020
TESTD

012626

TESTDX 013022
TIE
= 000100

TIME
TKB
TKS
TP8
TPS

011032
011100
011076
011104
011102

TSTDAT 012662
TXWC
011062
TX.TER 011040
TYPE = 104400
VERFY
017516
XCC
011066
XCSR =
XDA
011074
XFLAG
017022
XFLG = 100000
XISR
013550
X8
=
XWAIT = 104412
$820CT 016034
$8201
016062
$82016 016046
$ILB
011714
SOCNT
016236
SOMODE 016240
$OwI
011500
$0W0
011612
$XLB
012150
SOFILL 016237
.
= 033654