testpeekpoke.wb 344 B

1234567891011
  1. 100 a=varptr(A)
  2. 110 s=varseg(A)
  3. 120 debug "変数Aはオフセット";a;",セグメント";s
  4. 130 A=0x1234
  5. 140 defseg=s
  6. 150 if peek(a) <> 0x34 then debug "peekが異常です(!)":end
  7. 160 if peek(a+1) <> 0x12 then debug "peekが異常です(2)":end
  8. 170 poke a,0xfe
  9. 180 poke a+1,0xdc
  10. 190 if A <> 0xdcfe then debug "pokeが異常です":end
  11. 900 debug "テスト完了"