API tools faq
paste
Advertisement
yugorin

Ruch rastra

yugorin
Sep 19th, 2016
146
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
6502 Kick Assembler 3.80 KB | None | 0 0
raw download clone embed print report
  1. :BasicUpstart2(main)
  2.  
  3. .var brkFile = createFile("breakpoints.txt")
  4.  
  5. .macro break() {
  6.  .eval brkFile.writeln("break " + toHexString(*))
  7. }
  8.  
  9. .macro przeniesienie (pozycja) {
  10.  
  11.      lda #pozycja
  12. loop2:
  13.  
  14.  cmp $d012
  15.  bne loop2
  16.  
  17.  ldx #$00
  18. laduj_kolory:
  19.  
  20.  lda kolory,x
  21.  sta $d020
  22.  sta $d021
  23.  cpx #$08
  24.  inx
  25.  bne laduj_kolory
  26.  
  27. }
  28.  
  29. main:
  30.  
  31. sei
  32.  
  33. loop1:
  34.  lda #$40
  35. loop2:
  36.  
  37.  cmp $d012
  38.  bne loop2
  39.  
  40.  ldx #$00
  41. laduj_kolory:
  42.  
  43.  lda kolory,x
  44.  sta $d020
  45.  sta $d021
  46.  cpx #$08
  47.  inx
  48.  bne laduj_kolory
  49.  
  50.  
  51. .for(var i=0;i<$80;i++) :przeniesienie($40+i)
  52. .for(var i=0;i<$80;i++) :przeniesienie($c0-i)
  53.  
  54. jmp loop1
  55.  
  56.  
  57. kolory:
  58. .byte GREEN,GREEN,GREEN,GREEN,GREEN,GREEN,GREEN,GREEN
  59. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  60. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  61. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  62. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  63. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  64. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  65. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  66. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  67. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  68. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  69. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  70. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  71. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  72. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  73. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  74. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  75. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  76. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  77. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  78. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  79. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  80. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  81. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  82. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  83. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  84. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  85. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  86. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  87. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  88. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  89. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  90. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  91. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  92. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  93. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  94. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  95. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  96. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  97. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  98. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  99. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  100. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  101. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  102. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  103. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  104. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  105. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  106. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  107. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  108. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  109. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  110. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  111. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  112. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  113. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  114. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  115. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
  116. .byte BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK,BLACK
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!