Digital PDFs

AH-T257A-MC

May 1983

70 pages

Original

3.2MB

view download

OCR Version

2.7MB

view download

Document:	CZDAVA0 DAV11-A,DAV11-B DAV11 INTER EXER MAY 1983 bw
Order Number:	AH-T257A-MC
Revision:	000
Pages:	70
Original Filename:	CZDAVA0__DAV11-A,DAV11-B__DAV11_INTER_EXER__AH-T257A-MC__MAY_1983_bw.pdf

OCR Text

DAV11

INTER

CZDAVAOD

EXER

AH=T25/A-MC

FICHE

waoe 1N usa

CZDAVAQ DAV11

CZDAVA.F11

MACRO M1200 06-DEC-82 12:16
06~DEC~82 12:20
USER DOCUMENTATION

INTERPROC EXER

B 1
PAGE 10

SEQ 0001

.REM §

IDENTIFICATION

PRODUCT CODE:

AC~T256A=M(

PRODUCT NAME:

CZDAVAO DAV11

PRODUCT DATE:

NOVEMBER 1982

MAINTAINER:

CSS WEST DIAGNOSTIC ENGINEERING

AUTHOR:

JOHN M.

COSTA MESA,

INTERPROC EXER

CALIFORNIA

MARTIN

COPYRIGHT (C) 1982,1983
DIGITAL EQUIPMENT CORP, MAYNARD, MASSACHUSETTS 01754
THIS SOFTWARE IS
FURNISHED UNDER A LICENSE FOR USE ONLY ON
A SINGLE
COMPUTER
SYSTEM
AND MAY BE COPIED ONLY WITH THE

INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR
ANY OTHER COPIES
THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE TO ANY
OTHER
PERSON EXCEPT FOR USE ON SUCH
SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS.
TITLE
}S Sgg OWNERSHIP OF THE SOFTWARE
SHALL AT ALL TIMES REMAIN

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

EQUIPMENT CORPORATION.

DEC
ASSUMES NO RESPONCIBILITY FOR THE USE OR
RELIABILITY OF
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

)

MACRO M1200
O06-DEC-82 12:16
INTERPROC EXER
06-DEC-82 12:20
USER DOCUMENTATION

W—=O

RECUIREMENTS

LOADINC PROCEDURE

STARTING PROCEDURE

SOFTWARE SWITCH REGISTER
OPTIONS
CONTROL

ERRORS
ERROR COMMENT
ERROR DATA
ERROR RECOVERY

=2 O

MISCELLANEOUS
DEVICE BUS AND VECTOR ADDRESS
MODIFICATION

EXECUTION TIME

N=O

PROGRAM DESCRIPTION
GENERAL

.«

ABSTRACT

NNN

CONTENTS

PAGE 11

OO0

TABLE

CZDAVAOD DAV11
CZDAVA.PI

10.0

EQUIPMENT
CONF IGURATION
STORAGE

PROGRAM SEGMENTS

MODIFICATION HISTORY

SEQ 0002

CZDAVAO DAV11
CZDAVA.F1T

INTERPROC EXER
MACRO M1200 O06-DEC-82 12:16
06-DEC~82 12:20
USER DOCUMENTATION

1.0

PAGt

D_1
i2

SEQ 0003

ABSTRACT

THE FUNCTION OF THE DAV11 INTERPROCES>OR
EXERCISER IS TO VERIFY
THE OPTION OPERATES ACCORDING TO SPECIFICATIONS.
THE DIAGNOSTIC

WILL ALSO VERIFY THAT THE DAV11 OPERATES IN ITS ENVIRONMENT SUCH
AS THE

SYSTEM IN WHICH IT

INSTALLED.

THE DAV11 OPTION
PROVIDES A LINK
BETWEEN TWO
Q-BUS PROCESSORS
(DAV11=-A) OR BETWEEN ONE Q-BUS AND ONE PDP-11 (UNIBUS) PROCESSOR
(DAV11-B), USING THE
FOLLOWING
PROCESSOR/DAV11 CONFIGURATIONS:
Q-BUS PROCESSOR======== (DAV11=A) ===mea- =UNIBUS PROCESSOR
Q-BUS PROCESSOR=======- (DAV11+=B) s===eca= Q-BUS PROCESSOR
CZDAV WILL

TEST ALL

COMPONENTS OF

THE

DAV11

OPTION,

INCLUDING

BOTH DR118/DRV11B AND M7230/M5927 MODULES,
AND THE INTERCONNECT
CABLES (BCOBR-25).
THE DIAGNOSTIC
WILL RUN IN BOTH PROCESSORS
CONCURRENTLY.

CZDAVAO DAV11

CZDAVA.F1I1

INTERPROC EXE R
MACRO M1200 O06-DEC-62 12:16
06-DEC-82 1 2:20
USER DOCUMENTATION

2.0

REQUIREMENTS

2.1

EQUIPMENT

2.1.1

DAV11-A

E_1
PAGE 13

ANY PDP=11 FAMILY CPU (WITH MINIMUM 16K MEMORY W/CONSOLE DEVICE)
PDP-11/03 OR ANY LSI-11 CPU
(WITH MINIMUM 16K MEMORY W/CONSOLE)
DR11-B
M7230
DRV11-8
BCO8R
BCOBR=-25

2.1.2

(2)
(3)

UNIBUS DMA INTERFACE
DUAL DIFFERENTIAL MODULE
(M7950) DMA INTERFACE
DRV=11 INTERCONNECT CABLE
INTERPROCESSOR INTERCONNECT CABLE

DAV11-B

TWO PDP-11/03 OR ANY LSI-11

DRV11-B
M5927
BCO8R
BCO8R~25

2.2

(2)
(2)
(4)
(3)

CPUS (WITH MINIMUM 16K MEMORY W/CONSOLE)

(M7950) DMA INTERFACE
QUAD DIFFERENTIAL MODULE
DRV=11 INTERCONNECT CABLE
INTERPROCESSOR INTERCONNECT CABLE

CONF IGURATION

THIS DIAGNOSTIC WILL SUPPORT BOTH THE DAV11-A AND DAV11-B OPTIONS

ON ANY PDP=11
FULLY

2.2.7

FAMILY AND LSI=11

TESTED ON THE

CAV11-A
PDP-11/03
LSI=11/23
PDP=11/03
LSI=11/23

2.2.2

FAMILY PROCESSORS AND HAS BEEN

FOLLOWING PROCESSOR CONFIGURATIONS:

(======e==-- >
(=e=meeenee- >
<======c=ea= >
K====cccceeae >

PDP=-11/34
PDP-11,34
PDP-11/70
PDP=11/70

DAV11-B
PDP=11/03 (===secceee= > LSI1-11/23
LSI=11/23 K==ocecaceee > LSI-11/23

2.3
THE

STORAGE
PROGRAM USES

THE

LOWER 4K WORDS OF

SVSTEM MEMORY.

SEQ 0004

CZDAVAQ DAV11
CZDAVA.F11

MACRO M1200 06-DEC-82 12:16
INTERPRGC EXE R
06-DEC~82 12:20
USER DOCUMENTATION

3.0

LOADING PROCEDURE

3.1

ME THOD

THIS

DIAGNOSTIC

PAGE 14

THE
I S DISTRIBUTED ON BOOTABLE XXDP+ MEDIA.
F )| RST
BOOT
THE DIAGNOSTIC SUPERVISOR FROM
THE DISTRIBUTION K 1 T . AND RUN THE DIAGNOSTIC
USING THE XXDP+
DAV11 OPTION DESCRIPTION
COMMANDS.
REFER T 0 THE APPROPRIATE
FOR DIAGNOSTIC HIE R A ggHY AND INTSTALLATION INSTRUCTIONS PRIOR
TO USING THIS DIAG 0

OPERATOR

4.0

SHOULD

STARTING PROCEDURE

BEFORE STARTING THE DIAGNOSTIC, COMPARE THE
DEVICE REGISTER
BASE ADDRESS AND INTERRUPT
VECTOR
ADDRESS WITH THE
VALUES
IN LOCATIONS
DAVADR AND DRVECT, AS
LISTED BELOW.
IF THESE
VALUES ARE INCORRECT, LOAD THE DIAGNOSTIC, HALT THE
PROCES~
SOR, AND MODIFY THE LOCATIONS TO CONTAIN THE CORRECT VALUES,
USING THE APPROPRIATE TECHNIQUE FOR YOUR CPU.
ADDRESS

LOCATION

VALUE

001380~ DRVADR=""""""""" 1725470
001362

DRVECT:

000124

LOAD AND START THE DIAGNOSTIC IN THE SLAVE PROCESSOR FIRST,
USING THE START ADDRESS TABLE LISTED BELOW.
PROCESSOR

START

MASTERTM TM~~~ ~——"TTTTTT77 000200
SLAVE

000204

THE PROGRAM WILL IDENTIFY ITSELF AND, IF THE PROCESSOR DOES
NOT HAVE A SWITCH REGISTER, THE DIAGNOSTIC WILL
PROMPT THE

OPERATOR FOR AN INITIAL SOFTWARE SWITCH REGISTER VALUE.

.RUN ZDAVAQ
CZDAVAO DAV11-A/B INTERPROCESSOR EXCERISER
SWR = 000000

NEW =

THE PROGRAM WILL AUTOMATICALLY

200), SO HALT THE

START AS

MASTER

PROCESSOK AND LOAD SLAVE

(LOCATION 204), AND RESTART THE CPU USING

METHOD.
SLAVE CPU
WILL
PROGRAM SYNCHRONIZATION.
NEXT, LOAD AND START
AS DESCRIBED ABOVE.

THEN WAIT FOR

THE DJAGNOSTIC

START

THE

(LOCATION

ADDRESS

APPROPRIATE

MASTER TO

[INITIATE

IN THE MASTER PROCESSOR

SEQ 0005

CZDAVAO DAV11
CZDAVA.PI1

INTERPROC EXER
MACRO M1200 O06-DEC-~82 12:16
06-DEC~-82 12:20
USER DOCUMENTATION

5.0

SOF TWARE SWITCH REGISTER

5.1

CONTROL SWITCH SETTINGS
SWITCH

OCTAL

6 1
PAGE 15

SEQ 0006

FUNCTION

BITTS=T""""" 100000~ """ RACT ORTERRORTMTM~"~"""~"=="~
BIT13=1
020000
INIHIBIT ERROR TYPEOUTS
BIT10=1

5.2
IF

002000

BELL O ERROR

CONTROL
THE DIAGNOSTIC

IS RUN ON A MACHINE WITHOUT A SWITCH REGISTER,

THEN A SOFTWARE
SWITCH
REGISTER IS USED, WHICH ALLOWS THE USER
THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.
IF THE
HARDWARE SWIVCH
REGISTER
DOES NOT EXIST, OR [F ONE DOES AND IT

EgNagégS ALL ONES, THE SOFTWARE
(1)

SWITCH

THE SOFTWARE SWITCH REGISTER
‘'SWREG''
CHANGED BY USING THE ODT FACILITIES.

CAN BE

(2) THE
SOFTWARE SWITCH REGISTER CAN BE
CHANGED UNDER PROGRAM
CONTROI. BY TYPING THE °'‘CONTROL'' AND '°G'' KEYS.
THIS KEYBOARD

OPERATION WILL PRINT OUT THE CURRENT CONTENTS AND ACCEPT NEW
gfigaL SWITCH REGISTER DATA, TERMINATED
WITH A
CARRIAGE RE-

(3) ONCE THE ODT MODE HAS BEEN ENTERED DUE TO AN ERROR CONDITION
WITH BIT15 SET (HALT ON ERROR), STEP (2) ABOVE IS OF NO VAL~
UE, SO RESORT TO STEP (1), TO ALTER THE SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING ‘P’ (CONTINUE).

CZDAVAO DAV11
CZDAVA. P11

MACRO M1200 06-DEC~-82 12:16
12:20
USER DOCUMENTATION

INTERPROC EX% R

06-DEC-82
6.0

ERRORS

6.1

ERROR COMMENT

ALL ERRORS

ARE

ACCOMPANIED BY A
FURTHER

PAGE 16

SEQ 0007

DESCRIPTIVE COMMENT AS TO THE

TYPE OF

FAILURE.

6.2

ERROR DATA

ERRPC
BUSADR
EXPCT

LISTING ADDRESS WHERE THE ERROF WAS DETECTED.
DAV11 BUS REGISTER ADDRESS OF CONCERNED OPERATION.
DATA VALUE THAT WAS EXPECTED.

??g?l?;gE{$0M THE PROGRAM

QUALIFICATION

COMMENT

THE

AT THE ERROR PC

RCVD
MEMADR

DATA VALUE THAT WAS RECEIVED.
MEMORY ADDRESS OF DATA ERROR.

6.3

ERRCR RECOVERY

EKROR CAN

BECAUSE OF THE SYNCHRONIZATION ESTABLISHED WITH THE OTHER
COMPUTER, ALL ERROR CONDITIONS FORCE AN AUTOMATIC LOOP ON
TEST

UNTIL

THE

ERROR

IS ELIMINATED.

SOFTWARE

SWITCH REG-

ISTER CONTROL SHOULD NOT AFFECT THE ESTABLISHED SYNC.

OR FROM THE

(ZDAVAO DAV11
CZDAVA.FIN

MACRO M1200 O06-DEC-82 12:16
12:20
USER DOCUMENTATION

INTERPROC EX% R

06~DEC-82

7.0

PROCESSOR SYNCHRONIZATION

7.1

PROGRAM INITIALIZATION PROTOCOL

I_1
PAGE 17

WHEN THE PROGRAM IS STARTED IN THE SLAVE
PROCESSOR,
THE
SLAVE WILL FIRST TEST THE MASTER STATUS REGISTER VALUE TO
DETERMINE IF THE
MASTER IS
WAITING.
IF NOT, THE
SLAVE
WILL REMAIN IN AN INFINITE LOOP UNTIL A CHANGE IN
MASTER
STATUS HAS BEEN OBSERVED, AT
WHICH
TIME THE FIRST
TEST
WILL BEGIN.
IF THE MASTER HAS BEEN STARTED FIRST,
THERE
WILL BE NO RESPONSc
FROM THE
SLAVE AND THE MASTER
WILL
LiTE-Eggfi PRINIING THE FOLLOWING MESSAGE, AND REENTER THE

STATUS: MASTER
MASTER CANNOT START COMMUNICATION WITH SLAVE-WAITING FOR DSTATC
ERRPC

STATUS

00216€¢

002200

7.2

PROGRAM SYNCHRONIZATION

ALL COMMUNICATION BETWEEN MASTER AND SLAVE IS INTERLOCKED
THROUGH DRVCSR STATUS BITS.
DURING EACH TEST, THE MASTER

CPU WILL

INITIATE THE

INTERLOCK AND WAIT FOR THE SLAVE 10

RESPOND.
CONVERSELY, THE SLAVE WILL
FIRST WAIT FOR
THE
MASTER TO SET/RESET THE
STATUS BITS, BEFORE
RESPONDING.

SYNCHRONIZATION IS LOST

gfgvgsv

TIME-OQUT,

DURING ANY

INTERLOCK, EITHFR

AND THE RESULTING MESSAGE WILL BE

DIS-

STUCK WAITING FOR COMPANION INTERLOCK
ERRPC

STATUS

XXXXXX

WHERE:

ERRPC
LOCATION IN TEST FOLLOWING CALL TO WAIT
STATUS = CURRENT VALUE OF DRVCSR REGISTER

AT THIS POINT THE CPU WILL ATTEMPT TO RESYNCHRONIZE WITH
THE OTHER, AND WILL DISPLAY THE FOLLOWING MESSAGE BEFORE
RETURNING TO THE INITIALIZATION PROTOCOL SECTION.
*RESYNC...

SEQ 0008

CZDAVAO DAV11

CZDAVA.F11

MACRO M1200 06-DEC-82 12:16
USER DOCUMENTATION
06-DEC-82 12:20

INTERPROC EXER

8.0

1
J
PAGE 18

EXECUTION TIME

EXECUTION TIME IS ABOUT
1 MINUTE,
~ND MAY BE
FASTER FOR SOME
PDP=-11
PROCESSORS.
NOTE THAT THE ‘''END OF PASS'' MESSAGE IS ONLY
R§$23¥E808; THE COMPUTER WHICH WAS STARTED AS THE
{

INITIAL MASTER

9.0

PROGRAM DESCRIPTION

9.1

GENERAL

THIS INTERPROCESSOR EXERCISER WAS DESIGNED TO TEST THE 1/0
ABILITY OF THE DAV11 INTERFACE TO COMMUNICATE BETWEEN TWO

COMPUTERS.
THE TWO COMPUTERS ARE STARTED AT DIFFERENT
ADDRESSES TO ESTABLISH INITIAL SYNCHRONIZATION.
THE SLAVE

COUMPUTER IS STARTED FIRST (START 204), AND THE MASTER COM-

PUTER IS STARTED SECOND (START 200).
THE TERMS ‘'MASTER''
AND °'SLAVE'' SHOULD BE USED LOOSELY AS THE MASTER WILL BECOME THE SLAVE AND THE SLAVE WILL BECOME [HE MASTER AS THE
PROGRAM ADVANCES.
THE COMPUTER STARTED AT ADDRESS 200 WILL
ALWAYS REPOKT THE "END OF PASS'' MESSAGE.

SEQ 0009

CZDAVAN DAV11
CZDAVA.FI1

MACRO M1200 06-DEC-82 12:16
INTERPROC CXE R
06-DEC-82 1 2:20
USER DOCUMENTATION
9.2
(1

K
1
PAGE 19

PROGRAM SEGMENTS

MTST1 ~ MASTER SENDS OUT PROGRAM CONTROLLED SINGLE WORDS
THROUGH THE DATA BUFFER REGISTER wND EXPECTS THE

SLAVE

ggcgg¥gREACH WORD BACK TO THE MASTER VIA THE DATA BUFFER

(2) MTST2 - MASTER SENDS QUT A ''FNCT'* BIT CODE IN THE COMMAND
STATUS REGISTER AND EXPECTS THE SLAVE

IN ITS "FNCT'" BITS.,

TO ECHO EACH CODE

THE MASTER WILL READ THE ‘'STAT"' BIT

CODE FROM THE COMMAND/STATUS REGISTER AND COMPARE
THE

CODE WRITTEN.

IT TO

(3) MTST3 - MASTER SENDS OUT A 32-WORD DATA BLOCK TO THE SLAVE
AND CHECKS FOR PROPER INTERRUPT STATUS, WORD COUNT AND
BUFFER ADDRESS AT THE COMPLETIOM OF THE TRANSFER.
(4)

MTST4 - MASTER SENDS A DATA BLOCK TO THF SLAVE.
THE SLAVE
IS SET FOR A LARGER BLOCK AND DOES NOT COMPLETE.
THE
MASTER SETS ATTENTION INTERRUPT.
THE SLAVE CHECKS THAT IT
GOT THE ATTENTION INTERRUPT.

{5)

STCT1

(6)

(7)

- SLAVE ECHOS ALL CHANGES IN THE DATA BUFFER REGISTER.

STSTY - SLAVE READS THE ''STAT'' BIT CODE FROM ITS COMMAND/

STATUS REGISTER, CONVERTS THIS CODE AND WRITES ITY
"FNCT'* BITS IN THE COMMAND/STATUS REGISTER.

INTO ITS

STST3 ~ SLAVE RECEIVES A 32-WORD DATA BLOCK FROM THE MASTER

AND CHECKS FOR PROPER INTERRUPT
ADDRESS AND DATA CONTENT.

STATUS,

WORD COUNT BUFFER

(8) STST4 - SLAVE HAS LARGER WORD COUNT THAN MASTER SENDS.
EXPECTS AN ATTENTION INTERRUPT FROM MASTER.

SEQ 0010

CZDAVAD DAV11
CZDAVA.F11

MACRO M1200 O06-DEC-82 12:16
INTERPROC E XER
USER DOCUMENTATION
06-DEC-8 2 12:20

10.0

MAINTENANCE HISTORY
REVISION

424

1
L
PAGE 20

REASON

YW=Z0171-A.0
YW-20171-8.0

J. MARTIN
J. MARTIN

INITIAL VERSION
DR11-B REV T COMPATABILITY

CZDAV=-A.0

P. HOLSINGER

FIRST RELEASE OF DIAGNOSTIC

.LIST SEQ,BIN,LOC

SEQ 0011

426
627
428
429
430
3
432

M1
MACRO M1200 O06-DEC-82 12:16 PAGE 21
06-DEC~82 12:20
OPERATIONAL SWITCH SETTINGS

INTERPROC EXER

.SBTTL

SEQ@ 0012

OPERATIONAL SWITCH SETTINGS

. %

000001

122000

$TN=1

$SWR=122000
s %

633
634

SWITCH

......

124

HALT ON ERROR

BELL ON ERROR

435

436
437

.SBTTL

001100
104000

000004

000011
000012
000015
000200
177776
177776
177774
177772
177570

177570

000000
0090001
000002
000003
000004
000095
000006
000007
000006
000007

000000
000040

000100
000140

000200
000240
0003C0
000340
100000

040000
020000
010000

INHIBIT ERROR TYPEOUTS

BASIC DEFINITIONS

s*INITIAL ADDRESS OF THE STACK POINTER *x+ 1100 e«
STACK=
1100

ERROR=
SCOPE=

EMT
]OT

J*MISCELLANECUS DEFINITIONS
HT=
1"
;:CODE FOR HORIZONTAL

‘F=

CR=
CRLF=

gg;

;:CODE FOR LINE FEED

15
200

;;CODE FOR CARRIAGE RETURN

;27?76

STKLMT= 177774

PIRQ=
DSWR=

DDISP=

TAB

177772
177570

177570

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

J;STACK LIMIT REGISTER
; ;PROGRAM INTERRUPT REQUEST REGISTER

; ;HARDWARE SWITCH REGISTER

; :HARDWARE DISPLAY REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS

RO=
R1=

%0
%1

;:GENERAL REGISTER
: :GENERAL REGISTER

::GENERAL REGISTER

R2=

) ¥4

R&4=

R3=
RS=
R6=
R7=
SP=
PC=

J*PRIORITY

0
40

PR3=

140

PR4=
PRS=
PR6=
PR7=

s sGENERAL REGISTER

%5
%6
%7
R6
R7

PRO=
PR1=

PR?2=

;s GENERAL REGISTER

::GENERAL REGISTER
;sGENERAL REGISTER
:;GENERAL REGISTER

LEVEL

100

00
240
300
340

DEFINITIONS

;;PRIORITY LEVEL O
:sPRIORITY LEVEL 1

;;PRIORITY LEVEL 2
::PRIORITY LEVEL 3
::PRIORITY
::PRIORITY
::PRIORITY
;:PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL

4
5
6
7

s+ 'SWITCH REGISTER'' SWITCH DEFINITIONS

SW15=
SWlé=

sw13=
Swi2=

100000

40000

20000
10000
pm—

CZDAVAD DAV11
CZDAVA.F11

— OO

—n)

CZDAVAO DAV11
CZDAVA.F11

INTERPROC EX% R
MACRO M1200 06- DEC12:16
06-DE(~82
2:20
BASIC DE FINITIO NS
004000
002000
001000
000400
600200
000100
000049
000020
000010
000004
000002
000001

SW9=
SW8=
SW7=
Swe=
SWS=
Swa=
SW3=
SW2=
SWwi=
SWd=

100000

BIT15=

100000

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

BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BITO8=
BITO7=
BITO6=
BIT0S=
BITO4=
BITO3=
BITO2=
BITO1=
BITO0=
BIT9=
BIT8=

20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
BIT09
BIT08

000100
000040
000020
000010
000004
000002
000001

BIT6=
BITS=
BIT4=
BIT3=
BIT2=
BIT1=
BITO=

BITO06
BITOS
BITOL
BITO03
BIT02
BITOI
BITOO

000004
000010
000014
000014
00014

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRIVEC= 14
BPTVEC= 14

000200

SEQ 0013

4000
2000
1000
400
200
100
40
20
10
4
2
1
SW09
SW08
SW07
SW06
SW05
SW04
SWO03
SW02
SW01
SW00

001000
000400
000200
000100
000040
000020 *
000010
600004
000002
000001

0406000

swil=
SWw10=
SW09=
Sw08=
sw07=
sW06=
SW0S5=
SW0&=
sW03=
sW02=
sWo1=
sw00=

N 1
PAGE 21-1

;*DATA BIT DEFINITIONS (BITOO TO BIT1S5)

BIT14= 40000

BIT7=

BIT07

;*BASIC "'CPU'* TRAP VECTOR ADDRESSES

\
;

;:TIME OUT AND OTHER ERRORS
:'RESERVED AND ILLEGAL INSTRUCTIONS
LieTiRIT
*'TRACE TRAP
*'BREAKPOINT TRAP (BPT)

CZDAVAO DAV11
CZDAVA.F11

INTERPROC EXER
MACRO M1200 O06-DEC-82 12:16
06-DEC~82 12:20
BASIC DEFINITIONS

B 2
PAGE 21-2

SEQ 0014

438

000020
000024
000030
000034
000060
000064
000240

I0TVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVE (=34
TKVEC=
60
TPVEC= 64
PIRQVEC=240

;s INPUT/0UTPUT TRAP (IOT) «+SCOPE*+
; ;POWER FAIL
s ;EMULATOR TRAP (EMT) «+«ERROR**
::"'TRAP'' TRAP
¢:TTY KEYBOARD VECTOR
+.JTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

228

106427

MTPS=106427

;- INSTR EQUATE THAT MOVES BYTE TO PSW

000002
000004
000010
004000
002000
001000

FNCTI=
FNCT2=
FNCT3=
DSTATA=
DSTATB=
DSTATC=

2
4
10
4000
2000
1000

.SBTTL

TRAP CATCHER

441

442
443
444
445
446
22;

;REGISTER BITS

449

000000

000174
000176

450
451 000200
222 000204

000174
000000
000000
000137
000137

454
455
456 000100
457 000102
458 000104
459

;*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A ''.+2,HALT"
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:*LOCATION194C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

009100
000104
000340
000002

001460
001466

.=
DISPREG: .WORD
0
SWREG:
.WORD
0
.SBTTL
STARTING ADDRESS(ES)
JMP
I#START1
JMP
I#START2
;Q=BUS

¢+SOFTWARE DISPLAY REGISTER
¢ s SOFTWARE SWITCH REGISTER
;. JUMP TO STARTING ADDRESS OF PROGRAM
;GO START AS SLAVE COMPUTER

'B-EVENT' INTERRUPT HANDLER
.=100
.WORD
104
;VECTOR TO LOC 104
.WORD
340
;AT PRIORITY 7
.WORD
2
:RT1

CZDAVAQ DAV11
CZDAVA.P1

c_2

INTERPROC EXER

MACRO M1200 06-DEC-82 12:14
06-DEC~82 12:20
COMMOM TAGS

460

.SBTTL
MR

PAGE 22

SEQ 0015

COMMON TAGS

RSN

;*THIS TABLE

ARl

idlllE

1222222222222]

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

s*USED IN THE PROGRAM,

001116

001120

001122
001124

001126
001130
001132
001134
001135

001136
001140

001142
001144

001146
001150
001152
001154
001155
001156
001157
001160
001163
001164
001165
001166

001100

$CMTAG:
$PASS:
$TSTNM:
$SERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$SITEMB:
SERMAX:
$ERRPC(:
$GDADR:

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000C00
000000
000000
000000
000000
000
000
000000
177570

$BDADR:
$GDDAT:
$8DDAT:

+WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
«WORD
.BYTE
-WORD
.WORD
-WORD

.WORD
-WORD
.WORD
«WORD
$AUTOB: .BYTE
$INTAG: .BYTE
+WORD
SWR:
.WORD
DISPLAY: . WORD
177560
$TKS:
$TK8:
177562
$TPS:
177564
177566
$TPB:
$NULL:
.BYTE
SFILLS: .BYTE
$FILLC:

177570
177560

177562
177564
177566
n00
002
012
000
207
000
077
015
012

.=1100

377

000

377

STPFLG:
$BELL:

.ASCIZ

$QUES::
$CRLF:
$LF:

.ASCII
LASCII
.ASCIZ

;:START OF COMMON TAGS

j=drd=l=lelololalelalalw eleolelelelelel)

001100
001100
001102
001103
001104
001106
001110
001112
001114
001115

:sCONTAINS PASS COUNT
2 ;CONTAINS THE TEST NUMBER
::CONTAINS ERROR FLAG
s CONTAINS SUBTEST ITERATION COUNT
: sCONTAINS SCOPE LOOP ADDRESS
s s CONTAINS SCOPE RETURN FOR ERRORS
:;CONTAINS TOTAL ERRORS DETECTFD
;s CONTAINS ITEM CONTROL BYTE
2 CONTAINS MAX. ERRORS PER TEST
; sCONTAINS PC OF LAST ERROR INSTRUCTION
J:CONTAINS ADDRESS OF °GOOD' DATA
: :CONTAINS ADDRESS OF 'BAD* DATA
;JCONTAINS 'GOOD* DATA
2 s CONTAINS 'BAD' DATA
s ;RESERVED==NCT TO BE USED
s cAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

SWR
DISP

0
2

s :ADDRESS OF SWITCH REGISTER

;;ADDRESS OF DISPLAY REGISTER

J2TTY
;:TTY
ssTTY
;:TTY

KBD STATUS
KBD BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

ADDRESS
ADDRESS

2 sCONTAINS NULL CHARACTER FOR FILLS
+;CONTAINS # OF FILLER CHARACTERS REQUIRED
2 INSERT FILL CHARS. AFTER A ‘‘LINE FEED'

:o"'TERMINAL AVAILABLE'' FLAG (BiT<07>=0=YES)

2.CODE FOR BELL

s ;QUESTION MARK
s . CARRIAGE RETURN
s.LINE FEED

Al 222222232222222220
332

CZDAVAO DAV11
CZDAVA.P11

INTERPROC EXER
MACRO M1200 O06-DEC-82 12:16
06-DEC-82 12:20
ERROR POINTER TABLE
.SBTTL

0.2

PAGE 23

SEQ 0016

ERROR POINTER TABLE

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION $I17EMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
:*NOTE1:
IF $ITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
i

i
o

461

001170

$ERRTB:

462 001170
463 001172
464 001174
465 001176
466
467
468 001200
469 001202
470 001204
471 001276

010234
011443
011554
000000

474
475
476
477
478

001210
001212
001214
001216

010421
011443
011554
000000

480
481
482
232

001220
001222
V01224
001226

010473
011443
011554
000000

472
473

479

485
486 001230
487 001232

010327
011443
011554
000000

488 001234
489 001236

010541
011443
011554
000000

492 001240
493 001242

010613
011443

001250
001252
500 001254

010666
011443
011554

490
9N

494
495
496
497
498
499

001244
001246

501 001256

;ERROR

EMI
DH1
T
0

;sPOINTS TO THE ERROR MESSAGE

s :POINTS TO THE DATA HEADER
::POINTS TO THE DATA
;:POINTS TO THE DATA FORMAT

sSLAVE DRV118B FAILED TO ECHO DBR CONTENTS
sERRPC
BUSADR
EXPCT
RCVD
;SERRPC $BDADR
$GDDAT
$BDDAT

JERROR

2
EM2
DH1
DT1
0

sSLAVE DRV118B FAILED TO ECHO °STAT'BITS
¢ERRPC
BUSADR
EXPCT
RCVD
;$ERRPC $BDADR
$GDDAT
$BDDAT

;ERROR

3
EM3
DH1
T
0

;FAILED TO INTR ON A °'DATI'
sERRPC
BUSADR
EXPCT
RCVD
;SERRPC $BDADR
$GDDAT
$BDDAT

;ERROR

EM4
DH1
pT1
0

;ERROR

5
EMS
DH1
DT
0

;ERROR

011554
000000

000009

DH
DT

EM6
DH1
DT1
0

JERROR

EM?
DH1
2R

sSTATUS ER ON 'DATI’
sERRPC
BUSADR
EXPCT
;SERRPC $BDADR
$GDDAT

RCVD
$BDDAT

;WORD COUNT ER ON ‘'DATI®
;ERRPC
BUSADR
EXPCT
RCVD
;$ERRPC $BDADR $GDDAT
$BDDAT

;BUFFER ADRS ER ON 'DATI’
cERRPC
BUSADR
EXPCT
RCVD
;SERRPC $BDADR

$GDDAT

$BDDAT

sFAILED TO INTR ON A 'DATO’
;ERRPC
BUSADR
EXPCT
RCVD
;SERRPC $BDADR $GDDAT
$3DDAT

CZuAVAD DAV1I1
CZDA\A.P11
503
504 001260
505 001262
506 001264
507 001266
508
509
510 001270
511 001272
512 001274
2}2 001276
515

INTERPROC EXER
MACRO M1200 06-DEC-82 12:16
06-DEC-82 12:20
ERROR POINTER TABLE
010735
011443
011554
000000
011002
011443
011554
000000

516 001300
517 001302
518 001304
238 001306

011053
011443
011554
000000

521
522 001310

011125

524 001314
ggg 001316

011554
000000

523

001312

527

011170
011443
011554
000000

533
534
535
536
g%g

011223
011443
011554
000000

539
560 001340
541 001342
542 001344

222 001346

545
546 001350
547 001352
548 001354
549 001356
550

;ERROR

011500

528 001320
529 001322
530 001324
2%} 001326
001330
001332
001334
001336

:ERROR

011263
011535
011566
000000

011374
011535
011574
000000

SEQ 0017

10
EM10
DH1
DT1
0

;STATUS ER ON ‘DATO’
JERRPC
BUSADR
EXPCT
JSERRPC $BDADR
S$GDDAT

11
EM11
DH1
pT1
0

;WORD COUNT ER ON 'DATO'
JERRPC BUSADR EXP(CT
RCVD
JSERRPC $BDADR
$GDDAT
$BDDAT

EM12
DH1
DT
0
13
EM13

DHZ2

DT1
0
JERROR

E_2
PAGE 23-1

EM14
DH1
DT
0

RCVD
S$BDDAT

;BUFFER ADRS ER ON 'DATO!
JERRPC BUSADR EXPCT
RCVD
:SERRPC $BDADR $GDDAT
$BDDAT

;DATA ER ON 'DATO'

;ERRPC

MEMADR

JSERRPC $BDADR

EXP(TY

$GDDAT

RCVD

$BDDAT

:NO ATTN INTR

;ERROR

15
EM1S
DH1
DT1
0

:ERROR

16
EM16
DH3
DT2
0

JPROTOCOL INITIALIZATION ERROR -MASTER AND SLAVE
JERRPC
STATUS
JSERRPC
SERRST

;ERROR

17
EM17
DH3
DT3
0

JSTUCK WAJTING FOR COMPANION INTERLOCK
JERRPC
STATUS
JSERRPC
SERRST

;ATTN STATUS ER

INIERPROC EXER
MACRO M1200 O06-DEC-82 12:16
06-DEC-82 12:20
ERROR POINTER TABLE

F
2
PAGE 24

SEQ 0018

:DAV11 BASE REGISTER ADDRESS ASSIGNMENT
001360

172410

DRVADR:

172410

¢MODIFY THIS LOC IF DIFFERENT

DAV VECTOR ADDRESS ASSIGNMENT
001362

000124

DRVE(CT:

1264

+MODIFY THIS LOC IF DIFFERENT

DAV BUS REGISTER ADDRESS POINTERS

[0 ¥

VIV AVTAVIAALN [V,
QU VALY IV IV, TV IV ] w
- OV ~NOWVNEW no

C2ZDAVAO DAV11
CZDAVA.PIN

562 001364
563 001366
001370
001372

DRVW(R:
DRVBAR:
DRVCSR:
DRVDBR:

172410
172412
172414
172416

:WORD COUNT
;BUFFER ADDRESS
; COMMAND/STATUS
:DATA BUFFER

:DAV11 VECTOR ADDRESS POINTERS
DRVCTO: 124
DRVCT?: 126

001374
001376

;READY & NEX VECTOR

:NEW PSW ON INTR

001400
001402
001404
001406
001410
001412
001414
001416
001420
001422

001424

000000
000000
000000
000000
000000
000000
000000
000000
000000
000001
177740

001426
001430

011632
000103

001432
C01434
001436

011632
000105

001440
001442
001444

011632
000355

001446
001459
001452

601 001454
602 0CG1456
603

177740

177730

011632

STAT:
INTFLG:

TIME:
ABORT:
TEMP:

$TSTPC:
$ERRST:
SAVE:

MSTER:

ICOUNT:

XPRAM:

sSTATUS BIT(S) TO TEST
s INTERRUPT FLAG
; GENERAL PURPOSE COUNTER
.PROGRAM ABORT TIMER
: TEMPORARY STORAGE

:PC STORAGE
;CSR STATUS
;REG DATA SAVED HERE
:0=MASTER START = NON-ZERO=SLAVE START
:# OF

TIMES TO REPEAT ALL

RPRAM:

XPRAMS:

:
RPRAMS

INTR ENABLE,FNCT1,G0

sRCV WORD COUNT

sRCV BUFFER ADRS
;RCV STATUS/CONTROL:

INTR ENABLE,FNCTZ,GO

sXMIT WORD COUNT

sXMIT BUFFER ADDRESS
sXMIT STATUS/CONTROL:

INTR ENABLE,FNCT1,GO

sRCV WORD COUNT

sRCV BUFFER ADDRESS

sRCV STATUS/CONTRGL:
LS!:
ERRFLG:

TESTS BEFORE END PASS MSG

sXMIT WORD COUNT

sXMIT BUFFER ADRS

sXMIT STATUS/CONTROL:

000105

000000
000000

i elelelelolelelo
o]

: COMMON PROGRAM LOCATION(S)

sLSI FLAG

<ERROR FLAG

INTR ENABLE,FN.T2,GO

CZDAVAO DAV11
CZDAVA.F11

605
606
607 001460
608 001464
609
g}? 001466

INTERPROC EXER
MACRO M1200 O06-DEC-82 12:16
PROGRAM START
06-DEC~82 12:20

.SBTTL

005037
000403

001420

012737

77777

612 001474

012706
005026
022706

001100

619 001510

012706

001100

622 001514
623 001522
624 001530
625 001536
626
627
628
629 001544
630 001550
631 001556
632 001564
633 001572
ggs 001600

012737
012737
012737
012737

006566
000340
007622
000340

636 001602
637 001604
638 001610
639 001612
640 001620

000403
012716
000002
012737
012737

START1: (LR

MSTER

JTHIS 1S MASTER START

STARTZ2: MOV

#=1,MSTER

sSLAVE START

013746
012737

012737
012737
022777
001012

MOV
(LR
CMP
BNE

001140

000004
001604
177570
177570
177777

MOV

000030
00032
000034
000036

JSKIP NEXT

#SCMTAG,R6
J:FIRST LOCATION TO BE CLEARED
(R6)+
;s CLEAR MEMORY LOCATION
#SWR,R6 ;.DONE?
.~6
;. L00P BACK IF NO
#STACK,SP

;sSETUP THE

STACK POINTER

JoINITIALIZE A FEW VECTORS
MOV
#SERROR,INEMTVEC ;,EMT VECTOR FOR ERROR ROUTINE
MoV
#340,a#EMTVEC+2 ssLEVEL 7
MOV
#sTRAP.a'TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS
MOV
#340,3#TRAPVEC+2;LEVEL?

::SIZE FOR A HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS
J2EQUAL TO A '*=1'', SETUP FOR A SOFTWARE SWITCH REGISTER,
MOV

000004
001140
001142
177340

001612

64%:
001140
001142

001634
001642
001646
001652
001654
001660

012737
012737
005737
005037
000403
012716
000002

001654
000001
177776
001454

000004
001454

001662

70$:

651 001662
652 001666
ggz 001672

012637
012700
013701

000004
001364
001360

75%:

644
645
646
647
648
649

START

:sCLEAR THE COMMON TAGS ($CMTAG) AREA

600176
000174

642
643 001626

SEQ 0019

START:

613
614
615 00 001474
616 001500
001502

621

PROGRAM START
BR

001420

PAGE 25

65%:

A#ERRVEC ,-(SP)

;;SAVE ERROR VECTOR

MOV
MoV
MOV
CMP
BNE

#64S ,#ERRVEC
ADSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
66%

::SET UP ERROR VECTOR
JsSETUP FOR A HARDWARE SWITCH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;sTRY TO REFERENCE HARDWARE SWR
;;BRANCH IF NO TIMEOUT TRAP OCCURRED

BR
E?Y

65%
#65%, (SP)

::BRANCH IF NO TIMEOUT
J3SET UP FOR TRAP RETURN

MoV
MOV

#SWREG, SWR
;sPO0INT TO SOFTWARE SWR
#DISPREG,DISPLAY

sCHECK IF 11/03(LSI11)
66$:
MOV
#708 ,d#ERRVEC
MOV
#1,LS1

:2AND THE HARDWARF SWR IS NOT = =1

;SET UP ERROR VECTOR
sASSUME IT'S AN LSI

TST
CLR

PS
LSl

SQY

#75%,(SP)

:SET UP RETURN

(SP)+ ,a#ERRVEC

;;RESTORE ERROR VECTOR

MoV
Mov
Mov

75%

#DRVWCR,RO
DRVADR,R1

sTRY TO ACCESS PSW
+NOT AN LSI

¢SET UP REG ADRS POINTERS
;GET BASE ADRS

CZDAVAO DAV11
CZDAVA.P11T
656
657 001676
658 001700
659 001704
660 001710
661 001712
662 001716
663
664 001722
5 001724
001730

001734

INTERPROC EXER

06-DEC-82 12:20
010120
062701
022700
001372
012700
013701
010120
062701
022700
001372

MACRO M1200

PROGRAM START

SETUP2: MOV

000002
001374

ADD

CMP
BNE

001374
001362

MoV
MOV

005227
001007
104400

010142

001750
001756
001760

023727
001001

001140

001762
001766
001770

012706
000005
012737

001100

ADD

CMP
BNE

SEQ 0020

R1,(RO)+

:LOAD EM

#DRVDBR*Z RO
SETUP?
#DRVCTO,RO
DRVECT ,R1

sALL DONE?
:BR_IF NOT
sSET UP DAV11 VECTOR ADRS POINTER
sGET BASE VECTOR ADRS

#2 R1

#DRVCT2+2,R0

SETUP3

*ALL DONE?

‘8R IF NOT

;s TYPE THE NAME 0F1THE PROGRAM IF FIRST PASS
INC
¢.FIRST TIME?
BNE
67%
; :BRANCH IF NO
LTITLE
TYPE
:;TYPE PROGRAM TITLE

177777

000176

::GET VALUE FOR SOF TWARE SWITCH REGISTER

104405

000001

H 2
PAGE 26

SETUP3: MOV

000002
001400

001736
001742
001744

06-DEC-82 12:16

67%:

001422

CMP
BNE
GTSWR

67%

SWR,#SWREG

s SOFTWARE SWITCH REG SELECTED?

MOV

#STACK,SP

sALWAYS RESET STACK PTR

RESET
Mov

#1,1COUNT

s ;BRANCH IF NO
::GET SOFT=-SWR SETTINGS

;INITIALIZE DAV11 BEFORE TESTING
s1ST TIME DO ALL TEST ONCE = THEN 3000(8)

CZDAVAO DAV11
CZDAVA.P1
684
685
686 001776
687 002002
688 002006
689 002010

INTERPROC EXER
MACRO M1200 0Q6-DEC-82 12:16
06~DEC~82 12:20
MASTER TESTS
.SBTTL

004737
005737
001402
000137

010072
001420

SEQ 0021

MASTER TESTS

SYNCST: JSR
TST

BEQ
JMP

003656

I_2

PAGE 27

¢NO INTERRUPTS

PC,CPUHI

MSTER

¢STARTED AS MASTER?

MINITY
SINITT

IR AAAAAAL LSRR

sYES:
sNO:

ARl

iRl

INITIALIZE FOR MASTER TESTS
INITIALIZE FOR SLAVE

iRttt

tdlitlat

diliddilslild)

ittt

+MASTER PROTOCOL INIT-TEST 1
NRALAAALAAAA LSRR

iRl

695
696
697
698
699

700
701
702
703
704
705
706
707
708
709
;}?

002014
002020
002024
002030
002036

004737
012706
005077
012737
005037

010072
001100
177340
000010
001404

001406

002042
002050
002052
002056
002060
002064

032777
001013
005337
001371
005337
001364

001000

177320

002965
002074
002076

017737

177276

104016
104411

MINIT1: JUSR

001404

1$:
2%:

001414

sNO INTERRUPTS
¢RESET STACK POINTER
:CLEAR CSR
sINITIALIZE LOOP COUNT
SINITIALIZE SUBLOOP COUNT

#STACK,SP
aDRVCSR

8IT
BNE
DEC

#DSTATC,aDRVCSR sTEST FOR SLAVE SYNC
MTST?
START TEST 1
sYES:
TIME
sDECR SUBLOOP COUNT

DEC
BNE

ABORT
1%

MoV
CLR

BNE

001406

PC,CPUHI

Mov
CLR

#10,ABORT
TIME

Mov
@dDRVCSR, SERRST
ERROR+16
RSYNC

sCONTINUE SUBLOOP UNTIL ZERO

sDEC_LOOP COUNT
sCONTINUE LOOP INTIL ZERO

:SAVE STATUS
;NOTIFY OPERATOR OF SYNC ERROR
sAND RESYNC

stlld

CZDAVAO DAV11
CZDAVA.F11

INTERPROC EXER

06-DEC-82 12:20

MACRO M1200

MTST1

7213
714

06-DEC-82 12:16

.SBTTL
R

TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY

MTST1

SEQ 0022

TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY

R AR

715
716

PAGE 28

T R

R R AN AN RN

R RN R RN

E NN

RN AN RN RN AR RN

MASTER COMPUTER STARTS HERE FROM PROGRAM START
;1T SENDS OUT SINGLE WORDS (FLOATING I/0 PTRN) THRU THE

:DBR TO THE SLAVE COMPUTER
:1T LOOKS FOR THE SLAVE TO ECHO THE DBR WORD CORRECTLY
sWITHIN A CERTAIN AMOUNT OF

TIME

cIF IT FAILS TO RETURN THE WORD AN ERROR IS REPORTED
sTHIS TEST

IS NOT EXITED UNTIL ALL DATA PATTERNS HAVE

;GEEN SENT AND RECEIVED CORRECTLY

MAAAAAAAAAALALASRARAARRARRAARRRARRRd
Rt
ARl it dld ittt tllil]]
MR

725 002100
726 002102

177776

728 002106
729 002112
730 002116

177260
001124
001372

AAARAALAAS

MTST1:
1$:

001122
FMAALAAAL

SRRl

ARl

iRttt

(LR

R1
#-2,R0

sR1

MOV

RO,3DRVDBR
RO,$GDDAT
DRVDBR, $BDADR

:SEND PATTERN OUT
sSAVE IN EXPECTED
:SET UP DBR ADRS

MOV
MOV
MOV

AL AL AR

SRR

SAYS FLOAT O LEFT WHEN ZERO

ARl

Rttt

:START TEST SYNCHRONIZATION

736 002124

012777

000002

738
739
740
741
742
743
744
745
746

002132
002136

012704
004737

001000
007670

002142
002146
002154
002162

004737
017737
023737
001402

005574

002164

747 002166
748
749 002170

750
751
752
753
754
755

002172
002174
002176
002200
002202

177220

001124

177236

001126
001126

2%:

3%:

104001

005100
005101
001003
006300
005200
103010

4%:

tiil

ittt

#FNCT7 ,3DRVCSR

s TELL SLAVE DATA READY

Mov
JSR

#DSTATC,R4
PC,WTNE

«LOAD MASK
sWAIT FOR SLAVE TO ECHO DATA

PC,DELAY

sWAIT FOR SLAVE

JSR

MOV

aDRVDBR, $8DDAT
ngDAT,SBDDAT

il ittt
itidl)

MOV

CMP
BEQ

000406

il tiltddld]

JSTART WITH #177776 IN RO

IAAAEAALASARAAR RS ARt

sREAD IT BACK
:CORRECT?
:BR IF SO

ERROR+1
BR

sSLAVE FAILED TO ECHO THE DBR WORD
;LOCP ON ERROR ALWAYS

COM
COM
BNE
ASL
INC
8CC

s CONVERT PTRN TO FLOATING 1
;TIME TO FLOAT LEFT?
:BR IF NOT
sYES = FLOAT LEFT

;KEEP LSB SET
;BR IF ZERO TO CARRY

K 2
CZDAVAQ DAV1? TNTERPROC EXER
MACRO M1200 06-DEC-82 12:16 PAGE 29
CZDAVA. B
06-DEC-82 12:20
MTST1
TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY
757
758

;tttttttttttttttttttttotttttttttttttttt*tltttttttt-tttttttttttttt'ttttq-'
sCLEAR STATUS SYNCHRONIZATION

759

769

;g; 002204

042777

000002

763 002212

012704

001000

;29 002222

000731

;gé 002216

004737

177156

770

SRR

;;% 002224

042777

000002

774 002232

012704

001000

004737

177136

779

SRR

781 002242

012777

052777

000002

784 002256
;gg 002262

012704
004737

001000
007670

787 002266
788 002270
789

000240

177001

A AN R

177122

177112

7%:

8%:

AR AR

AN AR

R R AR R AR

RO R RN

BIC

#FNCT1,aDRVCSR

;TELL SLAVE DATA HAS BEEN READ

MOV

#DSTATC, RS

;LOAD MASK

;CONTINUE WITH NEXT DATA PATTERN

PC,WTEQ

AR AR

AN IR

JEND OF

S AR

AR AR R RN AR RN NN RO

TEST SYNCHRONIZATION

AR AR RN R AR AR

RN RN R

#FNCT1,3DRVCSR

;CLEAR STATUS

MOV

#DSTATC R4

;LOAD MASK

R AR R
AR AR

PC,WTEQ

R AR

RN R RN RN R

RN AA R E R AW

AR RN RN

E RN RO AR *d

JWAIT FOR SLAVE TO ECHO STATUS CLEAR
R RN AR AR R AN AR R R R AN AR R

AR RN AR RN

JREAD TERMINATOR SYNCHRONIZATION

AR A AR

R AN PR AR R R AN R AR R AN R R R AR A RN NN

MOV

#177001,30RVDBR ;SET TERMINATOR

#FNCT1,aDRVCSR

;TELL SLAVE TO READ DATA

MOV
JSR

#DSTATC R4
PC,WTNE

;LOAD MASK
;WAIT FOR SLAVE TO ECHO DATA READ

BIS

NOP

RO RN NS

JWAIT FOR SLAVE TO ECHO STATUS CLEAR

BIC
JSR

778

;g% 002250

6$%:

007726

777

780

AR AN

JSR

769

;;g J02236

5%:

007726

768

771

SEQ 0023

E TY

R RN

CZDAVAO DAV11
CZDAVA.F11

L 2
MACRO M1200 06-DEC-82 12:16 PAGE 30
TEST THAT SLAVE CAN ECHO THE 'STAT' BITS CORRECTLY
MTST?
06-DEC~82 12:20

INTERPROC EXER

LSBTTL

791
792

MTST2

TEST THAT SLAVE CAN ECHO THE

(MAARE

AR AR SRR AARARARAAARAARRSAR
ARl
sttt iRl lldl)

sMASTER SENDS OUT A 'FNCT' CODE (1-7) TO THE SLAVE COMPUTER

sTHE MASTER THEN LOOKS FOR THE SLAVE TO ECHO THE CODE VIA THE
s'STAT® BITS WITHIN A CERTAIN AMOUNT OF TIME
sIF IT FAILS TO RETURN THE CORRECT CODE AN ERROR IS REPORTED
:THIS TEST IS NOT EXITED UNTIL ALL

sSENT AND RECEIVED CORRECTLY
MIAAAA

AAR

ARttt

°'FCNT'

CODES HAVE BEEN

ittt

idd ittt

AR ALEAEAAA AL AL ARARRARRRARAAAARARA

002272
002272
002300
002304

00137C
000002
001202

001122

MTSTZ:

001124

DRVCSR,$BDADR
#2 RO

MOV
MOV
MOV

#1202,8GDDAT

JHRNRAAR AR AN RAA ARG AR R T RO
SRR RN A RN

005077

177052

002316
002322

012704
004737

007000
007726

b —d md

810 002312

1%:

)

'STAT® BITS CORRECTLY

AL ALAAARAALLELASARAALALARASARAAALRS
AR ARl
Al l)

793
794
795

801
802
803
804

SEQ 0024

SRR

RN R

ARttt

il dddd)

