collapseos/tools/tests/unit/test_core.asm

.equ foo 456	; AFTER_ORG should not get that value
.org 0x1234
.equ AFTER_ORG	@
.org 0

jp	test

.inc "core.asm"

dummyLabel:
testNum:	.db 1

.equ	dummyLabel	0x42

test:
	ld	hl, 0xffff
	ld	sp, hl

	; *** Just little z80 flags memo.
	and	a		; clear carry
	ld	hl, 100
	ld	de, 101
	sbc	hl, de
	jp	nc, fail	; carry is set
	call	nexttest

	and	a		; clear carry
	ld	hl, 101
	ld	de, 100
	sbc	hl, de
	jp	c, fail		; carry is reset
	call	nexttest

	ld	a, 1
	dec	a
	jp	m, fail		; positive
	dec	a
	jp	p, fail		; negative
	call	nexttest

	; Test that .equ can override label
	ld	a, 0x42
	ld	hl, dummyLabel
	cp	l
	jp	nz, fail
	call	nexttest

	; test that "@" is updated by a .org directive
	ld	hl, AFTER_ORG
	ld	de, 0x1234
	call	cpHLDE
	jp	nz, fail
	call	nexttest

	; *** cpHLDE ***
	ld	hl, 0x42
	ld	de, 0x42
	call	cpHLDE
	jp	nz, fail
	jp	c, fail
	call	nexttest

	ld	de, 0x4242
	call	cpHLDE
	jp	z, fail
	jp	nc, fail
	call	nexttest

	ld	hl, 0x4243
	call	cpHLDE
	jp	z, fail
	jp	c, fail
	call	nexttest

	; success
	xor	a
	halt

nexttest:
	ld	a, (testNum)
	inc	a
	ld	(testNum), a
	ret

fail:
	ld	a, (testNum)
	halt
zasm: make .org affect "@" symbol 2019-11-16 00:59:26 +11:00			`.equ foo 456 ; AFTER_ORG should not get that value`
			`.org 0x1234`
			`.equ AFTER_ORG @`
			`.org 0`

Make blockdev pointers 32 bits This allows us to break through the 64K limit for includes CFS in zasm, a limit we were dangerously close to breaking. In fact, this commit makes us go over that limit. Right in time! 2019-05-29 05:56:39 +10:00			`jp test`

zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "core.asm"`
Make blockdev pointers 32 bits This allows us to break through the 64K limit for includes CFS in zasm, a limit we were dangerously close to breaking. In fact, this commit makes us go over that limit. Right in time! 2019-05-29 05:56:39 +10:00
zasm: Constants now override labels at all times Will be important for a mega-commit I'm preparing. 2019-11-15 13:16:36 +11:00			`dummyLabel:`
Make blockdev pointers 32 bits This allows us to break through the 64K limit for includes CFS in zasm, a limit we were dangerously close to breaking. In fact, this commit makes us go over that limit. Right in time! 2019-05-29 05:56:39 +10:00			`testNum: .db 1`

zasm: Constants now override labels at all times Will be important for a mega-commit I'm preparing. 2019-11-15 13:16:36 +11:00			`.equ dummyLabel 0x42`

Make blockdev pointers 32 bits This allows us to break through the 64K limit for includes CFS in zasm, a limit we were dangerously close to breaking. In fact, this commit makes us go over that limit. Right in time! 2019-05-29 05:56:39 +10:00			`test:`
			`ld hl, 0xffff`
			`ld sp, hl`

blockdev: make implementors "random access" This huge refactoring remove the Seek and Tell routine from blockdev implementation requirements and change GetC and PutC's API so that they take an address to read and write (through HL/DE) at each call. The "PTR" approach in blockdev implementation was very redundant from device to device and it made more sense to generalize. It's possible that future device aren't "random access", but we'll be able to add more device types later. Another important change in this commit is that the "blockdev handle" is now opaque. Previously, consumers of the API would happily call routines directly from one of the 4 offsets. We can't do that any more. This makes the API more solid for future improvements. This change forced me to change a lot of things in fs, but overall, things are now simpler. No more `FS_PTR`: the "device handle" now holds the active pointer. Lots, lots of changes, but it also feels a lot cleaner and solid. 2019-06-05 01:53:02 +10:00			`; *** Just little z80 flags memo.`
			`and a ; clear carry`
			`ld hl, 100`
			`ld de, 101`
			`sbc hl, de`
			`jp nc, fail ; carry is set`
			`call nexttest`

			`and a ; clear carry`
			`ld hl, 101`
			`ld de, 100`
			`sbc hl, de`
			`jp c, fail ; carry is reset`
			`call nexttest`

			`ld a, 1`
			`dec a`
			`jp m, fail ; positive`
			`dec a`
			`jp p, fail ; negative`
			`call nexttest`

zasm: Constants now override labels at all times Will be important for a mega-commit I'm preparing. 2019-11-15 13:16:36 +11:00			`; Test that .equ can override label`
			`ld a, 0x42`
			`ld hl, dummyLabel`
			`cp l`
			`jp nz, fail`
			`call nexttest`

zasm: make .org affect "@" symbol 2019-11-16 00:59:26 +11:00			`; test that "@" is updated by a .org directive`
			`ld hl, AFTER_ORG`
			`ld de, 0x1234`
			`call cpHLDE`
			`jp nz, fail`
			`call nexttest`

fs: check for file size bounds in GetC 2019-06-01 01:12:29 +10:00			`; * cpHLDE *`
			`ld hl, 0x42`
			`ld de, 0x42`
			`call cpHLDE`
			`jp nz, fail`
			`jp c, fail`
			`call nexttest`

			`ld de, 0x4242`
			`call cpHLDE`
			`jp z, fail`
			`jp nc, fail`
			`call nexttest`

			`ld hl, 0x4243`
			`call cpHLDE`
			`jp z, fail`
			`jp c, fail`
			`call nexttest`

Make blockdev pointers 32 bits This allows us to break through the 64K limit for includes CFS in zasm, a limit we were dangerously close to breaking. In fact, this commit makes us go over that limit. Right in time! 2019-05-29 05:56:39 +10:00			`; success`
			`xor a`
			`halt`

			`nexttest:`
			`ld a, (testNum)`
			`inc a`
			`ld (testNum), a`
			`ret`

			`fail:`
			`ld a, (testNum)`
			`halt`
zasm: make .org affect "@" symbol 2019-11-16 00:59:26 +11:00