Digital PDFs

AH-E260B-MC

March 1978

141 pages

Original

5.8MB

view download

OCR Version

4.9MB

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

OCR Text

PC L1 1

’

PCL11 EXCERCISER V020

CZPLABO

AH-E260B-MC

DEC

FICHETOF1

MADEINUSA

copvriGHT 1978

1978

LREDAE

IDENTIFICATION
PROGRAM (ODE
:

AC~E2598-M(

PROGRAM NAME
:

CZPLABO PCL11 EXERCISER v=-02A

VERSION:

v=02

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 (ONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT (ORPORATION. 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
CANADA,

LIMITED.

NOYWNW

EQUIPMENT OF

< —d

1978, BY DIGITAL

maoy

((>

DIGITAL.

UPDATED:

21-SEP-76

CREATED:

DATE

——
P

SEQ 0001

1-1

GENERAL DESCRIPTION
DIFFERENCES IN EXERCISER v-02

1-1
1-2

EXERCISER TABLES

2-1

CLEAR

INITIALIZE
STATUS
SUMMARY
ERRORS

ASSIGN

GO
CONTINUE
**«SYNTAX ERROR=*»

GETTING THE EXERCISER STARTED
PREPARATION

LOADING
DEVICE ADDRESSES
STARTING ADDRESSES
OPERATING PROCEDURES
ERRORS

NONNONOIN)
= =
2
— = = OO N NOOWNWNE
S NN

DELETE

]
WWWWWWWWWK‘UWWWWWWW
AN WN AN AN N NN NN

RIB
RANGE
ADD

]

(OMMANDS
5IL0
MASTER
SECONDARY

OOWVNEWN—=O

CONTROL
-0
CONTRO! ~U
CONTROL
=S
CONTROL-Q
CARRJAGE RETURN
LINE FEED
RUBOUT

3-1

NN
— — —

CONON
N
NAY 2

e R'e o - NTo NV, ¥ AWV,

s
o

.
.
.
.
L]
L]
L)
L]
.
.
.

CONTROL CHARACTERS
CONTROL=C

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

P 2l LU
2 Sl I 3P I

Hwno
=
s

)
o

d
s
&

mad
—

[]

)

INNNINWIWNNNN

. L] L] L] [} . . . L] L]
. L] [ ]
L[] [ ]
ASTASTIN ] N1 WTaN T NN AW AN TSN T U1 AN 1 1N 1, V)

NWWWWNWWWANN
W NN WNININN
D

SEQ 0002
PAGE

GENERAL

EXERCISER COMMANDS

. [] [} ] [ ] a
[o ¥, R SV N o

EEDNEDNES

CONTENTS

STATUS TABLE
SUMMARY TABLE
ERRORS TABLES
CLEARING OF THE TABLES

—

ny —

—

TABLE OF

(PCL11) EXERCISER

—-0O0

PARALLEL COMMUNICATIONS LINK

TABLE OF

SEQ 0003

SHORTENED COMMANDS

5.2
5.3
5.4

RUBOUT FEATURES
ENTERING COMMAND MODE
UPPER OR LOWER CASE
EXERCISE MODE DESCRIPTION

TRANSM]T EVENT
RECEIVE EVENT
DATA GENERATION EVENT
ADPRESS QUEUE EVENT
ERRORS UPDATE EVENT
SPECIAL EVENTS

6.1
6.2
6.3
6.4
6.5
€.6
APPENDIX

(CONTD)

COMMAND INPUT MODE DESCRIPTION

CONTEN"S

EXERCISER OVERALL FLOW
APPENDIX B

EXERCISER COMMANDS
APPENDIX

(

ERROR DESCRIPTIONS
APPENDIX

STATISTICAL

INFORMATION

) e—

€D~

LISTING...

1-1
PARALLEL

GENERAL

1.1

GENERAL

SEQ 0004

COMMUNICATIONS LINK

EXERCISER PROGRAM

DESCRIPTION

THE PDP-11

PARALLEL COMMUNICATIONS LINK

(PCL11) EXERCISER

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

WHICH MAY BE EXERCISED IS 31, ALTHOUGH THE NORMAL MAXIMUM CONF IGURATION

THE MINIMUM NUMBER OF UNITS IS 1.

THE EXERCISER IS OPERATED BY MEANS OF

THE OPERATOR ENTERING

