|    CBM    |    Commodore Computer Conference    |    4,328 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 3,456 of 4,328    |
|    Silver Dream ! to Tilmann Hentze    |
|    Re: Closing a file in Assembly on the VI    |
|    30 Jun 21 10:49:10    |
   
   INTL 3:770/1 3:770/3   
   REPLYADDR silverdr@nospam.net   
   REPLYTO 3:770/3.0 UUCP   
   MSGID: 72638bd7   
   REPLY: 594eb841   
   PID: SoupGate-Win32 v1.05   
   On 17.06.2021 13:29, Tilmann Hentze wrote:   
      
   >> main   
   >> lda #$07 ; Length of file name   
   >> ldx #> ldy #>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   
   >   
   > I'd switch the two previous blocks around, so that you first set up the   
   > channel and then set the file name.   
      
   Shouldn't make any difference. The order of the two preparatory calls is   
   interchangeable.   
      
   >> lda #> sta $C1   
   >> 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)   
   >   
   > The high byte should probaly only increment, when the low byte is $ff.   
      
   I am not sure what are you trying to say here. This takes LO/HI bytes of   
   an address. Assembler takes care of both being correct.   
      
   >   
   >> jsr SAVE ; Perform save   
   >   
   >> lda #$08 ; Logical file number   
   >> jsr CLOSE ; Close the file   
      
   One needs to CLOSE() (or CLALL() in some cases) files that were   
   previously OPEN(). Not needed for SAVE().   
      
   > Looks good to me.   
      
   LGTM too.   
   --- 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 103/705 105/81 106/127 120/340 123/131   
   SEEN-BY: 129/305 134/100 153/105 135 250 757 802 6809 154/10 218/700   
   SEEN-BY: 220/70 221/1 6 226/17 30 227/114 229/101 424 426 428 700   
   SEEN-BY: 229/1016 1017 240/1120 5832 249/1 206 317 400 261/38 267/800   
   SEEN-BY: 282/1038 301/1 113 317/3 322/757 335/364 340/1000 342/200   
   SEEN-BY: 633/280 712/848 770/1 3 100 340 772/210 220 230 920/1 4500/1   
   SEEN-BY: 5058/104   
   PATH: 770/3 1 153/757 221/6 301/1 229/426   
      
|
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca