jp      test

inc "core.asm"
inc "lib/util.asm"
inc "lib/ari.asm"
inc "lib/fmt.asm"

stdioPutC:
       ret

test:
       ld      sp, 0xffff

       call    testFmtDecimal
       call    testFmtDecimalS

       ; success
       xor     a
       halt

testFmtDecimal:
       ld      ix, .t1
       call    .test
       ld      ix, .t2
       call    .test
       ld      ix, .t3
       call    .test
       ld      ix, .t4
       call    .test
       ld      ix, .t5
       call    .test
       ret
test:
       ld      e, (ix)
       ld      d, (ix+1)
       ld      hl, sandbox
       call    fmtDecimal
       ld      hl, sandbox
       push    ix \ pop de
       inc     de \ inc de
       call    strcmp
       jp      nz, fail
       jp      nexttest
t1:
       .dw 1234
       .db "1234", 0
t2:
       .dw 9999
       .db "9999", 0
t3:
       .dw 0
       .db "0", 0
t4:
       .dw 0x7fff
       .db "32767", 0
t5:
       .dw 0xffff
       .db "65535", 0

testFmtDecimalS:
       ld      ix, .t1
       call    .test
       ld      ix, .t2
       call    .test
       ret
test:
       ld      e, (ix)
       ld      d, (ix+1)
       ld      hl, sandbox
       call    fmtDecimalS
       ld      hl, sandbox
       push    ix \ pop de
       inc     de \ inc de
       call    strcmp
       jp      nz, fail
       jp      nexttest
t1:
       .dw 1234
       .db "1234", 0
t2:
       .dw 0-1234
       .db "-1234", 0

testNum:        .db 1

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

fail:
       ld      a, (testNum)
       halt

; used as RAM
sandbox:

You are viewing proxied material from gopher.quest. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.