memtMain:
       ld      de, memtEnd
loop:
       ld      b, 0
iloop:
       ld      a, b
       ld      (de), a
       ld      a, (de)
       cp      b
       jr      nz, .notMatching
       djnz    .iloop
       inc     de
       xor     a
       cp      d
       jr      nz, .loop
       cp      e
       jr      nz, .loop
       ; we rolled over 0xffff, stop
       ld      hl, .sOk
       xor     a
       jp      printstr        ; returns
notMatching:
       ld      hl, .sNotMatching
       call    printstr
       ex      de, hl
       ld      a, 1
       jp      printHexPair    ; returns
sNotMatching:
       .db     "Not matching at pos ", 0xd, 0xa, 0
sOk:
       .db     "OK", 0xd, 0xa, 0
memtEnd:

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.