Seminarski rad: Master-slave komunikacija realizovana korišćenjem ...

MOV SRCADRL, A
MOV SIPTR, #COMBUF
SETB EN485TX
TILOOP: JNB TI, $
CLR TI
MOV R0, SIPTR
MOV A, @R0
JZ TIEND
MOV SBUF, A
ADD A, R1
MOV R1, A
INC SIPTR
SJMP TILOOP
TIEND: MOV A, R1 ;NAPRAVI HI-HEXCHECKSUM U ASCII
SWAP A
LCALL HEXTOA
MOV SBUF, A
JNB TI, $
CLR TI
MOV A, R1 ;NAPRAVI LOW-HEXCHECKSUM U ASCII
LCALL HEXTOA
MOV SBUF, A
JNB TI, $
CLR TI
MOV SBUF, #END_CHAR
JNB TI, $
CLR EN485TX
RET
4.5 Funkcije za generisanje slučajnih vrednosti
4.5.1 random init
ulazni parametri: nema
izlazni parametri: nema
funkcija: inicijalizuje pseudo-nasumičnu sekvencu u zavisnosti od sopstvene
adrese
;***KORISTI SE A,B,R7*
RANDOM_INIT:
MOV RN1,#0F7H ; POCETAK
MOV RN2,#35H
MOV RN3,#55H
MOV RN4,#4EH
MOV R7,#0FFH
M12: LCALL RANDOM
DJNZ R7,M12
MOV R7, #MY_ADR+1
M13: LCALL RANDOM
DJNZ R7,M13
RET
36