PA_M EQU 0 ;TRYB 0
PA_D EQU 0 ;OUT->0, IN->1
PCA_D EQU 0 ;OUT->0, IN->1
PB_M EQU 0 ;TRYB 0
PB_D EQU 0 ;OUT->0, IN->1
PCB_D EQU 0 ;OUT->0, IN->1

PA EQU PA_M*4+PA_D*2+PCA_D
PB EQU PB_M*4+PB_D*2+PCB_D
SET_8255 EQU 80H+PA*8+PB
LJMP START
ORG 100H
START:

MOV R0,#CS55D ;ustawienie ukˆadu 8255
MOV A,#SET_8255
MOVX @R0,A

LCALL LCD_CLR

LCALL WAIT_KEY ;numer klawisza jako prĄd
MOV R0,#CS55A ;bazy tranzystora
MOVX @R0,A

MOV R5,A ;wpisanie do R5 prĄdu bazy

PUSH ACC ;wpisz prĄd bazy na LCD
MOV DPTR,#TEXT3
LCALL WRITE_TEXT
POP ACC
LCALL WRITE_HEX
MOV A,#8H+4H
LCALL WRITE_INSTR

MOV R0,#CSDA ;adres przetwornika C/A
MOV R1,#CSMX ;adres multipleksera
LOOP:
LCALL WAIT_KEY ;wybrany klawisz (0..15)
MOV R2,A
MOV A,#80H+40H ;LCD na poczĄtek drugiej
LCALL WRITE_INSTR ;linii
MOV A,R2 ;powielenie numeru na
SWAP A ;caˆy bajt

ADD A,R2
MOVX @R0,A ;wpis do przetwornika C/A
LCALL WRITE_HEX ;i wpis na LCD wartoÅšci
;podawanej na wyjÅšcie

CLR A ;podˆÄ„czenie wejÅšcia 0
MOVX @R1,A ;do przetwornika A/C
MOV DPTR,#TEXT1
LCALL WRITE_TEXT
DEC R1 ;inicjowanie pracy
MOVX @R1,A ;przetwornika A/C
MOV A,#1
LCALL DELAY_MS
MOVX A,@R1 ;wynik pomiaru wejÅšcia 0
MOV R3,A
INC R1
LCALL WRITE_HEX

MOV A,#1 ;podˆÄ„czenie wejÅšcia 1
MOVX @R1,A ;do przetwornika A/C
MOV DPTR,#TEXT2
LCALL WRITE_TEXT
DEC R1 ;inicjowanie pracy
MOVX @R1,A ;przetwornika A/C
MOV A,#1
LCALL DELAY_MS
MOVX A,@R1 ;wynik pomiaru wejÅšcia 1
MOV R4,A
INC R1
LCALL WRITE_HEX

MOV A,R5 ;obliczenie prĄdu bazy
MOV B,#10
MUL AB
XCH A,B
ADD A,B
MOV R5,A

MOV A,R3 ;obliczenie prĄdu kolektora
CLR C
SUBB A,R4
MOV B,R5 ;obliczenie beta
DIV AB
SWAP A
ADD A,B

MOV B,#100
MUL AB
XCH A,B
ADD A,B

PUSH ACC
MOV DPTR,#TEXT4
LCALL WRITE_TEXT
POP ACC
LCALL WRITE_HEX

SJMP LOOP

TEXT1:
DB '-> N0=',0
TEXT2:
DB ' N1=',0
TEXT3:
DB 'PrĄd Bazy = ',0
TEXT4:
DB 'Wsp. Beta = ',0