Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-24 13:32:23 +00:00
Code Issues Projects Releases Wiki Activity

gr-sim: text output seems to be working

Browse Source
This commit is contained in:
Vince Weaver 2017-05-17 23:25:07 -04:00
parent 2d72678f04
commit c98fbb22e1
4 changed files with 862 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

732
gr-sim/apple2_font.h
View File

@ -59,10 +59,10 @@ unsigned char a2_font[256][7]={
0x10, // 10000 0x10, // 10000
0x10, // 10000 0x10, // 10000
}, // F }, // F
{0x1e, // 01111 {0x0f, // 01111
0x10, // 10000
0x10, // 10000 0x10, // 10000
0x10, // 10000 0x10, // 10000
0x1e, // 10000
0x13, // 10011 0x13, // 10011
0x11, // 10001 0x11, // 10001
0x0f, // 01111 0x0f, // 01111
@ -131,57 +131,393 @@ unsigned char a2_font[256][7]={
0x11, // 10001 0x11, // 10001
0x0e, // 01110 0x0e, // 01110
}, // O }, // O
{}, // P {0x1e, // 11110
{}, // Q 0x11, // 10001
{}, // R 0x11, // 10001
{}, // S 0x1e, // 11110
{}, // T 0x10, // 10000
{}, // U 0x10, // 10000
{}, // V 0x10, // 10000
{}, // W }, // P
{}, // X {0x0e, // 01110
{}, // Y 0x11, // 10001
{}, // Z 0x11, // 10001
{}, // [ 0x11, // 10001
{}, // \. 0x15, // 10101
{}, // ] 0x12, // 10010
{}, // ^ 0x0d, // 01101
{}, // _ }, // Q
{0x1e, // 11110
0x11, // 10001
0x11, // 10001
0x1e, // 11110
0x14, // 10100
0x12, // 10010
0x11, // 10001
}, // R
{0x0e, // 01110
0x11, // 10001
0x10, // 10000
0x0e, // 01110
0x01, // 00001
0x11, // 10001
0x0e, // 01110
}, // S
{0x1f, // 11111
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
}, // T
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x0e, // 01110
}, // U
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
}, // V
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x15, // 10101
0x15, // 10101
0x1b, // 11011
0x11, // 10001
}, // W
{0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
0x0a, // 01010
0x11, // 10001
0x11, // 10001
}, // X
{0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
}, // Y
{0x1f, // 11111
0x01, // 00001
0x02, // 00010
0x04, // 00100
0x08, // 01000
0x10, // 10000
0x1f, // 11111
}, // Z
{0x1f, // 11111
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x1f, // 11111
}, // [
{0x00, // 00000
0x10, // 10000
0x08, // 01000
0x04, // 00100
0x02, // 00010
0x01, // 00001
0x00, // 00000
}, // \.
{0x1f, // 11111
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x1f, // 11111
}, // ]
{0x00, // 00000
0x00, // 00000
0x04, // 00100
0x0a, // 01010
0x11, // 10001
0x00, // 00000
0x00, // 00000
}, // ^
{0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x1f, // 11111
}, // _
/* Non-control chars */ /* Non-control chars */
{}, // {0x00, // 00000
{}, // ! 0x00, // 00000
{}, // " 0x00, // 00000
{}, // # 0x00, // 00000
{}, // $ 0x00, // 00000
{}, // % 0x00, // 00000
{}, // & 0x00, // 00000
{}, // ' }, // ' '
{}, // ( {0x04, // 00100
{}, // ) 0x04, // 00100
{}, // * 0x04, // 00100
{}, // + 0x04, // 00100
{}, // , 0x04, // 00100
{}, // - 0x00, // 00000
{}, // . 0x04, // 00100
{}, // / }, // !
{}, // 0 {0x0a, // 01010
{}, // 1 0x0a, // 01010
{}, // 2 0x0a, // 01010
{}, // 3 0x00, // 00000
{}, // 4 0x00, // 00000
{}, // 5 0x00, // 00000
{}, // 6 0x00, // 00000
{}, // 7 }, // "
{}, // 8 {0x0a, // 01010
{}, // 9 0x0a, // 01010
{}, // : 0x1f, // 11111
{}, // ; 0x0a, // 01010
{}, // < 0x1f, // 11111
{}, // = 0x0a, // 01010
{}, // > 0x0a, // 01010
{}, // ? }, // #
{0x04, // 00100
0x0f, // 01111
0x14, // 10100
0x0e, // 01110
0x05, // 00101
0x1e, // 11110
0x04, // 00100
}, // $
{0x18, // 11000
0x19, // 11001
0x02, // 00010
0x04, // 00100
0x08, // 01000
0x13, // 10011
0x03, // 00011
}, // %
{0x08, // 01000
0x14, // 10100
0x14, // 10100
0x08, // 01000
0x15, // 10101
0x12, // 10010
0x0d, // 01101
}, // &
{0x04, // 00100
0x04, // 00100
0x04, // 00100
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
}, // '
{0x04, // 00100
0x08, // 01000
0x10, // 10000
0x10, // 10000
0x10, // 10000
0x08, // 01000
0x04, // 00100
}, // (
{0x04, // 00100
0x02, // 00010
0x01, // 00001
0x01, // 00001
0x01, // 00001
0x02, // 00010
0x04, // 00100
}, // )
{0x04, // 00100
0x15, // 10101
0x0e, // 01110
0x04, // 00100
0x0e, // 01110
0x15, // 10101
0x04, // 00100
}, // *
{0x00, // 00000
0x04, // 00100
0x04, // 00100
0x1f, // 11111
0x04, // 00100
0x04, // 00100
0x00, // 00000
}, // +
{0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x04, // 00100
0x04, // 00100
0x08, // 01000
}, // ,
{0x00, // 00000
0x00, // 00000
0x00, // 00000
0x1f, // 11111
0x00, // 00000
0x00, // 00000
0x00, // 01000
}, // -
{0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x04, // 00100
}, // .
{0x00, // 00000
0x01, // 00001
0x02, // 00010
0x04, // 00100
0x08, // 01000
0x10, // 10000
0x00, // 00100
}, // /
{0x0e, // 01110
0x11, // 10001
0x13, // 10011
0x15, // 10101
0x19, // 11001
0x11, // 10001
0x0e, // 01110
}, // 0
{0x04, // 00100
0x0c, // 01100
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x0e, // 01110
}, // 1
{0x0e, // 01110
0x11, // 10001
0x01, // 00001
0x06, // 00110
0x08, // 01000
0x10, // 10000
0x1f, // 11111
}, // 2
{0x1f, // 11111
0x01, // 00001
0x02, // 00010
0x06, // 00110
0x01, // 00001
0x11, // 10001
0x0e, // 01110
}, // 3
{0x02, // 00010
0x06, // 00110
0x0a, // 01010
0x12, // 10010
0x1f, // 11111
0x02, // 00010
0x02, // 00010
}, // 4
{0x1f, // 11111
0x10, // 10000
0x1e, // 11110
0x01, // 00001
0x01, // 00001
0x11, // 10001
0x0e, // 01110
}, // 5
{0x07, // 00111
0x08, // 01000
0x10, // 10000
0x1e, // 11110
0x11, // 10001
0x11, // 10001
0x0e, // 01110
}, // 6
{0x1f, // 11111
0x01, // 00001
0x02, // 00010
0x04, // 00100
0x08, // 01000
0x08, // 01000
0x08, // 01000
}, // 7
{0x0e, // 01110
0x11, // 10001
0x11, // 10001
0x0e, // 01110
0x11, // 10001
0x11, // 10001
0x0e, // 01110
}, // 8
{0x0e, // 01110
0x11, // 10001
0x11, // 10001
0x0f, // 01111
0x01, // 00001
0x02, // 00010
0x1c, // 11100
}, // 9
{0x00, // 00000
0x00, // 00000
0x04, // 00100
0x00, // 00000
0x04, // 00100
0x00, // 00000
0x00, // 00000
}, // :
{0x00, // 00000
0x00, // 00000
0x04, // 00100
0x00, // 00000
0x04, // 00100
0x04, // 00100
0x08, // 01000
}, // ;
{0x02, // 00010
0x04, // 00100
0x08, // 01000
0x10, // 10000
0x08, // 01000
0x04, // 00100
0x02, // 00010
}, // <
{0x00, // 00000
0x00, // 00000
0x1f, // 11111
0x00, // 00000
0x1f, // 11111
0x00, // 00000
0x00, // 00000
}, // =
{0x08, // 01000
0x04, // 00100
0x02, // 00010
0x01, // 00001
0x02, // 00010
0x04, // 00100
0x08, // 01000
}, // >
{0x0e, // 01110
0x11, // 10001
0x02, // 00010
0x04, // 00100
0x04, // 00100
0x00, // 00000
0x04, // 00100
}, // ?
{0x0e, // 01110 {0x0e, // 01110
0x11, // 10001 0x11, // 10001
0x15, // 10101 0x15, // 10101
@ -238,10 +574,10 @@ unsigned char a2_font[256][7]={
0x10, // 10000 0x10, // 10000
0x10, // 10000 0x10, // 10000
}, // F }, // F
{0x1e, // 01111 {0x0f, // 01111
0x10, // 10000
0x10, // 10000 0x10, // 10000
0x10, // 10000 0x10, // 10000
0x1e, // 10000
0x13, // 10011 0x13, // 10011
0x11, // 10001 0x11, // 10001
0x0f, // 01111 0x0f, // 01111
@ -310,22 +646,134 @@ unsigned char a2_font[256][7]={
0x11, // 10001 0x11, // 10001
0x0e, // 01110 0x0e, // 01110
}, // O }, // O
{}, // P {0x1e, // 11110
{}, // Q 0x11, // 10001
{}, // R 0x11, // 10001
{}, // S 0x1e, // 11110
{}, // T 0x10, // 10000
{}, // U 0x10, // 10000
{}, // V 0x10, // 10000
{}, // W }, // P
{}, // X {0x0e, // 01110
{}, // Y 0x11, // 10001
{}, // Z 0x11, // 10001
{}, // [ 0x11, // 10001
{}, // \. 0x15, // 10101
{}, // ] 0x12, // 10010
{}, // ^ 0x0d, // 01101
{}, // _ }, // Q
{0x1e, // 11110
0x11, // 10001
0x11, // 10001
0x1e, // 11110
0x14, // 10100
0x12, // 10010
0x11, // 10001
}, // R
{0x0e, // 01110
0x11, // 10001
0x10, // 10000
0x0e, // 01110
0x01, // 00001
0x11, // 10001
0x0e, // 01110
}, // S
{0x1f, // 11111
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
}, // T
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x0e, // 01110
}, // U
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
}, // V
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x15, // 10101
0x15, // 10101
0x1b, // 11011
0x11, // 10001
}, // W
{0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
0x0a, // 01010
0x11, // 10001
0x11, // 10001
}, // X
{0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
}, // Y
{0x1f, // 11111
0x01, // 00001
0x02, // 00010
0x04, // 00100
0x08, // 01000
0x10, // 10000
0x1f, // 11111
}, // Z
{0x1f, // 11111
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x1f, // 11111
}, // [
{0x00, // 00000
0x10, // 10000
0x08, // 01000
0x04, // 00100
0x02, // 00010
0x01, // 00001
0x00, // 00000
}, // \.
{0x1f, // 11111
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x1f, // 11111
}, // ]
{0x00, // 00000
0x00, // 00000
0x04, // 00100
0x0a, // 01010
0x11, // 10001
0x00, // 00000
0x00, // 00000
}, // ^
{0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x1f, // 11111
}, // _
/* Lowercase */ /* Lowercase */
@ -385,10 +833,10 @@ unsigned char a2_font[256][7]={
0x10, // 10000 0x10, // 10000
0x10, // 10000 0x10, // 10000
}, // F }, // F
{0x1e, // 01111 {0x0f, // 01111
0x10, // 10000
0x10, // 10000 0x10, // 10000
0x10, // 10000 0x10, // 10000
0x1e, // 10000
0x13, // 10011 0x13, // 10011
0x11, // 10001 0x11, // 10001
0x0f, // 01111 0x0f, // 01111
@ -457,21 +905,133 @@ unsigned char a2_font[256][7]={
0x11, // 10001 0x11, // 10001
0x0e, // 01110 0x0e, // 01110
}, // O }, // O
{}, // P {0x1e, // 11110
{}, // Q 0x11, // 10001
{}, // R 0x11, // 10001
{}, // S 0x1e, // 11110
{}, // T 0x10, // 10000
{}, // U 0x10, // 10000
{}, // V 0x10, // 10000
{}, // W }, // P
{}, // X {0x0e, // 01110
{}, // Y 0x11, // 10001
{}, // Z 0x11, // 10001
{}, // [ 0x11, // 10001
{}, // \. 0x15, // 10101
{}, // ] 0x12, // 10010
{}, // ^ 0x0d, // 01101
{}, // _ }, // Q
{0x1e, // 11110
0x11, // 10001
0x11, // 10001
0x1e, // 11110
0x14, // 10100
0x12, // 10010
0x11, // 10001
}, // R
{0x0e, // 01110
0x11, // 10001
0x10, // 10000
0x0e, // 01110
0x01, // 00001
0x11, // 10001
0x0e, // 01110
}, // S
{0x1f, // 11111
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
}, // T
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x0e, // 01110
}, // U
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
}, // V
{0x11, // 10001
0x11, // 10001
0x11, // 10001
0x15, // 10101
0x15, // 10101
0x1b, // 11011
0x11, // 10001
}, // W
{0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
0x0a, // 01010
0x11, // 10001
0x11, // 10001
}, // X
{0x11, // 10001
0x11, // 10001
0x0a, // 01010
0x04, // 00100
0x04, // 00100
0x04, // 00100
0x04, // 00100
}, // Y
{0x1f, // 11111
0x01, // 00001
0x02, // 00010
0x04, // 00100
0x08, // 01000
0x10, // 10000
0x1f, // 11111
}, // Z
{0x1f, // 11111
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x18, // 11000
0x1f, // 11111
}, // [
{0x00, // 00000
0x10, // 10000
0x08, // 01000
0x04, // 00100
0x02, // 00010
0x01, // 00001
0x00, // 00000
}, // \.
{0x1f, // 11111
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x03, // 00011
0x1f, // 11111
}, // ]
{0x00, // 00000
0x00, // 00000
0x04, // 00100
0x0a, // 01010
0x11, // 10001
0x00, // 00000
0x00, // 00000
}, // ^
{0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x00, // 00000
0x1f, // 11111
}, // _
}; };

