Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-27 13:29:22 +00:00
Code Issues Projects Releases Wiki Activity

Enhancing TWGS support

Browse Source 
and fixing the JSR to $bcffxx, ahem...
This commit is contained in:
Antoine Vignau 2024-09-25 08:33:22 +02:00
parent b7002066e8
commit c5af410e9e
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
misc/iigsaccelerators.s
View File

@ -99,7 +99,17 @@ no_AS rep #$20 ; Check Transwarp IIgs
jsl GetCurSpeed ; get current speed jsl GetCurSpeed ; get current speed
sta accSPEED ; save it sta accSPEED ; save it
lda #2600 ; set 2.6MHz lda #2600 ; set 2.6MHz
jsr SetCurSpeed ; the closest match jsl SetCurSpeed ; the closest match
* If you prefer the index stuff...
jsl GetCurISpeed ; get current speed
stx accSPEED ; save it
ldx #1 ; set 2.6MHz
jsl SetCurISpeed ; the closest match
*... end of preference
lda #2 lda #2
sta theACC ; tell we have a TWGS sta theACC ; tell we have a TWGS
rts rts
@ -154,6 +164,14 @@ check_TW cmp #2 ; Transwarp GS?
lda accSPEED ; restore speed lda accSPEED ; restore speed
jsl SetCurSpeed jsl SetCurSpeed
* If you prefer the index stuff...
ldx accSPEED
jsl SetCurISpeed
*... end of preference
rts rts
check_ZIP cmp #3 ; ZipGSX? check_ZIP cmp #3 ; ZipGSX?