aaaaa

jacme/jimmy.s

@@ -10,22 +10,22 @@
 	stx bgcol
 
 	jsr $e544		; clear screen
-	
-	;lda < message		; print message
-	;pha
-	;lda > message
-	;pha
-	jsr print_string
-	;pla
-	;pla
 
-	ldx #$01		; start triangle wave
+	lda #< message	; print message
-	ldy #$11
+	pha
-	stx ch1_freq_hi
+	lda #> message
-	sty ch1_freq_lo
+	pha
-	ldx #$11
+	jsr print_string
-	stx ch1_ctl
+	pla
-	
+	pla
+
+	;ldx #$01		; start triangle wave
+	;ldy #$11
+	;stx ch1_freq_hi
+	;sty ch1_freq_lo
+	;ldx #$11
+	;stx ch1_ctl
+
 .loop
 	inc bdcol
 
@@ -39,11 +39,14 @@
 	rts
 
 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
 PSL	lda message, x
 	cmp #$0			; return on null terminator