otomatalabs/ys2-intro
8
1
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Clear the screen and move the screen location

Browse source
This commit is contained in:
Natt Akuma 2025-11-24 16:55:11 +07:00
parent 4bf8e30636
commit a640d58d08
1 changed files with 78 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

119
loader/samples/minexample/minexample.s
View file

@ -164,11 +164,11 @@ code_start:
cli
;lda #64
;sta frame_delay
;jsr wait_loop
lda #64
sta frame_delay
jsr wait_loop
; jsr intro
jsr intro
lda #$0b
sta $d011
@ -200,7 +200,6 @@ code_start:
jsr init_2x
lda #$0b
sta $d011
jmp part_9 ; TEMP
jsr clr_txt
ldx #<story_writ
@ -506,7 +505,29 @@ code_start:
beq :-
part_9:
jsr init_bmp
; $0400-$07ff buffer 0 tilemap
; $2000-$3fff buffer 0 bitmap
; $4000-$5fff buffer 1 bitmap
; $6000-$63ff buffer 1 tilemap
; $6400-$6417 next buffer CRAM
; $7000-$77ff tileset bitmap
; $7800-$78ff tileset tile colors
; $7900-$79ff tileset CRAM colors
; $9000- compressed tilemap
ldx #<skyscrname
ldy #>skyscrname
lda #$70
jsr load_8000_zx02
ldx #<skyscrmapname
ldy #>skyscrmapname
jsr loadraw
ldx #0
ldy #$90
jsr LZ_init_decomp
lda #0
sta $d011
jsr clear_2bufs
; set up sprites to cover scrolling
lda #$ff
@ -532,7 +553,7 @@ part_9:
ldx #7
:
lda #$80
sta $0ff8,x
sta $07f8,x
lda #0
sta $63f8,x
sta $d027,x
@ -547,32 +568,11 @@ part_9:
stx $d01c
stx frame
ldx #<skyscrname
ldy #>skyscrname
lda #$70
jsr load_8000_zx02
ldx #<skyscrmapname
ldy #>skyscrmapname
jsr loadraw
ldx #0
ldy #$90
jsr LZ_init_decomp
; $0c00-$0fff buffer 0 tilemap
; $2000-$3fff buffer 0 bitmap
; $4000-$5fff buffer 1 bitmap
; $6000-$63ff buffer 1 tilemap
; $6400-$6417 next buffer CRAM
; $7000-$77ff tileset bitmap
; $7800-$78ff tileset tile colors
; $7900-$79ff tileset CRAM colors
; $9000- compressed tilemap
lda #$38
lda #$18
sta $d018
lda #<((17+4)*40+$c08)
lda #<((17+4)*40+$408)
sta text_ptr
lda #>((17+4)*40+$c08)
lda #>((17+4)*40+$408)
sta text_ptr+1
ldx #16
:
@ -589,7 +589,7 @@ part_9:
sta text_ptr+1
sta scr_ptr+1
; carry is always set here
adc #$d8-$0c-1
adc #$d8-$04-1
sta cram_ptr+1
adc #<(($20>>3)-$d8)
asl bmp_ptr
@ -613,12 +613,18 @@ part_9:
bpl :-
lda #$38
sta $d011
lda #$18
sta $d016
lda #3
sta timer_mode
@loop:
lda #0
sta vbl
lda frame
cmp #$e0 ; TODO
bcc :+
jmp @finish
:
and #1
tax
jsr copybuf
@ -640,7 +646,7 @@ part_9:
inc frame
lda frame
lsr a
lda #$38
lda #$18
ldx #3
bcc :+
lda #$80
@ -649,7 +655,13 @@ part_9:
sta $d018
stx $dd00
jmp @loop
@finish:
lda #0
sta timer_mode
; TODO is there a delay here
part_10:
jmp *
drawrow:
@ -1417,6 +1429,31 @@ load_8000_zx02:
pla
jmp zx02
clear_2bufs:
ldy #$44
.byte $2c ; skip next instruction
clear_buf:
ldy #$20
lda #$20
sta @dst+2
lda #0
tax
:
sta $400,x
sta $500,x
sta $600,x
sta $700,x
inx
bne :-
@dst:
sta $2000,x
inx
bne @dst
inc @dst+2
dey
bne @dst
rts
copybuf:
lda @bsrclo,x
sta bmp_addr
@ -1483,14 +1520,14 @@ copybuf:
bne @loop
rts
@bsrclo: .lobytes (15+4)*320+$2040, (15+4)*320+$4040
@bsrchi: .hibytes (15+4)*320+$2040, (15+4)*320+$4040
@bdstlo: .lobytes (16+4)*320+$4040, (16+4)*320+$2040
@bdsthi: .hibytes (16+4)*320+$4040, (16+4)*320+$2040
@tsrclo: .lobytes (15+4)*40+$0c08, (15+4)*40+$6008
@tsrchi: .hibytes (15+4)*40+$0c08, (15+4)*40+$6008
@tdstlo: .lobytes (16+4)*40+$6008, (16+4)*40+$0c08
@tdsthi: .hibytes (16+4)*40+$6008, (16+4)*40+$0c08
@bsrclo: .lobytes (15+4)*320+$2040, (15+4)*320+$4040
@bsrchi: .hibytes (15+4)*320+$2040, (15+4)*320+$4040
@bdstlo: .lobytes (16+4)*320+$4040, (16+4)*320+$2040
@bdsthi: .hibytes (16+4)*320+$4040, (16+4)*320+$2040
@tsrclo: .lobytes (15+4)*40+$0408, (15+4)*40+$6008
@tsrchi: .hibytes (15+4)*40+$0408, (15+4)*40+$6008
@tdstlo: .lobytes (16+4)*40+$6008, (16+4)*40+$0408
@tdsthi: .hibytes (16+4)*40+$6008, (16+4)*40+$0408
story_writ:
.res 11, ' '