ASS-KURS-LIST 1

FILE INFORMATION

FILENAME(S): ASS-KURS-LIST 1

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 01:13:12

APPEARS ON: 2 disk(s)

FILE HASH

3b00561d5df0b845b6982a4fcbd4d1e7582d4aa1727dd0a8e824a09c79d7637b

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10902 SEITE D	ASS-KURS-LIST 1	PRG	C64er, DuncanTwain	17	0	DOWNLOAD FILE
10902 SEITE D	ASS-KURS-LIST 1	PRG	DuncanTwain	17	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0A 22 18 22 0A 00 2E 42  41 20 35 30 31 30 30 00  |."."...BA 50100.|
00000010: 1E 22 14 00 3B 00 36 22  1E 00 2E 45 51 20 53 43  |."..;.6"...EQ SC|
00000020: 52 45 45 4E 4D 45 4D 20  3D 20 32 35 31 00 4E 22  |REENMEM = 251.N"|
00000030: 28 00 2E 45 51 20 53 43  52 45 45 4E 43 4F 4C 20  |(..EQ SCREENCOL |
00000040: 3D 20 32 35 33 00 66 22  32 00 2E 45 51 20 54 45  |= 253.f"2..EQ TE|
00000050: 58 54 46 49 4C 45 20 20  3D 20 31 36 36 00 6C 22  |XTFILE  = 166.l"|
00000060: 3C 00 3B 00 86 22 46 00  2E 45 51 20 53 45 54 4E  |<.;.."F..EQ SETN|
00000070: 41 4D 20 20 20 20 3D 20  24 46 46 42 44 00 A0 22  |AM    = $FFBD.."|
00000080: 50 00 2E 45 51 20 53 45  54 4C 46 53 20 20 20 20  |P..EQ SETLFS    |
00000090: 3D 20 24 46 46 42 41 00  BA 22 5A 00 2E 45 51 20  |= $FFBA.."Z..EQ |
000000A0: 4F 50 45 4E 20 20 20 20  20 20 3D 20 24 46 46 43  |OPEN      = $FFC|
000000B0: 30 00 D4 22 64 00 2E 45  51 20 43 48 4B 4F 55 54  |0.."d..EQ CHKOUT|
000000C0: 20 20 20 20 3D 20 24 46  46 43 39 00 EE 22 6E 00  |    = $FFC9.."n.|
000000D0: 2E 45 51 20 43 48 52 4F  55 54 20 20 20 20 3D 20  |.EQ CHROUT    = |
000000E0: 24 46 46 44 32 00 08 23  78 00 2E 45 51 20 43 4C  |$FFD2..#x..EQ CL|
000000F0: 4F 53 45 20 20 20 20 20  3D 20 24 46 46 43 33 00  |OSE     = $FFC3.|
00000100: 22 23 82 00 2E 45 51 20  43 4C 52 43 48 20 20 20  |"#...EQ CLRCH   |
00000110: 20 20 3D 20 24 46 46 43  43 00 28 23 8C 00 3B 00  |  = $FFCC.(#..;.|
00000120: 50 23 96 00 3B 4F 45 46  46 4E 45 20 4B 41 4E 41  |P#..;OEFFNE KANA|
00000130: 4C 20 46 55 45 52 20 44  49 53 4B 45 54 54 45 4E  |L FUER DISKETTEN|
00000140: 41 55 53 47 41 42 45 00  56 23 A0 00 3B 00 67 23  |AUSGABE.V#..;.g#|
00000150: AA 00 20 4C 44 41 46 49  4C 45 4E 41 4D 45 00 7E  |.. LDAFILENAME.~|
00000160: 23 B4 00 20 4C 44 58 23  3C 28 46 49 4C 45 4E 41  |#.. LDX#<(FILENA|
00000170: 4D 45 2B 31 29 00 95 23  BE 00 20 4C 44 59 23 3E  |ME+1)..#.. LDY#>|
00000180: 28 46 49 4C 45 4E 41 4D  45 2B 31 29 00 A4 23 C8  |(FILENAME+1)..#.|
00000190: 00 20 4A 53 52 53 45 54  4E 41 4D 00 AA 23 D2 00  |. JSRSETNAM..#..|
000001A0: 3B 00 B5 23 DC 00 20 4C  44 41 23 33 00 C0 23 E6  |;..#.. LDA#3..#.|
000001B0: 00 20 4C 44 58 23 38 00  CB 23 F0 00 20 4C 44 59  |. LDX#8..#.. LDY|
000001C0: 23 31 00 DA 23 FA 00 20  4A 53 52 53 45 54 4C 46  |#1..#.. JSRSETLF|
000001D0: 53 00 E0 23 04 01 3B 00  ED 23 0E 01 20 4A 53 52  |S..#..;..#.. JSR|
000001E0: 4F 50 45 4E 00 F3 23 18  01 3B 00 FE 23 22 01 20  |OPEN..#..;..#". |
000001F0: 4C 44 58 23 33 00 0D 24  2C 01 20 4A 53 52 43 48  |LDX#3..$,. JSRCH|
00000200: 4B 4F 55 54 00 13 24 36  01 3B 00 2B 24 40 01 3B  |KOUT..$6.;.+$@.;|
00000210: 49 4E 49 54 49 49 45 52  45 20 54 45 58 54 46 49  |INITIIERE TEXTFI|
00000220: 4C 45 00 31 24 4A 01 3B  00 43 24 54 01 20 4C 44  |LE.1$J.;.C$T. LD|
00000230: 41 23 3C 28 33 30 30 30  30 29 00 54 24 5E 01 20  |A#<(30000).T$^. |
00000240: 53 54 41 54 45 58 54 46  49 4C 45 00 63 24 68 01  |STATEXTFILE.c$h.|
00000250: 20 4A 53 52 43 48 52 4F  55 54 00 75 24 72 01 20  | JSRCHROUT.u$r. |
00000260: 4C 44 41 23 3E 28 33 30  30 30 30 29 00 88 24 7C  |LDA#>(30000)..$||
00000270: 01 20 53 54 41 54 45 58  54 46 49 4C 45 2B 31 00  |. STATEXTFILE+1.|
00000280: 97 24 86 01 20 4A 53 52  43 48 52 4F 55 54 00 9D  |.$.. JSRCHROUT..|
00000290: 24 90 01 3B 00 C1 24 9A  01 3B 54 45 58 54 46 49  |$..;..$..;TEXTFI|
000002A0: 4C 45 20 41 55 46 20 44  49 53 4B 45 54 54 45 20  |LE AUF DISKETTE |
000002B0: 41 55 53 47 45 42 45 4E  00 C7 24 A4 01 3B 00 D9  |AUSGEBEN..$..;..|
000002C0: 24 AE 01 41 55 53 47 41  42 45 20 4C 44 59 23 30  |$..AUSGABE LDY#0|
000002D0: 00 EE 24 B8 01 20 4C 44  41 28 54 45 58 54 46 49  |..$.. LDA(TEXTFI|
000002E0: 4C 45 29 2C 59 00 FD 24  C2 01 20 4A 53 52 43 48  |LE),Y..$.. JSRCH|
000002F0: 52 4F 55 54 00 03 25 CC  01 3B 00 14 25 D6 01 20  |ROUT..%..;..%.. |
00000300: 49 4E 43 54 45 58 54 46  49 4C 45 00 23 25 E0 01  |INCTEXTFILE.#%..|
00000310: 20 42 4E 45 4E 4F 48 49  47 48 00 36 25 EA 01 20  | BNENOHIGH.6%.. |
00000320: 49 4E 43 54 45 58 54 46  49 4C 45 2B 31 00 3C 25  |INCTEXTFILE+1.<%|
00000330: F4 01 3B 00 53 25 FE 01  4E 4F 48 49 47 48 20 4C  |..;.S%..NOHIGH L|
00000340: 44 41 54 45 58 54 46 49  4C 45 00 65 25 08 02 20  |DATEXTFILE.e%.. |
00000350: 43 4D 50 23 3C 28 33 31  30 30 30 29 00 75 25 12  |CMP#<(31000).u%.|
00000360: 02 20 42 4E 45 41 55 53  47 41 42 45 00 88 25 1C  |. BNEAUSGABE..%.|
00000370: 02 20 4C 44 41 54 45 58  54 46 49 4C 45 2B 31 00  |. LDATEXTFILE+1.|
00000380: 9A 25 26 02 20 43 4D 50  23 3E 28 33 31 30 30 30  |.%&. CMP#>(31000|
00000390: 29 00 AA 25 30 02 20 42  4E 45 41 55 53 47 41 42  |)..%0. BNEAUSGAB|
000003A0: 45 00 B0 25 3A 02 3B 00  E1 25 44 02 3B 46 45 52  |E..%:.;..%D.;FER|
000003B0: 54 49 47 3A 20 53 43 48  4C 49 45 53 53 45 20 44  |TIG: SCHLIESSE D|
000003C0: 49 53 4B 45 54 54 45 4E  41 55 53 47 41 42 45 20  |ISKETTENAUSGABE |
000003D0: 4B 41 4E 41 4C 2E 2E 2E  00 E7 25 4E 02 3B 00 F2  |KANAL.....%N.;..|
000003E0: 25 58 02 20 4C 44 41 23  33 00 00 26 62 02 20 4A  |%X. LDA#3..&b. J|
000003F0: 53 52 43 4C 4F 53 45 00  06 26 6C 02 3B 00 14 26  |SRCLOSE..&l.;..&|
00000400: 76 02 20 4A 53 52 43 4C  52 43 48 00 1A 26 80 02  |v. JSRCLRCH..&..|
00000410: 3B 00 46 26 8A 02 3B 55  4E 44 20 4B 45 48 52 45  |;.F&..;UND KEHRE|
00000420: 20 56 4F 4E 20 44 45 52  20 55 4E 54 45 52 52 4F  | VON DER UNTERRO|
00000430: 55 54 49 4E 45 20 5A 55  52 55 45 43 4B 00 4C 26  |UTINE ZURUECK.L&|
00000440: 94 02 3B 00 55 26 9E 02  20 52 54 53 00 5B 26 A8  |..;.U&.. RTS.[&.|
00000450: 02 3B 00 61 26 B2 02 3B  00 67 26 BC 02 3B 00 74  |.;.a&..;.g&..;.t|
00000460: 26 C6 02 46 49 4C 45 4E  41 4D 45 00 7E 26 D0 02  |&..FILENAME.~&..|
00000470: 2E 42 59 20 38 00 91 26  DA 02 2E 54 58 20 22 54  |.BY 8..&...TX "T|
00000480: 45 58 54 46 49 4C 45 22  00 00 00                 |EXTFILE"...     |

."."...BA 50100.."..;.6"...EQ SCREENMEM 
= 251.N"(..EQ SCREENCOL = 253.F"2..EQ TE
XTFILE  = 166.L"<.;.."F..EQ SETNAM    = 
$FFBD. "P..EQ SETLFS    = $FFBA.."Z..EQ 
OPEN      = $FFC0.T"D..EQ CHKOUT    = $F
FC9.."N..EQ CHROUT    = $FFD2..#X..EQ CL
OSE     = $FFC3."#...EQ CLRCH     = $FFC
C.(#..;.P#..;OEFFNE KANAL FUER DISKETTEN
AUSGABE.V# .;.G#.. LDAFILENAME.~#.. LDX#
<(FILENAME+1)..#.. LDY#>(FILENAME+1)..#H
. JSRSETNAM..#R.;..#.. LDA#3..#.. LDX#8.
K#.. LDY#1.Z#.. JSRSETLFS..#..;..#.. JSR
OPEN..#..;..#". LDX#3..$,. JSRCHKOUT..$6
.;.+$@.;INITIIERE TEXTFILE.1$J.;.C$T. LD
A#<(30000).T$^. STATEXTFILE.C$H. JSRCHRO
UT.U$R. LDA#>(30000)..$|. STATEXTFILE+1.
.$.. JSRCHROUT..$..;.A$..;TEXTFILE AUF D
ISKETTE AUSGEBEN.G$..;.Y$..AUSGABE LDY#0
..$.. LDA(TEXTFILE),Y..$B. JSRCHROUT..%L
.;..%V. INCTEXTFILE.#%.. BNENOHIGH.6%.. 
INCTEXTFILE+1.<%..;.S%..NOHIGH LDATEXTFI
LE.E%.. CMP#<(31000).U%.. BNEAUSGABE..%.
. LDATEXTFILE+1..%&. CMP#>(31000)..%0. B
NEAUSGABE..%:.;..%D.;FERTIG: SCHLIESSE D
ISKETTENAUSGABE KANAL.....%N.;..%X. LDA#
3..&B. JSRCLOSE..&L.;..&V. JSRCLRCH..&..
;.F&..;UND KEHRE VON DER UNTERROUTINE ZU
RUECK.L&..;.U&.. RTS.[&..;.A&..;.G&..;.T
&F.FILENAME.~&P..BY 8..&Z..TX "TEXTFILE"
...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL