home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / load-routine < prev    next >
Text File  |  2022-10-26  |  1KB  |  48 lines
  1. :lade   = $ffd5 ;load routine
  2. :sicher = $ffd8 ;save routine
  3. :filset = $ffba ;fileparameter setzen
  4. :filnam = $ffbd ;filenamenpar. setzen
  5. :beglb  = $00fb ;startadr lowbyte
  6. :beghb  = $00fc ;startadr highbyte
  7. :namlb  = $00bb ;adresse des filenamens
  8. :namhb  = $00bc ;high und lowbyte
  9. :leng   = $00b7 ;laenge des filenamens
  10. :zwsp   = $9f00 ;hier muss der filename
  11.                 ;stehen
  12. :stat   = $0090 ;statusbyte
  13. :prgmod = $009d ;modus (programm/direkt)
  14.  
  15.  
  16. :load   jsr filpar ;parameter
  17.         jsr begend ;setzen
  18.         jsr lade   ;und laden
  19.  
  20.         lda stat   ;fehlerkanal
  21.         cmp #$40   ;abfragen
  22.         bne load   ;
  23.  
  24. :start  jmp $0000  ;programmstart
  25.  
  26. :filpar ldx #$08   ;floppy
  27.         ldy #$01   ;adressen
  28.         jsr filset ;setzen
  29.         ldx #<zwsp ;high und
  30.         stx namlb  ;lowbyte
  31.         ldx #>zwsp ;des filenamens
  32.         stx namhb  ;setzen
  33.         lda #$00   ;programmmodus
  34.         sta prgmod ;setzen
  35.         rts        ;
  36.  
  37. :begend ldx #$00  ;prg wird nach
  38.         ldy #$00  ;$0000 geladen
  39.         stx beglb
  40.         sty beghb
  41.         lda #$fb
  42.         rts
  43.  
  44.  
  45.  
  46.  
  47.  
  48.