|
|
uhp mov ra,#8 ;cler & hp
clrb lcrs
call env
mov ra,#0
call env
ret
dhp clrb lcrs ;cld 2nd home
mov ra,#0ch
call env
mov ra,#0
call env
ret
dclr call dhp
goto uclr0
uclr call uhp
uclr0 mov lcu2,#16
setb lcrs
clr lcu1
uclr1 mov w,lcu1 ;dsp spase
call dsp5
mov bf,w
call lcdsp
inc lcu1
djnz lcu2,uclr1
ret
weekdsp mov lcu2,#3
setb lcrs
clr lcu1
weekdsp1 cje weekcu,#0,wekdsp0
cje weekcu,#1,wekdsp1
cje weekcu,#2,wekdsp2
cje weekcu,#3,wekdsp3
cje weekcu,#4,wekdsp4
cje weekcu,#5,wekdsp5
mov w,lcu1
call dsp16 ;sat
mov bf,w
goto weekdsp3
wekdsp0 mov w,lcu1 ;sun
call dsp10
mov bf,w
goto weekdsp3
wekdsp1 mov w,lcu1 ;mon
call dsp11
mov bf,w
goto weekdsp3
wekdsp2 mov w,lcu1 ;tue
call dsp12
mov bf,w
goto weekdsp3
wekdsp3 mov w,lcu1 ;wed
call dsp13
mov bf,w
goto weekdsp3
wekdsp4 mov w,lcu1 ;thu
call dsp14
mov bf,w
goto weekdsp3
wekdsp5 mov w,lcu1 ;fri
call dsp15
mov bf,w
weekdsp3 call lcdsp
inc lcu1
djnz lcu2,weekdsp1
ret
dwdsp call uhp
mov lcu2,#16
setb lcrs
clr lcu1
dwdsp1 cje dspno,#0,dwdsp2
mov w,lcu1
call dsp8 ;week dsp
mov bf,w
goto dwdsp3
dwdsp2 mov w,lcu1 ;day open
call dsp7
mov bf,w
dwdsp3 call lcdsp
inc lcu1
djnz lcu2,dwdsp1
ret
lcdsp mov lcu3,bf
and lcu3,#0f0h
swap lcu3
mov ra,lcu3
call env
and bf,#0fh
mov ra,bf
call env
ret
dm24 cja bf,#19,dm24_2
cja bf,#9,dm24_1
ret
dm24_1 sub bf,#10
or bf,#10h
ret
dm24_2 sub bf,#20
or bf,#20h
ret
dm60 cja bf,#49,dm60_5
cja bf,#39,dm60_4
cja bf,#29,dm60_3
goto dm24
dm60_3 sub bf,#30
or bf,#30h
ret
dm60_4 sub bf,#40
or bf,#40h
ret
dm60_5 sub bf,#50
or bf,#50h
ret
http://homepage2.nifty.com/JG1FJC/
|
|
