WeeGUI/unit_test.s

;
;  unit_test.s
;  WeeGui
;
;  Unit tests of various systems
;
;  Created by Quinn Dunki on 8/15/14.
;  Copyright (c) 2014 One Girl, One Laptop Productions. All rights reserved.
;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; tortureTestPrint
; Prints strings in a range of positions and scrolling offsets
;
	; Stack:
	; Curr Scroll X
	; Curr Scroll Y
	; Delta X
	; Delta Y
tortureTestPrint:
	ldx #WGClearScreen
	jsr WeeGUI

	lda	#0			; Initialize
	ldx #WGScrollX
	jsr WeeGUI

	ldx #WGScrollY
	jsr WeeGUI

tortureTestPrint_init:
	WGCALL16 WGCreateView,testPrintView

	lda #0
	ldx #WGSelectView
	jsr WeeGUI

	ldx #WGPaintView
	jsr WeeGUI

	lda #0
	pha
	pha
	lda #-1
	pha
	pha

	tsx
	inx

tortureTestPrint_loop:
	phx
	lda	#0			; Initialize
	sta PARAM0
	sta PARAM1
	ldx #WGSetCursor
	jsr WeeGUI
	plx

	inx				; Grab current delta X
	lda	$0100,x
	inx
	inx
	clc
	adc	$0100,x		; Add Scroll X
	sta	$0100,x
	beq tortureTestPrint_flipDeltaX		; Check for bounce
	cmp #-5
	beq tortureTestPrint_flipDeltaX
	bra tortureTestPrint_continueX

tortureTestPrint_flipDeltaX:
	dex
	dex
	lda $0100,x
	eor #$ff
	inc
	sta $0100,x
	inx
	inx

tortureTestPrint_continueX:
	phx
	lda	$0100,x
	ldx #WGScrollX	; Apply current X scroll
	jsr WeeGUI
	plx
	dex
	dex
	dex

	lda	$0100,x		; Grab current delta Y
	inx
	inx
	clc
	adc	$0100,x		; Add Scroll Y
	sta	$0100,x
	beq tortureTestPrint_flipDeltaY		; Check for bounce
	cmp #-5
	beq tortureTestPrint_flipDeltaY
	bra tortureTestPrint_continueY

tortureTestPrint_flipDeltaY:
	dex
	dex
	lda $0100,x
	eor #$ff
	inc
	sta $0100,x
	inx
	inx

tortureTestPrint_continueY:
	phx
	lda	$0100,x
	ldx #WGScrollY
	jsr WeeGUI
	plx
	dex
	dex

tortureTestPrint_print:
;	VBL_SYNC
	phx
	ldx #WGEraseViewContents
	jsr WeeGUI

	WGCALL16 WGPrint,unitTestStr

	ldx #WGPrint	; Do it again
	jsr WeeGUI

;	jmp tortureTestPrint_lock
	jsr delay

	plx
	jmp tortureTestPrint_loop

tortureTestPrint_reset:
	pla
	pla
	jmp tortureTestPrint_init

tortureTestPrint_lock:
	jmp tortureTestPrint_lock


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

tortureTestRectsEven:

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

tortureTestRectsEvenLoop:
@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	tortureTestRectsEvenDone

	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 tortureTestRectsEvenLoop

tortureTestRectsEvenDone:
	pla
	pla
	pla
	pla

tortureTestRectsOdd:

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

tortureTestRectsOddLoop:
	ldx #WGClearScreen
	jsr WeeGUI

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

	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 tortureTestRectsOddLoop

tortureTestRectsOddDone:
	pla
	pla
	pla
	pla

	jmp	tortureTestRectsEven


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


testPrintView:
	.byte 0,0,15,6,30,10,40,126

unitTestStr:
	.byte "This is a test of the emergency broadcast system. If this had been a real emergency, you would be dead now. Amusingly, it can be noted that if this had been a real emergency, and you were now a steaming pile of ash, there would of course be nobody.",0; to read this message. That begs any number",0; of extistential questions about this very text.",0
- Initial commit 2014-08-29 19:19:19 +00:00			`;`
			`; unit_test.s`
			`; WeeGui`
			`;`
			`; Unit tests of various systems`
			`;`
			`; Created by Quinn Dunki on 8/15/14.`
			`; Copyright (c) 2014 One Girl, One Laptop Productions. All rights reserved.`
			`;`

- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`
			`; tortureTestPrint`
			`; Prints strings in a range of positions and scrolling offsets`
			`;`
			`; Stack:`
			`; Curr Scroll X`
			`; Curr Scroll Y`
			`; Delta X`
			`; Delta Y`
			`tortureTestPrint:`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`ldx #WGClearScreen`
			`jsr WeeGUI`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
			`lda #0 ; Initialize`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`ldx #WGScrollX`
			`jsr WeeGUI`

			`ldx #WGScrollY`
			`jsr WeeGUI`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
			`tortureTestPrint_init:`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`WGCALL16 WGCreateView,testPrintView`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
			`lda #0`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`ldx #WGSelectView`
			`jsr WeeGUI`

			`ldx #WGPaintView`
			`jsr WeeGUI`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
			`lda #0`
			`pha`
			`pha`
			`lda #-1`
			`pha`
			`pha`

			`tsx`
			`inx`

			`tortureTestPrint_loop:`
			`phx`
- 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			`lda #0 ; Initialize`
			`sta PARAM0`
			`sta PARAM1`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`ldx #WGSetCursor`
			`jsr WeeGUI`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`plx`

			`inx ; Grab current delta X`
			`lda $0100,x`
			`inx`
			`inx`
			`clc`
			`adc $0100,x ; Add Scroll X`
			`sta $0100,x`
			`beq tortureTestPrint_flipDeltaX ; Check for bounce`
			`cmp #-5`
			`beq tortureTestPrint_flipDeltaX`
			`bra tortureTestPrint_continueX`

			`tortureTestPrint_flipDeltaX:`
			`dex`
			`dex`
			`lda $0100,x`
			`eor #$ff`
			`inc`
			`sta $0100,x`
			`inx`
			`inx`

			`tortureTestPrint_continueX:`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`phx`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`lda $0100,x`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`ldx #WGScrollX ; Apply current X scroll`
			`jsr WeeGUI`
			`plx`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`dex`
			`dex`
			`dex`

			`lda $0100,x ; Grab current delta Y`
			`inx`
			`inx`
			`clc`
			`adc $0100,x ; Add Scroll Y`
			`sta $0100,x`
			`beq tortureTestPrint_flipDeltaY ; Check for bounce`
			`cmp #-5`
			`beq tortureTestPrint_flipDeltaY`
			`bra tortureTestPrint_continueY`

			`tortureTestPrint_flipDeltaY:`
			`dex`
			`dex`
			`lda $0100,x`
			`eor #$ff`
			`inc`
			`sta $0100,x`
			`inx`
			`inx`

			`tortureTestPrint_continueY:`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`phx`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`lda $0100,x`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`ldx #WGScrollY`
			`jsr WeeGUI`
			`plx`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`dex`
			`dex`

			`tortureTestPrint_print:`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`; VBL_SYNC`
			`phx`
			`ldx #WGEraseViewContents`
			`jsr WeeGUI`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`WGCALL16 WGPrint,unitTestStr`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`ldx #WGPrint ; Do it again`
			`jsr WeeGUI`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
			`; jmp tortureTestPrint_lock`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`jsr delay`

			`plx`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`jmp tortureTestPrint_loop`

			`tortureTestPrint_reset:`
			`pla`
			`pla`
			`jmp tortureTestPrint_init`

			`tortureTestPrint_lock:`
			`jmp tortureTestPrint_lock`

- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
- Initial commit 2014-08-29 19:19:19 +00:00			`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`
			`; tortureTestRects`
			`; Strokes and paints rectangles of many different geometries`
			`;`
			`; Stack:`
			`; Curr X`
			`; Curr Y`
			`; Curr Width`
			`; Curr Height`
			`tortureTestRects:`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`ldx #WGClearScreen`
			`jsr WeeGUI`
- Initial commit 2014-08-29 19:19:19 +00:00
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`tortureTestRectsEven:`

- Initial commit 2014-08-29 19:19:19 +00:00			`lda #38 ; Initialize`
			`pha`
			`lda #11`
			`pha`
			`lda #2`
			`pha`
			`lda #2`
			`pha`

- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`tortureTestRectsEvenLoop:`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`@0: lda $C019 ; Sync to VBL`
			`bmi @0`

			`ldx #WGClearScreen`
			`jsr WeeGUI`
- Initial commit 2014-08-29 19:19:19 +00:00
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`tsx`
			`inx`
			`lda $0100,x ; Load Height, then modify`
			`sta PARAM3`
			`inc`
			`inc`
			`sta $0100,x`
			`cmp #25`
			`bcs tortureTestRectsEvenDone`

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

- 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			`ldy #'Q'+$80`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`ldx #WGFillRect`
			`jsr WeeGUI`
			`ldx #WGStrokeRect`
			`jsr WeeGUI`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
			`jsr delayShort`
			`jsr delayShort`
			`jsr delayShort`

			`jmp tortureTestRectsEvenLoop`

			`tortureTestRectsEvenDone:`
			`pla`
			`pla`
			`pla`
			`pla`

			`tortureTestRectsOdd:`

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

			`tortureTestRectsOddLoop:`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`ldx #WGClearScreen`
			`jsr WeeGUI`
- Initial commit 2014-08-29 19:19:19 +00:00
			`tsx`
			`inx`
			`lda $0100,x ; Load Height, then modify`
			`sta PARAM3`
			`inc`
			`inc`
			`sta $0100,x`
			`cmp #25`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`bcs tortureTestRectsOddDone`
- Initial commit 2014-08-29 19:19:19 +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`

- 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			`ldy #'Q'+$80`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`ldx #WGFillRect`
			`jsr WeeGUI`
			`ldx #WGStrokeRect`
			`jsr WeeGUI`
- Initial commit 2014-08-29 19:19:19 +00:00
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`jsr delayShort`
			`jsr delayShort`
			`jsr delayShort`
- Initial commit 2014-08-29 19:19:19 +00:00
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`jmp tortureTestRectsOddLoop`
- Initial commit 2014-08-29 19:19:19 +00:00
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`tortureTestRectsOddDone:`
- Initial commit 2014-08-29 19:19:19 +00:00			`pla`
			`pla`
			`pla`
			`pla`

- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`jmp tortureTestRectsEven`



- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`delayShort: ; ~1/30 sec`
- Implemented most of MLI - Code cleanup - GUIDEMO is now the demo for the MLI 2014-10-11 23:12:15 +00:00			`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`



- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +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`
			`rts`




- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`testPrintView:`
- More code size optimization - Reimplemented Print unit test - Made it easier to exclude AppleSoft API if desired 2014-10-14 02:12:14 +00:00			`.byte 0,0,15,6,30,10,40,126`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00
- Painting code for Checkboxes - Painting code for Buttons - Data structures for controls - Support for single width and height rectangle stroking - Abstraction of normal and inverse text printing - Support for lowercase in hex scanning - Creation of checkboxes and buttons - Support for view titles 2014-09-05 23:31:33 +00:00			`unitTestStr:`
- Added unit test for text scrolling and clipping 2014-09-03 00:43:09 +00:00			`.byte "This is a test of the emergency broadcast system. If this had been a real emergency, you would be dead now. Amusingly, it can be noted that if this had been a real emergency, and you were now a steaming pile of ash, there would of course be nobody.",0; to read this message. That begs any number",0; of extistential questions about this very text.",0`