» » » » Kalkulator Berbasis AT89S51

Kalkulator Berbasis AT89S51

, , Edit


  

KELOMPOK B1

1. Aryo Baskoro                                         (3.32.19.1.03)

2. Christhoper Giovanni Mamahit            (3.32.19.1.05)

3. Cindi Dwi Mardiningsih                         (3.32.19.1.06) 

Input        : Keypad

Output     : LCD

Teknologi masa kini banyak mengalami perubahan yang makin lama makin berkembang pesat.Contohnya mesin hitung atau biasa yang disebut dengan kalkulator. Kalkulator adalah alat portable, kecil, dan umumnya tidak mahal untuk melakukan operasi aritmatik sederhana maupun kompleks.

            Masa kini kalkulator telah mengalamai banyak perubahan dari mesin penghitung manual atau biasa disebut dengan abacus sampai dengan kalkulator modern yang biasa dipakai untuk melakukan perhitungan-perhitungan ilmiah. Kalkulator atau biasa disebut dengan alat hitung, umumnya banyak ditemui baik secara fisik maupun non-fisik (berbasis aplikasi). Kalkulator dipakai sebagai alat bantu dalam perhitungan yang dibuat untuk membantu perkerjaan manusia.

              Kalkulator masa kini banyak diterapkan di dalam aplikasi, baik aplikasi handphone maupun kalkulator yang sudah disatukan dengan sistem operasi. Pengoperasian sebuah perhitungan baik secara aritmatik maupun secara logika dilakukan dengan menggunakan sebuah prosesor yang terdapat pada semua alat hitung elektornik. Prosesor-prosesor yang dipakai di alat hitung elektronik memiliki fungsi yang disebut dengan ALU (Arithmetical Logical Unit) yang digunakan untuk melakukan semua proses perhitungan.   

1. PPT (Download PPT)





 
 
 



2. Program (Download Program)

