INTL 3:770/1 3:770/3   
   REPLYADDR lorrywoodman@gmail.com   
   REPLYTO 3:770/3.0 UUCP   
   MSGID:  56cc9714   
   PID: SoupGate-Win32 v1.05   
   Hello Everyone,   
      
   I've been trying to save some memory on the VIC-20 to a file on disk but   
   seem to be having some problems when it comes to close the file.  At the   
   moment the file saves the data properly from assembly but I have to use   
   'CLOSE 8' from basic to prevent it having an asterisk next to the name in   
   the directory entry.   
      
   I have created a piece of code which replicates the problem below if   
   anyone has any ideas where I'm going wrong I'd be very grateful.   
      
    Basic Stub   
   TOK_SYS     = $9E             ; SYS token   
      
               .byt  $01, $10    ; Load address ($1001)   
      
               * = $1001   
               .word basicEnd    ; Next Line link, here end of Basic program   
               .word 1           ; The line number for the SYS statement   
               .byt  TOK_SYS     ; SYS token   
               .asc  " "   
               .asc  "4110"      ; Start of machine language   
               .byt  0           ; End of Basic line   
   basicEnd    .word 0           ; End of Basic program   
      
    KERNEL/BASIC ROM Routines   
   CLOSE       = $FFC3   
   SAVE        = $FFD8   
   SETLFS      = $FFBA   
   SETNAM      = $FFBD   
      
      
   main   
               lda  #$07         ; Length of file name   
               ldx  #filename   ; High byte of file name location   
               jsr  SETNAM       ; Set the name   
      
               lda  #$08         ; Logical file number   
               ldx  #$08         ; Device number   
               ldy  #$01         ; Secondary address - $01 because saving   
               jsr  SETLFS       ; Set above parameters   
      
               lda  #flash      ; High byte of start of memory block to save   
               sta  $C2   
      
               lda  #$C1            ; Pointer to location of start address   
               ldx  #<(flashend+1)  ; Low byte of (end of memory block + 1)   
               ldy  #>(flashend+1)  ; High byte of (end of memory block + 1)   
               jsr  SAVE            ; Perform save   
      
               lda  #$08         ; Logical file number   
               jsr  CLOSE        ; Close the file   
      
               rts   
      
   filename    .asc "FLASH"   
      
   =================================   
    Block of memory to save   
   =================================   
   flash       lda  $900F        ; Record initial screen border/background combo   
               ldx  #$FF         ; First combo is $FF   
   setcombo    stx  $900F        ; Set screen border/background combo   
      
               ; Time delay   
               ldy  #$FF   
   delay       dey   
               bne  delay   
      
               dex               ; Next combo   
               bne  setcombo   
               sta  $900F        ; restore initial screen border/background combo   
   flashend    rts   
      
      
      
   Thanks in advance   
      
      
   Lorry   
      
   ---   
   Advanced Use of .LBR Files on CP/M   
   https://techtinkering.com/articles/advanced-use-of-lbr-files-on-cpm/   
   --- SoupGate-Win32 v1.05   
    * Origin: Agency HUB, Dunedin - New Zealand | Fido<>Usenet Gateway (3:770/3)   
   SEEN-BY: 1/123 14/0 18/200 90/1 105/81 120/340 123/131 129/305 226/30   
   SEEN-BY: 227/114 229/424 426 428 700 1016 1017 240/5832 249/1 206   
   SEEN-BY: 249/317 400 261/38 282/1038 298/25 26 301/1 317/3 322/757   
   SEEN-BY: 342/200   
   PATH: 770/3 1 153/757 221/6 301/1 229/426 317/3 298/25 14/0 229/426