ASS-KURS-LIST 5

FILE INFORMATION

FILENAME(S): ASS-KURS-LIST 5

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 2 disk(s)

FILE HASH

08fd44410ffd977638a4b93e7a32344a4da2f93574d0521bda2aa550bb205f8f

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 0A 22 18 22 0A 00 2E 42  41 20 35 30 36 30 30 00  |."."...BA 50600.|
00000010: 1E 22 14 00 3B 00 35 22  1E 00 2E 45 51 20 54 45  |."..;.5"...EQ TE|
00000020: 58 54 46 49 4C 45 20 3D  20 31 36 36 00 3B 22 28  |XTFILE = 166.;"(|
00000030: 00 3B 00 54 22 32 00 2E  45 51 20 53 45 54 4E 41  |.;.T"2..EQ SETNA|
00000040: 4D 20 20 20 3D 20 24 46  46 42 44 00 6D 22 3C 00  |M   = $FFBD.m"<.|
00000050: 2E 45 51 20 53 45 54 4C  46 53 20 20 20 3D 20 24  |.EQ SETLFS   = $|
00000060: 46 46 42 41 00 86 22 46  00 2E 45 51 20 4F 50 45  |FFBA.."F..EQ OPE|
00000070: 4E 20 20 20 20 20 3D 20  24 46 46 43 30 00 9F 22  |N     = $FFC0.."|
00000080: 50 00 2E 45 51 20 43 48  4B 4F 55 54 20 20 20 3D  |P..EQ CHKOUT   =|
00000090: 20 24 46 46 43 39 00 B8  22 5A 00 2E 45 51 20 43  | $FFC9.."Z..EQ C|
000000A0: 52 20 20 20 20 20 20 20  3D 20 24 41 41 44 37 00  |R       = $AAD7.|
000000B0: D1 22 64 00 2E 45 51 20  50 52 49 4E 54 20 20 20  |."d..EQ PRINT   |
000000C0: 20 3D 20 24 46 46 44 32  00 EA 22 6E 00 2E 45 51  | = $FFD2.."n..EQ|
000000D0: 20 43 4C 4F 53 45 20 20  20 20 3D 20 24 46 46 43  | CLOSE    = $FFC|
000000E0: 33 00 03 23 78 00 2E 45  51 20 43 4C 52 43 48 20  |3..#x..EQ CLRCH |
000000F0: 20 20 20 3D 20 24 46 46  43 43 00 09 23 82 00 3B  |   = $FFCC..#..;|
00000100: 00 24 23 8C 00 3B 4F 45  46 46 4E 45 20 44 52 55  |.$#..;OEFFNE DRU|
00000110: 43 4B 45 52 20 4B 41 4E  41 4C 2E 00 2A 23 96 00  |CKER KANAL..*#..|
00000120: 3B 00 35 23 A0 00 20 4C  44 41 23 30 00 44 23 AA  |;.5#.. LDA#0.D#.|
00000130: 00 20 4A 53 52 53 45 54  4E 41 4D 00 4A 23 B4 00  |. JSRSETNAM.J#..|
00000140: 3B 00 55 23 BE 00 20 4C  44 41 23 34 00 5E 23 C8  |;.U#.. LDA#4.^#.|
00000150: 00 20 54 41 58 00 6B 23  D2 00 20 4C 44 59 23 32  |. TAX.k#.. LDY#2|
00000160: 35 35 00 7A 23 DC 00 20  4A 53 52 53 45 54 4C 46  |55.z#.. JSRSETLF|
00000170: 53 00 80 23 E6 00 3B 00  8D 23 F0 00 20 4A 53 52  |S..#..;..#.. JSR|
00000180: 4F 50 45 4E 00 93 23 FA  00 3B 00 9E 23 04 01 20  |OPEN..#..;..#.. |
00000190: 4C 44 58 23 34 00 AD 23  0E 01 20 4A 53 52 43 48  |LDX#4..#.. JSRCH|
000001A0: 4B 4F 55 54 00 B3 23 18  01 3B 00 CC 23 22 01 3B  |KOUT..#..;..#".;|
000001B0: 49 4E 49 54 49 49 45 52  45 20 54 45 58 54 46 49  |INITIIERE TEXTFI|
000001C0: 4C 45 2E 00 D2 23 2C 01  3B 00 E4 23 36 01 20 4C  |LE...#,.;..#6. L|
000001D0: 44 41 23 3C 28 33 30 30  30 30 29 00 F5 23 40 01  |DA#<(30000)..#@.|
000001E0: 20 53 54 41 54 45 58 54  46 49 4C 45 00 07 24 4A  | STATEXTFILE..$J|
000001F0: 01 20 4C 44 41 23 3E 28  33 30 30 30 30 29 00 1A  |. LDA#>(30000)..|
00000200: 24 54 01 20 53 54 41 54  45 58 54 46 49 4C 45 2B  |$T. STATEXTFILE+|
00000210: 31 00 20 24 5E 01 3B 00  34 24 68 01 3B 57 41 47  |1. $^.;.4$h.;WAG|
00000220: 45 4E 52 55 45 43 4B 4C  41 55 46 00 3A 24 72 01  |ENRUECKLAUF.:$r.|
00000230: 3B 00 45 24 7C 01 20 4A  53 52 43 52 00 4B 24 86  |;.E$|. JSRCR.K$.|
00000240: 01 3B 00 6F 24 90 01 3B  47 45 42 45 20 54 45 58  |.;.o$..;GEBE TEX|
00000250: 54 46 49 4C 45 20 5A 55  4D 20 44 52 55 43 4B 45  |TFILE ZUM DRUCKE|
00000260: 52 20 41 55 53 2E 00 75  24 9A 01 3B 00 80 24 A4  |R AUS..u$..;..$.|
00000270: 01 20 4C 44 59 23 30 00  A8 24 AE 01 44 52 55 43  |. LDY#0..$..DRUC|
00000280: 4B 53 43 48 4C 20 4C 44  41 23 31 37 3B 4B 4F 4E  |KSCHL LDA#17;KON|
00000290: 54 52 4F 4C 4C 20 43 48  41 52 41 43 54 45 52 00  |TROLL CHARACTER.|
000002A0: B6 24 B8 01 20 4A 53 52  50 52 49 4E 54 00 CB 24  |.$.. JSRPRINT..$|
000002B0: C2 01 20 4C 44 41 28 54  45 58 54 46 49 4C 45 29  |.. LDA(TEXTFILE)|
000002C0: 2C 59 00 D9 24 CC 01 20  4A 53 52 50 52 49 4E 54  |,Y..$.. JSRPRINT|
000002D0: 00 DF 24 D6 01 3B 00 F0  24 E0 01 20 49 4E 43 54  |..$..;..$.. INCT|
000002E0: 45 58 54 46 49 4C 45 00  FF 24 EA 01 20 42 4E 45  |EXTFILE..$.. BNE|
000002F0: 4E 4F 48 49 47 48 00 12  25 F4 01 20 49 4E 43 54  |NOHIGH..%.. INCT|
00000300: 45 58 54 46 49 4C 45 2B  31 00 18 25 FE 01 3B 00  |EXTFILE+1..%..;.|
00000310: 2F 25 08 02 4E 4F 48 49  47 48 20 4C 44 41 54 45  |/%..NOHIGH LDATE|
00000320: 58 54 46 49 4C 45 00 41  25 12 02 20 43 4D 50 23  |XTFILE.A%.. CMP#|
00000330: 3C 28 33 31 30 30 30 29  00 53 25 1C 02 20 42 4E  |<(31000).S%.. BN|
00000340: 45 44 52 55 43 4B 53 43  48 4C 00 66 25 26 02 20  |EDRUCKSCHL.f%&. |
00000350: 4C 44 41 54 45 58 54 46  49 4C 45 2B 31 00 78 25  |LDATEXTFILE+1.x%|
00000360: 30 02 20 43 4D 50 23 3E  28 33 31 30 30 30 29 00  |0. CMP#>(31000).|
00000370: 8A 25 3A 02 20 42 4E 45  44 52 55 43 4B 53 43 48  |.%:. BNEDRUCKSCH|
00000380: 4C 00 90 25 44 02 3B 00  AC 25 4E 02 3B 4C 45 54  |L..%D.;..%N.;LET|
00000390: 5A 54 45 52 20 57 41 47  45 4E 52 55 45 43 4B 4C  |ZTER WAGENRUECKL|
000003A0: 41 55 46 00 B2 25 58 02  3B 00 BD 25 62 02 20 4A  |AUF..%X.;..%b. J|
000003B0: 53 52 43 52 00 C3 25 6C  02 3B 00 E5 25 76 02 3B  |SRCR..%l.;..%v.;|
000003C0: 46 45 52 54 49 47 2C 20  53 43 48 4C 49 45 53 53  |FERTIG, SCHLIESS|
000003D0: 45 20 44 52 55 43 4B 45  52 2E 2E 2E 00 EB 25 80  |E DRUCKER.....%.|
000003E0: 02 3B 00 F6 25 8A 02 20  4C 44 41 23 34 00 04 26  |.;..%.. LDA#4..&|
000003F0: 94 02 20 4A 53 52 43 4C  4F 53 45 00 0A 26 9E 02  |.. JSRCLOSE..&..|
00000400: 3B 00 18 26 A8 02 20 4A  53 52 43 4C 52 43 48 00  |;..&.. JSRCLRCH.|
00000410: 1E 26 B2 02 3B 00 4A 26  BC 02 3B 55 4E 44 20 4B  |.&..;.J&..;UND K|
00000420: 45 48 52 45 20 56 4F 4E  20 44 45 52 20 55 4E 54  |EHRE VON DER UNT|
00000430: 45 52 52 4F 55 54 49 4E  45 20 5A 55 52 55 45 43  |ERROUTINE ZURUEC|
00000440: 4B 00 50 26 C6 02 3B 00  59 26 D0 02 20 52 54 53  |K.P&..;.Y&.. RTS|
00000450: 00 00 00                                          |...             |

