aaaaa

jacme/jimmy.s

@@ -11,20 +11,20 @@
 
 	jsr $e544		; clear screen
 
-	;lda < message		; print message
-	;pha
-	;lda > message
-	;pha
+	lda #< message	; print message
+	pha
+	lda #> message
+	pha
 	jsr print_string
-	;pla
-	;pla
+	pla
+	pla
 
-	ldx #$01		; start triangle wave
-	ldy #$11
-	stx ch1_freq_hi
-	sty ch1_freq_lo
-	ldx #$11
-	stx ch1_ctl
+	;ldx #$01		; start triangle wave
+	;ldy #$11
+	;stx ch1_freq_hi
+	;sty ch1_freq_lo
+	;ldx #$11
+	;stx ch1_ctl
 
 .loop
 	inc bdcol
@@ -39,10 +39,13 @@
 	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