Digital PDFs

AH-S886A-MC

April 1982

161 pages

Original

88MB

view download

OCR Version

116MB

view download

Document:	CZKMEA0 DMS11-DA DMS11-DA DYNAMIC APR 1982 bw
Order Number:	AH-S886A-MC
Revision:	000
Pages:	161
Original Filename:	CZKMEA0__DMS11-DA__DMS11-DA_DYNAMIC__AH-S886A-MC__APR_1982_gray.pdf

OCR Text

DMS11-DA DYNAMIC
CZKMERO

AH-5886A-MC
FICHE 1 OF 1

R
Neve i use

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PTT
20-0CT-81 17:05
.NLIST
EM

MACY11 30A(1052)

21-0CT-81

08:50

1
PAGE 1

SEQ,LOC,BIN
:

IDENTIFICATION
PRODUCT CODE:

AC-S884A-MC

PRODUCT NAME:

CZKMEAO DMS11-DA DYNAMIC

PROGRAM DATE:

SEPTEMBER 1981

MAINTAINER:

CSS/NPG DIAGNOSTICS

"AUTHOR:

R.
R.

C. BALDWIN
J. COLLINS

MAYNARD, MASSACHUSETTS.
ALL RIGHTS RESERVED.

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY

BE USED AND COPIED ONLY IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE AND WITH THE INCLUSION

OF THE ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE OR ANY OTHER
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE

MADE AVAILABLE TO ANY OTHER PERSON.
NO TITLE TO
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR REL IABILITY OF
ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DI GITAL.

SEQ 0001

1.0

MACY11 30A(1052)

21-0CT-81

08:50

1
PAGE 2

ABSTRACT

THE DMS11,<D,=A,~DA

LI E UNIT DYNAMIC DIAGNOSTIC TESTS THE LINE UNIT
S IN THE USYRT MAINTENANCE MODE. THIS DIAGNOSTIC
WITH RESIDENT FIRMWARE IN THE KMC11
EXERCISES THE LINE UNI
CESSOR. THIS DIAGNOSTIC IS A STAND ALONE

FOR BOTH CCP & BOP

PACKAGE
.

2.0

REQUIREMENTS

2.1

EQUIPMENT
PDP=11 PROCESSOR
KMC11 GENERAL PURPOSE MICROPROCESSOR
NOTE:

THIS DIAGNOSTIC WILL TEST UP TO 16 KMC11
GENERAL PURPOSE MICROPROCESSOR'S, BUT THEY
MUST BE INSTALLED SEQUENTIALLY ON THE BUSS
DMS11=D LINE UNIT
NOTE: l=£?1DIAGNOSTIC WILL TEST UP TO 8 LINES PER

2.2

STORAGE

THIS DIAGNOSTIC NEEDS A MINIMUM OF

2.3

16K OF MEMORY LOCATIONS

PRELIMINARY PROGRAMS

CZKMBAQ KMC11-B STATIC PART]
CZKMCAO KMC11-B STATIC PART2
CZKMDAO DMS11-DA DYNAMIC
PRIOR TO EXERCISING THE DYNAMIC DIAGNOSTIC THE KMC11 MUST BE ERROR
FREE.

THIS DIAGNOSTIC DOES NOT

3.0

LOADING PROCEDURE

3.1

ME THOD

TEST THE KMC11

LOAD THE DIAGNOSTIC USING THE ABS LOADER. THIS DIAGNOSTIC IS
SELF STARTING. TO RESTART THE DIAGNOSTIC LOAD ADDRESS S?g (8)
AND DEPRESS START. IF THE DIAGNOSTIC IS ON MAGNETIC ME
FOLLOW THE INSTRUCTIONS FOR TAE MONITOR BEING USED.

SE@ 0002

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

MACY11 30A(1052)

4.0

STARTING PROCEDURE

4.1

STARTING ADDRESS (200)

4.2

RESTART ADDRESS

21-0CT-81

08:50

D1
PAGE 3

RESTART ADDRESS 200 (8)
4.3
OPERATOR ACTION
DURING THE INITIAL START UP THE DIAGNOSTIC WILL OUTPUT TO THE
TELETYPE THE TITLE OF THE DIAGNOSTIC AND ENTER THE MONITOR. DURING

A RESTART THE DIAGNOSTIC WILL NOT OUTPUT THE TITLE OF THE DIAGNOSTIC
BUT ENTER THE MONITOR DIRECTLY. AFTER ENTRY INTO THE DIAGNOSTIC
MONITOR _THE OPERATOR CAN ENTER THE COMMANDS LISTED IN SECTION
4.4 OF THIS WRITEUP.

SEQ 0003

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1T
20-0CT-81 17:05
5.0

MACY11 30A(1052)

21-0CT-81

08:50

1
PAGE &

STARTING AND TEST INITIALIZATION:

LOAD AND START MEMORY ADDRESS 200 BY PRESCRIBED

METHOD AS PER PDP-11 PROCESSOR TYPE.
;?SSCGSJSOLE B'E’VICE WILL IDENTIFY THE DIAGNOSTIC ON THE
THE CONSOLE MONITOR ROUTINE IS ENTERED EACH TIME ON START
UP AND OFFERS THE OPERATOR THE FOLLOWING CHOICES AS
(1) DIAG. TEST (2) CONFIGURE
TO WHICH THE OPERATOR MUST RESPOND WITH A 1 OR 2

FOLLOWED BY A CARRIAGE RETURN.
(1) DIAG. TEST
DIAG. TEST IS ENTERED IF THE CONFIGURATION ROUTINE HA S
BEEN PREVIOUSLY ENTERED AND IF NOT WILL AUTOMATICALLY
GO INTO THE CONFIGURATION ROUTINE TO SPECIFY KMC11(S) STATUS.

BEFORE EXECUTING TESTS AN OPERATOR'S WARNING MESSAGE IS PRINTED
INFORMING OF CONFIGURATINO TABLE UNITS REQUIRING EXTERNAL LOOP
CONNECTORS BE INSTALLED.
UNITS REQUIRING LOOP CONNECTORS
UNIT # 1

LR .ETC

(2) CONF IGURE

WHEN THE CONFIGURE MODE IS ENTERED FOR THE FIRST TIME
THE CONFIGURE TABLE IS ENTERED FROM THE TOP AND THE FIRST

KMC11 IS SPECIFIED

DEV.ADR.= (6 OCTAL CHARACTERS)
(1) BOP (0) CCP
(1) ENABLE (0) ABLE
(WARNING) NO CRC-32 TESTING
(1)CRC-32 (0)NO
CRC
DEV.VEC.=(3 OCTAL CHARACTERS)
(1)EXTERNAL (0) INTERNAL
INT.PRI. (4=7)

;BUS ADDRESS OF KMC11 CSR
+SELECT MODE
:IF 0, UNIT WON'T BE TESTED
:IF BOP WITH CRC32 & INTERNAL (#%#)
(x %)
;VECTOR ADDRESS OF RECEIVE INTERRUPT
:SELECT LOOPBACK
:INTERRUPT PRIORITY LEVEL

LINES(0=-7) (1.E..#.#.4) OR (A)=ALL (N)=NONE
(+ »)

sSELECT ENABLED LINES

IF BOP MODE WAS REQUESTED THE INQUIRY IS PROMPTED AND MUST

BE ANSWERED ACCORDING TO WHETHER THE DMS11, IS A DMS11-A, DMS11-D OR DMS11-DA.

DMS11-A & DMS11-D HAVE CRC-32 AND DMS11-DA DOES NOT.

(*#«)MESSAGE IS PRINTED IF BOP MODE WITH CRC-32 AND OPERATOR

REQUESTS TO RUN INTERNAL LOOP BACK MODE.

DMS11~A: SELECT LINE O ONLY

NOTE:
IF STATUS IS NOT TO BE CHANGED ON CURRENT INQUIRY A CARRIAGE
RETURN (ONLY) MAY BE TYPED

SEQ 0004

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

PAGE 5

AFTER THE INPUTTING IS COMPLETED AN ''+'* IS PRINTED AT WHICH POINT
THE OPERATOR HAS 3 CHOICES BY TYPING AN
lt.l

."l.

(EXIT) THE CONFIGURE ROUTINE (ENTERS CONSOLE ROUTINE OR
DIAG. TEST IF DIAG. TEST WAS THE ENTRY POINT

(MODIFY) AN M FOLLOWED BY A #1-16 (DEC) TJ SPECIFY THE DESIRED
THE STATUS BLOCK IS PRINTED

KMC11'S STATUS TO BE MODIFIED.
AND THE NEW STATUS INVOLKED.
..A..

(ALL) FROM LAST KMC11 PARAMETER BLOCK POINTED TO EITHER BY
THE INITIAL ENTRY OR_THE '"MODIFY'' ROUTINE THE REMAINING
BLOCKS ARE LOADED WITH THE SAME CONFIGURATICON STATUS TO THE END
OF THE CONFIGURATION TABLE.

* ANY COMBINATION OF D$¥IfE STATUS CAN BE CONFIGURED AND RUN AS
S ENABLED IN THE TABLE
LONG AS AT LEAST 1 KMC
:
CONTROL

TYPING A CNTR C
ROUTINE.

(*C) WILL FORCE ENTRY TO THE MONITOR

PROCESSORS WITHOUT CONSOLE PANELS WILL HAVE A SOFT

SWITCH REGISTER WHICH IS INVOLKED BY THE OPERATOR TYPING
A CNTR G (“G). AFTER THE NEW SWITCH VALUE IS ENTERED THE
PROGRAM IS RESUMED AT POINT OF

“G INVOLK.

SEQ@ 0005

MACY11 30A(1052)

21-0CT-81

08:50

1
PAGE 6

SWITCH OPTIONS:

5.1

THE SWITCH REGISTER SETTING MUST BE DONE ACCORDING TO
PROCESSOR TYPE A?D HARDWARE ARCHITECT.

IT15 =

;HALT ON ERROR
:LOOP ON TEST
:INHIBIT ERROR TYPEOUTS
:RING BELL ON ERROR
:LOOP ON ERROR

81T14 =1

BIT13 = 1
BIT10 = 1
BITO9 = 1

TEST EXECUTION + SEQUENCES:

EACH TEST MUST BE SUCCESSIVELY COMPLETED
BEFORE THE NEXT CAN BE ENTERED.
ALL TESTS
ARE RUN SEQUENTIALLY ON EACH UNIT (KMC +

DMS11D) AND THE CURRENT DEVICE IS SPECIFIED

BY THE SEQUENCE OF THE CONFIGURATION TABLE
(ENABLED UNITS ONLY).

6.0

ERRORS

ALL ERRORS ARE REPORTED ON THE TTY UNLESS CONSOLE SWITCH

13 IS SET (REFER TO SECTION 5.1 OF THIS WRITEUP). ALL ERRORS

REPORTED HAVE A ENGLISH TYPE STATEMENT EXPLAINING THE ERROR
WITH OUTPUT OF CERTAIN REGISTERS OR MEMORY LOCATIONS WHICH
CAN BE USED AS AN AID.

6.1

ERROR REPORTING:
ERROR LOGGING CONTROL IS IN ACCORDANCE WITH THE SWITCH
REGISTER SETTINGS AS DESCRIBED UNDER ‘'SWITCH OPTIONS''

ALL ERROR REPORTS ARE HEADED BY THE FOLLOWING INFORHATION

L.UNIT

(# OF FAILING UNIT)

TEST

(# OF FAILING TEST)

FAIL

(# INDICATING THE FAILURE)

THE ADDITIONAL FIELDS ARE IN ACCORDANCE TO THE TEST AND
DATA FIELDS OF CONCERN.
THE FOLLOWING DESCRIBES THE POSSIBLE
DATA FIELDS.

SHBE =

THE (SHOULD-BE) VALUE OF THE EXPECTED DATA OF THE
SUBTEST (FAIL _#).
THE SHBE VALUES ARE DES'RIBED IN

THE SECTION "TEST DESCRIPTIONS AND FAILE_# INFORMATION:''

WITH RESPECT TO THE FAIL #.

WAS

THE (WAS) FIELD IS THE VALUE RECEIVED PERTAINING
TO THE DATA OR STATUS UNDER TEST.

THE WAS VALUES

ARE DESCRIBED IN THE SECTION "‘TEST DESCRIPTIONS AND
FAIL # INFORMATION:'' WITH RESPECT TO THE FAIL #.
LINE # = THE NUMSER OF THE FAILING DMS11 MULTIPLEXED LINE
IN THE RANGE OF 0 THROUGH 7.

SEQ 0006

oTM

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1T
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

PAGE 7

nmownmn

o
&»

DEV. ADR. = FIRST CSR ADDRESS OF UNIT FAILING.

THE CONTENTS OF THE FOUR CONTROL AND STATUS REGISTERS
AT TIME OF DETECTED FAILURE.
NOTE: NOT ALL CSR'S CONTENTS MAY BE PERTINENT TO THE

ENCOUNTERED ERROR, THIS IS DUE TO THE NATURE OF THE
SPECIFIC PROTCOL.
THE OPERATOR MUST BE FAMILIAR

WITH THE PROTCOL HANDBOOK AND REGISTER USAGE WITH
RESPECT TO THE COMMAND CURRENTLY REFLECTED IN THE CSR'S.

SEQ 0007

CZKFEAO DMS11-DA DYNAMIC

CZKMEA.P11

20-0CT-81 17:05

MACY11 30A(1052) 21-0CT-81 08:50 lPM;E 8

= BITS O + 1 DISPLAY ADDRESS BITS 16 + 17 RESPECTIVELY
BUFEA

OF THE CURRENT BUFFER ADDRESS UNDER TEST.

BUFADR = LOW ORDER 16 BITS OF BUFFER ADDRESS UNDER TEST.
T=BUFF = TRANSMIT BUFFER ADDRESS THAT SHOULD BE RETURNED

(FROM THE KMC11).

R-BUFF = RECEIVE BUFFER ADDRESS THAT SHOULD BE RETURNED

(FROM THE KMC11)

CUR-EA
= BITS 0 + 1 DISPLAY ADDRESS BIT 16 + 17 RESPECTIVELY
OF THE CURRENT BUFFER ADDRESS UNDER TEST.

CURBUF = LOW ORDER 16 BITS OF BUFFER ADDRESS UNDER TEST.

SEQ@ 0008

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:05

MACY11 30A(1052)

7.0

TEST INFORMATION

7.1

TEST EXECUTION + SEQUENCES:

21-0CT-81

08:50

1
PAGE 9

EACH TEST MUST BE SUCCESSIVELY COMPLETED
BEFORE THE NEXT CAN BE ENTERED.
ALL TESTS
ARE RUN SEQUENTIALLY ON EACH UNIT (KMC +
DMS11D) AND THE CURRENT DEVICE IS SPECIFIED
BY THE SEQUENCE OF THE CONFIGURATICN TABLE
(ENABLED UNITS ONLY).
7.2

TEST DESCRIPTIONS AND FAIL # INFORMATION:
TEST 1
THIS TEST CHECKS FOR THE PRESENCE OF THE

CURRENTLY ENABLED KMC=11 BY INITIALIZING THE

FIRMWARE AND TESTING THAT THE FIRMWARE RESPONDS

BY CLEARING 'BSELZ2"
ERROR REPORT:

FAIL #S.

1=KMC-11 DEVICE ADDRESS DOES NOT RESPOND

2=KMC-11 FIRMWARE FAILED TO INITIALIZE
DEV.ADDR.
(BASE ADDRESS OF FAILING UNIT?

TEST 2
THIS TEST CHECKS THAT THE READY IN BIT (BIT7-SELO) IS
INITIALIZED AND CONTROLLED BY THE FIRMWARE.
THE READY IN
BIT IS TESTED FOR BEING INITIALLY CLEARED THEN
THE REQUEST IN BIT (BIT5-SELO) IS SET AND READY IN
IS TESTED FOR BEING SET BY THE FIRMWARE, THEN REQUEST IN
IS CLEARED AND READY-IN TESTED FOR BEING CLEARED BY THE FIRMWARE.

ERROR REPORT:

FAIL #S

1=KMC-11 FAILED TO INITIALIZE
=KMC-11 READY IN BIT SET WITH NOT REQUEST-IN

3=KMC=11 FIRMWARE FAILED TO SET READY-IN WHEN REQ. IN WAS SET

4=KMC-11 FIRMWARE FAILED TO CLEAR READY-IN WHEN REQ.
SHBE
WAS

(STATUS SELO SHOULD BE)

(STATUS SELO READ AS)

(* IF PERTAINING)

TEST 3

THIS TEST CHECKS THAT THE KMC-11 FIRMWARE IS NOT

REQUESTING AN QUTPUT OF ANY TYPE, BY EXAMINING BSEL2

OF THE KMC-11 CSR'S

IN WAS CLEARED

SE@ 0009

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

1
PAGE 10

ERROR REPORT
FAIL #S
1=FIRMWARE FAIL TO INITIALIZE

TEST 4&:
THIS TEST WILL DO A LINE INITIALIZE TO ALL LIN E
AND TEST THAT THE READY-IN BIT (BIT7-BSELO) SET

INITIALIZE COMMAND

wwm

2=KMC=11 REQ AN OUTPUT AFTER BEING INITIALIZED
SHBE
WAS
(STATUS BSEL2 SHOULP BE) (STATUS BSEL2 READ AS)

(SUCCESSIVELY)

AFTER EACH

ERROR REPORT:

FAIL #S

1=KMC=-11 FIRMWARE FAILED TO INITIALIZE
2=CANNOT ISSUE AN INPUT COMMAND (OUTPUT REQUESTED OR RDY=-IN FAILED)
3=F IRMWARE FAILED TO COMPLETE LINE INITIALIZE COMMAND.

TEST 5:
THIS TEST WILL ISSUE A '‘TRANSMIT BUFFER IN'' TO EACH LINE
AND TEST THAT EACH COMMAND ACCEPTS.

ERROR REPORT:
FAIL #°'S
1=F IRMWARE FAILED TO INITIALIZE

2=INPUT CANNOT BE ISSUED (FIRMWARE HUNG OR OUTPUT PENDING)
3=XMIT BUFFER IN FAILED TO COMPLETE

TEST 6:

THIS TEST WILL ISSUE A "RECEIVE BUFFER IN'' TO EACH LINE
AND TEST THAT EACH COMMAND ACCEPTS.
ERROR REPORT

FAIL #'S

1=F IRMWARE FAILED TO INITIALIZE

2=INPUT CANNOT BE ISSUED (FIRMWARE HUNG OR OUTPUT PENDING)
3=RECEIVE BUFFER IN FAILED TO COMPLETE

TEST 7:

THIS TEST CHECKS THAT EACH LINE CAN ACCEPT AND FIEL
TRANSMIT AND RECEIVE BUFFER.
EACH LINE IS INITIALI
THE MAINT. LOOP AND CLOCK IS ENABLED AND TWO RECEIVE
AND ONE TRANSFMIT BUFFER ARE THEN QUEUED TO THE LIN
TEST.
+=A SERIES OF TESTS ARE PERFORMED TO CHECK THAT

SEQ@ 0010

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1T
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

L1
PAGE 11

SEQ@ 0011

1) THE FIRST RECEIVE BUFFER IS RETURNED WITH AN EMA (1)
STATUS AND THE CORRECT ENDING MEMORY ADDRESS,
2) THE TRANSMIT BUFFER IS RETURNED WITH A 1 STATUS AND THE
CORRECT MEMORY ADDRESS.
THE FAIL #'S RANGE FROM 1 TO 22 (OCTAL)
ERROR REPORT:

TEST #

FAIL #

RIM'S ERNUM

LINE #

CURLIN

SHBE

CSRO

CSR2

1=F IRMWARE FAILED TO INITIALIZE *
=CURRENT LINE FAILED TO COMPLETE LINE INITIALIZE *
=MAINTENANCE COMMAND

(START CLOCK + INTERNAL LOOP)

CSR4

CSRé

CSR6

CSRé

FAILED TO COMPLETE

4=1ST "BUFFER IN'' COMMAND (RECEIVE BUFFER) FAILED TO COMPLETE
5=2ND 'BUFFER IN'' COMMAND (RECEIVE BUFFER) FAILED TO COMPLETE+
6=3RD 'BUFFER 5" ' COMMAND (TRANSMIT BUFFER) FAILED TO COMPLETE +
7=BIT 5 OF SELZ FAILED TO SET WITHIN SPECIFIED TIME (FIRST BUFFER)
10=1ST COMMAND (SEL2) NOT PROPER RETURNED BUFFER TYPE
11=1S1 STATUS (SEL7) NOT = 1 (END COUNT REACHED)
12=1ST RETURNED LINE NUMBER IS INCORRECT (SEL3)
13=1ST ENDING BUFFER ADDRESS EXTENDED BITS (SEL7) INCORRECT
14=1ST ENDING BUFFER 16-BIT ADDRESS (SEL4) INCORRECT
15=BIT 5 OF SELZ FAILED TO SET WITHIN SPECIFIED TIME (SECOND BUFFER)
16=2ND COMMAND (SEL2) NOT PROPER RETURNED BUFFER TYPE
17=2ND STATUS (SEL7) NOT = 1 (END COUNT REACHED)
20=2ND RETURNED LINE NUMBER IS INCORRECT (SEL3)
21=2ND ENDING BUFFER ADDRESS EXTENDED BITS (SEL7) INCORRECT
22=2ND ENDING BUFFER 16-BIT ADDRESS (SEL4) INCORRECT
*=]F ATTEMPTING AN INPUT FUNCTION AND AN OUTPUT IS PENDING
THE COMMAND IS ABANDONED AND SEL2 WILL
SHOW THE OUTPUT REQUEST, OTHERWISE IT IS ASSUMED THAT THE
FIRMWARE IS NON-RESPONSIVE

TEST 10:
THIS TEST CHECKS THAT A LINE OVERFLOW CMDITION UILL RETURN A
CONTROL OUT""
STATUS INDICATING THE LINE OVERF
EACH LINE IS TESTED FOR RETURNING THE OVERFLOU STATUS BY INITIALIZING
THE LINE, QUEUEING A 10 CHARACTER TRANSMIT BUFFER AND
A 1 CHR.
RECIEVE BUFFER AND TESTING THAT A CONTROL OUT COMMAND INDICATING
A LINE OVERFLOW FOR THE CURRENT LINE IS RETURNED AFTER THE REC. BUFFER IS RETURNED

1=INITIALIZATION OF THIS TEST FAILED (FIRMWARE HUNG OR OUTPUT REQ.IS SET)
2=RECEIVE BUFFER IN FAILED TO LOAD
3=TRANSMIT BUFFER IN FAILED TO LOAD
4=RECEIVE BUFFER NOT RETURNED
5=CONTROL OUT COMMAND FAILED TO RETURN
6=RETURNED COMMAND (SEL2) IS NOT A CONTROL OUT
7=SEL7 DOES NOT lNDICATg A LINE OVERFLOW
10=RETURNED LINE # (SEL3) IS INCORRECT.

CZKMEAO DMS11=DA DYNAMIC
CZKMEA.P1T
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

mn1

PAGE 12

TEST 11:
THIS TEST CHECKS THAT THE RECEIVE BUFFERS ARE KILLED BY THE ‘‘LINE RESET''

COMMAND BY INITIALIZING THE CURRENT LINE., QUEUEING A SHORT RECEIVE BUFFER
TO THE LINE, ISSUEING A ‘LINE RESET'' COMMAND, STARTING THE

MAINTENANCE CLOCK,

QUEUING A SECOND RECEIVE BUFFER TO THE LINE,

SENDING A LONGER TRANSMIT BUFFER TO THE LINE,

AND TESTING THAT A CONTROL OUT COMMAND IS RETURNED (LINE OVERFLOW

OF THE CURRENT LINE) AFTER ONE RECEIVE BUFFER OUT IS RETURNED.

1=INITIALIZATION OF THIS TEST FAILED ((SHBE=0)
2=RECEIVE BUFFER FIALED TO LOAD (SHBE=0)
3=CONTROL IN COMMAND (LINE RESET) CANNOT BE ISSUED (SHBE=0)
4 =LINE RESET COMMAND FAILED TO COMPLETE (SHBE=0)
5 =CLOCK FAILED TO START
6 =2ND RECEIVE BUFFER FAILED TO LOAD (SHBE=0)

7 =TRANSMIT BUFFER IN FAILED TO LOAD (SHBE=0)
1 O=RECEIVE BUFFER OUT WAS NOT RETURNED (SHBE=0)
1=AN OUTPUT WAS NOT RETURNED FROM THE KMC (INDICATING A LINE OVERFLOW) (SHBE=0)

] % LINE OVERFLOW BIT IN SEL7 NOT SET

13=LINE # (SEL3) NOT SAME AS LINE UNDER TEST

TEST 12:
THIS TEST WILL CHECK THAT THE TRANSMIT BUFFERS ARE KILLED BY A
LINE RESET BY INITIALIZING THE CURRENT LINE,
QUEUEING A TRANSMIT BUFFER TO THE LINE, ISSUING A LINE RESET
COMMAND, STARTING THE CLOCK, AND TESTING THAT NO

OUTPUT IS RETURNED FROM THE KMC.

1=F IRMWARE HUNG OR REQUESTING TO DO AN OUTPUT

(SHBE=0)

2=TRANSMIT BUFFER IN FAILED TO COMPLETE (SHBE=0)
=LINE RESET COMMAND FAILED TO COMPLETE (SHBE=0)

4=MAINTENANCE COMMAND FAILED TO START CLOCK

(SHBE=0)

5=AN OUTPUT COMMAND WAS RETURNED FROM THE KMC (SHBE=0)

TEST 13:

THIS TEST WILL CHECK THAT THE ''IN ABORT'' COMMAND DOES NOT
TERMINATE ANY OF THE TRANSMIT BUFFERS BY INITIALIZING EACH
LINE, SENDING
A TRANSMIT BUFFER TO THE LINE THEN ISSUEING
A LINE ABORT
*'IN'*
(BIT1 SEL7=1) TO THE LINE,
AND TESTING

THAT THE NORMAL XMIT BUFFER OUT (EMA) IS REfURNED.

MACY11 30A(1052)

21-0CT-81

08:50

1
PAGE 13

SEQ@ 0013

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

|
|

1=F IRMWARE HUNG OR AN OUTPUT REQUEST PENDING IN TEST SETUP ROUTINES

2=BUFFER IN FAILED TO COMPLETE
35=ABORT COMMAND CANNOT BE ISSUED

4=LINE ABORT COMMAND FAILED TO COMPLETE

5=NO OUTPUT REQUESTED AFTER THE ABORT COMMAND
6=STATUS ON XMIT BUFFER OUT IS NOT ENDING MEMORY ADDRESS (1)

TEST 14:
THIS TEST WILL CHECK THAT THE '‘OUT ABORT'' COMMAND DOES NOT
TERMINATE ANY OF THE RECEIVE BUFFERS BY INITIALIZING EACH
LINE, SENDING
A RECEIVE BUFFER TO THE LINE, THEN ISSUEING
A LINE ABORT 'OUT"
(BIT1 SEL7=1) TO THE LINE, AND TESTING
THAT NO STATUS

(BUFFER OUTS)

IS RETURNED.

EALL
'S o

1=F IRMWARE HUNG OR AN OUTPUT REQUEST PENDING IN TEST SETUP ROUTINES

2=BUFFER IN FAILED TO COMPLETE
3=ABORT COMMAND CANNOT BE ISSUED

4=LINE ABORT COMMAND FAILED TO COMPLETE

5=0UTPUT IS BEING REQUESTED AFTER THE ABORT COMMAND

TEST 15:
THIS TEST WILL CHECK AN "ABORT QUT'' COMMAND WILL RETURN (KILL)

THE BUFFER CURRENTLY QUEUED TO THE LINE UNDER TEST, BY INITIALIZING
ALL LINES, SENDING A TRANSMIT BUFFER TO EACH LINE, THEN ISSUEING
A LINE ABORT OUT COMMAND TO EACH LINE INDIVIDUALLY, TESTING THAT
ONLY THE BUFFER OUEUED. TO THAT LINE IS RETUPNED WITH A

STATUS (SEL6) OF

(=6)

'‘TERMINATED ON REQUEST''.

ERROR REPORT:
FAIL #°'S

g
=TRANSMIT BUFFER IN FAILED TO LOAD (SHBE=0)
=ABORT COMMAND CANNOT BE ISSUED (SHBE=0)

4=THE ABORT COMMAND FAILED TO COMPLETE

(SHBE=0)

6=NO ABORTED BUFFER RETURNED (SHBE=0)
7=COMMAND OUT NOT VALID AS PER SELO (SHBE=SELO)

# RETURNED NOT CORRECT (SHBE=LINE #)
US RETURNED (SEL6) NOT °‘‘TERMINATED ON REQ.''(-6)

10=
1=

(SHBE=-6)

TEST 16:
THIS TEST WILL CHECK AN ''ABORT IN'' COMMAND WILL RETURN (KILL)
THE BUFFER CURRENTLY QUEUED TO THE LINE UNDER TEST BY INITIALIZING

CZKMEAC UMS11-DA DYNAMIC

20-0CT-81 17:05
ALL LINES,

21-0CT-81

08:50

2
PAGE 14

SEQ@ 0014

SENDING A RECEIVE BUFFER TO EACH LINE, THEN ISSUEING

A LINE “ABORT IN'* COMMAND TO EACH LINE INDIVIDUALLY, TESTING THAT

ONLY THE BUFFER QUEUED 10 THAT LINE IS RETURNED WITH

STATUS (SEL6) OF (=6) '‘TERMINATED ON REQUEST''.

EALL
#S o

1=F IRMWARE HUNG OR OUTPUT REQ. WHEN INITIALLY SETTING UP TEST

Z-RECEIVE BUFFER IN FAILED TO LOAD (SHBE=0)
3=ABORT COMMAND CANNOT BE ISSUED (SHBE=0)

4=THE ABORT COMMAND FAILED TO CWLETE (SHBE=0)

5=PRIMING TRANSMIT BUFFER IN FAILED TO COMPLETE (CCP ONLY)
6=NO ABORTED BUFFER RETURNED (SHBE=0)
7=COMMAND OUT NOT VALID AS PER SEL?2 (SI-EE=SEL2)
10=LINE # RETURNED NOT CORRECT (SHBE=LINE
#
"
11=STATUS RETURNED (SEL6) NOT '‘TERMINATED M REC.''(=6)
12=PRIMING TANSMIT BUFFER FAILED TO RETURN (CCP ONLY)

TEST 17:

THIS TEST CHECKS THAT AN ALTERNATE '‘TRANSMIT'®

(SHBE=-6)

BUFFER CAN BE QUEUED

TO EACH LINE AND IS RETURNED WHEN A LINE ABORT COMMAND

IS ISSUED.
AFTER EACH LINE IS TESTED FOR RETURNING ITS
BUFFERS, AN ALTERNATE BUFFER IS QUEUED TO THE LINE

EALL
#'s o

1=F IRMWARE HUNG OR OUTPUT REQ. ON INITIAL TEST SETUP ROUTINES

2=1ST _TRANSMIT BUFFER IN FAILED TO LOAD (SHBE=0)
3S=ALTERNATE TRNASMIT BUFFER FAILED TO LOAD

4=ABORT COMMAND CANNOT BE ISSUED

5=LINE ABORT COMMAND FAILED TO COMPLETE
7=NO RESPONSE (OUTPUT) AFTER ABORTING BUFFER (1ST BUFFER)

(SHBE=200)
10=0UTPUT NOT A BUFF OUT OR BIT2-SEL2 SHOJS INCORRECT BUFFER TYPE (1ST BUFF)

D) = b b ek d
ONVle—'

CZKMEA.P

MACY11 30A(1052)

LINE NUMBER (SEL3) OF RETURNED BUFF INCORRECT (1ST BUFFER)

RETURNED BUFFER STATUS (SEL6) NOT A =6 (1ST BUFFER)

2ND ABORT COMMAND CANNOT BE ISSUED
2ND LINE ABORT COMMAND FAILED TO COMPLETE

(SHBE=LINE
#)

(SHBE==6)

NO _RESPONSE (OUTPUT) AFTER ABORTING BUFFER (2ND BUFFER)

(SHBE=200)

=0UTPUT NOT A BUFF OUT OR BIT2-SEL2 SHOWS INCORRECT BUFFER TYPE (2ND BUFF)
21=LINE NUMBER (SEL3) OF RETURNED BUFF INCORRECT (2ND BUFFER) (SHBE=LINE
#
22=RETURNED BUFFER STATUS (SEL6) NOT A =6 (2ND BUFFER) (SHBE==6)
24=LAST ALTERNATE BUFFER FAILED TO LOAD

TEST 20:

THIS TEST CHECKS THAT AN ALTERNATE 'RECEIVE'' BUFFER CAN BE QUEUED
TO EACH LINE AND IS RETURNED WHEN A LINE ABORT COMMAND

IS ISSUED.

AFTER EACH LINE IS TESTED FOR RETURNING ITS

(SHBE=200)

CZKMEAO DMS17-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

2
PAGE 15

SEQ 0015

BUFFERS, AN ALTERNATE BUFFER IS QUEUED TO THE LINE

EALL
S

1=F IRMWARE HUNG OR OUTPUT REQ. ON INITIAL TEST SETUP ROUTINES
§=1SY TRANSMIT BUFFER IN FAILED TO LOAD (SHBE=0)
=ALTERNATE TRNASMIT BUFFER FAILED TO LOAD
=ABORT COMMAND CANNOT BE ISSUED
=LINE ABORT COMMAND FAILED TO COMPLETE
=PRIMING TRANSMIT BUFFER _FAILED TO LOAD

(CCP ONLY)

=NO RESPONSE (OUTPUT) AFTER ABORTING BUFFER (1ST BUFFER) (SHBE=200)
0=0UTPUT NOT A BUFF OUT OR BIT2-SEL2 SHOWS INCORRECT BUFFER TYPE (1ST BUFF)

(SHBE=200)

IMING TRANSMIT BUFFER NOT RETURNED (CCP ONLY)
ABORT COMMAND CANNOT BE ISSUED
LINE ABORT COMMAND FAILED TO COMPLETE
PRIMING TRANSMIT BUFFER FAILED TO LOAD (CCP ONLY)
RESPONSE (OUTPUT) AFTER ABORTING BUFFER (2ND BUFFER) (SHBE=200)
TPUT NOT A BUFF OUT OR BIT2-SEL2 SHOWS INCORRECT BUFFER TYPE (2ND BUFF)

(SHBE=200)

INE NUMBER (SEL3) OF RETURNED BUFF INCORRECT (1ST BUFFER) (SHBE=LINE #)
ETURNED BUFFER STATUS (SEL6) NOT A =6 (1ST BUFFER) (SHBE=-6)

LINE NUMBER (SEL3) OF RETURNED BUFF INCORRECT (2ND BUFFER)

RETURNED BUFFER STATUS (SEL6) NOT A =6 (2ND BUFFER)

2ND PRIMING TRANSMIT BUFFER NOT RETURNED (CCP ONLY)

(SHBE=LINE #)

(SHBE==6)

LAST ALTERNATE BUFFER FAILED TO LOAD

TEST 21:

THIS TEST CHECKS THAT ALTERNATE BUFFERS CAN BE QUEUED TO EACH

LINE AND ARE PROPERLY HANDLED BY THE FIRMWARE.
A PROGRESSION IS
DONE, TESTING THE QUEUEING OF ALTERNATE BUFFERS TO EACH LINE
THE CURRENT LINE IS QUEUED 2 RECEIVE AND 2 TRANSMIT BUFFERS
AND A TEST THAT THE BUFFERS FOR THE CURRENT LINE ARE RETURNED CORRECTLY.

1=FAILURE IN TEST INITIALIZATION ROUTINES
=RECEIVE BUFFER FAILED TO LOAD (SHBE=0)

3=TRANSMIT BUFFER FAILED TO LOAD (SHBE=0)

(SHBE=0)

4=0UTPUT REQ. NOT SET (BUFFER NOT RETURNED)

(SHBE=0)

5=WRONG LINE NUMBER RETURNED (SHBE=CURRENT LINE #)
6=WRONG STATUS RETURNED (SHBE=CORRECT STATUS)
7=RETURNED BUFFER ADDRESS NOT CORRECT (SHBE=CORRECT ADDRESS)
10=THERE HAVE BEEN 4 BUFFERS OUT BUT NOT 2 RX + 2 TX (SHBE=# OF RX BUFFERS)
11=AFTER 4 BUFFERS ANOTHER REQ.OUT IS POSTED (SHBE=# OF RX BUFFERS SO FAR)

TEST 22:
THIS TEST CHECKS THAT A NON-EXISTANT MEMORY STATUS (=5) WILL BE
RETURNED WITH A RECEIVE BUFFER OUT.

THE NON-EXISTANT MEMORY

kggagéggbls 170 PAGE LOCATION 10 TO WHICH THE RECEIVE BUFFER IS

ERROR REPORT:

TM r

—

MACY11 30A(1052)

21-0CT-81

08:50

2
PAGE 16

SEQ@ 0016

FAIL #°'S
1=FAILURE IN TEST INITIALIZATION ROUTINES (SHBE=0)

2=RECEIVE BUFFER FAILED TO LOAD
S=TRANSMIT BUFFER FAILED TO LOAD

4=NO _OUTPUT RESPONSE FROM THE (NON-EXISTANT MEMORY) TRANSFER,

(SHBE= 204 (SEL2))

5=OUTPUT RESPONSE NOT FROM A RETURNED RECEIVE BUFFER_(SHBE=204(SEL2))
6=RETURNED RECEIVE BUFFER STATUS NOT CORRECT (SHBE==5 (NXM=-STATUS))

TEST 23:
CCP MODE ONLY
THIS TEST WILL CHECK THAT THE 2 CHARACTERS ETX AND ETB

ARE DETECTED AND PROPERLY RETURN THE BUFFER OUT COMMAND STATUS.
BOTH CHARACTERS ARE TESTED INDIVIDUALLY WITH EACH PREFIXED
BY AN SOH THEN A STX

REPORT:
ERROR
g:?L;sLOU BYTE = SOH OR STX HIGH BYTE = ETX OR ETB (FAILING COMBINATION)
1=FAILURE IN TEST SET UP ROUTINES

2=RECEIVE BUFFER FAILED TO LOAD
3S=TRANSMIT BUFFER FAILED TO LOAD

4=NO RESPONSE WAS RECEIVED FROM THE TERMINATION CHARACTER

S=RETURNED COMMAND IS NOT A RECEIVE BUFFER OUT
6=BUFFER RETURNED DOES NOT HAVE CORRECT ENDING MEMORY ADDRESS
7=SEL6 RETURNED STATUS IS NOT CORRECT

TEST 24:
CCP MODE ONLY

THIS TEST CHECKS THAT AN LRC ERROR CONDITION CAN BE DETECTED
AND RETURNS THE RECEIVE BUFFER WITH AN LRC CONDITION
TO GENERATE THE LRC ERROR A SPECIALLY FORMATTED BUFFER IS OUTPUT WITH
AN ADDITIONAL CHARACTER FOLLOWING THE “ETX'' WHICH THE RECEIVER
INTERPRETS AS THE LRC CHARACTER

ERROR

REPORTS:

FAILAS
1=FAILURE IN TEST INITIALIZE ROUTINE

§=RECEIVE BUFFER FAILED TO LOAD

=TRANSMIT BUFFER FAILED TO LOAD
4=THERE IS NO OUTPUT RESPONSE FROM THE LRC ERROR CONDITION

5=0UTPUT IS NOT A BUFFER OUT COMMAND
6=RETURNED ENDING MEMORY ADDRESS NOT CORRECT

=RETURNED STATUS DOES NOT INDICATE AN LRC ERROR

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

PAGE 17

TEST 25:
CCP _MODE ONLY

THIS TEST CHECKS THAT A PARITY ERROR CONDITION CAN BE DETECTED
AND RETURNS THE RECEIVE BUFFER WITH A PARITY CONDITION.
TO_GENERATE THE PARITY ERROR A SPECIALLY FORMATTED BUFFER
IS OUTPUT
WITH AN EVEN PARITY DATA CHARACTER FOLLOWING THE CONTROL CHARACTERS

ERROR REPORTS:
ggill'gEST# FAIL# SHBE CSRO CSR2 CSR4 CSRé6

1=FAILURE IN TEST INITIALIZATION ROUTINES

§=RECEIVE BUFFER FAILED TO LOAD

=TRANSMIT BUFFER FAILED TO LOAD
4=THERE IS NO OUTPUT RESPONSE FROM THE PARITY ERROR CONDITION

5=0UTPUT IS NOT A BUFFER OUT COMMAND
6=RETURNED ENDING MEMORY ADDRESS NOT CORRECT

=RETURNED STATUS DOES NOT INDICATE A PARITY ERROR

TEST 26:

THIS TEST CHECKS THAT THE CHARACTER COUNT WILL CORRECTLY COUNT
TO THE HIGHEST VALUE OF CORE AVAILABLE (ABOVE THE DIAGNOSTIC)

BY USING THE SAME BUFFER FOR RECEIVE AS IS TRANSMIT

AND TESTING THAT THE ENDING MEMORY ADDRESS RETURNED

OF BOTH THE BUFFERS (XMIT AND RECEIVE) ARE THE SAME
ERROR REPORT:
FAIL #°S
i=FAILURE IN TEST INITIALIZATION ROUTINES

2=RECEIVE BUFFER FAILED TO
LOAD
S=TRANSMIT BUFFER FAILED TO LOAD

4=NO BUFFER RETURNED FROM TRANSFER

5=COMMAND RETURNED WAS NOT A BUFFER OUT

6=1ST BUFFER HAS INCORRECT ENDING MEMORY ADDRESS

=2ND BUFFER FAILED TO RETURN
10=2ND COMMAND WAS NOT A BUFFER OUT

11=2ND BUFFER HAD INCORRECT ENDING MEMORY ADDRESS
12=BUFFERS RETURNED WERE NOT 1 TRANSMIT & 1 RECEIVE

(SHBE=# REC.BUFFERS)

TEST 27:

THIS TEST WILL CHECK THE LOWER 13 (4K) BIT TRANSMIT AND RECEIVE
BUFFER ADDRESSING (BUFFER ADDRESS=IN AND OUT) BY TRANSMITTING
AND RECEIVING TWO WORD BUFFERS. THE ADDRESSES ARE SEQUENCED BY
WALKING A ONE ACROSS THE RETURNED BUFFER ADDRESS VALUE.
THE RETURNED BUFFER ADDRESSES ARE TESTED FOR BEING CORRECT.

ERROR REPORT:

SEQ 0017

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT1
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-8?

08:50

2
PAGE 18

FAIL #°'S
1=FAILURE IN TEST INITIALIZATION ROUTINES

§=CURRENT RECEIVE BUFFER FAILED TO LOAD (SHBE + WAS =N/A)

=CURRENT TRANSMIT BUFFER FAILED TO LOAD (SHBE+WAS=N/A)
4=NC_OUTPUT RESPONSE AFTER QUEUEING BUFFERS (SHBE,WAS=N/A)

5=1ST RETURNED BUFFER IS NOT BUFFER OUT
6=1ST RETURNED BUFFER (ENDING MEMORY ADDRESS) NOT CORRECT (SHBE=CORRECT ADDRESS)
7=2ND BUFFER NOT RETURNED
0=2ND RETURNED COMMAND IS NOT BUFFER OUT

1=2ND RETURNED BUFFER (ENDING MEMORY ADDRESS) NOT CORRECT (SHBE=CORRECT ADDRESS)

2=TW0 BUFFER OUT COMMANDS RETURNED BUT NOT ONE TX AND ONE RX (SHBE=#OF RX BUFFERS
3S=EXTRA RETURNED COMMAND AFTER TWO BUFFER OUTS

TEST 30:
THIS TEST WILL CHECK BUS ADDRESSING OF THE HIGHER ORDER

BITS (BITS 14=17) OF THE QUEUED RECEIVE BUFFER AND MULTIPLE DATA
TRANSFERS BY TRANSFERRING A TEN WORD BUFfER TO EACH 4K BOUNDARY

(IN THE TEST RANGE) OUTPUT IS FROM ‘‘TBUF''

“

* THE TEST WILL EXECUTE ONLY IF SUFFICIENT CORE EXISTS.
ERROR REPORT:
FAIL #'S
1=FAILURE IN TEST INITIALIZATION ROUTINES

2=THE RECEIVE BUFFER-IN COMMAND FAILED TO LOAD (SHBE,WAS=0)
3=THE TRANSMIT BUFFER=-IN COMMAND FAILED TO LOAD (SHBE,WAS=0)

4=CURRENT TRANSFER FAILED TO
5=RETURNED COMMAND WAS NOT A
6=RETURNED (TRANSMIT) BUFFER
7=RETURNED (TRANSMIT) BUFFER
10=RETURNED (RECEIVE) BUFFER
11=RETURNED (RECEIVE) BUFFER
12=TWO RETURNED BUFFERS WERE

INDICATE A COMPLETION (SHBE,WAS=0)
BUFFER OUT
EA-BITS INCORRECT (SHBE+WAS=EA-BIT STATUS)
16 BIT ADDRESS INCORRECT (SHBE+WAS=ADDRESS)
EA-BITS INCORRECT (SHBE+WAS=EA-BIT STATUS)
16 BIT ADDRESS INCORRECT (SHBE+WAS=ADDRESS)

NOT 1 TX AND 1 RX BUFFER

TEST 31:

THIS TEST WILL CHECK BUS ADDRESSING OF

THE HIGHER ORDER BITS

(BITS 14=-17) OF THE QUEUED TRANSMIT BUFFER AND MULTIPLE DATA

TRANSFERS BY TRANSFERRING A TEN WORD BUFFER FROM EACH 4K BOUNDARY
(IN THE TEST RANGE) INPUT IS TO RBUF.

* THE TEST WILL EXECUTE ONLY IF SUFFICIENT CORE EXISTS.

ERROR REPORT:
FAIL #°'S
1=FAILURE IN TEST INITIALIZATION ROUTINES
§=THE RECEIVE BUFFER-IN COMMAND FAIL TO LOAD (SHBE,WAS=0)

=THE TRANSMIT BUFFER-IN COMMAND FAIL TO LOAD (SHBE,WAS=0)

4=CURRENT TRANSFER FAILED TO INDICATE A COMPLETION (SHBE,WAS=0)

5=RETURNED COMMAND IS NOT A BUFFER OUT

=RETURNED (TRANSMIT) BUFFER EA-BITS INCORRECT (SHBE+WAS=EA-BIT STATUS)

SEQ 0018

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

MACY11 30A(1052)

7=RETURNED (TRANSMIT) BUFFER
10=RETURNED (RECEIVE) BUFFER
11=RETURNED (RECEIVE) BUFFER
12=TWO RETURNED BUFFERS WERE

21-0CT-81

08:50

PAGE 19

16 BIT ADDRESS INCORRECT (SHBE+WAS=ADDRESS)
EA-BITS INCORRECT (SHBE+WAS=EA-BIT STATUS)
16 BIT ADDRESS INCORRECT (SHBE+WAS=ADDRESS)
NOT 1 TX AND 1 RX BUFFER

TEST 32:
THIS TEST WILL CHECK MULTIPLE DATA TRANSFERS AND BUS ADDRESSING
BY TRANSFERRING BUFFERS TO EACH INCREMENTAL 4K ABOVE THE DIAGNOSTIC
IN CCP MODE, THE FIRST 4K BOCK (16=20k) IS WRITTEN WITH AN
INCREMENTAL PATTERN (40-175) AND TRANSFERRED TO EACH 4K ABOVE
THE DIAGNOSTIC (20K UP)
IN BOP MODE, THE FIRST 1024 BYTES OF THE FIRST 4K BOCK (16K) IS
WRITTEN UITH AN INCREMENTAL PATTERN (0=377) AND TRANSFERRED
TO THE START OF EACH 4K ABOVE THE DIAGNOSTIC (20K UP)
TEST WILL RUN ONLY IF 20K OR MORE OF CONTIGUOUS CORE (0 uP)
EXISTS ON SYSTEM.

ERROR REPORT:
FAIL #°'S
1=FAILURE IN TEST INITIALIZATION ROUTINES

2=RECEIVE BUFFER FAILED TO LOAD
3=TRANSMIT BUFFER FAILED TO LOAD

4=NO BUFFER RETURNED FROM TRANSFER

5=1ST RETURN WAS NOT A BUFFER OUT
6=TRANSMIT BUFFER RETURN STATUS INCORRECT
7-16-817 TRANSMIT ADDRESS INCORRECT

RECEIVE BUFFER RETURNED STATUS INCORRECT

16-BIT RECEIVE ADDRESS INCORRECT
EXTENDED RECEIVE ADDRESS BITS INCORRECT
RECEIVED DATA CHARACTER INCORRECT

2ND BUFFER (TRANSMIT) NOT RETURNED
2ND RETURN WAS NOT EXPECTED TRANSMIT BUFFER

TWO RETURNED BUFFERS NOT 1TX AND 1 RX BUFFER

TEST 33:

THIS TEST WILL CHECK THE INPUT REQUEST INTERRUPT LOGIC
AND FIRMWARE ARBITRATION BY INITIALIZING THE INPUT REQUEST

VECTOR (XX0) WITH A CORRECT RETURN ADDRESS AND THE OUTPUT REQUEST
VECTOR WITH ADDRESS TO ERROR FLAG ROUTINE.
THE INPUT REQUEST IS FIRST DONE UITH THE PROCESSOR STATUS
DROPPED TO O AND THE INTERRUPT ENAQ
"
T
SET T0 CHECK

THAT NO INTERRUPT OCCURS WHEN THE flDYIN (BIT -SELO) SETS.

THEN THE INPUT REQUEST IS MADE UITH THE INTERRUPT ENABLE
BIT SET AND THE PROCESSOR STATUS AT 0 TO CHECK THAT THE INTERRUPT
OCCURS TO THE CORRECT VECTOR ADDRESS
THEN THE PROCESSOR STATUS IS SET TO LEVEL 7 THE REQUEST MADE
WITH THE INTERRUPT ENABLE BIT SET AND TEST THAT THE INTERRUPT DOES

SEQ@ 0019

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

2
PAGE 20

NOT OCCUR UNTIL THE CORRECT PROCESSOR STATUS IS REACHED.

ERROR RSPORT
=FAILURE
IN TEST INITIALIZATION ROUTINES (WAS=N/A)

RDY=IN'* FAILED TO SET (WAS=N/A
ILLEGAL INTERRUPT OCCURED ( W/PS @ 7)

(WAS=VECTOR TRAPPED TO)

FIRMWARE INITIALIZE FAILED AFTER RDYIN SET

(WAS=N/A)

2ND RDYIN FAILED TO SET (WAS=N/A)
INTERRUPTED TO WRONG VECTOR_ADDRESS (WAS=VECTOR TRAPPED TO)
FIRMWARE FAILED TO INIT. AFTER INPUT INTERRUPT

=3RD RDY=IN FAILED TO SET (WAS=N/A)

(WAS=N/A)

=INTERRUPT OCCURED AT LEVEL OTHER THAN SPECIFIED (WAS=PS WORD)

TEST 34:
THIS TEST WILL CHECK THAT AN OUTPUT REQUEST INTERRUPT CAN CORRECTLY BE

EXECUTED TO INTERRUPT VECTOR XX& AND TEST THE LOGIC AND

FIRMWARE ARBITRATION.
A TRANSMIT AND RECEIVE BUFFER IS QUEUED TO LINE O
WITH THE PROCESSOR STATUS AT O AND THE ‘''IEO'' BIT NOT SET
TEST IS DONE TO CHECK THAT NO INTERRUPT OCCURS.
THE FIRHU&RE !S REINITIALIZED THE BUFFERS REQUEUED

WITH THE

''IEQ'* BIT SET AND THE PROCESSOR STATUS AT 0

A CHECK IS DONE TO TEST THAT THE INTERRUPT OCCURS TO THE

OUTPUT VECTOR ADDRESS XXé&.

EALL
#°S

1=FAILURE IN TEST INITIALIZATION ROUTINES

2=RECEIVE BUFFER FAILED TO LOAD
3=TRANSMIT BUFFER FAILED TO LOAD

(WAS=N/A)

4=BUFFER FAILED TO RETURN

5=1LLEGAL INTERRUPT WITHOUT IEO SET (WAS=VECTOR TRAPPED TO)
6=2ND RECEIVE BUFFER FAILED TO LOAD
7=2ND XMIT BUFFER FAILED TO LOAD

10=INTERRUPT OCCURED TO WRONG VECTOR (WAS= VECTOR TRAPPED TO)
11=INTERRUPT FIALED WHEN 'RDYOUT'' SET (WAS=N/A)
12=BUFFER FAILED TO RETURN (NO 'RDYOUT'") (WAS=N/A)

SEQ@ 0020

CZKMEAO DMS11-DA DYNAMIC

CZKMEA.P11

20-0CT-81 17:05

.NLIST MD

MACY11 30A(1052) 21-0CT-81 08:50 I PA%E 21

SEQ 0021

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

MACY11 30A(1052) 21-0CT-81 08:50 J PA%E 22

SE@ 0022

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052) 21-0CT-81 08:50 PA%E 23
K

SEQ 0023

CZKMEAD DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

MACY11 30A(1052)

21-0CT-81

08:50

2
PAGE 24

SEQ 0024

SEQ 0025

SRR

————

MACY11 30A(1052) 21-0CT-81 08:50 PA%E 25

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

CZKMEA.PTT

20-0CT-81 17:05

MACY11 30A(1052) 21-0CT-81 08:50 PA%E 26
N

SEQ 0026

ety

CZKMEAD DMS11-DA DYNAMIC

lela

MACY11 30A(1052)

21-0CT-81

08:50

3
PAGE 27

SEQ 0027

.LIST SEQ,BIN,LOC
NABL L

ABS

JTITLE czxano onsi1-oA DYNAMIC

;*COPYRIGHT (C)

s#DIGITAL eouxpnenr goap
'HAYNARD MASS. 01754

tPROGRAH B8Y R.BALDWIN, R. J. COLLINS
tTHIS PROGRAM WAS ASSEMBLED
+*PACKAGE

USING THE PDP=11 MAINDEC SYSMAC

(MAINDEC=11-DZQAC-CS),

JAN,

1981.

$TN=1

$SWR=160000

- :HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT

$SWR=167400

S S

3833323333882
R2

1081

;POP THE STACK TWICE
sPOP THE STACK ONCE

001100

:'INITIA%1880RESS OF THE STACK POINTER %% 1100 w#«

STACK=
.EQUIV
.EQUIV

EMT,ERROR
I0T,SCOPE

:sBASIC DEFINITION OF ERROR CALL
:sBASIC DEFINITION OF SCOPE CALL

I W

.SBTTL

$TN=
$N=1
$E=1
POP2SP=22626
POPPOP=22626
POPSP=005726
BASIC DEFINITIONS

s *MISCELLANEOUS DEFINITIONS

SO\I VIS W)
-

— e

e e

b -

PONONIND
b b d cd d e d e ek b
WN=O
VN WV
WN=O

)

D cd e

D cd cd

WU W

HT=

177776
177774
177772
177570
177570

LF=
CR=
CRLF=
PS=

12
15
200
177776

.EQUIV

PS,PSW

PIRQ=

177772

::CODE FOR HORIZONTAL TAB

::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED
: :PROCESSOR STATUS WORD

STKLMT= 172774

::STACK LIMIT REGISTER

D SWR=
=

: HARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

DDISP=

177570
177570

: ;PROGRAM INTERRUPT REQUEST REGISTER

RaGENERAL PURPOSE REGISTER DEF INITIONS
R1=
R2=
R3=
R&=

RS=
R6=
R7=
SP=
PC=

xo
zz
13
1%
15
16
17
16
17

:GENERAL REGISTER

..GENERAL
: :GENERAL
:
:GENERAL
:
:GENERAL

: :GENERAL REGISTER
::GENERAL REGISTER
: :GENERAL REGISTER
::STACK POINTER
: :PROGRAM COUNTER

:*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR2=

40
100

::PRIORITY LEVEL 0

::PRIORITY LEVEL 1
::PRIORITY LEVEL 2

TM~

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

1124
1125
1126
1127
1128
1129
1130
1131
1132

1133
1134
1135
1136
1137
1138
1139

1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156

1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
17
1172
1173
1174
1175
1176
1177
1178
1179

€00140
0002
000240
0003
000340

100000
0000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000
000002
000001

1
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000
000002
00000

PR3=
PR4=
PRS=
PRé=
PR7=

140
00
40
00
340

08:50

3
PAGE 28

ssPRIORITY

SEQ 0028

ssPRIORITY LE

;*''SWITCH REGI STER'* SWITCH DEFINITIONS
SW15=
100000

SWi4=
SWwi3=
Swi2=
SW1l=
SWwi0=
sSW09=
Sw08=
Swo7=
sSWwoée=
SW05=
SWo4=
swo3=
sSwie=
sSWo1=
SWoo=
.EQUIV
EQUIV
EQUIV
EQUIV
.EQUIV
EQUIV
EQUIV
.EQUIV
EQUIV
EQUIV

40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SW09,SW9
SW08,Sw8
SWO7,Sw7
SW06,Swé
SWO05,SW5
SW04,S
SWO3,Sw3
SW02,Sw2
SW01,Sw1
SW00,Sw0

: *DATA 8{5 DSSINITIONS (BITOO TO BIT15)

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
8IT10="
B8IT09=
BIT08=
B8IT07=
BITO6=
BITO5=
BITO4=
BIT03=
BIT02=
BITO1=
BITO0=
EQUIV
EQUIV
EQUIV
.EQUIV
.EQUIV

00
40000

20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
BIT09.BITY
81708.8179
BITO7.BIT
BIT06,BIT6
BITO05,BITS

TMTM

MACY11 30A(1052) 21-0CT-81
BASIC DEFINITIONS

mmmm

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

1180
1181
1182
1183
}}gg
1186

1187

1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198

}538

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

000010
14
000014
000014
000020
000024
000030
000034
000060
000064
000240

}gg;
}582

000250

BIT00.BITO

:*BASIC ''CPU"' TRAP VECTOR ADDRESSES

ERRVEC= &

RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
10TVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC= 60
TPVEC= 64
PIRQVEC=240

.SBTTL

MMVEC=

:;RESERVED AND ILLEGAL INSTRUCTIONS
SUTURIT
::TRACE TRAP
: BREAKPOINT TRAP (BPT)
: s INPUT/OUTPUT TRAP (IOT) #+SCOPE*+
: ;POWER FAIL
::EMULATOR TRAP (EMT) ~+ERRORw+
::"TRAP'' TRAP
:3TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR
- :PROGRAM INTERRUPT REQUEST VECTOR

250

177572
177574
177576
172516

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

;*KERNEL ''I'* PAGE DESCRIPTOR REGISTERS
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=

}555

172316

KIPDR7= 172316

172314

}5%2

1234
1235

::TIME OUT AND OTHER ERRORS

MEMORY MANAGEMENT DEFITMITIONS

172300
172302
172304
172306
172310
172312

1226
1227
1228
1229
1230
1231
}55%

3
PAGE 29

BIT04,BITé
BIT03.BIT3
BIT02.8IT2
BITO01.BIT1

1214
1215
1216
1217
1218
1219

1225

;*KT11 STATUS REGISTER ADDRESSES

}%}g

1220

08:50

;*KT11 VECTOR ADDRESS

}382
1207
1208
1209
}g}?

MACY11 30A(i052) 21-0CT-81
BASIC DEFINITIONS

172300
172302
172304
172306
172310
172312

KIPDR6= 172314

s*KERNEL ‘'I'' PAGE ADDRESS REGISTERS
172340

172342
172344
172346
172350
172352
172354
172356

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPARG=
KIPARS=
KIPARG=
KIPAR7=

172340

175342
172344
172346
172350
172352
172354
172356

.SBTTL

TRAP CATCHER

SEQ 0029

TM~

CZKMEA0 DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT=-81 17:05

1236
1237

MACY11 30A(1052) 21-0(7-81 08:50 EPAGE 30
TRAP CATCHER

000000

;*THE 10T TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT

;*TRAPS TO THE $SCOPE ROUTINE WHICH (IF THE RETURN PC IS

;*LESS THAN 1002) JUMPS TO THE SERROR ROUTINE.

D o

*THE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS:
PC=YYYYYY UNEXPECTED TRAP TO XXX

*AND RETURN TO THE PROGRAM AT PC=YYYYYY+2

*UHERE XXX=LOCATION OF ILLEGAL TRAP

D e

YYYYYY=PC AT TIME OF TRAP
'NOTE IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM

i
000000
000002

CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200.

$40CAT: HALT

d cd e
D
d
d
b
D e
d
-

'.+2, 10T SEQUENCE TO CATCH AND PROCESS ILLEGAL

:*TRAPS AND INTERRUPTS THAT MIGHT OCCUR.

VS S BB SSSSS W
N!&)NNNNNNNNNNNNNNNNNNNNNNNNN
& AR ViV
VNS
WN=O VRNV
WO

d b

s*A

'ALh UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN

B8R

.=100

.WORD

BEGIN

!?;2
000174
000176

000000

000200

000135

000220
000222
000224

000240
000240
000137

001542

340

::??73&? TO 177700 & TIME OUT (NOT ON

*:VECTOR TO STARTING ADDRESS
JsWITH PRIORITY LEVEL 7

DISPREG:.WORD
0
;:SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
O
;3SOFTWARE SWITCH REGISTER
.SBTTL
STARTING ADDRES(ES)
JMP 0
@#BEGIN ;:GO TO START OF PROGRAM

Ngg
002076

JIHALT

JMP

sALLOW INSERTION OF KMC DEBUF DuMP
MONIT

sRETURN TO MONITOR

SEQ 0030

TM~

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
1%22

.SBTTL

1267

001100
001100

1276
1277
1278
1279
1280

001104
001106
001110
001112
001114

001102
001103

1281
1282
1283

001115
001116
001120

1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301

001124
0011%8
001
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154
001155
001156
001157

1303
1304
1305

12864

$CMTAG:
$PASS:

000000

T T

000
000

s :START OF COMMON TAGS
s :CONTAINS PASS COUNT

.
.WORD
.WORD
.WORD
.BYTE

0
0
0
0
0

s sCONTAINS
s sCONTAINS
s :CONTAINS
:;CONTAINS
s sCONTAINS

$TSTNM: .BYTE
$ERFLG: .BYTE

000000

SICNT:
SLPADR:
SLPERR:
$ERTTL:
S$ITEMB:

000000
000000

001

SE
$ERRPC:
$GDADR:

000000
000000

$TMP1:
.WORD
$TMP2:
.WORD
STIMES: 0

1307
1308

001172
001176

177607
077

1310

001200

001160

001170

001177

$8DADR:

.BYTE
.WORD
.WORD

000000
000000
000000

131

SEQ 0031

.WORD

001162
001164
001166

1309

PAGE 31

.=1100

000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000

1306

001122

001100

.WORD
$GDDAT: .WORD
$BDDAT: .WORD
WORD
WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TkB:
177562
$TPS:
177564
$TPB:
177566
SNULL:
.BYTE
$FILLS: .BYTE
$FILLC:
.BYTE
$TPFLG: .BYTE

1302

*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;*USED IN THE PROGRAM.

1272
1273

1274
1275

08:50

COMMON TAGS

1268
}598
127

MACY11 30A(1052) 21-0CT-81
COMMON TAGS

000000

015

000012

TMPO:

000377

.WORD

SESCAPE:0

0
0

0
0
0
0

0
0
0
0
0

0
DSWR
DDISP

s sCONTAINS THE TEST NUMBER
s sCONTAINS ERROR FLAG

SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CCNTROL BYTE

s sCONTAINS MAX. ERRORS PER TEST
:sCONTAINS PC OF LAST ERROR INSTRUCTION
: sCONTAINS ADDRESS OF 'GOOD' DATA
: ;CONTAINS ADDRESS OF

'BAD' DATA
::CMTAINS 1GooD* DATA
sCONTAINS °‘BAD' DATA
: sRESERVED=--NOT TO BE USED

s sAUTOMATIC MODE INDICATOR
s INTERRUPT MODE INDICATOR
s ;ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
::TTY KBD BUFFER
s:TTY PRINTER STATUS REG. ADDRESS
:sTTY PRINTER BUFFER REG. ADDRESS

s sCONTAINS NULL CHARACTER FOR FILLS

2
12

s ;CONTAINS # OF FILLER CHARACTERS REQUIRED
..INSERF FILL CHARS. AFTER A '‘LINE_FEED''

:;USER DEF INED

0
0
0

;"'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)

s sUSER DEF INED
..USER DEF INED
s sMAX. NUMBER OF ITERATIONS

sESCAPE ON_ERROR ADDRESS

$BELL:
S$QUES:

.ASCIZ
.ASCII

<207><377><377> ..CODE FOR BELL
sQUESTION MARK

SLF:

LASCIZ

<12

$CRLF:
IR

.ASCII

<15>

AR AR AR AR

: :CARRIAGE RETURN
s:LINE FEED

AR RN AR R AN RN RN

N R AR RN R AN RN

RN RRRRRE

CZKME AO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)
21-0CT-81 1
ERROR POINTER TABLE

08:50

3
PAGE 32

}g}g

.SBTTL

1314
1315
1316
1317

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

1320
1321

i
i

}ggz

}%}g

:*NOTE2:

1322

1325
1326

001202

1329
1330
1331
1332
1333
13346
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351

001202
001210
001212
001220
001222
001230
001232
001240
001242
001250
001252
001260
001262
001270
001272
001300
001302
001310
001312
001320
001322
001330
001332

}ggg

1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367

ERROR POINTER TABLE

001340
001342
001350
001352
001360
001362
001370
001372
001400
001402
001410
001412
001420
0014%2
001430
001432

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

EM
DH
DT

:;POINTS TO THE ERROR MESSAGE
::POINTS TO THE DATA HEADER

::POINTS TO THE DATA

::POINTS TO THE DATA FORMAT

$ERRTB:

:ERROR MESSAGE TABLE

033050
036042
033101
036042
033137
036042
033164
036042
033211
036042
033240
036042
033270
036042
033324
03604;
033347
036042
033405
036042
033444
03604
033503

036042
033542
036042
033602
036042
033641
036042
033702
036045
033742
036042
034001
036042
034021
036042
034054

034446

035562

EMO1,DH1,DT1,DF1

034507

035574

EM02,DH2,DT2,DF1

034507

035574

EM03,DH2,DT2,DF1

034553

035610

EMO4 ,DH3,DT3,DF1

034612

035622

EMOS,DH4,DT4
,DF1

034612

035622

EMO6,DH4
,DT4 ,DF1

034707

035644

EMO7 ,DHS,DTS,DF1

034707

035644

EM10,DHS5,DTS5,DF1

034707

035644

EM11,DHS5.DTS,DF1

034707

035644

EM12,DH5,.DTS,DF1

034612

035622

EM13,DH4,DT4,DF1

034612

035622

EM14,DH4
DTS ,DF1

034707

035644

EM15,DHS5,DTS.DF1

034612

035622

EM16,DH4,DT4
,DF1

034707

035644

EM17,DHS,DTS,DF1

034707

035644

EM20,DHS5,DTS,DF1

034707

035644

EM21,DHS5,DTS,DF1

034707

035644

EM22,DH5,DTS,DF1

035260

035750

EM23,DH11.,DT11,DF1

034707

035644

EM24 ,DHS,DTS,DF1

SEQ 0032

CZKMEAO DMS11=DA DYNAMI C
CZKMEA.P11
20-0CT-81 17:05
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400

001440
001442
001450
001452
001460
001462
001470
001472
001500
001502
001510
001512
001520
001522
001530
001532
001540

1402
1403
1404
1405

1401

1406
1407

1408

1409
1410

1411
1412
1413
1414
1415
1416
1417
1418
1419
1420

1421
;23§

036042
o§2106
O oag
034143
036042
034170
oseoag
034222
036042
034275
036042
034350
oseoag
034373
036042
034420
036042

MACY11 30A(1052) 21-0CT-81
ERROR POINTER TABLE

034707

035644

EM25,DHS,DTS,DF1

034707

035644

EM26,DHS DTS, DF 1

035454

036016

EM27.DH13,DT13,DF1

035164

035726

EM30,DH10,DT10,DF1

035164

035726

EM31,DH10,DT10,DF1

035260

035750

EM32,DH11,DT11,DF1

035365

035774

EM33.DH12,DT12,DF1

035365

035774

EM34,DH12,DT12,DF1

001542
001542
001546
001550
001554
001556

012706
005026
022706
001374
012706

001100

001562
001570
001576
001604
001612

012737
012737
012737
012737
012737

020550
000340
021034
000340
024256

000020
000022
000030
000032
000034

001626
001634
001640
001644

013737
005037
005037
112737

020462
001166
001170
000001

020454

001620

001652
001660

001666

012737

012737
012737

001652
001660

177777

000403
012716
ooooo;
012737

001742
001750

000340

022777
001012

001724
001726
001732
001734

012737
012637

001100

000004

012737
012737
012737

001714
001722

001140

013746

001672
001700
001706

08:50

001726
177570
177570

000036

001115
001106
001110

000004
001140
001142

000176

000174
000004

001142

MOV

#340,a# TRAPVEC+2; LEVEL 7

MOV
MOV

#..SLPADR
#. . SLPERR

MOV
CLR
CLR
MOVB

SENDCT,SEOPCT
STIMES
SESCAPE
#1,SERMAX

:;SETUP END-OF-PROGRAM COUNTER
::INITIALIZE NUMBER OF ITERATIONS
::CLEAR THE ESCAPE ON ERROR ADDRESS
*:ALLOW ONE ERROR PER TEST

*:INITIALIZE THE LOOP ADDRESS FOR SCOPE
::SETUP THE ERROR LOOP ADDRESS

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
*:EQUAL TO A
MOV

MOV
MOV
MOV

CMP
BNE
648:

001140

3
PAGE 33

BEGIN:
.SBTTL
INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG,R6
;:FIRST LOCATION TO BE CLEARED
CLR
(R6) +
*3CLEAR MEMORY LOCATION
CMP
#SWR,R6 ; :DONE?
BNE
=6
::LOOP BACK IF NO
MOV
#STACK, SP
$:SETUP THE STACK POINTER
;:INITIALIZE A FEW VECTORS
MOV
#$SCOPE ,a#I0TVEC ;;10T VECTOR FOR SCGPE ROUTINE
MOV
#340,a#10TVEC+2 ;:LEVEL 7
MOV
#SERROR ,@#EMTVEC' : ;EMT VECTOR FOR ERROR ROUTINE
MOV
#3640, IMEMTVEC+2 ;:LEVEL 7
MOV
#STRAP,
94 TRAPVEC :;TRAP VECTOR FOR TRAP CALLS

177216

001734

658:

668:

BR
MOV
RTI
MOV

MOV
MOV

*=1'*, SETUP FOR A SOFTWARE SWITCH REGISTER.
@#ERRVEC,-(SP)
;;SAVE ERROR VECTOR

#64S,QMERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
668

::SET UP ERROR VECTOR
$:SETUP FOR A HARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER

658
#65$, (SP)

*:TRY TO REFERENCE HARDWARE SWR
::BRANCH IF NO TIMEOUT TRAP OCCURRED
SAND
THE HARDWARE SWR IS NOT = =1
*:BRANCH IF NO TIMEOUT
2:SET UP FOR TRAP RETURN

#SWREG, SWR

;:POINT TO SOFTWARE SWR

#DISPREG,DISPLAY
(SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR

SEQ 0033

1424
1425
1426
1427

001754
001760

005227
001046

1429
1430

001770
001772

001442
104401

1428

1431

001762

022737

020514

1443
1444
1445

002076
002102
002110

012706
012737
012737

001100
000340
000006

1448
1449

002130
002132

001004
004737

027452

1446
1447
1450
1451

1452

1453

1454

002076

002116
002126
002136
002142

002146
002152

1455
1456
1457
1458
1459

002216
002216
002220
002222
002226

1461
1462
1463
1464
1465
1466
1467
1468
1469
1470

002234
002236
002242
002244
002244
002250

1460

1473

002230

002254
002254
002256

000042

002030

001776
002002
002004
002012
002014
002016
002020
002026
002026

001140

000176

000007

001134

005137
004737

104401

000004
002256
002256
021660

002154

022700
001003
004737
000715
104401
000401
000710
000000

CMP

BEQ
TYPE

69$:
708:

.688:
b%s:

177776
000004

MONIT:

000006

18:

000001

000002

1476
1477
1478
1479

SEQ 0034

#SENDAD,3#42
678

::ACT=11?

::BRANCH IF YES
€ ASCIZ STRING

G2
698
SWR, #SWREG
708

67$

:GET OVER THE ASCIZ

MOV
MOV
MOV

#STACK,SP
0340 PSW
#6,

:SET 4 FOR TIMEOUT

BNE
JSR

18
PC,GETCOR

.ASCIZ

COM
JSR

TYPE

JASCIZ

RDOCT

024424
38:

::678:
66$:
48:

708
#1,$AUTOB

:;ARE WE RUNNING UNDER XXDP/ACT?
+:BRANCH IF YES
*:SOFTWARE SWITCH REG SELECTED?
::BRANCH IF NO
*:GET SOFT-SWR SETTINGS
::SET AUTO-MODE INDICATOR

<CRLF>#CZKMEAO DMS11-BA DYNAMIC DIAGNOSTICA#<CRLF>

I 7% 6
48’

X3
PC,a#STKINT

658
43

:ENABLE TTY INTS.

..rvpe ASCIZ STRING

*GET OVER THE ASCIZ

<15><12>/(1)DIAG. resr(z>co~rxcunArxo~
(SP)+,R0
#1,R0
LOOP

:LOGIC TEST?

BNE
JSR
BR

3$
PC.MODTAB
MONIT

:MODIFY THE CONFIGURATION ROUTINE

TYPE
BR
.ASCIZ

678
66$
72

BR
0

MONIT
:SWITCH

#2.R0O

:CONFIG. MODE?

::TYPE ASCIZ STRING
+:GET OVER THE ASCIZ

:KMC11 DEVICE REGISTERS AND INTERRUPT BEGINOL
0022

002262
002264
002266
002270

000001
000001
000001
000001

SELO:

SEL1
SEL2:
SEL3:
SEL4:

MOV
CMP
BEQ

CMP

}2;%
1475

PAGE 34

ST
BNE
CMP
BNE
GTSWR
BR
MOVB

MOV
TST

648

002252

.SBTTL
TYPE PROGRAM NAME
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
::FIRST TIME?
BNE
678
*:BRANCH IF NO

::658:

104412

012600
022700
001451

08:50

.SBTTL esr VALué roa SOF TWARE suxrcu REGISTER

000042

000423

012737
005737

21-0CT-81

TYPE PROGRAM NAME

177777

143§
1433
1434
1435
1436
1437
1438
1439
1440

1441
1442

005737
001006
023727
001005
104406
000403
112737

MACY11 30A(1052)

1
1
1
1

TMS

CZKMEAO DMS11-DA DY NAH
CZKMEA.PT1
20-0CT -81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
16480

1481
1482
1483
1486

1485
1486
1487
1488
1489
}23?

002272

002274
002276
002300
002302

002304
002306
002310
002311
002312
002313

J 3
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 35
GET VALUE FOR SOFTWARE SWITCH REGISTER

000001

SELS:

000001
000001
000001
000001

SEL6:
SEL7:
VECIN:
VECOUT:

1
1
1
1

000
000
000
000

PRIIN:
PRIOUT:
FSWSW:
MODE:
LINEB:
CLINE:

1
1
.BYTE
.BYTE
.BYTE
.BYTE

000001

1492
1493
1496
1495
1496

002314
002316
002320
002322

000000
000000
000000
00000

CRC32F:
CLKDAT:
CHRADR:
CURLUR:

.EVEN
0
0
0
0

1500
1501

002330
002332

000000
000000

MODMSK
TYPFLG:

1506
1507
1508
1509
1510
1511
1512
1513

C€02336
002340
002342
002344
002346
002350

000000
000000
000000

HADDR:
XBITS:
CSRO
CSR2
CSRé4
CSRé

0
0
0
0
0
0

1516
1517
1518
1519
1520
1521

002352
002356
002362
002370
002374
002376

012706
004737
012737
004737
0004%2
005037

1497
1498
1499

1502
1503

1522
1523
1524
1525
1526
1527
1528
1529
1530
}g;}

1533
1534
1535

002324
002325
002326

002

000
000
000000

CURDAT: .BYTE
CNTBIT: .BYTE
CONBIT: .WORD

000000

SAVE

000000
000000

002402
2403
002412
002416
002420
002426
002432
002436
002442
002446

005037
005037
105737
100403
012737
004737
005037
000137
004737
000137

002452
002454
002456

000000
000000
000000

001100
030270
026232
026506

001102
002460
002330
002311

17
021660
177776
002536
024362
002352

002330

MOV
JSR
RESTRT: MOV
JSR
BR
LTEST:
CLR

118:
SETUP:
sovet

:CRC32 ENABLED (0=NO 200=YES)
;MODE OF DATA LOOP (I/E) (200=INT. 0=EXT.)
sHOLD CHARACTER OF RDCHR FOR ECHO
sCURRENT LINE UNIT REGISTER UNDER TEST

s CURRENT DATA
;UPPER BYTE TO CONTAIN CONTROL BIT
sCONTROL BIT

.WORD

LOOP:

024360

:200=BOP, 0=CCP

CLR
CLR
TSTB
BMI
MOV
JSR
CLR
JMP
JSR
JMP

ERNUM:
0
CURLIN: 0
CUNIT:
0

sHIGH ADDRESS
sEXTENDED ADDRESS BITS

#STACK,
SP
PC,LPARND
sDISPLAY UNITS NEEDING LOOP CONNECTORS
#KMCTAB=12,CURTAB
PC,GETKMC
sGET NEXT ENABLED KMC11
SETUP
:BR=NO KMCS ENABLED
S$TSTNM

TSTNUM
MODMSK
MODE
118
#170000,MODMSK
PC,a#STKINT
PSW
STTEST
PC,SETTAB
LOoOP

sSET MODE MASK
sCHECK FOR MODE
:SKIP IF BOP_MODE
;SET CCP MODE MASK
sENABLE TTY INPUT
;ENABLE INTS.
sSETUP CONFIGURATION TABLE

sINDICATES FAILURE NUMBER
sCURRENT LINE # UNDER TEST
sCURRENT LINE UNIT # UNDER TEST

SE@ 0035

002460
002462
002464
002466
002470
002472
002474

000000
000000
000000

44
45
46
47
48
49
50
51

002500
002502
002504
002506
002510
002512
002514
002516

000000
000000
000000
000000
000000
000000
000000
000000

CURBUF:
MAPADR:
RECEA:
RECBUF:
RETEA:
RETADR:
RETBUF:
CHAR:

54
55
56
gg

002522
002524
002526
002530

000000
000000
000000
000000

BUFADR:
BUFEA:
BUFCNT:
RBUFSZ:

59
60
61
62
3

002532
002534
002536

100000
000000
004737
004737
005037

BADDR:
100000
CCTST:
STTEST: JSR

40
41
kg

002476

002520

002542
002546

000000
000000
000000
000000

TSTNUM:
SHBE:
WAS :
Xout:
ROUT:
XRET:
RRET:

000000

CUREA:

177770

030616
030020
177776

e
b
L

002460

77
78
79

002576
002602
002

012737
005037
013746

000001
002462
004

002452

s§
83

002624
002632

11277
005077

377
177422

177432

100000

177406

A A

e S N

T S

S N

e e

000001
030244

;BASE ADDRESS OF BUFFER
;:CHAR. CNT UP TO 8K BYTES OVER DIAG
PC,INTPRM
sPRIME INTTERRUPT VECTORS

PC,LDMODE
PSW

sLOAD FIRMWARE ACCORDING TO CONFIG.
T T

T T

;TEST

SCOPE
MOV
JSR

#1,TSTNUM
PC.SETLIN

MOV
CLR
MOV

#1,ERNUM
SHBE
NG, -(SP)

;;ttttttttttttlttttttttttttttttttttttttttttttttfittttt'titt.tttttt

000004
012737
004737

;16 BIT ADDRESS OF BUFFER
;EA BITS OF BUFFER (BITS 17416 IN 15+14)
: CHARACTER COUNT OF BUFFER
sFLAG FOR CONTROL OF REC. BUFFER

:;ttttt.ttttttttttttttttttt'.tttttttttttt'ttt'tt't.ttttttttltltt.

002552
002554
002562

86
87
gg

0
0
0
0

:FIRMWARE AND TESTING THAT THE FIRMWARE RESPONDS

sNON-EXISTANT MEMORY ADDR

*BY CLEARING BSEL2

sREC. BUFFER EA
sREC. BUFFER ADR
sADDR BUF. SHOULD RETURN
sADDR BUF. SHOULD RETURN

s CURRENTLY ENABLED KMC-11 BY INITIALIZING THE

80
81

.
sRETURN TRANSMIT BUFFER ADDR.
sRETURN RECEIVE BUFFER ADDR.

sTHIS TEST WILL CHECK FOR THE PRESENCE OF THE

68
69

s CURRENT TEST #

O
0
0

JSR
CLR

SEQ 0036

sINTTST

73
764
75

0
0
0
0

0
0
0
0
0
0
0
0
0
NXMADR: =10

U U

O W i W e R N

L o N Y YOS W W W

K 3
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 36
GET VALUE FOR SOFTWARE SWITCH REGISTER

36
37
38
39

wviviwuiviuaiuaunvuaiiuaviainawnuig

e R e e

R R R T R O

U“flU“hg! ViV IWA

»xXx

lalal
NN

AO DMS11-DA DYNAMIC
A.P1
20-0CT-81 17:05

002566

002612
002

002636

002644

002652
002656
oogsaz

002670

002674

012737

002574

001110

002712
00001

000004

012777

040000

177414

012637
005037
33;5;;

000004
001160
001160

105777

177370

012737
012709

012777

001413

TST1:

18:

MOV

MOV
MOV

MOVB
CLR
MOV

MOV
28:

MOV
CLR
éfiEB

ISTB

BEQ

#18, SLPERR
#3S. Nt
#15 R0

#377,3SEL2
aseLd

#40000,3SELO

#100000,3SELO
(SP)+,a#4
$TMPO
3Inpo

@SEL2
48

:LOAD THE WD OF THIS TECT
*SETUP THE FIRST LINE

*LOAD LOOP ADDRESS (LOOP ON ERROR)
;TEST FOR PRESENCE OF KMC=11 #=1
*WATCH=DOG

:%:CLEAR RUN, IF UP
-MASTER CLR.

:RUN

*RESET LOC 4 + SP

;WAIT LOOP
;FIRMWARE INITIALIZED

EZKEAO DMS11-DA DYNAMIC
ZKMEA.P11
20-0CT-81 17:05
1592
1593
15964
1595

002676
002700
002702
002710

005300
001370
012737
000403

1597
1598

002712
002714

022626
012637

1596

002712

1599
1600

002720
002720

1602

002724

1601

1603

002722

000002

L 3
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 37
GET VALUE FOR SOFTWARE SWITCH REGISTER

002452

38:
000004

318:

104001

000724

48:

DEC
BNE
MOV
BR

#2 ,ERNUM

SEQ 0037

:TRY AGAIN
;FIRMWARE FAILED TO INITIALIZE #=2
; SKIP

: CURRENT KMC=11 DEVICE ADDRESS FAILED TO RESPOND

POPPOP
MoV

(SP)+,a#4

ERROR+

sFIX THE STACK

;LOOP @18

R
T T e T,

1604

s INRDY

1605

sTHIS TEST CHECKS THAT THE READY IN BIT (BIT7-SELO) IS

1606
1607
1608
1609
}g}?

sINITIALIZED AND CONTROLLED BY THE FIRMWARE. THE READY IN
;8IT IS TESTED FOR BEING INITIALLY CLEARED THEN
sTHE REQUEST IN BIT (BIT5-SELO) IS SET AND READY IN
:1S TESTED FOR BEING SET BY THE FIRMWARE, THEN REQUEST IN
:1S CLEARED AND READY-IN TESTED FOR BEING CLEARED BY THE FIRMWARE.

1612

1614

LT
e

1613

;TEST

1615
1616
1617

002724
002726
2734

00
012737
0047

1619
1620
1621
1622
1623
1626
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637

002746
002754
002760
002764
002766
002772
002776
00
00
003012
003016
003022
003026
003032
003036
003042
003046
003050
003056

012737
005037
004737
000442
005237
105777
100424
112777
005237
004737
105777
100025
142777
005237
004737
105777
1000§5
117737
013737

1639

003072

1618

1638

002740

003064

012737

042737

1640
1641
1642
1643

003072
003074
003076
003104

104002
000724
117737
013737

}zg

003120

000764

1644

1647

003112

052737

000002
030244

002460

000001
002462
030664

002452

002746

001110

177252

000
002452
031714
177212

177226

177204
002464

002464
002462

000200
177156
002464

000200

002462
002464
002462

002462

A R AR RN AR AR AR RN AR AR RN AR AR

TST2:

SCOPE
MoV
JSR

#2,TSTNUM
PC,SETLIN

;LOAD THE WD OF THIS TEST
sSETUP THE FIRST LINE

18:

MoV
CLR
JSR
BR
INC
TSTB
BMI
MovB
INC
JSR
TSTE
BPL
BICB
INC
JSR
1STB
BPL
MovB
MOV

#1,ERNUM
SHBE
PC,INTKMC
38
ERNUM
@SELO
2%
#40,3SELO
ERNUM
PC,SYNTIM
Q@SELO
48
#40,3SELO
ERNUM
PC,SYNTIM
BSE%O
TST
@SELO,WAS
WAS , SHBE

sINITIALIZE KMC=11 FIRMWARE
sERROR RET.KMC FAILED TO INITIALIZE FAIL#=1
i
;RDY=IN SET?
:B=Y REPORT ERROR RDY=-IN SET #=2
sSET REQUEST IN
sFAIL #3=REQ _IN NOT SET
;WAIT A WHILE
:DID RDY=IN SET?
:8=N REPORT ERROR RDYIN FAILED TO SET #=3
sCLEAR REQUEST IN
sREADY IN FAIL TO CLEAR #=4
sWAIT A WHILE
:DID RDY=IN CLEAR?
:RDY=IN UNDER CONTROL OF FIRMWARE

002452
177262
000040
002452
031714
177236

2$:
3s:

4S:

MOV

#1$,SLPERR

BIC

#200, SHBE

ERROR+
BR
MOvB
MOV

2
1$
@SELO,WAS
WAS . SHBE

BIS

sLOAD LOOP ADDRESS (LOOP ON ERROR)

#200, SHBE

T T

e eI T

T I LI,

CZKHEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)
21-0CT-81 08:50 PAGE 38
GET VALUE FOR SOFTWARE SWITCH REGISTER

1648

:NOOUT

—O0

STHIS TEST CHECKS THAT THE KMC=11 FIRMWARE IS NO

:REQUESTING AN OUTPUT OF ANY TYPE, BY EXAMINING evre
:2 OF THE KMC=11 CSR'S

;:ttttttttt"tlt;ttttt't"tttt'tt.t'.tttttttttttttttt'.tttttt'.tt

R
NS NNNNNNNNYNY

~NO

002460
000001
002462
030664

001110
002452

002452
000200

177066

177056

002464

SR I
-‘hflflia
~
XS WO

—

38388

(=l

[ T

VO~

v vV

OOOOOOOOOO%
3333330
JREN283 ERESBEBBBIAIIIILI 33 28228222285

—h

SEQ@ 0038

TEST

233323323233

$8713:

333 3333332333333 323333332333 333

SCOPE

MOV

#3,TSTNUM

;LOAD THE WD OF THIS TEST

MOV

#1$,SLPERR

:LOAD LOOP ADDRESS (LOOP ON ERROR)

JSR

18:

PC.SETLIN

MOV
CLR
JSR

#1,ERNUM
SHBE
PC, INTKMC

B8R

TST4

BR
INC
BIT8
BNE

28:
3s:

3333233333333 333333233323232%3

3s
ERNUM
#200,aSEL2
28

SSETUP THE FIRST LINE

;INITIALIZE KMC=11 FIRMWARE

:B=F IRMWJARE FAILED TO INITIALIZE #=1
sFAIL #2=FIRMWARE REQ. AN OUTPUT
:OUTPUT REQUEST POSTED?
*B=YES FIRMWARE REQUEST AN OUTPUT #=2

::0K GO ON

MOVB
@SEL2,WAS
;FIRMWARE FAILED TO INITIALIZE
ERROR+ 3
BR
1s

;:ttt.tttttt'ttt.ttt..""'.tt't.t.ttttt.tt't..tt'.tttttttt't.t"

;LININT

STHIS TEST WILL DO A LINE INITIALIZE TO ALL LINES (SUCCESSFULLY)
*AND TEST THAT THE READY=IN BIT SETS AFTER EACH INITIALIZE

* COMMAND

::t.tt'tt.ttttttttttttt'ttt't.ttl.t!tttttQttt.tt.tttt.t'tt.ttt.tt

;TEST

..tt.tt.t.tfitttt.tt.tt"'ttt..ttttt.tttttt.t.'t'.'Qttttttt't.t.tt

000004
030244
003236
000001
002462
030664

002460

012737
004737
000425

000002
031020

002452

113777
012777
005077

002454
000400
176756

042777

000040

105777

002452
001160
176724

001110
002452

TST4:

18:

2s:

SCOPE
MOV
JSR

#4,TSTNUM
PC.SETLIN

:LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

?fx

sueéR"“"

SINIT FAIL #°'S

MOV
JSR
BR

#18, SLPERR

:LOAD LOOP ADDRESS (LOOP ON ERROR)

PC, INTKMC
4

;INITIALIZE KMC=11 FIRMWARE
REPORT snaoa = FIRMWARE HUNG #=1

PC .REQN]

CAN A INITIALIZE IN BE EXECUTED?

:TEST THAT A 'wsoussr-xn' CANes
MOV
#2.,ERNUM
#2=CAN NOT ISSUE
AN INPUT COMMAND

'JSR

48’

*REPORT ERROR RDY=-IN FAILED OR OUTPUT REQUEST

LOAD THE LINE=INIT COMMAND

MOVB
MOV
CLR

CURLIN,@SEL3
#400,aSEL6
asELS

:LOAD LINE #
E NABLE L INE
T USED

BIC

#40,3SELO

:CLEAR REQUEST IN

INC

ERNUM

;FIRMJARE FAILED TO COMPLETE LINE INIT COMMAND #=3

:CLEAR THE neouesr-lu axfTO NOTIFY FIRMWARE THAT COMMAND IS READY

176740

:NOW TEST THAT THE rxanuAas CLEARS READY~IN

3s:

CLR
TST8

$TMPO
@SELO

sRDY=IN CLEAR?

CZKMEAO DMS11-DA DYNAMIC

CZKMEA.P11

20-0CT-81 17:05

1704

003334

1707
1708

003344

104004

1711
1712

003350
003350

004737

1705 0033
1706
003342

MACY11 30A(1052)

08:50

PAGE 39

GET VALUE FOR SOFTWARE SWITCH REGISTER

100005

8PL

oosgsr 001160
001372

48:

};% 003346 000733
1713 003354 000401
mg 003356 000737

21-0CT-81

5%:

;B=Y

INC
BNE

$TMPO
3%

ERROR+

:LOOP @ 18

JSR

Pc.gemu

:GET THE NEXT LINE NUMBER

BR
031650

~_SEQ 0039

BR
BR

st
2s

::DONE ALL LINES
*TRY NEXT LINE

171
171?

:;tttttttttttttttttttttt'tttttttttttttttttttttttttttttttttttttt't

1719
1720

STHIS TEST WILL ISSUE A '‘TRANSMIT BUFFER'' IN TO EACH LINE
mo TEST THAT EACH COMMAND ACCEPTS.

1718

: 10BUF IN

1721
1722

: BLANK=XMIT BUFFERS IN
: NON-BLANK=REC BUFFERS IN

1723

S :tttttttttttttttttttttttt'ttttttttttttttfitttttttttttttttt'tttttt

1724

1725

;TEST

1726

1727 003360

000004

1732
1733
}gg

005037
004737
000430

003410
003414
003420

t8715:

002462
030664

1736 003422 012737 000002 002452 2%:
1737 003430 004737 030760
1738 003434 000422
005237

ttttttttlttttttttttt'ttt'tttttt.tt.tttttttltttttttttttttttttttt

1728 003362 012737 000005 002460
17;3 003370 004737 030244
1730
003374 012737 003402 001110
1731 003402 012737 000001 002452 18:

1739

1740

003436

002452

1744
1745

1749
1750
1751

003502
003502
003506

004737
104005

031470

1754
1755

003512
003512

004737

031650

SCOPE

MOV
JSR
MOV
MOV

CLR
JSR
BR

MOV
JSR
BR

#5,TSTNUM
PC.SETLIN
#1$,SLPERR
#1,ERNUM
SHBE
PC, INTKMC
A3

#2.,ERNUM
PC.REQNT
48’

:LOAD THE WD OF THIS TEST
:SETUP THE FIRST LINE
*LOAD LOOP ADDRESS (LOOP ON ERROR)
sINITIALIZE KMC=11 FIRMWARE
FIWRE FAILED TO INITIALIZE #=1
sCAN A TRANSMIT BUFF. IN BE EXECUTED?

CANNOT ISSUE A REQ.IN #=2

:LOAD THE BUFFER IN TO EACH LINE

INC

ERNUM

1741 003442 012737 010002 002526
1742 003450 013777 002526 176616
1743 003456 012777 052260 176604

MOV
MOV
MOV

#10002,BUFCNT
BUFCNT. @SEL6
#TBUF ,3SEL4

:GET LENGTH OF BUFFER
:LOADLENGTH
*ADDRESS OF aurren

1746 003472 004737 031772
1747 003476 000401
1748 003500 000404

JSR
B8R
BR

PC, INPDUN
4
58

:TEST THAT INPUT COMPLETED
SCOMMAND FAIL TO COMPLETE #=3
*0K GO ON

JSR
ERROR+

PC,GETCSR
§

:GET CONTENTS OF THE CSRS

JSR

PC,GETLIN

:GET THE NEXT LINE NUMBER

};g

113777 002454

MOVB
CURLIN,3SEL3
:LOAD
L
:TEST THAT FIRMWARE ACCEPTS
Cuwwo

48:

3510 000744

1756 003516 000401
};gg 003520 000740
1759

176574

BR
5%:

B8R
BR

1576
2$

*:ALL BUFFERS TESTED

;:tttttttttttttttttttttt't'ttttttttttttttttt.tttttttttttitltttttt

B 4
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 40
GET VALUE FOR SOFTWARE SWITCH REGISTER
s JOBUF
IN

THIS TEST WILL ISSUE A 'RECEIVE BUFFER IN'' TO EACH LINE

1761
17
176

D TEST THAT EACH COMMAND ACCEPT
X BLANK XMIT BUFFERS IN

3ST&UET

000006

001110
002452

L eL] :3cn:30nn:~

e
N
N

002460

SRR
SR R

S
S
S

AN AARAAAAANAAANARRRAA
AR

tér6:

SCOPE
MOV
JSR

#6,TSTNUM
PC,SETLIN

sLOAD THE WD OF THIS TEST
sSETUP THE FIRST LINE

1$:

MoV
CLR
JSR
BR

#1,ERNUM
SHBE
PC,INTKMC
43

sINITIALIZE KMC=11 FIRMWARE
sFIRMWARE FAILED TO INITIALIZE #=1

000002
030770

002452

2$:

MoV

#10002,BUFCNT

MOV

#RBUF , 3SEL4

MOVB

BUFCNT, ASEL6

;GET LENGTH OF BUFFER
:LOAD LENGTH

RECE!VE BUFFER

CURLIN,@SEL3

;LOAD LINE
#

JSR

PC, INPDUN

:TEST THAT INPUT COMPLETED

;0K GO ON

4$:

5%:

:COMMAND FAIL TO COMPLETE #=3

JSR
ERROR+
BR

PC,GETCSR
6
2s

;GET CONTENTS OF THE CSRS

JSR
gg

PC,GETLIN
5277

sGET THE NEXT LINE NUMBER
ssALL BUFFERS TESTED

031650

sLOAD LOOP ADDRESS (LOOP ON ERROR)

sTEST THAT FIRMWARE ACCEPTS COMMAND

031772

031470

ERNUM

MOV

002454

#1$,SLPERR

MoV
#2,ERNUM
JSR
PC .REQNR
;CAN A REC. BUFFER-IN BE stcureo?
BR
4
CANNOT ISSUE A REQ.IN #=
-LOAD THE BUFFER IN TO EACH LINE

INC

002452

S
R

AR AR

e
I

:X NON-BLANK=REC BUFFERS IN

AR AR AR AR A AR AN AN AR

STEST

ttttttt'tt'tttttt"t"""t.'tQ.Q.t.t...t'ttt...Qtfit.t.'tt.'...

s W

SNINNNNNNNINY NSNINNNNYN NNNNNNNY
oo
NNNNNNNN ~

Y-

1764

R I

SEQ 0040

AR AR AR AR R AR AR

U
W
W
W

:1) THE FIRST RECEIVE BUFFER IS RETURNED UITH AN EMA (1)
:STATUS AND THE_CORRECT ENDING MEMORY ADDRESS

:2) THE TRANSMIT BUFFER IS RETURNED WITH A 1 STATUS AND THE

VIS
W =O

< CORRECT MEMORY ADDRESS.
e AR

:THE FAIL #'S RANGE FROM 1 TO 22 (OCTAL)

AR AR AR AR A AR AR

s e e Y
B

AR AN A RRARAARRAAAAAAARANARRAAAARAAA
AR
AR

sXRTST
THIS TEST CHECKS THAT EACH LINE CAN ACCEPT AND FIELD
A
RANSMIT AND RECEIVE BUFFER.
EACH LINE IS INITIALIZED,
THE MAINT. LOOP AND CLOCK IS ENABLED AND TWO RECEIVE
:AND ONE TRANSFMIT BUFFER ARE THEN QUEUED TO THE LINE UNDER
sTEST.
+A SERIES OF TESTS ARE PERFORMED TO CHECK THAT:

W
QS W

00 0o 0o 0o 0o 0o

;TEST

AR AT

AR RN AR RA A AN AR AR R RARRARAAAANRRRRRARY

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

c ZKMEAO DMS11-DA DYNAMIC

CZKMEA.P11
181

1817

1818
1819

1820
1821

20-0CT=-81 17:05

00
003674

003700
003706

182§ 003714

012737
004737

0127§7
o1§7 7

000007
030;44

003706
000001

013700 002454

1823
1824

003720
003726

005037
004737

002462
030664

1826
1827

0037 2
003736

005237
004737

002452
031204

1829
1830

003744
003750

005237
004737

002452
031274

1832 003756

000402

1825 003730 00041;
1828 003742

1831

003754

000406
000401

1833
1834
1835
1836
1837
1838
1839

003760

000137

004510

003764
003772
003776
004
004010

012737
005037
012737
005237
004737

052660
002524
000002
002452
031344

1841
1842

004016
004022

005237
012737

002452
000020

1844

004034

000751

036

012737

1840

1843
1845

1846

004074

004030

1847
1848
1849

046
004052
004056

1851
1852

000761

004737

031344

033022

012737
005237
004737

0000064
002452
031354

004064
004070

005237
012737

002452
000204

1854
1855
1856
1857

004102
004106
004110
004114

105777
100405
005237
001372

176156

1859
1860
1861
186%
1863
1864
1865

1850
1853

1858

004076

005037

001160

004122

005237

004126
004134
004136

123777
001165
005237

002462

004142

o1§737

000001

1867
1868
1869

004156
004160

001154
005237

002452

1871

004172

004164

013737

002454

004150

123777

127737

002460

001110
002452

18:

MOV
MOV

MOV

002522

16$:

002526

ERNUM
PC, INTLNE

INC
JSR

ERNUM
PC,STCLK

B8R

168

28:

3s:

002462

002454

;INITIALIZE KMC=11 FIRMWARE

15§

:FIRMWARE FAILED TO INITIALIZE #=1

15§

:CURRENT LINE FAILED TO INITIALIZE #=2

15$

;INITIALIZE LINE (# IN CURLIN)

;SET MAINT LOOP + START CLOCK

:B=CLOCK NOT STARTED #=3

15§

*1ST RECEIVE BUFFER FAILED TO LOAD #=4

PC,RIN

:SET 2ND BUFFER LONG
:LOAD A RECEIVE BUFFER IN

INC
MOV

ERNUM
#20 ,BUFCNT

15§

:OND RECEIVE BUFFER FAILED TO LOAD #=5

Mov

#T7BUF ,BUFACR

JLOAD THE TRANSMIT BUFFER ADDRESS

B8R

15§

*TRANSMIT BUFF FAIL TO LOAD #=6

$TMP(

*SET UP WAIT LOOP

MOV
INC
JSR

002462

176116

*LOAD LOOP ADDRESS (LOOP ON ERROR)
:INITIALIZE ERROR

;LOAD TRANSMIT BUFFER IN’ COMMAND

002526

002462

;LOAD THE WD OF THIS TEST
:SETUP THE FIRST LINE

JMP
6$
*G0 TO ERR
:LOAD RECEIVE BUFFER IN COMMANDS
MOV
#RBUF ,BUFADR
;LOAD THE BUFFER ADDRESS
CLR
BUFEA
*NO EA BITS
MOV
#2 ,BUFCNT
:SET 1ST BUFFER SHORT
INC
ERNUM
JSR
PC,RIN
:LOAD A RECEIVE BUFFER IN

JSR

002522

176130

CURLIN,RO

INC
JSR

B8R

002526

#18, SLPERR
#1,ERNUN
SHBE
PC, INTKMC

158:

#7,TSTNUM
PC.SETLIN

CLR
JSR

B8R

002452

176070

scoPe

MOV
JSR

B8R

002452

002462

2233333323223 33323 3232323223233 33333333333 3332322332222222222222223

f§17:

001160

004510

1870

004116

000736

000137

1866

C &
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 41
GET VALUE FOR SOFTWARE SWITCH REGISTER

#4 ,BUF CNT
ERNUM
PC,XIN

INC
MOV

ERNUM
#204 ,SHBE

TSTB
8M]
INC
BNE

@SEL2
33
$TMPO
2s

CLR

JMP

(MPB

SHBE,aSEL6

:SET TX BUFFER LENGTH TO MEDIUM
:LOAD A TRANSMIT BUFFER IN

;GET RECEIVE BUFFER OUT COMMAND

*OUTPUT REQUESTED?
*B=Y 0K
;G0 WAIT SOME MORE

:REQ.OUT FAILED TO SET REPORT ERROR #=7

INC
ERNUM
sTEST THAT COMMAND IS RECEIVE BUFFER OUT
CMPB
SHBE,aSEL?
;CHEC.. SEL2
BNE
6
:B=NO REPORT 1ST COMMAND BUFFER TYPE INCORRECT #=10
INC
ERNUM
:TEST THAT CORRECT STATUS IS RETURNED
MoV
#1,SHBE
:SET STATUS TO END COUNT REACHED

*CORRECT STATUS?

BNE
6$
*B=NO 1ST STATUS INCORRECT #=11
INC
ERNUM
:TEST THAT RETURNED LINE # IS THE CURRENT LINE

Mov

CMPB

cuntiu.suse

@SEL3,CURLIN

:SAME LINE #?

SEQ 0041

187
}g;‘

004500

001143

1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
;ggg

004206
004214
0042%5
0042
004232
004236
004242
004244
004252
004254
004262
004270
004272

017737
04%737
132777
001127
005237
105737
100404
012737
00040;
01%73
023777
001107
005237

004276
004302
004310
004310
004314

105077
012737

175762
000200

004737
000475

031742

005237

002452

1897
1898
1899
1900
1901
1902
1903

004322
004330
004332
004336
004342
004344
004352

122777
001005
105077
005337
762
123777
001056

000204

005237

002452

1906
1907
1908
}3?3

004360
004366
004374
004376

012737
123777
001045
005237

000001
002462

1911
1912
1913

004402
004410
004416

013737
127737
001034

002454
175652

005237

002452

1916
1917
1918
1919
1920
1921
1922
1923
1926
1925
1926
1927

004424
004432
004440
004446
004450
004454
004460
004462
004470
004472
004500
004506

017737
042737
132777
0010;0
005237
105737
100404
012737
000403
01%737
023777
001405

175644
140000
000300

}ggg

}g}g

004202

004316

004354

004420

005237

D 4
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 42
GET VALUE FOR SOFTWARE SWITCH REGISTER
?zg

002452

BIC

014006 SHBE

:GET EXTENDED ADDRESS

?fi%

gzNu"

*REPORT EXTENDED ADDRESS NOT CORRECT #=13

;g}a

ggge

;TEST MODE FOR PROPER 16-BIT ADDRESS

MOV

#RBUF+2,SHBE

:CCP MODE

CMP

SHBE, aSEL4

BIT8

002462

318:

BR
MoV

aSEL6 3"°E

00,3SEL7

31$
#RBUF
+4 , SHBE

:EXTENDED BITS SHOULD BE CLEAR
:SHOULD BE EA- BITS

:B80P MODE

sCORRECT 16 BIT ADDRESS?

BNE
INC

6$
ERNUM

:B=N REPORT 1ST 16-BIT ADDRESS NOT CORRECT #=14

CLR8

aSEL2

sCLEAR READY OUT

JSR

PC.REQOUT

sTEST REQUEST OUT OF KMC SETS

sNOW CLEAR READY OUT AND TEST THAT ANOTHER BUFFER OUT COMMAND
;1S PRESENT WITHIN PRESCRIBED TIME PERIOD

002462

33s:
5$:

175734

175726
002452

002462

:B=NO 1ST LINE NUMBER INCORRECT #=12

TEST THAT snoxuc MEMORY ADDRESS OF RETURNED surrsn IS CORRECT

MoV

00246
00246
176046

002462
176000

ggnun

Mov
BR
INC

002462
175700

4$:

63
ERNUM

:GET TRANSMIT BUFFER OUT COMMAND
sREPORT ERROR 2ND BUFFER NOT RETURNED #=15

sTEST THAT COMMAND IS TRANSMIT BUFFER OUT

gnzfl

zgoa.asst

SHSSK IF COMMAND IS 2ND RETURNING RX BUFFER

CLRB

@SEL2

:DISMISS ZND RECEIVE BUFFER

B8R

338

: £ GO HAIT SOHE HORE

DEC

175712

0200 SHBE

CMPB
?NE

ERNUM

SHBE ,aSEL2
2:NUH

RESET ERR

:1S COMMAND CORRECT?
:B=NO REPORT CNMMAND NOT CORRECT #=16

;TEST THAT RETURNED STATUS IS AN ENDING MEMORY ADDRESS

:
348

002452

MoV

CMPB

#1,SHBE

sGET CORRECT TERMINATION STATUS

:CORRECT STATUS?
63
:B=N ERROR #=17
ERNUM
; TEST THAT RETURNED LINE # IS THE CURRENT LINE

?zs

MOV
CMPB

BNE
INC

SHBE, aSEL6

CURLIN, SHBE
@SEL3,CURLIN

6$
ERNUM

sCORRECT LINE #?
:B=NO ERROR #=20

TEST ruar ENDING MEMORY ADDRESS OF RETURNED BUFFER IS CORRECT

Mov

002452
002311

033026

002462

033035
00246

00246
17556

35%:
368:

;GET EXTENDED ADDRESS

#300,3SEL7

*EA BITS?

a14 obo SHBE

BNE
INC

6$
ERNUM

BITB

175630

5 HBE

BIC

:EXTENDED BITS SHOULD BE CLEAR
*B=YES ERROR #=21

1ST8
BMI

MODE

ggv

358
g£7BUF04.SHBE

;CCP MODE TX ENDING BUFFER ADDRESS

MoV

#T7BUF +10,SHBE

;BOP MODE TX ENDING BUFFER ADDRESS

gg:

;QBE.aSELS

gO@ggCT 16 BIT ADDRESS?

SEQ 0042

TM~

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

003706

: INCORRECT 16=BIT ADDRESS #=22

JSR
ERROR+

PC,GETCSR

;GET CONTENTS OF THE CSRS

:LOOP @ 18

;TEST ALL LINES

031650

003706

8$:
SRR

JSR
BR

PC,GETLIN
1710

JMP

AR AR AR AR

;GET THE NEXT LINE NUMBER
:;ALL LINES TESTED

AR AR R TR ARAARAAAAAAAAARARAAA
AR
Y

sLINOVR
sTHIS TEST CHECKS THAT A LINE OVERFLOW CONDITION WILL RETURN A
:''CONTROL OUT'' STATUS INDICATING THE LINE OVERFLOW.
sEACH LINE IS TESTED FOR RETURNING THE OVERFLOW STATUS BY INITIALIZING
sTHE LINE, QUEUEING A 10 WORD TRANSMIT BUFFER AND A 1 WORD REC. BUFF.
sAND TESTING THAT A CONTROL OUT COMMAND INDICATING A LINE
;OVERFLOW FOR THE CURRENT LINE IS RETURNED AFTER THE REC. BUFFER IS RETURNED

R AR AR

AR AR

AR RAAARAAAARAAAAAAARAARAAAARAA
AR AR S

;TEST

SCOPE
MOV
JSR

#10, TSTNUM
PC,SETLIN

:LOAD THE WD OF THIS TEST
:SETUP THE FIRST LINE

MOV
CLR
JSR

#1,ERNUM
SHBE
PC, INTKMC

sINITIALIZE KMC=11 FIRMWARE

PC, INTLNE

SINITIALIZE LINE (# IN CURLIN)

gflu~u\ru~u~¢~ru~e\ru-anrua-o~rvau~e\rv~u~ru

W W W W

PC,REQOUT

031274

NN NN N WWNN NN N O O

JSR

—

DAY

JSR

#1$,SLPERR

JSR
BR
MOV

VNN

MOV

3s
PC,STCLK
3s
PC.SYNTIM
#TBUF ,R2
#5.R1
PC .MEMF
IL
BUFEA
#RBUF ,BUFADR
#1,BUF CNT
ERNUM
PC.RIN
3$
#TBUF ,BUFADR
#5 ,BUF CNT
E
PC.XIN
3s
¥204,SHBE

—

18:

VIO

NN W N

o g?gCND gssra‘)s;
g?:()RSRSRR ¢D¢)§?D
\33232n3~uxrv~wvvv\n~quru<>~u\rv~w

001110
002452

TST10:

BR
JSR
BR
JSR
MOV
MOV
JSR
CLR
MOV
MOV
INC
JSR
BR
MOV
MOV

NOVSO

33 233383388358
ALY
e 223 !c!psv“nuunvnn
FRSRER

:;ttltlttttttt.tttt.tt"tt't'ttttt.ttiti.Qtt"'t't'ttttttttttt'tt

002460

002522
002526

:LOAD LOOP ADDRESS (LOOP ON ERROR)
*FIRMWARE FAILED TO INITIALIZE #=1
sLINE FAILED TO INITIALIZE #=1

*SET MAINT LOOP + START CLOCK

*MAINT.COMMAND NOT ISSUED #=1
*ALLOW TIME FOR SYNC

SINITIALIZE TRANSMIT BUFFER BEFORE 1ST USE
* (LENGTH FOR CCP)
:NO EA BITS
:1 CHR. REC. BUFF.
:LOAD A RECEIVE BUFFER IN

:REC BUF FAILED TO LOAD #=2
sSET LENGTH OF TRANSMIT BUFFER
sLOAD A TRANSMIT BUFFER IN

sTRANSMIT BUFFER FAILED TO LOAD #=3

:WAIT FOR THE RECEIVE BUFFER (1 WORD) TO RETURN
INC
ERNUM
)

:TEST REQUEST OUT OF KMC SETS

:RECEIVE BUFFER NOT RETURNED #=4

SEQ 0043

:REPORT ERROR BY DISPLAYING CONTENTS OF THE CSRS

JMP

00000

:;szsfi-a—hd-a-hu.a_ha-a-hd_hu-A-La-J—ha.a-ha.n—hd-o_nd-hg.a—ha-a_hd_ha
NNN
AR
R R RRRRRRRR W OO
W
998
tflUfi:
00
w
% wgo
VIS W N-N‘OO ERERRL2E \Ocl\“)\nOWNAPflCMOOI\Nh\n&%flflth>ifi=‘d
-l —d

68:

031470

8228

1928

£822

CZKMEAO DMS11=DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

E &
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 43
GET VALUE FOR SOFTWARE SWITCH REGISTER

CZKMEAO DMS11-DA DYNAMIC
CIKMEA.P11
20~0CT=-81 17:05
1986

1985

004732

105077

175326

1986 004736 oos;sr 002452

1987

1988

004742

004750

1989 004754
1990

004756

1993

1996

012 gr

004737

00044

000205

031742

005237

002452

004772

005237

002452

004776

012737

000004

1998 005010 100403
1999 005012 012737

000040

1991 004762 123777 002462
1992 004770 001034

1994
1995
1997

005004

105737

002311

2000
2001
2002

005020
005026
005030

123777
001015
005237

002452

2004

005034

013737

002454

2003
2005

005042

2008

005052

2012
2013
2014
2015
2016

005062
005062
005066
005070

127737

588‘7’ 005050 001004

004737

2009 005056 000405
58}? 005060 000636

004737
104010
000632

4
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 44
GET VALUE FOR SOFTWARE SWITCH REGISTER

002462

175220

CLRB

= @SEL2

;DISMISS THE FIRST RETURN (REC.)

NOW WAIT FOR A CONTROL OUT TO BE RETURNED INDICATING LINE OVERFLOW

inc

002462

#205, SHBE

:SET EXPECTED COMMAND TO CONTROL OUT

:CONTROL OUT FAILED TO RETURN #=S

JSR
INC

175274

ERNUM

MOV

CMPB
BNE

PC,REQOUT
ERNUM

§uee.asn2
$

INC

ERNUM

002462

MOV

#4, SHBE

002462

BMI
MOV

28
#40, SHBE

175250

TSTB

2%:

C(MPB
BNE
INC

;SEL7 OVERRUN smus BIT FOR BOP MODE

MODE

*BOP OR CCP?

SHBE,@SEL?
33
ERNUM

*LINE OVERRUN SET
*LINE OVERRUN STATUS BIT NOT SET #=7

+B=BOP
:CCP MODE OVERRUN STATUS BIT

;IS LINE # (SEL3) SAME AS LINE UNDER TEST?

MOV

002454

@SEL3,CURLIN

JSR

PC,GETLIN

BR
B8R
38:

CURLIN, SHBE

(MPB

BNE

031650

2019

:CONTROL OUT COMMAND?
*RETURNED COMMAND IS NOT A CONTROL OUT #=6

;TEST THAT CORRECT OVERRUN STATUS FOR CURRENT MODE IS
:CORRECT. CCP MODE =BITS SEL7 - BOP MODE =BIT2 SEL?

002462

031470

:TEST REQUEST OUT OF KMC SETS

TST11
18

:8=NO ERROR #=10
;GET THE NEXT LINE NUMBER

*;ALL LINES TESTED

;REPORT ERROR
JSR
ERROR+
BR

PC.GETCSR
10
18

;GET CONTENTS OF THE CSRS

;;tttttttt.tt.tttttttttttttttttttttt*ttQttttttttttttttltttttttttt

2020

:RSTRCV

2021
2022
2023
2024
2025
2026

:THIS TEST CHECKS THAT THE RECEIVE BUFFERS ARE KILLED BY THE 'LINE RESET'*
:COMMAND BY INITIALIZING THE CURRENT LINE, QUEUEING A SHORT RECEIVE BUFFER
:TO THE LINE, ISSUEING A ‘LINE RESET'' COMMAND, STARTING THE
:MAINTENANCE CLOCK, QUEUING A SECOND RECEIVE BUFFER TO THE LINE.
*SENDING A LONGER TRANSMIT BUFFER TO THE uue
SAND TESTING THAT A CONTROL OUT COMMANDIS RETURNED (LINE OVERFLOW

2027

*OF THE CURRENT LINE) AFTER ONE RECEIVE aurm OUT IS RETURNED.

2028

::tttt! tttttttttltttttttt'ttttttttttttttttttttttt.'ttttttt.t.tttt

2031

tttttttttttt't'tttt.tt'tt"t.ttt'ttttt!ttttttt'tttitttt'ttttttt

2033

;TEST

005072 000004

005074

012737 000011

002460

2035 005106
005114

012737 005114
012737 000001

001110
002452

2037

005102

005122
005126

2039 005132

004737

005037

004737

000574

030244

002462

030664

t8111: SCOPE
MOV

#11,TSTNUM

;LOAD THE WD OF THIS TEST

MOV
MOV

#18, SLPERR
#1,ERNUM

:LOAD LOOP ADDRESS (LOOP ON ERROR)

JSR

PC, INTKMC

JSR

1$:

CLR

PC,SETLIN

SHBE

*SETUP THE FIRST LINE

;INITIALIZE KMC=11 FIRMWARE

:FIRMUARE FAILED TO INITIALIZE #=1

SEQ 0044

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

2040
2041
zoai

005134
005140
005142

004737
000571
004737

031204
031274

052660

;QUEUE A RECEIVE BUFFER TO THE CURRENT LINE UNDER TEST
MOV
#RBUF ,BUFADR

005146 000566

2046
2047
2048
2049
2050

005156
005192
005170
005176
005202

005037
012737
043737
005237
004737

002524
010002
002330
002452
031344

005237
004737
000541
005237
113777
012777
005077
004737
000524
005237
004737

002452
031000

2060
2061
2062
2063

005210
005214
005220
005222
005226
005234
005242
005246
005252
005254
005260

2055
2066
2067
2068
2069
2070
2071
2072
2073
2074

005266
005272
005276
005304
005310
005312
005316
005324
005332
005340

004737
005237
012737
004737
505
005237
012737
043737
012737
004737

031714
002452
052664
031344

2076
2077

005346
005352

005237
012737

002452
000204

2080
2081
2082
2083

005366
005372

105077
005237

174672
002452

2085
gggg

005376

005404
005410

012737
005037
005037

000205

002464
001160

2088
2089
2090

005414
005420
005422

105777
100404
005237

174644

001160

2093
2094
2095

005432

005237

002452

005150

012737

2051 005206 000546
205
2053
2054
2055
2056
2057
2058

2064 005264 000517

2075

2078
2079

2084

005344

005360
005364

000467
004737
000457

5%5 %?2 8 °°oooz.1 §§

002452
002454
010000
175022
031772

B8R
002522

CLR
MOV
BIC
INC
JSR

002526
002526

B8R

175032
175032

031274

031742

BUFEA
#10002,BUFCNT
MODMSK
. BUF CNT
ERNUM
PC,RIN

78"

:ISSUE THE "‘LINE RESET''
iNC
ERNUM
JSR
PC ,REQNC
BR
78
INC
ERNUM
MOVB
CURLIN,@SEL3
MOV
c1oooo @SEL6
CLR
@SEL4
JSR
PC, INPDUN
BR
78
INC
ERNUM
JSR
PC,STCLK

002452

002452
010006
002330
052260
031354

PC, INTLNE
78
PC,STCLK

SEQ 0045

JSR
BR
JSR

2043

2044
2045

G 4
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 45
GET VALUE FOR SOFTWARE SWITCH REGISTER

B8R
002522

002526
002526
002522

CLOCK FAILED TO START

;3 CHARACTER RECEIVE BUFFER
;LOAD A RECEIVE BUFFER IN

., ;RECEIVE BUFFER FAILED TO LOAD #=2
COMMAND TO THE CURRENT LINE

;CAN A CONTROL IN BE EXECUTED?
:CANNOT ISSUE COMMAND ERROR #=3

:LOAD THE LINE #
:LINE RESET INDICATOR
*UNUSED
*TEST THAT INPUT COMPLETED
:LINE RESET COMMAND FAILED TO COMPLETE #=4

;SET MAINT LOOP + START CLOCK

JSR
INC
MOV
JSR
BR
INC
MOV
BIC
MOV
JSR

PC,SYNTIM
ERNUM
#RBUF
+4 ,BUFADR
PC.RIN
78
ERNUM
#10006 ,BUF CNT
MODMSK
. BUF CNT
#TBUF ,BUFADR
PC.XIN

:LOAD A TRANSMIT BUFFER IN

INC
MOV

ERNUM
0204 SHBE

SEXPECT aecs:vs BUFFER OUT

CLRB
INC

@SEL2
ERNUM

B8R
002462

:INITIALIZE LINE (# IN CURLIN)
SINITIALIZATION OF LINES FAILED #=1
:SET MAINT LOOP + START CLOCK

JSR
BR

PC,REQOUT
78’

;ALLOW FOR SYNC
;;LOAD NEW RECV
:LOAD A RECEIVE BUFFER IN
:;RECV BUF FAILED TO LOAD:

#=6

:TRANSMIT BUFFER IN FAILED TO LOAD #=7
WAIT FOR BUFFER
*BUFFER NOT RETURNED: #=10
*DISMISS

:TEST THAT RECEIVE BUFFER WAS RESET (KILLED) BY TESTING THAT A LINE
*OVERFLOW ‘‘CONTROL OUT'* STATUS IS NOW RECEIVED

002462

MoV

#205, SHBE

;EXPECT CONTROL OUT COMMAND

TSTB
BMI
INC

@SEL2
58
$TMPO

;B=0UT RDY SET

CLR
CLR

48:

5%:

WAS
$TMPO

Hm’
méDID NOT RETURN AN OUTPUT #=11

INC
ERNUM
;:BOP=IF A CONTROL OUT SEL? BIT2
sCCP=IF A CONTROL OUT SEL7 BITS

SHOULD BE SET
SHOULD BE SET

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT=-81 17:05

%836
7

2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
%}}?
2112
2113
2114
2115
%}}9

005436

012737

005450
005452
005460
005466
005470

100403
015737
033777
00141
005237

005474
005502
005510
005512
005516
005516
005520

013737
123777
001005
004737

005446

005524
005524
005530
005532

105737

000407
000137

004737
104011
000137

H &
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 4 ‘
GET VALUE FOR SOFTWARE SWITCH REGISTER

002000

002462

020000
002462

002462
174606

002311

MOV

TSTB

568:

002452
002454
002454

002462
174556

031650

57%:

005114

68:

78:

031470
005114

2118

#2000, SHBE

:SET FOR BOP

MODE

*BOP?

1ST12
1$

::ALL LINES TESTED
‘DO NEXT LINE

BMI
568
*B=YES
MOV
#20000, SHBE
*NO, SET TO CCP
BIT
SHBE , 3SEL6
218 BIT SET?
BEQ
7%
*B=NO, ERROR #=12
INC
ERNUM
;WAS CORRECT LINE NUMBER RETURNED
MoV
CURLIN, SHBE
CMPB
CURLIN.@SEL3
;CORRECT LINE # RETURNED
BNE
78
*B=NO ERROR #=13
JSR
PC,GETLIN
*GET THE NEXT LINE NUMBER
BR
JMP

;REPORT ERROR BY DISPLAYING THE ERROR # AND CONTENTS OF CSRS
JSR
ERROR+
JMP

PC,GETCSR
11
1

;GET CONTENTS OF THE CSRS

:;ttttIttttttttttttttttttt't'tttttttttttt.Qtttt'tt.t'tttttttttt..

2119
2120
2121
2122
2123

:RSTXMT
*THIS TEST WILL CHECK THAT THE TRANSMIT BUFFERS ARE KILLED BY A
:LINE RESET BY INITIALIZING THE CURRENT LINE, QUEUEING A TRANSMIT BUFFER TO THE
;LINE, ISSUEING A LINE RESET COMMAND, STARTING THE CLOCK AND TESTING THAT NO
SOUTPUT IS RETURNED FROM THE KMC.

2124

3 ;ttt!tttttttttttttfitttt'tttttttttttttttttttttt'tttttttttttttt.'t

2127

::tttttttttttttttttttt'ttttttttttt"tttttttttttfittttt.tt.'ttttt't

2125
2126
2128
2129
2130

2131
2132

005536
005540
005546

005552
005560

000004
012737
004737

012737
005037
012737
004737

000012
030244

005560
002462

2133
2134

005564
005572

2136

005600

004737

031204

2138
2139
2140
2141
2142
2143
2144
2145

005606
005614
005620
005626
005634
005640
005644

012737
005037
012737
043737
005237
004737
000427

052260
002524
000777
002330
002452
031354

2147

005652

005646

005237

2149
2150
2151

005660
005664
005670

2135 005576 000452

2137 005604 000447

2146

SEQ 0046

000001

002452

737

031546

005237
004737
000415

002452
031274

2148 005656 oooag;

002460

001110
002452

TST12:

18:

STEST

SCOPE
MOV
JSR

#12,TSTNUM
PC,SETLIN

:LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

MOV
JSR

#1,ERNUM
PC. INTKMC

;INITIALIZE KMC=11 FIRMWARE

MOV
CLR

B8R

JSR

002522
002526
002526

#1$, SLPERR
SHBE
PC. INTLNE

*LOAD LOOP ADDRESS (LOOP ON ERROR)

*FIRMWARE FAILED TO INITIALIZE #=1
SINITIALIZE LINE (# IN CURLIN)

*LINE INITIALIZE FAILED TO COMPLETE #=1

MOV
#TBUF ,BUFADR
- TRANSMIT BUFFER ADDRESS
CLR
sgr;A
*NO EA-BITS
MOV
#777 ,BUFCNT
*BIG CHARACTER BUFFER
BIC
MODMSK
, BUF CNT
INC
ERNUM
JSR
PC.XIN
:LOAD A TRANSMIT BUFFER IN
BR
4
*BUFFER IN FAILED TO COMPLETE #=2
-1SSUE A LINE RESET COMMAND

INC

ERNUM

JSR

PC,LRSET

;ISSUE A LINE RESET TO THE CURRENT LINE

INC
JSR
BR

ERNUM
PC,STCLK
48

;SET MAINT LOOP + START CLOCK
*STCLK COMMAND FAILED #=4

B8R

*LINE RESET COMMAND FAILED #=3

004737

JSR

002452
031742

JSR

PC ,REQOUT

;TEST REQUEST OUT OF KMC SETS

B8R

*ERROR OUTPUT REQUESTED #=5

1s1

inc

108:

005560

104012

PC,SYNTIM

sWAIT
A WHILE

NOW TEST THAT NO OUTPUT' IS RETURNED FROM THE KMC

031650

004737

ERNUM
10$

:B=NO

;ARE THERE MORE LINES
JSR
PC,GETLIN

JMP

;GET THE NEXT LINE NUMBER

:REPORT ERROR = DISPLAY THE CSR'S

031470

JSR

PC,GETCSR

;GET CONTENTS OF THE CSRS

000712

S oA

AR AR AR AR AR AR

A R AT

A AR AR AR

RRAAA AR

AR AR RIS

sNABORT

sTHIS TEST WILL CHECK THAT THE °''IN ABORT'' COMMAND DOES NOT

TERHINATE ANY OF THE TRANSMIT BUFFERS BY INITIALIZING EACH
;LINE, SENDING A TRANSMIT BUFFER TO THE LINE THEN ISSUEING

A LINE ABORT "'IN'' (BIT1 SEL7=1) TO THE LINE, AND TESTING
:THAT THE NORMAL TRANSMIT BUFFER OUT IS RETURNED.

::tttttt.tttt.t.ttttt'tt'tt'ttti.t..tttttt*tfitttittlt'tt..t't'..'

;TEST

SCOPE
MoV

#13,TSTNUM

sLOAD THE WD OF THIS TEST

MoV

01‘ SLPERR

;LOAD LOOP ADDRESS (LOOP ON ERROR)

PC. INTKMC

INITIALIZE KMC-11 FIRMWARE

PC,INTLNE

:INITIALIZE LINE (# IN CURLIN)

PC,STCLK

:SET MAINT LOOP + START CLOCK

..ttttttttttttttt.ttttttt"ttt.*ifitttttllittti..ttttt'fit'tttfi'tii

002460

001110
002452

031274

174164

002452

1$:

002522
002526
002526

PC,SETLIN

CLR
MoV

SHB
4 ERNUH

JSR

(3]

JSR

MOV
CLR

#TBUF ,BUFADR
BUFEA

BIC
INC
JSR

MODMSK
, BUF CNT
ERNUM
PC,XIN

MOV
BR

#777 ,BUFCNT
68’

sSETUP THE FIRST LINE

;FIRMWARE FAILED 7O INITIALIZE #=1

:CURRENT LINE FAILED TO INITIALIZE #=1
sCLOCK COMMAND FAILED
:NO EA-BITS

*LARGE BUFFER
:LOAD A TRANSMIT BUFFER IN

*BUFFER IN FAILED TO COMPLETE #=2

:NOW ISSUE THE ABORT COMMAND

INC

L 0

b
—

002452
031000
002454
000002
174164

JSR

031204

052260
002524
000777
002330
002452
031354

TST13:

JSR
BR

MOVB

ERNUM

PC,REQNC
63

sCAN A CONTROL IN BE EXECUTED?
sREPORT ERROR, HUNG OR OUTPUT REQUESTED #=3

aSEL4

.-unuseo

MOVB

CURLIN,@SEL3
#2,3SEL7

CLRB

@SEL6

CLR

:LOAD LINE #
sABORT LINE
UNUSE D

:WAIT FOR COMMAND TO com.srs

INC

ERNUM

SEQ 0047

031714

—

200

I &
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 47
GET VALUE FOR SOFTWARE SWITCH REGISTER

28 SRR RSB
R R R AR
B
YINININIITRIZ

DSLASLSTNTS LS TNTN LS TNT ST NTNTNTNTS S TNT NSNS TNTS USTSTNTSTSTNTN LS TS LS SIS TS TS TN N INTNTN SN LN NN ] NN

v
e
00 0 0 O V000D
Ty ey, W

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC

CZKMEA.P11
%zoa

20-0CT-81 17:05

006114

004737

006122

oos;37 002452

209 006120 000435

2210

2211

221%

0061%2

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

gg}‘

2230

MACY11 SOA(IOSZ)

000200

006142
006146
006150
006152
006156
006160
006162

004737
000401
000404
005337
001371
000415

031742

006162
006166
006174
006202

005237
112737
123777
001004

002452
000001
002462

006204
006204

004737

031650

JSR

000406

002462

006224

INC

38:

006214
006214

004737

2236 006222

000655

2235

55%;

006220

006224

104013

002462
174072

6$:

031470

000000

78:

ABORT COMMAND FAILED TO COMPLETE #=4

ERNUM

JON TRANSMIT, EXPECT TX BUFFER OUT

JSR
BR
BR
DEC
BNE
BR

PC,REQOUT
3$
4$
7$
2s
6%

JTEST REQUEST OUT OF KMC SETS

1714

*;ALL LINES TESTED

MOV

82,78

*SET UP WAIT LOOP

:REPORT ERROR
JS
PC,GETCSR

B8R
0

13"

JGET CONTENTS OF THE CSRS

:DELAY COUNT

JNABORT
sTHIS TEST WILL CHECK THAT THE 'OUT ABORT'' COMMAND DOES NOT
:TERMINATE ANY OF THE RECEIVE BUFFERS BY INITIALIZING EACH
LINE SENDING A R.E.CEIVE BUFFER TO THE LINE, THEN ISSUEING
LINE ABORT 'OUT'* (BIT1 SEL7=1) TO THE UNE AND TESTING
*THAT NO STATUS (BUFFER OUT) IS RETURNED.

;:ttttttttttttttttQttt't't'tttt'ttttttttttttttttttt'tttttttttttit

2247

006226
006230

000004
012737

000014

002460

2253
2254

006250
006254

005037
012737

002462
000001

002452

2256
2257
2258
2259

006266
006270
006274
006276

000474
004737
000471
004737

006262

004737

030664

031204

031274

2260 006302 oooagg
0063064
006312
006316

012737
005037
012737

sTEST

TST14:

SCOPE
MOV

#14,TSTNUM

18:

CLR
MOV

SHB
" snuun

BR
JSR
BR
JSR

6$
PC, INTLNE
%3
PC,STCLK

:FIRMWJARE FAILED TO INITIALIZE #=1
SINITIALIZE LINE (# IN CURLIN)
;CURRENT LINE FAILED TO INITIALIZE #=1
*SET MAINT LOOP + START CLOCK

onaur LBUFADR
;
077 BUF CNT

:NO EA-BITS
*LARGE BUFFER

. 2ttttttttttttttttttttttltttttttttfittttttttttttttltttttttttt*tttt

2249
2250

2261
2262
2263

ERROR

#200, SHBE

ERROR+

%%22

2255

;TEST THAT INPUT COMPLETED

MOV

B8R

2239
2240
2241
2242
2243
2044

2248

PC, INPDUN

SEQ 0048

;ON TRANSMIT, NO OUTPUT IS ERROR #=5
48:
sTEST FOR CORRECT TRANSMIT TERMINATION (EMA)
INC
ERNUM
MOVB
#1,SHBE
CMPB
SHBE,aSEL6
BNE
6%
:#6, WRONG TRANSMIT STATUS ON ABORT
;TEST IF ALL LINES ARE DONE
58:
JSR
PC,GETLIN
JGET THE NEXT LINE NUMBER

gggg 006212 000661
2233
2234

PA E & g

- NOW uaxr FOR ANY surren& TO BE RETURNED

882342 012737 000002 006224

006210

08:50

T VALUE FOR SOFTWARE SWITCH REGISTER

031772

012737

21-0CT-81

052660
oozs;a
000777

002522

002526

JSR

B8R

MOV
CLR
MOV

PC. INTKMC

:LOAD THE WD OF THIS TEST

:INITIALIZE KMC~11 FIRMWARE

:CLOCK COMMAND FAILED

%264
265
2266

006324
006332
006336

043737
005237
004737

2267 006342 000446
2268

002330
002452
031344

2269
2270

006344
006350

005237
004737

002452
031010

2272
2273

006356
006364

113777
112777

002454
000002

2271

0063546

000441

2274 006372 005077 17367
006376 105077 173672
2276

002526

BIC
INC
JSR

2277

006402

005237

2279 006412

000422

2280

2281

006406

006414

004737

173702
173704

005237

002452

012737

004737
000401

031742

2287
2288
2289

006436
006442
006444

005337
001371
000401

006470

2286 006436

000404

000002

004737
000406
000674

031650

2297
2298
2299

006460
006460
006466

004737
104014

031470

5;3}

006470

000000

2300 006466

:BUFFER IN FAILED TO COMPLETE #=2

MOVB
MOVB

gRan
L@8SEL3

:CAN A CONTROL OUT BE EXECUTED?

68’

*REPORT ERROR, HUNG OR OUTPUT REQUESTED #=3
:LOAD LINE #
*ABORT LINE

CLR
aséL4
.u~useo
Q@SEL6
SED
:WAIT FOR COMMAND TO confiLere
INC

ERNUM

PC, INPDUN

6$’

;TEST THAT INPUT COMPLETED

:ERROR

ABORT COMMAND FAILED TO COMPLETE #=4

:NOW WAIT FOR ANY BUFFERS TO BE RETURNED

006470

INC

28:

38:

48:

006450
006450
006454
006456

ERNUM
PC,REQNX

JSR

2290 006446 000404

2291
2292
2293
2294
gggg

;LOAD
A RECEIVE BUFFER IN

CLRB

031772

006420
006426
006426
006432

68’

INC
JSR

002452

2282
2283
2284
2285

MODMSK , BUF CNT
ERNUM
PC,RIN

SEQ 0049

:NOW ISSUE THE ABORT COMMAND

2275

2278

MACY11 30A(1052) 21-0CT-81 08:50 PAGE 49
GET VALUE FOR SOFTWARE SWITCH REGISTER

68:

000670

78:

2303

ERNUM

MOV

#2,7%

;SET UP WAIT LOOP

JSR
BR

PC,REQOUT
3s

;TEST REQUEST OUT OF KMC SETS

B8R

DEC
BNE
BR

4$
78

28
5%

;ON RECEIVE, NO OUTPUT IS EXPECTED

B8R

*OUTPUT REQUESTED IS ERROR #=5

JSR
BR
BR

PC,GETLIN
1s15
18

;TEST IF ALL LINES ARE DONE

:REPORT ERROR
JSR
PC,GETCSR
ERROR+ 14

BR
0

:GET THE NEXT LINE NUMBER
:;ALL LINES TESTED

:GET CONTENTS OF THE CSRS

:DELAY COUNT

;:tttttttttttttttttttttttt'tttttttttttttltttttttttttttttt'ttttttt

2304

;ABORT

2305

:THIS TEST WILL CHECK AN ‘‘ABORT OUT'* COMMAND WILL RETURN (KILL)

2308
2309

*A LINE ABORT OUT COMMAND TO EACH LINE INDIVIDUALLY, TESTING THAT
:ONLY THE BUFFER QUEUED,
TO THAT LINE IS RETURNED WITH
A

2306
2307

*THE BUFFER CURRENTLY QUEUED TO THE LINE UNDER TEST, BY INITIALIZING
:ALL LINES, SENDING A TRANSMIT BUFFER TO EACH LINE, THEN ISSUEING

2310
5;}5

*STATUS (SEL6) OF (=6) '‘TERMINATED ON REQUEST'.
32 AR AR AR AR AR AR R R RN RN AR R AR AR AR AR AR RRNR N

2313

tttttttltttttttttttt'tQt't'tttttttttttttttt.tttttttttttltttttt.

;TEST

S%}g 882252 3?%9?? 000015 002460 tiris: 383" #15, TSTNUM
$315 000308 013737 O06sse 001110
2318

2319

006514

006522

012737

005037

000001

002462

002452

18:

CLR

SHBE

MOV

#1,ERNUM

LOAD THE WD OF THIS TEST

RN U o e

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT=-81 17:05

004737

L &
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 50
GET VALUE FOR SOFTWARE SWITCH REGISTER

030664

052260
010777

002522
002526

002330
002524
031354

002526

2$:

20$:

002452

278:
38:

173374

38%%:
g8

§NMN—GNW
OOW
WNN

SSK=8S8

o
2NN
=2 NN = RO
NNRO NNNO NN
N
N
NNNNNNYN

PC, CLKALL

JSR

ERNUM
PC,SETLIN

sINIT LINE

MOV
MOV

#TBUF ,BUFADR
#10777 ,BUFCNT

:LOAD TRANSMIT BUFFER
:LARGE BUFFER

BIC
CLR
JSR

MODMSK
, BUF CNT
BUFEA
PC XIN

:LOAD A TRANSMIT BUFFER IN

JSR

PC,GETLIN

20$

:FIRMWARE FAILED TO INIT #=1

20§

*INITIALIZE LINES FAILED #=1

208

:CLOCK COMMAND FAILED

208
27%

8R
2
JMP
£%
ggoar EACH BUFFER

;START ALL CLOCK LINES THAT ARE ENABLED

*BUFFER IN FAILED TO LOAD #=2
*GET THE NEXT LINE NUMBER

*ALL LINES TESTED

*TEST NEXT LINE
*BRANCH HELP TO ERROR

PC,SETLIN

MOV
JSR

#3.ERNUM

INC
MOVB

ERNUM
CURLIN,@SEL3

PC .REQNX

:CAN A CONTROL OUT BE EXECUTED?

208

*HUNG OR OUTPUT PENDING #=3

MOVB
CLR

#2,@SEL7
aSELG

*ABORT LINE
*UNUSED

JSR

PC, INPDUN

@SEL6

:LOAD LINE #
UNUSED

sWAIT FOR ABORT COMMAND i0COMPLETE

5%:

JSR

CLRB

031772

031650

SINITIALIZE ALL LINES

BR
173404
173406

002462

173320

002462

173300

173246

PC, INTALL

007026

00245
17777
177772

JSR

031650

002452
000200

INITIALIZE KMC=11 F IRMWARE

?zc

002452
030244

000200
031742

PC, INTKMC

B8R

031226

030244
000003
031010

JSR

031120

SEQ@ 0050

002462
173264

:COMMAND FAILED TO COMPLETE #=4

ERNUM

PC.REQOUT

:TEST REQUEST OUT OF KMC SETS

]TEST THeT BUFFER 1S RETURNED

INC

MOovBs

7$:

sTEST THAT INPUT COMPLETED

JSR
BR
INC
CMPB

BNE
INC

MOvB

CMPB

BNE

MOVB

#200, SHBE

8s
ERNUM
lZOO.iSELZ

ERNUM

CURLIN, SHBE

CURLIN,QSEL3

ERNUM

M.suas

(ACCOUNT FOR EXTRA ERROR ON RECEIVE)

sCOMMAND BITS=0 + OUT 1/0=0

:NO ABORTED BUFFER RETURNED #=6

sBUFFER OUT + BIT2=0

:B=SEL2 NOT CORRECT, ERROR #=7
sCORRECT LINE #?
:B=N ERROR #=10

C(MP8
BNE

#-6.3SEL6
13

;CORRECT STATUS RETURNED?
:B=N ERROR #=11

15716

*;ALL LINES TESTED

CLRB
@SEL2
*COMMAND DONE
:TEST FOR LINES TO ABORT
JSR
PC,GETLIN
:GET THE NEXT LINE NUMBER

BR
3s
sREPORT ERROR

TM~

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC

CZKMEA.P11

376
377
2378

007026
007032
00703¢

20-0CT-81 17:05

004737
104015
105077

2379 007040 000625

MACYT Bge(‘IOSZ)

21-0CT-81

08:50

PAGE 51

T VALUE FOR SOFTWARE SWITCH REGISTER

031470

JSR
ERROR+
CLRB

173224

£381
2382

Pg.csrcsa
1
@SEL2

SEQ 0051

;GET CONTENTS OF THE CSRS

::ttttttttt!ttttttt.t't'tt't'lti.'t.t'.tttttttitt.t.'.'.'.ttt..'.

2383

;ABORT

2384
2385
2386
2387
2388
2389

STHIS TEST WILL CHECK AN '‘ABORT IN'' COMMAND WILL RETURN (KILL)
*THE BUFFER CURRENTLY QUEUED TO THE LINE UNDER TEST BY INITIALIZING
:ALL LINES, SENDING A RECEIVE BUFFER TO EACH LINE, THEN ISSUEING
‘A LINE “ABORT IN'‘ COMMAND TO EACH LINE INDIVIDUALLY, TESTING THAT
:ONLY THE BUFFER QUEUED,
TO THAT LINE IS RETURNED WITH A
*STATUS (SEL6) OF (=6) '‘TERMINATED ON REQUEST''.

23%

::tt'tttttttttt.tttttttt't't'tttttQttttttttttttt.ttt't.tttttttt.t

391
5392

;TEST
16
22 1 3333333333332
33333328232332333333
33333333333 333 3333233333323 323323327

2393
2394
2395

007042
007044
007052

000004
012737
004737

000016
030244

002460

2397
2398
2399

007064
007072
007076

012737
005037
004737

000001
002462
030664

002452

26401

007106

2396

2400

2402

2403

2604

007056
007102

007110
007112

007116

012737
000434

007064

004737

031120

004737

031226

000431

000426

001110

002452
030244

012737

052660

002522

2611
2612
2613

007144
007152
007156

043737
005037
004737

002330
002524
031344

002526

2415

007164

004737

031650

2614

2616

007162
007170

2417
26418
2419
2620
2621
2622

007172
007174

0004

00040

010100

000756
000137

007444

007200
007204
007212

004737
012737
004737

030244
000003
031000

2626
2625
2626
2627
2428

007220
007224
007232
007240
007244

005237
113777
112777
005077
105077

002452
002454
000002
173024
173024

430

007250

004737

031772

26423

2429

2631

007216

007254

000766

000747

:LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

MOV
CLR
JSR

#1,ERNUM
SHBE
PC, INTKMC

;INITIALIZE KMC=11 FIRMWARE

MOV

28:

002526

PC, CLKALL

INC
JSR
i
MOV

ERNUM
PC,SETLIN

SINIT LINE

#RBUF ,BUFADR

:LOAD RECEIVE BUFFER

BIC
CLR
JSR

MODMSK
, BUF CNT
BUFEA
PC,RIN

:LOAD A RECEIVE BUFFER IN

JSR

PC,GETLIN

*GET THE NEXT LINE NUMBER

BR
78:
3$:

20§
208

#10100,BUF CNT

20§

278

BR
2
WP
8s
:ABORT EACH BUFFER
JSR
PC,SETLIN
MOV
#3. ERNUM
JSR
PC .REQNC

BR
173034
173036

:FIRMWARE FAILED TO INIT #=1

JSR

002452

208

*LOAD LOOP ADDRESS (LOOP ON ERROR)

PC, INTALL

MOV

208:

#1$, SLPERR

JSR

005237
004737

012737

#16, TSTNUM
PC,SETLIN

007120
007126
007130
007130

007136

1$:

SCOPE
MOV
JSR

2405
2406
2,07
2408

52?3

TST16:

20§

SINITIALIZE ALL LINES

SINITIALIZE LINES FAILED #=1

;START ALL CLOCK LINES THAT ARE ENABLED

*CLOCK COMMAND FAILED

*BUFFER IN FAILED TO LOAD #=2
*ALL LINES TESTED

STEST NEXT LINE
*BRANCH HELP TO ERROR

:CAN A CONTROL IN BE EXECUTED?

*HUNG OR OUTPUT PENDING #=3

INC
MOVB
MOVEB
CLR
CLRB

ERNUM
CURLIN,@SEL3
#2,3SEL7
aSEL4
@SEL6

;LOAD LINE #
*ABORT LINE
*UNUSED
* UNUSED

JSR

PC, INPDUN

;TEST THAT INPUT COMPLETED

:WAIT FOR ABORT COMMAND TO COMPLETE

B8R

20§

SCOMMAND FAILED TO COMPLETE #=4

| CZKMEAD DMS17<DA DYNAMIC

CZKMEA.P11

20-0CT-81 17:05

zag‘ 00725

MACY11 30A(1052)

007262
007266

105737
100406

2439

007276

004737

031354

2442
2443

007304
007310

005237
112737

002452
000204

2445

007322

000450

2447

007330

122777

2449
2450

007340
007344

00523
113737

2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463

007
007362
007
007374
007402
007404
007410
007414
007420
007422
007426
007430

001031
005237
112737
122777
001020
105077
005237
105737
100405
004737
000406
105077

007434
007440
007442

004737
000407
000660

031650

007444
007450
007452
007456

004737
104016
105077
000602

031470

58:

002311

2437
2438 007270 012737 033002 002522
%22?

88;302

000460

2444 007316 004737 031742
2646

007326

005237

2448 007336 00104;

2451

2464
2465
2466

2467
2468
2469
2470
2471
2472
2473

Sare

002452

000204

oozasz
002454

007352 123777 002454

007434

007444

002452
177772
1177772

PAGE 52

68
002462

172726

+TEST THAT BUFFER IS RETURNED

INC

ERNUM

TST8
MODE
BMI
65
:ONLY IN CCP MODE,

CHARACTER MUST BE WRAPPED AROUND AND

RECEIVED IN 0RDE§ FOR ABORT TO BE PROCESSED
MoV
#TERBUF ,BUFADR
JSR

PC_XIN

:LOAD A TRANSMIT BUFFER IN

INC
MOVB

ERNUM
#204 ,SHBE

; (ACCOUNT FOR EXTRA ERROR ON RECEIVE)
:COMMAND BITS=0 + OUT 1/0=1

NO ABORTED BUFFER RETURNED #=6

JSR

78:

INC

002462

172706

031742
98:

8$%:

172606

PC, RfOOUT
ERNUM

#204,@SEL2

INC
MOVEB

ERNUM
CURLIN,SHBE

CMPB

002462
172672

C(MPB

BNE

172654
002452
002311

172630

08:50

GET VALUE FOR SOFTWARE SWITCH REGISTER

oos;gr 002452

2634
435
436

21-0CT-81

BNE
INC
MOVB
CMPB
BNE
CLRB
INC
TSTB
BM]
JSR
BR
CLRB

CURLIN,aSELS

8s
ERNUM
#-6,SHBE
#-6,9SEL6
5%
@SEL2
ERNUM
MODE
9s
PC,REQOUT
8s
aSEL2

PRIHING TRANSMIT BUFFER IN FAILED TO COMPLETE #=5

TESI REQUEST OUT OF KMC SETS
:BUFFER OUT + BIT2=1

B-SELZ NOT CORRECT, ERROR #=7

:CORRECT LINE #?
:B=N ERROR #=10

CORRECT STATUS RETURNED?
=N ERROR #=11
.COHHAND DONE

;TEST REQUEST OUT OF KMC SETS
:PRIMING TRANSMIT BUFFER FAILED TO RETURN #=12
;DISMISS RETURNING XMIT BUFFER IN CCP MODE

:TEST FOR LINES TO ABORT
JSR
PC,GETLIN
;GET THE NEXT LINE NUMBER
BR
1ST17
J2ALL LINES TESTED
BR
3$

;REPORT ERROR

JSR
ERROR+
CLRB
BR

PC,GETCSR
16
@SEL2
13

:GET CONTENTS OF THE CSRS

2476
2477
2478
2479
2480

;;tttttttttttttttttt'ttttttttttttttttt.tttttttttttttttttttttttttt
;ALTSTA
:THIS TEST CHECKS THAT AN ALTERNATE TRANSMIT BUFFER CAN BE QUEUED
;TO EACH LINE AND IS RETURNED WHEN A LINE ABORT COMMAND
IS ISSUED.
AFTER EACH LINE IS TESTED FOR RETURNING ITS

2‘8

;;ttttttttttttttttttttttttttttttttttt'ttttttttttttttttttttttttttt

2‘86

ttttttitttttttttttttttt'tttttttttttttttttttttttttttttt'tttttttt

%231

2484
2485

2487 007460 000004

BUFFERS AN ALTERNATE BUFFER IS QUEUED TO THE LINE
JTEST

t§7117:

SCOPE

SEQ 0052

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:05
488

887668

12737

490 0074764

012737

489

00747

002460

MOV

#17,TSTNUM

:LOAD THE WD OF THIS TEST

001110

MOV

#1§, SLPERR

*LOAD LOOP ADDRESS (LOOP ON ERROR)

9;44

007502
007506

004737
o1§7 7

030244
000001

oorsgo

004737

030664

495
496

007514

007524

007526

00 ogr

000447

002462

004737

031120

26497 007532 000444
498

00753¢

004737

031226

2
2501
2502
2503
2504
2505

007542
007546
007552
007560
007566
007572

004737
oos;sr
o1§ gr
043737
005037
012737

030244
002452
017777
002330
002524
052260

2507

007600

004737

031354

2509

oo7eog

004737

031650

2511
2512
2513
gg}g

007614
007616
007622
007626

000771
004737
005237

030244
002452

2516

007626

004737

0313564

2518

007634

004737

031650

499 007540

2506 007600

000441

2508 007604 000417
2510 007612

2517

007632

000401

000404

2519 007640 000403
2520 007642 000771
2521
2522
2523
2524

007644
007650

000137
004737

010106
030244

%gsz

88;225

007654

012737

000004

2527

007666

004737

031010

2529
2530

007674
007700

005237
113777

002452
002454

532

007714

005077

17235

2528

531

2533
2534

007672

2537
2538

000764

010120

002452

JSR

18:

007720
0077264

105077
004737

172350
031772

007732

005237

00245

0077
007742

000745

oos;sr
012737

00245
000200

5320 007750 O00u3e o17e

JSR

PC, INTKMC

sINITIALIZE KMC=11 FIRMWARE

JSR

PC, INTALL

sINITIALIZE ALL LINES

2s:

002452

4$:

3221
BTID SIS NS
o
254% 007762 123777 002462 172274

;CLOCK COMMAND FAILED

PC, XIN

JSR

PC,GETLIN

:1 BUFFER TO EACH LINE

20§

:START ALL CLOCK LINES THAT ARE ENABLED

sINITIALIZE LINE #

:LARGE BUFFERS

:LOAD A TRANSMIT BU“FER IN

:BUFFER FAILED TO LOAD #=2
*GET THE NEXT LINE NUMBER

258

*DONE ALL LINES

JSR

PC XIN

:LOAD A TRANSMIT BUFFER IN

JSR

PC,GETLIN

*GET THE NEXT LINE NUMBER

BR
28
JSR
PC,SETLIN
INC
ERNUM
;LOAD ALT TO LINE

BR
B8R

208

31§
3s

:DO NEXT LINE

*BUFFER IN FAILED TO COMPLETE #=3

JMP
98
:FORM ERROR JUMP HELP
JSR
PC,SETLIN
;ISSUE "LINE ABORT'' TO THE CURRENT LINE
MOV
#4 ,ERNUM

CLR

10§

;SOFT SWITCH TO INDICATE WHICH BUFFER IS UNDER TEST

JSR

PC ,REQNX

:CAN A CONTROL OUT BE EXECUTED?

INC
MOVB

ERNUM
CURLIN,@SEL3

20§

*OUTPUT REQ. OR FIRMWARE HUNG #=4,14

MOVB

#2,aSEL7

;ABORT BUFFER

CLRB
JSR

@SEL6
PC, INPDUN

*UNUSED
STEST THAT INPUT COMPLETED

INC

ERNUM

CLR

B8R
002462

20§

JSR

BR
172360

sLINE INITIALIZE FAILED #=1

PC,SETLIN
ERNUM
#17777,BUFCNT
MODMSK
. BUF CNT
BUFEA
#TBUF ,BUFADR

BR
208:
31$:

*UNIT FAILED TO INITIALIZE #=1

20§

JSR
INC
MOV
BIC
CLR
MOV

BR
38:

20§

PC, CLKALL

B8R
258:

SHBE

JSR

002522

:SETUP THE FIRST LINE

PC,SETLIN
#1.ERNUM

002526
002526

PC,SETLIN

JSR
MOV

CLR

007706 112777 w%% 172362

gsss 007730
536

005037

SEQ 0053

737

491
492

26493

B 5
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 53
GET VALUE FOR SOFTWARE SWITCH REGISTER

INC
MOV

aSEL4

20§

ERNUM
#200, SHBE

be.REcouT

*UNUSED

*LINE ABORT COMMAND FAILED TO COMPLETE#=5.15
*

(ALLOW FOR EXTRA ERROR IN RECEIVE TEST)

NG OUTPUT AFTER ABORY NG BUFFERS #=7.17

I?Esv ruf?"gfirpur IS A BUFFER
OUT + REFLECTS CORRECT 1/0 BIT
CMPB SHBE,@SEL2
;CORRECT STATUS?
2

CZKMEAO DMS11=DA DYNAMIC

CZKMEA.P11
544
545
254

007770
007772

2548

010006

2547

2549
2550
2551

zss§

2553
2554
2555
ZSS?
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
%g%
2571

2572
2573
2574
2575

%g;g

007776

010012
010014

010020

20-0CT-81 17:05
881069
5237

0010%5
005237

112737

002454

177772

122777
0010%4
005237
105077
005237
005137
001303
005237
005037

002452
002462

010070
010074
010076
010076
010102
010102
010104

004737
000404

031354

004737

031650

010060
010064

010106

010106
010112
010114
010120
010122

177772

002462

MOVB

172254

CMPB

MOVB

172240

CMP8
BNE
INC
CLRB
INC
CoM
BNE

00245
172216
002452
010120

81%:

B8R

000663
9%:

031470
007502

108:
158:

000000

CURLIN,@SEL3

ERROR #=10,20

sCORRECT LINE #?

#-6,SHBE

#-6,3SEL6
9
ERNUM
a@SEL?2
ERNUM
108
5$

sCORRECT STATUS
;B=WRONG STATUS = ERROR #=12,22

TST20

s:ALL LINES TESTED

; COMMAND DONE
s (ALLOW FOR EXTRA ERROR IN RX TEST)
:1ST BUFFER OR 2ND?
;B=1ST, DO 2ND

DO NEXT LINE

JREPORT
JSR
ERROR+
JMP
0

ERRORS
PC,.GETCSR
17
1%

JGET CONTENTS OF THE CSRS
SWITCH
sDELAY COUNT

JALTSTA
sTHIS TEST CHECKS THAT AN ALTERNATE RECEIVE BUFFER CAN BE QUEUED

2581
2582

sTO EACH LINE AND IS RETURNED WHEN A LINE ABORT COMMAND
;IS ISSUED.
AFTER EACH LINE IS TESYcD FOR RETURNING ITS

ggz

sBUFFERS, AN ALTERNATE BUFFER IS QUEUED TO THE LINE

2§gg

5587
2588

2589 010124

000004

2590
2591

010126
010134

012737
004737

000020
030244

2593
2594
2595
2596

010143
010152
010160
010164

004737
012737
005037
004737

030244
000001
002462
030664

598

010172

004737

031120

599

CURLIN,SHBE

SEQ 0054

L
T
YT

2579
2580

597

PAGE 54

INC
ERNUM
CLR
SHBE
JNOW LOAD ANOTHER ALTERNATE BUFFER
JSR
PC,XIN
sLOAD A TRANSMIT BUFFER IN
BR
9
JALT BUFFER FAILED TO LOAD #=24
sCHECK FOR MORE LINES TO TEST
JSR
PC,GETLIN
sGET THE NEXT LINE NUMBER

8s:

2578

2592

BNE
G4
sB=N WRONG LINE # RETURNED ERROR #=11,21
INC __ ERNUM
:
i
:TEST THAT STATUS (SEL6) IS A ''TERMINATED ON REQUEST'' STATUS

002462

000410

004737
104017
000137
000000

08:50

BNE
9%
;B=WRONG STATUS IN SEL2
INC
ERNUM
;TEST THAT OUTPUT BUFFER HAS CORRECT LINE #

002452

010026
010034
010036
010042
010046
010052
010056

21-0CT-81

T VALUE FOR SOFTWARE SWITCH REGISTER

002452

113737 002454

123777

MACY11 382(1052)

010140 012737

010170

010176

000447

000444

010146

002460

001110
002452

7S720:
1$:

A AR

RN AR RN RARARAANAARRRNRANARRS

JTEST 20
R R AR AR AR AR AR RN R RN AR ANRR AN RNARANRRRRR

SCOPE

MOV
JSR

#20,TSTNUM
PC,SETLIN

sLOAD THE WD OF THIS TEST
JSETUP THE FIRST LINE

JSR
MOV
CLR
JSR

PC,SETLIN
#1,ERNUM
SHBE
PC,INTKMC

JINITIALIZE KMC-11 FIRMWARE

MOV

JSR

013.8LPERR

208

PC,INTALL

20‘

sLOAD LOOP ADDRESS (LOOP ON ERROR)

JUNIT FAILED TO INITIALIZE #=1
JINITIALIZE ALL LINES

sLINE INITIALIZE FAILED #=

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
gggo
2602
geo

010200

004737

010 og
01021

7;7
030244
oos; 7 ; ;

810204

882441

D 5
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 55
GET VALUE FOR SOFTWARE SWITCH REGISTER

031226

604 010216 81§ §7
01 77 002526

2605
2606
2607
2608
2609

010224
010232
010236
010244
010244

737
005037
012737

ooz
oszeeo

004737

031344

2611

010252

004737

031650

2613
2614
2615
gg}g

010260
010262
010266
010272

000771
004737
005237

030244
002452

2618

010272

004737

031344

2620

010300

004737

031650

2622
2623
2624

010306
010310
010314

000771
000137
004737

010634
030244

012737
005037

000004
010646

2610 010250 000417
2612

010256 000401

2619 010276 000404
2621

010304

2625
2626 010320
%gsg 833%%3

000403

2629

010332

004737

131000

2631
2632

010340
010344

005237
113777

002452
002454

2635
2636

010364
010370

105077
004737

171704
031772

2630 010336

2633 010352
2634 010360

000764

112777 000002
005077 171704

002526

002522

28:

2641

2642

2643

010410

2644

010416

2647
2648

010424
010430

PC,SETLIN
£

;CLOCK COMMAND
FA

MOV

04;997.aurcnr

:LARGE BUFFERS

B8R

20$

BIC
MODMSK
, BUF CNT
CLR
BUFEA
MOV
#RBUF ,BUF ADR
:1 BUFFER TO EACH LINE
JSR
PC,RIN

258:
38:

4$:
e

171716

*BUFFER FAILED TO LOAD #=2
*GET THE NEXT LINE NUMBER

*DONE ALL LINES
DO NEXT LINE

PC,RIN

:LOAD A RECEIVE BUFFER IN

JSR

PC,GETLIN

*GET THE NEXT LINE NUMBER

BR
JMP
JSR__

k{3
9s
PC,SETLIN

;FORM ERROR JUMP HELP

JSR

PC ,REQNC

;CAN A CONTROL 1n BE EXECUTED?

INC
MOVB

ERNUM
CURLIN,@SEL3

208

31§

*BUFFER IN FAILED TO COMPLETE #=3

:ISSUE "LINE ABORT'' TO THE CURRENT LINE
MoV
#4 ,ERNUM
CLR
10§
;SOFT SWITCH TO INDICATE WHICH BUFFER IS UNDER TEST
BR

171714

:LOAD A RECEIVE BUFFER IN

JSR

002452

25$

BR
28
JSR
PC,SETLIN
INC
ERNUM
:LOAD ALT TO LINE

B8R
08:
1$:

PC,GETLIN

INITIALIZE LINE ¥

208

*OUTPUT REQ. OR FIRMWARE HUNG #=4,14

MOVB
CLR

#2,9SEL7
aSEL4

:ABORT BUFFER
*UNUSED

e
TSTB

MODE

SLIKE ASORTCOAMD FAILED
TO COMPLETER=S.15

CLRB
JSR

8M]

@SEL6
PC, INPDUN

*UNUSED
STEST THAT INPUT COMPLETED

:IN CCP MODE ONLY, A CHARACTER MUST BE WRAPPED AROUND AND

033002

004737

031354

005237
012737

002452
000204

5222 8}8255 000504

JSR
INC

: START ALL CLOCK LINES THAT ARE ENABLED

20§

100406

012737

PC, CLKALL

JSR

2838
010376 009537 002452
2639 010402 105737 002311

2640 010406

JSR

SEQ 0055

*RECEIVED IN ORDER FOR ABORT TO BE PROCESSED.

002522

=
002462

52?5 RS S
—
8032 010438 Gol06q 002462 171606
2655 010460 oosggg 002452

MOV

#TERBUF ,BUFADR

B8R

98’

JSR

INC
MOV

PC.XIN

:LOAD A TRANSMIT BUFFER IN

*PRIMING TRANSMIT BUFFER FAILED TO COMPLETE #=6.16

ERNUM
czo4.suas

‘,ES, rufi?"gfltpur IS A BUFFER OUT + REFLECTS CORRECT 1/0 BIT
X0 pet.asha
scoMC] HIATET . o2 snacn av10.20
INC
ERNUM
4

CZKMEAQC DMS11-DA DYNAMIC

CZKMEA.P11
%659

657

2658
2659

2660

2661

zoeg

010464

010472
010500
010502

010506

20-0CT-81 17:05

ngm

002454

005237

002452

123777
001055

112737

002454

177772

2663
2664
2665
2666
2667
2668
%g%

010514
010522
010526
010530
010534
010540
8}8;2(2’

122777
001044
005237
105077
105737
100415
012737

000127

2671

010550

004737

031742

2673
2674
2675
2676
gg;;

010556
010560
010564
010566
8}82;2

000404
005337
001371
000422
105077

2679
2680
2681
2682
2683

010574
010600
010604
010606
010612

005237
005137
001252
005237
005037

002452
010646

2685
2686
2687
2688
2689
2690
5285

010616
010622
010624
010626
010630
010630
010632

004737
000404

031344

004737

031650

2693
2694
2695
2696
2697

010634
010634
010640
010642
010646

2672 010554 000401

2684

gggg

2700

2701
270
270

010650

177772

MOVB

171566

002462

010650

12%:

171470

;28:

002452
002462

8$:
81$:

9%:

108:

15%:
JIRARA

2704

2710
2711

#-6,SHBE

CMPB
BNE
INC
CLRB
TST8B
BMI
MOV

sCORRECT LINE #?
:B=N WRONG LINE # RETURNED ERROR #=11,21

#-6,8SEL6
%
ERNUM
aSEL?2
MODE
7$
#127,15%

sCORRECT STATUS
;B=WRONG STATUS - ERROR #=12,22

JSR

PC ,REQOUT

JTEST REQUEST OUT OF KMC SETS

BR
DEC
BNE
BR
CLRB

138
158
118
9s
aSEL?2

JPRIMING XMIT BUFFER NOT RETURNED #-13,23
sACCOUNT FOR RETURNING XMIT BUFFER

128

; COMMAND DONE
sSET UP WAIT LOOP

INC
ERNUM
s (ALLOW FOR EXTRA ERROR IN RX TEST)
COM
108
;1ST BUFFER OR 2ND?
BNE
5%
:B=1ST, DO 2ND
INC
ERNUM
CLR
SHBE
sNOW LOAD ANOTHER ALTERNATE BUFFER
JSR
PC.RIN
JLOAD A RECEIVE BUFFER IN
BR
9s
sALT BUFFER FAILED TO LOAD #=24
sCHECK FOR MORE LINES TO TEST
JSR
PC,GETLIN
JGET THE NEXT LINE NUMBER

BR
BR

TST21
43

s:ALL LINES TESTED
;DO NEXT LINE

sREPORT
JSR
ERROR+
JMP
0

ERRORS
PC,GETCSR
20
18

sGET CONTENTS OF THE CSRS

sSWITCH

sDELAY COUNT

AR AR AR AR AR AR AR AR TR AR AR RN AR AN RN AR AN RN RN AN AR NARARAARRANS

;sALTBUF
S
sTHIS TEST CHECKS THAT ALTERNATE BUFFERS CAN BE QUEUED TO EACH
sLINE AND ARE PROPERLY HANDLED BY THE FIRMWARE. A PROGRESSION IS

sDONE, TESTING THE QUEUEING OF ALTERNATE BUFFERS TO EACH LINE.

2705
%;89
5;83

ERNUM

MOVB

171552

171530

010146

CURLIN,@SEL3
9s

;TEST THAT STATUS (SEL6) IS A ‘‘TERMINATED ON REQUEST'® STATUS

002311

031470

CURLIN,SHBE

CMPB
BNE
INC

010650

SEQ 0056

;TEST THAT OUTPUT BUFFER HAS CORRECT LINE #

002462

002452

000410
000632
004737
104020
000137
000000

E 5
MACY11 30A(1052) 21-0CT7-81 08:50_ PAGE 56
GET VALUE FOR SOFTWARE SWITCH REGISTER

sTHE CURRENT LINE IS QUEUED 2 RECEIVE AND 2 TRANSMIT BUFFERS
JAND A TEST THAT THE BUFFERS FOR THE CURRENT LINE ARE RETURNED CORRECTLY.
IR

AR R

JTEST

AR AR

R AR AR RN AR AN N AR RN

RN RN

NARRRRRRRAR

AR AR AR AR AN AR AN AR R AN AR ANN AR RARRARARANNRRARRRRRARANRR

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:05
2712
2713
2714

010652
010654
010662

012737
004737

F 5
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 57
GET VALUE FOR SOFTWARE SWITCH REGISTER

000021
030244

002460

2716 010676
2717 010702

012737 000001
005037 002462

002452

2719 010712

000452

2715 010666 0157 7 010674 001110

2718

010706

004737

030664

2720

010714

004737

031120

2722

010722

004737

031274

2726
2725
2726
2727
2728
2729
%;gg

010730
010734
010740
010744
010752
010760
8}8;93

004737
005237
005037
015737
043737
005037
012737

031714
002452
524
010020
002330
011402
052660

2732

010772

004737

031344

273
2735
2736
2737

011060
011006
011006
011012

005137
001372
005237
012737

011402

2721

010720 000447

2723 010726 000444

2733

010776

2738 011020
%;23 8118%2

000567

002452
052260

o127§7 010005
043737 002330

27641

011036

004737

031354

2743

011042

005137

011402

27642

011040

000546

2764 011046 001372

2745
2746
2747
2748
2749
2750
2751

011050

005037

002526
002526

002522

002526
002526

oos; 7
013737
123777
001116
005237

002452
002454
002462

5;§g 011126 012737 000001

002462

2760

011134

132777

000004

171122

2762

011144 oosgs

002462

2761

2763
2764

011142

oo140;

011150
011156

123777
001077

011164

132777

002462

5;22 NS SN e
2767

48:
.

002522

011100
011104
011112
011120
011122

002452

000004

#1,ERNUM
SHAE

002452

171116

171072

PC, INTALL

SINITIALIZE ALL LINES

65§

658

PC,STCLK

*KMC FAILED TO INITIALIZE #=1
sLINE INITIALIZE FAILED #=1

*SET MAINT LOOP + START CLOCK

*MAINTENANCE COMMAND NOT ISSUED #=1

JSR
INC
CLR
MOV
BIC
CLR
MOV

PC,SYNTIM
ERNUM
BUFEA
#10020,BUFCNT
MODMSK
. BUF CNT
148
#RBUF ,BUFADR

JSR

PC,RIN

COM
BNE
INC
MOV

148
58
ERNUM
#TBUF ,BUFADR

JSR

PC XIN

:LOAD A TRANSMIT BUFFER IN

coM

148

:1ST OR 2ND BUFFER IN

658:

11$

#10005,BUFCNT
MODMSK . BUF CNT
11$

BNE

11$

*ALLOW TIME FOR SYNC

;RECEIVE BUFFER LCNGER THAN XMIT BUFFER
;TIMES SWITCH
:LOAD A RECEIVE BUFFER IN

*B=RECEIVE BUFFER FAILED TO LOAD #=2
*1ST OR 2ND BUFFER IN

:FOR COMPATABILITY WITH CCP MODE, USE BUFFER

:STARTING WITH SOH & ENDING WITH ETX

*B=TRANSMIT BUFFER FAILED TO LOAD #=3

:NOW TEST THAT THE BUFFERS QUEUED TO THE CURRENT LINE RETURN CORRECTLY
*THERE MUST BE 2 RECEIVE AND 2 TRANSMIT
CLR
148
:COUNT TOTAL BUFFERS
CLR
138
*COUNT RECEIVE BUFFERS
MOV
#%,ERNUM
CLR
SHBE
JSR
PC ,REQOUT
:TEST REQUEST OUT OF KMC SETS

INC
MOV
CMPB
BNE
INC

ERNUM
CURLIN, SHBE
SHBE,@SEL3
118
ERNUM

*NO OUTPUT REQ. ERR #=4
:SHOW CURRENT LINE #
*CORRECT LINE #?
:B=NO ERROR #=5

MOV

#1,SHBE

;gs;u§=1§rgzgszs?gghge?§)=Faa(sggvcouut REACHED)

BITB

#4,aSEL2

*CHECK FOR RECV

INC

SHBE

*RECV=

BEQ
91$:

*LOAD LOOP ADDRESS (LOOP ON ERROR)
;INITIALIZE KMC=11 FIRMWARE

)
002462
171146

:LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

PC, INTKMC

65$

MOV
BIC

9%:

#18, SLPERR

2753
2754
2755
2756
2757

ooosgr

MOV
CLR

MOV

JSR

011402

011400
000004
002462
031742

#21,TSTNUM
PC,SETLIN

JSR

005037
012737
005037
004737

011076

1$:

SCOPE
MOV
JSR

JSR

011056
011060
011066
011072

2752

TST21:

SEQ 0057

(MPB
BNE

91§

SHBE.aSEL6
118

SSKIP

IF XMIT

*CORRECT STATUS?
‘B=N #=6

'?fuo uuf?fi“?no NG ADDRESS SHOULD BE TESTED

BITB

#4,aSEL

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
gm

011172

001420

2770

011202

105737

002311

105737

002316

769 011176

2771

2772

011206

011210

012737 052665

100015

2773 011214 100415
2774 011216 105737
2775 011222 100012
2776 onzg« 062737
2777 011232 0004.09

2778
2779

2780
2781
2782
2783
2784

011236
011242

011246
011250
011256
011264
011266

012737
105737

002462

052265
002311

002462

132777

000004

005237
005237
005077
005237

011400
011402
170752
002452

2795
2796

011344
011350

005237
004737

00245
03174

2807
gggg

011400
011402

168:
198:

170770

004737
104021
000137

031470

004737

031650

010674

2805 011374 000403
2806 011376 000772

000000
000000

2810

53112

108:

11$:

128:
17$:
818$:

138:
1%8:

CLKDAT

BMI
TSTB
BPL
ADD
BR

188

168
CRC32F
16$
#4, SHBE
16$

:RECEIVE BUFFER

sCHECK INTERNAL OR EXTERNAL

;EXTERNAL, CHECK CRC=32 ENABLED?
:YES, ADD & BYTES FOR APPENDED CRC

MOV
TSTB

#TBUF+5,SHBE
MODE

;TRANSMIT BUFFER
+CHECK MODE

BITB

#4,aSEL2

*WHAT BUFFER?

B8PL
ADD
CMP
BNE
INC
INC
CLR
INC

198
#5, SHBE
SHBE , aSEL4
118
10§

13$
148
aSEL2
ERNUM

MOV
CMP
BNE
CMP
BNE

13$, SHBE
0,148
9s
#2,138
11$

17§

ERNUM
PC ,REQOUT

*SKIP IF CCP
+1F BOP, CONVERT WORD COUNT INi10 BYTES
*CORRECT ADDRESS?
:B=NO ERR #=7
‘B=XMIT

:1 TO THE REC.
*1 TO THE TOTAL
*SHOW COMMAND DON

:SHOW # OF REC. BUFFERS
4 YET?
‘B=N TRY AGAIN
*ARE THERE 2 REC. + 2 XMIT?
*REPORT ERR #=10
:TEST REQUEST OUT OF KMC SETS

:0K NO MORE OUTPUT REQUESTED #11=ADDITIONAL OUT REQ.

:REPORT
JSR
ERROR+
JMP

ERROR
PC,GETCSR
21
1

JSR

PC.GETLIN

:GET THE NEXT LINE NUMBER

BR
B8R

TST22
128

::ALL LINES TESTED

0
0

;GET CONTENTS OF THE CSRS

;LOOP @ 18

:# OF RECEIVE BUFFERS RETURNED
:# OF TOTAL RECEIVED + COUNT FOR BUFFERS LOADED

:NXM

:THIS TEST CHECKS THAT A NON-EXISTANT MEMORY STATUS (=S5) WILL BE
*RETURNED WITH A RECEIVE BUFFER OUT.
THE NON-EXISTAND MEMORY
*LOCATION IS I/0 PAGE LOCATION 10 TO WHICH THE RECEIVE BUFFER IS

*ADDRESSED.

5%13

23 1 22 3332232323333 3 3332333333333 3333333333 33333323 3333333333333 323222%3

2820

011404

000004

2823 011406 012737 000022 002460

;TEST

i i 2223233333333 2333333333333 3333333333333 3333333333333 3333332¢31

7S§122:

SCOPE

MOV

#22,TSTNUM

SEQ 0058

:B=TRANSMIT BUFFER

2 :tttttttttttttttttttttttttttttttttttttttttttttttltttt.tttttttttt

gg;g

2822

TSTB

INC
JSR

2813
2814
2815

2821

MODE

BNE

013737 011400 002462
022737 000004 011402
001252
022737 000002 011400
001005

2797 011354 000405
011356
011356
011362
011364
011370
011370
011374

158:
188:

15$

#RBUF+5,SHBE

TSTB

BPL

000004

011276
011302
011306
011312

2798
2799
2800
2801
2802
2803
2804

MOV

002314

2786
2787
2788
2789

011316
011326
011332
011334
011342

BEQ

002462

100003
062737 000005 002462
023777 002462 1710064
001034

2785 011274 001002
2790
2791
2792
2793
2794

6 5
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 5 8
GET VALUE FOR SOFTWARE SWITCH REGISTER

:LOAD THE WD OF THIS TEST

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
2826

0114146

2825 011420
2826 o114§2

004737

012737
012737

030244

011426

2827 011434
2828

011440

005037 ogzaez

283,
2835
2836

011462
011466

004737
005237

031714
002452

011472

012737

010002

011506
011514

012737
012737

140000
177770

011530

005237

002452

011534

012737

010004

2829
2830
2831
2832
2833
2837

2838

2839
2840

011444
011446
011452
011456
011460

011500

2845

043737

002330

011542
011550
011556
011562

043737
005037
012737
004737

2851
2852
2853

011570
011574

005237
012737

002452
000204

2855
2856
2857
2858
2859
2860
2861

011602

011606
011610
011614
011622
011624
011630
011636

004737

000423
005237
123777
001015
005237
112737
123777

031742

2863

011646

004737

031650

2867
2868
2869

011656
011656
011662

004737
104022

031470

2850 011566 000433

2862 011644

2864

011652

001004

000405

gggg 011654 0
2870 011664

2873

2874
2875
2876
2877
2878
2879

JSR

18:

000504
004737 031204
000501
004737 031274
000476

2846
2847
2848
2849

2854

001110
002452

004737

2841 011522 004737 031344
2842 011526 000453
2843
2844

5
MACY11 SOA(‘IOSZ) 21-0CT-81 08:50 PAGE 59
T VALUE FOR SOFTWARE SWITCH REGISTER

000660

002330
002524
052260
031354

015 SLPERR
1, ERNUM

JSR

PC, INTKMC

CLR

B8R
JSR
B8R
JSR
BR
002526

MOV

002524
002522

MOV
MOV

MODMSK surcnr

JSR
B8R

PC.RIN
28

BIC
CLR
MOV
JSR

002522

B8R

*FIRMWARE FAILED TO INITIALIZE #=1
:INITIALIZE LINE (# IN CURLIN)
*LINE FAILED TO INITIALIZE #=1
:SET MAINT LOOP + START CLOCK
*MAINTENANCE COMMAND NOT ISSUED #=1

#160000,BUFEA
#-10,BUFADR

;EA-BITS
:1/0 PAGE ADDR. 10

*LOAD A RECEIVE
BUFFER IN
*REC.BUFFER FAILED TO LOAD #=2

#10004 , BUF CNT

MODMSK. BUF CNT
BUFEA
#TBUF ,BUFADR
PC.XIN

:LOAD A TRANSMIT BUFFER IN

*TRANSMIT BUFFER FAILED TO LOAD #=3

INC
ERNUM
MOV
#204, SHBE
;TEST FOR AN OUTPUT RESPONSE

002462

JSR

002462
170430

;INITIALIZE KMC=11 FIRMWARE

#10002
, BUF CNT

BIC

MOV

002526

002452
177773
002462

28’
PC, INTLNE
28
PC,STCLK
28

*LOAD LOOP ADDRESS (LOOP ON ERROR)

INC
ERNUM
:LOAD THE TRANSMIT BUFFER

002526

170442

sué

;SETUP THE FIRST LINE

JSR
PC,SYNTIM
*ALLOW TIME FOR SYNC
INC
ERNUM
;LOAD THE nscsxve BUFFER AT 1/0 PAGE ADDRESS 10

002526

002452
002462

PC,SETLIN

MOV
MOV

28
ERNUM
SHBE,@SEL2
2
ERNUM
#-5,SHBE
SHBE,3SEL6

JSR

PC GSTLIN

JSR
ERROR+

PC,GETCSR
22

BNE
B8R

B8R
28:

PC,REQOUT

BR
INC
(MPB
BNE
INC
MOVB
C(MPB

;TEST REQUEST OUT OF KMC SETS
*NO OUTPUT RESPONSE #=4

:B=RETURN NOT A RECEIVE BUFFER #=5
;1S RETURNED STATUS A NON-EXISTANT MEMORY?

*B = ERROR #6

TST2

iesr NEXT LINE

csr THE NEXT LINE NUMBER

XIT

;GET CONTENTS OF THE CSRS

::ttttttttt.t.tttttttt'tttttttttttttttttttttttt'ttittttttttttttt'

: TERMXB
*CCP MODE ONLY
:THIS TEST WILL CHECK THAT THE 2 CHARACTERS ETX AND ETB
*ARE DETECTED AND PROPERLY RETURN THE BUFFER OUT COMMAND STATUS.
:BOTH CHARACTERS ARE TESTED INDIVIDUALLY WITH EACH PREF IXED
*BY AN SOH THEN A STX

SEQ 0059

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

012144
012150
012156
012162
012170
012172
012176

000023
002311

002460

AR A

AR AR R

18:

002452

SCOPE

MOV
JSR

BPL
JMP
CLR
CLR

MOV
MOV
CLR
MOV
CLR
JSR

002522

170144

#23, TSTNUM
PC,SETLIN

#1§, SLPERR
MODE

17%
2
$TMPO
$TMP1
#TERBUF ,4$
#5 ,BUFCNT
BUFEA
#1,ERNUM
SHBE
PC, INTKMC

JSR
INC

PC,SYNTIM
ERNUM

MOV
JSR

#RBUF ,BUFADR
PC.RIN

JSR

ERNUM
4$,BUFADR
BUF CNT
PC,XIN

JSR

PC .REQOUT

INC
MOV
JSR
(MPB

ERNUM
#204
, SHBE
PC,RBONL
Y
SHBE,@SEL2

INC
MOV

ERNUM
#RBUF
+4 ,SHBE

BNE

it ddididd

PC,STCLK

B8R
002462

dddd

JSR

BR
INC
JSR

002452
031714
031742

PC, INTLNE

BR
INC
MOV
DEC

002522

it it e

JSR

B8R

031714

002452
000204
031522
002462

:TEST

031274

002452
012256
002526
031354

031204

031344

MOV
TSTB

178:

012256
002526

fsras:

001110

012230

011666
011670
011676
011702
011710
011714
011716
011722
011726
011732
011740
011746
011752
011760
011764
011770
011772
011776
012000
012004
012006
012012
012016
012024
012030
012032
012036
012044
012050
012054
012056
012062
012066
012072
012074
012100
012106
012112
(12120
012122
012126
012134
012142

SS22 RES it 28 RSRSRSR 22822

2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2896
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
c907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935

1 §
MACY11 30A(1052) 21-0CT7-81 08:50 PAGE 60
GET VALUE FOR SOFTWARE SWITCH REGISTER

3s
ERNUM
PC,SYNTIM

SEQ 0060
it

ittt

iddddd)

ittt iiitiiddliiddiiiiiiiiidssds

sLOAD THE WD OF THIS TEST
sSETUP THE FIRST LINE
sLOAD LOOP ADDRESS (LOOP ON ERROR)
:CCP MODE ONLY
sSWITCH FOR CHARACTER S OH & STX
sSWITCH FOR CHARACTER E TTMX € ETB

sINITIALIZE KMC=11 FIRMWARE
sFIRMWARE FAILED TO INITIALIZE #=1
sINITIALIZE LINE (# IN CURLIN)
sLINE FAILED TO INITIALIZE #=1
sSET MAINT LOOP + START CLOCK
sMAINTENANCE COMMAND NOT ISSUED #=1
;ALLOW TIME FOR SYNC
sLOAD A RECEIVE BUFFER

sLOAD A RECEIVE BUFFER IN

sRECEIVE BUFFER FAILED TO LOAD #=2
s CURRENT BUFFER ADDRESS

sLOAD A TRANSMIT BUFFER IN
sTRANSMIT BUFFER FAILED TO LOAD #=3
sWAIT A WHILE
sTEST REQUEST OUT OF KMC SETS
sNO RESPONSE FROM THE ENDING CHARACTER #=4
:1S COMMAND A BUFFER 0UT?
sSKIP XMIT

:B=NO COMMAND IS NOT A RECEIVE BUFFER OUT #=5

002452
052664
002462

002462
170126

002452
000002
012256
000020

002462

MOV

#2,SHBE

sLOAD ETX RETURN STATUS VALUE

000003

BITB

o§6.3<a0)

:UesrgflAR. ETX OR ETB

SHBE,@SELS

sMAKE RET. STATUS AN ETB (3) DETECTED
sCORRECT TERMINATION STATUS

002462
002462

170070

CMP

SHBE
, 3SEL4

sCORRECT ENDING MEMORY ADDRES?

:B=NO ENDING MEMORY ADDRESS INCORRECT #=6
:zxno ruE CORRECT RETURN STATUS VALUE

BNE
INC

MOV

15%:

BEQ
INC

(MPB

RNUM

4$ RO

158
SHBE

CZKMEAO DMS11-DA DYNAMIC
CIKMEA.P11
20-0CT-81 17:05

2936

012204

001014

gggz

81 206

062737

2939
%gzg

012222
8125%3

oo1;46
004737

2942

012230

000413

000137

011722

2945
2946
2947

012236

017737

000014

2949
2950
%gg}

012250
012252
012256

104023
000137
000000

ggz‘

2948

12214

012232

012244

022737

004737

oggooa

033022

J 5
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 61
GET VALUE FOR SOFTWARE SWITCH REGISTER

012256

031650

031470

BNE

012256

011740

18
PC,GETLIN

*B=NO
:GET NEXT LINE NUMBER

#TERBUF+20,48
1ST24

178

:DONE?
2 : DONE

:DO NEXT LINE

3$:

;REPORT ERRORS
MOV
84S, WAS :SHOW COMBINATION FAILING

A ¥

ERROR+
JMP
0

JSR

PC,GETCSR
23
13

:GET CONTENTS OF THE CSRS
JADDRESS OF CURRENT TRANSMIT BUFFER

;:tttttttfiltttttttttttttttttttttttttttttttttttttttttttttt'ttttttt

2955
2956
2957
2958
2959
2960

:LRCTST
2CCP MODE ONLY
JTHIS TEST CHECKS THAT AN LRC ERROR CONDITION CAN BE DETECTED
JAND RETURNS THE RECEIVE BUFFER WITH AN LRC CONDITION.
sTO GENERATE THE LRC ERROR A SPECIALLY FORHA]TED.BUFFER IS OUTPUT
sWITH AN ADDITIONAL CHARACTER FOLLOWING THE "ETX'' WHICH THE RECEIVER

ggg;

:INTERPRETS AS THE LRC CHARACTER

2963

::tttttttttQtttttttttttttttt'ttttttttttttt'ttttttttttttttttitt'tt

2964
2965
2966

JTEST

SCOPE
MOV
JSR

#24, TSTNUM
PC,SETLIN

;LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

MODE
18
2$
SHBE
#1,ERNUM
BUFEA
#10,BUF CNT
PC. INTKMC
3s
PC, INTLNE
3s
PC,STCLK
3$
ERNUM
#RBUF ,BUFADR
PC.RIN

:CCP MODE ONLY

:;tttttttttttttttttttttt'ttt'ttttttttttttttttttttttttfittttttttttt

2967
2968
2969

012260
012262
012270

000004
012737
004737

2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
88
89
2990

012302
012306
012310
012314
012320
012326
012332
012340
012344
012346
012352
012354
012360
012362
012366
0123764
012400
012402
012406
012414

105737
100002
000137
005037
012737
005037
012737
004737
000501
004737
000476
004737
000473
005237
012737
004737
oooags
005237
012737
004737

2991

BNE
JSR

JMP

53
22354

2970

*MOVE TO NEXT VALUE

002464

;B=NO #=7

#6,48

CMP

ADD

012274

012420

012737

000453

000024
030244

012314
002311

012542
002462
000001
002524
000010
030664

002460

TST24:

001110

002452

002526

031204
031274
002452
052660
031344

002522

002452
033026
031354

002522

MoV

18:

TSTB
BPL
JMP
CLR
MOV
CLR
MOV
JSR
BR
JSR
BR
JSR
BR
INC
MOV
JSR
BR
INC
MOV
JSR

l1§,8LPERR

ERNUM
#LRCBUF ,BUFADR
PC,XIN

sLOAD LOOP ADDRESS (LOOP ON ERROR)
:

;INITIALIZE KMC=11 FIRMWARE
JFIRMWARE FAILED TO INITIALIZE #=1
SINITIALIZE LINE (# IN CURLIN)
sLINE FAILED TO INITIALIZE #=1
;START CLOCK
*MAINTENANCE COMMAND NOT ISSUED #=1

:LOAD A RECEIVE BUFFER IN
*RECEIVE BUFFER FAILED TO LOAD #=2
:LOAD A TRANSMIT BUFFER IN

*TRANSMIT
BUFFER FAILED TO LOAD #=3

SEQ 0061

CZKMEA.P11 20-0CT-81 17:05
ng 012422 wgy 002452
299
299

o14§6

2996
2997

01 440
012444

2995 01

004 g?
004737

031714
031742

005237
012737

002452
000204

000444

2998 012452 004737 03152
2999 012456 123777 002462
3000
3001
3002

012464
012466
012472

001031
005237
o1§737

3006
3005
3006
3007
3008
3009

012506
012510
012514
012520
012526
012534

001020
005237
005037
112737
123777
001005

3011
3012
gg}z

012542
012542
012544

002452
052666

3003 012500 023777 002462

002452
002462
177774
002462

MACY11 30A(1052)

3015
3016
3017
3018
3019
3020
3021
3022

012550
012550
012554
012556

004737
104024
000137

5
PAGE 62

JSR
JSR

PC,SYNTIM
PC.REQOUT

;WAIT A WHILE
*TEST REQUEST OUT OF KMC SETS

INC
MOV

ERNUM
#204 , SHBE

:BUFFER OUT COMMAND?

BNE
INC
MOV

ERNUM
#RBUF+6,SHBE

BNE
INC
CLR
MOVB
CMPB
BNE

3s
ERNUM
SHBE
#-4,SHBE
SHBE,ASEL6
s

PC,GETLIN

‘D0 nsxr LINE

BR
JMP

1ST25
1$

; :DONE

8R
002462

JSR
CMPB

167600
002462

167562

CMP

002462
167540
28:

012314

3s:

031470
012314

33%%3

JSR

38’

PC ,RBONLY
gHfiE.aSELZ
SHBE , aSEL4

*NO RESPONSE FROM THE TRANSFER #=4
SSKIP XMIT

:B=NO ERROR #=5
;RETURN ADDRESS

:CORRECT?

:B=N ERR #=6

;STATUS
= LRC ERROR
#=7

;REPORT ERRORS

JSR
ERROR+
JMP

PC,GETCSR
24
18

:GET CONTENTS OF THE CSRS

:;ttttttlttttttttttttttttttttttttttttttttttttttttttt'tttttt'ttltt

3025

JPARTST

3026
3027
3028
3029
gggg

*CCP MODE ONLY
ruxs TEST CHECKS THAT A PARITY ERROR CONDITION CAN BE DETECTED
AND RETURNS THE RECEIVE BUFFER WITH A PARITY CONDITION.
“TO GENERATE THE PARITY ERROR A SPECIALLY FORMATTED BUFFER BUFFER 1S OUTPUT
*WITH AN EVEN PARITY DATA CHARACTER FOLLOWING THE CONTROL CHARACTERS

338%%

:;QttttttQttt.ttltttttttttttttttttl.tt.t.ttt.lt..ttlttt.tt.t'ttti

3034

;TEST

3035

3036 012562 000004

3037
3038

012564
012572

012737
004737

3041

012610

mwg

3043
3044
3045
3046
3047

012616
0126§2
012630
012634
012642

3039
3040

08:50

GET VALUE FOR SOFTWARE SWITCH REGISTER
INC
ERNUM

3010 012536 004737 031650
000407
000137

21-0CT-81

012576
012604

012737
105737

soag 012612 000137

005037
012737
005037
012737
004737

tttttttt.tttttttttttt'ttttt'tttttttttttt'tttt'ttttttttttt.ttttt

000025
030244

012616
002311

002460

MOV
JSR

001110

002452
002526

18:

#25,TSTNUM
PC,SETLIN

:LOAD THE WD OF THIS TEST
SSETUP THE FIRST LINE

MOV
TST8

#1%, SLPERR
noDE

*LOAD LOOP ADDRESS (LOOP ON ERROR)
:CCP MODE ONLY

JMP

BPL

013044

002462
000001
002524
000010
030654

t§125: SCOPE

CLR
MOV
CLR
MOV
JSR

SHBE
#1,ERNUM
BUFEA
#10,BUF CNT
PC, INTKMC

;INITIALIZE KMC=11 FIRMWARE

SEQ 0062

CZKMEAO DMS11-DA DYNAMIC

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:05
3048

012646

000501

3050
3051

012654
012656

000476
004737

3053
3056
3055
3056
3057
3058
3059
3060
3061
306%
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3076
3075
3076
3077
3078
3079
3080
3081
%g

012664
012670
012676
012702
012704
012710
012716
012722
012726
012730
012736
012742
012746
012750
012754
012760
012766
012770
0127764
013002
013010
013012
013016
013022
013030
013036
013040
013044
013044
013046

3049

012650

305§ 012

3084

3085
3086
3087
3088
3089

3091

338’6%

013052
013052
013056
013060

004737

000473

005237
012737
004737
000463
005237
012737
004737
000453
005237
012737
004737
004737
41
005237
737
123777
001031
005237
012737
023777
001020
005237
005037
112737
123777
001005
004737
000407
000137

004737
104025
000137

5
MACYT 30A(1052) 21-0CT-81 08:50 PA E 63
T VALUE FOR SOFTWARE SWITCH REGISTER
BR

031204

JSR

BR
JSR

031274

002452
052660
031344

002522

002452
033036
031354

002522

002452
000204
031714
031742

002462

002452
031522
002462

167276

002452
052663
002462

002462
167260

002452
002462
177775

002462
031650

002462
167236
2$:

3103

:LINE FIALED TO INITIALIZE #=1
;START CLOCK

:INITIALIZE LINE (# IN CURLIN)

BR
JMP

TST26
18

:MAINTENANCE COMMAND NOT ISSUED #=1
sLOAD A RECEIVE BUFFER IN
;RECEIVE BUFFER FAILED TO LOAD #=2
sLOAD A TRANSMIT BUFFER IN
sTRANSMIT BUFFER FIALED TO LOAD #=3

sEXPECT BUFFER OUT COMMAND
sWAIT A WKILE
sTEST REQUEST OUT OF KMC SETS
sNO RESPONSE FROM THE TRANSFER #=4
sSKIP XMIT
;1S IT A BUFFER OUT COMMAND?
:B=NO ERROR #=5
sRETURN ADDRESS
s CORRECT?
:B=N ERR #=6

;STATUS
= PARITY ERROR
:B=NO
#=7
;DO NEXT LINE
: :DONE

;REPORT ERRORS

38:

JSR
ERROR+
JMP

012616

PC,GETCSR
25
18

;GET CONTENTS OF THE CSRS

22 .t.'tttttttttltt.lt"""t.t.t.fittttttt.t..Q.Qt'ttttt.t..'.tt.t

s CHRCNT

sTHIS TEST CHECKS THAT THE CHARACTER COUNT WILL CORRECTLY COUNT
:TO THE HIGHEST VALUE OF CORE AVAILABLE (ABOVE THE DIAGMSTIC)
:BY USING THE SAME BUFFER FOR RECEIVE AS FOR TRANSMIT
:AND TESTING THAT THE ENDING MEMORY ADDRESS RETURNED
:OF BOTH THE BUFFERS (XMIT AND RECEIVE) ARE THE SAME
SRR

R AR

3102

3s
PC,STCLK

ERNUM
#RBUF ,BUFADR
PC.RIN
3$
ERNUM
#PERBUF ,BUFADR
PC.XIN
3s
ERNUM
#2046 , SHBE
PC,SYNTIM
PC.REQOUT
38
ERNUM
PC,RBONLY
SHBE, aSEL2
38
ERNUM
#RBUF +3, SHBE
SHBE ,aSEL4
38
ERNUM
SHBE
#-3,SHBE
SHBE ,aSEL6
38
PC,GETLIN

3094
3095
3096
3097
33883
g}go

sFIRMWARE FAILED TO INITIALIZE #=1

INC
Mov
JSR
BR
INC
Mov
JSR
BR
INC
Mov
JSR
JSR
BR
INC
JSR
CMPB
BNE
INC
MOV
CMP
BNE
INC
CLR
MovB
CMPB
BNE
JSR

012616

031470

PC,INTLNE

s AR AR

A AR

sTEST

AR AR

A AR TR

AN RAARAAANAAAAANRAARAAAAARANRRRRNRARES

AR AR AR AN RN

RAAAARAAAARRAARAANRANAREARARRARARRES

SEQ 0063

3106
3105
3106

013064
013066
013074

000004
012737
004737

000026
030244

013103

005737

002534

3111
3112
3113
3114
3115
3116
3117

013114
013120
013126
013132
013136
013142
013144

004737
012737
005037
013701
105737
100403
010137

030244
000001
002462
002534
002311

3119

013152

020127

002000

3121
3122
3123

013160
013164
013170

012701
010137
006237

002000
013526
013526

3125

013202

06§737

010000

§107
108
§109
110

013100
01311

3118 013150

3120

3126

013156

013174

012737
oo157;

000417
101402

042737

3128
3129
3130
3131
3132
3133
313,
3135

013220
013224
013230
013232
013236
013240
013244
013246

002532

3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151

013256
013264
013272
013276
013300
0133064
013310

013737
013737
004737
000505
005237
004737
000500

002532
013526
031344

013312
013316
013322
013326
013332
013336
013336

005237
005037
005037
005037
005037

002452
013524
013530
013532
002462

004737

031742

3153
3154
3155
3156

013344
013345
013352
013354

000404
005337
001371
000456

3159

013362

3157
3158

013356
013356

000401

005237
122777

BEQ

002452

18:

108:
118:

013526

158:

031274
002452

002452
031354

000200

PC,SETLIN
#1,ERNUM
SHBE
CCTST,R1
MODE
108
R1,88

CMP

R1,#2000

MOV
MOV
ASR

#2000,R1
R1,88
1

ADD

#10000, 8%

BLOS

2s:

48:
166674

118

#177000,8%
BADDR ,R2

ADD
JSR
BR
JSR
BR
JSR
BR
INC

BADDR ,R1
PC, INTKMC
%3
PC, INTLNE
6$
PC,STCLK
6%
ERNUM

JSR

:LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

PC ., MEMF IL

:B=NO

:FIND THE ADDRES THAT SHOULD BE RETURNED
;IN CCP, LENGTH IS ACTUAL CHAR COUNT
:IN BOP MODE,

MAX COUNT=2000 BYTES

:
:

SAVE BUFFER SIZE
CHANGE TO WORD COUNT

:
*

MASK
TO 9 BITS
FIX BYTE COUNT

*GET START OF TRANSMIT BUFFER

:AND FILL WITH ALLOWED INCREMENTING PATTERN
:SET UP ENDING BUFFER ADDRESS
SINITIALIZE KMC=11 FIRMWARE
:FIRMWARE FAILED TO INITIALIZE #=1
:INITIALIZE LINE (# IN CURLIN)
*LINE FAILED TO INITIALIZE #=1
:SET MAINT LOOP + START CLOCK
*MAINTENANCE COMMAND NOT ISSUED #=1

BUFEA

:NO
EA BITS

JSR

PC,REQOUT

:TEST REQUEST OUT OF KMC SETS

BR
DEC
BNE
BR

43
78
28
6%

:A REQUEST OUT IS SET
*COUNT DOWN THE LOOP

CMPB

#200,3SEL2

:TRANSMIT BUFFER?

MOV
BADDR,BUFADR
:BASE ADDRESS OF BUFFERS
MOV
88 ,BUF CNT
*LOAD THE LENGTH
JSR
PC.RIN
:LOAD A RECEIVE BUFFER IN
BR
6%
*RECEIVE BUFFER FAILED TO LOAD #=2
INC
ERNUM
JSR
PC.XIN
:LOAD A TRANSMIT BUFFER IN
BR
6$
*TRANSMIT BUFFER FAILED TO LOAD #=3
:WATCHDOG THE COMPLETION OF THE TRANSFER
INC
ERNUM
CLR
7$
CLR
0s
:CLEAR RECEIVE BUFFER COUNT
CLR
18
:CLEAR TOTAL BUFFER COUNT
CLR
SHBE

BR
38:

15§

MOV

CLR

002522
002526

013524

#26, TSTNUM
PC,SETLIN

JSR
MOV
CLR
MOV
TSTB
BMI
MOV

BIC

031204

002452

SCOPE
MOV
JSR

MOV
218, SLPERR
:LOAD LOOP ADDRESS (LOOP ON ERROR)
CHECK THAT TEST CAN BE RUN (SUFFICIENT CORE)
fsT
CCTST
;1S THERE CORE AVAILABLE?

002532
030664

3136 013252 005037 002524

013342

001110

004737 032542
063701
004737
000530
004737
000525
004737
000522
005237

TST26:

177000 013526

013210

3152

002460

013526

3126

3127 013214

013702

013120

n 5
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 64
GET VALUE FOR SOFTWARE SWITCH REGISTER

:B=NO BUFFER RETURNED FROM TRANSFER #=4,.7

TEST THAT THE PROPER COMMAND IS RETURNED
INC
ERNUM

SEQ 0064

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

3160

013370

001001

16%
163
164
§1os
166

013374
013402
013406
013410
013414

122777
00134;
005
005237
005237

000204

168
169
170

013458
013430
013432

020177
001030
105077

166640

3161

3167

3171
3172
3173
3174
3175

013372 oooaog

010137

013436
013442
013446
013456
013456

005237
005037
0237§7
002730
013737

002452
002462
013532

3178
3179

004737

031650

013474
013500

022737
001004

013530

000001

000415

g}gz

8132?3

012737

000012

3185
3186
3187
3188
3189

013512
013516
013520
013524
013526

004737
104026
000137
000000
000000

031470

g}g}

013532

000000

3190

013530

148:

002462

013530

#204,3SEL2
$
0s
1$
ERNUM

:RECEIVE BUFFER?
:B=N COMMAND RETURNED WAS NOT BUFFER OUT #=5,10
:COUNT RECEIVE BUFFER
sCOUNT ALL BUFFERS

CMP
BNE
CLRB

R1,3SEL4
6$
@SEL2

:CORRECT RETURNED ADDRESS?
:8=NO ERR #=6,11 (SHBE=ADDRESS)
:COMMAND DONE

013120

000000

R1,SHBE

ERNUM
SHBE
218,42
2s
20, SHBE

:HAVE TWO BUFFERS RETURNED?
:B=N TO WAIT FOR NEXT

;ONE OF TWO IS RECEIVE?
:B=N 1XMIT & 1REC NOT RETURNED #=12

TST27

; :DONE

ggs:

MOV

#12 ,ERNUM

:ERROR # 12

PC,GETCSR
26
1$

:GET CONTENTS OF THE CSRS

78:
8$:

JSR
ERROR+
JMP
0
0

218:

JSR

002452

14$

#1,208
16$

000606

208:

PC,GETLIN

:GET THE NEXT LINE NUMBER

:DO NEXT LINE

:WATCH LOOP COUNTER

:COUNT OF RECEIVE BUFFERS
:TOTAL BUFFER COUNT

;;tttttttttttttt.tttttttttttttttttttttttttttttttttttttttttttttttt

3195
3196
3197
3198
3199
3200

:BSEADR
sTHIS TEST WILL CHECK THE LOWER 13 (4K) BIT TRANSMIT AND RECEIVE
;BUFFER ADDRESSING (BUFFER ADDRESS=IN AND OUT) BY TRANSMITTING
;AND RECEIVING TWO WORD BUFFERS. THE ADDRESSES ARE SEQUENCED BY
:WALKING A ONE ACROSS THE RETURNED BUFFER ADDRESS VALUE.
:THE RETURNED BUFFER ADDRESSES ARE TESTED FOR BEING CORRECT.

gggg

;:tttttttttltttttttttttttttttttttttttttttttttttfiltttttttttttttttt

3203

013534

000004

3206
3207

013536
013544

012737
004737

3210

013564

oosag;

3208 013550
3209 013556

012737
022737

000027
030;44

013762
020000

§213 013576 063701 005534
214
3215

CMPB
BNE
INC
INC
INC

CMP
BNE
5$:

3193

3205

:B=N

INC
CLR
CMP
BLT
MOV

000002

3191.

3204

12%

MoV

166626

013500

013502

128:

SEQ 0065

BNE

B8R

002462

3180

g}gg

166662

013530
01353%
00245

013420

3176 013464
3177 013472

N S
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 65
GET VALUE FOR SOFTWARE SWITCH REGISTER

013602
013606

010137
012704

014410
000004

002460

001110
002534

TS$127:

:TEST

R R AR A AR AR

SCOPE

AN AR

NN N AR RN RN AR AR

RRRRARRNRS

MOV
JSR

#27,TSTNUM
PC,SETLIN

:LOAD THE WD OF THIS TEST
:SETUP THE FIRST LINE

BLE

148

:SKIP IF ENOUGH CORE

MOV
CMP

ADD

MOV
MOV

#28 SLPERR
#20000,CCTST

CCTST.R1

R1,5%
#4 R4

:LOAD LOOP ADDRESS (LOOP ON ERROR)
NEED 8K OVER DIAGNOSTIC TO RUN TEST

:HIGHEST ADDRESS
:INITIALIZE ADDRESS

NAMI C
<DA DYNAM]

SO0

S oRRS
IR

WWWWNWWW
W

002532

0237

014410

1014 ;

000137
8102 7
1o; 7

00574

00574
105737
10000

00574
00574
01023
010237
005037

105737

100414

105737
100011
012737
062737

RRIRRSS5 8922888

PEDDIEEW

108:

68:

002316

002462
002464
030664

004737
000566
004737

031274

005237
005737
1
;
osg
013737
004737
549
oos;g
005737
1
;
162737
013737
004737
ooossg
00523
005037

002452
002530

002530
002474
002470

658:

002526
002526

002452 28%:

002526
002522

46$:

002452
002530
002426
031354
80245
01441

ng (1

:DONE?

JMP
MOV
MOV

3s
ng.xnst
R2.RRET

*OTHERWISE CONT. TO NEXT LINE

ST
TST8
BPL

-(R2)
MODE
6$

TST8

CLKDAT

ST
ST
MOV
MOV
CLR

oozsgg

002522

56$:

R4 ,R2

108

-(§5>

-(R2)
-(R2)
R2,XO0UT
R2.ROUT
RBUF $7

658

CRC32F
658
#-1,RBUFSZ
#6,RRET

ADD
MOV
JSR
CLR
MOV
BIC

#2.ROUT
#4.R1
PC.MEMF IL
BUFEA
#10004 ,BUFCNT
MODMSK
. BUF CNT

CLR
CLR
JSR
BR
JSR

SHBE
WAS
PC, INTKMC
4
PC, INTLNE

MOV

B8R

031714

000002

CMP

TSTB
8PL
MOV
ADD

031204

000002
002470
031344

BADDR ,R2

ADD

B8M]

002314

177777
000006
000002
000004
032542
002524
010004
002330

:INITIALIZE THE BASE ADDRESSES

002470
002530

SEQ 0066

MOV

BLOS

002311

005037
005037
004737
000574
004737

000571

158:

014364
002472
002474

012737 000001

OSSN

md D D md i wmd =D ed h o cmd B md koD b md D e e D B o

KSR
EAREE

b d e d ed od e md D D b b

lololelelalolalelalalolelelolalalalalalalalalolalalalalalalalalalalal
ol

e eI 3
e
e e e e e
B
e
e
R

013702

065737
012701
004737
005037
012737
063737

EBBDDDDEDDDDEDDE
—_m
= —u OO
Ntk
= O YN
NOVSON
S
NOSONO
NN

mlelelalalelelalalalalalalalel-MN

ORI
RO RO NI
RO NININININININININ)
RORIRG NRORIRORORORORORORS
= =

20-0CT=81 17:05

B 6
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 66
GET VALUE FOR SOFTWARE SWITCM REGISTER

*SKIP OVER IF NO
;=2
i

:IN CCP THIS IS CHAR. COUNT

:=2 IN BOP THIS IS
;=2

WORD COUNT

;BUFFER SIZE FLAG
: INTERNAL?

*B=YES

+IF CRC32 IS ENABLED ADD & MORE CHARS.
*B=NOT ENABLED
*SET FLAG FOR REC.BUFF HANDLING
*UP REC BUFFER BY 4 CHARS.

*ADD 4 CHARS. FOR CRC32
SFILL BUFFER WITH ALLOWED
*INCREMENTING PATTERN
;SIZE OF BUFFERS

#1,ERNUM

JSR
PC,STCLK
BR
4
JSR
PC,SYNTIM
:QUEUE THE BUFFERS
INC
ERNUM
ST
RBUF SZ
8PL
468
ADD
#2,BUFCNT
MOV
ROUT ,BUFADR
JSR
PC.RIN
BR
4
INC
ERNUM
ST
RBUF S2
BPL
56$
SUB
#2,BUFCNT
MOV
XOUT ,BUF ADR
JSR
PC XIN
BR
4
INC
ERNUM
CLR
208

:INITIALIZE KMC=11 FiRMWARE
:FIRMWARE FAILED TO INITIALIZE #=1
SINITIALIZE LINE (# IN CURLIN)

*LINE FAILED TO INITIALIZE #=1

*SET MAINT LOOP + START CLOCK
*MAINTENANCE COMMAND NOT ISSUED #=1
SALLOW TIME FOR SYNC DET.
:BOP/W CRC32
:B=NO

:LOAD A RECEIVE BUFFER IN

*RECEIVE BUFFER FAILED TO LOAD #2

:BOP/W CRC32?
*B=NO
:LOAD A TRANSMIT BUFFER IN
*TRANSMIT BUFFER FAILED TO LOAD #=3

;CLEAR RX BUFFER COUNT

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
;

8}2}56

005037

75
79

0141
014140

oogs17
00 ; 7

C 6
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 67
GET VALUE FOR SOFTWARE SWITCH REGISTER

014414

7% 8141 3 004737 031742
3277
78
279
80
3281

014144
014152
014160
014162
014166

o1§ 7
123777
001015
oos;37
01; 37

002452

ooozog
002462

002462
166104

00245
002472

002462

382 014176
3283
3284
gggg

014208
014210
014212

017737
023737
001072
000425

002462

002464

3287
3288
3289
3290
3291
3292

014214
014222
014230
014232
014236
014242

012737
123777
oo1ogz
005237
005237
013737

000204
002462

002462
166034

014412
002452
002474

a
002462

3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307

014266
014272
014276
014302
014310
014312
014320
014326
014330
014334
014340
014344

005237
005237
005077
023727
002710
012737
023727
oo1o§3
005237
005037
004737
000401

002452
014414
165762
014414

000002

014412
014412

002462
000001

3309
3310
3311

014350
014352
014356

006304
022704
002402

020000

000137

013612

ég}g

832%93

004737

031650

316
gg}z

014370

000412

000137

013572

3319
3320
3321

014376
014402

004737
104o§7

031470

324
ggg

014412
014414

000000
000000

002452
002462
031742

3308 014346 000413
gg}g

812%22

014372

sggg 3}22?3 833505 e
3327

318:

78:

208:
21$:

4
ERNUM

*NO BUFFER RETURNED #=4,7

MOV
CMPB
BNE
INC
MOV

#200, SHBE
gnee.aseuz
0s
ERNUM
XRET, SHBE

JIF NOT, CHECK IF RX BUFFER OUT

CMP
BNE
BR

SHBE , WAS
48
31s

;1S ADDRESS RETURNED CORRECT?
:B=NO ERR #=6,11
*CONTINUE TO COMMON CODE

#204 , SHBE
SHBE.@SEL2
4
20$
ERNUM
RRET , SHBE

:EXPECT RECEIVE BUFFER OUT

MOV
CMPB
BNE
INC
INC
MOV

MOV
CMP
BNE

;TEST REQUEST OUT OF KMC SETS

@SEL4, WAS

@SEL4,WAS
SHBE , WAS
4

;EXPECT TRANSMIT BUFFER OUT

:1IF NEITHER RX NOR TX BUFFER, ERROR #=5,10
*COUNT RETURNED RX BUFFERS

;CORRECT RETURNED ADDRESS?

:B=NO ERR #=6,11

INC
INC
CLR
CMP
BLT
MOV
CMP
BNE
INC
CLR
JSR
BR

ERNUM
218
aSEL2
218.42
168
#20$, SHBE
208,41
48
ERNUM
SHBE
PC,REQOUT
78

ASL
CMP
BLT

R4
#20000,R4
3s

JSR

PC,GETLIN

:GET THE NEXT LINE NUMBER

TST30

::BR IF DONE OR TEST CAN NOT BE RUN

B8R

JMP

48:

;CLEAR TOTAL BUFFER COUNT

PC,REQOUT

MOV

308:

218

JSR

BR
INC

166070 002464

3293 014250 017737 166014 002464
329, 014256 023737 002462 002464
3295 014264 001044

CLR

SEQ 0067

158

148

0
0

A AR

;TEST REQUEST OUT OF KMC SETS
*NO RESPONSE IS CORRECT

*EXTRA COMMAND IS ERROR, #=13
*TEST FOR NEXT WALKING VALUE
*DONE?
:1F YES,CONTINUE TO NEXT LINE

*OTHERWISE REPEAT TEST WITH NEXT ADDRESS

:DO NEXT LINE

;REPORT ERROR
JSR
pg.cercsn
ERROR+

3"P

;COUNT ALL BUFFERS
*DISMISS COMMAND
*HAVE TWO COMMANDS BEEN RETURNED?
*B=NO TO WAIT FOR NEXT
*SET RX BUFFER COUNT FOR OUTPUT
*ARE RETURNED BUFFERS 1 TX AND 1 RX?
:B=NO, #=12

HOLD THE HIGHEST ADDRESS THAT CAN BE TESTED

*RX BUFFER COUNT
;TOTAL BUFFER COUNT
AN

R R AR AR AR NN RR RN AR NN

AR AR

RRARRNRRRARRR

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

D 6
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 68
GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ 0068

128

:DATADR

331
333
333

;BITS (BITS 14=17) OF THE QUEUED RECEIVE BUFFER AND MULTIPLE DATA
: TRANSFERS BY TRANSFERING A 10 WORD BUFFER TO EACH 4K BOUNDARY
:CIN THE TEST RANGE) OUTPUT IS FROM ‘‘TBUF
;% THE TEST WILL EXECUTE ONLY IF SUFFICIENT CORE EXIST.

;THIS TEST WILL

CHECK BUSS ADDRESSING OF THE HIGHER ORDER

;fig}l.

4 ;ttttttttQtttttttttttttt'tttttttttttQtQQQtt'tttt"tt.t"tttttt"

3337

R 2312222212232 13 222222222233 3232332223233223222322322222222112221115

3335
3336

3338

;TEST

014416

000004

§339
340

014420
014426

012737
004737

000030
030244

3344
3345
3346
3347
3348
3349
3350
3351
3352
353
354
3355
gggg

0146444
014446
014452
014456
014464
014472
014476

014440

005737

002534

014502
014506
014510

004737
000401
000404

000137
000137

015160
015152

3358

014522

004737

030664

3360

014530

004737

031204

004737

031274

3341
3342
323

3359
3361

3362

3363

014432

014512
8}2253

014558
014534

014536

014542

012737

oo14§;
005037
005037
013737
012737
005037
005037

000773

000770
000765

014464

002524
002476
002532
000001
002464
002462

014544
014550

005237
004737

002452
032456

3367
3368

014562
014570

043737
004737

002330
031344

3370
3371
3372
3373
33764
3375

014576
014602
014610
014614
014622
014630

005237
012737
005037
015737
043737
004737

802452
052260
002524
010010
ogzsso
031354

377
3378
379
380
381
ggg

014636

005237

002452

005037
oosogr
012737
012700

015162
015164
000004
000002

3369

376

014556
81457%

014634

014642
014646
014655
8}2224

012737
000750

000730

TS130:

001110

002500
002452

010012

SCOPE

MOV
JSR

18:

2s:
}92:

PC, INTKMC

sINITIALIZE KMC=11 FIRMWARE

JSR

PC, INTLNE

sINITIALIZE LINE (# IN CURLIN)

JSR

PC,STCLK

:SET MAINT LOOP + START CLOCK

INC
JSR

ERNUM
PC, INTREC

sINITIALIZE THE REC. BUFFER

MOV

002526

002526
002526

16$

168

#10012,BUFCNT

MODMSK
, BUF CNT
PC RIN

INC
MOV
CLR
MOV
BIC
JSR

ERNUM
#TBUF ,BUFADR
BUFEA
#10010,BUF CNT
MODMSK
, BUF CNT
PC XIN

18%:
-

168

BIC
JSR

002522

:LOAD LOOP ADDRESS (L7OP ON ERROR)

JSR

002526

:LOAD THE WD OF THIS TEST
:SETUP THE FIRST LINE

BEQ
2s
:B=NO
CLR
BUFEA
CLR
CUREA
MOV
BADDR, CURBUF
MOV
#1,ERNUM
CLR
WAS
CLR
SHBE
;MAP TO THE CURRENT BUFFER UNDER TEST (ENABLE KT11 IF PRESENT)
JSR
PC.MAPBFR
:MAP BUFFER FOR RECEIVE
BR
2%
:B=NO
BR
17%
:YES
JMP
778
*SKIP TO NEXT TEST HELPER
JMP
0%
:ERROR BRANCH HELPER

002452

#30, TSTNUM
PC,SETLIN

MOV
#1$, SLPERR
:CAN TEST BE RUN?
fsT
CCTST

032030

3364
3365

3366

002460

16§

INC
ERNUM
:WATCHDOG THE TRANSFERS
CLR
Sos
CLR
18
MOV
#4 ,ERNUM
MOV
#2.R0

:FIRMWARE FAILED TO INITIALIZE #=1
:LINE FAILED TO INITIALIZE #=1

:MAINTENANCE COMMAND NOT ISSUED #=1

:SET BUFFER LENGTH

:LOAD A RECEIVE BUFFER IN

:BUFFER FAILED LOAD (REC.) #=2
:SET BUFFER LENGTH
:LOAD A TRANSMIT BUFFER IN

:BUFFER FAILED TO LOAD (TRANSMIT) #=3
COMPLETION
:RECEIVE BUFFER COUNT
:TOTAL BUFFER COUNT
:SET UP WAIT LOOP

CZKMEAO DMS11-DA DYNAMIC
CIKMEA.P11
20-0CT-81 17:05
gga
S

014

004737

E 6
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 69
GET VALUE FOR SOFTWARE SWITCH REGISTER

031742

JSR

014670

000401

014674
014676
014700
014702

oosgog
00137
ooosg«
005237

014706
014712
014720
014722
014730
014736

005037
122777
001015
012737
012737
105737

002462
000200
ooooog
052270
002311

002452
002514

014744
014752

062737

000010

002514

014756
014762
014764
014770

122777
001073
005237
012737

000204

165302

015162
000010

002452

3407
3408
3409

015006
015012
015016

013737
005237
017737

002512
015164
165252

002464

3411

015032

023737

002462

002464

3413

015042

gsa
388
§389
390
3391
3392
3393
§394
395
3396
3397

014672 000403

3398 014742
3399
3400

3402
3403
3404
3405

3406

100003

014752 000417
014776

3410 015026

042737

005237

0150646
015056
015062

017737
013737
023737

015072
015076
015102
015110
015112
015120

005237
105077
023727
002660
013737
023727

3417 015070 001030

3418
3419
3420
321
3422
323

3424

3425
3426
gzzr
28
3629
gzgg

343§

015126 001011

015130
015132
015140
015142
015146

48:
002452

013737 002510

3412 015040 001044
3614
3415
3416

000;41
062737
10300;
005237
000137

3433
3434
34;2

015152
015152
015154

104030
000137

3439

015162

000000

5237
015160
3438 015160 000402

58:

165344

8s:
108:

037777 002464
002452

165216
002514
002462

000002

015162
015162

002462
000001

020000
002476
014464

208:

*SKIP IF CCP

#10,RETBUF

12$

:IN BOP,CONVERT WCRD COUNT TO BYTES

MOV
INC
MOV

RETADR,
RE TBUF
218
3SEL6,WAS

:COUNT ALL BUFFERS
*GET EA BITS

SHBE ,WAS

JARE EA BITS CORRECT?

RETEA, SHBE

BIC

#37777 ,WAS

BNE

MOV
MOV
CMP

9SEL4,WAS
RETBUF
, SHBE
SHBE ,WAS

BNE

778:

;CHECK FOR RECEIVE BUFFER
*B=N COMMAND NOT TX OR RX BUFFER OUT #=5
*COUNT RECEIVE BUFFER
:SET UP RECEIVE BUFFER ERROR #'S

INC
CLRB
CMP
BLT
MOV
CMP

55$:

:0K OUTPUT REQUESTED

#204,3SEL2
6$
208
#10, ERNUM

BNE

002500

CMPB
BNE
INC
MOV

INC

68:
014464

B8R

CMP

002454
002462
002464

002452
165162
015164

ADD

MOV
128:

;TEST REQUEST OUT OF KMC SETS

DEC
RO
BNE
3s
BR
6$
:ERR #=4 TRANSFER FAILED TO COMPLETE
INC
ERNUM
:TEST FOR RETURNED BUFFER
CLR
SHBE
;RETURNED EA BITS SHOULD BE=0
(MPB
#200,3SEL2
:CHECK FOR TRANSMIT BUFFER
BNE
108
MOV
#6, ERNUM
:SET UP TRANSMIT BUFFER ERROR #'S
MOV
#TBUF +10,RETBUF :RETURNED BUFFER ADDRESS SHOULD BE
TSTB
MODE
:CHECK MODE

B8PL

002462
002514

B8R

PC,REQOUT

*SAVE ONLY THE EA-BITS

*B=NO ERR #=6,10

ERNUM

113

ERNUM
@SEL2
218.42
188
208, SHBE
208,41

133

*CURRENTLY MAPPED BUFFER EA-BITS

JTEST LOWER 16 BIT ADDRESS
*16 BIT ADDRESS

:16 BIT RECEIVE BUFFER ADDRESS CORRECT?

*NO ERR #=7,11

:DISMISS COMMAND
:TWO COMMANDS BACK YET
:B=NO WAIT FOR ANOTHER
*STORE # OF RECEIVE BUFFERS
*1 RECEIVE BUFFER?

:G0 + DO NEXT BUFFER
cLe
ADD
#20000,CURBUF
BCC
558
INC
CUREA
JMP
1$

*B=NO TWO BUFFERS NOT 1 TX & 1 RX #=12
;4K TO NEXT BUFFER
*OVERFLOW?
SYES +1 TO EA BITS
*RUN IT

:REPORT ERROR
ERROR+
JMP

30
1s

TST31

::60 TO NEXT TEST

;RECEIVE BUFFER COUNT

SEQ 0069

MACY11 30A(1052) 21-0CT-81 08:50 PAgE 70
F

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
40

015164

000000

344
34
3444
3445
3446
3447
3448
3449
34,50
3457
3452
3453
3454
3455
356

015166
015170
015176
015202

000004
012737
004737
012737

3,58
3459
3460
34,61
3462

015210
015214
015216
015222
015026

005737
001422
005037
005037
013737

002534

367
34,68
34,69
34,70
3%71
372
3,73
%76
375
376
3477
378
3%79
3,80
3481
3,82
3,83
384
34,85
3486
3,87
3488
89
90
91
%2
93
9%
3495

015252
015256
015260
015262
015266
015272
015272
015276
015300
015304
015306
015312
015314
015320
01532
015332
015340
015344
015350
015356
015362
015366
015370
015376
015400
015404
015412
015420
015426

004737
000401
0004
000137
000137

032036

218:

s TOTAL BUFFER COUNT
AR

R AN

RNRRRR R

RRRRRRRRS

;DATADR
sTHIS TEST WILL CHECK BUSS ADDRESSING OF THE HIGHER ORDER BITS
;(BITS 14=17) OF THE QUEUED TRANSMIT BUFFER AND MULTIPLE DATA
s TRANSFERS BY TRANSFERRING A 10 WORD BUFFER FROM EACH 4K BOUNDARY
s (IN THE TEST RANGE) INPUT IS TO RBUF.
s* THE TEST WILL EXECUTE ONLY IF SUFFICIENT CORE EXIST.

AR A AR AR At

010037
012737
043737
004737

000561

002500
002452

id R

i d

TST31:

SCOPE

MOV

#31, TSTNUM

;LOAD 7HE WD OF THIS TEST

MOV

#18, SLPERR

:LOAD LOOP ADDRESS (LOOP ON ERROR)

JSR

PC,SETLIN

CAN TEST BE RUN?

BEQ
CLR
CLR

18:

ittt ddiiiidiiiidiiiiiiidldd)

CCTST

2
BUFEA
CUREA

*SETUP THE FIRST LINE

:B=NO

MOV
MOV
CLR
CLR

BADDR
, CURBUF
#1,ERNUM
WAS
SHBE

JSR

PC ,MAPBUF

;MAP BUFFER FOR TRANSMIT

JMP

*ERROR BRANCH HELPER

:MAP TO THE CURRENT BUFFER UNDER TEST (ENABLE KT11 IF PRESENT)

28:

}9::

BR
BR
JMP

sINITIALIZE KMC=11 FIRMWARE

JSR

PC, INTLNE

SINITIALIZE LINE (# IN CURLIN)

JSR

PC,STCLK

?zc
002526
002526
002522

JSR

MOV

16§
16$

ggzu"

PC,INTTRM

#10012,BUFCNT

BIC

MODMSK
. BUF CNT

MOV

BUFEA,R1

MOV

SFIRMWARE FAILED TO INITIALIZE #=1
sLINE FAILED TO INITIALIZE #=1
*SET MAINT LOOP + START CLOCK

*MAINTENANCE COMMAND NOT ISSUED #=1
;INITIALIZE THE TRANSMIT BUFFER

:SET BUFFER LENGTH

BUFADR . RO

:LOAD THE RECEIVE BUFFER FIRST

#RBUF ,BUFADR
BUFEA
PC,RIN

:LOAD A RECEIVE BUFFER IN

INC
MOV

ERNUM
R1,BUFEA

:RESTORE EA-BITS

MOV

#10010,BUFCNT

;SET BUFFER LENGTH

MOV
CLR
JSR

B8R
0025%6
002526

:B=NO
SYES
:SKIP TO NEXT TEST HELPER

PC, INTKMC

031274

23
17$
778

JSR

031204

;TEST

2233323333323 3 3323322333223 33 3233333333333 3333333333333 323333323¢%3

030664

H{O/MNNONNO

004737
000773
004737
000770
004737
000765
005237
004737
012737
043737
013700
013701
012737
005037
004737
000737
005237
010137

001110

015776
015770

SOO

012737
005037
005057

002524
002476
002532
000001
002464
002462

002460

01523
015242
015246

000031
030244
015234

3463
364
3465

SEQ@ 0070

GET VALUE FOR SOFTWARE SWITCH REGISTER

MOV
BIC
JSR

B8R

16§

RO suera

MODMSK
. BUF CNT
PC,XIN

*RECEIVE BUFFER FAILED TO LOAD ERR #=2

:LOAD A TRANSMIT BUFFER IN

*TRANSMIT BUFFER FAILED TO LOAD #=3

015426

015432

99
500

015436
015442

3501
3502
3503
3504
3505
3506
3507
3508
gg?g

015450
015454
015454
015460
015462
015464
015466
015470
015472

3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540

015476
015502
015510
015512
015520
015526
015534
015536
015544
015546
015552
015560
015564
015572
015576
015600
015606
015612
015614
015620
015622
015630
015630
015634
015642
015650
015656
015660
015664
015672

3541
3542
3543
3544

015700
015706
015710
015714

005237

002452

005037

016000
016002
000004
000002

005037
012737

012700

004737
000401
000403
005300
00137
00053
005237

031742

005037
122777
001012
012737
013737
013737
000435
122777
001111
005237
012737
005037
012737
105737
100014
062737
105737
100406
105737
100003
062737

002462
000200

005237
017737
042737
023737
001044
005237
017737
013737
023737
0010
005237
105077

016002
164434
037777
002462

6 6
MACY11 30A(1052) 21-0CT-81 08:50 PAGE
GET VALUE FOR SOFTWARE SWITCH REGISTER

ERNUM
INC
éflaTCHDOGo;HE TRANSFERS CgHPLETION
L

002452

18$:

3s:

5%:

002452
164554

002452
002462
002514
164520

108:

002452

002514

002314

000004

sTOTAL BUFFER COUNT

JSR

PC,REQOUT

;TEST REQUEST OUT OF KMC SETS

BR
DEC
BNE

5%
RO
3s

;0K OUTPUT REQUESTED

002514

B8R

9$:
128:

sSET UP WAIT LOOP

;ERR #=4 TRANSFER FAILED TO COMPLETE

(MPB
BNE
MOV
MOV
MOV
BR
CMPB
BNE
INC
MOV
CLR

#200,3SEL2
108
#6,ERNUM
RETEA, SHBE
,
RE TBUF
RETADR
128
#204,@SEL2
5%
208
#10, ERNUM
SHBE

sCHECK FOR TRANSMIT BUFFER

TSTB

MODE

s CHECK MODE
sSKIP IF CCP
:IN BOP, CONVERT WORD COUNT TO BYTES
sCHECK INTERNAL OR EXTERNAL

INC
ERNUM
:TEST FOR RETURNED BUFFER
CLR
SHBE
sRETURNED EA BITS SHOULD BE=0

MOV

002514
000010
002316

1$
#4 ,ERNUM
#2.R0

B8R
4$:

sRECEIVE BUFFER COUNT

CLR
MOV
MOV

BPL
ADD
TSTB
BMI
TSTB
BPL
ADD

9s
#10,RETBUF
CLKDAT
9s
CRC32F
9s
#4 ,RETBUF

218
3SEL6,WAS

CMP
BNE
INC
MOV

SHBE ,WAS

MOV
CMP
BNE
INC

CLRB
(MP
BLT

3366 01373
Q026ss
015937
0157
3547
548 015736 023727

MOV

ggg

015744

001011

551

015746

000241

cLc

s CURRENTLY MAPPED BUFFER

sCHECK FOR RECEIVE BUFFER

:B=N COMMAND NOT TX OR RX BUFFER OUT #=5
sCOUNT RECEIVE BUFFER
sSET UP RECEIVE BUFFER ERROR #'S

#RBUF +10, RETBUF sRETURNED RECEIVE BUFFER SHOULD BE

INC
MOV

BIC

sSET UP TRANSMIT BUFFER ERROR #'S

#37777 ,WAS
ERNUM
@SEL4 ,WAS

RETBUF
, SHBE
SHBE
, WAS
6$
ERNUM

@SEL2
218.42
18$

Sos.suae

08,41
cMe
6$
oNE
;G0 + DO NEXT BUFFER

sONLY IF EXT.,CHECK IF CRC32 USED
:IF CRC32, ADD BYTES FOR APPENDED CRC
;COUNT ALL BUFFERS
*GET EA BITS
*SAVE ONLY THE EA-BITS
*ARE EA BITS CORRECT?
*B=NO ERR #=6,10

*TEST LOWER 16 BIT ADDRESS
216 BIT ADDRESS

216 BIT RECEIVE BUFFER ADDRESS CORRECT?

:NO ERR #=7,11

sDISMISS COMMAND
:TWO COMMANDS BACK YET
:B=NO WAIT FOR ANOTHER
sSTORE # OF RECEIVE BUFFERS
:1 RECEIVE BUFFER?

:B=NO TWO BUFFERS NOT 1 TX & 1 RX #=12

SEG 0071

TMM~

CZKMEAO DMS11-DA DYNAMIC
20-0CT-81 17:05
CZKMEA.PT

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT=81 17:05
552

5§53

§54
gggg

015750

062737

020000

015760
015764

005237
000137

002476
015234

015756

3557
3558
3559
gg?

015770
015770
015772

356§

015776

3564

016000

3563

gges

1osog;

104031
000137

H 6
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 72
GET VALUE FOR SOFTWARE SWITCH REGISTER
002500

6$:
015234
778:

015776 000402
016002

000000

208:

000000

21s:

3567

ADD

cgoooo.cunaur

14K ro usxr BUFFER

INC
JMP

CUREA
18

SYES +1 ro EA BITS
*RUN IT

BCC
558:

SEQ 0072

55$

*OVERF

:REPORT ERROR
ERROR+
JMP

31
1s

B8R

TST32

:GO TO NEXT TEST

;RECEIVE BUFFER COUNT
:TOTAL BUFFER COUNT

AR AR AR AR RN

R AN RN R AR

AN RN

AT RRAAS

68
3569
3570
3571
3572

:DATTST
*THIS TEST WILL CHECK MULTIPLE DATA TRANSFERS AND BUS ADDRESSING
*BY TRANSFERRING BUFFERS TO EACH INCREMENTAL 4K ABOVE THE DIAGNOSTIC
:IN CCP MODE, THE FIRST 4K BLOCK (16=20K) IS WRITTEN WITH AN
+ INCREMENTAL PATTERN (40-175) AND TRANSSERRED TO EACH 4K ABOVE

3574

mawnmsrmrmn1w4mmswrmrmn4xumxnu)me

3573

*THE DIAGNOSTIC (20K UP)

3575
3576

*WRITTEN WITH AN INCREMENTAL PATTERN (0-=377) AND TRANSFERRED
:TO THE START OF EACH 4K ABOVE THE DIAGNOSTIC (20K UP

gg;g

STEST WILL RUN ONLY IF 20K OR MORE OF CONTIGUOUS coas (0 UP) EXISTS ON SYSTEM

3579
3580
3581

3583

3585
3587
3588
3589

590

;TEST

016004

000004

016020

012737

016
016014

012737
004737

000032
030244

002460

016036

001110

016026
016034

022737
003041

000020

002534

016036

013737

002532

002500

3591 016044 062737 020000 002500

TST32:

3593

016056

013702

oo;ss;

3595

016066

18$:

004737

032542

3601
3602

016116
016122

012737
005037
005037
004737

000001
002464
002462

004737
000404

031204

3600 016114 000407
3603

0161%8

004737

031274

000137
000137

017144
017126

3604 016130
000401
3605 016132 oooaog

3606
3607

0161364
016140

002452

#32, TSTNUM
PC,SETLIN

28:

MoV

:LOAD LOOP ADDRESS (LOOP ON ERROR)

ADD

czooob cunaur

:START @ BASE ADDR.

MOV

BAD

sFILL TRANSMIT BUFFER WITH INCREMENTAL PATTERN

MOV
CLR
CLR
JSR

JSR

PC,MEMF
IL
#1. ERNUM
WAS
SHBE
PC, INTKMC

INXTIALIZE KMC=11 FIRMWARE

JSR
BR

PC, INTLNE
10§

INITIALIZE LINE (# IN CURLIN)
:LINE FAILED TO INITIALIZE #=1

B8R
B8R

10§
208

*MAINTENANCE COMMAND FAILED #=1

B8R

JSR

108
118

:LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

CMP
czo CCTST
;AT LEAST 4K OVER DIAG.
BGT
*B=N, SKIP TO NEXT TEST
INITIALIIE rus nscsxvso BUFFER POINTER ADDRESS

CLR

3594 016062 012701 01777
016072
016100
016106
016110

SCOPE

MOV
JSR

"?Xu resg1geskas§n

592 016052 005037 002476

3596
3597
3598
3599

- §-tttttttttttttttttttttttttt'tttttttttfittQttt.ttttttttttttttttttt

JMP
JMP

CUR

01777? n1
10§

PC,STCLK
13
128

:UP BY 4K

*NO
EA BITS

NOT INITIALIZED #=1

*SET MAINT LOOP + START CLOCK
:BRANCH ERROR HELPER
*SKIP TO NEXT TEST HELPER

gggg

I 6
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 73
GET VALUE FOR SOFTWARE SWITCH REGISTER

016144
016150
016154
016160

000137
005237
005037
005037

01712
00245
00246
002464

016164

004737

032036

3617

016172

013737

00;524

3619

016206

004737

031344

3622
3623
3624
3625

016214
016220
016226
016232

005237
005037
013737
004737

002452
002524
002532
031354

3627
3628
3629
3630
ggg;

016240

005237

002452

016244

005037

017136
017140
017777

3633
3634
3635
3636
3637

016262
016266
016270
016272
016276

004737
000401
000404
005337
001371

031742

3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650

016302
016306
016312
016320
016326
016330
016336
016346
016352
016360
016362
016366

005237
005037
117737
122737
oo1ogg
012737
117737
112737
023737
001047
005237
017737

002452
002462
163746
000200

002464
002464

000006
163732
000001
002462

002452
002464
002462
002464

002452
163676

002464

3652
3653
3656
3655
3656
3657
3658
3659
3660

016402
016406
016410
016416
016424
016432
016434
016440
016446

105737
1oooo;
01573
063737
023737
oo1o§;
s;
017737
013737

002311

3663

016470

3610
3611
361%
361
3614
3615

3616 016170 000765

3618 016200 012737

3620 016212 000750
3621
3626 016236 000736
016250
3}2523

005037
012737

3638 016300 000477

3651

3661
3665

017777

78:
08:

002526

MOV

017142

042737
023737

:CONTINUE TO NEXT LINE

#17777,BUFCNT

:LENGTH OF RECEIVE BUFFER

BUFEA, 328

JSR

PC,RIN

iNC
CLR
MOV
JS

002522

B8R

017134

§§"

48:
58:

001776
002532
002462

002462
002462
002464

oo§453
163630
002464

002464
00246

140000
002462

27$

MOV

*SAVE HIGH ORDER BITS FOR LATER USE
*LOAD A RECEIVE BUFFER IN

B8R
10
-B=BUFFER FAILED TO LOAD #=2
:LOAD THE TRANSMIT BUFFER

016376 012737 017777 002462

016454
016462

JMP
268
;60 TO NEXT LINE HELPER
INC
ERNUM
CLR
SHBE
CLR
WAS
:MAP THE RECEIVE BUFFER AND ENABLE KT11 (IF PRESENT)
*TO THE ADDRESS POINTED TO BY '‘CURBUF'' AND '‘CUREA'’
:1F THE RECEIVE BUFFER REQUEST EXCEEDS CORE LIMITS RETURN IS TO PC
JSR
P; MAPBUF
;MAP THE RECEIVE BUFFER

00246
002464

10§

;TRANSMIT BUFFER ADDRESS
*LOAD A TRANSMIT BUFFER IN

:B=XBUFF FAILED TO LOAD #=3

INC
ERNUM
;WATCH DOG THE 1/0 COMPLETION
CLR
30$
;CLEAR RECEIVE BUFFER COUNT
CLR
31s
:CLEAR TOTAL BUFFER COUNT
MOV
777778
*SPIN LOOP

JSR
BR
BR
DEC
BNE

PC,REQOUT
4
5%
78
3s

INC
CLR
MOVB
CMPB
BNE
MOV
MOVB
MOVB
CMP
BNE
INC
MOV

ERNUM
SHBE
@SEL2,WAS
#200,WAS
238
#5, ERNUM
@SEL6,WAS
#1,SHBE
SHBE , WAS
13
ERNUM
@SEL4 , WAS

TSTB
BPL
MOV
ADD
CMP
BNE
INC
MOV
MOV

MODE
338
#1776, SHBE
BADDR
| SHBE
SHBE
, WAS
138
ERNUM
@SEL6,WAS
WAS , SHBE

BNE

138

B8R

MOV
338:

ERNUM
BUFEA
BADDR,BUFADR
PC XIN

BIC
CMP

13s

#1777% ., SHBE

#140000,SHBE
SHBE , WAS

;TEST REQUEST OUT OF KMC SETS
:B=0UTPUT RESPONSE

:TRY AGAIN

*NO OUTPUT RESPONSE FROM FIRMWARE ERR #=4,11,17

*TEST THAT RESPONSE IS A RETURNED XMIT BUFFER
;IS COMMAND A TRANSMIT BUFFER?
*B=NO
*INIT. ERROR COUNT FOR TX BUFFER

;1S BUFFER STATUS = 1 (END COUNT REACHED)?
:B=N ERR #=6
;1S THE 16 BIT XMIT ADDRESS CORRECT?

*SET UP 16-BIT TRANSMIT ADDRESS FOR CCP
:SKIP IF CCP
*SET UP 16=BIT TRANSMIT ADDRESS FOR BOP

:B=N ERR #=7
;ARE THE EA BITS CORRECT?

; (THEY SHOULD BE CLEAR)
:B=N ERR #=10

SEQ 0073

CZKMEAO DMS11=DA DYNAMIC
CZIKMEA.P11
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZIKMEA.P11
20-0CT-81 17:05

J 6
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 74
GET VALUE FOR SOFTWARE SWITCH REGISTER

3664

016472

005237

002452

3669
3667
3668
3669

016500
016506
016512
016514

0001g
122737
001372
012737

017144
000204

002464

000013

002452

3671
3672
3673

016530
016536
016540

005037
105737
100003

002464
002314

3675

016550

117737

163520

3665 016476 00056

138:
23$:

3670 0165%8 012737 000002 002462

3674 016542 012737 000001

002462

3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689

016556
016564
016566
016572
016600
016604
016606
016614
016622
016630
016636
016640
016644
016652

123737
001167
005237
012737
105737
100003
012737
063737
017737
023737
001142
005237
013737
017737

002464

3691
3692
3693
3694

016666
016674
016676

023737
001123
005237

3696
3697
3698
3699
g;gg

016706
016712
016716
016722
016726

013702
005037
005037
105737
100015

002502
002464
002462
002311

3702
3703
3706
3705
3706
3707

016730
016734
016740
016744
016752
016754

012700
112137
112237
123737
001074
005300

001775
002462
002464
002462

g;gg

016760

00042

3711
3712
3713

016762
016766
016772

012700
112137
042737

017777
002462
000200

3715
3716
3717
3718
3719

017002
017006
017012
017020
017026

11%13
112237
045737
123737
001046

002462
002464
ooozog
002462

3690

016660

042737

002462

002464

00245
017777
002311

002462

001776
002500
163442
002462

002462
002462
002464
002464

002452
017142
163416

002462
002464

002462

002464

037777

RNUM

JWP
CMPB
BNE
MOV

13
l%Ok.UAS
138
#13, ERNUM

;ERROR BRANCH HELPER
*1S COMMAND RECEIVE BUFFER OUT?
*B=OUTPUT NOT A RECEIVE BUFFER #=5,12,20
*INIT. ERROR COUNT FOR RECEIVE BUFFER

CLR
TSTB
8PL

WAS
CRC32F
148

;RUNNING CRC=32?
*B=NO

MOV

148:

24$:

002464

MOV

MOVB

CMPB
BNE
INC
MOV
TSTB
BPL
MOV
ADD
MOV
CMP
BNE
INC
MOV
MOV

BIC

002452

MOV

MOV
CLR
CLR
TSTB
BPL

408:

002464

3708 016756 oomg

#2’, SHBE
#1, SHBE

@SEL6,WAS

SHBE,WAS
8s
ERNUM
#17777, SHBE
MODE
24$
#1776, SHBE
CURBUF
, SHBE
3SEL&,WAS
SHBE
, WAS
13
ganun
2, SHBE
ASEL6,WAS

:1S RETURNED STATUS AN END OF MESSAGE

*SET REC. BUFFER STATUS TO ENDING MEM.AR.
;B=NO #=13
:SET CCP ENDING BUFFER ADDRESS
:SET BOP ENDING BUFFER ADDRESS

:B=N #=14
;ARE THE RETURNED REC.BUF EA BITS CORRECT?

#3777%
. WAS

258:

002462
428:
418:

BADDR,R1

MAPADR ,R2
WAS
SHBE
MODE
25

:SET TO START OF TX BUFFER
*SET TO START OF RX BUFFER

MOV
MOVB
MOVB
CMP8
BNE
DEC

#1775.R0
(R1)+.SHBE
(R2)+.WAS
SHBE,WAS
8s
RO

*
:
*
*
*
:

438

:Foguggpcgs:ensufeue CONTINUE WITH COMMON CODE

BNE

002464
002464

(13

CMP
SHBE
, WAS
BNE
8s
:B=N #=15
INC
ERNUM
;TEST THE DATA RETURNED IN THE ascex¥e BUFFER

3695 016702 013701 002532

3714 017000 oooao;

INC

B8R

408

SET BOP CHARACTER COUNT
GET PROPER CHARACTER
GET RECEIVED CHAR
AGREE?
BRANCH ON NO TO ERROR #=16
ARE WE DONE?

ON NO GO DO NEXT CHAR

MOV
MOVB
BIC

#7777 .R0
(R1)+,SHBE
#200, SHBE

:
*
:

SET CCP CHARACTER COUNT
GET STARTING SOM
STRIP OFF PARITY BIT

MOVB
MOVB
BIC
CMPB
BNE

(R1)+,SHBE
(R2)+.WAS
#200,WAS
SHBE.WAS
8s

:
:
:
*
:

GET PROPER CHARACTER
GET RECEIVED CHARACTER
STRIP OFF ADDED PARITY BIT
AGREE?
ON NO, BRANCH TO ERROR #=16

B8R

418

SEQ 0074

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
3720
3721

017030
017032

00530g
00136

3;%‘

017034

005237

017136

726

017040

005237

017140

3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740

017050
017056
017060
017064
01707¢
017100

023727
00140
137
012737
023727
001021

017140

062737
103002
005237
000137

002476
016100

004737

031650

g;fi

017102
017110
017112
017116
017122
017122
017126
017126
017130

000413
000137

016036

3745
3746
3747
g;zg

017134
017136
017140
017142

000000
000000
000000

3750
3751
3752

017144
017144
017150

004737
104032

7 %

3725

727

3741
3742

g;gz

017044

017152

105077

000137

37§S

163214

016254

K 6
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 75
GET VALUE FOR SOFTWARE SWITCH REGISTER

DEC
BNE

Rg
42%

;
s

438:

INC

308

sCOUNT RECEIVE BUFFERS

358:

INC

000002

0000%1
017136

002452
000001

020000

002500

36S%:

6$:
26$:
128:

7%:
308:
318:
32%:
031470

8s:

016036

SEQ 0075

ARE WE DONE?
ON NO, GO DO NEXT CHAR

FALL THROUGH TO COMMON CODE

;CHECK IF BOTH BUFFERS BACK YET

CLRB

318

;COUNT ALL BUFFERS

aSEL2

CMP
318,42
BEQ
368
JMP
22$
MOV
021.ERNUH
CMP
308 .41
BNE
8s
sMOVE TO NEXT BUFFER
ADD
#20000, CURBUF
B8CC
63
INC
CUREA
JMP
2$

DISHISS COMMAND

TWO COMMANDS BACK YET?
:B= ES
JWAIT FOR ANOTHER BUFFER
;1S ONE OF THE TWO BUFFERS A RX BUFFER?
:B=NO TO ERROR, #=21

sTRY NEXT BUFFER

JSR

PC,GETLIN

sGET THE NEXT LINE NUMBER

BR
JMP

TST33
1%

2 :B=TEST DONE OR BYPASSED
JRETURN FOR NEXT LINE

0
0
0
0
JSR
ERROR+

JMP

sCOUNT LOCATION
sCOUNT OF RECEIVE BUFFERS
sTOTAL BUFFER COUNT
sHIGH=ORDER BITS SAVE LOCATION
PC.GETCSR
32

JGET CONTENTS OF THE CSRS

PRI
AR AR NAA RN RRANNCNRRRARARRERRRRS

3756
3757
3758
3759

JINTIN
THIS TEST WILL CHECK THE INPUT REQUEST INTERRUPT LOGIC
D FIRMWARE ARBITRATION BY INITIALIZING THE INPUT REQUEST
VECTOR (XX0) WITH A CORRECT RETURN ADDRESS AND THE OUTPUT REQUEST

3761
3762
3763

THE IM°UT REQUEST IS FIRST DONE WITH YHE PROCESSM STATUS
DROPP TO O AND THE INTERRUPT EMQL i
T SET TO CHECK
sTHAT NO INTERRUPT OCCURS WHEN THE 'RDYIN’ (BITS 7-SEL-0) SETS.

3765

:BIT SET AND THE PROCESSOR STATUS AT 0 TO CHECK THAT THE INTERRUPT

3760

sVECTOR WITH ADDRESS TO ERROR FLAG ROUTINE.

3764

THEN THE INPUT REQUEST IS MADE WITH THE INTERRUPT ENABLE

3766

sOCCURS TO THE CORRECT VECTOR ADDRESS

3767

sTHEN THE PROCESSOR STATUS IS SET TO LEVEL 7 THE REQUEST MADE

3768
g;%

:UITH THE INTERRUPT ENABLE BIT SET AND TEST THAT THE INTERRUPT DOES
sNOT OCCUR UNTIL THE CORRECT PROCESSOR STATUS IS REACHED

3;;1

g??%
3774

3775

017156

000004

NN RN AN NN RN

JTEST 33

E AR RN

RN AR AR

RRRS

tttttttttnnn"tt"t'nt"ttt"ttotttttttttttttttnntttt"n

t8133:

SCOPE

CZKMEAO DMS11-DA DYNAMIC
CZIKMEA.P11
20-0CT-81 17:05
3776
777

017160

017163

012737

004737

ogooss
0 9544

L 6
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 76
GET VALUE FOR SOFTWARE SWITCH REGISTER
002460

778 017172 012737 017200 001110
3779 017200 012737 000001 002452

3780

2751

017206

017212

005037

004737

7g§ 017216 000564

002464

18:

030664

017220
0172264
017230
017234
017240
017244
017250

013700
012720
012720
012720
012710
005237
004737

002300
017602
000340
017612
000340
002452
031274

3793
379,
3795
3796

017256
017264
017272
017276

142737
112777
005037
105777

000340
000043
001160
162756

3798
3799
3800
3801
3802
3803
3804

017304
017310
017312
017314
017316
017324
017332

005237
001372
000526
000240
062737
012737
004737

001160

3806

017340

004737

031274

10§

- INITIALIZE KMC=11 FIRMwARE

;FIRMWARE FAILED TO INITIALIZE

#=1

3808
3809

017346
017352

005237
012777

002452
017410

3811

017366

112777

3813

017400

012737

3815
3816
3817
3818
3819
3820

017410
017416
0176420

382§

*A REQUEST IN W/0 I.E. IN SET
MOV
VECIN.RO
MOV
#118, (RO)+
:PRIME INPUT VECTOR
MOV
#PR7. (RO)+
*PRIME INPUT STATUS LEVEL
MOV
#128. (RO)+
*PRIME OUTPUT VECTOR
MOV
#PR7. (RO)
*PRIME OUTPUT STATUS LEVEL
INC
ERNUM
,
JSR
PC,STCLK
;SET MAINT LOOP + START CLC:K

B8R

*MAINTENANCE COMMAND NOT ISSUED #=1

$TMPO
28
108

#2,ERNUM
#PR7,PS
PC, INTKMC

:NO INTERRUPT OCCURED
*SET PROCESSOR BACK TO LEVEL 7
SINITIALIZE KMC=11 FIRMWARE

JSR

PC,STCLK

*SET MAINT LOOP + START CLOCK

162720

INC
MOV

ERNUM
#6$,aVECIN

:
*LOAD RET. ADDRESS FOR LEGAL INTERRUPT

000143

162664

MOVE

#143.aSELO

*INT, ENABLE,

000340

177776

062737
022626
005726

000002

002452

017422
017430

012737
004737

000340
030664

177776

017436

004737

031274

100405

000511

000002
000340
030664

177776
162766

10§

INC
BNE
BR
NOP
ADD
MOV
JSR

3807 017344

28:

002452
177776

38:

017376

004737

3814 017406 000470

017434

000455

017442 00045

031714

3824
3825
3826
3827

017444
017450
017456
017462

005237
012777
005037
112777

002452
017540
001160
000143

3830
3831

017476
017502

oosgsr
001372

001160

017470

105777

igzo 017474 100404

162564

BM]

B8R
BR

3810 017360 042737 000340 177776

B8R

PC, INTKMC

*LOAD LOOP ADSRESS (LOOP ON ERROR)
:INITIALIZE ERR #

#PR7.PS
#43,3SELO
$TMPO
@SELO

3805 017336 000514

3823

#1§, SLPERR
#1,ERNUM

BICB
MOVB
CLR
TSTB

3797 017302

3821

CLR

MOV
MOV

:LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

:PRIME INTERRUPT VECTORS, DROP PROCESSOR STATUS TO 0, AND ISSUE

3784
3785
3786
3787
3788
3789
3790
3791

3812

#33, TSTNUM
PC,SETLIN

JSR

370

3792 017254 000545

MOV
JSR

SEQ 0076

BIC

JSR

MOV
68:

B8R

78:

10§

#PR? ,PS

PC,SYNTIM

#PR7 ,PS

108

*B=YES

*ALLOW TIME FOR RESPONSE
,
:
;REPORT REQUEST IN "RDYIN'' FAILED TO SET #=2

:2ND. INITIALIZE OF F.W. FAILED #=4

*DROP PROCESSOR
STATUS T0 0
‘WAIT A WHILE

REQ.IN INIT.

:RESET PROCESSO/i STATUS LEVEL

*REPORT ‘RDYIN'* FAILED TO SET (2ND) #=5/ INT. WRONG VEC.

108

*F.W. FAILED TO INIT., #=7

JSR

PC,STCLK

INC
MOV
CLR
MOVB

ERNUM
#98,3VECIN
$TMA0
#143,3SELO

@SELD

*1S REQUEST GRANTED?

INC
BNE

$TMPO
78

:NO TRY AGAIN

B8R

162570

108

;1S REQUEST GRANTED?

ADD
#2,ERNUM
POP2SP
:CLEAN THE STACK
POPSP
:NOW TEST THAT INTERRUP OCCURS AT THE PROPER PROCESSOR STATUS LEVEL
MOV
#PR7,PS
JSR
PC, INTKMC
;INITIALIZE KMC=11 FIRMWARE

BR
162622

*SET P.S. T0 0
*LOAD INIT. IN REQ. W/0 INT. EN

1ST8

BMI

10§

:SET MAINT LOOP + START CLOCK

:LOAD TRAP ADDRESS OF INTERRUPT
;INT. ENABLE REQ. IN.

*B=YES

3832
3833

017504
017506

000431
oos; 7

017520

132737 000340

3834

01751%

3836
3837

o1rs§e
017530

oo13g7
152737

000340

177776

3839
3840
3841

017540
017546
017554

116637
042737
023737

000002
000037
002464

002464
002464
002304

3843

017564

022626

3835

125

002452

3838 017536 000414
3842

017562

001002

000320

L
MACY11 30A(1052)
21-0CT-81 ({8:50 PAGE 77
GET VALUE FOR SOFTWARE SWITCH REGISTER

177776

BR
INC

8s:

177776

3846
3847
3848
gggg

3851

3852
3853
3854
3855
3856

004237
104033
©00137

031470
A
017200

017602
017610
017612
017620
017622

013737
000403
013737
022626
005237

002300

002464

118:

002302

002464

12%:
138:

002452

108:

:B=

#PR7.PS

*AT LEVEL 0

108

2(SP) ,WAS
#37.WAS
WAS PRI IN

108

:REPORT INT. FAILED

JGET LEVEL INTERRUPT OCCURED AT
JWAS INT. LEVEL SAME AS SPECIFIED?

:B=NO REPORT ERROR #=11

TST34

; :DONE

JSR
ERROR+
JMP

PC,GETCSR
33
13

JGET CONTENTS OF THE CSRS

;ERROR ROUTINE

JINTERRUPT TRAP SERVICE ROUTINE FOR ILLEGAL INTS.

HOV
B8R
MOV
POP2SP
INC

B8R

VECIN, WAS
138
VECOUT ,WAS

2GET ADDRESS THAT INT. VECTORED TO
2GET ADDRESS THAT INT. VECTORED TO

ERNUM

108

JFAIL #'S
.1=.FAILWE"1N TEST INITIALIZE ROUTINES (WAS=N/A)
:2="RDY=IN'' FAILED TO SET (WAS=N/A)
:3=]LLEGAL INTERRUPT OCCURED (W/PS @ 7) (WAS=VECTOR TRAPPED TO)
:4=F ]RMWARE INITIALIZE FAILED AFTER RDYIN SET (WAS=0=N/A)
JOR CLK FAILED TO STAR
:5=2ND. RDYIN FAILED 70 SET (WAS=0=N/A)
;6=INTERRUPTED TO WRONG VECTOR ADDRESS (WAS=VECTOR ADDRESS TRAPPED TO)
:7=FIRMWARE FAILED TO INIT. AFTER IWT INTERRUPT (WAS=0=N/A)
:10=3RD. RDY=IN FAILED TO SET (WAS=0=N/A)

11 lNTERRlPT OCCURED AT LEVEL OTHER mm SPECIFIED (WAS=PS WORD 8)

;;tttttttttttttttt.t'ttt'ttttttttfitttttttttttlttltttttt.ttttttttt

3874
3875
3876
3877
3878

ggsgERsEg

£t
#PR7.PS

POP2SP

3860
3861
3862
3863
2864
3865
3866
3867
3868
3869
%g;%

BNE
BISE

SNE

3858
3859

333;(1)

JKEEP DROPPING STATUS UNTIL INT. OCCURS.

L 1)"/:]
BIC
CMP

017570
017570
0175764
017576

3857 017626 000760

#40 _FS

B8R

3844 017566 000420

3845

;REPORT REQUEST IN 'RDYIN'' FAILED TO SET #=10

SuUB

BITB
9%:

108
ERNUM

JINTOUT
JTHIS TEST WILL CHECK THAT AN OUTPUT REQUEST INTERRUPT CAN CORRECTLY BE
EXECUTED TO INTERRUPT VECTOR XX& AND TEST THE LOGIC AND
IMARE ARBITRATION.
A TRANSMIT AND RECEIVE BUFFER IS QUEUED TO LINE 0
uxru THE PROCESSOR STATUS AT 0 AND THE “IEQ" BIT NOT SET
A TEST IS DONE TO CHECK THAT NO INTERRUPT OCCURS.
:THE FIRMJARE

:WITH THE

IS REINITIALIZED THE BUFFERS REQUEUED

“'IEQ" BIT SET AND THE PROCESSOR STATUS AT 0

:A CHECK 1S DONE TO TEST THAT THE INTERRUPT OCCURS TO THE
f e

:0UTPUT VECTOR ADDRESS XX4.

R RARARAANARAAAA RN

AR AR RAANARAAARAARRAAARAAANRAIAARARARORS

SEQ 0077

TM~

CZKMEAO DMS11-DA DYNAMIC
CIKMEA.P11
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

N 6
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 7 3
GET VALUE FOR SOFTWARE SWITCH REGISTER

3888
3889

STEST

38%

3891 017630

3892
3893

017632
017640

012737
004737

000034
030244

3895
3896

017652
017656

005037
012737

002464
000001

002460

3894 017646 012737 017652 001110
3897
3898
3899

017666
017670

004737
000565

030664

002452

4734 SCOPE
18:

3902
3903
3906
3905
3906

MOV
JSR

#34, TSTNUM
PC,SETLIN

:LOAD THE WD OF THIS TEST
*SETUP THE FIRST LINE

CLR
MOV

01 enqu

;INITIALIZE ERR #

MOV

cfiswnn

:LOAD LOOP ADDRESS (LOOP ON ERROR)

JSR
PC. INTKMC
SINITIALIZE KMC=11 FIRMWARE
BR
6%
;FIRMWARE FAILED TO INIT. #=1
:PRIME INTERRUPT VECTORS, DROP PROCESSOR STATUS TO 0, AND

3900

3901

t.tt.tttt'Qtt.tttttt""tttttt.'ttt'ttttt.t'.'ttt.ttt".'.t..'t

:QUEUE A RECEIVE AND TRANSMIT BUFFER TO LINE 0, CHECK

MoV
MOV
MOV
MOV
MOV

VECIN,RO
#78, (RO)+
#PR?7, (RO)+
#88, (RO)+
#PR?, (RO)

:GET VECTOR ADDRESS
:PRIME INPUT VECTCR
:
*PRIME OUTPUT VECTOR

3908 017722 142737 000340 177776

BICB

#PR7,PS

;:DROP PROCESSOR
STATUS TO 0

3910

JSR

PC, INTLNE

3907

017672
017676
017702
017706
017712
017716

013700
012720
012720
012720
012710

*THAT BOTH BUFFERS RETURN WITH OUT GENERATING AN INTERRUPT.

005237

3909

017730

3911

017742 000540

017736

012737

004737

002300
020256
000340
020266
000340
002452

052660

031204

002522

3912

017744

004737

031274

3914
3915

017752
017756

005237
012737

002452
000006

2917
3918
3919
3920

017770
017772
017776
020006

525
005237
012737
004737

3922
3923
3924
3925
3026

020012

005237

002452

020016
020022
020022

005037

001162

004737

031742

3928
3029

020030
020036

105077
005137

162230
001162

062737

ooooog

002452

015777

020224

162220

3913 017750 000535
3916

3921

017764

020010

004737

000515

3927 020026 000506

2930
3931
3932
3933

020040

3935

020050

3034

936

020042

020054

001370

005037

031344

002452
000002
031354

00116

020070
020074

3941
3942

020102
020110

940

3943

004737
ooo‘gs

020076

005237

020114

000453

012737
004737

oooogz
031354

B8R

BR
INC
MOV
JSR

BR
28:

PC,STCLK

ERNUM
cs BUF CNT

PC.RIN

6$
ERNUM
#2 ,BUFCNT
PC.XIN

113

:SET BUFFER ADDRESS

SINITIALIZE LINE (# IN CURLIN)

*LINE FAILED TO INITIALIZE #=1
:SET MAINT LOOP + START CLOCK

*MAINTENANCE COMMAND NOT ISSUED #=1
;A LARGER REC. BUFF. FOR CRC=32

:LOAD A RECEIVE BUFFER IN

*RECEIVE BUFFER FAILED TO LOAD #=2
:XMIT BUFFER
:LOAD A TRANSMIT BUFFER IN

*TRANSMIT BUFFER FAILED TO LOAD #=3

INC
ERNUM
;WAIT FOR THE 2 BUFFERS TO RETURN
CLR
$TMPT
;BUFFER COUNT FLAG

JSR

PC.REQOUT

CLRB
COM

Q@SEL2
$TMPT

B8R

002526

#RBUF ,BUFADR

JSR

002526

ERNUM

B8R

INC
MOV

002526

031344

002452

MOV
JSR

3937 020062 012737 oooggs 002526
3938
3939

INC

:TEST REQUEST OUT OF KMC SETS

;BUFFER FAILED TO RETURN #=4 + S=ILLEGAL INT W/0 IEO
:COMPLETE OUTPUT
:2ND BUFFER

BNE
2
:NOW SET THE INTERRUPT ENABLE OUT BIT PRIME OUTPUT
*VECTOR FOR LEGAL INTERRUPT QUEUE A XMIT AND RECEIVE
*BUFFER AND TEST FOR A VALID INTERRUPT.

ADD

#2,ERNUM

MOV

#58, VECOUT

JSR
BR

PC.RIN
63

CLR

MOV
INC

MOV
JSR

$TMP1

:BUFFER COUNTER

#6,BUF CNT

*REC.BUFF. UP BY 4 BYTES FOR CRC=-32

ERNUM

#2,BUF CNT
PC.XIN

68’

*PRIME OUTPUT VECTOR FOR LEGAL INT.

*LOAD A RECEIVE BUFFER IN
:OND REC. BUFFER FAILED TO LOAD. #=6
;XMIT BUFFER
*LOAD A TRANSMIT BUFFER IN

*OND XMIT BUFFER FAILED TO LOAD. #=7

SEQ 0078

.€§

—

jelelelele] 00000

[=lelelatlal

e
>

VNS

-0V

§mumum8mmumgfi2
980V
8 800 3R

11-DA DYNAMIC

020222

020224

20-0CT-81 17:05

o5 0024
0001

001160
000340
162116

8 7
MACYN 30A(1052) 21-0CT-81 08:50_ PAGE 79
T VALUE FOR SOFTWARE SWITCH REGISTER
162134

177776

3s:
4$:

001160

000340
000002

177776
002452

000012
001164

001164

002452
000340

000200
001162

45%:
468:

5$:

6$:

031470
017652

020256

002300

002464

78:

002302

002464

8$:
9%:

002452

BICB

cpn? PS

nsssr PROCESSOR STATUS TO 0

gzg

$TMPO

TSTB
BM]
ADD
BR

MoV

POP2SP

%65

@SEL2
458
&%

: INTERRUPTS SHOULD OCCUR NOW

SOUTPUT RDY SET

#PR7 ,PS

SET PROCESSOR ==> 7

:10.287HP2

sWAIT FOR POSSIBLE INT. DELAY(FIRM.W)

02 ERNUM
63

;REPORT BUFFER FAILED TO RETURN #=12
:#10=INT. TO WRONG VECTOR #%#

468
ERNUM

#PR7 ,PS
63
sFAIL #=11
INT FAILED
LEAN STACK

IZOOiOSELZ

sCOMPLETE OUTPUT

BEQ
1ST35
BR
3$
sERROR ROUTINE

: ; DONE
sWAIT FOR NEXT BUFFER

JSR

sGET CONTENTS OF THE CSRS

ERROR+
JMP

020252

020302

sENABLE THE INTERRUPT

CLR

INC
gas

020242
020244

nngn
#100 @SEL2

81S8

177776

162030

INC
81s8

PC,GETCSR

34
18

; INTERRUPT TRAP SERVICE ROUTINE FOR ILLEGAL INTS.

MoV

BR
MoV
POP2SP
INC
BR

VECIN,WAS

9
VECOUT ,WAS

sADDRESS INT VECTORED TO

ERNUM
6$

sFAIL #S

:1=FAILURE IN TEST INITIALIZATION ROUTINES (WAS=N/A)
g-nscexve BUFFER FAILED TO LOAD
=TRANSMIT BUFFER FAILED TO LOAD

:4=BUFFER FAILED TO RETURN

:5=JLLEGAL INTERRUPT WITHOUT IEO SET (WAS=VECTOR TRAPPED TO)
:6=2ND RECEIVE BUFFER FAILED TO LOA
;7=OND XMIT BUFFER FAILED TO LOAD
:10=INTERRUPT OCCURED TO uponc VECTOR (WAS=VECTOR TRAPPED TO)
:11=INTERRUPT FIALED WHEN 'RDYOUTTM SET (WAS=N/A)
:12=BUFFER FAILED TO RETURN (NO 'RDYOUT'") (WAS=N/A)
SRR

t§135:
020322

ARARA AR RN AAAAAARAE AR AR AR AAARARRRAAAARARRANARARARARA
AR
AR RR

SCOPE
CLR
CLR
gfig

STSTNM
TSTNUM
?:42

:IF A MONITOR NO UNIT PASSES REPORTED

SEQ 0079

CZKMEAO DMS11<DA DYNAMIC

CIZKMEA.P11

20-0CT=31 17 (1}

4000
g 032777
4001 o 2 001015

400;

160606

0204

w“g
105737

002311

4007

020356

104401

020416

4009

020362

104401

020410

4017
4012

ogosog
020372

004737
000414

026506

4014
4015
4016

020400
020406
020410

005015
000040
020040

047125

052111

UNTDON:

041503

000120

MCCP:

4004
4005

4.009 020352

100003

4008 020360 000402

4010 020366
4013

28};

020376 000137 002376

020416

020040

047502

2855

MOV

CUNIT,=(SP)

BPL

TYPE

158:

18:

4019

I.OZO

#BIT15,aSWR
18

TYPDS
TSTB

000120

08:50

BIT
BNE

TYPE

020 01374? 002456
020
020

21-0CT-81

PAGE 80

GET VALUE FOR SOFTWARE SWITCH REGISTER

104401

4003

020336

100000

MACY?1 30A(1052)

MBOP:

,UNTDON

MODE

158

MBOP

JSR
sa

PC gs KMC
rsf 6

.ASCIZ

<15><12>/UNIT /

TYPE

;INHIBIT END REPORTS?
*BR=YES
:BOP OR CCP

:B=CCP

;GET nexfmc OR REPORT AN END PASS

JMP

.ASCIZ

E
/

eer NEXT ENABLED KMC11
“;REPORT AN END PASS

CCP/
BOP/

.EVEN

020424

i i 3323232333333 3332333332333 2333333332333 32238333333 23333333233332%%3

000004

t§736:

SCOPE

2852

.SBTTL

END OF PASS ROUTINE

l.ozs

33 1 3333333323323 3333323223233 233 3333333333333 3333332333333 323333233327

4026
4027
4028
4029

**INCREMENT THE PASS NUMBER (SPASS)
tmoxque END=OF <PROGRAM AFTER 1 PASSES THRU THE PROGRAM
S«TYPE "END PASS #XXXXX
(uueas XXXXX IS A DECIMAL NUMBER)
:«]F THERES A MONITOR GO
TO IT

28%?

:«IF THERE ISN'T JUMP TO RESTRT

4032
4033

020426
020426

000004

$EOP:

4035

020434

005037

001166

4037
4038
4039

020444
020452
020454

042737
005327
000001

100000

20430 005037 001102

4036 020440 005237 001100

4040
4041

020456
020460

003 g;
0127

4045

020472

013746

40462
4043
4064

4046

020462
020464
020466

020476

4047
020500
4048 020504
4049 020510

4050
4051

020512
020514

4054
4055

020522
020524

4052
4053

020516
020520

000001
020454
104401

104405

104401
013700
001405
ooogos
004710

000240
000240
000240

SCOPE

CLR

STSTNM

INC

$PASS

BGT
MOV

$DOAGN
(PC)+,a(PC)+

CLR
001100

BIC
DEC
SEOPCT: .WORD
SENDCT:

020533

.WORD
$EOPCT
TYPE

001100

MOV

020530
000042

TYPE
$GET42: MOV
BEQ

TYPDS

RESET
SENDAD: JSR

NOP
NOP

$DOAGN:

NOP

STIMES

#100000,8PASS
(PC)+
1
1

SENDMG

..zmo THE TEST NUMBER

::ZERO_THE NUMBER OF ITERATIONS

: INCREMENT THE PASS NUMBER

::DON'T ALLOW A NEG. NUMBER
::LOOP?

;:YES
;;RESTORE COUNTER
:TYPE “END PASS #'*

$PASS, - (SP)

..SAVE $PASS FOR TYPEOUT

SENULL
62 RO
$DOAGN

sTYPE A NULL CHARACTER
..GET MONI TOR ADDRESS
*BRANCH IF NO MONITOR

PC, (RO)

..Go TYPE=-DECIMAL ASCII WITH SIGN

..CLEAR THE WORLD
..eo TO MONITOR

: :SAVE ROOM
+:FOR
J:ACTN

SEQ 0080

CZKMEAO DMS11-DA DYNAMIC

CZKMEA.P11

4056

20-0CT=81 17:05

MACYT SOA(‘IOSZ)

ND OF PASS ROUTINE

020524 000137

4057
4058

020526
0205

00239;
3

060
4061
282

020540
020546

osooeg
00004

4059 ogoss

21-0CT-81

377

000

051501

02012

SRTNAD:
S$ENULL:

JMP

.WORD
.BYTE

08:50

7
PAGE 81

a(PC)+
nesm

SEQ 0081

; ;RETURN
g

nuu. CHARACTER STRING

015 042412 042112 SENDMG: .ASCIZ <1$><1 >/END PASS’#
.SBTTL

‘06‘

SCOPE HANDLER ROUTINE

tttttttttfiltttttttt'ttt'ttttttttQttttttttttttttttt.ttttttt'.ttt

4065
4066
4067
4068
4069

-rms aounne CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
saSWl4=1
LOOP ON TEST

4072

%SW08=1

4070
4071

saSWl1=1
-suo9-

4073

s #CALL

4074

4075
4076

i
020550

$SCOPE:

4077 020550

104407

4079
4080
4081
4082
4083
4084
4085

020552
020556
020560
020564
020572

021627 001002
101002
000137 021034
032777 040000
001111

020574

000416

4078

4086

4091
4092
4093
4096
4095

020610

020614
020620
020622
0206264
020630

4096 020632

005737

020650

160346

4101
4102
4103

020652
020656
020660

105737
001421
123737

4106

020676

001404

4109

020710

105037

; :SCOPE=10T

CKSWR

FOR CHANGE IN SOFT-SWR

: ;UNEXPECTED TRAP OR INTERRRUPT
:;ARE_TRAPPED WERE VIA 10T
+G0 PROCESS UNEXPECTED TRAP
18:
..I.OOP ON PRESENT TEST?
“YES IF SW14=1
:#AMMASTART OF CODE FOR THE XOR ’rtsremm
BHI
JMP
BIT
BNE

$XTSTR: BR

177060

012637 000004
000463
022626
012637 000004
000423

00146

SCOPE

+ ;OTHERWI SE counnue
CMP
SP) , #1002

001103
001115

4104 ozoege 101015
4105 020670 032777 001000
4107 020700 013737 001110
4108 020706 ooo“;
001103

4110 020714 005037 001166
4111 020720 000415

::IF RUNNING ON THE '‘XOR'' rssrsa CHANGE

MOV
MOV

SWERRVEC,~(SP)
m;amvsc

:-SAVE THE CONTENTS OF THE mon VECTOR
..ser FOR TIMEOUT

MOV
BR
CMP
MOV
B8R

(smo S#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+.3#ERRVEC
78

::RESTORE THE ERROR VECTOR
$360 TO THE NEXT TEST
*3CLEAR THE STACK AFTER A TIME OUT
..assrone THE ERROR VECTOR
LOOP ON THE PRESENT TEST

BIT
BEQ
CMPB

#81T08,aswR
2
@SWR,STSTNM

..LOOP ON SPEC. TEST?
*BR IF NO
..ou THE RIGHT TEST?

TSTB
BEQ
CMPB

SERFLG
3s
SERMAX,SERFLG

..HAS AN ERROR OCCURRED?
*:BR IF NO
::MAX. ERRORS FOR THIS TEST OCCURRED?

*BR IF NO

*THIS INSTRUCTION TO A 'NOP'*

=240)

TIME OUT ON XOR?

6$: ;MMANNEND OF CODE FOR THE XOR 'rssrmm
2s:

001103

160242
001106

1s
SERROR
#BIT14,aSWR
SOVER
6$

58:

4097 ozoezss 032777 000400 160300
4098 020640
001404
4099 ozous 127737 160272 001102
4100

LOOP ON TEST IN SWR<7:0>

;260 TO ERROR ROUTINE IF RETURN bc LESS THAN 1002

4,087
4088 020576 013746 000004
4089 020602 012737 020622 000004

4090

INHIBIT ITERATIONS
LOOP ON ERROR

78:
48:

BEQ

$OVER

*BR IFYES

SWR<7:0>

BHI
BIT

3s
#81T09,aSWR

MOV
BR

SLPERR,SLPADR
$OVER

::SET LOOP ADDRESS TO LAST SCOPE

STIMES
18

*:CLEAR THE NUMBER OF ITERATIONS TO MAKE
“:ESCAPE TO THE NEXT TEST

BEQ

CLRB

CLR
B8R

SERFLG

*:BR IF NO
..LOOP ON ERROR?

::2ERO THE ERROR FLAG

CZKMEAO DMS11-DA DYNAMIC 2

CZKMEA.P11
4112
4113

020722
020730

032777
001011

020736

0014

4114

020732

4119

020740

4115

4117
4118

4119

20-0CT-81

17:05

004000

MACY11 SOA(()AOSZ)

€ HANDLER ROUTINE

160210

001104

020756

012737

000001

001104

020770

105237

001102

$SSVLAD: INCB

011637

001110

MOV

7
021

4124

021004

005037

4127
4128
4129
2};9

001166

011637

6126

BEQ

001104

020774

4125

#BIT11,3SWR
1$

oog;

020744
020752

021000
021010

021016

021026
021030
021032

11;737

013777

013716
000002
000001

001106

001170
000001

001102

001106

001115

160116

INC

18:

SOVER:

08:50

BIT
BNE

001100

4122

4123

38:

005737

4120 020762 013737 021032 001166
4121

21-0CT-81

7
PAGE 82

SEQ 0082

..xunxaxr ITERATIONS?
*BR IF YES

$PASS

..1r FIRST PASS OF PROGRAM

SICNT

: S INCREMENT ITERATION COUNT

#1,81CNT

*:REINITIALIZE THE ITERATION COUNTER

INHIBIT ITERATIONS

CMP
BGE

STIMES,SICNT
SOVER

MOV

SMXCNT STIMES

MOV

(SP) , SLPADR

PZSAVE SCOPE LOOP ADDRESS

CLR

$ESCAPE

:CLEAR THE ESCAPE FROM ERROR ADDRESS

MOV

STSTM aDISPLAY ..DISPLAY TEST NUMBER

MOV

MOVB

STSTNM

(SP) .SLPERR

#1,SERMAX

MOV
$LPADR. (SP)
RTI
SMXCNT: 1
.SBTTL ERROR HANDLER ROUTINE

..cuecx THE NUMBER OF ITERATIONS MADE
*BR IF MORE ITERATION REQUIRED

;:SET NUMBER OF ITERATIONS TO DO
:COUNT TEST NUMBERS

*:SAVE ERROR LOOP ADDRESS

*ONLY ALLOW ONE(1) ERROR ON NEXT TEST

FUDGE RETURN ADDRESS
SIFIXES PS
2:MAX. NUMBER OF ITERATIONS

1.132

33 L 2333333223233 2338333223232 32 3333333333333 1132333333233 22232323332332%

4133
4134
4135

**THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:«SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*«AND GO TO SERRTYP ON ERROR

4137
4138
4139
4140

saSW15=1
tSHlS1 %SWi0=1
tSUO9-1

4136

tTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

4141

*CAI.L

2}2%

4144
4145
6146
4147
4148
4149
4150
4151

021034
021034
021036
021042
021046
021052
021060
021062

104407
105237
001775
013777
032777
001402
104401

4153
4154

021072
021076

011637
162737

4152

4155
4156

4157
4158
4159

4160

021066

0211064
021112
021120
021122
021126

005237

117737
032777
001055
021627
101046

$ERROR:
001103
001102
002000

7%:
160070
160060

00117

00111

001116
000002

160006
020000

18:
001116

001114
160020

001002

4161

021130

016637

000004

4165
4166
4167

021154
021156
021162

104402
104401
162716

021216
000004

001116

4162 021136 162737 000002 001116
4163 021144 104401
021210
4164 021150 013746 001116

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

ERROR

CKSWR
INCB
BEQ
MoV
BIT
BEQ
TYPE

$ERFLG
7%
STSTNM,aDISPLAY
#8IT10.aSWR
1$
$BELL

MOV
SUB

(sp) seaapc
#2,SERRPC

*3GET ADDRESS OF ERROR INSTRUCTION

2os
(SP) ,#1002
128

$3SKIP TYPEOUTS
::1F RETURN PC LESS THAN 1002
sanoa IS ILLEGAL TRAP

INC

MOVB
BIT
BNE
CMP
BHI

2 :ERROR=EMT AND N=ERROR ITEM NUMBER

$ERTTL

@SERRPC,SITEMB
#8I1T13,3SWR

J3TEST FOR CHANGE IN SOFT=-SWR
..SET THE ERROR FLAG
DON'T LET THE FLAG GO TO ZERO
..DISPLAY TEST NUMBER AND ERROR FLAG
:BELL ON ERROR?
SINO = SKIP
..nxns BELL

*COUNT THE NUMBER OF ERRORS

;:STRIP AND SAVE THE ERROR ITEM CODE
::SKIP TYPEOUT IF SET

::PROCESS uuexpscrso TRAP OR INTERRUP
MOV

TYPOC
TYPE
SUB

eéarc
s
fERRPC.-(SP)

+:ADJUST PC
**TYPE HEADER
::SAVE SERRPC FOR TYPEOUT

,118
#4,(SP)

::GET FALSE TRAP VECTOR ADDR

SUB
TYPE
MoV

SERRPC ~

;;GET pc AT TIME OF FALSE TRAP

$3G0 TYPE=-OCTAL ASCII(ALL DIGITS)

CZKMEAO DMS11-DA DYNAMIC

CIKMEA.P11

20-0CT-81 17:05

MACYT 30A(1052)

21-0(7-81

OR HANDLER ROUTI

08:50

PAGE 83

SEQ 0083

4168 ozn?g 8" 37 001116
4169 0211
13746 001116
4170 8 1176 10440

MOV
MOV
TYPOC

(SP) ,$ERRPC
$ERRPC,=(SP)

6172
4173

CMP
BR

(SP)+,(SP)+
208

::POP FALSE TRAP VECTOR PCBADDR

JSR
TYPE

PC,SERRTYP
,SCRLF

::60 TO USER ERROR ROUTINE

asSWR
3s

38:

ST
BPL
HALT
CKSWR
BIT

#81T09,aSWR

:HALT ON ERROR
:3SKIP IF CONTINUE
::HALT ON ERROR!'
::TEST FOR CHANGE IN SOFT-SWR
*:LOOP ON ERROR SWITCH SET?

48:

MOV
ST

SLPERR, (SP)
$ESCAPE

*:FUDGE RETURN FOR LOOPING
:iCHECK FOR AN ESCAPE ADDRESS

6171

021200

104401

001177

6174
6175
4176
4177
4178

021210
021216
021226
021232
021240

050200
020040
042520
0520640
0475264

036503
047125
052103
040522
000040

4180

021244

4184
4185
4186
4187
4188

021254
021260
021262
021264
021266

4179

4181
4182
4183

4189

021204 ozzcg
021 08 0004

021244
021250
021254

004737
104401

021274

001402

TYPE

000040
054105
042105
020120

28:
157644

021306

001402

4196 021322
4197 021324

001001
000000

2}3{ 85}.;,}2 013716 001170
4195 021314 022737 020514 000042

4198
4199

68:

258?

021326
021326

000002

<200>°'PC= °
'
UNEXPECTED TRAP TO °

.EVEN

208:

4190 021276 013716 001110
4191 021302 005737 001170
4192

ASCIZ
JASCIZ

128:

021330
001177

005777 157660
100002
000000
104407
032777 001000

10$
118

,SCRLF

::SAVE SERRPC FOR TYPEOUT
+:60 TYPE==OCTAL ASCII(ALL DIGITS)

BEQ

MOV
CMP

BNE
HALT

2:BR IF NO

$ESCAPE,(SP)
#SENDAD ,@#42
6$

RTI

.SBTTL

:BR IF NONE

::FUDGE R TURN ADDRESS FOR ESCAPE
;:ACT=11 AUTO-ACCEPT?
::BRANCH IF NO
::YES
: :RETURN

ERROR MESSAGE TYPEOUT ROUTINE

4202

JIRARR

4204

“«ERROR IS TO BE REPORTED. IT THEN OBTAINS., FROM THE ‘ERROR TABLE''

4203

zggg

AR AR AR AR NN TR

4207 021330
021330

4210
4211

021336
021340

4205 021334

4212 021344

104401

010046
005000
153700

001004

001177

SERRTYP:

TYPE

::"'CARRIAGE RETURN''
&

RO
aN#SITEMB.RO

+:PICKUP THE ITEM INDEX

RO,=(SP)

BNE

::1F ITEM NUMBER IS ZERO, JUST

--SAVE SERRPC FOR TYPEOUT

021346 013746 001116

MOV

SERRPC.-(SP)

4216
4217

021352 1ou.o§
021354 00044

TYPOC
B8R

108

4218

021356

005300

4220
4221
4222

021362
021364
021366

006300
006300
062700

4219

4223

021360

021372

18:

006300

001202

012037 021402

DEC

ASL

MOV

(RO)+,2$

ASL
ASL
ADD

RO
RO
mnm RO

*:SAVE RO

'‘LINE FEED'’

MOV

CLR
BISB

001114

,SCRLF

4214

4215

AR AR RN RN RRAR AN AARANRNRAANRNRARS

:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

4208

4213

AR AR

:*THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE, WHICH

::TYPE THE PC OF THE ERROR
: ;ERROR_ADDRESS

+:60 TYPE==OCTAL ASCII(ALL DIGITS)
::GET OUT

..ADJUST THE INDEX SO THAT IT WILL
¥

WORK FOR THE ERROR TABLE

:FORM TABLE POINTER

..chxw 'ERROR MESSAGE'* POINTER

(SERRTB).

6
6227
4228

021402
021404
0%1410
1414

BEQ

104401

2%:

000000
104
012

3s:

?82

4$:

5$:

6$:

TYPE
- WORD
TYPE
MOV

TYPE

7$:

8s:

021460

3
104421

4252

021472

0
10440;

001177

4254

021500

020040

000

4247

021500

118:
.SBTTL

ERROR MESSAGETM
;3 ERROR MESSAGE'* POINJER GOES WERE

::"'CARRIAGERETURN'' § "LINE FEED
:PICKUP 'DATA HEADER'* POINTER
::SKIP TYPEQUT IF 0

$SCRLF
20)+.48

::TYPE THE

,S$CRLF

MoV
TSTB
BN E
v

(RO)+,RO
(RO)+
78
a(R1)+,-(SP)

TYPDS
TST

a(R1)+,-(SP)
(R1)
9s

MOV
MOV

(SP)+,R1
(SP)+ RO

TYPE

::PICKUP *DATA TABLE'* POINTER

BEQ

118

éSCRLF

"DATA HEADER"

;i DATA HEADER'' POINTER GOES HERE
5 CARRIAGE RETURN'' & "LINE FEED

R1,-(SP)
gzbn R1

TYPE

9%:
108:

[3TYPE
THE

MOV
MOV

TYPOC

SEQ 0084

::SKIP TYPEQUT IF NO POINTER

4226 021376
4%55
021400

17:0

6 7
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 84
RROR MESSAGE TYPEOUT ROUTINE

WA
©O

NAHIC
-81

CZKMEAO DHS1\-g
CZKMEA.P1

:BR IF NO DATA TO BE, TYPED

:PICKUP "DATA FORMAT:* POINTER
:3"OCTAL" OR ‘DECIMAL'
:BR IF DECIMAL

:ISAVE @¢R1)+ FOR TYPEOUT
;16O TYPE--OCTAL ASCIICALL DIGITS)
::SAVE a(R1)+ FOR TYPEOUT
2260 TYPE=-=DECIMAL A3SCII WITH SIGN
..Is THERE ANOTHER NUMBER?

:BR _IF NO
..TYPE TWO(2) SPACES
ooP

: ;RESTORE R1
:sRESTORE RO
..;t?fialAGE RETURN'' & "'LINE FEED'’

C
ASCIZ
/7
/7
::TWO(2) SPACES
.EVEN
READ AN OCTAL NUMBER FROM THE TTY

tTHIS ROUTINE WILL READ AN OCTAL

;*CHANGE IT TO BINARY.

(ASCII) NUMBER FROM THE TTY AND

:*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

:*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘*?*' WILL BE TYPED

s*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
s *CALL:
.k
RDOCT
ssREAD AN OCTAL NUMBER
M
RETURN HERE
::LOW ORDER BITS ARE ON TOP OF THE STACK

ONESN)
—
WO —
N=NO—-=ONONO

32 8’0
—n—ng-.-.-a-.-s
OO0
S8
33
lelellelelelela]

S
§\-fl W

&
3

000004

000002

s sHIGH ORDER BITS ARE IN SHIOCT

SRDOCT:

::PROVIDE SPACE FOR THE
+ INPUT NUMBER

::PUSH RO ON STACK
1$:

021632

R2,=(SP)

MoV
MoV
CLR

(SP)+,RO
RO,5$
R1
R2

RDLIN

CLR

..PUSH R1 ON STACK
PUSH R2 ON STACK

::READ AN ASCIZ LINE

..GET ADDRE?S OF 1ST CHARACTER
sAND SAVE

:;CLEAR DATA WORD

CZKMEAO DMS11-DA DYNAMIC

CZKMEA.P11

20-0CT-81 17:05

MACYTT 3223052)

21-0CT-81

08:50

PAGE 85

AN OCTAL NUMBER FROM THE TTY

4280
4281
azag

021536
0 1543
021542

112046
001420
122716

428,
4285
4209
4287
4288
4289
4290
4291
4292
4293
4296
4295
4296
4297
4298
4299

021550
021554
021556
021560
021562
021564
051566
021570
021572
021576
021600
021602
021606
021610
021614
021616

12 712
00242
006301
006102
006301
006102
006301
102
042716
062601
000756
005726
010166
010237
012602
012601

4301
4302
4303
4306
4305
4306

021622
021624
021626
021630
021632
021634

000002
005726
105010
104401
000000
104401

4308

021642

000000

$HIOCT:

000000
000000
000000
000005
021657
021660

;:tttt!.'tttttttttttttttttttttttttitttQtttt.tttt.tttttttttttttttt
"ENABL LSB
$TKCNT: .WORD
O
:;NUMBER OF ITEMS IN QUEUE
$STKQIN: .WORD
O
:INPUT POINTER
$TKQOUT: .WORD 0
*:0UTPUT POINTER
$TKQSRT: .BLKB 5.
S:TTY KEYBOARD QUEUE
$TKQEND=.
.EVEN

4283

0 1548 003026

28:
000060

2;93
‘311
4312
4313
4314
4315
4316
4317
2;}3

021644
021646
021650
021652

000730

(RO)+,=(SP)
3s
#'0,(SP)

CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
ST
MOV
MOV
MOV
MOV

#'7,(SP)
48
R1
R2
R1
R2
R1
R2
#4C7,(SP)
(SP)+,R1
28
(SP)+
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+.R1

B8GT

000067

177770
38:

000012
021642

4300 021620 012600

4307 021640

MOVB
BEQ
CMPB

MOV
48:

58:

001176

.SBTTL

RTI
ST
CLRB
TYPE
WORD
TYPE

.WORD

(SP)+.R0O

(SP)+
(R0)

$QUES

TTY INPUT ROUTINE

::PICKUP THIS CHARACTER
*:1F ZERO GET OUT
:SMAKE SURE THIS CHARACTER

::1S AN OCTAL DIGIT
sa%d
sivh
;:%8

;:STRIP THE ASCII JUNK
S:ADD IN THIS DIGIT
::LOOP
:3CLEAN TERMINATOR FROM STACK
+:SAVE THE RESULT
::POP STACK INTO R2
+:POP STACK INTO R1

+:POP STACK INTO RO

: SRETURN
+CLEAN PARTIAL FROM STACK
:3SET A TERMINATOR
::TYPE UP THRU THE BAD CHAR.
,
,
15°7"
N § UTM

*:TRY AGAIN

:3HIGH ORDER BITS GO HERE

4320
4321

;*TK INITIALIZE ROUTINE
:«THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

6324
4325

s*CALL:
i
JSR

2;5%

*«SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

ggg

4328

021660

005037

021644

4330

021672

013737

021646

329

4331

4332
4333

433,
4335

021

021700

021706
021714

021720
021726

012737
012737

832737
005777

012777
000207

021652

021646

021730

000060

Soo
157226

000100

RETURN

$TKINT: CLR

$TKCNT

::CLEAR COUNT OF ITEMS IN QUEUE

$TKQIN,$TKQOUT

::QUEUE INTO THE INPUT & OUTPUT POINTERS.

#200,a#TKVEC+2
asTka

::'BR'* LEVEL 4
+3CLEAR DONE FLAG

MOV

#STKQSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE

MOV

#STKSRV @#TKVEC ::INITIALIZE THE KEYBOARD VECTOR

MOV
RTS

#100,387KS
PC

021650

MOV

000062

MOV
ST

157216

PC.STKINT

::ENABLE TTY KEYBOARD INTERRUPT
*3RETURN TO CALLER

SEQ 0085

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

MACYT 30A(1052)

21-0CT-81

TTY INPUT ROUTINE

08:50

7
PAGE 86

SEQ@ 0086

s*TK_SERVICE ROUTINE

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:+IT IN THE QUEUE.
3
"
i«IF THE CHARACTER IS A "CONTROL=C'* (*C) STKINT IS CALLED AND

:*UPON RETURN EXIT IS MADE TO THE
021730
021734

§TKSRV: MOVB

117746
04271
02162
001002
005726
000002

BIC
CMP

308:

023072
021660

022012
022014

18:

000176

001140

000005

021644

001172
38:

157076
157070

318:

*RANOO1
*RANOO1

(SP) ,#3
18
SCNTLC

;318 1T A CONTROL C?
*BRANCH IF NO
*:TYPE A CONTROL=C (~C)

JMP
CMP
BNE
CMP

MONIT
(SP) .47
23
#SWREG, SWR

::CONTROL C RESTART
::1S IT A CONTROL G?
+:BRANCH IF NO
2:1S SOFT=SWR SELECTED?

CMP
BNE

#5. . $TKCNT
33

::1S THE oueue FULL?
*BRANCH IF

BR
CMP
BNE
CLR

5%
(SP) ,#23
328
asTks

SEXIT
..IS IT A CONTROL=S?
: :BRANCH IF NO
+:DISABLE TTY KEYBOARD INTERRUPTS

TSTB
BPL
MOVB

@$TKS
318
@$TKB,-(SP)

S:WAIT FOR
A CHAR
::LOOP UNTIL ITS THERE
:GET THE CHARACTER

CMP
BNE
TYPE

TST

BIC
CMP
BNE

157042

328:

021644
000140

000175
000040

48:

177512

022156

021646
021646

021657

021652

021646

58:

:3BRANCH IF NO

:iCLEAN RANDOM XON OFF STACK
+*RETURN

TYPE
ST

000023

308

(SP)+

ST
RTI

BEQ

2%:

::PICKUP THE CHARACTER

:RAN0O1

JSR
ST

002076
000007

@STKB,=(SP)

::STRIP THE JUNK
::1S 1T A RANDOM XON?

BNE

000003

'‘CONTROL~C'* RESTART ADDRESS (MONIT)

#4C177,(SP)
(SP) ,#$XON

PC.STKINT
(SP)+

,SBELL
(sP)+

(SP)+

#4C177,(SP)
(SP)+,#21
31s

*:INIT THE KEYBOARD
*:CLEAN UP STACK

$:G0 TO SWR CHANGE

*:RING THE rrv BELL
:;CLEAN CHARACTER OFF OF STACK

+:CLEAN CHAR OFF STACK

**MAKE IT 7-BIT ASCII
..ls IT A CONTROL-Q?
*BRANCH IF NO

ggy

#100,38$7KS

..Rggfiast TTY KEYBOARD INTERRUPTS

INC

$TKCNT

*:COUNT THIS CHARACTER

BLT
CMP
BGT
BIC

43
(SP).M75
43
#40, (SP)

: :BRANCH IF YES
..IS IT A SPECIAL CHAR?
: ;BRANCH IF YES
SIMAKE IT urpen CASE

INC
CMP
BNE

$TKOIN
SUPDATE THE POINTER
$TKQIN, #$TKQEND ..Go OFF THE END?
13
*BRANCH IF NO

(MP

MOVB
MOV
RTI

(SP) ,#140

(SPJ+,asTKQIN

SIS IT uppen CASE?

33*AND PUT IT IN GUEUE

#STKQSRT,$TKQIN ..nsser THE POINTER
* SRETURN

*RAN0OO1

*RANOO1

CZKMEAO DMS11-DA DYNAMIC
CIKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052) 21-0CT-81
TTY INPUT ROUTINE

439

‘39

4397

022160

022166
022170
022174
022176

4405

022212

2289

7
PAGE 87

"%SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
+«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP

4399
4400
4401
4402

4403
04

ttttt't'ttttttt.ttt""t'tttt.t.tt'QttttttttttQ'tttt.t.t.tt'ttt

4394
4395
439
4398

08:50

022202
022206

022737

001124
105777
100121
117746

042716
021627
001300

000176

001140

t#CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR: CMP

#SWREG, SWR

::1S THE SOFT=SWR SELECTED

BIC
CMP

#°C177,(SP)
(SP),47

SIMAKE IT 7-BIT ASCII
::1S IT A CONTROL=G?

BNE
TST8
8PL
MOVB

156759
156744

177600
000007

BNE

15
asrxs
158
@$TKB,-(SP)
28

SSEXIT IF NOT
:3IS A CHAR WAITING?
::IF _NOT, EXIT
YES

:31F NOT, PUT IT IN THE TTY QUEUE

S:AND EXIT

1.408

23 1 2233233333333 2333333223323 2332323333333 13 3333233333333 3 232328232232 241

4409
4410

tCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
tROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A

4411
4612

4613
4614
4615
6616

22};

44619
4620
4421
64622

4623
4624
4425
4626

022214

123727

022222
022224
022226
022232

001674
005726
004737
005077

022244
022250
022256
022260

104401
104401
013746
104402

022236

022262
022266
022270
022272

112737

001134
021660
156706

000001

023122

+*CONTROL-G BEING TYPED, AND THE 'SOF TWARE SWITCH REGISTER BEING SELECTED.
&$:
(MPB
SAUTOB,#1
ARE WE RUNNING IN AUTO-MODE?
BEQ
TST
JSR
CLR

001135

023104
023111
000176

104401
005046
005046
105777

zzg; 022276 100375

000001

MOVB
TYPE
$SGTSWR: TYPE
MOV
TYPOC

198:

156646

78:

2
(SP)+
PC, STKINT
asTkK

*IBRANCH IF YES
22CLEAR CONTROL=G OFF STACK
2:FLUSH THE TTY INPUT QUEUE
J:DISABLE TTY KEYBOARD INTERRUPTS

JSCNTLG
.SMSWR
SWREG, = (SP)

2:ECHO THE CONTROL=G (*G)
::TYPE CURRENT CONTENTS
::SAVE SWREG FOR TYPEOUT
2260 TYPE-=OCTAL ASCIICALL DIGITS)

#1 SINTAG

TYPE
CLR
CLR
TSTB

,SMNEW
Z(sP)
-(SP)
asTKS

B8PL

*3SET INTERRUPT MODE INDICATOR

*:PROMPT FOR NEW SWR
*:CLEAR COUNTER
$:THE NEW SWR
::CHAR THERE?

::IF NOT TRY AGAIN

4429

022300

022306

0462716

117746

156642

MOVB

a$TKB,-(SP)

::PICK UP CHAR

4432
4433
4434
4435
4436
4437
4438

022310
022314
022316
022322
022326
02233
022336

021627
001015
104401
06 709
123727
001003
012777

000003

CMP
BNE
TYPE
ADD
C(MPB
BNE
MOV

(SP) .43
98
,S$CNTLC
#6,SP
SINTAG.#1
5%
#100,38TKS

2:1S IT A CONTROL=C?
$:BRANCH IF NOT
*:YES, ECHO CONTROL=C (“C)
*3CLEAN UP STACK
: ;REENABLE TTY KEYBOARD INTERRUPTS?
*BRANCH IF NO
SSALLOW TTY KEYBOARD INTERRUPTS

4441
4442
4443
44bh
4445

022350
022354
022356
022362

021627
001005
104401
062706

000025

98:

023077
000006

208:

CMP
BNE
TYPE
ADD

(SP) ,#25
108
,SCNTLU
#6,SP

::1S 1T A CONTROL-U?
CH IF NOT
*3YES, ECHO CONTROL=U (*U)
:; IGNORE PREVIOUS INPUT

22;9

2223 022344

444b

022366

177600
023072
ooooog
001135

000001

000100

156600

000137 002076

000737

BIC

8s:

JMP

#°C177,(SP)

MON] f

19§

SIMAKE IT 7-BIT ASCII

*SCONTROL=C RESTART

SSLET'S TRY IT AGAIN

SEQ 0087

e8S~od - 8388
n»aunizaa pr iy
&
'Nigflwhmw S NOON
NN
NONO
NN
—&IG& NN

4448
4449

CZKMEAO DMS11~
=DA
CZKMEA.P11
2

MACY1 30A(1052) 21-0(7-81
Y INPUT ROUTINE
108:

CMP

BNE

TST

156526

000001
000100

004757 023462

156504

118:

148:

15%:

16%

000060

000067
000060
000002

BEQ
MOV

022520

&(SP)

118
2(SP) ,aswR

(MPB

$INTAG,M

BNE
MOV
RTI
JSR

CMP
BLT
CMP
BGT
BIC
TST
BEQ
ASL

000002
177776

17%:

001176

188:

ASL
INC
BIS
B8R
TYPE

.DSABL

LS8

7
PAGE 88

(SP) ,.m5

06.SP

TYPE

16$

ADD

ASL

4475

08:50

$CRLF

158
#100,38TKS
PC,STYPEC

(SP) ,#60
188
(SP) ,.#67
18$
#60, (SP)+
2(SP)
178
(SP)
(SP)

(SP)
2(SP)
;Z(SP).(SP)
$QUES

208

SEQ 0088

2:1S IT A <CR>?

2 ;BRANCH IF NO

..YES. IS IT THE FIRST CHAR?
;BRANCH IF YES

::SAVE NEW SWR

ssCLEAR UP STACK

..ECHO <CR> AND <LF>
i RE-ENABLE TTY KBD INTERRUPTS?
: ;BRANCH IF NOT

..RE-ENABLE TTY KBD INTERRUPTS
RETURN

..ECHO CHAR
sCHAR < 0?
..BRANCH IF YES
JCHAR > 7?

BRANCH IF YES

..STRIP-OFF ASCII
231S THIS THE FIRST CHAR
..BRANCH IF YES
:: . SHIFT PRESENT

* CHAR OVER TO MAKE

ROOM FOR NEW ONE.
KEEP COUNT OF CHAR

..SET IN NEW CHAR
22GET THE NEXT ONE

J2TYPE ?2<CR><LF>

2sSIMULATE CONTROL=-VU

RN
TR AR AR RN R AR RN AR A AR AR
RAAARS

.Egif ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

i
-

4487

022522

000004
000004

000002

SRDCHR: MOV

MOV
CLR
CLR
MOV

022546
64%:
1$:

021644

0;1646

021650
021650
021652

RDCHR
RETURN HERE

RTI

TST
BEQ
DEC

(SP) ,=(SP)

4(sp$ ,2(SP)
4(SP)
-(SP)
#64$,-(SP)
STKCNT
18
STKCNT

s:GET
A CHARACTER FROM THE QUEUE
s sCHARACTER IS ON THE STACK
s:WITH PARITY BIT STRIPPED OFF
;sPUSH DOWN THE PC AND

; THE PS

..GET READY FOR A CHARACTER
<PUT NEW PS ON STACK

::PUT NEW PC ON STACK
::POP NEW PC AND PS
s:WAIT ON A CHARACTER

s ;DECREMENT THE COUNTER
..GET ONE _CHARACTER
sUPDATE THE POINTER

000004

MOVB

@STKQOUT.4(SP)

021657

SSE

3;xoourcsrxoeno::DID IT GO OFF OF THE END?

021650

MOV

INC

23-

RTI

$TKQOUT

CH IF NO

#STKQSRT, srxoour*RESET THE POINTER
: sRETURN

tttt't'tl.ttt.t.tttt.'t'tt't'.tttt.tttt.t't.'t.t.t".t.l..ttttl

CZKMEAD DMS11-DA DYNAMIC

CZKMEA.P11

20-0CT-81 17:05

MACYT 30A(1052)

21-0CT-81

Y INPUT ROUTINE

08:50

7
PAGE 89

SEQ 0089

2?8?

-chs ROUTINE WILL INPUT A STRING FROM THE TTY

2?83

450

4510

022612

010346

4512

022616

012703

4511
4513

022614

022622

005046

4
4531
4532
4533
4534
4535
4536
4537

022706
022710
022712
022720
022724
022726
022732
022734

005716
001406
112737
104401
00501%
122713
001003
104401

4539
4540
45641
4542
4543

022742
022746
022750
022752
022756

4529 022704

4538

4544

4545

022740

022762
022764

4546 022770

000746

000726

023044
68:

023046
023044
023044

5% :

000134
023044

023044

000025

78:

023077

001176

48:

111337
104401
122723
001305

023044
023044
000015

38:

001200

00071;

023014
023020
023022
023024

104401
005726
012603
011646

4558
4559

023042
023044

000002
000

023026
023034

000134
023044
177777

104401

000717

4552
455
4556
4555

4556
4557

BR IF YES
..GO READ ONE CHARACTER FROM THE TTY
+:GET CHARACTER

000022

022772
022776
023002
02

023010

122713
001011
105013
104401
104401

4547
4548
4549
4550

4551

+:GET ADDRESS

108:

001022
005716
001007
112737
104401
012716
005303
020327
103434
111337
104401

105063

016666
012766

8s:

001177
023046

177777

000004
023046

::TERMINATOR WILL BE A BYTE OF ALL 0'S

#STTYIN.R3

000177

022640
022642
022644
022
022656
022
022664
022
022672
022674
022700

+:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

1$:

122713

4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528

22INPUT A STRING FROM THE TTY

;s SAVE R3

28:

101456
104410
112613

RETURN HERE
as -(SP)

023072

022626
022630
022632

022634

023046

RDLIN

SRDLIN: MOV

022703

4514
4515
4516

4517

CLR

MOV

CMP

#STTYIN+20. ,R3

CMPB

#177.(R3)

BLOS
RDCHR
MOVB

..eurrea FULL?

;1S 1T A RUBOUT

58
(SP)
6$
#°\,9%
,9%
#-1,(SP)
R3
R3,#STTYIN
43
(R3).9$
98

ST
BEQ
MOVE
TYPE
CLR
(MPB
BNE
TYPE

(SP)
78
#°\,9%
.98
(SP)
#25,(R3)
8s
$CNTLU

;:CLEAR THE RUBOUT KEY
;i IS CHARACTER A CTRL U?
:BR IF NO
*:TYPE A CONTROL ‘VU'*

C(MPB
BNE
CLRB
TYPE
TYPE

#22,(R3)
3s
(R3)
,SCRLF
STTYIN

:1S CHARACTER A '“R"?
*BRANCH IF NO
..CLEAR JTHE FHARACTER
‘CR
..rvps rus INPUT sraxuc

TYPE

SQUES

B8R

*BR IF NO
..IS THIS THE FIRST RUBOUT?
::BR IF NO
S:TYPE A BACK SLASH

:SET THE RUBOUT KEY
*BACKUP BY ONE
..STACK EMPTY?
*:BR IF YES
33 erup TO TYPEOUT THE DELETED CHAR.
:GO TYPE

$:G0 READ ANOTHER CHAR.
,.Ruaour KEY SET?
::BR IF NO
*:TYPE A BACK SLASH

::60 START OVER

! pxcxuv L ANOTHER CHACTER
STYPE

+:CLEAR rnE BUFFER AND LOOP

MOVB
TYPE
(MPB
BNE

(R3).9%

#15,(R3)+
2

:;CHECK FOR RETURN
:LOOP IF NOT RETURN

TYPE
TST
MOV
MOV

,SLF
(SP) +
(SP)+,R3
(SP) -(SP)

:iTYPE A LINE FEED
CI.EAN
awgur KEY FROM THE STACK
SIREST
..ADJUSY THE STACK AND PUT ADDRESS OF THE

MOV
MOV
9s:

(SP)+,(R3)

*CLEAR THE RUBOUT KEY

BNE
TST
BNE
MOVB
TYPE
MOV
DEC
CMP
BLO
MOVB
TYPE

CLRB

000002
000004

-($P)

RTI
.BYTE

=1(R3)

4(SPS ,2(SP)
#STTYIN,4(SP)
0

*:ECHO THE CHARACTER

*ZCLEAR RETURN (THE 15)

FIRST ASCII CHARACTER ON IT

: ;RETURN
+:STORAGE FOR ASCII CHAR. TO TYPE

——————————————

CZKMEAO DM311=DA DYNAMIC
CIKMEA.P11
20-0CT-81 17:05
4560
4561
4562
4563
4564
4565
4566
4567
4568
4569

023045
oz§046
02 07;
02307
023106
023111
023116
023122
023130

2§;g

000
oooggz
041
136
043536
015
036440
020040
020075
023134

005015
006525
005015
051412
000040
042516
000

MACY11 30A(1052)
21-0CT-81
TTY INPUT ROUTINE

08:50

n7
PAGE 90

000
000012
oog
051127

$STTYIN:
SCNTLC:
SCNTLU:
$CNTLG:
$MSWR:

BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

0
:: TERMINATOR
20.
::RESERVE 20, BYTES FOR TTY INPUT
/C/<15><12>
::CONTROL ''C’
/*U/<15><1>
::CONTROL 'V’
/7°6/<15><12>
::CONTROL '
<15><12>/SWR = /

020127

SMNEW:

.ASCIZ

.EVEN

.SBTTL

NEW = /

READ A DECIMAL NUMBER FROM THE TTY

‘572

;:ttttttttttttttttttttt'ttttttttttt.tittttttttttttttttttttttl"tt

4573
4574
4575
4576
4577
4578
4579
4580

;*THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND
:*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS
:*ARE READ A ‘*?"* FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED.
:«THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE
:*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS
+*POSITIVE 32767 TO NEGATIVE 32768.
s*CALL:
e
RDDEC
;;READ A DECIMAL NUMBER

223}

4583

4584

023134

011646

4586
4587
4588
4589
4590
4591
4592
4593
4596
4595
4596
4597
4598
4599

023144
023146
023150
023152
023154
023156
023162
023164
023166
023172
023174
023176
023200
023202

010046
010146
010246
104411
012600
010037
005046
005002
122710
001001
112002
112001
001424
125701

4585

4601

023136

023206

023210

2
4603
4606
4605
4606

023214
023216
023222
0232264
023226

4608
4609

023232
023234

4607

4610
4611
4612
4613

4614
4615

016666

003032
122701

005427
032716
001024
006316
011646

0232

006316

0232
023240
023244

105416
162701
060116

023246

023250
023252

’

000004

000002

S$RDDEC: MOV

MOV

(SP) ,=(SP)

4(SP),2(SP)

000060

MOV
RO, =(SP)
MOV
R1,=(SP)
MOV
R2,-(SP)
RDL IN
MOV
(SP)+,R0
MOV
RO, 6$
CLR
-($P)
CLR
R2
CMPB #'-, (RO)
BNE
2
MOVB
(R0)+,R2
MOVB
(RO)+.R1
BEQ
3s
CMPB
#'0,R1

000071

(MPB

18:
023302
000055
28:

BGT

170000

+:THE INPUT NUMBER

::PUSH RO ON STACK
S:PUSH R1 ON STACK
::PUSH R2 ON STACK
*:READ AN ASCIZ LINE
*:ADDRESS OF 1ST CHAR.
::SAVE INCASE OF BAD INPUT
:3CLEAR DATA WORD
+:SIGN SET POSITIVE
::SEE IF A MINUS SIGN WAS TYPED
::BR IF NO MINUS SIGN
::SAVE FOR LATER USE
::PICKUP THIS CHARACTER
::GET OUT IF ZERO
::MAKE SURE THIS CHARACTER

BLT
BIT
BNE
ASL
MOV

58
#AC7777.(SP)
13
(SP)
(SP) ,=(SP)

::DON'T LET NUMBER GET TO BIG
::BR IF NUMBER WOULD OVERFLOW
1o
*:SAVE FOR LATER

ASL
ADD

(SP)
(SP)+, (SP)

::v8,
2110,

BVS

38:

2:PROVIDE SPACE FOR

::IS A DIGIT BETWEEN O € 9

BVS
SUB
ADD

000060

*NUMBER IS ON TOP OF THE STACK

ASL

006316
062616

102415
00075
005702

RETURN HERE

BR
ST

#'9,R1

(SP)

#°0,R1
R1,(SP)
58
28
R2

::OVERFLOW ISN'T ALLOWED

S:STRIP AWAY THE ASCII JUNK
SADD IN THIS DIGIT
::OVERFLOW ISN'T ALLOWED
::LOOP
::CHECK IF NUMBER IS NEG

<1 R

SEQ 0090

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20~0CT-81 17:05
4616

023254

001401

4617
4618
4619
4620
4621
22%

ozgzse
02 geo
023264
023266
023270
023272

005416
012666 000012
012602
012601
012600
000002

4624
4625
4626
4627

023274
023276
023300
023302

005726
105010
104401
000000

4632

1T
CLRB
TYPE
.WORD

(SP)+
(RO)

:;CLEAN PARTIAL NUMBER FROM STACK
::SET_A_TERMINATOR
::TYPE THE INPUT UP TO BAD CHAR.
::POINTER GOES HERE

TYPE
$QUES
BR
is
.SBTTL TYPE ROUTINE
AR

AR AR AR AR

AR AN

::YES==NEGATE THE NUMBER
::SAVE THE RESULT
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO
: RETURN

$3UPUUCR RTLF
::TRY AGAIN
RN TR

AR AN AR

AR AN AN A AN

RNR

*CALL:

:+1) USING A TRAP INSTRUCTION
it
TYPE
MESADR
.k

4643

4644

4647

023312

4651
4652
4653

023324
023326
023332

010046
017600
112046

4655

023336

005726

4648 023316
4649 023320
4650 023322
023334

105737

100002
000000
000407

001157

000002

001005

4656
4657
4658
4659
4660
4661

023340
023342
023346
023350
023354
023356

012600
062716
000002
122716
001430
122716

4663
4664
4665
4666

023364
023366
023370
023372

005726
104401
001177
105037

023600

4668

023400

004737

023462

4662 023362

023376

4669 023404
4671

::BR _IF NO

(SP)
(SP)+,12(SP)
(SP)+.R2
(SP)+.R1
(SP)+.R0

. %

4640
48l

4670

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
:*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
:*NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
:*NOTE3:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

4639

4667

6$:

4633
4634
4635
4636
w637

4654

4$:

SEQ 0091

BEQ

NEG
MOV
MOV
MOV
MOV
RTI

58:

4628 023304 104401 001176
4629 023310 000720
4630

N 7
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 91
READ A DECIMAL NUMBER FROM THE TTY

023410

023412

001006

000755

013746

18:
2s:

000002

608:
38:

000011

4s:

000200

1237;8 001156

0013

STYPE:

001154

TYPE

MESADR
TSTB

STPFLG

MOV
MOV
MOVB

RO,-(SP)
@2(SP),RO
(RO)+,=(SP)

TST

(SP)+

BPL
HALT
BR
BNE

68:

::1S THERE A TERMINAL?

:iBR IF YES
::HALT HERE IF NO TERMINAL
: ;LEAVE

$:BRIF IT ISN'T THE TERMINATOR

: :SAVE RO
::GET ADDRESS OF ASCIZ STRING
::PUSH_CHARACTER TO BE TYPED ONTO STACK
::IF TERMINATOR POP IT OFF THE STACK

MOV
ADD
RTI
CMPB
BEQ
CMPB

(SP)+,R0
#2,(SP)

TST
TYPE
$CRLF
CLRE

(SP)+

::POP <CRX<LF> EQUIV
ssTYPE A CR AND LF

SCHARCNT

:;CLEAR CHARACTER COUNT

JSR

PC,STYPEC

::6G0 TYPE THIS CHARACTER

BNE

58:

:;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

CMPB

BNE

MOV

WHT,(SP)
8S
#CRLF,(SP)

SFILLC,(SP)+
23

SNULL,=-(SP)

: RESTORE RO
::ADJUST RETURN PC
s sRETURN
::BRANCH IF <HT>

:;BRANCH IF NOT <CRLF>

::GET NEXT CHARACTER

::IS IT TIME FOR FILLER CHARS.?
::IF NO GO GET NEXT CHAR.

::GET # OF FILLER CHARS. NEEDED

22; 023416 105
000001
&l
g
o
4675 023426 0047

467
4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687

4,688

4689
4690
4691
4692
4693
4696
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727

0%%2
0

105337
000770

08:50 .PAgi 92

MACY11 30A(1052) 21-0CT=81
TYPE ROUTINE
78:

053462
023600

DECB
BLT
JSR
DECB
BR

1(SP)
1]
PC,STYPEC
SCHARCNT
78

lalal

17:05

[
VT

CZKMEAO DMS11-DA DYNAM
CZKMEA.P1
20-0CT-8

AND T

CHAR.

NEED TO BE TYPED?
THE NULL OFF OF STACK
L

..DO NOT COUNT AS A COUNT
:

:LOOP

;HORIZONTAL TAB PROCESSOR
023436
023442
02;266
023454
023456
023460
023462

112719
00473
132737
001372
005726
000724

000040

023466
023470
023474
023500
023504
023506
0235
023512
023514
023520
023526
023530
023532
023532
023534
0235
023540
023542
023550
023556
0235
023564
0235
023574
023576
023600
023602

105777

100022
017746
06%716
122716
001012

155456

0%3462

105777
100375
117716
042716
122716

0071366

02346;

000007

8s:
023600

122766
00140
10522
0000
000207

MOVB

$TYPEC:

Pc.irvpec

BNE

98’

(SP)+
28

s sREPLACE TAB WITH SPACE
ssTYPE A SPACE
s ;BRANCH IF NOT AT
STOP
331
:sPOP SPACE OFF STACK
J3GET NEXT CHARACTER

TST8

asrxs

..CHAR IN KYBD BUFFER?

MOV

as$TKB,=(SP)

:GET CHAR

CMPB
BNE

#SXOFF,(SP)
1028

BITB

B8PL

155452

177600

BIC

000023

101$:

155432
155426

177600
1028:
108:

155410

000002

000015

CMPB
BNE

#7.SCHARCNT

108

c177660 (SP)
@$TKS
1018
@$TKB, (SP)

#177600, (SP)

#SXON, (SP)
101$

IF NOT

::STRIP EXTRANEOUS BITS
..UAS CHAR XOFF

::BR IF NOT

J:WAIT FOR CHAR
::GET CHAR
s:STRIP IT
ssWAS IT XON?
::BR IF NOT

(SP)+

J3FIX STACK

;g{fl

as;rs

JsWAIT UNTIL PRINTER 1S READY

155402

MOVB

5229

ggn,2(sP)

2(SP),aSTPB

::LOAD CHAR TO BE TYPED INTO DATA REG.
..IS CHARACTER A CARRIAGE RETURN?

000002

CLRB
BR
CMPB

SCHARCNT
$TYPEX
#LF,2(SP)

INCB

(PC)+
0
PC

..YES--CL:AR CHARACTER COUNT
SEXIT
::1S CHARACTER A LINE FEED?
s ;BRANCH_IF YES
s :COUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

000002

023600
000012

TSTB
BPL
MOVB

BIC

000021

(SP)

JSR
ST

005726
105777
100375
116677
122766
1003
105037

18:

BEQ

$CHARCNT: .WORD
$TYPEX: RTS
.SBTTL
AR

STYPEX

: ;BRANCH IF NO

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
RRRARAAARAAAAAAR RN AR R RRANRANAAAAARAARARAAAAARARARRARRAAAAS

tTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR'A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s *REPLACED WITH SPACES.

s*CALL:

:* %

MOV

TYPDS

,
- (SP)
NUM

::PUT _THE BINARY NUMBER ON THE STACK
::G0 TO THE ROUTINE

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-OCT=81 17:05
4728
4729
4730
4731
4 §

02
0
0
023610

010046
010146
010246

473

023614

010546

023622
ozgg 6

016605
100004

4735

4736
4737

4738

4739
4740
4741

4742

0%3613
0

023632
023640
023642

023646

023652
023656
023660
023662
023664
023666
023670
023672
023674
023676
023700
023702
023704
023706

4759

023724

4760

$TYPDS:

033612 010346

4743
4764
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756

4757
4758

023714
023720
023726

012746
005405

112766
oosoog
012703

112723

005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

052702
05270§
11022

005720

020200
000055

000001

000040

18:

3s:

48:

58:
000001

000060
000040

4775

023772

104401

024020

177777

68:
7$:

8s:
177777

177776

98:

012616
s
ozs4§
001750
000144
000012
000004

$DBLK:

:IPUSH RS ON STACK

*PUSH RS ON STACK

::SET BLANK SWITCH AND SIGN

IMAKE THE BINARY NUMBER POS.

#' ,(R$)+

$:SET THE FIRST CHARACTER TO A BLANK

20(SP) .RS
1$

CLR
MOV
)
BLT
INC
BR
ADD
ST
BNE
ISTB
BMI
ASLB
BCC
MOVE

R2
$DTBL(RO)
,R1
R1.RS
48
R2
3s
R1.RS
R2
5$
(SP)
78
(SP)
6%
1<sp> <1(R3)

MOVB

::PUSH RO ON STACK
:3PUSH R1 ON STACK
*PUSH R2 ON STACK

#20200,-(SP)
#'-,1(SP)
RO
#SDBLK ,R3

..cer THE INPUT NUMBER
BR IF INPUT IS POS.

$:MAKE THE ASCII NUMBER NEG.
*32ERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

*:CLEAR THE BCD NUMBER
::GET THE CONSTANT
$:FORM THIS BCD DIGIT
$:BR IF DONE
:*INCREASE THE BCD DIGIT BY 1
;:ADD BACK THE CONSTANT
:3CHECK IF BCD DIGIT=0
“FALL THROUGH IF 0
$:STILL DOING LEADING 0°'S?
S:BR IF YES
:IMSD?
3
IF NO
::YES==SET THE SIGN

BIS
BIS

#'0,RS
” .RZ

*:MAKE THE BCD DIGIT ASCII
..MKE IT A SPACE IF NOT ALREADY A DIGIT

(RO)+

..JUST INCREMENT
ING

MOvB

R2,(R3)+

2PUT THIS CHARACTER IN THE OUTPUT BUFFER

CMP
BLT
BGT
MOV
BR
TSTB
BPL
MOVB
CLRB
MOV

RO,#10
28
83
RS.R2
68
(SP)+
98
=1(SP),=2(R3)
(R3)
(SP)+,RS

$:CHECK THE TABLE INDEX
2360 DO THE NEXT DIGIT
1560 TO EXIT
“:GET THE LSD
1360 CHANGE TO ASCII
:iWAS THE LSD THE FIRST NON-ZERO?
::BR IF NO
::YES==SET THE sxen FOR TYPING
$:SET THE TERMINATOR
$:POP STACK INTO RS

TYPE

é(sp>.4(sp)

*:ADJUST THE STACK

MOV
$DTBL:

RS.~(SP)

MOVB
CLR
MOV

MOV
MOV
MOV
MOV

4776 023776 016666 000002 000004
024
024
024010
024012
024014
024016
024020

RS =(SP)

NEG

28:

024010

000010

4777
4778
4779
4780
4781
4782
4783

MOV

MOV
BPL

024020

020027
002746
003002
010502
000764
105726
100003
116663
105013
012605

012603
012602
012601
012600

RO,=(SP)
R1,=(SP)
R2.=(SP)

MOV

000020

023730
023734
023736
023740
023742
023744
023746
023750
023756
ozgr

023762
023764
023766
023770

MOV
MOV
MOV

MOV

4761
4762
4763
4764
4765
4766
4767
4768
4769
4770

4771
4772
4773
4774

MACY11 30A(1052) 21-0CT-81 08:50 PAGE 93
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MOV
RTI
10000.
1000.
10
10.
.BLKW

(SP)+.R3
(SP)+.R2
(SP)+.R1
(sp)o‘RO

(SP)+. (SP)

$:POP STACK INTO R3
$:POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

:NOW TYPE THE NUMBER

::RETURN TO USER

SEQ 0093

CZKMEAO DMS11=DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

0 8
MACY11 38?(1052) 21-0CT-81 08:50 PAGE 94
NARY TO OCTAL (ASCII) AND TYPE

2;3‘5'

.SBTTL

‘786

:;tttttltttt'tttttttt"t"'"Qt.tt.ttttttttttttttt!ttttttttt.tttt

4787

s*THIS ROUTINE IS USED TO CHANGE A 16=-BIT BINARY NUMBER TO A 6-DIGIT

4788
2;33

BINARY TO OCTAL (ASCII) AND TYPE

s*0CTAL (ASCII) NUMBER AND TYPE 1IT.
:'%HEOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
v

4791
4792
4793
4794
4795
2%

I
B
H
o
B
Hd

4798
4799
4800
4801

s *$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;«$TYPOS OR STYPOC
s«CALL:
o
MOV
NUM,~(SP)
:2NUMBER TO BE TYPED

4804
4805
4806

N
M

TYPON

:sNUMBER TO BE TYPED
;:CALL FOR TYPEOUT
ssN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
J:M=1 0R 0
::1=TYPE LEADING ZEROS
2 :0=SUPPRESS LEADING ZEROS

ssCALL FOR TYPEOUT

;*$TYPOC===ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:
i
MOV
NUM,-(SP)
2 2NUMBER TO BE TYPED

4809

024030

017646

000000

000001
024255
000

024253

4814

0240564

112737

000001

024253

4815
4816
4817
4818
4819
4
4821
%
4823
4826
4825
4826
4827
4828
4829
4830
4831
4832
4833
4836
4835
4836
4837
4838
4839

NUM,-(SP)

238%

4810
4811
4812
4813

MOV
TYPOS
.BYTE
BYTE

024034
024042
024046
024052

024062
024070
024076
024100
024102
024104
024110
024112
024116
0246122
0241%6
024132
024134
024136
024140
024142
024144
024146
024150
024152
024156
024160
024164
024196
024170

116637
112637
062716
000406

112737
112737
010346
010446
010546
113704
005404
062704
119637
113704
016605
005003
006105
000404
006105
006105
006105
010503
00610;
105337
10001g
042703
001002
005704
001403

000006
000005

024255

024254
024253

000012

024254
177770

024255
024252

TYPOC

:sCALL FOR TYPEOUT

$TYPOS: MOV

8(SP) ,=(SP)

;:PICKUP THE MODE

STYPOC: MOVB

#,S0FILL

3sS5ET THE ZERO FILL SWITCH

MOVB
MOVB
ADD
BR

MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR
1$:
ROL
BR
2$:
ROL
ROL
ROL
MOV
3s:
ROL
DECB
BPL
BIC
BNE
TST
BEQ

1(SP) ,SOFILL
(SP)+ _,SOMODE+1
#2,(SP)
STYPON
#6,$OMODE +1
#5,80CNT
R3,-(SP)
R4,-(SP)
RS,=-(SP)
SOMODE+1,R4
Ré&
#6 R4
R4 ,SOMODE
SOFILL R4
12(SP) ,RS
R3
RS
3s
RS
RS
RS
RS5.R3
R3
$OMODE
7$
#177770,R3
31
R4
5%

22LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
:sADJUST RETURN ADDRESS
ssSET FOR SIX(6) DIGITS

22SET THE ITERATION COUNT

:sSAVE R3
;:SAVE Ré
::SAVE RS
;2GET THE NUMBER OF DIGITS TO TYPE
2:SUBTRACT IT FOR MAX. ALLOWED
23SAVE IT FOR USE
2sGET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD
;sROTATE MSB INTO '°C**
2260 DO MSB
::FORM THIS DIGIT

;:GET LSB OF THIS DIGIT
J:TYPE THIS DIGIT?
2:BR IF NO
2:GET RID OF JUNK
ssTEST FOR 0

2 sSUPPRESS THIS 0?
::BR IF YES

SEQ 0094

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:
4840
4861
w.i

024172
024174
024

005204
85 03
52703

000060
00004

4844
4845

024210
024214

1 4g1
1os§‘7

024250
024252

484

4866
4847
4848

4849
4850
4851
assg

oga 06

026220
024222
024226

024226
024230
024232
024234

110337

003347
002402
005204

E 8
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 95
BINARY TO OCTAL (ASCII) AND TYPE
48:

024250

000744
012605
012604
012603

58:

INC
BIS
BIS

4
#'0.R
‘R

;:DON'T SUPPRESS ANYMORE 0'S
*3MAKE THIS DIGIT ASCII
+:MAKE ASCII IF NOT ALREADY

78:

TYPE
DECB

13
$OCNT

;60 TYPE THIS DIGIT
::COUNT By 1

28
(SP)+,RS
(SP)+.R&
(SP)+.R3

;360 DO THE LAST DIGIT
*RESTORERS
..RESTORE Ré&
*RESTORE R3

68:

MOVB
BGT
BLT
INC

BR
MOV
MOV
MOV

024236 016666 000002 000004
MOV
4854 024244 012616
MOV
024246
2
RTI
4856 024250
000
8s:
.BYTE
024251
000
BYTE
4858 02425
000
$SOCNT: .BYTE
4859 02425
000
$SOFILL: .BYTE

4860
2321

024254

000000

2s
6$
R&

2(SP).4 (SP)
(SP)+. (SP)
0
0
0
0

$OMODE: .WORD
0
.SBTTL
TRAP DECODER

‘863

::SAVE FOR TYPING

::BR IF MORE TO DO
::BR IF DONE
:SINSURE LAST DIGIT xsn T A BLANK

$3SET THE STACK FOR RETURNING
; sRETURN

::STORAGE FOR ASCII DIGIT
*STERMINATOR FOR TYPE ROUTINE
*:0CTAL DIGIT COUNTER
*32ERO FILL SWITCH

: *NUMBER OF DIGITS TO TYPE

tttttittttttt.ttt.tt"tt'ttttttttt.tt..tttittttttttttttt'tt'ttl

S%THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'* INSTRUCTION

4865
4866

*#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
*#OF (ME DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

296“;

:%GO TO THAT ROUTINE.

4869

024256

010046

4871
4872

024264
024266

005740
111000

4874

024274

003002

STRAP:

4870 024260 016600 000002

MOV

RO,=(SP)

ST
MOVB

-(R0)
(RO),.RO

MOV

4873 024270 022700 000030

CMP

BGT

4875 024276 000000
4876 024
000776

HALT
BR

4878 024304

MOV

4877

024302

006300

23;3

024310

000200

ASL

016000 024324

RTS

4881

l;.gg%

:SAVE RO

2(5P) RO

..GET TRAP ADDRESS

#STERM,RO

..cuscx FOR OUT OF BOUNDS

.+6

*BACKUP BY 2
*:GET RIGHT BYTE OF TRAP
:BR IF OK

..our OF BOUNDS
* s HANGUP

=2
RO
$:POSITION FOR INDEXING
STRPAD(RO)
RO :-INDEX TO TABLE
RO

$36G0 TO ROUTINE

::THIS IS USE TO HANDLE THE '‘GETPRI'* MACRO

4884

024312

011646

024322

000002

4885

R3,8$

024314

016666

000004

000002

$STRAP2: MOV

MOV
RTI

(SP) ,~(SP)

4(SP),2(SP)

::MOVE THE PC DOWN

*:MOVE THE PSW DOWN
::RESTORE THE PSW

.SBTTL

4890

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

2332

2335

4895 024324 024312

“+BY THE

TRAP TABLE
"‘TRAP''

ROUT INE

§TRPAD: .WORD

INSTRUCTION.

STRAP2

SEQ 0095

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)

TRAP TABL E

21-0CT-81

08:50

8
PAGE 96

SEQ 0096

489
4897
4898
4899
233?

0 4350
024330
024332
os«s
024336

023312
024054
0240630
024070
023604

$TYPE
$TYPOC
$STYPOS
STYPON
STYPDS

;:CALL=TYPE
;;CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

TRAP+1(104401)
rnAPo§(10440 )
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

zggg

024340

022250

$GTSWR

;:;CALL=GTSWR

TRAP+6(104406)

GET SOFT=SWR SETTING

4904
4905

024342
024346

022160
02252

SCKSWR
SRDCHR

;:CALL=CKSWR
;:CALL=RDCHR

TRAP+7(104407)
TEST FOR CHANGE IN SOFT-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE

024350
024352

021504
023134
000030

4906
4907
4908

4909
4910
4911

024346

02261

SRDLIN
SRDOCT
SRDDEC

::CALL=RDLIN
::CALL=RDOCT
::CALL=RDDEC

TRAP+11(104411) TTY TYPEIN STRING ROUTINE

TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY
TRAP+13(104413) READ A DECIMAL NUMBER FROM TTY

$TERM=. ~$TRPAD
;ROUTINE USED TO LOAD OR nooxrv THE KMC11 PARAMETER STATUS BLOCKS.
*TWO ENTRY POINTS ARE USED,
ONE AS THE INITIAL START=UP AND THE

4912

*SECOND AS THE MODIFY TABLE ROUTINE POINT.

913
4914
4915
4916

*WHEN INITIALLY ENTERED FROM THE MONITOR ROUTINE THE FIRST
:PARAMETER BLOCKS STATUS IS INVOLKED FROM THE CONSOLE TO
*WHICH THE OPERATOR MUST INPUT THE FIRST DEVICE ADDRESS INTERRUPT
:VECTOR, PRIORITY AND WHETHER THE DEVICE IS TO BE ENABLED OR

917

DISABLED.

AFTER THE FIRST KMC11 IS SPECIFIED THE ROUTINE

4918

snrsns THE CONFIGURE MODE AS SPECIFIED BY THE ASTERISK (%)

4921
4922

:X NB = INCLUDE INTERRUPT VEC. + PRI.
:
My
:#=1=>16., OPENS THE PARAMETER BLOCK AND INVOLKS

4927
4928
4929

:
:
:

*A (CR) ;FILLS REMAINDER OF TABLE WITH SUCCESIVE DEV ADR + KINT VEC
:AND IDENTICAL STATUS AS/PER LAST (THE LAST STATUS BLOCK
:ENTERED) *NOTE IF ISSUED AS FIRST COMMAND IN ‘MODIFY

23§§

*E (CR) ;EXITS TO THE CALLING ROUTINE I.E. (MONITOR)

23}3

:THE OPERATOR THEN HAS THE FOLLOWING CHOICES OF RESPONSE:

4923
4924

23;9

4934

4935

4936
4937
4938
4939
4940
4941
4962
4943
4944
4945
4946
4947

4948

4949

4950

4951

024354

024356
024360
024362
024
024370
024374
024376
024402
024406
024412
024412

024416

024424
024424

KMCNT:

000000
012701
005031
020127
001374
012701

026244

010137
000137

026244
024360
024452

104401

024420

0004

005737

026504

CONFIG:
CURTAB:
SETTAB:
1s:

NOTR:

:MODE THE TABLE IS FILLED AS/THE FIRST KMC11.

0
0
MOV
CLR
CMP
BNE
MOV
MOV
JMP
:MODIFY
TYPE

:# OF KMC11'S ENABLED
#KMCTAB,R1
(R1)+
R1,#KMCTBE
18
#KMCTAB,R1

,64$

MODTAB

MODTAB: TST

CONFIG

MODTAB:

.ASCIZ

:CURRENT BLOCK OPEN
*POINT TO PARAMETER TABLE-BLOCK 1
:CLEAN THE MESS
*DONE?
*BR=N

R1,CURTAB
PT
TABLE ROUTINE ENTRY POINT

::648:

024356

:THE CHANGE OF STATUS (AFTER INPUTTING STATUS
:THIS THEN IS LAST BLOCK OPEN)

/22/

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ
:FIRST TIME?

024430
024432
0244
0244
024442

000785 024362
026444

1$:

:658:

PT:

002320
002320
000115

000123

024354
026244
000002
024354
000012
026504

113s:

1$:

2$:

TYPE
BR

65%
4$

;s TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

ASCIZ

<155<12>/+/

PT+2

sGET FIRST SETUP

MOV

(SP) , CHRADR

sECHO

CMP

#115,(SP)+

CMP

#101,-(SP)

;1S IT AM?
:BR= YES
;IS IT AN A?

RDCHR

BNE
JMP
CMP8
BEQ

000020

1118
12%
#105,(SP)+
1138

;1S IT AN E?
B=Y GO!

(SP)+

:NO TRY AGAIN

NOTR

TST

:AN §?
;B=YES

(SP)+

T COMMAND

:FIND #

g;cmcn S Acnvémo STORE IN ‘XMCATV''

MOV

#KMCTAB,R1

CLR

TST

BPL

2(R1)

INC

KMCNT

CMP

R1,#KMC
TBE

ADD

#12,R1

:BR=
sYES

A 'M'' HAS BEEN TYPED READ THE DECIMAL # FOLLOWING
RDDEC
MoV
MoV
MoV
BLE
CMPB

ROL
MoV
ROL
ROL
ADD
ADD
MoV

::658:

25%

#'S,-(SP)
1128

BGT
CLC

026232

.CHRADR

CMP
BEQ

RTS

002456

SEQ@ 0097

:BR=NO

BNE

25%:

8
PAGE 97

TST

1128:

SETTAB

BEQ

1118:

08:50

BNE
JMP

TYPE

000101

026174
000105

21-0CT-81

TYPE
BR

LASCIZ

(SP)+,R0
RO, CUNIT
RO,R1

JIS ¥ #?

RO.I16.
NOTR

;1S #<16.?
+BR=NO

RO
RO,R2

sFORM OFFSET INTO ‘XMCTAB''
: RO = 2 X LINE NUMBER

NOTR

2,R0
Re,
#KMCTAB-12,R0
RO,CURTAB

,658

648

PRINT LINE UNIT #

R =8 X L% NUMBER
OFFSET = 12(0CTAL) X LINE NUMBER

ssTYPE ASCIZ STRING

- :GE T OVER THE ASCI
(ENABLE)
(CRC32-MODE)

<15><12>! (DEV.ADR.)

(EX/IN-VEC) (LINES~PRI)

TRAP TABL E

éls:

024450

TS
58~ ST
—— -m&gw 8 &»
RE838S38SNERISREE

495%

MACY11 30A(1052)

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

2833

024752

648:

5010
5011
5012

024752
024752

38:

5013

5014

5015

024756

024764

104401

000402

5016

024764

012703

5018
5019
5020
5021
5022
5023

024772
024774
024775
024776
025002

10440
006
001
104401
000404

5025
5026
5027
5028
5029
gggg

025014
025016
025020
025022
025026
025030

5017 024770

5024

025014

gggg

025034

034

025034

5035

5036

5037

5038

025040

025060

5039 025064
5040 025070
5041

5042

5043
5044
5045

5046
5047
5048

025120

025120
025124
025126

025132
025156

01204

005303
001401
000763
013746
104405
013701

104401

000407
004737

104401
000413

004737
005201
104401

000411

025156

004737

5051

025164

100053

5052

5053

5054
5055

5056

025162

105741

025166

005201

025174

000414

025170

025226

104401

5057

025226

004737

5059
306¢

025234
025236

005201
105021

5058

sosg
5063

025232

025240
025240

::678:

000005

668:

48:

025004

::698:

688:
002456

458:

024360
58:

5049

5050

024760

000402

104401

025042

026070

70s:

025072

--738:

026104

728:

025134

026104

.:758:
XY

768:

1168:

025246

1178:

678

663

MOV

#5.R3

TYPOS
BYTE
.BYTE
TYPE
BR
.ASCIZ

6
1
,698
688
/

JASCIZ

MOV

DEC
BEQ
BR
MOV
TYPDS
MOV

8
PAGE 98

SEQ 0098

;:TYPE ASCIZ STRING

<15><12>/ /

*:GET OVER THE ASCIZ

(ROY+,=(SP)

;NO SUPPRESS
*:TYPE ASCIZ STRING
*:GET OVER THE ASCIZ

R3
45$
4$
CUNIT,=(SP)

CURTAB,R1

;ROUTINE TO MODIFY PARAMETER BLOCK
718

::TYPE ASCIZ STRING

JSR

PC,8$

.ASCIZ

/(1)ENABLE(0)DISABLE /

.ASCIZ

TYPE
BR

::GET OVER THE ASCIZ

<15><12>/DEV.ADR.= /

738
728

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

JSR
INC
TYPE

PC.108
R1
75$

:BYPASS UNUSED BYTE
::TYPE ASCIZ STRING

JSR

PC.108

BPL

1168

BR
.ASCIZ

743
*:GET OVER THE ASCIZ
<15><12>/(1)BOP (D)CCP /

=(R1)

;CHECK FOR CCP MODE

INC

*RESTORE TABLE POINTER

763

TYPE

-:778:

026104

TYPE

1ST8B

025176

:ROUTINE TO DISPLAY CONTENTS OF CURRENT BLOCK

TYPE

--718:

08:50

778

*IF YES,

SKIP NEXT ENTRY

+:TYPE ASCIZ STRING

- *GET OVER THE ASCIZ

.ASCIZ

<15><12>/(1)CRC=-32 (0)NO CRC /

JSR

PC,108

INC
CLRB

R1
(R1)+

1178

:CONT. TO NEXT ENTRY

TYPE

.79

::TYPE ASCIZ STRING

*RESTORE TABLE POINTER
*IF CCP, SKIP CRC ENTRY:; BUT UPDATE POINTER

MACY11 30A(1052) 21-0CT-81
TRAP TABLE

[ala]

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

bgbflbfl

V=N =\

338282

HN
-—OnN

—=OWONN

NON
= O
W=t
2 2 NOO WY

£332833%

—_)
=

3 VN&N§&

= NOON NN
~SON = = OV NN

§2a*-

=]
N
b
d
e
o
b e
d
—

—_———

=
)= O
e
—

00
025502
04

663:

026104

103s:

177775

08:50

788

<15><12>/DEV.VECTOR= 7/

JSR

PC.78

TYPE

81$
0s

BR
.ASCIZ

/C1EXT.CO)INT. /

JSR
TSTB
BM

:IF INTTERNAL OVERRIDE CRC32
-B=EXTERNAL

;80P MODE??

BR
.ASCIZ

TSTB
TYPE
BR

(R1)+

;OVERRIDE CRC32

::TYPE ASCIZ STRING
; ‘GET OVER THE ASCIZ

(WARNING) NO CRC=32 TESTING/

JRESTORE R1

85%
s:TYPE ASCIZ STRING
43
::GET OVER THE ASCIZ
<15><12>/INT.PRI (4=7)=/

RDOCT
TSTB

000001

;HIGH BYTE=0?

MOV

:B=NO CHANGE
sSAVE LOW BYTE
:LEGAL n?

177760

000010

000003

:B=NOT LEGAL
sSTORE THE PRIORITY

025514

s:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
/LINES(0-7) (1.E. M.M.8) OR (A)ALL(N)NONE /
024356

PC,6$

#-i,CONF1G

MODAB
(SP)+

.SCRLF

:POP STACK

$QUES

foss

(SP)+,RO
177777

ssTYPE ASCIZ STRING
ssGET OVER THE ASCIZ

sCRC=32 ENABLED?

025424

000101

SEQ 0099

: ;GET OVER THE ASCIZ

:B=NO

177776
025356

001177
001176

8
PAGE 99

BR
.ASCIZ

177776

025620
177777
024424

#'A° (RO)
110§

sGET TTY BUFFER
;ANY CHANGE IN STATUS?
sSET TO ALL LINES ENABLED
sTEST FOR ALL LINES
sB=ENABLE ALL LINES

oTM

21-0CT-81

.ASCIZ

S8 NN
R328
2
=N =N

025446

5100

025422

838
O=—2
—ANN—I\hNg

vV
T
I
BT
AV WY

5086
5087
5088
5089
5090

—_—

025354

025414

=S OOV
NS
N b b SN d N b ) =

004737

—
ek b

5082

1188:

:818:

025320

78s

025300

b N

5072

::798:

026022

5069
5070

025266
025266
025272
025272
025276

TRAP TABLE

000410

—

025244

O=WO

5064
5065

MACY11 30A(1052)

[
VT
)

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

000054

001160

;

001160

000060

7
7
7

001160

000067

o
N

o
=N

001160

1108:
78:

176000

NO~

b
—

purghurd

077777

026100
026102

0057
00020

104410

(RO)+,$TMPO
1108
#54,$TMPO

:DONE?
:B=YES
*A COMMA?

CMPB
BLT
CMPB
BGT
8ICB

STMPO,#60
1308
STMPO, 467
1308
#360,$TMPO

MOV

#200,R2

BEQ
ASR
BNE
BR
BISB

1098
R2
108$
1308
R2,(R1)

DECB

B8R

$TMP

*B=YES (ONLY A SEPARATOR)

:ONLY 0-7 ARE VALID
:B=NOT VALID
:LESS THAN 7?
:B=NOT VALID
*SAVE ONLY OCTAL DIGIT
;INIT MASKING BIT

$TMP

:FIND BIT POSITION OF ENABLED LINE
:B=FOUND IT

*NEXT LINE BIT

;INVALID CHAR.
*SET BIT FOUND (THIS LINE ENABLED)

107$

*TRY AGAIN

898

::TYPE ASCIZ STRING

JMP
INC
RTS
RDOCT
MOV

6$
R1
PC

BEQ
MOV

1318
(R1) ,R3

*B=NO CHANGE
*SAVE ONLY E/I BIT

R3,R0
RO, (R1)
#1.R1

*RETURN E/I BIT
*STORE NEW DATA

LASCIZ

*:GET OVER THE ASCIZ

/7<15><12>SYNTAX ERROR<15><12>/

:TRY AGAIN
*MOV TO NEXT BYTE
: & RETURN TO MAINLINE

(SP)+,RO

BIC

#176000,R0

BIC

#077777 .R3

RTS

TYPE
TYPE

RDOCT
MOV

(SP)+

,SQUES
$CRLF

BEQ
MOV

(SP)+,R0
9
RO, (R1)

RTS

:918:
:
3

RDOCT
MOV
BEQ

:928:

T1STB

107§

:B=YES NO LINES ENABLED

88s

TST

10$:

110§

1328:

026104

MOVB
BEQ
CMPB

BEQ

131$:

9s:

8
PAGE 100
;SET TO NO LINES
SIT IT N FOR NG LINES

BIS
MOV
ADD

8$:

(R1)
#°'N,{RO)

TYPE

éégos:

(=1~
(=17

S38x<3=Y
3

&~
N

2SS

=o
N=

000001

—

1088:

08:50

CLRB
(MPB

INCB

1098:

062701
000207

21-0CT-81

BEQ

001160

ONY
= =N
WN= BNV
SO0
Www

O=OHr

g2 P g2Sdo-o-nSvSndnda

;

822

026046

001160

025620

O =

—

o
o

25
3

>
S
o

=
~

026012

107$:

025754

-+4
SZR28R

025752

TRAP TABLE

000116

S
S
&~ &~

~ a8]

;g~uTN

(=]

orNO
S

NNNNNY
ONONONONON
v
bt
bt
Sty
v
—
&
vmum-aooawgmgw—goawc»mauw-coawo«mauw-cogw&mgww-sgc-NOuaw-g
s

TNV
A
A TN T T AT T
VTR AT
T
AT T T AN A T
T A
T T TR
A T
N A A
VIV

MACY11 30A(1052)

S11=DA DYNAMIC
20-0CT-81 17:05

(R1)+

(SP)+,R0
92%

MOVB

RO, (R1)

RTS

RDCHR

(Ri)+

;SAVE ONLY VECTOR

:STRIP OLD VECTOR

:POP STACK

;HIGH BYTE NOT =0

:CHANGE STATUS?

:B=NO
*LOAD DATA

:STATUS CHANGE?
:B=NO
:LOAD DATA

SEQ@ 0100

MoV

tMP8
BEQ

002320
002320
000060

MOVB
TYPE

026172

0004
005201
000207

000200

105$:

000200

118:

1148:
1158:

RO,CHRADR
,CHRADR

CMPB

#61,R0

:1?

918

::TYPE ASCIZ STRING

LASCIZ

BI1SB
BR

BI(B
8R
INC

SEQ 0101

:C.R.?

:0?

TYPE

bbs:

(SP)+ RO

#15.R0
114§

uo RO

BEQ

026150

8
PAGE 101

CMPB

BEQ

000061

118’

1058

$0s

:3GET OVER THE ASCIZ

7%/

108

#200, (R1)+
1158

#200, (R1)+
1158
R1
RTS
PC
;AN “'A"" WAS DETECTED SET REMAINING BLOCKS WITH SUCCESSIVE
sPARAMETERS (BASED) AS LAST BLOCK OPEN '‘CURTAB

026174

—

005726
013700

024360
000012
026504

024360
026236
026242
026244

026244

024424

12%:

125%:
138:

(SP)+

MOV

CURTAB, RO

MOV
ADD
CMP
BGE
MOV
MOV
MOV
MOV
MOV
MOV
BR
JMP

RO,R1
R1,#KMCTBE
14§
(RO)+, (R1)+
(RO)+. (R1)+
(RO)+, (R1)+
(RO)+,(R1)+
(RO)+, (R1)+
RO, CURTAB
1258
MODTAB

:GET CURRENT BLOCK

#2,R1

;AT END?
:B=Y
*GET NEW D.A.
:LOAD ENABLE
:LOAD MODE, CRC32 STATUS
:LOAD VECTOR, E/I STATUS
“SAME PRIORITY AND LINE BYTE

;KMC11 PARAMETER BLOCKS
PARAHETER BLOCK FOR _KMC#01

CRO1: 0
KHCEO1 0

KMCVO1: 0

sCONTROL + STATUS REGISTER FOR KMC11 #01
:LO BYTE=ENABLE (200=YES,0=NO);HI BYTE

:LO BYTE=MODE (200=BOP,0=CCP) HI BYTE=CRC 2(200-VES 0=NO)

KMCPO1: 0
:LO BYTE=INT.VECTOR ADDR. HI=E/I(200=EXT 0=IN
KMCSO01:
:LO BYTE=INT.PRI. HI BYTE=LINE BYTE
PARAHtTSR BLOCK FOR_KMC#02
s CONTROL + STATUS REGISTER FOR KMC11 _#02

KMCEQ2 : 8
KMCV02:
KMCPQ : 8

KMCS02:

:LO BYTE=ENABLE SOO-YES.0=NO)

;HI BYTE UNUSED

:LO BYTE=MODE (200=BOP,0=CCP) HI BYTE= CRCSZ(ZOO-YES 0=NO)
LO BYTE=INT.VECTOR ADDR. HI=E/I(200=EXT 0=INT)

Q BYTE=INT.PRI. HI BYTE=LINE BYTE

; PARAME TER BLOCK FOR KMC#03

TRAP TABL

08:50

lale)

MACY11 30A(1052) E21-0(7-81

000015

1%
N e T R G
B
B
R
e e
L
I QRS D S
JEE
Y PR YR
Py
V’!wWMMWWWMMU‘MMWWMMMMMMWWWWM

S8RLRAREC2ESEIRARERZES
I3~

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05
523;
523

5234
5235

5236

5237

026270
026 72

026 76

MACY11 30A(1052)
TRAP TAB

000000
000000

000000
00060

21-0CT-81

08:50

8
PAGE 102

KMCRO3: 0
KMCEO3: 0

sCONTROL + STATUS REGISTER FOR KMC11 #03
:LO BYTE=ENABLE (200=YES,0=NO);HI BYTE

KMCSO03: 0

LO BYTE=INT.PRI. HI BYTE=LINE BYTE

KMCVO03:
0
KMCPO3: 0

SEQ 0102

:LO BYTE=MODE (200=B0P,0=CCP) HI BYTE=CRC Z(ZOO-YES.0=MJ)
.LO BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=INT)

.PARAHETER BLOCK” FOR KMC#04

5238
5239

026302
026304

000000
000000

KMCRO4: 0
KHCEO‘ 0

5242
5243
52644
5245

026312

000000

026314
026316

000000
000000

KMCSO04: 0
0 BYTE=INT.PRI. HI BYTE=LINE BYTE
.PMTER BLOCK FOR KMC#05
KMCRO5: 0
sCONTROL + STATUS REGISTER FOR KMC11 #05
KMCEO5: 0
:LO BYTE=ENABLE (200=YES,0=NO);HI BYTE UNUSE

026324

000000

5240
5241

5246
5247

5248
5249
5250
5251

5252

5253
5254
5255
5256
5257

5258
5259
5260
5261

026306
026310

026320
026322

000000
000000

026326
026330

000000
000000

026334
026336

000000
000000

026332

000000
000000

026350

000000

026352
026354

000000
000000

5266
5267
5268
5269

026362

000000

5264
5265

5270
5271

026356
026360

000000
000000

026374

000000

026370
026372

000000
000000

:LO BYTE=MODE (200=BOP,0=CCP) HI BYTE'CRC32(200-VES 0=NO)
LO BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=INT)

KMCV06: 0

:LO BYTE=MODE (200=80P,0=CCP) HI BYTE=CRC32(200-YES 0=N0)

KMCV07: 0
KMCPO7: 0

:LO BYTE=MODE (200=BOP,0=CCP) HI BYTE= CRCSZ(ZOO-VES 0=N0)
LO BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=INT)

KMCV08: 0
KMCPO8: 0

:LO BYTE=MODE (200=80P,0=CCP) HI BYTE=CRC32(200=YES,0=NO)
LO BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=INT)

KMCV09: 0
KMCP09: 0

:LO BYTE=MODE (200=80P,0=CCP) HI BYTE= CRCSZ(ZOO-YES 0=NO)
LO BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=IN

KMCV10: 0
KMCP10: 0

:LO BYTE=MODE (200=BOP,0=CCP) HI BYTE=CRC 2(200-VES 0=NO)
;L0 BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=INT)

KMCS07: 0
0 BYTE=INT.PRI. HI BYTE=LINE BYTE
.PMTER BLOCK FOR KMC#08
KMCRO8: 0
sCONTROL + STATUS REGISTER FOR KMC11 #08
KMCEO8: 0
:LO BYTE=ENABLE (200=YES,0=NO) ;HI BYTE UNUSED

000000
000000

026364
026366

KMCV05: 0
KMCPO5: 0

KMCP06: 0
LO BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=INT)
KMCS06: 0
0 BYTE=INT.PRI. HI BYTE=LINE BYTE
s PARAMETER BLOCK FOR KMC#07
KMCRO7: 0
sCONTROL + STATUS REGISTER FOR KMC11 #07
KMCEO?7: 0
:LO BYTE=ENABLE (200=YES,0=NO) ;HI BYTE UNU

000000
000000

5262
5263

:LO BYTE=MODE (200=80P,0=CCP) HI BYTE=CRC32(200=YES,0=NO)
I.O BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=INT)

KMCSO05: 0
;LO BYTE=INT.PRI. HI BYTE=LINE BYTE
.PARMETER BLOCK FOR_KMC#06
KMCRO6: 0
;CONTROL + STATUS REGISTER FOR KMC11 #06
KMCEQ6: 0
:LO BYTE=ENABLE (200=YES,0=NO);HI BYTE UNU

000000

026340
026342

026344
026346

KMCVO4: 0
KMCPO4: 0

sCONTROL + STATUS REGISTER FOR KMC11 #04
:LO BYTE=ENABLE (200=YES,0=NO);HI BYTE UNUSED

KMCSO08: 0
;LO BYTE=INT.PRI. HI BYTE=LINE BYTE
: PARAMETER BLOCK FOR_KMC#09
KMCRO9: 0
;CONTROL + STATUS REGISTER FOR KMC11 #09
KMCE09: 0
:LO BYTE=ENABLE (200=YES,0=NO);HI BYTE UNUSE

5272
5273
5276
5275

026376
026400

000000
000000

KMCS09: 0
0 BYTE=IMT.PRI. HI BYTE=LINE BYTE
.PMTER BLOCK FOR KMC#10
KMCR10: 0
;CONTROL + STATUS REGISTER FOR KMC11 #10
KMCE10: 0
:LO BYTE=ENABLE (200=YES,0=NO) ;HI BYTE

5278

026406

000000

KMCS10: 0

5276
5277
5279

026402
026404

000000
000000

5280
5281

026410
026412

000000
000000

KMCR11: 0
KMCE11: 0

5284

026420

000000

KMCS11: 0

5282
5283

5285

5286

5287

026414
026416
026424

000000
000000

;LO BYTE=INT.PRI. HI BYTE=LINE BYTE

:PARAMETER BLOCK FOR_KMC#11

KMCV11: 0
KMCP11: 0

sCONTROL ¢ STATUS REGISTER FOR KMC11 #11
:LO BYTE=ENABLE (200=YES,0=NO):HI BYTE

SED

:LO BYTE=MODE (200=80P,0=CCP) HI BYTE=CRC32(200=YES,0=NO)
.LO BYTE=INT.VECTOR ADDR.,HI=E/1(200=EXT 0=INT)
O BYTE=INT.PRI. HI BYTE=LINE BYTE

PARAHETER BLOCK” FOR KMC# 12
s

KHCE1

sCONTROL ¢ STATUS REGISTER FOR KMC11 #12

:LO BYTE=ENABLE (200=YES,0=NO);HI BYTE UNUSED

000000
000000
000000

KMCV1 : 0
KMCP13:
0

KMCS13: 0

000000

:LO BYTE=MODE (200=80P,0=C(P) Hl BVTE'CRC32(200-YES 0=NO)
:LO BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT 0=INT)
;LO BYTE=INT.PRI. HI BYTE=LINE BYTE

;PARAMETER BLOCK FOR KMC#15

KMCR15: 0
KMCE15: 0

;CONTROL + STATUS REGISTER FOR KMC11 #15
:LO BYTE=ENABLE (200=YES,0=NO):HI BYTE UNUSED

KMCP15: 0
KMCS15: 0

+LO BYTE=INT.VECTOR ADDR.,HI=E/I(200=EXT O=INT)
:LO BYTE=INT.PRI. HI BYTE=LINE BYTE

KMCV15: 0

:LO BYTE=MODE (200=80P,0=CCP) HI BYTE=CRC32(200=YES,0=NO)

:PARAMETER BLOCK FOR KMC#16

KMCR16: 0
KMCE16: 0

;CONTROL + STATUS REGISTER FOR KMC11 #16
:LO BYTE=ENABLE (200=YES.0=NO);H]I BYTE UNUSED

KMCS16: 0

:LO BYTE=INT.PRI. HI BYTE=LINE BYTE

KMCV16: 0
KMCP16: 0

:LO BYTE=MODE (200=BOP,0=CCP) HI BYTE=CRC32(200=YES,0=NO
:LO BYTE=INT.VECTOR ADDR. HI=E/I(200=EXT 0=INT)

KMCTBE: 0

NN
o
~

02?127
o

026516
o
N
O

N NN N
WA
=

sCONTROL + STATUS REGISTER FOR KHC11 s
:LO BYTE=ENABLE (200=YES,0=NO)
;HI BYTE UNU

KMCS14: 0

WWNWWWWWNWW
NN WWWNW

5339

;LO BYTE=INT.PRI. HI BYTE=LINE BYTE

KMCV14: 0
KMCP14: 0

024360
000012
026504

026232
000002

000010

]

GETKMC: MOV
1$:
ADD

CMP

024360
2%:

R1,#KMCS16+2
s

:@ END OF TABLE?

:gg

ofncrna-12LCURTAB

TST8
BPL
MoV

2(n1)

;ENABLED?
:
:8=NO
R1 CURTAB
sNOW POINTING TO CURRENT KMC

Mov

#SELO,R2

sPOINT TO DEVICE REGISTER POINTERS

MOV

#8. .RS

8 REGISTERS

(R1)+ R4

*GET KMC CSRO

R4. (R2)+
Ré&
RS
25s
#2.R1

:BR=NO
*SKIP ENABLE ENTRY
;LOAD CRC-32 STATUS

66
026570

000002

MOV
INC
DEC
BNE
ADD

026574
026600

002311
002314

Mov8
Movs

(R1)+,HODS
(R1)+,CRC32F

026604
026606

100000

BIC
MOV
ADD
BIC

0100600 (R2)+
(R1) (Ré)
5
01600 0,(R2)+

000004
100000

:GET CURRENT TABLE POINTER

BNE

MOV

25$:

CURTAB,R1
#12.R1

:LOAD THE MODE

:LOAD VECTOR ADDRE SSES
(R2)
M0 v

sLOAD INPUT VECTOR

NEXT uono £ CLR JUNK
:LOAD oufput VECT
++4=0UTPUT VECTOR ADDR
:STRIP E/I BIT

SEQ 0103

lalal

8
PAGE 103

:LO BYTE=MODE (200=B0P,0=CCP) HI BYTE=CRCZ(ZOO-YES 0=NO)
LO BYTE=INT.VECTOR ADDR.,HI=E/](200=EXT 0=INT)

0
KMCE14: 0
026456

P@R??ETER BLOCK FOR_KMCA14

024360
002260

5336

08:50

KMCV1 : 0
;L0 BYTE=MODE (200=B0P,0=CCP) HI
BYTE=CRC32(200=YES,0=NO)
KMCP12:
0
LO BYTE=INT.VECTOR ADDR.,HI=E/](200=EXT 0=INT)
KMCS12:
0
0 BYTE=INT.PRI. Wl BYTE=LINE BYTE
PARAHETER BLOCK FOR KMC#13
KMCR13:
0
sCONTROL + STATUS REGISTER FOR KMC11 #13
KMCE13:
0
:LO BYTE=ENABLE_(200=YES,0=NO);HI BYTE

o
b

6
026430

TRAP TABL

aiiaiaivIug

B e St o a8 oRoResesss SESY3358

5588
5289

MACY11 30A(1052) EZ1-0CT-81

[TN

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

VIS
W =O VWO

NW -

NN
S NN S NNN=N)N
= ed b cd b d
S WNOOOO
O
=D b e b b ed d
O\ NW=0NW
NN

b b wd cd
—

&»

o
N
o

WA
=

B OO

b O

e T 2—.-

igfiB
28
82
g
=4

00207

000200

002316

000200

002316

000040
002312
000001
024360
026244

002456
000002

48:

.SBTTL

8
PAGE 104

SEQ 0104 |

(R1)+
#200, CLKDAT
(R1)+
268
#200,CLKDAT

;NEXT BYTE
SINT. + CLK
sINT?
:B=YES
sMAKE IT EXT.

MOVB
ROLB
ROLB
ROLB
ROLB
ROLB

(R1)+,(R2)
(R2)
(R2)
(R2)
(R2)
R2)

s INPUT PRIORITY
sMAKE SAME AS P.S.WORD

MOVB

3s:

1ST8
MoV
TST8
BPL
BIC

MOV

000012

08:50

MOV
SUB
BEQ
INC

(R1),LINEB

#1 ,R2

BEQ
BR

CURTAB,RO
#KMCTAB,RO
4
R2
#12, RO
48
3s

ADD

#2,(SP)

SUB

MOVB

R2.CUNIT

RTS

AR AR AR

RN RN

s INT OCCURS @ LEVEL BELOW PROC.
sOUTPUT PRIORITY
;LOAD LINE BYTE
;FIND UNIT#

;CURRENT UNIT #

ROUTINE TO SIZE MEMORY
RN

RN RN AR AR

RN AR

RRRRNRRRRRRS

s*CALL:

A
JSR
PC,SSIZE
RETURN
A
s*SLSTAD WILL CONTAIN:
A
WITH KT11 OPTION
== LAST VIRTUAL ADDRESS OF THE LAST BANK
e
WITHOUT KT11 OPTION
== LAST ABSOLUTE ADPDRESS OF AVAILABLE MEMORY
s«SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
s*$KT11 IS THE MEMORY MANAGEMENT KEY
s*BITO7 = 0 DON'T USE MEMORY MANAGEMENT
H
MUST BE SETUP BEFORE THE CALL
i

DETERMINED BY ROUTINE

$SIZE:

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2.=(SP)
R3,=(SP)
Ré . =(SP)

MOV

ar116.-(SP)

MOV

o
o

000004
000006

i=lelelelelel]
NN

SLXTSTES
VWA
S &
RETPOINN

s*BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION

00011
00011

MOV
MOV

ari14,-(sP)

22SAVE RO ON THE STACK
s:SAVE Ri ON THE STACK
:3SAVE R2

ON THE STACK
::SAVE R3 ON THE STACK
*:SAVE RG ON THE STACK

+:SAVE MEMORY ERROR VECTOR PS & PC

#116,30114

::IGNORE PARITY ERRORS WHILE SIZING

@NERRVEC,=(SP)

;:SAVE PRESENT ERROR VECTOR PS & PC

SNERRVEC+2,=(SP)
SP,RO
::SAVE THE STACK POINTER

::SET THE ERRVEC PS TO THE PRESENT PS
TRAP

::PUSH OLD PSW AND PC ON STACK

BK001

TRAP TABLE

21-0CT-81

lalal

MACY11 30A(1052)

IR AR

=lelelelelelelelelelele]

105721
01 ; 7

NN W
N NN W
VOO

VIV VI

vcmmmmmmmmmgmmuummmmm
8RBIR
EERBREREEIITS QULILY Ny

AT AN
T AT AT
WWNW
wviviWiiiiaw

VOOV
WA =000

uuuuwwur R

L&P

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

20-0CT-81 17:05

027010 012637
7022

MOV

000

e B

e I

FEERELLLLLLLR

027036
027040

005737
052737

o;r

177
100000

$KT11:

000004

027076

012737

027114

000000

006200

027104 ozzoge
027106
005037 027114
027112 000412
027116

027116

000000

027120 015703 000037

027124 012702 170200
027130

005022

85;}23

077304

027132 01;722 000074

1008:

$SMAP:

$STOP:

027140 005046
:
027142 012702 172340
027146 012703 000010
027152 012762 077406 177740 18:

n s SFERRVEC ..ser FOR TIMEOUT
go
*UNIBUS MAP ARE YOU THERE?
nnz arssSTOP ..ves-ser COMPARISON VALUE FOR 11/70
#200, as$mAP
TURN ON MAP INDICATOR

B8R

MOV

85;534

015737
012737
000401
ozzcge
005237
012737
}osm

177572

027270 000004

027270
027272

027276

027302

35;‘;%

3s:

027114

027236 o1u§n7n§:9 027312 000114

027244
027252
027256
027262
027266

28:

01120
005037

177572

105737

027114

oosog;

172516

100034

027312 on1c307io4 177744

027316 010437 177744

SRO
#100000,$KT11

KT11 ARE YOU THERE?
VES-SET KT11 KEY

uwaé

2260 SET UP MAP REGISTERS

#6200,3#8STOP

::COMPARISON VALUE FOR 18 BIT MAPPING

B8k001

BKO001

..nu.eo WITH APPROPRIATE COMPARISON VALUE

(R2) +

MOV

mbzoo R2

R3,1008

CLR

MOV

CLR
MOV

874, (R2)+

::CLEAN OFF STACK
*:MAKE SURE MAP INDICATOR TURNED OFF
¥
B8K001

8K001
8k001
BK001
8k001

.WORD

8K001

*SET UP COUNTER

..srm WITH MAPLO

BK001

*LOAD ALL MAP REGISTERS

B8k001

2:D0 ALL 31 REGISTERS

BK001

B8k001

::WITH THE VALUE 17000000

8k001

-(SP)
sINITIALIZE FOR ‘PAR'’ LOADING
mmo R2
..ADDRESS OF FIRST 'PAR h
:LOAD EIGHT 'PAR.‘S"" AND EIGHT 'PDR.'S"
cmbe=40(R2) :iPDR = 4K, UP, READ/WRITE
(SP), (R2)+

::LOAD ‘PAR"’
:LOOP UNTIL ALL EIGm me LOADED

czoo (SP)

..upom FOR NEXT ‘PAR

-(R2)

*SETUP KIPARG FOR TESTING

nmoo.-mv

..sswp KIPAR7 FOR 1/0

#28, MERRVEC
..cmn TIMEOUT IF NO SR3
#60,3#SR3
:SENABLE
22 BIT MODE AND UNIBUS MAP
3s
mxs m—n HAS A SR3 REGISTER
(SP)+,(SP)+
..CLEAN OFF THE STACK=--NO SR3
WSRO’
*TURN ON MEMORY MANAGEMENT
#SKTOUT ,@#ERRVEC :;SET FOR TIME OUT

MOV

#SMMOUT ,a#114

MOV
TST
ADD
CMP
BHI

$KTOUT: MOV
CLR

1ST8

BPL

S;Lz"

$MMOUT: MOV
MOV

8k001
BKO0O1

132200 IF MAP PRESENT

MOV
MOV
BR
CMP
INC
MOV

gfls

013737 oogogs 000116
143776
48:
oegn 000040
023712
027116
101371
005737

..ser TO USE MEMORY MANAGEMENT

(SP)+.(SP)+
aNSMAP
SNOMAP

MOV

027214 000004
000060 172516

UP ADDRE
ss nenoav mcsnsmv

CMP
CLR
BR

CLR

027176
027204
027212
027214
027216
027222

MOV
ST
MOV .
MOV

027174

005042

SAVE THE PSW IN @#ERRVEC+2

*:BR IF NO
mmex mnnvec ..ser FOR TIMEOUT

.WORD

027160 011622
062716 000200
027166 077307

027170 012742 177600

)+, mnavscoz

SEQ 0105

BPL
MOV

MOV
MOV
MOV
ADD
S08

027162

9
PAGE 105

§’
R1
(55»

SMAPRG: MOV
1008:

MOV
TST8
ST
BIS

027022

027046 012737 o;ron 000004
027054 00 7§7 170200
027060 0157 7 176200 027116
027066 012737 000200 027114

027074 000411

08:50

ROUTINE TO SIZE MEMORY

027014
01
9 1 00“3996!
8 7020
105727
027024 10014
027026 o1§7

21-0CT=81

..'i‘ggu; THERE?

::SET UP MEMORY ERROR VECTOR

uenav;cozame :LOCK OUT INTERRUPTS
::TRAP ON NON=EX-MEM
#40, (R2)
SIMAKE A 1K STEP
aNsSTOP, (R2)
:.usr ONE?
48
*NO==TRY IT
(R2) ,R2
sRO

$:GET LAST BANK+1
“:TURN OFF MEMORY MANAGEMENT

ssxz i

*NO=-SKIP

BK001

B8K001
E"%}
K
B8K001

::1S MAP THERE?

B8K001

usgg

S:TURN OFF MAP

BK001

R4, ¥ 77844

*:CLEAR BITS IN REGISTER

Bk001

aN177744 R4

::SAVE MEMORY ERROR REGISTER

B8K001

8k001

MACY11 30A(1052)

(sl

DMS11=DA DYNAMIC

e R 23

DMS11-DA DYNAMIC
11

027322

20-0CT-81 17:05

03:7064

001360

027

012737 027370

027350

062701

027360

005711

027346

;

0 50 2

109008

BIT

BNE

027022

027444
027446
027450

027452
027460
027464

027466
027472
027476
027500
027506

022701
001370
16%701
162702
010006
012637
012637
012637
012637
010137
010237
012604
012603
012602
012601
012600

004000

18:

177776
004000
000040

027022

013704 027446
005737 027022
100024
023727 027450 007540

027553

000241

027532
027534

006105
005303

027530

006

027536 001373
027540

052704

RTS
.WORD
.WORD

027550 010537 002340
027554 001006
027553 023704 002532

:MUST BE PARITY ERROR-IGNORE IT
KT11 NON=EXISTENT

#SCROUT - SWERRVEC” ..ser FOR TIMEOUT
R2

#40 R

B8k001

*SET
UP BANK

K STEP

#177776.R1
*:LAST ONE
18
: INO==TRY AGAIN
#4000,R1
#40,R2
: ;DROP BACK
RO, SP
RESTORE THE STACK
(SP)+,a#ERRVEC+2’ - :RESTORE ERROR VECTOR
(SP)+.@#ERRVEC
(sp)o.mm
:;RESTORE MEMORY ERROR VECTOR
(SP)+.a#114
R1,$LSTAD
:;LAST ADDRESS
R2.$LSTBK
*LAST BANK
(SP)+,Ré
:SRESTORE Ré
(SP)+.R3
:SRESTORE R3
(SP)+.R2
: SRESTORE R2
(SP)+.R1
*RESTORE R1
(SP)+.RO
: SRESTORE RO
PC
0
0

B8k001

8k001

BK001

;:CONTAINS THE LAST ADDRESS
:*CONTAINS THE LAST BANK

#200,8KT11
PC,$SIZE
RS

;USE THE MEM. MANAGEMENT

Ré&

;ALLIGN BITS FOR AN 18 BIT PHYSICAL ADDRESS

SLSTAD,R4
:SET UP ansuAL ADDRESS
$KT11
1s THERE A M.M
3s
*B=N PHY ADDR. m SLSTAD
SLSTBK, #7540
:MORE THAN 124K?
BLE
1$
*B=NO
MOV
#7540,8LSTBK
:ONLY NEED 18 BITS (ADDRESS)
;MAKE THE VIRTUAL ADDRESS INTO A PHYSICAL
MoV
$LSTBK,
R4
MOV
#6,R3
cLC

ASL

BIS

38:

#100000,$KT11

33 YES=EXIT

::TRAP ON TIME OUT

BNE

003776

: ;MEMORY TIMEOUT?

sk fout

(R1§

ROL
DEC

027544 010437 027446
027550

28:

#1 R4

ADD

MOV
ST
B8PL
CMP

18:

SEQ 0106

..mcnenenr 8Y 1K

GETCOR: MOV
JSR
CLR

003403

027510 012737 007540 027450
027516 013704 027450
027522 012703 000006

#4000,R1

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

SLSTAD:
$SLSTBK:

027516

08:50 PAGE 106

ADD

$SIZEX: SUB

000006
000004
000116
000114
027446
027450

000200
026736

CLR

CMP
BNE
$CROUT: SUB

000207
000000
000000

012737
004737
005005

RTI
$KTNEX: BIC

000006 S$CORE: MOV

0273564 062702 000040

027362
027366
027370
027374
27400
027402
027406
027412
027416
027422
027426
027432
027434
027436
027440
027442

21-0CT=-81

NE TO SIZE MEMORY

000001

027

027
027

MACY11 3omosz)

MOV

RS
R3

#3776 R4

R&,SLSTAD

*MOVE CARRY INTO RS

;ADD 1K (SLSTAD ALWAYS 3776)

*MAKE SAME AS NO KT11

;SLSTAD = LOW ORDER 16 BITS + RS
= BITS 16 +$17INO + 1

osm

1030

MoV
BNE
CMP

RS XBITS
35§
BADDR, R4

82;?7’3 013737 027446 002336 s

MOV

SLSTAD,HADDR

027572

000241

cLe

BHIS

:BR=BASE<PHYSICAL ADDRESS
*ANY CORE ovsn DIAG.
:B=NO

(/C=

;ADJUST FOR SIGNED SUBTRACT

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20~0CT-81 17:05

MACY11 30A(1052)
21-0CT-81
08:50
ROUTINE TO SIZE MEMORY

318
0 1378 013701
002532
5514 027602
160104
512

027574

5515
2316
§517
5518
§519
5520
§521
3302
5523
§504
5525
§526
3507
5508
§529
5530
§531
3532
5533
§534
3335

027604
020606
027610

000240
000240
000240

027612
027614
027616
027620
027622
027626

103001
005305
006304
006105
010537
010437

027632
027634
027636
027642
027644
027650
02red2
027660
027662
027664

005705
001006
022704
003403
010437
000403
012737
000207
000000
000000

MOV
SUB
ROR

NOP
NOP
NOP

4$:

027662
027664

017777
002534
020000

002534

s$:
6$:
CCHI:
CcLo:

5537
5538
5539
5540

9
PAGE 107

BADDR,R1
R1,Ré
Ré

;#eeess ABOVE CODE MAY NEED ADJUSTMENT
BCC
48
:BORROW? B=N
DEC
RS
:YES
ASL
Ré
:2X RANGE = CHR COUNT
ROL
RS
MOV
RS,CCHI
MOV
Ré,CCLO
:FINC C/C FOR UP TO 8K BYTES OVER THE BASE ADDRESS
IST
RS
;OVER 8K BYTES?
BNE
58
:B=YES
CMP
R17777,R4
:OVER OR EQUAL TO 8K BYTES?
BLE
58
:B=YES
MOV
R&,CCTST
:MAX CC FOR TEST
BR
63
:
MOV
#20000,CCTST
:HIGHEST C/C=0
RIS
PC
0
0
:THIS ROUTINE WILL LOAD THE ‘NEXT'' SEQUENTIAL 18 BIT BUFFER ADDRESS
:(BITS 17 + 16) INTO "EABITS'
(BITS 15 + 14) AND (BITS 15-0) INTO
:"ADDR''.
THE BUFFER ADDRESS IS DETERMINED FROM THE 'LAST'‘ BUFFER ADDRESS
:CALLED AND THE VALUE OF THE CHARACTER COUNT (LOCATION “‘CCNTTM).

3341

:IF BUFFER IS GRANTED RETURN IS PC + 2 IF NOT RETURN IS PC

5543
5544

027666
027670

013704

030006

000241

5546
5547
5548

027676
027702
027704

060437
103011
062737

030010

5550
5551
3352
5553
5554
5555
3336
5557
5558
§559
5560
3361
3362
3363
5564
5565
5566
5567

027712
027720
02rre2
027726
027734
027736
02rrié
027746
027752
027754
027760
027762
027766
02rrré
0
030004
030006
030010

063737
103002
003237
023737
00301
023737
003403
005737
001403
062716
000207
003037
013737
003037
005037
000207
000000
000000

5545 027674 006
§549

027712

GETPHA: CLC
MOV

040000

030012

030006

030014

030016
030016

027662

030014

027664

1$:
28:

030016
000002
030012
002332
030014
030016

CONT,Ré

:CHR COUNT /2

ADD
BCC
ADD

Ré4,ADDR
28
#40000,EABITS

:ADDRESS

ADD
BCC
INC
(MP
BGT
C4?
8LE
TST
BEQ
ADD
RTS
(LR
MOV
CLR
CLR
RTS
0
0

CCNT,ADINL
:ADD REQ CHARACTER COUNT TO ADDRESS INDEX
28
ADINH
:ADD_CARRY
ADINH,CCHI
:DOES THIS REQUEST EXCEED THE BUFFER LENGTH?
48
:B=Y RET.=P(
ADINL,CCLO
38
:B=0K_GRANT BUFFER REQUEST
ADINH
:ARE THERE UPPER BITS?
4
:B=N REG,=P(
#2,(SP)
:GOOD RETURN
PC
EABITS
:REPOINT BUFFER
BADDR,ADDR
:LOAD BASE ADDRESS (BUFFER)
ADINL
:INITIALIZE ADDRESS INDEX COUNTERS
ADINH
PC
:# OF CHARACTERS REQUESTED IN BUFFER SIZE
:ADDDRESS OF REQUESTED BUFFER

ROR

38:
030010

4$:

CONT:
ADDR:

:CONVERT
TO AN ADDRESS

:NOW FIND OUT F ADDRESS IS LEGAL

SEQ 0107

5568
5569

21-0CT-81

08:50

ROUTINE TO SIZE MEMORY

EABITS: 0
8

000000

9
PAGE 108

;E.A. BITS OF REQL STED BUFFER
:ADDRESS INDEX LOW (KEEPS TRACK OF INDEX IN BUFFER)

:
ADINL
ADINH:

*ADDRESS INDEX HIGM

b ed b b
=
OO00

RIBI=
oo
W

\fl\.fl\.fl\fl\h\h\s

ViAW

;THIS ROUTINE WILL LOCAD THE DESIRED FIRMWARE (PARAMETER
*BLOCK SPECIFIED) TO THE CURRENTLY ACTIVE KMC=11
LDMODE: MOV
MOV

000006
030166
002000
030242
030240
036060
002311

MOV

:8;
CLR

046060
002314

030240

152154

2$:

152132
020000

152120

030240
002000

030240

#6S an

;SAVE 4 & 6

OZOOOLOSELO
gs

;TIME OUT TRAP ROUTINE

(n§)+ @SELS

:LOAD THE DATA WORD

;INITIALIZE THE ADDRESS COUNTER

MOV
#CCPFRM,RS
*SET POINTER FOR CCP MODE
TSTB
MODE
*REQUESTING CCP?
BPL
2s
:B=YES C(P
MOV
#BOPN32,RS
*POINT TO FILE WO/CRC32
TSTB
CRC32F
:1S CRC32 ENABLED?
BPL
2
=NO
MOV
#80PW32 RS
“POINT TO FILE WITH CRC32
HSOAD THE
DAle 20RD INTO KMC11
:LOAD ADDRESS

MOV
BIS

#20000,3SELO

BIC

#20000,3SELO

MoV
MOV

(SP)*.alb
(SP)+,aN4

:UPDATE
INC
CMP
BNE

000006
000004

THE ADDRESS AND TEST FOR DONE
5%
+1 TO ADDRESS COUNTER
#2000,5%
2s
SRESTORE 4 £ 6

RTS

RETURN WHEN DONE

;RESTORE STACK

- INDICATE KMC=11 NOT FOURND

000004

ADD

TYPE .653
..rvpe ASCIZ STRING
BR
648
OVER THE ASCIZ
JASCIZ <15><12>/° KM’ Aobness ERROR/

#6 SP

002260

MOV
TYPOC
JMP

SELO,=(SP)

030200

002076

00 23 ;
17 7
031650
VN =

WN=O
VR NOWVNS WO

VAW

RN
4
ooog
RN

5605

-t

ON)

Vet

042060

anG,=(SP)
aré. -(sp)

002313
002454

5%:
6$:

SETLIN:

0
0

MOVB

MOV

JSR

HALT
RTS

MONIT

;GET DEVICE ADDRESS

: & TYPE IT OUT
* RETURN TO MONITOR FOR CORRECTION

;ADDRESS COUNTER
TEMP. STORE

anee CLINE

:LOAD LINE BYTE

PC,GETLIN

SGET FIRST LINE

#-1,CURLIN

SINIT LINE

*NO LINES ENABLED''®

éxxr

sTHIS ROUTINE WILL DISPLAY ON THE CONSOLE DEVICE THE UNITS
sREQUIREING LOOP AROUND CONNECTORS.

SEQ 01C8

lalal

MACY11 30A(1052)

[TN

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

§3
sgsses
SEESS

08:50
ROUTINE TO SIZE MEMORY

020
030556

026%32
026506

030358

024360

: MOV
LPARND

#16. R0

18:

CLR
DEC
BNE

(R1)+
RO
18

JSR

PC,GETAMC

2%:

002456

#1,CUNIT

::658:

BR
LASCIZ

648

4$:

MOV
ST

SUNITFG,R1
(R1)+

6$:

002332
002456

000207

030556

000020

6$%:

e
UNITFG:

58
678
66$
<15><12>/

MOV
INC

#-1,TYPFLG
CUNIT

::69%:

sGET NEXT ENABLED UNIT
:8=DONE DISPLAY UNITS
s INTERNAL LOOP SELECTED?
sB=YES
sADJUST UNIT # FOR MEMORY REF.
s INDEX INTO TABLE

BMI
TYPE
BR
LASCIZ
TYPE

s:TYPE ASCIZ STRING

;-GET
OVER THE ASCIZ
;

<155><12>/UN17S REQUIRING LOOP CONNECTORS/

CUNIT,=(SP)

CMP

68s:

,658

MOV

BNE

030532

030554
030554

BPL
TYPE
BR
LASCIZ
TYPDS

002332

030550

SEQ@ 0109

;SET FLAG
;CHECK FOR NEXT UNIT
;DISPLAY UNITS REQUIRING LOOP CONNECTORS
:
¢ LR
TYPFLG
;CLEAR TYPE INDICATOR FLAG

TYPE

::67%:

177777
002456
000021

#KMCTAB=12 .CURTAB

MOV

3s:

030452

002456

MOV

9
PAGE 109

sCLEAR UNIT FLAGS

#UNITFG,R1

CLKDAT
2
CUNIT
#UNITFG=2,R1
CUNIT,R1
#<1,(R1)
2

648

030556

MOV

TSTB
BMI
ASL
MOV
ADD
MOV
BR

002456
030554
00;456
177777
002332
000001
030372

21-0CT=-81

MACY11 30A(1052)

002316

lwleolelelelelelelele]

5624
5
6
5627
5628
5629

B
A
RRSSSSENY

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

#17. ,CUNIT
4$

sPOINT TO UNIT TABLE
sUNIT RUNNING EXTERNAL?

::TYPE ASCIZ STRING

;7GET OVER THE ASCIZ
UNIT #

;2SAVE CUNIT FOR TYPEOUT
2260 TYPE=--DECIMAL ASCII WITH SIGN
sINDICATE UNIT # HAS BEEN PRINTED
sDONE?

+B=NO

TYPFLG
sANNY UNITS DECLARED?
6$
:B=YES
,69%
::TYPE ASCIZ STRING
68%
;:GET OVER THE ASCIZ
<15><12>/ NONE/

718

ASCIZ

<15<12>

RTS

.BLKW

16.

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

sTHIS ROUTINE WILL _LOAD EACH POTENTIAL INTERRUPT VECTOR FROM
sLOCATIONS 204 TO 776 WITH A .+2/10T TRAP SEQUENCE TO CATCH
sANY HARDWARE INTERRUPT TO AN ILLEGAL VECTOR.

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
5680
§681

030613

012700

5683

030626

010120

5685

030636

5684

012701

030630

012720

030644

001370

030646
030654

012737
012737

062701

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

ooosoa

000206
000004

INTPRM: MOV

#204,R0

18:

R1, (RO)+

000004

5688
5689
5690
ggg1

030662

000207

000006
000004

MOV

#206.R1

030664

012737

000015

BNE

‘B=

01600 RO

:DONE?

;LOAD TIME OUT TRAP VECTOR
MOV
#6306
MOV
¥, k6

000004
000006

RTS

030756

151364

INTKMC: MOV

5702

030700

005077

151354

MOVB

0377asELz

5703

151346

MOV

c«oooo aSELO

CLR
INCB
BNE
TSTB
BEQ
DEC

$TMP
srnpo
18
@SEL2
2$
3s

0307064

030712

012777

040000
001160
001160

012777

5705
5706
5707
5708
5709
5710

030720
030724
030730
030732
030736
030740

005037
105237
001375
105777
001404
005337

5712
5713
5714
5715
5716
5717
5718
5719
5720
5721

030746
030750
030754
030756

000207
062716
000207
000000

030744 001367

100000

CLR

151340

MOV
18:

151326
030756

BNE

000002

28:
3s:

RTS
ADD
RTS
0

asELO

0100006 aSELO

CLEAR RUN, IF UP

ser MASTER CLEAR

:RUN

:WAIT LOOP
;
*DONE?
B=Y

PC
#2,(SP)
PC

;THIS ROUTINE TEST THAT A "REQUEST IN'' CAN BE DONE
*CHECKING THAT NO OUTPUT REQUESTS ARE POSTED (SEL2) AND THAT
:THE FIRMWARE RESPONDS TO A REQUEST IN BY POSTING THE READY-IN.

g;gg

*IF THE REQUEST IN CAN BE DONE THE RETURN IS TO PC+2 OTHERWISE TO PC

5724

030760

112777

000040

151272

REQNT:

5726
5727
5728
5729

030770
030776
031000
031006

112777
000413
112777
000407

000044

151262

REQNR:

000045

151252

REQNC:

031016
031020

000403
112777

000041

151242

REQNX:

000043

151232

REQNI:

031032
031036

100419
005037

5725 030766 000417

730

031010

5733

031026

573,
5735

comms ADDRESS
xor INSTR.

5701 030672 112777 000377

5731
5732

:POIINTER TO LOCATIONS

:THE FOLLOWING ROUTINE WILL INITIALIZE THE CURRENT KMC=-11
*FIRMWARE BY ISSUEING A MASTER CLEAR AND SETTING THE RUN
:BIT.
A WATCH=LOOP IS EXECUTED TO ASSURE THAT THE FIRMWARE
+1S RESPONDING TO THE USER COMMANDS.
IF THE FIRMWARE
:SOULD BE HUNG OR FAILS TO RESPOND A RETURN TO PC IS
*EXECUTED, OTHERWISE PC+2

5700

5711

SEQ 0110

cxor (RO)+

CMP

569
5694
5695
5696
5697
3233

5704

9
PAGE 110

MOV

ADD

5686 030640 022700 001000
5687

MOV

112777

105777

151232

001160

REQGO:

MOVB

#40,aSELO

;TRANSMIT BUFFER IN REQ.

MOVB
BR
MOVB
BR

#44,aSELO
REQGO
#45,aSELO
REQGO

:REC. BUFFER IN REQUEST

B8R

MOVB

BR
MOVB

TSTB

BMI
CLR

REQGO

;CONTROL IN RECEIVE REQUEST

#41,aSELO

REQGO
#43,3SELO

@SEL2

2$
$TMPO

;CONTROL IN TRANSMIT REQUEST

- INITIALIZE IN REQUEST

ourPur REQUESTED

*B=Y

5736

031040

105777

151214

5738

031046

005237

001160

57641
5742
574
5744
5745

031056
0 31062

062716
00020

000002

100404

18:

004737
000411
004737
000406
004737
000401
000766
062716
010037
113737
000

031020

002454
002313
030244

013700
113737
004737

—

031120
031124
031132
031136
031136
031142
031144
031150
031152
031156
031160
031162
031166
031172

—t

002454
000400
151164
031772

113777
012777
005077
004737
000207
062716
000207

031064
031072
031100
0311064
031110
031112
031116

@SELO

CLR

JSR

RTS

ADD

RTS

031202

INTALL:
18

031064

ISYREOUESY GRANTED?
;8=

;ALLOW TIME FOR RESPONSE
:TRY AGAIN
:RETURN PC

asLl

PC,INPDUN

#2,(SP)

:
UNUSED
sUNU

sTEST THAT INPUT COMPLETED
sRDY=IN FAILED TO DROP
s COMMAND COMPLETED

;THIS ROUTINE WILL INITIALIZE ALL THE LINES STARTING AT LINE 1

MoV

CURLIN,RO

JSR

PC, SETLIN

:INITIALIZE LINE # COUNTER

JSR
BR

PC,REQNI

BR
JSR
BR
BR

$
PC,GETLIN
23

sCAN A INITIALIZE IN BE EXECUTED?
sA REQUEST IN FAILED
sINITIALIZE # IN CURLIN
sLINE INITIALIZATE COMMAND FAILED TO COMPLETE
sGET THE NEXT LINE NUMBER

MOVB

CLINE, HOLDB

JSR

PC,INTLIN

2%:
3s:

ADD
[ [1)"

1%
#2,(SP)
RO,CURLIN

HOLDB:

031650

002313

MovB
RTS

HOLDB,CL
INE
PC

sSAVE LINE BYTE

sRESTORE

:THIS ROUTINE WILL ISSUE A LINE
[=lelelelelele]

prs

]

SPECIFIED IN "‘CURLIN'

004737
0004
004737
0004
062716
000207

031020

INTLNE:

031064
000002

SEQ 0111

sTHIS ROUTINE WILL LOAD THE LINE INITIALIZE COMMAND
sIN TO THE DEVICE REGISTERS, CURLIN=LINE # (AT THIS POINE RDY=IN
:1S SET)
INTLIN: MOVB
CURLIN aSEL3
MOV
GSEL6
sENABLE LINE

000002

000002
002454
031202

9
PAGE 111

RTS
ADD
RTS

5746

5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
760
5761
762
5763
5764
5765
5766
5767
5768
5769
5770

1ST8
BMI
INC
BNE

JSR
BR

JSR

1$:

BR
ADD
RTS

PC,REQNI
1%
PC,INTLIN

18
#2,(SP)
PC

INITIALIZE TO THE LINE

sCAN A INITIALIZE IN BE EXECUTED?

sINITIALIZE # IN CURLIN

:SET GOOD RETURN

sTHIS ROUTINE WILL START THE MAINTENCE CLOCK ON ALL ENABLED LINES
6

013769
004737

002454
030244

CLKALL: MOV
JSR

CURLIN,=(SP)
PC,SETLIN

sSAVE CURLIN

NI~

MACY11 30A(1052)
21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

lalsl

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:05

5792

§793

§794

5795
§796
§797
5798

031236

004737

031274

031246

004737

031650

031242

000491
000771
01%637 002454
062716 000002

5800 031266 012637 002454
3% 031272 000207

5799

031250
031252
0312564
031260

000411

031264

031274
031274

004737

031000

5810
5811
5812
5813

031302
031310
031316
031324

113777
112777
113777
005077

002454
000100
002316
150740

5815
5816
gg};

:SET MAINT LOOP + START CLOCK

JSR

PC.GETLIN

;GET THE NEXT LINE NUMBER

28:

28
18
(SP)+,CURLIN
#2,(SP)

38:

MOV
RTS

(SP)+,CURLIN
PC

RTS

:B=NO MORE LINES ENABLED
:DO NEXT LINE
*RESTORE CURLIN
*SET FOR A GOOD RETURN

;RESTORE CURLIN
*RETURN

sTHIS ROUTINE WILL SET THE MAINTENANCE LOOP AND START THE
sCLOCK.
IF COMMAND FAILS TO EXECUTE A RETURN IS MADE TO
:PC, OTHERWISE TO PC+2.

5807
5808

5814

SEQ 0112

PC,STCLK

BR
B8R
MOV
ADD

5803
5804
gggg

9
PAGE 112

JSR

ooozg7

031300 000415

031330

031334
031336
031342

004737

000207
062716
000207

STCLK:
150756
150760
150750

031772

28:
38:

000002

JSR

PC,REQNC

MOVB
MOvVB
MOVB
CLR

CURLIN,@SEL3
#100,8SEL7
CLKDAT ,aSEL6
@SEL4

RTS
ADD
RTS

PC
#2,(SP)
PC

JSR

PC. INPDUN

sCAN A CONTROL IN BE EXECUTED?

*CANNOT ISSUE COMMAND

:SELECT LINE #
JINDICATE LOADING A MAINT. COMMAND
sSET INTERNAL LOOP + START CLOCK
+UNUSED

:TEST THAT INPUT COMPLETED

*COMMAND NOT COMPLETED

5819

;THIS ROUTINE WILL EXECUTE EITHER A RECEIVE OR TRANSMIT BUFFER

ggZzg

COWT OF THE BUFFER FROM

5820
5821

IN COMMAND DEPENDING ON TH§ ENTRY_ POINT TNE. BUFFER ADDRESS
IS OBTAINED FROM LOCATION. BUFADQ.’ AND 'BUFEA'' AND THE CHARACTER

5824
5825

031344
031344

004737

030770

5828
5829

031354
031354

004737

030760

5826 031350 000422
5827 031352 000403
5830
5831

031360
031362

000416
113777

002454

5832 031370 013777 002522
5833 031376 013777 002524
5834 031404 063777 002526
5835
5836

031412
031416

004737
000207

gggg

031424

000207

031772

5837 031420 062716 000002

RIN:

XIN:

150676

150672
150670
150662

‘BUFCNT'’.

CURLIN = LINE #

JSR

PC,REQNR

RPT
FRD

*RECEIVE BUFFER FAIL TO

JSR

PC REON!

:CAN A TRANSMIT BUFF. IN BE EXECUTED?

MOV
MOV
ADD

BUFADR. 8SEL4
BUFEA,3SEL6
BUFCNT,3SEL6

16 sn BUFFER ADDRESS
*LOAD EA BITS
:LOAD CHARACTER COUNT OF BUFFER

ADD

az (SP)

BR
B8R

FRD:

BR
MOVB

RPT:

JSR
RTS

RTS

JCAN A REC. BUFFER-IN BE EXECUTED?

tRANSH!f BUFFER FAILED TO LOAD
cunun aSEL3
LOAD LINE
#

PC INPDUN

JTEST THAT INPUT COMPLETED

5840

:THIS ROUTINE WILL COUNT THE # OF ONES IN THE WORD

gg‘:.

4 IF ODD OR PC+2 IF EVEN.

5841

5844
5845
5846

CONTAINED IN LOCATION ‘WAS'*
031426
031432
031436

5847 031440

012701
oosogs
113700

100402

000010

002464

PARCHK: MOV
CLR
MOVB

BMI

#8. .R1
R2
WAS.RO

138

AND RETURN TO PC IF THE

:COUNT BITS TESTED

:BR=BIT 7 = 1

lalsl

MACY11 30A(1052)
21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

NI~

CZKMEAO DMS11-DA DYNAMIC
CIZKMEA.P11
20-0CT-81 17:05

5848
§849
5850
5851
5852
585

031442
031444
031446
031450
031452

106300
100001
oosggz
005301
001373

58546
5855

5856

031454
031460

gggz

031462

032702
001002

031466

000207

062716

128:
138:
14$:

000001
000002

158:

5859

ASLE
BPL
INC
DEC
BNE
:0DD OR

RO
148
nz
1zs
EVEN

BIT
BNE

#1,R2
15§

RTS

ADD

#2,(SP)

031470
031476
0315064
031512
031520

017737
017737
017737
017737
000207

150564
150562
150560
150556

002342
002344
002346
002350

GETCSR: MOV
MOV
MOV
MOV
RTS

@SELO,CSRO
@SEL2.CSR2
@SEL4
. CSR4
@SEL6.CSR6
PC

5869
5870
5871
5872
5873
5874

031522
031530
031532
031536
031542
031544

127727
001005
105077
004737
000240
000207

150536

000200

RBONLY: CMPB
BNE
CLRB
JSR
NOP
1$:
RTS

@SEL2,#200
13
@SEL2
PC,REQOUT

150526
031742

5877

5880
5881
5882
5883

:B=0DD
*EVEN

SXMIT?
*SKIP IF NO
:CLEAR

;THIS ROUTINE WILL .ISSUE A LINE RESET COMMAND TO THE
031546
031546
031552
031554
031562
031570
031574
031600
031604
031606
031612

004737
000414
113777
112777
005077
105077
004737
000207
062716
000207

031000

5894
5895
5896

031614
031620

105037
105777

001160
150434

5898

031626

105237

001160

5901
5902

031636
031642

062716
000207

000002

5885
5886
5887
5888
5889
5890
5891

:COUNT THE ONES
*COUNT THE ONES
*B=N

JIN THE ERROR REPORT ROUTINE

5862
5863
5864
5865
5866

23;3

9
PAGE 113

sTHIS ROUTINE WILL STORE CONTENTS OF THE CSRS FOR DISPLAYING

ggg?

3808

5897 031624

100004

3333 3%1235 004 75

002454
000020
150474
150474
031772

000002

LRSET:
150504
150506

28:

COMIN:
18:

:LINE SPECIFIED BY ‘‘CURLIN'

JSR
BR
MOVB
MOVB
CLR
CLRB
JSR
RTS
ADD
RTS

JCAN A CONTROL IN BE EXECUTED?
*0UT REQ. oa HUNG
:LD
LINE
#
*LINE RESET COMMAND
+UNUSED
:UNUSED
JTEST THAT INPUT COMPLETED

JTEST THAT INPUT COMMAND COMPLETD PC+2= COMPLETED PC
= NOT COMPLETED
CLRB
S$TMPO
TSTB
@SELO
:DID RDY IN DROP?

B8PL

INCB

2s:

PC.,REQNC
28
CURLIN,@SEL3
#20,3SEL7
aSEL4
QSEL6
PC, INPDUN
PC
#2,(SP)
PC

S?E
ADD
RTS

:B=Y

COMMAND NOT COMPLETED

STMPO

#2,(SP)
PC

;0K

SEQ 0113

lalal

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

[ VT N

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT=-81 17:05

5904

5905

5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5926
5925
5926

031644

106337

005;37
105737
001408
10037
106337
062716
000207
113737
012737
000207

002313
000002

031714

005037

001160

005037
005237
001375
005137
001372
000207

9
PAGE 114

002313
002454

GETLIN: INC
1STB
BEQ
BPL
ASLB
ADD
RTS
18:
MOvB
MOV
RTS

CLINE

CURLIN
CLINE
1$
GETLNO
CLINE
#2,(SP)
PC
LINEB, CLINE
#=1,CURLIN
PC

SEQ@ 0114
PC=DONE

;SHIFT TO NEXT LINE

;LOOK FOR LINE BIT
sSKIP IF NONE LEFT
sCHECK AGAIN
sSHIFT
sFOUND LINE

sINIT LINES
sRESET
JEXIT

;THIS ROUTINE WILL ALLOW TIME FOR KMC TO DETECT SYNC
$TMPO
CLR
$TMP1
INC
$TMPO
BNE
1$
COM
$TMP1
BNE
1$
RTS
PC

SYNTIM: CLR

001162
001160

18:

001162

sTHIS ROUTINE WILL MONITOR THE REQUEST OUT OF SELZ2

sFOR SETTING WITHIN DURATION OF 1 LOOP

5932
gggz

031742
031746

5935
5936

031754

5938
5939

031764
031770

062716
000207

000002

5942

031772
000
032004

000040
001160
150250

032012

042777
005037
105777
100004
005237

032022
032026

062716
000207

000002

5944

5949
5950

005037
105777
00404
005237

001160
150312

REQOUT: CLR
1$:
TST8
BMI
INC
BNE

001160

28:

$TMPO

aSEL2

RTS

ADD

sOUTPUT REQUESTED?

2%
$TMPO
1$

:B=YES

s TRY AGAIN

:NO OUTPUT REQUESTED

#2,(SP)

:OUTPUT IS REQUESTED

:THIS ROUTINE WILL TEST THAT THE INPUT STATUS COMMAND

001160

150260

sWILL COMPLETE (RDY-IN DROPS)

INPDUN: BIC
CLR
18:
TST8
BPL
INC
BNE

#40,9SELO
$TMPO
aSELO
2%
$TMPO
1$

2$:

#2,(SP)

RTS

ADD
RT3

s INSRUCT COMMAND READY
s INPUT DONE?
:B=YES

s COMMAND NOT ACCEPTED

; COMMAND DONE

:IF BUFFER REQ. IS LEGAL (CORE AVAIL + WITHIN BOUNDS) MAP KT11
:éfi;ESX£§TANT) AND RETURN TO PC+2 OTHERWISE PC
;
:
5958
5959

032030
032034

012700
000401

000001

MAPBFR: MOV
BR

MAPBFR - IF RECEIVE BUFFER POSSIBLY NEEDING CRC BITS
MAPBUF = IF ANY OTHER BUFFER
#1,R0O
MAPBFC

;SET RECEIVE BUFFER FLAG

lslal

08:50

;RETURN PC+2 = NEW LINE # IN CURLIN,

GETLNO: ASLB

002454
002313

002312
177777

21-0CT-81

ROUTINE T 0 SIZE MEMORY

002313

031650
031654
031660
031662
031664
031670
031674
031676
031704
031712

031720
031724
031730
031732
031736
031740

MACY11 30A(1052)

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

5960
5961
5962

032036
032040
032044

5964
5965

032054
032

596

5966

0;2046

20-0CT-81 17:05
0050?9
0057
1
;

027022

013737
013702

002500
002476

0427

5967 032066 013701

5968
5969
5970
5971
§972
§973
5974
5975
5976
5977

032072
032076
032100
032102
032106
032110
032114
032116
032120
032122

062701
103001
ooszo;
105737
100020
062701
103001
005202
005700
00141

5979
5980
5981
982
5983
5984
5985
5987
5988
5989
5990
5991
5992
5993
5994
5995

032130
032132
032136
032140
032144
032146
032150
032154
032156
032160
032162
032166
032170
032172
032174
032176
032202

100407
105737
100004
062701
103001
005202
010137
010205
005004
000241
012700
006205
006004
005300
001374
010437
020237

§997
5998

032210
032212

5978

5996

999

6000
€001
6002
6003
6004

6005
6009
6007
6008
6009

032124

032216

032220
032224
032230
032232

032236
032242

032246
032250
032252

10573

003122

001003
020137

101116

005037
005737
100076
012700

012701
012721

005300
001374
012700

000001

21-0CT-81

08:50

ROUTINE TO SIZE MEMORY

177572

002502

MAPBUF: CLR
MAPBFC: TST
BPL
8s:

RO
$KT11
8s

:B=N

CURBUF ,MAPADR

:USE TO READ THE DATA

BIC

#1,34SR0

MOV

CUREA,R2

MOV

9
PAGE 115
;SET OTHER BUFFER FLAG

s SHUT OFF KT11

:FORM RETURN ADDRESS

002500

MOV

000010

CURBU R1

ADD
BCC
INC
TSTB
BPL
ADD
BCC
INC
TST
BEQ

#10.R
10$
R2
MODE
18
#10.R1
118
R2
RO
18

18
CRC32F
18
#4 ,R1
18
R2
R1,RETADR
R2.RS
R4

002510
002340

BMI
TSTB
BPL
ADD
BCC
INC
MOV
MOV
CLR
cLC
MOV
ASR
ROR
DEC
BNE
MOV
CMP

#2.R0
RS
R&
RO
148
R4 ,RETEA
R2.XBITS

;1S REQUESTED BUFFER LEGAL?

002336

BNE
CMP

15$
R1,HADDR

:B=THERE FOR LESS THAN
*THEN 16 BIT ADDR MUST BE LESS OR EQ

002311

108:

000010
11$:

002316

TSTB

002314
000004
002512

000002

002524
027022

18:

148:

BGT

BHI
158:

000006

172300
077406
000001

6010 032256 01§721 077400

2s:

38:

78’

21S THIS A RECEIVE BUFFER?
*SKIP IF NO

EXTERNAL"

*SKIP IF INTERNAL
*CRC32 ENABLED?
*SKIP IF NOT ENABLED
sADD ADDITIONAL CRC BYTES

2B=N DON'T ISSUE THE REQ.

:1F GREATER OR NOT EQUAL= DONE

:IF A KT11 AVAILABLE MP APPROPRIATELY

(LR
ST
BPL
MOV

BUFEA
$KT11
65%
#6.R0

DEC
BNE
MOV

MOV
MOV

MOV

6011
ootg
6013

032262
032264
032266

005300
00774
012/ 1

077406

DEC
BNE
MOV

6015

032276

013701

002500

MOV

6014 032272 013702 002476

CLKDAT

:B=NO CARRY
*+1 TO THE EA BITS
*BOP OR CCP
:SKIP IF CCP
:CHANGE WORD COUNT TO BYTES

MOV

#KIPDRO,R1
17 406,(R1)+

077400.(a1>o
3s
#77406, (R1)

CUREA,R2

CURBUF ,R1

:NO KT11

;LOAD PDR.
:DISABLE 6

*NO ACCESS
:PG 7

SEQ@ 0115

CZKMEA.PT

MACY11 30A(1052)

lelel

CZKMEAO DMS11-DA DYNAMIC

6016

032302

000241

cLC

6018
6019
6020
6021

03 312
03231
03 §14
osg 16

006301
006188
0053
001374

6026
6025
6026

032
032332
032

005001
012704
010120

6028
6029
6030

032344
032346
032350

005304
001373
010210

6032

032

013737

002532

002502

052737
000241
012700
013701
006001
005300
001375
010137

000001

177572

6037
6038
6039
6040
6041

032374
032402
032404
032410
032414
032416
032420
032422

6043
6064

032434
032442

043737
013737

002330
002500

2829

032454

000207

6017 032304 012700 000012
6022
602

6027
6031

6033
6034
6035

6062
6045

48:

032320 045702 000077
oszgga 012700 172340
032340
032352

032

032426
032450

062701

012737

062737

015737
062716

000005

58:

000200
177600

020

000003
002476

002524

010010
000002

002526
002522

:KT11 FORMAT

BIC
MOV

#77 .R2
#KI1PARO,RO

;ASSURE A 4K BOUND
:MAP THE PAGES

ADD

#200,R1

CLR
MOV
MOV

668:
78:

6048
6049

1
R2
RO
X

R1
#5.Ré
R1. (RO)+
R4
1]
R2, (RO)

BADDR ,MAPADR

BIS
cLC
MOV
MOV
ROR
DEC
BNE
MOV

#1,34SR0

MOV

#20000, MAPADR
#3,R0
CUREA ,R1
R1
RO
65$
R1,BUFEA

#10010,BUFCNT

BIC
MOV

MODMSK
, BUF CNT
CURBUF ,BUFADR

RTS

ADD

;D0 PAGES 0,1,2,3,+4 (MAIN PROGRAM)

#177600, 34K IPAR?

MOV

ADD

658:

002526

#10. R0

ASL
ROL
DEC
BNE

MOV

002502

SEQ 0116

MOV

DEC
BNE
MOV

172356

no9
PAGE 116

#2,(SP)

*DONE?
‘B=N
:MAP PAGE S WITH BUFFER (REC) ADDRESS

;170 PG.

:KT11 ON
*ALLIGN EA BITS
;ALIGN EA BITS FOR CSR FORMAT
;PHYSICAL CSR EA FORMAT (15-14)

:LENGTH OF BUFFER

;BUFFER ADDRESS (PHYSICAL 0-15)

:THIS ROUTINE WILL INITIALIZE THE ‘‘CURBUF'' BY CLEARING IT
SAND WRITING THE TRANSMIT BUFFER(TBUF)

gggg

SWITH A 10 CHARACTER INCREMENT PATTERN

6052
6053

032456
032462

013700
005020

6055
6056
6057

032470

001374

032472

012702

052260

6059
282?

032502
032506

004737
000207

032542

6054 032464

002502

032700 000177

INTREC: MOV
18:
CLR

BIT

MAPADR , RO
(RO) +

#177.R0O

:CURRENTLY MAPPED BUFFER
*CLEAR ALL 127. WORDS

*DONE

BNE
18
:WRITE THE TRANSMIT BUFFER
MoV
#TBUF ,R2
;SET STARTING ADDRESS

6058 032476 012701 000010

MOV

6062

:THIS ROUTINE WILL INITIALIZE THE '‘CURBUF'' BY WRITING IT WITH

gggg

: THE RECEIVE BUFFER (RBUF)

JSR
RTS

6063

#10,R1

PC,MEMF IL
PC

;FILL BUFFER

:A 10 CHARACTER INCREMENT PATTERN THEN CLEARING

6066
6067
6068

032510
032514
032520

013702
012701
004737

002502
000010
032542

INTTRM: MOV
MOV
JSR

MAPADR , R2
#10,R1
PC,MEMF IL

6070
6071

032524
032530

012700
005020

052660

MOV
CLR

#RBUF ,RO
(RO)+

6069

*SETLENGTH
OF BUFFER

:CURRENTLY MAPPED BUFFER
:LENGTH OF BUFFER
“FILL BUFFER WITH INCREMENTING PATTERN

:CLEAR THE RECEIVE BUFFER

28:

NI~

MACY11 30A(1052)
21-0CT-81
08:50
ROUTINE TO SIZE MEMORY

lalal

CZKMEAD DMS11-DA DYNAMIC
CIKMEA.P11
20-OCT-81 17:05

)

MACY11 SOA(‘IO 2) 21-0CT-81 08:50
OUTINE TO SIZE MEMORY

9
PAGE 117

SEQ 0117

eorg 2532 ozoo;r 053056
032536 001374

CMP
BNE

607
607
6078
6079

:THIS ROUTINE WILL WRITE AN INCREMENTING PATTERN IN THE
*NAMED BUFFER. IN BOP MODE ALL PATTERNS WILL BE USED
*IN CCP MODE ONLY PATTERNS 40-175 WILL BE USED.
*ENTER WITH
R1=LENGTH OF BUFFER IN BYTES

2375

“1°
ma

032540

000207

608%

032542

010146

6084

032546

105737

6083

6085
6086
6087
6088

032544 010 :.9

RTS

MEMFIL: MOV

MOV

002311

TSTB

RO,#RBUF+126.
2$

R1.,=(SP)

nz.-(sn

BMI
MOV
MOV
MOVB

6090 032576 000406
6091 032600 012737 000377 032710
6092 032606 o1§737 000000 032712

BR
MOV
MOV

2
0377 208
2is

BHI
CMP
BHI

3s
208,228
4

032574

005301

DEC

1$:

6093 032614 023737 032712 032714 2%:

6096 032622 101004
6095 032624 023737 032710 032714
6096 032632 101003

6097 035634 013737 032712 032714 38:
6098
6099
6100
6101

032642
032646
032650
032652

113722
005301
003407
105237

6103
6104

032
032

103366
000762

032714

48:

032714

6102 032656 023737 032710 032714
6105

032670

6106 032674

6107

032676

6110
6111
6112
g”z

032706
032710
032712
032714

105737

002311

112742

000003

100402

6108 032702 012602
6109 032704 012601

78:
208 :
21$:
22%:

6115

g”?

6118

MOV

1$
#175,208
#60,218

czoi (R2)+

215 228

218,228

:CCP HIGH LIMIT=175
*CCP LOW LIMIT=40

*SET 1ST CHAR TO SOM

REDUCE REMAINING CHAR COUNT

:BOP HIGH LIMIT=377
*BOP LOW LIMIT=0

:CURRENT VALUE BELOW ALLOWABLE RANGE?
*B=YES
:CURRENT VALUE ABOVE ALLOWABLE RANGE
*B=NO

*SET VALUE TO LOWEST POSSIBLE

MOVB
DEC
BLE
INCB

22%.(R2)+
R1
8%
22%

BHIS
BR

'3 3
3s

2B=CONTINUE WITH THIS PATTERN
:START OVER WITH LOWEST VALUE

*SKIP IF BOP

CMP

68:

000207
000000
000000
000000

CMP

R2=STARTING ADDRESS OF BUFFER

MODE

032552 100412
032554 012737 000175 032710
032562 012737 000040 032712
032570 112722 000201

6089

:DONE?
‘B=N

208,228

TST8

MODE

MOVB

#3,-(R2)

RTS
.WORD
.WORD
.WORD

PC
0
0
0

BMI

MOV
MOV

(SP)+,R2
(SP)+.R1

*STORE PATTERN INTO BUFFER
sCOUNT DOWN NUMBER OF BYTES
*B=DONE
s INCREMENT DATA PATTERN

*HAVE WE PASSED HIGHEST VALUE?

:WHEN COMPLETE , CHECK MODE

JIF CCP REWRITE LAST BYTE AS ETX

HIGHEST ALLOWED PATTERN
;LOWEST ALLOWED PATTERN
CURRENT DATA PATTERN

sTHIS ROUTINE WILL TEST THE DATA TRANSFERRED T0 TP. RECEIVE BUFFER
032716

012701

;TWO ENTRY POINTS ALLOW FOR THE CURRENT ‘RECEIVE'® oJFFER

052660

TSTREC: MOV

#RBUF ,R1

2}53
3?5;22 ong}c;g; 00250
TSTMAP MOV
%v
6121 032730 012737 ooooo§ 002462

mnga
R1
3, SHBE

6123
6124

032742
032750

u.gm
123737

000200
002462

#200,WAS
SHBE.WAS

6126

032760

oos;s

00246

612§ 032736 112137 002464
6125 032756 ommg

6127 032764

022737 000177

002464
002464

002462

18:

MOVB

BICB
(MPB

BNE

INC

CMP

mi» WAS
2

sne;

#177, SHBE

:TABLE "RBUF'' IS THE RECEIVE BUFFER

*MAPBUF'’ CONTAINS THE ADDRESSED RECEIVE BUFFER

;ELIMINATE THE PARITY BIT
*DOES DATA COMPARE?

*REPORT ERROR

:DONE?

lalal
NN

CZKMEAO DMS11-DA DYNAMIC
CIKMEA.P11
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:05

61
61
61
g}

032772
032774
0
8

001;61
16
0
0;

61
61
6135
6136
6137
g}gg

Og
033011
Og 1;
03301
033016
033021

6140
6141
614
6143
6144
6145
6146
6147
6148

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

8 10
PAGE 118

101

127

BNE
ADD
2s:
RTS
TERBUF: .BYTE

801
27
20%
00
20
02

101

127

.BYTE

201,101,127,27

;SOH § ETB

101

127

.BYTE

202,101,127,3

;STX & ETX

101

127

BYTE

202,101,127,27

;STX & ETB

03302§
03302
0330%6
033031
033034
033036
033041
033044
033046

201
003
226
127
003
226
126
003
000000

101

T78UF:

.BYTE

201,101,101.3

20
12
376
20
12
376

101
127

LRCBUF: .BYTE

226,202,101,127,127,127,3,376

101
127

PERBUF: .BYTE

226,202,101,126,127,127,3,376

6151
6152
6153
6154
6152
6156
6157
6158
6159
g}g?

033050
033056
033064
033072
033100
033101
033106
033114
033122
Ogg}gg

044506
042522
044526
020105
000
122
044440
020126
026460
020051

046522
044440
046101
042524

040527
044516
055111
052123

0505
020116
051450
044502
042526

044502
046105
032524
052123

6162
6163
6164

033137
033144
033152

116
050126
05

6167
6168

033172
033200

6172

000002

1$
#2,(SP)
Ps
201,101,127,3

;B=NO GET NEXT VALUE
;SOM & ETX

.WORD

EMO1:

.ASCIZ

/FIRMWARE INITIALIZE TEST/

054504

EMO2:

.ASCIZ

/READY IN BIT (SELO-BITS) TEST/

026517
052125
0564504

052517
051040
052040

EMO3:

.ASCIZ

/NO-OUTPUT READY TEST/

(44516
055111

044524
020105

046101
042524

033226

0425

0;6522

047111

6176

033254

04 508

02652;

047111

6181
6182
6183

033312
033320
033326

044526
051505
044514

047117
000124
042516

052040

g}gg 0%%122 821%?2 823;32 064440 EMO4

ASCIZ /LINE INITIALIZE TEST/

g}gg o§§%?? 052}23 041?82 044505 EMOS
6171 033216 0425%2 0641040 043125

ASCIZ /RECEIVE BUFFER-IN TEST/

2%;2 8%%545 82??32 86%?8? 820;53 EMO6
6175 033246 055111 041040 04?125

ASCIZ /TRANSMIT BUFFER-IN TEST/

g};g 8;%59% 82;??1 821??1 828}%? EMO7
6179 033276 020114 0%%511 020117
6180 033
047503 050115 042514

ASCIZ !INITIAL I/0 COMPLETION TEST!

047440

EM10:

.ASCIZ

/LINE OVERFLOW TEST/

SEQ 0118

ee==AW==A===N=NO=NT1051“4551=N3TNN~O~N~O~
RN—ONNONRON—OTNSOOJMNSMNSNoZ‘OB8Z“RZ‘OZ“I‘Z’-TR—ONIONTgNIONsONOA=Nnz
NTNONO~VNOMVTOIMiTNeOMNMONTINONNOTMNO“OV—TONr~—VNDOaNNONOOVWTMNONOMO—VrTNMvNrMO—UeMvMMOONTOrV\TI~Or=IO0S—MNONW0OYOM=—MNM0OYNOMNNOyN
IMC30bN)aOlNv8~aolOa3OlI=0al=Oal0OalO3M-MaT0lNM=aOlBTN8a0IlI=TOaMlN0a8lETO=Nal0IINaO3OlTEaSOIlO=AaB8lIOa0NVIl3NOavlOOal0NTOMaOlNISa0lMaCSO0ylUBa8lNAOaTlIalOION8VaNlOTa0VMlS8aEOIlIO3aNl8ObITalCIaOEl—3"a=STlOOaTNElOaSTlNEaMOlOaIlMaOSlNWNaElO3OarTlN-a5EleOOa8l3—aOl0OalN«aIO~l0M3naNlAOaOI80lNar3lO—TaelaO0ClN3—NaOlN3Na0Ol3ONaoIlW3a0nlO8anOl~0aOlM3NaNl0aOl
CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PTT
20-0CT-81 17:05

RNGB0eDBITS

MACY11 30A(1052)
21-0CT7-81 08:50
ROUTINE TO SIZE MEMORY

€10
PAGE 119

EM1

+ASCIZ

/LINE RESET OF RECEIVE BUFFERS/

EM12

+ASCIZ

/LINE RESET OF TRANSMIT BUFFERS/

EM13:

LASCIZ

/''ABORT IN'' TO TRANSMIT BUFFERS/

EMI4

.ASCIZ

/'’ABORT OUT'* TO RECEIVE BUFFERS/

122

EMI15:

.ASCIZ

/''ABORT OUT'* TO TRANSMIT BUFFERS/

LASCIZ

/'ABORT IN'' TO TRANSMIT BUFFERS/

.ASCIZ

/QUEUING OF ALT. TRANSMIT BUFFERS/

.ASCIZ

/QUEUING OF ALT. RECEIVE BUFFERS/

«ASCIZ

/ALTERNATE BUFFER DYNAMICS TEST/

SEQ@ 0119

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
6240
41
4;
43

46
45
2549
i

034000

0;2001
034006
034014
034021
0 0§2
034034
034048

000
116
040554
042526

105
042440
051105
044526

046530
05%53‘
052123
0411%6
054126
044515
047117

EM22:

.ASCIZ

/NXM STATUS TEST/

EM23:

.ASCIZ

/ETB & ETX TERMINATION TEST/

051105
042507
0445264
051505

EM24:

.ASCIZ

/LRC ERROR GENERATION TEST/

054524
051117
051105
020116
000
040522
041440
052040

EM25:

.ASCIZ

/PARITY ERROR GENERATION TEST/

EM26:

.ASCIZ

/CHARACTER COUNT TEST/

031461
052040
051040
051505

EM27:

.ASCIZ

/LOW 13 BIT TRM + REC TEST/

034050
034054
034
034070
034076
034106
034106
034114
034122
034130
0341
034143
034150
034156
0341
034170

051505
051114
047522
04;519
047117
000124
0640520
062440
043440
052101
042526
10§
052103
052517
051505
047514

6265
66

034204
034212

046522
041505

044522
051122
047105
047511
052123
040510
051105
052116
000124
020127
052111
025440
052040

6269
6270
6271
6272
6273
gg;g

0342
034236
034244
034252
034260
8;2592

020105
020056
047440
0410640
030450
020051

052502
044510
042122
052111
026464
042526

043106
044107
051105
020123
033461
052123

6276
6277
6278
6279
6281
6282

034275
034302
034310
034316
034326
034332
034349

126
044515
043106
020110
020122
02
024467

040522
020124
044040
051117
044502
032061
052040

051516
052502
043511
042504
0515%4
030455
051505

6285
6286

034356
034364

0405.2
020122

051516
042526

042509
05212

6289
6290

034400
034406

044440
052522

053116
052120

051105
052040

6295

0344
034442

05252;
051505

052120
000124

052040

034176

041040

05166?
02012
000
023040
052040
040516
052040

6248
6249
6250
6251
625%
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264

000124
020103
020125
040522
052040

0 10
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 120
ROUTINE TO SIZE MEMORY
-

6225 8%2%%2 82%%%3 042503 053111 EM30 P ASCIZ /RECEIVE BUFF.
HIGH ORDER BITS (14=17)
TEST/
UFF. HIGH
TES

EM31:

.ASCIZ

/TRANSMIT BUFF HIGH ORDER BITS (14-17) TEST/

6222 8%2%28 0405°4 040524 052040 EM32

ASCIZ /DATA TRANSFER TEST/

2%3: 8§2§;

??? 050116 052125 EM33

ASCIZ /INPUT INTERRUPT TEST/

6291
8;2258
823??; 8g8}$2 052125 EM34
6293
034426 044440 055116 051105

ASCIZ /OUTPUT INTERRUPT TEST/

SEQ 0120

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

S f o pn g
7

036446

047125

052111

021440

6299
6
6301
6302
630
6306
6305
6306
6307
6308
6309
6310
6311
6312
6313
6316

0;2493
8 4
22676
034506
0;2507
034514
0345%%
034530
034536
034544
03455%
03455
034560
034566
034576
034602

021440
046111
042504
02 12;
125
020043
020126
044501
051440
020040
000
125
020043
020126
044501
046040

050048
02144
027126

840506
20040
042101

044516
052068
020043
020114
041110
053440

6317
6318
6319

034620
034626
034634
034642
034650
034656
034
034672
034700

020040
021440
066111
0445146
020040
020040
031122
051503
020040

gg}g 8%2‘%

LASCIZ

/UNIT #

TEST #

FAIL #

DEV.ADR./

0%0124
051505
043040
020043
0%0105
051501

DH2:

LASCIZ

/UNIT #

TEST #

FAIL #

SHBE

044516
052040
020043
020114
047111

020124
051505
043040
020043
020105

DH3:

LASCIZ

/UNIT #

TEST #

FAIL #

LINE #/

042524
020040
021440
042516
051503
020040
020040
032122
051503

052123
040506
020040
021440
030122
051503
020040
020040
033122

712% 052111 021440 DHé

gggs 8%28}4 82;}22 052111 021440 DH6
6340 035022 020040 042526 052129

2%2;
8%2?58 829?55 8gg}€1 021440 DH7
349 035106 020040 042524 052123

2%%9 8&%07

6328 034714

6329
6330
6331
6332
6333

6336
6335
6336
6337

6341
6342
6343
6344
6345
6346

6350
6351

034722
0347
034736
034744
034752

034760
034766
034774
035008

035030
035036
03504
035052
035
035066

035114
035122

?gg 044516 020124 DHS
3 052040 051505

020124
4501
046040
020043
020105

051123
041440
020040
020034

021440
046111
052505
0;004
051104
04250;

021440
046111

SEQ 0121

DH1:

6321
6322
323
6324
6325

E 10
PAGE 121

020043
020114
047111
051440
020040

0%0060
051123
041440
020040

020040
021440
0455
05250
0%004
0 004g

020040
021440

WAS/

ASCIZ /UNIT # TEST# FAIL # LINE # C(SRO

CSR2

ASCIZ /UNIT # TEST# FAIL # LINE

CSR

LINE

SHBE

CSR

“

043040
020043
020105
041110
041440

020040
02006%
05112
041440

040506
020040
020101
040502
04412
020040

040506
020040

ASCIZ /UNIT # TEST # FAIL # BUFEA BUFADR SHBE

ASCIZ /UNIT # TEST # FAIL # T-BUFF R-BUFF SHBC

CSR

’

SRé

R6/

TMTM

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

o%eszt.
0 goao
821
50
0405
047125
020040
021440
046111
044514
020040
040505
ozeszg
044123
020040
047125
020040

250
6522
gooa
ooag
12
052111
0425264
050040
021440
045512
052503
020040
045101
04 so;
040527
052111
042524

6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383

6387

035302
035310
035316
035324
035332
035340
035346
035354
035362
035365
035372
035400
035406
035414
035422
035430
035436
035444

046111
044123
020040
020040
030122
051503
02
02
033122
125
020043
020124
044501
053440
041440
ogoo«o
020040
020064

021440
o«zsog
040527
020040
020040
031122
051503
020040
000
044516
052040
020043
020114
051501
051123
051503
041440
041440

020124
051505
043040
020043
020040
ogooso
031122
051123
051123

6391
6392

035470
035476

021440
046111

020040
021440

040506
020040

639%
6395
6396
6397
6398
6399
6400

035512
035520
035552
035534
035542
035550
035556

020040
043106
042502
057503
020040
ogooao
0 3153

026524
020040
020040
0O 112§
051503
020040
000

052502
044123
020040
ogooao
032122
051503

035570
035574

ooszco
00 453

000000
002460

wvwwn

0351
035136
035144
0 5125
035160
o§s194
035172
035200
035206
035514
035 gs
ossg
035
035244
035252
035260
035266

o
o

6352
e;s
6356
6355
6356
635
6358
6359
6360
6361
3
636
6364
6365
6366
6367
6368

F 10
PAGE 122

SEQ 0122

0431
05250
04412
020040
051440
052123
040506
020040
021440
026522
852503
20122
020040
000123
021440
052123

DH10:

.ASCIZ

/UNIT #

TEST #

FAIL #

LINE #

CUR-EA

DH11:

.ASCIZ

/UNIT #

TEST
#

FAIL #

SHBE

WAS

DH12:

LASCIZ

/UNIT
#

TEST
#

FAIL
#

WAS

CSRO

CUR-ADR SHBE

aghSRO

CSR2

WAS/

CSR4

CSR6/

CSR4

CSR6/

6369 oss%l. 021440 020040 040506

6385

020040
020040
020123
051503
020040
020040
032122
051503

238398 8%22;% 829?3? 052111 021440 DH13
6390 035462 020040 042524 052123
6393

6403

ASCIZ /UNIT# TEST# FAIL # LINE# T-BUFF SHBE

035504 044514 042516 021440

2235 035562 853256 002460 002452 DT1
002452

DT2:

CSR2

‘5553 CUNIT,TSTNUM,ERNUM, SELO,0
. .WORD

24‘82 3%?2? 882226 88522(‘) 88%) D13 ‘- WORD
6407 035616 005454 000000

CUNIT,TSTNUM,ERNUM,
SHBE ,WAS.0

CUNIT,TSTNUM,ERNUM,CURLIN,O
=

CSR4&

C(CSR6/

CSR2

035
0356
0356

MACY11 30A(1052)

g3t
00;423 DTS:
00234

344

RESIVSHFRE

CUNIT,TSTNUM,ERNUM, CURLIN,CSRO,CSR2,CSR4 ,CSR6,0

.WORD

CUNIT,1STNUM,ERNUM,CURLIN,SHBE
. CSRO,CSR2,CSR4,CSR6,0

.WORD

CUNIT,TSTNUM,ERNUM,RE
CBUF , SHBE ,WAS ,0

002452
002462

DT7:

.WORD

CUNIT,TSTNUM,ERNUM,
XOUT ,ROUT , SHBE ,WAS ,0

002452
002500
000000
002452
002342
002350

DT10:

.WORD

CUNIT,TSTNUM,ERNUM,
CURLIN, CUREA, CURBUF , SHBE ,WAS ,0

DT11:

.WORD

CUNIT,TSTNUM,ERNUM,
SHBE ,WAS ,CSRO,CSR2,CSR4 ,CSR6,0

002452
002344

pT12:

.WORD

CUNIT,TSTNUM,ERNUM,WAS ,CSRO,CSR2,CSR4,CSR6,0

DT13:

CUNIT,TSTNUM,ERNUM, CURLIN,XOUT,SHBE ,CSR2,CSR4,CSR6,0

DF1:

1.0,0,0,0,0,0

CCPFRM:

.WORD

016777,123200,060520,103405,100400,000423,063230,000401

063232
010001

.WORD

063233,000402,063232,000777,063231,010001,004002,016403

016601
016626

.WORD

016403,004003,016601,016602,016777,016626,016427,016403
016406,016634,016625,016422,016436,016421,016405,016430
016607,016435,016424,000400,061220,061222,110422,000560

063236,004400,073237,062231,047634,102473,020661,
106532

W
OO N

S NSRRI 2R
- SNPNOONND)
NO

102076,004420,073016,047634,020660,113745,113213,004420

N SO0

OO0

SoSRS&

OOO0O0O0O

004003

.WORD

DTé6:

000423

OO0O0O00O

6 10
PAGE 123

002452
002464

060520

ges0-9=099
wrn
N d% R
- g-a-.—n-.-l
RS S KWNN
ENSIUR
SRe8

08:50

002350

000000
000000

01640

21-0CT-81

ROUTINE TO SIZE MEMORY

DT4:

002456
002454
002346
002456

® RERE2L2RLRT ®
OVB®NOWVESWNN—O 38

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

023601

.WORD

073417,103446,100453,004420,063016,100470,002012,000400

.WORD

063223,057235,023601,063222,061620,061620,061620,061620

SEQ@ 0123

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
64
6465
6466
6467

036266
036274

6469
6470
6471
6472
6473
6476
6475
6476
6477
6478
6479
6480
6481
6482
6483
84
6485
86
6487
6488
6489
90
6491
6492
6493

306
036314
036320
036326
036334
036340
036346
036356
036360
036366
036374
036400
0364
036414
036420
036426
036434
036440
036446
036454
036460
036466
036474
036500
036506
036514
036520

063222
061620
063721
063721
1406 g
01
101544
054362
054362
077223
063163
06
104543
074615
016575
070217
002562
062602
000414
101572
063223
0006401
016606
100724
043223
102323
010006
054362
101717
054362

061620
061620
061620
061620
102140
004%23
054
101461
101461
054362
101134
063223
070217
107553
016400
064214
070017
100461
070017
000410
124543
104572
060615
016517
104543
004003
054362
101713
003004
101704

6496
6497

036540
036546

6500

6503

MACY11 30A(1052)
21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

H 10
PAGE 124

061620
061620
063721

.WORD

063721,061620,061620,063721,061620,063721,140632,102140

054362
101544

.WORD

010003,004003,054362,101544,054362,101544,054362,101461

01441
10155

.WORD

054362,101461,014412,077223,054362,101553,063163,101134

000402
064214

.WORD

060602,063223,000402,104543,070217,064214,074615,107553

100772
014414

.WORD

016575,016400,100772,070217,064214,014414,002562,070017

9002517
040362

.WORD

062602,100461,002517,000414,070017,040362,101572,000410

043223
102201

.WORD

043223,104543,043223,000401,104572,102201,016606,060615

014420
104543

.WORD

100724,016517,014420,043223,104543,104543,102323,004003

101461
054362

.WORD

010006,054362,101461,054362,101713,054362,101717,003004

?59?;;

063164
064214

.WORD

054362,101704,063164,101220,070077,064214,060615,107553

014775
103241

077225
060602

060615
062223

.WORD

014775,077225,060615,103241,060602,062223,000402,063221

2233 8%3228 ?822g2 8%%%8; 104423
036566

016517

054362

101650

WORD

104424 ,062602,104423,016517,054362,101650,000774,104416

ggg} 832253 888553 }822}g 016517
036606

054362

101657

000774

WORD 000403,104416,016517,054362,101657,000774,104416,000402

gggg 8%2253 }82212 88g23§ 000414
036626 070017

040362

101670

WORD

ggg‘ 8%2223 883%8% 52%3 g 104572
6509

036646

023301

000776

063661

WORD 000401,043223,104572,023301,000776,063661,062234,060461

gg}? 8%2223 82%5%2 888?91 063225
6512 036666 104476 07007; 0642%4
gg}‘ 8%2?53 8988?} 2253 100461

WORD 062234,000772,063225,104476,070077,064234,002661,000414

6515

036706

070077

064214

002643

223?

8362%2

101220

gg}g 8%2;38 5225%% 85g2§7 063163
6518 036726 o74g1s 05672% 107553
6519 0367
103372 05622

104416,002606,000414,070017,040362,101670,043222,100624

WORD 070017,062602,100461,070077,064214,002643,100722,070077

WORD 064214,002652,063163,074615,056722,107553,103372,056222

SEQ 0124

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

06060
056412
057222
054661
055230
056411
056411
070217
102355
106007
056413
043222
076402
000411
105403
105003
070217
100461
0005
000773
063225
107076
003001
056401
056227
054661

2223
101362
123221
060 Og
03
101352
105454
062735
120620
61
101366
000404
100737
070017
056411
056411
000420
063225
060665
063225
060615
000403
056222
105044
057222
060702

6547
6548

037160
037166

106037
104476

6550
6551

037200
037206

043222
1046%;

060602,062223,042226,056412,101362,056227,057222,123221

061;31
101752

.WORD

054661,060702,061231,055230,060603,101752,056411,101352

000420
120600

.WORD

056411,105454,000420,070217,062735,120600,102355,120620

042227
100736

.WORD

3
106007 ,100461,042227,056413,101366,100736,043222,000404

076602
060603

.WORD

076402,100737,076602,000411,070017,060603,105403,056411

105454
062735

.WORD

105003,056411,105454,070217,00042C,062735,100461,063225

061231
104476

.WORD

000500,060665,061231,000773,063225,104476,063225,060615

070017
042226

.WORD

107076,000403,070017,003001,056222,042226,056401,105044

123221
061231

.WORD

056227,057222,123221,054661,060702,061231,055230,
120600

120620
042227

106007
056413

.WORD

106037,120620,106007,104476,0462227,056413,105050,
104431

000404
070217

076402
014401

.WORD

043222,000404,076402,104432,070217,014401,063225,057221

};

89228}

.WORD

057222,070217,000401,064334,074615,076601,076602,064214

}822;1

.WORD

107023,120600,106071,120620,106007,104476,004620,070217

8?2%55

.WORD

042733,064214,043221,076701,016517,016400,014410,057221

82§gg;

.WORD

057222,057223,004002,010000,056413,043227,062407,070207

82328;

.WORD

076617,016604,076601,076602,076603,062605,100461,000776

8%%%%2

.WORD

063225,104476,023301,000776,063661,062234,060461,062234

agg;;z

.WORD

057635,107553,104527,063225,023301,000776,063661,062234

1 94573
070217

.WORD

060461,062234,104573,060535,107563,070217,000500,076715

nN) W

O =

289
nNO
N]

O
W

NN
A NIN)
= = =

28
P
NESSES
—

g§N

SHONO

I
TR

(=] O
=
lelele]
WW
NN
~ NN
W

[«)

AV,]

o5 LR
33 BN

w
w

6535

PAGE 125

.WORD

6531
6532
6533

110

042226
056227

gN ~N

6537
6538
6539
6540
6541
6542
6543
6544
6545

036740
036746
036756
0%27
036766
0367764
037000
037006
037014
037020
037026
037034
037040
037046
037054
037060
037
037074
037100
037106
037114
037120
037126
037134
037140
037146

O==00O

6520
6521
6522
652
6526
6525
6526
6527
6528
6529

MACY11 30A(1052)
21-0CT-81
08:50
ROUTINE TO SIZE MEMORY

SEQ@ 0125

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

J 10
PAGE 126

.WORD

002517,000440,104543,023301,000776,063661,062234,060461

100461
004
3
070204
076603

063225
010000

.WORD

062234,100461,063225,000410,004002,010000,056413,043224

076617
076602

.WORD

062404 ,070204,076617,016405,076603,076602,016400,076605

043628

88286?

.WORD

100461,043620,106614,110556,002720,004001,016621,002517

2517
24?9

070017
004001

.WORD

004600,002517,070017,016600,002400,004001,002400,070017

N
N
&

62322?

5
P

076715
440

N
~J

NOWVION
- O =

SARGSFRgsfil

&»

=]
W

0005

(=1

037414

~
&~

6576

MACY11 30A(1052)
21-0CT-81
08:50
ROUTINE TO SIZE MEMORY

6592
6593

037540
037546

002601
064617

000611
062%31

070317
002635

.WORD

002601,000611,070317,064617,062231,002635,000673,062232

6595
6596

037560
037566

.WORD

000547,062230,060220,000400,002372,962230,060220,000626

037600
037606

062230
882 72
000626
062230
000401

060220
062230

6598
6599
6600
6601
6602

000421
002172

.WORD

002232,062230,000421,062234,000401,002172,062230,110556

037620
03;626

000547
000400
060220
002232
062%;3
062
123561
}06272

107214
1066;}

061620
061620

.WORD

123561,107214,061620,106272,106671,061620,106711,060521

6604
6605
6606
6607
6608
6609
6610
6611
6612
6613
6614
6615
6616
6617

037640
037646
037654
037660
037666
0376764
037700
037706
037714
037720
037726
037734
037740
037746

107723
061620
047634
113556
110556
113556
110556
113156
000412
136500
123141
000740
020700
062236

110556
106704
043635
000500
047634
002673
070216
20
070016
122520
000437
063261
2
110556

120400
070216

.WORD

107723,110556,120400,061620,106704,070216,047634,043635

062715
057635

.WORD

113556,000500,062715,110556.047634,057635,113556.002673

043634
062714

.WORD

110556,070216,043634,113156,000420,062714.000412.070016

110556
063222

.WORD

136500,122520,110556,723141,000437,063222,000740,063261

060701
061620

.WORD

020700,060662,060701,062234,110556,061620,106740,070216

22}3
3%;;23 529732 ?;gg}é 043635
6620 037766 107950 064333 043635
fi? %%fi w&& 3%% 120400
6623 0460006 061650 112405 016400
225§ 823333 }33?00 '36358 063260
6626 0460026 063120 323140 063140
223; 328340 ?5514? 853259 076561

WORD

123141,000437,076561,111002,123160,063260,063160,076660

123160

.WORD

123160,110556,123160,076660,110556,137160,014700,077260

6629
6630
6631

040046
040056
040060

111002
063160
123160

123160
076660
110556

063260

WORD 047634,112556,043635,107750,064333,043635,107750.110556
WORD 000423,076675,120400,061620,112405,016400,136500,
136520
‘
WORD 123160,000700,063260,063120,063140,063140,063120.076520

SEQ@ 0126

SEQ 0127

022500

e 3}38

.WORD

063120,063140,063140,063120,136500,136520,076520,016500

azgg%g

.WORD

016421,104770,170610,004002,010000,043620,111514,076560

0
5

8%%2%3

MOURD

014410,043225,062405,070205,054620,061620,061620,061620

057625
054411

.WORD

061620,061223,057625,112103,113457,054411,061224,111060

o
o

N
~J
N

137160

)

0
5
000404
2
gg

111061
060741

.WORD

054411,061225,111061,057221,000404,060741,110462,055224

82}2%8

.WORD

055225,054620,061620,061620,061620,061620,061227,055226

6
120440

060660

.WORD

003360,120440,060660,063305,000600,060705,061222,060525

5%?351

.WORD

113510,000604,110611,055224,055225,055226,055227,110470

;

061311

.WORD

123620,000700,061311,110501,123400,061620,113120,100447

SEER =S &
S8
& oW
T e
T

0520

.WORD

000600,061300,060520,113526,000532,110611,000600,061231

.WORD

000575,110611,123400,061620,113163,123077,000407,063277

.WORD

063137,063137,063137,073537,062231,004600,060417,063236

6
0

.WORD

120400,112154,112556,104735,106611,104660,123000,000500

11
1

.WORD

061260,000423,110611,060600,113566,110514,060520,113571

1
30

.WORD

100447,000600,061231,000575,110611,123400,061620,113201

7
7

.WORD

110535,060600,103447,110514,123440,103447,000500,061262

;

.WORD

000423,063230,100447,057635,154632,000401,070016,002671

0
7

.WORD

000407,070016,120600,112222,120620,112337,022420,023002

060705

Goces

NN NN
— NI =2
=

—

W
wv
N
N

g § =1

000600

cded
b
- b
OO0 OO
Ng
—ed

R
S
e

H VO NN

=W~
S

K 10
PAGE 127

110556

3838SIVIISA

Siecs
A\
V]

b b

—

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

—

Wo
=2 Wt

)
wviorwn
N
o

222 o
RRRRR SRPS2
33333 PINESS

838

EREEREEES33RS

-3

-t OO =

-AN\IOVO—‘g SSREIZS2K
2R
pr]
o
NE === oo~§go8
vouvu-uw-a-mg
SEEEQo WS
& NN
W
o
NSNS
— = SRS
OONNINNON N=NONNO
SNONNN—'N
o= ONSHSONW
NSOR NI RESS o rRNSSSS

076660

R
®

(=]

o
o
W
W
N N —2
&H
o
o

SREERE
25
uwo
SN

—

prg—y

ROrRESN

og ggg?

NONE

SERRS
NN W

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC 7:0
CZKMEA.P11
20-0CT-81 17:05

040540

110773

000411

MACY11 30A(1052)
21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

070016

6691 040560 0166§§ 016132 042230

6692
6693
6696
6695
6696
6697
6698
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731

040566
040576
040600
0460606
060614
060620
060626
040634
040640
040646
0460656
040660
04
040674
040700
040706
040714
040720
040726
040734
040740
060746
040754
040760
040766
040774
041000
041006
041014
061020
041026
041034
041040
041046
041056
041060
041066
041074
041100
041106

070216
110714
002172
110661
oegzso
063225
042733
016400
057222
054620
ool.oog
056413
062404
076600
oreeo;
100467
070216
042721
056413
062404
076617
016400
100467
000500
000773
110647
060602
061620
063721
061620
063721
060725
000410
ooz13;
100467
060614
103467
000401
100467
070016

000420
063225
000401
002172
000772
007200
064214
057221
057223
112276
010000
043224
070204
076601
076603
000420
000
004002
043224
070204
010401
015400
063225
06
110647
063225
063221
061620
061620
063721
600
063322
070016
060602
060220
117312
016411
062230
016465
042554

6735
6736
6737

041136
041140
041146

115033
115033
120609

67643

041206

020400

062734

.WORD

L 10
PAGE 128

110773,000411,070016,004000,150632,016640,043222,110773

.WORD 016635.016132,042230,070216,000420,062734,110714,063225

062230

.WORD

002172,000401,062230,110661,002172,000402,062230,000772

070216
056700

.WORD

063225,007200,070216,042733,064214,056700,016400,057221

054220
003000

.WORD

057222,057223,054220,054620,112276.003000,004002,010000

000410
076617

LWORD

056413,043224,000410,062404,070204,076617,076600,076601

062605
063221

.WORD

076602,076603,062605,100467,000420,063221,070216,004000

010000
000410

LWORD

042721,004002,010000,056413,043224,000410,062404
070204

016400
002401

.MORD

076617,016401,016400,016400,016400,002401,100467,063225

061231
000777

.WORD

000500,060665,061231,000773,110647.,000777.,110647.063225

061620
061620

.WORD

060602,063221,061620,061620,061620,061620,063721,061620

061620
060661

.WORD

061620,063721,061620,063721,000600,060661,060725,063322

042722
062230

.WORD

000410,070016,042722,002132,060602,062230,100467,060220

060615
002172

.WORD

060614,117312,060615,103467,016411,002172.,000401,062230

00040
05641

.WORD

100467,016465.,000402,070016,042224,056412,043621,062225

042411
000767
116033

110660
120620

.WORD

062230

060220

000402

25%% 32}}53 8?225} 3252 ? 115062
6734 oa11§2 074431 oe12§o 056411
25%3 321323 555230 83338? 060361
67640 041166 1154§5 003202 060362
%? %5% 3%% %&% 002132

WORD 076501,043221,115062,074461,061230,056411,115033.,042411
115033,000767.,110660,120600,116033,120620,112337,034400

WORD 022420,003201,060361,115452,003202.060362.115452.000401
"
‘
WORD 070016,002671,002132,020400,062230,060220,002172,000400

SEQ 0128

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
67644
6745
67646
6747
67648
6749
6750
6751
6752
6753
6756
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772

6773
6776
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785

041214
0415 0
041226
041
041240
041246
041254
041%60
041266
041274
061300
041306
041314
041320
041326
041336
041340
041346
041354
061360
041366
041374
041400
0416406
0461414
041420
041426

041434
041440

041446
041454
04146C
041466
041474
041500
041506
041514
041520
041526
041534
041540
041546

002172
062230
062401
000405
056411
115077
002621
070016
00
113231
113654
o«zzga
062225
04 251
061230
062411
042411
002621
120620
023002
01
000407
12
112337
13
115563
00
062401
16

00
100437
114423
070019
115077
000401
000407
osrzz;
110747
060535
oooaog
056412
076501
115165
056411
115143
000401
120600
112337
000400
070016
070016
116150
022420
060762
000600
110747

114522
113231

113654
070016
115210
043222
621
054220
762
114
110747
070016
016745
ooocog
060535

002505
056411
056411
000401
114617
043222
115617
000400
002626
043222
002172
062230
113654

076501
074461
056411
111215

043221
061230
111215
042411

MACY11 30A(1052)
21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

000404
002505

WORD

062230,100467,000404,062401,114423,002505,000405,070016

056411
070016

.WORD

056411,115077,056411,115077,000401,070016,002621,000407

002400
060614

.WORD

070016,057222,002400,000400,110747,060614,113231,060535

070016
043621

LWORD

113654,000402,070016,042224,056412,043621,062225,076501

074461
115143

LMORD

043221,115165,074461,061230,056411,115143,042411,115143

070016
116134

.WORD

042411,000401,070016,002621,120600,116134,120620,112337

110747
002570

.WORD

023002,000400,110747,000401,070016,002570,000407,070016

120620
023002

.WORD

120600,116150,120620,112337,022420.023002.000613,060762

110747
000404

.WORD

115563,000600,110747,000400,110747,000404 ,062401,114522

060535

.WORD

060614,113231,060535,113654,002505,000405,070016,056411

115211
070016

LWORD

115210,056411,115211,043222,000401,070016,002621,114617

000613
000600

.WORD

054220,043222,000613,060762.115617,000600.114620,000400

000410
110773

.WORD

110747,002626.000410,070016,043222,110773.016745,002172

100467
000402

.WORD

000402,062230,100467,060535,113654,000402,070016,042224

000405

2539 323?23 3;22}3 32555? 062225
6788
6789
6790
6791

041566
041574
041600
041606

m10
PAGE 129

115266

LWORD

056411,111215,042411,111215,042411,000401,070016.002626

2;3% 321253 ?58253 ??2353 120620
679% 0%16%2 112337 ozgooz 110773
2;32 82}240 ??222‘ 325?9; 113654
6797 041646 oozes? 000405 070016

WORD
WORD

120600,116260,120620,112337,023002,110773,000404 062401
’
.
:
‘
‘
114646,060535,113654,002633,000405,070016,056411,115307

043222

.WORD

056411,115310,043222.000401,070016,002626.110773,054220

6798
6799

0416564
041660

056411
056411

115307
115310

042411
000401

WORD 056412,043621,062225,076501,043221,115266.074461.061230

SEQ 0129

17:05

6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
681§

041666
0416764
041700
041706
041714
041720
0417;2
0417
041740
041746
041756
041760
061766

000401
110773
04 2;
0021
100467
004003
002132
0006%0
062230
004000
043222
01
gg
0622

070016
054 ;g
110
000401
002732
000418
042230
00217;
100467
000413
110773
002172
110714

6816
6817
6818
6819
6820

042014
042020
042026
0462034
042040
062046
042054

000000
001007
114763
001067
001107
114773
001167

000000
114761
001047
114767
114771
001147
114777

MACY11 30A(1052)
21-0CT;g;°R98:50
ROUTINE TO SIZE

N 10
PAGE 130

002626
043222,110773,002717,002172,000401,062230,100467,002732

070016
040222

.WORD

004000,000412,070016,002132,042230,040222,000400,002172

016740
070016

.WORD

062230,100467,016740,004000,000413,070016,043222,110773

0006%%
0605

.WORD

016400,002172,000402,062230,110714,060535,117751,000401

gg}k
82;558 }}Ozga 888?2; 110660
6815 042006 000000 000000 000000

WORD

110660,000766,110660,000000,000000,000000,000000,000000

001027
114765

.WORD

001007,114761,001027,114763,001047,114765,001067,114767

001127
114775

.WORD

001107,114771,001127,114773,001147,114775,001167,114777

?
g

.WORD

szgece

002717
062230

CCPEND:

SEQ@ 0130

lalal

g
—b

—

8
[« -]

~ =<

CZKMEAO DMS11-DA D
CZKMEA.P11
20-0

§827

042060

6829

6833
683

042106
Qugile

6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882

042126
042134
0e2140
042146
042154
042160
042166
042174
042200
042206
042214
042220
042206
042234
042240
042246
042254
042260
042266
042274
042300
042306
042314
042320
042326
042334
042340
042346
042354
042360
042366
042374
042400
042406
042414
042420
042426
042434
042140
042446
042454
042460
02460
Qu2u7e
042500
042506
042514

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

e n
PAGE 131

BOPW32:
016777

123200

060520

000777
004002

063231
016408

010001

061222
063236
Q73237
102451
102606
073016
107664
073417
100431
10044e
002012
103715
070017
070077
056407
043220
100466
036600
062735
056222
056226
123221
055030
101123
000420
12
120620
003000
004600
042727
062701
056407
000410
016604
076600
000401
016601
070017
101172
101175
000404
100571
(016801
002052
103621
103302
102623

114400
004400
062231
0
004420
047634
107003
103424
004420
020660
057635
140620
056406
100477
101073
000404
016505
000420
100437
022203
056227
054661
056411
056411
070217
102126
102374
016462
070217
064214
004002
043226
062404
076617
016400
062620
022600
056406
100501
100571
076400
023200
036600
03763
023605
060605
102244

000560

6831 05074
“gi 042100

063330 000601 oo
06 % 7 000402 063226

€835 003120

003408 000400 061220

.WORD

016777,123200,060520,103405,100400,000401,
063230, 000401

WORD 063227,000402,063226,000777,063231,010001,004002,
016403
.WORD 002403,000400,061220,061222,114400,000560,
063236, 004400

047634
102054

.WORD

073237,062231,047634,102451,020660,
102054 102606 , 004420

020660
004420

WORD

073016,047634,020660,107664,107003,004420,073417,103424

063016
102606

.WORD

100431,004420,063016,100446,020660,
102606 ,002012,057635

000403
101070

.WORD

103715,140620,000403,070017,056406,101070,070077,
100477

100466
076400

.WORD

056407,101073,100466,043220,000404
076400, 100466016505

070217
016462

.WORD

036600,000420,070217,062735,100437,016462,056222,022203

057220
061311

.WORD

056226,056227,057220,123221,054661,061311,055230,056411

101631
062735

.WORD

101123,056411,101631,0004620,070217,062735,120600,102126

100437
036600

.WORD

120620,102374,100437,003000,016462,036600,004600,070217

063221
010000

WORD

042727,064214,043221,062701,004002,010000,056407
043224

070204
076614

.WORD

000410,062404 070204 ,016604,076617,076614
076600016400

100437
000403

.WORD

000401,062620,100437,016601,022600,000403,070017
056406

05407
043220

.WORD

101172,100501,056407,101175,100571,043220,
000404 ,076400

100536
100501

.WORD

100571,023200,100536,016601,036600,100501,002052,057635

060525
061620

.WORD

103621,023605,060525,103302,060605,061620,
102623, 102244

SEQ 0131

e Yl

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20~0CT=-81 17:05

0462620

909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920

042626
042634
042640
042646
042656
042660
666
0626764
042700
042706
042714
042720
0462726
042734
062740
042746
062756
042760
0462766
042774
0463000
043006
0463014
043020
043026

6926

043066

6897
6898
6899
900
6901
690
6903
6904
6905
6
6907

056407

043224
070204
016400
076605
004600
064214
000410
010000
062400

070200
076614
076605
ooz4o§
00077
100437
062274
000420
076715
100750
062274
062274
103037
062715
063225
010000
062404
016405
016400
100437
070217
043221
wwg
056407
070200

057635

103445

102676
002774
062274
000770
063224
070217
062274
770
000771
061620
000440

100437,020200,100715,000771,063224,000420,070217,076715

105231
057625

.WORD

100750,120600,102231,120620,102374,057625,070077,103242

002563
074615

.WORD

002533,100501,002563,100501,002012,074615,023204,103251

070517
056727

.WORD

062604,003200,070217,042700,004000,056727,004002,010000

043220

.WORD

000410,056407,043220,062400,070200,016604,076617,076614

023700
100437

.WORD

076604,076605,023700,102676,002402,100437,002774,000773

023300
000776

.WORD

062274,100437,023300,000770,062274,000776,063224
000420

000771
023300

.WORD

070217,076715,000771,062274,100750,023300,000770,
062274

060615
070217

.WORD

000771,062274,060615,061620,103037,070217,000440,062715

000410
056407

.WORD

000404 ,063225,000410,004002,010000,056407,043224,062404

076617
016400

.WORD

070204,016405,076617,016400,016400,016400,076605,100437

042727
076701

.WORD

004600,070217,042727,064214,043221,076701,000410,
004002

043220
016404

.WORD

010000,056407,043220,062400,070200,016404,076617,076614

016604

3? %%fi %fi% %“% 062604
6923 043046 100437 062306 000500
235? 82%823 333993 32%531 100750

WORD 016400,016400,062604,100437,063204,000500,060664
061231
‘
WORD 000773,063224,100750,057635,103445,147232,016132,056230

2355 823?53 333135 3;35?0 062735
6929 0463106 100445 oczzsg 016447
23%? 3233;3 833555 8133°2 056406
693 043152 105037 osezfs 055230
23%4 823340 933285 ?528%3 120620

WORD 000420,070216,062735,100445,062233,016447.016172.014401
WORD 062230,042224,056406,105037,056225,055230,000402,070016
’
5
WORD 120600,106030,120620,106652,036400,036420,100445,042225

2339
825123 5?2237 ?35533 104425
6938 043166 041230 003004 056404

WORD 056407,105043,104425,041230,003004,056404 ., 104426,016464

6935

043146

1oeosg

osg«oo

147232

036420

LWORD

[_ L L

100715

000420

020200
063224
076715
15°?°°
1 § 76
103242
100501
002012
103251
003200
004000
010000

T P

1004;7

000771
070217
100750
1206;9
070077
002533
100501
023204
062604
0462700
004002
000410
062400
076617

SEQ@ 0132

‘

T CT P P P P P O T P P

6895

0462520
04 552
062534
042540
042546
o«sss«
0462560
042566
0425764
042600
0462606
042614

cn
PAGE 132

T P PT P P P P

6883
6884
6885
6339
6887
6888
6889
6890
6891
689%
6893
6896

MACY11 30A(1052)
21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

PR PR FTR PR PR PTR PR PR P P

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PI
20-0CT-81 17:05

6980

043526

070016

016457
054220

.WORD

104450,062233,016457,104416,016132,054220,056230,0462224

056225
105100

.WORD

056406,105123,056225,055230,056411,105100,042411,105512

076735
120620

.WORD

070216,000420,076735,134600,106114,120620,106652,036400

070076
106114

.WORD

036420,100445,070076,016533,120600,106114,120620,
106652

100445
105127

WORD

036400,036420,100445,042225,056407,105127,104473,041230

104474
000411

.WORD

003004 ,056404,104474,016574,043221,000411,070016,043622

063122
0626

.WORD

107170,002372,063122,063122,063522,062602,060522,062230

002132
060220

.WORD

060220,060601,002132,062230,000402,060220,002172,062230

061620
100445

.WORD

070216,054620,061620,107166,002615,100445,002603,
100445

062230
054220

.WORD

002132,060601,062230,100445,054220,054220,057221,000411

104541
000401

.WORD

070016,043222,104541,016610,002172,000401,062230,
100445

002172
100445

000401
007200

.WORD

002615,002172,000401,062230,100445,007200,070216,042727

043225

004002

)

WORD

064214,056700,000411,070016,043225,004002,010000,056407

23;3 323?53 8225}2 3?5555 000411

3%
&%fi &%% %&% 062404
6983 043546 070204 016400 076617

’

6986 043566 106646 002401

233? 82%?23 8;2233 833253 061620
100445

2335 823253 3257;2 ?88ZZ§ 063224
6989 043606
gog
64 061231
233? 825253 833?5 333452 062230
699

6993

6994

0436;2

043636

043640

)

’

)

‘

WORD 076605,023700,061620,106646,002401,100445,002774.,000775
-

)

’

‘

’

WORD 062274 ,100445,063224,000500,060664,061231,000773.063224
e,
:
.
.
.
WORD 002172,000404,062230,104673,002172,000777.063224 000401

002172

000777

’

062230

043635

103445

.WORD

000401

WORD 043224,000410,062404,070204,016400,076617,076614,054220
s
i
g
.
]
‘
‘

104673

063224

e talalalealealea il lealeleale ey

002515
062230

002132,056230,000400,060220,002172,062230,100445,016574

043500
043506

.WORD

6976
6977

6969
6970
6971
6972
6973
6974

043374
36400
06
043414
043420
043426

000400
062230

TM~

164
0532 g
0021
016574
062233
013132
04 254
105123
056411
105512
000420
106114
036400
100445
120600
106652
036420
056407
041230
056404
0463221
043622
002372
063522
062230
060601
000402
062230
054620
002615
100445
060601
054220
000411
043222
002172

SEQ 0133

€3

043434
043440
043446
043454
043460
0463466

1044
1
220
100445
104450
104416
056230
OSgkgg
0552
042411
070216
134600
106652
0364%2
0165
120620
036400
0422;5
104473
003
016574
070016
107170
063122
060522
060220
062230
002172
070216
107166
002603
002132
100445
057221
070016
016610

6965
6966
6967
6968

043174
043200
043206
043214
04
063226
0432
043240
043246
043256
063260
043266
043276
043300
043306
0433146
043320
043326
043334
043340
043346
043354
043360

PN
PAGE 133

lalYalelalelalalealelelelalelael
Y olelelolelelelela]

6939
6940
6941
6942
6943
6946
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

062230,043635,103445,007200,070216,042727.064214,056700

CZKMEAD DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

—

————

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 1 17:05

042727

0 100C0

823285

.WORD

004002,010000,056407,043220,000410,062400,070200,016400

14
062604

054220
100445

.WORD

076617,076614,054220,016400,062604,100445,043620,106721

8938?;

.WORD

114673,002740,004001,002701,004600,070017,002700,004001

825%3%

.WORD

002701,000673,062232,000407,062230,060220,000400,002372

8;%3?

.WORD

062230,000431,062234,114673,123561,107321,061620,112000

13472

.WORD

106754 ,060521,113472,114673,004002,010000,056407,043220

.WORD

120400,061620,112436,070216,047234,043635,117673,002172

.WORD

004002,010000,056407,043220,000410,062400,070200,016400

016400
114673

.WORD

076617,076614,016400,016400,016772,114673,047234,043635

8%322}

.WORD

117673,000776,023301,063661,062234,060461,062234,004600

83255}

.WORD

042727,064214,043221,076701,014410,004002,010000,056407

8;2%?2

.WORD

043220,062400,070200,016404,076617,076614,016400,016400

653}28

.WORD

016772,114673,123141,000437,063222,000740,063261,020700

82%%38

.WORD

060662,060701,062234,114673,120400,061620,112605,070216

822 gz

.WORD

047634,116673,043635,113521,000401,064334,043635,113524

(=1~

S
N
S
SS

—~

61%2%2

056407
062400

Sares
—
—

000410,060660,061620,061620,061620,076620,002410,114673

0000
000410

—2

3 (=]

222

.WORD

000404 ,062230,000772,063224,007200,042727,064214,056700

“§§§§z:z 5

lolelelelele]

' > Reo
;NN

R=R
NN
&

e ®

N
N
~5 N
N
NN
W
N
&»
o

Far

R
S
2R
ERGSGSSH
-~
(=]

S
~

891258

000772
042727

16772

000410,062400,070200,016405,076617,016400,016400,023260

200

A
o
RO
==~y & 92
gspese
W §-a°-a 3
WS
SSE R RET
~r

063220

Ro8a8a852S

&S00

0441%2

&
—

Ro
o

—

N
o

044060
066

RRR

N
~

7028

£
R
SoaRos

=1
N

7021
702

106754

QN8R
N =2
o

N
&~

044000
044006

~NONWVESW

7012

y < ®R
N o~
=
)
)< S N

3 S 333 S
§—l-‘§d—.

2RRRP
G
PPN

661
gzoo

EN
PAGE 134

870 16

007200

043646

SSSRIZISIRISR
—_— 8N
W
SN
N
RO HN
W
R3
SN gowoos N SNSRSILIHISS

2995

MACY11 30A(1052)
21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

SEQ@ 0134

MACY11 30A(1052)
21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

33 =000
N&N&SNN
O0O0OOW—WN
o
U!OHSWO

- D b =

& FRESER==S

N
&»H

063120,063140,063140,063120,063120,076460,123141,063161
123160,000401,063250,111156,063160,063260,063161,111166

063160,111166,070076,002461,000407,070016,076601,000401

000407
0004
123160
0004

076660,123160,000436,076660,00044(,063260,000420,063300
070216

000403,060675,070216,076700,114673,047634,116673,043635

064334
114673

113616,000401,064334,063635,113621,114673,060535,113624

113624
016477

110611,060535,113624,114673,054220,016477,054220,136500

000740
063140

136520,123160,000740,063260,063120,063140,063140,063120

016421
076740

076520,016500,016421,123140,000402,076740,111671,111257

063260
123160

123160,000401,063260,063160,076660,123160,110662,123160

000436
060675

000401,076660,000436,076660,000403,060675,070217,076675

000401
111700

114673,123160,000401,063260,063160,111700,076660,
110662

113305

070077,123560,113305,002533,110706,002603,000412,070017

047634

002603
060220
060220

.WORD

110662,060220,060220,060220,060220,060220,
060220, 060220

060220

.WORD

060220,060220,060220,060220,060220,060220,060220,
060220

060220, 060220,060220,060220,060220,060220,
060220, 060220
.WORD

SEQ@ 0135

114673,060535,113527,110514,060535,113527,114673,054220
016414,054220,054220,136500,136520,123160,000740,063260

::g%&&&

2222

.WORD

g
W
— e e SN
ek =D )

2SS S22UIES BWOOW

060535
535
054
054

F1N
PAGE 135

060220,060220,060220,060220,060220,060220,060220,060220

_—~~a—

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

7116
7115
7116
7117
7118
7119
7120
7121
7122
7123
7126
7125
7126
7127
7128
7129
7130
7131
7132
7133
7134
7135
7136
7137
7138
7139
7140
7141
7162
7143
7146
7145
7146
7147
7148
7149
7150
7151
7152
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162

044774

045000
045006
045014
045020
045026
045034

045040
045046
045054
045060
045066
045074
045100
045106
045114
045120
045126
045134
045140
045146
045154
045160
045166
045174
045200
045206
045214
045220
045226
045234
045240
045246
045254
045260
045266
045274
045300
045306
045316
045320
045326
045334
045340
045346
045354
045360
045366
0453764
045400
045406
045414
045420
045426
0454
045440

060220

060 8
060
060220
060220
060550
060220

060220
060220
220
174610
043620
014410
2405
116167
061620
1620
057220
2
061620
063223
060605
116500
043221
014420
061620
055225
063120
063120
060703
120440
063305
061222
000700
070217
062701
061620
060605
070017
056226
057%20
061311
070017
061224
115135
000404
120600
116145
061231
061223
117112
056406
076500
043221
114512
061620

828220
8
060
060220
060220
060220
060220
060220
060220
060220
004002
115606
043225
070205
057637
061620
061223
000560
061620
061620
055226
061620
000600
000500
074661
077303
057220
063120
000700
061227
060660
000600
060525
114705
043221
000420
063303
117552
056222
056227
1232;1
055230
054406
057220
114540
062400
116140
114454
000773
114454
000403
063229
115163
000404
054620
061620

6_11
PAGE 136

060250
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

010000
076560

.WORD

174610,004002,010000,043620,115606,076560,014410,043225

057625
061620

.WORD

062405,070205,057625,116167,057637,061620,061620,061620

057234
057222

.WORD

061620,061223,057234,057220,000560,057222,060662,061620

061620
064214

.WORD

i
061620,061620,061620,063223,055226,064214,060605,061620

070017
076701

.WORD

116500,000600,070017,043221,000500,076701,014420,074661

055224
063120

.WORD

061620,077303,055224,055225,057220,063120,063120,063120

060660
003360

.WORD

063120,000700,060660,060703,061227,003360,120440,060660

060705
117602

.WORD

063305,000600,060705,061222,060525,117602,000700,114705

000500
060661

.WORD

070217,043221,000500.062701,000420,060661,061620,063303

000402
062203

.WORD

060605,117552.000402,070017,056222,062203,056226,056227

054661
000403

.WORD

057220,123221,054661,061311,055230,000403,070017,054406

061105
043220

.WORD

061224,057220,061105,115135,114540,043220,000404
,062400

120620
000400

.WORD

120600,116140,120620,116145,114454,000400,061231,000773

060601
070017

.WORD

061226,114454,060601,117112,000403,070017,056406,043220

114512
076401

.WORD

076500,115163,114512,043221,000404,076401,114512,054620

061620

.WORD

061620,061620,061620,061620,061223,055224,055225,055226

SEQ@ 0136

1
7107

7108
7109
7110
7111
711%
7113

MACY11 32A(1052)
21-0CT =81 98:50
OUTINE TO SIZE MEMOR

MMM EREREXEREREEREEREEREEREREREREREREEEEEEEEEREEREREEEEEEERE®

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P
20-0CT-81 17:05

7209
7210
7211
7212
7213
7214
7215
7216
7217
7218

046014
046020
046026

046034

046040
046046
046054

oW
o=

=N
W
NN

004600,060417,063236,120400,116247,116673,110504,106716

ON
Viohn
WY
OV

.WORD

104744 ,060600,117655,114606,000001,060520,117660,
100425

b
-—

8 8
R
WwWWw

123077,000407,063277,063137,063137,063137,073537,062231

OW
ONND
NN
LN

N
o

117212,100425,123400,000600,061300,060520,117621,000625

.WORD

000600,061231,000664,114705,123400,061620,117270,114630
060600,103425,114606,123000,000500,061260,000401,114705

-2\

.WORD

123440,103425,000500,061262,000401,063230,
100425, 000000

.WORD

000000,000000,000000,000000,000000,000000,000000,000000

000000
000000

.WORD

000000,000000,000000,000000,000000,000000,
000000, 000000

000000
000000

.WORD

000000,000000,000000,000000,000000,000000,
000000, 000000

000000
000000

.WORD

000000,000000,000000,000000,000000,000000,000000,
060000
000000,000000,000000,000000,000000,000000,000000,000000

001007,114761,001027,114763,001047,114765,001067,114767

001067
001107
114773
001167

001107,114771,001127,114773,001147,114775,001167,114777

BOPEND:

016777

123200

060520

BOPN32:

.WORD

016777,123200,060520,103405,100400,000401,063230,000401

SEQ 0137

EEERRRRRBCCCCRARRRRRRRRRRRx

SVIOWVO =WNO" W

..
—

— e S AJY b

WSHONWSHSNNY
NONN=0NNON)
N~
NN

000000

000000
000000
000000
000000
000000
000000
001007
114763

055227 ,114465,123620,000700,06131%.114476,123400,061620

114705,000600,061231,000664,114705,123400,061620,117251

046060
046060
046060

.WORD

H1N
PAGE 137

88RS2RI2R 3
g
Shes8 —DVQ-ISONN-‘NN-‘U!
W

123620
114476

oNO

114705
117270
060600
123000
000401
123440
061262
100425
000000
000000
000000
000000
000000
000000
000000
000000

123400
117212
000600
117621
114705
000664
061620
123077
063137
073537
004600
120400
110504
104744
114606
117660

045474
045500
045506
045514
045520
045526
045534
045540
045546
045554
045560
045566
045574
045600
045606
045614
045620
045626
045634
045640
045646
045654
045660
043666
045674
045700
045706
045714
045720
045726
045734
045740
045746
045754
045760
045766
045774

21-0CT-81
08:50
ROU TINE TO SIZE MEMORY

055224

-ld-.gd
8323
FLoEs
S

045466

0616%0

055225
055 55

MACY11 30A( 1052)

TOOVTOTOTOTOTOUVTOTUVOVOVOOOOOOI=Z222

7200

7201
7202
7203
7204
7205
7206
7207
7208

045446
56564
56460

——

7163

7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7176
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
7185
7186
7187
7188
7189
7190
7191
7192
7193
7194
7195
7196
7197
7198
7199

O =
W

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81

82?3%%

063226
010001

.WORD

063227,000402,063226,000777,063231,010001,004002,016403

061220
000560

.WORD

002403,000400,061220,061222,114400,000560,063236,004400

047634

.WORD

073237,062231,047634,102451,020660,102054,102606,004420

016403
000400
114400
004400
062231
882268

102054

0476
107001

004420

020660

.WORD

073016,047634,020660,107625,107001,004420,073417,103424

004420
020660

063016
102606

.WORD

100431,004420,063016,100446,020660,102606,002012,057635

140620
056406

000403

.WORD

103713,140620,000403,070017,056406.101070,070077,100477

101070

7238
7239
7240

046234
066240
046246

056407
033%22

101073
000404

100466
076400

.WORD

056407,101073,100466,043220,000404,076400,100466,016505

7242
7243

046260
046266

036600
062735

000420
100437

070217
016462

.WORD

036600,000420,070217,062735,100437,016462,056222,022203

7245
7246

046300
046306

056226
123221

056227
054661

057220
061311

.WORD

056226,056227,057220,123221,054661,061311,055230,056411

1123

056411
7
6

52}9%}

.WORD

101123,056411,101631.,000420,070217,062735,120600,102126

5%2235

.WORD

120620,102372,100437,003000,016462,036600,004600,070217

7
g

8?3855

WORD

042727,064214,043221,062701,004002,010000,056407,043224

070204
1258 0uei0s 016604 Or6e1r 076614

.WORD

000410,062404,070204 ,016604,076617,076614,076600,01

022600 000403

100437

.WORD

000401,062620,100437,016601,022600,000403,070017,05

005C1 056407
100571 043220

.WORD

8 328§

}8823?

.WORD

100571,023200,100536,016601,036600,100501,002052,057€35

82?253

.WORD

103621,023605,060525,103300,060605,061620,102623,102244

100713
000430

.WORD

100437,020200,100713,000771,063224,000420,070217,076715

0
000410

062404

=]
o

PN HNSSS
25s22289299322
&38s333

§N

-~ wnho

e
— e

<
o

~N
N
N
&~

062620

&§§§§§as§_§

82383352
g
N—-- Nug
b

OO0

NSRS

2222222
RRRRRRR2S
R
W

S
3% B

076614,076600,016400

204.0

o
101172,100501,056407,101175,100571,043220,
220,000404 .0764 00

TMTM

000401

VOXIVVTY

58828?

DOVDVDDDDVVDVDDIVVID=

NONOO~N

0632

—b b —d PN (N =) = O NN
NWNON
= NN
-

002403
0612

SEQ@ 0138

DD ODDODD

0007
004002

In
PAGE 138

VLMD

103405

-t e OO
O

SR&

s be

046114
046120
046152

7226
7225

046066

7219

MACY11 30A(1052)
21-0CT-81
08:50
ROUTINE TO SIZE MEMORY

wwn

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
7%75
7276
7577
7278

046540
046546
046554
046560

100746
1206;9
0700
002533

7280
7281

046574
6600

023204
062604

7279

046566

100501

MACY11 30A(1052)
21-0CT-81
08:50
ROUTINE TO SIZE MEMORY

J 1
PAGE 139

12
10% 72
10324
100501

10;%31
057625

.WORD

100746,120600,102231,120620,102372,057625,070077,103242

002563

.WORD

002533,100501,002563,100501,002012,074615,023204,103251

103551
003200

070217

.WORD

062604,003200,070217,042700,004000,056727,004002,010000

043220
016604

.WORD

000410,056407,043220,062400,070200,016604,076617,076614

060605
100437

.WORD

076604 ,076605,060605,103676,002402,100437,002774,100437

002012

074615

0466606
046614
046620
046626
046634
046640
0466646

042700
004002
000410
062400
076617
076604
103676

004000
010000
056407
070200
076614
076605
002402

7290
7291

046660
046666

023300
000776

000770
063224

062274
000420

.WORD

023300,000770,062274,000776,063224,000420,070217,076715

7293
7294

046700
046706

000771
883;9?

062274
000770

100746
062274

.WORD

000771,062274,100746,023300,000770,062274,000771,062274

7299
7297

046720
046726

060615
07023{

061620
000440

103037
062715

.WORD

060615,061620,103037,070217,000440,062715,000404
,063225

7299
7300

0467640
046746

004002
043224

010000
062404

.WORD

000410,004002,010000,056407,043224,062404,070204,016405

7302
7303
7304

046760
046766
046774

000410
056407
02
076617
016400
004600
0462727

016400
076605
070217

016400
100437

.WORD

076617,016400,016400,016400,076605,100437,004600,070217

043221
004002

WORD

042727,064214,043221,076701,000410,004002,010000,056407

070200
076614

.WORD

043220,062400,070200,016404,076617,076614,016400,016400

063224
061231

.WORD

062604,100437,063224,000500,060664,061231,000773,063224

103445
056230

.WORD

100746,057635,103445,147220,016132,056230,000420,070216

016444
062230

LWORD

062735,100445,016444,016172,014401,062230,042224,056406

055230
120600

.WORD

105034,056225,055230,000402,070016,120600,106025,120620

036420
056407

.WORD

106213,036400,036420,100445,042225,056407,105040,
104422

056404
002132

.WORD

041230,003004,056404,104423,016460,002132,056230,000400

062230
104445

.WORD

060220,002172,062230,100445,016556,104445,016454,104413

7283
7285
7287

7305

7307
7308
7310
7311
7312
7313
7314
7315
7316
7317
7318
7319
7%50
7321
7322
7323
7324
7325
7326
7327
7328
7329
7330

047
047
047014
047020
047026
047034
047040
047046
047054
047
047066
047074
047100
047106
047116
047120
047126
047134
047140
047146
047154
047160
047166
047174
047200
047206

076701

010000
043220
016404
016400
062604
0005
00077
100746
147220
000452
0627
016172
0422246
105034
00060;

106025
106213
100445
105040
041230
1044;3
056230
060220
100445

064214
000410
056407
062400
076617
016400
100437
060664
0632%6
057635
016132
070216
100445
014401
056406
056225
070016
120620
036400
062255
104422
003004
016460
0004
002172
016556

056727

SEQ 0139

0
<

.WORD

016132,054220,056230,042224,056406,105112,056225,055230

.WORD

056411,105074,042411,105501,070216,000420,076735,054220

.WORD

104503,070076,016522,120600,106103,120620,106213,036400

5
7

.WORD

036420,100445,042225,056407,105116,104467,041230,003004

.WORD

056404,104470,016556,043221,000411,070016,043622,107152

X
¥

7347

047342

002372

063122

063125

.WORD

002372,063122,063122,063522,062602,060522,062230,060601

7350
7351

047360
047366

060220
000402

01
002132
060220

062230
002172

.WORD

060220,002132,062230,000402,060220,002172,062230,070076

7353
7356

047400
047406

002565
060601

100445
062230

002132
100445

.WORD

002565,100445,002132,060601,062230,100445,054220,054220

7356
7357

047420
0474%2

057221
043222

000411
104530

070016
007200

.WORD

057221,000411,070016,043222,104530,007200,070216,042727

7359

047440

064214

056700

000411

.WORD

064214,056700,000411,070016,043225,004002,010000,056407

7362
7363

047460
047466
047474
047500
047506
047514
047520

043224
070204
076614
076605
063226
061231
063226

10
016400
054220
002401
000500
000773
002172
104634
0632%6
06;2 0
007200
064214
004008
043220
070200
076617
016400
0436;0
1149 2
002701
002700
005701
062230
114675
107262

062404
076617

.WORD

043224,000410,062404,070204,016400,076617,076614,054220

100445
060664

.WORD

076605,002401,100445,063224,000500,060664.061231,000773

000404

.WORD

063224,002172,000404,062230,104634,002172,000777,063224

043635
070216

.WORD

,
000401,062230,043635,1034 45,007200,070216,042727,064214

010000
000410

.WORD

056700,004002,010000,056407,043220,000410,062400,070200

076614
062604

.WORD

016400,076617,076614,054220,016400,062604,100445,043620

002740
004600

.WORD

106662,114672,002740,004001,002701,004600,070017,002700

000400
000421

.WORD

004001,002701,000400,002372,062230,000421,062234,114672

061620

.WORD

123561,107262,061620,106334,106710,060521,113424,114672

7360

7365

7367
7368
7370
7371
7372
7373
7376
7375
7376
7377
7378
7379
7380
7381
7382
7383
7386
7385
7386

047446

047526
0475
047540
047546
047554
047560
047566
047574
047
047
047614
047620
047626
047634
047640
047646
047654
047660

070016

0622
000777
000401
103445
042727
056700
056407
062400
016400
054220
100445
106662
004001
070017
004001
002372
06;234
123561

042

843225

004002

002172

SEQ 0140

A A~ — — — — — — — —

K11
PAGE 140

~N
N=W

MACY11 30A(1052)
21-0CT-81
08:50
ROUTINE TO SIZE MEMORY

ONOW

~§MNW

$353 w
~

N o &»

OWO—=NIN w

=000
2222 CO=
W
T2 o
NO
N
®
o
I SRR 2NN
®
N

—

RR ®
~
YN
£33 &~
R

N
r

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

827666

06334

106710

060521

7389

047700

004002

010000

056407

062400

.WORD

004002,010000,056407,043220,000410,062400,070200,016405

260 000410 060660
00

016400

.WORD

076617,016400,016400,023260,000410,

20400

002410
061620

.WORD

061620,076620,002410,114672,120400,061620,106770,070216

043635

000404 062230

117672

.WORD

047234,043635,117672,002172,000404,062230,007200,042727

050000 064214 056700 004002
ooog 323‘05 043220
0006

WOPD

064214,056700,004002,010000,056407,043220,000410,

az;gzg

.WORD

047234,043635,117672,000776,023301,063661,062234,060461

004600

042727

.WORD

062234,004600,042727,064214,043221,076701,014410,004

8?2%52

.WORD

010000,056407,043220,062400,070200,016404,076617,076614

6400 016772
000437
123141

WORD

016400,016400,016772,114672,123141,000437,

000
8gg700

??229%

.WORD

063261,020700,060662.060701,062234,114672,120400,061620

070216

047634

.WORD

112534,070216,047634,116672,043635,113453,000401,064334

114672

.WORD

043635,113456,114672,060535,113461,110446,060535,113461

6412

LWORD

114672,054220,016412,054220,054220,136500,136520,123160

000403

W
&»H

—_

000

,0007440
063222.,0007

60
10

.WORD

123141,063161,123160,000401,063260,111110,063160,063260

.WORD

063161,111120,063160,111120,070076,002456,000407,070016

076660

.WORD

076601,000401,076660,123160,000436,076660,003020,000403

[=]

Ehed

8804 1

000700,063260,063120,063140,063140,063120,063120,076460

cdd
N

OO &
O—=O0O

S8
=R
8
W
=
W2

-0
SHON
W

R
&

= NN

°°°°§
NS

04358; 076701

VARV APAARPAAPPRAMNIXI

NSO

043535

070200,016400,076617,076614,016400,016400,016772,114672

o
W

.WORD

PANAR

0624 0
000410,06240

—

-.Q%
giug:

8;2265

&
KRR

=
—_
—

288
NN

NN
N =

— N
&~ s
— e
o=
—h wd b YNNI o ON\NN
NI NWWWNO
NSO
ONMNS

3333

2
22222
=1=]
NN
NON) N
n
S SRSo
S
OO

OOO0
o
=1=]

(¥,]

[=1"+]

NN
P §
o

w
S

0,061
060660,061620,061620

8}6400

) =

—_

B22S

AY
o

o299

N
W

SaNN

~N
~N

—

2&':\’5

7234

=S
oo

NS ONNO

NN
NON 8 =2 =

—_

o
o

\é

234

c0000
¢ ¢ e SIR=22
22222
SN 8%
S8R
LSRN
NN
g
SN ~
~
OO-‘NO-'g —_.—00 83
~
SRFR o NS
ooV
=~ WSSINISIS

S
o

=
o

2 ;l

76401

R
2823=82 233
K8

RRR2R
3N
$SRE5

~Novwn

VOO

~
N

7%%0 047706

;ggg

SEQ@ 0141

E<<CCt~t=~teyq

L n
PAGE 141

PPOANAANAARNNAN

MACY11 30A(1052) 21-0CT-81 08:50
ROUTINE TO SIZE MEMORY

- ON)

CZKMEAO DMS11-DA DYNAMIC
T -81 17:05
CZKMEA.P
2

75
11467§
35
00?401
113550
113553
060535
054220
136500
123160
063120
063120
016500

7463

050340
050346
050354
050360
050366
050374
050400
0506406
050614
050420
050426
0504
050440
050446
050454
050460
050466
050474
050500
0505
050514

076700
116672

.WORD

060675,070216,076700,114672,047634,116672,043635,113545

043635
060535

.WORD

000401,064334,043635,113550,114672,060535,113553,110540

114672
054220

.WORD

060535,113553,114672,054220,016477,054220,136500,136520

063260
063140

.WORD

123160,000740,063260,063120,063140,063140,063120,076520

123140
111620

.WORD

016500,016421,123140,000402,076740,111620,111206,123160

063160
110611

.WORD

000401,063260,063160,076660,12316C,110611,123160,000401

076660
070217

.WORD

076660,000436,076660,000403,060675,070217,076675,114672

76465
76466
76467
7468
76469
7470
7471

050526
0505
050540
050546
050554
050560
050566

063160
110611
123560
110635
070017
060220
060220

063260

.WORD

123160,000401,063260,063160,111627,076660,110611,070077

002533
000412

.WORD

123560,113234,002533,110635,002603,000412,070017,110611

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7473
7476

050600
050606

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7476
7477

050620
050626

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7479
7480

050640
050646

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7482
7483

050660
050666

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7485
7486

050700
050706

060220
060220

060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7489

850726

060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7491
7492

050740
050746

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7495

050;96

20
060350

060220
060720

060220
060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

828558

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

7464

050520

000402
111206
000401
076660
123160
076660
000403
076675
123160

070216
067236
113545
064334
114672
110542
113553
016477
136520
000740
063140
076520
016421
076740
123160
023260
123160
000401
36
0675
114672

nn
PAGE 142

000401

111627
070077
113234
002603
110611
060220
060220

076660

060220

SEQ@ 0142

PAAPAAPAARARAARAPARAARAARS

76443
7646
7645
7446
7647
7448
7649
7450
76451
7452
7453
76454
7455
7656
76457
7458
7459
76460
76461

MACY11 30A(1052)
21-0CT-81
08:50
ROUTINE TO SIZE MEMORY

PAAPPARAP
AN

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

)

060220
060220

060250

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

.WORD

060220,060220,060220,060220,060220,060220,060220,060220

010000
076560

.WORD

174610,004002,010000,043620,115606,076560,014410,043225

057625
061620

.WORD

062405,070205,057625,116167,057637,061620,061620,061620

057234
057222

.WORD

061620,061223,057234,057220,000560,057222,060662,061620

061620
064214

.WORD

061620,061620,061620,063223,055226,064214,060605,061620

070017
076701

.WORD

116500,000600,070017,043221,000500,076701,014420,074661

055224
063120

.WORD

061620,077303,055224,055225,057220,063120,063120,063120

060660
003360

.WORD

063120,000700,060660,060703,061227,003360,120440,060660

060705
117602

.WORD

063305,000600,060705,061222,060525,117602,000677,114704

000500
060661

.WORD

070217,043221,000500,062701,000420,060661,061620,063303

000402
062203

.WORD

060605,117552,000402,070017,056222,062203,056226,056227

054661
000403

.WORD

057220,123221,054661,061311,055230,000403,070017,054406

061105
043220

.WORD

061224,057220,061105,115135,114540,043220,000404
,062400

120620
000400

.WORD

120600,116140,120620,116145,114454,000400,061231,000773

060601
070017

.WORD

061226,114454,060601,117112,000403,070017,056406,043220

114512
076401

.WORD

076500,115163,114512,043221,000404,076401,114512,054620

061620
055224

.WORD

9
06i620,061620,061620,061620,061223,055224,055225,055226

123620

.WORD

055227,114465,123620,000700,061311,114476,123400,061620

A B
S Ham Sk
7503 051040 060% 0 0602%0 060220
7506
7507
7508
7509
7510
7511
7312
7513
7514
7515
7516
7517
7518
7519
7520
7521
7522
7523
7526
7525
7526

051060
051066
051074
051100
051106
0511146
051120
051126
051134
051140
051146
051154
051160
051166
051174
051200
051206
051214
051220
051226
051234

174610
3620
014410
2405
116167
061620
1620
057220
0662
061620
063223
0605
116500
043221
014420
061620
055225
063120
063120
060703
120440

7530
7531
7532

051260
051266
051274

070217
062701
061620

7527
7528
7529

7533
7534
7535
7536
7537
538
7539
7540
7541
7542
7543
7544
7545
7546
7547

7548
7549
7550
7551
7552
7553
7554

051240
051246
051254

051300
051306
051314
051320
051326
051334
051340
051346
051354
051360
051366
0513764
051400
051406
051414

051420
0516;2
0514
051440
051446
051456
0516460

063305
06122%
000677

060605
(€70017
056226
057220
061311
070017
0612%4
115135
000404
120600
116145
061231
061226
117112
056406
07%500
04 g?l
114 18
06165
061620
055225
055227

004002
115606
043225
070205
057637
061620
061223
000560
061620
061620
055226
061620
000600
000500
074661
077303
057220
063120
000700
061227
060660
000600
060525
114704
043221
000420
063303

117552
05622;
05622
1232%1
055230
054406
057220
114540
062400
116140
114454
000773
114454
000403
043220
115163
000404
054650
061620
061323
055226
114465

AOANANAANAAN

060220
060220

SEQ 0143

051014
0510%0

N
PAGE 143

NAARAAN

7499
7500

MACY11 30A(1052)
21-0CT=81 08:50
ROUTINE TO SIZE MEMORY

PAAAAAAAAAANAN

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P1
20-0CT-81 17:05

21-0CT-81

08:50

ROUTINE TO SIZE MEMORY

8 12
PAGE 144

11721

117621
114

7362 03135 Otesd
7225 051540 ?g 6;9
7564

051546

06 1;7

7366 031360 004600
7%29 051566 120400

7568
7569
7570
7571
7572
7573
7576
7575
7576
7577
7578
7€79
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591
7592

051574
051600
051606
051614
051620
051626
051636
051640
051646
051654
051660
051666
051674
051700
051706
051714
051720
051726
051734
051740
051746
051754
051760
051766
051774

110436
104700
11460?
1004§
0312 1
123400
114630
103425
000500
114704
103425
000401
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

7595
596
7597
7598
7599
7600
7601
7602

052014
052020
052026
052034
052040
052046
052054
052060

000000
001007
114763
001067
001107
114773
001167

739 (033006 000000

7603
7604
7605
7606
7607
7608

052060
052260
052261
052

000100
§01
000377
000200
000001

.WORD

117212,100425,123400,000600,061300,060520,117621,000625

.WORD

114704 ,000600,061231,000663,114704,123400,061620,117251

.WORD

123077,000407,063277,063137,063137,063137,073537,062231

.WORD

004600,060417,063236,120400,116247,116672,110436,106657

0600
060520

.WORD

104700,060600,117654,114606,060520,117657,100425,000600

0613

051506
051514
0515

~N &~
N

051500

§eEggREs

7558
7559
7560

)

7557

WV
= WWWO
NNN=NYN

7555
35
Bk 1

MACY11 30A(1052)

ol o

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

061231,000663,114704,123400,061620,117267,114630,060600
103425,114606,123000,000500,061260,000401,114704,
123440

061262
100425

103425,000500,061262,000401,063230,100425,000000,000000

000000
000000

000000,000000,000000,000000,000000,000000,
000000, 000000

000000
0000C0

.WORD

000000,000000,000000,000000,000000,000000,
000000, 000000

000000
000000

.WORD

000000,000000,000000,000000,00000G,000000,
000000, 000000

000000
000000

.WORD

000000,000000,000000,000000,000000,000000,000000,000000

000000
000000

. WORD

000000,000000,000000,000000,000000,000000,000000,000000

001027

.WORD

001007,114761,001027,114763,001047,114765,001067,114767

001127
114775

.WORD

001107,114771,001127,114773,001147,114775,001167,114777

114765

ENDA:
PATCH:

TBUF :

RBUF :

.BLKW

.BYTE
.BLKB
.BLKW
.END

0
1

sSET FIRST CHARACTER TO SOH

s PPSEUDO-RANDOM DATA

3695

2408+
3054+

3212

NN NN
=2 NN —

- AN

SN
NIN=NWNWY
O = NOWVIWNON

3137

6032

55704

4097
4105

I T T Y aTar )

YNNI

000000

CemdudCda
s
cecdcdededed dedaded

4188

oTe

B
wied

b B

2839+
3617

YV VPS

NI NNNIN) —

2071+
2503+
2977+
3492+«

x
&S
W
—AND
-

O
R
R
I
R

guu L

VIO
O OONIN= NN
OO
NON= SN
SO0 S

WWAVIONND)
=2 WNAININ) =2 NN —

W
ddON\l;NWNO
&»H
O

R-

30+

(AT
MITTITTMITTITTTITITINMNY
9

g‘:\%\\\%‘ \%Q%\%\t‘?‘ ‘gL 2 ] S NOO
Rnee»

5564+

AV,]

OHnnwn

CCHI
027662
CCLO
027664
CCNT
030006
CCPEND 042060
CCPFRM 036022
0025
CCTST
CHAR
002516
CHRADR 002320
CKSWR = 104407

55674
3557
5 63
1 28
5 62
3 87#

SEQ 0145

b3viv

N = = WYY N b e o o d o cd o o o e e e o
5 VN1 =2 VNN = b e e cd e d o o e o o o o
000
IO

002524

&S bk =\

BUFEA

€12
PAGE 146

SBS
OO
=
0wV

)=
SN
NN NN

BEGIN
001542
B8ITO = 000001
BITOO0 = 000001
BITO1 = 000002
BIT02 = 000004
BITO3 = 000010
BIT04 = 000020
BITO5 = 000040
BIT06 = 000100
BIT07 = 000200
BITO8 = 000400
BIT09 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 820000
BIT14 = 040000
BITi5 = 102000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020
BIT5S = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BOPEND 046060
BOPN32 046060
BOPW32 042060
BPTVEC= 00001
BUFADR 002522

08:50

CROSS REFERENCE TABLE == USER SYMBOLS

gmomumb

030010
030016
03G014
002532

e o o
e o o e o e e e e
e o e o o e e o e e e e N

ADDR
ADINK
ADINL
BADDR

21-0C7-81

MACY11 30A(1052)

CZKMEAO DMS17-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

3114

3209

3213

4963
4187

49044

5179«

5180

034446
035164
035260
035365
035454
034507

035670
035706
030012

5913«

5348+

5633

5812

4717
3235
4661
6408
6408
6408
6408
4992+
6411
3427+

3529
4717
6411
6411
6411
6411
5028
415
462

3672

5337«

5585

5980

6424
6424
6424
6424
3367«
6418
3552+

6428
6428
6428
6428
5635+
g421
590+

6431
6431
6431
5637
424
591+

5642+
428
683

5654
431
3735«

5657«

5658

6402

6404

5964

5967

6015

6044

3429+
1744
2272

3461%
178
2346

3554+
1822
2363

3592«
1870
2364

3737+«
1871
2425

5965
1911
2450

6014
1912
2451

6037
2004
530

6421
2005
2547

2057
2548

21
2632

6406

6408

6411

6421

6431

4943+
1413
1333
1359
64354

5004+

5030

5200

5211«

5318

5322«

5326

5360

5630+

1335
1361

1337
1363

1339
1365

1341
1367

1343
1369

1345
131

1347
1373

1349
1375

1351
1377

1353
1

1349
1345

1351
1347

1355
1353

63164
1357

1359

1361

1363

1367

1369

13N

63274

1421«

4126%

4148+

ks A

3346%
1695
2202

4951
4707
2776
144
5862+
5863+
5864+
5865+
4003
6408
3347«

5978

2658
5914+

49378
1293
1331
1357
1383
62974
1377
1379
1383
638w
1333
63104
1339
1343
1413«
1421
1292
64024

1377
1379
1383
64314
1333
64

2754

5615+

5748

5757

5769«

5789

5797+

800+«

5810

5831

5883

63574
63674
63794
6303#

1412

64214
64240
64284
64044
#

5561+

5568#

el Gt i Gl

5107+

v yvy

64154
64184
5548+

DH1
DH10
DH11
DH12
DH13
DH2
DH3
DH4
DH5

5910+

Ll ai Bl s

DTé
017
EABITS

CURLUR 002322
CURTAB 024360
DDISP = 177570
DF1
036042

5907

034553
034612
034707
035014
DH7
035100
DISPLA 001142
DISPRE 000174
DSWR = 177570
DTl
035562
DT10
035726
D711
035750
DT1
035774
pT1
0
D12
035574
D13
035610

14974
156434
1534
2105
2657
3906*
164964
1518«
11064
1329
1355
1381
1329
1375
1365
1381
1373
1331
1335
1337
1341
63394
63484
12934
12574
11054
1329
1375
1365
1381
1373
1331
1335

5905+«
37894
5345%

A AS AS AL so Al LS AD LD AD LoD o8

002324
002476
002454

5770+
20
2

CURDAT
CUREA
CURLIN

5758
49g
23

002500

5614+
S40g
277

Ll s A

CURBUF

14904
2324
14564
14984
58954
16994
49364
10994
14938
11004
15084
15094
15104
15114
15354
6406
123?0

SEQ@ 0146

—

CLINE
002313
CLKALL 031226
CLKDAT 00% 1g
CNTBIT 002
COMIN_
031614
CONBIT 002 gb
CONFIG 024356
CR
=
15
CRC32F 002314
CRLF
= 000%20
CSRO
002342
CSR2
002344
CSRé
002346
CSR6_
002350
CUNIT
002456

0 12
MACY11 30A(1052)
21-0CT=81
08:50 PAGE 147
CROSS REFERENCE TABLE == USER SYMBOLS

CZKMEAD DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

E 12

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052) 21-0CT=81
08:50 PAGE 148
CROSS REFERENCE TABLE -- USER SYMBOLS

EMTVEC=
000030
EROT
033030
EM02
033101
EMOS
033137
EMO4
033184
EMOS
033211
033240
ENO7
033270
EMI0
03332
EM11
033347
EM12
033405
EMIS
033444
EMI4
033503
EMIS
033542
EMI&
033602
EMI17
033641
EM20
033702
EM2?
033742
EM22
034001
EM2S
034021
EM4
034054
EM2S
034
EM2S
034143
EM7
034170
EM30
034222
EM31
034275
EM32
034350
EM33
034373
EM34
034420
ENDA
052060
ERNUM
002452

1398+
i3
61564
61620
61664
61704
61744
61784
61834
61874
671934
61994
62054
62114
62174
622
62094
62354
62414
62444
62494
6254#
6259
62634
62684
62764
62844
62884
62924

1399+

1577+
1740«
1868+
1981+
2081+
2223%

1594*
1773+
1873+
1086r
2093+
2254w

ERRVEC= 000004
FRD

FSWsw

031362

002310

GETcon 051470

GETKMC 026506

11964
139"
1331
1333
1335
1337
1339
1361
1343
1345
1347
1349
1351
1353
1355
1357
1359
1361
1363
1365
1367
1369
1371
1373
1375
1377
1379
1381
1383
76024
15334
1736»
1863+
1976+

2076+
2211%
2359+
gibor
259+
2716+
g8s¢e
P9v
3145«
3300e
3489+
Jouhr
3815+
3958«
1187
5434%
5827

14874

1750

2868

1519

2362+
2301n
2603+
2725+
g830r
3001+
3158+
338y
3496+
Jeiow
3824+
3978«
1410
5439

58314

2366w
g13e
2615%
2736%
cB7e
3005«
3166+
33ebe
3500+
Je38v
3833«
6402
1411+
5443

1795 1930
2948

%011

3017

3318

1619+
1778+
1879+
1000v
2102«
2265+

1623+
1782+
1887+
1993v
2133+
2269+

1627+
1821+
1895«
2002+
2142r
2277+

1632+
1826+
1900*
2036+
Q46r
Q281%

SEQ 0147

1659+
1829+
1904+
2049+
2149
2318+

2397%
ke
2606
2749%
2900r
30aie
3171»
v
3509+
Zeohr
3856+
6404
1422+
5460%

2405
253r
2631v
2753
2010w
3053+
3183«
33r7e
3514+
3p60r
3896+
6406
4088
5470+

2421%
Zsd6r
2638+
Q757+
gO1se
3057+
3245«
381e
3521+
3678
3907«
6408
4089+
5471w

2424r
25w
2647+
J765%
Q910r
3061e
3256+
3300.
3538«
JeB/e
3914v
6411
4091+

2433w
Zsle
Q651%
2789%
2924r
306ge
3263«
30me
3543«
303+
3918+
86415
409+

2114

216k

223

2008

3086

3631

3185

3320

384

1663+
1838+
1909+
2053k
2154e
2326%

1686+
1841+
1914¢
2036+

1691+
1848+
1920+
2062%
2195s
2345e

1701+
1851+
1956+
2086t
2199e
2354+

1731s
1859+
1971+
2070s
2207
2355e

J4hde
254w
2655%
2795+
2009«
3070
3270
Hese
3596%
3731«
3922«
8418
5395

2184s
2342¢
Jh4br
2550r
J680%
2826e
J97%e
307
3276+
i
3609«
3r79e
3934+
6421
5396

2449%
2855
J665t
8B35e
29B4e
F11oe
3280«
Hige
3622«
3790n
3940+
6426
5400¢

2453+
2357e
2679*
2843
2988
313se
3291+
e
3627+
3802e
394+
6428
5405+

2458e
2560s
2682+
2851w
2+
3idis
3296+
Hroe
3639+
.
3953w
6431
5408+

236

2572

2%
6

2799

969

S86on

031064
031204

NNNNNNNNNNN
NININININININININOND
INWWNWWW

oSN

INTPRM
INTREC
INTTRM

2352

5563

940

293

372
079

4904
5055

4905

5065

4906
5071

466

314

489g
3502
5645

4900
5041
5664

2430

2534

2636

5814

5835

5887

1958
3047

2038
3129

134
248

§7

%320
599

2399
3781

2830

2901

2980

3250

3360

&Sos

OV")O

o&swn

e —
—=0

1397+«
5426

2159
2803

UIWS

INTLIN
INTLNE

1427
4957
5144

107

SEQ 0148

Vi
e =1

031120
030664

954

oo-\m-ug

INTALL
INTKMC

1936

ONN
=N

104406
002336
031202
000011
031772

NSV

031644

1797
2566
765

VO NN
- 55 00O
— 00

GETLNO

GE TPHA 027666
GNS
= ARRRNY

1712
509
742
9054
230

B
B S S N N e S e K E RN RSB O S IR gS R RN B S W»
SRR RS
g&\“%\\§§g§\\g§g§g§\§\2§g§g§§§

031650

\n\n\n\n\nv«\hmmv\m\h\n\n-fl—--o-n-t-h-t—b-h—hdd-fl-fl-b-l-ogu-l = AN =2 N L =D = ) =d e W IS =2 VNN

GETLIN

F 12

MACY11 30A(1052)
21-0CT=81
08:50 PAGE 149
CROSS REFERENCE TABLE == USER SYMBOLS

WOV
=N

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

6023

————

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT=81 17:05
KMCE1S
KMCE16
KMCNT
KMCPO1
KMCPO2
KMCPO3
KMCPO4

026462
026474
024354
026252
026064
026276
026310

53054
53114
49354
52234
52590
50354
52414

KMCPO6
KMCPO7
KMCPO8
KMCPO9
KMCP10
KMCP11
KMCP12
KMCP13
KMCP14
KMCP1S
KMCP16
KMCRO1
KMCRO2
KMCRO3
KMCRO4
KMCROS
KMCRO6
KMCRO7
KMCRO8

0263
026346
026
026372
02
026416
026430
026442
026454
02
026500
0262
026256
026270
026
026314
026326
026340
026352

52534
52508
sseso
5271
52774
50834
50894
50954
53014
5307#
53130
52200
50064
5034
52384
544N
52504
50564
50624

KMCR1

026434

52924

KMCPOS ozssgz

KMCRO9
KMCR10
KMCR11
KMCR12

KMCR14
KMCR15
KMCR16
KMCSO1
KMCS02
KMCSO3
KMCSO4
KMCSOS
KMCS06
KMCSO7
KMCSO8
KMCS09
KMCS10
KMCS11
KMCS12
KMCS13

026
026376
026410
026422

KMCS15
KMCS16
KMCTAB
KMCTBE
KMCVOT
KMCV02
KMCVO3

SEQ 0149
|

4978+

|
|

4982+

52470

50684
52744
52804
52864

026446
026460
026472
026254
026266
026300
026312
026324
026
026350
026
026374
02
026420
026432
026444

52984
53044
53104
52240
52304
50364
5048
50484
5254
50604
50664
o728
52784
50844
52904
52964

026470
026502
026244
026
026250
026262
026274

53084
53144
1518
4940
52224
50284
50340

KMCS14 026456

6 12

MACY11 30A(1052)
21-0CT=81
08:50 PAGE 150
CROSS REFERENCE TABLE =- USER SYMBOLS

53024

5320
4938
4984

4942
5204

4979
S316m

5003

52184

5222

5361

5630

SEQ@ 0150

5913

6033+

6052

2\" = OO0
USSR NaIom
bg&@ *
IR

6032+

6066

6120

BBV =ONN=
O & 000N
—
NS W

60824

2434
3652

2459
3680

2639
3699

2194
3482

2264
3493

3819

4005

2667

2770
5336+

2779
5582

2889
5971

2332
6043

2411

2503

2605

2728

3835

3837

3904

3906

3908

5610

874

P4
4N P 44 4

MODTAB 024424
MONIT
002076
NOTR
024412
NXMADR 002520
PARCHK 031426
PATCH
052060
PERBUF 033036
PIRQ = 177772
PIRQVE= 000240
POPPOP= 022626
POPSP = 005726
POP2SP= 022626
PRIIN
002304
PRIOUT 002306
PRO
= 000000
PR1
= 000040
PR2
= 000100
PR3
= 000140
PRG
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340

L3 ‘g » =
S2aT

ouu-ou&acuu%gmmwwwmw

NN N NNV
3
b b b
)= —a NN =

002330

—d e e wd wdh wd =d b NN OOO

MODMSK

H 12
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 151
CROSS REFERENCE TABLE == USER SYMBOLS

WSS WWNNVWS
VO N =S
OO —=0NNlN~NW

KMC

KMCVO5
KMC

BASUBIBBP
N
P
o sesLeIeeqe]e

CZKMEAD DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

3787

3843

3855

3962

3977

3789

3793

3803

3810

3813

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-OCT-81 17:05

112
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 152
CROSS REFERENCE TABLE =- USER SYMBOLS

= 177776

1101e

3947

3952
7102

3753+

3803+

PSW
PT

= 177776
024452

1102#
4964
11934

1444+
4959

1528+
4960M

1563+

2921
1785
2925
1557#
4515
4908%
6275
1456
15478
15464
5725
205,
1692
1779
1737
2270
1893
grsl

2998
1835
2985
3232«
49054
4990
4589
4907#
6415

3067
1882
3002
3237«
4961

58694
188
3056
3257
5175

4906#
5090

5113
5149

5729
2422
5761
5825
5829
2527
1988
2856

5731
2629
5779

PWRVEC=

RBONLY
RBUF

000024

031522
052660

RBUFSZ 002530
RDCHR = 104410
RDDEC = 104413
RDLIN = 104411
RDOCT = 104412
RECBUF 002506
RECEA
002504
REQGO
031026
REGNC
031000
REQNI
031020
REQNR
030770
REQNT
030760
REQNX
031010
REQOUT 031742

3959

5727
2200
Sr3or
57268
5724k
2343
1982
279

SEQ 0151

3810+

3813«

3819«

383¢x

1969

2045

2067

2261

5733
57284

5808

5881

S730%
2078

2155

2215

5985+
3407+

3415

3835

3837«

3908«

397«

3952«

3909

6070

2408

2607

6072

6118

2730

2769

2907

2284

2357

244k

2461

2539

2649

2671

3516+

3523«

3526»

3531%

3540

2068

2266

2413

2609

2618

2685

2732

2841

2908

3071
3264

3485

3523

76064

5163

2917

299

3064

3151

3274

3306

334

3503

333

3926

RESTRT
RESVEC=
RETADR
RETBUF
RETEA
RIN

002362
000010
002512
002514
002510
031344

1518%
11884
1549
15504
15488
1839

4057
3407
3396+
3406
1843

3516
3399+
3515
1972

599w
2050

ROUT
RPT
RRET

002470
031416
002474

5826
15420

5830
3223«

58364
3238«

3292

1583+
37
5706%

1584+
3811%
5728+

1585+
3827+«
5730«

1626
3828
5732«

1626*
5327
5736

1629
5578+
5862

1631+
5501%
5896

1634
5594+
5942+

1636
5608
5944

1642
5702«
6402

1699+
5703+

1703
5704+

1582+
2088
260
o8
5701+
Jesse
2451
1697e
26
5832«

1590
2360
o767
3393
5708
rede
2530«
17ide
3003
5864

1664
2370%
o84
B2
5733
17Bee
2548
1785«
3072
5885+

1867
2378+
oBd:
Faloe
5863
1871
2632+
1885
3168

1854
2447
o837
3512
5869
1912
2658
1926
3282

1861
2457%
2922
3518
5871+
2005
2755
2030«
3293

1890+
2463*
2
ks
5933
2057«
5748+
2204e
3414

1897

]

SAVE
SELO

002334
002260

SEL1
SEL2

002262
002264

SEL3

002266

SELG

002270

005574

SEL7
SETLIN

002276
030244

29
15408
15024
14754
3794+
5724%
14764
14778

2080
gerre
288
3963«
1or8r
2425+
lozon
2782
5813+

3055
3231+«

1481F 169+
gouge 2368
s00,
P36
lisow
1575

1877
1617

3139
3239«

3261
3360

1762+ 1784s
2108 2453
3ees

1918
1657

3655

2000
1684

3368
6418

3487

3619

3916

3938

5824a

2472%
068
3641

1899+

2543
3159
3727«

1902
g3%6e
3162
3028«

1984+
2653
3170+
3%45e

1991
2666
3278
358

2108

2202+

2272

2346

2364

2532
5589+

263te
5750«

2225
ioog

2275
3077

388k
2251

2316

5810%
2074s
3539

18
1875
§s§§~ 333

1907 1916
2635 geeg

2058+
g83

2003«
1729

2%u7e
1819

B30+
203

3ers

689

2273«
1771

3a00r

B749.

226
1954

]

B812e

S831%
238e
3850

5883+
2427e

2100
g8el

2205+
2935

2633«
2130

811e
2181

3835

Sa3ie

386S

Seses

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

SETTAB
SETUP
SHBE

SRO
SR1
SR2
SR3
STACK
STCLK

=
=
=
=
=

024362
002442
002462

177572
177574
177576
172516
0011
031274

STKLMT= 177774
STTEST 002536
SWR
001140
SWREG
000176
Sw0
= 000001
Sw00 = 000001
sSw01
= 000002
Sw02 = 000004
Sw03 = 000010
SW04é = 000020
Sw05 = 000040
Sw0é = 000100
Sw07 = 000200
SWw08 = 000400
Sw09 = 001000
sSWw1
= 000002
SW10 = 002000
SW11 = 004000
SWw12 = 010000

Swi3
SWwi4¢
Swi5
w2
SW3
Swé
W5
Swé
Sw7

= 020000

= 040000

= 100000
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200

327
614
777
1530
1520
15378
1861
1911+
2004
2253«
2352+
2762«
%898'
006+
3167«
3305+
3540+
3661+
3705
6421
1207#

12084
12094
12104
1092
1830
3252
11034
1529
1292
4156
12584
11564
11464
11454
11444
11434
11424

11414
11404
11394
11384
11374
11554
11364
11354
11344
11334
11324
11314
11544
11534
11524
11514
11504
1145#

J 12
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 153
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ@ 0152

2341
624
893
49384
15304
1578+
1865+
1916+
2037+
2319+
2561+
2763
5920"
007+
3172+
3350+
%Skl
662
3712«
6424
5406

395
714
6144
953

406
824
759

420
887
5790

5489
969

491
038

500
106

5512
m

5522
207

5591

5293
55

5602
584

1620*
1866
1917+
2077+«
2356+
2595+
769+
922
008
175«
3392«
3547«
3670
3713«
6431
5638+

1637+
1870
1923+«
2084r
2363+
2648+
776%
925+
043+
3246+
3406+
3598+
3674
3715«

1638+
1875+
1925+«
2096+
2367+
2653
2778+
926
062+
277+
3411
3610%
3676
3718

1643+
1876+
1926
5099'
398+
2657+
81+
930+
068
3278
3615
3640+
3679«
6121

1644+
188;'
1957«
2100
3663'
662+
2782
§936*
071+
3281«
3416
3646
3682+«
6124

1660+
1884+
1979+«
104«
450%
683«
790«
935
07
328
3622«
3647
3683+
6126

1687+
1885
1987+
2132«
2454+
2717+«
2827+
974+
075+
;287*
2465*
3651
3685
6127

1732«
1891+
1991
183+
493+
2750+
2852+
997+
076+
88
3511+
3654+
3688+

1774+
1902
1996
3212'
238+
2754+
2857
%999
077
292+
515«
655+
3691
6411

1823+
1906+
1999+«

2224+
2543
2755
860+
002+
113«
329
3522«
3656
3698+
6415

1852+
1907
2000
2225
2547+
2758+
%881
3
3149+
3301+
3536
3660+
3703«
6418

5449+

5963+

6034+

5435+
1394
1962
3362

5452+
1443
2042
3477

1516
2063
3603

2150
3791

2189
3806

2259
3822

2722
3912

2832
5792

2903
5807#

2982

3051

3133

15614
1392
4184
1420

1412«
4188
1434

1414
4359
359

1620
4398
4398

1434
4453«
421

4000

4083

4097

4099

4105

4112

4149

1156
1155
1154
1153
1152
1151
1150
1149
1148
1147

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

K 12
MACY11 30A(1052)
21-0CT-81
08:50 PAGE 154
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0153

SW8
= 000400
SW9
= 001000
SYNTIM 031714

11484
11474
168

1633

194

2065

2152

2724

2834

2905

296

2993

3063

3254

3812

TBITVE= 000014
TBUF
052260

11894
1763

195

1974

2073

2138

2191

2329

2505

2737

2778

2848

339

TERBUF
033002
TKVEC = 000060

2438
11960

2643
4331%

2894
4332«

2938

61314

1400*

1401+
1953*

2033«

2129+

2180+

TPVEC =
TRAPVE=
TRTVEC=
TSTMAP
TSTNUM

000064
000034
000014
032724
002460

11974
11954
11904
61204
1522%

TYPFLG

002332

1574*

g315e

g3oie

6426

6428

6431

454

TSTREC 032716
1ST1_
002552
1STI0
004534
1ST11
005072
1ST12
005536
TST13
005734
TST14
006226
TSTIS
006472
TST16
007042
TST17
007460
1ST2
002724
TST20
010124
1ST21
010652
15122
011404
TST23
011666
1ST2%
012260
1ST25
012562
1ST26
013064
1ST27
013534
1ST3
003122
1ST30
014416
1ST31
015166
1ST32
016004
1ST33
017156
1ST3%
017630
1ST35
020304
1ST36
020424
1STé
003214
1STS
003360
1ST6
003522
1ST7
003664
TYPDS = 104405
TYPE
= 104401

15364

g2s0v

61184
15734
1937
2009
2109
2160
2236
229
2373
2467
16154
2568
2690
2805
28
2942
3012
3081
3180
1635
3316
3,38
3563
3742
3844
3965
4012
1666
1713
1756
1798
4004
1430
4208
4423
4552

503¢
5161
15014

3583%

3776+

1616+

1656*

1683+

QuBBr

2500r

3997+

6402

4900F
4002
4o30
4455
46bhk

5029
4007

5655
4009
447
4522
4B44

3892+

2713

1728«

2823«

1770+

2886«

1818+

2968+

3037«

3103«

3206+

3330«

6404

6406

€408

6411

6415

6418

6421

4044

4047

4151

4163

4166

4171

4182

19524
20324
21284

21794
2249
2314
23934
24874
25894
27124
28204
28854
2967H
30364
31044
32054
1655#
33334
34534
35824

37754
38914
39954
40214
16824
17274
17694
18174
4046
1452
42gx
4434
4626
5039
5180
5641+

4244
1465
d2ar
44k4
4628

5045
5185
5656+

5053
5604
5660

4e3p
4476
4775
5063
5643

5069
5650

4252
4528
4BOGN
5081
5662

4304
4533
4947
5086
5667

4306
4537
4955
5102

4333
4342
4963
5110

4363
433
5005
5111

4419
4543
012
5142

4420
4548
3021
5160

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
T7BUF
033022

UNITFG
UNTDON
VECIN
VECOUT
WAS

XBITS
XIN

030556
020400
002300
002302
002464

002340
031354

XouT
002466
XRET
002472
SAUTOB 001134
$BDADR 001122
$BDDAT 001126
$BELL
001172
$CHARC 023600
$CKSWR 022160
$CMTAG 001100
$CM3 = 000000
$CM4 =
3
SCNTLC 023072
SCNTLG 023104
SCNTLU 023077
S$CORE
027340
S$CRLF
001177
$CROUT
$DBLK
$DOAGN
$DTBL

027370
024020
020524
024010
=
35

6165
4894
4898+
1846

L 12
MACY11 30A(1052)
21-0CT-81 08:50 PAGE 155
CROSS REFERENCE TABLE == USER SYMBOLS
6170

6216

4240

1925
5647

61404

3809+
3936+
1637
3410+
3642
3685
3841
6421
5995
2074
3059
3267
3281
4412

3825«
3976
1642«
3411
3645«
3689+
3852«
6424

4622

48974

5609

3852

3902

3974

3414
3647
3690+
3854+
6428

1643

1667+

3416
3650«
3691
3895+

085+

464r
3656
3697«
3974+

2947+

3247+«

3535+
3660
3705
5846

3536
3662
3716
6122«

3539+
3667
3717«
6123+

3541
3671
3718
6124

3597«
3675+
3780+
6404

2143

2196

2334

2439

2507

2516

2563

2644

2741

2849

6418

6431

4569

4151
4676%
4904
1389

4200
4683

4365
4709+

4562
4714

1390

1398

1402

1403

1404

13034
4434
L5640
4537
54604
4171
4717
54674
4775
4049
L7704
1600
19324

1304#
45624

13054

4200
5161

4208

4227

4232

4252

4309

4455

4542

4562

4630

16014
2015

1640
20164

16414
2115

1669
2116»

16704
2165

1708
21664

1709
2235

1751
22364

1752
2299

1793
23004

17944
2377

3848
40514
404624
40594
40584

38494
4195

3970

3971#

4039%
4067
1405+«
408
4153+
4222

4043
4101
4103
41440
4154+

4103
4125«

4109+
4130

4130

4146

4200

4155

4161+

4162+

4164

4168+

4169

4200

4214

5018
19;2

5626
4002
14834
14844

56
40144
3785
3854

3349+
3611«
3676
3839«
6415

409+
641+
3684+
3840+
6618 -

1538

15074
1849

2913
15394
15414
12894
12844
12864
13074
4666%
63988
12724

13024
1302#
4353
4419
4664
5404
13094
4665
5460
4741
4040
4744
1085#
1931

1636

5505+«
1977

2990
3230+
3222+
1438+

iS00

SENDAD
SENDCT
SENDMG
SENULL
oP
SEOPCT
SERFLG
SERMAX
SERROR
SERRPC
$ERRTB

SERRTY
SERTTL

020514
62
020533
020530
020426
020454
001103
001115
021034
001116
001202

(021330
001112

37534
1428
1402
4044
4047
40324
1402«
12754
12814
1398
1%82#
13264
4181
1279%

SEQ 0154

42074
4152«

567

3142

3268

3375

3494

3534+
3659
3704+
3976+

3625

3920

3282+

3942

3283

5828#

3293«

3294

45634
4182
5110
47834
40554

087 Soame e Stare 55 300 BT NS BE' SBeoe a0

4200

;

n12

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

MACY11 30A(1052)
21-0CT-81
08:50 PAGE 156
CROSS REFERENCE TABLE == USER SYMBOLS

SESCAP
SFILLC
SFILLS
$GDADR
$GDDAT
$GET42
SGTSWR
=
SHIOCT
S$ICNT
S$INTAG
SITEM8
SKTNEX
SKTOUT
$KT11
SLF
SLPADR
SLPERR

001170
001156
001155
001120
001124
020504
022250
000003
021642
001104
001135
001114
027332
027270
027022
001200
001106
001110

13064
13004
12994
12834
12854
40484
46204
1080
4297+«
12764
12904
12804
5405
5439
54034
13104
12778
1278%

14604r
4669
4717

SLSTAD
SLSTBK
SMAIL =
SMAP

027446
027450
wwwean |
027114

5475«
1424
5411«

SMMOUT
SMNEW
$MSWR
SMXCNT

027312
023122
023111
021032

SMAPRG

SNOMAP

027120

027140

SNULL

001154

SOCNT
SOMODE
SOVER
$PASS
SQUES
SRDCHR
SRDDEC
SRDLIN
SRDOCT
$RDSZ =
SRTNAD

024252
024254
021016
001100
001176
022522
023134
022612
021504
000024
020526

SNWTST= 000000

SR2A

wmannnn |

2252%
3450
5474+

56412

5442
4423
4420
4120

1084#
1815
23184
2965
35864
56416
1298%
15728
23924

37748

4816
4811«
4084
12734
3084
L4878
45844
45104
427
45034
40574

4902
1081
43084
4116«
4417+
4155«
54594
54488
5407«

4193

4117
443
4200

119«
4456
2n

4129
4569

5457
5459«

4309
4107«
1576

5485+«
4552
4122«
1618

5489
4562
4127
1658+

S4834
1434
5415«

5491
6122
54178

5493«
4184
5440

5495
4653
5450

1577#
1950
23974
3034
37794

1613
19564
2485
30404
3889

2317«
3585+«
54824

S&419#

5454k
45674
4565#
4129
1571
18214

2391
29714
3773
5424n

4671

16144
24864
38904
4845+
4815«
4100
4036%
4200
4905
4908
4906
4907

2396%
3778«
5488

4717

16544
S884

994#

4BS8#
4820
4108
4037+«
4306

4200

5961
4630
4129
1685+«

6002
4717

2715+
4123

1730
2825+«
4129

1772«
2888+
4190

1820+
2970+

1955+«
3039+

2035+«

2131+«

2182+«

16194
2030

1653
20364

16594
2126

1680
21324

16864
2177

1725
21834

17314
2247

1767
22534

17734
2312

16814
27114
40204

17264
28214

17684
2884k

18164
29664

1954
30354

20314
31034

21274
32044

21784
33374

2248#
34524

134
35814

4823+
4118
4045
4309

4834
41264
4058
4474

4LB6ON
4114
4545

4130
456¢

4628

4630

4717

5111

5160

398
357

1400
4362

140%
436

140§
439

1404

1406

1428

1431

4034

2490+
3894+
5503«

2592+«
4107
5509

24914
3102
38954

2587
3108

25934
3203

2710
32094

27164
3336

2
33424

3107«

28264
3451

3208+

2883
3457

3341+

2889+
3580

4909

4909
1396

12654

40764
1395

$SIZE

53864

5486

026736

419

4200
1606
16407«

$SAVRE= wneneer |J
$SCOPE 020550

$SETUP= 000127 -

4124
4717

SEQ 0155

4077

2451
5410+
12654
4092
1OBg
168

5446

PINOWS
O NN

S$TRPAD 024324
S$TSTNM 001102
STTYIN 023046
STYPBN= seaxex |
$TYPDS 0236
S$TYPE
023312
STYPEC 02346
S$TYPEX 02
$TYPOC 024054
S$TYPON 024070
$TYPOS 024030
$XOFF = 000023
$XON = 000021
$XTSTR 020574

» %2

HW—=0

49014

4902

49034

49054

4034+
4543

4099
45614

4121

4126

4148

4682

gaoga

48994

12974

13014
12964
1400
48844
48884
49094
4878
12744
4512
4901
47294
46474
4460
4710
48144
4813
48094
4692
4346
40864

VO—=N
WNHNO

(NN
=

WO
==
&~ OO
O~
W
[+ ]

$TPFLG 001157
$TPS
001150
$TRAP
256
$TRAP2 024312
$TRP =
14

» »
=
. omgo«m —\UNOO

001152

2892+«
5134+

VNOWN—=000n
ONWNONONCO
=N

$TPB

3830+
5738+
13034
13044
10804
1726
20334
2373
2821
31054
3742

WWOON—=NYOr
V=W
N—=

$TMP1
001162
$TMP2
001164
$TN
= 000037

13024

WWNININ)
=2 =2

001160

VO—0
PN

4331

021730

4717

4438+
AN
—

$TKSRV

$TMPO

4697

OO:OOO&
wvinownwna
W/
»®
=

$SWRMK= 000000
$TERM = 000030
STIMES 001166
$TKB
001146
STKCNT 021644
STKINT 021660
$TKQEN= 021657
$TKQIN 021646
$TKQOU 021650
$TKQSR 021652
$TKS
001144

2713

4022
4097
4138
4072
4873
13054
12954
43134
1451
43174
43144
43154
L3164
1;??#

SEQ@ 0156

Y
L
SO —OW

S$SIZEX 027374
$STOP
02711
$STUP = 17777
$SVLAD 020770
$SWR = 167400

MACY11 30A(1052)
21-0CT-81
CROSS REFERENCE TABLE == USER SYMBOLS

WWNINON)
==

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05

N 12
08:50 PAGE 157

3994

49074

4200

4908#

CZKMEAD DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05
$SGET4= 00002?
SOFILL 0242
$40CAT
.
= 053260

40504
4810+
15510
12364
6129
4717

51454

813
MACY11 30A(1052) 21-0CT-81 08:50 PAGE 158
CROSS REFERENCE TABLE == USER SYMBOLS
4814'
“ 73
125
6130
47834

56704

4824
4158
1556’
4200
4874

56734

SEQ 0157

48594

12614

62554
4876

6119

12714

4309
4909

64014

lgl1

6312
49504

75034

1393

43164
50244

76054

431
50374

1407

43184
50424

14554

45614
50484

1468¢

4562
50564

4058
45698
S066#

46
51054

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.PT
20-0CT-81 17:05
ABORT
ALTBUF
ALTSTA
BSEADR
CHRCNT
COMMEN
DATADR
DATTST
ENDCOM
ERR
ERROR

ESCAPE
GETPRI
GETSWR
INRDY
INTIN
INTOUT
INTTST
10BUF I
KMCSER
LININT
LINOVR
LRCTST
MUL TM
NABORT
NEWTST

999#
1009#
1004#
1019#
10144
119%#
10244
1030#
11994
944#
2573
1093
2573
11994
11994
1199#
9484
1032#
10334
9%4Lr
o664
10384
958%
9794
10144
1195«

303
700
476
193
091

2578

34641

1600

1640

5399
14314
1603
3755
3872
1564
1717
5619
1672
1940
2953

SEQ 0158

2382

§326
566

2695
1
2695

c 13

MACY11 30A(1052)
21-0CT-81
)8:50 PAGE 160
CROSS REFERENCE TABLL == MACRO NAMES

1669
2869
1669
2869

1708
2949
1708
2949

1751
3018
1751
3018

1793
3087
1793
3087

271

1654
2821

1681
2884

1726
2966

1768
3035

1816

3103

1951
3204

4586

4729

1615

1655

1682

1727

1769

1817

2800
1640
2800

1931

3186
1931
3186

§01S

321
5015
321

%11

43
2115
343

2165

235

3558
5165
559

752
2235
3752

2031

2127

2178

2248

2313

2392

3104

1952

3205

2032

2128

2179

2249

314

2393

294

2373

2467

2567

1759

NOOUT
NXM
PARTAB
PARTST
:335

9534
10144
9384
10144
10344

1647
2810
4910
3022
3994

PUMP
PUSH
REPORT
RSTRCV

9394
1199%
11994
9844

5571
4272

zgg;

zggg

2712

2822

2885

2967

3036

11994
4B88#

4490
4897

4898

4899

4900

4902

4904

4905

4906

4907

4908

2689

2804

2864

2941

3011

3080

3179

3316

437

3562

3741

%844

;}gg:

1267

1311

1564

1570

1572

1603

161

1614

1647

165

1654

et
2963

G
2966

B
5023

B8
%032

Sa
3035

Moo
§092

BB
5100

BU
%103

BN
194

Ml
3201

Hn
5204

B
5327

225;27

SETPRI
SETTRA

EE}gP

SLASH

g?:fi%

2018

1882: %};g

}}335 }22;
11994

1717

1723

2471
247

2168
1572

2588

3848
299
848

2377

3970
377
970

9%
1199#

2838

2299

2239
1614

1666
1726

1713

1759

1756
1765

1798
1768

1937
1801

2009
181§

108

1816

3337

3338

2160

1940

3452

3453

2230
194%

3581

3582

1951

3774

3775

3965

167

5915

B
%334

3890

891

4012

1678

%028

e
%ggg

3994

3995

1681

2031

ek
42

CZKMEAO DMS11-DA DYNAMIC
CZKMEA.P11
20-0CT-81 17:05

SRIN
$STCLK
SSYNTI
S$TSTDA
$TSTN
$XIN

SSCMRE
SSCMTM

10604
10614
10554
1058¢
938
1066#
10454
10464
1042¢
10434
10474
10564

2854
10524
3055
10514
3603
10644
10594
9%4r
2485
1053
2990
1265#
12654

5011
5650

5021
5662

5034
5666

1792
3085
40N
1754
2611

2163
3968

2234

2107

1788
2401
1661

3994

402
486

$873

4064

4132

5039

5045

5053

5063

5068

5081

2298

2376

2470

2572

2694

2799

2867

2159

3178

2228
3313

2292
3739

2336
5765

2372
5794

2415

2466

2509

2351

2430

2534

2636

5751

5814

5835

5887

1824
3129

1958

3248

2038
3357

2134
3472

2185
3599

2255
3781

2320
3804

2399
3820

2494
3897

2257

2830

2901

2980

3049

313

3250

3360

3475

4909

5102
1801
2324
5484
1750

3016
1519
171
2566
5536
1746

2322
1621

2718
5763
1827
3910

5161

2403

2863

2828
5781
1960

3365
3480

2147
3615
5216
2054
1692
1779
1737
2270
1892

2200
5761
5824
5828
2343
1982

2629

2994
1843
3261
1962
3806
1633

1571
2587
1849
3059

1613
2710
1977
3142

1302

1303

2917
1839
3139
1830
3791
1628

5880

2283
3383
%266

2357
350%
%41

2539

2649

2670

2751

2796

2685

2731

2841

2908

2986

2189

2259

2903

3133

3252

3362

3477

3063

3812

1767
3934
% 34
625

1815
3102
439
920

NN
L —
oY
W=~

SINTRE
SINTTR
SLRSET
SMAPBU
SPARAM
SPARCK
SREQNC
SREQNI
SREQNR
SREONT
SREQNX
SREQOU

2596
10414
10504
3601

4169
1464

4786

NDWVINDWNINOWNN
V=00
O OWN—=ON
=
WN=OV0OWS

SINTLI
SINTLN

1048¢
10404

4164
1452

3885
4632

SEQ@ 0159

WO
=
H=20ON
WO
SO

$GE TPH
SINPDU
SINTAL
SINTKM

4242

D13
PAGE 161

3872
4572

ONNOWNOO
W

SGETKM
$GETLI

4045
1424

08:50

3774
4503

3755

4408

WVIWWWO

XRTST
SCLKAL
SCLRTA
$GETCO
SGETCS

5086
970#
10404
10454
944k
1054#
2948
10634
1057#
2518
9%4r
1062¢

3567
3N

PN
VOOHO——
—==20NCoWi\n\Wn

TYPTXT

4B888#
11994
1199#
1199%
11994
11994
1199#
1199%

345
425
14084
6131
2872

21-0CT7-81

CROSS REFERENCE TABLE == MACRO NAMES

WA=
W=0O0"
NS00

SWRSU
TABLES
TERMXB
TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT

3449
4202
11994
10684
10144

PACY11 30A(1052)

177

2312
3889
2849

23N

916

938

2644

2913

CZKMEAO DMS11-DA DYNAMIC

CZKMEA.PT

20-0CT-81 17:05

MACY11 30A(1052) 21-0CT-81 08:50 EPAGE 162
CROSS REFERENCE TABLE == MACRO NAMES

SEQ@ 0160

::528? }}333 157
2338 258%

1614
2’

1654
2821

1681
2884

1726
2966

17
30?2

181
3102

1951
3204

31
§237

127
g‘i?

178
§581

48
§ 74

313
;890

392
%996

$SSET
$SSKIP

4898
1666

4899
1713

4900
1756

490
179

4904
1937

4905
§009

4906
109

4907
5160

4908
230

294

373
965

2467

2568

.EQUAT
.HEADE
KT11
.SETLN
.SETUP
.SWRHI
SCMTA
.
.SERRO
.SERRT
.SGETK
.SRDDE
.SRDOC
.SREAD

48884
11994

690
10704
10704
10704
9384
10704
10704
10704
10704
10704
1070#
9384
10704
10704
10704

ERRORS DETECTED:

4897
1635

2805
1089

2864

2942

1199
5614
1265
1265
4023
4130
4%00
5318
4570
4256
4309

CZKMEA ,CZKMEA/CRF
/SOL/NL : TOC=CZKMEA
RUN-TIME: 134 108 7 _SECONDS
RUN-TIME RATIO: 1513/250=6.0
CORE USED:
52K
(103 PAGES)

3012

3081

3180

316

438

563

742

844

4012