ittt

dildl)

;SET UP CSR ADRS
*SET UP INITIAL FCNT BIT COUNT

:LOAD EXPECTED
AR AR AR ACRRACARA

A RACARAARR

AR AAAARERA AR OOd

:START TEST SYNCHRONIZE

AR AR

AR RN AR

R R AR AR ARRAREAARARAARAARAAAAARRACRRCRAARARONS

CLR

aDRVCSR

:CLEAR STATUS

MOV
JSR

#7000,R4

:LOAD MASK

PC,WTEQ

AR AR AR

AN AT

sWAIT FOR SLAVE TO ECHO STATUS CLEAR

RN AR

AN T R AN RN

AARRAARAAEARAAR AN

ARNRAORRARD

b wmd

s TRANSFER FUNCTION/STATUS SYNCHRONIZE
AR

N R

T TR

RRE T RAARAAAARANRAAARRAARCAANARACRRCOARCOROEY

—

a R

818 002326

010077

177036

821 002332
82% 002336

012704
004737

007000
007670

826 002342
827 002350
828 002356
82
830 002360
831 002362
832
833 002364
834 002372
835 002376
836 002402
837

017737
023737
001402

2%:

RO,aDRVCSR

sSEND FNCT BITS TO SLAVE

MOV

#7000,R4
PC,WTNE

:LOAD MASK
:WAIT FOR SLAVE TO ECHO FNCT BITS

JSR

177022

001124

PROCESS STATUS

3%:

MOV

104002

CMP
BEQ

ERROR+2

000743

062737
062700
032700
001743

MOV

001002
000002
000020

001124

4%:

aDRVCSR,$BDDAT
;READ THE CSR
$GDDAT,$BDDAT ; CORRECT?
4%
:BR IF SO

MTST?

ADD

#1002,8GDDAT
#2,R0

ADD

BIT
BEQ

#20,R0
1%

;SLAVE FAILED TO ECHO 'STAT' BITS
;LOOP ON ERROR ALWAYS
sADVANCE EXPECTED
;ADVANCE PTRN
sALL BEEN DONE?
:BR IF NOT

CZDAVAQ DAV11
CZD/VA.PIT

MACRO M1200 06-DEC-82 12:16 PAGE 31
INTERPROC EXER
MTST2
TEST THAT SLAVE CAN ECHO THE
06-DEC-82 12:20

SEQ 0025

°'STAT' BITS CORRECTLY

:t**ttt'tttttittttQ*ttt'ttitttttttttttttt*it.i*ttfittfittittttttt*ttittit*t

sEND OF TEST SYNCHRONIZATION

:tt*ttttttttt*tttttitttttti*itttttttttttttttttt*t*tttiitttitttt*tttiitttt

843 002404 012777
844 0024w
005077
T
845
846 002416
012704
847 002422 004737
848

849
850
851
852
853

177002
176752

176760

dozots ’

007726

5%:

MOV
&R

#177002 ,aDRVDBR ;SET TERMINATOR
adDRVCSR
sCLEAR STATUS

MoV
JSR

#7000,R4
PC,WTEQ

ASASE

sLOAD MASK
sWAIT FOR SLAVE TO ECHO STATUS CLEAR

RARARRASARARAREAL AR

sSET INTERRUPT TO CLEAR INTERRUUPT
(DR11-B)
sAND ERROR LATCHED BY THIS TEST.
FMAAAAAALAL

854 002426
855 002432

005737
001021

001454

002434
002440

004537
005666

005534

002442
002446
002454
002462

004737
012777
012777
004737

010116
177777
000501
005574

02466
002472

004737
004737

010072
005554

002476
102500

000240
000240

6%:

176710
176706

7$:

iRttt

il il

it d

ittt

TST
BNE

LSI
8$

sAN LSI?
;IF YES

JSR
DRVISR

R5,SETVEC

sSET VECTOR FOR
sSERVICE ROUTINE

PC,CPULO

JALLOW INTERRUPTS

#501 ,aDRVCSR
PC,DELAY

sCAUSE INTERRUPT AT SLAVE
JWAIT FOR POSSIBLE INTERRUPT

JSR

MoV

#-1,3aDRVWCR

JSR
JSR

PC,CPUHI
PC,RSTVEC

Mov
JSR

8s:

NOP

¢LOAD WORD COUNT

;DISABLE INTERRUPTS
;RESTORE VECTOR

llddd)

CZDAVAO DAV11
CZDAVA.F11

N_2

INTERPROC EXE R
MACRO M1200 "6-DEC-82 12:16 PAGE 32
TEST THAT MASTER CAN XMIT A 32 WORD DATA BLOCK TO SLAVE
MTST3
06-DEC-8 21 2:20

.SBTTL

872
873

MRS

HIRALA

874
875
876

MTST3

ASALL SRR
AR

TEST THAT MASTER CAN XMIT A 32 WORD DATA BLOCK TO SLAVE

AR RS

RAARRAldRiiil

ittt

dltdlld]

ARARARRAlRldRiltiii
il tdltoidloiiaitladiliddss]

;MASTER XMITS A 32 WORD BLOCK OF DATA TO SLAVE

s THEN CHECKS FOR PROPER INTERRUPT STATUS, WC & BA
sTHE SLAVE CHECKS THE SAME PLUS THE DATA RECEIVED
sTHE TEST DOcS NOT ADVANCE UNTIL A SUCCESSFUL XFER

878

AAASALA

AAASEALAS SRRl

002502
002506
002512

004737
004537
005666

M3INI:

002514
002520

005037
005077
005037
004737

005574

004537

005624

002564
002570

012737
013777
013777
004737
013777

001424
001426
010116
001430

002576
002602
002604
002610

005737
001023
005337
001372

002524
002530

002534
002540
002542
002550
002556

177740

100000

013737

001370

001122

ittt

adds

lsdilididld!

¢NC_INTERRUPTS

ERRFLG
aDRVCSR
INTFLG
PC.DELAY

:CLEAR
:CLEAR
:CLEAR
sDELAY

18:

JSR
-32.
Mov

R5.LDBUF
#100000, TIME

;GO LOAD °'DBUF' WITH DATA PTRM
;D0 _32. LOCATIONS
sSET UP A TIMER VALUE

Mov

XPRAM+2 ,QDRVBAR ;SET UP BUFFER ADRS

MOV

JSR
Mov
TST

20%:

XPRAM,aDRVWCR

sSERVICE ROUTINE
ERRORS
STATUS
INTR FLAG
FOR SLAVE

;SET UP WORD COUNT

PC,CPULO
sALLOW INTERRUPTS
XPRAM+4 ,dDRVCSR ;SET UP CONTROL:
IE,FNCT1
INTFLG

;TEST FOR

TIME

JWAIT FOR INTR

3¢

BNE

PPOCESS

TRANSFER ERROR

JSR
MCV

BIC
MOV

PC,CPUHI
adDRVCSR,$BDDAT

#100,aDRVCSR
#2702,8GDDAT

:DISABLE INTERRUPTS
;READ CSR

MOV

DRVCSR,$BDADR

sSTAT B,CYCLE,RDY,IE.FNCTT
;SET UP CSR ADRS

ERROR+3
BR
6%

;IF NE YES

& GO(CLRS CYCLE)

INTERRUPT

BNE

DEC

002640
002646
002650

CLR
CLR
CLR
JSR

001404

002702

MTST3:

2%:

001126
176535
001124

PC,CPUHI

sSET VECTOR FOR

176572

010072
176546
000100

ittt ali il

RS,SETVEC

176606
176602

001402

ARRdldldtRil

JSR

001404

004737
017737
042777
012737
104003

JER
DRVISR

002612
002616
002624
002632

000466

ARt

JUNTIL O

;DISABLE IE
sLOAD EXPECTED STATUS:

;DATI FAILED TO CAUSE A WC INIR
;GO RESYNC ON ERROR

SEQ 0026

CZDAVAQ DAV11
CZDAVA. P11
914
915
916
917
918
919

INTERPROC EXER

06-DEC~82 12:20

MACRO M1200
306-DtC
=82 12:16
TEST

HAT MASTER CAN XMIT A 32 WORD DATA BLOCK TO SLAVE

PROCESS TRANSFER

002652
002656
002664

010072

002672

004737
017737
042777
012737

921 002700
922 002706

023737
001405

924
925
926
9¢7
928
929
930

013737

176506

001126

:LOAD EXPECTED STATUS:

001124

001126

CMP
BEQ

$GDDAT,$BODAT
4

:CORRECT?
‘BR IF SO

001370

001122

MOV

DRVCSR,$BDADR

;SET UP CSR ADRS

CLR

$GDDAT

;LOAD EXPECTED WC

BEQ

5¢

‘BR IF ZERO

001124

176432

001126

932 002736
933 002744

013737

001364

001122

002746

000427

002750
002756
002762
002764
0C2766
002772
942 003000
943 003006
944 003014
945
94¢ 003016
947 003024
948
94 003026
950 003032
951

013737
013700
005400
006300
060037
017737
042737
023737
001406
104006

005237
004737

;DISABLE INTERRUPTS
:READ STATUS

#2702,$GDDAT

005037
017737
001405

013737

PC,CPUMI
ADRVCSK,$BDDAT

#100,3DRVCSR

002722
002726
00273¢

ERROR+4
BR
6$
4:

MOV

5¢%:

6$%:
7%:

"STAT B,.YCLE,RDY,IE.FNCT1

‘DATI STATUS ERROR
16O RESYNC ON ERROR
:READ WORD COUNT

DRVWCR,$BDADR

;SET UP WCR ADRS

160 RESYNC ON ERROR

MOV

XPRAM+2,$GDDAT

NEG
ASL
ADD
MOV

RO
RO
RO, $GDDAT
aDRVBAR,$BDDAT

CMP
BEQ

$GDDAT.$BDDAT
7%

MOV

BIC

001122

aDRVWCR,$BDDAT

:DISABLE IE

MOV

ERROR+S

[egd
e Yo

—
) b

MOV

001124
176370
000001
001124

001124

—d
b

001426
001424

jolole
eolele]

104005

JSR
MOV

BIC

000442

104004

176476
001124

000100
002702

002710
002716
002720

934
935
936
937
938
939
940
941

B.3

PAGE 33

:DATI WORD £OUNT ERROR
:GET STARTING ADRS OF XFER

XPRAM, RO

SGET WC

#B1700,$BDDAT

:ELIMINATE LSB

SGET ACTUAL #
*CONVERT TO WORD
*ADD TO BASE ADRS
:READ BAR ADRS
:CORRECT?
‘B8R IF SO

MOV
DRVBAR,$BDADR
ERROR+6

;SET UP BAR ADRS
:DATI BUFFER ADRS ERROR

INC

:SET ERROR FLAG

JSR

ERRFLG

PC.DELAY

:WAIT FOR POSSIBLE LSI

REFRESH

SEG 0027

CIDAVAO DAV11
CZDAVA.F11

c 3
INTERPROC EXER
MACRO M1200 06-DEC-82 12:16 PAGE 34
06=-DEC~82 12:20
MTST3
TEST THAT MASTER CAN XMIT A 32 WORD DATA BLOCK TO SLAVE

9583

954
959

956

AR N AN R RN RN

R N

AN RN AR

R AR

AR AR AN

JEND OF

TRANSFER SYNCHRONIZATION

CLR

aDRVCSR

sCLEAR CSR STATUS

RN R AR AR

108:

R A RN AR R R

RN AR RN AR AR IR

R RN
IR I AR AR RN

SEQ 0028
N RN R
RN

ggg 003036

005077

176326

959 003042
ggo 003046

012704
004737

007000
007726

Mov
JSR

#7000,R4
PC.WTEQ

sLOAD MASK
sWAIT FOR SLAVE TO ECHO STATUS CLEAR

962 003052
963 003056

005737
001404

001456

TST
BEQ

ERRFLG
1%

;ERROR?
;IF EQ NO ERROR

964 003060
965 003066
ggg 00307C

012777
000403
012777

000004

176302

000002

176272

968

969

970

971
972 003076

012704

007000

975
976
977
3;8

017737
032737
001402
005237

176256
002000

g;z 003102

003106
003114
003122
0031246

004737

981

ggé 003130

005077

176234

986 003134

012704

007000

004737

003144

005737

001456

ggg 003152

000137

002514

996 003156
997 003162
968 003164
995

004737
000240
000240

005554

001402

T AR AR

SET FNCT?

;NO ERROR:
R

SET FNCT1

R A AR R AR RN A RN AR AR AR

R PN AR R

R AR N AR AR AR

MOV

#7000,R4

;LOAD MASK

MoV
BIT
BEQ
INC

@DRVCSR, SAVE
#DSTATB, SAVE
13%
ERRFLG

sGET CSR VALUE
.E ROR?
IF EQ NO
SET ERROR FLAG

PC,WTINE

AR R AR AR
R R

R R

A AR A AR R AR

T A

AR AR R AN AR NN

aDRVCSR

sCLEAT STATUS

MOV

#7000,R4

;LOAD MASK

PC,WTEQ

A AN

TST

ERRFLG

;ANY ERRORS?

JMP

MTST3

;RESTART 1EST

JSR
NOP
NOP

PC,RSTVEC

;G0 RESTORE VECTOR

14%

AR RN AN
ARk

AN AR NI NARRNNE

AN REN RN RN

AR AR NN

JWAIT FOR SLAVE TO ECHO STATUS CLEAR

LOOP ON TEST IF ERROR DETECTED
BEQ

AR AN AN AR

A AR AN RN AR AN RN RN

sCLEAR STATUS SYNCHRONIZATION
R

AR AR R RN RN AR

sWAIT FOR SLAVE TO ECHO TRANSFER STATUS

CLR
JSR

14%:

AR AN

ERROR

sTRANSFER STATUS SYNCHRONIZATION

13%:

RN AR AR RN

38% 003150

#FNCT2,dDRVCSR
12¢%
#FNCT1,aDRVCSR

JSR

001416
001416

007726

333
991

001456

982

ggg 003140

11%:

12%:

007670

980

983

MOV
BR
MOV

JIF NOT

CZDAVAO DAV11

CZDAVA.F11

D 3
MACRO M1200 06-DEC-82 12:16 PAGE 35
INTERPROC EXER
MTST4
SET SLAVE ATTN INTERRUPT
06-DEC~8c 12:20

1001

.SBTTL

1002

MTIST4

SEQ 0029

SET SLAVE ATTN INTERRUPT
e

Ty
T

TR T

:MASTER XMITS A 32 WORD BLOCK TO SLAVE.
SLAVE SET FOk LARGER TRANSFER.

MASTER CHECKS NORMAL COMPLETION.

MASTER SETS ATTN INTR WITH FNCT3,

SLAVE CHECKS FOR TERMINATION.

MR AAAAASAALA
MM
ARAANARAARLARALRRAARLAAR
A DAL
Rttt ddlldl

WN—=00

. :ttitttttttttttfitiittiit"".'it't.t't..tit"fitt"fittttttttttt"

MGINI:

005037
005077
005037
004737

001456

MTST4:

(LR
CLR
CLR
JSR

ERRFLG
aDRVCSR
INTFLG
PC,DELAY

sCLEAR
sCLEAR
sCLEAR
;DELAY

012737
013777
013777

100000

1%:

MoV
Mov

#100000, TIME
XPRAMS ,@DRVWCR

sSET TIMER
;SET WORD COUNT

005666

VD
WNI=O
VNN

01v072
005534

003234

176160

001402
005574

001440
001442

001404

176130
176124

004737
013777

010116
001444

003254
003269
003262
003266

005737
001023
005337
001372

001402

176114

2%:

001404

010072
176070
000100
002702

0 003316
003324

013737

001370

004737
017737
042777
012737

2 003326

104003

000466

001126

20$:

RS5,SETVEC

XPRAM4
+2 ,@DRVBAR

sDISABLE

INTERRUPTS

sSET VECTOR FOR

+SERVICE ROUTINE
ERRORS
STATUS
INTR FLAG
FOR SLAVE

;SET BUFFER ADDRESS

JSR
MoV

PC,CPULO
sALLOW INTERRUPTS
XPRAM4
+4 ,@DRVCSR
;SET IE,FNCT1,G0

1ST
BNE

INTFLG
3%

sTEST FOR INTERRUPT
sIF NE YES

BNE

;UNTIL O

TIME

sWAIT FOR INTR

PROCESS INTERRUPT ERROR
JSR

PC,CPUMI

:DISABLE INTERRUPTS

MOV

#2702,8GDDAT

:LOAD EXPECTED STATUS:

176060

MOV
BIC

001122

MOV

001124

PC,CPUHI

INITIATE TRANSFER AND WAIT FOR INTERRUPT

DEC

003270
003274
003302
003310

JSR

MOV

:
003242
003246

JSR

DRVISR

=2O

004737
004537

aDRVCSR,$BDDAT
#100,3DRVCSR
DRVCSR,$BDADR

ERROR+3
BR
6%

:READ CSR
:DISABLE IE

:STAT B,CYCLE,RDY,IE,FNCT?
:SET UP CSR ADRS

:DATI FAILED TO CAUSE A WC INTR
16O RESYNC ON ERROR

CZDAVAQ DAV11
CZDAVA. P11

INTERPROC EXER

06-DEC-82 12:20

MACRO M1200

1044

06 DEC-82 12:16_

PAGE 36

SET SLAVE ATTN INTERRUPT

SEQ 0030

PROCESS DATA TRANSFER

003330
003334
003342
003350

004737
017737
042777
012737

010072

176030
000100

001126

002702

001124

052
53
54
55

003356
003364
003366
003374
003376

023737

001124

001126

013737

001370

001122

57
58
59
60
61

003400
003404
003412
003414
003422

001124

62 003424

005037
017737
001405
013737
104005
000427

64 003426
65 003434
003440
003442

013737
013700
005400
006300

001426
001424

rONO
~NO

1045
1046
1047
1048
1049

8 003444
69 003450
70 003456
71

003464

1073
1074
1075
1076
1077
1078

003474
003502

72 003472

003504
003510

001405

104004

3%:

176020

BI(

MOV

CMP
BEQ
MoV

060037
017737
042737
023737
001406

001126

001364

001122

001124

175712

001124

000001
001124

001126
001126
001126

013737

001366

001122

005237
052777

007456
000010

175652

104006

#2702,$GDDAT

sDISABLE INTERRUPTS
sREAD STATUS
;DISABLE IE
¢LOAD EXPECTED STATUS:

ngDAT.SBDDAT

s CORRECT?

PC,CPUHI
aDRVCSR, $BDDAT
#100,3DRVCSR

DRVCSR,$BDADR

ERROR+4
BR
6%

000442
175754

JSR
MOV

4%:

+SET UP (SR ADRS
:DAT]

STATUS ERROR

:GO RESYNC ON ERROR

$GDDAT
agnvuca.seooAr

sLOAD EXPECTED WC
sREAD WORD COUNT

MOV

DRVWCR,$BDADR

;SET UP WCR ADRS
;DATI WORD COUNT ERRCR

;GO RESYNC ON ER

MOV
MOV
NEG
ASL
ADD
MoV

XPRAM+2,$GDDAT
XPRAM,RO
RO
RO

GET SEARTING ADRS OF

CLR

ERROR+5

BIC
CMP
BEQ

RO,$GDDAY

dDRVBAR,$BDDAT

#81100,$BDDAT

?gDDAT.SBDDAT

MOV

DRVBAR,$BDADR

INC

ERRFLG
#FNCT3,aDRVCSR

ERROR+6

6%:
7%:

:BR _[F

MoV

BEQ

5%:

;STAT B,CYCLE,RDY,IE,FNCTT

8IS

:BR IF ZERO

XFER

GET ACTUAL #
s CONVERT TO WORD

:ADD TO BASE ADRS
;READ BAR ADRS

;ELIMINATE LSB
s CORRECT?
:BR IF SO
;SET UP BAR ADRS
;DATI BUFFER ADRS ERROR

;SET ERROR FLAG
sSET ATTENTION

CZDAVAQ DAVI1

CZDAVA.F11

INTERPROC EXER

06=DEC-82 12:20

MACRO M1200

MTSTS

1080

1081

1082

1083
1084 003516

004737

005574

1087 003526
}833 003532

012704
004737

1090 003536
1091 003542

}832 003554

}832 003522

