Moved screen functions to platform-apple2
This commit is contained in:
Rob McMullen
parent
7b6cf0c762
commit
23980e303f
14
actors.s
14
actors.s
|
|
@ -73,17 +73,6 @@ source_actor_y
|
||||||
|
|
||||||
source_end .byte $ff
|
source_end .byte $ff
|
||||||
|
|
||||||
; [i*7-3 for i in range(40)]
|
|
||||||
player_col_to_x .byte 0, 3, 10, 17, 24, 31, 38, 45, 52, 59, 66, 73, 80, 87, 94, 101, 108, 115, 122, 129, 136, 143, 150, 157, 164, 171, 178, 185, 192, 199, 206, 213, 220, 227, 234, 241, 248, 248, 248, 248, 248,
|
|
||||||
;.byte 0, 4, 11, 18, 25, 32, 39, 46, 53, 60, 67, 74, 81, 88, 95, 102, 109, 116, 123, 130, 137, 144, 151, 158, 165, 172, 179, 186, 193, 200, 207, 214, 221, 228, 235, 242, 249, 249, 249, 249, 249
|
|
||||||
|
|
||||||
; [i*8-5 for i in range(24)]
|
|
||||||
player_row_to_y .byte 0, 3, 11, 19, 27, 35, 43, 51, 59, 67, 75, 83, 91, 99, 107, 115, 123, 131, 139, 147, 155, 163, 171, 179
|
|
||||||
|
|
||||||
|
|
||||||
; defines the zone around the midpoint where the player can change to any direction, not just backtracking.
|
|
||||||
x_allowed_turn .byte 0, 0, 1, 1, 1, 0, 0
|
|
||||||
y_allowed_turn .byte 0, 0, 1, 1, 1, 0, 0, 0
|
|
||||||
;
|
;
|
||||||
;# Scores
|
;# Scores
|
||||||
;
|
;
|
||||||
|
|
@ -301,7 +290,8 @@ init_player nop
|
||||||
sta player_score_h
|
sta player_score_h
|
||||||
rts
|
rts
|
||||||
|
|
||||||
next_life jsr init_common
|
next_life jsr clear_input
|
||||||
|
jsr init_common
|
||||||
jsr init_player_common
|
jsr init_player_common
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -3,6 +3,8 @@ STARTING_LIVES = 3
|
||||||
BONUS_LIFE = 10000
|
BONUS_LIFE = 10000
|
||||||
MAX_LIVES = 8
|
MAX_LIVES = 8
|
||||||
|
|
||||||
|
WIPE_DELAY = 40
|
||||||
|
|
||||||
; tile size definition. On apple, it's a 7x8 tile. Atari is 8x8
|
; tile size definition. On apple, it's a 7x8 tile. Atari is 8x8
|
||||||
X_MIDPOINT = 3
|
X_MIDPOINT = 3
|
||||||
X_TILEMAX = 7
|
X_TILEMAX = 7
|
||||||
|
|
@ -23,6 +25,12 @@ AMIDAR_NORMAL = 5
|
||||||
ORBITER_NORMAL = 6
|
ORBITER_NORMAL = 6
|
||||||
GAME_OVER = 255
|
GAME_OVER = 255
|
||||||
|
|
||||||
|
EXPLODING_TIME = 10
|
||||||
|
DEAD_TIME = 10
|
||||||
|
REGENERATING_TIME = 120
|
||||||
|
END_GAME_TIME = 100
|
||||||
|
TITLE_SCREEN_TIME = 100
|
||||||
|
|
||||||
; memory map
|
; memory map
|
||||||
; BF00 - BFFF: damage for page 1
|
; BF00 - BFFF: damage for page 1
|
||||||
; BE00 - BEFF: damage for page 2
|
; BE00 - BEFF: damage for page 2
|
||||||
|
|
@ -32,6 +40,7 @@ GAME_OVER = 255
|
||||||
|
|
||||||
DAMAGEPAGE1 = $bf ; page number of damage list for screen 1
|
DAMAGEPAGE1 = $bf ; page number of damage list for screen 1
|
||||||
DAMAGEPAGE2 = $be ; "" for screen 2
|
DAMAGEPAGE2 = $be ; "" for screen 2
|
||||||
|
LEVEL_BOXES = $bd00
|
||||||
TEXTDAMAGE = $bc00
|
TEXTDAMAGE = $bc00
|
||||||
|
|
||||||
; tiles
|
; tiles
|
||||||
|
|
|
||||||
7
logic.s
7
logic.s
|
|
@ -1,9 +1,3 @@
|
||||||
EXPLODING_TIME = 10
|
|
||||||
DEAD_TIME = 10
|
|
||||||
REGENERATING_TIME = 120
|
|
||||||
END_GAME_TIME = 100
|
|
||||||
TITLE_SCREEN_TIME = 100
|
|
||||||
|
|
||||||
|
|
||||||
; def draw_actors():
|
; def draw_actors():
|
||||||
; zp.current_actor = 0
|
; zp.current_actor = 0
|
||||||
|
|
@ -78,7 +72,6 @@ evaluate_status nop
|
||||||
beq ?game_over
|
beq ?game_over
|
||||||
|
|
||||||
jsr next_life
|
jsr next_life
|
||||||
sta KBDSTROBE
|
|
||||||
lda #PLAYER_REGENERATING
|
lda #PLAYER_REGENERATING
|
||||||
sta actor_status,x
|
sta actor_status,x
|
||||||
lda #REGENERATING_TIME
|
lda #REGENERATING_TIME
|
||||||
|
|
|
||||||
19
main.s
19
main.s
|
|
@ -284,25 +284,6 @@ handle_player nop
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
wait
|
|
||||||
ldy #$06 ; Loop a bit
|
|
||||||
wait_outer
|
|
||||||
ldx #$ff
|
|
||||||
wait_inner
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
dex
|
|
||||||
bne wait_inner
|
|
||||||
dey
|
|
||||||
bne wait_outer
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.include "rand.s"
|
.include "rand.s"
|
||||||
.include "screen.s"
|
.include "screen.s"
|
||||||
|
|
|
||||||
13
maze.s
13
maze.s
|
|
@ -17,17 +17,6 @@ player_start_col .byte 255,255,255,255, ; zero players!
|
||||||
.byte 7, 19, 31, 0,
|
.byte 7, 19, 31, 0,
|
||||||
.byte 1, 13, 25, 31,
|
.byte 1, 13, 25, 31,
|
||||||
|
|
||||||
;# Returns address of tile in col 0 of row y
|
|
||||||
;def mazerow(y):
|
|
||||||
; return maze[y]
|
|
||||||
|
|
||||||
; row in Y
|
|
||||||
mazerow lda textrows_l,y
|
|
||||||
sta mazeaddr
|
|
||||||
lda textrows_h,y
|
|
||||||
sta mazeaddr+1
|
|
||||||
rts
|
|
||||||
|
|
||||||
;###### Level creation functions
|
;###### Level creation functions
|
||||||
|
|
||||||
;def clear_maze():
|
;def clear_maze():
|
||||||
|
|
@ -319,9 +308,7 @@ init_maze nop
|
||||||
;# 03 X|XXXXX|XXXXX|XXXXX|XXXXX|XXXXX|X_______
|
;# 03 X|XXXXX|XXXXX|XXXXX|XXXXX|XXXXX|X_______
|
||||||
;# 04 X|XXXXX|XXXXX|XXXXX+-----+XXXXX|X_______
|
;# 04 X|XXXXX|XXXXX|XXXXX+-----+XXXXX|X_______
|
||||||
;
|
;
|
||||||
NUM_LEVEL_BOX_PARAMS = 3
|
|
||||||
;level_boxes .ds 10*6*NUM_LEVEL_BOX_PARAMS
|
;level_boxes .ds 10*6*NUM_LEVEL_BOX_PARAMS
|
||||||
level_boxes = $bd00
|
|
||||||
|
|
||||||
;# Box painting will be in hires so this array will become a tracker for the
|
;# Box painting will be in hires so this array will become a tracker for the
|
||||||
;# hires display. It will need y address, y end address, x byte number. It's
|
;# hires display. It will need y address, y end address, x byte number. It's
|
||||||
|
|
|
||||||
|
|
@ -11,19 +11,13 @@ TXTPAGE2 = $c055
|
||||||
CLRHIRES = $c056
|
CLRHIRES = $c056
|
||||||
SETHIRES = $c057
|
SETHIRES = $c057
|
||||||
|
|
||||||
|
|
||||||
set_hires bit CLRTEXT ; start with HGR page 1, full screen
|
set_hires bit CLRTEXT ; start with HGR page 1, full screen
|
||||||
bit CLRMIXED
|
bit CLRMIXED
|
||||||
bit TXTPAGE1
|
bit TXTPAGE1
|
||||||
bit SETHIRES
|
bit SETHIRES
|
||||||
rts
|
rts
|
||||||
|
|
||||||
; wait for any key
|
|
||||||
any_key lda KBDSTROBE
|
|
||||||
?1 lda KEYBOARD
|
|
||||||
bpl ?1
|
|
||||||
lda KBDSTROBE
|
|
||||||
rts
|
|
||||||
|
|
||||||
; clear all screens, hires and text
|
; clear all screens, hires and text
|
||||||
clrscr lda #$20
|
clrscr lda #$20
|
||||||
sta clrscr_smc+2
|
sta clrscr_smc+2
|
||||||
|
|
@ -46,6 +40,16 @@ clrscr_smc sta $ff00,y
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
clear_input lda KBDSTROBE
|
||||||
|
rts
|
||||||
|
|
||||||
|
; wait for any key
|
||||||
|
any_key lda KBDSTROBE
|
||||||
|
?1 lda KEYBOARD
|
||||||
|
bpl ?1
|
||||||
|
lda KBDSTROBE
|
||||||
|
rts
|
||||||
|
|
||||||
; process gameplay user input. Sets actor_input_dir and various debugging
|
; process gameplay user input. Sets actor_input_dir and various debugging
|
||||||
; input
|
; input
|
||||||
userinput lda KEYBOARD
|
userinput lda KEYBOARD
|
||||||
|
|
@ -133,3 +137,312 @@ debugloop
|
||||||
dec scratch_count
|
dec scratch_count
|
||||||
bne debugloop
|
bne debugloop
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; delay for a while. 7 reps = 7 * (2 + 256*19 + 2 + 3) = 34097 cycles
|
||||||
|
wait
|
||||||
|
ldy #$06
|
||||||
|
wait_outer ; outer loop: 2 + 256 * (inner) + 2 + 3
|
||||||
|
ldx #$ff
|
||||||
|
wait_inner ; inner loop: 14 + 2 + 3
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
dex
|
||||||
|
bne wait_inner
|
||||||
|
dey
|
||||||
|
bne wait_outer
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
; [i*7-3 for i in range(40)]
|
||||||
|
player_col_to_x .byte 0, 3, 10, 17, 24, 31, 38, 45, 52, 59, 66, 73, 80, 87, 94, 101, 108, 115, 122, 129, 136, 143, 150, 157, 164, 171, 178, 185, 192, 199, 206, 213, 220, 227, 234, 241, 248, 248, 248, 248, 248,
|
||||||
|
;.byte 0, 4, 11, 18, 25, 32, 39, 46, 53, 60, 67, 74, 81, 88, 95, 102, 109, 116, 123, 130, 137, 144, 151, 158, 165, 172, 179, 186, 193, 200, 207, 214, 221, 228, 235, 242, 249, 249, 249, 249, 249
|
||||||
|
|
||||||
|
; [i*8-5 for i in range(24)]
|
||||||
|
player_row_to_y .byte 0, 3, 11, 19, 27, 35, 43, 51, 59, 67, 75, 83, 91, 99, 107, 115, 123, 131, 139, 147, 155, 163, 171, 179
|
||||||
|
|
||||||
|
|
||||||
|
; defines the zone around the midpoint where the player can change to any direction, not just backtracking.
|
||||||
|
x_allowed_turn .byte 0, 0, 1, 1, 1, 0, 0
|
||||||
|
y_allowed_turn .byte 0, 0, 1, 1, 1, 0, 0, 0
|
||||||
|
|
||||||
|
|
||||||
|
;# Returns address of tile in col 0 of row y
|
||||||
|
;def mazerow(y):
|
||||||
|
; return maze[y]
|
||||||
|
|
||||||
|
; row in Y
|
||||||
|
mazerow lda textrows_l,y
|
||||||
|
sta mazeaddr
|
||||||
|
lda textrows_h,y
|
||||||
|
sta mazeaddr+1
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
; text & hgr screen utils
|
||||||
|
|
||||||
|
init_screen_once nop
|
||||||
|
lda #0
|
||||||
|
sta KBDSTROBE
|
||||||
|
sta drawpage
|
||||||
|
sta damageindex1
|
||||||
|
sta damageindex2
|
||||||
|
sta damageptr
|
||||||
|
sta damageptr1
|
||||||
|
sta damageptr2
|
||||||
|
lda #damagepage1
|
||||||
|
sta damageptr+1
|
||||||
|
sta damageptr1+1
|
||||||
|
lda #damagepage2
|
||||||
|
sta damageptr2+1
|
||||||
|
lda #0
|
||||||
|
sta tdamageindex1
|
||||||
|
lda #128
|
||||||
|
sta tdamageindex2
|
||||||
|
jsr draw_to_page1
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
; character in A, col in X
|
||||||
|
text_put_col nop
|
||||||
|
sta $0400,x ; row 0
|
||||||
|
sta $0480,x ; row 1
|
||||||
|
sta $0500,x ; row 2
|
||||||
|
sta $0580,x ; row 3
|
||||||
|
sta $0600,x ; row 4
|
||||||
|
sta $0680,x ; row 5
|
||||||
|
sta $0700,x ; row 6
|
||||||
|
sta $0780,x ; row 7
|
||||||
|
sta $0428,x ; row 8
|
||||||
|
sta $04a8,x ; row 9
|
||||||
|
sta $0528,x ; row 10
|
||||||
|
sta $05a8,x ; row 11
|
||||||
|
sta $0628,x ; row 12
|
||||||
|
sta $06a8,x ; row 13
|
||||||
|
sta $0728,x ; row 14
|
||||||
|
sta $07a8,x ; row 15
|
||||||
|
sta $0450,x ; row 16
|
||||||
|
sta $04d0,x ; row 17
|
||||||
|
sta $0550,x ; row 18
|
||||||
|
sta $05d0,x ; row 19
|
||||||
|
sta $0650,x ; row 20
|
||||||
|
sta $06d0,x ; row 21
|
||||||
|
sta $0750,x ; row 22
|
||||||
|
sta $07d0,x ; row 23
|
||||||
|
rts
|
||||||
|
|
||||||
|
text_put_col2 nop
|
||||||
|
sta $0800,x ; row 0
|
||||||
|
sta $0880,x ; row 1
|
||||||
|
sta $0900,x ; row 2
|
||||||
|
sta $0980,x ; row 3
|
||||||
|
sta $0a00,x ; row 4
|
||||||
|
sta $0a80,x ; row 5
|
||||||
|
sta $0b00,x ; row 6
|
||||||
|
sta $0b80,x ; row 7
|
||||||
|
sta $0828,x ; row 8
|
||||||
|
sta $08a8,x ; row 9
|
||||||
|
sta $0928,x ; row 10
|
||||||
|
sta $09a8,x ; row 11
|
||||||
|
sta $0a28,x ; row 12
|
||||||
|
sta $0aa8,x ; row 13
|
||||||
|
sta $0b28,x ; row 14
|
||||||
|
sta $0ba8,x ; row 15
|
||||||
|
sta $0850,x ; row 16
|
||||||
|
sta $08d0,x ; row 17
|
||||||
|
sta $0950,x ; row 18
|
||||||
|
sta $09d0,x ; row 19
|
||||||
|
sta $0a50,x ; row 20
|
||||||
|
sta $0ad0,x ; row 21
|
||||||
|
sta $0b50,x ; row 22
|
||||||
|
sta $0bd0,x ; row 23
|
||||||
|
rts
|
||||||
|
|
||||||
|
; maze is text screen 1
|
||||||
|
textrows_l .byte $00, $80, $00, $80, $00, $80, $00, $80
|
||||||
|
.byte $28, $a8, $28, $a8, $28, $a8, $28, $a8
|
||||||
|
.byte $50, $d0, $50, $d0, $50, $d0, $50, $d0
|
||||||
|
textrows_h .byte $04, $04, $05, $05, $06, $06, $07, $07
|
||||||
|
.byte $04, $04, $05, $05, $06, $06, $07, $07
|
||||||
|
.byte $04, $04, $05, $05, $06, $06, $07, $07
|
||||||
|
|
||||||
|
|
||||||
|
wipeclear1 ldy #0
|
||||||
|
sty param_y
|
||||||
|
wipeclear1_loop lda HGRROWS_L,y
|
||||||
|
sta wipeclear1_save_smc+1
|
||||||
|
lda HGRROWS_H1,y
|
||||||
|
sta wipeclear1_save_smc+2
|
||||||
|
ldx #39
|
||||||
|
lda #$ff
|
||||||
|
wipeclear1_save_smc sta $ffff,x
|
||||||
|
dex
|
||||||
|
bpl wipeclear1_save_smc
|
||||||
|
ldx #WIPE_DELAY
|
||||||
|
wipeclear1_wait nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
dex
|
||||||
|
bne wipeclear1_wait
|
||||||
|
inc param_y
|
||||||
|
ldy param_y
|
||||||
|
cpy #192
|
||||||
|
bcc wipeclear1_loop
|
||||||
|
rts
|
||||||
|
|
||||||
|
wipe2to1 ldy #0
|
||||||
|
sty param_y
|
||||||
|
wipe2to1_loop lda HGRROWS_H2,y
|
||||||
|
sta wipe2to1_load_smc+2
|
||||||
|
lda HGRROWS_L,y
|
||||||
|
sta wipe2to1_load_smc+1
|
||||||
|
sta wipe2to1_save_smc+1
|
||||||
|
lda HGRROWS_H1,y
|
||||||
|
sta wipe2to1_save_smc+2
|
||||||
|
ldx #39
|
||||||
|
wipe2to1_load_smc lda $ffff,x
|
||||||
|
wipe2to1_save_smc sta $ffff,x
|
||||||
|
dex
|
||||||
|
bpl wipe2to1_load_smc
|
||||||
|
ldx #WIPE_DELAY
|
||||||
|
wipe2to1_wait nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
dex
|
||||||
|
bne wipe2to1_wait
|
||||||
|
inc param_y
|
||||||
|
ldy param_y
|
||||||
|
cpy #192
|
||||||
|
bcc wipe2to1_loop
|
||||||
|
rts
|
||||||
|
|
||||||
|
copy2to1 lda #$40
|
||||||
|
sta ?source+2
|
||||||
|
lda #$20
|
||||||
|
sta ?dest+2
|
||||||
|
?outer ldy #0
|
||||||
|
?source lda $ff00,y
|
||||||
|
?dest sta $ff00,y
|
||||||
|
iny
|
||||||
|
bne ?source
|
||||||
|
inc ?source+2
|
||||||
|
inc ?dest+2
|
||||||
|
lda ?dest+2
|
||||||
|
cmp #$40
|
||||||
|
bcc ?outer
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
copytexthgr nop
|
||||||
|
ldy #0 ; y is rows
|
||||||
|
copytexthgr_outer
|
||||||
|
lda textrows_h,y
|
||||||
|
ora #4
|
||||||
|
sta copytexthgr_src_smc+2
|
||||||
|
lda textrows_l,y
|
||||||
|
sta copytexthgr_src_smc+1
|
||||||
|
ldx #0 ; x is columns
|
||||||
|
copytexthgr_src_smc
|
||||||
|
lda $ffff,x
|
||||||
|
copytexthgr_dest_smc
|
||||||
|
jsr $ffff
|
||||||
|
inx
|
||||||
|
cpx #40
|
||||||
|
bcc copytexthgr_src_smc
|
||||||
|
iny
|
||||||
|
cpy #24
|
||||||
|
bcc copytexthgr_outer
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
pageflip nop
|
||||||
|
lda drawpage
|
||||||
|
eor #$80
|
||||||
|
bpl show_page1 ; pos = show 1, draw 2; neg = show 1, draw 1
|
||||||
|
|
||||||
|
show_page2 lda #$80
|
||||||
|
sta drawpage
|
||||||
|
bit TXTPAGE2 ; show page 2, work on page 1
|
||||||
|
draw_to_page1 lda #$00
|
||||||
|
sta hgrselect
|
||||||
|
lda #$20
|
||||||
|
sta hgrhi
|
||||||
|
lda damageindex ; save other page's damage pointer
|
||||||
|
sta damageindex2
|
||||||
|
|
||||||
|
lda #DAMAGEPAGE1 ; point to page 1's damage area
|
||||||
|
sta damageptr+1
|
||||||
|
lda damageindex1
|
||||||
|
sta damageindex
|
||||||
|
|
||||||
|
lda tdamageindex ; save other page's damage pointer
|
||||||
|
sta tdamageindex2
|
||||||
|
lda tdamageindex1 ; point to page 1's damage area
|
||||||
|
sta tdamageindex
|
||||||
|
lda #0
|
||||||
|
sta damagestart
|
||||||
|
|
||||||
|
; copy addresses for functions that write to one page or the other
|
||||||
|
lda #<FASTFONT_H1
|
||||||
|
sta fastfont_smc+1
|
||||||
|
sta copytexthgr_dest_smc+1
|
||||||
|
lda #>FASTFONT_H1
|
||||||
|
sta fastfont_smc+2
|
||||||
|
sta copytexthgr_dest_smc+2
|
||||||
|
rts
|
||||||
|
|
||||||
|
show_page1 lda #0
|
||||||
|
sta drawpage
|
||||||
|
bit TXTPAGE1 ; show page 1, work on page 2
|
||||||
|
draw_to_page2 lda #$60
|
||||||
|
sta hgrselect
|
||||||
|
lda #$40
|
||||||
|
sta hgrhi
|
||||||
|
lda damageindex ; save other page's damage pointer
|
||||||
|
sta damageindex1
|
||||||
|
|
||||||
|
lda #DAMAGEPAGE2 ; point to page 2's damage area
|
||||||
|
sta damageptr+1
|
||||||
|
lda damageindex2
|
||||||
|
sta damageindex
|
||||||
|
|
||||||
|
lda tdamageindex ; save other page's damage pointer
|
||||||
|
sta tdamageindex1
|
||||||
|
lda tdamageindex2 ; point to page 2's damage area
|
||||||
|
sta tdamageindex
|
||||||
|
lda #128
|
||||||
|
sta damagestart
|
||||||
|
|
||||||
|
lda #<FASTFONT_H2
|
||||||
|
sta fastfont_smc+1
|
||||||
|
sta copytexthgr_dest_smc+1
|
||||||
|
lda #>FASTFONT_H2
|
||||||
|
sta fastfont_smc+2
|
||||||
|
sta copytexthgr_dest_smc+2
|
||||||
|
rts
|
||||||
|
|
||||||
|
; tile for middle left/right (number 12) is a color tile and gets
|
||||||
|
; the wrong bit pattern when it's in an odd column -- replace the
|
||||||
|
; image with tile 15 when necessary
|
||||||
|
fastfont nop
|
||||||
|
cmp #12
|
||||||
|
bne fastfont_smc
|
||||||
|
txa
|
||||||
|
and #1
|
||||||
|
bne ?1
|
||||||
|
lda #15
|
||||||
|
bne fastfont_smc
|
||||||
|
?1 lda #12
|
||||||
|
fastfont_smc jmp $ffff
|
||||||
|
|
|
||||||
265
screen.s
265
screen.s
|
|
@ -1,268 +1,3 @@
|
||||||
; text & hgr screen utils
|
|
||||||
|
|
||||||
init_screen_once nop
|
|
||||||
lda #0
|
|
||||||
sta KBDSTROBE
|
|
||||||
sta drawpage
|
|
||||||
sta damageindex1
|
|
||||||
sta damageindex2
|
|
||||||
sta damageptr
|
|
||||||
sta damageptr1
|
|
||||||
sta damageptr2
|
|
||||||
lda #damagepage1
|
|
||||||
sta damageptr+1
|
|
||||||
sta damageptr1+1
|
|
||||||
lda #damagepage2
|
|
||||||
sta damageptr2+1
|
|
||||||
lda #0
|
|
||||||
sta tdamageindex1
|
|
||||||
lda #128
|
|
||||||
sta tdamageindex2
|
|
||||||
jsr draw_to_page1
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
; character in A, col in X
|
|
||||||
text_put_col nop
|
|
||||||
sta $0400,x ; row 0
|
|
||||||
sta $0480,x ; row 1
|
|
||||||
sta $0500,x ; row 2
|
|
||||||
sta $0580,x ; row 3
|
|
||||||
sta $0600,x ; row 4
|
|
||||||
sta $0680,x ; row 5
|
|
||||||
sta $0700,x ; row 6
|
|
||||||
sta $0780,x ; row 7
|
|
||||||
sta $0428,x ; row 8
|
|
||||||
sta $04a8,x ; row 9
|
|
||||||
sta $0528,x ; row 10
|
|
||||||
sta $05a8,x ; row 11
|
|
||||||
sta $0628,x ; row 12
|
|
||||||
sta $06a8,x ; row 13
|
|
||||||
sta $0728,x ; row 14
|
|
||||||
sta $07a8,x ; row 15
|
|
||||||
sta $0450,x ; row 16
|
|
||||||
sta $04d0,x ; row 17
|
|
||||||
sta $0550,x ; row 18
|
|
||||||
sta $05d0,x ; row 19
|
|
||||||
sta $0650,x ; row 20
|
|
||||||
sta $06d0,x ; row 21
|
|
||||||
sta $0750,x ; row 22
|
|
||||||
sta $07d0,x ; row 23
|
|
||||||
rts
|
|
||||||
|
|
||||||
text_put_col2 nop
|
|
||||||
sta $0800,x ; row 0
|
|
||||||
sta $0880,x ; row 1
|
|
||||||
sta $0900,x ; row 2
|
|
||||||
sta $0980,x ; row 3
|
|
||||||
sta $0a00,x ; row 4
|
|
||||||
sta $0a80,x ; row 5
|
|
||||||
sta $0b00,x ; row 6
|
|
||||||
sta $0b80,x ; row 7
|
|
||||||
sta $0828,x ; row 8
|
|
||||||
sta $08a8,x ; row 9
|
|
||||||
sta $0928,x ; row 10
|
|
||||||
sta $09a8,x ; row 11
|
|
||||||
sta $0a28,x ; row 12
|
|
||||||
sta $0aa8,x ; row 13
|
|
||||||
sta $0b28,x ; row 14
|
|
||||||
sta $0ba8,x ; row 15
|
|
||||||
sta $0850,x ; row 16
|
|
||||||
sta $08d0,x ; row 17
|
|
||||||
sta $0950,x ; row 18
|
|
||||||
sta $09d0,x ; row 19
|
|
||||||
sta $0a50,x ; row 20
|
|
||||||
sta $0ad0,x ; row 21
|
|
||||||
sta $0b50,x ; row 22
|
|
||||||
sta $0bd0,x ; row 23
|
|
||||||
rts
|
|
||||||
|
|
||||||
; maze is text screen 1
|
|
||||||
textrows_l .byte $00, $80, $00, $80, $00, $80, $00, $80
|
|
||||||
.byte $28, $a8, $28, $a8, $28, $a8, $28, $a8
|
|
||||||
.byte $50, $d0, $50, $d0, $50, $d0, $50, $d0
|
|
||||||
textrows_h .byte $04, $04, $05, $05, $06, $06, $07, $07
|
|
||||||
.byte $04, $04, $05, $05, $06, $06, $07, $07
|
|
||||||
.byte $04, $04, $05, $05, $06, $06, $07, $07
|
|
||||||
|
|
||||||
|
|
||||||
WIPE_DELAY = 40
|
|
||||||
|
|
||||||
|
|
||||||
wipeclear1 ldy #0
|
|
||||||
sty param_y
|
|
||||||
wipeclear1_loop lda HGRROWS_L,y
|
|
||||||
sta wipeclear1_save_smc+1
|
|
||||||
lda HGRROWS_H1,y
|
|
||||||
sta wipeclear1_save_smc+2
|
|
||||||
ldx #39
|
|
||||||
lda #$ff
|
|
||||||
wipeclear1_save_smc sta $ffff,x
|
|
||||||
dex
|
|
||||||
bpl wipeclear1_save_smc
|
|
||||||
ldx #WIPE_DELAY
|
|
||||||
wipeclear1_wait nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
dex
|
|
||||||
bne wipeclear1_wait
|
|
||||||
inc param_y
|
|
||||||
ldy param_y
|
|
||||||
cpy #192
|
|
||||||
bcc wipeclear1_loop
|
|
||||||
rts
|
|
||||||
|
|
||||||
wipe2to1 ldy #0
|
|
||||||
sty param_y
|
|
||||||
wipe2to1_loop lda HGRROWS_H2,y
|
|
||||||
sta wipe2to1_load_smc+2
|
|
||||||
lda HGRROWS_L,y
|
|
||||||
sta wipe2to1_load_smc+1
|
|
||||||
sta wipe2to1_save_smc+1
|
|
||||||
lda HGRROWS_H1,y
|
|
||||||
sta wipe2to1_save_smc+2
|
|
||||||
ldx #39
|
|
||||||
wipe2to1_load_smc lda $ffff,x
|
|
||||||
wipe2to1_save_smc sta $ffff,x
|
|
||||||
dex
|
|
||||||
bpl wipe2to1_load_smc
|
|
||||||
ldx #WIPE_DELAY
|
|
||||||
wipe2to1_wait nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
dex
|
|
||||||
bne wipe2to1_wait
|
|
||||||
inc param_y
|
|
||||||
ldy param_y
|
|
||||||
cpy #192
|
|
||||||
bcc wipe2to1_loop
|
|
||||||
rts
|
|
||||||
|
|
||||||
copy2to1 lda #$40
|
|
||||||
sta ?source+2
|
|
||||||
lda #$20
|
|
||||||
sta ?dest+2
|
|
||||||
?outer ldy #0
|
|
||||||
?source lda $ff00,y
|
|
||||||
?dest sta $ff00,y
|
|
||||||
iny
|
|
||||||
bne ?source
|
|
||||||
inc ?source+2
|
|
||||||
inc ?dest+2
|
|
||||||
lda ?dest+2
|
|
||||||
cmp #$40
|
|
||||||
bcc ?outer
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
copytexthgr nop
|
|
||||||
ldy #0 ; y is rows
|
|
||||||
copytexthgr_outer
|
|
||||||
lda textrows_h,y
|
|
||||||
ora #4
|
|
||||||
sta copytexthgr_src_smc+2
|
|
||||||
lda textrows_l,y
|
|
||||||
sta copytexthgr_src_smc+1
|
|
||||||
ldx #0 ; x is columns
|
|
||||||
copytexthgr_src_smc
|
|
||||||
lda $ffff,x
|
|
||||||
copytexthgr_dest_smc
|
|
||||||
jsr $ffff
|
|
||||||
inx
|
|
||||||
cpx #40
|
|
||||||
bcc copytexthgr_src_smc
|
|
||||||
iny
|
|
||||||
cpy #24
|
|
||||||
bcc copytexthgr_outer
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
pageflip nop
|
|
||||||
lda drawpage
|
|
||||||
eor #$80
|
|
||||||
bpl show_page1 ; pos = show 1, draw 2; neg = show 1, draw 1
|
|
||||||
|
|
||||||
show_page2 lda #$80
|
|
||||||
sta drawpage
|
|
||||||
bit TXTPAGE2 ; show page 2, work on page 1
|
|
||||||
draw_to_page1 lda #$00
|
|
||||||
sta hgrselect
|
|
||||||
lda #$20
|
|
||||||
sta hgrhi
|
|
||||||
lda damageindex ; save other page's damage pointer
|
|
||||||
sta damageindex2
|
|
||||||
|
|
||||||
lda #DAMAGEPAGE1 ; point to page 1's damage area
|
|
||||||
sta damageptr+1
|
|
||||||
lda damageindex1
|
|
||||||
sta damageindex
|
|
||||||
|
|
||||||
lda tdamageindex ; save other page's damage pointer
|
|
||||||
sta tdamageindex2
|
|
||||||
lda tdamageindex1 ; point to page 1's damage area
|
|
||||||
sta tdamageindex
|
|
||||||
lda #0
|
|
||||||
sta damagestart
|
|
||||||
|
|
||||||
; copy addresses for functions that write to one page or the other
|
|
||||||
lda #<FASTFONT_H1
|
|
||||||
sta fastfont_smc+1
|
|
||||||
sta copytexthgr_dest_smc+1
|
|
||||||
lda #>FASTFONT_H1
|
|
||||||
sta fastfont_smc+2
|
|
||||||
sta copytexthgr_dest_smc+2
|
|
||||||
rts
|
|
||||||
|
|
||||||
show_page1 lda #0
|
|
||||||
sta drawpage
|
|
||||||
bit TXTPAGE1 ; show page 1, work on page 2
|
|
||||||
draw_to_page2 lda #$60
|
|
||||||
sta hgrselect
|
|
||||||
lda #$40
|
|
||||||
sta hgrhi
|
|
||||||
lda damageindex ; save other page's damage pointer
|
|
||||||
sta damageindex1
|
|
||||||
|
|
||||||
lda #DAMAGEPAGE2 ; point to page 2's damage area
|
|
||||||
sta damageptr+1
|
|
||||||
lda damageindex2
|
|
||||||
sta damageindex
|
|
||||||
|
|
||||||
lda tdamageindex ; save other page's damage pointer
|
|
||||||
sta tdamageindex1
|
|
||||||
lda tdamageindex2 ; point to page 2's damage area
|
|
||||||
sta tdamageindex
|
|
||||||
lda #128
|
|
||||||
sta damagestart
|
|
||||||
|
|
||||||
lda #<FASTFONT_H2
|
|
||||||
sta fastfont_smc+1
|
|
||||||
sta copytexthgr_dest_smc+1
|
|
||||||
lda #>FASTFONT_H2
|
|
||||||
sta fastfont_smc+2
|
|
||||||
sta copytexthgr_dest_smc+2
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
; tile for middle left/right (number 12) is a color tile and gets
|
|
||||||
; the wrong bit pattern when it's in an odd column -- replace the
|
|
||||||
; image with tile 15 when necessary
|
|
||||||
fastfont nop
|
|
||||||
cmp #12
|
|
||||||
bne fastfont_smc
|
|
||||||
txa
|
|
||||||
and #1
|
|
||||||
bne ?1
|
|
||||||
lda #15
|
|
||||||
bne fastfont_smc
|
|
||||||
?1 lda #12
|
|
||||||
fastfont_smc jmp $ffff
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
25
wipes-demo.s
25
wipes-demo.s
|
|
@ -1,20 +1,15 @@
|
||||||
titlepage jsr wipeclear1
|
titlepage jsr wipeclear1
|
||||||
jsr wipe2to1 ; copy hidden title page
|
jsr wipe2to1 ; copy hidden title page
|
||||||
ldy #$80 ; Loop a bit
|
jsr wait
|
||||||
?outer
|
jsr wait
|
||||||
ldx #$ff
|
jsr wait
|
||||||
?inner
|
jsr wait
|
||||||
nop
|
jsr wait
|
||||||
nop
|
jsr wait
|
||||||
nop
|
jsr wait
|
||||||
nop
|
jsr wait
|
||||||
nop
|
jsr wait
|
||||||
nop
|
jsr wait
|
||||||
nop
|
|
||||||
dex
|
|
||||||
bne ?inner
|
|
||||||
dey
|
|
||||||
bne ?outer
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
titlewipe jsr wipeclear1
|
titlewipe jsr wipeclear1
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue