Vera Cruz (Part 2): Routine at 64782

64782: Print String

Prints the BASIC string "s$" at the current print position in a 64-column font. It finds the string with the ROM routine LOOK-VARS, using the name at PrintString_VariableName, and stops with an error if it is missing. Codes below 32 go straight to RST 16; codes from 144 upwards are skipped.
PrintString	64782	XOR A
	64783	LD (64919),A
	64786	LD A,2
	64788	CALL 5633
	64791	LD HL,(23645)
	64794	PUSH HL
	64795	LD HL,64916
	64798	LD (23645),HL
	64801	CALL 10418
	64804	EX (SP),HL
	64805	LD (23645),HL
	64808	POP HL
	64809	JR NC,PrintString_0
	64811	RST 8
	64812	DEFB 1	Error code for the RST 8 above.
PrintString_0	64813	INC HL
	64814	LD C,(HL)
	64815	INC HL
	64816	LD B,(HL)
	64817	LD A,B
	64818	OR C
	64819	JR Z,PrintString_4
PrintString_1	64821	INC HL
	64822	LD A,(HL)
	64823	CP 144
	64825	JR NC,PrintString_3
	64827	CP 32
	64829	JR NC,PrintString_2
	64831	RST 16
	64832	JR PrintString_3
PrintString_2	64834	CALL PrintString_Character
PrintString_3	64837	DEC BC
	64838	LD A,B
	64839	OR C
	64840	JR NZ,PrintString_1
PrintString_4	64842	LD A,(64919)
	64845	OR A
	64846	JR Z,PrintString_5
	64848	LD A,32
	64850	CALL PrintString_Character
PrintString_5	64853	RET