mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-12 11:29:37 +00:00
mist: split off some more common code
This commit is contained in:
Vince Weaver
parent
4464f46053
commit
43f5028c45
|
|
@ -54,6 +54,8 @@ mist.o: mist.s zp.inc hardware.inc \
|
|||
letter_cat.s \
|
||||
marker_switch.s \
|
||||
brother_books.s \
|
||||
keyboard.s \
|
||||
draw_pointer.s \
|
||||
gr_copy.s audio.s text_print.s decompress_fast_v2.s
|
||||
ca65 -o mist.o mist.s -l mist.lst
|
||||
|
||||
|
|
|
|||
187
mist/draw_pointer.s
Normal file
187
mist/draw_pointer.s
Normal file
|
|
@ -0,0 +1,187 @@
|
|||
;====================================
|
||||
; draw pointer
|
||||
;====================================
|
||||
|
||||
lda CURSOR_VISIBLE
|
||||
bne draw_pointer
|
||||
jmp no_draw_pointer
|
||||
|
||||
draw_pointer:
|
||||
|
||||
|
||||
lda CURSOR_X
|
||||
sta XPOS
|
||||
lda CURSOR_Y
|
||||
sta YPOS
|
||||
|
||||
; see if inside special region
|
||||
ldy #LOCATION_SPECIAL_EXIT
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
bmi finger_not_special ; if $ff not special
|
||||
cmp DIRECTION
|
||||
bne finger_not_special ; only special if facing right way
|
||||
|
||||
; see if X1 < X < X2
|
||||
lda CURSOR_X
|
||||
ldy #LOCATION_SPECIAL_X1
|
||||
cmp (LOCATION_STRUCT_L),Y
|
||||
bcc finger_not_special ; blt
|
||||
|
||||
ldy #LOCATION_SPECIAL_X2
|
||||
cmp (LOCATION_STRUCT_L),Y
|
||||
bcs finger_not_special ; bge
|
||||
|
||||
; see if Y1 < Y < Y2
|
||||
lda CURSOR_Y
|
||||
ldy #LOCATION_SPECIAL_Y1
|
||||
cmp (LOCATION_STRUCT_L),Y
|
||||
bcc finger_not_special ; blt
|
||||
|
||||
ldy #LOCATION_SPECIAL_Y2
|
||||
cmp (LOCATION_STRUCT_L),Y
|
||||
bcs finger_not_special ; bge
|
||||
|
||||
; we made it this far, we are special
|
||||
|
||||
finger_grab:
|
||||
lda #1
|
||||
sta IN_SPECIAL
|
||||
|
||||
lda #<finger_grab_sprite
|
||||
sta INL
|
||||
lda #>finger_grab_sprite
|
||||
jmp finger_draw
|
||||
|
||||
finger_not_special:
|
||||
|
||||
; check for left/right
|
||||
|
||||
lda CURSOR_X
|
||||
cmp #7
|
||||
bcc check_cursor_left ; blt
|
||||
|
||||
cmp #33
|
||||
bcs check_cursor_right ; bge
|
||||
|
||||
; otherwise, finger_point
|
||||
|
||||
finger_point:
|
||||
lda #<finger_point_sprite
|
||||
sta INL
|
||||
lda #>finger_point_sprite
|
||||
jmp finger_draw
|
||||
|
||||
check_cursor_left:
|
||||
ldy #LOCATION_BGS
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
|
||||
check_left_north:
|
||||
ldy DIRECTION
|
||||
cpy #DIRECTION_N
|
||||
bne check_left_south
|
||||
|
||||
handle_left_north:
|
||||
; check if west exists
|
||||
and #BG_WEST
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_south:
|
||||
cpy #DIRECTION_S
|
||||
bne check_left_east
|
||||
|
||||
handle_left_south:
|
||||
; check if east exists
|
||||
and #BG_EAST
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_east:
|
||||
cpy #DIRECTION_E
|
||||
bne check_left_west
|
||||
handle_left_east:
|
||||
; check if north exists
|
||||
and #BG_NORTH
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_west:
|
||||
; we should be only option left
|
||||
handle_left_west:
|
||||
; check if south exists
|
||||
and #BG_SOUTH
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
|
||||
check_cursor_right:
|
||||
|
||||
ldy #LOCATION_BGS
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
|
||||
check_right_north:
|
||||
ldy DIRECTION
|
||||
cpy #DIRECTION_N
|
||||
bne check_right_south
|
||||
|
||||
handle_right_north:
|
||||
; check if east exists
|
||||
and #BG_EAST
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
check_right_south:
|
||||
cpy #DIRECTION_S
|
||||
bne check_right_east
|
||||
|
||||
handle_right_south:
|
||||
; check if west exists
|
||||
and #BG_WEST
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
check_right_east:
|
||||
cpy #DIRECTION_E
|
||||
bne check_right_west
|
||||
handle_right_east:
|
||||
; check if south exists
|
||||
and #BG_SOUTH
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
check_right_west:
|
||||
; we should be only option left
|
||||
handle_right_west:
|
||||
; check if north exists
|
||||
and #BG_NORTH
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
|
||||
|
||||
finger_left:
|
||||
lda #1
|
||||
sta IN_LEFT
|
||||
|
||||
lda #<finger_left_sprite
|
||||
sta INL
|
||||
lda #>finger_left_sprite
|
||||
jmp finger_draw
|
||||
|
||||
finger_right:
|
||||
lda #1
|
||||
sta IN_RIGHT
|
||||
lda #<finger_right_sprite
|
||||
sta INL
|
||||
lda #>finger_right_sprite
|
||||
jmp finger_draw
|
||||
|
||||
|
||||
|
||||
finger_draw:
|
||||
sta INH
|
||||
jsr put_sprite_crop
|
||||
|
||||
no_draw_pointer:
|
||||
rts
|
||||
|
||||
249
mist/keyboard.s
Normal file
249
mist/keyboard.s
Normal file
|
|
@ -0,0 +1,249 @@
|
|||
|
||||
;==============================
|
||||
; Handle Keypress
|
||||
;==============================
|
||||
handle_keypress:
|
||||
|
||||
lda KEYPRESS
|
||||
bmi keypress
|
||||
|
||||
jmp no_keypress
|
||||
|
||||
keypress:
|
||||
and #$7f ; clear high bit
|
||||
|
||||
check_left:
|
||||
cmp #'A'
|
||||
beq left_pressed
|
||||
cmp #8 ; left key
|
||||
bne check_right
|
||||
left_pressed:
|
||||
dec CURSOR_X
|
||||
jmp done_keypress
|
||||
|
||||
check_right:
|
||||
cmp #'D'
|
||||
beq right_pressed
|
||||
cmp #$15 ; right key
|
||||
bne check_up
|
||||
right_pressed:
|
||||
inc CURSOR_X
|
||||
jmp done_keypress
|
||||
|
||||
check_up:
|
||||
cmp #'W'
|
||||
beq up_pressed
|
||||
cmp #$0B ; up key
|
||||
bne check_down
|
||||
up_pressed:
|
||||
dec CURSOR_Y
|
||||
dec CURSOR_Y
|
||||
jmp done_keypress
|
||||
|
||||
check_down:
|
||||
cmp #'S'
|
||||
beq down_pressed
|
||||
cmp #$0A
|
||||
bne check_return
|
||||
down_pressed:
|
||||
inc CURSOR_Y
|
||||
inc CURSOR_Y
|
||||
jmp done_keypress
|
||||
|
||||
check_return:
|
||||
cmp #' '
|
||||
beq return_pressed
|
||||
cmp #13
|
||||
bne done_keypress
|
||||
|
||||
return_pressed:
|
||||
|
||||
lda IN_SPECIAL
|
||||
beq not_special_return
|
||||
|
||||
special_return:
|
||||
jsr handle_special
|
||||
|
||||
; special case, don't make cursor visible
|
||||
jmp no_keypress
|
||||
|
||||
not_special_return:
|
||||
|
||||
lda IN_RIGHT
|
||||
beq not_right_return
|
||||
right_return:
|
||||
|
||||
jsr turn_right
|
||||
jmp no_keypress
|
||||
|
||||
not_right_return:
|
||||
|
||||
lda IN_LEFT
|
||||
beq not_left_return
|
||||
left_return:
|
||||
|
||||
jsr turn_left
|
||||
jmp no_keypress
|
||||
|
||||
not_left_return:
|
||||
|
||||
jsr go_forward
|
||||
jmp no_keypress
|
||||
|
||||
done_keypress:
|
||||
lda #1 ; make cursor visible
|
||||
sta CURSOR_VISIBLE
|
||||
|
||||
no_keypress:
|
||||
bit KEYRESET
|
||||
rts
|
||||
|
||||
;============================
|
||||
; handle_special
|
||||
;===========================
|
||||
|
||||
; set up jump table fakery
|
||||
handle_special:
|
||||
ldy #LOCATION_SPECIAL_FUNC+1
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
pha
|
||||
dey
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
pha
|
||||
rts
|
||||
|
||||
|
||||
;=============================
|
||||
; change direction
|
||||
;=============================
|
||||
change_direction:
|
||||
|
||||
; load background
|
||||
lda DIRECTION
|
||||
asl
|
||||
clc
|
||||
adc #LOCATION_NORTH_BG
|
||||
tay
|
||||
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
sta LZSA_SRC_LO
|
||||
iny
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
sta LZSA_SRC_HI
|
||||
lda #$c ; load to page $c00
|
||||
jsr decompress_lzsa2_fast
|
||||
|
||||
rts
|
||||
|
||||
|
||||
;=============================
|
||||
; change location
|
||||
;=============================
|
||||
change_location:
|
||||
|
||||
; reset pointer to not visible, centered
|
||||
lda #0
|
||||
sta CURSOR_VISIBLE
|
||||
lda #20
|
||||
sta CURSOR_X
|
||||
sta CURSOR_Y
|
||||
|
||||
lda LOCATION
|
||||
asl
|
||||
tay
|
||||
|
||||
lda locations,Y
|
||||
sta LOCATION_STRUCT_L
|
||||
lda locations+1,Y
|
||||
sta LOCATION_STRUCT_H
|
||||
|
||||
jsr change_direction
|
||||
|
||||
rts
|
||||
|
||||
;==========================
|
||||
; go forward
|
||||
;===========================
|
||||
go_forward:
|
||||
|
||||
; update new location
|
||||
|
||||
lda DIRECTION
|
||||
clc
|
||||
adc #LOCATION_NORTH_EXIT
|
||||
tay
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
|
||||
cmp #$ff
|
||||
beq cant_go_forward
|
||||
|
||||
sta LOCATION
|
||||
|
||||
; update new direction
|
||||
|
||||
lda DIRECTION
|
||||
clc
|
||||
adc #LOCATION_NORTH_EXIT_DIR
|
||||
tay
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
sta DIRECTION
|
||||
|
||||
jsr change_location
|
||||
cant_go_forward:
|
||||
rts
|
||||
|
||||
;==========================
|
||||
; turn left
|
||||
;===========================
|
||||
turn_left:
|
||||
|
||||
lda DIRECTION
|
||||
cmp #DIRECTION_N
|
||||
beq go_west
|
||||
cmp #DIRECTION_W
|
||||
beq go_south
|
||||
cmp #DIRECTION_S
|
||||
beq go_east
|
||||
bne go_north
|
||||
|
||||
;==========================
|
||||
; turn right
|
||||
;===========================
|
||||
turn_right:
|
||||
lda DIRECTION
|
||||
cmp #DIRECTION_N
|
||||
beq go_east
|
||||
cmp #DIRECTION_E
|
||||
beq go_south
|
||||
cmp #DIRECTION_S
|
||||
beq go_west
|
||||
bne go_north
|
||||
|
||||
|
||||
go_north:
|
||||
lda #DIRECTION_N
|
||||
jmp done_turning
|
||||
go_east:
|
||||
lda #DIRECTION_E
|
||||
jmp done_turning
|
||||
go_south:
|
||||
lda #DIRECTION_S
|
||||
jmp done_turning
|
||||
go_west:
|
||||
lda #DIRECTION_W
|
||||
jmp done_turning
|
||||
|
||||
|
||||
done_turning:
|
||||
sta DIRECTION
|
||||
jsr change_direction
|
||||
|
||||
rts
|
||||
|
||||
|
||||
exit_level:
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
430
mist/mist.s
430
mist/mist.s
|
|
@ -109,191 +109,12 @@ location_inside_clock:
|
|||
|
||||
|
||||
nothing_special:
|
||||
|
||||
;====================================
|
||||
; draw pointer
|
||||
;====================================
|
||||
|
||||
lda CURSOR_VISIBLE
|
||||
bne draw_pointer
|
||||
jmp no_draw_pointer
|
||||
|
||||
draw_pointer:
|
||||
|
||||
|
||||
lda CURSOR_X
|
||||
sta XPOS
|
||||
lda CURSOR_Y
|
||||
sta YPOS
|
||||
|
||||
; see if inside special region
|
||||
ldy #LOCATION_SPECIAL_EXIT
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
bmi finger_not_special ; if $ff not special
|
||||
cmp DIRECTION
|
||||
bne finger_not_special ; only special if facing right way
|
||||
|
||||
; see if X1 < X < X2
|
||||
lda CURSOR_X
|
||||
ldy #LOCATION_SPECIAL_X1
|
||||
cmp (LOCATION_STRUCT_L),Y
|
||||
bcc finger_not_special ; blt
|
||||
|
||||
ldy #LOCATION_SPECIAL_X2
|
||||
cmp (LOCATION_STRUCT_L),Y
|
||||
bcs finger_not_special ; bge
|
||||
|
||||
; see if Y1 < Y < Y2
|
||||
lda CURSOR_Y
|
||||
ldy #LOCATION_SPECIAL_Y1
|
||||
cmp (LOCATION_STRUCT_L),Y
|
||||
bcc finger_not_special ; blt
|
||||
|
||||
ldy #LOCATION_SPECIAL_Y2
|
||||
cmp (LOCATION_STRUCT_L),Y
|
||||
bcs finger_not_special ; bge
|
||||
|
||||
; we made it this far, we are special
|
||||
|
||||
finger_grab:
|
||||
lda #1
|
||||
sta IN_SPECIAL
|
||||
|
||||
lda #<finger_grab_sprite
|
||||
sta INL
|
||||
lda #>finger_grab_sprite
|
||||
jmp finger_draw
|
||||
|
||||
finger_not_special:
|
||||
|
||||
; check for left/right
|
||||
|
||||
lda CURSOR_X
|
||||
cmp #7
|
||||
bcc check_cursor_left ; blt
|
||||
|
||||
cmp #33
|
||||
bcs check_cursor_right ; bge
|
||||
|
||||
; otherwise, finger_point
|
||||
|
||||
finger_point:
|
||||
lda #<finger_point_sprite
|
||||
sta INL
|
||||
lda #>finger_point_sprite
|
||||
jmp finger_draw
|
||||
|
||||
check_cursor_left:
|
||||
ldy #LOCATION_BGS
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
|
||||
check_left_north:
|
||||
ldy DIRECTION
|
||||
cpy #DIRECTION_N
|
||||
bne check_left_south
|
||||
|
||||
handle_left_north:
|
||||
; check if west exists
|
||||
and #BG_WEST
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_south:
|
||||
cpy #DIRECTION_S
|
||||
bne check_left_east
|
||||
|
||||
handle_left_south:
|
||||
; check if east exists
|
||||
and #BG_EAST
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_east:
|
||||
cpy #DIRECTION_E
|
||||
bne check_left_west
|
||||
handle_left_east:
|
||||
; check if north exists
|
||||
and #BG_NORTH
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
check_left_west:
|
||||
; we should be only option left
|
||||
handle_left_west:
|
||||
; check if south exists
|
||||
and #BG_SOUTH
|
||||
beq finger_point
|
||||
bne finger_left
|
||||
|
||||
|
||||
check_cursor_right:
|
||||
|
||||
ldy #LOCATION_BGS
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
|
||||
check_right_north:
|
||||
ldy DIRECTION
|
||||
cpy #DIRECTION_N
|
||||
bne check_right_south
|
||||
|
||||
handle_right_north:
|
||||
; check if east exists
|
||||
and #BG_EAST
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
check_right_south:
|
||||
cpy #DIRECTION_S
|
||||
bne check_right_east
|
||||
|
||||
handle_right_south:
|
||||
; check if west exists
|
||||
and #BG_WEST
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
check_right_east:
|
||||
cpy #DIRECTION_E
|
||||
bne check_right_west
|
||||
handle_right_east:
|
||||
; check if south exists
|
||||
and #BG_SOUTH
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
check_right_west:
|
||||
; we should be only option left
|
||||
handle_right_west:
|
||||
; check if north exists
|
||||
and #BG_NORTH
|
||||
beq finger_point
|
||||
bne finger_right
|
||||
|
||||
|
||||
|
||||
finger_left:
|
||||
lda #1
|
||||
sta IN_LEFT
|
||||
|
||||
lda #<finger_left_sprite
|
||||
sta INL
|
||||
lda #>finger_left_sprite
|
||||
jmp finger_draw
|
||||
|
||||
finger_right:
|
||||
lda #1
|
||||
sta IN_RIGHT
|
||||
lda #<finger_right_sprite
|
||||
sta INL
|
||||
lda #>finger_right_sprite
|
||||
jmp finger_draw
|
||||
|
||||
|
||||
|
||||
finger_draw:
|
||||
sta INH
|
||||
jsr put_sprite_crop
|
||||
|
||||
no_draw_pointer:
|
||||
jsr draw_pointer
|
||||
|
||||
;====================================
|
||||
; page flip
|
||||
|
|
@ -320,251 +141,6 @@ room_frame_no_oflo:
|
|||
jmp game_loop
|
||||
|
||||
|
||||
;==============================
|
||||
; Handle Keypress
|
||||
;==============================
|
||||
handle_keypress:
|
||||
|
||||
lda KEYPRESS
|
||||
bmi keypress
|
||||
|
||||
jmp no_keypress
|
||||
|
||||
keypress:
|
||||
and #$7f ; clear high bit
|
||||
|
||||
check_left:
|
||||
cmp #'A'
|
||||
beq left_pressed
|
||||
cmp #8 ; left key
|
||||
bne check_right
|
||||
left_pressed:
|
||||
dec CURSOR_X
|
||||
jmp done_keypress
|
||||
|
||||
check_right:
|
||||
cmp #'D'
|
||||
beq right_pressed
|
||||
cmp #$15 ; right key
|
||||
bne check_up
|
||||
right_pressed:
|
||||
inc CURSOR_X
|
||||
jmp done_keypress
|
||||
|
||||
check_up:
|
||||
cmp #'W'
|
||||
beq up_pressed
|
||||
cmp #$0B ; up key
|
||||
bne check_down
|
||||
up_pressed:
|
||||
dec CURSOR_Y
|
||||
dec CURSOR_Y
|
||||
jmp done_keypress
|
||||
|
||||
check_down:
|
||||
cmp #'S'
|
||||
beq down_pressed
|
||||
cmp #$0A
|
||||
bne check_return
|
||||
down_pressed:
|
||||
inc CURSOR_Y
|
||||
inc CURSOR_Y
|
||||
jmp done_keypress
|
||||
|
||||
check_return:
|
||||
cmp #' '
|
||||
beq return_pressed
|
||||
cmp #13
|
||||
bne done_keypress
|
||||
|
||||
return_pressed:
|
||||
|
||||
lda IN_SPECIAL
|
||||
beq not_special_return
|
||||
|
||||
special_return:
|
||||
jsr handle_special
|
||||
|
||||
; special case, don't make cursor visible
|
||||
jmp no_keypress
|
||||
|
||||
not_special_return:
|
||||
|
||||
lda IN_RIGHT
|
||||
beq not_right_return
|
||||
right_return:
|
||||
|
||||
jsr turn_right
|
||||
jmp no_keypress
|
||||
|
||||
not_right_return:
|
||||
|
||||
lda IN_LEFT
|
||||
beq not_left_return
|
||||
left_return:
|
||||
|
||||
jsr turn_left
|
||||
jmp no_keypress
|
||||
|
||||
not_left_return:
|
||||
|
||||
jsr go_forward
|
||||
jmp no_keypress
|
||||
|
||||
done_keypress:
|
||||
lda #1 ; make cursor visible
|
||||
sta CURSOR_VISIBLE
|
||||
|
||||
no_keypress:
|
||||
bit KEYRESET
|
||||
rts
|
||||
|
||||
;============================
|
||||
; handle_special
|
||||
;===========================
|
||||
|
||||
; set up jump table fakery
|
||||
handle_special:
|
||||
ldy #LOCATION_SPECIAL_FUNC+1
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
pha
|
||||
dey
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
pha
|
||||
rts
|
||||
|
||||
|
||||
;=============================
|
||||
; change direction
|
||||
;=============================
|
||||
change_direction:
|
||||
|
||||
; load background
|
||||
lda DIRECTION
|
||||
asl
|
||||
clc
|
||||
adc #LOCATION_NORTH_BG
|
||||
tay
|
||||
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
sta LZSA_SRC_LO
|
||||
iny
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
sta LZSA_SRC_HI
|
||||
lda #$c ; load to page $c00
|
||||
jsr decompress_lzsa2_fast
|
||||
|
||||
rts
|
||||
|
||||
|
||||
;=============================
|
||||
; change location
|
||||
;=============================
|
||||
change_location:
|
||||
|
||||
; reset pointer to not visible, centered
|
||||
lda #0
|
||||
sta CURSOR_VISIBLE
|
||||
lda #20
|
||||
sta CURSOR_X
|
||||
sta CURSOR_Y
|
||||
|
||||
lda LOCATION
|
||||
asl
|
||||
tay
|
||||
|
||||
lda locations,Y
|
||||
sta LOCATION_STRUCT_L
|
||||
lda locations+1,Y
|
||||
sta LOCATION_STRUCT_H
|
||||
|
||||
jsr change_direction
|
||||
|
||||
rts
|
||||
|
||||
;==========================
|
||||
; go forward
|
||||
;===========================
|
||||
go_forward:
|
||||
|
||||
; update new location
|
||||
|
||||
lda DIRECTION
|
||||
clc
|
||||
adc #LOCATION_NORTH_EXIT
|
||||
tay
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
|
||||
cmp #$ff
|
||||
beq cant_go_forward
|
||||
|
||||
sta LOCATION
|
||||
|
||||
; update new direction
|
||||
|
||||
lda DIRECTION
|
||||
clc
|
||||
adc #LOCATION_NORTH_EXIT_DIR
|
||||
tay
|
||||
lda (LOCATION_STRUCT_L),Y
|
||||
sta DIRECTION
|
||||
|
||||
jsr change_location
|
||||
cant_go_forward:
|
||||
rts
|
||||
|
||||
;==========================
|
||||
; turn left
|
||||
;===========================
|
||||
turn_left:
|
||||
|
||||
lda DIRECTION
|
||||
cmp #DIRECTION_N
|
||||
beq go_west
|
||||
cmp #DIRECTION_W
|
||||
beq go_south
|
||||
cmp #DIRECTION_S
|
||||
beq go_east
|
||||
bne go_north
|
||||
|
||||
;==========================
|
||||
; turn right
|
||||
;===========================
|
||||
turn_right:
|
||||
lda DIRECTION
|
||||
cmp #DIRECTION_N
|
||||
beq go_east
|
||||
cmp #DIRECTION_E
|
||||
beq go_south
|
||||
cmp #DIRECTION_S
|
||||
beq go_west
|
||||
bne go_north
|
||||
|
||||
|
||||
go_north:
|
||||
lda #DIRECTION_N
|
||||
jmp done_turning
|
||||
go_east:
|
||||
lda #DIRECTION_E
|
||||
jmp done_turning
|
||||
go_south:
|
||||
lda #DIRECTION_S
|
||||
jmp done_turning
|
||||
go_west:
|
||||
lda #DIRECTION_W
|
||||
jmp done_turning
|
||||
|
||||
|
||||
done_turning:
|
||||
sta DIRECTION
|
||||
jsr change_direction
|
||||
|
||||
rts
|
||||
|
||||
|
||||
exit_level:
|
||||
rts
|
||||
|
||||
;==========================
|
||||
; includes
|
||||
;==========================
|
||||
|
|
@ -576,6 +152,8 @@ exit_level:
|
|||
.include "text_print.s"
|
||||
.include "gr_fast_clear.s"
|
||||
.include "decompress_fast_v2.s"
|
||||
.include "keyboard.s"
|
||||
.include "draw_pointer.s"
|
||||
|
||||
.include "audio.s"
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user