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 >
Wrap
Text File
|
2022-10-26
|
1KB
|
48 lines
:lade = $ffd5 ;load routine
:sicher = $ffd8 ;save routine
:filset = $ffba ;fileparameter setzen
:filnam = $ffbd ;filenamenpar. setzen
:beglb = $00fb ;startadr lowbyte
:beghb = $00fc ;startadr highbyte
:namlb = $00bb ;adresse des filenamens
:namhb = $00bc ;high und lowbyte
:leng = $00b7 ;laenge des filenamens
:zwsp = $9f00 ;hier muss der filename
;stehen
:stat = $0090 ;statusbyte
:prgmod = $009d ;modus (programm/direkt)
:load jsr filpar ;parameter
jsr begend ;setzen
jsr lade ;und laden
lda stat ;fehlerkanal
cmp #$40 ;abfragen
bne load ;
:start jmp $0000 ;programmstart
:filpar ldx #$08 ;floppy
ldy #$01 ;adressen
jsr filset ;setzen
ldx #<zwsp ;high und
stx namlb ;lowbyte
ldx #>zwsp ;des filenamens
stx namhb ;setzen
lda #$00 ;programmmodus
sta prgmod ;setzen
rts ;
:begend ldx #$00 ;prg wird nach
ldy #$00 ;$0000 geladen
stx beglb
sty beghb
lda #$fb
rts