Mercurial > hg > Members > kono > os9 > sbc09
changeset 108:014002970940
getc worked
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 30 Dec 2018 08:27:58 +0900 |
parents | c5dd5c363d43 |
children | 613615c9b946 |
files | os9/level1/pty-dd.asm os9/mc09/mclibos9.c |
diffstat | 2 files changed, 13 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/os9/level1/pty-dd.asm Sat Dec 29 23:05:40 2018 +0900 +++ b/os9/level1/pty-dd.asm Sun Dec 30 08:27:58 2018 +0900 @@ -28,8 +28,8 @@ fcb $8 backspace fcb $18 delete line char fcb $0D end of record - fcb $1b eof - fcb $04 reprint line char + fcb $04 eof cntl d + fcb $12 reprint line char fcb $01 duplicate last line char fcb $17 pause char fcb $03 interrupt char
--- a/os9/mc09/mclibos9.c Sat Dec 29 23:05:40 2018 +0900 +++ b/os9/mc09/mclibos9.c Sun Dec 30 08:27:58 2018 +0900 @@ -76,7 +76,7 @@ if (i==1) *q = *p; q++; p++; } - if (i==1) { *q = 0; argv[++n] = q+1; } + if (i==1&&p!=args) { *q = 0; argv[++n] = q+1; } argc = n; } argv[n]=0; @@ -233,18 +233,18 @@ { int c; #asm - pshs d,x,y,u - ldx 2,u + pshs y + ldx 4,u lda 1,x file descriptor - leax 1,S - clr ,s + leax -1,u + clr -2,u ldy #1 os9 I$Read bcc _LC0005 ldd #-1 - std ,s + std -2,u _LC0005 - puls d,x,y,u + puls y #endasm } @@ -253,13 +253,13 @@ { int ret; #asm - pshs d,x,y,u - ldx 4,u + pshs y + ldx 6,u lda 1,x file descriptor - leax 3,u + leax 5,u ldy #1 os9 I$Write - puls d,x,y,u + puls y #endasm return c; }