home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s038 / 11.ddi / SSCOPE.LIF / SS.MAC < prev    next >
Encoding:
Text File  |  1992-07-02  |  3.3 KB  |  183 lines
  1. macro set_base_16 () {
  2.     echo off
  3.     set base = 16
  4.     echo on
  5. }
  6.  
  7. macro set_base_10 () {
  8.     echo off
  9.     set base = 10
  10.     echo on
  11. }
  12.  
  13. macro bptimeout (p1, p2) {
  14.     _osa_ "bptimeout %p1 %p2"    /*  p1 should be "=" */
  15. }
  16.  
  17. macro task (token) {
  18.     set_base_16
  19.     if (("%token" == "all") || ("%token" == "ALL"))
  20.         events 0xffff
  21.     else
  22.         events %token
  23.     set_base_10
  24. }
  25.  
  26. macro resume (task) {
  27.     set_base_16
  28.     _osa_ "resume %%" %task
  29.     set_base_10
  30. }
  31.  
  32. macro suspend (task) {
  33.     set_base_16
  34.     _osa_ "suspend %%" %task
  35.     set_base_10
  36. }
  37.  
  38. macro bpscope (task_job_global) {
  39.     if ("%task_job_global" == "")
  40.         _osa_ "bpscope"
  41.     else
  42.         _osa_ "bpscope %task_job_global"
  43. }
  44.  
  45. macro loadsegs (resultseg, jobtoken, filename) {
  46.     set_base_16
  47.     if ("%jobtoken" == "")
  48.         _osa_ "loadsegs"
  49.     else {
  50.         _osa_ "loadsegs %% %% %filename" %resultseg %jobtoken
  51.         load symbols %filename
  52.     }
  53.     set_base_10
  54. }
  55.  
  56. macro os (osacmd, param1, param2, param3) {
  57.     if ("%param1" == "")
  58.         _osa_ "%osacmd"
  59.     else if ("%param2" == "")
  60.         _osa_ "%osacmd %param1"
  61.     else if ("%param3" == "")
  62.         _osa_ "%osacmd %param1 %param2"
  63.     else
  64.         _osa_ "%osacmd %param1 %param2 %param3"
  65. }
  66.  
  67. macro vb (duib)    
  68. {
  69.     _osa_ "vb %duib"
  70. }
  71.  
  72. macro vc (pointer)   /* vc takes an optional address argument (seg:off) */
  73. {
  74.     if ( "%pointer" == "")
  75.         _osa_ "vc "
  76.     else
  77.         _osa_ "vc%%:%%" selectorof (%pointer) offsetof (%pointer)
  78. }
  79.  
  80. macro vd (job)        /* vd takes a symbol specifying a job token */
  81. {
  82.     set_base_16
  83.     _osa_ "vd0%%" %job
  84.     set_base_10
  85. }
  86.  
  87. macro vh ()
  88. {
  89.     _osa_ "vh "
  90. }
  91.  
  92.  
  93. macro vt (token)    /* vt takes a symbol specifying a token */
  94. {
  95.     set_base_16
  96.     _osa_ "vt0%%" %token
  97.     set_base_10
  98. }
  99.  
  100. macro vj (job)        /* vj takes an optional symbol specifying a job */
  101. {
  102.     if ("%job" == "")
  103.         _osa_ "vj "
  104.     else {
  105.         set_base_16
  106.         _osa_ "vj0%%" %job
  107.         set_base_10
  108.     }
  109. }
  110.  
  111. macro vk ()
  112. {
  113.     _osa_ "vk "
  114. }
  115.  
  116. macro vmf ()
  117. {
  118.     _osa_ "vmf "
  119. }
  120.  
  121. macro vmi (msgnum)
  122. {
  123.     _osa_ "vmi 0%%" %msgnum
  124. }
  125.  
  126. macro vmo (msgnum)
  127. {
  128.     _osa_ "vmo 0%%" %msgnum
  129. }
  130.  
  131. macro vo (token)    /* vo takes a symbol specifying a job or a job number */
  132. {
  133.     set_base_16
  134.     _osa_ "vo0%%" %token
  135.     set_base_10
  136. }
  137.  
  138. macro vr (seg)
  139. {
  140.     set_base_16
  141.     _osa_ "vr0%%" %seg
  142.     set_base_10
  143. }
  144.  
  145. macro vf ()
  146. {
  147.     _osa_ "vf "
  148. }
  149.  
  150. macro vs (count)    /* vs takes an optional count argument */
  151. {
  152.     if ("%count" == "")
  153.         _osa_ "vs "
  154.     else
  155.         _osa_ "vs%%" %count
  156. }
  157.  
  158. macro vu (task)        /* vu takes a symbol specifying a task or a task number */
  159. {
  160.     set_base_16
  161.     _osa_ "vu0%%" %task
  162.     set_base_10
  163. }
  164.  
  165. /*<p>*************************************************************************/
  166. /* stackview                                                                 */
  167. /*                                                                             */
  168. /*    SYNTAX:  stackview <count>                                               */
  169. /*                                                                             */
  170. /*    EXAMPLE:  stackview 5                                                    */
  171. /*                                                                             */
  172. /*    OVERVIEW:  Dumps count number of entries from the stack.                 */
  173. /*****************************************************************************/
  174. macro stackview (count)
  175. {
  176.     %count dump word at $ss:$sp
  177. }
  178.  
  179. macro clearline (linenum) {
  180.     byte %linenum length (sizeof %linenum) = 90h
  181. }
  182.  
  183.