4cade/src/macros.a

115 lines
2.1 KiB
Plaintext
Raw Normal View History

2018-08-23 20:02:48 +00:00
;license:MIT
;(c) 2018-9 by 4am
2018-08-23 20:02:48 +00:00
;
2018-11-10 15:08:14 +00:00
; common assembler macros (6502 compatible)
2018-08-23 20:02:48 +00:00
;
; for functions that take parameters on the stack
; set (PARAM) to point to the parameters and
; move the stack pointer to the first byte after the parameters
; clobbers A,X,Y
2018-08-23 20:02:48 +00:00
!macro PARAMS_ON_STACK .bytes {
pla
sta PARAM
pla
tax
2018-08-23 20:02:48 +00:00
stx PARAM+1
lda #.bytes
clc
adc PARAM
tay
2018-08-23 20:02:48 +00:00
bcc +
inx
+ txa
pha
tya
2018-08-23 20:02:48 +00:00
pha
}
; for functions that take parameters on the stack
; load a 16-bit value from the parameters on the stack into A (low) and Y (high)
; (assumes PARAMS_ON_STACK was used first)
!macro LDPARAM .offset {
ldy #.offset
2018-08-23 20:02:48 +00:00
lda (PARAM),y
pha
iny
2018-08-23 20:02:48 +00:00
lda (PARAM),y
tay
pla
2018-08-23 20:02:48 +00:00
}
; load the address of .ptr into A (low) and Y (high)
!macro LDADDR .ptr {
lda #<.ptr
ldy #>.ptr
}
; load a 16-bit value into A (low) and Y (high)
!macro LDAY .ptr {
lda .ptr
ldy .ptr+1
}
; store a 16-bit value from A (low) and Y (high)
!macro STAY .ptr {
sta .ptr
sty .ptr+1
}
; use BIT to swallow the following 1-byte opcode
!macro HIDE_NEXT_BYTE {
!byte $24
}
; use BIT to swallow the following 2-byte opcode
!macro HIDE_NEXT_2_BYTES {
!byte $2C
}
; various language card configurations
2019-06-27 14:55:07 +00:00
!macro READ_RAM1_NO_WRITE {
bit $C088
}
!macro READ_RAM1_WRITE_RAM1 {
bit $C08B
bit $C08B
}
2019-06-20 01:10:56 +00:00
!macro READ_RAM2_WRITE_RAM2 {
bit $C083
bit $C083
}
!macro READ_ROM_WRITE_RAM1 {
bit $C089
bit $C089
}
2019-06-20 01:36:49 +00:00
!macro READ_ROM_WRITE_RAM2 {
bit $C081
bit $C081
}
!macro READ_ROM_NO_WRITE {
bit $C082
}
2019-06-18 18:56:05 +00:00
!macro LOW_ASCII_TO_LOWER {
cmp #$41
bcc +
cmp #$5B
bcs +
ora #$20
+
}
2019-06-27 15:37:23 +00:00
; requires setting zpCharMask in zero page to #$FF or #$DF before use
!macro FORCE_UPPERCASE_IF_REQUIRED {
cmp #$E1
bcc +
and zpCharMask
+
}