;************************************************************************ ;* * ;* send date, time over the UART * ;* * ;************************************************************************ time_out: rcall puts .db "Date:20", 0 ldi zl, cyz rcall out_number ldi zl, cye rcall out_number mputch '.' ldi zl, cmoz rcall out_number ldi zl, cmoe rcall out_number mputch '.' ldi zl, cdz rcall out_number ldi zl, cde rcall out_number rcall puts .db " Time:", 0 ldi zl, chz rcall out_number ldi zl, che rcall out_number mputch ':' ldi zl, cmz rcall out_number ldi zl, cme rcall out_number mputch ':' mov a_op1_l, second clr a_op1_h mifge a_op1_l, 10, _tio1 mputch '0' _tio1: rcall dec_out ldi a, _cr rjmp putchar out_number: ld a, z mifl a, 10, _onu1 ldi a, '?' - '0' _onu1: subi a, -'0' rjmp putchar ;------------------------------------------------------------------------