;--------------------------------
cnt_work:
ldi irq,0
ldi ie,0100b
ldi tmod,111b;
ldi tl0,0fh
ldi th0,0fh
ldi irq,0
ldi ie,1010b
orim bzw,01
ldi tmod,001b
ldi tl0,00h
ldi th0,0fh
ldi irq,0
orim ie,1010b
ldi temp,0
sta 302h
adim sec_1,01h
daa sec_1
ldi temp,0h
adcm sec_2,00h
daa sec_2
;sta a_flag
ldi temp ,0h
adcm min_1,00
daa min_1
;sta b_flag
ldi temp,0h
adcm min_2,0
daa min_2
;sta c_flag
ldi temp,0h
wat_key:
lda pb
eor pb_bak
baz wat_key
andim bzw,0000b
jmp main |