Digital PDFs

AH-F914B-MC

May 1981

116 pages

Original

51MB

view download

OCR Version

70MB

view download

Document:	CZCMJB0 CMR11,CMV11 AA CMR11 HOST EXERCISER MAY 1981 bw
Order Number:	AH-F914B-MC
Revision:	000
Pages:	116
Original Filename:	CZCMJB0__CMR11,CMV11_AA__CMR11_HOST_EXERCISER__AH-F914B-MC__MAY_1981_gray.pdf

OCR Text

HOST

EXERCISER

CZCMJ BO

[

CMR11

IELL

F914B

FICHE

iDENTIFICATION

PROGRAM CODE:

AC-F9128-MC

PROGRAM NAME:

CZCMJBO CMR-11 HOST EXERCISER

DATE CREATED:
MODIF 1ED:

30-MAY-79
14=JAN-80, 28-NOV-80

MAINTAINER:

SPECIAL SYSTEMS KANATA

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

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g;sfih{BILITV OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
COPYRIGHT (C) 1979.,1981 BY DIGITAL EQUIPMENT OF CANADA LIMITED.

SEQ 0001 |

——-

——

HISTORY

SEQ 0002
NUMBER

REASON FOR MOD.

BY:

YC-2018E-0Z

ORIGINAL PROGRAM TO TEST (MR
HOST LOGIC.

D.G.W.

14-JAN-80

AC=F912A-MC (CZCMJAD)

ORIGINAL RELEASE T0 S.D.C, (U.S.)
PRODUCT BECOMES CATEGORY ‘A’

D.G.W.

28-NOV-80

AC-F912B-MC (CZCMUBO)

.CHANGE CNTRL CHAR FOR SFTWR SWITCH
REG FROM CNTRL=S TO CNTRL-G
PRINT DEFAULT PARAMETERS AT
START=UP,
-ADD A
CHAR, AND A FLAG TO
ALLOW PRINTING A PORT CONFIGURATION
WHEN
AVAILABLE.
S
IN THE PORT LOOP BACK TEST AND IN
THE EXERCISE PORTION.
. CORRECT THE ORDER OF BAUD-RATE
PRINTOUTS AT THE COMPLETION OF THE
FIRST PASS OF THE LOGIC TEST SO

D.G.W.

MOD DATE

NEW

30-MAY-80

STATUS PRINTOUT.

TABLE OF CONTENTS

HEAD ING

SEQ 0003
SECTION

GENERAL
REQUIREMENTS

RESTRICTIONS

CAUTIONS

ASSUMPTIONS

OPTIONS /7 CONTROLS

LOAD ING

LOGIC TEST
PORT LOOP-BACK
HOST-REMOTE EXERCISE
MAINTENANCE ROUTINE
END OF PASS

ERRORS

0000.0000

STARTING / RESTARTING

TEST DESCRIPTION
START-UP
TEST SELECTOR

GENERAL

SEQ 0004

THIS moawa T?
IS
8E
D TO TEST THE
COMPACT MICRO REMOTE
HOST HARDWARE
(
OR CMV11 M7181-M7182)AND TO BASICALLY CHECK COMMUNICATIONS BETWEEN THE HOST HARDWARE ON THE UNIBUS
AND THE REMOTE HARDWARE.

THE PROGRAM 1S DIVIDED INTO THREE PARTS, PLUS A FOURTH
PURPOSE ‘MAINTENANCE'' ROUTINE:

MULTI-

= HOST LOGIC TEST
= PORT LOOP-BACK TEST

= CMR EXERCISE ROUTINE

= "MAINTENANCE'' ROUTINE
THE HOST LOGIC TEST IS INTENDED TO BE RUN WITH ALL REMOTE

COMMUNICATION DISABLED OR DISCONNECTED AS IS THE PORT LOOP-

BACK TEST.
THE CMR EXERCISE ROUTINE, HOWEVER, CAN BE RUN
WITHOUT CHANGING ANY OF THE HARDWARE FROM ITS "'INSTALLED''
(T:gx?l"m.
FOR THE DETAILS OF EACH TEST, SEE THE ACOMPANYING

REQUIREMENTS
HARDWARE:

PDP-11 OR LSI-11
CMR HOST MODULE(S) ON THE UNIBUS (Q-BUS)
CONSOLE TERMINAL ON LINE.
PORT JUMPERS:
FOR PORT LOOP BACK TEST A

10 PIN FEMALE
PLUG IS REQUIRED
WITH PINS 9 TO 2 AND 7 TO 10 JUMPERED
FOR EACH PORT TO BE TESTED.

OTHER:
THE PROCESSOR MAINDECS AND CONSOLE TERMINAL TESTS

%fi; HAVE BEEN RUN SUCCESSFULLY BEFORE RUNNING

RESTRICTIONS

SEQ 0005 |

(NONE)
CAUTIONS

IT_IS NOT ADVIS&E 70 RUN THE LOGIC TEST OR THE
PORT LOOP-BACK
TEST ON
"ON=LINE'' SYSTEM WITH
THE REMOTES ATTACHED AS W—Ll'f DEVICES MAY BE

AFFECTED.
THE CMR EXERCISE WTI". HOWEVER,
MAY BE RUN UNDER THESE CONDITIONS.

COMMUNICATION PORTIONS OF THESE TESTS FROM HOST

T0 REMTE
AND REMOTE TO HOST MAY TAKE A CNSIDER(ksgsm
Y
N TIME IF THE PORT BAUD RATES ARE SET

CAUTION MUST BE EXERCISED WHEN USING THE ‘MAINTENANCE'' ROUTINE SO THAT FUNCTIONS ARE NOT STARTED
WHICH WILL COMPROMISE ANY ‘ON-LINE'’' SITUATIONS.
ASSUMPTIONS

5.1

IN THE PORT LOOP-BACK TEST, IT IS A§SUED THAT WHEN THE
OPERATOR TYPES <CR> INDICATING 'READY'',
HAS LOOPED A

;gn&rgrggrm TO INPUT PHYSICALLY, ND HAS SELECTED THAT PORT

5.2

IT IS ASSUMED, IN THE CMR EXERCISE ROUTINE, THAT THERE
ARE REMOTES ATTACHED (AT LEAST ONE) AND THAT THEY ARE

&REMIDLE.

IF THIS IS NOT THE CASE, THE ROUTINE WILL

OPTIONS / CONTROLS

6.1

6.2

SWITCHABLE OPTIONS (COMBINABLE)
SWR =

MEANS

100000
040000
020000
002000

DON'T HALT AFTER ERRORS
'T PRINT ERRORS
LOOP ON ERRONEOUS ROUTI
INHIBIT PROGRAM 1TERATIONS
DON'T PRINT END OF PASS

CONTROL CHARACTERS

CNTRL~C
CNTRL=G
CNTRL-P
CNTRL-0
CNTRL-F
mr&-r

CNTRL-A

RESTART TEST SELECTOR
SHOW *'SWR'* OPTIONS
PROCEED
ENTER *MAINTENANCE'' DEBUG ROUT INE
SHOW CONSOLE FILL COUNT
LA

PRINT PORT CONFIG TABLE

6.3

NON-SWR PROCESSORS

ON PROCESSORS WITH NO PHYSICAL SWITCH REGISTER
THE OPTIONS CAN BE EXAMINED OR CHANGED BY THE USE OF
'CNTRL=G'* AND AT THE TIME OF AN ERROR HALT. THE

PRINTOUT:

SWR = XXXXXX :
WILL SHOW THE OPTIONS
AND THE OPL'RATOR CAN LEAVE THEM (<CR>) OR LHANGE
THEM (YYYYYY<CR>), THEN PROCEED (P)

LOADING
THE PROGRAM IS SUPPLIED IN

.ABS

FORMAT AND IS LOADED

BY MEANS OF THE ABSOLUTE LOADER OR THE 'LOAD'' COMMAND OF
THE DIAGNOSTIC MONITOR XXDP.

STARTING / RESTARTING

STARTING ADDRESS :
RESTARTING ADDRESS :

200
204

TEST DESCRIPTION

9.1

START UP:

INTERFACE ADDRESS:

(NNNNNN)

INTERFACE VECTOR:

(NNN)

INTERFACE PRIORITY:

(NN)

THE VALUE SHOWN IN PARENTHASIS ARE DEFAULT VALUES WHICH WILL BE

USED IF ONLY <CR> IS ENTERED. IF A NEW VALUE IS ENTERED (OO0, IT
WILL BE USED AS THE DEFAULT AT FUTURE START-UPS.
IF THE PROCESSOR HAS NO SWITCH REGISTER,

THE SWITCH

OPTIONS WILL NOW BE SHOWN AND MAY BE CHANGED (AS IN #6).

SEQ 0006

H
9.2

TEST SELECTOR:

SELECT TEST (4 = HELP):
(HELP MESSAGE READS:)
SELECT ONE OF THE FOLLOWING:
CR OR 1 = LOGIC TEST

g = PORT _LOOP-BACK TEST
= (MR EXERCISE
& = THIS HELP INFO
CNTRL-C = TEST SELECT
CNTRL=G = SWITCH OPTION SELECT
CNTRL=F = CONSOLE FILL COUNT SELECT
CNTRL-O = DEBUG ROUTINE WHICH ALLOWS
LOADING SCPD AND STARTING

FUNCTIONS AND EXAMINING THE

RESULT.
CNTRL=A = PRINT PORT CONFIGURATION
STATUS TABLE IF AVAILMLE
P = PROCEED FROM SW MONITOR

9.3

LOGIC TEST:

CSR = CONTROL & STATUS REGISTER

SPAR = SCRATCHPAD ADDRESS REGISTER
SPDR = SCRATCHPAD DATA REGISTER

(CSR)

1514131211102276543210

INT
CHGSTA
ALMDET

ST FUN
INIT
ENABKS
ENACST

NOT USED

(SPAR)

MAIN

151413121110

NOT USED

0
>

SCRATCHPAD ADDRESS
NOT USED

REQ/RES
? = REQUEST
= RESULT

SEQ 0007

15113121110
9 8 7 6 5 4 3 2 1 0

(SPDR)

NOT USED

SEQ 0008

_SCRATCHPAD DATA

TEST OF THE PWR-UP SEQUENCE
TEST THE SCPD ADDRESS REG.
CPD MEMORY
w

m
(7]
]

1000

THE FOLLOWING TESTS ARE PERFORMED:

NIT.
~ CHECK SCPD ACCESS KEYS
= SIMPLE FUNCTIONS TEST

9.4

PORT LOOP-BACK TEST

THE PORT LOOP-BACK TEST USES THE PORT LOOP MAINTENANCE
FUNCTION OF THE HOST FIRMWARE.THE TEST WILL RUN WITH

OR UITH ALL PORTS SELECTED:

# (<CR> = ALL):
PORT
THE OPERATOR MUST ENSURE THAT THE PORT(S) BEING
TESTED IS(ARE) LOOPED FROM XMTR TO RCVR. THIS MAY
BE DONE BY PLUGGING
JUMPER PLUGS INTO THE HOST PORT
PLUGS OR BY SUI TCHING THE LDM (
)EITD(RAT THE
HOST,
OR AT ANY ONE REMOTE
ON A GIVEN PORT, TO '100P-

BACKTM'. (SEE CMR-11 SYSTEMS OPTION DESCRIPTi(N SEC. 2.5.1).
CMR HOST-REMOTE EXERCISE
THIS ROUTINE STARTS A BACKGROUND SCAN AND WAITS FOR THE
END OF A SCAN OF ALL REMOTES ON ALL PORTS (‘THRU'").
DURING THIS WAIT, iF ANY ALARMS OCCUR, THE BELL ON THE
TIMES FER m
T _THE COMPLETION OF
PROGRAM SHOWS

i’

9.5

nf PORT CONF IGURATION swusA§ FOLLOWS :
PORT #0
?r’c" #7

)

100¢1)

SHOWING EACH PORT

1(1)

101(1)

102(0)

(1)

103(0)

ONLY IF THERE ARE REMOTES
ON

PORT

WHICH ARE 'flsmnmno SHOWING THE REMOTE°'sm? WHERE:
(0) = INITIALIZED
(1) = PASSIVE

(2) = ACTIVE

srnannnnnts
sxannanasns

THIS PRINTOUT ALSO OCCURS IF CNTRL=A tatasnstttnn
[S TYPED ANY TIME AFTER THE FIRST
ARAANANANRAR

seensneness

TABLE

IS PRINTED.

FOLLOWING THIS PRINTOUT,

ARRRNRNRNNAN

THE ‘DIAGNOSTIC'® FUNCTION

IS ATTEMPTED ON EACH REMOTE PRESENT.

DURING THE REMAINDER
OF
EXERCISE, ALL REMOTES
WILL BE EXERCISED WITH TlE JAGNOSTICTM FUNCTION
AND ALL ALARMS WILL BE INDICATED (BY BELLS) AND
ANY CHANGES OF REMOTE STATUS WILL BE REPORTED:
e ?TE STATUS CHANGE ww+
#X
REMOIE

p REGULAR

REMOTE STATUS NOW- IRREGULAR

Yyvyy

9.6

"MAINTENANCE'' DEBUG ROUTINE

SEQ 0010 |

SE%AU"O‘ ?mo BE EXERCISED WHEN USING THIS ROUTINE

THIS ROUTINE OPERATES LIKE A SIMPLE 'ODT''. HOWEVER,
IT
OWS EXAMINING AND/OR DEPOSITING ONLY IN THE
CMR=11_SCRATCHPAD MEMORY. FOLLOWING ARE THE OPERATING
CHARACTERS::
XXXX/

(SLASH)

OPEN AND DISPLAY CONTENTS

<CR>

(RETURN)

CLOSE THE CURRENT ADDRESS.

<LF>

(LINE FEED)

XXXX<CR>
XXXX<LF>

OF THE SCPD ADDR ‘%X’

CLOSE_THE CURRENT ADDR. AND

OPEN THE NEXT SEQUENTIAL ONE.

DEPOSIT *XXXX'' IN THE CURRENTLY

OPEN ADDRESS AND CLOSE IT.

DEPOSIT °*XXXX'* IN THE CURRENTLY
OPEN ADDRESS, CLOSE IT AND

OPEN THE NEXT SEQUENTIAL ONE.
G

SET *STFUN'' OR 'MAIN'’ TO START
THE CURRENTLY LOADED FWCTI(N

'-n-PMCEED OUT OF THE °DE

ROUTINE AND RETURN TO

SPOT

WHICH WAS LEFT WHEN CNTRL-0
WAS TYPED. (ANY PROMPTS WILL

BE RE-ASKED).
(CSR ADDR)/

ALLOWS EXAMINATION OF THE HOST
CSR REGISTER ONLY. NO OTHER
UNIBUS ADDRESSES MAY BE EXAMINED

IN THIS FASHION.

9.7

END OF PASS
AY THE END
OF EACH PASS OF ANY OF THE THREE TESTS,

‘END PASS

ESSASE IS PRINTED UNLESS INHIBITED BY

SUITCH OPTION BIT 1
THE PRINTOUT IS IN THE FOLLOWING FORM:
END PASS # X ERR. CNT, =
:
WHERE

= THE PASS NUMBER IN DECIMAL
= THE TOTAL NUMBER OF ERRORS SINCE START (DECIMAL).

IF THE NUMBER
OF ERRORS BECOMES LARGER
THAN 64K,
THEN ++ OVERFLOW »v'' WILLBE PRINTED INSTEAD.
IF_SWITCH OPTION BIT 11 = 0, THIS MESSAGE WiLL BE

PRINTED ONLY AFTER 10

(OCTAL) ‘PASSES THROUGH WHICHEVER

TEST 1S RURNING. OTHERWISE, IT 1S PRINTED EVERY PASS:

L2 24

IN THE PORT LOOP BACK TEST AND THE CMR EXERCISE ROUTINE,
THE ELAPSED TIME SINCE START-UP (OR CNTRL-C)
PRINTED ALONG WITH THE END OF PASS MESSAGE FROVI ING
THAT THE PROCESSOR IS EQUIPPED WITH A REGULAR LINE-TIME

CLOCK. THE FORMAT OF THE TIME PRINTOUT IS AS FOLLOWS:
EL.TIM, HH:MM:SS:TT

(HOURS, MINUTES, SECONDS, AND TICKS WHERE ONE TICK = 1/60 SEC.)

10.

ERRORS
FOR THE MOST PART, ERROR PRINTOUTS ARE SELF-EXPLANATORY.
THE ERROR NUMBERS AND ADDRESSES CAN BE USED FOR REFERENCE TO
THE PROGRAM LISTING FOR FURTHER DETAILS.

SEQ 0011

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54

FETOPPY

e
e e e R R

1819-

e R

T TM

4V ]

TABLE OF CONTENTS

SYMBOLIC DEFINITIONS
MACRO DEF INITIONS
TRAP CATCHE

SYMBOLIC LISTING
Sl’ERVl” DISPAYCH
uos; LOGIC TEST
LGOP-BACK TEST
HOST-REMOTE EXERCISE

MAINTENANCE ROUTINE

WLILITY, ROUTINES
SWITCH'* MONITOR ROUTINE
MESSAGE PRINT ROUTING
KEYBOARD INPUT ROUTINE
BINARY TO ASCII CONVERSION ROUTINES
CONSTANTS, VARIABLES & ACSII

SEQ 0012

N 1
CZCMUBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 1
1

LTITLE CZCMJBO CMR(V)=11 HOST EXERCISER
.SBTTL SW!C DEF INITIONS

LIST

«NLIST

9
8
9

s INTERNAL DEFINITIONS:
177776
177570

027636

:'Ig

PS
HWSWR

SSWR

=
=

177776
177570
SWREG

sREGISTER DEFINITIONS:

000000

00000%

}g
18
19
20
g%

000001

000004
000005
000006
000007

%2
25
26
27
28
29
30
k]|
g

Ré
R5
SP
PC

=
=
=
=

L4
25
26
X7

;BUS REQUEST DEFINITIONS:
000340
000300
000240
000200
000140
000100
000000

gg
36
37
38
39
40
4]
42
43
“d
45
46
47
48
[
50
51
gi

P7
P6
P5
P4
P3
P2
P1
PO

=
=
=
=
=
=
=
=

340
300
240
200
140
100
40
0

;BIT DEFINITIONS:
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

002000

B15
B14
B13
B12
811
810
809
B08
807
B06
BO5
B04
803
B02
801
800
1SP

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

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

BEGIN

sINITIAL STACK POINTER

000001

Eal

D
e ad

b ed

sINITIAL ERROR NUMBCR

;ERROR MACROS

.SBTTL MACRO DEFINITIONS

=3
5%

=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGg 2

.MACRO

ERROR

BIT
BNE

#814,38SR
.+20

P,MSG

MOV
MOV
JSR

MSG,RO
#P, ERRNUM
PC ERR

.MACRO

DATERR

8IT

#814,3SR
+20

MOV
JSR

#P , ERRNUM
PC .DERR

.ENDM

suennnnen ERROR P teannnn

N+

P, MSG

Jennnnss

MSG,RO

N+i

:PRINT MACRO (MSG ADDR IN RO)

MoV

JSR

PNTM

#A RO

PC,TYPOUT

sPRINT MESSAGE

:SCOPE LOOP MACRO

S&EL&GRER £8

FRROR P wennenw

MLT
PC,SWHLT

JMACRO

MACRO

azwymggoawoubm-ooaonww-o g

CZCMBO0

JMACRO
JSR

X
SCOPE
.SCPRTN

.ENDM

; INTER-PDP=11 COMPATABLE MOVE TO PS
MACRO
MOV
mv
LLL:

RTI

NTPS
S2LLL
SRC,-(SP
mL,-(sP )

SREGISTER SAVE AND RESTORE MACROS
MACRO

REGSAV

;POINTED TO BY A

=11 HOST EXERCISE MACRO V03.02810-DEC~80 10:41:54 PAGE 221
JSR

R5 ,REGSAV

-MACRO
JSR

RgGRES
RS ,REGRES

ENDM

- ENDM

CZCMUB0 EM;V)-‘I‘I HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGg 3
TRAP CATCHERS

SEQ 0016

.SBTTL TRAP CATCHERS

!
1

gxsTST

;TRAP BAD DEVICE ADDRESSES

+*2

+2
+2

+*2
*2

+*2

NNN

+*2

35558 3

E ABS

OO
OO O O O
O

°'0°‘°'°‘°‘°‘°‘°'

§3353383833388838833332038334325333333323333338404s0

X RNIFRRBERSSER

.
e P R
R
RESU R
R
Y

;
a<

g
53

:
(ol
~

(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 3-1

SEQ 0017 |
‘

(=0

O
~n

°"°'°'°'°'°°°‘°'O°°°

O: O

§88838333333888325383333383333333333333333335303480s0

TRAP CATCHERS
CZCMUBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 3-2

SEQ 0018

6 2
CZCMUBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 3-3

DN
NN
NN

R
R
NN
NN

R
NN

R
DN

A
R
NN

R
A
DD

R
A
VNN

O
D

O OO OO
"°'°'°'
A
A
A
A
A

BHHHHHHHBHH BB

TRAP CATCHERS

SEQ 0019

C2CMUBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 3-4

°°‘°°°'°° O

TRAP CATCHERS

SEQ 0020

—

nNO

002276

JMP
MOV
RESET
JWP

BEGIN

#1SP,SP

RESTRT

W= OV

b o

2000

#1SP,SP

BEGIN:

002000

7 ,~(SP)

000340
002020
648:

5544

;PREPARE TO CHECK FOR LSI-11

RURNNNSzIGns

sINITIALIZE THE STACK
;CLEAR THE WORLD
:STOP INTERRUPTS

#64$,-(SP)

;CHECK FOR PSW BSET FLAG

sSET UP TO CHECK IF ANY HD SWR
sSEE IF IT'S THERE

+ 3

NS 4

N4
NN
N

P
*
g

PRMTT:

PRMT?:

3e353p32e8 723532y 3

sSET UP TO TRAP IF NO SWR.

PURUEIRNE
SREKZ

SEQ 0021

.SBTTL SYMBOLIC LISTING

CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG% &

(
C LISTING

sPRINT MESSAGE
;POINTED TO BY TSTHDR
sASK FOR 1ST UNIBUS ADDR OF CMR-11
s
NT ME SSAGE
sPRI
;POINTED TO BY FRAD
sLOAD DEFALLT ADDRESS
;60 PRINT DEFALLT
:LOAD RETURN ADDRESS
;GET KBD INPUT
;REPLACE C"R-11 BASE ADDR
;IS IT WITHIN LIMIT?
TEST IT
;YES,

"'-‘anf"k""ssia"" o

EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG% 421
000776

o B B Wi
1324

PRMT3:

*POINTED TO BY AGAIN

:ASK";G CMR=11 PRIORITY

. s PRINT

MESSAGE

;POINTED TO BY DVPRIO

015710

sLOAD DEFAULT PRIORITY
;G0 PRINT DEFAULT

025244
000007

PRMTS:

S LS
8 * &3

OOOOOOO-:' <

B §§§§§§§§ s R

1
16767

SRR RRERZB IV ANANIITEIRERER

28338

*NO 'fim AND ASK AGAIN
*PRINT MESSAGE

.PRIO

.DEVGEN

SEQ 0022

;1S IT WITHIN LIMITS?
*YES, GET PRIORITY

AT 32

015746

LIda 0 VEELER T T

%?Zg

.I&MD RETURN ADDRESS

:1S IT WITHIN LIMITS?
;LOW ENOUGH, OKAY

*NO, ERROR AND ASK AGAIN
:PRINT MESSAGE
*POINTED TO BY AGAIN

sHIGH ENOUGH?
sYES, OKAY
*NO, ERROR © ASK AGAIN
:*PRINT ME MESSAGE
;POINTED TO BY AGAIN

sSHIFT IT INTO PLACE
:LOAD NEW PRIORITY
;GENERATE CMR-11 ADDRESSES

;TEST FOR CLOCK CSR ADDRESS AND SET
sCLOCK FLAG ACCORDINGLY:
MOV8

2‘2

SYMBOLIC LISTING

TST

#-1,CLKFLG
#CLKTRP a6

- @LCS

sSET CLOCK FLAG
:SET UP TO TRAP
sTEST LINE CLOCK STAT.
:A TRAP WILL CLEAR FLAG.

sCLEAR OUT ALL TABLES FOR START-UP
XTBL
XTBL

RESTRT:

EX
EXTBL

#HDER, M6

;RESET TRAPS

2560 ar108 0
'a:; -(SP)

sSET CLOCK VECTOR

#64$,-(SP)

:
648

;RAISE C.P. PRIORITY

K 2
CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 4-2
SYMBOLIC LISTING

gi % @ 7 025064

0141
167 00007

767

105067 024737

§§88$§93 000002

1$:

|
SEQ 0023 |

IST

SWRFLG

: NON-SWR-PROCESSOR?

PC,SWDMP
BCONT

;YES, DUMP SWITCH LOCATION

JSR

CLKTRP: CLRB

RT1

CLKFLG

;CLEAR CLOCK FLAG

*AND RETURN

w (ol

CMR( V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGE 5

¢ LISTING

1
§

SEQ 0024 |

.u't CLOCK SERVICE ROUTINE.
UPDATE RUN TIME CLOCK.

024726

CLKINT: MOVB

#=1,CLKFL1

;SET "ch TICKING'' FLAG

é
7

]
7

000074

CMP8
BLO

TICKS,#60.
cLKExT

*REACHED A SECOND?
:NO Jgsr RETURN

10
1
1§
1
1%
15
16
17

1
|

1
i
[
5
1
1
1

INCB

CLRB

000074
000074

INCB

(MP8
BLO
CLRB
INCB
CMP8
BLO
INCB

CLKEXT: RTI

TICKS

SUPDATE TICKS

TICKS

:YES, 0 = TICKS

SECS,#60.
CLKEXT
SECS
MINS
MINS,#60.
CLKEXT

*REACHED A MINUTE?
*NO
T RETURN
:YES, 0 - SECONDS
*AND
TE MINUTES
*REACHED AN HOUR?
:NO, JUST RETURN

SECS

HOURS

*AND UPDATE SECONDS

*YES, UPDATE HOURS

*RETURN FROM CLOCK INTERRUPT

M2
CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 6

SEQ 0025|

SUPERVISOR DISPATCH

.SBTTL SUPERVISOR DISPATCH

‘

BCONT:

)0¢

648:

s
10
1
1;
1
%

015262
024622
000001

024646
0303
30303
)03
1 003

)03
)03
)03

000002

CLRB
CLRB
CLRB
CLRB
CLR8
CLRB
CLRB
CLRB

CNFGFL
CLKFL1
TICKS
SE’S
MINS
HOURS
SAFE
DBFLG

MOV
JSR
MOV
MOV
JSR
CLR

#TSTSEL ,RO
PC.T
.
#BCONT
, PCONT
PC,1
PCONT

BCNTO:

BCNT1:

1ST8
BEQ
BIC
JWP

(TM

‘22 020616
sovrs: Fo
000003 BCNT2: (WP

15160

024441

83%90 024566
015130

mr (sp)

1ST8
BEQ

4
42

%C‘

PNTM

15
16
17
18
19

RESET

17753

g
msg

000004

BCNT4:

BNE
1ST8
BEQ
8IS
JWP

TSTRSK: CMP

BNE
PNTM

TSTSEL

KESUF
, #1

BCNT1

cwsc
BCNT
#100,aLCS
LOGTST

KBBUF
, #2

BCNT2
cu:rss
BONT

romicE-CS

KBBUF 43

TSTRSK
cu:rkc
BCNT
#100,aLCS

;CLEAR CONFIG FLAG
sCLR CLOCK TICKING FLAG
sCLEAR RUN TIME CLOCK TIME

;CLEAR ‘FILL cm SAFETY FLAG'
:CLEAR ‘DEBUGTM" FLAG

*PRINT *SELECT TEST (<CRO=HELP)
*PRINT MESSAGE
*POINTED TO BY TSTSEL

oemu LOGIC TEST

*LOAD RETURN ADDRESS
*GET KBD INPUT

;CHECK IT FOR *1°*
*IF = 1, DO LOGIC TESTS

*1S THERE A CLOCK CSR?
*NO,

FORGET

IT.

:ve§ snsutg IT'S IDLE
*CHECK IT FOR

;1S THERE A CLOCK CSR?

FORGET IT
;YES,
IT!!

:IF 2"po PORT_|OOP TEST
OECK IT F

CMREXC

1n:ltA c%ocx CSR?
VoS FONABLE IT!!
133 's" DOLEEXERCISS.

KBBUF
, #4

:DID HE TYPE A &?

HLPASK
HELPM

s
Bk
1
P
BCONT

HLPASK: PNTM

sALWAYS DO RESET UPON ARRIVAL
;KILL INTERRUPTS

HLPDSR

A
P
BCONT

HELP

mxu?‘?e’&wx#sfi"'

*PRINT MESSAGE

-:'o‘x,mo T0 BY HELPM

-mmE"'}r HELP IS REQ'D..."*
PRINT MESSAGE

*POINTED TO BY HLPDSR

N 2
CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO VO03.02810-DEC-80 10:41:54 PAGE 7

HOST LOGIC TEST

.SBTTL

;CHECK POWER UP OF THE HOST MICRO FIRMWARE.

0264

4354

LOGTST: CLR

43 5

STO:

1%
15
1%

orrre 397775 move:
177766 1777
wmg 177756

I
20

\77rie 17rri
002000 024302

177752

F4]
22

777

040000

177750

RFLG

;CLEAR_VERSION PRINT FLAG

CLRB
CLR
PNTM
MOV
JSR _
RESET
MOV

OFLOF
ERRCNT
LGKTSM
#LGKTSM,R)
PC.

;CLEAR ‘DVERFLOW' ' FLAG
:CLEAR ERROR COUNT
:PRINT "LOGIC TEST'
;PRINT MESSAGE
:POINTED TO BY LGKTSM
SINIT
:SET UP TIMER

024340

MOVB
BIT

-M0VB
a”ts.acsa

‘MOV8
IS "PWRUP'* SET?

MOVB

013262

013250
013242

026204

8IC
cw

MOVB.MOVB

\N,NOGO

#B814,3SR

gfic

:MOVB

:1F YES, OKAY
;ERROR:HOST U.P. FAILED TO START.
annanet

ERROR

ARARNAS

m.m RO
#1, ERANUM

#102000,
GOOD
’sgflfiflb

,BAD
E?,BAD
ST
CNTR

:CLEAR PASS COUNT

:MOVB GIVE THE MICRO TIME
:MOVB
TO GET GOING.
:MOVB

767
767

0
ST1:
013256

#0,CNTR

:SET ITERATION COUNT

MOVB,MOVB
MOVB.MOVB
MOVB.MOVB

BIT

8% ;6;4 1 3

PASENT

mowe
MOVB
MOVB

BNE
ERROR

001% 024031
15767
1 013300
LEPINROR

#10,ITER

CLR

8‘%%

2
1

mov

g
10
1

024416

.§::

4500

85001

83353
" <33R

HOST LOGIC TEST

;NOW WATCH FOR INTR
sINTR § PWRUP SET; OKAY
sWAIT A BIT

;ERROR:PWR UP SEQ NOT COMPLETED(BAD CSR)

5
3
g

S
o8 W

209

sT2:

[+B {7 13N

eSS

;

afiéfi A58

;ennnnns ERROR 2 wenneen

sNOW CHK CSR FOR 0'S

JEXCEPT PWRUP £ INTR
;CSR = 0'S, 0.K.

CZCMJBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGg 7-1
HOST LOGIC TEST
3

38 003446

77; 040000 024160
4137
013120
76
1
39

40
4
8
o
45
0 35
«.9 88?
23
540

DATERR

\N,CSRRST

g'xir
MOV
MOV
JSR
=
SCOPE

" 4,35k
FCSRRST RO
#3, ERRNUM
PC.DE
N‘&
ST

1
1
1
1

83‘055 ST3:
611
ST4:

SEQ 0027
;ERROR:CSR NOT RESET

senennss ERROR 3 annnenn

RS,SCPRTN

MOV
#20,
CLK
MOV
¥
aSPAR
MOV
#VERSP ,R1
MOVB @SPDR, (R1)+
DEC
CLK
BLT
ST6
INC
3SPAR
B8R
ST4

;COUNTER FOR VERSION ITEMS
*ADDR RESULT SCPD
*POINT AT MEM SPACE
srou; VERSION INFO

:NO, KEEP GOING

|
!

|
|
.

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 8

HOST LOGIC TEST

:SPAR REGISTER TEST:
:DO A SLIDING BIT (0) TEST ON THE SCPD ADDRESS REGISTER
*WHILE IGNORING SPAR BIT 08 (UNUSED).

$T6:

CLR
CLR
MOV
BEQ

aSPAR
GOOD
@SPAR,BAD
$T60

BIT

#814,aSR

B oo N
12716

MOV
MOV
JSR

#SPRCLR,RO
#% €
PC . DERR

012374

g;z

RS,SCPRTN

MOV

#=1 PAT

MOV
BIC

PA;
n

DATERR

040000

024044

164

n
1§ )0

hX
s
17 &
%15 )03

77TTe
1

;g
He
12710

040000

023720

ST60:
ST61:

i oo N
012250

)03

001000 023634

)031

(44444

0]
0

SCOPE

MOV

:SET UP FOR SLIDING O TEST

800

SSET BIT MASK
GOOD

GOOD, 8SPAR
ww
= . 600D

$T62:

JSR

PC,DERR

SCOPE

Jga'

‘1?
BEQ

MUY

8IC
%

wewnnnn

ST6

#B14,aSR

Jennnnnn ERROR 4

(8]

8IT

v.-fv

;ERROR:CAN'T CLEAR SPAR

.+20

?t'o'
T .
DATERR zn
T

MOV
MOV
BIC
e

303

BNE

\N,SPRCLR

;TEST CLEAR OF SPAR
:SPAR CLEAR?
: YES, OK

;LOAD PATTERN
SAND READ IT BACK
: IGNORE BIT 08

:?rw Mna‘tgi‘ia;rtm
: ERROR :BAD u'g IN SPAR

;enenast ERROR § teenene

s T.RO

Nef

ST61

RS,SCPRTN

LPAT

1.PAT

MASK . PA
MASK

DONE
REG?
:IF v&s‘ 5:1 RTN
JRE-L

1'S

:
FOR NEXT BIT
sROFATE mASK
sAND CONTINUE

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC=80 10:41:54 m;g 9

SEQ 0029 |

HOST LOGIC TEST

scmcu PAD MEMORY TEST

i
:

:7(1)
UP COUNT
; (2) UP COUNT

IN REQ SCPD "‘E FILLING RES SCPD WITH
IN RES SCPD WHILE FILLING REQ SCPD WITH

ST7:

3SPAR

9
3

ST70:

10 O

ELL:

MOV
ROV
BIC

1
1;
1

$ST71:

L @SPDR
83POR

437

m‘m%

ST80S:

ST81:

;DONE.

CLR

3SPAR

sNOW.
. .CHECK IT

BEQ

$70

DATERR
ISATE
.’.{{
n%L @SR
MOV
'asAnRO
MOV
ERRNUM
JSR
rc‘oem

ST82:

Jnennnnnt ERROR 6 weennne

BIT

814, 3SR

mm
Atuuo?

MOV
JSR
MOV
JSR

#SCPAD ,RO
PC,T
3SPAR
rc‘gdnn

;PRINT MESSAGE
*POINTED TO BY SCPAD
*PRINT SCPD ADDRESS OF ERROR

SCOPE

JSR

ST80
oW

MOV

.SCPRTN

SPAR #377
WORD
T

aSPAR

MOV

m&m

DATERR fu.osm

:0.K, CONTINUE

;ERROR:REQ SCPD ADR TEST ERROR

NC
NCB

:LOAD REQUEST SCRATCH PAD

ASPAR, 43
ST71
2SPAR

;ADDRESS 0

P
BHIS
INC

377'S
377'S

MOV
MOV
JSR
=

L85k

TE RO

scn ALL 1'S?

;ERROR:ltsuf scn DATA_TEST ERROR
;ennnnns ERROR 7 senenen

SEQ 0030

ST91:

023240

ST10:
ST100:

023154

sT101:

ST10:

121

023122

ST110S:

001377

sTIN:

sALL DONE?
;IF YES, REVERSE IN & OuUr

;DO IT AGAIN WITH A SWITCH
sCOUNT DOWN UNTIL HALF-WAY

sAND LOAD REQ SCPD WITH 1°S
;DONE?
;YES
;NO, KEEP GOING DOWN

NOW, ...CHECK IT

023074

0 St St Set S S S S e S

g o

012062

sPRINT MESSAGE
;POINTED TO BY SCPAD
sPRINT SCPD ADDRESS OF ERROR

gededla R RIS

001377

¥ S8%308 B % Bgegataanee

sPRINT ALLOWED?
sNO, SKIP IT

ODREDODEN

023320

040000

wmoe

7{7
010

-OSATE

:QUT ADDR OK?

;ERROR:RESULT SCPD ADR

Jennnnee ERROR 10

sPRINT

TEST ERROR
tneneen

OMED?

:NO, $K$t+l'
:'l{lfi -

JPOINTED TO BY SCPAD
JPRINT SCPD ADR OF ERROR

{fh
S
N(B

onzze

sT112:

MOV
CLR

JNOW CHECK REQ SCPD

F 3
CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGE 9-2
HOST LOGIC TEST

;

8?3923

11762
117

ST120:

022764

gg
88

3., 004
95 0047

@SPDR,BAD

DATERR

\N, ISDTE

BIT

Qz §sm
N
11&
.
JSR
BNE

022676

: 7; 022666
;so

sir: igi

BAD

1'$?
CHECK THE REST

;ERROR:nto stm DATA TEST ERR
Jennnnnt ERROR

seneann

ml..asa

022736

s % B97 011264
B
R§

93832

MOV
cn;

SEQ 0031

g'x‘r
PNTM
MOV

%
—

sPRINT ALLOWED?
:NO, SKIP IT
sPRINT MESSAGE
sPOINTED TO BY SCPAD

;PRINT SCPD ADR OF ERROR

" JSR

000377

ST121:

$T120
CMWP

?‘ng
B8R

;DONE REQ SCPD?

;YES, CHECK CLR SC. PAD

:NO, KEEP CHECKING

;11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGg 18

SEQ 0032

sCHECK CLEARING ALL SCRATCHPAD LOCATIONS
s FILL_THE ENTIRE'SCPD WITH A CONSTANT (NORMALLY '0*)
: AND THE CHECK

P
BEQ
INC

gfl
m“wwwdowwubwd
8

zcmeocmvg

ST131A h’bv

) D

)

ST1318: MOV

- b e

$T131:

ST132:

SPAR #377

STI131A
asP

14 aSPAR
aSPOR

(P
BEQ
INC
B8R

SPAR, #1377
ST131
SPAR
sT1318

MOV

aSPOR

BEQ

BIT

814,85k

%’v

DATERR

BNE

\N,RQSPCL

sSTART AT 0
sTHIS LOC (#0) CAN BE CHANGE
TO ANYTHING AND THIS RIN
CAN BE litb FOR ANY DATA
FILL-UP & TEST

sADDR l;s, SCPD
;THIS "W0"* MUST ALSO BE CNANGED
sFILL UP WMOLE RES. SCPD
sNOW CHECK IT
sTHIS LOC (#0) MUST BE
: TO CORRESPOND TO ST
: IN
R TO CHECK THE
; CORRECT

DATA Flbl‘;t’

;ERROR:REQ. SCPD NOT
;ennnnnt

ERROR

12 tennenn

,+20

JSR

N+i

PNTM

SCPAD

8IT
B

MOV
JSR

ST132S: SCOPE

'S’flS

4y 4

e= &

000377

ST133:

ST134:

BEQ

INC
P

gi“ ST135: MOV
ol

BEQ

DATERR

022412

BIT

011352
022364

PC,DERR

814,
ST1

aSR

;PRINT ME

3SPAR
PC gcfm
gl
.SCPRTN

snfi
T

377

*PRINT SCPD ADR OF ERROR

;DONE CHECKING REQ. SCPD?
sYES, CHECK RES. SCPD

- NOW

RES. SCPD

:nusqfi"‘ ALSO MUST BE CHANGED
;RES SCPD ALL 0°'S?

\N,RSSPCL

;ERROR:RES. SCPD NOY

senavens ERROR

#814.35R

BAE
MOV
MOV
JSR

R
n
PC

8IT

/814,358

*POINTED TO BY SCPAD

:NO, FINISH WP

aSPOR

sPRINT ALLOWED?
:NO, SKIP IT

RO
sPRINT ALLOWED?

0's

13 sennens

CZCMJBO CMR(V)=11 HOST EXERCISE MACR) Vv03.02810-DEC-80 10:41:54 PAGE13-1

5EQ 0033

HOST LOGIC TEST

001010

BNE

PNTM

MOV
JSR

022324

;30 022314

ncm
m%r

sPRINT MESSAGE
sPOINTED TO BY SCPAD
sPRINT SCPD ADDR OF ERROR

JSR

gcfmr
PC
STi

ST136:

(MP

@SPAR, #1377

§¥'1'3

001377

;NO, SKIP IT

ST135s: SCOPE

MOV

;67 010712

ST135S

SCPAD

BEQ
INC
BR

as.scmu

ST14
aSPAR
ST135

;DONE RES. SCPD?
sYES, NEXT ROUTINE

CZCMUBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 m;é 1?

SEQ 0034

HOST LOGIC TEST

;TEST 'CLR TOP BYTE'

S 005316
?gg

goos
ggg

005
005
005
005

005

11 005374

1§

1%
15
}9

005374

012777
7
177267
76,
141

01
022
1

022242

SETTING 'tum'a SHOULD RESULT IN ALL BITS OF THE

HIGH BYTE
OF THE CSR BEING CLEARED. (LOW BYTE ALREADY = 0)

ST14:

11256
11250

767 011132

004567 010610
005316

#804 ,aCSR
GOOD
#CSR,BAD
.BAD
ST

BIT
BNE
MOV
MOV

#B14,aSR
+20°
nkraen
RO

DATERR

777 040000 022260
7
13
6474
1276
14 011220

000015

MOV
CLR
MOV
P
BEQ

JSR
z

SCOPE

JSR
ST14

;ERROR:CLR TPB FAILED
sennnnnt

FRROR

wennenn

PC ém
N+§

ST14

RS,SCPRTN

:
"HANG'' BY USING THE CMR-11 °*DIE' FUNCTION
:
THEN CHECK THAT THE CSR WAS RIGHT
: FOR THE °DIE' FUNC. THEN CHECK ALL R/W BITS OF THE CSR

ST1S:

CLR

agm\

:ADDR REQ. SCPD

#1,3SPDR

:DATA LEN. = 1

?\u
ssr
N SHD o\ust U.P. HANG
:WAIT FOR THE MICRO

MOV

I 13iasm

INC

3SPAR

x'gcv

2s:

MOV
MoV
MOV
TST

BNE
MOV

gsa

aCSR
.CNTR

#137600, GOOD

MOV

SCSR,BAD

g &

DATERR

\N.DIERR

BIT

#814,3SR

MOV
MOV
JSR

n;m RO
i émm
PC

BNE

;ALL CLEAR?

:NOW H A NG AND CHECK CSR

18:

\N,CLTBER

:SET ''CLRTPB'’
;ALL CSR SHOULD
BE 0

"ST150: u'ov
DEC

cns».w

*MICRO DONE?

*NO, WAIT A BIT

:READ

:0ID I

m CORRECTLY?

*YES., GOOD

;ERROR:CSR NOT RIGMT FOR ‘DIE'*

;eennnnt ERROR 15 teeenen

.+20

5‘:&
?da

zvfSCOPE g%"”acsa
JSR

:LOAD MAINT FUNC SUBF #3

.SCPRTN

PROGRAM INIT

CLR TOP BYTE

SWAIT FOR INIT

CZCMUB0 CMR

(Vg;" HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGi 1?-1

HOST LOGIC TE

005576

005402

ST15

SEQ 0035

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGEK 13

HOST LOGIC TEST

;
{mm new
é
767 010764 018764
1"

ST16:

1416

021774

L .
1276 m 010734

005660
0 4567 010326
10% 1797 1376400 010716 ST160:
9

1; WSNS
}‘oosn

15&5728

7
NT.?Z

1
10676

1664

10704
010676

\N, CSRWE

BIT

#B814,aSR

BNE
MOV
MOV
JSR
=

SCOPE

MOV

#137400, GOOD

#0,3CSR
aCSR.BAD

1604

d8icko

BIT

N
ST161:

#B814,3SR

OV
MOV

BCSACE.RO
n?‘sm

N+§

JSR

RS.SCPRTN

MoV
MoV
MoV

m.ocsn
8SPAR
WORD

JSR
SCOPE

PC,DERR
ST160

8IT

Bisk

ESS

KEYS TO SCPP

019540

:DID TIGYTCLR?
;ennnnes ERROR 17 wennnnn

021600

003 :30

sNOMW, SEE IF THEY CLEAR

YES, NEX

626

vennnnsn

ST16

Jennnnnt ERROR 16

N+i

RS,SCPRTN

MOV
MOV

*YES, TRY CLEARING THEM
;ERROR:BAD B ITS IN CSR WHILE HUNG

+20
#CSRWE ,RO
#7145, ERANUM
PC,DERR

g.?;b

010646

DATERR

;ERROR:CAN'T CLR LOW CSR WHILE HUNG

B8 T e o
}7

;DO THEY SET?

BE
g
JSR
=
SCOPE
JSR
sT161

MOV
com

#814,3SR

VME ,RO

PC, ERR
g 61
.SCPRTN

no‘

:TRY AGAIN WITH *ST FUN'" SET

aSPDR,
WORD

sREAD A REQ
; COMPLEMENT

WORD

-t

SCSR.BAD
ST

MOV
P
BEQ

040000

sCHECK R/W BITS OF CSR

cgs.acsn

Bet
A3
i3
2
:

177;

#137755, GOOD

MOV

32 -

4
8

13775

&A2

12767

;CHECK CSR WITH MICRO HUNG

C2CMIB0 CMR(V)

=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:5¢4 PAG% 13-1

HOST LOGIC TEST

110

79;

1774

831§

1536

BIC

Ml!lo

BNE

ERROR

032777

040000

021472

22 %
76
1 010432
36 00618
006166

WORD, 8SPDR

cMP

004567
006062

010022

&IET

#1774600,WORD

MOV

MOV
MOV

\mg.asm

\N,SPAVFE

014 @SR

ISPAVFE
RO

JSR

SCOPE 87162
=

JSR
ST162

RS.SCPRTN

SEQ 0037 |

;FORGET TOP BYTE

SWRITE IT BACK
.READ |

MQK AGAIN

SHOULDN'T BE THE SAME

;ERROR:AtCESSED REQ SCPD WITH 'STFUN'' SET
Juennnnsr ERROR 271

wennenn

CZCMUBO CMR(V)=11 HOST

HOST LOGIC TEST

EXERCISE MACRO VO03.02810-DEC-80 10:41:54 PAGE 1§
M

sTEST INTERRUPT WITH MICRO HUNG
021456

ST17:

- OVO~NOW

648:
14632

ST170:

021372

010332
021276

ERINT,QVECTOR

MOV

#64S,~(SP)

RTI

NOP
NOP

MOV

MOV
NOP
NOP

0213

MOV

021322

N
007652
177650

#100,3CSR

\N.NOINTR

BIT

#B14,3SR

BNE
MOV
MOV
JSR

N+d

JSR

RS.SCPRTN

CTMP

no%acsn
ST1

;CLEAR INTR ENAB

INTCNT

:camusmx

(SP)+, (SP)+

ERROR

\N,ERINTR

8IT

#814,3SR

MOV
MOV
JSR

ogmm.uo
#23, ERRNUM
PC,ERR

N+i

JSR
sT17
JP

RS.SCPRTN
sT1

#ST170R,

008208

odg.- SP)

000100

021136

021154

648:

MOV

MOV
RTI
MOV
NOP
NOP

INTCNR: JWP
ERINT1: CWP
CLR
ERROR

;ennnent ERROR 23 wnnnnee

ST17

02212
b
INTCNT: MOV
86185 8157
BIC
GDINT:

R HOST INTERRUPT
: ERRONEOUS
;ERRO

.+20

SCOPE

T UNIBUS

. +20
ngmm.ao
#22, ERRNUM
PC,ERR

BIC
SCOPE

BNE

010262

#GDINT,RVECTOR

ERROR

ST170
ST170R: JMWP

ERINT:

(sP)

;SET UP VECTOR FOR ERROR
sALLOW INTERRUPTS

(SP)

e
NT1,aVECTOR
fi&.xh

ENAS
:
sSET C.P AT DEVICE PRIORITY

:SET_INTR ENAB
s
NT
SHOULD OCCUR
ST18
(

:CLEAR

ENAB

; ERROR : WRONG nfmm:oevxct IS HIGHER

_——

N
CZCMUBO
CMR(V)=11
HOST
EXERCISE
MACRO
V03.02810-DEC-80.
10:41:54
PAGE
1;-1
HOST LOGIC TEST

0064

52
32 006456

0064

33 006464

777 040000 021176
7
1
S
1
% 010136
?
64

7 007526
56

167

000000

BIT
BNE
MOV
MOV
JSR

#814,aSR
. +20
MPOD] ,RO
#24 ,ERARNUM
PC,ERR

SCOPE

INTCNT

N+i

JSR
RS,SCPRTN
INTCNT
WP

ST18

SEQ 0039
sennnnns ERROR 24

wewnnnn

CZCMUBO CMR gg;fl HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGg 14
o

SEQ 0040

HOST LOG

:NOW CHECK PROGRAM INIT.

1%77;
1 ;2
1

ST18:
MOV :
:

1
1

8 8588 o19767

114

1:?67

777
&?

MOV
MoV
MOV

#2,8CSR
MOV
., MOV
MOV . MOV

oY
Ry

RV
23060 &ooo

MOV
MoV

A
BEQ

DATERR

040000
1

021040

BIT
[

;DO HOST "'INIT"'

SWAIT A LITTLE

MOV.MOV
MOV
., MOV

"mg’“‘”bw
ST

\N_MITER

MV F\fls.-lf SHOULD BE SET
CSR CORRECT AFTER INIT?
YES,
CONTINUE

;ERROR:PROGRAM INIT FAILED

LA A dd ]

#M14,85R

(s
01%

010000

MoV

ST180:

ST181:

JSR
=

SCOPE
JSR
:Tl.

BEQ
MoV
MmOy
MOV
MOV
2.3
HROR
£

JWAIT FOR PWR-UP COMPL

:NOW READY TO READ VERSION

POINT AT ORIGINAL VERSION
AND SAVE

S VERSION

;ERROR:MICRO DIDN'T ST

VERSION STUFF

BIY

ST182:

"HERE ENEEEL AN

4
5
?

;NOW COMPARE VERSION WITH ORIG.

;CLR TOP BYTE

;SAME AS FIRST TIME?
;ERROR:2ND VERSION NOT

AS 157

)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGS 14-1

CZCMIBO CMR(V
HOST LOGIC TEST

776
7764

;?7
g

007210
020620

;1 020610

4
4.9

(M8
&”b

(Rl)*.(flg)*
@SPAR, #1020

INC

B8R

ST19:

1
1

00707:
2074
ngi
71

8SPAR
sTI8

53 gn

71
0071

qgoscsn

#120 ,
asPAR
@SPDR, WORD

[
ERROR
817
BNE
MOV

‘aSPOR
\N,SPAVIC
n;a.m
¢
vIC,.RO

77;

g 7 007062

MOV

MOV
MOV

016

007118 O0srer
oooggl

ST183:

ST182
R5,SCPRTN
sUPDATE POINTERS
sDONE?

sNEXT WORD

sCHECK ACCESS TO RESULT SCPD WITH INTERRUPT CLEAR

001020

SCOPE
‘S’?‘I‘&

SEQ 0041 |

T
-

SCOPE

JSR
$T19

Bowe
ST

PR
i
ST19

RS,SCPRTN

;CLEAR TOP BYTE OF CSR

*ADDRESS RESULT SCPD
*READ A WORD FROM IT

SO Ve

INOW READ IT BACK
1T SHOULDN'T BE THE SAME
;ERROR:RES. SCR. PAD ACCESSED WITM INTR (LR
SNRRRRAN ERAOR

wArENAD

|
:
|

Vg;fl HOST EXERCISE MACRO V03.02810-DEC~80 10:41:54 PAGg 1§

:NOW CHECK SOME IMPLE FUNCTIONALITY
ENSURE T
i
THE CORRECT ERROR STA
i

HAT s?fim ?wm% FUNCTION GIVES

;

?
:

03042

10
1

$T20:

0204

1§
1%

020442

020430

020416

17
E

020404

THAT STARTING THE “'MAINT'' FUNCTION WITH

PROPERLY AND GET POR T BAUD RATES.
MOV

'goam

TN
B
INC

MOV
CLR
MOV
INC
?gcv

MmOV
INC
MOV
$T200: MOV
MOV
$T201:

MOV
P

BEQ
DEC
BNE

e Nttt el e

“» .

I S 2 5 5 2 5> 3 X

020326

33565 60 3AL

DATERR

$6r 00087 B3HTR2

#20,3CSR
ogph
#210,3SPOR
AR
#M
3SPDR
#377,aSPDR
#337,8SPDR
ztsa
mi4+815, 6000
@CSR,BAD

ST
1201

\N,STESTF

14,258

‘MAIN''

;CLEAR TOP BYTE
; ADDRE
@

.: MEMORY LOCATIONS
;ONE REQUEST
:# OF BYTES TO READ
= 2

;START ADDR = DFFF (M)

;SET ST FUN'' ON "MAINT'® FUNC

;CHECK EOR FUNCOM & INTR

:"FUNCOM* AND ““INTR'* SET?
;IF NOT, WAIT A BIT

;ERROR:STATUS WRONG WITH STFUN'' ON "MAIN'
;ennness ERROR 3T tennene

331 gmrr.uo
PC, DERR

RS,SCPRTN
sADDRESS
sCHECK ON

RESWLT SCPD
FUNCTION

sFUNCTION CORRECT?

sERROR:RESULT FUNC. C

: NOW

$s °

WRONG ON MAIN

.90.3‘5& "TOTAL FAILURE'" CODE

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO v03.02810-DEC-80 10:41:54 PAGE 12-1

SEQ 0043 ‘

HOST LOGIC TEST

7636

715

MOV

%g
; 88918 887142
4
7454

040000

ac?;
S BAD
DATERR {n.usom

020152

gxé

#814,3SR

007112

o emn"o

N+

44
45

ST204:

‘9
4
&3
4§

ST205:

JSR

SCOPE
JSR

$T20
MOV

020042
007002

D0762(
007626
.fi‘.\’

D076
2? 0076
g't

CNTR

o
{ni
533

:WAIT A BIT

;ERROR:STATUS WRONG ON 'MAIN'' FUNC

#,814,35R

%é

g?z'osm&:sm

MOV
MoV
[

&' %
3
SIS

MOV

.
S$1207:

;e ERROR 34 tevenee

SCoPE ;os

BEQ
”5\N,USOFE2
DATERR

:FUN COMPLETE?

:’ts:.v

:
-

ST
RS .SCPRTN

52
BE

MOV

416

PC,DERR

;SET 'CLRTPB'
SSET 'MAIN' WITH
FUN LOADED
*CHECK FOR ‘FUNCOM' € "'INTR'’

8IT

ST206:

senenans ERROR 33 wewenwe

#20 .8CSR
’
oggn
#814+815,6000
9CSR .BAD

;USOF 0.K.?
;ERROR:''STFUN'' ON ‘MAIN'' GAVE BAD USOF

MOV
MOV
MoV
MOV

DATERR

@SPDR,BAD

;POINT AT 'USOF**
SSHOULD SHOW SUCCESS

;USOF 0.K.?
;ERROR:BAD "USOF'*
ON

Jenneeee ERROR

‘MAIN'' FUNCTION
XXX}

<
e
i
Gl
[

TERR

2@1

;POINT AT sgu LENGTH

WAS IT B2

\N.DATLER

JSHOLD BE

JERROR:'MAIN' FUNC GAVE
Jesesees ERROR

DATA LEN.

ssssene

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 13-2
HOST LOGIC TEST
‘

77; 040000 017666

69
70

7 1
;f
1
1

7% 01oo

006216
1

1 61

176

BIT

MOV
MOV
BNE

006626
N

017622

$T21:

SEQ 0044

m L@SR

ig:
ER,RO

JSR

SCOPE
's”T'RZOA
nsSCPRTN
=

MOV

MOV
MOVE
INC

m.wm
@SPDR.(RO)+

MOVB @SPDR, (RO)

;POINT AT BAUD TABLE

SGET RESULTS OF EXAMINE
;STORE BAUD RATES

—

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAG? 12

HOST LOGIC TEST

§} ?Eg

TRY DOING

sT22:

017554
017542
1

17450

ST221:

017454

&
)20

2214

”

AN "ACTIVATE REMOTE'' FIRST USING “MAIN'', THEN 'STFUN''

sCLEAR TOP BYTE OF CSR

§3R= 2533338°3878383333

m.‘a-o-o.o-od.o-od
N
OO NOWVEWN
= O 00NN
—

sCHECK RESULTS OF STARTING A REGULAR FUNCTION WITH ‘MAIN''

;LOAD *ACTIVATE REMOTE'' FUNC

:DATA LEN. = 2
;ONE REQUEST
JREMOTE

‘L‘.;"‘g.f?’”

*ADDRESS RESULT

*READ RESULT FUNC. CODE

;ERROR:RES. FUNC. CODE WRONG FOR “MAIN''
;enennae ERROR 37 eennnnn

SCOPE

JSR

$T222: ?32

;ADDR *USOF**

:
:

DATERR

SHOW TOTAL FAILURE

;USOF 0.K.?
\N,USOFES

;ERROR:'MAIN'' ON REG FUNC

Jenneene ERROR

GAVE WRONG USOF
(111111}

MOV

$T224: g.

fio oga

;fl rg‘r" BYTE

’

SR
3SPAR

W T
:ADDRESS USOF

$T223:

fove $i27
L
B

6000

BT
S~

23322

1022:

JSR

SEQ 0045

TSHOULD SMOW REM. ERROR

CZCMUBO CMR(V)=11 HOST EXERCISE MACKG V03.02810-DEC-80 10:41:54 PAGE12-1

HOST LOGIC TESY

&0 010352
}

040000

0% B o

IS oy s
1

017254

767

8?32 R

126

DATERR

\N,USOFE4

glfl’

BQ.

s
€4 .RO

e :;%zm
JSR

§T223

SEQ 0046

;ERROR:WRONG USOF ON RE

Jenennnnr ERROR 41

FUNCTION

wenenan

8
flS

SEQ 0047

A2
v
rs TYPOUT

#21 CNTR

(R112R0
CNTR
7230

MBALDM

TYPOUT
PORTOM

mmao

n“%&%m

YES. JUS; PRINT "END PASS''
SET FLAG

‘GEF VERSION DATA

mm' ’veasxm oo

*PRINT MESSAGE

*POINTED TO BY VERSM
;DUMP ALL VERSION INFO

:PRINT 'BAUD RATES:"'

:PRINT MESSAGE

g{nrep
TO BY BAUDM
o

:PRINT MESSAGE
:POINTED TO BY PORTOM
;SORT OUT CORRECT PART
sPUT IT IN L.S. BIT PLACES

:R3 POINTS AT TABLE OF SATES

:DOUBLE OFF SET
CORRECT OFFSET
lfi;

sNOW PRINT “PORT 1 = **

:PRINT MESSAGE
L)

017000

#BALD RS

g
2
§§§g§§§§
i
¥ ghh
2
3

017044

JBRNRORUNIVSE
euntiowy
LESREALEYE

017130

S$T230:

#VERSUN,R1

}8 FLAG SET?

017110

ST23A:

VERFLG
ST23A

017222

R
7
g§§§§§§¢§§§§§ n§s§;2§32n 335323333

23533533

ST23:

017236

stg

[- b {=

13214347-

22222322228 328232323228282232822822323222228222233222222222222

;END OF LOGIC TEST. PRINT END OF PASS AND VERSION STUFF

[« AV PAV,
§ P

OV®NO
VNS WIN) —

—

3-11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG& 1?

:POINTED TO BY PORTIM
fi ‘X? BALUD RATE CODE
T OUT CORRECT BAUD RATE

f““fiffl?#&gunur
n}m pgg
gt
PORT 1

.ro*mo T08y r&ta

{1 Comect

:Dflflfi OFFSET
AS TABLE OFFSET
sUSE

EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG% 1?-1

& Q10re 004767 006356
7

7
167

*POINTED TO BY PORT3M
sSORT OUT CORRECT PART

3823

016714

16
16700
12

;DOUBLE OFFSET

sUSE IT AS TABLE OFFSET

;PRINT RATE FOR PORT 3
sNULLS AFTER PRINTOUT

14
16

016600

JUPDATE ITERATION
;DONE 10?
JSINGLE ITERATION?

ST264:

§:%§

016630

016560

ST2S:

;UPDATE PASS COUNT
;END PASS INMIBIT?

ENPRTN:

1
1631

JSR

o
16‘3

JSR
TST8

15
154

80273

JSR

ENO1:
ENRET:

JSR

ST26:

5 gxg§a§ 43
I3- 8 e

016606

—

SPRINT

*PRINT MESSAGE
s

235 g

83
SISRERIT
b

pife) i

)

(e
lolelel=l=]

(==

et et e

) el

R =D

L ILIiiiiiiiiiiii

RER2

BIF

229393933293 2g8g282e
FERESEIRRINI FSAIEL

NANNITELRERER
LB L IRURRUK2S

§} 714

SEQ 0048
;PRINT BAUD RATE FOR PORT 2

JSR

PNTM
MOV
JSR
MOV
8IC

335328 %3 -3

CZCMIBO CMR(V)=11 HOST

HOST LOGIC TEST

;PRINT END PASS INFO
sNULLS AFTER PRINTOUT
sCHECK FOR CONTROL CHARACTERS
;START OVER

:PRINT “END PASS # **
SPRINT MESSAGE

iPOINTED T0 8Y ENDPS

;GE

sa,m

SIT DID'T,

PRINT COUNT

IPRINT IT

IN DECIMAL

COUNT = **
SPRINT
I POINTED 30 87 ERCT
;CHECK FOR ERROR ENT_OVERFLOW

;1T DID hun{ “weOVERFLOW**"*

SSAGE
;PRI
*POINTED TO BY OVFLM
JGET ERROR COUNT
JPRINT IT IN DECIMAL

CZCMUB0 CR(V)-Q HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 1:
K,

SEQ 0049 |

PORT LOOP-BACK TEST

.SBTTL

;

“

9
8
S
g

sASK FOR PORT # TO BE TESTED (<CR> = ALL PORTS)

1
12767
7
128
B
®
032777
001007
81
1276
76

016424

1 0%00 PRLC:

016450

POK:

#B814,SR

JSR

JSR
MOV
CLR
CLR
CLR

PC,SWHLT
70, I1TER
ALLFLG
PASCNT
ERRCNT

JSR

#LTM.RO

PC, TYPOUT

mu RO
fi.rvw&n

016234

BNE
MOV
CLR
JP

PST
l-lfALLFLG
PST2A

BHI

PSTE

PST2

CLR

p&mt’cm
PC, INPKB
PCONT
M

u.%nc

- MOV

uu'x‘u RO

§i67%e PSTOA: MOV

#20,9(SR

RER SRR1S

OFLOF

MOV
JSR
CLR

PST2:

016226

016214

016202

JSR
JP
MOV

CLR

MOV
INC
MOV
INC
MOV

sERROR:HOST MICRO FAILED TO START
;ewwsaxs ERROR 4 2 ANRRANE

PC,ERR

N+

HLT

;BETTER CHECK FOR PWR-UP COMPL
;POMER UP COMPLETE?
:YES, CARRY ON
INO, WAIT A BIT

oS RO
fl.g ERRNUM

754
16314

PST1:

\N,NOGO

0016:

cnm

BIT

oc§a ,#102000

PRLC

CLRB

—

#0,CNTR

BNE

fi'fv
MOV

005410

35
ERROR

016356

VONOWVS

PORTLP: MOV

DEC

156
164
1
1

CRSEGEIRY
RUKISIRNRRRONN B

PORT LOOP-BACK TEST

sRUN LOGIC TEST.

:LOAD II’EMTIO‘ COUNT
CLEM

:CLR

:PRINT

COUNT

LOW FLAG

"PORT LOOP-BACK TEST

NT_MESSAGE
NTE
8Y PLTM

# (<CR>=ALL) **
P’GY
;PR NT
ME SSAGE
sLOAD RETURN ADDRESS
;GET KBD INPUT
WAS IT DEFALLT (OR 4)?

:srhu WITH mr o
SET "ALL"

:WAS IT HIGHER THAN 4?
*NO, MUST BE A PORT #

m'km
AGAIN

PC, TYPOUT
PS

PORT

2,8SPDR
3SPDR
AR
,@8SPDR

PAD

PORT ng'flfl

DATA LEN. =

:Df REQUEST

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:5¢4 PAG% 13—1

PORT LOOP-BACK TEST

) m?i
4S 0114
1.9 1
47 011
48

5%
55

o114

PST3:

PSTS:

1510
01151

PST4:

56 011
57 011
58 011
§9 011540
g? 011546
8

011550
8}}55&

011

7
75
#
78

011
7

}
1

#OATBL R
aSPAR
(R1)+,3SPDR
CNTR
PST3
TYPCR
#TYPCR,RO

*LOOP DATA FROM ‘'DATBL
:LOAD wm sm
LOADE
pv#e
:
mim TYPE <CR> WHEN READY''
:PRINT MESSAGE

MOV
JSR
CLR
P
BNE

#1236
. KBBUF
PC,INPKB
PCONT
KBBUF , #1236
PSTS

*LOAD ANY DEFAULT VALUE
:GET KEYBOARD INPUT

JSR
MOV

#20,ENTR

PC, TYPOUT
TS.PCONT

:LOAD PORT # (XMTR)
:LOAD PORT # (RCVR)

ICHARACTER COUNTER

:POINTED TO BY TYPCR
:INDICATE PROMPT PENDING
:<CR> ONLY TYPED?

+IF NOT, KEEP LOOKING FOR IT

011

1
1
1

MOV
mv

MIPS

#P0

#P0,~(SP)
#64$,-(SP)

;ALLOW LINE CLOCK INTERRUPTS

MOV
MOV
TST
aM]
JSR
B8R
16010 PST60: MOV

#20,3CSR
#200,3CSR
aCSR
PST60
PC
T
fi082
LaSPAR

;CLR
TOP BYTE
SSET "MAIN''
*LOOK FOR INTERRUPT BIT

BNE
JSR
P
3'5

PST
PC
T
CHK
gt;ga.ms

ERROR

\N.PLFFE

BIT

#814,3SR

648
:

005056
8°133§
1

:
.

766 000375

MOV
INC
MOV
DEC
BNE
PNTM
MOV

000020 015776
soggoo 015770
15764
PST6:

1
011
011
}g

PSTS:

012746
12746 011

65 011
69 1
67
011
68 011
% 1
161
71
01161

aSPAR
PORT, @SPDR
aSPAR
P%T @SPDR

;START MAINTENANCE FUNCTION

64 011550

INC
MOV
INC
MoV
MOV

0N
1
0114
1%
11
ON
1

SEQ 0050

010

040000

004567 004256

PST?:

015756

@ 004716
040000

015730

'n'wf
MOV
JSR
=

BIT

sNOW CHECK USOF

*DONE SUCCESSFULLY?

:NO, CHECK ERROR TYPE
;YES, DONE A PASS
SFUNCTION FAIL?
;ERROR:TOTAL FAILURE OF ‘MAIN'' FUNCTION
sennnant ERROR 43 teennenn

.ozo" RO
fi'sm
:cdém
#8164,

3SR

BNE

PST

MOV
JSR
MOV

#PORTMS , RO
PC
PORT

PNTM

sAND WATCH FOR CNTRL CHARS.

PORTMS

PST7S JSR
ggt‘n nf?t
g.scnm

nlm$x]

azo'

r .i

ME SSAGE
mnm 70 BY PORTMS

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGE 13—2
M

PORT LOOP-BACK TEST

g’g
MOV
MOV

aau asR
mmo
RO

JSR
=

BIT

PNTM

MOV
JSR
MOV
JSR
PST8S: SCOPE
JSR
000373 PST80:

BIT

154

015422

JSR
=

BIT

Pciém

14, 3SR
PST8S
PORTMS
mmsRO
TYPOUT
m&r
rm
as.scmm
ENDCHK
@SPDR, #373
PST9
\N,PLRCTO
#814,aSR
420
CT0,RO
ERRNLM

sERROR:XMTR TIMEOUT ERROR
Junnnnns ERROR 44

sonnnan

mm ALLOWED?
SKIP IT
mim PORT # **
*PRINT MESSAGE
*POINTED TO BY PORTMS

'
:RCVR HUNG UP?
;ERROR;RCVR TIMEOUT ERROR
sennnnnn ERROR 45

/14, ask

mm ALLG-ED"

PST

PST80S: s?t're

:;f

PST9:

JXMTR HUNG UP?

wxnnnnn

rc{tm

015530

BNE
MOV
MOV

2ag= 333 ~2833
;

004516

g
2

767

015556

PRl iRG

032777
7
1
7

(M
BLO
ERROR

\N,PLTXTO

SKIP IT

im PORT # **

PRINY ME SSAGE

fl%‘.m

;ADDRESS DATA TO FIND BAD WORD

8SPDR,3SPAR

¥ 2o

015630

ENDCHK
@SPDR #3764
PST80

FEER

004616

JMP
(TM
BLO
ERROR

“i“szg*

PST8:

000374

015656

b e e

o e

N=o3BIXR

—

RER

?2330
015666

PSTS

8 38 2

288

95
9%
97
98

335

9
9%

2 8

S22 ITITIVIIIYYY 22222 2222222223222 2222

89
90

DAY B RV R ERkOONS P7es JREFE BEERCOSRaSEEEy
Joou

011750

8282

85 0N
% 11740
8
11;;8
8 0N

11559

omn

SEQ 0051 |

:POINTED TO BY PORTMS

:GET GOOD WORD

;ERROR:LOOP TEST DETECTED DATA ERROR

e ———————————————————————————

N &
CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 18-3

PORT LOOP-BACK TEST

113

115

11% 01

010

040000

015374

1
1
116 01
117 0
118 01

119

1
4
1
1
1
1
1
i
13

:
1

135
1
}

015270

151
1

RS,>CPRTN

ENDCHK: BIS
ST

#804,3CSR
ALLFLG

g
O
815523
015230

SCOPE

PNTEND
PORT 43
ENDO
Pgnr
#3,3SPAR
PORT,aSPDR
aSPAR
PORT ,@SPDR
PNTEND

INC
MOV
JoP

aSPAR
PORT,@SPDR
PSTS

B
MOV

015170

PNT1:

sPRINT ALLOWED?

;PRINT ‘PORT # **

sPRINT MESSAGE

;POINTED TO BY PORTMS
;PRINT #

:CLR TOP BYTE
*DOING ALL PORTS?
*NO, DONE A PASS

*YES, DONE ALL?
;C

IN REQ. SCPD

o
PORT, aSPDR

sNEXT PORT
;PREPARE TO LOAD NEXT PORT #

ITER

sUPDATE ITERATION COUNT

BIT

#811,3SR

:SW 11 =, INM ITERATION

MOV

#10,ITER

sRELOAD ITERATION COUNT
sUPDATE PASS COUNT

BEQ

PNTO:

pgf

BEQ
P
BLO
CLR
MOV
MOV
INC
MOV
BR

PNTEND: DEC

015142

148
149
150

JSR

15302
15276
015264

147

PORTMS

PST9S

#PORTMS
, RO
PC, TYPOUT
T.RO
PC gérmr

000003

015212

144
145
146

PNTM

PSTS

141

N+1
#B14,3SR

MOV
JSR
MOV
JSR

140

=
BIT

BNE

PST9S:

1
1
1

BEQ

INC
BIT
BNE

rm?

PNTRTN

PAS
#810,asR
PNTRTN

JSR

PC,ENPR

18:
JSR
PNTRTN: JSR

PC.NULLS
PC
T

1ST8
BEQ
JSR
P

%xm
PC.PRNTIM

psfs

:SW 10 = INH END PASS PRINT
sPRINT END PASS
;18 cg‘xx TICKING?
:NO
P PRINTOUT

SPRINT MULLS
éwsto TIME
SPRINT

MACRO V03.02810-DEC-80 10:41:54 PAGE 13
EXERCISE
HOST
CMR(V)=11
C2CMIBO
HOST-REMOTE EXERCISE
: ART BA ?
.
PORT

eTHEN
:
SAND
+ AVAILABL

r ron “THRU'

nm STATUS'' REPORT
cwxm
ulmncFUNCTION ON ALL

ALcmcses OF REMOTE STATUS
REPORT

w LE

———

N = OOVR~NO
NS W

HOST-REMOTE EXERCISE

b e

648:

CELP:

M“%Mbu

CMREXC: MTPS

MOV
MOV

‘8

=(SP)
#648,=(SP)

; INTERRUPT ON

CLR
MOV
CLRB
(LR
MOV
(WP
BEQ
DEC
BNE

nzcm
#10,ITER
OFLOF
ERRCNT
#0,CNTR
aCSR, 4102000
EXS1
CNTR
CELP

;CLEAR PASS COUNTER
SLOAD ITERATION COUNT
:CLR FLAGS & COUNTERS
;SET UP TO TIME POWER LP
:PUR-UP f SET?
SYES, CONTINUE
INO, WAIT A BIT

RTI

ERROR

8IT

814,358

MOV
JSR
=
MLT
JSR
CLR
CLR

% ‘gnun
PC
mi
PC,SWMLT

EXS1:

\N,NOGO

>
mmm
i"

;ERROR:HOST MICRO WON'T

;enennns ERROR 47

START

wennean

Rz RO

;RUN LOGIC TEST

mrgya
:

%ghn

Erofnm ¥8 -v" EXCM

e
g}'iR
TALLY

E:‘&!

B R,,aumfm
;CLEAR TABLES

;EXERCISER MAIN LOOP

oo'
Otl

0000

mus

o EEL

i
3

LOCSR

GEERee

Y:CLR TOP BYTE

s—————————————————————————————————————————————

.SBTTL

C2CMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 13-1

SEQ 0054

LmfimT&%T2nmsNnsm3&nmnumnmB

HOST~REMOTE EXERCISE

=mwmmzm3wumm.mmngmlgty}mumum

JSLYTIRSANRANIRERASRTIEKSESE

EXS3:

EXS3A

$38

3Sou58fBuee

’ %g

EXS2B:

CZCMUBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGg 28

HOST-REMOTE EXERCISE
1

:PORT CONFIGURATION STATUS SUBROUTINE
*PERFORMS A P.C.S. ga ALL 4 PORTS AND SAVES THE

2
S

SEQ 0055

*REMOTE #'S IN TABLES
0131

PRTCNF: CLR

1 o1

B
JSR

9 1%

§ 13

g
15
0131
%%
18 01
19

01321

50 1

CLR

;mm
xma.mw

JSR

2
JSR
oV
JSR
ST

BNE
RTS

:CLEAR 'CHANGE FLAG''

ALLY

-POR

.-cn.;m
:SET

TE TALLY

UP TO CONFIG PORT 0

;DO PORT CONFIG ON PORT 0

;DO PORT CONFIG ON PORT 1

mgv

;DO PORT CONFIG ON PORT 2

PC .PORCNF
cmg}
PRT

:DO PORT CONFIG ON PORT 3
SANY CHANGES PENDING?
*IF SO, DO IT ALL OVER

RS
PC

TBE58T3,TgR&2hSyEoToFRR£EE:cREE:UBFLB2Rk.A

gCuOF3ER.,BB54E4BBoB%E4ofsB2

LmDmxbeaLDSOmXfRB~mwmRmmImw»3mBS~mNmBl.mI¥3
SIS Emita taiane,s

—
r
—
—
e
—
r
—
D
O
O
N
T
N
T
M
=
O
O
N
T
N
=
M
o
L
o
l
s
s
,
s
s
l
g
l
o
l
L
l EAE E E E PE
HOST-REMOTE EXERCISE

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 2¥

seaoosbf

CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE Zg

HOST-REMOTE EXERCISE

;SUBROUTINE TO CHECK FOR ALARMS AND CHANGES OF REMOTE STATE.

;
:
S

9
3

IF ALARM,.. RING & agu.s
IF CHANGE OF REMOTE STATE...SET A FLAG

3&,’.
MOV

?1f‘“”
c?.\no

N0 cugcx FOR CHG ST
SALARM! RING TTY BELLS

JSR
JSR
BIS

PC.TT0
PC.TTO
PC TTO
#8046, aCSR

;CLR ALARM

JSR
JSR

10
11
1;
1

014022

i
19
13
2

014006
&')32‘8
e

SCA1:

013750

2
gg
MOV
BIT

n;a.asa

MOV
JSR

ERARNLM
PC ERR

a‘.'.fv

002766

NOP

PC.TTO

?1 LaCSR
.ogm
ErAs
ERROR fn.smn

014026

JSR
PNTM

amwt:
Jr
g’u

MOV

SREMSTM, RO

éfi

fim

013720

B
013676 SCA2A: gx:

PNTM

'fi
“
SCA2B: MOV

:...QQ.. Em

i3 2 21

]

?g
MOV

PNTM
B
JSR

;N
OF STATE?
:SEE IF g‘#s xg A SYS BRR
WS TREE
;ERROR:HOST SYS ERROR.
LOGIC TEST.

”mu RO

;

SEQ 0057

WH
5}&

ERAT

:POINTED TO BY '3k
REMCHG
SPRINT
e Sr'é' 8Y REMSG
g

Enfm
gy
STATUS NOW **
SPRINT ME

PC, TYPOUT

:roium

2
PRE

Egs PRINT *REGULAR"'
SPRINT ME

SPOR
RRGG
RRGMG
, RO
YPOUT

8Y REMSTM

g REGULAR?

R
: IRREGULAR?

;YES. PRINT “‘JRREGULAR’'
.-21:.'
4
:POINTED TO BY IRRGMG

;OTHERWISE., JUST PRINT THE STATUS

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG? 23-1

SEQ 0058

004336

013654

SCA2C:

013646

SCA2D:

23 14601

013527

0
}

SCAZE:

}‘O“

figgg .
004000

013514

GO WS o e
iR

NSO~

é }

29 1§ 12 3‘2
0

@®

3532283RRa85S b4

HOST-REMOTE EXERCISE

PC,OCTPNT

:AND # AVE THE TALLY ALONE
;UPDATE
TALLY FOR ADDED REMOTE

lST*LY
NfR?ADY =0?
IT

LESS

MAKE
lS T&l.
o?
OVER
:vtiNTmvz TO START
TES ARE TRREGULAR''
PRI

;Eo NTED TO BY ALROFF

: CLEAR
GO SEE

IF ANY MORE CHANGES.

§ T THE "“THRUF'' FLAG
cwinTOP BYTE

CZ
CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 23
HOST-REMOTE EXERCISE

SEQ 0059

;swaout

*FOR

:TABLES ARE IN THE FOLLOWING FORMAT:

8
13

|
.

gradis
}s1S }2}1

osiez
013514

39 12}
1‘3 12}
2}§
4

