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 _ClrLCDFull
|
||||
|
||||
LD HL, $00
|
||||
LD HL, 0
|
||||
CALL fshvarfill
|
||||
|
||||
|
||||
|
|
|
|||
BIN
bin/FSHa.8xp
BIN
bin/FSHa.8xp
Binary file not shown.
|
|
@ -89,7 +89,7 @@ fshcmdfillLoop:
|
|||
inc b
|
||||
inc de
|
||||
ld a, b
|
||||
cp FshCmdSize / 2
|
||||
cp FshCmdSize
|
||||
jr c, fshcmdfillLoop
|
||||
pop de
|
||||
pop bc
|
||||
|
|
|
|||
|
|
@ -3,6 +3,7 @@ fshcmdVARSo: .db $12
|
|||
fshcmdVARSu: .db "Displays all Fsh Vars", 0
|
||||
fshcmdVARSf:
|
||||
ld b, 0
|
||||
ld c, 0
|
||||
ld de, 0
|
||||
fshcmdVARSfLoop:
|
||||
call fshvarget
|
||||
|
|
@ -10,12 +11,26 @@ fshcmdVARSfLoop:
|
|||
call _PutC
|
||||
ld a, l
|
||||
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, '_'
|
||||
call _PutC
|
||||
fshcmdVARSfLoopBack:
|
||||
inc b
|
||||
inc de
|
||||
ld a, b
|
||||
cp FshVarsSize / 2
|
||||
jr c, fshcmdVARSfLoop
|
||||
call _NewLine
|
||||
jp Fin
|
||||
|
|
|
|||
Loading…
Reference in New Issue