BASICERWEITERUNG
FILE INFORMATION
FILENAME(S): BASICERWEITERUNG
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
abbead6ee7a9c554952ab773256d818c38d9fb327f5b05d0559f54ef249b6b94
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | BASICERWEITERUNG | PRG | Treasure Chest - Klaus Der Suhler | 29 | 0 | DOWNLOAD FILE |
| 90571 | BASICERWEITERUNG | PRG | BrainSkull, Georg Fuchs 1988 | 29 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 2A 2D 0A 00 3B 42 41 53 49 43 45 52 57 45 |.-*-..;BASICERWE|
00000010: 49 54 45 52 55 4E 47 00 38 2D 0C 00 20 2E 42 41 |ITERUNG.8-.. .BA|
00000020: 24 36 43 36 32 00 3E 2D 0E 00 3B 00 51 2D 0F 00 |$6C62.>-..;.Q-..|
00000030: 20 4C 44 41 23 3C 28 4E 45 57 54 4F 4B 29 00 79 | LDA#<(NEWTOK).y|
00000040: 2D 10 00 20 4C 44 58 23 3E 28 4E 45 57 54 4F 4B |-.. LDX#>(NEWTOK|
00000050: 29 20 20 20 3B 4E 45 55 45 52 20 56 45 4B 54 4F |) ;NEUER VEKTO|
00000060: 52 20 46 55 45 52 00 9B 2D 11 00 20 53 54 41 24 |R FUER..-.. STA$|
00000070: 30 33 30 34 20 20 20 20 20 20 3B 55 4D 57 41 4E |0304 ;UMWAN|
00000080: 44 4C 55 4E 47 20 49 4E 00 BF 2D 12 00 20 53 54 |DLUNG IN..-.. ST|
00000090: 58 24 30 33 30 35 20 20 20 20 20 20 3B 49 4E 54 |X$0305 ;INT|
000000A0: 45 52 50 52 45 54 45 52 43 4F 44 45 00 D3 2D 13 |ERPRETERCODE..-.|
000000B0: 00 20 4C 44 41 23 3C 28 4E 45 57 4C 49 53 54 29 |. LDA#<(NEWLIST)|
000000C0: 00 FB 2D 14 00 20 4C 44 58 23 3E 28 4E 45 57 4C |..-.. LDX#>(NEWL|
000000D0: 49 53 54 29 20 20 3B 4E 45 55 45 52 20 56 45 4B |IST) ;NEUER VEK|
000000E0: 54 4F 52 20 46 55 45 52 00 1D 2E 15 00 20 53 54 |TOR FUER..... ST|
000000F0: 41 24 30 33 30 36 20 20 20 20 20 20 3B 55 4D 57 |A$0306 ;UMW|
00000100: 41 4E 44 4C 55 4E 47 20 49 4E 00 3A 2E 16 00 20 |ANDLUNG IN.:... |
00000110: 53 54 58 24 30 33 30 37 20 20 20 20 20 20 3B 4B |STX$0307 ;K|
00000120: 4C 41 52 54 45 58 54 00 4D 2E 17 00 20 4C 44 41 |LARTEXT.M... LDA|
00000130: 23 3C 28 4E 45 57 42 45 46 29 00 75 2E 18 00 20 |#<(NEWBEF).u... |
00000140: 4C 44 58 23 3E 28 4E 45 57 42 45 46 29 20 20 20 |LDX#>(NEWBEF) |
00000150: 3B 4E 45 55 45 52 20 56 45 4B 54 4F 52 20 46 55 |;NEUER VEKTOR FU|
00000160: 45 52 00 9B 2E 19 00 20 53 54 41 24 30 33 30 38 |ER..... STA$0308|
00000170: 20 20 20 20 20 20 3B 41 55 53 46 55 45 48 52 55 | ;AUSFUEHRU|
00000180: 4E 47 20 45 49 4E 45 53 00 BD 2E 1A 00 20 53 54 |NG EINES..... ST|
00000190: 58 24 30 33 30 39 20 20 20 20 20 20 3B 42 41 53 |X$0309 ;BAS|
000001A0: 49 43 2D 42 45 46 45 48 4C 53 00 C6 2E 1F 00 20 |IC-BEFEHLS..... |
000001B0: 52 54 53 00 CC 2E 22 00 3B 00 F4 2E 23 00 3B 4E |RTS...".;...#.;N|
000001C0: 45 55 45 20 55 4D 57 41 4E 44 4C 55 4E 47 20 49 |EUE UMWANDLUNG I|
000001D0: 4E 20 49 4E 54 45 52 50 52 45 54 45 52 43 4F 44 |N INTERPRETERCOD|
000001E0: 45 00 1C 2F 24 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |E../$.;=========|
000001F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 22 2F 25 00 3B 00 |=========."/%.;.|
00000210: 48 2F 26 00 20 2E 45 51 4C 45 45 52 20 3D 20 24 |H/&. .EQLEER = $|
00000220: 32 30 20 20 20 20 20 3B 43 4F 44 45 20 46 55 45 |20 ;CODE FUE|
00000230: 52 20 27 20 27 00 6E 2F 27 00 20 2E 45 51 48 4F |R ' '.n/'. .EQHO|
00000240: 43 48 20 3D 20 24 32 32 20 20 20 20 20 3B 43 4F |CH = $22 ;CO|
00000250: 44 45 20 46 55 45 52 20 27 22 27 00 98 2F 28 00 |DE FUER '"'../(.|
00000260: 20 2E 45 51 46 52 41 47 45 20 3D 20 24 33 46 20 | .EQFRAGE = $3F |
00000270: 20 20 20 3B 43 4F 44 45 20 46 55 45 52 20 27 50 | ;CODE FUER 'P|
00000280: 52 49 4E 54 27 00 BE 2F 29 00 20 2E 45 51 4E 55 |RINT'../). .EQNU|
00000290: 4C 4C 20 3D 20 24 33 30 20 20 20 20 20 3B 43 4F |LL = $30 ;CO|
000002A0: 44 45 20 46 55 45 52 20 27 30 27 00 E4 2F 2A 00 |DE FUER '0'../*.|
000002B0: 20 2E 45 51 4B 4C 45 49 4E 45 52 20 3D 20 24 33 | .EQKLEINER = $3|
000002C0: 43 20 20 3B 43 4F 44 45 20 46 55 45 52 20 27 3C |C ;CODE FUER '<|
000002D0: 27 00 0A 30 2B 00 20 2E 45 51 50 49 20 3D 20 24 |'..0+. .EQPI = $|
000002E0: 46 46 20 20 20 20 20 20 20 3B 43 4F 44 45 20 46 |FF ;CODE F|
000002F0: 55 45 52 20 27 FF 27 00 30 30 2C 00 20 2E 45 51 |UER '.'.00,. .EQ|
00000300: 44 4F 50 50 45 4C 20 3D 20 24 33 41 20 20 20 3B |DOPPEL = $3A ;|
00000310: 43 4F 44 45 20 46 55 45 52 20 22 3A 22 00 5A 30 |CODE FUER ":".Z0|
00000320: 2D 00 20 2E 45 51 50 52 49 4E 54 20 3D 20 24 39 |-. .EQPRINT = $9|
00000330: 39 20 20 20 20 3B 54 4F 4B 45 4E 20 56 4F 4E 20 |9 ;TOKEN VON |
00000340: 22 50 52 49 4E 54 22 00 83 30 2E 00 20 2E 45 51 |"PRINT"..0.. .EQ|
00000350: 44 41 54 41 20 3D 20 24 38 33 20 20 20 20 20 3B |DATA = $83 ;|
00000360: 54 4F 4B 45 4E 20 56 4F 4E 20 22 44 41 54 41 22 |TOKEN VON "DATA"|
00000370: 00 AB 30 2F 00 20 2E 45 51 52 45 4D 20 3D 20 24 |..0/. .EQREM = $|
00000380: 38 46 20 20 20 20 20 20 3B 54 4F 4B 45 4E 20 56 |8F ;TOKEN V|
00000390: 4F 4E 20 22 52 45 4D 22 00 C6 30 30 00 20 2E 45 |ON "REM"..00. .E|
000003A0: 51 44 41 44 4F 20 3D 20 44 41 54 41 2D 44 4F 50 |QDADO = DATA-DOP|
000003B0: 50 45 4C 00 E0 30 31 00 20 2E 45 51 52 45 44 4F |PEL..01. .EQREDO|
000003C0: 20 3D 20 52 45 4D 2D 44 4F 50 50 45 4C 00 0D 31 | = REM-DOPPEL..1|
000003D0: 32 00 20 2E 45 51 46 4C 41 47 20 3D 20 24 30 46 |2. .EQFLAG = $0F|
000003E0: 20 20 20 20 20 3B 46 4C 41 47 20 46 55 45 52 20 | ;FLAG FUER |
000003F0: 44 41 54 41 2D 4D 4F 44 55 53 00 3A 31 33 00 20 |DATA-MODUS.:13. |
00000400: 2E 45 51 5A 41 45 48 4C 45 52 20 3D 20 24 30 42 |.EQZAEHLER = $0B|
00000410: 20 20 3B 5A 41 45 48 4C 45 52 20 46 55 45 52 20 | ;ZAEHLER FUER |
00000420: 42 45 46 45 48 4C 45 00 5D 31 34 00 4E 45 57 54 |BEFEHLE.]14.NEWT|
00000430: 4F 4B 20 4C 44 58 24 37 41 3B 5A 45 49 47 45 52 |OK LDX$7A;ZEIGER|
00000440: 20 49 4E 20 50 55 46 46 45 52 00 86 31 35 00 20 | IN PUFFER..15. |
00000450: 4C 44 59 23 30 34 20 20 20 20 20 20 20 20 3B 5A |LDY#04 ;Z|
00000460: 45 49 47 45 52 20 49 4E 20 4E 45 55 45 20 5A 45 |EIGER IN NEUE ZE|
00000470: 49 4C 45 00 AE 31 36 00 20 53 54 59 46 4C 41 47 |ILE..16. STYFLAG|
00000480: 20 20 20 20 20 20 20 3B 44 41 54 41 2D 4D 4F 44 | ;DATA-MOD|
00000490: 55 53 20 4C 4F 45 53 43 48 45 4E 00 D4 31 37 00 |US LOESCHEN..17.|
000004A0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 |; (|
000004B0: 52 45 4C 45 56 41 4E 54 20 42 49 54 20 36 20 21 |RELEVANT BIT 6 !|
000004C0: 29 00 F6 31 38 00 4C 31 20 20 4C 44 41 20 24 30 |)..18.L1 LDA $0|
000004D0: 32 30 30 2C 58 3B 5A 45 49 43 48 45 4E 20 48 4F |200,X;ZEICHEN HO|
000004E0: 4C 45 4E 00 18 32 39 00 20 42 50 4C 41 55 53 20 |LEN..29. BPLAUS |
000004F0: 20 20 20 20 20 20 20 3B 55 4E 44 20 41 55 53 57 | ;UND AUSW|
00000500: 45 52 54 45 4E 00 39 32 3A 00 20 43 4D 50 23 50 |ERTEN.92:. CMP#P|
00000510: 49 20 20 20 20 20 20 20 20 3B 43 4F 44 45 20 46 |I ;CODE F|
00000520: 55 45 52 20 50 49 00 60 32 3B 00 20 42 45 51 55 |UER PI.`2;. BEQU|
00000530: 45 42 45 52 20 20 20 20 20 20 3B 4A 41 2C 20 53 |EBER ;JA, S|
00000540: 4F 20 55 45 42 45 52 4E 45 48 4D 45 4E 00 87 32 |O UEBERNEHMEN..2|
00000550: 3C 00 20 49 4E 58 20 20 20 20 20 20 20 20 20 20 |<. INX |
00000560: 20 3B 5A 45 49 43 48 45 4E 20 49 47 4E 4F 52 49 | ;ZEICHEN IGNORI|
00000570: 45 52 45 4E 00 A8 32 3D 00 20 42 4E 45 4C 31 20 |EREN..2=. BNEL1 |
00000580: 20 20 20 20 20 20 20 20 3B 53 50 52 49 4E 54 20 | ;SPRINT |
00000590: 49 4D 4D 45 52 00 AE 32 3E 00 3B 00 D2 32 3F 00 |IMMER..2>.;..2?.|
000005A0: 41 55 53 20 20 43 4D 50 20 23 4C 45 45 52 20 3B |AUS CMP #LEER ;|
000005B0: 4C 45 45 52 5A 45 49 43 48 45 4E 20 22 3F 22 00 |LEERZEICHEN "?".|
000005C0: F9 32 40 00 20 42 45 51 55 45 42 45 52 20 20 20 |.2@. BEQUEBER |
000005D0: 20 20 20 3B 4A 41 2C 20 53 4F 20 55 45 42 45 52 | ;JA, SO UEBER|
000005E0: 4E 45 48 4D 45 4E 00 20 33 41 00 20 53 54 41 24 |NEHMEN. 3A. STA$|
000005F0: 30 38 20 20 20 20 20 20 20 20 3B 5A 45 49 43 48 |08 ;ZEICH|
00000600: 45 4E 43 4F 44 45 20 4D 45 52 4B 45 4E 00 42 33 |ENCODE MERKEN.B3|
00000610: 42 00 20 43 4D 50 23 48 4F 43 48 20 20 20 20 20 |B. CMP#HOCH |
00000620: 20 3B 48 4F 43 48 4B 4F 4D 4D 41 20 22 3F 22 00 | ;HOCHKOMMA "?".|
00000630: 69 33 43 00 20 42 45 51 55 45 42 45 52 31 20 20 |i3C. BEQUEBER1 |
00000640: 20 20 20 3B 4A 41 2C 20 53 4F 20 55 45 42 45 52 | ;JA, SO UEBER|
00000650: 4E 45 48 4D 45 4E 00 92 33 44 00 20 42 49 54 46 |NEHMEN..3D. BITF|
00000660: 4C 41 47 20 20 20 20 20 20 20 3B 44 41 54 41 2D |LAG ;DATA-|
00000670: 4D 4F 44 55 53 20 41 4B 54 49 56 20 22 3F 22 00 |MODUS AKTIV "?".|
00000680: B9 33 45 00 20 42 56 53 55 45 42 45 52 20 20 20 |.3E. BVSUEBER |
00000690: 20 20 20 3B 4A 41 2C 20 53 4F 20 55 45 42 45 52 | ;JA, SO UEBER|
000006A0: 4E 45 48 4D 45 4E 00 DE 33 46 00 20 43 4D 50 23 |NEHMEN..3F. CMP#|
000006B0: 46 52 41 47 45 20 20 20 20 20 3B 46 52 41 47 45 |FRAGE ;FRAGE|
000006C0: 5A 45 49 43 48 45 4E 20 22 3F 22 00 FF 33 47 00 |ZEICHEN "?"..3G.|
000006D0: 20 42 4E 45 57 31 20 20 20 20 20 20 20 20 20 3B | BNEW1 ;|
000006E0: 4E 45 49 4E 2C 20 57 45 49 54 45 52 00 27 34 48 |NEIN, WEITER.'4H|
000006F0: 00 20 4C 44 41 23 50 52 49 4E 54 20 20 20 20 20 |. LDA#PRINT |
00000700: 3B 4A 41 2C 20 44 55 52 43 48 20 43 4F 44 45 20 |;JA, DURCH CODE |
00000710: 46 55 45 52 00 4A 34 49 00 3B 20 20 20 20 20 20 |FUER.J4I.; |
00000720: 20 20 20 20 20 20 20 20 3B 50 52 49 4E 54 20 45 | ;PRINT E|
00000730: 52 53 45 54 5A 45 4E 00 6C 34 4A 00 20 42 4E 45 |RSETZEN.l4J. BNE|
00000740: 55 45 42 45 52 20 20 20 20 20 20 3B 53 50 52 49 |UEBER ;SPRI|
00000750: 4E 47 54 20 49 4D 4D 45 52 00 94 34 4B 00 57 31 |NGT IMMER..4K.W1|
00000760: 20 20 43 4D 50 20 23 4E 55 4C 4C 20 20 3B 4B 4C | CMP #NULL ;KL|
00000770: 45 49 4E 45 52 20 41 4C 53 20 22 30 22 20 22 3F |EINER ALS "0" "?|
00000780: 22 00 B3 34 4C 00 20 42 43 43 57 32 20 20 20 20 |"..4L. BCCW2 |
00000790: 20 20 20 20 20 3B 4A 41 2C 20 57 45 49 54 45 52 | ;JA, WEITER|
000007A0: 00 DB 34 4D 00 20 43 4D 50 23 4B 4C 45 49 4E 45 |..4M. CMP#KLEINE|
000007B0: 52 20 20 20 3B 4B 4C 45 49 4E 45 52 20 41 4C 53 |R ;KLEINER ALS|
000007C0: 20 22 3C 22 20 22 3F 22 00 02 35 4E 00 20 42 43 | "<" "?"..5N. BC|
000007D0: 43 55 45 42 45 52 20 20 20 20 20 20 3B 4A 41 2C |CUEBER ;JA,|
000007E0: 20 53 4F 20 55 45 42 45 52 4E 45 48 4D 45 4E 00 | SO UEBERNEHMEN.|
000007F0: 29 35 4F 00 57 32 20 20 53 54 59 20 24 37 31 20 |)5O.W2 STY $71 |
00000800: 20 20 20 3B 5A 45 49 47 45 52 20 49 4E 20 55 4D | ;ZEIGER IN UM|
00000810: 47 45 57 41 4E 2D 00 50 35 50 00 20 4C 44 59 23 |GEWAN-.P5P. LDY#|
00000820: 30 30 20 20 20 20 20 20 20 20 3B 44 45 4C 54 45 |00 ;DELTE|
00000830: 20 5A 45 49 4C 45 20 4D 45 52 4B 45 4E 00 79 35 | ZEILE MERKEN.y5|
00000840: 51 00 20 53 54 59 5A 41 45 48 4C 45 52 20 20 20 |Q. STYZAEHLER |
00000850: 20 3B 5A 41 45 48 4C 45 52 20 46 55 45 52 20 42 | ;ZAEHLER FUER B|
00000860: 45 46 45 48 4C 45 00 9D 35 52 00 20 44 45 59 20 |EFEHLE..5R. DEY |
00000870: 20 20 20 20 20 20 20 20 20 20 3B 41 55 46 20 4E | ;AUF N|
00000880: 55 4C 4C 20 53 45 54 5A 45 4E 00 C1 35 53 00 20 |ULL SETZEN..5S. |
00000890: 53 54 58 24 37 41 20 20 20 20 20 20 20 20 3B 5A |STX$7A ;Z|
000008A0: 45 49 47 45 52 20 49 4E 20 5A 45 49 4C 45 00 DC |EIGER IN ZEILE..|
000008B0: 35 54 00 20 44 45 58 20 20 20 20 20 20 20 20 20 |5T. DEX |
000008C0: 20 20 3B 4D 45 52 4B 45 4E 00 05 36 55 00 4C 32 | ;MERKEN..6U.L2|
000008D0: 20 20 49 4E 59 20 20 20 20 20 20 20 20 3B 58 20 | INY ;X |
000008E0: 55 4E 44 20 59 20 55 4E 56 45 52 41 45 4E 44 45 |UND Y UNVERAENDE|
000008F0: 52 54 00 2C 36 56 00 20 49 4E 58 20 20 20 20 20 |RT.,6V. INX |
00000900: 20 20 20 20 20 20 3B 4C 41 53 53 45 4E 20 28 44 | ;LASSEN (D|
00000910: 45 59 2D 49 4E 59 3D 30 29 00 4E 36 57 00 4C 33 |EY-INY=0).N6W.L3|
00000920: 20 20 4C 44 41 20 24 30 32 30 30 2C 58 3B 5A 45 | LDA $0200,X;ZE|
00000930: 49 43 48 45 4E 20 48 4F 4C 45 4E 00 72 36 58 00 |ICHEN HOLEN.r6X.|
00000940: 20 53 45 43 20 20 20 20 20 20 20 20 20 20 20 3B | SEC ;|
00000950: 4D 49 54 20 5A 45 49 43 48 45 4E 20 41 55 53 00 |MIT ZEICHEN AUS.|
00000960: 99 36 59 00 20 53 42 43 24 41 30 39 45 2C 59 20 |.6Y. SBC$A09E,Y |
00000970: 20 20 20 3B 42 45 46 45 48 4C 20 56 45 52 47 4C | ;BEFEHL VERGL|
00000980: 45 49 43 48 45 4E 00 C2 36 5A 00 20 42 45 51 4C |EICHEN..6Z. BEQL|
00000990: 32 20 20 20 20 20 20 20 20 20 3B 3D 2C 20 57 45 |2 ;=, WE|
000009A0: 49 54 45 52 56 45 52 47 4C 45 49 43 48 45 4E 00 |ITERVERGLEICHEN.|
000009B0: E8 36 5B 00 20 43 4D 50 23 24 38 30 20 20 20 20 |.6[. CMP#$80 |
000009C0: 20 20 20 3B 4C 45 54 5A 54 45 52 20 42 55 43 48 | ;LETZTER BUCH|
000009D0: 53 54 41 42 45 00 11 37 5C 00 20 42 4E 45 4E 45 |STABE..7\. BNENE|
000009E0: 58 54 20 20 20 20 20 20 20 3B 4E 45 49 4E 2C 20 |XT ;NEIN, |
000009F0: 4E 41 45 43 48 53 54 45 53 20 57 4F 52 54 00 39 |NAECHSTES WORT.9|
00000A00: 37 5D 00 20 4F 52 41 5A 41 45 48 4C 45 52 20 20 |7]. ORAZAEHLER |
00000A10: 20 20 3B 42 45 46 45 48 4C 53 57 4F 52 54 2D 4E | ;BEFEHLSWORT-N|
00000A20: 55 4D 4D 45 52 2B 00 59 37 5E 00 3B 20 20 20 20 |UMMER+.Y7^.; |
00000A30: 20 20 20 20 20 20 20 20 20 20 3B 24 38 30 20 3D | ;$80 =|
00000A40: 20 54 4F 4B 45 4E 00 81 37 5F 00 57 33 20 20 4C | TOKEN..7_.W3 L|
00000A50: 44 59 20 24 37 31 20 20 20 20 3B 5A 45 49 47 45 |DY $71 ;ZEIGE|
00000A60: 52 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 90 |R ZURUECKHOLEN..|
00000A70: 37 60 00 55 45 42 45 52 20 20 49 4E 58 00 B3 37 |7`.UEBER INX..7|
00000A80: 61 00 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 |a. INY |
00000A90: 20 3B 59 20 4D 49 4E 44 45 53 54 45 4E 53 20 35 | ;Y MINDESTENS 5|
00000AA0: 00 D8 37 62 00 20 53 54 41 24 30 31 46 42 2C 59 |..7b. STA$01FB,Y|
00000AB0: 20 20 20 20 3B 43 4F 44 45 20 41 42 53 50 45 49 | ;CODE ABSPEI|
00000AC0: 43 48 45 52 4E 00 FD 37 63 00 20 4C 44 41 24 30 |CHERN..7c. LDA$0|
00000AD0: 31 46 42 2C 59 20 20 20 20 3B 46 4C 41 47 53 20 |1FB,Y ;FLAGS |
00000AE0: 4E 45 55 20 53 45 54 5A 45 4E 00 24 38 64 00 20 |NEU SETZEN.$8d. |
00000AF0: 42 45 51 45 4E 44 20 20 20 20 20 20 20 20 3B 30 |BEQEND ;0|
00000B00: 2C 20 44 41 4E 4E 20 5A 45 49 4C 45 4E 45 4E 44 |, DANN ZEILENEND|
00000B10: 45 00 4C 38 65 00 20 53 45 43 20 20 20 20 20 20 |E.L8e. SEC |
00000B20: 20 20 20 20 20 3B 5A 45 49 43 48 45 4E 20 4D 49 | ;ZEICHEN MI|
00000B30: 54 20 44 4F 50 50 45 4C 2D 00 72 38 66 00 20 53 |T DOPPEL-.r8f. S|
00000B40: 42 43 23 44 4F 50 50 45 4C 20 20 20 20 3B 50 55 |BC#DOPPEL ;PU|
00000B50: 4E 4B 54 20 56 45 52 47 4C 45 49 43 48 45 4E 00 |NKT VERGLEICHEN.|
00000B60: 9A 38 67 00 20 42 45 51 57 34 20 20 20 20 20 20 |.8g. BEQW4 |
00000B70: 20 20 20 3B 44 41 54 41 2D 4D 4F 44 55 53 20 4C | ;DATA-MODUS L|
00000B80: 4F 45 53 43 48 45 4E 00 C2 38 68 00 20 43 4D 50 |OESCHEN..8h. CMP|
00000B90: 23 44 41 44 4F 20 20 20 20 20 20 3B 47 4C 45 49 |#DADO ;GLEI|
00000BA0: 43 48 20 44 41 54 41 2D 43 4F 44 45 22 3F 22 00 |CH DATA-CODE"?".|
00000BB0: E5 38 69 00 20 42 4E 45 57 35 20 20 20 20 20 20 |.8i. BNEW5 |
00000BC0: 20 20 20 3B 4A 41 2C 20 44 41 54 41 2D 4D 4F 44 | ;JA, DATA-MOD|
00000BD0: 55 53 00 00 39 6A 00 57 34 20 20 53 54 41 20 46 |US..9j.W4 STA F|
00000BE0: 4C 41 47 20 20 20 3B 53 45 54 5A 45 4E 00 0C 39 |LAG ;SETZEN..9|
00000BF0: 6B 00 57 35 20 20 53 45 43 00 34 39 6C 00 20 53 |k.W5 SEC.49l. S|
00000C00: 42 43 23 52 45 44 4F 20 20 20 20 20 20 3B 47 4C |BC#REDO ;GL|
00000C10: 45 49 43 48 20 52 45 4D 2D 43 4F 44 45 20 22 3F |EICH REM-CODE "?|
00000C20: 22 00 55 39 6D 00 20 42 4E 45 4C 31 20 20 20 20 |".U9m. BNEL1 |
00000C30: 20 20 20 20 20 3B 4E 45 49 4E 2C 20 57 45 49 54 | ;NEIN, WEIT|
00000C40: 45 52 00 7C 39 6E 00 20 53 54 41 24 30 38 20 20 |ER.|9n. STA$08 |
00000C50: 20 20 20 20 20 20 3B 4A 41 2C 20 5A 45 49 43 48 | ;JA, ZEICH|
00000C60: 45 4E 20 4D 45 52 4B 45 4E 00 9E 39 6F 00 4C 34 |EN MERKEN..9o.L4|
00000C70: 20 20 4C 44 41 20 24 30 32 30 30 2C 58 3B 5A 45 | LDA $0200,X;ZE|
00000C80: 49 43 48 45 4E 20 48 4F 4C 45 4E 00 C5 39 70 00 |ICHEN HOLEN..9p.|
00000C90: 20 42 45 51 55 45 42 45 52 20 20 20 20 20 20 3B | BEQUEBER ;|
00000CA0: 30 2C 20 44 41 4E 4E 20 5A 45 49 4C 45 4E 45 4E |0, DANN ZEILENEN|
00000CB0: 44 45 00 E8 39 71 00 20 43 4D 50 24 30 38 20 20 |DE..9q. CMP$08 |
00000CC0: 20 20 20 20 20 20 3B 57 41 52 54 45 4E 20 41 55 | ;WARTEN AU|
00000CD0: 46 20 27 22 27 00 0D 3A 72 00 20 42 45 51 55 45 |F '"'..:r. BEQUE|
00000CE0: 42 45 52 20 20 20 20 20 20 3B 44 41 4E 4E 20 55 |BER ;DANN U|
00000CF0: 45 42 45 52 4E 45 48 4D 45 4E 00 1C 3A 73 00 55 |EBERNEHMEN..:s.U|
00000D00: 45 42 45 52 31 20 49 4E 59 00 3F 3A 74 00 20 53 |EBER1 INY.?:t. S|
00000D10: 54 41 24 30 31 46 42 2C 59 20 20 20 20 3B 43 4F |TA$01FB,Y ;CO|
00000D20: 44 45 20 53 50 45 49 43 48 45 52 4E 00 48 3A 75 |DE SPEICHERN.H:u|
00000D30: 00 20 49 4E 58 00 6A 3A 76 00 20 42 4E 45 4C 34 |. INX.j:v. BNEL4|
00000D40: 20 20 20 20 20 20 20 20 20 3B 53 50 52 49 4E 47 | ;SPRING|
00000D50: 54 20 49 4D 4D 45 52 00 70 3A 77 00 3B 00 90 3A |T IMMER.p:w.;..:|
00000D60: 78 00 4E 45 58 54 20 20 4C 44 58 20 24 37 41 20 |x.NEXT LDX $7A |
00000D70: 20 3B 5A 41 45 48 4C 45 52 20 41 55 46 00 B5 3A | ;ZAEHLER AUF..:|
00000D80: 79 00 20 49 4E 43 5A 41 45 48 4C 45 52 20 20 20 |y. INCZAEHLER |
00000D90: 20 3B 4E 41 45 43 48 53 54 45 4E 20 42 45 46 45 | ;NAECHSTEN BEFE|
00000DA0: 48 4C 00 DB 3A 7A 00 4C 35 20 20 49 4E 59 20 20 |HL..:z.L5 INY |
00000DB0: 20 20 20 20 20 20 3B 57 41 52 54 45 4E 2C 20 42 | ;WARTEN, B|
00000DC0: 49 53 20 41 4C 54 45 53 00 FF 3A 7B 00 20 4C 44 |IS ALTES..:{. LD|
00000DD0: 41 24 41 30 39 44 2C 59 20 20 20 20 3B 57 4F 52 |A$A09D,Y ;WOR|
00000DE0: 54 20 5A 55 45 4E 44 45 20 49 53 54 00 0A 3B 7C |T ZUENDE IST..;||
00000DF0: 00 20 42 50 4C 4C 35 00 2E 3B 7D 00 20 4C 44 41 |. BPLL5..;}. LDA|
00000E00: 24 41 30 39 45 2C 59 20 20 20 20 3B 31 2E 5A 45 |$A09E,Y ;1.ZE|
00000E10: 49 43 48 45 4E 20 4E 45 55 45 53 00 56 3B 7E 00 |ICHEN NEUES.V;~.|
00000E20: 20 42 4E 45 4C 33 20 20 20 20 20 20 20 20 20 3B | BNEL3 ;|
00000E30: 57 4F 52 54 2C 20 53 50 52 49 4E 47 54 20 49 4D |WORT, SPRINGT IM|
00000E40: 4D 45 52 00 7C 3B 7F 00 20 42 45 51 4E 45 57 20 |MER.|;.. BEQNEW |
00000E50: 20 20 20 20 20 20 20 3B 57 45 4E 4E 20 54 41 42 | ;WENN TAB|
00000E60: 45 4C 4C 45 20 4E 4F 43 48 00 A1 3B 80 00 3B 20 |ELLE NOCH..;..; |
00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4E 49 | ;NI|
00000E80: 43 48 54 20 5A 55 45 4E 44 45 20 49 53 54 00 C3 |CHT ZUENDE IST..|
00000E90: 3B 81 00 4E 4F 20 20 4C 44 41 20 24 30 32 30 30 |;..NO LDA $0200|
00000EA0: 2C 58 3B 5A 45 49 43 48 45 4E 20 48 4F 4C 45 4E |,X;ZEICHEN HOLEN|
00000EB0: 00 EA 3B 82 00 20 42 50 4C 57 33 20 20 20 20 20 |..;.. BPLW3 |
00000EC0: 20 20 20 20 3B 55 4E 44 20 53 4F 20 55 45 42 45 | ;UND SO UEBE|
00000ED0: 52 4E 45 48 4D 45 4E 00 F0 3B 83 00 3B 00 17 3C |RNEHMEN..;..;..<|
00000EE0: 84 00 45 4E 44 20 53 54 41 24 30 31 46 44 2C 59 |..END STA$01FD,Y|
00000EF0: 3B 5A 45 49 43 48 45 4E 20 41 42 53 50 45 49 43 |;ZEICHEN ABSPEIC|
00000F00: 48 45 52 4E 00 36 3C 85 00 20 44 45 43 24 37 42 |HERN.6<.. DEC$7B|
00000F10: 20 20 20 20 20 20 20 20 3B 5A 45 49 47 45 52 20 | ;ZEIGER |
00000F20: 41 55 46 00 50 3C 86 00 20 4C 44 41 23 24 46 46 |AUF.P<.. LDA#$FF|
00000F30: 20 20 20 20 20 20 20 3B 24 30 31 46 46 00 70 3C | ;$01FF.p<|
00000F40: 87 00 20 53 54 41 24 37 41 20 20 20 20 20 20 20 |.. STA$7A |
00000F50: 20 3B 28 50 55 46 46 45 52 20 2D 31 29 00 79 3C | ;(PUFFER -1).y<|
00000F60: 88 00 20 52 54 53 00 7F 3C 89 00 3B 00 9F 3C 8A |.. RTS..<..;..<.|
00000F70: 00 3B 56 45 52 41 52 42 45 49 54 55 4E 47 20 4E |.;VERARBEITUNG N|
00000F80: 45 55 45 52 20 42 45 46 45 48 4C 45 00 BF 3C 8B |EUER BEFEHLE..<.|
00000F90: 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.;==============|
00000FA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 C5 3C 8C |============..<.|
00000FB0: 00 3B 00 EA 3C 8D 00 4E 45 57 20 20 4C 44 59 20 |.;..<..NEW LDY |
00000FC0: 23 30 30 20 20 20 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |#00 ;=========|
00000FD0: 3D 3D 3D 3D 3D 3D 3D 00 FB 3C 8E 00 20 4C 44 41 |=======..<.. LDA|
00000FE0: 54 41 42 4E 45 57 2C 59 00 06 3D 8F 00 20 42 4E |TABNEW,Y..=.. BN|
00000FF0: 45 57 36 00 29 3D 90 00 4C 36 20 20 49 4E 59 20 |EW6.)=..L6 INY |
00001000: 20 20 20 20 20 20 20 3B 46 55 4E 4B 54 49 4F 4E | ;FUNKTION|
00001010: 20 53 49 45 48 45 00 32 3D 91 00 20 49 4E 58 00 | SIEHE.2=.. INX.|
00001020: 46 3D 92 00 57 36 20 20 4C 44 41 20 24 30 32 30 |F=..W6 LDA $020|
00001030: 30 2C 58 00 4F 3D 93 00 20 53 45 43 00 70 3D 94 |0,X.O=.. SEC.p=.|
00001040: 00 20 53 42 43 54 41 42 4E 45 57 2C 59 20 20 20 |. SBCTABNEW,Y |
00001050: 3B 50 52 4F 47 52 41 4D 4D 54 45 49 4C 00 7B 3D |;PROGRAMMTEIL.{=|
00001060: 95 00 20 42 45 51 4C 36 00 88 3D 96 00 20 43 4D |.. BEQL6..=.. CM|
00001070: 50 23 24 38 30 00 A4 3D 97 00 20 42 4E 45 4E 45 |P#$80..=.. BNENE|
00001080: 58 54 31 20 20 20 20 20 20 3B 57 32 20 2D 20 57 |XT1 ;W2 - W|
00001090: 33 00 B4 3D 98 00 20 4F 52 41 5A 41 45 48 4C 45 |3..=.. ORAZAEHLE|
000010A0: 52 00 D9 3D 99 00 20 42 4E 45 57 33 20 20 20 20 |R..=.. BNEW3 |
000010B0: 20 20 20 20 20 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ;==========|
000010C0: 3D 3D 3D 3D 3D 3D 00 EC 3D 9A 00 4E 45 58 54 31 |======..=..NEXT1|
000010D0: 20 20 4C 44 58 20 24 37 41 00 FC 3D 9B 00 20 49 | LDX $7A..=.. I|
000010E0: 4E 43 5A 41 45 48 4C 45 52 00 1F 3E 9C 00 4C 37 |NCZAEHLER..>..L7|
000010F0: 20 20 49 4E 59 20 20 20 20 20 20 20 20 3B 46 55 | INY ;FU|
00001100: 4E 4B 54 49 4F 4E 20 53 49 45 48 45 00 32 3E 9D |NKTION SIEHE.2>.|
00001110: 00 20 4C 44 41 54 41 42 4E 45 57 2D 31 2C 59 00 |. LDATABNEW-1,Y.|
00001120: 53 3E 9E 00 20 42 50 4C 4C 37 20 20 20 20 20 20 |S>.. BPLL7 |
00001130: 20 20 20 3B 50 52 4F 47 52 41 4D 4D 54 45 49 4C | ;PROGRAMMTEIL|
00001140: 00 64 3E 9F 00 20 4C 44 41 54 41 42 4E 45 57 2C |.d>.. LDATABNEW,|
00001150: 59 00 84 3E A0 00 20 42 4E 45 57 36 20 20 20 20 |Y..>.. BNEW6 |
00001160: 20 20 20 20 20 3B 4E 45 58 54 20 2D 20 45 58 49 | ;NEXT - EXI|
00001170: 54 00 AA 3E A1 00 20 42 45 51 4E 4F 20 20 20 20 |T..>.. BEQNO |
00001180: 20 20 20 20 20 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ;==========|
00001190: 3D 3D 3D 3D 3D 3D 3D 00 B0 3E A2 00 3B 00 CF 3E |=======..>..;..>|
000011A0: A3 00 3B 54 41 42 45 4C 4C 45 20 44 45 52 20 4E |..;TABELLE DER N|
000011B0: 45 55 45 4E 20 42 45 46 45 48 4C 45 00 EE 3E A4 |EUEN BEFEHLE..>.|
000011C0: 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.;==============|
000011D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F4 3E A5 00 |===========..>..|
000011E0: 3B 00 13 3F A6 00 54 41 42 4E 45 57 20 2E 54 58 |;..?..TABNEW .TX|
000011F0: 22 47 52 4F CE 22 3B 47 52 41 46 49 4B 20 41 4E |"GRO.";GRAFIK AN|
00001200: 00 2E 3F A7 00 20 2E 54 58 22 47 52 4F 46 C6 22 |..?.. .TX"GROF."|
00001210: 3B 47 52 41 46 49 4B 20 41 55 53 00 4B 3F A8 00 |;GRAFIK AUS.K?..|
00001220: 20 2E 54 58 22 43 4F 4C 4F D2 22 3B 46 41 52 42 | .TX"COLO.";FARB|
00001230: 45 20 53 45 54 5A 45 4E 00 6B 3F A9 00 20 2E 54 |E SETZEN.k?.. .T|
00001240: 58 22 43 4C 45 41 D2 22 3B 47 52 41 46 49 4B 20 |X"CLEA.";GRAFIK |
00001250: 4C 4F 45 53 43 48 45 4E 00 80 3F AA 00 20 2E 54 |LOESCHEN..?.. .T|
00001260: 58 22 50 4C 4F D4 22 3B 50 55 4E 4B 54 00 9C 3F |X"PLO.";PUNKT..?|
00001270: AB 00 20 2E 54 58 22 41 52 C3 22 3B 4B 52 45 49 |.. .TX"AR.";KREI|
00001280: 53 2F 45 4C 4C 49 50 53 45 00 B3 3F AC 00 20 2E |S/ELLIPSE..?.. .|
00001290: 54 58 22 52 45 C3 22 3B 52 45 43 48 54 45 43 4B |TX"RE.";RECHTECK|
000012A0: 00 C7 3F AD 00 20 2E 54 58 22 54 45 58 D4 22 3B |..?.. .TX"TEX.";|
000012B0: 54 45 58 54 00 D1 3F AE 00 20 2E 42 59 30 00 D7 |TEXT..?.. .BY0..|
000012C0: 3F B0 00 3B 00 FB 3F B1 00 3B 4C 49 53 54 2D 52 |?..;..?..;LIST-R|
000012D0: 4F 55 54 49 4E 45 20 46 55 45 52 20 4E 45 55 45 |OUTINE FUER NEUE|
000012E0: 20 42 45 46 45 48 4C 45 00 1F 40 B2 00 3B 3D 3D | BEFEHLE..@..;==|
000012F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001300: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 25 40 B3 |============.%@.|
00001310: 00 3B 00 4E 40 B5 00 20 2E 45 51 42 59 4F 55 54 |.;.N@.. .EQBYOUT|
00001320: 20 3D 20 24 41 42 34 37 20 20 3B 5A 45 49 43 48 | = $AB47 ;ZEICH|
00001330: 45 4E 20 41 55 53 47 45 42 45 4E 00 7A 40 B6 00 |EN AUSGEBEN.z@..|
00001340: 20 2E 45 51 4F 4C 44 54 4F 4B 20 3D 20 24 41 37 | .EQOLDTOK = $A7|
00001350: 32 34 20 3B 4C 49 53 54 45 4E 20 44 45 52 20 4E |24 ;LISTEN DER N|
00001360: 4F 52 4D 41 4C 45 4E 00 96 40 B7 00 3B 20 20 20 |ORMALEN..@..; |
00001370: 20 20 20 20 20 20 20 20 20 20 20 3B 42 45 46 45 | ;BEFE|
00001380: 48 4C 45 00 C2 40 B8 00 20 2E 45 51 42 59 4C 49 |HLE..@.. .EQBYLI|
00001390: 53 54 20 3D 20 24 41 36 46 33 20 3B 42 59 54 20 |ST = $A6F3 ;BYT |
000013A0: 4E 4F 52 4D 41 4C 20 41 55 53 47 45 42 45 4E 00 |NORMAL AUSGEBEN.|
000013B0: EC 40 B9 00 20 2E 45 51 4F 4C 44 4C 49 53 54 20 |.@.. .EQOLDLIST |
000013C0: 3D 20 24 41 36 45 46 3B 5A 55 52 20 41 4C 54 45 |= $A6EF;ZUR ALTE|
000013D0: 4E 20 52 4F 55 54 49 4E 45 00 F2 40 BA 00 3B 00 |N ROUTINE..@..;.|
000013E0: 13 41 BE 00 4E 45 57 4C 49 53 54 20 42 50 4C 4E |.A..NEWLIST BPLN|
000013F0: 4F 52 4D 41 4C 3B 4B 45 49 4E 20 54 4F 4B 45 4E |ORMAL;KEIN TOKEN|
00001400: 00 3A 41 BF 00 20 42 49 54 46 4C 41 47 20 20 20 |.:A.. BITFLAG |
00001410: 20 20 20 20 3B 48 4F 43 48 4B 4F 4D 4D 41 4D 4F | ;HOCHKOMMAMO|
00001420: 44 55 53 20 22 3F 22 00 62 41 C0 00 20 42 4D 49 |DUS "?".bA.. BMI|
00001430: 4E 4F 52 4D 41 4C 20 20 20 20 20 3B 4A 41 2C 20 |NORMAL ;JA, |
00001440: 4E 4F 52 4D 41 4C 20 41 55 53 47 45 42 45 4E 00 |NORMAL AUSGEBEN.|
00001450: 83 41 C1 00 20 43 4D 50 23 50 49 20 20 20 20 20 |.A.. CMP#PI |
00001460: 20 20 20 3B 43 4F 44 45 20 46 55 45 52 20 50 49 | ;CODE FUER PI|
00001470: 00 AB 41 C2 00 20 42 45 51 4E 4F 52 4D 41 4C 20 |..A.. BEQNORMAL |
00001480: 20 20 20 20 3B 4A 41 2C 20 4E 4F 52 4D 41 4C 20 | ;JA, NORMAL |
00001490: 41 55 53 47 45 42 45 4E 00 D0 41 C3 00 20 43 4D |AUSGEBEN..A.. CM|
000014A0: 50 23 24 43 43 20 20 20 20 20 20 20 3B 4E 45 55 |P#$CC ;NEU|
000014B0: 45 52 20 42 45 46 45 48 4C 20 22 3F 22 00 EF 41 |ER BEFEHL "?"..A|
000014C0: C4 00 20 42 43 53 54 4F 4B 4E 45 57 20 20 20 20 |.. BCSTOKNEW |
000014D0: 20 3B 4A 41 2C 20 4C 49 53 54 45 4E 00 17 42 C5 | ;JA, LISTEN..B.|
000014E0: 00 20 4A 4D 50 4F 4C 44 54 4F 4B 20 20 20 20 20 |. JMPOLDTOK |
000014F0: 3B 41 4C 54 45 4E 20 42 45 46 45 48 4C 20 4C 49 |;ALTEN BEFEHL LI|
00001500: 53 54 45 4E 00 3B 42 C6 00 4E 4F 52 4D 41 4C 20 |STEN.;B..NORMAL |
00001510: 4A 4D 50 42 59 4C 49 53 54 20 3B 42 59 54 45 20 |JMPBYLIST ;BYTE |
00001520: 41 55 53 47 45 42 45 4E 00 41 42 C7 00 3B 00 51 |AUSGEBEN.AB..;.Q|
00001530: 42 C8 00 54 4F 4B 4E 45 57 20 20 53 45 43 00 75 |B..TOKNEW SEC.u|
00001540: 42 C9 00 20 53 42 43 23 24 43 42 20 20 20 20 20 |B.. SBC#$CB |
00001550: 20 20 3B 4F 46 46 53 45 54 20 41 42 5A 49 45 48 | ;OFFSET ABZIEH|
00001560: 45 4E 00 9C 42 CA 00 20 54 41 58 20 20 20 20 20 |EN..B.. TAX |
00001570: 20 20 20 20 20 20 3B 45 52 47 45 42 4E 49 53 20 | ;ERGEBNIS |
00001580: 3D 20 5A 41 45 48 4C 45 52 00 B9 42 CB 00 20 53 |= ZAEHLER..B.. S|
00001590: 54 59 24 34 39 20 20 20 20 20 20 20 20 3B 59 20 |TY$49 ;Y |
000015A0: 52 45 54 54 45 4E 00 D6 42 CC 00 20 4C 44 59 23 |RETTEN..B.. LDY#|
000015B0: 32 35 35 3B 57 45 47 45 4E 20 22 49 4E 59 22 20 |255;WEGEN "INY" |
000015C0: 3D 20 30 00 FA 42 CD 00 57 37 20 20 44 45 58 20 |= 0..B..W7 DEX |
000015D0: 20 20 20 20 20 20 20 3B 48 45 52 55 4E 54 45 52 | ;HERUNTER|
000015E0: 5A 41 45 48 4C 45 4E 00 20 43 CE 00 20 42 45 51 |ZAEHLEN. C.. BEQ|
000015F0: 4F 4B 20 20 20 20 20 20 20 20 20 3B 3D 30 2C 20 |OK ;=0, |
00001600: 44 41 4E 4E 20 47 45 46 55 4E 44 45 4E 00 45 43 |DANN GEFUNDEN.EC|
00001610: CF 00 4C 38 20 20 49 4E 59 20 20 20 20 20 20 20 |..L8 INY |
00001620: 20 3B 57 41 52 54 45 4E 2C 20 42 49 53 20 57 4F | ;WARTEN, BIS WO|
00001630: 52 54 00 64 43 D0 00 20 4C 44 41 54 41 42 4E 45 |RT.dC.. LDATABNE|
00001640: 57 2C 59 20 20 20 3B 5A 55 45 4E 44 45 20 49 53 |W,Y ;ZUENDE IS|
00001650: 54 00 88 43 D1 00 20 42 50 4C 4C 38 20 20 20 20 |T..C.. BPLL8 |
00001660: 20 20 20 20 20 3B 28 42 49 54 20 37 20 47 45 53 | ;(BIT 7 GES|
00001670: 45 54 5A 54 29 00 AB 43 D2 00 20 42 4D 49 57 37 |ETZT)..C.. BMIW7|
00001680: 20 20 20 20 20 20 20 20 20 3B 4E 41 45 43 48 53 | ;NAECHS|
00001690: 54 45 53 20 57 4F 52 54 00 B1 43 D3 00 3B 00 D3 |TES WORT..C..;..|
000016A0: 43 D4 00 4F 4B 20 20 49 4E 59 20 20 20 20 20 20 |C..OK INY |
000016B0: 20 20 3B 57 4F 52 54 20 47 45 46 55 4E 44 45 4E | ;WORT GEFUNDEN|
000016C0: 00 F5 43 D5 00 20 4C 44 41 54 41 42 4E 45 57 2C |..C.. LDATABNEW,|
000016D0: 59 20 20 20 3B 5A 45 49 43 48 45 4E 20 48 4F 4C |Y ;ZEICHEN HOL|
000016E0: 45 4E 00 19 44 D6 00 20 42 4D 49 45 4E 44 45 20 |EN..D.. BMIENDE |
000016F0: 20 20 20 20 20 20 3B 4C 45 54 5A 54 45 53 20 5A | ;LETZTES Z|
00001700: 45 49 43 48 45 4E 00 36 44 D7 00 20 4A 53 52 42 |EICHEN.6D.. JSRB|
00001710: 59 4F 55 54 20 20 20 20 20 20 3B 41 55 53 47 45 |YOUT ;AUSGE|
00001720: 42 45 4E 00 57 44 D8 00 20 42 4E 45 4F 4B 20 20 |BEN.WD.. BNEOK |
00001730: 20 20 20 20 20 20 20 3B 53 50 52 49 4E 54 20 49 | ;SPRINT I|
00001740: 4D 4D 45 52 00 5D 44 D9 00 3B 00 7F 44 DA 00 45 |MMER.]D..;..D..E|
00001750: 4E 44 45 20 20 4A 4D 50 20 4F 4C 44 4C 49 53 54 |NDE JMP OLDLIST|
00001760: 20 3B 57 45 49 54 45 52 20 4D 49 54 00 A6 44 DB | ;WEITER MIT..D.|
00001770: 00 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
00001780: 3B 41 4C 54 45 52 20 4C 49 53 54 2D 52 4F 55 54 |;ALTER LIST-ROUT|
00001790: 49 4E 45 00 AC 44 DC 00 3B 00 B2 44 DE 00 3B 00 |INE..D..;..D..;.|
000017A0: D5 44 DF 00 3B 41 55 53 46 55 45 48 52 55 4E 47 |.D..;AUSFUEHRUNG|
000017B0: 20 44 45 52 20 4E 45 55 45 4E 20 42 45 46 45 48 | DER NEUEN BEFEH|
000017C0: 4C 45 00 F8 44 E0 00 3B 3D 3D 3D 3D 3D 3D 3D 3D |LE..D..;========|
000017D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000017E0: 3D 3D 3D 3D 3D 00 FE 44 E1 00 3B 00 29 45 E2 00 |=====..D..;.)E..|
000017F0: 20 2E 45 51 42 45 46 4F 4C 44 20 3D 20 24 41 37 | .EQBEFOLD = $A7|
00001800: 45 44 20 3B 42 45 46 45 48 4C 53 41 55 53 46 55 |ED ;BEFEHLSAUSFU|
00001810: 45 48 52 55 4E 47 00 53 45 E3 00 20 2E 45 51 46 |EHRUNG.SE.. .EQF|
00001820: 49 52 53 54 42 20 3D 20 24 43 43 20 20 20 3B 45 |IRSTB = $CC ;E|
00001830: 52 53 54 45 53 20 46 52 45 4D 44 54 4F 4B 45 4E |RSTES FREMDTOKEN|
00001840: 00 7E 45 E4 00 20 2E 45 51 4C 41 53 54 42 20 3D |.~E.. .EQLASTB =|
00001850: 20 24 46 45 20 20 20 20 3B 4C 45 54 5A 54 45 53 | $FE ;LETZTES|
00001860: 20 46 52 45 4D 44 54 4F 4B 45 4E 00 AA 45 E5 00 | FREMDTOKEN..E..|
00001870: 20 2E 45 51 4C 4F 4F 50 20 3D 20 24 41 37 41 45 | .EQLOOP = $A7AE|
00001880: 20 20 20 3B 49 4E 54 45 52 50 52 45 54 45 52 53 | ;INTERPRETERS|
00001890: 43 48 4C 45 49 46 45 00 CF 45 E6 00 20 2E 45 51 |CHLEIFE..E.. .EQ|
000018A0: 43 48 52 47 45 54 20 3D 20 24 30 30 37 33 20 3B |CHRGET = $0073 ;|
000018B0: 48 4F 4C 54 20 5A 45 49 43 48 45 4E 00 F6 45 E7 |HOLT ZEICHEN..E.|
000018C0: 00 20 2E 45 51 43 48 52 47 4F 54 20 3D 20 24 30 |. .EQCHRGOT = $0|
000018D0: 30 37 39 20 3B 41 55 53 20 42 41 53 49 43 2D 54 |079 ;AUS BASIC-T|
000018E0: 45 58 54 00 FC 45 E8 00 3B 00 1D 46 E9 00 4E 45 |EXT..E..;..F..NE|
000018F0: 57 42 45 46 20 4A 53 52 43 48 52 47 45 54 3B 54 |WBEF JSRCHRGET;T|
00001900: 4F 4B 45 4E 20 48 4F 4C 45 4E 00 43 46 EA 00 20 |OKEN HOLEN.CF.. |
00001910: 4A 53 52 44 4F 20 20 20 20 20 20 20 20 20 3B 42 |JSRDO ;B|
00001920: 45 46 45 48 4C 20 41 55 53 46 55 45 48 52 45 4E |EFEHL AUSFUEHREN|
00001930: 00 63 46 EB 00 20 4A 4D 50 4C 4F 4F 50 20 20 20 |.cF.. JMPLOOP |
00001940: 20 20 20 20 3B 55 4E 44 20 42 45 45 4E 44 45 4E | ;UND BEENDEN|
00001950: 00 69 46 EC 00 3B 00 8D 46 ED 00 44 4F 20 20 43 |.iF..;..F..DO C|
00001960: 4D 50 20 23 46 49 52 53 54 42 3B 4B 4C 45 49 4E |MP #FIRSTB;KLEIN|
00001970: 45 52 20 41 4C 53 20 24 43 43 00 B1 46 EE 00 20 |ER ALS $CC..F.. |
00001980: 42 43 43 54 4F 4B 4F 4C 44 20 20 20 20 20 3B 4A |BCCTOKOLD ;J|
00001990: 41 2C 20 41 4C 54 45 53 20 54 4F 4B 45 4E 00 D6 |A, ALTES TOKEN..|
000019A0: 46 EF 00 20 43 4D 50 23 4C 41 53 54 42 2B 31 20 |F.. CMP#LASTB+1 |
000019B0: 20 20 3B 47 52 4F 45 53 53 45 52 20 41 4C 53 20 | ;GROESSER ALS |
000019C0: 24 46 30 00 FA 46 F0 00 20 42 43 53 54 4F 4B 4F |$F0..F.. BCSTOKO|
000019D0: 4C 44 20 20 20 20 20 3B 4A 41 2C 20 41 4C 54 45 |LD ;JA, ALTE|
000019E0: 53 20 54 4F 4B 45 4E 00 00 47 F1 00 3B 00 1D 47 |S TOKEN..G..;..G|
000019F0: F2 00 3B 4E 45 55 45 20 42 45 46 45 48 4C 53 41 |..;NEUE BEFEHLSA|
00001A00: 55 53 46 55 45 52 48 55 4E 47 00 3A 47 F3 00 3B |USFUERHUNG.:G..;|
00001A10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001A20: 3D 3D 3D 3D 3D 3D 3D 00 40 47 F4 00 3B 00 68 47 |=======.@G..;.hG|
00001A30: F5 00 20 53 45 43 20 20 20 20 20 20 20 20 20 20 |.. SEC |
00001A40: 20 3B 28 54 4F 4B 45 4E 20 2D 20 53 54 41 52 54 | ;(TOKEN - START|
00001A50: 57 45 52 54 29 00 90 47 F6 00 20 53 42 43 23 46 |WERT)..G.. SBC#F|
00001A60: 49 52 53 54 42 20 20 20 20 3B 3D 20 5A 45 49 47 |IRSTB ;= ZEIG|
00001A70: 45 52 20 49 4E 20 54 41 42 45 4C 4C 45 00 99 47 |ER IN TABELLE..G|
00001A80: F7 00 20 54 41 58 00 C0 47 F8 00 20 4C 44 41 48 |.. TAX..G.. LDAH|
00001A90: 49 47 48 54 41 42 2C 58 20 20 3B 52 55 45 43 4B |IGHTAB,X ;RUECK|
00001AA0: 53 50 52 55 4E 47 41 44 52 45 53 53 45 00 E2 47 |SPRUNGADRESSE..G|
00001AB0: F9 00 20 50 48 41 20 20 20 20 20 20 20 20 20 20 |.. PHA |
00001AC0: 20 3B 48 49 47 48 2D 42 59 54 45 20 55 4E 44 00 | ;HIGH-BYTE UND.|
00001AD0: 09 48 FA 00 20 4C 44 41 4C 4F 57 54 41 42 2C 58 |.H.. LDALOWTAB,X|
00001AE0: 20 20 20 3B 4C 4F 57 2D 42 59 54 45 20 41 55 46 | ;LOW-BYTE AUF|
00001AF0: 20 53 54 41 43 4B 00 12 48 FB 00 20 50 48 41 00 | STACK..H.. PHA.|
00001B00: 34 48 FC 00 20 4A 4D 50 43 48 52 47 45 54 20 20 |4H.. JMPCHRGET |
00001B10: 20 20 20 3B 5A 45 49 43 48 45 4E 20 48 4F 4C 45 | ;ZEICHEN HOLE|
00001B20: 4E 00 3A 48 FD 00 3B 00 5F 48 FE 00 54 4F 4B 4F |N.:H..;._H..TOKO|
00001B30: 4C 44 20 20 4A 53 52 20 43 48 52 47 4F 54 20 3B |LD JSR CHRGOT ;|
00001B40: 41 4C 54 45 4E 20 42 45 46 45 48 4C 00 7E 48 FF |ALTEN BEFEHL.~H.|
00001B50: 00 20 4A 4D 50 42 45 46 4F 4C 44 20 20 20 20 20 |. JMPBEFOLD |
00001B60: 3B 41 55 53 46 55 45 48 52 45 4E 00 A0 48 00 01 |;AUSFUEHREN..H..|
00001B70: 48 49 47 48 54 41 42 20 20 2E 42 59 20 3E 28 24 |HIGHTAB .BY >($|
00001B80: 36 30 30 30 2D 31 29 20 3B 47 52 4F 4E 00 C3 48 |6000-1) ;GRON..H|
00001B90: 01 01 20 2E 42 59 3E 28 24 36 30 31 38 2D 31 29 |.. .BY>($6018-1)|
00001BA0: 20 20 20 20 20 20 20 20 20 20 3B 47 52 4F 46 46 | ;GROFF|
00001BB0: 00 E6 48 02 01 20 2E 42 59 3E 28 24 36 30 33 30 |..H.. .BY>($6030|
00001BC0: 2B 33 2D 31 29 20 20 20 20 20 20 20 20 3B 43 4F |+3-1) ;CO|
00001BD0: 4C 4F 52 00 09 49 03 01 20 2E 42 59 3E 28 24 36 |LOR..I.. .BY>($6|
00001BE0: 30 36 45 2D 31 29 20 20 20 20 20 20 20 20 20 20 |06E-1) |
00001BF0: 3B 43 4C 45 41 52 00 2B 49 04 01 20 2E 42 59 3E |;CLEAR.+I.. .BY>|
00001C00: 28 24 36 33 37 37 2B 33 2D 31 29 20 20 20 20 20 |($6377+3-1) |
00001C10: 20 20 20 3B 50 4C 4F 54 00 4C 49 05 01 20 2E 42 | ;PLOT.LI.. .B|
00001C20: 59 3E 28 24 36 33 38 42 2B 33 2D 31 29 20 20 20 |Y>($638B+3-1) |
00001C30: 20 20 20 20 20 3B 41 52 43 00 6D 49 06 01 20 2E | ;ARC.mI.. .|
00001C40: 42 59 3E 28 24 36 38 35 44 2B 33 2D 31 29 20 20 |BY>($685D+3-1) |
00001C50: 20 20 20 20 20 20 3B 52 45 43 00 8F 49 07 01 20 | ;REC..I.. |
00001C60: 2E 42 59 3E 28 24 36 41 34 45 2B 33 2D 31 29 20 |.BY>($6A4E+3-1) |
00001C70: 20 20 20 20 20 20 20 3B 54 45 58 54 00 95 49 08 | ;TEXT..I.|
00001C80: 01 3B 00 B7 49 09 01 4C 4F 57 54 41 42 20 20 20 |.;..I..LOWTAB |
00001C90: 2E 42 59 20 3C 28 24 36 30 30 30 2D 31 29 20 3B |.BY <($6000-1) ;|
00001CA0: 47 52 4F 4E 00 DA 49 0A 01 20 2E 42 59 3C 28 24 |GRON..I.. .BY<($|
00001CB0: 36 30 31 38 2D 31 29 20 20 20 20 20 20 20 20 20 |6018-1) |
00001CC0: 20 3B 47 52 4F 46 46 00 FD 49 0B 01 20 2E 42 59 | ;GROFF..I.. .BY|
00001CD0: 3C 28 24 36 30 33 30 2B 33 2D 31 29 20 20 20 20 |<($6030+3-1) |
00001CE0: 20 20 20 20 3B 43 4F 4C 4F 52 00 20 4A 0C 01 20 | ;COLOR. J.. |
00001CF0: 2E 42 59 3C 28 24 36 30 36 45 2D 31 29 20 20 20 |.BY<($606E-1) |
00001D00: 20 20 20 20 20 20 20 3B 43 4C 45 41 52 00 42 4A | ;CLEAR.BJ|
00001D10: 0D 01 20 2E 42 59 3C 28 24 36 33 37 37 2B 33 2D |.. .BY<($6377+3-|
00001D20: 31 29 20 20 20 20 20 20 20 20 3B 50 4C 4F 54 00 |1) ;PLOT.|
00001D30: 63 4A 0E 01 20 2E 42 59 3C 28 24 36 33 38 42 2B |cJ.. .BY<($638B+|
00001D40: 33 2D 31 29 20 20 20 20 20 20 20 20 3B 41 52 43 |3-1) ;ARC|
00001D50: 00 84 4A 0F 01 20 2E 42 59 3C 28 24 36 38 35 44 |..J.. .BY<($685D|
00001D60: 2B 33 2D 31 29 20 20 20 20 20 20 20 20 3B 52 45 |+3-1) ;RE|
00001D70: 43 00 A6 4A 10 01 20 2E 42 59 3C 28 24 36 41 34 |C..J.. .BY<($6A4|
00001D80: 45 2B 33 2D 31 29 20 20 20 20 20 20 20 20 3B 54 |E+3-1) ;T|
00001D90: 45 58 54 00 AC 4A 11 01 3B 00 00 00 |EXT..J..;... |
.-*-..;BASICERWEITERUNG.8-.. .BA$6C62.>-
..;.Q-.. LDA#<(NEWTOK).Y-.. LDX#>(NEWTOK
) ;NEUER VEKTOR FUER..-.. STA$0304
;UMWANDLUNG IN..-.. STX$0305 ;INT
ERPRETERCODE.S-.. LDA#<(NEWLIST)..-.. LD
X#>(NEWLIST) ;NEUER VEKTOR FUER..... ST
A$0306 ;UMWANDLUNG IN.:... STX$0307
;KLARTEXT.M... LDA#<(NEWBEF).U...
LDX#>(NEWBEF) ;NEUER VEKTOR FUER.....
STA$0308 ;AUSFUEHRUNG EINES..... ST
X$0309 ;BASIC-BEFEHLS.F... RTS.L.".
;...#.;NEUE UMWANDLUNG IN INTERPRETERCOD
E../$.;=================================
=."/%.;.H/&. .EQLEER = $20 ;CODE FUE
R ' '.N/'. .EQHOCH = $22 ;CODE FUER
'"'../(. .EQFRAGE = $3F ;CODE FUER 'P
RINT'../). .EQNULL = $30 ;CODE FUER
'0'../*. .EQKLEINER = $3C ;CODE FUER '<
'..0+. .EQPI = $FF ;CODE FUER '.'.
00,. .EQDOPPEL = $3A ;CODE FUER ":".Z0
-. .EQPRINT = $99 ;TOKEN VON "PRINT".
.0.. .EQDATA = $83 ;TOKEN VON "DATA"
..0/. .EQREM = $8F ;TOKEN VON "REM"
.F00. .EQDADO = DATA-DOPPEL..01. .EQREDO
= REM-DOPPEL..12. .EQFLAG = $0F ;FL
AG FUER DATA-MODUS.:13. .EQZAEHLER = $0B
;ZAEHLER FUER BEFEHLE.]14.NEWTOK LDX$7
A;ZEIGER IN PUFFER..15. LDY#04 ;Z
EIGER IN NEUE ZEILE..16. STYFLAG ;
DATA-MODUS LOESCHEN.T17.; (
RELEVANT BIT 6 !)..18.L1 LDA $0200,X;ZE
ICHEN HOLEN..29. BPLAUS ;UND AUSW
ERTEN.92:. CMP#PI ;CODE FUER PI.`
2;. BEQUEBER ;JA, SO UEBERNEHMEN..2
<. INX ;ZEICHEN IGNORIEREN..2=
. BNEL1 ;SPRINT IMMER..2>.;.R2?.
AUS CMP #LEER ;LEERZEICHEN "?"..2@. BEQ
UEBER ;JA, SO UEBERNEHMEN. 3A. STA$
08 ;ZEICHENCODE MERKEN.B3B. CMP#H
OCH ;HOCHKOMMA "?".I3C. BEQUEBER1
;JA, SO UEBERNEHMEN..3D. BITFLAG
;DATA-MODUS AKTIV "?"..3E. BVSUEBER
;JA, SO UEBERNEHMEN..3F. CMP#FRAGE
;FRAGEZEICHEN "?"..3G. BNEW1 ;
NEIN, WEITER.'4H. LDA#PRINT ;JA, DUR
CH CODE FUER.J4I.; ;PRINT E
RSETZEN.L4J. BNEUEBER ;SPRINGT IMME
R..4K.W1 CMP #NULL ;KLEINER ALS "0" "?
"..4L. BCCW2 ;JA, WEITER..4M. CM
P#KLEINER ;KLEINER ALS "<" "?"..5N. BC
CUEBER ;JA, SO UEBERNEHMEN.)5O.W2
STY $71 ;ZEIGER IN UMGEWAN-.P5P. LDY#
00 ;DELTE ZEILE MERKEN.Y5Q. STYZA
EHLER ;ZAEHLER FUER BEFEHLE..5R. DEY
;AUF NULL SETZEN.A5S. STX$7A
;ZEIGER IN ZEILE..5T. DEX
;MERKEN..6U.L2 INY ;X UND Y UN
VERAENDERT.,6V. INX ;LASSEN (D
EY-INY=0).N6W.L3 LDA $0200,X;ZEICHEN HO
LEN.R6X. SEC ;MIT ZEICHEN AUS.
.6Y. SBC$A09E,Y ;BEFEHL VERGLEICHEN.B
6Z. BEQL2 ;=, WEITERVERGLEICHEN.
.6[. CMP#$80 ;LETZTER BUCHSTABE..7
\. BNENEXT ;NEIN, NAECHSTES WORT.9
7]. ORAZAEHLER ;BEFEHLSWORT-NUMMER+.Y
7^.; ;$80 = TOKEN..7_.W3 L
DY $71 ;ZEIGER ZURUECKHOLEN..7`.UEBER
INX..7A. INY ;Y MINDESTENS 5
.X7B. STA$01FB,Y ;CODE ABSPEICHERN..7
C. LDA$01FB,Y ;FLAGS NEU SETZEN.$8D.
BEQEND ;0, DANN ZEILENENDE.L8E. S
EC ;ZEICHEN MIT DOPPEL-.R8F. S
BC#DOPPEL ;PUNKT VERGLEICHEN..8G. BEQ
W4 ;DATA-MODUS LOESCHEN.B8H. CMP
#DADO ;GLEICH DATA-CODE"?"..8I. BNE
W5 ;JA, DATA-MODUS..9J.W4 STA F
LAG ;SETZEN..9K.W5 SEC.49L. SBC#REDO
;GLEICH REM-CODE "?".U9M. BNEL1
;NEIN, WEITER.|9N. STA$08 ;J
A, ZEICHEN MERKEN..9O.L4 LDA $0200,X;ZE
ICHEN HOLEN.E9P. BEQUEBER ;0, DANN
ZEILENENDE..9Q. CMP$08 ;WARTEN AU
F '"'..:R. BEQUEBER ;DANN UEBERNEHM
EN..:S.UEBER1 INY.?:T. STA$01FB,Y ;CO
DE SPEICHERN.H:U. INX.J:V. BNEL4
;SPRINGT IMMER.P:W.;..:X.NEXT LDX $7A
;ZAEHLER AUF..:Y. INCZAEHLER ;NAECHS
TEN BEFEHL..:Z.L5 INY ;WARTEN, B
IS ALTES..:{. LDA$A09D,Y ;WORT ZUENDE
IST..;|. BPLL5..;}. LDA$A09E,Y ;1.ZE
ICHEN NEUES.V;~. BNEL3 ;WORT, SP
RINGT IMMER.|;. BEQNEW ;WENN TAB
ELLE NOCH..;..; ;NICHT ZUEN
DE IST.C;..NO LDA $0200,X;ZEICHEN HOLEN
..;.. BPLW3 ;UND SO UEBERNEHMEN.
.;..;..<..END STA$01FD,Y;ZEICHEN ABSPEIC
HERN.6<.. DEC$7B ;ZEIGER AUF.P<..
LDA#$FF ;$01FF.P<.. STA$7A
;(PUFFER -1).Y<.. RTS.<..;..<..;VERARB
EITUNG NEUER BEFEHLE..<..;==============
============.E<..;..<..NEW LDY #00 ;=
===============..<.. LDATABNEW,Y..=.. BN
EW6.)=..L6 INY ;FUNKTION SIEHE.2
=.. INX.F=..W6 LDA $0200,X.O=.. SEC.P=.
. SBCTABNEW,Y ;PROGRAMMTEIL.{=.. BEQL6
..=.. CMP#$80..=.. BNENEXT1 ;W2 - W
3..=.. ORAZAEHLER.Y=.. BNEW3 ;==
==============..=..NEXT1 LDX $7A..=.. I
NCZAEHLER..>..L7 INY ;FUNKTION S
IEHE.2>.. LDATABNEW-1,Y.S>.. BPLL7
;PROGRAMMTEIL.D>.. LDATABNEW,Y..> . B
NEW6 ;NEXT - EXIT..>.. BEQNO
;=================..>..;.O>..;TABEL
LE DER NEUEN BEFEHLE..>..;==============
===========..>..;..?..TABNEW .TX"GRON";G
RAFIK AN..?.. .TX"GROFF";GRAFIK AUS.K?..
.TX"COLOR";FARBE SETZEN.K?.. .TX"CLEAR"
;GRAFIK LOESCHEN..?.. .TX"PLOT";PUNKT..?
.. .TX"ARC";KREIS/ELLIPSE..?.. .TX"REC";
RECHTECK.G?.. .TX"TEXT";TEXT.Q?.. .BY0.W
?..;..?..;LIST-ROUTINE FUER NEUE BEFEHLE
..@..;==============================.%@.
.;.N@.. .EQBYOUT = $AB47 ;ZEICHEN AUSGE
BEN.Z@.. .EQOLDTOK = $A724 ;LISTEN DER N
ORMALEN..@..; ;BEFEHLE.B@..
.EQBYLIST = $A6F3 ;BYT NORMAL AUSGEBEN.
.@.. .EQOLDLIST = $A6EF;ZUR ALTEN ROUTIN
E..@..;..A..NEWLIST BPLNORMAL;KEIN TOKEN
.:A.. BITFLAG ;HOCHKOMMAMODUS "?".
BA.. BMINORMAL ;JA, NORMAL AUSGEBEN.
.AA. CMP#PI ;CODE FUER PI..AB. BE
QNORMAL ;JA, NORMAL AUSGEBEN.PAC. CM
P#$CC ;NEUER BEFEHL "?"..AD. BCSTO
KNEW ;JA, LISTEN..BE. JMPOLDTOK
;ALTEN BEFEHL LISTEN.;BF.NORMAL JMPBYLIS
T ;BYTE AUSGEBEN.ABG.;.QBH.TOKNEW SEC.U
BI. SBC#$CB ;OFFSET ABZIEHEN..BJ.
TAX ;ERGEBNIS = ZAEHLER..BK. S
TY$49 ;Y RETTEN.VBL. LDY#255;WEGE
N "INY" = 0..BM.W7 DEX ;HERUNTER
ZAEHLEN. CN. BEQOK ;=0, DANN GEF
UNDEN.ECO.L8 INY ;WARTEN, BIS WO
RT.DCP. LDATABNEW,Y ;ZUENDE IST..CQ. B
PLL8 ;(BIT 7 GESETZT)..CR. BMIW7
;NAECHSTES WORT..CS.;.SCT.OK I
NY ;WORT GEFUNDEN..CU. LDATABNEW,
Y ;ZEICHEN HOLEN..DV. BMIENDE ;L
ETZTES ZEICHEN.6DW. JSRBYOUT ;AUSGE
BEN.WDX. BNEOK ;SPRINT IMMER.]DY
.;.DZ.ENDE JMP OLDLIST ;WEITER MIT..D.
.; ;ALTER LIST-ROUTINE..D..
;..D..;.UD..;AUSFUEHRUNG DER NEUEN BEFEH
LE..D..;=============================..D
..;.)E.. .EQBEFOLD = $A7ED ;BEFEHLSAUSFU
EHRUNG.SE.. .EQFIRSTB = $CC ;ERSTES FR
EMDTOKEN.~E.. .EQLASTB = $FE ;LETZTES
FREMDTOKEN..E.. .EQLOOP = $A7AE ;INTE
RPRETERSCHLEIFE.OE.. .EQCHRGET = $0073 ;
HOLT ZEICHEN..E.. .EQCHRGOT = $0079 ;AUS
BASIC-TEXT..E..;..F..NEWBEF JSRCHRGET;T
OKEN HOLEN.CF.. JSRDO ;BEFEHL AU
SFUEHREN.CF.. JMPLOOP ;UND BEENDEN
.IF..;..F..DO CMP #FIRSTB;KLEINER ALS $
CC..F.. BCCTOKOLD ;JA, ALTES TOKEN.V
F.. CMP#LASTB+1 ;GROESSER ALS $F0..F..
BCSTOKOLD ;JA, ALTES TOKEN..G..;..G
..;NEUE BEFEHLSAUSFUERHUNG.:G..;========
===============.@G..;.HG.. SEC
;(TOKEN - STARTWERT)..G.. SBC#FIRSTB
;= ZEIGER IN TABELLE..G.. TAX..G.. LDAH
IGHTAB,X ;RUECKSPRUNGADRESSE..G.. PHA
;HIGH-BYTE UND..H.. LDALOWTAB,X
;LOW-BYTE AUF STACK..H.. PHA.4H.. JMP
CHRGET ;ZEICHEN HOLEN.:H..;._H..TOKO
LD JSR CHRGOT ;ALTEN BEFEHL.~H.. JMPBEF
OLD ;AUSFUEHREN. H..HIGHTAB .BY >($
6000-1) ;GRON.CH.. .BY>($6018-1)
;GROFF..H.. .BY>($6030+3-1) ;CO
LOR..I.. .BY>($606E-1) ;CLEAR.+
I.. .BY>($6377+3-1) ;PLOT.LI.. .B
Y>($638B+3-1) ;ARC.MI.. .BY>($685
D+3-1) ;REC..I.. .BY>($6A4E+3-1)
;TEXT..I..;..I..LOWTAB .BY <($6
000-1) ;GRON.ZI.. .BY<($6018-1)
;GROFF..I.. .BY<($6030+3-1) ;COL
OR. J.. .BY<($606E-1) ;CLEAR.BJ
.. .BY<($6377+3-1) ;PLOT.CJ.. .BY
<($638B+3-1) ;ARC..J.. .BY<($685D
+3-1) ;REC..J.. .BY<($6A4E+3-1)
;TEXT..J..;...
> CLICK IMAGE PREVIEW FOR FULL MODAL