35 lines
600 B
NASM
35 lines
600 B
NASM
fshcmdSET: .db "SET", 0
|
|
fshcmdSETo: .db $01
|
|
fshcmdSETu: .db "Sets a value in FSH memory", 0
|
|
fshcmdSETf:
|
|
xor a
|
|
ld (CurCol), a
|
|
ld hl, fshcmdSETfDIndex
|
|
call _PutS
|
|
ld hl, fshcmdSETfInputBuffer
|
|
ld de, 3
|
|
call inputnumstr
|
|
call strtob
|
|
ld de, 0
|
|
ld e, a
|
|
push de
|
|
call _NewLine
|
|
xor a
|
|
ld (CurCol), a
|
|
ld hl, fshcmdSETfDValue
|
|
call _PutS
|
|
ld hl, fshcmdSETfInputBuffer
|
|
ld de, 3
|
|
call inputnumstr
|
|
call strtob
|
|
pop de
|
|
ld hl, 0
|
|
ld l, a
|
|
call fshvarset
|
|
call _NewLine
|
|
jp Fin
|
|
|
|
fshcmdSETfInputBuffer: .db $00,$00,$00,$00
|
|
fshcmdSETfDIndex: .db "Index= ", 0
|
|
fshcmdSETfDValue: .db "Value= ", 0
|