Apple-2gs-SW/gslaplay
1
0
Fork 0
mirror of https://github.com/dwsJason/gslaplay.git synced 2025-02-16 18:30:29 +00:00
Code Issues Projects Releases Wiki Activity

adjust about text

Browse Source
This commit is contained in:
dwsJason 2020-07-15 20:22:22 -04:00
parent 10f5d31c0a
commit fd7d198d5a
1 changed files with 2 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
asm/shell.s
View File

@ -170,7 +170,7 @@ GetEvent
]mnum = 1 ; "1" - 1 = 0
AppleM Menu '@';'X'
]inum = 256
Item 'About...';Divide;'';Kybd;'?/'
Item 'About GSLA...';Divide;'';Kybd;'?/'
FileM Menu ' File '
; Item 'New';Kybd;'Nn'
@ -444,7 +444,7 @@ DoOpen
rtl
:message str 'Select File to Open:'
:message str 'Open GS Lzb Anim:'
:filter dw 0 ; (count 0/no filter), set to 1 for only show s16 files
@ -468,31 +468,8 @@ p:where adrl $1c000 ;about 108k into file
DoSave
_Open p:open
bcs :trouble
lda p:open
sta p:read
sta p:setmark
_SetMark p:setmark
bcs :trouble
_Write p:write
bcs :trouble
_Close p:close
bcs :trouble
rts
:trouble
pha
PushLong #0
ldx #$1503
jsl $e10000
rtl
changestats
lda iobuff
sta :modify+1