6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-08 22:25:28 +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
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 .macro SMC_TransferAddressSingle label, address, register
.if .paramcount = 2 .or .match ((register), a) .if .paramcount = 2 .or .match ((register), a)
.if (.match (.left (1, {adress}), #)) .if (.match (.left (1, {address}), #))
; immediate mode ; immediate mode
lda #<(.right (.tcount ({adress})-1, {adress})) lda #<(.right (.tcount ({address})-1, {address}))
sta _SMCDesignator+1 sta _SMCDesignator+1
lda #>(.right (.tcount ({adress})-1, {adress})) lda #>(.right (.tcount ({address})-1, {address}))
sta _SMCDesignator+2 sta _SMCDesignator+2
.else .else
; assume absolute or zero page ; assume absolute or zero page
@@ -194,11 +194,11 @@ SMC_StoreValue label, register
sta _SMCDesignator+2 sta _SMCDesignator+2
.endif .endif
.elseif .match ((register), x) .elseif .match ((register), x)
.if (.match (.left (1, {adress}), #)) .if (.match (.left (1, {address}), #))
; immediate mode ; immediate mode
ldx #<(.right (.tcount ({adress})-1, {adress})) ldx #<(.right (.tcount ({address})-1, {address}))
stx _SMCDesignator+1 stx _SMCDesignator+1
ldx #>(.right (.tcount ({adress})-1, {adress})) ldx #>(.right (.tcount ({address})-1, {address}))
stx _SMCDesignator+2 stx _SMCDesignator+2
.else .else
; assume absolute or zero page ; assume absolute or zero page
@@ -208,11 +208,11 @@ SMC_StoreValue label, register
stx _SMCDesignator+2 stx _SMCDesignator+2
.endif .endif
.elseif .match ((register), y) .elseif .match ((register), y)
.if (.match (.left (1, {adress}), #)) .if (.match (.left (1, {address}), #))
; immediate mode ; immediate mode
ldy #<(.right (.tcount ({adress})-1, {adress})) ldy #<(.right (.tcount ({address})-1, {address}))
sty _SMCDesignator+1 sty _SMCDesignator+1
ldy #>(.right (.tcount ({adress})-1, {adress})) ldy #>(.right (.tcount ({address})-1, {address}))
sty _SMCDesignator+2 sty _SMCDesignator+2
.else .else
; assume absolute or zero page ; assume absolute or zero page
@@ -226,11 +226,11 @@ SMC_StoreValue label, register
.macro SMC_TransferAddress label, address .macro SMC_TransferAddress label, address
.if (.match (.left (1, {adress}), #)) .if (.match (.left (1, {address}), #))
; immediate mode ; immediate mode
lda #<(.right (.tcount ({adress})-1, {adress})) lda #<(.right (.tcount ({address})-1, {address}))
sta _SMCDesignator+1 sta _SMCDesignator+1
ldx #>(.right (.tcount ({adress})-1, {adress})) ldx #>(.right (.tcount ({address})-1, {address}))
stx _SMCDesignator+2 stx _SMCDesignator+2
.else .else
; assume absolute or zero page ; assume absolute or zero page

2
doc/smc.sgml
View File

@@ -437,7 +437,7 @@ SMC GetChar, { LDA SMC_AbsAdr, x }
Example: Example:
<tscreen><verb> <tscreen><verb>
SMC_TransferAddress JumpTo, #CloseChannel, Y SMC_TransferAddress JumpTo, #CloseChannel
... ...
SMC JumpTo, { JMP OpenChannel } SMC JumpTo, { JMP OpenChannel }
</verb></tscreen> </verb></tscreen>