WW.ASM
Upload User: txg3158
Upload Date: 2022-08-03
Package Size: 34k
Code Size: 2k
Development Platform:

HTML/CSS

  1. ORG 0000H
  2. LJMP START
  3. ORG 0003H
  4. RETI
  5. ORG 000BH
  6. RETI
  7. ORG 0013H
  8. RETI
  9. ORG 001BH
  10. RETI
  11. ORG 0023H
  12. RETI
  13. ORG 002BH
  14. RETI
  15. CLEARMEMIO:CLR A
  16.            MOV P2,A
  17.            MOV R0,#70H
  18.            MOV R2,#0CH
  19. LOOPMEM:   MOV @R0,A
  20.            INC R0
  21.            DJNZ R2,LOOPMEM
  22.            MOV A,#0FFH
  23.            MOV P0,A
  24.            MOV P1,A
  25.            MOV P3,A
  26.            RET
  27. START:     LCALL CLEARMEMIO
  28. MAIN:
  29.            LCALL TEST
  30.            lcall DISPLAY
  31.            AJMP MAIN
  32. DISPLAY:   ;MOV R0,#70H
  33. DISLOOP1:  MOV A,@r0
  34.            MOV B,#100
  35.            DIV AB
  36.            MOV 7AH,A
  37.            MOV A,#10
  38.            XCH A,B
  39.            DIV AB
  40.            MOV 79H,A
  41.            MOV 78H,B
  42. DISLOOP2:  LCALL DISP
  43. DISP:      MOV P1,#0FFH
  44.            MOV R1,#78H
  45.            MOV A,@R1
  46.            MOV DPTR,#TAB
  47.            MOVC A,@A+DPTR
  48.            CLR P3.1
  49.            CLR P3.2
  50.            MOV P1,A
  51.            SETB P3.0
  52.            LCALL DL1MS
  53.            INC R1
  54.            MOV A,@R1
  55.            MOV DPTR,#TAB
  56.            MOVC A,@A+DPTR
  57.           CLR P3.0
  58.            MOV P1,A
  59.           SETB P3.1
  60.             LCALL DL1MS
  61.            INC R1
  62.            MOV A,@R1
  63.            MOV DPTR,#TAB
  64.            MOVC A,@A+DPTR
  65.            CLR P3.1
  66.            MOV P1,A
  67.            SETB P3.2
  68.             LCALL DL1MS
  69.             SJMP TEST1
  70.             RET
  71. TAB:       DB 0C0H,0F9H 0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH
  72. DL1MS:     MOV R6,#014H
  73. DL1:       MOV R7,#019H
  74. DL2:       DJNZ R7,dl2
  75.            DJNZ R6,dl1
  76.            RET
  77. TEST:      CLR A
  78.            MOV P2,A
  79.            ;MOV A,#00H
  80.            ;MOV P2,A
  81.    TEST1:  MOV R0,#70H
  82.            LCALL TESTART
  83.            mov r7,#0ah
  84. delay:     nop
  85.            nop
  86.            nop
  87.            djnz r7,delay
  88.            ljmp movd
  89. TESTART:   SETB P2.4
  90.            NOP
  91.            NOP
  92.            CLR P2.4
  93.            NOP
  94.            NOP
  95.            NOP
  96.            NOP
  97.            ;RET
  98. MOVD:
  99.              MOV A,P0
  100.            MOV @R0,A
  101.            RET
  102.            END