dos33fsprogs/ootw/ootw_c4_action.s

1381 lines
24 KiB
ArmAsm
Raw Normal View History

; Ootw Checkpoint4 -- Foreground Action Sequence
2019-08-14 01:44:01 +00:00
;=================
;=================
; action sequence
2019-08-14 01:44:01 +00:00
;=================
;=================
2019-08-14 13:45:13 +00:00
; A has the sequence step+1
2019-08-14 01:44:01 +00:00
action_sequence:
2019-08-14 13:45:13 +00:00
tax ; it's actually one higher
dex
lda FRAMEL ; slow it down a bit
and #$3
bne not_done_action
inc ACTION_COUNT
lda ACTION_COUNT
cmp #69
bne not_done_action
lda #0
sta ACTION_COUNT
rts
not_done_action:
2019-08-14 01:44:01 +00:00
; draw both lines in the hlin
lda #$00
sta hlin_mask_smc+1
2019-08-14 13:45:13 +00:00
; ldx #65
2019-08-14 01:44:01 +00:00
lda action_list_lo,x
sta ac_jump
lda action_list_hi,x
sta ac_jump+1
jmp (ac_jump)
; Avoid $FF jump table bug on 6502
.align 2
ac_jump:
.word $0000
.align 1
action_list_lo:
.byte <action_frame1
.byte <action_frame2
.byte <action_frame3
.byte <action_frame4
.byte <action_frame5
.byte <action_frame6
.byte <action_frame7
.byte <action_frame8
.byte <action_frame9
.byte <action_frame10
.byte <action_frame11
.byte <action_frame12
.byte <action_frame13
.byte <action_frame14
.byte <action_frame15
.byte <action_frame16
.byte <action_frame17
.byte <action_frame18
.byte <action_frame19
.byte <action_frame20
.byte <action_frame21
.byte <action_frame22
.byte <action_frame23
.byte <action_frame24
.byte <action_frame25
.byte <action_frame26
.byte <action_frame27
.byte <action_frame28
.byte <action_frame29
.byte <action_frame30
.byte <action_frame31
.byte <action_frame32
.byte <action_frame33
.byte <action_frame34
.byte <action_frame35
.byte <action_frame36
.byte <action_frame37
.byte <action_frame38
.byte <action_frame39
.byte <action_frame40
.byte <action_frame41
.byte <action_frame42
.byte <action_frame43
.byte <action_frame44
.byte <action_frame45
.byte <action_frame46
.byte <action_frame47
.byte <action_frame48
.byte <action_frame49
.byte <action_frame50
.byte <action_frame51
.byte <action_frame52
.byte <action_frame53
.byte <action_frame54
.byte <action_frame55
.byte <action_frame56
.byte <action_frame57
.byte <action_frame58
.byte <action_frame59
.byte <action_frame60
.byte <action_frame61
.byte <action_frame62
.byte <action_frame63
.byte <action_frame64
.byte <action_frame65
.byte <action_frame66
.byte <action_frame67
.byte <action_frame68
action_list_hi:
.byte >action_frame1
.byte >action_frame2
.byte >action_frame3
.byte >action_frame4
.byte >action_frame5
.byte >action_frame6
.byte >action_frame7
.byte >action_frame8
.byte >action_frame9
.byte >action_frame10
.byte >action_frame11
.byte >action_frame12
.byte >action_frame13
.byte >action_frame14
.byte >action_frame15
.byte >action_frame16
.byte >action_frame17
.byte >action_frame18
.byte >action_frame19
.byte >action_frame20
.byte >action_frame21
.byte >action_frame22
.byte >action_frame23
.byte >action_frame24
.byte >action_frame25
.byte >action_frame26
.byte >action_frame27
.byte >action_frame28
.byte >action_frame29
.byte >action_frame30
.byte >action_frame31
.byte >action_frame32
.byte >action_frame33
.byte >action_frame34
.byte >action_frame35
.byte >action_frame36
.byte >action_frame37
.byte >action_frame38
.byte >action_frame39
.byte >action_frame40
.byte >action_frame41
.byte >action_frame42
.byte >action_frame43
.byte >action_frame44
.byte >action_frame45
.byte >action_frame46
.byte >action_frame47
.byte >action_frame48
.byte >action_frame49
.byte >action_frame50
.byte >action_frame51
.byte >action_frame52
.byte >action_frame53
.byte >action_frame54
.byte >action_frame55
.byte >action_frame56
.byte >action_frame57
.byte >action_frame58
.byte >action_frame59
.byte >action_frame60
.byte >action_frame61
.byte >action_frame62
.byte >action_frame63
.byte >action_frame64
.byte >action_frame65
.byte >action_frame66
.byte >action_frame67
.byte >action_frame68
;========
; frame1: (76)
; hlin color: $31/$13: 0,20 at 40,42
2019-08-14 01:44:01 +00:00
action_frame1:
ldy #40
lda #$31
sta hlin_color_smc+1
jmp action_left_laser
;=============
; frame2: (77)
; hlin color: $31/$13: 0,39 at 40,42
; PINK!
2019-08-14 01:44:01 +00:00
action_frame2:
ldy #40
lda #$31
sta hlin_color_smc+1
jsr action_full_laser
jmp make_pink
;=============
; frame3: (78)
; hlin color: $31/$13: 20,39 at 40,42
; hlin color: $1A/$A1 0,19 at 40,42
2019-08-14 01:44:01 +00:00
action_frame3:
ldy #40
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #40
lda #$10
2019-08-14 01:44:01 +00:00
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
2019-08-14 01:44:01 +00:00
jmp action_left_laser
;=============
; frame4: (79)
; hlin color: $1A/A1: 20,39 at 40,42
2019-08-14 01:44:01 +00:00
action_frame4:
ldy #40
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_right_laser
2019-08-14 01:44:01 +00:00
;=============
; frame5: (80)
; nothing for 5 frames
2019-08-14 01:44:01 +00:00
action_frame5:
action_frame6:
action_frame7:
action_frame8:
action_frame9:
rts
;==============
; frame10: (81)
; hlin color: $31/$13: 0,20 at 22,24
2019-08-14 01:44:01 +00:00
action_frame10:
ldy #22
lda #$31
sta hlin_color_smc+1
jmp action_left_laser
2019-08-14 01:44:01 +00:00
;=============
; frame11: (82)
; hlin color: $31/13: 0,39 at 22,24
; pink colors!
2019-08-14 01:44:01 +00:00
action_frame11:
ldy #22
lda #$31
sta hlin_color_smc+1
jsr action_full_laser
jmp make_pink
2019-08-14 01:44:01 +00:00
;=============
; frame12: (83)
; hlin color: $31/$13: 20,39 at 22,24
; hlin color: $1A/$A1: 4,19 at 22,24 ; top
; hlin color: $31/$13: 0,20 at 30,32 ; bottom
2019-08-14 01:44:01 +00:00
action_frame12:
ldy #22
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #30
lda #$31
sta hlin_color_smc+1
jsr action_left_laser
ldy #22
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jsr action_left_offset_laser
2019-08-14 01:44:01 +00:00
;=============
; frame13: (84)
; hlin color: $1A/$A1: 20,39 at 22,24 ; top
; hlin color: $3B/$B3: 0,39 at 30,32 ; bottom
2019-08-14 01:44:01 +00:00
action_frame13:
ldy #30
lda #$3B
sta hlin_color_smc+1
jsr action_full_laser
ldy #22
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_right_laser
2019-08-14 01:44:01 +00:00
;==============
; frame14: (85)
; hlin color: $31/$13: 20,39 at 30,32
; hlin color: $1A/$A1: 4,19 at 30,32
2019-08-14 01:44:01 +00:00
action_frame14:
ldy #30
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #30
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_left_offset_laser
2019-08-14 01:44:01 +00:00
;==============
; frame15: (86)
; hlin color: $1A/A1: 20,39 at 30,32
; friend, eye@2,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame15:
ldy #30
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jsr action_right_laser
ldx #246
ldy #24
jmp action_draw_friend
2019-08-14 01:44:01 +00:00
;==============
; frame16: (87)
; friend, eye@8,29 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame16:
ldx #252
ldy #24
jmp action_draw_friend
2019-08-14 01:44:01 +00:00
;==============
; frame17: (88)
; hlin color: $31,13: 0,20 at 28,30
; friend, eye@10,30 (-12, -4)
2019-08-14 01:44:01 +00:00
action_frame17:
ldy #28
lda #$31
sta hlin_color_smc+1
jsr action_left_laser
ldx #254
ldy #26
jmp action_draw_friend
2019-08-14 01:44:01 +00:00
;==============
; frame18: (89)
; hlin color: $31,13: 0,39 at 28,30
; friend, eye@14,30 (-12, -4)
; pink colors! eyes red???
2019-08-14 01:44:01 +00:00
action_frame18:
ldy #28
lda #$31
sta hlin_color_smc+1
jsr action_full_laser
ldx #2
ldy #26
jsr action_draw_friend
jmp make_pink
2019-08-14 01:44:01 +00:00
;==============
; frame19: (90)
; hlin color: $31/13: 20,39 at 28,30
; hlin color: $1A/A1: 4,19 at 28,30
; friend, eye@20,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame19:
ldy #28
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #28
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jsr action_left_offset_laser
ldx #8
ldy #24
jmp action_draw_friend
2019-08-14 01:44:01 +00:00
;==============
; frame20: (91)
; hlin color: $31/13: 0,20 at 32,34
; friend, eye@24,30 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame20:
ldy #32
lda #$31
sta hlin_color_smc+1
jsr action_left_laser
ldx #12
ldy #26
jmp action_draw_friend
2019-08-14 01:44:01 +00:00
;==============
; frame21: (92)
; hlin color: $3B/B3: 0,39 at 32,34
; friend, eye@29,30 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame21:
ldy #32
lda #$3B
sta hlin_color_smc+1
jsr action_full_laser
ldx #17
ldy #26
jmp action_draw_friend
2019-08-14 01:44:01 +00:00
;==============
; frame22: (93)
; hlin color: $31/13: 20,39 at 32,34
; hlin color: $1A/A1: 4,19 at 32,34 ; top
; hlin color: $31/13: 0,20 at 34,36 ; bottom
; friend, eye@33,29 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame22:
ldy #32
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #34
lda #$31
sta hlin_color_smc+1
jsr action_left_laser
ldy #32
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jsr action_left_offset_laser
ldx #21
ldy #24
jmp action_draw_friend
2019-08-14 01:44:01 +00:00
;==============
; frame23: (94)
; friend, eye@38,28 (-12,-4)
; hlin color: $31,13: 0,39 at 34,36 ; OVER FRIEND
; PINK!
2019-08-14 01:44:01 +00:00
action_frame23:
ldx #26
ldy #24
jsr action_draw_friend
ldy #34
lda #$31
sta hlin_color_smc+1
jsr action_full_laser
jmp make_pink
2019-08-14 01:44:01 +00:00
;==============
; frame24: (95)
; friend, eye@43,28 (-12,-4)
; hlin color: $31/13: 20,39 at 34,36
; hlin color: $A1/1A: 4,19 at 34,36 ; OVER FRIEND
2019-08-14 01:44:01 +00:00
action_frame24:
ldx #31
ldy #24
jsr action_draw_friend
ldy #34
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #34
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_left_offset_laser
2019-08-14 01:44:01 +00:00
;==============
; frame25: (96)
; friend, eye@48,28 (-12,-4)
; hlin color: $1A/A1: 20,39 at 34,36 ; OVER FRIEND
2019-08-14 01:44:01 +00:00
action_frame25:
ldx #36
ldy #24
jsr action_draw_friend
ldy #34
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_right_laser
2019-08-14 01:44:01 +00:00
;=======================
; frame26: wait 5 frames
action_frame26:
action_frame27:
action_frame28:
action_frame29:
action_frame30:
rts
;==============
; frame31: (97)
; hlin color: $31: 0,20 at 24,26
2019-08-14 01:44:01 +00:00
action_frame31:
ldy #24
lda #$31
sta hlin_color_smc+1
jmp action_left_laser
2019-08-14 01:44:01 +00:00
;==============
; frame32: (98)
; hlin color: $31/13: 0,39 at 24,26
; PINK!
2019-08-14 01:44:01 +00:00
action_frame32:
ldy #24
lda #$31
sta hlin_color_smc+1
jsr action_full_laser
jmp make_pink
2019-08-14 01:44:01 +00:00
;==============
; frame33: (99)
; hlin color: $31/13 20,39 at 24,26
; hlin color: $1A/A1: 4,19 at 24,26
2019-08-14 01:44:01 +00:00
action_frame33:
ldy #24
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #24
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_left_offset_laser
2019-08-14 01:44:01 +00:00
;===============
; frame34: (100)
; hlin color: $1A/A1: 20,39 at 24,26
2019-08-14 01:44:01 +00:00
action_frame34:
ldy #24
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_right_laser
2019-08-14 01:44:01 +00:00
;=======================
; frame35: wait 5 frames
action_frame35:
action_frame36:
action_frame37:
action_frame38:
action_frame39:
rts
;===============
; frame40: (101)
; hlin color: $31/13: 0,20 at 26,28
2019-08-14 01:44:01 +00:00
action_frame40:
ldy #26
lda #$31
sta hlin_color_smc+1
jmp action_left_laser
2019-08-14 01:44:01 +00:00
;===============
; frame41: (102)
; hlin color: $31/13: 0,39 at 26,28
2019-08-14 01:44:01 +00:00
action_frame41:
ldy #26
lda #$31
sta hlin_color_smc+1
jmp action_full_laser
2019-08-14 01:44:01 +00:00
;===============
; frame42: (103)
; hlin color: $31/13: 20,39 at 26,28
; hlin color: $1A/A1: 4,19 at 26,28
; hlin color: $31/13: 0,20 at 28,30 ; bottom
2019-08-14 01:44:01 +00:00
action_frame42:
ldy #26
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #28
lda #$31
sta hlin_color_smc+1
jsr action_left_laser
ldy #26
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_left_offset_laser
2019-08-14 01:44:01 +00:00
;===============
; frame43: (104)
; hlin color: $1A/A1: 20,39 at 26,28
; hlin color: $31/13: 0,39 at 28,30
2019-08-14 01:44:01 +00:00
action_frame43:
ldy #28
lda #$31
sta hlin_color_smc+1
jsr action_full_laser
ldy #26
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jsr action_right_laser
jmp make_pink
2019-08-14 01:44:01 +00:00
;==============
; frame44: (105)
; hlin color: $31/13: 20,39 at 28,30
; hlin color: $1A/A1: 4,19 at 28,30
2019-08-14 01:44:01 +00:00
action_frame44:
ldy #28
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #28
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_left_offset_laser
2019-08-14 01:44:01 +00:00
;==============
; frame45: (106)
; hlin color: $31/13: 0,20 at 32,34
2019-08-14 01:44:01 +00:00
action_frame45:
ldy #32
lda #$31
sta hlin_color_smc+1
jmp action_left_laser
2019-08-14 01:44:01 +00:00
;==============
; frame46: (107)
; hlin color: $3B/B3: 0,39 at 32,34
2019-08-14 01:44:01 +00:00
action_frame46:
ldy #32
lda #$B3
sta hlin_color_smc+1
jmp action_full_laser
2019-08-14 01:44:01 +00:00
;==============
; frame47: (108)
; hlin color: $31/13: 20,39 at 32,34
; hlin color: $1A/A1: 4,19 at 32,34
; hlin color: $31/13: 0,20 at 22,24 ; bottom
2019-08-14 01:44:01 +00:00
action_frame47:
ldy #32
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #22
lda #$31
sta hlin_color_smc+1
jsr action_left_laser
ldy #32
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_left_offset_laser
2019-08-14 01:44:01 +00:00
;==============
; frame48: (109)
; hlin color: $1A/A1: 20,39 at 32,34
; hlin color: $31/13: 0,39 at 22,24
; PINK!
2019-08-14 01:44:01 +00:00
action_frame48:
ldy #22
lda #$31
sta hlin_color_smc+1
jsr action_full_laser
ldy #32
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jsr action_right_laser
jmp make_pink
2019-08-14 01:44:01 +00:00
;==============
; frame49: (110)
; hlin color: $31/13: 20,39 at 22,24
; hlin color: $1A/A1: 4,19 at 22,24
2019-08-14 01:44:01 +00:00
action_frame49:
ldy #22
lda #$31
sta hlin_color_smc+1
jsr action_right_laser
ldy #22
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jmp action_left_offset_laser
2019-08-14 01:44:01 +00:00
;==============
; frame50: (111)
; hlin color: $1A/A1: 20,39 at 22,24
2019-08-14 13:23:27 +00:00
; alien_eye@2,28 (-12, -4)
2019-08-14 01:44:01 +00:00
action_frame50:
ldy #22
lda #$10
sta hlin_color_smc+1
lda #$0f
sta hlin_mask_smc+1
jsr action_right_laser
2019-08-14 13:23:27 +00:00
ldx #246
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame51: (112)
2019-08-14 13:23:27 +00:00
; alien_eye@6,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame51:
2019-08-14 13:23:27 +00:00
ldx #250
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame52: (113)
2019-08-14 13:23:27 +00:00
; alien_eye@10,30 (-12, -4)
2019-08-14 01:44:01 +00:00
action_frame52:
2019-08-14 13:23:27 +00:00
ldx #254
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame53: (114)
2019-08-14 13:23:27 +00:00
; alien_eye@14,30 (-12, -4)
; alien_eye2@2,28 (-12, -2)
2019-08-14 01:44:01 +00:00
action_frame53:
2019-08-14 13:23:27 +00:00
ldx #2
ldy #26
jsr action_draw_alien1
ldx #246
ldy #26
jmp action_draw_alien2
2019-08-14 01:44:01 +00:00
;==============
; frame54: (115)
2019-08-14 13:23:27 +00:00
; alien_eye@20,28 (-12,-4)
; alien_eye@6,28 (-12,-2)
2019-08-14 01:44:01 +00:00
action_frame54:
2019-08-14 13:23:27 +00:00
ldx #8
ldy #24
jsr action_draw_alien1
ldx #250
ldy #26
jmp action_draw_alien2
2019-08-14 01:44:01 +00:00
;==============
; frame55: (116)
2019-08-14 13:23:27 +00:00
; alien_eye@24,30 (-12,-4)
; alien_eye@10,30 (-12,-2)
2019-08-14 01:44:01 +00:00
action_frame55:
2019-08-14 13:23:27 +00:00
ldx #12
ldy #26
jsr action_draw_alien1
ldx #254
ldy #28
jmp action_draw_alien2
2019-08-14 01:44:01 +00:00
;==============
; frame56: (117)
2019-08-14 13:23:27 +00:00
; alien_eye@28,30 (-12,-4)
; alien_eye@15,30 (-12,-2)
2019-08-14 01:44:01 +00:00
action_frame56:
2019-08-14 13:23:27 +00:00
ldx #16
ldy #26
jsr action_draw_alien1
ldx #3
ldy #28
jmp action_draw_alien2
2019-08-14 01:44:01 +00:00
;==============
; frame57: (118)
2019-08-14 13:23:27 +00:00
; alien_eye@32,30 (-12,-4)
; alien_eye@20,30 (-12,-2)
2019-08-14 01:44:01 +00:00
action_frame57:
2019-08-14 13:23:27 +00:00
ldx #20
ldy #26
jsr action_draw_alien1
ldx #8
ldy #28
jmp action_draw_alien2
2019-08-14 01:44:01 +00:00
;==============
; frame58: (119)
2019-08-14 13:23:27 +00:00
; alien_eye@38,28 (-12,-4)
; alien_eye@25,30 (-12,-2)
; alien_eye@2,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame58:
2019-08-14 13:23:27 +00:00
ldx #26
ldy #24
jsr action_draw_alien1
ldx #13
ldy #28
jsr action_draw_alien2
ldx #246
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame59: (120)
2019-08-14 13:23:27 +00:00
; alien_eye@43,28 (-12,-4)
; alien_eye@29,30 (-12,-2)
; alien_eye@6,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame59:
2019-08-14 13:23:27 +00:00
ldx #31
ldy #24
jsr action_draw_alien1
ldx #17
ldy #28
jsr action_draw_alien2
2019-08-14 13:45:13 +00:00
ldx #250
2019-08-14 13:23:27 +00:00
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame60: (121)
2019-08-14 13:23:27 +00:00
; alien_eye@48,28 (-12,-4)
; alien_eye@33,30 (-12,-2)
; alien_eye@10,30 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame60:
2019-08-14 13:23:27 +00:00
ldx #36
ldy #24
jsr action_draw_alien1
ldx #21
ldy #28
jsr action_draw_alien2
ldx #254
ldy #26
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame61: (122)
2019-08-14 13:23:27 +00:00
; alien_eye@38,28 (-12,-2)
; alien_eye@15,30 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame61:
2019-08-14 13:23:27 +00:00
ldx #26
ldy #26
jsr action_draw_alien2
ldx #3
ldy #26
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame62: (123)
2019-08-14 13:23:27 +00:00
; alien_eye@43,28 (-12,-2)
; alien_eye@20,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame62:
2019-08-14 13:23:27 +00:00
ldx #31
ldy #26
jsr action_draw_alien2
ldx #8
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame63: (124)
2019-08-14 13:23:27 +00:00
; alien_eye@48,28 (-12,-2)
; alien_eye@24,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame63:
2019-08-14 13:23:27 +00:00
ldx #36
ldy #26
jsr action_draw_alien2
ldx #12
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame64: (125)
2019-08-14 13:23:27 +00:00
; alien_eye@28,30 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame64:
2019-08-14 13:45:13 +00:00
ldx #16
2019-08-14 13:23:27 +00:00
ldy #26
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame65: (126)
2019-08-14 13:23:27 +00:00
; alien_eye@32,30 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame65:
2019-08-14 13:23:27 +00:00
ldx #20
ldy #26
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame66: (127)
2019-08-14 13:23:27 +00:00
; alien_eye@38,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame66:
2019-08-14 13:23:27 +00:00
ldx #26
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame67: (128)
2019-08-14 13:23:27 +00:00
; alien_eye@43,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame67:
2019-08-14 13:23:27 +00:00
ldx #31
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;==============
; frame68: (129)
2019-08-14 13:23:27 +00:00
; alien_eye@48,28 (-12,-4)
2019-08-14 01:44:01 +00:00
action_frame68:
2019-08-14 13:23:27 +00:00
ldx #36
ldy #24
jmp action_draw_alien1
2019-08-14 01:44:01 +00:00
;================================
;================================
; action left laser
;================================
;================================
2019-08-14 01:44:01 +00:00
; Y is ypos
; color in hlin_color_smc+1
; draw from 0 to 20
2019-08-14 01:44:01 +00:00
action_left_laser:
sty TEMPY
ldx #20
lda #0
jsr hlin
; rotate color and mask, draw Y+2 lower
; rotate color
2019-08-14 01:44:01 +00:00
lda hlin_color_smc+1
; swap nybbles
asl
adc #$80
rol
asl
adc #$80
rol
sta hlin_color_smc+1
; rotate mask
lda hlin_mask_smc+1
; swap nybbles
asl
adc #$80
rol
asl
adc #$80
rol
sta hlin_mask_smc+1
2019-08-14 01:44:01 +00:00
ldy TEMPY
iny
iny
lda #0
ldx #20
jmp hlin
;================================
;================================
; action left offset laser
;================================
;================================
; Y is ypos
; color in hlin_color_smc+1
; draw from 4 to 20
action_left_offset_laser:
sty TEMPY
ldx #16
lda #4
jsr hlin
; rotate color and mask, draw Y+2 lower
; rotate color
lda hlin_color_smc+1
; swap nybbles
asl
adc #$80
rol
asl
adc #$80
rol
sta hlin_color_smc+1
; rotate mask
lda hlin_mask_smc+1
; swap nybbles
asl
adc #$80
rol
asl
adc #$80
rol
sta hlin_mask_smc+1
ldy TEMPY
iny
iny
lda #4
ldx #16
jmp hlin
;================================
;================================
; action full laser
;================================
;================================
2019-08-14 01:44:01 +00:00
; Y is ypos
; color in hlin_color_smc+1
action_full_laser:
; hlin color: $31: 0,39 at 40
sty TEMPY
ldx #39
lda #0
jsr hlin
; hlin color: $13: 0,39 at 42
lda hlin_color_smc+1
; swap nybbles
asl
adc #$80
rol
asl
adc #$80
rol
sta hlin_color_smc+1
ldy TEMPY
iny
iny
lda #0
ldx #39
jmp hlin
;================================
;================================
; action right laser
;================================
;================================
2019-08-14 01:44:01 +00:00
; Y is ypos
; color in hlin_color_smc+1
; draws from 20-39 at Y
; then rotates color/mask and draws at Y+2
2019-08-14 01:44:01 +00:00
action_right_laser:
; draw initial
2019-08-14 01:44:01 +00:00
sty TEMPY
ldx #19
lda #20
jsr hlin
; rotate color
2019-08-14 01:44:01 +00:00
lda hlin_color_smc+1
2019-08-14 01:44:01 +00:00
; swap nybbles
asl
adc #$80
rol
asl
adc #$80
rol
2019-08-14 01:44:01 +00:00
sta hlin_color_smc+1
; rotate mask
lda hlin_mask_smc+1
; swap nybbles
asl
adc #$80
rol
asl
adc #$80
rol
sta hlin_mask_smc+1
2019-08-14 01:44:01 +00:00
ldy TEMPY
iny
iny
lda #20
ldx #19
2019-08-14 01:44:01 +00:00
jmp hlin
;=========================
;=========================
; action_draw_friend
;=========================
;=========================
action_draw_friend:
stx XPOS
sty YPOS
lda #<action_friend_sprite
sta INL
lda #>action_friend_sprite
sta INH
jmp put_sprite_crop
;=========================
;=========================
2019-08-14 13:23:27 +00:00
; action_draw_alien1
;=========================
;=========================
action_draw_alien1:
stx XPOS
sty YPOS
lda #<action_alien1_sprite
sta INL
lda #>action_alien1_sprite
sta INH
jmp put_sprite_crop
2019-08-14 13:23:27 +00:00
;=========================
;=========================
; action_draw_alien2
;=========================
;=========================
action_draw_alien2:
stx XPOS
sty YPOS
lda #<action_alien2_sprite
sta INL
lda #>action_alien2_sprite
sta INH
jmp put_sprite_crop
action_friend_sprite:
.byte 12,14 ; eye@12,5
.byte $AA,$AA,$AA,$AA,$AA,$6A,$6A,$6A,$6A,$6A,$AA,$AA
.byte $AA,$AA,$AA,$AA,$66,$66,$6F,$FF,$FF,$F6,$66,$6A
.byte $AA,$AA,$AA,$AA,$66,$66,$66,$66,$66,$ff,$ff,$26
.byte $AA,$AA,$AA,$0A,$06,$06,$66,$66,$66,$66,$6f,$66
.byte $AA,$AA,$0A,$00,$00,$00,$00,$00,$66,$66,$66,$66
.byte $AA,$0A,$00,$00,$60,$60,$00,$00,$00,$66,$66,$A6
.byte $0A,$00,$60,$66,$FF,$FF,$F6,$00,$00,$66,$A6,$AA
.byte $00,$00,$66,$66,$66,$FF,$6F,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$66,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$66,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$06,$00,$00,$00,$AA,$AA
.byte $00,$00,$00,$66,$66,$66,$00,$00,$00,$00,$AA,$AA
.byte $00,$00,$60,$66,$66,$66,$00,$00,$00,$00,$AA,$AA
.byte $00,$00,$60,$66,$66,$66,$00,$00,$00,$00,$AA,$AA
action_alien1_sprite:
.byte 12,13 ; eye@11,4
.byte $AA,$AA,$AA,$AA,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$AA
.byte $AA,$AA,$AA,$0A,$00,$00,$00,$00,$00,$00,$00,$60
2019-08-14 13:23:27 +00:00
.byte $AA,$AA,$AA,$00,$00,$00,$00,$00,$00,$00,$6f,$56
.byte $AA,$AA,$0A,$00,$00,$00,$00,$00,$00,$66,$66,$66
.byte $AA,$0A,$00,$00,$10,$10,$00,$00,$60,$00,$06,$66
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$00,$06
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$AA,$AA
.byte $00,$00,$00,$00,$60,$60,$00,$00,$00,$00,$AA,$AA
.byte $00,$00,$60,$60,$66,$66,$60,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$66,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$06,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$00,$00,$00,$00,$AA,$AA
.byte $00,$00,$00,$66,$66,$66,$00,$00,$00,$00,$AA,$AA
2019-08-14 13:23:27 +00:00
; technically the middle alien has squatter face
; is slightly shorter, and has no red insignia
action_alien2_sprite:
.byte 12,12 ; eye@11,4
.byte $AA,$AA,$AA,$AA,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A
.byte $AA,$AA,$AA,$0A,$00,$00,$00,$00,$00,$00,$00,$60
.byte $AA,$AA,$AA,$00,$00,$00,$00,$00,$00,$00,$00,$56
.byte $AA,$AA,$0A,$00,$00,$00,$00,$00,$00,$00,$66,$66
.byte $AA,$0A,$00,$00,$00,$00,$00,$00,$00,$60,$06,$66
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$00,$06
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$66,$AA,$AA
.byte $00,$00,$00,$00,$60,$60,$00,$00,$00,$00,$AA,$AA
.byte $00,$00,$60,$60,$66,$66,$60,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$66,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$06,$00,$00,$00,$AA,$AA
.byte $00,$00,$66,$66,$66,$66,$00,$00,$00,$00,$AA,$AA
;=====================
; make pink (where applicable)
;=====================
make_pink:
ldy #0 ; 2
pink_outer:
lda gr_offsets,Y ; 4+
sta pi_smc1+1 ; 4
sta pi_smc2+1 ; 4
lda gr_offsets+1,Y ; 4+
clc ; 2
adc DRAW_PAGE ; 3
sta pi_smc1+2 ; 4
sta pi_smc2+2 ; 4
sty TEMPY ; 3
ldx #39 ; 2
pink_inner:
pi_smc1:
ldy $400,X ; 4
lda pink_lookup,Y ; 4+
pi_smc2:
sta $400,X ; 4
dex ; 2
bpl pink_inner ; 3/2
ldy TEMPY ; 3
iny ; 2
iny ; 2
cpy #48 ; 2
bne pink_outer ; 3/2
rts ; 6
; pink colors
; 0-> 0
; 1-> 3
; 2-> 3
; 3-> 3
; 4-> 1
; 5-> 1
; 6-> F
; 7-> 1
; 8-> 1
; 9-> 1
; 10-> 1
; 11-> F?
; 12-> F?
; 13-> F?
; 14-> F?
; 15-> F?
pink_lookup:
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
.byte $00,$03,$03,$03,$01,$01,$0F,$01,$01,$01,$01,$0F,$0F,$0F,$0F,$0F
.byte $30,$33,$33,$33,$31,$31,$3F,$31,$31,$31,$31,$3F,$3F,$3F,$3F,$3F
.byte $30,$33,$33,$33,$31,$31,$3F,$31,$31,$31,$31,$3F,$3F,$3F,$3F,$3F
.byte $30,$33,$33,$33,$31,$31,$3F,$31,$31,$31,$31,$3F,$3F,$3F,$3F,$3F
.byte $10,$13,$13,$13,$11,$11,$1F,$11,$11,$11,$11,$1F,$1F,$1F,$1F,$1F
.byte $10,$13,$13,$13,$11,$11,$1F,$11,$11,$11,$11,$1F,$1F,$1F,$1F,$1F
.byte $F0,$F3,$F3,$F3,$F1,$F1,$FF,$F1,$F1,$F1,$F1,$FF,$FF,$FF,$FF,$FF
.byte $10,$13,$13,$13,$11,$11,$1F,$11,$11,$11,$11,$1F,$1F,$1F,$1F,$1F
.byte $10,$13,$13,$13,$11,$11,$1F,$11,$11,$11,$11,$1F,$1F,$1F,$1F,$1F
.byte $10,$13,$13,$13,$11,$11,$1F,$11,$11,$11,$11,$1F,$1F,$1F,$1F,$1F
.byte $10,$13,$13,$13,$11,$11,$1F,$11,$11,$11,$11,$1F,$1F,$1F,$1F,$1F
.byte $F0,$F3,$F3,$F3,$F1,$F1,$FF,$F1,$F1,$F1,$F1,$FF,$FF,$FF,$FF,$FF
.byte $F0,$F3,$F3,$F3,$F1,$F1,$FF,$F1,$F1,$F1,$F1,$FF,$FF,$FF,$FF,$FF
.byte $F0,$F3,$F3,$F3,$F1,$F1,$FF,$F1,$F1,$F1,$F1,$FF,$FF,$FF,$FF,$FF
.byte $F0,$F3,$F3,$F3,$F1,$F1,$FF,$F1,$F1,$F1,$F1,$FF,$FF,$FF,$FF,$FF
.byte $F0,$F3,$F3,$F3,$F1,$F1,$FF,$F1,$F1,$F1,$F1,$FF,$FF,$FF,$FF,$FF