B
bigreat
Guest
Kód:
sdin bit p1.1
sclk bit P1.0
dc bit p1.2
SCE bit p1.3
res bit P1.4
xADD údajov 30h; 0-83
yadd údajov 31h; 0-5
lcdd údajov 32h
org 0000h
JMP startstart: CLR res
nop
nop
osev res
mov a, # 00100001b
lcall umožňujú
mov a, # 10011001b
lcall umožňujú
mov a, # 00100000b
lcall umožňujú
mov a, # 00001100b
lcall umožňujú
lcall deldisp
mov xADD, # 00h;
mov yadd, # 00h;
lcall setadd
mov a, # 0ffh
lcall písaťsetadd: mov a, # 20h
lcall umožňujú
mov a, yadd
CLR acc.7
osev acc.6
CLR acc.5
CLR acc.4
CLR acc.3
lcall umožňujú
mov a, xADD
osev acc.7
lcall umožňujú
retdeldisp: mov R0, # 07
deld1: mov r1, # 84
deld2: mov a, # 00h
lcall písať
djnz r1, deld2
djnz R0, deld1
ret
umožnia: CLR dc
napíšte: CLR SCE
mov lcdd, # 08h
tot CLR sclk
RLC jedna
mov sdin, c
osev sclk
djnz lcdd, toto
osev dc
osev SCE
ret
koniec
sdin bit p1.1
sclk bit P1.0
dc bit p1.2
SCE bit p1.3
res bit P1.4
xADD údajov 30h; 0-83
yadd údajov 31h; 0-5
lcdd údajov 32h
org 0000h
JMP startstart: CLR res
nop
nop
osev res
mov a, # 00100001b
lcall umožňujú
mov a, # 10011001b
lcall umožňujú
mov a, # 00100000b
lcall umožňujú
mov a, # 00001100b
lcall umožňujú
lcall deldisp
mov xADD, # 00h;
mov yadd, # 00h;
lcall setadd
mov a, # 0ffh
lcall písaťsetadd: mov a, # 20h
lcall umožňujú
mov a, yadd
CLR acc.7
osev acc.6
CLR acc.5
CLR acc.4
CLR acc.3
lcall umožňujú
mov a, xADD
osev acc.7
lcall umožňujú
retdeldisp: mov R0, # 07
deld1: mov r1, # 84
deld2: mov a, # 00h
lcall písať
djnz r1, deld2
djnz R0, deld1
ret
umožnia: CLR dc
napíšte: CLR SCE
mov lcdd, # 08h
tot CLR sclk
RLC jedna
mov sdin, c
osev sclk
djnz lcdd, toto
osev dc
osev SCE
ret
koniec