QUELLTEXT
FILE INFORMATION
FILENAME(S): QUELLTEXT
FILE TYPE(S): PRG
FILE SIZE: 14.2K
FIRST SEEN: 2025-11-30 01:13:11
APPEARS ON: 3 disk(s)
FILE HASH
9e5b6cb91b4782cf9bc4f23dfa36911b58ef6f03c6f8b7398fa443a60980cd00
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10905 05 89 | QUELLTEXT | PRG | C64er | 21 | 16 | DOWNLOAD FILE |
| 10905 05 89 | QUELLTEXT | PRG | DuncanTwain | 21 | 16 | DOWNLOAD FILE |
| 10905 05 89 | QUELLTEXT | PRG | DuncanTwain | 21 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 CB 00 0D 08 6E 00 3B 00 26 08 |....d.....n.;.&.|
00000010: 78 00 3B 20 CC 3A 20 43 48 49 50 43 48 49 4B 27 |x.; .: CHIPCHIK'|
00000020: 53 20 41 53 53 45 00 2C 08 82 00 3B 00 50 08 8C |S ASSE.,...;.P..|
00000030: 00 3B 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.;".............|
00000040: C0 B2 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000050: 00 71 08 96 00 3B 22 50 53 45 55 44 4F 20 4F 50 |.q...;"PSEUDO OP|
00000060: 2E 20 20 20 20 DD 20 45 4E 54 53 50 52 49 43 48 |. . ENTSPRICH|
00000070: 54 00 95 08 A0 00 3B 22 43 48 49 50 43 48 49 4B |T.....;"CHIPCHIK|
00000080: 27 53 3A 20 20 20 DD 20 49 4E 20 48 59 50 52 41 |'S: . IN HYPRA|
00000090: 2D 41 53 53 3A 00 B9 08 AA 00 3B 22 C0 C0 C0 C0 |-ASS:.....;"....|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 |................|
000000B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 00 D6 08 B4 00 3B 22 |..............;"|
000000C0: 47 4F 20 20 20 20 20 20 20 20 20 20 20 20 DD 20 |GO . |
000000D0: 20 20 20 2D 2D 2D 00 F6 08 BE 00 3B 22 2A 3D 20 | ---.....;"*= |
000000E0: 24 30 38 30 31 20 20 20 20 20 20 DD 20 2E 42 41 |$0801 . .BA|
000000F0: 20 24 30 38 30 31 00 1C 09 C8 00 3B 22 4C 41 42 | $0801.....;"LAB|
00000100: 45 4C 20 3D 20 24 58 58 20 20 20 DD 20 2E 45 51 |EL = $XX . .EQ|
00000110: 20 4C 41 42 45 4C 20 3D 20 24 58 58 00 36 09 D2 | LABEL = $XX.6..|
00000120: 00 3B 22 2E 41 53 43 20 20 20 20 20 20 20 20 20 |.;".ASC |
00000130: 20 DD 20 2E 54 58 00 50 09 DC 00 3B 22 2E 57 4F | . .TX.P...;".WO|
00000140: 52 44 20 20 20 20 20 20 20 20 20 DD 20 2E 57 4F |RD . .WO|
00000150: 00 76 09 E6 00 3B 22 2E 4F 42 4A 23 38 2C 22 4E |.v...;".OBJ#8,"N|
00000160: 41 22 20 20 20 DD 20 2E 4F 42 22 4E 41 2C 50 2C |A" . .OB"NA,P,|
00000170: 57 22 2B 2E 45 4E 00 98 09 F0 00 3B 22 2E 4C 49 |W"+.EN.....;".LI|
00000180: 53 54 28 23 47 2C 22 4E 41 22 29 DD 20 2E 4C 49 |ST(#G,"NA"). .LI|
00000190: 2C 46 4E 2C 47 2C 53 41 00 B6 09 FA 00 3B 22 2E |,FN,G,SA.....;".|
000001A0: 4C 41 42 45 4C 20 31 32 38 20 20 20 20 DD 20 2E |LABEL 128 . .|
000001B0: 53 59 20 31 2C 33 00 DA 09 04 01 3B 22 C0 C0 C0 |SY 1,3.....;"...|
000001C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 |................|
000001D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 E0 09 0E 01 3B |...............;|
000001E0: 00 ED 09 18 01 AC B2 20 24 30 38 30 31 00 F3 09 |....... $0801...|
000001F0: 22 01 3B 00 0D 0A 2C 01 2E 4F 42 4A 23 38 2C 22 |".;...,..OBJ#8,"|
00000200: 44 45 4C 55 58 45 20 44 41 54 41 53 22 00 13 0A |DELUXE DATAS"...|
00000210: 36 01 3B 00 27 0A 40 01 3B 20 4C 41 42 45 4C AB |6.;.'.@.; LABEL.|
00000220: 96 49 4E 49 54 49 91 00 2E 0A 4A 01 3B 20 00 40 |.INITI....J.; .@|
00000230: 0A 54 01 A1 49 4E 20 20 20 B2 20 24 46 46 45 34 |.T..IN . $FFE4|
00000240: 00 54 0A 5E 01 42 53 4F 55 54 20 20 20 B2 20 24 |.T.^.BSOUT . $|
00000250: 46 46 44 32 00 63 0A 68 01 42 C6 91 20 20 B2 20 |FFD2.c.h.B.. . |
00000260: 24 30 31 00 73 0A 72 01 42 C6 91 32 20 B2 20 24 |$01.s.r.B..2 . $|
00000270: 33 46 46 00 87 0A 7C 01 56 49 43 20 20 20 20 20 |3FF...|.VIC |
00000280: B2 20 24 44 30 30 30 00 9B 0A 86 01 53 54 52 4F |. $D000.....STRO|
00000290: 55 54 20 20 B2 20 24 41 42 31 45 00 AF 0A 90 01 |UT . $AB1E.....|
000002A0: 42 55 46 46 45 52 20 20 B2 20 24 30 32 30 30 00 |BUFFER . $0200.|
000002B0: C1 0A 9A 01 43 52 53 52 20 20 20 20 B2 20 24 43 |....CRSR . $C|
000002C0: 43 00 D3 0A A4 01 53 54 52 20 20 20 20 20 B2 20 |C.....STR . |
000002D0: 24 30 32 00 E5 0A AE 01 53 54 52 32 20 20 20 20 |$02.....STR2 |
000002E0: B2 20 24 41 42 00 F7 0A B8 01 46 41 43 20 20 20 |. $AB.....FAC |
000002F0: 20 20 B2 20 24 36 34 00 0A 0B C2 01 46 41 43 53 | . $64.....FACS|
00000300: 54 52 20 20 B2 20 24 31 30 30 00 1C 0B CC 01 B5 |TR . $100......|
00000310: 46 4C 20 20 20 B2 20 24 42 43 34 39 00 2C 0B D6 |FL . $BC49.,..|
00000320: 01 43 48 52 A1 20 20 B2 20 24 37 33 00 3D 0B E0 |.CHR. . $73.=..|
00000330: 01 43 48 52 CB 54 20 20 B2 20 24 37 39 00 51 0B |.CHR.T . $79.Q.|
00000340: EA 01 46 52 4D 4E 55 4D 20 20 B2 20 24 41 44 38 |..FRMNUM . $AD8|
00000350: 41 00 63 0B F4 01 B4 46 54 20 20 20 B2 20 24 42 |A.c....FT . $B|
00000360: 33 41 32 00 75 0B FE 01 A1 41 44 52 20 20 B2 20 |3A2.u....ADR . |
00000370: 24 42 37 46 37 00 89 0B 08 02 43 49 56 41 59 46 |$B7F7.....CIVAYF|
00000380: 20 20 B2 20 24 42 33 39 31 00 9B 0B 12 02 B5 4F | . $B391......O|
00000390: 55 54 20 20 B2 20 24 42 44 43 44 00 AC 0B 1C 02 |UT . $BDCD.....|
000003A0: 87 59 20 20 20 B2 20 24 41 34 37 34 00 C0 0B 26 |.Y . $A474...&|
000003B0: 02 49 4C 4C 51 55 41 4E 20 B2 20 24 42 32 34 38 |.ILLQUAN . $B248|
000003C0: 00 D2 0B 30 02 9C 20 20 20 20 20 B2 20 24 41 36 |...0.. . $A6|
000003D0: 36 30 00 E2 0B 3A 02 B5 20 20 20 20 20 B2 20 24 |60...:.. . $|
000003E0: 31 34 00 F4 0B 44 02 54 52 41 4E 53 31 20 20 B2 |14...D.TRANS1 .|
000003F0: 20 24 46 42 00 06 0C 4E 02 54 52 41 4E 53 32 20 | $FB...N.TRANS2 |
00000400: 20 B2 20 24 46 44 00 18 0C 58 02 54 52 41 4E 53 | . $FD...X.TRANS|
00000410: 33 20 20 B2 20 24 43 31 00 2A 0C 62 02 54 52 41 |3 . $C1.*.b.TRA|
00000420: 4E 53 34 20 20 B2 20 24 41 43 00 3D 0C 6C 02 4C |NS4 . $AC.=.l.L|
00000430: 41 45 4E 47 45 20 20 B2 20 24 37 45 39 00 50 0C |AENGE . $7E9.P.|
00000440: 76 02 41 44 4C 4F 57 20 20 20 B2 20 24 37 45 41 |v.ADLOW . $7EA|
00000450: 00 63 0C 80 02 41 44 48 49 47 48 20 20 B2 20 24 |.c...ADHIGH . $|
00000460: 37 45 42 00 76 0C 8A 02 4E 55 4D 44 41 54 20 20 |7EB.v...NUMDAT |
00000470: B2 20 24 37 45 43 00 89 0C 94 02 4E 55 4D 44 41 |. $7EC.....NUMDA|
00000480: 54 32 20 B2 20 24 37 45 44 00 9C 0C 9E 02 5A 45 |T2 . $7ED.....ZE|
00000490: 49 4C 4F 20 20 20 B2 20 24 37 45 45 00 AF 0C A8 |ILO . $7EE....|
000004A0: 02 5A 45 49 48 49 20 20 20 B2 20 24 37 45 46 00 |.ZEIHI . $7EF.|
000004B0: BF 0C B2 02 A9 20 20 20 20 B2 20 24 37 46 30 00 |..... . $7F0.|
000004C0: D2 0C BC 02 53 55 4D 20 20 20 20 20 B2 20 24 37 |....SUM . $7|
000004D0: 46 31 00 E5 0C C6 02 53 55 4D 4D 45 20 20 20 B2 |F1.....SUMME .|
000004E0: 20 24 37 46 32 00 F8 0C D0 02 53 54 52 49 4E 47 | $7F2.....STRING|
000004F0: 20 20 B2 20 24 37 46 38 00 0C 0D DA 02 43 48 4B | . $7F8.....CHK|
00000500: 43 4F 4D 20 20 B2 20 24 41 45 46 44 00 20 0D E4 |COM . $AEFD. ..|
00000510: 02 43 4F 4D 42 59 54 20 20 B2 20 24 45 32 30 30 |.COMBYT . $E200|
00000520: 00 34 0D EE 02 46 52 4D 45 56 4C 20 20 B2 20 24 |.4...FRMEVL . $|
00000530: 41 44 39 45 00 48 0D F8 02 45 52 52 20 20 20 20 |AD9E.H...ERR |
00000540: 20 B2 20 24 41 34 33 37 00 5C 0D 02 03 4F 55 54 | . $A437.\...OUT|
00000550: 53 54 52 20 20 B2 20 24 41 42 32 34 00 70 0D 0C |STR . $AB24.p..|
00000560: 03 46 4F 55 54 20 20 20 20 B2 20 24 42 44 44 44 |.FOUT . $BDDD|
00000570: 00 84 0D 16 03 4D 41 49 4E 31 20 20 20 B2 20 24 |.....MAIN1 . $|
00000580: 41 34 39 43 00 97 0D 20 03 56 45 43 41 34 38 33 |A49C... .VECA483|
00000590: 20 B2 20 24 33 30 32 00 A9 0D 2A 03 5A 46 44 5A | . $302...*.ZFDZ|
000005A0: 20 20 20 20 B2 20 24 32 32 00 BB 0D 34 03 50 43 | . $22...4.PC|
000005B0: 20 20 20 20 20 20 B2 20 24 37 41 00 CD 0D 3E 03 | . $7A...>.|
000005C0: 56 41 52 20 20 20 20 20 B2 20 24 32 44 00 DF 0D |VAR . $2D...|
000005D0: 48 03 A2 20 20 20 20 20 B2 20 24 41 36 34 34 00 |H.. . $A644.|
000005E0: E5 0D 52 03 3B 00 EB 0D 5C 03 3B 00 F1 0D 66 03 |..R.;...\.;...f.|
000005F0: 3B 00 0C 0E 70 03 3B 20 42 41 53 49 43 20 5A 45 |;...p.; BASIC ZE|
00000600: 49 4C 45 20 45 52 5A 45 55 47 45 4E 00 12 0E 7A |ILE ERZEUGEN...z|
00000610: 03 3B 00 1E 0E 84 03 2E 57 B0 44 20 4C 31 00 2C |.;......W.D L1.,|
00000620: 0E 8E 03 2E 57 B0 44 20 31 39 38 37 00 3A 0E 98 |....W.D 1987.:..|
00000630: 03 2E 42 59 54 45 20 24 39 45 00 48 0E A2 03 2E |..BYTE $9E.H....|
00000640: C6 20 22 32 30 36 31 22 00 56 0E AC 03 2E 42 59 |. "2061".V....BY|
00000650: 54 45 20 24 30 30 00 66 0E B6 03 4C 31 20 2E 57 |TE $00.f...L1 .W|
00000660: B0 44 20 24 30 30 00 6C 0E C0 03 3B 00 88 0E CA |.D $00.l...;....|
00000670: 03 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 20 |.; STARTADRESSE |
00000680: 45 49 4E 4C 45 53 45 4E 00 8E 0E D4 03 3B 00 94 |EINLESEN.....;..|
00000690: 0E DE 03 3B 00 A1 0E E8 03 4C 44 41 20 23 24 30 |...;.....LDA #$0|
000006A0: 36 00 B0 0E F2 03 53 54 41 20 56 49 43 AA 33 32 |6.....STA VIC.32|
000006B0: 00 BF 0E FC 03 53 54 41 20 56 49 43 AA 33 33 00 |.....STA VIC.33.|
000006C0: CD 0E 06 04 4C 44 41 20 23 B3 54 58 31 00 DB 0E |....LDA #.TX1...|
000006D0: 10 04 4C 44 59 20 23 B1 54 58 31 00 EA 0E 1A 04 |..LDY #.TX1.....|
000006E0: 4A 53 52 20 53 54 52 4F 55 54 00 F7 0E 24 04 4C |JSR STROUT...$.L|
000006F0: 44 41 20 23 24 30 30 00 04 0F 2E 04 53 54 41 20 |DA #$00.....STA |
00000700: 43 52 53 52 00 0A 0F 38 04 3B 00 2B 0F 42 04 3B |CRSR...8.;.+.B.;|
00000710: 20 42 49 53 20 5A 55 20 35 20 5A 41 48 C3 20 45 | BIS ZU 5 ZAH. E|
00000720: 49 4E 4C 45 53 45 4E 20 55 4E 44 00 50 0F 4C 04 |INLESEN UND.P.L.|
00000730: 3B 20 49 4E 20 44 45 4E 20 45 49 4E 47 41 42 45 |; IN DEN EINGABE|
00000740: 50 55 46 46 45 52 20 53 43 48 52 45 49 42 45 4E |PUFFER SCHREIBEN|
00000750: 00 70 0F 56 04 3B 20 44 41 4E 4E 20 50 43 20 44 |.p.V.; DANN PC D|
00000760: 41 52 41 55 46 20 B9 49 54 49 91 49 45 52 45 4E |ARAUF .ITI.IEREN|
00000770: 00 90 0F 60 04 3B 20 55 4E 44 20 57 45 52 54 20 |...`.; UND WERT |
00000780: 41 4C 53 20 32 AB 42 59 54 45 20 B5 45 47 45 52 |ALS 2.BYTE .EGER|
00000790: 00 9F 0F 6A 04 3B 20 45 49 4E 4C 45 53 45 4E 00 |...j.; EINLESEN.|
000007A0: A5 0F 74 04 3B 00 B2 0F 7E 04 4C 44 58 20 23 24 |..t.;...~.LDX #$|
000007B0: 30 30 00 C2 0F 88 04 4C 32 20 20 53 54 58 20 53 |00.....L2 STX S|
000007C0: 54 52 00 D2 0F 92 04 4C 33 20 20 4A 53 52 20 A1 |TR.....L3 JSR .|
000007D0: 49 4E 00 DF 0F 9C 04 43 4D 50 20 23 24 30 44 00 |IN.....CMP #$0D.|
000007E0: E9 0F A6 04 42 45 51 20 8E 00 F6 0F B0 04 43 4D |....BEQ ......CM|
000007F0: 50 20 23 24 31 34 00 02 10 BA 04 42 45 51 20 44 |P #$14.....BEQ D|
00000800: 45 4C 00 0E 10 C4 04 4C 44 58 20 53 54 52 00 19 |EL.....LDX STR..|
00000810: 10 CE 04 43 50 58 20 23 35 00 24 10 D8 04 42 43 |...CPX #5.$...BC|
00000820: 53 20 4C 32 00 31 10 E2 04 43 4D 50 20 23 24 33 |S L2.1...CMP #$3|
00000830: 30 00 3C 10 EC 04 42 43 43 20 4C 33 00 49 10 F6 |0.<...BCC L3.I..|
00000840: 04 43 4D 50 20 23 24 33 41 00 54 10 00 05 42 43 |.CMP #$3A.T...BC|
00000850: 53 20 4C 33 00 62 10 0A 05 4A 53 52 20 42 53 4F |S L3.b...JSR BSO|
00000860: 55 54 00 6E 10 14 05 4C 44 58 20 53 54 52 00 7F |UT.n...LDX STR..|
00000870: 10 1E 05 53 54 41 20 42 55 46 46 45 52 2C 58 00 |...STA BUFFER,X.|
00000880: 87 10 28 05 49 4E 58 00 92 10 32 05 42 4E 45 20 |..(.INX...2.BNE |
00000890: 4C 32 00 98 10 3C 05 3B 00 A8 10 46 05 44 45 4C |L2...<.;...F.DEL|
000008A0: 20 4C 44 58 20 53 54 52 00 B3 10 50 05 42 45 51 | LDX STR...P.BEQ|
000008B0: 20 4C 33 00 C1 10 5A 05 4C 44 41 20 23 B3 54 58 | L3...Z.LDA #.TX|
000008C0: 32 00 CF 10 64 05 4C 44 59 20 23 B1 54 58 32 00 |2...d.LDY #.TX2.|
000008D0: DE 10 6E 05 4A 53 52 20 53 54 52 4F 55 54 00 EA |..n.JSR STROUT..|
000008E0: 10 78 05 4C 44 58 20 53 54 52 00 F2 10 82 05 44 |.x.LDX STR.....D|
000008F0: 45 58 00 FD 10 8C 05 4A 4D 50 20 4C 32 00 03 11 |EX.....JMP L2...|
00000900: 96 05 3B 00 12 11 A0 05 8E 20 4C 44 41 20 23 24 |..;...... LDA #$|
00000910: 30 31 00 1F 11 AA 05 53 54 41 20 43 52 53 52 00 |01.....STA CRSR.|
00000920: 2C 11 B4 05 4C 44 41 20 23 24 32 30 00 3A 11 BE |,...LDA #$20.:..|
00000930: 05 4A 53 52 20 42 53 4F 55 54 00 47 11 C8 05 4C |.JSR BSOUT.G...L|
00000940: 44 58 20 23 24 30 30 00 54 11 D2 05 4C 44 59 20 |DX #$00.T...LDY |
00000950: 23 24 30 32 00 5F 11 DC 05 53 54 58 20 50 43 00 |#$02._...STX PC.|
00000960: 6C 11 E6 05 53 54 59 20 50 43 AA 31 00 78 11 F0 |l...STY PC.1.x..|
00000970: 05 4C 44 58 20 53 54 52 00 85 11 FA 05 4C 44 41 |.LDX STR.....LDA|
00000980: 20 23 22 3A 22 00 96 11 04 06 53 54 41 20 42 55 | #":".....STA BU|
00000990: 46 46 45 52 2C 58 00 9C 11 0E 06 3B 00 B3 11 18 |FFER,X.....;....|
000009A0: 06 3B 20 32 AB 42 59 54 45 20 B5 45 47 45 52 20 |.; 2.BYTE .EGER |
000009B0: 48 4F C3 00 B9 11 22 06 3B 00 C8 11 2C 06 4A 53 |HO....".;...,.JS|
000009C0: 52 20 46 52 4D 4E 55 4D 00 D5 11 36 06 4A 53 52 |R FRMNUM...6.JSR|
000009D0: 20 A1 41 44 52 00 DB 11 40 06 3B 00 E9 11 4A 06 | .ADR...@.;...J.|
000009E0: 4C 44 41 20 23 B3 54 58 33 00 F7 11 54 06 4C 44 |LDA #.TX3...T.LD|
000009F0: 59 20 23 B1 54 58 33 00 06 12 5E 06 4A 53 52 20 |Y #.TX3...^.JSR |
00000A00: 53 54 52 4F 55 54 00 10 12 68 06 4C 44 58 20 B5 |STROUT...h.LDX .|
00000A10: 00 1F 12 72 06 53 54 58 20 54 52 41 4E 53 32 00 |...r.STX TRANS2.|
00000A20: 2E 12 7C 06 53 54 58 20 54 52 41 4E 53 33 00 3A |..|.STX TRANS3.:|
00000A30: 12 86 06 4C 44 41 20 B5 AA 31 00 4B 12 90 06 53 |...LDA ..1.K...S|
00000A40: 54 41 20 54 52 41 4E 53 32 AA 31 00 5C 12 9A 06 |TA TRANS2.1.\...|
00000A50: 53 54 41 20 54 52 41 4E 53 33 AA 31 00 69 12 A4 |STA TRANS3.1.i..|
00000A60: 06 4A 53 52 20 B5 4F 55 54 00 76 12 AE 06 4C 44 |.JSR .OUT.v...LD|
00000A70: 41 20 23 22 2D 22 00 84 12 B8 06 4A 53 52 20 42 |A #"-".....JSR B|
00000A80: 53 4F 55 54 00 8A 12 C2 06 3B 00 A5 12 CC 06 3B |SOUT.....;.....;|
00000A90: 20 50 52 4F 47 52 41 4D 4D 20 56 45 52 53 43 48 | PROGRAMM VERSCH|
00000AA0: 49 45 42 45 4E 00 AB 12 D6 06 3B 00 BD 12 E0 06 |IEBEN.....;.....|
00000AB0: 4C 44 41 20 23 B3 50 52 4F 47 52 41 4D 00 CC 12 |LDA #.PROGRAM...|
00000AC0: EA 06 53 54 41 20 54 52 41 4E 53 31 00 DE 12 F4 |..STA TRANS1....|
00000AD0: 06 4C 44 41 20 23 B1 50 52 4F 47 52 41 4D 00 EF |.LDA #.PROGRAM..|
00000AE0: 12 FE 06 53 54 41 20 54 52 41 4E 53 31 AA 31 00 |...STA TRANS1.1.|
00000AF0: F5 12 08 07 3B 00 10 13 12 07 3B 20 31 2E 20 41 |....;.....; 1. A|
00000B00: 44 52 45 53 53 45 4E 20 41 4E 50 41 53 53 45 4E |DRESSEN ANPASSEN|
00000B10: 00 16 13 1C 07 3B 00 27 13 26 07 54 53 54 31 20 |.....;.'.&.TST1 |
00000B20: 4C 44 58 20 23 32 33 00 3B 13 30 07 54 53 54 32 |LDX #23.;.0.TST2|
00000B30: 20 4C 44 41 20 54 41 42 31 2C 58 00 43 13 3A 07 | LDA TAB1,X.C.:.|
00000B40: 44 45 58 00 54 13 44 07 43 4D 50 20 54 52 41 4E |DEX.T.D.CMP TRAN|
00000B50: 53 31 AA 31 00 61 13 4E 07 42 4E 45 20 54 53 54 |S1.1.a.N.BNE TST|
00000B60: 33 00 70 13 58 07 4C 44 41 20 54 41 42 31 2C 58 |3.p.X.LDA TAB1,X|
00000B70: 00 7F 13 62 07 43 4D 50 20 54 52 41 4E 53 31 00 |...b.CMP TRANS1.|
00000B80: 8C 13 6C 07 42 4E 45 20 54 53 54 33 00 9B 13 76 |..l.BNE TST3...v|
00000B90: 07 4C 44 41 20 54 41 42 32 2C 58 00 AA 13 80 07 |.LDA TAB2,X.....|
00000BA0: 53 54 41 20 54 52 41 4E 53 34 00 B2 13 8A 07 49 |STA TRANS4.....I|
00000BB0: 4E 58 00 C1 13 94 07 4C 44 41 20 54 41 42 32 2C |NX.....LDA TAB2,|
00000BC0: 58 00 D2 13 9E 07 53 54 41 20 54 52 41 4E 53 34 |X.....STA TRANS4|
00000BD0: AA 31 00 E1 13 A8 07 4C 44 41 20 54 52 41 4E 53 |.1.....LDA TRANS|
00000BE0: 32 00 EE 13 B2 07 4C 44 59 20 23 24 30 30 00 01 |2.....LDY #$00..|
00000BF0: 14 BC 07 53 54 41 20 28 54 52 41 4E 53 34 29 2C |...STA (TRANS4),|
00000C00: 59 00 12 14 C6 07 4C 44 41 20 54 52 41 4E 53 32 |Y.....LDA TRANS2|
00000C10: AA 31 00 1A 14 D0 07 49 4E 59 00 22 14 DA 07 49 |.1.....INY."...I|
00000C20: 4E 59 00 35 14 E4 07 53 54 41 20 28 54 52 41 4E |NY.5...STA (TRAN|
00000C30: 53 34 29 2C 59 00 40 14 EE 07 4C 44 58 20 23 30 |S4),Y.@...LDX #0|
00000C40: 00 46 14 F8 07 3B 00 53 14 02 08 54 53 54 33 20 |.F...;.S...TST3 |
00000C50: 44 45 58 00 60 14 0C 08 42 50 4C 20 54 53 54 32 |DEX.`...BPL TST2|
00000C60: 00 66 14 16 08 3B 00 6C 14 20 08 3B 00 81 14 2A |.f...;.l. .;...*|
00000C70: 08 54 53 54 31 33 20 49 4E 43 20 56 49 43 AA 33 |.TST13 INC VIC.3|
00000C80: 32 00 90 14 34 08 49 4E 43 20 54 52 41 4E 53 31 |2...4.INC TRANS1|
00000C90: 00 9D 14 3E 08 42 4E 45 20 49 54 53 31 00 AE 14 |...>.BNE ITS1...|
00000CA0: 48 08 49 4E 43 20 54 52 41 4E 53 31 AA 31 00 C2 |H.INC TRANS1.1..|
00000CB0: 14 52 08 49 54 53 31 20 49 4E 43 20 54 52 41 4E |.R.ITS1 INC TRAN|
00000CC0: 53 32 00 CF 14 5C 08 42 4E 45 20 49 54 53 32 00 |S2...\.BNE ITS2.|
00000CD0: E0 14 66 08 49 4E 43 20 54 52 41 4E 53 32 AA 31 |..f.INC TRANS2.1|
00000CE0: 00 E6 14 70 08 3B 00 FA 14 7A 08 49 54 53 32 20 |...p.;...z.ITS2 |
00000CF0: 4C 44 41 20 54 52 41 4E 53 31 00 06 15 84 08 43 |LDA TRANS1.....C|
00000D00: 4D 50 20 23 B3 80 00 14 15 8E 08 42 4E 45 20 54 |MP #.......BNE T|
00000D10: 53 54 31 34 00 25 15 98 08 4C 44 41 20 54 52 41 |ST14.%...LDA TRA|
00000D20: 4E 53 31 AA 31 00 31 15 A2 08 43 4D 50 20 23 B1 |NS1.1.1...CMP #.|
00000D30: 80 00 3C 15 AC 08 42 45 51 20 56 30 00 42 15 B6 |..<...BEQ V0.B..|
00000D40: 08 3B 00 55 15 C0 08 54 53 54 31 34 20 4A 4D 50 |.;.U...TST14 JMP|
00000D50: 20 54 53 54 31 00 5B 15 CA 08 3B 00 7D 15 D4 08 | TST1.[...;.}...|
00000D60: 54 41 42 31 20 2E 57 B0 44 20 53 54 31 2C 53 54 |TAB1 .W.D ST1,ST|
00000D70: 32 2C 53 54 33 2C 4C 4F 41 2C 53 54 34 00 9D 15 |2,ST3,LOA,ST4...|
00000D80: DE 08 2E 57 B0 44 20 53 54 35 2C 53 54 36 2C 53 |...W.D ST5,ST6,S|
00000D90: 54 37 2C 4E 4F 2C 59 45 53 2C 53 54 38 00 AA 15 |T7,NO,YES,ST8...|
00000DA0: E8 08 2E 57 B0 44 20 53 54 39 00 B0 15 F2 08 3B |...W.D ST9.....;|
00000DB0: 00 D0 15 FC 08 54 41 42 32 20 2E 57 B0 44 20 B9 |.....TAB2 .W.D .|
00000DC0: 54 31 AA 31 2C B9 54 32 AA 31 2C 4F 4B 32 AA 31 |T1.1,.T2.1,OK2.1|
00000DD0: 00 F4 15 06 09 2E 57 B0 44 20 4C 4F 41 4F 55 54 |......W.D LOAOUT|
00000DE0: AA 31 2C 4F 4B 33 AA 31 2C 4F 4B 35 AA 31 2C 4F |.1,OK3.1,OK5.1,O|
00000DF0: 4B 36 AA 31 00 14 16 10 09 2E 57 B0 44 20 4F 4B |K6.1......W.D OK|
00000E00: 37 AA 31 2C 4E 4F 53 55 4D AA 31 2C 59 45 53 4F |7.1,NOSUM.1,YESO|
00000E10: 55 54 AA 31 00 29 16 1A 09 2E 57 B0 44 20 4F 4B |UT.1.)....W.D OK|
00000E20: 38 AA 31 2C 4F 4B 41 AA 31 00 2F 16 24 09 3B 00 |8.1,OKA.1./.$.;.|
00000E30: 44 16 2E 09 3B 20 32 2E 20 56 45 52 53 43 48 49 |D...; 2. VERSCHI|
00000E40: 45 42 45 4E 00 4A 16 38 09 3B 00 5F 16 42 09 56 |EBEN.J.8.;._.B.V|
00000E50: 30 20 4C 44 41 20 23 B3 50 52 4F 47 52 41 4D 00 |0 LDA #.PROGRAM.|
00000E60: 71 16 4C 09 4C 44 59 20 23 B1 50 52 4F 47 52 41 |q.L.LDY #.PROGRA|
00000E70: 4D 00 80 16 56 09 53 54 41 20 54 52 41 4E 53 31 |M...V.STA TRANS1|
00000E80: 00 91 16 60 09 53 54 59 20 54 52 41 4E 53 31 AA |...`.STY TRANS1.|
00000E90: 31 00 A0 16 6A 09 4C 44 41 20 54 52 41 4E 53 33 |1...j.LDA TRANS3|
00000EA0: 00 AF 16 74 09 53 54 41 20 54 52 41 4E 53 32 00 |...t.STA TRANS2.|
00000EB0: C0 16 7E 09 4C 44 41 20 54 52 41 4E 53 33 AA 31 |..~.LDA TRANS3.1|
00000EC0: 00 D1 16 88 09 53 54 41 20 54 52 41 4E 53 32 AA |.....STA TRANS2.|
00000ED0: 31 00 D7 16 92 09 3B 00 E2 16 9C 09 4C 44 59 20 |1.....;.....LDY |
00000EE0: 23 30 00 F8 16 A6 09 56 31 20 4C 44 41 20 28 54 |#0.....V1 LDA (T|
00000EF0: 52 41 4E 53 31 29 2C 59 00 0B 17 B0 09 53 54 41 |RANS1),Y.....STA|
00000F00: 20 28 54 52 41 4E 53 32 29 2C 59 00 1A 17 BA 09 | (TRANS2),Y.....|
00000F10: 49 4E 43 20 54 52 41 4E 53 31 00 25 17 C4 09 42 |INC TRANS1.%...B|
00000F20: 4E 45 20 56 32 00 36 17 CE 09 49 4E 43 20 54 52 |NE V2.6...INC TR|
00000F30: 41 4E 53 31 AA 31 00 48 17 D8 09 56 32 20 49 4E |ANS1.1.H...V2 IN|
00000F40: 43 20 54 52 41 4E 53 32 00 53 17 E2 09 42 4E 45 |C TRANS2.S...BNE|
00000F50: 20 56 33 00 64 17 EC 09 49 4E 43 20 54 52 41 4E | V3.d...INC TRAN|
00000F60: 53 32 AA 31 00 6A 17 F6 09 3B 00 7C 17 00 0A 56 |S2.1.j...;.|...V|
00000F70: 33 20 49 4E 43 20 56 49 43 AA 33 33 00 8B 17 0A |3 INC VIC.33....|
00000F80: 0A 4C 44 41 20 54 52 41 4E 53 31 00 97 17 14 0A |.LDA TRANS1.....|
00000F90: 43 4D 50 20 23 B3 80 00 A2 17 1E 0A 42 4E 45 20 |CMP #.......BNE |
00000FA0: 56 31 00 B3 17 28 0A 4C 44 41 20 54 52 41 4E 53 |V1...(.LDA TRANS|
00000FB0: 31 AA 31 00 BF 17 32 0A 43 4D 50 20 23 B1 80 00 |1.1...2.CMP #...|
00000FC0: CA 17 3C 0A 42 4E 45 20 56 31 00 D0 17 46 0A 3B |..<.BNE V1...F.;|
00000FD0: 00 D6 17 50 0A 3B 00 F4 17 5A 0A 3B 20 42 45 44 |...P.;...Z.; BED|
00000FE0: 49 45 4E 55 4E 47 53 41 4E 4C 45 49 54 55 4E 47 |IENUNGSANLEITUNG|
00000FF0: 20 55 4E 44 00 09 18 64 0A 3B 20 27 87 59 2E 27 | UND...d.; '.Y.'|
00001000: 20 41 55 53 47 45 42 45 4E 00 0F 18 6E 0A 3B 00 | AUSGEBEN...n.;.|
00001010: 15 18 78 0A 3B 00 22 18 82 0A 4C 44 41 20 23 24 |..x.;."...LDA #$|
00001020: 30 36 00 31 18 8C 0A 53 54 41 20 56 49 43 AA 33 |06.1...STA VIC.3|
00001030: 32 00 40 18 96 0A 53 54 41 20 56 49 43 AA 33 33 |2.@...STA VIC.33|
00001040: 00 4F 18 A0 0A 4C 44 58 20 54 52 41 4E 53 32 00 |.O...LDX TRANS2.|
00001050: 60 18 AA 0A 4C 44 41 20 54 52 41 4E 53 32 AA 31 |`...LDA TRANS2.1|
00001060: 00 6D 18 B4 0A 4A 53 52 20 B5 4F 55 54 00 7D 18 |.m...JSR .OUT.}.|
00001070: BE 0A 4C 44 41 20 23 B3 53 59 54 58 54 00 8D 18 |..LDA #.SYTXT...|
00001080: C8 0A 4C 44 59 20 23 B1 53 59 54 58 54 00 9C 18 |..LDY #.SYTXT...|
00001090: D2 0A 4A 53 52 20 53 54 52 4F 55 54 00 AB 18 DC |..JSR STROUT....|
000010A0: 0A 4C 44 58 20 54 52 41 4E 53 33 00 BC 18 E6 0A |.LDX TRANS3.....|
000010B0: 4C 44 41 20 54 52 41 4E 53 33 AA 31 00 C9 18 F0 |LDA TRANS3.1....|
000010C0: 0A 4A 53 52 20 B5 4F 55 54 00 D7 18 FA 0A 4C 44 |.JSR .OUT.....LD|
000010D0: 41 20 23 B3 54 58 34 00 E5 18 04 0B 4C 44 59 20 |A #.TX4.....LDY |
000010E0: 23 B1 54 58 34 00 F4 18 0E 0B 4A 53 52 20 53 54 |#.TX4.....JSR ST|
000010F0: 52 4F 55 54 00 FE 18 18 0B 4A 53 52 20 A2 00 09 |ROUT.....JSR ...|
00001100: 19 22 0B 4A 4D 50 20 87 59 00 0F 19 2C 0B 3B 00 |.".JMP .Y...,.;.|
00001110: 15 19 36 0B 3B 00 23 19 40 0B 2E 42 59 54 45 20 |..6.;.#.@..BYTE |
00001120: 24 30 30 00 29 19 4A 0B 3B 00 37 19 54 0B 3B 20 |$00.).J.;.7.T.; |
00001130: 53 54 52 49 4E 47 53 00 3D 19 5E 0B 3B 00 43 19 |STRINGS.=.^.;.C.|
00001140: 68 0B 3B 00 6E 19 72 0B 54 58 31 20 2E C6 22 93 |h.;.n.r.TX1 ..".|
00001150: 05 11 1D 44 45 4C 55 58 45 20 44 41 54 41 53 20 |...DELUXE DATAS |
00001160: 42 59 20 4A 2E 4C 55 45 54 54 47 41 55 22 00 80 |BY J.LUETTGAU"..|
00001170: 19 7C 0B 2E 42 59 54 45 20 24 30 44 2C 24 30 45 |.|..BYTE $0D,$0E|
00001180: 00 AC 19 86 0B 2E C6 22 11 11 1D 45 4E 54 45 52 |......."...ENTER|
00001190: 20 53 54 41 52 54 2D 41 44 52 45 53 53 20 4F 46 | START-ADRESS OF|
000011A0: 20 44 41 54 41 2D 4D 41 4B 45 52 22 00 BA 19 90 | DATA-MAKER"....|
000011B0: 0B 2E 42 59 54 45 20 24 30 44 00 E0 19 9A 0B 2E |..BYTE $0D......|
000011C0: C6 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000011D0: 1D 1D 1D 1D A3 A3 A3 A3 A3 9D 9D 9D 9D 9D 91 22 |..............."|
000011E0: 00 EE 19 A4 0B 2E 42 59 54 45 20 24 30 30 00 F4 |......BYTE $00..|
000011F0: 19 AE 0B 3B 00 06 1A B8 0B 54 58 32 20 2E C6 22 |...;.....TX2 .."|
00001200: 20 9D 9D 20 9D 22 00 14 1A C2 0B 2E 42 59 54 45 | .. ."......BYTE|
00001210: 20 24 30 30 00 1A 1A CC 0B 3B 00 2C 1A D6 0B 54 | $00.....;.,...T|
00001220: 58 33 20 2E 42 59 54 45 20 24 30 44 00 4E 1A E0 |X3 .BYTE $0D.N..|
00001230: 0B 2E C6 22 11 11 1D 50 52 4F 47 52 41 4D 20 54 |..."...PROGRAM T|
00001240: 52 41 4E 53 46 45 52 45 44 20 54 4F 20 22 00 5C |RANSFERED TO ".\|
00001250: 1A EA 0B 2E 42 59 54 45 20 24 30 30 00 62 1A F4 |....BYTE $00.b..|
00001260: 0B 3B 00 79 1A FE 0B 53 59 54 58 54 20 2E 42 59 |.;.y...SYTXT .BY|
00001270: 54 45 24 30 44 2C 24 30 44 00 89 1A 08 0C 2E C6 |TE$0D,$0D.......|
00001280: 22 1D 55 53 49 4E 47 3A 22 00 9B 1A 12 0C 2E 42 |".USING:"......B|
00001290: 59 54 45 20 24 30 44 2C 24 30 44 00 A8 1A 1C 0C |YTE $0D,$0D.....|
000012A0: 2E C6 22 1D 53 59 53 22 00 B6 1A 26 0C 2E 42 59 |..".SYS"...&..BY|
000012B0: 54 45 20 24 30 30 00 BC 1A 30 0C 3B 00 DC 1A 3A |TE $00...0.;...:|
000012C0: 0C 54 58 34 20 2E C6 22 28 2C 41 24 29 2C 41 2C |.TX4 .."(,A$),A,|
000012D0: 42 28 2C 43 2C 44 2C 45 2C 46 29 22 00 EE 1A 44 |B(,C,D,E,F)"...D|
000012E0: 0C 2E 42 59 54 45 20 24 30 44 2C 24 30 44 00 19 |..BYTE $0D,$0D..|
000012F0: 1B 4E 0C 2E C6 22 1D 41 24 3D 53 54 52 49 4E 47 |.N...".A$=STRING|
00001300: 20 28 27 44 41 54 41 27 20 4F 52 20 27 2E 42 59 | ('DATA' OR '.BY|
00001310: 54 45 27 20 45 2E 47 2E 29 00 2B 1B 58 0C 2E 42 |TE' E.G.).+.X..B|
00001320: 59 54 45 20 24 30 44 2C 24 30 44 00 4F 1B 62 0C |YTE $0D,$0D.O.b.|
00001330: 2E C6 22 1D 41 3D 53 54 41 52 54 2C 42 3D 45 4E |..".A=START,B=EN|
00001340: 44 2C 43 3D 44 41 54 41 53 2F 4C 49 4E 45 22 00 |D,C=DATAS/LINE".|
00001350: 61 1B 6C 0C 2E 42 59 54 45 20 24 30 44 2C 24 30 |a.l..BYTE $0D,$0|
00001360: 44 00 7E 1B 76 0C 2E C6 22 1D 44 3D 46 49 52 53 |D.~.v...".D=FIRS|
00001370: 54 20 4C 49 4E 45 2C 45 3D 53 54 45 50 22 00 90 |T LINE,E=STEP"..|
00001380: 1B 80 0C 2E 42 59 54 45 20 24 30 44 2C 24 30 44 |....BYTE $0D,$0D|
00001390: 00 B9 1B 8A 0C 2E C6 22 1D 46 3C 3E 30 20 3D 20 |.......".F<>0 = |
000013A0: 43 48 45 43 4B 53 55 4D 2C 20 47 3D 56 41 4C 55 |CHECKSUM, G=VALU|
000013B0: 45 20 4F 46 20 24 30 31 22 00 CB 1B 94 0C 2E 42 |E OF $01"......B|
000013C0: 59 54 45 20 24 30 44 2C 24 30 30 00 D1 1B 9E 0C |YTE $0D,$00.....|
000013D0: 3B 00 D7 1B A8 0C 3B 00 E6 1B B2 0C 3B 20 50 52 |;.....;.....; PR|
000013E0: 4F 47 52 41 4D 4D 00 EC 1B BC 0C 3B 00 F2 1B C6 |OGRAMM.....;....|
000013F0: 0C 3B 00 F8 1B D0 0C 3B 00 0C 1C DA 0C 50 52 4F |.;.....;.....PRO|
00001400: 47 52 41 4D 20 20 4C 44 41 20 23 36 00 1B 1C E4 |GRAM LDA #6....|
00001410: 0C 53 54 41 20 56 49 43 AA 33 32 00 2A 1C EE 0C |.STA VIC.32.*...|
00001420: 53 54 41 20 56 49 43 AA 33 33 00 30 1C F8 0C 3B |STA VIC.33.0...;|
00001430: 00 36 1C 02 0D 3B 00 48 1C 0C 0D B9 54 31 20 4C |.6...;.H....T1 L|
00001440: 44 41 20 23 B3 53 54 31 00 56 1C 16 0D 4C 44 59 |DA #.ST1.V...LDY|
00001450: 20 23 B1 53 54 31 00 65 1C 20 0D 4A 53 52 20 53 | #.ST1.e. .JSR S|
00001460: 54 52 4F 55 54 00 6B 1C 2A 0D 3B 00 87 1C 34 0D |TROUT.k.*.;...4.|
00001470: 3B 20 50 52 4F 47 52 41 4D 4D 5A 45 49 47 45 52 |; PROGRAMMZEIGER|
00001480: 20 52 45 54 54 45 4E 00 8D 1C 3E 0D 3B 00 98 1C | RETTEN...>.;...|
00001490: 48 0D 4C 44 41 20 50 43 00 A5 1C 52 0D 4C 44 59 |H.LDA PC...R.LDY|
000014A0: 20 50 43 AA 31 00 B4 1C 5C 0D 53 54 41 20 53 54 | PC.1...\.STA ST|
000014B0: 52 49 4E 47 00 C5 1C 66 0D 53 54 59 20 53 54 52 |RING...f.STY STR|
000014C0: 49 4E 47 AA 31 00 CB 1C 70 0D 3B 00 DA 1C 7A 0D |ING.1...p.;...z.|
000014D0: 4A 53 52 20 43 48 4B 43 4F 4D 00 E0 1C 84 0D 3B |JSR CHKCOM.....;|
000014E0: 00 01 1D 8E 0D 3B 20 41 55 53 44 52 55 43 4B 20 |.....; AUSDRUCK |
000014F0: 48 4F C3 20 55 4E 44 20 41 55 53 57 45 52 54 45 |HO. UND AUSWERTE|
00001500: 4E 00 20 1D 98 0D 3B 20 57 45 4E 4E 20 53 54 52 |N. ...; WENN STR|
00001510: 49 4E 47 2C 20 44 41 4E 4E 20 57 45 49 54 45 52 |ING, DANN WEITER|
00001520: 00 41 1D A2 0D 3B 20 57 45 4E 4E 20 5A 41 48 4C |.A...; WENN ZAHL|
00001530: 2C 20 44 41 4E 4E 20 96 41 55 4C 54 57 45 52 54 |, DANN .AULTWERT|
00001540: 45 00 62 1D AC 0D 3B 20 46 55 45 52 20 53 54 52 |E.b...; FUER STR|
00001550: 49 4E 47 20 53 45 54 5A 45 4E 2C 20 50 43 20 5A |ING SETZEN, PC Z|
00001560: 55 AB 00 80 1D B6 0D 3B 20 52 55 45 43 4B 48 4F |U......; RUECKHO|
00001570: C3 20 55 4E 44 20 57 45 49 54 45 52 20 42 45 49 |. UND WEITER BEI|
00001580: 00 9C 1D C0 0D 3B 20 53 54 41 52 54 41 44 52 45 |.....; STARTADRE|
00001590: 53 53 45 20 45 49 4E 4C 45 53 45 4E 00 A2 1D CA |SSE EINLESEN....|
000015A0: 0D 3B 00 B1 1D D4 0D 4A 53 52 20 46 52 4D 45 56 |.;.....JSR FRMEV|
000015B0: 4C 00 BD 1D DE 0D 4C 44 41 20 24 30 44 00 CA 1D |L.....LDA $0D...|
000015C0: E8 0D 42 4D 49 20 4F 4B 30 31 00 D9 1D F2 0D 4C |..BMI OK01.....L|
000015D0: 44 41 20 53 54 52 49 4E 47 00 EA 1D FC 0D 4C 44 |DA STRING.....LD|
000015E0: 59 20 53 54 52 49 4E 47 AA 31 00 F5 1D 06 0E 53 |Y STRING.1.....S|
000015F0: 54 41 20 50 43 00 02 1E 10 0E 53 54 59 20 50 43 |TA PC.....STY PC|
00001600: AA 31 00 0D 1E 1A 0E 4C 44 41 20 23 34 00 1C 1E |.1.....LDA #4...|
00001610: 24 0E 53 54 41 20 4C 41 45 4E 47 45 00 29 1E 2E |$.STA LAENGE.)..|
00001620: 0E 4C 44 41 20 23 22 44 22 00 38 1E 38 0E 53 54 |.LDA #"D".8.8.ST|
00001630: 41 20 53 54 52 49 4E 47 00 45 1E 42 0E 4C 44 41 |A STRING.E.B.LDA|
00001640: 20 23 22 41 22 00 56 1E 4C 0E 53 54 41 20 53 54 | #"A".V.L.STA ST|
00001650: 52 49 4E 47 AA 31 00 63 1E 56 0E 4C 44 41 20 23 |RING.1.c.V.LDA #|
00001660: 22 54 22 00 74 1E 60 0E 53 54 41 20 53 54 52 49 |"T".t.`.STA STRI|
00001670: 4E 47 AA 32 00 81 1E 6A 0E 4C 44 41 20 23 22 41 |NG.2...j.LDA #"A|
00001680: 22 00 92 1E 74 0E 53 54 41 20 53 54 52 49 4E 47 |"...t.STA STRING|
00001690: AA 33 00 9F 1E 7E 0E 4C 44 41 20 23 24 30 30 00 |.3...~.LDA #$00.|
000016A0: B0 1E 88 0E 53 54 41 20 53 54 52 49 4E 47 AA 34 |....STA STRING.4|
000016B0: 00 B6 1E 92 0E 3B 00 D9 1E 9C 0E 3B 20 45 49 4E |.....;.....; EIN|
000016C0: 47 45 4C 45 53 45 4E 45 4E 20 53 54 52 49 4E 47 |GELESENEN STRING|
000016D0: 20 41 55 53 47 45 42 45 4E 00 DF 1E A6 0E 3B 00 | AUSGEBEN.....;.|
000016E0: F0 1E B0 0E 4C 44 41 20 23 B3 53 54 52 49 4E 47 |....LDA #.STRING|
000016F0: 00 01 1F BA 0E 4C 44 59 20 23 B1 53 54 52 49 4E |.....LDY #.STRIN|
00001700: 47 00 10 1F C4 0E 4A 53 52 20 53 54 52 4F 55 54 |G.....JSR STROUT|
00001710: 00 16 1F CE 0E 3B 00 2D 1F D8 0E 3B 20 55 4E 42 |.....;.-...; UNB|
00001720: 45 44 49 4E 47 54 45 52 20 53 50 8A 47 00 33 1F |EDINGTER SP.G.3.|
00001730: E2 0E 3B 00 3E 1F EC 0E 4C 44 59 20 23 30 00 4A |..;.>...LDY #0.J|
00001740: 1F F6 0E 42 45 51 20 B9 54 32 00 50 1F 00 0F 3B |...BEQ .T2.P...;|
00001750: 00 75 1F 0A 0F 3B 20 53 54 52 49 4E 47 20 49 4E |.u...; STRING IN|
00001760: 20 52 45 53 45 52 56 49 45 52 54 45 4E 20 42 45 | RESERVIERTEN BE|
00001770: 52 45 49 43 48 00 7B 1F 14 0F 3B 00 8B 1F 1E 0F |REICH.{...;.....|
00001780: 4F 4B 30 31 20 4C 44 59 20 23 30 00 91 1F 28 0F |OK01 LDY #0...(.|
00001790: 3B 00 A9 1F 32 0F 3B 20 53 54 52 49 4E 47 AB 4C |;...2.; STRING.L|
000017A0: 41 45 4E 47 45 20 48 4F C3 00 AF 1F 3C 0F 3B 00 |AENGE HO....<.;.|
000017B0: BF 1F 46 0F 4C 44 41 20 28 46 41 43 29 2C 59 00 |..F.LDA (FAC),Y.|
000017C0: C5 1F 50 0F 3B 00 E8 1F 5A 0F 3B 20 57 45 4E 4E |..P.;...Z.; WENN|
000017D0: 20 53 54 52 49 4E 47 20 4C 45 45 52 20 44 41 4E | STRING LEER DAN|
000017E0: 4E 20 46 45 48 4C 45 52 00 EE 1F 64 0F 3B 00 FA |N FEHLER...d.;..|
000017F0: 1F 6E 0F 42 4E 45 20 4F 4B 30 00 0A 20 78 0F 4A |.n.BNE OK0.. x.J|
00001800: 4D 50 20 49 4C 4C 51 55 41 4E 00 1D 20 82 0F 4F |MP ILLQUAN.. ..O|
00001810: 4B 30 20 53 54 41 20 4C 41 45 4E 47 45 00 25 20 |K0 STA LAENGE.% |
00001820: 8C 0F 49 4E 59 00 2B 20 96 0F 3B 00 4F 20 A0 0F |..INY.+ ..;.O ..|
00001830: 3B 20 41 44 52 45 53 53 45 20 48 4F C3 20 26 20 |; ADRESSE HO. & |
00001840: 53 54 52 49 4E 47 20 41 55 53 47 45 42 45 4E 00 |STRING AUSGEBEN.|
00001850: 55 20 AA 0F 3B 00 65 20 B4 0F 4C 44 41 20 28 46 |U ..;.e ..LDA (F|
00001860: 41 43 29 2C 59 00 73 20 BE 0F 53 54 41 20 41 44 |AC),Y.s ..STA AD|
00001870: 4C 4F 57 00 80 20 C8 0F 53 54 41 20 5A 46 44 5A |LOW.. ..STA ZFDZ|
00001880: 00 88 20 D2 0F 49 4E 59 00 98 20 DC 0F 4C 44 41 |.. ..INY.. ..LDA|
00001890: 20 28 46 41 43 29 2C 59 00 A7 20 E6 0F 53 54 41 | (FAC),Y.. ..STA|
000018A0: 20 41 44 48 49 47 48 00 B6 20 F0 0F 53 54 41 20 | ADHIGH.. ..STA |
000018B0: 5A 46 44 5A AA 31 00 C5 20 FA 0F 4C 44 41 20 4C |ZFDZ.1.. ..LDA L|
000018C0: 41 45 4E 47 45 00 D4 20 04 10 4A 53 52 20 4F 55 |AENGE.. ..JSR OU|
000018D0: 54 53 54 52 00 DA 20 0E 10 3B 00 FF 20 18 10 3B |TSTR.. ..;.. ..;|
000018E0: 20 57 45 4E 4E 20 4C 41 45 4E 47 45 52 20 41 4C | WENN LAENGER AL|
000018F0: 53 20 38 20 44 41 4E 4E 20 46 45 48 4C 45 52 00 |S 8 DANN FEHLER.|
00001900: 05 21 22 10 3B 00 14 21 2C 10 4C 44 59 20 4C 41 |.!".;..!,.LDY LA|
00001910: 45 4E 47 45 00 1F 21 36 10 43 50 59 20 23 39 00 |ENGE..!6.CPY #9.|
00001920: 2B 21 40 10 42 43 43 20 4F 4B 31 00 37 21 4A 10 |+!@.BCC OK1.7!J.|
00001930: 4C 44 58 20 23 32 33 00 43 21 54 10 4A 4D 50 20 |LDX #23.C!T.JMP |
00001940: 45 52 52 00 49 21 5E 10 3B 00 62 21 68 10 3B 20 |ERR.I!^.;.b!h.; |
00001950: 53 54 52 49 4E 47 20 55 45 42 45 52 54 52 41 47 |STRING UEBERTRAG|
00001960: 45 4E 00 68 21 72 10 3B 00 74 21 7C 10 4F 4B 31 |EN.h!r.;.t!|.OK1|
00001970: 20 44 45 59 00 8A 21 86 10 4F 4B 31 31 20 4C 44 | DEY..!..OK11 LD|
00001980: 41 20 28 5A 46 44 5A 29 2C 59 00 9B 21 90 10 53 |A (ZFDZ),Y..!..S|
00001990: 54 41 20 53 54 52 49 4E 47 2C 59 00 A3 21 9A 10 |TA STRING,Y..!..|
000019A0: 44 45 59 00 B0 21 A4 10 42 50 4C 20 4F 4B 31 31 |DEY..!..BPL OK11|
000019B0: 00 B6 21 AE 10 3B 00 D2 21 B8 10 3B 20 53 54 41 |..!..;..!..; STA|
000019C0: 52 54 41 44 52 45 53 53 45 20 45 49 4E 4C 45 53 |RTADRESSE EINLES|
000019D0: 45 4E 00 D8 21 C2 10 3B 00 EA 21 CC 10 B9 54 32 |EN..!..;..!...T2|
000019E0: 20 4C 44 41 20 23 B3 53 54 32 00 F8 21 D6 10 4C | LDA #.ST2..!..L|
000019F0: 44 59 20 23 B1 53 54 32 00 07 22 E0 10 4A 53 52 |DY #.ST2.."..JSR|
00001A00: 20 53 54 52 4F 55 54 00 16 22 EA 10 4A 53 52 20 | STROUT.."..JSR |
00001A10: 43 48 4B 43 4F 4D 00 25 22 F4 10 4A 53 52 20 46 |CHKCOM.%"..JSR F|
00001A20: 52 4D 4E 55 4D 00 32 22 FE 10 4A 53 52 20 A1 41 |RMNUM.2"..JSR .A|
00001A30: 44 52 00 41 22 08 11 53 54 59 20 54 52 41 4E 53 |DR.A"..STY TRANS|
00001A40: 31 00 52 22 12 11 53 54 41 20 54 52 41 4E 53 31 |1.R"..STA TRANS1|
00001A50: AA 31 00 61 22 1C 11 4C 44 58 20 54 52 41 4E 53 |.1.a"..LDX TRANS|
00001A60: 31 00 6E 22 26 11 4A 53 52 20 B5 4F 55 54 00 74 |1.n"&.JSR .OUT.t|
00001A70: 22 30 11 3B 00 8C 22 3A 11 3B 20 80 41 44 52 45 |"0.;..":.; .ADRE|
00001A80: 53 53 45 20 45 49 4E 4C 45 53 45 4E 00 92 22 44 |SSE EINLESEN.."D|
00001A90: 11 3B 00 A4 22 4E 11 4F 4B 32 20 4C 44 41 20 23 |.;.."N.OK2 LDA #|
00001AA0: B3 53 54 33 00 B2 22 58 11 4C 44 59 20 23 B1 53 |.ST3.."X.LDY #.S|
00001AB0: 54 33 00 C1 22 62 11 4A 53 52 20 53 54 52 4F 55 |T3.."b.JSR STROU|
00001AC0: 54 00 D0 22 6C 11 4A 53 52 20 43 48 4B 43 4F 4D |T.."l.JSR CHKCOM|
00001AD0: 00 DF 22 76 11 4A 53 52 20 46 52 4D 4E 55 4D 00 |.."v.JSR FRMNUM.|
00001AE0: EC 22 80 11 4A 53 52 20 A1 41 44 52 00 FB 22 8A |."..JSR .ADR..".|
00001AF0: 11 53 54 59 20 54 52 41 4E 53 32 00 0C 23 94 11 |.STY TRANS2..#..|
00001B00: 53 54 41 20 54 52 41 4E 53 32 AA 31 00 1B 23 9E |STA TRANS2.1..#.|
00001B10: 11 4C 44 58 20 54 52 41 4E 53 32 00 28 23 A8 11 |.LDX TRANS2.(#..|
00001B20: 4A 53 52 20 B5 4F 55 54 00 2E 23 B2 11 3B 00 49 |JSR .OUT..#..;.I|
00001B30: 23 BC 11 3B 20 80 45 20 4B 4C 45 49 4E 45 52 20 |#..; .E KLEINER |
00001B40: 41 4C 53 20 53 54 41 52 54 00 4F 23 C6 11 3B 00 |ALS START.O#..;.|
00001B50: 60 23 D0 11 4C 44 41 20 54 52 41 4E 53 32 AA 31 |`#..LDA TRANS2.1|
00001B60: 00 71 23 DA 11 43 4D 50 20 54 52 41 4E 53 31 AA |.q#..CMP TRANS1.|
00001B70: 31 00 7F 23 E4 11 42 45 51 20 54 45 53 54 31 00 |1..#..BEQ TEST1.|
00001B80: 8B 23 EE 11 42 43 53 20 4F 4B 33 00 9A 23 F8 11 |.#..BCS OK3..#..|
00001B90: 42 43 43 20 4C 4F 41 4F 55 54 00 AF 23 02 12 54 |BCC LOAOUT..#..T|
00001BA0: 45 53 54 31 20 4C 44 41 20 54 52 41 4E 53 32 00 |EST1 LDA TRANS2.|
00001BB0: BE 23 0C 12 43 4D 50 20 54 52 41 4E 53 31 00 CA |.#..CMP TRANS1..|
00001BC0: 23 16 12 42 43 53 20 4F 4B 33 00 D0 23 20 12 3B |#..BCS OK3..# .;|
00001BD0: 00 E8 23 2A 12 3B 20 4A 41 21 20 46 45 48 4C 45 |..#*.; JA! FEHLE|
00001BE0: 52 4D 45 4C 44 55 4E 47 00 EE 23 34 12 3B 00 03 |RMELDUNG..#4.;..|
00001BF0: 24 3E 12 4C 4F 41 4F 55 54 20 4C 44 41 20 23 B3 |$>.LOAOUT LDA #.|
00001C00: 4C 4F 41 00 11 24 48 12 4C 44 59 20 23 B1 4C 4F |LOA..$H.LDY #.LO|
00001C10: 41 00 20 24 52 12 4A 53 52 20 53 54 52 4F 55 54 |A. $R.JSR STROUT|
00001C20: 00 2B 24 5C 12 4A 4D 50 20 87 59 00 31 24 66 12 |.+$\.JMP .Y.1$f.|
00001C30: 3B 00 4B 24 70 12 3B 20 41 4E 5A 41 48 4C 20 83 |;.K$p.; ANZAHL .|
00001C40: 53 20 50 52 4F 20 5A 45 49 4C 45 00 51 24 7A 12 |S PRO ZEILE.Q$z.|
00001C50: 3B 00 63 24 84 12 4F 4B 33 20 4C 44 41 20 23 B3 |;.c$..OK3 LDA #.|
00001C60: 53 54 34 00 71 24 8E 12 4C 44 59 20 23 B1 53 54 |ST4.q$..LDY #.ST|
00001C70: 34 00 80 24 98 12 4A 53 52 20 53 54 52 4F 55 54 |4..$..JSR STROUT|
00001C80: 00 8E 24 A2 12 4A 53 52 20 43 48 52 CB 54 00 9B |..$..JSR CHR.T..|
00001C90: 24 AC 12 42 4E 45 20 4F 4B 33 31 00 A1 24 B6 12 |$..BNE OK31..$..|
00001CA0: 3B 00 C4 24 C0 12 3B 20 57 45 4E 4E 20 4E 49 43 |;..$..; WENN NIC|
00001CB0: 48 54 20 41 4E 47 45 47 45 42 45 4E 2C 20 44 41 |HT ANGEGEBEN, DA|
00001CC0: 4E 4E 20 38 00 CA 24 CA 12 3B 00 D5 24 D4 12 4C |NN 8..$..;..$..L|
00001CD0: 44 58 20 23 38 00 E1 24 DE 12 42 4E 45 20 4F 4B |DX #8..$..BNE OK|
00001CE0: 34 00 E7 24 E8 12 3B 00 FB 24 F2 12 4F 4B 33 31 |4..$..;..$..OK31|
00001CF0: 20 4A 53 52 20 43 4F 4D 42 59 54 00 01 25 FC 12 | JSR COMBYT..%..|
00001D00: 3B 00 1E 25 06 13 3B 20 4D 45 48 52 20 41 4C 53 |;..%..; MEHR ALS|
00001D10: 20 32 30 20 B2 20 46 45 48 4C 45 52 20 21 00 24 | 20 . FEHLER !.$|
00001D20: 25 10 13 3B 00 30 25 1A 13 43 50 58 20 23 32 31 |%..;.0%..CPX #21|
00001D30: 00 3C 25 24 13 42 43 43 20 4F 4B 34 00 50 25 2E |.<%$.BCC OK4.P%.|
00001D40: 13 49 4C 4C 20 4A 4D 50 20 49 4C 4C 51 55 41 4E |.ILL JMP ILLQUAN|
00001D50: 00 56 25 38 13 3B 00 69 25 42 13 4F 4B 34 20 53 |.V%8.;.i%B.OK4 S|
00001D60: 54 58 20 4E 55 4D 44 41 54 00 79 25 4C 13 53 54 |TX NUMDAT.y%L.ST|
00001D70: 58 20 4E 55 4D 44 41 54 32 00 7F 25 56 13 3B 00 |X NUMDAT2..%V.;.|
00001D80: 98 25 60 13 3B 20 4E 55 4C 4C 20 83 53 20 3D 20 |.%`.; NULL .S = |
00001D90: 46 45 48 4C 45 52 20 21 00 9E 25 6A 13 3B 00 AB |FEHLER !..%j.;..|
00001DA0: 25 74 13 43 50 58 20 23 24 30 30 00 B7 25 7E 13 |%t.CPX #$00..%~.|
00001DB0: 42 45 51 20 49 4C 4C 00 BD 25 88 13 3B 00 C9 25 |BEQ ILL..%..;..%|
00001DC0: 92 13 4C 44 41 20 23 30 30 00 D6 25 9C 13 4A 53 |..LDA #00..%..JS|
00001DD0: 52 20 B5 4F 55 54 00 DC 25 A6 13 3B 00 FC 25 B0 |R .OUT..%..;..%.|
00001DE0: 13 3B 20 45 52 53 54 45 20 5A 45 49 C3 4E 55 4D |.; ERSTE ZEI.NUM|
00001DF0: 4D 45 52 20 45 49 4E 4C 45 53 45 4E 00 02 26 BA |MER EINLESEN..&.|
00001E00: 13 3B 00 14 26 C4 13 4F 4B 35 20 4C 44 41 20 23 |.;..&..OK5 LDA #|
00001E10: B3 53 54 35 00 22 26 CE 13 4C 44 59 20 23 B1 53 |.ST5."&..LDY #.S|
00001E20: 54 35 00 31 26 D8 13 4A 53 52 20 53 54 52 4F 55 |T5.1&..JSR STROU|
00001E30: 54 00 3F 26 E2 13 4A 53 52 20 43 48 52 CB 54 00 |T.?&..JSR CHR.T.|
00001E40: 4D 26 EC 13 42 4E 45 20 4C 44 4C 49 4E 00 53 26 |M&..BNE LDLIN.S&|
00001E50: F6 13 3B 00 78 26 00 14 3B 20 46 41 4C 4C 53 20 |..;.x&..; FALLS |
00001E60: 4E 49 43 48 54 20 41 4E 47 45 47 45 42 45 4E 20 |NICHT ANGEGEBEN |
00001E70: 44 41 4E 4E 20 31 30 30 00 7E 26 0A 14 3B 00 8B |DANN 100.~&..;..|
00001E80: 26 14 14 4C 44 59 20 23 31 30 30 00 97 26 1E 14 |&..LDY #100..&..|
00001E90: 4C 44 41 20 23 30 30 00 A4 26 28 14 42 45 51 20 |LDA #00..&(.BEQ |
00001EA0: 4F 4B 35 31 00 AA 26 32 14 3B 00 BF 26 3C 14 4C |OK51..&2.;..&<.L|
00001EB0: 44 4C 49 4E 20 4A 53 52 20 43 48 4B 43 4F 4D 00 |DLIN JSR CHKCOM.|
00001EC0: CE 26 46 14 4A 53 52 20 46 52 4D 4E 55 4D 00 DB |.&F.JSR FRMNUM..|
00001ED0: 26 50 14 4A 53 52 20 A1 41 44 52 00 E1 26 5A 14 |&P.JSR .ADR..&Z.|
00001EE0: 3B 00 F4 26 64 14 4F 4B 35 31 20 53 54 59 20 5A |;..&d.OK51 STY Z|
00001EF0: 45 49 4C 4F 00 02 27 6E 14 53 54 41 20 5A 45 49 |EILO..'n.STA ZEI|
00001F00: 48 49 00 0F 27 78 14 43 4D 50 20 23 24 46 41 00 |HI..'x.CMP #$FA.|
00001F10: 1B 27 82 14 42 43 53 20 49 4C 4C 00 29 27 8C 14 |.'..BCS ILL.)'..|
00001F20: 4C 44 58 20 5A 45 49 4C 4F 00 36 27 96 14 4A 53 |LDX ZEILO.6'..JS|
00001F30: 52 20 B5 4F 55 54 00 3C 27 A0 14 3B 00 58 27 AA |R .OUT.<'..;.X'.|
00001F40: 14 3B 20 53 43 48 52 49 54 54 57 45 49 54 45 20 |.; SCHRITTWEITE |
00001F50: 45 49 4E 4C 45 53 45 4E 00 5E 27 B4 14 3B 00 70 |EINLESEN.^'..;.p|
00001F60: 27 BE 14 4F 4B 36 20 4C 44 41 20 23 B3 53 54 36 |'..OK6 LDA #.ST6|
00001F70: 00 7E 27 C8 14 4C 44 59 20 23 B1 53 54 36 00 8D |.~'..LDY #.ST6..|
00001F80: 27 D2 14 4A 53 52 20 53 54 52 4F 55 54 00 9B 27 |'..JSR STROUT..'|
00001F90: DC 14 4A 53 52 20 43 48 52 CB 54 00 A7 27 E6 14 |..JSR CHR.T..'..|
00001FA0: 42 4E 45 20 4C 44 A9 00 AD 27 F0 14 3B 00 D0 27 |BNE LD...'..;..'|
00001FB0: FA 14 3B 20 57 45 4E 4E 20 4E 49 43 48 54 20 41 |..; WENN NICHT A|
00001FC0: 4E 47 45 47 45 42 45 4E 20 44 41 4E 4E 20 31 30 |NGEGEBEN DANN 10|
00001FD0: 00 D6 27 04 15 3B 00 E2 27 0E 15 4C 44 58 20 23 |..'..;..'..LDX #|
00001FE0: 31 30 00 EC 27 18 15 53 54 58 20 A9 00 F9 27 22 |10..'..STX ...'"|
00001FF0: 15 42 4E 45 20 A9 4F 55 54 00 FF 27 2C 15 3B 00 |.BNE .OUT..',.;.|
00002000: 12 28 36 15 4C 44 A9 20 4A 53 52 20 43 4F 4D 42 |.(6.LD. JSR COMB|
00002010: 59 54 00 1C 28 40 15 53 54 58 20 A9 00 29 28 4A |YT..(@.STX ..)(J|
00002020: 15 43 50 58 20 23 24 30 30 00 2F 28 54 15 3B 00 |.CPX #$00./(T.;.|
00002030: 52 28 5E 15 3B 20 53 43 48 52 49 54 54 57 45 49 |R(^.; SCHRITTWEI|
00002040: 54 45 20 4E 55 4C 4C 20 B2 20 46 45 48 4C 45 52 |TE NULL . FEHLER|
00002050: 20 21 00 58 28 68 15 3B 00 65 28 72 15 42 4E 45 | !.X(h.;.e(r.BNE|
00002060: 20 A9 4F 55 54 00 75 28 7C 15 4A 4D 50 20 49 4C | .OUT.u(|.JMP IL|
00002070: 4C 51 55 41 4E 00 7B 28 86 15 3B 00 8B 28 90 15 |LQUAN.{(..;..(..|
00002080: A9 4F 55 54 20 4C 44 41 20 23 30 00 98 28 9A 15 |.OUT LDA #0..(..|
00002090: 4A 53 52 20 B5 4F 55 54 00 9E 28 A4 15 3B 00 B7 |JSR .OUT..(..;..|
000020A0: 28 AE 15 3B 20 43 48 45 43 4B 53 55 4D 4D 45 20 |(..; CHECKSUMME |
000020B0: 4A 41 AD 4E 45 49 4E 00 BD 28 B8 15 3B 00 CF 28 |JA.NEIN..(..;..(|
000020C0: C2 15 4F 4B 37 20 4C 44 41 20 23 B3 53 54 37 00 |..OK7 LDA #.ST7.|
000020D0: DD 28 CC 15 4C 44 59 20 23 B1 53 54 37 00 EC 28 |.(..LDY #.ST7..(|
000020E0: D6 15 4A 53 52 20 53 54 52 4F 55 54 00 F2 28 E0 |..JSR STROUT..(.|
000020F0: 15 3B 00 10 29 EA 15 3B 20 4E 49 43 48 54 20 41 |.;..)..; NICHT A|
00002100: 4E 47 45 47 45 42 45 4E 20 B2 B1 20 4E 45 49 4E |NGEGEBEN .. NEIN|
00002110: 00 16 29 F4 15 3B 00 24 29 FE 15 4A 53 52 20 43 |..)..;.$)..JSR C|
00002120: 48 52 CB 54 00 32 29 08 16 42 4E 45 20 4C 44 53 |HR.T.2)..BNE LDS|
00002130: 55 4D 00 3E 29 12 16 53 54 41 20 53 55 4D 00 4C |UM.>)..STA SUM.L|
00002140: 29 1C 16 42 45 51 20 4E 4F 53 55 4D 00 52 29 26 |)..BEQ NOSUM.R)&|
00002150: 16 3B 00 67 29 30 16 4C 44 53 55 4D 20 4A 53 52 |.;.g)0.LDSUM JSR|
00002160: 20 43 4F 4D 42 59 54 00 73 29 3A 16 53 54 58 20 | COMBYT.s):.STX |
00002170: 53 55 4D 00 80 29 44 16 43 50 58 20 23 24 30 30 |SUM..)D.CPX #$00|
00002180: 00 86 29 4E 16 3B 00 A1 29 58 16 3B 20 30 20 B2 |..)N.;..)X.; 0 .|
00002190: 20 4E 45 49 4E 20 2C 20 B3 B1 20 30 20 B2 20 4A | NEIN , .. 0 . J|
000021A0: 41 00 A7 29 62 16 3B 00 B6 29 6C 16 42 4E 45 20 |A..)b.;..)l.BNE |
000021B0: 59 45 53 4F 55 54 00 C9 29 76 16 4E 4F 53 55 4D |YESOUT..)v.NOSUM|
000021C0: 20 4C 44 41 20 23 B3 4E 4F 00 D6 29 80 16 4C 44 | LDA #.NO..)..LD|
000021D0: 59 20 23 B1 4E 4F 00 E1 29 8A 16 4C 44 58 20 23 |Y #.NO..)..LDX #|
000021E0: 30 00 F0 29 94 16 42 45 51 20 53 55 4D 4F 55 54 |0..)..BEQ SUMOUT|
000021F0: 00 05 2A 9E 16 59 45 53 4F 55 54 20 4C 44 41 20 |..*..YESOUT LDA |
00002200: 23 B3 59 45 53 00 13 2A A8 16 4C 44 59 20 23 B1 |#.YES..*..LDY #.|
00002210: 59 45 53 00 29 2A B2 16 53 55 4D 4F 55 54 20 4A |YES.)*..SUMOUT J|
00002220: 53 52 20 53 54 52 4F 55 54 00 2F 2A BC 16 3B 00 |SR STROUT./*..;.|
00002230: 50 2A C6 16 3B 20 53 50 45 49 43 48 45 52 4B 91 |P*..; SPEICHERK.|
00002240: 46 49 47 55 52 41 54 49 91 20 5B C2 28 31 29 5D |FIGURATI. [.(1)]|
00002250: 00 56 2A D0 16 3B 00 68 2A DA 16 4F 4B 41 20 4C |.V*..;.h*..OKA L|
00002260: 44 41 20 23 B3 53 54 39 00 76 2A E4 16 4C 44 59 |DA #.ST9.v*..LDY|
00002270: 20 23 B1 53 54 39 00 85 2A EE 16 4A 53 52 20 53 | #.ST9..*..JSR S|
00002280: 54 52 4F 55 54 00 8B 2A F8 16 3B 00 AE 2A 02 17 |TROUT..*..;..*..|
00002290: 3B 20 57 45 4E 4E 20 4E 49 43 48 54 20 41 4E 47 |; WENN NICHT ANG|
000022A0: 45 47 45 42 45 4E 20 44 41 4E 4E 20 35 35 00 B4 |EGEBEN DANN 55..|
000022B0: 2A 0C 17 3B 00 C2 2A 16 17 4A 53 52 20 43 48 52 |*..;..*..JSR CHR|
000022C0: CB 54 00 CF 2A 20 17 42 4E 45 20 50 45 45 31 00 |.T..* .BNE PEE1.|
000022D0: DC 2A 2A 17 4C 44 58 20 23 24 33 37 00 E9 2A 34 |.**.LDX #$37..*4|
000022E0: 17 53 54 58 20 42 C6 91 32 00 F6 2A 3E 17 42 4E |.STX B..2..*>.BN|
000022F0: 45 20 50 45 45 32 00 FC 2A 48 17 3B 00 10 2B 52 |E PEE2..*H.;..+R|
00002300: 17 50 45 45 31 20 4A 53 52 20 43 4F 4D 42 59 54 |.PEE1 JSR COMBYT|
00002310: 00 1D 2B 5C 17 53 54 58 20 42 C6 91 32 00 2A 2B |..+\.STX B..2.*+|
00002320: 66 17 4C 44 41 20 23 24 30 30 00 3C 2B 70 17 50 |f.LDA #$00.<+p.P|
00002330: 45 45 32 20 4A 53 52 20 B5 4F 55 54 00 42 2B 7A |EE2 JSR .OUT.B+z|
00002340: 17 3B 00 54 2B 84 17 4F 4B 38 20 4C 44 41 20 23 |.;.T+..OK8 LDA #|
00002350: B3 53 54 38 00 62 2B 8E 17 4C 44 59 20 23 B1 53 |.ST8.b+..LDY #.S|
00002360: 54 38 00 71 2B 98 17 4A 53 52 20 53 54 52 4F 55 |T8.q+..JSR STROU|
00002370: 54 00 77 2B A2 17 3B 00 99 2B AC 17 3B 20 42 45 |T.w+..;..+..; BE|
00002380: 46 45 48 4C 53 57 B0 54 20 49 4E 20 B5 45 52 50 |FEHLSW.T IN .ERP|
00002390: 52 45 54 45 52 43 4F 44 45 00 B7 2B B6 17 3B 20 |RETERCODE..+..; |
000023A0: 57 AF 45 4C 4E 20 28 53 4F 46 45 52 4E 20 4D 4F |W.ELN (SOFERN MO|
000023B0: 45 47 4C 49 43 48 29 00 BD 2B C0 17 3B 00 CC 2B |EGLICH)..+..;..+|
000023C0: CA 17 4C 44 58 20 4C 41 45 4E 47 45 00 D9 2B D4 |..LDX LAENGE..+.|
000023D0: 17 4C 44 41 20 23 24 30 30 00 E6 2B DE 17 42 45 |.LDA #$00..+..BE|
000023E0: 51 20 53 49 42 32 00 FB 2B E8 17 53 49 42 20 4C |Q SIB2..+..SIB L|
000023F0: 44 41 20 53 54 52 49 4E 47 2C 58 00 11 2C F2 17 |DA STRING,X..,..|
00002400: 53 49 42 32 20 53 54 41 20 42 55 46 46 45 52 2C |SIB2 STA BUFFER,|
00002410: 58 00 19 2C FC 17 44 45 58 00 25 2C 06 18 42 50 |X..,..DEX.%,..BP|
00002420: 4C 20 53 49 42 00 32 2C 10 18 4C 44 41 20 23 24 |L SIB.2,..LDA #$|
00002430: 46 46 00 3D 2C 1A 18 53 54 41 20 50 43 00 4A 2C |FF.=,..STA PC.J,|
00002440: 24 18 4C 44 41 20 23 24 30 31 00 57 2C 2E 18 53 |$.LDA #$01.W,..S|
00002450: 54 41 20 50 43 AA 31 00 64 2C 38 18 4C 44 41 20 |TA PC.1.d,8.LDA |
00002460: 23 24 38 30 00 72 2C 42 18 4A 53 52 20 24 46 45 |#$80.r,B.JSR $FE|
00002470: 31 38 00 7F 2C 4C 18 4A 53 52 20 43 48 52 A1 00 |18..,L.JSR CHR..|
00002480: 8C 2C 56 18 4C 44 58 20 23 24 46 46 00 98 2C 60 |.,V.LDX #$FF..,`|
00002490: 18 53 54 58 20 24 33 41 00 A6 2C 6A 18 4A 53 52 |.STX $3A..,j.JSR|
000024A0: 20 24 41 35 37 39 00 B1 2C 74 18 4C 44 58 20 23 | $A579..,t.LDX #|
000024B0: 30 00 C7 2C 7E 18 53 49 42 33 20 4C 44 41 20 42 |0..,~.SIB3 LDA B|
000024C0: 55 46 46 45 52 2C 58 00 D8 2C 88 18 53 54 41 20 |UFFER,X..,..STA |
000024D0: 53 54 52 49 4E 47 2C 58 00 E5 2C 92 18 42 45 51 |STRING,X..,..BEQ|
000024E0: 20 53 49 42 34 00 ED 2C 9C 18 49 4E 58 00 FA 2C | SIB4..,..INX..,|
000024F0: A6 18 42 4E 45 20 53 49 42 33 00 07 2D B0 18 53 |..BNE SIB3..-..S|
00002500: 49 42 34 20 44 45 58 00 16 2D BA 18 53 54 58 20 |IB4 DEX..-..STX |
00002510: 4C 41 45 4E 47 45 00 20 2D C4 18 4A 53 52 20 A2 |LAENGE. -..JSR .|
00002520: 00 2D 2D CE 18 4C 44 41 20 23 24 30 31 00 3A 2D |.--..LDA #$01.:-|
00002530: D8 18 4C 44 59 20 23 24 30 38 00 46 2D E2 18 53 |..LDY #$08.F-..S|
00002540: 54 41 20 56 41 52 00 54 2D EC 18 53 54 59 20 56 |TA VAR.T-..STY V|
00002550: 41 52 AA 31 00 62 2D F6 18 53 54 41 20 56 41 52 |AR.1.b-..STA VAR|
00002560: AA 32 00 70 2D 00 19 53 54 59 20 56 41 52 AA 33 |.2.p-..STY VAR.3|
00002570: 00 7D 2D 0A 19 4C 44 41 20 23 24 30 30 00 8B 2D |.}-..LDA #$00..-|
00002580: 14 19 53 54 41 20 53 55 4D 4D 45 00 9B 2D 1E 19 |..STA SUMME..-..|
00002590: 53 54 41 20 53 55 4D 4D 45 AA 31 00 A1 2D 28 19 |STA SUMME.1..-(.|
000025A0: 3B 00 A7 2D 32 19 3B 00 C9 2D 3C 19 3B 20 5A 45 |;..-2.;..-<.; ZE|
000025B0: 49 C3 4E 55 4D 4D 45 52 20 49 4E 20 42 41 53 49 |I.NUMMER IN BASI|
000025C0: 43 53 50 45 49 43 48 45 52 00 CF 2D 46 19 3B 00 |CSPEICHER..-F.;.|
000025D0: DE 2D 50 19 4F 4B 39 20 4C 44 59 20 23 32 00 EC |.-P.OK9 LDY #2..|
000025E0: 2D 5A 19 4C 44 41 20 5A 45 49 4C 4F 00 FC 2D 64 |-Z.LDA ZEILO..-d|
000025F0: 19 53 54 41 20 28 56 41 52 29 2C 59 00 04 2E 6E |.STA (VAR),Y...n|
00002600: 19 49 4E 59 00 12 2E 78 19 4C 44 41 20 5A 45 49 |.INY...x.LDA ZEI|
00002610: 48 49 00 22 2E 82 19 53 54 41 20 28 56 41 52 29 |HI."...STA (VAR)|
00002620: 2C 59 00 2A 2E 8C 19 49 4E 59 00 30 2E 96 19 3B |,Y.*...INY.0...;|
00002630: 00 50 2E A0 19 3B 20 42 45 46 45 48 4C 53 53 54 |.P...; BEFEHLSST|
00002640: 52 49 4E 47 20 49 4E 20 53 50 45 49 43 48 45 52 |RING IN SPEICHER|
00002650: 00 56 2E AA 19 3B 00 63 2E B4 19 4C 44 58 20 23 |.V...;.c...LDX #|
00002660: 24 30 30 00 77 2E BE 19 57 31 20 4C 44 41 20 53 |$00.w...W1 LDA S|
00002670: 54 52 49 4E 47 2C 58 00 82 2E C8 19 42 45 51 20 |TRING,X.....BEQ |
00002680: 57 32 00 92 2E D2 19 53 54 41 20 28 56 41 52 29 |W2.....STA (VAR)|
00002690: 2C 59 00 9A 2E DC 19 49 4E 59 00 A2 2E E6 19 49 |,Y.....INY.....I|
000026A0: 4E 58 00 AD 2E F0 19 42 4E 45 20 57 31 00 B3 2E |NX.....BNE W1...|
000026B0: FA 19 3B 00 B9 2E 04 1A 3B 00 CA 2E 0E 1A A4 4B |..;.....;......K|
000026C0: 39 33 20 42 43 43 20 4F 4B 39 00 D0 2E 18 1A 3B |93 BCC OK9.....;|
000026D0: 00 F2 2E 22 1A 3B 20 4E 55 4D 4D 45 52 20 44 45 |...".; NUMMER DE|
000026E0: 52 20 4D 4F 4D 45 4E C0 20 45 52 5A 45 55 47 54 |R MOMEN. ERZEUGT|
000026F0: 45 4E 00 07 2F 2C 1A 3B 20 5A 45 49 4C 45 20 41 |EN../,.; ZEILE A|
00002700: 55 53 47 45 42 45 4E 00 0D 2F 36 1A 3B 00 1C 2F |USGEBEN../6.;../|
00002710: 40 1A 57 32 20 53 54 59 20 53 54 52 00 28 2F 4A |@.W2 STY STR.(/J|
00002720: 1A 4C 44 58 20 23 32 33 00 33 2F 54 1A 4C 44 59 |.LDX #23.3/T.LDY|
00002730: 20 23 37 00 3B 2F 5E 1A 43 4C 43 00 49 2F 68 1A | #7.;/^.CLC.I/h.|
00002740: 4A 53 52 20 24 46 46 46 30 00 57 2F 72 1A 4C 44 |JSR $FFF0.W/r.LD|
00002750: 58 20 5A 45 49 4C 4F 00 65 2F 7C 1A 4C 44 41 20 |X ZEILO.e/|.LDA |
00002760: 5A 45 49 48 49 00 72 2F 86 1A 4A 53 52 20 B5 4F |ZEIHI.r/..JSR .O|
00002770: 55 54 00 7E 2F 90 1A 4C 44 59 20 53 54 52 00 84 |UT.~/..LDY STR..|
00002780: 2F 9A 1A 3B 00 AA 2F A4 1A 3B 20 41 4B 54 55 45 |/..;../..; AKTUE|
00002790: 4C 4C 45 20 53 50 45 49 43 48 45 52 5A 45 4C 4C |LLE SPEICHERZELL|
000027A0: 45 20 41 55 53 47 45 42 45 4E 00 B0 2F AE 1A 3B |E AUSGEBEN../..;|
000027B0: 00 BF 2F B8 1A 57 34 20 53 54 59 20 53 54 52 00 |../..W4 STY STR.|
000027C0: CB 2F C2 1A 4C 44 58 20 23 32 33 00 D7 2F CC 1A |./..LDX #23../..|
000027D0: 4C 44 59 20 23 32 34 00 DF 2F D6 1A 43 4C 43 00 |LDY #24../..CLC.|
000027E0: ED 2F E0 1A 4A 53 52 20 24 46 46 46 30 00 FC 2F |./..JSR $FFF0../|
000027F0: EA 1A 4C 44 58 20 54 52 41 4E 53 31 00 0D 30 F4 |..LDX TRANS1..0.|
00002800: 1A 4C 44 41 20 54 52 41 4E 53 31 AA 31 00 1A 30 |.LDA TRANS1.1..0|
00002810: FE 1A 4A 53 52 20 B5 4F 55 54 00 26 30 08 1B 4C |..JSR .OUT.&0..L|
00002820: 44 59 20 53 54 52 00 2C 30 12 1B 3B 00 4D 30 1C |DY STR.,0..;.M0.|
00002830: 1B 3B 20 53 50 45 49 43 48 45 52 20 41 55 53 4C |.; SPEICHER AUSL|
00002840: 45 53 45 4E 2C 20 57 45 52 54 20 49 4E 00 6F 30 |ESEN, WERT IN.o0|
00002850: 26 1B 3B 20 53 54 52 49 4E 47 20 57 AF 45 4C 4E |&.; STRING W.ELN|
00002860: 20 55 4E 44 20 49 4E 20 42 41 53 2E 53 50 2E 00 | UND IN BAS.SP..|
00002870: 75 30 30 1B 3B 00 81 30 3A 1B 53 54 59 20 53 54 |u00.;..0:.STY ST|
00002880: 52 00 8C 30 44 1B 4C 44 59 20 23 30 00 94 30 4E |R..0D.LDY #0..0N|
00002890: 1B 53 45 49 00 A1 30 58 1B 4C 44 41 20 42 C6 91 |.SEI..0X.LDA B..|
000028A0: 32 00 AD 30 62 1B 53 54 41 20 42 C6 91 00 C0 30 |2..0b.STA B....0|
000028B0: 6C 1B 4C 44 41 20 28 54 52 41 4E 53 31 29 2C 59 |l.LDA (TRANS1),Y|
000028C0: 00 CD 30 76 1B 4C 44 59 20 23 24 33 37 00 D9 30 |..0v.LDY #$37..0|
000028D0: 80 1B 53 54 59 20 42 C6 91 00 E1 30 8A 1B 43 4C |..STY B....0..CL|
000028E0: 49 00 E9 30 94 1B 54 41 59 00 F1 30 9E 1B 50 48 |I..0..TAY..0..PH|
000028F0: 41 00 FD 30 A8 1B 4A 53 52 20 B4 46 54 00 0A 31 |A..0..JSR .FT..1|
00002900: B2 1B 4A 53 52 20 46 4F 55 54 00 15 31 BC 1B 4C |..JSR FOUT..1..L|
00002910: 44 58 20 23 31 00 21 31 C6 1B 4C 44 59 20 53 54 |DX #1.!1..LDY ST|
00002920: 52 00 35 31 D0 1B 57 35 20 4C 44 41 20 46 41 43 |R.51..W5 LDA FAC|
00002930: 53 54 52 2C 58 00 40 31 DA 1B 42 45 51 20 57 36 |STR,X.@1..BEQ W6|
00002940: 00 50 31 E4 1B 53 54 41 20 28 56 41 52 29 2C 59 |.P1..STA (VAR),Y|
00002950: 00 58 31 EE 1B 49 4E 59 00 60 31 F8 1B 49 4E 58 |.X1..INY.`1..INX|
00002960: 00 6B 31 02 1C 42 4E 45 20 57 35 00 71 31 0C 1C |.k1..BNE W5.q1..|
00002970: 3B 00 90 31 16 1C 3B 20 43 48 45 43 4B 53 55 4D |;..1..; CHECKSUM|
00002980: 4D 45 20 41 4B 54 55 41 4C 49 53 49 45 52 45 4E |ME AKTUALISIEREN|
00002990: 00 96 31 20 1C 3B 00 A9 31 2A 1C 57 36 20 53 54 |..1 .;..1*.W6 ST|
000029A0: 59 20 53 54 52 3A 50 4C 41 00 B1 31 34 1C 43 4C |Y STR:PLA..14.CL|
000029B0: 43 00 BF 31 3E 1C 41 44 43 20 53 55 4D 4D 45 00 |C..1>.ADC SUMME.|
000029C0: CD 31 48 1C 53 54 41 20 53 55 4D 4D 45 00 DD 31 |.1H.STA SUMME..1|
000029D0: 52 1C 4C 44 41 20 53 55 4D 4D 45 AA 31 00 E8 31 |R.LDA SUMME.1..1|
000029E0: 5C 1C 41 44 43 20 23 30 00 F8 31 66 1C 53 54 41 |\.ADC #0..1f.STA|
000029F0: 20 53 55 4D 4D 45 AA 31 00 FE 31 70 1C 3B 00 21 | SUMME.1..1p.;.!|
00002A00: 32 7A 1C 3B 20 50 52 55 46 45 4E 2C 20 4F 42 20 |2z.; PRUFEN, OB |
00002A10: 80 41 44 52 45 53 53 45 20 45 52 52 45 49 43 48 |.ADRESSE ERREICH|
00002A20: 54 00 27 32 84 1C 3B 00 38 32 8E 1C 4C 44 41 20 |T.'2..;.82..LDA |
00002A30: 54 52 41 4E 53 31 AA 31 00 49 32 98 1C 43 4D 50 |TRANS1.1.I2..CMP|
00002A40: 20 54 52 41 4E 53 32 AA 31 00 57 32 A2 1C 42 4E | TRANS2.1.W2..BN|
00002A50: 45 20 54 45 53 54 32 00 66 32 AC 1C 4C 44 41 20 |E TEST2.f2..LDA |
00002A60: 54 52 41 4E 53 31 00 75 32 B6 1C 43 4D 50 20 54 |TRANS1.u2..CMP T|
00002A70: 52 41 4E 53 32 00 83 32 C0 1C 42 4E 45 20 54 45 |RANS2..2..BNE TE|
00002A80: 53 54 32 00 90 32 CA 1C 42 45 51 20 4A 4F 55 54 |ST2..2..BEQ JOUT|
00002A90: 00 96 32 D4 1C 3B 00 A8 32 DE 1C A4 4B 39 32 20 |..2..;..2...K92 |
00002AA0: 42 43 43 20 A4 4B 39 33 00 B7 32 E8 1C A4 57 34 |BCC .K93..2...W4|
00002AB0: 20 42 4E 45 20 57 34 00 BD 32 F2 1C 3B 00 DC 32 | BNE W4..2..;..2|
00002AC0: FC 1C 3B 20 4D 41 58 2E 20 41 4E 5A 41 48 4C 20 |..; MAX. ANZAHL |
00002AD0: 83 53 20 50 52 4F 20 5A 45 49 4C 45 00 E2 32 06 |.S PRO ZEILE..2.|
00002AE0: 1D 3B 00 F8 32 10 1D 54 45 53 54 32 20 44 45 43 |.;..2..TEST2 DEC|
00002AF0: 20 4E 55 4D 44 41 54 32 00 04 33 1A 1D 42 4E 45 | NUMDAT2..3..BNE|
00002B00: 20 A4 57 37 00 0A 33 24 1D 3B 00 2C 33 2E 1D 3B | .W7..3$.;.,3..;|
00002B10: 20 4A 41 2C 20 44 41 4E 4E 20 5A 45 49 4C 45 20 | JA, DANN ZEILE |
00002B20: 49 4E 20 42 41 53 49 43 20 50 52 47 00 3C 33 38 |IN BASIC PRG.<38|
00002B30: 1D 3B 20 45 49 4E 46 55 45 47 45 4E 00 42 33 42 |.; EINFUEGEN.B3B|
00002B40: 1D 3B 00 56 33 4C 1D 82 5A 45 49 4C 45 20 4C 44 |.;.V3L..ZEILE LD|
00002B50: 41 20 23 24 46 46 00 64 33 56 1D 2E 42 59 54 45 |A #$FF.d3V..BYTE|
00002B60: 20 24 32 43 00 77 33 60 1D 4A 4F 55 54 20 20 4C | $2C.w3`.JOUT L|
00002B70: 44 41 20 23 24 30 30 00 84 33 6A 1D 53 54 41 20 |DA #$00..3j.STA |
00002B80: 53 54 52 32 00 90 33 74 1D 4C 44 41 20 53 55 4D |STR2..3t.LDA SUM|
00002B90: 00 9E 33 7E 1D 42 45 51 20 43 48 4B 53 32 00 A4 |..3~.BEQ CHKS2..|
00002BA0: 33 88 1D 3B 00 C3 33 92 1D 3B 20 43 48 45 43 4B |3..;..3..; CHECK|
00002BB0: 53 55 4D 4D 45 20 49 4E 20 53 54 52 49 4E 47 20 |SUMME IN STRING |
00002BC0: 55 4E 44 00 DE 33 9C 1D 3B 20 41 4E 20 83 2D 5A |UND..3..; AN .-Z|
00002BD0: 45 49 4C 45 20 41 4E 48 41 45 4E 47 45 4E 00 E4 |EILE ANHAENGEN..|
00002BE0: 33 A6 1D 3B 00 F0 33 B0 1D 4C 44 59 20 53 54 52 |3..;..3..LDY STR|
00002BF0: 00 FD 33 BA 1D 4C 44 41 20 23 22 2C 22 00 0D 34 |..3..LDA #","..4|
00002C00: C4 1D 53 54 41 20 28 56 41 52 29 2C 59 00 15 34 |..STA (VAR),Y..4|
00002C10: CE 1D 49 4E 59 00 21 34 D8 1D 53 54 59 20 53 54 |..INY.!4..STY ST|
00002C20: 52 00 2F 34 E2 1D 4C 44 59 20 53 55 4D 4D 45 00 |R./4..LDY SUMME.|
00002C30: 3F 34 EC 1D 4C 44 41 20 53 55 4D 4D 45 AA 31 00 |?4..LDA SUMME.1.|
00002C40: 4E 34 F6 1D 4A 53 52 20 43 49 56 41 59 46 00 5B |N4..JSR CIVAYF.[|
00002C50: 34 00 1E 4A 53 52 20 46 4F 55 54 00 67 34 0A 1E |4..JSR FOUT.g4..|
00002C60: 4C 44 59 20 53 54 52 00 72 34 14 1E 4C 44 58 20 |LDY STR.r4..LDX |
00002C70: 23 31 00 78 34 1E 1E 3B 00 8F 34 28 1E 43 48 4B |#1.x4..;..4(.CHK|
00002C80: 53 33 20 4C 44 41 20 46 41 43 53 54 52 2C 58 00 |S3 LDA FACSTR,X.|
00002C90: 9D 34 32 1E 42 45 51 20 43 48 4B 53 32 00 AD 34 |.42.BEQ CHKS2..4|
00002CA0: 3C 1E 53 54 41 20 28 56 41 52 29 2C 59 00 B5 34 |<.STA (VAR),Y..4|
00002CB0: 46 1E 49 4E 59 00 BD 34 50 1E 49 4E 58 00 CB 34 |F.INY..4P.INX..4|
00002CC0: 5A 1E 42 4E 45 20 43 48 4B 53 33 00 D1 34 64 1E |Z.BNE CHKS3..4d.|
00002CD0: 3B 00 F4 34 6E 1E 3B 5A 45 49 4C 45 20 4D 49 54 |;..4n.;ZEILE MIT|
00002CE0: 20 4E 55 4C 4C 42 59 54 45 20 B6 43 48 4C 49 45 | NULLBYTE .CHLIE|
00002CF0: 53 53 45 4E 00 FA 34 78 1E 3B 00 0D 35 82 1E 43 |SSEN..4x.;..5..C|
00002D00: 48 4B 53 32 20 4C 44 41 20 23 24 30 30 00 1D 35 |HKS2 LDA #$00..5|
00002D10: 8C 1E 53 54 41 20 28 56 41 52 29 2C 59 00 25 35 |..STA (VAR),Y.%5|
00002D20: 96 1E 49 4E 59 00 31 35 A0 1E 53 54 59 20 53 54 |..INY.15..STY ST|
00002D30: 52 00 37 35 AA 1E 3B 00 54 35 B4 1E 3B 20 56 41 |R.75..;.T5..; VA|
00002D40: 52 49 41 42 C3 5A 45 49 47 45 52 20 45 52 48 4F |RIAB.ZEIGER ERHO|
00002D50: 45 48 45 4E 00 5A 35 BE 1E 3B 00 62 35 C8 1E 54 |EHEN.Z5..;.b5..T|
00002D60: 59 41 00 6F 35 D2 1E 4C 44 59 20 23 24 30 30 00 |YA.o5..LDY #$00.|
00002D70: 77 35 DC 1E 43 4C 43 00 83 35 E6 1E 41 44 43 20 |w5..CLC..5..ADC |
00002D80: 56 41 52 00 93 35 F0 1E 53 54 41 20 28 56 41 52 |VAR..5..STA (VAR|
00002D90: 29 2C 59 00 A1 35 FA 1E 4C 44 41 20 56 41 52 AA |),Y..5..LDA VAR.|
00002DA0: 31 00 AE 35 04 1F 41 44 43 20 23 24 30 30 00 B6 |1..5..ADC #$00..|
00002DB0: 35 0E 1F 49 4E 59 00 C6 35 18 1F 53 54 41 20 28 |5..INY..5..STA (|
00002DC0: 56 41 52 29 2C 59 00 CC 35 22 1F 3B 00 ED 35 2C |VAR),Y..5".;..5,|
00002DD0: 1F 3B 20 57 45 4E 4E 20 53 50 45 49 43 48 45 52 |.; WENN SPEICHER|
00002DE0: 20 56 4F 4C 4C 20 44 41 4E 4E 20 80 45 00 F3 35 | VOLL DANN .E..5|
00002DF0: 36 1F 3B 00 01 36 40 1F 4C 44 41 20 56 41 52 AA |6.;..6@.LDA VAR.|
00002E00: 31 00 0D 36 4A 1F 43 4D 50 20 24 33 38 00 19 36 |1..6J.CMP $38..6|
00002E10: 54 1F 42 43 43 20 45 52 48 00 26 36 5E 1F 42 4E |T.BCC ERH.&6^.BN|
00002E20: 45 20 4E 45 52 48 00 32 36 68 1F 4C 44 41 20 56 |E NERH.26h.LDA V|
00002E30: 41 52 00 3E 36 72 1F 43 4D 50 20 24 33 37 00 4A |AR.>6r.CMP $37.J|
00002E40: 36 7C 1F 42 43 43 20 45 52 48 00 50 36 86 1F 3B |6|.BCC ERH.P6..;|
00002E50: 00 72 36 90 1F 3B 20 53 50 45 49 43 48 45 52 4F |.r6..; SPEICHERO|
00002E60: 42 45 52 47 52 45 4E 5A 45 20 45 52 52 45 49 43 |BERGRENZE ERREIC|
00002E70: 48 54 00 78 36 9A 1F 3B 00 8A 36 A4 1F 4E 45 52 |HT.x6..;..6..NER|
00002E80: 48 20 4C 44 41 20 23 24 30 32 00 97 36 AE 1F 4C |H LDA #$02..6..L|
00002E90: 44 58 20 23 24 30 30 00 A4 36 B8 1F 53 54 41 20 |DX #$00..6..STA |
00002EA0: 53 54 52 32 00 B2 36 C2 1F 4C 44 41 20 56 41 52 |STR2..6..LDA VAR|
00002EB0: AA 33 00 C0 36 CC 1F 53 54 41 20 56 41 52 AA 31 |.3..6..STA VAR.1|
00002EC0: 00 CE 36 D6 1F 4C 44 41 20 56 41 52 AA 32 00 DA |..6..LDA VAR.2..|
00002ED0: 36 E0 1F 53 54 41 20 56 41 52 00 E2 36 EA 1F 54 |6..STA VAR..6..T|
00002EE0: 58 41 00 EF 36 F4 1F 42 45 51 20 45 52 48 32 00 |XA..6..BEQ ERH2.|
00002EF0: F5 36 FE 1F 3B 00 06 37 08 20 A4 57 37 20 42 4E |.6..;..7. .W7 BN|
00002F00: 45 20 A4 57 37 31 00 17 37 12 20 A4 57 34 31 20 |E .W71..7. .W41 |
00002F10: 42 4E 45 20 A4 57 34 00 28 37 1C 20 A4 4B 39 20 |BNE .W4.(7. .K9 |
00002F20: 42 43 43 20 A4 4B 39 32 00 2E 37 26 20 3B 00 3E |BCC .K92..7& ;.>|
00002F30: 37 30 20 45 52 48 20 4C 44 41 20 56 41 52 00 4C |70 ERH LDA VAR.L|
00002F40: 37 3A 20 53 54 41 20 56 41 52 AA 32 00 5A 37 44 |7: STA VAR.2.Z7D|
00002F50: 20 4C 44 41 20 56 41 52 AA 31 00 68 37 4E 20 53 | LDA VAR.1.h7N S|
00002F60: 54 41 20 56 41 52 AA 33 00 75 37 58 20 4C 44 59 |TA VAR.3.u7X LDY|
00002F70: 20 23 24 30 30 00 85 37 62 20 4C 44 41 20 28 56 | #$00..7b LDA (V|
00002F80: 41 52 29 2C 59 00 8D 37 6C 20 54 41 58 00 95 37 |AR),Y..7l TAX..7|
00002F90: 76 20 49 4E 59 00 A5 37 80 20 4C 44 41 20 28 56 |v INY..7. LDA (V|
00002FA0: 41 52 29 2C 59 00 B1 37 8A 20 53 54 58 20 56 41 |AR),Y..7. STX VA|
00002FB0: 52 00 BF 37 94 20 53 54 41 20 56 41 52 AA 31 00 |R..7. STA VAR.1.|
00002FC0: C7 37 9E 20 44 45 59 00 D3 37 A8 20 53 54 59 20 |.7. DEY..7. STY |
00002FD0: 53 54 52 00 D9 37 B2 20 3B 00 FC 37 BC 20 3B 20 |STR..7. ;..7. ; |
00002FE0: 50 52 55 45 46 45 4E 20 4F 42 20 90 AB 54 41 53 |PRUEFEN OB ..TAS|
00002FF0: 54 45 20 47 45 44 52 55 45 43 4B 54 00 02 38 C6 |TE GEDRUECKT..8.|
00003000: 20 3B 00 0E 38 D0 20 4C 44 41 20 24 43 42 00 1B | ;..8. LDA $CB..|
00003010: 38 DA 20 43 4D 50 20 23 24 33 46 00 28 38 E4 20 |8. CMP #$3F.(8. |
00003020: 42 4E 45 20 4E 42 52 45 00 33 38 EE 20 4C 44 41 |BNE NBRE.38. LDA|
00003030: 20 23 31 00 40 38 F8 20 53 54 41 20 53 54 52 32 | #1.@8. STA STR2|
00003040: 00 46 38 02 21 3B 00 6A 38 0C 21 3B 20 57 45 4E |.F8.!;.j8.!; WEN|
00003050: 4E 20 80 45 20 4E 49 43 48 54 20 45 52 52 45 49 |N .E NICHT ERREI|
00003060: 43 48 54 20 57 45 49 54 45 52 00 70 38 16 21 3B |CHT WEITER.p8.!;|
00003070: 00 82 38 20 21 4E 42 52 45 20 4C 44 41 20 53 54 |..8 !NBRE LDA ST|
00003080: 52 32 00 8F 38 2A 21 42 4D 49 20 4E 45 49 32 00 |R2..8*!BMI NEI2.|
00003090: 95 38 34 21 3B 00 A8 38 3E 21 45 52 48 32 20 4C |.84!;..8>!ERH2 L|
000030A0: 44 59 23 30 3A 54 59 41 00 B8 38 48 21 53 54 41 |DY#0:TYA..8H!STA|
000030B0: 20 28 56 41 52 29 2C 59 00 C0 38 52 21 49 4E 59 | (VAR),Y..8R!INY|
000030C0: 00 D0 38 5C 21 53 54 41 20 28 56 41 52 29 2C 59 |..8\!STA (VAR),Y|
000030D0: 00 DC 38 66 21 4C 44 41 20 56 41 52 00 E4 38 70 |..8f!LDA VAR..8p|
000030E0: 21 43 4C 43 00 EF 38 7A 21 41 44 43 20 23 32 00 |!CLC..8z!ADC #2.|
000030F0: FB 38 84 21 53 54 41 20 56 41 52 00 07 39 8E 21 |.8.!STA VAR..9.!|
00003100: 53 54 41 20 24 32 46 00 13 39 98 21 53 54 41 20 |STA $2F..9.!STA |
00003110: 24 33 31 00 21 39 A2 21 4C 44 41 20 56 41 52 AA |$31.!9.!LDA VAR.|
00003120: 31 00 2C 39 AC 21 41 44 43 20 23 30 00 3A 39 B6 |1.,9.!ADC #0.:9.|
00003130: 21 53 54 41 20 56 41 52 AA 31 00 46 39 C0 21 53 |!STA VAR.1.F9.!S|
00003140: 54 41 20 24 33 30 00 52 39 CA 21 53 54 41 20 24 |TA $30.R9.!STA $|
00003150: 33 32 00 5E 39 D4 21 4C 44 41 20 24 33 37 00 6A |32.^9.!LDA $37.j|
00003160: 39 DE 21 4C 44 59 20 24 33 38 00 76 39 E8 21 53 |9.!LDY $38.v9.!S|
00003170: 54 41 20 24 33 33 00 82 39 F2 21 53 54 59 20 24 |TA $33..9.!STY $|
00003180: 33 34 00 8F 39 FC 21 4C 44 41 20 53 54 52 32 00 |34..9.!LDA STR2.|
00003190: 9D 39 06 22 42 4E 45 20 42 52 45 41 4B 00 A8 39 |.9."BNE BREAK..9|
000031A0: 10 22 4A 4D 50 20 87 59 00 AE 39 1A 22 3B 00 C0 |."JMP .Y..9.";..|
000031B0: 39 24 22 A4 57 34 32 20 42 4E 45 20 A4 57 34 31 |9$".W42 BNE .W41|
000031C0: 00 D0 39 2E 22 A4 57 37 31 20 42 4E 45 20 57 37 |..9.".W71 BNE W7|
000031D0: 00 E1 39 38 22 A4 4B 39 31 20 42 43 43 20 A4 4B |..98".K91 BCC .K|
000031E0: 39 00 E7 39 42 22 3B 00 F8 39 4C 22 42 52 45 41 |9..9B";..9L"BREA|
000031F0: 4B 20 43 4D 50 20 23 31 00 04 3A 56 22 42 4E 45 |K CMP #1..:V"BNE|
00003200: 20 4F 4F 4D 00 10 3A 60 22 4C 44 58 20 23 33 30 | OOM..:`"LDX #30|
00003210: 00 1C 3A 6A 22 4A 4D 50 20 45 52 52 00 2B 3A 74 |..:j"JMP ERR.+:t|
00003220: 22 4F 4F 4D 20 43 4D 50 20 23 32 00 36 3A 7E 22 |"OOM CMP #2.6:~"|
00003230: 42 4E 45 20 4F 45 00 42 3A 88 22 4C 44 58 20 23 |BNE OE.B:."LDX #|
00003240: 31 36 00 4E 3A 92 22 4A 4D 50 20 45 52 52 00 61 |16.N:."JMP ERR.a|
00003250: 3A 9C 22 4F 45 20 4A 4D 50 20 49 4C 4C 51 55 41 |:."OE JMP ILLQUA|
00003260: 4E 00 67 3A A6 22 3B 00 89 3A B0 22 3B 20 5A 45 |N.g:.";..:."; ZE|
00003270: 49 47 45 52 20 49 4E 20 53 50 45 49 43 48 45 52 |IGER IN SPEICHER|
00003280: 20 45 52 48 4F 45 48 45 4E 00 8F 3A BA 22 3B 00 | ERHOEHEN..:.";.|
00003290: A3 3A C4 22 4E 45 49 32 20 4C 44 41 20 4E 55 4D |.:."NEI2 LDA NUM|
000032A0: 44 41 54 00 B3 3A CE 22 53 54 41 20 4E 55 4D 44 |DAT..:."STA NUMD|
000032B0: 41 54 32 00 C2 3A D8 22 49 4E 43 20 54 52 41 4E |AT2..:."INC TRAN|
000032C0: 53 31 00 D1 3A E2 22 42 4E 45 20 5A 45 49 4C 45 |S1..:."BNE ZEILE|
000032D0: 32 00 E2 3A EC 22 49 4E 43 20 54 52 41 4E 53 31 |2..:."INC TRANS1|
000032E0: AA 31 00 E8 3A F6 22 3B 00 0C 3B 00 23 3B 20 43 |.1..:.";..;.#; C|
000032F0: 48 45 43 4B 53 55 4D 4D 45 20 B2 20 30 20 46 55 |HECKSUMME . 0 FU|
00003300: 45 52 20 4E 45 55 45 5A 45 49 4C 45 00 12 3B 0A |ER NEUEZEILE..;.|
00003310: 23 3B 00 25 3B 14 23 5A 45 49 4C 45 32 20 20 4C |#;.%;.#ZEILE2 L|
00003320: 44 41 20 23 30 00 33 3B 1E 23 53 54 41 20 53 55 |DA #0.3;.#STA SU|
00003330: 4D 4D 45 00 43 3B 28 23 53 54 41 20 53 55 4D 4D |MME.C;(#STA SUMM|
00003340: 45 AA 31 00 49 3B 32 23 3B 00 69 3B 3C 23 3B 20 |E.1.I;2#;.i;<#; |
00003350: 4E 45 55 45 20 5A 45 49 C3 4E 55 4D 4D 45 52 20 |NEUE ZEI.NUMMER |
00003360: 42 45 52 45 43 48 4E 45 4E 00 6F 3B 46 23 3B 00 |BERECHNEN.o;F#;.|
00003370: 7D 3B 50 23 4C 44 41 20 5A 45 49 4C 4F 00 85 3B |};P#LDA ZEILO..;|
00003380: 5A 23 43 4C 43 00 8F 3B 64 23 41 44 43 20 A9 00 |Z#CLC..;d#ADC ..|
00003390: 9D 3B 6E 23 53 54 41 20 5A 45 49 4C 4F 00 AB 3B |.;n#STA ZEILO..;|
000033A0: 78 23 4C 44 41 20 5A 45 49 48 49 00 B6 3B 82 23 |x#LDA ZEIHI..;.#|
000033B0: 41 44 43 20 23 30 00 C4 3B 8C 23 53 54 41 20 5A |ADC #0..;.#STA Z|
000033C0: 45 49 48 49 00 CA 3B 96 23 3B 00 E5 3B A0 23 3B |EIHI..;.#;..;.#;|
000033D0: 20 B1 36 33 39 39 39 20 44 41 4E 4E 20 46 45 48 | .63999 DANN FEH|
000033E0: 4C 45 52 20 21 00 EB 3B AA 23 3B 00 F8 3B B4 23 |LER !..;.#;..;.#|
000033F0: 43 4D 50 20 23 24 46 41 00 05 3C BE 23 42 43 43 |CMP #$FA..<.#BCC|
00003400: 20 A4 4B 39 31 00 10 3C C8 23 4C 44 41 20 23 33 | .K91..<.#LDA #3|
00003410: 00 1D 3C D2 23 53 54 41 20 53 54 52 32 00 2A 3C |..<.#STA STR2.*<|
00003420: DC 23 42 4E 45 20 45 52 48 32 00 30 3C E6 23 3B |.#BNE ERH2.0<.#;|
00003430: 00 53 3C F0 23 3B 20 4B 4F 4D 4D 41 20 41 4E 46 |.S<.#; KOMMA ANF|
00003440: 55 45 47 45 4E 20 55 4E 44 20 4E 41 45 43 48 53 |UEGEN UND NAECHS|
00003450: 54 45 53 00 6E 3C FA 23 3B 20 83 2D 53 54 41 54 |TES.n<.#; .-STAT|
00003460: 45 4D 45 4E 54 20 45 52 5A 45 55 47 45 4E 00 74 |EMENT ERZEUGEN.t|
00003470: 3C 04 24 3B 00 84 3C 0E 24 57 37 20 4C 44 41 20 |<.$;..<.$W7 LDA |
00003480: 23 22 2C 22 00 90 3C 18 24 4C 44 59 20 53 54 52 |#","..<.$LDY STR|
00003490: 00 A0 3C 22 24 53 54 41 20 28 56 41 52 29 2C 59 |..<"$STA (VAR),Y|
000034A0: 00 A8 3C 2C 24 49 4E 59 00 B4 3C 36 24 53 54 59 |..<,$INY..<6$STY|
000034B0: 20 53 54 52 00 C3 3C 40 24 49 4E 43 20 54 52 41 | STR..<@$INC TRA|
000034C0: 4E 53 31 00 D0 3C 4A 24 42 4E 45 20 A4 57 34 32 |NS1..<J$BNE .W42|
000034D0: 00 E1 3C 54 24 49 4E 43 20 54 52 41 4E 53 31 AA |..<T$INC TRANS1.|
000034E0: 31 00 EE 3C 5E 24 42 4E 45 20 A4 57 34 32 00 F4 |1..<^$BNE .W42..|
000034F0: 3C 68 24 3B 00 12 3D 72 24 3B 20 56 45 52 57 80 |<h$;..=r$; VERW.|
00003500: 45 54 45 20 5A 45 49 43 48 45 4E 4B 45 54 54 45 |ETE ZEICHENKETTE|
00003510: 4E 3A 00 19 3D 7C 24 3B 20 00 48 3D 86 24 53 54 |N:..=|$; .H=.$ST|
00003520: 31 20 2E C6 22 05 93 11 1D 44 45 4C 55 58 45 20 |1 .."....DELUXE |
00003530: 44 41 54 41 53 20 42 59 20 4A 4F 45 52 47 20 4C |DATAS BY JOERG L|
00003540: 55 45 54 54 47 41 55 22 00 5A 3D 90 24 2E 42 59 |UETTGAU".Z=.$.BY|
00003550: 54 45 20 24 30 45 2C 24 30 44 00 71 3D 9A 24 2E |TE $0E,$0D.q=.$.|
00003560: C6 22 1D 11 11 50 41 52 41 4D 45 54 45 52 20 3A |."...PARAMETER :|
00003570: 22 00 7F 3D A4 24 2E 42 59 54 45 20 24 30 44 00 |"..=.$.BYTE $0D.|
00003580: 94 3D AE 24 2E C6 22 1D A3 A3 A3 A3 A3 A3 A3 A3 |.=.$..".........|
00003590: A3 A3 A3 22 00 A2 3D B8 24 2E 42 59 54 45 20 24 |..."..=.$.BYTE $|
000035A0: 30 44 00 BD 3D C2 24 2E C6 22 1D 43 4F 44 45 20 |0D..=.$..".CODE |
000035B0: 20 20 20 20 20 20 20 20 20 20 3A 20 22 00 CB 3D | : "..=|
000035C0: CC 24 2E 42 59 54 45 20 24 30 30 00 D1 3D D6 24 |.$.BYTE $00..=.$|
000035D0: 3B 00 E7 3D E0 24 53 54 32 20 2E 42 59 54 45 20 |;..=.$ST2 .BYTE |
000035E0: 24 30 44 2C 24 30 44 00 02 3E EA 24 2E C6 22 1D |$0D,$0D..>.$..".|
000035F0: 53 54 41 52 54 20 41 44 52 45 53 53 20 20 20 3A |START ADRESS :|
00003600: 20 22 00 10 3E F4 24 2E 42 59 54 45 20 24 30 30 | "..>.$.BYTE $00|
00003610: 00 16 3E FE 24 3B 00 2C 3E 08 25 53 54 33 20 2E |..>.$;.,>.%ST3 .|
00003620: 42 59 54 45 20 24 30 44 2C 24 30 44 00 47 3E 12 |BYTE $0D,$0D.G>.|
00003630: 25 2E C6 22 1D 45 4E 44 20 41 44 52 45 53 53 20 |%..".END ADRESS |
00003640: 20 20 20 20 3A 20 22 00 55 3E 1C 25 2E 42 59 54 | : ".U>.%.BYT|
00003650: 45 20 24 30 30 00 5B 3E 26 25 3B 00 70 3E 30 25 |E $00.[>&%;.p>0%|
00003660: 4C 4F 41 20 2E 42 59 54 45 24 30 44 2C 24 30 44 |LOA .BYTE$0D,$0D|
00003670: 00 8E 3E 3A 25 2E C6 22 3F 41 44 52 45 53 53 20 |..>:%.."?ADRESS |
00003680: 54 4F 4F 20 4C 4F 57 20 45 52 52 4F 52 22 00 9B |TOO LOW ERROR"..|
00003690: 3E 44 25 2E 42 59 54 45 24 30 30 00 A1 3E 4E 25 |>D%.BYTE$00..>N%|
000036A0: 3B 00 B7 3E 58 25 53 54 35 20 2E 42 59 54 45 20 |;..>X%ST5 .BYTE |
000036B0: 24 30 44 2C 24 30 44 00 D2 3E 62 25 2E C6 22 1D |$0D,$0D..>b%..".|
000036C0: 46 49 52 53 54 20 4C 49 4E 45 20 20 20 20 20 3A |FIRST LINE :|
000036D0: 20 22 00 E0 3E 6C 25 2E 42 59 54 45 20 24 30 30 | "..>l%.BYTE $00|
000036E0: 00 E6 3E 76 25 3B 00 FC 3E 80 25 53 54 36 20 2E |..>v%;..>.%ST6 .|
000036F0: 42 59 54 45 20 24 30 44 2C 24 30 44 00 17 3F 8A |BYTE $0D,$0D..?.|
00003700: 25 2E C6 22 1D 53 54 45 50 20 20 20 20 20 20 20 |%..".STEP |
00003710: 20 20 20 20 3A 20 22 00 25 3F 94 25 2E 42 59 54 | : ".%?.%.BYT|
00003720: 45 20 24 30 30 00 2B 3F 9E 25 3B 00 41 3F A8 25 |E $00.+?.%;.A?.%|
00003730: 53 54 37 20 2E 42 59 54 45 20 24 30 44 2C 24 30 |ST7 .BYTE $0D,$0|
00003740: 44 00 5C 3F B2 25 2E C6 22 1D 43 48 45 43 4B 53 |D.\?.%..".CHECKS|
00003750: 55 4D 20 3F 20 20 20 20 20 3A 20 22 00 6A 3F BC |UM ? : ".j?.|
00003760: 25 2E 42 59 54 45 20 24 30 30 00 70 3F C6 25 3B |%.BYTE $00.p?.%;|
00003770: 00 86 3F D0 25 53 54 39 20 2E 42 59 54 45 20 24 |..?.%ST9 .BYTE $|
00003780: 30 44 2C 24 30 44 00 A1 3F DA 25 2E C6 22 1D 56 |0D,$0D..?.%..".V|
00003790: 41 4C 55 45 20 4F 46 20 24 30 31 20 20 20 3A 20 |ALUE OF $01 : |
000037A0: 22 00 AF 3F E4 25 2E 42 59 54 45 20 24 30 30 00 |"..?.%.BYTE $00.|
000037B0: B5 3F EE 25 3B 00 C3 3F F8 25 4E 4F 20 2E C6 22 |.?.%;..?.%NO .."|
000037C0: 4E 4F 22 00 D1 3F 02 26 2E 42 59 54 45 20 24 30 |NO"..?.&.BYTE $0|
000037D0: 30 00 D7 3F 0C 26 3B 00 E7 3F 16 26 59 45 53 20 |0..?.&;..?.&YES |
000037E0: 2E C6 22 59 45 53 22 00 F5 3F 20 26 2E 42 59 54 |.."YES"..? &.BYT|
000037F0: 45 20 24 30 30 00 FB 3F 2A 26 3B 00 15 40 34 26 |E $00..?*&;..@4&|
00003800: 53 54 38 20 2E 42 59 54 45 20 24 30 44 2C 24 30 |ST8 .BYTE $0D,$0|
00003810: 44 2C 24 30 44 00 36 40 3E 26 2E C6 22 1D 4C 49 |D,$0D.6@>&..".LI|
00003820: 4E 45 20 3A 20 20 20 20 20 20 20 20 20 4D 45 4D |NE : MEM|
00003830: 4F 52 59 20 3A 22 00 44 40 48 26 2E 42 59 54 45 |ORY :".D@H&.BYTE|
00003840: 20 24 30 30 00 4A 40 52 26 3B 00 60 40 5C 26 53 | $00.J@R&;.`@\&S|
00003850: 54 34 20 2E 42 59 54 45 20 24 30 44 2C 24 30 44 |T4 .BYTE $0D,$0D|
00003860: 00 7B 40 66 26 2E C6 22 1D 44 41 54 41 53 20 50 |.{@f&..".DATAS P|
00003870: 45 52 20 4C 49 4E 45 20 3A 20 22 00 89 40 70 26 |ER LINE : "..@p&|
00003880: 2E 42 59 54 45 20 24 30 30 00 8F 40 7A 26 3B 00 |.BYTE $00..@z&;.|
00003890: 99 40 84 26 80 20 4E 4F 50 00 9F 40 8E 26 3B 00 |.@.&. NOP..@.&;.|
000038A0: 00 00 |.. |
....D.K...N.;.&.X.; L: CHIPCHIK'S ASSE.,
...;.P...;".............................
.Q...;"PSEUDO OP. . ENTSPRICHT... .;"
CHIPCHIK'S: . IN HYPRA-ASS:.....;"....
..........................V...;"GO
. ---.....;"*= $0801 . .BA
$0801...H.;"LABEL = $XX . .EQ LABEL =
$XX.6.R.;".ASC . .TX.P...;".WO
RD . .WO.V...;".OBJ#8,"NA" . .
OB"NA,P,W"+.EN.....;".LIST(#G,"NA"). .LI
,FN,G,SA.....;".LABEL 128 . .SY 1,3.Z
...;"..................................;
....... $0801...".;...,..OBJ#8,"DELUXE D
ATAS"...6.;.'.@.; LABEL..INITI....J.; .@
.T..IN . $FFE4.T.^.BSOUT . $FFD2.C.H
.BF. . $01.S.R.BF.2 . $3FF...|.VIC
. $D000.....STROUT . $AB1E.....BUFFER
. $0200.A...CRSR . $CC.S...STR .
$02.....STR2 . $AB.....FAC . $64.
..B.FACSTR . $100...L..FL . $BC49.,.V
.CHR. . $73.=...CHRKT . $79.Q...FRMNUM
. $AD8A.C....FT . $B3A2.U....ADR .
$B7F7.....CIVAYF . $B391......OUT . $B
DCD......Y . $A474...&.ILLQUAN . $B248
.R.0.. . $A660...:.. . $14...D.T
RANS1 . $FB...N.TRANS2 . $FD...X.TRANS
3 . $C1.*.B.TRANS4 . $AC.=.L.LAENGE .
$7E9.P.V.ADLOW . $7EA.C...ADHIGH . $
7EB.V...NUMDAT . $7EC.....NUMDAT2 . $7E
D.....ZEILO . $7EE.....ZEIHI . $7EF.
..... . $7F0.R...SUM . $7F1...F.S
UMME . $7F2...P.STRING . $7F8...Z.CHK
COM . $AEFD. ...COMBYT . $E200.4...FRM
EVL . $AD9E.H...ERR . $A437.\...OUT
STR . $AB24.P...FOUT . $BDDD.....MAI
N1 . $A49C... .VECA483 . $302...*.ZFDZ
. $22...4.PC . $7A.M.>.VAR
. $2D...H.. . $A644...R.;...\.;...F.
;...P.; BASIC ZEILE ERZEUGEN...Z.;......
W.D L1.,....W.D 1987.:....BYTE $9E.H....
F "2061".V....BYTE $00.F...L1 .W.D $00.L
...;...J.; STARTADRESSE EINLESEN...T.;..
...;.....LDA #$06.....STA VIC.32.....STA
VIC.33.M...LDA #.TX1.....LDY #.TX1.....
JSR STROUT...$.LDA #$00.....STA CRSR...8
.;.+.B.; BIS ZU 5 ZAHC EINLESEN UND.P.L.
; IN DEN EINGABEPUFFER SCHREIBEN.P.V.; D
ANN PC DARAUF .ITI.IEREN...`.; UND WERT
ALS 2.BYTE .EGER...J.; EINLESEN...T.;...
~.LDX #$00.B...L2 STX STR.R...L3 JSR .
IN.....CMP #$0D.....BEQ ......CMP #$14..
...BEQ DEL...D.LDX STR...N.CPX #5.$.X.BC
S L2.1...CMP #$30.<...BCC L3.I...CMP #$3
A.T...BCS L3.B...JSR BSOUT.N...LDX STR.
...STA BUFFER,X...(.INX...2.BNE L2...<.;
...F.DEL LDX STR...P.BEQ L3.A.Z.LDA #.TX
2.O.D.LDY #.TX2...N.JSR STROUT...X.LDX S
TR.....DEX.....JMP L2.....;... .. LDA #$
01.....STA CRSR.,...LDA #$20.:...JSR BSO
UT.G.H.LDX #$00.T.R.LDY #$02._...STX PC.
L...STY PC.1.X...LDX STR.....LDA #":"...
..STA BUFFER,X.....;.....; 2.BYTE .EGER
HOC...".;.H.,.JSR FRMNUM.U.6.JSR .ADR...
@.;...J.LDA #.TX3...T.LDY #.TX3...^.JSR
STROUT...H.LDX ....R.STX TRANS2...|.STX
TRANS3.:...LDA ..1.K...STA TRANS2.1.\...
STA TRANS3.1.I...JSR .OUT.V...LDA #"-"..
...JSR BSOUT...B.;...L.; PROGRAMM VERSCH
IEBEN...V.;.....LDA #.PROGRAM.L...STA TR
ANS1.....LDA #.PROGRAM.....STA TRANS1.1.
....;.....; 1. ADRESSEN ANPASSEN.....;.'
.&.TST1 LDX #23.;.0.TST2 LDA TAB1,X.C.:.
DEX.T.D.CMP TRANS1.1.A.N.BNE TST3.P.X.LD
A TAB1,X..B.CMP TRANS1...L.BNE TST3...V
.LDA TAB2,X.....STA TRANS4.....INX.A...L
DA TAB2,X.R...STA TRANS4.1.....LDA TRANS
2.....LDY #$00.....STA (TRANS4),Y...F.LD
A TRANS2.1...P.INY.".Z.INY.5...STA (TRAN
S4),Y.@...LDX #0.F...;.S...TST3 DEX.`...
BPL TST2.F...;.L. .;...*.TST13 INC VIC.3
2...4.INC TRANS1...>.BNE ITS1...H.INC TR
ANS1.1.B.R.ITS1 INC TRANS2.O.\.BNE ITS2.
..F.INC TRANS2.1...P.;...Z.ITS2 LDA TRAN
S1.....CMP #.......BNE TST14.%...LDA TRA
NS1.1.1...CMP #...<...BEQ V0.B...;.U...T
ST14 JMP TST1.[.J.;.}.T.TAB1 .W.D ST1,ST
2,ST3,LOA,ST4......W.D ST5,ST6,ST7,NO,YE
S,ST8......W.D ST9.....;.P...TAB2 .W.D .
T1.1,.T2.1,OK2.1......W.D LOAOUT.1,OK3.1
,OK5.1,OK6.1......W.D OK7.1,NOSUM.1,YESO
UT.1.)....W.D OK8.1,OKA.1./.$.;.D...; 2.
VERSCHIEBEN.J.8.;._.B.V0 LDA #.PROGRAM.
Q.L.LDY #.PROGRAM...V.STA TRANS1...`.STY
TRANS1.1. .J.LDA TRANS3...T.STA TRANS2.
..~.LDA TRANS3.1.Q...STA TRANS2.1.W...;.
....LDY #0.....V1 LDA (TRANS1),Y.....STA
(TRANS2),Y.....INC TRANS1.%.D.BNE V2.6.
N.INC TRANS1.1.H.X.V2 INC TRANS2.S...BNE
V3.D...INC TRANS2.1.J...;.|...V3 INC VI
C.33.....LDA TRANS1.....CMP #.......BNE
V1...(.LDA TRANS1.1...2.CMP #...J.<.BNE
V1.P.F.;.V.P.;...Z.; BEDIENUNGSANLEITUNG
UND...D.; '.Y.' AUSGEBEN...N.;...X.;.".
..LDA #$06.1...STA VIC.32.@...STA VIC.33
.O. .LDX TRANS2.`...LDA TRANS2.1.M...JSR
.OUT.}...LDA #.SYTXT...H.LDY #.SYTXT...
R.JSR STROUT.....LDX TRANS3.....LDA TRAN
S3.1.I...JSR .OUT.W...LDA #.TX4.....LDY
#.TX4.....JSR STROUT.....JSR ....".JMP .
Y...,.;...6.;.#.@..BYTE $00.).J.;.7.T.;
STRINGS.=.^.;.C.H.;.N.R.TX1 .F"....DELUX
E DATAS BY J.LUETTGAU"...|..BYTE $0D,$0E
......F"...ENTER START-ADRESS OF DATA-MA
KER"......BYTE $0D......F"..............
..............."......BYTE $00.....;....
.TX2 .F" .. ."...B..BYTE $00...L.;.,.V.T
X3 .BYTE $0D.N....F"...PROGRAM TRANSFERE
D TO ".\....BYTE $00.B...;.Y...SYTXT .BY
TE$0D,$0D......F".USING:"......BYTE $0D,
$0D......F".SYS"...&..BYTE $00...0.;...:
.TX4 .F"(,A$),A,B(,C,D,E,F)"...D..BYTE $
0D,$0D...N..F".A$=STRING ('DATA' OR '.BY
TE' E.G.).+.X..BYTE $0D,$0D.O.B..F".A=ST
ART,B=END,C=DATAS/LINE".A.L..BYTE $0D,$0
D.~.V..F".D=FIRST LINE,E=STEP"......BYTE
$0D,$0D......F".F<>0 = CHECKSUM, G=VALU
E OF $01".K....BYTE $0D,$00.Q...;.W...;.
....; PROGRAMM.....;...F.;...P.;...Z.PRO
GRAM LDA #6.....STA VIC.32.*...STA VIC.
33.0...;.6...;.H....T1 LDA #.ST1.V...LDY
#.ST1.E. .JSR STROUT.K.*.;...4.; PROGRA
MMZEIGER RETTEN...>.;...H.LDA PC...R.LDY
PC.1...\.STA STRING.E.F.STY STRING.1.K.
P.;.Z.Z.JSR CHKCOM.....;.....; AUSDRUCK
HOC UND AUSWERTEN. ...; WENN STRING, DAN
N WEITER.A...; WENN ZAHL, DANN .AULTWERT
E.B...; FUER STRING SETZEN, PC ZU......;
RUECKHOC UND WEITER BEI.....; STARTADRE
SSE EINLESEN...J.;...T.JSR FRMEVL.....LD
A $0D.J...BMI OK01.Y...LDA STRING.....LD
Y STRING.1.....STA PC.....STY PC.1.....L
DA #4...$.STA LAENGE.)...LDA #"D".8.8.ST
A STRING.E.B.LDA #"A".V.L.STA STRING.1.C
.V.LDA #"T".T.`.STA STRING.2...J.LDA #"A
"...T.STA STRING.3...~.LDA #$00.....STA
STRING.4.....;.Y...; EINGELESENEN STRING
AUSGEBEN.....;.....LDA #.STRING.....LDY
#.STRING...D.JSR STROUT...N.;.-.X.; UNB
EDINGTER SP.G.3...;.>...LDY #0.J...BEQ .
T2.P...;.U...; STRING IN RESERVIERTEN BE
REICH.{...;.....OK01 LDY #0...(.;...2.;
STRING.LAENGE HOC...<.;...F.LDA (FAC),Y.
E.P.;...Z.; WENN STRING LEER DANN FEHLER
...D.;...N.BNE OK0.. X.JMP ILLQUAN.. ..O
K0 STA LAENGE.% ..INY.+ ..;.O .; ADRESS
E HOC & STRING AUSGEBEN.U ..;.E ..LDA (F
AC),Y.S ..STA ADLOW.. H.STA ZFDZ.. R.INY
.. ..LDA (FAC),Y.. ..STA ADHIGH.. ..STA
ZFDZ.1.E ..LDA LAENGE.T ..JSR OUTSTR.Z .
.;.. ..; WENN LAENGER ALS 8 DANN FEHLER.
.!".;..!,.LDY LAENGE..!6.CPY #9.+!@.BCC
OK1.7!J.LDX #23.C!T.JMP ERR.I!^.;.B!H.;
STRING UEBERTRAGEN.H!R.;.T!|.OK1 DEY..!.
.OK11 LDA (ZFDZ),Y..!..STA STRING,Y..!..
DEY..!..BPL OK11..!..;.R!..; STARTADRESS
E EINLESEN.X!B.;..!L..T2 LDA #.ST2..!V.L
DY #.ST2.."..JSR STROUT.."..JSR CHKCOM.%
"..JSR FRMNUM.2"..JSR .ADR.A"..STY TRANS
1.R"..STA TRANS1.1.A"..LDX TRANS1.N"&.JS
R .OUT.T"0.;..":.; .ADRESSE EINLESEN.."D
.;.."N.OK2 LDA #.ST3.."X.LDY #.ST3.A"B.J
SR STROUT.P"L.JSR CHKCOM.."V.JSR FRMNUM.
."..JSR .ADR.."..STY TRANS2..#..STA TRAN
S2.1..#..LDX TRANS2.(#..JSR .OUT..#..;.I
#..; .E KLEINER ALS START.O#F.;.`#P.LDA
TRANS2.1.Q#Z.CMP TRANS1.1.#..BEQ TEST1.
.#..BCS OK3..#..BCC LOAOUT..#..TEST1 LDA
TRANS2..#..CMP TRANS1.J#..BCS OK3.P# .;
..#*.; JA! FEHLERMELDUNG..#4.;..$>.LOAOU
T LDA #.LOA..$H.LDY #.LOA. $R.JSR STROUT
.+$\.JMP .Y.1$F.;.K$P.; ANZAHL .S PRO ZE
ILE.Q$Z.;.C$..OK3 LDA #.ST4.Q$..LDY #.ST
4..$..JSR STROUT..$..JSR CHRKT..$..BNE O
K31..$..;.D$..; WENN NICHT ANGEGEBEN, DA
NN 8.J$J.;.U$T.LDX #8..$..BNE OK4..$..;.
.$..OK31 JSR COMBYT..%..;..%..; MEHR ALS
20 . FEHLER !.$%..;.0%..CPX #21.<%$.BCC
OK4.P%..ILL JMP ILLQUAN.V%8.;.I%B.OK4 S
TX NUMDAT.Y%L.STX NUMDAT2.%V.;..%`.; NU
LL .S = FEHLER !..%J.;..%T.CPX #$00..%~.
BEQ ILL..%..;.I%..LDA #00.V%..JSR .OUT..
%..;..%..; ERSTE ZEICNUMMER EINLESEN..&.
.;..&D.OK5 LDA #.ST5."&N.LDY #.ST5.1&X.J
SR STROUT.?&..JSR CHRKT.M&..BNE LDLIN.S&
..;.X&..; FALLS NICHT ANGEGEBEN DANN 100
.~&..;..&..LDY #100..&..LDA #00..&(.BEQ
OK51..&2.;..&<.LDLIN JSR CHKCOM.N&F.JSR
FRMNUM..&P.JSR .ADR..&Z.;..&D.OK51 STY Z
EILO..'N.STA ZEIHI..'X.CMP #$FA..'..BCS
ILL.)'..LDX ZEILO.6'..JSR .OUT.<' .;.X'.
.; SCHRITTWEITE EINLESEN.^'..;.P'..OK6 L
DA #.ST6.~'H.LDY #.ST6..'R.JSR STROUT..'
..JSR CHRKT..'..BNE LD...'..;.P'..; WENN
NICHT ANGEGEBEN DANN 10.V'..;..'..LDX #
10..'..STX ...'".BNE .OUT..',.;..(6.LD.
JSR COMBYT..(@.STX ..)(J.CPX #$00./(T.;.
R(^.; SCHRITTWEITE NULL . FEHLER !.X(H.;
.E(R.BNE .OUT.U(|.JMP ILLQUAN.{(..;..(..
.OUT LDA #0..(..JSR .OUT..(..;..(..; CHE
CKSUMME JA.NEIN..(..;.O(B.OK7 LDA #.ST7.
.(L.LDY #.ST7..(V.JSR STROUT..(..;..)..;
NICHT ANGEGEBEN .. NEIN..)..;.$)..JSR C
HRKT.2)..BNE LDSUM.>)..STA SUM.L)..BEQ N
OSUM.R)&.;.G)0.LDSUM JSR COMBYT.S):.STX
SUM..)D.CPX #$00..)N.;..)X.; 0 . NEIN ,
.. 0 . JA..)B.;..)L.BNE YESOUT.I)V.NOSUM
LDA #.NO.V)..LDY #.NO..)..LDX #0..)..BE
Q SUMOUT..*..YESOUT LDA #.YES..*..LDY #.
YES.)*..SUMOUT JSR STROUT./*..;.P*F.; SP
EICHERK.FIGURATI. [B(1)].V*P.;.H*Z.OKA L
DA #.ST9.V*..LDY #.ST9..*..JSR STROUT..*
..;..*..; WENN NICHT ANGEGEBEN DANN 55..
*..;.B*..JSR CHRKT.O* .BNE PEE1..**.LDX
#$37..*4.STX BF.2..*>.BNE PEE2..*H.;..+R
.PEE1 JSR COMBYT..+\.STX BF.2.*+F.LDA #$
00.<+P.PEE2 JSR .OUT.B+Z.;.T+..OK8 LDA #
.ST8.B+..LDY #.ST8.Q+..JSR STROUT.W+..;.
.+..; BEFEHLSW.T IN .ERPRETERCODE..+..;
W.ELN (SOFERN MOEGLICH)..+..;.L+J.LDX LA
ENGE.Y+T.LDA #$00..+..BEQ SIB2..+..SIB L
DA STRING,X..,..SIB2 STA BUFFER,X..,..DE
X.%,..BPL SIB.2,..LDA #$FF.=,..STA PC.J,
$.LDA #$01.W,..STA PC.1.D,8.LDA #$80.R,B
.JSR $FE18.,L.JSR CHR...,V.LDX #$FF..,`
.STX $3A..,J.JSR $A579..,T.LDX #0.G,~.SI
B3 LDA BUFFER,X.X,..STA STRING,X..,..BEQ
SIB4..,..INX..,..BNE SIB3..-..SIB4 DEX.
.-..STX LAENGE. -D.JSR ..--N.LDA #$01.:-
X.LDY #$08.F-..STA VAR.T-..STY VAR.1.B-.
.STA VAR.2.P-..STY VAR.3.}-..LDA #$00..-
..STA SUMME..-..STA SUMME.1..-(.;..-2.;.
I-<.; ZEICNUMMER IN BASICSPEICHER.O-F.;.
.-P.OK9 LDY #2..-Z.LDA ZEILO..-D.STA (VA
R),Y...N.INY...X.LDA ZEIHI."...STA (VAR)
,Y.*...INY.0...;.P. .; BEFEHLSSTRING IN
SPEICHER.V...;.C...LDX #$00.W...W1 LDA S
TRING,X...H.BEQ W2...R.STA (VAR),Y.....I
NY.....INX.....BNE W1.....;.....;.J....K
93 BCC OK9.P...;...".; NUMMER DER MOMEN.
ERZEUGTEN../,.; ZEILE AUSGEBEN../6.;../
@.W2 STY STR.(/J.LDX #23.3/T.LDY #7.;/^.
CLC.I/H.JSR $FFF0.W/R.LDX ZEILO.E/|.LDA
ZEIHI.R/..JSR .OUT.~/..LDY STR../..;../.
.; AKTUELLE SPEICHERZELLE AUSGEBEN../..;
../..W4 STY STR.K/B.LDX #23.W/L.LDY #24.
./V.CLC../..JSR $FFF0../..LDX TRANS1..0.
.LDA TRANS1.1..0..JSR .OUT.&0..LDY STR.,
0..;.M0..; SPEICHER AUSLESEN, WERT IN.O0
&.; STRING W.ELN UND IN BAS.SP..U00.;..0
:.STY STR..0D.LDY #0..0N.SEI..0X.LDA BF.
2..0B.STA BF...0L.LDA (TRANS1),Y.M0V.LDY
#$37.Y0..STY BF...0..CLI..0..TAY..0..PH
A..0..JSR .FT..1..JSR FOUT..1..LDX #1.!1
F.LDY STR.51P.W5 LDA FACSTR,X.@1Z.BEQ W6
.P1..STA (VAR),Y.X1..INY.`1..INX.K1..BNE
W5.Q1..;..1..; CHECKSUMME AKTUALISIEREN
..1 .;..1*.W6 STY STR:PLA..14.CLC..1>.AD
C SUMME.M1H.STA SUMME..1R.LDA SUMME.1..1
\.ADC #0..1F.STA SUMME.1..1P.;.!2Z.; PRU
FEN, OB .ADRESSE ERREICHT.'2..;.82..LDA
TRANS1.1.I2..CMP TRANS2.1.W2..BNE TEST2.
F2..LDA TRANS1.U2..CMP TRANS2..2..BNE TE
ST2..2J.BEQ JOUT..2T.;..2...K92 BCC .K93
..2...W4 BNE W4..2..;..2..; MAX. ANZAHL
.S PRO ZEILE..2..;..2..TEST2 DEC NUMDAT2
..3..BNE .W7..3$.;.,3..; JA, DANN ZEILE
IN BASIC PRG.<38.; EINFUEGEN.B3B.;.V3L..
ZEILE LDA #$FF.D3V..BYTE $2C.W3`.JOUT L
DA #$00..3J.STA STR2..3T.LDA SUM..3~.BEQ
CHKS2..3..;.C3..; CHECKSUMME IN STRING
UND..3..; AN .-ZEILE ANHAENGEN..3..;..3.
.LDY STR..3..LDA #","..4D.STA (VAR),Y..4
N.INY.!4X.STY STR./4..LDY SUMME.?4..LDA
SUMME.1.N4..JSR CIVAYF.[4..JSR FOUT.G4..
LDY STR.R4..LDX #1.X4..;..4(.CHKS3 LDA F
ACSTR,X..42.BEQ CHKS2..4<.STA (VAR),Y..4
F.INY..4P.INX.K4Z.BNE CHKS3.Q4D.;..4N.;Z
EILE MIT NULLBYTE .CHLIESSEN..4X.;..5..C
HKS2 LDA #$00..5..STA (VAR),Y.%5..INY.15
.STY STR.75..;.T5..; VARIABCZEIGER ERHO
EHEN.Z5..;.B5H.TYA.O5R.LDY #$00.W5..CLC.
.5..ADC VAR..5..STA (VAR),Y..5..LDA VAR.
1..5..ADC #$00..5..INY.F5..STA (VAR),Y.L
5".;..5,.; WENN SPEICHER VOLL DANN .E..5
6.;..6@.LDA VAR.1..6J.CMP $38..6T.BCC ER
H.&6^.BNE NERH.26H.LDA VAR.>6R.CMP $37.J
6|.BCC ERH.P6..;.R6..; SPEICHEROBERGRENZ
E ERREICHT.X6..;..6..NERH LDA #$02..6..L
DX #$00..6..STA STR2..6B.LDA VAR.3..6L.S
TA VAR.1.N6V.LDA VAR.2.Z6..STA VAR..6..T
XA..6..BEQ ERH2..6..;..7. .W7 BNE .W71..
7. .W41 BNE .W4.(7. .K9 BCC .K92..7& ;.>
70 ERH LDA VAR.L7: STA VAR.2.Z7D LDA VAR
.1.H7N STA VAR.3.U7X LDY #$00..7B LDA (V
AR),Y..7L TAX..7V INY..7. LDA (VAR),Y..7
. STX VAR..7. STA VAR.1.G7. DEY.S7. STY
STR.Y7. ;..7. ; PRUEFEN OB ..TASTE GEDRU
ECKT..8F ;..8P LDA $CB..8Z CMP #$3F.(8.
BNE NBRE.38. LDA #1.@8. STA STR2.F8.!;.J
8.!; WENN .E NICHT ERREICHT WEITER.P8.!;
..8 !NBRE LDA STR2..8*!BMI NEI2..84!;..8
>!ERH2 LDY#0:TYA..8H!STA (VAR),Y..8R!INY
.P8\!STA (VAR),Y..8F!LDA VAR..8P!CLC..8Z
!ADC #2..8.!STA VAR..9.!STA $2F..9.!STA
$31.!9.!LDA VAR.1.,9.!ADC #0.:9.!STA VAR
.1.F9.!STA $30.R9J!STA $32.^9T!LDA $37.J
9.!LDY $38.V9.!STA $33..9.!STY $34..9.!L
DA STR2..9."BNE BREAK..9."JMP .Y..9.";..
9$".W42 BNE .W41.P9.".W71 BNE W7..98".K9
1 BCC .K9..9B";..9L"BREAK CMP #1..:V"BNE
OOM..:`"LDX #30..:J"JMP ERR.+:T"OOM CMP
#2.6:~"BNE OE.B:."LDX #16.N:."JMP ERR.A
:."OE JMP ILLQUAN.G:.";..:."; ZEIGER IN
SPEICHER ERHOEHEN..:.";..:D"NEI2 LDA NUM
DAT..:N"STA NUMDAT2.B:X"INC TRANS1.Q:."B
NE ZEILE2..:."INC TRANS1.1..:.";..;.#; C
HECKSUMME . 0 FUER NEUEZEILE..;.#;.%;.#Z
EILE2 LDA #0.3;.#STA SUMME.C;(#STA SUMM
E.1.I;2#;.I;<#; NEUE ZEICNUMMER BERECHNE
N.O;F#;.};P#LDA ZEILO..;Z#CLC..;D#ADC ..
.;N#STA ZEILO..;X#LDA ZEIHI..;.#ADC #0.D
;.#STA ZEIHI.J;.#;..; #; .63999 DANN FEH
LER !..;.#;..;.#CMP #$FA..<.#BCC .K91..<
H#LDA #3..<R#STA STR2.*<.#BNE ERH2.0<.#;
.S<.#; KOMMA ANFUEGEN UND NAECHSTES.N<.#
; .-STATEMENT ERZEUGEN.T<.$;..<.$W7 LDA
#","..<.$LDY STR. <"$STA (VAR),Y..<,$INY
..<6$STY STR.C<@$INC TRANS1.P<J$BNE .W42
..<T$INC TRANS1.1..<^$BNE .W42..<H$;..=R
$; VERW.ETE ZEICHENKETTEN:..=|$; .H=.$ST
1 .F"....DELUXE DATAS BY JOERG LUETTGAU"
.Z=.$.BYTE $0E,$0D.Q=.$.F"...PARAMETER :
".=.$.BYTE $0D..=.$.F"............"..=.
$.BYTE $0D..=B$.F".CODE : ".K=
L$.BYTE $00.Q=V$;..=.$ST2 .BYTE $0D,$0D.
.>.$.F".START ADRESS : "..>.$.BYTE $00
..>.$;.,>.%ST3 .BYTE $0D,$0D.G>.%.F".END
ADRESS : ".U>.%.BYTE $00.[>&%;.P>0%
LOA .BYTE$0D,$0D..>:%.F"?ADRESS TOO LOW
ERROR"..>D%.BYTE$00..>N%;..>X%ST5 .BYTE
$0D,$0D.R>B%.F".FIRST LINE : "..>L%.
BYTE $00..>V%;..>.%ST6 .BYTE $0D,$0D..?.
%.F".STEP : ".%?.%.BYTE $00.+?
.%;.A?.%ST7 .BYTE $0D,$0D.\?.%.F".CHECKS
UM ? : ".J?.%.BYTE $00.P?F%;..?P%ST9
.BYTE $0D,$0D..?Z%.F".VALUE OF $01 :
"..?.%.BYTE $00..?.%;.C?.%NO .F"NO".Q?.&
.BYTE $00.W?.&;..?.&YES .F"YES"..? &.BYT
E $00..?*&;..@4&ST8 .BYTE $0D,$0D,$0D.6@
>&.F".LINE : MEMORY :".D@H&.BYTE
$00.J@R&;.`@\&ST4 .BYTE $0D,$0D.{@F&.F"
.DATAS PER LINE : "..@P&.BYTE $00..@Z&;.
.@.&. NOP..@.&;...
> CLICK IMAGE PREVIEW FOR FULL MODAL