mirror of
https://github.com/peterdell/wudsn-ide.git
synced 2025-01-07 21:30:31 +00:00
73 lines
692 B
Plaintext
73 lines
692 B
Plaintext
;ACME 0.07
|
|
|
|
!macro cmp16bit .data1, .data2 {
|
|
ldx #.data1
|
|
ldy #.data2
|
|
jsr cmp16bit
|
|
}
|
|
a = 0
|
|
x = 1
|
|
y = 2
|
|
|
|
!macro bank .r, .v {
|
|
!if .r = a {
|
|
lda #.v
|
|
sta conreg
|
|
}
|
|
!if .r = x {
|
|
ldx #.v
|
|
stx conreg
|
|
}
|
|
!if .r = y {
|
|
ldy #.v
|
|
sty conreg
|
|
}
|
|
}
|
|
|
|
CR_BANK15 = 0
|
|
CR_RAM0_IO = $3e
|
|
CR_RAM0 = $3f
|
|
|
|
!macro bank15 {
|
|
+bank a, CR_BANK15
|
|
}
|
|
|
|
!macro xbank15 {
|
|
+bank x, CR_BANK15
|
|
}
|
|
|
|
!macro ybank15 {
|
|
+bank y, CR_BANK15
|
|
}
|
|
|
|
!macro ram0io {
|
|
+bank a, CR_RAM0_IO
|
|
}
|
|
|
|
!macro yram0io {
|
|
+bank y, CR_RAM0_IO
|
|
}
|
|
|
|
!macro xram0 {
|
|
+bank x, CR_RAM0
|
|
}
|
|
|
|
!macro inc16x .a {
|
|
inc .a,x
|
|
bne .l
|
|
inc .a+1,x
|
|
.l
|
|
}
|
|
|
|
!macro ldax .a {
|
|
lda .a+1
|
|
ldx .a
|
|
}
|
|
|
|
!macro cp16 .s, .t {
|
|
ldx .s
|
|
lda .s+1
|
|
stx .t
|
|
sta .t+1
|
|
}
|