COMMANDS AT EACH PDP-11 (ONSOLE TERMINAL WHICH WILL DESCRIBE TO THE
EXERCISER THE NUMBER OF TARGET RECEIVERS TO BE COMMUNICATED WITH
AND THEIR T.D.M. BUS ADDRESSES.
ACHIEVED ALSO

IN RESPONSE

STATUS AND ERROR REPORTS ARE

TO OPERATOR COMMANDS.

EACH PCL11 TRANSMITTER IN THE °'CHAIN' OF PDP-11'S MUST BE TOLD
HOW MANY OF THE RECEIVERS [N 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

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

INCLUDES ONLY 16 PCL11°S.

1-2

SEQ 0005

1.2

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)

v-02 OF

THE EXERCISER. WHICHEVER IS TYPED IN,

EITHER UPPER OR LOWER CASE ALPHA CHARACTERS ARE ACCEPTED BY

IS ECHOED.

1.2.3

ERRORS COMMAND

THE UPPER CASE VERSION

(SEE SEC.3.2.72)

THE “ERRORS'' COMMAND HAS BEEN ADDED TO THE EXERCISER TO GIVE
MORE DETAIL ABOUT THE ERROR (ONDITIONS.

1.2.5

ASSIGN COMMAND
(SEE SEC. 3.2.13)
THE '‘ASSIGN'® COMMAND WAS ADDED TO ALLOW CONSOLE C(HANGING Of

THE PCL11

UNIBUS ADDRESSES AND VECTORS WITHIN THE EXERCISER.

GO COMMAND
(SEE SEC.3.2.14)
THE ''GO’" COMMAND HAS BEEN ALTERED SO THAT THE RECEIVER
ADDRESS QUEUE, STATUS OF ATTEMPTS AND SUCCESSES, AND THE ERROR
TABLE

1.2.7

ARE

ALL

1.2.6

——EP»

RIB COMMAND
(SEE SEC. 3.2.4)
THE 'RIB'' C(OMMAND 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.4

CLEARED.

ADDRESS QUEUE EVENT

(SEE SEC.

THIS EVENT WAS (HANGED SO THAT

6.4)
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
CANNOT HAPPEN.

THIS

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

B;P?ETURNING A <CR-LF> AND ''$'' WHEN THE COMMAND INPUT BUFFER IS
EMPTY.

Ly
—

1.2.9

1-3

SEQ 0006

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

ELAPSED TIME OF THE RUN SO~FAR IS PRINTED PROVIDING THAT THE
POP=-11

1.2.13

HAS A LINE

THE

CLOCK.

SUMMARY TABLE
(SEE SEC. 2.2)
THE 'WO. 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 (HANGE OF

THE PROMPT PRINTED

WHILE IN COMMAND MODE.
THE PROMPT WAS SIMPLY ''%''. IT HAS BEEN
CHANGED TO "P(CL>'' TO REDUCE THE (ONFUSION 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 0007

EXERCISER TABLES

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

AN 'ERRORS'
2.1

TABLE, AND A

°'SUMMARY'

TABLE.

TABLE

STATUS TABLE

THE STATUS TABLE 1S 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

CONNECTION ATTEMPTS -

NUMBER OF

THIS

WERE

IS -SET-

THIS UNIT

(OR

TIMES THIS XMTR TRIED CONNECTING

TO THE RECEIVER OF

SUCCESSFUL CONNECTIONS- NUMBER OF
RIB

TRANSMITTER HAS BEEN INSTRUCTED

TO COMMUNICATE WITH.

TIMES THAT THE ABOVE ATTEMPTS

SUCCESSFUL.

CLEAR)

IS -MASTER-

(OR SECONDARY)

ELAPSED TIME

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

2
3

X
X

RCVR ADDRESS
1

THE ABOVE ADDRESS.

CONNECTION ATTEMPTS
X

SUCCESSFUL

CONNECTIONS
Y

Y
Y

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

ATTEMPTMS OR SUCCESSES FOR A PARTICULAR RECEIVER THAN THAT AMOUNT,

ENTRY IN THE TABLE WILL APPEAR AS : "‘swxwaxwsax’’

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 RECE IVER

UNAVAILABLE DURING THAT TIME.
ON A LARGE SYSTEM, WITH MANY P(CL1 1°'S
IT MIGHT BE QUITE A WHILE BETWEEN SUCCESIVE SUCCESSFUL CONNECTIO NS
OF A GIVEN TRANSMITTER TO THE SAME RECEIVER,
MAY VERY WELL
IT

FOR

TRYING FOR THE

THIS REASON,

THEN,

SINCE ALL

SAME RECEIVERS AT

THAT

[T NEED NOT BE

THE

TRANSMITT ERS

SAME

ALARMING

TIME.

THAT

2-1

THERE

IS A DIFFERENCE BETWEEN THE NUMBER OF

ATTEMPTS,

SUCCESSES AND THE

|
NUMBER

SEQ 0008

2=2
THE PRINTING OF

OPERATOR ON EACH PDP-11
RUN.

THE

SEQ 0009

STATUS "ABLE MuST BE

INITIATED BY THE

INVOLVED DURING THE COURSE OF AN EXERCISE

STATUS TABLE OUTPUT

NOT CAUSED BY ANY OTHER MEANC

THAN THE OPERATOR ENTERING COMMAND MODE AND TYPING ''STATUS''. ALSC
IT M'ST BE NOTED THAT ALL TRANSMITTER ACTIVITY IS SUSPENDED ON THE

UNIT WHILE
2.2

THE STATUS IS BEING PRINTED OUT.

SUMMARY TABLE
THE SUMMARY TABLE

[S 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

ERROR NUMBER -

ARE:

FOR REFERENCE LATER IN THIS DOCUMENT TO
INDICATE

THE

TYPE OF

FAILURE.

ERROR ADDRESS -

FOR REFERENCE IN THE PCL11 EXERCISER

NO. OF

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

THE

LISTING.

OCCURRENCES -

SUMMARY

ERROR NU1BER

TABLE

IS PRINTED

ERROR ADDRESS
XXX
XXX

XXX

FORM:

NO. OF OCCURRENCES

XXX

2
3

IN THE

YYYY

YYYY
YYYY

YYYY

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

THOSE ERRORS

THE ENTRIES UNDER 'ERROR ADDRESS'' REPRESENT THE OCTAL
MEMORY ADDRESS OF THE OCCURRENCE OF THE ERROR WHICH OCCURRED.
THE

OPERATOR MAY

LISTING,

FIND

THIS USEFUL

THE PORTION OF

FOR LOCATING,

THE PROGRAM WHERE

THE

THE ERROR OCCURRED.

THE ENTRIES UNDER 'WO. 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 (ONNECTED

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

2-3
2.3

SEQ 0010

ERROR TAE_ES

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

DETERMINE AS CLOSELY AS POSSIBLE WHICH TRANSMITTER AND/OR WHI(H 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
MITTER ERRORS, ANY ONE OF 31 POSSIBLE
RECEIVERS MAY HAVE BEEN

TRANS-

ACTUALLY WAS CONNECTED IS LISTED IN THIS ERROR TABLE ALONGSIDE

THE ERROR

CONNECTED TO THAT TRANSMITTER AT THE TIME OF THE ERROR.

THE ONE THAT

NUMBER AND THE COUNT OF THAT OCCURRENCE.
FOR EACH OF THE RECEIVER-TYPE
ERRORS, ANY ONE OF 31 TRANSMITTERS MAY HAVE BEEN TALKING TO THIS
RECEIVER AT THE TIME OF THE ERROR.
IN THE RECEIVER ERRORS TABLE.
THE

ENTRIES

IN THESE

TABLtS

ERROR NUMBER CONNECTED XMTR

TABLES ARE

THEN,

THE ACTUAL ONE

IS LISTED

INCLUDE:

FOR REFERENCE LATER IN THIS DOCUMENT
TO INDICATe

(RCVR)

= TO INDICATE

ERROR COUNT THE

AGAIN,

THE

TYPE OF

FAILURE.

THE ACTUAL ERRONEOUS LINK.

TO SHOW THE NUMBER OF OCCURRENCES
THIS ERROR WITH

ALWAYS PRINTED

THIS

CONNECTION.

TOGETHER AND ARE

PRINTED

THE

THE COMMAND IS GIVEN TO DUMP THESE ERROR TABLES AND IT

FOLLOWING FORMAT:

TRANSMITTER ERRORS:

CONCTD ?CVR

ERROR N?.
1
1
15

2
6
37

RECEIVER

7
48
2

ERRORS:

ERROR NO.
16
16

CONCTD XMTR
1
2

2’
30

FOUND

ERROZ}COUNT

ERROR COUNT
22
22

37
6
IF

12
2

THAT NO ERRORS EXIST,

*+ NO ERRORS
IF

THE EXERCISER RESPONDS

IN THE

FOLLOWING WAY:

TO REPORT YET ««

THERE

ARE,

FOR EXAMPLE,

TRANSMITTER ERRORS BUT NO RECEIVER

ERRORS, THEN UNDER THE HEADING ‘ERROR NO.'' OF
BE PRINTED:
(NONE)
.

THE RECEIVER ERRORS WILL

2-4
2.4

CLEARING OF

THE

SEQ 001:

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 S NOT AFFECTED BY THE "'CLEAR'' COMMAND.
COMMAND,

WHEN THE OPERATOR ‘'STARTS'' THE EXERCISER BY USING THE ''GO"
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

ENTIRE

SUMMARY

THE

ENTIRE

ERRORS

T TAGTIONTMT
e.

TABLE
TABLE

IS
IS

THE STATUS TABLE ARE CLR'D

CLEARED.
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 Tht
RECEIVER ERRORS TABLE IS ONLY THE NUMBER ACCUMULATED

SINCE "'GO'" WAS TYPED.

3-1

EXERCISE COMMANDS

3.1

CONTROL CHARACTERS

3.1

SEQ 0012

CONTROL-C

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

ST 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
ECHOED. THEN THE TABLE WILL BE TRUNCATED.
THE EXERCISER WILL THEN
ENTER ''COMMAND'' MODE AND INDICATE THIS BY PRINTING 'PCL>''.
BY

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

THE OPERATOR.

TYPING ‘‘CNTRL~('* 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-O
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-0 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-O'' 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

CONIRCL

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 CARRIJAGE RETURN IS HIT, THE ERRONEOUS COMMAND
WILL BE EXECUTED UP TO THE POINT OF THE ERROR, THEN A
SYNTAX

ERROR MESSAGE WILL
THE

BE PRINVED.

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

3-2
3.1.4

SEQ 0013

CONTROL-S
THIS CHARACTER IS USED TO SUSPEND PRINTER OUTPUT. NOTHING

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

DESIREQUS 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,
3.1.5

THE ISSUANCE OF A CONTROL=-S.

CONTROL-Q
THIS CHARACTER

IS USED TO RESUME PRINTOUT AFTER IT WAS STOPPED

BY USE OF CONTROL-S.
TYPING ANY OTHER (HARACTER 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 SUSFENDED 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 COMWAND) THE EXERCISER SIMPLY ISSUES A NEW 'PCL>".
LINE

3.1.7

WHEN CARRIAGE
FEED ARE ECHOED.

LINE

RETURN -'CR>

TYPED,

RETURN AND

FEED

THE LINE FEED (HARACTER

TREATED EXACTLY AS THE

CHARACTER.
IF ONLY A LINE FEED IS TYPED,
ISSUES A NEW "PCL>''.
3.1.8

BOTH CARRIAGE

(BLANK COMMAND)

CARRIAGE RETURN

THE EXERCISER

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 (HAR-

ACTER WHICH WAS

INPUT

IS REMOVED.

THIS SECTION DEALS WITH THE FULL COMMANDS OF THE EXERCISER WHI(CH
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
[J]. FOR EXAMPLE, IN THE COMMAND:
IN SQUARE BRACKETS
CIINITIALIZE
THE

AND

FOLLOWING ARE

IN, INI,

ACCEPTABLE:

INIT,

INITIALIZE

WHEREAS THE

INITI,

INITIA,

INITIAL,

INITIALI,

INITIALIZ

—y
—- TM

ALL OF

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 DELCIMAL
NUMBERS, THY MUST BE IMMEDIATELY FOLLOWED BY A DECIMAL POINT (PERIOD).
FOR THE 'RANGE'' AND ‘'ASSIGN'' COMMANDS,

THE

ORDER OF

THE

[NPUT

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

SILO

(S1Jto <A B C

....N>

SILO

=-- CLEAR THE MASTER ADDRESS SILO AND RETURN TO "'AUTO

SILO

ABC

ADDRESS MODE"'.
.

. N

LOAD THE MASTER ADDRESS SILO WITH THE SEQUENCE ‘'ABC..N
AS MANY TIMES AS THE WHOLE

SILO'S 50 LOCATIONS.

SEQUENCE WILL FIT

INTO THE

THIS COMMAND MONITORS THE ARGUMENTS CAREFULLY CHECKING FOR

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

IF ANY TWO SEQUENTIAL ARGUMcNIS ARE FOUND TO BE THE SAME,INCLUDING

THE FIRST AND THE LAST,A "PAD'* VALUE IS 'NSERTED BETWEEN THEM.

VALUE

IS 0.

THE 'PAD'’

THIS ALSO INCREASES THE NUMBER OF ARGUMENTS IN THE SEQUENCE.

IF ANY OF THE ARGUMENTS ARE ‘0'‘, JR GREATER THAN ‘'737°'

OR NON-NUMERIC, OR IF THERE ARE MORE THAN 50. ARGUMENTS, THE COMMAND WILL
BE ABORTED AND THE
''#*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
THE SILO YOU HAVE JUST LOADED WILL BE USED

THE CURRENT MASTER.'’

COMMANDS

IP>POIQ

3.2

lof &

SEQ 0014

SECONDARY
If YOU CLEAR

1T WAS REQUIRED FOR THE EXERCISER TO 'PAD'' THE SiLO WITH Q'S

—

S
TM

N=--TM

SEQ 0015

"THE SILO HAS BEEN PADDED WITH THE ADDRESS '0''."

PRINTED:

FOLLOWING WILL BE

—

THE

3-4
3.2.2

SEQ 0016

MASTER

[MJASTER (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

MASTER CLEAR - WRITE A (0)

TO BE

SET.

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

TO BE MASTER OF

IS USED TO ''SOFTWARE SET'' ONE OF

THE T.D.M. BUS.

THE PCL11

UNITS

THE ONLY ARGUMENTS ALLOWED ARE "‘[SJET"’

AND *TCILEAR''.
NO ARGUMENTS, OR ANY OTHER ARGUMENTS THAN THESE, WILL
RESULT IN THE MESSAGE ‘‘«*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 [N SETTING MASTER.
THERE IS NOT, HOWEVER, ANY IMMEDIATE
INDICATION THAT THE 'MASTER SET'' COMMAND WAS OR WASN'T SUCCESSFUL. THE
OPE’T?A}CS)R W?gRISSUE THE "'STATUS'' COMMAND TO DETERMINE IF A PARTICULAR
UN
MAS
.
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 SFT CLEARS IT, AND THIS UNIT HAS SECONDARY SET, THEN
THIS UNIT WILL BECOME THE NEW MASTER.
IF THIS UNIT IS IN COMMUNICATION
WITH A RECEIVER AT THE TIME IT BECOMES NEW MASTER, THE MESSAGE :
*» THIS UNIT HAS BECOME ‘NEW MASTER'' »»

I? F;R(I;NTED ON THE CONSOLE AND THE EXERCISER AUTOMATICALLY CONTINUES EXER-

CISING.

SEQ 0017
3.2.4

RIB

[(RI)B [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 (LEAR - 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 OCCUR WHENEVER THE RECEIVER BEING ADDRESSED IS NOT
READY OR NOT

THERE.

THIS COMMAND S 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

IMMED-

JATELY UPON FINDING THE ADDRESSED RECEIVER BUSY OR NOT THERE. THE USE
OF THIS COMMAND WILL CAUSE A DIFFERENCE IN THE '‘SUCCESSFUL CONNECTION''
CO?NT RELATIVE TO THE ‘'ATTEMPTED CONNECTION'® COUNT IN THE STATUS PRINTouT.

3.2.4

RANGE

CRAINGE [LOW HIGH]
RANGE

A B

PRODUCE

A LIST,

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

TRANSMITTER

VMDD€

THE

—~—nTMm

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

SEQ 0018
3.2.6

ADD

C(ADID (1] 2 3.

. 37

SELECT TARGET RECEIVER ADDRESSES.

ADD A B C

ADD THE NUMERIC VALUES OF A, B,

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.
ADDRESSES
1 3 10 12 AND 22 (OCTAL) OR 1

' WILL ACTIVATE RECEIVER
3 8. 10. AND 18. (DECIMAL)

THOSE RECEIVER ADDRESSES WHICH ARE
THIS TRANSMITTER.

COMMUNICATED WITH BY

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

3.2.7

TO BE

DELETE

(DIELETE (1123 .
DELETE A B C

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

THE ORDER OF

THE ARGUMENTS AT ALL.

IS AT LEAST ONE.

THERE

IS NO RESTRICTION ON
AND RE-

DUNDANCIES ARE ACCEPTABLE.
THE ARGUMENTS
MUST BE NUMERIC AND BETWEEN_THE VAI UES 1
AND 31. (DECIMAL) OR 1 AND 37 (OCTAL).

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

DELETE 2 5

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

AND 7

THE COMMAND
'DELETE 12 22 '' WILL MAKE RECEiVER ADDRESSES
12 AND 22 '°INACTIVE'' SO THAT THIS TRANSMITTER WILL NOT ATTEMPT TO
(OMMUNICATE WITH THEM.
THIS COMMAND MAY BE USED EFFECTIVELY IN (CON-

:
EXAMPLE

3-7
3.2.8

SEQ 0019

CLEAR

{CLIEAR

CLEAR THE ENTIRE STATUS TABLE. REMOVE
ALL RECEIVER ACTIVE FLAGS AND CLEAR ALL
CONNECTION ATTEMPS AND SUCCESSES FROM EVERY

(LEAR

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 STRINC OF
RANGE 1 21
ADD 27 30 31

DELETE
CLEAR
RANGE

ADD 21

17 20

COMMANDS:

32 33 34

THE RESULT WOULD BE

THE ''ACTIVATION'® OF RECEIVER ADDRESSES:

1, 2. 3,4, 5,6, 7,10, 11, 12,
3.2.9

13,

14,

15, 16, 21, 37

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

EIVER ADDRESSES, INITIALIZES THE SEEDS
USED FOR GENERATION OF RANDOM DATA, DOES A
"'CLEAR’’ COMMAND AS ABOVE AND CLEARS BOTH
ERROR TABLES.

3-8
3.2.10

SEQ 0020

STATUS

[STIATUS
STATUS -

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

THE STATUS COMMAND IS ISSUED, A STATUS HEADER

THEN,

IS PRINTED (SEE 2.1).

IN NUMERICAL ORDER

THE “"ACTIVE'' RECEIVER ADDRESSES, NUMBER OF
ATTEMPTED CONNECTIONS, AND NUMBER OF SU(C-

CESSFUL CONNECTIONS IS PRINTED ON A LINETHE PRINTING OF THE STATUS
BY-LINE BASIS.
TABLE

DOES

(LIKE

ALL

COMMANDS)

INHIBIT

ANY

ACTION BY THE TRANSMITTER IN THAT PDP-11 BUT
THE

3.2.11

RECEIVER

IS ALWAYS A(TIVE.

SUMMARY

(SLIMMARY
SUMMARY -

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

THE

SUMMARY COMMAND

MARY HEADER IS PRINTED

ISSUED,

(SEE 2.2).

A SUM-

THEN,

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 THE

EXERCISER IS "'CONTINUED"'.

3.2.12

ERRORS

[EJRRORS
ERRORS -

SET

THE EVENT FLAG WHICH CAUSES THE CURRENT

TRANSMITTER ERROR TABLE TO BE PRINTED. WHEN
THE TRANSMITTER ERROR EVENT IS FINISHED, 1T

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 [S AGAIN

SUSPENDED UNTIL THE EXERCISER IS ''CONTINUED''.

3-9
3.2.13

SEQ 0021

ASSIGN

CAS]ISIGN <xM ADDR
ASSIGN -

XM V(T

RC ADDR

RC V(TR>

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
RCVR ADDR
RCVR VECTOR

170
164220
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
THEEl;RANSMXTTER ADDRESS, THEN THE VECTOR IS
TYPED:

ASSIGN 166200 700
TO ENTER THE RECEIVER ADDRESS

(FIELD (CCCCOC).

FIRST THE TRANSMITTER ADDRESS., THEN THE
TRANSM%;TER VECTOR, THEN THE RECEIVER ADDRESS
IS TYPED:

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 ERRORx+'' WILL OCCUR WITH ANY OF
THE FOLLOWING CONDITIONS:
TOO MANY ARGUMENTS
ARGUMENT ]S NOT NUMERIC
ADDRESS ARGUMENT NOT IN

1/0 ADDRESS FIELD

(1.E. ABOVE 163776)
VECTOR ARGUMENT IS NOT IN VECTOR FIELD
(1.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

DECIMAL NUMBERS.

SEQ 0022

3.2.16

QO
(Glc

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

THE

HAVE BEEN SET TO BE T.D.M. BUS MASTER. IFf
THE "SILO"* IS BEING USED TO GENERATE TRANSMITTER ADDRESSES, 1T 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 (SOFTWARE). NOTE THAT

RECEIVER ERRORS ACCUMULATED UP TO THE POINT OF

TYP-

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

TYPED CAN BE DISPLAYED

NOT, HOWEVER,
ADDRESSES

IN THE ERRORS TABLE.

CAUSE THE CLEARING OF

IN THE STATUS TABLE;

WILL

THE RECEIVER

SO THAT ALL REC-

EIVERS 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'' 1S 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

| HAVE NO RECEIVER ADDRESSES **'

CONTINUE
CCOINTINUE
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.
THL '‘CONTINUE'' COMMAND DOES NOTHING TO ANYTHING EXCEPT

THAT

IT RE-STARTS EXERCISE

ALL

TABLES ARE LEFT

THE

IMMEDIATE

ARE UNTOUCHED.

MODE.

INTACT AND SOF TWARE QUEUES

WHEN ''CONTINUE'' IS ISSUED,

RESPONSE

SHOULD BE

EXERCISER PRINTS:
"EXERCISER CONTINUING''

THAT

THE

-1

If, HOWEVER, WHILE THE EXERCISER WAS STOPPED,

THE OPERATOR USED THE

INITIALIZE OR CLEAR

(OMMANDS 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

"= SORRY,

3.2.16

THE PRINTOUT:

] HAVE NO RECEIVER ADDRESSES *''

**SYNTAX ERRORww

»*SYNTAX ERROR*+ [S NOT A COMMAND BUT IS RELATED TO ALL OF
THE COMMANDS OF SECTION 3.2. IN GENERAL, A SYNTAX ERROR WILL RESULT FOR
WKW
Y
T

NO ARGUMENTS GIVEN WHERE REQUIRED
ARGUMENTS GIVEN WHERE NONE REQUIRED

ARGUMENTS ARE WRONG CLASS

e
«

G
[P

COMMAND COES NOT EXIST IN 'XEYWORD'' TABLE

NONES

FOLLOWING REASONS:

B WSOV

COMMAND WORD

IS MISSPELLED

FEWER THAN THE MINIMUM CHARACTERS WERE USED

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

ARGUMENTS IN WRONG ORDER
NOT ENOUGH ARGUMENTS
TOO MANY ARGUMENTS

[CLIEAR)

(WHERE ORDER IS IMPORTANT)
(USUALLY SHOULD BE NUMBERS)

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

THAN A SPA(E

COMMAND SEPARATED FROM ARGUMENTS BY OTHER THAN A SPA(E
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
JON

SEQ 0024

BEFORE RUNNING THE PCL11 EXERCISER,

BEEN PREVIOUSLY PERFORMED:

THE FOLLCWING MUST HAVE
CH

- INSURE ALL PCL11 UNITS ARE CORRECTLY INSTALLED IN EACH
POP-11

PROCESSOR.

- DETERMINE ALL
OF THE T.D.M. BUS ADDRESSES OF THE
TRANSMITTERS AND THE RECEIVERS OF THE UNITS WHICH
IT IS DESIRED TO BE TESTED.
INSURE THAT NO

TWO TRANSMITTERS AND NO TWO RECEIVERS HAVE BEEN
ASSIGNED THE SAME T.D.M. BUS ADDRESSES.
- RUN THE PCL11 "'STANDALONE'' TEST (CZPLBAQ) WITHOUT

ERRORS BEFORE CONNECTING ALL UNITS TOGETHER VIA THE
T.D.M.

4.2

BUS.

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'’,
PCL11

4.3

THE PROCESSOR MUST HAVE 16-K OF MEMORY.

THE EXERCISER MUST BE LOADED

WHICH

TO BE

TESTED.

INTO EACH PDP-11

HOSTING A

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 ADDRZSSES

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.713 TO ASSIGN THE CORRECT UNIBUS

ADDRESSES TO THE EXERCISER IN ORDER TO EXERCISE
PDP-11

NOTE THAT
AT A TIME.

THE RIGHT PCL11.

THE EXERCISER WILL RUN WITH ONLY ONE PCL11

PER

4=2
4.6

SEQ 0025

STAR” ING 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.
1T 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

Cc
(b

OPERATING PROCEDURES
A)

LOAD THE PROGRAM USING THE PDP-11 ABS LCADER OR THE LOAD

B8)

LOAD ADDRESS 200; PRESS START.

COMMAND OF 'XXDP''.

(SEE 4.2)

e
(G

THE TEST WILL IDENTIFY

ITSELF AND TEST THE DEVICE ADDRESSES.

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) TO ()

ASSIGN ONE OF

(ABOVE) ON ALL PDP-11S BEFORE CONTINUING.
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).

AT EACH UNIT, ENTER THE RECEIVER ADDRESSES OF ALL THE
RECEIVERS THAT THIS TRANSMITTER IS TO COMMUN]ICATE 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 (NTRL-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

£s
s

s
Cs

CsS

(OR MASTER DOWN).
CNTRL=C.

SEQ 0026

SEQ 0027

A LIST OF ERRCR NUMBERS MAY BE FOUND IN APPENDIX ( OF THIS
DOCUMENT. THESE 'ERROR NUMBERS'® ARE THOSE REFERRED TO IN THE SUM-

COMMENT FIELD, THE ERROR IDENTIFIER:
XMTR ERROR N twatny
OR:

vexee

RCVR

ERROR

IN THE
rxaev

wannw

HAVE,

MARY TABLE AND IN THE ERRORS TABLES. A LITTLE MORE DETAIL MAY BE
DE TERMINED ABOUT THE ERROR BY REFERRING TO THE PROGRAM L ISTING
AROUND THE ADDRESS SHOWN IN THE SUMMARY TABLE. THE LISTING WILL

WHERE 'WN'° IS THE ERROR NUMBER.
ABOVE THIS IDENTIFIER, WILL BE THE
DESCRIPTION OR CAUSE OF THE ERROR WITH THAT NUMBER.
IT MAY BE NOTED THAT TYE TRANSMITTER ERRORS ARE NUMBERED
TO 15

(OCTAL),

16 TO 30 (OCTAL).
TO SUMMARIZE
THE

ALL

AND THE RECEIVER EKRORS ARE

THIS IS DONE SO THAT ONLY ONE

THE ERRORS

(SUMMARY

TABLE).

NUMBERED FROM

TABLE

IS REQUIRED

THERE

DETERMINE

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

()

I¢

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

THE tRROR WAS 'ERROR 10" BUT THIS ERROR HAD NOT

FOLLOWING

IS AN ALARMING NUMBER OF OCCURRENCES OF ERRORS,

STEPS

SHOULD BE

TAKEN:

THE ERROR CAUSE

(FROM APPENDIX ()

THE PCL11 '‘STANDALONE TEST'' (Y(-2017D-0B) 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 SUSPEC(T.
OCCURRED ON OTHER UNITS,
ETC. ARE AGAIN SUSPECT.

USING EITHEF
A DEFECTIVE

THE CABLE, OR RECEIVER CHIPS

THE EXERCISER, OR THE STANDALONE

SINGLE MODLiLt

LOCALIZE AND REPLACE,

FROM 1

SHOULD BE

RELATIVELY

CORRECTING THE PROBLEM.

TEST,

SIMPLE

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

A SMALL NUMBER OF

CERTAIN ERRORS

IS ACCEPTABLE

DURING A LONG

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

22
24

RECEIVER CRC ERROR
RECEIVER PARITY ERROR

COMMAND MODE DESCRIPTION

5.1

SHORTENED COMMANDS

SEQ 0028

ANY OF THE COMMANDS MAY BE TYPED IN AS SHORT A FORM AS WOULD
IS, ONLY ENOUGH LETTERS NEED BE TYPED SO AS
THAT
REASONABLE.
SEEM
TO DISTINGUISH ONE COMMAND FROM ANOTHER WITH THE SAME
FIRST LETTER.
THERE IS ONLY ONE COMMAND BEGINNING WITH
FOR EXAMPLE, SINCE
THE LETTER "¥'' (ERRORS), ONLY THE "¥E'' NEED BE TYPED FOR THAT COMMAND.

HOWEVER, THERE ARE FOUR COMMANDS BEGINNING WITH THE LETTER 'S'" (SUM-

MARY, STATUS, SILO, AND SECONDARY).
IN EACH OF THESE COMMANDS, THE
SECOND LETTER IS DIFFERENT, SO JUST TwO LETTERS NEED BE TYPED: (SU,
ST,

SI. AND SE).

COMMAND
TYPED

THE COMMAND DECODER WILL NOT ACCEPT ANY
ON THE OTHER HAND,
THAT IS, EVERY LETTER
WORDS WITH ANY OF THE LETTERS WRONG.

IN FOR

A PARTICULAR COMMAND

SPELLING THE WORD CORRECTLY.

FOR EXAMPLE:

LEAST ON THE WAY 10

FOR THE ''INITIALIZE'® COMMAND:
IS ACCEPTABLE, WHEREAS:
IS UNACCEPTABLE.

INITIAL
INITL
5.2

MUST BE AT

RUBOUT FEATURES

THERE ARE TWO EDITING FEATURES EMPLOYED IN THE
(OMMAND DECODER. 'RUBOUT'® (DELETE) (HARACTER WILL DELETE
THE LAST
(HARA(TER

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

C(ONTROL-U

CHARACTER WILL REMOVE ALL THAT HAS BEEN TYPED IN SO FAR ON THIS LINE.
ONE OTHER METHOD OF HAVIN
THE EXERCISER
IGNORE EVERYTHING
TYPED IN SO FAR IS TO TYPE
A)

8)
()
5.3

RUBOUT

‘‘CONTROL-C''.

DELETE LAST CHARACTER

C(NTRL-U
CNTRL-C

DELETE THIS LINE
DELETE THIS LINE

ENTERING COMMAND MODE

COMMAND MODE IS AUTOMATICALLY

OF THE EXERCISER.

MAND'‘ MODE.
A)

THERE ARE TIMES,

THEY ARE:
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,

ONLY TYPE ''CONTROL~C''

ERATOR

NEED

ALSO,

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

TRANSMITTER ACTIVITY

ON THE

UNIT AND ENTER

TING AND RETURN TO COMMAND MODE.
THERE
IS
ANOTHER CHARACTER

CONTROL-C DUE TO ITS FUNCTION;

(*C).

THIS WILL

THE OP-

TERMINATE ALL

COMMAND MODE.

IT WILL

WHICH WILL PERFORM THE SAME AS

THAT IS (CONTROL-U .

5-1

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 (HARA(TERS INTO UPPER CASE ALPHA CHARACTERS BY CLEARING BITOS IN THE ASCII
CODE OF

THE

INPUT (CHARACTER.

SEQ 0029

5=2

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'* C(OMMAND, 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 BLOCKX 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 Vi LL 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 SOFTWARE FLAG CALLED 'RECEIVER EVENT FLAG'' IS SET. WHEN
THIS

IS DETECTED

IN THE MAIN LOOP,

THE RECEIVER MODULE

CALLED

STT 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
IET?SCEIVED SUCH AS ''SUCCESSFUL TRANSFER'', "ERROR'’, OR 'REJECT
(OMP.
L
THE RECEIVE EVENT IS ALSO RESPONSIBLE FOR UPDATING THE ERROR
TABLES FOR
RECEIVER ERRORS,
AND FOR CHECKING THE
DATA RECEIVED TO

DETETM%NE
RECEIVED.

ITS CORRECTNESS

AND THAT THE RIGHT

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,

WAYS

TO PREVENT

OR A HARDWARE FAILURE TO

THE RECEIVE EVENT

INTERRUPT ARE THE ONLY

FROM OCCURRING.

6.3

DATA GENERATION EVENT

ATION.

ANOTHER
EVENT WHICH OCCURS IN
EXERCISE MODE IS5 '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(TED BY

THEY

THE

TRANSMITTER EVENT AND C(HECKS ARE MADE

SHOULD.

THAT

THEY OCCUR AS

6-1

SEQ 0031
6.4

ADDRESS QUEUE EVENT

WHEN THE USER HAS COMPLETED
GENERATING THE LIST OF RECEIVER
ADDRESSES
HE W]SHES A
PARTICULAR TRANSMITTER
TO COMMUNICATE WITH,
THE STATUS TABLE HAS THOSE ENTRIES ''ACTIVATED''. DURING EXERCISE MODE
ACTIVE
ADDRESSES IN THE
STATUS
TABLE ARE
LOADED INTO A SOF TWARE
QUEUE
7O AWAIT THEIR TURN WITH THE
TRANSMIT MODULE.
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

ADDKESS 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 TH4EY WERE ENTERED.

6.5

ERRORS UPDATE EVENT

AT ANY TIMt, WHETHER THE EXERCISER IS IN

COMMAND MODE,

THE RECEIVE EVENT

RORS CAN OCCUR AT ANY

CUR

TIME.

WHEN THE EXERCISER

IS ACTIVE.

HOWEVER,

IS 'GOING''.

'EXERCISE'' MODE OR

THEREFORE,

RECEIVER ER-

TRANSMITTER ERRORS CAN ONLY OC-

WHEN AN ERROR OCCURS,

THE

TRANSMITTER TYPE,
THE TRANSMITTER COMMAND REGISTER (TCR) IS READ TO
GET
THE ADDRESS OF THE CONNECTED
RECEIVER.
THIS IS USED TO DECIDE
wHICH TRANSMITTER
ERROR TABLE
LOCATION TO INCREMENT ALONG WITH THE

ERROR NUMBER.
THE
THE
THE

RECT

THIS UPDATE

IS ACCOMPLISHED

AT THE ACTUAL TIME

THAT

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

LOCATION TO

INCREMENT.

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

TRANSMITTER ERROR

ANOTHER

TABLES AND

FUNCTION OF

THE RECEIVER ERROR

THE ERRORS

TABLES.

EVENT IS TO UPDATE

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

THE ''SUMFOR

TRANS-

SPECIAL EVENTS

DURING AN
EXERCISE RUN,
THERE ARE TWG INTERRUPTS THAT (AN
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

xex MASTER DOWN x%t

RETURN THE EXERCISER

TO COMMAND MODE.

THE OTHER INTERRUPT

CAUSED BY THIS UNIT BECOMING "MASTER'' AFTER HAVING BEEN ''SECONDARY''.

;?égAgéLL CAUSE THE CALLING OF ANOTHER ''SPECIAL'' EVENT TO PRINT THE
xx

AND LEAVE

THIS UNIT HAS BECOME ‘NEW MASTER'' »»

THE EXERCISER IN 'EXERCISE MODE.

SEQ@ 0032

APPENDIX A,

SEQ 0033
OVERALL

FLOW

[S)====~START
I

LOAD & TRY
DEVICE ADDRESSES
-1

——————em

I
INITIALIZE
e

RESTART
--¥----

___________

T-"BRTTITTM"TY
I PRDEL
I

[A)===-~1 MAIN LOOP I

I
I
{

710 NOT
EMPTY

PRCTLS

]
<PROCHR>
I
[=~——m- PROCESS
1
{
CHARA( TER========= I

PRCR-LF
PRCTLU
PRCTLO

1
I
I

{

PRCTLQ

J=---[A]

1rtoaNot
{ EMPTY

g ____
}

T "DEGUEDETMYDO
Y

I
] QLDEV

i
I

T
“COAD"ABDRESS
TMY

i
I

I
I

[ FLAG ERROR, £ [----[A)
I DON''T ALLOW
|

] EVENT SET
I

I
I

1
I

TO TTY IF
READY

J-=-=[A)
I

I ______ I
i
I

QUEUE. IF NO- |
THING LOADED, I

STARTUP

{

I EVENT SET

I ____

I DATGEN
I
I

T GERERATEREW
"7

I
I

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

...... -

RANDOM DATA

A=2

SEQ 0034

COMMAND

ENTERED

I
|
|
I
I

MASTER

----- 1 SECONDARY [----[A]
I RIB
I
: INITIALIZE]
I CLEAR
I
1 ERRORS
I
I SILO
I

T TONTIROETM"Y
I
I

I
1

TXM £VINT

SET

RCV EVENT
SET

SPEC]AL
EVENT

GO
(SET TXM
EVENT
FLAG)

|
1
I

-==-[A]

T START RAMTSSTORT
I

INTERRUPT ON

]

I UPDATE STATUS I----[A]
I DEQUEUE RCVR

T"SET
0P TO RTVT
I FLAGS WORD
I

INTERRUPT ON

[----[A]
]

T°STOPTXATRTM TMTMTM~ 1

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

A-3

SEQ 0035

Y7
\/

"""""" T

T”BRIRT""TMTRIS
"1

EXTRA SPE~]==~==mcecccccccccaa- [ UNIT HAS JUST
CIAL EVENTI
| BECOME NEW

I
|

MASTER''

ecececccceeee-

I UPDATE

[

T ERRORTM TM"~ T

[=====~ TRANSMITTER

I NOW MAST

I BUSY

HANDLER

XMTR ERR

EVENT SET

RCVR ERR

EVENT SET

SOF

[====[A]

REJ

]

T ERRORTM TM"~ Y

[--==-<~ RECEIVER

DATA RDY

REJ COMP

]

INTERRUPT === mmmmmm 1 SUC XFR

HANDLER

EVENT SET

INTERRUPT=====meeu 1 SUC XFR

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

SUMMARY

;

INTERRUPT |

EVENT SET

[-=--=[A]

HANDLER=========== ) S 1

STATUS

I THE TIME

}

INTERRUPT |

RCVR

CLK INTRPT]====-- CLOCK INTERRUPT

XMTR

[-=-=-=[A]
I

]===<[A]

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

T~00TPOY ORE="""7
I

LINE-AT-A-

{

8RUN STATE

_—

1"00TPOY "ORE=-""T

{

———————

T OUTPOT XRYR"7

[e---mcecccmcacacans 1

!
|

I
I
Je--ececccmececccaan ]

]

TIME OF STATUS]=----[A]
I

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

ERROR TABLE

[e-—cecmcmcnncccacas ] AND SET RCVR
;
I ERR EVENT

[----[A]
1

{

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

1 0UTPOY
" RTVRTM TMY

{ ------------------- I ERROR TABLE

[----[A]

( A)

SEQ 0036

SEQ 0037
EXERCISER COMMANDS

CONTROL CHARACTERS
(HARACTER

ECHOES

EFFECT

ENTER COMMAND INPUT MODE

CNTRL-0

THROW AWAY

CNTRL=U

DISCARD CURRENT INPUT LINE

CNTRL=C

’

TTY OUTPUT

CNTRL =S

SUSPEND TTY QUTPUT

CNTRL=-Q

RESUME

TTY OUTPUT

DELETE LAST

RUBOUT

CAR RET

<CR,

LINE FEED

<CR, LF>

LF>

INPUT CHARACTER

PERFORM COMMAND JUST ENTERED
SAME

AS (AR RET

B-2

SEQ 0038

S
COMMAND
ARGUMENTS

ADD ADDRESSES A B C - N
[AS]SIGN

ADR V(T

AND RECEIVER.

CCLIEAR

CLEAR THE

CCOINTINUE

CONTINUE EXERCISING

(DJELETE

DELETE ADDRS

A B C

[E JRRORS

PRINT ERRORS

TABLES

£Gl1o

START THE EXERCISER

CIINITIALIZE

INIT THE EXERCISER

STATUS TABLE

[(MIASTER

SET

SET "MASTER"

[M]ASTER

CLEAR

CLEAR "MASTER

CRAINGE

LOW HI

ADD RANGE OF

(rR118

SET

(RIIB

CLEAR

[ SE JCONDARY

SET

[ SE JCONDARY

CLEAR

(s1lLo

ADDRESSES FROM

[on TN 7 BN

& TN ¥ |

LOW TO HIGH INCLUSIVE.
SET 'RIB"’
CLEAR 'RIB"’

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

CLEAR SILO;

LOAD SILO WITH

[STIATUS

STATUS

[SUIMMARY

SUMMARY

[s1lLo

ABC-N

= N

SET AUTO ADDR
AB C - N

TABLE
TABLE

PCl

(-1

SEQ 0039

ERROR DESCRIPTIONS

ERROR NUMBER

ERRONEOUS INTERRUPT FROM TRANSMITTER
NON EXISTANT LOC. ERROR IN XMTR

MEM OVERFLOW ERROR IN TRANSMITTER
XMTR TXM ERROR:

RCVR ACCEPTED A NULL

XMTR TxM ERROR:

RCVR HAS GONE OF F~LINE

XMTR TXM ERROR:

WORD OR C.R.C. REJECTED

XMTR TXM ERROR:

MISCELLANEOUS TXM ERROR

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

RECEIVER

RECEIVER GOT

DATA WORD RECEIVED WAS BAD

RECEIVER GOT

INVALID PARITY.

TIMLOUT ERROR OCCURRED
TOO MANY WORDS

TOO FEW WORDS

D=1

STATISTICAL

SEQ 0040
INFORMATION

STARTING ADDRESS

200

RESTARTING ADDRESS

204

SWITCH OPTIONS

NONE

PROGRAM S1ZE

APPROX

MEMORY OCCUPIED

LOW BOUNDARY

HIGH BOUNDARY

00000
34474

LOCATIONS TO CHANGE FOR
DIFFERENT DEVICE ADDRESSES

DEVICE

(HANGE LOCATION

KEYBOARD STATUS

16136

KEYBOARD DATA

16140

TTY STATUS

14142

TTY DATA

16144

KEYBOARD VE(CTOR

16146

LINE CLK STATUS

16150

XMTR PRIORITY

2334

RCVR PRIORITY

2346

KBD PRIORITY

2360

USEFUL LOCATIONS

ADDRESS

XMTR DATA BUFFER

20666

RCVR DATA BUFFER

22726

DATA SEED IN TRANSMITTER

17726

RANDOM MULTIPLIER

17746

RANDOM INCREMENT

17750

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11
284
367
489
546
547

644

713
758

825
894
1008

1103
1199
1243
1288
1322
1534
1716
1809
1864
1915
1971
1972
2010

2049
2050
2072
2207
2225
2236
2265
2472
2533
2590
2591
2634
2737
2786
2873

2909
2954
3077
3122
3211
3238

12-SEP-78 15:13

MACY11 30A(1052)

TABLE OF

20-0CT-78

CONTENTS

DEFINITIONS AND DEVICE INFO
PCL11 EXERCISER MAIN PROCEDURE
MAIN LOOP
COMMAND PROCESSORS:
COMMAND PROC. FOR SILO (LOAD)

09:48

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

FOR RANGE
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 (HARACTER PROCESSING ROUTINES
TTY QUTPUT HANDLERS
TTY INPUT INTERRUPT PROCESSORS
MESSAGE PRINT ROUTINE
DATA AREAS
KEYWORD TABLE
SOME MORE ASCI1 STORAGE
:
AUXILIARY ROUTINES
CHARACTER PROCESSOR
BINARY TO ASCII CONVERSION
GENERAL BINARY TO ASCII CONVERSION
DOUBLE PRECISION BINARY TO ASCI!
DOUBLE PRECISION DIVIDE ROUTINE

INTEGER DIVIDE MAGNITUDE NUMBERS

QUEUE HANDLING ROUTINES
COMMAND PROCESSOR INITIATING ROUTINE
KEYWORD PROCESSING ROUTINE
REGISTER SAVE & RESTORE ROUTINES
LEXICAL SCAN ROUTINE

SEQ 0041

CZPLABO PCL11 EXERCISER V0?2

D
d e
D
b
b

MACY11

30A(1052)

20-0CT-78
LTITLE
.IDENT

;

09:48

PAGE 1

SEQ 0042

CZPLABO PC.11 EXERCISER V02
70003/
:DRCMAC.MAC

6-JAN-76

KEYWD MACRO

THIS MACRO DETERMINES THE ROUTINE ADDRESS
ASSOCIATED WITH THE SYNTACTIC OBJECT 0BJ, ACCORDING
TO A KEYWORD TABLE POINTED TO BY KWTABL.

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

THE

EACH KEYWORD IN THE TABLE HAS ASSOCIATED WITH IT A

12-SEP-78 15:13

MINIMUM LENGTH SPECIFYING THE MINIMUM NUMBER
OF CHARACTERS IN THE KEYWORD THAT MUST MAT(H
THOSE IN 0BJ FOR A MATCH TO HAVE BEEN DEEMED
FOUND.
IF OBJ CONTAINS MORE THAN THIS MINIMUM
NO. OF CHARACTERS, THOUGH, ALL CHARACTERS IN 0BJ MUST

= OV

NN = OPV00 N [0 XV, F LYUN] WY

PCLEXR.P11

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
OFFSET
TYPE

0
2
3

CONSISTS OF A SET OF

WORD
BYTE
BYTE

STRING

ENTRIES AS FOLLOWS:

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

ENTRIES ARE STORED CONSECUTIVELY IN THE TABLE.
EACH ENTRY
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).
T?EOTABLE

OfF

.IF
JF
.ENDC
.ENDC

.IF

.ENDC

IS ENDED BY AN ENTRY WITH A FULL

.MACRO

KEYWD

MoV
B

0BJ,=(SP)
KWTASBL

Mov

#1,-(SP)

N8B

KWTABL

JSR

PC.KEYWD

N8B

.ERROR

MoV

08J

LENGTH

0BJ,KWTABL

;CANNOT SPECIFY OBJ & NOT

KWTABL ,~(SP)

TABLE ADDRESS.

;IF

RUN,

THIS WILL

CAUSE

TRAP.

12-SEP-78 15:13

MACY11 30A(1052)

. ENDM

63
64
65
66
2;

:
:
:
;
:

;

8?2

JKEYWD

THIS MACRO CALLS THE ROUTINE LXS(CAN TO CONVERT THE (HARA(TER
STRING SPECIFIED BY
STR
INTO ITS CONSTITUENT SYNTACTIC OBJE(CTS.
STR
1S AN ASSEMBLER EXPRESSION SPECIFYI“G THE ADDRESS OF THE
BEGINNING OF THE ASCII STRING TO BE CONVERTED.
THE STRING
MULST BE ENDED BY A CARRIAGE RETURN (CODE.
.MACRO
MOV
JSR

LXSCAN
STR
STR,R1
R1.,_XSCAN

.ENDM

JLXSCAN

PROC MACRO

THIS MACRO DEFINES THE ENTRY POINT FOR A PROCEDURE.

SPECIFIED WILL BE GIVEN THEIR CORRESPONDING OFFSETS RELATIVE TO RS,

ASSEMBLER EXPRESSION '‘aPP(RS5)‘',

THUS., A PARAMETER

;

USING THE

.MACRO

PROC

.IRP
X2
Zx1
RP O ZX3

<PARAMS>
X142
\ZX1

92
93

95
96

.ENDM

99
100
101
102
ws
104

PNAME :

97
98

.ENDM

107

;

1A R

112

PNAME ,PARAMS

JIX2

NLIST
.ENDM

;=*ENTRY POINT
=«
;PROC

i ecemecesccccscccccceccccccc—ccc—cccaccccae==

110

NLIST

THE PROCEDURE CAN BE CALLED

LLIST

}82

;83

LLIST

(AN BE REFERENCED IN THE PROCEDURE BY THF

MACRO.

88
89
90

C(CALL

Zx1

THE PARAMS

SEQ 0043

LXSCAN MACRO

PAGE 1-1

; eeecescsccsccecscecesececsc——eccceccce—cea—cao

09:48

mmmemmmmmmmemmmmeooemeeceeeeeeeee

69
70
71
72
73
74
s
76
;g

20-0CT-78

RETURN MA(CRO
THIS MACRO RETURNS FROM A PROCEDURE.

wWwWILL BE LOADED INTO RO BEFORE RETURNING.
.MACRO

RETURN

MOV

ANSWR ,RO

ANSWR

IS SPECIFIED IT

CZPLABO PCL11 EXERCISER V0?2

PCLEXR.P11

N—‘Som ~NONVN S

b
b
d
D
D
nd
D
D e
d

ad o

d e

b —d

= b 2 s
WWWNINININONINY PNOPNONIN)
W=
O 0NN

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

20-0(T-78

MACY11 30A(1052)
.ENDC

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.

RS IS LEFT
THE CALLING SEQU:NCE GENERATED IS FORTRAN (OMPATIBLE.
; INTACT THROUGH THE EXECUTION OF THIS MACRO.
OTHER REGISTERS
: ARE DESTROYED.
.MACRO

PLIST:

.ENDC

IXCALL:

139

CALL

SUBR,ARGS,?PLIST ,?ZXCALL

JSR

RS, ZXCALL

NB
.WORD

<ARGS>
ARGS

JSR
MOV

PC,SUBR
(SP)+,R5

LENDM

;(ALL

IXCALL

; MACRO TO MU' TIPLY 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 WORK IS NOT SPECIFIED & A TEMPORARY LOCATION
IF NECESSARY.
IS NEEDED, A STACK ELEMENT WILL BE ALLOCATED (& SUBSEQUENTLY

; DEALLOCATED) FOR THE PURPOSE. THE MACRO GENERATES A SERIES OF
; SHIFT & ADD INSTRUCTIONS IN-LINE TO ACCOMPLISH THE MULTIPLICATION.

.MACRO

’

Zx1
Ixe

SULT
CONST

LENDC

.REPT

.IF
Ix2
JIF
.IF

JF
LIFF

CLR
MEXIT

16.

z
NZ
NB

MOV

CONST,DST ,WORK

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

YET;

==>0PPOSITE.

;COPY CONSTANT FOR SHIFTING.

Ix2

DST

IXx2R1
Ix2/2
X1
X2
WORK

DST,WORK

:IF BIT O -1
:SHIFT CONSTANT RIGHT 1 POSITION.
JIF LEAST SIG 1-BIT
;1F NOT MOST SIG 1-BIT
;IF WORK SPECIFIED
JELSE

IF WORK BLANK

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11

30A(1052)

20-0CT-78

09:48

PAGE

DST,=(SP)

169

170
17
172

173
174
175

WORK

DST,WORK

WORK

(SP)+,DST

188
189
190
191
192
193
194

d cnd —d D ed

— -—

aNTe
SV, F XV ~N
O [o

NN
N NONINLNND

END [.IF NB WORK]

JEND [.REPT 16.] LOOP.

198
199

220

JELSE IF WORK BLANK

JEND [LIF NZ Zx2]
JEND [.IF 2 ZIx1]
JELSE 1F BIT O -0
JSHIFT CONSTANT RIGHT 1 POSITION.
SEND [.IF NZ ZX2811]

195
196
197

200
201
202
203
204
205
206
207
208
209
210
211

IF WORK BLANK

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

WORK ,DST

187

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

JELSE

DST.asP

185
186

SEQ 0045

JEND [LIF NZ Zx2]
;INDICATE NO LONGER LEAST SIG 1-BIT.
JELSE IF NOT LEAST SiG 1-BIT
;IF NOT MOST SIG 1-BIT
;IF WORK SPECIFIED

176
177
178
179
180
181
182
183
184

1-3

HEDING
HED ING

NAM,VER,EDIT,PAT(H

/VER'EDIT'PATCH/

HED ING
HED ING ,HEDLEN
HEDING:
.IF

IFF

.ENDC
HEDLEN

/NAM'VER'-'EDIT/

.ASCII
8
.BYTE

LAS(C11

/PATCH/

=
.ENDM

JHEDING

PATCH

.=HEDING

JMULTIPLY MACRD FOR UNSIGNED MULTIPLY

.MACRO
MOV
MOV
JSR
. WORD
MOV

.ENDM

MULP
A,=(SP)

A.B

ROUTINE

R6 ML

;SAVE A ON STA(K
;SAVE B IN R4
JPERFORM MULTIPLICATION

(SP)+.,B

;PUT

B.R4

:MULP

PRODUCT

INTO B

(7PLABO PCL1T 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.

.IF
.1F

MACRN
.NLIST
IDN
BIS

BDINIT

IDN
BIS

<DEV>,<R(VR>
#301,aR(R

DEV

#301,3TCR

;BAD ARGUMENT FOR BDINIT

- INITIAL ERROR NUMBER

000001

;ERROR MA(CROS
.MACRO
ERADR
CALL
L IST

ERROT

OD>
, <P ,ERADR
ERRM

N+

JUPDATE ENTRIES FOR ERROR P

;ewwx XMTR ERROR P wnwex
CNLIST
.ENDM

.MACRO
ERADR
CALL

LLIST

ERROR

,ERADR>
, <PMOR
ERR

N+1

;exsxx RCYR ERROR P wtens
LNLIST
.ENDM

JREGISTER SAVE MACRO
.MACRO
JSR
.ENDM

REGSAV

RS ,REGSAV

JREGISTER RESTORE

.MACRO

MA(CRO

REGRES

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

MACY11 30A(1052)

20-0(T-78
JSR
.ENDM

09:48

RS ,REGRES

PAGE 1-5

SEQ 0047

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-3EP-78 15:13

MACY11 30A(1052)
20-0(T-78 09:48 PAGE ¢
DEFINITIONS AND DEVICE INFO
.SBTTL DEFINITIONS AND DEVICE

284
285
286
287
288
289

. IDENT

SEQ 0048

INFO

l020

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

177560

000060
000004

164200
164220

000174
000170
000005
000005

000024
000400
000040

;

VARIABLE SYMBOL DEFINITIONS.

;

DEVICE DEFAULT INFORMATION.

TIDEV

TTVC(TR
TTPRIO
PCLTXM
PCLRCV
RCVECT
TXVECT
TXPRIO
RCPRIO

=
=
=
=
=

QUEUE SIZES.

TISIZE

TOSIZE
AOSIZE

=
=

177560
60
4
164200
164220
176
170
p)
5

JADDR OF

RCSR FOR

JPRIORITY

LEVEL

20.

;TI1Q SIZE.
.T70Q SIZE.
:ADR QUEUE

SIZE

256.
32.

000C00
000002
000004
000006
000010
000012

QELEMS

QTOP
QBOT

=
=

4
6

000000
000001
000002
000003
000004
000005
000006
000007
177776
177570

RO
R1
R2
R3

000012
000015
000017
000025
000003
000021
000023
000177

LF.
CR.
(T1L.0
c(TlL.v
cre.c
(rL.q
(TL.S

QSIZE

QFRONT

QBA(CK
.

TTY.

JINPUT VECTOR ADDR FOR TTY.
FOR

TTY,

JMELEMENTS PRESENTLY IN QUEUE.
JMELEMENTS IN QUEUE SPACE.
;JADDR OF 1ST WORD OF QUEUE SPACE
;=QTOP+(QS]IZE*2)

;JADDR OF FRONT ELEMENT OF QUEUE.
;ADDR OF BA(CK ELEMENT OF

QUEUE.

RS
SP
PC
PS
SR

=
=

20
13
2
13

x5
X6
X7
177776
177570

sJSPECIAL CHARACTER DEFINITIONS:

RUBOUT

=
=
=
=
=
=
=

12
15
17
25
3
21
23

177

;SWITCH REGISTER.

:CR OR LF TO END LINE.
;%0 TO THROW AWAY TTY QUTPUT.
;*U TO DELETE LINE.
;JCNTRL=-C TO START INPUT, (*()
;CNTRL=-Q TO RESUME PRINTOUT

;CNTRL=S TO SUSPEND PRINTOUT
;RUB OUT TO DELETE CHARA(TER.

CZPLABO PCL11 EXERCISER
12-SEP-78
PCLEXR.P11

100000
004000

000200
000100

MACY11

30A(1052)

20-0CT-78

09:48

DEFINITIONS AND DEVICE

INFO

.
DEVICE BIT DEFINITIONS.
100000
ERR
4000
BUSY
200
DONE
100
INTENS

PAGE 2-1

SEQ 0049

C(PLABO PCL11 EXERCISER V02

12-SEP-78 15:13

20-0CT-78

;BIT DEFINITIONS:

B0S

£ A
B
I

806

B04
803
BO?
801
BOO

B07

000020
000010
000004
000002
000001

B13
B12
811
B10
809
808

T A

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

100000
40000
20000
10000
4000

B15

B14

X I

100000

09:48

DEFINITIONS AND DEVICE

PCLEXR.P11

MACY11 30A(1052)

INFO

PAGE 3

SEQ 0050

(ZPLABO PCL11 EXERCISER v02
PCLEXR P11
12-SEP-78 15:13
367
368
369
370

371
372

MACY11 30A(1052)
PCL11

378

09:48

PAGE 4

SEQ 0051

EXERCISER MAIN PROCEDURE

.SBTTL PCL11 EXERCISER MAIN PROCEDURE
.ENABL ABS

000000
000200

‘REPT

WORD

373

374
375
376
377

20-0CT-78

128.

.+2.0

. TRAP CATCHERS

.ENDR

000200
000167

012706
000167

JMP

001574
002000
002354

002000
002000
002000

RELZRO

200

PCLEX

;PROGRAM STARTS AT 200
JAND RESTARTS AT 204

MOV
JMP

SP
#STKTOP,
PCREST

2000

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

#STKTOP,SP
TXDEV RO
RO,TCR
#2 RO
RO, TSR
#2,R0
RO, T7SDB
#2 RO
RO, TSBC
#2 RO
RO, TSBA
#2,RO
RO, TMMR

;SET STACK POINTER TO TOP

MoV
INC
MOV

RO, TMMRH
RO
RO, TSCRC

JAND TMMR HIGH BYTE

STKTOP

012706
016700
010067
062700
010067
062700
010067
062700
010067
062700
010067
062700
010067
005200
010067
005200
010067
016767

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

016700
010067
062700
010067
062700
010067
062700
010067
062700
010067
062700
010067
016767

014060
014000
000002
013772
000002
013764
000002
013756
000002
013750
000004
013742
014002

PCLEX:

INC

014020

014014
014064

;xxxxSTART

014024

MoV

TXVEC, TXMVEC

MOV
MOV
ADD
MOV
ADD

RCDEV,RO
RO,RCR
#2 .RO
RO,RSR
#2 RO

ADD

#2 RO

MOV

013740

MOV
ADD
MOV
ADD
MoV
MOV

HERE*%x%x«

;PREPARE TO GENERATE TXM ADDRS

;GENERATE T(CR ADDRESS

;GENERATE TSR ADDRESS
;GENERATE TSDB ADDRESS
;GENERATE TSBC ADDRESS
;GENERATE

TSBA ADDRESS

;GENERATE TMMR ADDRESS

;GENERATE TSCRC ADDRESS

;GENERATE TXMVEC ADDRESS
;PREPARE TO GENERATE RCVR ADDRS
;GENERATE RCR ADDRESS

;GENERATE RSR ADDRESS

RO,RDDB

;GENERATE RDDB ADDRESS

RO,RDBC
#2,R0
RO,RDBA
#4 RO
RO,RDCRC
RCVEC,RCVVEC

;GENERATE RDBC ADDRESS
;GENERATE RDBA ADDRESS

;GENERATE RDCRC ADDRESS
;GENERATE RCVVEC ADDR

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

21
422

423
424
625
426
W27

002174
002174
002200
002206
002214
002220
002224
002230

002236

012706
012737
012737

105067
105067

005067
012767

005067
016767
016767
005067
016767
016767
012737
012777
012777
012777
016700
012760
016700
012760
016700
012760

002000
003340
000340
015420
015415
015450
000204

014276
014276
014270
014342
016342
0146334
000340
007600
011124
015642
013600
000240
013570
000240
013570
000200

012700
016701
012702
004767

031023
015304

012737
005067
005777
012767
012737
012737
000167
022626

002550
015132
013426

PCL11

PCRST:

000004
000006

015524

.IRP
LIST

LNLIST
.ENDM

012230
000340
000020

01502
000102
000102
177776
002702

000100
015134

MOV
MoV
MOV
CLRB
CLRB

CLR

MOV

PRST:

MOV
MOV
MoV
MOV
MOV
CALL
CALL
CALL
CALL
MOV
MOV

JSR
CALL

000004

MoV

CLR

TST
MOV

015120
000100
000102
$TR:

000100
000004
015072
013320

#340,a46
REQINP

CMDENT

RONT
LC'Q+QTOP,LC'Q+QF
LC'Q+QTOP,LC"Q+0BACK

CLR

000002

#STKTOP ,SP
NERTRAP ,a#é

CLR
MOV
MoV

MOV
MOV
MOV
MOV
MOV
MOV

000002

PAGE 5

MOV
L

014344
014340

000002

PCLGO
#204 ,RSHOLD
<T!,T0>

MOV
MOV

177776
013620
013614
013620

09:48

StQ 0052

EXERCISER MAIN PROCEDURE

014300
014274

177777

20-0CT-78

CLR

030214

100000

005067

MACY11 30A(1052)

MOV
JMP

cMP
CLR

MOV

CLR
PCREST: CLR
MOV
BIS
BIS
CLR

;euxaaRESTART HERE wwwnxx
JRESET STACK POINTER

JSET UP VECTOR FOR ADDRESS ERROR

;CLR INPUT REQUEST
;CLR COMMAND ENTERED FLAG
;CLR XMTR GO FLAG
;SAVE RESTART ADDRESS

JINITIALIZE 10 QUEUES TO EMPT

LC'Q

TIQ
T1Q+QTOP, TIQ+QF RONT
T1Q+QTOP, T1Q+QBACK
T0Q
T0Q+QTOP, TOQ+QF RONT
T0Q+QTOP, TOQ+QBA(CK
#340,a4PS
#XMTINT ,aTXMVEC
#RCVINT ,aRCVVEC
HTTIINT ,@TTVECT

TXMVEC
RO
#TXPRIO*32.,2(R0O)
RCVVEC,RO
#RCPR]IO*32.,2(RD)
TTVECT
RO
N#TTPR]O*32.,2(R0O)
PNCRLF
PNCRLF

PNTLIN,<PCLEXM>
PRINIT
#RSADD ,RO
RSHOLD ,R1
#-1,R2
PC,OCTJSP
PNTLIN,<RSTMSG>
#STR,an4
KWFLG
alLCS
#=1 KWFLG
#CLKINT ,a#100
#360,a#102
PCREST

(SP)+,(SP)+

KWFLG

#102,34#100
a#102
a#PS
HTRAPS
, a#é

#B15,RCVEV

#806,3TTRCSR
ESCFLG

;DISABLE INTERRUPTS

22:SET UP XMTR INTR VECTOR
:::SET UP RCVR INTR VECTOR
:3:SET UP TTY INTR VECTOR
;2;SET TXM PRIORITY
;:.SET RCVR PRIORITY

;2;SET TTY PRIORITY
:::PRINT TITLE MESSAGE
;.o INITIALIZE TRANSMITTER

;. ;BUFFER ADDR FOR OCTPNT IN R1
;. ;DATA FOR OCTPNT IN RO
;..DON'T COMPRESS BLANKS
22, COMPUTE RESTART ADDRESS
2 ;PRINT RESTART ADDRESS
2:;.SET UP TO TEST FOR CLOCK
::;CLEAR KW11 FLAG
;o ANY CLOCK?
:::YES, SET KW11 FLAG
;:;SET UP CLK VECTOR
;. cAND CONTINUE
;.:NO CLOCK, CLEAR STACK
:2:CLR KW11 FLAG
:2:SET UP TO TRAP HALT

;o sALLOW INTERRUPTS
;CHANGE TRAP VECTOR FOR ERROR
;SET RCVR EVENT FLAG
;SET TTY KBD INTR ENAB
;CLEAR CNTRL-C FLAG

(ZPLABO PCLY1 EXERCISER v0?2
12-SEP-78 15:13

PCLEXR.P1

469
470

N
472

473
474

475
476
6“77
478
479
480
481
482
483
484
485
486
4«87

002622
002626
002632
002636
002642
002646
002662
002676

005067
005067
005067

002702
002706
002714
002720
002724
002730
002746
002752
002756

005067
005067

015030
015106
015104
015942
015040

000167

000060

011667
162767
012700
016701
004767

014756
000002
031140
014740
027752

012706
005037
000167

002000
177776
177664

MACY11 30A(1052)

20-0CT-78

B
09:48

5
PAGE 5-1

SEQ 0053

PCL11 EXERCISER MAIN PROCEDURE

014750

QLDEV
RJCTF

RTRYA:

CLR
CLR
CLR
CLR
(LR

CALL
CALL
JMP

PNCRLF
PRESC
PCLOOP

TRAPS:

MOV

(SP) ,SUMSV
#2,SUMSV
H#TRPLAD
RO

SuUB

MOV

MOV
JSR

CALL
MOV

CLR
JMP

TRNKF

SPCEV
XSPCEV

SUMSV,R1

PC,OCTJSP

PNTLIN,<TRPDMG>
#STKTOP,SP
a4PS
RTRYA

;CLR QUEUE LOAD EVENT FLAG
;CLEAR REJECT FLAG

;CLEAR TRUNCATE FLAG

sCLEAR MST DWN EVENT
;CLR NOW MST EVENT
JENQUEUE CR, 8 LF
JENTER COMMAND MODE.
;GO TO MAIN LOOP

;SAVE TRAP ADDRESS
JALIGN [T =2
JSHOW OCT CONV RTN RIGHT ADDRESS
; FOR ASCII CHARS.
;PRINT TRAP MESSAGE

;LOWER PRIORITY

(ZPLABO PCL11 EXERCISER VO?

PCLEXR.PN
489
490
N
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506

507
508

509
510
S
512
513
514
515
516
517
518
519

12-SEP-78 15:13

MACY11

30A(1052)

MAIN LOOP

20-0C7-78

c
09:48

5
PAGE 6

SEQ 0054

.SBTTL MAIN LOOP

002762
002766
002770
003010
03012
003026
003032
003050
003054
003056
003072
003076
003100
003114
003120

003142
003144

005767
001406

013552

PCLOOP:

105767
100006

014631

NXTO:

005767
001406

013572

NXT1:

005767

014602

100006

NXT2:

005767

014562

NXT3:

005767

014554

NXTé:

100006

005767
100006

014540

NXTS:

005767
100006

014520

NXT6:

005767
100006

014460

NXT7:

005767

014432

NXT8:

005767

014434

NXT9:

005767

014356

NXT10:

005767

014336

NXT11:

100006

000167

177422

NXT12:

TST
BEQ
CALL
TSTB
BPL
CALL
TST
B8EQ
CALL
TST
B8PL
CALL
TST
8PL
CALL
TST
BPL
CALL
TST
BPL
CALL
TST
8PL
CALL
TST
BPL
CALL
TST
BPL
CALL
TST
8PL
CALL
TST
8PL
CALL
TST
BPL
CALL
JMP

TI1Q

NXTO

;IS TTY INPUT QUEUE EMPTY?

CMDENT
NXT1
COMENT

JYES, TEST ANOTHER FLAG
;NO, PROCESS A CHARA(CTER
JHAS A COMMAND REEN ENTERED?
;NO, TEST ANOTHER FLAG
JYES, PROCESS COMMAND

NXT2

JYES,

TTINP

T0Q

IS TTY QUTPUT QUEUE EMPTY?

TTOUT
QLDEV

;NO,OUTPUT A CHAR IF DEV RDY
;1S ADDR QUEUE EMPTY?

ADQLD

;YES., LOAD ADDR QUEUE
;1S DATA GEN FLAG SET?
sNO, TEST ANOTHER FLAG
JYES GENERATE NEW RANDOM DATA

NXT3

DATGEV
NXT4
DATGEN
TXMEV

NXTS

TXMIT
RCVEV

NXT6

RECV
SPCEV

NXT7

SPEC
STSEV
NXT8
STATUS

SUMEV
NXT9
SUMRY

XSPCEV

NXT10

XSPEC
TEREV

NXT11

TEROS
REREV

NXT12

REROS
PCLOOP

sNO,

TEST ANOTHER FLAG

;1S C1TR EVENT FLAG SET?

ST ANOTHER FLAG
:NO,
JYES, ENTER XMIT MODULE
;1S RCVR EVENT FLAG SET?
;JNO, TEST ANOTHER FLAG
;YES, ENTER RECVR MODULE
;1S SPECIAL EVENT FLAG SET?
;NO, TEST ANOTHER FLAG
JYES, HANDLE SPECIAL EVENT
;IS STATUS EVENT FLAG SET?
;JNO, TEST ANOTHER FLAG
JYES,OUTPUT STATUS
;IS SUMMARY EVENT FLAG SET?
sNO,

TEST ANOTHER FLAG

JYES, OUTPUT ERROR SUMMARY
;1S EXTRA-SPECIAL EVENT SET?

;YES, HANDLE NOW MASTER.
;1S XMTR ERROR EVENT SET?
;NO, TEST ANOTHER FLAG
:YES OUTPUT XMTR ERROR

TABLE

:18 RCVR ERROR EVENT SET?
:NO,

JYES,

OUTPUT RCVR ERROR

;STAY IN MAIN LOOP

TABLE

;TRAP TO 4 HANDLER

ERTRAP:

005067
005067
052777
005037

014314
014306
000100
177776

012706
000167

002000
177226

012536

REGSAV
CALL
CLR
CLR
8IS
CLR
REGRES
MOV
JMP

:3:SAVE RO...RS

PNTLIN,<ERTMSG>
RCVEV
PCLGO

:2:PRINT

#B806,aTTRCSR
a#PS

:2:;CLEAR RCVER EVENT FLAG
22:CLR PCL GO FLAG
;::SET TTY KBD INTR ENAB
::2:DROP CP PRIORITY

TRAP MESSAGE

#STKTOP,SP
RTRYA

JFIX STACK
JENTER COMMAND MODE

CZPLASO PCL11 EXERCISER V0?2

PCLEXF P11

12-SEP-78 15:13

MACYT1 30A(1052)

20-0(T-78

COMMAND PROCESSORS:

D
09:48

§
PAGE 7

.SBTTL COMMAND PROCESSORS:
.SBTTL
COMMANL PROC. FOR SILO

SEQ 0055
(LOAD)

LOAD OR CLEAR THE TRANSMITTER ADDRESS (HARDWARE) SILO.
IF THERE ARE NO ARGUMENTS, CLEAR THE ADDRESS SILO AND SET

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

IF ANY 2 SEQUENTIAL ARGUMENTS ARE THE SAME, SEPARATE THEM WITH
IF THE FIRST ARGUMENT IS THE SAME AS THE LAST

A PAD VALUE OF ‘0",

; ARGUMENT, INSERT A PAD VALUE OF '0'" AFTER THE LAST ARGUMENT.
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
012767
021027
001402
000167
026067
001004
112721
005267
116011

001002
000167
122711
103002
000167
112167
062700
005302
001343

(P SILO:

000002

000446
014254
000062

M $:

1%:

PROC

CPSILO

MOV
MOV
DEC

#ADSILO,R1

BNE
JMP
MOV
CMP
BLOS
JMP
MOV
MOV

2(SP) ,R2

R2
11%
CLEAV
R2 ,PADFLG
R2,#50.
13
SYNRTM
R2,0BJCNT
R2,RO
RO

0003°4
000037

DEC
MULT
ADD
ADD
MOV
MOV
(MP
BEQ
JMP
CMpP
BNE
MovB
INC
MovB
BNE
JMP
(MPB

000302
014110

5¢%:

mMovBe

SYNRTM
#37,(R1)
5%
SYNRTM
(R1)+ NEXT

DEC
BNE

R2
cpMLP

000004
000004
000000
000002
000346
000004
000000
0146206
000004

177772

014176
0146172

(PMLP:

014152

3%:

BHIS
JMP

ADD

==
;**ENTRY POINT

oSET R1

TO POINT TO SILO BUFFER

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

EXIT

;SAVE COUNT FOR LATER USE.

JARE THERE MORE THAN 50 OBJECTS?
sNO,

CONTINUE

;YES, ERROR

s SAVE OBJECT COUNT

;s TURN LOOK-UP AROUND

6,RO,R3
SP.RO

#4 RO
4(RO) ,FIRST
#0 NEXT

(RO) 42
2%

SYNRTM
4(RO) ,NEXT

#0,(R1)+

O0BJCNT
4(RO), (R1)
4%

;SAVE FIRST ITEM
:SAVE CURRENT ITEM

;1S IT CLASS 2?
JYES,

O0.K.

;NO, ERROR
;1S THIS ITEM SAME AS LAST?
;NO, 0.K,
JYES, INSERT A PAD VALUE
;KEEP OBJECT

COUNT UP TO DATE

JPUT OBJECT INTO BUFFER

;ERROR IF OBJECT IS O

;ERRGR IF IT WAS > 37
;SAVE REAL ITEM
JSET UP TO GET NEXT OBJECT
JARE
sNO,

WE DONE LOADING BUFF?
KEEP GOING

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11
600

601

602
603
604
605
606
607
608
609
610
611
612
613
614
€15
616
617

618
619
620

621
£22

623

12-SEP-78 15:13

003612

026767

014074

003622
003626
003632
003640
003642
003646
003654
003660
003666

112721
005267
026727
101402
000167
152777
012700
026767
001002

000000
014126
014122

003620

003670
003674
003700
003704
003710
003712

003714

003720
003724
003726

003734
003736

000232
000060
000062

014074

005067
016702
012701
112177
005302
001374

014024
014060
017776
012200

020067
002363
132777

014034

166700

001037

003772
004010
004026
004034
004040
004042

631

004066

152777

005767
001407

000241

635

004100

000261

000167

177770

004106
0046114
004122

152777
012767
000241

000060
177777

642

7%:

014032
8%:
SILLD:

SLOLP:

004076

004102

004124

142777

000167

000020

012016

CPSLV:

9%:

MOVB
INC
cMP
8' 0S
JMP
B1SB
MOV
(Mp
BNE

#0,(R1)+
0BJCNT
OBJCNT ,#50.
’$
SYNRTM
#805+B04 ,aTMMRH
#50. RO
O0BJCNT ,PADFLG
SILLD

JYES, INSERT A PAD VALUE
JAND KEEP OBUECT COUNT UP TO DATE
;OBJECT COUNT GOTTEN TOO BIG?

0BJCNT RO

JYES, IS THAT ALL THAT'LL FIT?

CLR
MoV
MOV
MOVB
DEC
BME
suB

CALL
CALL
BISB
TST
BEQ
CALL

MoV

BICB

cLC

CLEAV:

PADFLG
|
0BJCNT ,R2
#ADSILO,R1
(R1)+,3TMMR
RZ
SLOLP
RO,0BJCNT
SILLD
#1,3TMMRH

CPSLV
PNTLIN,<MSTMG1>
PNTLIN,<MSTMG?2>
PNTLIN,<MSTMG3>
PNTLIN, <MSTMG4>
#801,aTMMRH

;NO, O.K.
;YES, ERROR
;PREPARE 10 LOAD ADDR SILO
JHOLD SILO 3SIZE

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

;IF NOT LOAD THEM AGAIN
;SEE IF I AM MASTER
;IF SO TURN ON SILO AND EXIT
JPRINT ‘THIS UNIT IS NOT MASTER

; BUT HAS BEEN MADE SECONDARY

PADFLG
9%
PNTLIN, <MSTMG5>
#B04 ,aTMMRH

;CLR AUTO ADDR

#-1,ESCFLG

JMP

CPSEX

BISB
MOV
CLC

#805+B04 ,aTMMRH
#=-1,ESCFLG

JMP

;NO, 0.K.

; THE SILO YOU HAVE JUST FILLED
; WILL BE USED IF YOU CLEAR THE
: THE CURRENT MASTER'',
JHAS SILO BEEN PADDED?
;NO, CARRY ON.
JYES, TELL OPERATOR.

RETURN

SYNRTM: SEC

011776
013634

SEQ 0056
;IS LAST OBJECT = FIRST?

BNE
CALL

CPSEX:

177746

PAGE 7-1

NEXT ,FIRST

(Mp
BGE
BITB

012156

013670

004074

639
640
641

012236

177777

632

638

6%:

012056

012767

636

002062

000002

013660

09:48

(MP

BNE

CALL

004060

g%z

014070

014040
000001

20-0CT-78

COMMAND PROC. FOR SILO (LOAD)

003754

624
625
626
627
628
629

630

001004

MACY11 30A(1052)

CPSEX

;FLAG COMENT TO ISSUE NEW 'PCL>"'.
;CLEAR "'C'" FOR NON ERROR RETURN
;SET 'C'* BIT FOR SYNTAX ERROR
JAND RETURN

;RESET AUTO ADDR & CLR SILO
;FLAG COMENT TO ISSUE NEW "PCL>"'.
;CLEAR ''C"" IN CASE IT WAS SET
JRETURN

(ZPLABO PCL1Y
PCLEXR P11

EXERCISER V02
12-SEP-78 15:13

MACY1

30A(1052)

20-0CT-78

COMMAND PROC.

09:48

PAGE 8

SEQ 0057

FOR MASTER, SECONDARY AND R.I.B.

.SBTTL

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

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

022766
001402
000261
000423
010603
062703

000002

(PMOK:

000004
011720
000001

110277

011706

012767

CPMAST:

CPMAST

CMP
BE?

#2,2(SP)
CPMOK

J*ENTRY POINT#«
JGET # OF ARGUMENTS
;OKAY [F 2

(PMRET

;OTHERWISE,

ADD
KEYWD

#4 ,R3
R3,4SCTBL

JPROCESS IT

MOVB
BI(B
BIS
MOVB

aTMMRH,R2
#1,R2
(SP)+,R2
R2,aTMMRH

103446
117702
142702

052602

000002

PROC

177777

MOV
BCS

013544

CPMRET:

MOV

RETURN

SP,R3

KWDERT

;

022766
001402

000261
000424
010603

062703

004302
004304

011634
000002

110277
012767

011620
177777

032600
000775

000002

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

(OR CLEAR)'' COMMAND

CPSEC:

PROC

CPSEC

CMP

#2,2(SP)
CPSOK

;IF

BR
MOV
ADD

CPSRET
SP.R3
#4 ,R3

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

BCS
MovB

KWDERT
3TMMRH ,R2

;SYNTAX ERROR IF °°'C'" SET
;GET OLD TMMR

ggg

KEYWD

BICB
ASL

BIS
013456

;GET OLD TMMR
JREMOVE OLD STATE OF MASTER
;SET NEW STATE OF MASTER
;LOAD NEW TMMR

SET SECONDARY, OR CLEAR SECONDARY

CPSOK:

000004

103414
117702
142702
006316

052602
004272
004300

000002

;SYNTAX ERROR IF "'C'" SET

#-1,ESCFLG

;PROCESSOR FOR ‘'SECONDARY SET

SYNTAX ERROR

JGET 2ND WORD OF COMMAND

MOVB

CPSRET:

MoV

RETURN

KWDERT: BIT
BR

R3,4SCTBL

#2,R2
(SP)

;**ENTRY POINT=»

JARE THERE 2 ARGUMENTS?
YES, PROCEED

;PROCESS

JREMOVE OLD STATE OF SECONDARY

(SP) +,R?2

sSET NEW STATE OF SECONDARY

#=-1,ESCFLG

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

R2,aTMMRH

(SP)+,RO
CPSRET

;PROCESSOR FOR 'RIB SET'' OR 'RIB CLEAR"

;LOAD NEW TMMR

JEXIT

;POP BAD WORD OFf
JEXIT

STA(CK

; SET "RIB'' BIT IN XMTR COMMAND WORD LOCATION '‘TXMST'', OR CLEAR IT

004306

PROC

CPRIB

(ZPLABO PCL11 EXERCISER v02
12-SEP-78 15:13
PCLEXR.P11
(1)

695
696
697

698
699
700
701
702
703
704
705
706
707

708
709
710
711

004306
004306
004314
004316
004320
004322
004 324
004330
004342
004344
004350
004354

004356
004360
004362
004 364
004370
004376

022766
001402
000261
000426
010603
062703
103757
016702
042702
000241
006016
006016
052602
010267
012767

000002

(©00002

CPRIR:

:
(PROK

000004

100000

177777

(MP
BEQ
SEC
B8R

MOV
ADD
KE YWD

SP,R3

;2 ARGUMENTS?
JYES,

O.K.

;OTHERWISE, ERROR RETURN

JGET ZND WORD OF (OMMAND

+OR
RR

(SP)
(SP)

;GET NEW STATE OF

#-1,ESCFLG

;FLAG COMENT TO ISSUE NEW

815
CPRRET:

CPRRET

J**ENTRY POINT=*+

e [01Y)

8IC
CLC

013360

#2,2(SP)
(PROK

SEQ 0058

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

B(S

003030

003010

20-0(T-78 09:48 PAGE 8-1
MACY11 30A(1052)
COMMAND PRO(C. FOR MASTER, SECONDARY AND R.].B.

MOV
MOV
RE TURN

#315,R2

(SP)+,R2
R2,TXMST

;PROCESS

;1F

ERROR,

SHOW IT.

JGET OLD STATE OfF TC(R
;CLEAR [MAGE OF RIB
RIB

JSET IT IN IMAGE
;LOAD NEW STATE OF T(R
JBACK TO CALLER

‘PCL>'’

CZPLABO PCL11 EXERCISLR vO?2
12-SEP-78 15:13
PCLEXR.P11

MACY11

3UA(1052)

" OMMAND PROC.

713

&5
(1)
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

COMMAND PROC.

SEQ 0059

FOR RANGE

SET RANGE OF RECEJVER ADDRESSES THAT THIS TRANSMITTER SHOULD TALK

TO.

0,
®.%eNs

720
721
722
723

09:48

FOR RANGE

.SBTTL

714
715
716
717
718
719

20-0(CT-78

ACCEPT A LOWER AND UPPER RECEIVER ADDRESS
TO HIGH ADDRESS

004400
004400
004400
004404
004410
004412
004416

004427
004424
004430
004434
004440
004442

004446
004450
004452
004456
004460

004462

004464
004466
004470
004472
004474
004476
004502

004512
004514
004516
004520
004526

004530
004532

016600
022700
001047
016600
022700
001042
016601
016600
022700
001033
016602
020102
101427
022701
103424
010200

(PRANG:

000002

000003

000004
000002
000010
000012
000002
000016

000037

001422
006300
006300

010003
006300
060300
062700
012710
062700
005202
020201
003771
012767

000261
060167

020064

177777
000014

1727777

177770

CPRFIL:

013230

(IN THAT ORDER).

GENERATE A LIST (SET ACTIVE FLAGS) OF RCVR ADDRESSES FROM LOwW ADDRESS

CPRRTN:
SYNRTN:

INCLUSIVE.

PROC

CPRANG

MOV
(MpP
BNE
Mov
cMp
BNE
MOV
MOV
cMP
BNE
MOV
(MP
BLOS
cMP
BLO
MOV
BEQ

2(SP) RO
#3,R0O
SYNRTN
4(5°) RO
#2,R0
SYNRTN
10(SP) ,R1
12(SP) .RO

ASL
ASL
MOV
ASL
ADD
ADD
MOV
ADD

INC
CMP
BLE
MOV

RETURN

SEC
JMP

#2,R0

SYNRTN
16(SP) ,R2
R1.R2
SYNRTN
#37 R
SYNRTN
R2,RO
SYNRTN
RO
RO
RO,R3
RO
#RADBO
, RO
#-1, (RO
#14.R0

R2
R2.R1
CPRF IL

#-1,ESCFLG

CPRRTN

J**ENTRY POINT
==

JGET # OF OBJECTS

;3 OBJECTS?
JIF NOT, INDICATE SYNTAX ERROR
JGET CLASS OF FIRST OBUECT

JIS IT CLASS 2?
;IF NOT, INDICATE SYNTAX ERROR
;GET “'TO'' ARGUMENT INTC R
JGET CLASS OF SECOND 0BUECT
;IS IT CLASS 2
;1F NOT, INDICATE SYNTAX ERROR
JGET "FROM'® ARGUMENT

INTO RZ

;1S "FROM'' LOWER THAN 'TO'%?

;JIF NOT, INDICATE SYNTAX ERROCR
;1S "0 372
;IF SO, INDICATE SYNTAX ERROR

JFIND 'FROM'' ENTRY
;IF

"FROM '=0,

SYNTAX ERROR

;RO CONTAINS 'FROM'‘ ADDRESS
;SET RCV ADDR ACTIVE FLAG.
;UPDATE TABLE POINTER
; INCREMENT 'FROM'' ADDRESS
UNTIL EQUAL TO '‘TO'' ADDRESS
;
JEXIT WHEN COMPLETE.

;FLAG COMENT TO ISSUE NEW "PCL>"

JSET "'C'" BIT TO INDICATE SYNTAX ERROR

EXERCISER vO?2

12-SEP~78 15:13

MACY11

.SBTTL

758
759

COMMAND PRO(C.

SEQ 0060

FOR ADD AND DELETE

760

ADD A RECEIVER ADDRESS TO THE LIST

762

ACCEPT ARGUMENTS (AT LEAST 1) CHECK THAT THFY FALL IN A RANGE FROM

761

763
764
765

766
1)
ap

767
768
769
770
771

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

10 37;

THEN SET

TABLE.

004536

004536
004536
004542
004544
004546
004552
004556
004560
004564
004566
004572
004574

004576

004600
004602
004604
004606
004612
004616

004622
004624
004626
004634
004636

004640

016602
005302
010600
062700
021027
001027
016001
001424
022701
103421
006301
006301
010103
006301
060301
062701
012711
062700
005302
001352
012767
000261
000167

(PADD:

000002

000004
000002

CPALP:

000004
000037

PROC

CPADD

MOV

2(SP) ,R2

DEC
MOV
ADD

R?
SP,RO
#4 RO

BNE
MOV
BEQ
(MP

SYNTRA
4(RO) R
SYNTRA
#37.R1

ASL

MOV

k1.R3

SYNTRA

ASL

177777

177770

013122

CPARTN:
SYNTRA:

R3.R1
#RADBO ,R1

DEC
BNE

R2
CPALP

M0¥
RE

SEC

IN THE

STAT

=+
; *«ENTRY POINT

:GET # OF ARGUMENTS INTO RZ2

: IGNORE KEYWORD OBJECT
:GENERATE ADDRESS OF ARGUMENTS
:POINT RO AT 1ST OBJECT CLASS

;1S CLASS = 2?

:NO, INDICATE SYNTAX ERROR
:GET OBJECT INTO R1
JIF IT'S 0, SYNTAX ERROR

JIF

17°S >37, SYNTAX ERROR

:FIND THE

TABLE ELEMENT

ADD
ADD

MOV
ADD

177777
000006

CORRESPONDING ACTIVE FLAGS

(RO) 42

BLO

020064

THE

(SET ACTIVE FLAG) OF RCVR ADDRESSES

TURN

JMP

#-1,((RD)
#6,R0O

:SET ACTIVE FLAG FOR THIS TABLE ENTRY
:SET UP FOR NEXT ARGUMENT

#-1,ESCFLG

:FLAG COMENT TO ISSUE NEw 'P(CL>''

CPARTN

;ARE WE DONE?
<NO, CONTINUE.

:SET “'C'* BIT FOR SYNTAX ERROR

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

004644
004644
004650
004652

004654
004660

016602
005302
010600
062700
021027
001034
016001
001431
022701
103426
006301
006301
010103
006301

060301

000002
000004
000002

000004
000037

CPDEL:

PROC

CPDEL

MOV
DEC

S§SP),R2

J**ENTRY POINT*«
JGET # OF ARGUMENTS

ADD

#4 ,RO

SP.RO

:GENERATE ADDRESS OF

MOV
CPDLP:

(MP
BNE
MOV
BEQ
CMP

(RQ) 42
SYNTRD
4 (RO ,R1
SYNTRD
#37 ,R1

ASL

MoV

R1,R3

BLO
ASL
ASL

ADD

SYNTRD

R3,R1

INTO R?
s IGNORE KEYWORD OBJECT

ARGUMENTS

JPOINT RO AT 1ST OBJECTS CLASS

;IS CLASS =2
sNO,INDICATE SYNTAX ERROR
;GET OBJECT

INTO R1

;IF

IT'S 0, SYNTAX ERROR

JIF

17'S >37, SYNTAX ERROR

JFIND TABLE ELEMENT

(ZPLABO PCL1Y
PCLEXR.PT

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

(2ZPLABO PCL11 EXERCISER V02
12~-SEP-78 15:13

PCLEXR.P1T

810
811
812
813
814
815
816
817
818
819
820
821
822
823

004714
004720
004722
004726
004730
004732
004734
004736
004742
004744
004746

004754
004756
004760

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

J 5
MACY17 30A(1052) 20-0(T-78 09:48 PAGE 10-1
COMMAND PROC. FOR ADD AND DELETE

020064

ACD

#RADBO ,R1

000004

ADD

#4 ,R1
(R1)+

CLR
CLR
CLR
CLR

(LR
ADD

000006
177777
177770

013002

DEC
BNE

CPDRTN:
SYNTRD:

MOV
RETURN

SEC
JW

(R1)

(R1)+
(R1)+
(R1)

#6,R0
R2

CPDLP
#-1,ESCFLG
CPDRTN

SEQ 0061

;CLEAR ACTIVE FLAG AT TABLE LOCATION
JAND OTHER ENTRIES...

JSET UP FOR NEXT ARGUMENT
JARE WE DONE?

JNO, CONTINUE
;FLAG COMENT TO ISSUE NEW 'PCL>"

JSET “'C'" BIT FOR SYNTAX ERROR

(ZPLABO PCL11

PCLEXR.P1

EXERCISER V02

12-SEP-78 15:13

MACY11

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

CLEAR THE ENTIRE LIST OF RECEIVER ADDRESSES (CLEAR ACTIVE FLAGS)
TO USE

THIS ROUTINE

BY A CAL. MALRO,

ENTER AT PRCLR AS FOLLOWS

0,0,

.SBTTL

SEQ 0062

CALL

PROC

004764

005036
005042
005050
005056
005060
005062

000002
000001

012701
012700
005010
062700
005020
005020
005020
005020
005301

000037
020100

177777

cMP
BNE
MOV

012752

PROC

PRCLR:

MOV
MoV
CPCLRC: (LR
ADD

000004

CLR
CLR
CLR
CLR

005067
016767
016767

CPCLRT:

005074
005076
005104
005110
005116
005120
005122

022766
001011
052767
005067
042777
000261
000167

000001

000002

100000

012562

012560
000100
177770

010760

#4 ,RO

+
(RO)
+
(RO)
+
(RO)
+
(RO)

RONT
AOQ+QTOP,AO0Q+QF
A0Q+QTOP,AOQ+QBA(K

RETURN

CPCLRC
A0Q

CPCLRT

;GET NUMBER OF OBJECTS INTO R2
JARE THERE ANY ARGUMENTS?
;IF SO, INDICATE SYNTAX ERROR

;FLAG COMENT TO ISSUE NEW 'PCL>"'
J**ENTRY POINT =«

;SAVE (OUNT OF TABLE ELEMENTS
JSET UP TO (LR ACTIVE FLAGS
;CLEAR ALL ELEMENTS OF ENTRY

;DONE?

s1F NOT, CONTINUE
JINITIALIZE ADDR QUEUE

TO EMPTY

JAND LEAVE

JSET "'C'" BIT FOR SYNTAX ERROR

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

005066
005066

#37 ,R1
#RADB,RO
(RO)

MOV
MOV

JMP

;

PRCLR

SYNTRC: SEC

000261
000167

2(SP) ,R2

#1,R2
SYNTR(
#-1,ESCFLG

DEC

BNE
CLR

001367

;CLEAR STATUS TABLE

=
s**ENTRY POINT

MOV

—

005034

016602
022702
001031
012767

WWN

005004
005004
005010
005014
005016
005022
005024
005026
005030
005032

CPCLR

(PCLR:

004764

004764
004770
004774
004776
005004

PRCLR

CPSTAT:

(PSRTN:

SYNTRS:

PROC

CPSTAT

CMP
BNE
8IS
CLR
BIC

#1,2(SP)
SYNTRS
#315,STSEV
STPNTR
#806,aTCR

RETURN

SEC(

JMP

CPSRTN

so«ENTRY POINT=*«
;ARE THERE ANY ARGUMENTS?
;IF SO, INDICATE SYNTAX ERROR
sSET STATUS EVENT FLAG
;0 STPNTR INDICATES HEADER FIRST
;CLR TXM INTERRUPT ENABLE

JSET "°C'' BIT FOR SYNTAX ERROR

; CONTINUE EXERCISING. DO NOT AFFECT THE STATUS TABLE

(ZPLABO PCL11 EXERCISER VvO?

PCLEXR.P11

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

12~SEP-78 15:13

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

;
;
;

DO NOT AFFECT THE ERROR TABLE
DO NOT AFFECT THE RIVR ADDRESS QUEUE
SIMPLY SET PCLGO

PROC

0065126
005126
005126
005134
005136
005144
005160
005176
005202
005204
005212
005214
005216

022766
001027
012767

000001

000002

100000

012534

005767
001403
012777

012446

000261
000167

000100
177770

CPCNT:

PNTLIN,<EXCNT>

e
Je*ENTRY POINT
ARGUMENTS?
ANY
;ARE THERE
SYNTAX ERROR
INDICATE
SO,
;1F
;SET PCL GO FLAG
;PRINT CR & LF
:PRINT "EXERCISER CONTINUING''

CPCNRT

;NO

(MP
BNE
MOV
CALL

#1,2(SP)
SYNT(CN
#315,PCLGO
PNCRLF

TST

KWFLG

CALL

010736

CPCNT

B8EQ

MOV
CPCNRT: RETURN

SYNT(N: SEC
JMP

#306,aLCS

CPCNRT

:GOT A CLOCK?

JRE-ENABLE CLOCK.

sSET "'C'* BIT FOR SYNTAX ERROR

SEQ 0063

(ZPLABO PCL11 EXERCISER VO2

PCLEXR.PI

12-SEP-78 15:13

MACY11 30A(1052)
20-0(CT-78 09:48 PAGE 12
COMMAND PROC. FOR INIT, SUMMARY, AND GO
.SbTTL

894

SEQ 0064

COMMAND PROC. FOR INIT, SUMMARY, AND GO

;TO USE CALL MACRO, ENTER AT PRINIT AND PARCLR

CLEAR STATUS TABLE, SUMMARY TABLE, ERROR TABLE

CLEAR ‘RIB'' IN XMTR COMMAND WORD ‘‘TXMST''
CLEAR CLOCK DATA
CLEAR TRANSMITTER HARDWARE
INITIALIZE DATA PATTERN

b
-— -

d ed e

VN~ OOV OO0 O00TM~

mvvwowbuwdovv

005222

919

005222
005222
005230
005232
005240
005240
005240
005246
005252
005256
005262
005266
005274
005310

005310
005310
005314
005320

005322
005326
005332
005336
005342
005346
005352
005354
005356
005302
005366
005372

022766
001114
012767

000001

000002

177777

012516

105067
105067

105067

005067
042767

012700
022710
001406

01237
012366
012360
012360

100000

024726

005422
005426
005432
005436

CPINIT

P
BNE

#1,2(SP)
SYNTIN

PROC

PRINIT

MOV

PRINIT:

BDINIT
CLRB
CLRB
CLRB
CLR

XMTR
SECNDS
MINUTS
TICKS
HOURS

CALL
PROC

PRCLR
PARCLR

PARCLR:

;FLAG COMENT TO ISSUE NEW 'PCL>"
**ENTRY POINTx«
;CLEAR XMITTER.

;CLEAR SECONDS (TIME)
s CLEAR MINUTES
;CLEAR TICKS
s CLEAR HOURS

#3815, TXMST

;CLEAR RIB IN COMMAND WORD FOR XMTR

MoV

#ERTBL ,RO

J**ENTRY POINT*x
;CLEAR ERROR SUMMARY TABLE

BEQ

ERTCD

8IC

002104

#-1,ESCFLG

J**ENTRY POINTx«
JARE THERE ANY ARGUMENTS?
;IF SO, INDICATE SYNTAX ERROR

ERTBCL: CMP

000004
000006
177756
001350
025150
000000

CLR
ADD

4(RO)
#6 RO

MOV

#37+30,R0

MOV
MOV
ADD

#37 ,RO
#RADB ,R1
#4 R1

:CLEAR ATTEMPS & SUCCESSES
; FROM STATUS TABLE

MOV
MOV

ORIGSD,DTSEED
MLSD ,MSGLSD

CLR

TEREV

JRESTORE ORIGINAL DATA SEED
;AND MSG LENGTH SEED
;CLR XMIT EVENT FLAG
;CLR SUMMARY EVENT FLAG
;CLR STATUS EVENT FLAG

000037
020100
000004

012312
012310
012246
012230
012230
012210

ERTCD:
1%:

2%:

JMP

MOV
MOV
DEC
BNE

CLR
CLR
CLR
CLR
DEC
BNE

CLR
CLR
CLR

#-1,(RO)

;CLR STATUS TABLE & ADDR QUEUE

177777

005374
005376

005400
005402
005404
005406
005414

CPINIT:

PROC

ERTBCL

#TERTBL ,R1
#0,(R1)+
RO
1%

(R1)+
(R1)+
(R1)+
(R1)+
RO
2%

TXMEV
SUMEV
STSEV

;IS ERR NUM = -1?

;IF SO, DONE CLEARING
;OTHERWISE, CLR OCURRENCES
;STEP TO NEXT ENTRY
sAND CONTINUE
;ALSO CLEAR ERROR DATA
;FROM DETAILED ERR TABLE

(ZPLABO PCL11 EXERCISER V02

PCLEXR.PIN
944

945
946

9,7
948

ggg

12-SEP-78 15:13

005442

005446
005452

005460
005462

005464

005067

005067
052767
000261

000167

MACY11

012264
100000

(LR

012200

177770

(1)
957
958
959
960
961
962
ggz

CPINRT:
SYNTIN:

(

005476
005500

005506
005512
005514
005516

000261
000167

000001

000002

100000
012160

012154

177770

965
966
967
568
969
970
971
972
973

:
:
:
:

;

3;3

g;g

;

??g

005522

(1)
983
984
985
986
987
988
989
990
991
992
993
994
995

005522
(005522
005530
(005532
005536
005542
005546
005552
005556
005562
005570
0055786
005604
005612

RETURN
SEC

JMP

022766
001062
005067
005067
105067
1050n”
105067
005067
016767
016767
052767
012767

000001
012200
010662
012075
012072
012064
012064
010642
010634
100000
177777

000002

010644
010640
012052
012066

SEQ 0065

SUMMARY, AND GO

RCTXPS
#815,DATGEV
CPINRT

;CLR XMTR £ RCVR ERROR EVENTS
:CLEAR DATA PASS NO.
;SET DATA GEN FLAG

JSET '°C'" BIT FOR SYNTAX ERROR

(PSUM

CMP
B8NE
MOV
CLR
CPSURT: RETURN
SYNTSM: SEC
JMP

g;g

980
981

CLR
BIS

CPSUM:

FOR INIT,

5
PAGE 12-1

REREV

PROC

022766
001006
012767
005067

N
09:48

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

005470

005470
005470

20-0CT-78

COMMAND PROC.

012206

3%3

955
9??

30A(1052)

START

THE

#1,2(SP)
SYNTSM
#815, SUMEV
SUMPNT
CPSURT

;««ENTRY POINT =«
;ARE THERE ANY ARGUMENTS?

JIF SO, INDICATE SYNTAX ERROR
:SET SUMMARY EVENT FLAG
;0 SUMPNT INDICATES HEADER FIRST

JSET "'C'' BIT FOR SYNTAX ERROR

EXERCISER

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

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:
“‘««SORRY,

1 HAVE NO RECEIVER ADDRESSES.x«'’

AND RETURN TO COMMAND INPUT MODE.

(PGO:

PROC

CPGO

CMP
BNE
CLR
CLR
CLRB
CLRB
CLRB
CLR
MOV
MOV
BIS
MOV
CALL

#1,2(SP)
SYNTX
RCTXPS
AOQ
SECNDS
MINUTS
TICKS
HOURS
AOQ+QTOP,ADQ+QFRONT
AOQ+QTOP,ADQ+QBACK
#815,QLDEV
#-1,PCLGO
PARCLR

s*«ENTRY POINTx#
;ARE 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.P

996
997
998
999
1000
1001
1002
1003
1004
1005
1006

005626
005642
005660
005664
005666
005674
005676
005700

12-SEP-78 15:13

005767
001403
012777
000261
000167

MACY11 30A(1052)

COMMAND PROC.
CALL
CALL
TST
8EQ
MOV

011764
000100

177770

20-0CT-78

010254

STRTIRT: RETURN
SYNTX:

SEC
JMP

B
09:48

FOR INIT,

6
PAGE 12-2

SEQ 0066

SUMMARY, AND GO

PNCRLF

JPRINT

KWFLG

;GOT A CLOCK?

PNTLIN,<EXRST>

(R,

JPRINT "EXERCISER STARIED''.

STRTIRT
#306,aLCS

;NO.
JENABLE CLOCK INTR.
JEXIT

STRTRT

JAND EXIT

SSET "'C''TO INDICATE SYNTAX ERROR

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11

.SBT TL

;
;

nun
o

HSWNO=O

1018
9

1026
1027
1028
1029
1030
1031

1022
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1045
1046
1047
1048
1049
1050
1051
1052

1061

COMMAND PROC. FOR

SEQ 0067

"'ASSIGN''

005704
005706

005712
005716
005720
005724

005726
005732
005736
005740
005744
005750
005754
005760

005762
005766
005772
005774

006000

006004
006006
006012
006014
006020
006024
006026
006032
006036

006042

006100

010600
016001

020127
101402
000167
001030
016002
022702

001402
000167
062700
016002
032702
001402
000167
020227
101402
000167
010267
005301
020127
001030
016002
022702
001402
000167
062700
016002
032702

001030

(PASS:

000002
000005

000372

000004
000002

000352
000006
000002
000003
000330
000774

ASSIGN STANDARD ADDRESSES & VECTORS TO RCVR & XMTR

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

XMTR ADDRESS, XMTR VECTOR, RCVR ADDRESS, AND R(CVR VECTOR.

CAUTION MUST BE EXERCISED WHEN ASSIGNING ADDKESSES TO GET THEM
IN THE CORRECT SEQUENCE AND ORDER.
PROC

10246
1025

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

NOWVESWN=O

Ghns Gunr Guer§

ek —d
D
b

[eo]olololelolals)

puur e S

20-0(T7-78 09:48 PAGE 13
COMMAND PROC. FOR ‘'ASSIGN'

30A(1052)

1%:

2%:

MOV
MOV

(MP
BLOS
JMP
BNE
MOV
cMP
BEQ
JMP
ADD
MOV

CPASS

SP,RO
2(RO) R

11?1,45
3
SYNXR
PART1
4 (RO) ,R2
;g,RZ
SYNXR
#6,R0

2(R0O) ,R2
;;,RZ
SYNXR

3%:

Rg,#774

010170

SYNXR
R?,RCVEC

000004

PART1:

000316

N00004
000002

000264
000006
000002
000017

1%:

000242
164000

2%:

000230
010100

3%:

000003

PART?:

R1,44
PART?Z2

;**ENTRY POINT«=

;COPY LIST POINTER
:GET NO. OF ARGUMENTS
.4 ARGUMENTS?

;ERROR TOO
:LESS THAN
JGET CLASS
JIF IT'S A

MANY ARGUMENTS
4, PARTIAL ASSIGNMENT
OF OBJEC(CT
NUMBER, 0.K.

;ERROR WRONG CLASS
;NOW GET ACTUAL NUMBER

:IE IT ON VECTOR BOUNDARY?

:YES

;ERROR NOT ON VECTOR BOUNDARY
:IE IT WITHIN VECTOR AREA?
JYES

JERROR, OUTSIDE VECTOR AREA
;SAVE AS RCVR VECTOR

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

4 (RO) ,R2
1€,R2

JGET CLASS OF OBJECT
JIF IT'S A NUMBER, 0.K.

SYNXR

;ERROR, OBJECT NOT A NUMBER

#17 ,R2
2%
SYNXR
R2,#164000
3%
SYNXR

JCHECK IF ITS A VALID ADDR
1T 1S, 0.K.
;ERROR INVALID ADDRESS
;IS IT IN THE ADDRESS FIELD?
JYES, 0.K.
;ERROR. ADDR = OUTSIDE DEVICE AREA

#6,R0O
2(R0O) ,R2

:NOW, GET THE NUMBER

gg.RCDEV

;SAVE AS RCVR ADDRESS

R1,43
PART3

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

(ZPLABO PCL11
PCLEXR PN
1062

1063

1064

1065

1066

1067

1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086

1087

EXERCISER v0?2
12-SEP-78 15:13

006102
006106
006112
006114
006120
006124
006130
006134
006136
006142

016002
022702
001402
000167
062700
016002
032702
001402
000167

006150
006154
006160
006162

000167
010267
005301
020127
001027
016002
022702
001402
000167
062700
016002
032702
001402
000167
020227
103002
000167
010267
020127
001014
012767
012767
012767
012767
012737
000167

006146

006166
006170

006174
006200
006202
006206
006212
006216
006222

020227
101402

000261

MACYT1 30A(1052)

COMMAND PROC. FOR

000004
200002

000176
000006
000002
000003

1%:

000154
000774

2%:

000142

010010

3s:

000002

PART3:

000004
000002
1%:

000066

164000

2%:

000054
007720
000001

3%:

000174
000340
173462

MOV
MP
BEQ
JMP

ADD
MOV
BIT
BEQ
JMP
cMp
BLOS
JMP
MOV
DEC
CMP
BNE
MO/

000110
000006
000002
000017

164200
000170
164220

20-0(T-78

PART4:

007704
007700
007674
007670

177776

cMP
BEQ
JMP
ADD
MOV

BIT
BEQ
oMP
cMP
BHIS
JMP
MOV
CMP
BNE
MOV

ASEXT:

MoV
MOV
MOV
MOV

SYNXR:

SEC

JMP

RETURN

09:48

°''ASSIGN"

PAGE 13-1

SEQ 0068

4 (R0O) ,R2

JGET CLASS OF OBJECT

18
SYNXR
#6,.R0

JIF IT'S A NUMBER, 0.K.
;ERROR, WRONG CLASS
;JNOW GET THE NUMBER

#3,.R2

;1S IT ON VECTOR BOUNDARY?

#2 ,R2

2(R0O) ,R2
2%

SYNXR
. H774
Re

SYNXR
R2.,TXVEC

R1
R1,#2
PARTS

4&(RO) ,R2

#2.R2

19
SYNXR

#6,R0

2(R0O) ,R2
#7.,R2

SYNXR

R2,4164000
33

SYNXR
R2.TXDEV
R1.M1
ASEXT
#164200, TXDEV
#170, TXVEC
#164220,RCDEV
#174 ,RCVEC
#340,a3#PS
PCLEX

s YES
JERROR. NOT ON VECTOR BOUNDARY

;IS IT WITHIN VECTOR AREA?
JYES

;ERROR. OUTSIDE VECTOR AREA
;SAVE AS XMTR VECTOR

JONLY 1 ARGUMENT?
;NO, 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?
s YES
;ERROR, OUTSIDE ADDRESS FIELD
;SAVE AS XMTR ADDRESS
;NO ARGUMENTS?
;WE'RE DONE!

;NO ARGUMENTS, LOAD DEFAULTS.

JRAISE PROC.

PRIORITY

;GO START EXERCISER OVER.

;SET ''C'° TO FLAG ERROR
;RETURN

12~-SEP-78 15:13

SEQ 0069

INPUT MODE

JIF ESCFLG <> 0, CALL PRESC (CNTRL-C)
006322
006322
006322
006326
006332
006352
006354
006372
006406
006412
006414

105067
005067

0113
0114

COMENT :

005767
001406

01134 4

006430

PROC

COMENT

CLRB
CLR

CMDENT
ESCFLG

BCC

CMDRTN

CALL

103015
CMDRTN:
CMDRET:

;**ENTRY POINT
=«
;CLEAR COMMAND ENTERED FLAG
;CLR COMMAND INPUT MODE FLAG

COMAND ,<CMDBUF ,CMDTBL>

;CONVERT COMMAND

CALL
CALL

PNTLIN,<SYNTAX>
PRESC

JIF C =0, EXIT
IF C SET
JPRINT °'SYNTAX ERROR''
;GIVE ANOTHER ‘'PCL>"

CALL
RETURN

PRESC

JYES, GIVE A "PCL>"’

TZT
8EQ

ESCFLG
CMDRET

;PROCESSOR FOR SPECIAL

sSHOULD WE FAKE CNTRL-C?
JNO, EXIT
JRETURN TO MAIN LOOP

EVENT

;INDICATE "NO MASTER'' AND CLEAR EVENTS

;THIS EVENT

IS CALLED BY

THE MAIN LOOP AFTER

THE OCCURRENCE OF A MASTER DOWN INTERRUPT

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

MASTER

DOWN

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'’

006432
006432

T QEEQEEY
¥
SNNO
nNNVO

ek —d

—

005067
005067
005067
005067

006446
006464
006500
006504
006510
006514
006520
006534

SPEC:

QOO0

NWNN——WN

PAGE 14

COMMAND DECODER AND PROCESSOR

JRETURN TO COMMAND

d e

COMMAND DECODER AND PROCESSOR

D
d
b
ed

09:48

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

e
d e
d

sd
b
w—d ad
md e
e
b
—

20-0CT-78

.SBTTL

D ek od

b e

_.I—l—l—l—l—d—-l—l—l"\’\—l—l—‘—l_‘—‘_l—l—l—‘—l—l-‘—l—l—l_J—l—‘—l—l_&—l—l—l_‘—)/\’\—J-I—I_D_J—J_I —

—

PCLEXR.P11

MACY11 30A(1052)

SPERTN:

PROC

SPEC

CALL
CALL
CALL
CLR
CLR
CLR
CLR

PNCRLF
PNTL IN, <MDNER>
PNCRLF
SPCEV
PCLGO
STSEV
SUMEV

CALL

RETURN

PRESC

s **ENTRY POINT
=«
;ENQUEUE CR & LF
;ENQUEUE MASTER DOWN MESSAGE
JANOTHER (R & LF
;CLR SPECIAL EVENT FLAG

;DON'T ALLOW TXM EVENT
;DISCONTINUE STATUS EVENT
;DISCONTINUE SUM EVENT
;FAKE

CNTRL-C

KEY

CZPLABO PCL11 EXERCISER V0?2

CZPLABO PCL11 EXERCISER vO2

PCLEXR.PT

12-SEP-78 15:13

MACY11 30A(1052)

006536

(1)

006536

1159

006552

1160
1161
}}2%

PAGE 15

SEQ 0070

“*x TH]S UNIT HAS BECOME NEW MASTER ##'’

;

11?;

1158

;PROCESSOR FOR "EXTRA'' SPECIAL EVENT
;TO INDICATE WHEN THIS UNIT HAS JUST BE(COME
JMASTER AS A RESULT OF PREVIOUSLY HAVING
;SECONDARY SET AND THE CURRENT BUS MASTER
JHAVING JUST DROPPED MASTER.
;WHEN "NOW MASTER'' INTERRUPT OCCURS, THE
;CONSOLE DEVICE WILL PRINT

1125
(

09:48

COMMAND DECODER AND PROCESSOR

1148
1149
1150
1151
115¢
1153
1154
6

20-0(T-78

XSPEC:

006536

006570
006604
006610

PROC

XSPEC

CALL

PNCRLF

CALL
CLR
RETURN

PNCRLF
XSPCtv

CALL

005067

011076

1164

PNTLIN, <MSCHNG>

;**ENTRY POINTw«

;ENQUEUE (R & LF

;JENQUEUE NEW MASTER MESSAGE

JANOTHER (R & LF
;CLR XSPEC EVENT FLAG
JRETURN TO MAIN _0OOP

%122

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

1167
1168

;THIS ROUTINE WILL INITIALIZE THE TEMPORARY LOCATIONS REQUIRED
;BY THE XMTR AND RCVR ERROR EVENTS. IT WILL THEN QUICKLY CHECK THE

1170
1171

:
"'**NO ERRORS TO REPORT YET =«
;WILL BE PRINTED ON THE CONSOLE AND THAT IS ALL.

1169

;RCVR AND XMTR ERROR TABLES FOR ANY ENTRIES.

1172

; IF ANY ENTRIFS WERE FOUND, THE XMTR ERROR EVENT FLAG 'TEREV'' WILL BE SET

1173

; WHICH WILL CAUSE THE XMTR ERRORS AND THE RCVR ERRORS (IF ANY) TO

1174
1175
1176
1}?7

006612

(1)
1178
1179
1180
1181
1182
1183
1184

006612
006612
006620
006622
006626
006632
006634
006636

1186
1187

006642
006660

)

1185

1188
1189
1190
1191

1192
1193

;

006640

006666
006672
006700
006706

006714

}}gg

006722
006730

1196

006732

1197

IF NONE EXIST, THE MESSAGE

006734

022766
001044
012700
012701
005720
001016
005301

000001

000002

025150
001350

BE PRINTED.

CPERR:

18:

001374

012767

000167
012767
012767
012767

012767
052767
000261

000167

PROC

CPERR

CMP
BNE
MOV
MOV
TST
BNE
DEC

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

J**ENTRY POINT*=
JANY ARGUMENTS?
;ERROR [F THERE ARE.
JPOINT AT XMTR TABLE
;SET TABLE LENGTH COUNTER
JANY ENTRIES?
;YES, CALL ERROR MODULE
:NO, CHECK WHOLE TABLE

CALL
MOV

PNTLIN, <NOERMG>
#-1,ESCFLG

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

BNE

177777

011070

025150
100000

010752
011062
011056
011052
010766

000036
100000
000001
000001

177770

SERFL:

JMP
MOV
MOV
MOV
MOV
BIS

CPERTN: RETURN

SYNRR:

SEC

JMP

CPERTN
#815, TEREV
#1,ERRO
1.ERR1
#TERTBL ,ERR2
#815 ,HDRFLG

(PERTN

;AND RETURN
JSET XMTR EVENT FLAG
JINITIATE ERROR #
JINITIATE RCVR ADDR

;INITIATE TABLE POINTER
;SET HEADER FLAG
JSET "'C'" BIT TO INDICATE SYNTAX ERR

PCLEXR.P11T

12-SEP-78 15:13

MACYT1

30A(1052)

20-0C7-78

(09:48

PAGE 16

SEQ 0071

RECEIVER ADDRESS QULUE LOADER ROUTINE

.SBTTL RECEIVER ADDRESS QUEUE LOADER ROUTINE
LOAD THE RECEIVER ADDRESS SOF TWARE QUEUE
THE TRANSMITTER EVENT WILL PI(K RCVR ADDRESSES FROM THE QUEUE

UNTIL

IT IS EMFTY,

_a._a_a_a_a_a_a.a_;_n_a_a%
VOO NO NS WY wN—=O

b b ad d o b

— —d b

PNONUNIADNINI
N~ ~PNIMNINONY

IF THE QUEUE IS LOADED BUT STILL REMAINS EMPTY, AND PCLGO IS SET,
THIS MEANS THE OPERATOR IS TRYING O RUN BUT HASN'T ENTERED

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

PROC

006740
006740
006740
006744
006750
006754
006760
006764
006766
006772
006776
007000
007002
007006
007010
007014
007022
007026
007030
007036
007056

007060
007064
007066
007102
007120
007134

REGSAV
CLR
MOV
MOV
(MP

005067
012702
012700
022710
001002
004767
062700
005302
001367
005767
001424
005267
012767

010706
000037
020100
1727777

QCHACT:

000036
000014

QLOOK:

100000

010652

QRTN:

116067

000002

021231

QLOAD:

MOVB
CALL
RTS

QMTRN:

TST

007416

010722

000207

005767
001753

000727

010614

BNE
JSR
ADD
DEC

BNE
TST
BEQ
INC

MOV
RECRES
RETURN

BEQ
CALL

CALL
CALL
BR

ADQLD

T
J**ENTRY POIN2=
QLDEV
#37.,R2

#RADB RO
#-1,(RO)

QLOOK
PC,QLOAD
#14 RO

QCHACT
A0Q
QMTRN
RCTXPS

#8115, TXMEV

;SAVE RO...R5
;CLR QUEUE LOAD EVENT FLAG
;POSITION COUNTER
;RO POINTS AT

TABLE

;1S ACTIVE FLAG SET IN TABLE?
JNO, LOOK FOR NEXT ONE
JYES, LOAD ADDR INTO QUEUE
JALL ENTRIES CHECKED?

;1S THERE ANVTHING IN QUEUE?

;JNO,THIS IS NOT A VALID PASS
JYES,

INCR PASS NO.

;SET XMTR EVENT FLAG

JRESTORE RO...RS

2(RO) ,BKELEM+1

;GET RCV ADDR INTO HIGH BYTE
;JPUT IT IN ADDR QUEUE

PCLGO
QRTN
PRCTLO

;ARE WE RUNNING?
JNO, LEAVE

PRESC
QRTN

JFAKE CNTRL~-C
JRETURN

E?O,<BKELEM.AOO>

PNTL IN,<MTQMSG>

;STOP PRINTING ANYTHING ELSE
;TELL OPERATOR NO RCVRS

C(ZPLABO PCL11 EXERCISER V0?2

CZPLABO PCL1T EXERCISER vO0?2
PCLEXR.P1
12-SEP-78 15:13

MACY11 30A(1052)

(1)

TR
R
e
I
I
T
LI

007334

1263

1264
1265
1266
1267
1268
1269
1270
1271
1272
1273

1285

SEQ 0072

GENERATE A BUFFER OF DATA AND NOTE THE FOLLOWING CONDITIONS:

007136

1286

1262

PAGE 17

BITS <8:0> OF THE FIRST WORD = MESSAGE LENGTH

[F THE FIRST WORD IS 170000 OR HIGHER, EXPECT A REJE(T
IF THE MESSAGE LENGTH 1S > 600, EXFECT A TRUNCATE

GENERATE RANDOM DATA USING THE FOLLOWING FORMULA:
SN = (SN-1 =« RANDOM NO.) ¢ RANDOM INCREMENT

WHERE S = DATA SEED; AND N = A NUMBER FROM 1

TO MESSAGE LENGTH.

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

1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284

1260
1261

.SBTTL DATA GENERATION (RANDOM) ROUT INE

007136
007136
007142
007146
007152
007160
007162
007170
007176
007200
007206
007214
007216
007224
007230
007234
007240
007242
007244
007250
007254
007260
007302
007310
007312
007314
007322

(1)
1259

09:48

DATA GENERATION (RANDOM) ROUTINE

1243

1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258

20-0CT-78

007330

DATGEN:

010574
010572
010570
177000

010552

000001
010536

010542
000600

177777
170000

010534
010512

012767
005067
012700
016705
006105
005405
010567
016705
016720

177777
010512

010514

066767
005305
003360
016767
012767
005067

010442

010416

010406

010410
010344

005067

005067
005067
042767
001003
012767
026727
002403
012767
022767
101C05

020666
010472

010446

100000

DATGEN

CLR

RCTXPS
RJCTF
TRNKF
#177000,MSGLSD

CLR
(LR

BIC
BNE
MOV
CMP
DTCNT:
BLT
MOV
€
DTGNC:
BHI
MOV
CLR
DTGNCO: MOV
MOV
ROL

010474
010456

010324

PROC

DTCLP:

NEG
MOV
MOV
MGV
MULP
ADD

DEC

DTCDON:

8GT

MOV
MOV
CLR
RE TURN

DTCNT

#1,MSGLSD

MSGL
SD, #600

DTGNC
#-1,TRNKF
#170000,DTSEED
DTGNCO
#-1,RJCTF
TRNKF
#DATBUF ,RO

MSGLSD.RS
RS
RS
RS, TXML

MSGLSD,RS
DTSEED, (RO) +

RANM,DTSEED

. NK,DTSEED
RS
DICLP
DTSEED ,MSGL SD

#3175, TXMEV
DATGEYV

J**ENTRY POINT+

;CLEAR DATA PASS FLAG
;CLEAR REJECT SOFTWARE FLAG

;CLR TRUNCATE SOF TWARE FLAG
;LENGTH NOT TO EXCEED 1000
;IF NON-O, OKAY, CONTINUE.
;IF 0, MAKE IT AT LEAST 1
;1S LENGTH LESS THAN 600?
;NO,SET TRUNCATE

SOF TWARE

FLAG

;1S DATA SEED -10000 OR MORE?
JYES SET REJECT SOF TWARE

FLAG

JAND CLR TRUNCATE SFTWR FLAG
JPOINT RO TO TOP OF BUFFER
JR5 IS MESSAGE LENGTH
;DOUBLE IT

JNEGATE IT
;JSAVE

IT FOR TRANSMIT MODULE

JR5 IS MSG LENGTH AGAIN
JPUT WORD INTO BUFFER
;GENERATE NEW RANDOM NUMBER
;IF

RS = 0,

FINISHED

;GET NEW LENGTH

;SET XMIT EVENT FLAG
;CLEAR DAT GEN EVENT FLAG

hoXanl

—

(ZPLABO PCL1Y EXERCISER v0?2
12-SEP-78 15:13
PCLEXR.P11

b
b e
D
e wd wed
— ad ad

o OO0 NOAND
WL =O

d e
D
S
D md
e ed
e
e
—

N W AN N AN AN N NN N

)

d o

ZERRAR aeas

1297
1298
1299

SEQ 0073

JUNSIGNED MULTIPLY ROUTINE

1290

1295

6
[
30A(1052)
20-0(T1-78 09:48 PAGE 18
MULTIPLY ROUTINE FOR DATA GENERATION

.SBTTL MULTIPLY ROUTINE FOR DATA GENERATION

1288
1289

1291
1292
1293
12%¢4

MACY1T

;CALLED BY 'JSR R4 MLI'
;WITH MULTIPLICAND IN R4 AND MULTIPLIER ON STACK

;PRODUCT RETURNED ON TOP OF STA(CK

007336
007340
007342
007344
007350
007352
007354
007356
007360
007362
007364
007366
007370
007372
007374
007376

012601
011603
010446
012704
005002
006002
006003
103001
060102
005304
003372
012604
006202
006003
010316
000134

MLI:

000020

MOV
MCV

R4 ,-(SP)
#16. RS

ROR
ROR
BCC
ADD
DEC
BGT
MOV
ASR
ROR
MOV
JMP

R2
R3
CyCL
R1,R2
R&
MUL
(SP)+ R4
R2
R3
R3,(SP)
a(R4)+

CLR

CyYCt:

MULP

;CHECK IF MULTIPLIER BIT IS O
;ADD

IN MULTIPLICAND

;COUNT LOOP

JRESTORE R4
;ONE LAST SHIFT
;PRODUCT

IN R3

;STORE RESULT ON STA(K
sRETURN

IS AS FOLLOWS:

JSR

;SAVE A ON STA(K
JSAVE B IN Ré4
JPERFORM MULTIPLICATION

MOV

(SP)+
B

;PUT

.WORD

.ENDM

JSHIFT PRODUCT

A.B
A,-(SP)
B.R4
R4 ML

MOV
MOV

;SAVE R4
;SET UP FOR 16 BIT MULTIPLY

JMACRO F OR THE ABOVE
.MACRO

JGET MULTIPLICAND
JGET MULTIPLIER

(SP)+ ,R1
(SP) ,R3

.42

PRODUCT

INTO B

MACY11 30A(1052)

(ZPLABO PCL11 EXERCISER V02
12-SEP-78 15:13
{PCLEXR.
P

TRANSM]T MODULE

1325

1326
1327
1328
1329
1330
133
1332

—

DS 0BNT
N
W —O~

RRRRRRRRERY

b
b
h —d
b
d md
D

NN
=

TSR0
S

(VoY
AV, 1V,

b
b
D
d

WWW NN

d
b
b
b e
)
D
d
D ek
b
d
d
e ed

PAGE 19

SEQ 0074

CONTROL TRANSMISSION OF RANDOM DATA T0 DE-QUEUED RECEIVER ADDRESSES

LIS

1333
1334

09:48

.SBTTL TRANSMIT MODULE

1322
1323
1326

1335
1336
1337
1338
1339
(1)

20-0(CT-78

007400

060101

"PCLGO'" IS SET, ("'GO"' OR ""CONTINUE'" SET IT), START TRANSMITTING
IF
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 (LEAR'' COMMANDS.

TXMST:

007402
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

010272

005767
001446
016777
012777

006776
010310
020666

006446
0064472

116767

020575

010260

012767
026727
001402
000167
012767
000167

060101

PROC(

TXMIT

TST
BEQ
(LR

PCLGO
TXRTN
TXMEV

TST

AOQ
TX0UT

TXM]T:

005767
001455
005067

016700
006300
006300
010005
006300
060500
062700
062760
005560
016777
056777

.WORD

010260

010254

BDINIT
BEQ
MOV

MOV
CALL
MOVB
MOV
ASL
ASL
MOV

XMTR

TXML ,aTSB(
#DATBUF ,aTSBA

DEQ,<FRELEM A0Q>
FRELEM+1,CURAD

CURAD RO

; TRANSMITTER

COMMAND WORD

,**ENTRY POINT«»

:CAN PCL GO?

:1F NOT, RETURN

;CLR XMTR EVENT FLAG
;CLR XMTR HARDWARE
;ANY ELEMENTS IN ADDR QUEUE?
JIF NOT, FILL IT UP AGAIN
;LOAD BYTE COUNT

:LOAD 8US ADDRESS

;DEQUFUE RECEIVER ADDRESS

;GET ADDRESS TABLE OFFSET

;FIND ADDRESS TABLE ENTRY
IN ORDER TO UPDATE
J
:

"ATTEMPTS"'

ASL

020064
000001

000004

020532

177640

100000

010160
177754
100000
1777462

000006

006342
006334

TXRTN:

010104
000004

TXOUT:

010064

TXDGEN:

ADD
ADD
ADD
ADC
MoV
8IS
RETURN

MOV
(MP
BEQ
JMP
MOV
JMP

#1,6(RC)
4 (RO)

;UPDATE DOUBLE WORD

FRELEM,aTCR
TXMST ,aTCR

;GIVE RECEIVER ADDR TO XMIR

#315,QLDEV

;SET QUEUE LOAD EVENT FLAG

TXRTN

:RETURN

RCTXPS,
#4
TXDGEN

#8315 ,DATGEV
TXRTN

;START TRANSMISSION

;IS THIS THE STH PASS?
;IF SO, SET DATA GEN EVENT FLAG
;SET DAT GEN EVENT FLAG
;RETURN

CZPLABO PCL11 EXERCISER vQ2

PCLEXR.P1

12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

TRANSMIT MODULE

09:48

PAGE 20

SEQ 0075

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

007634

007642
007644
007650
007656
007660
007664
007672
007674
007700
007706
007710
007714
007722

042777
012737
032777
001402

000167
032777
001402
000167
032777
001402

000167

132777
001402
000167
032777
001402

000167
012767

000100
000200
100000

000114
000200

006264
177776

006252

006236

XMTIS:

000610
000040

006222

XMTSR:

000772
000004

006220

XMTPNM:

001074
000020

006172

XMTIR:

007752

XMTPRR:

000514

100000

|
T
T I
[T

XMTINT:

007600
007604
007612
007620
007626
007630

—m

FERELEESE
o]

— d eed wd d e b d d D ed =

1379

100000

20
200

gmxz
< OO

TXER
TXBSY
TXSUC
TXSOR
NOWMST

100000

000020
000200
000040
000004

BIT
BEQ
JMP
BIT
BEQ
JMP

BIT
BEQ
JMP
BITB
BEQ
JMP
BIT
BEQ
JMP

MOV
ERROT

#306,aT(R
#200,34PS

NHTXER,ATSR

XMTIS
ERRINT

#TXSUC,aTSR

XMTSR
SUCINT

#TXSOR,aTSR

XMTPNM
SORINT

ANOWMST
, 3 TMMRH
XMT I8
NMINT
#TXBSY ,aTSR
XMTPRAR

BSYINT

#8315, TXMEV
\N

;2:SAVE RO...RS

:2:CLR TXM INTR ENABLE

2o :ALLOW RCVR INTR BUT NOT TTY
;2:1S THERE A HARDWARE ERROR?
2::NO, CHECK SUC TXF
;2 :HANDLE ERROR
:::WAS IT A SUC TRANSFER?
:2:NO, CHECK SOFTWARE REJECT
;o JHANDLE SUC TXF
2o :WAS MESSAGE REJECTED?
2::NO,CHECK NOW MASTER
;s JHANDLE REJECT
2::1S THIS UNIT NOW MASTER?
:::NO, WAS RECVR BUSY?
2::YES, HANDLE NOW MASTER INT
;::WAS RECEIVER BUSY
;2:NO, INTERRUPT WAS ERRONEOUS
:; JHANDLE BUSY
:::SET XMTR EVENT FLAG
2 :ERROR:ERRONEOUS INTERRUPT FROM XMITR
;eenx XMTR ERROR 1

007742
007746

000002

REGRES
RTI

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

xxwwx

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

PCLEXR.PI

MACY11 30A(1052)

20-0(T-/8

TRANSMIT MODULE

09:48

PAGE [~

SEQ 0076

JXMTR ERROR INTERRUPT ROUTINE

14604
1405

007750
007756
007760

032777
001412

040000

006122

ERRINT: BIT

BEQ
ERROT

;1S ERROR NON EXISTANT LOCATION?

#8314 ,aTSR
ERRA
\N

;ERROR:NON-EXISTANT LOC ERROR [N XMTR
;xwxn

)
d

d e
D
nd

010000
010004
010012
010014

000167
032777
001412

000402
020000

006066

ERRA:

JMP

ERRX

BEQ
ERROT

ERRB
\N

BIT

#213,3TSR

—

1418
1419
1420

1421
1422
1423
1624
M
)
(1)
1425
1426
1427
1428
(1)

(1)
(1)
1429
1430
1431
1432
1)
(1)
(1)
1433
1434
%8
(1)
(1)
1435
1436

1437
1438
1)
(1)
(1)

XMTR

ERROR

T TR

;1S ERROR MEM OFL?
JERROR:MEM OFL ERROR IN XMTR

;xn«x XMTR ERROR T aennr

—
d
e
b

P3 m~mANDDD AN

W N

; DETERMINE AND REPORT THE CAUSE OF THE TRANSMITTER ERRNR.

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
(MP
BNE

ERROT

ERRX

#312,a8TSR

;1S ERROR TXM ERROR?

aTSR,RSP(

:SAVE RESPONSE CODES

ERRC

#-20,RSPC
#15,RSPC
ERRB1
\N

*REMOVE GARBAGE

*RSP CODES 118017
:ERROR: TXM ERROR. RCVR ACCEPTED A NULL
;axsen XMTR ERROR & #xwwr

010114
010120
010126
010130

000167
042767
001012

000266
000003

007626

ERRB1:

JMP

BIC
BNE

ERROT

ERRX

#3,RSPC
ERRRZ2
\N

:DISCARD RSP A'S

:RSB B - 00?
:ERROR:TXM ERROR. RCVR HAS GONE OFF LINE
;anxx XMTR ERROR 5 #axw»

010150
010154
010162
010164

000167
022767
001012

000232
000010

007572

ERRB2:

JMP

(MP
BNE

ERROT

ERRX

#10,RSPC
ERRB3
N

;RSP B = 10?

;ERROR:TXM ERROR. WORD OR CRC REJECTED
Jexxx XMTR ERROR 6 axwxn

010204
010210

000167

000176

ERRB3:

JMP

ERROT

ERRX

;ERROR:MISCELLANEOUS TXM ERROR

JRNNR XMTR ERROR 7 axanxw
010230
010234
010242
010244

000167
032777
001417

000152
004000

005636

ERRC:

JMP

BIT

8EQ
ERROT

ERRX

;MASTER DOWN?

#311,3TSR
ERRD
\N

;ERROR:

MA S TER

D O WN

;exxx XMTR ERROR 10 axxnx

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

1439
1440

1441
14462
1443
1444
1445
1446
14647
1448
(1)
(1)
1)
1449
16450
1451
1452
)
1)
1)
1453
1454
1455
1456

010264
010270
010276
010302
010310
010312
010320
010322
010330
010332

12~-SEP-78 15:13

005067
012767
000167
032777
001422
032777
001404
032777
001010

007410

100000

MACY11 30A(1052)

09:48

20-0CT-78

TRANSMIT MODULE

007406

000104
002000

005570

100000

005556

000020

005550

ERRD:

1%:

PAGE 21-1

SEQ 0077
;STOP TRANSMITTER
JSET SPECIAL EVENT FLAG

CLR

PCLGO
gg;S.SPCEV

BIT
BEQ
BIT
BEQ
BIT
BNE

#310,aTSR

;TIMEOUT ERROR?

#315,aT(R

;IS "R.I.B."TSET?

MOV
JMP

ERROT

ERRE

19
#TXBSY,aTSR

;NO MUST BE WEIRD ERROR.
JYES, IS TDM BUS BUSY?

JYES, RECEIVER WASN'T THERE

;JERROR: ERRONEOUS TIMEOUT IN TRANSMITTER
;awex XMTR ERROR 171

010352
010356
010364
010366

000167
032777
001410

000030
001000

005514

2S:
ERRE:

JMP
BIT
BEQ
ERROT

ERRX

#309,aTSR
ERRX

#xewe

JTXM SILO OVERRUN?

JERROR:SILO OVERRUN ERROR IN XMTR
;esan XMTR ERROR 12 sween

010406
010414
010422
010426

012767
000002

100000

007252

ERRX:

BDINIT

MOV
REGRES
RT]

XMTR

#8315, TXMEV

;CLEAR ALL XMTR HARDWARE

;SET XMTR EVENT FLAG
;RESTORE RO...R5
JRETURN

(ZPLABO PCL11 EXERCISER VO2

PCLEXR.P11

1458
1459

1460
1461

1462
1463
1664

1665

12-SEP-78 15:13

MACY11 30A(1052)

TRANSMIT MODULE

1491
1492

1493
M
1)
1)
1494

1495

1496

09:48

PAGE 27

SEQ 0078

;BUSY INTERRUPT ROUTINE
010430
010436

010444
010452
010456

042777
012767

0092020
10C000

005442
007230

BSYINT: BIC
MOV
BDINIT
REGRES

;CLEAR TDM BUS BUSY
JSET TXM EVENT FLAG
; CLEAR HARDWARE
;RESTORE RO...RS

#TXBSY ,aTSR
#315, TXMEV
XMTR

RTI

000002

1466

1467
1468
1469
1470
1467
1472
1473
1474
gD
)
1)
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490

20-0CT-78

;RETURN

;SUCCESSFUL TRANSFER INTERRUPT ROUTINE
010460
010466
010472
010474
010502
010504

042777
005767
001047
032777
001414

000200
007250

005412

000040

005376

SUCINT: BIC
TST
BNE
SUCINY: BIT

BEQ

ERROT

#TXSUC,aTSR
TRNKF
SUCIA
#TXSOR,aTSR
SUCINP

;CLEAR SUC TXF
;IS SFTWR TRUNCATE FLAG SET?
:YES, GO CHECK SORE
;1S SORE SET?
JNO, CONTINUE

;ERROR:MESSAGE TRUNCATED UNEXPECTEDLY
;aean XMTR ERROR 13 wwnen

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

000421
042777
016700
006300
006300
010005
006300
060500
062700
062760
005560
012767

010612
010620
010622

032777
00101

000040

007212

020064
000001
000010
100000

005344

BR
B8I1C
SUCINP: MOV

ASH
ASL
MOV
ASL
ADD

ADD
ADD

000012
007076

SHBRT:

ADC

SHBRT
#TXSOR,aTSR
CURAD ,RO

;DON'T INC SUC CONNS IF ERROR
:CLR SORE
;PREPARE TO UPDATE STATUS TABLE

#RADBO,RO
#1,12(R0O)

*'SUCCESSFUL'' ELEMENT
UPDATE DOUBLE WORD

RO
RO
RO,RS
RO
RS.RO

10(R0O)

MOV
BDINIT
REGRES

#315, TXMEV
XMTR

BIT

#TXSOR,aTSR

ERROT

RTI

000002

000040

005260

SUCIA:

BNE

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

JSET TRANSMIT EVENT FLAG
:CLEART HARDWARE
JRESTORE RO...R5
JRETURN

SUCCS

;1S SORE SET? (SHOULD BE SET)
;ERROR:MSG FAILED TO BE TRUNCATED
;eexs XMTR ERROR 14 wrwnn

010642
010644
010652

000752
042777
000°67

000040
177616

005226

SUCCS:

BIC

JMP

SHBRT

JDON'T INC SUC CONNS IF ERROR

SUCINY

JPROCESS SUC TXF AS NORMAL

#TXSOR,aTSR

;CLR SORE

C(ZPLABO PCL11 EXERCISER V0?2
PCLEXR.P11
12-SEP-78 15:13

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

}Zgg

010656
010662
010664
010670
010672
010674
010676
010700
010702
010706
010714

0057¢7
001432
016700
006300
006300
010003
006300
060300
062700
062760
005560

1514
}g}z

010742
010746

000002

1%1;

PAGE 23

010720
010726
010734

042777
012767

007056
007062

020064

000001
000010
000040
100000

000012
005152
006740

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

SORCNT: BIC
MOV
BDINIT

RJCTF
SORIP
CURAD RO
RO
RO
RO.R3
RO
R3,RO
#RADRO,RO
#1,12(RD)
10(R0O)

REGRES
RTI

010750

SORIP:

ERROT

#TXSOR,aTSR
315, TXMEV
XMiR

(]‘)

(1)

}g}g

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

ORDER TO UPDATE

"'SUCCESSFUL"" ELEMENT

UPDATE ENTRY

;CLR SORE
;JSET XMIT EVENT FLAG
;CLEAR HARDWARE
JRESTORE RO...RS
JRETURN

;ERROR:ERRONEOUS REJECT BY RECEIVER

Jewrx XMTR ERROR 15 #wwex
010770

000167

177724

JMP

1520
1521

1522
1523

SORCNT

;RETURN

;NOW MASTER INTERRUPT ROUTINE
JSET XSPEC EVENT FLAG (XSPEV)

JAND CLR NOW MST

}ggg

1526
1527
1528
1529
}gg?

SEQ 0079

;SOF TWARE REJECT INTERRUPT ROUTINE

1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513

09:48

010774
011002
011010
011016
011022

142777
012767

052777

000002

000004
100000
000100

005110
006676
005060

NMINT:

BI(B
MOV
BIS
REGRES
RTI

#NOWMST ,3 TMMRH
#8315 ,XSPCEV
#806,aTCR

;CLEAR NOW MASTER
sSET EXTRA-SPECIAL EVENT
JRE-SET INTERRUPT ENABLE
JRESTORE RO...R5
JRFTURN

CZPLABO PCL'1 EXERCISER V02

12-SEP-78 15:13

PCLEXR.P11

RECEIVER MODULE

—=OV00NOW

mmmwwgmmmAAmmmwmmmmmmm

JACTIVE IF RCVEV IS -Vt
RCWD

020000

011024
011024
011030
011034
011042

= OV

FOR LATER CHECKING.

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

D
b —D
d
D
d
b
d
b
b

D
b

011024

d
e

SEQ 0080

; DATA [S STORED IN A BUFFER 'RCBUF'’

)

b e

7
PAGE 24

;CONTROL RECEPTION OF DATA.

005067
004767

006652
000040

012777
012777
012777
052777

022726

012700
012701
005020
005301

022726
000700

176400
020000
000100

»
NOVESNO

O
kb =
b

b wd i

— —d D e
—d b o
b

alololeloleolele)

d ek b =D
d d —d b

v
W[
[V, H W

c
(9:48

.SBTTL RECEIVER MODULE

1534

20-0CT-78

MACY11 30A(1052)

003375

000297

RECV:

005056
005046
005032
005024

813

. PROC

RECV

CLR
JSR

BDINIT
MOV
MoV
MOV
BIS

RETURN

DBF CLR: REGSAV
MOV
MoV
DBCLP:
CLR

DEC
86T
REGRES
RTS

RCVEV
PC,DBFCLR

RCVR
#RCBUF ,aRDBA
#-1400,aRDBC
#RCWD ,aRCR
#806,3RCR

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

J**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...R5

;RO POINTS AT BUFFER AREA
JR1 HOLDS BUFFER SIZE
;CLEAR BUFF LOC
;DONE ?
sNO,LOOP
JYES, RESTORE RO...RS
JAND RETURN

CZPLABO PCL1Y EXERCISER V02
PCLEXR.P11
12-SEP=~78 15:13

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

1568
1569
1570

100000
000400
000200

}2;}

1575
1576
1577
1278

1579

1580
1581
1582
1583
1584
1585
1???

09:48

RCER
RCDOR
RCSUC

000040

011124
011130
011136
011140
011144
011152

011154

011160
011166
011170
011174
011202
011204
011210

032777
"01402
000167
032777
001402
000167
032777
001402
000167
032777
001402

000167

RCRCM
100000

004742

000100
000400

004746

000472

000200

004732

000536
000040

004716

000776

=
=
=

PAGE 25

C
P

SEQ 0081

RCVINT: REGSAV
BIT
BEQ
JMP
RCVINA: BIT
BEQ

JMP

RCVINB: BIT
BEQ
JMP
RCVINC: BIT
BEQ
JMp
RCVIND: ERROR

100000
400
200

#RCER,aRSR
RCVINA
RERINT
#RCDOR,aRSR
RCVINB
RDOINT
#RCSUC,aRSR
RCVINC
RSUINT
#RCRCM, 3RSR
RCVIND

RRJINT
\N

E};

;:;SAVE RO...RS
;::1S THERE A HARDWARE ERROR?

:::NO,CHECK DATA QUTPUT READY
:::HANDLE ERROR INTERRUPT
:::1S DATA OUTPUT READY?
:::NO, CHECK SUC TXF

;2 :HANDLE DATA QUTPUT RDY INTERRUPT

;::SUCCESSFUL TRANSFER SET?
:::NO, CHECK RECECT COMPLETED
;2 :HANDLE SUC TXF INTERRUPT
;:;REJECT COMPLETED INTERRUPT?
:::NO,ERRONEOUS INTERRUPT
:;JHANDLE REJ-COM INTERRUPT
::;ERROR:UNKNOWN RECEIVER INTERRUPT OCCURRED
;xxxx RCVR ERROR 16 e

1587

011230

012767

1589

011242

000002

1588

:::RECEIVER INTERRUPT HANDLER.

?22?

1573
1574

011236

100000

006444

MOV

REGRES
RTI

#B15,RCVEV

:::SET RCVR EVENT FLAG

:::RESTORE RO...RS
:RETURN

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

MACY11

30A(1052)

20-0CT-78

RECEIVER MODULE
JRCVR ERROR

032777
001412

040000

004646

RERINT-

09:48

PAGE

SEQ 0082

[NTERRUPT ROUTINE

BIT

BEQ
ERROR

#3814 ,3RSR
RERRA
\N

;1S ERROR NON EXST LOC ERR?
;ERROR: NON EXST LOC ERR IN RCVR

~
(=]

b
b
d

b and —d

d =

b wad
e

d wd
—

—

ololeleolalolele

000167
032777
001457
017767
042767
032767
001012

—

»H

—

—_

000167
042767
022767
001012

000167

RERRB
\N

;1S ERROR MEM OFLO?
;ERRCR: MEM OFLO ERROR

IN R(CVR

000276
010000

004550
177760

000003

004556

RERRR:

006402
006374
006366

JMP
BIT
BEQ
MOV
BIC

BIT

ERROR

RERRX

#312,8RSR

;ANY

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

;GET RESPONSE CODES
;REMOVE GARBAGE
;LOOK AT TXxM RSP (ODES

RERRC

TRANSMISSION ERRORS?

;ERROR: TXM WENT OFF LINE

000216
00003
000010

006332
006324

JMP
: BIC
RERRB1
(MP
BNE
ERROR

RERRX

#3,RSPC
#10,RSPC
RERRBZ
\N

swxwen

JREMOVE TXM RSP CODES NOW
;WAS

THERE

A CRC ERROR?

sERROR: RCVR CRC ERROR OCCURRED

000154

RERRR?:

JMP
ERROR

RERRX

;ERROR: FIRST WORD RECVD NOT VALID

O~
NNONON

[V, JV, VU, I o

el —
d
—d

olelele

pur Qaar@hur Qe

000167
032777
001412

000130
004000

004410

RERRC:

JMP
BIT
BEQ
ERROR

RERRX

#811,3RSR
RERRD
\N

;WAS ERROR A PARITY ERROR?

JERROR: RCVR DETECTED INVALID PARITY

bl\gw

oSO

b
b
e
—

elelele)

Quurher Gherd

;axxx RCVR ERROR 24 wxxax

000167
032777
001412

000074
002000

004354

RERRD:

JMP
BIT
BEQ
ERROR

RERRX

#310,3RSR
RERRE
\N

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

ISINEEN

[0 321V,

;axnx RCVR ERROR 25 wrwax

—

1625

RERRX

#8313 ,aRSR

;aexx RCYR ERROR 23 wxxxxn

o
N

1623

JMP
BIT
BEQ
ERROR

;xxxx RCVR ERROR 22 twwex

elele]

—d

RERRA:

Nt
N
e

—

004612

;xxxx RCVR ERROR 271

NN
— — D cd e ) b D e e ed ) b ed e e =D d b
0OV 2w
O NOOVNIr v
NN
e e N = O

b
cd ad
—

—

020000

;w*xx RCVYR ERROR 20 wtevxn

N o Yo PPN o Yo Yo,

—l;-l

- ek b b

ONONON PN o Yo Yo Yo W NP N
O~

1622

—_

000332

'
N
Nyt

AAA\J’\J‘\S\J‘
2222
VSN
NRD
8RR
00~
o N 2222232

000167
032777
001412

—

nd e

and wd

b
d

—_

;v«*x RCVR ERROR 17 wenan

000167
032777
001414

000040
001000

004320

:
RERRE

JMP
BIT
BEQ

RERRX

#309,3RSR
RERRX

;WAS

IT BYTE

COUNT

OVERFLOW?

CZPLABO PCL11 EXERCISER V02

PCLEXR.PV

1626
1627

1628
1629

1630
1631
1632

1633
1634

011602
011610
011616
011624
011630
011632
011640
011646

12-SEP-78 15:13

052777
042777
062777

100000

040000
001000

MACY1)
004306
004300
004274

000002

012767
000167

100000
177752

006034

30A(1052)

20-0(T-78

RECE1VER MODULE

RERTRN:

RERRX:

8IS
BIC
BIC

REGRES
RTI

BDINIT
MOV
JMP

09:48

#315,aR(R

#3164 ,aNCR
#809,aRSR

PAGE 26-1

SEQ 0083
;IMMEDJATLY SET REJECT IN R(CVR

;CLEAR RCVR NPR BIT
sCLR BYTE COUNT OVERFLOW
JRESTORE RO...RS

sRETURN
RCVR

#315 ,RCVEV

RERTRN

;CLEAR RECVYR

JSET RCV &VENT FLAG

CZPLABO PCLY1 EXER{ISER v0?2
PCLEXR.P1
12-SEP-78 15:13
1636
1637

1638
1639
1640
1641
16642
1643

1666
1645
1646
1647

1648

RECEIVER MODULE

011652
011660
011666

011674
011676
011704

011710
011716
011720
011726

042777
017767
022767
101011
052777

052777
000002
052777
000167

011732
011740
011742

032777
001403
042777

1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669

011754
011760
011762
011766
011772
011776
012000
012004
012010
012014
012016
012020
012022
012024
012026

042701
001002
012701
162701
020127
003402
012701
012700
067700
001451
006200
020001
001412
103456

(1M

(1)
(1)

1670
1671
1672
1673
1674
1675
1676
(1
(1)
(1)

011750

012046
012050
012054
012076
012104
012110
012112

170000

004236
006046
006040

RDNINT: BIC
MOV
cMP

100000

004212

BIS

#815,aR(R

000100

004200

g%?

#806,aR(R

040001
177752

004170

BHI

RDORTN:

REGRES

RDOINC: BIS

JMP

016701

000040

004160

000040
005760
177000

004150

TXF

RSUINT: BIT

RDORTN

#RCRCM,aRSR

MOV
SuB
CMP
B E
MOV
RSFLSZ: MOV
ADD

#1,R1
#1,R1
R1,#600
RSFLSZ
#600 ,R1
#1400,R0
aRDB(,RO

8EQ
ASR

(MP
BEQ
B8LO

ERROR

;1F MORE -VE THAN -70000
SET REJECT IN RCVR
:
JRESTORE RO...RS
JRE-SET INTR ENAS

sRETURN
;START RECEIVER GOING

INTERRUPT ROUTINE

RSUCNT
#RCRCM, aRSR
RCSEED ,R1

RSNTO:

000600
001400
004110

#314+800,aR(R

BEQ
B:C
RSUCNT: MOV

BIC
BNE

000001
000001
000600

RDOINC

.CLEAR INTR ENAB
;GET FLAG-WORD FOR DATA SEED
;LOOK AT DATA SEED

#177000,R1
RSNTO

RSULV
RO

RO,R1
RSUTST
ERNE
\N

;WAS RECOM SET?
oNO, CONTINUE

JYES, CLR IT AND CONTINUE
;GET DATA SFED
JMASK MSG LENGTH
;1F NOT O, OKAY
;IF 0, MAKE [T 1
JACCOUNT FOR FLAG WORD

;1S IT GREATER THAN 6007
JNO, LEAVE IT ALONE
JYES, SET

IT TO LIMIT

(600)

;DETERMINE # OF BYTES RECEIVED

;NOTHING TO CHECK, EXIT
;RO = NO. OF WORDS RECEIVED

;DID WE RECV ALL THE WORDS?
sYES, CARRY ON
SNOT ENOUGH

JERROR:RCVR GOT TOO MANY WORDS..

000434
012705

066767
026725
0014M

BR
RSUTST: MOV

022726
005646
005624

005630

RSUGEN:

MULP

ADD
CMP
8tqQ

ERROR

RSULV
#RCBUF ,RS

JEXIT IF ERROR
;RS POINTS AT RECVD DATA

RANK ,RCSEED
RCSEED, (R5) +
RSUCHK

;GENERATE CHECK WORD

RANM, RCSEED

;COMPARE IT WITH RECV'D WORD
;ERROR:DATA WORD RECV'D WAS BAD

;xxxx RCVR ERROR 27 xwaxx
012132
012134

1680
1681

012140
012146

1684
1685

012162

1682
1683

SEQ 0084

;exxx RCVYR ERROR 26 xtwwx

1677
1678

1679

7
PASE 27

#806,aR(R
aRDDB
, RCSEED
#170000,RCSEED

000190
004236

;JRCVR SUC

1651
1652
1653
1654

G
09:48

;RCVR DATA OUTPUT RDY INTERRUPT ROUTINE

1649

1650

20-0CT-78

MACY11 30A(1052)

012136

012152
012160

000402
005300

RSUCHK:

001346

012767
000002

RSULV:

100000

005522
ERNE:

BR
DEC
BNE
BDINIT

RSULV
RO
RSUGEN
RCVR

JEXIT IF ERROR
;CHECKED ALL WORDS?
2NO, CONT INUE
;CLR HARDWARE

Q?Y

#315 RCVEV

;SET RCVR EVENT FLAG
JRETURN

ERROR

REGRES

;RESTORE RO...RS

JERROR: RCVR GOT TOO FEW WORDS

(ZPLABO PCL1Y
PCLEXR.P1

EXERCISER vQ?2
12-SEP-78 15:13

MACY11 30A(1052)

20-0(T-78

RECE IVER MODULE

09:48

PAGE 27-1

SEQ 0085

;eeee RCYR ERROR 30 weene
012202

000167

177732

JRCVR REJECT

012206
012214
012222
012226

012767

100000

RSULV

JMP

005460

RRJINT:

000002
;kWll

INTERRUPT ROUTINE

BDINIT

MOV
REGRES
RTI

CLOCK

RCVR

#315,RCVEV

0462777

105267
126727
103424
105067
105267
126727
103414
105067
105267
126727
103404
105067

005267
000002

000200
005400

005374

005364
005361
005355
005345
005342
005336

005326
005324

003712
000074

CLKINT: BIC
INCB
CMPR
8LO
CLRB

INCB

000074

(MP8
BLO
CLRB
INCB
(MPB
8LO
(LRB

000074

CLKEXT:

INC

RTI

:CLEAR HARDWARE
JSET RCVR EVENT FLAG
JRESTORE RO...RS

JRETURN

INTERRUPT ROUTINE

JUPDATE TI(CKS. If = 60. UPDATE SECONDS.
;IF SECS = 60, UPDATE MINUTS. IF MINUTS
JUPDATE HOURS.
012230
012236
012242
012250
012252
012256
012262
012270
012272
012276
012302
012310
012312
012316
012322

JEXIT IF ERROR

#807,3LCS
TICKS

TI1CKS,#60.
CLKEXT
T1CKS

JJUST IN CASE IT MATTERS.
;UPDATE TICKS
JGET TO 60 YET?

;NO
JYES,

CLR

TICKS

;sNO
JYES,

CLR

SECNDS

SECNDS ,#60.

;& UPDATE SECONDS
;GET 60 SECS?

MINUTS

;& UPDATE MINUTES

SECNDS

CLKEXT
SECNDS

MINUTS ,#60.
CLKEXT

MINUTS
HOURS

;GET 60 MINUTES?

.NO

JYES, CLEAR MINUTS
;& UPDATE HOURS
JRETURN

CZPLABO PCL11 EXERCISER vO2
ek —
D
d
d od
e
d od o
d wed
—

ANNNNNNNN NNNN ~
—
= PNONINIPRININININIR)
= —
OO NN
NN =2 OV o

PCLEXR.P11

12-SEP=-78 15:13

MACY11 30A(1052)

20-0CT-78

STATUS MODULE

.SBTTL

1
09:48

7
PAGE ¢8

SEQ 0086

STATUS MODULE

; DUMP STATUS TABLE INDICATING ACTIVATED RECEIVERS
SHOW NO. OF ATTEMPTED (ONNECTIONS TO EACH ACTIVE RECEIVER
;
;
;

;

AND NO. OF SUCCESSFUL CONNECTIONS TO EACH ACTIVE RECEIVER.
QUANTITIES ARE IN DECIMAL AND ARE CAPABLE OF EXPANDING TO

655,359,999, ANY QUANTITY HIGHER THAN THAT AMOUNT WILL BE
REPRESENTED AS ''seexewwen’’ RECEIVER ADDRESS
PRINTED

012326

012324
012324
012330
012332
012336
012342
012344
012352
012354
012360
012364
012366
012372
012376
0124604
012410

012414

012420
012426
012432
012436
012442
012446
012452
012454
012460
012462
012470
012474
012500
012504
012510
012514
012516
012522
012524
012542
012550

012554
012562
012564

005767
001402
000167
005767
001504
026727
002402
000167
005777
001002
000167
012700
062767
017701
012702
004767
062767
012700
016701
012702
004767
020027
103003
112720
000772
062767
012700
016701
012702
004767
020027
103003
112720
000772

STATUS:

004274

000540
005326

005320

60%:
020664

000476
005304
000452
032054
000002
005260
177777

020262

000002
032076
005232
177777
020434
032123

STATUS

TST
BEQ

100
60%

TST

SIPNTR

JMP

BEQ

STRTIN

;NO, RETURN TO WHEREVER

STHDR

:NO, GO PRINT HEADER

;IS OUTPUT POINTER AT TABLE?

;1S POINTER AT END OF TABLE?
;YES, DONE; EXIT

TST

aSTPNTR

;CHECK RCV ADDR ACTIVE FLAG

JMP
MOV

STBADV
#STLIN1,RO

;ADVANCE TABLE IF FLAG (LR
;OUTPUT POINTER FOR OCTJSP

aSTPNTR,R1
#-1.R2

;OCTJSP DUMPS DATA IN STPNTR
;DON'T COMPRESS BLANKS

STPNTR,R1
#-1,R2

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

(MP

RO,ASTLIN2+25

;BLANK REST OF FIELD OUT

STYON:

BR
ADD

STYHR
#4 ,STPNTR

STYTHR:

JSR
(MP

PC.CDDMG
RO ASTLIN3+14

58¢:

JMP

BNE

000040

58%

#2,STPNTR

JSR
ADD
MoV

PC.OCTJSP
#2,STPNTR
#STLINZ ,RO

MoV
MOV

STYHR:

STARXT

ADD

MOV
MOV

005242

005200

J*%ENTRY POINT
=
IS TTY OUT QUEUE EMPTY?

STPNTR,#RADEND
59%

000040
000004
032124
00517
177777
020372
032140

PROC

NUMBERS ARE

(MP
BLT

STCHK:
59%:

005264

IN OCTAL

JSR

BHIS
MOvVB
MoV
MoV
MOV

BHIS

PC,CDDMG

STYON
#' L (RO)+

#STLIN3 RO
STPNTR,R1
#-1,R2

STYONT

MovB
BR

#' ,(RO)+
STYTHR

JMP

STRTN

062767
000167

000004
000322

005120

STYONT: CALL
ADD

132777
001407

000001

003330

STHDR:

B8ITB
8tQ
CALL

;BY INSERTING SPACES

;OUTPUT POINTER FOR (CDDMG
;OUTPUT WORD FOR CDDMG
;DON*T COMPRESS BLANKS
JBLANK REST Of FIELD OuUT

;BY INSERTING SPACES

PNTLIN,<STLIN>
#4 ,STPNTR

JENQUEUE STATUS LINE FOR OUTPUT
;JUPDATE POINTER FOR NEXT LINE

#1,3TMMRH

;IS MASTER SET HERE?

19
PNTL IN,<THUMST>

;RETURN

;NO.
JYES, TELL OPERATOR.

CZPLABO PCL11 EXERCISER VvO2

PCLEXR.PY
1770

1771

012602

012610

1772
1773

012612
012630

1777
1778

012660
012676

1774
1775
1776
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
}gg?

12-SEP-78 15:13

012636
012640
012656

012702
012704
012706
012712
012716
012722
012724
012730
012734
012740
012742
012746
012752
012756
012760
012764
012770
012774
012776
013014
013032
013040

132777

001407

032767
001410

000002
100000

005767

001444
005002
012700
016701
004767
005002
112720
116701
004767
005002
112720
116701
004767
005002
112720
116701
004767
105010

004616

1805
1806

013056
013062

005067

004604

013076

2%:

CALL
BIT

PNTLIN, <THUSCN>
#B15,TXMST

JYES, TELL OPERATOR
;IS "RIB'" SET?

3%:
4%:

CALL
TST

PNTLIN,<RBCLMG>
KWFLG

.GOT A CLOCK?

STBADV: ADD

#14 ,STPNTR

;SET POINTER TO NEXT ACTIVE FLAG

STARXT:

STSEV
PRESC

sCLR STATUS EVENT FLAG
JFAKE CNTRL=~C KEY

000072
004652
017730

004630

000167

;WELL, IS SECONDARY SET?

004671
017746

020100
000032
000020

SEQ 0087

#2,3TMMRH

000072

012767
000167

PAGE 28-1

8178

000072
004710
017764

000014

1807

174542

09:48

1$:

031741
004730
020002

062767

013052

003302

004746

013044

20-0CT-78

STATUS MODULE

000407

1802

3382

MACY11 30A(1052)

5%:

BEQ

8EQ
CALL
BR

BEQ
CLR
MOV
MOV
JSR
CLR
MOVB
MOVB
JSR
CLR
MOVB
MOVA
JSR
CLR
MOVB
MOVB
JSR
CLRB
CALL
CALL
MOV
JMP
JMP

STRTN:

CLR
CALL

RETURN

3s
PNTLIN,<RBSTMG>
3

5%
R2
#TMLIN1 RO
HOURS ,R1
PC,DECPNT
R2
#':,(RO)+
MINUTS R
PC.DECPNT
R2
#':,(RO)+
SECNDS R
PC,DECPNT
R2
#':,(RO)+
TICKS,R1
PC,DECPNT
(RO)
PNTLIN,<ELPSTM>
PNTLIN,<STITLE>
#RADB, STPNTR
STRIN
STRTN

;NO.

cNO, TELL OPERATOR
JYES, TELL OPERATOR

;NO, FORGET ABOUT TIME.
;SUPPRESS LEADING ZEROS
;OUTPUT POINTER FOR DECPNT
;OUTPUT DATA FOR DECPNT
;ENQUEUE 'HOURS''
;SUPPRESS LEADING ZEROS
; INSERT COLON
;GET 'MINUTES'' FOR DECPNT
;ENQUEUE "MINUTES''
;SUPPRESS LEADING ZEROS
s INSERT ANOTHER COLON
JGET '‘SECONDS’’ FOR DECPNT
;ENQUEUE ‘‘SECONDS''
;SUPPRESS LEADING ZEROS
s INSERT ANOTHER COLON
;GET “TTICKS'' FOR DECPNT
;ENQUEUE °'TICKS''
JENQUEUE ‘0°'' PRINT TERMINATOR.
;PRINT "ELAPSED TIME''
;ENQUEUE STATUS HEADER
;SET POINTER TO TOP OF STAT LIST
ZRETURN

sRETURN

CZPLABO PCL11 EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

20-0(T-78

09:48

TRANSMITTER ERRORS MODULE

PAGE 29

SEQ 0088

}g?g

.SBTTL TRANSMITTER ERRORS MODULE

1811
1812

;DUMP A TABLE OF TRANSMITTER ERRORS INCLUDING:
;
ERROR NO.,
CONCT'D RCVR, AND ERROR COUNT FOR

1814
1815
}g}g

;1F THE ERROR COUNT FOR ANY ENTRY IS 0, THAT ERROR NO. IS NOT REPERTED
JIF, AFTER CHECKING THE ENTIRE XMTR ERROR TABLE, NO ERRORS
; ARE PRINTED, SIMPLY PRINT (NONE).

1813

1818
18}?
(

(1)
1820
1821
1822
1823
1824
1825
1826
1827
1828

1829
1830
1831
1832

1833

1834
1835
1826
1837

1838

1839

013100

013100
013100
013104

013106
013112

013116
013120
013124
013142
013160

013164
013172
013174
013200

013206
013214
013222
013230
013234

013236
013254

005767
001402
0007167
005767
001422
005067

000324
004600

000167

000252

026727
001042
005067
052767

052767

012767
012767
005767
001007

004600

000016

004452
100000

004446

100000

000001
026616
004460

005067
000167
005777
001434
012700
016701
004767
012700
016701

004420
000136
004470

1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862

013342
013346
013352
013370
013376
013404
013412
013414
013420
013424
013432
013436

017701
004767

004426
017344

004767
012700

052767

062767
026727
001404
005267
000167
012767
005267

60%:

004572

013270
013274
013300
013304
013306
013312
013316
013322
013326

013332
013336

TEROS:

003520

1840
1841
1842
1843
1844
1845
1846
1847
1848

1849
1850

EACH OF

1%:

004502

3%:

017344
032416

100000

004352
000012
000001
004332

004316

TEROS

TST
8EQ
JMP
TST
BEQ
CLR
CALL

T0Q
60$
TERTN
HDRF LG
1%
HDRFLG
PNTLIN,<TERHDR>

(MP
BNE
CLR
BIS

ERRO 416
33
TEREV
#315 ,REREV

CALL
JMP

MOV
MOV
TST
BNE
2%:

004370
000037

4§$:

004340

5S%:
TERTN:

TRANSMITTER ERRORS.

PROC

BIS

004550
004544

032362
004452
017360
032377
004440

000002
004362

THE

CALL
CALL

CLR
JMP
TST
BEQ
MOV
MOV
JSR
MoV
MOV

JSR
MOV
MoV
JSR
CALL
BIS
ADD
(MP
BEQ
INC
JMP
Mov
INC
RETURN

**ENTRY POINT*«
;1S THE TTY OUTPUT QUEUE EMPTY?
JYES,

CONTINUE

;NO, EXIT
JHEADER PRINTED YET?
JYES, SKIP [T
JNO, PRINT IT NOw.

PNTLIN,<TRHLIN>
TERTN

JAND RETURN

#8315 ,HDRFLG

;SET HEADER FLAG

#1,ERR]
WRERTBL ,ERRZ
PRINTD
2%

PNTL IN, <NONMG>
PNCRLF

PRINTD
TERTN
aERK2
4%
#TRRNO,RO
ERRO,R1
PC,0CTJSP
#TRRCN,RO
ERR1,R1

PC,O0CTJSP
#TRERC ,RO

dERR2 ,R1
PC,DECJSP
PNTLIN,<TRELIN>

4815 ,PRINTD
#2 ,ERR2
ERR1,437
5%
ERR1
TERTN
#1 ,ERR1
ERRO

;1S THIS ERROR # 16?
JNOT YET.
JYES, CLEAR XMTR ERLOR EVENT
;SET RCVR ERROR EVENT
;LOAD INITIAL XMTR #
JPOINT RCVR ERR EVENT AT
;:DID WE PRINT ANYTHING?
JYES, 0.K.

[TS TABLE

;NO, PRINT ''(NONE)''

;NEW LINE

JRETURN
JANY ERRORS?
JNO.
JREADY TO PRINT ERROR NO.
JERROR NO. IS IN OCTAL
JREADY TO PRINT RCVR NO.

JRCVR NO. IS ALSO IN OCTAL
sNOW PRINT ERROR COUNT
JERROR COUNT IS IN DECIMAL
;ENQUEUE TABLE OUTPUT LINE
;SET "PRINTED FLAG"
;UPDATE TABLE POINTER
JALL RCVR'S DONE?
JYES.
JNO, DO NEXT
JNEXT ERROR NO.

PCl

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

MACY11 30A(1052) 20-0CT-78 09:48
RECEIVER ERRORS MODULE

}ggg

PAGE 30

SEQ 0089

.SBTTL RECEIVER ERRORS MODULE

94
PCL
)

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 0, THAT ERROR NO. IS NOT
JREPORTED. IF, AFTER CHECKING THE ENTIRE RCVR ERROR "ABLE, NO

‘
‘

1868

:FOR EACH OF THE RECEIVER ERRORS.

}g;;

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

1??;

013440

(1)
1874
1875
1876
1877
1878

013440
013440
013444
013446
013452
013456

1880

013464

1879
1881

1882
1883
1884

1885
1886

1887

1888

1889
1890

1891
1892
1893
1894

1895
1896
1897
1898
1899
1900
1901
1902
1903
1904

1905

1906

1907

1908
1909
1910
1911
1912
1913

013460

013502

005767
001402
000167
005767
001422

005067

013520
013524
013532

000167
026727
001034

013544

001007

013534
013540

013546

013564
013600

013604
013620
013624

013630

013632
013636
013642
013646
013652
013656
013662
013666
013672
013676

005067
005767

012700
016701
004767
012700
016701
004767
012700
017701
004767

013730

026727

013762

062767

001404
005267
000167
012767
005267

000031

18:

2%:

3$:

032517
004126
017034
032534
004114
017020
032553
004102
017020

100000

003772

004036

000037

004044

4$:

004026
000072

000001
004006

TST
BEQ
JMP
TST
8EQ

T0C
60%
RERTN
HDRFLG
18

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

CALL

PNTLIN, <RERHDR>

;AND PRINT HEADER

004014

5%:
RERTN:

HDRF LG

CALL

PNTLIN, <RRHL IN>

CLR
TST

REREV
PRINTD

JMP
CMP
BNE
BNE

006144

000002

REROS

CLR

004114
004150

000136

052767

013736
013740
013744
013750
013756

000236
004240

000167
001434

60$:

004232

004110

013714

013722

000310
004240

005067

005777

REROS :

003160

PROC

JNO, CLEAR FLAG

RERTN
ERRO 431
3$

;AND RETURN
;DONE LAST ERROR?
;NOT YET

JYES, O.K.

JYES, CLEAR RCVR ERROR EVENT
:DID WE PRINT ANYTHING?

PNTL IN, <NONMG>

CALL

JWRAP T UP!

TST

PRES(
RERTN
aERRZ2

MOV
MOV
JSR
MOV
MOV
JSR
MoV
MOV
JSR
CALL

#RCRNO,RO
ERRO,R1
PC,OCTJSP
#RCTRN,RO
ERR1,R1
PC,OCTJSP
#RCERC,RO
aERRZ ,R1
PC,DECJSP
PNTLIN,<RCELIN>

JREADY TO PRINT ERROR NO.

JMP

BEQ

BIS

ADD

CMP

BEQ
INC
JMP
MOV
INC

RETURN

PNCRLF
PRINTD

#815,PRINTD
#2 ,ERR?

ERR1,4#37
5%
ERR1

RERIN

#1,ERR1
ERRO

‘
‘

CALL

CALL
CLR

‘

JNO, PRINT "'(NONE)''

;ANY ERRORS?
;NO.

JERROR NO.S ARE IN OCTAL
JREADY TO PRINT XMTR NO.
JXMTR NO.S ARE IN OCTAL
;NOW PRINT ERROR COUNT

;ERROR COUNTS ARE IN DECIMAL
;ENQUEUE TABLE OUTPUT LINE
JSET "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

MACYT1 30A(1052)

SUMMARY MODULE

1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1?%?

013764

(1)

013764

1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958

7
PAGE 31

SEQ 0090

; DUMP SUMMARY TABLE INDICATING ERROR NUMBERS
.
:

.
;

013764
013770
013772
013776
014000
014006

014010
014014
014020
014022
014026
014030
014034
014040
014044
014050
014054
014060
014064
014070
014074
014076
014102
014106
014112
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

112720
112720
112720
112720
112720

000404
012702
004767

002634
003674

003666

177777

032574
177777

016642
032616

177770

000115
000130
000103
000116
000124

062767
000167

000006
000062

003512

014164
014202
014210

012767
000167

024726
000032

003462

964
965

016214
014222

062767
000167

000006
177552

003450

014226

005067

003430

014232

SM(CHK:

003656
000004

177777
016562

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
EXCESS OF
QUANTITIES OF ERRORS IN
EXPANDING TO 65.528.
OF
THIS WILL BE LISTED AS "MX(NT''.

:
SUMRY

1960
1961
1962

968

09:48

.SBTTL SUMMARY MODULE

1915

1927
1928
1929
1930
1931
1932

20-0CT-78

SMPN:
SMSPN:

SUMHDR:

PROC

SUMRY

TST
BNE
TST
BEQ
(MP
BEQ
MOV
TST
BEQ
MOV
MOV
MOV
JSR
MOV
MOV
MOV
JSR
MOV
MOV
(MP
BLOS
MOvVB
MovB
MovB
MovB
mMovB
BR
MOV
JSR
CALL
ADD
JMP

T0Q
SMRTN

CALL

MOV

JMP

SMADV:

ADD
JMP

SMARXT:

(LR
CALL

SUMPNT
SUMHDR
ASUMPNT ,#-1
SMARXT
SUMPNT R4

4 (R4)
SMADY
#SMLLINT RO
(R&) R1
#-1,R2

PC.OCTJSP

#SML IN2 ,RO
2(R4)
R
#-1,R2
PC.,OCTJSP
#SMLIN3
RO
4(R4) LRI
R1,#177770
SMPN

#'M,(RO)+
#'X,(RO)+

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

#'T,(RO)+
SMSPN
#-1,R2
PC_,DECJSP

=+
:a%ENTRY POINT
;IS OUTPUT QUEUE EMPTY?
;NO, RETURN

;1S OUTPUT POINTER AT TABLE?
:NO, GO PRINT HEADER
;IS ERROR # = -1 ?
JYES,DONE; EXIT
;CHECK
;IF 0,
;RO IS
;R1 IS

TOTAL COUNT OF THIS ERR
TRY NEXT ERROR
OUTPUT POINTER FOR OCTJSP
DATA BUFF FOR OCTJUSP

:DON'T COMPRESS BLANKS

;DON'T COMPRESS BLANKS

JREACHED MAX COUNT?
.NO, 0K

CYES, PRINT 'MXCNT'' IN
:
NOTE THAT 'MX(NT'’

:
:

ALSO HAS ONLY S
ASCII CHARACTERS.

;DON'T COMPRESS BLANKS

PNTLIN, <SML IN>
#6,SUMPNT
SMRTN

JENQUEUE SUM LINE FOR OUTPUT
;UPDATE POINTER FOR NEXT LINE
JRETURN

PNTLIN,<SMTTLE>
#ERTBL , SUMPNT
SMRTN

;ENQUEUE SUMMARY HEADER
:SET POINTER TO TOP OF SUM LIST
;RETURN

#6, SUMPNT

;SET POINTER TO NEXT ENTRY

SUMEV

;CLEAR SUMMARY EVENT FLAG

SMCHK

PRESC(

:FAKE CNTRL-C KEY

¥4

PCi

ALIA
A
A

CALA

AALRA

SN
”
&
&
&
&

s RETUKN

RE TURN

SMRTIN:

SEQ 0091

SUMMARY MODULE

30A(1052)

014246

MACY11

PAGE 31-1

1969

12~-SEP-78 15:°3

09:48

C(IPLABO PCL11 EXERCISER VG?

PCLEXR.PN

20-0CT-78

CZPLABO PCL11 EXERCISER V02

PCLEXR P11

1971
1972
1973
1974
1975
1976

(3)
(3)

(1)
(1)

1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993

1994
1995
1996

1997

1998
1999

2000
2001
2002

2003

2004
2005
2006
2007
2008

12-SEP-78 15:13

N 30A(1052)
MACY

20-0(7-78

ERROR UPDATE ROUTINES

09:48

PAGE 32

SEQ 0U92

.SBTTL ERROR UPDATE ROUTINES
TRANSM.TTER ERRORS
.SBTTL

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

ERRNUM
ERRADR

ERRMOD :

014250
014250
014252
014254
014256

001612
160377
003464
000002
003456

146260

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

016560
026027

024720
000004
000004

005260
005367

000004
003412

005367

00333¢

066767
062767
005277
012603
012602
012601
012600

003326
025150
003310

103401
000444

003476
003470

PROC

ERRADR>
, <ERRNUM,OD
ERRM

MOV
MOV
MOV

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

MOV
MOV
8IC
SWAB

R3,-(SP)
aTCR,TEMP
#160377 ,TEMP
TEMP

MOV
ASL
MOV
ASL

RO, TEMP1
RO
RO,R1
RO

MOV

ADD
ADD

000002
177771

ERMIN:

003322
003314

ERMIS:

MOV
CMP
8LO
B8R
INC
DEC
MULT
MULT
DEC
MULT
ADD
ADD
INC
MOV
MOV
MOV
MOV

RETURN

ERRNUM(RS) ,RO

R1,RO
#ERTBLO,RO

ERRADR (R5) ,2(R0O)

L(RO) ,m177771
ERMIN

ERMIS
4 (RO)
TEMP1
37,TEMP1 ,R3
2.TEMP1,R3
TEMP
2.TEMP ,R3
TEMP1,TEMP
H#TERTBL,TEMP
oTEMP
(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+,R0

;*«ENTRY POINT
=«

:SAVE RO ON STACK
; AND R1
; AND R?2

:AND R3
:SAVE ADDRESS OF CONNECTED RCVR
JGET IT IN THE RIGHT BYTE
:GET ERROR NUMBER

:SAVE ERROR NUMBER
;FIND TABLE ENTRY
.
IN ORDER TO UPDATE
.
ADDRESS FIELD

JENTER ERROR ADDRESS

;AT MAX COUNT YET?
;NO, INCREMENT COUNT

;YES SKIP UPDATE.
;UPDATE OCCURRENCES
: (ERR # - 1)
; (E=1)X37
; [E-1IX37IX2
;. RCVR ADDR - 1
: (R=1)X2
; [CE=1)X37Ix2 + (R=1)X2
STEMP = #TERTBL + <[(E-1)X371x2 + (R=-1)X2>
:UPDATE TABLE ENTRY FOR THIS ERROR
;RESTORE R3
;RESTORE RZ2
JRESTORE R1
;RESTORE RO
:RETURN

CZPLABO PCL11 EXERCISER VO2
PCLEXR P11
12-SEP-78 15:13
2010
2011
2012
2013
2014
(3
(3)
1)
(1)

2015
2016
2017
2018
2019
2020

MACY11

30A(1052)

20-0(7-78

RECEIVER ERRORS

.SBTTL

09:48

PAGE 33

RECEIVER ERRORS

s CALLED BY THE MACRO '(CALL
014466

014466
014466

014470
014472
014474
014476
014504
014512
014516
014522
014526
014530
014532
014534
014536
014542
014550
014556
014560
014562
014560
014574
014600
014644
014650
014654
014660

014666

014674
014700
014702
014704
014706
014710

ERRNUM
ERRADR

000002
000004

010046
010146
010246
010346
017767
042767
000367
016500
010067
006300
010001
006300
060100
062700
016560
026027
103401
000447
005260
162767
005367

ERRMOR:

001414
160377
003246
000002
003240

024720
000004
000004
000004
000015
003166

005367

003110

066767
062767
005277
012603
012602
012601
012600

003102
026616
003064

003260
003252

000002
177771

003172

PROC

MOV
MOV

DEC
MULT
MULT
DEC
MULT
ADD
ADD

ERMISR:

ERRMOR, <P,ERADR>'

5RRMOR,<ERRNUM.ERRADR>
4

MOV
.
MG
MOV
BIC
SWAB
MOV
110}
ASL
MOV
ASL
ADD
ADD
MoV
CMP
BLO
BR
ERMINR: INC
suB

003076
003070

SEQ 0093

INC

MOV
MOV
MOV
MOV
RE TURN

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

R3.-(SP)
aRCR, TEMP

#160377.TEMP
TEMP

ERRNUM(RS)
,RO

RO, TEMP1
RO
RO,R1

#ERTBLO,RO
ERRADR(RS) ,2(R0)
4(RO) ,m17777
ERMINR
ERMISR
4 (RO)
#15,TEMP1
TEMP1

37,TEMP1,R3
2,TEMP1
R3
TEMP

R3
2,TEMP

TEMP1,TEMP

#RERTBL
, TEMP

aTEMP

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

s«
;=*ENTRY POINT

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

;

FIND ''SUM'* TABLE ENTRY

;
;

ADDRESS FIELD
AND # OF OCCURRENCES

;

IN ORDER TO UPDATE

;ENTER ERROR ADDRESS
;AT MAX

COUNT

YET?

;NO, UPDATE ERROR COUNT
:YES,

SKIP UPDATES

JUPDATE OCTJRRENCES

;ALIGN ERRORS TABLE FOR RCVK
; ERR ¥ - 1 (E-1)

;

(E=1)X37

[(E-1)X37]Ix2
XMTR ADDR = 1
(T-1)X2

(T=-1)

C(E-1)X37Ix2 + (T=-1)Xx2
TEMP = MRERTBL+[(E-1)X37Ix2 +

JUPDATE RCVR ERROR COUNT

;RESTORE R3
;RESTORE R?
JRESTORE R1

JRESTORE RO

(T=1)X2

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

2049
2050
2051
2052
(1)
(1)

2053

2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070

MACY11 30A(1052)

20-0CT-78

UTILITY ROUTINES

D
09:48

8
PAGE 34

SEQ 0094

LSBTTL UTILITY ROUTINES
014712

014712
014712
014732
014740
014744
014750
014752
014756
014760
014764
014770
014774
015000
015002

015016

015020
015036

.SBTTL

PROCESL AN INPUT (HARA(CTER FROM THE TTY

PROC

TTINP

;+*ENTRY POINT#«

TTINP:

162767
116700
120027
002405
120027
003002
042700
010067
012701
004767
001407

000200
013320

CALL
B81(B

013324

movB

000141

CMPB
BLT

000172
000040
013274
016034
015454

TTINH:

000407
CMM]ISC:
TTRET:

CMPB
BGT
BIC
MOV
MOV

DEQ,<FRELEM,TIQ>
#200,FRELEM
FRELEM,RO
RO, 4141

JGET TTY INPUT (CHARACTER.
;CLEAR OFF PARITY BIT.

RO #4172

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

#8305 ,R0

;CONVERT CHARACTER

TTINH

RO,FRELEM
#CMCHTB
R

JSR
BEQ
CALL
BR

PC,PROCHR

CALL
RETURN

PRMISC,<FRELEM>

CMMISC
aR1,<FRELEM>
TTRET

;

"FRELEM "’

TO ITS PROCESSING

. ROUTINE.

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

;PROCESS MISCELLANEOUS CHARACTER

JRETURN.

CZPLABO PCL11 EXERCISER VO2

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)

.SBTTL
:

2074

2075
58;9

:
:

2???

015040

(1)
2079
2080
2081
2082
2083
2084
2085

015040
015040
015044
015046
015054
015060
015064
01100

PRCR:

002574
000015
002561
002554

001326

CRRET:
:
:
>

2087
2088
%823
2??;

015102

(1)

015102

2092
2093
2094
2095

2096
2097
2098

015102
015106
015114

005067
016767

001516
001524

SEQ 0095

TSTB
BGE
MOVB
DECR
CLRB
CALL

RETURN

PRCR

REQINP
CRRET
#CR. ,3CBUFPT
CMDENT
REQINP
PNCRLF

;««ENTRY POINT =+
:1F INPUT NOT BEING TYPED,
: IGNORE CHARACTER.
;PUT CR IN BUFFER.
:SET COMMAND ENTERED FLAG.
:CLEAR INPUT REQUESTED FLAG.
ECHO CR & LF.
:RETURN.

PROCESSOR FOR CONTROL-0O CHARACTER.
ALL CHARACTERS PRESENTLY IN THE TTY OUTPUT QUEUE ARE THROWN AWAY.

PRCTLO:

901520

015132

PROC

PRCTLO

CLR
MOV
CALL

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

RE TURN

5}8;

: TEMPORARILY SUSPEND

2100

:«xENTRY POINT

:THROW AWAY ALL CHARACTERS
: IN TTY QUTPUT QUEUE.
:ECHO "'~0'".
:RETURN.

: PROCESSOR FOR CONTROL S.

2103

PRINTOUT ON LONSOLE DEVICE

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

: OR ANY OTHER KEYBOARD INTERRUPT.

S}gg

2}??

015134

(1)

015134

2108
2109
2110
2111
2112

015142

015134

052767

100000

002560

PRCTLS:

PROC

PRCTLS

BIS

#B15,THLTFL

RETURN

SxxFNTRY POINT
*#

;SET TTY HALT FLAG

:
; PROCESSOR FOR CONTROL Q.

2113

: RESUME PRINTOUT ON CONSOLE [F TTOUT QUEUE HAS NOT BEEN

: CLEARED BY SOME OTHER MEANS.

g}}g
2}}?

015144

(1)

015144

5{}8

015152

2117

PAGE 35

TTY INPUT CHARACTER PROCESSING ROUTINES

2099

2107

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

105767
002015
112777
105367
105067

09:48

TTY INPUT CHARACTER PROCESSING ROUTINES

Sg;%

2086

20-0CT-78

015144

042767

100000

002550

PRCTLQ:

PROC

PRCTLQ

BIC

#8155, THLTFL

RETURN

:«xENTRY POINTw=

CLEAR TTY HALT FLAG

(ZPLABO PCL1T EXERCISER V02

PCLEXR.P11

12-SEP-78 15:13

MACY11 30A(1052)
TTY

2120
2121

2122
2123
2124
2125
(1)
(1)

2126

2127
2128
2129
2130
2131
2132
2133
2134
(1)
(1)

2135
2136
2137
2138
2139
2140

015154

015154
015154
015172

PRCTLC:

000167

2166

2167
2168
2169

PAGE 35-1

PROC

PRCTLC

CALL

PNTLIN,<CTLCMG>

JMP

000016

SEQ 0096

PROC

PRCTLU

CALL

PNTLIN,<CTLUMG>

PROCESSOR

;
;

THIS KEY

015364
015370

005767
001402
005077
105367
005067
005067
005067
005067
005067

012767

105067

000722
002406
002430
002420
002404
002402
002422

14%:

;GO TO PRESC ROUTINE.

KEY,

TO REQUEST

s**ENTRY POINT#«

JECHO '"TMU'".
;DROP INTO PRESC

INPUT.

ALL OTHER EVENTS WILL

CEASE

A 'PCL>'" WILL BE ECHOED ON THE TTY.

TO TYPE

IN A COMMAND.

THE

PROC

PRESC

TST

KWFLG

BEQ

14%

:NO.

REQINP
STSEV

JSET INPUT REQUESTED FLAG.
:CLR STATUS EVENT

CLR

alLCS

CLR

SUMEV

DE(CR
(LR
CLR
CLR
CLR

TEREV
REREV
PCLGO

CALL
CALL
CALL
MOV

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

CALL

001016

CNTRL-C

OPERATOR IS NOW FREE

PRESC:

002430

FOR

IS USED

AFTER THE CURRENT LINE.

015214
015214
015214
015220
015222
015226
015232
015236
015242
0152646
015252
015258
015276
015316
015336
015356

JECHO '*=C"’

PRESC

INPUT COMMAND BEING TYPED IS DISCARDED.

PRCTLU:

015176
015176

;a*ENTRY POINT««

PROCESSOR FOR CONTROL-U.

015176

2144

2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165

09:48

INPUT (HARA(CTER PROCESSING ROUTINES

“ECHO "'AC'* AND GO TO PRESC ROUTINE.

2142
2143

(1)
(1

20-0CT-78

*PROCESSOR FOR CONTROL-C.

2141

2145
2146
2147

CLRB

RE TURN

ENQ,<A.P,T0Q>

CMDENT

PROCESS RUB OUT KEY.

J**ENTRY POINTx»
;GOT

A CLOCK?

;STOP THE CLOCK

;CLR SUMMARY EVENT

;CLR XMTR ERROR EVENT
;AND RCVR ERROR EVENT
:STOP XMTR

JECHO “PCL>'.

JINITIALIZE COMMAND BUF PITR,
;CLEAR COMMAND ENTERED FLAG.
sJRETURN.

LAST CHARACTER IN (OMMAND BUFFER IS DELETED.

A '"\'' IS ECHOED.

(ZPLABO P(L1

PCLEXR.P11

2170
2N
ap
(1)

2172
2173
2174
2175
2176

2177

2178
2179
2180
2181
2182
2183

2184
2185
2186
2187
2188
2189
2190
(3)
(1)
(1)

219
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202

2203
2204
2205

t X ERCISER v02
2 -SEP-78 15:13
i

MACY11

30A(1052)
TTY

INPUT

015372
015372
015372
015376
015400
015406
015410
015424
015440
015444
015450
015470

20~0CT-78

G
09:48

8
PAGE 35-2

PROC

PRDEL

PRDEL
:

105767

002034
026727
003016
000167
005367

002242
000776

1STR

BGE
(MP
B8GT
CALL
CALL
JMP

0°6176

000024
000732

1%:
PDRET:

SEQ 0097

(HARA(CTER PROCESSING ROUTINES

DEC
CALL

RETURN

REQINP
PDRET

%?UFPT,#CMDBUF

PNCRLF
PRESC
PDRET

CBUFPT
100>
ENQ,<A.BKSL,

J**ENTRY POINT*»
;1F INPUT NOT REQUESTED,

THEN IGNORE RUBOUT (HAR.

;IF

AT BEGINNING OF BUFFER,

; THEN ISSUE NEW "PCL>"

;DECREMENT BUFFER POINTER.
JECHO A "N\,
JRETURN.

PROCESSOR FOR MISCELLANEOUS CHARACTERS.
THE CHARACTER IS APPENDED TO THE COMMAND BUFFER.

015472
015472
015472
015476
015500
015504

015510
015212
015316
015520
015524
015532
015534

015540
015544
015550
015570

000002

PROC

SRMISC,<CHAR>

TSTBR

REQINP
PMRET

:IF

INPUT NOT REQUESTED,

RO, 4'
PM176
RO, #4140
PM187
#'?,R0

;IF

CHARACTER

THEN CHANGE

PMRET

THEN JUST RETURN.

(HAR

;*+ENTRY POINT#+

PRM]SC(:

105767

002034
117500
120027
002403

120027

002402
012700
026727
001416
110077
005267
110067

002142

BGE
MOVR
(MPR

000002
000040

BLT

000140

000077
000652

016401

PM176:
PM187:

000642
000636
01256
PMRET:

(MPR
BLT
MOV

(MP
BEQ
MOVB
INC

MOvVB
CALL
RETURN

,R0O
a(HAR(RS)

CBUFPT ,#(BFEND-1

RO,aCBUFPT
CBUFPT
RO,BKELEM

TOQ>
ENQ, <BKELEM,

;

THEN JUST

IGNORE

C(HARA(CTER.

;1S NONPRINTING

;1T 10
; ASCII "',
;IF WE ARE AT END OF BUFFER,
;PUT

CHARACTER

INTO BUFFER

;UPDATE BUFFER POINTER.
JECHO CHARACTER.

JRETURN.,

(ZPLABO PCLY1

PCLEXR.P11

EAERCISER v02
12-SEP-78 15:13

MACY11 30A(1052)

20-0CT-78

TTY OUTPUT HANDLERS

SBTTL

015572
015576
015600

015604
015606
015612
015632
015640

105777

002020
005767
001402
000167
116777

TTOUT:

000344

002116

012426

005067

002054

117767

000262

1%:
TORET:

000C02

TTIINT:

012414

TTY OUTPUT HANDLERS

TSTR

aTTX(SR

TST

THLTFL

IS TTY HALTED (CNTRL-S)?

TORET

SYES, DON'T DO ANYTHING.

JMP

CALL

MOVR

RETURN

LSBTTL
015642
015642
015646
015652
015660
015700
015704

SEQ 0098

TTOUT

BEQ

000304

PAGE 36

PROC

BGE

000026

OQUTPUT A CHARACTER TO THE TELETYPE IF IT IS READY.

’

015572

09:48

;**ENTRY POINTee

:IF DEVICE

TORET

DEQ,<FRELEM,TO0>

FRELEM,QTTXBUF

TTY INPUT

IS NOT READY,

THEN JUST RETURN.

:NO, 0.K.

TO PRINT

;GET NEXT

CHAR

;OUTPUT IT,

TO TYPE.

:RE TURN.

INTERRUPT PROCESSORS
;2

e« INTERRUPT ENTRY POINT
2«

CLR

THLTFL

:;:CLEAR TTY HALT FLAG ON INPUT

MOVR

ST TRBUF , INTTMP

:::GET

REGSAV
CALL

REGRES
RT]

ENQ,<INTTMP,TIQ>

:::SAVE RO - RS.
;::PUT

INPUT CHARACTER.
IT

IN TTY

INPUT QUEUE.

:;:RESTORE RO - RS,
2 :IRETURN.

(ZPLABO PCL11 EXERCISER VO2

PCLEXR.P11

2236
2237
2238
2239
2240
2241
2262
2243
2244
(3)
(1)
(1)

22645
2246
2247
2248

2249
2250
2251
2252
2253
2256
2255
2256
2257
2258
2259
(1)
1

2260
2261
2262
2263

12-SEP~78 15:13

MACY11 30A(1052)

20-0(T-78

ME SSAGE PRINT ROUTINE

.SBTTL

;
015706
015706
015706
015712
015720
015722
015742
015744
015746
015750

000002
016546
117667
001412
005216
000762
005026
000400

PROC
-

MOV
PLODEC: MOVB
BEQ
CALL
INC
BR

PLCRLF:

PAGE 37

SEQ 0099

MESSAGE PRINT ROUTINE

INSTEAD OF THE 2ERO, & THEN EXIT FROM THE ROUTINE.

PNTLIN:

012346

09:48

[N TTY QUTPUT
ENQUEUE CHARACTERS STARTING AT MESSAG
QUEUE
TOQ UNTIL A ZERO BYTE IS ENCOUNTERED.
ENQUEUE A (R & LF

MESSAG

000002
000000

CLR

SNTLIN,(MESSAG>

ME SSAG(RS) ,-(SP)
a(SP) ,BKELEM
PLCRLF
ENQ,<BKELEM, TOQ>
aSP
PLODEC
(SP)+

PL219

J**ENTRY POINT#e

;GET ADDRESS OF MESSAGE.
JGET A (CHARACTER.
;IF NULL, APPEND CR & LF.
;JENQUEUE CHAR FOR TTY OUTPUT.
JPOINT TO NEXT CHARALTER.
;PROCESS IT.
;POP ADDR FROM STACK.

JAPPEND (R & LF.

ENQUEUE A CR & LF IN TTY QUTPUT QUEUE.

015752

‘

PROC

PNCRLF

015752
015752
015772
016012
016032

PNCRLF :
PL219:

C(ALL

ENQ,<A.(CR,TOQ>

CALL
CALL

RETURN

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

;**ENTRY POINT««
JENQUEUE A (R.

JENQUEUE A LF.
JENQUEUE A NULL FILL CHAR.
sJRETURN.

CZPLABO PCLY1

PCLEXR.P1

EXERCISER V02

12-SEP-78 15:13

MACY11

30A(1052)

DATA AREAS

09:48

PAGE 38

SEQ 0100

.SBTTL DATA AREAS

2265

2266
2267
2268
2269
2270
2271
2272
2273
2276

;

000003
000012

000015
000017
000021
000023
000025

2275

2276

2277
2278
2279

000177
177777

2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294

015754

015040

015040
015102
015144
015134
015176
015372

TABLE ASSOCJATING SPECIAL

PROCESSING ROUTINES.

{(M(HTB:
A LF:

A.(CR:

.WORD
.WORD

CTL.C,PRCTLC
LF..PRCR

.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

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

.WORD

TTY

INPUT (HARACTERS WITH THEIR

CR..PRCR

-1

;DEVICE ADDRESS TABLES:
164200
164202
164204
164206
164210
164212
164213
164214
164220
164222
164224
164226
164230
164234

2295

2296
2297

20-0CT-78

TCR:
TSR:
TSDB:
TSBC:
TSBA:

.WORD
.WORD
.WORD
.WORD

PCLTXM
PCLTXM+?2
PCLTXM+4
PCLTXM+6

TSCRC:

.WORD

PCLTXM+14

TMMR :
TMMRH:

.WORD
.WORD
_WORD

RCR:

.WORD

PCLRCV

RDDB:

.WORD

PCLRCV+4

RSR:

.WORD

RDBC( :
RDBA:
RDCRC:

.WORD
.WORD
.WORD

PCLTXM+10
PCLTXM+12
PCLTXM+13
PCLRCV+2
PCLRCV+6
PCLRCV+10
PCLRCV+14

016132
016134

000170
000174

TXMVEC:
RCVVEC:

.WORD
.WORD

170
174

016136

177560
177562
177564
177566

TTRCSR:

.WORD

TTDEV

016140
016142
016144
016146

016150

000060
177546

TTRBUF:

.WORD

TTXCSR: .WORD
TTXBUF: .WORD
TTVECT: .WORD

LCS:

WORD

TTDEV+?

TTDEV+4
TTDEV+6
TTV(CIR

CHARACTER CONSTANTS.

016152
016154
016156
016160
016162
016164

000134
000000
000120
000103
000114
000076

ENQUEUED.

JVECTOR ADDRESS.

177546

JKW11=. LINE CLOCK ADDR
THESE ARE DEFINED AS WORDS SO THAT THEY MAY

A.BKSL:
JERO:
A.P:

.WORD
. WORD
.WORD

0
‘P

JASCIT '\
JASCIT NULL
;ASCII P

A.L:
A.PR:

.WORD
.WORD

'L
'>

JASCIT 'L
SASCIT "> (PROMPT)

A.C:

.WORD

.EVEN

;DEVICE ADDRESS AND VECTOR VARIABLES

SASCIIC

PCI

(Z°LABO PCL11 EXERCISER V02

PCLEXR.P1

2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338

2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
A
d

o
o
o
W
N
e

e
e R X
e N Y
o
N
N
S

el N
N

R N
Y

e
S

PAGE 38-1

SEQ 0101

;FOR PCLTY.
016166
016170
016172
016174

164200
000170
164220
000174

TXDEV:
TXVEC:
RCDEV:
RCVEC:

016176

000204
016402

Eg??gg:

016402

016404
016407
016412

047536
136
041536

000
000125
000

016415
016422

040
000122

051105

047522

016434
016440

016540
016542
016544
016550
046554

NN —

016624
016626
016630
016634
016640

000024

016554
033333
000024
000000
000400
016640
033333
000400
017640

;FOR ECHOING CONTROL CHARACTERS.
s
;

RPMSG:

'' ERROR''

QUEUE DEFINITIONS.
LC

<AO,TI,.TO>

LC'Q:

.WORD
.WORD
.WORD
.WORD

0
LC*SIZE
LC'AREA,LC"END
33333,33333

AOAREA:
ACEND

TIQ:

TIAREA:
TIEND

T0Q:

TOAREA:
TOEND

.EVEN
LLIST

NLIST

.BLKW

.WORD
.WORD

0
AOSIZE

.BLKW

AOSIZE

.WORD
. WORD

.WORD
.WORD

0
TISIZE

_BLKW

TISIZE

.WORD
.WORD
-

REQINP:

(MDENT:

LC'SIZE

AOAREA , AOEND
33333,33333

TIAREA, TIEND
33333,33333
.

.WORD

.WORD
.WORD

TOAREA , TOEND
33333,33333

.WORD

.BLKW

;JQELEMS
;QSIZE
;QTOP & QBOT
;QFRONT & QBACK

;LC'Q AREA

;QELEMS
;QSIZE

;QTOP & QBOT
;QFRONT & QBACK
;A0Q AREA

;QELEMS
;QSIZE

;QTOP & QBOT
:QFRONT & QBACK
;TIQ AREA
JQELEMS

TOSIZE

.QSIZE

TOSIZE

:T0Q AREA

FLAG VARJABLES.

333
333

.ASCIZ

.IRP

017640
017641

JTTY INPUT (OMMAND BUFFER.

‘0"
‘U’
‘''~C"

016540

017640
(033333

164200
170
164220
174

CTLOMG: .ASCIZ
CTLUMG: .ASCJZ
CTLCMG: .ASCIZ

.EtDM
ACU :

016624
(033333

IS
IS
[S
IS

:CMDBUF BUFFER POINTER.

;

033333 033333
000040~
016540
000000

;DEFAULT
:DEFAULT
JDEFAULT
:DEFAULT

33333

LC'END

000000
000040
016440

164200
170
164220
174

.WORD

LC'AREA:

016424
016426
016430

.WORD
.WORD
.WORD
.WORD

BUFFER & MESSAGE AREAS.
.BLKB
132.

CBUFPT:

033333

VIS

N
A

VIVAWAAAN — P N

ASLAS
TN AN 1N
WW NN ~~ P

2356
2357

DATA AREAS

09:48

:CHANGE THESE LOCATIONS TO MODIFY ALL DEVICE ADDRESSES AND VECTORS

e N

Wk W
¥ ~
) —

2350

12-SEP-78 15:13

MACY11 30A(1052)

°20-0(T-78

< 0 -=>

;QTOP & QBOT
;QFRONT & QBACK

TRUE

>-0 -=> FALSE

.BYTE

333

;INPUT REQUEST IS BEING TYPED.

; COMMAND HAS BEEN ENTERED.

PCi

FIRST:

PRINTD:
HDRFLG:
PADFLG:
THLTFL:

017722

.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

.EVEN

017724
017726
017730
017732
017734
017736
017740
017742
017744
017746
017750
017752
017754
017756
017760
017762
017764
017766
017770
017772
017774

AYTAIAIAIA
LA A YA

ATAICAIALAIALIAIA

AVvara

SPCEV:
XSPCEV:

.WORD
.WORD
.WORD
.WORD

TXMEV:
TXMSV:
PCLGO:
RCVEV:

.WORD
.WORD
_.WORD
.WORD
.WORD
.WORD

QLDEV:
DATGEV:
SUMEV:
SUMSY:
STSEV:
STPNTR:
SUMPNT:

.WORD
.WORD
.WORD

REREV:

HOURS:
KkWFLG:
TEREV:

.BYTE
.EVEN
.WORD
.WORD

.BYTE

MINUTS:

SEQ 0102

CZf

PCL

2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
24606
2407
2408
2409
2410
2411
2412
2613

.BYTE

PAAF 38-¢

2373

TICkS:

SECNDS:

133333

000000
000333
000000
000000
000000
000000

DATA VARIJABLES.
33333
.WORD

ORIGSD:
DTSEED:
MLSD:
MSGLSD:
RCSEED:
RCTXPS:
RJCTF:
TRNKF:
TXML :

.WORD

.WORD
.WORD
.WORD

.WORD

RANM:

.WORD
.WORD
.WORD
. WORD

CURAD:

.WORD

RANK :

RSP(:

ESCFLG:
OBJCNT:

RSHOLD:
TEMP:

TEMP1:

ERRO:
ERR1:
ERR2:

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

N
|

2364
2365
2366
2367
2368
2369
2370
2371
2372

017646
017650
017652
017654

000
000
000
017646
000000
000000
000000
000000
000000
000000
000000

09:48

565
247

N ~N

2363

017642
017643
017644

DATA AREAS

20-0(T-78

OOOOOOOOOO2NOOOOOOWO
=

2358
2359
2360
2361
2362

MACY11 30A(1052)

[eYeolelelolololalolololololololalalelelololole B ale o]

(ZPLABO PCL11 EXERCISER V02
PCLEXR PN
12-SEP-78 15:13

sADDRESS SILO DATA BUFFER AREA

JACTIVITY

FLAG

JRECEIVER ADDRESS
JATTEMPTS ENTRY

JSUCCESSES ENTRY

:
RADEND
RADBO=

029664
020064

.ENDR
. WORD

amm

020664

RADB=14

.BLKW

o am

DATBUF:

1020

001020

020666

:TRANSMITTER DATA BUFFER:

:
RCBUF

.BLKW

1000

001000

022726

JRECEIVER DATA BUFFER:

JEXERCISER ERROR TABLE

JINITIAL ERROR NUMBER

.REPT
.WORD
.WORD
.WORD

000030

:
ERTBL

;ERROR NUMBER

000C01

—t

024726

;ERROR ADDRESS
;NO. OF OCCURRENCES SINCE

INIT

Y+l

025146

.ENDR
.WORD

177777

024720

ERTBLO

JLAST ERROR # [S -1

-1
ERTRL-6

DETAILED ERROR TABLES FOR RCVR AND XMTR ERRORS:
025150

000623

TERTBL
:

BLKW

37+15

JRESERVE

026616

000623

RERIABL
:

.BLKW

37+15

sJRESERVE SPACE FOR RCVR ERRORS

030264
030266
030270
030272

FRELEM:

.WORD
.WORD
.WORD
.WORD

;STORAGE FOR DEQUEUED ELEMENT.

N AN NN

W AN NN

T(BFPT:
TCBIN:

WIANN
N

BKELEM:

(NN NN

NN NN
N AN NN
NNN
N
WANWNIN

2467
2468
2469

2465

.REPT
.WORD
.WORD
.WORD
.WORD

SPACE

FOR XMTR ERRORS

2464

2466

A a

TABLE

AN NN
N

2460
2461
2462
2463

;66. BYTE AREA FOR SILO DATA

66.

CZF
PCL

000037

RADB:

Sew 0103

—

000001

38-3

020100

PAGE

OO0

2456
2457
2458
2459

.BLKB

JRECEIVER ADDRESS

2423
2424
24625

2426
24627
2428
2429
2430
2431
2432
2433
2434
2635
2436
2437
2438
2439
2640
2641
2442
2443
2bbh
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455

ADSILO:

000102

09:48

—-

2420
2421
2422

017776

DATA AREAS

20-0(T-78

<><><u?

24614

2415
2416
24617
24618
2419

12-SEP-78 15:13

30A(1052)

PCLEXR.P11

MACYT1

CZPLABO PCL11 EXERCISER VvQ?

;STORAGE

FOR ENQUEUED ELEMENT.

;CMDBUF POINTER USED DURING SCAN
;BINARY VALUE OF INPUT PARAMETER

2488
2489
2490

006

047514

030360

006

047522

24694
2495
2496

oW
w

<
§ -‘§ WO= O g I8

0521

030470

2512
2513
2514

020105

$%0456

251

R\‘n

2508

2509

§?
-n.\;‘so

(=]

2506
2507

051105

2.8.

. WORD
BYTE
LASCI1
.WORD

(PDEL
1,6
/DELETE/
(PERR

.ASCI]
. WORD

/ERRORS/
(PGO

ASCII
.WORD

760/
(CPINIT

.WORD
BYTE
LASCI1
. WORD
.BYTE
LASCI]

(PMAST
1.6
/MASTER/
CPRANG
2.5
/RANGE /

.BYTE

2.3

LASCI1

BYTE

BYTE
ASCIL

.WORD

LASCI]
.WORD

042116

BYTE
.ASC]]
. WORD

/CLEAR /
(P(NT

/CONTINUE/

1.6

1.2

1.,10.
ZINITIALLZE/

(PRIR

/RIBR /
CPSEC

2,9,
/SECONDARY /
CPSILO

BYTE

2,4

BYTE

2,6

LASCII
.WORD

001

030420

2504
2505

2520

051522

0460511

2503

2519

042524

BYTE

2497
2498
2499

2515

0671

2.5

JASCII
.WORD

/ADD 7/
{PASS
2.6
/ASSIGN/
(P(LR

AtALAALCAIAIAIAITARAIAINIAIAIAIAOIAIAIAIAIRNIAIRAIAIAIAIAIRNIAIAIAIAYD

010

BYTE

LASCII
. WORD
RYTE
ASCI]
.WORD

acmiacmia

020122

2.3

Mia

005
040505

CPADD

.BYTE

047107

.WORD

Mia

044523

052116

2516
2517
2518

KkKEYWORD TABLE

006

030312

2487

2510

(MDTB.:

003
020104

2486

2500
2501
2502

.SRTTL

;TEMP STORAGE FOR INTERRUPT PROC

;KEYWORD TABLE ASSOCIATING A (OMMAND WITH ITS PROCESSING ROUTINE

2484
2485

2491
24692
2493

33333

2481
2482
2483

_WORD

(ZF
PCL

2480

INTTMP:

033333

SEQ 0104

/SILO/
(PSTAT

/STATUS/

051525

ASCI]

051101

.BYTE
ASCII

2,7
/SUMMARY /

.WORD

0,0

. WORD

(PSUM

2671
2472
2673
2474
2675
2476
2477
2478
2479

030274

DATA AREAS

PAGE 38-4

26470

12-5¢P-78 15:1%

20-0(T-78

PCLEXR. P11

30A(1052)

(ZPLABO PCL11 EXERCISER v0?2

09:48

T
MACY

PCLEXR P

2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535

2536

2537

2538

2539

2540
2561

2542

12-SEP-78 15:13

030532
030534
030536
030544
030546
030550
030554

030560
030566
030574
030602
030610
030616
030624
030632
C30640
030646
030654
030662
030670
030676
030704
030712
030720
030726

030731
030736
030744
030752
030760

030766
030774
031000
031006
031014
031022
031023

021030
031032
031040
031046
031054
031062
031070
031076
031104
031105
031112
031120
031126

205

040505

20-0C7-78

KEYWORD TABLE

SCTBL:

020122

B
09:48

PAGE 38-5

SEQ 0105

.WORD
.BYTE

LASCII
.WORD
.BYTE
LASCI1I
.WORD

003
020124
000000

STGRAGE:

.SBTTL

SOME MORE ASCII

MDNER:

.ASCIZ

MSCHNG

.ASCIZ

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

SYNTAX:

.ASCIZ

020461
041522

PCLEXM-

.ASCIZ

/PCL11 EXERCISER v02

051101
040440
051523

RSTMSG:

.ASCII

/RESTART AT ADDRESS /

055132

RSADD:

.ASCIZ

/122111/

051440
020054
042526
042522
051105
042522
020041

051117
020111
047040
042503
040440
051523
025052

MTQMSG:

.ASCIZ

/=* SORRY,

TRPDMG:

.ASCI]

/TRAPPED TO & FROM LGCATION /

051106
041517

050120
020117
046517
052101

020040
020052

020052
042524
047127
020052
020052
025052
020123
044040

020052
020052
046440
020122
020040

tt.tttMSTERDOW;Qttt./

041505
047042

051501
025040
025052
040524
047522
000

046103
042530
051105

020040
041101
042523
000051
052123
052101
042522

xxxSYNTAX ERROR%x%+/

025122

(2PLABO

(SEP-78)/

053040
055103
020060
026520

| HAVE NO RECEIVER ADDRESSES.

==/

b o Non

(ZPLABO PCL11 EXERCISER V02

MACY11 30A(1052)

PCLEXR.P1

12-SEP-78 15:13

0475M1
047116
020440

2543
2544

104

020105
051505
047522
042523
044523
047503
027104

2545

25647

105
051511
040524
000
105
051511
047117
047111
025052

2548

044440
020124
051105
052502

2546

020123

020123
042502
042101
047503
027131
124
046111
020125
045040
047514
053440
042502

2549

2550

125
043111
041440
052040

051125
046440
027122
124
046111
020123
050040
020104
040440
051523
000

2551

2552

124

031602

047125
020123
042524

020116
047116
000
053105
042101
020123
027122
021040
047107
046515
000
042530
051105
052122

MACY11 30A(1052)

20-0(T-78

09:48

SOME MORE ASCII STORAGE:
/NNNNN

PAGE 38-6

SEQ 0106

020116

TRP4AD:

041511
051104
051105
052440
051501
020042
047101

ERTMSG: .ASCIZ

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

041522
051440
042105

EXRST:

LASCIZ

/EXERCISER

042530
051105
044524
000107
052052
047125
020123
040515
025052
020124
047516
047105
020105
042116
000
042510
020117
040510
051525
042101
046111
000
042523
054440
042514
042510
042522
051501

041522
041440
052516

EXCNT:

.ASCIZ

/EXERCISER CONTINUING/

044510
052111
047516
052123
000052
040510
020127
046440
042523
051101

:
MSTMG1

LASCIZ

/***THIS UNIT

MSTMG?:

LASCIZ

/BUT HAS NOW BEEN MADE

051440
047531
042526
020124
042105

MSTMG3:

LASCIZ

/THE SILO YOU HAVE JUST LOADED WILL BE/

020104
052517
051101
041440
052116
042524

MSTMG4:

.ASCIZ

/USED IF

042510
020117
042502
042101
044527
042104
021040

051440
040510
047105
042504
044124
042522
021060

:
MSTMGS

.ASCIZ

/THE SILO HAS BEEN PADDED WITH ADDRESS '0°"/

044510
052111
046455
026522

020123
044440
051501
000

THUMST:

LASCIZ

/THIS UNIT

000

.ASCIZ

STARTED/

IS NOT MASTER=*««/

SECONDARY./

020114

YOU CLEAR THE CURRENT MASTER./

S -MASTER-/

holzhY

(ZPLABO PCL11 EXERCISER V02

30A(1052)

2553

044510
05211
051455
040504

020123
044440
041505
054522

THUSCN:

.AS_IZ

/THIS UNIT IS -SECONDARY=-/

2554

041111
026440
000
044522
020123
051101
050101
044524
051110
035116
044524
056
030072
020040
020040
051126
042522
047503
044524
052124

020042

RBSTMG:

.ASCIZ

IS =SET-/
/'RIB'"

2555

021102
0414655

RB(LMG:

.ASCIZ

/'RIB" IS ~(LEAR-/

2556

gzsggg

ELPSTM:

_ASCII

/ELAPSED TIME

2557

£30072

TMLIN1:

_ASCIZ

/0:0:0:0

2558

82??3%

STITLE:

.ASCIZ

/RCVR -ADDRESS

2559
2560
2561
2562

2563
2564
2565
2566

2567
2568

12-SEP-78 15:13

031607
031614
031622
031630
031636
031640
031646
031654
031657
031664
031672
031700
031706
031714
031722
031730
031736
031741
031746
031754

124

047125
020123
047117
000055
051042
051511

042523

20-0(T-78

09:48

SOME MORE ASCII STORAGE:

PAGE 38-7

031770
031776
032004
032012
032020
032026
032034
032042
032050

026524
042
044440
042514
046105
020104
024040
044515
035103
027056
060
030072
020040
041522
042104
020040
041505
040440
052120
041525
052506
047116
047117

032054
032054
032062
032070
032076
032104
032112
032120
032124
032132
032140

047116
02004C
020040
047116
©20040
020040
020040
047116
020040
000040

047116
020040
020040
047116
020040
020040
020040
047116
020040

020040
020040
020040
020040
020040
020040

STLINT:

.ASCII

/NNNN

STLINZ:

.ASCII

/NNNN

020040
020040

STLIN3:

.ASCIZ

/NNNN

032142
032150
032156
032164
032172
032200
032206
032214

047522
041115
020040
020122
051505
047040
020106
051122
000123

8%?%8%

SMTTLE:

.ASCIZ

/ERROR NUMBER

032222

051105
052516
020040
047522
051104
020040
047440
052503
042503

032226
032234

020040
020117

025052
051105

047040

NOERMG:

.ASCIZ

031762

MACY11

CZPLABO PCL11 EXERCISER V02

PCLEXR.P1

.
=
——

000055

SEQ 0107

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

035123
042523
024513
020040
000040

/
(ONNECTION ATTEMPTS

SUCCESSFUL CONNECTIONS/

047116
047117
046505
051440
051523
047503
044524
STLIN:

/
/

ERROR ADDRESS

NO.

051105
042101
020123
027117
041517
047105

047522

=+ NO ERRORS TO REPORT YET

‘

OCCURRENCES/

heNan]

(ZPLABO PCL11 EXERCISER VvO2

PCLEXR.P11

2569

2570

2571
2572

2573
2574
2575
2576

2577
2578
2579
2580

2581

2582
2583
2584

2585
2586

12-SEP-78

032242 051522
032250 042522
032256 054440
000052
032264
032266 051124
032274 052111
032302 051105
032310 000072
032312 051105
032320 047516
032326 041440
032334
032342
032350
032356
032362
032362
032370
032376
032377
020040
032404
032412 020040
032416 047116
032424
000040
032426 042522
032434 051105
032442 051117
105
032447
047040
032454
032462 020040
032470 042124
032476 020122
032504 051122
032512 052517
032517
116
932517
032524
020040
032532 020040
032534 047116
032542
020040
032550 020040
116
032553 032560 020040
032563
040
032570 042516
032574
047116
032574
032602
020040
032610 020040
032616 047116
020040
032624
032632 020040
032640 020040
032642 047116
032650 020040

7:13

E
20-0(T1-78 09 :48
SOME MORE ASCII STORAGE

MACY11 30A(1052)

PAGE

38-8

052040
047520
052105

020117
052122
025040

047101
042524
047522

046523
020122
051522

TERHDR:

LASCIZ

/TRANSMITTER ERRORS:/

047522
020056
047117
0461522
020040
020122
000124

020122
020040
052103
051126
051105
047503

TRHLIN:

LASCIZ

/ERROR

047116
020040

020116
020040

TREL IN:
TRRNO:

LASCII

/NNNNN

047116
020040
020040
047116

047116
020040

TRRCN:

LASCII

/NNNNN

020040

TRERC:

LASCIZ

/NNNN

042503
042440
035123
051122
027117
047503
054040
020040
051117
052116

053111
051122
000
051117
020040
041516

RERHDR:

.ASCIZ

/RECEIVER

RRHL IN:

LASCIZ

/ERROR NO.

047116
020040

RCELIN:
RCRNO:

LASCII

-/NNNNN

047116
020040
040
047116
000
024040
000051

020116
020040

RCTRN:

LASCII

/NNNNN

020116

RCERC:

LASCIZ

/NNNN

047516

NONMG:

LASCIZ

047116
020040
020040
047116
020040
020040

020040
020040
020040
020040
020040
020040

SMLINT:

LASCII

/NNNN

SMLINZ:

LASCI]

/NNNN

047116
000

020040

SML IN3:

LASCIZ

/NNNN

NO.

SMLIN:

ERROR (OUNT/

ERRORS:/

052115

042440
041440
000

CONCTD R(VR

SEQ 0108

(NONE)/

CONCTD XMTR

ERROR COUNT/

(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

CZPLABDO PCL11 EXERCISER V02

PCLEXR.P
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632

12~SEP-78 15:13

MACY11 30A(1052)

SOME MORE ASCII

032654

09:48

20-0CT-78

STORAGE:

PAGE 39

SEQ 0110

.EVEN

LSBTTL AUXILIARY ROUTINES
(HARA(CTER PROCESSOR
.SBTTL

CONVERT A (HARACTER TO ITS PROCESSING ROUTINE ADDRESS BASED

UPON A TABLE OF ENTRIES IN THE FOLLOWING FOR?.
1

THE

TABLE MUST BE ARRANGED IN ASCENDING ORDER OF CHARACTER VALUES.

THE TABLE ENDS WITH A DUMMY ENTRY FOR (CHARACTER FF
ON ENTRY:

;

CALL:

JSR

;

ON RETURN:

k0O — CHARACTER

PROCHR:

PC,PROCHR
- PROCESSING ROUTINE ADDRESS.,

=1 -=> (HARA(CTER NOT N TABLE

IF ANY

;*~ENTRY POINT*«

CMPR

aR1,RO

. COMPARE TABLE CHAR

001404

BEQ

PCCALL

;IF SAME, RETURN PROC.

032660

101006

BH]

PCQUIT

JIF >, THEN ARG. (MAR

032662

062701

ADD

#4 R

JIF

032666

000772

PCLOOK

032670

016101

MOV

2(R1) R

;R1

032674

000207

RTS

JRETURN:
. OFF.

032676

005001

CLR
RTS

R1
PC

:R1 =0
JRETURN: Z BIT

032654

121100

032656

032700

000207

PCLOOK:

R1 = TABLE ADDRESS

.
032654

RO - CHARACTER

(HEXADECIMAL).

000004

000002

PCCALL:

PCQUIT:

WITH ARG.

CHAR.

;

ROUTINE

NOT

TABLE ENTRY.

ADDR.

IN TABLE.

<, POINT TO NEXT

:TRY AGAIN,
;

= PROCESSING

ROUTINE

ADDRESS.

2 BIT

IS ON.

2634
2635

2636
2637

2638
2639
2640

MACY11 30A(1052)
20-0(T-78 09:48
BINARY 10 ASCI] CONVERSION
.SBTTL

(ZPLABO PCL11 EXERCISER V0?2
PCLEXR.P1
12-SEP=-78 15:13

PAGE 40

SEQ 0111

BINARY 'O ASCII CONVERSION

;
: BINARY TO ASCI] CONVERSION

:
; LOCAL MACROS
:

322}

: SETUP CONVERSION CONTROL WORD ON STA(K

5222

2645

: WHERE:

264L7

2646

2648
2649
2650

2651
2652

2653
2654

Sggz

2657
2658

5223

2661

2662

2663

2664
2665

2666
2667
2668
2669
2670
2671
2672

2673
2674
2675

STCVT RADIX,WIDTH,SIGNED, COMPR,BLANKS

:
:
:

:
;

RADIX-NUMERIC VALUE SPECIFYIN

CONVERSION RADIX

WIDTH=NUMERIC VALUE FROM 1 TO 7 SPECIFYING FIELD WIDTH
SIGNED-SIGN OR MAGNITUDE FLAG. ASCII STRING 'SIGN' SPECIFIES SIGNED CONVERSION. ANYTHING ELSE SPECIFIES MAGNITUDE.

;
;

COMPR-COMPRESS LEADING ZEROS FLAG. ASCII STRING 'COMPRES' SPECIFIES COMPRESSION OF LEADING ZEROS. ANYTHING ELSE MEANS

;
:

BLANK REPLACE LEADING ZEROS WITH BLANKS (SPACES).
ASCII STRING
'BLANKS' MEANS BLANK REPLACEMENT [F ZERO COMPRESS IS DIS-

;

$8Lk O

INCLUDE LEADING ZEROS OR SPACES IN CONVERSION.

ABLED. ANYTHING ELSE SPECIFIES ZERO PADDING.

.MACRO

STCVT

RADIX,WIDTH,SIGN,COMPR,BLANK

IDN

IDN

IDN

$SGN O

$SUP 1%1Q00
. JF

$8LK 1+2000
LENDC
IF
$SGN 1+400
.ENDC
IF
$SUP 0+1000

.ENDC
MOV
.ENDM

#<WIDTH*4000>.$8LK $SGN $SUP'RADIX,=(SP)

2+ ABO PCL11 EXERCISER V02

PCL XR.P1

12-SEP=-78 15:13

2679
2680
2681
2682
gggz

09:48

BINARY TO ASCII] CONVERSION
:
;

2677
2678

20-0(T-78

MACY11 30A(1052)

PAGE 41

SEQ 0112

INPUTS:

;
;
:

RO ADDRESS TO STORE FIRST BYTE [N OUTPUT STRING
R1 NUMBER TO BE CONVERTED
R2=7ERO COMPRESSION INDICATOR
If R2 EQ O, THEN SUPPRESS Z2EROS
IF R2 NE O, THEN DO NOT SUPPRESS ZEROS.

%2%2

* IF CBTA IS CALLED, THEN R2 MUST CONTAIN THE FOLLOWING INFORMATION

2687

BIT 8=MAGNITUDE/SIGNED CONVERSION (1 SIGNED)

%23?

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)

2699

Sggg

;

5282

%;8?

2702

2703
2704

2705

032702
032706

IF THE CONVERTED DIGIT EXCEEDS 9, THE RESULT IS BIASED TO FALL
IN THE RANGE A - Z

OCTJSP:

STCVT
BR

8..6.,MAGN,NOCOMP ,BLANKS
;PUSH CONVERSION PARAMETERS
SETCN
;CONVERT TO ASCII

: CONVERT 6 DIGIT OCTAL TO ASCII (ZERO COMPR)
032710
032710

032714

OCTPNT:

000406

STCVT

B8R

8..6.,MAGN,
COMPRES ,NOBLKANK

SETCN

: CONVERT S DIGIT DECIMAL TO ASCII MAGNITUDE

g;}g
2720

032716

g;s%

032722

032716

DECJSP:
000403

STCVT

10..5.,MAGN,NOCOMP,BLANKS

SETCN

;CONVERT S DIGIT DECIMAL TO ASCII (ZERO COMPR)

g;%?
2726
2727
S;Sg

032724
032724
032730

2730

032732

2731
2732

;

000411

S;}%

2721

RO-ADDRESS OF NEXT BYTE AFTER LAST DIGIT STORED.

: CONVERT 6 DIGIT OCTAL TO ASCII MAGNITUDE

2708 032702

S;}g

;
;
;

%;89

2714
2715

IF ZERO COMPRESS DISABLED, O-ZERO FILL).

:
:
: OUTPUTS:

2696
2697
2698

2709
S;}?

LOW BYTE-CONVERSION RADIX (2-10.)

032732
032734

DECPNT:

000400

005702
001002

SETCN:

STCVT
BR

10.,5..MAGN,
COMPRES ,NOBLANK
SETCN

TST
BNE

R2
208

: SUPPRESS ZEROS?
JIF NE, NO

(ZPLABO PCL11 EXERCISER V02

PCLEXR.PT

2733
2734
2735

032736
(032742
032742

12-SEP-78 15:13

042716
012602

001000

MACY11 30A(1052)

20-0CT-78

09:48

BINARY TO ASCII CONVERSION
20$:

PAGE 41-1

SEQ 0113

8If

#1+7000, (SP)

JENABLE ZERO SUPPRESS

MOV

(SP*+,R2

;SET (ONTROL

WORD

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P

2737
2738
2739
2740
2741
2742

2743

2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759

12-SEP-78 15:13

032744
032744
032750
032752
032754
032756
032760
032762
032764
032766
032772
032772
032774

2765

2766

2767

103005

B8CC

108

112720

BPL
NEG
MOVB

10%
R1
#'-,(R0O)+

JIF PL, YES
JMAKE VALUE POSITIVE
JINSERT A MINUS SIGN

MOV

RO,R4

;COPY STRING POINTER

RORB
ROR
ROR

R2
R2
R3

000406

(RTA:

SwAB
ASRB

000302
106202

005701
100003
005401

TST

000055

10%:

010004
000241

CLC

106002

CLRB
BISR
000060
1%:

000272
000011

000007

15%:

004767

177724

112624

033100

010400

2%:
3%:

PC,DIV

ACD

R2.R1

DECB
BLE

R3
33

R1,-(SP)

2%
R2

;SAVE THE NON-VOLATILE REGISTERS
;COPY RADIX BYTE

;POSITION REMAINING TO LOW BYTE
JSHIFT OFF MAG.

FLAG

JUNSIGNED IF C IS CLR
;POSITIVE

VALUE?

;CLEAR CARRY
JSHIFT OFF SUPPR FLAG
:TRANSFER TO R2

;GET BLANK/ZERO PAD FLAG
;CLEAR COUNT BYTE
;TRANSFER COUNT BYTE

;CLEAR FILL BYTE
JSET FILL BYTE

:DIVIDEND TO RO

:SET CONVERSION RADIX

;DIVIDE EM UP

JRESULT EXCEED NUMERICS?

;1F LOS., NO
;BIAS TO FALL IN ALPHA

;ADD CHARACTER BIAS
;SAVE CHARAC(TER
;DECREMENT CHARACTER COUNT
JIF LE NO DIGITS LEFT
;ZERO QUOTIENT
;IF NE, YES, GO AGAIN
s SUPPRESS ZEROS

TST

JIF PL, YES, ALL DONE
;SUBSTITUTE BLANKS?

JSR

PC,1%

;DIVIDE AGAIN

MOVB
MOV

(SP)+,(R4)+
R4 RO

;STORE A DIGIT
;STORE TERMINAL ADDRESS

8PL
000020

R2
#'0,R2
R1.R0O

R1.#9.
15%
#7 ,R1

TST

042702

R3
R2.R3

CMP
BLOS
ADD

TST

005703

R5.R1

BNE

100006

R2
R?2

MOV

105303

100002

(LRB
BISB
MOV
JSR

003412
005700
001006
005702

2779

2783

R5,SAVRG
R2,R5

110205

060201
010146

2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778

2784

JSR
MOVR

004567

010501
004767
020127
101402
062701

2764

2780
2781
2782

GENERAL BINARY TO ASCII CONVERSION

105003
150203
105002
152702
010100

2762
2763

SEQ 0114

LSBTTL

006002
006003

2760
2761

MACY11 30A(1052)
20-0(T-78 09:48 PAGE 42
GENERAL BINARY TO ASCI] CONVERSION

BPL
BIC

RE TURN

23
#20,R2

J1F PL, NO
;CONVERT FILL TO BLANK

(ZPLABO PCL1Y EXERCISER V02

PCLEXR.PT

12-SEP-78 15:13

MACY11

30A(1052)

20-0(T-78

9
PAGE 43

SEQ 0115

DOUBLE PRECISION BINARY TO ASCII
.SBTTL

2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814

L
09:48

DOUBLE

PRECISION BINARY

TO ASCII

; CONVERT A DOUBLE PRECISION UNSIGNED QUANTITY TO DECIMAL AS(CII
; LOCAL MA(CROS

* SET ASCII CONVERSION PARAMETERS
1 (BTAS RADIX,WIDTH,SIGN.BLANK
.

WHERE:
RADIX

CONVERSION RADIX

WIDTH=FIELD WIDTH

SIGN-'SIGNED' FOR SIGNED CONVERSION.
UNSIGNED CONVERSION

ANYTHING ELSE

IMPLIES

BLANK-'BLANKS' TO CONVERT LEADING ZEROS TO BLANKS. ANYTHING ELSE
IMPLIES NO CONVERSION OF ZEROS .
$8LKS-0
$SGNS=0

.MACRO

C(BTAS

RADIX,WIDTH,SIGN,BLANK

IDN

.ENDC
.IF

IDN

.ENDC
MOV

fingDTH'400>!SSGNS!iBLKS!RADIX.RS

. IF
$8LKS=1+2000

$SGNS-1+400
TST

BEQ
BIS
.ENDM

;

. +4

#1+«1000,RS

INPUTS:

RO=POINTER TO ASCII OUTPUT STRING
R1=ADDRESS OF DOUBLE PRECISION VALUE
R2=ZERO COMPRESS FLAG

033102
033102
033106
033110
033114
033130

033132
033134
033136
033140
033142
033146
033150

004567
010003
012704
022104
103042
011102
014107
010400
004767
010046
010201

000250
023420

CDDMG:

RS, SAVRG
RO,R3
#10000. ,R4
10.,0,NOSIGN,BLANKS

;SAVE THE NON-VOLATILE REGISTERS
;COPY THE STRING POINTER
sSET DIVISOR
;SET CONVERSION PARAMETERS

40$
(R1) ,R?

;IF HIS, OVERFLOW
;GET LOW PART OF NUMBER

(R1)+,R4

000110

-(R1) ,R1
R4 RO
PC,DDIV
RO,-(SP)

R2.R1

;TEST

FOR OVERFLOW

;GET HIGH PART OF NUMBER
;COPY DIVISOR
;DO DOUBLE PREC. DIVIDE
;SAVE REMAINDER

;COPY QUOTIENT

C2f

PCL

(ZPLABO PCLY1 EXERCISER v0?2
12-SEP-78 15:13
PCLEXR PN

033152
033154
033160
033164
033166
033170
033174
033176

033202
033206
033212
033216
033220
033220
033222
033226
033226
033230

033232
033236
033240
033240
033244
033244
033250
033252
033254
033254

00101
012702
112723
005302
001374

052705

000005
000040

21$:

003000

gafi:

010300
050502
004767
000406

020000

205

00v011

112720
005302
001374

000052

PAGE 43~1

SEQ 0116

B8NE
MOV
MOVB

118
#5,R2
#' ,(R3)e

JIF NE, SOMETHING TO PRINT
:OTHERWISE, FILL FIELD WITH BLANKS

gés

gggOO.RS

:DISABLE BLANK SUPPRESSION

MOV
JSR
BIS
BIC

#5+4000,.R2
PC, 308
#1+1000,RS
#1+2000,R5S

;SET FIELD WIDTH
;OUTPUT HIGH ORDER DIGITS
:DISABLE ZERO COMPRESS
;DISABLE BLANKS

MOV
MOV

(SP)+ _R1
#6+4000,R2

.GET LOW ORDER VALUE
JSET FIELD WIDTH

MOv

R3.R0

;GET STRING POINTER

608

JEXIT

MOV

#9. .R2

JGET COUNT

MOvVB

#'x,(RO)+

:FILL FIELD WITH ASTERI]SKS

BNE

508

DEC
BNE

MOV

BIS
JSR

177506

012702

DOUBLE PRECISION BINARY TO ASCI!

11¢:

012601
012702

09:48

20-0(T-78

MACYT1 30A(1052)

40%:

S0s

DEC

60%:

R2
218

RO.R3

RS.R2
PC,CBTA

JSET STRING POINTER

;INCLUDE RADIX & BLANK SUPPRESS
JCONVERT TO ASCIlI

''soB

R2.50%"’

RE TURN

.SBTTL

DOUBLE PRECISION DIVIDE ROUTINE

1 INPUTS:
* R2=LOW ORDER OF DIVIDEND
*

R1-HIHG ORDER OF

DIVIDEND

- “ RO-DIVISOR (15 BITS UNSIGNED)

* QUTPUTS:

* R2=LOW ORDER OF QUOTIENT

; R1=HIGH ORDER OF QUOTIENT
.

033256
033256
033260
033264
033266
033270
033270
033272
033274
033276

010346
012703
010046
005000

006302
006101
006100
020016

RO=REMAINDER

DDIV:

000040

MOV
MOV

R3,-(SP)
#32..R3

:SAVF R3
;SET ITERATION COUNT IN R3

(LR

;SET REMAINDER TO O

MOV

ASL
ROL
ROL
(MP

RO,~(SP)

R2
R1
RO
RO, (SP)

;STACK DIVISOR

:SHIFT THE ENTIRE DIVIDEND
J... ONE BIT TO THE LEFT AND...
J... INTO THE REMAINDER
;IS REMAINDER GE DIVISOR?

PCL

(ZPLABO PCL11 EXERCISER V0?2

PCLEXR.PI1Y

033300
033302
033304
033306
033306
033310
033312
033314
033316

103402
161600

005202

2%:

005303
003367
005726
012603

(SP) ,RO
R2

JNO,

DEC
BGT

R3
1%

JREPEAT AS LONG AS NECESSARY

LSBTTL

033320
033320
033324
033326
033330
033330
033332
033334
033336
033340
033342
033344
033344
033350
033352
033352
03335¢

012746

010146
005001

000020

sPURGE DIVISOR FROM STA(K

(SP)+

JRESTORE R3

(SP)+ ,R3

INTEGER DIVIDE MAGNITUDE NUMBERS

QUTPUTS:

QUOTIENT

REMAINDER

Iv:

IS RETURNED

MOV
MOV

CLR

IN RO

IN R1

#20,~(SP)
R1,-(SP)
R1

000002

40%:
50%:

022626

JSET LOOP COUNT
;SAVE DIVISOR FOR SUBTRACTS
s CLEAR REMAINDER

ASL

;DOUBLE LEFT SHIFT.

cMP
BLO
SuB
INC

sSUBTRACT OuT DIVI;OR
.
JIF LO, NO
R
DIVISO
OUT
T
s SUBTRAC
BIT
LOW
IN
;ADD

DEC
8GT

;DECREMENT REPEAT COUNT
;IF GT, MORE TO GO

ROL

161601

005366
003367

JYES, SUB DIVISOR OuT
JAND INCR THE QUOTIENT

RO=DIVIDEND
R1=DIVISOR

006101
020116
103402

005200

SKIP TO [TERATION CONTROL

INPUTS:

308:

006300

SEQ 0117

8LO
SuB
INC

TST
MOV
RETURN

% % 20 %, %, 88,08, 0%, 0,08, 08,08,

2898
2899

12-SEP~78 15:13

N9
MACYT1 30A(1052)
20-0(T-78 09:48 PAGE 43-2
DOUBLE PRECISION DIVIDE ROUTINE

(MP
RE TURN

(SP)+,(SP)+

;CLEAN STACK

; SAVE/RESTORE NONVOLATILE REGISTERS
033356
033360

010446
010346
010546
016605

004736
012603
012604
012605

SAVRG:

000006

MOV

R4 ,-(SP)

MOV
MOV
MOV

R3,-(SP)
RS,=(SP)
6(SP) ,RS

MOV
MOV
MCV
RETURN

(SP)+ ,R3

JSR

PC,a(SP)+

(SP)+ R4
(SP)+ RS

;SAVE R4 ER3
;PUT RETURN ADDRESS ON STA(K

JRETRIEVE REAL R5
;CALL THE CALLER ...

;JRESTORE NON VOLATILE

REGISTERS

PCLEXR.P11

12-SEP-78 15:13

8 10

09:48

QUEUE HANDL ING ROUTINES

PAGE 44

SEQ 0118

QUEUE HANDLING ROUTINES
.SBTTL
; THIS MODULE CONTAINS 2 SUBROUTINES, ENQ & DEQ, TO ENQUEUE £ DEQUEUE
; WORDS, RESPECTIVELY, IN A FIRST-IN=FIRST-0UT LIST.
MER

PROC

ENQ,<]TEM,QUEUE>

—

.LIST

033454
033456

000261
000775

NOFULL:

000002
000004

ITEM

016464

005214
000241

000012
000012
000006

000004

000012

000207

RTS

SEC

;GET QUEUE ADDRESS.
:IF QUEUE IS FULL,
: SIGNAL TRAGIC ERROR.
:PUT ITEM AT BACK OF QUEUE.
:UPDATE BACK POINTER.
2t

QTOP(R4) ,QBACK (R&)
aRé

[
: INCREMENT NO. OF ELEMENTS.
:INDICATE SUCCESSFUL ENQ.
RETURN.

NONOWP

NORE T

PROC

DEQ,<ITEM,QUEUE>

QUEUE

:INDICATE UNSUCCESSFUL ENQ.

:IGNORE ITEM & RETURN.

DEQ:

033460

J*ENTRY POINT««

REMOVE A WORD ENTRY FROM THE FIRST-IN-FIRST-OUT LIST
STORE

IT AT

ITEM .

QUEUE

033460
033464
033466
033470
033476
033504
033512
033514
033522
033524
033526
033526

016504
005714
001420
017475
062764
026464

000004

MOV

QUEUE (RS) ,R4

;GET QUEUE ADDRESS.

000010
000002
000010

000002
000010
000006

BEQ
MOV
ADD
cMP

DOEMP
@QFRONT (RS) ,al TEM(RS)
#2,QF RONT (R4)
QFRONT (R4) ,QBOT (R4)

; SIGNAL TRAGIC ERROR.
JRETRIEVE FRONT ELEMENT.
JUPDATE FRONT POINTER.
D

016464
005314
000241

000004

000010

033530
033532

000261

103403

TST

012775

8LO
MOV
DONOWP: DEC(
CLC
DORET:

000207
177777

000002

DQEMP:

QUEUE (R5) ,R4
aR4,QSIZE (RG)
NQFULL
Al TEM(RS) ,3QBACK (R4)
#2,QBACK (R4)
QBACK (R4) ,0B0T (R4)

B8R

QUEUE

RETURN

RTS

SEC

MOV

aRé

DANOWP
QTOP(R&4) ,QF RONT (R4)
aR4

#-1,3]1TEM(RS)

JIF

QUEUE

IS EMPTY,

N
s
;DECREMENT NO. OF ELEMENTS.
; INDICATE SUCCESSFUL DEQ.
JRETURN,

s INDICATE UNSUCCESSFUL DEQ.

JSET ITEM TO ALL ONES.

TO THE FIRST-IN-FIRST-OUT LIST

BLO

MOV
NONOWP: INC
cLC
NQRET:
RETURN

(A WORD)

MOV
(MP
BGE
MOV
ADD
CMP

000004
000002

016504
021464
002020
017574
062764
026464
103403

000002
002002
000012

JTEM

APPEND
033402
033406
033412
033414
033422
033430
033436
033440
033446
033450
033452
033452

;«*ENTRY POINT=«

ENQ:

033402

033460

QUE UE

ITEM

000002
000004

333402

956

o~~~

(ZPLABO PCL11 EXERCISER V02

20-0C"-78

MACY11 30A(1052)

Iy~

——

X nnd

o X

JRETURN.

DORET

(00772

SEQ 0119

HAND LING ROUTINES

e Ao i

033540

QUEUE

¢ 10
(09:48 PAGE 44-1

3000

12-SEP-78 15:13

20-0(7=-78

PCLEXR.P1T

MACY11 30A(1052)

CZPLABO PCL11 EXERCISER v02

PAGE &5

SEQ 0120

; SUBROUTINE TO SCAN AN INPUT COMMAND £ CALL ITS

;
L:

LLIST

MEB

.MACRO

SPAN

; PROCESSING ROUTINE.

REG,CHAR,
2L

THIS MACRO SCANS THE STRING OF CHARACTERS STARTING AT
OREG UNTIL [T FINDS ONE NOT EQUAL TO (HAR.
REG IS

SET POINTING TO THAT (HARACTER,
(MP8

BEQ

DEC

(REG) +,(HAR

REG

.ENDM

.MACRO

BREAK

REG,CHRSET,?HH,?JJ

;

THIS MACRO SCANS THE STRING STARTING AT QREG UNTIL

;

REG IS SET POINTING TO THAT (HARA(TER.

;

h o Xen)

QUEUE HANDL ING ROUTINES

o,y

D10

09:48

20-0CT-78

1T FINDS A (HARA(CTER THAT IS A MEMBER OF (HRSET.

LS,<CHRSET>
aREG,LS
JJ

REG
HH

.ENDM

THE (.ASS IS RETURNED

OTHERWISE

(C:

(HAR, #'7
0D
CLASS
GG

(MPS
BGT
(LR
BR

(HAR,#'A

(MPH

BLT

4(CHARACTER STRING)

0 (WORD) [F (HAR - (A,...,7.=)
IF (HAR = (0,....9)
2(NUMBER)
6(END OF LINE) IF CHAR - CARRIAGE RETURN

IN CLASS AS FOLLOWS:
CLASS
=

ORJECT BEGINNING WITH (HAR.

THIS MACRO DETERMINES THE SYNTACTIC CLASS JF AN

C(HAR,CLASS,?CC,?DD,?EE,?FF,?G6

;

SYNCLS

.MACRO

.IRP
(MPR
BEQ
.ENDM
INC
BR

HH:

EACH MEMBER OF (HRSET IS AN ADDRESSABLE QUANTITY.

RRER T

PR T

TRV

MACY11 30A(1052)

(ZPLABO PCL11

PCLEXR.P11

EXERCIS
IS 3 R vO 2
12-SEP- / 8 15 :13

MOV

#2,CLASS

(MPR
BEQ

(HAR #'~
48

DT IO NI

.ENDM

, #15
CHAR

DD
#6,CLASS

BNE
MOV

{MPR

GG:

CHAR #'9

'
BG'

TYITYT

3070
3071
3072
3073
3074
3075

(HAR #'0

BR
£F

BLT

(MP8S

3066

3067
3068
3069

(MPR

a6, (LASS

T T

tE:

MOV

B8R

T TTYTTTYTTTITTI T

DD:

SeEaQ 0121

UOOCONNNOF

E 10
PAGE 45-1

30A(1052)
20-0CT-78 09:48
QUEUE HANDL ING ROUTINES

3058
3059
3060
3061
3062
3063
3064
3065

MACY1T

N ANECN

(ZPLABO PCLY1 EXERCISER V02
PCLEXR.PY
12=-SEP=-78 15:°

E?)
)

(1)

00002

INPLIN

KWIABL

033%5¢2

SEQ 0122

.SBTTL

COMMAND PROCESSOR INITIATING ROUTINE

PROC
-

(OMAND
, < INPL IN,KWTARL>
2

COMAND :

;**ENTRY POINT
e«

3081
3082
3083

: THIS ROUTINE CAUSES THE COMMAND SPECIFIED BY INPLIN 7O BE
: PROCESSED, AS DESCRIBED BELOW.
INPLIN IS A STRING OF ASCI!
; CHARACTERS ENDED BY A CARRIAGE RETURN (ODE.

3085
3086
3087

;
:
:

- INPLIN IS LEXICALLY SCANNED USING THE LXSCAN ROUTINE.
- THE 1ST OBJECT 1S CONVERTED TO A PROCESSING ROUTINE ADDRESS
USING THE KEYWD ROUTINE £ THE KEYWORD TABLE KWTABL

3089
3090
3091

:
:
;

-~ THE PROCESSING ROUTINE IS CALLED WITH THE OQUTPUT FROM [ XSCAN
ON THE STACK STARTING AT 2(SP).
(THE RETURN ADDRESS OF THIS
CA_L OCCUPIES THE TOP WORD OF THE STACK.)

3088

SUPPLIED BY THE CALLING PROGRAM.

~ THE

LXSCAN

OUTPUT IS REMOVED FROM THE STA(K.

ggg%

3094
3095

: IF LXSCAN OR KEYWD OR THE PROCESSING ROUTINE RETURN AN ERROR
: CONDITION, THEN C - 1; OTHERWISF, € - 0

3097
3098

033542
033544

010546
010667

000076

MOV
VOV

RS5,-(SP)
SP, CMMARK

(1)
(1)

033550
033554

016501
004167

000002
00031C

MOV
JSR

INPLIN(RS)
R
R1,LXSCAN

033562

005716

TST

asSP

JMP

CMRET

3099

3100

3101

3102
3103

033550

033560

033564
033566

003005
012767

033600

016700

033574

3106

033604

3105

3107
3108

(1)

000006

010046

033622

004767

3109
3110
3111

033626

033630
033634
033636
033642
033644

016546

103403

012705
004736
016706
030026

033644

000207

033646
033650

033333
000000

000042

BCS

BGT
MOV

164162

1%:

000032

SUB

MOV

KEYWD

MOV

000004

MOV

000024

JSR

B(S

033650
000004

MOV

(MRET:

MOV
JSR
MOV
BIT
RE TURN
RTS

INPLIN(RS)

SLEXICALLY SCAN

INPLIN .

CMRET

:IF ERROR, RETURN WITH C 1.

1%
#-1,ESCFLG

:NO., IGNORE BLANK COMMAND.

CMMARK , RO

:YES, DETERMINE ADDRESS

aCMMARK ,RS

:RESTORE PAR LIST POINTER.

#6,R0

RO,KWTABL (RS)

RO,~(SP)

:HAVE WE ANY OBJECTS ?

; OF FIRST OBJECT.

:GET ADDR OF COMMAND PROCESSOR.

KWTABL
(R5) ,=(SP)
PC,KEYWD

(MRET

#NULPAR RS
PC,a(SP)+
CMMARK , SP
RO, (SP)+
P(

:IF INVALID COMMAND, MAKE
: ERROR RETURN.
:LOAD NULL PAR LIST ADDRESS.

:PROCESS COMMAND & POP ADDR.
;RESTORE STACK TO ENTRY STATUS.
:THROW AWAY SAVED RS (WlTHOUT
—AFFECTING C BIT).
;RET_IN TO CALLING PROGRAM.

DATA AREAS.

33333
0

:STORAGE FOR STACK PTR ON ENTRY,
;PAR LIST CONTAINING NO PARS.

CMMARK: .WORD
NULPAR: .WORD

3119
3120

2118

3{;;

162700

033614

033616

3112
3113
3114
3115
3116

000036

017705

033614

177777

000167

033610

(1)

103426

LXSCAN

:SAVE PAR LIST POINTER.
:SAVE STACK POINTER.

hXan

PAGE 46

DD IDODIODIDIDDIOIDIIIDIIIIIOOODODODODOOODO

033542

COMMAND PROCESSOR INITIATING ROUTINE

gggg
3079
3

09:48

0 b o B ¢ B o B 3]

12-SEP=-78 15:13

20-0(T-78

el el ol el sl el sl el sl o P ¢ B s B s B 2 B

PCLEXR.P1

MACY1T 30A(1052)

(IZPLABO PCL11 EXERCISER vO2

C(ZPLABO PCL'1 EXERC]ISER vO?

PCLEXR.P11

12=-SEP-78 15:13

MACY11

.SBTTL

KEYWORD PROCESSING ROUTINE

ON ENTRY, THE TOP OF THE STACK IS AS FOLLOWS:

CALLING INSTRUCTION:
ON RETURN,
:
(SP)
IF

THE

TOP OF

THE

STACK

[S AS FOLLOWS:

TABLE,

(-0 ON RETURN.

ROUTINE ADDRESS,

KEYWORD

THE

;
STACK POINTER OFFSETS
;ROUTAD J

3144

3145

LENINP

000022
000C24
000026
000026

033652
033652
033652
033656
033662

162706

016602

033666
033670
033672
033674
033700
033702
033706

005722
001051
012205
0105¢€6
011204

033712

012316

033714
033716
033722
033724
033730

033732

010466
016603

112302

000160
000006
000026

177400

JSR
SuB

RS ,REGSAV
#6,SP

TST
BNE

(R2)+
NOTHER
(R2)+,RS
RS5,LENINP(SP)

NXT(CH:

IF NOT, C

;ROUTINE ADDR FOR
;. CURRENT TABLE
. ELEMENT.

;ADDR OF INPUT WORD
:#CHAR IN [NPUT WORD

:SUBROUTINE RETURN ADDR
;ADDR OF KEYWORD TABLE

;ADDR OF INPUT OBJECT
JRESULT RETURNED

SRC(SP) ,R2

aR2.R6

R4 ,ADRINP (SP)

;SAVE REGISTERS.
JALLOCATE

STA(CK SPACE

:GET ADDR OF INPUT
. OBJECT
;IF OBJECT NOT A WORD
;

THEN EXIT:

NOT

FOUND

:GET # CHAR IN OBJEC(CT.
;STORE ON STACK.

;GET ADDR OF INPUT WORD.
:STORE ON STACK.
OF KEYWORD

TABLAD (SP) ,R3

:GET ADDR.

MOV

(R3)+,aSP

:SAVE ROUTINE ADDR OF

MOvB
8IC
MOVB
BIC
BEQ

(R3)+,R2
#177400,R2
(R3)+ R1
#177400,R1
NOTHER

(MPR

(R&)+,(R3)

MOV
GTLENS:

042701
001431

REGSAvV

MOV
MOV
MOV
MOV

000002
000024

IF KEYWORD [N TABLE; O IF NOT.

==
J**ENTRY POINT

MOV

000004

177400

122423

22
24
26
26

RESULT

042702
112301

RE TURN
TABLAD
SR(

KEYWD:

004567

ADR[NP

000002
000004

PC,KEYWD

JSR

TABLE.

: 1ST ELEMENT.
GET MINIMUM LENGTH
: OF TABLE WORD.
:GET FULL LENGTH.
;IF O, THEN NO MORE
. TABLE TO SEARCH
; COMPARE INPUT (HAR
;

WITH

TABLE

(HAR.

DODIDVD

4L (SP):

RETURN ADDRESS
TABLAD
SR(

N NNV NVDNVNNIDIDDDODDDIDI

(SP):

2(SP):

VLNV

3143

3163

SEQ 0123

SUBROUTINE TO DETERMINE THE ADDRESS OF THE PROCESSING

3141
3142

3156
3157
3158
3159
3160
3161
3162

PAGE 47

ROUTINE ASSOCIATED WITH THE KEYWORD REPRESEWTED BY
THE SYNTACTIC OBJECT POINTED TO BY THE ARGUMENT
CONVERSION FROM KEYWORD TO ROUTINE ADDRESS
SRC.
IS DONE AS DEFINED IN THE KEYWORD TABLE
POINTED TO BY THE ARGUMENT TABLAD.

3130
313}
3132
3133
3134
3135
3136
3137
3138
3139
3140

G 10

09:48

KEYWORD PROCESSING ROUTINE

3122
3123
3126
3125
3126
3127
3128
3129

3146
3147
3148
3149
3150
3151
3152
3153
3154
3155

20-0CT-78

30A(1052)

PCLEXR.P1T

3177
3178

3179
3180
3181
3182
3183
3184
3185
3186

3187

3188
3189
3190
319
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
(1)

3208
3209

12~-SEP=-78 15:13

H 10

09:48

PAGE 47-1

SEQ 0124

KEYWORD PROCESSING ROUTINE

J1F<, THEN NO MAT(H
. EXISTS.
;1F>, THEN TRY NEXT
. TABLE WORD.

03373

002427

8LT

NOTHER

033736

003005

867

NXTWD

033740

005305

DEC

033742

001413

BEQ

THFND

005301
001371
005201
060103
042703
016604

DEC
BNE

R1
NXT(CH

ADD
8IC
MOV

R1,R3
#1,R3
ADRINP(SP) R4

;GET ADDR OF NEXT
. TABLE ENTRY,
;POINT TO BEGINNING

MOV

LENINP(SP) RS

GTLENS

:GET LENGTH OF

INPUT WORD.
JGET LENGTHS OF TABLE WORD.

(mP
BLT

LENINP(SP) ,R?
NOTHER

(SP) ,RESULT(SP)

:IF LENCINP WD) < MIN LEN (TABLE
: WORD),
WORD IS NOT IN TABLE.

:SAVE(ROUTINE ADDR. OF

ADD
(Lc

#6,SP

JFREE LOCAL STA(K SPACE.
;CLEAR CARRY BIT.

033744
033746
033750
033752
033754
033760

00000°
000002

033764
033770

016605
000750

000004

033772
033776

026602
002406
011666

000004

034004
034010

062706
000241
000405

060006

034014
034020
034024
034026
034026
034032
034C34

005066
062706
000261

000026
000006

004567
012616
000207

000020

034000

034012

NXTWD:

INC

B8R
THFND:

MOV

000026

BR
;.

wWORD

KWEXIT

INPUT STRING

EXHAUSTED,

MAT(CH.

: WE MAY HAVE FOUND

;1F MORE CHAR IN TABLE WORD
; TO TEST, GO & TEST THEM,

INPUT WORD.

MAT(H.

15 NOT IN TABLE. SET RESULT TO O & SET Z BIT ON.
RESULT(SP)
;CLEAR RESULT.

CLAR
ADD
SEC
KWEXIT: REGRES

NOTHER:

JIF

#6,5P

JSR

RS ,REGRES

RTS

MOV

(SP)+,aSP

JFREE LOCAL STA(CK SPACE.

;SET CARRY BIT.

;RESTORE RECISTERS.

:POP AN ARGUMENT.
;RETURN,

NUrnununuounununnumounuvom

JPLABO PCL11 EXERCISER vD2

20-0(T-78

MACY11 30A(1052)

CIPLABO PCL11 EXERCISER V02

LP(LEXR.PH

12-SEP-78 15:°3

3230
3231
3232
3233
3234
3235
323

PAGE 48

SEQ 0125

& RESTORE ROUTINES

SUBROUTINE TO SAVE RO - RS ON STA(K
034036
034036
034040
0346042
034044
034046
034050

:
CALL ING SEQUENCE

010446
010346
010246
010146
010046
000115

REG SAV:

MOV
MOV
MOv
MOV
MOV
JMP

JSR

RS,REGSAV

J**ENTRY

R3,=(SP)
R2,=(SP)
Ri,=(SP)

RO,-(SP)

3RS

SUBROUTINE TO RESTORE RO-RS FROM STA(CK
THE

POINTwe

R« ,=(SP)

(ONDITION CODE BITS

IN THE PS ARE

DESTROYED,

EXCEPT FOR THE CARRY BIT, WHICH IS PRESERVED.
034052
034052
034054
034056
034060
034062
034064
034066

:
CALL ING SEQUENCE

030026
012600
012601
012602
012603
0126064
000205

REG RES:

8IT

MOV
MOV
MOV

RO, (SP)+
(SP)+ RO

JSR

RS ,REGRES

J**ENTRY POINT«»
;THROW AWAY OLD RS VALUE.

(SP)+ R1

MOV

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

MOV
RTS

{SP)+ R4

=
— =

3224
3225
3226
3227
3228
3229

1 10

09:48

3215
3216
3217
3218
3219
3220
3221
3222
3223

°20-0(T-78

LSRITL

3211
3212
3213
3214

MACYI1

30A( 1052)

LEXICAL SCAN ROUTINE

3240
3241
3242
3243
32464
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292

3293

SEQ 0126

LEXICAL SCAN ROUTINE

.SBTTL

3238
3239

PAGE 49

PERFORM LEXICAL

SCAN OF

INPUT

COMMAND

BUFFER.
THREE

CLASSES OF SYNTACTIC OBJECTS ARE RECOGNIZED:
1. WORD: A STRING OF (HARACTERS BEGINNING WI'H
A LETTER & TERMINATED WITH A
BLANK OR CARRIAGE RETURN.

2. NUMBER: A STRING OF OCTETS TERMINATED WITH A
BLANK OR CARRJAGE 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(TER.

SYNTACTIC OBJECTS ARE SEPARATED BY 1 OR MORE BLANKS.
THE

COMMAND

IS ENDED BY A CARRIAGE RETURN.

THIS LEXICAL SCANNER DETERMINES THE LOCATIONS OF

SYNTACTIC OBJECTS & DETERMINES THEIR CLASSES.
NUMBERS ARE CONVERTED TO THEIR BINARY VALUES.
AFTER THE LEXICAL

SCAN IS PERFORMED,

THE

EACH

SYNTACTIC OBJECT WliL BE REPRESENTED ON THE STA(K

AS A 3 WORD QUANTITY AS FOLLOWS:
TOP WORD
=
SYNTACTIC CLASS:

0==>WORD
2==>NUMBER

4==>CHARA(CTER STRING

ND WORD

LENGTH OF OBJECT IN CHARACTERS; NOT
SIGNIFICANT FOR NUMBERS; DOES NOT
INCLUDE SURROUNDING DELIMITERS FOR (HAR.

3RD WORD

VALUE OF NUMBER, OR POINTER TO 1ST

STRINGS.

LETTER OF KEYWORD OR 1ST SIGNIFICANT
CHARACTER OF STRING (IE: NOT SUR-

ROUNDING DEL IMITER)

;

THE END OF

THE

LEXICAL SCAN THE

; ARRANGED AS FOLLOWS
I
;

NTH 0BJUECT

]

1ST OBJECT

STA(CK WILL BE

NO. OF SYNTA(CTIC OBJECTS):

<=== §P

" WHERE EACH OBJECT IS REPRESENTED AS ABOVE.
CALLING SEQUENCE
:

AAAA AN

PCLEXR.P11

12=-SEP-78 15:°2

09:48

CZPLABO PCL11 EXERCISER V02

J 10

20-0(T-78

MACY11 30A(1052)

R1=BUFFER ADDRESS
R1,LXSCAN
JSR

ON RETURN, REGISTERS 0-5 ARE UNDEF INED.
EXCEPT FOR THE ABOVE TABLE, THE STACK IS AS [T
WAS BEFORE ENTRY TO THE ROUTINE.

(ZPLABO PCL11

PCLEXR.P1

EXERCISER vOC
12-SEP-78 *5:°3

MACY11

30A(1052)

20-0(T-78

LEXICAL SCAN ROUTINE

K 10

09:48

PAGE 49-1

SEQ 0127

[F LXSCAN DETECTS Al ERROR CONDITION, IT RETURNS WITH THE (ARRY (()

BIT SET,

OTHERWISE

IT IS CLEAR.

THE MOMENT,

THE

ONLY ERROR CONDITION DETECTED BY LXSCAN IS A STRING WHICH IS MISSING
ITS CLOSING DELIMITER.

121527

000132

003002

ed o

et W

T
T

b ad

67%:

e
T

—od

000060

000002

Nl W

66%:

68%:

000004

000071

000015

d wmd

(MP8

65%:

000055

CMPB

B8EQ
DEC
SYNCLS
(MPR

8LT

— ol

PN e N

649 :

000006
034200

BGT
(LR

BR
MOV
B8R
(MPB
BLT
(MPR
B8GT
MOV
BR
(MPB
BEQ
(MPB
BNE

010503

SCWORD: MOV
BREAK
(MPR
BEQ
CMPR
BEQ
INC
BR
MOV
SuB
PLA C:
NEG
MOV
MOV

121527

034240
034242

001402
005205
000770
010346
160503
005403
010346
010446

034244
034246

005202
000712

000015

LXINCN:

.WORD
.WORD
.WORD
.WORD

INC
BR

J**ENTRY POINTw«

;CLEAR #0BJECTS.

;GET ADDR. OF COMMAND BUFFER.
JRS = ADDR (1ST NONBLANK (HAR)

;DETERMINE SYNTACTIC CLASS.

663
R4

69%

#6 R4

;PROCESS OBJECT

JMP
SJT:

000040

649
RS
@RS, R4
AR5, 4'A
67%
SRS, 4'7

MOV

034210
034250
034414
034454

121527
001405

R2
(SP)+ RS
RS ,<a' >
#'
(RS)+

SCWORD
SCNO
SCCHAR
SCEOL

RS.R3

RS, <<t >, <#15>>
4'
aR., S
659%
aR5,#15
659%
RS
643
R3,-(SP)
R5,R3
R3
R3,-(SP)
R&4 ,-(SP)

R2
NXTEL

;WORD PROCESSOR.

;NUMBER PROCESSOR.

s CHARACTER STRING PROCESSOR.

[aa]

g
d

d
NP

N
N

000101

002410

121527

Wen WP

000040

122527

001775
005305

NXT EL:

(LR
MOV
SPAN

;R3 = START ADDR OF OBJECT
;RS - ADDR (NEXT BLANK OR (R)

AaDIYMTM

LXS CAN:

005002
012605

JEND OF LINE PROCESSOR.

;PUSH ADDR OF OBJECT ONTO STA(K.
:R3 = (~LENGTH OF OBJEC(CT)
JNEGATE TO GET LENGTH,

;PUSH LENGTH ONTO STACK,
;PUSH SYNTACTIC CLASS ONTO
; STA(K
; INCREMENT
;G0 TO SCAN NEXT ELEMENT

(ZPLABO PCL11
PCLEXR.P11

3322

3323
3324
3325
3326
3327
3328
3329
(2)
(2)
(2)

EXERCISER V0?2

12-SEP-78 15:13

034250

3359
3360
3361
3362
3363
3364
3365
3366
(2)
(2)
(2)

121527

000071

SNXTDG:

112503
142703

060300
000760

ASL
MOV
ASL
ASL
ADD
MOovB
BI1(8B
ADD
BR

000060

000040

121527
001410
122527

000015

001052
010046
005046
012746

000056

SNTDIG:

(MP8
BEQ
(MP8
BEQ
cMP8
BNE
PUSHNO: MOV

000002

000736
034350

034352
034356

034360
034364
034366
034366
034370
034372

034374
034376

005000

121427

000060

121427

000067

002413

003010

TRYO(CT:
ONXTDG:

000060

(RS)+,R3
#60,R3
R3,RO
SNXTDG

»4*
aR. S

TRYO(CT

@RS, 415
TRYOCT

(RS)+ #'.
LXERR
RO,=(SP)

LXINCN

(LR
CMP8
BLT

JCLEAR ACCUMULATED NO.

;SAVE POINTER TO 1ST DIGIT.

JIF CHAR <0
:

THEN TREAT AS DELIMITER.

;

THEN

JIF (HAR >'Y'
TREAT

AS DELIMITER,

;MULTIPLY PREVIOUS DIGITS 8Y 10.

BGT
MULT

;CLEAR TOP BITS OF ASCII (0ODE.
JADD DIGIT.

JGET NEXT DIGIT.
;IF DELIMITER = SPACE,
; CONVERTING OCTAL NO.

;IF

DELIMITER = (R,

TRY

. CONVERTING OCTAL NO.
;1F DELIMITER IS NOT DOT,
; THEN SIGNAL LXSCAN ERROR.
JPUT CONVERTED NO. ON STA(K.
JSET OBJECT LENGTH TO ZERO.

JSET OBJECT CLASS T0 2

;. (NUMBER).
. INCREMENT 08J. COUNT &
; SCAN NEXT 08J.

3R4,2'0

;CLEAR ACCUMULATED NO.
;IF CHAR < ',

aR4 47

JIF

8..RO

;MULTIPLY PREVIOUS DIGITS BY 8.

THEN TREAT AS DEL IMITER.

ODELIM

THEN TREAT AS DELIMITER.

ASL
ASL
ASL
MOVB
BI1(B
ADD
BR

RO
RO
RO
(R4)+,R3
#60,R3
R3.RO
ONXTDG

;GET CHARACTER.
;CLEAR TOP BITS OF ASCII (CODE.
;JADD DIGIT.
;GET NEXT DIGIT.

(MP

R4 RS
LXERR

;IF _NOT AT END OF NO.(DUE TO

(R5)+,R0
R5,R3

:RO

RS,<R0O,#15>
aR5 RO
65%

;RS - ADDR

060300
000762

034406
034410
034412

020405
001024
000751

ODEL IM:

034414
034416

010503

112500

SCCHAR: MovB

B8R
MOV

BREAK

000015

SEQ 0128

RO
R3.RO

-(SP)
n2,~(SP)

034402
034404

034420
034420
034422
034424

RO
R5,R4
8RS ,4'0
SNTDIG
aRS 409
SNTDIG
10. ,RO.R3
RO
RO.R3
RO

CLR
MOV

(MP8

006300
006300
006300
112403
142703

8LT

MULT

121527

0014613

CLR

MOV
(MPS

(MP8
8GT

006300
010003
006300
006300
060300

(2)
3330
3351
3332
3533
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346

3347

000260

003012

L 10
S0A(1052)
20-0(CT=78 09:48 PAGE 49-2
LEXICAL SCAN ROUTINE
SCNO:

121527

002415

(2)

3348
3349
3350
3351
3352
3353
(2)
(2)
(2)
3354
3355
3356
3357
3358

005000
10504

MACY11

(MP8B
BEQ
(MPB

ODELIM

PUSHNO

AR5, #15

CHAR > "7,

; '8 0R "9, LXSCAN ERROR.
;GENERATE OBJECT FOR NUMBER.
:R3

;

DELIMITER OF STRING.
ADDR (18T CHAR OF

STRING ITSELF)

(NEXT DELIM OR (R).

m10

fIPLABO PCL1Y EXERCISER v02

PCLEXR.P11

(2)

(M)
(1)

3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389

034430
034432
034434
034436
034442
034444

12-SEP~78 15:73

001402
005205
000771

121527

001407
010346

MACY1T 30A(1052) 20-0CT-78 09:48
LEXICAL SCAN ROUTINE
8tQ
INC

000315

B8R
(MP8
BEQ
MOV

RS
649
., 415
aRS5
LXERR
R3,-(SP)

RS,R3

034446

160503

034450

005205

INC

034452

000671

PLAC

034454
034456
034460

010246
000241
000111

MOV
CLC
JMP

R2,-(SP)

034462
034464
034466
034470
034474

LxlT:

000261

005302
00774
062706
000772
000001

006006

;WAS CR FOUND BEFORE DELIMITER?
JYES,

PROCESS ERROR

;PUSH ADDR. OF STRING ONTO

;

STACK.

‘A3 =

(~LENGTH OF

; DELIMITER)
;RS = ADDR

STRING EXCL.

(CHAR AFTER (CLOSING

; DELIMITER).

;FINISH OFF PROCESSING STRING.
;PUSH NO. OF OBJECTS ONTO STA(K

;INDICATE NO ERROR .

JRETURN TO CALLING PROGRAMME

aR1

;
PROCESS LFXICAL SCAN ERROR
SEC
RR:
LXE
R2
DEC
LXIT
BLT
ADD
#6,SP
L XERR
B8R

.END

SEQ 0129

65%

SuB

:
SCEOL

PAGE 49-3

:INDICATE ERROR OCCURRED .
:CLEAN UP STACK & EXIT .

016152

A.C
A.CR
A.L
A.LF
AP
A.PR
BKELEM

016160
016044
016162
016040
016156
016164
030266

BSYINT
010430
BUSY
= 004000
800
= 000001

801

802
803
BO4
B80S
BO6
B07
BO8
809
B10
811

812
B13
B14

000002

= 000004
000010
= 000020
- 000040
- 000100
- 000200
- 000400
- 001000
= 002000
= 004000

B1S

= 010000
= 020000
= 040000
-

CBFEND=
(BTA
CBUFPT
cooMG
CHAR
=
CLEAV

CLKEXT
CLKINT
CMCHTB

CMOBUF
CMDENT
CMDRET
CMDRTN
cMpTBL
(MMARK
(MMISC
CMRET
COMAND
COMENT

(PADD

100000

016402
032744
016402
033102
000002
004106

012322
012230
016034
016176
(017641
(006430
006406
030276
033646
015020
033636
(0335472
006322

004536

308#

1092

2180
2158
260
2159
2c6!

2157

12124

3164+
613

2190
261468

852+

853+

2350

34,3
364k

1646

b{RY
3628

3614
3604
3594
358
3574
3564
3554
3544
353y
3524
351#
3504
3494

1363
1642

2199
273«
2081+«
1749

QBE

991+

992«

1223

1232

1344

1348

2350#

1097#

23164
1232

1368

SEQ 0130

23114
2314a
22724
23154
22714
2313

1237«

2160

PAGE 50

CROSS REFERENCE TABLE == USER SYMBOLS

2203+

2204

22646+

2248

24674

626

910

1343

1453

1462

1487

1513

1548

1631

1680

607

631
639
540

639
2061
867

889

1000

1382

1528

1552

1638

1644

1624

1628

1543
1593
704
1399

1597
1627
1440
1773

14644

1832

915
1454

946
14661

959
1486

993
1512

1193
1587

2174
28254

2179+

2199

2201«

2202«

23324

171

1714

23304
2082+

2162+

23574

3107

5113

31194

3109

3113

14604

607
467

1700

1450
1442
1436
1418
1414
1410
466
1367
1682

2331
2860
2161«
1758

2193

6394

1707
17004

1620
1616
1601

1691

22694
2161
495
11204
11174

24764
3105
2069#
3104
30794
11704

2676

865

1646

884

1833

1854

1905

2107

A.BKSL

016540
016424
000040
006304

503
31478
566
23504
2350#
851+

N 10

09:48

NNO

AOEND =
AOQ
AOS12€=
ASEXT

006740
000002
017776
016440

20-0(CT-78

-\
-

ADQLD
ADRINP=
ADSILO
AOAREA

12-SEP~-78 15:13

30A(1052)

N)
—b —b

PCLEXR.PI1

MACY11

CIPLABO PCL1T EXERCISER V02

1690

1226
1626

1284
1632

CZPLABO PCL11 EXERCISER VvOQ2

PCLEXR.P1

(PALP
CPARTN
CPASS
(PCLR
CPCLRC

CPCLRT
CPUNRT
(PCNT
CPDEL
CPOLP
CPDRTN
CPERR
CPERTN
(PGO
CPINIT
CPINRT
(PMAST
CPMLP
CPMOK
CPMRET
CPRANG
CPRFIL
CPRIB
CPROK
CPRRET
CPRRTN
CPSEC
CPSEX
CPSILO
CPSLV
CPSOK

CPSRET
CPSRTN

CPSTAT
CPSUM
CPSURT
CRRET
=
CR.
CTLCMG
CTLOMG
CTLUMG

CTL.C =
CTL.0 =
CTL.Q =
CTL.S =
CTL.U =
CURAD
CycL
DATBUF
DATGEN
DATGEV
pBCLP
DBFCLR
DIV
DECJSP
DECPNT

12-SEP~78 15:13

004552
0C4634
005704
004764
005014

005056
005212
005126
004644
004660
004754
006612
006730
005522
005222
005460
004130
003520
004144
004212
004400
004502
004306
004322
004376
004526
004214
004076
003420
004034
004230

004300
005116
005066
005470
005512
015100
000015
Q16412
016404
016707
000003
000017
000021
000023
000025
017752

007362
020666
007136
017660
011110
011074
033256
032716
032724

7714
7884
10234

8344
8434
854#
888
881#

7944
7994
821#
11774
1188
9824
9054
OL7N
64N

5834
651
653
7234

7470

694H
696
698
7534
6694

6334
5654
621
671
673
868#
8624

9S6n
9614
2080

3334
2126
2094
2135
3364
334m
3374
3384
3354
1349«

8 N
20-0(T-78 09:48 PAGE 50-1
MACY11 30A(1052,
CROSS REFERENCE TABLE -~ USER SYMBOLS
786
790

2479
2482

850
856
8904
2485
2488
819
823
2491

11944

2494
2497

892

1197

949

2500

599
654#
6634

2503
751

2506
6994
7114
756

2509
636
2512
6274
6740
6844
870
2515
2518

642

688

963

2085#
2081
23364
2334#
23354
2270
2273
2274
2275
2276

1350
13044
1347
12584
L6*
1562
15574

2888#
1903
1787

2272

1502

24004

1285+

1367+

23674

1955
1791

27204

1477

24334

1795

27264

SEQ 0131

(ZPLABO PCL11 EXERCISER VvO2

PCLEXR.P11

12-SEP-78 15:13

LEQ
Dlv
DONE
=
DQEMP
DONOWP
DQRET
DYCOON
DTCLP
DTICNT
DTGNC
DTGNCO
DTSEED
ELPSTM
ENQ
ERADR =

033460
033320
000200
033530
033522
033526
007314
007254
007170
007206
007230
017726
031700
033402
012162

ERMIN
ERMINR
ERMIS
ERMISR
ERNE
ERR
=
ERRA
ERRADR=
ERRB
ERRB1
ERRB2
ERRB3
ERR(
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
ERR1

014466
000002
010406
017770
017772

ERTBCL
ERTBL
ERTBLO=
ERTCD
ERTMSG
ERTRAP
ESCFLG

005314
024726
024720
005336
031151
(003340
017756

EXCNT
EXRST

031247
031225

ERRZ2

FIRST
FRELEM

GTLENS

HDRFLG

017774

017710
030264

033712

017716

HOURS
017646
INPLIN= 000002

1348

344
2988
2992
29964
1283

12784
1263
1266
1269
938+
1797
1232
14004
15864
1993

2031

1994

2032

1668
3420
16411
19764
1415

1423
1427
1431
1419

1437
1443
1386
1400
19764
1586
19764
1413
1190+
1191+«
1192+«
9164
918
1990
920

537
421

468+
1187«

886
997
581«

1348

31674

1193+
914»

30794

MACY11
2054
29234

c N1
)
30A(1052
20-0(T-78 09:48 PAGE 50-2
CROSS REFERENCE TABLE -~ USER SYMBOLS

SEQ 0132

2219

29814

1278

1279+

1280+

1283

23904

2158

2159

2160

2180

2204

2231

2248

2260

2261

2262

29984
29944
3000
1282
12654
12684
12724
1268

25564
2157

14124
15954
19954

14344
16184

14384
16224

14484
16694

14524
16764

147404
16854

14934

15994

146244
16074

20144

2029

1416

1426

1428

1432

1434

1438

1448

1452

1474

1493

1599

1607
2022
1429

1612

1614

1618

1622

1669

1676

1685

20144

1433

1435

1449

1451

1453%

1860«
1893

1441
1912+
1899
1902

1907
1906+

1909+
24094

1911+

24084

16164

14284
16124

16324
16144

20334
2004n
2043

16854
14144
1991
14184
14264

14304
16344
164364
146424
164504
14104
1412

1595
1984

1617
1829
1834«
1835+

923

1961

2028

924N
2544M
5364
630~
24024
25464

25454
600
1349
3193
1823
990«
3099

20144
1425
1845
1848
1842

1861+
1856
1851

1883
1858+
1855«

24074

24434
24534

2453

640+
3103+

662+

683+

710+

752

787«

820«

839+

908+

1112+

1359

2054

2055«

2056

2062+

2066

2069

2219

2220

24064

1825+
1713

1782

1833+

1877

1879+

23824

23794

23624

1517

CZPLABO PCL11 EXERCISER V02

PCLEXR.PI

12-SEP-78 15:1%

INTENB= 00C100

INTTMP
ITEM =
KEYWD
KWDERT

030274
000002
033652
004302

KwFLG

017650

KWEXIT

034026

KWTABL= 000004

LCS
016150
LENINP= 000004
LF.

LXERR

= 000012

034462

34,54

2230«
29614
656
657
3201

454+

30794

455
31484
3324
3340
33204

MACY11 30A(1052)

2989+
3108

2999«
31544

456*

461+

887

998

1778

889+«
3162
2271
3360
3345

1000+
3192

1700+
3195

2150+«

23064

3368

3382#

3386

988+«

1709«

1719

1712«

1786

23604

1264*

1265

1273

1277

1283

23924

14124

16164

15994
600

14240

16074
23804

14284

14324

14344

2S81#
3177
1526

3196

32044

32074
3108

3384
33004
2535~
2245

MLl
ML SD

007336
017730

1279
939

12954
2391»

017732

939«

MSCHNG

030632

MSGLSD

MSTMG1
MSTMG2
MSTMG3
MSTMG4
MSTMGS
MTOMSG

MUL

031274
031332
031373
031441
031507
031032

007352

- 000031

NMINT
NOERMG
NONMG
NOTHER
NOWMST=
NOFULL
NONOWP
NQRET
NULPAR
NXTCH
NXTEL
NXTWD
NXTO
NXT1
NXT10
NXT11
NXT12
NXT2
NXT3
NXT4
NXTS
NXT6
NXT7
NXT8

017712

010774
032226
032563
034014
CO00004
033454
(033446
033452
033650
033732
034074
(033752
003004
003026
003270
003312
003334
003050
003072
003114
003136
003160
003202
003224

1159

2536

1262

622
623
624
625
629
1239

25474
254L8#
2549
25504
2551a
25414

244N

164004

13004

15174
582+

1395
1186
1838
3160
13794
2967
2971
29754
311
31754
33034
3179
493
496
523
526
529
499
502
505
508
511
514
517

SEQ 0133

24L70m
29814
701
6874

33704
3099
1139
2244k

912+«

PAGE 50-3

2231
2968
676
677

034244
034460
034070
030560
000002

017644

09:48

CROSS REFERENCE TABLE =-- USER SYMBOLS

LXINCN
LXIT
LXSCAN
MONER
ME SSAG=

MINUTS

20-0CT-78

1305

15864
586

15264
2568#
1888
3173
1393
29774
2973
2978
31204
3186
3321
3188#
4954
4984
5254
5284
531w
5014
S04
SO7#
5104
134
S16#
519#

1672

15954
596+

702

16124

2148

1614a

23634

16184

14384
16224

14484
16694

146524

16764

14744
16854

14934

2444

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11
NXTO
0BJCNT
OCTJSP
OCTPNT
ODEL IM
ONXTDG
OR1GSD
PADFLG
PARCLR
PART1

PART2
PART3
PART4

12~SEP-78 15:13

003246
017760
032702
032710
034406

034352
017724
017720
005310

006006
006074
006162
0062456
032670
002000
030731
017700
032654
002762

PCCALL
PCLEX
PCLEXM
PCLGO
PCLOOK
PCLOOP
PCLRCV= 164220
PCLTXM= 164200
PCQUIT
032676
PCREST
002570
PCRST
002174

520
575«

451

2714m
3350
33,94

005004
015040
015154
015102
015144
015134
015176
015372
015214
005240
017714
015472
032654
PRST
002446
PS
= 177776
034336
PUSHNO
Q@8A(CK = 000012
000006
10210
QCHACT
006760

1849

627

23834

617

1897

*900

1939

618

264034
1943

27084

23754

612

611+

1061

1077

2617
377

1098

425+«

884+

«
994

1142+

1236

1340

1639+

2156+

476

531
2292
2284

2293
2285

2296
2286

2295
2287

2296
2288

2289

2290

1138

1140

1158

1160

1839

1889

2084

2176

629

886
1798

997
1826

1115
1827

1139
1838

446

2615~
2994
2984
2619
379

464N

4194

446
1159

PRCLR
PRCR
PRCTLC
PRCTLO
PRCTLQ
PRCTLS
PRCTLU
PRDEL
PRESC
PRINIT
PRINTD
PRM]SC
PROCHR

17464

609

606
1846

1045

015706

PM376
PM187

603+

SEQ 0134

33594

917#

PNTLIN

PMRET

EN
30A(1052)
20-0(T=-78 09:48 PAGE 50-4
(ROSS REFERENCE TABLE =-- USER SYMBOLS

1029

PNCRLF

PL219

483

571«

2173
33164
2247
22464
2253
2192
2195
2197

PLAC
PLCRLF
PLODEC

5224
589+

938

015470
034236
015746
015712
015752
015570
015520
015524
015752

PORET

MACY11

444

2259#
1853
8404

2078#
21254
1238

21164
21064
2134n
2171a
475

21814

21984
21994

22054

445

474

885

996

452
1186
1880
916

484
1239
1881

537

622

2271
2270
2091#
2274
2275
2276
2277

623

1763
1888

1769
1904

1772
1956

624

2126

2135

2244H

1968

2127

21474

2177

2970

2972

2273

1145

1240

1806

1891

2069
2064

21904
2614N

1854+

1886

1890«

1905+«

2381#

328#
33414
3174
3154

434+

4664

486

541«

1097+

1383«

L33«

853+
2991

992+

2093

2968+

2969«

12174

3361

2970
1222

1777

2272

1119

L4 8%

1797

2094

1116
909#
1840«

447
1836

625

1775
1960

(ZPLABO PCL1Y EXER(CISER v02
12-SEP-78 15:13

PCLEXKR.PIT

QELEMS= 00G000
QFRONT= 000010

QuLDEV
QLOAD
QLOOK
QMTRN
QRTN
QSIZE =
QTOP

017656
007030
006772

007060
007014
000002
= 000004

QUEUE = 000004

RADB
RADBO =
RADEND
RANK
RANM

020 .0
020064
U20664
017750
017746

RCBUF
RCDEV
RCDOR =
RCELIN
RCER
RCERC
RCPRIO=
RCR

022726
016172
000400
032517
100000
032553
000005
016116

RCRCM
RCRNO
RCSEED
RCSUC =

000040
032517
017734
000200

RBCLMG
RBSTMG

RCTRN
RCTXPS
RCVEC
RCVECT=
RCVEV
RCVINA
RCVINB
RCVINC
RCVIND
RCVINT

RCVVEC
RCwD
=
RDBA
RDBC
RDCRC
RDDB
RDOINC
RDOINT
RDORTN
RECV
REGRES
REGSAV
RELZRO=
REQINP
REREV

031657
031640

032534
017736
016174
000174
017702
011144
011160

011174
011210
011124

016134
020000
016126
016124
016130
016122
011720
011652
011704
011024
034052
034036
002000
(017640
017654

MACY1T 30A(1052)
20-0(T-78 09:48 PAGE 50-5
CROSS REFERENCE TABLE == USER SYMBOLS

3124

852w
99>

31en

LE609

1219

SEQ 0135

997«
1214

2093+
1363+

2989
23664

2990+

2991

853
2986

991

992

2972

2993

2419

2429
1508

24294

1626+

1627«

1631«

23934

2993+

1218

12264

1261

12264
3134
3148
2961#

852
29814

746

810

1216

842

1734
1280
1279
1777
1775
1549
405
15654
1904
15684
1901

303#

4L06*

2019

15714
1895
1639+
1570#

1671
1095+

24384
23264

1548+

1551«

1552+

1583

1651

1653

1640
1580

1654

1672+

1673«

1674

985+
1042+

1%+

25om

1364

23944

510
15774
15804
15834
15864

538+

1546+

1587+

1632+

436+
1551
1549«
1550+

440

2291

2578+

25794

436
417

15734

15434
414
412+
416+
410«

1641
1579
16434
512
542
1692
536
3824
423
528

1483

23994
2398«

1898
945+
417
300#
L66
1575
1578
1581
1584

1799
1356

22964

1638x

1642+

1682+

1691+

23764

1563

16384
1647
15454
1227

1401

1463

1488

1514

1529

1213

1381

1573

2229

3155

32154

2083+

2172
2155+

219N
23654

23564

2079

944

1680+

1690+

1588

1629

1643

1681

1663

22934

2232

1646+

22954

1639

16464

1644

3207

1832+

-e
me®@

(ZPLABO PCL1T EXERCISER VO2

PCLEXR.P

RE RHDR

RFRINT
REROS
RERRA
RERRB

RERRB1
RERRB?

RERR(
RERRD
RERRE
RERRX
RERTBL
RERTN
RERTRN

12=-SEP-78 15:13

032426
011244
013440
011300
011334
011414
011456

011502
011536
011572
011632
026616
013762
011624

T= 000026
RESUL
RE TURN= 000022
RJCTF
017740
RPMSG
RRHL IN

RRJINT
RSADD
RSFLSZ
RSHOLD
RSNTO
RSP(

RSR

RSTMSG
RSUCHK
RSUCNT

RSUGEN

RSUINT
RSULV
RSUTST
RTRYA
=
RUBOUT

SAVRG
SCCHAR
SCEOL
SCNO
SCTBL
SCWORD
SECNDS
SERFL
SETCN
SHBRT
SILLD
SJT
SLOLP
SMADV
SMARXT
SMCHK
SML IN

SML IN1
SML IN2
SML IN3

1880
1576

530

15%
1598
1606

1611

1602

1617
1621
1596

1613

1615

1910

19134

1500

23954

1577

1426+
1580

1430
1583

1677

16804

1686

1608

24614
1892

3197

3204+

470+

1260+

1270«

1881
1585
448

2576

31494

031000

452
1675
1652
16724
1582

034454
034250
030532
034210
017643
006672
032732
010570
003674
034200
003704
014214
014226
014000
032574
032574
032616
032642

16014

16094
16144
16164
16204
16244
1600

31524

23384

012140
012050
002646
000177
033356
034414

15934
1873
1597#

20461

16294

1660

426+

1656
1620«

408+

1651

1664

1667
L76M

3394
2740
3309
3310
3308
656
3307
911»
1183

2710
1475
61C

3305
6144
1935
1932

19314
1956
1936
1940
1944

SEQ 0136

25754

1835
1876

016415
032447
012206
031023
012004
017762
011766
017754
016120

012134
011750
012054
011732

G 1"

20-0(7-78 09:48 PAGE 50-6
MACY11 30A(1752)
CROSS REFERENCE TABLE -~ USER SYMBOLS

1882
1633

1619

1623

1625

1631#

1603+
1593

1604~

1605

1609+
1603

1790

23594

16904

25404

16624
449
16584
1421«
1574
1653«

25394

16784
1654m
1679
16514
1670
16714
487

2277
2830
33634
33774
3323w

24044
1422

22924

544

2944M

33124
987+

701

2524

1708=

1706

1708+

2716

2722

2728

27304

6124
33074

619

676

11894

14864

616
19644
19674
1965

2582#
25834
2584n
25854

1597

1494

1601

1610

1616

246014
1620

1624

1628+

CZPLABO PCL11 EXERCISER v0?

PCLEXR.P11

12-SEP-78 15:°%

MACY11

014130
014246
0146134
SMTTLE
032142
SNTDIG
034314
SNXTDG
034254
SORCNTY
010720
SORINT
01065¢
010750
SORIP
SPCEV
017704
SPE(
006432
SPERTN
006504
177570
SR
SR(
000026
013056
STARXT
STATUS
012324
013044
STBADV
STCHK
012344
R
012554
STHD
031762
STITLE
STKTOP= 002000
032054
STLIN
STL IN
03205¢
032076
STLINZ
STLIN3
032124
STPNTR
017670
SMPN
SMRTN
SMSPN

STRTN
STRTRT
STSEV
STYHR
STYON
STYONT
STYTHR
SUCCS
SUCIA
SUC INP
SUCINT
SUC INY
SUMEV
SUMHDR

SUMPNT
SUMRY
SUMSV
SYNRR

SYNRTM
SYNRTN
SYNTAX
SYNTCN
SYNTIN
SYNTRA

SYNTRC(
SYNTRD
SYNTRS
SYNTSM
SYNTX

1962

005514

005676

SEQ 0137

19654

33354

1141

1440+

2377»

386

420

485

563

1734

1737

1741»

17462

1745+

1800
1004
942+

1803

1807#

1143+

1805+

2152+

23704

959+

1144

1967+

2153«

23684

1931

1933

1957«

1961+

482

23694

592
733

736

606

6354

776

789«

804

8224

25624
2563

013076
005674
017666
012446
012462
012524
012510
010644
010612
010534
010460
010474
017662
014164
017672
013764
017664
006732
004100
004530
030704
005214

005462
004636
005060
004756
005120

H 1

30A(1052)
20-0(T-78 09:48 PAGE 50-7
(ROSS REFERENCE TABLE == USER SYMBOLS

8554
958

984

8694
10034

595

738

740

1747

23724

7554

1754+

1756

1764«

1799+

18020+

CZPLABO PCL11 EXERCISER V0?2

PCLEXR.PT

SYNXR

12-SEP=-78 15:13

006316

TABLAD= 000024

T(BFPT
T(BIN
TCR

030270
030272

016076

TeEmP

017764

TEMP1
TEREV
TERHOR

017766
017652
032266

TEROS
TERTBL
TERTN
THEND
THLTFL
THUMST
THUSCN
TIAREA
TICKS
TIEND =
TlQ
TISIZE=
TMLINT
TMMR
TMMRH

013100
025150
013436
033772
017722
031561
031607
016554
017642
016624
016540
000024
031741

016110
016112

TOAREA
016640
TOEND - 017640
T0Q
016624

TORET
TOSiZE=
TRAPS
TRELIN
TRERC
TRHLIN
TRNKF
TRPOMG
TRP4LAD

TRRCN
TRRNO
TRYOCT
TSBA
1S8C
TSCRC
TSDB
TSR

TIDEV TTIINT
TTINH
TTINe
TTOUT
TTPRIO-

015640
000400
002702
032362
032416
032312
017742
031105
031140

032377
032362
034350
016106
016104
016114
016102
016100

177560
015642
014764
014712
015572
000004

1028
11004

3150#
24584
24654
388+
1981
1981+«

2040+
1985«

525

1826

527

925

1822

INn
20-0(T7-78 09:48 PAGE 50-8
(ROSS REFERENCE TABLE == USER SYMBOLS

MACY11

30A(1052)

1033

1038

1041

1049

1054

1057

1065

1070

1073

1081

1086

1089

910+

1343«

1359+

1360«

1382«

1444

1453

16462

1487+

1513«

1528+

1999+

2000+

2001+

2002+

2003«

2019«

2020+

2021»

2038+

2039+

1189+

1998+
1831«

2001
2154+

2023+
2364n

2034+

2035«

2036+

2037«

2040

24064

1192
1841

2002
1859

24584

2216

2228+

2384n

1794

2358~

3165
867+
2283
1982+

2041
1996+
943
25694
18194
1180
1828

1983«

2042+
1997+

24054

1862#

1769
1772

3195#
2117+
25524
2553

913«

989+

1701
»

1702

1704+

492

2054

2231

23504

614+
607+
22894

22884
620

626+

498

1729
2248
2221»

1261«

1267+

1346+«

33484
22874
22864

1384
1469+

1387
1472

3183
2107+

23504
2350
433

3064

1781

398+

400~
1770

2350#
2350#
433«
2204
2215
3074
465
1853

1850

1827
471
L84
481
1847

1844

3336

396«

394«
402+
392«
390~

1460+

2954

437

2058

£94
500

2974

SEQ 0138

2350
2557a

2219
2218
2350

631+

639+

658

661+

678

682+

1393

1526+

1767

1820

1874
2261

2262

1927

2092+
23504

2093«

2157

2158

2159

2160

2180

2260

1271«

1470

23964

1390

1396
14691

1410

1418

1420

1436

1442

1446

1450

L4794

2571a
2574n
25704
2542n
25434
2573
25724
3338
1347+

22904
22854
2301
22274
2060
2052#
2213
443

2302

20624

1476

2303

2304

1495+

2284m

(ZPLABO PCL11 EXERCISER V02

PCLEXR.P11

TTRBUF
TTR(CSR

12-SEP~-78 15:13

016140
016136

2230

(67

J N

20-0(T=78 09:48 PAGE 50-9
MACY1T 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS
23024
YAV

2304

442

2305+

1396

1446

1093

23244

940

1226+

1284+

13420

1399+

915

1337#

1360

1773

438

2298~

1366
1472
16469
1094+

1368
1476

1691

1495

TTVCTR= 000060

20704
2305

TIXBUF
TTXCSR

2304m
2303

TTREYT

01503

TTVECT

016146

016144
016142

TX8SY = 000020
TXDEV
016166

TXDLEN
007566
TXER
= 100000
TXMEV
017674
TXMIT
T XML
TXMST
TXMSV

007402
017744
007400
017676

TXRTN

007542

TXMVEC
016132
TXOUT
007544
TXPR10= 000005

TXSOR =
TXSUC TXVEC
TXVECTX
xMT1B8
XMTINT
XMTIS
XMTPNM
XMTIPRB

1486+

1512«

8344

8404
12124
20364

2373«

23254

1161+

23784

6494
956
18734
21064
33294
19984

694N
10234

- 000031

=
=
=
=
-

000000
000000
002000
000000
000000
000000
002550

034476

27214

19764

7234
11104
19974

19984

7944
1157»
20004

2171

11774
20144
21904

3353w

7664

11374

21254

2134n

21474

20364

20374

2035#

33294

382

383

1400
1586

8814
13354
20394
2259

22134

9054
15454

20524
29614

27214
27214
3764
1448
1669
24614

1474
1676

2833

1493
1685

2331

016154
- 000000

238

1461

)
— —
WA B

Ix2
8LK
$8LKS
$SGN
$SGNS
$SUP
$TR

2397#

1454

O N

JERO
2x1

007650
017706
006536

13394

1460

W
N
== TM

XMTSR
XSPCEV
XSPEC

000040
000200
016170
000170
000040
007700
007600
007634
007664
007714

1090+
13674
1384

SEQ 0139

1424
1607

24140

1428
1612

2428

1632
1614

2433

(ZPLABO PCL1Y EXERCISER V02

12-SEP-78 15:°3

PCLEXR.P1T

BOINIT
BRE AK
CALL

29N
30204
1294
512

28074
260#
2484
2004

LXSCAN

KE YWD

MULP
MULT
PROC

“on

2174
1514

85#

956

1976

REGRES
RE GSAV
RE TURN

2961

2804

2232

274N
1104
1120

1343

1453

1462

1487

1513

1548

1631

1680

1690

L4646

675
537
1119
1412
1607
1806

484
622
1138

494

497

2176

647
524
1113
1240
1586
1777
1956

L7464
530

2160

446
521
997
1239
1517
1775
1904

652

164764
1769
1889

L45
518
996
1238
1493
1772
1891

2177

1586
1400

1595
1612

1599

16416

1607

1624

656
3099

676

701

3108

1998

2000

515

995

2159
2833

3366

1279
578
565
982

1672
1997
649
1023

542

3079
1227

2014
2981
3207
536
633
1146

SPAN
STCVT
SYNCLS

2085
2996
3008#
26514
30414

2095
3116
3303
2709
3304

. ABS.

034476

000

ERRORS DETECTED:

SEQ 0140

910

3313

1232

(BTAS
ERROR
ERRQT
HED ING

20-0CT-78 09:48 PAGE 51
MACY11 30A(1052)
(ROSS REFERENCE TABLE == MACRO NAMES

2052

1213

663

1162

669
1110
2078

694
1137
209

527
1115
1348
1595
1797
1960
2180

1116
1400
1599

1798
1768

2204

2261

1612
1428

1614

1432

1618

1634

1622
1438

1448

1669

1676
1452

1685
1474

2036

2037

2039

3329
834

3353

862

881

723
1157
2106

766
1177

794
1212

2727

PCLEXR,PCLEXR/CR/NL:TTM:ME<PCLEXR
RUN-TIME: 11 15 1 SECONDS
RUN-TIME RAT]O: 137/28 4.8
(19 PAGES)
10k
CORE USED:

1493

1517

905
1819

1873

2262

2157

917
1926

1728
2190

2213

2244

2259

1529

1563

1588

1629

1643

1681

1692

854
1807

868

890
1913
2869

947
1969

961
2008

1001

3155

2721

2135

1160
1448
1685
1881

2229

2715

885

1159
1438
1676

1158
1434
1669
1853
2126

509
886

2147

1573
753
1286

2181

506

2134

1557
1228

629

2125

1381

2163

1545

503

2116

1514

1194

1622
1839

2084
2260

1488

2118

1432

2069
2248

1463

2108

1827

625

1145

2066
2231

1455

711

1614

624

1140
1428
1618
1838

2054
2219

1601

684

16416
1612
1826

623
1139
1624

500

1361

2205

1553

2221

1258

2263

1339

1862

2783

2906

2939

2047
2952

1101

2070
2975