a_dinosaur/c65
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

aaaaa

Browse Source
This commit is contained in:
a dinosaur
2019-04-02 09:50:09 +11:00
parent 28d570fd25
commit f664e2b7cc
1 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
jacme/jimmy.s
View File

@@ -11,20 +11,20 @@
jsr $e544 ; clear screen jsr $e544 ; clear screen
;lda < message ; print message lda #< message ; print message
;pha pha
;lda > message lda #> message
;pha pha
jsr print_string jsr print_string
;pla pla
;pla pla
ldx #$01 ; start triangle wave ;ldx #$01 ; start triangle wave
ldy #$11 ;ldy #$11
stx ch1_freq_hi ;stx ch1_freq_hi
sty ch1_freq_lo ;sty ch1_freq_lo
ldx #$11 ;ldx #$11
stx ch1_ctl ;stx ch1_ctl
.loop .loop
inc bdcol inc bdcol
@@ -39,10 +39,13 @@
rts rts
print_string: print_string:
;lda message tsx
;sta PSL + 2 dex
;lda > message lda stack, x
;sta PSL + 1 sta PSL + 1
dex
lda stack, x
sta PSL + 2
ldx #$00 ldx #$00
PSL lda message, x PSL lda message, x