Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *= $1000
- JSR setup
- loop LDA $D41B ; load random
- STA $0400,X ; print character
- CMP msg,X ; check character
- BNE loop ; repeat
- INX ; advance cursor
- CPX #$0C
- BEQ stop ; stop at the end of the string
- JMP loop
- stop JMP stop
- setup LDA #$F0
- STA $D40E ; set voice 3 frequency (LSB)
- LDA #$00
- STA $D40F ; set voice 3 frequency (MSB)
- LDA #$80
- STA $D412 ; set voice 3 noise
- JSR $e544 ; clear screen
- LDA #$02
- ORA $D018
- STA $D018 ; change charset
- LDX #$00
- RTS
- msg text "hello world!"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement