mirror of https://github.com/hsoft/collapseos.git
34 lines
445 B
NASM
34 lines
445 B
NASM
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:
|
|
|