WeeGUI/asmdemo.s

;
;  guidemo.s
;  WeeGUI sample application
;
;  Created by Quinn Dunki on 8/15/14.
;  Copyright (c) 2014 One Girl, One Laptop Productions. All rights reserved.
;


.include "WeeGUI_MLI.s"


.org $6000

INBUF			= $0200
DOSCMD			= $be03
KBD				= $c000
KBDSTRB			= $c010


.macro WGCALL16 func,addr
	lda #<addr
	sta PARAM0
	lda #>addr
	sta PARAM1
	ldx #func
	jsr WeeGUI
.endmacro


; Sample code
main:

	; BRUN the GUI library
	ldx #0
	ldy #0
@0:	lda brunCmdLine,x
	beq @1
	sta INBUF,y
	inx
	iny
	bra @0
@1:	jsr DOSCMD


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Show off some WeeGUI features

	jmp	animateRects

	ldx #WGClearScreen
	jsr WeeGUI

keyLoop:
	ldx #WGPendingViewAction
	jsr WeeGUI

	lda KBD
	bpl keyLoop
	sta KBDSTRB

	and #%01111111
	cmp #113
	beq	keyLoop_quit

	jmp keyLoop

keyLoop_quit:
	ldx #WGExit
	jsr WeeGUI
	rts


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; animateRects
; Strokes and paints rectangles of many different geometries
;
	; Stack:
	; Curr X
	; Curr Y
	; Curr Width
	; Curr Height
animateRects:
	ldx #WGClearScreen
	jsr WeeGUI

animateRectsEven:

	lda	#38			; Initialize
	pha
	lda #11
	pha
	lda #2
	pha
	lda #2
	pha

animateRectsEvenLoop:
@0:	lda $C019		; Sync to VBL
	bmi @0

	ldx #WGClearScreen
	jsr WeeGUI

	tsx
	inx
	lda	$0100,x		; Load Height, then modify
	sta	PARAM3
	inc
	inc
	sta	$0100,x
	cmp	#25
	bcs	animateRectsEvenDone

	inx				; Load Width, then modify
	lda	$0100,x
	sta PARAM2
	inc
	inc
	inc
	inc
	inc
	inc
	sta	$0100,x

	inx				; Load Y, then modify
	lda	$0100,x
	sta	PARAM1
	dec
	sta	$0100,x

	inx				; Load X, then modify
	lda	$0100,x
	sta	PARAM0
	dec
	dec
	dec
	sta	$0100,x

	ldy	#'Q'+$80
	ldx	#WGFillRect
	jsr WeeGUI
	ldx #WGStrokeRect
	jsr WeeGUI

	jsr delayShort
	jsr delayShort
	jsr delayShort

	jmp animateRectsEvenLoop

animateRectsEvenDone:
	pla
	pla
	pla
	pla

animateRectsOdd:

	lda	#37			; Initialize
	pha
	lda #11
	pha
	lda #2
	pha
	lda #2
	pha

animateRectsOddLoop:
	ldx #WGClearScreen
	jsr WeeGUI

	tsx
	inx
	lda	$0100,x		; Load Height, then modify
	sta	PARAM3
	inc
	inc
	sta	$0100,x
	cmp	#25
	bcs	animateRectsOddDone

	inx				; Load Width, then modify
	lda	$0100,x
	sta PARAM2
	inc
	inc
	inc
	inc
	inc
	inc
	sta	$0100,x

	inx				; Load Y, then modify
	lda	$0100,x
	sta	PARAM1
	dec
	sta	$0100,x

	inx				; Load X, then modify
	lda	$0100,x
	sta	PARAM0
	dec
	dec
	dec
	sta	$0100,x

	ldy	#'Q'+$80
	ldx	#WGFillRect
	jsr WeeGUI
	ldx #WGStrokeRect
	jsr WeeGUI

	jsr delayShort
	jsr delayShort
	jsr delayShort

	jmp animateRectsOddLoop

animateRectsOddDone:
	pla
	pla
	pla
	pla

	jmp	animateRectsEven

delayShort:		; ~1/30 sec
	pha
	phx
	phy

	ldy		#$06	; Loop a bit
delayShortOuter:
	ldx		#$ff
delayShortInner:
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	dex
	bne		delayShortInner
	dey
	bne		delayShortOuter

	ply
	plx
	pla
	rts

delay:			; ~1 sec
	pha
	phx
	phy

	ldy		#$ce	; Loop a bunch
delayOuter:
	ldx		#$ff
delayInner:
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	dex
	bne		delayInner
	dey
	bne		delayOuter

	ply
	plx
	pla
	rts


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

brunCmdLine:
	.byte "BRUN weegui",$8d,0


; Suppress some linker warnings - Must be the last thing in the file
.SEGMENT "ZPSAVE"
.SEGMENT "EXEHDR"
.SEGMENT "STARTUP"
.SEGMENT "INIT"
.SEGMENT "LOWCODE"
- Initial commit 2014-08-29 19:19:19 +00:00			`;`
- Fixed some warnings - Code cleanup - Added pretty window rendering 2014-09-07 23:06:25 +00:00			`; guidemo.s`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`; WeeGUI sample application`
- Initial commit 2014-08-29 19:19:19 +00:00			`;`
			`; Created by Quinn Dunki on 8/15/14.`
			`; Copyright (c) 2014 One Girl, One Laptop Productions. All rights reserved.`
			`;`


- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`.include "WeeGUI_MLI.s"`
- Initial commit 2014-08-29 19:19:19 +00:00

- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`.org $6000`
- Initial commit 2014-08-29 19:19:19 +00:00
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`INBUF = $0200`
			`DOSCMD = $be03`
			`KBD = $c000`
			`KBDSTRB = $c010`
- Initial commit 2014-08-29 19:19:19 +00:00

- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`.macro WGCALL16 func,addr`
			`lda #<addr`
- Converted WGSetCursor to use zero-page parameter passing - Eliminated WGInverse and WGNormal API calls - Added the basic dispatcher for ML API - Trimmed some unneeded code - Prototyped assembly language API file - Another pass on reducing code size - X register now reserved for dispatcher - API calls using X register as a parameter converted to Y register - Added WGSetGlobalCursor - Some code cleanup 2014-10-03 19:22:19 +00:00			`sta PARAM0`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`lda #>addr`
- Converted WGSetCursor to use zero-page parameter passing - Eliminated WGInverse and WGNormal API calls - Added the basic dispatcher for ML API - Trimmed some unneeded code - Prototyped assembly language API file - Another pass on reducing code size - X register now reserved for dispatcher - API calls using X register as a parameter converted to Y register - Added WGSetGlobalCursor - Some code cleanup 2014-10-03 19:22:19 +00:00			`sta PARAM1`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`ldx #func`
- Converted WGSetCursor to use zero-page parameter passing - Eliminated WGInverse and WGNormal API calls - Added the basic dispatcher for ML API - Trimmed some unneeded code - Prototyped assembly language API file - Another pass on reducing code size - X register now reserved for dispatcher - API calls using X register as a parameter converted to Y register - Added WGSetGlobalCursor - Some code cleanup 2014-10-03 19:22:19 +00:00			`jsr WeeGUI`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`.endmacro`
- Initial commit 2014-08-29 19:19:19 +00:00

- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`; Sample code`
			`main:`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish & Docs - Removed &NRML and &IVER (not needed) - WeeGUI's memory pages are now reserved in ProDOS's page allocation scheme, to protect us from file operations and such - Renamed various files to be more friendly - Cleaned up the disk image - First draft of documentation 2015-01-03 00:01:38 +00:00			`; BRUN the GUI library`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`ldx #0`
			`ldy #0`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`@0: lda brunCmdLine,x`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`beq @1`
			`sta INBUF,y`
			`inx`
			`iny`
			`bra @0`
			`@1: jsr DOSCMD`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00

- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`
			`; Show off some WeeGUI features`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`jmp animateRects`
Minor cleanup - Code cleanup - Fixed mouse not working on checkboxes with no callback 2015-01-01 23:56:32 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`ldx #WGClearScreen`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`jsr WeeGUI`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
			`keyLoop:`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`ldx #WGPendingViewAction`
			`jsr WeeGUI`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
			`lda KBD`
			`bpl keyLoop`
			`sta KBDSTRB`

			`and #%01111111`
			`cmp #113`
			`beq keyLoop_quit`

			`jmp keyLoop`

Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`keyLoop_quit:`
			`ldx #WGExit`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`jsr WeeGUI`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`rts`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00

Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`
			`; animateRects`
			`; Strokes and paints rectangles of many different geometries`
			`;`
			`; Stack:`
			`; Curr X`
			`; Curr Y`
			`; Curr Width`
			`; Curr Height`
			`animateRects:`
			`ldx #WGClearScreen`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`jsr WeeGUI`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`animateRectsEven:`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`lda #38 ; Initialize`
			`pha`
			`lda #11`
			`pha`
			`lda #2`
			`pha`
			`lda #2`
			`pha`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`animateRectsEvenLoop:`
			`@0: lda $C019 ; Sync to VBL`
			`bmi @0`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`ldx #WGClearScreen`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`jsr WeeGUI`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`tsx`
			`inx`
			`lda $0100,x ; Load Height, then modify`
			`sta PARAM3`
			`inc`
			`inc`
			`sta $0100,x`
			`cmp #25`
			`bcs animateRectsEvenDone`

			`inx ; Load Width, then modify`
			`lda $0100,x`
			`sta PARAM2`
			`inc`
			`inc`
			`inc`
			`inc`
			`inc`
			`inc`
			`sta $0100,x`

			`inx ; Load Y, then modify`
			`lda $0100,x`
			`sta PARAM1`
			`dec`
			`sta $0100,x`

			`inx ; Load X, then modify`
			`lda $0100,x`
			`sta PARAM0`
			`dec`
			`dec`
			`dec`
			`sta $0100,x`

			`ldy #'Q'+$80`
			`ldx #WGFillRect`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`jsr WeeGUI`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`ldx #WGStrokeRect`
