diff --git a/6.out b/6.out deleted file mode 100755 index d104972..0000000 Binary files a/6.out and /dev/null differ diff --git a/a.out b/a.out deleted file mode 100644 index 64791c5..0000000 Binary files a/a.out and /dev/null differ diff --git a/cpu.6 b/cpu.6 deleted file mode 100644 index 361a8cb..0000000 Binary files a/cpu.6 and /dev/null differ diff --git a/fns.h b/fns.h index 72fa083..15c502e 100644 --- a/fns.h +++ b/fns.h @@ -8,6 +8,3 @@ extern u8int pop8(void); extern u16int pop16(void); extern u8int fetch8(void); extern u16int fetch16(void); - -extern void in(void*); -extern void out(void*); diff --git a/in.6 b/in.6 deleted file mode 100644 index 630b7d5..0000000 Binary files a/in.6 and /dev/null differ diff --git a/in.c b/in.c deleted file mode 100644 index e6d6a34..0000000 --- a/in.c +++ /dev/null @@ -1,22 +0,0 @@ -#include -#include -#include -#include "dat.h" -#include "fns.h" - -void -in(void*) -{ - int c; - - for(;;){ - if(memread(0x7005) == 1){ - memwrite(0x7004, 1); - read(0, &c, 1); - c = toupper(c); - memwrite(0x7003, c); - memwrite(0x7004, 0); - memwrite(0x7005, 0); - } - } -} diff --git a/main.6 b/main.6 deleted file mode 100644 index 9df8dad..0000000 Binary files a/main.6 and /dev/null differ diff --git a/main.c b/main.c index 9244fa4..c6314e5 100644 --- a/main.c +++ b/main.c @@ -1,6 +1,5 @@ #include #include -#include #include "dat.h" #include "fns.h" @@ -36,7 +35,7 @@ openprog(char *f) } void -threadmain(int argc, char **argv) +main(int argc, char **argv) { int c; vlong t, t2, t3; @@ -65,8 +64,6 @@ threadmain(int argc, char **argv) rP = 0x34; pc = 0xFFFC; pc = fetch16(); - threadcreate(in, nil, mainstacksize); - threadcreate(out, nil, mainstacksize); for(;;){ c = step(); while(c >= 0){ diff --git a/mem.6 b/mem.6 deleted file mode 100644 index 9015a8e..0000000 Binary files a/mem.6 and /dev/null differ diff --git a/mkfile b/mkfile index 24a7edd..2b5dafa 100755 --- a/mkfile +++ b/mkfile @@ -3,7 +3,7 @@ BIN=/$objtype/bin TARG=scemu -OFILES=main.$O cpu.$O mem.$O in.$O out.$O +OFILES=main.$O cpu.$O mem.$O UPDATE=mkfile prog.s ${OFILES:%.$O=%.c} default:V: $O.out diff --git a/out.6 b/out.6 deleted file mode 100644 index de3077d..0000000 Binary files a/out.6 and /dev/null differ diff --git a/out.c b/out.c deleted file mode 100644 index 8f9489c..0000000 --- a/out.c +++ /dev/null @@ -1,19 +0,0 @@ -#include -#include -#include "dat.h" -#include "fns.h" - -void -out(void*) -{ - int c; - - for(;;) - if(memread(0x7002) == 1){ /* ready to be fiddled */ - memwrite(0x7001, 1); /* we are busy */ - c = memread(0x7000); - print("%c", c); - memwrite(0x7002, 0); - memwrite(0x7001, 0); - } -} diff --git a/test.s b/test.s deleted file mode 100644 index caeddbe..0000000 --- a/test.s +++ /dev/null @@ -1,24 +0,0 @@ - .org $8000 -reset: - lda #$01 - sta $7005 -loop: - lda $7004 - bne loop - lda $7003 - sta $7000 - lda #$01 - sta $7002 -waiting: - nop - nop - nop - nop - lda $7001 - bne waiting - .byte $ff - - .org $fffa - .word $8000 - .word $8000 - .word $8000 diff --git a/wozmon.s b/wozmon.s deleted file mode 100644 index 789e0ed..0000000 --- a/wozmon.s +++ /dev/null @@ -1,97 +0,0 @@ -xaml = $24 -xamh = $25 -l = $28 -h = $29 -ysav = $2a -mode = $2b -asav = $2c -curchar = $2d - - .org $fe00 -reset: - cld - cli - lda #$03 -notcr: - cmp #$03 ; is etx, subst. for esc - beq escape - iny - bpl nextchar -escape: - lda #$5c - jsr echo -getline: - lda #$0a - jsr echo -setstor: - asl -setmode: - sta mode -blskip: -nextchar: - ldy #1 - sty $7005 -nextcharl: - lda $7004 ; have next char? - beq nextcharl - lda $7003 - sta curchar - cmp #$2e ; . - bcc blskip - beq setmode - cmp #$3a ; : - beq setstor - cmp #$52 ; R - beq run - stx l - stx h - sty ysav -nexthex: - lda curchar - eor #$b0 - cmp #$0a - bcc dig - adc #$b9 - cmp #$fa - bcc nothex -dig: - asl - asl - asl - asl - ldx #$04 -hexshift: - asl - rol l - rol h - dex - bne hexshift - bne nexthex -nothex: - cpy ysav - beq escape - bit mode - jmp nextchar -run: - jmp (xaml) -echo: - sta asav - txa - pha - lda asav - tax -echol: - lda $7001 - cmp #$01 - beq echol - stx $7000 - lda #$01 - sta $7002 - pla - tax - rts - - .org $fffa - .word $f000 - .word reset - .word $0000