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;
 }