Digital PDFs

AH-8791C-MC

October 1985

54 pages

Original

2.6MB

view download

OCR Version

2.3MB

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

OCR Text

FLOAT UTILITY PROGRAM

AH-8791C-MC

10r1 ocr1ses

SHEAREN
MADE IN USA

1
FLOAT

SEQ 000

ADCTESSES AND VECTORS

MACRO Y0S.02

Thursday 23-May 85 10:38

Page

.REM «

IDENTIFICATION
PRODUCT CODE:

AC 8789C-MC

PRODUCT NAME:

CZFLACO FLOAT UTILITY PROG

PRODUCT DATE:

MAY

MAINTAINER:

DIAGNOSTIC ENGINEERING

1985

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B8Y 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 SUCM 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 VECTGRS

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
4.2

STARTING ADORESSES
RESTART ADDRESS

5.0

OPERATING PROCEDURE

5.1
5.2

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

HALTS,

ERRORS

RESTRICTIONS

MISCELLANEOQUS

18 (R -

-4

1.0

@IDO®P®®

FLOAT

TERMINAL ADDRESS MODIFICATION
DELETE FEATURE
CONTROL/C, CONTROL/Z, CONTROL/A,
DN11'S AND PAC11°S
CHANGES TO PROGRAM

1.0

Float

TRAPS,

OTHER FAILURES

INVALIG RESPONSES

CONTROL/S AND CONTROL/Q

ABSTRACT

is a utility program to a ' de the operator with

determining

the

addresses
and
vector
of
devices
'n the floating address or vector
areas.
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

3.0

LOADING PROCEDURE

3.1

Method

of memory

and a terminal.

The program is supplied on the diagnost'c media.
operat ‘'ng manual for further information.

4.0

STARTING PROCEOURE

4.1

Starting Addresses

By starting at
init'alized,

address

the

200(8)

program

types

204(8)

name

and

the

Refer

restart

version,

the

address

XXDP

control charactors

and will prompt operator to set up terminal fill count.

4.2

Restsrt

Address

Location 204(8)

is the only valid restart address.

5.0

OPERATING PROCEDURE

S.1

Operator Action

When

the program

typed,

‘s

loaded and

control charactors are
TERMINAL
A
L
V

started

listed,

the

title

and

and the operator

TYPES:
= LA36 NO FILL
= LA120 100 FILL CHARACTER
= VTS52 OR VT100 50 FILL CHARACTER

ENTER TERMINAL TYPE.

(A,L,V)?

To this the operator responds

-y

‘A'cer>

If terminal

‘s an LA36 or

vers'on

are

is prompted with:

requ’'res nofill.

-—

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page

1-3
SEQ 0004

‘L'<er>

If terminal is a LAL120 or requires fill for
a carriage return,
‘Vecer> If terminal is a VTS2 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

FA-FLOATING

ADORESSES.

(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
&
carriage return <cr> defining which option is wanted.
The valid responses are:
‘FA'

‘VA'

if the floating vector option

‘HE’

if the help message

‘EX:

the

The program will

floating address option

desired.

is desired.

is desired to exit back

to the XXDP monitor.

the ask:

"How many of each does the system have.”

devices depending on the

“option” selected.

and then type

The list

1list

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

addreess or

operator.

5.2

‘FA'
‘VA'

vector

At the end of the list the program will type the

information based on the

(See para.

number

the

Floating Address Option
Vector And Address Option

This option will ask for the decimal number
of
floating address range or floating vector range.
After receiving input
name,
the
address,

each

device

for each device the program will type the device
the module number with the addressing log'c, and

the jumper(s) or switches(es) to
follow
' ng format.

DEVICE

supplied

5.2 and 5.3 for format of data.)

CSR

VECT

ADDRESS

VECTOR

cutout

COMMENT

turned

off

the

FLOAT

ADDRESSES

AND

VECTORS

MACRO

Y05.02

Thursday

23-May-85

10:38

Page

1-4

SEQ 0005

WHERE:

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

NOTE:

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 svstem
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
will type:

‘'Terminal

Type

(A,L,V)?'.

The program

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

And wait

6.2.2

for

LA36 OR NO FILL
LA120 OR FILL FOR <CR»>
VTS52 AND VT100 OR FILL FOR

<LF>»>?

response.

Invalid Response To
FA

TM~ e

“Option.”

- FLOATING ADDRESSES

- The program will type:

(DJ,DH,DQ,DU,DUP,LK,DMC/R,DZ,KMC,LPP)

(vM21,vM31,DWR,RL
,LPA ,KW,RES,RX,DRW,DRB,DMP,DPV,1ISB,0MV)
(UNA,UDA,DMF,VS100,
TU81,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

And will

6.2.3

HE
EX

ask

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)
(0LC/D/€,DJ,DH,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)
(OMP,DPV,ML ,ISB,0MV,UNA,UDA,DMF,PCL,VS100,TUB1,KMV,KCT32)
(IEX,DHV/DHU,DMZ32/CPI32(ASYN),CPI32(SYN),QNA,QVSS,LNV11)

HELP MESSAGE
EXIT COMMAND
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 systazm 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 end Control/A

FLOAT

ADDRESSES

AND

VECTORS

MACRO

Y0S5.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 2 (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

Control @ (tQ)

When a CNTRL/Q

stop printing and wait

for 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
module).
Specify the number of controls.

8.4.2
The PA6ll's Can Have Two
(2)
Specify the number of controllers.

8.5

(1 control

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,VTVOi,OWR70,RL11,RLV1L
TS11,TU80,LPAL11,IP11,IP300,KW11-C,RESER,RX11
RX211,RXV11,Rxv21,0R11-W,0R11-8,0MP11,0PV11,ML11
IS811,DMVi1,UNAR,UDA,RGDX1,DMF32,KMS11,PCL11,VS100
TU81,KMV11,KCT32,1EX,DHV11,DHU11,0MZ32,CPI32(ASYNCH)

CPI3Z2(SYNCH),QNA,QVSS,VS31,LNV1L

3. THIS IS A LIST OF DEVICES WHICH HAVE ONE FIXED AND THE
REMAINDER FLOATING CSR'’S.
RL11,RLV11,LPA11,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,QVsSs
4.

THIS IS A LIST OF DEVICES WHICH HAVE TWO FIXED AND THE
REHAINDS: FLOATING CSR'S.
11-8

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

LWLOO2

;“‘“““‘t“““““““‘t““““*‘*““‘“‘#t“““‘t““t“

We
W
Bs

IS DEPENDENT ON THE DEVICES. THIS CODE SHOULD BE CHECKED AND
MODIFIED WHEN ADDING OR REMOVING A DEVICE FOR THE
PROGRAM TO SUPPORT.

STEPS TO ADDING A DEVICE:
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

FLOATING SCHEME?

B¢

L 2K K

®e

IR J

i# THE COMMENTS AND CODE BETWEEN THE sss&#72222/11111sksss

FOR FLOATING CSR ADDRESS DEVICES:
A. ENTER THE DEVICE IN QT2,072,MT2,ASCDEV,DEVSTR,

FATABL ,Q2?:,

®s

431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
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

IN ITS RANK OF ORDER.

8. 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 QT71,D71,MT1,NAT,ADDRT,
VST,DEVSTR,Q??, IN ITS RANK OF ORDER.
B8. ADD OF MODIFY ROUTINES WITHIN THE PROGRAM FOR SPECIAL
CIRCUMSTANCES IN AREAS SUCH AS QUES,GFA,DONE.

----------------------------------------------------------------

ihkbbbhkkkdbhb kbbbt bbb

000000
000001
000002
000003
000004
000005
000006
000007
000015
000200
000012
000126
000001
000002
000004
000010
000020
000040
)00100

RO=%0
Rl=e1
R2=%2
R3=¢3
R4=%4
R5=%5

bbb bbbt kb

kb kb kb hk

kb kb bk abk kbbb hdh kb b A

;REGISTER DEFINITIONS

SP=%6
PC=%7
CR=
15
NOCRLF= 200
LF=
12
Vs

BIT0=
BIT1=
BIT2=
BIT3=
8IT4=
BIT5=
BIT6=

126

1
2
4
10
20
40
100

;:BIT DEFINITIONS

;: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

501
502
503
504
505
506
507
508
509
510
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535

000200
000300
001000

BIT7=
BIT8=
BIT9=
BIT10=
BIT11s
B8IT12=
BIT13BIT14=
BIT15=
INPUT=

002000
004000
010000
020000
040000
100000
104000
104001
104002

DATQ=
ERRCK=
TYPE=
OTOA=
SHIFT=

104003
104004
104005
104006
104007
104010
104011
104012

OTDA=
SHIFT1=
SHIFT2=
SHIFT3=
SHIFT4=

200

400
1000
2000
4000
10000
20000
40000
100000
104000
104001
104002

104003
104004
104005
104006
104007
104010
104011
104012

.MACRO
ERRCK
BR
.ENDM

ERCHK

.MACRO

PRINT
ADR,RS

MOV
TYPE

000030
0000 <2

000000
200030
002260
000000

.SBTTL BEGIN
.=0
.230
EMTHND
.WORD
.WORD
0

000042

000042
000000

.WORD

000200
000204

000200
000137
000137
000700

000700
000702
000704
000706

177560
177562
177564
177566

.=42

.2200

JMP
JMP

TRS:
TRB:
TPS:
TPB:

;ERROR CHECKING MACRO

;GO CHECK FOR ERROR
;RETURN .+2 ON ERROR
ADR

:OUTPUT MACRO

;ADDRESS T0 RS
;GO TYPE 17

: TRAP CATCHERS

:LOCATION FOR XXDP STACK POINTER
STARTA
STARTA

.=700
177560
177562
177564
177566
.LIST

;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

.ENDM

001000
001000

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

MEB

;LWLOO2

:START AT 200
:
ACTUALLY 1000
;RESTART AT 204...MUST GOTO START FIRST TIME THROUGH.

FLOAT

RODRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 2

SEQ 0010

START
537
538
539 001000
540 001004
541 001006
542 001012
543 001020
544 001026
001026
001032
545 001034
001034
001040

546 001042
001042
001046
547 001050
548 001054
549
550 001056
551 001060

552
553
554
555
556

001062
0C1066
001072
001074
001074
001100
557 001102
558 001104
559 001110
560 001i14
561
562
563 001120
564 001122
565 001126
566 001132
567 001136
568 001140
569 001142
570 001144
571 001150
572 001154
573 001160
574 001164
575 001170
576 001174
577 001200
578 001204
579 001210
580 001214
581 001220
582 001224
583
584
585

001000

010637
000005
012706
012737
012737
012705
104003

000042
000700
001120
002260

015102

012705
104003
012701
104000

015345

:STORE THE XXDP STACK ADDRESS
;INIT THE WORLD
;SET THE STACK
;SETUP RESTART ADDRESS

;LWLOO2

;IDENTIFY FLOAT

;LWLOO2

MOV

#EMTHND, 30

MOV

AHELLO,RS5

TYPE
PRINT
MOV
TYPE
PRINT
MOV
TYPE
MoV
INPUT

:LWLO023$:

3s:

062701
020127
001371

000003
012155

012705
104003
000757

015556

000005
012706
012700
012701
005021
005300
001375
005037
005037
005037
005037
005037
005037
005037
005037
005037
005037
005037
005037
005037

1s:

012144

121110
001411

112137

000206
000030

015027

012705
104003

112137
112137

STARTA:
START:

.SBTTL START
.=1000
MOV
SP,9%42
RESET
MOV
#TRS,SP
MOV
#RES, 84206

012277

012140
006332

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

4TERMQ
#TERMQ,RS
#TERMST,R1

CcMPB

; ADDRESS TO RS

;GO TYPE IT
;HOW TO GET HELP
;ADDRESS TO RS
;GO TYPE IT
;ASK FOR TERMINAL TYPE
;ADDRESS TO R5
;GO TYPE IT
;FILL TABLE
:GET IT

(R1)+,(RO)

(R1),(RO)

;LWLO02

;WHICH ONE -A,L,V

:WHICH ONE -A,L,V

ADD
CHP
BNE
PRINT

#3,R1
R1,4TERMST .11
3
&4TERMQ2

;SKIP OVER TYPE,FILL CHAR. AND COUNT
;NO - END OF TABLE
;:NO MAYBE THE NEXT WILL MATCH
;BAD INPUT --TELL HIM WHAT WE WANT

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

:G0 TYPE IT
;:AND DO IT AGAIN
;STORE TERMINAL TYPE
;SET FILL CHARACTER
;SET FILL COUNT

MoV

44:

4HELP
#HELP,RS

;SETUP EMULATOR TRAP

BEQ

;LWLO02 ADD

001004
000201
010430

CcMPB

#HELLO

TYPE
BR
MOVB
MOVB
MOvB

#2,R1

#TERMQ@2,RS

;FOUND IT

;SKIP OVER FILL CHAR.

;LWLO02

AND COUNT

;LWLOO2

;ADDRESS TO RS

;LWLOO2

THIS ROUTINE CLEARS OUT THE DEVICE DATA TABLE.

RES:

1s:

RESET
MOV
MOV

#START,SP
YDEVCNT#2.+1,R0O

;& OF LOCATIONS TO CLEAR

CLR
DEC
BNE
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR

(R1)«
RO
1$
FLAG
FLAG1
FLAG2
FLAG3
FLAG4
FLAGS
FLAG6
FLAG?
FLAGS
FLAGY
FLAG10
FLAG11
FLAG12

;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 OV11 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
;IF VTVO1 WAS DECREASED PRINT VO1MSS
;USED FOR CONTROL A
;USED FOR THE SELECTION OF DC11 AND DL11-A
;IF LPD11 WAS DECREASED PRINTS LPDESS
;USED IF PA611-R, PA611-P OR LPD11 WAS SELECTED
;FOR PRINTING CSRVEC HEADER
;LWLOO2

MOV

4#DC,R1

;START OF DATA TABLE

;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
600
601
602
603 0C1306
604 001312
605 001314
606 001316
001316
001322
607 001324
608
€na
610
611
612 001326
613 001334
614 001340
615 0C "44
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
0210c/
001425
021027
001434
021027
001413
021027
001404

014643

012705
104003
000754

OPTION:

OPTNA:

040526
040506

042510
054105

PRINT
MoV
TYPE
PRINT
"oV
TYPE
INPUT
CMP
BEQ
CMP
BEQ
CMP
8EQ
CMP
BEQ

PRINT
MoV
TYPE
BR

015556

#0¥¢
20P,RS

;ASK OPTION
; ADDRESS TO RS
;GO TYPE IT
;SKIP FIRST LINE
;ADDRESS TQ RS
;GO TYPE IT
;WHICH OPTIN?
;VECTORS AND ADDRESSES
;BR IF YES
;FLOATING ADDRS ONLY
;BRANCH IF MATCH
;HE P?
;BR IF YES

#0P2
#0P2,RS

(RO),4"VA
6%
(RO),&"FA
7%

(RO),4"HE

5¢
(RO),&"EX
4%
4TERMQ2
#TERMQ2,RS5

JEXIT?

;BR IF YES

:NO MATCH - TELL WHAT THEY ARE
;ADDRESS TO RS
;GO T E IT
;AND TRY AGAIN

OPTNA

;LWLOO2

;LWLOO2
;LWLOO2
;LWLOO2
;LWLOO2

;LWLOO2

; GET HELP OR EXIT
.

013706
000207
000000

000042

012705
104003
000741

015102

4% :
5%:

MOV

RTS
HALT
PRINT
MOV
TYPE
BR

9e42,5pP

000200
006362
006562
007204

011740

64:

BIC
MOV
MOV
MOV
BR

OPTION

000200
006762
007072
007406

011740

7$:

MOV

;
012737

012705
104003
011305

000001

8IS
MOV
MOV

011760

OPTION

MIT7,FLAG
4QT1,R3
#DT1,R2
MTL,R1
8s

: SETUP POINTERS FOR THE 'FA'
052737
012703
012702
012701

;RETURN TO XXDP
;SHOULDN'T GET HERE
;PRINT HELP MESSAGE
;ADDRESS TO RS
;G0 TYPE IT
;ASK OPTION AGAIN

#HELP
OHELP,RS

; SETUP POINTERS FOR THE 'VA'
042737
012703
012702
012701
000411

:GET THE XXDP STACK ADORESS

;DOING THE ‘VA’ OPTION
:R3<=Q TABLE !
;R2<=DATA TABLE 1
;R1<=MAXIMUM NUMBER TABLE 1
:START THE QUESTIONS

OPTION

#BIT7,FLAG
#QT2,R3
#DT12,R2

;'FA' OPTION
; TABLE 2

oMT2,R1

ASK FOR THE NUMBER OF DEVICES.

8s:

012210

QUES:

MOV

PRINT
MoV
TYPE

MOV

#1,FLAGS

4Q
#Q,.R5

(R3)

(R3),RS

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

:LWLOOZ2
;LWLOO2
;:LWLOO2
;LWLOO2

;LWLOO02

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
634 001424
635 001426
001426
001430
636 001432
637
638 001434
639 001436
640 001440
641 001442
642 001444
001444
001450
643 001452
001452
001456
644
645
646
647
648 001460
649 001466
650 001474
651 001500
652 001504
653 001510
654 001512
655 001514
656 001516
657 001520
658 001524
659 001530
660 001532
661 001534
662 001540
663 001542
664 001544
665 001550
666
667
668
669
670
671
672
673
674
675 001554
676 001560
677 001562
678 001564
679 001566

104003
012705
104003
104000
104001

TYPE

PRINT
MOV
TYPE
INPUT

015024

DATO
ERCHK
ERRCK
BR
BR

104002
000401
000766
010032
022123
005711
001362

2%:

PRINT:

012705
104003

014510

012705
104003

014510

HQMARK
#QMARK RS

QUES

;GO TYPE IT
;APPEND WITH ' ?°
:ADDRESS TO RS
;GO TYPE IT
;HOW MANY?
:CONVERT TO OCTAL
;ANY ERRORS?
;GO CHECK FOR ERROR
;RETURN .+2 ON ERROR
;YES!!
ASK AGAIN!

RO,8(R2)+
MoV
;STORE ANSWER
CMP
(R1)+,(R3)+
;UPDATE POINTERS
TST
(R1)
;END OF LIST?
BNE
QUES
; THERES MORE
PRINT
#CRLF
;:END OF QUESTIONS
MOV
QCRLF ,RS
:ADDRESS TO RS
TYPE
;GO TYPE IT
PRINT
FCRLF
MOV
#CRLF,RS
TYPE
;G0 TYPE IT
.SBTTL GET FIRST ADDRESS

;ADDRESS TO RS

; THIS ROUTINE LOADS THE STARTING ADDRESS INTO THE DEVICE DATA TABLE
; FOR ALL DEVICES ( O FOR FLOATING ADDRESS DEVICES ).
012737
012737
012700
012701
012702
012021
005721
005302
001374
012700
012702
012203
001406
011063
011301
000240
000137
000137

000300
160010
007720
010432
000100

012030
012034

GFA:

1$:

012034
007072

TAG3:

000002

001554
002346

MOV

MOV
MOV
MOV
MoV

MOV
TST
DEC
BNE

MOV
MOV
MoV
BEQ
MOV
MOV
NOP
JMP
JMP

#300,VECTOR
#160010,ADDR
QADDRT RO
#DC+2,R1
ODEVCNT ,R2

(RO)+,(R1).
(R1)+

R2
1s
#ADDR,
RO
#0T2,.R2
(R2)+,.R3

8R0,2(R3)
8R3,R1
NEXT
DONE

;FIRST FLOATING VECTOR STARTS AT 300
H
"
ADDRESSES START AT 160010
;RO<=ADDR. TABLE
;R1<=DEVICE ADDR.DATA TABLE

;R2<=NUMBER OF DEVICES

;SET-UP FIRST ADDR.IN DEV.DATA TABLE

;R1+2-2 WORDS/DEVICE

;ONE LESS T0 DO
;00 IT AGAIN?
; CURRENT ADDRESS LOCATION
i FLOATING DEVICE TABLE POINTER
;:DEVICE DATA POINTER
;:BRANCH IF NO MORE
;STORE ADORESS
;GET DEVICE COUNT
:BRANCH TO 2$ IF NO SPACES WANTED BETWEEN DEVICES.
;:DONE CALCULATING FIRST ADDRESSES

;CHECK FOR SPECIAL DEVICES. RESR IS NOT USED BUT MUST HAVE A SPACE QF 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.
020327
001003

005701
001401
005301

010660

CMP
BNE

TST
BEQ
DEC

R3,9RESR
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
681
682
683
684

001570
001574
001576
001600
001602

685 001604
686 001610
687 001612

688 001614
689 001616
690 001620
691 001624
692 001626
693 001630
694 001632
695 001634
696 001640
697 001642
698 001644
699 001646
700 001650
701 001652
702 001654
703 0€1656
704 001662
705 001664
706 001666
707 001670
708 001672
709 001676
710 001700
711 001702
712 001704

713 001706

714
715
716
717
718
719
720
721
722
723
724
725

001712
001714
001716
001720
001722
001726
001730
001732
001734

020327
001003
005701
001401
005301
020327
001003
005701
001401
005301
020327
001003
005701
001401
005301
020327
001006
005701
001404
005301
005701
001401
005301
020327
001003
005701
001401
005301
020327
001003
005701
001401
005301
020327
001003
005701
001401
005301
020327
001003
0V5701
001401
005301

010634

010664

42s:

010674

43s:

010724

732 001750

733 001752

734 001756
785 001760
75 00764

010730

UDAS:

010754

TUB1s:

CHP
BNE
LEM
BEQ
DEC

CcHP

BNE
TST
BEQ
0eC

011014

QvsSs:

R3,4RL
41
R1

R3, #RX

BNE
TST
BEQ
DEC
TS7
BEQ
DEC
CHP
BNE
TST

44
R1
444
R1
R1
444
R1
R3,0UNA
UDAS
R1

BEQ
DEC
CMP
BNE
TST
BEQ
DEC
CMP
BNE
BEQ
OEC

CMP

BNE
TST
BEQ
DEC

;:BRANCH IF NOT
;DEC FOR STANDARD ADDRESS AND VECTOR

;IS IT THE RX11

424
R1
424
R1

R3, eLPAK
434
R1
434
R1

CMP

;IS IT THE RL1L
;BRANCH IF NOT
;CHECK IF ANY RL11 WERE SELECTED

41
R1

cHP
BNE
TST
BEQ
DEC

T1S7T

:BRANCH IF NOT
;CHECK IF ANY RX11 WERE SELECTED
:BRANCH IF NOT
;DEC FOR STANDARD ADDRESS AND VECTOR
;IS IT THE LPA11-K
:BRANCH IF NOT
;CHECK IF ANY LPA11-K WERE SELECTED
;BRANCH IF NOT
;DEC STANDARD ADDRESS

R3,4DRB

;IS IT THE DR11-B

;:BRANCH IF NOT
:CHECK IF ANY DR11-B WERE SELECTED
;:BRANCH IF NOT
:DEC FOR STANDARD ADDRESS AND VECTOR
;CHECK IF A SECOND DR11-B WAS SELECTED
;BRANCH IF NOT
:DEC FOR SECOND STANDARD ADDRESS
;IS IT THE DEUNA
;:BRANCH IF NOT
;CHECK IF ANY DEUNA WERE SELECTED

UDA$
R1
R3,9UDA
TUB1$
R1
TUB1¢
R1
R3,4TUB1
Qvsss

:BRANCH IF NOT
;DEC FOR STANDARD ADLRESS AND VECTOR
;IS IT THE UDA
;BRANCH IF NOT
:CHECK IF ANY UDA WERE SELECTED
;BRANCH IF NOT
:DEC FOR STANDARD ADDRESS AND VECTOR
;IS IT THE TUu81
;BRANCH IF NOT

:CHECK IF ANY TU81 WERE SELECTED

Qvss¢
R1

R3,#QVSsS

S
R1
5%
R1

:BRANCH IF NOT
iDEC FOR STANDARD ADDRESS AND VECTOR

;IS IT THE QVSS

:BRANCH 1F NOT
:CHECK IF ANY QVSS WERE SELECTED
;BRANCH IF NOT
;:DEC FOR STANDARD ADDRESS

(0048008088088 488808084800884500488000808848000888800888080000044

1222222222222222222202222222222222222222222272222222222222222172
77
: DO A CHECK FOR THE DEVICES THAT DON'T ADDRESS-UP BY 10

727
728

729 001736

414:

010644

726

730 001742
731 001744

404

020327
001432
020327
001427
020327

010644

0c0327

010720

010520
010620

001424

001423

5¢:

cHe
8€Q

R3,eDH
TAG1

DH11

TAG1

VMV3L1-

TAG1

LPAX

- 20

TAG]

cHpP

R3,ev31

Cne

R3,6LPAK

8€Q

8EQ

ju, 4

8eQ

R3, e0My

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May

10:383

Page 2 4

SEQ 0014

GET FIRST ADDRESS
737
738
739
740
741
742
743
744
745

001766
001772
001774
002000
002002
002006
002010

010734

CMp
BEQ
cMP
BEQ
CMP
8EQ
JMP

010730
010740

002102

104005
000137
104012

TAG4:
001530

002024
002030
002034
202040

000137
004737
011063
104007

001530
005764
000002

754 002042

000137

755
756
757
758
759
760
761

004737
011063
104010
000137
004737
011063
104011

001530

002046
002052
00205€
002060
002064
02070
002074

762 002076

006004
000002

001530
006082
000002

000137

001530

TUS:

TAGL:

766 002106

~65 002102

001750

020327

010750

767 002110

020327

010754

768 002114

769 002116
770 002122
771 002124

001742

020327
001742
020327

002130
002132
002136
002140
002144
002146
002152
002154

001737
020327
001743
020327
001740
020327
001744
000137

002160

006301

000162
002164
002166
785 002170

006301
006301
006301
006301

786 002172
787 002174

006301
020327

788
789
790
791
792
793

001423
020327
001420
020327
001003
032701

002200
002202
002206
002210
002214
002216

TAG2:

QvSs:

TAG:

010774
011000
011004
011014
002014

SSHIF3:
SSHIF2:
SSHIF1:
SSHIFT:
SSHIF4:

010750
010730
000004

SHIFT1
JMP
JSR
MOV
SHIFT2
JMP
JSR
MOV

SHIFT3
JMP

010760

010724

SHIFT
JMP
SHIFT4
JMp
JSR
MOV

763
764

772
773
774
775
776
777
778
779
780
781
782
783
784

R3, 4DMF
TAG2
R3,QUDA
TU$
R3,4KMS
TAGL
TAG

: DMF32- 40

: UDASO- 4
;

KMS11-

‘.“tt‘t‘ttt“t““tt‘t‘t“t‘tt“““.“‘ttt“t“t‘tttt““t‘tfi

746
47 002014
748 002016
749 002022

750
~S1
752
753

020327
001425
020327
001410
020327
001410
000137

TAG3
TAG3
PC,BITE
8R0,2(R3)

TAG3
PC,BITEL

8R0,2(R3)

TAG3
PC,BITES
9R0,2(R3)
TAG3

;CALCULATE NEXT DEVICE ADDRESS
;PROCESS NEXT
:CALCULATE DEVICE ADDRESS BY 4
sPROCESS NEXT

;MAKE ADDR.

DIVISIBLE BY 20

;STORE 17
;20 BYTES/UNIT

:MAKE ADDR. DIVISIBLE BY 40

:STORE IT
:40 BYTES/UNIT

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

cHP
BEQ
cMP
BEQ
CcHp
BEQ
CHP
8EQ
cMp
BEQ
ol [
BEQ
CcMP
BEQ
JMP

R3,4V5100
TAGL
R3,4TUBL
TUsS
R3, KMV
TAG1
R3,40DHV
TAGL
R3,40MZ232
TAG2
R3,4CPI32
TAG2
R3,#QVSsS

QVSs$

; QVSSs

ASL
ASL
ASL
ASL
ASL
ASL

R1
R1
R1
R1
R1
R1
R3,3UNA
GAP
R3,4VS5100
GAP
R3,2UDA
GAP3
44 ,R1

sMULT. BY 100 OCTAL
¢MULT. BY 40 OCTAL
sMULT. BY 20 OCTAL
;MULT. BY 10 OCTAL
;MULT. BY 4 OCTAL

cHe
BEQ
CcMP
BEQ
CHP
BNE
817

TAGS

; V5100- 20

; TusL - 4
: KMV1l- 20

; DHV11- 20
; DM232- 40

; CPI32- 40

200

;IF UNA LEAVE GAP OF 4
;FOR THE UDA

;IF V5100 LEAVE GAP OF 4

THE TU81
;FOR
;IF UDA CHECK FOR BIT 2
:BRANCH IF NOT
;CHECK IF EVEN

FLOAT

ADDRESSES

AND

VECTORS

MACRO

Y0S5.02

Thursday 23 May 85

10:38

Page 2-5

SEQ 0015

GETM FIRST ADDRESS
794 032222
79s 002224
796 002230
797 002232
~98 002236
799 002240
800 002244
801 002246
302 002250
803 002254
804 002256
805
806
807
808 002260
809 002262
810 002264
811 002270
812 002272
813 002276
814 002300
815 002302
816 002304
817 0C2306
818 0C2310
819 002312
820 002314
821 002316
822 002320
823 002322

011604
014404
042704
006304
000174
005230
005636
002324
006200
004752
002166
006116
002164
002162
002160
002170

002324
002330
002332
002336
002344

005737
100005
062716
042737
000002

840
841
842
843
844
845
846
847
848
849
850

010754

GAP3:

000004
000010

GAP1L:

BEQ
cMP
BNE
8IT
BEQ
ADD
ADD
RTI

000004

GAP:

000002

ADD
RTI

R1,8R0

R 4

8IC
ASL

002276

JMP
SINPUT
SDATO
SERRCK
STYPE
SOTOA
SSHIFT
SOTDA
SSHIF1
SSHIF2
SSHIF3
SSHIF4

iMAKE

EVEN

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

;:RETURN

;ADD GAP OF 4
;ADD TO LAST ADDR
;RETURN

DESTRO YED

(SP),R4
#177600,R4

R4
FEMTTAB(RA)

;GET THE EMY
;:STRIP EMT BITS

sMAKE

WORD

;GO 70 I7
: SUBROUTINE INPUT

“
*
“
"
!
“
“
“

DECIMAL ASCII TO OCTAL

ERROR CHECK
TYPE

OCTAL TO OCTAL ASCII

MULT.

& ADD

OCTAL TO DECIMAL ASCII

MULT.
MULT.
MULT.
MULT.

BY 20 AND ADD GAP
BY 40 AND ADD GAP
BY 100 AND ADD GAP
BY 4 MAKE EVEN ADD GAP

EMTTAB:

44 ,RY
GAP
¢10,R1
R1,8R0

84 .R1

MOV

177600

GAP
R3,0TUB!L
GAP1

ADD

EMTHND: MOV

824
825
826
827
828
829
830
831
832
833
834
835
836
837
18
839

001412
020327
001003
032701
001404
062701
060110
000002
062701
060110

011740
000002
100000

ERRCK
:

TS7
8PL

FLAG

1$
&2,(5P)
#B8IT15,FLAG

ADD

011740

BIC
RTI

:WAS ERROR FLAG SET

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

.SBTTL CCMPUTE THE ADDR.,JUMPERS AND VECTORS
THIS ROUTINE PRINTS THE DEVICE NAME ,IT'S ADDRESS , AND VECTOR/
JUMPER. THEN COMPUTES THE NEXT ADORESS 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
002346
002352
002356
002260

005037
105737
100047

012702

012142
011740

010320

0 ONE:

CLR

17578
8PL
MOV

SPEC

FLAG

13
QASCDEV,R2

:CLEAR SPECIAL FLAG

sWHICH OPTION?
;BRANCH FOR VA’

iR2<=ASCII DEVICE POINTER TABLE

0888488580484 08408000308848808008038000400040

0btbtdtbttddttttit

---------------------------

--------------------------

FLOAT

ADDRESSES

AND VECTORS

MACRO Y05.02

Thursday 23-May

10:38

Page 2-6

SEQ 0016

COMPUTE THE ADDR.,JUMPERS AND VECTORS
851
852
853
854
8s5s
856
857 002364
858 002370
859 002374
860 002400
861 002404
862 002410
863 002414
864 002420
865 002424
866 002430
867 002434
868 002440
869 002444
870 002450
871 002454
872 002460
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893

894
895
896

897

898
899
900
901

:
:
:
:
012701
010137
010137
010137
010137
010137
010137
010137
010137
010137
10137
010137
010137
010137
010137
010137

SET THE DEVICE ADDRESS TO A MINUS ONE IF IT FOLLOWS THE DJ AND
IS NOT A FLOATING ADDRESS DEVICE.
FOR THOSE DEVICES THAT ARE A COMBINATION,
SPECIAL HANDLING IS REQUIRED TO LIST THE STANDARD CSR ADDRESS
AND VECTOR ADDRESS AND THEN LIST THE FLOATING RANGE FOR EACH.

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

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

R1.,GT.2

R1,VSV.2
R1,LPS.2
R1,KWW.2
R1.DV.2
R1,0WUN.2
R1,V01.2
R1,7S11.2
R1,IP.2
R1 ,ML.2
R1,.PCL.2
R1,KCT32.2
R1,IEX.2
R1,QNA.2
R1.LNV.2

;:IF ADDRESS=-1 THEN
;THE DEVICE IS SKIPPED
:6GT40,VSV11,LPS11,KW11-W,DV11,DWUN,VTVO1
s7S511,IP11,ML18,PCL11,KCT32,IEX,QNA,LNV1L
;sHAVE STANDARD ADDRESS

-------------------------------------------------

‘“tttt“t‘“t“tt‘ttt"t“tlt‘tt‘tltt“ttt‘tti“tt‘ttttt“‘i“

002464
002470
002474
002476
002502
002506
002510
002512
002514
002516
002522
002524
002526
002532
002534
002540
002542
002542
002546
002550
002554
002556
002556
002562
002564
002564
002570
002572

012701
012700
000405
012702
012701
005000
005721
001031
022022
022127
001372
005742
021127
001366
005737
001403

010514
000032
006362
010430

1s:

DONE1:

177777

1777177
011752

012705
104003
005737
001403

017753

012705

020151

012705
104003
V00137

014503

104003

MOV
MOV

011746

001120

37%:

38s:

BR
MOV
MOV

CLR
TST

BNE
cMP
cMP
BNE
TST
CMP
BNE
TST
BEQ
PRINT
MOV
TYPE

#0J.R1
oDJ-DC/2,RO
DONE1
#QT1,R2
#DC,R1
RO

;:0J IS FIRST FOR 'FA* OPTION
;:SET OFFSET INTO 'N'EXT ‘A‘DDR.‘'T'ABLE
;sSET TO PROCEED!!
;USE THE SAME TABLE AS FOR THE QUESTIONS
sR1<=START OF DATA TABLE
;0 OFFSET INTO NAT

(R1).

;D0 WE HAVE ANY?

(R1).,8-1

;00 WE SKIP THIS ONE?

2%
(RO)+,(R2)+

DONE1L

-(R2)
(R1),4-1
DONEL
FLAGS

373
4LPDMSS
&L PDMSS,RS

;:BR IF YES
;INC POINTERS

;NO (TWO -1'S TOGETHER IS END OF LIST)
;BACKUP FOR THE 'FA' OPTION
;ANOTHER -1 IS THE END!'''!
;BRANCH IF SOME MORE!
;CHECK

TO SEE IF LPD11 WERE DECREASED TO ZERO

;BRANCH IF NOT
;PRINT THE MESSAGE
;ADDRESS

;G0 TYPE IT

TO RS

TST

FLAG3

;CHECC

38
#DVNMS
#DVNMS RS

;BRANCH IF NOT
;PRINT MESSAGE
;ADDRESS TO RS
;GO TYPE IT

8EQ
PRINT
MOV
TYPE

SEND

MOV
TYPE

#END,RS

JMP

RES

1684355804804 0 4000400450400

SEE

saddd

THE

END

DV11

WERE

DECREASED

s%%ixs

;ADDRESS TO RS

;GO TYPE IT

;RESTART-(ACT-ll

PATCH SHOULD GO HERE!)

404 00080000200 %ksdbbddtbbidttin

ZERO

FLOAT

ADDRESSES

AND VECTORS

MACRO Y05.02

Thursday 23-May-85

10:38

Page 2-7

SEQ 0017

COMPUTE THE ADDR.,JUMPERS AND VECTORS
902
03
904
905
906

$22222222222222222222200222222202222222222222222222222222222
12
; SPECIAL DEVICE DEPENDENT ROUTINES FOR ADDRESS.

:+ CHECK IF DC11 AND DOL11-A WAS SELECTED

907 002576
002602
002604
002610
002612
002616
002620
914
915

908
909
910
911
912
913

020127
001011
005737
001406
005737
001403
012737

010432

2%:

010430
010434

000001

011762

925

926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958

002626
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

R1,4DC.2
9
DC
9
oL
9s
#1,FLAGY

;CHECK IF IT IS THE DC11t
;BRANCH IF NOT
;CHECK IF DC11 WERE SELEZCTED
;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

916

917
918
919
920
921
922
923
924

cmp
BNE
TST
BEQ
TST
BEQ
MOV

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

010446

9s:

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

012044
010562
012046

34%:

000140

012044

012046

000001
010560
010560

011744

000001

011746

cMp
BNE
TST
BEQ

TST
BEQ
MOV
MOV
ASL
ASL
ASL
BIT
BEQ
ADD
BIT
BEQ
ADD
ADD
MOV
DEC
ASL
ASL
ASL
ASL
ASL
ADD

cMp

35%:

BHIS
MOV
DEC
TST
8EQ
BR
MoV

R1,4DMA.2
17¢
DMA
17
DV
17$
@1 ,FLAGL
DMA, SAVE3
SAVE3
SAVE3
SAVE3
#10,SAVE3
33
#10,SAVE3
#20, SAVE3
344
920, SAVE3
SAVE3,DV+2
DV,SAVE4
SAVE4
SAVE4
SAVE4
SAVE4
SAVE4
SAVE4
SAVE3, SAVE4

;ADD FIRST ADDRESS TO FORM LAST ADDRESS

17¢
41 ,FLAG2
DV
ov
35¢
34
@1 ,FLAG3

;: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

#140,5SAVE4

;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 DV11i 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 DV1l1 ADDRESS
;:FORM ADDRESS OF LAST Dvi1i

;CHECK TO SEE IF IT IS TO HIGH

;* VTIVOl ADDRESS IS AFTER THE PA6-11R'S
003046
003052
003054
003060

020127
001007
005737
001404

010466
010464

17¢:

cHp
BNE
157
BEQ

R1,#PAR+2
474
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
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976

977
978
979
980
981
982
983
984

033062
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

985
986
987
988
989 003226
990 003232
991 003234
992 003240
993 003242
994 003246
995 003250
996 003256
997 003264
998 003270
999 003274
1000 003300
1001 003306
1002 003314
1003 003320
1004 003324
1005 003330
1006 003334
1007 003342
1008 003350
1009 003352
1010 003360
1011 003364
1012 003370
1013 003372
1C14 003374
1C15

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

47
:

011766
010470

000001

011766

010476

MOV

48$:

011766
010474
000001
010624

BR
cHp
BNE
TST
BNE
TST
BEQ

011766
498

011766

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

000001
000160
000002

011754
010626
010624

MOV
ADD

000001
010624

011756

MoV

cMP
BNE
DeC

#1,FLAG11
49

R1,4PAP.2
48
FLAG11

45
PAP
48
#1,FLAG11
49
R1,0LPD+2
454
FLAG11

454
LPD
45
@1 ,FLAGL1
Vo1
45
FLAG11
454
#1,FLAG6E
€160,V01.2
#2,V01
45¢
21 ,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 PAR6-11R WERE SELECTED
;FORM NEW ADDRESS FOR VTVO1
;:CHECK FOR TWO VTVOl1
;BRANCH IF NOT
;SET FLAG THAT VTVO1S WERE DECREASED
;DECREASE VTVO1S

;* LPD11 ADDRESS IS AFTER THE PA6-11P'S
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

ASS:

010472
010470

TST
BEQ
ST
BEQ

010474
000001
010470
012050
012050
012050
012050
010474
012052
012052

012052
012352
012050
000070

cMP
BNE

011750
012050

010476
012052

29s:

011764

000001

011752

DEC

ASL
ASL
ASL
ADD

012052
012052

000001
010474
010474

MOV
MOV
ASL
ASL
ASL
ADD
MoV

CMP
BHIS
MOV

DEC

36$:

157
BEQ
BR
MOV

R1,4PAPs2
10$
PAP

10$
LPD
10¢
#1,FLAGY
PAP, SAVES
SAVES
SAVES
SAVES
SAVES,LPD+2
LPD,SAVE6
SAVE6
SAVE6
SAVE®
SAVE6
SAVES, SAVEG
€70, SAVE®6
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 hHAS 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
1026 003406
1027 003410
003410
003414
1028 003416
1029 003424
003424
003426
1030 003430
1031 003434
1032 003436
1033 003442
1034 003444
0C3444
003450
1035 003452
1036 003456
1037 003460
1038 003464
1039 003466
003466
003472
1040 003474
1041 003500
1042 003502
003502
003506
1043 003510
1044 003514
1045 003516
003516
003522

1046 003524

1047 003530
1048 003532
003532
1049
1050
1051

1052
1053
1054

003536
003540
003544
003546
003546
003552
003554
003560
003562
003562
003566

;t“t‘t‘tttt‘tt‘tttttttt““ttt‘ttt‘tt‘ttt“tt

“‘t‘#t‘ttt‘tttttt

$22222222
8000 22222222
020
07222222
222
22722222
222
22222227
700
222222
0
72
CHECK HERE FOR A DEVICE THAT NEEDS A COMMENT TYPED.
OURING THE PRINT ROUTINE, THE DL11,LPD11,DV11,VTVO1,RL11,T
S11,LPA11,IP11
RESER,RX11,DR11-B,ML11,UNA,UDA ,KMS11,TU8B1,QVSS
WILL PRINT OUT
STANDARD CSR AND VECTOR ADDRESSES
AND THEN LIST THE FLOATING VALUES FOR
ADDITIONAL DEVICES REQUESTED BY OPERATOR.

105737
100406

011770

012705
104003
052737

015746

012205
104003
020127
001006
005737
001403
012705
104003
020127
001022
005737
001403

012705
104003
005737
001403
012705
104003
005737
001403

000200

011762

020772

39s;

011750

017335
011764

S50$:

017542
011752

017335

012705
104003
005737
001403

016121

012705
104003

011770

010436

010476

010562

TS78
8MI
PRINT
MOV
TYPE

4%
:

012705
104003
020127
001021

012705
104003
005737
001403

10¢:

S1s$:

26%:

BIS

MIT7,FLAGI2

CMP
BNE
TST
BEQ
PRINT
MoV
TYPE
CMP
BNE
TST
BEQ
PRINT
MOV
TYPE
TST
BEQ
PRINT
MOV
TYPE
TST
BEQ
PRINT
MOV
TYPE
cMP
BNE
PRINT

R1,40L
2
39

PRINT
MOV
TYPE

MoV
TYPE
TST

011742

BEQ

016716
011744

017121

11%:

FLAG12

4%
#CSRVEC
#CSRVEC,RS

PRINT
MOV
TYPE
TST
BEQ
PRINT
MOV
TYPE

(R2)+
(R2)+,R5

FLAGY

39
QDLMESS
#DLMESS,RS

R1,4LPD+2
264

FLAG4

504
®LPDMES
#LPDMES,
RS
FLAG10

51¢

#LPOESS
#LPDESS,RS
FLAGS

264

#LPDMES
#LPDMES,RS
R1,4DV.2
13

#DVMESS
QDVMESS,RS
FLAG1

11%
FOVMES
QDVMES RS
FLAG2

204
FDVMSS
®DVMSS RS

;HAVE WE BEEN THROUGH ONCE?
;LWl 002
;IF YES, BRANCH
;:LWLOO2
:'CSR
VECTOR
'HEADER
;LWLO0O2
:ADDRESS TO RS
;GO TYPE IT
;WE'VE BEEN THRU HERE
;LWLO02
;TYPE DEVICE NAME
;ADDRESS TO RS
;GO TYPE IT
;IS IT THE DCi1
: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 NQOT
;PRINT MESSAGE
; ADDRESS TO RS
;GO0 TYPE IT
iHAS THE LPD11 BEEN DECREASED
;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
;IS IT THE DvV1i?
:BRANCH IF NOT
;PRINT DV11 MESSAGE

TO ZERO

: ADDRESS TO 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

;PRINT 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
003570
003574
003600
003602
003606
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 0043042
1104 004044
1105 004050
1106 004054
1107 004056

1055
1056
1057
1058
1059
1060

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

00433¢
010626

20§
:
13s:

011754

020345
011756

020561

010636

46%:

010634
016201
004310
010642

144

010640
016244
004310
010646

15s:

011740

010646

170460

004332
010644
016307
004310
010652

012040
010646

19s%:

18%:

010650
016334

004310
010662

21$:

22%:

010664
016412

004310
010676
010674

BNE
TST
BEQ
PRINT
MOV
TYPE
TST
8EQ
PRINT
MoV
TYPE
CMp
BNE
DEC
MOV
TYPE
JMP

cMP
BNE
DEC

MoV
TYPE
JMP

CMP
BNE

TST8
BMI
MOV
MOV
JMP
DEC
MoV
TYPE
JMP
CHP
BNE
DEC

MOV

010660
016377

004310
010666

JMP

cMpP

23s:

TYPE
JMP
CMP
BNE
OEC
MOV
TYPE
JMP
cMP
BNE
DEC
MOV
TYPE
JMP
cHp
BNE
DEC

PRI
R1,4V01.2
464
FLAG6
464
#VO1MES

AVO1MES,.RS
FLAG?

464
#VO1MSS
#VO1IMSS,RS

R1,4RL+2
14
RL
ORLMESS, RS

CLEAN

R1,47S511.2
15¢
TS11
#TSMESS,RS

CLEAN
R1,4LPAK+2
18%
FLAG
193
LPAK+2,SAVEL
#170460,LPAK+2
PRI
LPAK
ML PKMES,RS

CLEAN

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

CLEAN

R1,4RESR+2
22%
RESR
QREMES ,RS

CLEAN
R1,#RX+2
234
RX
QRXMES ,RS
CLEAN

R1,4DRB+2
244

DR8

:BACK TO ROUTINE
;IS IT THE VTVO1l
;:BRANCH IF NOT
;CHECK IF BOTH PA6-11RS AND VTVO1 WERE SELECTED
;:BRANCH IF NOT
;PRINT MESSAGE
:ADDRESS TO RS
;GO TYPE I7
;:CHECK IF THE VTVO1 WAS DECREASED
;BRANCKH 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 TS117?
; IF NOT,

BRANCH

:OECREMENT 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
;:CONTINVE TEST
;IS IT THE RESR
;IF NOT BRANCH
;DECREMENT COUNT
;PRINT NOT USED
;GO TYPE IT
;COUNTINE TEST

;IS IT THE RX1t
;BRANCH IF NOT
;DECREMENT DEVICE COUNT
;:PRINT STANDARD CSR
;GO TYPE 17

;CONTINVE TEST

;1S 1T THE DRB
;:BRANCH IF NOT
;OECREMENT DEVICE COUNT

FLOAT

AODRESSES

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
0i2705
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%:

UNAS$:

52%:

27$:

Qvs:

DR$:

CLEAN:

014510

004426

MOV
MOV
MOV
TYPE
JMP
cMp
BNE
JMP
cMpP
BNE
DEC
MOV
TYPE
JMP
CMP
BNE
DEC
MOV
TYPE
JMP
cMP
BNE
MOV
TYPE
JMP
cMP
BNE
DEC
MOV
TYPE
JMP
CMP
BNE
DEC
MoV
TYPE
JMP
CMP
BNE
MOV
ASL
ASL
ASL
NEG
JMP
TST
BNE
PRINT
MoV
TYPE
TST
JMP

DRB+2,SAVE2
#172430,0RB+2
@DRBMES
RS
,
CLEAN
R1,4ML
.2
254
PRI
R1,4UNA+2
UNAS
UNA
QUNAME
, RS
S

CLEAN
R1,4UDA+2
524
UDA
®UDAMES
RS
,

CLEAN
R1,4KMS+2
274
HKMSME
, RS
S
CLEAN
R1,4TU81.2
Qv
TU81
#TUB1IMS,RS
CLEAN
R1,4#QVSS+2
DR$
QVSS
#QVSSMS,
RS
CLEAN
R1,%4DR+2
PRI
DR,RS
RS
RS
RS
RS
PRI
-2(R1)
PRI
4CRLF
#CRLF ,RS

-(R1)
PRIN

:SAVE FLOATING ADDRESS
:REPLACE FLOATING ADDRESS WITH STANDARD
;PRINT STANDARD CSR
;GO TYPE IT
;:CONTINUE TEST
;IS IT THE ML11L
;BRANCH IF NOT
;GET VECTOR
;IS IT THE DEUNA
;IF NOT BRANCH
;DECREMENT DEVICE COUNT
: 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
;CONTINVE 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

;SET UP TO SUBTRACT
iGET OVER CLEAN UP ROUTINE

;ARE THERE ANY LEFT?

:YES, THEN BRANCH
;CR/LF
;ADDRESS TO RS
;GO TYPE IT
sADJUST POINTER

;CLEAN UP

;tttttttttttt‘ttttttt‘tt‘tt“tttt‘t.‘t“““tt

tt“‘t“t“tt‘t‘tt

PRI:

4CRLF

sCR/LF

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
1178
1179
1180
1181
1182
1183
1184

004402
004404
004410
0C4412
004416
004420
004424
004426
004426
004432
1185 004434
1186
1187
1188
1189
1190
1191

1192 004436

1193 004440

iigg

012705
104003

014510

012705
104003
104004

016105

004737

004444

012705
104003
005341
001420

012054

005721
022711
001003

013711

000410
02271%
001003
013711
000402
066011
000745
012705
104003

170460

012040
172430

007520

014510

#CRLF ,RS

#TAB,RS

FLAG

4s:
JSR
;LWLO02 BR
;LWLO026$:
74:
PRINT
MOV
TYPE
DEC
BEQ
18T
CMP
BNE

31s:
32%:
PRIN:

005721

;BR FOR

'FA’

PC,VECT
;GO GET THE VECTOR
78
;GO TYPE IT
JSR
PC,JUMPER
;GET JUMPER OR SWITCH SETTING
#A
;:TYPE THE ADDRESS AND VECTOR/JUMPERS
#A RS
;ADDRESS TO RS
;GO TYPE IT
-(R1)
;ANY MORE OF THE SAME?
PRIN
;BRANCH IF NO MORE
(R1);POINT TO ADDR OF DEVICE
#170460,(R1)
;CHECK TO SEE IF ITS THE LPA11-K
30
;BRANCH IF NOT

MOV

30$:

;ADDRESS TO RS
;GO TYPE IT
;PRINT TAB TO OFFSET ADDRESSES
;ADDRESS TO RS
;GO TYPE IT
;CHANGE ADDRESS TO ASCII
;WHICH OPTIN?

4&TAB

;LWL002 BMI

012042

SAVE1L, (R1)

BR
CMP
BNE
MOV
BR
ADD
BR
PRINT
MOV
TYPE
187

;RESTORE FLOATING ADDRESS

328
#172430, (R1)
318
SAVE2,(R1)
324
NAT(RO), (R1)
S$
HCRLF
#CRLF,RS

(R1).

;sBRANCH TO CONVERT
;CHECK TO SEE IF ITS THE DR11-B
:BRANCH IF NOT
;RESTORE FLOATING ADDRESS
;BRANCH TO CONVERT
;ADD
GAP BETWEEN SAME DEVICES
;GO CONVERT
+NEXT DEVICE
;ADDRESS TO RS
;GO TYPE IT
;ADJUST POINTER

(R1)+,(RO)«

;UPDATE POINTERS

;& END OF CHECKS
:

022120
000137

002510

1196

12¢%:

cMP

JMP

RN N R
T

1197
1198

1199
1200
1201 004444
1202

MOV
TYPE
Ss:
PRINT
MOV
TYPE
OTOA
;LWLO02 TST8

:
;
010146

DONEL

;SEE IF ANY MORE

R R R N A N R R R R R R AR A R R R N
T

T T

YTYTTTMTM

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

VECT:

MOV

1203

1204
1205
1206
1207
1208
1209 004446
1210 004452
1211

$227722222222222222222222222222222222222222222222222222222222
27 7?
; SPECIAL DEVICE VECTOR CHECKING........000veun.
:
;¢ THE VECTOR IS OK BEFORE WE GET TO THE DMA'S
:
4 :
o, [
R1,0DMA
;WORRY ABOUT CORRECT VECTOR?
BLT
64
;BR IF NO

020127
002501

010444

R1,-(SP)
T

TTY T TTY TYYyrorem

;LWLOO2

po-

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

cMp
BEQ
cMp
BEQ
cMp
BEQ
CMP
BEQ
cMp
BEQ
cMP
BEQ
cMp
BEQ
cMp
BEQ
cMP
BEQ
cMP
BEQ
cMp
BEQ
cMp
BEQ
cMp
BEQ
cMP
BEQ
CMP
BEQ
cMP
BEQ

010456

010636
010642
010652

010666

010672
010676
010712
010726
010732
010752
010756
011012

011022
011026

R1,4DN.2
6%
R1,4DMBB
+2
64
R1,#RL
+2
63
R1,8TS11.2
64

;:ON VECOR INCREASE BY 4

;:DMBB INCREASE BY 4
;RL11 VECTOR INCREASE BY 4
:TS11 VECTOR INCREASES BY 4

R1,0IP.2
64
R1,4RX
2
64
R1,%40RW+2
63
R1,0D0RB+2
6%
R1,#ML.2
6%
R1,0UNA.2

; TP11 VECTOR INCREASES BY 4
;RX11 VECTOR INCREASES BY 4
;:ORW VECTOR INCREASES BY 4
;:ORU VECTOR INCREASES BY 4
;ML11 VECTOR INCREASE BY 4
;UNAR VECTOR INCREASE BY 4

63
R1,4UDA+2
64

;UDA VECTOR INCREASE B8Y 4

R1,4V5100.2
64
R1,4TUB1+2
64
R1,4QNA+2
63
R1,4VS31.2
63
R1,4LNV+2
6%

;VS5100 VECTOR INCREASE BY 4

;TU81 VECTOR INCREASE BY 4
;QNAR VECTOR INCREASE BY 4

;VS31 VECTOR INCREASE BY 4
;LNV-11 VECTOR INCREASE BY 4

+» CORRECT VECTOR IF NEEDED
032737
001403
062737

000004

012030

000004

012030

8IT
BEQ
ADD

#B8IT2,VECTOR
1s

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

#4 ,VECTOR

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

010526

1s:

000910

012030

000010

012030

012701
021127
003405

012030
000774

6%:

cMP
BNE
B8IT
BEQ
ADD

AND FINALLY

MOV
CMP
BLE
PRINT

R1,4GT+2
6%
#BIT3,VECTOR
6%

;ARE WE THERE?

:DON'T WORRY ABOUT IT
;CHECK IT

:MAKE IT RIGHT

#10,VECTOR

MAKE

SURE

IT'S

4VECTOR,R1
8R1,4774
24
4BADCON

BOUNDS

;SET R1 FOR OTOA ROUTINE
;CHECK FOR HIGH VECTOR LIMIT
$IT'S OK!

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
1221
1322 005036
1323 005042

012705
104003
000137

015605

MOV
TYPE
JMP

001120

BRI

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

012062
012054
010120

004754
005000
012030

2s:

MOV
MOV

ADD

Ss$:

RTS

SOTOA:

177770
000060

1$:

;DONE!

Py PR T

PP P Y

VY YF I

QABUF ,SOTOA+2
@A ,SOTOA+26

:RESET OTOA ROUTINE

; CONVERT YECTOR

;ADJUST FOR NEXT
;RESTORE R1

.SBTTL JUMPER SELECT

012070
177774

010516

;MODIFY OTOA ROUTINE - BUFFER START
;BUFFER END
;:ZERO END OF BUFFER FOR CR/LF

MOV
MOV
MOV
MOV

RO, -(SP)
8R1,RO
QDBUF ,R3
9-4,R4

1358305088808 08 800800400 0dbbat

020127
001437

CONVERT THE ADDRESS BITS THAT ARE SET TO THEIR ASCII EQUIVALENT

JUMPER:

PR TR

.SBTTL OCTAL TO OCTAL ASCII
JABUF ,R4
:START OF BUFFER TO R4
MOV
RO, -(SP)
;SAVE RO
MoV
(R1),R3
;:GET NUMBER
MOV
R3,RO
;S0 DOES RO
#177770,R0
;THE LAST 3 BITS ARE OF INTEREST!
BIC
BIS
#60,R0
;MAKE IT AN ASCII NUMBER!
MOVB
RO, -(R4)
;STORE IT
CMP
QA R4
;ARE WE DOWN?
BNE
24
;NO-BR
MOV
(SP)+,RO
;YEP! RESTORE RO
RTI
ASR
R3
;:GET THE NEXT 3 BITS
R3
ASR
R3
ASR
MoV
R3.RO
;MOVE TO RO
B8R
1s
;:DOITTOITAGAIN!!!

2%:

MOV

012054

#0BUF +6,S0TOA+2
#DBUF ,SOTOA+26
DBUF +6

VST(RO),VECTOR
SEP)o.Rl

MOV

012062

:ADDRESS TO RS
;GO TYPE IT

RES

CLR
OTOA

;
010046
011100
012703
012704

#BADCON, RS

SRS

Ay S-S

;:SAVE RO
:RO<=ADDRESS
;R3<=ASCII BUFFER
;GO FROM -4 TO 12
bbbtk bbbbbibbbbbbbbtbbbibbk

THE DEVICES THAT USE JUMPERS USE THE JUMPER TABLE (JT).

CHP

BEQ

R1,4DJ.2
13

: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 005044
1325 005050
1326 005052
1327 005056
1328
1329 005060
1330 005064
1331
1332
1333
1334
1335
1336 005066
1337 005072
1338 005074
1339 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
1356
1357
1358
1359
1260
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380

020127
001434
020127
001431
020127
001426

010522
010542

010566

CMP
BEQ
cHp
BEQ

R1,40H+2
1s
R1,#0Q+2
14

cMp
BEQ

R1,4LK.2
1s

;LWLO02 CHMP

R1,0LKK+2
;LWLOO2

------------------------------------------------

---------------

tttttttttttttttttttttttttt‘tttttttttttttttttttttttttttt‘ttttttt

:THE DEVICES THAT USE SWITCHES USE THE JUMPER TABLE (sm
020127

001420
020127

001415
020127
001412
020127
001407
020127
001404

020127
001401
000416
012705
000402
012705
005204
006000

103375

005154
005160
005162
005166
005170

020427
001403
004737
000767
012600

005172
005174

105013

000207

005176
005200
005202
005204
005210
005212
005214
005220
005222
005226

006304
060405
111523
116513
160405
006204
122327
001402
112723
000207

010552

010556
010576
010602

010606
010726

CMP
BEQ
CMP
BEQ
CHP
BEQ
CMP
8EQ
CMP
BEQ
cHP
BEQ
BR

011774

4%:

ggv

012000

1s:
2%:

MOV
INC
ROR
8CC

CcMpP

000012
005176

BEQ
JSR
BR
MOV

;LWLO02 CLRB
g%gB

CVTA:
000001

000054
000054

1s:

R1,Q0U.2

Rl.ODUPOZ

Rl o0MC.2
Rl @0Z+2

R1 #KMC+2
44
R1,0UNA.2
43
3
gST.RS
$

;RS<=

®JT,RS
R4
RO

iRS5¢<= JUMPER TABLE
;THE FIRST 3 BITS WILL BE CLEAR
;:SHIFT THE ADDRESS

R4, %12

;IF CLR - TRY THE NEXT

$
PC,CVTA
24
(SP)+,RO

:BR IF FINISHED
;CONVERT TO ASCII
;00 IT AGAIN

-(R3)
823)

:ZERQO BYTE FOR QUTPUT
;ZERQ BYTE FOR OUTPUT

.SBTTL CONVERT

;RESTORE RO

MOvVB

(RS).(R3).

Move
sus
ASR
CMPB
BEQ
MOVB
RTS

:LWLO02

BIT TO ASCII
¢

ASL

ADD

SWITCH TABLE

R4 .RS

1(R5),(R3)
R4 ,R5
R4
(R3)e, 0,
1
& ., (R3).
PC

.SBTTL INPUT ROUTINE

:R4 HAS A & BETWEEN O AND 11
;ADD IT TO RS

---POINTS TO CORRECT ASCII CHAR.S

;HOV CHARACTERS TO BUFFER

;RESET RS
;RESET R4
;TO MAKE IT NEAT---MAKE SURE THERE
;YEP!
OK!!
;PUT IT THERE

IS A COMMA

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursdey 23-May-85 10:38

Page 2-16

SEQ 0026

INPUT ROUTINE

1381 005230
1382 005234
1383 005240
1384 005244
1385 005246
1386 005252
1387 005256
1388
1389 005262
1390 005264
1391
1392 005270
1393 005272
1394 005276
1395 005302
1396 005304
1397 005306
1398 005312
1399 005314
1400 005316
1401 005322
1402 005324
1403 005330
1404 0C5334
1405 005336
1406 005342
1407 005346
1408 005350
1409 005354
1410 005356

1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421

005362
005364
005370
005372
005374
005400
005402
005406
005412
005414
005416
005416
005422
1422 005424
1423 005430
1424 005434
1425 005436
1426 005444
1427 005446
1428 005454
1429 005462
1430 005466
1431 005470
1432 005474
1433 005476
1434 005502
1435 005504

012700
105777
105777
100375
117710
142710
121027

173430
000200
000141

002405
121027

000172

003002
142710
121027
001001
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
000556

021542
173442
173434

SINPUT:

TST:

000040
000023

000021

000003
001004
000032
001444
011760
000001

011740

MOVB
8IC8
CcMPB
;LWLOO2 BLT
BLT
cMPB
;LWLOO2 BGT
8GT
8ICB
114:
CMPB
BNE
BR
12¢;
CMPE
BNE
BR
2s:
CcMPB
BNE
JMP
et
CcMPB
BNE
JMP
7%:
TS8T
BEQ
CcMPB
BNE
TS78

007072
006562

8s:

000002
000002

9:
10¢:

014510

001410
000177

5%:

000002

011740

000002
000134
173216

011740
173224

000015

MOV
7578
17578
BPL

4s:
3s:

171204
1

BEQ
cMp
BEQ
BR
CMP
BEQ
suB
suB
CLR
MOV
PRINT
MoV
TYPE
JMP
CMPB
BEQ
8IT
8eQ
B8IC
MOV
TS78
8PL
CHPB
BEQ
nOve
BR
PRINT

#UFF RO
97TRB
8TRS
TST

8TRB, (RO)
®8IT7,(RO)
(RO), 0141
28
114
(RO), 0172
2
114
#BITS, (RO)
(RO),e23
12%
SINPUT

(RO), %21
28
SINPUT

(RO),
03
64
START
(RO), 032
7%
PRINT
FLAGS
5%
(RO), 01
5%

FLAG
84
#0T2,R2
10¢
94
0T1,R2
104
#2,R1
2,R3
8-(R2)
(SP)+,(SP)+
&CRLF
OCRLF ,RS
QUES
(RO),0177
RUBOUT
®BIT1,FLAG
3
®BIT1,FLAG
'\,97P8
aTPs
43
(RO),oCR
13
(RO)..87P8
157
OCRLF

;START OF BUFF TO RO
:KILL LAST CHAR.

:SEE IF HE TYPED ANYTHING

:BR IF NO
;STORE IT
;STRIP PARITY
;SEE IF ITS LOWER CASE
;BR IF NO
;BR IF NO
:MAYBE
: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 2
;BRANCH IF NOT
;PRINT SELECTED LIST
;IS IT OK TO USE CONTROL A
;BRANCH IF NO
;IS IT A CONTROL A
;BRANCH IF NOT
sCHECK FOR VA OR FA
;BRANCH IF FA
;CHECK IF AT BEGINING OF VA TABLE
;BRANCH IF AT BEGINING
sBRANCH TO BACK UP TABLES
;CHECK IF AT BEGINING OF FA TABLE
;BRANCH IF AT BEGINING
;BACK UP MTL OR MTZ2
;BACK UP QT1 OR QT2
;BACK UP DT1 OR DT2 AND CLEAR NUMBER
;RESTORE STACK
;D0 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
;YES..NOT ANY MORE!
;SEPARATE THE DELETED FROM THE NEW.

;WAIT FOR READY.

;A TERMINATOR?
; YES?
;NO. .JUST ECHO AND
;GET NEXT CHARACTER.

;PRINT

AND

LF.

;LWLOO02

;LWLOOZ2

sLWLO02
sLWLOOZ2
sLWLOO2
sLWLOO2
;LWLOOR
sLWLOOZ

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 25-May-85

10:38

Page 2

SEQ 0027

INPUT ROUTINE
035504
035510
1436 005512
1437 005516
1438 005520
1439 005524
1440 005526
1441 005534
1442 005536
1443 005544
1444 005546
1445 005554
1446 005562
1447 005566
1448 005570
1449 005574
1450 005600
1451 005602
1452 005604
1453 005606
1454 00561¢C
1455 005614
1456 005620
1457 0C5624
1458 0C5626
1459 005630
1460 005632
1461 005634
1462
1463
1464
1465 005636
1466 005640
1467 005642
1468 005646
1469 005650
1870 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
1433 005714
1484 005716
005716
005722
1485 005724
1436 005732
1487 0057134
5736
1438

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

014510

021542
RUBOUT:

021542

000126

012277

000002

011740

000002
000134
173116

011740

173124

173112
17319

2%:

112103
122703
001433
120327

-(RO)
RO, -(SP)
Q0CHAR RO

TST8
BPL

8TPS
5

BNE
MOV
BR

63
(SP)+,RO
TST

S$:

SDATO:
021542

tMP1:

000060

000071

162703
006300
060003

000060

HMovB

MOV
MOV

014513
100000

011740

ER:
T0B:

(RO)

R3,-(SP)
MBUFF R1

CLR
MOVB
cMPB
BEQ
CHPB
BLT

RO
(R1)+,R3
¢CR,R3
EXIT
R3,960
IL

BGY
sus

IL
960,R3
RO
RO ,R3

ASL
ADD
ASL
ASL
ADD
8CC

IL:

(RO).,aTPB

;ADDRESS TO RS

;GO TYPE IT
;POINT RO TO BEGINNING OF BUFFER.
;RETURN
;:CAN‘T DELETE PAST BEGINNING OF BUFFER
;IS THIS A VIDEQO TERMINAL?
:BRANCH IF IT IS
sIN DELETE HODE?
1BR IF YES
;:NOW WE ARE!
;SEPARATE THAT
sWAIT

THAT

IS FROM THAT

;LWLOO2
;LWLOO02

THAT

B8R

R3, 871

RO
R3,RO
CMP1

T08

&ILL

IS NO MORE!!

;:ECHO DELETE CHAR,
;WAIT FOR READY

:GET NEXT
:BACK-UP POINTER
:SAVE RO POINTER
;:GET DELETE SEQUENCE OF CHARACTERS
;0UTPUT FIRST CHARACTER
;READY FOR NEXT ONE?
:BRANCH IF NOT
;END OF STRING?
:NO,NEXT CHARACTER
;RESTORE RO
;BACK TO INPUT ROUTINE

.SBTTL DECIMAL ASCII TO OCTAL
MOV
R1l,-(SP)
;SAVE R1

CcMPB

006300
006300
060300
103356
000407
012705
104003
52737
000411
104006

1578
BPL
BR

15718

120327

¢'\,8TP8
aTPS
28
-(R0O),3TPB
aTPs
1s
TST

TSTB
MOV
MOV

002414
003011

UFF ,RO
TST
oV, TERMTP
43
#BIT1,FLAG
33
#BIT1,FLAG

6%:

000015

#BUFF ,RO

MovB

001371
012600
000601

010146
010346
012701
005000

Move
1578
8PL

CRLF ,RS

3s:

18:

012273
173066
173060

MOV
TYPE
MOV
RTI
CMP
BGE
CMPB
BEQ
BIT
BNE
8IS

;AND R3

; INPUT BUFF T0 R1
;RO GETS RESULT
sGET CHAR.
;EOL?
;YES - BR
;SEE IF IT'S A NUMBER
;CAN'T BE LESS THAN 60
OR
:
;GREATER THAN 73
;CHANGE TO OCTAL
sSHIFT OLD
;ADD TO NEW
A DIVIDE BY 8.ROUTINE!
;0LD o 2
H
:

#2 AGAIN

:ADD (2¢0LD+NEW) TO 1040LD
;NO CARRY -- 0K
;sELSE IT'S T00 BIG
;IT'S AN ILLEGAL NUMBER

MOV
TYPE

QILL RS

8IS
BR
OTDA

eBIT15,FLAG
0K

; PODRESS TO RS
;GO TYPE IT
;:SET ERROR FLAG
SEXIT

478

;700 BIG

;LWLOO02
;LWLOO2
;LWLO02
;LWLOO2

;LWLO02

sLWLO02
;LWLOO02
;LWLOO2
;LWLOO2
;LWLOO2

FLOAT

ADDRESSES AND VECTORS

DECIMAL ASCII
005736
035742
1489 005744
1490 005746

1491 005752
1492 005754

012705
104003
000767
016601

021100
002767

012603
012601
000002

005764
005772
005774
006002

032737
001403
062737
000207

006004
006012
006014
006022
00603C
006032
006040
0C6042
0C6050
006052
006060
006066
006070
006076
006104
006106
006114

032737
001403

1505

1506

1507

1508

1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1219
1520
1521
1522

1523
1524
1525
1526
1527
1528
529

062737
032737

001403
062737

000207
032737
001403
062737
032737
001403
062737
032737
001403
062737
000207

006116
006122
006126
006132
006136

012700
012705
017604
012701
005201

1531 005142
1532 006144

103375
061504

006156
006160

110120
000764

1530 006140
1533
1534
1535
1536
1537
1538
1529
1540
1541
1542
1543

006146
006150
006152

006162

005166
006170
006172
006174

Thursday 23-May 85 10:38

Page 2 18
SEQ 0028

TO OCTAL

1493 005756
1394 005760
1495 005762

1496
1497
1498
1499
1500
1201
1502
1503
1504

MACRQ Y05.02

014546

000002

OK:

000010

012034

000010

012034

000010

012034

000010

012034

000020

012034

000010

BEX:

MOV
MOV
RTI

BADD:

8IT

012034

BEX1:
BITE2:

000010
000020

012034
012034

BADS:

000020
000040

012034
012034

BADDS:

000040

012034

RTS
BITY
BEQ
ADD
BIT
BEQ
ADD
8IT
BEQ
ADD
RTS

000020

014575
006176
000006
177777

000060

062701

000060

012034

BEX2:

4T8,RS

ER
2(SP),R1

(R1),RO
T08B

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

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

005745
001404
062701

000000
000001

BITE:

cMpP
BLT

BITEL:

161504

110120
000002

EXIT:

MOV
TYPE
BR
MOV

ADD

BEQ

ADD

€10, ADDR
BADD
4¢10,ADDR
927 ,ADDR
BEX1
92C, ADDR
pr
210, ADCO
BADS
€10, ADDR
€20, ADDR
BADDS
20, ADDR
40, ADDR
BEX2
940, ADDR
PC

sRDDRESS TO RS
;G0 TYPE IT
;GO SET ERROR
:RESTORE R1

;:CHECK FOR MAXIMUM NUMBER
;BR IF TOO BIG
;RESTORE R3
;RESTORE R1

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

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

;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

.SBTTL OCTAL TO DECIMAL ASCII
:DIVIDE BY
1.410.
N
H
SET UP FOR A MAXIMUM OF TWO DIGITS.
:
SOTDA:
MOV
OMAXIUM,RO
;POINTER TO STORE ASCII.

MOV

2%:
1s:

3s:

4#01G2,R5

;POINTER TO DIVISOR TABLE.

aR5,R4

;D0 THE PSEUDO DIVIDE!

MOV
MOV
INC

96(SP) R4
4-1,R1
R1

BCC
ADD

13
aR5,R4

sSuB

TST
8EQ
ADD
MOVB
BR
ADD
move
RTI

-(RS)
3
&' 0,R1
R1,(RO).
23
4'0,R1
R1,(RO).

.WORD
.WORD

0
1.

;:GET DIVIDEND.
;RESET COUNTER.
;THE QUOTIENT!

;:NO CARRY-TRY AGAIN,
;REPLACE WHAT WE TOOK.

;E0T?
:BR IF YES
sMAKE IT ASCII

;STORE IT.
sNEXT CHARACTER.
sMAKE LAST

ASCII

;AND STORE IT
;RETURN

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85

10:38

Page 2-19

SEQ 0029

OCYAL TO DECIMAL ASCII
1544 006176
1545
1546
1547 006200
1548 006204
1549 006206
1550 006212
1551 006214
1352 006222
1553 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
006316
006320
006324
006326
006330

1567
1568
1569
1570
1571
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

01Ge:

172500

STYPE:

172466
172462
177600
000023

172430
177600

000021

MOV

XOFF;

172410

105715
001004

TENDM:

012705
104003
000002

014510

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

000200

1¢:

FILL:

FILCNT:
FILLER:

172342
000000
006334

1s:

172334

TST8

MoV

XON:

012140

81C
CMPB
BNE
8PL

011772
011772
011772

10,

.SBTTL OUTPUT ROUTINE
TST8
aTPS
BPL
STYPE
1578
8TRS

BPL

011772
011772
011772

172434

.WORD

BIC
cMP8
BNE

XON

8TRB,SVCHA

#177600, SVCHA
€23, SVCHA
XON
8TRS

XOFF

9TRB,SVCHA

;sREADY?

: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@
sWAITE FOR CONTROL Q
;PRINT 1T
;FILL CHAR.???
:BR IF YES
;EQD ??
;NOT FOR SURE.

Move

177600, SVCHA
@21, SVCHA
XOFF
(RS),87PB

8EQ
1578
BNE
PRINT

FILL
(R5)
1s
QCRLF

MOV

QCRLF RS

;:ADDRESS TO RS
;GO TYPE IT

(RS),&NOCRLF
STYPE

;sMAYBE

CcMPB

TYPE
RTI
CMPB
BNE

RTI
MoV

.WORD
.WORD
TSTB
BPL

MOVB
DEC
BNE
BR

(R5)+,CHAR

(PC)+,(PC).

10
O
aTPs
1s
#0,37P8
FILLER
13
TENDM

.SBTTL DATA TABLES
.NLIST
BEX

; YES

?27?

;:NO
; YES
;SET FILL

;10 TO START
sREADY?

;:NO

;TYPE A NULL.
:1 LESS 70 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

Kol1

L LTI

THE TABLES ARE THE GUTS OF THIS PROGARM !

;t THESE

TABLES MUST

REMAIN IN ORDER?'! !

;¢ QUESTION TABLE (QT1) - POINTS TO THE ASCII DEVICE NAMES
i
USED FOR ASKING THE QUESTIONS AND

WHEN

TYPING

THE

ANSWERS

FOR

THE

‘VA‘

OPTION.

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

QT1:

.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.WORD
.WORD

Q1,Q2,Q3,Q4,Q5
Q6,Q7,Q8,Q9,Q10
Q11,Q12,0Q13,Q14,Q15
Q16,Q17,Q18,Q19,G20
Q21,Q22,Q23,Q24,Q25
Q26,Q27,Q28,Q29,Q30
@31,Q32,Q033,Q34,Q35
Q36,Q37,Q38,Q39,Q40
Q41,Q42,Q43,Q44,Q45
Q46,Q47,Q48,Q49,Q50
Q51,Q52,Q53,Q54,Q55
Q@56,Q57,Q58,Q59,Q60
Q61,Q62,Q63,Q64

o0 o0 o

&« DEVICE TABLE (VA OPTION) (DT1)

THE

Q71 TABLE.

x
&

Oee o

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

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

T 1:

THE

ORDER
NUMBER

DIRECTLY

;:0C,0L,DP,DMA,DN
;DMBB,DR,PAR,PAP
,LPD
;07,0X,.0LC,DJ,DH
;GT,VSV,LPS,DQ,KWW
;0U,DUP,DV,LK,DWUN
;0MC,DZ,KMC11,LPP11,V21
;v31,v01,DWR,RL11,TS11
;LPAK,IP,KWC,RESR,RX11
;DRW,DRB,0OMP,DPV
ML
;ISB.DMV,UNA,UDA,OMF
;KMS,PCL,VS,TU,KMV
;KCT,IEX,DHV,DMZ,CPI
;QANA,QVS,VS31,LNV

- POINTERS TO THE DEVICE DATA TABLE

iHE

SO THAT WHEN YOU ASK FOR
JF

DC11‘'S

YOU

STORE

THE

ANSWER IN THE DEVICE DATA TABLE FOR
THE DC11 AND NOT THE PA6'S.
.WORD
DC,DL,DP,DMA,DN
.WORD
DMBB,DR,PAR,PAP,LPD
.WORD
OT,DX,0LC.CJ,DH
.WORD
GT,VSV,L¥rS,DQ,KWW
.WORD
DU,DUP,DV,LK,DWUN
.WORD
DMC,DZ,KMC,LPP,V21
.WORD
Vv31,V01,DWR,RL,TS11
.WORD
LPAK,IP,KWC,RESR,RX
.WORD
DRW,DRB,DMP,DPV,ML
.WORD
ISB,DMV,UNA,UDA,DMF
.WORD
KMS,PCL,VS5100,TU81,KMV
.WORD
KCT32,IEX,DHV,DMZ32,CPI32
.WORD
QNA,QVSS,VS31,LNV

FLOAT

ADDRESSES

AND

VECTORS

~——

MACRO

Y05.02

Thursday

May-85

10:38

Page

SEQ 0031

DATA TABLES
1635
1636
1637
1638

1639
1640
1641
1642

1643
1644
1645
1646
1647
1648
1649

006762
006774
007006
007020

307032
007044
007056
007070

012674
013150
013332
013544

013704
014052
014220
014441

012715
013212
013353
013565

013725
014073
014303

013021
013235
013415
013606

;#QUESTION TABLE 2
(QT2)
POINTS TO THE ASCII DEVICE NAMES
ik
USED FOR ASKING THE QUESTIONS FOR
Y
THE 'FA’ OPTION
i

QTe2:

013767
014114
014325

.WORD
.WORD
.WORD
.WORD

Q14,Q15,Q19,Q21,Q22
Q24,Q26,Q27,Q28,Q29
Q30,Q031,Q33,Q34,Q36
Q38,Q39,Q40,Q41,Q42
@43,Q43,Q46,Q47,Q48
@49,Q50,Q@51,Q53,354
Q55,Q@58,Q59,Q60,Q062
Q63

;DJ,DH,DQ,DyV,DUP
;LK,DMC,DZ,KMC,LPP
:v21,V31,DWR,RL,LPAL1-K
;KWC,RESER,RX11,DRW,DRB

;DMP,DPV,ISB,DMV,UNA
;UDA,DMF ,KMS,VS100,TUs1
;KMV,DHV,DMZ32,CP132,QVSS
;VS31

1650

;#DEVICE TABLE 2 (DT2)

- USED WITH Q.2 FOR STORING ANSWERS AND

FOR

1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664

ik
;&
ik
i
DT2:

THE

THEREFORE MUST BE IN THE ORDER OF THE
PRIORITY OF THE DEVICE. IT ALSO MusT
END WITH A ZERO.
(FA OPTION)

007072
007104
007116
0C7130
0C7142
007154
007166
007200

010514
010564
010614
010654
010700
010730
010760
011020

010520
010574
010620
010660
010704
010734
010774
000000

010540
010600
010630
010664
010714
010740
011000

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

COMPUTING

FLOATING

ADDRESSES.

0J,0H,DQ,DVU,DUP
LK,DMC,DZ,KMC,LPP
vel,v31,DWR,RL,LPAK
KWC,RESR,RX,DRW,DRB
OMP,DPV,1ISB,DMV,
UNA
UDA,DMF,KMS,VS100,TU81
KMV,DHV,DMZ32,CPI22,QVSS
vVs31,0

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page S

SEQ 0032

DATA TABLES

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« MAXIMUM NUMBER TABLES 1 € 2
i# (MT1,MT2) - USED FOR THE ‘'VA'

AND 'FA’ OPTIONS RESPECTIVELY
CONTAIN THE MAXIMUM NUMBER OF CONTROLLERS THAT

.
b
ik

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

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:

000020
000002
000002
000002
000012
000012
000012
000012

000020
000020
000002
000001
000012
000012
000012
000000

000020
000020
000002
000004
000004
000012
000012

MT2:

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

.WORD
.WORD

.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,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. o1
4,10.,10.,10.,10.
10.,4,6,10.,10.
4,1,10.,10.,10.
4,4,10.,2,0

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

;:0C,D.,0P,DMA,DN
;OMBB,DR,PAR,PAP
,LPD
;DT,0X,0LC,0J,DH
;GT,VSV,LPS,DQ,
KWW
;0U,DUP
DV ,LK,DWUN
,

;:DMC,0Z,KMC11,LPP,
V21

;V31,V01,DUR,RL,TS11

iLPAK,IP11,KW11C,RESR,RX11
;:ORW,DRB,DMP
,DPV ML
:158,0MV
,UNA ,UDA ,DMF

:KMS,PCL,VS100,TU81,KMV
:KCT32,I€EX,DHV,DMZ32,CPI32

:QANA,QVSS,VS31,LNV

;0J,0H,DQ,0U,DUP
;LK,DMC,DZ,KMC11,LPP
:v21,V31,DWR,RL,LPAK
;KWC ,RESER,RX11,DRW,DRB

;:DMP ,DPV,1SB,DMV,UNA
;UDA,DMF ,KMS,VS100,TU81
;KMV ,DHV ,DMZ32,CPI32,QVSS
;VS31

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 0190240
1749 010252
1750 010264
1751 010276
1752 010310
1753

:# NEXT

;¢ (NAT)

.t
000010
000010
000002
000010
000010
000010
000020
000020
000010
000010
000020
000040
000020

000010
177770
000040
000010
000010
000010
000160
000400
000010
000020
000040
000020
000100

177770

000010
000010
000040
000040
000010
000010
000010
000010
000010
000020
000020
000010

ADDRESS TABLE

- USED TO CALCUL_ATE THE NEXT CSR ADDRESS (VA OPTION)

OF A LIKE DEVIC:.

NAT:

JWORD

10,10,-10,10.10

.WORD
.WORD
.WORD

;:0C,0L,DP,DMA,DN
;:OMB8B,DR,PAR
,PAP ,LPD
;0T,0x,0LC,DJ,DH
;GT,VSV,LPS,DQ,
KWW
;0U,DUP,DV,LK,DWUN

10,-10,10,'0,10
2,40,10,10,20
10,10,40,10,1C

.WORD
.WORD
.WORD
.WORD

10,10,40,10,0
10,10,10,10,10
20,160,10,10,4
20,400,10,10,10

.WORD
.WORD
.WORD
.WORD
.WORD

;:OMC,DZ,KMC11,LPP11,V21
;V31,v01,DWR,RL,TS11

;LPAK,IP1]1 ,KWC,RESR,RX11

10,10,10,10,0
10,20,10,4,40
20,40,20,4,20
40,20,20,40,40
20,100,10,40

:ORW,DRB,DMP
,DPV ML

; 15B,DMV,UNA,UDA
,DMF

sKMS,PCL,VS100,TUB1,
KMV
;KCT32,IEX,DHV,DMZ32,CP1I32
;QNA,QVSS,VS31,LNV

:* ADDRESS TABLE

i*#

(ADDRT)

USED FOR LOADING THE DEVICE DATA TABLE

WITH

THE FIRST

ADDRESS

FOR

MUST HAVE A ZERO ENTRY FOR

FLOATING

ADDRESS

EACH

(VA

FA OPTION)

DEVICE.

DEVICES

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
170400
175000

ADDRT:

000000

000000
000000
000000
000000
000000
000000

:#
t

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
000010
000030
000020
000010
000010
000010
000010
000004
000004
000010
000004

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

174000,176500,174770,175000,175200
170500,167770,172600,172700,172700
177420,176200,175610,160010,000000
172000,172000,170400,000000,172400
000000,000000,175000,000000,
172500
000000,000000, 000000,000000, 000000
000000,172600,000000,000000,
172524
170460,171400,000000,000000,
000000
000000,000000,000000,000000,176400
000000,000000,000000,000000,
000000
000000,164200,000000,000000,
000000
164400,164100,000000,000000,
000000
174440,000000,000000,176200

VECTOR SIZE TABLE
(VST) - USED TO CALCULATE

VST

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

THE NEXT

10,10,10,10,4

VECTOR

;0C,DL,DP,DMA,DN

;:DMBB ,DR,PAR,PAP,LPD
;07,DX,0LC,DJ,DH
:GT,VSV,LPS,DQ,
KWW

;DU,0UP,DV,LK,DWUN
;DMC,DZ ,KMC11,LPP, V21

:V31,v01,UKR,RL,TS11

:LPAK,IP11,KWC,RESR,RX11

; DRW,DRB,DMP
,DPV , ML
; 158,0MV,UNA,UDA,
DMF

;KMS,PCL,VS100,TUB1
,KMV
;KCT32,IEX,DHV,DMZ32,CPI32
:QNA,QVSS,VS31,LNV

(VA OPTION)

10, 10.10,4.
10 4,10,4,4

;0C,0L,DP,DMA,
D\
;:OMB88B,0R,PAR,Pr?,LPD
;07,0x,0LC,DJ,DH
;GT,VSV,LPS,DQ,
KWW
;DU,DUP,DV,LK,DWUN
;DMC,D0Z,KMC11,LPP11,V21
;V31,V01,0WR,RL,TS11
;LPAK,IP ,KWC,RESR,RX11

10,10,4,4,40
20,10,4,4,10
10,10,10,30,30
4,20,4,4

;1SB,DMV ,UNA,UDA ,DMF
;KMS,PCL,VS100,TUBL,
KMV
;KCT32,IEX,DHV,DMZ32,CPI32
;QANA,QVSS,VS31,LNV

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

4,4,10,10,4

;DRW,DRB,DMP
,DPV ML

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

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
,
KMVS,DHVS,DMZ32S,CPI32S,QVSSS
VS31S

OPTION WHEN TYPING ANSWERS

FLOAT

ADDRESSES

AND

VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 7

SEQ 0035
DEVICE DATA TABLE

K
BE
BR
K
E

MUST REMAIN IN ORDER OF

THE

VECTOR ASSIGNMENTS

MUST END WITH TWO MINUS ONES

010430

DEVSTR
ik

0C:
DL:
DP:
DMA;
DN:
DMBB:
DR:
PAR:
PAP:

LPD:
DT:
DX:
OLC:
0J:
DH:
GT:
VSV:
LPS:
0Q:

KWW:

DU:
DUP:
Dv:

LK:

DWUN:
OMC:
0Z:

KMC:
LPP:
vel:

V3ii:
vol:
OWR:

RL:
TS11:
LPAK:
IP:
KWC:
RESR:
RX:
DRW:

DRB:
DMP:
DPV:
M :
1S8:

DMV
UNA:
UDA:

.BLKW
.BLKW
BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
BLKW
.wLKW

BLKW
.OLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

.BLKW
.BLKW
LBLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
BLKW

MLV

1768
1769
1770
1771
1772
1773
1774
1775
1776 010430
1777 010434
1778 010440
1779 010444
1780 010450
1781 010454
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
1800 010570
1801 010574
1802 010600
1803 010604
1804 010610
1805 010614
1806 010620
1807 010624
1808 010630
1809 010634
1810 010640
1811 010644
1812 010650
1813 010654
1814 010660
1815 010664
1816 010670
1817 010674
1818 0107G0
1819 019704
1820 010710
1821 010714
1822 010720
1823 010724
1824 010730

DATA TABLES

2 WORDS / DEVICE

;

FIRST

& OF THEM

;

SECOND

1ST ADDRESS

FLOAT

ADDRESSES

AND

VECTORS

MACRO

Y05.02

Thursday

23-May-85

10:38

DATA TABLES
1825 010734
1826 010740
1827 010744
1828 010750
1829 010754
1830 010760
1831 010764
1832 010770
1833 010774
1834 011000
1835 011004
1836 011010
1837 011014
1838 011020
1839 011024
1840
1841
1842
1843 011030
1844
1845
1846
1847

Page

7-1

SEQ
OMF:
KMS:
PCL:
VS100:
TUBL:
KMV:
KCT32:

IEX:
DHV:
DMZ32:
CPI32:
GNA:
QVSS:
VS31:
LNV:
.

011030

000000

177777

DEVEND
.

i+
"

000100

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
=

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

.WORD

0,-1,-1

END OF DEVICE DATA TABLE

DEVCNT =DEVEND-DEVSTR/4

003

0 36

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

JS:
HS:

QsS:
US:
UPS:
LKS:
MCS:
2S:

KMCS
:
PPS:
MV2l:
MV31:
WRS:
RLS:
LPAKS:
KWCS:
RESRS:
RXS:
ORWS:

DRBS:
DMPS:
DPVS:
I1SBS:

DMVS:;
UNAS:
UDAS:
DMFS:
KMSS
:
VS100S:
TU81S:
KMVS:
DHVS:
OMZ32S:

CPI3es:

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

N N N N N N N N N N NN NN NNNNNNNN

.REM ¢t

FATABL
:

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

NN N N N N N N N N N N N

1849

1850
1851
1852
1853
1854
1855
1856
1857

M105
DJ11'S
JUMPER(S) TO CUTOUT/<NOCRLF>
DH11'S
M7277
JUMPER(S) TO CUTQOUT/<NOCRLF>
M10S
DQ11‘S
JUMPER(S) TO CUTOUT/<NOCRLF>
M7822
pu11's
SW SWITCHES IN OFF POSITION/<NOCRLF>
DUP11'S
M7867
SW1 SWITCHES IN OFF POSITION/<NOCRLF>
LK11'S
M7060
JUMPER(S) TO CUTOUT/<NOCRLF
>
OMC11 DMR11'S M8200,E113,M8207,E127-SWITCHES IN OFF POSITION/<NOCRLF>
M7819 E61 M7814 E72 SWITCHES IN ON POSITION/<NOCRLF>
DZ11'S
KMC11'S
M8204 £65 MB206 SWITCHES IN OFF POSITION /
<NOCRLF»>
sssssbstsnss/<NOCRLF>
LPP11'S
22222
shbbbbbbbsrs/ <NGCRLF>
VMV21'S
M7067
abdhbhhsseas/ NOCRLF>
M7068
VMV31'S
sassbsshssss/ <NOCRLF>
DWR70'S
22222
shhhshsaksss/ <NOCRLF>
M7762
RL11'S
ssbddasshsssn/ <NOCRLF>
LPAL11'S
22222
shsbbbdbasas/ <NOCRLF>
KWi1-C'S
1?2222
sasshbsbdsss/ <NOCRLF>
RESERVED
22227
sshdbosdssds/<NOCRLF>
RX11'S
M7846
shbdssssasss/<NOCRLF>
M7816
DR11-W'S
shabsbhbsbhas/ <NOCRLF>
M7219
DR11-8'S
MB8207-YA ssssssssss/<NOCRLF>
OMP11'S
sssssasssaks/<NOCRLF>
M8020
OPV11'S
absbsddsssss/ <NOCRLF>
M8204
I1s811'S
DMV11'S
MB053-MA M8064-MA &/<NOCRLF>
UNA'S
M7792 E40 SWITCHES IN OFF POSITION/<NOCRLF>
seksdsssbsss/ <NOQCRLF>
UDA’'S
22222
sbssbbsbssss/ <NOCRLF>
M8396
DMF32'S
KMS11'S
M8206 MOD MB640 ss4/<NOCRLF>
sdsdssssasea/ <NOCRLF>
V§100'S
22222
shdbsssshsss/ <NOCRLF>
TU8L'S
27272
ssbsdsssaars/<NOCRLF>
KMV11'S
72?
sshsssssssss/<NOCRLF>
DHV11 DHU1l 2?2
DM232,CP132 (ASYNCH) ssssasss/<NOCRLF>
sesdssssssss/ <NOCRLF>
CPI32 (SYNCH)
ssssssssssss/ <NOCRLF>
22222
Qvss
shssssssssss/<NOCRLF>
VS31
22222

FLOAT

ADORESSES

AND

VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 9

SEQ 0038

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
1919
1920
1921

011402
011416
011432
011446

1922 011462
1923 011476

1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935

011512
011526
011542
011556
011572
011606
011622
011640
011667
011712
011725

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
1e5
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:

HS:

QS:
UsS:

UPS:
LKS:
MCS:
2S:
KMCS
:
PPS:
MV2l:

MV3l:
WRS:
RLS:

LPAKS:
KWCS:
RESRS:
RXS:
DRUWS:
DRBS:
OMPS:
DPVS:
ISBS:
DMVS:
UNAS:
UDAS:;

DMFS:

KMSS
:
VS5100S:

TUB81S:

KMVS
;

DHVS:
DM232S:
CPI32S:
QvSsSS:
VS31S:

.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.EVEN

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

DATA TABLES

DJ11'S
DH11'S
0Q11'S
DU11'S
DUP11'S

LK11'S
DMC11
DZ11'S

KMC11'S
LPP11'S
VMV21'S
VMV31'S

DWR70'S

RL11'S
LPA11'S

KWi1-C'S

RESERVED
RX11'S
DR11-W'S
DR11-B'S
DMP11'S

/<NQCRLF>

/<NOCRLF»>

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

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

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

/<NOCRLF>

/<NOCRLF>
/<NOCRLF
>

DPV11'S

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

KMS11'S

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

I1s811'S
OMV1Ll'S
UNA'S
UDA’S
DMF32'S

v5100'S
TU81'S

/7<NOCRLF>

/<NOCRLF>

/<NOCRLF»>
KMV11'S
7/ <NOCRLF>
DHV11l DHU11 /<NOCRLF>

DMZ32,CPI32 (ASYNCH) /<NOCRLF>
CPI32 (SYNCH)
7/ <NOCRLF>
/<NOCRLF>
Qvss
V§31
>
/<NOCRLF

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 10

SEQ 0039

OATA TABLES

1937
1938
1939
1940
1941

011740
011742
011744
011746
011750

1942 011752
1943 011754
1944 01175¢
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
196; 012052
196
1966
1967
1968
1969
1970 012054
1971 012062
1972 012070
1973 012140
1974 012142

1975
1976
1977
1978
1979
1980
1981
1982

012144
012155
012177
012210
012273

012277

000000
000000
090000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
061
063

FLAG:
FLAGl:
FLAG2:
FLAG3:
FLAG4:

054
054

062
064

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

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

O
O
O
O
O

;USED
;USED
;USED
;USED
sUSED

;VECTOR WORD
sFLAG IF OFFSET IS
sCURRENT ADMRESS
;RETURN PC
;USED TO STORE THE
tUSED TO STORE THE
;USED TO CALCULATE
sUSED TO CALCULATE
;USED TO CALCULATE
;USED TO CALCULATE

FOR
ERRORS=BIT1S , OPTION=BIT7 , RUBQUT=BIT1
FOR THE SELECTION OF DM11-A AND DV1i
WHEN THE SELECTED OV11 WAS DECREASED
WHEN THE SELECED DV11 WAS DECREASED TO ZERO
FOR THE SELECTION OF PA611-P AND LPD11

FLAGS:
FLAG6:
FLAG7:
FLAGB:
FLAG9:
FLAG10:
FLAG11:
FLAG12:
SVCHA:
ST:
JT:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
LASCII
.ASCIXI
.EVEN

O
;USED WHEN THE LPD11 WAS DECREASED TO ZERO
O
;USED FOR THE SELECTION OF PA611-R AND VTVO1
O
sUSED WHEN THE VTVOl1 WAS DECREASED
O
;USED FOR CONTROL A
O
;USED FOR THE SELECTION OF DC11 AND DL11-A
O
;USED WHEN THE LPD11 WERE DECREASED
O
;USED WHEN THE PA611-R, PA611-P OR LPD11 WERE SELECTED
O
;USED FOR PRINTING CSRVEC HEADER
sLWL0O02
O
.USED FOR XON AND XOFF
/1.,2./
ASCII SWITCH TABLE
/3,4,5,6,7,8,9, 10 11,12,/ ;ASCII JUMPER TABLE

VECTOR:
OFFSET:
ADOR :
SAVE:
SAVEl:
SAVE2:
SAVE3:
SAVE4:
SAVES:
SAVE6:

.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD

O
O
O
O
O
O
O
O
O
O

NEEDED

LPA11-K FLOATING ADDRESS
DR11-B FLOATING ADDRESS
THE NEW DV1l ADDRESS
THE LAST DV1i ADDRESS
THE NEW LPD11 ADDRESS
LAST LPD11 ADDRESS

s«
ASCII QUTPUT BUFFER
;#
DO NOT CHANGE
!!!!
i &
A:
.BLKVW
3
sACSII OUTPUT BUFFERS
ABUF:
LASCII
/
;SPACE BETWEEN CSR AND SW OR VECTOR
OBUF ;
LKW
20,
CHAR:
.WORD
15
;s FILL CHAR.
SPec:
.WORD
:STORAGE LOC FOR GT/DL11E SPECIAL CASE
TERMST: .BYTE
‘A,0,0,'L,15,100,'V,12,40;
TERM. CHARACTERISTICS TABLE
HEAD:
LASCII
<CR><LF>/
a& FLOAT #8/<CR><LF><LF>
L.ASCII
/0PTION: /<NOCRLF>
Q:
ASCIZ
<CR><LF>/HOW MANY OF EACH DOES THE SYSTEM MAVE.(DECIMAL)/<LF>
DOCHAR:
.BYTE
10,40,10,0
+ BACKSPACE - SPACE - BACKSPACE
sLWLOO2
TERMTP: .BYTE
O
;s TERMINAL TYPE
sLWLOO2
.EVEN

FLOAT

ADDRESSES AND VECTORS

MACRO Y05.02

Thursday 23 May 85

10:38

Page

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 01253
1998 012560
1999 012601
2000 012622
2001 012643
2902 012674
2003 012715
2004 01273¢
2005 012757
2006 01300C
2007 013021
2008 013042
2009 013064
2010 013106
2011 013127
2012 013150
2013 013172
2014 013212
2015 013235
2016 013270
2017 013311
2018 013132
2019 013353
2020 013374
2021 013415
2022 013436
2023 013460
2024 013501
2023 013522
2026 013544
2027 013565
2028 01360¢€
2029 013642
2030 013663
2031 013704
2C32 013725
2033 13746
2C34 013767
2C25 014010
2036 014031
2037 014052
2038 014073
2C39 014114
2Ce0 0141135

i 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
;¢

THE

]

'FA'

OPTION

(

QT2

)

KEEP IN ORDER FOR

USES

THEM

FOR

INPUT

ONLY.

CONVENIENCE!

]

104
104
104
104
104
104
104
120
120
114
104
104
104
.

104
107
126
114
104
113
104
Py

104
114
104
104
104
113
114
126
126
126
104
122
124
114
111
113
122
i22
104
104
104
104
115
111
104
125
125
104
113
120

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
066
104
061
061
061
061
061
064
126
123
061
061
061
120
061
061

125
103
061
103

120
126
126
126
122
061
061
101
061
061
123
061
061
061
120
126
061
102
126
101
101
106
123
114

Q1:
Q2:
Q3:
Q4:
Q5:
Q6:

Q7:

Q8:
Q9:
Q10:
Q11:
Qie2:
Q13:
Q14:
Q15:
Qlé:
Ql17:
Q18:
Q19:
Q20:
Qel:
Q22:
Q23:
Q24:
Q2sS:
Q26:
Q7:
Q28:
Q29:
Q30:
Q31:
Q32:
Q33:
Q34:
Q3s:
Q36:
Q37:
Q38:
Q39:
Q40:
Gal:
Q42:
Q43:

Q44

Q45:
Q46:

Q47:

Q48
Q49:
Q50:
Q51:
QSe:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/0C11'S

/0L11-A,B,W (TUS8) DLV11-A,B,F

/0P11'S
/DM11-A'S

/DN11-AA‘S
/0M11-8B8'S

7/ <NOCRLF
>

7/ <NOCRLF>
7/ <NOCRLF»

/PA611-R"'S
/PR611-P'S

7/ <NOCRLF»

/LPD11

/0T11,07'S
/0X11'S
/0L11-C,D,E'S DLV1L1-E

/0J11'S

/DH11'S
/GT40
/VSVI1'S
/LPS11

/0Q11°S
/KW11-W

KWV11

/0Ull DUV1l

/0UP11°S
/DV11°S

/LK11'S

/DWUN S
/0MC11 DMR11'S

/0211 DZS11 DZvil D232'S

/XMC11°'S

/LPP11'S

/VMV21'S

/vMv31:s
/VTVOL'S
/DWR70'S
/RL11

7/ <NOCRLF>

/<NOCRLF>
7/ <NOCRLF>
>
7/ <NOCRLF
7/ <NOCRLF>
7/ <NOCRLF>
7/ <NOCRLF>
>
7/ <NOCRLF
>
7/ <NOCRLF
/ <NOCRLF>
7 <NOCRLF>
7/ <NOCRLF
»
>
/ <NOCRLF
7/ <NOCRLF>
7 <NOCRLF>
*<NOCRLF
>
7/ <NOCRLF>
/ <NOCRLF>
7/ <NOCRLF»>
7/ <NOCRLF>
7 <NOCRLF>
7/ <NOCRLF>
>
7/ <NOCRLF

/7511 TU80'S
/LPAL11'S
/IP11 IF300'S

7/ <NOCRLF>

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

/RESERVED
/RX11 RX211
/DOR11-W S
/DR11-B'S
/DMP11'S
/DPV11°S
/MLIL'S
/15811 S

/DMV1L'S

/UNR*
S

/UDA RQDX1'S
/DMF32'S
/KMS11°S

/PCL11'S

7/ <NOCRLF
>
7/ <NOCRLF»

7/ <NOCRLF>

RLVIL'S

/KM11-C

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

RXV11

RXVR1l'S

>
/<NOCRLF
7/ <NOCRLF>
7/ <NOCRLF>
7/ <NOCRLF»
7/ <NQCRLF>
7/ <NOCRLF>
/ <NOCRLF>

7/ <NOCRLF»>

7/ <NOCRLF
>

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

7/ <NOCRLF
>
7/ <NQCRLF
>

FLOAT

- ADDRESSES AND VECTORS

MACRO Y05.02

Thurse.,y 23 May 85

10:38

Page

1
SEQ 0041

DATA TABLES
<041
<042
2043
c044
2045
2046
2047

2048
2049
2050
2051
2052

gggz

2055

2056

014156
014177
014220
014241
014262
014303
014325

014355
01437~
014420
01444
C14462

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:
QS4:
Q55:
Q56:
Q57:
Q58:
Q59:

Q60:
Qé1l:
Qe62:
Q63:
Q64:

.ASCII
.ASCII
LASCII
.ASCII
.ASCIT
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII

.ASCII
.ASCII

/VvS100‘S
/TuB1'S
/KMViL1‘S
/KCT32‘'S
/IEX'S
/DHV11 DHU11'S
/DMZ32 CPI32 (ASYNCH)

/CPI32 (SYNCH)
/QNA'S
/QVSS'S

/VS31'S
/LNV11‘S

R R

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

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

R R R R R R NN RN AR RN RN RN RRRARNNY

PSSR RASAALRR0A0LAAAANAARER00
4004000
400004
000000
000000
RAR00044

—r

t——

FLOAT

ADDRESSES

AND

VECTORS

MACRO

Y05.02

Thursday

23-May

10:38

Page

SEQ 0042

DATA TABLES

<058 014503
2059 014510
2060 014513

2061 014546

2062 014575
2063 014577
2064 014612
2065 014643
2066 014714
2067 01476:
2068 0:4773
2069 015005
2070 015024
2071 015027
2072 015065
2073 015102
2074 015143
2075 015205
2076 015241
2077 015301

2078
2079
2080
2081
2082
2083
2084
2085

01534S
015366
015411
015450
015516
015556
015605
015667

015
015
124
124

040
015
011
011
011
011
105
077
01
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
€00
012
122
012
116
116
116
116
122
040
040
040
105
114
123
124

END:
CRLF:
ILL:
718B:
MAXIUM:

OP:
OP2:

QMARK:
HELLO:

MHELP:

TERMQ:

TERMQ2:
BADCON:

.BYTE
.BYTE
.ASCIZ
LASCII
.BLKB
.ASCIZ
.ASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
_ASCII
.ASCII
.ASCII
-ASCII
-ASCII
-ASCII
-ASCII
-ASCII
.ASCII
LASCII
LASCII
LASCII
-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>
/
VA-FLOATING ADDRESSES AND VECTORS./<CR><LF>
/
HE -MELP/ <CR><LF>
/
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>

:LWLOO2
;LWLOO2
;LWL 002
:LWLOO2
;LWLOO2

;LWLOO2
;LWLOO2
;LWL002

;LWLO02

/TERMINAL TYPES:/<CR><Lf>
;LWLOO2
/
A = LA36 NO FILL/<CR><LF>
;LWLOO2
/
L = LA120 100 FILL CHARACTER/<CR><LF>
;LWLOOR2
7/
V = VTS2 OR VT100 50 FILL CHARACTER/<CR><LF>
;:LWLOO2
<CR><LF>/ENTER TERMINAL TYPE.(A,L.V)? /<NOCRLF>
/VALID RESPONSES ARE-/<CR><LF><NOCRLF>
sLWLOO2
<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

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
40
040
040
015
015
015
015
015
015
015
015
015
015
015
015

015
0S2
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

040
104
040
055
040
012
040
012
012
012
012
012
012
012
012
012
012
012
012

012
052
040
117
012
052
040
111
012
052
040
117
012
052
040
111
012
052
040
110
012
052
040
110
12
052
040
124
012
052
040
111
012
052
04¢

040
105
040
055
040
200
040
124
061
061
061
061
116
061
061
061
061
061
061

040
052
040
124
040
052
040
115
040
052
040
124
040
052
040
115
040
052
040
105
040
052
040
105
040
052
040
126
040
052
040
115
040
052
040

CSR:
CSRVEC:

TAB:
DVMESS:
RLMESS:
TSMESS:
LPKMES:
IPMESS:
REMES:
RXMES:
DRBMES:
UNAMES:
UDAMES:
TUBIMS:
QVSSMS:
:
;LWLOO2
:
DVMES:

DVMSS:

LPDMES:

LPDESS:

LPDMSS:

DVNMS:

VOIMES:

VOIMSS:

DLMESS:

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

/
CSR = /<NOCRLF>
/ DEVICE /
CSR
VECT
COMMENT/ <CR><LF>
/ ------ /
/
--e
/<CR><LF>
7/ /<LF><NOCRLF>
/
/<NOCRLF >
<CR><LF>/THE DV11 MODEM ADORESS IS +20 , VECTOR IS
<CR><LF>/1ST CSR = 774400, 1ST VECT = 160/<NOCRLF>
<CR><LF>/1ST CSR = 772520, 1ST VECT = 224/<NOCRLF>
<CR><LF>/1ST CSR = 770460, /<NOCRLF>
<CR><LF>/1ST CSR = 771000, 1ST VECT = 234/<NOCRLF>
<CR><LF>/NOT USED/<NOCRLF>
<CR><LF>/1ST CSR = 777170, 1ST VECT = 264/<NOCRLF>
<CR><LF>/1ST CSR = 772410, 1ST VECT = 124/<NOCRLF>
<CR><LF>/1ST CSR = 774510, 1ST VECT = 120/<NOCRLF>
<CR><LF>/1ST CSR = 772150, 1ST VECT = 154/<NOCRLF>
<CR><LF>/1ST CSR = 774500, 1ST VECT = 260/<NOCRLF>
<CR><LF>/1ST CSR = 777200, /<NOCRLF>
FOLLOWING AREA MODIFIED TO FIT NEW FORMAT

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

<CR><LF>/
/+#+DM11-A COMES BEFORE DV11 /<CR><LF>
/
/
/BOTH WERE SELECTED/<NOCRLF>
<CR><LF>/
/##4THE DV11S HAVE BEEN DECREASED, /<CR><LF>
/
/
/LIMITED ADDRESS SPACE/<NOCRLF>
<CR><LF>/
/#ssPA611 P COMES BEFORE LPD11 /<CR><LF>
/
/
/BOTH WERE SELECTED/<NOCRLF>
<CR><LF>/
/##sLPD11S HAVE BEEN DECREASED, /<CR><LF>
/
/
/LIMITED ADDRESS SPACE/<NOCRLF>
<CR><LF>/
/4&«THE PA611-P LEFT NO ROOM FOR /<CR><LF>
7/
/
/THE LPD11/<NOCRLF>
<CR><LF>/
/s#4THE DM11-A LEFT NO ROOM FOR /<CR><LF>
/
/
/THE DV11/<NOCRLF>
<CR><LF>/
/#s4PA611 OR LPD11 COMES BEFORE /<CR><LF>
/
/
/VTVOl BOTH WERE SELECTED/<NOCRLF>
<CR><LF>/
/4#4VTVO1S HAVE BEEN DECREASED, /<CR><LF>
/
/
/LIMITED ADDRESS SPACE/<NOCRLF>
<CR><LF>/
/&#sIF DL11 E IS USED FOR TUS8 /<CR><LF>
/
/

;LWLOO2
;LWLOO2
;LWLOO2
;LWLOO2
;LWLOO2

;LWLOO2
:LWLOO2
+10/<NOCRLF >

;LWLOO2

;LWLOO2
;LWLOO2

;LWLOO2
;LWL0O2

;LWLOO2
;LWLO02

:LWLOO2

;LWLOO2
/

;LWLOOZ2
;LWLOO2

;LWLOO2

:LWLOO2
/

;LWLOO2

;LWLOO2
/

;LWLOO2

;LWLOO2
/

;LWLOOR2
;LWLOO2

FLOAT

RDDRESSES

AND

VECTORS

MACRO Y05.02

Thursday 23-May-85 10:38

Page 13-1
SEQ 0044

DATA TABLES

021154
021220
021270
021334
021406
21450
021520

021542

Errors detected:
s4s

Work

124
040
106
015
052
040
053

000001

110
040
117
012
052
040
061

105
040
122
040
052
040
060

KMSMES:

BUFF
:

Agsembler statistics

file
file

reads:
writes:

Size of work file:
Size of core pool:
Operating
system:

O
O

8578 Words
{ 34 Pages)
19402 Words
( 74 Pages)
RSX-11M/PLUS (Under VAX/VMS)

Elapsed time: 00:00:59.72
CZFLAC,CZFLAC/CR/-SP=CZFLAC

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

/THERE IS NO STANDARD CONFIGURATION/<CR><LF>

/FOR SYSTEMS WITH BOTH DC11

<CR><LF>/

/+%aJF
/

IT HAS A M8640 ADDRESS IS

/7+10 VECTOR IS

TUS8/<NOCRLF>

+10/<NOCRLF>

/<CR><LF>
/

.EVEN
.END

sLWLO02 -

AND

2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154

; INPUT BUFFER?!!!
;THAT'S IT FOLKS!!!

;LWL002
;LWL0O02

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

CREF

SYMBOL CROSS REFERENCE

SYMBOL

VALUE

A
ABUF
ADDR

ADDRT
ASCDEV
BADCON
BADD
BADDS
BADS
8EX
BEX1
BEX2
BITE
BITEL
BITE2
BITO
BIT1
8IT10
8IT11
B8IT12
8IT13
BITi4
BIT1S
BIT2
BIT3
BIT4
BITS
BIT6
BIT?
BIT8
8IT9
BUFF
CHAR
CLEAN

CMP1
CPI32
CPI32S
CR

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

DATO0

014510
015733
015746
005176

= 104001

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
41-481
£1-4382

#1-483
#1-484
#1-485
#1-472
41-473
#1-474
#1-475
#1-476
81-477
€1-478
#1-479
2-1381
%2-559

2-1069
2-1132

#2-1469

2-7175
6-1764

81-466

12-2065
12-2076

12-2084
13-2099

CRLF
CSR
CSRVEC
CVTA

PAGE 1

13-2113
13-2130
13-2148

2-642
413-2087
2-1027

2-1357

#1-487

2-1283
2-1292
2-657
2-1513
96-1722
96-1758
#12-2084
92-1506
92-1516
#2-1513
€2-1501
€2-1509
#2-1519
@2-1498
€2-1503
@2-1510

2-1299
210-1971
2-1498

910-1970

+2-1515

+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-1438

2-1467

#13 2153

2-1144

2-1092
#2-1153

4-1661

#7-1835

42-1505
#10-1957

2-1506

+2-1508

2-1510

2-1098

2-11v4

2-1112

2-1121

2-1127

12-2064
12-2074
12-2083
13-2097

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

2-1393
2-612

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

99-1932
2-1431

210-1973
2-1086

1386

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

13-2109
13-2126
13-2144

2-643

2-1155

2-1162

2-1184

2-1421

2-1435

2-1566

12-2066
12-2077
12-2085
13-2100

- 13-2114

13-2088
92-1366

2-634

13-2129
13-2147

#12-2059

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE
SYMBOL

VALUE

DBUF
oC
DCHAR
DEVCNT
DEVEND
DEVSTR
OH
DHV
DHVS
DIG2
oJ
DL
DLC
DLMESS
DMA

012070
010430
012273
= 000100
= 011030
= 010430
010520
010774
011622
006176
010514
010434
010510
020772
010444

OoMBB

DMC
DMF
DMFS
DMP
OMPS
DMV
DMVS
DMZ32
DMZ32S

ON
DONE
DONE 1
pP
oPY
DPVS
0Q
DR
ORB

DRBMES

010454

010574
010734
011526
010700
011416
010720
011462
011000
011640

010450
002346
002510
010440
010704
011432
010540
010460
010674
016455

DRBS

011402

DRWS

011366

DRW

DR
DY
DT1
0T2

ouU

pup
oV
DVMES
DVMESS
DVMSS
DVNMS
DWR
DWUN

010670

004262
010500
006562
007072

010550

010554
010560
016716
0l6121
017121
020151
010630
010570
010504

PAGE 2

CREF

SEQ 0046

vo02

REFERENCES

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

2-729
2-771
6-1764
2-1526
2-877
2-911
3-1623
2-1034
2-917
2-1216
2-1340
2-7137
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-878

2-652
7-1847

€10-1979

2-1315
2-881

#410-1972

2-907

2-909

3-1621

#7-1776

7-1847

2-1324
3-1632

3-1623
4-1661

4-1655
#7-1833

#7-1790

2-878
2-1030
47-1788
13-2141
2-919
3-1622
3-1626
3-1630
#9-1925

2-1322
3-1621

87-1777

3-1623

4-1655

97-1789

2-924

2-1209

3-1621

@7-1779

9#9-1930
#2-1544

4-1659
49-1919

3-1630

#9-1922
3-1632
99-1931

3-1621

9#2-844
42-883
#7-1778
4-1659
99-1920

#7-1781
4-1656
4-1660

#7-1801
47-1825

#7-1818
4-1659

47-1822

4-1661

#7-1834

2-887

2-890

2-1193

+2-1109

2-1228

3-1629

4-1658

¢7-1817

52-946

2-947

2-1046

3-1625

#7-1798

47-1819

3-1624
2-1147
2-1105
13-2101
#9-1918
3-1629

4-1655
3-1622
2-1107

97-1794
97-1782
2-1108

4-1658

#7-1816

#3-1621
2-1412
4-1655
4-1655

4-1657

47-1808
47-1800

99-1917
#2-1145
@7-1786

3-1625

07-1787

$2-934

94-1655
47-1796
@7-1797
2-935

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE
SYMBOL

D2
EMTHND
EMTTAB
END
ER
ERRCK
EXIT
FATABL

FILCNT
FILL
FILLER
FLAG
FLAG1
FLAG10
FLAG11
FLAG12
FLAG2
FLAG3
FLAGA
FLAGS
FLAG6
FLAG?
FLAGS
FLAGY9

GAP
GAP1
GAP3
GFA
GT

HEAD
HELLO
HELP
HS

IEX
IL
ILL
INPUT
IP
IPMESS
Is8
ISBS
JS

JT
JUMPER

KCT32
KMC
KMCS
KMS
KMSMES
KMSS
KMV

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

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

CREF

SEQ 0047

Vo2

REFERENCES

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

#2-1485
#1-488
2-1471
49-1898
*2-560

2-1563
#2-1573

3-1626
2-543

2-813

4-1656
42-808

97-1802

2-828
*2-1485
#10-1938
€10-1947
*2-967
#10-1949
#10-1939
#10-1940
#10-1941
2-1043
€10-1943
910-1944

€12-2058
2-1489
2-635
92-1490
#2-1572
#2-1571

+2-1577

«2-570

+2-612

42-620

22-1427

2-1442
+2-923

22-1444
2-1049
2-1040
2-963

*2-571

s2-580
42-581

#2-582

*2-572
*2-573

+2-574

#2-S75

+2-576

+2-1009

#2-959

2-1025
#2-945
2-894
42-995
2-891
2-980

+2-1028

2-1052

#2-950

2-1037
#2-1014

*2-577

«2-984

£2-578
£2-579
2-788
2-796
2-792
42-648
«2-858

+2-629
+2-913
2-790

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

2-1256

3-1624

£10-1976

2-544
2-545

6-1758

42-870

2-147%
2-1484

#1-486
*2-866

2-1090
3-1630
6-1762
6-1758
2-1351
#2-1313
%2-869
2-1344
6-1759
2-741
2-1130
6-1763
2-769

42-799
82-79S

#12-2071
2-606
€9-1900
3-1632
2-1475
#12-2060

2-548
2-1087

913-2098
4-1659
49-1921
49-1899
410-1952

2-845

2-1078

2-1410

2-9M1

%2-975

2-978

#10-1948

#10-1942

€10-1945
910-1946

2-798

92-802

#7-1791

#12-2073

47-1832
#2-1484

2-588
42-1089

2-633
2-1222

3-1628

47-1821

3-1632
3-1626
€9-1907
2-1128

97-1831
4-1656

97-1803

3-1631

4-1660

3-1631

4-1661

#7-1830

#13-2147
#9-1926

*2-831
#10-1937

47-1826

47-1812

2-1425

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE

CREF

SYMBOL

VALUE

REFERENCES

KMVS
KWC
KWCS
KWW
LF

011606
010654
011322
010544
= 000012

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

LK
LKS
LNV

LPAK
LPAKS
LPD

LPDESS
LPDMES
LPDMSS
LPKMES
LPP
LPS
MAXIUM
MCS
ML
MT1
MT2
Mval
Mv31
NAT
NEXT
NOCRLF

OFFSET
oK

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

41-468

12-2065
12-2074
12-2082
13-2095
13-2104
13-2122
13-2141
2-1329
6-1759
s2-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
42-867
2-615
2-623
6-1760
6-1760
2-1182
2-664
41-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

99-1929
4-1658
#49-1914
3-1624
10-1976
12-2066

SEQ 00438

V02

947-1813

#7-1795
10-1976
12-2067
12-2076
12-2084
13-2097
13-2109
13-2126
4-1656

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

2-733

3-1633
2-1076

#7-1839
2-1080

£2-1081

+2-1083

3-1628

4-1657

#7-1811

2-973

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-1901
9-1910
9-1919
9-1928

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

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

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

9-1903
9-1912
9-1921
9-1930

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

9-1905
9 1914
9 1923
9-1932
11-1994

12-2075
12-2083
13-2096
13-2105
13-2125
13-2142

3-1625
#49-1904
2-1244

949-1913

#13-2121

13-2144

2-1045

#13-2117

3-1624

#7-1804
97-1793

#13-2125
#13-2097
4-1656

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

#12-2062
99-1905

2-1113
45-1673
45-1688
#9-1909
49-1910
#6-1701
92-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
17 2112
13-2150
#2-1493

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

11-1992
11-2001
11-2010
11-2019
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-2003
11-2012
11-2021
11-2030
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

CREF

SYMBOL

VALUE

REFERENCES

oP
OPTION
OPTNA
oP2
OTDA
OTOA
PAP
PAR
PCL
PPS
PRI
PRIN
PRINT

014612
001230
001236
014643
= 104006
= 104004
010470
010464
010744
011212
004332
004426
001444

2-586
#2-586
#2-587
2-587
#1-492
#1-490
2-961
2-955
+2-868
6-1759
2-1055
2-1157
42-642

Q
QMARK
QNA
Qs
QT1
QT2
QUES
Qvss
QVSSMS

012210
015024
011010
011066
006362
006762
001410
011014
016671

2-630
2-632
x2-871
6-1758
2-613
2-621
92-631
2-718
2-1142

#10-1978
€12-2070
2-1240
#9-1901
2-880
94-1639
2-636
2-11
#13-2105

QVSS$
Qvss
Qvs
Q1
Q10

001/22
002064
004236
012300
012560

2-714
#2-759
2-1134
3-1600
3-1601

2-716
2-778
#2-1139
411-1989
#11-1998

Q12
Q13
Q14
Q15

012622
012643
012674
012715

3-1602
3-1602
3-1602
3-1602

#11-2000
#11-2001
4-1639
4-1639

QVsSSss

Q11

Qlé6

Q17
Q18
Q19
Q2
Q20
Q2
@22
Q23
Q24
Q25
Q26
Q2?
Q28
Q29
Q3
Q30
Q31
Q32

011712

012601

012736

012757
013000
013021
012321
013042
013064
013106
013127
013150
013171
013212
013235
013270
013311
012361
013332
013353
013374

PAGE 5

6-1764

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

49-1933

2-1281

2-989
3-1622
#47-1827

2-991
#7-1783

2-996

3-1622

47-1784

2-1115
#2-1184

2-1146

2-1152

2-1154

#2-1162

3-1633

47-1836

3-1633

4-1661

47-1837

#3-1600
2-641
2-1139

92-718

#11-1999

¢11-2004

911-2005
411-2006
4-1639
#11-1990
€11-2008
4-1639
4-1639
#11-2011
4-1640
411-2013
4-1640
4-1640
4-1640
4-1640
011-1991
4-1641
4-1641
911-2020

SEQ 0049

v02

#11-2002
#11-2003

911-2007
#11-2009
11-2010
11-2012
€11-2014
#11-2015
#11-2016
411-2017
911-2018
#11-2019

2-1422
2-1141

CZFLAC

CREATED 6Y

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE
SYMBOL

Q33
Q34
Q35
Q36
Q37
Q38
Q39
Q4

Q40

Q41

Q42
Q43
Qa4
Q45
Q46

Q47
Q48

VALUE
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
012516

012537
016377
001120
010660
011336
010634
016201
011272
005520
010664
016412
011352
012036
012040
012042

PAGE 6

CREF

SEQ 0050

vo02

REFERENCES

3-1606
3-1606
3-1606
3-1607
3-1607
3-1607
3-1607
3-1600
3-1607
3-1608
3-1608
3-1608
3-1608
3-1608
3-1609
3-1609
3-1609
3-1609
3-1600
3-1609
3-1610
3-1610
3-1610
3-1610
3-1610
3-1611
3-1611
3-1611
3-1611
3-1601
3-1611
3-1612
3-1612
3-1612
3-1612
3-1601
3-1601
3-1601
2-1096
2-542
2-675
6-1761
2-680
2-1067
6-1760
2-1424
2-685
2-1102
6-1761
#10-1958
+2-1080
+2-1108

4-1641
4-1641
11-2023
4-1641
#11-2025
4-1642
4-1642
911-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-1€45
4-1646
#11-2052
011-1995
911-1996
€11-1997
413-2099
2-563

€11-2021
#11-2022

#11-2024
#11-2026
#11-2C27

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

911-2034
411-2035
411-2036
€11-2037
911-2038
011-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

42-1066

2-1218

3-1627

4-1657

97-1809

2-1099
€13-2100
49-1916

+2-1101

2-1224

3-1628

4-1658

@7-1815

2-1176
2-1180

410-1959
910-1960

2-1093
49-1915
2-1064
413-2095
€9-1912
#2-1438

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT

10:38

5YM80L CROSS REFERENCE

SYMBOL

VALUE

SAVE3

012044

SAVES4

012046

SAVES
SAVE6

012050
012052
005636
002324
10400S
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

SDATO

SERRCK
SHIFT
SHIFT1
SHIFT2
SHIFT3
SHIFT4
SINPUT
SOTDA
SOTOA
SPEC
SSHIFT
SSHIF1
SSHIF2
SSHIF3
SSHIF4
ST

START
STARTA
STYPE
SVCHA

TAB
TAG
TAG1
TAG2
TAG3
TAG4
18
TENDM
TERMQ
TERMQ2
TERMST
TERMTP
708
TPB
TPS
TRB

TRS
TSMESS
TS7
7511
TU$
TUS1
TUB1IMS
TU81S
TUSLS

010754
016626
011572
001706

PAGE 7

CREF

SEQ 0051

vo02

REFERENCES
%2-924

2-942

%2-935

#10-1962

+2-925

#10-1961
42-936

%2-926

$2-927

2-928

+2-930

2-931

+2-933

2-934

+2-937

+2-.38

%2-939

#2-940

+2-941

+2-942

2-943

2-1000
+2-1005

*2-1006

910-1963
2-1007

#10-1964

#2-996

*2-997

+2-998

+2-999

+2-1001
2-814
2-815
01-491
#1-493

+2-1002

+2-1003

42-1004

02-1381
#2-1525

2-1396

2-1399

+2-1278

+2-1279

+2-1282

#2-1283

#2-1292

2-1548
2-1553

2-1569
+2-1557

42-1558

2-1559

2-734
2-774
2-750

2-736
2-776
2-754

#1-494
€1-495
91-496

2-813
2-819
2-817

»2-844

02-784
42-783
02-782
#2-781
#2-78S

2-1349

42-540
1-526
2-816

22-1551
2-1163
2-743
2-730

2-738
#2-659
92-747
2-1488
92-1564

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

21-533
01-532
41-531
€1-530

2-1073

#2-1383

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

92-1465
02-828

2-747
2-7153
2-157
2-761
2-749

£10-1974
2-818

2-820
2-821
2-822
2-823
#10-1951
2-564
1-527
92-1547
#2-1552

013-2093
92-765

2-132
#2-1755
2-748
2-7719
912-2061
2-1579
912-2078
2-597
2-554
2-1440
02-1487
2-1428

2-1429
2-1382
2-541
913-2096
2-1384
2-1070
#2-749
2-767
#13-2104
99-1928
2-111

2-1006

2-1402
#2-539

012-2083
410-1975
€10-1980
2-1492
2-1433
2-1446
2-1385

2-1383

2-1434

+2-1072

2-768
2-795
0®-713

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

2-1439

2-742

#2-751

2-758

2-762

2-1455
2-1547

#10-1950

2-766

2-770

2-1561
2-1574

2-1576

3-1631

4-1660

2-772

2-1461

2-1220

#7-1810

2-1133

2-1238

7-1829

CZFLAC

CREATED BY

MACRO

ON 23-MAY-85 AT 10:38

SYMBOL CROSS REFERENCE

CREF

SYMBOL

VALUE

REFERENCES

TYPE

91-489

UDA
UNAMES
UDAS
UDA$
UNA
UNAMES
UNAS
UNA$

UPS
us
v

VECT
VECTOR
VST
VSV
V5100
V51008
vVS31
VS§31S
Vo1
VO1MES
VO1MSS
vel
Vi1
WRS
XOFF
XON

104003

010730
016563
011512
001672
010724
016520
011476
004146
011116
011102
= 000126
004444
012030
010120
010530
010750
011556
011020
011725
010624
020345
020564
010614
010620
011256
006240
006272
011162

PAGE 8

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
6-1758
91-469
2-1167
+«2-648
2-1284
+2-859
2-165
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

2-545

SEQ 0052

vO2

2-546

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

2-556
2-643
2-1045
2-1091
2-115S
2-1488
s2-1124

2-586
2-893
2-1048
2-1097
2-1162
2-1566
2-1234

2-1116

+2-1118

2-1232

2-1250

2-1252

2-1258

3-1624
2-789
99-1927
3-1633

07-1792

2-1236

3-1631

4-1662

07-1838

2-976

+2-981

2-982

#7-1805
4-1657

#7-1806

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

2-587
2-896

2-1051
2-1103
2-1163

2-597
2-897
2-1054
2-1111
2-1170

2-606
2-1027
2-1060
2-1120
2-1184

3-1630

4-1660

07-1824

2-1346

3-1630

4-1659

€7-1823

+2-1260

2-1265

+2-1284

#10-1955

4-1660

€7-1828

3-1627

97-1807

99-1924

2-706
2-787
913-2102

92-708

99-1923
02-1122
09-1903
99-1902

2-1440

92-1201

#6-1740

99-1934

913-2133

#13-2137
4-1657
3-1627
49-1911
2-1556
2-1554
99-1906

2-1560

#2-1561

+2-985

2-1056

CIFLAC

CREATED B6Y

MACRO

ON 23-MAY-85 AT

10:38

MACRO CROSS REFERENCE
MACRO NAME

ERCHK
PRINY

PAGE 9

CREF

SEQ 0053

V02

REFERENCES

91-499

91-504

2-631
2-1039

2-1163

2-635

2-544

2-545

2-546

2-556

586

2-587

2-597

2-606

2-630

2-632
2-1042

2-642
2-1045

2-643
2-1048

2-893
2-1051

2-896
2-1054

2-897
2-1060

2-1027
2-1063

2-1029
2-1155

2-1034
2-1162

2-1170

2-1184

2-1268

2-1421

2-1435

2-1484

2-1488

2-1566