mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 08:05:31 +00:00
b1238af49d
this will probably upset people
22 lines
515 B
ArmAsm
22 lines
515 B
ArmAsm
;====================
|
|
; lookup_map
|
|
;====================
|
|
; finds value in space_x.i,space_y.i
|
|
; returns color in A
|
|
; CLOBBERS: A,Y
|
|
|
|
lda SPACEX_I ; 3
|
|
sta spacex_label+1 ; self modifying code, LAST_SPACEX_I ; 4
|
|
|
|
lda SPACEY_I ; 3
|
|
sta spacey_label+1 ; self modifying code, LAST_SPACEY_I ; 4
|
|
|
|
lda SPACEY_I
|
|
eor SPACEX_I
|
|
and #$1
|
|
beq @black
|
|
@white:
|
|
lda #$ff
|
|
@black:
|
|
sta map_color_label+1 ; self-modifying
|