Digital PDFs

AH-E777A-MC

August 1978

57 pages

Original

2.9MB

view download

OCR Version

2.5MB

view download

Document:	CZNCDA0 NCV-11 EXERCISER DEC 1978 bw
Order Number:	AH-E777A-MC
Revision:	000
Pages:	57
Original Filename:	CZNCDA0__NCV-11__EXERCISER__AH-E777A-MC__DEC_1978_bw.pdf

OCR Text

N CV'1 1

EXCERCISER

CZNCDAO

AH-E777A-MC

DEC1

FICHETOFT T

TN USATM
MADE

copvrighT 7378 EOEO0ED

Product Code:

AC-E776A-M(C

Product Name:

CINCDAO NCV11

Date:

AUGUST

MAintainer:

Diagnostic Engineering

EXERCISER

1978

Copyright (() 1973,1978
Digital
Equipment Corporation, MAynard, Mass.
This software is furnished under a license for use only

single

computer system and may be copied only with the inclusion of the above
copyright notice.
This software, or any other copies thereof, may not
be provided or otherwise made available to any other person except for
use on such system and to one who agrees
to
these
Llicense
terms.
gggle

and

ownership of the software shall at all

times remain in

The intormation in this document is subject
to change without
notice
and
should
not
be
construed as
a commitment by Digital Equipment
(orporation,

DEC assumes no responsibility
for
the use or
reliability
software on equipment which is not supplied by DEC.

its

C
Page 2

hororonuno

REQUIREMENTS

LOADING PROCEDURE

STARTING PROCEDURE

OPERATOR OPT]ONS
OPERATOR KEYBOARD OPT]ONS

V2O

RECOMMENDED OPERATOR ACTION
Camera Setup
Joystick Setup

Equipment
Equipment - Optional

PREL IMINARY PROGRAMS
Storage

OO0
NNNNN

MISCELLANEOUS

SN
-0

PROGRAM DESCRIPTION

OPERATOR SWITCH REGISTER OPTION(S)

0o0oCo

Swnwnhu

ABSTRACT

CONTENTS

—

TABLE OF

LISTING

Device Bus Address Modifications
free Run Mode (Type 'F'")
Error Reporting
Execution Time

Data Connection & Display
Joystick Mode

SEQ 0002

1
D
Page 3
1.0

ABSTRACT

This

is a selt contained program designed to

convert

data

from

the GAMMA camera via the NCV11 intertace and display it on a
vSv01 display.
It
can
be
used
for
camera/interface
and
joystick

setup

for

practice

in image manipulation.

meant as a exerciser rather than a diagnostic.
TOTAL PROGRAM
CONTROL [S ACCOMPLISHED THRU THE (ONSOLE KEYBOARD. THE PROGRAM

1is

IS NOT CHAINABLE/SCRIPTABLE UNDER XXDP/APT,

REQUIREMENTS

2.1

Equipment
1.

PDP-11

FAMILY OR LSI-11

NCV11

Interface

2.
4.

2.2

(i.e., LA36)

Gamma Camera

(OR SUBSTITUTE)

Equipment ~ Optional
1.

2.3

FAMILY Computer

1/0 Terminal

H3060 Joystick

VSVO1

DISPLAY

PREL IMINARY PRCGRAMS

MAINDEC-11-DVNCA SHOULD HAVE PREVIOUSLY BEEN RUN

2.4

Storage

This program uses all

3.0

lower

12K of memory.

LOADING PROCEDURE

Normal procedure
BE followed.

for

loading a binary program into memory

SHOULD

SEQ 0003

Page 4

4.0

STARTING PROCEDURE

Loading address 200 and starting will initialize the

IDENTIFY THE PROGRAM and wait a keyboARd command.

5.0

OPERATOR OPTIONS

5.1

OPERATOR KEYBOARD OPTIONS

TYPE 'H''= HELP OPERATOR AND DISPLAY OR TYPE THIS LIST

system,

Type "N''- Collect new data from camera - clears core matrix FIRST
Type ‘‘C''~ Collect data from camera ~ starts NCV11,
previous core
matrix data not cleared
TYPE "X''- SELECT ANOTHER CAMERA CHANNEL

Type ''S''~ Stop NCV11 data collection - also
Type
Type
Type
Type
Type

"Z''~
'R'‘~'W'=
"'M''~
"'A'’-

MODE

)

terminates

free

RUN

Zoom - Set NCV11 TO GAIN 2
Regular - SET NCV11 TO GAIN 1 (DEFAULT COND)
Select vSVO1 display using 1st bit map
Select VSVO1 display USING 2nd bit map
Display ISOTOPE A (default cond)

Type ‘B''- Display ISOTOPE B (B GAMMA)
Type ‘D''- Display data - display selected ISOTOPE

Type ‘L'~ Get lower threshold from keyboard
matrix values lLess than typed value
Type 'U''- Get upper threshold from KEYBOARD
ALl
matrix
values
greater
than
DISPLAYED

(default=0)
- all
are not d1sgla ed

(default=177777)

Type "¥''- Free
run mode collect
and
display
new
continuously - Type ''S'’ to terminate this mode
TYPE *°X''= SELECT ANOTHER CAMERA CHANNEL

Type "G'- Initialize everything - start fresh
Type '‘J''= Joystick calibration NCV11 - use
'‘(ntrl

(''

data

)
to terminate mode

TYPE ‘“‘T''= DISPLAY INTENSITY TEST PATTERN ON
SELECTED
DISPLAY
THIS FEATURE IS FOR DISPLAY VERIFCATION ONLY
TYPE

'D''- OTHER TERMINAL

TO CONTROL

THE PROGRAM

Type '‘(ntrl & C'' - Abort whatever - back to keyboard monitor

5.2

OPERATOR SWITCH REGISTER OPTION(S)
NONE

typed value are NOT

SEQ 0004

Page 5

6.0

RECOMMENDED OPERATOR ACTION

6.1

Camera/AQ17 Setup
1.

Place radioactive flood source IN FRONT OF

CAMERA

SEQ 0005

DETECTOR,

OR USE A WEAK RADIOACTIVE SAMPLE ABOUT 3 FEET FROM A DETECTOR
WITH THE

CCLLIMATOR REMOVED.

Collect data (C) and display (D)

Adjust the X and Y gain controls ON YHE A017 until
a round
circler IS SEEN and centered within the box on screen.

Increase the circler size until the edges just begin to TOUCH

THE BOX.

Collect data for a 3 minute period and observe the image.
If
there
1is an artifact on the center of the screen that looks
like a right angle bracket,
the °7'' delay circuit should be adjusted.
6.
+

6.2

IF THE

MATRIX

COLLECTED,
THIS MAY BE

AND

COUNTS

EQUAL

THEREFORE, NO DISPLAY.

A HEXAGON FOR

SOME MAKES OF

THEN

DATA

WAS

CAMERA.

Joystick Setup

Select Joystick configration by typing '"J''".
Adjust the Y Pot on the H3060 Joystick so

that the HORIZONTAL cross hair

provide UNIFORM access within the box drawn on the screen.
ADJUST THE X POT ON THE H3060 SO THAT THE VERTICAL CROSS HAIR WILL

ALSO BE UNIFORM EXCEPT THAT DUE TO A HARDWARE OFFSET WILL NOT REACH
THE RIGHT EDGE AND EXCEED THE LEFT EDGE BY THE SAME AMOUNT.

Ideally, a physcial

center

of the

approximately centered in the box.

Joystick

will provide a point

Check that when the Joystick interrupt SWIT(H is
CROSS HAIRS DO not

follow the Joystick.

depressed

A ‘Cntrl C'" will return user back to the keyboard monitor.

the

G
Page 6

7.0

MISCELLANEOUS
-

Device Bus Address Modifications

NCV1T

Modify location 'NCVADR'' if

VSVO1

Modify location ‘VIVADR'' if base bus address (CHARACTER
GENERATOR) 1S NOT 772600

772760

base

bus

address

MODIFY LOCATION ‘VTMADR'' IF BASE BUS ADDRESS (BIT
1S NOT 772620

Note:

7.2

A restart is required after any of
modifications.

Free Run Mode

the

above

not

MAP)

address

(Type 'F'")

Modification of location '‘TIME'' will alter
the data collection
time in the free run mode.
The default value of 20(8) provides
about

7.3

7.4

10 SECONDS ON AN LSI-11

CPU.

Error Reporting

INCORRECT KEYROARD COMMANDS ARE RESPONDED WITH '?°'

A MESSAGE WILL BE REPORTED IF ANY SELECTED DEVICE (SEE SECTION 7.1)
DOES NOT

RESPOND.

Execution Time

The EXECUTION TIME

is completely

whatever optior, selected.

dependent

wupon

the

user

for

SEQ 0006

PAGE

8.0

PROGRAM DESCRIPTION

8.1

Data Collection & Display
The user may collect data from the gamma camera
NCV11
interface
and display this data on

system

via

the

the VSVO1 (bitmap) display.
ALl functions are ENTERED
thru the
keyboard
as
defined
in
section 5.1.
When the data collection
mode is selected the NCV11 is receiving X & Y data from the gamma
camera
(looking AT a
radioactive source).
This
information is
transformed via THE address maker
LOGIC
which
forms
a unique
address within a defined matrix relative to the scan position of
the camera.
The NCV11 preforms an NPR increment to memory to this
UNIQUE
address.
The program selects the address MATRIX 64x64x16
(RESOLUTION 2) OFFSET TO address 20000(8) FOR
THE
'A'
Isotope,
AND
FOR THE °'B' ISOTOPE, (CAMERAS EQUIPPED WITH THE DUAL [SOTOPE
ATTACHMENT) INFORMATION VIA B GAMMA LOGIC IS STORED
STARTING
AT
ADDRESS 40000 (8).
The intensity of cach cell (memory location)
of the image in memory is
adjusted with
the
upper
and
lower

thresholds

The cell
HIGHEST

and

scaled to ONE OF 16 intensity levelS.

with
the
intensity

highest
count
represents
THE
Llevel,
therefore
appears
brightest
on the
display.
At the completion of the image display,
the
following
parameters are displayed:

Lower Threshold
Upper Threshold
CAMERA

PB
JB

Z Count

MatRix Count
Zoom
B-Gamma

8.2

ALl

values

greater

than

this

value

are

displayed
All values above this value are omitted
SELECTED CAMERA CHANNEL
UP/DN INDICATOR OF THE PUSH BUTTON STATE DURING LAST COLLECTION
UP/DN INDICATOR OF THE JOY BUTTON STATE DURING LAST COLLECTION

32 bit counter of EVENT pulses

Total count of the contents of each
the 64x64 matrix
Displayed if 9ain was selected
Displayed if
"B' Isotope selected

cell

Joystick Mode
Selecting the TEST takes advantage of the
Joystick
mode provided by the NCV11.
This mode selects the JOYSTICK inputs
and the NCV11 performs lLike aN A/D with the X & Y CONVERTED
values
available
in
X-Y holding register.
The X and Y data is applied
to the
display and should conform
to
the
requirements in section 6.72.
THE vSVO1 uses the X £ Y cross ha’rs as the DISPLAY indicator.

9.0

LISTING

SEQ 0007

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11

17
133
142
146

187
274
276
380

408
556
818
1040

1209

1280
1358
1412
1435
1455
1497
15¢6

TABLE OF

CONTENTS

8-AUG-78

BASIC DEFINITIONS
TRAP CATCHER

STARTING ADDRESS(ES)
COMMON TAGS
ERROR POINTER TABLE

MAIN PROGRAM

INITIALIZE THE COMMON TAGS

KEYBOARD DISPATCH TABLE
COMMAND DECODER
PROGRAM ROUTINES
PROGRAM SUBROUT INES
TTY INPUT ROUTINE
TYPE ROUTINE

BINARY TO OCTAL

(ASCI]' AND TYPE

READ AN OCTAL NUMBER FROM THE
TRAP DECODER
TRAP TABLE

POWER DOWN AND UP ROUTINES
DISPLAY MESSAGES
ASCII

MESSAGES

TTY

15:16

SEQ 0008

CINCDA

NCV11 EXERCISER MACYTT 27(654)

ny — bl i ) e D D = D
o VOO
NN 2O YO0 NP NSAWNN

CINCDA.PN

15:16

8-AUG-78

PAGE 1

SEQ 0009

CINCDA NCV11 EXERCISER
TITLE
;*COPYRIGHT (C) 1978
;*DIGITAL EQUIPMENT CORP.
'MAYNARD MASS. 01754
*PROGRAM 8Y R.SHOOP

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMA(C
iPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977,
000001

160000
172769

sr~-1

$SWR=160000
.SBTTL

STACK=

000011
000012
000015
000200
177776

HT=
LF=

177774
177772
177570
177570

STKLMT=
PIRQ=
DSWR=
DDISP=

000000
000040
000100
000140
000200
000240
000309
00034

BASIC DEFINITIONS

;DEFAULT NCV11 ADDRESS

;*INITIAL ADDRESS OF THE STACK POINTER #xx 1100 =«

001100

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

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

ABASE=172760

LEQUIV
.EQUIvV

1100

EMT,ERROR
10T,SCOPE

::BASIC DEFINITION OF ERROR CALL
::BASIC DEFINITION OF SCOPE CALL

;*MISCELLANEOUS DEFINITIONS

CR=
CRLF=

PS=
.EQUIV

1
12

::CODE FOR HOR]ZONTAL TAB
::CODE FOR LINE FEED

15
200

::;CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED

177774
177772
177570
177570

::STACK LIMIT REGISTER
::PROGRAM INTERRUPT REQUEST REGISTER
; ;HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER

177776
PS,PSW

; ;PROCESSOR STATUS WORD

:*GENERAL PURPOSE REGISTER DEFINITIONS

RO=
R1=

X0
%1

: :GENERAL REGISTER
; ; GENERAL REGISTER

R2=

y ¥4

; ;GENERAL REGISTER

SP=

::STACK POINTER

R3R4=
RS=
R6=
R7=
PC=

X3
{4
%5
26
X7
X7

;*PRJORITY LEVEL

PRO=

PR1=

PR4=

200

PR6-

300

PR?2=
PR3=

PRS=
PR7=

:;GENERAL
: ;GENERAL
::GENERAL
: ;GENERAL
;:GENERAL

: :PROGRAM COUNTER

DEFINITIONS

::PRIORITY LEVEL O
:;PRIORITY LEVEL

100
140

::PRIORITY LEVEL 2
:;PRIORITY LEVEL 3

240

;:PRIORITY LEVEL S

340

:;PRIORITY LEVEL 4

::PRIORITY LEVEL 6

::PRIORITY LEVEL 7

CINCDA

NCV11 EXERCISER MACY11 27(656)

CINCDA.P11

BASIC DEFINITIONS
100000

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

8-AUG~78

Sw09=
Sw08=
swo7=
swo6=
SW0S=
SWo4=
swo3=
Swo2=
swo1=
Swoo=
.EQUIV

EQUIV

.EQUIV
.EQUIV
.EQUIV
.EQUIV

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

PAGE 2

;%' 'SWITCH REGISTER'' SWITCH DEFINITIONS
100000
Sw15=
40000
Swi4=
20000
swi3=
10000
sSw12=
4000
Swil=
Sw10=
2000

.EQUIV
.EQUIV
.EQUIV
.EQUIV

100000

15:16

1000
400
200
100
40
20
10
4
2
1
SW09,SW9
SW08,Sw8
SW07,Sw7
SWO6,SWwé
SWO5,SW5
SWO4,SW4
SWO3,Sw3
SW02,Sw?
SWO1,SW1
SWO00,Sw0

:*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BITO07=
BITO6=
BIT0S=
BIT04=
BIT03=
BIT02=
BIT01=
BIT00=
.EQUIV
.EQUIV

.EQuUlv
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
BIT09.BIT9
BIT08.BIT8

81T707,B117
BIT06.BIT6
B8IT05.BITS5
BIT04.BIT4
BIT03,BIT3
BIT02,BIT2
BITO1,BIT1

SEQ 0010

CINCDA

NCV11 EXERCISER MACY11 27(654)

h —md

D
d md
d e
) ad

o md b o

d
D
d
b

PIOPNIN) =

—

BASIC DEF INITIONS

8-AUG-78

15:16

PAGE 3

.EQulv

BIT00,BITO

SEQ 0011

;*BASIC "'CPU"" TRAP VECTOR ADDRESSES

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

b b

b =D

N=O0OVONONHWNI—O el

CINCDA.PY

ERRVEC= 4

;. TIME OUT AND OTHER ERRORS

BPTVEC= 14
IOTVEC= 20

: ;BREAKPOINT TRAP (BPT)
;s INPUT/OUTPUT TRAP (]IOT) =+SCOPE=x*

EMTVEC= 30
TRAPVE (=34

;;EMULATOR TRAP (EMT)
;" 'TRAP'' TRAP

PIRQVE(C=240

; ;PROGRAM INTERRUPT REQUEST VECTOR

RESVEC= 10
TBITVEC=14
TRTVEC= 14

;;RESERVED AND ILLEGAL INSTRUCTIONS
;T BIT
;. TRACE TRAFP

PWRVEC= 24

TKVEC=
TPVEC=

; ;POWER FAIL

60
64

=+ERROR**

;. TTY KEYBOARD VECTOR
;.TTY PRINTER VECTOR

;SOME COMMON PROGRAM VALUES AND EQUATES
MATRIX=20000

020000

.SBTTL

000174
000176

140

000200

000100

;*SEQUENCE TO CATCH ILLEGAL TRAPS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

=174
DISPREG: .WORD
O
SWREG:
.WORD
0
.SBTTL
STARTING ADDRESS(ES)

000174
000C00
000000

000137
000100
000104

TRAP CATCHER

s*ALL UNUggD LOCATIONS FROM &4 - 776ANDCONTAIN
A ''.+2,HALT"
INTERRUPTS

000000

137
138

;STARTING ADRS OF MATRIX DATA

001322
0007450

JMP

000002

.-100

a#START

106,340 ,RT]

;;SOFTWARE DISPLAY REGISTER
;;SOFTWARE SWITCH REGISTER

;;JUMP TO STARTING ADDRESS OF
;LSI-11

B EVENT

PROGRAM

CZNCDA NCV11
CZNCDA PN

EXERCISER MACY11 27(654)
COMMON TAGS

8-AUG~78
.SBTTL

143
144
145
146
147

15:16

FPAGE 4

SEQ 0012

COMMON TAGS

""ttfi*fifitQ't'*tit"'*ttifiti'tl’*tt*itttitttitlttitttttlittttttt*ttt

;*TH]S TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;*USED IN THE PROGRAM.

001162

000012

.=1100

;;AUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR
:;ADDRESS OF SWITCH REGISTER

; ;ADDRESS OF DISPLAY REGISTER

;:TTY
;3TTY
;:TTY
::TTY

.WORD
.BYTE
.BYTE
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
$SAUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: . WORD
177560
$TKS:
177562
»TKB:
177564
$TPS:
177566
$TP8:
:
$NULL
.BYTE
$SFILLS: .BYTE
SFILLC: .BYTE
$STPFLG: .BYTE
$QUES:
.ASCII
$CRLF:
.ASCI]
$LF:
LASCIZ

COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG
;2 CONTAINS SUBTEST ITEFATION COUNT
;. CONTAINS SCOPE LOOP ADDRESS
;. CONTAINS SCOPE RETURN FOR ERRORS
5, CONTAINS TOTAL ERRORS DETECTED
;;CONTAINS ITEM CONTROL BYTE
;. CONTAINS MAX. ERRORS PER TEST
;. CONTAINS PC OF LAST ERROR INSTRUCTION
;. CONTAINS ADDRESS OF 'GOOD' DATA
;;CONTAINS ADDRESS OF 'BAD' DATA
;;CONTAINS °'GOOD' DATA
;. CONTAINS °'BAD' DATA
; ;RESERVED=--NUT TO BE USED

;START OF
;s CONTAINS
;;CONTAINS
;s CONTAINS

.WORD
.BYTE
.BYTE
.WORD
. WORD

EU)

NNNN—ld—l—l—lg
oSN ooONVISNO

—t o

000000
000
000

$CMTAG:
:
$PASS
STSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
SERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$BDDAT:

== ololeololololelolalo
P lalololelelolele)

001100

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

ADDRESS
ADDRESS

:;CONTAINS NULL CHARACTER FOR FILLS

0
/?/
<15>
<12>

:;CONTAINS # OF FILLER CHARACTERS REQUIRED
;2 INSERT FILL CHARS. AFTER A "LINE FEED'’
;2 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;QUESTION MARK
; :CARRIJAGE RETURN
;:LINE FEED

.'.'tt't!ttt't"ttt.tttt"'t't'.tfitit.fiitfifitttttQtttltttttttttttttt

NCV11 EXERCISER MACY11 27(654)

184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199

200
201
202
203
204
205
206
207
208
209
210

ERROR POINTER TABLE

8-AUG-78
.SBTTL

15:16

PAGE 5

SEQ 0013

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH
J«THE

INFORMATION IS OBTAINED BY USING THE

{0R THAT (AN OCCUR.

INDEX NUMBER FOUND IN

:*LOCATION $ITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF $ITEMB IS O THE ONLY PERTINENT DATA IS (SERRP(C).
;*NOTE1:
;*NOTEZ:

i
ix
o*
o

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

EM
DH
DT
DF

;;POINTS
;.POINTS
:;POINTS
;;POINTS

$ERRTB:
;THIS PROGRAM DOES NOT USE

001164

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

THE ABOVE ERROR

TABLE

JNCV11 BUS ADRS ASSIGNMENTS - MODS ARE TO BE MADE HERE
001164

172760

NCADR;

ABASE

:VSVO1 BUS ADRS ASSIGNMENTS (CHAR GEN) - MODS ARE TO BE MADE HERE
001166

172600

VIVADR:

172600

;VSVO1 BUS ADRS ASSIGNMENTS (BIT MAP) - MODS ARE TO BE MADE HERE
001170

172620

VIMADR: 172620

;FIRST MAP

2ND MAP [S 20 HIGHER

;LOUNTER FOR FREE RUN MODE
001172

000024

TIME:

20.

CINCDA

CINCDA.P

;LOOP COUNTER FOR °'F"' MODE

LINLDA

NLVI1 eXERCISER MACY11 27(654)

8-AUG-78

001174
001176
001200
001202
001204

001206
001210
001212

172760
172762
172764
172766
172770
172772
172774
172776

NCCSR:
:
NCOFF
NCWCR:
NCBAR:
NCSFR:

001214
001216
001220

172600
172602
172604

VIVCRG:
VIVCHP:
VTVPOS:

001222
001224
001226
001230
001232

172620
172622
172624
172626
172630

VTVCSR:
VIVMAP:
VIVPX:

001234
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316
001320

000000
000000
000000
000000
000000
000000
006400
000000
000000
000003
000000
000000
000000
000000
177777
000000
000000
000000
010000
000000
000000
000000
020000
000000
000000
000000
000000

CINCDA.PI

ERROR POINTER TABLE

15:16

VTVPX1:

SEQ 0014

;NCV11 REGISTER ADDRESS POINTERS

ABASE

ABASE +2
+4
ABASE
ABASE +6
ABASE+10
NCADM:
ABASE +1?2
NCJOY:
ABASE +14
NCBAR1: ABASE +16

VIVINT:

PAGE 6

JNCV11 STATUS CONTROL REGISTER
JNCV11 OFFSET REGISTER
JNCV11 WORD COUNT REGISTER

:NCV11 BUS ADDRESS REGISTER / LOW Z COUNT
:NCV11 SPECIAL FUNCTION / JOYSTICK STATUS REGISTER
;NCV11 ADDRESS MAKER REGISTER

;NCV1T JOYSTICK DATA REGISTER
;NCV11 SPARE <SAME AS NCBAR>
:VS )1 REGISTER ADDRESS POINTERS (CHARACTER GENERATOR)
172600
; CHAR/STATUS
172602
;CROSS HAIR POS
172604
;CHAR POS

:VSVO1 REGISTER ADDRESS POINTERS (BIT MAP)

172620
172622
172624
172626
172630

; COMMAND/STATUS
;MAP ADRS
JPIXEL WD
JPIXEL BYTE

JINTENSITY LOOK UP

COMMON PI0OGRAM TAGS AND STORAGE LOCATIONS
;COMMON UTILITY LOC
0
;COMMON UTILITY LOC
0
oCOMMON UTILITY LOC
DUMMY1: 0
;JOCTAL TEMP LOC.
DUMMY?2: 0
;OCTAL TEMP LOC.
TEMPO:
TEMP1:
TEMPZ:

INTLUT:
VIVSAV:
MRXADR:
MAPADR:
PIXCNT:
PIXASM:
KBUFF:
TTYOUT:
THLO:
THHI:
COMSAV:
CAMERA:
GAIN:
T0TSIZ:
CHARCT:
CPERL:
:
ROWCNT
TABLEX:
FREERN
MSELCT
BELLEN
NOVSV:

0
6400
0
0
3
0
0
0
0
1 77777
0
0
0
4 096.
0
0
0
MATRIX

0
0
0
0

;VSVO1 SET UP - FULL SCREEN, MONO(BLK/WHT), ENA DISPLAY

;CURRENT CORE ADRS OF CELL BEING DISPLAYED
:CURRENT ADRS OF BIT MAP LD
;CURRENT PIXEL BYTE COUNT
;6 PIXELS ASSEMBLED HERE BEFORE BIT MAP LD

;CONTAINS KEYBOARD CHAR TYPED
;OUTPUT CHAR TO PRINTER
;LOW THRESHOLD VALUE APPLIED TO MATRIX CELLS
JHIGH THRESHOLD VALUE APPLIED TO MATRIX CELLS
;SAVED NCV11 CSR CONTENTS WHEN DISPLAYING
;CAMERA SELECTION IN BITS 8-9
;GAIN 1=0, GAIN 2=BIT10
;TOTAL # OF CELLS IN MATRIX (ISTOPE A OR B)

;COUNTS TOTAL # OF CELLS IN MATRIX (ISOTOPE A OR B)
;CONTAINS LARGEST CELL OF MATRIX WITHIN THRESHOLDS
JCOUNTS 64 CELLS EACH ROW OF CORE MATRIX
;CONTAINS STARTING ADRS OF MATRIX OF SELECTED ISOTOPE
;NON-ZERO SAYS COLLECT NEW DATA & DISPLAY IN FREE RUN MO
;0 SAYS 1ST BIT MAP, -1 SAYS 2ND BIT MAP(VSVO1)

;0 SAYS RING BELL ON NO CONVERT, =1 SAYS DON'T
;NON-ZERO INDICATES NG VSVO1 DISPLAY

CZINCDA

NCV11 EXERCISER MACY11 27(654)

8~AUG-78

001322

START:

CINCDA.P11
271
272

273
274
275
276
277
278

MAIN PROGRAM

LSBTTL

001322
001326
001330
001334
001336

012706
005026
022706
001374
012706

001100

001342
001350
001356
001364

012737
012737
012737
012737

007316
000340
007376
000340

001372
001376
001404
001412
001420
001426

013746
012737
012737
012737
022777

000004
001432

001430

001432

001436
001440
001446
001454
001460
001464
001470
001472
001476
001502
001504
001510
001514
001516
001522

001526
001530
001536
001542
001544
001546
001552
001554
001562
001564
001570
001576
001602
001610

001012

000403
012716
000002
012737
012737
012637
104401

004737
103005
005237
104401
000000

013700
012701
010021
062700
022701
001372
012737
005777
000404
022626
104401

000004

MOV
MOV
MOV
MOV

#STRAP ,a#TRAPVE(C ;.TRAP_VECTOR FOR TRAP CALLS
#340,a#TRAPVEC+2;
LEVEL 7
#SPWRDN ,a#PWRVEC ; ;POWER_FAILURE VECTOR
#340,3#PWRVEC+2 ,;LEVEL 7

MOV
MOV
MOV
MOV
CMP
BNE

a#ERRVEC,-(SP)
#6483 ,INERRVEC
#DSWR, SWR
#DDISP ,DISPLAY
#-1,aSWR
66%

;;SAVE ERROR VECTOR
;. SET UP ERROR VE(CTOR
;;SETUP FOR A HARDWARE SWICH REGISTER
;.AND A HARDWARE DISPLAY REGISTER
;;TRY TO REFERENCE HARDWARE SWR
;;BRANCH IF NO TIMEOUT TRAP OCCURRED

648

BR
Q?Y

65%
#65%, (SP)

;sBRANCH IF NO TIMEOUT
22SET UP FOR TRAP RETURN

65%:

MOV

#SWREG, SWR

;sPOINT TO SOFTWARE SWR

66%:

MoV

(SP)+ ,a#ERRVEC

;;RESTORE ERROR VECTOR

.MSG1

;GO IDENTIFY PROGRAM

;o INITIALIZE A FEW VECTORS

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "*=1'", SETUP FOR A SOF TWARE SWITCH REGISTER.

000002
001214

004660
020000
001276
020000
001266

THE HARDWARE SWR IS NOT = -1

PC.SELCTA
3%
NOVSY
.MSG3

3$:

NCADR RO

;DEFAULT TO VSVO1 DISPLAY IF THERE
;BR IF DISPLAY VSVO1 IS THERE
;SAVE THE FACT NO VSVO1 CONNECTED
;GO TYPE 'BUS TIMEOUT ER - VSVO1 DISPLAY®
;JNO DISPLAY SEEN AT ASSIGNED BUS ADRS'S
;GET NCV11 BASE ADRS

NCSET:

MOV

RO, (R1)+

JSET UP NCV11 REG ADRS PTRS

000004
1%:

010241

#D1SPREG.DISPLAY

;;AND

JSR
B8CC
INC
TYPE
HALT
MOV

001320
010121

001544
177432

MOV

TYPE

001164
001174

;;FIRST LOCATION TO BE CLEARED
;:CLEAR MEMORY LOCATION

#SWR,R6 ;.DONE?
;. LOOP BACK IF NO
-6
#STACK,SP
;;SETUP THE STACK POINTER

000004
001140
001142
177512

001140
001142

H#SCMTAG ,R6
(R6)+

CMP
BNE
MOV

010003
004440

000006

005037

000034
000036
000024
000026

001440

000176
000174

SEQ 0015

INITIALIZE THE COMMON TAGS

MOV
CLR

001100

177777

PAGE 7

::CLEAR THE COMMON TAGS ($CMTAG) AREA

001140

177570
177570

15:16

MOV

ADD

CMP
BNE
MOV
rst
BR
cMP
TYPE
HALT

#NCCSR,R1

#2.R0O

#VTVCRG,R1
NCSET
#1% ERRVEC
aNCCSR
START1
(SP)+,(SP)+
.MSGS

;GET POINTER ADRS

;BUMP REG ADRS

JALL SET UP?
;BR IF NOT
;SET UP TIMEOUT ADRS
;WILL TRAP TO LOC & IF NOT THERE
;BR IF THERE
JFIX STACK SINCE NO RTI
;GO TYPE 'BUS TIMEOUT ER = NCV11®
;NCV11 NOT SEEN AT ASSIGNED BUS ADRS

000004

START1: MOV

177400

JSR
MoV
CLR

PCNCSTP1
#MATRIX,QNCOFF
GAIN

;GO STOP NCV11 & CLR CORE MATRIX
;SET OFFSET(ADRS 20000)
;REGULAR GAIN

CLR

THLO

.CLEAR LOWER THRESHOLD

001310

RESET

MOV

#ERRVEC+2 ,a#ERRVEC

H#MATRIX,TABLEX

JRESTORE ERR TRAP LOC TO PT TO 6

s CLR WORLD

.ISOTOPE A

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11

001614
001622

001630
001636
001644

15:16

8-AUG-78

INITIALIZE THE COMMON TAGS

012737
012737
012737
012777
104401

177777
005104
000340
000100
010275

MOV
MOV
MOV
MOV

001270
000060
000062
177300

TYPE

0,0
u,
v
Se

0,
By
e
Ve
8,0,
8.
v,
%e

Be
N, Se
s
®e

CNTRL C

SEQ 0016

177777 ,THHI

;CEILING THRESHOLD

MSG6

;GO ASK FOR KEYBOARD COMMAND(S)

#KBINT , TKVEC
#340,TKVEC+2
#100,3$TKS

IS A LIST OF

O—OL*\I;t:m)mNmmvaCr-moI'

sTHIS

PAGE 8

;SET KEYBOARD INTR RETURN ADRS
JSET UP NEW PRIORTY ON INTR
;SET INTR ENABLE

KEYBOARD COMMANDS FOR THE NCV11/DiSPLAY/JOYSTICK

HELP FRAME
DISPLAY DATA

ERASE THE SCOPE

GET LOWER THRESHOLD FROM KEYBOARD & DISPLAY DATA
GET UPPER THRESHOLD FKOM KEYBOARD & DISPLAY DATA
COLLECT NEW DATA FROM CAMERA (CLEAR CORE MATRIX)
COLLECT DATA FROM CAMERA
CHANGE CAMERA
STOP COLLECTION
INITIALIZE EVERYTHING

Z00M - SET GAIN TO 2

REGULAR = SET GAIN TO 1
DISPLAY ISOTOPE A
DISPLAY ISOTOPE B

SELECT vSVO1

DISPLAY USING 1ST BIT MAP
SELECT VvSVO1 DISPLAY USING 2ND BIT MAP

FREE RUN MODE - COLLECT & DISPLAY NEW DATA CONTINUALLY
JOYSTICK CALIBRATION
DISPLAY INTENSITY TEST IMAGE ON SELECTED DISPLAY
OTHER TERMINAL TO CONTROL PROGRAM

ABORT WHATEVER = BACK TO KEYBOARD MONITOR

;THIS CODE WILL DISPATCH PROGRAM TO THE PROPER

001650
001654

001720
001724
001726
001730
001734
001736

005037
012706
005037
005046
012746
000002
013700
001775
005037
020027
103445
042700
020027
103040
006300
005760
001434
000170

001312
001100
001262
001674

001262
001262
000101
177740
000033

001740

JROUTINE VIA THE DISPAT(CH TABLE
FREERN
(LR
LISEN:
#STACK,SP
MOV
CLR
KBUFF
~(SP)
CLR
#LISN,-(SP)
MoV
RTI
LISN:
MOV
KBUFF ,RO
Q
BE
LISN
KBUF F
CLR
RO, 4101
CMP
BCS
800800
#177740,R0
BIC
RO,#33
CMP
B8CC
800800
RO
ASL
RTABLE-2(R0O)
TST
BOOBOO
BEQ
JMP
aRTABLE~2(RO)

'RTABLE'
;JKNOCK DOWN FREE RUN MODE
:RESET STACK PTR

2 INSURE NO KEYBOARD GARBAGE
;PUSH LEVEL O ONTO STACK
;70 BE LSI-11 COMPATABLE

;FAKE RT] TO LOWER PRIORITY
;LOOK FOR CHAR
;JWAIT FOR ONE

;

:WAS IT A CHAR?
sNOT A GOOD CHAR
JELIMINATE LOWER CASE
;1S IT AN ALPHA (CHAR?
;BR IF NOT
;JMAKE UP WORD OFFSET

;IS IT A LEGAL COMMAND?
;BR IF NOT

;GO DO IT

SET

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11

8-AUG-78

INITIALIZE THE COMMON TAGS

375

%;9

15:16

.SBTTL

PAGE 9

SEQ 0017

KEYBOARD DISPATCH TABLE

378
379
380
381
382

001742
001744
001746
001750
001752

002046
002060
002072
002102
002106

RTABLE: ROUTA
ROUTB
ROUTC
ROUTD
ROUTE

;'A'
:'B'
;'C'
;'D'
;'E"

DISPLAY [SOTOPE A
DISPLAY ISOTOPE B
COLLECT DATA
DISPLAY DATA
ERASE SCOPE

384
385
386
387
388
389
390
391
392
393
394
395
396
397
398

001756
001760
001762
001764
001766
001770
001772
001774
001776
002000
002002
002004
002006
002010
002012

002212
002222
000000
002274
000000
002300
002340
002372
002406
000000
000000
002526
002544
002562
002576

ROUTG
ROUTH
0
ROUTJ
0
ROUTL
ROUTM
ROUTN
ROUTO
0
0
ROUTR
ROUTS
ROUTT
ROUTU

;'G'
;'H'
;'1°
;'J"
;'K*'
;'L'
;'M'
;'N'
;'0"
;'P'
;'Q'
;'R'
;'S'
;'T'
;'U'

INITIALIZE EVERYTHING
HELP THE OPERATOR
B0OOBOO

383

399
400
401
402

403

001754

002014
002016
002020
002022

002024

002116

000000
002636
002666
000000
003C06

ROUTF

0
ROUTW
ROUTX
0
ROUTZ

;'F' FREE RUN MODE (COLLECT NEW DATA & DISPLAY CONTINOUSL
GO TO NCV11 JOYSTICK CALIBRATION

B00B0OO
GET LOWER THRESHOLD FROM KEYBOARD

SELECT vSVO1 DISPLAY USING Z2ND BIT MAP

GET NEW DATA FROM CAMERA
GET ADDRESS OF GTHER TERMINAL
B0OOBOO
BOOBOO
REGULAR GAIN =1
STOP COLLECTION
DISPLAY INTENSITY TEST IMAGE ON SELECTED DISPLAY
GET UPPER THRESHOLD FROM KEYBOARD
;'v' BO0BOO
;'W' SELECT vSVO1 DISPLAY USING 1ST BIT MAP
;'X' CHANGE CAMERA CHANNEL
;'Y' B0OBOO

;'2' I00M - GAIN = 2

~INCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11

COMMAND DECODER

404
482
4

002026

012737

000077

409
21?

002040
002044

004737
000713

005144

412
413
414
415
416
417

002046
002054
002060
002066
002072
002076

012737
000137
012737
000137
004737
000137

020000
003026
040000
003026
004576
001674

002106
002112
002116
002124
002130
002134
002136
002142
002144
002146
002154
002162
002164
002172
002176
002202

004737
000137
012737
004737
004737
005000
013701
005300
001376
042737
022737
001007
052777
005077
000137
005301

004712
001674
177777
004660
004576

418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435

436
437
438
439
440
441
442
463

444
445

446
447
448
449

450
451

452
453
454

455
456
457

15:16

PAGE

SEQ 0018

.SRTTL
COMMAND DECODER
;REPORTS ILLEGAL KEYBO/RD CHARA(CTERS

407

408

8-AUG-78

002034

002102

002206

002206
002212
002216
002222
002226
002230
002234
002236

002240
002246
002252
002254
002260
002262

002264

002270

002274
002300
002304
002310
002312
002316

004737

000137

001356

005164

ROUTC:
ROUTD:

ROUTE:
001312

ROUTF:

1%:

177012

002000
005202

001262

2%:
ROUTG:
ROUTH:

004712

011120

000137
012746
012746

004224
000340
002312

MOV
JMP
MOV
JMP
JSR
JMP
JMP

176752

1%:

001674

2s:

010040

1%:

ROUTJ:
ROUTL:

R77,TTYOUT

JSET up ' 2

PC.TYPCR
LISN

;D0 A '(CR'
;GO LOOK FOR GOOD (CHAR

PC.TYPO

JTYPE IT

MMATRIX,TABLEX WILL DISPLAY ISOTOPE A
CHANGE
;GO DO IT
#MATRIX+20000, TABLEX
;WILL DISPLAY ISOTOPE B
CHANGE
;GO0 DO IT
PC NCSTRT
;GO START NCV11
LISN
;COLLECT DATA UNTIL KEYBRD COMMAND

JSR
JMP
MOV
JSR
JSR
CLR
MOV
DEC
BNE
BIC
CMP
BNE
BIS
CLR
JMP
DEC

CHANGE
PC,ERASE
LISN
#-1,FREERN
CNCSTPY
PC _NCSTRT
RO
TIME ,R1
RO
1%
#8175, KBUFF
#123 KBUFF
P 3
#B1T78,aNCSFR
aNCCSR
LISEN
R1

;GO DISPLAY DATA

JMP
JSR
JMP
TST
BNE
JSR

CHANGE
PC,ERASE
START1
NOVSV
1%
PC.ERASE

:NOW GO DISPLAY DATA JUST COLLECTED
;GO ERASE SELECTED DISPLAY
JINITIALIZE AND START FRESH
;CHECK IF DISPLAY
:BR IF NO VSVO1
;CLEAR THE SCREEN

MOV
JSR

#2000,aVvTVPOS
RS5.VTWRIT

BNE

NOP
NOP

005202

104401

000002
1044017
104411

ROUTB:

000400

012777
004537

000137

001310

001262

003026
0046712
001554
001320

010422
004537
011120
000402

ROUTA:

000040

176776
001650

JSR

001310

001172

000123

B00BOO: MOV
JSR
B8R

003026

000137
004737
000137
005737
001016
004737
000240
000240

001264

HELPO
JSR
HELP1
BR

TYPE,

JMP

JMP
MOV
MOV
RTI
TYPE
RDOCT

;GO ERASE SCOPE
;GO WAIT ON NEXT COMMAND
;SELECT FREE RUN MODE
;GO STOP NCV11 & CLR CORE MATRIX AREA
;G0 START NCV11
JSET UP TIMER
JSET UP GROSS TIMER VALUE
; COUNT
JWAIT FOR ZERO
;LOOK FOR POSSIBLE STOP KEY - RID LOWER CASE
;STOP BEEN STRUCK?
:BR IF NOT
;STOP NCVT
;ZERO NCV CSR
;GO AWAIT NEXT COMMAND
;DO LOOP AGAIN?
:BR IF SO

;POSITION THE READ-QUT
;TELL THE OPERATOR VIA VvSVO1

RS,VTWRIT
2%

HELP1

;NO vSVO1 - TELL OPERATOR SHORT LIST

TJOY
#340,-(SP)
#1%,-(SP)

;CALB. THE JOYSTICK GO 1O IT
;PUSH HIGH PSW ON STACK
:PUSH RETURN ADDRESS

LISN

.MSG2

;FAKE RTI TO RAISE PSW
JASK FOR OCTAL DATA
;GO GET IT

CZNCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P1T

458
459
460
461

462

463

464

465
466
467
468
469
470
47
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
4«87
488
489
490
49
492
493
494
495
496
497
498
499

500
501
502
503
504
505
506
507
508
509
510
511

002320
002324
002326
002332
002334
002340
002346
002352
002354
002360
002366
002372
002376

002402
002406
002412
002416
002420
0024264
002426
002430
002432
002436
002442
002450
002452
002456
002460

002462

002464
002466
002470
002472
002474

COMMAND DECODER

012637
005046
012746
000002
000137
012737
004737
000240
013700
042760
000137
004737
004737
000137
012746
012746
000002
104401

104411

012600
001002
000137
013746
012737
005710
012701
010021
005720
010021
005720
010021
005720
010021
012637
005046
012746
000002
022626
012637
005046
012746
000002
005037
042777
000137
052777
005077
000137
004737
004737
000137
012746
012746
000002

8-AUG-78

15:16

PAGE

(SP)+,THLO
-(SP)

JSAVE IT
;PUSH LOW PSW

CHANGE

;GO DISPLAY

001266

MoV

002334

MOV
RTI

#2%,-(SP)

MOV

#-1 ,MSELCT
PC,SELCTA

003026

177777
004440

001222
000400
001674
004660
004576
001674
000340
002420

CLR

001314

177760
ROUTN:

ROUTO:

010165

002026
000004
002510

2$:

ROUTM:

1%:

000004

2$:

000004

001322
3%:

NOP
MOV
BIC
JMP
JSR
JSR
JMP
MOV
MOV
RTI
TYPE,
RDOCT
MOV
BNE
JMP
MoV
MOV

RTI

CMP
MOV

CLR

002026
001276
002000
001674
000400
176416
001674
004636
005036
003026
000340
002610

JSR

TST
MOV
MOV
1ST
MOV
TST
MoV
TST
MOV
MOV
CLR
MOV

001144

000004

JMP

176434

176432

ROUTR:

ROUTS:

ROUTT:

ROUTU:

MOV
RTI

CLR
BIC
JMP
BIS
CLR
JMP
JSR
JSR
JMP
MOV
MoV
RTI

SEQ 0019

VIVCSR,RO
#B178,~20(RO)
LISN
PC,NCSTP1
PC NCSTRT
LISN
#340,-(SP)
#1%,-(SP)

MSG4

;SELECT 2ND BIT MAP
:RELOAD ADDRESSES

;GET 2ND BIT MAP ADRS
;TURN OFF 1ST BIT MAP
;GO AWAIT NEXT COMMAND
;GO STOP NCV11 & CLR CORE MATRIX
JSTART THE NCV11
;COLLECT DATA & AWAIT NEXT KEYBRD COMMAND
JRAISE

;ASK OPR FOR ADDRESS

;GET HIS INPUT
:GET ADDRESS
;BR _IF NOT "'CR'' OR O

a#ERRVE(,~-(SP)

;SAVE LOC &

(SP)+,R0O

BOOROO

#3% ,a#ERRVEC
(RO)
#$TKS .R1
RO, (R1)+

+
(RO)
RO,(R1)+
(RO)+
RO, (R1)+
(RO)+
RO,(R1)+
(SP) + ,a#ERRVEC
-(SP)

;FAT FINGER OPERATOR

;SAVE IF WRONG ADDRESS BY OPR.
;REF. THE NEW CONSOLE ADDR.
;GET OLD ADDR. POINTER
;LOAD NEW ADDRESS
;BUMP ADDRESS
;LOAD NEW ADDRESS
;BUMP ADDRESS

;LOAD NEW ADDRESS
;BUMP ADDRESS
;LOAD NEW ADDRESS
JRESTORE LOC 4.

#START ,-(SP)

;LOWER PS AND START PROG AGAIN

(SP)+,(SP)+

s CLEAN STACK

-(SP)

- (SP)
#B00B00,

JRESTORE LOC. 4
;LOWER PS
JRETURN

GAIN

;WANT REGULAR GAIN

LISN

;LOOK FOR NEXT COMMAND
;STOP NCV11
;ZERO NCV (SR
;LOOK FOR NEXT COMMAND
;GO STOP THE NCV11 IF RUNNING
;GO SET UP TEST CORE IMAGE
;GO DISPLAY IT

(SP) + ,@#ERRVEC

#BIT10,aNCCSR

#8178 ,aNCSFR

aNCCSR
LISN
PC .NCSTP
PC,LDIMGE

CHANGE
#340,-(SP)
#18,-(SP)

s INSURE REGULAR GAIN

CZNCDA NCV11
CZNCDA L1

512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528

EXERCISER MACY11 27(654)

00c610
202614

COMMAND DECODER

104401
10441

002616

012637

001270

002624
002630
002632
002636
002642
002646
002650
002654
002662
002666

012746
000002
000137
005037
004737
000240
(013700
042760
000137
012746

002632

002622

002672
002676
002700
002704
002706
002712
002714
002716
002720
002726
002732
002736
002742
002744
002750
002752
002760
002766
002770
002774
002776
003002
003004
003006
003014
003022

005046

012746
000002
104401
104411
012637
000240
000240
000240
042737
005237
005037
005337
001403
005237
000772
113737
053777
005046
012746
000002
000137
000000
000000
012737
053777
000137

2s:

ROUTW:

ROUTX:

010361

1%:

003002

003002
2%:

001275
176206

3%:

002776
003026

002000
001276
001674

BIC
JMP
MOV
MOV
RT]
TYPE,
RDOCT
MOV

003004

003004
001274

MOV
RTI
JMP
CLR
JSR
NOP

MOV

000020

002700

177774
003002
003004
003002

TYPE
RDOCT
MOV

CLR

003026
001314
004440
001222
000400
001674
000340

8-AUG-78
1%:

010040

15:16

001276
176152

A ¥
10%:
11%:

ROUTZ:

NOP
NOP
NOP
BIC
INC
CLR
DEC
BEQ
INC
BR
MOovB
BIS
CLR

PAGE

.MSG2
(SP)+,THH]
-(SP)
#2%,-(SP)

SEQ 0020

JASK FOR OCTAL DATA
;GO GET IT
JSAVE IT

PC,SELCTA

;GO DISPLAY
JSELECT 1ST BIT MAP
s CHANGE ADDRESSES

VIVCSR,RO
#B178,20(RO)

;TURN OFF 2ND BIT MAP

CHANGE

MSELCT

LISN
#340,-(SP)
#1%,-(SP)

MSG7
(SP)+,10%

8177774 ,10%
10%
1%

108

;GET 1ST BIT MAP ADRS

;GO AWAIT NEXT COMMAND

JTELL OPERATOR TO SELECT CAMERA

JWAIT FOR HIS INPUT

JGET CHAR.

JMASK OFF BITS
;CLEAR ACTUAL VALUE

11%

JUPDATE ACUTAL

118, CAMERA+1
CAMERA ,aNCCSR
=(SP)

;JUPDATE CAMERA SAVE LOC.
JAND SELECT THAT CAMERA

JMP

CHANGE

sRETURN

MoV
BIS
JMP

#81T10,GAIN
GAIN,aNCCSR
LISN

JENABLE GAIN
JSET IT AT NCV (SR

MOV
RTI

0
0

#4%,~(SP)

;GO AWAIT NEXT COMMAND

CZNCDA §§V11
CINCDA P t

552
553
554
555
556
557
558
559

560
561
562
563
564
565
566
567
568
569
570
571
572

573

574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596

597
598

EXERCISER MACY11 27(654)
PROGRAM ROUTINES

8-AUG-78

15:16

.SBTTL

PAGE 13

SEQ 0021

PROGRAM ROUTINES

;GO CLEAR SCREEN OF SELECTED DISPLAY
003026

004737

CHANGE: JSR

004712

PC,ERASE

;GO ERASE SCOPE

;STOP NCV11 AND GET SET TO DISPLAY
003032

004737

JSR

004636

PC.NCSTP

;GO STOP NCVN

;NOW DRAW A BOX AROUND POTENTIAL MATRIX DISPLAY

;AREA ON THE SELECTED DISPLAY

BOX:

001750
073567
004744

003036
003042
003046
003052
003054
003060
003062
003066
003070
003074
003100
003102
003106
003110
003114
003116
003122
003726
003132
003136
003140
003144
003150
003154
003160
003162
003170
003176
003204

012700
012701
004737
005200
022700
001403
004737
000771

013777
012737
012737
005037

001250
002010
000003
001260

176032
001254

003210
003216

013737
017700
013701
020021
103005
024137

001300
176066
001310

001302

012700
004737
005200
022700
001403
004737
000771
012700
062700

004756

004737

004744

101001

011100
005721
005337
001366

3%:

006030

012701
022700

012701
062700
004737

2%:

006010
004744

001730
000017
070000
006047

001411

1%:

001770

4%:
5%:

001302

#1750,R0

JSR
INC

PC,DISPY
RO

MOV

CMP

BEQ
JSR
BR
MOV
JSR
INC
CMP
BEQ
JSR
BR
MOV
ADD
MOV
cMP
8EQ
JSR

000007
000021
004744

001270

MOV

MO.
ADD

JSR

001256

6%:

BR
MOV
MoV
MOV
CLR

#73567 .R1

#1770,R0

2%
PC,DCONT
1%
#6010,R0
PC.DISPY
RO
#6030,R0
A 3
PC,.DCONT
3
#1730 ,R0
#17 .R0
#70000,
K1
#6047 R0
6%
PC.DISPY

#7 ,R1
#21,R0

PC,DISPY

5%
VTVSAV,aVTVCSR
#2010 ,MAPADR
#3,PIXCNT
PIXASM

;SET UP BIT MAP ADRS - TOP LINE
;JSET UP PIXEL DATA IN R1 - INT 7

;GO LOAD BIT MAP
;ADVANCE ADRS
;TOP LINE DONE?
:BR

;LOAD NEXT PIXEL WD
NEXT MAP LOAD

JSET UP BIT MAP ADRS - BOT LINE
;GO LOAD BIT Map
;ADVANCE ADRS

;BOT LINE DONE?
;BR IfF SO
;LOAD NEXT PIXEL WD
JNEXT MAP LOAD
;SET UP BIT MAP ADRS SIDE LINES
;JOFFSET NEXT ROW

;SET UP PIXEL 3 DATA IN R1 - INT 7
;AT BOTTOM OF

SCREEN?

;GO START vSVO1 DISPLAY
.GO LOAD BIT mAP

JSET UP PIXEL O DATA IN R1 = INT 7
JOFFSET TO RIGHT LINE

;GO LOAD BIT MAP
;DO NEXT ROW
;START DISPLAY
JOFFSET BIT MAP ADRS

;SET UP PIXEL BYTE COUNT
;CLR PIXEL ASSEMBLY WORD

;NOW LCTS FIND THE LARGEST CELL
TOTSIZ,CHARCTY
LARGES: MOV
JNUMBER OF ELEMENTS TO CONSIDER
MOV
aTABLEX,RO
sTHIS IS FIRST GUESS
TABLEX,R1
MOV
;R1 POINTS TO TABLE
1%:
CMP
RO, (R1)+
;COMPARE GUESS AGAINST NEW
BHIS
3s
JGUESS STILL GOOD
=-(R1) ,THH]
cMP
;GUESS SMALLER BUT CHECK NEW
BHI
2%
JHI AGAINST UPPER THESHOLD
MoV
(R1) ,RO
;WITHIN BOUNDS. MAKE THIS NEW HI
(R1)+
ST
2%:
: INCREASE REGISTER BY 2
CHARCT
DEC
3%:
;COUNT THIS LAST COMPARISON
BNE
1%

CINCDA

NCV11 EXERCISER MACY11 27(654)

CZNCDA.P11

PROGRAM ROUTINES

605

606
607
608
609
g}?

003252
003256
003260
003264

163700
101002
000137
010037

003612
001304

013737
062737
012737
017702
062737
005337
001006
012737
162737
020237

001310
017600
000100
175734
000002
001306

001252
001252
001306

000100
000400
001270

001306
001252

626

003354

163702

001266

003352

101003

003360
003362

101002
005004

630
631

003366
003372

013701
012703

633
634

003400
003402

006304
020201

636

003406

005701

638
639

003412
003414

005204
160102

641
642
€’3
644
645
646

003420
003422
003424
003426
003430
003432

006001
005303
001365
160102
101401
005204

632

635

637
640

SEQ 0022

;JNOW PICK QUT EACH VALUE IN CORE MATRIX AND SCALE TO THE
;PROPER INTENSITY LEVEL.
THEN DISPLAY IT ON THE SELECTED DISPLAY
003270
003276
003304
003312
003316
003324
003330
003332
003340
003346

629

;NOW ACCCUNT FOR LOWER THRESHOLD - BOW OUT IF TOO SMALL
su8
THLO,RO
sSUBTRACT LOWER THRESHOLD
BHI
4%
;BR IF CELL VALUE GREATER THAN LO THRESHOLD
JMP
PATWRT
;DON'T DISPLAY-ALL VALUES BELOW LO THRESHOLD
;SAVE LARGEST CELL OF MATRIX
RO, CPERL
MOV
68

001266

615
616
617
618
619
620
621
622
623
624
627
628

PAGE 14

;THE LARGEST CELL WITHIN THE UPPER THRESHOLD IS NOW IN RO

612
g}z

625

15:16

8-AUG-78

003364

003376

003404

003410
003416

000423
005004

001252

DMATRX: MOV
ADD
MoV
DISLOP: MOV
ADD
DEC
BNE
MoV
suB
18:
CMP
BHI

SuB

2%:
001304
000005

2%:

BEQ
4%:

;SUB LOW THRESHOLD

SCLCEL
R&

CLR

ASL
CMP
TST

38:

THLO,R?2

MAPLD

BLO

001401

;BEGIN AT TOP LEFT ROW
;OFFSET TO BOTTOM OF CORE MATRIX
:THERE ARE 64 CELLS PER ROW
JGET A CELL VALUE FROM MATRIX
;BUMP MATRIX ADRS
sCOUNT CELL THIS ROW
;BR IF ROW NOT FINISHED
JRESET NEXT ROW COUNT
JGET UP FOR NEXT ROW IN MATRIX
;CELL WITHIN HI THRESHOLD?

SCLCEL: MOV
MoV

103404

000241

BHI
CLR

TABLEX,MRXADR
#8064. ,MRXADR
#64 . ,ROWCNT
@MRXADR,R2
#2 ,MRXADR
ROWCNT
1%
#64 . ,ROWCNT
#256. ,MRXADR
R2, THHI

;BR IF CELL ABOVE LOW THRESHOLD
JSET CELL TO LOWEST INTENSITY

CPERL ,R1
#5.R3

;NOW ESTABLISH THE INTENSITY LEVEL
;SCALE TO 16 LEVELS

R&4
RZ.R1

;MUL BY 2
;COMPARE THIS CELL TO LARGEST

;CHECK CASE WHERE O DEVISOR

INC
SuB

R4
R1,R2

ROR
DEC
BNE
SuB
BLOS
INC

R1
R3
2%
R1,R2
MAPLD
R&

CLC

;BR IF NOT

;BR IF SMALLER
;BR TF SO

;JACCCUNT FOR GOOD SUBTRACTION
;NO DO THE SUBTRACTION
;MAKE DEVISOR SMALLER
;COUNT POSITION
;AGAIN IF NOT SCALLED TO 16 LEVELS YET
JACCOUNT FOR REMAINDER
;BR IF TOO SMALL
JROUND UP

CZNCDA

NCV11 EXERCISER MACYI1 27(654)

CINCDA.P11T

PROGRAM ROUTINES

8-AUG-78

15:16

PAGE 15

SEQ 0023

;THIS CODE DISPLAYS EACH SCALED CELL ON THE vSVO1
649
650
651

003434
003440
003442

013700
005704
001401
005304
000304
006304
006304
006304
006304
000241
006037
006037
006037
006037
060437

001254

MAPLD:

1%:

001260
001260
001260
001260
001260
001256

001260
004744
001256
001260
000003
001254
001254
005770

2%:
001256

000020
003312

BEQ
DEC
SWAB
ASL
ASL
ASL
ASL

CLC
ROR
ROR
ROR
ROR
ADD
TST
BNE
MoV
JSR
DEC
BPL
CLR

MOV

INC

MOV

003612
177740
000030

062737
000137

MoV
7ST

3s:

001254

4%:

CMP
BNE
JMP
BIC
CMP
BNE
ADD
JMP

MAPADR,
RO
R4
1%
R4
R&
R4
R&
R4
R4

PIXASM
PIXASM
PIXASM
PIXASM

R4 ,PIXASM
PIXCNT

PIXASM
R1
PC.DISPY
PIXCNT
DISLOP
PIXASM
#3,PIXCNT
MAPADR

MAPADR ,RO
#5770,RO
3%
PATWRT

#177740,R0
#30,R0
4%
#20 ,MAPADR
DISLOP

(ONE OF 16 LEVELS)

;SET UP BIT MAP ADRS

;LOOK FOR NO INTENSITY
:BR IF NO INTENSITY

JOFFSET T0 0-17
;PREPARE

FOR PIXEL LOC

;JMOVE TO TOP & BITS

'NOW ASSEMBLE THIS PIXEL INTO PIXEL WORD
"NOW MAKE ROOM IN PIXEL WORD
.

;ADD THIS PIXEL TO OTHERS

JALL 4 PIXELS DONE FOR THIS WORD?
;BR IF NOT
;LD PIXEL WORD INTO R1
;LOAD BIT MAP
s COUNT PIXEL
;BR IF 4 PIXELS NOT ASSEMBLED YET
;CLR PIXEL ASSEMBLY WORD
JRESET PIXEL

COUNT

;ADVANCE MAP ADRS

;LOAD INTO RO
JHAVE ALL 64 ROWS BEEN DONE?
;BR IF NOT
;NOW GO DISPLAY PARAMETERS

;SAVE ROW POSITION BITS
;NOW LOOK FOR END OF ROW
;BR IF NOT AT END

;ADVANCE MAP ADRS TO NEXT ROW
;GO GET NEXT MATRIX DATUM

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11

PROGRAM ROUTINES

8-AUG-78

15:16

PAGE 16

SEQ 0024

;CODE TO WRITE PARAMETER DATA AT BOTTOM OF SCREEN
003612

012777
004537
007550
004537

01200C
005202

175400

PATWRT:

005226

113737

001242
001242
007706

032777

000040

175304

000125
000120

007722
007723

000104
000116

007722
007723

000100

175242

000125
000120

007737
007740

000104
000116
005202

007737

032777
001007
112737

112737
000406
112737
112737

004537
007673
004537
007621
017737
017737
004537
001244
004537
010416
004537
001242
004537
007634

007740

005202
175164
175154

005226
005202

001242
001244

#12000,aVTVPOS
R5,VTWRIT

wD001
JSR

RS,AWRIT

JSR

R5,VTWRIT

JSR

RS,AWRIT

wD00?2

001275
000060
001242

001007
112737
112737
000406
112737
112737

JSR

THLO

005202
001270
113737
062737

MOV

THHI

mMove
ADD

CAMERA+1 ,DUMMY1

#60,DUMMY1

1, CAMOUT
DUMMY
;TEST THE 'PB'’ FLAG
:glrs.ancsrn
BIT
MovB

1%:

BNE
move
MovB
BR
movB
Move

:VSV01 - SET CHAR POS,LINE 20, LEFT MARGIN

;"'CR,LOWER THRESHOLD''
;DISPAY OCTAL

;"'C(R, UPPER THRESHOLD''
;DISPAY OCTAL

JGET CAMERA VALUE
JMAKE ASCII

;SAVE FOR READOUT

;TEST FOR 'PB'’ FLAG

#'U,PBUP

;BR IF SET
;NO- TELL OPER.

2%
#'D,PBUP

;TELL OPER.

#'P,PBUP+1

#'N,PBUP+1

IT WAS UP

IT WAS DN

2;EST FOR JOY=-STICK BUTTON FLAG
;TEST FOR "JOY-BUTTON'' FLAG
#BIT6,aNCSFR
BIT
3s
BNE
JBR IF SET
MOVB
#'U,JBUP
JTELL OPER. IT WAS UP
MOvVB

3%:
4%:

BR
mMovs
movs
JSR
wD007
JSR

wD003

MOV
MOV

JSR

DUMMY?2

JSR
DASH
JSR
DUMMY
JSR
wD004

#'P,JBUP+1
43
#'D,JBUP
#'N,JBUP+1
RS,VTWRIT

RS ,VTWRIT
aNCBAR, DUMMY 1
aNCWCR,DUMMY?

;TELL OPER.

IT WAS DN

;DISPLAY CAMERA VALUE AND BUTTOMN STATUS
="'
;"7 COUNT

RS ,AWRIT

;DISPALY OCTAL

R5.VTWRIT

; INSERT '*='*

RS,AWRIT

;DISPLAY OCTAL

R5,VTWRIT

J"MATRIX COUNT="'

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11

739

740
741
742
743
744
745
746
7

004056
004064
004066
004070
004074
004076

REFVENRF
SRRg

738

013737
005002
005003
013701
062103
005502
005337
001373
010337
010237
004537

001244
004537
010416
004537
001242
004537
011500

001300

001234

001310

761

762

MoV

CLR
CLR

:
MXSML

001234
001242
001244
005226

PAGE 17

SEQ 0025

005226

"+0000

1%:

005202
2%:

001312

002116
001272
001674

; INSERT DASH

JSR
BCRLF

R5,VTWRIT

FOR GAIN

BEQ
JSR

005202
001310

RS ,VTWRIT

TST

001276

174754

3%:

TEMPO

MX SML

JSR
DASH
JSR

DUMMY

005202

;JNOW ADD UP ALL VALUES IN MATRIX

;JTELL OPER.

JSR

DUMMY?2

005202

10TSIZ,TEMPO
R
R3
TABLEX ,R1
ég1)+,R3

R3,DUMMY1
RZ,DUMMY?
RS ,AWRIT

MOV
MOV

sTEST

005737
001403
004537
007653
023727
001C03
004537
007662
005737
001402
000137
013777
000137

MOV
ADD
ADC

DEC
BNE

748

749
750
751
752
753
754
755
756
757
758
759
760

15:16

;DETERMINE THE # OF COUNTS IN THE MATRIX

RRERRRRRRRE 2

727
728
729
730
731
732
733
734
735
736
737

PROGRAM ROUTINES

8-AUG-78

wD005

(MP
BNE
JSR
wD006
TST
BEQ
JMP
MOV
JMP

OCTAL

RS,AWRIT

2 AND B GAMMA STATES
GAIN
1%
RS,VIWRIT

TABLEX ,#MATRIX+20000 ;1SOTOPE B?
2%
;NC
R5,VIWR]T
:YES
;' B-GAMMA''
FREERN

33
ROUTF

COMSAV,aNCCSR
LISN

;IN FREE RUN MODE?

;BR IF NOT
:YES., GO GET NEW DATA

;RESUME THE NCV11
;DONE WITH MESSAGES

CINCDA NCV11 EXERCISER MACY11 27(654)
PROGRAM ROUTINES
CINCDA.PI

15:16

8-AUG-78

PAGE 18

SEQ 0026

;THIS CODE DRAWS CROSS HAIRS(VSVO1) WITH THE X & Y JOYSTICK DATA

763

;THE BUG WILL FOLLOW THE JOYSTICK WHEN THE INTERRUPT BAR IS NOT DEPRESSED JALL PARTS WITHIN THE DISPLAYED BOX ON THE SELECTED DISPLAY SHOULD

764
765
766
767
768

;BE ACCESSIBLE IN A UNIFORM MANNER

004737

769

770
771
772
773
774
775
776
777
778
779

005000
012701
004737
005200
022700
001403
004737
000771
012700
004737
005200
022700
001403
004737
000771
012700
012701
004737

780
781

782
783
784

012701
062700

004737
005200
022700
001362
013777

A CNTRL
TJOY:

004712

'C' WILL GET USER BACK TO KEYBOARD MONITOR

JSR

PC.ERASE

;START FRESH

;DRAW A BOX UP ONOVSV01 SCREEN FOR NCV11 JOYSTICK CALIBRATION
073567
004744

1%:

000040

RO
#40,R0
2%

;ADVANCE BIT MAP ADRS
;TOP LINE DONE?
;BR [F SO

6%:

5%:

MOV

#7.R1

JSR

MOV

174646

PC.DCONT
1%
#7740,R0
PC,DISPY

#10000,R0O

ADD
JSR
INC
Mp
BNE

007740

PC,DISPY

cMP

MoV

004744

001250

INC
(MP
BEQ

JSR

BEQ
JSR
BR
MOV

004756
000040
000007
004 744
070000
000037

JSET UP BIT MAP ADRS - TOP LINE
;SET UP PIXEL DATA IN R1 = INT 7

3%:

2%:

010000

R
#73567 ,R1

JSR
B8R
MOV
JSR
INC

004756
007740
004744

CLR
MOV

43
PC,DCONT
33
#40,R0

;GO LOAD BIT MAP

;JLOAD NEXT PIXEL
NEXT MAP LOAD
;SET UP BIT MAP ADRS - BOT LINE
.GO LOAD BIT mapP
;ADVANCE ADRS

;BOT LINE DONE?

;BR IF SO
JLOAD NEXT PIXEL WORD
NEXT MAP LCAD
JSET UP BIT MAP ADRS SIDE LINES

;SET UP PIXEL O DATA IN R1 - INT 7

PC,DISPY

2GO LOAD BIT MAP

#37 RO
PC,DISPY
RO
#7740,R0
5%

JOFFSET TO RIGHT SIDE LINE
;GO LOAD BIT MAP
;G0 TO NEXT ROW ON LEFT
;70 BOTTOM YET?
;BR [F NOT

#70000,R1

VIVSAV.aVIVCSR

JSFT UP PIXEL 3 DATA IN R1 - INT 7

-ENABLE BIT MAP

:NOW COLLECT ANALOG DATA FROM NCV11 JOYSTICK
004354
004362
004370
004374
004376
004404
004406
004410
004412
004416
004424
004426
004430
004432
004436

012777
052777

004000
000001
174610

174622
174614

017737
000240
000240
000240
004737
032777
001356
000240
000240
004737
000751

174606

001234

105777
100375

005356
000040

005006

DISBG:
1%:
2%:

MOV
BIS
TSTB
BPL
Mgg

#BIT11,aNCSFR
#31T0,aNCSFR
aNCSFR
2%
aNCJOY, TEMPO

:CLEAR THE DEVICE
;CONVERT JOYSTICK
;DONE?
;BR IF NOT
;STORE CONVERSION VALUES

PC.XYAVE
HBI1T5,aNCSFR

;GO AVG LAST 32. X-Y JOYSTICK VALUES
;LOOK FOR JOY BOTTON DOWN

PC.DISPY?
1%

;GO DISPLAY CROSS HAIRS - VSVO1
;DO ANOTHER CONVERSION

NOP
NOP

174560

JSR
BIT
BNE

NOP
NOP

JSR

;DON'T MOVE THE BUG

CZINCDA NCV11 EXERCISER MACY11 27(654)
PROGRAM SUBROUT INES
CINCDA.P11
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838

8-AUG-78
IR

15:16
AR

PAGE 19

RN E R

SEQ 0027
AR

R AN

A RN

A AR

RRAR

;ROUTINE SELECTS VSVO1 DISPLAY - SETS UP BUS ADRS AND INTENSITY LEVEL
;AND INTENSITY LOOK~UP TABLE - THE CARRY BIT IS SET ON EXIT IF THE

;VSVO1 IS NOT SEEN AT THE ASSIGNED BUS ADDRESS

';tttttttttfittt'fiitttttt'ti'tt*ttttiittt*ttttttttttt*tttttttit*fit

004440

004444

004450
004452
004456
004462

004470
004474
004476
004502
004510
004514
004516
004524
004530
004534
004540
004544
004550
004554
004556
004560
004566
004570
004572
004574

013700
012701
010021
062700
022701
001372
013700
005737
001402
062700
010021
062700
022701
001372
012737
005777
005777
013700
010077
062700
032700
001771
000241
012737
000207
022626
000261
000771

SELCTA: MOV

001166
001214

1%:

000002
001222

000002
001234
004570
174464
1746466
001246
176466
000401
010000

000004

ADD

000006

000004

ADD
CMP
BNE
MOV
TST
TST
MOV

3%:

RO, (R1)+
#2.,R0

AVTVINT+2,R1
2%

#5% ,a#ERRVEC
aVTVCRG
aVTVCSR

INTLUT RO

RO,aVTVINT

BIT
BEQ
CLC

MOV
RTS

5%:

#2,RO
#VTVCSR,R1
1%

MOV

ADD

A ¥

;SET UP REG ADRS PTRS

VTMADR,RO
MSELCT
2%
#20,R0

MOV

2%:

RO, (R1)+

MOV
TST

BEQ

000020

;GET VSV0O1 BASE ADRS

#VTVCRG,R1

cMP
BNE

001170
001314

VIVADR,RO

MOV
MOV
ADD

CMP
SEC
BR

#4601 RO
#10000,R0O

;GET

PTR ADRS

;BUMP REG ADRS
;CHAR GEN REGS ALL
;BR IF NOT

SET UP?

;GET BASE ADRS OF BIT MAP
JUSING SECOND MAP?
;BR IF NOT
JPOINT TO 2ND BIT MAP ADRS'S

:CONTINUE TO BIT MAP ADRS'S
;BUMP REG ADRS
JALL SET UP?
;BR IF NOT

:SET UP BUS TIMEOUT RETURN ADRS IF NO VSVO1
;1S CHARATTER GENERATOR ThcRE?
;1S BIT MAP THERE?

:SET UP ADRS & DATA OF INTENSITY LOOK~-UP TABLE
JSET UP TABLE

;ADVANCE ADRS & INTENSITY
. TABLE LOADED?
;BR IF NOT

:ZERO CARRY SAYS VSVO1 THERE

#ERRVEC*Z.&#ERRVEE I
P

(SP)+,(SP)+

JRESTORE ER TRAP LOC TO PT

TO 6

JEX

JFIX STACK SINCE NO RTI

:CARRY ON EXIT SAYS NO VSVO1
;GO EXIT

;:tittt**tit'*'t*tttttt't*fiitittt*t**tttt*tfittttttttti'ttittttfii*
X

004576
004604
004612
004620
004626
004634

012777
012777
053777
053777
052777
000207

004030
020000
001276
001274
000001

174370
174364
174354
174346
174340

JROUTINE STARTS NCV11 AT SELECTED GAIN AND CAMERA

2222223223322

NCSTRT:

2F3E22

2222233282828

MOV
MOV

#4030,aNCCSR
#MATRIX ,aNCOFF

BIS
RTS

BIS
BIS

GAIN,aNCCSR
CAMERA,aNCCSR
#B1T0,aNCCSR

023228

2d0R3

tRRRtRtRtRld

;SET UP 7B ENABLE AND 64*64 WORD MATRIX
JENSURE OFFSET REG. IS SET
;SET UP GAIN
;SET UP CAMERA
;SET GO BIT
sRETURN

::ttttttttttttt!ttt'ttt"tttt.it'Qttit.tfitfit*'ttttttttttttttiittt

JROUTINE STOPS NCV11 AND SAVES NCV11 STATUS

:;tttttttttttttttttttttt"tfittttt*ttitlQttti*tii*tt!t*ttttttttttt

004636
004644
004652
004656

017737
052777
005077
000207

174332
000400
174316

001272
174332

NCSTP:

MOV
BIS
CLR
RTS

aNCCSR, COMSAV

#B1T8,aNCSFR
aNCCSR

;SAVE THE INTERFACE ACTION
:DISABLE NPR'S
;ZERO ALL STATUS
JRETURN

CINCDA NCV11
CINCDA.PI

8-AUG-78

15:16

PAGE 20

SEQ 0028

::ttttttttttttttttiiitt'tt'tttttttti*tt*!ittfififitttttttt*i**tttt*t

;ROUTINE STOPS NCV11, SAVES STATUS AND CLEARS MATRIX CORE

;:tttt*'ititttt'it*fitfiiiiti'tttfiQitt*t.t*fit"t*t**'tttiitfi'tfittt'

004660

004670
004674
004700
004702
004706
004710

004737
005077
005077
012700
005020
020027
001374
000207

NCSTP1: JSR
CLR
CLR

004536

174310
174306
020000

1%:

060000

PC,NCSTP
aNCWCR
aNCBAR

;GO STOP NCV11 AND SAVE STATUS
:CLEAR HIGH WORD
:CLEAR LOW WORD

;BR IF MORE

MOV
CLR
CMP

#MATRIX ,RO
;GE1 SET TO ZERO CORE MATRIX AREA
(RO) +
;ZERO LOC
RO,#MATRIX+40000
;ALL DONE?

RTS

BNE

JRETURN

:;tttttt*tltfittttttttt*i*'tt*ttfitttt**ttt*it*t*ttt*fi*tttttttttttt

105777
100375

042777
012777
000207

001000
174276

174302

001000
002035

174266
174252

052777

004712
004720
004724
004726
004734
004742

T .

JROUTINE WILL ERASE DISPLAY

2 2222222332232 222322332 2222223822322 328

ASE:

865
866
867
868
869
870
81
872
873
874
875
876
877
878
879

EXERCISER MACY11 27(654)
PROGRAM SUBROUTINES

322822222022

2R R

BIS

#1000,aVTVCSR

:ERASE DISPLAY (CLR BIT MAP)

BPL
BIC

1%
#1000,aVTVCSR

JWAIT FOR IT
;TURN OFF ERASE DISPLAY

TSTB

:?g

aVTVCSR

ggO3S.GVTVCRG

& 2]

;LOOK FOR READY

:EL?TCHAR SCREEN & DISABLE CURSOR
JEX

';tttttt*ttttt*fitttt*ttt'tt"tfi'fififitfitttfifitttt*ttttt*fit*tfittitttt

’

:ROUTINE WILL LOAD BIT MAP (VSVO1)

"RO CONTAINS BIT MAP ADRS AND R1 THE BIT MAP DATA

':ttt!tttttttttttttttfi'ttttt't*tttfi*fi*ttfii**tttittifitttttttt*tttt

004744
004752

004756
004764
004770
004772
004776
005004

042777
010077
042777
105777
100375
010177
052777
000207

000400
174246
000400

174250

DISPY:

174236

DCONT:
18:

174230
000400

174216

174232

BIC

#400,aVTVCSR

RTS

MOV
BIC
TSTB
BPL
MOV
BIS

RO,aVTVMAP
#400,aVTVCSR
aVvVTVCSR
1%
R1,aVTVPX
#400,aVTVCSR

;STOP DISPLAY

;LOAD BIT MAP ADRS
sAGAIN IF ENTERING HERE
;READY?
SWAIT THEN
;LOAD BIT MAP
sRESUME DISPLAY
JRETURN

';tttttttttt*t*ttttttttt*tt*tttttiti*fitttttt*ttttttttttfittttttttt

;JROUTINE WILL DISPLAY X & Y CROSS HAIRS ON VSVO1

SRR AR AR

005006
005012
005014
005020
005026
005034

005777
100375
105137

013777
052777
000207

DISPY2:

174202

001235
001234
016000

174170

174160

TST

AR AR AR

AR RN R AR AR

aVTVCRG

AR RN AR

AR RN R AR RN

AR ANRAR RN

;READY?

BPL

DISPY?2

JWAIT IF NOT

MOV

TEMPQ,aVTVCHP

;LOAD X & Y CROSS HAIRS

comB

BIS

RTS

TEMPO+1

#16000,aVTVCRG
PC

;X NEEDS TO BE INVERTED
ENABLE THE CROSS HAIRS
JRETURN

AR AW

AREA

CINCDA NCV11 EXERCISER MACY11 27(654)
PROGRAM SUBROUT INES
CZNCDA.P1
910
911
912
913
914
915
916
917
918
N9
920
9
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938

8-AUG-78

15:16

PAGE 21

SEQ 0029

tittittttt*tttt*ttti*t*i't*tttttfittt*fitttt*tiittttttttt*ttttttt

;JROUTINE WIIL MILL CORE WITH AN IMAGE THAT WHEN

;DISPLAYED WILL CONTAIN ALL THE INTENSITY LEVELS -

:ROWS AT THE BOTTOM OF THE SCREEN WILL APPEAR BRIGHTEST R

005036
005042
005046
005052
005056
005060
005062
005066
005070
005074

005100
005102

012700
013701
012702
012703
010321
005302
001375
005300
001405
162703

012702
000766
000207

000100
001310
000100
000100

JNOTE THAT THIS IS ONLY A DISPLAY TEST PATTERN FOR
;POSSIBLE DISPLAY ADJUSTMENTS BY THE USER

2322223223232 22 2323338223322 223 3333228232232 32023302020ttt
R

LDIMGE: MOV

#100,R0

MoV

#100,R2

MOV

MoV

18:

MoV
DEC
BNE
DEC
BEQ
SuB
MoV
BR
RTS

000001
000100

2%:

;COUNT 64 ROWS

TABLEX,R1

;GET SELECTED ISOTOPE

;COUNT 64 DATA POINTS PER ROW

;100 WILL REPRESENT HIGHEST INTENSITY LEVEL (100-0)

#100,R3

R3.(R1)+
R2
1%
RO
2%
#1,R3
#100,R2
1%
PC

:LOAD CORE IMAGE
;DONE ROW?
:BR [F NOT
:DONE ROWS?
:BR IF SO
*LOWER NEXT CELL VALUE
JRESET ROW LENGTH COUNTER
;LOAD THIS ROW IMAGE
JRETURN FOR DISPLAY

::t'tttttttttt*tt**tt***tttt'fifitfifi.*‘titttt*ttttfitt*ittttitttittt

KEYBOARD INTERRUPT SERVICE ROUTINE
R

005104
005112
005120
005126
005134

005136

005142

017737
013777
042737
022737
001002
000137
000002

174036
001262
177600

000003

001262
174032
001262
001262

2222232332223 2332832328232 823 2228222

KBINT

a$TKB,KBUFF
KBUFF.BSTPB

BIC

#177600 ,KBUFF

BNE

(mMpP

001650

MOV
MOV

;?T

#3 KBUFF

012737
004737
012737
105777
100375
013777
000207

000015
005164
000012
173760

001264

173752

001264

JCNTRL *°C*?
;BR IF NOT

AR AR RNRRRRNRARA AR RN NRNNRNNRARRA

'CR' AND 'LF*' OR CHAR IN TTYOUT

TYPCR:

#15,TTYOUT

TYPO:

MOV

JSR
MOV
TSTB
BPL
MOV
RTS

PC,TYPO
#12,TTYOUT
a$TPS
TYPO
TTYOUT ,a$TPB
PC

sRID PARITY

ROUTINE TYPES
R

005144
005152
005156
005164
0051790
005172
005200

;ABORT WHATEVER & LOOK FOR NEXT COMMAND

LISEN

AN RN ANRRA AR

32230220 dRtRtRRRtiRd

;JREAD KEY BOARD
:ECHO CHAR.

JSET UP FOR A *'(R’
JSET UP FOR LF
JWAIT FOR LAST CHARA(TER
JSEND IT OUT

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.PNM

PROGRAM SUBROUTINES

8-AUG-78

15:16

PAGE 22

SEQ 0030

953

R
L L
L
L L
E bt bdodedotodabode

955

954

956

957

958
959
960
961
962
963
ggg

;THIS SUBROUTINE IS CALLED WITH THE ADDRESS OF A MESSAGE TERM WITH A O BYTE
005202

005204
005210
005212
005214
005216
005222
005224

012504

005777
100375
105714
001403
112477
000770
000205

AR A NA R

VIWRIT: MOV

174004

1%:

2%:

(R5)+,R4

TST
BPL
TSTB
BEQ
MovB
BR
RTS

173772

RN AR

aVTV(RG
1%
(R4)
2%
(R4)+,aVIVCRG
1%
RS

RN RN

AR RN AN R R R R

;GET ADDRESS OF MESSAGE IN R4

. TERM ?
;BR IF YES
;LOAD THE CHARACTER

JEXIT

967

;THIS ROUTINE CONVERTS OCTAL INTO ASCII FOR DISPLAY

969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985

986
987
988
989
990

991

992
993
994

005226
005232
005240
005242
005246
005254
005256
005262
005266
005272
005300
005306
005314
005320
005324
005326
005330
005334
005336
005340
005342
005344

005346
005351
005354

012537
017737
010046
012700
012737

000406
006237
006237
006237

013737
042737
062737
113740
005337
001354
012600
004537

005346
000205
000000
000000
000005

060

060
000
005356

005340
000102

005340

005354
000006

005344

005340
005340
005340

005340
177770
000060
005342
005344

AWRIT:

1$:

005342
005342
005342

2%:

005202

060

060
060

10%:
11%:
12%:

NUMBEG:
NUMEND:

MOV
MOV
MOV
MOV
MOV
BR
ASR
ASR
ASR

MOV
BIC
ADD
MOVB
DEC
BNE
MOV
JSR

NUMBEG
RTS
0
0
5

AR RRRRRA RN

JWAIT FOR READY

966
968

R AR RAR AR RN TR AR

RN AN R

R AR AR

RN
L

RRE RN
e

AR AR AR
L

ANR RN

(R5)+,10%
210%,10%
RO,-(SP)
ANUMEND ,RO
#6,12%
P 3
108
108
10$
108,118
#177770,11%
#60,11%
11%,-(R0O)
12%
1%
(SP)+,R0O
R5,VTWRIT

;GET VALUE'S ADDRESS
;GET ACTUAL VALUE
;SAVE RO
;LOAD LAST ADDRESS OF OCTAL TYPEOUT
;LOAD LOOP COUNTER

JEXIT

;JSHIFT DATA

;COPY THE VALUE
JMASK OFF UNWANTED BITS
;MAKE ASCII OCTAL
;SAVE THE (HAR.
JFINISHED ?
;DISPAY THE OCTAL #

.BYTE

60,60,60,60,60,60

.BYTE
.EVEN

NCV11 EXERCISER MACY11 27(654)
PROGRAM SUBROUT INES

995

15:16

PAGE 23

SEQ 0031

2222223232323 2323332828232 28 2322223322323 232322300C0 202008ttt dstldl

THIS ROUTINE AVERAGES THE LAST 32. X-Y JOYSTICK VALUES
223222222222 2232322333 2232332333338 2233

005356
005360
005364
005370
005372
005376
005400
005404
005410
005414
005420
005422
005426
005432
005434
005436
005442
005444

010046
013700
013702
010022
020227
103402
012702
010237
012702
004737

005446
005450
005452
005454
005456
005460

005000
005005

005464

005466
005470
005472
005474
005476
005502

005504
005604

110046

012702
004737
000300

152600
010037
012600

001234
005604

XYAVE

005504
005604
005504
005446

1%:

005505
005446
001234

005604

005604
005504

MOV

#XYBUF ,R2
R2 .XYBUFP
#XYBUF ,R2
PC,10%
RO,-(SP)
#XYBUF +1,R2
PC,10%
RO
(SP)+ RO
RO, TEMPO
(SP)+,R0

MOV
MOV
JSR
MOVB
MOV
JSR
SWAB
BISR

CLR
CLR
B1SB
ADD
INC
CMP
8LO
ASL
ASL
ASL

006300
006300

000300
042700
000207

RO,-(SP)
TEMPO,
RO
XYBUFP,R2
RO, (R2)+

MOV
MOV
RTS

000207

152205
060500
005202
020227
103771
006300

MOV
MOV
MOV
MOV

CMP
BLO

005604

—_——a

996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007

8-AUG-78

=20
L X"

CINCDA

CINCDA.P11

177400

SWAB
BIC
RTS

:
XYBUF
XYBUFE=.
XYBUFP: XYBUF

?i,#XYBUFE

RO
RS
(R2)+,R5

R2
R2 . #XYBUFE
1%
RO
RO
RO
RO
#177400,RO
PC

3322332322328 32233f3 2000200200t

:SAVE RO

;GET X B Y

:GET CURRENT BUFFER POINTER

;SAVE NEW X-Y VALUE
:EgD OF BUFFER?
;N

:YES, GO BACK TO BEGINING OF BUFFER
:SAVE NEW BUFFER POINTER
;CALC AVE X

JSAVE

;CALC AVE Y
;G0 DO IT

;GET X~Y IN RO
;GET SAVED X
;PUT IN TEMPO

;RESTORE RO

JEXIT WITH AVE X-Y IN TEMPO

;ZERO SUM
;DO A MOVB TO A REG (UNSIGNED)
JADD IT IN
;SKIP OTHER VALUE
JEND OF BUFFER?
;sNO

:DIVIDE By 32.

;CLR HI BYTE

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11Y
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054

PROGRAM SUBROUT INES

8-AUG-78
B

15:16

PAGE 24

SEQ 0032

222223222233 2233 2322232332323

SBTTL

3323232382222 23222222

2Rt

TTY INPUT ROUTINE

':'ititt***tt**tttttt'ttitti'tttitttfittt*tfi'ttttttttttttti*t'ttt'

"ENABL
IR

005606
005614
005616
005622
005624
005630

005634

005640
005642
005650

022737
001074

105777
100071
117746

042716
022726
001456

000176

001140

BNE
1STB

8PL
mMovs

173316
177600
000007

BIC
CMP
BNE
CMPB
BEQ

000001

104401
104401
013746
104402
104401
005046
005046
105777
100375

006460
006465
000176

005706
005712

117746
042716

173234
177600

005716
005722
005724
005730

021627
001005
104401
062706
000757

000025

9%:

006453
000006

20%:

005736

021627
001022
005766
001403
016677
062706

000015

108 :

005742
005744

005750
005752
005760
005764
005770
005776
006000

104401
123727

001003
012777

$GTSWR:

006476

19%:

7%:

173240

TYPE

MOV
TYPOC
TYPE
CLR

CLR
TST8B

8PL

MOvB

BIC

000004
173160

000002
000006
001161
001135

000001

000100

173136

R AN

R AR

R AR AR AR RN

R AR

AR SRR

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP (ALL
;*WHEN OPERATING IN TTY FLAG MODE.
#SWREG, SWR
$CKSWR: (MP
;:]1S THE SOFT=-SWR SELECTED?

005652
005656
005662
005666
005670
005674
005676
005700
005704

005734

173322

001134

LSB

11%:
14%:

cMP
BNE
TYPE

ADD

B8R

15%
a$TKS
15%
(SP)
- B,
a$TK
#~C177,(SP)
#7,(SP)+
15%
$SAUTOB,
41
15%

::BRANCH IF NO
;;CHAR THERE?

LSCNTLG
. SMSWR

;;ECHO THE CONTROL-G (*G)
;:TYPE CURRENT CONTENTS
;:SAVE SWREG FOR TYPEQUT
;G0 TYPE--OCTAL ASCII(ALL DIGITS)

SWREG,=(SP)

L SMNEW

~(SP)
-(SP)
a$TKS
’$

::1F NO, DON'T WAIT AROUND
::SAVE THE CHAR
::STRIP=-0OFF

THE ASCII

J:]1C IT A CONTROL G?
;:NO, RETURN TO USER
;:ARE WE RUNNING IN AUTO-MODE?
; :BRANCH IF YES

::PROMPT FOR NEW SWR

;s CLEAR COUNTER
;s THE NEW SWR

;:CHAR THERE?

;:IF NOT TRY AGAIN

a$TKB,-(SP)
#~C177,(SP)

;:PICK UP CHAR

(SP) 425

2218 IT A CONTROL-U?
;2BRANCH IF NOT
;o YES, ECHO CONTROL-U (*U)
;- IGNORE PREVIOUS INPUT

108

LSCNTLU

#6,SP

;:MAKE IT 7-BIT ASCII

;;LET'S TRY IT AGAIN

J2IS IT A <CR>?

CMP

TST
BEQ
MOV
ADD
TYPE
CMPB

2(SP) ,aSWR
#6,SP

MOV

#100,a8TkS

.SCRLF

$INTAG,#1
15%

JJBRANCH IF NO
:2YES, IS IT THE FIRST (HAR?
;;BRANCH IF YES
::SAVE NEW SWR
:;CLEAR UP STACK
:2ECHO <CR> AND <LF>

;;RE-ENABLE TTY KBD INTERRUPTS?
:;BRANCH [F NOT
:JRE-ENABLE TTY KBD INTERRUPTS

CINCDA

NCV11 EXERCISER MACY11 27(654)

8-AUG=78

006006

15%:
16%:

CZNCDA.P11

1090
1091
1092
1093

1094
1095
1096
1097

2OV

WWWWNNNNNNNNNN—'—'—'-‘—‘—‘—‘—‘—‘—*OOOOO?
NOANEWNROVONCVB
WSO VNN W20V
NOWVNERWN
=

P
QU U U
U U G
T QU U
P S
U U QU T Y S G QU QU I W
B R T U S
U
R g
—l—‘—l_‘-—l—-fi-‘—l—l—l-—l—l—l—h—l—l—l—l—l—l-‘—-ld—i—l—‘—'—l—d_l—‘_‘_l—l—l—‘.—l_l—l—i_l_d
[=]le]e
SN

1098

006010

006014
006020
006022
006026

006030
006034
006040
006042
006044

000002

004737

021627
002420
021627
003015

042726
005766
001403
006316

006316

006054
006060
006062

056616
000707
104401

006050

006066

006660

000060

000067

000060
000002

005266

000720

000002

17%:

001160

18%:

177776

.DSABL

PAGE 25

SEQ 0033

RT!
JSR

PC.STYPEC

BLT
CMP
BGT
BIC

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

;:CHAR < 0?
:;BRANCH IF YES
;:CHAR > 7?
;;BRANCH [F YES
::STRIP-OFF AS(CI11

BEQ

17%

;;BRANCH IF YES

(mMpP

TST

006316

006046

ASL
ASL
ASL
INC
BIS
BR
TYPE
BR
LSB

(SP) ,#60

2(SP)

(SP)
(SP)
(SP)
2(SP)
<2(SP), (SP)
7%
LSQUES
20%

> :RETURN
;cECHO CHAR

;218 THIS THE FIRST (HAR
::NO, SHIFT PRESENT
N
CHAR OVER TO MAKE
1
ROOM FOR NEW ONE.
:;KEEP COUNT OF (HAR
::SET IN NEW CHAR
;:GET THE NEXT ONE
::TYPE 7?7<CR><LF>
::SIMULATE CONTROL-~U

';ttttt*t*ttt*tttttittitttiit*t*ttttt*ttt*iflitttttti*tfitt*ttttttt

**THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
JxCALL:

I
I

006070
006072
006100
006104
006106
006114
006122
006130
006132

011646
016666
105777
100375
117766
042766
026627
001013
105777

006140
006144
006150
006154
006156
006160
006166
006170
006176

117746
042716
022627
001366
000750
026627
002407
026627
003003

006206

000002

1088

1089

TTY INPUT ROUTINE

15:16

006200

100375

042766

000004
173040

000002

173034
177600
000004

000004
000004
000023

RETURN HERE

$RDCHR: MOV
1%:

2%:

173006

RDCHR

MOV
TSTR
8PL
MOVB

BIC
TMMP
BNE

TST8

BPL

MOVB

173002
177600
000021

BIC

000004

000140

000004

000175

000040

000004

3%:

4%:

cMP
BNE
BR
CMP
BLT
CMP
BGT
BIC
RT1]

(SP) ,-(SP)

4(SP) ,2(SP)
2$TKS
1%
a$TKB, 4 (SP)

;o INPUT A SINGLE CHARACTER FROM THE TTY
;;CHARACTER IS ON THE STA(CK
J:WITH PARITY BIT STRIPPED OFF

;sPUSH DOWN THE PC

:;SAVE THE PS
;J:WAIT FOR

:sA CHARACTER
:;READ THE TTY
;:GET RID OF JUNK IF ANY

RACK177>,4(SP)
L(SP) 423
3%

;JBRANCH IF NO

;:LO0P UNTIL ITS THERE

2%$TKS

a$TKB,-(SP)

#4C177,(SP)
(SP)+ 421
2%
1%
4(SP) 2140
4%
L(SP) ,”175
A3
#60,4(SP)

;21S IT A CONTROL-S?

;:WAIT FOR A CHARACTER
;:;GET CHARACTER

J:MAKE IT 7-BIT ASCII

;1S IT A CONTROL-Q?
;o
1F NOT DISCARD IT
;. YES, RESUME
;:1S IT UPPER CASE?
;;BRANCH IF YES
;IS IT A SPECIAL MHAR?
;:BRANCH IF YES
::MAKE IT UPPER CASE
;:GO BACK TO USER

;;ttittit*tttttttltitfitlttttttfi*ttfikfifi*tttfitittttiti'fi*ttttttt'tl

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s«CALL:

RDLIN

RETURN HERE

;o INPUT A STRING FROM THF TTY

;;ADDRESS OF FIRST (HARA(TER WILL BE ON THE STACK

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11

1147
1148
1149

1150
1151
1152

1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168

1169
1170

1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1
1
1
1
N

11
11
1

BREV2BTIIR

}}85

INPUT ROUTINE

15:16

PAGE 26

[

006210

006212
006214
006220

006224
006226

006230
006232

006236

010346

005046
012703
022703

101456
104407

112613
122713

001022

006240
006242
006244
006252
006256
006262
006264
006270
006272
006276
006302
006304
006306
006310
006316
006322

005716
001007
112737
104401
012716
005303
020327
103434
111337
104401
000746
005716
001406
112737
104401
005016

006332
006336
006340
006344
006346
006350
006354
006360
006362
006366
006370
006374
006400
006404

104401
000726
122713
001011
105013
104401
104401
000717
104401
000712
111337
104401
122723
001305

006324
00633C

006406
006412
006416
006420
006422

006432
006440
006442

006444

122713
001003

105063
104401
005726
012603
011646
016666

012766
000002
000
000
000007

006444
006453

000177

000134
006442
177777

$RDL IN:

MOV

R3,-(SP)

1%:

MOV

#STTYIN,R3
z:TTYIN+7,R3

2%:

10%:

006442
6%:

006444
006442
006442

000134
006442

006442

CMP
BLOS

RDCHR
MOVB
cMPB
BNF
TST
BNE
MOVB
TYPE
MOV
DEC
CMP
BLO
MOVB

=(SP)

(SP)+,(R3)
#177,(R3)

(SP)

006453
000022

8%:

B8R

TST
BEQ

001160

A ¥

006442
006442
000015

3%:

177777
001162

000002
000004
9% :

$TTYIN:

;:CLEAR THC RUBOUT KEY
::GET ADDRESS
J;BUFFER FULL?
;:BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
;218 IT A RUBOUT
:2BR IF NO
;oIS THIS THE FIRST RUBOUT?
;sBR IF NO
::TYPE A BACK SLASH

;:BR

IF NO

;. TYPE A BACK SLASH

CLR
(MPB
BNE

. sCLEAR THE RUBOUT KEY
;3 1S CHARACTER A CTRL U?

(MPRB
BNE

;1S CHARACTER A 'TMR'"%?
;JBRANCH [F NO

TYPE
TYPE

;2TYPE A 'CR' R "LF°

.«BR

;3GO START OVER

;:CLEAR THE CHARACTER
;2TYPE

TYPE

(MPB
BNE
CLRB
TYPE
TST
MOV
MOV
MOV
MOV
RT!
.BYTE
.BYTE

.BLKB

THE

INPUT

STRING

;260 PICKUP ANOTHER CHACTER

BR
TYPE
B8R

MovB

IF NO

;;TYPE A CONTROL ‘U’

TYPE
B8R

CLRB

001161
006444

.csQVE R?

;:;SET THE RUBOUT KEY
;:BACKUP BY ONE
;STACK EMPTY?
;:BR IF YES
;;SETUP TO TYPEOUT THE DELETED (HAR.
;G0 TYPE
::G0 READ ANOTHER CHAR.
:;RUBOUT KEY SET?

MOVB
TYPE

7%:

000025

000004
000444

CLR

TYPE

5%:

SEQ 0034

;;TERMINATOR WILL BE A BYTE OF ALL 0'S

Pl
oV

—

1142
1143
1144

TTY

8~-AUG-78

J2TYPE A

#15,(R3)+

-1(R3
JSLF
(SP)+

(SP)+,R3

(SP) ,-(SP)
4(SP) ,2(SP)
#STTYIN,4(SP)

0
0

;sCLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER
:;CHECK FOR RETURN
;:LOOP IF NOT RETURN

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

FEED

::CLEAN RUBOUT KEY FROM THE STACK

;JRESTORE R3

::ADJUST THE STACK AND PUT ADDRESS OF
12

FIRST ASCII

CHARACTER ON

; JRETURN

;sSTORAGE FOR ASCI] CHAR. TO TYPE
;s TERMINATOR

;;RESERVE 7 BYTES FOR TTY INPUT

THE

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11
1196
1197
1198
1199
1200
1201

006453
006460
006465
006472
006476
006504

TTY

INPUT ROUTINE

136

043536
015

036440
020040
020075
006510

006525
005015
051412
000040
042516
000

8-AUG-78

15:16

PAGE 27

SEQ 0035

051127

$CNTLU:
$CNTLG:
SMSWR:

.ASCIZ
.ASCIZ
JASCIZ

/7*%u/<15<12>
::CONTROL 'V
/2G/<15><12>
:;CONTROL 'G""
<15><12>/SWR - /

020127

$MNEW:

.ASCIZ

000018

NEW =

.EVEN
R

22322223222232323222332222223323222232222323020222233232223223282328828223]

SBTTL
.R

TYPE ROUTINE

2222223223223 2333223332223 2222333323332 2228822020 R0 RARtRadttts Rl

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;«THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$*NOTET:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

:*NOTEZ:
;*NOTE3:
- W

;*CALL:

tl)

.'0

USING A TRAP INSTRUCTION

TYPE

. MESADR

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1%

;:1S THERE A TERMINAL?
;:BR IF YES
J:HALT HERE IF NO TERMINAL

TYPE

ME SADR

$TYPE

TSTR
BPL
HALT
BR
MOV
MOV

* N

105737
100002
000000

000407
010046
017600
112046
001005

005726
012600
062716
000002
122716
001430
122716

001006
005726

001157

000002

000011

1%:

2%:

105037

000755
004737

123726
001350
013746

MCV

4%:

RT1
CMPB
BEQ

3%:

105366
002770
004737

$CRLF

006724

5%:
6%:

001154
000001
006660

ADD

CMPB
BNE
TST
TYPE

000200

006660
001156

TST

60%:

104401

001161

MOVR
BNE

7%:

CLRB
BR
JSR

CMPB

BNE
MOV

DECB

BLT

JSR

3%
RO,-(SP)
@2(SP) RO

(RO) +,-(SP)
A3
(SP)+
(SP)+,R0
#2,(SP)

. LEAVE
;:SAVE RO
;:GET ADDRESS OF ASCIZ STRING
2 :PUSH CHARACTER TO BE TYPED ONTO STA(CK
::BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK
:;RESTORE RO
:;ADJUST RETURN PC
;;RETURN
;;BRANCH IF <HT>

#HT , (SP)
8%
#CRLF ,(SP)
5%
(SP)+

;;BRANCH IF NOT <CRLF>

$CHARCNT
2%
PC.$TYPEC

::CLEAR CHARACTER COUNT
::;GET NEXT CHARACTER
;G0 TYPE THIS CHARACTER

$NULL ,-(SP)

J:IF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED

1(SP)

;:DOES A NULL NEED TO BE TYPED?

$SFILLC,(SP)+
2%

PC,$TYPEC

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

;IS IT TIME FOR FILLER CHARS.?

;sAND THE NULL CHAR.

;:;BR IF NO=--GO POP THE NULL OFF OF STA(K
;:G0 TYPE A NULL

CZINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.P11
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279

006626
006632

TYPE ROUTINE

105337
000770

8-AUG-78

006724

15:16

006634
006640
006644
006652
006654
006656
006660
006664
006666
006674
006702
006704
006710
006712
006720
006722
006724
006726

112716

004737

132737
001372
005726
000724
105777
100375
116677
122766

001003

105037
000406
122766

001402

000040
006660
000007

8%:
006724

9% :

MOVB

BITB
BNE

#7,8CHARCNT
9%

JSR

$TYPEC:

000002
000015

172256
000002

000012

000002

B8R

TSTB
BPL
MOVB
(MPB

B8NE

006724

000000
000207

;. TYPE A SPACE

. ;BRANCH IF NOT AT
;. TAB STOP

(SP)+

;:POP SPACE OFF

STACK

;;GET NEXT CHARACTER

% TPS
$TYPEC
2(SP) ,a$TPB
#CR,2(SP)

J:WAIT UNTIL PRINTER IS READY
;:LOAD CHAR TO BE TYPED INTO DATA REG.
;2 1S CHARACTER A CARRIAGE RETURN?

#LF ,2(SP)

RTS

;sREPLACE TAB WITH SPACE

CMPB

B8EQ

$TYPEX:

,(SP)

$CHARCNT

INCB
$CHARCNT:.WORD

105227

;DO NOT COUNT AS A COUNT
;. LOOP

PC,$TYPEC

CLRB

B8R

1%:

SEQ 0036

TARB PROCESSOR

TST

172264

$CHARCNT
7%

DECB
BR
;HOR]IZONTAL

PAGE 28

::BRANCH IF NO

JsYES==CLEAR CHARACTER COUNT

$TYPEX

JSEXIT

;1S CHARACTER A LINE FEED?

$TYPEX

::BRANCH IF YES

(PC)+
O

;s COUNT THE CHARAC(CTER
;;CHARACTER COUNT STORAGE

':**tttttt*tttttfittttt*t*tt*tfit*ttttttt*t*tttt*ttfittttttttttttttt

"SBTTL
SR

BINARY TO OCTAL (ASCII) AND TYPE

3222333322222

;*THIS ROUTINE

3232882000002

2028222280028t

0000RaddtRattRtd

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

;*0OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS---ENTER HERE

. *CALL:

I
o
o
S

MOV
TYPOS
BYTE
BYTE

TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

NUM, - (SP)
N
M

::1=TYPE LEADING ZEROS

;:0=SUPPRESS LEADING ZEROS

;*STYPON----ENTER HERE
;*$TYPOS OR $TYPOC

. *CALL:

o
o
- %

;;NUMBER TO BE TYPED
;:CALL FOR TYPEOUT
;eN-1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 0R O

MOV
TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM, - (SP)

J:NUMBER TO BE TYPED
;sCALL FOR TYPEOQUT

;*ETYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBEK

;«CALL:

M
ML)

006730
006734
006742
006746

017646

116637
112637

062716

000000
000001
007155
000002

007153

MoV
TYPOC

$TYPOS: MOV

MOvB
MovB
ADD

NUM,~(SP)

;sNUMBER TO BE TYPED
;s CALL FOR TYPEOUT

a(SP) ,-(SP)

;:PICKUP THE MODE

#2,(SP)

;;ADJUST PETURN ADDRESS

1(SP) ,$SOFILL
(SP)+,$0MODE+1

;.LOAD ZERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPE

NCV11 EXERCISER MACY11 27(654)

CZNCDA.PW

guwwwwwwwwwwu
POR) = e b cd b D b b b b

NN=OVONOWVEWN—=O

1304
1305
1306
1307
1308
1309

NOWVB WA =O0V00NO
NS W

vivivivivivieivl
S99 S 9 3 S

U
G
U G QU U S
U G G

1341

006752
006754
006762
006770
006776
007000
007002
007004
007010
007012
007016
007022
007026
007032
007034
007036
007040
007042
007044
007046
007050
007052
007056
007060
007064
007066
007070
007072
007074
007100
007104
007110
007114
007120
007122
007124
007126
007130
007132
007134
007136
007144
007146
007150
007151
007152
007153
007154

BINARY TO OCTAL

000406
112737
112737
112737
010346
010446
010546
113704

005404
062704
110437
113704

016605
005003
006105
000404
006105

000001
000006
000005

(ASCII) AND TYPE

007153
007155
007152

$TYPOC: MOVB
MOVB

$TYPON: MOVB
MOV
MOV

Mov

007155

MOVB
NEG
ADD
MOVB
MOovB

000006
007154
007153
000012

MOV

1%:

2%:

3%:

007154
177770

4%:

000060
000040
007150
007150
007152

5%:
7%:

6%:

000002

15:16

8-AUG-78

000004
8%:
$OCNT:
$OFILL:
$OMODE:

CLR
ROL
BR

PAGE 29

$TYPON
#1,80F
LL
#6, SOMODE +1
#5,80CNT

R3,-(SP)

R4 ,-(SP)
RS ,-(SP)
+1 ,R4
$OMODE
R4
#6,R4
R4 , $OMODE

$OFILL,RG
12(SP) ,RS

ROL
ROL
MOV

DE(CB
BPL
BIC
BNE
TST

BIS

MOVB
TYPE
DECB
BGT

.BYTE
.BYTE

.BYTE
.WORD

;;PICKUP THE INPUT NUMBER
;2CLEAR THE OUTPUT WORD
;;ROTATE MSB INTO ''C'

IF NO

;:GET RID OF JUNK

INC
BIS

.BYTE

;;SUBTRACT IT FOR MAX. ALLOWED
;oSAVE IT FOR USE
;,GET THE ZERO FILL SWITCH

;:BR

BEQ

MOV
MOV
MOV
MoV
RTI

;;SET THE ZERO FILL SWITCH
5.SET FOR SIX(6) DIGITS
;.SET THE ITERATION COUNT
;:SAVE R3
;:SAVE R4
::SAVE RS
;.GET THE NUMBER OF DIGITS TO TYPE

;:GET LSB OF THIS DIGIT
;:TYPE THIS DIGIT?

ROL

BLT
INC
BR
MOV

SEQ 0037

;GO DO MsB
;.FORM THIS DIGIT

ROL

(SP)+ ,RS

(SP)+ R4

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

QOOOO

CZNCDA

;:TEST FOR O
;s SUPPRESS THIS 0?
;:BR IF YES
;:DON'T SUPPRESS ANYMORE 0'S
;sMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY
;;SAVE FOR TYPING
;.G0 TYPE THIS DIGIT
;:COUNT BY 1
;:;BR IF MORE TO DO
;.BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
;.G0 DO THE LAST DIGIT
:;RESTORE RS
: sRESTORE R4
:JRESTORE R3

;2SET THE STACK FOR RETURNING
; RETURN

;;STORAGE FOR ASCII DIGIT

;. TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
;o ZERO FILL SWITCH
;oNUMBER OF DIGITS TO TYPE

';tttfit*tt*ttt*tttttttt*titt'ittttfitttttfiitittt*tttttittItitttttt

"SBTTL

READ AN OCTAL NUMBER FROM THE TTY

;:.ttttttt!ittfitttfitttttttttttttttttt"tt*ttttfiiltfittt*ttfittttttt

J*THIS ROUTINE WILL READ AN OCTAL

s*CHANGE IT TO BINARY.

(ASCII) NUMBER FROM THE

TTY AND

NCV11 EXERCISER MACYTT 27(654)

READ AN OCTAL NUMBER FROM THE

TTY

15:16

PAGE 30

SEQ 0038

;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

;=CALL:

;*OCTAL DIGITS. IF AN _LLEGAL CHARACTER IS READ A '"2'' WILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED.
.

FAA LA 235

1358
1359
1360
SN

CINCDA
CINCDA.PIN

8-AUG-78

RDOCT
RETURN HERE

G
P

WWWNWWN
~ NN N
W nN=O0

THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

28 BEEREEER

1381

007156
007160
007166
007170
007172
007174
007176
007200
007204
007206
007210
007212
007214
007220
007222
007226
007230
007232
007234
007236
007240
007242
007244
007250
007252
007254
007256
007262
007266
007270
007272
007274
007276

011646
016666

007302
007304
007306
007312
007314

104401
000000

010046
010146
010246

104410
012600
010037
005001
005002
112046
001420

000004

1%:

007304

000060

122716

000067

002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
010166
010237
012602
012601
012600
000002
005726

104401

000730
000000

BIC

ADD

001160

B8R
TST
MOV

5%:
$HIOCT:

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

R2,=(SP)

(SP)+,R0O
RO,5%
R1
R2
(RO)+,-(SP)
3%
#'0,(SP)
43
#'7,(SP)
4%
R1
R2
R1
R2
R1
R2
#*C7,(SP)
(SP)+,R1

::PROVIDE SPACE FOR THE
;s INPUT NUMBER
:sPUSH RO ON STA(CK
2:PUSH R1 ON STACK
::PUSH R2 ON STACK
;2READ AN ASCIZ LINE
;:GET ADDRESS OF 1ST CHARAC(TER
J:AND SAVE IT
;s CLEAR DATA WORD
;:PICKUP THIS CHARA(CTER
;:IF ZERO GET OUT
;2MAKE SURE THIS CHARACTER
;.1S AN OCTAL DIGIT

si%e
Jo%b

;.%8
::STRIP THE ASCII JUNK

:;ADD IN THIS DIGIT
;. LOOP

(SP)+
R1,12(SP)
R2,$HIOCT

;;CLEAN TERMINATOR FROM STACK
;3SAVE THE RESULT

MOV
MOV

(SP) +,R1
(SP)+,RO

:;POP STACK INTO R1

CLRB

(SP)+
(RO)

;:;CLEAN PARTIAL FROM STACK
:2SET A TERMINATOR

0
. SQUES

'-;Ol?ll

MOV
MOV

105010

CLR
MOVB
BEQ
(MP8
B8GT
(MPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL

177770

000012
007314

MOV
MoV
MOV
MOV
RDLIN
MOV
MOV

CLR

2%:

122716

003026

000002

: MOV
$RDOCT

;;READ AN OCTAL NUMBER
;;LOW ORDER BITS ARE ON TOP OF THE STA(CK
;;HIGH ORDER BITS ARE IN $HIOCT

RTI
TST

TYPE

. WORD

TYPE

BR
. WORD

(SP) +,R?

%
0

::POP STACK INTO R2
;:POP STACK INTO RO

;. ;RETURN

::TYPE UP THRU
llcR.lz

::TRY AGAIN

THE BAD

(HAR.

.lF..

::HIGH ORDER BITS GO HERE

CINCDA

NCVI1 EXERCISER MACY11 27(654)

CINCDA.P1Y

8-AUG-78

READ AN OCTAL NUMBER FROM THE TTY

15:16

PAGE 31

SEQ 0039

1(,%

;.'t!ttttt.ttfittttttttt'Qt'ttttt!ltt.tttitt'ttt'.'tttttttt'ttt't..

}285

.SBTTL

1{,09

TRAP DECODER

2223223222223z

222 X 23X

2222222222222 22828 ]

1410
1411

-THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

}2}2

©«GO TO THAT ROUTINE.

14612

1415
1416
1417
1418
1419
1420

}ZS;

:«0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

007316
007320
007324
007326
007330
007332

007336

010046
016600
005740
111000
006300
016000

000200

$TRAP:

000002

007352

RTS

1423

}252

1426
1427
}258

MOV
MOV
ST
MOVR
ASL
MOV

RO,-(SP)
2(SP) RO
-(RO)
(RO) ,RO
RO
$TRPAD(RO)
,RO

: :SAVE RO
::GET TRAP ADDRESS
:;BACKUP BY 2
::GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;;INDEX TO TABLE

::60 TO ROUTINE

::THIS IS USE TO HANDLE THE '‘GETPR]'' MACRO
007340
007342
007350

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

(SP) ,-(SP)
4(SP),2(SP)

:;MOVE THE PC DOWN
::MOVE THE PSW DOWN
:;RESTORE THE PSW

}23?

.SBTTL

1432
}2;2

:«THIS TABLE CONTAINS THE STARTING ADDRESSES OF
:«BY THE ‘‘TRAP'' INSTRUCTION.

1435

;

1436

1437

007352

007340

1439

007356

006754

1438

1440

}22;

007354

007360

007362

006510

006730

006770

$TRPAD:

TRAP TABLE

THE ROUTINES CALLED

ROUT INE

eseeea.WORD

$TRAP2

$TYPOC

;.CALL=TYPOC

$STYPE

$TYPOS

$TYPON

;;CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

:.;CALL=TYPOS

TRAP+3(104403)

TYPE OCTAL NUMBER (NO LEADING ZEROS)

;.CALL=TYPON

TRAP+2(104402)
TRAP+4(104404)

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

;222

007364

005656

$GTSWR

;. CALL=GTSWR

TRAP+5(104405)

GET SOFT-SWR SETTING

1445
1646
1447
1448

007366
007370
007372
007374

005606
006070
006210
007156

$CKSWR
$RDCHR
$RDLIN
$RDOCT

;;CALL-CKSWR
;;CALL=RDCHR
;;CALL=RDLIN
;. CALL=RDOCT

TRAP+6(106406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

TEST FOR CHANGE !N SOF T-SWR
TTY TYPFIN CHARACTER nOUTINE
TTY TYPEIN STRING ROUTINF
READ AN OCTAL NUMBER FROM TTY

P———
.
o~

CINCDA NCV1T
CINCDA.PI

1449
1450
1651
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491

—

EXERCISER MACYT1
TRAP TABLE

27(654)

8-AUG~78

15:°6

PAGE

SEQ 0040

. ttttttttttttt**titttt*tttttt*ttt*tttt*tttttttfiti*tt"tfi.t'tt.tt

.SBTTL
S

007376
007404
007412
007414
007416
007420
007422
007424
007426
007432
007436
007444
007446

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000
000776

007542
000340

171506
007546
007450

000024
000026

012737
013706
005037
005237
001375
012677
012605
012€04
012603
012602
012601
012600
012737
012737
104401

007742
012716
001554
000002
000000
000776
000000

007542
007546
007546
007546

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

MOV
MOV
g 10)%
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT
BR

000024

RAA N AN

AN AN

ASILLUP,d#PWRVEC ;;SET FOR FAST UP
#340,9#PWRVEC+2 ::PR]0O:7
RO,-(SP)
;<PUSH RO ON STACK
R1,-(SP)
;:PUSH R1 ON STACK
R2,~(SP)
;sPUSH R2 ON STACK
R3,-(SP)
;:PUSH R3 ON STACK
R4 ,~(SP)
;3PUSH R4 ON STACK
RS,-(SP)
;sPUSH RS ON STA(CK

aSWR,-=(SP)
SP,$SAVR6

#SPWRUP ,Q#PWRVEC

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

.POWER UP ROUTINE

$PWRUP: MOV
MOV

1%:

171440

007376
000340

AN AR ARAAARA RN AR

.POWER DOWN ROUTINE

$PWRDN MOV

007450
007456
007462
007466
007472
007474
007500
007502
007504
007506
007510
007512
007514
007522
007530
007532
007534
007536
007540
007542
007544
007546

POWER DOWN AND UP ROUTINES

000024
000026
SPWRMG:
$PWRAD:
$ILLUP:
$SAVRG:

CLR
INC
BNE

MOV
Mov
MOV
MOV
MOV
MOV
MOV
MoV
MOV
TYPE

.WORD

MOV

.WORD

RTI

#SILLUP,Q#PWRVEC

$SAVR6, SP
$SAVR6
$SAVR6
1%
(SP)+,aSWR
(SP) +,R5
(SP) +,R4

(SP)+,R3

2 JPUSH aSWR ON STACK
;:SAVE SP

;;SET UP VECTOR

;sHANG UP
AN AR ANARRRARAAARNRNRAARARARRAR
A AN AN

;,SET

FOR FAST DOWN

;.GET SP
;;WAIT LOOP FOR THE TTY
;sWAIT FOR THE INC
;:0F
WORD
;:POP STACK INTO aSWR
;:POP STACK INTO R5
;.POP STACK INTO R4

;:POP STACK INTO R3

(SP)+,R2
:.POP STACK INTO R2
(SP) +,R1
;;POP STACK INTO R1
(SP)+,RO
:.POP STACK INTO RO
#SPWRDN,@#PWRVEC :;SET UP THE POWER DOWN VECTOR
#340,a4PWRVEC+2 ;:PRIO:7
PWRMSG
(PC)+, (SP)

START1

.~2

;;REPORT THE POWER FAILURE

;.POWER FAIL MESSAGE POINTER
;;RESTART AT START1

: ;RESTART ADDRESS
;. THE

POWER UP SEQUENCE

WAS

STARTED

;. BEFORE THE POWER DOWN WAS COMPLETE
;;PUT THE SP HERE

CZNCDA NCV11
CZNCDA L1
1492
1493

D ——
)
b
)
D
) —d
D
d e
d wd
e mad

wviviuv i v
i\ S
Wi’ il G gl iy olele)
N [ LCY S P Y
N = OV
NN
WNN—O oo~

1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506

EXERCISER MACY11 27(654)

007550
007556
007564
007572
007573
007600
007606
007614
007621
007626
007634
007642
007650
007653
007660
007662
007670
007673
007700
007706
007707
007714
007722
007730
007736
007737

007742
007750
007756
007764
007,72
010000
010003
010010
010016

010024
010032

1543

1544
1545

DISPLAY MESSAGES

005015
020122
044123

042522
015
041516
047040
020061

044503
005015
020122
044123
040526
047111
046101
042510
052524
000
015
052040
052125

JTHIS

15:16

PAGE

042527
042522
020104

WwD0O01:

020040
042520
042522
020104
055012
052116
052101
047503
000
055040

020040
020122
044123

wD002:

ASCIZ

wD003:

JASCIZ

<15><12>/7 COUNT=/

WwD004:

ASCIZ

7 MATRIX COUNT=/

047517

wD005:

LASCIZ

043455
000
041412
020101

046501

wD006:

LASCIZ

/7 B=-GAMMA/

046501
020043

wD007:

JASCII

<15><12>/CAMERA # /

020040
044440
020040
020102

020040
020123
020940
051511

:
CAMOUT

.BYTE
LASCIT

60
7/

PBUP:

LASCII

/UP

JBUP:

.ASCIZ

/UP/

.SBTTL

ASCI] MESSAGES

000
041440
000075
044522
047125

SEQ 0041

DISPLAY MESSAGES
.SBTTL
THE MESSAGE FOR THE BOTTOM OF THE SCOPE
<15><12>/LOWER THRESHOLD /
LASCIZ

047514
064124
046117

000120

005015
040524
040440
050040
043040

8-AUG-78

UPPER THRESHOLD /

100M/

P8 IS /

J8 IS /

051012
052122
052106
053517
044501
000
005012
040504
053103
054105
042523
047105
044124
046117
052514
047440
026440
020176
047122

051505
042105
051105
051105
052514

PWRMSG:

LASCIZ

<15><12><12>/RESTARTED AFTER POWER FAILURE/

055103
020040
030455
051105
000122
042524
042522
020104
020105
052103
052040
042522
036440

MSG1:

LASCIZ

<15><12><12>/CINCDA

MSG2:

LASCIZ

<15><12>/ENTER THRESHOLD VALUE

041012
046511
042440

051525
047505
051122

MSG3:

LASCIZ

<15><12>/BUS TIMEOUT ERROR - VSvO1 DISPLAY/

NCV-11 EXERCISER/

IN OCTAL - THEN RETURN =/

CINCDA

NCV11 EXERCISER MACY11 27(654)

CZNCDA.P11
1546
1547

010142
010150
010156
010164
010165
010172
010200
010206
010214
010222
010230
010236
010241
010246
010254
010262
010270
010275
010302
010310
010316
010324
010332
010340
010346
010354
010361

010366

010374

010402
010410
010416
010422
010430

010436

1587
1589

1591
1592
1593
1594
1595
1596
1597
1598
1599

010444
010452
010460
010464
010472
010500
010506
010511
010516
010524

010532
010535

010542
010550
010556
010564
010571
010576
010604

ASCI1 MESSAGES

051117

053123
05151

000
015
051105
047523
051525
042522
052040
042522
036440
015
052040
052125
051117
053103
015
020105
047506
050114
020117
051105
047502
047503
024104
015
051105
051105
041115
031455
026440
005015
026461

026502
030526
051105
006522
020104
042040
054501
006501
105

020040
020105
006505
114

020040
047514
044124
046117
125
020040
050125

8-AUG-78

15:16

PAGE

)

SEQ 0042

026440
030460
045120

053040
042040
054501

042412
041440
042514
040440
051523
042510
052524
000
041012

052116
047117
041040
042104
026440
020116
047122

MSG4:

LASCIZ

<15><12>/ENTER CONSOLE BUS ADDRESS =

051525
047505
051122
047040
000
050131
020042
042510
043116
052116
054505
020104
047101
000
052116
046501
052516
030040
000040

MSGS5:

.ASCIZ

<15><12>/BUS TIMEOUT ERROR = NCV11/

MSG6:

.ASCIZ

<15><12>/TYPE 'H'' FOR HELP INFO

MSG7:

.ASCIZ

<15><12>/ENTER CAMERA NUMBER 0-3 ? /

030455
041516
041516
054105
042523

DASH:

HELPO:

.ASCIZ
.ASCI1

/ =/

020049
046120
052101

LASCII

DISPLAY DATA/<15><12>

020040
051501
050117

LASCI1

ERASE SCOPE/<15><12>

020040
020124
020122
0446123
012
020040
020124
020122

LASCII

GET LOWER THRESHOLD/<15><12>

LASCII

GET UPPER THRESHOLD/<15><12>

046511
042440
026440
030461

052012
044042
020122

044440
042440
045440
051101

046515
024523
042412
041440
020101

051105
037440
000040
042115
053104
020101
020061
044503
005012
020040
051511
042040
012
020040
051105
041523
012
020040
042507
042527
042522

006504
020040
042507
042520

THEN RETURN =/

ENTER KEYBOARD COMMAND(S)/

<15><12>/MD-11-DVYNCB-A NCV11 EXERCISER/<15><12><12>

CZNCDA NCV11
CINCDA L1

042522
006504
020040
044504
020131
050117
012
020040
044504
020131
050117

046123
012
020040
050123
051511
020105

020040
042523
043040
041040
050101
020040
046105
042523

ASCII MESSAGES

044124
046117
10
020040
040514
052117
006501
102

020040
040514
052117
006502
127
020040
052103
052123
046440
020115
051440
020124
042116
046440
020106
043040
052522
042504

011250
011256

012

041040
050101
020040
042522
020116
005015
020040

054517
020112
027102
020040
051511
044440
044523
051505
020116
041440
052103
042040
012
020040
047503
020124
042040
012
020040
044103
041440
020101
042516

N PNON) = b wd b b acd cnd ek b d =
=200~
LIV,
U 8
OWONSONON

d —d
D

d ek
D

b od
b
D

e
d

h
d

d
d

b md
b

e
d
o

1602
1603
1604
1605

27(654)

010612
010620
010625
010632
010640
010646
010654
010657
010664
010672
010700
010706
010711
010716
010724
010732
010740
010746
010754
010762
010770
010776
011004
011012
011020

(olelalolelelolololeleololole]

1600

1601

EXERCISER MACY11

041440

020040
052123
046117

8-AUG-78

15:16 PAGE 35 ;

SEQ 0043

LASCII

DISPLAY ISOTOPE A/<15><12>

020040
050123
051511
020105

LASCII

DISPLAY ISOTOPE B/<15><12>

020040
042514
051111
052111
005015
020040
041505
047503
052111
005015
020040
020105
047515

LASCII

SELECT FIRST BIT MAP/<15><12>

LASCII

SELECT SECOND BIT MAP/<15><12>

.ASCII

FREE RUN MODE/<15><12>

020040
052123
040503
005015
020040
046120
052116
054524
000124
020040
046117
047040
052101

LASCII

JOYSTICK CALIB./<15><12>

.ASCIZ

DISPLAY INTENSITY TEST/

LASCI1

<15><12>/N

020040
046114
047515
052101

LASCII

COLLECT MORE DATA/<15><12>

020040
047101
046501
044103
006514

LASCII

CHANGE CAMERA CHANNEL/<15><12>

020040
050117
042514

LASCII

STOP COLLECTION/<15><12>

HELP:

COLLECT NEW DATA/<15><12>

CZNCDA NCV11
CZNCDA P11
1654
1655
1656
1657
1658
1659
1660
1661
1662

1663

1664
1665
1666

1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686

EXERCISER MACY11 27(654)

011264
011272
011273

011300
011306

011314
011315
011322
011330
011336
011337
011344
011352
011360
011364
011372

011400
011406
011414
011422
011423

011430
011436
011444

011452
011460
011466
011474
011500

ASCII MESSAGES

8~-AUG-78

15:16

PAGE 36

SEQ 0044

047511

006516

020040
047111
055111

020040
052111
006505

LASCII

INITILIZE/<15><12>

132

020040
047532
044501

020040
046517
006516

LASCII

ZO0OM GAIN/<15><12>

122

020040
042522
020122
005015
020040
044124
047117
052040
040516

020040
052507
040507

LASCII

REGULAR GAIN/<15><12>

020040
051105
047523
051105
006514

LASCII

OTHER CONSOLE TERMINAL/<15><12>

020040
042510
042510
040522
047101
042520
044510
052123
012

020040
050114
047440
047524
020104
052101
020123

LASCI1

HELP THE OPERATOR AND REPEAT THIS LIST/

.BYTE

15,12.0

052103
012
107
020040
046111
012

020040
043440
012
020040
040514
047111
020117
047440
041440
042514
044515
012

110
020040
052040
042520
020122
042522
052040
044514
C15

000

BCRLF:

;LOC. 20000 THRU 57776 ARE BUFFER AREA
000001

.END

CINCDA

CINCDA.PI

8-AUG-78

15:16

PAGE 37

209
691

224
718

225
722

226
739

227
743

NCV11 EXERCISER MACY11 27(654)
CROSS REFERENCE TABLE

SEQ 0045

228
9654

229

230

508

518

546

5554

667

773

780

788

791

716+

723

737

744

ABASE = 172760
AWRIT
005226

134
687

000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

1094
9
984
97N
964
9S4
S
934
924
914
904

800
109
108
107
106
105
104
103
102
101
100

855

894
884
874
864
854

501
799

549

1044
1034

428
705

697

808

1014

467

503

523

862

367

370

373

4074

479

498

541«

542

693

854

418
603~

436

462

784

8934

586

695

BCRLF
BELLEN
BITO =
BITO0 =
BITO1 =
BIT02 =
81703 =
BIT04 =
BITOS =
BITO6 =
BIT07 =
BI1T08 =
BIT09 =

011500
001316

BIT10
BIT11
BIT12
BIT13
BIT14

=
=
=
=
=

002000
004000
010000
020000
040000

BITS
BIT6

= 000040
- 000100

BIT1

BIT15
BIT2
BIT3
BIT4

BIT7

= 000002

=
=
=

84#
1074
1064
1054

000200

1024

= 000400

BOOBOO

002026

= 001000

BOX
003036
BPTVEC= 000014

CAMERA
CAMOUT
CHANGE
CHARCT
CKSWR =

001274
007706
003026
001302
104406

CPERL
CR
CRLF
=
DASH
DCONT
DDISP =
DISBG
DISLOP
DISPLA
DISPRE

001304
000015
000200
010416
004756
177570
004354
003312
001142
000174

COMSAV

DISPY

001272

004744

DISPY2 005006
DMATRX 003270
DSWR = 177570

DUMMY1

108#

100000
000004
000010
000020

BIT8

BIT9

746
2594

001242

1004

5634
1164

2604

695+
413
2634
14454
2594
264N
2L
25#
721

569
314
7994
6184
1714
1374
565
812
6154
304
247N

16824

15134
415
594«
761

861«

610«
1264
1235
742
576
171

630
1274
1274
15774
777
289

669
289«
297

681
297

904#

905

170

288

572

693+

231

583

694+

8914

CINCDA

NCV11 EXERCISER MACY11 27(654)

DUMMY?

001244

CINCDA.PIN

EMTVEC= 000030
ERASE
004712
ERRVEC= 000004
FREERN

GAIN

GNS

001312

001276
KRRERN

GTSWR = 104405

HELPO
010422
HELP1
011120
HY
= 000011

INTLUT 001246
IOTVEC= 000020
007737
JBUP
KBINT
KBUFF
LARGES
LDIMGE
=
LF
LISEN
LISN

005104
001262
003210
005036
000012
001650
001674

MAPADR
MAPLD
MATRIX=
MRXADR
MSELCT
MSG1
MSG2

001254
003434
020000
001252
001314
010003
010040

MSG4

010165

MSG3
MSGS
MSG5

MSG7
MxsML
NCADM

010121

010241
010275

010361
004074
001206

NCADR
NCBAR
NCBAR1
NCCSR

001164
001202
(001212
001174

NCJOY
NCOFF
NCSET
NCSFR

001210
001176
001514
001204

NCSTP
NCSTP1
NCSTRT
NCWCR
NOVSY

NUMBEG
NUMEND
PATWRT

PBUP

004636
004660
004576
001200
001320
005346
005354
003612

007722

8-AUG-78

717+

719

738

740

437
286

441

555

768

880#
318«

480

550

750
1443

1445

CROSS REFERENCE TABLE

2484

115#
419
1124

267+
261

136
14434
446
448

228
2494
1174
707«
326

2554
SO4LA

507
23
3574
361

762
2524
629
1284
2514
2684
300

456

304

475
316
329
528

7334

2294
209#
227H
231
224#
861

2304
2254
3084
2284
506
320
416

226N
2704

986
972

609

699+

PAGE 38

15:16

SEQ 0046

481

491+

496+

1446

1447

1448

935«

936

937+

938

651

468

502

414

754

852

871

873

501«

506+

542+

550

761+

851«

697
868
8684
8514

705

799+

800+

801

808

862

703

15164

312+

298+
758
549«
1440

1641

710=

711+

15194

363

365+

428+

429

364

410

417

420

S89«
645

649
649%

672«

673

680+

615«
463+
15294
512

616~

618
826

323

412
619+

432+

287%

357«
322*
1438

L2«
500«
1439

15784
450
1233

16354
1274

836

708+
9354
359+
N7a
1268
433

3634

266

15434

1274
940

321

519~

623«

853

833+

842+

505

524

551

853+

854+

855+

15344

15504
15584
15634
15724
736

306

716

870

307
863+
803
321+
311
431«
559
622
423
717
303+
9914
9934
676
700+

313

852+

503
8614

469
470
869
439

684#
702+

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.PY
PC

=%000007

PO
=
PR1
=
FRZ2
=
PR3
=
PR4
=
FRS
=
PR6
=
PR7
=
PS
=
PSW
=
PWRMSG

L3
470+
768~
875«

301«
506+
773
885+

PAGE 39

320+
507«
777%
898+

408+
520
780
909~

409+
555«
784+
929

L6+
559+
788+
947+

419
565+
791«
952«

422*
S69*
807+
1007+«

423
572«
812+
1010«

SEQ 0047

1270+

1272+

1486

001260
001256

254m
2534

591«
590+

659+
664

660+
668+

661«
671+

662+

663+

666

670

000100

282«

283%«

1454%

145S5%

1464%

1470x

1482

1483«%

476

513

529

14484

366
485
574
677+
821
892
1013

368«
486
578«
678
822~
917+
1014«

369
487
579+
771+
825+
924 *
1017«

377
488
581
774+
828+
971
1020«

000000
000040
000140
000200
000240
000300
000340

2N
1234
LON
L7h

Lo
S50#
54
52K
534

264
27N
1485

15234

RDCHR = 104407
RDLIN = 104410

1149
1372

14464
16474

PWRVEC= 000024
RDOCT = 104411

15:16

1256+«

177776
177776
007742

RESVEC=
ROUTA
ROUTB
ROUTC
ROUTD
ROUTE
ROUTF
ROUTG
ROUTH
ROUTJ
ROUTL
ROUTM
ROUTN
ROUTO
ROUTR
ROUTS
ROUTT
ROUTU
ROUTW
ROUTX
ROUTZ
ROWCNT
RTABLE

8-AUG-78

12649«

PIRQ
= 177772
PIRQVE= 000240

PTXASM
PIXCNT

CROSS REFERENCE TABLE

000010
002046
002060
002072
002102
002106
002116
002212
002222
002274
002300
002340
002372
002406
002526
002544
002562
002576
002636
002666
003006
001306
001742

-%000000

1184

LS57

1134
378
379
380
381
382
383
384
385
387
389
390
391
392
395
396
397
398
400
401
403
2654
372

34
460
563«
607+
786+
838+
999+

(37
576«
843«
1015«

441
583«
856+
1029+

464 *
586+
864+
1089+

469+
€57+
868+
1242+

372
489
585+
775
829
972+
1026+

374
490
595+
779+
830+
981+
1025«

424
522+
597
781+

426+
523
601+
782

4124
414K
4164
4184
L1594
421N
L3I74
4394
4SoH
4534
4634
L6
4724
500#
5034
S06#
509#
5194
5254
SLON
617*
374

306«
467
566+
610
790«
839
1001

760

620*
3784

308
477
567
649+
792+
871+
1008

622+

309«
482
571
673
793
872«
1011«

363+
484
573«
674
819+
873
1012«

836+
984+
1026+

837
958
1027+

NCV11 EXERCISER MACY11 27(654)
CINCDA.PN
CROSS REFERENCE TABLE
CINCDA

-%000001

=2000002

=%000003

-%X000004

=%000005

R6
R7

SCLCEL

-%000006
-%000007

0033+«

SELCTA . N7 @64
SP
=*J00006

1028«
1417

354
584x
732«

1370

364

1000+
1386+

378

Swo6
Sw07
SwO8
Sw09
Sw1
Sw10
Swil

=
=
=
=
=
=
=

000010
000020
000040

000100
000200
000400
001000
000002
002000
004000

1375+
618+
1001+
1388+

631+

1158+
1324+

627
301

6304

L2
460+
510+

1229
1268
1345%
1393«

001100
001322
001554
177774
001140
000176
000001
000001
000002

307+
596+
733

1151
1323+
384
663
1342+
394
739~
1020
LOn

1008+
1078
1116+
1150

STACK =
START
START1
STKLMT=
SWR
SWREG
=
Sw0
Sw00 =
Sw01
=
Swo2
Sw03
=
Swo4
=
SWO5
=

1225
1418+

628+

957+
1460
4465%
741+
1310

274+

464

8~AUG-78
1226+
1419+
308+
597
772+
1383+
624
1002
139
642+
1159
1327+
632+
960

1477+
447
763+
1316+

275+

520
286+
473>
515+
1014

1082

15:16

1227
1420+
310
599
787*
1385+
626

1004*
1395«
731
1161
1332«

633
962
685«

745
1318«
276

8194
%
294
477
516+

1049+

1083«

1120«
1157+
1231«
1301
1368%
1396

1233
1302
1369+«
1397

358
493
438

1487

1462«

288«

1045

1121«
1164

1463

290

1058

PAGE 40

SEQ 0048
1373+

1377

1397+

1400*

1415

1416+

483+
630+
821+
1393
bbb
1009+

486+

1457
734
1021+

4,88+
639
831
1480+
738
1022

490+
641%
896

*
564
644
918«

580+
666+
921+

919+
1371

922+
1376+

927+
1384«

1173
1334
646+
1311»

920+
1175%
1343~
650
1312«

926+
1183
1478«
653«
1314

1144
1185+

1146+
1188+

1147
1308

1150+
1317+

654+
1315+

655+
1329

656*
1331«

1339«

689«
756%
1321+

691«
957
1322%

714%

718«
985+
1461

720~
987+
1476%

722
10718«

1019+

453«
496

454«
497
971
1067«
1099+
1135«

458
498+
984
1071
1100+
1144
1226

459+
509+
998«
1074+
1101
=
1145+
1227%

1230
1421+
425+
601
789«
1387«

1369
1456

1005
1458
733
1169
1333«

1006+
1479%

634

638«
1309

687«

752%
1320+

L34
602
820«

1390+

639x
737

298
480+
525«
1050+
1090
1122
1168+
1235
1303«
1370~
1399
1471«

315
491
526%
1051
1092
1126+
1187

296+

1045

1481+

636
829+«

969

1341~

844

1066~
1098+

1133
1191«
1255+
1341
1381
14656+
1479

1237

1308«
1371~
1415+
1475

1082«

1462

1475«

1225*
1259
1342
1389+«
1457
1480

1263
1343

1390
1458+
1481

657
724

1264
1344«
1392
1459+
1486+

NCV11 EXERCISER MACY11 27(654)

CINCDA

CZNCDA.PI

sSw12
SwW13
SW14
Sw15

Sw2
Sw3
Swé
SwWS
swé
sw7
Sw8
SWw9

= 010000
= 020000
= 040000
= 100000
=
=
=
=
=
=
=
=

TABLEX
TBITVE=
TEMPO
TEMP1
TEMP2
THH]
THLO
TIME
TJOY
TKVEC =
T07S1Z
TPVEC =
TRAPVE=
TRTVEC=
TTYOUT
TYPCR
TYPE
=
TYPO

TYPOC =
TYPON =
TYPOS =
VIMADR
VIVADR

VIVCHP
VIVCRG
VIVCSR

000004
000010
000020
000040
000100
000200
000400
001000

001310
000014
001234
001236
001240
001270
001266
001172
004224
000060
001300
000064
000034
000014
001264
005144
104401
005164

104402
104404
104403
001170
001166

001216
001214
001222

VIVINT
VIWMAP
VIVPOS
VIVPX
vivex1
VIVSAV
VTWRIT

001232
001224
001220
001226
001230
001250
005202

wp001
wD002
wD003
wD004
wD005

007550
007573
007621
007634
007653

8-AUG-78

15:16

PAGE 41

323«

412+

414>

595

596

615

732

729

735

803~

906+

907

999

1013~

325«
324~

514+
458~

599
607

624
626

692
688

326«
594

327+

280*

281«

407«

946+

948+

951

304

316
1156
1438#4

329

450
1167

834

588+

689

CROSS REFERENCE TABLE

SEQ 0049

So#
S8«
S74
Sea

794
78#
774
764
754
74H
734
724
2664

1144

244N
2454
246N
2584
2574
221H
452
1214

2624

1224
1204
115#
2564
409

300

1084
14601
408
1059
14414
14404

425
7684

9464

1103
1403

14354

217
2134
234H
2334
2374
897
241N
2384
2354
23w
240N
2504

825

686
690
715
725
753

16944
14984
15024
15044
15074

445
985

907
310

466

831
892+
444

896+
588

447

754

918

729

9494

820
522

1162
1484
950

456

528
1179

475

1057
1186

1060

1073

1238

1335

1M”n

1176

884+
795+

904

823

908«
835

958
880+

962«
881

883«

891«

893+

894

712

714

720

724

741

745

752

756

9574

837«
684«
795

685

$ERRTB
SERTTL

$FILLC
$FILLS
$GDADR
$GDDAT
$GTSWR
$HD
=
$HIOCT
$ICNT
$ILLUP
$INTAG
$ITEMB
SLF

1614

1634
10574
1"
1394
=
1544
1454
1684
1584
1824
1554
1564

$LPADR

$LPERR
SMAIL =
SMNEW
SMSWR
SNULL
SOCNT
$OMODE
$PASS
$PWRAD
$PWRDN
SPWRMG
$SPWRUP
$QUES
$SRDCHR
$RDDEC=
$RDL IN
$RD0CT

L2 8 8 8

006476
006465
001154
007152
007154
001100
007536
007376
007532
007450
001160
006070
rxennn

006210
007156
$RDSZ = 000007

$R2A
=
$SAVRE
=

300

1060

1057
1764
1307«
1302+
151#

secder

1257

1266

12714

1196

1239

1243
1274

11974
1171
1084

1274

1406

1274

16443
14054

1470
1085

14854
1202

1186

1196

1274

1406

1314

1325«

13514

1196

1274

1403

1227
12004
11984
1245
1336+

14544

1482

1464

14704
1103
1446

1179

1804
11164
1449
11440
13674
11374
1449
1449

SEQ 0050

274

273

282

14854

skawnn

1033

1306+

1487#

10314

—

1009
10324
10334
1202

$CM3

$CNTLG
$CNTLU
$CRLF
$ERFLG
SERMAX
$SERRPC

1250%
1445

PAGE 42

—

$CKSWR
$CMTAG

807

1004
1002
1000
1674
1624
1644
1240*
10454
1504
1804
1056
1073
1814
1534
1594
1604
1984
1574
1784
1774

15094
15114
9984
1006
1022
1005+
1053

15:16

757
713

007662
wD00?7
007673
XYAVE
005356
XYBUF
005504
XYBUFE= 005604
XYBUFP
005604
$AUTOB
001134
$8DADR
001122
$8DDAT
001126
$CHARC
006724
WwD006

8-AUG-78

N0
o

CROSS REFERENCE TABLE

—t

NCV11 EXERCISER MACY11 27(654)

CZINCDA

CZNCDA.P1T

1447
1448

1406

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.PY
$SAVR6
$SETUP=
$STUP
$SWR
$TkB
$TKS
$TN
$TP8
$TPFLG
$TPS
$TRAP
$TRAP2
=
$TRP
$TRPAD
$TSTNM
$TTYIN
$TYPBN=
$TYPDS=
$TYPE
$TYPEC
STYPEX
$TYPOC
$TYPON
$TYPOS

$OF ILL

007546

000114
177777
160000
001146
001144
000001
001152
001157
001150
007316

007340

000012
007352
001102
006444
RANRRR

8 &4
LA82

006510
006660
006726
006754
006770
006730
007153
011503

CROSS REFERENCE TABLE
1463+
2714
2714
11

1734
1724
114
1754
1794
1740

280

14264
14304
1420
1524
1146
1442
1442
12214
1089
1267
13054
1304
13004
1301«
1324
1406

8-AUG~78

15:16

147
279

1472+
280

1473«
282

124
935
328«

180
1038
483

936+
1221
949
14154
1437
16394

PAGE 43
164914

SEQ 0051

284

1040

1202

1488
1049
1038

1066
1047

1120
1063

1126
1087«

1118

1124

951+
1274

1263+

1274

1261

1274

14404

14414

14420

1443

14440

1445

14464

164478

14484

1449

1147

1159

1177

1191

11954

1430
1242
1269
1439
13074
1440
1305+
1364

1438
1249
12724

1256

12614

1262

13504
1494

183

277

9944

1032

1038

11954

1196

12024

14374

1466

1441

1315
1414
1490

1276

CINCDA NCV11
CINCDA.P11

COMMEN

ENDCOM
ERROR
ESCAPE

GETPRI]

GE TSWR

MULTY

NEWTST
POP
PUSH
REPORT
SCOPE
SETPR]

SETTRA
SETUP
SK]P
SLASH
SPACE
STARS

.$TYPO

SEQ 0052

1244

1244
1244
1244
1244
194
1244

14304
1244

1244
1244
1244

$SCMRE
$SCMTM
$SESCA
SENEWT
$SSET
$$SKIP
.EQUAT
.HEADE
.SETUP
.SCATC
.SCMTA
. SPOWE
- SRDOC
.SREAD
.$TRAP
.STYPE

PAGE 44

1244

TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

15:16

1244

TRMTRP

TYPBIN
TYPDEC

8-AUG-78

1244
184
1244

1244
1244
1244
1244
901
1037
1244
14304

SWRSU

EXERCISER MACY11 27(654)
CROSS REFERENCE TABLE

1395
1369

1475
1456

1676
1462

1439

1440

1441

14643

1445

1446

1447

1448

145
903
1040
284w

183
910
1108

814

818
1203

1206

850
943

858

1137

848
934

1274

945
1277

860
953
1352

1449

1441

1443

14645

1446

1447

1448

916

1244
1244

1434
1434
1244
1244
14304
1244
14
14
14
1L
1L
14
4
14
14
14

1058

1439
14

271

130
143
1450
1353
1035
1407
1204
1275

865
955
1355

867
966
1406

877

968

1409

879
995
1449

887

997
1452

890
1034

1468

NCV11 EXERCISER MACY11 27(654)

ASL
ASR

8CC
B8CS
BEQ

734
309

1020

37
1419
975

302
367
364
961

579
1074
633

585
1083
654

976

977

373

538
1081
1337
625

370

1054
1134

BGT
BHI
BHIS
BIC

1093
600
598
368

8IS
81S8
BIT

431
1012
697

503
1019
705

635
645
1091
277

1003
1148
1132

BIT8B

BLO
BLOS
BLT
BNE
BPL
BR

CLC
CLR
C.RB
cMP

1094

1257

706
1086

669
293
928

1267

640
275
519

1018

1175
276

674
1071

608
428

736
1123

802
314

963
1304
658
322
536

1061
1185

290
678

1078

467
1127
542

790

822

828

830

838

080

1025

1026

1097

1098

1099

1383

1385

1387

1269

1330

651

751
1378

759

776

783

827

840

925

534

677

883

891

893

937

979

1028

1050

1067

853

854

855

862

880

897

908

1101

1332

1333

435

440

478

604

1174
959
577
1130
1466

1228
1064

1046
1258
1222

675
1052
1265
1262
785
1241

679
1072
1328
1326

1079
1474

1048

643
983
1244
1125

665

1170
950
570
1104
1404

621
939
1236
1119

360

500
870

504
872

655

1313

1390
1024

568
1096

575
1165

582
1234

637

523

657

1389

808
1023
1248

755
1129

882

410
974
1319

841
324
543

1062
1240
310
754
1090
1151

824

492

497

1317

1375

1376

459
771

369
793
1128

429

495

574
873

1159
1264

581
938

1002

1022

1268

1379

1381

924

982

1158

599

624

634

1183

652

668

735

922

672

774

781

1331

1339

436

438
676
441

468
940
469

“N

743
985

687

470
689

1242

1249

305
535

317
539

1489

INCB
107
JMP

1270
19
140

613

418

JSR

301

777
1256

597

831
1133
1235

1325

506
69N

869

846
1260

1131
1233

642

505

863

1251

698

567
844
1147
1243

537

408
520
714
784

1224

432
731
1472

434
1250

479

709
1180

424

426
1247
18
136
1473

701
1178

365

DEC
DECB
EMT
HALT

303

629

1172

1085

INC

832

874
1184

1163
1490

1053

906

SEQ 0053
733

680

619
1303
656

1327
800

694

663

616
1231

cMPB

comMB

PAGE 45

ank

ADC
ADD

CROSS REFERENCE TABLE

15:16

~NwV

CINCDA.P11

8-AUG-78

—

CZNCDA

638

524
419

565

807

823

609
437
576

741
947

1045

1051

CINCDA

NCV11 EXERCISER MACY11 27(654)

CZNCDA.P11

MOV

CROSS REFERENCE TABLE

274
307
414
483

526
596

717

820
907
971

1058
1245

MOvB
NEG
NOP

RESET
ROL
ROR
RTI

RTS
SEC

SuB
SWAB
TRAP
TST
TSTB
LASCII

LASCIZ

1370
1455
1478
561

1066
1307
1312

442

319
1318
641
142
1192
843
845

607
653
1430
313
835
801
180

1626

182

1543

.BLKB
.BYTE

1195
152

.DSABL
.ENABL
.END

1105
1
1686

-ENDC

1348

284

904

1039

EQUIV

.EVEN
.IF

1227
1442
1486

102

994
2

278
308
621
484

530
601
729
821
917

280
312
425

281
318

644
488

8-AUG-78

15:16

PAGE 46

283
323

549

615

SEQ 0054

287

288

460
496
578

498

779

786

1120
1311

737
829
919
978
1116
1309
1374
1458
1481
699
1150
1315

443

521

804

1320

1388

1232

1322
661
455
1398

623

639

1196
1550

1441
482
1080
949
1514
1645
1198
1563

972
1082
1300

1371
1456
1479
693

659
295
856

1011
1439
372
904
881
181
1635

153

1349

1513

463

580

297

306

(12
481

477
516

525
595

716

673

819
896
970

799

1000
1157
1341
1396
1462

851
936
1001
1188
1342
1397
1463

1006
1191
1345
1420
1471

884
957
1009
1225
1367
1426
1475

707
1181

708
1227

962
1301

981
1302

805

811

499

545

941

1088

1136

929

952

1015

1029

1272

1621

1447
602
1187

1448

842

875

296
361
473
514
589
671
795
871

1577

1446
489
1164
1063
1584
1660
1498
1630

168

176

177

146

150

946
1138
1406
1448

152
861
954
1146
1407
1449

76
109

151

184

271

1014

1230
1369
1454
1477
1049
1306

650
1237
1221
1597
1674
1507

664
1259
1261
1602

750

1329

758
1392

826
1399

834
16417

1118
1588
1664
1502

1229
1124
1592
1668
1504

1607

1612

1617

1622

1509

1519

1523

1529

1534

178

179

991

993

1193

1194

1347

271
878
969
1179

278
996
1196

279
888
998

1638
1463

1202
1439
1469

280
891
1035

1038

859

300
9N
1041
1275
1443
1488

851
944
1137
1362
1447

103
1202
16

107

75
108

145

149

1419
1462

282

1440
1475

902
1038
1207
1441
1476

100

101

273

278

280

JAFT
JIFTF
.11F

.IRP

LIST

.MACRO

MCALL
<NLIST

.PAGE
.REPT
.SBTTL
LTITLE
.WORD

143
1
1

1444

1430
124
124

1379
1112
1M
1441
1395
136
1645

284

180
902
1038
1356
1406
1383
136
1445
1462

271

1447

184
904
1041
1407
1405
183

1446

1475
284

1448

1447
1476
814
1449

b ——h

HsN—-2O0
HNWES
N
0000 ~WN 0o

—

1108
1352
1446

w—d —

848
934

b D

880
996
1275
1116
1109
6
1440
1369
124

818
932
1069
1277
1445

860
953
1145
1374

1449

819
933

1147
1406
1452

966
1151
1409
1462

877
968

1152
1415
1463

879
995
1195
1419
1468

849

851

859

861

865

867

946
1147
1484

887
997

1196
1430
1475

890

1034
1202
1439
1476

868
967

1179

866
956
1195

1204

1116

1450

1137
1453

944
1138
1469

1038
1448

1059

1187

1196

1202

1274

1406

1438

1032

1137

1430

1438

1439

1440

1441

1442

—

16
878
969
1207
1M1
1056
1
1439
271
1
1443

1441
1486
146

910
1040
1227
1442
1488
149
888
998
1278

814

916
1041
1274
1443
1492
151
89N
1035
1353
1399
1375
12
1443
1456
180
14646

SEQ 0055

ON—=~Nw

1484

1039
1206

300

H =000

LIFF

284
903

W=V
SO
~NYWVMIOWO

282
901
1037
1203
1440

—

CROSS REFERENCE TABLE

PAGE 47

H =0
—=O—=N
OV~

NCV11 EXERCISER MACY11 27(654)

15:16

CINCDA

CINCDA.PI

8-AUG-78

136
1445

284

1032

1137

1439

1640

1441

1442

1031
139
1450

143
1492

184
1521

271

272

376

404

552

814

1035

1204

1275

1353

1407

485
130
1430

552

1448

814
1449

1438

1647
1492

1430

1446

138
171

151
1271

154
1351

155
1402

156
1405

157
1437

160
1485

161
1487

162

163

164

165

166

169

137
170

1443

143
136
14
1
136

ERRORS DETECTED:

1444
184

223

180

271

CINCDA

NCV11 EXERCISER MACY11 27(654)

CINCDA.PY

*CINCDA, CZNCDA/CRF /SOL=CZNCDA
RUN-TIME: 12 6 1 SECONDS

CORE USED:

18k

B8-AUG-78

15:16

PAGE 48

SEQ 0056