Skip to content

Commit b88d5c1

Browse files
authored
Merge pull request #149 from Konamiman/fix/getclus_copies_64_bytes
Fix _GETCLUS copying 64 bytes of data instead of 16
2 parents aaecca6 + edd00d8 commit b88d5c1

File tree

1 file changed

+11
-2
lines changed

1 file changed

+11
-2
lines changed

source/command/msxdos/sys.mac

Lines changed: 11 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1392,19 +1392,28 @@ KBDOS:
13921392
; LD E,RELEASE##+(RELEASE##/256)*16
13931393
; RET
13941394

1395+
@GETCLUS:
1396+
ld b,16
1397+
jr _RUN_AND_COPY
1398+
13951399
@GDRVR:
13961400
@GDLI:
1397-
@GETCLUS:
1401+
ld b,64
1402+
1403+
_RUN_AND_COPY:
13981404
push hl
1405+
push bc
13991406
LD HL,BUFF3
14001407
call GO_BDOS##
1408+
pop bc
14011409
pop hl
14021410
or a
14031411
ret nz
14041412
push hl
14051413
ex de,hl
1414+
ld c,b
1415+
ld b,0
14061416
ld hl,BUFF3
1407-
ld bc,64
14081417
ldir
14091418
pop hl
14101419
ret

0 commit comments

Comments
 (0)