Dell External XL 9010 Specifications download pdf (Page 9)

8213

5BeB

B9A325

8313

5B0E

994Fee

8413

51311

88

8513

51312

D0Fl

8613

51314

2e295B

8713

5B17

Aee2

880

51319

B94Fe0

890

5BIC

99A325

900

5BIF

1399825

910

51322

994F00

920

51325

88

930

51326

D0Fl

940

51328

60

950

960

970

980

990

1000

1010

1020

1030

1040

1050

1060

HJ70

1080

1090

1100

1110

1120

1130

1140

l1S0

1160

1170

1180

1190

51329

AOAF25

5B2C

006C

5B2E

AOAE25

51331

F049

51333

C92e

51335

9053

51337

ACAC25

5B3A 91513

5B3C

2136050

5B3F AD9D25

51342

91513

51344

21361350

51347

C8

5B48

CCAA25

5B4B

D008

5134D

M00

5B4F

8CAC25

51352

4CCF5B

5B55

8CAC25

1200

51358

A901

1210

5B5A 8D00DF

1220

5B5D AD00DF

12313 51360

C941

1240

51362

D018

1250

51364

A908

1260

51366

8D00DF

1270

SB69

AD00DF

1280

SB6C

C980

1290

5B6E D00C

1300

51370

A902

1310

51372 8D00DF

1320

51375 AD00DF

1330

51378

C980

1340

5B7A

D0F9

13se

1360

13713

13813

13913 SB7C ACAC25

1400

SB7F

B150

1410

51381

8DAB25

1420

51384

ADAD25

1430

5B87

9150

1440

5B89

60

1450

1460

1470

1480

1490

1500

5B8A

8D9B25

1510

5B8D

0A

1520

SB8E

A8

1530

5B8F

88

1540

513913

88

1550

51391

B9F45E

1560

5B94

48

1570

51395

B9F35E

15813 51398

48

1590

51399

613

1600

16113

1620

LDA

VPARM-l,Y

STA

ZPAGE-l,Y

DEY

BNE

SWAPIN

JSR

WRT

;USE

THE

OUTPUT BYTE

LOY

#$02

;RESTORE

ZERO

PAGE

SWAPOT

LDA

ZPAGE-l,Y

STA

VPARM-l,Y

LDA

STORl-l,Y

STA

ZPAGE-l,Y

DEY

\,lRT

OISPLY

BACK

BNE

SWAPOT

RTS

LDA

CCOUNT

BNE

GPARM

LOA

TEMP

BEQ

RETURN

CMP

#$20

BCC

CNTL

LOY

CURSOR

STA

(CLAL) , Y

JSR

COLAOJ

LDA

COLORC

STA

(CLAL)

,Y

JSR

COLADJ

INY

CPY

LEN

BNE

BACK

LDY

#$130

STY

CURSOR

JMP LF

S'l'Y

CURSOR

;IS

THE

BYTE

A

PARAMETER

;YES,

SAVE

IT

;IF

NULL

GO

BACK

;IS

IT

A

CONTROL

COOE

;YES,

00

IT

;GET

INOEX INTO

LINE

;OUTPUT

THE

CHARACTER

;CHANGE

$OX

TO

$EX

;GET

COLOR

;OUTPUT

TO

COLOR

MEMORY

;CHANGE

$EX

TO

$DX

;BmlP

THE

INDEX

;END

OF

LINE

;NO,

GO

BACK

;SET

INDEX INTO

LINE=0

;00

LINE

FEEO

;

SAVE

'l'HE

INDEX

CHECK

FOR

CNTRL

S

ANO

CNTRL

Q

LOA

#$1

STA

KPORT

LOA

KPORT

CMP

#$41

BNE

RETURN

LDA

#

$8

S'l'A

KPORT

LDA

KPORT

CMP

#$80

BNE

RETURN

LDA

#$2

STA

KPORT

STOP

LDA

KPORT

CMP

#$80

BNE

STOP

;CHECK

FOR

THE

'CNTRL'

KEY

;LATCH

THE

PORT

;REAO THE

CHARACTER

;IS

IT

THE

CONTROL

;NO,

GO

BACK

;YES,

CHECK

FOR'S'

;LATCH

THE

PORT

;READ

THE

KEYBOARD

;IS

IT

THE'S'

KEY

;NO,

GO

BACK

;CHECK

FOR

THE

'Q'

;LATCH

THE

PORT

;READ

THE

KEYBOARD

;IS

IT

THE

'Q'

;NO,

KEEP LOOPING

RETURN:

NORMAL

EXIT,

OUTPUTS

CURSOR

RETURN

LDY

CURSOR

LDA

(CLAL),

Y

STA

CSAV

LDA

CCHAR

STA

(CLAL),Y

RTS

;GET

INDEX

TO

LINE

;GET

CHARACTER

UNDER

CURSOR

;

SAVE

THE

CHARACTER

;GET

THE

CURSOR

CHARACTER

;OUTPUT

IT

;GO

BACK

FROM

OUTPUT ROUTINE

CNTL:

GET

CONTROL

CODE

ROUTINE ADDRESS

FROM

TABLE

AND

EXECUTE

CNTL

STA

CNTRLC

;SAVE

THE

CONTROL

CODE

ASL

A

TAY

;SET

TO

INDEX TABLE

DEY

DEY

LDA

CNTLTB+l,Y

;GET HfGH

BYTE

PHA

;

PU

SH

ON

STACK

LOA

CNTLTB,Y

;GET

LOW

BYTE

PHA

;

PUSH

RTS ;EXECUTE

THE

ROUTINE

GPARM:

GBT PnRAMETERS

FOR

CURSOR

POSITIONING,WINOOWS

Page

9

PEEK(65)

Summer

1966

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ... 47 48

Comments to this Manuals

No comments