wonbe/testpeekpoke.wb
Kawamata Akira b906d49ca1 - Hirotaka JOE Ohkubo's difference (0.04j4) can be merged with play statement (sound.il required)
- Consider? As the keyword debug
 - Allow goto to be omitted if immediately after it is a decimal integer value
 - Addition of machine language related functions
 - Add tron / troff command (display execution line number)

Version 0.05 - from wonbe005.lzh
2000-12-10 12:00:00 +09:00

12 lines
344 B
Plaintext

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