I/O fixed and tested

rom/extra.s

@@ -22,6 +22,8 @@ CHRIN:
         bne @file
         lda IO_KBD
         bmi @end
+        cmp #LF
+        beq @end
         jsr CHROUT ; echo
         rts
 @file:
@@ -54,6 +56,7 @@ CHROUT:
         sta IO_FILE_DESCRIPTOR
         pla
         sta IO_FILE_DATA
+        pha
         lda #IO_COMMAND_WRITE
         sta IO_FILE_COMMAND
 @wait:
@@ -62,10 +65,12 @@ CHROUT:
         beq @wait
         lda IO_FILE_STATUS
         and #FILE_STATUS_ERROR
-        beq :+
-        jmp IQERR
-:
+        bne @error
+        pla
         rts
+@error:
+        pla
+        jmp IQERR
 
 OPEN:
         jsr GETBYT
@@ -132,9 +137,10 @@ CLOSE:
         lda IO_FILE_STATUS
         and #FILE_STATUS_READY
         beq @wait
-       lda IO_FILE_STATUS
+        lda IO_FILE_STATUS
         and #FILE_STATUS_ERROR
         bne @error
+        jsr CLRCH
         rts
 @error:
         jmp IQERR