B
bigreat
Guest
Koda:
sdin bit p1.1
sclk bit p1.0
dc bit p1.2
SCE bit p1.3
res bit p1.4
xadd podatkov 30h; 0-83
yadd podatkov 31h; 0-5
lcdd podatkov 32.h
org 0000h
JMP začetekstart: CLR res
nop
nop
setb res
mov a, # 00100001b
lcall omogočajo
mov a, # 10011001b
lcall omogočajo
mov a, # 00100000b
lcall omogočajo
mov a, # 00001100b
lcall omogočajo
lcall deldisp
mov xadd, # 00h;
mov yadd, # 00h;
lcall setadd
mov a, # 0ffh
lcall pisatisetadd: mov a, # 20h
lcall omogočajo
mov a, yadd
CLR acc.7
setb acc.6
CLR acc.5
CLR acc.4
CLR acc.3
lcall omogočajo
mov a, xadd
setb acc.7
lcall omogočajo
retdeldisp: mov R0, # 07
deld1: mov r1, # 84
deld2: mov a, # 00h
lcall pisati
djnz r1, deld2
djnz R0, deld1
ret
omogočajo: CLR dc
napišite: CLR SCE
mov lcdd, # 08h
tot CLR sclk
RLC a
mov sdin, c
setb sclk
djnz lcdd, toto
setb dc
setb SCE
ret
konec
sdin bit p1.1
sclk bit p1.0
dc bit p1.2
SCE bit p1.3
res bit p1.4
xadd podatkov 30h; 0-83
yadd podatkov 31h; 0-5
lcdd podatkov 32.h
org 0000h
JMP začetekstart: CLR res
nop
nop
setb res
mov a, # 00100001b
lcall omogočajo
mov a, # 10011001b
lcall omogočajo
mov a, # 00100000b
lcall omogočajo
mov a, # 00001100b
lcall omogočajo
lcall deldisp
mov xadd, # 00h;
mov yadd, # 00h;
lcall setadd
mov a, # 0ffh
lcall pisatisetadd: mov a, # 20h
lcall omogočajo
mov a, yadd
CLR acc.7
setb acc.6
CLR acc.5
CLR acc.4
CLR acc.3
lcall omogočajo
mov a, xadd
setb acc.7
lcall omogočajo
retdeldisp: mov R0, # 07
deld1: mov r1, # 84
deld2: mov a, # 00h
lcall pisati
djnz r1, deld2
djnz R0, deld1
ret
omogočajo: CLR dc
napišite: CLR SCE
mov lcdd, # 08h
tot CLR sclk
RLC a
mov sdin, c
setb sclk
djnz lcdd, toto
setb dc
setb SCE
ret
konec