Advertisement
Erzkoy

tablice asm

Jan 29th, 2020
505
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     .org 0x00
  2.     .nolist
  3.     .include "m16def.inc"
  4.     .list
  5.  
  6.     .org 0x0030
  7.     ldi R20,0xFF
  8.     out DDRB,R20
  9.     out PORTB,R20
  10.  
  11.     ldi R20,high(RAMEND)
  12.     out SPH,R20
  13.     ldi R20,low(RAMEND)
  14.     out SPL,R20
  15.  
  16.     ldi ZH,high(TAB<<1)
  17.     ldi ZL,low(TAB<<1)
  18.  
  19.     ldi R17,16
  20. E1: lpm R16,Z+
  21.     out PORTB,R16
  22.     call OP
  23.     dec R17
  24.     brne E1
  25.     mov R18,R16
  26. end:
  27.     out PORTB,R18
  28.     call OP2
  29.     ldi R16,0
  30.     out PORTB,R16
  31.     call OP2
  32.     jmp end
  33.  
  34. OP2:ldi R23,5
  35. O33:ldi R22,248
  36. O22:ldi R21,255
  37. O11:dec R21
  38.     brne O11
  39.     dec R22
  40.     brne O22
  41.     dec R23
  42.     brne O33
  43.     ret
  44.  
  45. OP: ldi R23,21
  46. O3: ldi R22,248
  47. O2: ldi R21,255
  48. O1: dec R21
  49.     brne O1
  50.     dec R22
  51.     brne O2
  52.     dec R23
  53.     nop
  54.     nop
  55.     nop
  56.     nop
  57.     nop
  58.     nop
  59.     nop
  60.     nop
  61.     nop
  62.     brne O3
  63.     nop
  64.     nop
  65.     nop
  66.     nop
  67.     ret
  68.  
  69. TAB:
  70. .db 0b01100001, 0b11110110, 0b11111110, 0b11100000 ;!987
  71. .db 0b10111110, 0b10110110, 0b01100110, 0b11110010 ; 6543
  72. .db 0b11011010, 0b01100000, 0b11111100, 0b00101010 ;210
  73. .db 0b00000010, 0b00101010, 0b00000010, 0b00111000
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement