jp      test

inc "core.asm"
inc "str.asm"
inc "lib/util.asm"
inc "zasm/util.asm"

testNum:        .db 1
sFoo:           .db "foo", 0

test:
       ld      hl, 0xffff
       ld      sp, hl

       ld      hl, sFoo
       call    strlen
       cp      3
       jp      nz, fail
       call    nexttest

       ; success
       xor     a
       halt

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

fail:
       ld      a, (testNum)
       halt

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.