SAA1057/16F628A BASIC

SAA1057/16F628A

código básico en lenguage Basic:

Config  INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE 
  
LCD_DTPIN PORTB.0                    ;LCD datalijnen op b0 t/m B3
LCD_ENPIN PORTA.3                    ;LCD Enable op A.3
LCD_RSPIN PORTA.2                    ;LCD RS op B.4
LCD_INTERFACE 4                      ;4 draads interface
LCD_LINES 2

DELAYMS 500                   ;LCD stabilisering

CLS                           ;Wis scherm en zet cursor links bovenaan 
PRINT "1e regel"      ;Plaats tekst op het display


Symbol DTA                    = PORTA.4
Symbol CLK                    = PORTA.1
Symbol DLEN                   = PORTA.0
 
Dim DELER               As Word                 
Dim STAP                As Byte
     
' *** MAIN PROGRAM***

DelayMS 500
CLK = 0
DTA = 0
DLEN = 0
Delayus 5
DLEN = 1
Delayus 5
High CLK
Delayus 5
Low CLK
DelayUs 5 ;time before first clockpulse, tCLBlag1
SHOut DTA, CLK, msbfirst, [%0000011000010101] ;Output Word A 
SHOut DTA, CLK, msbfirst, [%1000010000000000] ;Output Word B 
DelayuS 2 ;time after last clock pulse, tDLENHold
DLEN = 0

End