Fixed Open/Close

rom/extra.s

@@ -29,6 +29,7 @@ CHRIN:
         lda IO_KBD
         bmi @end
         jsr CHROUT ; echo
+        rts
 @file:
         lda IO_COMMAND_READ
         sta IO_FILE_COMMAND
@@ -41,11 +42,14 @@ CHRIN:
         rts
 
 CHROUT:
+        pha
         lda CURDVC
         bne @file
+        pla
         sta IO_SCREEN
         rts
 @file:
+        pla
         sta IO_FILE_DATA
         lda IO_COMMAND_WRITE
         sta IO_FILE_COMMAND
@@ -84,15 +88,28 @@ OPEN:
         lda IO_FILE_STATUS
         and #FILE_STATUS_READY
         beq @wait
-        lda #FILE_STATUS_READY
-        and #$01
+        lda IO_FILE_STATUS
+        and #FILE_STATUS_ERROR
         bne @error
         rts
 @error:
-        jmp     IQERR
+        jmp IQERR
 
 CLOSE:
+        jsr GETBYT
+        stx IO_FILE_DESCRIPTOR
+        lda #IO_COMMAND_CLOSE
+        sta IO_FILE_COMMAND
+@wait:
+        lda IO_FILE_STATUS
+        and #FILE_STATUS_READY
+        beq @wait
+       lda IO_FILE_STATUS
+        and #FILE_STATUS_ERROR
+        bne @error
         rts
+@error:
+        jmp IQERR
 
 ; Default