2020-01-08 22:38:29 +00:00
|
|
|
; TEST CODE FROM EXOMIZER
|
|
|
|
|
|
|
|
|
|
.org $2000
|
|
|
|
|
|
2020-01-10 00:08:14 +00:00
|
|
|
.REPT 7
|
|
|
|
|
dc.b rept
|
|
|
|
|
.ENDR
|
|
|
|
|
|
2020-01-10 00:01:16 +00:00
|
|
|
test_stack = 0
|
|
|
|
|
PUSH test_stack
|
|
|
|
|
test_stack = 10
|
|
|
|
|
eval test_stack
|
|
|
|
|
PULL test_stack
|
|
|
|
|
eval test_stack
|
|
|
|
|
|
2020-01-08 22:38:29 +00:00
|
|
|
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
|
