further aliases cleanup

c64/basic/print_packed_message.s

@@ -57,9 +57,9 @@ print_packed_word:
 
 	// Setup pointer to packed words
 	lda #<packed_message_words
-	sta temp_string_ptr+0
+	sta FRESPC+0
 	lda #>packed_message_words
-	sta temp_string_ptr+1
+	sta FRESPC+1
 
 	// Find the word in the list
 	ldy #$ff
@@ -69,14 +69,14 @@ packed_word_search:
 	beq found_packed_word
 
 	//  $x0 is an end of work marker
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 	and #$0f
 	cmp #$00
 	bne !+
 	dex
 !:
 	// $FE $xx is an end of work marker
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 	cmp #$fe
 	bne !+
 	dex 
@@ -90,7 +90,7 @@ packed_word_search:
 	// Advance to next page if required
 	cpy #$ff
 	bne packed_word_search
-	inc temp_string_ptr+1
+	inc FRESPC+1
 	jmp packed_word_search
 
 found_packed_word:
@@ -99,11 +99,11 @@ found_packed_word:
 	// Make sure we don't wrap on a page boundary
 	tya
 	clc
-	adc temp_string_ptr+0
-	sta temp_string_ptr+0
-	lda temp_string_ptr+1
+	adc FRESPC+0
+	sta FRESPC+0
+	lda FRESPC+1
 	adc #$00
-	sta temp_string_ptr+1
+	sta FRESPC+1
 
 print_packed_string:
 	ldy #$ff
@@ -113,7 +113,7 @@ next_packed_word_char:
 	iny
 
 	// Check for end of word
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 	cmp #$00
 	beq end_of_packed_word
 	cmp #$fe
@@ -124,13 +124,13 @@ next_packed_word_char:
 	beq end_of_packed_word	
 
 	// Check if it is an uncommon char
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 	and #$f0
 	cmp #$f0
 	beq is_uncommon_char
 
 	// Is not an uncommon char, so get char of upper nybl
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 
 	// Put high nybl into low bits of X
 	lsr
@@ -150,7 +150,7 @@ next_packed_word_char:
 	// See if there is a char in the low nybl to print
 	pla
 	tay
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 	and #$0f
 	beq end_of_packed_word
 	cmp #$0f
@@ -182,7 +182,7 @@ no_lo_nybl_char:
 
 	// If current byte has $0F in low nybl, then the next
 	// byte is a whole byte.
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 	and #$0f
 	cmp #$0f
 	beq next_is_literal_char
@@ -207,7 +207,7 @@ unpack_literal_char:
 	iny
 	tya
 	pha
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 	jsr JCHROUT
 	pla
 	tay
@@ -216,7 +216,7 @@ unpack_literal_char:
 is_uncommon_char:
 	// Lower nybl has offset into low-frequency part of the table
 
-	lda (temp_string_ptr),y
+	lda (FRESPC),y
 	and #$0f
 	clc
 	adc #14