mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-25 05:29:34 +00:00
tfv: working on updating the opener for pageflipping
doesn't work
This commit is contained in:
Vince Weaver
parent
a494dc56e9
commit
6ff122f75c
@ -886,7 +886,7 @@ int gr_copy_to_current(short source) {
|
|||||||
|
|
||||||
for(i=0;i<8;i++) {
|
for(i=0;i<8;i++) {
|
||||||
source_addr=gr_addr_lookup[i]+(source-0x400);
|
source_addr=gr_addr_lookup[i]+(source-0x400);
|
||||||
dest_addr=gr_addr_lookup[i]+(0x400*ram[DRAW_PAGE]);
|
dest_addr=gr_addr_lookup[i]+(ram[DRAW_PAGE]<<8);
|
||||||
|
|
||||||
if (i<4) l=120;
|
if (i<4) l=120;
|
||||||
else l=80;
|
else l=80;
|
||||||
@ -1207,8 +1207,7 @@ void basic_normal(void) {
|
|||||||
|
|
||||||
static unsigned short hlin_addr;
|
static unsigned short hlin_addr;
|
||||||
static unsigned short hlin_hi;
|
static unsigned short hlin_hi;
|
||||||
static unsigned short vlin_addr;
|
|
||||||
static unsigned short vlin_hi;
|
|
||||||
|
|
||||||
int hlin_continue(int width) {
|
int hlin_continue(int width) {
|
||||||
|
|
||||||
@ -1243,28 +1242,44 @@ int hlin(int page, int x1, int x2, int at) {
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
int vlin(int page, int y1, int y2, int at) {
|
static unsigned short vlin_hi;
|
||||||
|
|
||||||
int i;
|
/* TODO: optimize */
|
||||||
|
/* Could make twice as fast if draw neighboring two in one write */
|
||||||
|
/* instead of two */
|
||||||
|
|
||||||
for(i=y1;i<y2;i++) {
|
int vlin(int y1, int y2, int at) {
|
||||||
|
|
||||||
vlin_addr=gr_addr_lookup[i/2];
|
x=y1;
|
||||||
vlin_hi=i&1;
|
ram[V2]=y2;
|
||||||
|
y=at;
|
||||||
|
|
||||||
vlin_addr+=(page*4)<<8;
|
vlin_loop:
|
||||||
|
// for(a=y1;a<y2;a++) {
|
||||||
|
|
||||||
vlin_addr+=at;
|
ram[TEMPY]=y;
|
||||||
|
a=x;
|
||||||
|
y=a/2;
|
||||||
|
|
||||||
|
ram[OUTL]=gr_addr_lookup[y]&0xff;
|
||||||
|
ram[OUTH]=(gr_addr_lookup[y]>>8)&0xff;
|
||||||
|
|
||||||
|
ram[OUTH]+=ram[DRAW_PAGE];
|
||||||
|
|
||||||
|
vlin_hi=x&1;
|
||||||
|
|
||||||
|
y=ram[TEMPY]; // y=at;
|
||||||
|
|
||||||
if (vlin_hi) {
|
if (vlin_hi) {
|
||||||
ram[vlin_addr]=ram[vlin_addr]&0x0f;
|
ram[y_indirect(OUTL,y)]=ram[y_indirect(OUTL,y)]&0x0f;
|
||||||
ram[vlin_addr]|=ram[COLOR]&0xf0;
|
ram[y_indirect(OUTL,y)]|=ram[COLOR]&0xf0;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
ram[vlin_addr]=ram[vlin_addr]&0xf0;
|
ram[y_indirect(OUTL,y)]=ram[y_indirect(OUTL,y)]&0xf0;
|
||||||
ram[vlin_addr]|=ram[COLOR]&0x0f;
|
ram[y_indirect(OUTL,y)]|=ram[COLOR]&0x0f;
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
x++;
|
||||||
|
if (x<ram[V2]) goto vlin_loop;
|
||||||
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@ -1366,7 +1381,7 @@ void move_cursor(void) {
|
|||||||
address=gr_addr_lookup[ram[CV]];
|
address=gr_addr_lookup[ram[CV]];
|
||||||
address+=ram[CH];
|
address+=ram[CH];
|
||||||
|
|
||||||
address+=(ram[DRAW_PAGE]*4)<<8;
|
address+=(ram[DRAW_PAGE]<<8);
|
||||||
|
|
||||||
ram[BASL]=address&0xff;
|
ram[BASL]=address&0xff;
|
||||||
ram[BASH]=address>>8;
|
ram[BASH]=address>>8;
|
||||||
|
|||||||
@ -28,7 +28,7 @@ int hlin_double_continue(int width);
|
|||||||
int hlin_double(int page, int x1, int x2, int at);
|
int hlin_double(int page, int x1, int x2, int at);
|
||||||
void soft_switch(unsigned short address);
|
void soft_switch(unsigned short address);
|
||||||
int soft_switch_read(unsigned short address);
|
int soft_switch_read(unsigned short address);
|
||||||
int vlin(int page, int y1, int y2, int at);
|
int vlin(int y1, int y2, int at);
|
||||||
int collision(int xx, int yy, int ground_color);
|
int collision(int xx, int yy, int ground_color);
|
||||||
void clear_top(int page);
|
void clear_top(int page);
|
||||||
void clear_bottom(int page);
|
void clear_bottom(int page);
|
||||||
|
|||||||
@ -14,10 +14,10 @@ static void draw_segment(void) {
|
|||||||
ram[YY]=ram[YY]+ram[YADD];
|
ram[YY]=ram[YY]+ram[YADD];
|
||||||
if (ram[XX]==ram[MATCH]) color_equals(ram[COLOR1]*3);
|
if (ram[XX]==ram[MATCH]) color_equals(ram[COLOR1]*3);
|
||||||
else color_equals(ram[COLOR1]);
|
else color_equals(ram[COLOR1]);
|
||||||
vlin(ram[DRAW_PAGE],10,ram[YY],9+ram[XX]);
|
vlin(10,ram[YY],9+ram[XX]);
|
||||||
if (ram[XX]==ram[MATCH]) color_equals(ram[COLOR2]*3);
|
if (ram[XX]==ram[MATCH]) color_equals(ram[COLOR2]*3);
|
||||||
else color_equals(ram[COLOR2]);
|
else color_equals(ram[COLOR2]);
|
||||||
if (ram[YY]!=34) vlin(ram[DRAW_PAGE],ram[YY],34,9+ram[XX]);
|
if (ram[YY]!=34) vlin(ram[YY],34,9+ram[XX]);
|
||||||
ram[XX]++;
|
ram[XX]++;
|
||||||
}
|
}
|
||||||
ram[YADD]=-ram[YADD];
|
ram[YADD]=-ram[YADD];
|
||||||
|
|||||||
@ -92,12 +92,12 @@ void page_flip(void) {
|
|||||||
if (ram[DISP_PAGE]==0) {
|
if (ram[DISP_PAGE]==0) {
|
||||||
soft_switch(HISCR);
|
soft_switch(HISCR);
|
||||||
ram[DISP_PAGE]=1;
|
ram[DISP_PAGE]=1;
|
||||||
ram[DRAW_PAGE]=0;
|
ram[DRAW_PAGE]=0x0;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
soft_switch(LOWSCR);
|
soft_switch(LOWSCR);
|
||||||
ram[DISP_PAGE]=0;
|
ram[DISP_PAGE]=0;
|
||||||
ram[DRAW_PAGE]=1;
|
ram[DRAW_PAGE]=0x4;
|
||||||
}
|
}
|
||||||
|
|
||||||
grsim_update();
|
grsim_update();
|
||||||
|
|||||||
@ -11,6 +11,9 @@
|
|||||||
#define MEMPTRH 0x08
|
#define MEMPTRH 0x08
|
||||||
#define DISP_PAGE 0x09
|
#define DISP_PAGE 0x09
|
||||||
#define DRAW_PAGE 0x0a
|
#define DRAW_PAGE 0x0a
|
||||||
|
#define TEMPY 0xfb
|
||||||
|
#define OUTL 0xfe
|
||||||
|
#define OUTH 0xff
|
||||||
|
|
||||||
/* stats */
|
/* stats */
|
||||||
extern unsigned char level;
|
extern unsigned char level;
|
||||||
|
|||||||
@ -48,7 +48,7 @@ backgrounds.inc: $(PNG2RLE) \
|
|||||||
TFV: tfv.o
|
TFV: tfv.o
|
||||||
ld65 -o TFV tfv.o -C ./apple2_1000.inc
|
ld65 -o TFV tfv.o -C ./apple2_1000.inc
|
||||||
|
|
||||||
tfv.o: tfv.s backgrounds.inc
|
tfv.o: tfv.s opener.s utils.s backgrounds.inc zp.inc
|
||||||
ca65 -o tfv.o tfv.s -l tfv.lst
|
ca65 -o tfv.o tfv.s -l tfv.lst
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
155
tfv/opener.s
Normal file
155
tfv/opener.s
Normal file
@ -0,0 +1,155 @@
|
|||||||
|
;=============================
|
||||||
|
; show VMW splash screen
|
||||||
|
;=============================
|
||||||
|
opening:
|
||||||
|
lda #100
|
||||||
|
sta MATCH
|
||||||
|
jsr draw_logo
|
||||||
|
jsr page_flip
|
||||||
|
|
||||||
|
; Draw the shining band
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta MATCH
|
||||||
|
shine_loop:
|
||||||
|
|
||||||
|
jsr draw_logo
|
||||||
|
jsr page_flip
|
||||||
|
|
||||||
|
inc MATCH
|
||||||
|
lda MATCH
|
||||||
|
cmp #30
|
||||||
|
bne shine_loop
|
||||||
|
|
||||||
|
lda #8
|
||||||
|
sta CH ; HTAB 9
|
||||||
|
|
||||||
|
lda #20
|
||||||
|
jsr TABV ; VTAB 21
|
||||||
|
|
||||||
|
|
||||||
|
lda #>(vmwsw_string)
|
||||||
|
sta OUTH
|
||||||
|
lda #<(vmwsw_string)
|
||||||
|
sta OUTL
|
||||||
|
|
||||||
|
jsr print_string ; print("A VMW SOFTWARE PRODUCTION");
|
||||||
|
|
||||||
|
|
||||||
|
jsr wait_until_keypressed
|
||||||
|
|
||||||
|
|
||||||
|
;=================
|
||||||
|
; display part of logo
|
||||||
|
;=================
|
||||||
|
;
|
||||||
|
draw_segment:
|
||||||
|
lda #0
|
||||||
|
sta LOOP
|
||||||
|
|
||||||
|
segment_loop:
|
||||||
|
lda YADD
|
||||||
|
clc
|
||||||
|
adc YY
|
||||||
|
sta YY ; yy=yy+yadd
|
||||||
|
|
||||||
|
lda COLOR1
|
||||||
|
sta COLOR ; color=COLOR1
|
||||||
|
|
||||||
|
lda MATCH ; if (ram[XX]==ram[MATCH])
|
||||||
|
cmp XX
|
||||||
|
bne nocolmatch1
|
||||||
|
|
||||||
|
lda COLOR ; color_equals(ram[COLOR1]*3);
|
||||||
|
clc
|
||||||
|
adc COLOR1
|
||||||
|
adc COLOR1
|
||||||
|
sta COLOR
|
||||||
|
|
||||||
|
nocolmatch1:
|
||||||
|
lda YY
|
||||||
|
sta V2
|
||||||
|
lda XX
|
||||||
|
clc
|
||||||
|
adc #9
|
||||||
|
tay
|
||||||
|
lda #10
|
||||||
|
tax
|
||||||
|
|
||||||
|
jsr vlin ; X,V2 at Y vlin(10,ram[YY],9+ram[XX]);
|
||||||
|
|
||||||
|
lda COLOR2
|
||||||
|
sta COLOR ; color=COLOR2
|
||||||
|
|
||||||
|
lda MATCH ; if (ram[XX]==ram[MATCH])
|
||||||
|
cmp XX
|
||||||
|
bne nocolmatch2
|
||||||
|
|
||||||
|
lda COLOR ; color_equals(ram[COLOR2]*3);
|
||||||
|
clc
|
||||||
|
adc COLOR2
|
||||||
|
adc COLOR2
|
||||||
|
sta COLOR
|
||||||
|
|
||||||
|
nocolmatch2:
|
||||||
|
lda #34
|
||||||
|
sta V2
|
||||||
|
lda XX
|
||||||
|
clc
|
||||||
|
adc #9
|
||||||
|
tay
|
||||||
|
lda YY
|
||||||
|
tax
|
||||||
|
cmp #34
|
||||||
|
beq skip_bottom ; if (ram[YY]==34) skip
|
||||||
|
jsr vlin ; X,V2 at Y vlin(ram[YY],34,9+ram[XX]);
|
||||||
|
|
||||||
|
skip_bottom:
|
||||||
|
|
||||||
|
|
||||||
|
inc XX ; ram[XX]++;
|
||||||
|
|
||||||
|
inc LOOP
|
||||||
|
lda LOOP
|
||||||
|
cmp #4
|
||||||
|
bne segment_loop
|
||||||
|
|
||||||
|
lda YADD ; ram[YADD]=-ram[YADD];
|
||||||
|
eor #$ff
|
||||||
|
clc
|
||||||
|
adc #1
|
||||||
|
sta YADD
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
;=================
|
||||||
|
; display VMW logo
|
||||||
|
;=================
|
||||||
|
;
|
||||||
|
draw_logo:
|
||||||
|
lda #0
|
||||||
|
sta XX ; start of logo
|
||||||
|
lda #10
|
||||||
|
sta YY ; draw at Y=10
|
||||||
|
lda #6
|
||||||
|
sta YADD ; step of 6
|
||||||
|
|
||||||
|
lda #$00
|
||||||
|
sta COLOR2
|
||||||
|
lda #$11
|
||||||
|
sta COLOR1 ; first colors are red/black
|
||||||
|
jsr draw_segment
|
||||||
|
lda #$44
|
||||||
|
sta COLOR2 ; now red/green
|
||||||
|
jsr draw_segment
|
||||||
|
lda #$22
|
||||||
|
sta COLOR1 ; now green/blue
|
||||||
|
jsr draw_segment
|
||||||
|
jsr draw_segment
|
||||||
|
jsr draw_segment
|
||||||
|
lda #$00
|
||||||
|
sta COLOR2 ; now blue/black
|
||||||
|
jsr draw_segment
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
643
tfv/tfv.s
643
tfv/tfv.s
@ -1,134 +1,30 @@
|
|||||||
.define EQU =
|
.include "zp.inc"
|
||||||
|
|
||||||
KEYPRESS EQU $C000
|
|
||||||
KEYRESET EQU $C010
|
|
||||||
|
|
||||||
;; SOFT SWITCHES
|
|
||||||
SET_GR EQU $C050
|
|
||||||
SET_TEXT EQU $C051
|
|
||||||
FULLGR EQU $C052
|
|
||||||
TEXTGR EQU $C053
|
|
||||||
PAGE0 EQU $C054
|
|
||||||
PAGE1 EQU $C055
|
|
||||||
LORES EQU $C056
|
|
||||||
HIRES EQU $C057
|
|
||||||
|
|
||||||
PADDLE_BUTTON0 EQU $C061
|
|
||||||
PADDL0 EQU $C064
|
|
||||||
PTRIG EQU $C070
|
|
||||||
|
|
||||||
;; BASIC ROUTINES
|
|
||||||
|
|
||||||
NORMAL EQU $F273
|
|
||||||
|
|
||||||
;; MONITOR ROUTINES
|
|
||||||
|
|
||||||
HLINE EQU $F819 ;; HLINE Y,$2C at A
|
|
||||||
VLINE EQU $F828 ;; VLINE A,$2D at Y
|
|
||||||
CLRSCR EQU $F832 ;; Clear low-res screen
|
|
||||||
CLRTOP EQU $F836 ;; clear only top of low-res screen
|
|
||||||
SETCOL EQU $F864 ;; COLOR=A
|
|
||||||
TEXT EQU $FB36
|
|
||||||
TABV EQU $FB5B ;; VTAB to A
|
|
||||||
BASCALC EQU $FBC1 ;;
|
|
||||||
VTAB EQU $FC22 ;; VTAB to CV
|
|
||||||
HOME EQU $FC58 ;; Clear the text screen
|
|
||||||
WAIT EQU $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
|
||||||
SETINV EQU $FE80 ;; INVERSE
|
|
||||||
SETNORM EQU $FE84 ;; NORMAL
|
|
||||||
COUT EQU $FDED ;; output A to screen
|
|
||||||
COUT1 EQU $FDF0 ;; output A to screen
|
|
||||||
|
|
||||||
;; Zero page addresses
|
|
||||||
WNDLFT EQU $20
|
|
||||||
WNDWDTH EQU $21
|
|
||||||
WNDTOP EQU $22
|
|
||||||
WNDBTM EQU $23
|
|
||||||
CH EQU $24
|
|
||||||
CV EQU $25
|
|
||||||
GBASL EQU $26
|
|
||||||
GBASH EQU $27
|
|
||||||
BASL EQU $28
|
|
||||||
BASH EQU $29
|
|
||||||
H2 EQU $2C
|
|
||||||
V2 EQU $2D
|
|
||||||
MASK EQU $2E
|
|
||||||
COLOR EQU $30
|
|
||||||
INVFLG EQU $32
|
|
||||||
|
|
||||||
; Our zero-page addresses
|
|
||||||
; we try not to conflict with anything DOS, MONITOR or BASIC related
|
|
||||||
|
|
||||||
COLOR1 EQU $E0
|
|
||||||
COLOR2 EQU $E1
|
|
||||||
MATCH EQU $E2
|
|
||||||
XX EQU $E3
|
|
||||||
YY EQU $E4
|
|
||||||
YADD EQU $E5
|
|
||||||
LOOP EQU $E6
|
|
||||||
MEMPTRL EQU $E7
|
|
||||||
MEMPTRH EQU $E8
|
|
||||||
NAMEL EQU $E9
|
|
||||||
NAMEH EQU $EA
|
|
||||||
NAMEX EQU $EB
|
|
||||||
CHAR EQU $EC
|
|
||||||
|
|
||||||
FIRST EQU $F0
|
|
||||||
LASTKEY EQU $F1
|
|
||||||
PADDLE_STATUS EQU $F2
|
|
||||||
XPOS EQU $F3
|
|
||||||
YPOS EQU $F4
|
|
||||||
TEMP EQU $FA
|
|
||||||
RUN EQU $FA
|
|
||||||
TEMP2 EQU $FB
|
|
||||||
TEMPY EQU $FB
|
|
||||||
INL EQU $FC
|
|
||||||
INH EQU $FD
|
|
||||||
OUTL EQU $FE
|
|
||||||
OUTH EQU $FF
|
|
||||||
|
|
||||||
;=============================
|
|
||||||
; set low-res graphics, page 0
|
|
||||||
;=============================
|
|
||||||
jsr HOME
|
jsr HOME
|
||||||
jsr set_gr_page0
|
jsr set_gr_page0
|
||||||
|
|
||||||
;=============================
|
; memset()
|
||||||
; show VMW splash screen
|
; clear top page0
|
||||||
;=============================
|
; clear top page1
|
||||||
|
; clear_top(0);
|
||||||
|
|
||||||
jsr CLRTOP
|
jsr CLRTOP
|
||||||
|
|
||||||
lda #100
|
; clear_top(1);
|
||||||
sta MATCH
|
; clear bottom page0
|
||||||
jsr draw_logo
|
; clear bottom page1
|
||||||
|
; clear_bottom(0);
|
||||||
|
; clear_bottom(1);
|
||||||
|
|
||||||
lda #0
|
;==========================
|
||||||
sta MATCH
|
; Do Opening
|
||||||
shine_loop:
|
;==========================
|
||||||
|
|
||||||
jsr draw_logo
|
jsr opening
|
||||||
|
|
||||||
inc MATCH
|
|
||||||
lda MATCH
|
|
||||||
cmp #30
|
|
||||||
bne shine_loop
|
|
||||||
|
|
||||||
lda #8
|
|
||||||
sta CH ; HTAB 9
|
|
||||||
|
|
||||||
lda #20
|
|
||||||
jsr TABV ; VTAB 21
|
|
||||||
|
|
||||||
|
|
||||||
lda #>(vmwsw_string)
|
|
||||||
sta OUTH
|
|
||||||
lda #<(vmwsw_string)
|
|
||||||
sta OUTL
|
|
||||||
|
|
||||||
jsr print_string ; print("A VMW SOFTWARE PRODUCTION");
|
|
||||||
|
|
||||||
|
|
||||||
jsr wait_until_keypressed
|
|
||||||
|
|
||||||
;======================
|
;======================
|
||||||
; show the title screen
|
; show the title screen
|
||||||
@ -317,510 +213,17 @@ exit:
|
|||||||
; Return to BASIC?
|
; Return to BASIC?
|
||||||
rts
|
rts
|
||||||
|
|
||||||
;=====================================================================
|
|
||||||
;= ROUTINES
|
|
||||||
;=====================================================================
|
|
||||||
|
|
||||||
;======================
|
;===============================================
|
||||||
; memset
|
; External modules
|
||||||
;======================
|
;===============================================
|
||||||
; a=value
|
|
||||||
; x=length
|
|
||||||
; MEMPTRL/MEMPTRH is address
|
|
||||||
memset:
|
|
||||||
ldy #0
|
|
||||||
memset_loop:
|
|
||||||
sta MEMPTRL,Y
|
|
||||||
iny
|
|
||||||
dex
|
|
||||||
bne memset_loop
|
|
||||||
rts
|
|
||||||
|
|
||||||
;=================
|
.include "opener.s"
|
||||||
; display part of logo
|
.include "utils.s"
|
||||||
;=================
|
|
||||||
;
|
|
||||||
draw_segment:
|
|
||||||
lda #0
|
|
||||||
sta LOOP
|
|
||||||
|
|
||||||
segment_loop:
|
;===============================================
|
||||||
lda YADD
|
; Variables
|
||||||
clc
|
;===============================================
|
||||||
adc YY
|
|
||||||
sta YY ; yy=yy+yadd
|
|
||||||
|
|
||||||
lda COLOR1
|
|
||||||
sta COLOR ; color=COLOR1
|
|
||||||
|
|
||||||
lda MATCH ; if (ram[XX]==ram[MATCH])
|
|
||||||
cmp XX
|
|
||||||
bne nocolmatch1
|
|
||||||
|
|
||||||
lda COLOR ; color_equals(ram[COLOR1]*3);
|
|
||||||
clc
|
|
||||||
adc COLOR1
|
|
||||||
adc COLOR1
|
|
||||||
sta COLOR
|
|
||||||
|
|
||||||
nocolmatch1:
|
|
||||||
lda YY
|
|
||||||
sta V2
|
|
||||||
lda XX
|
|
||||||
clc
|
|
||||||
adc #9
|
|
||||||
tay
|
|
||||||
lda #10
|
|
||||||
|
|
||||||
jsr VLINE ; A,V2 at Y vlin(10,ram[YY],9+ram[XX]);
|
|
||||||
|
|
||||||
lda COLOR2
|
|
||||||
sta COLOR ; color=COLOR2
|
|
||||||
|
|
||||||
lda MATCH ; if (ram[XX]==ram[MATCH])
|
|
||||||
cmp XX
|
|
||||||
bne nocolmatch2
|
|
||||||
|
|
||||||
lda COLOR ; color_equals(ram[COLOR2]*3);
|
|
||||||
clc
|
|
||||||
adc COLOR2
|
|
||||||
adc COLOR2
|
|
||||||
sta COLOR
|
|
||||||
|
|
||||||
nocolmatch2:
|
|
||||||
lda #34
|
|
||||||
sta V2
|
|
||||||
lda XX
|
|
||||||
clc
|
|
||||||
adc #9
|
|
||||||
tay
|
|
||||||
lda YY
|
|
||||||
cmp #34
|
|
||||||
beq skip_bottom ; if (ram[YY]==34) skip
|
|
||||||
jsr VLINE ; A,V2 at Y vlin(ram[YY],34,9+ram[XX]);
|
|
||||||
|
|
||||||
skip_bottom:
|
|
||||||
|
|
||||||
|
|
||||||
inc XX ; ram[XX]++;
|
|
||||||
|
|
||||||
inc LOOP
|
|
||||||
lda LOOP
|
|
||||||
cmp #4
|
|
||||||
bne segment_loop
|
|
||||||
|
|
||||||
lda YADD ; ram[YADD]=-ram[YADD];
|
|
||||||
eor #$ff
|
|
||||||
clc
|
|
||||||
adc #1
|
|
||||||
sta YADD
|
|
||||||
|
|
||||||
rts
|
|
||||||
|
|
||||||
;=================
|
|
||||||
; display VMW logo
|
|
||||||
;=================
|
|
||||||
;
|
|
||||||
draw_logo:
|
|
||||||
lda #0
|
|
||||||
sta XX ; start of logo
|
|
||||||
lda #10
|
|
||||||
sta YY ; draw at Y=10
|
|
||||||
lda #6
|
|
||||||
sta YADD ; step of 6
|
|
||||||
|
|
||||||
lda #$00
|
|
||||||
sta COLOR2
|
|
||||||
lda #$11
|
|
||||||
sta COLOR1 ; first colors are red/black
|
|
||||||
jsr draw_segment
|
|
||||||
lda #$44
|
|
||||||
sta COLOR2 ; now red/green
|
|
||||||
jsr draw_segment
|
|
||||||
lda #$22
|
|
||||||
sta COLOR1 ; now green/blue
|
|
||||||
jsr draw_segment
|
|
||||||
jsr draw_segment
|
|
||||||
jsr draw_segment
|
|
||||||
lda #$00
|
|
||||||
sta COLOR2 ; now blue/black
|
|
||||||
jsr draw_segment
|
|
||||||
|
|
||||||
rts
|
|
||||||
|
|
||||||
;=================
|
|
||||||
; load RLE image
|
|
||||||
;=================
|
|
||||||
; Output is BASH/BASL
|
|
||||||
; Input is in GBASH/GBASL
|
|
||||||
load_rle_gr:
|
|
||||||
lda #$0
|
|
||||||
tax
|
|
||||||
tay ; init X and Y to 0
|
|
||||||
|
|
||||||
sta CV ; ycoord=0
|
|
||||||
|
|
||||||
lda (GBASL),y ; load xsize
|
|
||||||
sta CH
|
|
||||||
iny ; (we should check if we had
|
|
||||||
; bad luck and overflows page)
|
|
||||||
|
|
||||||
rle_loop:
|
|
||||||
lda (GBASL),y ; load run value
|
|
||||||
cmp #$ff ; if 0xff
|
|
||||||
beq rle_done ; we are done
|
|
||||||
sta RUN
|
|
||||||
iny ; point to next value
|
|
||||||
bne rle_yskip1 ; if overflow, increment address
|
|
||||||
inc GBASH
|
|
||||||
rle_yskip1:
|
|
||||||
lda (GBASL),y ; load value to write
|
|
||||||
iny
|
|
||||||
bne rle_yskip2
|
|
||||||
inc GBASH
|
|
||||||
rle_yskip2:
|
|
||||||
sty TEMP2 ; save y for later
|
|
||||||
pha
|
|
||||||
lda #$0
|
|
||||||
tay
|
|
||||||
pla ; convoluted way to set y to 0
|
|
||||||
|
|
||||||
rle_run_loop:
|
|
||||||
sta (BASL),y ; write out the value
|
|
||||||
inc BASL ; increment the pointer
|
|
||||||
bne rle_skip3 ; if wrapped
|
|
||||||
inc BASH ; then increment the high value
|
|
||||||
rle_skip3:
|
|
||||||
inx ; increment the X value
|
|
||||||
cpx CH ; compare against the image width
|
|
||||||
bcc rle_not_eol ; if less then keep going
|
|
||||||
|
|
||||||
pha ; save out value on stack
|
|
||||||
|
|
||||||
lda BASL ; cheat to avoid a 16-bit add
|
|
||||||
cmp #$a7 ; we are adding 0x58 to get
|
|
||||||
bcc rle_add_skip ; to the next line
|
|
||||||
inc BASH
|
|
||||||
rle_add_skip:
|
|
||||||
clc
|
|
||||||
adc #$58 ; actually do the 0x58 add
|
|
||||||
sta BASL ; and store it back
|
|
||||||
|
|
||||||
inc CV ; add 2 to ypos
|
|
||||||
inc CV ; each "line" is two high
|
|
||||||
|
|
||||||
lda CV ; load value
|
|
||||||
cmp #15 ; if it's greater than 14 it wraps
|
|
||||||
bcc rle_no_wrap ; Thanks Woz
|
|
||||||
|
|
||||||
lda #$0 ; we wrapped, so set to zero
|
|
||||||
sta CV
|
|
||||||
|
|
||||||
; when wrapping have to sub 0x3d8
|
|
||||||
sec ; this is a 16-bit subtract routine
|
|
||||||
lda BASL
|
|
||||||
sbc #$d8 ; LSB
|
|
||||||
sta BASL
|
|
||||||
lda BASH ; MSB
|
|
||||||
sbc #$3 ;
|
|
||||||
sta BASH
|
|
||||||
|
|
||||||
rle_no_wrap:
|
|
||||||
lda #$0 ; set X value back to zero
|
|
||||||
tax
|
|
||||||
pla ; restore value to write from stack
|
|
||||||
|
|
||||||
rle_not_eol:
|
|
||||||
dec RUN ; decrement run value
|
|
||||||
bne rle_run_loop ; if not zero, keep looping
|
|
||||||
|
|
||||||
ldy TEMP2 ; restore the input pointer
|
|
||||||
sec
|
|
||||||
bcs rle_loop ; and branch always
|
|
||||||
|
|
||||||
rle_done:
|
|
||||||
lda #$15 ; move the cursor somewhere sane
|
|
||||||
sta CV
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
;==========================================================
|
|
||||||
; set_text_page0
|
|
||||||
;==========================================================
|
|
||||||
;
|
|
||||||
set_text_page0:
|
|
||||||
bit PAGE0 ; set page0
|
|
||||||
bit TEXT ; set text mode
|
|
||||||
rts
|
|
||||||
|
|
||||||
;==========================================================
|
|
||||||
; set_gr_page0
|
|
||||||
;==========================================================
|
|
||||||
;
|
|
||||||
set_gr_page0:
|
|
||||||
;lda #4
|
|
||||||
;sta GR_PAGE
|
|
||||||
bit PAGE0 ; set page 0
|
|
||||||
bit LORES ; Lo-res graphics
|
|
||||||
bit TEXTGR ; mixed gr/text mode
|
|
||||||
bit SET_GR ; set graphics
|
|
||||||
rts
|
|
||||||
|
|
||||||
;=========================================================
|
|
||||||
; gr_copy
|
|
||||||
;=========================================================
|
|
||||||
; for now copy 0xc00 to 0x400
|
|
||||||
; 2 + 8*38 + 4*80*23 + 4*120*26 + 13 = 20,159 = 20ms = 50Hz
|
|
||||||
;
|
|
||||||
gr_copy:
|
|
||||||
ldx #0 ; set y to zero ; 2
|
|
||||||
|
|
||||||
gr_copy_loop:
|
|
||||||
stx TEMP ; save y ; 3
|
|
||||||
txa ; move to A ; 2
|
|
||||||
asl ; mult by 2 ; 2
|
|
||||||
tay ; put into Y ; 2
|
|
||||||
lda gr_offsets,Y ; lookup low byte for line addr ; 5
|
|
||||||
sta OUTL ; out and in are the same ; 3
|
|
||||||
sta INL ; 3
|
|
||||||
lda gr_offsets+1,Y ; lookup high byte for line addr ; 5
|
|
||||||
sta OUTH ; 3
|
|
||||||
adc #$8 ; for now, fixed 0xc ; 2
|
|
||||||
sta INH ; 3
|
|
||||||
ldx TEMP ; restore y ; 3
|
|
||||||
|
|
||||||
ldy #0 ; set X counter to 0 ; 2
|
|
||||||
gr_copy_line:
|
|
||||||
lda (INL),Y ; load a byte ; 5
|
|
||||||
sta (OUTL),Y ; store a byte ; 6
|
|
||||||
iny ; increment pointer ; 2
|
|
||||||
|
|
||||||
cpx #$4 ; don't want to copy bottom 4*40 ; 2
|
|
||||||
bcs gr_copy_above4 ; 3
|
|
||||||
|
|
||||||
gr_copy_below4:
|
|
||||||
cpy #120 ; for early ones, copy 120 bytes ; 2
|
|
||||||
bne gr_copy_line ; 3
|
|
||||||
beq gr_copy_line_done ; 3
|
|
||||||
|
|
||||||
gr_copy_above4: ; for last four, just copy 80 bytes
|
|
||||||
cpy #80 ; 2
|
|
||||||
bne gr_copy_line ; 3
|
|
||||||
|
|
||||||
gr_copy_line_done:
|
|
||||||
inx ; increment y value ; 2
|
|
||||||
cpx #8 ; there are 8 of them ; 2
|
|
||||||
bne gr_copy_loop ; if not, loop ; 3
|
|
||||||
rts ; 6
|
|
||||||
|
|
||||||
;==========================================================
|
|
||||||
; Wait until keypressed
|
|
||||||
;==========================================================
|
|
||||||
;
|
|
||||||
|
|
||||||
wait_until_keypressed:
|
|
||||||
lda KEYPRESS ; check if keypressed
|
|
||||||
bpl wait_until_keypressed ; if not, loop
|
|
||||||
jmp figure_out_key
|
|
||||||
|
|
||||||
|
|
||||||
;==========================================================
|
|
||||||
; Get Key
|
|
||||||
;==========================================================
|
|
||||||
;
|
|
||||||
|
|
||||||
get_key:
|
|
||||||
|
|
||||||
check_paddle_button:
|
|
||||||
|
|
||||||
; check for paddle button
|
|
||||||
|
|
||||||
bit PADDLE_BUTTON0
|
|
||||||
bpl no_button
|
|
||||||
lda #' '+128
|
|
||||||
jmp save_key
|
|
||||||
|
|
||||||
no_button:
|
|
||||||
lda KEYPRESS
|
|
||||||
bpl no_key
|
|
||||||
|
|
||||||
figure_out_key:
|
|
||||||
cmp #' '+128 ; the mask destroys space
|
|
||||||
beq save_key ; so handle it specially
|
|
||||||
|
|
||||||
and #$5f ; mask, to make upper-case
|
|
||||||
check_right_arrow:
|
|
||||||
cmp #$15
|
|
||||||
bne check_left_arrow
|
|
||||||
lda #'K'
|
|
||||||
check_left_arrow:
|
|
||||||
cmp #$08
|
|
||||||
bne check_up_arrow
|
|
||||||
lda #'J'
|
|
||||||
check_up_arrow:
|
|
||||||
cmp #$0B
|
|
||||||
bne check_down_arrow
|
|
||||||
lda #'I'
|
|
||||||
check_down_arrow:
|
|
||||||
cmp #$0A
|
|
||||||
bne check_escape
|
|
||||||
lda #'M'
|
|
||||||
check_escape:
|
|
||||||
cmp #$1B
|
|
||||||
bne save_key
|
|
||||||
lda #'Q'
|
|
||||||
jmp save_key
|
|
||||||
|
|
||||||
no_key:
|
|
||||||
bit PADDLE_STATUS
|
|
||||||
bpl no_key_store
|
|
||||||
|
|
||||||
; check for paddle action
|
|
||||||
; code from http://web.pdx.edu/~heiss/technotes/aiie/tn.aiie.06.html
|
|
||||||
|
|
||||||
inc PADDLE_STATUS
|
|
||||||
lda PADDLE_STATUS
|
|
||||||
and #$03
|
|
||||||
beq check_paddles
|
|
||||||
jmp no_key_store
|
|
||||||
|
|
||||||
check_paddles:
|
|
||||||
lda PADDLE_STATUS
|
|
||||||
and #$80
|
|
||||||
sta PADDLE_STATUS
|
|
||||||
|
|
||||||
ldx #$0
|
|
||||||
LDA PTRIG ;TRIGGER PADDLES
|
|
||||||
LDY #0 ;INIT COUNTER
|
|
||||||
NOP ;COMPENSATE FOR 1ST COUNT
|
|
||||||
NOP
|
|
||||||
PREAD2: LDA PADDL0,X ;COUNT EVERY 11 uSEC.
|
|
||||||
BPL RTS2D ;BRANCH WHEN TIMED OUT
|
|
||||||
INY ;INCREMENT COUNTER
|
|
||||||
BNE PREAD2 ;CONTINUE COUNTING
|
|
||||||
DEY ;COUNTER OVERFLOWED
|
|
||||||
RTS2D: ;RETURN W/VALUE 0-255
|
|
||||||
|
|
||||||
cpy #96
|
|
||||||
bmi paddle_left
|
|
||||||
cpy #160
|
|
||||||
bmi no_key_store
|
|
||||||
lda #'K'
|
|
||||||
jmp save_key
|
|
||||||
paddle_left:
|
|
||||||
lda #'J'
|
|
||||||
jmp save_key
|
|
||||||
|
|
||||||
no_key_store:
|
|
||||||
lda #0 ; no key, so save a zero
|
|
||||||
|
|
||||||
save_key:
|
|
||||||
sta LASTKEY ; save the key to our buffer
|
|
||||||
bit KEYRESET ; clear the keyboard buffer
|
|
||||||
rts
|
|
||||||
|
|
||||||
;=============================================
|
|
||||||
; put_sprite
|
|
||||||
;=============================================
|
|
||||||
put_sprite:
|
|
||||||
|
|
||||||
lda #>tb1_sprite ; hardcoded for tb1 for now
|
|
||||||
sta INH
|
|
||||||
lda #<tb1_sprite
|
|
||||||
sta INL
|
|
||||||
|
|
||||||
ldy #0 ; byte 0 is xsize
|
|
||||||
lda (INL),Y
|
|
||||||
sta CH
|
|
||||||
iny
|
|
||||||
|
|
||||||
lda (INL),Y ; byte 1 is ysize
|
|
||||||
sta CV
|
|
||||||
iny
|
|
||||||
|
|
||||||
lda YPOS ; make a copy of ypos
|
|
||||||
sta TEMPY ; as we modify it
|
|
||||||
|
|
||||||
put_sprite_loop:
|
|
||||||
sty TEMP ; save sprite pointer
|
|
||||||
|
|
||||||
ldy TEMPY
|
|
||||||
lda gr_offsets,Y ; lookup low-res memory address ; 5
|
|
||||||
clc
|
|
||||||
adc XPOS ; add in xpos
|
|
||||||
sta OUTL ; store out low byte of addy ; 3
|
|
||||||
lda gr_offsets+1,Y ; look up high byte ; 5
|
|
||||||
sta OUTH ; and store it out ; 3
|
|
||||||
ldy TEMP ; restore sprite pointer ; 3
|
|
||||||
|
|
||||||
ldx CH
|
|
||||||
|
|
||||||
put_sprite_pixel:
|
|
||||||
lda (INL),Y ; get sprite colors
|
|
||||||
iny ; increment sprite pointer
|
|
||||||
|
|
||||||
sty TEMP ; save sprite pointer
|
|
||||||
ldy #$0
|
|
||||||
|
|
||||||
cmp #$0 ; if all zero, transparent
|
|
||||||
beq put_sprite_done_draw ; don't draw it
|
|
||||||
|
|
||||||
; FIXME: use BIT?
|
|
||||||
|
|
||||||
sta COLOR ; save color for later
|
|
||||||
and #$f0 ; check if top nibble zero
|
|
||||||
bne put_sprite_bottom ; if not skip ahead
|
|
||||||
|
|
||||||
lda #$0f ; setup mask
|
|
||||||
sta MASK
|
|
||||||
bmi put_sprite_mask
|
|
||||||
|
|
||||||
put_sprite_bottom:
|
|
||||||
lda COLOR ; re-load color
|
|
||||||
and #$0f ; check if bottom nibble zero
|
|
||||||
bne put_sprite_all ; if not, skip ahead
|
|
||||||
lda #$0f
|
|
||||||
sta MASK ; setup mask
|
|
||||||
|
|
||||||
put_sprite_mask:
|
|
||||||
lda (OUTL),Y ; get color at output
|
|
||||||
and MASK ; mask off unneeded part
|
|
||||||
ora COLOR ; or the color in
|
|
||||||
sta (OUTL),Y ; store it back
|
|
||||||
|
|
||||||
jmp put_sprite_done_draw ; we are done
|
|
||||||
|
|
||||||
put_sprite_all:
|
|
||||||
lda COLOR ; load color
|
|
||||||
sta (OUTL),Y ; and write it out
|
|
||||||
|
|
||||||
|
|
||||||
put_sprite_done_draw:
|
|
||||||
|
|
||||||
ldy TEMP ; restore sprite pointer
|
|
||||||
|
|
||||||
inc OUTL ; increment output pointer
|
|
||||||
dex ; decrement x counter
|
|
||||||
bne put_sprite_pixel ; if not done, keep looping
|
|
||||||
|
|
||||||
inc TEMPY ; each line has two y vars
|
|
||||||
inc TEMPY
|
|
||||||
dec CV ; decemenet total y count
|
|
||||||
bne put_sprite_loop ; loop if not done
|
|
||||||
|
|
||||||
rts ; return
|
|
||||||
|
|
||||||
print_string:
|
|
||||||
ldy #0
|
|
||||||
print_string_loop:
|
|
||||||
lda (OUTL),Y
|
|
||||||
beq done_print_string
|
|
||||||
ora #$80
|
|
||||||
jsr COUT1
|
|
||||||
iny
|
|
||||||
bne print_string_loop
|
|
||||||
done_print_string:
|
|
||||||
rts
|
|
||||||
|
|
||||||
vmwsw_string:
|
vmwsw_string:
|
||||||
.asciiz "A VMW SOFTWARE PRODUCTION"
|
.asciiz "A VMW SOFTWARE PRODUCTION"
|
||||||
|
|||||||
471
tfv/utils.s
Normal file
471
tfv/utils.s
Normal file
@ -0,0 +1,471 @@
|
|||||||
|
;=====================================================================
|
||||||
|
;= ROUTINES
|
||||||
|
;=====================================================================
|
||||||
|
|
||||||
|
;==========
|
||||||
|
; page_flip
|
||||||
|
;==========
|
||||||
|
|
||||||
|
page_flip:
|
||||||
|
lda DISP_PAGE
|
||||||
|
beq page_flip_show_1
|
||||||
|
page_flip_show_0:
|
||||||
|
bit PAGE0
|
||||||
|
lda #4
|
||||||
|
sta DRAW_PAGE ; DRAW_PAGE=1
|
||||||
|
lda #0
|
||||||
|
sta DISP_PAGE ; DISP_PAGE=0
|
||||||
|
rts
|
||||||
|
page_flip_show_1:
|
||||||
|
bit PAGE1
|
||||||
|
sta DRAW_PAGE ; DRAW_PAGE=0
|
||||||
|
lda #1
|
||||||
|
sta DISP_PAGE ; DISP_PAGE=1
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
;======================
|
||||||
|
; memset
|
||||||
|
;======================
|
||||||
|
; a=value
|
||||||
|
; x=length
|
||||||
|
; MEMPTRL/MEMPTRH is address
|
||||||
|
memset:
|
||||||
|
ldy #0
|
||||||
|
memset_loop:
|
||||||
|
sta MEMPTRL,Y
|
||||||
|
iny
|
||||||
|
dex
|
||||||
|
bne memset_loop
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
;=================
|
||||||
|
; load RLE image
|
||||||
|
;=================
|
||||||
|
; Output is BASH/BASL
|
||||||
|
; Input is in GBASH/GBASL
|
||||||
|
load_rle_gr:
|
||||||
|
lda #$0
|
||||||
|
tax
|
||||||
|
tay ; init X and Y to 0
|
||||||
|
|
||||||
|
sta CV ; ycoord=0
|
||||||
|
|
||||||
|
lda (GBASL),y ; load xsize
|
||||||
|
sta CH
|
||||||
|
iny ; (we should check if we had
|
||||||
|
; bad luck and overflows page)
|
||||||
|
|
||||||
|
rle_loop:
|
||||||
|
lda (GBASL),y ; load run value
|
||||||
|
cmp #$ff ; if 0xff
|
||||||
|
beq rle_done ; we are done
|
||||||
|
sta RUN
|
||||||
|
iny ; point to next value
|
||||||
|
bne rle_yskip1 ; if overflow, increment address
|
||||||
|
inc GBASH
|
||||||
|
rle_yskip1:
|
||||||
|
lda (GBASL),y ; load value to write
|
||||||
|
iny
|
||||||
|
bne rle_yskip2
|
||||||
|
inc GBASH
|
||||||
|
rle_yskip2:
|
||||||
|
sty TEMP2 ; save y for later
|
||||||
|
pha
|
||||||
|
lda #$0
|
||||||
|
tay
|
||||||
|
pla ; convoluted way to set y to 0
|
||||||
|
|
||||||
|
rle_run_loop:
|
||||||
|
sta (BASL),y ; write out the value
|
||||||
|
inc BASL ; increment the pointer
|
||||||
|
bne rle_skip3 ; if wrapped
|
||||||
|
inc BASH ; then increment the high value
|
||||||
|
rle_skip3:
|
||||||
|
inx ; increment the X value
|
||||||
|
cpx CH ; compare against the image width
|
||||||
|
bcc rle_not_eol ; if less then keep going
|
||||||
|
|
||||||
|
pha ; save out value on stack
|
||||||
|
|
||||||
|
lda BASL ; cheat to avoid a 16-bit add
|
||||||
|
cmp #$a7 ; we are adding 0x58 to get
|
||||||
|
bcc rle_add_skip ; to the next line
|
||||||
|
inc BASH
|
||||||
|
rle_add_skip:
|
||||||
|
clc
|
||||||
|
adc #$58 ; actually do the 0x58 add
|
||||||
|
sta BASL ; and store it back
|
||||||
|
|
||||||
|
inc CV ; add 2 to ypos
|
||||||
|
inc CV ; each "line" is two high
|
||||||
|
|
||||||
|
lda CV ; load value
|
||||||
|
cmp #15 ; if it's greater than 14 it wraps
|
||||||
|
bcc rle_no_wrap ; Thanks Woz
|
||||||
|
|
||||||
|
lda #$0 ; we wrapped, so set to zero
|
||||||
|
sta CV
|
||||||
|
|
||||||
|
; when wrapping have to sub 0x3d8
|
||||||
|
sec ; this is a 16-bit subtract routine
|
||||||
|
lda BASL
|
||||||
|
sbc #$d8 ; LSB
|
||||||
|
sta BASL
|
||||||
|
lda BASH ; MSB
|
||||||
|
sbc #$3 ;
|
||||||
|
sta BASH
|
||||||
|
|
||||||
|
rle_no_wrap:
|
||||||
|
lda #$0 ; set X value back to zero
|
||||||
|
tax
|
||||||
|
pla ; restore value to write from stack
|
||||||
|
|
||||||
|
rle_not_eol:
|
||||||
|
dec RUN ; decrement run value
|
||||||
|
bne rle_run_loop ; if not zero, keep looping
|
||||||
|
|
||||||
|
ldy TEMP2 ; restore the input pointer
|
||||||
|
sec
|
||||||
|
bcs rle_loop ; and branch always
|
||||||
|
|
||||||
|
rle_done:
|
||||||
|
lda #$15 ; move the cursor somewhere sane
|
||||||
|
sta CV
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
;==========================================================
|
||||||
|
; set_text_page0
|
||||||
|
;==========================================================
|
||||||
|
;
|
||||||
|
set_text_page0:
|
||||||
|
bit PAGE0 ; set page0
|
||||||
|
bit TEXT ; set text mode
|
||||||
|
rts
|
||||||
|
|
||||||
|
;==========================================================
|
||||||
|
; set_gr_page0
|
||||||
|
;==========================================================
|
||||||
|
;
|
||||||
|
set_gr_page0:
|
||||||
|
;lda #4
|
||||||
|
;sta GR_PAGE
|
||||||
|
bit PAGE0 ; set page 0
|
||||||
|
bit LORES ; Lo-res graphics
|
||||||
|
bit TEXTGR ; mixed gr/text mode
|
||||||
|
bit SET_GR ; set graphics
|
||||||
|
rts
|
||||||
|
|
||||||
|
;=========================================================
|
||||||
|
; gr_copy
|
||||||
|
;=========================================================
|
||||||
|
; for now copy 0xc00 to 0x400
|
||||||
|
; 2 + 8*38 + 4*80*23 + 4*120*26 + 13 = 20,159 = 20ms = 50Hz
|
||||||
|
;
|
||||||
|
gr_copy:
|
||||||
|
ldx #0 ; set y to zero ; 2
|
||||||
|
|
||||||
|
gr_copy_loop:
|
||||||
|
stx TEMP ; save y ; 3
|
||||||
|
txa ; move to A ; 2
|
||||||
|
asl ; mult by 2 ; 2
|
||||||
|
tay ; put into Y ; 2
|
||||||
|
lda gr_offsets,Y ; lookup low byte for line addr ; 5
|
||||||
|
sta OUTL ; out and in are the same ; 3
|
||||||
|
sta INL ; 3
|
||||||
|
lda gr_offsets+1,Y ; lookup high byte for line addr ; 5
|
||||||
|
sta OUTH ; 3
|
||||||
|
adc #$8 ; for now, fixed 0xc ; 2
|
||||||
|
sta INH ; 3
|
||||||
|
ldx TEMP ; restore y ; 3
|
||||||
|
|
||||||
|
ldy #0 ; set X counter to 0 ; 2
|
||||||
|
gr_copy_line:
|
||||||
|
lda (INL),Y ; load a byte ; 5
|
||||||
|
sta (OUTL),Y ; store a byte ; 6
|
||||||
|
iny ; increment pointer ; 2
|
||||||
|
|
||||||
|
cpx #$4 ; don't want to copy bottom 4*40 ; 2
|
||||||
|
bcs gr_copy_above4 ; 3
|
||||||
|
|
||||||
|
gr_copy_below4:
|
||||||
|
cpy #120 ; for early ones, copy 120 bytes ; 2
|
||||||
|
bne gr_copy_line ; 3
|
||||||
|
beq gr_copy_line_done ; 3
|
||||||
|
|
||||||
|
gr_copy_above4: ; for last four, just copy 80 bytes
|
||||||
|
cpy #80 ; 2
|
||||||
|
bne gr_copy_line ; 3
|
||||||
|
|
||||||
|
gr_copy_line_done:
|
||||||
|
inx ; increment y value ; 2
|
||||||
|
cpx #8 ; there are 8 of them ; 2
|
||||||
|
bne gr_copy_loop ; if not, loop ; 3
|
||||||
|
rts ; 6
|
||||||
|
|
||||||
|
;==========================================================
|
||||||
|
; Wait until keypressed
|
||||||
|
;==========================================================
|
||||||
|
;
|
||||||
|
|
||||||
|
wait_until_keypressed:
|
||||||
|
lda KEYPRESS ; check if keypressed
|
||||||
|
bpl wait_until_keypressed ; if not, loop
|
||||||
|
jmp figure_out_key
|
||||||
|
|
||||||
|
|
||||||
|
;==========================================================
|
||||||
|
; Get Key
|
||||||
|
;==========================================================
|
||||||
|
;
|
||||||
|
|
||||||
|
get_key:
|
||||||
|
|
||||||
|
check_paddle_button:
|
||||||
|
|
||||||
|
; check for paddle button
|
||||||
|
|
||||||
|
bit PADDLE_BUTTON0
|
||||||
|
bpl no_button
|
||||||
|
lda #' '+128
|
||||||
|
jmp save_key
|
||||||
|
|
||||||
|
no_button:
|
||||||
|
lda KEYPRESS
|
||||||
|
bpl no_key
|
||||||
|
|
||||||
|
figure_out_key:
|
||||||
|
cmp #' '+128 ; the mask destroys space
|
||||||
|
beq save_key ; so handle it specially
|
||||||
|
|
||||||
|
and #$5f ; mask, to make upper-case
|
||||||
|
check_right_arrow:
|
||||||
|
cmp #$15
|
||||||
|
bne check_left_arrow
|
||||||
|
lda #'K'
|
||||||
|
check_left_arrow:
|
||||||
|
cmp #$08
|
||||||
|
bne check_up_arrow
|
||||||
|
lda #'J'
|
||||||
|
check_up_arrow:
|
||||||
|
cmp #$0B
|
||||||
|
bne check_down_arrow
|
||||||
|
lda #'I'
|
||||||
|
check_down_arrow:
|
||||||
|
cmp #$0A
|
||||||
|
bne check_escape
|
||||||
|
lda #'M'
|
||||||
|
check_escape:
|
||||||
|
cmp #$1B
|
||||||
|
bne save_key
|
||||||
|
lda #'Q'
|
||||||
|
jmp save_key
|
||||||
|
|
||||||
|
no_key:
|
||||||
|
bit PADDLE_STATUS
|
||||||
|
bpl no_key_store
|
||||||
|
|
||||||
|
; check for paddle action
|
||||||
|
; code from http://web.pdx.edu/~heiss/technotes/aiie/tn.aiie.06.html
|
||||||
|
|
||||||
|
inc PADDLE_STATUS
|
||||||
|
lda PADDLE_STATUS
|
||||||
|
and #$03
|
||||||
|
beq check_paddles
|
||||||
|
jmp no_key_store
|
||||||
|
|
||||||
|
check_paddles:
|
||||||
|
lda PADDLE_STATUS
|
||||||
|
and #$80
|
||||||
|
sta PADDLE_STATUS
|
||||||
|
|
||||||
|
ldx #$0
|
||||||
|
LDA PTRIG ;TRIGGER PADDLES
|
||||||
|
LDY #0 ;INIT COUNTER
|
||||||
|
NOP ;COMPENSATE FOR 1ST COUNT
|
||||||
|
NOP
|
||||||
|
PREAD2: LDA PADDL0,X ;COUNT EVERY 11 uSEC.
|
||||||
|
BPL RTS2D ;BRANCH WHEN TIMED OUT
|
||||||
|
INY ;INCREMENT COUNTER
|
||||||
|
BNE PREAD2 ;CONTINUE COUNTING
|
||||||
|
DEY ;COUNTER OVERFLOWED
|
||||||
|
RTS2D: ;RETURN W/VALUE 0-255
|
||||||
|
|
||||||
|
cpy #96
|
||||||
|
bmi paddle_left
|
||||||
|
cpy #160
|
||||||
|
bmi no_key_store
|
||||||
|
lda #'K'
|
||||||
|
jmp save_key
|
||||||
|
paddle_left:
|
||||||
|
lda #'J'
|
||||||
|
jmp save_key
|
||||||
|
|
||||||
|
no_key_store:
|
||||||
|
lda #0 ; no key, so save a zero
|
||||||
|
|
||||||
|
save_key:
|
||||||
|
sta LASTKEY ; save the key to our buffer
|
||||||
|
bit KEYRESET ; clear the keyboard buffer
|
||||||
|
rts
|
||||||
|
|
||||||
|
;=============================================
|
||||||
|
; put_sprite
|
||||||
|
;=============================================
|
||||||
|
put_sprite:
|
||||||
|
|
||||||
|
lda #>tb1_sprite ; hardcoded for tb1 for now
|
||||||
|
sta INH
|
||||||
|
lda #<tb1_sprite
|
||||||
|
sta INL
|
||||||
|
|
||||||
|
ldy #0 ; byte 0 is xsize
|
||||||
|
lda (INL),Y
|
||||||
|
sta CH
|
||||||
|
iny
|
||||||
|
|
||||||
|
lda (INL),Y ; byte 1 is ysize
|
||||||
|
sta CV
|
||||||
|
iny
|
||||||
|
|
||||||
|
lda YPOS ; make a copy of ypos
|
||||||
|
sta TEMPY ; as we modify it
|
||||||
|
|
||||||
|
put_sprite_loop:
|
||||||
|
sty TEMP ; save sprite pointer
|
||||||
|
|
||||||
|
ldy TEMPY
|
||||||
|
lda gr_offsets,Y ; lookup low-res memory address ; 5
|
||||||
|
clc
|
||||||
|
adc XPOS ; add in xpos
|
||||||
|
sta OUTL ; store out low byte of addy ; 3
|
||||||
|
lda gr_offsets+1,Y ; look up high byte ; 5
|
||||||
|
sta OUTH ; and store it out ; 3
|
||||||
|
ldy TEMP ; restore sprite pointer ; 3
|
||||||
|
|
||||||
|
ldx CH
|
||||||
|
|
||||||
|
put_sprite_pixel:
|
||||||
|
lda (INL),Y ; get sprite colors
|
||||||
|
iny ; increment sprite pointer
|
||||||
|
|
||||||
|
sty TEMP ; save sprite pointer
|
||||||
|
ldy #$0
|
||||||
|
|
||||||
|
cmp #$0 ; if all zero, transparent
|
||||||
|
beq put_sprite_done_draw ; don't draw it
|
||||||
|
|
||||||
|
; FIXME: use BIT?
|
||||||
|
|
||||||
|
sta COLOR ; save color for later
|
||||||
|
and #$f0 ; check if top nibble zero
|
||||||
|
bne put_sprite_bottom ; if not skip ahead
|
||||||
|
|
||||||
|
lda #$0f ; setup mask
|
||||||
|
sta MASK
|
||||||
|
bmi put_sprite_mask
|
||||||
|
|
||||||
|
put_sprite_bottom:
|
||||||
|
lda COLOR ; re-load color
|
||||||
|
and #$0f ; check if bottom nibble zero
|
||||||
|
bne put_sprite_all ; if not, skip ahead
|
||||||
|
lda #$0f
|
||||||
|
sta MASK ; setup mask
|
||||||
|
|
||||||
|
put_sprite_mask:
|
||||||
|
lda (OUTL),Y ; get color at output
|
||||||
|
and MASK ; mask off unneeded part
|
||||||
|
ora COLOR ; or the color in
|
||||||
|
sta (OUTL),Y ; store it back
|
||||||
|
|
||||||
|
jmp put_sprite_done_draw ; we are done
|
||||||
|
|
||||||
|
put_sprite_all:
|
||||||
|
lda COLOR ; load color
|
||||||
|
sta (OUTL),Y ; and write it out
|
||||||
|
|
||||||
|
|
||||||
|
put_sprite_done_draw:
|
||||||
|
|
||||||
|
ldy TEMP ; restore sprite pointer
|
||||||
|
|
||||||
|
inc OUTL ; increment output pointer
|
||||||
|
dex ; decrement x counter
|
||||||
|
bne put_sprite_pixel ; if not done, keep looping
|
||||||
|
|
||||||
|
inc TEMPY ; each line has two y vars
|
||||||
|
inc TEMPY
|
||||||
|
dec CV ; decemenet total y count
|
||||||
|
bne put_sprite_loop ; loop if not done
|
||||||
|
|
||||||
|
rts ; return
|
||||||
|
|
||||||
|
print_string:
|
||||||
|
ldy #0
|
||||||
|
print_string_loop:
|
||||||
|
lda (OUTL),Y
|
||||||
|
beq done_print_string
|
||||||
|
ora #$80
|
||||||
|
jsr COUT1
|
||||||
|
iny
|
||||||
|
bne print_string_loop
|
||||||
|
done_print_string:
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;=========================================
|
||||||
|
; vlin
|
||||||
|
;=========================================
|
||||||
|
; X, V2 at Y
|
||||||
|
vlin:
|
||||||
|
;int vlin(int page, int y1, int y2, int at) {
|
||||||
|
|
||||||
|
|
||||||
|
; for(i=A;i<V2;i++) {
|
||||||
|
sty TEMPY ; save Y
|
||||||
|
txa ; a=x
|
||||||
|
lsr ; A/2
|
||||||
|
tay ; y=A
|
||||||
|
lda gr_offsets,Y ; lookup low-res memory address
|
||||||
|
sta OUTL
|
||||||
|
iny
|
||||||
|
lda gr_offsets,Y
|
||||||
|
clc
|
||||||
|
adc DRAW_PAGE ; add in draw page offset
|
||||||
|
sta OUTH
|
||||||
|
|
||||||
|
; vlin_hi=i&1;
|
||||||
|
|
||||||
|
pha
|
||||||
|
|
||||||
|
ldy TEMPY
|
||||||
|
|
||||||
|
lda #$ff
|
||||||
|
sta OUTL,Y
|
||||||
|
|
||||||
|
; lda $0F
|
||||||
|
; and OUTL,Y
|
||||||
|
; lda COLOR
|
||||||
|
; and $f0
|
||||||
|
; ora OUTL,Y
|
||||||
|
|
||||||
|
; if (vlin_hi) {
|
||||||
|
; ram[vlin_addr]=ram[vlin_addr]&0x0f;
|
||||||
|
; ram[vlin_addr]|=ram[COLOR]&0xf0;
|
||||||
|
; }
|
||||||
|
; else {
|
||||||
|
; ram[vlin_addr]=ram[vlin_addr]&0xf0;
|
||||||
|
; ram[vlin_addr]|=ram[COLOR]&0x0f;
|
||||||
|
; }
|
||||||
|
|
||||||
|
pla
|
||||||
|
|
||||||
|
inx
|
||||||
|
cpx V2
|
||||||
|
bne vlin
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
91
tfv/zp.inc
Normal file
91
tfv/zp.inc
Normal file
@ -0,0 +1,91 @@
|
|||||||
|
.define EQU =
|
||||||
|
|
||||||
|
KEYPRESS EQU $C000
|
||||||
|
KEYRESET EQU $C010
|
||||||
|
|
||||||
|
;; SOFT SWITCHES
|
||||||
|
SET_GR EQU $C050
|
||||||
|
SET_TEXT EQU $C051
|
||||||
|
FULLGR EQU $C052
|
||||||
|
TEXTGR EQU $C053
|
||||||
|
PAGE0 EQU $C054
|
||||||
|
PAGE1 EQU $C055
|
||||||
|
LORES EQU $C056
|
||||||
|
HIRES EQU $C057
|
||||||
|
|
||||||
|
PADDLE_BUTTON0 EQU $C061
|
||||||
|
PADDL0 EQU $C064
|
||||||
|
PTRIG EQU $C070
|
||||||
|
|
||||||
|
;; BASIC ROUTINES
|
||||||
|
|
||||||
|
NORMAL EQU $F273
|
||||||
|
|
||||||
|
;; MONITOR ROUTINES
|
||||||
|
|
||||||
|
HLINE EQU $F819 ;; HLINE Y,$2C at A
|
||||||
|
VLINE EQU $F828 ;; VLINE A,$2D at Y
|
||||||
|
CLRSCR EQU $F832 ;; Clear low-res screen
|
||||||
|
CLRTOP EQU $F836 ;; clear only top of low-res screen
|
||||||
|
SETCOL EQU $F864 ;; COLOR=A
|
||||||
|
TEXT EQU $FB36
|
||||||
|
TABV EQU $FB5B ;; VTAB to A
|
||||||
|
BASCALC EQU $FBC1 ;;
|
||||||
|
VTAB EQU $FC22 ;; VTAB to CV
|
||||||
|
HOME EQU $FC58 ;; Clear the text screen
|
||||||
|
WAIT EQU $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||||
|
SETINV EQU $FE80 ;; INVERSE
|
||||||
|
SETNORM EQU $FE84 ;; NORMAL
|
||||||
|
COUT EQU $FDED ;; output A to screen
|
||||||
|
COUT1 EQU $FDF0 ;; output A to screen
|
||||||
|
|
||||||
|
;; Zero page addresses
|
||||||
|
WNDLFT EQU $20
|
||||||
|
WNDWDTH EQU $21
|
||||||
|
WNDTOP EQU $22
|
||||||
|
WNDBTM EQU $23
|
||||||
|
CH EQU $24
|
||||||
|
CV EQU $25
|
||||||
|
GBASL EQU $26
|
||||||
|
GBASH EQU $27
|
||||||
|
BASL EQU $28
|
||||||
|
BASH EQU $29
|
||||||
|
H2 EQU $2C
|
||||||
|
V2 EQU $2D
|
||||||
|
MASK EQU $2E
|
||||||
|
COLOR EQU $30
|
||||||
|
INVFLG EQU $32
|
||||||
|
|
||||||
|
; Our zero-page addresses
|
||||||
|
; we try not to conflict with anything DOS, MONITOR or BASIC related
|
||||||
|
|
||||||
|
COLOR1 EQU $E0
|
||||||
|
COLOR2 EQU $E1
|
||||||
|
MATCH EQU $E2
|
||||||
|
XX EQU $E3
|
||||||
|
YY EQU $E4
|
||||||
|
YADD EQU $E5
|
||||||
|
LOOP EQU $E6
|
||||||
|
MEMPTRL EQU $E7
|
||||||
|
MEMPTRH EQU $E8
|
||||||
|
NAMEL EQU $E9
|
||||||
|
NAMEH EQU $EA
|
||||||
|
NAMEX EQU $EB
|
||||||
|
CHAR EQU $EC
|
||||||
|
DISP_PAGE EQU $ED
|
||||||
|
DRAW_PAGE EQU $EE
|
||||||
|
|
||||||
|
FIRST EQU $F0
|
||||||
|
LASTKEY EQU $F1
|
||||||
|
PADDLE_STATUS EQU $F2
|
||||||
|
XPOS EQU $F3
|
||||||
|
YPOS EQU $F4
|
||||||
|
TEMP EQU $FA
|
||||||
|
RUN EQU $FA
|
||||||
|
TEMP2 EQU $FB
|
||||||
|
TEMPY EQU $FB
|
||||||
|
INL EQU $FC
|
||||||
|
INH EQU $FD
|
||||||
|
OUTL EQU $FE
|
||||||
|
OUTH EQU $FF
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user