LED5-5.ASM
Upload User: qzkddhg
Upload Date: 2020-11-29
Package Size: 1k
Code Size: 2k
Category:

SCM

Development Platform:

HTML/CSS

  1. WIDTH  EQU  7500
  2. SOFT0_COM  EQU  00011000B
  3. HSO0_COM  EQU  00000000B
  4. CSEG AT 200AH
  5. DCW SOFT_TIMER
  6. CSEG AT 2034H
  7. HSI_TIME EQU 04H
  8. DCW HI4_END_PTS_ISR
  9. CSEG AT 2054H
  10. DCW HI4PTSCNT
  11. RSEG AT 0E8H
  12. HI4PTSCNT: DSB 1
  13. HI4PTSCON: DSB 1
  14. HI4PTSDST: DSW 1
  15. ;HI4RES:   DSW 1
  16. HI4PTSBLK: DSB 1
  17. FLAG EQU 0E7H
  18. HI4_TABL EQU 8000H
  19. CSEG AT 2030H
  20. DCW TI_END_PTS_SR
  21. CSEG AT 2050H
  22. DCW TIPTSCNT
  23. RSEG AT 0F0H
  24. TIPTSCNT:  DSB 1
  25. TIPTSCON:  DSB 1
  26. TIPTSSRC:  DSW 1
  27. TIPTSDST:  DSW 1
  28. CSEG AT 2080H
  29. LD SP,#0E0H
  30. ;LDB IOC1,#00010000B
  31. ;LDB IOC2,#1
  32. LDB TIPTSCON,#10001010B
  33. LD TIPTSSRC,#BX
  34. LD TIPTSDST,#4000H
  35. LDB TIPTSCNT,#1
  36. LDB INT_MASK1,#01H
  37. LDB WSR,#1
  38. LD PTSSEL,#0100H
  39. CLRB WSR
  40. CLRB INT_PEND
  41. LDB INT_MASK,#20H
  42. EI
  43. LDB AH,#HSO0_COM
  44. LDB HSO_COMMAND,AH
  45. ADD HSO_TIME,T1,#2
  46. LDB HI4PTSCON,#01101010B
  47. LD  HI4PTSDST,#HI4_TABL
  48. LDB HI4PTSBLK,#1H
  49. LDB HI4PTSCNT,#3
  50. REFLUSH:LD 0,HSI_TIME
  51. NOP
  52. NOP
  53. JBS IOS1,7,REFLUSH
  54. LDB HSI_MODE,#00000011B
  55. LDB IOC0,#00000101B
  56. LDB INT_MASK,#00100100B
  57. LDB IOC1,#0
  58. LDB WSR,#1
  59. LD PTSSEL,0004H
  60. CLRB WSR
  61. EPTS
  62. EI
  63. WAIT: JBC HSI_STATUS,3,WAIT
  64. LD BX,T1
  65. LDB INT_PEND1,#1
  66. LOOP:SJMP LOOP
  67. TI_END_PTS_SR:
  68. PUSHA
  69. LDB AL,#SOFT0_COM
  70. LDB HSO_COMMAND,AL
  71. ADD HSO_TIME,T1,#WIDTH
  72. WAIT1:SJMP WAIT1
  73. SOFT_TIMER:
  74. PUSHF
  75. JBC IOS1,0,RETURN
  76. XORB AH,#20H
  77. LDB HSO_COMMAND,AH
  78. ADD HSO_TIME,T1,#2
  79. NOP
  80. NOP
  81. LDB HSO_COMMAND,AL
  82. ADD HSO_TIME,T1,#WIDTH
  83. RETURN:POPF
  84. RET
  85. POPA
  86. RET
  87. HI4_END_PTS_ISR:
  88. PUSHA
  89. ;LD AX,8002H
  90. ;LD BX,8006H
  91. ;LD CX,800AH
  92. ;SUB DX,AX,CX
  93. ;SUB AX,BX
  94. ;MUL AX
  95. ;DIV AX,DX
  96. ;MUL DX,#8
  97. ;DIV DX,#300
  98. ;STB DX,4010H
  99. ;STB AX,4012H
  100. POPA
  101. RET
  102. END