
Apple II Computer Info
OUTPUT PHA
PHX
PHY
PHP
REP %00110000
PHA
WriteChr
PLP
PLY
PLX
PLA
BACK RTS
*===============================
cmdWord str 'SPEED'
*===============================
IsATWgs mx %00
lda >CheckTW ;check Low word of ID
cmp #'TW' ;does it say TW?
bne :bad ;if not, get outta here
lda >CheckTW+2 ;check high word
cmp #'GS'
beq :rts
:bad clc
:rts rts
Slow mx %00
rep $30
php
ldx #0
jsl SetSpeed
jmp rts1
Fast mx %00
php
rep $30
ldx #1
jsl SetSpeed
jmp rts1
Warp mx %00
php
rep $30
ldx #2
jsl SetSpeed
rts1 plp
rts
*===============================
BUFFER DS $80,$8D
Speedname ds $80
_ _
Apple II Computer Technical Information : Apple II Family Hardware Info
ftp://ground.ecn.uiowa.edu/2/apple2/miscinfo/hardware : May 2001 : 530 of 572
Comentários a estes Manuais