220
gr-sim/gr-sim.c
View File

@ -44,10 +44,17 @@ unsigned char a,y,x;
#define GBASH 0x27 #define GBASH 0x27
#define BASL 0x28 #define BASL 0x28
#define BASH 0x29 #define BASH 0x29
#define BAS2L 0x2A
#define BAS2H 0x2B
#define H2 0x2C #define H2 0x2C
#define V2 0x2D #define V2 0x2D
#define MASK 0x2E #define MASK 0x2E
#define COLOR 0x30 #define COLOR 0x30
#define INVFLG 0x32
#define YSAV 0x34
#define YSAV1 0x35
#define CSWL 0x36
#define CSWH 0x37
#define FIRST 0xF0 #define FIRST 0xF0
#define SPEEDZ 0xF1 #define SPEEDZ 0xF1
#define FLASH 0xF3 #define FLASH 0xF3
@ -268,9 +275,9 @@ int grsim_update(void) {
/* FIXME: handle page2 */ /* FIXME: handle page2 */
if (j>12) bit_set=0; if (j>13) bit_set=0;
else if (i>10) bit_set=0; else if (i>11) bit_set=0;
else bit_set=(a2_font[ch][j/2])&(1<<(i/2)); else bit_set=(a2_font[ch][j/2])&(1<<(5-(i/2)));
if (inverse) { if (inverse) {
if (bit_set) *t_pointer=color[0]; if (bit_set) *t_pointer=color[0];
@ -310,6 +317,13 @@ int grsim_update(void) {
} }
void setnorm(void) {
y=0xff;
ram[INVFLG]=y;
}
int grsim_init(void) { int grsim_init(void) {
int mode; int mode;
@ -346,6 +360,10 @@ int grsim_init(void) {
a=0; y=0; x=0; a=0; y=0; x=0;
//FA62 RESET
setnorm();
return 0; return 0;
} }
@ -508,7 +526,21 @@ clrsc3:
ram[COLOR]=a; ram[COLOR]=a;
vline(); vline();
y--; y--;
if (y>0) goto clrsc3; if (y<=0x80) goto clrsc3;
}
static void setgr(void) {
// FB40
// SETGR
soft_switch(TXTCLR); // LDA TXTCLR
soft_switch(MIXSET); // LDA MIXSET
clrtop();
a=0x14;
setwnd();
} }
int gr(void) { int gr(void) {
@ -518,14 +550,7 @@ int gr(void) {
soft_switch(MIXSET); // LDA SW.MIXSET soft_switch(MIXSET); // LDA SW.MIXSET
//JMP MON.SETGR //JMP MON.SETGR
// FB40 setgr();
soft_switch(TXTCLR); // LDA TXTCLR
soft_switch(MIXSET); // LDA MIXSET
clrtop();
a=0x14;
setwnd();
return 0; return 0;
} }
@ -785,8 +810,176 @@ int text(void) {
return 0; return 0;
} }
static void scroll(void) {
unsigned char s;
// fc70
a=ram[WNDTOP];
s=a;
vtabz();
// SCRL1
scrl1:
a=ram[BASL];
ram[BAS2L]=a;
a=ram[BASH];
ram[BAS2H]=a;
y=ram[WNDWDTH];
y--;
a=s;
a+=1;
if (a>=ram[WNDBTM]) {
// SCRL3
y=0;
cleolz();
vtab();
return;
}
s=a;
vtabz();
// SCRL2
scrl2:
a=ram[y_indirect(BASL,y)];
ram[y_indirect(BAS2L,y)]=a;
y--;
if (y<0x80) goto scrl2;
goto scrl1;
}
static void lf(void) {
ram[CV]=ram[CV]+1;
a=ram[CV];
if (a<ram[WNDBTM]) {
vtabz();
return;
}
ram[CV]=ram[CV]-1;
scroll();
}
static void cr(void) {
a=0x00;
ram[CH]=a;
lf();
}
static void bell1(void) {
}
static void up(void) {
a=ram[WNDTOP];
if (a>ram[CV]) return;
ram[CV]=ram[CV]-1;
vtab();
}
static void bs(void) {
ram[CH]=ram[CH]-1;
/* still positive */
if (ram[CH]<0x80) return;
a=ram[WNDWDTH];
ram[CH]=a;
ram[CH]=ram[CH]-1;
up();
}
static void storadv(void) {
// fbf0
y=ram[CH];
ram[y_indirect(BASL,y)]=a;
// advance
ram[CH]=ram[CH]+1;
a=ram[CH];
if (a>=ram[WNDWDTH]) {
cr();
}
}
static void vidout(void) {
// fbfd
if (a>=0xa0) {
storadv();
return;
}
/* Control Characters */
y=a;
// if bit 7 is set then we set negative flag
// BPL storadv
if (a<0x80) {
storadv();
return;
}
/* carriage return */
if (a==0x8d) {
cr();
return;
}
/* linefeed */
if (a==0x8a) {
lf();
return;
}
/* backspace */
if (a==0x88) {
bs();
return;
}
/* any other control code, beep */
bell1();
return;
}
static void vidwait(void) {
// check if control-S being pressed
vidout();
}
static void cout1(void) {
unsigned char s;
if (a<0xa0) {
}
else {
a=a&ram[INVFLG];
}
// coutz
ram[YSAV1]=y;
s=a;
vidwait();
a=s;
y=ram[YSAV1];
}
static void cout(void) { static void cout(void) {
// FDED // FDED
// jmp (cswl) custom handler
cout1();
} }
static void wait(void) { static void wait(void) {
@ -837,12 +1030,11 @@ void basic_htab(int xpos) {
} }
ram[CH]=a; // STA MON.CH ram[CH]=a; // STA MON.CH
// KRW for the win! // KRW for the win!
} }
void basic_vtab(int y) { void basic_vtab(int ypos) {
} }

10
gr-sim/text.c
View File

@ -6,7 +6,8 @@
int main(int argc, char **argv) { int main(int argc, char **argv) {
int x,y,ch; int x,y,ch,i;
char output[BUFSIZ];
grsim_init(); grsim_init();
@ -20,7 +21,12 @@ int main(int argc, char **argv) {
basic_vtab(10); basic_vtab(10);
basic_print("HELLO WORLD!\n"); basic_print("HELLO WORLD!\r\r");
for(i=0;i<128;i++) {
sprintf(output,"%c",i);
basic_print(output);
}
while(1) { while(1) {
grsim_update(); grsim_update();

2
tfv/tfv.s
View File

@ -465,6 +465,8 @@ put_sprite_pixel:
cmp #$0 ; if all zero, transparent cmp #$0 ; if all zero, transparent
beq put_sprite_done_draw ; don't draw it beq put_sprite_done_draw ; don't draw it
; FIXME: use BIT?
sta COLOR ; save color for later sta COLOR ; save color for later
and #$f0 ; check if top nibble zero and #$f0 ; check if top nibble zero
bne put_sprite_bottom ; if not skip ahead bne put_sprite_bottom ; if not skip ahead