Advertisement
Redxone

[CC - 6502] 6502 Text for 6502Lemu Format

Apr 5th, 2017
687
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .begin $0A00 ; Start program at 0A00
  2. define strlen $1A
  3. define scr $0200
  4. define up $11
  5. ; Setup counter colorz
  6. lda #$FA
  7. sta $0300
  8. ; Regular stuff.
  9. lda #$00
  10. ldy #$00
  11. ldx #$00
  12. ; Clear key inputs
  13. sta $FF
  14.  
  15. ; Jump past bytes into program code.
  16. jmp start
  17.  
  18. test:
  19.   ; 24 bytes
  20.   dcb $1F, $'H', $2F, $'e', $3F,  $'l', $4F,  $'l', $5F, $'o'
  21.   dcb $6F, $''', $FF, $00, $1F, $'W', $2F, $'o', $3F, $'r', $4F, $'l'
  22.  dcb $5F, $'d', $6F, $'!'
  23.  
  24. start:
  25. ; If y = #Hello then end program.
  26.  nop ; Slow the CPU for a nice slow print effect xD
  27.  lda test, Y
  28.  sta scr, Y
  29.  iny
  30.  cpy #strlen
  31.  beq end
  32.  jmp start
  33.  
  34. end:
  35.   ldx $FE
  36.   stx $0301
  37.   lda $FF
  38.   cmp #up
  39.   bne end
  40.   ; End program here.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement