1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-02 06:30:55 +11:00

Compare commits

..

2 Commits

Author SHA1 Message Date
Virgil Dupras
02e6979a46 emul: implement AT-XY
VI, here we come!
2020-05-23 20:15:28 -04:00
Virgil Dupras
05ca95e759 emul: make updatebootstrap two-stepped
Writing directly to forth.bin seems to cause problems in some
environments such as Travis CI.
2020-05-23 19:35:36 -04:00
4 changed files with 20 additions and 1 deletions

View File

@ -31,7 +31,8 @@ emul.o: emul.c
.PHONY: updatebootstrap .PHONY: updatebootstrap
updatebootstrap: stage xcomp.fs pack updatebootstrap: stage xcomp.fs pack
./stage < xcomp.fs | tee forth.bin > /dev/null ./stage < xcomp.fs > new.bin
mv new.bin forth.bin
.PHONY: pack .PHONY: pack
pack: pack:

Binary file not shown.

View File

@ -17,6 +17,8 @@
// read 1024 bytes from the DATA port. // read 1024 bytes from the DATA port.
#define BLK_PORT 0x03 #define BLK_PORT 0x03
#define BLKDATA_PORT 0x04 #define BLKDATA_PORT 0x04
#define SETX_PORT 0x05
#define SETY_PORT 0x06
static FILE *fp; static FILE *fp;
static int retcode = 0; static int retcode = 0;
@ -64,6 +66,18 @@ static void iowr_ret(uint8_t val)
retcode = val; retcode = val;
} }
static void iowr_setx(uint8_t val)
{
int y, x; getyx(w, y, x);
wmove(w, y, val);
}
static void iowr_sety(uint8_t val)
{
int y, x; getyx(w, y, x);
wmove(w, val, x);
}
int main(int argc, char *argv[]) int main(int argc, char *argv[])
{ {
Machine *m = emul_init(); Machine *m = emul_init();
@ -74,6 +88,8 @@ int main(int argc, char *argv[])
m->iord[STDIO_PORT] = iord_stdio; m->iord[STDIO_PORT] = iord_stdio;
m->iowr[STDIO_PORT] = iowr_stdio; m->iowr[STDIO_PORT] = iowr_stdio;
m->iowr[RET_PORT] = iowr_ret; m->iowr[RET_PORT] = iowr_ret;
m->iowr[SETX_PORT] = iowr_setx;
m->iowr[SETY_PORT] = iowr_sety;
w = NULL; w = NULL;
if (argc == 2) { if (argc == 2) {
fp = fopen(argv[1], "r"); fp = fopen(argv[1], "r");

View File

@ -22,6 +22,8 @@
BLK( I + C@ 4 PC! BLK( I + C@ 4 PC!
LOOP LOOP
; ;
: COLS 80 ; : LINES 32 ;
: AT-XY 6 PC! ( y ) 5 PC! ( x ) ;
380 LOAD ( xcomp core high ) 380 LOAD ( xcomp core high )
(entry) _ (entry) _