Naudokite A51 kontrolės nokia 3310 LCD

[bigreat]

Kodas:

sdin bitų p1.1

sclk bitų p1.0

dk bitų p1.2

SCE bitų p1.3

res bitų p1.4
xadd duomenų 30h; 0-83

yadd duomenų 31h; 0-5
lcdd duomenų 32h
Org 0000h

JMP pradėtipradžia: CLR res

nop

nop

setb res

Mov A, # 00100001b

lcall kad

Mov A, # 10011001b

lcall kad

Mov A, # 00100000b

lcall kad

Mov A, # 00001100b

lcall kad

lcall deldisp

mov xadd, # 00h;

mov yadd, # 00h;

lcall setadd

Mov A, # 0ffh

lcall parašytisetadd: mov A, # 20h

lcall kad

Mov A, yadd

CLR acc.7

setb acc.6

CLR acc.5

CLR acc.4

CLR acc.3

lcall kad

Mov A, xadd

setb acc.7

lcall kad

Retdeldisp: mov R0, # 07

deld1: mov R1, # 84

deld2: mov A, # 00h

lcall parašyti

djnz r1, deld2

djnz R0, deld1

Ret

kad: CLR dk

parašyti: CLR SCE

mov lcdd, # 08h

tot CLR sclk

RLC a

mov sdin c

setb sclk

djnz lcdd, toto

setb dk

setb SCE

Ret

pabaiga