Cleanup and small bug fixes

This commit is contained in:
Quinn Dunki 2015-02-01 16:05:30 -08:00
parent 0fe5765c45
commit 05200b8ec2
6 changed files with 30 additions and 22 deletions

View File

@ -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

View File

@ -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

View File

@ -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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

View File

@ -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

Binary file not shown.

View File

@ -7,7 +7,7 @@
; ;
.org $7e00 .org $7d00
; Common definitions ; Common definitions