program ring conter microkontroller

;*****************************************
;*program ring konter
;*diktat microcontroler PIC 16C5X
;*bakul microcontrolerA
;*praktikum
;*tgl. 28/10/09
;*****************************************


LISTP=16C54,F=INHX8M
;*****************************************
;REGISTER UMUM

---

;*****************************************
WQU000h;
INFEQU001h;
PORTAEQU005h;
PORTBEQU006h;


;REGISTER DATA 


TUNGGU1EQU010h;
TUNGGU2EQU011h;


;ALAMAT PROGRAM
ORG00H
GOTOONIT


;********************************************
;SUBRUTINE DELAY
;*******************************************


D10MOVLW0FAH
MOVWFTUNGGU1
D2MOVLW00CH
MOVWFTUNGGU2
D1DECFSZTUNGGU2,F
GOTOD1
DECFSZTUNGGU1,F
GOTOD2
RETLW000h


DISMOVLW064h
MOVWFTUNGGU1
D3CALLD10
GOTOD3
RETLW000h


;********************************************
;SUSUNAN OUTPUT/ INPUT PORT
;********************************************


;PORTA:__>SEMUA TIDAK TERPAKAI


;PORTB:
;PB7__>LED-1
;PB6__>LED-2
;PB5__>LED-3
;PB4__>LED-4
;PB4__>LED-5
;PB4__>LED-6
;PB4__>LED-7
;PB4__>LED-8
;********************************************
;INISIALISASI
;********************************************
INITMOVLW000h
TRISPORTB


;********************************************
;PROGRAM UTAMA
;********************************************
MULAIMOVLWb'100000000'
MOVWFPORTB
CALLDELAY
MOVLWb'010000000'
MOVWFPORTB
CALLDELAY
MOVLWb'001000000'
MOVWFPORTB
CALLDELAY


MOVLWb'000100000'
MOVWFPORTB'
CALLDELAY


MOVLWb'000010000'
MOVWFPORTB'
CALLDELAY


MOVLWb'000001000'
MOVWFPORTB'
CALLDELAY


MOVLWb'000000100'
MOVWFPORTB'
CALLDELAY


MOVLWb'000000010'
MOVWFPORTB'
CALLDELAY

MOVLWb'000000001'
MOVWFPORTB'
CALLDELAY


GOTOMULAI
END