开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
grputil.asm
资源名称：DOS系统的源代码.rar　[点击查看]
上传用户：xiaoan1112
上传日期：2013-04-11
资源大小：19621k
文件大小：3k
源码类别：

操作系统开发

开发平台：

Visual C++

grputil.asm：源码内容
  1. TITLE GRPUTIL - iAPX 88/86 GRAPHICS UTILITY ROUTINES
  2. ;***
  3. ; GRPUTIL - iAPX 88/86 GRAPHICS UTILITY ROUTINES
  4. ;
  5. ; Copyright <C> 1986, Microsoft Corporation
  6. ;
  7. ;Purpose:
  8. ; Graphics utility routines.
  9. ;
  10. ;******************************************************************************
  11. INCLUDE switch.inc
  12. INCLUDE rmacros.inc ; Runtime Macro Defintions
  14. USESEG _BSS
  15. USESEG GR_TEXT 
  17. INCLUDE seg.inc  ;segment definitions
  19. sBegin _BSS
  20. ;
  21. ;****************************************************************************
  22. ; External low-level function vectors
  23. ;****************************************************************************
  24. ;
  25. externW b$SetAttr
  27. externW B$VXMIN ;defined in GWDATA.ASM
  28. externW B$VXMAX ;defined in GWDATA.ASM
  29. externW B$VYMIN ;defined in GWDATA.ASM
  30. externW B$VYMAX ;defined in GWDATA.ASM
  32. sEnd _BSS
  34. assumes CS,GR_TEXT
  35. sBegin GR_TEXT 
  37. ;low-level routines:
  39. externNP B$GETFBC
  41. externNP B$ERR_FC
  43. PAGE
  45. SUBTTL GRAPHICS SUPPORT ROUTINES
  47. ;***
  48. ;
  49. ;B$CLRATR PROCESS COLOR ATTRIBUTE FOR GRAPHICS STATEMENTS
  50. ;
  51. ;Purpose:
  52. ;    This routine processes a color attribute for several graphics
  53. ;    statements. If the color attribute is defaulted, the default color
  54. ;    is put into AL by a call to the OEM dependent routine B$GETFBC.  Next
  55. ;    OEM routine SetAttr is called to set the current graphics attribute
  56. ;    to the specified color.  If the color was invalid, SetAttr returns
  57. ;    carry set and this routine issues a function call error.
  58. ;
  59. ;Entry:
  60. ; AL=color attribute or AX=-1 if default color
  61. ;
  62. ;Exit:
  63. ; AL=valid color attribute
  64. ;
  65. ;Modifies:
  66. ; AX,BX
  67. ;
  68. ;****
  69. cProc B$CLRATR,<PUBLIC,NEAR>
  70. cBegin
  71. ;PROCESS COLOR ATTRIBUTE
  72. CMP AX,-1 ;IS DEFAULT COLOR NEEDED?
  73. JNE SET_COLOR ;NO: USE SPECIFIED VALUE
  74. STC ;SET CARRY
  75. CALL B$GETFBC  ;GET FG/BG COLORS
  76. SET_COLOR:
  77. CALL [b$SetAttr] ;SET ATTRIBUTE
  78. JC FC_ERROR ;ABORT IF INVALID COLOR
  79. cEnd
  81. FC_ERROR:
  82. JMP B$ERR_FC ;ILLEGAL FUNCTION CALL
  84. SUBTTL COMPILER INTERFACE ROUTINES
  85. PAGE
  87. ;***
  88. ;
  89. ;B$INVIEW     Determine whether (x,y) coordinates within viewport boundaries
  90. ;
  91. ;Purpose:
  92. ;   Test the (x,y) coordinates in (CX,DX) against the current viewport
  93. ;   boundaries. The carry flag is cleared if either
  94. ;   coordinate was outside the viewport boundary.
  95. ;
  96. ;Entry:
  97. ;   CX=x coordinate DX=y coordinate
  98. ;
  99. ;Exit:
  100. ; carry set if no coords changed, clear if either coord changed
  101. ;
  102. ;Modifies: none
  103. ;
  104. ;****
  105. cProc B$INVIEW,<PUBLIC,NEAR>
  106. cBegin
  107. ;See if x is in VIEW
  108. CMP CX,B$VXMIN ;Is it off the left of the viewport
  109. JL OUTVIEW  ;Yes, out of VIEW
  110. CMP CX,B$VXMAX ;Is it off the right of the viewport
  111. JG OUTVIEW  ;Yes, out of VIEW
  112. CMP DX,B$VYMIN ;Is it off the top of the viewport
  113. JL OUTVIEW  ;Yes, out of VIEW
  114. CMP DX,B$VYMAX ;Is it off the bottom of the viewport
  115. JG OUTVIEW  ;Yes, out of VIEW
  116. STC ;no, is in VIEW
  117. RET
  118. OUTVIEW:
  119. CLC
  120. RET
  121. cEnd nogen
  123. sEnd GR_TEXT 
  124. END