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
 

rom/init.s

@@ -7,6 +7,8 @@ PR_WRITTEN_BY:
       jsr     STROUT
 
 COLD_START:
+      lda     #$00
+      sta     CURDVC
       ldx     #$FF
       stx     CURLIN+1
       ldx     #$FB

rom/zeropage.s

@@ -149,11 +149,11 @@ SGNCPR = STRNG1
 FACEXTENSION = STRNG1+1
 STRNG2:
 	.res 2
+CURDVC:
+	.res 1
+FILE_NAME_BUFFER = $0300
 CHRGET:
 TXTPTR = <(GENERIC_TXTPTR-GENERIC_CHRGET + CHRGET)
 CHRGOT = <(GENERIC_CHRGOT-GENERIC_CHRGET + CHRGET)
 CHRGOT2 = <(GENERIC_CHRGOT2-GENERIC_CHRGET + CHRGET)
-RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET)
-CURDVC:
-	.res 1
-FILE_NAME_BUFFER = $0300
+RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET)