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
-	ldy #$11
-	stx ch1_freq_hi
-	sty ch1_freq_lo
-	ldx #$11
-	stx ch1_ctl
-	
+	lda #< message	; print message
+	pha
+	lda #> message
+	pha
+	jsr print_string
+	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
-	;sta PSL + 2
-	;lda > message
-	;sta PSL + 1
-	
+	tsx
+	dex
+	lda stack, x
+	sta PSL + 1
+	dex
+	lda stack, x
+	sta PSL + 2
+
 	ldx #$00
 PSL	lda message, x
 	cmp #$0			; return on null terminator