Apple Composite Monitor Manual do Utilizador descarregar pdf (Página 5)

ifhmetic mode.

LDY #$7F

Mask for DSP data direction register.

STY DSP Set it up.

LDA #$A7

KBD and DSP control register

mask.

FF09 8D 11 D0

STA KBD CR Enable interrupts, set CAI, CB1, for

FFgC 8D

1

3 D0

STA DSP CR positive edge sense/output mode.

FF0F

C9 DF NOTCR

CMP #$DF

11

?

FFll

F0

13 BEQ BACKSPACE Yes.

FF13 C9 9B CMP #$9B

ESC

?

FF15

F0

03

BEQ ESCAPE

Yes.

FF17 C8

INY Advance text index.

FF18 10

0F

BPL NEXTCHAR

Auto ESC

if

>

127.

FFlA A9 DC ESCAPE LDA #$DC

*

11

\It,

FFlC 20 EF

FF

JSR ECHO

Output

it.

FFlF

A9 8D GETLINE LDA #$8D CR.

FF21 241 EF

FF

JSR ECHO Output it.

FF24 A0

01

LDY

#$a1 Initiallize text index.

FF26 88

FF27 30 F6

BACKSPACE DEY

BMI GETLINE

Back up text index.

Beyond start of line, reinitialize.

FFZ~

AD

11

DQ

NEXTCHAR

LDA

KBD

CR

Key ready?

FFZC 10 FB

FFZE AD 10D0

BPL NEXTCHAR

LDA KBD

Loop until ready.

Load character. B7 should be

'1

I.

FF31 99

00

02 STA IN, Y

Add to text buffer.

FF34 20 EF

FF

JSR ECHO Display character.

FF37 C9 8DI

CMP #$8D CR?

FF39 D0 D4

BNE NOTCR

No.

FF3B A0

FF

LDY

#$FF

Reset text index.

FF3D A9

00

LDA

#$a0

For XAM mode.

FF3F AA TAX

FF40 4A SETSTOR ASL

FF41 85 2B

SETMODE STA MODE

FF43 C8

BLSKIP

INY

-

'Advance text index.

I

i

FF44 B9

09

02

FF47 C9 8D

NEXT ITEM LDA IN, Y

CMP #$8D

Get character.

CR?

FF49

F0

D4

BEQ GETLINE

FF4B C9 AE

CMP #$AE

FF4D 90 F4

BCC BLSKIP

Skip delimiter.

FF4F

Fg

F0

BEQ SETMODE

FF51 C9 BA

FF53

F0

EB

FF55 C9 D2

CMP #$D2

Yes, set STOR mode.

"R"?

l

FF57

F0

3B

FF59 86 28

BEQ RUN

STX L

Yes, run user pr/jointfilesconvert/424056/bgram

!

FF5B 86 29

STX H

FF5D 84 2A STY YSAV

FF5F B9

(40

02 NEXTHEX-. LDA IN, Y

FF62 49 B0

EOR #$I30 Map digits to

$@

-9.

FF64 C9 0A

CMP #$@A

FF66 90 06 BCC DIG

FF68 69 88 ADC #$88

FF~A C9 FA C.MP #$FA

Hex letter?

BCC NOTHEX

.

No, character not hzx.

Hex digit .to MSD of

Shift count.

1 2 3 4 5 6 7 8 9 10 11 12

Comentários a estes Manuais

Sem comentários