various cleanups

c64/basic/print_packed_message.s

@@ -32,13 +32,13 @@ packed_message_search:
 
 found_message_in_token_stream:
 	// Now print each word in the message
-	_phy
+	phy_trash_a
 	lda packed_message_tokens,y
 	cmp #$ff
 	beq !+
 	jsr print_packed_word
 	jsr print_space
-	_ply
+	ply_trash_a
 	iny
 	bne found_message_in_token_stream
 !:
@@ -137,14 +137,14 @@ next_packed_word_char:
 	tax
 
 	// Save Y so it doesn't get clobbered by CHROUT
-	_phy
+	phy_trash_a
 
 	// X=1-14 = first 14 chars, so subtract one
 	lda packed_message_chars-1,x
 	jsr JCHROUT
 
 	// See if there is a char in the low nybl to print
-	_ply
+	ply_trash_a
 	lda (FRESPC),y
 	and #$0f
 	beq end_of_packed_word
@@ -154,7 +154,7 @@ next_packed_word_char:
 has_lo_nybl_char:
 	// We need to print the low nybl char as well
 	tax
-	_phy
+	phy_trash_a
 
 	// Skip lower nybls of $F or $0 in nybl packed
 	// bytes, as these do not encode characters
@@ -168,7 +168,7 @@ has_nybl:
 	lda packed_message_chars-1,x
 	jsr JCHROUT
 !:
-	_ply
+	ply_trash_a
 	// FALLTHROUGH
 
 no_lo_nybl_char:
@@ -198,7 +198,7 @@ next_is_literal_char:
 unpack_literal_char:
 	// Output the literal char, and ready for next char
 	iny
-	_phy
+	phy_trash_a
 	lda (FRESPC),y
 	jsr JCHROUT
 	pla
@@ -215,6 +215,6 @@ is_uncommon_char:
 
 	// We need to print the low nybl char as well
 	tax
-	_phy
+	phy_trash_a
 
 	jmp has_nybl