Digital PDFs

AH-E260B-MC

March 2000

141 pages

Original

66MB

view download

OCR Version

90MB

view download

Document:	CZPLAB0 PCL11-A,B PCL11 EXERCISER V020 DEC 1978 bw
Order Number:	AH-E260B-MC
Revision:	000
Pages:	141
Original Filename:	CZPLAB0__PCL11-A,B__PCL11_EXERCISER_V020__AH-E260B-MC__DEC_1978_gray.pdf

OCR Text

PC L1 1

’

PCL11 EXCERCISER V020

CZPLABO

AH-E260B-MC

DEC

FICHETOF1

MADEINUSA

copvriGHT 1978

1978

LREDAE

IDENTIFICATION

SEQ 0001

PROGRAM CODE :

AC~E2598-M(C

PROGRAM NAME :

CZPLABO PCL11 EXERCISER v=02A

VERSION:

v=02

DATE CREATED:

21-SEP-76

UPDATED:

13-MAR-78

MODIF IED

11-SEP-78

MAINTAINER:

SPECIAL SYSTEMS, KANATA

:
AUTHOR

DAVID G. WIENS

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

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

wvmown

CANADA, LIMITED.

€ -4

1978, BY DIGITAL EQUIPMENT OF

mao

(C)

PARALLEL COMMUNICATIONS LINK (PCL11) EXERCISER

1-1

GENERAL DESCRIPTION
DIFFERENCES IN EXERCISER v=02

1-1
1=2

EXERCISER TABLES

2=1

SW
=

STATUS TABLE
SUMMARY TABLE
ERRORS TABLES
CLEARING OF THE TABLES

N -

GENERAL
s

—

PAGE

TABLE OF CONTENTS

.
.

—

AR AU AL A AU AL AL AU AL AL AL AU AL AL AU A

BN NN
NN
—d e =2 OO0

o
B
o
.
o

&N
DES

. .
W) =

3-1

CONTROL CHARACTERS
CONTROL=C
CONTROL=0
CONTRO! ~U
CONTROL-S
CONTROL-Q
CARRIAGE RETURN
LINE FEED

3-1
3-1
3-1
3-1
3-2
3=2
o4
3=2

COMMANDS
SILO

33
3-3

RUBOUT

3=2

MASTER

3-4

RIB
RANGE
ADD
DELETE
CLEAR

3-5
3-5
3-6
3-6
=7

SECONDARY

3-4

INITIALIZE
STATUS
SUMMARY
ERRORS

7
3-8
3-8
3-8

3-10

ASSIGN

CONT INUE

**SYNTAX ERROR**

GETTING THE EXERCISER STARTED

-t

NWWWWWWWWWWWWWWWWW.

O NOAWVN
NN =

.
o

- —lh
e

o
o
=
©
.
-

WWWWWWWWW

EXERCISER COMMANDS

2=1
2=2
2-3
2=4

PREPARATION

3-9

3-10
3-11

4-1
4=

4-1

OPERATING PROCEDURES

4=2

DEVICE ADDRESSES
STARTING ADDRESSES

ERRORS

4=1
4=2

4-3

SEQ 0002

TABLE OF CONTENTS (CONTD)

COMMAND INPUT MODE DESCRIPTION

SHORTENED COMMANDS

EXERCISE MODE DESCRIPTION

RUBOUT FEATURES
ENTERING COMMAND MODE
UPPER OR LOWER CASE

TRANSMIT EVENT
RECEIVE EVENT
DATA GENERATION EVENT
ADPRESS QUEUE EVENT
ERRORS UPDATE EVENT
SPECIAL EVENTS

PNOPNUN)
=
d

5.2
R
5.4

6.1
6.2
6.3
6.4
6.5
6.6

APPENDIX
A

EXERCISER OVERALL FLOW
APPENDIX
B

EXERCISER COMMANDS

APPENDIX
(

ERROR DESCRIPTIONS
APPENDIX
D

STATISTICAL
LISTING...

CO—=33R

5.1

SEQ 0003

PAGE

INFORMATION

1-1

SEQ 0004

PARALLEL COMMUNICATIONS LINK

EXERCISER PROGRAM

GENERAL

1.1

GENERAL DESCRIPTION

THE PDP-11 PARALLEL COMMUNICATIONS LINK (PCL11) EXERCISER

IS WRITTEN TO EXERCISE A FULL SET OR PARTIAL SET OF PCL11 UNITS,
EACH ON ITS OWN PDP-11.
THE MAXIMUM NUMBER OF UNITS (FULL SET)

WHICH MAY BE EXERCISED IS 31, ALTHOUGH THE NORMAL MAXIMUM CONFIGURATION
THE EXERCISER 1S OPERATED BY MEANS OF THE OPERATOR ENTERING
COMMANDS AT EACH PDP-11 CONSOLE TERMINAL WHICH WILL DESCRIBE TO THE
EXERCISER THE NUMBER OF TARGET RECEIVERS TO BE COMMUNICATED WITH
AND THEIR T.D.M. BUS ADDRESSES.

STATUS AND ERROR REPORTS ARE

ACHIEVED ALSO IN RESPONSE TO OPERATOR COMMANDS.

EACH PCL11 TRANSMITTER IN THE 'CHAIN' OF PDP-11°'S MUST BE TOLD

HOW MANY OF THE RECEIVERS IN THE °‘CHAIN' IT SHOULD SEND DATA TO. THEN,
UPON THE OPERATOR'S COMMAND, EACH PCL11 TRANSMITTER INVOLVED WILL BEGIN
SENDING RANDOM DATA PATTERNS TO EACH RECEIVER IT HAS BEEN TOLD TO
COMMUNICATE WITH.

RECEIVERS IN THE CHAIN ARE ALWAYS RECEPTIVE TO DATA FROM ANY ONE
TRANSMITTER AT A TIME AND WILL CHECK THAT THE DATA RECEIVED IS CORRECT.
THE RECEIVER HANDLER PORTION OF THE EXERCISER WILL ALSO GENERATE A TABLE

OF ERRORS THAT MAY BE EXAMINED LPON ISSUANCE OF THE 'ERRORS' COMMAND.

TRANSMITTERS IN THE CHAIN ARE ACTIVATED OR DE-ACTIVATED BY THE

OPERATOR AND ARE DE-ACTIVATED BY A 'MASTER-DOWN'' ERROR OR A UNIBUS

TIMEOUT (TRAP TO 4).
THE TRANSMITTER HANDLER PORTION OF THE EXERCISER
WILL LOOK AFTER THE TRANSMISSION OF RANDOM DATA TO EACH RECEIVER ON ITS
'LIST' AND GENERATE A STATUS TABLE AND AN ERROR TABLE.
THE STATUS TABLE
WILL INFORM THE OPERATOR OF THE SUCCESS OR FAILURE OF THAT TRANSMITTER
TO COMUNICATE WITH EACH OF THE RECEIVERS ON ITS LIST.
THE ERROk TABLE
WILL SHOW THE OPERATOR ANY HARDWARE ERRORS ENCOUNTERED DURING COMMUNICATION.

A SPECIAL ‘''SUMMARY'' COMMAND WILL GIVE A CONDENSED ERROR TABLE
INDICATING ONLY THE ERROR NUMBER, THE ADDRESS IN THE LISTING OF THE
ERROR, AND THE TOTAL NUMBER OF OCCURRENCES OF THAT ERROR WITHOUT
REGARD TO WHICH RECEIVER AND TRANSMITTER WERE CONNECTED.

P>pMETre

THE MINIMUM NUMBER OF UNITS IS 1.

QOO0 —

INCLUDES ONLY 16 PCL11'S.

SEQ 0005

1.€

DIFFERENCES IN EXERCISER v=02

1.2.1

STARTING AND RESTARTING (SEE SEC. 4.4)

v=02 OF THE EXERCISER STARTS AT LOCATION 200. WHEN RESTARTED

AT LOCATION 204, THE STATUS AND ERRORS ARE PRESERVED.

1.2.2

UPPER/LOWER CASE INPUT

(SEE SEC.5.4)
EITHER UPPER OR LOWER CASE ALPHA CHARACTERS ARE ACCEPTED BY
\IIEOECE.&;HE EXERCISER. WHICHEVER IS TYPED IN, THE UPPER CASE VERSION
1.2.3

ERRORS COMMAND
(SEE SEC.3.2.12)
THE "ERRORS'' COMMAND HAS BEEN ADDED TO THE EXERCISER TO GIVE

MORE DETAIL ABOUT THE ERROR CONDITIONS.

1.2.4

RIB COMMAND
(SEE SEC. 3.2.4)
THE 'RIB'' COMMAND HAS BEEN ADDED TO THE EXERCISER TO ALLOW
RUNNING IN A RE-TRY - IF = BUSY MODE, WHICH BRINGS THE ATTEMPTS AND
SUCCESSES COUNTS MORE IN LINE.

1.2.5

ASSIGN COMMAND

(SEE SEC. 3.2.13)

1.2.6

GO COMMAND

(SEE SEC.3.2.14)

THE ''ASSIGN'' COMMAND WAS ADDED TO ALLOW CONSOLE CHANGING OF
THE PCL11 UNIBUS ADDRESSES AND VECTORS WITHIN THE EXERCISER.

THE 'GO'' COMMAND HAS BEEN ALTERED SO THAT THE RECEIVER
ADDRESS QUEUE, STATUS OF ATTEMPTS AND SUCCESSES, AND THE ERROR
TABLE ARE ALL CLEARED.

1.2.7

ADDRESS QUEUE EVENT

(SEE SEC. 6.4)

THIS EVENT WAS CHANGED SO THAT

THE EXERCISER WAS

TOLD

TO "GO’ OR "'CONTINUE'‘, AND NOTHING WAS LOADED INTO THE "RECEIVER
ADDRESS QUEUE'', THE EXERCISER WOULD NOT GO.
1.2.8

LOADING OF THE SILO
(SEE SEC. 3.2.1)
IN THE PREVIOUS EXERCISER, THE SILO COULD BE LOADED IN SUCH A
WAY AS TO CAUSE 'HARD TO TRACE'' HARDWARE ERROR INDICATIONS. NOW A
"PAD’' VALUE HAS BEEN INSERTED BETWEEN SIMILAR ENTRIES SO THAT THIS
CANNOT HAPPEN.

NEW CONTROL CHARACTERS

(SEE SEC.

3.1)

v-02 OF THE EXERCISER HAS THROWN OUT THE '‘ESCAPE/ALTMODE"’
CHARACTER IN FAVOUR OF ‘‘CNTRL-C''.
ALSO, CNTRL-S AND CNTRL-Q WERE

ADDED TO CONTROL

1.2.10

THE PRINTOUT ON VIDEO TERMINALS.

CARRIAGE RETURN
(SEE SEC. 3.1.6)
THIS VERSION OF THE EXERCISER WILL NOT GO INTO 'LIMBO'

IF A CARRIAGE RETURN IS ENTERED BY ITSELF.
1.2.11

RUBOUT

(SEE SEC.

IT SIMPLY ECHOES ANOTHER $.

3.1.8)

THE EXERCISER WILL NOW INDICATE WHEN ALL HAS BEEN RUBBED OUT

E’VPF;ETURNING A <CR-LF> AND '%'' WHEN THE COMMAND INPUT BUFFER IS

M-

1.2.9

1-3

1.2.12

STATUS TABLE
(SEE SEC. 2.1)
THE ‘‘ATTEMPTS'' AND '‘SUCCESSES'' COUNTS IN THE STATUS TABLE

HAVE BEEN BEEFED UP TO DOUBLE PRECISION DECIMAL NUMBERS. ALSO, AN

INDICATION HAS BEEN ADDED TO THE TABLE OF WHETHER THE UNIT IS
MASTER OR SECONDARY, AND WHETHER 'RIB'' IS SET OR CLEAR. ALSO, THE
ELAPSED TIME OF THE RUN SO-FAR IS PRINTED PROVIDING THAT THE

.|PDP=11 HAS A LINE CLOCK.

1.2.13

SUMMARY TABLE
(SEE SEC. 2.2)
THE ‘NO. OF OCCURRENCES'' COUNT IN THE SUMMARY TABLE HAS

BEEN GIVEN A CEILING OF 65,528 (DECIMAL) AND WILL PRINT "MXCNT''
AFTER THAT.

THE COUNT

IS PRINTED IN DECIMAL.

1.2.14 DIFFERENCES IN VO2A

THIS REVISION WAS BROUGHT ABOUT BY THE CHANGE OF

THE PROMPT PRINTED

WHILE IN COMMAND MODE.
THE PROMPT WAS SIMPLY ''$''. IT HAS BEEN
CHANGED TO *PCL>'* TO REDUCE THE CONFUSION ON SYSTEMS WHERE PDP=11'S
ARE ATTACHED TO VAX11780°'S.

(IT IS ONLY THE DIAGNOSTIC SUPERVISOR

ON THE VAX11780 THAT IS ALLOWED TO USE ''%'".)

SEQ 0006

"t
2

SEQ 0007

EXERCISER TABLES

THE PCL11 EXERCISER MAINTAINS THREE TABLES: A 'STATUS' TABLE

AN "ERRORS'
2.1

TABLE, AND A 'SUMMARY'

TABLE.

STATUS TABLE

THE STATUS TABLE IS DESIGNED TO SHOW THE OPERATOR THE NUMBER OF
SUCCESSFUL TRANSMISSIONS TO EACH RECEIVER RELATIVE TO THE NUMBER OF
ATTEMPTS TO TRANSFER DATA TO EACH RECEIVER.
IF THE TRANSMITTER HAS
BEEN TOLD TO 'RE-TRY - IF = BUSY'’, THE NUMBER OF SUCCESSFUL TRANSFERS
WILL BE VERY MUCH CLOSER TO THE NUMBER OF ATTEMPTS THAN WOULD BE
THE CASE IF 'RE-TRY - IF - BUSY'' WERE NOT THE ORDER. HOWEVER,

THE TOTAL NUMBER OF ATTEMPTS WOULD BE GREATER WITH "RIB'‘ CLEAR.
THE

INFORMATION GIVEN IN THE TABLE

INCLUDES:

RUN STATE -

STATE OF MASTER, SECONDARY, AND 'RIB'’

RcCEIVER ADDRESS =

THAT THIS TRANSMITTER HAS BEEN INSTRUCTED
TO COMMUNICATE WITH.

CONNECTION ATTEMPTS =

NUMBER OF TIMES THIS XMTR TRIED CONNECTING
TO THE RECEIVER OF

THE ABOVE ADDRESS.

SUCCESSFUL CONNECTIONS- NUMBER OF TIMES THAT THE ABOVE ATTEMPTS
WERE SUCCESSFUL.
RIB IS -SET- (OR CLEAR)
THIS UNIT IS -MASTER- (OR SECONDARY)

ELAPSED TIME (HRS,MIN,SEC,TIK)...0:0:4:35

<<=

SUCCESSFUL CONNECTIONS

XXX

CONNECTION ATTEMPTS

RCVR ADDRESS

THE ENTRIES UNDER 'RCVR ADDRESS'' INCLUDE ONLY THOSE ADDRESSES

ENTERED BY THE OPERATOR USING THE 'RANGE'' OR ''ADD'’' COMMANDS.

THE ENTRIES UNDER ‘'‘CONNECTION ATTEMPTS'' AND ‘‘'SUCCESSFUL
CONNECTIONS'' ARE DOUBLE PRECISION DECIMAL NUMBERS. THEY ARE CAPABLE OF

INCREASING TO A VALUE OF 655,359,999. IF THERE ARE A LARGER NUMBER OF

ATTEMPTS OR SUCCESSES FOR A PARTICULAR RECEIVER THAN THAT AMOUNT,

ENTRY IN THE TABLE WILL APPEAR AS : ''sxwsaxxsax’’

THE

SINCE ANY DATA RECEIVED BY A PCL11 RECEIVER MUST BE CHECKED,

THE DATA PATTERN, WHICH IS RANDOM, MUST BE RECREATED BY THE RECEIVING

EXERCISER BASED ON THE FIRST WORD RECEIVED. THIS MUST THEN BE
COMPARED WORD-FOR-WORD WITH THE RECEIVED DATA. IT IS READILY

APPARENT THAT THIS TAKES TIME AND WILL MAKE THAT PARTICULAR RECEIVER

UNAVAILABLE DURING THAT TIME.
ON A LARGE SYSTEM, WITH MANY PCL11'S
IT MIGHT BE QUITE A WHILE BETWEEN SUCCESIVE SUCCESSFUL CONNECTIONS
OF A GIVEN TRANSMITTER TO THE SAME RECEIVER, SINCE ALL TRANSMITTERS
MAY VERY WELL BE TRYING FOR THE SAME RECEIVERS AT THE SAME TIME.
IT IS FOR THIS REASON, THEN, THAT IT NEED NOT BE ALARMING THAT

THERE

1
I
IS A DIFFERENCE BETWEEN THE NUMBER OF SUCCESSES AND THE NUMBER

|0F ATTEMPTS.

SEQ 0008

2=2

THE PRINTING OF
OPERATOR ON EACH PDP-11

THE STATUS TABLE MUST BE INITIATED BY THE
INVOLVED DURING THE COURSE OF AN EXERCISE

RUN.
THE STATUS TABLE OUTPUT IS NOT CAUSED BY ANY OTHER MEANS
THAN THE OPERATOR ENTERING COMMAND MODE AND TYPING ‘'STATUS''. ALSC
IT MUST BE NOTED THAT ALL TRANSMITTER ACTIVITY IS SUSPENDED ON THE
UNIT WHILE THE STATUS IS BEING PRINTED OUT.
2.2

SUMMARY TABLE

THE SUMMARY TABLE IS DESIGNED TO SHOW THE OPERATOR A SUMMARY
OF ERRORS WHICH HAVE OCCURRED IN EITHER THE RECEIVER OR TRANSMITTER
HARDWARE ON EACH PDP-11.

INCLUDED IN THIS TABLE ARE:

ERROR NUMBER -

FOR REFERENCE LATER IN THIS DOCUMENT TO
INDICATE

THE TYPE OF FAILURE.

ERROR ADDRESS =

FOR REFERENCE IN THE PCL11 EXERCISER

NO. OF OCCURRENCES -

TO INDICATE HOW OFTEN THIS ERROR HAS
OCCURRED DURING RUN TIME.

THE

ERROR NUMBER
1

LISTING.

SUMMARY TABLE

IS PRINTED

ERROR ADDRESS

2
3

XXX

XXX
XXX

XXX

IN THE FORM:

NO. OF OCCURRENCES
YYYY

YYYY
YYYY

YYYY

THE ENTRIES UNDER 'ERROR NUMBER'' INCLUDE ONLY THOSE ERRORS
WHICH HAVE A 'NO. OF OCCURRENCES'' GREATER THAN 0.

THE ENTRIES UNDER 'ERROR ADDRESS'' REPRESENT THE OCTAL
MEMORY ADDRESS OF THE OCCURRENCE OF THE ERROR WHICH OCCURRED.
THE OPERATOR MAY FIND THIS USEFUL FOR LOCATING,

LISTING,

THE PORTION OF

IN THE

THE PROGRAM WHERE THE ERROR OCCURRED.

THE ENTRIES UNDER 'NO. OF OCCURRENCES'' IS THE TOTAL ( OR
SIMMARY VALUE)
OF ALL THE ERRORS OF THAT ERROR NUMBER WHICH
OCCURRED AT THIS TERMINAL REGARDLESS OF WHAT TRANSMITTER WAS CONNECTED TO WHAT RECEIVER.
THE PRINTING OF

THE SUMMARY TABLE MUST BE

INITIATED BY THE

OPERATOR ON EACH PDP-11 INVOLVED DURING THE COURSE OF AN EXERCISE
RUN.
THE SUMMARY TABLE OUTPUT IS NOT CAUSED BY ANY OTHER MEANS
THAN THE OPERATOR ENTERING COMMAND MODE AND TYPING ‘'SUMMARY''.
ALSO
IT MUST BE NOTED THAT ALL TRANSMITTER ACTIVITY IS SUSPENDED ON THE
UNIT WHILE THE SUMMARY TABLE IS BEING PRINTED OUT.

SEQ 0009

SEQ 0010
2.3

ERROR TABLES

THE ERROR TABLES ARE DESIGNED TO SHOW THE OPERATOR THE ERRORS
WHICH OCCURRED DURING AN EXERCISE RUN IN ENOUGH DETAIL SO THAT HE CAN

DETERMINE AS CLOSELY AS POSSIBLE WHICH TRANSMITTER AND/OR WHICH RECEIVER
WERE CONNECTED AT THE TIME OF THE ERROR. THERE ARE 15 OCTAL TRANSMITTER
TYPE ERRORS AND 13 OCTAL RECEIVER TYPE ERRORS.
FOR EACH OF THE TRANSMITTER ERRORS, ANY ONE OF 31 POSSIBLE
RECEIVERS MAY HAVE BEEN

CONNECTED TO THAT TRANSMITTER AT THE TIME OF THE ERROR.

THE ONE THAT

ACTUALLY WAS CONNECTED IS LISTED IN THIS ERROR TABLE ALONGSIDE THE ERROR
NUMBER AND THE COUNT OF THAT OCCURRENCE.
FOR EACH OF THE RECEIVER-TYPE
ERRORS, ANY ONE OF 31 TRANSMITTERS MAY HAVE BEEN TALKING TC THIS
RECEIVER AT THE TIME OF THE ERROR.
IN THE RECEIVER ERRORS TABLE.

AGAIN,

THE ENTRIES IN THESE TABLES THEN,

ERROR NUMBER -

THE ACTUAL ONE

IS LISTED

INCLUDE:

FOR REFERENCE LATER IN THIS DOCUMENT
TO INDICATE

THE

TYPE OF

FAILURE.

CONNECTED XMTR (RCVR) = TO INDICATE THE ACTUAL ERRONEOUS LINK.

ERROR COUNT THE

TO SHOW THE NUMBER OF OCCURRENCES
THIS ERROR WITH THIS CONNECTION.

TABLES ARE ALWAYS PRINTED TOGETHER AND ARE PRINTED
:

:
FOLLOWING FORMAT

TRANSMITTER ERRORS:

ERROR NO.
1

CONCTD RCVR
1

ERROR f\'KbJ.
16

27
30

6
37

RECEIVER ERRORS:

CONCTD XMTR
1

IN THE

ERROZ}CO(NT

1
15

48
2

ERROSZCOLNT

37
6

12
2

IF THE COMMAND IS GIVEN TO DUMP THESE ERROR TABLES AND IT IS

FOUND THAT NO ERRORS EXIST,

THE EXERCISER RESPONDS

IN THE FOLLOWING WAY:

** NO ERRORS TO REPORT YET =«

IF THERE ARE, FOR EXAMPLE, TRANSMITTER ERRORS BUT NO RECEIVER
ERRORS, THEN UNDER THE HEADING 'ERROR NO.'' OF THE RECEIVER ERRORS WILL
BE PRINTED:
(NONE).

2-4
2.4

CLEARING OF

SEQ 001

THE TABLES

THE "'STATUS TABLE'' IS NORMALLY CREATED BY MEANS OF THE OPERATOR
ENTERING, VIA THE 'RANGE, OR ADD'' COMMANDS, SOME RECEIVER ADDRESSES.
FOR EXAMPLE, IF THE ''ADD'' COMMAND WERE USED TO ENTER .
RECEIVER ADDRESSES 1, 2, 3, 4, 85, AND IMMEDIATELY THEREAFTER THE STATUS
WAS REQUESTED, THE STATUS TABLE WOULD INDICATE ALL OF THE SELECTED
RECEIVERS BUT THE ATTEMPTED AND SUCCESSFUL CONNECTION COUNTS FOR EACH
OF THOSE RECEIVERS WOULD BE O.

THE STATUS TABLE IS COMPLETELY CLEARED BY USING THE '‘CLEAR'
COMMAND, OR BY USING THE "DELETE'' COMMAND AND DELETING ALL THOSE ADDRESSES INDICATED IN THE STATUS TABLE.
THE '‘INITIALIZE'' COMMAND ALSO CLEARS
THE STATUS TABLE COMPLETELY BY INTERNALLY CALLING THE ‘‘CLEAR'' COMMAND.
THE ‘'SUMMARY TABLE'' IS NOT AFFECTED BY THE ''CLEAR'' COMMAND BUT
IS ENTIRELY CLEARED BY THE '‘INITIALIZE'' COMMAND.

LIKEWISE, THE ‘ERRORS TABLE'' IS COMPLETELY CLEARED BY THE
"INITIALIZE'" COMMAND BUT IS NOT AFFECTED BY THE "'CLEAR'" COMMAND.
WHEN THE OPERATOR ‘'STARTS'' THE EXERCISER BY USING THE ''GO"’
COMMAND, THE FOLLOWING RESULTS CAN BE EXPECTED ON THE TABLES:
THE ADDRESS ENTRIES OF

THE "'STATUS'' TABLE ARE UNAFFECTED.

THE ATTEMPTS AND SUCCESSES ENTRIES OF THE STATUS TABLE ARE CLR'D
THE ENTIRE SUMMARY TABLE
THE ENTIRE ERRORS TABLE

T TAOTION"T
TRscitaml i

IS CLEARED.
IS CLEARED.

IT IS IMPORTANT TO NOTE THAT THE RECEIVER ERRORS
ARE CLEARED ALONG WITH THE TRANSMITTER ERRORS UPON
THE ISSUANCE OF THE ‘‘GO’'* COMMAND. THEREFORE, THE

OPERATOR MUST NOTE THAT THE NUMBER OF RECEIVER
ERRORS INDICATED IN EITHER THE SUMMARY TABLE OR THE
RECEIVER ERRORS TABLE

SINCE ''GO"* WAS TYPED.

IS ONLY THE NUMBER ACCUMULATED

SEQ 0012
3

EXERCISE COMMANDS

3.1

CONTROL CHARACTERS

3.1.1

CONTROL=C

THIS CHARACTER IS USED TO GET THE EXERCISER INTO ‘‘COMMAND'' MODE

SO THAT ANY OF THE CONTROLLING COMMANDS MAY BE ENTERED.

TYPING CONTROL-C (“C) ECHOS "*“C'' AND TERMINATES ANY OTHER
FUNCTIONS WHICH MAY BE TAKING PLACE AT THE TIME.
IF ANY OF THE TABLES

ARE BEING PRINTED, THE CURRENT LINE WILL BE COMPLETED BEFORE '“C'’ IS
THE EXERCISER WILL THEN
ENTER "'COMMAND'® MODE AND INDICATE THIS BY PRINTING ‘PCL>'".
ECHOED. THEN THE TABLE WILL BE TRUNCATED.

"PCL>'' IS THE PROMPT WHICH INDICATES THAT A COMMAND MAY BE ENTERED
BY THE OPERATOR.

TYPING *'CNTRL-C'' WHILE THE EXERCISER IS 'EXERCISING'' WILL CAUSE
TERMINATION OF TRANSMITTER ACTIVITY ON THAT PDP-11, ECHO '*“C'‘, AND PRINT

THE COMMAND MODE PROMPT 'PCL>''.

3.1.2

CONTROL-0
THIS CHARACTER IS USED TO TERMINATE THE CURRENT PRINTOUT.

IT CAUSES THE ENTIRE CONTENTS OF THE OUTPUT QUEUE TO BE THROWN

AWAY.

WHEN TABLES ARE BEING PRINTED, ONLY A SINGLE LINE IS IN

THE OUTPUT QUEUE AT ANY GIVEN TIME. THIS ALLOWS ''SKIPPING'' OF

LINES DURING TABLE OUTPUT TO SAVE TIME.

WHEN CONTROL-O IS TYPED, THE EXERCISER WILL ECHO '*“0°'‘, CLEAR

THE OUTPUT QUEUE, AND THEN RETURN TO WHICHEVER MODE IT WAS IN
WHEN ‘'CNTRL-O'' WAS TYPED IN.
THEREFORE, IF “0 IS TYPED IN DURING

EXERCISE TIME, THE '**0"° WILL STILL BE ECHOED.
IF 'CNTRL-0'' IS TYPED
ARBITRARILY WHILE IN COMMAND MODE,
THE '*0'' WILL BE ECHOED BUT THERE
WILL NOT BE ANOTHER 'PCL>'' GIVEN (YET THE EXERCISER WILL ACCEPT COMMANDS).
3.1.3

CONTROL-U

THIS CHARACTER IS USED (AS IT IS IN MOST D.E.C. SOFTWARE) TO
THROW AWAY THE INPUT TYPED THUS FAR.
THIS CONTROL CHARACTER SHOULD

BE USED IF A MISTAKE IS NOTICED IN THE COMMAND STRING BEFORE CARRIAGE
RETURN IS HIT.
IF CARRIAGE RETURN IS HIT, THE ERRONEOUS COMMAND
WILL BE EXECUTED UP TO THE POINT OF THE ERROR, THEN A
SYNTAX
ERROR MESSAGE WILL BE PRINVED.

WHEN CONTROL-U IS TYPED, THE EXERCISER WILL ECHO '*“U'’, CLEAR
THE INPUT QUEUE, THEN ISSUE A NEW 'PCL>'' AND AWAIT A FURTHER COMMAND.

32
3.1.4

CONTROL=-S

THIS CHARACTER IS USED TO SUSPEND PRINTER OUTPUT. NOTH.NG

IS LOST WHEN IT IS USED, BUT THE PRINTOUT IS "HELD"' UNTIL THE ISSUANCE

OF CONTROL-Q OR SIMPLY TYPING ANY OTHER CHARACTER.
THIS FEATURE IS
USEFUL WHEN GETTING TABLE PRINTOUTS ON A VIDEO TERMINAL AND IT IS
DESIREOUS TO STOP THE DISPLAY.
IT IS ALSO USEFUL TO STOP THE PRINTOUT
IN ORDER TO FIX THE PAPER OR ADD MORE PAPER ON ANY HARD COPY PRINTER.
NOTHING IS ECHOED UPON , OR AFTER, THE ISSUANCE OF A CONTROL=-S.

3.1.5

CONTROL-Q
THIS CHARACTER IS USED TO RESUME PRINTOUT AFTER IT WAS STOPPED

BY USE OF CONTROL-S.
TYPING ANY OTHER CHARACTER WILL ALSO RESUME OUTPUT
BUT THE CONTROL-Q CHARACTER IS NOT ENTERED INTO THE INPUT QUEUE, AND
SIMPLY RESUMES PRINTOUT.

NOTHING IS ECHOED AS A RESULT OF TYPING CONTROL-Q EXCEPT
WHATEVER PRINTOUT HAD BEEN SUSPENDED BY THE CONTROL-S CHARACTER.
3.1.6

CARRIAGE RETURN
THE CARRIAGE RETURN CHARACTER IS USED TO TERMINATE COMMAND

STRINGS AND SIGNIFIES ENTRANCE OF A COMMAND.
ALL COMMANDS MUST BE TERMINATED WITH EITHER A CARRIAGE RETURN OR A LINE FEED.
IF
ONLY CARRIAGE
RETURN IS TYPED, (BLANK COMMAND) THE EXERCISER SIMPLY ISSUES A NEW "PCL>'".
WHEN CARRIAGE RETURN <CR> IS TYPED, BOTH CARRIAGE RETURN AND
LINE FEED ARE ECHOED.

3.1.7

LINE FEED

THE LINE FEED CHARACTER IS TREATED EXACTLY AS THE CARRIAGE RETURN
CHARACTER.
IF ONLY A LINE FEED IS TYPED, (BLANK COMMAND) THE EXERCISER
ISSUES A NEW 'PCL>'".

3.1.8

RuUBOUT

THIS CHARACTER IS USED TO "EDIT' THE COMMAND STRING WHILE IT
IS BEING TYPED.
EACH RUBOUT TYPED WILL REMOVE A CHARACTER FROM THE
COMMAND BUFFER.
WHEN ALL THE CHARACTERS HAVE BEEN REMOVED, THE EXERCISER
WILL ISSUE A NEW "PCL>'' TO INDICATE THE ENTIRE COMMAND HAS BEEN ERASED.

EACH TIME A RUBOUT IS TYPED, A '\'' IS ECHOED AND THE LAST CHAR-

ACTER WHICH WAS

INPUT

IS REMOVED.

SEQ 0013

3-3
3.2

COMMANDS

THIS SECTION DEALS WITH THE FULL COMMANDS OF THE EXERCISER WHICH

ALLOW THE SETTING UP OF CONDITIONS TO BEST SUIT THE SYSTEM BEING TESTED.
IN THE COMMANDS SHOWN, THE MINIMUM AMMOUNT REQUIRED TO BE TYPED IS SET

IN SQUARE BRACKETS

[J. FOR EXAMPLE, IN THE COMMAND:

CIINITIALIZE
ALL OF THE FOLLOWING ARE ACCEPTABLE:

I, IN, INI, INIT, INITI, INITIA, INITIAL, INITIALI, INITIALIZ

AND INITIALIZE

WHEREAS THE FOLLOWING ARE NOT ACCEPTABLE:

INT,

INITL,

INITIALIZES

THERE ARE SOME COMMANDS WHICH MAY BE EXECUTED WITH OR WITHOUT
ARGUMENTS. IN THESE CASES,THE <ARGUMENTS> WILL BE SET IN ANGLE BRACKETS.
ARGUMENTS FOR COMMANDS MUST BE NUMERIC, EXCEPT FOR THE COMMANDS
"MASTER'’, "‘SECONDARY'‘, AND 'RIB'', AND IF THEY ARE TYPED IN AS DECIMAL
NUMBERS, THY MUST BE IMMEDIATELY FOLLOWED BY A DECIMAL POINT (PERIOD).
FOR THE 'RANGE'' AND ‘‘ASSIGN'' COMMANDS, THE ORDER OF THE INPUT

OF ARGUMENTS MUST ADHERE TO THE DESCRIPTIONS (SECT 3.2.5, & 3.2.13)
3.2.1

SILO

[(SIJL0<AB C ....N>

SILO

== CLEAR THE MASTER ADDRESS SILO AND RETURN TO ‘‘AUTO
ADDRESS MODE'’.

SILO

ABC

. N

LOAD THE MASTER ADDRESS SILO WITH THE SEQUENCE ‘‘ABC..N'
AS MANY TIMES AS THE WHOLE SEQUENCE WILL FIT INTO THE
SILO'S 50 LOCATIONS.

THIS COMMAND MONITORS THE ARGUMENTS CAREFULLY CHECKING FOR

SEQUENTIAL ARGUMENTS WHICH ARE THE SAME, ARGUMENTS WHICH ARE 0, OR ARE
GREATER THAN 37 OCTAL, AND CHECKING THAT THE LAST ARGUMENT IS NOT THE
SAME AS THE FIRST.

IF ANY TWO SEQUENTIAL ARGUMENIS ARE FOUND TO BE THE SAME, INCLUDING
THE FIRST AND THE LAST,A 'PAD'’ VALUE IS INSERTED BETWEEN THEM. THE 'PAD'’
VALUE IS 0.
THIS ALSO INCREASES THE NUMBER OF ARGUMENTS IN_THE SEQUENCE.

IF ANY OF THE ARGUMENTS ARE '0'', DR GREATER THAN ‘37"

OR NON-NUMERIC, OR IF THERE ARE MORE THAN 50. ARGUMENTS, THE COMMAND WILL
BE ABORTED AND THE ‘'s*SYNTAX ERROR+*+*'' MESSAGE WILL BE PRINTED.
WHEN THE SILO HAS BEEN SUCCESSFULLY LOADED,
THERE IS THE POSSIBILITY THAT ONE OR TWO MESSAGES WILL BE PRINTED, OR NONE MAY BE PRINTED.

IF THIS UNIT IS NOT MASTER, THE FOLLOWING WILL BE PRINTED:
"'THIS UNIT IS NOT MASTER BUT HAS BEEN MADE SECONDARY
THE SILO YOU HAVE JUST LOADED WILL BE USED IF YOU CLEAR

THE CURRENT MASTER.''

IF IT WAS REQUIRED FOR THE EXERCISER TO 'PAD'' THE SILO WITH 0'S

SEQ 0014

TMM

—

TMM
TM

UVWDDEBET
4

(¥,]

SEQ@ 0015

"THE SILO HAS BEEN PADDED WITH THE ADDRESS ‘0°'."’

—r

THE FOLLOWING WILL BE PRINTED:

3.2.2

SEQ 0016

MASTER

[CMJASTER [SJET OR [CILEAR
MASTER SET

= WRITE A (1) INTO THE TMMR REGISTER BIT 08 IN
THIS TRANSMITTER TO ATTEMPT TO SET MASTER.

ANOTHER UNIT HAVING ‘MASTER'' SET, WILL DISALLOW THIS BIT TO BE SET.

MASTER CLEAR = WRITE A (0) INTO THE TMMR REGISTER BIT 08 IN
THIS TRANSMITTER TO CLEAR "MASTER''.
IF NO
OTHER UNIT HAS BEEN SET TO BE ‘'SECONDARY'', THIS
ACTION WILL CAUSE ‘MASTER DOWN'' ERRORS ON ALL
UNITS ATTEMPTING TO TRANSMIT.
THIS COMMAND IS USED TO ‘‘SOFTWARE SET'' ONE OF THE PCL11 UNITS

TO BE MASTER OF THE T.D.M. BUS. THE ONLY ARGUMENTS ALLOWED ARE '‘[SJET"

AND “TCILEAR''.
NO ARGUMENTS, OR ANY OTHER ARGUMENTS THAN THESE, WILL
RESULT IN THE MESSAGE ‘‘s~SYNTAX ERROR*»"’,

SINCE THE HARDWARE DESIGN WILL NOT ALLOW MASTER TO BE SET ON
MORE THAN ONE UNIT CONNECTED TO THE SAME T.D.M. BUS, THIS COMMAND
MAY NOT WORK IN SETTING MASTER.
THERE IS NOT, HOWEVER, ANY IMMEDIATE
INDICATION THAT THE 'MASTER SET'' COMMAND WAS OR WASN'T SUCCESSFUL. THE
G’EFT!A}(S)RH’:SJ%RISSUE THE ''STATUS'' COMMAND TO DETERMINE IF A PARTICULAR
UN
.
3.2.3

SECONDARY

[SEJCONDARY [SJET OR [CILEAR

SECONDARY SET

= WRITE A (1) INTO THE TMMR REGISTER BIT 09 IN
THIS TRANSMITTER TO ATTEMPT TO SET ''SECONDARY''.
THIS UNIT BEING "MASTER'' WILL DIS-ALLOW THIS
BIT TO BE SET.

SECONDARY CLEAR - WRITE A (0) INTO THE TMMR REGISTER BIT 09 IN
THIS TRANSMITTER TO CLEAR '‘SECONDARY''.
THIS COMMAND IS USED TO ‘‘SOFTWARE SET'' ONE OF THE PCL11 UNITS
TO BE SECONDARY MASTER OF THE T.D.M. BUS.
IF THE PCL11 UNIT WHICH CURRENTLY HAS MASTER SET CLEARS IT, AND THIS UNIT HAS SECONDARY SET, THEN
THIS UNIT WILL BECOME

THE NEW MASTER.

THIS UNIT

WITH A RECEIVER AT THE TIME IT BECOMES NEW MASTER,

IN COMMUNICATION

THE MESSAGE

** THIS UNIT HAS BECOME 'NEW MASTER'® #»
é?S!;RéNTED ON THE CONSOLE AND THE EXERCISER AUTOMATICALLY CONTINUES EXERNG.

3-5
3.2.4

SEQ 0017

RIB

[(RIJB [SJET OR [CILEAR

RIB SET

= WRITE A (1) INTO THE MEMORY LOCATION (BIT 15) WHICH
IS USED AS THE TRANSMITTER COMMAND WORD. THE LOCATION IS TAGGED:
‘‘TXMST:''. THIS WILL CAUSE THE
NEXT AND SUBSEQUENT TRANSMITTER EVENTS TO OCCUR
IN THE 'RE-TRY = IF - BUSY'' MODE.

RIB CLEAR = WRITE A (0) INTO THE MEMORY LOCATION (BIT 15) WHICH
IS USED AS THE TRANSMITTER COMMAND WORD TAGGED
"TXMST''.

THIS WILL CAUSE 'BUSY'' INTERRUPTS TO OC-

CUR WHENEVER THE RECEIVER BEING ADDRESSED IS NOT

READY OR NOT THERE.

THIS COMMAND IS USED TO ''SOF TWARE SET'' THE 'RIB'' OR RE~TRY

IF BUSY FEATURE IN THE PCL11 TRANSMITTER.

WITH 'RIB'' SET, THE TRANS-

MITTER HARDWARE WILL CONTINUOUSLY RE-TRY TO CONNECT TO THE SELECTED RECEIVER UNTIL EITHER A '‘TIME-OUT'' OCCURS, OR THE CONNECTION IS MADE AND
A "'SUCCESSFUL

TRANSFER'' OCCURS.

WITH 'RIB'' CLEAR, THE HARDWARE PRODUCES AN INTERRUPT IMMEDIATELY UPON FINDING THE ADDRESSED RECEIVER BUSY OR NOT THERE. THE USE

OF THIS COMMAND WILL CAUSE A DIFFERENCE IN THE '‘SUCCESSFUL CONNECTION''
CQTNT RELATIVE TO THE "'ATTEMPTED CONNECTION'' COUNT IN THE STATUS PRINTouT.

3.2.4

RANGE

CRAINGE [LOW HIGH]
RANGE A B

PRODUCE A LIST,

IN THE

STATUS

TABLE,

ADD-

RESSES FROM ADDRESS '‘A'' TO 'B'' AND MAKE THEM
“ACTIVE'' RECEIVER ADDRESSES.
'B'' MUST BE HIGHER
THAN ‘'A"',
BOTH "'A"" AND 'B'' ARE REPRESENTATIVE OF

NUMERICAL VALUES WITHIN THE RANGE OF 1-37 OCTAL.
:
EXAMPLE

THE COMMAND 'RANGE 12. 16.'" WILL ACTIVATE RECEIVER ADDRESSES
12 UP TO AND INCLUDING 16 (DECIMAL), OR 14 UP TO AND INCLUDING 20

(OCTAL). THESE ADDRESSES WillL BE USED SEQUENTIALLY BY THE
MODULE IN THE EXERCISER AS TARGET RECEIVER ADDRESSES.

TRANSMITTER

SEQ 0018
3.2.6

ADD

(ADID (1123 .

.37

ADD A B C

SELECT TARGET RECEIVER ADDRESSES.
ADD THE NUMERIC VALUES OF A, B, C TO THE

STATUS TABLE AND MAKE THEM "ACTIVE RECEIVER ADDRESSES''. THIS COMMAND MAY HAVE ANY
NUMBER OF ARGUMENTS PROVIDING THAT
THERE IS AT LEAST ONE.

THERE IS NO RESTRICTION

ON THE ORDER OF THE ARGUMENTS AT ALL.

THE SAME

NUMBER MAY BE ADDED AS MANY TIMES AS YOU
THE ARGUMENTS MUST BE NUMERICAL AND
LIKE.

BETWEEN THE VALUES 1 AND 31.
1 AND 37 (OCTAL).

(DECIMAL) OR

:
EXAMPLE

THE COMMAND °"'ADD 1 12 3 3 22 8.
"' WILL ACTIVATE RECEIVER
ADDRESSES 1 3 10 12 AND 22 (OCTAL) OR 1 3 8. 10. AND 18. (DECIMAL)

THIS COMMAND AFFECTS ONLY THOSE ADDRESSES INCLUDED IN THE
ARGUMENTS OF THE COMMAND. IT MAY BE USED EFFECTIVELY IN CONJUNCTION
WITH THE "RANGE'' COMMAND TO PRODUCE A AN EFFICIENT LIST OF
THOSE RECEIVER ADDRESSES WHICH ARE TO BE COMMUNICATED WITH BY
THIS TRANSMITTER.

3.2.7

DELETE

[DIELETE (11 23 .
DELETE A B C

. 37

DELETE THE NUMERIC VALUES OF A, B, C FROM
THE STATUS TABLE AND MAKE THEM ‘‘INACTIVE
RECEIVER ADDRESSES''.
THIS COMMAND MAY HAVE
ANY NUMBER OF ARGUMENTS PROVIDING THERE

IS AT LEAST ONE. THERE IS NO RESTRICTION ON

THE ORDER OF

THE ARGUMENTS AT ALL.

AND RE-

DUNDANCIES ARE ACCEPTABLE.
THE ARGUMENTS
MUST BE NUMERIC AND BETWEEN_THE VALUES 1
AND 31. (DECIMAL) OR 1 AND 37 (OCTAL).
:
EXAMPLE

THE COMMAND

'DELETE 12 22 ''

WILL MAKE RECEIiVER ADDRESSES

12 AND 22 "‘INACTIVE'' SO THAT THIS TRANSMITTER WILL NOT ATTEMPT TO

COMMUNICATE WITH THEM.

THIS COMMAND MAY BE USED EFFECTIVELY IN CON-

JUNCTION WITH THE 'RANGE'' COMMAND AS FOLLOWS:
RANGE

DELETE 2 5

WILL PRODUCE A LIST OF "'ACTIVE'' RECEIVERS WITH THE ADDRESSES:

SEQ 0019
3.2.8

CLEAR

CCLIEAR
-

CLEAR

CLEAR THE ENTIRE STATUS TABLE. REMOVE

ALL RECEIVER ACTIVE FLAGS AND CLEAR ALL

CONNECTION ATTEMPS AND SUCCESSES FROM EVERY
TABLE LOCATION.

THIS COMMAND IS MOSTLY

USEFUL WHEN IT IS DESIRED TO 'RE=-START'' THE
EXERCISER WITH A FRESH SLATE BUT NOT DIS-

TURBE§HE ERROR SUMMARY TABLE NOR THE ERRORS

TABLES.

THE '‘CLEAR'' COMMAND HAS NO AFFECT ON ANY
OTHER TABLES IN THE EXERCISER BUT IT DOES ALSO
CLEAR THE INTERNAL (SOFTWARE) QUEUE OF RECEIVER ADDRESSES.
:
EXAMPLE

CONSIDER THE FOLLOWING STRING OF COMMANDS:
RANGE 1.21
ADD 27 30 31

DELETE 17 20
CLEAR
RANGE 1

ADD 21

32 33 34

THE RESULT WOULD BE

THE "'ACTIVATION'' OF RECEIVER ADDRESSES:

02 5 6. 5, 0. 7, %, M, W2 15, W, 15, 0%, 1, ¥
5.2.9

INITIALIZE
CIINITIALIZE
INITIALIZE -

INITIALIZE EVERYTHING ABOUT THIS TRANSMITTER

AND CLEAR ALL TABLES ASSOCIATED WITH THIS
PDP=11.
INITIALIZE PERFORMS A HARDWARE CLEAR
OF THE TRANSMITTER REGISTERS, RESETS ALL OF
THE EVENT FLAGS ASSOCIATED WITH THE SENDING
OF DATA, CLEARS THE SOF TWARE QUEUE OF RECEIVER ADDRESSES, INITIALIZES THE SEEDS
USED FOR GENERATION OF RANDOM DATA, DOES A

"'CLEAR'' COMMAND AS ABOVE AND CLEARS BOTH
ERROR TABLES.

3-8

13.2.10

SEQ 0020

STATUS
[STIATUS
STATUS =

SET THE EVENT FLAG WHICH CAUSES THE CURRENT
STATUS TABLE TO BE PRINTED.
EVERY TIME

THE STATUS COMMAND IS ISSUED, A STATUS HEADER

IS PRINTED (SEE 2.1). THEN, IN NUMERICAL ORDER

THE '‘ACTIVE'' RECEIVER ADDRESSES, NUMBER OF
ATTEMPTED CONNECTIONS, AND NUMBER OF SUC-

CESSFUL CONNECTIONS IS PRINTED ON A LINEBY-LINE BASIS.
THE PRINTING OF THE STATUS
TABLE DOES

(LIKE ALL

COMMANDS)

INHIBIT ANY

ACTION BY THE TRANSMITTER IN THAT PDP-11 BUT
THE RECEIVER IS ALWAYS ACTIVE.

3.2.11

SUMMARY

[SUIMMARY
SUMMARY -

SET THE EVENT FLAG WHICH CAUSES THE CURRENT
ERROR SUMMARY TABLE TO BE PRINTED. EVERY
TIME

THE SUMMARY COMMAND IS ISSUED, A SUM-

MARY HEADER IS PRINTED (SEE 2.2). THEN, IN

NUMERICAL ORDER, THE ERROR NUMBERS, ERROR
ADDRESSES, AND NO. OF OCCURRENCES ARE PRINTED
(IF ANY) ON A LINE-BY-LINE BASIS. AGAIN,
TRANSMITTER ACTIVITY IS SUSPENDED UNTIL

EXERCISER IS ''CONTINUED''.
3.2.12

THE

ERRORS

CEJRRORS
ERRORS =

SET THE EVENT FLAG WHICH CAUSES THE CURRENT

TRANSMITTER ERROR TABLE TO BE PRINTED. WHEN
THE TRANSMITTER ERROR EVENT IS FINISHED, IT
WILL AUTOMATICALLY SET THE RECEIVER ERROR

EVENT FLAG WHEREBY THE RECEIVER ERROR TABLE
WILL BE PRINTED (SEE 2.3).
WHEN THE "ERROR'' COMMAND IS ISSUED, A CHECK
IS MADE OF THE ENTIRE TRANSMITTER AND RECEIVER TABLES TO DETERMINE IF THERE HAD BEEN
ANY ERROR OCCURRENCES TO DATE.
IF THERE WERE
NO ERRORS IN EITHER TABLE, THEN THE MESSAGE
:

"NO ERRORS TO REPORT YET''
IS PRINTED. OTHERWISE, THE ERROR NUMBER (IN
NUMERICAL ORDER), THE CONNECTED RCVR/XMIR,
AND THE ERROR COUNT ARE PRINTED ON A LINE-BY
LINE BASIS.
TRANSMITTER ACTIVITY IS AGAIN

SUSPENDED UNTIL THE EXERCISER IS '‘CONTINUED''.

b e

3.2.13

SEQ 0021

ASSIGN

XM VCT

[AS]ISIGN <XM ADDR
ASSIGN =

RC ADDR

RC VCTR>

GIVE TO THE EXERCISER, THE UNIBUS ADDRESSES
AND VECTORS OF THE PCL11 UNIT WHICH THE OPERATOR DESIRES TO EXERCISE.

AS IS INDICATED BY THE ANGLE BRACKETS, THE
ASSIGN COMMANDS' ARGUMENTS ARE OPTIONAL. IF
THE ASSIGN COMMAND IS ISSUED WITH NO ARGUMENTS,
THEN THE 'DEFAULT' (NORMAL) ADDRESSES AND
VECTORS ARE ASSIGNED. THESE ARE:
XMTR ADDR
164200
XMTR VECTOR
170
RCVR ADDR
164220
RCVR VECTOR
174
THE ''ASSIGN'' COMMAND MAY ALSO BE USED WITH
ANY, OR ALL OF FOUR ARGUMENTS. HOWEVER
THE PROPER FIELD MUST BE USED TO ENTER THE
DESIRED ADDRESS:

ASSIGN AAAAA BBB (CCCCC DDD
TO ENTER ONLY THE TRANSMITTER ADDRESS, ONLY
THE FIELD AAAAA NEED BE USED.

ASSIGN 166200

TO ENTER THE TRANSMITTER VECTOR (BBB), FIRST
;HFE,E;RANSHXTTER ADDRESS, THEN THE VECTOR IS
:

ASSIGN 166200 700

TO ENTER THE RECEIVER ADDRESS (FIELD CcCCCC),

FIRST THE TRANSMITTER ADDRESS., THEN THE
TISQN#SgégTER VECTOR, THEN THE RECEIVER ADDRESS
I

ASSIGN 166200 700 166220

FINALLY, TO ASSIGN THE RECEIVER VECTOR, THE
XMTR ADDRESS, XMTR VECTOR, RCVR ADDRESS AND
THEN THE RECEIVER VECTOR IS TYPED:

ASSIGN 166200 700 166220 704

NOTE THAT EACH ARGUMENT MUST BE SEPARATED
BY A SPACE (NOT A COMMA).

AT THE SUCCESSFUL COMPLETION OF THE '‘ASSIGN''

COMMAND,

THE EXERCISER WILL BE STARTED OVER

JUST AS THOUGH THE OPERATOR HAD STARTED AT 200.
A "‘*xSYNTAX ERROR*+'' WILL OCCUR WITH ANY OF

THE FOLLOWING CONDITIONS:
TOO MANY ARGUMENTS
ARGUMENT IS NOT NUMERIC
ADDRESS ARGUMENT NOT IN I/0 ADDRESS FIELD

(1.E. ABOVE 163776)

VECTOR ARGUMENT IS NOT IN VECTOR FIELD
(I1.E. FROM 0 TO 776)
ADDRESS ARGUMENT HAS WRONG OFFSET
(I.E. LAST 4 BITS MUST BE 0)
VECTOR ARGUMENT HAS WRONG OFFSET
(I.E. LAST 2 BITS MUST BE 0)

IMPROPER SPELLING OF '‘ASSIGN'' OR IMPROPER USE

OF DECIMAL NUMBERS.

3-10

3.2.14

SEQ 0022

GO
(Glo

START THE EXERCISER. ENTER 'EXERCISE MODE''.
GO IS ISSUED TO INITIALLY START THE EXERCISER
TRANSMITTING TO OTHER RECEIVERS ON THE

T.D.M.

BUS.
ALL TARGET RECEIVER ADDRESS SHOULD HAVE
ALREADY BEEN ENTERED VIA THE 'RANGE'' OR '‘ADD"’
COMMANDS, AND ONE OF THE PCL11 UNITS SHOULD
HAVE BEEN SET TO BE T.D.M. BUS MASTER. IF

THE "'SILO'" IS BEING USED TO GENERATE TRANSMITTER ADDRESSES, IT SHOULD HAVE BEEN LOADED
PRIOR TO 'GO''.
THE ''GO'' COMMAND WILL CAUSE THE CLEARING
OF THE ERRORS TABLES AND THE SUMMARY TABLE AND
THE 'ATTEMPTS'' AND ‘‘SUCCESSES'' PORTIONS OF THE
STATUS TABLE. IT ALSO CAUSES THE CLEARING OF
THE RECEIVER ADDRESS QUEUE (SOF TWARE). NOTE THAT

THE RECEIVER ERRORS ACCUMULATED UP TO THE POINT OF

TYP=-

ING "'GO'* ARE LOST. ONLY THOSE ACCUMULATED AFTER ''GO'' IS

TYPED CAN BE DISPLAYED IN THE ERRORS TABLE.

WILL

NOT, HOWEVER, CAUSE THE CLEARING OF THE RECEIVER
ADDRESSES IN THE STATUS TABLE; SO THAT ALL RECEIVERS SELECTED BY THE RANGE OR ADD COMMANDS
WILL STILL BE ACTIVE.

THE TRANSMITTER "EVENT'' FLAG IS SET BY THE
GO COMMAND WHICH BEGINS THE TRANSMISSION OF
DATA TO THE DE-QUEUED TARGET RECEIVER ADDRESSES.
WHEN ''GO'' IS ISSUED, THE IMMEDIATE RESPONSE
SHOULD BE THAT THE EXERCISER PRINTS:
EXERCISER STARTED
HOWEVER, IF THE OPERATOR FORGOT TO ENTER THE
TARGET RECEIVER ADDRESSES, AND NONE WERE PREVIOUSLY ENTERED, THE EXERCISER WILL NOT BE
ABLY TO RUN AND WILL APOLOGIZE THUS:

"'« SORRY,

3.2.15

I HAVE NO RECEIVER ADDRESSES *'’

(CONTINUE
[COINTINUE
CONTINUE -

CONTINUE EXERCISING. RE-ENTER EXERCISE MODE.

"'CONTINUE'' IS ISSUED TO CAUSE THE EXERCISER

TO CONTINUE AFTER A TABLE HAS FINISHED BEEING
PRINTED, OR AFTER SOME OTHER COMMAND HAS

BEEN EXECUTED TO POSSIBLY CHANGE THE RUNNING
OF THE EXERCISER.
THE '‘CONTINUE'' COMMAND DOES NOTHING TO ANYTHING EXCEPT

THAT

IT RE-STARTS EXERCISE MODE.

ALL TABLES ARE LEFT INTACT AND SOF TWARE QUEUES

ARE UNTOUCHED.
THE

WHEN ''CONTINUE'' IS ISSUED,

IMMEDIATE RESPONSE

EXERCISER PRINTS:

SHOULD BE

"EXERCISER CONTINUING''

THAT

THE

3-11

IF, HOWEVER, WHILE THE EXERCISER WAS STOPPED,

THE OPERATOR USED THE

INITIALIZE OR CLEAR

COMMANDS AND DID NOT RE-ENTER ANY TARGLT RECEIVER ADDRESSES (VIA RANGE OR ADD),THE RECEIVER ADDRESS QUEUE WOULD EVENTUALLY BECOME
EMPTY AND WOULD NEVER BE RE-FILLED. THIS WOULD
AGAIN CAUSE THE PRINTOUT:

"« SORRY, I HAVE NO RECEIVER ADDRESSES *''

3.2.16

**SYNTAX ERROR++
*«SYNTAX ERROR** [S NOT A COMMAND BUT IS RELATED TO ALL OF

THE COMMANDS OF SECTION 3.2.

W—

B
B

—

IN GENERAL, A SYNTAX ERROR WILL RESULT FOR

COMMAND DOES NOT EXIST IN "XEYWORD'' TABLE

SPANN=LOVONOAVIES

= FOLLOWING REASONS:

NO ARGUMENTS GIVEN WHERE REQUIRED
ARGUMENTS GIVEN WHERE NONE REQUIRED
ARGUMENTS IN WRONG ORDER (WHERE ORDER IS IMPORTANT)
NOT ENOUGH ARGUMENTS

COMMAND WORD IS MISSPELLED
FEWER THAN THE MINIMUM CHARACTERS WERE USED

(I.E. LESS THAN THAT ENCLOSED IN SQUARE BRACKETS

TOO MANY ARGUMENTS

ARGUMENTS ARE WRONG CLASS

[CLIJEAR)

(USUALLY SHOULD BE NUMBERS)

ARGUMENTS ARE OUTSIDE SPECIFIC BOUNDARIES (SEE 3.2.13)
ARGUMENTS SEPARATED BY OTHER THAN A SPACE

COMMAND SEPARATED FROM ARGUMENTS BY OTHER THAN A SPACE
DECIMAL NUMERIC ARGUMENTS USED WITHOUT THE POINT (.)
ARGUMENTS ARE THE SAME (ONLY IN "RANGE'' COMMAND)

SEQ 0023

4=1
4

GETTING THE EXERCISER STARTED

4.1

PREPARAT
ION

SEQ 0024

BEFORE RUNNING THE PCL11 EXERCISER, THE FOLLOWING MUST HAVE

BEEN PREVIOUSLY PERFORMED:

= INSURE ALL PCL11 UNITS ARE CORRECTLY INSTALLED IN EACH
PDP-11 PROCESSOR.
- DETERMINE ALL OF THE T.D.M. BUS ADDRESSES OF THE
TRANSMITTERS AND THE RECEIVERS OF THE UNITS WHICH
INSURE THAT NO
IT IS DESIRED TO BE TESTED.

CN
CN

TWO TRANSMITTERS AND NO TWO RECEIVERS HAVE BEEN
ASSIGNED THE SAME T.D.M. BUS ADDRESSES.

;RgMAS %EORE CONNECTING ALL UNITS TOGETHER VIA THE

= RUN THE PCL11 '‘STANDALONE'' TEST (CZPLBAQ) WITHOUT

4.2

THE PCL11 EXERCISER IS SUPPLIED IN ABSOLUTE BINARY FORMAT
AND IS LOADED BY MEANS OF THE STANDARD PDP-11 ABSOLUTE LOADER OR
THE *XXDP’'' LOAD COMMAND.
THE EXERCISER IS APPROXIMATELY 7-K LONG. THEREFORE, WHEN

USING ‘XXDP'‘, THE PROCESSOR MUST HAVE 16-K OF MEMORY.
PCL11

4.3

THE EXERCISER MUST BE LOADED INTO EACH PDP=11 HOSTING A

WHICH IS TO BE

TESTED.

DEVICE ADDRESSES

IT MAY BE FOUND THAT THE UNIBUS ADDRESSES OF THE PCL11 UNIT
ARE DIFFERENT THAN THE DEFAULT ADDRESSES IN THE EXERCISER (SEE 3.2.13).
IF THIS IS THE CASE, AND THERE ARE NO OTHER DEVICES ON THE UNIBUS WITH
THE ADDRESSES 164200-164226, THE FOLLOWING PRINTOUT WILL OCCUR:

"DEVICE ADDRESS ERROR. USE ‘‘ASSIGN'' COMMAND''

ALSO, IT MAY BE THE CASE THAT THERE IS MORE THAN ONE PCL11
UNIT HOSTED BY ONE PDP-11 AND EACH ONE MUST BE TESTED 'ON-LINE''
USING THE EXERCISER.

IN EITHER CASE, THE OPERATOR MUST USE THE
‘ASSIGN''
COMMAND AS SHOWN IN SECTION 3.2.13 TO ASSIGN THE CORRECT UNIBUS
ADDRESSES TO THE EXERCISER IN ORDER TO EXERCISE THE RIGHT PCL11.
PDP-11

NOTE THAT THE EXERCISER WILL RUN WITH ONLY ONE PCL11
AT A TIME.

PER

SEQ 0025
4.4

STARTING ADDRESSES

THE EXERCISER STARTING ADDRESS IS 200
THIS WILL INITIALIZE EVERYTHING AND START IN COMMAND INPUT MODE.

THE EXERCISER IS RESTARTED AT LOCATION 204
THIS WILL PRESERVE THE ERROR TABLES, STATUS TABLE, AND THE
RECEIVER ADDRESS QUEUE.
IT WILL NOT, HOWEVER, PRESERVE THE

STATE OF THE TRANSMITTER ADDRESS SILO (HARDWARE CLEARED BY

'RESET)

NOR THE STATE OF "MASTER'' OR ‘‘SECONDARY''.
THESE UNPRESERVED
STATES MUST BE RE-ESTABLISHED PRIOR TO STARTING THE EXERCISE MODE
WITH THE "'GO'' COMMAND.
START

RESTART

4.5

200
204

OPERATING PROCEDURES

o
(E

LOAD THE PROGRAM USING THE PDP-11 ABS LCADER OR THE LOAD
COMMAND OF 'XXDP''. (SEE 4.2)

LOAD ADDRESS 200; PRESS START. THE TEST WILL IDENTIFY
ITSELF AND TEST THE DEVICE ADDRESSES.

(G
C1

]

IF THE PCL11 UNIBUS ADDRESSES OF THE UNIT TO BE TESTED
ARE NON-STANDARD, USE THE ''ASSIGN'' COMMAND AS IN 3.2.13

DO A) TC C)

(ABOVE) ON ALL PDP-11S BEFORE CONTINUING.

ASSIGN ONE OF THE UNITS AS MASTER EITHER BY USING THE
"MASTER SET'' COMMAND, (SEC. 3.2.2) OR BY LOADING THE
XMTR ADDRESS SILO (SEC. 3.2.1)
ON THE SELECTED UNIT.

AT EACH UNIT, DECIDE WHETHER IT IS DESIRED TO RUN THE

TRANSMITTER IN THE 'RE-TRY - IF - BUSY'' MODE AND SET OR

CLEAR "RIB'' ACCORDINGLY (SEC. 3.2.4).
G)

AT EACH UNIT, ENTER THE RECEIVER ADDRESSES OF ALL THE
RECEIVERS THAT THIS TRANSMITTER IS TO COMMUNICATE TO,

INCLUDING THE ADDRESS OF ITS OWN RECEIVER. (3.2.6 OR 3.2.5)

ON EACH UNIT, TYPE "GO'' TO START THE EXERCISER(S).

PERIODICALLY, ON EACH UNIT, TYPE CNTRL-C, THEN ISSUE THE
"'STATUS'' COMMAND TO INSURE THAT ALL RECEIVERS ARE BEING
TALKED TO AND THAT THE CORRECT UNIT IS MASTER.

ALSO PERIODICALLY, ON EACH UNIT, ISSUE THE ''SUMMARY''
COMMAND TO DISCOVER IF THERE HAVE BEEN ANY ERRORS.

AT ANY TIME , THE 'ERRORS'' COMMAND MAY BE ISSUED TO
DETERMINE WHICH ERRORS HAVE OCCURRED BETWEEN WHICH
RECEIVER AND TRANSMITTER CONNECTION.

TO RESUME EXERCISING AS BEFORE ON ANY UNIT, TYPE

“CONTINUE'’* ON THE UNITS WHICH HAD BEEN STOPPED BY

Cs
Cs
Cs
Cs

.
(OR MASTER DOWN)
CNTRL=C.

SEQ 0026

SEQ 0027
4.6

ERRORS

A LIST OF ERRCR NUMBERS MAY BE FOUND IN APPENDIX C OF THIS
DOCUMENT. THESE ‘ERROR NUMBERS'' ARE THOSE REFERRED TO IN THE SUMMARY TABLE AND IN THE ERRORS TABLES. A LITTLE MORE DETAIL MAY BE
DETERMINED ABOUT THE ERROR BY REFERRING TO THE PROGRAM LISTING
AROUND THE ADDRESS SHOWN IN THE SUMMARY TABLE.
HAVE,

THE LISTING WILL

IN THE COMMENT FIELD, THE ERROR IDENTIFIER:
swxxx

XMTR

ERROR

wnxnns

sxt®*

RCVR

ERROR

wnnnw

OR:

FROM 1 TO 15 (OCTAL), AND THE RECEIVER EKRORS ARE NUMBERED FROM
16 TO 30 (OCTAL). THIS IS DONE SO THAT ONLY ONE TABLE IS REQUIRED
TO SUMMARIZE ALL THE ERRORS (SUMMARY TABLE).

WHERE ‘W'’ IS THE ERROR NUMBER.
ABOVE THIS IDENTIFIER, WILL BE THE
DESCRIPTION OR CAUSE OF THE ERROR WITH THAT NUMBER.
IT MAY BE NOTED THAT THE TRANSMITTER ERRORS ARE NUMBERED

IF THERE IS AN ALARMING NUMBER OF OCCURRENCES OF ERRORS,
TAKEN:

IF THE tRROR WAS "ERROR 10°' BUT THIS ERROR HAD NOT
OCCURRED ON OTHER UNITS, THE CABLE, OR RECEIVER CHIPS
ETC. ARE AGAIN SUSPECT.

USING EITHEF

THE EXERCISER, OR THE STANDALONE TEST,

A DEFECTIVE SINGLE MODULE SHOULD BE RELATIVELY SIMPLE TO

LOCALIZE AND REPLACE, CORRECTING THE PROBLEM.

ONCE A MODULE HAS BEEN REPLACED, ALWAYS RUN THE PCL11
STANDALONE TEST (EVEN IF IT WAS A LINE DRIVER MODULE)
BEFORE RUNNING THE EXERCISER.

ERROR
ERROR

22
24

RECEIVER CRC ERROR
RECEIVER PARITY ERROR

(e ]

b al

CERTAIN ERRORS IS ACCEPTABLE DURING A LONG

b o)

A SMALL NUMBER OF

EXERCISE RUN. THESE ERRORS WOULD BE ATTRIBUTED TO LINE NOISE,
GENERAL SYSTEM NOISE ETC. THESE ERRORS ARE:
ERROR
6
TRANSMITTER CRC ERROR
ERROR
7
TRANSMITTER MISCELLANEOUS TXM ERROR

THE PCL11 "'STANDALONE TEST'' (YC-2017D-08) ON THE
UNITS WITH THE SUSPECTED RECEIVER OR TRANSMITTER.
SEE IF THE SAME ERROR TYPE CAN BE ACHIEVED WITH THE
"'STANDALONE TEST''. IF NOT, THEN THE T.D.M.
DRIVERS, OR CABLES, OR TERMINATORS ETC. ARE SUSPECT.

IF THE ERROR WAS NOT ‘MASTER DOWN'' (ERROR 10), RUN

DETERMINE WHICH TRANSMITTER AND/OR RECEIVER ARE
SUSPECT (FROM THE ERRORS TABLES)

(FROM APPENDIX ()

DETERMINE THE ERROR CAUSE

THE FOLLOWING STEPS SHOULD BE

5-1

COMMAND MODE DESCRIPTION

5.1

SHORTENED COMMANDS

SEQ 0028

ANY OF THE COMMANDS MAY BE TYPED IN AS SHORT A FORM AS WOULD
SEEM REASONABLE. THAT IS, ONLY ENOUGH LETTERS NEED BE TYPED SO AS
TO DISTINGUISH ONE COMMAND FROM ANOTHER WITH THE SAME FIRST LETTER.

FOR EXAMPLE, SINCE

THERE IS ONLY ONE COMMAND BEGINNING WITH

THE LETTER '¥'' (ERRORS), ONLY THE “E'' NEED BE TYPED FOR THAT COMMAND.

HOWEVER, THERE ARE FOUR COMMANDS BEGINNING WITH THE LETTER ''S'" (SUMMARY, STATUS, SILO, AND SECONDARY).
IN EACH OF THESE COMMANDS, THE
gg(flsfii LE}T‘T)EFSIE;S DIFFERENT, SO JUST TWO LETTERS NEED BE TYPED: (SU,

ON THE OTHER HAND, THE COMMAND DECODER WILL NOT ACCEPT ANY
THAT IS, EVERY LETTER
COMMAND WORDS WITH ANY OF THE LETTERS WRONG.
TYPED IN FOR A PARTICULAR COMMAND MUST BE AT LEAST ON THE WAY TO
SPELLING THE WORD CORRECTLY.

FOR EXAMPLE:

FOR THE ''INITIALIZE'" COMMAND:

IS ACCEPTABLE, WHEREAS:

INITIAL
INITL

5.2

IS UNACCEPTABLE.

RUBOUT FEATURES

THERE ARE TWO

CODER. ‘RUBOUT'®

EDITING FEATURES

EMPLOYED IN THE

(DELETE) CHARACTER WILL DELETE

THE LAST

COMMAND DE-

CHARACTER
CONTROL-U
CHARACTER WILL REMOVE ALL THAT HAS BEEN TYPED IN SO FAR ON THIS LINE.
ONE OTHER METHOD OF HAVING THE EXERCISER IGNORE EVERYTHING
TYPED IN SO FAR IS TO TYPE ‘'CONTROL-C''.

WHICH WAS TYPED IN AS PART OF A COMMAND WORD OR ARGUMENT.

B)
C)
5.3

RUBOUT

DELETE LAST CHARACTER

DELETE THIS LINE
DELETE THIS LINE

C(NTRL-U
CNTRL-C

ENTERING COMMAND MODE

COMMAND MODE IS AUTOMATICALLY

OF THE EXERCISER.

THERE ARE TIMES,

THEY ARE:
MAND'* MODE.
A)
WHEN IN EXERCISE MODE

ENTERED AT STARTUP OR RESTART

HOWEVER, WHEN IT IS NOT N ‘'COM-

(RUNNING)

WHILE PRINTING THE STATUS, SUMMARY, OR ERRORS TABLES

AT ANY TIME THAT IT IS DESIRED TO ENTER COMMAND MODE, THE OP-

ERATOR

NEED

ONLY TYPE ''CONTROL=C''

ALSO,

(AT COMPLETION OF THE CURRENT LINE), TERMINATE ALL TABLE PRIN-

TRANSMITTER ACTIVITY

ON THE

TING AND RETURN TO COMMAND MODE.

THERE

(*C).

UNIT AND ENTER

ANOTHER CHARACTER

THIS WILL

TERMINATE ALL

COMMAND MODE.

IT WILL

WHICH WILL PERFORM THE SAME AS

CONTROL-C DUE TO ITS FUNCTION; THAT IS CONTROL-U .

5<2
5.4

UPPER OR LOWER CASE

WHEN IN COMMAND MODE,
THE OPERATOR MAY FIND HIMSELF USING
A KEYBOARD WHICH DOES NOT HAVE A ''CAPS LOCK'' KEY.
SINCE THE COMMAND
DECODER REQUIRES THAT ALL INPUT BE IN CAPITAL LETTERS,
THE KEYBOARD
INPUT ROUTINE WILL AUTOMATICALLY CONVERT ALL LOWER CASE ALPHA (CHARA(TERS INTO UPPER CASE ALPHA CHARACTERS BY CLEARING BITOS IN THE ASCII
CODE OF

THE

INPUT CHARACTER.

SEQ 0029

6-1
6

EXERCISER MODE DESCRIPTION

6.1

TRANSMIT EVENT

SEQ 0030

AN "EVENT FLAG'' IS CHECKED IN THE MAIN LOOP OF THE PROGRAM
TO DETERMINE WHETHER THE EXERCISER HAS BEEN TOLD TO ''GO''. THIS FLAG
IS THE TRANSMIT EVENT FLAG.
IT IS SET WHENEVER THE OPERATOR ISSUES

THE
‘GO’ COMMAND, OR THE ''CONTINUE'' COMMAND TO THE EXERCISER. THIS
FLAG IS CLEARED WHENEVER THE OPERATOR TYPES CONTROL-C OR IF A MASTER

DOWN ERROR O( CURS.

WHEN THE FLAG IS DETECTED AS BEING SET,

THE EXERCISER CALLS

THE TRANSMITTER MODULE WHICH TRANSMITS A BLOCK OF DATA THAT HAD BEEN

PREVIOUSLY GENERATED BY THE DATA GENERATION MODULE. IF THIS DATA HAS
ALREADY BEEN USED FOR THE FIFTH TIME,
IT SETS THE DATA GENERATION
EVENT FLAG AND NEW RANDOM DATA WilL BE GENERATED.
WHEN THE TRANSMIT
MODULE IS CALLED,
THE TRANSMJ7 EVENT FLAG IS CLEARED AND IS NOT SET
AGAIN UNTIL SOME TYPE OF ''COMPLETION'® INTERRUPT HAS OCCURRED SUCH AS
"SUCCESSFUL TRANSFER'' OR 'ERROR''.

THE TRANSMIT EVENT IS ALSO RESPONSIBLE
FOR UPDATING THE
ERROR TABLES FOR TRANSMITTER ERRORS,
AND ALSO THE STATUS TABLE FOR ATTEMPTS AND SUCCESSES TO EACH RECEIVER IN THE RECEIVER ADDRESS QUEUE.

RECEIVE EVENT

6.2

WHEN THE EXERCISER IS STARTED BY THE OPERATOR STARTING AT LO-

CATION 200,A SOF TWARE FLAG CALLED "RECEIVER EVENT FLAG'' IS SET. WHEN
THIS IS DETECTED IN THE MAIN LOOP,

THE RECEIVER MODULE IS CALLED TO

SCT UP THE RECEIVER TO RECEIVE UP TO 600 (OCTAL) WORDS FROM A TRANSMITTER THAT TRIES. WHEN THE MODULE IS CALLED, THE FLAG_
(RCVR EVENT)
IS CLEARED AND NOT SET AGAIN UNTIL SOME TYPE OF COMPLETION INTERRUPT

IS RECEIVED SUCH AS ‘‘SUCCESSFUL TRANSFER'', 'ERROR'’, OR 'REJECT

LETED"".

THE RECEIVE EVENT

TABLES FOR

ggzg?flégf
VED.

IS ALSO RESPONSIBLE FOR UPDATING THE ERROR

RECEIVER ERRORS,

ITS CORRECTNESS

COMP-

AND FOR CHECKING THE

AND THAT THE RIGHT

DATA RECEIVED TO

NUMBER OF WORDS WERE

UNLIKE THE TRANSMIT EVENT,THE RECEIVE EVENT CANNOT BE SUSPENDED BY THE OPERATOR ISSUING ANY COMMANDS OR CONTROL CHARACTERS. HALT=ING THE EXERCISER,
OR A HARDWARE FAILURE TO
INTERRUPT ARE THE ONLY
WAYS TO PREVENT THE RECEIVE EVENT FROM OCCURRING.

6.3

DATA GENERATION EVENT

ATION.

ANOTHER EVENT WHICH OCCURS IN EXERCISE MODE IS 'DATA GENERA NEW BUFFER FULL OF RANDOM DATA IS GENERATED AFTER 5 PASSES

WITH THE OLD DATA ARE COMPLETED.
THE LENGTH OF THE DATA BUFFER ALSO
RANDOMLY VARIES FROM 1 TO 1000 (OCTAL) WORDS.
IF THE BUFFER IS LONG-

ER THAN 600 WORDS, THE RECEIVER WILL BE EXPECTED TO TRUNCATE THE MESSAGE AFTER RECEIVING THE 600TH WORD.
ALSO, IF THE FIRST WORD OF THE BUFFER ('FLAGS'' WORD) HAS THE
FOUR MOST SIGNIFICANT BITS SET,

THE RECEIVER WILL REJECT THE MESSAGE

ENTIRELY. ALL OF THESE 'REJECT'' AND '‘TRUNCATE'' OCCURRENCES ARE EXPE(}EgVB;ngEDTRANSMITTER EVENT AND CHECKS ARE MADE
H

THAT THEY OCCUR AS

SEQ 0031
6.4

ADDRESS QUEUE EVENT

WHEN THE USER HAS COMPLETED GENERATING THE LIST OF RECEIVER
ADDRESSES HE WISHES A PARTICULAR TRANSMITTER TO COMMUNICATE WITH,
THE STATUS TABLE HAS THOSE ENTRIES ''ACTIVATED''. DURING EXERCISE MODE

ACTIVE

QUEUE

ADDRESSES IN THE

STATUS

TABLE ARE

7O AWAIT THEIR TURN WITH THE

LOADED INTO

TRANSMIT MODULE.

A SOF TWARE

ADDRESSES ARE

DEQUEUED ON EVERY ENTRANCE TO THE TRANSMIT MODULE AND THE 'ATTEMPTS''
ENTRY OF THE STATUS TABLE IS UPDATED. WHEN THE QUEUE IS EMPTY,
THE

ADDRESS QUEUE EVENT IS CALLED TO RE-FILL IT FROM THE STATUS TABLE.
NOTE THAT ADDRESSES ARE ALWAYS QUEUED AND DEQUEUED IN NUMERICAL ORDER REGARDLESS OF THE ORDER IN WHICH THEY WERE ENTERED.

6.5

ERRORS UPDATE EVENT

AT ANY TIME, WHETHER THE EXERCISER IS IN

"EXERCISE'' MODE OR

COMMAND MODE,
THE RECEIVE EVENT IS ACTIVE.
THEREFORE,
RECEIVER ERRORS CAN OCCUR AT ANY TIME.
HOWEVER, TRANSMITTER ERRORS CAN ONLY OC-

CUR

WHEN THE EXERCISER

IS "'GOING''.

GET

THE ADDRESS OF THE CONNECTED

WHEN AN ERROR OCCURS,

TRANSMITTER TYPE,

THE TRANSMITTER COMMAND REGISTER (TCR)

WHICH TRANSMITTER

ERROR TABLE

ERROR NUMBER. THIS UPDATE

RECEIVER.

OF THE

IS READ TO

THIS IS USED TO DECIDE

LOCATION TO INCREMENT ALONG WITH THE

IS ACCOMPLISHED

AT THE ACTUAL TIME

THAT

THE
ERROR IS DISCOVERED.
WHEN AN ERROR OF THE RECEIVE TYPE OCCURS
THE
RECEIVER COMMAND REGISTER
(RCR) IS READ TO GET
THE ADDRESS OF
THE CONNECTED TRANSMITTER.
AGAIN, THIS IS USED TO DETERMINE THE CORRECT TABLE LOCATION TO INCREMENT.

AGAIN, PLEASE NOTE THAT THE ''GO'' COMMAND CLEARS BOTH THE

TRANSMITTER ERROR TABLES AND THE RECEIVER ERROR TABLES.

ANOTHER

FUNCTION OF THE ERRORS

EVENT IS TO UPDATE THE ''SUM-

MARY"' TABLE ACCORDING ONLY TO THE ERROR NUMBER.

THERE ARE,
THEN,
ACTUALLY TWO ERROR EVENTS:
MITTER ERRORS, AND ONE FOR RECEIVER ERRORS.

6.6

ONE FOR TRANS-

SPECIAL EVENTS

DURING AN EXERCISE RUN,
THERE ARE TWO INTERRUPTS THAT CAN
CAUSE PRINTOUTS ON THE CONSOLE.
ONE OF THEM IS MASTER GOING DOWN.
THIS WILL CAUSE THE
CALLING OF A "'SPECIAL'' EVENT TO PRINT THE MES:
SAGE

AND

wxxx MASTER DOWN #*#

RETURN THE EXERCISER

TO COMMAND MODE.

THE OTHER INTERRUPT

CAUSED BY THIS UNIT BECOMING 'MASTER'' AFTER HAVING BEEN ''SECONDARY''.
'IgggAgéLL CAUSE THE CALLING OF ANOTHER ''SPECIAL'' EVENT TO PRINT THE
** THIS UNIT HAS BECOME 'NEW MASTER'' »#

AND LEAVE THE EXERCISER IN "EXERCISE MODE.

SEQ 0032

APPENDIX A,

A-1

SEQ 0033

OVERALL FLOW

[S)====START
LOAD & TRY
DEVICE ADDRES SES
)

IN}TIALIZE
--¥ .......

RESTART
——

T7"PRTTIT

g Bt By Bt by b
B
B
g B

I
I
I

1
T~ DEGUEDE"TOG
I

TOTIY IF

READY

J====[A]
I

EVENT SET

R
e

By B
g By By By By B
Bt By Py

T COAD”ABDRESS
]

QLDEV

I=-=---[A]

PRCR-LF
PRCTLU
PRCTLO

EMPTY

I
1

PRCTLQ

TIQ NOT

TOQ NOT

PRDEL
PRCTLS

I
[(AJ===-=]1 MAIN LOOP

DATGEN

EVENT SET

QUEUE. IF NOTHING LOADED,

TM1
I

FLAG ERROR, &

DON''T ALLOW
STARTUP

T GERERATE
REWTM T
I

RANDOM DATA

I TABLE FOR NEXT]----[A]
I 5 CYCLES.
I

SEQ 0034

g B Bt ot ot Bt Bt B Bt Bt Bt Bt

]

T°AB6TM

I
I
I
I
I
----- I
I
!
I
I
I

RCV EVENT
SET

SPECIAL
EVENT

737
\/

ot Bt Bt Bt B Bt B

SET

g By Bt B Bt Bt B

TXM EVINT

"~ 1

I
DELETE
I
RANGE
STATUS
I
|
SUMMARY
|
MASTER
SECONDARY ]=-=-=-[A]
RIB
I
INITIALIZE]
CLEAR
I
ERRORS
SILO

|
I

ot g B By Bt B Bt Bt Bt Bt Bt b Bt Bt Bt Bt

C OMMAND
ENTERED

Bt By B

t—nt—nh-h—nhl.—nh—h-v—at—tt—h—b—-—cl—nh—li—ch—u—-o—-D—-D—nu—c.—-.—-i—-i—-n—oh—au—-t—q--t—cb—qb—-u—u—q-—qb—c.-l—at—ct—tv—-—-—-‘

A=2

T----[5]

TASSIGN
T
I

T TONTIROETM"T
I
I
I
I

[====[A]

(SET TXM
EVENT
FLAG)

I
]
I

T START XMISSTONT
I

INTERRUPT ON

I DEQUEUE RCVR

I UPDATE STATUS ]----[A]

T"SET"OP
YO RTV'T
I FLAGS WORD
I INTERRUPT ON

[----[A]
I

T°STOP"RATRTM "TM~ 1

I PRINT 'MASTER [----[A]
I DOWN'' MESSAGE I

A-3

SEQ 0035

AW
74
\/

T"PRINTTM"TRIS 1

[ EXTRA SPE=]=eececccccccccccan= I UNIT HAS JUST J====[A]
I CIAL EVENTI
| BECOME NEW
I

I
I
I

I
I
1

{

INTERRUPT |

I
I

I RCVR

[=====- RECEIVER

INTERRUPT |

}

I STATUS
I A A I

}

T ERROR

SOF

T
I
I

}

XMTR ERR

Y L L I

A B

I RCVR ERR

I DATA RDY

T
I

INTERRUPT === =m=m== I SUC XFR

HANDLER

[==--=[A]

I REJ COMP

]

T O0TPOT ORE="""1

I LINE-AT=-AI
e
—— I TIME OF STATUS]=---[A]
}
I BRUN STATE
I

I
I LINE-AT-A|
I TIME OF ERROR
[===ememcemmmcecceeee I SUMMARY TABLE
I
1 TO TTY.
I

[==-=-=[A]

T ERRDR

I
I SUMMARY
I EVENT SET
I
I

I
|

REJ

{

I BUSY
I NOW MAST

}

[=----[A]

AR |

I
A

| THE TIME

INTERRUPT =======mm I SUC XFR

HANDLER

I UPDATE

HANDLER=========== - Pl

i
[====-- TRANSMI TTER
%

eeecssccccces-

I CLK INTRPT]====== CLOCK INTERRUPT

I
[ XMTR

MASTER''

1°00TPOT "ORE=""1

{
I

I
I

%
|

I
1
]----[A]
I

T 00TPOT
" XMTRTM""1
e

1 ERROR TABLE

—— 1 AND SET RCVR
I ERR EVENT

[----[A]
I

1 00TPOT"RTVRTM""Y

} EVENT SET { ------------------- 1 ERROR TABLE

[=----[A]

[ Al

SEQ 0036

SEQ 0037
EXERCISER COMMANDS

CONTROL CHARACTERS

ECHOES

CHARACTER

EFFECT

ENTER COMMAND INPUT MODE

CNTRL-O

THROW AWAY TTY OUTPUT

CNTRL=U

DISCARD CURRENT INPUT LINE

CNTRL=C

CNTRL=S

SUSPEND TTY OUTPUT

CNTRL=-Q

RESUME TTY OUTPUT

RUBOUT

DELETE LAST INPUT CHARACTER

CAR RET

<CR, LF>

PERFORM COMMAND JUST ENTERED

LINE FEED

<CR, LF>

SAME AS CAR RET

SEQ 0038
COMMANDS

COMMAND

ARGUMENTS

CADID

ABC=-N

ADD ADDRESSES

AB C = N

[ASISIGN

ADR VCT ADR VCT

[CLIEAR

CLEAR THE STATUS TABLE

CCOINT INUE

CONTINUE EXERCISING

DELETE ADDRS

[DIJELETE

ABC=-N

ASSIGN UNIBUS ADDRESSES
zzg XEEE?cERfOR TRANSMITTER

AB C = N

CEJRRORS

PRINT ERRORS TABLES

[Glo

START THE EXERCISER

CIINITIALIZE

INIT THE EXERCISER

SET

SET "MASTER''

[MIASTER

CLEAR

MmC

CLEAR "MASTER

[RAINGE

LOW HI

RALH

ADD RANGE OF ADDRESSES FROM
LOW TO HIGH INCLUSIVE.

[(rRIIB

SET

(rRI1B

CLEAR

[SEJCONDARY

SET

[ SEJCONDARY

CLEAR

[s1lLo

ABC~-N

[STIATUS

[SUIMMARY

o BN . B

. B

)

[MJASTER

SET 'RIB"
CLEAR ‘RIB"’

SET *'SECONDARY''
CLEAR *'SECONDARY"’

CLEAR SILO;

SET AUTO ADDR

SI A

LOAD SILO WITHAB C = N

PRINT STATUS TABLE

PRINT SUMMARY

TABLE

CZl

PCl

C~1
ERROR DESCRIPTIONS

NON EXISTANT LOC. ERROR IN XMTR

XMTR TXM ERROR:

RCVR ACCEPTED A NULL

XMTR TXM ERROR:

RCVR HAS GONE OFF-LINE

XMTR TXM ERROR:

WORD OR C.R.C. REJECTED

XMTR TXM ERROR:

MISCELLANEOUS TXM ERROR

OO0

ERRONEOUS INTERRUPT FROM TRANSMITTER

DESCRIPTION

ERROR NUMBER

MEM OVERFLOW ERROR IN TRANSMITTER

MASTER DOWN

TRANSMITTER TIMED OUT

SILO OVERRUN ERROR IN TRANSMITTER

MESSAGE TRUNCATED UNEXPECTEDLY

MESSAGE FAILED TO BE TRUNCATED

ERRONEOUS REJECT BY RECEIVER

UNKNOWN RECEIVER INTERRUPT OCCURRED

NON-EXISTANT LOC. ERROR IN XMTR

MEM OVERFLOW ERROR IN RECEIVER

RCVR TXM ERROR:

XMTR HAS GONE OFF-LINE

RCVR TXM ERROR:

RCVR C.R.C. ERROR

RCVR TXM ERROR:

FIRST WORD INVALID

RECEIVER DETECTED INVALID PARITY.

RECEIVER TIMEOUT ERROR OCCURRED

RECEIVER GOT TOO MANY WORDS

DATA WORD RECEIVED WAS BAD
RECEIVER GOT TOO FEW WORDS

SEQ 0039

CZl

PCI

STATISTICAL INFORMATION
STARTING ADDRESS

200

RESTARTING ADDRESS

204

SWITCH OPTIONS

NONE

PROGRAM SIZE

APPROX 7K

MEMORY OCCUPIED
LOW BOUNDARY

HIGH BOUNDARY

00000
34474

LOCATIONS TO CHANGE FOR
DIFFERENT DEVICE ADDRESSES

DEVICE

CHANGE LOCATION

KEYBOARD STATUS

16136

KEYBOARD DATA

16140

TTY STATUS

16142

TTY DATA

16144

KEYBOARD VECTOR

16146

LINE CLK STATUS

16150

XMTR PRIORITY

2334

RCVR PRIORITY

2346

KBD PRIORITY

2360

USEFUL LOCATIONS

ADDRESS

XMTR DATA BUFFER
RCVR DATA BUFFER

DATA SEED IN TRANSMITTER
RANDOM MULTIPLIER
RANDOM INCREMENT

SEQ 0040

D=1

12-SEP-78 15:13

MACY11 30A(1052)

TABLE OF

20-0CT-78

CONTENTS

09:48

DEFINITIONS AND DEVICE INFO

PCL11 EXERCISER MAIN PROCEDURE
MAIN LOOP
COMMAND PROCESSORS:

COMMAND PROC. FOR SILO (LOAD)
COMMAND PROC. FOR MASTER, SECONDARY AND R.I.B.

\IV\%N
PN 535878
-

0
e
—_—

COMMAND PROC. FOR RANGE

COMMAND PROC. FOR ADD AND DELETE
COMMAND PROC. FOR CLEAR, STATUS, AND CONTINUE
COMMAND PROC. FOR INIT, SUMMARY, AND GO

COMMAND PROC. FOR

‘‘ASSIGN''

COMMAND DECODER AND PROCESSOR
RECEIVER ADDRESS QUEUE LOADER ROUTINE
DATA GENERATION (RANDOM) ROUTINE
MULTIPLY ROUTINE FOR DATA GENERATION
TRANSMIT MODULE
RECEIVER MCOULE
STATUS MODULE
TRANSMITTER ERRORS MODULE
RECEIVER ERRORS MODULE

SUMMARY MODULE
ERROR UPDATE ROUTINES

TRANSMITTER ERRORS
RECEIVER ERRORS

UTILITY ROUTINES

PROCESS AN INPUT CHARACTER FROM THE TTY
TTY INPUT CHARACTER PROCESSING ROUTINES
TTY OUTPUT HANDLERS
TTY INPUT INTERRUPT PROCESSORS

MESSAGE PRINT ROUTINE

DATA AREAS
KEYWORD TABLE
SOME MORE ASCII
AUXILIARY ROUTINES

:
STORAGE

CHARACTER PROCESSOR
BINARY TO ASCII CONVERSION
GENERAL BINARY TO ASCII CONVERSION
DOUBLE PRECISION BINARY TO ASCII
DOUBLE PRECISION DIVIDE ROUTINE
INTEGER DIVIDE MAGNITUDE NUMBERS
QUEUE HANDLING ROUTINES
COMMAND PROCESSOR INITIATING ROUTINE
KEYWORD PROCESSING ROUT INE
REGISTER SAVE & RESTORE ROUTINES
LEXICAL SCAN ROUTINE

SEQ 0041

'l)

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

CZPLABO PCL11 EXERCISER V02

12-SEP-78 15:13

MACY11 30A(1052)

09:48

PAGE
1

CZPLABO PCL11 EXERCISER V02
70003/
;DRCMAC.MAC

SEQ 0042

6-JAN-76

; KEYWD MACRO
;

THIS MACRO DETERMINES THE ROUTINE ADDRESS

;

ASSOCIATED WITH THE SYNTACTIC OBJECT 08J, ACCORDING

;
;
;

ON RETURN, IF 0BJ WAS IN THE TABLE, THEN THE PS
CB8IT =0 & THE ROUTINE ADDRESS IS AT THE TOP OF THE
STACK. IF NOT, THEN C=1 & aSP = 0.

;

TO A KEYWORD TABLE POINTED TO BY KWTABL.

EACH KEYWORD IN THE TABLE HAS ASSOCIATED WITH IT A

MINIMUM LENGTH SPECIFYING THE MINIMUM NUMBER

OF CHARACTERS IN THE KEYWORD THAT MUST MATCH

T gy

)

=000 ~NOW S WN=O VNN

20-0CT-78
.TITLE
.IDENT

WN 2

PCLEXR.P11

THOSE IN 0BJ FOR A MATCH TO HAVE BEEN DEEMED
FOUND.
IF 0BJ CONTAINS MORE THAN THIS MINIMUM

NO. OF CHARACTERS, THOUGH, ALL CHARACTERS IN 0BJ MUST
CORRESPOND TO THE TABLE KEYWORD FOR A MAT(CH TO
HAVE BEEN DEEMED FOUND.
THUS, FOR EXAMPLE, IF
"REPEAT'' APPEARS IN THE KEYWORD TABLE WITH A
MINIMUM LENGTH OF 3 ASSOCIATED WITH IT, THEN

"REP'','REPE'',"REPEA'', & 'REPEAT'' WILL ALL MATCH IT, BUT
"R','RPT'',"REPEET'’, & 'REPEATER'' WILL NOT.

THE KEYWORD TABLE CONSISTS OF A SET OF ENTRIES AS FOLLOWS:
OFFSET
TYPE

0
2
3

:
:
:

WORD
BYTE
BYTE

STRING

ROUTINE ADDRESS
MINIMUM LENGTH OF KEYWORD
FULL LENGTH OF ""EYWORD
KEYWORD

ENTRIES ARE STORED CONSECUTIVELY IN THE TABLE.

EACH ENTRY

L IR

IR IR

I IR

MUST BEGIN ON A WORD BOUNDARY.
THE KEYWORD OF
THE PREVIOUS ENTRY MAY HAVE TO HAVE A BYTE (CONTAINING
ANYTHING) APPENDED TO IT TO ACCOMPLISH THIS.
ENTRIES MUST BE ARRANGED IN ALPHABETICAL
ORDER (MORE SPECIFICALLY, IN ASCII COLLATING SEQUENCE).
gF-lEOTABLE IS ENDED BY AN ENTRY WITH A FULL LENGTH

JAF
.ENDC
.ENDC

.IF

.ENDC

':EMCRO

KEYWD

MOV

08J,=(SP)

.ERROR
MoV

;CANNOT SPECIFY OBJ & NOT TABLE ADDRESS.
#1,-(SP)
;IF RUN, THIS WILL CAUSE TRAP.

08J

0BJ,KWTABL

KWTABL

N8
MOV

KWTABL
KWTABL ,=(SP)

JSR

PC,KEYWD

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78
.ENDM

09:48

PAGE 1-1

SEQ 0043

;KEYWD

LXSCAN MACRO

THIS MACRO CALLS THE ROUTINE

LXSCAN

TO CONVERT THE CHARACTER

STRING SPECIFIED BY STR
INTO ITS CONSTITUENT SYNTACTIC OBJECTS.
STR
IS AN ASSEMBLER EXPRESSION SPECIFYING THE ADDRESS OF THE
BEGINNING OF THE ASCII STRING TO BE CONVERTED.
THE STRING
MUST BE ENDED BY A CARRIAGE RETURN CODE.
.MACRO
MOV
JSR

STR
LXSCAN
STR.R1
R1,.LXSCAN

.ENDM

;LXSCAN

PROC MACRO

THIS MACRO DEFINES THE ENTRY POINT FOR A PROCEDURE.

THE PARAMS

SPECIFIED WILL BE GIVEN THEIR CORRESPONDING OFFSETS RELATIVE TO RS.
THUS, A PARAMETER

(AN BE REFERENCED IN THE PROCEDURE BY THE

ASSEMBLER EXPRESSION '@PP(R5)''.

USING THE

CALL

MACRO.

.MACRO

SROC

.IRP
X1
IRP

X2
=
ZIX3

<PARAMS>
IX1+2
\ZX1

Zx1

.ENDM

+L 587
NLIST

THE PROCEDURE CAN BE CALLED

PNAME
, PARAMS

;ZX2
A JS¥

PNAME :

LNLIST
.ENDM

;**ENTRY POINT
=+
:PROC

RETURN MACRO

THIS MACRO RETURNS FROM A PROCEDURE.

WILL BE LOADED INTO RO BEFORE RETURNING.

.MACRO

RETURN

MOV

ANSWR ,RO

N8B

ANSWR

IS SPECIFIED

CZPLABO PCL11 EXERCISER V02

il
i
il
il
)
il
i
i
i
-

NNNN—J_A—J-....—;_.
WN—=O VNN
W

PCLEXR.PT

_12-SEP-78 15:13

MACY11 30A(1052)
.ENDC

20-0(T-78

RTS

.ENDM

09:48

PAGE 1-2

SEQ 0044

;RETURN

CALL MACRO

THIS MACRO CALLS A PROCEDURE, SUBR, WITH AN ARGUMENT LIST SPECIFIED
BY ARGS. ARGS IS A LIST OF ADDRESSES WHICH WILL BE INCLUDED
IN THE ASSEMBLED EXPANSION OF THIS MACRO.

THE CALLING SEQU:NCE GENERATED IS FORTRAN COMPATIBLE. R5 IS LEFT
INTACT THROUGH THE EXECUTION OF THIS MACRO. OTHER REGISTERS

ARE DESTROYED.

.MACRO

132

PLIST:

odF

.ENDC

SUBR,ARGS,?PLIST,?ZXCALL

RS, ZXCALL

<ARGS>

.WORD

IXCALL: JSR
MOV
.ENDM

139

CALL

JSR

IXCALL

ARGS

PC,SUBR
(SP)+,RS
;CALL

MACRO TO MULTIPLY A NUMBER BY A CONSTANT.
THE NUMBER IN DST
IS MULTIPLIED BY THE VALUE OF THE EXPRESSION

CONST; THE RESULT IS LEFT IN DST.
A TEMPORARY LOCATION MAY
BE SPECIFIED AT WORK WHICH WILL BE USED IN THE MACRO EXPANSION
IF NECESSARY.
IF WORK IS NOT SPECIFIED & A TEMPORARY LOCATION
IS NEEDED, A STACK ELEMENT WILL BE ALLOCATED (& SUBSEQUENTLY
THE MACRO GENERATES A SERIES OF
DEALLOCATED) FOR THE PURPOSE.
SHIFT & ADD INSTRUCTIONS IN-LINE TO ACCOMPLISH THE MULTIPLICATION.
.MACRO

SULT

CONST

.IF

.ENDC
.REPT

.IF
X2
o7
JAF .IF
.IFF

CLR
MEXIT

16.

NZ
=
4
NZ
N8B

MOV

CONST,DST ,WORK

;FLAG: 0==>LEAST SIG 1-BIT NOT TESTED
3

YET;

1==>0PPOSITE.

;COPY CONSTANT FOR SHIFTING.

DST

X281
Ix2/2
X1
X2
WORK

DST,WORK

;IF BITO =1
JSHIFT CONSTANT RIGHT 1 POSITION.
;IF LEAST SIG 1-BIT
;IF NOT MOST SIG 1-BIT
;IF WORK SPECIFIED
JELSE IF WORK BLANK

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

169
170
171

172

173
174
175
176
177
178
179
180

181
182

183
184
185
186

12-SEP-78 15:13

MACY11 30A(1052)

.ENDC
JIFF

.ENDC

X1
JIFF
F
IF

JFF

.ENDC
IFF
IF

IFF

.ENDC

187

188
189
190
191
192
193
194
195
196
197
198
199

20-0CT-78
MOV

200
201
202
203

.ENDC
HEDLEN

PAGE

DST,=(SP)

NZ
NB

X2
WORK

ADD

DST,aSP

ADD

DST,WORK

JEND [.IF NB WORK]
JELSE IF MOST SIG 1-BIT

WORK

;IF WORK SPECIFIED

(SP)+,DST

MEXIT

Ix2/2
DST

.ENDM

JMULT

.MACRO
.TITLE

HEDING
HEDING

.CSECT
.GLOBL

HEDING
HEDING,HEDLEN

JEND [.IF NB WORK]

:END [.REPT 16.] LOOP.

NAM,VER,EDIT,PATCH

/VER'EDIT'PATCH/

/NAM'VER'-'EDIT/

PATCH

LASCII

/PATCH/

.ENDM

;ELSE IF WORK BLANK

:END [.IF NZ ZX2]
:END C.IF 2 ZX1]
;ELSE IF BITO =0
;SHIFT CONSTANT RIGHT 1 POSITION.
:END [.IF NZ ZXx281]

ASL

JEND [.IF NB WORK]
JELSE IF MOST SIG 1-BIT

;ELSE IF WORK BLANK

ADD

BYTE

SEQ 0045

:INDICATE NO LONGER LEAST SIG 1-BIT.
JELSE IF NOT LEAST SiG 1-BIT
:IF NOT MOST SIG 1-BIT
;IF WORK SPECIFIED

WORK ,DST

.ASCII

1-3

JEND [.IF NZ Zx2]

ADD

.IDENT

HEDING:

MEXIT

.ENDC
.ENDC
y AFF
Ix2
=
.ENDC
.ENDM

09:48

.~HEDING

;HEDING

JMULTIPLY MACRD FOR UNSIGNED MULTIPLY ROUTINE
.MACRO

MULP

.WORD
MOV

8
(SP)+,B

MOV
MOV
JSR

.ENDM

A,-(SP)
B,R4
R4 MLI
;MULP

A.B

:SAVE A ON STACK
;SAVE B IN R4
;PERFORM MULTIPLICATION

;PUT PRODUCT

INTO B

(7PLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

09:48

PAGE 1-4

SEQ 0046

;BOARD INIT MACRO FOR CLEARING PCL HARCWARE
;BOARD INIT RECEIVER OR TRANSMITTER.
.MACRO

BDINIT

BIS

#801,aTCR

IDN
BIS

#801,aRCR

NLIST
IDN

IF
.IF

DEV

;BAD ARGUMENT FOR BDINIT

SINITIAL ERROR NUMBER

000001

;ERROR MACROS
-MACRO
ERADR
CALL

LLIST

ERROT

OD
, <P, ERADR>
ERRM

N+

;UPDATE ENTRIES FOR ERROR P

;exxex XMTR ERROR P wxwxwx
NLIST
.ENDM

.MACRO
ERADR
CALL

LLIST

ERROR

ERADR>
MOR
, <P,
ERR

N+1

;xxxx RCVR ERROR P xnanx
NLIST
.ENDM
JREGISTER SAVE MACRO

.MACRO
JSR

REGSAV
RS ,REGSAV

JREGISTER RESTORE MACRO
.MACRO

REGRES

CZPLABO PCL11 EXERCISER vO2
PCLEXR.P11
12-SEP-78 15:13
281
282

MACY11

30A(1052)

20-0CT-78
JSR
.ENDM

I
09:48

RS ,REGRES

&
PAGE 1-5

SEQ 0047

CZPLABO PCL11 EXERCISER V02

PCLEXR.P1

12-SEP-78 15:13

MACY11 30A(1052) 20-0CT-78 09:48 PAGE 2
DEFINITIONS AND DEVICE INFO

SEQ 0048

.SBTTL DEFINITIONS AND DEVICE INFO

284
285

LIDENT

*02'

;COPYRIGHT AUGUST, 1975
;COMPUTER SPECIAL SYSTEMS,
;DIGITAL EQUIPMENT OF CANADA LTD.

177560

VARIABLE SYMBOL DEFINITIONS.

;

DEVICE DEFAULT_INFORMATION.

TIDEV
TIVCTR
TTPRIO

=
=
=

177560
60
4

PCLRCY
RCVECT

=
=

164220
174

PCLTXM
TXVECT
TXPRIO
RCPRIO

164200

170
5
5

TOSIZE
AOSIZE

=
=

20,

;710 SIZE.

QELEMS
QSIZE
QToP
QBOT
QFRONT
OBACK

=
=
=
=
=
=

0
2
4
6
10
12

;WELEMENTS PRESENTLY IN QUEUE.
:WELEMENTS IN QUEUE SPACE.
:ADDR OF 1ST WORD OF QUEUE SPACE
:=QTOP+(QSIZE*2)
:ADDR OF FRONT ELEMENT OF QUEUE.
:ADDR OF BACK ELEMENT OF QUEUE.

RO
R1
R2
&
R&
RS
SP
PC

000012
000015

=
=
=

QUEUE SIZES.

TISIZE

177570

:ADDR OF RCSR FOR TTY.
:INPUT VECTOR ADDR FOR TTY.
:PRIORITY LEVEL FOR TTY.

256.
32.

:70Q SIZE.
:ADR QUEUE SIZE

PS
SR

=
=
=
=
=
s
s
=

s
=

%0
%1
%2
%3
%4
x5
%6
%7

177776
177570

;SWITCH REGISTER.

;SPECIAL CHARACTER DEF INITIONS:
(F.
s
12

:CR OR LF TO END LINE.

(1.0
(LU
(TL.C
(1.0
CTL.S
RUBOUT

%0 TO THROW AWAY TTY OUTPUT.
:*U_TO DELETE LINE.
:CNTRL=C TO START INPUT.(~C)
:CNTRL-Q TO RESUME PRINTOUT
:CNTRL=S TO SUSPEND PRINTOUT
:RUB OUT TO DELETE CHARACTER.

=
=
=
=
=
=

17
25
3
21
23
177

CZPLABO PCL11 EXERCISER V0?2
PCLEXR.P11
12-SEP-78 15:13

100000

004000
000200
000100

MACY11 30A(1052)
20-0CT-78 09:48 PAGE 2-1
DEFINITIONS AND DEVICE INFO

;

DEVICE BIT DEFINITIONS.

ERR
BUSY
DONE
INTENB

100000
4000

200
100

SEQ 0049

CZPLABO PCL11 EXERCISER V0?2

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052) 20-0CT-78 09:4% PAGE 3
DEFINITIONS AND DEVICE
;BIT DEFINITIONS:

100000
040000
020000
010000

004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

B15
B14
B13
B12
B11
B10
809
B08
B07
806
BOS
B04
BO3

=
=
B
=
=
=
=
=
=
B
=

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10

801

B0?

800

4
1

INFO

SEQ 0050

| (94

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

09:48

PAGE 4

SEQ 0051

PCL11 EXERCISER MAIN PROCEDURE

.SBTTL PCL11 EXERCISER MAIN PROCEDURE
.ENABL ABS

000000
000200

.REPT
WORD

128.
.+2,0

; TRAP CATCHERS

.ENDR

377
378
379

000200
000204
000210

381
382
383

000167
012706
000167

012706
016700
010067

390

002020

010067

392

002030

010067

394

002040

010067

396

002050

010067

398

002060

010067

002000
014156
014062
000002
014054
000002
014046
000002
014040
000002
014032
000002
014024

400

002066

010067

014020

402

002074

010067

014014

405
406
407

002106
002112
002116

016700
010067
062700

014060
014000
000002

408
409
410
411
412
413
414
415
416
417

002100

002122
002126
002132
002136
002142
002146
002152
002156
002162
002166

016767

010067
062700
010067
062700
010067
062700
010067
062700
010067
016767

’

2000

STKTOP

RELZRO

002000
002000
002004
002010

014064

013772
000002
013764
000002
013756
000002
013750
000004
013742
014002

PCLEX:

s*xxxSTART HERE*x#x%w
;SET STACK POINTER TO TOP

MOV
MOV
MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD

#STKTOP,SP
TXDEV,RO
RO,TCR
#2 RO
RO, TSR
#2.,R0
RO,TSDB
#2.,R0O
RO, TSBC
#2,R0O
RO, TSBA
#2.R0O

SS.TMR

;GENERATE TMMR ADDRESS

"I“O\é

gg.TH‘RH

JAND TMMR HIGH BYTE

MOV
MOV

RO, TSCRC
TXVEC, TXMVEC

;GENERATE TSCRC ADDRESS
;GENERATE TXMVEC ADDRESS

MOV

RCDEV,RO

;PREPARE TO GENERATE RCVR ADDRS

ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV

#2.R0O
RO,RSR
#2.,R0O
RO,RDDB
#2.R0
RO,RDBC
#2,R0O
RO,RDBA

MOV
MOV

RO,RDCRC
RCVEC,RCVVEC

MOV

ADD

013740

PCREST

;PROGRAM STARTS AT 200
JAND RESTARTS AT 204

Tg\c/

014024

200

PCLEX
#STKTOP,SP

JMP

002000
002000
002000

385
386
387
388

403

JMP
MOV

001574
002000
002354

RO,.RCR

#4 RO

;PREPARE TO GENERATE TXM ADDRS
;GENERATE TCR ADDRESS
;GENERATE TSR ADDRESS
;GENERATE TSDB ADDRESS
;GENERATE TSBC ADDRESS
;GENERATE TSBA ADDRESS

;GENERATE RCR ADDRESS

;GENERATE RSR ADDRESS
;GENERATE RDDB ADDRESS
;GENERATE RDBC ADDRESS

;GENERATE RDBA ADDRESS
;GENERATE RDCRC ADDRESS
;GENERATE RCVVEC ADDR

PC|

CZPLABO PCL11 EXERCISER V02
12-SEP-78 15:13
PCLEXR.P11
012706
012737
012737
105067
105067

005067
012767

002000
003340
000340
015420
015415
015450
000204

014276
014276
014270
014342

MACY11 30A(1052)
PCRST:

012737
005067
005777
012767
012737

MOV
MOV
MOV

015524

MOV

CLRB
CLRB
CLR

.IRP
LLIST

.NLIST
.ENDM

014300
014274

031023
015304

PRST:

177777

000100
015134

#340 ,a#6
REQINP
CMDENT
PCLGO
#204 ,RSHOLD
<TI1,T0>

SEQ 0052

015120
000100
000102

000100
PCREST:

w*xnnx

JRESET STACK POINTER
;SET UP VECTOR FOR ADDRESS ERROR
;CLR INPUT REQUEST
;CLR COMMAND ENTERED FLAG
;CLR XMTR GO FLAG

;SAVE RESTART ADDRESS
JINITIALIZE 10 QUEUES TO EMPT

TIQ
TIQ+QTOP,TIQ+QFRONT
;ég*OTOP.TIO+OBACK

:DISABLE INTERRUPTS
;23:SET UP XMTR INTR VECTOR
:2:SET UP RCVR INTR VECTOR
;2:SET UP TTY INTR VECTOR

#TXPRIO*32. ,2(R0O)
RCVVEC,RO
#RCPRIO*32.,2(R0O)
TTVECT RO
#TTPRIO*32.,2(R0O)

2;:SET TXM PRIORITY

PNTLIN,<PCLEXM>
PRINIT
#RSADD ,RO
RSHOLD ,R1

:::PRINT TITLE MESSAGE
;22 INITIALIZE TRANSMITTER
:::BUFFER ADDR FOR OCTPNT IN R1
:::DATA FOR OCTPNT IN RO
:::DON'T COMPRESS BLANKS
:2:;COMPUTE RESTART ADDRESS
:::PRINT RESTART ADDRESS
:::SET UP TO TEST FOR CLOCK
:::CLEAR KW11 FLAG
;2 :ANY CLOCK?
;2:YES, SET KW11 FLAG
;2:SET UP CLK VECTOR

#CLKINT ,a#100
#340,a#102

$TR:

HERE

Lc'o
LC'Q+QTOP,LC'Q+QFRONT
LC'Q+QTOP,LC"Q+QBACK

PC,OCTJSP
PNTLIN,<RSTMSG>
#STR 344
KWFLG
alLCS
#-1,KWFLG

000004

000004
015072
013320

#STKTOP,SP
#ERTRAP ,a#4

PNCRLF
PNCRLF

030214

015072

PAGE 5

TOQ+QTOP, TOQ+QFRONT
TOQ+QTOP, TOQ+QBACK
#340,34PS
#XMTINT ,aTXMVEC
#RCVINT ,aRCVVEC
#TTIINT ,@TTVECT
TXMVEC RO

014344
014340
177776
013620
013614
013620

000002

002550
015132
013426
177777
012230
000340
000020

;xxxx*RESTART

000004
000006

000002

012700
016701
012702
004767

09:48

PCL11 EXERCISER MAIN PROCEDURE

000002

012760

20-0CT-78

:::SET RCVR PRIORITY

;;:SET TTY PRIORITY

#102.,a#100

;: ;AND CONTINUE
:::NO CLOCK, CLEAR STACK
;.:CLR KW11 FLAG
;::SET UP TO TRAP HALT

a#PS
#TRAPS ,a#4

sCHANGE TRAP VECTOR FOR ERROR

ESCFLG

sSET TTY KBD INTR ENAB
;CLEAR CNTRL=C FLAG

PCREST

(SP)+,(SP)+

KWFLG

102

#3815 ,RCVEV
#806,aTTRCSR

;. ;ALLOW INTERRUPTS

sSET RCVR EVENT FLAG

B 5
PAGE 5-1
09:48
)
20-0CT-78
MACY11 30A(1052
PCL11 EXERCISER MAIN PROCEDURE

CZPLABO PCL11 EXERCISER V02
12-SEP-78 15:13

PCLEXR.P11

470
471
472
473
474
475

476

477
478
479
480
481
482
483
484
485
486
4«87

002622
002626

002632
002636

005067
005067
005067
005067
005067

015030
015106
015104
015042
015040

000167

000060

011667

014756
00000
031140
014740
027752

162767

012700
016701
004767
012706
005037
000167

469

002000
177776
177664

CLR
CLR

QLDEV
RJCTF

RTRYA:

CLR

CALL
CALL
JMP

XSPCEV
PNCRLF
PRESC
PCLOOP

TRAP 4 :

MOV
SuB
MOV
MOV
JSR
CALL
MOV
CLR
JMP

(SP) ,SUMSV
#2,SUMSV
#TRP4AD ,RO

CLR
CLR

014750

TRNKF

SPCEV

SUMSV R1

PC,0CTJSP
PNTLIN,<TRPDMG>
#STKTOP,SP

a#PS

RTRYA

SEQ 0053

;CLR QUEUE LOAD EVENT FLAG

sCLEAR REJECT FLAG
;CLEAR TRUNCATE FLAG
;CLEAR MST DWN EVENT
:CLR NOW MST EVENT
:ENQUEUE CR, & LF
JENTER COMMAND MODE!
;GO TO MAIN LOOP

;SAVE TRAP ADDRESS
JALIGN IT =2

;SHOW OCT CONV RTN RIGHT ADDRESS

; FOR ASCII CHARS.

;PRINT TRAP MESSAGE

;LOWER PRIORITY

CZPLABO PCL11 EXERCISER \10213
PCLEXR.P11
12-SEP-78 15

MACY11 30A(1052) 20-0CT-78
MAIN LOOP

489
002762
002766
002770
003004
003010
003012
003026
003032
003034
003050
003054
003056
003072
003076
003100
003114
003120
003122
003136
003142
003144
003160

515
516

003766
003202

517
518

003164

003206

003210

005767
001406

013552

105767
100006

014631

005767

013572

005767
100006

014602

005767
100006

014562

005767
100006

014554

005767
100006

014540

005767

014520

PCLOOP: TST
BEQ
CALL
NXTO:
TSTB
BPL
CALL
NXT1:
TST
BEQ
CALL
NXT2:
TST
BPL
CALL
NXT3:
TST
BPL
CALL
NXT4:
TST
BPL
CALL
NXTS5:
TST
BPL
CALL
NXT6:
TST

014460

CALL
TST

001406

100006

005767

100006

BPL

NXT7:

519
520
521
522
523
524
525
526
527
528
529

003224
003230
003232
003246
003252
003254
003270
003274
003276
003312
003316

005767
100006

014432

NXT8:

005767

014434

NXT9:

005767
100006

014356

NXT10:

005767

014336

NXT11:

373,;

003334

000167

530

533
534
535

536
537
538
539
540
541
542
543
544

PAGE 6

SEQ 0054

.SBTTL MAIN LOOP

492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513

514

09:48

003320

100006

177422

NXT12:

TIQ

NXT6
RECV
SPCEV

;1S TTY INPUT QUEUE EMPTY?
;YES, TEST ANOTHER FLAG
;NO, PROCESS A CHARACTER
;HAS A COMMAND BEEN ENTERED?
;NO, TEST ANOTHER FLAG
;YES, PROCESS COMMAND
;IS TTY OUTPUT QUEUE EMPTY?
;YES, TEST ANOTHER FLAG
;NO,OUTPUT A CHAR IF DEV RDY
;1S ADDR QUEUE EMPTY?
;NO, TEST ANOTHER FLAG
;YES, LOAD ADDR QUEUE
;1S DATA GEN FLAG SET?
;NO, TEST ANOTHER FLAG
;YES .GENERATE NEW RANDOM DATA
;IS YMTR EVENT FLAG SET?
;NO, (.ST ANOTHER FLAG
;YES, ENTER XMIT MODULE
;1S RCVR EVENT FLAG SET?
;NO, TEST ANOTHER FLAG
;YES, ENTER RECVR MODULE
;1S SPECIAL EVENT FLAG SET?

SPEC
STSEV

;YES, HANDLE SPECIAL EVENT
;1S STATUS EVENT FLAG SET?

NXTO

TTINP
CMDENT
NXT1
COMENT
T0Q
NXT?2
TTOUT
QLDEV
NXT3
ADQLD
DATGEV
NXT4
DATGEN
TXMEV
NXT5
TXMIT
RCVEV

NXT7

BPL

NXT8

TST
BPL
CALL
TST
BPL
CALL
TST
BPL
CALL
TST
BPL

SUMEV
NXT9
SUMRY
XSPCEV
NXT10
XSPEC
TEREV
NXT11
TEROS
REREV
NXT12

JMP

PCLOOP

CALL

STATUS

REROS

;NO, TEST ANOTHER FLAG

;NO, TEST ANOTHER FLAG
;YES,OUTPUT STATUS

;1S SUMMARY EVENT FLAG SET?
;NO, TEST ANOTHER FLAG
;YES, OUTPUT ERROR SUMMARY
;1S EXTRA-SPECIAL EVENT SET?
;YES, HANDLE NOW MASTER.
;IS XMTR ERROR EVENT SET?
;NO, TEST ANOTHER FLAG
:YES OUTPUT XMTR ERROR TABLE
;1S RCVR ERROR EVENT SET?

:NO,

;YES, OUTPUT RCVR ERROR TABLE

;STAY IN MAIN LOOP

;TRAP TO 4 HANDLER

003340
003344
003362
003366
003372
003400
003404
003410
003414

005067
005067

014314
014306

012706
000167

002000
177226

052777
005037

000100
177776

012536

ERTRAP: REGSAV
CALL
CLR
CLR
BIS
CLR
REGRES
MoV
JMP

PNTLIN,<ERTMSG>
RCVEV
PCLGO
#806,aTTRCSR
a#Ps

:::SAVE RO...R5
;s ;PRINT TRAP MESSAGE
::;CLEAR RCVER EVENT FLAG
:::CLR PCL GO FLAG
;::SET TTY KBD INTR ENAB
:::DROP CP PRIORITY

#STKTOP,SP
RTRYA

;FIX STACK
;ENTER COMMAND MODE

CZPLASO PCL11 EXERCISER V02

PCLEXF.P11

12-SEP-78 15:13

20-0(T-78
MACY11 30A(1052)
COMMAND PROCESSORS:

D
09:48

5
PAGE 7

SEQ 0055

.SBTTL COMMAND PROCESSORS:

.SBTTL

COMMAND PROC. FOR SILO (LOAD)

LOAD OR CLEAR THE TRANSMITTER ADDRESS (HARDWARE) SILO.
IF THERE ARE NO ARGUMENTS, CLEAR THE ADDRESS SILO AND SET
AUTO ADDRESS.
IF THERE ARE ARGUMENTS, LOAD THE TOTAL NUMBER
OF ARGUMENTS (INCLUDING PAD VALUES) INTO THE SILO AS MANY TIMES
AS THE TOTAL WILL GO INTO 50. LOCATIONS.
IF ANY 2 SEQUENTIAL ARGUMENTS ARE THE SAME, SEPARATE THEM WITH
IF THE FIRST ARGUMENT IS THE SAME AS THE LAST
ARGUMENT, INSERT A PAD VALUE OF '0'' AFTER THE LAST ARGUMENT.
A PAD VALUE OF ‘0.

ARGUMENTS HIGHER THAN 37 (OCTAL) WILL NOT BE ACCEPTED
ARGUMENTS LOWER THAN 1 WILL NOT BE ACCEPTED.

ARGUMENTS MUST BE NUMERIC. DECIMAL ARGUMENTS MUST BE FOLLOWED BY
A DECIMAL POINT. (18.)

012701
016602
005302
001002
000167
010267
020227

017776

000167
010267
010200
005300

000422
014276

101402

060600

062700
016067

cP SILO:

000002

000446
014254
000062

000004
000004
000000
000002
000346
000004

1 $:

1%:

014176
014172

CPMLP:

CPSILO

MOV
MOV
DEC
BNE
JMP
MOV
cMP
BLOS
JMP
MOV
MOV
DEC
MULT
ADD
ADD

#ADSILO,R1

MOV

CMP

2(SP) ,R2

R2
11%
CLEAV
R2 ,PADFLG
R2,#50
1%
SYNRTM
R2,08JCNT

R2.RO

6,RO,R3
SP,RO
#4 ,RO

4(RO) ,FIRST
#0 NEXT

(RO) 42
2%

SYNRTM
4 (RO) ,NEXT

014152

000000
014206
000004

3%:

000374
000037

4%:

000302
014110

5%:

177772

PROC

%+
s**ENTRY POINT

;SET R1 TO POINT TO SILO BUFFER

;GET # OF ARGS. INTO R2
;0.K IF THERE ARE SOME
;OTHERWISE, EXIT

;SAVE COUNT FOR LATER USE.

;ARE THERE MORE THAN 50 OBJECTS?
sNO, CONTINUE
;YES, ERROR

;SAVE OBJECT COUNT

:TURN LOOK=UP AROUND

;SAVE FIRST ITEM
;SAVE CURRENT ITEM

;1S IT CLASS 2?
:YES, O.K,

;NO, ERROR
;IS THIS ITEM SAME AS LAST?
;NO, 0.K.

;YES, INSERT A PAD VALUE
JKEEP OBJECT COUNT UP TO DATE
;PUT OBJECT INTO BUFFER
;ERROR IF OBJECT IS O

;ERROR IF IT WAS > 37
SYNRTM
(R1)+ NEXT
#-6 R0
R2
CPMLP

;SAVE REAL ITEM
sSET UP TO GET NEXT OBJECT
;ARE WE DONE LOADING BUFF?

sNO, KEEP GOING

CZPLABO PCL11 EXERCISER v02
12-SEP-78 15:13
PCLEXR.P11

026767
001004
112721

014074
000000
014126

014122

000232
000060
000062
014074

MACY11 30A(1052)

20-0CT-78

014070

CMP

000002
013660

012767

177777
000020

142777

000241

000261
000167

152777
012767
000241
000167

002062

6%:

012236

7%:

177746

O0BJCNT

:AND KEEP OBJECT COUNT UP TO DATE
;OBJECT COUNT GOTTEN TOO BIG?

7$
SYNRTM

, 3 TMMRH
#805+804

#50. ,RO
0BJCNT,PADFLG
SILLD
PADFLG

8%:
SILLD:

0BJCNT,R2

#ADSILO,R1
(R1)+,@TMMR
R2
SLOLP

SLOLP:

0BJCNT,RO

RO, 0BJCNT
SILLD
#1,3TMMRH
CPSLV
PNTLIN, <MSTMG1>

012156

012056

013670
012016

011776
013634

PNTLIN, <MSTMG2>
PNTLIN, <MSTMG3>
PNTL IN, <MSTMG4>
3 TMMRH
#3071,

CPSLV:

PADFLG

PNTLIN, <MSTMGS5>
#-1,ESCFLG

9%:

SYNRTM:

177770

177777

= FIRST?
;1S LAST OBJECT

0BJCNT,#50.

014032

CPSEX:

000060

SEQ 0056

NEXT ,FIRST
6%

#0,(R1)+

014040
014034

152777
005767
001407

3
PAGE 7-1

COMMAND PROC. FOR SILO (LOAD)

014024
014060
017776
012200

000001

E
09:48

CLEAV:

04
, aTMMRH
#B8
RETURN

SEC

JMP

CPSEX

BISB
MOV
CLC
JMP

#805+804 ,aTMMRH
#-1,ESCFLG

CPSEX

N0, 0.K.
*YES, INSERT A PAD VALUE

:NO, O.K.
:YES, ERROR

:PREPARE 10 LOAD ADDR SILO
JHOLD SILO SIZE

;1S OBJECT COUNT DIFFERENT THAN START?
*YES, LEAVE SOMETHING IN PADFLG (SET)
:NO, CLEAR PAD FLAG
*GET NO. OF OBJECTS
:GET O0BJECT BUFFER
:GET AN OBJECT INTO SILO
;LOADED ALL OBJECTS?
;NO, CONTINUE

;YES, IS THAT ALL THAT'LL FIT?

;IF NOT LOAD THEM AGAIN
;SEE IF 1 AM MASTER
;IF SO TURN ON SILO AND EXIT
;PRINT "‘THIS UNIT IS NOT MASTER
; BUT HAS BEEN MADE SECONDARY
; THE SILO YOU HAVE JUST FILLED
; WILL BE USED IF YOU CLEAR THE

; THE CURRENT MASTER''.

;HAS SILO BEEN PADDED?
:NO, CARRY ON.
;YES, TELL OPERATOR.

:FLAG COMENT TO ISSUE NEW ‘PCL>''.
;CLR AUTO ADDR

:CLEAR ‘'C'* FOR NON ERROR RETURN

JSET ''C'' BIT FOR SYNTAX ERROR
;AND RETURN
;RESET AUTO ADDR & CLR SILO

:FLAG COMENT TO ISSUE NEW 'PCL>''.
:CLEAR "'C'" IN CASE IT WAS SET
;RETURN

.
F
5
20-0CT-78 09:48 PAGE 8
COMMAND PROC. FOR MASTER, SECONDARY AND R.I.B.

MACY11 30A(1052)

.SBTTL

644

645

;PROCESSOR FOR 'MASTER SET (OR CLEAR)'' COMMAND

646

; SET MASTER, OR CLEAR MASTER

647
648
???

004130

(1)

004130

650
651
652
653
654
655
656
657

658
659
660
661
662
663
664
665
666
667
668
???
(1)

670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693

694

COMMAND PROC. FOR MASTER, SECONDARY AND R.I.B.

004130
004136
004140
004142
004144
004146
004152
004164

004166
004172
004176
004200
004204
004212

022766
001402
000261
000423
010603
062703
103446
117702
142702
052602
110277
012767

000002

CPMAST:

CPMOK:

000004

177777

CPMAST

CMP
gsg

#2,2(SP)
CPMOK

J**ENTRY POINT
%=
:GET # OF ARGUMENTS
;OKAY IF 2

CPMRET

;OTHERWISE, SYNTAX ERROR

R3,#SCTBL

;PROCESS IT

#1,R2
(SP)+ ,R2

;REMOVE OLD STATE OF MASTER
:SET NEW STATE OF MASTER

MOV
ADD

SP,R3
#4 ,R3

BCS
MOVB

KWDERT
@TMMRH R2

KEYWD

011720
000001

011706

PROC

BI(CB
BIS

013544

MOVB
MOV

CPMRET: RETURN

;GET 2ND WORD OF COMMAND

:SYNTAX ERROR IF ''C'' SET
;GET OLD TMMR

R2,3TMMRH
#-1,ESCFLG

;PROCESSOR FOR ‘'SECONDARY SET

;LOAD NEW TMMR
;FLAG COMENT TO ISSUE NEW ‘PCL>'".
JEXIT

(OR CLEAR)'' COMMAND

; SET SECONDARY, OR CLEAR SECONDARY
004214
004214

004214
004222
004224
004226
004230
004232
004236
004250
004252
004256
004262
004264
004266
004272
004

022766
001402
000261
000424
010603
062703

004302
004304

032600
000775

103414
117702
142702

006316
052602
110277
012767

000002

CPSOK:

000004

CPSEC

CMP
ggg

#2,2(SP)
CPSOK

BR
MOV
ADD

CPSRET
SP,R3
#4 ,R3

;OTHERWISE, SYNTAX ERROR
;GET 2ND WORD OF COMMAND

BCS
MOvB
E§CB

KWDERT
aTMMRH ,R2
15552

sSYNTAX ERROR IF ''C'' SET
;GET OLD TMMR
;REMOVE OLD STATE OF SECONDARY

(SP)+,R2
R2,aTMMRH

sSET NEW STATE OF SECONDARY
;LOAD NEW TMMR

KEYWD

011634
000002
011620
177777

CPSEC:

PROC

013456

BIS
MOvB

MOV

CPSRET: RETURN
KWDERT: BIT
BR

R3,#SCTBL

#-1,ESCFLG

(SP)+,RO
CPSRET

s**ENTRY POINT ==

JARE THERE 2 ARGUMENTS?
;IF YES, PROCEED

;PROCESS IT

;FLAG COMENT TO ISSUE NEW 'PCL>"'.
JEXIT

;POP BAD WORD OFF STACK
JEXIT

;PROCESSOR FOR 'RIB SET'' OR 'RIB CLEAR''
; SET 'RIB'' BIT IN XMTR COMMAND WORD LOCATION ‘‘TXMST*', OR CLEAR IT
004306

PROC

CPRIB

SEQ 0057

2
CZPLABO PCL1Y EXERCISER
PCLEXR.P11
12-SEP-78 15:13

(ZPLABO PCL11 EXERCISER V0?2
12-SEP-78 15:13

PCLEXR.P11

(1)

695

696

697
698

004306
004306
004314
004316

004320

022766
001402
000261
000426
010603
062703

103757

016702
042702
000241

006016
006016
052602

010267
012767

000002

G 5
20-0(T-78 09:48 PAGE 8-1
MACY11 30A(1052)
COMMAND PROC. FOR MASTER, SECONDARY AND R.I.B.
000002

CPROK:

000004

003030

177777

cMP
BEQ
SEC
BR
MOV

013360

#2,2(SP)
CPROK

CPRRET

SP,R3

s**ENTRY POINT*#

;2 ARGUMENTS?
;YES, 0.K.

;OTHERWISE, ERROR RETURN

;GET 2ND WORD OF COMMAND

ADD
KEYWD
B(CS
MOV

#4 ,R3
R3,4#SCTBL
KWDERT
TXMST ,R2

#815,R2

;GET OLD STATE OF TCR
;CLEAR IMAGE OF RIB

OR
ROR
BIS
MOV
MOV

(SP)

;GET NEW STATE OF RIB

BIC
cLC

100000

003010

CPRIB:

SEQ 0058

CPRRET: RETURN

(SP)
(SP)+,R2
R2,TXMST

#-1,ESCFLG

;PROCESS

;IF ERROR, SHOW IT.

JSET IT IN IMAGE
;LOAD NEW STATE OF T(CR

;FLAG COMENT TO ISSUE NEW
;BACK TO CALLER

‘PCL>"’

PCLEXR.P11

12-SEP-78 15:13

MACYT1 30A(1052)

.SBTTL

724
725

726
727
728
729
730
731

732
733
734
735
736
737
738

739
740
741
742
743
744
745
746
747
748
749
750
751
752
753

754
755
756

PAGE 9

SEQ 0059

COMMAND PROC. FOR RANGE

SET RANGE OF RECEIVER ADDRESSES THAT THIS TRANSMITTER SHOULD TALK TO.
ACCEPT A LOWER AND UPPER RECEIVER ADDRESS (IN THAT ORDER).

GENERATE A LIST (SET ACTIVE FLAGS) OF RCVR ADDRESSES FROM LOW ADDRESS
TO HIGH ADDRESS

720

(1)
(1)

09:48

COMMAND PROC. FOR RANGE

713
714
715
716
717
718
719

721
722
723

20-0(T-78

PROC

004400
004400
004400
004404
004410
004412
004416
004422
004424

016600
001047

022700

004434

000003

#2 RO

000002

000002
000016

000037

004462
004464
004466
004470
004472
004474
004476
004502

004530
004532

000002

BLO
MOV
BEQ
ASL
ASL

177777
000014

177777

000261
000167

177770

SYNRTN
10(SP) ,R1
12(SP) RO
#2 RO
SYNRTN
16(SP) ,R2
R1.R2
SYNRTN
#37 ,R1
SYNRTN
R2.R0O
SYNRTN

MOV
ASL
ADD
ADD
CPRFIL: MOV
ADD

020064

012767

CPRANG
2(SP) ,RO
#3,R0
SYNRTN
4(5P) RO

000010

004440
004442
004446
004450
004452
004456

004512
004514
004516
004520
004526

CPRANG:

INCLUSIVE.

013230

INC
CMP
BLE

MOV
CPRRTN: RE TURN

SYNRTN:

SEC

JMP

s**ENTRY POINT##

;GET # OF OBJUECTS
;3 OBJECTS?
;IF NOT, INDICATE SYNTAX ERROR
;GET CLASS OF FIRST OBJECT

;1S IT CLASS 2?
;IF NOT, INDICATE SYNTAX ERROR
;GET "‘TO'" ARGUMENT INTO R1
;GET CLASS OF SECOND OBJECT
;1S IT CLASS 2
;IF NOT, INDICATE SYNTAX ERROR
;GET 'FROM'' ARGUMENT INTO RZ2
;1S "FROM'' LOWER THAN ‘'TO'"%?
;IF NOT, INDICATE SYNTAX ERROR
;1S ''TO">37?

;IF SO, INDICATE SYNTAX ERROR
;FIND "FROM'' ENTRY

;1F "FROM' =0, SYNTAX ERROR

;RO CONTAINS ‘FROM'‘ ADDRESS
;SET RCV ADDR ACTIVE FLAG.
;UPDATE TABLE POINTER
s INCREMENT "FROM'' ADDRESS
; UNTIL EQUAL TO '‘TO'" ADDRESS
#=1,ESCFLG

CPRRTN

SJEXIT WHEN COMPLETE.

;FLAG COMENT TO ISSUE NEW "PCL>"

;SET "'C"" BIT TO INDICATE SYNTAX ERROR

CZPLABO PCL11 EXERCISER V0?2

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

COMMAND PROC.

5
PAGE 10

SEQ 0060

COMMAND PROC. FOR ADD AND DELETE

ADD A RECEIVER ADDRESS TO THE LIST

(SET ACTIVE FLAG) OF RCVR ADDRESSES

I
09:48

FOR ADD AND DELETE

.SBTTL

758
759
760
761

ACCEPT_ARGUMENTS (AT LEAST 1) CHECK THAT THEY FALL IN A RANGE FROM
}A;EE37; THEN SET THE CORRESPONDING ACTIVE FLAGS IN THE STAT

762
763
764

765

766
(1)
(1)

CPADD:

000002

767

768

769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789

20-0CT-78

000004
000002

CPALP:

000004

PROC

CPADD

MOV
DEC
MOV
ADD

2(SP) ,R2
R2
SP.RO
#4 ,RO

cMP
BNE
MOV
BEQ

000037

CMP
BLO
ASL
ASL

MOV
ASL

012711
062700
005302
001352
012767
000261
000167

020064
177777
000006
177777

177770

CPARTN:
SYNTRA:

SYNTRA

#37 ,R1
SYNTRA
R1
R1

ADD
DEC
BNE

#6 RO
R2
CPALP

RETURN

SEC

JMP

; IGNORE KEYWORD OBJECT

;GENERATE ADDRESS OF ARGUMENTS
;POINT RO AT 1ST OBJECT CLASS
;1S CLASS = 2?
;NO, INDICATE SYNTAX ERROR
;GET OBJECT INTO R1
;IF IT'S 0, SYNTAX ERROR

JIF IT'S >37, SYNTAX ERROR
;FIND THE TABLE ELEMENT

R1,R3

R3.R1
#RADBO,R1

M0¥

;GET # OF ARGUMENTS INTO R2

ADD
ADD

MOV

013122

(RO) 42
SYNTRA
4(RO) ,R1

s**ENTRY POINT =«

#-1,(R1)

;SET ACTIVE FLAG FOR THIS TABLE ENTRY

#-1,ESCFLG

;FLAG COMENT TO ISSUE NEW 'PCL>"

CPARTN

;SET UP FOR NEXT ARGUMENT
;ARE WE DONE?
;NO, CONTINUE.

;SET "'C'" BIT FOR SYNTAX ERROR

;DELETE RECEIVER ADDRESSES AND ASSOCIATED '‘ATTEMPTS'' AND ‘‘SUCCESSES''.

000002

000004
000002
000004

000037

:
CPDEL

CPDLP:

PROC

CPDEL

MOV
DEC
MOV

2(SP) ,R2
R2
SP.RO

CMP

(RO) 42

ADD

BNE
MOV
BEQ

CMP

BLO
ASL
ASL

MOV
ASL

#4 ,RO

SYNTRD
4 (RO} ,R1
SYNTRD

#37 ,R1

SYNTRD
R1
R1

R1,R3

=«
s**ENTRY POINT

;GET # OF ARGUMENTS INTO R2

; IGNORE KEYWORD OBJECT
;GENERATE ADDRESS OF ARGUMENTS

sPOINT RO AT 1ST OBJECTS CLASS
;1S CLASS =2
sNO,INDICATE SYNTAX ERROR
;GET OBJECT INTO R1
;IF IT'S 0, SYNTAX ERROR

;IF IT'S >37, SYNTAX ERROR
JFIND TABLE ELEMENT

810
811
812
813
814
815
816
817
818
819

004714
004720
004722
004726
004730
004732
004734
004736
004742
004744
004746
004754
004756

004760

062701
005011
062701
005021
005021
005021
005011
062700
005302
001345
012767
000261
000167

020064

ADD

#RADBO ,R1

000004

ADD

#4 ,R1
(R1)+

CLR
CLR
CLR
CLR
CLR

000006
177777
177770

ADD

013002

DEC
BNE
MOV

CPDRTN: RE TURN
SYNTRD: SEC
JW

(R1)

(R1)+
(R1)+
(R1)

#6,R0
R2

CPDLP
#-1,ESCFLG
CPDRTN

SEQ 0061

;CLEAR ACTIVE FLAG AT TABLE LOCATION
:AND OTHER ENTRIES...

;SET UP FOR NEXT ARGUMENT
;ARE WE DONE?

JNO, CONTINUE
:FLAG COMENT TO ISSUE NEW 'PCL>"'
JSET "'C'' BIT FOR SYNTAX ERROR

v~
]

| CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13

MACY11 30A(1052) 20-0CT-78 09:48 PAGE 10-1
COMMAND PROC. FOR ADD AND DELETE

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

K 5
MACY11 30A(1052)
20-0CT-78 09:48 PAGE 11
COMMAND PROC. FOR CLEAR, STATUS, AND CONTINUE

.SBTTL

COMMAND PROC. FOR CLEAR, STATUS, AND CONTINUE

; CLEAR THE ENTIRE LIST OF RECEIVER ADDRESSES (CLEAR ACTIVE FLAGS)

: TO USE THIS ROUTINE
CALL

004764

PROC

BY A CALL MA(CRO, ENTER AT PRCLR AS FOLLOWS :

PRCLR

CPCLR

s**ENTRY POINT ==

CPCLR:

004764
016602
022702
001031
012767

012701
012700
005010
062700
005020

000002
000001
177777

MOV
cMP

2(SP) ,R2
#1.,R2

;GET NUMBER OF OBJECTS INTO R2
;ARE THERE ANY ARGUMENTS?

MOV

#-1,ESCFLG

JFLAG COMENT TO ISSUE NEW 'PCL>"'

BNE

012752

PROC

PRCLR:

000037
020100

MOV
MOV
CPCLRC: CLR
ADD
CLR

000004

CLR

b
b

b
-

CLR
CLR
DEC

016767
016767
000261
000167

BNE
CLR
MOV
MOV
CPCLRT: RETURN
SYNTRC: SEC
JMP

;

000001

000002

100000

012562

012560
000100
177770

010760

;CLEAR STATUS TABLE

SYNTRC

PRCLR

#37 .R1
#RADB ,RO
(RO)
#4 RO
+
(RO)

;IF SO, INDICATE SYNTAX ERROR

;**ENTRY POINT ==

:SAVE COUNT OF TABLE ELEMENTS
:SET UP TO CLR ACTIVE FLAGS
;CLEAR ALL ELEMENTS OF ENTRY

+
(RO)

(RO)+
+
(RO)
R1

CPCLRC
AOQ
RONT
AOQ+QTOP,ADQ+QF
AOQ+QTOP,AOQ+QBACK

CPCLRT

;DONE?
s 1F NOT, CONTINUE

;INITIALIZE ADDR QUEUE TO EMPTY

;AND LEAVE

sSET "'C"" BIT FOR SYNTAX ERROR

SET THE STATUS EVENT FLAG SO THAT THE STATUS TABLE WILL BE PRINTED.

CPSTAT:

PROC

CPSTAT

CMP

#1,2(SP)

BIS

#815,STSEV

BIC

#806,aTCR

BNE

CLR

CPSRTN: RETURN
SYNTRS: SEC
JMP

SYNTRS

STPNTR

CPSRTN

s**ENTRY POINT*»

;ARE THERE ANY ARGUMENTS?
;1F SO, INDICATE SYNTAX ERROR
;SET STATUS EVENT FLAG
;0 STPNTR INDICATES HEADER FIRST
;CLR TXM INTERRUPT ENABLE

sSET "'C""'BIT FOR SYNTAX ERROR

; CONTINUE EXERCISING. DO NOT AFFECT THE STATUS TABLE

SEQ 0062

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11

875
876
877
878
879
880
881
(M
(1)

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

L
09:48

3
PAGE 11-1

COMMAND PROC. FOR CLEAR, STATUS, AND CONTINUE
DO NOT AFFECT THE ERROR TABLE
DO NOT AFFECT THE RCVR ADDRESS QUEUE
SIMPLY SET PCLGO

PROC

005126
005126
005126

005134
005136

005144
005160
005176
005202

005212
005214
005216

022766
001027
012767

000001

000002

100000

012534

005767
001403
012777

012446

000261
000167

000100
177770

010736

CPCNT:

CPCNT

CMP
BNE
MoV

#1,2(SP)
SYNTCN
#815 ,PCLGO

TST
BEQ

KWFLG
CPCNRT

CALL
CALL

MOV
CPCNRT: RETURN
SYNTCN: SEC
JMP

PNCRLF
PNTLIN,<EXCNT>
#806,aLCS
CPCNRT

s**ENTRY POINT*#

JARE THERE ANY ARGUMENTS?
;IF SO, INDICATE SYNTAX ERROR
;SET PCL GO FLAG
sPRINT CR & LF

;PRINT "EXERCISER CONTINUING''
;GOT A CLOCK?
:NO

JRE-ENABLE CLOCK.

JSET "'C'" BIT FOR SYNTAX ERROR

SEQ 0063

CZPLABO PCL11 EXERCISER V02
12-SEP-78 15:13

PCLEXR.P11

MACY11 30A(1052)

.SBTTL

005222
005222
005230

005232
005240

005240
005240

005246
005252
005256
005262
005266
005274
005310

022766
001114

012767

105067
105067
105067
005067
042767

920
921
922

005320
005322
005326

001406
005060
062700

938
939
940
941
942
943

CLEAR CLOCK DATA

CLEAR TRANSMITTER HARDWARE
INITIALIZE DATA PATTERN

005314

005332
005336
005342
005346
005352
005354
005356
005362
005366
005372
005374

005406
005414
005422
005426
005432
005436

000001

000002

177777

012516

CPINIT:

012371
012366
012360
012360
100000

022710

000167
012700
012701
012721
005300
001374
012700
012701
062701
005021
005021

016767
016767
005067
005067
005067
005067

024726

177777

000004
000006
177756
001350
025150
000000
000037
020100
000004

012312
012310
012246
012230
012230
012210

CPINIT
#1,2(SP)
SYNTIN
#-1,ESCFLG
PRINIT

002104

BDINIT
CLRB
CLRB
CLRB
CLR
8IC
CALL
PROC

012700

932
933

CLEAR “RIB'* IN XMTR COMMAND WORD ‘TXMST''

PRINIT:

005310
005310

923
924
925
926
927
928
929
930
931

CLEAR STATUS TABLE, SUMMARY TABLE, ERROR TABLE

PROC

(1)
918

919

COMMAND PROC. FOR INIT, SUMMARY, AND GO

Y
I
I
R
R
R

(1)
906
907

911
912
913
914
915
916
?}Z

SEQ 0064

005222

(1)
910

S
PAGE 12

TO USE CALL MACRO, ENTER AT PRINIT AND PARCLR

???

908
???

m
09:48

COMMAND PROC. FOR INIT, SUMMARY, AND GO

89
895
896
897
898
899

900
901
902
903
904

20-0CT-78

PARCLR:

ERTBCL:

XMTR

SECNDS
MINUTS
TICKg
HOUR

#815,TXMST
PRCLR
PARCLR

#ERTBL ,RO
#-1,(R0O)
ERTCD

4 (RO)

ERTCD:
1%:

2%:

#6.R0O
ERTBCL
#37+30,R0
#TERTBL
,R1
#0,(R1)+
RO
1%
#37 ,RO
#RADB ,R1
#4 ,R1
(R1)+
(R1)+
(R1)+
(R1)+
RO

2%
ORIGSD ,DTSEED

MLSD ,MSGL SD
TXMEV

SUMEV
STSEV
TEREV

T
;**ENTRY POIN==
;ARE THERE ANY ARGUMENTS?
:IF SO, INDICATE SYNTAX ERROR

FLAG COMENT TO ISSUE NEW 'PCL>'
;*%*ENTRY POINT*=

;CLEAR XMITTER.
;CLEAR SECONDS (TIME)
;CLEAR MINUTES
;CLEAR TICKS
;CLEAR HOURS

:CLEAR RIB IN COMMAND WORD FOR XMTR
:CLR STATUS TABLE & ADDR QUEUE

s**ENTRY POINT*»

;CLEAR ERROR SUMMARY TABLE
;1S ERR NUM = -1?
;IF SO, DONE CLEARING
;OTHERWISE, CLR OCURRENCES
;STEP TO NEXT ENTRY
sAND CONTINUE
sALSO CLEAR ERROR DATA

;FROM DETAILED ERR TABLE

;CLEAR ATTEMPS & SUCCESSES
; FROM STATUS TABLE

;RESTORE ORIGINAL DATA SEED

;AND MSG LENGTH SEED
;CLR XMIT EVENT FLAG
;CLR SUMMARY EVENT FLAG
;CLR STATUS EVENT FLAG

CZPLABO PCL11 EXERCISER v02
12-SEP-78 15:13

PCLEXR.P11

005442

005067
005067
052767
000261
000167

012206
012264
100000

MACY11 30A(1052)

20-0CT-78

09:48

PAGE 12-1

COMMAND PROC. FOR INIT, SUMMARY, AND GO

012200

177770

CLR
CLR
BIS
CPINRT: RETURN
SYNTIN: SEC
JMP

REREV
RCTXPS
#815,DATGEV

SEQ 0065
;CLR XMTR & RCVR ERROR EVENTS
;CLEAR DATA PASS NO.
;SET DATA GEN FLAG

;SET "'C"" BIT FOR SYNTAX ERROR

CPINRT

; SET THE SUMMARY EVENT FLAG SO THAT THE ERROR SUMMARY TABLE WILL BE PRINTED
005470
000002

012767
005067

012160

100000

012154

000261
000167

CPSUM:

CPSUM

CMP
BNE

#1,2(SP)
SYNTSM

MOV
CLR

CPSURT: RETURN

SYNTSM: SEC

177770

JMP

#B15,SUMEV
SUMPNT

s**ENTRY POINT#**
;ARE THERE ANY ARGUMENTS?
;IF SO, INDICATE SYNTAX ERROR

;SET SUMMARY EVENT FLAG
;0 SUMPNT INDICATES HEADER FIRST
;SET "'C"* BIT FOR SYNTAX ERROR

CPSURT

; START THE EXERCISER

;

CLEAR ERROR TABLES

CAUSE RCVR ADDRESS QUEUE TO BE LOADED
SET PCLGO
IF THE RCVR ADDRESS QUEUE IS EMPTY AFTER BEING LOADED,

INDICATE THIS BY PRINTING THE FOLLOWING MESSAGE:

IR IR I

;

CLEAR 'ATTEMPTS'' AND ''SUCCESSES'' IN STATUS TABLE

"««SORRY, 1 HAVE NO RECEIVER ADDRESSES.**"’

005500
005506
005512
005514
005516

022766

000001

005470
005470
005476

PROC

000001

000002

012200

012767

100000
177777

010644
010640
012052
012066

AND RETURN TO COMMAND

CPGO:

INPUT MODE.

PROC

CPGO

CMP
BNE
CLR
CLR
CLRB
CLRB
CLRB
CLR

#1,2(SP)
SYNTX
RCTXPS
AOQ
SECNDS
MINUTS
TICKS
HOURS

BIS
MOV
CALL

#815,QLDEV
#-1,PCLGO
PARCLR

MOV
MOV

AOQ+QTOP,AOQ+QF
RONT
AOQ+QTOP ,AO0Q+QBACK

s**ENTRY POINT
==
sARE THERE ANY ARGUMENTS?

;IF SO, INDICATE SYNTAX ERROR
;CLEAR PASS NO.
;INIT ADDR QUEUE TO EMPTY
;CLEAR SECONDS REG.
;CLEAR MINUTES REG.
;CLEAR TICKS REG.
;CLEAR HOURS REG.
;SET ADDR QUEUE LOAD EVENT
;SET PCL TO GO
;CLEAR STATUS & ERRORS (NOT RCVRS)

CZPLABO PCL11 EXERCISER V02
PCLEXR.P1
12-SEP-78 15:13
996
997
998
999
1000
1001
1002

1003
1004
1005
1006

005626
005642
005660
005664
005666
005674
005676
005700

005767
001403
012777

000261
000167

MACY11 30A(1052)

177770

B
09:48

6
PAGE 12-2

SEQ 0066

COMMAND PROC. FOR INIT, SUMMARY, AND GO
CALL
CALL
TST
BEQ

011764

000100

20-0CT-78

010254

MOV
STRTRT: RETURN

SYNTX:

SEC
JMP

PNCRLF
PNTLIN,<EXRST>
KWFLG

STRTRT
#806,aL(S

STRTRT

;PRINT CR, LF

;PRINT "EXERCISER STARTED''.
;GOT A CLOCK?
;NO.

sENABLE CLOCK INTR.
JEXIT

JSET "'C"'TO INDICATE SYNTAX ERROR
JAND EXIT

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13

20-0CT-78

MACY11 30A(1052)

COMMAND PROC. FOR

.SBTTL

COMMAND PROC. FOR

SEQ 0067
"ASSIGN'’

S WN=O

P
I
Y

222

[

nuwnnn

; ASSIGN XMTR ADDR & VECTOR AND RCVR ADDR & VECTOR.
;THE ASSIGN COMMAND MAY HAVE 0,
. 3 OR & ARGUMENTS:

o [eloleololelelelels)
o
b
i
D d D d
no
nN=O

;

ASSIGN STANDARD ADDRESSES & VECTORS TO RCVR & XMTR

ARGUMENT IS ASSUMED TO BE XMTR ADDRESS
ARGUMENTS ARE ASSUMED TO BE : XMTR ADDR, XMTR VECTOR
ARGUMENTS ARE ASSUMED TO BE: XMTR ADDR, XMTR VECT, RCVR ADDR
ARGUMENTS IN THE FOLLOWING ORDER:

XMTR ADDRESS, XMTR VECTOR, RCVR ADDRESS, AND RCVR VECTOR.
CAUTION MUST BE EXERCISED WHEN ASSIGNING ADDKRESSES TO GET THEM
IN THE CORRECT SEQUENCE AND ORDER.

C 6
09:48 PAGE 13
"ASSIGN'’

PROC

oooao N2
ANVS ~N

OCOO0O0000O

NNNINN)
=< =
BB
NRAR
=

1023

b
i i

1033

CPASS:

000002
000005
000372
000004
000002

000352
000006
000002
000003

1%:

SP,RO
2(RO) ,R1

R1,45
1%
SYNXR
PART1
4(RO) ,R2

#2.,R2
2%

2%:

000330
000774

3%:

000316
010170

4%:

000004

PART1:

N00004
000002
000264
000006
000002
000017

CPASS

1%:

SYNXR
#6,RO

2(R0) ,R2
#3,R2
3%

2%:

000230
010100

3%:

000003

PARTZ:

;COPY LIST POINTER
sGET NO. OF ARGUMENTS
;4 ARGUMENTS?

;ERROR TOO MANY ARGUMENTS

;LESS THAN 4, PARTIAL ASSIGNMENT

;GET CLASS OF OBJECT
;IF IT'S A NUMBER, 0.K.
;ERROR WRONG CLASS

sNOW GET ACTUAL NUMBER

IES” ON VECTOR BOUNDARY?

SYNXR
R2,A774
4%
SYNXR
R2,.RCVEC
R1
R1,44
PART?2
4(RO) ,R2
#2,R2
1%
SYNXR
#6,R0

:ERROR NOT ON VECTOR BOUNDARY
;1S IT WITHIN VECTOR AREA?

#17.R2

sCHECK IF ITS A VALID ADDR
;1T 1S. 0.K.
;ERROR INVALID ADDRESS

2(R0) ,R2
28

000242
164000

s **ENTRY POINT=+

SYNXR

R2,#164000
3%

SYNXR
R2 ,RCDEV
R1
R1,43
PART3

SYES
;ERROR, OUTSIDE VECTOR AREA
;SAVE AS RCVR VECTOR

;ARE THERE ONLY 3 ARGS?
sNO, MUST BE FEWER

:GET CLASS OF OBJECT

;IF IT'S A NUMBER, 0.K.

;ERROR, OBJECT NOT A NUMBER
sNOW, GET THE NUMBER

;1S IT IN THE ADDRESS FIELD?
;YES, 0.K.
= OUTSIDE DEVICE AREA
;ERROR. ADDR
:SAVE AS RCVR ADDRESS

;ARC THERE ONLY 2 ARGS?
sNO, MUST BE ONLY 1.

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACYTT SCC)AUOSZ)

1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074

006102
006106
006112
006114
006120
006126
006130
006134
006136
006142
006146
006150
006154

016002
022702
001402
000167
062700
016002
032702

000004
000002

000167
020227

000154
000774

000167
010267

000142
010010

3$:

1076
1077
1078
1079
1080
1081
1082
1083
1084

006162
006166
006170
006174
006200
006202
006206
006212
006216

020127
001027
016002
022702
001402
000167
062700
016002
032702

000002

PART3:

000110
000006
000002
000017

1$:

1086
1087
1088
1089
1090
1091
1092
1093

006224
006230

000167
020227
103002
000167
010267
020127
001014
012767

000066
164000

2%:

000054
007720
000001

3$:
PART4:

012737
000167

000340
173462

1075

1085

006160

006222

1097
1833

006234
006236
006242
006246
006252
006254
006262
006270
006276
006304
006312

100
101

006316
006320

1094
1095
1096

001402

101402

005301

001402

012767
012767
012767

000261

000176
000006
000002
000003

1$:

PROC. FOR

2%:

177776

ASEXT:
SYNXR:

"ASSIGN'

4(RO) ,R2
#2,R2
1$
SYNXR
#6,R0
2(R0O) ,R2
#3,R2

JMP
CMP

SYNXR
Re . A774

JMP
MOV

SYNXR
R2,TXVEC

(MP
BNE
MOV
cMP
BEQ
JMP
ADD
MOV
BIT

R1,42
PART4
4(RO) ,R2
#2.R2
1%
SYNXR
#6,R0
2(RO) ,R2
#17 ,R2

BLOS
DEC

BEQ

007704
007700
007674
007670

09:48

MOV
CMP
BEQ
JMP
ADD
MOV
BIT
BEQ

000004
000002

164200
000170
164220
000174

20-0CT-78

JMP
CMP
BHIS
JMP
MOV
(MP
BNE
MOV
MOV
MOV
MOV
MOV
JMP

SEC
RETURN

PAGE 13-1

SYNXR
R2,#164000

3s
SYNXR
R2,TXDEV
R1.#
ASEXT
#164200, TXDEV
#170, TXVEC
#164220 ,RCDEV
#174 ,RCVEC
#340,34PS
PCLEX

SEQ 0068
;GET CLASS OF OBJECT
;IF IT'S A NUMBER, 0.K.
;ERROR, WRONG CLASS
sNOW GET THE NUMBER
;1S IT ON VECTOR BOUNDARY?
JYES
;ERROR. NOT ON VECTOR BOUNDARY
;1S IT WITHIN VECTOR AREA?
;YES
;ERROR. OUTSIDE VECTOR AREA
;SAVE AS XMTR VECTOR

JONLY 1 ARGUMENT?
sNO, MUST BE NONE.
;GET CLASS OF OBJECT
;IF IT'S A NUMBER, 0.K.
;ERROR. WRONG CLASS
;NOW GET THE NUMBER
;CHECK FOR VALID ADDRESS
;0.K.

;1S IT IN ADDRESS FIELD?

;YES
;ERROR, OUTSIDE ADDRESS FIELD
;SAVE AS XMTR ADDRESS
;NO ARGUMENTS?
;WE'RE DONE!
:NO ARGUMENTS, LOAD DEFAULTS.

;RAISE PROC. PRIORITY
;GO START EXERCISER OVER.
;SET "'C"" TO FLAG ERROR
JRETURN

MACY11 30A(1052) 20-0CT-78 09:48 PAGE 14
COMMAND DECODER AND PROCESSOR

”82

.SBTTL

SEQ 0069

COMMAND DECODER AND PROCESSOR

1105
1106

;CONVERT COMMAND TO IT'S PROCESSING ROUTINE ADDRESS
;IF C BIT IS SET, INDICATE SYNTAX ERROR

} 08

;IF ESCFLG <> 0, CALL PRESC (CNTRL-C)

MNONININININININININ)
= e
D
= e

;RETURN TO COMMAND INPUT MODE

006322

006322
006322

006326

006332
006352
006354
006372

006406
006412

006414
006430

PROC

105067
005067

011313
011424

103015
005767
001406

011344

COMENT

COMENT :

CLRB
CLR
CALL
BCC
CALL
CALL
CMDRTN: TZT
BE
CALL
CMDRET: RETURN

CMDENT
ESCFLG
COMAND ,<CMDBUF ,CMDTBL>
CMDRTN
PNTLIN,<SYNTAX>
PRESC
ESCFLG
CMDRET
PRESC

s**ENTRY POINT
=«
;CLEAR COMMAND ENTERED FLAG

;CLR COMMAND INPUT MODE FLAG

;CONVERT COMMAND
JIF € =0, EXIT
;PRINT "'SYNTAX ERROR'® IF C SET
:GIVE ANOTHER 'PCL>'’
;SHOULD WE FAKE CNTRL-C?
sNO, EXIT

;YES, GIVE A "PCL>"’
JRETURN TO MAIN LOOP

;PROCESSOR FOR SPECIAL EVENT

;INDICATE ‘NO MASTER'® AND CLEAR EVENTS

;THIS EVENT IS CALLED BY THE MAIN LOOP AFTER

;

————

D d D D D

N Y

) D

YR Y

D e

D D

J—— —

D D NN D i i

1107

THE OCCURRENCE OF A MASTER DOWN INTERRUPT

d e

;THE RESULT OF THIS EVENT IS THAT THE PROGRAM WILL
PRINT MASTER DOWN IN THE FOLLOWING FASION:
*

*# *

MASTER

DOWN

=«

)

006432

RSN N

D d

NPT N

)

sTHEN CLEAR ACTIVE EVENT FLAGS BY ENTERING COMMAND MODE.
;TO RECOVER FROM THIS STATE AND RESUME EXERCISING:
(A) SET MASTER ON ANY ONE PCL11
;
;
(B) TYPE THE COMMAND '‘CONTINUE"’

— e e e

d d

1138
1139
1140
1141
1142
1143
1144
1145
1146

006432
006446
006464
006500
006504
006510
006514

006520
006534

PROC
SPEC:

005067
005067
005067
005067

011200
011170
011152
011142

CALL
CALL
CALL
CLR
SPERTN: CLR
CLR
CLR

CALL
RETURN

SPEC
PNCRLF
PNTLIN, <MDNER>
PNCRLF
SPCEV
PCLGO
STSEV
SUMEV
PRESC

s**ENTRY POINT
=

;ENQUEUE CR & LF
;ENQUEUE MASTER DOWN MESSAGE
;ANOTHER CR & LF
;CLR SPECIAL EVENT FLAG
sDON'T ALLOW TXM EVENT
;DISCONTINUE STATUS EVENT
;DISCONTINUE SUM EVENT
sFAKE CNTRL=C KEY

o
e

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13

PCLEXR.P11

12-SEP-78 15:13

006536

(1)
158
159

006536
006536
006552
006570
006604
006610

SEQ 0070

;PROCESSOR FOR 'EXTRA'® SPECIAL EVENT
;TO INDICATE WHEN THIS UNIT HAS JUST BECOME
IMASTER AS A RESULT OF PREVIOUSLY HAVING
;SECONDARY SET AND THE CURRENT BUS MASTER
HAVING JUST DROPPED MASTER.
:WHEN ‘NOW MASTER'' INTERRUPT OCCURS, THE
;CONSOLE DEVICE WILL PRINT
3
“*x THIS UNIT HAS BECOME NEW MASTER =+

11('15;

XSPEC:

005067

PROC

XSPEC

CALL
CALL

PNCRLF
PNTLIN, <MSCHNG>

CALL
CLR
RE TURN

011076

PNCRLF
XSPCEV

s**ENTRY POINT#*=
;ENQUEUE (R & LF
;ENQUEUE NEW MASTER MESSAGE
;ANOTHER (R & LF
;CLR XSPEC EVENT FLAG
sRETURN TO MAIN LOOP

PAGE 15

COMMAND DECODER AND PROCESSOR

1148
1149
1150
1151
115¢
1153
1154
Hgg

160
161
162

20-0CT-78

)

MACY11 30A(1052)

;PROCESSOR FOR 'DETAILED' ERROR TABLE PRINTOUT COMMAND ‘ERRORS'

167
168
169
170
171

;THIS ROUTINE WILL INITIALIZE THE TEMPORARY LOCATIONS REQUIRED
:BY THE XMTR AND RCVR ERROR EVENTS. IT WILL THEN QUICKLY CHECK THE
RCVR AND XMTR ERROR TABLES FOR ANY ENTRIES. IF NONE EXIST, THE MESSAGE
"'**NO ERRORS TO REPORT YET ==
‘WILL BE PRINTED ON THE CONSOLE AND THAT IS ALL.

174
175
176

; BE PRINTED.

T AT

——

————

‘%gg

172
173

; IF ANY ENTRIFS WERE FOUND, THE XMTR ERROR EVENT FLAG 'TEREV'' WILL BE SET
; WHICH WILL CAUSE THE XMTR ERRORS AND THE RCVR ERRORS (IF ANY) TO

006612

(1)
1178
1179
1180
1181
1182
1183
1184
1185

006612
006612
006620
006622
006626
006632
006634
006636
006640

[

'g;

1186
1187
1188

1189

1190
1191
1192

006642
006660
006666

006672

006700
006706
006714

1193
”g‘so

006722
006730

1196

006732

1197

006734

CPERR:

CPERR

CMP
BNE
MOV
MOV
TST
BNE
DEC
BNE

#1,2(SP)
SYNRR
#TERTBL ,RO
#37%30,R1
(RO) +
SERFL
R1
1%

022766
001044
012700
012701
005720
001016
005301
001374

000001

012767

177777

011070

100000

010752

SERFL:

100000

010766

BIS
CPERTN: RETURN

025150

001350

000167

000036

012767
012767
012767

000001
000001
025150

012767

052767
000261

000167

000002

PROC

177770

1%:

011062
011056
011052

CALL
MOV

SYNRR:

JMP

MOV

MOV
MOV
MOV

SEC

JMP

s*%ENTRY POINT**
JANY ARGUMENTS?
;ERROR IF THERE ARE.
;POINT AT XMTR TABLE
;SET TABLE LENGTH COUNTER
;ANY ENTRIES?
;YES, CALL ERROR MODULE
sNO, CHECK WHOLE TABLE

PNTLIN, <NOERMG>
#-1,ESCFLG

;PRINT "NO ERRORS''
;FLAG COMENT TO ISSUE 'PCL>"

#B815,TEREV

:SET XMTR EVENT FLAG

CPERTN

#1,ERRO
#1,ERR1
#TERTBL ,ERR2

#815 ,HDRFLG

CPERTN

SAND RETURN

;INITIATE ERROR #
s INITIATE RCVR ADDR
sINITIATE TABLE POINTER

;SET HEADER FLAG

sSET "'C"" BIT TO INDICATE SYNTAX ERR

CZPLABO PCL11 EXERCISER V02

09:48

PCLEXR.P1

12-SEP-78 15:13

G 6
20-0CT-78 09:48 PAGE 16
MACY11 30A(1052)
RECEIVER ADDRESS QUEUE LOADER ROUTINE

SEQ 0071

.SBTTL RECEIVER ADDRESS QUEUE LOADER ROUTINE

THE TRANSMITTER EVENT WILL PICK RCVR ADDRESSES FROM THE QUEUE

UNTIL IT IS EMPTY,

ANY RECEIVER ADDRESSES (USING ‘RANGE'' OR “'ADD'" ETC.)

e
-

PROC

ADQLD:

e
d d e —d -

ONOWVS
W -N=O

el
—
D
e
D
b D

IF THE QUEUE IS LOADED BUT STILL REMAINS EMPTY, AND PCLGO IS SET,

THIS MEANS THE OPERATOR IS TRYING TO RUN BUT HASN'T ENTERED

TETE IR

LOAD THE RECEIVER ADDRESS SOF TWARE QUEUE

010706
000037
020100
177777

REGSAV

CLR

MOV
MOV
QCHACT: CMP
BNE
JSR
QLOOK:
ADD

000036
000014

DEC
BNE

ADQLD

%=
:*%ENTRY POINT
QLDEV
#37 ,R2
#RADB,RO
#-1,(R0O)
QLOOK
PC,QLOAD
#14 RO
R2
QCHACT
AOQ
QMTRN
RCTXPS

:SAVE RO...RS5
;CLR QUEUE LOAD EVENT FLAG
;POSITION COUNTER
;RO POINTS AT TABLE

;1S ACTIVE FLAG SET IN TABLE?
:NO, LOOK FOR NEXT ONE
:YES, LOAD ADDR INTO QUEUE
;ALL ENTRIES CHECKED?
;1S THERE ANYTHING IN QUEUE?
;NO,THIS IS NOT A VALID PASS

005767
001424
005267
012767

007416
100000

010652

QRTN:

116067

000002

021231

QLOAD:

MOVB
CALL
RTS

2(R0O) ,BKELEM+1

;GET RCV ADDR INTO HIGH BYTE

QMTRN:

TST
BEQ
CALL
CALL
CALL
BR

PCLGO
QRTN
PRCTLO

;ARE WE RUNNING?

PRESC

;FAKE

010722

000207

005767
001753

000727

010614

TST
BEQ
INC
MOV

REGRES
RE TURN

#815, TXMEV

E?O.<BKELEH.AOO>

PNTLIN,<MTQMSG>
QRTN

;YES,

INCR PASS NO.

;SET XMTR EVENT FLAG
;RESTORE RO...RS

;PUT

sNO,

IN.ADDR QUEUE

LEAVE

:STOP PRINTING ANYTHING ELSE
:TELL OPERATOR NO RCVRS
CNTRL=C

;RETURN

CZPLABO PCL11 EXERCISER V02

CZPLABO PCL11 EXERCISER vO2
PCLEXR.P11
12-SEP=-78 15:13

}523

SEQ 0072

.SBTTL DATA GENERATION (RANDOM) ROUTINE

MACY11 30A(1052) 20-0CT-78 09:48 PAGE 17
DATA GENERATION (RANDOM) ROUTINE

]'%zg

; GENERATE A BUFFER OF DATA AND NOTE THE FOLLOWING CONDITIONS:

1247
1248
1249
1250
“lgg;

:
:
:
H
3

BITS <8:0> OF THE FIRST WORD = MESSAGE LENGTH
IF THE FIRST WORD IS 170000 OR HIGHER, EXPECT A REJECT
IF THE MESSAGE LENGTH IS > 600, EXPECT A TRUNCATE
GENERATE RANDOM DATA USING THE FOLLOWING FORMULA:
SN = (SN=1 = RANDOM NO.) ¢+ RANDOM INCREMENT

]55;2

}

WHERE S = DATA SEED; AND N = A NUMBER FROM 1 TO MESSAGE LENGTH.

]'%gz

A MESSAGE LENGTH OF O IS NOT ALLOWED AND IS CHANGED TO 1.

1257

1%??

007136

(1)

1260
1261
1262
1263
1264
1265

007136
007136
007142
007146
007152
007160
007162
007170

1267
1268

007200
007206

1259

1266

1269
1270
1271
1272

1273
1274
1275
1276
1277
1278
1279
1280
1281

007176

007214
007216
007224
007230
007234

007240
007242
007244
007250
007254
007260
007302
007310

005067

005067
005067
042767
001003
012767
026727
002403

012767
022767
101005
012767
005067
012700
016705

006105
005405
010567
016705
016720
066767
005305

DATGEN:

010574

010572
010570
177000

010552

000001
010536

010542
000600

177777
170000

010534
010512

177777
010512
020666

010514

PROC

DATGEN

CLR

RCTXPS

DTCNT:

CLR
CLR
BIC
BNE
MOV
CMP

RJCTF
TRNKF
#177000 ,MSGLSD
DTCNT
#1,MSGLSD
MSGL SD , #600

s**ENTRY POINT
=+
;CLEAR DATA PASS FLAG ;CLEAR REJECT SOF TWARE FLAG
;CLR TRUNCATE SOF TWARE FLAG
;LENGTH NOT TO EXCEED 1000
s IF NON-O, OKAY, CONTINUE.
;JIF 0, MAKE IT AT LEAST 1
;1S LENGTH LESS THAN 600?

DTGNC:

MOV
C(MP

#-1, TRNKF
#170000,DTSEED

sNO,SET TRUNCATE SOF TWARE FLAG
;1S DATA SEED -10000 OR MORE?

BLT

BHI

MoV
CLR
DTGNCO: MOV

010472

MOV

010474
010456
010446
010442

010416

DTCLP:
-~

;IF RS = 0, FINISHED
;GET NEW LENGTH

DATGEV

;CLEAR DAT GEN EVENT FLAG

010406

010410

BGT
DTCDON: MOV

1285

007330

005067

010324

CLR

1286

007334

100000

010344

;RS IS MESSAGE LENGTH

DTCLP
DTSEED ,MSGL SD

ADD
DEC

003360
016767

012767

MSGLSD ,R5

;YES SET REJECT SOF TWARE FLAG
JAND CLR TRUNCATE SFTWR FLAG
sPOINT RO TO TOP OF BUFFER

RS
R5
RS, TXML
MSGLSD ,R5
DTSEED, (RO) +
- RANM,DTSEED

007312
007314

007322

DTGNCO
#-1,RJCTF
TRNKF
#DATBUF ,RO

ROL
NEG
MOV
MOV
-MOV
MULP

1282
1283

1284

DTGNC

MOV

RETURN

F/NK ,DTSEED
RS

#815, TXMEV

;DOUBLE IT
sNEGATE IT
;SAVE IT FOR TRANSMIT MODULE
;RS IS MSG LENGTH AGAIN
;PUT WORD INTO BUFFER
;GENERATE NEW RANDOM NUMBER

JSET XMIT EVENT FLAG

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

sWITH MULTIPLICAND IN R4 AND MULTIPLIER ON STACK
;PRODUCT RETURNED ON TOP OF

007362
007364
007366
007370
007372
007374
007376

MLI:
000020
:
MUL

MOV
MCv
MOV
MCvV
CLR

STACK

B
JGET MULTIPLICAND
ER
;GET MULTIPLI
;SAVE Ré4
;SET UP FOR 16 BIT MULTIPLY

(SP)+ ,R1
(SP) ,R3

R4 ,=(SP)
#16. R4

ROR
ROR

sSHIFT PRODUCT

ADD

;ADD IN MULTIPLICAND
; COUNT LOOP

sCHECK IF MULTIPLIER BIT IS O

8CC
CYCL:

DEC
BGT

MOV
ASR
ROR
MOV
JMP

MUL

.MACRO

MULP
MOV

sPRODUCT IS IN R3

;STORE RESULT ON STACK
;RETURN

IS AS FOLLOWS:
A.B

A,=(SP)

MOV

B.R4

. WORD
MOV

JSR

. ENDM

JRESTORE R4
;ONE LAST SHIFT

(SP)+ R4
R2
R3
R3, (SP)
a(R4)+

;MACRO F OR THE ABOVE
NN,

007336
007340
007342
007344
007350
007352
007354
007356

b ced b
d d o
dn —d
OV~ NS WN=O

;UNSIGNED MULTIPLY ROUTINE

;CALLED BY 'JSR R4 MLI'

SeSL

R
R P A 33

e B
e
e
N
————— R
P

SEQ 0073

MULTIPLY ROUTINE FOR DATA GENERATION

.SBTTL MULTIPLY ROUTINE FOR DATA GENERATION

1289
1290
1291
1292
1293

WWWWNWWWWWNW

MACY11 30A(1052) 20-0(T-78 09:4& PAGE 18

R4 MLI

(SP)+.B

;SAVE A ON STACK

;SAVE B IN R4

;PERFORM MULTIPLICATION
;PUT PRODUCT

INTO B

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

TRANSMIT MODULE

W= o

RRRRRRERRR r

oo v

W
=0V NOWVISWN —_ OV

) - —d —
D
D
d

d e
D
D
D
d
D
d e

oo~

PAGE 19

SEQ 0074

OR ‘‘CONTINUE'' SET IT), START TRANSMITTING
"PCLGO"" IS SET, ("'GO'*

THE DATA CONTAINED IN THE BUFFER 'DATBUF''.
THE TARGET RECEIVER ADDRESS IS DEQUEUED FROM THE ADDRESS QUEUE.
THE MESSAGE LENGTH WAS DETERMINED DURING THE GENERATION OF THE DATA.
NOTE THAT BIT 15 OF "'TXMST'* MAY BE 1 OR O DEPENDING UPON THE USE
OF THE "RIB SET'' OR "RIB CLEAR'" COMMANDS.
TXMST:

060101

007402

CONTROL TRANSMISSION OF RANDOM DATA TO DE-QUEUED RECEIVER ADDRESSES

prgiore

007400

09:48

.SBTTL TRANSMIT MODULE

1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333

— o

20-0CT-78

007402
007402
007406
007410
007414
007422
007426

007430
007436

007444
007464
007472
007476
007500
007502
007504
007506
007510
007514
007522
007526
007534
007542
007544
007552
007560
007562
007566
007574

TXMIT:

005767
001455
005067

010272

005767
001446
016777
012777

006776

010310
020666

006446

116767

020575
010254

010260

016777
056777

012767
026727
001402
000167
012767
000167

010260

020064
000001
000004
020532

.WORD

060101

PROC

TXMIT

TST
BEQ
CLR

PCLGO
TXRTN

TST

AOQ
TXOUT

BDINIT
BEQ

MOV
MOV
CALL
MOVB
MOV
ASL
ASL
MOV
ASL
ADD
ADD

006442

000006

177640

006342
006334

100000
010160
177754
100000
177742

TXMEV
XMTR

TXML ,aTSBC
#DATBUF ,aTSBA
DEQ,<FRELEM,AOQ>

FRELEM+1,CURAD

CURAD ,RO

;TRANSMITTER COMMAND WORD

=+
J**ENTRY POINT

;CAN PCL GO?
;1F NOT, RETURN
;CLR XMTR EVENT FLAG
;CLR XMTR HARDWARE

JANY ELEMENTS IN ADDR QUEUE?
sIF NOT, FILL IT UP AGAIN
;LOAD BYTE COUNT
;LOAD BUS ADDRESS
;DEQUFUE RECEIVER ADDRESS
;GET ADDRESS TABLE OFFSET
;FIND ADDRESS TABLE ENTRY
IN ORDER TO UPDATE
:
3

"ATTEMPTS"'

;UPDATE DOUBLE WORD
FRELEM,aTCR
TXMST ,aTCR

;GIVE RECEIVER ADDR TO XMTR
;START TRANSMISSION

;SET QUEUE LOAD EVENT FLAG
;1S THIS THE S5TH PASS?
;IF SO, SET DATA GEN EVENT FLAG
JRETURN
;SET DAT GEN EVENT FLAG
JRETURN

TXRTN:

RETURN

010104
000004

TXOUT:

MOV

#815,0LDEV

010064

TXDGEN:

MOV

#315,DATGEV

, #4
RCTXPS
TXDGEN
TXRTN

TXRTN

[

CZPLABO PCL11 EXERCISER V02
i PCLEXR.P11
12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

TRANSMIT MODULE

09:48

PAGE 20

SEQ 0075

;:;TRANSMITTER INTERRUPT HANDLER
;:: SORT THE CAUSES OF TRANSMITTER INTERRUPTS
;:; AND GO TO THE PROPER HANDLING ROUTINE.

TXER
TXBSY
TXSUC
TXSOR

NOWMST

FEERBRULEE

1379
) i
D
)
e
D
D

00O
Lsu
SR WN)
=

000114
000200

006236

000610
000040

WWWW

b —
-

100000

006264
177776
006252

000100
000200

000772

000004
001074

000020

012767

000514

100000

=
z
=
=

XMTINT: REGSAV
BIC
MOV
BIT

XMTIS:

BEQ

JMP

#806,aTCR
#200,a#PS

:::SAVE RO...RS
;23CLR TXM INTR ENABLE
;::ALLOW RCVR INTR BUT NOT TTY

XMTIS
ERRINT
#TXSUC,aTSR

;::NO, CHECK SUC TXF
;s sHANDLE ERROR
;2:WAS IT A SUC TRANSFER?

#TXER,aTSR

XMTSR

SUCINT

BIT
BEQ
JMP
XMTPNM: BITB
BEQ

#TXSOR,aTSR
XMTPNM
SORINT
ANOWMST ,aTMMRH
XMTIB

006172

XMTIB:

007752

XMTPRB: MOV

#TXBSY ,aTSR
XMTPRAB
BSYINT

006222

006220

XMTSR:

BEQ
JMP
BIT

100000
20
200
40

JMP

BIT
BEQ
JMP

ERROT

NMINT

#815, TXMEV
\N

;2:1S THERE A HARDWARE ERROR?

:2:NO, CHECK SOFTWARE REJECT
;s sHANDLE SUC TXF
;;:WAS MESSAGE REJECTED?
;:3NO,CHECK NOW MASTER
;2 sHANDLE REJECT
:::1S THIS UNIT NOW MASTER?
:2:NO, WAS RECVR BUSY?

;::YES, HANDLE NOW MASTER INT

;::WAS RECEIVER BUSY
:2:NO, INTERRUPT WAS ERRONEOUS
;s sHANDLE BUSY

;::SET XMTR EVENT FLAG

;2 :;ERROR:ERRONEOUS INTERRUPT FROM XMTR
;xxxx

000002

REGRES
RTI

XMTR ERROR

;::RESTORE RO...RS
;2 :RETURN

#wwxx

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

1412

09:48

PAGE

SEQ 0076

;XMTR ERROR INTERRUPT ROUTINE

1404
1405
14606
1407
1408

1410
1411

20-0CT-78

TRANSMIT MODULE

; DETERMINE AND REPORT THE CAUSE OF THE TRANSMITTER ERROR.
007750
007756
007760

032777
001412

040000

006122

ERRINT: BIT

BEQ
ERROT

;1S ERROR NON EXISTANT LOCATION?

#B14 ,aTSR
ERRA
\N

;ERROR :NON-EXISTANT LOC ERROR IN XMTR

b cd anh

A
Pl ol o o o o o A AN
NN
= = - b i acd i ad b i b
e NN SN
WN=0O Voo~ ~

;xxxx

Nt
N N

—

1424

1425
1426
1427
1428

010000
010004
010012
010014

000167
032777
001412

000402
020000

006066

ERRA:

JMP
BIT
BEQ
ERROT

ERRX

;ERROR:MEM OFL ERROR IN XMTR
;#xxx XMTR ERROR 3 s##xw

010034
010040
010046
010050
010056
010064
010072
010074

000167
032777
001472
017767
042767
022767
001012

000346
010000

006032

006024
177760
000015

007676
007670
007662

ERRB:

JMP

BIT

BEQ
MOV
BIC
CMP
BNE
ERROT

ERRX

;IS ERROR TXM ERROR?

#812,aTSR
ERRC
aTSR,RSPC
#-20,RSPC
#15,RSPC
ERRB1
\N

;SAVE RESPONSE CODES

;REMOVE GARBAGE
;RSP CODES 11801?

JERROR:TXM ERROR. RCVR ACCEPTED A NULL
;xexx

010114
010120
010126
010130

000167
042767
001012

000266
000003

007626

ERRB1:

JMP

BIC

ERRX
#3,RSPC

ERROT

ERRB?

1432

010150
010154
010162
010164

000167
022767
001012

000232
000010

007572

ERRB2:

JMP

(MP

ERRX
#10,RSPC

ERROT

ERRB3

010204
010210

000167

000176

ERRB3:

JMP

ERROT

ERRX
\N

1438

010230
010234
010242
010244

000167
032777
001417

000152
004000

005636

ERRC:

JMP
BIT
BEQ
ERROT

wwwnx

;ERROR:TXM ERROR. WORD OR CRC REJECTED
XMTR

ERROR 6

#xwxx

;ERROR:MISCELLANEOUS TXM ERROR

ERRX

#311,aTSR
ERRD

XMTR ERROR

;RSP B = 10?

;xxxx

1435
1436
1437

wxwwx

JERROR:TXM ERROR. RCVR HAS GONE OFF LINE

;xxxx

1433
1434

XMTR ERROR 4

;DISCARD RSP A'S
;RSB B = 00?
;xxxx

1429
1430
1431

#wnnw

;1S ERROR MEM OFL?

#813,aTSR
ERRB
\N

XMTR ERROR 2

XMTR ERROR 7

mwnxw

JMASTER DOWN?
;ERROR:

MASTER

DOWN'!

;xxxx XMTR ERROR 10 #xwxx

CZPLABO PCL11 EXERCISER V02
12-SEP-78 15:13
PCLEXR.P11
1439
1440
1441
1442
1443
1444

1445

1446
1447

1448

(1)
1)
(1)
1449

1450
1451
1452
)
(1)
(1)

1453
1454
1455
1456

010264
010270
010276
010302
010310
010312
010320
010322
010330
010332

005067

007410
100000
000104
002000

MACY11 30A(1052)

09:48

20-0CT-78

TRANSMIT MODULE
CLR

007406
005570

100000

005556

000020

005550

ERRD:

1%:

MOV
JMP
BIT
BEQ
BIT
BEQ
BIT
BNE
ERROT

PAGE 21-1

SEQ 0077

PCLGO
gg;S.SPCEV

;STOP TRANSMITTER
;SET SPECIAL EVENT FLAG

#810,aTSR

; TIMEOUT ERROR?

ERRE

#815,aT(R

1%
#TXBSY ,aTSR

2%
\N

;IS "R.1.B."" SET?

sNO MUST BE WEIRD ERROR.
;YES, IS TDM BUS BUSY?

;YES, RECEIVER WASN'T THERE
!

;ERROR: ERRONEOUS TIMEOUT IN TRANSMITTER
;xexx

000030
001000

010352
010356
010364
010366

005514

2%:

:
ERRE

JMP

BIT

BEQ
ERROT

ERRX

z&g9.iTSR
RRX

012767
000002

100000

007252

ERRX:

BDINIT

MOV
REGRES
RTI

XMTR

#8315, TXMEV

171

wwnnn

;TXM SILO OVERRUN?

JERROR:SILO OVERRUN ERROR IN XMTR
;xxxx

010406
010414
010422
010426

XMTR ERROR

rxnnx

;CLEAR ALL XMTR HARDWARE

;SET XMTR EVENT FLAG

JRESTORE RO...R5

sRETURN

HCZPLABO PCL11 EXERCISER
PCLEXR.P11

MACY11 30A(1052)

20-0CT-78

TRANSMIT MODULE

12-SEP-78

09:48

PAGE 22

SEQ 0078

;BUSY INTERRUPT ROUT INE

1458
1459
1460

042777
012767

000020
100000

005442
007230

BSYINT: BIC

MOV

BDINIT

REGRES
RTI

000002

#TXBSY,aTSR

;CLEAR TDM BUS BUSY

XMTR

;CLEAR HARDWARE
JRESTORE RO...RS

#3815, TXMEV

JSET TXM EVENT FLAG
;RETURN

;SUCCESSFUL TRANSFER INTERRUPT ROUTINE
042777
005767
001047
032777
001414

000200
007250

005412

SUCINT: BIC

#TXSUC,aTSR

;CLEAR SUC TXF

000040

005376

SUCINY: BIT

#TXSOR,aTSR
SUCINP

;1S SORE SET?
NO CONT INUE

TST
BNE

BEQ
ERROT

TRNKF
SUCIA

;1S SFTWR TRUNCATE FLAG SET?
;YES, GO CHECK SORE

sERROR: MESSAGE TRUNCATED UNEXPECTEDLY
;xxxx XMTR ERROR

010524
010526
010534
010540
010542
010544
010546
010550
010552
010556
010564
010570
010576
010604

1493

000040

007212

012767

010610

000002

010612
010620
010622

032777
001011

020064
00000
000010
100000

005344

BR
BIC
SUCINP: MOV
ASL

000012
007076

SHBRT:

ASL
MOV
ASL
ADD
ADD
ADD
ADC
MOV

BDINIT
REGRES

SHBRT

;DON'T INC SUC CONNS IF ERROR

CURAD ,RO
RO
RO

;PREPARE TO UPDATE STATUS TABLE
;GET TABLE ENTRY FOR CURRENT
:
RECEIVER ADDRESS IN

RO
R5,.RO

b+
:

16(;5§R0)

UPDATE DOUBLE WORD

#815,TXMEV

;SET TRANSMIT EVENT FLAG

#TXSOR,aTSR

RO,RS

#RADBO ,RO

XMTR

005260

SUCIA:

BIT

ERROT

;sCLR SORE

010642
010644
010652

000752
042777
000167

000040
177616

005226

SUCCS:

BR
BIC

"'SUCCESSFUL"" ELEMENT

;CLEART HARDWARE
JRESTORE RO...RS5

gTéggfi,aTSR
U

;1S SORE SET? (SHOULD BE SET)
;ERROR:MSG FAILED TO BE TRUNCATED
;xxxx

1495
1496

ORDER TO UPDATE

sRETURN

RTI

000040

13 wannn

XMTR ERROR

rxunn

SHBRT

sDON'T INC SUC CONNS IF ERROR

SUCINY

sPROCESS SUC TXF AS NORMAL

#TXSOR,aTSR

;CLR SORE

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

TRANSMIT MODULE

1509

010656
010662
010664
010670
010672
010674
010676
010700
010702
010706

005767
001432
016700
006300
006300
010003
006300
060300
062700

062760

007056

007062

020064
000001

000012

000040

005152

1510 010714 005560 000010

1511

010720

1513

010734

1512

1514
_}g}g
15(11;

09:48

PAGE 23

010726

010742
010746

042777

012767

100000

006740

SORINT: TST
BEQ
MOV
ASL
ASL
MOV
ASL
ADD
ADD
ADD

ADC

SORCNT: BIC

MOV

BDINIT

REGRES
RTI

000002

010750

SORIP:

ERROT

RJCTF
SORIP
CURAD RO
RO
RO
RO,R3
RO
R3.RO
#RADBO ,RO

ORDER TO UPDATE

"'SUCCESSFUL'" ELEMENT

lPDATE ENTRY

#TXSOR,aTSR

;sCLR SORE

XMTR

;CLEAR HARDWARE

10(R0)

#815, TXMEV

;SET XMIT EVENT FLAG
JRESTORE RO...RS
sRETURN

;ERROR:ERRONEOUS REJECT BY RECEIVER
;xxxx XMTR ERROR 15 wxnnxn

010770

000167

177724

JMP

1520
1521

1522
1523
}gg‘so

1526
1527
1528
1529
}g%?

;1S SFTWR REJECT FLAG SET?
;IF NOT, SOMETHING'S WRONG
PREPARE TO UPDATE STATUS TABLE
:GET TABLE ENTRY FOR CURRENT
:
RECEIVER ADDRESS IN

#1,12(R0)

fl;

]lg}g

SEQ 0079

;SOF TWARE REJECT INTERRUPT ROUTINE

;238
1500
1501
1502
1503
1504
1505
1506
1507
1508

20-0CT-78

SORCNT

;RETURN

;NOW MASTER INTERRUPT ROUTINE
;SET XSPEC EVENT FLAG (XSPEV)
;AND CLR NOW MST

010774
011002
011010
011016
011022

142777
012767
052777
000002

000004
100000
000100

005110
006676
005060

NMINT:

BICB
MOV
BIS
REGRES
RTI

#NOWMST ,aTMMRH
#3815 ,XSPCEV
#806,aTCR

;CLEAR NOW MASTER
;SET EXTRA-SPECIAL EVENT
JRE=-SET INTERRUPT ENABLE
JRESTORE RO...RS
;RFTURN

PAGE 24

SEQ 0080

; DATA IS STORED IN A BUFFER 'RCBUF''
; FOR LATER CHECKING.

; "RCBUF'‘ BUFFER IS (LEARED BEFORE RECEPTION.

JACTIVE IF RCVEV IS =VE
020000

b e
—

. PROC

005067
004767

006652
000040

012777
012777
012777
052777

022726
176400
020000
000100

012700
012701
005020
005301
003375

022726
000700

&~
oV NO

d
d e

d —d —d
D =D

b b b b O

d =D

011024
011024
011030
011034
011042
011050

B13

RCWD

011024

— e

1564

RECEIVER MODULE

.
09:48

;CONTROL RECEPTION OF DATA.

—

WN
=

—_—

RIZR

1558
1559

20-0CT-78

.SBTTL RECEIVER MODULE

OOOOOOOS

WU'
VS
R AR R RS SRR R R RIS,
NOAw
s WN=OVRONO~Y
VN WN=0O00~N

Vi
vy

—d
b

P S

eI I

e P S

—

CZPLABO PCL11 EXERCISER V02
12-SEP-78 15:13
PCLEXR.P11

MACY11 30A(1052)

000207

RECV:

005056
005046
005032
005024

CLR
JSR
BDINIT
MOV

MOV
MOV
BIS
RETURN

DBF CLR: REGSAV
DBCLP:

RECV

RCVEV
PC,DBFCLR
RCVR

#RCBUF ,aRDBA

#-1400,aRDBC
#RCWD ,aRCR

#806 ,aRCR

MOV
MOV

#RCBUF ,RO
#700,R1
+
(RO)
R1
DBCLP

RTS

CLR
DEC
BGT
REGRES

;**ENTRY POINT*=

;CLR RCVR EVENT FLAG
:CLEAR RCVR DATA BUFFER FIRST
;CLR HARDWARE (REGARDLESS)
;LOAD RCVR BUS ADDRESS

:LOAD BYTE COUNT FOR 600 WORDS

;SET RCV WORD IN RCVR
:SET RCVR INTERRUPT ENABLE

:SAVE RO...RS
:RO POINTS AT BUFFER AREA
:R1 HOLDS BUFFER SIZE
;CLEAR BUFF LOC
;DONE ?
2NO,LOOP

:YES, RESTORE RO...RS
;AND RETURN

MACY11 30A(1052) 20-0CT-78
RECEIVER MODULE

09:48

1568
1569

100000
000400

RCER
RCDOR

=
=

100000
400

}g;}

000040

RCRCM

1570

1574
1575
1576
1577
1578
1579
1580
1581

1582
1583
1584
1585
1§?()>

000200
011124

011130
011136
011140
011144
011152
011154
011160

032777
001402
000167
032777
001402
000167
032777

011170
011174
011202
011204

000167
032777
001402
000167

011166

011210

001402

RCSUC

100000

004762

000100
000400

004746

000472
000200

004732

000536
000040

004716

000776

1589

SEQ 0081

RCVINT: REGSAV

200

BIT
BEQ
JMP
RCVINA: BIT
BEQ
JMP
RCVINB: BIT

#RCER,3RSR
RCVINA
RERINT
#RCDOR ,aRSR
RCVINS
“RDOINT
#RCSUC ,aRSR

JMP
RCVINC: BIT
BEQ
JMP

RSUINT
#RCRCM, aRSR
RCVIND
RRJINT

BEQ

RCVIND: ERROR

RCVINC

1587
1588

PAGE 25

:::RECEIVER INTERRUPT HANDLER.

;SSg?

1573

:::SAVE RO...RS

:::1S THERE A HARDWARE ERROR?
:::NO,CHECK DATA OUTPUT READY
:::HANDLE ERROR INTERRUPT
:::1S DATA OUTPUT READY?
:::NO, CHECK SUC TXF
:::HANDLE DATA OUTPUT RDY INTERRUPT
:::SUCCESSFUL TRANSFER SET?
:::NO, CHECK RECECT COMPLETED

:::HANDLE SUC TXF INTERRUPT
:::REJECT COMPLETED INTERRUPT?
:::NO,ERRONEOUS INTERRUPT
:::HANDLE REJ-COM INTERRUPT

:::ERROR:UNKNOWN RECEIVER INTERRUPT OCCURRED
sxxxx RCVR ERROR 16 ##wxns

011230
011236
011242

012767
000002

100000

006444

MoV
REGRES
RTI

#815,RCVEV

:::SET RCVR EVENT FLAG
:::RESTORE RO...RS
:RETURN

CZPLABO PCL11 EXERCISER V02
FP(LEXR.PH
12-SEP=-78 15:13

CZPLABO PCL11 EXERCISER

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

RECEIVER MODULE

E
09:48

7
PAGE 26

SEQ 0082

;RCVR ERROR INTERRUPT ROUTINE

1591
1592
1593
1594
1595
(1)
(1
(1)

032777
001412

040000

004646

RERINT: BIT
BEQ

ERROR

#814 ,aRSR
RERRA
\N

;1S ERROR NON EXST LOC ERR?

JERROR:NON EXST LOC ERR IN RCVR
;xxxx RCVR ERROR 17 wwwwn

000167
032777
001412

000332
020000

004612

RERRA:

JMP
BIT
BEQ
ERROR

RERRX

#813,3RSR
RERRS
\N

;1S ERROR MEM OFLO?

;ERRCR:MEM OFLO ERROR IN RCVR

sa*xx RCVR ERROR 20 #xwaw
000167
032777
001457
017767
042767
032767
001012

N NN
N

—_——

004550
177760

000003

004556

RERRB:

006402
006374
006366

JMP
BIT
BEQ
MOV
BIC

BIT
BNE
ERROR

RERRX

#812,3RSR

;ANY TRANSMISSION ERRORS?

aRSR,RSP(
#-20,RSPC
#3,RSPC
RERRB1
\N

;GET RESPONSE CODES
;REMOVE GARBAGE
;LOOK AT TXM RSP CODES

RERRC

011410
011414
011422
011430
011432

000167
042767

022767
001012

000216
000003
000010

006332
006324

RERRX

#3,RSPC
#10,RSPC
RERRB?2
\N

RERRB1:

N N

D
D

011452
011456

000167

000154

RERRX

RERRB?:

v
NYNO VNI

- e
D
e

000167
032777
001412

000130
004000

004410

RERRX

#811,3RSR

RERRC:

ERROR

) —

RERRD
\N

;WAS THERE A CRC ERROR?

;ERROR:RCVR CRC ERROR OCCURRED

JERROR:FIRST WORD RECVD NOT VALID

;WAS ERROR A PARITY ERROR?

;ERROR:RCVR DETECTED INVALID PARITY
sxxxx RCVR ERROR 24 wxwxx

;REMOVE TXM RSP CODES NOW

sxxxx RCVR ERROR 23 wawxx

e
—

wwnwx

;xxxx RCVR ERROR 22 #*xw%x

—_

) —d
—

;ERROR:TXM WENT OFF LINE
sexx%x RCVR ERROR 21

AANAAROOOAA~AON
A A~ OO

22288

~N o~

1606

000276
010000

000167
032777
001412

000074
002000

004354

RERRD:

JMP
BIT
BEQ
ERROR

RERRX

#810,aRSR
RERRE
\N

;:DID RCVR TIME OUT?
;ERROR:RCVR TIMEOUT ERROR OCCURRED

;xxxx RCVR ERROR 25 #*xxxx
000167
032777
001414

000040
001000

004320

RERRE
:

JMP
BIT
BEQ

RERRX

#809,aRSR
RERRX

JWAS

IT BYTE COUNT OVERFLOW?

CZPLABO PCL11 EXERCISER V0?2
| PCLEXR.P11
12-SEP-78 15:13
1626
1627
1628
1629
1630
1631
1632
1633
1634

011602
011610
011616
011624
011630
011632
011640
011646

052777

042777

100000
040000
001000

MACY11 30A(1052)

RECEIVER MODULE

004306
004300
004274

BIS
BIC
BIC
RERTRN: REGRES
RTI

000002
012767
000167

20-0CT-78

100000
177752

006034

RERRX:

BDINIT
MOV
JMP

F
09:48

PAGE 26-1

SEQ 0083

#3815 ,aR(R
#814 ,aNCR
#809,aRSR

;s IMMEDIATLY SET REJECT IN RCVR
;CLEAR RCVR NPR BIT
;CLR BYTE COUNT OVERFLOW

RCVR

;RETURN
;CLEAR RECVR
;SET RCV EVENT FLAG

#815,RCVEV

RERTRN

;RESTORE RO...RS

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

1636
1637
1638
1639
1640
1641
1642
1643
1644
1645

1646

1647
1648
1649
1650
1651
1652
1653
1654

1655
1656
1657
1658
1659

1660
1661
1662
1663
1664
1665
1666

1667
1668

1669

(1)
(1)
(1)
1670

1671
1672
1673
1674
1675
1676

12-SEP-78 15:13

MACY11 30A(1052)

RECEIVER MODULE

1679

1680
1681
1682
1683
1684
1685

G
09:48

7
PAGE 27

SEQ 0084

;RCVR DATA OUTPUT RDY INTERRUPT ROUTINE

011652

011660
011666
011674
011676
011704
011710
011716
011720
011726

042777
017767
022767

000100
004236

RDOINT: BIC

170000

004236
006046
006040

052777

100000

004212

052777
000002
052777
000167

000100

004200

BIS
RDORTN: REGRES
BIS

040001
177752

004170

101011

RTI

RDOINC: BIS
JMP

sJRCVR SUC TXF

011732
011740
011742
011750
011754
011760
011762
011766
011772
011776
012000
012004
012010
012014
012016
012020
012022
012024
012026

032777
001403
042777
016701

#806 ,aRCR
aRDDB ,RCSEED

;CLEAR INTR ENAB
;GET FLAG-WORD FOR DATA SEED

RDOINC
#815,aRCR

;IF MORE -VE THAN -70000
SET REJECT IN RCVR
:

#806 ,aR(R

sRE-SET INTR ENAS
;RETURN
sSTART RECEIVER GOING

#170000,RCSEED

004160

RSUINT: BIT

004150

BIC
: MOV
RSUCNT
BIC

BEQ

BNE

RSNTO:

RSFLSZ:

103456

MOV
SuB

cMP
BLE
MOV

MOV
ADD
BEQ
ASR
CMP
BEQ
BLO

ERROR

#814+800,aRCR
RDORTN

;LOOK AT DATA SEED

JRESTORE RO...R5

INTERRUPT ROUTINE
#RCRCM,aRSR
RSUCNT
#RCRCM,aRSR
RCSEED ,R1
#177000,R1

;WAS RECOM SET?
;NO, CONTINUE
JYES, CLR IT AND CONTINUE
;GET DATA SEED
;MASK MSG LENGTH

#1,R1

sACCOUNT FOR FLAG WORD

RSNTO
#1.R1

R1,#600
RSFLSZ

#600,R1

#1400,R0

aRDBC(,RO
RSULV
RO
RO.R1

RSUTST

ERNE
\N

;IF NOT O, OKAY
;IF 0, MAKE IT 1

;1S 1T GREATER THAN 600?
sNO, LEAVE IT ALONE

;YES, SET IT TO LIMIT (600)

;DETERMINE # OF BYTES RECEIVED
sNOTHING TO CHECK, EXIT
;RO = NO. OF WORDS RECEIVED
;DID WE RECV ALL THE WORDS?
:YES, CARRY ON

sNOT ENOUGH !

JERROR:RCVR GOT TOO MANY WORDS!:!

sexsex RCVR ERROR 26 wxwxx
0004 34
012705
066767
026725
001411

022726
005646
005624

005630

RSUTST:
RSUGEN:

(1)
(1)
1677
1678

20-0CT-78

BR
MOV
MULP
ADD
CMP
8EQ
ERROR

RSULV
#RCBUF ,R5

SEXIT IF ERROR
;RS POINTS AT RECVD DATA

RANK ,RCSEED

;GENERATE CHECK WORD

RANM,RCSEED

RCSEED, (R5) +

RSUCHK

;COMPARE IT WITH RECV'D WORD
;ERROR:DATA WORD RECV'D WAS BAD
;xxxx RCVR ERROR 27 xxxxx

000402

005300
001346

012767
000002

100000

:
RSUCHK

DEC

RSULV:

BDINIT

005522

REGRES

RTI
:
ERNE

ERROR

RSULV
RO

JEXIT IF ERROR
;CHECKED ALL WORDS?

#B15 ,RCVEV

JRESTORE RO...RS
;SET RCVR EVENT FLAG

RSUGEN
RCVR

2NO, CONT INUE
;CLR HARDWARE

;RETURN

JERROR: RCVR GOT TOO FEW WORDS !!

PLABO PCL11 EXERCISER V02

P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0(CT-78

RECE IVER MODULE

09:48

PAGE 27-1

SEQ 0085
;exxx RCVR ERROR 30 wwwww

012202

000167

177732

JMP
JRCVR REJECT

012206

012214

012222
012226

012767

100000

005460

RSULV
INTERRUPT ROUTINE

RRJINT: BDINIT

MOV

REGRES
RTI

000002
;KW11

CLOCK

JEXIT IF ERROR

RCVR

#3815 ,RCVEV

;CLEAR HARDWARE

;SET RCVR EVENT FLAG
sRESTORE RO...R5
JRETURN

INTERRUPT ROUTINE

JUPDATE TICKS. IF = 60. UPDATE SECONDS.
;IF SECS = 60, UPDATE MINUTS. IF MINUTS = 60
;UPDATE HOURS.

012230

042777

000200

003712

012242

126727

005374

000074

012236

012250
012252
012256

012262

105267

103424
105067
105267

126727

012270

103414

012310

103404

012272
012276
012302
012312
012316
012322

005400

005364
005361

005355

105067
105267
126727

005345
005342
005336

105067
005267
000002

005326
005324

CLKINT: BIC

INCB

CMPB

000074

;JUST IN CASE IT MATTERS.

TICKS ,#60.

;GET TO 60 YET?

TICKS

BLO
CLRB
INCB

CLKEXT
TICKS
SECNDS

BLO

CLKEXT

CMPB

#807,aLCS

CLRB
INCB
(MPB

BLO

(LRB
INC
CLKEXT: RTI

SECNDS ,#60.

SECNDS
MINUTS
MINUTS ,#60.
CLKEXT

MINUTS
HOURS

;UPDATE TICKS

sNO
sYES, CLR TICKS
;& UPDATE SECONDS

;GET 60 SECS?
:NO

;YES, CLR SECNDS
;& UPDATE MINUTES
;GET 60 MINUTES?
:NO

;YES, CLEAR MINUTS
;& UPDATE HOURS
;RETURN

CZPLABO PCL11 EXERCISER V02

12-SEP-78 15:13

000476
005304

1739
1740
1741
1742

012366
012372
012376
012404

000167
012700
062767
017701

000452
032054
000002
005260

000167
005777

1762

1763

1764
1765

1767
1768
1769

;

REPRESENTED AS "'saxsxwwwna’’ RECEIVER ADDRESS

655,359,999. ANY QUANTITY HIGHER THAN THAT AMOUNT WILL BE
PRINTED IN OCTAL

012324

012354
012360

1760
1761

QUANTITIES ARE IN DECIMAL AND ARE CAPABLE OF EXPANDING TO

1736
1737

1755
1756
1757
1758
1759

SEQ 0086

;

1731
1732
1733
1734

1751
1752
1753
1754

7
PAGE 28

; DUMP STATUS TABLE INDICATING ACTIVATED RECEIVERS
; SHOW NO. OF ATTEMPTED CONNECTIONS TO EACH ACTIVE RECEIVER
; AND NO. OF SUCCESSFUL CONNECTIONS TO EACH ACTIVE RECEIVER.

012324
012324
012330
012332
012336
012342
012344

1743
1744
1745
1746
1747
1748
1749
1750

1
09:48

.SBTTL STATUS MODULE

N = =

o
PN
NINIMNIRY — = o
SOVVO\JO\I‘J\\NN—‘()OW\J

(e
e

NAANNNNNNNNNNNN N

PCLEXR.P11

20-0CT-78
MACY11 30A(1052)
STATUS MODULE

012410
012414
012420
012426
012432
012436
012442
012446

012452
012454
012460
012462

012470
012474
012500
012504
012510
012514
012516

000540
005326

026727

005320

001504

012702
004767
062767
012700
016701
012702
004767
020027

103003
112720
000772
062767

012700
016701
012702
004767
020027

103003
112720

STATUS:

004274

005767
001402
000167
005767

177777
020262
000002
032076
005232
177777
020434
032123

60%:
020664

STCHK:

59%:

005264

58¢%:

005242

STYHR:

005200

TST

T0Q

STYON:

JMP
TST
BEQ
CMP
BLT
JMP
TST
BNE
JMP
MOV
ADD
MOV
MOV
JSR

ADD
MOV
MOV
MOV
JSR
CMP

BHIS
MOvB
BR

ADD
MOV
MOV
MOV
JSR
STYTHR: CMP

BHIS

000040

MovB

012522

000772

012542
012550

062767
000167

000004
000322

005120

012554
012562
012564

132777
001407

000001

003330

012524

STATUS

BEQ

000040
000004
032124
005170
177777
020372
032140

PROC

BR
STYONT: CALL
ADD

JMP

STHDR:

BITB
BEQ
CALL

60%

STRTN
SiPNTR
STHDR
STPNTR ,#RADEND
59%
STARXT
aSTPNTR
58%
STBADV
#STLIN1,RO
#2,STPNTR

R
@STPNTR

#-1,R2
PC,OCTJSP
#2,STPNTR
#STLINZ
RO

NUMBERS ARE

s**ENTRY POINT=#

;IS TTY OUT QUEUE EMPTY?
:NO, RETURN TO WHEREVER
:1S OUTPUT POINTER AT TABLE?
:NO, GO PRINT HEADER
;IS POINTER AT END OF TABLE?
;YES, DONE; EXIT
;CHECK RCV ADDR ACTIVE FLAG

;ADVANCE TABLE IF FLAG CLR
;OUTPUT POINTER FOR OCTJSP
;OCTJSP DUMPS DATA IN STPNTR
;DON'T COMPRESS BLANKS

‘-19R2

;OUTPUT POINTER FOR CDDMG
;OUTPUT WORD FOR CDDMG
;DON'T COMPRESS BLANKS

RO,#STLIN2+25

;BLANK REST OF FIELD OUT

STPNTR,R1

PC.,CDDMG

;BY INSERTING SPACES

STYHR

#4 ,STPNTR

#STLIN3,RO
STPNTR ,R1
‘-15R2

;OUTPUT POINTER FOR CDDMG
;OUTPUT WORD FOR CDDMG
;DON'T COMPRESS BLANKS

RO,ASTLIN3+14
STYONT

;BLANK REST OF FIELD OUuT
;BY INSERTING SPACES

#4 ,STPNTR

JUPDATE POINTER FOR NEXT LINE

:I,STMHRH

;1S MASTER SET HERE?

PNTLIN,<THUMST>

:YES, TELL OPERATOR

PC.CDDMG

#' ,(RO)+
STYTHR
PNTLIN,<STLIN>
STRTN

;ENQUEUE STATUS LINE FOR OUTPUT
sRETURN

PCl

CZPLABO PCL11 EXERCISER V02

fiPCLEXR.P11

1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781

1782
1783
1784
1785
1786
1787

—

) ed

R
PR RS RE

1789
1790

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

STATUS MODULE

09:48

7
PAGE 28-1

SEQ 0087

012602
012610
012612
012630
012636
012640
012656
012660
012676
012702
012704
012706
012712
012716
012722
012724
012730
012734
012740
012742
012746
012752
012756
012760
012764
012770
012774
012776
013014
013032
013040

132777
001407

000002

003302

1%:

BITB
BEQ

#2 ,aTMMRH

::SLL. IS SECONDARY SET?

032767
001410

174542

28%:

BIT
BEQ

CALL

PNTLIN, <THUSCN>

#B15,TXMST

JYES,

100000

CALL
BR
CALL
TST
BEQ

PNTLIN,<RBSTMG>
3
PNTLIN,<RBCLMG>

;NO, TELL OPERATOR

KWFLG

MOV
MOV
JSR

#TMLIN1
RO
HOURS ,R1
PC,DECPNT
R2
#':,(RO)+
MINUTS ,R1
PC,DECPNT
R2
#':,(RO)+

;GOT A CLOCK?
sNO, FORGET ABOUT TIME.
;SUPPRESS LEADING ZEROS
;OUTPUT POINTER FOR DECPNT
;OUTPUT DATA FOR DECPNT
;ENQUEUE 'HOURS''
;SUPPRESS LEADING ZEROS
s INSERT COLON

012767
000167

020100
000032

004630

013044
013052

062767
000167

000014
000020

004616

013056
013062
013076

005067

004604

000407
005767

3%:

4%:

004746

CLR

031741
004730
020002
112720
116701

004767
005002
112720
116701

004767
005002

112720
116701
004767
105010

CLR
MOvVB
mMovB
JSR
CLR
MOVB
MOvB
JSR
CLR
MOvVB
MOVB
JSR

000072
004710
017764
000072
004671
017746

000072
004652
017730
5%:

CLRB
CALL
CALL
MOV
JMP

5%
R2

SECNDS ,R1

PC,DECPNT

R2
#':,(RO)+
S
. R1
TICK
PC,DECPNT

(RO)

PNTLIN,<ELPSTM>
PNTLIN,<STITLE>
#RADB,STPNTR
STRTN

TELL OPERATOR

;1S "RIB'" SET?
;YES,

TELL OPERATOR

;GET 'MINUTES'® FOR DECPNT
;ENQUEUE "MINUTES"'
;SUPPRESS LEADING ZEROS
s INSERT ANOTHER COLON

;GET ''SECONDS’' FOR DECPNT
sENQUEUE ‘‘SECONDS''
;SUPPRESS LEADING ZEROS
s INSERT ANOTHER COLON
sGET "‘TICKS'® FOR DECPNT
;ENQUEUE ''TICKS''
JENQUEUE ‘0°' PRINT TERMINATOR.
;PRINT "ELAPSED TIME''

;ENQUEUE STATUS HEADER
;SET POINTER TO TOP OF STAT LIST
;RETURN

STBADV: ADD

#14 ,STPNTR

JMP

STRTN

;SET POINTER TO NEXT ACTIVE FLAG

STARXT:

CLR
CALL
RETURN

STSEV
PRESC

;FAKE CNTRL=-C KEY

STRTN:

;CLR STATUS EVENT FLAG

;RETURN

CZPLABO PCL11 EXERCISER V02

12-SEP-78 15:13

PCLEXR.P11

MACY11 30A(1052)

TRANSMITTER ERRORS MODULE

005067

004572

—t

—

013120

8
v

1825

000324
004600

000167
005767

013106
013112

SEQ 0088

; ARE PRINTED, SIMPLY PRINT (NONE).

o
i

D
i
i

s
ash

sl
i

i e

i
b

i
o

ovv VRONOWNSWN=O

~ ~ 00 0o 00 0o Co 0O 0o 0o 00 0O

PAGE 29

;DUMP A TABLE OF TRANSMITTER ERRORS INCLUDING:
; ERROR NO., CONCT'D RCVR, AND ERROR COUNT FOR
; EACH OF THE TRANSMITTER ERRORS.
;1F THE ERROR COUNT FOR ANY ENTRY IS O, THAT ERROR NO. IS NOT REPERTED
;IF, AFTER CHECKING THE ENTIRE XMTR ERROR TABLE, NO ERRORS

1822
1823

09:48

.SBTTL TRANSMITTER ERRORS MODULE

003520

TEROS:

- 60%:

000016

1%:

004446
004502
004550
004544

3%:

1848
1849
1850
1851
1852

013326
013332
013336
013342
013346

016701
004767
012700
017701
004767

004440
017344
032416
004426
017344

1854

013370

052767

1856

013404

026727

100000
000002
004362

1858
1859

013414
013420

005267
000167

004352
000012

013424
013432

012767
005267

000001
004332

PROC

TEROS

TST

T0Q

BEQ

60%

TST
BEQ
CLR

HDRFLG
1%
HDRFLG

CMP

ERRO, #16

JMP

CALL
CALL
JMP

TERTN

PNTLIN,<TERHDR>
PNTLIN,<TRHLIN>
TERTN

BNE
CLR
BIS
BIS
MOV
MOV

3%
TEREV
#815 ,REREV
#815,HDRFLG
#1,ERR1
#RERTBL ,ERR2

BNE

TST

2%:

1860
1861

20-0CT-78

CALL

PRINTD

PNTLIN, <NONMG>

;**ENTRY POINT*«
;IS THE TTY OUTPUT QUEUE EMPTY?
JYES, CONTINUE
JNO, EXIT
JHEADER PRINTED YET?
JYES, SKIP IT
;NO, PRINT IT NOW.
;AND RETURN

;IS THIS ERROR # 16?

;NOT YET.
:YES, CLEAR XMTR ERKOR EVENT
;SET RCVR ERROR EVENT
;SET HEADER FLAG
;LOAD INITIAL XMTR #
;POINT RCVR ERR EVENT AT ITS TABLE
:DID WE PRINT ANYTHING?

; VeSS, O.K,

:NO, PRINT '‘(NONE)"’

CALL
CLR
JMP
TST
BEQ
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
JSR
CALL

PNCRLF
PRINTD
TERTN
@ERR2
4%
#TRRNO,RO
ERRO,R1
PC,OCTJSP
#TRRCN,RO
ERR1,R1
PC,OCTJSP
#TRERC ,RO
@ERR2.R1
PC,DECJSP
PNTLIN,<TRELIN>

JNEW LINE

ADD

#2 .ERR2

;UPDATE TABLE POINTER

BIS

004316
004370
000037

4%:

004340

5%:

MOV

TERTN:

RETURN

CMP

BEQ
INC

JMP

INC

#815,PRINTD

ERR1,4#37
5%
ERR1

TERTN

#1 ,ERR1

ERRO

JRETURN

;ANY ERRORS?

;NO.
;READY TO PRINT ERROR NO.

JERROR NO. IS IN OCTAL
;READY TO PRINT RCVR NO.
JRCVR NO. IS ALSO IN OCTAL
JNOW PRINT ERROR COUNT

;ERROR COUNT IS IN DECIMAL
;ENQUEUE TABLE OUTPUT LINE

:SET "PRINTED FLAG''

;ALL RCVR'S DONE?
IVES,
JNO, DO NEXT

;NEXT ERROR NO.

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

09:48

RECEIVER ERRORS MODULE

f:gg‘so

PAGE 30

SEQ 0089

.SBTTL RECEIVER ERRORS MODULE

1866
1867

. DUMP A TABLE OF RECEIVER ERRORS, INCLUDING:
ERROR NO., CONCT'D XMTR, AND ERROR COUNT

1869
1870

; IF THE ERROR COUNT FOR ANY ENTRY IS O, THAT ERROR NO. IS NOT
JREPORTED. IF, AFTER CHECKING THE ENTIRE RCVR ERROR TABLE, NO

1868

*FOR EACH OF THE RECEIVER ERRORS.

*ERRORS ARE PRINTED, SIMPLY PRINT "“(NONE)'.

}g;}

1 ?z;

013440

(1)
1874
1875
1876
1877
1878

013440
013440
013444
013446
013452
013456

1880

013464

1879
1881

013460
013502

1882
1883
1884
1885
1886
1887

013520
013524
013532
013534
013540
013544

1889
1890

013564
013600

1888

1891
1892
1893
1894

1895

1896
1897

1898

013546
013604
013620
013624

013630

013632

013636
013642

013646

1899
1900

013652
013656

1902
1903

013666
013672

1901

1904
1905

1906
1907

1908
1909
1910
1911
1912
1913

013662

013676
013714

013722
013730

013736
013740
013744
013750
013756
013762

005767
001402
000167
005767
001422
005067

000167
026727
001034
005067
005767
001007

000310
004240

000236
004240

000167

000136

REROS

TST
BEQ
JMP
TST
BEQ

T0Q
60%
RERTN
HDRFLG
1%

s**ENTRY POINT
=«
;IS TTY OUTPUT QUEUE EMPTY?
;YES, CONTINUE
;NO, RETURN
;1S HEADER PRINTED YET?
;YES, SKIP IT

CALL

PNTLIN,<RERHDR>

;AND PRINT HEADER

JMP
CMP
BNE
CLR
TST
BNE

RERTN
ERRO,#31
33
REREV
PRINTD
2%

CLR

CALL

000031

18:

004114
004150

004110

001434

60$:

004232

005067

005777

REROS :

003160

PROC

2%:

004144

3%:

HDRFLG

IN>
PNTLIN,<RRHL

PNTL IN, <NONMG>

CALL
JMP

JWRAP IT UP!

TST

PRESC
RERTN
aERR?2

MOV

#RCRNO, RO

READY TO PRINT ERROR NO.

CALL
CLR

BEQ

PNCRLF
PRINTD

032517

012700

032534

MOV

032553

MOV

#RCERC RO

100000

CALL
BIS

PNTLIN,<RCELIN>
#815,PRINTD

004126
017034

016701
004767

004114
017020

017701
004767

004102
017020

012700

052767

062767
026727
001404
005267
000167
012767
005267

000002
004036
004026
000072
000001
004006

MOV
JSR

003772

004044
000037

004014

4%:

ADD
CMP

BEQ

5%:
RERTN:

;AND RETURN
;DONE LAST ERROR?
sNOT YET
;YES, CLEAR RCVR ERROR EVENT
;DID WE PRINT ANYTHING?
:YES, 0.K.

CALL

012700

016701
004767

:NO, CLEAR FLAG

INC
JMP
MOV
INC

RETURN

ERRO,R1
PC,OCTJSP

#RCTRN,RO

ERR1,R1
PC,OCTJSP

@?ERR2 ,R1
PC,DECJSP
#2 ,ERR2
ERR1 437
5%
ERR?
RERTN
#1,ERR1
ERRO

;NO, PRINT “'(NONE)"’

ANY ERRORS?

;ERROR NO.S ARE IN OCTAL

JREADY TO PRINT XMTR NO.
;XMTR NO.S ARE IN OCTAL

;NOW PRINT ERROR COUNT

;ERROR COUNTS ARE IN DECIMAL

;ENQUEUE TABLE OUTPUT LINE
;SET "PRINTED'' FLAG
:UPDATE TABLE POINTER
:ALL XMTRS DONE?
:NO, DO NEXT

;YES, NEXT ERROR

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

SUMMARY MODULE

1916

1917

1918
1919
1920
1921
1922
1923
1924
1925
1926
M
(1)
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944

1945
1946

1947

09:48

PAGE 31

SEQ 0090

.SBTTL SUMMARY MODULE

1915

20-0CT-78

DUMP SUMMARY TABLE INDICATING ERROR NUMBERS AND THE LOCATIONS
OF THE ERRORS AS WELL AS THE NUMBER OF OCCURRENCES OF EACH OF
THE ERRORS. ERRORS WITH O OCCURRENCES WILL NOT BE LISTED. THE
ENTRY UNDER ‘NO. OF OCCURRENCES'' IS IN DECIMAL AND IS CAPABLE
OF EXPANDING TO 65,528. QUANTITIES OF ERRORS IN EXCESS OF
THIS WILL BE LISTED AS "MXCNT''.

013764
013764
013764
013770
013772
013776
014000
014006
014010
014014

014020
014022
014026
014030
014034
014040
014044
014050
014054
014060
014064
014070
014074
014076
014102
014106
0146112
014116
014122
014124
014130
014134
014152
014160

005767
001126
005767
001472
027727
001507
016704
005764
001475
012700
011401
012702

004767

012700
016401
012702
004767
012700
016401
020127
101415

:
SUMRY

002634

003674
003666

177777

:
SMCHK

003656
000004

032574
177777

016642
032616
000002
177777
016622

PROC

SUMRY

TST
BNE
TST
BEQ
cMP
BEQ
MOV
TST
BEQ
MOV
MOV
MOV
JSR

T0Q

MOV
MOV
MOV
JSR
MOV
MOV

032642
000004

177770

CMP

BLOS

112720
112720
112720
112720
112720
000404
012702

000115
000130
000103
000116
000124

004767

016562

062767
000167

000006
000062

003512

014164
014202
014210

012767
000167

024726
000032

003462

014214
014222

062767
000167

000006
177552

003450

014226
014232

005067

003430

MOvB
MOVB
MOvB
MOvVB
MOvB
BR

177777

SMPN:
SMSPN:

MOV
JSR
CALL
ADD

JMP

SUMHDR:

:
SMADV

SMRTN
SUMPNT
SUMHDR

@SUMPNT ,#-1
SMARXT

SUMPNT R4

4(R4)
SMADV
#SMLIN1,RO
(R4) ,R1
#-1,R2
PC,OCTJSP

#SML IN2 ,RO
2(R4) ,R1
#-1,R2
PC,OCTJSP

#SML IN3,RO
4(R4) ,R1
R1,#177770
SMPN
#'M,(RO)+

#'X,(RO)+
#'C,(RO)+
#'N,(RO)+

#'T,(RO)+
SMSPN
#-1,R2
PC.,DECJSP
IN>
PNTLIN,<SML
#6,SUMPNT
SMRTN

s**ENTRY POINT**

;1S OUTPUT QUEUE EMPTY?
sNO, RETURN

;1S OUTPUT POINTER AT TABLE?
:NO, GO PRINT HEADER
;1S ERROR # = =1 ?
;YES,DONE; EXIT
;CHECK TOTAL COUNT OF THIS ERR
;IF 0, TRY NEXT ERROR
;RO IS OUTPUT POINTER FOR OCTJSP
:R1 1S DATA BUFF FOR OCTJSP
;DON'T COMPRESS BLANKS

;DON'T COMPRESS BLANKS

sREACHED MAX COUNT?
2NO, 0K

;YES, PRINT "MXCNT'' IN

;
;

NOTE THAT 'MXCNT''

ALSO HAS ONLY 5
ASCII CHARACTERS.

;DON'T COMPRESS BLANKS
;ENQUEUE SUM LINE FOR OUTPUT
sUPDATE POINTER FOR NEXT LINE
sRETURN

;ENQUEUE SUMMARY HEADER
;SET POINTER TO TOP OF SUM LIST
sRETURN

CALL
MOV
JMP

PNTLIN,<SMTTLE>

ADD
JMP

#6,SUMPNT
SMCHK

;SET POINTER TO NEXT ENTRY

SUMEV

;CLEAR SUMMARY EVENT FLAG

: CLR
SMARXT
CALL

#ERTBL
, SUMPNT

SMRTN

PRESC

sFAKE

CNTRL=-C KEY

T T

;RETURN

RETURN

SMRTN:

SEQ 0091 |

20-0CT-78

SUMMARY MODULE

014246

MACY11 30A(1052)

1969

12-SEP-78 15:13

PAGE 31-1

T
T

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

09:48

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

8
PAGE 32

SEQ 0092

.SBTTL ERROR UPDATE ROUTINES
TRANSMITTER ERRORS
.SBTTL

;CALLED BY THE MACRO ‘CALL ERRMOD,<P,ERADR>'
014250

014250

014252
014254
014256

14260
014266

014274

014300
014304

014310
014312
014314
014316
014320
014324
014332
014340
014342
014344
014350
014354
014420
014424
014430
014434
014442
014450
014454
014456
014460
014462
014464

ERRNUM
ERRADR

000002
000004
010046
010146
010246
010346

017767
042767
000367
016500
010067
006300

=
=

:
ERRMOD

001612
160377
003464
000002
003456

024720
000004
000004

005367

000004
003412

005367

003334

066767
062767
005277

003326
025150
003310

103401
000444
005260

012603
012602
012601
012600

RO,=(SP)
R1,=(SP)
R2.=(SP)

R3,=(SP)

aTCR, TEMP

003476
003470

#160377
., TEMP

37,.TEMP1,R3

2.TEMP1 ,R3
TEMP

2.TEMP ,R3

003322
003314
MOV

RETURN

;FIND TABLE ENTRY

IN ORDER TO UPDATE
ADDRESS FIELD

:ENTER ERROR ADDRESS
;AT MAX COUNT YET?

:NO, INCREMENT COUNT
;YES SKIP UPDATE.
;UPDATE OCCURRENCES
(ERR # - 1)
(E=-1)X37
C(E=-1)X37Ix2

RCVR ADDR - 1
(R=1)X2

TEMP1,TEMP

: CCE=1)X37Ix2 + (R=1)X2

aTEMP

:UPDATE TABLE ENTRY FOR THIS ERROR
:RESTORE R3
:RESTORE RZ2
:RESTORE R1
:RESTORE RO
;RETURN

#TERTBL
, TEMP

ERMIS:

;SAVE ADDRESS OF CONNECTED RCVR

:
:

4 (RO)
TEMP

ERMIN:

;AND R3

RO.R1
RO

ERRADR(RS) ,2(R0O)
4&(RO) 177771
ERMIN
ERMIS

177771

;SAVE RO ON STACK
; AND R1
; AND R2

:g.rsm1

#ERTBLO,RO

000002

s**«ENTRY POINT==

;GET IT IN THE RIGHT BYTE
;GET ERROR NUMBER
;SAVE ERROR NUMBER

TEMP

ERRNUM(RS) ,RO

010001
006300

060100
062700
016560
026027

SRWDKERRMH.ERRADR)

LR
I

1971
1972
1973
1974
1975
1976
(3)
(3)
(1)

12-SEP-78 15:13

20-0CT-78 09:48
MACYTT 30A(1052)
ERROR UPDATE ROUTINES

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

(SP)+,R1
(SP)+,R0O

:TEMP = #TERTBL + <[(E=1)X37Ix2 + (R=1)X2>

——

RECEIVER ERRORS

.SBTTL

8
PAGE 33

RECEIVER ERRORS

;CALLED BY THE MACRO 'CALL

001414
160377
003246

003260
003252

000004
000015
003166

014710

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1.=(SP)
R2.=(SP)
R3,=(SP)
aRCR, TEMP

MOV
MOV

ERRNUM(RS) ,RO
RO, TEMP1

MOV

RO.R1

MOV
CMP

ERRADR (RS) , 2 (R0)
4(RO) ,#177771

;AT MAX COUNT YET?

ERMISR

;YES,

ASL

ASL
ADD
ADD

000002
177771

003172

003110
003102
026616
003064

ERRMOR , <ERRNUM, ERRADR>
2
4

BIC

003240

024720
000004
000004

PROC
=
=

BLO

ERMINR:

INC

TEMP

RO
R1,RO
#ERTBLO,RO
ERMINR

4(RO)

SuB
DEC
MULT
MULT

#15,TEMP1
TEMP1
37 ,TEMP1 ,R3
2,TEMP1 ,R3

MULT
ADD

2,TEMP,R3
TEMP1, TEMP

DEC

003076
003070

2160377, TEMP

ADD
INC

ERMISR: MOV
MOV
MOV
MOV

TEMP

#RERTBL
, TEMP
aTEMP

(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+,RO

s**ENTRY POINT**
;SAVE RO ON THE STACK
;AND R1
JAND R2
;AND R3
;GET ADDR OF CONNECTED XMTR
; INTO RIGHT BYTE
;GET ERROR NUMBER
;AND SAVE IT

FIND ‘'SUM'‘ TABLE ENTRY
IN ORDER TO UPDATE

ADDRESS FIELD
AND # OF OCCURRENCES

;ENTER ERROR ADDRESS
sNO, UPDATE ERROR COUNT
SKIP UPDATES

;UPDATE OC""JRRENCES

;ALIGN ERRORS TABLE FOR RCVR
; ERR # = 1 (E-1)
(E-1)X37
C(E-1)X37Ix2
(T=1)
XMTR ADDR = 1
(T=1)x2
C(E-1)X37Ix2 + (T=1)X2
TEMP = HRERTBL+[(E-1)X371x2 + (T=1)X2
)

ERRMOR :

R,
<P ,ERADR>"
ERRMO

ERRNUM
ERRADR

SEQ 0093

2010

C
09:48

12-SEP-78 15:13

20-0CT-78

iPCLEXR.PH

MACY11 30A(1052)

CZPLABO PCL11 EXERCISER V02

sUPDATE RCVR ERROR COUNT
JRESTORE R3
;RESTORE R2
JRESTORE R1

sRESTORE RO

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13
2049
2050
2051

20-0CT-78
MACY11 30A(10%2)
UTILITY ROUTINES

D
09:48

8
PAGE 34

SEQ 0094

.SBTTL UTILITY ROUTINES
.SBTTL PROCESS AN INPUT CHARACTER FROM THE TTY
PROC

014712
014712
014712

014732

014740
014744
014750
014752
014756
014760
014764
014770
014774
015000
015002
015016

015020
015036

TTINP

=+
;**ENTRY POINT

TTINP:

142767
116700
120027

002405
120027

000200
013320

DEQ,<FRELEM,TIQ>

013324

#200,FRELEM
FRELEM,RO
RO, #1641
TTINH
RO, #172
TTINH

000141

000172
000040
013274
016034
015654

TTINH:

MOV

TTRET:

CALL

;CONVERT LOWER CASE INPUT
TO REGULAR (UPPER CASE)
;
; LETTERS INSTEAD.

RO,FRELEM
#CMCHTB,R1

;CONVERT CHARACTER
; IN "FRELEM '’
;. TO ITS PROCESSING

CMMISC
aR1,<FRELEM>

;IF MISC CHAR, CALL MISC PROC.
;CALL PROCESSING ROUTINE.

#3805 ,R0

PC ,PROCHR

CMMISC:

JGET TTY INPUT CHARACTER.
;CLEAR OFF PARITY BIT.

;

ROUTINE.

TTRET

JRETURN.

PRMISC ,<FRELEM>

;PROCESS MISCELLANEOUS CHARACTER
;RETURN.

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

LSBTTL
:

2074

:
:

2075
58;9

PROC

015040
015040
015044
015046

105767
002015
112777

002574

2083
2084

015060
015064

105067

002554

2082 015054

2086
2087

000015

105367 002561

PRCR:
001326

015100

5838
015102

(1)

015102

2092
2093
2094
2095

2096
2097
2098

015102
015106
015114
015132

005067
016767

001516
001524

PAGE 35

TTY INPUT CHARACTER PROCESSING ROUTINES

PRCR

TSTB
BGE
MOVB

REQINP
CRRET
#CR. ,aCBUFPT

:#*ENTRY POINT##
:1F INPUT NOT BEING TYPED,
: IGNORE CHARACTER.
:PUT CR IN BUFFER.

CLRB
CALL

REQINP
PNCRLF

:CLEAR INPUT REQUESTED FLAG.
:ECHO CR & LF.

DECB

CRRET:

2088
2??}

PROCESSOR FOR CARRIAGE RETURN
THIS CHARACTER SIGNIFIES THE END OF A COMMAND LINE.

2(()%!)! 015040
(1)
2079
2080
2081

09:48

TTY INPUT CHARACTER PROCESSING ROUTINES

gggg

2085

20-0CT-78

RETURN

CMDENT

:SET COMMAND ENTERED FLAG.
:RETURN.

PROCESSOR FOR CONTROL-0 CHARACTER.

ALL CHARACTERS PRESENTLY IN THE TTY OUTPUT QUEUE ARE THROWN AWAY.

PRCTLO:

901520

PROC

PRCTLO

CLR
MOV
CALL
RETURN

TOQ
TOQ+QBACK , TOQ+QF RONT
PNTLIN,<CTLOME>

:#*ENTRY POINT#»

:THROW AWAY ALL CHARACTERS
: IN TTY OUTPUT QUEUE.
:ECHO '*0'".
:RETURN.

2099

5}8}

: TEMPORARILY SUSPEND

2103

: PRINTOUT WILL BE RESUMED UPON RECEIPT OF A CNTRL-Q

2100

: PROCESSOR FOR CONTROL S.

g}gg

: OR ANY OTHER KEYBOARD INTERRUPT.

2}??

015134

(1)

015134

2108
2109
2110
2111

015142

2107

015134

052767

100000

002560

PRCTLS:

PROC

PRCTLS

BIS

#815,THLTFL

RETURN

**ENTRY POINT**

SSET TTY HALT FLAG

2112

: PROCESSOR FOR CONTROL Q.

2113
5}}?

: RESUME PRINTOUT ON CONSOLE IF TTOUT QUEUE HAS NOT BEEN
: CLEARED BY SOME OTHER MEANS.

2}}?

015144

(1)
2117

015144
015144

5{}3

PRINTOUT ON CONSOLE DEVICE

015152

042767

100000

002550

PRCTLQ:

PROC

PRCTLQ

BIC

#815, THLTFL

RE TURN

:x*ENTRY POINT*#
:CLEAR TTY HALT FLAG

SEQ 0095

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

09:48

PAGE 35-1

SEQ 0096

TTY INPUT CHARACTER PROCESSING ROUTINES

*PROCESSOR FOR CONTROL~C.

JECHO "*“C'" AND GO TO PRESC ROUTINE.
015154
PRCTLC:

000167

000016

PRCTLC

CALL
JMP

PNTLIN,<CTLCMG>
PRESC

s**ENTRY POINT =«

;ECHO "TMC"’
;GO TO PRESC ROUTINE.

015176
015176

INPUT COMMAND BEING TYPED IS DISCARDED.

PRCTLU:

PROC

PRCTLU

CALL

PNTLIN,<CTLUMG>

s **ENTRY POINT#*

;ECHO ""TMU'".
;DROP INTO PRESC

PROCESSOR FOR CNTRL-C KEY.

ALL OTHER EVENTS WILL CEASE
THIS KEY IS USED TO REQUEST INPUT.
AFTER THE CURRENT LINE.
A 'PCL>'" WILL BE ECHOED ON THE TTY.
THE

OPERATOR IS NOW FREE TO TYPE IN A COMMAND.

015214

015226
015232
015236
015242
015246
015252
015258
015276
015316
015336
015370

005767
001402
005077
105367
005067
005067
005067
005067
005067

2767
5067

PRESC:

002430

14%:

002422

016176
002251

001016

NN,

015214
015214
015220
015222

2135

PROCESSOR FOR CONTROL-U.

015176

O
o—l

N
N

- nd
—_—

—

)

oo~

RPN
NN

2126

015154
015154
015172

PROC

PRESC

TST

KWFLG
14%
aLCS
REQINP

BEQ
CLR
DECB
CLR
CLR
CLR
CLR
CLR
CALL
CALL
CALL
CALL
MOV
CLRB
RETURN

STSEV
SUMEV

TEREV
REREV
PCLGO
ENQ,<A.P,TOQ>

ENQ,<A.C,TOQ>

=+
;*%*ENTRY POINT

;GOT A CLOCK?

2NO.

;STOP THE CLOCK
;SET INPUT REQUESTED FLAG.
;CLR STATUS EVENT
;CLR SUMMARY EVENT
;CLR XMTR ERROR EVENT
JAND RCVR ERROR EVENT
;STOP XMTR
JECHO "PCL>"'.

ENQ,<A.L,TOQ>

ENQ,<A.PR,TOQ>
#CMDBUF ,CBUFPT

CMDENT

PROCESS RUB OUT KEY.

sINITIALIZE COMMAND BUF PTR.
;CLEAR COMMAND ENTERED FLAG.
sRETURN.

LAST CHARACTER IN COMMAND BUFFER IS DELETED.

A '\"" IS ECHOED.

CZPLABO PCL11 EXERCISER V0?2

PCLEXR.P11

2170
Z}z;

015372

(1)

015372

2172
2173
2174
2175
2176
2177
2178
2179
2180

2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
E?;
(1)

2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205

015372
015376
0156400
015406
015410
015424
015440
015444
015450

12-SEP-78 15:13

MACY11 30A(1052)

PROC

105767
002034
026727
003016

002242

(000167
005367

000024
000732

000776

PRDEL
:

CMP
BGT

016176

CALL
CALL

JMP

1%:
PDRET:

;

015472
015476
015500
015504
015510
015312
015516
015520
015524
015532
015534
015540
015544
015550
015570

001416
110077
005267
110067

DEC
CALL

RETURN

8
PAGE 35-2

SEQ 0097

PRDEL

REQINP

PDRET

CBUFPT ,#CMDBUF
1%

PNCRLF
PRESC

PDRET

CBUFPT
ENQ,<A.BKSL,T0Q>

J**ENTRY POINT=»

;IF INPUT NOT REQUESTED,
;

THEN IGNORE RUBOUT (HAR.

;IF

AT BEGINNING OF BUFFER,

; THEN ISSUE NEW ‘PCL>''

;DECREMENT BUFFER POINTER.
;ECHO A ""\'",
;RETURN.

PROCESSOR FOR MISCELLANEOUS CHARACTERS.
THE

CHARACTER IS APPENDED TO THE

PROC

000002

105767
002034
117500
120027
002403
120027
002402
012700
026727

T1STB

BGE

;

015472

G
09:48

TTY INPUT (HARACTER PROCESSING ROUTINES

015470

015472

20-0CT-78

COMMAND BUFFER.

SRHXSC.<(HAR>

CHAR
PRMISC:

002142
000002
000040
000140
000077
000652

016401

PM176:

PM187:

000642
000636
012516

TSTB
BGE

MOVB
CMPB
BLT
CMPB
BLT
MOV

(MP

BEQ

S)
aCHAR(R,RO
4"'
RO,
PM176
RO,4140
PM187
#'?,R0

CBUFPT ,#CBFEND-1

PMRET

MOvB
INC

RO,aCBUFPT
CBUFPT

CALL

TOQ>
ENQ,<BKELEM,

MOovB
PMRET:

REQINP
PMRET

RETURN

RO ,BKELEM

s**ENTRY POINT*«

;IF INPUT NOT REQUESTED,
; THEN JUST IGNORE CHARACTER.

;IF CHARACTER
: IS NONPRINTING

THEN CHANGE

z 1T 70
; ASCII "',
;IF WE ARE AT END OF BUFFER,
; THEN JUST RETURN.

;PUT CHARACTER INTO BUFFER
JUPDATE BUFFER POINTER.
;ECHO CHARACTER.

;RETURN.

——

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT=78

TTY OUTPUT HANDLERS

LSBTTL

105777

002020
005767
001402
000167
116777

TTOUT:

000344

012426

000304

005067

002054

117767

000262

1$:

TORET:

000C02

TTIINT:

012414

SEQ 0098

TTY OUTPUT HANDLERS

TTO0UT

TSTB

aT TXCSR

TST

THLTFL

CALL

DEQ,<FRELEM,T0Q>

BEQ
JMP

MOvB

RETURN

LSBTTL
015642
015642
015646
015652
015660
015700
015704

PAGE 36

PROC

BGE

002116

000026

QUTPUT A CHARACTER TO THE TELETYPE IF IT IS READY.

015572
015572
015572
015576
015600
015604
015606
015612
015632
015640

09:48

CLR
REGSAV
MOVB
CALL

REGRES
RTI

s**ENTRY POINT=+
sIF DEVICE IS NOT READY,

TORET

1%
TORET

FRELEM,@TTXBUF

TTY INPUT

; THEN JUST RETURN.
;IS TTY HALTED (CNTRL=S)?
sNO, 0.K. TO PRINT
;YES, DON'T DO ANYTHING.
JGET NEXT CHAR TO TYPE.
sOUTPUT IT.
sRETURN.

INTERRUPT PROCESSORS

THLTFL

, INTTMP
aTTRBUF

ENQ, <INTTMP,TIQ>

;2:**INTERRUPT ENTRY POINTw»

;::CLEAR TTY HALT FLAG ON INPUT

;::SAVE RO - RS.

:22GET INPUT CHARACTER.
::2;PUT IT IN TTY INPUT QUEUE.
;:;RESTORE RO = RS.
;s sRETURN.

CZPLABO PCL11 EXERCISER V02

| PCLEXR.P11
I

12-SEP-78 15:13

MACY11 30A(1052)

MESSAGE PRINT ROUTINE

2236

.SBTTL

2237
2238

2239

2240

%S:}

- 2243

015706

(1)
2245

015706
015706

2247
2248
2249

015720
015722
015742

001412

2252

015746

Sggg
gggz

015712

015744

015750

MESSAGE PRINT ROUTINE

MESSAG

IN TTY QUTPUT

ENQUEUE A (R & LF

PNTLIN,<MESSAG>
2

MOV

MESSAG(RS) ,=(SP)

;**ENTRY POINT#»
:GET ADDRESS OF MESSAGE.

005216

BEQ
CALL
INC

PLCRLF
ENQ, <BKELEM,TOQ>
asP

:IF NULL, APPEND CR & LF.
:ENQUEUE CHAR FOR TTY OUTPUT.
:POINT TO NEXT CHARACTER.

005026

PLCRLF: CLR

(SP)+

:POP ADDR FROM STACK.

016546

117667

MESSAG

000002

000000

PNTLIN:

012346

PLODEC: MOVB

000762

000400

T3]
B8R

2%§? 015752

)

(1)

PNCRLF :

015752
015772
016012
016032

PROC
=

000002

015752

PAGE 37

INSTEAD OF THE ZERO, & THEN EXIT FROM THE ROUTINE.

2260
2261
2262
2263

TOQ UNTIL A ZERO BYTE IS ENCOUNTERED.

QUEUE

2255
2256

%sgg

09:48

ENQUEUE CHARACTERS STARTING AT

2244
g?;

2246

20-0CT-78

@a(SP) ,BKELEM

PLODEC
PL219

:GET A CHARACTER.

:PROCESS IT.

:APPEND CR & LF.

ENQUEUE A CR & LF IN TTY OUTPUT QUEUE.

PL219:

PROC

PNCRLF

CALL
CALL
CALL
RETURN

ENQ,<A.CR,TOQ>
ENQ,<A.LF,T0Q>
ENQ,<ZERO, TOQ>

:x*ENTRY POINT*»

:ENQUEUE A CR.
:ENQUEUE A LF.
:ENQUEUE A NULL FILL CHAR.
;RETURN.

SEQ 0099

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

2265
2266
2267
2268
2269

2270
2271
2272
2273
2274
2275
2276
2277
2278
2279

2280
2281
2282
2283
2284
2285
2286

12-SEP-78 15:13

MACY11 30A(1052)

DATA AREAS

J
09:48

PAGE 38

SEQ 0100

.SBTTL DATA AREAS
;

016034

016034
016040
016044
016050
016054
016060
016064
016070
016074

;

000003
000012
000015
000017
000021
000023
000025
000177

177777

015154
015040
015040
01
015
8}2 134
176
015 372

TABLE ASSOCIATING SPECIAL TTY INPUT (CHARACTERS WITH THEIR

PROCESSING ROUTINES.

CMCHTB:
A.LF:
A.CR:

.WORD

CTL.C,PRCTLC

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

WORD

LF.,PRCR
(CR.,PRCR

CTL.O,PRCTLO

(CTL.Q,PRCTLQ
CTL.S,PRCTLS
CTL.U,PRCTLU
RUBOUT ,PRDEL

-1

;DEVICE ADDRESS TABLES:

2288

016076
016100
016102
016104
06
016110

164200
164202
164204
164206
164210
164212

2290
2291
2292
2293
2294
2295
2296

016114
016116
016120
016122
016124
016126
016130

164214
164220
164222
164224
164226
164230
164234

2298
2299

016132
016134

000170
000174

2301
2302
2303
2304
2305
2306

016136
016140
016142
016144
016146
016150

177560
177562
177564
177566
000060
177546

164213

TCR:

.WORD

PCLTXM

TSBC:

.WORD

PCLTXM+6

TSR:
TSDB:
TSBA:
TMMR:
TMMRH:

TSCRC:
RCR:

RSR:
RDDB:
RDBC :
RDBA :
RDCRC:

016152
016154
016156
016160
016162
016164

000134
000000
000120
000103
000114
000076

.WORD.
WORD
.WORD
LWORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

PCLTXM+?
PCLTXM+4

PCLTXM+10
PCLTXM+12
PCLTXM+13
PCLTXM+14
PCLRCV

PCLRCV+2
PCLRCV+4
PCLRCV+6:
PCLRCV+10
PCLRCV+14

TXMVEC:

.WORD

170

TTRCSR:

.WORD

TIDEV

TTXCSR:
TTXBUF:

.WORD
.WORD

TTDEV+4
TTDEV+6

LCS:

.WORD

RCVVEC:

TTRBUF:

TTVECT:

;
2311
2312
2313
2314
2315
2316

20-0CT-78

.WORD
.WORD

.WORD

174

TTDEV+?2

;VECTOR ADDRESS.

TTVCTIR

177546

CHARACTER CONSTANTS.

;KW11=L LINE CLOCK ADDR

THESE ARE DEFINED AS WORDS SO THAT THEY MAY

A.BKSL: .WORD
'\
ZERO:
.WORD
O
A.P:
.WORD
'P
A.C:
.WORD ~ 'C

A.L:
A.PR:

.WORD
.WORD

'L
'>

.EVEN

;DEVICE ADDRESS AND VECTOR VARIABLES

SASCIT '\"
sASCII NULL
JASCII P
SASCII'C

JASCIT 'L
JASCII """ (PROMPT)

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13

MACY11 30A(1052)

DATA AREAS

20-0CT=78

09:48

PAGE 38-1

SEQ 0101

;CHANGE THESE LOCATIONS TO MODIFY ALL DEVICE ADDRESSES AND VECTORS
;FOR PCL1Y.

2324
2325
2326
2327

016166
016170
016172
016174

164200
000170
164220
000174

TXDEV:
TXVEC:
RCDEV:
RCVEC:

2330
2331
233%

016176

016402

000204
016402
033333

CMDBUF: .BLKB
=
(BFEND
CBUFPT: .WORD

2334
2335
2336

016404
016407
016412

047536
136
041536

000
000125
000

2338

016415

040

051105

016422

000122

;

047522

.WORD
.WORD
.WORD
.WORD

BUFFER & MESSAGE AREAS.

.ASCIZ

"* ERROR"'

N
N
N
N

000000
000400
016640
033333
000400

N
N
N

VIS W) =

—h

NN PN N PN
PN
D D D e
D —d D
N

N
N
N

NN PN
d d D

016624
016626
016630
016634
016640

N
N
N
N

N PN NN
)t —d —

N
~ N

v- —

PPN
WWWWW ~ PN

016540
016542
016544
016550
046554

2356
2357

017640
(033333

AOAREA:
AOEND
TlQ:

LC
.EVEN
LISV
.WORD
.WORD
.WORD
.WORD

TIEND
T0Q:

TOAREA:
TOEND

017640
017641

333
333

!l‘cll

<A0,TI,TO>

0
LC'SIZE

LC*AREA,LC"END

3333333333
.BLKW

LC'SIZE

;QELEMS
;QSIZE
;QTOP & QBOT

;QFRONT & QBACK
;LC'Q AREA

NLIST

.WORD
.WORD

.BLKW
=
. WORD

.WORD
.WORD
WORD

TIAREA: .BLKW

;

:FOR ECHOING CONTROL CHARACTERS.

QUEUE DEFINITIONS.

.ENDM
ACQ:

016440 016540
033333 (033333
000040~
016540
000000
000024
016554 016624
033333 (033333
000024

016430
016434
016440

;CMDBUF BUFFER POINTER.

RPMSG:

LC'AREA:
LC'END =
000000
000040

33333
riamt

Lc'a:

016424
016426

164200
170
164220
174

;TTY INPUT COMMAND BUFFER.

.ASCIZ
.ASCIZ
.ASCIZ

.IRP

(1)

IS
IS
IS
IS

132.

CTLOMG:
CTLUMG:
CTLCMG:

;

;DEFAULT
;DEFAULT
sDEFAULT
;DEFAULT

164200

170
164220
174

=
.WORD

.WORD
.WORD
.WORD

.BLKW
=

AOSIZE
AOQAREA ,AOEND

33333,33333

AOSIZE

: QELEMS
:QSIZE

:QT0P & 0BOT

QFRONT & QBACK

ADQ AREA

;QELEMS

33333,33333

;QTOP & QBOT
:QFRONT & QBACK

TISIZE
TIAREA,TIEND

;QSIZE

TISIZE

;TIQ AREA

;QELEMS
;QSIZE

TOSIZE
TOAREA, TOEND

;QTOP & QBOT

TOSIZE

;T0Q AREA

33333, 33333

:QFRONT & QBACK

FLAG VARIABLES.
<0 = > TRUE
>={ == > FALSE

REQINP: .BYTE
CMDENT:

.BYTE

333
333

; INPUT REQUEST IS BEING TYPED.
;COMMAND HAS BEEN ENTERED.

0
O
O
0
0
0
0
0
0
0
0

.WORD
.WORD

0
0

.WORD
.WORD
.WORD
.WORD

0
0
0
0

vV
O~

PRINTD:
HDRFLG:
PADFLG:
THLTFL:

.WORD

FIRST:

SPCEV:
XSPCEV:

0
0
0
0

.WORD
.WORD
.WORD
.WORD

TXMEV:
TXMSV:
PCLGO:
RCVEV:

.EVEN

017646
017650
017652
017654
017656
017660
017662
017664
017666
017670
017672
017674
017676
017700
017702
017704
017706
017710
017712
017714
017716
017720
017722

HOURS:
.WORD
.WORD
KWFLG:
TEREV:
.WORD
REREV:
.WORD
QLDEV:
.WORD
DATGEV: .WORD
.WORD
SUMEV:
.WORD
SUMSV:
.WORD
STSEV:
STPNTR: .WORD
SUMPNT: .WORD

O
0

017643
017644

.BYTE

SECNDS: .BYTE
MINUTS: .BYTE

SEQ 0102

TICkS:

017642

8
PAGE 38-2

DATA AREAS

L
09:48

017724
017726
017730
017732
017734
017736
017740
017742
017744
017746
017750
017752
017754
017756
017760

017762
017764
017766
017770
017772
017774

133333
000000

000333

.EVEN

DATA VARIABLES.
.
133333
ORIGSD: .WORD
DTSEED:

.WORD

MSGLSD:
RCSEED:
RCTXPS:
RJCTF:
TRNKF:
TXML :
RANM:
RANK :
CURAD:
RSPC:
ESCFLG:
OBJCNT:
RSHOLD:
TEMP:
TEMP1:
ERRO:
ERR1:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

0
O
0
0
0
0
37565
12247
0
0
0
0
0
0
0
0
O

MLSD:

ERRZ2:

.WORD

333

;ADDRESS SILO DATA BUFFER AREA

2358

12-SEP-78 15:13

20-0CT-78

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11

MACY11 30A(1052)

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13

017776

000102

2416

2417
2418

2‘019
2420
2621
2422

MACY11 30A(1052) 20-0CT-78
DATA AREAS

ADSILO: .BLKB

2628

66.

0201 00

000001

000037

x
RADB:

"WORD

0.0

“SUCCESSES ENTRY

;RECEIVER DATA BUFFER:

020664

2438 022726 001000
024726

000001
000030

.WORD

:INITIAL ERROR NUMBER

.REPT
"WORD
WORD

N-1
Y
0

:ERROR NUMBER
*ERROR ADDRE SS

v+l

WORD

-1

v
025146

2453

177777

024720

2454
2455

Seoy

258 025150 000623
2460

.ENDR

ERTBLO =

;

2466
2467
2468
2469

*NO. OF OCCURRENCES SINCE INIT

fi
}

,
,
:
,

3
:LAST ERROR # 1S -1

ERTBL=6

DETAILED ERROR TABLES FOR RCVR AND XMTR ERRORS:

TERTBL: .BLKW

37%15

;RESERVE SPACE FOR XMTR ERRORS

026616

000623

RERTBL: .BLKW

37%15

:RESERVE SPACE FOR RCVR ERRORS

030264
030266
030270
030272

033333
033333
033333
(33333

FRELEM:
BKELEM:
TCBFPT:
TCBIN:

33333
33333
33333
33333

;STORAGE FOR DEQUEUED ELEMENT.
:STORAGE FOR ENQUEUED ELEMENT.
:CMDBUF POINTER USED DURING SCAN
“BINARY VALUE OF INPUT PARAMETER

.WORD
.WORD
.WORD
.WORD

,
fi
|

2463

5465

!
‘

,
,

1000

ERTBL :

;

RCBUF: .BLKW

WORD

2449

:EXERCISER ERROR TABLE

¢
,
,
.

ATTEMPTS ENTRY

RADBO= RADB-14
:TRANSMITTER DATA BUFFER:
DATBUF: .BLKW 1020

247

2461

:ACTIVITY FLAG
*RECEIVER ADDRESS

0.0

cz8
PCL

:
,

31.
0
X

32%9

2451

:66. BYTE AREA FOR SILO DATA

.REPT
WORD
"WORD

"WORD

2434
2435

2450

s€ 0103

RADEND:

2443
244k
2445
2446

PAGE 38-3

229
020064
231
2433 020666 001020

it
2642

:RECEIVER ADDRESS TABLE

2423
2424
2425

09:48

,
|

fi
j
;
|
.

2470

030274

MACYTT

30A(1052)

DATA AREAS

20-0CT-78

INTTMP: _WORD

033333

.SBTTL

09:48

PAGE 38-4

33333

SEQ 0104

;TEMP STORAGE FOR INTERRUPT PROC

KEYWORD TABLE

;KEYWORD TABLE ASSOCIATING A COMMAND WITH ITS PROCESSING ROUTINE

2478

030302

042101

003
020104

002

006

(MDTBL:

.WORD

BYIE

LASCII
.WORD

047107

2481

030312

051501

044523

2483
2484

030322
030324

002
046103

005
040505

020122

2486
2487

030334
030336

002
047503

010
052116

047111

2.6
/ASSIGN/

BYTE

2.5

BYTE

2.8.

. WORD

CPDEL

.WORD

LASCII
.WORD

2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517

030422
030430
030432
030434

030442

030444

030446

030452
030454
030456
030464
030470
030472
030474
03050C
030502
030504

040515
004400

052123

040522

005
043516

044522

020102

004306

004214

042523
051101
003420
J
044523
005066
§
052123

047503

020131

. WORD

ASCIL
. WORD

/7G0/
CPINIT

LWORD

(PMAST

051522

BYTE
.ASCil

. WORD

.BYTE
LASCI1

020105

BYTE
LASCI1

.WORD

1.6
/MASTER/
(PRANG

2.5
/RANGE /
(PRIB

"ASCI1

/SECONDARY /

BYTE

051101

1.10.
ZINITIALIZE/

2.3

LASCIT
.WORD

051525

1,2

BYTE

LASCI1
.WORD
.BYTE
.WORD

004
047514

006
05210

BYTE
LASCIT

051105

062116

/CLEAR /
CP(CNT

1.6
/DELETE/
CPERR
1.6
/ERRORS/
(PGO

042524

003

CPCLR

JASCIT /7CONT INUE /

BYTE

2502
2503
2504
2505

/ADD /
(PASS

JNVE
LASCII

BYTE
JASCI1

040511

(PADD

2.5

BYTE

JASCII
. WORD

/RIB /
(PSEC
2.9

(CPSILO

2,4

/SILo/
(PSTAT

2.6

/STATUS/
CPSUM

BYTE

2,7

LWORD

0.0

JASCI1

/SUMMARY /

[et
|

(ZPLABO PCL11 EXERCISER vO2
PCLEXR.P11
12-SEP-78 15:13

:
E

s
<

2
5

¢
<

S
<

g
¢
¢

¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
‘
{
|
‘
g
{
g
1
{
{

{
{

[]

{

!
(]

{
1

1
1

——

CZPLABO PCL11 EXERCISER v02
12-SEP-78 15:13

PCLEXR.P11

MACY11 30A(1052)

20-0CT-78

KEYWORD TABLE

SCTBL:

020122

.WORD
LASCII
.WORD
.BYTE
LASCII
.WORD

ON==\=O

gr—

09:48

PAGE 38-5

SEQ 0105

2P
CLEAR /

SE T/
.

.SBTTL

:
SOME MORE ASCII STORAGE

MDNER:

.ASCIZ

2536

MSCHNG-

LASCIZ

%% THIS UNIT HAS BECOME 'NEW MASTER'' #+/

2537

SYNTAX:

.ASCIZ

#xxSYNTAX ERROR***/

PCLEXM:

LASCIZ

/PCL11 EXERCISER V02

MSTERDOW;QQQQQ/

025122

030461
041522

2538

(ZPLABO

(SEP-78)/

026520

2539

052123
052101
042522

051101
040440
051523

RSTMSG:

LASCII

/RESTART AT ADDRESS /

2540

055132

:
RSADD

LASCIZ

/1222117

2541

051440
020054

MTQMSG:

LASCIZ

/** SORRY,

042526
042522
051105
042522
020041

051117
020111
047040
042503
040440
051523
025052

040522
052040
051106
041517

050120
020117
046517
052101

:
TRPDMG

LASCII

/TRAPPED TO 4 FROM LOCATION /

2542
031126

I HAVE NO RECEIVER ADDRESSES!

#=/

c
20-0CT-78 09:48
MACY11 30A(1052)
SOME MORE ASCII STORAGE:

CZPLABO PCL11 EXERCISER

PCLEXR.P11

2543
2544

2545

2546

2547

2548

2549

2550

2551

2552

12-SEP-78

031134
031140
031146
031151
031156
031164
031172
031200
031206
031214
03122¢
031225
031232
031240
031246
031247
031254
031262
031270
031274
031302
031310
031316
031324
031332
031340
031346
031354
031362
031370
031373
031400
031406
031414
031422
031430
031436
031441
031446
031454
031462
031470
031476
031504
031507
031514
031522
031530
031536
031544
031552
031560
031561
031566
031574
031602

047511
047116
020440
04

051501
000
042510
020117
042502
042101
044527
042104
021040

044510
042524

052111
046455
026522

PAGE 38-6

020116

TRP4AD: LASCIZ

/NNNNN

041511
051104
051105
052440
051501

ERTMSG:

.ASCIZ

/DEVICE ADDRESS ERROR. USE "‘ASSIGN'' COMMAND./

EXRST:

LASCIZ

/EXERCISER STARTED/

041522
041440
052516

EXCNT:

LASCIZ

/EXERCISER CONTINUING/

044510
052111
047516
052123
000052
040510
020127
046440
042523
051101

MSTMG1:

.ASCIZ

/***THIS UNIT IS NOT MASTER***/

MSTMG?:

.ASCIZ

/BUT HAS NOW BEEN MADE SECONDARY./

051440
047531
042526
020124
042105
020114

MSTMG3:

LASCIZ

/THE SILO YOU HAVE JUST LOADED WILL BE/

020104
052517
051101
041440
052116
042524

MSTMG4:

LASCIZ

/USED IF YOU CLEAR THE CURRENT MASTER./

051440
040510
047105
042504
044124
042522
021060

MSTMGS:

LASCIZ

/THE SILO HAS BEEN PADDED WITH ADDRESS ‘0"

020123
044440
051501

THUMST:

LASCIZ

/THIS UNIT

000

IS -MASTER=-/

SEQ 0106

—

——

CZPLABO PCL11 EXERCISER
12-SEP-78

PCLEXR.P11

2553

031607
031614
031622

2554

2555
2556

124

047125
020123
047117
000055
051042
05151
026524
042
044440
042514

20-0CT- 78 09:48
MACY11 30A(1052)
SOME MORE ASCII STORAGE:

PAGE 38-7

020123
044440
041505
054522

THUSCN:

IS =SECONDARY=/

020042

RBSTMG: .ASCIZ

021102
041455
000055
042523
042515

RBCLMG:

.ASCIZ

/'RIB'" IS =CLEAR-/

ELPSTM:

_ASCII

/ELAPSED TIME (HRS:MIN:SEC:TIK).../

TMLINT:

.ASCIZ

/0:0:0:0

STITLE:

.ASCIZ

/RCVR -ADDRESS

STLIN:
STLINT:

.ASCII

/NNNN

STLIN2:

.ASCII

/NNNN

020040
020040

STLIN3:

.ASCIZ

/NNNN

020122
051105
051105
042101
020123
027117
041517
047105

SMTTLE:

.ASCIZ

/ERROR NUMBER

047040
047522

NOERMG:

.ASCIZ

042523

.ASZIZ

/THIS UNIT

SEQ 0107

/'RIB'" IS =SET=/

024513
2557

030072
020040
000040
040440
051523
047116
047117
046505
051440
051523
047503
044524

2558

2559

2561

2562

2563
2564
2565
2566

2567
2568

032042
032050

032054
032054
032062
032070
032076
032104
032112
032120
032124
032132
032140
032142
032150
032156
032164
032172
032200
032206

020040
020040
020040
020040
020040
020040

032214
032222

052503
042503

020106
051122
000123

032226
032234

020040
020117

025052
051105

CONNECTION ATTEMPTS

SUCCESSFUL CONNECTIONS/

ERROR ADDRESS

=« NO ERRORS TO REPORT YET

NO. OF OCCURRENCES/

MACY11 30A(1052)

20-0CT-78

09 :48

SOME MORE ASCII STORAGE:

PAGE 38-8

052105

020117
052122
025040

2569

047101
0462524
047522

046523
020122
051522

TERHDR:

.ASCIZ

/TRANSMITTER ERRORS:/

2570

047522
020056
047117
041522

020122

TRHLIN:

.ASCIZ

/ERROR NO.

TRRNO:

.ASCII

/NNNNN

032242
032250
032256

051522

2571
2572

020116
020040

TRELIN:

CONCTD RCVR

2573

047116
020040

TRRCN:

.ASCII

/NNNAN

2574

020040

TRERC:

.ASCIZ

/NNNN

2575

053111
051122
000

RERHDR:

.ASCIZ

/RECEIVER ERRORS:/

RRHLIN:

.ASCIZ

/ERROR NO.

RCELIN:
RCRNO:

.ASCII

./NNNNN

2576

2577
2578

2580

2581
2582

2583

2584

2586

052116

116

047116
020040

047116
020040
040
047116
000
024040
000051

020116
020040

RCTRN:

.ASCII

/NNNNN

020116

RCERC:

.ASCIZ

/NNNN

047516

NONMG:

.ASCIZ

047116

020040
020040
020040
020040
020040
020040

SMLIN:
SMLINT:

._ASCII

/NNNN

SMLINZ:

.ASCII

/NNNN

SMLIN3:

.ASCIZ

/NNNN

020040
020040
047116
020040

2579

2585

052517

032650

020040

SEQ 0108

ERROR COUNT/

(NONE)/

CONCTD XMTR

ERROR COUNT/

CZPLABO PCL11 EXERCISER V02
12-SEP-78 i2:13
PCLEXR.P11

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11

2587

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

09:48

SOME MORE ASCII STORAGE:

PAGE 38-9

SEQ 0109

(ZPLABO PCL11 EXERCISER V02

IPCLEXR.PH

12~SEP-78 15:13

G
MACY11 30A(1052) 20-0CT-78 09:48
SOME MORE ASCII STORAGE:

SEQ 0110

.EVEN

032654

2589
2590
2591

9
PAGE 39

.SBTTL AUXILIARY ROUTINES
.SBTTL
(HARACTER PROCESSOR

2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602

CONVERT A CHARACTER TO ITS PROCESSING ROUTINE ADDRESS BASED
CHARACTER

PROCESSING ?OUTINE ADDR

}

(UNUSED)

g b

UPON A TABLE OF ENTRIES IN THE FOLLOWING FORM:

THE TABLE MUST BE ARRANGED IN ASCENDING ORDER OF CHARACTER VALUES.

THE TABLE ENDS WITH A DUMMY ENTRY FOR CHARACTER FF

ON ENTRY:

RO = CHARACTER

CALL:

JSR

ON RETURN:

RO = CHARACTER

PROCHR :
PCLOOK:

032654

= TABLE ADDRESS

PC.PROCHR
= PROCESSING ROUTINE ADDRESS,

=1 ==> CHARACTER NOT IN TABLE

CMPB

aR1,RO

001404

BEQ

PCCALL

032660

101006

BHI

032662

062701

ADD

PCQUIT
:
#4 ,R1

032666

000772

PCLOOK

032670

016101

032674

000207

RTS

032676
032700

005001
000207

PCQUIT: CLR

032654

121100

032656

000004

000002

PCCALL: MOV

RTS

2(R1) ,R1

(HEXADECIMAL).

IF ANY

:#xENTRY POINT#+

;COMPARE TABLE (HAR
; WITH ARG.

CHAR.

;IF SAME, RETURN PROC.
; ROUTINE ADDR.
;IF >, THEN ARG. CHAR

; NOT IN TABLE.

:IF <, POINT TO NEXT

; TABLE ENTRY.
:TRY AGAIN.
:R1

;

= PROCESSING

ROUTINE ADDRESS.

JRETURN:
= OFF.

:R1 =0

Z BIT

JRETURN: Z BIT

IS ON.

PAGE 40

BINARY TO ASCII CONVERSION

LOCAL MACROS

SETUP CONVERSION CONTROL WORD ON STACK
STCVT RADIX,WIDTH,SIGNED,
COMPR ,BLANKS
:
WHERE

RADIX=NUMERIC VALUE SPECIFYIN. CONVERSION RADIX

WIDTH=NUMERIC VALUE FROM 1 TO 7 SPECIFYING FIELD WIDTH
SIGNED=SIGN OR MAGNITUDE FLAG. ASCII STRING 'SIGN' SPECI;&E)g SIGNED CONVERSION. ANYTHING ELSE SPECIFIES MAGNI-

IR IR TR IR

TEATE

N N

BINARY TO ASCII CONVERSION

COMPR=COMPRESS LEADING ZEROS FLAG. ASCII STRING °'COMPRES' SPECIFIES COMPRESSION OF LEADING ZEROS. ANYTHING ELSE MEANS
INCLUDE LEADING ZEROS OR SPACES IN CONVERSION.
BLANK=REPLACE LEADING ZEROS WITH BLANKS (SPACES).
ASCII STRING
"BLANKS' MEANS BLANK REPLACEMENT IF ZERO COMPRESS IS DISABLED.

ANYTHING ELSE SPECIFIES ZERO PADDING.

.MACRO

STCVT

RADIX,WIDTH,SIGN,COMPR,BLANK

/.I

IDN

IDN

IDN

$8LK=0
$SGN=0
$5UP=1+1000

$8LK=1%2000

-ENDC
"
$SGN=12400
.
.ENDC
. IF
¢

$SUP=0+1000

.ENDC
MOV
. ENDM

#<WIDTH*4000>!$BLK'$SGN!$SUP!RADIX,=(SP)

SEQ 0111

09:48

BINARY TO ASCII CONVERSION

12-SEP-78 15:13

20-0CT-78

(ZPLABO PCL11 EXERCISER V0?2

PCLEXR.P11

MACY11 30A(1052)

MACY11 30A(1052) 20-0CT-78 09:4& PAGE 41
V02
CZ¢LABO PCL11 EXERCISER
PCLIXR.P11
12-SEP=-78 15:13
BINARY TO ASCI] CONVERSION
9

SEQ 0112

gg;g

: INPUTS:

2679

RO=ADDRESS TO STORE FIRST BYTE IN OUTPUT STRING

2681
2682
2683

;
:
:

R2=ZERO COMPRESSION INDICATOR
IF R2 EQ 0, THEN SUPPRESS ZEROS
IF R2 NE 0, THEN DO NOT SUPPRESS ZEROS.

32%2
2687

* IF CBTA IS CALLED, THEN R2 MUST CONTAIN THE FOLLOWING INFORMATION
LOW BYTE=CONVERSION RADIX (2-10.)
:
:

BIT 8=MAGNITUDE/SIGNED CONVERSION (1=SIGNED)

%gg?

BIT 9 =ZERO COMPRESS FLAG (0=COMPRESS LEADING ZEROS)

2692

BIT 10=BLANK FILL FLAG (1=REPLACE LEADING ZEROS WITH BLANKS

2695

BITS 11-15=FIELD WIDTH (1-32)

2698

* OUTPUTS:

%;8?

RO=ADDRESS OF NEXT BYTE AFTER LAST DIGIT STORED.

2702

IF THE CONVERTED DIGIT EXCEEDS 9, THE RESULT IS BIASED TO FALL

2704
2705

;

2680

gggg

gggz

.
:
:

2696
2697

2699

2703

;

2709
S;}?

032702

032702
032706

2715
g;}g

2721
5;5;

OCTPNT:

032710

032710
032714

000406

2727

STCVT

032716

032716
032722

DECJSP:

000403

STCVT

8..6..MAGN,
COMPRES , NOBLKANK
SETCN

10..5..MAGN,NOCOMP,BLANKS
SETCN

:CONVERT S DIGIT DECIMAL TO ASCII (ZERO COMPR)
032724

DECPNT:

032724

g;gg 032730 000400

2730
2731
2732

STCVI 8..6..MAGN,NOCOMP ,BLANKS
:PUSH CONVERSION PARAMETERS
BR
SETCN
:CONVERT TO ASCII

: CONVERT S DIGIT DECIMAL TO ASCII MAGNITUDE

S;Sg
2726

IN THE RANGE A =

: CONVERT 6 DIGIT OCTAL TO ASCII (ZERO COMPR)

3;}3
2720

OCTJSP:

000411

g;}%
2714

IF ZERO COMPRESS DISABLED, 0=ZERO FILL).

: CONVERT 6 DIGIT OCTAL TO ASCII MAGNITUDE

3;89
2708

R1=NUMBER TO BE CONVERTED

032732
032732
032734

005702
001002

STCVT

BR
SETCN:

ST
BNE

10..5. .MAGN, COMPRE S , NOBLANK

SETCN

R2
20%

:SUPPRESS ZEROS?
;1F NE, NO

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13
2733
2734
2735

032736
(032742
032742

042716
012602

001000

MACY11 30A(1052)

20-0CT-78

09:48

BINARY TO ASCII CONVERSION
20%:

PAGE 41-1

SEQ 0113

BIC

#1+7000, (SP)

;ENABLE ZERO SUPPRESS

Mov

(SP’+,R2

;SET CONTROL WORD

(Z
PCl

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13

MACY11 30A(1052) 20-0CT-78 09:48 PAGE 42
GENERAL BINARY TO ASCII CONVERSION

5;33;
2739

2740

2741
2742
2743
2744
2745

032744

004567

2746
2747
2748

032750
032752
032754
032756
032760
032762
032764
032766

2750
2751
2752
2753
2754
2755
2756
2757
2758
2759

032772
032774
032776
033000
033002
033004
033006
033010
033012
033016

010004
000241
106002
006002
006003
105003
150203
105002
152702
010100

2761
2762

033020
033022

010501
004767

2764

033032

101402

2749

2760

2763

032772

033020

033026

110205
000302
106202
103005
005701

100003
005401
112720

020127

2765

033034

062701

2767
2768
2769
2770
2771
2772
2773
2774
2775

033040
033042
033044
033046
033050
033052
033054
033056
033060

060201
010146
105303
003412
005700
001006
005702
100006
005703

2766

2776
2777
2778
2779
2780

2781
2782
g;gz

033040

033062
033064
033070
033070
033074
033074
033076
033100

000406

000055

108:

1%:

000272

000011

100002
042702

000020

004767

177724

112624
010400

(BTA:

000060

000007

9 .

.SBTTL

GENERAL BINARY TO ASCII CONVERSION

JSR

R5,SAVRG

MOvB
SWAB
ASRB
B8CC
TST
BPL
NEG
mMovB

2%:
3%:

R2.R5
R2
R
108
R1
10%
R1
#'-,(RO)+

;SAVE THE NON-VOLATILE REGISTERS
;COPY RADIX BYTE
sPOSITION REMAINING TO LOW BYTE
JSHIFT OFF MAG. FLAG
JUNSIGNED IF C IS CLR
;POSITIVE VALUE?
:IF PL, YES
;MAKE VALUE POSITIVE
s INSERT A MINUS SIGN

MoV
CLC
RORB
ROR
ROR
CLRB
BISB
CLRB
BISB
MOV

RO,R4
R2
R2
R3
R3
R2.R3
R2
#'0,R2
R1.RO

;COPY STRING POINTER
;CLEAR CARRY
sSHIFT OFF SUPPR FLAG
;TRANSFER TO R2
;GET BLANK/ZERO PAD FLAG
;CLEAR COUNT BYTE
;TRANSFER COUNT BYTE
;CLEAR FILL BYTE
;SET FILL BYTE
;DIVIDEND TO RO

MOV
JSR

R5.R1
PC.DIV

;SET CONVERSION RADIX
;DIVIDE EM UP

BLOS

15%

;1F LOS, NO

CMP

15%:

SEQ 0114

R1,49.

JRESULT EXCEED NUMERICS?

ADD

#7,.R1

ACD
MOV
DECB
BLE
TST
BNE
TST
L
TST

RZ.R1
R1,-(SP)
R3
3%
RO
2%
R2
3%
R3

;ADD CHARACTER BIAS
;SAVE CHARACTER
;DECREMENT CHARACTER COUNT
sIF LE NO DIGITS LEFT
:ZERO QUOTIENT
;IF NE, YES, GO AGAIN
:SUPPRESS ZEROS
;IF PL, YES, ALL DONE
;SUBSTITUTE BLANKS?

JSR

PC.1$

;DIVIDE AGAIN

MOvVB
MOV
RE TURN

(SP)+,(R&4)+
R4 .RO

;STORE A DIGIT
;STORE TERMINAL ADDRESS

BPL
BIC

2%
#20,R2

;BIAS TO FALL IN ALPHA

;I1F PL, NO
;CONVERT FILL TO BLANK

(2
PCl

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052) 20-0CT=78 09:48 PAGE 43
DOUBLE PRECISION BINARY TO ASCII

SEQ@ 0115

.SBTTL
DOUBLE PRECISION BINARY TO ASCII
CONVERT A DOUBLE PRECISION UNSIGNED QUANTITY TO DECIMAL ASCII

2786

LOCAL MACROS
SET ASCII

CONVERSION PARAMETERS

(BTAS RADIX ,WIDTH,SIGN,BLANK
:
WHERE
RADIX=CONVERSION RADIX

WIDTH=FIELD WIDTH

;
L

SIGN="SIGNED' FOR SIGNED CONVERSION. ANYTHING ELSE IMPLIES
UNSIGNED CONVERSION

BLANK="BLANKS® TO CONVERT LEADING ZEROS TO BLANKS. ANYTHING ELSE
IMPLIES NO CONVERSION OF ZEROS .

C(BTAS

RADIX,WIDTH,SIGN,BLANK

. 3F
$8LKS=1+2000

IDN

K>
, <BLANKS>
<BLAN

"
$SGNS=1%400

IDN

$8LKS=0
$SGNS=0

.MACRO

.ENDC

MOV
TST

BEQ

BIS

.ENDM

;

033132
033134

033150

004567
010003
012704

000250

023420

022104

103042

011102
014101
010400
004767
010046

010201

.+4

#1+«1000,RS

CDDMG:

RO=POINTER TO ASCII OUTPUT STRING
R1=ADDRESS OF DOUBLE PRECISION VALUE
R2=ZERO COMPRESS FLAG

JSR

MOV
MOV
CBTAS
CMP
BHIS

MOV
000110

INPUTS:

2
3
033102
033102
033106
033110
033114
033130

#<WIDTH*400>'$SGNS
' $BLKS'!RADIX RS

MOV
MOV
JSR
MOV
MOV

RS.,SAVRG

RO,R3
#10000. R4
10.,0,NOSIGN ,BLANKS
(R1)+,R4
40%

(R1) ,R2

-(R1) ,R1
R4 ,RO
PC,DDIV
RO,=(SP)
R2.R1

:SAVE THE NON-VOLATILE REGISTERS

:COPY THE STRING POINTER
;SET DIVISOR
;SET CONVERSION PARAMETERS
;TEST FOR OVERFLOW
;IF HIS, OVERFLOW

:GET LOW PART OF NUMBER

:GET HIGH PART OF NUMBER
;COPY DIVISOR
:DO DOUBLE PREC. DIVIDE
;SAVE REMAINDER
;COPY QUOTIENT

CZF

PCL

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13

2842
2843
2844

033152
033154
033160

001011
012702
112723

2846
2847
2848
2849

033166
033170
033174
033176

001374
052705
000411
012702

2852

033212

042705

2845

2850
2851

2853
2854

2855

2856

2857

2858

2859
2860

2861

2862

033164

033202
033206

033216
033220

033220

033222

033226

033230
033232

033236

033240

2863

033240

2865

033244

2867

033252

2864
2866

2868
2869
2870
2871
2872

033244

033250

033254
033254

005302

004767
052705

010003
012601

012702

000005
000040

000406

024000
000020
001000
002000

11$%
#5.R2
#' ,(R3)+

11$:

BNE
BIS
f4f
MOV

218
#3000,RS5
208
#5+4000,R2

31%:

MOV

BIC

#1+2000,RS

20%:

020000

30%:

000011

112720

000052

001374

40%:

50%:

60%:

2893

2894
2895
2896
2897

SEQ 0116
;IF NE, SOMETHING TO PRINT
:OTHERWISE, FILL FIELD WITH BLANKS

:DISABLE BLANK SUPPRESSION

PC,30%
#1+1000,RS

;SET FIELD WIDTH
;OUTPUT HIGH ORDER DIGITS
:DISABLE ZERO COMPRESS

RO,R3

;SET STRING POINTER

(SP)+ ,R1

;DISABLE BLANKS

;GET LOW ORDER VALUE

MOV

#4+4000,R2

;SET FIELD WIDTH

MOV

R3.RO

:GET STRING POINTER

60%

JEXIT

MOV

#9. .R2

;GET COUNT

MOVB

#'=,(RO)+

JFILL FIELD WITH ASTERISKS

BNE

50%

;

RS.R2
PC,CBTA

;INCLUDE RADIX & BLANK SUPPRESS
:CONVERT TO ASCII

''soB

R2,50%'"

RE TURN

DOUBLE PRECISION DIVIDE ROUTINE

; INPUTS:
3
: R2=LOW ORDER OF DIVIDEND
.+ R1=HIHG ORDER OF DIVIDEND

< : RO=DIVISOR (15 BITS UNSIGNED)

Sggg

2889
2890
2891
2892

MOV

.SBTTL

2875
2876
2877
2878

2888

JSR
BIS

DEC

%g;z

2881
2882
2883
2884
2885
2886
2887

DEC

BIS
JSR

177506

012702
005302

21%:

BNE
MOV
MOVB

003000

010300

050502
004767

MACY11 30A(1052) 20-0CT=78 09:48 PAGE 43-1
DOUBLE PRECISION BINARY TO ASCII

;
3
;
;
;
:
033256

033256
033260
033264
033266

010346
012703
010046
005000

033270
033272
033274
033276

006302
006101
006100
020016

033270

OUTPUTS:
R2=LOW ORDER OF QUOTIENT
R1=HIGH ORDER OF QUOTIENT
RO=REMAINDER

DDIV:

000040
1%:

MOV
MOV
MOV
CLR

R3,-(SP)
#32..R3
RO,-(SP)
RO

:SAVE R3
:SET ITERATION COUNT IN R3
:STACK DIVISOR
;SET REMAINDER TO O

ASL
ROL
ROL
CMP

R2
R1
RO
RO, (SP)

:SHIFT THE ENTIRE DIVIDEND
l... ONE BIT TO THE LEFT AND...
2... INTO THE REMAINDER
;1S REMAINDER GE DIVISOR?

DEC
BGT

R3
1%

MOV

(SP)+ ,R3

TST

RE TURN

033316

*YES, SUB DIVISOR OUT

“AND INCR THE QUOTIENT
;REPEAT AS LONG AS NECESSARY
;PURGE DIVISOR FROM STACK
;RESTORE R3

(SP)+

INTEGER DIVIDE MAGNITUDE NUMBERS

033320
033320
033324
033326
033330
033330
033332
033334
033336
033340
033342
033344
033344
033350
033352
033352
033354

o.. IR TETE

TRTE

FETR I

N TR TN

.SBTTL

NO, SKIP TO ITERATION CONTROL

012746

010146
005001

000020

RO=DIVIDEND
R1=DIVISOR
OUTPUTS:

QUOTIENT IS RETURNED IN RO
REMAINDER IS RETURNED

30%:

006300
006101
020116
103402
161601

005200

005366
003367

000002

40%:

50%:

022626

#20,-(SP)
R1,-(SP)
R1

:SET _LOOP COUNT
;SAVE DIVISOR FOR SUBTRACTS
;CLEAR REMAINDER

ASL
ROL

RO
R1

;DOUBLE LEFT SHIFT.

CMP
BLO
SuB
INC

R1,(SP)
40%
(SP) ,R1
RO

s SUBTRACT WT DIVlim
:IF LO,
SUBTRACT OUT DIVISOR
:ADD IN LOW BIT

DEC
BGT

2(SP)
308

;DECREMENT REPEAT COUNT
;IF GT, MORE TO GO

CMP

(SP)+,(SP)+

;CLEAN STACK

SAVE/RESTORE NONVOLATILE REGISTERS

SAVRG:

000006

IN R1

MOV
MOV
CLR

RETURN

;

033356
033360
033362
033364
033370
033372
033374
033376
033400

:
INPUTS

Iv:

MOV
MOV
MOV
MOV
JSR

R4 ,-(SP)
R3,-(SP)
R5,-(SP)
6(SP) ,RS
PC,a(SP)+

MOV

(SP)+ ,R4

MOV

RETURN

238588588 2T

2%:

2%
(SP) ,RO
R2

005202

BLO
SuB
INC

mmnm

103402
161600

SEQ 0117

12-SEP-78 15:13

>PPrr>P »»

PCLEXR.P11

N 9
MACY11 30A(1052)
20-0CT=-78 09:48 PAGE 43-2
DOUBLE PRECISION DIVIDE ROUTINE

2@ SR
R
e il

CZPLABO PCL11 EXERCISER V02

(SP)+ ,R3

(SP)+,RS

;SAVE R4 BR3
;PUT RETURN ADDRESS ON STACK
sRETRIEVE REAL RS
sCALL THE CALLER !!!
;RESTORE NON VOLATILE REGISTERS

se——————————

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

2961
(3)
2;;

033402

(1)

033402

000002

ITEM

QUEUE

000004

2965
2966
2967
2968
2969

033402
033406
033412
033414
033422

2971

033436

2973
2974
2975

033446
033450
033452

033430

LIST

MEB

PROC
=
=

ENQ,<ITEM,QUEUE>
Z
4

ENQ:

%322

2970

016504
021464
002020
017574
062764

026464

103403

:#*ENTRY POINT*»

APPEND

000004
000002
000002
000002

000012
000012

MOV
CMP
BGE
MOV
ADD

000004

000012

MOV

000012

BLO

016464

033452

000207

2977
gg;g

033454
033456

000261
000775

NOFULL: SEC
B

2980
2981

033460

000002
000004

ITEM
QUEUE

(13

033460

zé;é

3
g;

005214
000241

:
:
033460
033464
033466
033470
033476

016504
005714
001420
017475
062764

2992

033512

103403

2994
2995

033522
033524

2996
2% ;

2998

2999

033504

033514

033526
033526

033530

033532

PROC

=
=

(A WORD) TO THE FIRST=IN=FIRST=0UT LIST

:GET QUEUE ADDRESS.
:1F QUEUE IS FULL,
: SIGNAL TRAGIC ERROR.
:PUT ITEM AT BACK OF QUEUE.
:UPDATE BACK POINTER.

NQNOWP

: "

aR4

: INCREMENT NO. OF ELEMENTS.
:INDICATE SUCCESSFUL ENQ.
;RETURN.

QBACK (R4) ,QBOT (R4)
QTOP(R4) ,QBACK (R4)

NQRET

026464

016464

005314
000241

000010
000002

000010

000004

000002
000010

000006

000010

000261

012775

177777

000002

:INDICATE UNSUCCESSFUL ENQ.
:IGNORE ITEM & RETURN.

DEQ,<ITEM,QUEUE>

2
4

:#*ENTRY POINT#*#

QUEUE (RS) ,R4
aR4
DQEMP
®QFRONT(R4) ,@ITEM(RS)
#2,0FRONT (R4)

:GET QUEUE ADDRESS.
;IF QUEUE IS EMPTY,
: SIGNAL TRAGIC ERROR.
;RETRIEVE FRONT ELEMENT.
:UPDATE FRONT POINTER.

BLO

DQNOWP

aR4

:DECREMENT NO. OF ELEMENTS.
:INDICATE SUCCESSFUL DEQ.

QFRONT (R4) ,QBOT (R4)

MOV

QTOP(R4) ,QF RONT (R4)

RETURN
RTS

DONOWP: DEC
CLC

DQEMP:

QUEUE

MOV
TST
BEQ
MOV
ADD

CMP

DORET:

000207

REMOVE A WORD ENTRY FROM THE FIRST=IN-FIRST-QUT LIST
STORE IT AT ITEM .

000004

QUEUE .

QUEUE (RS) ,R4
R4 ,QSIZE (R4)
NQFULL
@I TEM(RS) ,@QBACK (R4)
#2,QBACK (R4)

DEQ:

2986
2987
2988
2989
2990

2993

NQNOWP: INC
cLC
NQRET: RETURN
RTS

2983
gggg

2991

ITEM

CMP

000006

033440

2972

SEQ 0118

: WORDS, RESPECTIVELY, IN A FIRST=IN=FIRST=QUT LIST.

2957

PAGE 44

LSBTTL QUEUE HANDL ING ROUTINES
: THIS MODULE CONTAINS 2 SUBROUTINES, ENQ & DEQ, TO ENQUEUE & DEQUEUE

2958
2959

2960

8 10

09:48

QUEUE HANDL ING ROUTINES

2954
2955

20-0CT-78

SEC

MOV

#-1,3]1TEM(RS)

" M

:RETURN,

:INDICATE UNSUCCESSFUL DEQ.

JSET ITEM TO ALL ONES.

3000

033540

000772

SEQ 0119

QUEUE HANDL ING ROUTINES

DORET

sRETURN,

12-SEP-78 15:13

¢ 10
09:48 PAGE 44-1

LMY ICTIENENEICTICY
Y

PCLEXR.P11

20-0CT-78

MACY11 30A(1052)

—

CZPLABO PCL11 EXERCISER v02

SUBROUTINE TO SCAN AN INPUT COMMAND & CALL ITS

PROCESSING ROUTINE.

.LIST

MEB

.MACRO

SPAN

REG,CHAR,?L

THIS MACRO SCANS THE STRING OF CHARACTERS STARTING AT
@REG UNTIL IT FINDS ONE NOT EQUAL TO (HAR.
REG IS
SET POINTING TO THAT (HARACTER.

REG

IT FINDS A CHARACTER THAT IS A MEMBER OF (HRSET.

REG IS SET POINTING TO THAT CHARACTER.

BEQ
.ENDM
INC

aREG,LS
REG

JJ3

.MACRO

SYNCLS

THIS MACRO DETERMINES THE SYNTACTIC CLASS OF AN

OBJECT BEGINNING WITH CHAR.
IN CLASS AS FOLLOWS:

CLASS

THE CLASS IS RETURNED

0 (WORD) IF CHAR = (A,...,Z2.=)
g(NUBER)IF (HAR = (0,....9)

(END OF LINE) IF CHAR = CARRIAGE RETURN
STRING) OTHERWISE

4 (CHARACTER

(MPB

(HAR,#'A

BLT

BGT
(LR

DD
CLASS

CMPB

(C:

CHAR,CLASS,?CC,?DD,?EE,?FF,?2GG

(HAR,#'2

EEEEREEREERERBMERBEERE
R BB B B
B
B
B B I
B A
A
S

LS,<CHRSET>

.IRP

CMPB

HH:

EACH MEMBER OF CHRSET IS AN ADDRESSABLE QUANTITY.

THIS MACRO SCANS THE STRING STARTING AT QREG UNTIL

REG,CHRSET,?HH,?JJ

BREAK

.MACRO

.ENDM

DEC

(REG) +,CHAR

CMPB

BEQ

SEQ 0120

RN et

PAGE 45

XXX

D 10

09:48

20-0CT-78

QUEUE HANDL ING ROUTINES

12-SEP-78 15:13

PCLEXR.P11

MACY11 30A (1052)

(ZPLABO PCL11 EXERCISER v02

LEEREER

—

EE:

FF:

MOV

(MPB

BLT
(MPB
BGT

(HAR, #'0

MOV
BR

#2,CLASS
GG

(MPB

(HAR #'~
cC
(HAR,#15
DD

BEQ

GG:

#6,CLASS

(MPB
BNE
MOV

. ENDM

#6,CLASS

fihchrhehihehihihirhoehorheheh'h'he
R
R
e e hi ' Ieoleoleolale il
TP

DD:

SEQ 0121

QUEUE HANDL ING ROUTINES

TE T TTITTITTITTTIT
M
M

E 10
09:48 PAGE 45-1

MMM

3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075

12=-SEP-78 15:13

20-0CT=78

PCLEXR.P11

:
MACY11 30A(1052)

SN A

(ZPLABO PCL11 EXERCISER V02

(1)

INPLIN

KWTABL

033542

COMMAND PROCESSOR INITIATING ROUTINE

PROC
=

ND>
, <INPL IN,KWTABL
COMA
2

COMAND :

;**ENTRY POINT*#

3081
3082
3083

: THIS ROUTINE CAUSES THE COMMAND SPECIFIED BY INPLIN TO BE
: PROCESSED, AS DESCRIBED BELOW. INPLIN IS A STRING OF ASCII
: CHARACTERS ENDED BY A CARRIAGE RETURN CODE.

3085
3086
3087
3088
3089
3090
3091
%%

:
;
3
:
:
:
:
:

3094
3095

: IF LXSCAN OR KEYWD OR THE PROCESSING ROUTINE RETURN AN ERROR
; CONDITION, THEN C = 1; OTHERWISE, C = 0.

2097 033542
3098 033544
3099
(1)

033550
033550

010546
010667

000076
000002
000310

(1)

033554

016501
004167

3101
3102

033562
033564

005716
003005

3100

033560

3103
3104
3105
3106
3107

033566
033574
033600
033604
033610

(1)

033614

3108

033614

103426

012767
000167
016700
162700
017705
010046

(1)

033616

016546

3109

033626

103403

3112

033630
033634

012705
004736

033642

030026

(1)

3110
3111

3113
3114
3115

3116

3{;;
3118

3119
3120

033622

033636

033644

004767

016706

033644

000207

033646
033650

033333
000000

177777
000036
000042
000006
000032

MOV
MOV

LXSCAN
MOV
JSR

BCS
TST
BGT

164162

1%:

MOV
JMP
MOV
SuB
MOV

KEYWD
MOV

000004

MOV

000024

JSR

B(S

033650

000004

- INPLIN IS LEXICALLY SCANNED USING THE LXSCAN ROUTINE.
- THE 1ST OBJECT IS CONVERTED TO A PROCESSING ROUTINE ADDRESS
USING THE KEYWD ROUTINE €& THE KEYWORD TABLE KWTABL
SUPPLIED BY THE CALLING PROGRAM.
- THE PROCESSING ROUTINE IS CALLED WITH THE OUTPUT FROM [XSCAN
ON THE STACK STARTING AT 2(SP). (THE RETURN ADDRESS OF THIS
CALL OCCUPIES THE TOP WORD OF THE STACK.)
- THE LXSCAN OUTPUT IS REMOVED FROM THE STACK.

CMRET:

RS,-(SP)
SP, CMMARK

INPLIN(RS)
INPLIN(RS)
,R1

R1,LXSCAN

:SAVE PAR LIST POINTER.
:SAVE STACK POINTER.
:LEXICALLY SCAN

INPLIN
.

CMRET

:IF ERROR, RETURN WITH C=1.

#-1,ESCFLG
CMRET
CMMARK ,RO
#6,R0
aCMMARK ,RS

:YES, DETERMINE ADDRESS
: OF FIRST OBJECT.
:RESTORE PAR LIST POINTER.

asP
1%

RO,KWTABL (RS)
RO,-(SP)

:HAVE WE ANY OBJECTS ?
:NO, IGNORE BLANK COMMAND.

:GET ADDR OF COMMAND PROCESSOR.

KWTABL
(RS) ,=(SP)
PC,KEYWD

(MRET

:1F INVALID COMMAND, MAKE

MOV
JSR

#NULPAR RS
PC,a(SP)+

:PROCESS COMMAND & POP ADDR.

BIT

RO, (SP)+

MOV

RE TURN
RTS

: DATA AREAS.

CMMARK: .WORD
NULPAR: .WORD

CMMARK , SP

33333
O

: ERROR RETURN.
:LOAD NULL PAR LIST ADDRESS.

:RESTORE STACK TO ENTRY STATUS.

:THROW AWAY SAVED RS (WITHOUT
———AFFECTING C BIT).

:RET_AN TO CALLING PROGRAM.

:STORAGE FOR STACK PTR ON ENTRY.
:PAR LIST CONTAINING NO PARS.

D DDIDDDDIDDOIDIIIDIOLOOODPOPDODDODOCD

(

000002

000004

.SBTTL

MOTI MDD NN

(?;

SEQ 0122

033542

PAGE 46

COMMAND PROCESSOR INITIATING ROUTINE

538;!7!
3079
(3)

F 10

09:48

T T TTIT T I T T I I T IO

12=-SEP=78 15:13

20-0CT-78

MACY11-30A(1052)

PCLEXR.P11

(ZPLABO PCL11 EXERCISER V02

—

———

(ZPLABO PCL11 EXERCISER V02

PCLEXR. P11

12=-SEP-78 15:13

20-0CT-78

MACY11 30A(1052)

G 10
09:48 PAGE 47

SEQ@ 0123

KEYWORD PROCESSING ROUTINE

.SBTTL

KEYWORD PROCESSING ROUTINE

ON ENTRY, THE TOP OF THE STACK IS AS FOLLOWS:

CALLING INSTRUCTION:
(SP):

PC ,KEYWD

THE TOP OF THE STACK IS AS FOLLOWS:

ROUTINE ADDRESS, IF KEYWORD IN TABLE; O IF NOT.

IF THE KEYWORD IS IN THE TABLE, (=0 ON RETURN.

000002

000004
000022
000C24
000026
000026

033652
033652
033652
033656

STACK POINTER OFFSETS
;ROUTAD =
0

;ROUTINE ADDR FOR

ADRINP

;ADDR OF

=
=

SRC

RESULT
KEYWD:
000160

033662

016602

000026

033666
033670

033672
033674
033700
033702
033706

005722
001051
012205
0105€6
011204
010466
016603

033712

012316

162706

REGSAV
JSR
SuB

MOV

000002
000024

177400

042701
001431

177400

033732

122423

4
22
24

26
26

RS ,REGSAV
#6,SP
SRC(SP) ,R2
(R2)+

BNE
MOV

NOTHER
(R2)+,RS

MOV
MOV
MOV

aR2 R4
R4 ,ADRINP(SP)
TABLAD (SP) ,R3

MOV

000004

042702
112301

TST

033714
033716
033722
033724
033730

112302

LENINP
RETURN
TABLAD

004567

IF NOT, (=1.

RS,LENINP(SP)

GTLENS: MOV

(R3)+,aSP

MOvVB
BIC
MOVB

(R3)+,R2
#177400,R2
(R3)+,R1

BIC

BEQ
NXTCH:

C(MPB

#177400,R1

NOTHER

(R4)+,(R3)+

DIIDD

ON RETURN,

JSR

: CURRENT TABLE
; ELEMENT.

INPUT WORD

;#CHAR IN INPUT WORD
;SUBROUTINE RETURN ADDR

DDDIDDIDDDD

4(SP):

RETURN ADDRESS
TABLAD
SRC

:ADDR OF KEYWORD TABLE

;ADDR OF INPUT OBJECT
;RESULT RETURNED

;**ENTRY POINT
=«
;SAVE REGISTERS.

;ALLOCATE STACK SPACE
:GET ADDR OF INPUT
; OBJECT

:1F OBJECT NOT A WORD

; THEN EXIT: NOT FOUND
;GET # CHAR IN OBJECT.
;STORE ON STACK.

:GET ADDR OF INPUT WORD.
;STORE ON STACK.
:G$LBA20R° OF KEYWORD
LE.
:
:SAVE ROUTINE ADDR OF

; 1ST ELEMENT.
JGET MINIMUM LENGTH
; OF TABLE WORD.
JGET FULL LENGTH.
b

“IF 0, THEN NO MORE
;

TABLE

TO SEARCH

: COMPARE INPUT (HAR

; WITH TABLE (HAR.

———

(SP):
2(SP):

VLV

SUBROUTINE TO DETERMINE THE ADDRESS OF THE PROCESSING

ROUTINE ASSOCIATED WITH THE KEYWORD REPRESEWTED BY
THE SYNTACTIC OBJECT POINTED TO BY THE ARGUMENT
SRC.
CONVERSION FROM KEYWORD TO ROUTINE ADDRESS
IS DONE AS DEFINED IN THE KEYWORD TABLE
POINTED TO BY THE ARGUMENT TABLAD.

033734

002427

BLT

NOTHER

;1F<,

THEN NO MATCH

033736

003005

B8GT

NXTWD

S1F>,

THEN TRY NEXT

033740

005305

DEC

033742

001413

BEQ

THFND

005301

DEC

;IF MORE CHAR [N TABLE WORD
; TO TEST, GO & TEST THEM.

R1,R3

;GET ADDR OF NEXT
; TABLE ENTRY.
;POINT TO BEGINNING
; OF INPUT WORD.
;GET LENGTH OF INPUT WORD.
;GET LENGTHS OF TABLE WORD.

033744
033746
033750
033752
033754
033760

000001
000002

:
NXTWD

033772
033776
034000

THFND:

000026

034004
034010
034012

034014
034020
034024
034026
034026
034032
034034

NXTCH
R1

BIC

#1,R3

MOV
B8R

P)
LENINP(S,RS

ADD

MOV

000004

033764
033770

BNE
INC

CMP

000026
000006

004567
012616
000207

000020

;

WORD

NOTHER:

GTLENS

P)
LENINP(S,R2

BLT
MOV

NOTHER
(SP) ,RESULT(SP)

ADD
cLc

#6,SP

005066
062706
000261

,R4
ADRINP(SP)

KWEXIT

; EXISTS.

; TABLE WORD.

;1F INPUT STRING
; EXHAUSTED,

: WE MAY HAVE FOUND

;

MATC(CH.

#6,SP

JSR
MOV

RS ,REGRES
(SP) +,aSP

SEC
KWEXIT: REGRES
RTS

:IF LENCINP.WD) < MIN LEN (TABLE
; WORD), WORD IS NOT IN TABLE.
;SAVE ROUTINE ADDR. OF

; MATC(H.
JFREE LOCAL

STA(CK SPACE.

;CLEAR CARRY BIT.

IS NOT IN TABLE. SET RESULT TO O & SET Z BIT ON.
RESULT(SP)
;CLEAR RESULT.

CLR
ADD

CCCRLAREECEECEe¢

3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190

SEQ 0124

KEYWORD PROCESSING ROUT INE

;FREE LOCAL

STACK SPACE.

;SET CARRY BIT.

JRESTORE REGISTERS.

:POP AN ARGUMENT.

JRETURN.

VDVVOVVUVNVLVBVAOAV

3177

H 10
09:48 PAGE &47-1

VLUV

(ZPLABO PCL11 EXERCISER vQ2
12-SEP-78 15:13
PCLEXR.P11

20-0CT=78

P
.

'
MACYTT 30A(1052)

(ZPLABO PCL11 EXERCISER V02
12-SEP-78 15:13

PCLEXR.P11

3211
3212
3213
3214
3215
3216
3217

3218
3219
3220
3221
3222

3223
3224
3225

3226

—

MACY11 30A(1052)

20-0CT-78

110
09:48 PAGE 48

SEQ 0125

.SBTTL

SUBROUTINE TO SAVE RO - R5 ON STACK
:
CALL ING SEQUENCE

010446
010346
010246
010146
010046

RE GSAV:

MOV
MOV
MOV
MOV
MOV

JMP

000115

JSR

RS,REGSAV

s *%ENTRY POINTw*#

Ré,=(SP)

R3,=(SP)
R2,=(SP)

Ri,=(SP)
RO,=(SP)

@RS

SUBROUTINE TO RESTORE RO-RS5 FROM STA(CK
.

THE CONDITION CODE BITS IN THE PS ARE DESTROYED,

EXCEPT FOR THE CARRY BIT, WHICH IS PRESERVED.
CALLING SEQUENCE:

RE GRES:

BIT

MOV
MOV
MOV
MOV
MOV
RTS

RO, (SP)+
(SP)+ RO
(SP)+ R1
(SP)+ _,R2
(SP)+,R3
(SP)+ R4

JSR

RS ,REGRES

s**ENTRY POINT#«

;THROW AWAY OLD RS VALUE.

LEXICAL SCAN ROUTINE
.SBTTL

J 10
09:48 PAGE 49

SEQ 0126

LEXICAL SCAN ROUTINE

PERFORM LEXICAL SCAN OF INPUT COMMAND IN

BUFFER.

THREE CLASSES OF SYNTACTIC OBJECTS ARE RECOGNIZED:
1. WORD: A STRING OF CHARACTERS BEGINNING WITH
A LETTER & TERMINATED WITH A
BLANK OR CARRIAGE RETURN.

2. NUMBER: A STRING OF OCTETS TERMINATED WITH A

BLANK OR CARRIAGE RETURN, OR A STRING OF DIGITS
TERMINATED WITH A DOT.

3. CHARACTER STRING: A STRING SURROUNDED BY 2 INSTA(ES

(1 ON EACH END) OF A SPECIAL CHARA(CTER.

SYNTACTIC OBJECTS ARE SEPARATED BY 1 OR MORE BLANKS.
THE COMMAND IS ENDED BY A CARRIAGE RETURN.

THIS LEXICAL SCANNER DETERMINES THE LOCATIONS OF THE
SYNTACTIC OBJECTS & DETERMINES THEIR CLASSES.
NUMBERS ARE CONVERTED TO THEIR BINARY VALUES.

SYNTACTIC OBJECT WILL BE REPRESENTED ON THE STACK

AS A 3 WORD QUANTITY AS FOLLOWS:
SYNTACTIC CLASS:
B
TOP WORD

0==>WORD

==>NUMBER
4==>CHARACTER STRING

2ND WORD

ROUNDING DELIMITER)

AT THE END OF THE LEXICAL SCAN THE STACK WILL BE
ARRANGED AS FOLLOWS ('14 = NO. OF SYNTACTIC OBJECTS):

SIGNIFICANT FOR NUMBERS: DOES NOT
g?gliggg SURROUNDING DELIMITERS FOR CHAR.

I
O

NTH OBJECT

] Comm SP
I
I

LENGTH OF OBJECT IN CHARACTERS; NOT

VALUE OF NUMBER, OR POINTER TO 1ST
LETTER OF KEYWORD OR 1ST SIGNIFICANT
CHARACTER OF STRING (IE: NOT SUR-

3RD WORD

TRTR

T ET

TETE

I I

AFTER THE LEXICAL SCAN IS PERFORMED, EACH

12-SEP-78 15:13

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

20-0CT-78

MACY11 30A(1052)

LRI

1ST OBJECT

WHERE EACH OBJECT IS REPRESENTED AS ABOVE.
CALLING SEQUENCE:

R1=BUFFER ADDRESS
R1,LXSCAN
JSR

ON RETURN, REGISTERS 0-5 ARE UNDEF INED.
EXCEPT FOR THE ABOVE TABLE, THE STACK IS AS IT
WAS BEFORE ENTRY TO THE ROUTINE.

3300
3301

034070
034070

3303

034074

3302

034072

(1)
(1)

034074
034100

3304

034104

(1)

(1)
(1)

(1)
(1)
(1)
(1)
(1)
(1)

(1)

(1)
(1)
(1)
(1)

034102

034106

012605

122527
001775

000101

121527

000132

034116
034120

003002
005004

034144

034146
034152
034154

034160

648 :

000424
012704
000421
121527
002406
121527
003367

;**ENTRY POINT#=#
:CLEAR #OBJECTS.

SPAN

RS, <#' >

*RS = ADDR (1ST NONBLANK CHAR)

MOV

66%:

000060

67%:

000071

121527
001356
012704
000174

000015

000055

(RS)+
#*
648

SYNCLS

@RS,R4

69%
#4 R4
69%
arS.4'0
68%
arS,#'9

(MPR
BNE
MOV
JMP

@RS, 415
66$
#6,R4
aSJT(R4)

:PROCESS OBJECT

.WORD
.WORD
.WORD
.WORD

SCWORD
SCNO
SCCHAR
SCEOL

:WORD PROCESSOR.
*NUMBER PROCESSOR.
:CHARACTER STRING PROCESSOR.
:END OF LINE PROCESSOR.

RS.R3
RS,<<#' >, <#15>>

:R3 = START ADDR OF OBJECT
:RS = ADDR (NEXT BLANK OR CR)

BEQ

034200
034202
034204
034206

034210
034250
034414
034454

SJT:

3312
3313

034210
034212

010503

SCWORD: MOV
BREAK

(2)

034216

001405

(2)
(1)

034224
034226

001402.
005205

034232
034234

010346
160503

(2)
(1)

3314
3315

3316

3317
;g}g
3320

3321

034220
034230

034236

034240
034242
034244

034246

121527

000040

121527

000015

005403

PLAC:

005202

LXINCN:

010346
010446
000712

CMPB

BEQ

ars5 4"
65%

@RS, 415

64$

MOV
suB
NEG

MOV
MOV
INC

65%

CMPB

BEQ
INC

000770

66$

#2 R4
69%
@RS, 4~

3307
3308
3309
;g}?

034212

66$
R4

MOV
BR
CMPR

034162
034166
034170
034174

(2)

67%

BR
MOV
B8R
(MPB
BLT
(MPB

(1)
(1)
(1)
%_532

000006
034200

:DETERMINE SYNTACTIC CLASS.

aRS,#'A
@RS, #'7

BGT
CLR

:GET ADDR. OF COMMAND BUFFER.

(MPS

BGT

68$ :

(SP)+,RS

(MPR
BEQ
BLT

000004

000002

(MPR

65%:

012704
000410
121527

001757

CLR

DEC

121527

002410

034122
034124
034130
03132
034136
034140

000040

NXTEL:

005305

034110

034112

IF LXSCAN DETECTS AN ERROR CONDITION, IT RETURNS WITH THE CARRY (()
BIT SET; OTHERWISE IT IS CLEAR. AT THE MOMENT, THE
ONLY ERROR CONDITION DETECTED BY LXSCAN IS A STRING WHICH IS MISSING
ITS CLOSING DELIMITER.

LXSCAN:

005002

SEQ 0127

g8
X

:
:
>
:

3295
3296
3297
3298

PAGE 49-1

3294

LEXICAL SCAN ROUTINE

K 10

09:48

12=SEP=-78 15:13

20-0CT-78

65%
RS

R3,-(SP)
RS.R3
R3

R3,-(SP)
R&4,=(SP)
R2

NXTEL

:PUSH ADDR OF OBJECT ONTO STACK.
:R3 = (=LENGTH OF OBJECT)
:NEGATE TO GET LENGTH.

:PUSH LENGTH ONTO STACK.
;Ptsj?:CEYNTACTIC CLASS ONTO
: INCREMENT

:GO TO SCAN NEXT ELEMENT

TMM

PCLEXR.P11

MACYT1 30A(1052)

MAaITTT

CZPLABO PCL11 EXERCISER v02

CZPLABO PCL11 EXERCISER v02
PCLEXR.P11
12-SEP-78 15:13

MACY11 30A(1052)

SCNO:

121527

SNXTDG:

002415

121527

003012

20-0CT=78

LEXICAL SCAN ROUT INE

005000

010504

000071

CLR
MOV

aRS,#'0

(MPB

@RS, 4'9

MULT

10..RO.R3

BGT
ASL

MOV
ASL
ASL
ADD

MOVB

012746

000040

SNTDIG:

000015
000056

000002

000736
005000

121427

000060

121427

000067

002413

003010

112403
142703

034404

060300
000762

034406
034410
034412

020405
001024
000751

034420
034420
034422
034424

;IF DELIMITER = SPACE, TRY
; CONVERTING OCTAL NO.

TRYOCT

LXINCN

;IF DELIMITER = CR,

TRY

; CONVERTING OCTAL NO.
;IF DELIMITER IS NOT DOT,
; THEN SIGNAL LXSCAN ERROR.
sPUT CONVERTED NO. ON STACK.
;SET OBJECT LENGTH TO_ZERO.

;SET OBJECT CLASS TO 2
; (NUMBER).
- INCREMENT 0BJ. COUNT &
: SCAN NEXT 08J.

;CLEAR ACCUMULATED NO.

RO
@R&4,4'0
ODEL IM

;

ODEL IM

; THEN TREAT AS DELIMITER.

(MPB

aR4 4'7

MULT

8..RO

ASL
ASL
ASL

RO
RO
RO

BICB

#60.R%

(R4)+,R3

:IF

CHAR < '0",

THEN TREAT AS DELIMITER.

:IF CHAR > '7",

;MULTIPLY PREVIOUS DIGITS BY 8.

;GET CHARACTER.
;CLEAR TOP BITS OF ASCII CODE.
sADD DIGIT.
;GET NEXT DIGIT.

ADD

R3.R0

cMP
BNE

R4 RS
LXERR

;IF _NOT AT END OF NO.(DUE TO
; "8 O0R "9') , LXSCAN ERROR.
;GENERATE OBJECT FOR NUMBER.

MOV

(RS5)+,RO
RS,R3

BREAK

RS,<RO,#15>

;RO = DELIMITER OF STRING.
;R3 = ADDR (1ST CHAR OF
: STRING ITSELF)
;RS = ADDR (NEXT DELIM OR CR).

BEQ
CMPB

658
@RS, #15

SCCHAR: MOVB

(MPB

000015

aRS.4"
TRYOCT

B8R

034414
034416

SNXTDG

;CLEAR TOP BITS OF ASCII CODE.
;ADD DIGIT.
sGET NEXT DIGIT.

MOV

B8R
ODEL IM:

R3,R0

LXERR
RO,=(SP)
-($P)
#2,-(SP)

MOVB

000060

(R5)+,R3

(RS)+,4".

8GT

THEN TREAT AS DELIMITER.

JMULTIPLY PREVIOUS DIGITS BY 10.

RO
R3,R0

(MPB

CLR
ONXTDG: (MPB
BLT

006300
006300
006300

;IF CHAR >'9"’

RO,R3
RO

@RS, 415

TRYOCT:

;SAVE POINTER TO 1ST DIGIT.

;

(MPB

BNE
PUSHNO: MOV
CLR

sCLEAR ACCUMULATED NO.

SNTDIG

B8R

BEQ

SEQ 0128

SNTDIG

#60.R3

(MPB
BEQ

PAGE 49-2

;IF CHAR <'0"'
; THEN TREAT AS DELIMITER.

BICB
ADD

121527
001413
121527
001410
122527
001052
010046
005046

RO
RS R4

(MP8

BLT

L 10

09:48

ONXTDG

PUSHNO

aR5,RO

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

m10

MACYT1 30A(1052) 20-0CT-78 09:48
LEXICAL SCAN ROUTINE

3367
3368
3369
3370
3371
3372
3373
3374
3375

3376
3377
3378
3379
3380
3381
3382
3383
3384
3385

65%
RS
649
., 215
aR5

MOV

R3,-(SP)

SuB

RS,.R3

s STACK.
;R3 = (=LENGTH OF

INC

;RS = ADDR (CHAR AFTER CLOSING

B8R

PLAC

SCEOL:

MOV

R2,=(SP)

LXIT:

JMP

aR1

000915

3386

000261
005302
002774
062706
000772

3388
3389

000001

3387

BEQ

000671

010246
000241
000111

SEQ 0129

BEQ
INC
BR
(MPR

(2)

(V)
(1)

PAGE 49-3

cLC

LXERR

PROCESS LFXICAL SCAN ERROR .

LXERR:

SEC
DEC
BLT

ADD

.END

R2
LXIT

#6,SP

LXERR

;WAS CR FOUND BEFORE DELIMITER?
;YES, PROCESS ERROR

;PUSH ADDR. OF STRING ONTO
; DELIMITER)

STRING EXCL.

; DELIMITER).

sFINISH OFF PROCESSING STRING.

;PUSH NO. OF OBJECTS ONTO STACK

;INDICATE NO ERROR .

JRETURN TO CALLING PROGRAMME

:INDICATE ERROR OCCURRED .
:CLEAN UP STACK & EXIT .

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11
ADQLD

12-SEP-78 15:13

006740

ADR INP= 000002

503

3147#

ADSILO 017776
ADAREA 016440
AOEND = 016540

566
2350#
2350

AOS1ZE= 000040

3084

1212#

3164+

853«

986+

991«

992«

1223

2203«

2204

2246+

2248

24674

626

910

1343

1453

1462

631
639

639
2061

889

1000

1628

A.C
A.CR
A.L

016160
016044
016162

2158
2260
2159

2314n
22724
2315#

016156
016164

2157
2160

2313#
23164

1398
3434
3648

14608

A.LF

016040

A.P
A.PR

BKELEM

030266

BSYINT 010430
BUSY = 004000
800
= 000001

2261

1231«

1232

1344

1348

23504

1487

1513

1548

1631

1680

1382

1528

1552

1638

1644

993

1189

1193

1097#

2311»

2271#»

1232
1646

801

= 000002

B04
B0S

= 000020
= 000040

3604
359#

607
607

= 000200
= 000400
= 001000
= 002000
= 004000
= 010000
= 020000
= 040000

35748
3564
355#
3548
3534
3524
351
3504

1700
1450
1442
1436
1418
1414
1410

1624
1620
1616
1601
1543
1593

1597
1627

1646

1363
1642
2199

1367
1682
23314

1399
1691

1440
1773

1444
1832

1454
1833

1461
1854

1486
1905

2081«
1749

2161«
1758

2174
2829#

2179«

2199

2201

2202«

23324

1707
17004
22694
2161
495
11204
11174
24764
3105
2065#

171

17144

2174
1111«

23304
2082«

2162«

2357#

3107

3113

31194

3109

31134

1802
803

BO6

807
808
809
810
811
B12
813
B14

B15S

= 000004
= 000010

= 000100

= 100000

CBFEND= 016402
CBTA
032744

CBUFPT
coomGc

CHAR =
CLEAV
CLKEXT
CLKINT
CMCHTB
CMDBUF
CMDENT
CMDRET
CMDRTN
cMpTBL
CMMARK
cMMISC

CMRET

COMAND
COMENT
CPADD

016402
033102

000002
004106
012322
012230
016034
016176
017641
006430
006406
030276
033646
015020

033636

(033542
006322
004536

3630

2350

SEQ 0130

3190

852+

006304

1092

PAGE 50

26144

ASEXT

2180

N 10

09:48

613

016424

016152

20-0CT-78

CROSS REFERENCE TABLE == USER SYMBOLS

AOQ

A.BKSL

851+

MACY11 30A(1052)

3628
3614

3584

3494

2739
2190#
570

1703
457
2063
1113
424«
1118
1114
1113
3098«
2065

3100

1113
497
76648

467

466

2860

2193
6394

3104

30794
11104
2476

540

704

867

865

884

915

946

959

1512
2107

1527
2117

1587

1690

1226

1626

1284

1632

CZPLABO PCL11 EXERCISER V02
PCLEXR.P11
12-SEP-78 15:13
004552
CPALP
CPARTN 004634
CPASS
005704
004764
CPCLR
CPCLRC 005014
CPCLRT 005056
CPCNRT 005212
005126
CPCNT
004644
CPDEL
004660
CPOLP
CPDRTN 004754
006612
CPERR
CPERTN 006730
005522
CPGO
CPINIT 005222
CPINRT 005460
CPMAST 004130
CPMLP
003520
004144
CPMOK
CPMRET 004212
CPRANG 004400
CPRFIL 004502
004306
CPRIB
CPROK
004322
CPRRET 004376
CPRRTN 004526
004214
CPSEC
CPSEX
004076
CPSILO 003420
CPSLV
004034
004230
CPSOK
CPSRET 004300
CPSRTN 005116
CPSTAT 005066
CPSUM
005470
CPSURT 005512
CRRET
015100
CR.
= 000015
CTLCMG 016412
CTLOMG 016404
CTLUMG 016707
CTL.C = 000003
CTL.0 = 000017
CTL.Q = 000021
CTL.S = 000023
CTL.U = 000025
017752
CURAD
CYCL
007362
DATBUF
020666
DATGEN 007136
DATGEV 017660
011110
DBCLP
DBFCLR 011074
DDIV
033256
DECJSP 032716
DECPNT 032724

7714
7884
10234
834a4
8434
8544
888
8814
7944
7954
8214
11774
1188
9824
9054
974
6494
5834
651
653
7234
7474
694n
696
698
7534
6694
6334
5654
621
671
673
8684
8624
9564
9614
2080
3334
2126
2094
2135
3364
3344
3374
3384
3354
1349+
1302
1272
506
504
15604
1547
2839
1852
1783

8B N
20-0CT-78 09:48 PAGE 50-1
MACY11 30A(1052.
CROSS REFERENCE TABLE == USER SYMBOLS
786
790

2479
2482
850
856
89504
2485
2488
819
823

892

1197

642

688

2272

1502

24004

1285+

1367«

23674

1955
1791

27204

1477

24334

1795

27264

SEQ 0131

ERMIN
ERMINR
ERMIS
ERMISR
ERNE
ERR
=
ERRA
ERRADR=
ERRB
ERRBT
ERRB2
ERRB3
ERRC
ERRD
ERRE
ERRINT
ERRMOD

014344
014562
014454
014700
012162
100000
010004
000004
010040
010120
010154
010210
010234
010302
010356
007750
014250

ERRMOR
ERRNUM=
ERRX
ERRO

014466
000002
010406
017770

017772
ERR1
017774
ERR2
ERTBCL 005314
ERTBL
024726
ERTBLO= 024720
005336
ERTCD
ERTMSG 031151
ERTRAP 003340
ESCFLG 017756

EXCNT
EXRST

FIRST
FRELEM

GTLENS

031247
031225
017710
030264

033712

HDRFLG 017716
HOURS
017646
INPLIN= 000002

2219

2981#

1278

1279+

1280+

1283

23904

2158

2159

2160

2180

2204

2231

16184

16224

14484
16694

29984
29944
3000

25564
2157

14124
15954
19954

14284
16124

14324
16144

14344

14384

2248

2260

14524
16764

2261

14744

2262

14934

1517

15994

14244
16074

20144

2029

1416

1424

1428

1432

1434

1438

1448

1452

1474

1493

1599
20144
1425

1607

1612

1614

1618

1622

1669

1676

1685

2014#

1429
1861*
1856
1851

1433
1883
1858+
1855«

1435
1896
1860«
1893

1441
1912«
1899
1902

1449
24074
1907
1906+

1451

14534

1909+
24094

1911+

24084

14164

16854

1282
1265#
1268#
12724
1268

~N —

DONE
= 000200
DQEMP
033530
DONOWP 033522
DORET
033526
DTCOON 007314
007254
DTCLP
DTCNT
007170
DTGNC
007206
DTGNCO 007230
DTSEED 017726
ELPSTM 031700
ENQ
033402
ERADR = 012162

2054
29234

033460
033320

SEQ 0132

DEQ
DIV

12-SEP-78 15:13

-l

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

cn
2)
20-0CT-78 09:48 PAGE 50-2
MACY11 30A(105
CROSS REFERENCE TABLE == USER SYMBOLS

20334

2004#
20434

16854
14144
1991
14184

14264
14304
1434k
14364
14424
14504
14104
1412

1595

1984
1417
1829
1834«
1835+
923
1961

2028

924k

25444
5364
630+
24024
25464
25454
600
1349

3193
1823

990+
3099

1845
1848
1842

2022

24434
24534

2453

640
3103«

662+

683«

710%

752

787+

820+

839«

908+

1112+

1359

2054

2055+

2056

2062«

2066

2069

2219

2220

24664

1825+
1713

1782

1833«

1877

1879~

23824

23794

23624

117

CZPLABO PCL11 EXERCISER

PCLEXR.P11

INTENB= 000100

INTTMP 030274
ITEM = 000002
033652
KEYWD
KWDERT 004302
KWEXIT

KWFLG

v02

12-SEP-78 15:13

034026

017650

KWTABL= 000004

LCS
016150
LENINP= 000004
= 000012
LF.
LXERR
034462

LXINCN 034244
LXIT
034460
LXSCAN 034070
030560
MDNER
ME SSAG= 000002
MINUTS 017644

3454

MACY11 30A(1052)

2999+
31544

456

461+

887

998

1778

455
31484
3324
3340
33204
33794
3099

889+
3162+
2271
3360
3345
3384
33004

1000+
3192

1700+
3195

2150+«

23064

3368

33824

3386

1295#

1709«
1672

1710

1712«

1786

23604

1264*

1265

1273

1277

1283«

23924

14128

14168

15994
600

1424

16074
23804

1428

14324

14344

25814
3177
1526

3196

32044

677

3201

3207#

3079#

3108

454+

1139
2244

25354
2245
988+

MSCHNG

030632

1159

031274
031332
031373
031441
031507
031032

622
623
624
625
629
1239

25474
25484
25494
25504
25514
25414

= 000031

2640

164004

MSTMG1
MSTMG2
MSTMG3
MSTMG4
MSTMGS
MTQMSG

MUL

NMINT
NOERMG

017732

007352

:
017712

010774
032226

032563
NONMG
NOTHER 034014
NOWMST= 000004
NQFULL 033454
NONOWP 033446
NQRET
033452
NULPAR 033650
NXTCH
033732
NXTEL
034074
NXTWD
033752
NXTO
003004
NXT1
003026
NXT10
003270
NXT11
003312
NXT12
003334
NXT2
003050
003072
NXT3
NXT4
003114
NXTS
003136
003160
NXT6
NXT7
003202
003224
NXT8

SEQ 0133

2989+
3108

2231
2968
676

912+
1279

MSGLSD

PAGE 50-3

24704
29814
701

2230+
29614
656
657

007336

017730

09:48

CROSS REFERENCE TABLE == USER SYMBOLS

MLI

ML SD

20-0CT-78

939

939+

13004
15174
582+

1395
1186

1838
3160
13794

2967

2971
29754
3111
31754
33034
3179

493
496
523
526
529

499
502
505
508
5N
514

517

23914
25364

1262+

1305

15864
586

15264
25684

1888
3173
1393
29774
29734
2978
31204
3186
3321
31884
4954
4984
5254
5284
5314
5014
5044
5074
5104
5134
S164
5194

6874

15954
596+

702

16124

2148

16144

23634

16184

14388
16224

14488
16694

14528
16764

1474k
16854

14938

2444

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

NXT9
OBJCNT
OCTJSP
OCTPNT
ODEL IM
ONXTDG
ORIGSD
PADFLG
PARCLR

PART1
PART?2
PART3

PART4
PCCALL
PCLEX
PCLEXM
PCLGO
PCLOOK
PCLOOP
PCLRCV=

12-SEP-78 15:13

003246
017760
032702
032710
034406
034352
017724
017720
005310

520
575+

451

2714m
3350
33494
938

E1 1

MACY11 30A(1052) 20-0CT=78 09:48 PAGE 50-4
CROSS REFERENCE TABLE == USER SYMBOLS
5224
589+

006006
006074
006162
006246
032670
000

24034
1943

27084

1142+

1236

1340

1439+

2156+

23754

2293
2285

2294
2286

2295
2287

2296
2288

2289

2290

474

885

996

1138

1140

1158

1160

1839

1889

2084

2176

484
1239

537

622

629

886
1798

1115
1827

1139
1838

627

23834

884+

994»

531
2292
2284

1098

L64H

21814

22054

PNCRLF

015524
015752

PNTLIN

015706

PUSHNO
Q@8ACK
QBoT
QCHACT

618

611+

PMRE
T

PRINIT
PRINTD
PRMISC
PROCHR
PRST
PS

1939

33594

PDRET
PLAC
PLCRLF
PLODEC
PL219

PRDEL
PRESC

617
1900

1849

3352
3357

PCQUIT
PCREST
PCRST

PRCLR
PRCR
PRCTLC
PRCTLO
PRCTLQ
PRCTLS
PRCTLU

612

609

604
1846

1744

PCLTXM=

PM176
PM187

1897

603+

483

571«

SEQ 0134

005004
015040
015154
015102
015144
015134
015176
015372
015214
005240
017714
015472
032654
002446
177776

034336
000012
000006
006760

2254

1238

21164
21064
21344
21714
475
447
1836

2069
4484

3284
33414
3174
3154
12174

1960

2094

2126

2135

997
1826
2244m

1968

2127

21474

2177

2970

2972+

624

1775

1763

1888

1769
1904

1119

1145

1240

1806

1891

1854+

1886

1890+

1905+«

23814

434

464+

486+

541%

1097«

1383«

433«

853+
2991

992+

2093

2968+

2969+

1159
1853
8404

20784
2125#

623

1772
1956

1881

625

1777

1797

2272

20914

1840«

2273

26144

3361

2970
1222

(ZPLABO PCL11 EXERCISER V02
12-SEP=78 15:13

PCLEXR.P11

QELEMS= 000000

QMTRN
QRTN
QSIZE =
QTOP
=
QUEUE =
RADB
RADBO =
RADEND
RANK
RANM

RBCIMG
RBSTMG

017656
007030
006772

007060
007014
000002
000004
000004
020..0
020064
U20664
017750
017746

RCVEV

017702

RCVVEC
RCwD =
RDBA
RDBC
RDCRC
RDDB
RDOINC
RDOINT
RDORTN
RECV
REGRES
REGSAV
RELZRO=
REQINP
REREV

1363+

2989
23664

2990+

2991

852
29814

853
2986

991

992

2972

2993

810

1356

24194
1483

2429
1508

26294

1626+

1627*

1631«

23934

2993+

1671
1095+

24384
23264

441
1548+

1551«

1552«

1583

1651

1653

1640
1580
25794
985+
1042%

1654

1672+

1673«

1674

1225+
1096+

5278

1364

23944

538«

15462

1587«

1632+

25774
1574

25804
22914

2578#

510
1577#

011144
011160
011174
011210
011124

15804
15834
15864
15734
436«
1551
1549«

016134
020000
016126
016124
016130
016122
011720
011652
011704
011024
034052
034036
002000
017640
017654

2093+

23994
2398#

RCTXPS
017736
RCVEC
016174
RCVECT= 000174
RCVINA
RCVINB
RCVINC
RCVIND
RCVINT

991+
1214+

852+

993+

1216

RCBUF
022726
RCDEV
016172
RCDOR =
00
032517
RCELIN
RCER
=1
RCERC
032553
RCPRIO= 000005
RCR
016116
000040
032517
017734
000200
032534

SEQ 0135

1241

031657
031640

RCRCM =
RCRNO
RCSEED
RCSUC =
RCTRN

F 1

MACY11 30A(1052) 20-0CT-78 09:48 PAGE 50-5
CROSS REFERENCE TABLE == USER SYMBOLS
(33

QFRONT= 000010

QLDEV
QLOAD
QL 00K

1550+
22964
1639

16464

536
3824
423
528

1638+

1642+

1682+

1691~

23764

1563

1690+

1588

1629

1643

1681

1663

22934

1463

1488

1514

1529

1213

1381

1573

2229

3155

32154

2083+

2172
2155+«

2191
23654

23564

944~

1680+

22954

1401

2079

1646+

440

16384
1647
1545#
1227

2232

1644+

3207

1832+

CZPLABO PCL11 EXERCISER V02

1597#
16014
16094

16144

16164
1620#
16244
1600

RERRC(

RERRD
RERRE

RERRX

2041

RERTBL

1882
1633

RERTN

RERTRN

T=
RESUL
RE TURN=
RJCTF
RPMSG
RRHL IN
RRJINT
RSADD
RSFLSZ

1608

1613

1615

1892

1910

19134

1500

23954

1422
1577

1426+
1580

1430
1583

1677

16804

1686

24614

3197«

%
3204

1260+

1270+

1619

1623

1625

16314

2576

16904

25404
16624
449
16584
1421«
1574
1653+

RSHOLD

RSNTO

RSPC
RSR

1593#
18734

016120

031000
012134
011750
012054
011732
012140
012050
002646
RUBOUT= 000177
033356
SAVRG
SCCHAR
034414
SCEOL
034454
034250
SCNO
030532
SCTBL
034210
SCWORD
SECNDS
017643
SERFL
006672
SETCN
032732
SHBRT
010570
003674
SILLD
T
034200
SJ
003704
SLOLP
SMADV
014214
014226
SMARXT
SMCHK
014000
SML IN
032574
032574
SML IN1
SML IN2 032616
SML IN3 032642

25394

RSTMSG
RSUCHK
RSUCNT
RSUGEN
RSUINT
RSULV
RSUTST
RTRYA

16784
16544
1679
16514
1670
16714

24044

22924

911«

487
2277
2830
33634
33774
33234
676
33124
987«

2710

2716

2722

61C
3305
6144
1935
1932

612#
33074

619

1956
1936
1940

25824
25834
25844
25854

3308

1183

1475

19314

1944

1189#

14864

616
19644
19674
1965

1609+
1603

1603+
1593

544

29444

701

2524m

1705«

1706

1708=

2728

27304

1494

1790

2359

RERRB
RERRB
RERRBZ2

25754

(o Y]

RERRA

1880

REROS

032426
011244
013440
011300
011334

SEQ 0136

RERHDR
RERINT

12-SEP-78 15:13

PCLEXR.P11

G N
'
MACY11 30A(1752) 20-0CT-78 09:48 PAGE 50-6
CROSS REFERENCE TABLE == USER SYMBOLS

264014
1620

1624

1628+

014130
014246
014134
032142
034314
034254
010720
010656
010750
017704
006432
006504

STHDR
STITLE
STKTOP=
STLIN

012554
031762

254

1962

SEQ 0137

1965#

33354

1M#

— ek

B NN =D

WONWWOOOO

SMPN
SMRTN
SMSPN
SMTTLE
SNTDIG
SNXTDG
SORCNT
SORINT
SORIP
SPCEV
SPEC
SPERTN
=
SR

ded

CZPLABO PCL11 EXERCISE
12=-SEP=7

PCLEXR.P11

MACY11 30A(1052) 20-0CT-78 09:48 PAGE 50-7
CROSS REFERENCE TABLE == USER SYMBOLS

1141+

1440+

23774

386

420

485

543

1734

1737

1741+

1742

1745+

1800
1004
942+

1803

18074

1143+

1805+

2152+

23704

959+

1144

1967«

2153+

23684

1931

1933

1957+«

1961+«

1964+

482

23694

592
733

736

606

6354

776

7894

804

8224

177570
= 000026
013056
STARXT
STATUS
012324
013044
STBADV
012344
STCHK

SRC

STLINM
STLINZ
STLIN3

STPNTR
STRTN
STRTRT
STSEV
STYHR
STYON
STYONT
STYTHR
SUCCS
SUCIA
SUCINP
SUCINT
SUC INY
V
SUME
SUMHDR
SUMPNT
SUMRY
SUMSV
SYNRR
SYNRTM
SYNRTN
SYNTAX
SYNTCN
SYNTIN
SYNTRA
SYNTRC

SYNTRD
SYNTRS
SYNTSM
SYNTX

002000
032054
032054
032076
032124
017670

013076
005674
017666
012446
012462
012524
012510
010644
010612
010534

25624
25634

1747

010460

010474
017662
014164
017672
013764
017664
006732
004100
004530
030704
005214
005462
004636
005060
004756
005120
005514
005676

595

738

740

7554

23724

1754«

1756

1764+

1799+

1802+

CZPLABO PCL11 EXERCISER V02

TEMP

017764

TEMPY
TEREV

017766
017652

TERHDR
TEROS

31504
24584
24654

1057

1065

1070

1073

1081

1086

1089

867

910+

1343«

1359+

1360+

1382+

1444

1453+

1462+

1487+

1513«

1528+

1982+

1983+

1999«

2000+

2001+

2002+

2003+

2019+

2020+

2021+

2038+

2039+

1998+
1831+

2001
2154+

2023+
23644

2034+

2035+

2036+

2037«

2002

24584

31954
2117+

1192
1841

2216

2228+

23844

989«

1701~

1702

1704+

1794

23584

492

2054

2231

23504

614+

22884
620

3165

1996+
943

25694
1815#
1180
1828

25524
25534

TIAREA

2350
25574

607«
2285#

TOAREA
016640
TOEND = 017640

T0Q

016624

TORET

015640

498

032362
032416
032312
017742
031105
031140
032377
032362
034350
016106
016104
016114
016102
016100
177560

015642
014764
014712
015572
000004

2042+
1997«

1189+

1729

24054

1859

626+

1820

24064

18624

631

1874

639+

658

661+

678

682+

1393

1526+

1767

1927

2092+
23504

2093+

2157

2158

2159

2160

2180

1420

1436

1442

1446

1450

2248
22214

2260

2261

2262

1261%

1267+

1271«

1470

23964

1346%

33484
22874
22864

1384
1469+

1387
1472

1390
1476+

1396
1491

2219
2218
2350

TOSIZE= 000400
TRAPS
002702

TTDEV =
TTIINT
TTINH
TTINP
TTOUT
TTPRIO=

1054

2041+

TICKS
TIEND =
TiQ
TISIZE=
TML INT
TMMR
016110
TMMRH
016112

TSCRC
TSDB
TSR

1049

22834

TERTBL
TERTN
THFND
THLTFL
THUMS
T
THUSCN

TRELIN
TRERC
TRHL IN
TRNKF
TRPDMG
TRP4LAD
TRRCN
TRRNO
TRYOCT
TSBA
TSBC

1041

4794
25714

471

3336

394«

402+

392«

1460+

2954

2058
494

500
2974

25744
25704
25424
25434
25734
25724
3338
1347+

22904
22854

2302

20624

2303

2304

T(BIN
TCR

000024
030270
030272
016076

TCBFPT

1038

1033

TABLAD=

1028
11004

SEQ 0138

CROSS REFERENCE

006316

MACY11 30A(1052) 20-0CT-78
09:4& PAGE 50-8
TABLE == USER SYMBOLS

SYNXR

12-SEP-78 15:13

PCLEXR. P11

———

C(ZPLABO PCL11 EXERCISER V02

12-SEP=78 15:13

MACY11 30A(1052)

TTRBUF
TTRCSR

016140
016136

2230

2302

TTVCTR=
TTVECT
TTXBUF
TTXCSR
TXBSY =
TXDEV
TXDGEN
TXER =

000060
016146
016144
016142
000020
016166
007566
100000

2067

2%#
437+
2220
2214
13764
387
1365
13754

2070

DMIT

007402

TTRET

TXMEV

467

015036

017674

1342+

1399«

1346

23974

915«

1337#

1360

1773

403«
1345

435+«
13634

438

22984

13,1

13614

1366

1368

1469
109+

1491

1495

23254

1161

1527%

6LOH

TXMSV

017676

2374k

TXRTN

703

302

007542

13780

TXSOR = 000040
TXSUC = 000200
TXVEC
016170

TXVECT=
=
x
XMTIB
XMTINT

XMTIS
XMTPNM
XMTPRB
XMTSR
XSPCEV

007634
007664
007714
007650
017706

XSPEC
006536
Y
= 000031

ZERO

016154

Zx1

= 000000

Zx2

= 000000

$8LK
$8LKS
$SGN
$SGNS
$SUP
$TR

13778
403
3014
24188
1396
435
1385
1391
1397
1388

000170
000040
007700
007600

= 000000
= 002000
= 000000
= 000000
= 000000
002550

= 034476

23054

1284+

1276

TXPRIO= 000005

2305
&h2
2304#
2303
1396
1090«
13674
1384

473«

52
26420

1339

709«

439

1390

1387
1074%

SEQ 0139

230

1226+

509

016132
007544

540+

940

017744

TXMVEC
TXOUT

PAGE 50-9

1460
23244

507

007400

09:48

1446
1093«

TXMST

20-0CT-78

CROSS REFERENCE TABLE == USER SYMBOLS

1472

1476

1454

1461+

1486%

13874
13934
1399#
13904
522

11574
24504

23784

23124

9094
17284
20784

9174
18194
20914

9564
1873#
21064

9824
19264
21164

10234
19764
21254

1
1
2134m

113748
19984
21478

11574
20004
21714

1177#
20144
21904

5784

19974

1998#

20004

20364

20374

20394

33294

33534

383

1279

1400

1412

29814

5788

30794

33294

33534

2709
28334
27094
28334
27094
453

27154

2721

27154

27214

2727%

27154
4604

2721

2727k

1434
1618
24384

1438
1622
2458&

1448
1669
24614

3704

2373#

1511

2262

S65#

1512«

26274
13964
13814

374

3764

27274

3814

1452
1672
25894

69N

382

1474
1676
2833

8=~
IS¥

PCLEXR.P11

J 1N

1493
1685

7668

1517
23304

794k

1586
2331

8344

1595
23504

BLON

B62#

8814

9054

1212#
20364
2213k

12584
20374
2244M

13394
20394
2259

1545#
20524
29614

1416

1424

1428

1432

1599
23614

1607
24148

1612
2428

1614
24334

2158
2807#
260#
24L8#
200#

LXSCAN

654

KE YWD

MULP
MULT
PROC

REGRES
REGSAV
RETURN
;

Lun

2174
151#

85#
956
1976

2961
280#
2232
274N
110#
1120

2085
2996
30084

446

652

995
1232
1474
1769
1889

997
1239
1517
1775
1904

447
524

1113
1240
1586

2176

2177

2180

1599

1607

1612
1428

701

3108

1998

2000

2159
2833
1586
1400

1416

656
3099

1279
578

669

565

982
2014
2981
542
3207
536
633
1146

2095

SPAN
STCVT
SYNCLS

26514
30414

3116
3303
2709
3304

. ABS.

034476

000

ERRORS DETECTED:

521

1777
1956

1424

694
1137

527

1548

1631

1680

1690

484

494

497

500

503

506

1115
1348
1595
1797

1138
1416
1612
1826
2066

1139

1140
1428
1618
1838

1145
1432
1622
1839

1158
1434
1669
1853

1159

1960

2260

2037

Lék

1513

—

1487

622

623

1424
1614
1827

2231

2069
2248

CBTAS
ERROR
ERROT
HED ING

1462

o~
N~
v
O&HONNVON

1763

1888

1453

515

SEQ 0140

—

916
1186
1452

PAGE 51

CROSS REFERENCE TABLE == MACRO NAMES

910

3313

09:48

PNOND
b d e

229
30204
129#
512

20-0CT-78

1622
1438

1669
1448

2039

3329

3353

BDINIT
BRE AK
CALL

MACY11 30A(1052)

—

CZPLABO PCL11 EXERCISER vO2
12-SEP-78 15:13
PCLEXR.P11

794
1212

624

1438
1676

2261

2126
2262

2135

1676

1452

1685
1474

1493

1517

862

881

905
1819

1873

1545

509
886

1160
1448
1685
1881

2157

917
1926

2078

2091

2116

2125

2134

2147

2171

1728
2190

2213

2244

2259

1227

16401

1455

1488

1514

1529

1563

1588

1629

1643

1681

1692

1213

1381

1557

2229

3155

854
1807

868

890

947

961
2008

1001

1110

1162

684

1194

1228

2108

2118

2163

2715

2721

2727

PCLEXR,PCLEXR/CR/NL
: TTM:ME<PCLEXR

RUN-T IME : 11 15 1_SECONDS
RUN-TIME RATIO: 137/28=4.8
10
(19 PAGES)
CORE USED:

1177

1361

2205

1553

2221

1258

2263

1339

1862

2783

1913

2869

1969
2906

2939

2047
2952

110

2070
2975