home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / lib4a86 / lib / clock.lib < prev    next >
Text File  |  1992-02-02  |  938b  |  75 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. CLOCK$_BUFFER STRUC [BX]
  9. CLOCK$_TAGE DW ?
  10. CLOCK$_MINUTEN DB ?
  11. CLOCK$_STUNDEN DB ?
  12. CLOCK$_SEK100 DB ?
  13. CLOCK$_SEKUNDEN DB ?
  14. ENDS
  15. CLOCKDEVICENAME DB 6,'CLOCK$',0
  16. READCLOCKDEVICE:
  17. PUSH BX
  18. MOV BH,03FH
  19. JMP >L1
  20. WRITECLOCKDEVICE:
  21. PUSH BX
  22. MOV BH,040H
  23. L1:
  24. PUSH DS,DX
  25. MOV DS,CS
  26. MOV DX,OFFSET CLOCKDEVICENAME+1
  27. MOV AX,03D02H
  28. INT 021H
  29. POP DX,DS
  30. JC >L8
  31. XCHG AX,BX
  32. PUSH CX
  33. MOV CX,01H
  34. INT 021H
  35. POP CX
  36. PUSHF
  37. PUSH AX
  38. MOV AH,03EH
  39. INT 021H
  40. POP AX
  41. POPF
  42. L8:
  43. POP BX
  44. RET
  45. #IF !INTERN_CMARK0
  46. INTERN_CMARK0 EQU 01H
  47. INTERN_CMARK1:
  48. PUSH BP
  49. MOV BP,SP
  50. MOV BX,06H
  51. SUB CH,[BP+SI]
  52. SUB AH,[BX+SI]
  53. DEC SP
  54. DEC CX
  55. INC DX
  56. XOR AL,041H
  57. CMP B[02820H],DH
  58. INC BX
  59. SUB W[BX+SI],SP
  60. INC DX
  61. CS AND B[BP+DI+043H],DL
  62. DEC AX
  63. INC BP
  64. DEC BP
  65. DEC BP
  66. INC BP
  67. PUSH DX
  68. AND B[BP+SI],CH
  69. SUB CH,[BP+SI]
  70. POP DX
  71. MOV SP,BP
  72. POP BP
  73. RET
  74. #ENDIF
  75.