ORG 0000H
LJMP 0D4AH
LJMP 038BH
MOV A,R0
XRL A,#80H
MOV R0,A
MOV A,R1
RLC A
MOV A,R0
RLC A
JZ 11H
INC A
JZ 0F0H
MOV A,R5
RLC A
MOV A,R4
RLC A
JNZ 09H
MOV A,R0
MOV R4,A
MOV A,R1
MOV R5,A
MOV A,R2
MOV R6,A
MOV A,R3
MOV R7,A
RET
INC A
JZ 0DEH
SETB C
MOV A,R3
SUBB A,R7
MOV A,R2
SUBB A,R6
MOV A,R1
SUBB A,R5
MOV A,R0
CLR 0E7H
MOV 0F0H,R4
CLR 0F7H
SUBB A,0F0H
JC 0CH
MOV A,R0
XCH A,R4
MOV R0,A
MOV A,R1
XCH A,R5
MOV R1,A
MOV A,R2
XCH A,R6
MOV R2,A
MOV A,R3
XCH A,R7
MOV R3,A
LCALL 0356H
MOV 0F0H,0D0H
ANL A,R0
INC A
JNZ 03H
JB 0D5H,0B3H
MOV A,R0
INC A
JNZ 07H
JNC 02H
CPL 0D5H
LJMP 0395H
MOV 0D5H,C
MOV A,R4
INC A
JZ 0F7H
CLR A
XCH A,R4
PUSH 0E0H
CLR C
SUBB A,R0
MOV R0,A
JZ 3BH
SUBB A,#18H
JZ 08H
JC 0DH
POP 0E0H
MOV R3,A
LJMP 036DH
CLR A
MOV R3,A
MOV R2,A
XCH A,R1
MOV R4,A
SJMP 28H
MOV A,R0
JNB 0E4H,06H
CLR A
XCH A,R1
MOV R3,A
CLR A
XCH A,R2
MOV R4,A
MOV A,R0
JNB 0E3H,05H
CLR A
XCH A,R1
XCH A,R2
XCH A,R3
MOV R4,A
MOV A,R0
ANL A,#07H
JZ 10H
MOV R0,A
CLR C
MOV A,R1
RRC A
MOV R1,A
MOV A,R2
RRC A
MOV R2,A
MOV A,R3
RRC A
MOV R3,A
MOV A,R4
RRC A
MOV R4,A
DJNZ R0,0F1H
JNB 0F5H,2FH
CLR C
CLR A
SUBB A,R4
MOV R4,A
MOV A,R7
SUBB A,R3
MOV R7,A
MOV A,R6
SUBB A,R2
MOV R6,A
MOV A,R5
SUBB A,R1
MOV R5,A
POP 0E0H
MOV R3,A
MOV A,R7
ORL A,R6
ORL A,R5
ORL A,R4
JNZ 12H
RET
DJNZ R3,03H
LJMP 0392H
MOV A,R4
ADD A,R4
MOV R4,A
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
RLC A
MOV R5,A
MOV A,R5
JNB 0E7H,0EBH
LJMP 036DH
MOV A,R7
ADD A,R3
MOV R7,A
MOV A,R6
ADDC A,R2
MOV R6,A
MOV A,R5
ADDC A,R1
MOV R5,A
POP 0E0H
MOV R3,A
JNC 13H
INC R3
CJNE R3,#00H,03H
LJMP 0395H
MOV A,R5
RRC A
MOV R5,A
MOV A,R6
RRC A
MOV R6,A
MOV A,R7
RRC A
MOV R7,A
MOV A,R4
RRC A
MOV R4,A
LJMP 036DH
MOV A,R4
ORL A,R5
JZ 11H
MOV A,R0
ORL A,R1
JNZ 17H
MOV A,R5
RLC A
MOV A,R4
RLC A
INC A
JZ 0DH
CLR A
MOV R4,A
MOV R7,A
MOV R6,A
MOV R5,A
RET
MOV A,R1
RLC A
MOV A,R0
RLC A
INC A
JNZ 0F8H
LJMP 038BH
LCALL 0356H
ANL A,R0
INC A
JZ 09H
CLR A
XCH A,R4
ADD A,#81H
JNC 06H
ADD A,R0
JNC 09H
LJMP 0395H
ADD A,R0
JC 03H
LJMP 0392H
PUSH 0E0H
MOV A,R3
ORL A,R2
JNZ 44H
CJNE R1,#80H,06H
POP 0E0H
MOV R3,A
LJMP 0381H
MOV A,R7
ORL A,R6
JNZ 1CH
CJNE R5,#80H,08H
MOV A,R3
MOV R7,A
MOV A,R2
MOV R6,A
MOV A,R1
MOV R5,A
SJMP 0EBH
MOV A,R1
MOV 0F0H,R5
MUL AB
MOV R6,A
MOV A,0F0H
LJMP 01E4H
MOV A,R1
XCH A,R5
MOV R1,A
MOV A,R2
MOV R6,A
MOV A,R3
MOV R7,A
MOV A,R7
MOV 0F0H,R1
MUL AB
MOV R4,A
MOV A,0F0H
XCH A,R6
MOV 0F0H,R1
MUL AB
ADD A,R6
MOV R7,A
CLR A
ADDC A,0F0H
XCH A,R5
MOV 0F0H,R1
MUL AB
ADD A,R5
MOV R6,A
CLR A
ADDC A,0F0H
SJMP 67H
MOV A,R7
ORL A,R6
JNZ 05H
CJNE R5,#80H,0D7H
SJMP 0C3H
MOV A,R7
MOV 0F0H,R3
MUL AB
MOV R4,0F0H
MOV A,R6
MOV 0F0H,R3
MUL AB
ADD A,R4
MOV R4,A
CLR A
ADDC A,0F0H
MOV R0,A
MOV A,R7
MOV 0F0H,R2
MUL AB
ADD A,R4
MOV A,0F0H
ADDC A,R0
MOV R4,A
CLR A
RLC A
XCH A,R3
MOV 0F0H,R5
MUL AB
ADD A,R4
MOV R4,A
MOV A,0F0H
ADDC A,R3
MOV R0,A
MOV A,R6
MOV 0F0H,R2
MUL AB
ADD A,R4
MOV R4,A
MOV A,0F0H
ADDC A,R0
MOV R0,A
CLR A
RLC A
XCH A,R7
MOV 0F0H,R1
MUL AB
ADD A,R4
MOV R4,A
MOV A,0F0H
ADDC A,R0
XCH A,R7
ADDC A,#00H
XCH A,R6
MOV 0F0H,R1
MUL AB
ADD A,R7
MOV R7,A
MOV A,0F0H
ADDC A,R6
MOV R6,A
CLR A
RLC A
XCH A,R1
MOV 0F0H,R5
MUL AB
ADD A,R6
MOV R6,A
MOV A,0F0H
ADDC A,R1
XCH A,R5
MOV 0F0H,R2
MUL AB
ADD A,R7
MOV R7,A
MOV A,0F0H
ADDC A,R6
MOV R6,A
CLR A
ADDC A,R5
MOV R5,A
RLC A
POP 0E0H
MOV R3,A
JNC 07H
INC R3
CJNE R3,#00H,0FH
LJMP 0395H
MOV A,R4
ADD A,R4
MOV R4,A
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
RLC A
MOV R5,A
LJMP 036DH
LJMP 0395H
MOV A,R4
ANL A,R5
INC A
JZ 05H
MOV A,R0
ANL A,R1
INC A
JNZ 03H
LJMP 038BH
LCALL 0356H
ANL A,R0
INC A
JZ 0F6H
MOV A,R4
ORL A,R0
JZ 0F2H
MOV A,R4
JNZ 04H
MOV R5,A
MOV R6,A
MOV R7,A
RET
XCH A,R0
JZ 0DBH
ADD A,#81H
XCH A,R0
JNC 09H
CLR C
SUBB A,R0
JZ 02H
JNC 06H
LJMP 0392H
SUBB A,R0
JNC 0CAH
MOV 82H,A
MOV A,R1
ADD A,R1
ORL A,R3
ORL A,R2
JNZ 05H
MOV R3,82H
LJMP 0381H
MOV 0F0H,#00H
MOV R4,#1AH
MOV R0,#80H
CLR C
MOV A,R7
SUBB A,R3
MOV A,R6
SUBB A,R2
MOV A,R5
SUBB A,R1
JC 0DH
CLR C
MOV A,R7
SUBB A,R3
MOV R7,A
MOV A,R6
SUBB A,R2
MOV R6,A
MOV A,R5
SUBB A,R1
MOV R5,A
MOV A,R0
ORL 0F0H,A
DJNZ R4,23H
MOV R4,0F0H
POP 0E0H
MOV R7,A
POP 0E0H
MOV R6,A
POP 0E0H
MOV R5,A
MOV R3,82H
JB 0E7H,10H
DEC R3
MOV A,R3
JZ 0BAH
MOV A,R4
ADD A,R4
MOV R4,A
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
RLC A
MOV R5,A
LJMP 036DH
MOV A,R0
RR A
MOV R0,A
JNB 0E7H,05H
PUSH 0F0H
MOV 0F0H,#00H
MOV A,R7
ADD A,R7
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
RLC A
MOV R5,A
JC 0B8H
JNB 0E7H,0C2H
SJMP 0AAH
MOV A,#0F8H
XCH A,R4
XRL A,#80H
XCH A,R4
XCH A,R0
XRL A,#80H
XCH A,R0
MOV 82H,A
INC A
JZ 43H
CLR C
MOV A,R3
SUBB A,R7
MOV 0F0H,A
MOV A,R2
SUBB A,R6
ORL 0F0H,A
MOV A,R1
SUBB A,R5
ORL 0F0H,A
MOV A,R0
SUBB A,R4
ORL A,0F0H
JZ 30H
JNC 18H
MOV A,82H
ANL A,R7
MOV R7,A
MOV A,82H
CPL A
ADD A,R3
ANL A,82H
MOV R3,A
JNC 21H
INC R2
CJNE R2,#00H,1DH
INC R1
CJNE R1,#00H,19H
INC R0
SJMP 16H
MOV A,82H
ANL A,R3
MOV R3,A
MOV A,82H
CPL A
ADD A,R7
ANL A,82H
MOV R7,A
JNC 09H
INC R6
CJNE R6,#00H,05H
INC R5
CJNE R5,#00H,01H
INC R4
CLR C
MOV A,R3
SUBB A,R7
MOV 0F0H,A
MOV A,R2
SUBB A,R6
ORL 0F0H,A
MOV A,R1
SUBB A,R5
ORL 0F0H,A
MOV A,R0
SUBB A,R4
ORL A,0F0H
JZ 07H
XCH A,R4
ORL A,R0
JB 0E7H,01H
CPL C
MOV A,R4
RET
MOV A,R5
RLC A
MOV A,R4
RLC A
JZ 0AH
INC A
JNZ 03H
CJNE R5,#80H,04H
MOV A,R4
CPL 0E7H
MOV R4,A
RET
MOV A,R5
SETB 0E7H
XCH A,R5
RLC A
MOV A,R4
RLC A
MOV 0D5H,C
ADD A,#81H
JC 06H
CLR A
MOV R7,A
MOV R6,A
MOV R5,A
MOV R4,A
RET
MOV R4,A
CLR A
XCH A,R7
XCH A,R6
XCH A,R5
XCH A,R4
ADD A,#0E0H
JNC 11H
MOV A,#0FFH
SJMP 0EDH
CLR C
XCH A,R4
RRC A
XCH A,R4
XCH A,R5
RRC A
XCH A,R5
XCH A,R6
RRC A
XCH A,R6
XCH A,R7
RRC A
XCH A,R7
INC A
JNZ 0F0H
JNB 0D5H,0DEH
LJMP 058AH
MOV A,R1
SETB 0E7H
XCH A,R1
RLC A
MOV A,R0
RLC A
MOV R0,A
MOV 0D5H,C
MOV A,R5
SETB 0E7H
XCH A,R5
RLC A
MOV A,R4
RLC A
MOV R4,A
JNC 02H
CPL 0D5H
RET
MOV A,R4
JNB 0E7H,10H
INC R7
CJNE R7,#00H,0CH
INC R6
CJNE R6,#00H,08H
INC R5
CJNE R5,#00H,04H
INC R3
MOV A,R3
JZ 14H
MOV C,0D5H
MOV A,R3
RRC A
MOV R4,A
MOV A,R5
MOV 0E7H,C
MOV R5,A
RET
MOV A,#0FFH
MOV R4,A
MOV R5,A
MOV R6,A
MOV R7,A
RET
CLR A
SJMP 0F8H
MOV C,0D5H
MOV A,#0FFH
RRC A
MOV R4,A
MOV R5,#80H
CLR A
SJMP 0EFH
MOV 0F0H,#20H
SJMP 0EH
MOV 0F0H,#10H
SJMP 05H
MOV 0F0H,#08H
MOV R5,#00H
MOV R6,#00H
MOV R7,#00H
RLC A
MOV 0D5H,C
JNB 0D5H,03H
LCALL 058AH
MOV A,R4
RLC A
JC 10H
MOV A,R7
RLC A
MOV R7,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R5
RLC A
MOV R5,A
MOV A,R4
RLC A
MOV R4,A
DJNZ 0F0H,0EDH
RET
MOV A,0F0H
ADD A,#7EH
MOV C,0D5H
RRC A
XCH A,R4
MOV 0E7H,C
XCH A,R5
XCH A,R6
MOV R7,A
RET
ADDC A,R7
SJMP 00H
NOP
AJMP 220H
NOP
NOP
ORL 0C8H,A
NOP
NOP
ORL A,#7AH
NOP
NOP
ORL A,@R0
DEC R4
JC 00H
ORL A,@R1
CLR C
JNC 00H
ORL A,R1
MOV A,#24H
NOP
ORL A,R3
DEC R0
SUBB A,@R0
SJMP 4CH
CJNE R6,#0BCH,20H
ANL A,R2
INC R6
DEC R3
XCH A,R2
XRL A,@R1
ANL 0C2H,#1CH
MOV A,#9DH
XCH A,0AEH
MOV R3,A
JZ 06H
ANL A,#07H
JZ 1CH
RL A
RL A
LCALL 043CH
MOV A,R3
ANL A,#38H
JZ 09H
LCALL 0428H
LCALL 0437H
LCALL 00FBH
MOV A,R4
MOV R0,A
MOV A,R5
MOV R1,A
MOV A,R6
MOV R2,A
MOV A,R7
XCH A,R3
RET
MOV A,R3
LCALL 0437H
SJMP 0F1H
ANL A,#38H
RR A
ADD A,#1CH
MOV DPTR, #03DEH
MOV R6,A
MOVC A,@A+DPTR
MOV R4,A
INC R6
MOV A,R6
MOVC A,@A+DPTR
MOV R5,A
INC R6
MOV A,R6
MOVC A,@A+DPTR
INC R6
XCH A,R6
MOVC A,@A+DPTR
MOV R7,A
RET
MOV A,@R1
INC R1
MOV @R0,A
INC R0
DJNZ R7,0FAH
SJMP 46H
MOV A,@R1
INC R1
MOVX @R0,A
INC R0
DJNZ R7,0FAH
SJMP 3EH
MOV 82H,R0
MOV 83H,R4
MOV A,@R1
INC R1
MOVX @DPTR,A
INC DPTR
DJNZ R7,0FAH
SJMP 32H
MOVX A,@R1
INC R1
MOV @R0,A
INC R0
DJNZ R7,0FAH
SJMP 78H
MOVX A,@R1
INC R1
MOVX @R0,A
INC R0
DJNZ R7,0FAH
SJMP 70H
MOV 82H,R0
MOV 83H,R4
MOVX A,@R1
INC R1
MOVX @DPTR,A
INC DPTR
DJNZ R7,0FAH
SJMP 64H
MOV 82H,R1
MOV 83H,R2
MOVX A,@DPTR
INC DPTR
MOV @R0,A
INC R0
DJNZ R7,0FAH
SJMP 58H
MOV 82H,R1
MOV 83H,R2
MOVX A,@DPTR
INC DPTR
MOVX @R0,A
INC R0
DJNZ R7,0FAH
SJMP 4CH
SJMP 0D2H
SJMP 0FAH
SJMP 0C6H
SJMP 0D4H
SJMP 69H
SJMP 0F2H
SJMP 33H
SJMP 10H
SJMP 0A6H
SJMP 0EAH
SJMP 9AH
SJMP 0A8H
SJMP 0DAH
SJMP 0E2H
SJMP 0CAH
SJMP 33H
MOV 82H,R1
MOV 83H,R2
MOV A,R4
MOV R2,A
CLR A
MOVC A,@A+DPTR
INC DPTR
XCH A,R0
XCH A,82H
XCH A,R0
XCH A,R4
XCH A,83H
XCH A,R4
MOVX @DPTR,A
INC DPTR
XCH A,R0
XCH A,82H
XCH A,R0
XCH A,R4
XCH A,83H
XCH A,R4
DJNZ R7,0E9H
DJNZ R6,0E7H
SJMP 0DH
MOV 82H,R1
MOV 83H,R2
CLR A
MOVC A,@A+DPTR
INC DPTR
MOV @R0,A
INC R0
DJNZ R7,0F9H
MOV A,R4
MOV R2,A
MOV R1,0F0H
MOV A,R5
MOV R3,A
RET
MOV 82H,R1
MOV 83H,R2
MOV A,R4
MOV R2,A
MOVX A,@DPTR
INC DPTR
XCH A,R0
XCH A,82H
XCH A,R0
XCH A,R4
XCH A,83H
XCH A,R4
MOVX @DPTR,A
INC DPTR
XCH A,R0
XCH A,82H
XCH A,R0
XCH A,R4
XCH A,83H
XCH A,R4
DJNZ R7,0EAH
DJNZ R6,0E8H
SJMP 0DBH
MOV 82H,R1
MOV 83H,R2
CLR A
MOVC A,@A+DPTR
INC DPTR
MOVX @R0,A
INC R0
DJNZ R7,0F9H
SJMP 0CCH
MOV 0F0H,R0
MOV A,R7
JZ 01H
INC R6
ORL A,R6
JZ 0C3H
MOV 0F0H,R0
MOV A,R5
ADD A,#02H
CJNE A,#04H,00H
JNC 0B9H
MOV 82H,A
MOV A,R3
ADD A,#02H
CJNE A,#04H,00H
JNC 0AFH
RL A
RL A
ORL A,82H
RL A
MOV DPTR, #049EH
JMP @A+DPTR
CJNE R3,#01H,06H
MOV 82H,R1
MOV 83H,R2
MOVX A,@DPTR
RET
JNC 02H
MOV A,@R1
RET
CJNE R3,#0FEH,02H
MOVX A,@R1
RET
MOV 82H,R1
MOV 83H,R2
CLR A
MOVC A,@A+DPTR
RET
CJNE R3,#01H,0CH
MOV A,82H
ADD A,R1
MOV 82H,A
MOV A,83H
ADDC A,R2
MOV 83H,A
MOVX A,@DPTR
RET
JNC 06H
MOV A,R1
ADD A,82H
MOV R0,A
MOV A,@R0
RET
CJNE R3,#0FEH,06H
MOV A,R1
ADD A,82H
MOV R0,A
MOVX A,@R0
RET
MOV A,82H
ADD A,R1
MOV 82H,A
MOV A,83H
ADDC A,R2
MOV 83H,A
CLR A
MOVC A,@A+DPTR
RET
CLR C
CLR A
SUBB A,R7
MOV R7,A
CLR A
SUBB A,R6
MOV R6,A
CLR A
SUBB A,R5
MOV R5,A
CLR A
SUBB A,R4
MOV R4,A
RET
MOV A,R3
SUBB A,R7
MOV 0F0H,A
MOV A,R2
SUBB A,R6
ORL 0F0H,A
MOV A,R1
SUBB A,R5
ORL 0F0H,A
MOV A,R4
XRL A,#80H
XCH A,R0
XRL A,#80H
SUBB A,R0
ORL A,0F0H
RET
MOV A,R3
SUBB A,R7
MOV 0F0H,A
MOV A,R2
SUBB A,R6
ORL 0F0H,A
MOV A,R1
SUBB A,R5
ORL 0F0H,A
MOV A,R0
SUBB A,R4
ORL A,0F0H
RET
MOV R2,A
MOV A,@R0
MOV R3,A
INC R0
INC R0
MOV A,@R0
MOV R1,A
ADD A,0F0H
MOV @R0,A
DEC R0
MOV A,@R0
XCH A,R2
ADDC A,R2
MOV @R0,A
RET
MOV 36H,R7
MOV 35H,R6
MOV 34H,R5
MOV 33H,R4
MOV 45H,#20H
MOV 44H,#0BCH
MOV 43H,#0BEH
MOV 42H,#4CH
CLR A
MOV 4AH,A
MOV 4BH,A
MOV R7,A
MOV R6,A
MOV R5,A
MOV R4,A
MOV R3,36H
MOV R2,35H
MOV R1,34H
MOV R0,33H
LCALL 02A1H
MOV R7,4BH
JC 0AH
INC 4BH
MOV A,#37H
ADD A,R7
MOV R0,A
MOV @R0,#20H
SJMP 1BH
INC 4BH
MOV A,#37H
ADD A,R7
MOV R0,A
MOV @R0,#2DH
MOV R7,36H
MOV R6,35H
MOV R5,34H
MOV R4,33H
LCALL 030EH
MOV 36H,R7
MOV 35H,R6
MOV 34H,R5
MOV 33H,R4
MOV R7,45H
MOV R6,44H
MOV R5,43H
MOV R4,42H
MOV R3,36H
MOV R2,35H
MOV R1,34H
MOV R0,33H
LCALL 02A1H
JC 0DH
MOV R7,4BH
INC 4BH
MOV A,#37H
ADD A,R7
MOV R0,A
MOV @R0,#45H
LJMP 0781H
CLR C
MOV A,4BH
XRL A,#80H
SUBB A,#8AH
JC 03H
LJMP 0781H
CLR A
MOV R7,A
MOV R6,A
MOV R5,#80H
MOV R4,#3FH
MOV R3,45H
MOV R2,44H
MOV R1,43H
MOV R0,42H
LCALL 02A1H
JZ 02H
JNC 18H
MOV R7,#95H
MOV R6,#0BFH
MOV R5,#0D6H
MOV R4,#33H
MOV R3,36H
MOV R2,35H
MOV R1,34H
MOV R0,33H
LCALL 02A1H
JNC 03H
LJMP 0781H
MOV R7,45H
MOV R6,44H
MOV R5,43H
MOV R4,42H
CLR A
MOV R3,A
MOV R2,A
MOV R1,#20H
MOV R0,#41H
LCALL 0204H
MOV 45H,R7
MOV 44H,R6
MOV 43H,R5
MOV 42H,R4
MOV R3,45H
MOV R2,44H
MOV R1,43H
MOV R0,42H
MOV R7,36H
MOV R6,35H
MOV R5,34H
MOV R4,33H
LCALL 0204H
LCALL 098BH
MOV 49H,R7
MOV 48H,R6
MOV 47H,R5
MOV 46H,R4
CLR A
MOV R7,A
MOV R6,A
MOV R5,#80H
MOV R4,#3FH
MOV R3,45H
MOV R2,44H
MOV R1,43H
MOV R0,42H
LCALL 02A1H
JNC 21H
MOV R7,#0AH
MOV R6,#0D7H
MOV R5,#23H
MOV R4,#3CH
MOV R3,45H
MOV R2,44H
MOV R1,43H
MOV R0,42H
LCALL 02A1H
JZ 0CH
JC 0AH
MOV R7,4BH
INC 4BH
MOV A,#37H
ADD A,R7
MOV R0,A
MOV @R0,#2EH
CLR A
MOV R7,A
MOV R6,A
MOV R5,A
MOV R4,A
MOV R3,49H
MOV R2,48H
MOV R1,47H
MOV R0,46H
LCALL 02A1H
JNZ 13H
MOV R7,A
MOV R6,A
MOV R5,#20H
MOV R4,#41H
MOV R3,45H
MOV R2,44H
MOV R1,43H
MOV R0,42H
LCALL 02A1H
JNC 24H
CLR A
MOV R7,A
MOV R6,A
MOV R5,#40H
MOV R4,#42H
MOV R3,49H
MOV R2,48H
MOV R1,47H
MOV R0,46H
LCALL 000AH
LCALL 031FH
MOV R6,4BH
INC 4BH
MOV A,#37H
ADD A,R6
MOV R0,A
MOV @R0,07H
MOV 4AH,#01H
SJMP 0EH
MOV A,4AH
JZ 0AH
MOV R7,4BH
INC 4BH
MOV A,#37H
ADD A,R7
MOV R0,A
MOV @R0,#30H
MOV R7,36H
MOV R6,35H
MOV R5,34H
MOV R4,33H
PUSH 04H
PUSH 05H
PUSH 06H
PUSH 07H
MOV R7,45H
MOV R6,44H
MOV R5,43H
MOV R4,42H
MOV R3,49H
MOV R2,48H
MOV R1,47H
MOV R0,46H
LCALL 00FBH
MOV R0,04H
MOV R1,05H
MOV R2,06H
MOV R3,07H
POP 07H
POP 06H
POP 05H
POP 04H
LCALL 0006H
MOV 36H,R7
MOV 35H,R6
MOV 34H,R5
MOV 33H,R4
LJMP 0642H
MOV A,#37H
ADD A,4BH
MOV R0,A
CLR A
MOV @R0,A
MOV R3,A
MOV R2,#00H
MOV R1,#37H
LJMP 0C61H
CLR 0A0H
JB 0A0H,40H
JB 0A4H,0CH
JB 0A4H,05H
JNB 0A4H,0FAH
SJMP 0F8H
MOV R7,#31H
SJMP 0F1H
JB 0A5H,0CH
JB 0A5H,05H
JNB 0A5H,0FAH
SJMP 0F8H
MOV R7,#34H
SJMP 0F1H
JB 0A6H,0CH
JB 0A6H,05H
JNB 0A6H,0FAH
SJMP 0F8H
MOV R7,#37H
SJMP 0F1H
JB 0A7H,0CH
JB 0A7H,05H
JNB 0A7H,0FAH
SJMP 0F8H
MOV R7,#2EH
SJMP 0F1H
SETB 0A0H
SJMP 0BDH
CLR 0A1H
JB 0A1H,40H
JB 0A4H,0CH
JB 0A4H,05H
JNB 0A4H,0FAH
SJMP 0F8H
MOV R7,#32H
SJMP 0F1H
JB 0A5H,0CH
JB 0A5H,05H
JNB 0A5H,0FAH
SJMP 0F8H
MOV R7,#35H
SJMP 0F1H
JB 0A6H,0CH
JB 0A6H,05H
JNB 0A6H,0FAH
SJMP 0F8H
MOV R7,#38H
SJMP 0F1H
JB 0A7H,0CH
JB 0A7H,05H
JNB 0A7H,0FAH
SJMP 0F8H
MOV R7,#30H
SJMP 0F1H
SETB 0A1H
SJMP 0BDH
CLR 0A2H
JB 0A2H,40H
JB 0A4H,0CH
JB 0A4H,05H
JNB 0A4H,0FAH
SJMP 0F8H
MOV R7,#33H
SJMP 0F1H
JB 0A5H,0CH
JB 0A5H,05H
JNB 0A5H,0FAH
SJMP 0F8H
MOV R7,#36H
SJMP 0F1H
JB 0A6H,0CH
JB 0A6H,05H
JNB 0A6H,0FAH
SJMP 0F8H
MOV R7,#39H
SJMP 0F1H
JB 0A7H,0CH
JB 0A7H,05H
JNB 0A7H,0FAH
SJMP 0F8H
MOV R7,#3DH
SJMP 0F1H
SETB 0A2H
SJMP 0BDH
CLR 0A3H
JB 0A3H,40H
JB 0A4H,0CH
JB 0A4H,05H
JNB 0A4H,0FAH
SJMP 0F8H
MOV R7,#2FH
SJMP 0F1H
JB 0A5H,0CH
JB 0A5H,05H
JNB 0A5H,0FAH
SJMP 0F8H
MOV R7,#2AH
SJMP 0F1H
JB 0A6H,0CH
JB 0A6H,05H
JNB 0A6H,0FAH
SJMP 0F8H
MOV R7,#2DH
SJMP 0F1H
JB 0A7H,0CH
JB 0A7H,05H
JNB 0A7H,0FAH
SJMP 0F8H
MOV R7,#2BH
SJMP 0F1H
SETB 0A3H
SJMP 0BDH
RET
CLR 01H
CLR 02H
CLR 03H
CLR 04H
MOV R1,A
CLR A
MOV 35H,A
MOV 36H,A
MOV R4,A
MOV R5,A
MOV R6,A
MOV R7,A
MOV A,R1
JBC 00H,0EAH
JB 03H,0CH
CJNE A,#2DH,04H
SETB 03H
SETB C
RET
CJNE A,#2BH,02H
SETB C
RET
ADD A,#0D0H
JNC 47H
SUBB A,#09H
JNC 41H
ADD A,#0AH
JNB 04H,15H
MOV R0,A
MOV 0F0H,36H
MOV A,#0AH
MUL AB
ADD A,R0
ORL C,0E7H
JC 51H
XCH A,0F0H
JNZ 4DH
MOV 36H,0F0H
SETB C
RET
SETB 02H
PUSH 0E0H
CLR A
MOV R3,A
MOV R2,A
MOV R1,#20H
MOV R0,#41H
LCALL 00FBH
MOV A,R4
MOV R0,A
MOV A,R5
MOV R1,A
MOV A,R6
MOV R2,A
MOV A,R7
MOV R3,A
POP 0E0H
MOV R4,A
CLR A
LCALL 03AAH
LCALL 000AH
JNB 01H,0B4H
DEC 35H
SETB C
RET
ADD A,#0AH
JB 04H,20H
CJNE A,#0FEH,07H
JB 01H,1AH
SETB 01H
SETB C
RET
ADD A,#0EBH
JZ 04H
ADD A,#0E0H
JNZ 0EH
MOV C,03H
MOV 01H,C
SETB 04H
CLR 03H
SETB C
RET
CLR C
LJMP 038BH
CLR A
JNB 04H,0BH
MOV A,36H
JNB 03H,02H
CPL A
INC A
MOV C,01H
MOV 03H,C
JNB 02H,0EAH
ADD A,35H
JB 0D2H,0E5H
MOV C,0E7H
MOV 04H,C
JNC 02H
CPL A
INC A
CJNE A,#26H,00H
JNC 0D8H
XCH A,R4
PUSH 0E0H
MOV A,R5
PUSH 0E0H
MOV A,R6
PUSH 0E0H
MOV A,R7
PUSH 0E0H
MOV A,R4
LCALL 040EH
POP 0E0H
MOV R7,A
POP 0E0H
MOV R6,A
POP 0E0H
MOV R5,A
POP 0E0H
MOV R4,A
JB 04H,05H
LCALL 00FBH
SJMP 03H
LCALL 0204H
JNB 03H,03H
LCALL 030EH
CLR C
RET
MOV 4FH,R7
MOV 4EH,R6
MOV 4DH,R5
MOV 4CH,R4
MOV A,#0FFH
MOV R7,A
MOV R6,A
MOV R5,A
MOV R4,A
MOV R3,4FH
MOV R2,4EH
MOV R1,4DH
MOV R0,4CH
CLR C
LCALL 05AEH
JZ 2CH
MOV R7,#80H
MOV R6,#96H
MOV R5,#18H
MOV R4,#4BH
MOV R3,4FH
MOV R2,4EH
MOV R1,4DH
MOV R0,4CH
LCALL 02A1H
JZ 02H
JNC 15H
MOV R7,#80H
MOV R6,#96H
MOV R5,#18H
MOV R4,#0CBH
MOV R3,4FH
MOV R2,4EH
MOV R1,4DH
MOV R0,4CH
LCALL 02A1H
JNC 09H
MOV R7,4FH
MOV R6,4EH
MOV R5,4DH
MOV R4,4CH
RET
MOV R7,4FH
MOV R6,4EH
MOV R5,4DH
MOV R4,4CH
LCALL 031FH
MOV 53H,R7
MOV 52H,R6
MOV 51H,R5
MOV 50H,R4
MOV A,R4
LCALL 03A0H
XCH A,R0
MOV A,R4
XCH A,R0
XCH A,R1
MOV A,R5
XCH A,R1
XCH A,R2
MOV A,R6
XCH A,R2
XCH A,R3
MOV A,R7
XCH A,R3
MOV R7,4FH
MOV R6,4EH
MOV R5,4DH
MOV R4,4CH
LCALL 0006H
CLR A
MOV R3,A
MOV R2,A
MOV R1,A
MOV R0,A
LCALL 02A1H
JZ 1AH
JC 18H
MOV A,#0FFH
ADD A,53H
MOV 53H,A
MOV A,52H
ADDC A,#0FFH
MOV 52H,A
MOV A,51H
ADDC A,#0FFH
MOV 51H,A
MOV A,50H
ADDC A,#0FFH
MOV 50H,A
MOV R7,53H
MOV R6,52H
MOV R5,51H
MOV R4,50H
MOV A,R4
LCALL 03A0H
RET
CLR A
MOV 32H,A
MOV A,R7
ADD A,#0D6H
JZ 36H
ADD A,#0FDH
JZ 1DH
ADD A,#0FEH
JZ 43H
ADD A,#04H
JNZ 71H
MOV R7,0FH
MOV R6,0EH
MOV R5,0DH
MOV R4,0CH
MOV R3,0BH
MOV R2,0AH
MOV R1,09H
MOV R0,08H
LCALL 000AH
SJMP 4FH
MOV R7,0FH
MOV R6,0EH
MOV R5,0DH
MOV R4,0CH
MOV R3,0BH
MOV R2,0AH
MOV R1,09H
MOV R0,08H
LCALL 0006H
SJMP 3AH
MOV R7,0FH
MOV R6,0EH
MOV R5,0DH
MOV R4,0CH
MOV R3,0BH
MOV R2,0AH
MOV R1,09H
MOV R0,08H
LCALL 00FBH
SJMP 25H
CLR A
MOV R7,A
MOV R6,A
MOV R5,A
MOV R4,A
MOV R3,0BH
MOV R2,0AH
MOV R1,09H
MOV R0,08H
LCALL 02A1H
JZ 1DH
MOV R7,0FH
MOV R6,0EH
MOV R5,0DH
MOV R4,0CH
MOV R3,0BH
MOV R2,0AH
MOV R1,09H
MOV R0,08H
LCALL 0204H
MOV 0FH,R7
MOV 0EH,R6
MOV 0DH,R5
MOV 0CH,R4
SJMP 03H
MOV 32H,#02H
MOV A,32H
JNZ 0BH
MOV R7,0FH
MOV R6,0EH
MOV R5,0DH
MOV R4,0CH
LJMP 05CFH
MOV A,32H
CJNE A,#02H,09H
MOV R3,#0FFH
MOV R2,#0CH
MOV R1,#8BH
LCALL 0C61H
RET
CLR A
MOV 0FH,A
MOV 0EH,A
MOV 0DH,A
MOV 0CH,A
MOV 0BH,A
MOV 0AH,A
MOV 09H,A
MOV 08H,A
MOV 10H,A
MOV R7,A
MOV R6,A
MOV R5,A
MOV R4,A
LCALL 05CFH
CLR A
MOV 2DH,A
LCALL 0D5FH
MOV 2CH,R7
LCALL 0CCFH
MOV A,R7
JZ 21H
MOV A,2DH
XRL A,#08H
JZ 0EFH
MOV R7,2DH
INC 2DH
MOV A,#21H
ADD A,R7
MOV R0,A
MOV @R0,2CH
MOV A,#21H
ADD A,2DH
MOV R0,A
CLR A
MOV @R0,A
MOV R3,A
MOV R2,#00H
MOV R1,#21H
LCALL 0C61H
SJMP 0D4H
MOV A,2DH
JZ 2BH
MOV R3,#00H
MOV R2,#00H
MOV R1,#21H
LCALL 0BD6H
MOV 31H,R7
MOV 30H,R6
MOV 2FH,R5
MOV 2EH,R4
MOV A,10H
JNZ 0AH
MOV 0FH,R7
MOV 0EH,R6
MOV 0DH,R5
MOV 0CH,R4
SJMP 0CH
MOV 0BH,31H
MOV 0AH,30H
MOV 09H,2FH
MOV 08H,2EH
CLR A
MOV 2DH,A
MOV A,10H
JZ 04H
MOV R7,A
LCALL 0A3BH
MOV A,2CH
XRL A,#3DH
JZ 05H
MOV 10H,2CH
SJMP 8FH
CLR A
MOV 10H,A
SJMP 8AH
MOV R0,#21H
MOV R4,#00H
MOV R5,#00H
MOV R3,#0FFH
MOV R2,#0CH
MOV R1,#9AH
MOV R6,#00H
MOV R7,#0BH
LCALL 051EH
MOV R0,#2CH
MOV R4,#00H
MOV R5,#00H
MOV R3,#0FFH
MOV R2,#0CH
MOV R1,#0A5H
MOV R6,#00H
MOV R7,#0EH
LCALL 051EH
LCALL 0D3CH
CLR A
MOV 3AH,A
MOV A,#21H
ADD A,3AH
MOV R0,A
MOV A,@R0
MOV R7,A
JZ 07H
LCALL 0CFFH
INC 3AH
SJMP 0F0H
MOV R7,#28H
MOV R6,#23H
MOV R5,#00H
MOV R4,#00H
LCALL 0C1EH
CLR A
MOV 3AH,A
MOV A,#2CH
ADD A,3AH
MOV R0,A
MOV A,@R0
MOV R7,A
JZ 07H
LCALL 0CFFH
INC 3AH
SJMP 0F0H
MOV R7,#28H
MOV R6,#23H
MOV R5,#00H
MOV R4,#00H
LJMP 0C1EH
SETB 00H
MOV 32H,R3
MOV 33H,R2
MOV 34H,R1
LCALL 0C12H
PUSH 0E0H
MOV R7,A
LCALL 0D29H
POP 0E0H
JC 0F3H
LCALL 08B8H
JC 01H
RET
MOV A,R4
PUSH 0E0H
MOV A,R5
PUSH 0E0H
MOV A,R6
PUSH 0E0H
MOV A,R7
PUSH 0E0H
LCALL 0C12H
POP 0F0H
MOV R7,0F0H
POP 0F0H
MOV R6,0F0H
POP 0F0H
MOV R5,0F0H
POP 0F0H
MOV R4,0F0H
SJMP 0D9H
CLR A
MOV 0F0H,#01H
MOV R0,#32H
LCALL 05BFH
LJMP 0544H
MOV 53H,R7
MOV 52H,R6
MOV 51H,R5
MOV 50H,R4
CLR A
MOV 57H,A
MOV 56H,A
MOV 55H,A
MOV 54H,A
MOV R7,53H
MOV R6,52H
MOV R5,51H
MOV R4,50H
MOV R3,57H
MOV R2,56H
MOV R1,55H
MOV R0,54H
SETB C
LCALL 0598H
JNC 1BH
CLR A
MOV R2,A
MOV R1,A
MOV R0,A
MOV A,57H
ADD A,#01H
MOV 57H,A
MOV A,R2
ADDC A,56H
MOV 56H,A
MOV A,R1
ADDC A,55H
MOV 55H,A
MOV A,R0
ADDC A,54H
MOV 54H,A
SJMP 0CFH
RET
MOV 4CH,R3
MOV 4DH,R2
MOV 4EH,R1
LCALL 0D3CH
CLR A
MOV 4FH,A
MOV R3,4CH
MOV R2,4DH
MOV R1,4EH
MOV R7,4FH
MOV A,R7
RLC A
SUBB A,0E0H
MOV 82H,R7
MOV 83H,A
LCALL 055DH
MOV R7,A
JZ 07H
LCALL 0D14H
INC 4FH
SJMP 0E3H
RET
ADD A,R2
ORL 4FH,A
ORL A,R4
ORL A,R5
ORL A,20H
ORL A,R0
AJMP 254H
AJMP 253H
ORL A,R1
ADD A,R2
NOP
ORL A,@R0
AJMP 254H
ORL A,R1
ORL A,R0
JB 20H,20H
JB 20H,00H
ANL A,R1
ORL A,R1
ORL A,R4
ORL A,#49H
ANL 49H,A
ORL A,R5
JB 20H,20H
JB 20H,00H
MOV R7,#30H
MOV R6,#00H
LCALL 0CEAH
MOV R7,#0CH
MOV R6,#00H
LCALL 0CEAH
MOV R7,#07H
MOV R6,#00H
LCALL 0CEAH
MOV R7,#8FH
MOV R6,#00H
LJMP 0CEAH
MOV A,R7
XRL A,#2EH
JZ 10H
CLR C
MOV A,R7
XRL A,#80H
SUBB A,#0B0H
JC 0BH
SETB C
MOV A,R7
XRL A,#80H
SUBB A,#0B9H
JNC 03H
MOV R7,#01H
RET
MOV R7,#00H
RET
CLR 0B4H
CLR 0B1H
SETB 0B0H
MOV 90H,R7
CLR 0B0H
MOV R7,#96H
MOV R6,#00H
MOV R5,#00H
MOV R4,#00H
LJMP 0C1EH
SETB 0B4H
CLR 0B1H
SETB 0B0H
MOV 90H,R7
CLR 0B0H
MOV R7,#0E8H
MOV R6,#03H
MOV R5,#00H
MOV R4,#00H
LJMP 0C1EH
SETB 0B4H
CLR 0B1H
SETB 0B0H
MOV 90H,R7
CLR 0B0H
MOV R7,#32H
MOV R6,#00H
MOV R5,#00H
MOV R4,#00H
LJMP 0C1EH
MOV A,R7
CLR C
SUBB A,#09H
JC 05H
MOV A,R7
SUBB A,#0EH
JC 03H
CJNE R7,#20H,03H
SETB C
SJMP 01H
CLR C
RET
MOV R7,#01H
MOV R6,#00H
LCALL 0CEAH
MOV R7,#8FH
MOV R6,#00H
LJMP 0CEAH
MOV R0,#7FH
CLR A
MOV @R0,A
DJNZ R0,0FDH
MOV 81H,#57H
LJMP 0D56H
LCALL 0CB3H
LCALL 0B71H
LJMP 0ADEH
LCALL 0790H
MOV A,R7
JZ 0FAH
RET
END

3. Video Simulasi 
 
 

 

Subscribe to receive free email updates:

1 Response to "Kalkulator Berbasis AT89S51"

  1. Marsya26 April 2021 pukul 11.32

    Numpang promo ya Admin^^
    ajoqq^^cc
    mau dapat penghasil4n dengan cara lebih mudah....
    mari segera bergabung dengan kami... (k)
    di ajopk.com ^_~
    segera di add Whatshapp : +855969190856

    BalasHapus

Langganan: Posting Komentar (Atom)