SOURCELISTING
FILE INFORMATION
FILENAME(S): SOURCELISTING
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 01:12:34
APPEARS ON: 1 disk(s)
FILE HASH
db0bb66e8cd2fce8a5a78d6f729da155fcae16de81e1c305772d0f3a67f7e6f4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 10 86 II | SOURCELISTING | PRG | C64er, DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..%.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 49 08 6E 00 8F 20 2A 20 51 55 |*****.I.n.. * QU|
00000030: 45 4C 4C 54 45 58 54 20 46 55 45 52 20 20 20 20 |ELLTEXT FUER |
00000040: 20 20 20 20 20 20 20 20 2A 00 6D 08 78 00 8F 20 | *.m.x.. |
00000050: 2A 20 50 52 4F 46 49 2D 41 53 53 20 4F 44 45 52 |* PROFI-ASS ODER|
00000060: 20 46 4F 52 4D 45 4C 2D 36 34 20 20 2A 00 91 08 | FORMEL-64 *...|
00000070: 82 00 8F 20 2A 20 50 52 4F 47 52 41 4D 4D 20 3A |... * PROGRAMM :|
00000080: 20 48 2E 49 2E 44 2E 45 2E 20 56 33 2E 32 20 20 | H.I.D.E. V3.2 |
00000090: 2A 00 B5 08 8C 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 2A 00 D9 08 96 00 8F 20 2A 20 57 52 | *...... * WR|
000000C0: 49 54 54 45 4E 20 42 59 2E 2E 2E 46 52 41 4E 4B |ITTEN BY...FRANK|
000000D0: 20 48 55 4E 44 20 20 20 2A 00 FD 08 A0 00 8F 20 | HUND *...... |
000000E0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 |* H|
000000F0: 4F 45 48 45 4E 57 45 47 20 38 20 20 2A 00 21 09 |OEHENWEG 8 *.!.|
00000100: AA 00 8F 20 2A 20 20 20 20 20 20 20 20 20 35 32 |... * 52|
00000110: 30 30 20 53 49 45 47 42 55 52 47 20 31 20 20 20 |00 SIEGBURG 1 |
00000120: 2A 00 45 09 B4 00 8F 20 2A 20 20 20 20 20 20 20 |*.E.... * |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 2A 00 69 09 BE 00 8F 20 2A 20 28 43 | *.i.... * (C|
00000150: 29 20 31 39 38 36 20 46 2E 48 2E 20 20 20 20 20 |) 1986 F.H. |
00000160: 20 20 20 20 20 20 20 20 2A 00 8D 09 C8 00 8F 20 | *...... |
00000170: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 B1 09 | *...|
00000190: D2 00 8F 20 2A 20 53 54 41 52 54 20 24 43 30 30 |... * START $C00|
000001A0: 30 3D 34 39 31 35 32 20 20 20 20 20 20 20 20 20 |0=49152 |
000001B0: 2A 00 D5 09 DC 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 00 DB 09 E6 00 3A 00 E7 09 F0 00 |*****.....:.....|
000001E0: 9E 39 AC 34 30 39 36 00 F3 09 FA 00 2E 4F 50 54 |.9.4096......OPT|
000001F0: 20 4F 4F 00 01 0A 04 01 AC 20 B2 20 24 43 30 30 | OO...... . $C00|
00000200: 30 00 07 0A 0E 01 3B 00 29 0A 18 01 4A 53 52 20 |0.....;.)...JSR |
00000210: 34 32 32 39 31 20 20 20 20 20 20 20 20 3B 4E 49 |42291 ;NI|
00000220: 43 48 54 53 20 47 45 48 54 00 4F 0A 22 01 4C 44 |CHTS GEHT.O.".LD|
00000230: 41 20 33 34 20 20 20 20 20 20 20 20 20 20 20 3B |A 34 ;|
00000240: 55 45 42 45 52 20 45 49 4E 20 47 55 54 45 53 00 |UEBER EIN GUTES.|
00000250: 76 0A 2C 01 43 4C 43 20 20 20 20 20 20 20 20 20 |v.,.CLC |
00000260: 20 20 20 20 20 3B 27 4F 4C 44 27 20 5A 55 20 41 | ;'OLD' ZU A|
00000270: 4E 46 41 4E 47 2E 00 9A 0A 36 01 41 44 43 20 23 |NFANG....6.ADC #|
00000280: 24 30 32 20 20 20 20 20 20 20 20 20 3B 48 2E 49 |$02 ;H.I|
00000290: 2E 44 2E 45 2E 20 57 49 52 44 00 B8 0A 40 01 53 |.D.E. WIRD...@.S|
000002A0: 54 41 20 34 35 20 20 20 20 20 20 20 20 20 20 20 |TA 45 |
000002B0: 3B 44 41 44 55 52 43 48 00 D6 0A 4A 01 4C 44 41 |;DADURCH...J.LDA|
000002C0: 20 33 35 20 20 20 20 20 20 20 20 20 20 20 3B 41 | 35 ;A|
000002D0: 4E 57 80 45 52 AB 00 F8 0A 54 01 41 44 43 20 23 |NW.ER....T.ADC #|
000002E0: 24 30 30 20 20 20 20 20 20 20 20 20 3B B8 55 4E |$00 ;.UN|
000002F0: 44 4C 49 43 48 45 52 21 00 0F 0B 5E 01 53 54 41 |DLICHER!...^.STA|
00000300: 20 34 36 20 20 20 20 20 20 20 20 20 20 20 3B 00 | 46 ;.|
00000310: 35 0B 68 01 4C 44 41 20 34 33 20 20 20 20 20 20 |5.h.LDA 43 |
00000320: 20 20 20 20 20 20 3B 49 4E 49 54 49 41 4C 49 53 | ;INITIALIS|
00000330: 49 45 52 45 4E 00 4D 0B 72 01 53 54 41 20 24 46 |IEREN.M.r.STA $F|
00000340: 42 20 20 20 20 20 20 20 20 20 20 20 3B 00 65 0B |B ;.e.|
00000350: 7C 01 4C 44 41 20 34 34 20 20 20 20 20 20 20 20 ||.LDA 44 |
00000360: 20 20 20 20 3B 00 7D 0B 86 01 53 54 41 20 24 46 | ;.}...STA $F|
00000370: 43 20 20 20 20 20 20 20 20 20 20 20 3B 00 95 0B |C ;...|
00000380: 90 01 4C 44 41 20 23 24 30 30 20 20 20 20 20 20 |..LDA #$00 |
00000390: 20 20 20 20 3B 00 AD 0B 9A 01 53 54 41 20 5A 41 | ;.....STA ZA|
000003A0: 45 48 4C 45 52 4C 4F 57 20 20 20 20 3B 00 C5 0B |EHLERLOW ;...|
000003B0: A4 01 53 54 41 20 5A 41 45 48 4C 45 52 48 49 47 |..STA ZAEHLERHIG|
000003C0: 48 20 20 20 3B 00 EB 0B AE 01 4A 53 52 20 48 45 |H ;.....JSR HE|
000003D0: 4C 4C 4F 20 20 20 20 20 20 20 20 20 3B 4D 4F 4D |LLO ;MOM|
000003E0: 45 4E 54 20 42 49 54 54 45 20 21 00 F1 0B B8 01 |ENT BITTE !.....|
000003F0: 3B 00 09 0C C2 01 4D 41 49 4E 4C 4F 4F 50 20 4C |;.....MAINLOOP L|
00000400: 44 59 20 23 24 30 30 20 3B 00 2D 0C CC 01 4C 44 |DY #$00 ;.-...LD|
00000410: 41 20 28 24 46 42 29 2C 59 20 20 20 20 20 20 20 |A ($FB),Y |
00000420: 3B 41 44 52 45 53 53 45 20 46 55 45 52 00 53 0C |;ADRESSE FUER.S.|
00000430: D6 01 53 54 41 20 41 44 52 45 53 53 45 4C 4F 57 |..STA ADRESSELOW|
00000440: 20 20 20 20 3B 4E 41 45 43 48 53 54 45 20 5A 45 | ;NAECHSTE ZE|
00000450: 49 4C 45 00 70 0C E0 01 49 4E 59 20 20 20 20 20 |ILE.p...INY |
00000460: 20 20 20 20 20 20 20 20 20 20 3B 4C 45 53 45 4E | ;LESEN|
00000470: 00 88 0C EA 01 4C 44 41 20 28 24 46 42 29 2C 59 |.....LDA ($FB),Y|
00000480: 20 20 20 20 20 20 20 3B 00 9C 0C F4 01 53 54 41 | ;.....STA|
00000490: 20 41 44 52 45 53 53 45 48 49 47 48 00 BC 0C FE | ADRESSEHIGH....|
000004A0: 01 42 4E 45 20 4E 4F 90 20 20 20 20 20 20 20 20 |.BNE NO. |
000004B0: 3B 50 52 55 45 46 45 4E 20 41 55 46 00 D6 0C 08 |;PRUEFEN AUF....|
000004C0: 02 4C 44 41 20 41 44 52 45 53 53 45 4C 4F 57 20 |.LDA ADRESSELOW |
000004D0: 20 20 20 3B 80 45 00 EB 0C 12 02 42 4E 45 20 4E | ;.E.....BNE N|
000004E0: 4F 90 20 20 20 20 20 20 20 20 3B 00 FA 0C 1C 02 |O. ;.....|
000004F0: 4A 4D 50 20 46 45 52 54 49 47 00 00 0D 26 02 3B |JMP FERTIG...&.;|
00000500: 00 1D 0D 30 02 4E 4F 90 20 4A 53 52 20 5A 4F 55 |...0.NO. JSR ZOU|
00000510: 54 20 3B 5A 45 49 C3 4E 55 4D 4D 45 52 00 3E 0D |T ;ZEI.NUMMER.>.|
00000520: 3A 02 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |:.; |
00000530: 20 20 3B 41 55 53 47 45 42 45 4E 2E 2E 2E 00 60 | ;AUSGEBEN....`|
00000540: 0D 44 02 4C 44 59 20 23 24 30 34 20 20 20 20 20 |.D.LDY #$04 |
00000550: 20 20 20 20 20 3B 57 49 52 44 20 44 49 45 53 45 | ;WIRD DIESE|
00000560: 00 7D 0D 4E 02 4C 44 41 20 28 24 46 42 29 2C 59 |.}.N.LDA ($FB),Y|
00000570: 20 20 20 20 20 20 20 3B 5A 45 49 4C 45 00 A1 0D | ;ZEILE...|
00000580: 58 02 43 4D 50 20 23 22 40 22 20 20 20 20 20 20 |X.CMP #"@" |
00000590: 20 20 20 20 3B 56 45 52 53 43 48 91 54 20 22 3F | ;VERSCH.T "?|
000005A0: 22 00 B9 0D 62 02 42 45 51 20 4E 4F 48 49 44 45 |"...b.BEQ NOHIDE|
000005B0: 20 20 20 20 20 20 20 20 3B 00 E1 0D 6C 02 4C 44 | ;...l.LD|
000005C0: 59 20 23 24 30 30 20 20 20 20 20 20 20 20 20 20 |Y #$00 |
000005D0: 3B 4E 45 49 4E 20 21 20 28 48 45 48 45 2E 2E 2E |;NEIN ! (HEHE...|
000005E0: 29 00 05 0E 76 02 43 4C 43 20 20 20 20 20 20 20 |)...v.CLC |
000005F0: 20 20 20 20 20 20 20 20 3B 48 49 4C 46 53 5A 41 | ;HILFSZA|
00000600: 45 48 4C 45 52 00 2A 0E 80 02 4C 44 41 20 5A 41 |EHLER.*...LDA ZA|
00000610: 45 48 4C 45 52 4C 4F 57 20 20 20 20 3B 55 4D 20 |EHLERLOW ;UM |
00000620: 36 20 45 52 48 4F 45 48 45 4E 00 42 0E 8A 02 41 |6 ERHOEHEN.B...A|
00000630: 44 43 20 23 24 30 36 20 20 20 20 20 20 20 20 20 |DC #$06 |
00000640: 20 3B 00 5A 0E 94 02 53 54 41 20 5A 41 45 48 4C | ;.Z...STA ZAEHL|
00000650: 45 52 4C 4F 57 20 20 20 20 3B 00 72 0E 9E 02 4C |ERLOW ;.r...L|
00000660: 44 41 20 5A 41 45 48 4C 45 52 48 49 47 48 20 20 |DA ZAEHLERHIGH |
00000670: 20 3B 00 8A 0E A8 02 41 44 43 20 23 24 30 30 20 | ;.....ADC #$00 |
00000680: 20 20 20 20 20 20 20 20 20 3B 00 A2 0E B2 02 53 | ;.....S|
00000690: 54 41 20 5A 41 45 48 4C 45 52 48 49 47 48 20 20 |TA ZAEHLERHIGH |
000006A0: 20 3B 00 A8 0E BC 02 3B 00 CC 0E C6 02 4A 53 52 | ;.....;.....JSR|
000006B0: 20 56 45 52 4B 4E 55 45 50 46 45 20 20 20 20 3B | VERKNUEPFE ;|
000006C0: 41 44 44 49 45 52 45 4E 20 55 4E 44 00 F4 0E D0 |ADDIEREN UND....|
000006D0: 02 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
000006E0: 20 20 20 3B 5A 55 52 55 45 43 4B 53 43 48 52 45 | ;ZURUECKSCHRE|
000006F0: 49 42 45 4E 00 FC 0E DA 02 43 4C 43 00 1B 0F E4 |IBEN.....CLC....|
00000700: 02 4C 44 41 20 24 46 42 20 20 20 20 20 20 20 20 |.LDA $FB |
00000710: 20 20 20 3B 34 20 42 59 54 45 53 00 3C 0F EE 02 | ;4 BYTES.<...|
00000720: 41 44 43 20 23 24 30 34 20 20 20 20 20 20 20 20 |ADC #$04 |
00000730: 20 20 3B 28 41 44 52 45 53 53 45 2C 00 5F 0F F8 | ;(ADRESSE,._..|
00000740: 02 53 54 41 20 24 46 42 20 20 20 20 20 20 20 20 |.STA $FB |
00000750: 20 20 20 3B 5A 45 49 C3 4E 55 4D 4D 45 52 29 00 | ;ZEI.NUMMER).|
00000760: 84 0F 02 03 4C 44 41 20 24 46 43 20 20 20 20 20 |....LDA $FC |
00000770: 20 20 20 20 20 20 3B 55 45 42 45 52 53 50 52 49 | ;UEBERSPRI|
00000780: 4E 47 45 4E 00 9C 0F 0C 03 41 44 43 20 23 24 30 |NGEN.....ADC #$0|
00000790: 30 20 20 20 20 20 20 20 20 20 20 3B 00 A8 0F 16 |0 ;....|
000007A0: 03 53 54 41 20 24 46 43 00 CF 0F 20 03 4A 4D 50 |.STA $FC... .JMP|
000007B0: 20 43 4F 50 49 54 20 20 20 20 20 20 20 20 20 3B | COPIT ;|
000007C0: 4B 20 4F 20 50 20 49 20 45 20 52 20 45 20 4E 00 |K O P I E R E N.|
000007D0: D5 0F 2A 03 3B 00 F7 0F 34 03 42 41 43 4B 20 4C |..*.;...4.BACK L|
000007E0: 44 59 20 23 24 30 30 20 20 20 20 20 3B 45 4E 54 |DY #$00 ;ENT|
000007F0: 53 C0 44 45 4E 45 4E 00 1B 10 3E 03 54 59 41 20 |S.DENEN...>.TYA |
00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 5A | ;Z|
00000810: 57 49 53 43 48 45 4E 52 41 55 4D 00 36 10 48 03 |WISCHENRAUM.6.H.|
00000820: 53 54 41 20 28 24 46 42 29 2C 59 20 20 20 20 20 |STA ($FB),Y |
00000830: 20 20 3B 4D 49 54 00 53 10 52 03 49 4E 59 20 20 | ;MIT.S.R.INY |
00000840: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 31 AC | ;1.|
00000850: 20 30 30 00 70 10 5C 03 4C 44 41 20 23 24 33 41 | 00.p.\.LDA #$3A|
00000860: 20 20 20 20 20 20 20 20 20 20 3B 35 AC 20 33 41 | ;5. 3A|
00000870: 00 90 10 66 03 46 55 45 4C 4C 20 53 54 41 20 28 |...f.FUELL STA (|
00000880: 24 46 42 29 2C 59 20 3B 41 55 46 46 55 45 4C C3 |$FB),Y ;AUFFUEL.|
00000890: 00 A8 10 70 03 49 4E 59 20 20 20 20 20 20 20 20 |...p.INY |
000008A0: 20 20 20 20 20 20 20 3B 00 C0 10 7A 03 43 50 59 | ;...z.CPY|
000008B0: 20 23 24 30 36 20 20 20 20 20 20 20 20 20 20 3B | #$06 ;|
000008C0: 00 CE 10 84 03 42 4E 45 20 46 55 45 4C 4C 00 EF |.....BNE FUELL..|
000008D0: 10 8E 03 53 45 54 20 4C 44 41 20 41 44 52 45 53 |...SET LDA ADRES|
000008E0: 53 45 4C 4F 57 3B 56 45 4B A4 52 20 41 55 46 00 |SELOW;VEK.R AUF.|
000008F0: 15 11 98 03 53 54 41 20 24 46 42 20 20 20 20 20 |....STA $FB |
00000900: 20 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 2C | ;NAECHSTE,|
00000910: 20 4E 45 55 AB 00 38 11 A2 03 4C 44 41 20 41 44 | NEU..8...LDA AD|
00000920: 52 45 53 53 45 48 49 47 48 20 20 20 3B 45 52 52 |RESSEHIGH ;ERR|
00000930: 45 43 48 4E 45 4E 54 45 00 55 11 AC 03 53 54 41 |ECHNENTE.U...STA|
00000940: 20 24 46 43 20 20 20 20 20 20 20 20 20 20 20 3B | $FC ;|
00000950: 5A 45 49 4C 45 00 7A 11 B6 03 4A 4D 50 20 4D 41 |ZEILE.z...JMP MA|
00000960: 49 4E 4C 4F 4F 50 20 20 20 20 20 20 3B 55 4E 44 |INLOOP ;UND|
00000970: 20 56 91 20 41 4E 46 41 4E 47 00 80 11 C0 03 3B | V. ANFANG.....;|
00000980: 00 A2 11 CA 03 4E 4F 48 49 44 45 20 4C 44 41 20 |.....NOHIDE LDA |
00000990: 23 24 32 30 20 20 20 3B 5A 45 49 4C 45 20 57 49 |#$20 ;ZEILE WI|
000009A0: 52 44 00 C3 11 D4 03 53 54 41 20 28 24 46 42 29 |RD.....STA ($FB)|
000009B0: 2C 59 20 20 20 20 20 20 20 3B 56 45 52 53 43 48 |,Y ;VERSCH|
000009C0: 91 54 2E 00 E9 11 DE 03 4C 44 59 20 23 24 30 30 |.T......LDY #$00|
000009D0: 20 20 20 20 20 20 20 20 20 20 3B 4D 41 52 4B 45 | ;MARKE|
000009E0: 20 28 40 29 20 57 49 52 44 00 0C 12 E8 03 4A 53 | (@) WIRD.....JS|
000009F0: 52 20 56 45 52 4B 4E 55 45 50 46 45 20 20 20 3B |R VERKNUEPFE ;|
00000A00: 42 45 53 45 49 54 49 47 54 2E 2E 2E 00 23 12 F2 |BESEITIGT....#..|
00000A10: 03 4A 4D 50 20 53 45 54 20 20 20 20 20 20 20 20 |.JMP SET |
00000A20: 20 20 3B 00 29 12 FC 03 3B 00 4D 12 06 04 56 45 | ;.)...;.M...VE|
00000A30: 52 4B 4E 55 45 50 46 45 20 43 4C 43 20 20 20 3B |RKNUEPFE CLC ;|
00000A40: 55 4E 54 45 52 4F 55 54 49 4E 45 20 3A 00 64 12 |UNTEROUTINE :.d.|
00000A50: 10 04 4C 44 41 20 41 44 52 45 53 53 45 4C 4F 57 |..LDA ADRESSELOW|
00000A60: 20 20 20 3B 00 89 12 1A 04 41 44 43 20 5A 41 45 | ;.....ADC ZAE|
00000A70: 48 4C 45 52 4C 4F 57 20 20 20 3B 42 45 52 45 43 |HLERLOW ;BEREC|
00000A80: 48 4E 55 4E 47 20 44 45 52 00 A9 12 24 04 53 54 |HNUNG DER...$.ST|
00000A90: 41 20 41 44 52 45 53 53 45 4C 4F 57 20 20 20 3B |A ADRESSELOW ;|
00000AA0: 4E 41 45 43 48 53 54 45 4E 00 C8 12 2E 04 53 54 |NAECHSTEN.....ST|
00000AB0: 41 20 28 24 46 42 29 2C 59 20 20 20 20 20 20 3B |A ($FB),Y ;|
00000AC0: 41 44 52 45 53 53 45 2E 00 DF 12 38 04 4C 44 41 |ADRESSE....8.LDA|
00000AD0: 20 41 44 52 45 53 53 45 48 49 47 48 20 20 3B 00 | ADRESSEHIGH ;.|
00000AE0: F6 12 42 04 41 44 43 20 5A 41 45 48 4C 45 52 48 |..B.ADC ZAEHLERH|
00000AF0: 49 47 48 20 20 3B 00 0D 13 4C 04 53 54 41 20 41 |IGH ;...L.STA A|
00000B00: 44 52 45 53 53 45 48 49 47 48 20 20 3B 00 24 13 |DRESSEHIGH ;.$.|
00000B10: 56 04 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 |V.INY |
00000B20: 20 20 20 3B 00 3B 13 60 04 53 54 41 20 28 24 46 | ;.;.`.STA ($F|
00000B30: 42 29 2C 59 20 20 20 20 20 20 3B 00 43 13 6A 04 |B),Y ;.C.j.|
00000B40: 52 54 53 00 49 13 74 04 3B 00 67 13 7E 04 5A 4F |RTS.I.t.;.g.~.ZO|
00000B50: 55 54 20 4C 44 58 20 23 24 30 30 20 20 20 20 3B |UT LDX #$00 ;|
00000B60: 52 4F 55 54 49 4E 45 00 84 13 88 04 4C 4C 50 33 |ROUTINE.....LLP3|
00000B70: 20 4C 44 41 20 B9 2C 58 20 20 20 3B 41 4B 54 55 | LDA .,X ;AKTU|
00000B80: 45 4C 4C 45 00 A5 13 92 04 4A 53 52 20 24 46 46 |ELLE.....JSR $FF|
00000B90: 44 32 20 20 20 20 20 20 20 20 3B 5A 45 49 C3 4E |D2 ;ZEI.N|
00000BA0: 55 4D 4D 45 52 00 C5 13 9C 04 49 4E 58 20 20 20 |UMMER.....INX |
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 3B 41 55 53 47 | ;AUSG|
00000BC0: 45 42 45 4E 2E 00 DC 13 A6 04 43 4D 50 20 23 24 |EBEN......CMP #$|
00000BD0: 30 30 20 20 20 20 20 20 20 20 20 3B 00 F3 13 B0 |00 ;....|
00000BE0: 04 42 4E 45 20 4C 4C 50 33 20 20 20 20 20 20 20 |.BNE LLP3 |
00000BF0: 20 20 3B 00 0A 14 BA 04 4C 44 59 20 23 24 30 32 | ;.....LDY #$02|
00000C00: 20 20 20 20 20 20 20 20 20 3B 00 21 14 C4 04 4C | ;.!...L|
00000C10: 44 41 20 28 24 46 42 29 2C 59 20 20 20 20 20 20 |DA ($FB),Y |
00000C20: 3B 00 38 14 CE 04 54 41 58 20 20 20 20 20 20 20 |;.8...TAX |
00000C30: 20 20 20 20 20 20 20 3B 00 4F 14 D8 04 49 4E 59 | ;.O...INY|
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 | ;.|
00000C50: 66 14 E2 04 4C 44 41 20 28 24 46 42 29 2C 59 20 |f...LDA ($FB),Y |
00000C60: 20 20 20 20 20 3B 00 7D 14 EC 04 4A 53 52 20 24 | ;.}...JSR $|
00000C70: 42 44 43 44 20 20 20 20 20 20 20 20 3B 00 85 14 |BDCD ;...|
00000C80: F6 04 52 54 53 00 8B 14 00 05 3B 00 B0 14 0A 05 |..RTS.....;.....|
00000C90: 46 45 52 54 49 47 20 43 4C 43 20 20 20 20 20 20 |FERTIG CLC |
00000CA0: 20 3B 46 45 52 54 49 47 2E 2E 2E 46 41 53 54 21 | ;FERTIG...FAST!|
00000CB0: 00 CF 14 14 05 4C 44 41 20 34 33 20 20 20 20 20 |.....LDA 43 |
00000CC0: 20 20 20 20 20 20 3B 57 49 43 48 54 49 47 3A 00 | ;WICHTIG:.|
00000CD0: F4 14 1E 05 41 44 43 20 23 24 30 35 20 20 20 20 |....ADC #$05 |
00000CE0: 20 20 20 20 20 3B 45 49 4E 20 27 41 27 20 49 4E | ;EIN 'A' IN|
00000CF0: 20 44 45 52 00 14 15 28 05 53 54 41 20 24 46 42 | DER...(.STA $FB|
00000D00: 20 20 20 20 20 20 20 20 20 20 3B 31 2E 20 5A 45 | ;1. ZE|
00000D10: 49 4C 45 2E 00 37 15 32 05 4C 44 41 20 34 34 20 |ILE..7.2.LDA 44 |
00000D20: 20 20 20 20 20 20 20 20 20 20 3B 41 55 53 46 55 | ;AUSFU|
00000D30: 45 48 52 4C 49 43 48 00 5B 15 3C 05 41 44 43 20 |EHRLICH.[.<.ADC |
00000D40: 23 24 30 30 20 20 20 20 20 20 20 20 20 3B 47 45 |#$00 ;GE|
00000D50: 4D 41 43 48 54 20 44 41 4D 49 54 00 7F 15 46 05 |MACHT DAMIT...F.|
00000D60: 53 54 41 20 24 46 43 20 20 20 20 20 20 20 20 20 |STA $FC |
00000D70: 20 3B 46 4C 45 58 49 42 45 4C 20 46 55 45 52 00 | ;FLEXIBEL FUER.|
00000D80: A4 15 50 05 4C 44 59 20 23 24 30 30 20 20 20 20 |..P.LDY #$00 |
00000D90: 20 20 20 20 20 3B 41 4C 4C 45 20 53 50 45 49 43 | ;ALLE SPEIC|
00000DA0: 48 45 52 AB 00 C3 15 5A 05 4C 44 41 20 23 24 34 |HER....Z.LDA #$4|
00000DB0: 31 20 20 20 20 20 20 20 20 20 3B 42 45 52 45 49 |1 ;BEREI|
00000DC0: 43 48 45 00 D3 15 64 05 53 54 41 20 28 24 46 42 |CHE...d.STA ($FB|
00000DD0: 29 2C 59 00 F6 15 6E 05 52 54 53 20 20 20 20 20 |),Y...n.RTS |
00000DE0: 20 20 20 20 20 20 20 20 20 3B 42 41 43 4B 20 A4 | ;BACK .|
00000DF0: 20 42 41 53 49 43 00 FC 15 78 05 3B 00 20 16 82 | BASIC...x.;. ..|
00000E00: 05 43 4F 50 49 54 20 4C 44 41 20 34 35 20 20 20 |.COPIT LDA 45 |
00000E10: 20 20 3B 4B 4F 50 49 45 52 52 4F 55 54 49 4E 45 | ;KOPIERROUTINE|
00000E20: 00 44 16 8C 05 53 54 41 20 24 46 44 20 20 20 20 |.D...STA $FD |
00000E30: 20 20 20 20 20 20 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 | ;.........|
00000E40: B2 B2 B2 B2 00 5B 16 96 05 4C 44 41 20 34 36 20 |.....[...LDA 46 |
00000E50: 20 20 20 20 20 20 20 20 20 20 3B 00 81 16 A0 05 | ;.....|
00000E60: 53 54 41 20 24 46 45 20 20 20 20 20 20 20 20 20 |STA $FE |
00000E70: 20 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E | ;INITIALISIEREN|
00000E80: 3A 00 A0 16 AA 05 43 4C 43 20 20 20 20 20 20 20 |:.....CLC |
00000E90: 20 20 20 20 20 20 20 3B AB 56 45 4B A4 52 45 4E | ;.VEK.REN|
00000EA0: 00 BE 16 B4 05 4C 44 41 20 34 35 20 20 20 20 20 |.....LDA 45 |
00000EB0: 20 20 20 20 20 20 3B 20 53 45 54 5A 45 4E 00 E0 | ; SETZEN..|
00000EC0: 16 BE 05 41 44 43 20 23 24 30 36 20 20 20 20 20 |...ADC #$06 |
00000ED0: 20 20 20 20 3B AB 53 50 45 49 43 48 45 52 80 45 | ;.SPEICHER.E|
00000EE0: 00 02 17 C8 05 53 54 41 20 34 35 20 20 20 20 20 |.....STA 45 |
00000EF0: 20 20 20 20 20 20 3B 20 48 4F 43 48 53 45 54 5A | ; HOCHSETZ|
00000F00: 45 4E 00 19 17 D2 05 4C 44 41 20 34 36 20 20 20 |EN.....LDA 46 |
00000F10: 20 20 20 20 20 20 20 20 3B 00 30 17 DC 05 41 44 | ;.0...AD|
00000F20: 43 20 23 24 30 30 20 20 20 20 20 20 20 20 20 3B |C #$00 ;|
00000F30: 00 47 17 E6 05 53 54 41 20 34 36 20 20 20 20 20 |.G...STA 46 |
00000F40: 20 20 20 20 20 20 3B 00 6A 17 F0 05 43 4D 50 20 | ;.j...CMP |
00000F50: 23 24 41 30 20 20 20 20 20 20 20 20 20 3B 50 52 |#$A0 ;PR|
00000F60: 47 20 5A 55 20 47 52 4F 53 53 00 8A 17 FA 05 42 |G ZU GROSS.....B|
00000F70: 45 51 20 45 52 52 B0 20 20 20 20 20 20 20 20 3B |EQ ERR. ;|
00000F80: 47 45 57 B0 44 45 4E 22 3F 22 00 96 17 04 06 4A |GEW.DEN"?".....J|
00000F90: 53 52 20 44 45 42 00 9C 17 0E 06 3B 00 B3 17 18 |SR DEB.....;....|
00000FA0: 06 42 45 47 49 4E 20 4C 44 59 20 23 24 30 30 20 |.BEGIN LDY #$00 |
00000FB0: 20 20 3B 00 D7 17 22 06 4C 44 41 20 28 24 46 44 | ;...".LDA ($FD|
00000FC0: 29 2C 59 20 20 20 20 20 20 3B 48 49 45 52 20 57 |),Y ;HIER W|
00000FD0: 49 52 44 20 44 45 52 00 F6 17 2C 06 4C 44 59 20 |IRD DER...,.LDY |
00000FE0: 23 24 30 36 20 20 20 20 20 20 20 20 20 3B 53 50 |#$06 ;SP|
00000FF0: 45 49 43 48 45 52 00 19 18 36 06 53 54 41 20 28 |EICHER...6.STA (|
00001000: 24 46 44 29 2C 59 20 20 20 20 20 20 3B 5A 57 49 |$FD),Y ;ZWI|
00001010: 53 43 48 45 4E 20 44 45 52 00 37 18 40 06 44 45 |SCHEN DER.7.@.DE|
00001020: 43 20 24 46 44 20 20 20 20 20 20 20 20 20 20 3B |C $FD ;|
00001030: 41 4B 54 55 45 4C C3 00 5D 18 4A 06 4C 44 41 20 |AKTUEL..].J.LDA |
00001040: 24 46 44 20 20 20 20 20 20 20 20 20 20 3B 27 41 |$FD ;'A|
00001050: 52 42 45 49 54 53 53 54 45 4C 4C 45 27 00 7B 18 |RBEITSSTELLE'.{.|
00001060: 54 06 43 4D 50 20 23 24 46 46 20 20 20 20 20 20 |T.CMP #$FF |
00001070: 20 20 20 3B 55 4E 44 20 44 45 4D 00 9C 18 5E 06 | ;UND DEM...^.|
00001080: 42 4E 45 20 4E 4F 20 20 20 20 20 20 20 20 20 20 |BNE NO |
00001090: 20 3B 50 52 4F 47 52 41 4D 4D 80 45 00 BD 18 68 | ;PROGRAMM.E...h|
000010A0: 06 44 45 43 20 24 46 45 20 20 20 20 20 20 20 20 |.DEC $FE |
000010B0: 20 20 3B 55 4D 20 36 20 42 59 54 45 53 00 DD 18 | ;UM 6 BYTES...|
000010C0: 72 06 4E 4F 20 4C 44 41 20 24 46 44 20 20 20 20 |r.NO LDA $FD |
000010D0: 20 20 20 3B 4E 41 43 48 20 48 B5 45 4E 00 FE 18 | ;NACH H.EN...|
000010E0: 7C 06 43 4D 50 20 24 46 42 20 20 20 20 20 20 20 ||.CMP $FB |
000010F0: 20 20 20 3B 56 45 52 53 43 48 4F 42 45 4E 00 15 | ;VERSCHOBEN..|
00001100: 19 86 06 42 4E 45 20 42 45 47 49 4E 20 20 20 20 |...BNE BEGIN |
00001110: 20 20 20 20 3B 00 2C 19 90 06 4C 44 41 20 24 46 | ;.,...LDA $F|
00001120: 45 20 20 20 20 20 20 20 20 20 20 3B 00 43 19 9A |E ;.C..|
00001130: 06 43 4D 50 20 24 46 43 20 20 20 20 20 20 20 20 |.CMP $FC |
00001140: 20 20 3B 00 5A 19 A4 06 42 4E 45 20 42 45 47 49 | ;.Z...BNE BEGI|
00001150: 4E 20 20 20 20 20 20 20 20 3B 00 66 19 AE 06 4A |N ;.f...J|
00001160: 53 52 20 49 4E 42 00 84 19 B8 06 4A 4D 50 20 42 |SR INB.....JMP B|
00001170: 41 43 4B 20 20 20 20 20 20 20 20 20 3B 5A 55 52 |ACK ;ZUR|
00001180: 55 45 43 4B 00 8A 19 C2 06 3B 00 A7 19 CC 06 49 |UECK.....;.....I|
00001190: 4E 42 20 49 4E 43 20 24 46 42 20 20 20 20 20 20 |NB INC $FB |
000011A0: 3B 4B 4C 45 49 4E 45 00 C9 19 D6 06 4C 44 41 20 |;KLEINE.....LDA |
000011B0: 24 46 42 20 20 20 20 20 20 20 20 20 20 3B 53 55 |$FB ;SU|
000011C0: 42 52 4F 55 54 49 4E 45 4E 00 E0 19 E0 06 42 4E |BROUTINEN.....BN|
000011D0: 45 20 4E 4F 49 20 20 20 20 20 20 20 20 20 20 3B |E NOI ;|
000011E0: 00 F7 19 EA 06 49 4E 43 20 24 46 43 20 20 20 20 |.....INC $FC |
000011F0: 20 20 20 20 20 20 3B 00 0E 1A F4 06 4E 4F 49 20 | ;.....NOI |
00001200: 52 54 53 20 20 20 20 20 20 20 20 20 20 3B 00 25 |RTS ;.%|
00001210: 1A FE 06 3B 20 20 20 20 20 20 20 20 20 20 20 20 |...; |
00001220: 20 20 20 20 3B 00 3C 1A 08 07 44 45 42 20 44 45 | ;.<...DEB DE|
00001230: 43 20 24 46 42 20 20 20 20 20 20 3B 00 53 1A 12 |C $FB ;.S..|
00001240: 07 4C 44 41 20 24 46 42 20 20 20 20 20 20 20 20 |.LDA $FB |
00001250: 20 20 3B 00 6A 1A 1C 07 43 4D 50 20 23 24 46 46 | ;.j...CMP #$FF|
00001260: 20 20 20 20 20 20 20 20 20 3B 00 7F 1A 26 07 42 | ;...&.B|
00001270: 4E 45 20 A8 20 20 20 20 20 20 20 20 20 20 3B 00 |NE . ;.|
00001280: 96 1A 30 07 44 45 43 20 24 46 43 20 20 20 20 20 |..0.DEC $FC |
00001290: 20 20 20 20 20 3B 00 AB 1A 3A 07 A8 20 52 54 53 | ;...:.. RTS|
000012A0: 20 20 20 20 20 20 20 20 20 20 3B 00 B1 1A 44 07 | ;...D.|
000012B0: 3B 00 C4 1A 4E 07 48 45 4C 4C 4F 20 4C 44 58 20 |;...N.HELLO LDX |
000012C0: 23 24 30 30 00 D7 1A 58 07 4C 4C 50 20 4C 44 41 |#$00...X.LLP LDA|
000012D0: 20 57 B0 44 53 2C 58 00 E5 1A 62 07 4A 53 52 20 | W.DS,X...b.JSR |
000012E0: 24 46 46 44 32 00 ED 1A 6C 07 49 4E 58 00 FA 1A |$FFD2...l.INX...|
000012F0: 76 07 43 4D 50 20 23 24 30 30 00 06 1B 80 07 42 |v.CMP #$00.....B|
00001300: 4E 45 20 4C 4C 50 00 0E 1B 8A 07 52 54 53 00 2D |NE LLP.....RTS.-|
00001310: 1B 94 07 57 B0 44 53 20 2E C6 20 22 11 12 48 2E |...W.DS .. "..H.|
00001320: 49 2E 44 2E 45 2E 20 56 33 2E 32 92 22 00 3A 1B |I.D.E. V3.2.".:.|
00001330: 9E 07 2E 42 59 54 20 24 30 44 00 52 1B A8 07 2E |...BYT $0D.R....|
00001340: C6 20 22 4D 4F 4D 45 4E 54 20 42 49 54 54 45 20 |. "MOMENT BITTE |
00001350: 21 22 00 5F 1B B2 07 2E 42 59 54 20 24 30 44 00 |!"._....BYT $0D.|
00001360: 72 1B BC 07 2E C6 20 22 11 5A 45 49 4C 45 20 3A |r..... ".ZEILE :|
00001370: 20 22 00 7F 1B C6 07 2E 42 59 54 20 24 30 30 00 | "......BYT $00.|
00001380: 91 1B D0 07 45 52 52 B0 20 4C 44 58 20 23 24 30 |....ERR. LDX #$0|
00001390: 30 00 A6 1B DA 07 4C 4C 50 32 20 4C 44 41 20 57 |0.....LLP2 LDA W|
000013A0: B0 44 53 32 2C 58 00 B4 1B E4 07 4A 53 52 20 24 |.DS2,X.....JSR $|
000013B0: 46 46 44 32 00 BC 1B EE 07 49 4E 58 00 C9 1B F8 |FFD2.....INX....|
000013C0: 07 43 4D 50 20 23 24 30 30 00 D6 1B 02 08 42 4E |.CMP #$00.....BN|
000013D0: 45 20 4C 4C 50 32 00 E5 1B 0C 08 4A 4D 50 20 46 |E LLP2.....JMP F|
000013E0: 45 52 54 49 47 00 F8 1B 16 08 57 B0 44 53 32 20 |ERTIG.....W.DS2 |
000013F0: 2E 42 59 54 20 24 30 44 00 18 1C 20 08 2E C6 20 |.BYT $0D... ... |
00001400: 22 12 53 4F 52 52 59 2C 20 50 52 47 20 5A 55 20 |".SORRY, PRG ZU |
00001410: 4C 41 4E 47 2E 92 11 22 00 25 1C 2A 08 2E 42 59 |LANG...".%.*..BY|
00001420: 54 20 24 30 30 00 34 1C 34 08 B9 20 2E 42 59 54 |T $00.4.4.. .BYT|
00001430: 20 24 30 44 00 52 1C 3E 08 2E C6 20 22 91 1D 1D | $0D.R.>... "...|
00001440: 1D 1D 1D 1D 1D 1D 22 20 3A 20 2E 42 59 54 20 24 |......" : .BYT $|
00001450: 30 30 00 58 1C 48 08 3B 00 7C 1C 52 08 5A 41 45 |00.X.H.;.|.R.ZAE|
00001460: 48 4C 45 52 4C 4F 57 20 20 2E 42 59 54 20 30 20 |HLERLOW .BYT 0 |
00001470: 3B 48 49 4C 46 53 5A 45 49 47 45 52 00 95 1C 5C |;HILFSZEIGER...\|
00001480: 08 5A 41 45 48 4C 45 52 48 49 47 48 20 2E 42 59 |.ZAEHLERHIGH .BY|
00001490: 54 20 30 20 3B 00 AE 1C 66 08 41 44 52 45 53 53 |T 0 ;...f.ADRESS|
000014A0: 45 4C 4F 57 20 20 2E 42 59 54 20 30 20 3B 00 C7 |ELOW .BYT 0 ;..|
000014B0: 1C 70 08 41 44 52 45 53 53 45 48 49 47 48 20 2E |.p.ADRESSEHIGH .|
000014C0: 42 59 54 20 30 20 3B 00 00 00 |BYT 0 ;... |
..%.D.. *****************************.I.
N.. * QUELLTEXT FUER *.M.X..
* PROFI-ASS ODER FORMEL-64 *...... * PR
OGRAMM : H.I.D.E. V3.2 *...... *
*.Y.... * WRITTEN BY
...FRANK HUND *... .. * H
OEHENWEG 8 *.!.... * 5200 SIEGB
URG 1 *.E.... *
*.I.... * (C) 1986 F.H.
*...H.. * *...
R.. * START $C000=49152 *.U....
*****************************.....:.....
.9.4096......OPT OO...... . $C000.....;.
)...JSR 42291 ;NICHTS GEHT.O.".LD
A 34 ;UEBER EIN GUTES.V.,.CLC
;'OLD' ZU ANFANG....6.ADC #
$02 ;H.I.D.E. WIRD...@.STA 45
;DADURCH.V.J.LDA 35 ;A
NW.ER....T.ADC #$00 ;.UNDLICHER!
...^.STA 46 ;.5.H.LDA 43
;INITIALISIEREN.M.R.STA $FB
;.E.|.LDA 44 ;.}...STA $F
C ;.....LDA #$00 ;...
..STA ZAEHLERLOW ;.E...STA ZAEHLERHIG
H ;.....JSR HELLO ;MOMENT BITT
E !.....;...B.MAINLOOP LDY #$00 ;.-.L.LD
A ($FB),Y ;ADRESSE FUER.S.V.STA AD
RESSELOW ;NAECHSTE ZEILE.P...INY
;LESEN.....LDA ($FB),Y ;
.....STA ADRESSEHIGH.....BNE NO.
;PRUEFEN AUF.V...LDA ADRESSELOW ;.E..
...BNE NO. ;.....JMP FERTIG...&.;
...0.NO. JSR ZOUT ;ZEICNUMMER.>.:.;
;AUSGEBEN....`.D.LDY #$04
;WIRD DIESE.}.N.LDA ($FB),Y ;
ZEILE...X.CMP #"@" ;VERSCH.T "?
"...B.BEQ NOHIDE ;...L.LDY #$00
;NEIN ! (HEHE...)...V.CLC
;HILFSZAEHLER.*...LDA ZAEHLERLOW
;UM 6 ERHOEHEN.B...ADC #$06
;.Z...STA ZAEHLERLOW ;.R...LDA ZAEHL
ERHIGH ;.....ADC #$00 ;.....S
TA ZAEHLERHIGH ;.....;.L.F.JSR VERKNUE
PFE ;ADDIEREN UND...P.;
;ZURUECKSCHREIBEN...Z.CLC.....LDA $FB
;4 BYTES.<...ADC #$04
;(ADRESSE,._...STA $FB ;ZEIC
NUMMER).....LDA $FC ;UEBERSPRI
NGEN.....ADC #$00 ;.....STA $FC
.O. .JMP COPIT ;K O P I E R E N.
U.*.;...4.BACK LDY #$00 ;ENTS.DENEN.
..>.TYA ;ZWISCHENRAUM.6.H.
STA ($FB),Y ;MIT.S.R.INY
;1. 00.P.\.LDA #$3A ;5. 3A
...F.FUELL STA ($FB),Y ;AUFFUELC...P.INY
;...Z.CPY #$06 ;
.N...BNE FUELL.....SET LDA ADRESSELOW;VE
K.R AUF.....STA $FB ;NAECHSTE,
NEU..8...LDA ADRESSEHIGH ;ERRECHNENTE
.U...STA $FC ;ZEILE.Z...JMP MA
INLOOP ;UND V. ANFANG.....;...J.NOH
IDE LDA #$20 ;ZEILE WIRD.C.T.STA ($FB)
,Y ;VERSCH.T......LDY #$00
;MARKE (@) WIRD.....JSR VERKNUEPFE ;
BESEITIGT....#...JMP SET ;.)...
;.M...VERKNUEPFE CLC ;UNTEROUTINE :.D.
..LDA ADRESSELOW ;.....ADC ZAEHLERLOW
;BERECHNUNG DER...$.STA ADRESSELOW ;
NAECHSTEN.H...STA ($FB),Y ;ADRESSE.
...8.LDA ADRESSEHIGH ;...B.ADC ZAEHLERH
IGH ;...L.STA ADRESSEHIGH ;.$.V.INY
;.;.`.STA ($FB),Y ;.C.J.
RTS.I.T.;.G.~.ZOUT LDX #$00 ;ROUTINE.
....LLP3 LDA .,X ;AKTUELLE.....JSR $FF
D2 ;ZEICNUMMER.E...INX
;AUSGEBEN......CMP #$00 ;....
.BNE LLP3 ;.....LDY #$02
;.!.D.LDA ($FB),Y ;.8.N.TAX
;.O.X.INY ;.F...LDA
($FB),Y ;.}...JSR $BDCD ;...
..RTS.....;.....FERTIG CLC ;FERTIG
...FAST!.O...LDA 43 ;WICHTIG:.
....ADC #$05 ;EIN 'A' IN DER...(
.STA $FB ;1. ZEILE..7.2.LDA 44
;AUSFUEHRLICH.[.<.ADC #$00
;GEMACHT DAMIT..F.STA $FC
;FLEXIBEL FUER...P.LDY #$00 ;AL
LE SPEICHER..C.Z.LDA #$41 ;BEREI
CHE.S.D.STA ($FB),Y...N.RTS
;BACK . BASIC...X.;. ...COPIT LDA 45
;KOPIERROUTINE.D...STA $FD ;.
.............[...LDA 46 ;... .
STA $FE ;INITIALISIEREN:. ...CL
C ;.VEK.REN.....LDA 45
; SETZEN.....ADC #$06 ;.SP
EICHER.E...H.STA 45 ; HOCHSETZ
EN...R.LDA 46 ;.0...ADC #$00
;.G...STA 46 ;.J...CMP
#$A0 ;PRG ZU GROSS.....BEQ ERR.
;GEW.DEN"?".....JSR DEB.....;....
.BEGIN LDY #$00 ;.W.".LDA ($FD),Y
;HIER WIRD DER...,.LDY #$06 ;SP
EICHER...6.STA ($FD),Y ;ZWISCHEN DE
R.7.@.DEC $FD ;AKTUELC.].J.LDA
$FD ;'ARBEITSSTELLE'.{.T.CMP #$
FF ;UND DEM...^.BNE NO
;PROGRAMM.E...H.DEC $FE ;UM 6
BYTES...R.NO LDA $FD ;NACH H.EN...
|.CMP $FB ;VERSCHOBEN.....BNE B
EGIN ;.,...LDA $FE ;.C..
.CMP $FC ;.Z...BNE BEGIN
;.F...JSR INB.....JMP BACK ;ZUR
UECK...B.;...L.INB INC $FB ;KLEINE.
I.V.LDA $FB ;SUBROUTINEN.....BN
E NOI ;.....INC $FC ;.
....NOI RTS ;.%...;
;.<...DEB DEC $FB ;.S...LDA $FB
;.J...CMP #$FF ;..&.B
NE . ;...0.DEC $FC ;..
.:.. RTS ;...D.;.D.N.HELLO LDX
#$00.W.X.LLP LDA W.DS,X...B.JSR $FFD2...
L.INX...V.CMP #$00.....BNE LLP.....RTS.-
...W.DS .F "..H.I.D.E. V3.2.".:....BYT $
0D.R....F "MOMENT BITTE !"._....BYT $0D.
R....F ".ZEILE : "..F..BYT $00...P.ERR.
LDX #$00...Z.LLP2 LDA W.DS2,X.....JSR $
FFD2.....INX.I...CMP #$00.V...BNE LLP2..
...JMP FERTIG.....W.DS2 .BYT $0D... ..F
".SORRY, PRG ZU LANG...".%.*..BYT $00.4.
4.. .BYT $0D.R.>..F "........." : .BYT $
00.X.H.;.|.R.ZAEHLERLOW .BYT 0 ;HILFSZE
IGER...\.ZAEHLERHIGH .BYT 0 ;...F.ADRESS
ELOW .BYT 0 ;.G.P.ADRESSEHIGH .BYT 0 ;.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL