Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-03 22:30:09 +00:00
Code Issues Projects Releases Wiki Activity

Detect ZipChip before attempting to change settings.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-24 00:19:04 -04:00
parent 7c932e8e83
commit 54bce84745
2 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

28
auxmem.oscli.s
View File

@ -759,10 +759,12 @@ EXEC JSR LPTRtoXY
FAST LDA #$80 ; Apple IIgs
TSB $C036
STA GSSPEED
STA $C05C ; Ultrawarp fast
JSR UNLOCKZIP ; ZipChip
JSR DETECTZIP
BCC :NOZIP
STA $C05B ; Enable
JSR LOCKZIP
JMP LOCKZIP
:NOZIP STA $C05C ; Ultrawarp fast
RTS
*
@ -771,12 +773,30 @@ FAST LDA #$80 ; Apple IIgs
SLOW LDA #$80 ; Apple IIgs
TRB $C036
STZ GSSPEED
STA $C05D ; Ultrawarp slow
JSR UNLOCKZIP ; ZipChip
JSR DETECTZIP
BCC :NOZIP
STZ $C05A ; Disable
JSR LOCKZIP
JMP LOCKZIP
:NOZIP STA $C05D ; Ultrawarp slow
RTS
* Detect a ZipChip
* Set carry is ZipChip found
DETECTZIP LDA $C05C ; ZipChip manual p25
EOR #$FF
STA $C05C
CMP $C05C
BNE :NOZIP
EOR #$FF
STA $C05C
CMP $C05C
BNE :NOZIP
SEC
RTS
:NOZIP CLC
RTS
* Unlock ZipChip registers
UNLOCKZIP PHP
SEI ; Timing sensitive