;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; inf102 / SRAM SRM2B256SLMX55 TEST FOR 16F88
__CONFIG _CONFIG1, _CP_OFF & _CCP1_RB0 & _DEBUG_OFF & _WRT_PROTECT_OFF & _CPD_OFF & _LVP_OFF & _BODEN_OFF & _MCLR_OFF & _PWRTE_ON & _WDT_OFF & _INTRC_IO
__CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF
LIST P=PIC16F88
INCLUDE P16F88.INC
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CBLOCK 020h
CODEA
ENDC
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
BSF STATUS,RP0
CLRF OSCCON ; 31.25KHz
CLRF ANSEL
MOVLW 0XFF
MOVWF TRISA ; IOPORT INPUT MODE
CLRF TRISB ; 0=WE 1=OE 3=LED
BCF STATUS,RP0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;WRITE
BSF PORTB,0 ; OE,WE HI(output disable)
BSF PORTB,1
BSF STATUS,RP0 ; IOPORT OUT MODE
CLRF TRISA
BCF STATUS,RP0
MOVLW B'000000001'
MOVWF PORTA ; ADRESS 0H DATA 1write
BCF PORTB,0 ; WE LOW
BSF PORTB,0 ; WE HI
BSF STATUS,RP0 ; INPUT MODE
MOVLW 0XFF
MOVWF PORTA
BCF STATUS,RP0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
BCF PORTB,3 ; LED OFF
CLRF PORTA
;READ
BSF STATUS,RP0 ; INPUT MODE
MOVLW 0XFF
MOVWF PORTA
BCF STATUS,RP0
BCF PORTB,1 ; OE LOW
BSF PORTB,0 ; WE HI
MOVF PORTA,W ; ADRESS 0h DATA -> W
MOVWF CODEA
BTFSC CODEA,0 ; BIT0 [1] CHK.
BSF PORTB,3 ; LED ON
GOTO $
END