home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / os2 / gtak212b.zip / SOURCE.ZIP / OS2-ST01 / debug.inc < prev    next >
Text File  |  1991-07-21  |  1KB  |  86 lines
  1.     .xlist
  2.  
  3. StartData
  4.  
  5.     ifndef debug_def
  6.     extrn    tracelvl:byte
  7.     endif
  8.  
  9. EndData
  10.  
  11. StartCode
  12.  
  13.     ifndef debug_def
  14.     extrn    out_char:near
  15.     extrn    out_text:near
  16.     extrn    out_byte:near
  17.     endif
  18.  
  19. outtext        macro    level, text
  20.     local    l1
  21.     if    trace
  22.     cmp    tracelvl, level
  23.     jb    short l1
  24.     call    out_text
  25.     irp    param, <text>
  26.     db    param
  27.     endm
  28.     db    0
  29. l1:
  30.     endif
  31.         endm
  32.  
  33. outchar        macro    level, char
  34.     local    l1
  35.     if    trace
  36.     cmp    tracelvl, level
  37.     jb    short l1
  38.         push    ax
  39.     mov    al, char
  40.     call    out_char
  41.     pop    ax
  42. l1:
  43.     endif
  44.         endm
  45.  
  46. outbyte        macro    level, byte
  47.     local    l1
  48.     if    trace
  49.     cmp    tracelvl, level
  50.     jb    short l1
  51.         push    ax
  52.     mov    al, byte
  53.     call    out_byte
  54.     pop    ax
  55. l1:
  56.     endif
  57.         endm
  58.  
  59. outword        macro    level, word
  60.     local    l1
  61.     if    trace
  62.     cmp    tracelvl, level
  63.     jb    short l1
  64.     push    ax
  65.     mov    ax, word
  66.     push    ax
  67.     mov    al, ah
  68.     call    out_byte
  69.     pop    ax
  70.     call    out_byte
  71.     pop    ax
  72. l1:
  73.     endif
  74.         endm
  75.  
  76. display        macro    x, y
  77.     mov    al, x
  78.     not    al
  79.     mov    dx, 3BCh
  80.     out    dx, al
  81.         endm
  82.  
  83. EndCode
  84.  
  85.     .list
  86.