mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-12 11:29:37 +00:00
split: work on credits demo
This commit is contained in:
parent
e85b3407fc
commit
4625ec3768
|
@ -39,7 +39,7 @@ print_string_loop:
|
||||||
iny
|
iny
|
||||||
bne print_string_loop
|
bne print_string_loop
|
||||||
done_print_string:
|
done_print_string:
|
||||||
rts
|
; rts
|
||||||
|
|
||||||
;====================
|
;====================
|
||||||
; point_to_end_string
|
; point_to_end_string
|
||||||
|
|
BIN
split_screen/KATC.BIN
Normal file
BIN
split_screen/KATC.BIN
Normal file
Binary file not shown.
|
@ -5,11 +5,12 @@ TOKENIZE = ../asoft_basic-utils/tokenize_asoft
|
||||||
|
|
||||||
all: split.dsk
|
all: split.dsk
|
||||||
|
|
||||||
split.dsk: BISHOP BISHOP.BAS RAINBOW.BAS RAINBOW KATC.BIN
|
split.dsk: BISHOP BISHOP.BAS RAINBOW.BAS RAINBOW KATC.BIN CREDITS
|
||||||
$(DOS33) -y split.dsk BSAVE -a 0x0300 BISHOP
|
$(DOS33) -y split.dsk BSAVE -a 0x0300 BISHOP
|
||||||
$(DOS33) -y split.dsk SAVE A BISHOP.BAS
|
$(DOS33) -y split.dsk SAVE A BISHOP.BAS
|
||||||
$(DOS33) -y split.dsk SAVE A RAINBOW.BAS
|
$(DOS33) -y split.dsk SAVE A RAINBOW.BAS
|
||||||
$(DOS33) -y split.dsk BSAVE -a 0x0c00 RAINBOW
|
$(DOS33) -y split.dsk BSAVE -a 0x0c00 RAINBOW
|
||||||
|
$(DOS33) -y split.dsk BSAVE -a 0x1000 CREDITS
|
||||||
# $(DOS33) -y split.dsk BSAVE -a 0x2000 LENNA.BIN
|
# $(DOS33) -y split.dsk BSAVE -a 0x2000 LENNA.BIN
|
||||||
$(DOS33) -y split.dsk BSAVE -a 0x2000 KATC.BIN
|
$(DOS33) -y split.dsk BSAVE -a 0x2000 KATC.BIN
|
||||||
|
|
||||||
|
@ -31,8 +32,16 @@ RAINBOW: rainbow.o
|
||||||
RAINBOW.BAS: rainbow.bas
|
RAINBOW.BAS: rainbow.bas
|
||||||
$(TOKENIZE) < rainbow.bas > RAINBOW.BAS
|
$(TOKENIZE) < rainbow.bas > RAINBOW.BAS
|
||||||
|
|
||||||
|
credits.o: credits.s
|
||||||
|
ca65 -o credits.o credits.s -l credits.lst
|
||||||
|
|
||||||
|
CREDITS: credits.o
|
||||||
|
ld65 -o CREDITS credits.o -C ../linker_scripts/apple2_1000.inc
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
KATC.BIN: kat.bmp
|
KATC.BIN: kat.bmp
|
||||||
../bmp2dhr/b2d kat.bmp hgr dither
|
../bmp2dhr/b2d kat.bmp hgr dither
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
rm -f *~ *.o *.lst BISHOP RAINBOW
|
rm -f *~ *.o *.lst BISHOP RAINBOW CREDITS
|
||||||
|
|
212
split_screen/credits.s
Normal file
212
split_screen/credits.s
Normal file
|
@ -0,0 +1,212 @@
|
||||||
|
.include "zp.inc"
|
||||||
|
|
||||||
|
H2 = $2C
|
||||||
|
; V2 = $2D
|
||||||
|
; TEMPY = $FB
|
||||||
|
|
||||||
|
HGR = $F3E2
|
||||||
|
HPLOT0 = $F457
|
||||||
|
HCOLOR = $F6EC
|
||||||
|
; HLINE = $F819
|
||||||
|
; VLINE = $F828
|
||||||
|
; COLOR = $F864
|
||||||
|
; TEXT = $FB36
|
||||||
|
; HOME = $FC58
|
||||||
|
|
||||||
|
jsr TEXT
|
||||||
|
jsr HOME
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta DISP_PAGE
|
||||||
|
lda #0
|
||||||
|
sta DRAW_PAGE
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta CH
|
||||||
|
sta CV
|
||||||
|
lda #<line1
|
||||||
|
sta OUTL
|
||||||
|
lda #>line1
|
||||||
|
sta OUTH
|
||||||
|
jsr move_and_print
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
jsr move_and_print
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
jsr move_and_print
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
jsr move_and_print
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
jsr move_and_print
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
jsr move_and_print
|
||||||
|
|
||||||
|
; draw the moon
|
||||||
|
lda #0
|
||||||
|
sta CV
|
||||||
|
lda #3
|
||||||
|
sta CH
|
||||||
|
jsr htab_vtab ; vtab(1); htab(4)
|
||||||
|
lda #32 ; inverse space
|
||||||
|
ldy #0
|
||||||
|
sta (BASL),Y
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
dec CH
|
||||||
|
jsr htab_vtab
|
||||||
|
lda #32
|
||||||
|
ldy #0
|
||||||
|
sta (BASL),Y
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
jsr htab_vtab
|
||||||
|
lda #32
|
||||||
|
ldy #0
|
||||||
|
sta (BASL),Y
|
||||||
|
|
||||||
|
inc CV
|
||||||
|
inc CH
|
||||||
|
jsr htab_vtab
|
||||||
|
lda #32
|
||||||
|
ldy #0
|
||||||
|
sta (BASL),Y
|
||||||
|
|
||||||
|
; Wait
|
||||||
|
|
||||||
|
jsr wait_until_keypressed
|
||||||
|
|
||||||
|
; GR part
|
||||||
|
bit LORES
|
||||||
|
bit SET_GR
|
||||||
|
bit FULLGR
|
||||||
|
|
||||||
|
lda #$44
|
||||||
|
sta COLOR
|
||||||
|
|
||||||
|
lda #39
|
||||||
|
sta V2
|
||||||
|
|
||||||
|
lda #28
|
||||||
|
|
||||||
|
line_loop:
|
||||||
|
pha
|
||||||
|
|
||||||
|
ldy #0
|
||||||
|
|
||||||
|
jsr hlin_double
|
||||||
|
|
||||||
|
pla
|
||||||
|
clc
|
||||||
|
adc #2
|
||||||
|
cmp #48
|
||||||
|
bne line_loop
|
||||||
|
|
||||||
|
; Wait
|
||||||
|
|
||||||
|
jsr wait_until_keypressed
|
||||||
|
|
||||||
|
bit HIRES
|
||||||
|
|
||||||
|
|
||||||
|
; Wait
|
||||||
|
|
||||||
|
jsr wait_until_keypressed
|
||||||
|
|
||||||
|
|
||||||
|
display_loop:
|
||||||
|
; each scan line 65 cycles
|
||||||
|
; 1 cycle each byte (40cycles) + 25 for horizontal
|
||||||
|
; Total of 12480 cycles to draw screen
|
||||||
|
; Vertical blank = 4550 cycles (70 scan lines)
|
||||||
|
; Total of 17030 cycles to get back to where was
|
||||||
|
|
||||||
|
; 16666 = 17030 x=1021.8
|
||||||
|
; 1000 x
|
||||||
|
|
||||||
|
|
||||||
|
; TODO: find beginning of scan
|
||||||
|
; Text mode for 6*8=48 scanlines (3120 cycles)
|
||||||
|
; hgr for 64 scalines (4160 cycles)
|
||||||
|
; gr for 80 scalines (5200 cycles)
|
||||||
|
; vblank = 4550 cycles
|
||||||
|
|
||||||
|
; text
|
||||||
|
bit SET_TEXT ; 4
|
||||||
|
|
||||||
|
ldy #15 ; 2
|
||||||
|
loop2:
|
||||||
|
|
||||||
|
; 5*255+2 = 197
|
||||||
|
|
||||||
|
ldx #39 ; 2
|
||||||
|
loop1:
|
||||||
|
dex ; 2
|
||||||
|
bne loop1 ; 2nt/3
|
||||||
|
|
||||||
|
dey ; 2
|
||||||
|
bne loop2 ; 2nt/3
|
||||||
|
|
||||||
|
; hgr
|
||||||
|
bit HIRES ; 4
|
||||||
|
bit SET_GR ; 4
|
||||||
|
|
||||||
|
ldy #15 ; 2
|
||||||
|
loop3:
|
||||||
|
|
||||||
|
; 5*255+2 = 197
|
||||||
|
|
||||||
|
ldx #39 ; 2
|
||||||
|
loop4:
|
||||||
|
dex ; 2
|
||||||
|
bne loop4 ; 2nt/3
|
||||||
|
|
||||||
|
dey ; 2
|
||||||
|
bne loop3 ; 2nt/3
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; gr
|
||||||
|
bit LORES
|
||||||
|
|
||||||
|
ldy #15 ; 2
|
||||||
|
loop5:
|
||||||
|
|
||||||
|
; 5*255+2 = 197
|
||||||
|
|
||||||
|
ldx #39 ; 2
|
||||||
|
loop6:
|
||||||
|
dex ; 2
|
||||||
|
bne loop6 ; 2nt/3
|
||||||
|
|
||||||
|
dey ; 2
|
||||||
|
bne loop5 ; 2nt/3
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
jmp display_loop ; 3
|
||||||
|
|
||||||
|
wait_until_keypressed:
|
||||||
|
lda KEYPRESS ; check if keypressed
|
||||||
|
bpl wait_until_keypressed ; if not, loop
|
||||||
|
bit KEYRESET
|
||||||
|
rts
|
||||||
|
|
||||||
|
line1:.asciiz " * . "
|
||||||
|
line2:.asciiz " * . T A L B O T . "
|
||||||
|
line3:.asciiz " * F A N T A S Y "
|
||||||
|
line4:.asciiz " * S E V E N "
|
||||||
|
line5:.asciiz " . . . "
|
||||||
|
line6:.asciiz " . "
|
||||||
|
|
||||||
|
.include "../asm_routines/gr_offsets.s"
|
||||||
|
.include "../asm_routines/text_print.s"
|
||||||
|
.include "../asm_routines/gr_hlin_double.s"
|
||||||
|
|
||||||
|
.align $1000
|
||||||
|
|
||||||
|
.incbin "KATC.BIN"
|
Binary file not shown.
Before Width: | Height: | Size: 79 KiB After Width: | Height: | Size: 79 KiB |
Loading…
Reference in New Issue
Block a user