013502
013470
013456
81;393

PORO:

POR0OD:

013400

002340
N

POR1:

t3 1%i

# OF
1ES
REM }.TA
g
M #

TG ’%‘
A ECe
u&v
aSPDR
x”ficv
x”ficv
vasa
BIS

0'3 3SPDR
fimmn
"m aSPDR
L@CSR

BNE

POROY

BIT

‘sa

014

EACH REGULAR REMOTE f&»
& mu IS INCREMENTED

PORCNF : MOV

RFORM ‘PORT CONF IGURATJON gmus" ON A GIVEN

's'?"
A xs M
sr'? ue?.tsIN A cxven TABL

#B14

aCSR

PC,SCALM

JSR

gga

ERROR

\N,SYSER

p.x‘r
MOV
MOV
JSR

Q%.m
#SYSER RO
31 ERANLM
PC,ERR

S‘stl

PC,SWLT
mm

MOV

(R1)+

hetand PORLD : a

gfinm

013270

PORCN: ?
v‘un
ADD

PORXT: b
TS

;DATA LEN, = 2
; ONE REQUEST
:PORT #:v
GIVEN cu.m
shw
FUNCTION
uumm COMPLETE?

:NO, WAIT

*SCAN ALARMS AGAIN

STHIS RESULT FROM PORT CONFIG?
;ERROR:MOST SYS ERROR.

