aliases for Kernal jump table entries

c64/basic/print_packed_message.s

@@ -38,7 +38,7 @@ found_message_in_token_stream:
 	beq +
 	jsr print_packed_word
 	lda #$20
-	jsr $ffd2
+	jsr JCHROUT
 	pla
 	tay
 	iny
@@ -47,7 +47,7 @@ found_message_in_token_stream:
 	pla
 	;; Rub out space at the end
 	lda #$14
-	jsr $ffd2
+	jsr JCHROUT
 	rts
 
 print_packed_word:
@@ -138,13 +138,13 @@ next_packed_word_char:
 	lsr
 	tax
 
-	;; Save Y so it doesn't get clobbered by $FFD2
+	;; Save Y so it doesn't get clobbered by CHROUT
 	tya
 	pha
 
 	;; X=1-14 = first 14 chars, so subtract one
 	lda packed_message_chars-1,x
-	jsr $FFD2
+	jsr JCHROUT
 
 	;; See if there is a char in the low nybl to print
 	pla
@@ -171,7 +171,7 @@ has_nybl:
 	
 	;; X=1-14 = first 14 chars, so subtract one
 	lda packed_message_chars-1,x
-	jsr $FFD2
+	jsr JCHROUT
 *
 	pla
 	tay
@@ -207,7 +207,7 @@ unpack_literal_char:
 	tya
 	pha
 	lda (temp_string_ptr),y
-	jsr $ffd2
+	jsr JCHROUT
 	pla
 	tay
 	rts