home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / lib4a86 / lib / dosoldio.lib < prev    next >
Text File  |  1992-02-14  |  1KB  |  133 lines
  1. #IF !LIB4A86
  2. #ELSE
  3. #IF !INTERN_LIB4A86_S
  4. INTERN_LIB4A86_S EQU 01
  5. JMP START
  6. #ENDIF
  7. #ENDIF
  8. OLDDOSFLUSHBUFFER MACRO
  9. MOV AX,0C00H
  10. INT 021H
  11. #EM
  12. OLDDOSKEYPRESSED MACRO
  13. MOV AH,0BH
  14. INT 021H
  15. OR AL,AL
  16. #EM
  17. OLDDOSREADSTRING:
  18. OR SI,SI
  19. JNZ >L1
  20. STC
  21. RET
  22. L1:
  23. PUSH DX
  24. MOV DX,SI
  25. DEC DX
  26. XCHG AL,DS:[SI-1]
  27. PUSH AX
  28. MOV AH,0AH
  29. INT 021H
  30. POP DX
  31. MOV [SI-1],DL
  32. POP DX
  33. RET
  34. OLDDOSREADKEY:
  35. MOV AH,07H
  36. JMP >L1
  37. OLDDOSREADCHAR:
  38. MOV AH,01H
  39. L1:
  40. PUSH BX
  41. PUSH AX
  42. INT 021H
  43. MOV BL,AL
  44. XOR BH,BH
  45. POP AX
  46. OR BL,BL
  47. JNE >L1
  48. INT 021H
  49. MOV BH,AL
  50. L1:
  51. MOV AX,BX
  52. POP BX
  53. RET
  54. OLDDOSWRITELNCHAR:
  55. XOR AH,AH
  56. INC AH
  57. JMP >L1
  58. OLDDOSWRITECHAR:
  59. XOR AH,AH
  60. L1:
  61. PUSH DX,AX
  62. MOV DL,AL
  63. MOV AH,02
  64. INT 021H
  65. POP AX
  66. OR AH,AH
  67. JE >L9
  68. L0:
  69. MOV DL,0DH
  70. MOV AH,02H
  71. INT 021H
  72. MOV DL,0AH
  73. MOV AH,02H
  74. INT 021H
  75. L9:
  76. POP DX
  77. RET
  78. OLDDOSWRITELNSTRING:
  79. MOV AL,01
  80. JMP >L1
  81. OLDDOSWRITESTRING:
  82. MOV AL,0
  83. L1:
  84. PUSH DX,SI,AX
  85. CLD
  86. LODSB
  87. MOV DX,SI
  88. XOR AH,AH
  89. ADD SI,AX
  90. MOV AL,'$'
  91. XCHG AL,B[SI]
  92. PUSH AX
  93. MOV AH,09H
  94. INT 021H
  95. POP AX
  96. MOV B[SI],AL
  97. POP AX,SI
  98. OR AL,AL
  99. JNE L0
  100. L9:
  101. POP DX
  102. RET
  103. #IF !INTERN_CMARK0
  104. INTERN_CMARK0 EQU 01H
  105. INTERN_CMARK1:
  106. PUSH BP
  107. MOV BP,SP
  108. MOV BX,06H
  109. SUB CH,[BP+SI]
  110. SUB AH,[BX+SI]
  111. DEC SP
  112. DEC CX
  113. INC DX
  114. XOR AL,041H
  115. CMP B[02820H],DH
  116. INC BX
  117. SUB W[BX+SI],SP
  118. INC DX
  119. CS AND B[BP+DI+043H],DL
  120. DEC AX
  121. INC BP
  122. DEC BP
  123. DEC BP
  124. INC BP
  125. PUSH DX
  126. AND B[BP+SI],CH
  127. SUB CH,[BP+SI]
  128. POP DX
  129. MOV SP,BP
  130. POP BP
  131. RET
  132. #ENDIF
  133.