Apple-2-SW/WeeGUI
1
0
Fork 0
mirror of https://github.com/blondie7575/WeeGUI.git synced 2024-12-13 15:30:04 +00:00
Code Issues Projects Releases Wiki Activity

bugfix: &FILL should support mousetext characters [fixes #6]

Browse Source
This commit is contained in:
4am 2017-12-20 09:20:54 -05:00
parent 971da7c4da
commit 03132095c6
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
applesoft.s
View File

@ -468,7 +468,7 @@ WGAmpersand_CHKBX:
lda #VIEW_STYLE_APPLESOFT lda #VIEW_STYLE_APPLESOFT
ora WG_VIEWRECORDS+4,y ora WG_VIEWRECORDS+4,y
sta WG_VIEWRECORDS+4,y sta WG_VIEWRECORDS+4,y
jsr WGPaintView jsr WGPaintView
jsr WGBottomCursor jsr WGBottomCursor
@ -505,7 +505,7 @@ WGAmpersand_PROG:
lda #VIEW_STYLE_APPLESOFT lda #VIEW_STYLE_APPLESOFT
ora WG_VIEWRECORDS+4,y ora WG_VIEWRECORDS+4,y
sta WG_VIEWRECORDS+4,y sta WG_VIEWRECORDS+4,y
jsr WGPaintView jsr WGPaintView
jsr WGBottomCursor jsr WGBottomCursor
@ -871,7 +871,6 @@ WGAmpersand_FILL:
jsr WGAmpersandNextArgument jsr WGAmpersandNextArgument
jsr WGAmpersandIntArgument jsr WGAmpersandIntArgument
ora #$80 ; Convert to Apple format
pha pha
jsr WGAmpersandEndArguments jsr WGAmpersandEndArguments
@ -956,7 +955,7 @@ WGAmpersand_PLOT:
pla pla
jsr WGPlot jsr WGPlot
jsr WGBottomCursor jsr WGBottomCursor
rts rts
@ -1033,7 +1032,7 @@ WGAmpersand_GETstore:
iny iny
pla pla
sta (VARPNT),y sta (VARPNT),y
; String version: ; String version:
; sta WG_KEYBUFFER ; Store the key ; sta WG_KEYBUFFER ; Store the key
; lda #1 ; Create an Applesoft string record in the ; lda #1 ; Create an Applesoft string record in the
@ -1276,4 +1275,3 @@ WGAmpersandCommandTable:
WGAmpersandCommandTableEnd: WGAmpersandCommandTableEnd:

BIN
weegui.dsk
View File

Binary file not shown.