Dibawah ini program akses Output.
'************************************************************
'Judul program: Akses Output
'Dibuat oleh: Deddy Prasetyo
'www.devalabnet.com
'************************************************************
'************************************************************
'inisialisasi
'************************************************************
' Tipe Mikrokontroller
$regfile = "m16def.dat"
' sumber clock 8 MHZ
$crystal = 8000000
' default bascom 32 untuk hardware stack
$hwstack = 32
' default bascom 10 untuk SW stack
$swstack = 10
' default bascom 40 untuk frame space
$framesize = 40
'************************************************************
'Setting Port
'************************************************************
'Port b sebagai Output
Config Portb = Output
'atau DDRB=255
'atau DDRB=&B11111111
'keterangan (1=OUTPUT 0=INPUT)
'************************************************************
'************************************************************
'Program utama
'************************************************************
'Perintah perulangan do-loop
Do
'data port byte model desimal
Portb = 255
Wait 1
Portb = 0
Wait 1
'data port byte model biner
Portb = &B1111111
Wait 1
Portb = &B0000000
Wait 1
'data port byte model hexa
Portb = $ff
Wait 1
Portb = $00
Wait 1
'data per bit model 1
Portb.0 = 1
Wait 1
Portb.0 = 0
Wait 1
'data per bit model 2
Set Portb.0
Wait 1
Reset Portb.0
Wait 1
Loop
'************************************************************
'Penjelasan program
'************************************************************
'program diatas merupakan contoh mengeluarkan data output dengan berbagai cara
'Judul program: Akses Output
'Dibuat oleh: Deddy Prasetyo
'www.devalabnet.com
'************************************************************
'************************************************************
'inisialisasi
'************************************************************
' Tipe Mikrokontroller
$regfile = "m16def.dat"
' sumber clock 8 MHZ
$crystal = 8000000
' default bascom 32 untuk hardware stack
$hwstack = 32
' default bascom 10 untuk SW stack
$swstack = 10
' default bascom 40 untuk frame space
$framesize = 40
'************************************************************
'Setting Port
'************************************************************
'Port b sebagai Output
Config Portb = Output
'atau DDRB=255
'atau DDRB=&B11111111
'keterangan (1=OUTPUT 0=INPUT)
'************************************************************
'************************************************************
'Program utama
'************************************************************
'Perintah perulangan do-loop
Do
'data port byte model desimal
Portb = 255
Wait 1
Portb = 0
Wait 1
'data port byte model biner
Portb = &B1111111
Wait 1
Portb = &B0000000
Wait 1
'data port byte model hexa
Portb = $ff
Wait 1
Portb = $00
Wait 1
'data per bit model 1
Portb.0 = 1
Wait 1
Portb.0 = 0
Wait 1
'data per bit model 2
Set Portb.0
Wait 1
Reset Portb.0
Wait 1
Loop
'************************************************************
'Penjelasan program
'************************************************************
'program diatas merupakan contoh mengeluarkan data output dengan berbagai cara