JAM DIGITAL 7 Segment AT89s52 Ukuran PCB 100 mm x 100 mm program JAM DIGITAL 7 Segment AT89s52 menggunakan BASCOM 8051 $crystal = 12000000 ' ------------------------------------------alokasi memori-----------------------------------------' Dim Detik_sat As Byte , Detik_pul As Byte Dim Menit_sat As Byte , Menit_pul As Byte Dim Jam_sat As Byte , Jam_pul As Byte Dim X As Word , Data_segment As Byte '-----------------------------------Konfigurasi interupsi------------------------------------------' Porta Alias P2 Portd.0 Alias P3.0 Portd.1 Alias P3.1 Portd.2 Alias P3.2 Portd.3 Alias P3.3 Portd.4 Alias P3.4 Portd.5 Alias P3.5 Pinb.0 Alias P0.0 Pinb.1 Alias P0.1 Portd Alias P3 P2 = 255 P3 = 255 Portb Alias P0 P0 = 255 P1 = 0 '----------------------------------Program utama----------------------------------------------------' Do Gosub Baca_tombol ...