ASS-KURS-LIST 4

00000000: 0A 22 18 22 0A 00 2E 42  41 20 35 30 34 30 30 00  |."."...BA 50400.|
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 7E 22  |XTFILE  = 166.~"|
00000060: 3C 00 2E 45 51 20 54 45  58 54 46 49 4C 45 31 20  |<..EQ TEXTFILE1 |
00000070: 3D 20 31 36 38 00 84 22  46 00 3B 00 9E 22 50 00  |= 168.."F.;.."P.|
00000080: 2E 45 51 20 47 45 54 49  4E 20 20 20 20 20 3D 20  |.EQ GETIN     = |
00000090: 24 46 46 45 34 00 B8 22  5A 00 2E 45 51 20 53 45  |$FFE4.."Z..EQ SE|
000000A0: 54 4E 41 4D 20 20 20 20  3D 20 24 46 46 42 44 00  |TNAM    = $FFBD.|
000000B0: D2 22 64 00 2E 45 51 20  53 45 54 4C 46 53 20 20  |."d..EQ SETLFS  |
000000C0: 20 20 3D 20 24 46 46 42  41 00 EC 22 6E 00 2E 45  |  = $FFBA.."n..E|
000000D0: 51 20 4C 4F 41 44 20 20  20 20 20 20 3D 20 24 46  |Q LOAD      = $F|
000000E0: 46 44 35 00 F2 22 78 00  3B 00 1A 23 82 00 3B 4F  |FD5.."x.;..#..;O|
000000F0: 45 46 46 4E 45 20 4B 41  4E 41 4C 20 46 55 45 52  |EFFNE KANAL FUER|
00000100: 20 4B 41 53 53 45 54 54  45 4E 45 49 4E 47 41 42  | KASSETTENEINGAB|
00000110: 45 00 20 23 8C 00 3B 00  31 23 96 00 20 4C 44 41  |E. #..;.1#.. LDA|
00000120: 46 49 4C 45 4E 41 4D 45  00 48 23 A0 00 20 4C 44  |FILENAME.H#.. LD|
00000130: 58 23 3C 28 46 49 4C 45  4E 41 4D 45 2B 31 29 00  |X#<(FILENAME+1).|
00000140: 5F 23 AA 00 20 4C 44 59  23 3E 28 46 49 4C 45 4E  |_#.. LDY#>(FILEN|
00000150: 41 4D 45 2B 31 29 00 6E  23 B4 00 20 4A 53 52 53  |AME+1).n#.. JSRS|
00000160: 45 54 4E 41 4D 00 74 23  BE 00 3B 00 7F 23 C8 00  |ETNAM.t#..;..#..|
00000170: 20 4C 44 41 23 31 00 8A  23 D2 00 20 4C 44 58 23  | LDA#1..#.. LDX#|
00000180: 31 00 95 23 DC 00 20 4C  44 59 23 31 00 A4 23 E6  |1..#.. LDY#1..#.|
00000190: 00 20 4A 53 52 53 45 54  4C 46 53 00 AA 23 F0 00  |. JSRSETLFS..#..|
000001A0: 3B 00 CD 23 FA 00 3B 47  49 42 20 4C 41 44 45 2D  |;..#..;GIB LADE-|
000001B0: 53 49 47 4E 41 4C 20 28  27 30 27 29 20 49 4D 20  |SIGNAL ('0') IM |
000001C0: 41 4B 4B 55 00 EC 23 04  01 3B 55 4E 44 20 4C 41  |AKKU..#..;UND LA|
000001D0: 44 45 2D 42 45 47 49 4E  4E 20 49 4E 20 58 20 55  |DE-BEGINN IN X U|
000001E0: 4E 20 59 00 F2 23 0E 01  3B 00 FD 23 18 01 20 4C  |N Y..#..;..#.. L|
000001F0: 44 41 23 30 00 0F 24 22  01 20 4C 44 58 23 3C 28  |DA#0..$". LDX#<(|
00000200: 33 30 30 30 30 29 00 21  24 2C 01 20 4C 44 59 23  |30000).!$,. LDY#|
00000210: 3E 28 33 30 30 30 30 29  00 27 24 36 01 3B 00 4B  |>(30000).'$6.;.K|
00000220: 24 40 01 3B 4C 41 44 45  20 54 45 58 54 46 49 4C  |$@.;LADE TEXTFIL|
00000230: 45 20 56 4F 4E 20 44 45  52 20 4B 41 53 53 45 54  |E VON DER KASSET|
00000240: 54 45 00 51 24 4A 01 3B  00 5E 24 54 01 20 4C 53  |TE.Q$J.;.^$T. LS|
00000250: 52 4C 4F 41 44 00 64 24  5E 01 3B 00 92 24 68 01  |RLOAD.d$^.;..$h.|
00000260: 3B 57 45 4E 4E 20 46 45  48 4C 45 52 2C 20 53 50  |;WENN FEHLER, SP|
00000270: 52 49 4E 47 45 20 53 4F  46 4F 52 54 20 5A 55 4D  |RINGE SOFORT ZUM|
00000280: 20 41 55 53 47 41 4E 47  2E 00 98 24 72 01 3B 00  | AUSGANG...$r.;.|
00000290: A8 24 7C 01 20 42 43 53  41 55 53 47 41 4E 47 00  |.$|. BCSAUSGANG.|
000002A0: AE 24 86 01 3B 00 D6 24  90 01 3B 44 52 55 43 4B  |.$..;..$..;DRUCK|
000002B0: 20 54 45 58 54 46 49 4C  45 20 41 55 46 20 44 45  | TEXTFILE AUF DE|
000002C0: 4D 20 42 49 4C 44 53 43  48 49 52 4D 3A 00 EF 24  |M BILDSCHIRM:..$|
000002D0: 9A 01 3B 49 4E 49 54 49  49 45 52 45 20 54 45 58  |..;INITIIERE TEX|
000002E0: 54 46 49 4C 45 2E 00 F5  24 A4 01 3B 00 07 25 AE  |TFILE...$..;..%.|
000002F0: 01 20 4C 44 41 23 3C 28  33 30 30 30 30 29 00 18  |. LDA#<(30000)..|
00000300: 25 B8 01 20 53 54 41 54  45 58 54 46 49 4C 45 00  |%.. STATEXTFILE.|
00000310: 2A 25 C2 01 20 4C 44 41  23 3E 28 33 30 30 30 30  |*%.. LDA#>(30000|
00000320: 29 00 3D 25 CC 01 20 53  54 41 54 45 58 54 46 49  |).=%.. STATEXTFI|
00000330: 4C 45 2B 31 00 43 25 D6  01 3B 00 55 25 E0 01 20  |LE+1.C%..;.U%.. |
00000340: 53 54 58 54 45 58 54 46  49 4C 45 31 00 69 25 EA  |STXTEXTFILE1.i%.|
00000350: 01 20 53 54 59 54 45 58  54 46 49 4C 45 31 2B 31  |. STYTEXTFILE1+1|
00000360: 00 6F 25 F4 01 3B 00 9A  25 FE 01 3B 49 4E 49 54  |.o%..;..%..;INIT|
00000370: 49 49 45 52 45 20 42 49  4C 44 53 43 48 49 52 4D  |IIERE BILDSCHIRM|
00000380: 20 55 4E 44 20 46 41 52  42 53 50 45 49 43 48 45  | UND FARBSPEICHE|
00000390: 52 00 A0 25 08 02 3B 00  B1 25 12 02 20 4C 44 41  |R..%..;..%.. LDA|
000003A0: 23 3C 28 31 30 32 34 29  00 C3 25 1C 02 20 53 54  |#<(1024)..%.. ST|
000003B0: 41 53 43 52 45 45 4E 4D  45 4D 00 D4 25 26 02 20  |ASCREENMEM..%&. |
000003C0: 4C 44 41 23 3E 28 31 30  32 34 29 00 E8 25 30 02  |LDA#>(1024)..%0.|
000003D0: 20 53 54 41 53 43 52 45  45 4E 4D 45 4D 2B 31 00  | STASCREENMEM+1.|
000003E0: EE 25 3A 02 3B 00 00 26  44 02 20 4C 44 41 23 3C  |.%:.;..&D. LDA#<|
000003F0: 28 35 35 32 39 36 29 00  12 26 4E 02 20 53 54 41  |(55296)..&N. STA|
00000400: 53 43 52 45 45 4E 43 4F  4C 00 24 26 58 02 20 4C  |SCREENCOL.$&X. L|
00000410: 44 41 23 3E 28 35 35 32  39 36 29 00 38 26 62 02  |DA#>(55296).8&b.|
00000420: 20 53 54 41 53 43 52 45  45 4E 43 4F 4C 2B 31 00  | STASCREENCOL+1.|
00000430: 3E 26 6C 02 3B 00 58 26  76 02 3B 4C 45 45 52 45  |>&l.;.X&v.;LEERE|
00000440: 20 44 45 4E 20 42 49 4C  44 53 43 48 49 52 4D 00  | DEN BILDSCHIRM.|
00000450: 5E 26 80 02 3B 00 6C 26  8A 02 20 4A 53 52 24 45  |^&..;.l&.. JSR$E|
00000460: 35 34 34 00 72 26 94 02  3B 00 A1 26 9E 02 3B 53  |544.r&..;..&..;S|
00000470: 43 48 41 4C 54 45 20 55  4D 20 41 55 46 20 47 52  |CHALTE UM AUF GR|
00000480: 4F 53 53 2D 20 55 4E 44  20 4B 4C 45 49 4E 53 43  |OSS- UND KLEINSC|
00000490: 48 52 45 49 42 55 4E 47  00 A7 26 A8 02 3B 00 B3  |HREIBUNG..&..;..|
000004A0: 26 B2 02 20 4C 44 41 23  31 34 00 C1 26 BC 02 20  |&.. LDA#14..&.. |
000004B0: 4A 53 52 24 45 37 31 34  00 C7 26 C6 02 3B 00 E8  |JSR$E714..&..;..|
000004C0: 26 D0 02 3B 48 4F 4C 45  20 42 55 43 48 53 54 41  |&..;HOLE BUCHSTA|
000004D0: 42 45 20 56 4F 4D 20 54  45 58 54 46 49 4C 45 00  |BE VOM TEXTFILE.|
000004E0: EE 26 DA 02 3B 00 F9 26  E4 02 20 4C 44 59 23 30  |.&..;..&.. LDY#0|
000004F0: 00 17 27 EE 02 44 52 55  43 4B 53 43 48 4C 20 4C  |..'..DRUCKSCHL L|
00000500: 44 41 28 54 45 58 54 46  49 4C 45 29 2C 59 00 1D  |DA(TEXTFILE),Y..|
00000510: 27 F8 02 3B 00 45 27 02  03 3B 56 45 52 57 41 4E  |'..;.E'..;VERWAN|
00000520: 44 4C 45 20 41 53 43 49  49 20 5A 55 20 42 49 4C  |DLE ASCII ZU BIL|
00000530: 44 53 43 48 49 52 4D 43  4F 44 45 45 00 4B 27 0C  |DSCHIRMCODEE.K'.|
00000540: 03 3B 00 58 27 16 03 20  43 4D 50 23 31 32 38 00  |.;.X'.. CMP#128.|
00000550: 65 27 20 03 20 42 43 43  53 4B 49 50 00 83 27 2A  |e' . BCCSKIP..'*|
00000560: 03 20 53 42 43 23 36 34  3B 47 52 4F 53 53 45 52  |. SBC#64;GROSSER|
00000570: 20 42 55 43 48 53 54 41  42 45 00 A5 27 34 03 53  | BUCHSTABE..'4.S|
00000580: 4B 49 50 20 43 4D 50 23  36 34 3B 4B 4C 45 49 4E  |KIP CMP#64;KLEIN|
00000590: 45 52 20 42 55 43 48 53  54 41 42 45 00 B4 27 3E  |ER BUCHSTABE..'>|
000005A0: 03 20 42 43 43 44 52 55  43 4B 45 00 C0 27 48 03  |. BCCDRUCKE..'H.|
000005B0: 20 53 42 43 23 36 34 00  C6 27 52 03 3B 00 EF 27  | SBC#64..'R.;..'|
000005C0: 5C 03 3B 44 52 55 43 4B  45 20 42 55 43 48 53 54  |\.;DRUCKE BUCHST|
000005D0: 41 42 45 20 41 55 46 20  44 45 4E 20 42 49 4C 44  |ABE AUF DEN BILD|
000005E0: 53 43 48 49 52 4D 00 F5  27 66 03 3B 00 11 28 70  |SCHIRM..'f.;..(p|
000005F0: 03 44 52 55 43 4B 45 20  53 54 41 28 53 43 52 45  |.DRUCKE STA(SCRE|
00000600: 45 4E 4D 45 4D 29 2C 59  00 1C 28 7A 03 20 4C 44  |ENMEM),Y..(z. LD|
00000610: 41 23 36 00 32 28 84 03  20 53 54 41 28 53 43 52  |A#6.2(.. STA(SCR|
00000620: 45 45 4E 43 4F 4C 29 2C  59 00 38 28 8E 03 3B 00  |EENCOL),Y.8(..;.|
00000630: 54 28 98 03 3B 4E 41 45  43 48 53 54 45 20 44 52  |T(..;NAECHSTE DR|
00000640: 55 43 4B 50 4F 53 49 54  49 4F 4E 00 5A 28 A2 03  |UCKPOSITION.Z(..|
00000650: 3B 00 6B 28 AC 03 20 49  4E 43 54 45 58 54 46 49  |;.k(.. INCTEXTFI|
00000660: 4C 45 00 7A 28 B6 03 20  42 4E 45 4E 4F 48 49 47  |LE.z(.. BNENOHIG|
00000670: 48 00 8D 28 C0 03 20 49  4E 43 54 45 58 54 46 49  |H..(.. INCTEXTFI|
00000680: 4C 45 2B 31 00 93 28 CA  03 3B 00 AB 28 D4 03 4E  |LE+1..(..;..(..N|
00000690: 4F 48 49 47 48 20 49 4E  43 53 43 52 45 45 4E 4D  |OHIGH INCSCREENM|
000006A0: 45 4D 00 BB 28 DE 03 20  42 4E 45 4E 4F 48 49 47  |EM..(.. BNENOHIG|
000006B0: 48 31 00 CF 28 E8 03 20  49 4E 43 53 43 52 45 45  |H1..(.. INCSCREE|
000006C0: 4E 4D 45 4D 2B 31 00 D5  28 F2 03 3B 00 EE 28 FC  |NMEM+1..(..;..(.|
000006D0: 03 4E 4F 48 49 47 48 31  20 49 4E 43 53 43 52 45  |.NOHIGH1 INCSCRE|
000006E0: 45 4E 43 4F 4C 00 FE 28  06 04 20 42 4E 45 4E 4F  |ENCOL..(.. BNENO|
000006F0: 48 49 47 48 32 00 12 29  10 04 20 49 4E 43 53 43  |HIGH2..).. INCSC|
00000700: 52 45 45 4E 43 4F 4C 2B  31 00 18 29 1A 04 3B 00  |REENCOL+1..)..;.|
00000710: 30 29 24 04 4E 4F 48 49  47 48 32 20 4C 44 41 54  |0)$.NOHIGH2 LDAT|
00000720: 45 58 54 46 49 4C 45 00  42 29 2E 04 20 43 4D 50  |EXTFILE.B).. CMP|
00000730: 54 45 58 54 46 49 4C 45  31 00 54 29 38 04 20 42  |TEXTFILE1.T)8. B|
00000740: 4E 45 44 52 55 43 4B 53  43 48 4C 00 67 29 42 04  |NEDRUCKSCHL.g)B.|
00000750: 20 4C 44 41 54 45 58 54  46 49 4C 45 2B 31 00 7B  | LDATEXTFILE+1.{|
00000760: 29 4C 04 20 43 4D 50 54  45 58 54 46 49 4C 45 31  |)L. CMPTEXTFILE1|
00000770: 2B 31 00 8D 29 56 04 20  42 4E 45 44 52 55 43 4B  |+1..)V. BNEDRUCK|
00000780: 53 43 48 4C 00 93 29 60  04 3B 00 B9 29 6A 04 3B  |SCHL..)`.;..)j.;|
00000790: 46 45 52 54 49 47 2C 20  57 41 52 54 45 20 41 55  |FERTIG, WARTE AU|
000007A0: 46 20 54 41 53 54 45 4E  44 52 55 43 4B 2E 2E 2E  |F TASTENDRUCK...|
000007B0: 00 BF 29 74 04 3B 00 D6  29 7E 04 57 41 52 54 45  |..)t.;..)~.WARTE|
000007C0: 54 41 53 54 20 4A 53 52  47 45 54 49 4E 00 E8 29  |TAST JSRGETIN..)|
000007D0: 88 04 20 42 45 51 57 41  52 54 45 54 41 53 54 00  |.. BEQWARTETAST.|
000007E0: F4 29 92 04 20 43 4D 50  23 33 32 00 06 2A 9C 04  |.).. CMP#32..*..|
000007F0: 20 42 45 51 57 41 52 54  45 54 41 53 54 00 0C 2A  | BEQWARTETAST..*|
00000800: A6 04 3B 00 38 2A B0 04  3B 55 4E 44 20 4B 45 48  |..;.8*..;UND KEH|
00000810: 52 45 20 56 4F 4E 20 44  45 52 20 55 4E 54 45 52  |RE VON DER UNTER|
00000820: 52 4F 55 54 49 4E 45 20  5A 55 52 55 45 43 4B 00  |ROUTINE ZURUECK.|
00000830: 3E 2A BA 04 3B 00 4E 2A  C4 04 41 55 53 47 41 4E  |>*..;.N*..AUSGAN|
00000840: 47 20 52 54 53 00 54 2A  CE 04 3B 00 5A 2A D8 04  |G RTS.T*..;.Z*..|
00000850: 3B 00 60 2A E2 04 3B 00  6D 2A EC 04 46 49 4C 45  |;.`*..;.m*..FILE|
00000860: 4E 41 4D 45 00 77 2A F6  04 2E 42 59 20 38 00 8A  |NAME.w*...BY 8..|
00000870: 2A 00 05 2E 54 58 20 22  54 45 58 54 46 49 4C 45  |*...TX "TEXTFILE|
00000880: 22 00 00 00                                       |"...            |

."."...BA 50400.."..;.6"...EQ SCREENMEM 
= 251.N"(..EQ SCREENCOL = 253.F"2..EQ TE
XTFILE  = 166.~"<..EQ TEXTFILE1 = 168.."
F.;.."P..EQ GETIN     = $FFE4.."Z..EQ SE
TNAM    = $FFBD.R"D..EQ SETLFS    = $FFB
A.."N..EQ LOAD      = $FFD5.."X.;..#..;O
EFFNE KANAL FUER KASSETTENEINGABE. #..;.
1#.. LDAFILENAME.H# . LDX#<(FILENAME+1).
_#.. LDY#>(FILENAME+1).N#.. JSRSETNAM.T#
..;.#H. LDA#1..#R. LDX#1..#.. LDY#1..#.
. JSRSETLFS..#..;.M#..;GIB LADE-SIGNAL (
'0') IM AKKU..#..;UND LADE-BEGINN IN X U
N Y..#..;..#.. LDA#0..$". LDX#<(30000).!
$,. LDY#>(30000).'$6.;.K$@.;LADE TEXTFIL
E VON DER KASSETTE.Q$J.;.^$T. LSRLOAD.D$
^.;..$H.;WENN FEHLER, SPRINGE SOFORT ZUM
 AUSGANG...$R.;..$|. BCSAUSGANG..$..;.V$
..;DRUCK TEXTFILE AUF DEM BILDSCHIRM:..$
..;INITIIERE TEXTFILE...$..;..%.. LDA#<(
30000)..%.. STATEXTFILE.*%B. LDA#>(30000
).=%L. STATEXTFILE+1.C%V.;.U%.. STXTEXTF
ILE1.I%.. STYTEXTFILE1+1.O%..;..%..;INIT
IIERE BILDSCHIRM UND FARBSPEICHER. %..;.
.%.. LDA#<(1024).C%.. STASCREENMEM.T%&. 
LDA#>(1024)..%0. STASCREENMEM+1..%:.;..&
D. LDA#<(55296)..&N. STASCREENCOL.$&X. L
DA#>(55296).8&B. STASCREENCOL+1.>&L.;.X&
V.;LEERE DEN BILDSCHIRM.^&..;.L&.. JSR$E
544.R&..;..&..;SCHALTE UM AUF GROSS- UND
 KLEINSCHREIBUNG..&..;..&.. LDA#14.A&.. 
JSR$E714.G&F.;..&P.;HOLE BUCHSTABE VOM T
EXTFILE..&Z.;..&.. LDY#0..'..DRUCKSCHL L
DA(TEXTFILE),Y..'..;.E'..;VERWANDLE ASCI
I ZU BILDSCHIRMCODEE.K'..;.X'.. CMP#128.
E' . BCCSKIP..'*. SBC#64;GROSSER BUCHSTA
BE..'4.SKIP CMP#64;KLEINER BUCHSTABE..'>
. BCCDRUCKE..'H. SBC#64.F'R.;..'\.;DRUCK
E BUCHSTABE AUF DEN BILDSCHIRM..'F.;..(P
.DRUCKE STA(SCREENMEM),Y..(Z. LDA#6.2(..
 STA(SCREENCOL),Y.8(..;.T(..;NAECHSTE DR
UCKPOSITION.Z(..;.K(.. INCTEXTFILE.Z(.. 
BNENOHIGH..(.. INCTEXTFILE+1..(J.;..(T.N
OHIGH INCSCREENMEM..(.. BNENOHIGH1.O(.. 
INCSCREENMEM+1.U(..;..(..NOHIGH1 INCSCRE
ENCOL..(.. BNENOHIGH2..).. INCSCREENCOL+
1..)..;.0)$.NOHIGH2 LDATEXTFILE.B).. CMP
TEXTFILE1.T)8. BNEDRUCKSCHL.G)B. LDATEXT
FILE+1.{)L. CMPTEXTFILE1+1..)V. BNEDRUCK
SCHL..)`.;..)J.;FERTIG, WARTE AUF TASTEN
DRUCK.....)T.;.V)~.WARTETAST JSRGETIN..)
.. BEQWARTETAST..).. CMP#32..*.. BEQWART
ETAST..*..;.8*..;UND KEHRE VON DER UNTER
ROUTINE ZURUECK.>*..;.N*D.AUSGANG RTS.T*
N.;.Z*X.;.`*..;.M*..FILENAME.W*...BY 8..
*...TX "TEXTFILE"...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL