Small fixes by Christian Krüger.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5960 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/asminc/smc.inc b/asminc/smc.inc
index 42dcb1055b4ffc55c79540ffbacdc4f60a2cb747..ef710a30eecf11d2fcb33ca14e2065eb4267cac7 100644 (file)
--- a/asminc/smc.inc
+++ b/asminc/smc.inc
@@ -180,11 +180,11 @@ SMC_StoreValue label, register
 \r
 .macro SMC_TransferAddressSingle        label, address, register\r
 .if .paramcount = 2 .or .match ((register), a)\r
-        .if (.match (.left (1, {adress}), #))\r
+        .if (.match (.left (1, {address}), #))\r
                 ; immediate mode\r
-        lda     #<(.right (.tcount ({adress})-1, {adress}))\r
+        lda     #<(.right (.tcount ({address})-1, {address}))\r
                 sta _SMCDesignator+1\r
-        lda #>(.right (.tcount ({adress})-1, {adress}))\r
+        lda #>(.right (.tcount ({address})-1, {address}))\r
                 sta _SMCDesignator+2\r
     .else\r
         ; assume absolute or zero page\r
@@ -194,11 +194,11 @@ SMC_StoreValue label, register
                 sta _SMCDesignator+2\r
         .endif\r
 .elseif .match ((register), x)\r
-        .if (.match (.left (1, {adress}), #))\r
+        .if (.match (.left (1, {address}), #))\r
                 ; immediate mode\r
-        ldx     #<(.right (.tcount ({adress})-1, {adress}))\r
+        ldx     #<(.right (.tcount ({address})-1, {address}))\r
                 stx _SMCDesignator+1\r
-        ldx #>(.right (.tcount ({adress})-1, {adress}))\r
+        ldx #>(.right (.tcount ({address})-1, {address}))\r
                 stx _SMCDesignator+2\r
     .else\r
         ; assume absolute or zero page\r
@@ -208,11 +208,11 @@ SMC_StoreValue label, register
                 stx _SMCDesignator+2\r
         .endif\r
 .elseif .match ((register), y)\r
-        .if (.match (.left (1, {adress}), #))\r
+        .if (.match (.left (1, {address}), #))\r
                 ; immediate mode\r
-        ldy     #<(.right (.tcount ({adress})-1, {adress}))\r
+        ldy     #<(.right (.tcount ({address})-1, {address}))\r
                 sty _SMCDesignator+1\r
-        ldy #>(.right (.tcount ({adress})-1, {adress}))\r
+        ldy #>(.right (.tcount ({address})-1, {address}))\r
                 sty _SMCDesignator+2\r
     .else\r
         ; assume absolute or zero page\r
@@ -226,11 +226,11 @@ SMC_StoreValue label, register
 \r
 \r
 .macro SMC_TransferAddress      label, address\r
-.if (.match (.left (1, {adress}), #))\r
+.if (.match (.left (1, {address}), #))\r
         ; immediate mode\r
-        lda    #<(.right (.tcount ({adress})-1, {adress}))\r
+        lda    #<(.right (.tcount ({address})-1, {address}))\r
         sta _SMCDesignator+1\r
-        ldx #>(.right (.tcount ({adress})-1, {adress}))\r
+        ldx #>(.right (.tcount ({address})-1, {address}))\r
         stx _SMCDesignator+2\r
 .else\r
         ; assume absolute or zero page\r

diff --git a/doc/smc.sgml b/doc/smc.sgml
index 38ba844e41290162e73b106447b902f1072a6636..b58fc51abe512edefcfd606ede3a6d8bbecd9d65 100644 (file)
--- a/doc/smc.sgml
+++ b/doc/smc.sgml
@@ -437,7 +437,7 @@ SMC GetChar, { LDA  SMC_AbsAdr, x }
 
   Example:
 <tscreen><verb>
-    SMC_TransferAddress JumpTo, #CloseChannel, Y
+    SMC_TransferAddress JumpTo, #CloseChannel
     ...
 SMC JumpTo, { JMP OpenChannel }
 </verb></tscreen>