mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-28 03:38:05 +11:00
43 lines
413 B
NASM
43 lines
413 B
NASM
|
jp test
|
||
|
|
||
|
.inc "ed/util.asm"
|
||
|
|
||
|
test:
|
||
|
ld sp, 0xffff
|
||
|
|
||
|
; *** 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
|
||
|
|
||
|
testNum: .db 1
|
||
|
|
||
|
nexttest:
|
||
|
ld a, (testNum)
|
||
|
inc a
|
||
|
ld (testNum), a
|
||
|
ret
|
||
|
|
||
|
fail:
|
||
|
ld a, (testNum)
|
||
|
halt
|