jennnnes ERROR S1

Nef

1'35

GIVEN BY CALLER

Fcin
:LOADToePORTBVt&F
CONF. ST.o FUNC.
;TABLE ADDR

;GET # OF REMOTES

:DIVIDE BY &

mi’n’a'»'o'
ainal (R1)+

Mll!!

;LOAD REMOTE #
;LOAD REM. STATUS

PURN

B
D
Efidr%

LOGIC TEST

etnennn

C2CMUB0 CMR )

-1 WS T EXERCISE MA MACRO VO3. 02810-DEC-80
10:41:5¢4 PAGL 2§-1
3

sEo

HOST-REMOTE EXERC

1%
1%
14
14
1%

013174

BNE
CLR
ADD
BIS
RTS

18
TALLY
RO, TALLY
#804,aCSR
PC

:NO, NEVER MIND
SYES, CLEAR TALLY
SUPDAT u#v
:CLR TOP BYTE
SAND RETURN

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGE 24

HOST-REMOTE EXERCISE
1

;SUBROUTINE TO REPORT THE STATUS OF EACH PORT WHICH HAS ANY

g
&

*REMOTES ATTACHED AND REGULAR.
14;;4.

REPORT: PNTM

14374
1

s 01

9 w..‘
3 1
1
10 01
11 01
15 1
13
01
1% 0144
15 0144
19
1
:
13 &4
19
01447¢
45
14506
4
4
4
450¢
4

