From d6c89d35e7982789d256c9a66c39685af537ebcc Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@mur.at>
Date: Tue, 5 Jun 2012 18:47:32 +0000
Subject: first working version of spi communication

git-svn-id: https://svn.spreadspace.org/mur.sat@503 7de4ea59-55d0-425e-a1af-a3118ea81d4c
---
 software/idm/idm.asm | 40 +++++++++++++++++++++-------------------
 1 file changed, 21 insertions(+), 19 deletions(-)

(limited to 'software/idm/idm.asm')

diff --git a/software/idm/idm.asm b/software/idm/idm.asm
index d2d68bc..34bfced 100644
--- a/software/idm/idm.asm
+++ b/software/idm/idm.asm
@@ -43,7 +43,7 @@ TMP  EQU H'0023'
   ;; -------------------------------------
   ;; Interrupts
   org       .4
-  clrf      BSR
+  movlb     b'00000000'
   btfsc     PIR1,SSP1IF
   goto      int_spi
   retfie
@@ -51,9 +51,12 @@ TMP  EQU H'0023'
 int_spi
   bsf       PORTA,7
   bcf       PIR1,SSP1IF
-  incf      TMP,f
-  movf      TMP,w
+  movlb     b'00000100'
+  movf      SSP1BUF,w
+  incf      INDF0,f
+  movf      INDF0,w
   movwf     SSP1BUF
+  movlb     b'00000000'
   bcf       PORTA,7
   retfie
 
@@ -61,43 +64,39 @@ int_spi
   ;; INIT
 init
   ;; BANK 4
-  movlw     b'00000100'
-  movwf     BSR
-  movlw     b'00100100'
-  movwf     SSP1CON1
+  movlb     b'00000100'
+  movlw     b'01000000'
+  movwf     SSP1STAT
   movlw     b'00010000'
   movwf     SSP1CON3
-  movlw     b'00000000'
-  movwf     SSP1STAT
+  movlw     b'00100100'
+  movwf     SSP1CON1
   
   ;; BANK 3
-  movlw     b'00000011'
-  movwf     BSR
+  movlb     b'00000011'
   clrf      ANSELA
   clrf      ANSELB
 
   ;; BANK 2
-  movlw     b'00000010'
-  movwf     BSR
+  movlb     b'00000010'
 
   ;; BANK 1
-  movlw     b'00000001'
-  movwf     BSR  
+  movlb     b'00000001'
   movlw     b'01111111'
   movwf     TRISA
   movlw     b'01110011'
   movwf     TRISB
 ;  movlw     b'01011000'                 ;  1 MHz
 ;  movlw     b'01100000'                 ;  2 MHz
-;  movlw     b'01101000'                 ;  4 MHz
+  movlw     b'01101000'                 ;  4 MHz
 ;  movlw     b'01110000'                 ;  8 MHz
-  movlw     b'01111000'                 ; 16 MHz
+;  movlw     b'01111000'                 ; 16 MHz
   movwf     OSCCON
   movlw     b'00001000'
   movwf     PIE1
   
   ;; BANK 0
-  clrf      BSR
+  movlb     b'00000000'
   clrf      PIR1
   movlw     b'11000000'
   movwf     INTCON
@@ -105,7 +104,10 @@ init
 
   bcf       PORTB,3
   
-  clrf      TMP
+  clrf      FSR0H
+  movlw     TMP
+  movwf     FSR0H
+  clrf      INDF0
   
   ;; -------------------------------------
   ;; MAINLOOP
-- 
cgit v1.2.3