home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / debug / Debugger / PowerVisor / S / pv / PrintMode.pv < prev    next >
Encoding:
Text File  |  1992-09-23  |  2.3 KB  |  135 lines
  1. /* Dump the current mode settings */
  2.  
  3. options results
  4.  
  5. 'unhide'
  6. 'void (mode>>0)&3'
  7. a=result
  8. 'print "Memory mode      : "'
  9. if a=0 then 'print Byte'
  10. else if a=1 then 'print Long'
  11. else if a=2 then 'print Word'
  12. else 'print ???'
  13. 'print \n'
  14.  
  15. 'void (mode>>2)&3'
  16. a=result
  17. 'print "Int display mode : "'
  18. if a=0 then 'print Hex'
  19. else if a=1 then 'print Dec'
  20. else if a=2 then 'print HexDec'
  21. else 'print ???'
  22. 'print \n'
  23.  
  24. 'void (mode>>4)&1'
  25. a=result
  26. 'print "Interlace mode   : "'
  27. if a=0 then 'print NoLace'
  28. else 'print Lace'
  29. 'print \n'
  30.  
  31. 'void (mode>>5)&1'
  32. a=result
  33. 'print "Super mode       : "'
  34. if a=0 then 'print NoSuper'
  35. else 'print Super'
  36. 'print \n'
  37.  
  38. 'void (mode>>6)&3'
  39. a=result
  40. 'print "Feedback mode    : "'
  41. if a=0 then 'print NoFb'
  42. else if a=1 then 'print Fb'
  43. else 'print ???'
  44. 'print \n'
  45.  
  46. 'void (mode>>8)&1'
  47. a=result
  48. 'print "More mode        : "'
  49. if a=0 then 'print NoMore'
  50. else 'print More'
  51. 'print \n'
  52.  
  53. 'void (mode>>9)&1'
  54. a=result
  55. 'print "List mode        : "'
  56. if a=0 then 'print NoAuto'
  57. else 'print Auto'
  58. 'print \n'
  59.  
  60. 'void (mode>>10)&7'
  61. a=result
  62. 'print "Screen mode      : "'
  63. if a=0 then 'print Default'
  64. else if a=1 then 'print Pal'
  65. else if a=2 then 'print Ntsc'
  66. else if a=3 then 'print Vga'
  67. else if a=4 then 'print A2024'
  68. else if a=5 then 'print Euro72'
  69. else if a=6 then 'print Euro36'
  70. else 'print Sup72'
  71. 'print \n'
  72.  
  73. 'void (mode>>13)&1'
  74. a=result
  75. 'print "Show hex mode    : "'
  76. if a=0 then 'print NoSHex'
  77. else 'print SHex'
  78. 'print \n'
  79.  
  80. 'void (mode>>14)&1'
  81. a=result
  82. 'print "Space mode       : "'
  83. if a=0 then 'print NoSpace'
  84. else 'print Space'
  85. 'print \n'
  86.  
  87. 'void (mode>>15)&1'
  88. a=result
  89. 'print "Size gadget mode : "'
  90. if a=0 then 'print NoSBottom'
  91. else 'print SBottom'
  92. 'print \n'
  93.  
  94. 'void (mode>>16)&1'
  95. a=result
  96. 'print "Lone space mode  : "'
  97. if a=0 then 'print NoLoneSpc'
  98. else 'print LoneSpc'
  99. 'print \n'
  100.  
  101. 'void (mode>>17)&1'
  102. a=result
  103. 'print "Fancy mode       : "'
  104. if a=0 then 'print NoFancy'
  105. else 'print Fancy'
  106. 'print \n'
  107.  
  108. 'void (mode>>18)&1'
  109. a=result
  110. 'print "Patch mode       : "'
  111. if a=0 then 'print NoPatch'
  112. else 'print Patch'
  113. 'print \n'
  114.  
  115. 'void (mode>>19)&1'
  116. a=result
  117. 'print "Intui Win mode   : "'
  118. if a=0 then 'print NoIntui'
  119. else 'print Intui'
  120. 'print \n'
  121.  
  122. 'void (mode>>20)&1'
  123. a=result
  124. 'print "SBar mode        : "'
  125. if a=0 then 'print NoSBar'
  126. else 'print SBar'
  127. 'print \n'
  128.  
  129. 'void (mode>>21)&1'
  130. a=result
  131. 'print "Dirty mode       : "'
  132. if a=0 then 'print NoDirty'
  133. else 'print Dirty'
  134. 'print \n'
  135.