B
bigreat
Guest
Code:
sdin bitni p1.1
sclk bitni p1.0
dc bitni p1.2
sce bitni p1.3
res bitni p1.4
xadd podataka 30h; 0-83
yadd podataka 31h; 0-5
lcdd podataka 32h
org 0000h
JMP startstart: clr res
nop
nop
setb res
mov A, # 00100001b
lcall omogućiti
mov A, # 10011001b
lcall omogućiti
mov A, # 00100000b
lcall omogućiti
mov A, # 00001100b
lcall omogućiti
lcall deldisp
mov xadd, # 00h;
mov yadd, # 00h;
lcall setadd
mov A, # 0ffh
lcall pisatisetadd: mov A, # 20h
lcall omogućiti
mov A, yadd
clr acc.7
setb acc.6
clr acc.5
clr acc.4
clr acc.3
lcall omogućiti
mov A, xadd
setb acc.7
lcall omogućiti
močitideldisp: mov r0, # 07
deld1: mov r1, # 84
deld2: mov A, # 00h
lcall pisati
djnz r1, deld2
djnz r0, deld1
močiti
omogućiti: clr dc
Napiši: clr sce
mov lcdd, # 08h
tot clr sclk
rlc jedan
mov sdin, c
setb sclk
djnz lcdd, toto
setb dc
setb sce
močiti
kraj
sdin bitni p1.1
sclk bitni p1.0
dc bitni p1.2
sce bitni p1.3
res bitni p1.4
xadd podataka 30h; 0-83
yadd podataka 31h; 0-5
lcdd podataka 32h
org 0000h
JMP startstart: clr res
nop
nop
setb res
mov A, # 00100001b
lcall omogućiti
mov A, # 10011001b
lcall omogućiti
mov A, # 00100000b
lcall omogućiti
mov A, # 00001100b
lcall omogućiti
lcall deldisp
mov xadd, # 00h;
mov yadd, # 00h;
lcall setadd
mov A, # 0ffh
lcall pisatisetadd: mov A, # 20h
lcall omogućiti
mov A, yadd
clr acc.7
setb acc.6
clr acc.5
clr acc.4
clr acc.3
lcall omogućiti
mov A, xadd
setb acc.7
lcall omogućiti
močitideldisp: mov r0, # 07
deld1: mov r1, # 84
deld2: mov A, # 00h
lcall pisati
djnz r1, deld2
djnz r0, deld1
močiti
omogućiti: clr dc
Napiši: clr sce
mov lcdd, # 08h
tot clr sclk
rlc jedan
mov sdin, c
setb sclk
djnz lcdd, toto
setb dc
setb sce
močiti
kraj