Digital PDFs

AH-8791C-MC

October 1985

54 pages

Original

26MB

view download

OCR Version

36MB

view download

Document:	CZFLAC0 PDP-11 FLOAT UTILITY PROGRAM OCT 1985 bw
Order Number:	AH-8791C-MC
Revision:	000
Pages:	54
Original Filename:	CZFLAC0__PDP-11__FLOAT_UTILITY_PROGRAM__AH-8791C-MC__OCT_1985_gray.pdf

OCR Text

FLOAT UTILITY PROGRAM

AH-8791C-MC

10r1 ocr1ses

SHEAREN
MADE IN USA

K
n

1
FLOAT

SEQ 000
- ADCTESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 1

.REM «

IDENTIFICATION
PRODUCT CODE:

AC-8789C-MC

PRODUCT NAME:

CZFLACO FLOAT UTILITY PROG

PRODUCT DATE:

MAY 1985

MAINTAINER:

DIAGNOSTIC ENGINEERING

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

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.

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

ADDRESSES

AND VECTCRS

MACRO Y05.02

Thursday 23-May-85

10:38

Page

1-1

SEQ 0002

[

CONTENTS

ABSTRACT

2.0

REQUIREMENTS

2.1

EQUIPMENT

3.0

LOADING PROCEDURE

3.1

METHOD

4.0

STARTING PROCEDURE

4.1

N
o
=

OPERATOR ACTION
‘FA* FLOATING ADDRESS OPTION
‘VA* FLOATING VECTOR OPTION

ERRORS

HALTS,

RESTRICTIONS
MISCELLANEOUS
TERMINAL ADDRESS MODIFICATION
DELETE FEATURE
CONTROL/C, CONTROL/Z, CONTROL/A,
DN11’'S AND PAC11‘S
CHANGES TO PROGRAM

uun

OPERATING PROCEDURE

STARTING ADORESSES

RESTART ADDRESS

Vidwhr-e

OXP®P®®

FLOAT

TRAPS,

OTHER FAILURES

INVALID RESPONSES

1.0

CONTROL/S AND CONTROL/Q

ABSTRACT

Float

is a utility program to aide the operator with

addresses

and

vector

devices

determining

the

in the floating address or vector

sreas.
The addresses and vectors given are completely compatible with
all DEC standard software.

2.0

REQUIREMENTS

FLCAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85

10:38

Page

1-2

SEQ 0003

2.1

Equipment

Any PDP-11 processor with 4k of memory and a terminal.

3.0

LOADING PROCEDURE

3.1

Method

The program is supplied on the diagnostic media.
operating manual for further information.

4.0

STARTING PROCEDURE

4.1

Starting Addresses

By starting at
initialized,

address

the

200(8)

program

types

204(8)

name

and

the

Refer

restart

version,

and will prompt operator to set up terminal fill count.

4.2

the

address

XXDP

control charactors

Restert Address

Location 204(8)

is the only valid restart address.

5.0

OPERATING PROCEDURE

S.1

Operator Action

When the program

typed,

is loaded and

started

control charactors are listed,

the

title

and

and the operator

TERMINAL TYPES:
A = LA36 NO FILL
L = LA120 100 FILL CHARACTER
V = VT52 OR VT100 S0 FILL CHARACTER

ENTER TERMINAL TYPE.

(A,L,V)?

To this the operator responds
‘A'<cr>

If terminal

version

are

is prompted with:

is an LA36 or requires nofill.

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 1-3

SEQ 0004
‘L'<cr> If terminal is a LA120 or requires fill for
a carriage return.
‘V'cer> If terminal is a VIS2 OR VT100 8@ 300 baud or more,

or requires fill for a line feed.

After the terminal fill has been entered or program has been restarted
the program types.

POSSIBLE OPTIONS ARE

FA-FLOATING ADDRESSES.

(DJ,DH,DQ,ETC.)

VA-FLOATING ADDRESSES AND VECTORS
HE -HELP
EX-EXIT
ENTER OPTION:

At this point the program is waiting for a two (2) character
response
followed
by
a
carriage return <cr> defining which option is wanted.
The valid responses are:
‘FA'
‘VA'

‘HE'
‘EX'

if the floating address option is desired.
if the floating vector option is desired.
if the help message is desired.

is desired to exit back to the XXDP monitor.

The program will the ask:

"How many of each does the system have.” and then type a

devices depending on the “option” selected.

The list

list

is typed one

device at a time followed by a question mark.
The
operator
responds
to
each
question
with
the
number of each device he has in decimal
until the list is completed.
(For exceptions and
control
characters

see
miscellaneous.)
At the end of the list the program will type the
addreess or vector information based on the
number
supplied
by
the
operator.
(See para.
5.2 and 5.3 for format of data.)

5.2

'FA'

- Floating Address Option

‘VA'

Vector And Address Option

This option will ask for the decimal number
of
floating address range or floating vector range.

After receiving
name,

the

device

the

input for each device the program will type the device

address,

the module number with the addressing logic,

the jumper(s) or switches(es) to
following format.

DEVICE

each

CSR

VECT

ADDRESS

VECTOR

cutout

COMMENT

turned

off

and

the

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 1-4

SEQ 0005

WHERE
:

NOTE:

NAME = ACTUAL DEVICE NAME (I.E. DJ11)
ADDRESS = CSR ADDRESS OF THE DEVICE
VECTOR = VECTOR ADDRESS

DEVICES ARE LISTED IN ASCENDING ADDRESS ORDER.

6.0

ERRORS

6.1

Halts,

Traps,

Other Failures.

This program is not intended to be a diagnostic or system
sizer.
It
does
no
checking
of
device
addresses present or perform any other
diagnostic functions.
If program halts, traps, gets caught in a
loop
run CPU, memory and/or terminal diagnostics.

“Do not use program to trouble shoot any failures."”

6.2

Invalid Responses

6.2.1
Invalid Response To ‘Terminal Type (A,L,V)?'.
will type:

The program

VALID RESPONSES ARE-‘A'
‘L'
‘V'

- LA36 OR NO FILL
- LA120 OR FILL FOR <CR>
- VT52 AND VT100 OR FILL FOR <LF>?

And wait for response.

6.2.2

Invalid Response To "Option.”
FA

- The program will type:

- FLOATING ADDRESSES (DJ,DH,DQ,DU,DUP,LK,DMC/R,DZ,KMC,LPP)
(vM21,VM31,DWR,RL,LPA,KW,RES,RX,DRW,DRB,DMP
,DPV,ISB,DMV)

(UNA,UDA,DMF,VS100,
TUB1 ,KMV ,DHV/DHU,DMZ32/CPI32(ASYN)
(CPI32(SYN),QVSS)
>

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 1-5

SEQ 0006
VA - VECTORS AND ADDRESSES OF DEVICES IN FLOATING VECTOR AREA.
(DC,TUS8,KL ,DLA/B/W,DP,DMA,DN,DMB
,DR, PAR,PAP,LPD,DT,DX)

(oLc/0/€,0J,0H,GT,VSV,LPS,DQ,KW,DU,DUP,DV/DM,LK,DWN,DMC/R)
(DZ,KMC,LPP,VM21,VM31,VTV,DRW,RL, TS,LPA,IP,KW,RX,DRW,DRB)
(DMP,DPV,ML ,ISB,DMV,UNA,UDA,DMF ,PCL,VS100,TUB1,KMV,KCT32)
(IEX,DHV/DHU,DMZ32/CPI32(ASYN),CPI32(SYN),QNA,QVSS,LNV11)

HE - HELP MESSAGE
EX - EXIT COMMAND
And will ask

6.2.3

again

"Option:".

Invalid Response When Typing Device Counts.

- The program

will

type:

“That’'s not a valid number!"”

If an alpha character or negative value

is entered.

“That’'s too many!

Only XX allowed!”

If a number greater than the maximum allowed
single systam is supplied.

7.0

for

that

device

RESTRICTIONS

None

8.0

MISCELLANEOUS

8.1

Using Other Than Console Terminal.

Locations 700-706 contain the addresses of the terminal status
buffer
registers.
To use another DL11-A just change these four (4) locations
to the desired addresses.

8.2

Delete Feature

The character delete is proceeded and followed with a backslash on a
hardcopy terminal.
On a video terminal, the characters will be removed
from the screen.

8.3

Control/C,

Control/Z,

Control/S,

Control/Q and Control/A

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 1-6

SEQ 0007
Control C (tC)

Program is restarted at 200 when
waiting for input.

CNTRL/C

typed

with

program

Control Z (t2)

Program is restarted at print when a CNTRL/Z is typed and will print
the selected devices. It is a means of getting an abbreviated list of
devices rather than going through the entire list during question and
answer session.

Control S (tS)

When CNTRL/S

is typed the program will stop printing and wait for a CNTRL/Q.

Control Q@ (tQ)

When a CNTRL/Q

is typed the program will continue printing.

Control A (tA)

When a CNTRL/A is typed the program will back up one device on the list.
It allows one to correct errors made during the question and answer session
by backing up the list and changing the value assigned to the number of

devices.

8.4

DN11'S AND PA611'S

8.4.1
The DN11 Can Have Four (4) Lines Per Block - (1 control
module).
Specify the number of controls.

8.4.2

The PA6l1l’'s Can Have Two

(2)

Specify the number.of controllers.

8.5

Readers/Punches

Per

Controller

CHANGES TO PROGRAM
REVISION

C INCLUDED THE FOLLOWING CHANGES.

1. PROVISION HAS BEEN MADE TO ALLOW AT LEAST 2 DEVICES PER SYSTEM.
NOT ALL DEVICES CAN BE EXPANDED TO THREE OR MORE WITHOUT MODIFICATIONS
TO THE DEVICE HANDLER WITHIN THE PROGRAM.
2.

THE FOLLOWING DEVICES WERE ADDED:

KMC11,LPP11,VMV21,VMV31,VTVO1,DWR70,RL11,RLV1L
TS11,Tu80,LPA11,IP11,IP300,KW11-C,RESER,RX11
RX211,RXV11,RXvV21,DR11-W,DR11-B8,DMP11,0PV11,ML11
ISB11,DMV11,UNA,UDA,RQDX1,DMF32,KMS11,PCL11,VS100
TU81,KMV11,KCT32,IEX,DHV11,DHU11,0MZ32,CPI32(ASYNCH)

CPI32(SYNCH),QNA,QVSS,VS31,LNV11

3. THIS IS A LIST OF DEVICES WHICH HAVE ONE FIXED AND THE
REMAINDER FLOATING CSR'S.
RL11,RLV11,LPAL11,RX11,RX211,RXV11,RXV21,UNA,UDA,RQDX1

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 1-7

SEQ 0008
Tu81,QVss

4. THIS IS A LIST OF DEVICES WHICH HAVE TWO FIXED AND THE
REMAINDER FLOATING CSR'S.
DR11-B
5.

Changes made to make messages to operator easier to understand.
- LWLOO2 -

431
432
433
434
435
436
437
438
439

L Ty
Y Ty T P
P P P
ey ey arerey

NN
NI NN NN NININI NI NI NI NI NINININI NI NI NINNININININ?
i#
THE COMMENTS AND CODE BETWEEN THE ####4222272/!!!!!aksks
;# IS DEPENDENT ON THE DEVICES. THIS CODE SHOULD BE CHECKED AND
;# MODIFIED WHEN ADDING OR REMOVING A DEVICE FOR THE
:* PROGRAM TO SUPPORT.

440
441
442

STEPS TO ADDING A DEVICE:

444

FLOATING SCHEME?

1. DETERMINE IF DEVICE IS A FLOATING CSR OR VA OR BOTH.
IS THE 1ST ADDRESS FIXED? WHAT IS ITS RANK OF ORDER IN THE

445
446
447
448
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464

465
466

467
468
469
470
471
472
473
474
475
476

FOR FLOATING CSR ADDRESS DEVICES:
A. ENTER THE DEVICE IN QT2,0T2,MT2,ASCDEV,DEVSTR,
FATABL,Q??:,

IN ITS RANK OF ORDER.

B. ADD OR MODIFY ROUTINES WITHIN THE PROGRAM FOR
SPECIAL CIRCUMSTANCES IN AREAS SUCH AS QUES,GFA,DONE.
FOR FLOATING VECTOR ADDRESS DEVICES:
A. ENTER THE DEVICE IN QT1,DT1,MT1,NAT,ADDRT,
VST,DEVSTR,Q??, IN ITS RANK OF ORDER.
ADD OF MODIFY ROUTINES WITHIN THE PROGRAM FOR SPECIAL
CIRCUMSTANCES IN AREAS SUCH AS QUES,GFA,DONE.

shkbkkkbhhkhhhkhkbk kb khkhhkkh kbbb kbbb hkhhkhhkhhkhkkhhkhk bbbk hhkah kbbb hhhhhkkhk

000000
000001
000002
000003
000004
000005
000006
000007
000015
000200
000012

000126

000001
. 000002
000004
000010
000020
000040
200100

RO=%0
Ri=%1
R2=%2
R3=%3
R4=%4
RS5=%5
SP=%6
PC=%7
CR=
15
= 200
NOCRLF
LF=

;REGISTER DEFINITIONS

BITO=
BIT1=
BIT2=

:BIT DEFINITIONS

BIT3=
BIT4=
BITS=
BIT6=

;LWLOO2

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 1-8

SEQ 0009

DEFINITIONS
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500

000200
000400
001000
002000
004000
010000
020000
040000
100000
104000
104001
104002

104003
104004
104005

104006

104007
104010
104011
104012

.MACRO

PRINT
ADR,RS

-WORD
“WORD

000042
000000

.=42
.WORD

000200
000204

000200
000137
000137

MOV

TYPE
.ENDM

000700
177560
177562
177564
177566

1000
2000
4000
10000
20000
40000
100000
104000
104001
104002
104003
104004
104005
104006
104007
104010
104011
104012

ERCHK

000000
200030
002260
000000

000700
000702
000704
533 000706
534
535

200

400

.MACRO
ERRCK
BR
.ENDM

501
502
503
504
505
506
507
508
509
510
518
519 000030
520 000032
521
522
523 000042

524
525
526
527
528
529
530
531
532

BIT7=
BIT8=
BIT9=
BIT10=
BIT11=
BIT12=
BIT13=
BIT14=
BIT15=
INPUT=
DATO=
ERRCK=
TYPE=
OTOA=
SHIFT=
OTDA=
SHIFT1=
SHIFT2=
SHIFT3=
SHIFT4=

.=200
JMP
JMP

001000
001000
TRS:
TRB:
TPS:
TPB:

;OCTAL TO OCTAL ASCII
;SPECIAL MULT & ADD
;OCTAL TO DECIMAL ASCII
;MULT BY 20 AND ADD GAP
:MULT BY 40 AND ADD GAP
:MULT BY 100 AND ADD GAP
:MULT BY 4 AND ADD GAP
;ERROR CHECKING MACRO
;GO CHECK FOR ERROR
;RETURN .+2 ON ERROR
ADR

;OUTPUT MACRO
;ADDRESS TO RS
;GO TYPE IT

: TRAP CATCHERS

EMTHND
0
:

;LOCATION FOR XXDP STACK POINTER
STARTA

STARTA

.=700
177560
177562
177564
177566

LIST

.SgTTL BEGIN

.=30

;EMT'S- GET INPUT
;:DECIMAL ASCII TO OCTAL
;ERROR
CHECK

MEB

;:START AT 200

ACTUALLY

1000

;LWLOO02
;LWLOO2

;RESTART AT 204...MUST GOTO START FIRST TIME THROUGH.

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2

SEQ 0010

001000
001004
001006
001012
001020
001026
001026
001032
001034
001034
001040
001042
001042
001046
001050
001054
001056
001060

000042

000700
001120
002260

012705
104003

015027

012705
104003

015102

012705
104003
012701
104000

015345

001074
001100
001102
001104

012705
104003
000757
112137
112137
112137

015556

001120
001122
001126
001132
001136
001140
001142
001144
001150
001154
001160
001164
001170

000005
012706

001174

001200
001204
001210
001214
001220
001224

000206
000030

1s:

.=1000
MOV

RESET

MOV
MOV
MOV
PRINT
MOV
TYPE
PRINT
MOV
TYPE
PRINT
MOV
TYPE
MoV
INPUT

;LWLO023$:

001411

001375
005037
005037
005037
005037
005037
005037
005037
005037
005037
005037
005037
005037
005037

START:

38:

121110

012700
012701
005021
005300

STARTA:

012144

000003
012155

001110
001114

.SBTTL START

062701
020127
001371

001062
0C1066
001072
556 001074

585

001000
010637
000005
012706
012737
012737

012277
012140
006332

;STORE THE XXDP STACK ADDRESS

#TRS,SP
#RES , 94206
#EMTHND, 30
#HELLO
#HELLO,RS

:SET THE STACK
:SETUP RESTART ADDRESS
:SETUP EMULATOR TRAP
;IDENTIFY FLOAT
:ADDRESS TO RS
;GO TYPE IT
;HOW TO GET HELP
;ADDRESS TO RS
;GO TYPE IT
;ASK FOR TERMINAL TYPE
;ADDRESS TO RS
;GO TYPE IT
;FILL TABLE
;GET IT

&HELP
#HELP,RS

#TERMQ
#TERMQ,RS
#TERMST,R1

CMPB

;INIT THE WORLD

(R1)+,(RO)

;LWLOO02

;WHICH ONE -A,L,V

(R1),(RO)
44

;WHICH ONE -A,L,V
;FOUND IT

ADD
CMP
BNE
PRINT
MOV
TYPE
BR
MOVB
MOVB
MOvB

#3,R1
R1,4TERMST+11
3
#TERMQ2
#TERMQ2,RS

;SKIP OVER TYPE,FILL CHAR. AND COUNT
;NO - END OF TABLE
;NO MAYBE THE NEXT WILL MATCH
;BAD INPUT --TELL HIM WHAT WE WANT
;ADDRESS TO RS
;GO TYPE IT
;AND DO IT AGAIN
:STORE TERMINAL TYPE
;SET FILL CHARACTER
:SET FILL COUNT

#2,R1

1$
(R1)+,TERMTP
(R1)+,CHAR
(R1)+,FILCNT

:SKIP OVER FILL CHAR.

;LWLOO2

CMPB
BEQ

;LWLO02 ADD

4s:

SP,a%42

;LWLOO2

AND COUNT

;LWLOO2

; THIS ROUTINE CLEARS OUT THE DEVICE DATA TABLE.

001004
000201
010430

011740
011742
011744
011746
011750
011752
011754
011756
011760
011762
011764
011766
011770

RES:

1%:

RESET
MOV

#START,SP

MOV
MOV
CLR
DEC
BNE
CLR
CLR
CLR
CLR
CLR
CLR
CLR

#DEVCNT#2.+1,R0
#0C,R1
(R1)+
RO
1$
FLAG
FLAG1
FLAG2
FLAG3
FLAG4
FLAGS
FLAG6

;& OF LOCATIONS TO CLEAR
:START OF DATA TABLE
;CLEAR IT!
:DECREMENT COUNT
;D0 AGAIN IF NOT EQUAL
;:CLEAR PROGRAM CONDITION BITS
;IF DM11-A AND DV11 WERE SELECTED PRINT DVMES
:IF DV11 WERE DECREASED PRINTS DVMSS
:IF DV11 WERE DECREASED TO ZERO PRINT DVNMS
;IF PA611-P AND LPD11 WERE SELECTED PRINT LPDMES
:IF LPD11 WERE DECREASED TO ZERO PRINT LPDMSS
:IF PA611-R AND VTVO1 WERE SELECTED PRINT VO1MES

CLR

FLAGS

;USED FOR CONTROL A

CLR
CLR
CLR

FLAG10
FLAG11
FLAG12

CLR

FLAG?7

FLAGY9

:IF VTVO1 WAS DECREASED PRINT VO1MSS

;USED FOR THE SELECTION OF DC11 AND DL11-A

:IF LPD11 WAS DECREASED PRINTS LPDESS
;USED IF PAR611-R, PA611-P OR LPD11 WAS SELECTED
:FOR PRINTING CSRVEC HEADER
;LWLOO2

;LWLO02 PRINT
&HEAD
;TITLE-ASK OPTION
; GET THE OPTION AND SETUP THE POINTERS FOR IT

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-1

SEQ 0011

START
586 001230
001230
001234
587 001236
001236
001242
588 001244
589 001246
590 001252
591 001254
592 001260
593 001262
594 001266
595 001270
596 001274
597 001276
001276
001302
598 001304
599
601
602

0C1306
604 001312
605 001314
606 001316
001316
001322
607 001324

€09
610
611
612 001326
613 001334
614 001340
615 00.344
616 001350
617
618
619
620 001352
621 001360
622 001364
623 001370
624
625
626

627
628
629 001374
630 001402

001402
001406
631 001410
001410

012705
104003

014612

012705
104003
104000
021027
001425
021027
001434
021027
001413
021027
001404

014643

012705
104003
000754

OPTION: PRINT
MOV

0P
@0P,R5

OPTNA:

#0P2
#0P2,RS5

040526

TYPE
PRINT
Hov
TYPE
INPUT

CcMP
BEQ
CcMP
BEQ
CMP
BEQ
CcMP
BEQ
PRINT
MOV
TYPE
BR

040506

042510
054105
015556

;ASK OPTION
;ADDRESS TO RS
;GO TYPE IT
;SKIP FIRST LINE
;ADDRESS TO RS
;GO TYPE IT
;WHICH OPTIN?
;VECTORS AND ADDRESSES
:BR IF YES
;FLOATING ADDRS ONLY
;BRANCH IF MATCH
;HELP?
;:BR IF YES
;EXIT?
:BR IF YES
:NO MATCH - TELL WHAT THEY ARE
;ADDRESS TO RS
;GO TYPE IT

(RO),#"VA

(RO),&"FA

(RO),&"HE

(RO),#"EX

4%
#TERMQ2
#TERMQ2,R5

OPTNA

;LWLOO2
;LWLOO2

;:LWLOO2
;LWLOO2
;LWLOO2
;LWLOO2

;AND TRY AGAIN

;LWLOO2

;:GET THE XXDP STACK ADORESS
;RETURN TO XXDP
:SHOULDN'T GET HERE
;PRINT HELP MESSAGE
;ADDRESS TO RS
;GO TYPE IT
;ASK OPTION AGAIN

;LWLOO02
;:LWLOO2
;LWLOO02
;LWLOO2

: GET HELP OR EXIT
013706
000207
000000

000042

012705
104003
000741

015102

4%:

5s:

MOV
RTS
HALT
PRINT
MOV
TYPE
BR

a%42,5pP
PC
@HELP
®HELP,RS

OPTION

; SETUP POINTERS FOR THE 'VA' OPTION
042737
012703
012702

012701
000411

000200
006362
006562
007204

011740

6%:

BIC

MOV
MOV
MOV

#BIT7,FLAG
#QT1,R3
#DT1,R2
#MT1,R1
8s

: SETUP POINTERS FOR THE ‘FA’
052737
012703
012702
012701

000200
006762
007072
007406

011740

;

7%:

BIS
MOV
MOV
MOV

;:DOING THE ‘VA‘

;R3<=Q TABLE

OPTION

:R2<=DATA TABLE 1
;R1<=MAXIMUM NUMBER TABLE 1
:START THE QUESTIONS
OPTION

#BIT7,FLAG
QT2,R3
#0T2,R2

:'FA'

OPTION

:TABLE 2

#MT2,R1

: ASK FOR THE NUMBER OF DEVICES.
012737

000001

012705
+04003

012210

011305

011760

8%:

QUES:

MOV
PRINT
MOV
TYPE
PRINT
MOV

#1,FLAGS

“Q
#Q,R5

(R3)
(R3).,R5

;0K TO USE CONTROL A
:START QUESTIONS HERE.
:ADDRESS TO RS
;GO TYPE IT
:TYPE DEVICE NAME
;ACDRESS TO RS

;LWLO02

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-2

SEQ 0012

START
001412
632 001414

001414
001420
633 001422
001424
635 001426
001426
001430
001432
001434
001436
001440
001442
001444
001444
001450
001452
001452
001456

TYPE
PRINT
MOV
TYPE
INPUT
DATO
ERCHK
ERRCK
BR
BR

104003
012705
104003
104000
104001

015024

104002
000401
000766

010032
022123
005711
001362

2s:

012705
104003

014510

012705
104003

014510

PRINT:

MOV
CMP
TST
BNE
PRINT
MOV
TYPE
PRINT
MOV
TYPE

#QMARK
#QMARK ,RS

2%
QUES
RO,8(R2)+
(R1)+,(R3)+
(R1)
QUES
#CRLF
9CRLF ,RS

&CRLF
#CRLF ,RS

.SBTTL GET FIRST ADDRESS

;GO TYPE IT
sAPPEND WITH '?*
;ADDRESS TO RS
;GO TYPE IT
sHOW MANY?
:CONVERT TO OCTAL
sANY ERRORS?
;GO CHECK FOR ERROR
;RETURN .+2 ON ERROR
;YES!!
ASK AGAIN!
:STORE ANSWER
;UPDATE POINTERS
:END OF LIST?
: THERES MORE
;END OF QUESTIONS
;ADDRESS TO RS
;GO TYPE IT
:
:ADDRESS TO RS
;GO TYPE IT

: THIS ROUTINE LOADS THE STARTING ADDRESS INTO THE DEVICE DATA TABLE
; FOR ALL DEVICES ( O FOR FLOATING ADDRESS DEVICES ).
001460
001466
001474
001500
001504
001510
001512
001514
001516
001520
001524
001530
001532
001534
001540
001542
001544
001550

012737
012737
012700
012701
012702
012021
005721
005302
001374
012700
012702
012203
001406
011063
011301
000240
000137
000137

000300
160010
007720
010432
000100

012034
007072

012030
012034

;

GFA:

1%:

TAG3:

000002

001554
002346

4%:

MOV
MOV
MOV
MOV
MOV
MOV
TST
DEC
BNE
MOV

#300,VECTOR
160010, ADDR
@ADDRT,RO
#DC+2,R1
®DEVCNT,R2
(RO)+,(R1)+
(R1)+
R2
1s
@ADDR, RO

;FIRST FLOATING VECTOR STARTS AT 300
i
ADDRESSES START AT 160010
;RO<=ADDR. TABLE
iR1<=DEVICE ADDR.DATA TABLE
;R2<=NUMBER OF DEVICES
:SET-UP FIRST ADDR.IN DEV.DATA TABLE
iR1+2-2 WORDS/DEVICE
:ONE LESS TO DO
;00 IT AGAIN?
; CURRENT ADDRESS LOCATION

MOV
BEQ
MOV
MOV

ga:

(R2)+,R3
43
8R0,2(R3)
8R3,R1

—

;DEVICE DATA POINTER
:BRANCH IF NO MORE
:STORE ADDRESS
:GET DEVICE COUNT

JMP

DONE

;DONE CALCULATING FIRST ADDRESSES

MOV

@0T12,R2

: FLOATING DEVICE TABLE POINTER

:BRANCH TO 2% IF NO SPACES WANTED BETWEEN DEVICES.

;CHECK FOR SPECIAL DEVICES. RESR IS NOT USED BUT MUST HAVE A SPACE OF 10 FOR FA.
;RL11, RLV11, RX11, RX211, RXV11, RXV21, UNA, RQDX1,UDA, TU81 BOTH HAVE ONE
:STANDARD ADDRESS AND VECTOR. THE REST ARE FLOATING. THE LPA11 AND QVSS HAVE ONE
:STANDARD ADDRESS AND THE REST ARE FLOATING. THE DR11-B HAS A STANDARD ADDRESS
:AND STANDARD VECTOR FOR THE FIRST. THE NEXT HAS A STANDARD ADDRESS AND FLOATING
;VECTOR, THE REST ARE FLOATING ADDRESSES AND VECTOR.
001554
001560
001562
001564
679 001566

020327
001003
005701
001401
005301

010660

CMP
BNE
TST
BEQ
DEC

R3,4RESR
40$
R1
40¢
R1

+IS IT RESERVED
:BRANCH IF NOT

;CHECK IF RESERVED WAS SELECTED
;:BRANCH IF NOT

;DEC RESERVED SO IT WILL LEAVE A GAP

FLOAT - ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-3

SEQ 0013

GET FIRST ADDRESS
680 001570
020327
681 001574
001003
682 001576 005701
001600
001401
001602
005301
001604
020327
001610
001003
001612
005701
001614
001401
001616 005301
001620
020327
001624
001003
001626
005701
001630
001401
001632
005301
001634
020327
001640
001006
001642
005701
001644
001404
001646 005301
001650
005701
001401
001652
001654
005301
0C1656
020327
001662
001003
001664
005701
001666
001401
001670
005301
001672
020327
001676
001003
001700
005701
001702
001401
001704
005301
001706
020327
001712
001003
001714
005701
001716
001401
001720
005301
001722
020327
001726
001003
001730
005701
001732
001401
001734
005301

010634

010664

010644

40%:

41s:

42s:

CHP
BNE
TST
BEQ
DEC
CHP
BNE
TST
BEQ
DEC
CMP

43%:

010724

010730

UDAS$:

010754

TuBls:

011014

QVSS$:

R3,#LPAK

BNE

43%

BEQ
DEC

43%
R1

TST

010674

R3,ORL
414
R1
414
R1
R3, #RX
424
R1
424
R1

CMP
BNE
TST
BEQ
DEC
TST
BEQ
DEC
CMP
BNE
TST
BEQ
DEC
CMP
BNE
TST
BEQ
DEC
CMP
BNE
TST
BEQ
DEC
CHP
BNE
TST
BEQ
DEC

R3,#DRB
441
R1
44
R1
R1
44
R1
R3,#UNA
UDA$
R1
UDA$
R1
R3,#UDA
TUBL$
R1
TUB1$
R1
R3,#TUBL
QVss$
R1
QVSS¢
R1
R3,4QVSS
54
R1
54
R1

;IS IT THE RL11
:BRANCH IF NOT

sCHECK IF ANY RL11 WERE SELECTED
sBRANCH IF NOT
sDEC_FOR STANDARD ADDRESS AND VECTOR
:IS IT THE RX11

sBRANCH IF NOT
sCHECK IF ANY RX11 WERE SELECTED
:BRANCH IF NOT
sDEC_FOR STANDARD ADDRESS AND VECTOR
:IS IT THE LPA11-K
:BRANCH IF NOT
;
sCHECK IF ANY LPA11-K WERE SELECTED
sBRANCH IF NOT
sDEC_STANDARD ADDRESS
:IS IT THE DR11-8
sBRANCH IF NOT
sCHECK IF ANY DR11-B WERE SELECTED
sBRANCH IF NOT
sDEC FOR STANDARD ADDRESS AND VECTOR
sCHECK IF A SECOND DR11-B WAS SELECTED
sBRANCH IF NOT
sDEC_ FOR SECOND STANDARD ADDRESS
:IS IT THE DEUNA
:BRANCH IF NOT
sCHECK IF ANY DEUNA WERE SELECTED
sBRANCH IF NOT
sDEC_FOR STANDARD ADURESS AND VECTOR
;IS IT THE UDA
sBRANCH IF NOT
sCHECK IF ANY UDA WERE SELECTED
sBRANCH IF NOT
sDEC_FOR STANDARD ADDRESS AND VECTOR
:IS IT THE TU81
sBRANCH IF NOT
sCHECK IF ANY TU81 WERE SELECTED
sBRANCH IF NOT
iDEC_FOR STANDARD ADDRESS AND VECTOR
;IS IT THE QVSS
:BRANCH IF NOT
sCHECK IF ANY QVSS WERE SELECTED
sBRANCH IF NOT
iDEC FOR STANDARD ADDRESS

(8444444044048 0008008084888008008408088800008000000880808800000044

$222222222222222222222222222222222222222222222222222222222222222
i DO A CHECK FOR THE DEVICES THAT DON'T ADDRESS-UP BY 10

——

001736
001742
001744
001750
001752
001756
001760
756 00:764

020327
001432
020327
001427
020327
001424
020327
001421

010520
010620
010644

010720

5¢:

cHP
BEQ
CHP
BEQ
cne
BEQ
cne
BEQ

R3,00H
TAGL
R3,0vV31
TAGL
R3, 0LPAK
TAGL
R3, oMy
TAGL

s DH11 - 20
: VMV31- 20
; LPAK

- 20

i DMV

- 20

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85

10:38

Page 2-4

SEQ 0014

GET FIRST ADDRESS
737
738
739
740
741
742

001766
001772
001774
002000
002002
002006

Z:z 002010

020327
001425
020327
001410
020327
001410

000137

010734

CMP
BEQ
CMP
BEQ
CMP
BEQ
JMP

010730
010740

002102

R3, 4DMF
TAG2
R3,QUDA
TU$
R3,0KMS
TAG1
TAG

: DMF32- 40
; UDASO- 4
;

KMS11- 20

745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
Zgg

;.t..t‘.“‘tt‘.“".tt‘t‘tl..‘t"t“‘.““.“tt“‘t..‘tt“““‘.

002014
002016
002022
002024
002030
002034
002040
002042
002046
002052
002056
002060
002064
0C2070
002074
002076

764
765 002102
766 002106

001530
005764
000002

000137

001530

104007

004737
011063
104010
000137
004737
011063
104011
000137

020327

769
770
771
772
773
774
775
776
777
778
;79
80

002116
002122
002124
002130
002132
002136
002140
002144
002146
002152
002154

001750
020327
001742
020327
001742
020327
001737
020327
001743
020327
001740
020327
001744
000137

781 002160

782
783
784
785
786
787
788
789
790
791
792
793

002162
002164
002166
002170
002172
002174
002200
002202
002206
002210
002214
002216

006301

767 002110
768 002114

TAG4:

104005
000137
104012
000137
004737
011063

006301
006301
006301
006301
006301
020327
001423
020327
001420
020327
001003
032701

001530

006004
000002

001530
006042
000002

TUS:

TAGl:

TAG2:

QvSs:

001530

010750

TAG:

010754

010760
010774

011000
011004
011014
002014
:

SSHIF3:
SSHIF2:
SSHIF1:
SSHIFT:
SSHIF4:
010724

010750
010730
000004

SHIFT
JMP
SHIFT4
JMP
JSR
MOV
SHIFT1
JMP
JSR
MOV

TAG3

TAG3
PC,.BITE

8R0,2(R3)

TAG3
PC,BITE1
8R0,2(R3)

SHIFT2
JMP
JSR

TAG3
PC,BITE2

SHIFT3
JMP

TAG3

MOV

CMP

BEQ
CMP
BEQ
cMP
BEQ
cMP
BEQ
CcMP
BEQ
CMP
BEQ
CcMP
BEQ
JMP
ASL
ASL
ASL
ASL
ASL

ASL

CcMP
BEQ
CcMP
BEQ
CcMP
BNE
BIT

8R0,2(R3)

R3,4VS100
TAG1
R3,4TU81
TUS
R3,#KMV
TAG1
R3,#DHV
TAG1
R3,4DMZ32
TAG2
R3,4CPI32
TAG2
R3,#QVsS

:CALCULATE NEXT DEVICE ADDRESS
;PROCESS NEXT
sCALCULATE DEVICE ADDRESS BY 4
:PROCESS NEXT
sMAKE ADDR. DIVISIBLE BY 20
:STORE IT
:20 BYTES/UNIT
i

sMAKE ADDR.

DIVISIBLE BY 40

:STORE IT
;40 BYTES/UNIT
:

:MAKE ADDR. DIVISIBLE BY 100
:STORE IT
:100 BYTES/UNIT
;

: VS100- 20

: TUBL - 4
KMVil1-

: DHV11- 20
: DMZ32- 40

: CPI32- 40

QVvss

: QVss - 200

R1
R1
R1
R1
R1
R1
R3, 2UNA
GAP
R3,4VS100

sMULT. BY 100 OCTAL
;MULT. BY 40 OCTAL
sMULT. BY 20 OCTAL

TAG4

GAP

R3,#UDA

GAP3

#4 ,R1

sMULT.
BY 10 OCTAL

;MULT. BY 4 OCTAL

:IF UNA LEAVE GAP OF 4
:FOR THE UDA
:IF V5100 LEAVE GAP OF 4
:FOR THE Tu81
:IF UDA CHECK FOR BIT 2
:BRANCH IF NOT
;CHECK IF EVEN

FLOAT

ADDRESSES

AND VECTORS

MACRO Y05.02

Thursday 23-May-85

10:38

Page 2-5

SEQ 0015

GET FIRST ADDRESS
794
795
796
797
798
799

032222
002224
002230
002232
002236
002240
002244
002246
002250
002254
002256

800
801
802
803
804
805
806
807
808 002260
809 002262
810 002264
811 002270
812 002272
813 002276
814 002300
815 002302
816 002304
817 0C2306
818 002310
819 002312
520 002314
821 002316
822 002320
823 002322
824
825
826
827
828 002324
829 002330
830 002332
831 002336
832 002344
833
834
835
836
837
238
839
840
841
842

844
845
846
847
848
849
e50

002346
002352
002356
002260

001412
020327
001003
032701
001404
062701
060110
000v02
062701
060110
000002

010754

BEQ
CMP
BNE
BIT
BEQ
ADD
ADD
RTI
ADD
ADD
RTI

GAP3:

000004
000010

GAP1:

000004

GAP:

:
011604
014404
042704
006304
000174
005230
005636
002324

EMTHND:

177600
002276
EMTTAB:

sMAKE IT EVEN

;IS IT THE DMF
:IF NOT BRANCH
;CHECK FOR BIT 2
iMAKE IT EVEN
:ADD GAP OF 10
;ADD TO LAST ADDR.
:RETURN
:ADD GAP OF 4
;ADD TO LAST ADDR
;RETURN

4 ,R1
R1,8R0

MOV
MOV
BIC
ASL
JMP
SINPUT

DESTRO YED

(SP),.R4
-(R4),R4
#177600,R4
R4
SEMTTAB(R4)

;GET THE EMT
;STRIP EMT BITS

;MAKE IT A WORD

;GO TO IT
:SUBROUTINE INPUT

SDATO
SERRCK
STYPE
SOTOA
SSHIFT
SOTDA
SSHIF1
SSHIF2
SSHIF3
SSHIF4

006200
004752
002166
006116

002164
002162
002160
002170

005737
100005
062716
042737
000002

GAP
R3,0TUBL
GAP1
@4 ,R1
GAP
¢10,R1
R1,8R0

011740
000002
100000

SERRCK:
011740
1s:

TST
BPL
ADD
BIC
RTI

"
g
“
“
“
“
"
“

FLAG
1s
#2,(SP)
#BIT15,FLAG

DECIMAL ASCII TO OCTAL

ERROR
b g
OCTAL
MULT.
OCTAL
MULT.
MULT.
MULT.
MULT.

CHECK

TO OCTAL ASCII
& ADD
TO DECIMAL ASCII
BY 20 AND ADD GAP
BY 40 AND ADD GAP
BY 100 AND ADD GAP
BY 4 MAKE EVEN ADD GAP

:WAS ERROR FLAG SET

;PLUS - NO ERROR
;ERROR! RETURN TO ERROR ROUTINE.
;CLEAR ERROR CONDITION
sRETURN

.SBTTL CCMPUTE THE ADDR. +JUMPERS AND VECTORS
THIS ROUTINE PRINTS THE DEVICE NAME ,IT'S ADDRES
S , AND VECTOR/
JUMPER. THEN COMPUTES THE NEXT ADDRESS IF MORE THEN ONE EXISTS,
PRINTS IT IF IT DOES , OR IF NOT, CHECKS TO MAKE SURE THIS DEVICES
EXISTANCE DOES NOT AFFECT THE FOLLOWING DEVICE'S ADDRESS OR VECTOR.

: FIRST SETUP FOR THE OPTION
005037

105737

100047
012702

012142
011740

DONE:

010320
H

CLR
TST8
BPL
MOV
LR

SPEC
FLAG
1s
®ASCDEV,R2

;CLEAR SPECIAL FLAG
;WHICH OPTION?
:BRANCH FOR ‘VA*
iR2<=ASCII DEVICE POINTER TABLE
Y

LIt TTTTTTTTTrTTIIIYIYTMY

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-6

SEQ 0016

COMPUTE THE ADDR.,JUMPERS AND VECTORS
851
852
853
854
855
856
857
858
859
860

861
862

: SET THE DEVICE ADDRESS TO A MINUS ONE IF IT FOLLOWS THE DJ AND

FOR THOSE DEVICES THAT ARE A COMBINATION,
:+ IS NOT A FLOATING ADDRESS DEVICE.
s SPECIAL HANDLING IS REQUIRED TO LIST THE STANDARD CSR ADDRESS
: AND VECTOR ADDRESS AND THEN LIST THE FLOATING RANGE FOR EACH.

002364
002370
002374
002400
002404
002410
002414
002420
002424
002430
002434
002440
002444
002450
002454
002460

863
864
865
866
867
868
869
870
871
872
873
874
875
876
877 002464
878 002470
879 002474
880 002476
881 002502
882 002506
883 002510
884 002512
885 002514
886 002516
887 002522
888 002524
889 002526
890 002532
891 002534
892 002540
893 002542
002542
002546
894 002550
895 002554
896 002556
002556
002562
897 002564
002564
002570
898 002572
899
900
901

012701
010137
010137
010137
010137
010137
010137
010137
010137
010137
010137
010137
010137
010137
010137
010137

177777
010526
010532
010536
010546
010562
010572
010626
010642
010652
010712
010746
010766
010772
011012
011026

MOV
MOV
MOV

#-1,R1
R1,GT+2
R1,VSV.2
R1,LPS.2
R1,KWW+2
R1,DV.2
R1,DWUN+2
R1,V01+2
R1,TS11.2
R1,IP+2
R1,ML+2
R1,PCL+2
R1,KCT32+2
R1,IEX+2
R1,QNA.2
R1,LNV.2

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

;IF ADDRESS=-1 THEN
;THE DEVICE IS SKIPPED
;GT40,VSV11,LPS11,KW11-W,DV11,DWUN,VTVOL
;7S11,IP11,ML11,PCL11,KCT32,IEX,QNA,LNV11
;:HAVE STANDARD ADDRESS

g 200000000000
R RRRRRRRRRRRRERRRRRRRRRRRRRRTRYYRYY
T
T T T
T
T
T
T
T TM

012701

012700

000405
012702
012701
005000
005721
001031
022022
022127
001372
005742

021127

001366
005737
001403

012705
104003

010514
006362
010430

1$:

177777

017753

012705
104003

020151

012705
104003
000137

014503

37s:

38s:

001120

LRI

(R1),%4-1

;ANOTHER -1 IS THE END!!!!

BNE
TST
BEQ
PRINT
MOV
TYPE

DONE1
FLAGS
37s
&#LPDMSS
#LPDMSS,RS

BEQ
PRINT
MOV
TYPE

38
#DVNMS
#DVNMS ,RS

FLAG3

#END

IR R

#END ,RS

RES

OPTION

sSET OFFSET INTO ‘N'EXT 'A‘DDR.‘T'ABLE

DONE 1
#QT1,R2
#0C,R1
RO
(R1)2%
(RO)+,(R2)+
(R1)+,8-1
DONE1
-(R2)

MOV
TYPE
JMP

;DJ IS FIRST FOR ‘FA*

#0J-DC/72,RO

BR
MOV
MOV
CLR
TST
BNE
CMP
CMP
BNE
ST

CMP

011752

011746

#0J,R1

MOV

DONE1:

005737

001403

MOV

000032

sSET TO PROCEED!!
;USE THE SAME TABLE AS FOR THE QUESTIONS
;R1<=START OF DATA TABLE
;0 OFFSET INTO NAT
;D0 WE HAVE ANY?
:BR IF YES
;INC POINTERS
;D0 WE SKIP THIS ONE?
;NO (TWO -1'S TOGETHER IS END OF LIST)
;BACKUP FOR THE 'FA’' OPTION
;BRANCH IF SOME MORE!
;CHECK TO SEE IF LPD11 WERE DECREASED TO ZERO
;BRANCH IF NOT
;PRINT THE MESSAGE
;ADDRESS TO RS
;GO TYPE IT

;CHECK TO SEE IF THE DV11 WERE DECREASED TO ZERO
;BRANCH IF NOT
;:PRINT MESSAGE
;ADDRESS TO RS
;GO TYPE IT

skdhs

THE END

#ssss

;ADDRESS TO RS
;GO TYPE IT
;RESTART-(ACT-11 PATCH SHOULD GO HERE!)

Py P

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-7
SEQ 0017

COMPUTE THE ADDR.,JUMPERS AND VECTORS

$222222200222222222222222222222022222022
2222222 2222022222
: SPECIAL DEVICE DEPENDENT ROUTINES FOR ADDRESS.
:# CHECK IF DC11 AND DL11-A WAS SELECTED
002576
002602
002604
002610
002612
002616
002620

020127
001011
005737
001406
005737
001403
012737

010432

2%:

010430

010434
000001

CMP
BNE
TST
BEQ

MoV

#1,FLAGY

TST
BEQ

011762

R1,4DC.2
9

DC
oL
9

;CHECK IF IT IS THE DC11
;:BRANCH IF NOT
;CHECK IF DC11 WERE SELECTED
:BRANCH IF NOT
;:CHECK IF DL11-A WERE SELECTED
:BRANCH IF NOT
:SET FLAG FOR DC11 AND DL11-A

;% DV11 ADDRESS DEPENDS ON DM11-A ADDRESS
917 002626
918 002632
002634
002640
002642
002646
002650
002656
0C2664
002670
002674
002700
002706
002710
002716
002724
002726
002734
002742
002750
002754
002760
002764
002770
002774
003000
003006
003014
003016
003024
003030
003034
003036
003040

020127
001105
005737
001502
005737
001477
012737
013737
006337
006337
006337
032737
001403
062737
032737
001406
062737
063737
013737
005337
006337
006337
006337
006337
006337
063737
022737
103014
012737
005337
005737
001401
000741
012737

9s:

010446
010444

010560
000001
010444
012044
012044
012044
000010

011742
012044

000010
000020

012044
012044

33s:

000020
012044
010560
012046
012046
012046
012046
012046
012046
012044
000140

012044
010562
012046

345:

012044

011744

000001

011746

MOV

DEC

ASL
ASL
ASL
ASL
ASL
ADD

012046
012046

000001
010560
010560

CMP
BNE
187
BEQ
TST
BEQ
MOV
MOV
ASL
ASL
ASL
BIT
BEQ
ADD
BIT
BEQ
ADD
ADD

CMP
BHIS

MOV

35s:

DEC
ST
BEQ
BR

MOV

R1,4DMA.2
174
DMA
17$
DV
17$
#1,FLAGL
DMA, SAVE3
SAVE3
SAVE3
SAVE3
€10,SAVE3
33¢
#10,SAVE3
#20,SAVE3
344
#20,SAVE3
SAVE3,DV+2
Dv,SAVE4
SAVE4
SAVE4
SAVE4
SAVE4
SAVE4
SAVE4
SAVE3, SAVE4
#140,SAVE4

17¢

#1 ,FLAG2

DV
ov
35¢
34

#1 ,FLAG3

;CHECK IF IT IS THE DM11-A?
:BR IF NOT
;:CHECK IF DM11-A WERE SELECTED
;:BRANCH IF NOT
;CHECK IF DV11 WERE SELECTED
:BRANCH IF NOT
:SET FLAG THAT DM11-A AND DV11 WERE SELECTED
;:GET THE NUMBER OF DM11-A SELECTED
:FORM NEW ADDRESS FOR Dvi1i

;CHECK IF BIT THREE IS SET
;BRANCH IF NOT
;ADD 10 TO MAKE IT EVEN
;CHECK IF BIT FOUR IS SET
;:BRANCH IF NOT
;ADD 20 TO BE ON RIGHT BOUNDRY AND SAVE
:STORE NEW ADDRESS
;:GET NUMBER OF DV11 SELECTED
;
;:DEC BECAUSE SAVE3 HAS FIRST DV1i1 ADDRESS
;FORM ADDRESS OF LAST DVi1i

;ADD FIRST ADDRESS TO FORM LAST ADDRESS
;CHECK TO SEE IF IT IS TO HIGH

:BRANCH IF NOT

:SET FLAG THAT DV11 HAVE BEEN DECREASED

;:DECREMENT NUMBER THAT WAS SELECTED
;:CHECK TO SEE IF ANY LEFT
:BRANCH IF NOT
;GO BACK AND TRY AGAIN

:SET FLAG THAT DV11 WERE DECREASED TO ZERO

;

;# VTVO1 ADDRESS IS AFTER THE PA6-11R'S
003046

003052
003054
003060

020127
001007
005737
001404

010466

010464

17s:

CcMP

BNE
TST
BEQ

R1,#PAR+2

47%
PAR
474

;CHECK IF THE PA6-11R
;BRANCH IF NOT
;CHECK IF ANY PA6-11R WERE SELECTED
;BRANCH IF NOT

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-8

SEQ 0018

COMPUTE THE ADDR.,JUMPERS AND VECTORS
003062
003070
003072
003076
003100
003104
003106
003112
003114
003122
003124
003130
003132
003136
003140
003144
003146
003154
003160
003162
003166
003170
003176
0C3204
003212
003214
003222

012737
000431
020127
001012
005737
001050
005737
001404
012737
000414
020127
001036
005737
001033
005737
001430
012737
005737
001422
005737
001417
012737
062737
022737
001005
012737
005337

000001

011766

010472

MOV

47s:

011766

010470

000001

011766
484:

010476
011766
010474
000001
010624

011766

49%:

011766
000001
000160
000002

011754
010626
010624

000001
010624

011756

BR
cMP
BNE

TST
BNE
TST
BEQ
MOV
BR
CMP
BNE
TST
BNE
TST
BEQ
MOV
TST
BEQ
TST
BEQ
MOV
ADD

CMP

BNE
MOV
DEC

#1,FLAG11
494
R1,4PAP+2
484
FLAG11
45%
PAP
484
#1,FLAG11
494
R1,4LPD+2
45%

FLAG11

454

LPD

45
#1,FLAG11
Vo1
45$
FLAG11
45
#1,FLAG6
€160,V01+2
#2,V01
45
#1,FLAG?

Vo1

:SET FLAG FOR PAR SELECTION
:BRANCH TO FORM VTVO1 ADDRESS
;:CHECK IF THE PA611-P

:BRANCH IF NOT

:CHECK IF VTVO1 ADDRESS HAS BEEN FORMED

;:BRANCH IF YES
:CHECK IF ANY PA611-P WERE SELECTED

:BRANCH IF NO
:SET FLAG FOR PAP SELECTION
:BRANCH TO FORM VTVO1 ADDRESS
;CHECK IF LPD11
:BRANCH IF NOT
;CHECK IF VTVO1 ADDRESS HAS BEEN FORMED
:BRANCH IF YES
;CHECK IF LPD11 WERE SELECTED
:BRANCH IF NO
:SET FLAG FOR LPD11 SELECTION
;:CHECK IF ANY VTVO1 WERE SELECTED
;:BRANCH IF NOT
;:CHECK IF PAR, PAP OR LPD WERE SELECTED
;:BRANCH IF NOT
:SET FLAG THAT PA6-11R WERE SELECTED
;FORM NEW ADDRESS FOR VTVO1
;:CHECK FOR TWO VTvVO1
:BRANCH IF NOT
:SET FLAG THAT VTVO1S WERE DECREASED
;:DECREASE VTVO1S

;t LPD11 ADDRESS IS AFTER THE PA6-11P'S
003226
003232
003234
003240
003242
003246
003250
003256
003264
003270
003274
003300
003306
003314
003320
003324
003330
003334
003342
003350

1010
1011
1012
1013
1C14
1C15

003352

003360
003364
003370
003372
003374

020127
001063
005737
001460
005737
001455
012737
013737
006337
006337
006337
063737
013737

005337
006337
006337
006337
063737
022737
103014
012737
005337
005737

001401
000745
012737

ASO:

010472

010470
010474
000001
010470
012050
012050
012050
012050
010474
012052
012052
012052
012052
012050
000070

011750
012050

010476
012052

012052
012052

000001
010474
010474

011764

000001

011752

29%:

CMP
BNE
TST
BEQ
TST
BEQ

MOV
MOV
ASL
ASL
ASL
ADD
MOV

DEC

ASL
ASL
ASL
ADD

cMP
BHIS

MOV

DEC
TST
BEQ
BR
MOV

R1,4#PAP+2
10$
PAP
104
LPD
10¢

#1,FLAG4
PAP,SAVES

SAVES
SAVES
SAVES
SAVES,LPD+2
LPD,SAVE®
SAVE6
SAVE6
SAVE6
SAVE6
SAVES, SAVE6
#70,SAVE6

10¢
#1,FLAG10
LPD
LPD
364
29%
#1,FLAGS

;:CHECK IF THE PA611-P
:BRANCH IF NOT
:CHECK IF ANY PA611-P WERE SELECTED
;BRANCH IF NOT
;:CHECK IF ANY LPD11 WERE SELECTED
:BRANCH IF NOT
:SET FLAG THAT PA611-P AND LPD11 WERE SELECTED
;:GET THE NUMBER OF PA611-P SELECTED

;:FORM ADDRESS OF LPD11
;ADD ADDRESS TO TABLE
:GET NUMBER OF LPD11

;:DECREMENT BECAUSE LPD+2 HAS FIRST ADDRESS
:FORM NEW ADDRESS

;ADD FIRST ADDRESS TO FORM LAST ADDRESS
;CHECK TO SEE IF IT IS TOO HIGH
:BRANCH IF NOT
:SET FLAG THAT LPD11 WERE DECREASED TO ZERO
;:DECREASE LPD
»
;CHECK TO SEE IF ANY ARE LEFT
;BRANCH IF NOT
;GO BACK AND TRY AGAIN
;LPD11 WERE DECREASED TO ZERO

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-9

SEQ 0019

COMPUTE THE ADDR.,JUMPERS AND VECTORS

1016
1017
1018
1019
1020
1021
1022
1023
1024
1025 003402
105737
011770
1026 003406
100406
1027 003410
003410
012705
015746
003414
104003
1028 003416
052737
000200
1029 003424
003424
012205
003426
104003
1030 003430
020127
010436
1031 003434
001006
1032 003436
005737
011762
1033 003442
001403
1034 003444
0C3444
012705
020772
003450
104003
1035 003452
020127
010476
1036 003456
001022
1037 003460
005737
011750
1038 003464
001403
1039 003466
003466
012705
017335
003472
104003
1040 003474
005737
011764
1041 003500
001403
1042 003502
003502
012705
017542
003506
104003
1043 003510
005737
011752
1044 003514
001403
1045 003516
003516
012705
017335
003522
104003
1046 003524
020127
010562
1047 003530
001021
1048 003532
003532
012705
016121
003536
104003
1049 003540
005737
011742
1050 003544
001403
1051 003546
003546
012705
016716
003552
104003
1052 003554
005737
011744
1053 003560
001403
1054 003562
003562
012705
017121
003566
104003

PAARRARRAARA AR AR AR AR AR AR AR AR AR RAAR AR AR RA
bR AR AR hA bbb

bihbdhdddhhs

$222222220002220022222200222222222222222222222222222222222222277
+ CHECK HERE FOR A DEVICE THAT NEEDS A COMMENT TYPED.
i DURING THE PRINT ROUTINE, THE DL11,LPD11,DV11,VTVO1,RL11,TS11,LPA11,IP11
: RESER,RX11,DR11-B,ML11,UNA,UDA,KMS11,TU81,QVSS
¢+ WILL PRINT OUT
STANDARD CSR AND VECTOR ADDRESSES
i AND THEN LIST THE FLOATING VALUES FOR
: ADDITIONAL DEVICES REQUESTED BY OPERATOR.
10¢:

011770

4%:

TSTB
BMI
PRINT
MOV
TYPE
BIS
PRINT

MOV

39s:

50$:

S1$:

26%:

11$:

TYPE
CMP
BNE
TST
BEQ
PRINT
MOV
TYPE
CMP
BNE
TST
BEQ
PRINT
MOV
TYPE
TST
BEQ
PRINT
MOV
TYPE
TST
BEQ
PRINT
MOV
TYPE
CcMP
BNE
PRINT
MOV
TYPE
TST
BEQ
PRINT
MOV
TYPE
TST
BEQ
PRINT
MOV
TYPE

FLAG12
43
#CSRVEC
#CSRVEC,RS

#8IT7,FLAG12
(R2)+

(R2)+,RS

R1,4DL+2
39¢

FLAGY

39¢
®DLMESS
#DLMESS,RS
R1,#LPD+2
26%

FLAG4

504
®LPDMES
#LPDMES,RS
FLAG10

S1$
#LPDESS
#LPDESS,RS
FLAGS

26$

#LPDMES
#LPDMES,RS

R1,4DV+2
13%
#DVMESS
®DVMESS,RS
FLAG1

11¢
#DVMES
#DVMES ,RS

FLAG2

20
#DVMSS
#DVMSS RS

+HAVE WE BEEN THROUGH ONCE?
:IF YES, BRANCH
:'CSR VECTOR
'HEADER
:ADDRESS TO RS
;GO TYPE IT

;WE'VE BEEN THRU HERE

;LWL002
;LWLOO2
;LWLOO2
;LWLOO2

:TYPE DEVICE NAME
;ADDRESS TO RS
;GO TYPE IT
:IS IT THE DC11
:BRANCH IF NOT
;CHECK IF DC11 AND DL11-A WERE SELECTED
:BRANCH IF NOT
;PRINT MESSAGE
;ADDRESS TO RS
;GO TYPE IT
+IS IT THE LPD11
:BRANCH IF NOT
;CHECK IF PA611-P AND LPD11 WERE SELECTED
:BRANCH IF NOT
;PRINT MESSAGE
;ADDRESS TO RS
;GO TYPE IT
:HAS THE LPD11 BEEN DECREASED
:BRANCH IF NOT

;PRINT MESSAGE

;ADDRESS TO RS
;GO TYPE IT
sHAS THE LPD11 BEEN DECREASED TO ZERO
:BRANCH IF NOT
;PRINT MESSAGE
;ADDRESS TO RS
;GO TYPE IT
+IS IT THE DV11?
:BRANCH IF NOT
;PRINT DV11 MESSAGE
:ADDRESS TQ RS

;GO TYPE IT
;CHECK IF DM11-A AND DV11 WERE SELECTED
;BRANCH IF NOT
;PRINT MESSAGE THAT THEY WERE
;ADDRESS TO RS
;GO TYPE IT
;CHECK IF DV11 WERE DECREASED TO ZERO
:BRANCH IF NOT
iPRINT MESSAGE THAT THEY WERE
;ADDRESS TO RS
;GO TYPE IT

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-10

SEQ 0020

COMPUTE THE ADDR.,JUMPERS AND VECTORS

1055 003570
1056 003574
1057 003600
1058 003602
1059 003606
1060 003610

003610
003614
1061 003616
1062 003622
1063 003624
003624
003630
1064 003632
1065 003636
1066 003640
1067 003644
1068 003650
1069 003652
1070 003656
1071 003662
1072 003664
1073 003670
1074 0C3674
1075 003676
1076 003702
1077 003706
1078 003710
1079 003714
1080 003716
1081 003724
1082 003732
1083 003736
1084 003742
1085 003746
1086 003750
1087 003754
1088 003760
1089 003762
1090 003766
1091 003772
1092 003774
1093 004000
1094 004004
1095 004006
1096 004012
1097 004016
1098 004020
1099 004024
1100 004030
1101 004032
1102 004036
1103 004042
1104 004044
1105 004050
1106 004054
1107 004056

000137
020127
001014
005737
001411
012705
104003
005737
001403
012705
104003
020127
001007
005337
012705
104003
000137
020127
001007
005337
012705
104003
000137
020127
001022
105737
100410
013737
012737
000137
005337
012705
104003
000137
020127
001007

005337
012705
104003
000137
020127
001007
005337
012705
104003
000137
020127
001007
005337
012705
104003
000137
020127
001015
005337

00433z
010626

20¢:
13¢:

011754

TST
BEQ

020345
011756

46%:

R1,#RL+2
14
RL
#RLMESS, RS

14s:

R1,&TS11+2
15¢
TS11
#TSMESS,RS

010634
016201
004310
010642

010640
016244
004310

15s¢:

010646

011740

010652

012040
010646

19s:

18s:

010650
016334
004310
010662

21%:

010660
016377

004310
010666

010674

CLEAN

CLEAN
R1,#LPAK+2
184
FLAG
19¢
LPAK+2,SAVEL
#170460,LPAK+2
PRI
LPAK
#LPKMES,RS

CLEAN

R1,4IP+2
21$
IP
#IPMESS,RS

CLEAN
R1,#RESR+2
22%
RESR
#REMES ,R5

CLEAN

22%:

R1,#RX+2
23$
RX
#RXMES ,RS5

23s:

R1,4DRB+2
244
DRB

010664
016412
004310
010676

FLAG6
464
#VO1MES
#VO1MES,RS

#VO1MSS,RS

010636

004310

PRI
R1,4V01.+2
464

FLAG?
464
#VO1MSS

020561

010646
170460
004332
010644
016307

JMP
CMP
BNE

CLEAN

;BACK TO ROUTINE
:IS IT THE VTvVO1
:BRANCH IF NOT
;CHECK IF BOTH PA6-11RS AND VTVO1 WERE SELECTED
:BRANCH IF NOT
;PRINT MESSAGE
:ADDRESS TO RS
;GO TYPE IT
;CHECK IF THE VTVO1 WAS DECREASED
:BRANCH IF NOT

;PRINT MESSAGE

:ADDRESS TO RS
;GO TYPE IT
:IS IT THE RL?
:IF NOT, BRANCH
;DECREMENT DEVICE COUNT
; THEN PRINT STANDARD CSR
;GO TYPE IT
;:BACK TO ROUTINE
:IS IT THE TS11?
:IF NOT, BRANCH

:DECREMENT DEVICE COUNT
;THEN PRINT STANDARD CSR
;GO TYPE IT
:BACK TO ROUTINE
;IS IT THE LPAK?
:IF NOT, BRANCH
;CHECK IF IN FA OR VA
;:BRANCH IF IN FA
:SAVE FLOATING ADDRESS
;REPLACE FLOATING ADDRESS WITH STANDARD
;:BRANCH FOR VECTOR
;:DECREMENT DEVICE COUNT
; THEN PRINT STANDARD CSR
;GO TYPE IT
:BACK TO ROUTINE
;IS IT THE IP11
:IF NOT, BRANCH
;:DECREMENT DEVICE COUNT
;PRINT STANDARD CSR
;GO TYPE IT
;CONTINUE TEST
;IS IT THE RESR
:IF NOT BRANCH
;:DECREMENT COUNT
;PRINT NOT USED
;GO TYPE IT
;COUNTINE TEST
:IS IT THE RX11
:BRANCH IF NOT
;:DECREMENT DEVICE COUNT
;PRINT STANDARD CSR
;GO TYPE IT
;:CONTINUE TEST
:IS IT THE DRB
:BRANCH IF NOT
;DECREMENT DEVICE COUNT

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-11

SEQ 0021

COMPUTE THE ADDR.,JUMPERS AND VECTORS
1108 004062
1109 004070
1110 004076
1111 004102
1112 004104
1113 004110
1114 004114
1115 004116
1116 004122
1117 004126
1118 004130
1119 004134
1120 004140
1121 004142
1122 004146
1123 004152
1124 004154
1125 004160
1126 004164
1127 004166
1128 004172
1129 004176
1130 004200
1131 0C4204
1132 004206
1133 004212
1134 004216
1135 004220
1136 004224
1137 004230
1138 004232
1139 004236
1140 004242
1141 004244
1142 004250
1143 004254
1144 004256
1145 004262
1146 004266
1147 004270
1148 004274
1149 004276
1150 004300
1151 004302
1152 004304
1153 004310
1154 004314
1155 004316
004316
004322
1156 004324
1157 004326
1158
1159
1160
1161
1162 004332

013737
010676
012737
172430
012705
016455
104003
000137
004310
020127
010712
001002
000137
004332
020127
010726
001007
005337
010724
012705
016520
104003
000137
004310
020127
010732
001007
005337
010730
0:i2705
016563
104003
000137
004310
020127
010742
001005
012705
021334
104003
000137
004310
020127
010756
001007
005337
010754
012705
016626
104003
000137
004310
020127
011016
001007
005337
011014
012705
016671
104003
000137
004310
020127
010462
001021
013705
010460
006305
006305
006305
005405
000137
004332
005761
177776
001006
012705
104003
005741
000137

012042
010676

24%:

25%:

UNA$:

52%:

27%:

Qvs:

DR$:

CLEAN:

014510

004426

PRI:

MOV
MOV
MOV
TYPE
JMP
CMP
BNE
JMP
CMP
BNE
DEC
MOV
TYPE
JMP
CMP
BNE
OEC
MOV
TYPE
JMP
CMP
BNE
MOV
TYPE
JMP
CMP
BNE
DEC
MOV
TYPE
JMP
CMP
BNE
DEC
MOV
TYPE
JMP
CcMP
BNE
MOV
ASL
ASL
ASL
NEG
JMP
TST
BNE
PRINT
MOV
TYPE
TST
JMP

-(R1)
PRIN

:SET UP TO SUBTRACT
:GET OVER CLEAN UP ROUTINE
;ARE THERE ANY LEFT?
:YES, THEN BRANCH
;sCR/LF
;ADDRESS TO RS
;GO TYPE IT
;ADJUST POINTER
;CLEAN UP

#CRLF

;CR/LF

DRB+2, SAVE?2
#172430,DRB+2
#DRBMESRS
,
CLEAN
R1,4ML.2
254
PRI
R1,#UNA+2
UNA$
UNA
#UNAMESRS
,
CLEAN
R1,%UDA+2

524
UDA
#UDAMES,
RS
CLEAN
R1,#KMS+2
274
#KMSMES
, RS
CLEAN
R1,4TUB1.+2
Qv$
Tus1
#TUB1MS,RS
CLEAN
R1,#QVSS+2
DR$
QVsSs
#QVSSMSRS
,

CLEAN
R1,#DR+2
PRI
DR,R5
RS
RS
RS
RS
PRI
-2(R1)
PRI
#CRLF
#CRLF ,RS

:SAVE FLOATING ADDRESS
;REPLACE FLOATING ADDRESS WITH STANDARD
;PRINT STANDARD CSR
:GO TYPE IT
;CONTINUVE TEST
+IS IT THE ML11
:BRANCH IF NOT
:GET VECTOR
+IS IT THE DEUNA
sIF NOT BRANCH
;DECREMENT DEVICE COUNT
s THEN PRINT STANDARD CSR
;GO TYPE IT
:BACK TO ROUTINE
:IS IT THE UDA
:BRANCH IF NOT
;DECREMENT DEVICE COUNT
;PRINT STANDARD CSR AND VECTOR
;GO TYPE IT
;CONTINUE TEST
+IS IT THE KMS11
:BRANCH IF NOT
;PRINT MODEM MESS
;GO TYPE IT
;CONTINUVE TEST
+IS IT THE TuB1
:BRANCH IF NOT
:DECREMENT DEVICE COUNT
;PRINT STANDARD CSR AND VECTOR
;GO TYPE IT
:BACK TO ROUTINE
;IS IT THE QVSS
:BRANCH IF NOT
;DECREMENT DEVICE COUNT
;PRINT STANDARD CSR
;GO TYPE IT
;:BACK TO ROUTINE
+IS IT THE DR11?
:BRANCH IF NOT
:# OF DR11
sMULTIPLY BY 10

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-12

SEQ 0022

COMPUTE THE ADDR.,JUMPERS AND VECTORS
004332
004336
1163 004340
004340
004344
1164 004346
1165
1166
1167 004350
1168
1169
1170 004354
004354
004360
1171 004362
1172 004364
1173 004366
1174 004370
1175 004374
1176 004376
1177 004402
1178 004404
1179 004410
1180 0C4412
1181 004416
1182 004420
1183 004424
1184 004426
004426
004432
1185 004434
1186
1187
1188
1189
1190
1191
1192 004436
1193 004440
1194
1195
1196
1197
1198
1199
1200
1201 004444
1202
1203
1204
1205
1206
1207
1208
1209 004446
1210 004452
1211

012705
104003

014510

012705
104003
104004

016105

004737

004444

Ss:

MOV
TYPE
PRINT
MOV
TYPE
OTOA

FLAG
6%

;LWLO02 BR

4%:

JSR

012705
104003
005721

78:

012054

170460
012040

30¢:

172430
012042

31¢:
324:

007520

PRIN:

014510

PRINT
MOV
TYPE

;ADDRESS TO RS
;GO TYPE IT
;PRINT TAB TO OFFSET ADDRESSES
;ADDRESS TO RS
;GO TYPE IT

#TAB
#TAB,R5

;LWLO02 TSTB
;LWL002 BMI

;LWLO026$ :

012705
104003
005341
001420
005721
022711
001003
013711
000410
022711
001003
013711
000402
066011
000745

#CRLF ,RS

:CHANGE ADDRESS TO ASCII
;WHICH OPTIN?
:BR FOR 'FA’

PC,VECT

JSR

#A
#A,RS

;GO GET THE VECTOR

;GO TYPE IT

PC,JUMPER

;GET JUMPER OR SWITCH SETTING

:TYPE THE ADDRESS AND VECTOR/JUMPERS
;ADDRESS TO RS
;GO TYPE IT

DEC
BEQ
TST
CMP
BNE
MOV
BR

-(R1)
PRIN
(R1)+
#170460, (R1)
304
SAVEL,(R1)
324

;ANY MORE OF THE SAME?
:BRANCH IF NO MORE
;POINT TO ADDR OF DEVICE
;CHECK TO SEE IF ITS THE LPA11-K
:BRANCH IF NOT
;RESTORE FLOATING ADDRESS
:BRANCH TO CONVERT

BNE
MOV
BR

314
SAVE2, (R1)
324

:BRANCH IF NOT
;RESTORE FLOATING ADDRESS
:BRANCH TO CONVERT

#CRLF
#CRLF ,RS
(R1)+

:NEXT DEVICE
:ADDRESS TO RS
;GO TYPE IT
;ADJUST POINTER

(R1)+,(RO)+
DONE1L

:UPDATE POINTERS
:SEE IF ANY MORE

CcMP

ADD
BR

PRINT
MOV
TYPE
TST

#172430,(R1)

NAT(RO), (R1)
S5$

;CHECK TO SEE IF ITS THE DR11-B

:ADD GAP BETWEEN SAME DEVICES
;GO CONVERT

;% END OF CHECKS

022120
000137

002510

12%:

cMP
JMP

.SBTTL CALCULATE THE VECTOR

i THIS ROUTINE, AFTER CHECKING THE VECTOR, CONVERTS IT TO ASCII,
i THEN UPDATES IT FOR THE NEXT UNIT OR DEVICE.
010146

VECT:

MOV

R1,-(SP)

$2222222222200202222202222222222222222222222222222222222222272
7772
: SPECIAL DEVICE VECTOR CHECKING.......0oc00vuaus
i

;# THE VECTOR IS OK BEFORE WE GET TO THE DMA'S

020127
002501

010444

4%:

CMP
BLT

R1,4DMA
6%

;WORRY ABOUT CORRECT VECTOR?
:BR IF NO

;LWLOO2

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-13

SEQ 0023

CALCULATE THE VECTOR
1212
1213
1214 004454
1215 004460
1216 004462
1217 004466
1218 004470
1219 004474
1220 004476
1221 004502
1222 004504
1223 004510
1224 004512
1225 004516
1226 004520
1227 004524
1228 004526
1229 004532
1230 004534
1231 004540
1232 004542
1233 004546
1234 004550
1235 0C4554
1236 004556
1237 004562
1238 004564
1239 004570
1240 004572
1241 004576
1242 004600
1243 004604
1244 004606
1245 004612
1246
1247
1248
1249
1250 004614
1251 004622
1252 004624
1253
1254
1255
1256 004632
1257 004636
1258 004640
1259 004646
1260 004650
1261
1262
1263
1264
1265 004656
1266 004662
1267 004666
1268 004670

i# THE PA6'S FOLLOW THE DR’'S BUT HAVE A VECTOR GAP OF ONLY 4
020127
001476
020127
001473
020127
001470
020127
001465
020127
001462
020127
001457
020127
001454
020127
001451
020127

001446
020127
001443
020127
001440
020127
001435
020127
001432
020127
001427
020127
001424
020127
001421

010452
010456

gg:

2%.ODN02

;DN VECOR INCREASE BY 4

CcMP

R1,4#DMBB+2

;:DMBB INCREASE BY 4

010636

EEE

EE.ORLOZ

;RL11 VECTOR INCREASE BY 4

010642

gg:

2%.0T51102

:TS11 VECTOR INCREASES BY 4

010652

gzg

2%.OIP02

:IP11 VECTOR INCREASES BY 4

010666

ggg

2%.0RX02

;RX11 VECTOR INCREASES BY 4

010672

gg:

2%.00RH02

;:DRW VECTOR INCREASES BY 4

010676

ggz

2%.00RB¢2

;:DRB VECTOR INCREASES BY 4

010712

gg:

2%.0HL02

:ML11 VECTOR INCREASE BY 4

010726

gg:

2%.OUNA02

;UNA VECTOR INCREASE BY 4

010732

gg:

2%.000!02

;UDA VECTOR INCREASE BY 4

010752

gg:

2%.0V510002

:VS100 VECTOR INCREASE BY 4

010756

gg:

2%.0T08102

:TU81 VECTOR INCREASE BY 4

011012

gg;

2%"°NA.2

:QNA VECTOR INCREASE BY 4

011022

gg:

2%.0V53102

;VS31 VECTOR INCREASE BY 4

011026

gg:

2%.0LNV02

;LNV-11 VECTOR INCREASE BY 4

:# CORRECT VECTOR IF NEEDED
032737
001403
062737

000004

012030

000004

012030

;

BIT
BEQ
ADD

#8IT2,VECTOR
13
#4 ,VECTOR

;CHECK TO SEE IF VECTOR IS AT AN EVEN 10
;:BR IF 0K
;:ELSE ADD 4

;# GT40 VECTOR GOES UP BY 20 AND IS DIVISIBLE BY 20
020127
001007
032737
001403
062737

010526

1%:

000010

012030

000010

012030

cMP
BNE

R1,4GT+2
6%

:211’3. VECTOR

;ARE WE THERE?
:DON'T WORRY ABOUT IT
;CHECK IT

ADD

#10,VECTOR

;MAKE IT RIGHT

gé;

;# AND FINALLY MAKE SURE IT'S IN BOUNDS
012701
021127
003405

012030
000774

6%:

MOV

#VECTOR,R1

:SET R1 FOR OTOA ROUTINE

BLE

$IT'S OK!

CcMP

8R1,4774

#BADCON

;CHECK FOR HIGH VECTOR LIMIT

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-14

SEQ 0024

CALCULATE THE VECTOR
004670
004674
1269 004676

1270
1271
1272
1273
1274
1275
1276
1277
1278 004702
1279 004710
1280 004716
1281 004722
1282 004724
1283 004732
1284 004740
1285 004746
1286 004750
1287

1288
1289
1290
1291
1292 004752
1293 004756
1294 004760
1295 004762
1296 004764
1297 004770
1298 004774
1299 004776
1300 005002
1301 005004
1302 005006
1303 005010
1304 005012
1305 005014
1306 005016
1307 005020
1308
1309
1310
1311
1312
1313 005022
1314 005024
1315 005026
1316 005032
1317
1318
1319
1320
1321
1322 005036
1323 005042

012705
104003
000137

015605

MOV

TYPE
JMP

001120

#BADCON, RS
RES

;ADDRESS TO RS
;GO TYPE IT
;DONE!

;‘ttt“tt“‘ttt‘tt‘t‘t“tttt“‘t‘ttttt‘ittt“.““tttt“t“t.“t

012737
012737
005037
104004
012737
012737
066037
012601
000207

012704
010046
011103
010300
042700
052700
110044
022704
001002
012600
000002
006203
006203
006203
010300
000761

012076
012070
012076

004754
005000

2%:

MOV

#DBUF +6,S0TOA+2

;MODIFY OTOA ROUTINE - BUFFER START

MOV

#DBUF ,SOTOA+26

MOV

@ABUF,SOTOA+2
@A ,SOTOA+26

S5¢:

g?;

SSP)O.RI

012062

SOTOA:

.SBTTL OCTAL TO OCTAL ASCII
MOV
®ABUF , R4
:START OF BUFFER TO R4

177770
000060

1¢:

012062
012054
010120

CLR
OTOA
MOV

004754

005000

012030

012054

2s:

ADD

MOV
MOV
MOV

DBUF +6

VST(RO),VECTOR

RO, -(SP)
(R1),R3
R3,RO

;BUFFER END

:ZERO END OF BUFFER FOR CR/LF
;CONVERT YECTOR
;RESET OTOA ROUTINE

;ADJUST FOR NEXT

;RESTORE R1

:SAVE RO
;GET NUMBER
;S0 DOES RO

8IC
BIS
MOVB
CMP
BNE
:$¥

#177770,R0
#60,R0
RO,-(R4)
oA,R4
24
(SP)+,RO

;THE LAST 3 BITS ARE OF INTEREST!
iMAKE IT AN ASCII NUMBER!
;STORE IT
:ARE WE DOWN?
;NO-BR
:YEP! RESTORE RO

ASR

:GET THE NEXT 3 BITS

ASR
ASR
MOV
BR

R3
R3
R3,RO
13

:MOVE TO RO
;DOITTOITAGAIN!!!

.SBTTL JUMPER SELECT

: CONVERT THE ADDRESS BITS THAT ARE SET TO THEIR ASCII EQUIVALENT
010046
011100
012703
012704

JUMPER:

MOV
MOV

RO, -(SP)
8R1,R0

:SAVE RO
;RO<=ADDRESS

MOV

¢-4,R4

;GO FROM -4 TO 12

MOV

012070
177774

©®DBUF ,R3

iR3<=ASCII BUFFER

YT T

T LT

322222222222222202222222222222222222222222222222
2222222222222
: THE DEVICES THAT USE JUMPERS USE THE JUMPER TABLE (JT).
020127
001437

010516

gg:

2%.ODJ02

:THE DJ'S, DH'S, AND DQ'S USE JUMPERS

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-15

SEQ 0025

JUMPER SELECT
1324
1325
1326
1327
1328
1329
iggg

005044
005050

020127
001434

020127
001431

010542

005060
005064

020127
001426

010566

005052
005056

010522

CMP
BEQ

R1,4DH+2
1$
R1,40Q+2
1$
R1,4LKK+2
R1,4LK+2
1$

CMP
BEQ
;LWLO02 CMP
CMP
BEQ

1332

AR R R R R R R R R R R R R

iggg

; THE DEVICES THAT USE SWITCHES USE THE JUMPER TABLE (ST)

1333

1336
1337
1338
1339

005066
005072
005074
005100
1340 005102
1341 005106
1342 005110
1343 005114
1344 005116
1345 005122
1346 005124
1347 0C5130
1348 005132
1349 005134
1350 005140
1351 005142
1352 005146
1353 005150
1354 005152
1355 005154
1356 005160
1357 005162
1358 005166

1359 005170

1260
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380

020127
001420
020127
001415
020127
001412
020127
001407
020127
001404
020127
001401
000416
012705
000402
012705
005204
006000
103375
020427
001403
004737
000767

010552

010556
010576

105013
000207

005176
005200
005202
005204
005210
005212
005214
005220
005222
005226

006304
060405
111523
116513
160405
006204
122327
001402
112723
000207

CMP

010602
010606
010726
011774

012000

1s:
2%:

000012

005176

012600

005172
005174

CMP
BEQ
CMP
BEQ

3s:

BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
BR
MOV
BR
MOV
INC
ROR
BCC
CMP
BEQ
JSR
BR

MOV

;LWL0O02 CLRB
CLRB
RTS

CVTA:
000001
000054
000054

14:

R R

;LWLOO2
A R R R

R1,4DU+2
4%
R1,4DUP+2
43
R1,4DMC+2
44
R1,4DZ+2
4%
R1,#KMC+2
43
R1,8UNA+2
43
3
#ST,RS
28
#JT,RS
R4
RO
2%
R4,%12
3%
PC,CVTA

(SP)+,R0O

-(R3)
(R3)
PC

R R

R A R
T

A R

;RS<= SWITCH TABLE

iRS<= JUMPER TABLE
;THE FIRST 3 BITS WILL BE CLEAR
;SHIFT THE ADDRESS
sIF CLR - TRY THE NEXT
H
:BR IF FINISHED
;CONVERT TO ASCII
;00 IT AGAIN

;RESTORE RO

;ZERO BYTE FOR OUTPUT
;ZERO BYTE FOR OUTPUT

;LWLOO2

.SBTTL CONVERT
BIT TO ASCII ¢
ASL
R4
;R4 HAS A & BETWEEN O AND 11
ADD
R4 ,RS
;ADD IT TO RS ---POINTS TO CORRECT ASCII CHAR.S
MOVB
(RS),(R3).
;MOV CHARACTERS TO BUFFER
MOVB
1(RS),(R3)
SuB
R4 ,RS
;RESET RS
ASR
R4
;RESET R4
CMPB
(R3)+,9',
;70 MAKE IT NEAT---MAKE SURE THERE IS A COMMA
BEQ
1¢
;YEP!
OK!!
MOVB
& ,,(R3).
;PUT IT THERE
RTS
:
.SBTTL INPUT ROUTINE

FLOAT - ADDRESSES AND VECTORS

MACRO Y05.02

Thursdey 23-May-85 10:38

Page 2-16

SEQ 0026

INPUT ROUTINE

1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394

1395
1396
1397
1398

1399
1400

1401
1402

1403
1404
1405
1406
1407
1408
1409

1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421

1422
1423
1424
1425
1426
1427
1428
1429
1430

1431

——

1432
1433
1434
1435

012700
105777
105777
100375
117710
142710
121027

000200
000141

002405
121027

000172

003002
142710
121027
001021
000751
121027
001001
000745
121027
001002
000137
121027
001002
000137
005737
001430
121027
001025
105737
001404
022702
001411
000403
022702
001405
162701
162703
005052
012626
012705
104003
000137
121027
001431
032737
001411

042737
012777
105777
100375
121027
001403
112077
0006 56

021542
173442
173434

SINPUT: MOV
TSTB

TST:

173430

T1ST8

BPL
MOVB
8ICB
CMPB

;LWLOO2 BGT

11%:

000021

12%:

000003

2%:

001004
000032

001444
011760

7%:

BGT
8IC8
CMPB
BNE
BR
CMPB
BNE
BR
CMPB
BNE
JMP
CMPB

BNE
JMP

006562

8%:

TST
BEQ
CMPB
BNE
TST8
BEQ
CMP
BEQ
BR
CMP

000002
000002

9s:

SuB

000001
011740

007072

10%:

014510

Ss:
011740

000002
000134

011740
173224

173216

000015

TST
8TRB,(RO)
#I177,(RO)
(RO), 0141

2
11%

000040
000023

000002

8TRS

;LWLOO2 BLT
BLT

CMPB

001410
000177

#BUFF ,RO
8TRB

4s:

3s:

173204
18:

BEQ

SuB
CLR

MOV
PRINT
MOV
TYPE
JMP

CMPB
BEQ
BIT
BEQ
8IC
MOV
1578

(RO),0172

11%
#BITS, (RO)
(RO),#23
124
SINPUT
(RO), 021
2%
SINPUT
(RO),#3
64
START
(RO), 032

I4.
PRINT
FLAGS
54
(RO), 01
S5
FLAG
8
#0T2,R2
104
9
DT1,R2
#2,R1

108

#2,R3
8-(R2)

(SP)+,(SP)+
@CRLF
OCRLF ,RS

QUES
(RO), 0177
RUBOUT
®BIT1,FLAG
33
@BIT1,FLAG
@'\,9TP8

aTPs

BPL

BEQ
nOve
BR
PRINT

14
(RO).,9TP8
TST
OCRLF

CcHPe

(RO),oCR

:START OF BUFF TO RO

;KILL LAST CHAR.
;SEE IF HE TYPED ANYTHING

:BR IF NO
;STORE IT
;STRIP PARITY
;SEE IF ITS LOMWER CASE
;BR IF NO
:BR IF NO
sMAYBE
;:BRANCH IF DEFFINATELY NOT
;BRANCH IF DEFINITELY NOT
:IT IS - MAKE IT UPPER CASE IN BUFFER
;IS THIS XOFF?
;BRANCH IF NOT

;IF YES, START OVER
;IS THIS XON?
;BRANCH IF NOT
:IF YES, START OVER
;IS IT A tC?
:NO

;LETS START IT AGAIN!!!
;IS IT A CONTROL Z
:BRANCH IF NOT
;PRINT SELECTED LIST
+IS IT OK TO USE CONTROL A
;BRANCH IF NO
;IS IT A CONTROL A
:BRANCH IF NOT
;CHECK FOR VA OR FA
;BRANCH IF FA
;CHECK IF AT BEGINING OF VA TABLE
;BRANCH IF AT BEGINING
;BRANCH TO BACK UP TABLES
;CHECK IF AT BEGINING OF FA TABLE
;BRANCH IF AT BEGINING
;BACK UP MTL OR MT2
;:BACK UP QT1 OR QT2
:BACK UP DT1 OR DT2 AND CLEAR NUMBER
;RESTORE STACK
;00 A CRRAGE RETURN AND LINE FEED
;ADDRESS TO RS
;GO TYPE IT
;START AGAIN
;IS IT A DELETE?

s YEP!

;ARE WE IN DELETE MODE?
:NO-BRANCH
sYES..NOT ANY MORE!
;SEPARATE THE DELETED FROM THE NEM.
;WAIT FOR READY.
;A TERMINATOR?
;YES!
sNO. .JUST ECHO AND
;GET NEXT CHARACTER.

sPRINT A CR AND LF.

sLWLO02

sLWLO02
;LWLOO2
;LWLO02
;LWLOO2
;LWLOO2
;LWLOO2
;LWLO02

FLOAT - ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 235-May-85 10:38

Page 2-17

SEQ 0027

INPUT ROUTINE

1436
1437
1438
1439

035504
005510
005512
005516
005520
005524
005526
005534

1440
1341
1442 005536
1443 005544
1434 005546
1445 005554
1446 005562
1447 005566
1448 005570
1449 005574
1450 005600
1451 005602
1452 005604
1453 005606
1454 005610
1455 005614
1456 005620
1457 0C5624
1458 005626
1459 005630
1460 005632
1461 005634
1462
1463
1464
1465 005636
1466 005640
1467 005642
1468 005646
1469 005650
1470 005652
1471 005656
1472 005660
1473 005664
1474 005666
1475 005672
1476 005674
1477 005700
1478 005702
1479 005704
1430 005706
1481 005710
1482 005712
1483 005714
1484 005716
005716
005722
1485 005724
1436 005732
1487 005734
1438 005736

012705
104003
012700
000002
022700
002245
122737
001423
032737
001011
052737
112777
105777
100375
114077
105777
100375
000616
105740
010046
012760
112077
105777
100375
105710
001371
012600
000601

010146
010346
012701
005000
112103

014510
021542

021542
000126

012277

000002

011740

000002
000134

011740
173124

173116

173112
173104

4s:

012273
173066
173060

SDATO:
021542

000071

162703
006300
060003
006300
006300
060300
103356
000407

000060

012705
104003
052737

014513

104006

CMP1:

000015

120327

000411

MOV
MOVB
TSTB
BPL

TST8

000060

003011

68:
Ss:

1ST8
MOV

BNE
MOV
BR

122703
001433
120327

002414

MOV
TYPE
MOV
RTI
RUBOUT: CMP
BGE
CMPB
BEQ
BIT
BNE
BIS
MOVB
2%:
TST8
BPL
3s:
MOVB
18:
TSTB
BPL
BR

100000

CcMPB

ER:
T0B:

®BUFF ,RO
TST
vV, TERMTP
43
#BIT1,FLAG
3s
®BIT1,FLAG
2'\,8TPB
aTPS
23
-(R0),3TPB
aTPS
1$
TST
-(RO)
RO, -(SP)
#DCHAR,RO
(RO)+,8TPB
8TPS
S$
(RO)
63
(SP)+,RO
TST

#CR,R3

;IS THIS A VIDEO TERMINAL?
;BRANCH IF IT IS

sWAIT

:ECHO DELETE CHAR.
:WAIT FOR READY

:GET NEXT
:BACK-UP POINTER
:SAVE RO POINTER
;:GET DELETE SEQUENCE OF CHARACTERS
;OUTPUT FIRST CHARACTER
;READY FOR NEXT ONE?
:BRANCH IF NOT
:END OF STRING?
sNO,NEXT CHARACTER

;:RESTORE RO
:BACK TO INPUT ROUTINE

#BIT15S,FLAG
0K
#T8

;700 BIG

R3,871

ADD
ASL
ASL
ADD

RO,R3
RO

8CC
BR
PRINT
MOV
TYPE
BIS
BR
OTDA
PRINT

IL
#60,R3
RO

RO
R3,RO
CMP1
T0B
SILL
#ILL,.RS

;LWLOO02
;LWLO02

sIN DELETE HODE?
:BR IF YES
;NOW WE ARE!
:SEPARATE THAT THAT IS FROM THAT THAT IS NO MORE!!

;EOL?
;YES - BR
:SEE IF IT'S A NUMBER
;:CAN'T BE LESS THAN 60
OR
:
;GREATER THAN 71
;CHANGE TO OCTAL
;SHIFT OLD
;ADD TO NEW
;0LD & 2
;
A DIVIDE BY 8.ROUTINE!
22 AGAIN
:
;ADD (2+0LD+NEW) TO 10+0LD
;NO CARRY -- 0K
;ELSE IT'S T00 BIG
;IT'S AN ILLEGAL NUMBER
;PODRESS TO RS
;GO TYPE IT
;:SET ERROR FLAG
sEXIT

EXIT
R3,#60
IL

CcMPB

BGT
SuB
ASL

011740

@BUFF ,RO

:ADDRESS TO RS

;GO TYPE IT
:POINT RO TO BEGINNING OF BUFFER.
:RETURN
:CAN'T DELETE PAST BEGINNING OF BUFFER

.SBTTL DECIMAL ASCII TO OCTAL
MOV
R1,-(SP)
;SAVE R1
MOV
R3,-(SP)
;AND R3
MOV
#BUFF ,R1
;INPUT BUFF TO R1
CLR
RO
;RO GETS RESULT
MOVB
(R1)+,R3
;:GET CHAR.
BEQ
cMPB
BLT

IL:

@CRLF ,RS

;LWLOO02
;LWLOO02
;LWLOO02
;LWLOO2
;LWLOO2
;LWLOO02
;LWLOO02
;LWLOO2
;LWLOO02
;LWLOO02

FLOAT

ADDRESSES

AND VECTORS

MACRO Y05.02

Thursday 23-May-85

10:38

Page 2-18

SEQ 0028

DECIMAL ASCII TO OCTAL
005736
005742
1489 005743
1490 005746

1491 005752

012705
104003
000767
016601

021100

1492
1493
1494
1495

005754
005756
005760
005762

002767
012603
012601
000002

1497
1498
1499
1500
iggé

005764
005772
005774
006002

032737
001403
062737
000207

1503
1504
1505
1506
1507

006004
006012
006014
006022
006030

032737
001403
062737
032737
001403

1509 006040
1510 0C6042
1511 0C6050
1512 006052
1513 006060
1514 006066
1515 006070
1516 006076
1517 006104
1518 006106
lgég 006114

000207
032737
001403
062737
032737
001403
062737
032737
001403
062737
000207

1496

1508 006032

1521
1522
1353
1524
1525
1526
1527
1528
S29
1530

006116
006122
006126
006132
006136
006140

S31 005142

1532 006144

1533
1534
1535
1536
1537
1538
1529
ig:?

062737

012700
012705
017694
012701
005201
161504

014546
000002

EXIT:
oK:

000010

012034

000010

012034

000010

012034

BITE1l:

000010
000020

012034
012034

BADD:

000020

012034

000010

012034

BEX1:
BITE2:

000010
000020

012034
012034

BADS:

000020
000040

012034
012034

BADDS:

000040

012034

014575
006176
000006
177777

103375

BITE:
BEX:

BEX2:

005745
001404
062701
110120
000764
062701
110120
000002

1542 006172
154% 006174

000000
000001

CcMP

BLT
MOV
MOV
RTI

ER
2(SP),R1

;+ADDRESS TO RS
;GO TYPE IT
;GO SET ERROR
;RESTORE R1

T0B
(SP)+,R3
(SP)+,R1

;BR IF TOO BIG
;RESTORE R3
;RESTORE R1

(R1),RO

;:ENTER FOR EVEN
:BR IF EVEN
;ACD 10
EVEN OR 0DD

BIT
BEQ
ADD
BIT
BEQ

#10,ADDR
BADD
#10,ADDR
#20,ADDR
BEX1

;ENTER TO MAKE SURE ADDR 0 OR 40
;:BR IF EVEN
;ADD 10 TO MAKE IT EVEN
;ENTER FOR EVEN
:BR IF EVEN

RTS
BIT
BEQ
ADD
BIT
BEQ
ADD
BIT
BEQ
ADD
RTS

PC
#10,ADCP
BADS
#10,ADDR
#20,ADDR
BADDS
#20,ADDR
#40,ADDR
BEX2
#40,ADDR
PC

;ENTER TO MAKE SURE ADDR 0 OR 100
;BR IF ADDR BIT TWO IS CLEAR
;ADD 10 TO MAKE IT EVEN
;CHECK FOR BIT FOUR
;BR IF ADDR BIT FOUR IS CLEAR
;ADD 20 TO MAKE IT EVEN
;CHECK FOR ADDR BIT FIVE
;BR IF ADDR BIT FIVE IS CLEAR
;ADD 40 TO MAKE IT EVEN

ADD

000060

3s:

;:CHECK FOR MAXIMUM NUMBER

.SBTTL EVEN OR 0DD?
BIT
#10,ADDR
BEQ
BEX
ADD
#10,ADDR
RTS
PC

B8CC

000060

#T8,RS

#2C,ADDR

.SBTTL OCTAL TO DECIMAL
;DIVIDE BY
1.#10.*N
:
SET UP FOR A MAXIMUM OF TWO
3
SOTDA:
MOV
OMAXIUM,RO
MOV
#DIG2,RS
MOV
96(SP) R4
2%:
MOV
#-1,R1
1s:
INC
R1
sus
aR5,R4

061504

006146
006150
006152
006156
006160
006162
005166
006170

MOV
TYPE
BR
MOV

8RS,R4

TST
BEQ
ADD
MOVB
BR
ADD
MOVB
RTI

-(RS)
3s
#'0,R1
R1,(RO).
2$
#'0,R1
R1,(RO)«

.WORD
.WORD

O
1.

;ADD 20 TO MAKE IT EVEN

ASCII
DIGITS.

;POINTER TO STORE ASCII.
;POINTER TO DIVISOR TABLE.
;GET DIVIDEND.
;RESET COUNTER.
;THE QUOTIENT!
;00 THE PSEUDO DIVIDE!

:NO CARRY-TRY AGAIN.

;REPLACE WHAT WE TOOK.

;EOT?
;:BR IF YES
;MAKE IT ASCII
;STORE IT.
;:NEXT CHARACTER.
:MAKE LAST ASCII
;AND STORE IT
;RETURN

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2-19
SEQ 0029

OCTAL TO DECIMAL ASCII
1544 006176
1545
1546
1547 006200
1548 006204
1549 006206
1550 006212
1551 006214
1552 006222
1533 006230
1554 006236
1555 006240
1556 006244
1557 006246
1558 006254
1559 006262
1560 006270
1561 006272
1562 006276
1563 006302
1564 006304
1565 006306
1566 006310
0C6310

006314

1567 006316
1568 006320
1569 006324
1570 006326
1571 006330
1572 006332
1573 006334
1574 006336
1575 006342
1576 006344
1577 006352
1578 006356
1579 006360
1580
1581
1582
1583
1584

1585

000012

105777
100375
105777
100027

017737
042737
122737
001015
105777
100375
017737
042737
122737
001363
111577
122537
001412
105715
001004

012705
104003
000002
121527
001325
000002
012727
000010
000000
105777
100375
112777
005337
001367
000751

172500

DIG2:

.WORD

STYPE:

T1STB

172466
172462
177600
000023

172434
172430
177600
000021

XOFF
;

011772
011772
011772

172410
012140

XON:

TENDM:

BPL

BPL
MOV
BIC
CMPB
BNE

000200

1s:

FILL:
FILCNT:
FILLER:

172342

1s:

172334

aTPS

STYPE

9TRS

XON
8TRB,SVCHA
#177600, SVCHA
@23, SVCHA
XON

TSTB

8TRS

MOV

8TRB,SVCHA

BPL

XOFF

BIC
CMPB
BNE

177600, SVCHA
@21,SVCHA
XOFF

CMPB
BEQ
TSTB

(R5)+,CHAR
FILL
(RS)

MOvVB

BNE
PRINT

014510

000000
006334

.SBTTL OUTPUT ROUTINE

T1ST8

011772
011772
011772

10.

(R5),87PB

1s
&CRLF
#CRLF,RS

;READY?
;:NO
;CHECK FOR CHARACTOR
;BRANCH IF NOT
;SAVE CHARACTOR

;:CLEAR UNWANTED BITS
;CHECK FOR XOFF OR CONTROL S
;:BRANCH IF NOT
;CHECK FOR CHARACTOR
;WAIT FOR XON
:SAVE CHARACTOR
;CLEAR UNWANTED BITS
;CHECK FOR XON OR CONTROL Q

;WAITE FOR CONTROL Q

;PRINT IT
;FILL CHAR.???
:BR IF YES
;EOD ??
;NOT FOR SURE.

; YES

MOV
TYPE
RTI
CMPB
BNE

(RS),#NOCRLF
STYPE

;MAYBE ??
:SET FILL
:10 TO START

BPL
MOVB
DEC
BNE
BR

(PC)+,(PC).
10
0
aTPS
1s
#0,8TPB
FILLER
1s
TENDM

RTI
MOV
.WORD
.WORD
TSTB

.SBTTL DATA TABLES
.NLIST
BEX

;ADDRESS TO RS
;GO TYPE IT
:NO

:YES

;READY?

;:NO

;TYPE A NULL.
;1 LESS T0 DO
;00 IT AGAIN
;GO TEST FOR END OF DATA

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 3

SEQ 0030

DATA TASLES

1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600 006362
1601 006374
1602 006406
1603 006420
1604 006432
1605 006444
1606 006456
1607 006470
1608 006502
1609 006514
1610 0C6526
1611 006540
1612 006552
1613
1614
1615
1616
1617
1618
1619
1620
1621 006562
1622 006574
1623 006606
1624 006620
1625 006632
1626 006644
1627 006656
1628 006670
1629 006702
1630 006714
1631 005726
1632 006740
1633 006752

LTI

TSI

NN
Y?

:
H

THE TABLES ARE THE GUTS OF THIS PROGARM !

THESE

TABLES

MUST

REMAINTIN

ORDER'!

;* QUESTION TABLE (Qfl) - POINTS TO THE ASCII DEVICE NAMES
i
i
HL

012300
012444
012601
012736
013064
013212
013353
013501
013642
013767
014114
014241
014377

012321
012465
012622
012757

013106
013235
013374
013522
013663
014010
014135
014262
014420

012361
012516
012643
013000
013127
013270
013415
013544
013704
014031
014156
014303
014441

USED FOR ASKING THE QUESTIONS AND
WHEN TYPING THE ANSWERS FOR THE ‘VA'

OPTION.

.WORD
.WORD
.WORD

@6,Q7,Q8,Q9,Q10
Q11,Q12,Q13,Q14,Q15
Q16,Q17,Q18,Q19,Q20

.WORD
.WORD
.WORD
.WORD
.WORD

Q26,Q27,Q28,Q29,Q30 ;DMC,DZ,KMC11,LPP11,V21
Q31,Q32,Q033,Q034,Q35 ;V31,V01,0WR,RL11,TS11
Q36,Q37,Q38,Q39,Q40 ;LPAK,IP,KWC,RESR,RX11
Q41,Q42,Q043,Q44,Q45 ;DRW,DRB,DMP,DPV,ML
Q46,Q47,Q48,Q49,Q50 ;ISB,DMV,UNA,UDA,DMF

.WORD
.WORD

Q56,Q57,Q58,Q59,Q60
Q61,Q62,Q63,Q64

.WORD

.HWORD

Q21,Q22,Q23,Q24,Q25

Q51,Q52,Q53,Q54,Q55

;:DMBB,
DR ,PAR,PAP,LPD
;0T7,0X,0LC,DJ,DH
;GT,VSV,LPS,DQ,KWW
;DU,DUP,DV,LK,DWUN

;KMS,PCL,VS,TU,KMV

;KCT,IEX,DHV,DMZ,CPI
:QNA,QVS,VS31,LNV

;# DEVICE TABLE (VA OPTION) (DT1) - POINTERS TO THE DEVICE DATA TABLE

010430
010454
010500
010524
010550
010574
010620
010644
010670
010714
010740
010764
011010

010434
010460
010504
010530
010554
010600
010624
010650
010674
010720
010744
010770
011014

010440
010464
010510

010534
010560
010604
010630
010654
010700
010724
010750
010774
011020

THE ORDER

i*
T
T
&

QT1 TABLE. SO THAT WHEN YOU ASK FOR
THE NUMBER OF DC11'S YOU STORE THE
ANSWER IN THE DEVICE DATA TABLE FOR
THE DC11 AND NOT THE PA6'S.
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

IS DIRECTLY RELATED

TO THE

DMBB,DR,PAR,PAP,LPD
DT,DX,DLC.DJ,DH
GT,VSV,LPS,DQ,KWW
DU,DUP,DV,LK,DWUN
DMC,DZ,KMC,LPP,V21
V31,V01,DWR,RL,TS11
LPAK,IP,KWC,RESR,RX
DRW,DRB,DMP,DPV,ML
ISB,DMV,UNA,UDA,DMF
KMS,PCL,VS100,TU81,KMV
KCT32,IEX,DHV,DMZ32,CPI32
QNA,QVSS,VS31,LNV

-—-

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 4

SEQ 0031

DATA TABLES

1635
1636
1637
1638
1639 006762
1640 006774
1641 007006
1642 007020
1643 007032
1644 007044
1645 007056
1646 007070
1647
1648
1649
1650
1651
1652
1653
1654
1655 007072
1656 007104
1657 007116
1658 0C7130
1659 007142
1660 007154
1661 007166
1662 007200
1663
1664

:*QUESTION TABLE 2 (QT2) - POINTS TO THE ASCII DEVICE NAMES
%
USED FOR ASKING THE QUESTIONS FOR
i*
THE 'FA’ OPTION
H

012674
013150
013332
013544
013704
014052
014220
014441

012715
013212
013353
013565
013725
014073
014303

013021
013235
013415
013606
013767
014114
014325

QT2:

.WORD
.WORD
.WORD
.WORD
.WORD

010520
010574
010620
010660
010704
010734
010774
000000

010540
010600
010630
010664
010714
010740
011000

Q14,Q15,Q19,Q21,Q22 :0J,DH,DQ,DV,DUP
Q24,Q26,Q27,Q28,Q29 :LK,DMC,DZ ,KMC,LPP
Q30,Q031,Q33,Q034,Q36 :V21,V31,DWR,RL,LPAL1-K

Q38,Q39,Q040,Q41,0Q42
Q043,Q044,Q046,Q047,Q48
Q49,Q50,Q51,Q53,Q54
Q55,Q58,Q59,Q60,Q62
Q63

:KWC ,RESER,RX11,DRW,DRB

:DMP,DPV,ISB,DMV,UNA
:UDA,DMF ,KMS,VS100,TU81

:KMV,DHV ,DMZ32,CPI32,QVSS

;VS31

+*DEVICE
i
ik
i
ik

TABLE 2 (DT2) - USED WITH Q72 FOR STORING ANSWERS AND
FOR COMPUTING THE FLOATING ADDRESSES. IT
THEREFORE MUST BE IN THE ORDER OF THE
PRIORITY OF THE DEVICE. IT ALSO MUST
END WITH A ZERO.
(FA OPTION)

DT2:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

]

010514
010564
010614
010654
010700
010730
010760
011020

.WORD
.WORD
.WORD

DJ,DH,DQ,DU,DUP
LK,DMC,DZ,KMC,LPP
Vv21,V31,DWR,RL,LPAK
KWC,RESR,RX,DRW,DRB
DMP,DPV,ISB,DMV,UNA
UDA,DMF,KMS,VS100,
TU8L
KMV,DHV,DMZ32,CPI32,QVSS
VS31,0

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page S5

SEQ 0032

DATA TABLES
:# MAXIMUM NUMBER TABLES 1 € 2

1666

1667
1668
1669
1670
1671
1672
1673 007204
1674 007216
1675 007230
1676 007242

1677 007254
1678 007266
1679 007300
1680 007312
1681 007324
1682 007336
1683 007350
1684 007362
1685 007374
1686
1687
1688 007406
1689 0C7420
1690 007432
1691 007444
1692 007456
1693 007470
1694 007502
1695 007514

i# (MT1,MT2) - USED FOR THE 'VA' AND 'FA’ OPTIONS RESPECTIVELY
i
CONTAIN THE MAXIMUM NUMBER OF CONTROLLERS THAT
e
i
ik

IS SUPPORTED FOR EACH DEVICE. THEY MUST REMAIN
IN THE SAME ORDER AS QT1,DT1 AND QT2,DT2 AND
ALSO END WITH A ZERO.

i &

000040
000020
000010
000004
000020
000020
000002
000004
000020
000004
000012
000004
000004

000020
000020
000004
000004
000020
000020
000002
000002
000020
000012
000004
000001
000004

000040
000010
000037
000001
000004
000004
000002
000002
000012
000012
000006
000012
000012

MT1:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

32.,16.,32.,16.,16.
16.,16.,8.,8.,8.
8.,4.,31.,16.,16.
4,4,1,16.,1
16.,16..4,2,1
16.,16.,4,2,2
2,2,2,4,4
4,2,2,1,4
16.,16.,10.,10.,1
4,10.,10.,10.,10.
10.,4,6,10.,10.
4,1,10.,10.,10.
4,4,10.,2,0

;DC,DL,DP,DMA,DN
;DMBB,DR,PAR,PAP
,LPD
:0T,DX,DLC,DJ,DH
;GT,VSV,LPS,DQ,KWW
;0U,DUP,DV ,LK,DWUN
;:DMC,DZ,KMC11,LPP,V21
+V31,V01,DWR,RL,TS11
;LPAK,IP11,KW11C,RESR,RX11
;DORW,DRB
,DMP ,DPV ,ML
;158 ,DMV,UNA
,UDA ,DMF
;KMS,PCL,VS100,TU81,KMV
;KCT32,IEX,DHV,DMZ32,CPI32
;QNA,QVSS,VS31,LNV

000020
000002
000002
000002
000012
000012
000012
000012

000020
000020
000002
000001
000012
000012

000020
000020
000002
000004
000004
000012
000012

MT2:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

16.,16.,16.,16.,16.
2,16.,16..4,2
2,2,2.,4.,4
2,1,4,16.,16.
10.,10.,4,10.,10.
10.,10.,10.,6,10.
10.,10.,10.,10.,4
10.,0

;DJ,DH,DQ,DV,DUP
;LK,DMC,DZ,KMC11,LPP
;vel,v31,DWR,RL,LPAK
;KWC ,RESER,RX11,DRW,DRB
;DMP ,DPV,ISB,DMV,UNA
:UDA ,DMF ,KMS,VS100,TU81
;KMV,DHV,DMZ32,CPI32,QVSS
;VS31

000012

000000

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 6

SEQ 0033

DATA TABLES
1697
1698
1699
1700
1701 007520
1702 007532
1703 007544
1704 007556
1705 007570
1706 007602
1707 007614
1708 007626
1709 007640
1710 007652
1711 007664
1712 007676
1713 007710
1714
1715
1716
1717
1718
1719
1720
1721
1722 007720
1723 007732
1724 007744
1725 007756
1726 007770
1727 010002
1728 010014
1729 010026
1730 010040
1731 010052
1732 010064
1733 010076
1734 010110
1735
1736
1737
1738
1739
1740 010120
1741 010132
1742 010144
1743 010156
1744 010170
1745 010202
1746 010214
1747 010226
1748 010240
1749 010252
1750 010264
1751 010276
1752 010310
1753

:* NEXT ADDRESS TABLE

i# (NAT) - USED TO CALCULATE THE NEXT CSR ADDRESS (VA OPTION)
000010
000010
000002
000010
000010
000010
000020
000020
000010
000010
000020
000040
000020

000010

177770

000160
000400
000010
000020
000040
000020
000100

000010
000040
000040
000010
000010
000010
000010
000010
000020
000020
000010

177770
000040
000010
000010
000010

OF A LIKE DEVICE.

NAT:

.WORD

10,10,-10,10,10

;:0C,DL ,DP,DMA,DN

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

2,40,10,10,20
10,10,40,10,1C
10,10,40,10,0
10,10,10,10,10
20,160,10,10,4
20,400,10,10,10
10,10,10,10,0
10,20,10,4,40
20,40,20,4,20
40,20,20,40,40
20,100,10,40

:0T,0X,0LC,DJ,DH
:GT,VSV,LPS,DQ,
KWW
:0U,DUP,DV,LK,DWUN
;:DMC,DZ,KMC11,LPP11,V21
;V31,V01,DWR,RL,TS11
:LPAK,IP11,KWC,RESR,RX11
;DRW,DRB
,DMP ,DPV , ML
;IS8 ,DMV,UNA,UDA
,DMF
sKMS,PCL,VS100,TU81,KMV
;KCT32,IEX,DHV,DMZ32,CPI32
:QNA,QVSS,VS31,LNV

:*# ADDRESS TABLE
:# (ADDRT) - USED FOR LOADING THE DEVICE DATA TABLE (VA + FA OPTION)

WITH THE FIRST ADDRESS FOR EACH DEVICE.

MUST HAVE A ZERO ENTRY FOR
FLOATING ADDRESS DEVICES

i &

174000
170500
177420
172000
000000

000000
000000
170460
000000
000000
000000
164400
174440

176500

167770
176200
172000
000000
000000
172600
171400
000000
000000
164200
164100
000000

174770
172600
175610

ADDRT:

170400
175000

.WORD
.WORD
.WORD

.WORD
.WORD

000000
000000
000000
000000
000000
000000
000000
000000

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

174000,176500,174770,175000,175200 ;DC,DL,DP,DMA,DN
170500,167770,172600,172700,172700 ;DMBB,DR,PAR,PAP,LPD
177420,176200,175610,160010,000000 ;DT,DX,0LC,DJ,DH

172000,172000,170400,000000,172400 ;GT,VSV,LPS,DQ, KWW
000000,000000,175000,000000,172500 ;DU,DUP,DV,LK,DWUN

000000,000000,000000,000000,000000 ;DMC,DZ,KMC11,LPP,V21
000000,172600,000000,000000,172524 ;V31,V01,DWR,RL,TS11
170460,171400,000000,000000,000000 ;LPAK,IP11,KWC,RESR,RX11
000000,000000,000000,000000,176400 ;DRW,DRB,DMP,DPV,ML
000000,000000,000000,000000,000000 ;ISB,DMV,UNA,UDA,DMF
000000,164200,000000,000000,000000 ;KMS,PCL,VS100,TU81,KMV
164400,164100,000000,000000,000000 ;KCT32,IEX,DHV,DMZ32,CPI32
174440,000000,000000,176200
:QNA,QVSS,VS31,LNV

;% VECTOR SIZE TABLE
+# (VST) - USED TO CALCULATE THE NEXT VECTOR (VA OPTION)
L

000010
000004
000010
000020
000010
000010
000010
000010
000004
000010
000020
000010
000004

000010
000010
000010
000020
000010
000010
000010
000004
000004
000010
000010
000010
000020

000010
000010
000030
000020
000010
000010
000010
000010
000004
000004
000010
000004

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

4,10,10,10,10
10,10,10,10,10
20,20,30,10,10
10,10,20,10,10
10,10, 10.10.10
10,10,10,4.4
10 4.10.4.4
4,10,10,4
10 10.4.4.40
20,10,4,4,10
10,10,10,30,30
4.20 4.4

;DMBB,DR,PAR,PAP,LPD
;DT,DX,DLC,DJ,DH
;GT,VSV,LPS,DQ,KWW
;DU,DUP,DV,LK,DWUN
;:DMC,DZ,KMC11,LPP11,V21
;V31,V01,DWR,RL,TS11
;LPAK,IP,KWC,RESR,RX11
:DRW,DRB
,DMP ,DPV ML
:1SB,0MV,UNA,UDA
,DMF
+KMS,PCL,VS100,TU81,KMV
;KCT32,IEX,DHV,DMZ32,CPI32
:QNA,QVSS,VS31,LNV

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 6-1

SEQ 0034

DATA TABLES

1754
1755
1756
1757
1758 010320
1759 010332
1760 010344
1761 010356
1762 010370
1763 010402
1764
010414
1765 010426
1766

i# ASCDEV - USED INPLACE OF QT2 FOR THE 'FA’' OPTION WHEN TYPING ANSWERS
i1 %

011036
011132
011226
011322
011416
011512
011606
011725

011052
011146
011242
011336
011432
011526
011622

011066
011162
011256
011352
011446
011542
011640

ASCDEV:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

JS,HS,QS,US,
UPS
LKS,MCS,ZS,KMCS,PPS
Mv21,MV31,WRS,RLS,LPAKS
KWCS ,RESRS ,RXS ,DRWS, DRBS
DMPS ,DPVS, ISBS,DMVS,
UNAS
UDAS ,DMFS,KMSS,VS100S,
TUB1S
5g¥§§DHVS.OHZSZS.CP132S.QVSSS

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 7

SEQ 0035

DATA TABLES

{;23

DEVICE DATA TABLE

]

{;;g

MUST REMAIN IN ORDER OF THE VECTOR ASSIGNMENTS

1 &

1772
1773

1774

1775
1776 010430
1777 010434

010430

;%
i*

MUST END WITH TWO MINUS ONES

DEVSTR

i*
DC:
DL:

1778 010440

DP:

1781 010454

DMBB :

1779 010444
1780 010450

DMA:
DN:

= .
.BLKW
.BLKW

2
2

.BLKW
.BLKW

2
2

.BLKW
.BLKW

1782 010460
1783 010464
1784 010470
1785 010474
1786 010500
1787 010504
1788 010510
1789 010514
1790 010520
1791 010524
1792 010530
1793 010534
1794 010540
1795 010544
1796 010550
1797 010554
1798 010560
1799 010564

DR:
PAR:
PAP:
LPD:
DT:
DX:
DLC:
DJ:
DH:
GT:
VSV:
LPS:
DQ:
KWW :
DU:
DUP:
DV:
LK:

.BLKW
BLKW
.BLKW
BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
BLKW
.BLKW
.BLKW
.BLKW
.BLKW
BLKW
LOLKW
.BLKW
BLKW

1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815

DMC:
DZ:
KMC:
LPP:
vel:
V31:
VO1:
DWR:
RL:
TS11:
LPAK ;
IP:
KWC:
RESR:
RX:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
BLKW
.BLKW
.BLKW
.BLKW
.BLKW
BLKW
.BLKW
.BLKW
.BLKW
.BLKW

1800 010570

1816
1817
1818
1819
1820

010574
010600
010604
010610
010614
010620
010624
010630
010634
010640
010644
010650
010654
010660
010664

DWUN:

.BLKW

2
2

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

010670
010674
010700
010704
010710

DRW:
DRB:
DMP:
DPV:
ML:

.BLKW
.BLKW
BLKW
BLKW
BLKW

2
2
2
2
2

1822 010720
1823 010724
1824 010730

DMV:
UNA:
UDA:

BLKW
.BLKW
BLKW

2
2
2

1821 010714

ISB:

.BLKW

2 WORDS / DEVICE

;

FIRST

& OF THEM

SECOND

1ST ADDRESS

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

SEQ 0036

DATA TABLES

1825 010734

DMF ;

1826 010740
1827 010744
1828 010750
1829 010754
1830 010760
1831 010764
1832 010770
1833 010774
1834 011000
1835 011004
1836 011010

1837 011014

1840

000000

000100

177777

.BLKW
BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
BLKW
.BLKW
.BLKW
.BLKW

2
2
2
2
2
2
2
2
2
2
2

VS31:
LNV:

BLKW
.BLKW

2
2

DEVEND
i

011030

BLKW

KMS:
PCL:
VS100:
Tusl:
KMV
KCT32:
IEX:
DHV:
DMZ32:
CPI32:
QNA:

QVvSsS:

1838 011020
1839 011024
1841
1842
1::2 011030
1
1845
1846
1847

Page 7-1

HE
:#
i

.BLKW

.WORD

O,-1,-1

END OF DEVICE DATA TABLE
DEVCNT=DEVEND-DEVSTR/4

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 8

SEQ 0037

DATA TABLES

;#
;%
;%
;%
;#

THESE ASCII MESSAGES ARE POINTED TO BY THE 'ASCDEV' TABLE.
USED FOR THE 'FA’' OPTION
THEY DEFINE THE DEVICE, THE BOARD WITH THE JUMPERS/SWITCHES,
WHICH JUMPERS TO CUTOUT OR WHICH SWITCH AND THE SWITCHES TO
TURN ON OR OFF,

.REM ¢

FATABL:

JS:
HS:

QS:
US:
UPS:
LKS:
MCS:
ZS:
KMCS:
PPS:
Mv2l:

MV3l:
WRS:
RLS:

LPAKS:
KWCS
:
RESRS:
RXS:
DRWS:

DRBS:
DMPS:
DPVS:
ISBS:
DMVS:
UNAS
:
UDAS:
DMFS:

KMSS
:
VS5100S:
TUB1S:
KMVS:
DHVS:
DMZ32S:

CPI32S:
QVSSS:
VS31S:
.ENDR ¢

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

NN N N N N NS N N N SN SN NS SN N NS SN S SN SN S S SSSNSNNNSNNSNNNNNNNSN

1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896

DJ11'S
DH11'S
DQ11'S
pU11'sS
DUP11'S

M105
JUMPER(S) TO CUTOUT/<NOCRLF
>
M7277
JUMPER(S) TO CUTOUT/<NOCRLF
>
M105
JUMPER(S) TO CUTOUT/<NOCRLF
>
M7822
SW SWITCHES IN OFF POSITION/<NOCRLF>
M7867
SW1 SWITCHES IN OFF POSITION/<NOCRLF>
LK11'S
M7060
JUMPER(S) TO CUTOUT/<NOCRLF
>
DMC11 DMR11'S M8200,E113,M8207,E127-SWITCHES IN OFF POSITION/<NOCRLF>
M7819 ES81 M7814 E72 SWITCHES IN ON POSITION/<NOCRLF>
DZ11'S
KMC11'S
M8204 E65 M8206 SWITCHES IN OFF POSITION /
<NOCRLF>
sehhbksssass/<NOCRLF>
LPP11'S
22222
shtdhrstssss/<NOCRLF>
VMV21'S
M7067
atdsbsshkess/<NOCRLF>
VMV31'S
M7068
sssbhddbbnsss/<NOCRLF>
DWR70'S
27227
shbsbhssssss/<NOCRLF>
M7762
RL11'S
shbddssdssss/<NOCRLF>
LPA11'S
22222
shdbbbsassss/ <NOCRLF>
KWwi1-C'S
222?
sbtbhbbsssss/<NOCRLF>
RESERVED
22222
shkdhbbsssss/<NOCRLF>
RX11'S
M7846
shbbhdsssssss/<NOCRLF>
M7816
DR11-W'S
shdhssbsssss/<NOCRLF>
M7219
DR11-B'S
DMP11'S
M8207-YA sxssssssss/<NOCRLF>
sssassssssss/<NOCRLF>
DPV11'S
M8020
adssssssssss/ <NOCRLF>
ISB11'S
M8204
DMV1Ll‘'S
MB053-MA M8064-MA #/<NOCRLF>
UNA'
S
M7792 E40 SWITCHES IN OFF POSITION/<NOCRLF>
shdbkbbsisss/ <NOCRLF>
UDA’'S
22222
shdsssbsbsss/<NOCRLF>
DMF32'S
M8396
KMS11'S
M8206 MOD MB8640 ##4/<NOCRLF>
shadbdsrssss/ <NOCRLF>
VS100'S
1222?
sadbsssbsasss/<NOCRLF>
TUBL'S
2722
ssddssssssss/ <NOCRLF>
KMV11'S
7?2?
sbhddsssssss/ <NOCRLF>
DHV11 DHUL1 ?2?2?
DMZ32,CPI32 (ASYNCH) #ssas444/<NOCRLF>

CPI32 (SYNCH)
17?722
QVss
VS31
12?2?77

shbdbdssssss/<NOCRLF>
shsbbsnsssss/<NOCRLF>

stshssbsssss/ <NOCRLF>

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 9

SEQ 0038

DATA TABLES

1898 011036
1899 011036
1900 011052
1901 011066
1902 011102
1903 011116
1904 011132
1905 011146
1906 011162
1907 011176
1908 011212
1909 011226
1910 011242
1911 011256
1912 011272
1913 011306
1914 011322
1915 011336
1916 011352
1917 011366
1918 011402
1919 011416
1920 011432
1921 011446
1922 011462
1923 011476
1924 011512
1925 011526
1926 011542
1927 011556
1928 011572
1929 011606
1930 011622
1931 011640
1932 011667
1933 011712
1934 011725

1935

040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040

104
104
104
104
104
114
104
104
113
114
126
126
104
122
114
113
122
122
104
104
104
104
111
104
125
125
104
113
126
124
113
104
104
103
121
126

—

112
110
121
125
125
113
115
132
115
120
115
115
127
114
120
127
105
130
122
122
115
120
123
115
116
104
115
115
123
125
115
110
115
120
126
123

FATABL:
JS:
.ASCII
HS:
.ASCII
QS:
.ASCII
US:
.ASCII
UPS:
.ASCII
LKS:
.ASCII
MCS:
.ASCII
ZS:
.ASCII
KMCS:
.ASCII
PPS:
.ASCII
Mvel:
.ASCII
Mv3i:
.ASCII
WRS:
.ASCII
RLS:
.ASCII
LPAKS:
.ASCII
KWCS:
.ASCII
RESRS:
.ASCII
RXS:
ASCII
DRWS:
.ASCII
DRBS:
.ASCII
DMPS:
.ASCII
DPVS:
.ASCII
1ISBS:
.ASCII
DMVS:
.ASCII
UNAS
.ASCII
UDAS
.ASCII
DMFS:
.ASCII
KMSS:
.ASCII
VS100S: .ASCII
TUu81S:
.ASCII
KMVS:
.ASCII
DHVS:
.ASCII
DMZ32S: .ASCII
CPI32S: .ASCII
QVSSS:
.ASCII
VS31S:
.ASCII

.EVEN

/7 DJ11'S
/<NOCRLF>
/ DH11'S
/<NOCRLF
>
7 DQi1'S
/<NOCRLF
>
/7 DU11'S
/<NOCRLF
>
7/ DUP11'S
/<NOCRLF>
/ LK11'S
/<NOCRLF>
/ DMC11
/<NOCRLF
>
/7 DZ11'S
/<NOCRLF
>
/ KMC11'S
/<NOCRLF>
7/ LPP11'S
/<NOCRLF>
/ VMV21'S
/<NOCRLF>
7/ VMV31'S
/<NOCRLF>
/ DWR70'S
/<NOCRLF>
/ RL11'S
/<NOCRLF
>
7 LPA11‘'S
/<NOCRLF>
/ KW11-C'S
/<NOCRLF>
/ RESERVED
/<NOCRLF>
/ RX11'S
/<NOCRLF
>
/ DR11-W'S
/<NOCRLF>
/ DR11-B'S
/<NOCRLF>
/ DMP11'S
/<NOCRLF>
/ DPV11'S
/<NOCRLF>
/ ISB11'S
/<NOCRLF>
/ DMV11'S
/<NOCRLF>
/ UNA'S
/<NOCRLF
>
/ UDA'S
/<NOCRLF
>
/ DMF32'S
/<NOCRLF>
/ KMS11'S
/<NOCRLF>
~/ VS100‘'S
/<NOCRLF>
/ TUu81'S
/<NOCRLF
>
/ KMV11'S
/<NOCRLF>
/ DHV11 DHU11 /<NOCRLF>
/ DMZ32,CPI32 (ASYNCH) /<NOCRLF>
7/ CPI32 (SYNCH)
/<NOCRLF>
~/ Qvss
/<NOCRLF
>
/7 vs3i
/<NOCRLF
>

b—

emmee

FLOAT - ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 10

SEQ 0039

1941 011750
1942 011752
1943 011754
1944 011756
1945 011760
1946 011762
1947 011764
1948 011766
1949 011770
1950 011772
1951 011774
1952 012000
1953
1954
1955 012030
1956 012032
1957 012034
1958 012036
1959 012040
1960 012042
1961 012044
1962 012046
1963 012050
1964 012052
1965
1966
1967
1968
1969
1970 012054
1971 012062
1972 012070
1973 012140
1974 012142
1975 012144
1976 012155
1977 012177
1978 012210
1979 012273
1980 012277
1981
1982

FLAG:
FLAG1:
FLAG2:
FLAG3:
FLAGS:
FLAGS:
FLAG6:
FLAG7:
FLAGS:
FLAGY:

FLAG10:
FLAG11:
FLAG12:

054
054

062
064

SVCHA:
ST:
JT:

VECTOR:
OFFSET:
ADDR:
SAVE:
SAVEL:
SAVE2:
SAVES:
SAVE4:
SAVES:
SAVEG6:

i#
i#
040

000015
000000
101
015
117
015
010
000

040

000
012
120
012
040

000
040
124
110
010

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.ASCII
.ASCII
.EVEN

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

sUSED FOR

ERRORS=BIT15 , OPTION=BIT7 , RUBOUT=BIT1

sUSED FOR THE SELECTION OF DM11-A AND DVii
;USED WHEN THE SELECTED DV1i1 WAS DECREASED
sUSED WHEN THE SELECED DV1i1 WAS DECREASED TO ZERO
sUSED FOR THE SELECTION OF PA611-P AND LPD11

;USED WHEN THE LPD11 WAS DECREASED TO ZERO
sUSED FOR THE SELECTION OF PA611-R AND VTVO1
+USED WHEN THE VTVO1 WAS DECREASED
sUSED FOR CONTROL A

+USED FOR THE SELECTION OF DC11 AND DL11-A
sUSED WHEN THE LPD11 WERE DECREASED
;USED WHEN THE PA611-R, PA611-P OR LPD11 WERE SELECTED
sUSED FOR PRINTING CSRVEC HEADER
sLWLOO2
sUSED FOR XON AND XOFF
2./
;
ASCII SWITCH TABLE
.4,5,6,7,8,9,10,11,12,7 ;ASCII JUMPER TABLE

000000000

1937 011740
1938 011742
1939 011744
1940 011746

‘}.}OOOOOOOOOOOOOO

DATA TABLES

:VECTOR WORD
sFLAG IF OFFSET IS NEEDED
sCURRENT ADCRESS
sRETURN PC
sUSED TO STORE THE LPA11-K FLOATING ADDRESS
sUSED TO STORE THE DR11-B FLOATING ADDRESS
;USED TO CALCULATE THE NEW DV1i ADDRESS
sUSED TO CALCULATE THE LAST DVi1 ADDRESS
:USED TO CALCULATE THE NEW LPD11 ADDRESS
+USED TO CALCULATE LAST LPD11 ADDRESS

ASCII OUTPUT BUFFER
DO NOT CHANGE
!!!!
.ASCII
BiLKW
.WORD
.WORD
.BYTE
.ASCII
.ASCII
.ASCIZ
.BYTE
.BYTE
.EVEN

;ACSII OUTPUT BUFFERS

:SPACE BETWEEN CSR AND SW OR VECTOR

: FILL CHAR.

:STORAGE LOC FOR GT/DL11E SPECIAL CASE

'A,0,0,'L,15,100,'V,12,40;

<CR><LF>/

/0PTION:

#& FLOAT

/<NOCRLF>

TERM. CHARACTERISTICS TABLE

#&/<CR><LF><LF>

<CR><LF>/HOW MANY OF EACH DOES THE SYSTEM HAVE.(DECIMAL)/<LF>
10,40,10,0
+ BACKSPACE - SPACE - BACKSPACE
sLWLOO2
0
; TERMINAL TYPE
;LWLOO2

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 11

SEQ 0040

DATA TABLES

1984
1985
1986
1987
1988
1989 012300
1990 012321
1991 012361
1992 012402
1993 012423
1994 012444
1995 012465
1996 012516
1997 012537
1998 012560
1999 012601
2000 012622
2001 012643
2002 012674
2003 012715
2004 01273¢
2005 012757
2006 013000
2007 013021
2008 013042
2009 013064
2010 013106
2011 013127
012 013150
2013 013171
2014 013212
2015 013235
2016 013270
2017 013311
2018 013332
2019 013353
2020 013374
2021 013415
2022 013436
2023 013460
2024 013501
2025 013522
2026 013544
2027 013565
2028 013606
2029 013642
2030 013663
2031 013704
2C32 013725
2033 013746
2C34 013767
2035 014010
2036 013031
2037 014052
2038 014073
2C39 014114
2C40 014135

+¢ THE FOLLOWING ARE THE ASCII DEVICE NAMES POINTED TO BY QT1 AND QT2
i¢ THE 'VA' OPTION ( QT1 ) USES THEM FOR BOTH INPUT AND OUTPUT

3¢ THE

'FA'

OPTION (

QT2

) USES THEM FOR INPUT ONLY.

KEEP IN ORDER FOR CONVENIENCE!

103
114

120
115
116
115
122
101
101
120

124
130

114
112
110
124
123
120
121
127
125
125
126
113
127
115
132
115
120
115
115
124
127
114
123
120
120
127
105
130
122
122
115
120
114
123
115
116
104
115
115
103

061
061
061
061
061
061
061
066

104
061
061
061
061
061
064
126
123
061
061
061
120
061
061

125
103

061
103
120
126
126
122
061
101
061
061

123
061
061
061
120
126
061
102
126
101
101

123
114

Q1:
Q2:
Q3:
Q4:
Q5:
Q6:
Q7:
Q8:
Q9:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

Q11:
Qi2:
Q13:
Q14:

.ASCII
.ASCII
.ASCII
.ASCII

Q10:

.ASCII
.ASCII

/DC11'S
/DL11-A.B,W (TUS8) DLV11-A,B,F
/DP11'S
/DM11-A'S
/DN11-AA'S
/DM11-BB'S
/DR11-A,C,K'S DRV11
/PA611-R'S
/PA611-P'S

/ <NOCRLF
>
/<NOCRLF>
7/ <NOCRLF>
/<NOCRLF
>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF
>
/<NOCRLF>
/<NOCRLF>

/DT11,07'S
/DXx11‘'S
/DL11-C,D,E'S DLV11-E
/DJ11'S

/<NOCRLF>
/ <NOCRLF>
/<NOCRLF>
/<NOCRLF>

.ASCII

/LPD11

Q1S:

.ASCII

/DH11'S

Q20:

LASCII

/KW11-W KWVil

Q16:
Q17:
Q18:
Q19:
Q21:
Q22:
Q23:
Q24:
Q25:
Q26:
Q27:
Q28:
Q29:

Q30:

Q31:
Q32:
Q33:
Q34:
Q35:
Q36:
Q37:
Q38:
Q39:
Q40:
Ga1:
Q42:
Q43:
Q44:
Q45:
Q46:
Q47:
Q48:
Q49:
Q50:
Q51:
Q52:

.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/ <NOCRLF
>

/<NOCRLF>

/GT40
/VSV11'S
/LPS11
/DQ11'S

/<NOCRLF>
/<NOCRLF>
/<NOCRLF
>
/<NOCRLF>

/DU11 DUV1L1'S
/DUP11'S
/DV11'S
/LK11'S
/DWUN'S
/DMC11 DMR11'S
/DZ11 DZS11 DZvii DZ32'S
/KMC11'S
/LPP11'S

/ <NOCRLF>
/<NOCRLF
>
/<NOCRLF
>
/<NOCRLF>
/<NOCRLF>
‘¢NOCRLF>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF>

/vMV31'S
/VvTVO1'S
/DWR70'S
/RL11 RLV11'S
/TS11 TUu80'S
/LPA11'S
/IP11 IP300'S
/KW11-C'S
/RESERVED
/RX11 RX211 RXV11 RXV21'S
/DR11-MW‘S
/DR11-B'S
/DMP11'S
/DPV11‘'S
/ML11'S
/ISB11'S
/DMvVi1‘'S
/UNA'S
/UDA RQDX1'S
/DMF32'S
/KMS11‘'S
/PCL11'S

/<NOCRLF>
/<NOCRLF>
/ <NOCRLF>
/<NOCRLF
>
7/ <NOCRLF>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF
>
7/ <NOCRLF>
/ <NOCRLF>
/<NOCRLF>
/<NOCRLF>
/ <NOCRLF
>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF>
/<NOCRLF>

/vMv21'S

/<NOCRLF>

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thurscduy 23-May-85 10:38

Page 11-1

SEQ 0041

DATA TABLES
<041 014156
2042 014177
2043 014220
2044 014241
2045 014262
2046 014303
2047 014325
2048 014355
2049 014377
2050 014420
2051 01444
2052 Cl44é62
2053
2054
2055
2056

126
124
113
113
111
104
104
103
121
121
126
114

123
125
115
103
105
110
115
120
116
126
123
116

061
070
126

124
130

126
132
111
101
123
063
126

Q53:
Q54:
Q55:
Q56:
Q57:
Q58:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/VS100'S

/ <NOCRLF>
7/ <NOCRLF>

/TU81'S

/KMV11'S
/KCT32'S
/IEX'S
/DHV11 DHU11‘S
/DMZ32 CPI32 (ASYNCH)
/CPI32 (SYNCH)
/QNA'S

/<NOCRLF
>

/<NOCRLF>
/<NOCRLF>

/<NOCRLF>

/QVSS'S

/<NOCRLF>
/<NOCRLF>
/<NOCRLF>
/ <NOCRLF>
/<NOCRLF>
/<NOCRLF>

/VS31'S

/LNV11'S

3.“.“‘t“‘“‘.““‘.“‘.““““‘.“i.t“

““l“.“t‘lt‘....“

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85

10:38

Page

SEQ 0042

DATA TABLES
2058 014503
2059 014510
2060 014513
2061 014546
2062 014575
2063 014577
2064 014612
2065 014643
2066 014714
2067 014761
2068 014773
2069 015005

2070 015024
2071 015027
2072 015065
2073 015102
2074 015143
2075 015205
2076 015241

2077
2078
2079
2080
2081
2082
2083
2084
2085

015301
015345
015366
015411
015450
015516
015556
015605
015667

015
015
124
124

040

015
011
011
011
011
105
077
015
126
015
103
103
103
103
124
011
011
011
015
126
015
106

012
012
110
110

101

012
106
126
110
105
116
040
012
105
012
117
117
117
117
105
101
114
126
012
101
012
111

012
200
101
101

114
120
101
101
105
130
124
200
012
122
012
116
116
116
116
122
040
040
040
105
114
123
124

END:
CRLF:
ILL:
T18B:
MAXIUM:

OP:
OP2:

QMARK:
HELLO:

HELP:

TERMQ:

TERMQ@2:
BADCON:

.BYTE
.BYTE
.ASCIZ
.ASCII
.BLKB
.ASCIZ
-ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII

.ASCII
.ASCII
.ASCII
-ASCII
-ASCII
.ASCII
-ASCII

-ASCII
.ASCII
.ASCII
.ASCII
.ASCII
-ASCII
.ASCII

.ASCII
.ASCIZ

15,12,12,12,0
CR,LF,NOCRLF
/THAT'S NOT A VALID NUMBER!/
/THAT'S TOO
MANY! ONLY /
2
/ ALLOWED !/
<CR><LF>/POSSIBLE OPTIONS ARE/<CR><LF><NOCRLF>
/
FA-FLOATING ADDRESSES. (DJ,DH,DQ,ETC.)/<CR><LF>
7/
VA-FLOATING ADDRESSES AND VECTORS./<CR><LF>
7/
HE -HELP/<CR><LF>
7/
EX-EXIT/<CR><LF>
/ENTER OPTION:

/<NOCRLF>

/? /<NOCRLF>
<CR><LF><LF>/CZFLA FLOAT UTILITY PROG - /
/VERSION: CO /<NOCRLF>
<CR><LF><LF>/CONTROL C TO RESTART PROGRAM/<CR><LF>
/CONTROL Z TO PRINT SELECTED LIST/<CR><LF>
/CONTROL S TO STOP PRINTING/<CR><LF>
/CONTROL Q@ TO CONTINUE PRINTING/<CR><LF>

/CONTROL A TO BACK UP DEVICE LIST/<CR><LF><LF><NOCRLF>
/TERMINAL TYPES:/<CR><LF>
/
A = LA36 NO FILL/<CR><LF>
7/
L = LA120 100 FILL CHARACTER/<CR><LF>
7/
V = VTS2 OR VT100 S0 FILL CHARACTER/<CR><LF>
<CR><LF>/ENTER TERMINAL TYPE.(A,L,V)? /<NOCRLF>
/VALID RESPONSES ARE-/<CR><LF><NOCRLF>

;LWLOO2

;LWLOO2
;LWL002
;LWLOO2
;LWLO02

;LWLOO02
;LWLOO02
;LWLOO2

;LWL002
;LWLOO02
;LWLO02
;LWLOO2
;LWLOO2

;LWLOO2
<CR><LF>/SORRY, BUT THE REST OF THE DEVICE(S) WILL NOT /<CR><LF>
/FIT IN THE FLOATING VECTOR AREA!/<CR><LF><NOCRLF>
;LWL002

FLOAT - ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 13

SEQ 0043

DATA TABLES
2087 015733
2088 015746
2089 015756
2090 016024
2091 016034
2092 016102
2093 016105
2094 016121
2095 016201
2096 016244
2097 016307
2098 016334
2099 016377
2100 016412
2101 016455
2102 016520
2103 016563
2104 016626
2105 016671
2106
2107
2108
2109 016716
2110 016770
2111 017026
2112 017076
2113 017121
2114 017173
2115 017237
2116 017307
2117 017335
2118 017407
2119 017447
2120 017517
2121 017542
2122 017614
2123 017655
2124 017725
2125 017753
2126 020025
2127 020067
2128 020137
2129 020151
2130 020223
2131 020264
2132 020334
2133 020345
2134 020417
2135 020460
2136 020530
2137 020561
2138 020633
2139 020674
2140 020744
2141 020772
2142 021044
2143 021104

040
040
040
040
040
040
040

015
015
015
015
015
015
015
015
015
015
015
015

040
040
055

040

012
040
012
012
012
012
012
012
012
012
012
012
012
012

040

105
040
055

CSR:
CSRVEC:

040

200
040
124
061
061
061
061
116
061
061
061

061
061
061

TAB:
DVMESS:

RLMESS:
TSMESS:
LPKMES:
IPMESS:
REMES:
RXMES:
DRBMES
:
UNAMES:

UDAMES:
TUBLIMS:
QVSSMS:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

:LHLOO?

015
052
040
102
015
052
040
114
015
052
040
102
015
052
040
114
015
052
040
124
015
052
040
124
015
052
040
126
015
052
040
114
015
052
040

012
052
040
117
012
052
040
111
012
052
040
117
012
052
040
111
012
052
040
110
012
052

040

BVHES:

LPDMES
:

LPDESS:

DVNMS
:

040

110
212
052
040
124
012
052
040
111
012
052
04¢

.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

LPDMSS
:

VO1MES:

VO1MSS:

DLMESS:

CSR = /<NOCRLF>

;LWLOO02
;:LWLOO2
VECT
COMMENT/<CR><LF>
;LWLOO2
;LWLOO2
/
saea
coss
/<CR><LF>
;LWLOO02
/ /<LF><NOCRLF>
;LWLO02
/
/7<NOCRLF>
;LWLOO2
<CR><LF>/THE DV11 MODEM ADDRESS IS +20 , VECTOR IS +10/<NO
CRLF>
<CR><LF>/1ST CSR = 774400, 1ST VECT = 160/ <NOCRLF >
<CR><LF>/1ST CSR = 772520, 1ST VECT = 224/ <NOCRLF >
<CR><LF>/1ST CSR = 770460,

7/ <NOCRLF>

<CR><LF>/1ST CSR = 777200,

/<NOCRLF>

FOLLOWING AREA MODIFIED TO FIT NEW FORMAT

.ASCII

DVMSS:

/ DEVICE /
/
CSR
/ eeeeaa /

.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

;LWLOO02

<CR><LF>/

/++%DM11-A COMES BEFORE DV11
/

/<CR><LF>
/

/BOTH WERE SELECTED/<NOCRLF>

<CR><LF>/

/+++THE DV11S HAVE BEEN DECREASED,
/

<CR><LF>/

/BOTH WERE SELECTED/<NOCRLF>
<CR><LF>/

/LIMITED ADDRESS SPACE/<NOCRLF>
<CR><LF>/

/%#+THE PA611-P LEFT NO ROOM FOR /<CR><LF>

<CR><LF>/

/#++THE DM11-A LEFT NO ROOM FOR /<CR><LF>
/
/
/THE DV11/<NOCRLF>

<CR><LF>/
;tttPAGll OR LPD11

COMES BEFORE

/VTVO1 BOTH WERE SELECTED/<NOCRLF>
<CR><LF>/

/#+4VTVO1S HAVE BEEN DECREASED,
/
/LIMITED ADDRESS SPACE/<NOCRLF>

/<CR><LF>

:LWLO02

;LWLO02
/

;LWLOO02
iLWLOO02

;LWLO02
;LWLO02
;LWLOO2

<CR><LF>/

;LWLOO02
;LWLO02

/#%+IF DL11-E IS USED FOR TUS8 /<CR><LF>
/

/
/<CR><LF>

;LWLOO02

;LWLOO2

/THE LPD11/<NOCRLF>

;LWLOO02

;LWLO02
/

/<CR><LF>

;LWLOO02
;LWLOO02

/%%4PA611-P COMES BEFORE LPD11 /<CR><LF>

/#++LPD11S HAVE BEEN DECREASED,

;LWLOO02

/<CR><LF>

/LIMITED ADDRESS SPACE/<NOCRLF>

;LWLOO02

;LWLO02

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85

10:38

Page

13-1

SEQ 0044

DATA TABLES

2144 021154
2145 021220

124
040

110
040

105
040

2147 021334
2148 021406
2149 C21450

015
052
040

012
052
040

040
052
040

2146 021270

106

g{gg 021520
2152
2153 021542
2154

Errors detected:

053

000001

117

061

122

KMSMES:

060
BUFF :

s+ Assembler statistics

Work
file
reads: 0
Work
file writes: 0
Size of work file: 8578 Words
( 34 Pages)
Size of core pool: 19402 Words
( 74 Pages)
Operating system: RSX-11M/PLUS (Under VAX/VMS)

CZFLAC,CZFLAC/CR/-SP=CZFLAC

.ASCII
.ASCII

.ASCII

Elapsed time: 00:00:59.72

.ASCII
.ASCII
.ASCII
.ASCII

.EVEN

.END

/THERE IS NO STANDARD CONFIGURATION/<CR><LF>
7/
/
/FOR SYSTEMS WITH BOTH DC11 AND TUS8/<NOCRLF>
<CR><LF>/

/##«IF IT HAS A M8640 ADDRESS IS /<CR><LF>

/+10 VECTOR IS +10/<NOCRLF>
: INPUT BUFFER!!!
;THAT'S IT FOLKS!!!

;LWLOO2
/

;LWLOO2
;LWLOO02

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

CREF

SYMBOL CROSS REFERENCE

SYMBOL
A
ABUF
ADDR

ADDRT
ASCDEV
BADCON
BADD
BADDS
BADS
BEX
BEX1
BEX2
BITE
BITEL
BITE2
BITO
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
BIT2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT9

BUFF
CHAR
CLEAN

CMP1
CPI32
CPI32S
CR

CRLF
CSR
CSRVEC
CVTA
DATO

VALUE
012054
012062
012034

007720

010320
015605
006022
006076
006060
006002
006040
006114
005764
006004
006042
000001
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
021542
012140
004310

005650

011004

011667
000015

014510
015733
015746
005176
104001

PAGE 1

SEQ 0045

Vo2

REFERENCES

2-1170
2-1282
*2-649
*2-1512
2-650
2-847
2-1268
2-1504
2-1514
2-1511
2-1499
2-1507
2-1517
2-751
2-755
2-759
#1-470
#1-471
#1-480

#1-481
#1-482
#1-483
#1-484
#1-485
#1-472
#1-473
#1-474
#1-475
#1-476
#1-477
01-478
#1-479

2-1381

*2-559

2-1069
2-1132

$2-1469

2-775
6-1764

1-466

12-2065
12-2076
12-2084
13-2099
13-2113
13-2130
13-2148
2-642

#13-2087

2-1027
2-1357

#1-487

2-1283
2-1292
2-657
2-1513
#6-1722

2-1299
#10-1971
2-1498
*2-1515

#10-1970

+2-1500
2-1516

2-1503
*2-1518

2-1425

2-1427

2-1442

2-1444

2-831
2-1250
2-1258

2-1485

2-620

2-1028

2-1386

2-1438

2-1467

#13-2153

2-1144

2-1092
#2-1153

4-1661

#7-1835

*2-1505

2-1506

*2-1508

2-1510

2-1098

2-11v4

2-1112

2-1121

2-1127

#10-1957

#6-1758
#12-2084
#2-1506
#2-1516
#2-1513
#2-1501
#2-1509
#2-1519
#2-1498
#2-1503
#2-1510

2-1393
2-612

2-1436
2-1562
2-1075
2-1138
2-1482
3-1632

#9-1932

#10-1973
2-1086

2-1431
12-2066
12-2077
12-2085
13-2100
- 13-2114
13-2133

2-1470
12-2067
12-2078
13-2089
13-2101
13-2117
13-2134

10-1976
12-2068
12-2079
13-2091
13-2102
13-2118
13-2137

10-1976
12-2071
12-2080
13-2094
13-2103
13-2121
13-2138

10-1978
12-2073
12-2081
13-2095
13-2104
13-2122
13-2141

12-2059
12-2073
12-2082
13-2096
13-2105
13-2125
13-2142

12-2064
12-2074
12-2083
13-2097
13-2109
13-2126
13-2144

12-2064
12-2075
12-2084
13-2098
13-2110
13-2129
13-2147

2-643

2-1155

2-1162

2-1184

2-1421

2-1435

2-1566

#12-2059

#13-2088
#2-1366

2-634

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE
SYMBOL
DBUF
oC
DCHAR
DEVCNT
DEVEND
DEVSTR
DH
DHV
DHVS
DIG2
0J

DRBMES
DRBS
DRW
DRWS

DT1
D12

DuUP
oV
DVMES
DVMESS
DVMSS
DVNMS
DWR
DWUN
DX

V-

VALUE
012070
010430
012273
000100
011030
010430
010520
010774
011622
006176
010514
010434
010510
020772
010444
010454
010574
010734
011526
010700
011416
010720
011462
011000
011640
010450
002346
002510
010440
010704
011432
010540
010460
010674
016455
011402
010670
011366
004262
010500
006562
007072
010550
010554
010560
016716
016121
017121
020151
010630
010570
010504

PAGE 2

CREF

SEQ 0046

vo2

REFERENCES

2-1278
2-566
2-1454
2-565

#7-1841
#7-1774

2-729
2-7711
6-1764
2-1526
2-877
2-911
3-1623
2-1034
2-917
2-1216
2-1340
2-737
6-1763
3-1629
6-1762
2-735
6-1762
2-773
6-1764
2-1214
2-665
2-879
3-1621
3-1629
6-1762
2-1326
2-1145
2-695
2-1110
6-1761
2-1226
6-1761
2-1140
3-1623
2-614
2-622
2-1336
2-1338

*2-862

2-1051
2-1048
2-1054
2-896
3-1627

«2-863

3-1623

2-1279
2-651

*2-1280

2-652
7-1847
7-1847
2-1324
3-1632

#7-1847

2-878
2-1030
#7-1788
#13-2141
2-919
3-1622
3-1626
3-1630

#10-1979

#9-1930
#2-1544

#9-1925
4-1659
#9-1919

2-1315
2-881

#10-1972

3-1623
4-1661

4-1655
#7-1833

#7-1790

2-1322
3-1621

3-1623
®7-1777

4-1655

#7-1789

2-924
#7-1781
4-1656
4-1660

2-1209

3-1621

#7-1779

2-878

3-1621

#7-1776

#7-1818
4-1659

#7-1822

3-1632

4-1661

€7-1834

#9-1931
3-1621
#2-844
#2-883
#7-1778
4-1659
#9-1920
3-1624
2-1147
2-1105
#13-2101
#9-1918
3-1629
#9-1917
#2-1145
®7-1786
2-1415
2-658
3-1625
3-1625
2-921
©13-2109
€13-2094
#13-2113
#13-2129
4-1657
3-1625
©7-1787

2-909

#7-1801
#7-1825

3-1630

#9-1922

2-907

#7-1780

2-887

2-890

2-1193

4-1655
3-1622
+2-1107

*2-1109

2-1228

3-1629

4-1658

#7-1817

4-1658

#7-1816

*2-946

2-947

2-1046

3-1625

#7-1798

#7-1819

#3-1621

2-1412
4-1655
4-1655

*2-934

#7-1808
#7-1800

#4-1655
#7-1796
®7-1797

2-935

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE

CREF

SYMBOL

VALUE

REFERENCES

0Z
EMTHND

010600
002260
002276
014503
005724
= 104002
005746
011036
006332
006330
006334
011740

2-1342
1-519
2-812
2-897

011742
011764
011766
011770
011744
011746
011750
011752
011754
011756
011760
011762
002250
002240
002224
001460
010524
012155
015027
015102
011052
010770
005716
014513
= 104000
010650
016334
010714
011446
011036
012000
005022
010764
010604
011176
010740
021334
011542
010760

PAGE 3

+2-570

*2-1427
«2-571

3-1626
2-543

#2-813
#12-2058
2-1489

4-1656
#2-808

#7-1802

2-635
#2-1490

#2-1572
#2-1571
*2-1577
*2-612

2-1442
*«2-923

*2-620

*2-1444
2-1049
2-1040
2-963

2-828

*2-1485

2-1058
2-1061
2-1406
2-1032
2-794

#10-1938
#10-1947
*2-967
#10-1949
€10-1939
#10-1940
#10-1941
2-1043
#10-1943
#10-1944
#10-1945
€10-1946
2-798

2-1256

3-1624

#7-1791

2-544
2-545
6-1758

#12-2071
2-606
#9-1900

#12-2073

2-1473
2-1484

2-1475
#12-2060

+2-580

+2-581

*2-582
*2-572
«2-573

*2-574
*2-3575

*2-576
*2-577

«2-578

*2-579

2-788
2-796
2-792

#2-648
*2-858
#10-1976

*2-870

#1-486
+2-866

+2-1009
+2-959

2-1025
*2-945
2-894

*2-995
2-891

*2-980
*2-984

+2-629

*2-913

2-790
#2-799
#2-795

*2-1028
2-1052

*2-950

2-1037

*2-1014

3-1632

#7-1832
#2-1484

2-548

2-588
+2-1089

2-1087

2-1090
3-1630
6-1762
6-1758
2-1351

#13-2098
4-1659
#9-1921
#9-1899
#10-1952

+2-869
2-1344
6-1759
2-741
2-1130
6-1763
2-769

3-1632
3-1626
#9-1907
2-1128
#13-2147
#9-1926
3-1631

#2-1313

SEQ 0047

vo2

2-633
2-1222

*2-831
#10-1937

2-845

2-1078

2-1410

2-971

*2-975

2-978

#10-1948

#10-1942

#2-802

3-1628

#7-1821

#7-1831
4-1656

#7-1803

3-1631

4-1660

4-1661

7-1830

#7-1826

#7-1812

2-1425

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE

CREF

SYMBOL

VALUE

REFERENCES

KMVS
KWC
KWCS

011606
010654
011322
010544
= 000012

6-1764
3-1628
6-1761
*2-861

KWW

LK
LKS
LNV
LPAK
LPAKS

LPD

LPDESS
LPDMES
LPDMSS
LPKMES
LPP
LPS
MAXIUM

MCS

ML
MT1
MT2
Mv2l
MV31
NAT

NEXT
NOCRLF

OFFSET
0K

010564
011132
011024
010644
011306
010474

017542
017335

017753
016307
010610
010534

014575

011146
010710
007204
007406
011226
011242
007520
001554
= 000200

012032
005756

PAGE 4

#1-468

12-2065
12-2074
12-2082
13-2095
13-2104
13-2122
13-2141
2-1329
6-1759

«2-872

2-690
6-1760
2-969

7-1785

2-1042
2-1039
2-893
2-1084
3-1626
+2-860
2-1525
6-1759
*2-867
2-615
2-623
6-1760
6-1760
2-1182
2-664
#1-467
9-1906
9-1915
9-1924
9-1933
11-1995
11-2004
11-2013
11-2022
11-2031
11-2040
11-2049
12-2077
13-2096
13-2105
13-2146
#10-1956
2-1486

#9-1929
4-1658
#9-1914
3-1624
10-1976
12-2066
12-2075
12-2083

13-2096
13-2105
13-2125
13-2142
3-1625

2-973

#13-2121
2-1045
#13-2125
#13-2097
4-1656
3-1624
#12-2062
#9-1905

2-1113

#5-1673
#5-1688
#9-1909
#9-1910
#6-1701
#2-675
2-1568
9-1907
9-1916
9-1925
9-1934
11-1996

11-2005
11-2014
11-2023
11-2032
11-2041
11-2050
12-2082
13-2097
13.2112
13-2150

#2-1493

SEQ 00438

vo02

#7-1813
#7-1795

10-1976
12-2067

12-2076
12-2084

13-2097
13-2109
13-2126
13-2144

10-1976
12-2068
12-2077
12-2084
13-2098
13-2110
13-2129
13-2147

10-1978
12-2071
12-2077
12-2085
13-2099
13-2113
13-2130
13-2148

10-1978
12-2071
12-2078
13-2089
13-2100
13-2114
13-2133

12-2059
12-2073
12-2079
13-2091
13-2101
13-2117
13-2134

12-2064
12-2073
12-2080
13-2092
13-2102
13-2118
13-2137

12-2064
12-2073
12-2081
13-2094
13-2103
13-2121
13-2138

4-1656

#7-1799

3-1633
2-1076

#7-1839
2-1080

*2-1081

*2-1083

3-1628

4-1657

#7-1811

2-993

*2-1000

2-1001

*2-1010

2-1011

2-1035

3-1622

2-1230

3-1629

#7-1820

9-1899
9-1908
9-1917
9-1926

9-1900
9-1909
9-1918
9-1927

9-1902
9-1911
9-1920
9-1929

9-1903
9-1912
9-1921
9-1930
11-1992
11-2001
11-2010
11-2019

9-1904
9-1913
9-1922
9-1931

9-1905
9-1914
9-1923
9-1932
11-1994
11-2003
11-2012
11-2021
11-2030

#13-2117

#7-1804
#7-1793

10-1977
11-1997
11-2006
11-2015
11-2024
11-2033
11-2042
11-2051
12-2083
13-2098
13-2116

11-1989
11-1998
11-2007
11-2016
11-2025
11-2034
11-2043
11-2052
12-2085
13-2099
13-2120

9-1901
9-1910
9-1919
9-1928
11-1990

11-1999
11-2008
11-2017
11-2026
11-2035
11-2044
12-2059
13-2087
13-2100
13-2124

11-1991
11-2000
11-2009
11-2018

11-2027
11-2036
11-2045
12-2064

13-2092
13-2101
13-2128

11-2028
11-2037
11-2046
12-2069
13-2093
13-2102
13-2132

11-1993
11-2002
11-2011
11-2020
11-2029
11-2038
11-2047
12-2070
13-2094
13-2103

13-2136

11-2039
11-2048
12-2072
13-2095
13-2104
13-2140

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE
SYMBOL
oP
OPTION
OPTNA
oP2
OTDA
OTOR
PAP

VALUE
014612
001230
001236
014643
104006
104004
010470

PAR

010464

PPS
PRI

011212
004332

PCL

010744

PRIN
PRINT
Q
QMARK
QNA
QS
QT1
QT2
QUES
QVsS
QVSSMS
QVSSS

004426
001444
012210
015024
011010
011066
006362
006762
001410
011014
016671
011712

Qvss
Qvs
Q1
Q10
Q11
Q12
Q13
Q14
Q15
Q16
Q17
Q18
Q19

002064
004236
012300
012560
012601
012622
012643
012674
012715
012736
012757
013000
013021

Q20
Q2L
Q22
Q23
Q24

013042
013064
013106
013127
013150

Q2?7

013235

QVsSss

Q25
Q26
Q28
Q29
Q3
Q30
Q31
Q32

001722

012321

013171
013212

013270
013311
012361
013332
013353
013374

PAGE 5

CREF

SEQ 0049

vo2

REFERENCES

2-586
#2-586
#2-587

2-955
+2-868
6-1759
2-1055
2-1157

#12-2064
2-607
2-598
#12-2065
2-1487
2-1164
2-965
2-957
3-1631
#9-1908
2-1082
2-1172

2-630
2-632
*2-871
6-1758
2-613
2-621
#2-631
2-718
2-1142
6-1764
2-714
#2-759
2-1134
3-1600
3-1601
3-1602
3-1602
3-1602
3-1602
3-1602
3-1603
3-1603
3-1603
3-1603
3-1600
3-1603
3-1604
3-1604
3-1604
3-1604
3-1604
3-1605
3-1605
3-1605
3-1605
3-1600
3-1605
3-1606
3-1606

€10-1978
#12-2070
2-1240
©#9-1901
2-880
#4-1639
2-636
2-777
#13-2105
#9-1933
2-716
2-778
#2-1139
#11-1989
#11-1998
#11-1999
#11-2000
#11-2001
4-1639
4-1639
€11-2004
#11-2005
#11-2006
4-1639
#11-1990
€11-2008
4-1639
4-1639
#11-2011
4-1640
©11-2013
4-1640
4-1640
4-1640
4-1640
€11-1991
4-1641
4-1641
€11-2020

2-587

#1-492
#1-490
2-961

#2-642

2-1405

2-1281
2-989
3-1622
#7-1827

2-991
#7-1783

2-996

3-1622

#7-1784

2-1115
#2-1184

2-1146

2-1152

2-1154

#2-1162

3-1633

#7-1836

3-1633

4-1661

#7-1837

#3-1600
2-641

2-1139
®2-718

#11-2002
#11-2003

#11-2007
#11-2009
#11-2010

#11-2012

#11-2014
#11-2015
€11-2016
#11-2017
#11-2018
#11-2019

2-1422
*2-1141

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE
SYMBOL

VALUE

Q33
Q34
Q35
Q36
Q37
Q38
Q39
Q4
Q40
Q41
Q42
Q43
Q44
Q45
Q46
Q47
Q48
Q49
Qs
Q50
Q51
Q52
Q53
Q54
Q55
56
Q57
Q58
Q59
Q6
Q60
Q61
Q62
Q63
Q64
Q7

013415
013436
013460
013501
013522
013544
013565
012402
013606
013642
013663
013704
013725
013746
013767
014010
014031
014052
012423
014073
014114
014135
014156
014177
014220
014241
014262
014303
014325
012444
014355
014377
014420
014441
014462
012465

012537

REMES
RES
RESR
RESRS
RL
RLMESS
RLS

RUBOUT
RX
RXMES
RXS

SAVE
SAVE1
SAVE2

CREF

SEQ 0050

vo2

REFERENCES
4-1641
4-1641
#11-2023
4-1641
#11-2025
4-1642
4-1642
€11-1992
4-1642
4-1642
4-1642
4-1643
4-1643
#11-2033
4-1643
4-1643
4-1643
4-1644
#11-1993
4-1644
4-1644
#11-2040
4-1644
4-1644
4-1645
#11-2044
€11-2045
4-1645
4-1645
©11-1994
4-1645
©11-2049
4-1645
4-1646
#11-2052
€11-1995
#11-1996
€11-1997
#13-2099
92-563
2-1093
9-1915
2-1064
#13-2095
9-1912
©2-1438
2-1099
#13-2100
©9-1916

012516

016377
001120
010660
011336
010634
016201
011272

005520
010664
016412
011352

012036
012040
012042

PAGE 6

+2-1108

2-1176
2-1180

#11-2021
#11-2022
#11-2024
#11-2026
@11-2027

#11-2028
#11-2029
#11-2030
#11-2031
#11-2032

€11-2034
11-2035
#11-2036
€11-2037
€11-2038
#11-2039
€11-2041
#11-2042
#11-2043

#11-2046
€11-2047
#11-2048

#11-2050
#11-2051

2-898
+2-1095

2-1269
3-1628

4-1658

#7-1814

+2-1066

2-1218

3-1627

4-1657

#7-1809

+2-1101

2-1224

3-1628

4-1658

#7-1815

€10-1959
€10-1960

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

CREF

SYMBOL CROSS REFERENCE
SYMBOL

VALUE

SAVE3

012044

SAVE4

012046

SAVES
SAVE6
SDATO
SERRCK
SHIFT
SHIFT1
SHIFT2
SHIFT3
SHIFT4
SINPUT
SOTDA
SOTOA
SPEC
SSHIFT
SSHIF1
SSHIF2
SSHIF3
SSHIF4
ST
START
STARTA
STYPE
SVCHA
TAB
TAG
TAGL
TAG2
TAG3
TAG4
T8
TENDM
TERMQ
TERMQ2
TERMST
TERMTP
T08
P8
TPS
TRB
TRS
TSMESS
TST
TS11
TUS
Tusl
TUB1MS
TUB1S
Tusls

012050
012052
005636
002324
104005
104007
104010
104011
104012
005230
006116
004752
012142
002166
002164
002162
002160
002170
011774
001004
001000
006200
011772
016105
002102
002030
002046
001530
002014
014546
006304
015345
015556
012144
012277
005734
000706
000704
000702
000700
016244
005240
010640
002022
010754
016626
011572
001706

PAGE 7

SEQ 0051

voz

REFERENCES
+2-924

2-942

*2-935

#10-1962
#2-996

+2-1001
2-814
2-815

#1-491
#1-493
#1-494
€1-495
#1-496

2-813
2-819
2-817
*2-844

#2-784
#2-783
#2-782
#2-781
#2-785

2-1349

#2-540
1-526
2-816

#2-1551
2-1163
2-743
2-730
2-738

#2-659
#2-747
2-1488
#2-1564

2-546
2-556
2-547
+2-558
2-1483

#1-533
#1-532
#1-531
#1-530

2-1073
#2-1383
+2-865

2-740
2-713
2-1136
6-1763
2-709

42-925

+2-926

*2-927

2-928

*2-930

2-931

+2-933

2-934

%2-936

+2-937

«2-738

*2-939

#2-940

+2-941

+2-942

2-943

*2-997
*2-1002

+2-998

+2-1003

*2-999
+2-1004

2-1000
+2-1005

2-1006
+2-1006

#10-1963
2-1007

210-1964

2-1396

2-1399

*2-1279

+2-1282

+2-1283

#2-1292

2-1553

2-1569
#2-1557

42-1558

2-1559

2-734
2-774
2-750

2-736
2-776
2-754

2-742

#2-751

2-758

2-762

2-1433
2-1446
2-1385
2-1383

2-1445
2-1449
2-1551
2-1549

2-1448
2-1456
2-1557
2-1555

2-1455
2-1547

2-1434

2-1439
2-1220

2-1451
3-1627

@7-1810

2-1133

#2-1135

2-1238

#10-1961

#2-1465
#2-828

2-747
2-753
2-757
2-761
2-749

#2-1381
#2-1525

*2-1278

#10-1974

2-818
2-820
2-821
2-822
2-823
#10-1951
2-564
1-527
#2-1547
*2-1552
#13-2093
#2-765
2-732
#2-755
2-748
2-779
#12-2061
2-1579
#12-2078
2-597
2-554
2-1440
#2-1487

2-1428
2-1429
2-1382
2-541
913-2096
2-1384
2-1070
#2-749
2-767
#13-2104

99-1928

2-711

2-1402
#2-539
2-1548

#12-2083
#10-1975
€10-1980
2-1492

+2-1072

2-768
2-795

02-713

#10-1950

2-766

2-770

2-1561
2-1574

2-1576

3-1631

4-1660

2-772

2-1461

07-1829

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE

CREF

SYMBOL

VALUE

REFERENCES

TYPE

= 104003

01-489
2-630
2-1029
2-1063
2-1126
2-1268
2-708
2-1125
6-1763
2-704
2-703
2-1119
6-1762
2-1117
6-1758

UDA
UDAMES
UDAS
UDA$
UNA
UNAMES
UNAS
UNA$
UPS

UsS
v

VECT
VECTOR
VST
VSV
VS100
V5100S
VS31
VS31S
Vo1
VOIMES
VO1MSS
vel
V31
WRS
XOFF
XON
s

010730
016563
011512

001672
010724
016520
011476
004146

011116

011102

= 000126

004444
012030
010120
010530
010750
011556
011020
011725
010624
020345
020561
010614
010620
011256
006240
006272
011162

PAGE 8

6-1758

#1-469

2-1167
+2-648
2-1284
+2-859
2-765
6-1763
2-1242
6-1765
+2-864
2-1060
2-1063
3-1626
2-731
6-1760
#2-1555
2-1550
6-1759

2-544
2-631
2-1034
2-1068
2-1131
2-1421
2-739
#13-2103
09-1924
2-706
2-787
€13-2102
99-1923
#2-1122
99-1903

SEQ 0052

vo2

2-545
2-632
2-1039
2-1074
2-1137
2-1435
2-791

2-546
2-642
2-1042
2-1085
2-1143
2-1484
2-1122

92-708
2-1116

2-556
2-643

2-1045
2-1091

2-586
2-893

2-587
2-896

2-597
2-897

2-606
2-1027

2-1155
2-1488
+2-1124

2-1048
2-1097
2-1162
2-1566
2-1234

2-1051
2-1103

2-1054
2-1111

2-1060
2-1120

3-1630

4-1660

07-1824

+2-1118

2-1232

2-1346

3-1630

4-1659

07-1823

+2-1252

2-1258

42-1260

2-1265

+2-1284

#10-1955

#7-1792
2-1236

3-1631

4-1660

07-1828

4-1662

07-1838
+2-985

2-1056

3-1627

07-1807

2-1163

2-1170

2-1184

99-1902

2-1440

#2-1201
2-1250
06-1740
3-1624
2-789
09-1927
3-1633
©9-1934
2-976
©13-2133
#13-2137
4-1657
3-1627
99-1911
2-1556
2-1554
99-1906

+2-981

97-1805

4-1657

2-982

#7-1806

2-1560
92-1561
R

CZFLAC

<FLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

MACRO CROSS REFERENCE
MACRO NAME

ERCHK
PRINT

PAGE 9
CREF

SEQ 0053

vo02

REFERENCES

#1-499

2-635

21-504

2-544

2-545

2-546

2-556

2-586

2-587

2-597

2-606

2-630

2-631

2-632

2-642

2-643

2-893

2-896

2-897

2-1027

2-1029

2-1034

2-1163

2-1170

2-1184

2-1268

2-1421

2-1435

2-1484

2-1488

2-1566

2-1039

2-1042

2-1045

2-1048

2-1051

2-1054

2-1060

2-1063

2-1155

2-1162