Made VARS command newline every 8 words
fixed bug where filling fshcmd only did half
This commit is contained in:
parent
15452c4fce
commit
3e1451c007
2
FSHa.asm
2
FSHa.asm
|
|
@ -9,7 +9,7 @@ Setup:
|
||||||
CALL _homeup
|
CALL _homeup
|
||||||
CALL _ClrLCDFull
|
CALL _ClrLCDFull
|
||||||
|
|
||||||
LD HL, $00
|
LD HL, 0
|
||||||
CALL fshvarfill
|
CALL fshvarfill
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
BIN
bin/FSHa.8xp
BIN
bin/FSHa.8xp
Binary file not shown.
|
|
@ -89,7 +89,7 @@ fshcmdfillLoop:
|
||||||
inc b
|
inc b
|
||||||
inc de
|
inc de
|
||||||
ld a, b
|
ld a, b
|
||||||
cp FshCmdSize / 2
|
cp FshCmdSize
|
||||||
jr c, fshcmdfillLoop
|
jr c, fshcmdfillLoop
|
||||||
pop de
|
pop de
|
||||||
pop bc
|
pop bc
|
||||||
|
|
|
||||||
|
|
@ -3,6 +3,7 @@ fshcmdVARSo: .db $12
|
||||||
fshcmdVARSu: .db "Displays all Fsh Vars", 0
|
fshcmdVARSu: .db "Displays all Fsh Vars", 0
|
||||||
fshcmdVARSf:
|
fshcmdVARSf:
|
||||||
ld b, 0
|
ld b, 0
|
||||||
|
ld c, 0
|
||||||
ld de, 0
|
ld de, 0
|
||||||
fshcmdVARSfLoop:
|
fshcmdVARSfLoop:
|
||||||
call fshvarget
|
call fshvarget
|
||||||
|
|
@ -10,12 +11,26 @@ fshcmdVARSfLoop:
|
||||||
call _PutC
|
call _PutC
|
||||||
ld a, l
|
ld a, l
|
||||||
call _PutC
|
call _PutC
|
||||||
|
ld a, c
|
||||||
|
inc c
|
||||||
|
cp 7
|
||||||
|
jr nz, fshcmdVARSfLoopU
|
||||||
|
push hl
|
||||||
|
push bc
|
||||||
|
push de
|
||||||
|
call _NewLine
|
||||||
|
pop de
|
||||||
|
pop bc
|
||||||
|
pop hl
|
||||||
|
ld c, 0
|
||||||
|
jr fshcmdVARSfLoopBack
|
||||||
|
fshcmdVARSfLoopU:
|
||||||
ld a, '_'
|
ld a, '_'
|
||||||
call _PutC
|
call _PutC
|
||||||
|
fshcmdVARSfLoopBack:
|
||||||
inc b
|
inc b
|
||||||
inc de
|
inc de
|
||||||
ld a, b
|
ld a, b
|
||||||
cp FshVarsSize / 2
|
cp FshVarsSize / 2
|
||||||
jr c, fshcmdVARSfLoop
|
jr c, fshcmdVARSfLoop
|
||||||
call _NewLine
|
|
||||||
jp Fin
|
jp Fin
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue