dos33fsprogs/ootw/ootw_c4_action.s

; Ootw Checkpoint4 -- Foreground Action Sequence


	;=====================
	; 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

;========================================================
; blah

;=================
;=================
; action sequence
;=================
;=================

action_sequence:

	; draw both lines in the hlin
	lda	#$00
	sta	hlin_mask_smc+1

	ldx	#2
	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: 0,20 at 40
;	hlin color: $13: 0,20 at 42

action_frame1:
	ldy	#40
	lda	#$31
	sta	hlin_color_smc+1
	jmp	action_left_laser


;=============
; frame2: (77)
; 	hlin color: $31: 0,39 at 40
;	hlin color: $13: 0,39 at 42
;	pink colors!

action_frame2:
	ldy	#40
	lda	#$31
	sta	hlin_color_smc+1
	jsr	action_full_laser
	jmp	make_pink

;=============
; frame3: (78)
; 	hlin color: $31: 20,39 at 40
;	hlin color: $13: 20,39 at 42
; 	hlin color: $1A:  0,19 at 40
;	hlin color: $A1:  0,19 at 42
action_frame3:
	ldy	#40
	lda	#$31
	sta	hlin_color_smc+1
	jsr	action_right_laser
	ldy	#40
	lda	#$1A
	sta	hlin_color_smc+1
	jmp	action_left_laser

;=============
; frame4: (79)
; 	hlin color: $A1:  20,39 at 40
;	hlin color: $1A:  20,39 at 42
action_frame4:

;=============
; frame5: (80)
;	nothing for 5 frames
action_frame5:
action_frame6:
action_frame7:
action_frame8:
action_frame9:
	rts


;==============
; frame10: (81)
; 	hlin color: $31: 0,20 at 22
;	hlin color: $13: 0,20 at 24
action_frame10:

;=============
; frame11: (82)
; 	hlin color: $31: 0,39 at 22
;	hlin color: $13: 0,39 at 24
;	pink colors!
action_frame11:

;=============
; frame12: (83)
; 	hlin color: $31: 20,39 at 22
;	hlin color: $13: 20,39 at 24
; 	hlin color: $A1:  4,19 at 22
;	hlin color: $1A:  4,19 at 24	; top
; 	hlin color: $31:  0,20 at 30
;	hlin color: $13:  0,20 at 32	; bottom
action_frame12:

;=============
; frame13: (84)
; 	hlin color: $A1: 20,39 at 22
;	hlin color: $1A: 20,39 at 24	; top
; 	hlin color: $3B:  0,39 at 30
;	hlin color: $B3:  0,39 at 32	; bottom
action_frame13:

;==============
; frame14: (85)
; 	hlin color: $31: 20,39 at 30
;	hlin color: $13: 20,39 at 32
; 	hlin color: $A1:  4,19 at 30
;	hlin color: $1A:  4,19 at 32	; top
action_frame14:

;==============
; frame15: (86)
; 	hlin color: $A1:  20,39 at 30
;	hlin color: $1A:  20,39 at 32	; top
;	friend, eye@1,29
action_frame15:

;==============
; frame16: (87)
;	friend, eye@8,29
action_frame16:

;==============
; frame17: (88)
; 	hlin color: $31:  0,20 at 28
;	hlin color: $13:  0,20 at 30	; bottom
;	friend, eye@10,30
action_frame17:

;==============
; frame18: (89)
; 	hlin color: $31:  0,39 at 28
;	hlin color: $13:  0,39 at 30	; bottom
;	friend, eye@14,30
;	pink colors!  eyes red???
action_frame18:

;==============
; frame19: (90)
; 	hlin color: $31: 20,39 at 28
;	hlin color: $13: 20,39 at 30
; 	hlin color: $A1:  4,19 at 28
;	hlin color: $1A:  4,19 at 30	; top
;	friend, eye@20,29
action_frame19:

;==============
; frame20: (91)
; 	hlin color: $31:  0,20 at 32
;	hlin color: $13:  0,20 at 34	; bottom
;	friend, eye@24,30
action_frame20:

;==============
; frame21: (92)
; 	hlin color: $3B:  0,39 at 32
;	hlin color: $B3:  0,39 at 34	; bottom
;	friend, eye@29,30
action_frame21:

;==============
; frame22: (93)
; 	hlin color: $31: 20,39 at 32
;	hlin color: $13: 20,39 at 34
; 	hlin color: $A1:  4,19 at 32
;	hlin color: $1A:  4,19 at 34	; top
; 	hlin color: $31:  0,20 at 34
;	hlin color: $13:  0,20 at 36	; bottom
;	friend, eye@33,29
action_frame22:

;==============
; frame23: (94)
;	friend, eye@38,28
; 	hlin color: $31:  0,39 at 34
;	hlin color: $13:  0,39 at 36	; OVER FRIEND
;	PINK!
action_frame23:

;==============
; frame24: (95)
;	friend, eye@43,28
; 	hlin color: $31: 20,39 at 34
;	hlin color: $13: 20,39 at 36
; 	hlin color: $A1:  4,19 at 34
;	hlin color: $1A:  4,19 at 36	; OVER FRIEND
action_frame24:

;==============
; frame25: (96)
;	friend, eye@48,28
; 	hlin color: $A1: 20,39 at 34
;	hlin color: $1A: 20,39 at 36	; OVER FRIEND
action_frame25:

;=======================
; frame26: wait 5 frames
action_frame26:
action_frame27:
action_frame28:
action_frame29:
action_frame30:
	rts

;==============
; frame31: (97)
; 	hlin color: $31:  0,20 at 24
;	hlin color: $13:  0,20 at 26
action_frame31:

;==============
; frame32: (98)
; 	hlin color: $31:  0,39 at 24
;	hlin color: $13:  0,39 at 26
;	PINK!
action_frame32:

;==============
; frame33: (99)
; 	hlin color: $31: 20,39 at 24
;	hlin color: $13: 20,39 at 26
; 	hlin color: $A1:  4,19 at 24
;	hlin color: $1A:  4,19 at 26
action_frame33:

;===============
; frame34: (100)
; 	hlin color: $A1: 20,39 at 24
;	hlin color: $1A: 20,39 at 26
action_frame34:

;=======================
; frame35: wait 5 frames
action_frame35:
action_frame36:
action_frame37:
action_frame38:
action_frame39:
	rts

;===============
; frame40: (101)
; 	hlin color: $31:  0,20 at 26
;	hlin color: $13:  0,20 at 28
action_frame40:

;===============
; frame41: (102)
; 	hlin color: $31:  0,39 at 26
;	hlin color: $13:  0,39 at 28
action_frame41:

;===============
; frame42: (103)
; 	hlin color: $31: 20,39 at 26
;	hlin color: $13: 20,39 at 28
; 	hlin color: $A1:  4,19 at 26
;	hlin color: $1A:  4,19 at 28	; top
; 	hlin color: $31:  0,20 at 28
;	hlin color: $13:  0,20 at 30	; bottom
action_frame42:

;===============
; frame43: (104)
; 	hlin color: $A1: 20,39 at 26
;	hlin color: $1A: 20,39 at 28
; 	hlin color: $31:  0,39 at 28
;	hlin color: $13:  0,39 at 30
;	PINK!
action_frame43:

;==============
; frame44: (105)
; 	hlin color: $31: 20,39 at 28
;	hlin color: $13: 20,39 at 30
; 	hlin color: $A1:  4,19 at 28
;	hlin color: $1A:  4,19 at 30
action_frame44:

;==============
; frame45: (106)
; 	hlin color: $31:  0,20 at 32
;	hlin color: $13:  0,20 at 34
action_frame45:

