SHARE
TWEET

Untitled

a guest Dec 9th, 2018 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     LJMP START
  2.     ORG 100H
  3.    
  4. START:
  5.     LCALL LCD_CLR
  6.    
  7.     CLR     C
  8.    
  9.     LCALL WAIT_KEY
  10.     MOV     B, #1
  11.     MUL     AB
  12.     MOV     R0,A      ; w R0 zbiera się cała suma peselu
  13.     LCALL WRITE_HEX
  14.     CLR     C
  15.    
  16.     LCALL WAIT_KEY
  17.  
  18.     MOV     B, #3
  19.     MUL     AB
  20.     MOV     B, R0        ;sciagam zawartosc R0 do B
  21.     ADD     A,B          ;dodaje aktualna liczbe do tego co bylo juz w R0
  22.     MOV     R0, A        ;wrzucam sume do R0 itd
  23.    
  24.     LCALL WRITE_HEX
  25.    
  26.     CLR     C
  27.     LCALL WAIT_KEY
  28.  
  29.     MOV     B, #7
  30.     MUL     AB
  31.     MOV     B, R0
  32.     ADD     A,B
  33.     MOV     R0, A
  34.     LCALL WRITE_HEX
  35.    
  36.     CLR     C
  37.     LCALL WAIT_KEY
  38.  
  39.     MOV     B, #9
  40.     MUL     AB
  41.     MOV     B, R0
  42.     ADD     A,B
  43.     MOV     R0, A
  44.     LCALL WRITE_HEX
  45.    
  46.     CLR     C
  47.     LCALL WAIT_KEY
  48.  
  49.     MOV     B, #1
  50.     MUL     AB
  51.     MOV     B, R0
  52.     ADD     A,B
  53.     MOV     R0, A
  54.     LCALL WRITE_HEX
  55.    
  56.     CLR     C
  57.     LCALL WAIT_KEY
  58.  
  59.     MOV     B, #3
  60.     MUL     AB
  61.     MOV     B, R0
  62.     ADD     A,B
  63.     MOV     R0, A
  64.     LCALL WRITE_HEX
  65.    
  66.     CLR     C
  67.     LCALL WAIT_KEY
  68.  
  69.     MOV     B, #7
  70.     MUL     AB
  71.     MOV     B, R0
  72.     ADD     A,B
  73.     MOV     R0, A
  74.     LCALL WRITE_HEX
  75.    
  76.     CLR     C
  77.     LCALL WAIT_KEY
  78.  
  79.     MOV     B, #9
  80.     MUL     AB
  81.     MOV     B, R0
  82.     ADD     A,B
  83.     MOV     R0, A
  84.     LCALL WRITE_HEX
  85.    
  86.     CLR     C
  87.     LCALL WAIT_KEY
  88.  
  89.     MOV     B, #1
  90.     MUL     AB
  91.     MOV     B, R0
  92.     ADD     A,B
  93.     MOV     R0, A
  94.     LCALL WRITE_HEX
  95.    
  96.     CLR     C
  97.     LCALL WAIT_KEY
  98.  
  99.     MOV     B, #3
  100.     MUL     AB
  101.     MOV     B, R0
  102.     ADD     A,B
  103.     MOV     R0, A
  104.     LCALL WRITE_HEX
  105.    
  106.     CLR     C
  107.     LCALL WAIT_KEY
  108.  
  109.     MOV     B, #1
  110.     MUL     AB
  111.     MOV     B, R0
  112.     ADD     A,B
  113.     MOV     R0, A
  114.     LCALL WRITE_HEX
  115.    
  116.     MOV B,#10
  117.     DIV AB
  118.     MOV A,B
  119.     JNZ     wyswietlblad
  120.    
  121.     MOV A,#0
  122.     LCALL WRITE_HEX
  123.     LCALL DELAY_100MS
  124.     LJMP START
  125.    
  126. wyswietlblad:
  127.  
  128.     MOV A,#1
  129.     LCALL WRITE_HEX
  130.    
  131.     LCALL DELAY_100MS
  132.     LJMP START
  133.    
  134.     NOP
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