Advertisement
rilo

Kick Assembler macro storing offsets for speedcode

Jun 17th, 2019
2,498
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .var d021list = List().add(back1+1)
  2. .var d022list = List().add(d022_1+1)
  3. .var d023list = List().add(d023_1+1)
  4. .var d024list = List().add(d024_1+1)
  5.  
  6. .macro drawbadline() {
  7.     .label d024 = *+1
  8.                 lda #$00
  9.                 ldy #$00
  10.                 sta $d020,y
  11.     .label d023 = *+1
  12.                 ldx #$00
  13.     .label d022 = *+1
  14.                 ldy #$00
  15.                 sta $d024 // and we're out again!
  16.                 stx $d020
  17.  
  18.                 stx $d023
  19.                 sty $d022
  20.     .label d021 = *+1
  21.                 lda #$00
  22.                 sta $d021
  23.                
  24.                 :pause #16
  25.     .eval d021list.add(d021)
  26.     .eval d022list.add(d022)
  27.     .eval d023list.add(d023)
  28.     .eval d024list.add(d024)
  29. }
  30.  
  31. .macro filld021(offsets) {
  32.     .for (var i =0; i < offsets.size(); i++) {
  33.         lda colorbar1,x
  34.         sta offsets.get(i)
  35.         inx
  36.     }
  37. }
  38.  
  39. .macro filld022(offsets) {
  40.     .for (var i =0; i < offsets.size(); i++) {
  41.         lda sincolor,x
  42.         sta offsets.get(i)
  43.         inx
  44.     }
  45. }
  46.  
  47. .macro filld023(offsets) {
  48.     .for (var i =0; i < offsets.size(); i++) {
  49.         lda colorbar1,x
  50.         sta offsets.get(i)
  51.         inx
  52.     }
  53. }
  54.  
  55. .macro filld024(offsets) {
  56.     .for (var i =0; i < offsets.size(); i++) {
  57.         lda sincolor,x
  58.         sta offsets.get(i)
  59.         inx
  60.     }
  61. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement