Module/デバッグ用モジュール

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
-
|
!
 
 
-
|
-
|
!
 
 
 
 
 
 
 
 

#ifndef __MODULE_DEBUG__
#define __MODULE_DEBUG__
 
;----------------------------------------------------------
; モジュール定義
 
#module "mod_debug"
 
;-------------------------------------------------------------------------------
; debug_var_dump v, n, bResult
;   v       : ダンプ表示する変数
;   n       : ダンプするバイト数
;           : (変数の大きさ以上の値を指定するとエラー20が発生する)
;   bResult : 1 にするとmesで出力せず refstr に代入する
#deffunc debug_var_dump var v, int n, int bResult
    s = ""
    addr = 0
    repeat n / 16 + 1
        d = ""
        e = ""
        if n <= addr : break
        repeat 16
            if addr < n {
                c = peek(v, addr)
                d += strf("%02X ", c)
                if 32 <= c : e += strf("%c", c) : else : e += "."
            } else {
                d += "-- " : e += " "
            }
            addr++
        loop
        if bResult {
            s += strf("%04X:", cnt * 16) + d + ": " + e + "\n"
        } else {
            mes strf("%04X:", cnt * 16) + d + ": " + e
        }
    loop
    if bResult : return s
    mes ""
    return
 
#global
 
#endif