INTL 3:770/1 3:770/3   
   REPLYADDR 0xcafe@directbox.com   
   REPLYTO 3:770/3.0 UUCP   
   MSGID: 594eb841   
   REPLY: 56cc9714   
   PID: SoupGate-Win32 v1.05   
   Lawrence Woodman wrote:   
   > 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 # 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.   
      
   > 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.   
      
   > jsr SAVE ; Perform save   
      
   > lda #$08 ; Logical file number   
   > jsr CLOSE ; Close the file   
      
   Looks good to me. Perhaps it will work with the first mentioned change?   
      
   Best regards,   
   Tilmann.   
   --- 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   
      
|