LOAD-ROUTINE
FILE INFORMATION
FILENAME(S): LOAD-ROUTINE
FILE TYPE(S): SEQ
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 01:13:05
APPEARS ON: 1 disk(s)
FILE HASH
a05065eeff001c4611808679e2b3819343e8353a008f4f0de51602e66765249e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10303 SEITE B | LOAD-ROUTINE | SEQ | C64er | 9 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3A 4C 41 44 45 20 20 20 3D 20 24 46 46 44 35 20 |:LADE = $FFD5 | 00000010: 3B 4C 4F 41 44 20 52 4F 55 54 49 4E 45 0D 3A 53 |;LOAD ROUTINE.:S| 00000020: 49 43 48 45 52 20 3D 20 24 46 46 44 38 20 3B 53 |ICHER = $FFD8 ;S| 00000030: 41 56 45 20 52 4F 55 54 49 4E 45 0D 3A 46 49 4C |AVE ROUTINE.:FIL| 00000040: 53 45 54 20 3D 20 24 46 46 42 41 20 3B 46 49 4C |SET = $FFBA ;FIL| 00000050: 45 50 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 |EPARAMETER SETZE| 00000060: 4E 0D 3A 46 49 4C 4E 41 4D 20 3D 20 24 46 46 42 |N.:FILNAM = $FFB| 00000070: 44 20 3B 46 49 4C 45 4E 41 4D 45 4E 50 41 52 2E |D ;FILENAMENPAR.| 00000080: 20 53 45 54 5A 45 4E 0D 3A 42 45 47 4C 42 20 20 | SETZEN.:BEGLB | 00000090: 3D 20 24 30 30 46 42 20 3B 53 54 41 52 54 41 44 |= $00FB ;STARTAD| 000000A0: 52 20 4C 4F 57 42 59 54 45 0D 3A 42 45 47 48 42 |R LOWBYTE.:BEGHB| 000000B0: 20 20 3D 20 24 30 30 46 43 20 3B 53 54 41 52 54 | = $00FC ;START| 000000C0: 41 44 52 20 48 49 47 48 42 59 54 45 0D 3A 4E 41 |ADR HIGHBYTE.:NA| 000000D0: 4D 4C 42 20 20 3D 20 24 30 30 42 42 20 3B 41 44 |MLB = $00BB ;AD| 000000E0: 52 45 53 53 45 20 44 45 53 20 46 49 4C 45 4E 41 |RESSE DES FILENA| 000000F0: 4D 45 4E 53 0D 3A 4E 41 4D 48 42 20 20 3D 20 24 |MENS.:NAMHB = $| 00000100: 30 30 42 43 20 3B 48 49 47 48 20 55 4E 44 20 4C |00BC ;HIGH UND L| 00000110: 4F 57 42 59 54 45 0D 3A 4C 45 4E 47 20 20 20 3D |OWBYTE.:LENG =| 00000120: 20 24 30 30 42 37 20 3B 4C 41 45 4E 47 45 20 44 | $00B7 ;LAENGE D| 00000130: 45 53 20 46 49 4C 45 4E 41 4D 45 4E 53 0D 3A 5A |ES FILENAMENS.:Z| 00000140: 57 53 50 20 20 20 3D 20 24 39 46 30 30 20 3B 48 |WSP = $9F00 ;H| 00000150: 49 45 52 20 4D 55 53 53 20 44 45 52 20 46 49 4C |IER MUSS DER FIL| 00000160: 45 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 20 20 |ENAME. | 00000170: 20 20 20 20 20 20 3B 53 54 45 48 45 4E 0D 3A 53 | ;STEHEN.:S| 00000180: 54 41 54 20 20 20 3D 20 24 30 30 39 30 20 3B 53 |TAT = $0090 ;S| 00000190: 54 41 54 55 53 42 59 54 45 0D 3A 50 52 47 4D 4F |TATUSBYTE.:PRGMO| 000001A0: 44 20 3D 20 24 30 30 39 44 20 3B 4D 4F 44 55 53 |D = $009D ;MODUS| 000001B0: 20 28 50 52 4F 47 52 41 4D 4D 2F 44 49 52 45 4B | (PROGRAMM/DIREK| 000001C0: 54 29 0D 0D 0D 3A 4C 4F 41 44 20 20 20 4A 53 52 |T)...:LOAD JSR| 000001D0: 20 46 49 4C 50 41 52 20 3B 50 41 52 41 4D 45 54 | FILPAR ;PARAMET| 000001E0: 45 52 0D 20 20 20 20 20 20 20 20 4A 53 52 20 42 |ER. JSR B| 000001F0: 45 47 45 4E 44 20 3B 53 45 54 5A 45 4E 0D 20 20 |EGEND ;SETZEN. | 00000200: 20 20 20 20 20 20 4A 53 52 20 4C 41 44 45 20 20 | JSR LADE | 00000210: 20 3B 55 4E 44 20 4C 41 44 45 4E 0D 0D 20 20 20 | ;UND LADEN.. | 00000220: 20 20 20 20 20 4C 44 41 20 53 54 41 54 20 20 20 | LDA STAT | 00000230: 3B 46 45 48 4C 45 52 4B 41 4E 41 4C 0D 20 20 20 |;FEHLERKANAL. | 00000240: 20 20 20 20 20 43 4D 50 20 23 24 34 30 20 20 20 | CMP #$40 | 00000250: 3B 41 42 46 52 41 47 45 4E 0D 20 20 20 20 20 20 |;ABFRAGEN. | 00000260: 20 20 42 4E 45 20 4C 4F 41 44 20 20 20 3B 0D 0D | BNE LOAD ;..| 00000270: 3A 53 54 41 52 54 20 20 4A 4D 50 20 24 30 30 30 |:START JMP $000| 00000280: 30 20 20 3B 50 52 4F 47 52 41 4D 4D 53 54 41 52 |0 ;PROGRAMMSTAR| 00000290: 54 0D 0D 3A 46 49 4C 50 41 52 20 4C 44 58 20 23 |T..:FILPAR LDX #| 000002A0: 24 30 38 20 20 20 3B 46 4C 4F 50 50 59 0D 20 20 |$08 ;FLOPPY. | 000002B0: 20 20 20 20 20 20 4C 44 59 20 23 24 30 31 20 20 | LDY #$01 | 000002C0: 20 3B 41 44 52 45 53 53 45 4E 0D 20 20 20 20 20 | ;ADRESSEN. | 000002D0: 20 20 20 4A 53 52 20 46 49 4C 53 45 54 20 3B 53 | JSR FILSET ;S| 000002E0: 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 4C 44 |ETZEN. LD| 000002F0: 58 20 23 3C 5A 57 53 50 20 3B 48 49 47 48 20 55 |X #<ZWSP ;HIGH U| 00000300: 4E 44 0D 20 20 20 20 20 20 20 20 53 54 58 20 4E |ND. STX N| 00000310: 41 4D 4C 42 20 20 3B 4C 4F 57 42 59 54 45 0D 20 |AMLB ;LOWBYTE. | 00000320: 20 20 20 20 20 20 20 4C 44 58 20 23 3E 5A 57 53 | LDX #>ZWS| 00000330: 50 20 3B 44 45 53 20 46 49 4C 45 4E 41 4D 45 4E |P ;DES FILENAMEN| 00000340: 53 0D 20 20 20 20 20 20 20 20 53 54 58 20 4E 41 |S. STX NA| 00000350: 4D 48 42 20 20 3B 53 45 54 5A 45 4E 0D 20 20 20 |MHB ;SETZEN. | 00000360: 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 | LDA #$00 | 00000370: 3B 50 52 4F 47 52 41 4D 4D 4D 4F 44 55 53 0D 20 |;PROGRAMMMODUS. | 00000380: 20 20 20 20 20 20 20 53 54 41 20 50 52 47 4D 4F | STA PRGMO| 00000390: 44 20 3B 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 |D ;SETZEN. | 000003A0: 20 20 52 54 53 20 20 20 20 20 20 20 20 3B 0D 0D | RTS ;..| 000003B0: 3A 42 45 47 45 4E 44 20 4C 44 58 20 23 24 30 30 |:BEGEND LDX #$00| 000003C0: 20 20 3B 50 52 47 20 57 49 52 44 20 4E 41 43 48 | ;PRG WIRD NACH| 000003D0: 0D 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 |. LDY #$0| 000003E0: 30 20 20 3B 24 30 30 30 30 20 47 45 4C 41 44 45 |0 ;$0000 GELADE| 000003F0: 4E 0D 20 20 20 20 20 20 20 20 53 54 58 20 42 45 |N. STX BE| 00000400: 47 4C 42 0D 20 20 20 20 20 20 20 20 53 54 59 20 |GLB. STY | 00000410: 42 45 47 48 42 0D 20 20 20 20 20 20 20 20 4C 44 |BEGHB. LD| 00000420: 41 20 23 24 46 42 0D 20 20 20 20 20 20 20 20 52 |A #$FB. R| 00000430: 54 53 0D 0D 0D 0D 0D 0D 20 |TS...... |
:LADE = $FFD5 ;LOAD ROUTINE.:SICHER =
$FFD8 ;SAVE ROUTINE.:FILSET = $FFBA ;FIL
EPARAMETER SETZEN.:FILNAM = $FFBD ;FILEN
AMENPAR. SETZEN.:BEGLB = $00FB ;STARTAD
R LOWBYTE.:BEGHB = $00FC ;STARTADR HIGH
BYTE.:NAMLB = $00BB ;ADRESSE DES FILENA
MENS.:NAMHB = $00BC ;HIGH UND LOWBYTE.:
LENG = $00B7 ;LAENGE DES FILENAMENS.:Z
WSP = $9F00 ;HIER MUSS DER FILENAME.
;STEHEN.:STAT = $0090 ;S
TATUSBYTE.:PRGMOD = $009D ;MODUS (PROGRA
MM/DIREKT)...:LOAD JSR FILPAR ;PARAMET
ER. JSR BEGEND ;SETZEN. JS
R LADE ;UND LADEN.. LDA STAT
;FEHLERKANAL. CMP #$40 ;ABFRAGE
N. BNE LOAD ;..:START JMP $000
0 ;PROGRAMMSTART..:FILPAR LDX #$08 ;F
LOPPY. 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 ;SETZE
N. RTS ;..:BEGEND LDX #$00
;PRG WIRD NACH. LDY #$00 ;$000
0 GELADEN. STX BEGLB. STY
BEGHB. LDA #$FB. RTS......
> CLICK IMAGE PREVIEW FOR FULL MODAL