Bug fixes - Added Exit routine for cleaning up text state and memory allocation - Quitting no longer leaves BASIC in inverse sometimes - Quitting now cleans up ProDOS memory properly - Added Applesoft API for Exit 2015-01-16 16:18:19 +00:00			`jsr WeeGUI`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`jsr delayShort`
			`jsr delayShort`
			`jsr delayShort`
- Fixed a bug where mouse wouldn't initialize until a WGPlot was encountered - Fixed painting routines corrupting PAGE2 switch at random - Fancy views can now detect clicks in their scroll bar areas - Callbacks now used as "re-render" messages in scrollable windows - Scrollbars now automagically functional 2014-10-25 19:01:14 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`jmp animateRectsEvenLoop`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`animateRectsEvenDone:`
			`pla`
			`pla`
			`pla`
			`pla`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`animateRectsOdd:`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`lda #37 ; Initialize`
			`pha`
			`lda #11`
			`pha`
			`lda #2`
			`pha`
			`lda #2`
			`pha`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`animateRectsOddLoop:`
			`ldx #WGClearScreen`
			`jsr WeeGUI`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`tsx`
			`inx`
			`lda $0100,x ; Load Height, then modify`
			`sta PARAM3`
			`inc`
			`inc`
			`sta $0100,x`
			`cmp #25`
			`bcs animateRectsOddDone`

			`inx ; Load Width, then modify`
			`lda $0100,x`
			`sta PARAM2`
			`inc`
			`inc`
			`inc`
			`inc`
			`inc`
			`inc`
			`sta $0100,x`

			`inx ; Load Y, then modify`
			`lda $0100,x`
			`sta PARAM1`
			`dec`
			`sta $0100,x`

			`inx ; Load X, then modify`
			`lda $0100,x`
			`sta PARAM0`
			`dec`
			`dec`
			`dec`
			`sta $0100,x`

			`ldy #'Q'+$80`
			`ldx #WGFillRect`
			`jsr WeeGUI`
			`ldx #WGStrokeRect`
			`jsr WeeGUI`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`jsr delayShort`
			`jsr delayShort`
			`jsr delayShort`

			`jmp animateRectsOddLoop`

			`animateRectsOddDone:`
			`pla`
			`pla`
			`pla`
			`pla`

			`jmp animateRectsEven`

			`delayShort: ; ~1/30 sec`
			`pha`
			`phx`
			`phy`

			`ldy #$06 ; Loop a bit`
			`delayShortOuter:`
			`ldx #$ff`
			`delayShortInner:`
			`nop`
			`nop`
			`nop`
			`nop`
			`nop`
			`nop`
			`nop`
			`dex`
			`bne delayShortInner`
			`dey`
			`bne delayShortOuter`

			`ply`
			`plx`
			`pla`
			`rts`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`delay: ; ~1 sec`
			`pha`
			`phx`
			`phy`

			`ldy #$ce ; Loop a bunch`
			`delayOuter:`
			`ldx #$ff`
			`delayInner:`
			`nop`
			`nop`
			`nop`
			`nop`
			`nop`
			`nop`
			`nop`
			`dex`
			`bne delayInner`
			`dey`
			`bne delayOuter`

			`ply`
			`plx`
			`pla`
- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00			`rts`

- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00

- Quick first pass to reduce code size 2014-10-02 21:59:13 +00:00			`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`

Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`brunCmdLine:`
Polish & Docs - Removed &NRML and &IVER (not needed) - WeeGUI's memory pages are now reserved in ProDOS's page allocation scheme, to protect us from file operations and such - Renamed various files to be more friendly - Cleaned up the disk image - First draft of documentation 2015-01-03 00:01:38 +00:00			`.byte "BRUN weegui",$8d,0`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00

- Fixed some warnings - Code cleanup - Added pretty window rendering 2014-09-07 23:06:25 +00:00			`; Suppress some linker warnings - Must be the last thing in the file`
			`.SEGMENT "ZPSAVE"`
			`.SEGMENT "EXEHDR"`
			`.SEGMENT "STARTUP"`
			`.SEGMENT "INIT"`
			`.SEGMENT "LOWCODE"`