Caple C871i Instrukcja Użytkownika Pobierz pdf (Strona 528)

100

101

Apple II Computer Info

AND #$7F

CMP #$60

BLT :SB

AND #%01011111

:SB STA BUFFER,X

BEQ :GOTIT ;Branch if no more input

CMP #'*'

BEQ :IX

CMP #'.'

BLT :GOTIT ; or if excess input

:IX INX

INY

BRA ]LUP

:EX

BRL EXIT

mx %11 ;back to eight bit to store the filename

:GOTIT STX Speedname ;Store length

DEX

BMI :EX

:MOV LDA BUFFER,X

STA speedname+1,X ;Save the speed which

DEX ; the user wants installed.

BPL :MOV

rep #$30

jsr IsATwgs ;Check to see if A TWGS is installed

bcc :NoTW

sep #$30 ;back to 8 bits for checking

ldx #0

lda BUFFER,x

and #$DF

cmp #'F' ;Is it an "F"?

beq :fast

cmp #'S' ;Is it an "S"?

beq :slow

bra :max ;Otherwise just set the Max Speed

:NoTW rep #$30

jsr RtnSpcs

print "Sorry, a TWGS is not installed in this System."

brl EXIT

:slow jsr Slow

brl EXIT

:fast jsr Fast

brl EXIT

:max jsr Warp

brl EXIT

EXIT SEP %00110000

LDAL CSWH

CMP #$C3

BNE EXIT2 ;Exit if not screen output

lda #$8d

jsr OUTPUT

Apple II Computer Technical Information : Apple II Family Hardware Info

ftp://ground.ecn.uiowa.edu/2/apple2/miscinfo/hardware : May 2001 : 528 of 572

1 2 ... 523 524 525 526 527 528 529 530 531 532 533 ... 571 572

Komentarze do niniejszej Instrukcji

Brak uwag

Caple C871i Instrukcja Użytkownika Strona 528

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Płyty grzewcze Caple C871i