SHARE
TWEET

Untitled

a guest Apr 23rd, 2019 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. INIT:   MOV DPTR, #TAB; nacteni adresy zacatku tabulky
  2.     MOV P1,#10000000B ;nastaveni displeje na nulu, nemela by byt prvni jednicka?
  3.     MOV R0, #0H ; aktualni pozice v tabulce
  4. ZAC:    JNB P3.0, plus ;pokud zmacknes, skoc
  5.     JNB P3.6, minus
  6.     JMP ZAC ;a znova
  7.  
  8. plus:   MOV A, R0 ; presun R0 do ACC
  9.     INC A ; zvyseni pozice o 1
  10.     CJNE A, #6, SKOK
  11.     MOV A, #0H
  12. SKOK:   MOV R0, A ; zapis pozice zpatky do registru
  13.     JMP zobraz
  14.  
  15. minus:  MOV A, R0
  16.     CJNE A, #0, SKOK1
  17.     JMP DAL
  18. SKOK1:  DEC A
  19. DAL:    MOV R0, A
  20.     JMP zobraz
  21.  
  22. zobraz:
  23.     MOVC A,@A+DPTR ; presun dat z tabulky na adrese A + zacatek tabulky
  24.     MOV P1, A ; presun ACC na port
  25.     CALL TICHO1 ; zpozdeni kvuli tlacitku
  26.     JMP ZAC ; a zase znova
  27.  
  28. TAB:    DB 10000000B ; sem si muzes dopsat cisla az do 9
  29.     DB 10111001B
  30.     DB 01100100B
  31.     DB 01110000B
  32.     DB 01011001B
  33.     DB 01010010B
  34.  
  35. TICHO1:     ; 2,004 sec
  36.         MOV R3, #15
  37. HOP6:       MOV R4, #255
  38. HOP5:       CALL PAUZA1
  39.         DJNZ R4, HOP5
  40.         DJNZ R3, HOP6
  41.         RET
  42.  
  43. PAUZA1:     ; 260us
  44.         MOV R7, #127
  45. HOP1:       DJNZ R7, HOP1
  46.         NOP
  47.             RET    
  48. END
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top