Cleanup
This commit is contained in:
@@ -4663,6 +4663,7 @@ CLOADB: inc hl ; skip #
|
||||
pop hl
|
||||
inc hl
|
||||
inc hl ; get filename
|
||||
; TODO filename always null terminated?
|
||||
call PRS ; print filename
|
||||
; de contains the nr of blocks to load
|
||||
; TODO check de>0
|
||||
@@ -4678,7 +4679,7 @@ CLOADB: inc hl ; skip #
|
||||
exx
|
||||
pop hl ; get stored data back
|
||||
pop de ; get destination
|
||||
ld bc,64 ; block size
|
||||
ld bc,128 ; block size
|
||||
ldir ; copy data to memory
|
||||
push de ; store destination address
|
||||
exx
|
||||
|
||||
Reference in New Issue
Block a user