2 '
4
4
2 .
45¢

SEQ 0061

g
014574

1
1311

1
106

013146
REPO:

013116
REP1:

013066
REP2:

013036

mtns

*CLR "PRINTED SOMETHING'' FLAG

g
MOV
BEQ
INCB
MOV
JSR
MOV
MOV
BEQ
INCB
MOV
JSR
MOV
MOV
BEQ
INCB
MOV
JSR
MOV
MOV

ih
en
amo cum
REPO
PNCFLG
#0 . PORN
PC . PRNREM
#EXTBL2,R)
(R1)+,CNTR
REP1
PNCFLG
#1 ,PORN
PC .PRNREM
#EXTBLS,R1
(R1)+,CNTR
REP2
PNCFLG
#2 .PORN
PC .PRNREM
SEXTBLG
R
(R1)+,CNTR

%
MoV
JSR
REP20: y..f.‘m

PNTM

REP3:

;PRINT ‘% PORT CONFIGURATION #+'’

mmas.ao
TYPOUT

CLR8

013160

CONFMS

MOV
JSR

o
RIS

mffs
?m
mtnc

*PRINT MESSAGE
*POINTED TO BY CONFMS

.ALL%n;n'sPER LINE.
GET # OF aenre
:
HERE, NEXT PORT
SSET F
:LOAD PORT NO.
:GO PRINT REMOTES ON THIS PORT
;GET # OF REMOTES
:NONE MERE, NEXT PORT
“SET FLAG

