ROUTINEN.SRC
FILE INFORMATION
FILENAME(S): ROUTINEN.SRC
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-10-20 00:40:16
APPEARS ON: 2 disk(s)
FILE HASH
d6d74816a36925a26e31391437d8ecaff341a636b9c20386e99db9281a4cef9a
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90570 S B | ROUTINEN.SRC | PRG | Treasure Chest - Joker79 | 3 | 5 | DOWNLOAD FILE |
| 90461 SEITE2 | ROUTINEN.SRC | PRG | DuncanTwain | 16 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E7 1F 0A 00 3B 2E 4C 49 20 34 2C 34 2C 30 |......;.LI 4,4,0|
00000010: 00 0B 20 0F 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. ..;----------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000030: 2D 2D 2D 2D 00 2F 20 14 00 3B 2D 20 20 20 20 20 |----./ ..;- |
00000040: 20 36 34 27 45 52 20 47 45 4F 53 20 4B 55 52 53 | 64'ER GEOS KURS|
00000050: 20 20 20 20 20 20 20 2D 00 53 20 19 00 3B 2D 20 | -.S ..;- |
00000060: 4D 41 53 43 48 49 4E 45 4E 43 4F 44 45 20 2D 20 |MASCHINENCODE - |
00000070: 51 55 45 4C 4C 43 4F 44 45 20 20 2D 00 77 20 1E |QUELLCODE -.w .|
00000080: 00 3B 2D 20 46 55 45 52 20 44 49 53 4B 20 4D 4F |.;- FUER DISK MO|
00000090: 4E 49 54 4F 52 20 55 4E 44 20 47 46 46 20 20 2D |NITOR UND GFF -|
000000A0: 00 9B 20 23 00 3B 2D 20 54 2E 50 45 54 52 4F 57 |.. #.;- T.PETROW|
000000B0: 53 4B 49 20 32 30 2E 31 30 2E 38 36 20 56 31 2E |SKI 20.10.86 V1.|
000000C0: 33 20 20 2D 00 BF 20 28 00 3B 2D 20 20 28 43 29 |3 -.. (.;- (C)|
000000D0: 4D 41 52 4B 54 26 54 45 43 48 4E 49 4B 2F 36 34 |MARKT&TECHNIK/64|
000000E0: 27 45 52 20 20 20 20 2D 00 E3 20 2D 00 3B 2D 2D |'ER -.. -.;--|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E9 20 32 |------------.. 2|
00000110: 00 3B 00 09 21 37 00 3B 20 2D 2D 2D 4C 41 42 45 |.;..!7.; ---LABE|
00000120: 4C 56 45 52 45 49 4E 42 41 52 55 4E 47 45 4E 2D |LVEREINBARUNGEN-|
00000130: 2D 2D 00 0F 21 3C 00 3B 00 33 21 41 00 2E 42 41 |--..!<.;.3!A..BA|
00000140: 20 24 43 30 30 30 20 20 3B 20 53 54 41 52 54 41 | $C000 ; STARTA|
00000150: 44 52 45 53 53 45 20 24 43 30 30 30 00 50 21 46 |DRESSE $C000.P!F|
00000160: 00 2E 47 4C 20 43 48 4B 49 4E 20 20 20 20 20 3D |..GL CHKIN =|
00000170: 20 24 46 46 43 36 20 20 3B 00 71 21 4B 00 2E 47 | $FFC6 ;.q!K..G|
00000180: 4C 20 42 53 49 4E 20 20 20 20 20 20 3D 20 24 46 |L BSIN = $F|
00000190: 46 43 46 20 20 3B 42 49 4F 53 00 96 21 50 00 2E |FCF ;BIOS..!P..|
000001A0: 47 4C 20 43 4C 52 43 48 20 20 20 20 20 3D 20 24 |GL CLRCH = $|
000001B0: 46 46 43 43 20 20 3B 52 4F 55 54 49 4E 45 4E 00 |FFCC ;ROUTINEN.|
000001C0: B3 21 55 00 2E 47 4C 20 42 53 4F 55 54 20 20 20 |.!U..GL BSOUT |
000001D0: 20 20 3D 20 24 46 46 44 32 20 20 3B 00 D3 21 5A | = $FFD2 ;..!Z|
000001E0: 00 2E 47 4C 20 54 4F 41 53 43 20 20 20 20 20 3D |..GL TOASC =|
000001F0: 20 24 42 44 44 31 20 20 3B 55 4E 44 00 F8 21 5F | $BDD1 ;UND..!_|
00000200: 00 2E 47 4C 20 43 48 4B 4F 55 54 20 20 20 20 3D |..GL CHKOUT =|
00000210: 20 24 46 46 43 39 20 20 3B 57 49 43 48 54 49 47 | $FFC9 ;WICHTIG|
00000220: 45 00 15 22 64 00 2E 47 4C 20 42 47 52 20 20 20 |E.."d..GL BGR |
00000230: 20 20 20 20 3D 20 24 44 30 32 30 20 20 3B 00 3B | = $D020 ;.;|
00000240: 22 69 00 2E 47 4C 20 42 55 46 46 20 20 20 20 20 |"i..GL BUFF |
00000250: 20 3D 20 24 43 32 30 30 20 20 3B 53 50 45 49 43 | = $C200 ;SPEIC|
00000260: 48 45 52 2D 00 60 22 6E 00 2E 47 4C 20 54 41 42 |HER-.`"n..GL TAB|
00000270: 4C 45 20 20 20 20 20 3D 20 24 43 33 30 30 20 20 |LE = $C300 |
00000280: 20 3B 53 54 45 4C 4C 45 4E 00 7D 22 73 00 2E 47 | ;STELLEN.}"s..G|
00000290: 4C 20 43 48 4B 43 4F 4D 20 20 20 20 3D 20 24 41 |L CHKCOM = $A|
000002A0: 45 46 44 20 20 3B 00 9D 22 78 00 2E 47 4C 20 47 |EFD ;.."x..GL G|
000002B0: 45 54 42 59 54 20 20 20 20 3D 20 24 42 37 39 45 |ETBYT = $B79E|
000002C0: 20 20 3B 44 45 52 00 BE 22 7D 00 2E 47 4C 20 46 | ;DER.."}..GL F|
000002D0: 52 45 53 54 52 20 20 20 20 3D 20 24 42 36 41 33 |RESTR = $B6A3|
000002E0: 20 20 3B 36 35 31 30 00 DB 22 82 00 2E 47 4C 20 | ;6510.."...GL |
000002F0: 53 54 52 52 45 53 20 20 20 20 3D 20 24 42 34 37 |STRRES = $B47|
00000300: 35 20 20 3B 00 00 23 87 00 2E 47 4C 20 46 49 4E |5 ;..#...GL FIN|
00000310: 44 56 41 52 20 20 20 3D 20 24 42 30 38 42 20 20 |DVAR = $B08B |
00000320: 3B 52 4F 55 54 49 4E 45 4E 00 1D 23 8C 00 2E 47 |;ROUTINEN..#...G|
00000330: 4C 20 47 45 54 50 41 52 41 4D 53 20 3D 20 24 41 |L GETPARAMS = $A|
00000340: 44 39 45 20 20 3B 00 3D 23 91 00 2E 47 4C 20 56 |D9E ;.=#...GL V|
00000350: 41 52 4D 45 4D 20 20 20 20 3D 20 20 20 24 34 39 |ARMEM = $49|
00000360: 20 20 3B 44 45 53 00 57 23 96 00 2E 47 4C 20 46 | ;DES.W#...GL F|
00000370: 52 4D 4E 55 4D 20 20 20 20 3D 20 24 41 44 38 41 |RMNUM = $AD8A|
00000380: 00 71 23 9B 00 2E 47 4C 20 47 45 54 41 44 52 20 |.q#...GL GETADR |
00000390: 20 20 20 3D 20 24 42 37 46 37 00 94 23 A0 00 2E | = $B7F7..#...|
000003A0: 47 4C 20 44 4C 50 20 20 20 20 20 20 20 3D 20 20 |GL DLP = |
000003B0: 20 24 36 31 20 20 3B 4B 55 52 53 45 53 00 B1 23 | $61 ;KURSES..#|
000003C0: A5 00 2E 47 4C 20 4F 4C 44 41 44 52 20 20 20 20 |...GL OLDADR |
000003D0: 3D 20 20 20 24 36 34 20 20 3B 00 CB 23 AA 00 2E |= $64 ;..#...|
000003E0: 47 4C 20 4C 45 4E 20 20 20 20 20 20 20 3D 20 20 |GL LEN = |
000003F0: 20 24 32 34 00 E5 23 AF 00 2E 47 4C 20 4E 45 57 | $24..#...GL NEW|
00000400: 41 44 52 20 20 20 20 3D 20 20 20 24 30 34 00 FF |ADR = $04..|
00000410: 23 B4 00 2E 47 4C 20 4C 4F 57 42 59 54 45 20 20 |#...GL LOWBYTE |
00000420: 20 3D 20 20 20 24 31 34 00 19 24 B9 00 2E 47 4C | = $14..$...GL|
00000430: 20 48 49 47 48 42 59 54 45 20 20 3D 20 20 20 24 | HIGHBYTE = $|
00000440: 31 35 00 4A 24 BE 00 2E 47 4C 20 50 4F 49 4E 54 |15.J$...GL POINT|
00000450: 20 20 20 20 20 3D 20 20 20 20 34 36 20 20 3B 20 | = 46 ; |
00000460: 41 53 43 49 49 20 43 4F 44 45 20 46 55 45 52 20 |ASCII CODE FUER |
00000470: 22 2E 22 00 6D 24 C3 00 2E 47 4C 20 53 50 41 43 |".".m$...GL SPAC|
00000480: 45 20 20 20 20 20 3D 20 20 20 20 33 32 20 20 3B |E = 32 ;|
00000490: 20 53 50 41 43 45 00 90 24 C8 00 2E 47 4C 20 53 | SPACE..$...GL S|
000004A0: 54 41 52 20 20 20 20 20 20 3D 20 20 20 20 34 32 |TAR = 42|
000004B0: 20 20 3B 20 53 54 45 52 4E 00 BD 24 C9 00 2E 47 | ; STERN..$...G|
000004C0: 4C 20 53 50 52 4D 45 4D 20 20 20 20 3D 20 20 20 |L SPRMEM = |
000004D0: 38 33 32 20 20 3B 20 53 50 52 49 54 45 20 42 4C |832 ; SPRITE BL|
000004E0: 4F 43 4B 20 31 33 00 E4 24 CA 00 2E 47 4C 20 20 |OCK 13..$...GL |
000004F0: 20 20 53 50 52 4D 45 4D 3D 38 33 32 3B 20 53 50 | SPRMEM=832; SP|
00000500: 52 49 54 45 20 42 4C 4F 43 4B 20 31 33 00 EA 24 |RITE BLOCK 13..$|
00000510: CD 00 3B 00 09 25 D2 00 3B 20 2D 2D 2D 42 4C 4F |..;..%..; ---BLO|
00000520: 43 4B 20 49 4E 20 43 36 34 20 4C 45 53 45 4E 2D |CK IN C64 LESEN-|
00000530: 2D 2D 00 20 25 D7 00 42 52 45 41 44 20 4C 44 58 |--. %..BREAD LDX|
00000540: 23 24 30 32 3B 20 43 4D 44 00 35 25 DC 00 20 4A |#$02; CMD.5%.. J|
00000550: 53 52 43 48 4B 49 4E 3B 20 41 55 46 20 32 00 47 |SRCHKIN; AUF 2.G|
00000560: 25 E1 00 20 4C 44 58 23 24 30 30 3B 20 58 2F 59 |%.. LDX#$00; X/Y|
00000570: 00 5E 25 E6 00 20 4C 44 59 23 24 30 30 3B 20 4C |.^%.. LDY#$00; L|
00000580: 4F 45 53 43 48 45 4E 00 74 25 EB 00 47 45 54 20 |OESCHEN.t%..GET |
00000590: 4A 53 52 42 53 49 4E 3B 20 42 59 54 45 00 8E 25 |JSRBSIN; BYTE..%|
000005A0: F0 00 20 53 54 41 42 55 46 46 2C 58 3B 20 49 4E |.. STABUFF,X; IN|
000005B0: 20 50 55 46 46 45 52 00 BC 25 F5 00 20 53 54 41 | PUFFER..%.. STA|
000005C0: 42 47 52 3B 20 57 45 52 54 20 49 4E 20 46 41 52 |BGR; WERT IN FAR|
000005D0: 42 53 50 45 49 43 48 45 52 20 48 49 4E 54 45 52 |BSPEICHER HINTER|
000005E0: 47 52 55 4E 44 00 CC 25 FA 00 20 49 4E 58 3B 20 |GRUND..%.. INX; |
000005F0: 58 3D 58 2B 31 00 DC 25 FF 00 20 44 45 59 3B 20 |X=X+1..%.. DEY; |
00000600: 59 3D 59 2D 31 00 F1 25 04 01 20 42 4E 45 47 45 |Y=Y-1..%.. BNEGE|
00000610: 54 3B 20 59 20 3D 20 30 20 3F 00 10 26 09 01 20 |T; Y = 0 ?..&.. |
00000620: 4A 4D 50 43 4C 52 43 48 3B 20 4A 41 2C 43 4D 44 |JMPCLRCH; JA,CMD|
00000630: 20 4C 4F 45 53 43 48 45 4E 00 16 26 0E 01 3B 00 | LOESCHEN..&..;.|
00000640: 34 26 13 01 3B 20 2D 2D 2D 43 36 34 20 50 55 46 |4&..; ---C64 PUF|
00000650: 46 45 52 20 5A 45 49 47 45 4E 2D 2D 2D 00 4B 26 |FER ZEIGEN---.K&|
00000660: 18 01 42 53 48 4F 57 20 4C 44 59 23 24 30 30 3B |..BSHOW LDY#$00;|
00000670: 20 59 3D 30 00 76 26 1D 01 53 48 4F 57 20 4C 44 | Y=0.v&..SHOW LD|
00000680: 41 42 55 46 46 2C 59 3B 20 5A 45 49 43 48 45 4E |ABUFF,Y; ZEICHEN|
00000690: 20 41 55 53 20 44 45 4D 20 50 55 46 46 45 52 00 | AUS DEM PUFFER.|
000006A0: 8F 26 22 01 20 54 41 58 3B 20 49 4E 20 43 42 4D |.&". TAX; IN CBM|
000006B0: 20 5A 45 49 43 48 45 4E 00 AC 26 27 01 20 4C 44 | ZEICHEN..&'. LD|
000006C0: 41 54 41 42 4C 45 2C 58 3B 20 57 41 4E 44 45 4C |ATABLE,X; WANDEL|
000006D0: 4E 20 55 4E 44 00 C4 26 2C 01 20 4A 53 52 42 53 |N UND..&,. JSRBS|
000006E0: 4F 55 54 3B 20 41 55 53 47 45 42 45 4E 00 D4 26 |OUT; AUSGEBEN..&|
000006F0: 31 01 20 49 4E 59 3B 20 59 3D 59 2B 31 00 F3 26 |1. INY; Y=Y+1..&|
00000700: 36 01 20 42 4E 45 53 48 4F 57 3B 20 59 3D 30 20 |6. BNESHOW; Y=0 |
00000710: 28 55 45 42 45 52 4C 41 55 46 21 29 00 02 27 3B |(UEBERLAUF!)..';|
00000720: 01 20 52 54 53 3B 20 4A 41 20 21 00 08 27 40 01 |. RTS; JA !..'@.|
00000730: 3B 00 29 27 45 01 3B 20 2D 2D 2D 43 36 34 20 50 |;.)'E.; ---C64 P|
00000740: 55 46 46 45 52 20 49 4E 20 56 43 31 35 34 31 2D |UFFER IN VC1541-|
00000750: 2D 2D 00 45 27 4A 01 42 57 52 49 54 45 20 4C 44 |--.E'J.BWRITE LD|
00000760: 58 23 24 30 32 3B 20 43 4D 44 20 41 55 46 00 64 |X#$02; CMD AUF.d|
00000770: 27 4F 01 20 4A 53 52 43 48 4B 4F 55 54 3B 20 4B |'O. JSRCHKOUT; K|
00000780: 41 4E 41 4C 20 4E 55 4D 4D 45 52 20 32 00 78 27 |ANAL NUMMER 2.x'|
00000790: 54 01 20 4C 44 58 23 24 30 30 3B 20 58 20 3D 20 |T. LDX#$00; X = |
000007A0: 30 00 9D 27 59 01 57 52 49 54 45 20 4C 44 41 42 |0..'Y.WRITE LDAB|
000007B0: 55 46 46 2C 58 3B 20 42 59 54 45 20 41 55 53 20 |UFF,X; BYTE AUS |
000007C0: 50 55 46 46 45 52 00 C1 27 5E 01 20 4A 53 52 42 |PUFFER..'^. JSRB|
000007D0: 53 4F 55 54 3B 20 41 55 46 20 44 49 45 20 46 4C |SOUT; AUF DIE FL|
000007E0: 4F 50 50 59 20 47 45 42 45 4E 00 EC 27 63 01 20 |OPPY GEBEN..'c. |
000007F0: 49 4E 43 42 47 52 3B 20 55 4E 44 20 48 49 4E 54 |INCBGR; UND HINT|
00000800: 45 52 47 52 55 4E 44 46 41 52 42 45 20 45 52 48 |ERGRUNDFARBE ERH|
00000810: 4F 45 48 45 4E 00 FC 27 68 01 20 49 4E 58 3B 20 |OEHEN..'h. INX; |
00000820: 58 3D 58 2B 31 00 21 28 6D 01 20 42 4E 45 57 52 |X=X+1.!(m. BNEWR|
00000830: 49 54 45 3B 20 58 20 53 43 48 4F 4E 20 30 20 28 |ITE; X SCHON 0 (|
00000840: 55 45 42 45 52 4C 41 55 46 29 00 46 28 72 01 20 |UEBERLAUF).F(r. |
00000850: 4A 4D 50 43 4C 52 43 48 3B 20 4A 41 2C 43 4D 44 |JMPCLRCH; JA,CMD|
00000860: 20 4D 4F 44 55 53 20 4C 4F 45 53 43 48 45 4E 00 | MODUS LOESCHEN.|
00000870: 4C 28 77 01 3B 00 6E 28 7C 01 3B 20 2D 2D 2D 44 |L(w.;.n(|.; ---D|
00000880: 49 52 45 43 54 4F 52 59 20 5A 45 49 4C 45 20 4C |IRECTORY ZEILE L|
00000890: 45 53 45 4E 2D 2D 2D 00 89 28 81 01 44 52 45 41 |ESEN---..(..DREA|
000008A0: 44 20 4C 44 58 23 24 30 31 3B 20 43 4D 44 20 41 |D LDX#$01; CMD A|
000008B0: 55 46 00 97 28 86 01 20 4A 53 52 43 48 4B 49 4E |UF..(.. JSRCHKIN|
000008C0: 00 B0 28 8B 01 20 4A 53 52 42 53 49 4E 3B 20 42 |..(.. JSRBSIN; B|
000008D0: 59 54 45 20 48 4F 4C 45 4E 00 C7 28 90 01 20 42 |YTE HOLEN..(.. B|
000008E0: 45 51 45 4E 44 3B 20 43 48 52 24 28 30 29 20 3F |EQEND; CHR$(0) ?|
000008F0: 00 ED 28 95 01 20 4A 53 52 42 53 49 4E 3B 20 4E |..(.. JSRBSIN; N|
00000900: 45 49 4E 2C 5A 45 49 43 48 45 4E 20 55 45 42 45 |EIN,ZEICHEN UEBE|
00000910: 52 4C 45 53 45 4E 00 09 29 9A 01 20 4A 53 52 42 |RLESEN..).. JSRB|
00000920: 53 49 4E 3B 20 5A 45 49 43 48 45 4E 20 48 4F 4C |SIN; ZEICHEN HOL|
00000930: 45 4E 00 2A 29 9F 01 20 53 54 41 24 36 33 3B 20 |EN.*).. STA$63; |
00000940: 55 4E 44 20 41 4C 53 20 41 55 53 47 41 42 45 43 |UND ALS AUSGABEC|
00000950: 4F 44 45 00 44 29 A4 01 20 4A 53 52 42 53 49 4E |ODE.D).. JSRBSIN|
00000960: 3B 20 56 4F 52 42 45 52 45 49 54 45 4E 00 50 29 |; VORBEREITEN.P)|
00000970: A9 01 20 53 54 41 24 36 32 00 74 29 AE 01 20 4A |.. STA$62.t).. J|
00000980: 53 52 54 4F 41 53 43 3B 20 55 4E 44 20 4A 45 54 |SRTOASC; UND JET|
00000990: 5A 54 20 41 55 53 47 45 42 45 4E 20 21 00 94 29 |ZT AUSGEBEN !..)|
000009A0: B3 01 52 45 41 44 20 4A 53 52 42 53 49 4E 3B 20 |..READ JSRBSIN; |
000009B0: 5A 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 B6 29 |ZEICHEN HOLEN..)|
000009C0: B8 01 20 42 45 51 45 4E 44 3B 20 43 48 52 24 28 |.. BEQEND; CHR$(|
000009D0: 30 29 20 28 5A 45 49 4C 45 4E 45 4E 44 45 29 00 |0) (ZEILENENDE).|
000009E0: C8 29 BD 01 20 54 41 58 3B 20 4E 45 49 4E 2C 49 |.).. TAX; NEIN,I|
000009F0: 4E 00 EA 29 C2 01 20 4C 44 41 54 41 42 4C 45 2C |N..).. LDATABLE,|
00000A00: 58 3B 20 43 42 4D 20 43 4F 44 45 20 57 41 4E 44 |X; CBM CODE WAND|
00000A10: 45 4C 4E 00 07 2A C7 01 20 4A 53 52 42 53 4F 55 |ELN..*.. JSRBSOU|
00000A20: 54 3B 20 55 4E 44 20 41 55 53 47 45 42 45 4E 21 |T; UND AUSGEBEN!|
00000A30: 00 2F 2A CC 01 20 4A 4D 50 52 45 41 44 3B 20 5A |./*.. JMPREAD; Z|
00000A40: 55 52 55 45 43 4B 20 5A 55 52 20 52 45 41 44 20 |URUECK ZUR READ |
00000A50: 53 43 48 4C 45 49 46 45 00 5B 2A D1 01 45 4E 44 |SCHLEIFE.[*..END|
00000A60: 20 4A 4D 50 43 4C 52 43 48 3B 20 45 4E 44 45 2C | JMPCLRCH; ENDE,|
00000A70: 43 4D 44 20 4C 4F 45 53 43 48 45 4E 20 55 4E 44 |CMD LOESCHEN UND|
00000A80: 20 52 54 53 00 61 2A D6 01 3B 00 7E 2A DB 01 3B | RTS.a*..;.~*..;|
00000A90: 20 2D 2D 2D 53 50 45 49 43 48 45 52 2D 3E 53 54 | ---SPEICHER->ST|
00000AA0: 52 49 4E 47 2D 2D 2D 00 9A 2A E0 01 53 52 45 41 |RING---..*..SREA|
00000AB0: 44 20 4C 44 41 4C 4F 57 42 59 54 45 3B 20 24 30 |D LDALOWBYTE; $0|
00000AC0: 30 31 34 00 AB 2A E5 01 20 50 48 41 3B 20 55 4E |014..*.. PHA; UN|
00000AD0: 44 20 31 35 00 C4 2A EA 01 20 4C 44 41 48 49 47 |D 15..*.. LDAHIG|
00000AE0: 48 42 59 54 45 3B 20 52 45 54 54 45 4E 00 CD 2A |HBYTE; RETTEN..*|
00000AF0: EF 01 20 50 48 41 00 E5 2A F4 01 20 4A 53 52 43 |.. PHA..*.. JSRC|
00000B00: 48 4B 43 4F 4D 3B 20 4B 4F 4D 4D 41 20 3F 00 06 |HKCOM; KOMMA ?..|
00000B10: 2B F9 01 20 4A 53 52 46 52 4D 4E 55 4D 3B 20 4A |+.. JSRFRMNUM; J|
00000B20: 41 2C 41 44 52 45 53 53 45 20 48 4F 4C 45 4E 00 |A,ADRESSE HOLEN.|
00000B30: 2E 2B FE 01 20 4A 53 52 47 45 54 41 44 52 3B 20 |.+.. JSRGETADR; |
00000B40: 50 52 55 45 46 45 4E 20 55 4E 44 20 41 55 46 42 |PRUEFEN UND AUFB|
00000B50: 45 52 45 49 54 45 4E 00 52 2B 03 02 20 4C 44 41 |EREITEN.R+.. LDA|
00000B60: 4C 4F 57 42 59 54 45 3B 20 24 31 34 2F 31 35 20 |LOWBYTE; $14/15 |
00000B70: 55 45 42 45 52 54 52 41 47 45 4E 00 62 2B 08 02 |UEBERTRAGEN.b+..|
00000B80: 20 53 54 41 46 45 54 43 48 2B 31 00 73 2B 0D 02 | STAFETCH+1.s+..|
00000B90: 20 4C 44 41 48 49 47 48 42 59 54 45 00 83 2B 12 | LDAHIGHBYTE..+.|
00000BA0: 02 20 53 54 41 46 45 54 43 48 2B 32 00 9D 2B 17 |. STAFETCH+2..+.|
00000BB0: 02 20 50 4C 41 3B 20 47 45 52 45 54 54 45 54 45 |. PLA; GERETTETE|
00000BC0: 4E 20 57 45 52 54 00 B6 2B 1C 02 20 53 54 41 48 |N WERT..+.. STAH|
00000BD0: 49 47 48 42 59 54 45 3B 20 57 49 45 44 45 52 00 |IGHBYTE; WIEDER.|
00000BE0: CA 2B 21 02 20 50 4C 41 3B 20 45 49 4E 53 45 54 |.+!. PLA; EINSET|
00000BF0: 5A 45 4E 00 DA 2B 26 02 20 53 54 41 4C 4F 57 42 |ZEN..+&. STALOWB|
00000C00: 59 54 45 00 F2 2B 2B 02 20 4A 53 52 43 48 4B 43 |YTE..++. JSRCHKC|
00000C10: 4F 4D 3B 20 4B 4F 4D 4D 41 20 3F 00 0D 2C 30 02 |OM; KOMMA ?..,0.|
00000C20: 20 4A 53 52 47 45 54 42 59 54 3B 20 42 59 54 45 | JSRGETBYT; BYTE|
00000C30: 20 48 4F 4C 45 4E 00 1C 2C 35 02 20 54 58 41 3B | HOLEN..,5. TXA;|
00000C40: 20 58 2D 3E 41 00 2E 2C 3A 02 20 50 48 41 3B 20 | X->A..,:. PHA; |
00000C50: 53 49 43 48 45 52 4E 00 46 2C 3F 02 20 4A 53 52 |SICHERN.F,?. JSR|
00000C60: 43 48 4B 43 4F 4D 3B 20 4B 4F 4D 4D 41 20 3F 00 |CHKCOM; KOMMA ?.|
00000C70: 6E 2C 44 02 20 4A 53 52 46 49 4E 44 56 41 52 3B |n,D. JSRFINDVAR;|
00000C80: 20 56 41 52 49 41 42 4C 45 4E 41 44 52 45 53 53 | VARIABLENADRESS|
00000C90: 45 20 48 4F 4C 45 4E 00 89 2C 49 02 20 53 54 41 |E HOLEN..,I. STA|
00000CA0: 56 41 52 4D 45 4D 3B 20 55 4E 44 20 4D 45 52 4B |VARMEM; UND MERK|
00000CB0: 45 4E 00 9A 2C 4E 02 20 53 54 59 56 41 52 4D 45 |EN..,N. STYVARME|
00000CC0: 4D 2B 31 00 B7 2C 53 02 20 4A 53 52 46 52 45 53 |M+1..,S. JSRFRES|
00000CD0: 54 52 3B 20 50 4C 41 54 5A 20 53 55 43 48 45 4E |TR; PLATZ SUCHEN|
00000CE0: 00 C0 2C 58 02 20 50 4C 41 00 E0 2C 5D 02 20 4A |..,X. PLA..,]. J|
00000CF0: 53 52 53 54 52 52 45 53 3B 20 55 4E 44 20 52 45 |SRSTRRES; UND RE|
00000D00: 53 45 52 56 49 45 52 45 4E 00 FE 2C 62 02 20 4C |SERVIEREN..,b. L|
00000D10: 44 59 23 24 30 32 3B 20 50 41 52 41 4D 45 54 45 |DY#$02; PARAMETE|
00000D20: 52 2D 42 4C 4F 43 4B 00 1E 2D 67 02 53 54 4F 52 |R-BLOCK..-g.STOR|
00000D30: 45 20 4C 44 41 44 4C 50 2C 59 3B 20 55 45 42 45 |E LDADLP,Y; UEBE|
00000D40: 52 54 52 41 47 45 4E 00 31 2D 6C 02 20 53 54 41 |RTRAGEN.1-l. STA|
00000D50: 28 56 41 52 4D 45 4D 29 2C 59 00 3A 2D 71 02 20 |(VARMEM),Y.:-q. |
00000D60: 44 45 59 00 48 2D 76 02 20 42 50 4C 53 54 4F 52 |DEY.H-v. BPLSTOR|
00000D70: 45 00 51 2D 7B 02 20 49 4E 59 00 7B 2D 80 02 46 |E.Q-{. INY.{-..F|
00000D80: 45 54 43 48 20 4C 44 41 24 46 46 46 46 3B 20 57 |ETCH LDA$FFFF; W|
00000D90: 45 52 54 20 41 55 53 20 44 45 4D 20 53 50 45 49 |ERT AUS DEM SPEI|
00000DA0: 43 48 45 52 00 84 2D 85 02 20 54 41 58 00 94 2D |CHER..-.. TAX..-|
00000DB0: 8A 02 20 4C 44 41 54 41 42 4C 45 2C 58 00 B5 2D |.. LDATABLE,X..-|
00000DC0: 8F 02 20 53 54 41 28 44 4C 50 2B 31 29 2C 59 3B |.. STA(DLP+1),Y;|
00000DD0: 20 49 4E 20 44 45 4E 20 53 54 52 49 4E 47 00 CE | IN DEN STRING..|
00000DE0: 2D 94 02 20 49 4E 43 46 45 54 43 48 2B 31 3B 20 |-.. INCFETCH+1; |
00000DF0: 55 4E 44 20 44 45 4E 00 EB 2D 99 02 20 42 4E 45 |UND DEN..-.. BNE|
00000E00: 4E 45 58 54 3B 20 31 36 2D 42 49 54 20 5A 41 45 |NEXT; 16-BIT ZAE|
00000E10: 48 4C 45 52 00 05 2E 9E 02 20 49 4E 43 46 45 54 |HLER..... INCFET|
00000E20: 43 48 2B 32 3B 20 45 52 48 4F 45 48 45 4E 00 19 |CH+2; ERHOEHEN..|
00000E30: 2E A3 02 4E 45 58 54 20 49 4E 59 3B 20 59 3D 59 |...NEXT INY; Y=Y|
00000E40: 2B 31 00 33 2E A8 02 20 43 50 59 44 4C 50 3B 20 |+1.3... CPYDLP; |
00000E50: 53 43 48 4F 4E 20 45 4E 44 45 20 3F 00 4F 2E AD |SCHON ENDE ?.O..|
00000E60: 02 20 42 4E 45 46 45 54 43 48 3B 20 4E 4F 43 48 |. BNEFETCH; NOCH|
00000E70: 20 4E 49 43 48 54 20 21 00 62 2E B2 02 20 52 54 | NICHT !.b... RT|
00000E80: 53 3B 20 54 53 43 48 4F 45 20 21 00 68 2E B7 02 |S; TSCHOE !.h...|
00000E90: 3B 00 85 2E BC 02 3B 20 2D 2D 2D 53 54 52 49 4E |;.....; ---STRIN|
00000EA0: 47 2D 3E 53 50 45 49 43 48 45 52 2D 2D 2D 00 A3 |G->SPEICHER---..|
00000EB0: 2E C1 02 53 57 52 49 54 45 20 4A 53 52 43 48 4B |...SWRITE JSRCHK|
00000EC0: 43 4F 4D 3B 20 4B 4F 4D 4D 41 20 3F 00 C4 2E C6 |COM; KOMMA ?....|
00000ED0: 02 20 4A 53 52 46 52 4D 4E 55 4D 3B 20 4A 41 2C |. JSRFRMNUM; JA,|
00000EE0: 41 44 52 45 53 53 45 20 48 4F 4C 45 4E 00 E4 2E |ADRESSE HOLEN...|
00000EF0: CB 02 20 4A 53 52 47 45 54 41 44 52 3B 20 55 4E |.. JSRGETADR; UN|
00000F00: 44 20 41 55 46 42 45 52 45 49 54 45 4E 00 FC 2E |D AUFBEREITEN...|
00000F10: D0 02 20 4A 53 52 43 48 4B 43 4F 4D 3B 20 4B 4F |.. JSRCHKCOM; KO|
00000F20: 4D 4D 41 20 3F 00 25 2F D5 02 20 4A 53 52 47 45 |MMA ?.%/.. JSRGE|
00000F30: 54 50 41 52 41 4D 53 3B 20 53 54 52 49 4E 47 50 |TPARAMS; STRINGP|
00000F40: 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 4E 00 37 |ARAMETER HOLEN.7|
00000F50: 2F DA 02 20 4C 44 59 23 24 30 30 3B 20 55 4E 44 |/.. LDY#$00; UND|
00000F60: 00 57 2F DF 02 20 4C 44 41 28 4F 4C 44 41 44 52 |.W/.. LDA(OLDADR|
00000F70: 29 2C 59 3B 20 55 45 42 45 52 54 52 41 47 45 4E |),Y; UEBERTRAGEN|
00000F80: 00 63 2F E4 02 20 53 54 41 4C 45 4E 00 6C 2F E9 |.c/.. STALEN.l/.|
00000F90: 02 20 49 4E 59 00 7F 2F EE 02 20 4C 44 41 28 4F |. INY../.. LDA(O|
00000FA0: 4C 44 41 44 52 29 2C 59 00 8E 2F F3 02 20 53 54 |LDADR),Y../.. ST|
00000FB0: 41 4E 45 57 41 44 52 00 97 2F F8 02 20 49 4E 59 |ANEWADR../.. INY|
00000FC0: 00 AA 2F FD 02 20 4C 44 41 28 4F 4C 44 41 44 52 |../.. LDA(OLDADR|
00000FD0: 29 2C 59 00 BB 2F 02 03 20 53 54 41 4E 45 57 41 |),Y../.. STANEWA|
00000FE0: 44 52 2B 31 00 C8 2F 07 03 20 4C 44 59 23 24 30 |DR+1../.. LDY#$0|
00000FF0: 30 00 F5 2F 0C 03 53 57 4F 55 54 20 4C 44 41 28 |0../..SWOUT LDA(|
00001000: 4E 45 57 41 44 52 29 2C 59 3B 20 53 54 52 49 4E |NEWADR),Y; STRIN|
00001010: 47 5A 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 18 |GZEICHEN HOLEN..|
00001020: 30 11 03 20 43 4D 50 23 50 4F 49 4E 54 3B 20 49 |0.. CMP#POINT; I|
00001030: 53 54 20 45 53 20 45 49 4E 20 50 55 4E 4B 54 20 |ST ES EIN PUNKT |
00001040: 3F 00 3D 30 16 03 20 42 45 51 49 54 3B 20 4A 41 |?.=0.. BEQIT; JA|
00001050: 2C 44 41 4E 4E 20 4B 45 49 4E 45 20 55 4D 57 41 |,DANN KEINE UMWA|
00001060: 4E 44 4C 55 4E 47 00 59 30 1B 03 20 4C 44 58 23 |NDLUNG.Y0.. LDX#|
00001070: 24 46 46 3B 20 55 4E 44 20 50 41 53 53 45 4E 44 |$FF; UND PASSEND|
00001080: 45 53 00 84 30 20 03 53 45 41 52 43 48 20 43 4D |ES..0 .SEARCH CM|
00001090: 50 54 41 42 4C 45 2C 58 3B 20 47 45 4F 53 2D 5A |PTABLE,X; GEOS-Z|
000010A0: 45 49 43 48 45 4E 20 53 55 43 48 45 4E 00 9E 30 |EICHEN SUCHEN..0|
000010B0: 25 03 20 42 45 51 46 4F 55 4E 44 3B 20 47 45 46 |%. BEQFOUND; GEF|
000010C0: 55 4E 44 45 4E 20 3F 00 B3 30 2A 03 20 44 45 58 |UNDEN ?..0*. DEX|
000010D0: 3B 20 4E 45 49 4E 2C 58 3D 58 2D 31 00 CA 30 2F |; NEIN,X=X-1..0/|
000010E0: 03 20 42 4E 45 53 45 41 52 43 48 3B 20 58 3C 3E |. BNESEARCH; X<>|
000010F0: 30 20 3F 00 F6 30 34 03 46 4F 55 4E 44 20 54 58 |0 ?..04.FOUND TX|
00001100: 41 3B 20 4E 45 49 4E 2C 41 42 45 52 20 47 45 4F |A; NEIN,ABER GEO|
00001110: 53 2D 43 4F 44 45 20 47 45 46 55 4E 44 45 4E 00 |S-CODE GEFUNDEN.|
00001120: 1B 31 39 03 49 54 20 53 54 41 28 4C 4F 57 42 59 |.19.IT STA(LOWBY|
00001130: 54 45 29 2C 59 3B 20 55 4E 44 20 53 50 45 49 43 |TE),Y; UND SPEIC|
00001140: 48 45 52 4E 00 2B 31 3E 03 20 49 4E 59 3B 20 59 |HERN.+1>. INY; Y|
00001150: 3D 59 2B 31 00 4C 31 43 03 20 43 50 59 4C 45 4E |=Y+1.L1C. CPYLEN|
00001160: 3B 20 53 54 52 49 4E 47 45 4E 44 45 20 45 52 52 |; STRINGENDE ERR|
00001170: 45 49 43 48 54 00 60 31 48 03 20 42 4E 45 53 57 |EICHT.`1H. BNESW|
00001180: 4F 55 54 3B 20 4E 45 49 4E 00 6F 31 4D 03 20 52 |OUT; NEIN.o1M. R|
00001190: 54 53 3B 20 45 4E 44 45 00 75 31 52 03 3B 00 90 |TS; ENDE.u1R.;..|
000011A0: 31 57 03 3B 20 2D 2D 2D 42 59 54 45 20 41 55 46 |1W.; ---BYTE AUF|
000011B0: 4C 4F 45 53 45 4E 2D 2D 2D 00 A8 31 5C 03 20 4A |LOESEN---..1\. J|
000011C0: 53 52 43 48 4B 43 4F 4D 3B 20 4B 4F 4D 4D 41 20 |SRCHKCOM; KOMMA |
000011D0: 3F 00 C6 31 61 03 20 4A 53 52 47 45 54 42 59 54 |?..1a. JSRGETBYT|
000011E0: 3B 20 4A 41 2C 57 45 52 54 20 48 4F 4C 45 4E 00 |; JA,WERT HOLEN.|
000011F0: DE 31 66 03 20 53 54 58 44 4C 50 3B 20 55 4E 44 |.1f. STXDLP; UND|
00001200: 20 4D 45 52 4B 45 4E 00 F5 31 6B 03 20 4C 44 58 | MERKEN..1k. LDX|
00001210: 23 24 30 38 3B 20 38 20 42 49 54 53 20 21 00 11 |#$08; 8 BITS !..|
00001220: 32 70 03 52 4F 4C 4C 20 4C 44 41 44 4C 50 3B 20 |2p.ROLL LDADLP; |
00001230: 57 45 52 54 20 48 4F 4C 45 4E 00 41 32 75 03 20 |WERT HOLEN.A2u. |
00001240: 41 4E 44 42 49 54 53 2D 31 2C 58 3B 20 55 4E 44 |ANDBITS-1,X; UND|
00001250: 20 41 55 46 20 41 4B 54 55 45 4C 4C 45 53 20 42 | AUF AKTUELLES B|
00001260: 49 54 20 50 52 55 45 46 45 4E 00 5A 32 7A 03 20 |IT PRUEFEN.Z2z. |
00001270: 42 4E 45 59 45 53 3B 20 49 53 54 20 47 45 53 45 |BNEYES; IST GESE|
00001280: 54 5A 54 00 75 32 7F 03 4E 4F 20 4C 44 41 23 53 |TZT.u2..NO LDA#S|
00001290: 50 41 43 45 3B 20 41 55 53 47 41 42 45 3A 00 8B |PACE; AUSGABE:..|
000012A0: 32 84 03 20 4A 4D 50 4E 45 58 54 52 3B 20 57 45 |2.. JMPNEXTR; WE|
000012B0: 49 54 45 52 00 A7 32 89 03 59 45 53 20 4C 44 41 |ITER..2..YES LDA|
000012C0: 23 53 54 41 52 3B 20 41 55 53 47 41 42 45 20 3A |#STAR; AUSGABE :|
000012D0: 00 C3 32 8E 03 4E 45 58 54 52 20 4A 53 52 42 53 |..2..NEXTR JSRBS|
000012E0: 4F 55 54 3B 20 47 45 53 45 54 5A 54 00 D3 32 93 |OUT; GESETZT..2.|
000012F0: 03 20 44 45 58 3B 20 58 3D 58 2D 31 00 E7 32 98 |. DEX; X=X-1..2.|
00001300: 03 20 42 4E 45 52 4F 4C 4C 3B 20 58 3D 30 20 3F |. BNEROLL; X=0 ?|
00001310: 00 F9 32 9D 03 20 52 54 53 3B 20 4A 41 2C 45 4E |..2.. RTS; JA,EN|
00001320: 44 45 00 FF 32 A2 03 3B 00 2A 33 A7 03 42 49 54 |DE..2..;.*3..BIT|
00001330: 53 20 2E 42 59 31 2C 32 2C 34 2C 38 2C 31 36 2C |S .BY1,2,4,8,16,|
00001340: 33 32 2C 36 34 2C 31 32 38 3B 20 42 49 54 57 45 |32,64,128; BITWE|
00001350: 52 54 45 00 4A 33 DE 03 3B 20 2D 2D 2D 20 53 50 |RTE.J3..; --- SP|
00001360: 52 49 54 45 20 55 4D 4B 4F 50 49 45 52 45 4E 20 |RITE UMKOPIEREN |
00001370: 2D 2D 2D 00 5D 33 E8 03 53 4F 4F 54 20 4A 53 52 |---.]3..SOOT JSR|
00001380: 43 48 4B 43 4F 4D 00 6C 33 ED 03 20 4A 53 52 47 |CHKCOM.l3.. JSRG|
00001390: 45 54 42 59 54 00 78 33 F2 03 20 4C 44 59 23 30 |ETBYT.x3.. LDY#0|
000013A0: 30 00 8B 33 FC 03 4C 4F 4F 50 20 4C 44 41 42 55 |0..3..LOOP LDABU|
000013B0: 46 46 2C 58 00 9C 33 06 04 20 53 54 41 53 50 52 |FF,X..3.. STASPR|
000013C0: 4D 45 4D 2C 59 00 A5 33 10 04 20 49 4E 58 00 AE |MEM,Y..3.. INX..|
000013D0: 33 1A 04 20 49 4E 59 00 BA 33 24 04 20 43 50 59 |3.. INY..3$. CPY|
000013E0: 23 36 34 00 C7 33 2E 04 20 42 4E 45 4C 4F 4F 50 |#64..3.. BNELOOP|
000013F0: 00 D0 33 38 04 20 52 54 53 00 00 00 |..38. RTS... |
X.....;.LI 4,4,0.. ..;------------------
------------./ ..;- 64'ER GEOS KURS
-.S ..;- MASCHINENCODE - QUELLCOD
E -.W ..;- FUER DISK MONITOR UND GFF -
.. #.;- T.PETROWSKI 20.10.86 V1.3 -.. (
.;- (C)MARKT&TECHNIK/64'ER -.. -.;--
----------------------------.. 2.;..!7.;
---LABELVEREINBARUNGEN---..!<.;.3!A..BA
$C000 ; STARTADRESSE $C000.P!F..GL CHK
IN = $FFC6 ;.Q!K..GL BSIN = $F
FCF ;BIOS..!P..GL CLRCH = $FFCC ;R
OUTINEN..!U..GL BSOUT = $FFD2 ;.S!Z
..GL TOASC = $BDD1 ;UND..!_..GL CHK
OUT = $FFC9 ;WICHTIGE.."D..GL BGR
= $D020 ;.;"I..GL BUFF = $C200
;SPEICHER-.`"N..GL TABLE = $C300
;STELLEN.}"S..GL CHKCOM = $AEFD ;..
"X..GL GETBYT = $B79E ;DER.."}..GL F
RESTR = $B6A3 ;6510.."...GL STRRES
= $B475 ;..#...GL FINDVAR = $B08B
;ROUTINEN..#...GL GETPARAMS = $AD9E ;.=
#...GL VARMEM = $49 ;DES.W#...GL F
RMNUM = $AD8A.Q#...GL GETADR = $B7
F7..# ..GL DLP = $61 ;KURSES..#
...GL OLDADR = $64 ;.K#...GL LEN
= $24..#...GL NEWADR = $04..
#...GL LOWBYTE = $14..$...GL HIGHBYT
E = $15.J$...GL POINT = 46 ;
ASCII CODE FUER ".".M$C..GL SPACE =
32 ; SPACE..$H..GL STAR = 42
; STERN..$I..GL SPRMEM = 832 ; S
PRITE BLOCK 13..$J..GL SPRMEM=832; SP
RITE BLOCK 13..$M.;..%R.; ---BLOCK IN C6
4 LESEN---. %W.BREAD LDX#$02; CMD.5%.. J
SRCHKIN; AUF 2.G%.. LDX#$00; X/Y.^%.. LD
Y#$00; LOESCHEN.T%..GET JSRBSIN; BYTE..%
.. STABUFF,X; IN PUFFER..%.. STABGR; WER
T IN FARBSPEICHER HINTERGRUND.L%.. INX;
X=X+1..%.. DEY; Y=Y-1..%.. BNEGET; Y = 0
?..&.. JMPCLRCH; JA,CMD LOESCHEN..&..;.
4&..; ---C64 PUFFER ZEIGEN---.K&..BSHOW
LDY#$00; Y=0.V&..SHOW LDABUFF,Y; ZEICHEN
AUS DEM PUFFER..&". TAX; IN CBM ZEICHEN
..&'. LDATABLE,X; WANDELN UND.D&,. JSRBS
OUT; AUSGEBEN.T&1. INY; Y=Y+1..&6. BNESH
OW; Y=0 (UEBERLAUF!)..';. RTS; JA !..'@.
;.)'E.; ---C64 PUFFER IN VC1541---.E'J.B
WRITE LDX#$02; CMD AUF.D'O. JSRCHKOUT; K
ANAL NUMMER 2.X'T. LDX#$00; X = 0..'Y.WR
ITE LDABUFF,X; BYTE AUS PUFFER.A'^. JSRB
SOUT; AUF DIE FLOPPY GEBEN..'C. INCBGR;
UND HINTERGRUNDFARBE ERHOEHEN..'H. INX;
X=X+1.!(M. BNEWRITE; X SCHON 0 (UEBERLAU
F).F(R. JMPCLRCH; JA,CMD MODUS LOESCHEN.
L(W.;.N(|.; ---DIRECTORY ZEILE LESEN---.
.(..DREAD LDX#$01; CMD AUF..(.. JSRCHKIN
..(.. JSRBSIN; BYTE HOLEN.G(.. BEQEND; C
HR$(0) ?..(.. JSRBSIN; NEIN,ZEICHEN UEBE
RLESEN..).. JSRBSIN; ZEICHEN HOLEN.*)..
STA$63; UND ALS AUSGABECODE.D).. JSRBSIN
; VORBEREITEN.P).. STA$62.T).. JSRTOASC;
UND JETZT AUSGEBEN !..)..READ JSRBSIN;
ZEICHEN HOLEN..).. BEQEND; CHR$(0) (ZEIL
ENENDE).H).. TAX; NEIN,IN..)B. LDATABLE,
X; CBM CODE WANDELN..*G. JSRBSOUT; UND A
USGEBEN!./*L. JMPREAD; ZURUECK ZUR READ
SCHLEIFE.[*Q.END JMPCLRCH; ENDE,CMD LOES
CHEN UND RTS.A*V.;.~*..; ---SPEICHER->ST
RING---..*..SREAD LDALOWBYTE; $0014..*..
PHA; UND 15.D*.. LDAHIGHBYTE; RETTEN.M*
.. PHA..*.. JSRCHKCOM; KOMMA ?..+.. JSRF
RMNUM; JA,ADRESSE HOLEN..+.. JSRGETADR;
PRUEFEN UND AUFBEREITEN.R+.. LDALOWBYTE;
$14/15 UEBERTRAGEN.B+.. STAFETCH+1.S+..
LDAHIGHBYTE..+.. STAFETCH+2..+.. PLA; G
ERETTETEN WERT..+.. STAHIGHBYTE; WIEDER.
J+!. PLA; EINSETZEN.Z+&. STALOWBYTE..++.
JSRCHKCOM; KOMMA ?..,0. JSRGETBYT; BYTE
HOLEN..,5. TXA; X->A..,:. PHA; SICHERN.
F,?. JSRCHKCOM; KOMMA ?.N,D. JSRFINDVAR;
VARIABLENADRESSE HOLEN..,I. STAVARMEM;
UND MERKEN..,N. STYVARMEM+1..,S. JSRFRES
TR; PLATZ SUCHEN..,X. PLA..,]. JSRSTRRES
; UND RESERVIEREN..,B. LDY#$02; PARAMETE
R-BLOCK..-G.STORE LDADLP,Y; UEBERTRAGEN.
1-L. STA(VARMEM),Y.:-Q. DEY.H-V. BPLSTOR
E.Q-{. INY.{-..FETCH LDA$FFFF; WERT AUS
DEM SPEICHER..-.. TAX..-.. LDATABLE,X..-
.. STA(DLP+1),Y; IN DEN STRING.N-.. INCF
ETCH+1; UND DEN..-.. BNENEXT; 16-BIT ZAE
HLER..... INCFETCH+2; ERHOEHEN.....NEXT
INY; Y=Y+1.3... CPYDLP; SCHON ENDE ?.O..
. BNEFETCH; NOCH NICHT !.B... RTS; TSCHO
E !.H...;.....; ---STRING->SPEICHER---..
.A.SWRITE JSRCHKCOM; KOMMA ?.D.F. JSRFRM
NUM; JA,ADRESSE HOLEN...K. JSRGETADR; UN
D AUFBEREITEN...P. JSRCHKCOM; KOMMA ?.%/
U. JSRGETPARAMS; STRINGPARAMETER HOLEN.7
/Z. LDY#$00; UND.W/.. LDA(OLDADR),Y; UEB
ERTRAGEN.C/.. STALEN.L/.. INY./.. LDA(O
LDADR),Y../.. STANEWADR../.. INY../.. LD
A(OLDADR),Y../.. STANEWADR+1.H/.. LDY#$0
0../..SWOUT LDA(NEWADR),Y; STRINGZEICHEN
HOLEN..0.. CMP#POINT; IST ES EIN PUNKT
?.=0.. BEQIT; JA,DANN KEINE UMWANDLUNG.Y
0.. LDX#$FF; UND PASSENDES..0 .SEARCH CM
PTABLE,X; GEOS-ZEICHEN SUCHEN..0%. BEQFO
UND; GEFUNDEN ?..0*. DEX; NEIN,X=X-1.J0/
. BNESEARCH; X<>0 ?..04.FOUND TXA; NEIN,
ABER GEOS-CODE GEFUNDEN..19.IT STA(LOWBY
TE),Y; UND SPEICHERN.+1>. INY; Y=Y+1.L1C
. CPYLEN; STRINGENDE ERREICHT.`1H. BNESW
OUT; NEIN.O1M. RTS; ENDE.U1R.;..1W.; ---
BYTE AUFLOESEN---..1\. JSRCHKCOM; KOMMA
?.F1A. JSRGETBYT; JA,WERT HOLEN..1F. STX
DLP; UND MERKEN..1K. LDX#$08; 8 BITS !..
2P.ROLL LDADLP; WERT HOLEN.A2U. ANDBITS-
1,X; UND AUF AKTUELLES BIT PRUEFEN.Z2Z.
BNEYES; IST GESETZT.U2.NO LDA#SPACE; AU
SGABE:..2.. JMPNEXTR; WEITER..2..YES LDA
#STAR; AUSGABE :.C2..NEXTR JSRBSOUT; GES
ETZT.S2.. DEX; X=X-1..2.. BNEROLL; X=0 ?
..2.. RTS; JA,ENDE..2..;.*3..BITS .BY1,2
,4,8,16,32,64,128; BITWERTE.J3..; --- SP
RITE UMKOPIEREN ---.]3..SOOT JSRCHKCOM.L
3.. JSRGETBYT.X3.. LDY#00..3..LOOP LDABU
FF,X..3.. STASPRMEM,Y..3.. INX..3.. INY.
.3$. CPY#64.G3.. BNELOOP.P38. RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL