mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-17 11:48:05 +11:00
68 lines
695 B
NASM
68 lines
695 B
NASM
|
jp test
|
||
|
|
|
||
|
|
#include "core.asm"
|
||
|
|
#include "parse.asm"
|
||
|
|
|
||
|
|
testNum: .db 1
|
||
|
|
|
||
|
|
sFoo: .db "Foo", 0
|
||
|
|
saB: .db "aB", 0
|
||
|
|
s99: .db "99", 0
|
||
|
|
|
||
|
|
test:
|
||
|
|
ld hl, 0xffff
|
||
|
|
ld sp, hl
|
||
|
|
|
||
|
|
ld a, '8'
|
||
|
|
call parseHex
|
||
|
|
jp c, fail
|
||
|
|
cp 8
|
||
|
|
jp nz, fail
|
||
|
|
call nexttest
|
||
|
|
|
||
|
|
ld a, 'e'
|
||
|
|
call parseHex
|
||
|
|
jp c, fail
|
||
|
|
cp 0xe
|
||
|
|
jp nz, fail
|
||
|
|
call nexttest
|
||
|
|
|
||
|
|
ld a, 'x'
|
||
|
|
call parseHex
|
||
|
|
jp nc, fail
|
||
|
|
call nexttest
|
||
|
|
|
||
|
|
ld hl, s99
|
||
|
|
call parseHexPair
|
||
|
|
jp c, fail
|
||
|
|
cp 0x99
|
||
|
|
jp nz, fail
|
||
|
|
call nexttest
|
||
|
|
|
||
|
|
ld hl, sab
|
||
|
|
call parseHexPair
|
||
|
|
jp c, fail
|
||
|
|
cp 0xab
|
||
|
|
jp nz, fail
|
||
|
|
call nexttest
|
||
|
|
|
||
|
|
ld hl, sfoo
|
||
|
|
call parseHexPair
|
||
|
|
jp nc, fail
|
||
|
|
call nexttest
|
||
|
|
|
||
|
|
; success
|
||
|
|
xor a
|
||
|
|
halt
|
||
|
|
|
||
|
|
nexttest:
|
||
|
|
ld a, (testNum)
|
||
|
|
inc a
|
||
|
|
ld (testNum), a
|
||
|
|
ret
|
||
|
|
|
||
|
|
fail:
|
||
|
|
ld a, (testNum)
|
||
|
|
halt
|
||
|
|
|