1092 003544
1093 003552

NN P RN R R AN A RN R AR PR A

TRANSFER SYNCHRONIZATION

ARt R

R AN R RN R NN R AR

E RN TR RN R NN

N C TN ER NN E AT RN

#7000,R4
PC,WTEQ

:sLOAD MASK
JWAIT FOR SLAVE TO ECHO STATUS CLEAR

005737
001404

(01456

000004

175616

TST
BEQ

ERRFLG
1%

;ERROR?
sIF EQ NO ERROR

012777

000002

175606

#FNCTi,a3DRVCSR

;NO ERROR:

012777
000403

1103 003572

017737

1105 003606

001402

007000
007670
175572

032737

002000

005237

001456

1108

(LR

1110

11%:

005077

175550

1114 003620

012704

007000

004737

SET FN(CT2

12%:

MOV
JSR

#7000,Ré
PC,WTNE

;LOAD MASK
JWAIT FOR SLAVE TO ECHO TRANSFER STATUS

MOV

aDRV(SR, SAVE

;GET (SR VALUE

13¢

JIF EQ NO

001416

BEQ

INC

13%:

RN AR
AN

AR R T TR AN AR P R AN AN C R RN AN RN

#DSTATB, SAVE

ERRFLG
AN

R R R A

AN AN R

R AN AR R R AR AN

aDRVCSR

sCLEAT STATUS

MOV

#7000,R4

;LOAD MASK

C TR NN

LOOP ON TEST IF ERROR DETECTED

005737
001402

001456

TST
BEQ

ERRFLG
14%

sANY ERRORS?
;1F NOT

}}S% 003636

000137

003200

JMP

MTSTS

;RESTART TEST

11264 003642

004737

005554

JSR

PC,RSTVEC

G0 RESTORE VECTOR

;}S; 003654

000240

003734

14%:

JMP
NOP

NOP

STST1

TR ANR RO ERR AN OO

JWAIT FOR SLAVE TO ECHO STATUS (LEAR

1119 003630
;}S? 003634

000137
000240

R AR RO ERRACERERS

AR AN N R R AR AN R A R AR AR AR R RN RN R ENR AR ARR AR ORRY

R TR AN T R

PC,WTEQ

RN AN

:SET ERROR FLAG

;CLEAR STATUS SYNCHRONIZATION

CE AR R IO RRRNCEORO
RS

E ROR?

(LR
JSR

SRRV IE R AN

sTRANSFER STATUS SYNCHRONIZATION

BIT

AANAN TR AN C T E R RN NN IR A RN AR

SET FNCT1

001416

;ERROR:

RR AR

007726

}}}g

JCLEAR (SR STATUS

#FNCT2,3DRVCSR
2%

MOV

ENY

SRR

}}}% 003614

aDRVCSR

MOV
BR

1109

1125 003646
1126 003652

R AN C IR

MOV
JSR

012704
004737

}}}g 003624

JEND OF

007000
007726

1100 003562
}}8} 003566

AR AN

;DELAY FOR SLAVE

1097

}}89 003610

N T P

PC,DELAY

175642

1098

1104 003600

RN A AN

SEQ 0031

JSR

005077

1096

1099

SET SLAVE ATTN INTERRUPT

10%:

F_3
PAGE 37

06-DEC~82 12:16

;PROCEED TO SLAVE

TEST 1

INTERPROC EXER
MACRO M1200 O06-DEC-B2 12:16
06-DEC-82 12:20
SLAVE TESTS

d b d =D —

NS B 85 85 85 85 8 5 8 BWNWINWIWNWWINW W
= OV
NN NN = O O 00 NON, IS W) — o

CZDAVAO DAV11
CZDAVA P11

.SBTTL

SLAVE

PAGE 38

3
SEQ 0032

TESTS

::t'ttttttfit'QQ't""""i't"".'it'tttt"t'."lttt't'i"t""'t'ttt"t

b
b

:SLAVE PROTOCOL INIT-TEST 1

b
b

b e
e ad

d
b

D
b e

md
b

b
b

D
D

b eod ad
b
D b

b b
b

e o
D e

e
=D

::t'ttttt"tt'fit't"tit"'t""'.'fi'tt't"'tti'i"tfit"t.tt.ttt'.."ttt'

NOTE:

THIS SEGMENT EXECUTED ONLY SLAVE

SINIT1:

JSR

PC,CPUHI
#STACK,SP

START OR RESYNC

004737
012706
005077
032777
001404

010072
001100

001000

175 470

#DSTATC,aDRVCSR ;TEST DSTATC

032777
001374

001000

175 460

12$TATC.QDRVCSR sWAIT FOR CLEAR

012777
032777
001774

000002
001000

175 450
175 44?2

#FNCT1,3DRVCSR
;TELL MASTER TO GO AHEAD
#DSTATC ,aDRVCSR ;DID MASTER SET DSTAT(?

000137

003750

175476

aDRVCSR

¢NO INTERRUPTS
sINJTIALIZE STACK POINTER

sCLEAR (SR

sCLEAR:

WAIT FOR MASTER

:NO:

WAIT

SL1STR

:DBR DATA IS READY

H 3
MACRO M1200 06-DEC-82 12:16 PAGE 39
06-DEC~82 12:20
STST1
RECEIVED MASTER'S DBR DATA/SEND BACK VIA DBR

INTERPROC EXER

—
N
SW

CZDAVAO DAV11
CZDAVA. P11
115

—

.SBTTL

STST1
AN

RECEIVED MASTER'S DBR DATA/SEND BACK VIA DBR

R R RN

~NOwV

—

)

— el amed
NN

RN TR

AN RN R

NN R AR

T RN ERNNERRIC

EOR OO

:SLAVE COMPUTER STARTS HERE FROM PROGRAM START 204

:;tt’ttt'tttttt'i'tt't""t'it'ti'ttttt'.'itti'tt't'tt"ttQt'tttt

003734

005077

175430

STST1:

SRR

ARl

