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

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.