WeeGUI/asmdemo.s

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


.include "WeeGUI_MLI.s"


.org $6000

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


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 rendering speed with some snazzy rectangle painting
;
	; Stack:
	; Curr X
	; Curr Y
	; Curr Width
	; Curr Height

	ldx #WGClearScreen
	jsr WeeGUI

animateRects:
	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	animateRects

	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	#64
	ldx	#WGFillRect
	jsr WeeGUI
	ldx #WGStrokeRect
	jsr WeeGUI

	jsr delayShort
	jsr delayShort
	jsr delayShort
	jsr checkKbd

	bra animateRectsEvenLoop


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

checkKbd:
	lda KBD
	bpl checkKbdDone
	sta KBDSTRB

	cmp #241		; 'q' with high bit set
	bne	checkKbdDone

	ldx #WGExit
	jsr WeeGUI
	pla		; Pull our own frame off the stack...
	pla
	pla
	pla
	pla		; ...four local variables + return address...
	pla
	rts		; ...so we can quit to ProDOS from here

checkKbdDone:
	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			`;`
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`; asmdemo.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.`
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`; Copyright (c) 2015 One Girl, One Laptop Productions. All rights reserved.`
- 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			`.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			`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

Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`; Show off rendering speed with some snazzy rectangle painting`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`;`
			`; Stack:`
			`; Curr X`
			`; Curr Y`
			`; Curr Width`
			`; Curr Height`
Polish to docs and sample code 2015-02-09 01:50:44 +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 docs and sample code 2015-02-09 01:50:44 +00:00			`animateRects:`
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`
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`bcs animateRects`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00
			`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`

Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`ldy #64`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`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`
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`jsr checkKbd`
- 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 docs and sample code 2015-02-09 01:50:44 +00:00			`bra 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
			`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 docs and sample code 2015-02-09 01:50:44 +00:00			`checkKbd:`
			`lda KBD`
			`bpl checkKbdDone`
			`sta KBDSTRB`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`cmp #241 ; 'q' with high bit set`
			`bne checkKbdDone`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`ldx #WGExit`
			`jsr WeeGUI`
			`pla ; Pull our own frame off the stack...`
Polish to sample code and docs 2015-02-08 01:39:18 +00:00			`pla`
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`pla`
			`pla`
			`pla ; ...four local variables + return address...`
			`pla`
			`rts ; ...so we can quit to ProDOS from here`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00
Polish to docs and sample code 2015-02-09 01:50:44 +00:00			`checkKbdDone:`
			`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"`