Advertisement
yugorin

Untitled

Apr 19th, 2016
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.79 KB | None | 0 0
  1. 0 x = peek(53281)
  2. 20 x = x + 1
  3. 30 y = x
  4. 40 x = y + 1
  5. 50 a = y
  6. 60 x = x - 1
  7. 70 poke 53280, x
  8. 80 poke 53281, a
  9. 90 end
  10. ```
  11.  
  12. .C:c000 AE 21 D0 LDX $D021 //// ex. x=05
  13. .C:c003 E8 INX ///// x=06
  14. .C:c004 8E 20 C0 STX $C020 /// $c020 = 06
  15. .C:c007 AC 20 C0 LDY $C020 //// Y= 06
  16. .C:c00a C8 INY //// Y=07
  17. .C:c00b 8C 20 C0 STY $C020 /// $c020 = 07
  18. .C:c00e AE 20 C0 LDX $C020 /// X= 07
  19. .C:c011 AD 20 C0 LDA $C020 /// A=07
  20. .C:c014 CA DEX /// X=05
  21. .C:c015 8E 20 D0 STX $D020 /// $d020 = 05
  22. .C:c018 8D 21 D0 STA $D021 /// $D021 = 07
  23. .C:c01b 60 RTS
  24. .C:c01c 00 BRK
  25. .C:c01d 00 BRK
  26. .C:c01e 00 BRK
  27. .C:c01f 00 BRK
  28. .C:c020 F8 SED
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement