testbcdlib.asc

; a simple unit test for the bcd lib
	org #c000
test1:	
	ld hl,num1+6
	ld de,num2+6
	call bcdcmpdehl
	jp z,test2
	di 
	halt
test2:
	ld hl,num1+6
	ld de,num3+6
	call bcdcmpdehl
	jp nz,test3
	di 
	halt
test3:
	ld hl,num5+6
	ld de,num4+6
	call bcdcmpdehl
	jp nz,test4
	di
	halt
test4:
	ld hl,num1+6
	ld de,num3+6
	call bcdadddehl
	ld hl,num1+6
	ld de,num3+6
	call bcdcmpdehl
	jp z,test5
	di
	halt
test5:
	ld hl,num1+6
	ld de,num4+6
	call bcdadddehl
	ret
	ld hl,num1+6
	ld de,num5+6
	call bcdcmpdehl
	ret z
	di
	halt
	
num1 db 255,0,0,0,0,0,0,255
num2 db 255,0,0,0,0,0,0,255
num3 db 255,0,0,0,0,0,1,255
num4 db 255,0,9,9,9,9,9,255
num5 db 255,1,0,0,0,0,0,255

include "bcdlib.asc"