dos33fsprogs/games/ootw/ootw_c2/ootw_c2_miners.s
2021-03-23 10:16:51 -04:00

100 lines
1.2 KiB
ArmAsm

; Ootw Checkpoint2 -- the background miners
; I suspect they are working against their will
ootw_draw_miners:
; move miners
miner1:
lda #10
sta XPOS
lda #32
sta YPOS
lda #0
inc miner1_smc+1
bpl miner1_nomove
miner1_smc:
lda #0 ; smc
lsr
lsr
lsr
lsr
miner1_nomove:
and #$6
tay
lda miner_sprites,Y
sta INL
lda miner_sprites+1,Y
sta INH
jsr put_sprite_crop
miner2:
lda #14
sta XPOS
lda #28
sta YPOS
lda #0
inc miner2_smc+1
bpl miner2_nomove
miner2_smc:
lda #67 ; smc
lsr
lsr
lsr
lsr
miner2_nomove:
and #$6
tay
lda miner_sprites,Y
sta INL
lda miner_sprites+1,Y
sta INH
jmp put_sprite_crop ; tail call
miner_sprites:
.word miner_sprite0
.word miner_sprite1
.word miner_sprite2
.word miner_sprite3
miner_sprite0:
.byte 3,4
.byte $87,$7A,$AA
.byte $55,$AA,$AA
.byte $00,$AA,$AA
.byte $55,$AA,$AA
miner_sprite1:
.byte 3,4
.byte $AA,$87,$AA
.byte $55,$AA,$A7
.byte $00,$AA,$AA
.byte $55,$AA,$AA
miner_sprite2:
.byte 3,4
.byte $AA,$AA,$AA
.byte $55,$8A,$77
.byte $00,$AA,$A7
.byte $55,$AA,$AA
miner_sprite3:
.byte 3,4
.byte $AA,$AA,$AA
.byte $55,$AA,$7A
.byte $00,$A8,$77
.byte $55,$AA,$AA