;GO PRINT REMOTES ON THIS PORT
;GET # OF REMOTES
:NONE MERE, NEXT PORT
SSET FLAG

;GO PRINT REMOTES ON THIS PORT
;GET # OF REMOTES

:SEYEF&~

;G0 PRINT REMOTES ON THIS PORT

ngo ANYTHING?
(7

e
*RETURN WHEN DONE

IRREGULAR.

K
CZCMUBO
CMR(V)=11
HOST
EXERCISE
MACRO
V03.02810-DEC-80
10:41:54
PAGE
Zg
HOST-REMOTE

SEQ 0062

sSUBROUTINE TO DO THE PRINTING PART OF PORT CONFIGURATION REPORT.

:R1 POINTS AT FIRST REMOTE #

:PORN
= PORT

TMS
#PORTMS ,RO

:GET Ys
CI.R HIGH
PRINT IT

BYTE

mt THE STATE

S
oaoy
S35

sGET REM. STATE
:CLEAR THE JUNK OFF

3333

'y 33333
3 33z

:PRINT THE STATE

PPt T L b

re-y

zuflfl

YIS

:POINTED TO 8Y PORTMS
:GET PORT

e
o
ot

;PRINT 'PORT # **

sPRINT MESSAGE

PRINT IT

PRNREM: PNTM

B e

b o

0000

S3ERRRCRERERERRECEES&

D =D

:CNTR = # OF REMTES ON THIS PORT

BRI
2ERNERREN
NS
aIcnr =
v
OBVGNRNUSOO®

~NONSWn—

EXERCISE

JLINLEN

sCLOSE BRACKETS

sEXIT IF ALL DONE
sFILLED A LINE?

;YES, RESTORE LINLEN
: CARRIAGE RETURN
:SPACE PAST PORT #

;ANOTHER <CR>

;AND RETURN

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG% 26

HOST-REMOTE EXERCISE

s SUBROUTINE TO DO DIAGNOSTIC FUNCTION ON A GIVEN REMOTE

:ENTER WITH REMOTE # IN

5 014

012570

DIAGNF: MOV

g §}

012622

x"r'icv

1501

012610

}

012576

14
"IS

012564

119 4gisa

i
g‘l“

11{
N

g
i
Glak

2
12454

MOV
CLR

MOV
INC
MOV
INC
MOV
DIAGO:
INC
MOV
DEC
RNE
DIAGOO: JSR
BIS
BIS
DIAG1:

51§

151

15176

001442

001412

g
JSR
Z

MOV
SCOPE

gfk
1
1

39
49 ?gfi
015

0 2336

ADD

MOV
MOV
P
BEQ

'¥

8SPAR

:SET UP TO LOAD REQUEST

;ADDRESS REQ SCR PAD
:LOAD

'DIAG'* FUNC

:DATA LEN. = 22
;ONE REQUEST

:LOAD REMOTE #
:LOAD DATA PATTERN
sCLEAR ALARMS ETC.

*CLR TOP BYTE
ssr START FUNC.
sFUN COMPL?

:NO, WAIT FOR IT

;ADDRESS RESULT SCR. PAD
*RIGHT FUNCTION?

GOOD

Q'x‘

\N,DIAGF

;ERROR:DIAG FUNC GAVE

;ennnnet ERROR 52

nzgcr
RO
#52, ERRNUM
6em
mi
ggmoo

LSCPRTN

“&M

600D
asPDR
w

;CHECK FUNCTION STATUS

*SHD SHOW SUCCESS

:0.K.

;ERROR:USOF WRONG ON ‘DIAG'*
;ennnans ERROR

JSR
BIT
=

BNE
PNTM

2
um ask

DIAGSS

num

uuo?

FUNC

S3 senneen

8IT

ROV
MOV

FUNC CODE

tennnna

#814,aSR

DATERR .omur

012364
001324

pIAGH

#100, 600D
aSPDR

BIT

DIAG2:

814 scsa

MOV
MOV
P

#22,aSPDR
AR
#1,aSPOR
)
REMNO, @SPDR
aSPAR
(R2)+,3SPDR
CLK
DIAGO
PC,SCALM
04, aCSR
#800,3CSR
orc 3

BEQ

012452

nogkm

DATERR

BNE

DIAG10: MOV

015

01;}56

BIT

#20,CLK

#DATBL ,R2
SPAR

uf"*
PRI tmn PR

M5
CZCMIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGE 26-1

SEQ 0064

HOST-REMOTE EXERCISE

‘g
43
&%
4S

4.9

1
1
1
01
01
1
1
1

48 01

CuNE
01

1
1

og W

01
052
000207

000020

#REMSG, RO
PC, TYPOUT
aSPAR
3SPDR RO
PC.OCTPNT
STATEM
#STATEM,RO
PC,T
3SPAR

JSR

PC,OCTPNT

MOV

A
JSR

50 01
12244
51 015
1
12242
g 015
76
P
015374
015376 004567 000610

015400
54 015402
55 015410

MOV
JSR
INC
MOV
JSR
PNTM
MOV
JSR
INC

INC
MOV
JSR
DIAG3S: SCOPE
JSR
012156

DIAG4:

DIAGOO
BIS
RTS

PC,
TYPOUT
aSPAR

sPRINT MESSAGE
;POINTED TO BY REMSG
JGET REM. NO.
:PRINT T

JPRINT

“STATE **

JPRINT MESSAGE
POINTED TO BY STATEM

;GET STAE OF REMOTE
JPRINT 'USOR = *'

sPRINT MESSAGE

sPOINTED TO BY USORM

PC.OCTPNT
gg

LSCPRTN

#804,3CSR
PC

;CLEAR TOP BYTE WHEN DONE

+SBTTL

MAINTENANCE ROUTINE

flf
neq.g;t
SCR, m m as OADED/READ

THE FUNCTION
UNCTION CAUSES

TD'E
FIRS?
LOCAT{
RESI.I.T SCR. PAD
flfcm-d
CSR MAY BE EXAMINED BY TYPING
: IT'S BUS ADDRESS FOLLOWED BY SLASH (/)

: EXIT ISA%Egb 8Y TYPING CNTRL-C
‘OR 'r'
D TO THE POINT AT WHICH THE
:

1 g

335“4 12@
1

wvilavwiawnawnawnwnawnunawnnanawn

gag

012126

0
01 62

161
002552

6767

$0$:

$18:

801775

MOV
JSR
CLR

KBAUF

BNE
MOV
JSR

po—— MOV
JSR
B8R

$38:

BIS

$48:

$23
ADDR, CSR

$108
#CSR,RO
PC,0CTJISP

g5
508

mwi"n
RO
YPOUT

s IF ITW

:SET_DEBUG FLAG

: SAVE c;a
FOR LOOKING AT

:PRINT *OMR=11 DEBUG AID'’
:PRINT MESSAGE

:POINTED TO BY DBAID
;GET ADDRESS

: FROM KEYBOARD

umun LIMIT?

*YES,

0.K.

218 IT THE CSR?
*NO

;YES, SHOMW CONTENTS OF (SR

sPRINT MESSAGE

;POINTED TO BY AGAIN

TST8

BIS
CLR
P
BLOS
gs

011744

mh%

sSTOP CLOCK WHILE WE'RE HERE
:BY CLEARING INTR ENAB

BNE
1ST8
BEQ

$2A8:

000151

ADDR

MOV

Y
e

011766

awgo
RO
PC, TYPOUT

&oo?.m

$28:

aLCS,=(SP)
5
#-1,DBFLG
@CSR, SAVEC

ggky

BLOS
P

012050

1
n
s

$00$:

MOV
CLR
MOVB
MOV

$008

BIT

BNE
JSR

81 262

TSTB

1”

ODTPR:

(%]

154

012113

105767

INTERRUPTED.

Seven

01541

015412

WKZBSELEGRER
288

SEQ 0065|

THIS WTI'G M?
LIKE WT MSICALLV eur
AD MEMORY.

e 8

m-.JET
A S AN ——y
V0NV
= O V0NN WWIN) =

N
CZCMIBO
CMR(V)=11
HOST
EXERCISE
MACRO
Vv03.02810-DEC-80
10:41:54
PAGE
2;
MAINTENANCE ROUTINE

$138:

$238:

'§§S

sADDRESS RESULT
;00 <CR>
LOAD

LGET 'tomsms"
SAND PRINT IT

SAGE

‘POINTED TO BY TWOSP

;GET m INPUT

SLOAD ANY NEW INPUT

‘LINE FEED?

:IF YES, INCREMENT ADDRESS

$228:

SEQ 0066

ADDRESS?
‘,’2‘5”

$218:

mm NEW ADDRESS
SPRINT A SLASH

(1]

011674

L2l

002314

SRR 323 i

$118:

§h#w

ADDR

—ba

011732

$58:

23n38%s

011674

23R
0 38393383 :sgzaazxgsgzsggzgzggzggz;gg
22843

¢ &

5 Pz
1

LEIRIFRRAV2BIAIFANANIITEIRERER

ZBIEIENR
93 b mch D )
b o =B ) md

T EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 29-1

(SP)+,aLCS
DBFLG

PCONT, (SP)
PC

6000 GET A NEW ONE!

;60 PRINT CONTENTS
SLASH TYPED?

'S ‘P
ENTS

YRURUKYEIBNRRREN
Y S Ic AR =S 0m~o s wn— 28

+SBTTL

SEQ 0067

UTILITY ROUTINES

RGJTI'fS TO SAVE NO RESTME GENERAL REGISTERS

)

2222323 222223

SFRRUo8R R8N

:g
: CALLED BY JSR
REGRES
: AND
REGSAV: MOV

Ré,=(SP)

MOV
MOV
MOV
MOV
JMP

.=(SP)
R2.=(SP)
R1.=(SP)
-(SP)
aRrS

REGRES: BIT

RO, (SP)+

MOV
MOV
MOV
MOV
MOV
RTS

:THROW AWAY OLD RS VALUE

(SP)+.RO
(SP)+.R1
(SP)+.
n§
(SP)+
(gm‘Ré&

177777

——d

oo
=3 2

;ROUTINE TO SET LSI-11 FLAG (SOF TWARE)
011410

LSTST:

MOVB
RTI

#-1,LSIFLG

:SET LSI=11 SOFTWARE FLAG

*RETURN

— e

—d

o
d

;ROUTINE TO SET SOFTWARE SWITCH REGISTER FLAG
72

SRTST: MOV
MOV
RTI

#SSWR, SR
#-1,SWRFLG

;NO HARDMARE SWR, USE
: MEMORY LOCATION
i

AND SET FLAG

FERYE

;ROUTINE TO PRINT ILLEGAL DEVICE ADDRESS
002000

VRUKNZIZSEIEGREANLEEE

=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:5¢4 PAGE ZS

DVATST: MOV

MoV
JSR
»p

s1sp 5P

‘g’x'mm sug'

huvuo.uo
TYPOUT
:&m

:PRINT nm‘
:60 GE
CT ADDRESS
:romr;o 70 BY INVLAD

sa % (CALLED BY MACRO*

aoum!

0114644

000516

MALT WITH CALL TO su

SWMLT: ;g
JSR
.
RTS
$:

func
PC, SWDMP
PC

ANY
3 (3
:

amo:s

xfl'

sROUTINE USED FOR LOOPING ON ERROR ROUTINE (CALLED BY MACRO “‘SCOPE
")

SBAK

177742

020000

011376

011322
011262

JSR
MOV
BIT
BEQ
MOV
JP
SCONT: INC
BNE

MOVB
SCORTN: RTS

b
e

A'gvo

MOV
-

7'33
MOV

MOV

)

DEVGEN: MOV

RTS

222922222

PRDFLT: MOV

JSR
MOV
JSR
MOV
JSR
MOV
JSR
RTS

HDER:

MOV

011230

FLAG.

VADR RO

:GET DEVICE CSR ADDRESS

-SPAR

;GENERATE SPAR

3
tfm

#340,2(R0)

mfuo

pc, 10
KBAUF RO
PC OCTPNT
25 RO
PefT
¥
pc.fro

sGENERATE CSR

GENERATE SPDR

;RETURN

;GET OPEN PARENTHASIS

:n;m ;t
sGET DEFAULT VALUE
IPRINT 1T
:GE
PARENTHAS
IS
;PRI
SAND PRINT A SPACE

cw.r’pv

#“

TR
RO

MOV

STEw
ot”

MOV

g#?

SBUSIRGR2VELE

*SET OVERFLO
SAND RETURN

;ROUTINE TO CATCM ERROR TRAPS TO LOC &

i
D e e
ld

#-1,0FLOF

;GET g: gnan FOR SCOPE LOOP
?
*NO, DON'TJ#"’
:YES, RESTORE
RS
*AND
:
:
:UPDATE ERR CNT IF 'FALL THRU
SWATCH FOR ERRCNT OFLO
:SW 1

;ROUTINE TO PRINT DEFAULT VALUES FOR PROMPTS AT FRONT END.
:
ENTER WITH DEFAULT VALUE IN LOC. KBBUF

—r D e

PC
T
(R$)+,RO
/813,858
sconf
(SP)+,RS
(RO)
ERRCNT
SCORTN

SEQ 0068

sROUTINE TO GENERATE CSC DEVICE ADDRESSES FROM 'DEVADR'’

fldgdddddd

RSV 28IRIRRRER2BIIVFANINIITEVRSRERSBBLIR

99233992

£3
Ae

1 HOST EXERCISE MACRO v03.02810-DEC-80 10:41:54 PAGg 28-1

m;v

STR

;SAVE

RENEW

STACK FOR ADDR OF TRAP

STACK ur%

‘zig o nn e

ING

Moo

;PRINT SOURCE OF TRAP

;REFRESH STACK POINTER

;ERROR ROUTINES: REGULAR ERRORS AND DATA ERRORS.

fiecs 16257 20802 ooz ERR:

MOV

SUB

(SP)

,ERRAD

lgtzn»

:GET

:tm‘éfif’

OF ERROR CALL

CZCMJBO CM(Y,)‘-P HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 23-2

UTILITY

ERR1:

115

119

113

DERR:

MOV
JSR
JSR

FERAM, RO
PC, TYPOUT
?crfin
WDA

663 2ad5dadnsd

121

RO,=(SP)

PNTM

1
1%

MOV

PNTM

1
1
14
001512

MDAT RO

+,RO

PC . TvPOUT
PC

(SP) ,ERRAD

PC,

WS$D8

8Ab RO
PC,OCTPNT
PC

RERZE

.WORD
.WORD
.WORD
.WORD

LASCII

/78SHOLD BE WV

ASCII

/7, WAS W

7 AT LOC. WV

3
§

JASCII

£33 R
&~ O

(OMLY SOME OF IT)

i o

X F=28358

sASSOCIATED ASCII

‘

ADDR OF ERROR MSG

:PRINT ERR ss
. RETURN

;GET
:C

.-n: 15

SPRINT

OF ERROR CALL

. ERROR MSG
8t '

SPRINT MESSAGE
*POINTED TO BY WDWAS

ERRAD:
ERRMUM:
GOOD:
BAD:

%7 g’

:GET

;PRINT ADDRESS OF ERROR

M"aw
PC,T

1
1
1
}

1466

JPRINT ME
JPOINTED TO BY WDAT

MOV
JSR

;RELATED STORAGE:

145

‘PRINT ME
*POINTED TO BY ERRM
:PRINT
ND. (P)
SPRINT TM A
TM

:PRINT ME
:POINTED TO BY WDSD8
:PRINT GOOD DATA

;

1
1
1
1

ER 1

SPRINT Twef

MADSDB
PC,T
600D
PC.OCTPNT

MOV
JSR
RTS

Ehoan, R0

:STACK ERROR MSG ADDR

MOV
JSR
MOV
JSR

PNTM

1
1
} 1

ERAM

110

SEQ 0069

SPRINT *°, WAS **

:PRINT BAD DATA
*RETURN

CZCMJBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 2"3
UTILITY ROUTINES
F

148

.EVEN

SEQ 0070

XERCISE MACRO V03.02810-DEC-80 10:41:54 PAGg 28
N = OO 00O N & WM —

.SBTTL

RROR

*ALSO MONITORSrmgu

)
e

