b906d49ca1
- 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
12 lines
344 B
Plaintext
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 "テスト完了"
|