Routines
Prev: 1F8D Up: Map Next: 1FE7
1F98: telesoftware_number: Input page number for telesoftware page search.
Used by the routine at telesoftware_main.
telesoftware_number 1F98 CALL clear_page_number Clear page number display.
1F9B LD A,$01 Det ignore_packets_flag.
1F9D LD (ignore_packets_flag),A
1FA0 LD HL,(page_display_buffer_pointer) Load address of page display buffer into HL.
1FA3 LD (HL),$54 Erite 'T' character to first byte of page display buffer.
1FA5 CALL display_header_row Update page number display.
telesoftware_number_0 1FA8 CALL get_dec_digit Get a keypress in the range 0-9.
1FAB AND $0F Convert to integer.
1FAD JR Z,telesoftware_number_0 If number is 0 or greater than 8 loop back and get another keypress.
1FAF CP $09
1FB1 JR NC,telesoftware_number_0
1FB3 CP $08 If number is 8 change it to 0.
1FB5 JR NZ,telesoftware_number_1
1FB7 XOR A
telesoftware_number_1 1FB8 LD (magazine_number),A Store number in magazine_number.
1FBB OR $30 Convert integer back to a character.
1FBD CP $30 If character is '0' change it to '8'.
1FBF JR NZ,telesoftware_number_2
1FC1 LD A,$38
telesoftware_number_2 1FC3 INC HL Write character to next byte in page display buffer.
1FC4 LD (HL),A
1FC5 CALL display_header_row Update page number display.
1FC8 CALL get_dec_digit Get a keypress in the range 0-9.
1FCB INC HL Write key code to next byte in page display buffer.
1FCC LD (HL),A
1FCD AND $0F Convert to integer and store in page_tens.
1FCF LD (page_tens),A
1FD2 CALL display_header_row Update page number display.
1FD5 CALL get_dec_digit Get a keypress in the range 0-9.
1FD8 INC HL Write key code to next byte in page display buffer.
1FD9 LD (HL),A
1FDA AND $0F Convert to integer and store in page_units.
1FDC LD (page_units),A
1FDF CALL display_header_row Update page number display.
1FE2 XOR A Clear subpage_search_flag and return.
1FE3 LD (subpage_search_flag),A
1FE6 RET
Prev: 1F8D Up: Map Next: 1FE7