6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-09 22:29:35 +00:00
Code Issues Projects Releases Wiki Activity

Small fixes by Christian Krüger.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5960 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2013-01-07 20:25:45 +00:00
parent d6290e0a0f
commit bf91be8790
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
asminc/smc.inc
View File

@ -180,11 +180,11 @@ SMC_StoreValue label, register
.macro SMC_TransferAddressSingle label, address, register
.if .paramcount = 2 .or .match ((register), a)
.if (.match (.left (1, {adress}), #))
.if (.match (.left (1, {address}), #))
; immediate mode
lda #<(.right (.tcount ({adress})-1, {adress}))
lda #<(.right (.tcount ({address})-1, {address}))
sta _SMCDesignator+1
lda #>(.right (.tcount ({adress})-1, {adress}))
lda #>(.right (.tcount ({address})-1, {address}))
sta _SMCDesignator+2
.else
; assume absolute or zero page
@ -194,11 +194,11 @@ SMC_StoreValue label, register
sta _SMCDesignator+2
.endif
.elseif .match ((register), x)
.if (.match (.left (1, {adress}), #))
.if (.match (.left (1, {address}), #))
; immediate mode
ldx #<(.right (.tcount ({adress})-1, {adress}))
ldx #<(.right (.tcount ({address})-1, {address}))
stx _SMCDesignator+1
ldx #>(.right (.tcount ({adress})-1, {adress}))
ldx #>(.right (.tcount ({address})-1, {address}))
stx _SMCDesignator+2
.else
; assume absolute or zero page
@ -208,11 +208,11 @@ SMC_StoreValue label, register
stx _SMCDesignator+2
.endif
.elseif .match ((register), y)
.if (.match (.left (1, {adress}), #))
.if (.match (.left (1, {address}), #))
; immediate mode
ldy #<(.right (.tcount ({adress})-1, {adress}))
ldy #<(.right (.tcount ({address})-1, {address}))
sty _SMCDesignator+1
ldy #>(.right (.tcount ({adress})-1, {adress}))
ldy #>(.right (.tcount ({address})-1, {address}))
sty _SMCDesignator+2
.else
; assume absolute or zero page
@ -226,11 +226,11 @@ SMC_StoreValue label, register
.macro SMC_TransferAddress label, address
.if (.match (.left (1, {adress}), #))
.if (.match (.left (1, {address}), #))
; immediate mode
lda #<(.right (.tcount ({adress})-1, {adress}))
lda #<(.right (.tcount ({address})-1, {address}))
sta _SMCDesignator+1
ldx #>(.right (.tcount ({adress})-1, {adress}))
ldx #>(.right (.tcount ({address})-1, {address}))
stx _SMCDesignator+2
.else
; assume absolute or zero page

2
doc/smc.sgml
View File

@ -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>