QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-03 11:11:20 +00:00
Code Issues Releases Wiki Activity

Add (unused) set address command

Browse source
This commit is contained in:
Luke Ceddia 2021-07-31 01:11:19 +10:00
parent c766fbc989
commit 662afbcd68
No known key found for this signature in database
GPG key ID: 319344384A0759B0
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
internal/support/vwatch/vwatch.bm
View file

@ -242,6 +242,12 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
_MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET
vw_cmd$ = "address read:" + MKL$(vw_tempIndex) + MKI$(vw_sequence) + vw_buf$
GOSUB SendCommand
CASE "set address"
vw_varSize = CVL(LEFT$(vw_value$, 4))
vw_address = _CV(_OFFSET, MID$(vw_value$, 5, LEN(vw_address)))
vw_buf$ = MID$(vw_value$, 4 + LEN(vw_address) + 1)
vw_m = _MEM(vw_address, vw_varSize)
_MEMPUT vw_m, vw_m.OFFSET, vw_buf$
CASE "current sub"
vw_cmd$ = "current sub:" + LEFT$(vwatch_stack(vwatch_sublevel), INSTR(vwatch_stack(vwatch_sublevel), ",") - 1)
GOSUB SendCommand