OEL TTX2000 Issue 2.3: Routine at 11C8

11C8: hold_page: Pressed H to hold page.

Used by the routine at handle_keypress.
hold_page	11C8	CALL clear_page_number	Clear page number display.
	11CB	LD DE,(page_display_buffer_pointer)	copy hold indicator string to first 4 bytes of page display buffer.
	11CF	LD HL,hold_indicator
	11D2	LD BC,$0004
	11D5	LDIR
	11D7	CALL display_header_row	Decode and display header row data.
hold_page_0	11DA	CALL get_keypress	get a keypress.
	11DD	CP $52	if key code equals 'R' call toggle_reveal, then loop back and wait for another keypress.
	11DF	JR NZ,hold_page_1
	11E1	CALL toggle_reveal
	11E4	JR hold_page_0
hold_page_1	11E6	CP $45	else if key code equals 'E' jump to address in exit_pointer.
	11E8	JR NZ,hold_page_3
	11EA	LD HL,(exit_pointer)
hold_page_2	11ED	JP (HL)
hold_page_3	11EE	CP $5A	else if key code equals 'Z' call address in print_pointer via hold_page_2, then loop back and wait for another keypress.
	11F0	JR NZ,hold_page_4
	11F2	LD HL,(print_pointer)
	11F5	CALL hold_page_2
	11F8	JR hold_page_0
hold_page_4	11FA	CP $53	else if key code equals 'S' set save_return_pointer to hold_page_0 and jump save page routine.
	11FC	JR NZ,hold_page_5
	11FE	LD HL,hold_page_0
	1201	LD (save_return_pointer),HL
	1204	LD HL,(save_page_pointer)
	1207	JP (HL)
hold_page_5	1208	CP $0D	else if key code equals 'enter' call display_menu then loop back and wait for another keypress.
	120A	JR NZ,hold_page_6
	120C	CALL display_menu
	120F	JR hold_page_0
hold_page_6	1211	CP $48	else if key code is not equal to 'H' loop back and wait for another keypress.
	1213	JR NZ,hold_page_0
	1215	CALL restore_number	else restore page number display.
	1218	LD HL,($5CB2)	then reset stack below RAMTOP and jump to wait_and_decode_page.
	121B	DEC HL
	121C	LD SP,HL
	121D	JP wait_and_decode_page