B
bigreat
Guest
Kod:
sdin bitowe p1.1
sclk bitowe p1.0
dc bitów p1.2
SCE bitowe p1.3
res bitowe p1.4
xadd danych 30h; 0-83
yadd danych 31h; 0-5
lcdd danych 32H
org 0000h
JMP startstart: clr res
nop
nop
setb res
mov a, # 00100001b
lcall umożliwienia
mov a, # 10011001b
lcall umożliwienia
mov a, # 00100000b
lcall umożliwienia
mov a, # 00001100b
lcall umożliwienia
lcall deldisp
mov xadd, # 00h;
mov yadd, # 00h;
lcall setadd
mov a, # 0ffh
lcall napisaćsetadd: mov a, # 20h
lcall umożliwienia
mov a yadd
clr acc.7
setb acc.6
clr acc.5
clr acc.4
clr acc.3
lcall umożliwienia
mov a xadd
setb acc.7
lcall umożliwienia
retdeldisp: mov r0, # 07
deld1: mov r1, # 84
deld2: mov a, # 00h
lcall napisać
djnz r1, deld2
djnz r0, deld1
ret
umożliwić: clr dc
napisz: clr SCE
mov lcdd, # 08h
tot clr sclk
RLC jeden
mov sdin, c
setb sclk
djnz lcdd, toto
setb dc
setb SCE
ret
koniec
sdin bitowe p1.1
sclk bitowe p1.0
dc bitów p1.2
SCE bitowe p1.3
res bitowe p1.4
xadd danych 30h; 0-83
yadd danych 31h; 0-5
lcdd danych 32H
org 0000h
JMP startstart: clr res
nop
nop
setb res
mov a, # 00100001b
lcall umożliwienia
mov a, # 10011001b
lcall umożliwienia
mov a, # 00100000b
lcall umożliwienia
mov a, # 00001100b
lcall umożliwienia
lcall deldisp
mov xadd, # 00h;
mov yadd, # 00h;
lcall setadd
mov a, # 0ffh
lcall napisaćsetadd: mov a, # 20h
lcall umożliwienia
mov a yadd
clr acc.7
setb acc.6
clr acc.5
clr acc.4
clr acc.3
lcall umożliwienia
mov a xadd
setb acc.7
lcall umożliwienia
retdeldisp: mov r0, # 07
deld1: mov r1, # 84
deld2: mov a, # 00h
lcall napisać
djnz r1, deld2
djnz r0, deld1
ret
umożliwić: clr dc
napisz: clr SCE
mov lcdd, # 08h
tot clr sclk
RLC jeden
mov sdin, c
setb sclk
djnz lcdd, toto
setb dc
setb SCE
ret
koniec