mirror of
https://github.com/ksherlock/x65.git
synced 2024-12-29 10:30:32 +00:00
93 lines
1.8 KiB
ArmAsm
93 lines
1.8 KiB
ArmAsm
; TEST CODE FROM EXOMIZER
|
|
|
|
.org $2000
|
|
|
|
.REPT 7
|
|
dc.b rept
|
|
.ENDR
|
|
|
|
eval Checking defined function, Should be 0: .defined(test_stack)
|
|
test_stack = 0
|
|
eval Checking referenced function, Should be 0: .referenced(test_stack)
|
|
eval Checking defined function, Should be 1: .defined(test_stack)
|
|
PUSH test_stack
|
|
eval Checking referenced function, Should be 1: .referenced(test_stack)
|
|
test_stack = 10
|
|
eval Push Before Pull: test_stack
|
|
PULL test_stack
|
|
eval Pull original: test_stack
|
|
|
|
eval Checking symbol is not const (0): .const(test_stack)
|
|
const ConstAddress = $1000
|
|
eval Checking symbol is const (0): .const(ConstAddress)
|
|
|
|
eval This should be blank (1): .blank()
|
|
eval This should be blank (1): .blank({})
|
|
eval This should be not be blank (0): .blank({monkeys})
|
|
|
|
.ifconst test_stack
|
|
eval Checking ifconst with non-const symbol, should not print:
|
|
.endif
|
|
|
|
.ifconst ConstAddress
|
|
eval Checking ifconst with const symbol, this should print:
|
|
.endif
|
|
|
|
zp_len_lo = $a7
|
|
zp_len_hi = $a8
|
|
|
|
zp_src_lo = $ae
|
|
zp_src_hi = zp_src_lo + 1
|
|
|
|
zp_bits_hi = $fc
|
|
|
|
zp_bitbuf = $fd
|
|
zp_dest_lo = zp_bitbuf + 1 ; dest addr lo
|
|
zp_dest_hi = zp_bitbuf + 2 ; dest addr hi
|
|
|
|
.MACRO mac_refill_bits
|
|
pha
|
|
jsr get_crunched_byte
|
|
rol
|
|
sta zp_bitbuf
|
|
pla
|
|
.ENDMACRO
|
|
.MACRO mac_get_bits
|
|
.SCOPE
|
|
adc #$80 ; needs c=0, affects v
|
|
asl
|
|
bpl gb_skip
|
|
gb_next:
|
|
asl zp_bitbuf
|
|
bne gb_ok
|
|
mac_refill_bits
|
|
gb_ok:
|
|
rol
|
|
bmi gb_next
|
|
gb_skip:
|
|
bvc skip
|
|
gb_get_hi:
|
|
sec
|
|
sta zp_bits_hi
|
|
jsr get_crunched_byte
|
|
skip:
|
|
.ENDSCOPE
|
|
.ENDMACRO
|
|
|
|
|
|
.ifdef UNDEFINED_SYMBOL
|
|
dc.b -1 ; should not be assembled
|
|
error 1
|
|
.else
|
|
dc.b 1 ; should be assembled
|
|
.endif
|
|
|
|
const CONSTANT = 32
|
|
|
|
.eval CONSTANT
|
|
|
|
mac_get_bits
|
|
mac_get_bits
|
|
|
|
get_crunched_byte:
|
|
rts |