mirror of
https://github.com/blondie7575/WeeGUI.git
synced 2024-09-28 06:56:58 +00:00
Cleanup and small bug fixes
This commit is contained in:
parent
0fe5765c45
commit
05200b8ec2
2
Makefile
2
Makefile
@ -11,7 +11,7 @@
|
|||||||
|
|
||||||
CL65=cl65
|
CL65=cl65
|
||||||
AC=AppleCommander.jar
|
AC=AppleCommander.jar
|
||||||
ADDR=7e00
|
ADDR=7d00
|
||||||
ADDRDEMO=6000
|
ADDRDEMO=6000
|
||||||
|
|
||||||
PGM=weegui
|
PGM=weegui
|
||||||
|
@ -9,8 +9,9 @@ Known issues
|
|||||||
To Do:
|
To Do:
|
||||||
------
|
------
|
||||||
|
|
||||||
- Delete view feature
|
- Support carriage returns in &print
|
||||||
- Factor out mouse driver
|
|
||||||
- Standardize naming of functions
|
|
||||||
- Write sample code
|
- Write sample code
|
||||||
- Update side effects in assembly API
|
- Update side effects in assembly API
|
||||||
|
- Support for frameless views
|
||||||
|
- Document final memory map
|
||||||
|
|
||||||
|
@ -21,7 +21,7 @@ PARAM3 = $09
|
|||||||
; WeeGUI entry point
|
; WeeGUI entry point
|
||||||
; Set up your call, then do a JSR to this address.
|
; Set up your call, then do a JSR to this address.
|
||||||
;
|
;
|
||||||
WeeGUI = $7e04
|
WeeGUI = $7d04 ; 7d00
|
||||||
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
37
asmdemo.s
37
asmdemo.s
@ -174,24 +174,31 @@ testPaintContents:
|
|||||||
ldx #WGEraseViewContents
|
ldx #WGEraseViewContents
|
||||||
jsr WeeGUI
|
jsr WeeGUI
|
||||||
|
|
||||||
ldy #0
|
stz PARAM0
|
||||||
testPaintContents_loop:
|
stz PARAM1
|
||||||
ldx #0
|
|
||||||
stx PARAM0
|
|
||||||
sty PARAM1
|
|
||||||
ldx #WGSetCursor
|
ldx #WGSetCursor
|
||||||
jsr WeeGUI
|
jsr WeeGUI
|
||||||
|
|
||||||
tya
|
; ldy #0
|
||||||
clc
|
;testPaintContents_loop:
|
||||||
adc #'A'
|
; ldx #0
|
||||||
sta testStr3
|
; stx PARAM0
|
||||||
|
; sty PARAM1
|
||||||
|
; ldx #WGSetCursor
|
||||||
|
; jsr WeeGUI
|
||||||
|
|
||||||
WGCALL16 WGPrint,testStr3
|
; tya
|
||||||
|
; clc
|
||||||
|
; adc #'A'
|
||||||
|
; sta testStr3
|
||||||
|
;
|
||||||
|
; WGCALL16 WGPrint,testStr3
|
||||||
|
;
|
||||||
|
; iny
|
||||||
|
; cpy #25
|
||||||
|
; bne testPaintContents_loop
|
||||||
|
|
||||||
iny
|
WGCALL16 WGPrint,testStr
|
||||||
cpy #25
|
|
||||||
bne testPaintContents_loop
|
|
||||||
|
|
||||||
testPaintContents_done:
|
testPaintContents_done:
|
||||||
rts
|
rts
|
||||||
@ -228,9 +235,9 @@ testButton2:
|
|||||||
|
|
||||||
testStr:
|
testStr:
|
||||||
; .byte "This is a test of the emergency broadcast system.",0; If this had been a real emergency, you would be dead now.",0 ; 107 chars
|
; .byte "This is a test of the emergency broadcast system.",0; If this had been a real emergency, you would be dead now.",0 ; 107 chars
|
||||||
.byte "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ !",34,"#$%&'()*+,-./0123456789:;<=>?`abcdefghijklmno",0
|
.byte "@ABCDEFGHIJKLMNOPQ",13,"RSTUVWXYZ[\]^_ !",34,"#$%&'()*+,-./0123456789:;<=>?`abcdefghijklmno"
|
||||||
testStr2:
|
testStr2:
|
||||||
.byte "pqrstuvwxyz{|}~",$ff,0
|
.byte "pqrstuvwxyz",0;//{|}~",$ff,0
|
||||||
testStr3:
|
testStr3:
|
||||||
.byte "x",0
|
.byte "x",0
|
||||||
|
|
||||||
|
BIN
weegui.dsk
BIN
weegui.dsk
Binary file not shown.
Loading…
Reference in New Issue
Block a user