Apple-2-SW/WeeGUI
1
0
Fork 0
mirror of https://github.com/blondie7575/WeeGUI.git synced 2024-09-27 15:54:35 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #7 from a2-4am/master

Browse Source 
bugfix: &FILL should support mousetext characters [fixes #6]
This commit is contained in:
blondie7575 2017-12-20 11:01:37 -08:00 committed by GitHub
commit a5cf785e74
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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.