(LR

adDRVCSR

dalRa

sttt

sCLEAR FNCT BIT

:tt'tttit.tttfifiifit"""i't"i"tttttttttttt""'t'ttititttttttt"i"tt"

¢DBR TRANSFER SYNCHRONIZE

:.tfiittt't'ittttt't'i't'i"""itttt"ttt."ti"ttti'tt'tt't'tttttttt'ttt

175416

001416
77001

[0 YoYo}

017737
013777
022737
001410

001000
007670

P
—b
) b

003750
003756
003764
003772

012704
004737

—b
Sy —2

003740
003744

O—=O
O NO

VO NO VNS WN=0OV00
IWN=O
NO MBS W= O VNV
S NN =200

d nd b el ) ) atnd T

b D d ) mmD ) D amd S

) oD D ) ) b D D D ) D cad ) e d D ad b b

bl b aed D ) wd e e d wd ) —ad D ) D d D d D nd ) ) ) D el D d ) D nd d ) D ad el d
OOV OV OV
000000 NN NNNNNNNNOOOOONOONONONOVIVNY

NOU THIS COMPUTER BECOMES THE SLAVE AND ECHOS MASTER'S DBR DATA
NMAAAALAAA

—

SEQ 0033

28:

MOV
JSR

READ AND PROCESS DBR DATA

aDRVDBR, SAVE

sGET DATA

CMP
BEQ

#177001, SAVE
48

sTEST TERMINATOR?
sIF EQ YES

MOV

MALAALAARAR

052777

000002

004002
004006

012704
004737

001000
007726

004012

000750

175366

38:

SRR

004014
004022
004024

052777
000240
000240

000002

175346

sLOAD MASK
sWAIT FOR MASTER TO LOAD DBR

SL1STR: MOV

FAAAAALAS AR

003774

#DSTATC,RL
PC,WTINE

4$:

sSEND

Al Al

IT BACK

izl

sDBR ECHO SYNCHRONIZATION
AR

AR A

BIS

#FNCT1,aDRVCSR

;TELL MASTER DONE

MOV
JSR

#DSTATC,Ré
PC.WTEQ

sLOAD MASK
sWAIT FOR MASTER TO RED DBR

STST

+GO LOOK FOR MORE DATA

SAVE ,aDRVDBR

R AR AR

3(‘)3

NOP

AN T

R R AR R

AR AR AR R AN AR R

sn)

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

cEND OF TEST SYNCHRON]ZATION

AR AR

T AR R AR AR AR NN RN R R AR AN NIRRT U RN R AT AN AN REANN

#FNCT1,3DRVCSR

:TELL MASTER DONE

’

CZDAVAQ DAV11
CZDAVA.F11

1196

LSBTTL

1197

JINRRRE

IR
DI

D d d b

004737

010072

b D —d D ) D D o) D i

204

205

206
207 004032
004036

012704
004737

007000
007726

004042

005077

175322

V00
=20

004054

022777
001416

177002

175316

P C AP

RN R RN AR

R A

RN AR AN R R

°'STAT' BITS/SEND BACK VIA

AR A R

R AR AR

N R AN

R AR AR

PC,CPUNI]

SRR

RN N AN AR AR

MAAALALE

R AN

T R AT

2%:

N R R R

AR AR AN R AN

N RN AR AN AR RN RN AN

AN AR N

JSR

:
004046

RECEIVE MASTER'S

AN AN

AR RN

R A AN

AR AR RN R

SEQ 0034

°'FNCT® BITS
ANNS

AR AN AR RS RENREANS

°'STAT® BITS AND CONVERT TO °*FNCT' BITS AND WRITE

NN N

1%:

WN
VNN
= O
NN
NN
OO

) wmd D el e b D d ad
—d cd d d e e

AN RN

STST2:

203

ASHASIASISLSHSLSUST
STNTSTNT SN SIS [N IS [N V], 81,
PONOMNVMNLMNOIMNONOIMNONIN)
= D b cd b ed cd =2 3 = OO

STST2

JRECEIVE

-— b

198

199

200
585 004026

INTERPROC EXER
MACRO M1200 _06-DEC-82 12:16 PAGE 40
06~-DEC~82 12:20
STST?
RECEIVE MASTER'S °*STAT' BITS/SEND BACK VIA °'FNCT'® BITS

RN RN AR

NN RN AN AR AN

ACA

TO CSR

IR AR

RARS

;DISABLE INTERRUPTS
Rt

P AR RN R N A AN AR RN AN RN AN RN

JTEST START SYMCHRONIZE

AN IR RN PN RN R AN AN AR RN AR AR

AR NRNRERON O

AN AR AN EN AN AAREN RO

MOV
JSR

#7000,R4
PC,WTEQ

:sLOAD MASK
JWAIT FOR MASTER TO START TEST

(LR

aDRV(SR

JECHO MASTER TEST START

RO NENES

CHECK FOR END OF TEST FLAG
cmMpP

BEQ

AL AR

#177002,30RVDBR ; TERMINATOR?
5%

JIF EQ YES

AR AR

ARl AR

R Rttt
l]])

s TRANSMIT STATUS SYNCHRONIZATION
MAAASALALAAAR AL AL

004056
004062

012704
004737

007000
007670

004066
004074

017737
042737

175276
170777

004102
004110

113777
000750

001417

3s:

NAAR AR

ARl

iRl

adlliaR ittt

MOV
JSR

#7000,R4
PC,WTNE

;LOAD MASK
sWAIT FOR MASTER TO SEND STATUS

001416
001416

Mov
8IC

aDRVCSR, SAVE
#170777,SAVE

sREAD THE CSR
:SAVE ONLY THE STAT BITS

175260

Move
BR

SAVE+1,aDRVCSR
1%

.ECHO WITH FNCT BITS

itdlls)

CZDAVAO DAVI1
CZDAVA.F11

INTERPROC EXER _ MACRO M1200 06-DEC=-82 12:16 PAGE 41
06-DEC~82 12:20
STST2
RECEIVE MASTER'S °'STAT' BITS/SEND BACK VIA 'FNCT’ BITS

123

1232
1233

sSET INTERRUPT TO CLEAR INYERRUUPT
;AND ERROR LAT(CHED BY THIS TEST.
(DR11-B)

1234

1235

1236 004112
1237 004116

005737
001021

}%28 004124

005666

1238 004120

001454

004537

005534

1241 004126
1242 004132
1263 004140

004737
012777
012777

210116
177777
000501

12646 004152

004737

010072

1249 004162
1250 004164
1251

000240
000240

}szg 004146

}Szg 004156

004737

005574

5%:

6%:

7%:

JSR
MOV
MOV

PC,CPULO
#-1,aDRVW(R
#501,aDRVCSR

sALLOW INTERRUPTS
;LOAD WORD COUNT
s CAUSE INTERRUPT [N MASTER

JSR

PC,CPUHI

;DISABLE

JSR
NOP
NOP

LSI
7$

I I

RS,SETVEC

JSR

005554

R R

e I

TST
BNE
JSR

DRVISR

175224
175222

PC,ODELAY

PC,RSTVEC

;AN LSI?
sIF YES

sSET VECTOR FOR

:SERVICE ROUTINE

:WAIT FOR POSSIBLE INTERRUPT
INTERRUPTS

JRESTORE VECTOR

SEQ 0035

R R

XY Y

CZDAVAO DAV11
CZDAVA.P11

K_3

INTERPROC EXER
MACRO M1200 _06-DEC-82 12:16 PAGE 42
06-DEC-82 12:20
STST3
RECEIVE A 32 WORD BLOCK/MAKE STATUS & DATA CHECKS

.SBTTL
R

STST3

RECEIVE A 32 WORD BLOCK/MAKE STATUS & DATA CHECKS

LTI

:THEN CHECKS FOR PROPER INTERRUPT STATUS,WC,BA & DAT

:IF AN ERROR IS DETECTED THE SLAVE TELLS THE MASTER. REPORTS THE
sERROR,AND RESYNCS ON TEST

AALAAALARASS

SRR ARAARAARARRRARSARARR
ARl Rltdlllliiiltdsd]

AL ARAA LSRR RRARAARAARRARARARRR
ARt ddltlltiiladl il it atdlsd)

004737
004537
005666

§3INI:

010072
005534

005037
005077
005037

001456

004214

004537

005606

004222
004230
004236
004244

012737
013777
013777
004737

100000

—

CLR

RS SETVEC

:DISABLE INTERRUPTS

*SET VECTOR FOR

*SERVICE ROUTINE

CLR
CLR

aDRVCSR
INTFLG

ERRFLG

;CLEAR ERRORS

JSR
~32.

RS, CLRBUF

;G0 CLR °*DBUF'
:D0 32, LOCATIONS

MOV

#100000,TIME

;SET UP A TIMER VALUE

MOV

RPRAM+2,aDRVBAR -SET UP BUFFER ADRS

MOV

001432
001434
010116

PC,CPUHI

CLEAR/INITIALIZE TEST PARAMETERS

175160
001402

-—md
S
O
OO~

177740

JSR
DRVISR

irers

004200
004200
004204
004210

INITIALIZE TRAP VECTOR

JSR

Y
o )
NNO

004166
004166
004172
004176

74 004220

76
77
78
79

SEQ 0036

THIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA FROM THE MASTER

b cad b cmd

N n rnron NN
NN
V ~ ~N~NO o (e Yo Yo Yo o Xo Xo Yo SRV, IV, IV IV, IV,
W N=O0 oo NOWNSWN—=SO
VoO~NOMWD

- b b e end amd wnd o cnd b b b D b b oD b D d D d b cad cod ad D e wd wud

)

JSR

RPRAM,3DRVWCR

PC,CPULOD

‘CLEAR STATUS
‘CLEAR INTR FLAG

-SET UP WORD COUNT

‘ALLOW INTERRUPTS

:tttt*ttttttttttttt'iii't'Itt'ttttfifi*t'tfifit*'tfi'*ttfiittttfit'tttttttt't'ti

:TRANSFER SYNCHRONIZATION

:ttttttittttttttttttttiitttt'ti'iittttittttttiQtii'tit'iQtt"ifit'tt'tttt.

85 004250
86 004254
87 004260

1289
1290
1291
1292
1293
1294
1295
1296

004266
004272
004274
004300

012704
004737
013777

001000
007670
001436

005737
001023
005337
001372

001402

1$:

MOV
JSR
MOV

#DSTATC, R4
:LOAD MASK
PC,WINE
‘WAIT FOR MASTER TO INITIATE TRANSFER
RPRAM+4,aDRVCSR SET UP CONTROL- IE.FNCT2,GO

28:

TST
BNE

INTFLG
3

:TEST FOR INTERRUPT
‘IF NE VES

BNE

SUNTIL ZERC

175102

001404

DEC

;

004302
1297 004306
1298 004314
1298 004322

004737
017737
042777
012737

010072

000100
001304

1301 004330
1302 004336
1303 004340

013737

001370

104007

000520

175056

*WAIT FOR INTERRUPT

PROCESS INTERRUPT ERROR

JSR

PC.,CPUHI

:DISABLE INTERRUPTS

175046

001124

BIC
MoV

#100,aDRVCSR
#1304 ,9GDDAT

001122

MOV

:DISABLE IE
:LOAD EXPECTED STATUS:
;STATC,RDY,IE & FNCT 2

001126

20$:

TIME

MOV

aDRVCSR,$BDDAT

DRVCSR,$BDADR

ERROR+7
BR
108

;READ (SR

;SET UP CSR ADRS

sDATO FAILED TO CAUSE A WC INTR
;GO RESYNC ON ERROR

CZDAVAO DAV11
CZDAVA.F11

1306

= OVONOWVNBWN~=OCOONOWNEBWN=O
VNP WVNESWN 2O 000 NN WN =

004362
004370
004376
004400

004406
004410

PROCESS TRANSFER

004737
017737
062777
012737

001304

001124

175006

BIC
MOV

023737

001124

001126

013737

001370

001122

CMP
$GDDAT,$BDDAT
4%
“EQ
MOV
DRVCSR,$BDADR
ERROR+10
BR
10%

001405

104010

010072

175016
000100

001126

3¢:

000474

004412
004416
004424
004426
004434
004436

005037
017737
001405
013737

004440
004446
004452
004454
004456
004462
004470
004476
004504
004506
004514
004516

013737
013700

104012
000431

004520
004524
004530
004534
004536
004540
004542
004544

013700
013701
012702
005003
020220
001011
005201
001420

004546
004550
004552
004554

005102
005103
001371
006302
005202
103363
000765

3 004560
4 004567
AV,]

D
b
b
b
b
b
b
D e
b
D
D
D
b
d
d
b
D cnd
D
d
b
D
b
b
D
b
b
d
b
d o
d
b
b md
d
b e
d
b
wd
i
md
e
b

A WA N U N N N NN N N AN AN A G U WA NN N AN N NN N N N NN AN N N NN NN N
N W NN N NN
NNV
SN SN BN BN IS IS IS B 8N 2 NN W NN W W NN NI NN NI NI PO NI NI N = b ed b b b e b b b

1307
1308 004342
1309 004346

INTERPROC EXEn
MACRO M1200 06-DEC-82 12:16 PAGE 43
RECEIVE
ST3
A 32 WORD BLOCK/MAKE STATUS & DATA (HECKS
A
06-DEC-82 12:20

104011
000461

005400
006300
060037

017737
042737
023737
001405
013737

001124
174742

001126

001364

001122

001434
001432

001124

4%:

JSR
MOV

108

:GO RESYNC ON ERROR

RPRAM+2 ,$GDDAT
RPRAM,RO
RO
RO
RO,$GDDAY
aDRVBAR ,$BDDAT
#811700,$BDDAT
$GDDAT, $BDDAT
DRVBAR,$BDADR

001126
001126
001126

001366

001122

MOV

177776

;GO RESYNC ON ERROR

MOV
ERROR+11

174700
000001
001124

001434
001432

:DATO STATUS ERROR

;LOAD EXPECTED WC
¢READ WCR

MOV
Mov
NEG
ASL
ADD
MOV
8l(
CMP

001124

#100,3DRVCSR
#1304 ,$GDDAT

;DISABLE INTERRUPTS
sREAD STATUS
;DISABLE IE
sLOAD EXPECTED STATUS:
sSTATC,RDY,IE & FNCT 2
sCORRECT?
:BR _IF SO
;SET UP CSR ADRS

$GDDAT
adDRVWCR,$BDDAT
5%
DRVWCR,$BDADR

CLR
MOV

BEQ

5%:

PC,CPUHI
aDRVCSR,$BDDAT

BEQ

:BR _IF

:SET UP WCR ADRS

sDATO WORD COUNT ERROR

GE} SEARTING ADRS OF

XFER

SGET ACTUAL #
s CONVERT TO WORD

:ADD TO BASE ADRS
+READ BAR _ADRS
sELIMINATE LS8
+CORRECT?
:BR _IF SO
;SET UP BAR ADRS

ERROR+12
108
BR

:DATO BUFFER ADRS ERROR

6%:

MOV

RPRAM+2,R0

7%:

MOV

#177776,R2

;GET BUFFER ADRS
:GET WORD COUNT
;GET 1ST DATA PTRN(FLOATING 0)

BNE
INC

9
R1

s CCMPARE DATA IN DBUF TO EXPECTED
sBR IF DATA ERROR
sCOUNT THE WORD COUNT
:BR IF DATA CHECKS DONE

COM
COM
BNE
ASL
INC
BCC
BR

R
R3
8%

sTIME

8%:

MOV

CLR
CMP

8EQ

RPRAM,R1

R3
R2,(R0)+

1108

R2
R2

4]
8%

;GO RESYNC ON ERROR

;R3 SAYS WHEN TO SHIFT PTRN

sCONVERT PTRN TO FLOATING 1
TO SHIFT?

;BR IF NOT = GO CK NEXT
;FLOAT PTRN LEFT

;KEEP LSB SET

:GO RESET FLOATING PTRN
;GO CHECK NEXT

SEQ 0037

CZDAVAO DAV11
CZDAVA.P11

M3
INTERPROC EXER
MACRO M1200 06-DEC~82 12:16 PAGE 44
06-DEC-82 12:20
ST3
RECEIVE
A 32 WORD BLOCK/MAKE STATUS & DATA CHECKS

}%gg

1359 004564

014037

001126

1361 004574
}%g% 004600

010237
104013

001124

005237

001456

1360 004570

}%gg 004602

010037

108:

1368

1369
1370 004606

012704

007000

}%gz 004616

005077

174546

004737

1376
1377

1378
1379 004622
1380 004626

012704
004737

007000
007670

1383 004640
1384 004644
1385 004646

005737
001404
012777

001456

000004

174514

1388 004656
1389 004664
1390 004672

012777
032737
001402

000002
002000

174504
001416

}gg; 004674

017737

000411

005237

174532

1394

1396

012704
004737

007000
007726

}28? 004710

005077

174454

1402 004714
}282 004720

005737
001402

001456

}282 004722

000137

004200

1407 004726
1408 004732

004737
000240

005554

;2?8 004734

000240

ERRFLG

sSET ERROR FLAG

sLOAD EXPECTED DATA
:DATO DATA ERROR

L L

sEND OF TRANSFER SYNCHRONIZATION

MOV

#7000,R4

;LOAD MASK

CLR

@dDRVCSR

cECHO CSR CLEAR TO MASTER

PC,WTEQ

RR AR

RN AR RAR AR AR

LI IIILY

AR AP R AR AN RN

AR AR

118:

MoV
JSR

#7000,R4
PC,WTNE

sLOAD MASK
;WAIT FOR MASTER TO POST STATUS

TST
BEQ
MOV
BR

ERRFLG
111%
#FNCT2,aDRVCSR

sTEST LOCAL ERROR
:1F EQ NO ERROR
:ERROR:
SET FNCT2

MOV
BIT
BEQ

#FNCT1,aDRVCSR
#DSTATB,SAVE
12%

;NO ERROR:
SET FNCT1
sCHECK FOR MASTER ERROR
:IF EQ NO ERROR

001416

Mov

111%:

INC

128:

16%:

17%:

AR IR

R AN

AR IR

R AR RN AR

dDRVCSR, SAVE

12%

ERRFLG

AR AR

RN AR AR R RN R RN

; TRANSFER STATUS SYNCHRONIZATION

sWAIT FOR MASTER TO CLEAR CSR

AR AR RPN

1397 004700
}ggg 004704

;GET MEM ADRS OF DATA ER

1395

;GET BAD DATA

RO,$BDADR

AR RN RN

JSR

001456

1393

=(R0O) ,$BDDAT

AR AR AR

1108:

007726

1375

}%gg 004654

INC

1367

}%g; 004632

MoV

Mov

MoV
R2.,$GDDAT
ERROR+13

1366

}%;; 004612

PROCESS DATA ERROR

9%:

001122

SEQ 0038

AR RN

AN RN RN RRAR AR

AR AN NS

;READ MASTER STATUS

s CONTINUE

:YES, FLAG ERROR
AR AR AR

R AR

RN AR

RN RARARRNR AR AN

;CLEAR STATUS SYNCHRONIZATION

MoV
JSR

#47000,R4
PC.WTEQ

;LOAD MASK
¢WAIT FOR MASTER TO CLEAR TRANSFER STATUS

CLR

aDRVCSR

;ECHO MASTER CLEAR TRANSFER STATUS

TST
BEQ

ERRFLG
17%

:ANY ERRORS?
:IF NOT

JMP

STST3

;RESTART TEST

JSR
NOP

PC,RSTVEC

;GO RESTORE VECTOR

NOP

06-DEC~82

.SBTTL

=—

— ek -

£H

C2ZDAVAO DAV11
CZDAVA.F11

N 3
MACRO M1§ 00 06-DEC-82 12:16 PAGE 45
TST4
GET ATTN INTERRUPT
2:20

INTERPROC Exg R

=200~V

232222232 22302232

SRk

VB WSOV
NDI WSO VN VNS~W

00020000d000 0023282002820 002 0003000022200

R000033

;SETS UP TO RECEIVE A LARGER BUFFER THAN THE MASTER SENDS.
sMASTER ENDS XFER AND SENDS ATTN INTERRUPT.
sSLAVE CHECKS FOR ATTN TERMINATION.
sIF AN ERROR IS DEVECTED THE SLAVE TELLS THEMASTER
sAND RESYNCHS ON TEST.
sIF ALL OK THEN THIS COMPUTER BECOMES MASTER
;AND GOES TO MTST1.

RN
S =

b nd cad mad ) e
b

GET ATTN INTERRUPT

MRSAAAAAEAASAAAASARAAARAAASARARERRRRAL
ARttt ittt
ildd)

— ) cd cd cred el b ) ) —nd b wod wmd =D aad = b b o ) D D b b
P N Y Y T
Y Y N
N O N
N N
o N N
S WWWWWWWWWWRN
VRO

STST4

SEQ 0039

004736
004736
004742
004746

004750
004750
004754
004760

004737
004537
005666

SGINI:

010072
005534

005037
005037
005077

001456
001402

004764
004770

004772
005000
005006
005014

AR AAAAARAAANANEAEAAEAITEIAAANAAARAARAAARAARAAAAAAARRAAAERNACS

AAALLA

STST4:

ARt

ARRRiidRdiiRdiiil

ittt

JSR
JSR
DRVISR

PC,CPUHI

R5,SETVEC

sDISABLE INTERRUPTS

sSET VECTOR FOR
:SERVICE ROUTINE

CLEAR/INITIALIZE TEST PARAMETERS

sCLEAR ERRORS

174404

ERRFLG
INTFLG
aDRVCSR

004537

005¢06

JSR

R5,CLRBUF

sCLEAR BUFFER

012737
013777
013777
004737

140000
001446

MOV
Mov
MOV

4140000, TIME
sSET TIMER
RPRAM4 ,aDRVWCR
cSET WORD COUNT
RPRAM4+2 ,aDRVBAR
sSET BUFFER ADDRESS

001450
010116

tsd

INITIALIZE TRAP VECTOR

CLR
CLR
CLR

177730

ittt

JSR

PC,CPULO

sCLEAR INTERRUPT FLAG
:CLEAR STATUS

sALLOW INTERRUPTS

:t*tttt*'ttt*tttttttttttitttt*tttttt*tttttttitfititttt*t**tttttttttttttttt
FAAAAAASASEARE

005020
005024
005030

012704
004737
013777

007000
007670
001452

005036
005042
005044
005050

005737
001023
005337
001372

0014C2
001404

i%:

174332

2%:

:TRANSFER SYNCHRONIZATION

ARttt

MoV

#7000,R4

Mov

RPRAM4
+4 ,@DRVCSR

JSR

TST
BNF
DEC
BNE

PC,WTINE

INTFLG

TIME

sttt

ittt

ottt

sLOAD MASK
sWAIT FOR MASTER TO INITIATE TRANSFER
JSET IE,FNCTZ2,GO

sTEST FOR INTERRUPT
s1F NE YES
sWAIT FOR INTERRUUPT
JUNTIL ZERO

CZDAVAO DAV11
CZDAVA P11

INTERPROC EXER
MACRO M1200
06-DEC~-82 12:20

}228

1460 005052
1461 005056
1462 005064

004737
17737
042777

010072
174306
000100

C01126
174276

1465 005100

013737

001370

001122

%22; 005110

000442

1469
1470
1471
1472
1473
1474
1475
1476

005112
005116
005124
005132

004737
017737
042777
012737

010072
174246
000100
005304

005140
005146
005150
1477 005156

023737
001405
013737
104015

001124

1480
1481
1482
1483
1484

005162
005170
005176
005204
005206

012737
017737
023737
001406
013737

177770
174170
001124

001124
001126
001126

001364

001122

}23; 005216

005237

001456

1463 005072
1464

1466 005106

}278 005160

}222 005214

012737
104014

005304

001370

PROCESS INTERRUPT ERROR

208:

JSR
MOV
BIC

001124

001126
174236
001124

3$:

001126
)
00112¢

PC,CPUHI
QDRVCSR $BDDAT
#°00,3DRVC
Sk

MOV

DRVCSR,$BDADR

B8R

;GO RESYNC ON ERROR

JSR
MOV
8IC
Mov

PC,CPUHI
adDRVCSR,$BDDAT
#100,aDRVCSR
#5304 ,8GDDAT

;DISABLE INTERRUPTS
;READ STATUS
sDISABLE IE
sLOAD EXPECTED STATUS:
sSTATA,STATC,RDY,IE & FNCT2
;CORRECT?
:BR_IF SO
;SET UP_CSR ADRS

+LOAD EXPECTED STATUS:

STATA,STATC,RDY,IE & FN(12

;SET UP CSR_ADRS
;NO ATTN INTR

;ATTN STATUS ERROR
;GO RESYNC ON ERROR

MOV
MOV
CMP
BEQ
MoV

#-8.,8GDDAT
aDRVWCR,$BDDAT
$GDDAT,$BDDAT
106
DRVWCR,$BDADR

sLOAD EXPECTED WORD COUNT
;READ WCR
;(HECK WORD COUNT
sBR_IF SO
;SET UP W(R ADRS

INC

ERRFLG

:SET ERROR FLAG

ERROR+11

6$:

;DISABLE INTERRUPTS
;READ (SR
;DISABLE IE

#5304, SGDDAT

cMP
$GDDAT,$BDDAT
BEQ
3
MOV
DRVCSR,$BDADR
ERROR+15
4$:

SEQ 0C40

Mov

ERROR+14

000416

104011

B 4
06
-DEC-82 12:16 PAGE 46
GET ATTN INTERRUPT

;DATO WORD COUNT ERROR

CZDAVAO DAV11
CZDAVA.F11

C_6

INTERPROC EXE R
MACRO M1200 06-DEC~82 12:16
PAGE 47
06-DEC-82 i 2:20
STST4
GET ATTN INTERRUPT

1490

IR N AR AR AR AR AR RN IR R

14N

sEND OF

1492

1493
1494 005222
}232 005226

012704

007000

}zgg 005232

005077

174132

004737

007726

1499
1501

1502
1503 005236
1504 005242

012704
004737

007000
007670

1507
1508
1509
}g}?

005254
005260
005262
005270

005737
001404
012777
000411

001456

1512 005272
1513 005300
1514 005306

012777
032737
001402

}ggg 005246

}2}2 005310

017737

005237

1764116

174100

000002
002000

174070
001416

1518

1520
1521 005314
}g%% 005320

012704
004737

007000
007726

}ggé 005324

005077

174040

1526
1527 005330

005737

001456

1330 005336

000137

004750

1532 005342
1533 005346
}ggg 005350

004737
000240
0002

005554

1536 005352
1537 005354
1538 005360

104406
005737
001055
005337
001052

}ggg 005334

1539 005362
1540 G05366
122} 005370

001402

#7000,R4

sLOAD MASK

CLR

@®DRVCSR

sECHO CSR CLEAR TO MASTER

012737

JSR

001422

000370

PC.WTEQ

R AR RN AT R AN

001422

AN AN AN A AR TN R R AN ORI RO

N R RN R AR SRR AN AR AR AN

NAA ORI RN RANARNARNARNORRRNRO Y

AR AR

118:

MoV
JSR

#7000,R4
PC,WTINE

sLOAD MASK
¢WAIT FOR MASTER TO POST S7ATUS

TST
BEQ
MoV
BR

ERRFLG
11$
NENCT2,3DRVCSR
12%

sTEST LOCAL ERROR
s IF EQ NO ERROR
:ERROR:
SET FNCT2
s CONTINUE

MOV
8IT
BEQ

#FNCT1,aDRVCSR
#DSTATB,SAVE
12%

;NO ERROR:
SET FNCT
cCHECK FOR MASTER ERROR
:IF EQ NO ERROR

Mov

1118:

AT AN AN AN

aDRVCSR, SAVE

ERRFLG

RRENS

sWAIT FOR MASTER TO CLEAR (SR

s TRANSFER STATUS SYNCHRONIZATION

RN ORARGY

AAANNNNOC RO

ANRARREACARNAROOD

+READ MASTER STATUS

sYES, FLAG ERROR

RN AR

12%:

MoV
JSR

#7000,R4
PC.WTtQ

:LOAD MASK
sWAIT FOR MASTER TO CLEAR TRANSFER STATUS

CLR

aDRVCSR

sECHN MASTER CLEAR TRANSFER STATUS

RN N R R R R R

RN AR RN NANAANAANCARN AR

SRR AN

:
138:

001420

AR RN A RANN AR RN O

MOV

INC

1519

RO RO

108:

001456

1517

AR AR AR AN AN

RN AR AR AR AR A N N RN AR

001416

000006

TRANSFER SYNCHRONIZATION

1500

SEQ 0041

R R A RN R AN R AR AN AN AN RN NN

AR RAR RN RN

sCLEAR STATUS SYNCHRONIZATION
A A

R N

N R R R R R R AR AR A AN AN NN IR RN RN RN R

A NN R

RS ROt
AR

IF ERROR DETECTED, LOOP ON TEST
TST
ERRFLG
sANY ERRORS?

BEQ

14%

;1IF EQ NO ERROR

JMP

STSTG

;RESTART TEST 4

14%:

JSR
NOP
NOP

PC,RSTVEC

;GO RESTORE VECTOR

EOPT:

CKSWR
TST
BNE

DEC
BNE

Mov

MSTER
EOPTA
ICOUNT
EQPTA

#370, 1COUNT

;GO CHECK SWR
sWERE WE STARTED AS MASTER?
:BR IF NOT

:COUNT TEST PASS
sBR IF NOT DUE FOR 'END PASS' MSG
;RESET PASS COUNT

RNt

CZDAVAO DAV11

CZDAVA.F11

MACRO M1200 O06-DEC-82 12:16
END OF PASS ROUTINE
06-DEC~82 12:20

PAGE 48

INTERPROC EXER

.SBTTL
S

SEQ 0042

END OF PASS ROUTINE

AA222222

2Rl

'INCREMENT THE PASS NUMBER ($PASS)

;*TYPE TND PuSS #XXXXX'' (WHERE XXXXX

;+IF THERE'S A MONITOR GO TO IT

XX2ARR ]

IS A DECIMAL NUMBER)

s*IF THERE ISN'T JUMP TO EOPTA

:;QQQ'tt.'tt""i""'i"i"ttti"Qttttttttttfi.tittlttt'ttttttt't

005430
005432
005434
65 005436

005442
005444
005446

005450
005454

005456

d ccd wnd

==d

005460
005462
005464
005466
005470
005470

005472
005474
82 005477
005502
005505
005510
005513
5 83

5 84
58 5 005514
586 005522
5 87 005526
5 88 005530
5 89

000240
005037
005237
042737
005327
000001
003022
012737
000001
005420

001102
001100
100000

001100

MOV
$ENDCT: .WORD
$EOPCT
TYPE
SENDNG
MOV

104400

005477
013746
104404
104400

NOP
(LR
INC
Bi(
DEC
$EOPCT: .WORD

$EOP:

B8GT

001100

013700
001405
000005
004710
000240
000240
000240

$TSTNM
$PASS
#100000,8PASS
(PC)+
1

;;IERD THE TEST NUMBER
;: INCREMENT THE PASS NUMBER
J:;DON'T ALLOW A NEGATIVE NUMBER
;:L00P?

(PC)+,a(PC)+
1

..RESTORE COUNTER

$DOAGN

:sTYPE ""END PASS #
;:SAVE $PASS FOR TYPEOUT

$GET42: MOV
BEQ

ars2 RO
$DOAGN

J:GET MONITOR ADDRESS
;:BRANCH IF NO MONITOR

$ENDAD:

PC, (RO)

$ENULL

000042

$DOAGN:

000137

$RTNAD:
0 ° $ENULL:

002100

RESET
JSR
NOP
NOP
NOP

001404

EOPTA:
EOPTB:

;GO0 TYPE--DECIMAL ASCII
;s TYPE A NULL (HARACTFR

WITH SIGN

J;CLEAR THE WORLD
22G0 TO MONITOR
;s SAVE ROOM
J:FOR
JACTN

JMP

a(PC)+

;;RETURN

.WORD
.BYTE

EOPTA
=1,-1.0

;NULL

SENDNG: ASCIZ

)

001000
001404

JYES

$PASS,-(SP)

TYPDS
TYPE

005474

O = =2 OW
HOO=~N
Q=
NN

005376

005400
005404
005410
005416
005420
005422
005424
005426

<15><i2>/END PAsE’ #/

CHARACTER STRING

.EVEN

MOV

#1000, TIME

:SET UP A COUNT

BNE
JMP

EOPTB
MTST1

JUNTIL TIME=0
+NOW BECOME MASTER

DEC

TIME

sSTALL FOR OTHER CPU TO BECOME SLAVE

CZDAVAO DAV11
CZDAVA.FIN

INTERPROC EXER
MACRO M1200 06-DEC-82 12:16
06-DEC~-82 12:20
PROGRAM SUBROUTINES

}gg;

.SBTTL

1563

1594
1595
1596

E 4
PAGE 49

SEQ 0043

PROGRAM SUBROUTINES
A AR AR R R AR R

A Rt A R RN

AN AR AN R AN AN AN RN RN

ORI

NANONES

THIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT =
:SETS UP THE LRV11B INTERRUPT TO RETURN 0: 'NTERRUPT
:T0 THE ADDRESS INDICATED ((R5)) BY THE CALL +2

1597

JINNRR RN R AR RN AN AN AN PR AR N R AR AR AR RN ANA NN ARRARARARARNA O AN RN CA AN,

1598
1599 005534

004737

010072

1601

012777

000340

1600 005540
005544

}gg% 005552

012577
000205

173630

SETVEC:
173624
IR

004737
013777

}g}% 005572

000207

005077

010072
001376

173604

173606

RSTVEC:

JEXIT

AR AP AR

CLR

1615
1616
1617

JSR
MoV

RTS

1614

AR AR AT P AR

sLOAD ISR PRIORITY

RN AR

RN AN AN

RO R RN SRR

AT ANRNS

PC,CPUHI
DRVCT2,aDRVCTO

@DRV(TZ
PC

RAAR AN AR AN R AN

;DISABLE INTERRUPTS
;POINT VECTOR TO HALT

$SET UP HALT
sRETURN

TR R AN RN AR AR E R AN RN AR RN AR NN ANENRRNNS

THIS ROUTINE DELAYS THE PROGRAM TO ALLOW POSSIBLE MEMORY
:REFRESH PERIODS TO OCCUR IN THE OTHER PRCCESSOR WITHOUT LOOSING
:PROGRAM SYNC.

1618

}ggz 005604

#340,3DRVCT2

INTERRUPTS

:LOAD ISR ADDRESS

:;tttttttttttttttttt't'itttttitt'tttttttttttttt'tttt'tti'tttttttt

1608
1609 005554
1610 005560

1619
1620 005574
1621 005600
1622 005602

MOV

;DISABLE

(R§)+,3DRVCTIO

THIS ROUTINE RESTORES THE DRV11B INTERRUPT VECTOR TO A HALT
:AND RAISES THE PRIORITY LEVEL

1607

1611 005566

PC,CPUHI

RTS

1604

1605
1606

JSR

MOV

012702
005302
001376

009207

001000

DELAY:
18:

AR AN R A A A

MOV
DEC
BNE

RTS

R TR

#1000,R2
R2
19

R P AR

TR RN A RN R AR RN R AR

RN PR C SRR CRCIRN Y

CZDAVAO DAV11
CZDAVA.F1T

bJ\bd\bJNNVQGU“NU“NU“NU“U
VS
W
=00

b e

wmd

FAAAAAAS RS

ool OrOrOONONONOONOONONON

INTERPROC EXER
MACRO M1200 O06-DEC~82 12:16
PROGRAM SUBROUTINES
06-DEC-82 12:20

THIS ROUTINE

PAGE 50

SRR

CLEARS

THE # OF

LCOATIONS

THE

4
SEQ 0044

ARl

°'DBUF'

Al Al

BEFORE A

°'DATI®

222222222

XFER

TO BE CLEARED IS SPECIFIED BY

:;SE g:tEE £N THE CALL +2 - WHEN ALL CLEARED THE RETURN IS TO
R

005606
005610

011632

AR AR R RN

CLRBUF: MOV
1%:

005622

MoV
CLR

(R5)+,R0

sGET THE LOC COUNT

RO
1%
RS

sCOUNT LOC
SUNTIL ALL DONE
JEXIT

#DBUF ,R1
(R1)+

INC
BNE
RTS

NN NAANARANAIARTRCACARNARANONRORAS

;GET 1ST ADRS
+CLR MEM LOC

e NI

THIS ROUTINE LOADS °'DBUF' WITH A FLOATING ZERO/ONE PATTERN
sTHE # OF LOCATIONS IN °‘DBUF' TO BE LOADED IS SPECIFIED BY
:THE VALUE IN THE CALL +2 - WHEN ALL LOADED THE RETURN IS TO CALL

AR AL AR

005624

011632

005626

005632
005636
005640
005642
005644
005646
005650
005652
005654
005656
005660
005662
005664

1727776

LDBUF:

MOV

1¢:

MOV

2s:

3$:

SRR

(R5)+,R0

:GET LOC COUNT

#177776,R2

;SET UP FLOATING ZERO PTRN

CLR
MOV
INC
BNE

R3
R2, (R7)+
RO
3

:R3 SAYS WHEN TO SHIFT PIRN
:LOAD MEM WITH PTRN
sCOUNT LOC
*BR IF MORE

R2
R3
2$

SCONVERT PTRN TO FLOATING 1
SSHOULD WE SHIFT?
:BR IF NOT = THIS WILL BE A FLOATING 1

RTS

ASL
INC

R2
R

AAASAEAAAS AR

.R1

1ST ADRS

SEXIT

:FLOAT ZERO LEFT
:KEEP LSB SET

1$
28

;GO RESET FLOATING PATRN
:GO LOAD NEXT PATRN

ARl

THIS ROUTINE WILL

:GET

INDICATE

ARl

it ittt

THAT AN INTERRUPT HAS OCCURED.

Qt*"fittttt't't'tiitt't""'littt'.it""tt't'tt""t.fi'tt'tttt

005666
005672

005237
000002

001402

DRVISR:

222222

#DBUF

BC(C
B8R
M

MOV

COM
COM
BNE

000765

INC

RTI

INTFLG

;BUMP FLAG

sAND RETURN

CZDAVAO DAV11
CZDAVA.F11
1671

.SBTTL
.SBTTL

1672
1673

1674
1675

:
.OR

005674
005700
005702
005704
005706

V00NN
S WN—=O O

b
D
e
d
d el
b ed
b ed
cad

005714
005716
005720
005722
005724
005730
005732
005736
005740
005744
005746
005750
005752
005754

08 005760
005762
005766
005772
005774

NNNNNNNNNNNY
i
e
e e L =

—

SEQ 0045

SYSMAC ROUTINES
TYPE ROUTINE
T

L Ly

‘CALL:

1693 005710

1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707

PAGE 51

ROUTINE TO T+PE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A O BYTE.
:THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HARA(TER.
;NOTE1:
SFILLS
CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
2:
:NOTEZ
:
$FILLC
CONTAINS THE CHARACTER TO FILL AFTER.
TE3
;NO

1676
1677
1678

1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692

INTERFROC EXER
MACRO M1200 06-DEC-82 12:16
06-DEC-82 12:20
SYSMAC ROUTINES

006000
006004
006006
006012
006016

105737
100002

000000
000407
010046
017600
112046

001157

000002

001005
005726

012600
062716
000002

:
:

TYPE
MESADR

$TYPE:

TSTB
BPL
HALT
BR
MOV

1%:

2%:

000002

60%:
3%:

122716

000011

A ¥

122716
001006
005726
104400

000200

105037

006110

123726

006044
001156

001430

001165

000755
004737
001350
013746
105366

002770
004737
105337
000770

USING A TRAP INSTRUCTION
TYPE
+MESADR

MOV

MOVB
B8NE

MOV
ADD

RTI
(MPB

B8EQ
(MPB
BNE
TST
TYPE

5¢:
6%:

001154
000001

006044
006110

$CRLF
CLRB
BR
JSR
(MPB
BNE

MOV

7%:

DE(B

BLT

JSR
DE(B
BR

$TPFLG
1%

RO,=(SP)
82(SP) RO
(RO)+,=(SP)
4%
(SP)+
(SP)+,RO
#2,(SP)

s ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

1S THERE A TERMINAL?
5.
s:BR IF YES

,,HALT HERE

NO TERMINAL

:sGET ADDRESS OF ASCIZ STRING
;:PUSH CHARACTFR TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
;2
1F TERMINATOR POP IT OFF THF STACK
JsRESTORE RO

> 2sADJUST RETURN PC

#HT
, (SP)

JsRETURN
;:BRANCH IF <HY>

#CRLF, (SP)

:-BRANCH IF NOT <CRLF>

5%
(SP)+

SCHARCNT
2%

PC,STYPEC

S;lLLC.(SP)*

$NULL,=(SP)
1(SP)

PC,STYPEC

$CHARCNT
7%

::POP <CR><LF> EQUIV
¢ TYPE A CR AND LF

J:CLEAR CHARACTER COUNT
J¢GET NEXT CHARACTER
;G0 TYPE THIS CHARACTER
2:IS IV TIME FOR FILLER CHARS?

;oIF NO GO GET NEXT CHAR,

J;GET & OF FILLER CHARS, NEEDED

;sAND THE NULL

CHAR.

;;DOES A NULL NEED TO BE TYPED?
::BR IF NO=-=GO POP THE NULL OFF Of

;G0 TYPE A NULL
;:D0 NOT COUNT AS A COUNT
;. LOOP

STACK

CZDAVAQ DAVI1
CZDAVA.F11

INTERPROC EXER
MACRO M1200
O06-DEC-B2 12:16
06=-DEC=-82 12:20
TYPE ROUTINE

;;g;

H
4
PAGE 52

SEQ 0046

:HORIZONTAL TAB PROCESSOR

1723 006020

1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734

006024
006030
006036
006040
006042
006044
006050
006052
006060
006066
006070

1736
1737
1738
1739
};29

006076
006104
006106
006110
006112

1735 006074

112716

004737
132737
001372
005726
000724
105777
100375
116677
122786
001003
105037

000406

122766
001402
105227
000000
000207

000040

006044
000007

8%:

006110

173100

000002
000015

173072
000002

006110
000012

000002

MOVB

,(SP)

:REPLACE

TAB WITH SPACE

JSR
BITB
BNE
TST
BR
$TYPEC: TSTB
8PL
MOVB
CMPB
BNE
CLRB

PC,$TYPEC
#7 ,8CHARCNT
os
(SP)+
2%
s TPS
$TYPEC
2(SP),as1PB
#CR,2(SP)
1%
$CHARCNT

J;TYPE A SPACE
;:BRANCH [F NOT AT
;:TAB STOP
;;POP SPACE OFF STACX
::GEET NEXT CHARACTER
JoWAIT UNTIL PRINTER IS READY

1%:

#LF,2(SP)
$TYPEX
(PC)+
0
PC

231S CHARACTER A LINE FEED?
::BRANCH IF YES
;:COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

CMPB
BEQ
INCB
$CHARCNT:.WORD
$TYPEX: RTS

S$TYPEX

::LOAD CHAR TO BE TYPED INTO DATA REG.
;;1S CHARACTER A CARRIAGE RETURN?
:;BRANCH IF NO
,.YES--CLEAR CHARACTER COUNT

JEXIT

CZDAVAO DAV11
C2DAVA.F11

I_4
INTERPROC EXER
MACRO M1200 06-DEC-82 12:16 PAGE 53
06~DEC-82 12:20
BINARY TO OCTAL (ASCII) AND TYPE

1743

.SBTTL

A AR

1745

:THIS ROUTINE

};2g

;z;vpos---ENIER HERE
sCALL:

1746

BINARY TO OCTAL

1744

SEQ 0047

(ASCII) AND TYPE

A A

R AR

IS USED TO CHANGE A 16-BIT BINARY NUMBER

T0 A 6-DIGIT

;OCTAL

C(ASCII) NUMBER AND TYPE

IT.

1749
1750
1751
1752
1753

:
:
:
:
:

MOV
TYPOS
.BYTE
.BYTE

::NUMBER TO BE TYPED
::CALL FOR TYPEOUT
J:N=1 T0 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0R 0
;:1=TYPE LEADING 2EROS

1756
1757
1758
1759
};2?

:STYPEON=-=-~=~ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:$TYPOS OR STYPOC
:CALL:
:
MOV
NUM,={SP)
:;NUMBER TO BE TYPED
:
TYPON
::CALL FOR TYPEOUT

1762
1763
1764

:$TYPOC--~ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
:
CALL:
;
MoV
NUM,=(SP)
::NUMBER T0 BE TYPED

};gg

TO SETUP SUPPRESS ZEROS AND NUMBER OF

NUM,=(SP)

N
M

};gg

1767 006114
1768 006120
1769 006126

017646
116637
112637

1771
1772
1773
1774

000406
112737
112737
112737

1770 006132

006136
006140
006146
006154

1775 006162

062716

010346

1776 006164
1777 006166

010446
010546

1779
1780
1781
1782
1783

005404
062704
110437
113704
016605

1778 006170

006174
006176
006202
006206
006212

};gg 006216

113704

005003

000000
000001
006341

006337

000002

000001
000006
000005

006341
000006

006340
006337
000012

TOQ

TYPE

;:0=SUPPRESS LEADING ZEROS

TYPOC

$TYPOS: MOV
MovBe
MOov8

::CALL

FOR

TYPEOQUT

a8(SP),=(SP)
1(SP),$0FiLL
(SP)+,$OMODE+1

::PICKUP THE MODE
;:LOAD 2ERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPE

$TYPON
#1,80FILL
#6,$OMODE +1
#5,80CNT

::SET THE ZERO FILL SWITCH
::SET FOR SI12(6) DIGITS
::SET THE ITERATION COUNT

MOV
MOV

R4 ,~(SP)
RS,=(SP)

::SAVE R4
::SAVE RS

NEG
ADD
MOV8
MOVB
MOV

Ré
#6,R4
R4, SOMODE
$OF ILL R4
12(SP) ,RS

ADD

006337
006341
006336

DIGITS

8R
$TYPOC: MOVB
MOVB
$TYPON: MOVB

MOV

MOVB

(LR

#2,(SP)

R3,=-(SP)

$OMODE +1,R4

; ;ADJUST RETURN ADDRESS

::SAVE R3

::GET THE NUMBER OF DIGITS TO TYPE
::SUBTRACT

::SAVE

IT FOR MAX,

IT FOR USE

ALLOWED

::GET THE ZERO FILL SWITCH
J:PICKUP THE [NPUT NUMBER

;;CLEAR THE OUTPUT WORD

CZDAVAQ DAV11

CZDAVA. P11
1787
1788
1789
1790

1791
1792
1793
1794

006220
006222
006224
0062¢6

006230
006232
006234
006236
006242
006244
006250
006252
006254
006256
006260

1795
1796
1797
1798
1799
1800
1801
1802 006264
1803 006270
1804 006274

1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820

006276
006300
006304
006306
006310
006312
006314
006316
006320
006322
006330
006332
006334
006335
006336
006337

}gg; 006340

INTERPROC EXER

C6-DEC-82 12:20

MACRO M1200

052703

110337
104400
006334
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000

000000

1$:

2%:

3%:

006340
177770

4%:

000060
000040
006334

5%:

006336

7$:

6$:
000002

J &
PAGE 54

BINARY TO OCTAL (ASCII) AND TYPE

006105
000404
006105
006105

006105
010503
006103
105337
100016
142703
001002
005704
001403
005204
052703

O06-DEC-82 12:16

000004

ROL
BR
ROL
ROL

ROL
MOV
ROL
DECB

BPL
BIC
BNE
TST
BEQ
INC
8IS
BIS
MovB
TYPE

8s
DE(CB

BGT
BLT
INC
BR
MOV

Mov
Mov
MOV

MOV
RTI
8%:
.BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

RS
33
RS
RS

; ;ROTATE MSB INTO *'C"
:.60 DO MSB
s.FORM THIS DIGIT

RS
RS.R3
R3
$OMODE
4
#177770,R3
48
R4
5%
Ré
#'0,R3
'

SEQ 0048

,R3

;:GET LSB OF THIS DIGIT
¢.TYPE THIS DIGIT?
::8R _IF NO
;:GET RID OF JUNK
;. TEST FOR 0
::SUPPRESS THIS 0?
;sBR [F YES
:+DON'T SUPPRESS ANYMORE 0'S
s:MAKE THIS DIGIT ASCII
s sMAKE ASCII

NOT ALREADY

R3,8%

::SAVE FOR TYPING
::GO TYPE THIS DIGIT

$OCNT
2%
6%
R4
2%
(SP)+,RS
(SP)+,R4
(SP)+,R3
2(SP) 4 (SP)
(SP)+,(SP)

::COUNT BY 1
;;BR IF MORE TO DO
:;BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
:;RESTORE R5
: ;RESTORE R4
:RESTORE R3
;:SET THE STACK FOR RETURNING

0
0
N

: ;RETURN
::STORAGE FOR ASCII DIGIT
;: TERMINATOR FOR TYPE ROUTINE
s.0CTAL DIGIT COUNTER
¢ JERO FILL SWITCH

:.NUMBER OF DIGITS TO TYPE

CZDAVAQ DAV11
CZDAVA . F11

K 4
INTERPROC EXER
MACRO M1200 06-DEC-82 12:16 PAGE 55
06-DE(-82 12:20
CONVERT BINARY TO DECIMAL AND TYPE RCUTINE

1824

SBTTL

1826
1827
1828
1829
1830
1831

THIS ROUTINE IS USED TO CHANGE A 16=-BIT BINARY NUMBER TO A 5-DIGIT
SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT, DEPENDING ON WHETHER THE
*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
JBEFORE THE FIRST DIGIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE
REPLACED WITH SPACES.
;CALL:

%ggz

1825

;

1835 006342
1836 006342
1837 006344

010046
010146

1839 006350

010346

1838 006345

1840 006352

006354
006360
006364
006366
006370
006376
006400

1848 006404

010546

012746
016605
100004
005405
112766
005000
012703

112723

005002
016001

1852
1853
1854
1855
1856
1857

006420
006422
006424
006426
006430
006432

002402
005202
000774
060105
005702
001002

1859 006436

100407

1851 006416

1858 006434

1860 006440
006442

1862 006444
;ggz 006452

$TYPDS:

010246

1849 006410
1850 006412

1861

TO DECIMAL AND TYPE

ROUTINE

‘Qt"tQ'Q.fi!*'i't't""'"""i.i"tifi'.fi"i'fifi.t't.t't't"t."

1832

1841
1842
1843
1844
1845
1846
1847

CONVERT BINARY

SEQ 0049

160105

;:PUT THE BINARY NUMBER ON THE STA(K

MOV
MOV

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

:sPUSH RO ON STACK
;:PUSH R1 ON STACK

MOV

R3,-(SP)

::PUSH R3 ON STACK

MOV
MOV
BPL
NEG
MovB
CLR
MOV

#20200,-(SP)
20(SP) ,RS
18
RS
#'=,1(SP)
RO
#$DBLK,R3

:sSET BLANK SWITCH AND SIGN
;sGET THE INPUT NUMBER
::BR IF INPUT IS POS.
;sMAKE THE BINARY NUMBER POS.
s sMAKE THE ASCI] NUMBER NEG.
J:2ERD THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER

CLR
MoV

R2
$DTBL (RO) ,R1

MOV

020200
000020
000055

000001

006556

000040

1¢:
2%:

006546

3s:

4%:

MOVB
SuUB

BLT
INC
BR
ADD
TST
BNE

1ST8

106316

116663
052702

NUM, = (SP)

TYPDS

MOV

105716
103003

MOV

5¢%:
000001
000060

177777

6%:

R2.,=-(SP)

R5,=-(SP)

' (Rg)’
R1,RS
4%
R2
3%
R1,RS
R2
5%

:sPUSH RS ON STACK

+osSET THE FIRST CHARACTER TO A BLANK
:sCLEAR THE BCD NUMBER
:2GET THE CONSTANT

:sFORM THIS BCD DIGIT

::BR IF DONE
;s INCREASE THE BCD DIGIT BY 1
:;ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0
::FALL THROUGH IF 0

22STILL DOING LEADING 0°S?

(SP)

:sMSD?

BCC

MOVB
8IS

:sPUSH R2 ON STACK

(SP)

BMI

ASLB

2:60 TO THE ROUTINE

1(SP),=1(R3)
#'0,R2

::BR

YES

;:BR

[F NO

2:YES-=-SET THE SIGN
;sMAKE THE BCD DIGIT ASCII

CZDAVAO DAV11

CZDAVA.P11

1866 006456

1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893

006462
006464
006466
006472
006474
006476
006500
006502
006504
006506
000514
006516
006520
006522
006524
006526
006530
006532
006534
0056542
006544
006546
006550
006552
006554
006556

INTERPROC EXER
MACRO M1200 06-DEC-82 12:16 PAGE 56
06-DEC-82 12:20
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

052702

110223
005720
0200¢7
002746
003002
010502
000764
10572¢
1000032
116663
105013
012605

000040

7%:

8%:
177777

177776

012603
012602
012601
012600
104400

006556
016666
012616
000002
023420
001750
000144
000012

BIS
MOVB

#' ,R2
R2.,(R3)+

JoMAKE IT A SPACE IF NOT ALREADY A DIGIT

MoV

RS5,R2
6%

:3GET THE LSD
;.60 CHANGE TO ASCII
¢WAS THE LSD THE FIRST NON-ZERO?

TS7T
CMP
BLT
8GT

000010

B8R
TST8

000004
$DTBL:

$OBLK:

(RO)+
RO,#10
2%
8%

8PL
Movs
CLRB
MOV
MOV
MOV
MOV
MoV

(SP)+
9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+,R0

$DBLK
MOV

2(SP),4(SP)

TYPE

000002

SEO 0050

MOV
RTI

(SP)+,(SP)

10000.

1000.
100.
10.
.BLKW

¢oPUT

THIS

CHARACTER

IN THE OUTPUT BUFFER

22 JUST INCREMENTING
JsCHECK THE TABLE INDEX
2:G0 DO THE NEXT DIGIT
;G0 TO EXIT

::BR IF NO

s YES==SET THE SIGN FOR TYPING
;;SET
;;POP
;:POP
J;POP
J2POP
J:POP

THE TERMINATOR
STACK INTO RS
STACK INTO R3
STACK INTO RZ
STACK INTO R1
STACK INTO RO

2:NOW TYPE

THE NUMBER

;:ADJUST THE STACK
;;RETURN TO USER

CZDAVAO DAV1T

CZDAVA.P11

M_4
MACRO M1200 06-DEC-82 12:16 PAGE 57
INTERPROC EXER
ERROR HANDLER ROUTINE
06-DEC-82 12:20

1895
1896
1897
1898
1899
1900
1901

.SBTTL

ERROR HANDLER ROUTINE

A AARALSARAAAALSAAARRRAAARARRASSAliill
il
ittt ittt idd)

THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

:SAVE THE ERRGR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:AND GO TO SWRCK ON ERROR
sTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

sw15 1
SU13 1

HALT ON ERROR
INHIBIT ERROR TYPEOUTS

WN=O

b od d cod cd b ek D
=b b

NOAVISWN =2O VNV

NI NI NI PO NN NI N

WNI 2OV

NN NN WA W N N

006566
006566
006570
006572
006576
006600

006606
006614
006616
006620
006622
006626
006632
006640
006646
006654
006656
006662
006664
006666
006666
006672
006674
006676
006700
006700

104406
104406
105237
001775
013777

032777
001402

001103

ERROR

7%:

CKSWR
CKSWR
INCB

$ERFLG

MOV

$TSTNM,ADISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

BEQ

BIT

104400

TYPE

001112

001116
000002
172252

020000

100002

001116
001114
172264

172246

000000
104406

:sTEST FOR CHANGE IN SOFT-SWR
2:G0 LOOK FOR SWR CHANGE
2sSET THE ERROR FLAG

::DON'T LET THE FLAG TO TO ZERO
;:BELL ON ERROR?

;:NO -~ SKIP

SERTTL

:;COUNT THE NUMBER OF ERRORS

oSERRPC,SITEMB

;:STRIP AND SAVE THE ERROR ITEM CODE

PC,SWRCK

..GO TO USER ERROR ROUTINE

:sRING BELL

(SP) ,$ERRP(C
#2,8ERRPC

BIT
BNE

#BIT13,aSWR
208

#325

;:;GET ADDRESS OF ERROR INSTRUCTION
.,SKIP TYPEOUT IF SET
;SKIP TYPEOQUTS

SCRLF

20¢:
2%:

TST

aSWR

BPL

HALT
CKSWR

000002

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

MOV
SuB

MovB

006702

001165

005777

$8ELL
INC

1%:

#BIT10,aSWR

BEQ

104400

001160
005237
011637
162737
117737
032777
001004
004737

BELL ON ERRCR

iERROR

001102
002000

:sHALT ON ERROR

;sSKIP IF CONTINUE

JsHALT ON ERROR!
;sTEST FOR CHANGE IN SOFT/SWR

RTI

J;RETURN

;GO TYPE ERROR
;GO UPDATE SOFTWARE SWX IFf °'CNTRL/G®

AN W I

OOV

£H B

-t

D e

b md

d e

=D ed

b =

d —D

O O N0 OO N0 O OO N0 0NN N0 N0 N0 O O NN 00000000V
000

g:lg
=1

SEQ 0051

s e R

006702
006706
006710

004737
104406

000207

C06712

R R AN

SWRCK:

ARV

AT RN R AR

RARAARA

AR AR AR

JSR

PC,$ERRTYP

:GO TYPE ERROR

RTS

:RETURN TO ERROR HANDLER

(KSWR

:GO LOOK FOR SWR CHANGE

CZDAVAO DAV11
CZDAVA.F11

INTERPROC EXER
MACRO M1200 06-DEC-82 12:16 PAGE 58
06~DEC~82 12:20
ERROR MESSAGE TYPEOUT ROUTINE

SEQ 0052

1943

SBTTL

1945
1946
}gzg

THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
SERROR IS TO BE REPORTED, IT THEN OBTAINS. FROM THE "ERROR TABLE'® (SERRTB),
*AND REPORTS iHE APPROPRIATE INFORMATION CONCERNING THE ERROR.

191.(.

1949
1950
1951
1952
1953

006712
006712
006714
006716
006720

1954 006722
1955 006726
1956

104400
001165
010046
005000

001114

013746

001116

104401
000426
005300
006300
006300
006300
062700
012037
001404
104400
000000
104400
001165

1973
1974
1975
1976
1977

001404
104400
000000
104400
001165

1972 006772

006776
007000
007002
007004
007006

012037

1978 007010
1979 007012

011000
001004

1981 007016
1982 007020
1983 007022
1984 007024
1985 007024
1986 007026
1987 007030
1988 007032
1989 007034
1990 007036
1991 007040

104400
001165
000207

1980 007014

}ggg 007042

$ERRTYP:

153700
001004

1957 006730
1958
1959 006734
1960 006736
1961 006740
1962 006742
1963 006744
1964 006746
1965 006750
1966 006754
1967 006760
1968 006762
1969 006764
1970 006766
1971 006770

1994

ERROR MESSAGE TYPEOUT ROUTINE

tttttttttt*tt*ttttttttt*tttttt*tt*ttt*tttt*tttt*ttttttttttttttt

BISB
BNE
MOV

18:

001170
006764

2%:

007002

3%:
48

5%:

012600

013046
104401
005710
001770
104400
007042
000771

040

6%:

7%:

040

TYPE
$CRLF
MoV
CLR

000

8%:

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
WORD
TYFE
$CRLF

MoV

::"'CARRIAGE RETURN''
RO,~(SP)
RO

AFSITEMB,RO
1%
$ERRPC,=(SP)
33
RO
RO
RO
RO
#SERRTB,RO
(RO)+,2%
3s

(RO)+,48

BEQ
TYPE
JWORD
TYPE
$CRLF

MOV

(SP)+,R0O

MoV
BNE

TYPE
$CRLF
RTS

MoV
TYPOC
TST
BEG
TYPE
8%
BR

'?3%&2

5¢

(RO) ,RO
7%

.
& '‘LINE FEED"

::SAVE RO
:;PICKUP THE ITEM INDEX

:;IT ITEM NUMBER IS 2ERO, JUST
:;TYPE THE PC OF THE ERROR

::SAVE SERRPC FOR TYPEOUT
: :ERROR ADDRESS
::60 TYPE--OCTAL ASCII (ALL DIGITS)
::GET oUT
::ADJUST THE INDEX SO THAT IT WILL
:;WORK FGR THE ERROR TABLE
;;FORM TABLE POINTER
::PICKUF ""ERROR MESSAGE'' POINTER
::SKIP TYPEOUT IF NO POINTER
::TYPE THE 'ERROR MESSAGE'’
::"'ERROR MESSAGE'®' POINTER GOES HERE
::"'CARRIAGE RETURN'' & '‘LINE FEED"
.

::PICKUP ''DATA HEADER'' POINTER

:;SKIP TYPEOUT IF 0
::TYPE THE '‘DATA HEADER''
::"'DATA HEADER'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & '‘LINE FEED"

::PICKUP "'DATA TABLE'' POINTEN
::G0 TYPE TRHE DATA

:;RESTORE RO

2 :"'CARRIAGE RETURN'® & ''LINE FEED'

: :RETURN

3(RO)+,=(SP)

::SAVE a(RO)+ FOR TYPEOUT
;260 TYPE-=0OCTAL ASCII (ALL DIGITS)
::1S THERE ANOTHER NUMBER?
::BR IF NO
::TYPE TWO(2) SPACES

(RO)
6%
7%

;;LOCP

::TWO (2) SPACES

\
;¥

CZDAVAO DAV11
CZDAVA.P11

INTERPROC EXER
MACRO M1200 O06~DEC-B2 12:16
V5~-DEC=-82 12:20
TTY INPUT ROUTINE

1996

LSBTIL

}ggg

TTY

.ENABL LSB

PAGE 59

5
SEQ 0053

INPUT ROUTINE

1999

IR R AR RN R AN AR R

R RN AR AR RN RN RO RR RS

2000

PR AN

2001
2002
2003

AR RN RN RN

;WHEN OPERATING IN TTY FLAG MODE.

2006 00704CG

2007 007054
2008 007056
2009 007062
2010 007064

2011 007070
2012 007074
20713 007100

2014 007102
2015 0C7110
2015 007112
2017 007114
2018 007116
2019 007120
2020 007122
2021 007126

2022 007130
2023 007132
2024 107134
2025 07136
2026 007140
2027 007144
2028 007146

2029 007152

007156
007162
007164
007166
007170

2035 007174
2036 007176
2037 007202

2038 007204
2039 007210
2040 007212

2041
20642
2043
2044
2045
2046
2047

TN RA NN

SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
:SERVICE THE TEST FOR CHANGE IN SOFTWARE SUITCH REGISTER TRAP CALL

Sggg

2030
2031
2032
2033
2034

R R R R A AR AR A AN AR
AR AR AR AR AN R P
R N R A AR NN NN

007220
007224
007226
007230
007236
007240
007246

022737

001074
105777
100071
117746

042716
(22726
001062

123727
001456
104400
007573
104400
007600
013746
104401
104400
007611
005046

005046
105777
100375
117746

042716

021627
001005
104400
007566
062706

000757
021627
001022

005766
001403
016677

062706
104400
001165
123727
001003
012777
000002

000176

001140

$CKSWR:

172062
172056

#SWREG,SWR

;oIS THE SOFT=-SWR SELECTED?

B8IC
CMP
BNE

a$TKB,=-(SP)

#“C177 (spP)
7, (SP)+
15$

2 :SAVE THE (CHAR

MovB

177600
000007
001134

CMP
BNE
1ST8
BPL

000001

000176

172000

CMPB
BEQ
TYPE
$CNTLG
$GTSWR: TYPE
$MSWR
MOV
TYPOC
TYPE
SMNEW
19%:
(LR

7%:

171774

177600

000025

9%:

000006

20%:

000015

10%:

000004

000002
000006

171720

001135

000001

000100

171676

11$%:
14%:

15%:

CLR
T1ST8B
BPL
MOvVB

8IC

CMP
BNE
TYPE
$CNTLU
ADD

B8R
(MpP
BNE

TST
BEQ
MOV
ADD
TYPE
$CRLF
(MP8
BNE
MOV
RTI

15¢%
a8$TKS
15¢%

$AUTOB,#1
5%

:sBRANCH IF NO
;s CHAR THERE?
2s1F NO, DON'T WAIT AROUND

J:STRIP=-0OFF THE ASCII
;sIS IT A CONTROL G?
JsNO, RETURN TO USER

s sARE WE RUNNING IN AUTO-MODE?
:sBRANCH IF YES
::ECHO THE CONTROL-G (=G)

J:TYPE CURRENT CONTENTS
SWREG,~=(SP)

2 sSAVE SWREG FOR TYPEOUT
+:G60 TYPE=-=OCTAL ASCIICALL DIGITS)
s sPROMPT FOR NEW SWR

-(SP)

;:CLEAR COUNTER

l‘C177.(SP)

JsMAKE IT 7-BIT ASCII

l6 cp

;s IGNORE PREVIOUS INPUT

4(SP)
1%
2(SP) ,aSWR

JsYES,IS IT THE FIRST CHAR?
;sBRANCH IF YES
s SAVE NEW SWR

-(SP)
s THE NEW SWR
as$7TKS
;s CHAR THERE?
7%
;s
IF NOT TRY AGAIN
a$TkB,=-(SP)
;:PICK UP CHAR
(SP) ,#25
108

19%
(SP) ,#15
16%

#6,SP

SINTAG,#1
15%
#100,a87KS

2:IS IT A CONTROL=-U?
; sBRANCH IF NOT
s:YES,ECHO CONTROL=-U (*U)

JsLET'S TRY IT AGAIN
JoIS IT A <CR>?
2 sBRANCH IF NO

;s CLEAR UP STACK

J2ECHO <CR> AND <LF>
ssRE~ENABLE TTY KBD INTERRUPTS?
; sBRANCH [F NOT
s sRE=ENABLE TTY KBD INTERRUPITS
s sRETURN

2050
2051
2052
2053
2054
2055
2056
2057
2058
2059

007250
007254
007260
007262
007266
007270
007274
007300
007302
007304

INTERPROC EXER

06-DEC~82 12:20

004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104400

001164
000720

006044
000060

MACRO M1200
TTY

06-DEC-82 12:16

INPUT ROUTINE

16%:

BLT

000067

(MP

BGT
BIC

000060
000002

000002

177776

JSR
CMP

TST
BEQ

17%:

18¢%:
.DSABL

ASL
ASL
ASL
INC

BIS
BR

SEQ 0054

:sECHO CHAR

(SP) ,#60
18%
(SP) ,#67
18%

::CHAR < 0?

2(SP)
$

::1S THIS THE FIRST (HAR
J:BRANCH [F YES
::NO, SHIFT PRESENT
CHAR OVER TO MAKE
HH

#60, (SP)+
p )

[

)

[)

S P)
( sP), (SP)

TYPE

$QUES
BR
LSB

5
C
PAGE 60

PC,$TYPEC

NN
W ~NWNnNN

(ZDAVAQ DAVI1
CZDAVA.F11

20%

;;BRANCH [F YES
J:CHAR > 7?
;;BRANCH [F YES

2:STRIP=OFF ASCII

ROOM FOR NEW ONE.

J:TYPE

2<(R><LF>

J:KEEP COUNT OF (HAR
J:SET IN NEW CHAR
J;GET THE NEXT ONE

::SIMULATE CONTROL*U

CZDAVAO DAVI1

CZDAVA.F11

MACRO M1200 06-DE(-82 12:16
INTERPROC EXER
TTY INPUT ROUTINE
06-DEC~82 12:20

D S
PAGE 61

SEQ 0055

2070

2071
2072
2073
2074
2075
2076
2077
2078
2079 007330
2080 007332
2081 007340
2082 007344
2083 007346
007354
007362
007370
007372
007376
007400
007404
007410
007414
007416
007420
007426
007430
007436
007440
007446

2323323222000

20002

2020202

002220

2222020

STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
;CALL:

000004

000002

171574
177600

000004
000004

171600

000004

$RDCHR: MO\
1%:

000023
2%:

171550

171542
177600
000021

026627
002407
026627
003003
062766
000002

000004

000140

000004

000175

000040

000004

RDCHR
RETURN HERE

3%:

4%
:

MOV
TST8
BPL
Movs

8IC
(MP
BNE

1ST8
8PL
mMovse

BI(
cMP
BNE
BR
(mMp
BLT
(MP
BGT
BIC
RTI

(SP) ,=(SP)

4(SP),2(SP)
asTKsS
1$

a$TKB,4(SP)

#AC<127> .4 (SP)
4;sp),02§
3
asTkB

as$TKB,=(SP)

#5C177,(5P)
(SP)+,#21
2$
1
4L(SP),#140
48
4(SP),#175
48
#40,4(SP)

RRdR

;s INPUT A SINGLE CHARACTER FROM THE TTY
:;CHARACTER IS ON THE STACK
:oWITH PARITY BIT STRIPPED OFF

J:PUSH DOWN THE PC
;s SAVE

THE PS

J:WAIT FOR

;:A CHARA(CTER
J:READ THE TTY

;:GET RID OF JUNK [F ANY
231S IT A CONTROL=S?
:;BRANCH [F NO
J:WAIT FOR A CHARACTER
;:LO0P UNTIL ITS THERE
::GET CHARACTER
J:MAKE

1T 7-BIT ASCII

2215 1T A CONTROL-Q?
;:IF NOT DISCARD IT
;s YES, RESUME
::1S 1T UPPER CASE?

; sBRANCH [F

YES

2:1S IT A SPECIAL CHAR?
J:BRANCH IF YES
JsMAKE ]T UPPER CASE

2:GU BACK TO USER

CZDAVAO DAV11
CZDAVA.F11

MACRO M1200 O06-DEC-82 12:16
INTERPROC EXER
TTY INPUT ROUTINE
06-DEC~82 12:20

2222002022

NARRRdRR
Rl
RRRRdR )]

A STRING FROM THE TTY
;s INPUT

RDL IN
RETURN HERE

b ed
D
b
b aecd
b
D
D
b
D
=D cmd

W WWWIWNNLNI
NNPNIMNONININ)
H WA —=O000 NN SN
=2O

rd o
b

o md

md e

AURIALAC ALNINININIALNL NI NN NV

SEQ 0056

E:IS ROUTINE WILL INPUT A STRING FROM [HE TTY

R e ed cd b b ed eed b = O OO OO O
VNN WN=0O000
O

NN NI RN NN NNININI NN

2222232382222

E_S
PAGE 62

007450
007452
007456
007462
007464
007466
007470
007474
007476
007500
007502
007504
007510
007512
007514
007520
007522
007526
007530
007532
007534
007536
007544
007552
007554
007555
007556
007566
007571
007573
007576
007600
007603
007606
007611
007614
007617

$ROLIN: MOV

007556
007566

1%:

2%:

000177

108:
A ¥

3%:

007554

MOV

(MP
BLOS

RDCHR
MovB

(MPB
BNE
TYPE

$QUES
BR
Mov8
TYPE

9%
(MPB
BNE
CLRB

000015
177777

TYPE

R3,=(SP)
#STTYIN,R3
#STTYIN+8
,R3
.

(SP)+, (R3)

#177,(R3)

9%:

::SAVF R3

;;GET ADDRESS
JsBUFFER FULL?
;.BR IF YES
;.60 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
;1S IT A RUBOUT

J:SKIP IF NOT
::TYPE A '

;.CLEAR THE BUFFER AND LOOP
:ECHO THE CHARACTER

#15,(R3)+

¢ CHECK FOR RETURN
2;LOOP [F NOT RETURN

(R3).9%

2%
-1(R3)

SLF

000002
000004

;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STA(K
,.TERMINATOR WILL BE A BYTE OF ALL 0°'S

:;CLEAR RETURN (THE 15)
s TYPE A LINE FEED

;;RESTORE R3

MOV
MoV
MoV
MOV
RTI

:sADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON [T
H

;:RETURN
;;STORAGE FOR ASCII CHAR, TO TYPE

$TTYIN:
SCNTLU:

.BYTE
.BYTE
.BLKB
+ASCIZ

/5U/<15><12>

:sRESERVE 8 BYTES FOR TTY INPUT
;:CONTROL 'V’

$CNTLG:

ASCIZ

/°G/<155<12>

::CONTROL ''G"’

$MSWR:

JASCIZ

<15><12>/SWR = /

SMNEW:

LASCIZ

.EVEN

; ; TERMINATOR

NEW =

CZDAVAD DAV11

CZDAVA.F11

INTERPROC EX? R
MACRO M1200 06-DEC-82 12:16
TRAP DECODER
06-DEC-~82
2:20

ad
D
b oD oD cmd oD vd

007622
007624
007630
007632
007634
007636
007642

010046
016600
005740

000002

006300
016000
000200

007644

$TRAP:

MOV
MOV
TST
MovB
ASL
MOV
RTS

111000

ARl idtiiildl2d222222
2020

;GO TO THAT ROUTINE.

b cd

.SBTTL
:THIS

RO,=(SP)
2(SPY Q0
=(RG,
(RO) ,RO
RO
$TRPAD (R0O) ,RO
RO

TABLE

d o
b

:
007644
007644
007646
007650
007652
007654
007656
007669
007662
007664
007666

005674
006140
006114
006154
006342
007116
007046
007330
007450
016004
1044C0
104401
104402
106403
104404

104405

104406
104407
104410
104411

;:SAVE RO

::GET TRAP ADDRESS

;:BACKUP BY 2
J:GET RIGHT BYTE OF TRP
J:POSITION FOR INDEXING
;;INDEX TO TABLE
2:G0 TO ROUTIME

TRAP TABLE
CONTAINS

THE

STARTING ADDRESSES OF

;BY THE °‘'TRAP'' INSTRUCTION.

b
od
D
b omd eed omd
b
o
o
e
d s
b
b
D
D
b
d
o md
b e
b

AAAARAAAA

THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'’ INSTRUCTION
SAND USE IT TG INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
THEN USING THE ADDRESS OBTAINED IT WILL
:OF THE DESIRED ROUTINE.

00 000000000000 00 N NN NNNNNNNOOOROOTO
OO NN N VWVIWVIWNVWNIVLES IS S S
NOWVMEBWN=O VB NO NS WOV NS WN
OOV
~NOWVIS W 2OV~
N S

SEQ 0057

TRAP DECODER

.SBTTL

o cnd =D

WSLASLASTAN LS LN NN LS LSS TN ST ST N L ST, ST NN, TN ST NS [N LS NS 1 S [ ,NT,NT,NT,N T,V 1,V 1, N1,V 1,8 1 VT, §1, N1, ST, N1, ¥]

2142
2143

F_5
PAGE 63

$TRPAD:

THE

ROUTINES CALLED

ROUTINE
$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
$GTSWR
$CKSWR
$RDCHR
$RDLIN

RESYNC
TYPE=TRAP+0
TYPOC=TRAP+1
TYPOS=TRAP+?2
TYPON=TRAP+3
TYPDS=TRAP+4

GTSWR=TRAP+S

CKSWR=TRAP+6
RDCHR=TRAP+7
RDL IN=TRAP+10
RSYNC=TRAP+11

;s CALL=TYPE
s . CALL=TYPOC
;¢ CALL=TYPOS

;s CALL=TYPON

s sCALL=TYPDS
;s CALL=GTSWR
s s CALL=CKSWR
s CALL=RDCHR
s CALL=RDLIN
;s CALL=RESYNC

TRAP+0(104400)
TTY TYPEOUT ROUTINE
TRAP+1(104401)
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TRAP+2(104402)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TRAP+3(104403)
TYPE OCTAL NUMBER (AS PER LAST 7a.L)
TRAP+4 (1n (1N4404)
TYPE DECIMAL NUMBER (WITH SIGN)
TRAP+5(°04405)
GET SOFT-SWR SETTING
TRAP+671044)6)
TEST FOR CHANGE IN SOF T-SWR
TRAP+7(104407)
TTY TYPEIN CHARACTER ROUTINE
TRAT-+10(104410) TTY TYPEIN STRING ROUTINE
TRAP+11(104411) PROGRAM RESYNC

CIDAVAQ DAV11
CZDAVA.F11

INTERPROC EXER

MACRO M1200 O06-DEC-82 12:16 PAGE 64
06-DEC-82 12:20
INTERBOARD COMMUNICATION SUBROUTINES

2189

.SBTTL

SEQ 0058

INTERBOARD COMMUNICATION SUBROUTINES

2190

.'“Q"'..".'."..."""""'."'...t""."'..'.'.i'."'."""Q"".'.

5102

.':""'."."."'."E'""""""*'Q"fi..""""."'.'.t"."'.'.'Qt"

191

;WIN

2193
2194 007670
g}gg 007670
2197
2198
2199
2200
2201
2202
2203
2204
5582

012737

000004

007676

005037

001404

007702
007706
007710
007714

030477
001035
005337
001372

171462

007716
007722

005337
0013¢

558; 007724

001406

;WAIT FOR BITS SET
JSETUP ABORT TIMER

MOV

#4 ,ABORT

10%:

CLR

TIME

15¢%:

BIT
BNE
DEC
BNE

R4 ,aDRVCSR
WTEXI
TIME
15¢%

DEC
BNE

ABORT
10%

sCLEAR SUB LOOP COUNTER
; INNER LOOP
JWAIT FOR BITS SET
JYES:
CONTINUE
;DECR SUB LOOP COUNTER
JCONTINUE UNTIL ZERO
JOUTER LOOP
JDECR MAIN LOOP COUNTER
JCONTINUE UNTIL ZERO

WwTABO

;TIMEOUT:

001404
~"1406

00041

2209

ABORT PROGRAM

.'."."'i'..t"fii'*Q""'"""."'.'*Q".t.""fi"‘fi"""".'.'.Q'Q"'Q

2210

;WTEQ

2211

".'fi"tt.t't‘.it"fi'.""i"."'i"..'.."'.".ifi"i"'.i.".fi'.".i"Q. [ X i

2212
2213 007726
¢214 007726
2215
2216 007734

2217 007740

2218
2219
2220
2221
2222
Sggz

WTNE:

007744
007746
007752

012737

000004

005037

001404

001416
005337
001372

001404

030477

007754
007760

005337
001365

Sssg 007762

000400

2227
2228
2229
2230
SS;;

007764
007770
007776
010000

011637
017737
104017
104411

2233
2234 010002

000207

001406

WTEQ:

(LR

171424

BIT

001406

001412
171374

MOV

001414

Wil

#4 ,ABORT

TIME

R4 ,3DRVCSR

JWAIT FOR BITS CLEAR
JSETUP ABORT TIMER
;INNER LOOP
sCLEAR SUB LOOP COUNTER
JWAIT

1 DR BITS

CLEAR

BEQ
DEC
BNE

WTEXI
TIME
15%

DEC
BNE

ABORT
10%

JYES:
CONTINUE
;DECR SUB LOOP COUNTER
sCONTINUE UNTIL ZERO
;OUTER LOOP
;DECR MAIN LOOP COUNTER
sCONTINUE UNTIL ZERO

B8R

WTABO

;TIMEOUT:

ABORT PROGRAM

MOV
(SP),$TSTP(
MOV
aDRVCSR,SERRST
ERROR+17
RSYNC

JSYNC LOST, RESTART
;SAVE PC
;SAVE (SR
JALERT OPERATOR THAT WE'RE STUCK
sAND RESYNC

RTS

;PROGRAM SYNCHRON]ZED
JRETURN

CZDAVAQ DAVIT
CZDAVA.F11

INTERPROC EXER
MACRO M1200 06-DEC-82 12:16 PAGE -*
06-DEC-82 12:20
INTERPROCESSOR PROGRAM RESYNCHRONIZAiION ROUTINE

SEQ 0059

2237
2238

LSBTTL
INTERPROCESSOR PROGRAM RESYNCHRONIZATION ROUTINE
;;tttttttttttinttttfltQ"tittt't'tttQQttttttttt"t't't""tttttQtt"ttttt

2240

;.'tttt'ttttt'ttttt'ttttt'wtttttt'li'ttttttttttttttt"t't't'tttt'ttt'tttt

223%9

sRESYNC

22
2242 010004
2243 010004
2244 0100'0
2245 010014
2246 010020
2247 010022
ggzg 010030

004737
012706
005737
001404
012737
000403

010072
001100
001420
000014

001406

10¢%:

%Sg? 010032

012737

000030

001406

20%:

2252 010040
2253 010040
2254 010044

005037
005337

001404
001404

2256 010052
55?3 010056

005337
001370

001406

2255 010050

2259 010060
2260 010062
sgg; 010066

001375

000005
104400
000137

RESYMC:

:
;o INITIALIZE STACK POINTER
J:WAS THIS CPU STARTED AS MASTER?
JJYES:
SETUP DELAY FOR MASTER
:2SLAVE CPU:
WAILIT FOR MASTER TO
JsREACH ITS RESYNC ROUTINE

MOV

#30,ABORT

::MASTER CPU:

WTSYNC:
10%:
(LR
15%:
DEC

TIME
TIME

:;CLEAR SUB LOOP COUNTER
::DECR SUB LOOP COUNTER

DEC
BNE

ABORT
108

;:DECR MAIN LOOP COUNTER
s sCONTINUE UNTIL ZERO

RESET
TYPE
JMP

,SYNMSG
SYNCST

010217
001776

15¢%

WAIT FOR SLAVE

s sCONTINUE UNTIL ZERO

::RESET PROCESSOR
::TYPE THE MESSAGE
:sAND RESTART

:;tttttttttt't'tttttttit"t'tt"t"tttttttt"tt'ttttt'ttt'tt"tttQtttttt

2264

2265

2266 010072
2267 010076
2268 010100
2269 010104

005737
001403
106427
000207

gg;} 010114

000207

012737

001454

000340

177776

;CPUHI

AL R A AR A A A A A

CPUHI:

157
BEQ
MTPS
RTS

LSI
1%
#340
PC

RTS

000340

2273

1%:

MOV

#340,PS

A A A A A Al

A A

AR AR AR

AlL)

;1S THIS CPU AN LSI?
;NO:
UNJBUS
;SET HIGHEST PRIORTY (LSI)

:SET PRIO7, IN UNIBUS

.-.-ttttt'ttttttttttt't't'tttitttttttt'.'tttt"tttttttttt't'ttt'ttttt'tt't

2274

:CPULOD

2275

2276 010116
2277 010122
2278 010124
2279 010130
2280 010132
2281 010140

PC,CPUHI
#STACK,SP
MSTER
208
#14 ,ABORT
WTSYNC

BNE

2263

2270 010106

JSR
MOV
TST
BEQ
MOV
BR

.-:tttttttttttttt'ttttttttt"tt"ittttittt'ttt.it'tttfittttttttttttt"t't'

005737
001403
106427
000207
012737
000207

001454

CPULOD:

000000
000000

177776

1%:

TST
BEQ
MTPS
RTS
MOV
RTS

LSI
1%
#0
PC
#0,PS
PC

:1S THIS CPU AN LSI?
:NO:
UNIBUS
:SET LOWEST PRIORITY (LSI)
;SET PRI0O,

IN UNIBUS

CZDAVAD DAVI1
CZDAVA.FI
2284
2285
2286
2287 010142

MACRO M1200 06-DEC-82 12:16
INTERPROC EXER
06-DEC-82 12:20
ASCII MESSAGES

TITLE:

.ASCII
.ASCI:+
LASCIZ

<CRLF>
\CZDAVAO DAV11-A/B INTERPROCESSOR EXERCISER\
<(CRLF>

,ASCIZ

<CRLF>/*RESYNC.../<(CRLF>

132
000

104

S%g} 010217

200

052

122

SYNMSG:

124

105

123

EM1:

124
123

105
114

123
101

EM2:

2295 010327
2296 010360

2297 010421

123

2298 010440
2299 010473

106
123

2301 0105461

123

2300 010512

2302
2303
2304
2305
2306
2307
2308
2309
2310
2311

010560
010613
010632
010666
010704

127
123
102
123
106
123
123
123
127
123

1264
10
124

1264

124

117
124
125
124
10

101

m
101

101
101

122
101
106
101
11

EM3:

LASCII

/TEST 1

STATUS: MASTER/<CRLF>

.ASCIZ

/SLAVE FAILED TO ECHO DBR CONTENTS/

JASCII

/STATUS: MASTER/<CRLF>

LASCI1
.ASCIZ

/TEST 2
STATUS: MASTER/<CRLF>
/SLAVE FAILED TO ECHO °'STAT® BITS/

EMé4:

+ASCIZ
LASCI]

EMS:

LASCII

/STATUS: MASTER/<CRLF>

+ASCI]
LASCIZ
_ASCI]
LASCIZ
LASCI]

/STATUS: SLAVE/<CRLF>
/STATUS ERRCR ON °'DATO'/
/STATUS: SLAVE/<CRLF>
/WORD COUNT ERROR ON °DATO'/
/STATUS: SLAVE/<CRLF>
/BUFFER ADRS ERROR ON °‘'DATO'/
/STATUS: SLAVE/<CRLF>
/DATA ERROR ON °‘DATO'/
/STATUS: SLAVE/<(CRLF>
/NO ATTN INTR/
/STATUS: SLAVE/<CRLF>
/ATTN STATUS ERROR/
'STATUS: MASTER/<CRLF>
ANNOT START COMMUNICATION WITH SLAVE=/
+ V\ITING FOR DSTATC/<CRLF>
,
UCK WAITING FOR COMPANION INTERLOCK/<(RLF>
/ERRPC
/ERRPC
/ERRPC

EM6:
EM7:

.ASCIZ

.ASCIZ
LASCI]
.ASCIZ
+JASCII
LASCIZ

/FAILED TO INTR ON A °'DATI*/
/STATUS: MASTER/<CRLF>

/STATUS ERROR ON ‘'DATI‘/

/WORD COUNT ERROR ON °DATI'/
/STATUS: MASTER/<CRLF>
/BUFFER ADRS ERROR ON °'DATI'/
/STATUS: SLAVE/<CRLF>
/FAILED TO INTR ON °'DATO'/

101
101
101
122
101
106
101
124
101
040
101
124
101
116
m
125

EM10:

102
123
104
123
116
123
101
123
103
127
123

124
124
124
117
124
125
124
101
124
117
124
124
124
101
101
124

EM17:

+ASCIZ
<ASCI1
.ASCIZ
_ASCI]
+ASCIZ
_ASCII
.ASCIZ
.ASCII
LASCI1
LASCIZ
.ASCIZ

2324 011443
2325 011500
2326 011535

105
105
105

122
122
122

DHI:
DHZ:
DH3:

.ASCIZ
JASCIZ
.ASCIZ

2329 011554

001116

001122

001124

DT1:

$ERRP(C,$BDADR,$GDDAT ,$BDDAT,0

2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
S%S%

010735
010753
011002
011020
011053
01107
011125
011143
011170
011206
011223
011241
011263
011302
011350
011374

123

116

Sgg;

2330 011566
S;g; 011574

001116
001412

001414
001414

000000
000000

SEQ 0060

ASCII MESSAGES
BEX

200
103
200

22964 010265

.SBTTL
NLIST

2288 010143
gggg 010215

2293 010234

PAGE 66

EM11:
EM12:
EM13:
EM14:
EM15:
EM16:

DT2:
DT3:

EVEN

$ERRP(,S$ERRST,O
$TSTPC,$ERRST,O

BUSADR EXPCT
MEMADR EXPCT
DRVCSR/

RCVD/
RCVD/

CZDAVAQ DAVI1

CZDAVA . FIN

INTERPROC EXER

06-DEC-82 12:20

2334
2335

PROGRAM AREAS

PAGE 67

5
SEQ 0061

SYPATCH' 1S A PATCH AREA FOR TEMPORARY CODE.
A

011602

ARALAARAS

PATCH:

.BLKW

2RSSRl

12.

220222222

RRRE

:"ttt"'t"'..t."""'t"'Q""fi"'t".'tt't.t"tt"ttt.t""tt

:'DBUF* IS THE WORKING AREA IN MEM FOR ALL NPR OPERATIONS.

1
4

06-DEC-82 12:16

.SBTTL
PROGRAM AREAS
;".QfiQ..tt."""."Q""""Q"'..."'Ql.".....Q"'Q"Q.Q"'.'

MACRO M1200

011632

000000
000001

':."QQQ"Q‘Q.Qtt'"""""""'Qt..'Q."t.t.'t.'tttt.t't"t'QQQ

DBUF:

.END

;15T ADRS OF DATA BUFFER

CZDAVAQ DAVI1
CZDAVA.F11
ABORT

001406

BITO

= 000001

81701
BIT02
BIT03
BIT04
BIT0S
BIT06
BIT07
BITO8
BIT09
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
BITZ2

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

BIT4
BITS
BIT6

= 000020
= 000040
= 000100

BIT00 = 000001

BIT3

000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004

= 000010

BIT7? =
BIT8
=
BIT9
=
BPTVEC=
C(KSWR =
CLRBUF
CPUHI
CPULO
CR
=
CRLF
=
DBUF
DDISP =
DELAY
DH1
DH2
DH3
DISPLA
DISPRE
DRVAOR
DRVBAR
DRVCSR
DPRVCTO
DRVCTZ
DRVDBR

000200
000400

001000
000014
104406
005606
010072
010116
000015
000200
011632
177570
005574
011443
011500

011535
001142
000174
001360
001366
001370
001374
001376
001372
DRVECT 001362
DRVISR 005666
DRVWCR 001364
DSTATA= 004000
DSTATB= 002000

INTERPROC EXER
MACRO M1200 O06-DE(-82 12:716
06-DEC-82 12:20
SYMBOL TABLE

K_ 5
PAGE 67-1

SEQ 0062

DSTATC= 001000

PR3

= 000140

swi3

D11

PRS

= 000240

SW15

DSWR

= 177570

01155¢4

PR4¢

= 000200

SW14

= 020000

$EOP

= 100000

$ERFLG

= 040000

SEOPCT

005376

005420

001103

DT2
DT3
EMTVEC=
EM
EM10
EM11
EM12
EM13
EM14
EM15
EM16
EM17
EM2
EM3
EM4
EMS
EM6

011566
011574
000030
010234
010735
011002
011053
011125
011170
011223
011263
011374
010327
010421
010473
010541
010613

PR6
= 000300
PR7
= 000340
PS
= 177776
PSW
= 177776
PWRVEC= 000024
RDCHR = 104407
ROLIN = 104410
RESVEC= 000010
RESYNC
010004
RPRAM
001432
RPRAM4
001446
RSTVEC
005554
RSYNC = 104411
R6
=X000006
R7
=%000007
SAVE
001416
SCOPE = 000004

w2
=
sw3
=
SWwé
=
SWS
=
Swé
=
Sw?
=
Sw8
=
SW9
=
SYNCST
SYNMSG
S3INI
SLINI
TBITVE=
TEMP
TIME
TITLE
TKVEC =

000004
000010
000020
000040
000100
000200
000400
001000
001776
010217
004166
004736
000014
001410
001404
010142
000060

SERMAX
$ERROR
SERRPC
$ERRST
$ERRTB
SERRTY
$ERTTL
SFILLC
SFILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$ICNT
$INTAG
$ITEMB
SLF

001115
006566
001116
001414
001170
006712
001112
001156
001155
001120
001124
005450
007116
001104
001135
001114
001166

EOPT
EOPTA
EOPTB

005352
005514
005522

SETUP3
SETVEC
SINIT1

001722
005534
003656

TRAPVE= 000034
TRTVEC= 000014
TYPDS = 104404

$LPERR
SMNEW
$MSWR

001110
007611
007600

000004
000002
000004
000010
106405
000011
001422
001402
000020
005624
000012
001454
002014

START
START1
START2
STAT
STKLMT=
STST1
STST2
STST3
STST4
SWR
SWRCK
SWREG
SW0
=

001474
001460
001466
001400
177774
003734
004026
004200
004750
001140
006702
000176
000001

$OFILL
$OMODE
$PASS
$QUES
$RDCHR
$ROLIN
SRTNAD
$SWR
=
$7k8
$TKS
$TN
=
$TPB
$STPFLG

006337
006340
001100
001164
007330
007450
005472
122000
001146
001144
000001
001152
001157

EM?7

010666

ERRFLG 001456
ERROR = 104000

ERRVEC=
FNCT1 =
FNCT2 =
FNCT3 =
GTSWR =
HT
=
ICOUNT
INTFLG
IOTVEC=
LDBUF
LF
=
LSI
MINITT

MSTER
MTPS
=
MTST1
MTST2
MTST3
MIST4
M3INI
MLINI
PATCH
PIRQ =
PIRQVE=
PRO
=
PR1
=
PR2
=

001420
106427
002100
002272
002514
003200
002502
003166
011602
177772
000240
000000
000040
000100

SETUP2

001676

SL1STR 003750
STACK = 001100

swo0
Sw01
sw02
sw03
SW04
SW05
Sw06
SW07
SW08

sw09
SW1
SW10
SW11
SWw12

=
=
=
=
=
=
=
=
=
=
=
=
=
=

000001
000002
000004
020010
G.)Y020
000040
000100
000200
000400
001000
000002
002000
004000
010000

TPVEC = 000064

TYPE
= 104400
TYPOC = 104401

TYPON =
TYPOS =
WTABO
WTEQ
WTEXI
WINE
WISYNC
XPRAM
XPRAM4
$AUTOB
$BDADR
$BODAT
$BELL

$CHARC
$CKSWR
$CMTAG
$CM3 =
$CNTLG
$CNTLU
$CRLF
$DBLK
$DOAGN
$DTBL
$ENDAD
S$ENDCT
SENDNG
SENULL

104403
104402
007764
007726
010002
007670
010040
001424
001440
001134
001122
001126
001160

006110
007046
001100
000000
007573
007566
001165
006556
005470
006546
005460
005426
005477
005474

SLPADR

SNULL
$OCNT

$TPS
$TRAP
$TRPAD
$TSTNM
$TSTPC
S$TTYIN
$TYPDS
$TYPE
STYPEC
STYPEX
$TYPOC
$TYPON
~$TYPOS

001106

001154
006336

001150
007622
007644
001102
001412
007556
006342
005674
006044
006112
006140
006154
006114

CZDAVAQ DAV1I1
CZDAVA.F11

INTERPROC EXER
MACRO M1200 06-DEC=82 12:16
06-DEC-82 12:20
SYMBOL TABLE

. ABS.
011634
ERRORS DETECTED:

PAGE 67-2

000

VIRTUAL MEMORY USED:

12735 WORDS

(

50 PAGES)

DYNAMIC MEMORY:
14114 WCRDS
( 54 PAGES)
ELAPSED TIME:
00:00:38
IDAVAO.BIN/DS:GBL/EN:ABS:AMA,ZDAVAQ/CR:SYM/=SP=[6,1]SYSDGN,L[6,4])ZDAVAD.P11

SEQ 0063

IDAVAD
CZDAVA. P11
SYMBOL

ABORT

CREATED BY

VALUE

001406

MACRO _ON 6~DEC-82 AT 12:16
PAGE
1
06-DEC-82 12:20
SYMBOL CROSS REFERENCE
REFERENCES

#g?-gg;c
*

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000001
000001
000002
000004
000010
000020
000040
€00100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000

#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437

BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT9
BPTVEC
(KSWR
CLRBUF
CPUHI

=
=
=
=
=
=
=
=
=

000010
000020
000040
000100
000200
000400
001000
000014
104406
005606
010072

#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
47-1536
42-1273
27-686
38-1137

= 000004

cCPULO
CR
CRLF

010116
= 000015
= 000200

DBUF
DDISP

011632
= 177570

*27-698

*27-705

*04-2195

+64-2204

21-437
21-437
21-437
21-437
21-437
21-437
21-437
21-437
21-437
21-437

33-942

36-1070

43-"332

57-1909
#50-1634
31-865
61-1246
65-2243

57-1930

57-1939

#63-2183

32-880
42-1263
#65-2266

32-904
42-1296

41-12461

66-2287
66-2303
66-2321
24-594
25-632

66-2289
66-2305
66-2322
24-598

+64=2222

+65-2247

+65-2250

33-916
43-1308

35-1010
45-1426

35-1035
46-1460

36-104¢
46-1469

42-1279

45-1442

#65-2276

66-2291
66-2307

66-2291
66-2309

66-2293
66-2311

66-2295
66-2313

66-2297
66-2315

50-1635

50-1648

#67-2343

23-475
23-535

23-481
#66-2324

#66-2326
*25-640

57-1912

33-941
27-701

57-1921

#21-437

49-1599

31-860

57-1908
65-14636
27-695
40-1201
49-1609

DH2
DH3
DISPLA
DISPRE
DRVADR
DRVBAR

011500
011535
001142
000174
001360
001366

#22-460
#21-449
#24=554
#2%-?%%5

DRVCSR

001370

#24-564

27-697

005574
011443

SEQ 0064

57-1913

32-894
52-1732
51-1702
66-2301
66-2319
24-590
22-460
31-8063
23-469
23-529
#66-2325
23-547
*25-632
25-640
25-653
Z§-§221

DELAY
DH1

*64-2214

vO1

BITO
BITOG
BITO1
BITO2
BITO3
BITO4
BITOS
BIT06
B1707
BITO8
BITO9
BITI
BIT10
‘BIT11
BIT12
BIT13
BIT14
BIT15S

BIT?2

CREF

#21-437
#21-437
66-2299
66-2317
24-586
#21-437

28-741
23-463
23-517
23-523
23-541

35-1025

32-887

33-950

23-487

35-1017

23-493

37-1084

41-1244
23-499

#49-1620
23-505

23-511

33-946

35-1021

36-1069

36-1073

42-1278

63-1330

27-708

28-736

29-761

29-772

29-782

30-802

MMM[fai¥]oaV]oNTMMOMM-ynmn[0aNV]-IOTMTNM~OMOIMOMMOIMSI
O—— T ITN N N N STTNDNS P ST NONT N Ve OO

OUIOO<NIEN'.1M0T0TVWQ@TOIMoENIp)1ITWDVbTONNEMEMYWSOIN0eNOAO0oIAMOreYX00TeNErAOVOMOOeZOI0—cOIOMNMEeOe—ATYNTO—MIIeONOTEVeI0EOJMTONMIcNOEOERNeMMOOU=OVNI0ESMSOMOOOINZ0OMOO0ENIOVOITMIOWWT40OOMI—C)OOONOOMxAOI=OAMII0OMOONOO VBTNUUPe8V-eAOOM—(NAMONO=—M.NTAMUOOV8b-w NO —OI3N0OMI=vO00NSOVOAU)ITOMNDL(aA7ILNOUNIU|NOWxM~MONOTIU—MSVOTX"R0IO0O>tO—W10OOOV—MSJ$FNNOOM—O<I—03IrSFAMWIOYNTWITeJM8MNNNS0rOWIOONTOMU0—AMNANNWrNINL~MNO~O0TENOM(=S >W=}
o~]][}rawwJ Moo"RM[ =MoMY]JaYOMYtLSRRMNoo[1amVMM0IcaIVWeY>EEC oO~O]L ([0eL=~]—=LMARANFM0LJL-INOIU=MLlNFOTM=M0UWOONDAO—4Ur=|L —
oo-U— b[o)¥aM~-4U—A a(OoM-V10—) -oMN~[—} MO—0M~NO2MN0AITSMAI0MTRM=NNIOrNLMGNI0S0O§E

W--—(—oM]oNOMo4((rs)=A[[oy~X&l)][m0L0raawOL00e)TO)eQNA3GOeeNL—rOeVLvOX)Ae%r—WNeLX=)rXNAMXUeILB)NXeWXrW3eUOXrU3WLoe|rUBalrXOOLEL2MO—aal“woo|LMM—w4o(Na0.=[]naS}Nvl=M«]]NYOMe~-OWw—nI(-Mo[NMNL-4~ooONOR)o!—aM0—]Y—NayoY0~)okD“—=M=VoeOOM~U]Q3MO0[-CB—N[[LW}YO"—~ea~4y=MOal—x—oYnak=¥x)~5L)o-[NoMToVO5-~QTo][L[M}}——aaoNM[lnnYOddaaRONgYY[~xD)omOr0N—0rTTOMOW—d0)—~MN—V~NOMMeTNo=-UTOlO—M—OITe=AO—<ovA0WrO8NIION—ONON=NeMrATMMNOr——I[O=NMTDr—EVMDNW~0vaI—NNPMlOArFNIPOVO=IN—N0U—aOYOIGNlIQMWINDQMOOI~OAIO=NOMNNI|§NSES-(]474o[]+
IDAVAO
CZDAVA.F11

n>1a]n

*44-13564

ERROR

ERRVEC

104000

= 000004

o NO N MON

MPOOOOO0OOO OA<—IUAMNCOFNWU0AI VOA—Wre-rQ—e—0er—lNe— O=T-eN

PAGE 2
CREATED BY MACRO ON 6-DEC-82 AT 12:16
06~DEC~82 12:20
SYMBOL CROSS REFERENCE
CREF

L
4

44-1383
x44-1391

Vo1

OD30oMvIO~S

SEQ 0065

CREATED BY

IDAVAQ

MACRO

PAGE 3
ON 6-DEC-82 AT 12:16
SYMBOL CROSS REFERENCE

ll<

CZDAVA.F 11
06~DEC-82 12:20
SYMBOL
REFERENCES
FNCTY
#21-442
000002
FNCT2
FNCT3
GNS
GTSWR

000004
000010
thteRY

104405

000011

ICOUNT
INTFLG

001422
001402

10TVEC
LOBUF

= 000020
005624
= 000012
001454
002014
001420

LSI
MINIT1
MSTER
MTPS
MTST1
MTST?2

106427

002100
002272
002514
003200
002502
003166
011602

MTST3
MTST

M3IN]

| M& INT

PATCH

177772

PIRQ
PIRQVE

000240
0000C0
000040
00Ci09
C00140
000200
000240
000300
000340

PRO
PR1
PR2

PR3
PR&

PRS

177776
177776

000024
104407
104410

000010
010004
001432
001446
005554
104611

=2000006
=2000007
001416
SCOPE

SETUP?
SETUP3

= 000004

001676

001722

29-761

47-1512
37-7092

39-1190

#21-443
#21-444

CREF

29~772

29-782

44-1385

4£7-1509

V01

SEQ 0066

34-966

37-1094

38-1146

39-1179

*45-1433

45-1452

21649
26-677

#21-437
#24-583
#24=575
*50=-1667
#21-437

*47-1539

32-897

35-1028

*42-1271

42-1289

*25-646

61-1236

65-2266

65-2276

*25-610

47-1537

65-2245

32-889

#21-437
#24-601

27-688

#24-582
#21-439

4L8-1588

27-702

#30-801
#32-884
#35-1014
#32-880
#35-1010
#67-2338
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437
#21-437

21-437

62-2112

#65-2184

63-2175

#65-2242
42-1277
45-1440

27=710

#63-2186

#63-2185
#21-437

#24-589
#24-597
31-866

#21=-437
#21-437
#24~-581
*40-1225
#21-43%7
#26-657
#26-664

25-645

*65-2270

34-996

21-437
21-437
*34-975
40-1227
26-660
26-667

*25-616
+37-1103

44-1389

*65-2280

43-1326

43-1327

43-1339

44-1407

47-1532

#49-1609

+36-11 70

39-1171

43-1340

25-617
37-1104

*47-1505

47-1513

39-1172

*40~1224

ZDAVAQ

CZDAVA.F11

PAGE &
CREATED BY MACRO _ON 6-DEC-82 AT 12:16
06-DEC-82 12:20
SYMBOL CROSS REFERENCE

SYMBOL

VALUE

SL1STR
STACK
START
START1

003750
= 001100
001474
001460

SETVEC
SINIT

START?2
STAT

005534
003656

SWR(CK

006702

000176
= 000001
= 000001
= 000002

Sw03
SW04

= 000010
= 000020

SW06
SW07
SW08
SW09
SW1

SW10
SW11

=
=
=
=
=

SW9
SYNCST
SYNMSG
S3INI
S4INI
TBITVE
TEMP
TIME

42-1264

45-1427

26-679

27-696

38-1138

65-2244

26-675

57-1913

57-1921

35 1019

-1030
*35~
*64-2216

*42-1¢76

#49-1599

39-1184

*25-631

25-633

*25-639

25-639

26~675

59-2006

59-2020

57-1927

= 002000

= 004000

= 000010

Sw8

61-1238

SEQ 0067

21-437
21-437
21-437
21-437
21-437
21-437
21-437
21-437
21-437
21-437

000100
000200
000400
001000
000002

SwW3

SwW?

35-1011

25-0617
59-2040

#57-1938

= 000049

= 010000

SWé
SW5
SW6

44-1405
47-1530

= 000004

SwW12

SW13
SW14
SW15
SW2

#39-1159

001140

SWKEG
SWo
SW00
SWO1

SWO05S

vo1

001400

= 177774
003734
004026
004200
004750

SW0?2

31-857

CREF

001466

STKLAT
STST
STST?
STST3
STST4
SWR

REFERENCES

=
=
=

020000
040000
100000
000004

= 000020
= 000040
= 000100

= 000200

= 000400

= 001000
001776
010217
004166
004736
= 000014
001410
001404

65-2261

#66-2291

*45-1439

*65-2254

*27-699

*45-1454

*27-703

*(8-1585

+32-891

*48-1580

*32-899
*64-2197

*64-2201

*64-221%

*42-129

*§5-2253

< =

PAGE $
IDAVAQ
CREATED BY MACRO ON 6-DEC-82 AT 12:16
CZDAVA, p 1
06-DEC-82 12:20
SYMBOL CROSS REFERENCE
ALUE
SYMBOL
REFERENCES
TITLE
#66-2287
010142
26-672
#21-437
TKVEC
00u060
TPVEC
000064

000034
000014

TYPOC
TYPON
TYPQS
WTABO
WTEQ

104401
104403
104402

$BDDAT

001126

#64-2213

34-987

37-1088

37-1115

39-1182

34-973

37-1101

39-1166

40-1222

42-1286

44-1380

32-895
35-1026

36-1064

36-1065

~32-909

*33-946

+35-1040
*46=1465

*66=-1476

+33-917
*36-1058

*43-1332

33-921
*36-1069
43-1333

*33-929
*36-1070

58-1977

58-1982

59-2043

66-2329

66-2330

34-960

*43-1315

*+44-1360

58-1971

00 —

58-1951

)
-

o
—

v
©o0O0

VOV
0D —=O
A%,]
co~N

— N

d ad

O~
|
]
]

VWV
—O~
On

?100 oo 0o
]

r
R
NS
»

QOWNOD
& = NO O~

S ONNON

52-1725

» » R
VIOV

S -R R
e R
L
Yy . N
o N e Je NV, IV, IV IV IV IV T. .10, 1o Yo )
o OOV
NIWNWNE O

006556
005470
006546

NN@WN?@WU\WMN
[
]

001165

47-1522

*43-1309
46=1474

001160

006110
007046
001100
000000
007573
007566

L47-1495

57=191
59-2u1
# 63-217

28-743
33-943

~ [o W

$CHARC
$CKSWR
$CMTAG
$CM3
$CNTLG
SCNTLU
SCRLF
$DBLK
$DOAGN
$DTBL
$ENDAD
SENDCT
$ENDNG
SENULL
$EOP
$EOPCT
$ERFLG
SERMAX
$ERROR
SERRPC
$ERRST
$ERRTS

+30-802

*42-1301

[ ¥
b
SN

$BELL

32-893
35-1021

XPRAM4
$AUTOB

#64-2194

- $BDADR

010040
001424
001440
001134
001122

57-1924
59-2018
65-2260

564-1804
58-1981
62-2120

31-847

nN
no
]

i
H

WTSYNC
XPRAM

#63-2181
48~1563
58-1970

007764
007726

010002
007670

SEQ 0068

*25-624

104404
104400

WYEX]
WTNE

vO1

NONW

TRAPVE
TRTVEC
TYPDS
TYPE

CREF

*57-1919

*64-2229

58-1950
59-2022

+36-1053

*44-1359

ON 6-DEC-82 AT 12:16
b
b
—

$STYPEC

$TYPEX
$TYPOC

$TYPON
$TYPOS

001150
007622
007644
001102
001412
007556
006342
005674

006044

006112
006140

006154

006114

+30-833
*36-1049

*43-1311
L6-1474

*32-907
36-1051

*63-1319
L6-1482

«4(3-1326
66-2329

NOINUND)
= cd k=B NI

= =0 WNNINOO
N — NNOWNINNO
= (WWW
W NIWNOONN
OO

59-2044
*57-1920
62-2126

NN = = PONININL
= PO =2 =2 b
NOND S~
NN
= =2 = NN == NN
OO0
O NN
W= O N = POWVNON
NN oW
O ==
WS NYNOROOOOH
VOO co—
oo

$TPS
$TRAP
$TRPAD
$TSTNM
$TSTPC
STTYIN
$TYPDS
$TYPE

006340
001100
001164
007330
007450
005472
= 122000
001146
001144
= 000001
001152
001157

*30-804
33-943

63-2171

WWWFJ—'WWNJ\QWWN—"}J
OO WWO
=N
L
I
D
I
I
I
100O WW
0 0 LS
0002

$OMODE
$PASS
$QUES
$ROCHR
$RDL IN
$RTNAD
$SWR
$7kB
$TKS
$TN
$TPB
$TPFLG

006336
006337

CREF

v01

» &

SOCNT
$OFILL

005450
007116
001104
001135
001114
001166
001106
001110
007611
007600
001154

»
00
N R
Yo Yo YWV IV VIV, T Vo X

$GET42
$GTSWR
$ICNT
$INTAG
$1TEMB
SLF
SLPADR
$LPERR
SMNEW
“SMSWR
SNULL

*44-1361
#48-1570
#59-2018

+33-936
36-1071
*46-1463

s » A ¥
L3
[e 3V Te YV TV To Yo No Yo ¥ No N NV IV.IV. BNV, IV.
1. NI

+33.028
+36-1068

PAGE 6

CROSS REFERENCE

MACRO

CREATED BY

IDAVAQ

CZDAVA.F11
0€-DEC-82 1¢2:20
¢
SYMBOL
REFERENCES
SYMBOL
VALUE
SERRTY
58~ 4
006712
57-1938
#22-4
SERTTL
17
5760
001112
#22-460
$FILLC
00115¢
51~ 10
#22-460
$FILLS
001155
#22-460
$GDADR
001120
#22-460
$GDDAT
001124
*28-729

#54-1820
*53-1781
48-1565

22-460
61-2083
59-2046

*54-1794

#54-1821

61-2087
61-2081

61-2089

#62-2134

52-1724

#52-1740

63-2169

#52-1729

52-1730

60-2050

*33-919
«36-1057
+43-1330

SEQ 0069