1 ;======================================================================
3 ; these routines all use serial_write_char which writes
4 ; bytes to the serial port synchronously
7 include ../iwjpictest/insn-aliases.inc
13 ;----------------------------------------------------------------------
15 ;----------------------------------------
17 ; transmits W in hex through serial port, using serial_write_char
20 ; serial_hex_temp undefined undefined
21 mov_wf serial_hex_temp
22 rcall serial_write_hex_1digit_for_both
23 rcall serial_write_hex_1digit_for_both
27 serial_write_hex_1digit_for_both
28 ; transmits top nybble of serial_hex_temp in hex
29 ; through serial port, as above, and swaps nybbles
32 ; serial_hex_temp BBBBaaaa aaaaBBBB (BBBB was sent)
33 swap_f serial_hex_temp
34 mov_fw serial_hex_temp
37 serial_write_hex_digit
38 ; transmits bottom nybble of W in hex
39 ; W ????VVVV undefined
43 bra_n serial_write_hex_digit_ifnot_ge10
45 serial_write_hex_digit_ifnot_ge10
49 ;======================================================================
50 include ../iwjpictest/syncwrite.inc