;==============
; frame46: (107)
; 	hlin color: $3B:  0,39 at 32
;	hlin color: $B3:  0,39 at 34
action_frame46:

;==============
; frame47: (108)
; 	hlin color: $31: 20,39 at 32
;	hlin color: $13: 20,39 at 34
; 	hlin color: $A1:  4,19 at 32
;	hlin color: $1A:  4,19 at 34	; top
; 	hlin color: $31:  0,20 at 22
;	hlin color: $13:  0,20 at 24	; bottom
action_frame47:

;==============
; frame48: (109)
; 	hlin color: $A1: 20,39 at 32
;	hlin color: $1A: 20,39 at 34
; 	hlin color: $31:  0,39 at 22
;	hlin color: $13:  0,39 at 24	; bottom
;	PINK!
action_frame48:

;==============
; frame49: (110)
; 	hlin color: $31: 20,39 at 22
;	hlin color: $13: 20,39 at 24
; 	hlin color: $A1:  4,19 at 22
;	hlin color: $1A:  4,19 at 24
action_frame49:

;==============
; frame50: (111)
; 	hlin color: $A1: 20,39 at 22
;	hlin color: $1A: 20,39 at 24
;	alien_eye@2,28
action_frame50:

;==============
; frame51: (112)
;	alien_eye@6,28
action_frame51:

;==============
; frame52: (113)
;	alien_eye@10,30
action_frame52:

;==============
; frame53: (114)
;	alien_eye@14,30
;	alien_eye@2,28
action_frame53:

;==============
; frame54: (115)
;	alien_eye@20,28
;	alien_eye@6,28
action_frame54:

;==============
; frame55: (116)
;	alien_eye@24,30
;	alien_eye@10,30
action_frame55:

;==============
; frame56: (117)
;	alien_eye@28,30
;	alien_eye@15,30
action_frame56:

;==============
; frame57: (118)
;	alien_eye@32,30
;	alien_eye@20,30
action_frame57:

;==============
; frame58: (119)
;	alien_eye@38,28
;	alien_eye@25,30
;	alien_eye@2,28
action_frame58:

;==============
; frame59: (120)
;	alien_eye@43,28
;	alien_eye@29,30
;	alien_eye@6,28
action_frame59:

;==============
; frame60: (121)
;	alien_eye@48,28
;	alien_eye@33,30
;	alien_eye@10,30
action_frame60:

;==============
; frame61: (122)
;	alien_eye@38,28
;	alien_eye@15,30
action_frame61:

;==============
; frame62: (123)
;	alien_eye@43,28
;	alien_eye@20,28
action_frame62:

;==============
; frame63: (124)
;	alien_eye@48,28
;	alien_eye@24,28
action_frame63:

;==============
; frame64: (125)
;	alien_eye@28,30
action_frame64:

;==============
; frame65: (126)
;	alien_eye@32,30
action_frame65:

;==============
; frame66: (127)
;	alien_eye@38,28
action_frame66:

;==============
; frame67: (128)
;	alien_eye@43,28
action_frame67:

;==============
; frame68: (129)
;	alien_eye@48,28
action_frame68:


	rts

	; Y is ypos
	; color in hlin_color_smc+1
action_left_laser:

; 	hlin color: $31: 0,20 at 40

	sty	TEMPY
	ldx	#20
	lda	#0
	jsr	hlin

;	hlin color: $13: 0,20 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	#20

	jmp	hlin

	; 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


	; Y is ypos
	; color in hlin_color_smc+1
action_right_laser:

; 	hlin color: $31: 20,39 at 40

	sty	TEMPY
	ldx	#19
	lda	#20
	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	#20
	ldx	#19

	jmp	hlin








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

; technically the middle alien has squatter face
; is slightly shorter, and has no red insignia

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
	.byte $AA,$AA,$AA,$00,$60,$00,$00,$00,$00,$00,$f6,$26
	.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