Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-11-05 02:08:07 +00:00
Code Issues Projects Releases Wiki Activity

Added *FAST and *SLOW commands.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-23 21:36:49 -04:00
parent b4109f1d1f
commit e4314958fc
2 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

24
auxmem.oscli.s
View File

@ -81,7 +81,12 @@ CMDTABLE ASC 'CAT' ; Must be first command so matches '*.'
ASC 'EXEC'
DB $80
DW EXEC-1 ; EXEC -> (LPTR)=>params
* DUMP <file>
ASC 'FAST'
DB $80
DW FAST-1 ; FAST -> (LPTR)=>params
ASC 'SLOW'
DB $80
DW SLOW-1 ; SLOW -> (LPTR)=>params
* BUILD <file>
* terminator
DB $FF
@ -748,6 +753,23 @@ EXEC JSR LPTRtoXY
ASC 'Not found'
BRK
*
* Handle *FAST command
* Turn Apple II accelerators on
FAST LDA #$80 ; Apple IIgs
TSB $C036
STA GSSPEED
STA $C05C ; Ultrawarp fast
RTS
*
* Handle *SLOW command
* Turn Apple II accelerators off
SLOW LDA #$80 ; Apple IIgs
TRB $C036
STZ GSSPEED
STA $C05D ; Ultrawarp slow
RTS