Instruction manual

022f ca 7b 02 jp z,load_done ;yes, quit

0232 32 09 db ld (buffer+1),a

0235 21 08 db ld hl,buffer

0238 cd c7 00 call hex_to_byte

023b da 71 02 jp c,load_data_entry_error ;non-hex character

023e 2a 00 db ld hl,(current_location) ;get byte address from storage,

0241 77 ld (hl),a ;store byte

0242 23 inc hl ;increment address and

0243 22 00 db ld (current_location),hl ;store back

0246 3a 08 db ld a,(buffer)

0249 cd 0c 00 call write_char

024c 3a 09 db ld a,(buffer+1)

024f cd 0c 00 call write_char

0252 3a 02 db ld a,(line_count) ;end of line (16 characters)?

0255 fe 0f cp 00fh ;yes, start new line

0257 ca 66 02 jp z,load_new_line

025a 3c inc a ;no, increment line count

025b 32 02 db ld (line_count),a

025e 3e 20 ld a,020h ;print space

0260 cd 0c 00 call write_char

0263 c3 1f 02 jp load_next_char ;continue

0266 3e 00 load_new_line: ld a,000h ;reset line count to zero

0268 32 02 db ld (line_count),a

026b cd 89 02 call write_newline

026e c3 1f 02 jp load_next_char ;continue

0271 cd 89 02 load_data_entry_error: call write_newline

0274 21 1b 04 ld hl,data_error_msg

0277 cd 18 00 call write_string

027a c9 ret

027b cd 89 02 load_done: call write_newline

027e c9 ret

027f ;

027f ;Get one ASCII character from the serial port.

027f ;Returns with char in A reg. No error checking.

027f db 03 get_char: in a,(3) ;get status

0281 e6 02 and 002h ;check RxRDY bit

0283 ca 7f 02 jp z,get_char ;not ready, loop

0286 db 02 in a,(2) ;get char

0288 c9 ret

0289 ;