mirror of
https://github.com/peterdell/wudsn-ide.git
synced 2024-10-03 02:57:03 +00:00
109 lines
970 B
PHP
109 lines
970 B
PHP
|
|
.macro jne
|
|
beq *+5
|
|
jmp %1
|
|
.endm
|
|
|
|
.macro jeq
|
|
bne *+5
|
|
jmp %1
|
|
.endm
|
|
|
|
.macro dic
|
|
inc %1
|
|
.if %1<256
|
|
bne *+4
|
|
.else
|
|
bne *+5
|
|
.endif
|
|
inc %1+1
|
|
.endm
|
|
|
|
.macro set
|
|
lda #<%2
|
|
sta %1
|
|
lda #>%2
|
|
sta %1+1
|
|
.endm
|
|
|
|
.macro add
|
|
clc
|
|
lda %1
|
|
adc #<%2
|
|
sta %1
|
|
lda %1+1
|
|
adc #>%2
|
|
sta %1+1
|
|
.endm
|
|
|
|
.macro sub
|
|
sec
|
|
lda %1
|
|
sbc #<%2
|
|
sta %1
|
|
lda %1+1
|
|
sbc #>%2
|
|
sta %1+1
|
|
.endm
|
|
|
|
.macro pok
|
|
sta (p1),y
|
|
inc p1
|
|
bne *+4
|
|
inc p1+1
|
|
.endm
|
|
|
|
.macro wor
|
|
lda #<%1 ;<$d012
|
|
pok
|
|
lda #>%1 ;>$d012
|
|
pok
|
|
.endm
|
|
|
|
.macro x_lda
|
|
lda #$a9
|
|
pok
|
|
adr %1
|
|
pok
|
|
.endm
|
|
|
|
.macro x_ldx
|
|
lda #$a2
|
|
pok
|
|
adr %1
|
|
pok
|
|
.endm
|
|
|
|
.macro x_ldy
|
|
lda #$a0
|
|
pok
|
|
adr %1
|
|
pok
|
|
.endm
|
|
|
|
.macro x_sta
|
|
lda #$8d
|
|
pok
|
|
wor %1
|
|
.endm
|
|
|
|
.macro x_stx
|
|
lda #$8e
|
|
pok
|
|
wor %1
|
|
.endm
|
|
|
|
.macro x_sty
|
|
lda #$8c
|
|
pok
|
|
wor %1
|
|
.endm
|
|
|
|
.macro col
|
|
lda $d010
|
|
bne *+10
|
|
lda #%1
|
|
sta $d01a
|
|
sta $d018
|
|
.endm
|