API tools faq
paste
Advertisement
Tenac451

lauflicht

Tenac451
Oct 14th, 2020 (edited)
2,866
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MIX Assembler 0.83 KB | None | 0 0
raw download clone embed print report
  1. cseg at 8100h
  2.    
  3. M0:     mov A, 090h
  4.         ANL A, #00000001b
  5.         jz M1
  6.         sjmp M2
  7.  
  8. M1:     mov 0FAh, #00000001b
  9.         ACALL WAIT     
  10.         mov 0FAh, #00000010b
  11.         ACALL WAIT
  12.         mov 0FAh, #00000100b
  13.         ACALL WAIT
  14.         mov 0FAh, #00001000b
  15.         ACALL WAIT
  16.         mov 0FAh, #00010000b
  17.         ACALL WAIT
  18.         mov 0FAh, #00100000b
  19.         ACALL WAIT
  20.         mov 0FAh, #01000000b
  21.         ACALL WAIT
  22.         mov 0FAh, #10000000b
  23.         ACALL WAIT
  24.         sjmp M0
  25.  
  26. M2:     mov 0FAh, #10000000b
  27.         ACALL WAIT     
  28.         mov 0FAh, #01000000b
  29.         ACALL WAIT
  30.         mov 0FAh, #00100000b
  31.         ACALL WAIT
  32.         mov 0FAh, #00010000b
  33.         ACALL WAIT
  34.         mov 0FAh, #00001000b
  35.         ACALL WAIT
  36.         mov 0FAh, #00000100b
  37.         ACALL WAIT
  38.         mov 0FAh, #00000010b
  39.         ACALL WAIT
  40.         mov 0FAh, #00000001b
  41.         ACALL WAIT
  42.         sjmp M0
  43.  
  44. WAIT:   mov A, #0FFh       
  45. W0:     jz WFIN    
  46.         mov  R1, #0FFh 
  47. W2:     nop
  48.         nop
  49.         djnz R1, W2
  50.         dec A
  51.         sjmp W0
  52. WFIN:   ret
  53.  
  54.  
  55. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!