MONCH : g'c.
:

MOV
JSR
MOV
JSR

PNTM

s
MONI C
EX6
u”

xr ser

FSURMSG , RO
PC, TYPOUT
ash, RO
PC,OCTPNT
TWOSP

EX3:

EX6:

mn gnPARITY BIT
3

SPRINT MESSAGE
.ro;nm TO BY SWRMSG
-3 W OF SR
‘PRI L'o
:

PROMPT (:)

skmer
rcfixmh

iroe
oo Sulfores
:GET KBD INPUT

MOV

KBBLF , 3SR

h%
comu
mnm 0 BY TYPCTP

TYPCTP
:c' tm""o

convt: MOV
BTe 3%
acke

occx um CHAR.

nfuulsf EXIT

o
'c’f'u

CCRTN: PNTM
mv”

EX1:

rmc xans

CNTRL=-A DUMP PORT CONFIG TABLES

oun 8%
aM]
JP
MONIC:
MOV

BNRRRE
LESELEGRELSEEEIRIRUCIEY

{fioc
ONT

CNTRL=0 GO TO CMR-11 oeaus ROUT INE

;

e e

VERY StD-TEST fi!
10
IF CNTRL=G OR CNTRL=(C WAS TYPED

sENTER AT MONIT FM

"SWITCH'' MONITOR ROUTINE

F
:ENTER AT SWDMP

SEQ 0071

81
8IC
BEQ

MOV

15P,

:;TR ¥fi OFF F PARITY Y BI BIT
:) m SWR AGAIN

2’5
lq,v
k

i
SY!;L‘B
?‘fy

5;:'7

g:
MOV

;g‘n
ISP SP

§s CNTRL=C TYPED?
SYES, REFRESM STACK

5
P
OW

-:3EPLINE
LOOKING
? 2 sT TYPED?
:ve$

TACK

:25‘&?; YPED?

DISPATCHER

‘u G0 TO DEBUG ROUT INE

onf
5.&

SAND 11»1
SWAS 1T %52

EX6:

RTS

S‘“"
1o &=

% et

ONT

PC ,PNTCNF

JSR

(2]

:8 05

BNE

SEQ 0072

EXS:

)

ERERSELASRER

e an
@

}éXERClSE MACRO V03.02810-DEC-80 10:41:54 PAGE 28-1

CARRIER

INTO F;LL COUNT ROUTINE
YPED

Exé

. BYE!
INT PORT CONFIG

PRNTIM: PNTM

MOV

ELTIM

#ELTIM, RO

B
JSR

S
PC,DE

JSR
MOVB
JSR
MoV
JSR

pc,fTo
NS, RO
PC.DE
”:
PC

MoV

e
v
JSR
JSR

MOVB
RTS

”:

G
iR
pc.fro
TICKS.RO
PC,DECPNT

JPRINT "EL. TIM, **
sPRINT MESSAGE

3833
-

233

sROUTINE TO PRINT ELAPSED TIME SINCE START=UP OR CNTRL-C

R2BIIIFANINIITE

g28228a2aee
AAAIINNINNY

LESRERZEILIFIREE 2

)=11_HOS
TOR ROUT

POINTED TO BY ELTIM
HOURS
3
JPRINT IN DECIMAL
:”

OC:OC

;GET MINUTES
JPRINT IN DECIMAL

SGET SECS

SPRINT IN DECIMAL

JANOTHER **:**

SGET TICKS (1/60 SEC)
sPRINT IN DECIMAL
:RETURN

]

—-_<

T EXERCISE MACRO Vv03.02810-DEC-80 10:41:5¢4 PAG£ 38
.SBTTL

SEQ 0073

MESSAGE PRINT ROUTINE

;MESSAGE TYPOUT mut (cn.uso BY MACRO PNTM A)

;MESSAGES ARE IN THE
F

MESG:

ASCI]

mtssAesw

:ums € IS TRANSLATED INTO CR. AND LF.

- D md ) - nd - ) ) b

W“wwaw-ooawoubwd

N
~N

RS
w

;USES THE SUBROUTINE 'TT0'’

u“qcu F:lNTS CR. & LF. UPON
g!l'fi A CR. CODE.
IS MESSAGE TERM]

81 72 ?1
17276 11
1
2

000000
000100

880315
1276

1
1731
1
1
}

%
}

000046

76
6

ZENTER WITH ADDRESS OF MESSAGE IN RO
TYPOUT: MOV
RO,~(SP)
TPOFCH: MOVB
u ) RO
P
'ho

:STACK ADDRESS OF MLSSAGE
SFETCH ASCII BYTE
.xs IT @ (TERMINATOR)?

MOV
TPCONT: JSR
INC
8R
TPOUTX : ;.;.;

*YES m DATA TO CR
7
:
roxma TO NEXT BYTE
SFETCH NEXT CHARACTER
:POP STACK TO REACH RETURN VECTOR

Eg
BNE

x
601

#15,R0
pc,fT0
(SP)
TPOF CH
:cSP)O

’xs X
‘NO-;vgu
CHARACTER

.SBTTL

NPUT ROUTI

000516

ACK

RO.M77
7.R0

>EOR
= 3; 2

fi":ghfl

=
o

"k?c‘?.A M’nfi IN RO

) N

pc.fro

§*§§§s
LP
3

KBBUF
PC ,KBRD
:§.TT$

gmmmfiufi

ndt.r(%:{s»

IN KBBUF

/RUBOUT?

YES, uuvm

;CLEAR THE C-BIT
;DELETE LAST DIGIT

THAT WAS STUFFED
INTO KBBUF

mvt WE DELETED EVERYTHING?

.vss BACK TO NO NUMBER [NPUT
:60 FOR MORE eyt

SECHO 'BELL'' FOR ERRONEOUS INPUT
;THEN '’

A1“?"“
n& ‘fsir"ur
OF THE CHARACTER
-

—

1$:

—

GETCHR:

CLR

A3k A-pa-E 1 R
R LR
L

INPKB:

Hl NEW CONTENT

3883
angegsgs

D. EXI

s ADD

DIGIT

AEEARSE @

FOR MORE INPUT

2292sss2

FURUKZBSE LS SRR L 8 BRI

KEYBOARD INPUT ROUTINE

BY JSR
PC,INPKB
ENTS&?
Uf THMCO‘ugu%eo
CONTENTS N_KBB

BB BNE R RN Y SR I AR o =S 0 ~o N~ uin—

SEQ 0074

NEW
DATA?
WITH IT
OLD DATA
.rll

——

T EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGEK 33

CNTRL=F

;

CNTRL=0

<CR>

CLOSE LOCATION

1
1%
}s

:
:
:

3k
‘ ®
P

OPEN LOCATION
SET START FUNC OR MAINT
RETURN AND CONTINUE

;

's"r‘A'r‘t'sMT"CWIQME TION

E
‘e-we“ i

OR uuss IN xmrm DIALOGUE.

P IF IN 'DE-BUG'' ROUTINE:

KBRD:

18
19

KBRET:

18:

8
o

EE%E
‘«’,0-

S B
4

<LF>

TSTB

CLOSE oc. AND OPEN NEXT

@KBS

BPL
MOV

KBRD
@xBD ,RO

CLRB
BIC

CONF
#177600.R0

CLRB
CLRB
CLRB

INCF
GOFLG
SLFL

P
BNE
MOV
JMP

RO, ¥
1$
#1SP,SP
BCont

g‘r

;s‘m

1ST8
BEQ

anc

;WAIT FOR INPUT FROM CONSOLE
;PUT THE CHAR INTO RO
*CLEAR FLAGS

:TRIM PARITY

‘WAS “C TYPED?
SYES, RESTART PROGRAM
:DON'T ALLOW “F IN 'DEBUS"’

.-:ss CNTRL=F TYPED?

:mv ln FILL

W
&

338335532044
3ud 2433538

amse/suou FILL COUNT

CNTRL=A

CNT RTN?
R

'FO#NTEOTO BY FILMSG

zfia
70 BY TwoSP

%EEifl?fiFéfL:fi?‘

KBBUF FILL

Ik A
nom?
:
unu INPKB
:n

PCONT
g"s‘r
PCONT, (SP)

——

————

——

SEQ 0075

;KEYBOARD READ ROUTINE
;CHECKS FOR THE FOLLOWING
SFECIA%
CHARACTERS:
CNTRL-C

285858

——

g
:

) ()
~

s
e ——

CMUBO

CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PA&E 38-1

YBOARD INPUT ROUTINE

NOOSO

o}?‘:‘ 000001

05767

2o
3

60
s
61 0

48:

007515

0ar ;
03787 00773

":'
5
1
[ ; oo%

408:

8 )X

ff‘{

64 0
65 02
3
67 ),

00106
005767 007516
00140
D26 ; 007510 002372

673 )

105767 007437

000167

7 0¢

020027

06270¢
02004

000017

7%
75 0
;9 ),

001007
01270 %
11276
007377

80 X

12767

;3 )oC

v 027 mfi

20210

012716

112767 1

9N 0

012716

D002C

z&n

; ;3 r;:;g?

IST8

SAFE

sIN'FILL COUNT ROUTINE?

?s‘a
1sST8

Bt PNTONF
DBFLG

5523“36 %fir"t‘&es
: IN bEBUG??

BNE

*YES, CHECK FOR OTHER FLAGS

BNE
TST
BEQ
acfi

KRTN
ONT
zgom.M4

:TEST IF 0OT IS ALLOVED
*YES, IF PCONT= 0 OR

;ga

Engo. NOT m% IN FILL

JMP

oDfPR

:A=0.K. GO TO DEBUG-AID

%
TSTB

78:

ADD

cwP

BNE
MOV
m”

g‘p

53;"
DBFLG

#6,SP
RO. M2

#15.R0

c-}'.‘mcr

RO.#*/

N0, EXIT

: #an
GREATER THAN PRIORITY

‘BREAKALL TIES UITH “INKE'"
sCHECK FOR L.F.

*NOT A LINE FEED.
:CHANGE L.F. TO C.R.
y'“tseivew INCR FLAG

'uss IT A SLASH?

: I-Eeaéésr&r SLASH FLAG
Fcub SET 0" FLAG

MNRTRN, (SP)

177777 007331

A1 GOFLG

MNRTRN, (SP)

;

MOVE

#-1,CONFLG

IYES. SET "CONTINUE"' FLAG

01 g
017550

MOV

007302
KRTN:

MOV
RTS

MRTRN, (SP)

NOKEFL: .WORD

KBBUF:

106

1g3
1 72

17
124

*CNTRL=0 TYPED?

A1 SLL

;ASSOCIATED VARIABLE STORAGE:

1” 3
1% 5

5‘245%0
I
'Mmrs
;18 mfluc SET?

MOV

KRTN

01 §

68:

177777 007367

5$:

040

.WORD

;I{gfi: .mm .
111 FIUASG: JASCII /8FILL COUNT = @/
1

.EVEN

*AND gép.

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 3?

KEYBOARD INPUT ROUTINE
1

;ROUTINE WHICH CHECKS AVAILABILITY OF THE PORT CONFIGURATION

;
:

S
9
5
-

’

SEQ 0077 |

:STATUS THEN PRINTS THE STATUS, OR PRINTS
s
STATUS NOT AVAILABLE w»*

105282 007241
1
767 174074
167 000010

PNTCNF: TSTB
BEQ
JSR
JP

CNFGFL
PNTCO
PC ,REPORT
PNTCX

;CHECK IF CONFIG IS AVAILABLE
:IF NOT, SAY SO.
:1F SO, DUMP IT.
SAND LEAVE

000207

PNTCX:

*RETURN

12
1605
310 80676 ?;6756
314

IO Y
JSR
RTS

e0
PC, TYPOUT

IIT
*POINTED TO BY NOCNF

|
|

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 32
BINARY TO ASCII CONVERSION ROUTINES

SEQ 0078

.SBTTL BINARY TO ASCII CONVERSION ROUTINES

;CONVERTS BINARY r BINARY amm ro
SOCTAL, AND BIMNARYJTO DECIMAL:
E

uuushneo uxm EADING zsnb'3u’messeo

*OR RIGHT JUSTIFIED WITH LEADING

* SUPPRESSED

sREGILAR BIN-OCTAL UNJUSTIFIED:
1
1

N‘SbT
?67

004567

000207

OCTPNT: REGSAV.

175546
000360
000010
000156

JSR
CLR
MOV

RS .REGSAV
RJFLG
#10,R1

JSR

R5 ,REGRES

gESRGRES

175542

RTS

PC . NUMPNT

sCLEAR RIGHT JUSTIFY FLAG

sSET RADIX FOR OCTAL
s CONVERT & PRINT

;RETURN

:BIN-OCTAL JUSTIFIED:

020344

OCTJSP: REGSAV

1755

767 1

004567

000207

000010

000330

JSR

RS ,REGSAV

MOV

#0.R1

MOV

000126

JSR

175512

JSR

RTS

#~1,RJFLG

:SET RIGHT JUSTIFY FLAG

PC.NUMPNT

:CONVERT & PRINT

:SET RADIX FOR OCTAL

R5 ,REGRES

;:BIN-8BIN

%
4
&

10
14

S67

175470

7 00030
12761
1

BINPNT: REGSAV
J SR

CLR
MOV

004567

000207

JSR

175464

JSR

RTS

RS ,REGSAV

RJFLG
#2.R1

PC .NUMPNT

56;

12 ;

DECPNT: REGSAV
JSR

CLR
MOV
*'nes%ue s
JSR

7 175436
7

;CONVERT ¢ PRINT

RS .REGRES

RTS

RS ,REGSAV

RJFLG
2./
PC,NUMPNT
RS ,REGRES
PC

;BIN-DECIMAL JUSTIFIED (6 PLACES)

:CLEAR RIGHT JUSTIFY FLAG
:SET RADIX FOR BINARY

sBIN-DECIMAL UNJUSTIFIED:
b

&EIEGR GRLE ey puge YN ORUN NITEZI FRRM RESvm~nounsuwn—

S0 004567 175414

CJSP:

..OESRG“V RS .REGSAV

:CLEAR RIGHMT JUST
SSET RAD{

020454

012767 177777 000224
12701 000012
767

020478

00002

004567 175406
5

38 020506
59 020512

004767
000207

23 050303 002967 000114

000110

#=1.RJFLG

:SET RIGHT JUSTIFY FLAG

ISR

PCARPNT

CONVERT & PRINT

JSR

000207

56 020500

MOV
MOV
RTS

NULLS:

CLR

JSR

YR
NULOUT: RTS

#12°R]

RS.REGRES

SET RADIX FOR DECIMAL

PC.TTO
PC.TTO
PC

SEQ 0079 |

|
|

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 34-1

BINARY TO ASCII CONVERSION ROUTINES

‘

|
|

CZCMJBO_CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGE3;

SEQ 0080

10167

000170

sUNSIGNED CONVERT-PRINT ROUTINE (BIN = ASCII)

000160

NUMPNT: MOV

DIVID:

JUST:

000040
000016
000072

PNT:

*CLEAR WORK nesxsrea

CMP

RO,RADIX

PNTEXT: MOV

000114

:SAVE RADIX

BLO
SuB
INC
BR
GETDG: :gvv
BEQ
INC
JSR

000152

R1,RADIX

CLR

DIVSET: CLR

177744

SuB
BLE
ST
BEQ
MOV
JSR
DEC
BNE
CLR
MOV
BIS

:CLEAR TAB COUNTER

:1S NUMBER BELOW RADIX?

GETDG
RADIX,RO
R1
DIVID
’.;ésm
PNTEXT
R2
PC.DIVSET

:IF YES, STORE DIGIT
:ELSE, KEEP SUBTRACTING
*AND KEEP COUNT
:STACK REMAINDER
:PRINT IF HIGHEST ORDER STACKED
:ELSE COUNT DIGITS FOR R. JUSTIFY

n.g

;GET DIGIT COUNT CONSTANY

R2
PN
RJFLG
PNT
#40,R0
:S.fro
JUST
RJFLG
(SP)+ RO
#0,R0

:TYPE OUT ROUTINE

HAVE WE PRODUCED 6 DIGITS?
SYES, JUSTIFICATION UNNECESSARY
:1S THE JUSTIFY ruc SET?
*NO-DON'T JUSTIFY
*YES, PRINT LEADING SPACES

;CLEAR JUSTIFY FLG WHEN DONE
*GET REST OF DIGITS OFF SIACK
SMAKE THEM ASCII

:PRINTS A CHARACTER WHICH
IS IN RO
>y
*IF THE CHARACTER IS 'TR.'', ALSO PRINT A ‘LF.'".

TT0:

007045

MOV

TTOLP: 2{3
P

000015

BEQ

TTOLF:

NG R G L S Y I R UK S RN R R RN NN SR U o R

= O 0m~O NS L=

BINARY TO ASCII CONVERSION ROUTINES

177362

RTS
MOV

JSR
MOV
'J's’av
oe;
86

MOV

000012

RTS

arTTe

arfs
n?.':o

.WORD

*WAIT TILL PRINT DONE
;WAS IT A CR?

TTOLF

SYES, ECHO A LF AS WELL

fro
'af.l.FLCNT

;ECHO A LINE FEED
:PRINT MULLS FOR FILL

PC.TTO
iba
nzRO

;ASSOCIATED VARIABLE STORAGE:
RJFLG:
RADIX:

:PRINT CONTENTS OF RO

*ND, JUST RETURN

;THEN RESTORE RO
:AND LEAVE

.SBTTL CONSTANTS, VARIABLES ® ACSII

sASCI] MESSAGES:

126

1
1
i
1
1

040

0
11
070

11
S

)

SEXS3SI3%

SRI22FINR SGRE3

bt e

—h

S e?

e
e
e R
I
B

D o

) o

SUKNRNERSSS

—y-

ol o od el md e

—

020761

110
1264
1
18
1

38239887

7‘;
074

061

TSTHDR: .ASCII

/8CZCMJUBO CMR(V)=11 HOST EXERCISER

28-NOV-80/

‘Ig
1

117
042
10
1
12

04
05
1

LASCII

/88

wxt CAUTION #ee/

LASCII

/RTHIS PROGRAM IS CAPABLE OF ALTERING THE STATE/

LASCII

/B0F ANY FIELD EQUIPMENT ATTACHED TO ANY OF THE/

335

132

(1)1

38 RUSWFRSIW|=RES

)

102

) e ) D b o o =D nd d b —D

043

S ok ek =D —

h e

[« IV ¥ XVFT NP

SEQ 0081 |

T EXE
CZCMUB0 CMR(V) =11
CONSTANTS, VARI
ES & ACS

?flSE MACRO V03.02810-DEC-80 10:41:54 PAGE 36-1

P-eg=

LASCII

/RREMOTES ON THIS CMR-11./

LASCII

/RRPROCEED WITH CAUTION IF FIELD HARDWARE IS STILL ON-LINE 'eka/

FRAD

JASCII

/BINTERFACE ADDRESS: &/

AGAIN:

LASCII

/BTHAT WON'T DO. TRY AGAINES/

DVECT:

JASCI]

/RINTERFACE VECTOR: ¥/

SUS RBCITIENETENSRS 3

L R L G SR GRS P

S—g L ookL—ookLk3PFNi—MiNRI—NIeO—ePO—eOeWlN1iR~——MWXOOXolLNk-

ESFONETSLSIRTESonONEISreResOeOgNSARX

SEQ 0082

‘”

DVPRIO: .ASCII

/RINTERFACE PRIORITY (4 T0 7): ¥/

O b
WY

SUZFUR RI332852% >

—

—5

LASCII

/8CMR-11 DE-BUG AIDERA/

INVLAD:

LASCII

/CRINVALID ADDRESS...(IT'S NOT THERE)®/

LASCII

/CRTRAPPED TO & FROM LOCATION &/

LASCII

=R=32 | 383e:3R

—

dddflddfldddcdd

DBAID:

- YgO~

/8SWR
= ¥/
+LASCII

/8+* CONFIGURATION NOT AVAILABLE **3/

LASCII

/RTYPE "P'' TO CONTINUEY/

&= 5%

e i

) o

) et

- e

S
S
3 S

BRY3 RIS

Tal

B NB85=
———
il
=

-Ow

—b

—5

b e
=

ek e o

CONSTANTS, VARIABLE

F 7
ISE MACRO V03.02810-DEC-80 10:41:54 PAGE 36-2

o x
wm
P
+J

(v)-11

BERSS2E I3 BR NSRS RITREERESSHEREGN2=YFESNRERTIIFNGE -&

C2CMUB0

—

TYPCTP:

SEQ 0083

CZCMUBO CMR(V)=11 HOST EXERC
CONSTANTS, VARIABLES & ACSII

D21

021741

021764
021747

124
040

RRRR

108

1
106

114
(1’11

}{:s
1
0

nEon SREREES

CEERT 333

R
el

28 022101

021
}g; MELPM: .ASCII /RSELECT ONE OF THE FOLLOWING:&/

ddda

27 020048

)

—

=0 WO
)&

OROR

- O

25 ‘ %28
V. ;%

114
} ;

}
}

;gg

-p=

‘
‘

R
105

10
n

17
116

}

RRIFSNN

/RSELECT TEST (4=HELP) &/

LASCII /8CR OR 1 = LOGIC TEST/

LASCII

2 = PORT LOOP-BACK TEST/

’

?u
%:g

TSTSEL: .ASCII

124

BSR

0¢
24 .‘

1 g

=0 ok

SRR
D171

124

e e

D21

182

§£‘;“

m
105

= b

23 021676

124
125

103

1
}1

021667
}2

??;

——2

021664

124

021656

021661

ISE MACRO v03.02810-DEC-80 10:41:54 PAGg 36-3

ASCII /8

3 = (MR-11 EXERCISER/

ASCIT

4 = THIS HELP INFO./

SEQ 0084

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 36-4
CONSTANTS, VARIABLES & ACSII

1o§

?4.2

}gg

1}2

LASCII1

/RCNTRL-F

LASCII

/RCNTRL=A = SHOW PORT CONFIG. STATUS/

LASCII

b
e
b

OO
WO
———
SO0

CONSOLE FILL COUNT SELECT/

m
04
12

124

= 4

}}2

——

R
) o
d

/RCNTRL=G = SWITCH OPTION SELECT/

2”

2RI

ad =t

Y
IR

b
=t

d ol o

ks el

~22RULILS

-t

NN
O~
(
v

I
AN

ROROROR

SRS

32 0222

'é

‘ 55 :

0222

}?3

02223¢

040
114

02223

LASCII

%0
2

N3
Q

6:.2
13

et ah

0 ill

0222

SN~

124

533330 53 3 33N SRR S

10
f?4

16
11;

/&CNTRL=C = TEST SELECT/

124

040

124

e oeb

055200
102203

040

md omd

0221

s e

022167

}

87?

LASCII

30 0

o o

. 123

0¢ 12?

106

Q 144

116
0
}

yd
s

022141

m
117
41)4.2

D221
0221
29 0¢ }

(ONLY WORKS IF TABLE ALREADY/

SEQ 0085

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG% 36-5
—

SEEEORcRREE
U%N\hg 323

—

LASCII

/RCNTRL=0 = DEBUG ROUTINE WHICH ALLOWS/

LASCII

LOADING SCR. PAD AND STARTING/

LASCII

FUNCTIONS AND EXAMINING THE/

LASCII

RESWLTS/

—

b e

- ad

PRINTED AUTOMATICALLY)./

N = b
N&SOO

—
pa—'y

—Soomn—

—2

—

bt ()

)
d e

2322Fa2

b o

~N - WO

B
= gy

LASCII

SERE 533ERIERRR NG RSG2 R:oiooii

333 S

ol e

—
—

—t

SRR 433 ST T S 53333

WHhO—

-t
e OO =

—3
P

22S3S9NR2dfldflgdfl

101

% 0353781

— dgdfld R Y W W W ——y
SBSRINS
Wop=S3=RRRR2

SEQ 0086

JASCII

/RIF HELP IS REQUIRED, ENTER A "%

LGKTSM:

.ASCII

/8LOGIC TESTRS/

SCPAD :

LASCl11

/8SCR.PAD ADDR = &/

-ASCII

/CRHOST FIRMJARE VERSION : &/

ASCI1]

/CRBAUD RATES:
¥/

"P'' = PROCEED FROM SW. MONITOR

@&/

S
S
P —y

~N -

b o
ke
md

X
O

335 o2
R

45
0,

SEQ 0087

—

LASCII

R
—y

AR
3 JRE38
5583 EXERSTRAEE888ERSFRUISRRRRAS
2S2N=2R3S

2V)

T o
eB

b ) =
—

b
—
—

33
NN
= =2
L PR

SESERRRY

(sl

— 0

B
R SN G )

D =D
dh
B
) oD
B o
od
o
P
[

>»m

) et

PN Y
=

= med

<RESRBIRERSINEEnESSEREREAINCE
Z7EEE

ISE MACRO Vv03.02810-DEC-80 10:41:54 PAG% 366

—

43
-o..ao_.gg =z
o 4

CZCMJBO CMR(V) =11
CONSTANTS, VARIABLE

PORTOM: +LASCl1]

/8PORT
#0 = ¥/

/CPORT M = &/

PORT2M: .ASCII

/CPORT #2 = &/

PORT3M: .ASCII

/CPORT #3 = @/

ENDPS:

.ASCII

/8END PASS N3/

ELTIM:

.ASCII

/ EL.

ERCTM:

.ASCII

OVFLM:

.ASCII

/**QVERFLOW**3/

PLTM:

.ASCII

/CPORT LOOP-BACK TESTRa/

PORTN:

.ASCII

/RTYPE PORT # (<CR>=ALL): ¥/

TYPCR:

.ASCl]

/RTYPE <CR> WHEN READY: ¥/

EXCM:

ASCII

/8CMR EXERCISE ROUTINER/

PORTIM:

TIM.=¥/

ERR.
CNT = ¥/

od o

582
unBe

SESSRRR

—

—f

272923RSNB3CR Z5R5ER

:dd dd-fla
ISR XRG4 %
3
el et
—

RENSESYMRRESEERRESNESRZRESNRITERSNso=

b
OO
=
O
-

338328

—

552038 2 2303 5333 FNFICR=gBRR=gRRISRR

.ASCII

OO
=

117

&»H

—

RES

K .7
CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 36-7
CONSTANTS, VARIABLES & ACSII

SEQ 0088

CZCMJIB0 CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG% 36-8

SEQ 0089 |

FMI@012mAflgMmZm11:0;"W620%515353“%"0561IM20NINILNIMoIN

-".-mmsmmsmQ.-sx.—srx—mrmrmmmm-2RooloolodoloRolooltLkTenlcAlqlqTlql

CONSTANTS, VARIABLES & ACSII

PTRS(eISISR SLISRSO DS e8o

-clcl=-—,M-qlclclcoclluccnllcNlcl!culccollcclOlclclcclcllccllccll—OOCVNObMAlO3Q—Ng=e=

NOREM

JASCII

/R(GIVE ME A FEW MINUTES ALONE WITH THE REMOTES
8/

LASCII

/R*** NO REMOTES ON HOST w#+g/

LASCII

/8C I WILL KEEP LOOKING FOR ANY CHANGES )8a/

: LASCI1
PORTMS

/RPORT ¥3/

REMSG

LASCI1

/RREMOTE #3/

CONFMS :

JASCII

/8 »* PORT CONFIGURATION **£3/

—rrQ=e———L— —_—O-TMr~rrO0rmrOr00O~OO~~—rrrOr

R HEAUPR“-UOUe

m.ms.ub‘m”.mwm.wgd.m:m:.wOBSZ8R¥S3NSIO%WQWMB%SQSMNeSA

3NySeBNN—S=N—TSRBNA—NS=gS=BN23RNS—ENSegSR=NeTS()5eP=gS—NRNgB5BSo

7
CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.028B10-DEC-80 10:41:54 PAGE 36-9
CONSTANTS, VARIABLES & ACSII

;
—

123
040
100
05 ;
12
11
04

USORM:

.ASCII

/RUSOR
= @&/

REMCHG: .ASCII

/@+»* REMOTE STATUS CHANGE *++*a/

REMSTM :

JASCII

/RREMOTE STATUS NOW @/

REGMG

.ASCII

/ REGULARY/

IRRGMG: LASCII

/ IRREGULARY/

ALROFF :

/R**= ALL REMOTES ARE IRREGULAR ***g3/

JASCII

;ERROR MESSAGES
NOGO:

LASCII

/ HOST MICRO FAILED TO START.a/

NOTUP:

LASCII1

/ PWR-UP SEQUENCE NOT COMPLETE.(BAD CSR).a/

EREEEIRTAEIRLASIRL IE E EALERE ESEAE AER

TM ON O VM N 0301

clclqlclclcl —_—Oe—0Oclqlcl—ral1111110

2201“105050NN—“o

2"8&”@&0&0ee”eiMieeOee2IaenloRONSIDNNerT—0OSOXSINNSSR/RUAAS=KO

117

}Sg

CSRRST: .ASCII

/ CSR REG. NOT RESET.a/

SPRCLR :

JASCII

/ CAN'T CLR SPAR REG.3/

SPRDAT :

LASCI]

/ BAD DATA IN SPAR REG.3/

ISATE

LASCII

/ REQ SCPD ADR TST ERROn.&/

8
:
3’-1
PAGE
10:41:54
80
V03.02810-DECTE XERCISE MACRO

-&-)[w-v-w-v®“"\lu——b—

-1
CZCMJIB0 CMR(V)
CONSTANTS, VARI ABLES
¢ A CSil

w(] -.

- S = -

x<o2Z

. :552

ew ~
.

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 3’-2

SEQ 0093

O~g—e~BRTIS—N=e—ICeIToeE=eSgTY—I=SOe=IgNeIgC=eN==IT-1=L—R1eY—SFOAoe=NTeeI==M=ONN—E—MRAeS=R110B6Ie1e.tN=BI‘)S—6S2=0——2N—_10S—R=1o=S—1—

CONSTANTS, VARIABLES & ACSII

DIERR:

LASCII

/ WRONG CSR FOR 'DIE'' FUNC.3/

CSRWE:

.ASCII

/ BAD (SR BITS WHILE HUNG.a/

CSRCE:

JASCII

/7 CAN'T CLR LOW CSR WHILE HUNG.3/

SPAVME:

.ASCII

/ ACCESSED REQ SCPD WITH "MAIN'' SET.3/

SPAVFE: +ASCII

/ ACCESSED REQ SCPD WITH "STFUN'' SET.¥/

NOINTR: LASCII

7/ HOST CAN'T INTERRUPT UNIBUS.¥/

LAA T LeGRoLSI

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGE[ 3’-3

(28R238NCECINUEeRgSPEggNgeg8g8eN—0Z=0-—0Ig0~TS=eI0=-02—=IPN0eO=eFe=oey OO127“O1WV)%U&~1-O33

SEQ 0094

I-3=-8533O O ——

g= =g==MgRgS===e=TXgee=SNT=SeReO—eN—eRASe—ISgoedL —1-R—"10T1 1S18B“T1 110111 Or——e

od
oI

S2NRSISR2N

ERINTR:

<ASCI1

7/ ERRONEOUS HOST INTERRUPT.®/

WPOD]:

LASCII

/ WRONG PRIORITY. DEV.

HITER:

LASCII

7/ PROG INIT. FAILED TO INIT CSR.&/

VISF:

LASCII1

7/ MICRO DIDN'T STORE VERSION NO.d/

1S HIGHER.3/

-GwM“l’

210%"'-—

-—e

VIDER:

LASCII

7/ 2ND VERSION INFO DIFFERS FROM PWR-UP.3/

T EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 3’-4

SEQ 0095

LENCSESINSRSNENGLonoSInoNnDSASRASRCYSROSBRISIRASESY

RNNSSSRRLINONPRilSNLANIoMSNGI—WATNOOGNOMSRNBOGN

CZCMIBO CMR(V) =11
CONSTANTS, VARIABLES & ACSII

SPAVIC :

JASCII

/ ACCESSED RES. SCPD WITH INTR CLR.3/

STESTF :

JASCII

7/ WRONG CSR WITH "STFUN''.@/

RSPESF :

LASCII

/7 "MAIN'' RESULT FUNC. CODE WRONG.3/

USOFE :

JLASCII

/ BAD USOF FROM 'STFUN'' ON MAINT.¥/

STEWF

LASCII

/7 WRONG CSR WITH "MAINT''.
3/

—ee———ieeeL—ee——e=ee=——-0—ee—e—T=—(D==e=—r—gee—ggg=Gegg———

nebRm&0£‘m-YSNmOmLNIZwImSS.EO2®TNOSRmRNEnNIYSnYNS:,Dmx£:.I.SS.IOLS.VNERoNmNSS.TIY.NmC%S:<:R3:"28IL0T2Y80O5R3SI&S5S&3g2¢o¥3z~8wySmNRfPEiENmwBSmNX%eSmSD£5>v
AB-AS£. .SP¥ LFSNI LI-ozFI U.&:SGF«GoR3&GRI-== g<
eFoeleveolevielmsoeolea3lelelelelelealealealvsalea3lealealealaTalaTal.eoveol5ewmeoeevoleoeeeolvsiZeoleoleo- 3
F

CONSTANTS, VARIABLES & ACSII

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 3’-5

3:2

SEQ 0096

T EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGE 39-6
9

CZCMUBO CMR(V) =11

CONSTANTS, VARIABL ES € ACSII

4 74¢ bPPNRN-308Z0 O 0= OO —ONIN

e8NsKFo-S8RY5Zoy“s gGeTegg=

BronegurgRunonoy

—-_Or— —NO—MITO

SEQ 0097

)—=—

.ASCII1

/ PORT XMTR TIMED OUT.a/

—\\NONO

PeT
=T

P..TXTO:

NZO-QIS
—

e=—
—

2 o (= o

LASCII

/ PORT RCVR TIMED OUT.a/

PLDERR:

.ASCII

/ PORT-LOOP DETECTED DATA ERROR.3/

SYSER:

LASCII

/ HOST SYS ERROR. RUN LOGIC TEST.¥/

DIAGF:

LASCII

7/ "DIAG'" FUNC GAVE WRONG FUNC CODE.d/

—

=I3R7N NZSINBIS8353

117

CZCMIBO CMR(V)=11 HOST EXERCISE MACRO V03.02B10-DEC-80 10:41:54 PAGE 3’-7

8‘9
1

1%7
1 9
11
042
101
040
116
100

040
}

1
1
116
104
107
10%
10

183
105

123 DIAGUF: .ASCII / USOF WRONG ON 'DIAG'' FUNC.3/

049

040
040

111
04;
12
056

.EVEN

SEQ 0098

—

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGEI 35

SEQ 0099

w- 3 &:

@ fgigdses 28

R&-2i‘EEEFEEFE3Lg)

X K N K R 2 ® ~wisnonwo ramenor

;DATA TABLE FOR MAINTENANCE AND DIAGNOSTIC FUNCTION
DATBL

CZCMJIBO CMR(V)=11 HOST EXER ISE MACRO V03.02810-DEC-80 10:41:54 PAGEJ 3:-1

CONSTANTS, VARIABLES & ACSII

2 B8 o

SE@ 0100

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO Vv03.02810-DEC-80 10:41:54 PAGEK 33

SEQ 0101

sPORT CONFIGURATION STATUS TABLES.

§
& 8322&

EXTBL]:
.BLKW 64.
EXTBL2: .BLKW 64.

[ 837064

EXTBL3: .BLKW

;TABLE FOR ORIGINAL (PWR-UP) VERSION DATA

}9 027464

VERSP:

;TABLE FOR 2ND VERSION DATA

}g 027506

VERSUN: .BLKW

;SOFTWARE FLAG BYTES

18
19

so
1

7264

027530
027531

75
0275
75
7535

;ss

7540

7541
mg
754
754k
027545

77554‘.9

7550
5 027551

EXTBL4:

000
000

.BLKW

CLKFL1: .BYTE
CLKFLG: .BYTE

000
000
000
000

CONFLG: .BYTE
CNFGFL: .BYTE
DBFLG: .BYTE
GOFLG: .BYTE

000

LSIFLG: .BYTE

000
000
000
838
000

000
000
000

INCF:

S‘GE

.BYTE
OFLOF: _BYTE
ONCE:
.BYTE
PNCFLG: .BYTE
ssc§=
g;;g

SLFL:

THRUF:
TICKS:

64.

9.
9.
0
0

:CONTINUE FLAG
cwxmnm AVAILABLE
FLAG
‘r

'-rms xsm5‘“03

0
0

.BYTE 8
.BYTE
.BYTE

;CLOCK TICKING
: CLOCK mesem

u'f

Ml
em cam OVERFLOW
:INDICATOR THAT CONFIG MAS BEEN PRINTED
*PRINTED ANY REMOTE INFO?
ggcn&uggu “F IN FILL COUNT RTN.

L SLASH; F

2
' FLAG
$1/60 SEC. TICKS STORAGE

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAG% 48

LINLEN:

:
MASK
PASCNT:
PAT:
PCONT:

3
g

VECTOR:

FKPRIO:

KBD:

:
KBS
LCS:
TTS:

33898822

SEIEERER S E G

;CONSTANTS:

j=l=lelelalelalalelelelelelalolelelelelelelolelele
e

ADDR:
ALLFLG:
BAUD:
:
CHNGFL
CLK:
CNTR:
CSR:
DEVER:
ERRCNT:
ITER:

333333333333333332335353334335558

JVARIABLES:

IR IR

EYBNRRREN LB B IS A R o= S0~ N~ i

CONSTANTS, VARIABLES & ACSII

SEQ 0102

—_————————
e

:::§

S83RG
29SRR

NS 2ok=\
<+ DROOC
¢

ARUN-O
BB IR ARAR

\V.]

Ng\:sgf.

SEQ@ 0103

735
6416
6356

PS
PSTE
PSTS
PSTO
PST1
PST
PST
PST
PST4
PSTS
PST6
PST

06
6
11342
11504
11;;8
1
11356
11364
11466
11514

811550
11576
81161
11
1
1

CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE 48—2
N

CZCMUB0
SYMBOL TABLE

RQSPCL
RSPEMF
RSPESF
RSSPCL

SAFE
SAVEC

SBAK
SCALMA
SCART
SCA1

7545

SPAVME
SPDR
SPRCLR
SPRDAT

ST
$T161
ST
ST

TYPCTP
TYPOUT
USOFE
USOFE

SSWR =
STATEM
STEMF
STESTF

ST
ST80S
ST181
ST

USORM
VECTOR
VERFLG
VERSM

SR
SRTST

‘21.1.

ST70
104

SWOMP

160264
4064
SCONT
1
SCORTN
01
SCPAD
2776
SCPRTN 01%12
SE
02
013410
01 ;g

ST110S
ST
sT11
ST
ST
ST121
ST
ST
ST131

SWRFLG
SWRMSG
SYSER
TALLY
TBLAD
TEMP
THRUF
TI1CKS
TPCONT

013244
013262
013300
01%2
01333;8
1

sT1318
ST
ST
ST
ST134
ST135
ST135S

%S%
5
134
14
51
5176

7547
7630
47;6

ST14
ST15
ST150

005316
005402
005556

SkPx1

SKP2
SKP3
SKP4
SKP5
SKPé
SKP?7
SKP8

013406

SPAVIC

025274

SLFL
SPAR
SPAVFE

ST101
ST110

027674
000000
ERRORS DETECTED:

ST131A

ST136

sT16

. ABS.

%7“
750
WS(};G
004774

005

005600

1395 WORDS

DYNAMIC MEMORY AVAILABLE FOR

DK1:ZCMJB0, ZCMJBO/C=DK1 : ZCMJBO

VERSUN
VIDER

VISF

SWHLT
SWREG

000
001

VIRTUAL MEMORY USED:

VERSP

ST90S
ST

ST100

USOF
USOFE4

18!
ST10

1
81‘&2

SEQ 0104

( 6 PAGES)

PAGES

WDAT
WwDSD8

157
§141
642
7644
72‘8
735

73551

TPOFCH

TPOUTX
TRP4
TSTHDR
TSTRSK
TSTSEL
178
170
TTOLF

TTOLP
TTS
TWOSP

TYPCR

WDWAS
WORD
WPODI
$0s
$00s
$1s
$108

$118

$138

1$
g

2]
fi
60

15670

16%
155

5%
58

1%56
015736
815750
15766
816020
1%6
016036

$
$43
$58

01%84
015632
015650

016050

CZCMJIBO CMR(V)=11 HOST EXERC‘I'ss %C?O v03.02810-DEC-80 10:41:54 PAGE S-1

SEQ 0105 |

rodS®Ah~d

AGAIN

800
801

27-30
18-34
40~4t

27-49

22-13

9-51
1-46
2-54

o—w

S BEe 2285 SRS >

CROSS REFERENCE TABLE (CREF

6-43

— 5BovmonoN

CZCMJBO CMR(V)=11 HOST EXERCISE

MACRO V03.02810-DEC-80 10:41:54 PAGE S$-2

CROSS REFERENCE TABLE (CREF

.00 )

17-44

19-53

25-27+
5-15
18-148
6-21

33-

11-25*
19=17+«

29-

SEQ 0106

17-52

38-64

19-58+

20-5+

26~5*

20~1 9
26-1 7

22=51%
4LO-74

40-6#4

21-49
6-27

39-18#
6-33

27-17

27-84

39-19#

11-28+
19-20%

11-34+
21-5+

11-37%
21=10%

15-8«
21=14*

15-27%
21-19+

15-45+
21-22«

15-52+
21-27%

17-11*
21-30%

17-14+
21-35*

18-7+
23-41*

18-10*|
2347+

115+
1;-13'
15-4%
19-25+

11-7
13— *
*
gg

11-24*
13-23%
16-14*
19=27*

11-2?
13-25%
16-15
19-41

11-31
13-30*
16-31
19=43*

11=36*
14-4*
1632«
19-59+

11=39%
14-1
16~3
2;—6

12-4»
14-17
18-8
2 13'

12-5
14=44*
18-37«
22-17

12-11
1
18-65+
22-52*

12-12
15-22+
18-66+
2;-54

10—55

10-38

11-10

11-35

25-30*

=
13-8+
15-47*
19-1
23-23+

23- 4

23-

26-20%

26-21*

26-22

27-87«

29-53

32-29

32-58

32-61

39-224

29-73

29-77

29-21

34394

15-29

15~

15-4

15-54

15-61

437

28-69

40-41¥

g-il

9-2

9-68

9-85

15-68

26=54

16~

27-22

16-29

27=

1640

27-32

18-112

27=43%

12—2

26~31

2747+

12-15

26-38

D 9
CZCMJBO CMR(V)=11 HOST EXERCISE HAC?O v03.02810-DEC~80 10:41:54 PAGE S-3

CROSS REFERENCE TABLE (CREF

DiAGry $5-35
DIAGF

21-26

21-34

26=54

18-95

18-105

18-1214

18-147

21-48

12-35

13-11

13-16

13-31

28-115
18-17»

28-122+
19-16+

28-123»
28-61+

40-114

/=55B%

SEQ 0107

)

12-35+
16-22+
28-137#

13-11+
16-29+

rak

9-224

13-57e

13-16+
16=40+

18-12+

19-73

21-54

b o
b =

9-34
O~iol
9-54
9o

35-45+
31-39

31-46

1424

14-52

18-12

G=39=
14=15%
18-78+

14=24%
18-88+

968+

9-85+
14-32#
18-98+

18-78

18-88

18-98

19-22

22-22

28-136#

)

b =D =D

DA
????xzzan
ISLRSF2::?5%&

28-36#

DIAGNF
D IAGUF
DIERR

7414
1=44
1:2;3

.00

11-35+
15-43+
23~32+

12-8+ |

15-54+ |
26~31+|

CZCMJBO CMR(V)=11 HOST EXERCISE MACRC V03.02810-DEC-80 10:41:54 PAGE S=4

CROSS REFERENCE TABLE (CREF

8:13*
10-20

=14*
1
+

=15
1 32

8-18«
11-6*

8-19
11-g

9-18+
11-30«

32-42

14-26*
15-66

1428+
16=19«

14-30
16~

15-23*
16=25«

1525
16-27

15-32«
16-36*

HWSWR

HORS Sier
1-54

6-11r 2968

39-2r

INPKB

-29

32~
4=h4

32-76%
4=54

39-254
6-17

18-23

18-57

27-26

27-63

29-25

31-8#

13—2;’
174

13-32

&1
17-64*

28-36
18-14*

28-95
18-139*

28-101
18-143«

29-41
19-14»

49
1=40*

32-27
21-44*

4LO0-12¥

&~
6~1
23
3
-19
18

4=41*
6-25
27
2-47

4=45
6-31
31-10
32-98#

4=46
6-38
31-11»

4=51%
18-21~
31-26

4=55
18-25
31-28+

4-59
1 8-%6
31-30*

4-63+
18-56*
31-31

17
=52
€-29+

40-44n
32-56
6-35«

32-59
27-19

32-64

32-70
27-86%

32-77
40-45#4

32-89

32-92#

25-24*

25-35%

40-13#

1-53
-

3~
f‘ *

7-14

0-1
14~

28-52
149+

29-11»
14-1
14-10»

15-48+
26~29

‘
'

4~67*
27-62+ |
3145+
|
‘

39-26#4

-14

8-27+
6~10«

40-144
29-72

39-274

7 173’
14-5#

18-69
14=5+

18-74
16-6

18-152
14-6+

7-144

27=20%

9-37
12-6

7=14»

19-40
147

7-17

7=17+

7=18+

7-1

?‘“??gfzv
__;_-:___’E A

MOVB

gf%
MoV

6-23;
1
25-22%
7-64
5

7-11
24-6*
6~24
4-15+
4&-1
12+
13
2:1

LGXTSM
LINLEN
LOGTST
LSIFLG
LSTST
MASK
MINS
MONCH

4!
o

4-66*
7-27
1=44r

W;§

g:‘lg
3
&-76

465+
7=25%
1=43+

29~

464+
18-59
3142+

KBRET

KBS
KRTN
LCS

15-41
26-27«

.a-.:ro>

KBD
KBRD

1-52#
7=7%
35-22#
4:3'
4
7-64
1-50+
15
1-;3

-84
7-11#4
&-5
17
35-%0
&~
6-15+
gg_-zlo
1
1
174

9=35+
12-3+

np—

ISATE
ISDTE
ISP
ITER
JUST
KBBUF

15-3
18-111*

~“%

INTCNT
INVLAD
IRRGMG

284
13-14
58-37
22-37
g-_sg

4-%8.

15-34
16-38

9-50
11- g'

gg: #

28-126
28-94#

14-]
15-64*
28-138#4

39:33’
8_ *
10-18+

6-39

16=11*
15-59

3;- 5S¢
9-

e o

14—12

15‘1
15~§6'
26~
Q-gls.’

-21*
=33
*

s moh e

HITER

HLPASK

12-10*
15~
26~34*
4=

27-81
7=27

.%E}"

27-41
7=24*
*

SEQ 0108

PG b o o ot sk el

GOFLG
GOOD

.00 )

CZCMJIBO CMR(V)=11 HOST EXERCI

880)!0 v03.02810-DEC-80 10:41:54 PAGE S-5

CROSS REFERENCE TABLE (CREF

NEK
NOGD

NOCNF

NOINTR
NOKEFL

149
-22

1
31-8¢

TR 31-1¢
s
Ny
NALOUT 34-30

19-22

37-3#

31-40%

31-48

32-97»

st 8%,

32-g2

32-91
28-100

34=564

gg:sal

34=51

35-3#

28-%5

10-43
28-99

18-83
28-113

28-63+

39-28#4
22-49%

39-294

NPNT
OCTUSP
OCTPNT

34-15
28-12
9-2

34.-;3
27944

3-33
760
97

ONCE

19-29+

1949

OSDTE
OVFLM

9-39
17-80
1-

~oF
Son
18-64

®IPR it
a8
OFLOF
7-9%
17-78

8538
18-18e

27=72
19=15+
19-67%

19=72+

24-28%

20-15

20-18

23-12#

1836+ 1845

8-47

5=274

ii;S?

33-5#

18-146

18154

ip I
1

SEQ 0109

18-93
28-116

03
27

18-117
28-130

22-28
29-21

%2-40
2-39

259
34-12#4

25-17

21=45+

40154

18-24%

18-55+

18-58«

27-88

27-90

29-24x

29-26

29-57+

4=17+
8-116

4=23%
8-126

2429+
18-126+

fS-B
18-128

‘0~1§5
18-1

18-132+«

18-134

24-31

39-304

3-49
8-92

4=11%
8-102

e -

-42

264=22*

4=16*

) =

PNTCX

7108

PNTCNF

18-1
18-1

—b o

PNT

OSATE

1
1

14>

17+

fo-2

CZCMJIBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE S~6

CROSS REFERENCE TABLE (CREF V04.00 )

18-7#4
18-91
S4n
o
4-4§
5=
5=31

18-101

18-115

4-52
25-32

28-82#

40-20#

44
4508
4=59%
4634

4=49
4-53
32-67

24-18
21-51
4-28
20-5#

24-24
29-67#
4-35
20~20

) b e omd omd

12911

18-35

4-58

4~62

24-30

25-74

36-604

28-38

SRkt

8-;2
8-31#
8-36#
8-374
8-53

25=7

18-104

18-118

18-137

3436

-43
-39

21-33+

26-14

40-224

35-54»

e e e

18-94

$EiLs

e I T

1
1

40-15#
Su

PORTOM

1
1;6
} -1

24-134

18-153

SEQ 0110

CZCMUBO CMR(V)=11 HOST EXERCISE MACRO V03.02810-DEC-80 10:41:54 PAGE S-7

CROSS REFERENCE TABLE (CREF
REP]

REP
REP

-o7
-

RJFLG

34-]

RSSPCL

10~

RASPCL
RSPEMF
RSPESF

1
1
1

SEQ 01N

=15

REPORT 8—?‘
&
RESTRT

.00 )

33-7
52-102

=31%

34-40*

34-49+

35-20

35-26%

32-33

32-37«

32-55

32-69

39-314

26~19

26-24

35-53#

33,

Y 2 13

12-9
15-55

11-11
15-37
28-524

1437

1510w

10~

10-29

1ed5e

1?}83' 1907' 18-109+
Shv |
Se46r o500 3
]

iYRR U

»»

WO~

——t
e

—

10-44
15-30
26~53

10-28
14-53
26-32

\nw:

9-91
14-33
18-118

*N
e TPY
o8u-.;w-au-.

9-74
1425
18-104

N
L

4
8-94

235L

on) li 19o
b
b

SPAVFE
SPAVIC
SPAVME

23-26

RPP

23-22

3
oy ¢

22=4T7H

SuS

22-45

22-53

—

md5boo3da&embdHTcmmnnehwOnrmhmTnumPPmeumeTuTmmTaP1TmunTPmmgwuw1mw]m¥mw69m1¥wFmC2wRmAuRoA—GMOIne-0eeR3—A—erN0—LWNA-q3gR-= ‘0“oNl“oy%lVLl

o6WaloR&ldoa8doy3loT%todordeAaoeldodolRoStoNleo,lModotodoTtololomRdoelomlodomdododBmodoxd@otmomdsd7oBtrVWdoUdoVBioy~ds0tRdho1deoSR2t[4%lr5g%mJ—%UaRLWRi&IN3|a“Nd%3Ag.)1RMNnPwauSRmlRN[nJAwi~fRlud&YndweM-[fs”El
3% Liiens 7

d & -&

NPDNTeVNVf=NieVP?VOlPVaNTOL0VeLPLBTLOLTVLPOVTLTVGPBeLTLTDLOLuVLLDBLVBLONDNLV"—0 M-0—(DN———N—
—re—0 ———
-own P25&2x
8
3t

7=2
10~
14~

38
7-30

9-79

9-95

10-28

=eGg

14-33

14-53

18-68
26-38

7-38
0-33

17-71

on—a—e—m VO & Oo=

N =«

%‘g5s8a2 —0e=T—e—Nevo—keV mshi&dm m

-0y - ——

1 9
CZCMJIBO CMR(V)=11 HOST EXERC 685 sac?o v03.02810-DEC-80 10:41:54 PAGE S- 8

CROSS REFERENCE TABLE (CREF

SEQ@ 0112

CZCMJBO CMR(V)=11 HOST EXERC%E sacu)to v03.02810-DEC-80 10:41:54 PAGE S-9

CROSS REFERENCE TABLE (CREF

ST
ST201

ST
ST
ST

P=
14-;1‘

7-334
15-30
1 S-i‘

15224
15-24#

15-

15-43.
15-4

154
15-5

15-51

s
1
o
hEl
STZZi 16-;3’
s
17-12¢
S1230

15-55

17-644

ST61

8-13#

8-55'

8-29

ST
ST80
STB0S
ST81.
STz
s
ST90S
sT91.

9-12
9-18¢
9-26
9-21
368
941
o=

9-16#
9-28
9-28#
o=
o
945
O-45#

STATEM

STEMF

be
9-;:

17-67

13-29

SRFLG

419

9=49

278

a2
40-

% .
SYSER
TALLY
TBLAD
.
L2 g
.
Tk
5-3¢
TPCONT
30-20

37400

30-16#
30-1

”

9-33

S
a3
SWREG
1-10

TPOFCH
TPOUTX

17-704

&
9-15

STESTF

15-69

17-15

17-61

e
ST70

15-62

ARl
e,
16-§20 16-41
s

1 7:23
17

15-44

15=56#

ST25
ST

15-37

SEQ 0113

28-31+

10:

]

130

BB 2eess

2843

40-30#

.
6%

—42%
12

A B
5
3
eoe 3580
-

| 4

22-4h4
403

9~
303

22-46x

22-47

23=S1%

2352+

4O-31A

C2CMIBO CMR(V)=11 HOST EXERCISE

CROSS REFERENCE TABLE (CREF
TRPG

TSTHOR
TSTRSK
ISTSEL

28<96
4=
6=

= o

TTOLF
TTOLP

SS~

778
TWOSP
TYPCR
TYPCTP

TYPOUT

USOFE1

3
-

;° S
37-81
18-54
29—

4=
o
1776
25
:

S=408
5‘3?

({ 4
g,

4=
17-

354

USORM

VECTOR

VERFLG

VERSP

VERSUN
VIDER

4-41

7=42

14~

14624

WDWAS

28-128

WORD

=45

17-4

VISF

WDAT
WwDSD8

114
125

-6+
12-21+

17-19«
17-461%

25-19
¥

25-2
8

§-290

25-34

27-35

27-S6

27-74
a9

461
17-08

614
17-29

6~40
1736

e=2
17-37

711
17-48

925
1749

2641

243

2643

gr-a3

9-60+
16=46%

9-63+
14=47*

9-64
1448+

434
1038

440
1041

448
17-10

450
17-16

457
17-17

$3.og3r

gebo

-3

13=7+

13-22«

28-75

40-404

9=17+
12-29+

9-18
1;—30'

9-32
12-31*

9-52%
12-3

58116

18-

58-118

18-3

38-125

1856

38-128

1881

1-5¢

1891

5922

$1-3¢

18101

59-28

$1-38

18115
7

19-08

942
17-56

1968

5236

$240

214

7-6+

14~
14~

514

3e-o0

18-19

USOFES - 1640

16-29

SEQ 0114

1
%3-7?
$5-44

320

—$1#

USOFE

1
1
§5:é'
55-71
541
-

22-29

15-61

USOFE2

V04.00)

180

614

MACRO V03.02810-DEC-80 10:41:54 PAGE S-10

17
g;-

13-3+

17=7%

40-34#

104

=144

1454
1

16474

9-7
1;-%8'
17~
17-42%

9=14+
12-23

17-21*
17-43*

17-22%
17-45«

17-23%
17-46

17-25*
17=50*

17-26
17-51«

9-53
1;- 3

17-30
17-53+

17-31«
17-54

17-33«
40-35#

17-34

9-78+
14-49

17-38+

12-19+
14-50

17-39«

12-20+
17-18+

1740+

CZCMJIBO CMR(V)=11 HOST EXERCvas MACRO Vv03.02810-DEC-80 10:41:54 PAGE M-1

R
ERROR

HLT

MTPS
PNTM

REGRES
REGSAV
SCOPE

=1
d

LISS

2;:

12=25

4-;41.

4=25

S;o
18-1
7
4=

18~1
55:37
114
”
S78
12-9

15-55

.00 )

18-

19-23
4

12=35

13-1

1316

1331

14=26

4~-50

19-1
4=5

18-115
53-4.9
-36

22-23
-

g:zs

10~41

125
-1
34~
7=2

18b=d
1;3
-21
7=

18-54
19
-%
7-39

15-62

15-69

162

12-16

12~
2-26

SEQ 0115

12-

4=40

28-55
13-26

4-4.3

17-1

18-81
2
-4
-39
-1

18-91
]
g
-4
-2;

18-101
53:3
7

16-30

16-41

18-84

13-1

g—ga

13-32

L S

7-17

9=45

14=16

18-94

14=52

18-12

18-78

18-88

17=49

17=-77

7=45

-24
-61
3-9

17-74

2-29
8-96

22-33 |
28-111 |
'
|

9-91

10-28

10-44

11-11

11-40 |

18-118

26-32

26-53

4=61

17-

19- g
§5°
-40
9=74

14=25

18-104

9—14

17=37

14=33

14=53

CROSS REFERENCE TABLE (CREF

9—42
2~ s
8-37

15-30

18-98
7-11

15-37

19-22
9-25

17-80

15-44