mirror of
https://github.com/cc65/cc65.git
synced 2024-07-01 08:29:37 +00:00
Small fixes by Christian Krüger.
git-svn-id: svn://svn.cc65.org/cc65/trunk@5960 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
d6290e0a0f
commit
bf91be8790
|
@ -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
|
||||||
|
|
|
@ -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>
|
||||||
|
|
Loading…
Reference in New Issue
Block a user