Changeset 53d1ddc in avrstuff

Timestamp:

Oct 29, 2010, 6:24:23 PM (14 years ago)

Author:

Adrien Destugues <pulkomandy@…>

Branches:

main

Children:

741c0b9

Parents:

1dc9759

Message:

Now it is possible to assemble the code (with AVRA)

git-svn-id: ​svn://pulkomandy.tk/avrstuff@27 c6672c3c-f6b6-47f9-9001-1fd6b12fecbe

Location:

CPC stuff/cpc_serial_2313/code

Files:

• 2313def.inc (added)
• main.asm (modified) (6 diffs)

CPC stuff/cpc_serial_2313/code/main.asm

@@ -2 +2 @@
 ; Copyright 2010, Adrien Destugues <pulkomandy@pulkomandy.ath.cx>
 ; Distributed under the terms of the MIT Licence
+.INCLUDE "2313def.inc"
 
 ; Firmware for µSerial expansion board
 
+.EQU ALL_OUT = 255
+.EQU ALL_IN = 0
+
+.EQU DATADIR = DDRB
+.EQU DATAOUT = PORTB
+.EQU DATAIN = PINB
+
+.EQU CTRLIN = PIND
+.EQU A0 = PIND4
+
+.EQU curregbak = SRAM_START
+
+.CSEG
 ; Vectors
 ; reset
+        RJMP init
 ; int0
         RJMP cpc_write
@@ -24 +39 @@
 
 ; --- READ INTERRUPT ---
-cpc_read
+cpc_read:
 ; That means we only have 5 cycles left to output the value on the BUS!
 ; We have no time to do anything, so we assume that X is already pointing at
@@ -38 +53 @@
 ; We assume X (R26:R27) points to the current reg
 ; So we can load it and react fast enough to the interrupt
-        LDI R0,ALL_OUT ; 1 ; peut être économisé si on sacrifie un reg
+        LDI R16,ALL_OUT ; 1 ; peut être économisé si on sacrifie un reg
         OUT DATADIR,R0 ; 1
-        LD R27,(X)                      ; 2 cycles ; peut être économisé si un reg. contient
+        LD R27,X                        ; 2 cycles ; peut être économisé si un reg. contient
                                                                         ; déjà la valeur à envoyer
                                                                         ; (mais qui l'update ?)
-        OUT DATA, R27           ; 1 cycle
+        OUT DATAOUT, R27                ; 1 cycle
 
 ; Here data is sent, the CPC read operation is handled.
@@ -53 +68 @@
 
 ; Restore R27
-        LD R27,curregbak
-        LD R27,(X)
+        LDI R27,curregbak
+        LD R27,X
 
 ; release the bus
-        LDI R0,ALL_IN
-        OUT DATADIR, R0
+        LDI R16,ALL_IN
+        OUT DATADIR, R16
 
 ; Restore R27 to selected reg. (we erased it to do the OUT)
         RETI
 
+
 ; --- WRITE INTERRUPT ---
-cpc_write
+cpc_write:
 ; The timing is a bit less constraining here.
         PUSH R0
-        IN R0,DATA
+        IN R0,DATAIN
 ; we also need to know A0 state...
-        SBIS CTRL,A0
+        SBIS CTRLIN,A0
                 ; This was actually a reg select operation!
                 ; Jump to the proper code
@@ -79 +95 @@
         RJMP intEnd
 
-regSel
-        LD R27,curregbak
-        ST (X),R0
+regSel:
+        LDI R27,curregbak
+        ST X,R0
         MOV R27,R0
 
+intEnd:
         POP R0
         RETI
@@ -92 +109 @@
 ; At a bare minimum :
 ; * Set up the INT0 and INT1 so the CPC can do the rest of the setup itself
+init:
+        RJMP init