Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-01-26 02:31:31 +00:00
Code Issues Projects Releases Wiki Activity

sigh

Browse Source
This commit is contained in:
Peter Ferrie 2019-11-06 19:42:41 -08:00
parent a2422451b2
commit b0781fc7ea
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/hw.accel.a
View File

@ -229,17 +229,22 @@ build_addon
; Function #1: Apple IIc+ ; Function #1: Apple IIc+
iicplus iicplus
nop
nop
nop
nop
end_iicplus
; Set //c+ speed. Uses the horrible firmware in case other ; Set //c+ speed. Uses the horrible firmware in case other
; code works "by the book", that is can check and set ; code works "by the book", that is can check and set
; whether the accelerator is enabled. ; whether the accelerator is enabled.
; The //c+ is otherwise Zip compatible. ; The //c+ is otherwise Zip compatible.
lda #1 ; disable accelerator entry point ; This code cannot run from either LC or stack,
!byte $2C ; BIT <ABSOLUTE>, hide next lda # ; so it's set off and left off. Sorry IIc+ users.
lda #0 ; enable accelerator entry point lda #$60
sta DisableAccelerator+3
!cpu 65C02 ; only used for //c+ lda #2 ; disable accelerator entry point
inc ; 65C02 $1A ; !byte $2C ; BIT <ABSOLUTE>, hide next lda #
!cpu 6502 ; lda #1 ; enable accelerator entry point
; cgga calls save X and Y regs but sets $0 to 0 ; cgga calls save X and Y regs but sets $0 to 0
; (this will get a laugh from C programmers) ; (this will get a laugh from C programmers)
@ -261,7 +266,6 @@ iicplus
plp ; restore interrupt state plp ; restore interrupt state
stx $0 stx $0
rts rts
end_iicplus
; Function #2: IIgs, Laser 128EX, or IIe card ; Function #2: IIgs, Laser 128EX, or IIe card
;; setspeed - set 1Mhz with AND and fast with OR ;; setspeed - set 1Mhz with AND and fast with OR