."."...BA 50600.."..;.5"...EQ TEXTFILE =
 166.;"(.;.T"2..EQ SETNAM   = $FFBD.M"<.
.EQ SETLFS   = $FFBA.."F..EQ OPEN     = 
$FFC0.."P..EQ CHKOUT   = $FFC9.."Z..EQ C
R       = $AAD7.Q"D..EQ PRINT    = $FFD2
.."N..EQ CLOSE    = $FFC3..#X..EQ CLRCH 
   = $FFCC..#..;.$#..;OEFFNE DRUCKER KAN
AL..*#..;.5# . LDA#0.D#.. JSRSETNAM.J#..
;.U#.. LDA#4.^#H. TAX.K#R. LDY#255.Z#.. 
JSRSETLFS..#..;..#.. JSROPEN..#..;..#.. 
LDX#4..#.. JSRCHKOUT..#..;.L#".;INITIIER
E TEXTFILE..R#,.;..#6. LDA#<(30000)..#@.
 STATEXTFILE..$J. LDA#>(30000)..$T. STAT
EXTFILE+1. $^.;.4$H.;WAGENRUECKLAUF.:$R.
;.E$|. JSRCR.K$..;.O$..;GEBE TEXTFILE ZU
M DRUCKER AUS..U$..;..$.. LDY#0..$..DRUC
KSCHL LDA#17;KONTROLL CHARACTER..$.. JSR
PRINT.K$B. LDA(TEXTFILE),Y.Y$L. JSRPRINT
..$V.;..$.. INCTEXTFILE..$.. BNENOHIGH..
%.. INCTEXTFILE+1..%..;./%..NOHIGH LDATE
XTFILE.A%.. CMP#<(31000).S%.. BNEDRUCKSC
HL.F%&. LDATEXTFILE+1.X%0. CMP#>(31000).
.%:. BNEDRUCKSCHL..%D.;..%N.;LETZTER WAG
ENRUECKLAUF..%X.;..%B. JSRCR.C%L.;..%V.;
FERTIG, SCHLIESSE DRUCKER.....%..;..%.. 
LDA#4..&.. JSRCLOSE..&..;..&.. JSRCLRCH.
.&..;.J&..;UND KEHRE VON DER UNTERROUTIN
E ZURUECK.P&F.;.Y&P. RTS...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL