65 lines
984 B
NASM
65 lines
984 B
NASM
|
sdctMain:
|
||
|
|
ld hl, .sWriting
|
||
|
|
call printstr
|
||
|
|
ld hl, 0
|
||
|
|
ld de, SDCT_RAMSTART
|
||
|
|
.wLoop:
|
||
|
|
ld a, (de)
|
||
|
|
call sdcPutC
|
||
|
|
jr nz, .error
|
||
|
|
inc hl
|
||
|
|
inc de
|
||
|
|
; Stop looping if DE == 0
|
||
|
|
xor a
|
||
|
|
cp e
|
||
|
|
jr nz, .wLoop
|
||
|
|
; print some kind of progress
|
||
|
|
call printHexPair
|
||
|
|
cp d
|
||
|
|
jr nz, .wLoop
|
||
|
|
; Finished writing
|
||
|
|
ld hl, .sReading
|
||
|
|
call printstr
|
||
|
|
ld hl, 0
|
||
|
|
ld de, SDCT_RAMSTART
|
||
|
|
.rLoop:
|
||
|
|
call sdcGetC
|
||
|
|
jr nz, .error
|
||
|
|
ex de, hl
|
||
|
|
cp (hl)
|
||
|
|
ex de, hl
|
||
|
|
jr nz, .notMatching
|
||
|
|
inc hl
|
||
|
|
inc de
|
||
|
|
; Stop looping if DE == 0
|
||
|
|
xor a
|
||
|
|
cp d
|
||
|
|
jr nz, .rLoop
|
||
|
|
cp e
|
||
|
|
jr nz, .rLoop
|
||
|
|
; Finished checking
|
||
|
|
xor a
|
||
|
|
ld hl, .sOk
|
||
|
|
jp printstr ; returns
|
||
|
|
.notMatching:
|
||
|
|
; error position is in HL, let's preserve it
|
||
|
|
ex de, hl
|
||
|
|
ld hl, .sNotMatching
|
||
|
|
call printstr
|
||
|
|
ex de, hl
|
||
|
|
jp printHexPair ; returns
|
||
|
|
.error:
|
||
|
|
ld hl, .sErr
|
||
|
|
jp printstr ; returns
|
||
|
|
|
||
|
|
.sWriting:
|
||
|
|
.db "Writing", 0xd, 0xa, 0
|
||
|
|
.sReading:
|
||
|
|
.db "Reading", 0xd, 0xa, 0
|
||
|
|
.sNotMatching:
|
||
|
|
.db "Not matching at pos ", 0xd, 0xa, 0
|
||
|
|
.sErr:
|
||
|
|
.db "Error", 0xd, 0xa, 0
|
||
|
|
.sOk:
|
||
|
|
.db "OK", 0xd, 0xa, 0
|