TRACK40.SOURCE
FILE INFORMATION
FILENAME(S): TRACK40.SOURCE
FILE TYPE(S): PRG
FILE SIZE: 22.6K
FIRST SEEN: 2025-11-30 01:12:33
APPEARS ON: 2 disk(s)
FILE HASH
67039aca01318dbab5f6a7dc270ccb4e43d789dc26b638e24fcef62ca21bf288
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L686S9CD | TRACK40.SOURCE | PRG | C64er, DuncanTwain | 25 | 9 | DOWNLOAD FILE |
| L686S9CD | TRACK40.SOURCE | PRG | DuncanTwain | 25 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 64 00 3B 20 20 20 42 41 53 49 43 AB |..H.d.; BASIC.|
00000010: 45 52 57 45 49 54 45 8A 47 20 5A 55 52 20 4E 55 |ERWEITE.G ZUR NU|
00000020: 45 54 5A 55 4E 47 20 44 45 52 20 53 50 55 52 45 |ETZUNG DER SPURE|
00000030: 4E 20 33 36 AB 34 30 20 41 55 46 20 44 45 52 20 |N 36.40 AUF DER |
00000040: 44 49 53 4B 45 54 54 45 00 76 08 6E 00 3B 20 20 |DISKETTE.v.n.; |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 3A 00 94 08 78 00 3B 20 20 20 20 | :...x.; |
00000080: 20 20 20 20 20 20 47 45 52 4D 41 4E 4F 20 43 41 | GERMANO CA|
00000090: 52 91 4E 49 00 B3 08 82 00 3B 20 20 20 20 20 20 |R.NI.....; |
000000A0: 20 20 20 20 47 52 45 55 42 53 54 45 4C 53 54 52 | GREUBSTELSTR|
000000B0: 2E 31 30 00 D3 08 8C 00 3B 20 20 20 20 20 20 20 |.10.....; |
000000C0: 20 20 43 48 AB 35 34 33 30 20 57 45 54 54 49 4E | CH.5430 WETTIN|
000000D0: 47 45 4E 00 F3 08 96 00 3B 20 20 20 20 20 20 20 |GEN.....; |
000000E0: 20 20 54 45 4C 2E 30 30 34 31 AD 35 36 32 36 32 | TEL.0041.56262|
000000F0: 35 37 34 00 21 09 A0 00 3B 20 20 20 20 20 20 20 |574.!...; |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 3A 00 27 09 84 03 3B 00 67 09 00 C0 22 2E 42 41 |:.'...;.g...".BA|
00000130: 20 20 34 39 31 35 32 20 3B 5A 55 45 52 53 54 20 | 49152 ;ZUERST |
00000140: 44 52 45 49 20 46 4C 4F 50 50 59 2D 52 4F 55 54 |DREI FLOPPY-ROUT|
00000150: 49 4E 45 4E 20 44 41 4E 4E 20 48 41 55 50 54 50 |INEN DANN HAUPTP|
00000160: 52 4F 47 52 41 4D 4D 00 A7 09 00 C0 22 20 4C 44 |ROGRAMM....." LD|
00000170: 41 20 20 37 31 36 38 20 3B 53 54 41 52 54 20 35 |A 7168 ;START 5|
00000180: 30 30 30 30 20 45 49 4E 53 50 52 55 4E 47 50 55 |0000 EINSPRUNGPU|
00000190: 4E 4B 54 20 56 4F 4D 20 49 4E 54 45 52 50 52 45 |NKT VOM INTERPRE|
000001A0: 54 20 35 30 30 32 32 00 F2 09 03 C0 22 20 41 4E |T 50022....." AN|
000001B0: 44 20 20 23 31 35 39 20 3B 46 4F 52 4D 41 54 49 |D #159 ;FORMATI|
000001C0: 45 52 45 4E 20 28 33 36 2D 34 30 29 20 20 2D 2D |EREN (36-40) --|
000001D0: 2D 20 44 43 2D 54 49 4D 45 52 20 46 55 45 52 20 |- DC-TIMER FUER |
000001E0: 53 50 55 52 20 33 36 20 55 4E 44 20 48 4F 45 48 |SPUR 36 UND HOEH|
000001F0: 45 52 00 0E 0A 05 C0 22 20 53 54 41 20 20 37 31 |ER....." STA 71|
00000200: 36 38 20 3B 45 49 4E 52 49 43 48 54 45 4E 00 1E |68 ;EINRICHTEN..|
00000210: 0A 08 C0 22 20 4C 44 59 20 20 20 20 23 34 00 2E |..." LDY #4..|
00000220: 0A 0A C0 22 20 53 54 59 20 20 20 20 34 39 00 3E |..." STY 49.>|
00000230: 0A 0C C0 22 20 4C 44 59 20 20 20 20 23 30 00 60 |..." LDY #0.`|
00000240: 0A 0E C0 22 20 53 54 59 20 20 20 20 34 38 20 3B |..." STY 48 ;|
00000250: 5A 45 49 47 45 52 20 20 41 55 46 20 31 30 32 34 |ZEIGER AUF 1024|
00000260: 00 70 0A 10 C0 22 20 53 54 59 20 20 20 20 35 32 |.p..." STY 52|
00000270: 00 80 0A 12 C0 22 20 4C 44 41 20 20 20 23 31 34 |....." LDA #14|
00000280: 00 A4 0A 14 C0 22 20 53 54 41 20 20 20 20 38 32 |....." STA 82|
00000290: 20 3B 48 45 41 44 45 52 2D 4B 45 4E 4E 5A 45 49 | ;HEADER-KENNZEI|
000002A0: 43 48 45 4E 00 B4 0A 16 C0 22 20 4C 44 41 20 20 |CHEN....." LDA |
000002B0: 32 30 34 36 00 CA 0A 19 C0 22 20 53 54 41 20 20 |2046....." STA |
000002C0: 20 20 38 33 20 3B 53 50 55 52 00 E2 0A 1B C0 22 | 83 ;SPUR....."|
000002D0: 20 53 54 59 20 20 20 20 38 34 20 3B 53 45 4B 54 | STY 84 ;SEKT|
000002E0: 4F 52 00 F2 0A 1D C0 22 20 4C 44 41 20 20 20 20 |OR....." LDA |
000002F0: 23 30 00 08 0B 1F C0 22 20 53 54 41 20 20 20 20 |#0....." STA |
00000300: 38 35 20 3B 4C 45 45 52 00 12 0B 21 C0 22 20 54 |85 ;LEER...!." T|
00000310: 59 41 00 31 0B 22 C0 22 20 50 48 41 20 20 20 20 |YA.1."." PHA |
00000320: 20 20 20 3B 53 45 4B 54 4F 52 20 52 45 54 54 45 | ;SEKTOR RETTE|
00000330: 4E 00 7C 0B 23 C0 22 20 4A 53 52 20 36 33 31 38 |N.|.#." JSR 6318|
00000340: 34 20 3B 44 49 45 53 45 20 46 55 45 4E 46 20 42 |4 ;DIESE FUENF B|
00000350: 59 54 45 53 20 49 4E 20 47 43 52 2D 43 4F 44 45 |YTES IN GCR-CODE|
00000360: 20 57 41 4E 44 45 4C 4E 20 55 4E 44 20 41 42 20 | WANDELN UND AB |
00000370: 24 34 30 30 20 41 42 4C 45 47 45 4E 00 CA 0B 26 |$400 ABLEGEN...&|
00000380: C0 22 20 50 4C 41 20 20 20 20 20 20 20 3B 28 44 |." PLA ;(D|
00000390: 41 53 20 47 49 42 54 20 44 49 45 20 45 49 4E 5A |AS GIBT DIE EINZ|
000003A0: 45 4C 4E 45 4E 20 48 45 41 44 45 52 20 46 55 45 |ELNEN HEADER FUE|
000003B0: 52 20 44 49 45 20 53 45 4B 54 4F 52 45 4E 20 45 |R DIE SEKTOREN E|
000003C0: 49 4E 45 52 20 53 50 55 52 29 00 EF 0B 27 C0 22 |INER SPUR)...'."|
000003D0: 20 54 41 59 20 20 20 20 20 20 20 3B 53 45 4B 54 | TAY ;SEKT|
000003E0: 4F 52 20 57 49 45 44 45 52 20 48 4F 4C 45 4E 00 |OR WIEDER HOLEN.|
000003F0: F9 0B 28 C0 22 20 49 4E 59 00 24 0C 29 C0 22 20 |..(." INY.$.)." |
00000400: 43 50 59 20 20 32 30 34 35 20 3B 53 43 48 41 55 |CPY 2045 ;SCHAU|
00000410: 45 4E 20 4F 42 20 4C 45 54 5A 54 45 52 20 53 45 |EN OB LETZTER SE|
00000420: 4B 54 4F 52 00 5D 0C 2C C0 22 20 42 4E 45 20 34 |KTOR.].,." BNE 4|
00000430: 39 31 37 30 20 3B 57 45 4E 4E 20 4E 49 43 48 54 |9170 ;WENN NICHT|
00000440: 20 44 41 4E 4E 20 44 45 4E 20 4E 41 45 43 48 53 | DANN DEN NAECHS|
00000450: 54 45 4E 20 55 4D 57 41 4E 44 45 4C 4E 00 A9 0C |TEN UMWANDELN...|
00000460: 2E C0 22 20 4C 44 41 20 20 20 20 35 32 20 3B 44 |.." LDA 52 ;D|
00000470: 49 45 20 41 44 52 45 53 53 45 20 44 45 53 20 4C |IE ADRESSE DES L|
00000480: 45 54 5A 54 45 4E 20 42 59 54 45 53 20 44 45 53 |ETZTEN BYTES DES|
00000490: 20 4C 45 54 5A 54 45 4E 20 53 45 4B 54 4F 52 53 | LETZTEN SEKTORS|
000004A0: 20 2B 31 20 48 4F 4C 45 4E 00 C5 0C 30 C0 22 20 | +1 HOLEN...0." |
000004B0: 53 54 41 20 20 32 30 34 37 20 3B 55 4E 44 20 52 |STA 2047 ;UND R|
000004C0: 45 54 54 45 4E 00 D5 0C 33 C0 22 20 4C 44 41 20 |ETTEN...3." LDA |
000004D0: 20 20 23 31 33 00 FC 0C 35 C0 22 20 53 54 41 20 | #13...5." STA |
000004E0: 20 20 20 37 31 20 3B 44 41 54 45 4E 42 4C 4F 43 | 71 ;DATENBLOC|
000004F0: 4B 4B 45 4E 4E 5A 45 49 43 48 45 4E 00 0C 0D 37 |KKENNZEICHEN...7|
00000500: C0 22 20 4C 44 59 20 20 20 20 23 30 00 16 0D 39 |." LDY #0...9|
00000510: C0 22 20 54 59 41 00 28 0D 3A C0 22 20 53 54 41 |." TYA.(.:." STA|
00000520: 20 20 20 37 36 38 2C 59 00 32 0D 3D C0 22 20 49 | 768,Y.2.=." I|
00000530: 4E 59 00 6F 0D 3E C0 22 20 42 4E 45 20 34 39 32 |NY.o.>." BNE 492|
00000540: 31 30 20 3B 44 41 54 45 4E 42 4C 4F 43 4B 20 41 |10 ;DATENBLOCK A|
00000550: 42 20 37 36 38 20 4D 49 54 20 4C 41 55 54 45 52 |B 768 MIT LAUTER|
00000560: 20 4E 55 4C 4C 45 4E 20 46 55 45 4C 4C 45 4E 00 | NULLEN FUELLEN.|
00000570: 7F 0D 40 C0 22 20 53 54 41 20 20 20 20 34 38 00 |..@." STA 48.|
00000580: 8F 0D 42 C0 22 20 53 54 41 20 20 20 20 35 32 00 |..B." STA 52.|
00000590: 9F 0D 44 C0 22 20 4C 44 41 20 20 20 20 23 33 00 |..D." LDA #3.|
000005A0: D2 0D 46 C0 22 20 53 54 41 20 20 20 20 34 39 20 |..F." STA 49 |
000005B0: 3B 44 49 45 20 5A 45 49 47 45 52 20 41 55 46 20 |;DIE ZEIGER AUF |
000005C0: 24 33 30 30 20 52 49 43 48 54 45 4E 20 28 37 36 |$300 RICHTEN (76|
000005D0: 38 29 00 F8 0D 48 C0 22 20 4A 53 52 20 36 32 39 |8)...H." JSR 629|
000005E0: 35 33 20 3B 50 52 55 45 46 53 55 4D 4D 45 20 42 |53 ;PRUEFSUMME B|
000005F0: 45 52 45 43 48 4E 45 4E 00 17 0E 4B C0 22 20 53 |ERECHNEN...K." S|
00000600: 54 41 20 20 20 20 35 38 20 3B 55 4E 44 20 53 50 |TA 58 ;UND SP|
00000610: 45 49 43 48 45 52 4E 00 47 0E 4D C0 22 20 4A 53 |EICHERN.G.M." JS|
00000620: 52 20 36 33 33 37 35 20 3B 44 41 54 45 4E 42 4C |R 63375 ;DATENBL|
00000630: 4F 43 4B 20 49 4E 20 47 43 52 2D 4B 4F 44 45 20 |OCK IN GCR-KODE |
00000640: 57 41 4E 44 45 4C 4E 00 7F 0E 50 C0 22 20 4A 53 |WANDELN...P." JS|
00000650: 52 20 36 35 30 33 38 20 3B 44 43 20 41 55 46 20 |R 65038 ;DC AUF |
00000660: 53 43 48 52 45 49 42 45 4E 20 55 4E 44 20 44 49 |SCHREIBEN UND DI|
00000670: 45 20 53 50 55 52 20 4C 4F 45 53 43 48 45 4E 00 |E SPUR LOESCHEN.|
00000680: 8F 0E 53 C0 22 20 4C 44 58 20 20 20 20 23 30 00 |..S." LDX #0.|
00000690: 9F 0E 55 C0 22 20 4C 44 59 20 20 20 20 23 35 00 |..U." LDY #5.|
000006A0: AF 0E 57 C0 22 20 4C 44 41 20 20 23 32 35 35 00 |..W." LDA #255.|
000006B0: BF 0E 59 C0 22 20 42 56 43 20 34 39 32 34 31 00 |..Y." BVC 49241.|
000006C0: C9 0E 5B C0 22 20 43 4C 56 00 16 0F 5C C0 22 20 |..[." CLV...\." |
000006D0: 53 54 41 20 20 37 31 36 39 20 3B 35 2A 32 35 35 |STA 7169 ;5*255|
000006E0: 20 41 4C 53 20 48 45 41 44 45 52 2D 53 59 4E 43 | ALS HEADER-SYNC|
000006F0: 28 48 52 4F 4E 49 53 54 41 54 49 4F 4E 53 4D 41 |(HRONISTATIONSMA|
00000700: 52 4B 49 45 52 55 4E 47 29 20 41 55 46 20 44 49 |RKIERUNG) AUF DI|
00000710: 53 4B 45 54 54 45 00 20 0F 5F C0 22 20 44 45 59 |SKETTE. ._." DEY|
00000720: 00 30 0F 60 C0 22 20 42 4E 45 20 34 39 32 34 31 |.0.`." BNE 49241|
00000730: 00 40 0F 62 C0 22 20 4C 44 59 20 20 20 20 23 35 |.@.b." LDY #5|
00000740: 00 52 0F 64 C0 22 20 4C 44 41 20 20 31 30 32 34 |.R.d." LDA 1024|
00000750: 2C 58 00 5C 0F 67 C0 22 20 49 4E 58 00 6C 0F 68 |,X.\.g." INX.l.h|
00000760: C0 22 20 42 56 43 20 34 39 32 35 36 00 76 0F 6A |." BVC 49256.v.j|
00000770: C0 22 20 43 4C 56 00 9F 0F 6B C0 22 20 53 54 41 |." CLV...k." STA|
00000780: 20 20 37 31 36 39 20 3B 44 41 4E 4E 20 44 49 45 | 7169 ;DANN DIE|
00000790: 20 35 20 48 45 41 44 45 52 2D 42 59 54 45 53 00 | 5 HEADER-BYTES.|
000007A0: A9 0F 6E C0 22 20 44 45 59 00 B9 0F 6F C0 22 20 |..n." DEY...o." |
000007B0: 42 4E 45 20 34 39 32 35 32 00 C9 0F 71 C0 22 20 |BNE 49252...q." |
000007C0: 4C 44 59 20 20 20 20 23 39 00 D9 0F 73 C0 22 20 |LDY #9...s." |
000007D0: 4C 44 41 20 20 20 23 38 35 00 E9 0F 75 C0 22 20 |LDA #85...u." |
000007E0: 42 56 43 20 34 39 32 36 39 00 F3 0F 77 C0 22 20 |BVC 49269...w." |
000007F0: 43 4C 56 00 27 10 78 C0 22 20 53 54 41 20 20 37 |CLV.'.x." STA 7|
00000800: 31 36 39 20 3B 39 20 4C 45 45 52 42 59 54 45 53 |169 ;9 LEERBYTES|
00000810: 20 41 4C 53 20 4C 55 45 43 4B 45 20 41 42 53 50 | ALS LUECKE ABSP|
00000820: 45 49 43 48 45 52 4E 00 31 10 7B C0 22 20 44 45 |EICHERN.1.{." DE|
00000830: 59 00 41 10 7C C0 22 20 42 4E 45 20 34 39 32 36 |Y.A.|." BNE 4926|
00000840: 39 00 51 10 7E C0 22 20 4C 44 59 20 20 20 20 23 |9.Q.~." LDY #|
00000850: 35 00 61 10 80 C0 22 20 4C 44 41 20 20 23 32 35 |5.a..." LDA #25|
00000860: 35 00 71 10 82 C0 22 20 42 56 43 20 34 39 32 38 |5.q..." BVC 4928|
00000870: 32 00 7B 10 84 C0 22 20 43 4C 56 00 9E 10 85 C0 |2.{..." CLV.....|
00000880: 22 20 53 54 41 20 20 37 31 36 39 20 20 20 3B 44 |" STA 7169 ;D|
00000890: 41 54 45 4E 42 4C 4F 43 4B 2D 53 59 4E 43 00 A8 |ATENBLOCK-SYNC..|
000008A0: 10 88 C0 22 20 44 45 59 00 B8 10 89 C0 22 20 42 |..." DEY....." B|
000008B0: 4E 45 20 34 39 32 38 32 00 C8 10 8B C0 22 20 4C |NE 49282....." L|
000008C0: 44 59 20 20 23 31 38 37 00 12 11 8D C0 22 20 4C |DY #187....." L|
000008D0: 44 41 20 20 20 32 35 36 2C 59 20 3B 44 45 4E 20 |DA 256,Y ;DEN |
000008E0: 45 52 53 54 45 4E 20 54 45 49 4C 20 44 45 53 20 |ERSTEN TEIL DES |
000008F0: 55 4D 47 45 57 41 4E 44 45 4C 54 45 4E 20 42 4C |UMGEWANDELTEN BL|
00000900: 4F 43 4B 45 53 20 41 55 46 20 44 49 53 4B 45 54 |OCKES AUF DISKET|
00000910: 54 45 00 22 11 90 C0 22 20 42 56 43 20 34 39 32 |TE."..." BVC 492|
00000920: 39 36 00 2C 11 92 C0 22 20 43 4C 56 00 3C 11 93 |96.,..." CLV.<..|
00000930: C0 22 20 53 54 41 20 20 37 31 36 39 00 46 11 96 |." STA 7169.F..|
00000940: C0 22 20 49 4E 59 00 56 11 97 C0 22 20 42 4E 45 |." INY.V..." BNE|
00000950: 20 34 39 32 39 33 00 83 11 99 C0 22 20 4C 44 41 | 49293....." LDA|
00000960: 20 20 20 37 36 38 2C 59 20 3B 55 4E 44 20 44 41 | 768,Y ;UND DA|
00000970: 4E 4E 20 44 45 4E 20 5A 57 45 49 54 45 4E 20 54 |NN DEN ZWEITEN T|
00000980: 45 49 4C 00 93 11 9C C0 22 20 42 56 43 20 34 39 |EIL....." BVC 49|
00000990: 33 30 38 00 9D 11 9E C0 22 20 43 4C 56 00 AD 11 |308....." CLV...|
000009A0: 9F C0 22 20 53 54 41 20 20 37 31 36 39 00 B7 11 |.." STA 7169...|
000009B0: A2 C0 22 20 49 4E 59 00 C7 11 A3 C0 22 20 42 4E |.." INY....." BN|
000009C0: 45 20 34 39 33 30 35 00 D7 11 A5 C0 22 20 4C 44 |E 49305....." LD|
000009D0: 59 20 20 20 20 23 37 00 E7 11 A7 C0 22 20 4C 44 |Y #7....." LD|
000009E0: 41 20 20 20 23 38 35 00 F7 11 A9 C0 22 20 42 56 |A #85....." BV|
000009F0: 43 20 34 39 33 32 31 00 01 12 AB C0 22 20 43 4C |C 49321....." CL|
00000A00: 56 00 2A 12 AC C0 22 20 53 54 41 20 20 37 31 36 |V.*..." STA 716|
00000A10: 39 20 20 20 3B 57 49 45 44 45 52 20 37 20 42 59 |9 ;WIEDER 7 BY|
00000A20: 54 45 53 20 4C 55 45 43 4B 45 00 34 12 AF C0 22 |TES LUECKE.4..."|
00000A30: 20 44 45 59 00 44 12 B0 C0 22 20 42 4E 45 20 34 | DEY.D..." BNE 4|
00000A40: 39 33 32 31 00 7D 12 B2 C0 22 20 43 50 58 20 20 |9321.}..." CPX |
00000A50: 32 30 34 37 20 20 20 3B 53 43 48 41 55 45 4E 20 |2047 ;SCHAUEN |
00000A60: 4F 42 20 41 4C 4C 45 20 53 45 4B 54 4F 52 45 4E |OB ALLE SEKTOREN|
00000A70: 20 45 49 4E 47 45 52 49 43 48 54 45 54 00 AE 12 | EINGERICHTET...|
00000A80: B5 C0 22 20 42 4E 45 20 34 39 32 33 37 20 20 20 |.." BNE 49237 |
00000A90: 3B 57 45 4E 4E 20 4E 49 43 48 54 20 44 41 4E 4E |;WENN NICHT DANN|
00000AA0: 20 44 45 4E 20 4E 41 45 43 48 53 54 45 4E 00 D7 | DEN NAECHSTEN..|
00000AB0: 12 B7 C0 22 20 4A 53 52 20 36 35 30 32 34 20 20 |..." JSR 65024 |
00000AC0: 20 3B 44 43 20 41 55 46 20 4C 45 53 45 4E 20 53 | ;DC AUF LESEN S|
00000AD0: 43 48 41 4C 54 45 4E 00 E7 12 BA C0 22 20 4C 44 |CHALTEN....." LD|
00000AE0: 41 20 20 20 20 23 37 00 20 13 BC C0 22 20 53 54 |A #7. ..." ST|
00000AF0: 41 20 20 20 20 37 31 20 20 20 3B 44 41 54 45 4E |A 71 ;DATEN|
00000B00: 42 4C 4F 43 4B 2D 4B 45 4E 4E 5A 45 49 43 48 45 |BLOCK-KENNZEICHE|
00000B10: 4E 20 57 49 45 44 45 52 20 52 49 43 48 54 45 4E |N WIEDER RICHTEN|
00000B20: 00 5B 13 BE C0 22 20 4A 4D 50 20 36 34 39 32 36 |.[..." JMP 64926|
00000B30: 20 20 20 3B 5A 55 52 55 45 43 4B 20 5A 55 52 20 | ;ZURUECK ZUR |
00000B40: 4E 4F 52 4D 41 4C 45 4E 20 46 4C 4F 50 50 59 20 |NORMALEN FLOPPY |
00000B50: 49 52 51 2D 52 4F 55 54 49 4E 45 00 85 13 C1 C0 |IRQ-ROUTINE.....|
00000B60: 22 20 4C 44 41 20 20 20 23 31 36 20 20 20 3B 45 |" LDA #16 ;E|
00000B70: 49 53 50 52 55 4E 47 53 50 55 4E 4B 54 20 4D 49 |ISPRUNGSPUNKT MI|
00000B80: 54 20 4D 2D 45 00 B8 13 C3 C0 22 20 53 54 41 20 |T M-E....." STA |
00000B90: 20 32 30 34 35 20 20 20 3B 50 52 4F 20 53 50 55 | 2045 ;PRO SPU|
00000BA0: 52 20 31 36 20 53 45 4B 54 4F 52 45 4E 20 45 49 |R 16 SEKTOREN EI|
00000BB0: 4E 52 49 43 48 54 45 4E 00 C8 13 C6 C0 22 20 4C |NRICHTEN....." L|
00000BC0: 44 58 20 20 20 23 33 36 00 E3 13 C8 C0 22 20 53 |DX #36....." S|
00000BD0: 54 58 20 20 32 30 34 36 20 20 20 3B 53 50 55 52 |TX 2046 ;SPUR|
00000BE0: 20 33 36 00 10 14 CB C0 22 20 53 54 58 20 20 20 | 36....." STX |
00000BF0: 20 31 30 20 20 20 3B 44 45 4D 20 49 52 51 2D 50 | 10 ;DEM IRQ-P|
00000C00: 52 47 20 42 45 4B 41 4E 4E 54 20 47 45 42 45 4E |RG BEKANNT GEBEN|
00000C10: 00 20 14 CD C0 22 20 4C 44 41 20 20 23 32 32 34 |. ..." LDA #224|
00000C20: 00 43 14 CF C0 22 20 53 54 41 20 20 20 20 20 32 |.C..." STA 2|
00000C30: 20 20 20 3B 49 52 51 2D 50 52 47 20 53 54 41 52 | ;IRQ-PRG STAR|
00000C40: 54 45 4E 00 53 14 D1 C0 22 20 4C 44 41 20 20 20 |TEN.S..." LDA |
00000C50: 20 20 32 00 78 14 D3 C0 22 20 42 4D 49 20 34 39 | 2.x..." BMI 49|
00000C60: 33 36 31 20 20 20 3B 57 41 52 54 45 4E 20 41 55 |361 ;WARTEN AU|
00000C70: 46 20 46 45 52 54 49 47 00 82 14 D5 C0 22 20 49 |F FERTIG....." I|
00000C80: 4E 58 00 B2 14 D6 C0 22 20 43 50 58 20 20 20 23 |NX....." CPX #|
00000C90: 34 30 20 20 20 3B 53 43 48 41 55 45 4E 20 4F 42 |40 ;SCHAUEN OB|
00000CA0: 20 53 43 48 4F 4E 20 42 45 49 20 53 50 55 52 20 | SCHON BEI SPUR |
00000CB0: 34 30 00 DE 14 D8 C0 22 20 42 43 43 20 34 39 33 |40....." BCC 493|
00000CC0: 35 32 20 20 20 3B 57 45 4E 4E 20 4E 49 43 48 54 |52 ;WENN NICHT|
00000CD0: 20 4E 41 45 43 48 53 54 45 20 53 50 55 52 00 06 | NAECHSTE SPUR..|
00000CE0: 15 DA C0 22 20 44 45 43 20 20 32 30 34 35 20 20 |..." DEC 2045 |
00000CF0: 20 3B 50 52 4F 20 53 50 55 52 20 31 35 20 53 45 | ;PRO SPUR 15 SE|
00000D00: 4B 54 4F 52 45 4E 00 16 15 DD C0 22 20 43 50 58 |KTOREN....." CPX|
00000D10: 20 20 20 23 34 31 00 4A 15 DF C0 22 20 42 4E 45 | #41.J..." BNE|
00000D20: 20 34 39 33 35 32 20 20 20 3B 55 4E 44 20 44 49 | 49352 ;UND DI|
00000D30: 45 20 53 50 55 52 20 34 30 20 4E 4F 43 48 20 46 |E SPUR 40 NOCH F|
00000D40: 4F 52 4D 41 54 49 45 52 45 4E 00 62 15 E1 C0 22 |ORMATIEREN.b..."|
00000D50: 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 45 4E | RTS ;EN|
00000D60: 44 45 00 AE 15 E2 C0 22 20 4C 44 41 20 20 37 31 |DE....." LDA 71|
00000D70: 36 38 20 20 20 3B 45 49 4E 45 4E 20 42 4C 4F 43 |68 ;EINEN BLOC|
00000D80: 4B 20 41 42 20 24 34 30 30 20 53 50 45 49 43 48 |K AB $400 SPEICH|
00000D90: 45 52 4E 20 28 53 50 55 52 2B 53 45 4B 54 4F 52 |ERN (SPUR+SEKTOR|
00000DA0: 20 49 4E 20 32 30 34 36 2C 32 30 34 37 29 00 D2 | IN 2046,2047)..|
00000DB0: 15 E5 C0 22 20 41 4E 44 20 20 23 31 35 39 20 20 |..." AND #159 |
00000DC0: 20 3B 44 43 2D 54 49 4D 45 52 20 52 49 43 48 54 | ;DC-TIMER RICHT|
00000DD0: 45 4E 00 E2 15 E7 C0 22 20 53 54 41 20 20 37 31 |EN....." STA 71|
00000DE0: 36 38 00 F2 15 EA C0 22 20 4C 44 41 20 20 20 20 |68....." LDA |
00000DF0: 23 30 00 FC 15 EC C0 22 20 54 41 59 00 06 16 ED |#0....." TAY....|
00000E00: C0 22 20 43 4C 43 00 3E 16 EE C0 22 20 41 44 43 |." CLC.>..." ADC|
00000E10: 20 20 31 30 32 34 2C 59 20 3B 45 52 53 54 45 20 | 1024,Y ;ERSTE |
00000E20: 28 49 4E 54 45 52 4E 45 29 20 50 52 55 45 46 53 |(INTERNE) PRUEFS|
00000E30: 55 4D 4D 45 20 42 45 52 45 43 48 4E 45 4E 00 48 |UMME BERECHNEN.H|
00000E40: 16 F1 C0 22 20 49 4E 59 00 58 16 F2 C0 22 20 43 |..." INY.X..." C|
00000E50: 50 59 20 20 23 32 35 35 00 68 16 F4 C0 22 20 42 |PY #255.h..." B|
00000E60: 4E 45 20 34 39 33 38 39 00 A5 16 F6 C0 22 20 53 |NE 49389....." S|
00000E70: 54 41 20 20 31 32 37 39 20 20 20 3B 55 4E 44 20 |TA 1279 ;UND |
00000E80: 41 4C 53 20 4C 45 54 5A 54 45 53 20 44 41 54 45 |ALS LETZTES DATE|
00000E90: 4E 42 4C 4F 43 4B 2D 42 59 54 45 20 53 50 45 49 |NBLOCK-BYTE SPEI|
00000EA0: 43 48 45 52 4E 00 B5 16 F9 C0 22 20 4C 44 41 20 |CHERN....." LDA |
00000EB0: 20 20 23 31 33 00 E7 16 FB C0 22 20 53 54 41 20 | #13....." STA |
00000EC0: 20 20 20 37 31 20 20 20 3B 44 41 54 45 4E 42 4C | 71 ;DATENBL|
00000ED0: 4F 43 4B 20 4B 45 4E 4E 5A 45 49 43 48 45 4E 20 |OCK KENNZEICHEN |
00000EE0: 52 49 43 48 54 45 4E 00 F7 16 FD C0 22 20 4C 44 |RICHTEN....." LD|
00000EF0: 41 20 20 20 20 23 34 00 07 17 FF C0 22 20 53 54 |A #4....." ST|
00000F00: 41 20 20 20 20 34 39 00 17 17 01 C1 22 20 4C 44 |A 49....." LD|
00000F10: 41 20 20 20 20 23 30 00 3A 17 03 C1 22 20 53 54 |A #0.:..." ST|
00000F20: 41 20 20 20 20 34 38 20 20 20 3B 5A 45 49 47 45 |A 48 ;ZEIGE|
00000F30: 52 20 41 55 46 20 24 34 30 30 00 4A 17 05 C1 22 |R AUF $400.J..."|
00000F40: 20 53 54 41 20 20 20 20 35 32 00 72 17 07 C1 22 | STA 52.r..."|
00000F50: 20 4A 53 52 20 36 32 39 35 33 20 20 20 3B 50 52 | JSR 62953 ;PR|
00000F60: 55 45 46 53 55 4D 4D 45 20 42 45 52 45 43 48 4E |UEFSUMME BERECHN|
00000F70: 45 4E 00 8F 17 0A C1 22 20 53 54 41 20 20 20 20 |EN....." STA |
00000F80: 35 38 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 |58 ;SPEICHERN.|
00000F90: C3 17 0C C1 22 20 4A 53 52 20 36 33 33 37 35 20 |...." JSR 63375 |
00000FA0: 20 20 3B 44 41 54 45 4E 42 4C 4F 43 4B 20 55 4D | ;DATENBLOCK UM|
00000FB0: 57 41 4E 44 45 4C 4E 20 49 4E 20 47 43 52 2D 4B |WANDELN IN GCR-K|
00000FC0: 4F 44 45 00 E6 17 0F C1 22 20 4C 44 41 20 20 20 |ODE....." LDA |
00000FD0: 23 31 34 20 20 20 3B 48 45 41 44 45 52 20 41 55 |#14 ;HEADER AU|
00000FE0: 46 42 41 55 45 4E 00 0C 18 11 C1 22 20 53 54 41 |FBAUEN....." STA|
00000FF0: 20 20 20 20 38 32 20 20 20 3B 48 45 41 44 45 52 | 82 ;HEADER|
00001000: 2D 4B 45 4E 4E 5A 45 49 43 48 45 4E 00 1C 18 13 |-KENNZEICHEN....|
00001010: C1 22 20 4C 44 41 20 20 32 30 34 36 00 34 18 16 |." LDA 2046.4..|
00001020: C1 22 20 53 54 41 20 20 20 20 38 33 20 20 20 3B |." STA 83 ;|
00001030: 53 50 55 52 00 44 18 18 C1 22 20 4C 44 41 20 20 |SPUR.D..." LDA |
00001040: 32 30 34 37 00 5E 18 1B C1 22 20 53 54 41 20 20 |2047.^..." STA |
00001050: 20 20 38 34 20 20 20 3B 53 45 4B 54 4F 52 00 6E | 84 ;SEKTOR.n|
00001060: 18 1D C1 22 20 4C 44 41 20 20 20 20 23 30 00 86 |..." LDA #0..|
00001070: 18 1F C1 22 20 53 54 41 20 20 20 20 38 35 20 20 |..." STA 85 |
00001080: 20 3B 4C 45 45 52 00 96 18 21 C1 22 20 53 54 41 | ;LEER...!." STA|
00001090: 20 20 20 20 34 38 00 A6 18 23 C1 22 20 53 54 41 | 48...#." STA|
000010A0: 20 20 20 20 35 32 00 C9 18 25 C1 22 20 4C 44 41 | 52...%." LDA|
000010B0: 20 20 20 20 23 33 20 20 20 3B 5A 45 49 47 45 52 | #3 ;ZEIGER|
000010C0: 20 41 55 46 20 24 33 30 30 00 D9 18 27 C1 22 20 | AUF $300...'." |
000010D0: 53 54 41 20 20 20 20 34 39 00 19 19 29 C1 22 20 |STA 49...)." |
000010E0: 4A 53 52 20 36 33 31 38 34 20 20 20 3B 48 45 41 |JSR 63184 ;HEA|
000010F0: 44 45 52 20 49 4E 20 47 43 52 20 55 4D 57 41 4E |DER IN GCR UMWAN|
00001100: 44 45 4C 4E 20 28 41 42 20 37 36 38 20 49 4D 20 |DELN (AB 768 IM |
00001110: 53 50 45 49 43 48 45 52 29 00 3C 19 2C C1 22 20 |SPEICHER).<.,." |
00001120: 4A 53 52 20 20 31 35 32 30 20 20 20 3B 57 41 52 |JSR 1520 ;WAR|
00001130: 54 45 4E 20 41 55 46 20 53 59 4E 43 00 4C 19 2F |TEN AUF SYNC.L./|
00001140: C1 22 20 42 56 43 20 34 39 34 35 35 00 56 19 31 |." BVC 49455.V.1|
00001150: C1 22 20 43 4C 56 00 66 19 32 C1 22 20 4C 44 41 |." CLV.f.2." LDA|
00001160: 20 20 37 31 36 39 00 91 19 35 C1 22 20 43 4D 50 | 7169...5." CMP|
00001170: 20 20 20 37 36 38 2C 59 20 3B 52 49 43 48 54 49 | 768,Y ;RICHTI|
00001180: 47 45 4E 20 48 45 41 44 45 52 20 53 55 43 48 45 |GEN HEADER SUCHE|
00001190: 4E 00 BE 19 38 C1 22 20 42 4E 45 20 34 39 34 35 |N...8." BNE 4945|
000011A0: 32 20 20 20 3B 57 45 4E 4E 20 4E 49 43 48 54 20 |2 ;WENN NICHT |
000011B0: 44 41 4E 4E 20 4E 41 45 43 48 53 54 45 4E 00 C8 |DANN NAECHSTEN..|
000011C0: 19 3A C1 22 20 49 4E 59 00 D8 19 3B C1 22 20 43 |.:." INY...;." C|
000011D0: 50 59 20 20 20 20 23 35 00 E8 19 3D C1 22 20 42 |PY #5...=." B|
000011E0: 4E 45 20 34 39 34 35 35 00 F8 19 3F C1 22 20 4C |NE 49455...?." L|
000011F0: 44 41 20 20 20 20 23 37 00 40 1A 41 C1 22 20 53 |DA #7.@.A." S|
00001200: 54 41 20 20 20 20 37 31 20 20 20 3B 44 41 54 45 |TA 71 ;DATE|
00001210: 4E 42 4C 4F 43 4B 2D 4B 45 4E 4E 5A 45 49 43 48 |NBLOCK-KENNZEICH|
00001220: 45 4E 20 57 49 45 44 45 52 20 52 49 43 48 54 45 |EN WIEDER RICHTE|
00001230: 4E 20 28 56 45 52 5A 4F 45 47 45 52 55 4E 47 29 |N (VERZOEGERUNG)|
00001240: 00 50 1A 43 C1 22 20 4C 44 58 20 20 20 20 23 36 |.P.C." LDX #6|
00001250: 00 76 1A 45 C1 22 20 42 56 43 20 34 39 34 37 37 |.v.E." BVC 49477|
00001260: 20 20 20 3B 36 20 42 59 54 45 53 20 55 45 42 45 | ;6 BYTES UEBE|
00001270: 52 4C 45 53 45 4E 00 80 1A 47 C1 22 20 43 4C 56 |RLESEN...G." CLV|
00001280: 00 8A 1A 48 C1 22 20 44 45 58 00 9A 1A 49 C1 22 |...H." DEX...I."|
00001290: 20 42 4E 45 20 34 39 34 37 37 00 AA 1A 4B C1 22 | BNE 49477...K."|
000012A0: 20 4C 44 41 20 20 23 32 35 35 00 BA 1A 4D C1 22 | LDA #255...M."|
000012B0: 20 53 54 41 20 20 37 31 37 31 00 CA 1A 50 C1 22 | STA 7171...P."|
000012C0: 20 4C 44 41 20 20 37 31 38 30 00 DA 1A 53 C1 22 | LDA 7180...S."|
000012D0: 20 41 4E 44 20 20 20 23 33 31 00 EA 1A 55 C1 22 | AND #31...U."|
000012E0: 20 4F 52 41 20 20 23 31 39 32 00 19 1B 57 C1 22 | ORA #192...W."|
000012F0: 20 53 54 41 20 20 37 31 38 30 20 20 20 3B 44 43 | STA 7180 ;DC|
00001300: 20 41 55 46 20 53 43 48 52 45 49 42 45 4E 20 55 | AUF SCHREIBEN U|
00001310: 4D 53 43 48 41 4C 54 45 4E 00 29 1B 5A C1 22 20 |MSCHALTEN.).Z." |
00001320: 4C 44 41 20 20 23 32 35 35 00 39 1B 5C C1 22 20 |LDA #255.9.\." |
00001330: 4C 44 58 20 20 20 20 23 35 00 69 1B 5E C1 22 20 |LDX #5.i.^." |
00001340: 53 54 41 20 20 37 31 36 39 20 20 20 3B 35 20 42 |STA 7169 ;5 B|
00001350: 59 54 45 53 20 44 41 54 45 4E 2D 53 59 4E 43 20 |YTES DATEN-SYNC |
00001360: 53 43 48 52 45 49 42 45 4E 00 73 1B 61 C1 22 20 |SCHREIBEN.s.a." |
00001370: 43 4C 56 00 83 1B 62 C1 22 20 42 56 43 20 34 39 |CLV...b." BVC 49|
00001380: 35 30 36 00 8D 1B 64 C1 22 20 43 4C 56 00 97 1B |506...d." CLV...|
00001390: 65 C1 22 20 44 45 58 00 A7 1B 66 C1 22 20 42 4E |e." DEX...f." BN|
000013A0: 45 20 34 39 35 30 36 00 B7 1B 68 C1 22 20 4C 44 |E 49506...h." LD|
000013B0: 59 20 20 23 31 38 37 00 E2 1B 6A C1 22 20 4C 44 |Y #187...j." LD|
000013C0: 41 20 20 20 32 35 36 2C 59 20 3B 45 52 53 54 45 |A 256,Y ;ERSTE|
000013D0: 4E 20 54 45 49 4C 20 44 45 53 20 42 4C 4F 43 4B |N TEIL DES BLOCK|
000013E0: 45 53 00 F2 1B 6D C1 22 20 42 56 43 20 34 39 35 |ES...m." BVC 495|
000013F0: 31 37 00 FC 1B 6F C1 22 20 43 4C 56 00 0C 1C 70 |17...o." CLV...p|
00001400: C1 22 20 53 54 41 20 20 37 31 36 39 00 16 1C 73 |." STA 7169...s|
00001410: C1 22 20 49 4E 59 00 26 1C 74 C1 22 20 42 4E 45 |." INY.&.t." BNE|
00001420: 20 34 39 35 31 34 00 5D 1C 76 C1 22 20 4C 44 41 | 49514.].v." LDA|
00001430: 20 20 31 30 32 34 2C 59 20 3B 55 4E 44 20 44 41 | 1024,Y ;UND DA|
00001440: 4E 4E 20 44 45 4E 20 5A 57 45 49 54 45 4E 20 54 |NN DEN ZWEITEN T|
00001450: 45 49 4C 20 53 43 48 52 45 49 42 45 4E 00 6D 1C |EIL SCHREIBEN.m.|
00001460: 79 C1 22 20 42 56 43 20 34 39 35 32 39 00 77 1C |y." BVC 49529.w.|
00001470: 7B C1 22 20 43 4C 56 00 87 1C 7C C1 22 20 53 54 |{." CLV...|." ST|
00001480: 41 20 20 37 31 36 39 00 91 1C 7F C1 22 20 49 4E |A 7169....." IN|
00001490: 59 00 A1 1C 80 C1 22 20 42 4E 45 20 34 39 35 32 |Y....." BNE 4952|
000014A0: 36 00 E6 1C 82 C1 22 20 42 56 43 20 34 39 35 33 |6....." BVC 4953|
000014B0: 38 20 20 20 3B 57 41 52 54 45 4E 20 44 41 53 20 |8 ;WARTEN DAS |
000014C0: 44 41 53 20 4C 45 54 5A 54 45 20 42 59 54 45 20 |DAS LETZTE BYTE |
000014D0: 46 45 52 54 49 47 20 47 45 53 43 48 52 49 45 42 |FERTIG GESCHRIEB|
000014E0: 45 4E 20 49 53 54 00 06 1D 84 C1 22 20 4A 53 52 |EN IST....." JSR|
000014F0: 20 36 35 30 32 34 20 20 20 3B 44 43 20 41 55 46 | 65024 ;DC AUF|
00001500: 20 4C 45 53 45 4E 00 29 1D 87 C1 22 20 4A 53 52 | LESEN.)..." JSR|
00001510: 20 20 31 35 32 30 20 20 20 3B 57 41 52 54 45 4E | 1520 ;WARTEN|
00001520: 20 41 55 46 20 53 59 4E 43 00 39 1D 8A C1 22 20 | AUF SYNC.9..." |
00001530: 42 56 43 20 34 39 35 34 36 00 43 1D 8C C1 22 20 |BVC 49546.C..." |
00001540: 43 4C 56 00 53 1D 8D C1 22 20 4C 44 41 20 20 37 |CLV.S..." LDA 7|
00001550: 31 36 39 00 82 1D 90 C1 22 20 43 4D 50 20 20 20 |169....." CMP |
00001560: 37 36 38 2C 59 20 3B 44 45 4E 20 52 49 43 48 54 |768,Y ;DEN RICHT|
00001570: 49 47 45 4E 20 48 45 41 44 45 52 20 53 55 43 48 |IGEN HEADER SUCH|
00001580: 45 4E 00 92 1D 93 C1 22 20 42 4E 45 20 34 39 35 |EN....." BNE 495|
00001590: 34 33 00 9C 1D 95 C1 22 20 49 4E 59 00 AC 1D 96 |43....." INY....|
000015A0: C1 22 20 43 50 59 20 20 20 20 23 35 00 BC 1D 98 |." CPY #5....|
000015B0: C1 22 20 42 4E 45 20 34 39 35 34 36 00 CC 1D 9A |." BNE 49546....|
000015C0: C1 22 20 42 4E 45 20 34 39 34 35 32 00 DC 1D 9C |." BNE 49452....|
000015D0: C1 22 20 4A 53 52 20 20 31 35 32 30 00 EC 1D 9F |." JSR 1520....|
000015E0: C1 22 20 4C 44 59 20 20 23 31 38 37 00 2E 1E A1 |." LDY #187....|
000015F0: C1 22 20 4C 44 41 20 20 20 32 35 36 2C 59 20 3B |." LDA 256,Y ;|
00001600: 55 4E 44 20 44 45 4E 20 53 4F 45 42 45 4E 20 47 |UND DEN SOEBEN G|
00001610: 45 53 43 48 52 49 45 42 45 4E 20 42 4C 4F 43 4B |ESCHRIEBEN BLOCK|
00001620: 20 4B 4F 4E 54 52 4F 4C 4C 49 45 52 45 4E 00 3E | KONTROLLIEREN.>|
00001630: 1E A4 C1 22 20 42 56 43 20 34 39 35 37 32 00 48 |..." BVC 49572.H|
00001640: 1E A6 C1 22 20 43 4C 56 00 58 1E A7 C1 22 20 45 |..." CLV.X..." E|
00001650: 4F 52 20 20 37 31 36 39 00 8C 1E AA C1 22 20 42 |OR 7169....." B|
00001660: 4E 45 20 34 39 35 36 32 20 20 20 3B 57 45 4E 4E |NE 49562 ;WENN|
00001670: 20 46 45 48 4C 45 52 20 44 41 4E 4E 20 41 4C 4C | FEHLER DANN ALL|
00001680: 45 53 20 56 4F 4E 20 56 4F 52 4E 45 00 96 1E AC |ES VON VORNE....|
00001690: C1 22 20 49 4E 59 00 A6 1E AD C1 22 20 42 4E 45 |." INY....." BNE|
000016A0: 20 34 39 35 36 39 00 D4 1E AF C1 22 20 4C 44 41 | 49569....." LDA|
000016B0: 20 20 31 30 32 34 2C 59 20 3B 5A 57 45 49 54 45 | 1024,Y ;ZWEITE|
000016C0: 4E 20 54 45 49 4C 20 4B 4F 4E 54 52 4F 4C 4C 49 |N TEIL KONTROLLI|
000016D0: 45 52 45 4E 00 E4 1E B2 C1 22 20 42 56 43 20 34 |EREN....." BVC 4|
000016E0: 39 35 38 36 00 EE 1E B4 C1 22 20 43 4C 56 00 FE |9586....." CLV..|
000016F0: 1E B5 C1 22 20 45 4F 52 20 20 37 31 36 39 00 0E |..." EOR 7169..|
00001700: 1F B8 C1 22 20 42 4E 45 20 34 39 35 36 32 00 18 |..." BNE 49562..|
00001710: 1F BA C1 22 20 49 4E 59 00 28 1F BB C1 22 20 42 |..." INY.(..." B|
00001720: 4E 45 20 34 39 35 38 33 00 5A 1F BD C1 22 20 4A |NE 49583.Z..." J|
00001730: 4D 50 20 36 34 39 32 36 20 20 20 3B 5A 55 52 55 |MP 64926 ;ZURU|
00001740: 45 43 4B 20 5A 55 52 20 46 4C 4F 50 50 59 20 49 |ECK ZUR FLOPPY I|
00001750: 52 51 2D 52 4F 55 54 49 4E 45 00 6A 1F C0 C1 22 |RQ-ROUTINE.j..."|
00001760: 20 4C 44 41 20 20 32 30 34 36 00 8C 1F C3 C1 22 | LDA 2046....."|
00001770: 20 53 54 41 20 20 20 20 31 30 20 20 20 3B 53 50 | STA 10 ;SP|
00001780: 55 52 20 46 45 53 54 4C 45 47 45 4E 00 B0 1F C5 |UR FESTLEGEN....|
00001790: C1 22 20 4C 44 41 20 20 23 32 32 34 20 20 20 3B |." LDA #224 ;|
000017A0: 49 52 51 2D 50 52 47 2E 20 53 54 41 52 54 45 4E |IRQ-PRG. STARTEN|
000017B0: 00 C0 1F C7 C1 22 20 53 54 41 20 20 20 20 20 32 |....." STA 2|
000017C0: 00 D0 1F C9 C1 22 20 4C 44 41 20 20 20 20 20 32 |....." LDA 2|
000017D0: 00 F5 1F CB C1 22 20 42 4D 49 20 34 39 36 30 39 |....." BMI 49609|
000017E0: 20 20 20 3B 57 41 52 54 45 4E 20 41 55 46 20 46 | ;WARTEN AUF F|
000017F0: 45 52 54 49 47 00 0F 20 CD C1 22 20 2E 42 59 20 |ERTIG.. .." .BY |
00001800: 32 33 34 20 32 33 34 20 3B 4C 55 45 43 4B 45 00 |234 234 ;LUECKE.|
00001810: 21 20 CF C1 22 20 2E 42 59 20 32 33 34 20 32 33 |! .." .BY 234 23|
00001820: 34 00 39 20 D1 C1 22 20 52 54 53 20 20 20 20 20 |4.9 .." RTS |
00001830: 20 20 20 20 3B 45 4E 44 45 00 5C 20 D2 C1 22 20 | ;ENDE.\ .." |
00001840: 42 49 54 20 20 37 31 36 38 20 20 20 3B 57 41 52 |BIT 7168 ;WAR|
00001850: 54 45 4E 20 41 55 46 20 53 59 4E 43 00 8C 20 D5 |TEN AUF SYNC.. .|
00001860: C1 22 20 42 4D 49 20 34 39 36 31 38 20 20 20 3B |." BMI 49618 ;|
00001870: 57 45 4E 4E 20 4E 4F 43 48 20 4B 45 49 4E 45 20 |WENN NOCH KEINE |
00001880: 44 41 4E 4E 20 4E 4F 43 48 4D 41 4C 00 9C 20 D7 |DANN NOCHMAL.. .|
00001890: C1 22 20 4C 44 41 20 20 37 31 36 39 00 C2 20 DA |." LDA 7169.. .|
000018A0: C1 22 20 43 4C 56 20 20 20 20 20 20 20 20 20 3B |." CLV ;|
000018B0: 44 43 2D 50 4F 52 54 20 46 52 45 49 4D 41 43 48 |DC-PORT FREIMACH|
000018C0: 45 4E 00 D2 20 DB C1 22 20 4C 44 59 20 20 20 20 |EN.. .." LDY |
000018D0: 23 30 00 DC 20 DD C1 22 20 52 54 53 00 27 21 DE |#0.. .." RTS.'!.|
000018E0: C1 22 20 4C 44 41 20 20 37 31 36 38 20 20 20 3B |." LDA 7168 ;|
000018F0: 45 49 4E 45 4E 20 42 4C 4F 43 4B 20 4C 45 53 45 |EINEN BLOCK LESE|
00001900: 4E 20 55 4E 44 20 49 4E 20 24 33 30 30 20 53 50 |N UND IN $300 SP|
00001910: 45 49 43 48 45 52 4E 20 54 52 2B 53 45 20 32 30 |EICHERN TR+SE 20|
00001920: 34 36 2C 32 30 34 37 00 4B 21 E1 C1 22 20 41 4E |46,2047.K!.." AN|
00001930: 44 20 20 23 31 35 39 20 20 20 3B 44 43 2D 54 49 |D #159 ;DC-TI|
00001940: 4D 45 52 20 52 49 43 48 54 45 4E 00 5B 21 E3 C1 |MER RICHTEN.[!..|
00001950: 22 20 53 54 41 20 20 37 31 36 38 00 6B 21 E6 C1 |" STA 7168.k!..|
00001960: 22 20 4C 44 41 20 20 20 23 31 34 00 90 21 E8 C1 |" LDA #14..!..|
00001970: 22 20 53 54 41 20 20 20 20 38 32 20 20 20 3B 48 |" STA 82 ;H|
00001980: 45 41 44 45 52 20 45 49 4E 52 49 43 48 54 45 4E |EADER EINRICHTEN|
00001990: 00 A0 21 EA C1 22 20 4C 44 41 20 20 32 30 34 36 |..!.." LDA 2046|
000019A0: 00 B8 21 ED C1 22 20 53 54 41 20 20 20 20 38 33 |..!.." STA 83|
000019B0: 20 20 20 3B 53 50 55 52 00 C8 21 EF C1 22 20 4C | ;SPUR..!.." L|
000019C0: 44 41 20 20 32 30 34 37 00 E2 21 F2 C1 22 20 53 |DA 2047..!.." S|
000019D0: 54 41 20 20 20 20 38 34 20 20 20 3B 53 45 4B 54 |TA 84 ;SEKT|
000019E0: 4F 52 00 F2 21 F4 C1 22 20 4C 44 41 20 20 20 20 |OR..!.." LDA |
000019F0: 23 30 00 0A 22 F6 C1 22 20 53 54 41 20 20 20 20 |#0..".." STA |
00001A00: 38 35 20 20 20 3B 4C 45 45 52 00 1A 22 F8 C1 22 |85 ;LEER..".."|
00001A10: 20 53 54 41 20 20 20 20 35 32 00 2A 22 FA C1 22 | STA 52.*".."|
00001A20: 20 53 54 41 20 20 20 20 34 38 00 4D 22 FC C1 22 | STA 48.M".."|
00001A30: 20 4C 44 41 20 20 20 20 23 33 20 20 20 3B 5A 45 | LDA #3 ;ZE|
00001A40: 49 47 45 52 20 41 55 46 20 24 33 30 30 00 5D 22 |IGER AUF $300.]"|
00001A50: FE C1 22 20 53 54 41 20 20 20 20 34 39 00 81 22 |.." STA 49.."|
00001A60: 00 C2 22 20 4A 53 52 20 36 33 31 38 34 20 20 20 |.." JSR 63184 |
00001A70: 3B 48 45 41 44 45 52 20 55 4D 57 41 4E 44 45 4C |;HEADER UMWANDEL|
00001A80: 4E 00 A4 22 03 C2 22 20 42 49 54 20 20 37 31 36 |N..".." BIT 716|
00001A90: 38 20 20 20 3B 57 41 52 54 45 4E 20 41 55 46 20 |8 ;WARTEN AUF |
00001AA0: 53 59 4E 43 00 B4 22 06 C2 22 20 42 4D 49 20 34 |SYNC..".." BMI 4|
00001AB0: 39 36 36 37 00 C4 22 08 C2 22 20 4C 44 41 20 20 |9667..".." LDA |
00001AC0: 37 31 36 39 00 CE 22 0B C2 22 20 43 4C 56 00 DE |7169..".." CLV..|
00001AD0: 22 0C C2 22 20 4C 44 59 20 20 20 20 23 30 00 EE |".." LDY #0..|
00001AE0: 22 0E C2 22 20 42 56 43 20 34 39 36 37 38 00 F8 |".." BVC 49678..|
00001AF0: 22 10 C2 22 20 43 4C 56 00 08 23 11 C2 22 20 4C |".." CLV..#.." L|
00001B00: 44 41 20 20 37 31 36 39 00 37 23 14 C2 22 20 43 |DA 7169.7#.." C|
00001B10: 4D 50 20 20 20 37 36 38 2C 59 20 3B 44 45 4E 20 |MP 768,Y ;DEN |
00001B20: 52 49 43 48 54 49 47 45 4E 20 48 45 41 44 45 52 |RICHTIGEN HEADER|
00001B30: 20 53 55 43 48 45 4E 00 47 23 17 C2 22 20 42 4E | SUCHEN.G#.." BN|
00001B40: 45 20 34 39 36 36 37 00 51 23 19 C2 22 20 49 4E |E 49667.Q#.." IN|
00001B50: 59 00 61 23 1A C2 22 20 43 50 59 20 20 20 20 23 |Y.a#.." CPY #|
00001B60: 35 00 71 23 1C C2 22 20 42 4E 45 20 34 39 36 37 |5.q#.." BNE 4967|
00001B70: 38 00 81 23 1E C2 22 20 4C 44 59 20 20 20 20 23 |8..#.." LDY #|
00001B80: 30 00 A4 23 20 C2 22 20 42 49 54 20 20 37 31 36 |0..# ." BIT 716|
00001B90: 38 20 20 20 3B 57 41 52 54 45 4E 20 41 55 46 20 |8 ;WARTEN AUF |
00001BA0: 53 59 4E 43 00 B4 23 23 C2 22 20 42 4D 49 20 34 |SYNC..##." BMI 4|
00001BB0: 39 36 39 36 00 C4 23 25 C2 22 20 4C 44 41 20 20 |9696..#%." LDA |
00001BC0: 37 31 36 39 00 CE 23 28 C2 22 20 43 4C 56 00 DE |7169..#(." CLV..|
00001BD0: 23 29 C2 22 20 42 56 43 20 34 39 37 30 35 00 E8 |#)." BVC 49705..|
00001BE0: 23 2B C2 22 20 43 4C 56 00 F8 23 2C C2 22 20 4C |#+." CLV..#,." L|
00001BF0: 44 41 20 20 37 31 36 39 00 23 24 2F C2 22 20 53 |DA 7169.#$/." S|
00001C00: 54 41 20 20 20 37 36 38 2C 59 20 3B 45 52 53 54 |TA 768,Y ;ERST|
00001C10: 45 4E 20 54 45 49 4C 20 44 45 53 20 42 4C 4F 43 |EN TEIL DES BLOC|
00001C20: 4B 45 53 00 2D 24 32 C2 22 20 49 4E 59 00 3D 24 |KES.-$2." INY.=$|
00001C30: 33 C2 22 20 42 4E 45 20 34 39 37 30 35 00 4D 24 |3." BNE 49705.M$|
00001C40: 35 C2 22 20 4C 44 59 20 20 23 31 38 36 00 5D 24 |5." LDY #186.]$|
00001C50: 37 C2 22 20 42 56 43 20 34 39 37 31 39 00 67 24 |7." BVC 49719.g$|
00001C60: 39 C2 22 20 43 4C 56 00 77 24 3A C2 22 20 4C 44 |9." CLV.w$:." LD|
00001C70: 41 20 20 37 31 36 39 00 B8 24 3D C2 22 20 53 54 |A 7169..$=." ST|
00001C80: 41 20 20 20 32 35 36 2C 59 20 3B 55 4E 44 20 44 |A 256,Y ;UND D|
00001C90: 41 4E 4E 20 44 45 4E 20 5A 57 45 49 54 45 4E 20 |ANN DEN ZWEITEN |
00001CA0: 54 45 49 4C 20 4C 45 53 45 4E 20 55 4E 44 20 53 |TEIL LESEN UND S|
00001CB0: 50 45 49 43 48 45 52 4E 00 C2 24 40 C2 22 20 49 |PEICHERN..$@." I|
00001CC0: 4E 59 00 D2 24 41 C2 22 20 42 4E 45 20 34 39 37 |NY..$A." BNE 497|
00001CD0: 31 39 00 FC 24 43 C2 22 20 4A 53 52 20 36 33 37 |19..$C." JSR 637|
00001CE0: 31 32 20 20 20 3B 49 4E 20 48 45 58 2D 42 59 54 |12 ;IN HEX-BYT|
00001CF0: 45 53 20 55 4D 57 41 4E 44 45 4C 4E 00 0C 25 46 |ES UMWANDELN..%F|
00001D00: C2 22 20 4C 44 41 20 20 20 20 35 36 00 48 25 48 |." LDA 56.H%H|
00001D10: C2 22 20 43 4D 50 20 20 20 23 31 33 20 20 20 3B |." CMP #13 ;|
00001D20: 53 43 48 41 55 45 4E 20 4F 42 20 44 41 54 45 4E |SCHAUEN OB DATEN|
00001D30: 42 4C 4F 43 4B 2D 4B 45 4E 4E 5A 45 49 43 48 45 |BLOCK-KENNZEICHE|
00001D40: 4E 20 53 54 49 4D 4D 54 00 76 25 4A C2 22 20 42 |N STIMMT.v%J." B|
00001D50: 4E 45 20 34 39 36 33 38 20 20 20 3B 57 45 4E 4E |NE 49638 ;WENN|
00001D60: 20 4E 49 43 48 54 20 41 4C 4C 45 53 20 56 4F 4E | NICHT ALLES VON|
00001D70: 20 56 4F 52 4E 45 00 86 25 4C C2 22 20 4C 44 41 | VORNE..%L." LDA|
00001D80: 20 20 20 20 23 30 00 96 25 4E C2 22 20 53 54 41 | #0..%N." STA|
00001D90: 20 20 20 20 34 38 00 A6 25 50 C2 22 20 4C 44 41 | 48..%P." LDA|
00001DA0: 20 20 20 20 23 33 00 D0 25 52 C2 22 20 53 54 41 | #3..%R." STA|
00001DB0: 20 20 20 20 34 39 20 20 20 3B 5A 45 49 47 45 52 | 49 ;ZEIGER|
00001DC0: 20 57 49 45 44 45 52 20 41 55 46 20 24 33 30 30 | WIEDER AUF $300|
00001DD0: 00 F8 25 54 C2 22 20 4A 53 52 20 36 32 39 35 33 |..%T." JSR 62953|
00001DE0: 20 20 20 3B 50 52 55 45 46 53 55 4D 4D 45 20 42 | ;PRUEFSUMME B|
00001DF0: 45 52 45 43 48 4E 45 4E 00 15 26 57 C2 22 20 43 |ERECHNEN..&W." C|
00001E00: 4D 50 20 20 20 20 35 38 20 20 20 3B 4B 4F 4E 54 |MP 58 ;KONT|
00001E10: 52 4F 4C 4C 45 00 3D 26 59 C2 22 20 42 4E 45 20 |ROLLE.=&Y." BNE |
00001E20: 34 39 36 33 38 20 20 20 3B 57 45 4E 4E 20 46 41 |49638 ;WENN FA|
00001E30: 4C 53 43 48 20 4E 4F 43 48 4D 41 4C 53 00 4D 26 |LSCH NOCHMALS.M&|
00001E40: 5B C2 22 20 4C 44 41 20 20 20 20 23 30 00 57 26 |[." LDA #0.W&|
00001E50: 5D C2 22 20 54 41 59 00 61 26 5E C2 22 20 43 4C |]." TAY.a&^." CL|
00001E60: 43 00 91 26 5F C2 22 20 41 44 43 20 20 20 37 36 |C..&_." ADC 76|
00001E70: 38 2C 59 20 3B 49 4E 54 45 52 4E 45 20 50 52 55 |8,Y ;INTERNE PRU|
00001E80: 45 46 53 55 4D 4D 45 20 42 45 52 45 43 48 4E 45 |EFSUMME BERECHNE|
00001E90: 4E 00 9B 26 62 C2 22 20 49 4E 59 00 AB 26 63 C2 |N..&b." INY..&c.|
00001EA0: 22 20 43 50 59 20 20 23 32 35 35 00 BB 26 65 C2 |" CPY #255..&e.|
00001EB0: 22 20 42 4E 45 20 34 39 37 35 38 00 DC 26 67 C2 |" BNE 49758..&g.|
00001EC0: 22 20 43 4D 50 20 20 31 30 32 33 20 20 20 3B 55 |" CMP 1023 ;U|
00001ED0: 4E 44 20 4B 4F 4E 54 52 4F 4C 4C 45 00 EC 26 6A |ND KONTROLLE..&j|
00001EE0: C2 22 20 42 4E 45 20 34 39 37 35 33 00 0F 27 6C |." BNE 49753..'l|
00001EF0: C2 22 20 4A 4D 50 20 36 34 39 32 36 20 20 20 3B |." JMP 64926 ;|
00001F00: 5A 55 52 55 45 43 4B 20 5A 55 4D 20 49 52 51 00 |ZURUECK ZUM IRQ.|
00001F10: 1F 27 6F C2 22 20 4C 44 41 20 20 32 30 34 36 00 |.'o." LDA 2046.|
00001F20: 2F 27 72 C2 22 20 53 54 41 20 20 20 20 31 30 00 |/'r." STA 10.|
00001F30: 3F 27 74 C2 22 20 4C 44 41 20 20 23 32 32 34 00 |?'t." LDA #224.|
00001F40: 4F 27 76 C2 22 20 53 54 41 20 20 20 20 20 32 00 |O'v." STA 2.|
00001F50: 5F 27 78 C2 22 20 4C 44 41 20 20 20 20 20 32 00 |_'x." LDA 2.|
00001F60: 6F 27 7A C2 22 20 42 4D 49 20 34 39 37 38 34 00 |o'z." BMI 49784.|
00001F70: 87 27 7C C2 22 20 52 54 53 20 20 20 20 20 20 20 |.'|." RTS |
00001F80: 20 20 3B 45 4E 44 45 00 CC 27 7D C2 22 2E 42 59 | ;ENDE..'}.".BY|
00001F90: 20 20 27 49 27 20 27 23 32 27 20 27 42 2D 50 20 | 'I' '#2' 'B-P |
00001FA0: 32 20 30 27 20 38 20 20 3B 44 41 54 45 4E 20 28 |2 0' 8 ;DATEN (|
00001FB0: 44 49 45 20 3E 38 3C 20 49 53 54 20 44 49 45 20 |DIE >8< IST DIE |
00001FC0: 44 52 49 56 45 4E 55 4D 4D 45 52 29 00 1A 28 88 |DRIVENUMMER)..(.|
00001FD0: C2 22 20 4C 44 41 20 20 23 32 32 36 20 20 20 3B |." LDA #226 ;|
00001FE0: 52 4F 55 54 49 4E 45 20 5A 55 4D 20 53 45 4E 44 |ROUTINE ZUM SEND|
00001FF0: 45 4E 20 45 49 4E 45 52 20 44 45 52 20 44 52 45 |EN EINER DER DRE|
00002000: 49 20 46 4C 4F 50 50 59 2D 50 52 47 2E 28 46 4F |I FLOPPY-PRG.(FO|
00002010: 52 4D 41 54 49 45 52 45 4E 29 00 35 28 8A C2 22 |RMATIEREN).5(.."|
00002020: 2E 42 59 20 20 20 34 34 20 20 20 20 20 3B 42 49 |.BY 44 ;BI|
00002030: 54 20 2E 2E 2E 00 5E 28 8B C2 22 20 4C 44 41 20 |T ....^(.." LDA |
00002040: 20 23 32 35 32 20 20 20 3B 45 49 4E 53 50 52 55 | #252 ;EINSPRU|
00002050: 4E 47 20 28 53 43 48 52 45 49 42 45 4E 29 00 79 |NG (SCHREIBEN).y|
00002060: 28 8D C2 22 2E 42 59 20 20 20 34 34 20 20 20 20 |(..".BY 44 |
00002070: 20 3B 42 49 54 20 2E 2E 2E 00 9E 28 8E C2 22 20 | ;BIT .....(.." |
00002080: 4C 44 41 20 20 23 31 35 39 20 20 20 3B 45 49 4E |LDA #159 ;EIN|
00002090: 53 50 52 55 4E 47 20 28 4C 45 53 45 4E 29 00 B8 |SPRUNG (LESEN)..|
000020A0: 28 90 C2 22 20 50 48 41 20 20 20 20 20 20 20 20 |(.." PHA |
000020B0: 20 3B 52 45 54 54 45 4E 00 E9 28 91 C2 22 20 4A | ;RETTEN..(.." J|
000020C0: 53 52 20 36 35 35 31 31 20 20 20 3B 43 4C 41 4C |SR 65511 ;CLAL|
000020D0: 4C 20 41 4C 4C 45 20 4B 41 4E 41 45 4C 45 20 53 |L ALLE KANAELE S|
000020E0: 43 48 4C 49 45 53 53 45 4E 00 0A 29 94 C2 22 20 |CHLIESSEN..).." |
000020F0: 4C 44 41 20 20 20 20 23 31 20 20 20 3B 4C 4F 47 |LDA #1 ;LOG|
00002100: 2E 20 46 49 4C 45 20 4E 52 2E 00 31 29 96 C2 22 |. FILE NR..1).."|
00002110: 20 4C 44 58 20 34 39 37 39 39 20 20 20 3B 47 45 | LDX 49799 ;GE|
00002120: 52 41 45 54 45 2D 41 44 52 45 53 53 45 20 28 38 |RAETE-ADRESSE (8|
00002130: 29 00 52 29 99 C2 22 20 4C 44 59 20 20 20 23 31 |).R).." LDY #1|
00002140: 35 20 20 20 3B 53 45 4B 55 4E 44 41 45 52 41 44 |5 ;SEKUNDAERAD|
00002150: 52 2E 00 6C 29 9B C2 22 20 4A 53 52 20 36 35 34 |R..l).." JSR 654|
00002160: 36 36 20 20 20 3B 53 45 54 4C 46 53 00 86 29 9E |66 ;SETLFS..).|
00002170: C2 22 20 4C 44 41 20 20 20 20 23 31 20 20 20 3B |." LDA #1 ;|
00002180: 4C 41 45 4E 47 45 00 A1 29 A0 C2 22 20 4C 44 58 |LAENGE..).." LDX|
00002190: 20 20 23 31 32 35 20 20 20 3B 41 44 52 45 53 53 | #125 ;ADRESS|
000021A0: 45 00 B1 29 A2 C2 22 20 4C 44 59 20 20 23 31 39 |E..).." LDY #19|
000021B0: 34 00 CB 29 A4 C2 22 20 4A 53 52 20 36 35 34 36 |4..).." JSR 6546|
000021C0: 39 20 20 20 3B 53 45 54 4E 41 4D 00 08 2A A7 C2 |9 ;SETNAM..*..|
000021D0: 22 20 4A 53 52 20 36 35 34 37 32 20 20 20 3B 4F |" JSR 65472 ;O|
000021E0: 50 45 4E 20 28 44 41 53 20 47 41 4E 5A 45 20 45 |PEN (DAS GANZE E|
000021F0: 4E 54 53 50 52 49 43 48 54 20 4F 50 45 4E 31 2C |NTSPRICHT OPEN1,|
00002200: 38 2C 31 35 2C 22 49 22 00 2C 2A AA C2 22 20 42 |8,15,"I".,*.." B|
00002210: 43 43 20 34 39 38 33 39 20 20 20 3B 57 45 4E 4E |CC 49839 ;WENN|
00002220: 20 4B 45 49 4E 20 46 45 48 4C 45 52 00 50 2A AC | KEIN FEHLER.P*.|
00002230: C2 22 20 4A 4D 50 20 35 37 35 39 33 20 20 20 3B |." JMP 57593 ;|
00002240: 46 45 48 4C 45 52 41 55 53 57 45 52 54 55 4E 47 |FEHLERAUSWERTUNG|
00002250: 00 60 2A AF C2 22 20 4C 44 41 20 20 20 20 23 32 |.`*.." LDA #2|
00002260: 00 70 2A B1 C2 22 20 4C 44 58 20 34 39 37 39 39 |.p*.." LDX 49799|
00002270: 00 7A 2A B4 C2 22 20 54 41 59 00 94 2A B5 C2 22 |.z*.." TAY..*.."|
00002280: 20 4A 53 52 20 36 35 34 36 36 20 20 20 3B 53 45 | JSR 65466 ;SE|
00002290: 54 4C 46 53 00 A4 2A B8 C2 22 20 4C 44 41 20 20 |TLFS..*.." LDA |
000022A0: 20 20 23 32 00 B4 2A BA C2 22 20 4C 44 58 20 20 | #2..*.." LDX |
000022B0: 23 31 32 36 00 C4 2A BC C2 22 20 4C 44 59 20 20 |#126..*.." LDY |
000022C0: 23 31 39 34 00 DE 2A BE C2 22 20 4A 53 52 20 36 |#194..*.." JSR 6|
000022D0: 35 34 36 39 20 20 20 3B 53 45 54 4E 41 4D 00 07 |5469 ;SETNAM..|
000022E0: 2B C1 C2 22 20 4A 53 52 20 36 35 34 37 32 20 20 |+.." JSR 65472 |
000022F0: 20 3B 4F 50 45 4E 20 28 4F 50 45 4E 32 2C 38 2C | ;OPEN (OPEN2,8,|
00002300: 32 2C 22 23 32 22 29 00 22 2B C4 C2 22 20 42 43 |2,"#2")."+.." BC|
00002310: 53 20 34 39 38 33 36 20 20 20 3B 46 45 48 4C 45 |S 49836 ;FEHLE|
00002320: 52 3F 00 67 2B C6 C2 22 20 4A 53 52 20 36 35 34 |R?.g+.." JSR 654|
00002330: 38 34 20 20 20 3B 43 4C 52 43 48 4E 20 28 41 4C |84 ;CLRCHN (AL|
00002340: 4C 45 20 41 55 53 47 41 42 45 2D 20 45 49 4E 47 |LE AUSGABE- EING|
00002350: 41 42 45 4B 41 4E 41 45 4C 45 20 52 55 45 43 4B |ABEKANAELE RUECK|
00002360: 53 45 54 5A 45 4E 29 00 77 2B C9 C2 22 20 4C 44 |SETZEN).w+.." LD|
00002370: 58 20 20 20 20 23 32 00 AE 2B CB C2 22 20 4A 53 |X #2..+.." JS|
00002380: 52 20 36 35 34 37 38 20 20 20 3B 43 48 4B 49 4E |R 65478 ;CHKIN|
00002390: 20 28 4B 41 4E 41 4C 20 32 20 41 55 46 20 45 49 | (KANAL 2 AUF EI|
000023A0: 4E 47 41 42 45 20 52 49 43 48 54 45 4E 29 00 F7 |NGABE RICHTEN)..|
000023B0: 2B CE C2 22 20 4A 53 52 20 36 35 34 38 37 20 20 |+.." JSR 65487 |
000023C0: 20 3B 43 48 52 49 4E 20 28 45 49 4E 20 42 59 54 | ;CHRIN (EIN BYT|
000023D0: 45 20 56 4F 4D 20 53 45 52 49 45 4C 4C 45 4E 20 |E VOM SERIELLEN |
000023E0: 42 55 53 20 48 4F 4C 45 4E 2D 50 55 46 46 45 52 |BUS HOLEN-PUFFER|
000023F0: 4E 55 4D 4D 45 52 29 00 11 2C D1 C2 22 20 4A 53 |NUMMER)..,.." JS|
00002400: 52 20 36 35 34 38 34 20 20 20 3B 43 48 52 43 48 |R 65484 ;CHRCH|
00002410: 4E 00 21 2C D4 C2 22 20 4C 44 58 20 20 20 20 23 |N.!,.." LDX #|
00002420: 31 00 5C 2C D6 C2 22 20 4A 53 52 20 36 35 34 38 |1.\,.." JSR 6548|
00002430: 31 20 20 20 3B 43 48 4B 4F 55 54 20 28 4B 41 4E |1 ;CHKOUT (KAN|
00002440: 41 4C 20 31 20 41 4C 53 20 41 55 53 47 41 42 45 |AL 1 ALS AUSGABE|
00002450: 20 44 45 46 49 4E 49 45 52 45 4E 29 00 77 2C D9 | DEFINIEREN).w,.|
00002460: C2 22 20 42 43 53 20 34 39 38 33 36 20 20 20 3B |." BCS 49836 ;|
00002470: 46 45 48 4C 45 52 3F 00 87 2C DB C2 22 20 4C 44 |FEHLER?..,.." LD|
00002480: 59 20 20 20 20 23 30 00 A4 2C DD C2 22 20 4C 44 |Y #0..,.." LD|
00002490: 41 20 34 39 37 39 32 2C 59 20 3B 27 42 2D 50 20 |A 49792,Y ;'B-P |
000024A0: 32 20 30 27 00 D3 2C E0 C2 22 20 4A 53 52 20 36 |2 0'..,.." JSR 6|
000024B0: 35 34 39 30 20 20 20 3B 43 48 52 4F 55 54 20 20 |5490 ;CHROUT |
000024C0: 28 45 49 4E 20 42 59 54 45 20 41 55 53 47 45 42 |(EIN BYTE AUSGEB|
000024D0: 45 4E 29 00 DD 2C E3 C2 22 20 49 4E 59 00 01 2D |EN)..,.." INY..-|
000024E0: E4 C2 22 20 43 50 59 20 20 20 20 23 37 20 20 20 |.." CPY #7 |
000024F0: 3B 53 43 48 41 55 45 4E 20 4F 42 20 41 4C 4C 45 |;SCHAUEN OB ALLE|
00002500: 53 00 11 2D E6 C2 22 20 42 4E 45 20 34 39 38 38 |S..-.." BNE 4988|
00002510: 35 00 2B 2D E8 C2 22 20 4A 53 52 20 36 35 34 38 |5.+-.." JSR 6548|
00002520: 34 20 20 20 3B 43 4C 52 43 48 4E 00 3B 2D EB C2 |4 ;CLRCHN.;-..|
00002530: 22 20 4C 44 58 20 20 20 20 23 32 00 55 2D ED C2 |" LDX #2.U-..|
00002540: 22 20 4A 53 52 20 36 35 34 38 31 20 20 20 3B 43 |" JSR 65481 ;C|
00002550: 48 4B 4F 55 54 00 65 2D F0 C2 22 20 42 43 53 20 |HKOUT.e-.." BCS |
00002560: 34 39 38 33 36 00 AB 2D F2 C2 22 20 50 4C 41 20 |49836..-.." PLA |
00002570: 20 20 20 20 20 20 20 20 3B 44 49 45 20 41 4D 20 | ;DIE AM |
00002580: 41 4E 46 41 4E 47 20 47 45 52 45 54 54 45 20 4C |ANFANG GERETTE L|
00002590: 41 45 4E 47 45 20 44 45 53 20 50 52 47 2E 20 57 |AENGE DES PRG. W|
000025A0: 49 45 44 45 52 20 48 4F 4C 45 4E 00 CE 2D F3 C2 |IEDER HOLEN..-..|
000025B0: 22 20 53 54 41 20 20 20 31 34 33 20 20 20 3B 55 |" STA 143 ;U|
000025C0: 4E 44 20 41 42 53 50 45 49 43 48 45 52 4E 00 DE |ND ABSPEICHERN..|
000025D0: 2D F5 C2 22 20 4C 44 59 20 20 20 20 23 30 00 01 |-.." LDY #0..|
000025E0: 2E F7 C2 22 20 4C 44 41 20 20 20 31 34 33 20 20 |..." LDA 143 |
000025F0: 20 3B 53 43 48 41 55 45 4E 20 57 45 4C 43 48 45 | ;SCHAUEN WELCHE|
00002600: 53 00 11 2E F9 C2 22 20 43 4D 50 20 20 23 32 32 |S....." CMP #22|
00002610: 36 00 21 2E FB C2 22 20 42 4E 45 20 34 39 39 32 |6.!..." BNE 4992|
00002620: 33 00 40 2E FD C2 22 20 4C 44 41 20 34 39 31 35 |3.@..." LDA 4915|
00002630: 32 2C 59 20 3B 46 4F 52 4D 41 54 49 45 52 45 4E |2,Y ;FORMATIEREN|
00002640: 00 50 2E 00 C3 22 20 4A 4D 50 20 34 39 39 34 30 |.P..." JMP 49940|
00002650: 00 60 2E 03 C3 22 20 43 4D 50 20 20 23 32 35 32 |.`..." CMP #252|
00002660: 00 70 2E 05 C3 22 20 42 4E 45 20 34 39 39 33 33 |.p..." BNE 49933|
00002670: 00 8D 2E 07 C3 22 20 4C 44 41 20 34 39 33 37 38 |....." LDA 49378|
00002680: 2C 59 20 3B 53 43 48 52 45 49 42 45 4E 00 9D 2E |,Y ;SCHREIBEN...|
00002690: 0A C3 22 20 4A 4D 50 20 34 39 39 34 30 00 AD 2E |.." JMP 49940...|
000026A0: 0D C3 22 20 43 4D 50 20 20 23 31 35 39 00 BD 2E |.." CMP #159...|
000026B0: 0F C3 22 20 42 4E 45 20 34 39 38 33 36 00 D6 2E |.." BNE 49836...|
000026C0: 11 C3 22 20 4C 44 41 20 34 39 36 33 30 2C 59 20 |.." LDA 49630,Y |
000026D0: 3B 4C 45 53 45 4E 00 07 2F 14 C3 22 20 4A 53 52 |;LESEN../.." JSR|
000026E0: 20 36 35 34 39 30 20 20 20 3B 47 45 53 45 4E 44 | 65490 ;GESEND|
000026F0: 45 54 20 57 45 52 44 45 4E 20 4D 55 53 53 20 28 |ET WERDEN MUSS (|
00002700: 43 48 52 4F 55 54 29 00 22 2F 17 C3 22 20 42 43 |CHROUT)."/.." BC|
00002710: 53 20 34 39 38 33 36 20 20 20 3B 46 45 48 4C 45 |S 49836 ;FEHLE|
00002720: 52 3F 00 2C 2F 19 C3 22 20 49 4E 59 00 68 2F 1A |R?.,/.." INY.h/.|
00002730: C3 22 20 43 50 59 20 20 20 31 34 33 20 20 20 3B |." CPY 143 ;|
00002740: 53 43 48 41 55 45 4E 20 4F 42 20 44 41 53 20 47 |SCHAUEN OB DAS G|
00002750: 41 4E 5A 45 20 50 52 47 2E 20 47 45 53 45 4E 44 |ANZE PRG. GESEND|
00002760: 45 54 20 57 55 52 44 45 00 95 2F 1C C3 22 20 42 |ET WURDE../.." B|
00002770: 4E 45 20 34 39 39 31 31 20 20 20 3B 57 45 4E 4E |NE 49911 ;WENN|
00002780: 20 4E 49 43 48 54 20 4E 41 45 43 48 53 54 45 53 | NICHT NAECHSTES|
00002790: 20 42 59 54 45 00 AF 2F 1E C3 22 20 4A 53 52 20 | BYTE../.." JSR |
000027A0: 36 35 34 38 34 20 20 20 3B 43 4C 52 43 48 4E 00 |65484 ;CLRCHN.|
000027B0: BF 2F 21 C3 22 20 4C 44 41 20 20 20 20 23 32 00 |./!." LDA #2.|
000027C0: F3 2F 23 C3 22 20 4A 4D 50 20 36 35 34 37 35 20 |./#." JMP 65475 |
000027D0: 20 20 3B 43 4C 4F 53 45 20 28 4B 41 4E 41 4C 20 | ;CLOSE (KANAL |
000027E0: 32 20 57 49 52 44 20 47 45 53 43 48 4C 4F 53 53 |2 WIRD GESCHLOSS|
000027F0: 45 4E 29 00 06 30 26 C3 22 2E 42 59 20 27 4D 2D |EN)..0&.".BY 'M-|
00002800: 45 27 20 30 20 35 00 22 30 2B C3 22 2E 42 59 20 |E' 0 5."0+.".BY |
00002810: 27 4D 2D 57 27 20 32 35 34 20 37 20 32 20 33 36 |'M-W' 254 7 2 36|
00002820: 20 30 00 35 30 33 C3 22 2E 42 59 20 27 23 30 27 | 0.503.".BY '#0'|
00002830: 20 27 23 31 27 00 71 30 37 C3 22 20 53 54 41 20 | '#1'.q07." STA |
00002840: 34 39 39 36 31 20 20 20 3B 45 49 4E 53 50 55 4E |49961 ;EINSPUN|
00002850: 47 50 55 4E 4B 54 20 41 42 53 50 45 49 43 48 45 |GPUNKT ABSPEICHE|
00002860: 52 4E 20 55 4E 44 20 4D 2D 45 20 53 45 4E 44 45 |RN UND M-E SENDE|
00002870: 4E 00 8B 30 3A C3 22 20 4A 53 52 20 36 35 34 38 |N..0:." JSR 6548|
00002880: 34 20 20 20 3B 43 4C 52 43 48 4E 00 9B 30 3D C3 |4 ;CLRCHN..0=.|
00002890: 22 20 4C 44 58 20 20 20 20 23 31 00 B5 30 3F C3 |" LDX #1..0?.|
000028A0: 22 20 4A 53 52 20 36 35 34 38 31 20 20 20 3B 43 |" JSR 65481 ;C|
000028B0: 48 4B 4F 55 54 00 C5 30 42 C3 22 20 4C 44 59 20 |HKOUT..0B." LDY |
000028C0: 20 20 20 23 30 00 E2 30 44 C3 22 20 4C 44 41 20 | #0..0D." LDA |
000028D0: 34 39 39 35 38 2C 59 20 3B 27 4D 2D 45 27 20 58 |49958,Y ;'M-E' X|
000028E0: 20 35 00 FC 30 47 C3 22 20 4A 53 52 20 36 35 34 | 5..0G." JSR 654|
000028F0: 39 30 20 20 20 3B 43 48 52 4F 55 54 00 06 31 4A |90 ;CHROUT..1J|
00002900: C3 22 20 49 4E 59 00 16 31 4B C3 22 20 43 50 59 |." INY..1K." CPY|
00002910: 20 20 20 20 23 35 00 26 31 4D C3 22 20 42 4E 45 | #5.&1M." BNE|
00002920: 20 34 39 39 38 38 00 30 31 4F C3 22 20 52 54 53 | 49988.01O." RTS|
00002930: 00 54 31 50 C3 22 20 4C 44 41 20 20 23 31 30 32 |.T1P." LDA #102|
00002940: 20 20 20 3B 2A 2A 53 54 41 52 54 41 44 52 45 53 | ;**STARTADRES|
00002950: 53 45 2A 2A 00 64 31 52 C3 22 20 53 54 41 20 20 |SE**.d1R." STA |
00002960: 20 37 37 36 00 74 31 55 C3 22 20 4C 44 41 20 20 | 776.t1U." LDA |
00002970: 23 31 39 35 00 C1 31 57 C3 22 20 53 54 41 20 20 |#195..1W." STA |
00002980: 20 37 37 37 20 20 20 3B 42 41 53 49 43 2D 42 45 | 777 ;BASIC-BE|
00002990: 46 45 48 4C 20 41 42 41 52 42 45 49 54 55 4E 47 |FEHL ABARBEITUNG|
000029A0: 53 2D 53 43 48 4C 41 55 46 45 20 41 55 46 20 44 |S-SCHLAUFE AUF D|
000029B0: 49 45 20 45 49 47 45 4E 45 20 52 4F 55 54 49 4E |IE EIGENE ROUTIN|
000029C0: 45 00 DB 31 5A C3 22 20 52 54 53 20 20 20 20 20 |E..1Z." RTS |
000029D0: 20 20 20 20 3B 42 49 45 47 45 4E 00 FD 31 5B C3 | ;BIEGEN..1[.|
000029E0: 22 20 4C 44 41 20 20 23 32 32 38 20 20 20 3B 2A |" LDA #228 ;*|
000029F0: 2A 45 4E 44 41 44 52 45 53 53 45 2A 2A 00 0D 32 |*ENDADRESSE**..2|
00002A00: 5D C3 22 20 4C 44 59 20 20 23 31 36 37 00 1D 32 |]." LDY #167..2|
00002A10: 5F C3 22 20 53 54 41 20 20 20 37 37 36 00 67 32 |_." STA 776.g2|
00002A20: 62 C3 22 20 53 54 59 20 20 20 37 37 37 20 20 20 |b." STY 777 |
00002A30: 3B 49 4E 54 45 52 50 52 45 54 45 52 2D 5A 45 49 |;INTERPRETER-ZEI|
00002A40: 47 45 52 20 57 49 45 44 45 52 20 52 49 43 48 54 |GER WIEDER RICHT|
00002A50: 45 4E 2C 55 4D 20 44 49 45 53 45 20 45 52 57 45 |EN,UM DIESE ERWE|
00002A60: 49 54 45 52 55 4E 47 00 88 32 65 C3 22 20 52 54 |ITERUNG..2e." RT|
00002A70: 53 20 20 20 20 20 20 20 20 20 3B 41 55 53 5A 55 |S ;AUSZU|
00002A80: 53 43 48 41 4C 54 45 4E 00 D6 32 66 C3 22 20 4A |SCHALTEN..2f." J|
00002A90: 53 52 20 20 20 31 31 35 20 20 20 3B 2A 2A 45 49 |SR 115 ;**EI|
00002AA0: 4E 53 50 55 4E 47 50 55 4E 4B 54 2A 2A 20 56 4F |NSPUNGPUNKT** VO|
00002AB0: 4D 20 49 4E 54 45 52 50 52 45 54 45 52 20 48 45 |M INTERPRETER HE|
00002AC0: 52 20 28 45 49 4E 20 50 52 47 2E 42 59 54 45 20 |R (EIN PRG.BYTE |
00002AD0: 48 4F 4C 45 4E 29 00 0B 33 69 C3 22 20 43 4D 50 |HOLEN)..3i." CMP|
00002AE0: 20 20 20 23 39 31 20 20 20 3B 53 43 48 41 55 45 | #91 ;SCHAUE|
00002AF0: 4E 20 4F 42 20 45 53 20 44 41 53 20 27 5B 27 2D |N OB ES DAS '['-|
00002B00: 5A 45 49 43 48 45 4E 20 49 53 54 00 32 33 6B C3 |ZEICHEN IST.23k.|
00002B10: 22 20 42 45 51 20 35 30 30 33 32 20 20 20 3B 57 |" BEQ 50032 ;W|
00002B20: 45 4E 4E 20 4A 41 20 44 41 4E 4E 20 57 45 49 54 |ENN JA DANN WEIT|
00002B30: 45 52 00 6A 33 6D C3 22 20 4A 4D 50 20 35 30 36 |ER.j3m." JMP 506|
00002B40: 34 34 20 20 20 3B 57 45 4E 4E 20 4E 49 43 48 54 |44 ;WENN NICHT|
00002B50: 20 44 41 4E 4E 20 5A 55 52 20 4F 52 49 47 49 4E | DANN ZUR ORIGIN|
00002B60: 41 4C 2D 52 4F 55 54 49 4E 45 00 98 33 70 C3 22 |AL-ROUTINE..3p."|
00002B70: 20 4A 53 52 20 20 20 31 31 35 20 20 20 3B 4E 41 | JSR 115 ;NA|
00002B80: 45 43 48 53 54 45 53 20 42 41 53 49 43 2D 42 59 |ECHSTES BASIC-BY|
00002B90: 54 45 20 48 4F 4C 45 4E 00 CC 33 73 C3 22 20 43 |TE HOLEN..3s." C|
00002BA0: 4D 50 20 20 23 31 36 32 20 20 20 3B 53 43 48 41 |MP #162 ;SCHA|
00002BB0: 55 45 4E 20 4F 42 20 45 53 20 44 45 52 20 27 4E |UEN OB ES DER 'N|
00002BC0: 45 57 27 2D 43 4F 44 45 20 49 53 54 00 04 34 75 |EW'-CODE IST..4u|
00002BD0: C3 22 20 42 4E 45 20 35 30 30 38 34 20 20 20 3B |." BNE 50084 ;|
00002BE0: 57 45 4E 4E 20 4E 49 43 48 54 20 44 41 4E 4E 20 |WENN NICHT DANN |
00002BF0: 57 45 49 54 45 52 2D 4B 4F 4E 54 52 4F 4C 4C 49 |WEITER-KONTROLLI|
00002C00: 45 52 45 4E 00 29 34 77 C3 22 20 4A 53 52 20 20 |EREN.)4w." JSR |
00002C10: 20 31 31 35 20 20 20 3B 4E 41 45 43 48 53 54 45 | 115 ;NAECHSTE|
00002C20: 53 20 5A 45 49 43 48 45 4E 00 4F 34 7A C3 22 20 |S ZEICHEN.O4z." |
00002C30: 43 4D 50 20 20 20 23 39 33 20 20 20 3B 55 4E 44 |CMP #93 ;UND|
00002C40: 20 53 43 48 41 55 45 4E 20 4F 42 20 27 5D 27 00 | SCHAUEN OB ']'.|
00002C50: 5F 34 7C C3 22 20 42 45 51 20 35 30 30 34 39 00 |_4|." BEQ 50049.|
00002C60: 89 34 7E C3 22 20 4A 4D 50 20 34 34 38 30 38 20 |.4~." JMP 44808 |
00002C70: 20 20 3B 57 45 4E 4E 20 4E 45 49 4E 20 53 59 4E | ;WENN NEIN SYN|
00002C80: 54 41 58 2D 45 52 52 4F 52 00 B2 34 81 C3 22 20 |TAX-ERROR..4.." |
00002C90: 4A 53 52 20 34 39 38 30 30 20 20 20 3B 46 4F 52 |JSR 49800 ;FOR|
00002CA0: 4D 41 54 49 45 52 2D 50 52 47 2E 20 53 45 4E 44 |MATIER-PRG. SEND|
00002CB0: 45 4E 00 C2 34 84 C3 22 20 4C 44 41 20 20 23 31 |EN..4.." LDA #1|
00002CC0: 39 33 00 E1 34 86 C3 22 20 4A 53 52 20 34 39 39 |93..4.." JSR 499|
00002CD0: 37 35 20 20 20 3B 55 4E 44 20 53 54 41 52 54 45 |75 ;UND STARTE|
00002CE0: 4E 00 1F 35 89 C3 22 20 4A 53 52 20 36 35 34 38 |N..5.." JSR 6548|
00002CF0: 34 20 20 20 3B 43 4C 52 43 48 4E 20 28 57 41 52 |4 ;CLRCHN (WAR|
00002D00: 54 45 4E 20 44 41 53 20 44 49 45 20 52 4F 55 54 |TEN DAS DIE ROUT|
00002D10: 49 4E 45 20 46 45 52 54 49 47 20 49 53 54 29 00 |INE FERTIG IST).|
00002D20: 2F 35 8C C3 22 20 4C 44 58 20 20 20 20 23 31 00 |/5.." LDX #1.|
00002D30: 49 35 8E C3 22 20 4A 53 52 20 36 35 34 38 31 20 |I5.." JSR 65481 |
00002D40: 20 20 3B 43 48 4B 4F 55 54 00 8C 35 91 C3 22 20 | ;CHKOUT..5.." |
00002D50: 4C 44 41 20 20 20 23 37 33 20 20 20 3B 55 4E 44 |LDA #73 ;UND|
00002D60: 20 45 49 4E 20 27 49 27 20 53 45 4E 44 45 4E 20 | EIN 'I' SENDEN |
00002D70: 28 49 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 |(INITIALISIERUNG|
00002D80: 20 44 45 52 20 46 4C 4F 50 50 59 29 00 A6 35 93 | DER FLOPPY)..5.|
00002D90: C3 22 20 4A 53 52 20 36 35 34 39 30 20 20 20 3B |." JSR 65490 ;|
00002DA0: 43 48 52 4F 55 54 00 C0 35 96 C3 22 20 4A 53 52 |CHROUT..5.." JSR|
00002DB0: 20 36 35 34 38 34 20 20 20 3B 43 4C 52 43 48 4E | 65484 ;CLRCHN|
00002DC0: 00 D0 35 99 C3 22 20 4C 44 41 20 20 20 20 23 31 |..5.." LDA #1|
00002DD0: 00 E9 35 9B C3 22 20 4A 53 52 20 36 35 34 37 35 |..5.." JSR 65475|
00002DE0: 20 20 20 3B 43 4C 4F 53 45 00 11 36 9E C3 22 20 | ;CLOSE..6.." |
00002DF0: 4A 53 52 20 20 20 31 31 35 20 20 20 3B 4E 41 45 |JSR 115 ;NAE|
00002E00: 43 48 53 54 45 53 20 42 59 54 45 20 48 4F 4C 45 |CHSTES BYTE HOLE|
00002E10: 4E 00 44 36 A1 C3 22 20 4A 4D 50 20 34 32 39 32 |N.D6.." JMP 4292|
00002E20: 36 20 20 20 3B 55 4E 44 20 5A 55 52 55 45 43 4B |6 ;UND ZURUECK|
00002E30: 20 5A 55 52 20 4F 52 49 47 49 4E 41 4C 52 4F 55 | ZUR ORIGINALROU|
00002E40: 54 49 4E 45 00 79 36 A4 C3 22 20 43 4D 50 20 20 |TINE.y6.." CMP |
00002E50: 23 31 34 38 20 20 20 3B 53 43 48 41 55 45 4E 20 |#148 ;SCHAUEN |
00002E60: 4F 42 20 45 53 20 44 45 52 20 27 53 41 56 45 27 |OB ES DER 'SAVE'|
00002E70: 2D 43 4F 44 45 20 49 53 54 00 89 36 A6 C3 22 20 |-CODE IST..6.." |
00002E80: 42 45 51 20 35 30 30 39 31 00 BB 36 A8 C3 22 20 |BEQ 50091..6.." |
00002E90: 4A 4D 50 20 35 30 34 35 35 20 20 20 3B 57 45 4E |JMP 50455 ;WEN|
00002EA0: 4E 20 4E 49 43 48 54 20 57 45 49 54 45 52 4B 4F |N NICHT WEITERKO|
00002EB0: 4E 54 52 4F 4C 4C 49 45 52 45 4E 00 F6 36 AB C3 |NTROLLIEREN..6..|
00002EC0: 22 20 4A 53 52 20 20 20 31 31 35 20 20 20 3B 4E |" JSR 115 ;N|
00002ED0: 41 45 43 48 53 54 45 53 20 5A 45 49 43 48 45 4E |AECHSTES ZEICHEN|
00002EE0: 20 4E 41 43 48 20 44 45 4D 20 27 53 41 56 45 27 | NACH DEM 'SAVE'|
00002EF0: 20 48 4F 4C 45 4E 00 27 37 AE C3 22 20 4A 53 52 | HOLEN.'7.." JSR|
00002F00: 20 34 34 34 32 36 20 20 20 3B 44 49 45 20 56 41 | 44426 ;DIE VA|
00002F10: 52 49 41 42 4C 45 20 28 5A 41 48 4C 29 20 41 55 |RIABLE (ZAHL) AU|
00002F20: 53 57 45 52 54 45 4E 00 53 37 B1 C3 22 20 4A 53 |SWERTEN.S7.." JS|
00002F30: 52 20 34 37 30 39 35 20 20 20 3B 49 4E 20 5A 57 |R 47095 ;IN ZW|
00002F40: 45 49 42 59 54 45 2D 46 4F 52 4D 20 57 41 4E 44 |EIBYTE-FORM WAND|
00002F50: 45 4C 4E 00 76 37 B4 C3 22 20 53 54 59 20 20 20 |ELN.v7.." STY |
00002F60: 32 35 31 20 20 20 3B 55 4E 44 20 41 42 53 50 45 |251 ;UND ABSPE|
00002F70: 49 43 48 45 52 4E 00 86 37 B6 C3 22 20 53 54 41 |ICHERN..7.." STA|
00002F80: 20 20 20 32 35 32 00 AB 37 B8 C3 22 20 4A 53 52 | 252..7.." JSR|
00002F90: 20 34 34 37 39 37 20 20 20 3B 50 52 55 45 46 45 | 44797 ;PRUEFE|
00002FA0: 4E 20 41 55 46 20 4B 4F 4D 4D 41 00 BB 37 BB C3 |N AUF KOMMA..7..|
00002FB0: 22 20 4A 53 52 20 34 34 34 32 36 00 E2 37 BE C3 |" JSR 44426..7..|
00002FC0: 22 20 4A 53 52 20 34 37 30 39 35 20 20 20 3B 5A |" JSR 47095 ;Z|
00002FD0: 57 45 49 42 59 54 45 2D 5A 41 48 4C 20 48 4F 4C |WEIBYTE-ZAHL HOL|
00002FE0: 45 4E 00 F2 37 C1 C3 22 20 53 54 59 20 20 20 32 |EN..7.." STY 2|
00002FF0: 35 33 00 22 38 C3 C3 22 20 53 54 41 20 20 20 32 |53."8.." STA 2|
00003000: 35 34 20 20 20 3B 55 4E 44 20 41 4C 53 20 45 4E |54 ;UND ALS EN|
00003010: 44 41 44 52 45 53 53 45 20 53 50 45 49 43 48 45 |DADRESSE SPEICHE|
00003020: 52 4E 00 47 38 C5 C3 22 20 4A 53 52 20 34 34 37 |RN.G8.." JSR 447|
00003030: 39 37 20 20 20 3B 50 52 55 45 46 45 4E 20 41 55 |97 ;PRUEFEN AU|
00003040: 46 20 4B 4F 4D 4D 41 00 57 38 C8 C3 22 20 4C 44 |F KOMMA.W8.." LD|
00003050: 41 20 20 20 32 35 33 00 61 38 CA C3 22 20 53 45 |A 253.a8.." SE|
00003060: 43 00 71 38 CB C3 22 20 53 42 43 20 20 20 32 35 |C.q8.." SBC 25|
00003070: 31 00 A8 38 CD C3 22 20 53 54 41 20 20 20 31 33 |1..8.." STA 13|
00003080: 39 20 20 20 20 3B 45 4E 44 41 44 52 45 53 53 45 |9 ;ENDADRESSE|
00003090: 2D 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 20 |-ANFANGSADRESSE |
000030A0: 49 4E 20 28 31 33 39 29 00 B8 38 CF C3 22 20 4C |IN (139)..8.." L|
000030B0: 44 41 20 20 20 32 35 34 00 C8 38 D1 C3 22 20 53 |DA 254..8.." S|
000030C0: 42 43 20 20 20 32 35 32 00 E8 38 D3 C3 22 20 53 |BC 252..8.." S|
000030D0: 54 41 20 20 20 31 34 30 20 20 20 20 3B 41 42 53 |TA 140 ;ABS|
000030E0: 50 45 49 43 48 45 52 4E 00 F8 38 D5 C3 22 20 42 |PEICHERN..8.." B|
000030F0: 43 53 20 35 30 31 34 30 00 43 39 D7 C3 22 20 4C |CS 50140.C9.." L|
00003100: 44 58 20 20 20 23 32 30 20 20 20 20 3B 57 45 4E |DX #20 ;WEN|
00003110: 4E 20 45 4E 44 41 44 52 45 53 53 45 20 3C 20 41 |N ENDADRESSE < A|
00003120: 4E 46 41 4E 47 53 41 44 52 45 53 53 45 20 44 41 |NFANGSADRESSE DA|
00003130: 4E 4E 20 44 49 56 49 53 49 4F 4E 20 42 59 20 5A |NN DIVISION BY Z|
00003140: 45 52 4F 00 65 39 D9 C3 22 20 4A 4D 50 20 34 32 |ERO.e9.." JMP 42|
00003150: 30 34 32 20 20 20 20 3B 45 52 52 4F 52 2D 41 55 |042 ;ERROR-AU|
00003160: 53 47 41 42 45 00 75 39 DC C3 22 20 4C 44 58 20 |SGABE.u9.." LDX |
00003170: 20 20 20 23 30 00 85 39 DE C3 22 20 4C 44 41 20 | #0..9.." LDA |
00003180: 20 20 31 33 39 00 8F 39 E0 C3 22 20 53 45 43 00 | 139..9.." SEC.|
00003190: 9F 39 E1 C3 22 20 53 42 43 20 20 23 32 35 34 00 |.9.." SBC #254.|
000031A0: AF 39 E3 C3 22 20 53 54 41 20 20 20 31 33 39 00 |.9.." STA 139.|
000031B0: BF 39 E5 C3 22 20 4C 44 41 20 20 20 31 34 30 00 |.9.." LDA 140.|
000031C0: CF 39 E7 C3 22 20 53 42 43 20 20 20 20 23 30 00 |.9.." SBC #0.|
000031D0: 10 3A E9 C3 22 20 53 54 41 20 20 20 31 34 30 20 |.:.." STA 140 |
000031E0: 20 20 20 3B 44 49 46 46 45 52 45 4E 5A 20 44 55 | ;DIFFERENZ DU|
000031F0: 52 43 48 20 32 35 34 20 44 49 56 49 44 49 45 52 |RCH 254 DIVIDIER|
00003200: 45 4E 20 28 42 4C 4F 43 4B 4C 41 45 4E 47 45 29 |EN (BLOCKLAENGE)|
00003210: 00 30 3A EB C3 22 20 42 43 43 20 35 30 31 36 30 |.0:.." BCC 50160|
00003220: 20 20 20 20 3B 57 45 4E 4E 20 46 45 52 54 49 47 | ;WENN FERTIG|
00003230: 00 3A 3A ED C3 22 20 49 4E 58 00 60 3A EE C3 22 |.::.." INX.`:.."|
00003240: 20 42 4E 45 20 35 30 31 34 32 20 20 20 20 3B 57 | BNE 50142 ;W|
00003250: 45 49 54 45 52 20 44 49 56 49 44 49 45 52 45 4E |EITER DIVIDIEREN|
00003260: 00 A4 3A F0 C3 22 20 43 50 58 20 20 20 23 37 39 |..:.." CPX #79|
00003270: 20 20 20 20 3B 53 43 48 41 55 45 4E 20 4F 42 20 | ;SCHAUEN OB |
00003280: 44 41 53 20 46 49 4C 45 20 4C 41 45 4E 47 45 52 |DAS FILE LAENGER|
00003290: 20 41 4C 53 20 37 38 20 42 4C 4F 45 43 4B 45 20 | ALS 78 BLOECKE |
000032A0: 57 49 52 44 00 B4 3A F2 C3 22 20 42 43 43 20 35 |WIRD..:.." BCC 5|
000032B0: 30 31 36 39 00 E4 3A F4 C3 22 20 4C 44 58 20 20 |0169..:.." LDX |
000032C0: 20 23 31 35 20 20 20 20 3B 57 45 4E 4E 20 4A 41 | #15 ;WENN JA|
000032D0: 20 44 41 4E 4E 20 4F 56 45 52 46 4C 4F 57 20 45 | DANN OVERFLOW E|
000032E0: 52 52 4F 52 00 F4 3A F6 C3 22 20 4A 4D 50 20 34 |RROR..:.." JMP 4|
000032F0: 32 30 34 32 00 FE 3A F9 C3 22 20 54 58 41 00 25 |2042..:.." TXA.%|
00003300: 3B FA C3 22 20 50 48 41 20 20 20 20 20 20 20 20 |;.." PHA |
00003310: 20 20 3B 42 4C 4F 43 4B 41 4E 5A 41 48 4C 20 52 | ;BLOCKANZAHL R|
00003320: 45 54 54 45 4E 00 69 3B FB C3 22 20 4A 53 52 20 |ETTEN.i;.." JSR |
00003330: 34 37 30 30 36 20 20 20 20 3B 44 45 4E 20 41 4E |47006 ;DEN AN|
00003340: 46 41 4E 47 53 42 4C 4F 43 4B 20 56 4F 4D 20 42 |FANGSBLOCK VOM B|
00003350: 41 53 49 43 20 49 4E 53 20 58 2D 52 45 47 49 53 |ASIC INS X-REGIS|
00003360: 54 45 52 20 48 4F 4C 45 4E 00 73 3B FE C3 22 20 |TER HOLEN.s;.." |
00003370: 54 58 41 00 92 3B FF C3 22 20 50 48 41 20 20 20 |TXA..;.." PHA |
00003380: 20 20 20 20 20 20 20 3B 55 4E 44 20 52 45 54 54 | ;UND RETT|
00003390: 45 4E 00 BE 3B 00 C4 22 20 4A 53 52 20 20 20 31 |EN..;.." JSR 1|
000033A0: 32 31 20 20 20 20 3B 45 49 4E 20 42 41 53 49 43 |21 ;EIN BASIC|
000033B0: 2D 5A 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 E5 |-ZEICHEN HOLEN..|
000033C0: 3B 03 C4 22 20 43 4D 50 20 20 20 23 39 33 20 20 |;.." CMP #93 |
000033D0: 20 20 3B 55 4E 44 20 53 43 48 41 55 45 4E 20 4F | ;UND SCHAUEN O|
000033E0: 42 20 27 5D 27 00 F5 3B 05 C4 22 20 42 45 51 20 |B ']'..;.." BEQ |
000033F0: 35 30 31 38 36 00 25 3C 07 C4 22 20 4A 4D 50 20 |50186.%<.." JMP |
00003400: 34 34 38 30 38 20 20 20 20 3B 57 45 4E 4E 20 4E |44808 ;WENN N|
00003410: 45 49 4E 20 44 41 4E 4E 20 53 59 4E 54 41 58 20 |EIN DANN SYNTAX |
00003420: 45 52 52 4F 52 00 6F 3C 0A C4 22 20 4A 53 52 20 |ERROR.o<.." JSR |
00003430: 20 20 31 31 35 20 20 20 20 3B 4E 41 45 43 48 53 | 115 ;NAECHS|
00003440: 54 45 53 20 5A 45 49 43 48 45 4E 20 48 4F 4C 45 |TES ZEICHEN HOLE|
00003450: 4E 20 28 56 4F 52 42 45 52 45 49 54 55 4E 47 20 |N (VORBEREITUNG |
00003460: 46 55 45 52 20 44 45 4E 20 52 55 45 43 4B 2D 00 |FUER DEN RUECK-.|
00003470: B6 3C 0D C4 22 20 50 4C 41 20 20 20 20 20 20 20 |.<.." PLA |
00003480: 20 20 20 3B 2D 53 50 52 55 4E 47 20 5A 55 4D 20 | ;-SPRUNG ZUM |
00003490: 49 4E 54 45 52 50 52 45 54 45 52 29 20 41 4E 46 |INTERPRETER) ANF|
000034A0: 41 4E 47 53 42 4C 4F 43 4B 20 57 49 45 44 45 52 |ANGSBLOCK WIEDER|
000034B0: 20 48 4F 4C 45 4E 00 DA 3C 0E C4 22 20 53 54 41 | HOLEN..<.." STA|
000034C0: 20 20 20 31 33 39 20 20 20 20 3B 55 4E 44 20 41 | 139 ;UND A|
000034D0: 42 53 50 45 49 43 48 45 52 4E 00 00 3D 10 C4 22 |BSPEICHERN..=.."|
000034E0: 20 50 4C 41 20 20 20 20 20 20 20 20 20 20 3B 46 | PLA ;F|
000034F0: 49 4C 45 2D 4C 41 45 4E 47 45 20 48 4F 4C 45 4E |ILE-LAENGE HOLEN|
00003500: 00 0A 3D 11 C4 22 20 43 4C 43 00 32 3D 12 C4 22 |..=.." CLC.2=.."|
00003510: 20 41 44 43 20 20 20 31 33 39 20 20 20 20 3B 41 | ADC 139 ;A|
00003520: 4E 46 41 4E 47 20 44 41 5A 55 41 44 44 49 45 52 |NFANG DAZUADDIER|
00003530: 45 4E 00 6F 3D 14 C4 22 20 43 4D 50 20 20 20 23 |EN.o=.." CMP #|
00003540: 37 39 20 20 20 20 3B 55 4E 44 20 53 43 48 41 55 |79 ;UND SCHAU|
00003550: 45 4E 20 4F 42 20 44 45 52 20 4C 45 54 5A 54 45 |EN OB DER LETZTE|
00003560: 20 42 4C 4F 43 4B 20 3E 20 37 38 20 49 53 54 00 | BLOCK > 78 IST.|
00003570: 7F 3D 16 C4 22 20 42 43 43 20 35 30 32 30 35 00 |.=.." BCC 50205.|
00003580: B7 3D 18 C4 22 20 4C 44 58 20 20 20 23 31 34 20 |.=.." LDX #14 |
00003590: 20 20 20 3B 57 45 4E 4E 20 4A 41 20 44 41 4E 4E | ;WENN JA DANN|
000035A0: 20 49 4C 4C 45 47 41 4C 20 51 55 41 4E 54 49 54 | ILLEGAL QUANTIT|
000035B0: 59 20 45 52 52 4F 52 00 D4 3D 1A C4 22 20 4A 4D |Y ERROR..=.." JM|
000035C0: 50 20 34 32 30 34 32 20 20 20 20 3B 41 55 53 47 |P 42042 ;AUSG|
000035D0: 45 42 45 4E 00 11 3E 1D C4 22 20 4A 53 52 20 34 |EBEN..>.." JSR 4|
000035E0: 39 38 30 33 20 20 20 20 3B 44 41 53 20 46 4C 4F |9803 ;DAS FLO|
000035F0: 50 50 59 2D 50 52 4F 47 52 41 4D 4D 20 5A 55 4D |PPY-PROGRAMM ZUM|
00003600: 20 53 43 48 52 45 49 42 45 4E 20 53 45 4E 44 45 | SCHREIBEN SENDE|
00003610: 4E 00 21 3E 20 C4 22 20 4C 44 41 20 20 20 20 23 |N.!> ." LDA #|
00003620: 32 00 31 3E 22 C4 22 20 4C 44 58 20 34 39 37 39 |2.1>"." LDX 4979|
00003630: 39 00 3B 3E 25 C4 22 20 54 41 59 00 56 3E 26 C4 |9.;>%." TAY.V>&.|
00003640: 22 20 4A 53 52 20 36 35 34 36 36 20 20 20 20 3B |" JSR 65466 ;|
00003650: 53 45 54 4C 46 53 00 66 3E 29 C4 22 20 4C 44 41 |SETLFS.f>)." LDA|
00003660: 20 20 20 20 23 32 00 76 3E 2B C4 22 20 4C 44 58 | #2.v>+." LDX|
00003670: 20 20 20 23 35 33 00 86 3E 2D C4 22 20 4C 44 59 | #53..>-." LDY|
00003680: 20 20 23 31 39 35 00 A1 3E 2F C4 22 20 4A 53 52 | #195..>/." JSR|
00003690: 20 36 35 34 36 39 20 20 20 20 3B 53 45 54 4E 41 | 65469 ;SETNA|
000036A0: 4D 00 CB 3E 32 C4 22 20 4A 53 52 20 36 35 34 37 |M..>2." JSR 6547|
000036B0: 32 20 20 20 20 3B 4F 50 45 4E 20 28 4F 50 45 4E |2 ;OPEN (OPEN|
000036C0: 32 2C 38 2C 32 2C 22 23 31 22 29 00 FC 3E 35 C4 |2,8,2,"#1")..>5.|
000036D0: 22 20 42 43 43 20 35 30 33 30 35 20 20 20 20 3B |" BCC 50305 ;|
000036E0: 57 45 4E 4E 20 4B 45 49 4E 20 46 45 48 4C 45 52 |WENN KEIN FEHLER|
000036F0: 20 44 41 4E 4E 20 57 45 49 54 45 52 00 17 3F 37 | DANN WEITER..?7|
00003700: C4 22 20 4A 4D 50 20 35 37 35 39 33 20 20 20 20 |." JMP 57593 |
00003710: 3B 46 45 48 4C 45 52 00 5A 3F 3A C4 22 20 4A 53 |;FEHLER.Z?:." JS|
00003720: 52 20 36 35 34 38 34 20 20 20 20 3B 43 4C 52 43 |R 65484 ;CLRC|
00003730: 48 4E 20 20 20 55 4E 54 45 52 52 4F 55 54 49 4E |HN UNTERROUTIN|
00003740: 45 20 5A 55 4D 20 53 45 4E 44 45 4E 20 56 4F 4E |E ZUM SENDEN VON|
00003750: 20 27 42 2D 50 20 32 20 30 27 00 6A 3F 3D C4 22 | 'B-P 2 0'.j?=."|
00003760: 20 4C 44 58 20 20 20 20 23 31 00 85 3F 3F C4 22 | LDX #1..??."|
00003770: 20 4A 53 52 20 36 35 34 38 31 20 20 20 20 3B 43 | JSR 65481 ;C|
00003780: 48 4B 4F 55 54 00 95 3F 42 C4 22 20 4C 44 59 20 |HKOUT..?B." LDY |
00003790: 20 20 20 23 30 00 B3 3F 44 C4 22 20 4C 44 41 20 | #0..?D." LDA |
000037A0: 34 39 37 39 32 2C 59 20 20 3B 27 42 2D 50 20 32 |49792,Y ;'B-P 2|
000037B0: 20 30 27 00 CE 3F 47 C4 22 20 4A 53 52 20 36 35 | 0'..?G." JSR 65|
000037C0: 34 39 30 20 20 20 20 3B 53 45 4E 44 45 4E 00 DE |490 ;SENDEN..|
000037D0: 3F 4A C4 22 20 42 43 53 20 35 30 32 33 31 00 E8 |?J." BCS 50231..|
000037E0: 3F 4C C4 22 20 49 4E 59 00 F8 3F 4D C4 22 20 43 |?L." INY..?M." C|
000037F0: 50 59 20 20 20 20 23 37 00 08 40 4F C4 22 20 42 |PY #7..@O." B|
00003800: 4E 45 20 35 30 32 34 34 00 23 40 51 C4 22 20 4A |NE 50244.#@Q." J|
00003810: 4D 50 20 36 35 34 38 34 20 20 20 20 3B 43 4C 52 |MP 65484 ;CLR|
00003820: 43 48 4E 00 71 40 54 C4 22 20 4C 44 41 20 20 20 |CHN.q@T." LDA |
00003830: 31 33 39 20 20 20 20 3B 52 4F 55 54 49 4E 45 20 |139 ;ROUTINE |
00003840: 5A 55 4D 20 53 45 4E 44 45 4E 20 56 4F 4E 20 53 |ZUM SENDEN VON S|
00003850: 50 55 52 20 55 4E 44 20 53 45 4B 54 4F 52 28 27 |PUR UND SEKTOR('|
00003860: 4D 2D 57 27 20 32 35 34 20 37 20 32 20 58 20 59 |M-W' 254 7 2 X Y|
00003870: 29 00 91 40 56 C4 22 20 4C 53 52 20 20 20 20 20 |)..@V." LSR |
00003880: 20 20 20 20 20 3B 42 4C 4F 43 4B 20 4C 41 44 45 | ;BLOCK LADE|
00003890: 4E 00 B9 40 57 C4 22 20 4C 53 52 20 20 20 20 20 |N..@W." LSR |
000038A0: 20 20 20 20 20 3B 55 4E 44 20 44 55 52 43 48 20 | ;UND DURCH |
000038B0: 31 36 20 54 45 49 4C 45 4E 00 C3 40 58 C4 22 20 |16 TEILEN..@X." |
000038C0: 4C 53 52 00 CD 40 59 C4 22 20 4C 53 52 00 D7 40 |LSR..@Y." LSR..@|
000038D0: 5A C4 22 20 43 4C 43 00 E7 40 5B C4 22 20 41 44 |Z." CLC..@[." AD|
000038E0: 43 20 20 20 23 33 36 00 0D 41 5D C4 22 20 53 54 |C #36..A]." ST|
000038F0: 41 20 34 39 39 36 39 20 20 20 20 3B 2B 33 36 3D |A 49969 ;+36=|
00003900: 41 4B 54 55 45 4C 4C 45 20 53 50 55 52 00 1D 41 |AKTUELLE SPUR..A|
00003910: 60 C4 22 20 4C 44 41 20 20 20 31 33 39 00 2D 41 |`." LDA 139.-A|
00003920: 62 C4 22 20 41 4E 44 20 20 20 23 31 35 00 61 41 |b." AND #15.aA|
00003930: 64 C4 22 20 53 54 41 20 34 39 39 37 30 20 20 20 |d." STA 49970 |
00003940: 20 3B 42 4C 4F 43 4B 20 41 4E 44 20 31 35 20 3D | ;BLOCK AND 15 =|
00003950: 20 41 4B 54 55 45 4C 4C 45 52 20 53 45 4B 54 4F | AKTUELLER SEKTO|
00003960: 52 00 7C 41 67 C4 22 20 4A 53 52 20 36 35 34 38 |R.|Ag." JSR 6548|
00003970: 34 20 20 20 20 3B 43 4C 52 43 48 4E 00 8C 41 6A |4 ;CLRCHN..Aj|
00003980: C4 22 20 4C 44 58 20 20 20 20 23 31 00 A7 41 6C |." LDX #1..Al|
00003990: C4 22 20 4A 53 52 20 36 35 34 38 31 20 20 20 20 |." JSR 65481 |
000039A0: 3B 43 48 4B 4F 55 54 00 B7 41 6F C4 22 20 4C 44 |;CHKOUT..Ao." LD|
000039B0: 59 20 20 20 20 23 30 00 DD 41 71 C4 22 20 4C 44 |Y #0..Aq." LD|
000039C0: 41 20 34 39 39 36 33 2C 59 20 20 3B 27 4D 2D 57 |A 49963,Y ;'M-W|
000039D0: 27 20 32 35 34 20 37 20 32 20 58 20 59 00 F8 41 |' 254 7 2 X Y..A|
000039E0: 74 C4 22 20 4A 53 52 20 36 35 34 39 30 20 20 20 |t." JSR 65490 |
000039F0: 20 3B 53 45 4E 44 45 4E 00 08 42 77 C4 22 20 42 | ;SENDEN..Bw." B|
00003A00: 43 53 20 35 30 32 33 31 00 12 42 79 C4 22 20 49 |CS 50231..By." I|
00003A10: 4E 59 00 22 42 7A C4 22 20 43 50 59 20 20 20 20 |NY."Bz." CPY |
00003A20: 23 38 00 32 42 7C C4 22 20 42 4E 45 20 35 30 32 |#8.2B|." BNE 502|
00003A30: 38 39 00 63 42 7E C4 22 20 4A 4D 50 20 36 35 34 |89.cB~." JMP 654|
00003A40: 38 34 20 20 20 20 3B 43 4C 52 43 48 4E 20 55 4E |84 ;CLRCHN UN|
00003A50: 44 20 45 4E 44 45 20 55 4E 54 45 52 52 4F 55 54 |D ENDE UNTERROUT|
00003A60: 49 4E 45 00 7E 42 81 C4 22 20 4A 53 52 20 36 35 |INE.~B.." JSR 65|
00003A70: 34 38 34 20 20 20 20 3B 43 4C 52 43 48 4E 00 8E |484 ;CLRCHN..|
00003A80: 42 84 C4 22 20 4C 44 58 20 20 20 20 23 32 00 A8 |B.." LDX #2..|
00003A90: 42 86 C4 22 20 4A 53 52 20 36 35 34 37 38 20 20 |B.." JSR 65478 |
00003AA0: 20 20 3B 43 48 4B 49 4E 00 C2 42 89 C4 22 20 4A | ;CHKIN..B.." J|
00003AB0: 53 52 20 36 35 34 38 37 20 20 20 20 3B 43 48 52 |SR 65487 ;CHR|
00003AC0: 49 4E 00 DD 42 8C C4 22 20 4A 53 52 20 36 35 34 |IN..B.." JSR 654|
00003AD0: 36 33 20 20 20 20 3B 53 54 41 54 55 53 00 ED 42 |63 ;STATUS..B|
00003AE0: 8F C4 22 20 42 45 51 20 35 30 33 32 34 00 17 43 |.." BEQ 50324..C|
00003AF0: 91 C4 22 20 4A 4D 50 20 34 32 30 38 32 20 20 20 |.." JMP 42082 |
00003B00: 20 3B 57 45 4E 4E 20 3C 3E 30 20 44 41 4E 4E 20 | ;WENN <>0 DANN |
00003B10: 27 45 52 52 4F 52 27 00 4D 43 94 C4 22 20 4A 53 |'ERROR'.MC.." JS|
00003B20: 52 20 35 30 32 36 30 20 20 20 20 3B 41 4B 54 55 |R 50260 ;AKTU|
00003B30: 45 4C 4C 45 4E 20 54 52 41 43 4B 20 55 4E 44 20 |ELLEN TRACK UND |
00003B40: 53 45 4B 54 4F 52 20 53 45 4E 44 45 4E 00 72 43 |SEKTOR SENDEN.rC|
00003B50: 97 C4 22 20 4A 53 52 20 35 30 32 33 34 20 20 20 |.." JSR 50234 |
00003B60: 20 3B 27 42 2D 50 20 32 20 30 27 20 53 45 4E 44 | ;'B-P 2 0' SEND|
00003B70: 45 4E 00 82 43 9A C4 22 20 4C 44 58 20 20 20 20 |EN..C.." LDX |
00003B80: 23 32 00 9D 43 9C C4 22 20 4A 53 52 20 36 35 34 |#2..C.." JSR 654|
00003B90: 38 31 20 20 20 20 3B 43 48 52 4F 55 54 00 AD 43 |81 ;CHROUT..C|
00003BA0: 9F C4 22 20 4C 44 41 20 20 20 32 35 33 00 B7 43 |.." LDA 253..C|
00003BB0: A1 C4 22 20 53 45 43 00 C7 43 A2 C4 22 20 53 42 |.." SEC..C.." SB|
00003BC0: 43 20 20 20 32 35 31 00 D7 43 A4 C4 22 20 53 54 |C 251..C.." ST|
00003BD0: 41 20 20 20 31 34 30 00 E7 43 A6 C4 22 20 4C 44 |A 140..C.." LD|
00003BE0: 41 20 20 20 32 35 34 00 29 44 A8 C4 22 20 53 42 |A 254.)D.." SB|
00003BF0: 43 20 20 20 32 35 32 20 20 20 20 3B 53 43 48 41 |C 252 ;SCHA|
00003C00: 55 45 4E 20 4F 42 20 44 41 53 20 44 45 52 20 4C |UEN OB DAS DER L|
00003C10: 45 54 5A 54 45 20 42 4F 4C 43 4B 20 44 45 53 20 |ETZTE BOLCK DES |
00003C20: 46 49 4C 45 53 20 49 53 54 00 47 44 AA C4 22 20 |FILES IST.GD.." |
00003C30: 42 4E 45 20 35 30 33 35 34 20 20 20 20 3B 57 45 |BNE 50354 ;WE|
00003C40: 4E 4E 20 4E 45 49 4E 00 57 44 AC C4 22 20 4C 44 |NN NEIN.WD.." LD|
00003C50: 59 20 20 20 31 34 30 00 67 44 AE C4 22 20 43 50 |Y 140.gD.." CP|
00003C60: 59 20 20 23 32 35 34 00 83 44 B0 C4 22 20 42 43 |Y #254..D.." BC|
00003C70: 43 20 35 30 33 39 39 20 20 20 20 3B 57 45 4E 4E |C 50399 ;WENN|
00003C80: 20 4A 41 00 CD 44 B2 C4 22 20 4C 44 41 20 20 23 | JA..D.." LDA #|
00003C90: 32 35 35 20 20 3B 57 45 4E 4E 20 45 54 57 41 53 |255 ;WENN ETWAS|
00003CA0: 20 41 4E 44 45 52 45 53 20 41 4C 53 20 32 35 35 | ANDERES ALS 255|
00003CB0: 20 47 45 53 45 4E 44 45 54 20 57 49 52 44 20 53 | GESENDET WIRD S|
00003CC0: 4F 20 49 53 54 20 44 41 53 20 44 41 53 00 17 45 |O IST DAS DAS..E|
00003CD0: B4 C4 22 20 4A 53 52 20 36 35 34 39 30 20 20 20 |.." JSR 65490 |
00003CE0: 20 3B 4B 45 4E 4E 5A 45 49 43 48 45 4E 20 44 41 | ;KENNZEICHEN DA|
00003CF0: 53 20 44 45 52 20 42 45 54 52 45 46 46 45 4E 44 |S DER BETREFFEND|
00003D00: 45 20 42 4C 4F 43 4B 20 44 45 52 20 4C 45 54 5A |E BLOCK DER LETZ|
00003D10: 54 45 20 49 53 54 2E 00 27 45 B7 C4 22 20 4C 44 |TE IST..'E.." LD|
00003D20: 59 20 20 20 20 23 30 00 3A 45 B9 C4 22 20 4C 44 |Y #0.:E.." LD|
00003D30: 41 20 20 28 32 35 31 29 2C 59 00 70 45 BB C4 22 |A (251),Y.pE.."|
00003D40: 20 4A 53 52 20 36 35 34 39 30 20 20 20 20 3B 43 | JSR 65490 ;C|
00003D50: 48 52 4F 55 54 20 32 35 34 20 44 41 54 45 4E 42 |HROUT 254 DATENB|
00003D60: 59 54 45 53 20 55 45 42 45 52 54 52 41 47 45 4E |YTES UEBERTRAGEN|
00003D70: 00 80 45 BE C4 22 20 42 43 53 20 35 30 32 39 35 |..E.." BCS 50295|
00003D80: 00 8A 45 C0 C4 22 20 49 4E 59 00 9A 45 C1 C4 22 |..E.." INY..E.."|
00003D90: 20 43 50 59 20 20 23 32 35 34 00 AA 45 C3 C4 22 | CPY #254..E.."|
00003DA0: 20 42 4E 45 20 35 30 33 36 31 00 C5 45 C5 C4 22 | BNE 50361..E.."|
00003DB0: 20 4A 53 52 20 36 35 34 38 34 20 20 20 20 3B 43 | JSR 65484 ;C|
00003DC0: 4C 52 43 48 4E 00 D5 45 C8 C4 22 20 4C 44 41 20 |LRCHN..E.." LDA |
00003DD0: 20 23 32 32 32 00 00 46 CA C4 22 20 4A 53 52 20 | #222..F.." JSR |
00003DE0: 34 39 39 37 35 20 20 20 20 3B 46 4C 4F 50 50 59 |49975 ;FLOPPY|
00003DF0: 2D 52 4F 55 54 49 4E 45 20 53 54 41 52 54 45 4E |-ROUTINE STARTEN|
00003E00: 00 0A 46 CD C4 22 20 4E 4F 50 00 14 46 CE C4 22 |..F.." NOP..F.."|
00003E10: 20 4E 4F 50 00 43 46 CF C4 22 20 49 4E 43 20 20 | NOP.CF.." INC |
00003E20: 20 31 33 39 20 20 20 20 3B 5A 45 49 47 45 52 20 | 139 ;ZEIGER |
00003E30: 41 55 46 20 4E 41 45 43 48 53 54 45 4E 20 42 4C |AUF NAECHSTEN BL|
00003E40: 4F 43 4B 00 53 46 D1 C4 22 20 4C 44 41 20 20 20 |OCK.SF.." LDA |
00003E50: 32 35 31 00 5D 46 D3 C4 22 20 43 4C 43 00 6D 46 |251.]F.." CLC.mF|
00003E60: D4 C4 22 20 41 44 43 20 20 23 32 35 34 00 99 46 |.." ADC #254..F|
00003E70: D6 C4 22 20 53 54 41 20 20 20 32 35 31 20 20 20 |.." STA 251 |
00003E80: 20 3B 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 | ;ANFANGSADRESSE|
00003E90: 20 45 52 48 4F 45 48 45 4E 00 A9 46 D8 C4 22 20 | ERHOEHEN..F.." |
00003EA0: 42 43 43 20 35 30 33 39 36 00 B9 46 DA C4 22 20 |BCC 50396..F.." |
00003EB0: 49 4E 43 20 20 20 32 35 32 00 E4 46 DC C4 22 20 |INC 252..F.." |
00003EC0: 4A 4D 50 20 35 30 33 32 34 20 20 20 20 3B 4E 41 |JMP 50324 ;NA|
00003ED0: 45 43 48 53 54 45 4E 20 42 4C 4F 43 4B 20 53 45 |ECHSTEN BLOCK SE|
00003EE0: 4E 44 45 4E 00 22 47 DF C4 22 20 49 4E 59 20 20 |NDEN."G.." INY |
00003EF0: 20 20 20 20 20 20 20 20 3B 41 44 52 45 53 53 45 | ;ADRESSE|
00003F00: 20 44 45 53 20 4C 45 54 5A 54 45 4E 20 47 55 4C | DES LETZTEN GUL|
00003F10: 54 49 47 45 4E 20 42 59 54 45 53 20 53 45 4E 44 |TIGEN BYTES SEND|
00003F20: 45 4E 00 2C 47 E0 C4 22 20 54 59 41 00 47 47 E1 |EN.,G.." TYA.GG.|
00003F30: C4 22 20 4A 53 52 20 36 35 34 39 30 20 20 20 20 |." JSR 65490 |
00003F40: 3B 43 48 52 4F 55 54 00 6A 47 E4 C4 22 20 53 54 |;CHROUT.jG.." ST|
00003F50: 59 20 20 20 31 34 31 20 20 20 20 3B 41 44 52 45 |Y 141 ;ADRE|
00003F60: 53 53 45 20 52 45 54 54 45 4E 00 7A 47 E6 C4 22 |SSE RETTEN.zG.."|
00003F70: 20 4C 44 59 20 20 20 20 23 30 00 8D 47 E8 C4 22 | LDY #0..G.."|
00003F80: 20 4C 44 41 20 20 28 32 35 31 29 2C 59 00 CA 47 | LDA (251),Y..G|
00003F90: EA C4 22 20 4A 53 52 20 36 35 34 39 30 20 20 20 |.." JSR 65490 |
00003FA0: 20 3B 43 48 52 4F 55 54 20 47 55 45 4C 54 49 47 | ;CHROUT GUELTIG|
00003FB0: 45 4E 20 54 45 49 4C 20 44 45 53 20 42 4C 4F 43 |EN TEIL DES BLOC|
00003FC0: 4B 45 53 20 53 45 4E 44 45 4E 00 D4 47 ED C4 22 |KES SENDEN..G.."|
00003FD0: 20 49 4E 59 00 E4 47 EE C4 22 20 43 50 59 20 20 | INY..G.." CPY |
00003FE0: 20 31 34 31 00 F4 47 F0 C4 22 20 42 4E 45 20 35 | 141..G.." BNE 5|
00003FF0: 30 34 30 38 00 0F 48 F2 C4 22 20 4A 53 52 20 36 |0408..H.." JSR 6|
00004000: 35 34 38 34 20 20 20 20 3B 43 4C 52 43 48 4E 00 |5484 ;CLRCHN.|
00004010: 1F 48 F5 C4 22 20 4C 44 41 20 20 23 32 32 32 00 |.H.." LDA #222.|
00004020: 4A 48 F7 C4 22 20 4A 53 52 20 34 39 39 37 35 20 |JH.." JSR 49975 |
00004030: 20 20 20 3B 46 4C 4F 50 50 59 2D 52 4F 55 54 49 | ;FLOPPY-ROUTI|
00004040: 4E 45 20 53 54 41 52 54 45 4E 00 65 48 FA C4 22 |NE STARTEN.eH.."|
00004050: 20 4A 53 52 20 36 35 34 38 34 20 20 20 20 3B 43 | JSR 65484 ;C|
00004060: 4C 52 43 48 4E 00 75 48 FD C4 22 20 4C 44 41 20 |LRCHN.uH.." LDA |
00004070: 20 20 20 23 32 00 90 48 FF C4 22 20 4A 53 52 20 | #2..H.." JSR |
00004080: 36 35 34 37 35 20 20 20 20 3B 43 4C 4F 53 45 32 |65475 ;CLOSE2|
00004090: 00 A0 48 02 C5 22 20 4C 44 58 20 20 20 20 23 31 |..H.." LDX #1|
000040A0: 00 B0 48 04 C5 22 20 4A 53 52 20 36 35 34 38 31 |..H.." JSR 65481|
000040B0: 00 C0 48 07 C5 22 20 4C 44 41 20 20 20 23 37 33 |..H.." LDA #73|
000040C0: 00 E0 48 09 C5 22 20 4A 53 52 20 36 35 34 39 30 |..H.." JSR 65490|
000040D0: 20 20 20 20 3B 50 52 49 4E 54 23 31 2C 22 49 22 | ;PRINT#1,"I"|
000040E0: 00 F0 48 0C C5 22 20 4A 53 52 20 36 35 34 38 34 |..H.." JSR 65484|
000040F0: 00 00 49 0F C5 22 20 4C 44 41 20 20 20 20 23 31 |..I.." LDA #1|
00004100: 00 1B 49 11 C5 22 20 4A 53 52 20 36 35 34 37 35 |..I.." JSR 65475|
00004110: 20 20 20 20 3B 43 4C 4F 53 45 31 00 4F 49 14 C5 | ;CLOSE1.OI..|
00004120: 22 20 4A 4D 50 20 34 32 39 32 36 20 20 20 20 3B |" JMP 42926 ;|
00004130: 52 45 54 4F 55 52 20 5A 55 52 20 49 4E 54 45 52 |RETOUR ZUR INTER|
00004140: 50 52 45 54 45 52 2D 53 43 48 4C 45 49 46 45 00 |PRETER-SCHLEIFE.|
00004150: 85 49 17 C5 22 20 43 4D 50 20 20 23 31 34 37 20 |.I.." CMP #147 |
00004160: 20 20 20 3B 53 43 48 41 55 45 4E 20 4F 42 20 45 | ;SCHAUEN OB E|
00004170: 53 20 44 45 52 20 27 4C 4F 41 44 27 2D 43 4F 44 |S DER 'LOAD'-COD|
00004180: 45 20 49 53 54 00 95 49 19 C5 22 20 42 45 51 20 |E IST..I.." BEQ |
00004190: 35 30 34 36 32 00 BA 49 1B C5 22 20 4A 4D 50 20 |50462..I.." JMP |
000041A0: 35 30 36 35 30 20 20 20 20 3B 4E 41 45 43 48 53 |50650 ;NAECHS|
000041B0: 54 45 52 20 42 45 46 45 48 4C 00 CA 49 1E C5 22 |TER BEFEHL..I.."|
000041C0: 20 4A 53 52 20 20 20 31 31 35 00 DA 49 21 C5 22 | JSR 115..I!."|
000041D0: 20 4A 53 52 20 34 34 34 32 36 00 EA 49 24 C5 22 | JSR 44426..I$."|
000041E0: 20 4A 53 52 20 34 37 30 39 35 00 FA 49 27 C5 22 | JSR 47095..I'."|
000041F0: 20 53 54 59 20 20 20 32 35 31 00 22 4A 29 C5 22 | STY 251."J)."|
00004200: 20 53 54 41 20 20 20 32 35 32 20 20 20 20 3B 41 | STA 252 ;A|
00004210: 4E 46 41 4E 47 53 41 44 52 45 53 45 20 48 4F 4C |NFANGSADRESE HOL|
00004220: 45 4E 00 32 4A 2B C5 22 20 4A 53 52 20 34 34 37 |EN.2J+." JSR 447|
00004230: 39 37 00 59 4A 2E C5 22 20 4A 53 52 20 34 37 30 |97.YJ.." JSR 470|
00004240: 30 36 20 20 20 20 3B 41 4E 46 41 4E 47 53 42 4C |06 ;ANFANGSBL|
00004250: 4F 43 4B 20 48 4F 4C 45 4E 00 7F 4A 31 C5 22 20 |OCK HOLEN..J1." |
00004260: 43 50 58 20 20 20 23 37 39 20 20 20 20 3B 57 45 |CPX #79 ;WE|
00004270: 4E 4E 20 42 4C 4F 43 4B 4E 52 2E 20 3E 37 38 00 |NN BLOCKNR. >78.|
00004280: 8F 4A 33 C5 22 20 42 43 43 20 35 30 34 39 30 00 |.J3." BCC 50490.|
00004290: C8 4A 35 C5 22 20 4C 44 58 20 20 20 23 31 34 20 |.J5." LDX #14 |
000042A0: 20 20 20 3B 44 41 4E 4E 20 49 4C 4C 45 47 41 4C | ;DANN ILLEGAL|
000042B0: 20 51 55 41 4E 54 49 54 59 20 45 52 52 4F 52 20 | QUANTITY ERROR |
000042C0: 41 55 53 47 45 42 45 4E 00 D8 4A 37 C5 22 20 4A |AUSGEBEN..J7." J|
000042D0: 4D 50 20 34 32 30 34 32 00 00 4B 3A C5 22 20 53 |MP 42042..K:." S|
000042E0: 54 58 20 20 20 31 33 39 20 20 20 20 3B 41 4E 46 |TX 139 ;ANF|
000042F0: 41 4E 47 53 42 4C 4F 43 4B 20 52 45 54 54 45 4E |ANGSBLOCK RETTEN|
00004300: 00 10 4B 3C C5 22 20 4A 53 52 20 20 20 31 32 31 |..K<." JSR 121|
00004310: 00 36 4B 3F C5 22 20 4A 53 52 20 35 30 37 30 33 |.6K?." JSR 50703|
00004320: 20 20 20 20 3B 4B 4F 4E 54 52 4F 4C 4C 45 20 41 | ;KONTROLLE A|
00004330: 55 46 20 27 5D 27 00 40 4B 42 C5 22 20 4E 4F 50 |UF ']'.@KB." NOP|
00004340: 00 50 4B 43 C5 22 20 4A 53 52 20 20 20 31 31 35 |.PKC." JSR 115|
00004350: 00 81 4B 46 C5 22 20 4A 53 52 20 34 39 38 30 36 |..KF." JSR 49806|
00004360: 20 20 20 20 3B 46 4C 4F 50 50 59 2D 50 52 47 2E | ;FLOPPY-PRG.|
00004370: 20 5A 55 4D 20 4C 45 53 45 4E 20 53 45 4E 44 45 | ZUM LESEN SENDE|
00004380: 4E 00 91 4B 49 C5 22 20 4C 44 41 20 20 20 20 23 |N..KI." LDA #|
00004390: 32 00 A1 4B 4B C5 22 20 4C 44 58 20 34 39 37 39 |2..KK." LDX 4979|
000043A0: 39 00 AB 4B 4E C5 22 20 54 41 59 00 C6 4B 4F C5 |9..KN." TAY..KO.|
000043B0: 22 20 4A 53 52 20 36 35 34 36 36 20 20 20 20 3B |" JSR 65466 ;|
000043C0: 53 45 54 4C 46 53 00 D6 4B 52 C5 22 20 4C 44 41 |SETLFS..KR." LDA|
000043D0: 20 20 20 20 23 32 00 E6 4B 54 C5 22 20 4C 44 58 | #2..KT." LDX|
000043E0: 20 20 20 23 35 31 00 F6 4B 56 C5 22 20 4C 44 59 | #51..KV." LDY|
000043F0: 20 20 23 31 39 35 00 11 4C 58 C5 22 20 4A 53 52 | #195..LX." JSR|
00004400: 20 36 35 34 36 39 20 20 20 20 3B 53 45 54 4E 41 | 65469 ;SETNA|
00004410: 4D 00 3B 4C 5B C5 22 20 4A 53 52 20 36 35 34 37 |M.;L[." JSR 6547|
00004420: 32 20 20 20 20 3B 4F 50 45 4E 20 28 4F 50 45 4E |2 ;OPEN (OPEN|
00004430: 32 2C 38 2C 32 2C 22 23 30 22 29 00 4B 4C 5E C5 |2,8,2,"#0").KL^.|
00004440: 22 20 42 43 43 20 35 30 35 33 31 00 66 4C 60 C5 |" BCC 50531.fL`.|
00004450: 22 20 4A 4D 50 20 35 37 35 39 33 20 20 20 20 3B |" JMP 57593 ;|
00004460: 46 45 48 4C 45 52 00 81 4C 63 C5 22 20 4A 53 52 |FEHLER..Lc." JSR|
00004470: 20 36 35 34 38 34 20 20 20 20 3B 43 4C 52 43 48 | 65484 ;CLRCH|
00004480: 4E 00 91 4C 66 C5 22 20 4C 44 58 20 20 20 20 23 |N..Lf." LDX #|
00004490: 32 00 AB 4C 68 C5 22 20 4A 53 52 20 36 35 34 37 |2..Lh." JSR 6547|
000044A0: 38 20 20 20 20 3B 43 48 4B 49 4E 00 C5 4C 6B C5 |8 ;CHKIN..Lk.|
000044B0: 22 20 4A 53 52 20 36 35 34 38 37 20 20 20 20 3B |" JSR 65487 ;|
000044C0: 43 48 52 49 4E 00 E0 4C 6E C5 22 20 4A 53 52 20 |CHRIN..Ln." JSR |
000044D0: 36 35 34 36 33 20 20 20 20 3B 53 54 41 54 55 53 |65463 ;STATUS|
000044E0: 00 F0 4C 71 C5 22 20 42 45 51 20 35 30 35 35 30 |..Lq." BEQ 50550|
000044F0: 00 1E 4D 73 C5 22 20 4A 4D 50 20 34 32 30 38 32 |..Ms." JMP 42082|
00004500: 20 20 20 20 3B 57 45 4E 4E 20 53 54 20 3C 3E 20 | ;WENN ST <> |
00004510: 30 20 44 41 4E 4E 20 27 45 52 52 4F 52 27 00 49 |0 DANN 'ERROR'.I|
00004520: 4D 76 C5 22 20 4A 53 52 20 35 30 32 36 30 20 20 |Mv." JSR 50260 |
00004530: 20 20 3B 53 50 55 52 20 55 4E 44 20 53 45 4B 54 | ;SPUR UND SEKT|
00004540: 4F 52 20 53 45 4E 44 45 4E 00 59 4D 79 C5 22 20 |OR SENDEN.YMy." |
00004550: 4C 44 41 20 20 23 31 34 35 00 91 4D 7B C5 22 20 |LDA #145..M{." |
00004560: 4A 53 52 20 34 39 39 37 35 20 20 20 20 3B 42 4C |JSR 49975 ;BL|
00004570: 4F 43 4B 20 4C 45 53 45 4E 20 28 46 4C 4F 50 50 |OCK LESEN (FLOPP|
00004580: 59 2D 52 4F 55 54 49 4E 45 20 53 54 41 52 54 45 |Y-ROUTINE STARTE|
00004590: 4E 00 B6 4D 7E C5 22 20 4A 53 52 20 35 30 32 33 |N..M~." JSR 5023|
000045A0: 34 20 20 20 20 3B 27 42 2D 50 20 32 20 30 27 20 |4 ;'B-P 2 0' |
000045B0: 53 45 4E 44 45 4E 00 C6 4D 81 C5 22 20 4C 44 58 |SENDEN..M.." LDX|
000045C0: 20 20 20 20 23 32 00 E0 4D 83 C5 22 20 4A 53 52 | #2..M.." JSR|
000045D0: 20 36 35 34 37 38 20 20 20 20 3B 43 48 4B 49 4E | 65478 ;CHKIN|
000045E0: 00 FA 4D 86 C5 22 20 4A 53 52 20 36 35 34 38 37 |..M.." JSR 65487|
000045F0: 20 20 20 20 3B 43 48 52 49 4E 00 3B 4E 89 C5 22 | ;CHRIN.;N.."|
00004600: 20 53 54 41 20 20 20 31 34 31 20 20 20 20 3B 31 | STA 141 ;1|
00004610: 2E 20 42 59 54 45 20 41 4C 53 20 41 4E 5A 41 48 |. BYTE ALS ANZAH|
00004620: 4C 20 47 55 45 4C 54 49 47 45 52 20 42 59 54 45 |L GUELTIGER BYTE|
00004630: 53 20 2B 31 20 52 45 54 54 45 4E 00 4B 4E 8B C5 |S +1 RETTEN.KN..|
00004640: 22 20 4C 44 59 20 20 20 20 23 30 00 5B 4E 8D C5 |" LDY #0.[N..|
00004650: 22 20 4A 53 52 20 36 35 34 38 37 00 77 4E 90 C5 |" JSR 65487.wN..|
00004660: 22 20 42 43 53 20 35 30 35 32 38 20 20 20 20 3B |" BCS 50528 ;|
00004670: 46 45 48 4C 45 52 3F 00 AA 4E 92 C5 22 20 53 54 |FEHLER?..N.." ST|
00004680: 41 20 20 28 32 35 31 29 2C 59 20 3B 41 4C 4C 45 |A (251),Y ;ALLE|
00004690: 20 42 59 54 45 53 20 48 4F 4C 45 4E 20 55 4E 44 | BYTES HOLEN UND|
000046A0: 20 53 50 45 49 43 48 45 52 4E 00 B4 4E 94 C5 22 | SPEICHERN..N.."|
000046B0: 20 49 4E 59 00 E8 4E 95 C5 22 20 43 50 59 20 20 | INY..N.." CPY |
000046C0: 20 31 34 31 20 20 20 20 3B 53 43 48 41 55 45 4E | 141 ;SCHAUEN|
000046D0: 20 4F 42 20 41 4C 4C 45 20 47 55 45 4C 54 49 47 | OB ALLE GUELTIG|
000046E0: 45 4E 20 42 59 54 45 53 00 10 4F 97 C5 22 20 42 |EN BYTES..O.." B|
000046F0: 4E 45 20 35 30 35 37 33 20 20 20 20 3B 57 45 4E |NE 50573 ;WEN|
00004700: 4E 20 4E 45 49 4E 20 4E 41 45 43 48 53 54 45 53 |N NEIN NAECHSTES|
00004710: 00 2B 4F 99 C5 22 20 4A 53 52 20 36 35 34 38 34 |.+O.." JSR 65484|
00004720: 20 20 20 20 3B 43 4C 52 43 48 4E 00 3B 4F 9C C5 | ;CLRCHN.;O..|
00004730: 22 20 4C 44 41 20 20 20 31 34 31 00 73 4F 9E C5 |" LDA 141.sO..|
00004740: 22 20 43 4D 50 20 20 20 23 32 35 35 20 20 20 3B |" CMP #255 ;|
00004750: 53 43 48 41 55 45 4E 20 4F 42 20 41 4C 4C 45 20 |SCHAUEN OB ALLE |
00004760: 42 59 54 45 53 20 47 55 45 4C 54 49 47 20 57 41 |BYTES GUELTIG WA|
00004770: 52 45 4E 00 AE 4F A0 C5 22 20 42 4E 45 20 20 35 |REN..O.." BNE 5|
00004780: 30 36 31 38 20 20 20 3B 57 45 4E 4E 20 4E 45 49 |0618 ;WENN NEI|
00004790: 4E 20 44 41 4E 4E 20 57 41 52 20 45 53 20 44 45 |N DANN WAR ES DE|
000047A0: 52 20 4C 45 54 5A 54 45 20 42 4C 4F 43 4B 00 CA |R LETZTE BLOCK..|
000047B0: 4F A2 C5 22 20 4C 44 41 20 20 20 20 32 35 31 20 |O.." LDA 251 |
000047C0: 20 20 3B 57 45 4E 4E 20 4A 41 00 D4 4F A4 C5 22 | ;WENN JA..O.."|
000047D0: 20 43 4C 43 00 E5 4F A5 C5 22 20 41 44 43 20 20 | CLC..O.." ADC |
000047E0: 20 23 32 35 34 00 0E 50 A7 C5 22 20 53 54 41 20 | #254..P.." STA |
000047F0: 20 20 20 32 35 31 20 20 20 3B 41 44 52 45 53 53 | 251 ;ADRESS|
00004800: 45 20 3D 41 44 52 45 53 53 45 2B 32 35 34 00 1F |E =ADRESSE+254..|
00004810: 50 A9 C5 22 20 42 43 43 20 20 35 30 36 30 35 00 |P.." BCC 50605.|
00004820: 30 50 AB C5 22 20 49 4E 43 20 20 20 20 32 35 32 |0P.." INC 252|
00004830: 00 62 50 AD C5 22 20 49 4E 43 20 20 20 20 31 33 |.bP.." INC 13|
00004840: 39 20 20 20 3B 42 4C 4F 43 4B 2D 5A 45 49 47 45 |9 ;BLOCK-ZEIGE|
00004850: 52 20 55 4D 20 45 49 4E 53 20 45 52 48 4F 45 48 |R UM EINS ERHOEH|
00004860: 45 4E 00 73 50 AF C5 22 20 4C 44 41 20 20 20 20 |EN.sP.." LDA |
00004870: 31 33 39 00 A7 50 B1 C5 22 20 43 4D 50 20 20 20 |139..P.." CMP |
00004880: 20 23 37 39 20 20 20 3B 57 45 4E 4E 20 42 4C 4F | #79 ;WENN BLO|
00004890: 43 4B 2D 5A 45 49 47 45 52 20 5A 55 20 48 4F 43 |CK-ZEIGER ZU HOC|
000048A0: 48 20 28 3E 37 38 29 00 DC 50 B3 C5 22 20 42 43 |H (>78)..P.." BC|
000048B0: 43 20 20 35 30 35 35 30 20 20 20 3B 57 45 4E 4E |C 50550 ;WENN|
000048C0: 20 4E 49 43 48 54 20 4E 41 45 43 48 53 54 45 4E | NICHT NAECHSTEN|
000048D0: 20 42 4C 4F 43 4B 20 48 4F 4C 45 4E 00 0C 51 B5 | BLOCK HOLEN..Q.|
000048E0: C5 22 20 4C 44 58 20 20 20 20 23 31 34 20 20 20 |." LDX #14 |
000048F0: 3B 44 41 4E 4E 20 49 4C 4C 45 47 41 4C 20 51 55 |;DANN ILLEGAL QU|
00004900: 41 4E 54 49 54 59 20 45 52 52 4F 52 00 29 51 B7 |ANTITY ERROR.)Q.|
00004910: C5 22 20 4A 4D 50 20 20 34 32 30 34 32 20 20 20 |." JMP 42042 |
00004920: 3B 41 55 53 47 45 42 45 4E 00 3A 51 BA C5 22 20 |;AUSGEBEN.:Q.." |
00004930: 4C 44 41 20 20 20 20 20 23 32 00 55 51 BC C5 22 |LDA #2.UQ.."|
00004940: 20 4A 53 52 20 20 36 35 34 37 35 20 20 20 3B 43 | JSR 65475 ;C|
00004950: 4C 4F 53 45 32 00 66 51 BF C5 22 20 4C 44 58 20 |LOSE2.fQ.." LDX |
00004960: 20 20 20 20 23 31 00 81 51 C1 C5 22 20 4A 53 52 | #1..Q.." JSR|
00004970: 20 20 36 35 34 38 31 20 20 20 3B 43 48 4B 4F 55 | 65481 ;CHKOU|
00004980: 54 00 92 51 C4 C5 22 20 4C 44 41 20 20 20 20 23 |T..Q.." LDA #|
00004990: 37 33 00 B2 51 C6 C5 22 20 4A 53 52 20 20 36 35 |73..Q.." JSR 65|
000049A0: 34 39 30 20 20 20 3B 50 52 49 4E 54 23 31 2C 22 |490 ;PRINT#1,"|
000049B0: 49 22 00 CD 51 C9 C5 22 20 4A 53 52 20 20 36 35 |I"..Q.." JSR 65|
000049C0: 34 38 34 20 20 20 3B 43 4C 52 43 48 4E 00 DE 51 |484 ;CLRCHN..Q|
000049D0: CC C5 22 20 4C 44 41 20 20 20 20 20 23 31 00 F9 |.." LDA #1..|
000049E0: 51 CE C5 22 20 4A 53 52 20 20 36 35 34 37 35 20 |Q.." JSR 65475 |
000049F0: 20 20 3B 43 4C 4F 53 45 31 00 2E 52 D1 C5 22 20 | ;CLOSE1..R.." |
00004A00: 4A 4D 50 20 20 34 32 39 32 36 20 20 20 3B 5A 55 |JMP 42926 ;ZU|
00004A10: 52 55 45 43 4B 20 5A 55 52 20 49 4E 54 45 52 50 |RUECK ZUR INTERP|
00004A20: 52 45 54 45 52 2D 53 43 48 4C 41 55 46 45 00 3E |RETER-SCHLAUFE.>|
00004A30: 52 D4 C5 22 20 4A 53 52 20 20 20 31 32 31 00 73 |R.." JSR 121.s|
00004A40: 52 D7 C5 22 20 4A 4D 50 20 34 32 39 38 33 20 20 |R.." JMP 42983 |
00004A50: 20 20 3B 45 49 4E 53 50 52 55 4E 47 20 46 55 45 | ;EINSPRUNG FUE|
00004A60: 52 20 42 45 46 45 48 4C 2D 41 42 41 52 42 45 49 |R BEFEHL-ABARBEI|
00004A70: 54 45 4E 00 96 52 DA C5 22 20 43 4D 50 20 20 23 |TEN..R.." CMP #|
00004A80: 31 36 31 20 20 20 20 3B 53 43 48 41 55 45 4E 20 |161 ;SCHAUEN |
00004A90: 4F 42 20 47 45 54 00 A6 52 DC C5 22 20 42 45 51 |OB GET..R.." BEQ|
00004AA0: 20 35 30 36 35 37 00 CC 52 DE C5 22 20 4A 4D 50 | 50657..R.." JMP|
00004AB0: 20 35 30 38 33 39 20 20 20 20 3B 57 45 4E 4E 20 | 50839 ;WENN |
00004AC0: 4E 49 43 48 54 20 57 45 49 54 45 52 00 DC 52 E1 |NICHT WEITER..R.|
00004AD0: C5 22 20 4A 53 52 20 20 20 31 31 35 00 0B 53 E4 |." JSR 115..S.|
00004AE0: C5 22 20 4A 53 52 20 34 35 31 39 35 20 20 20 20 |." JSR 45195 |
00004AF0: 3B 53 54 52 49 4E 47 5A 45 49 47 45 52 2D 41 44 |;STRINGZEIGER-AD|
00004B00: 52 45 53 53 45 20 48 4F 4C 45 4E 00 1B 53 E7 C5 |RESSE HOLEN..S..|
00004B10: 22 20 53 54 41 20 20 20 20 37 33 00 3D 53 E9 C5 |" STA 73.=S..|
00004B20: 22 20 53 54 59 20 20 20 20 37 34 20 20 20 20 3B |" STY 74 ;|
00004B30: 55 4E 44 20 53 50 45 49 43 48 45 52 4E 00 58 53 |UND SPEICHERN.XS|
00004B40: EB C5 22 20 4C 44 41 20 20 23 32 35 35 20 20 20 |.." LDA #255 |
00004B50: 20 3B 4C 41 45 4E 47 45 00 90 53 ED C5 22 20 4A | ;LAENGE..S.." J|
00004B60: 53 52 20 34 36 31 39 37 20 20 20 20 3B 50 4C 41 |SR 46197 ;PLA|
00004B70: 54 5A 20 49 4D 20 53 54 52 49 4E 47 2D 42 45 52 |TZ IM STRING-BER|
00004B80: 45 49 43 48 20 52 45 53 45 52 56 49 45 52 45 4E |EICH RESERVIEREN|
00004B90: 00 A0 53 F0 C5 22 20 4C 44 59 20 20 20 20 23 32 |..S.." LDY #2|
00004BA0: 00 C1 53 F2 C5 22 20 4C 44 41 20 20 20 20 39 37 |..S.." LDA 97|
00004BB0: 2C 59 20 20 3B 4E 45 55 45 20 41 44 52 45 53 53 |,Y ;NEUE ADRESS|
00004BC0: 45 00 EF 53 F5 C5 22 20 53 54 41 20 20 20 28 37 |E..S.." STA (7|
00004BD0: 33 29 2C 59 20 3B 42 45 49 4D 20 53 54 52 49 4E |3),Y ;BEIM STRIN|
00004BE0: 47 5A 45 49 47 45 52 20 52 49 43 48 54 45 4E 00 |GZEIGER RICHTEN.|
00004BF0: 0E 54 F7 C5 22 20 50 48 41 20 20 20 20 20 20 20 |.T.." PHA |
00004C00: 20 20 20 3B 55 4E 44 20 52 45 54 54 45 4E 00 18 | ;UND RETTEN..|
00004C10: 54 F8 C5 22 20 44 45 59 00 28 54 F9 C5 22 20 42 |T.." DEY.(T.." B|
00004C20: 50 4C 20 35 30 36 37 34 00 4E 54 FB C5 22 20 4A |PL 50674.NT.." J|
00004C30: 53 52 20 34 34 37 39 37 20 20 20 20 3B 50 52 55 |SR 44797 ;PRU|
00004C40: 45 46 45 4E 20 41 55 46 20 4B 4F 4D 4D 41 00 72 |EFEN AUF KOMMA.r|
00004C50: 54 FE C5 22 20 4A 53 52 20 34 37 30 30 36 20 20 |T.." JSR 47006 |
00004C60: 20 20 3B 42 4C 4F 43 4B 2D 4E 52 2E 20 48 4F 4C | ;BLOCK-NR. HOL|
00004C70: 45 4E 00 82 54 01 C6 22 20 43 50 58 20 20 20 23 |EN..T.." CPX #|
00004C80: 37 39 00 92 54 03 C6 22 20 42 43 43 20 35 30 36 |79..T.." BCC 506|
00004C90: 39 38 00 CA 54 05 C6 22 20 4C 44 58 20 20 20 23 |98..T.." LDX #|
00004CA0: 31 34 20 20 20 20 3B 57 45 4E 4E 20 5A 55 20 47 |14 ;WENN ZU G|
00004CB0: 52 4F 53 53 20 44 41 4E 4E 20 49 4C 4C 45 47 41 |ROSS DANN ILLEGA|
00004CC0: 4C 20 51 55 41 4E 54 49 54 59 00 E7 54 07 C6 22 |L QUANTITY..T.."|
00004CD0: 20 4A 4D 50 20 34 32 30 34 32 20 20 20 20 3B 41 | JMP 42042 ;A|
00004CE0: 55 53 47 45 42 45 4E 00 0B 55 0A C6 22 20 53 54 |USGEBEN..U.." ST|
00004CF0: 58 20 20 20 31 33 39 20 20 20 20 3B 42 4C 4F 43 |X 139 ;BLOC|
00004D00: 4B 20 53 50 45 49 43 48 45 52 4E 00 1B 55 0C C6 |K SPEICHERN..U..|
00004D10: 22 20 4A 4D 50 20 35 30 37 31 31 00 55 55 0F C6 |" JMP 50711.UU..|
00004D20: 22 20 43 4D 50 20 20 20 23 39 33 20 20 20 20 3B |" CMP #93 ;|
00004D30: 45 49 4E 53 43 48 55 42 20 56 4F 4E 20 45 49 4E |EINSCHUB VON EIN|
00004D40: 45 52 20 56 4F 52 48 45 52 49 47 45 4E 20 52 4F |ER VORHERIGEN RO|
00004D50: 55 54 49 4E 45 00 7B 55 11 C6 22 20 42 45 51 20 |UTINE.{U.." BEQ |
00004D60: 35 30 37 31 30 20 20 20 20 3B 28 50 52 55 45 46 |50710 ;(PRUEF|
00004D70: 45 4E 20 41 55 46 20 27 5D 27 29 00 9C 55 13 C6 |EN AUF ']')..U..|
00004D80: 22 20 4A 4D 50 20 34 34 38 30 38 20 20 20 20 3B |" JMP 44808 ;|
00004D90: 53 59 4E 54 41 58 2D 45 52 52 4F 52 00 A6 55 16 |SYNTAX-ERROR..U.|
00004DA0: C6 22 20 52 54 53 00 B6 55 17 C6 22 20 4A 53 52 |." RTS..U.." JSR|
00004DB0: 20 20 20 31 32 31 00 DA 55 1A C6 22 20 4A 53 52 | 121..U.." JSR|
00004DC0: 20 35 30 37 30 33 20 20 20 20 3B 50 52 55 45 46 | 50703 ;PRUEF|
00004DD0: 45 4E 20 41 55 46 20 27 5D 27 00 13 56 1D C6 22 |EN AUF ']'..V.."|
00004DE0: 20 4A 53 52 20 20 20 31 31 35 20 20 20 20 3B 5A | JSR 115 ;Z|
00004DF0: 41 45 48 4C 45 52 20 41 55 46 20 4E 41 45 43 48 |AEHLER AUF NAECH|
00004E00: 53 54 45 4E 20 42 45 46 45 48 4C 20 52 49 43 48 |STEN BEFEHL RICH|
00004E10: 54 45 4E 00 45 56 20 C6 22 20 4A 53 52 20 34 39 |TEN.EV ." JSR 49|
00004E20: 38 30 36 20 20 20 20 3B 46 4C 4F 50 50 59 2D 52 |806 ;FLOPPY-R|
00004E30: 4F 55 54 49 4E 45 20 27 4C 45 53 45 4E 27 20 53 |OUTINE 'LESEN' S|
00004E40: 45 4E 44 45 4E 00 83 56 23 C6 22 20 50 4C 41 20 |ENDEN..V#." PLA |
00004E50: 20 20 20 20 20 20 20 20 20 3B 5A 45 49 47 45 52 | ;ZEIGER|
00004E60: 20 55 4E 44 20 4C 41 45 4E 47 45 20 44 45 53 20 | UND LAENGE DES |
00004E70: 4E 45 55 45 4E 20 53 54 52 49 4E 47 53 20 48 4F |NEUEN STRINGS HO|
00004E80: 4C 45 4E 00 93 56 24 C6 22 20 53 54 41 20 20 20 |LEN..V$." STA |
00004E90: 31 34 31 00 9D 56 26 C6 22 20 50 4C 41 00 AD 56 |141..V&." PLA..V|
00004EA0: 27 C6 22 20 53 54 41 20 20 20 32 35 31 00 B7 56 |'." STA 251..V|
00004EB0: 29 C6 22 20 50 4C 41 00 D9 56 2A C6 22 20 53 54 |)." PLA..V*." ST|
00004EC0: 41 20 20 20 32 35 32 20 20 20 20 3B 55 4E 44 20 |A 252 ;UND |
00004ED0: 53 50 45 49 43 48 45 52 4E 00 E9 56 2C C6 22 20 |SPEICHERN..V,." |
00004EE0: 4C 44 41 20 20 20 20 23 32 00 F9 56 2E C6 22 20 |LDA #2..V.." |
00004EF0: 4C 44 58 20 34 39 37 39 39 00 03 57 31 C6 22 20 |LDX 49799..W1." |
00004F00: 54 41 59 00 1E 57 32 C6 22 20 4A 53 52 20 36 35 |TAY..W2." JSR 65|
00004F10: 34 36 36 20 20 20 20 3B 53 45 54 4C 46 53 00 2E |466 ;SETLFS..|
00004F20: 57 35 C6 22 20 4C 44 41 20 20 20 20 23 32 00 3E |W5." LDA #2.>|
00004F30: 57 37 C6 22 20 4C 44 58 20 20 20 23 35 31 00 4E |W7." LDX #51.N|
00004F40: 57 39 C6 22 20 4C 44 59 20 20 23 31 39 35 00 69 |W9." LDY #195.i|
00004F50: 57 3B C6 22 20 4A 53 52 20 36 35 34 36 39 20 20 |W;." JSR 65469 |
00004F60: 20 20 3B 53 45 54 4E 41 4D 00 8D 57 3E C6 22 20 | ;SETNAM..W>." |
00004F70: 4A 53 52 20 36 35 34 37 32 20 20 20 20 3B 4F 50 |JSR 65472 ;OP|
00004F80: 45 4E 20 32 2C 38 2C 32 2C 22 23 30 22 00 9D 57 |EN 2,8,2,"#0"..W|
00004F90: 41 C6 22 20 42 43 43 20 35 30 37 35 38 00 B8 57 |A." BCC 50758..W|
00004FA0: 43 C6 22 20 4A 4D 50 20 35 37 35 39 33 20 20 20 |C." JMP 57593 |
00004FB0: 20 3B 46 45 48 4C 45 52 00 D3 57 46 C6 22 20 4A | ;FEHLER..WF." J|
00004FC0: 53 52 20 36 35 34 38 34 20 20 20 20 3B 43 4C 52 |SR 65484 ;CLR|
00004FD0: 43 48 4E 00 E3 57 49 C6 22 20 4C 44 58 20 20 20 |CHN..WI." LDX |
00004FE0: 20 23 32 00 FD 57 4B C6 22 20 4A 53 52 20 36 35 | #2..WK." JSR 65|
00004FF0: 34 37 38 20 20 20 20 3B 43 48 4B 49 4E 00 17 58 |478 ;CHKIN..X|
00005000: 4E C6 22 20 4A 53 52 20 36 35 34 38 37 20 20 20 |N." JSR 65487 |
00005010: 20 3B 43 48 52 49 4E 00 32 58 51 C6 22 20 4A 53 | ;CHRIN.2XQ." JS|
00005020: 52 20 36 35 34 36 33 20 20 20 20 3B 53 54 41 54 |R 65463 ;STAT|
00005030: 55 53 00 54 58 54 C6 22 20 42 45 51 20 35 30 37 |US.TXT." BEQ 507|
00005040: 37 37 20 20 20 20 3B 4B 4F 4E 54 52 4F 4C 4C 49 |77 ;KONTROLLI|
00005050: 45 52 45 4E 00 79 58 56 C6 22 20 4A 4D 50 20 34 |EREN.yXV." JMP 4|
00005060: 32 30 38 32 20 20 20 20 3B 27 45 52 52 4F 52 27 |2082 ;'ERROR'|
00005070: 20 41 55 53 47 45 42 45 4E 00 A2 58 59 C6 22 20 | AUSGEBEN..XY." |
00005080: 4A 53 52 20 35 30 32 36 30 20 20 20 20 3B 53 50 |JSR 50260 ;SP|
00005090: 55 52 20 2B 20 53 45 4B 54 4F 52 20 53 45 4E 44 |UR + SEKTOR SEND|
000050A0: 45 4E 00 B2 58 5C C6 22 20 4C 44 41 20 20 23 31 |EN..X\." LDA #1|
000050B0: 34 35 00 D6 58 5E C6 22 20 4A 53 52 20 34 39 39 |45..X^." JSR 499|
000050C0: 37 35 20 20 20 20 3B 52 4F 55 54 49 4E 45 20 53 |75 ;ROUTINE S|
000050D0: 54 41 52 54 45 4E 00 F2 58 61 C6 22 20 4A 53 52 |TARTEN..Xa." JSR|
000050E0: 20 35 30 32 33 34 20 20 20 20 3B 42 2D 50 20 32 | 50234 ;B-P 2|
000050F0: 20 30 00 02 59 64 C6 22 20 4C 44 58 20 20 20 20 | 0..Yd." LDX |
00005100: 23 32 00 1C 59 66 C6 22 20 4A 53 52 20 36 35 34 |#2..Yf." JSR 654|
00005110: 37 38 20 20 20 20 3B 43 48 4B 49 4E 00 26 59 69 |78 ;CHKIN.&Yi|
00005120: C6 22 20 4E 4F 50 00 30 59 6A C6 22 20 4E 4F 50 |." NOP.0Yj." NOP|
00005130: 00 3A 59 6B C6 22 20 4E 4F 50 00 4A 59 6C C6 22 |.:Yk." NOP.JYl."|
00005140: 20 4C 44 59 20 20 20 20 23 30 00 6E 59 6E C6 22 | LDY #0.nYn."|
00005150: 20 4A 53 52 20 36 35 34 38 37 20 20 20 20 3B 32 | JSR 65487 ;2|
00005160: 35 35 20 42 59 54 45 53 20 48 4F 4C 45 4E 00 8B |55 BYTES HOLEN..|
00005170: 59 71 C6 22 20 42 43 53 20 35 30 37 35 35 20 20 |Yq." BCS 50755 |
00005180: 20 20 3B 46 45 48 4C 45 52 20 3F 00 B8 59 73 C6 | ;FEHLER ?..Ys.|
00005190: 22 20 53 54 41 20 20 28 32 35 31 29 2C 59 20 3B |" STA (251),Y ;|
000051A0: 55 4E 44 20 41 4C 53 20 53 54 52 49 4E 47 20 53 |UND ALS STRING S|
000051B0: 50 45 49 43 48 45 52 4E 00 C2 59 75 C6 22 20 49 |PEICHERN..Yu." I|
000051C0: 4E 59 00 D2 59 76 C6 22 20 43 50 59 20 20 20 31 |NY..Yv." CPY 1|
000051D0: 34 31 00 E2 59 78 C6 22 20 42 4E 45 20 35 30 37 |41..Yx." BNE 507|
000051E0: 39 38 00 FD 59 7A C6 22 20 4A 53 52 20 36 35 34 |98..Yz." JSR 654|
000051F0: 38 34 20 20 20 20 3B 43 4C 52 43 48 4E 00 0D 5A |84 ;CLRCHN..Z|
00005200: 7D C6 22 20 4C 44 41 20 20 20 20 23 32 00 28 5A |}." LDA #2.(Z|
00005210: 7F C6 22 20 4A 53 52 20 36 35 34 37 35 20 20 20 |.." JSR 65475 |
00005220: 20 3B 43 4C 4F 53 45 32 00 38 5A 82 C6 22 20 4C | ;CLOSE2.8Z.." L|
00005230: 44 58 20 20 20 20 23 31 00 53 5A 84 C6 22 20 4A |DX #1.SZ.." J|
00005240: 53 52 20 36 35 34 38 31 20 20 20 20 3B 43 48 4B |SR 65481 ;CHK|
00005250: 4F 55 54 00 63 5A 87 C6 22 20 4C 44 41 20 20 20 |OUT.cZ.." LDA |
00005260: 23 37 33 00 83 5A 89 C6 22 20 4A 53 52 20 36 35 |#73..Z.." JSR 65|
00005270: 34 39 30 20 20 20 20 3B 50 52 49 4E 54 23 31 2C |490 ;PRINT#1,|
00005280: 22 49 22 00 9E 5A 8C C6 22 20 4A 53 52 20 36 35 |"I"..Z.." JSR 65|
00005290: 34 38 34 20 20 20 20 3B 43 4C 52 43 48 4E 00 AE |484 ;CLRCHN..|
000052A0: 5A 8F C6 22 20 4C 44 41 20 20 20 20 23 31 00 C9 |Z.." LDA #1..|
000052B0: 5A 91 C6 22 20 4A 53 52 20 36 35 34 37 35 20 20 |Z.." JSR 65475 |
000052C0: 20 20 3B 43 4C 4F 53 45 31 00 ED 5A 94 C6 22 20 | ;CLOSE1..Z.." |
000052D0: 4A 4D 50 20 34 32 39 32 36 20 20 20 20 3B 5A 55 |JMP 42926 ;ZU|
000052E0: 4D 20 49 4E 54 45 52 50 52 45 54 45 52 00 17 5B |M INTERPRETER..[|
000052F0: 97 C6 22 20 43 4D 50 20 20 23 31 35 33 20 20 20 |.." CMP #153 |
00005300: 20 3B 53 43 48 41 55 45 4E 20 4F 42 20 50 52 49 | ;SCHAUEN OB PRI|
00005310: 4E 54 2D 43 4F 44 45 00 27 5B 99 C6 22 20 42 45 |NT-CODE.'[.." BE|
00005320: 51 20 35 30 38 34 36 00 52 5B 9B C6 22 20 4A 4D |Q 50846.R[.." JM|
00005330: 50 20 34 34 38 30 38 20 20 20 20 3B 57 45 4E 4E |P 44808 ;WENN|
00005340: 20 4E 45 49 4E 20 53 59 4E 54 41 58 2D 45 52 52 | NEIN SYNTAX-ERR|
00005350: 4F 52 00 62 5B 9E C6 22 20 4A 53 52 20 20 20 31 |OR.b[.." JSR 1|
00005360: 31 35 00 97 5B A1 C6 22 20 4A 53 52 20 34 35 31 |15..[.." JSR 451|
00005370: 39 35 20 20 20 20 3B 41 44 52 45 53 53 45 20 44 |95 ;ADRESSE D|
00005380: 45 53 20 53 54 52 49 4E 47 2D 5A 45 49 47 45 52 |ES STRING-ZEIGER|
00005390: 53 20 48 4F 4C 45 4E 00 A1 5B A4 C6 22 20 50 48 |S HOLEN..[.." PH|
000053A0: 41 00 AB 5B A5 C6 22 20 54 59 41 00 CA 5B A6 C6 |A..[.." TYA..[..|
000053B0: 22 20 50 48 41 20 20 20 20 20 20 20 20 20 20 3B |" PHA ;|
000053C0: 55 4E 44 20 52 45 54 54 45 4E 00 E4 5B A7 C6 22 |UND RETTEN..[.."|
000053D0: 20 4A 53 52 20 34 34 37 39 37 20 20 20 20 3B 4B | JSR 44797 ;K|
000053E0: 4F 4D 4D 41 00 07 5C AA C6 22 20 4A 53 52 20 34 |OMMA..\.." JSR 4|
000053F0: 37 30 30 36 20 20 20 20 3B 42 4C 4F 43 4B 4E 52 |7006 ;BLOCKNR|
00005400: 2E 20 48 4F 4C 45 4E 00 17 5C AD C6 22 20 43 50 |. HOLEN..\.." CP|
00005410: 58 20 20 20 23 37 39 00 33 5C AF C6 22 20 42 43 |X #79.3\.." BC|
00005420: 43 20 35 30 38 37 30 20 20 20 20 3B 50 52 55 45 |C 50870 ;PRUE|
00005430: 46 45 4E 00 43 5C B1 C6 22 20 4C 44 58 20 20 20 |FEN.C\.." LDX |
00005440: 23 31 34 00 67 5C B3 C6 22 20 4A 4D 50 20 34 32 |#14.g\.." JMP 42|
00005450: 30 34 32 20 20 20 20 3B 49 4C 4C 45 47 2E 20 51 |042 ;ILLEG. Q|
00005460: 55 41 4E 54 49 54 59 00 89 5C B6 C6 22 20 53 54 |UANTITY..\.." ST|
00005470: 58 20 20 20 31 33 39 20 20 20 20 3B 55 4E 44 20 |X 139 ;UND |
00005480: 53 50 45 49 43 48 45 52 4E 00 99 5C B8 C6 22 20 |SPEICHERN..\.." |
00005490: 4A 53 52 20 20 20 31 32 31 00 BD 5C BB C6 22 20 |JSR 121..\.." |
000054A0: 4A 53 52 20 35 30 37 30 33 20 20 20 20 3B 50 52 |JSR 50703 ;PR|
000054B0: 55 45 46 45 4E 20 41 55 46 20 27 5D 27 00 CD 5C |UEFEN AUF ']'..\|
000054C0: BE C6 22 20 4A 53 52 20 20 20 31 31 35 00 D7 5C |.." JSR 115..\|
000054D0: C1 C6 22 20 50 4C 41 00 E7 5C C2 C6 22 20 53 54 |.." PLA..\.." ST|
000054E0: 41 20 20 20 20 39 38 00 F1 5C C4 C6 22 20 50 4C |A 98..\.." PL|
000054F0: 41 00 14 5D C5 C6 22 20 4A 53 52 20 35 31 30 30 |A..].." JSR 5100|
00005500: 38 20 20 20 20 3B 4C 41 45 4E 47 45 20 50 52 55 |8 ;LAENGE PRU|
00005510: 45 46 45 4E 00 1E 5D C8 C6 22 20 49 4E 59 00 31 |EFEN..].." INY.1|
00005520: 5D C9 C6 22 20 4C 44 41 20 20 20 28 39 37 29 2C |].." LDA (97),|
00005530: 59 00 41 5D CB C6 22 20 53 54 41 20 20 20 32 35 |Y.A].." STA 25|
00005540: 31 00 4B 5D CD C6 22 20 49 4E 59 00 96 5D CE C6 |1.K].." INY..]..|
00005550: 22 20 4C 44 41 20 20 20 28 39 37 29 2C 59 20 3B |" LDA (97),Y ;|
00005560: 41 44 52 45 53 53 45 20 44 45 53 20 45 49 47 45 |ADRESSE DES EIGE|
00005570: 4E 54 4C 49 43 48 45 4E 20 53 54 52 49 4E 47 53 |NTLICHEN STRINGS|
00005580: 20 56 4F 4D 20 53 54 52 49 4E 47 2D 5A 45 49 47 | VOM STRING-ZEIG|
00005590: 45 52 20 48 45 52 00 BE 5D D0 C6 22 20 53 54 41 |ER HER..].." STA|
000055A0: 20 20 20 32 35 32 20 20 20 20 3B 48 4F 4C 45 4E | 252 ;HOLEN|
000055B0: 20 55 4E 44 20 53 50 45 49 43 48 45 52 4E 00 E5 | UND SPEICHERN..|
000055C0: 5D D2 C6 22 20 4A 53 52 20 34 39 38 30 33 20 20 |].." JSR 49803 |
000055D0: 20 20 3B 27 53 43 48 52 45 49 42 45 4E 27 20 53 | ;'SCHREIBEN' S|
000055E0: 45 4E 44 45 4E 00 F5 5D D5 C6 22 20 4C 44 41 20 |ENDEN..].." LDA |
000055F0: 20 20 20 23 32 00 05 5E D7 C6 22 20 4C 44 58 20 | #2..^.." LDX |
00005600: 34 39 37 39 39 00 0F 5E DA C6 22 20 54 41 59 00 |49799..^.." TAY.|
00005610: 1F 5E DB C6 22 20 4A 53 52 20 36 35 34 36 36 00 |.^.." JSR 65466.|
00005620: 2F 5E DE C6 22 20 4C 44 41 20 20 20 20 23 32 00 |/^.." LDA #2.|
00005630: 3F 5E E0 C6 22 20 4C 44 58 20 20 20 23 35 33 00 |?^.." LDX #53.|
00005640: 4F 5E E2 C6 22 20 4C 44 59 20 20 23 31 39 35 00 |O^.." LDY #195.|
00005650: 5F 5E E4 C6 22 20 4A 53 52 20 36 35 34 36 39 00 |_^.." JSR 65469.|
00005660: 82 5E E7 C6 22 20 4A 53 52 20 36 35 34 37 32 20 |.^.." JSR 65472 |
00005670: 20 20 20 3B 4F 50 45 4E 32 2C 38 2C 32 2C 22 23 | ;OPEN2,8,2,"#|
00005680: 31 22 00 92 5E EA C6 22 20 42 43 43 20 35 30 39 |1"..^.." BCC 509|
00005690: 32 37 00 AD 5E EC C6 22 20 4A 4D 50 20 35 37 35 |27..^.." JMP 575|
000056A0: 39 33 20 20 20 20 3B 46 45 48 4C 45 52 00 BD 5E |93 ;FEHLER..^|
000056B0: EF C6 22 20 4A 53 52 20 36 35 34 38 34 00 CD 5E |.." JSR 65484..^|
000056C0: F2 C6 22 20 4C 44 58 20 20 20 20 23 32 00 DD 5E |.." LDX #2..^|
000056D0: F4 C6 22 20 4A 53 52 20 36 35 34 37 38 00 ED 5E |.." JSR 65478..^|
000056E0: F7 C6 22 20 4A 53 52 20 36 35 34 38 37 00 FD 5E |.." JSR 65487..^|
000056F0: FA C6 22 20 4A 53 52 20 36 35 34 36 33 00 0D 5F |.." JSR 65463.._|
00005700: FD C6 22 20 42 45 51 20 35 30 39 34 36 00 1D 5F |.." BEQ 50946.._|
00005710: FF C6 22 20 4A 4D 50 20 34 32 30 38 32 00 46 5F |.." JMP 42082.F_|
00005720: 02 C7 22 20 4A 53 52 20 35 30 32 36 30 20 20 20 |.." JSR 50260 |
00005730: 20 3B 53 50 55 52 20 2B 20 53 45 4B 54 4F 52 20 | ;SPUR + SEKTOR |
00005740: 53 45 4E 44 45 4E 00 69 5F 05 C7 22 20 4A 53 52 |SENDEN.i_.." JSR|
00005750: 20 35 30 32 33 34 20 20 20 20 3B 42 2D 50 20 32 | 50234 ;B-P 2|
00005760: 20 30 20 53 45 4E 44 45 4E 00 79 5F 08 C7 22 20 | 0 SENDEN.y_.." |
00005770: 4C 44 58 20 20 20 20 23 32 00 94 5F 0A C7 22 20 |LDX #2.._.." |
00005780: 4A 53 52 20 36 35 34 38 31 20 20 20 20 3B 43 48 |JSR 65481 ;CH|
00005790: 4B 4F 55 54 00 A4 5F 0D C7 22 20 4C 44 59 20 20 |KOUT.._.." LDY |
000057A0: 20 20 23 30 00 D7 5F 0F C7 22 20 4C 44 41 20 20 | #0.._.." LDA |
000057B0: 28 32 35 31 29 2C 59 20 3B 32 35 35 20 44 41 54 |(251),Y ;255 DAT|
000057C0: 45 4E 20 41 55 53 20 44 45 4D 20 53 54 52 49 4E |EN AUS DEM STRIN|
000057D0: 47 20 4C 45 53 45 4E 00 F6 5F 11 C7 22 20 4A 53 |G LESEN.._.." JS|
000057E0: 52 20 36 35 34 39 30 20 20 20 20 3B 55 4E 44 20 |R 65490 ;UND |
000057F0: 53 45 4E 44 45 4E 00 06 60 14 C7 22 20 42 43 53 |SENDEN..`.." BCS|
00005800: 20 35 30 39 32 34 00 10 60 16 C7 22 20 49 4E 59 | 50924..`.." INY|
00005810: 00 20 60 17 C7 22 20 43 50 59 20 20 23 32 35 35 |. `.." CPY #255|
00005820: 00 30 60 19 C7 22 20 42 4E 45 20 35 30 39 35 39 |.0`.." BNE 50959|
00005830: 00 4B 60 1B C7 22 20 4A 53 52 20 36 35 34 38 34 |.K`.." JSR 65484|
00005840: 20 20 20 20 3B 43 4C 52 43 48 4E 00 5B 60 1E C7 | ;CLRCHN.[`..|
00005850: 22 20 4C 44 41 20 20 23 32 32 32 00 86 60 20 C7 |" LDA #222..` .|
00005860: 22 20 4A 53 52 20 34 39 39 37 35 20 20 20 20 3B |" JSR 49975 ;|
00005870: 46 4C 4F 50 50 59 2D 52 4F 55 54 49 4E 45 20 53 |FLOPPY-ROUTINE S|
00005880: 54 41 52 54 45 4E 00 96 60 23 C7 22 20 4A 53 52 |TARTEN..`#." JSR|
00005890: 20 36 35 34 38 34 00 A6 60 26 C7 22 20 4C 44 41 | 65484..`&." LDA|
000058A0: 20 20 20 20 23 32 00 C1 60 28 C7 22 20 4A 53 52 | #2..`(." JSR|
000058B0: 20 36 35 34 37 35 20 20 20 20 3B 43 4C 4F 53 45 | 65475 ;CLOSE|
000058C0: 32 00 D1 60 2B C7 22 20 4C 44 58 20 20 20 20 23 |2..`+." LDX #|
000058D0: 31 00 E1 60 2D C7 22 20 4A 53 52 20 36 35 34 38 |1..`-." JSR 6548|
000058E0: 31 00 F1 60 30 C7 22 20 4C 44 41 20 20 20 23 37 |1..`0." LDA #7|
000058F0: 33 00 11 61 32 C7 22 20 4A 53 52 20 36 35 34 39 |3..a2." JSR 6549|
00005900: 30 20 20 20 20 3B 50 52 49 4E 54 23 31 2C 22 49 |0 ;PRINT#1,"I|
00005910: 22 00 21 61 35 C7 22 20 4A 53 52 20 36 35 34 38 |".!a5." JSR 6548|
00005920: 34 00 31 61 38 C7 22 20 4C 44 41 20 20 20 20 23 |4.1a8." LDA #|
00005930: 31 00 4C 61 3A C7 22 20 4A 53 52 20 36 35 34 37 |1.La:." JSR 6547|
00005940: 35 20 20 20 20 3B 43 4C 4F 53 45 31 00 6E 61 3D |5 ;CLOSE1.na=|
00005950: C7 22 20 4A 4D 50 20 34 32 39 32 36 20 20 20 20 |." JMP 42926 |
00005960: 3B 5A 55 4D 20 49 4E 54 45 52 50 52 45 54 00 9E |;ZUM INTERPRET..|
00005970: 61 40 C7 22 20 53 54 41 20 20 20 20 39 37 20 20 |a@." STA 97 |
00005980: 20 20 3B 45 49 4E 53 43 48 55 42 20 28 4C 41 45 | ;EINSCHUB (LAE|
00005990: 4E 47 45 20 42 45 53 54 49 4D 4D 45 4E 29 00 AE |NGE BESTIMMEN)..|
000059A0: 61 42 C7 22 20 4C 44 59 20 20 20 20 23 30 00 D1 |aB." LDY #0..|
000059B0: 61 44 C7 22 20 4C 44 41 20 20 20 28 39 37 29 2C |aD." LDA (97),|
000059C0: 59 20 20 20 3B 4C 41 45 4E 47 45 20 48 4F 4C 45 |Y ;LAENGE HOLE|
000059D0: 4E 00 E1 61 46 C7 22 20 43 4D 50 20 20 23 32 35 |N..aF." CMP #25|
000059E0: 35 00 F1 61 48 C7 22 20 42 45 51 20 35 31 30 32 |5..aH." BEQ 5102|
000059F0: 33 00 31 62 4A C7 22 20 4C 44 58 20 20 20 23 32 |3.1bJ." LDX #2|
00005A00: 33 20 20 20 20 20 20 3B 57 45 4E 4E 20 46 41 4C |3 ;WENN FAL|
00005A10: 53 43 48 20 44 41 4E 4E 20 53 54 52 49 4E 47 20 |SCH DANN STRING |
00005A20: 54 4F 4F 20 4C 4F 4E 47 20 41 55 53 47 45 42 45 |TOO LONG AUSGEBE|
00005A30: 4E 00 41 62 4C C7 22 20 4A 4D 50 20 34 32 30 34 |N.AbL." JMP 4204|
00005A40: 32 00 4B 62 4F C7 22 20 52 54 53 00 54 62 50 C7 |2.KbO." RTS.TbP.|
00005A50: 22 2E 45 4E 00 00 00 |".EN... |
..H.D.; BASIC.ERWEITE.G ZUR NUETZUNG D
ER SPUREN 36.40 AUF DER DISKETTE.V.N.;
:..
.X.; GERMANO CAR.NI.....;
GREUBSTELSTR.10.S...; CH.543
0 WETTINGEN.....; TEL.0041.56262
574.!. .;
:.'...;.G...".BA 49152 ;ZUERST
DREI FLOPPY-ROUTINEN DANN HAUPTPROGRAMM.
...." LDA 7168 ;START 50000 EINSPRUNGPU
NKT VOM INTERPRET 50022....." AND #159
;FORMATIEREN (36-40) --- DC-TIMER FUER
SPUR 36 UND HOEHER....." STA 7168 ;EINR
ICHTEN....." LDY #4....." STY 49.>
..." LDY #0.`..." STY 48 ;ZEIGER
AUF 1024.P..." STY 52....." LDA #14
....." STA 82 ;HEADER-KENNZEICHEN....
." LDA 2046.J..." STA 83 ;SPUR....."
STY 84 ;SEKTOR....." LDA #0....."
STA 85 ;LEER...!." TYA.1."." PHA
;SEKTOR RETTEN.|.#." JSR 63184 ;DIESE
FUENF BYTES IN GCR-CODE WANDELN UND AB
$400 ABLEGEN.J.&." PLA ;(DAS GIBT
DIE EINZELNEN HEADER FUER DIE SEKTOREN E
INER SPUR)...'." TAY ;SEKTOR WIEDE
R HOLEN...(." INY.$.)." CPY 2045 ;SCHAU
EN OB LETZTER SEKTOR.].,." BNE 49170 ;WE
NN NICHT DANN DEN NAECHSTEN UMWANDELN...
.." LDA 52 ;DIE ADRESSE DES LETZTEN B
YTES DES LETZTEN SEKTORS +1 HOLEN.E.0."
STA 2047 ;UND RETTEN.U.3." LDA #13...
5." STA 71 ;DATENBLOCKKENNZEICHEN...7
." LDY #0...9." TYA.(.:." STA 768,Y
.2.=." INY.O.>." BNE 49210 ;DATENBLOCK A
B 768 MIT LAUTER NULLEN FUELLEN..@." ST
A 48...B." STA 52...D." LDA #3.
R.F." STA 49 ;DIE ZEIGER AUF $300 RIC
HTEN (768)...H." JSR 62953 ;PRUEFSUMME B
ERECHNEN...K." STA 58 ;UND SPEICHERN.
G.M." JSR 63375 ;DATENBLOCK IN GCR-KODE
WANDELN..P." JSR 65038 ;DC AUF SCHREIBE
N UND DIE SPUR LOESCHEN...S." LDX #0.
..U." LDY #5...W." LDA #255...Y." BV
C 49241.I.[." CLV...\." STA 7169 ;5*255
ALS HEADER-SYNC(HRONISTATIONSMARKIERUNG
) AUF DISKETTE. ._." DEY.0.`." BNE 49241
.@.B." LDY #5.R.D." LDA 1024,X.\.G."
INX.L.H." BVC 49256.V.J." CLV...K." STA
7169 ;DANN DIE 5 HEADER-BYTES...N." DE
Y...O." BNE 49252.I.Q." LDY #9.Y.S."
LDA #85...U." BVC 49269...W." CLV.'.X.
" STA 7169 ;9 LEERBYTES ALS LUECKE ABSP
EICHERN.1.{." DEY.A.|." BNE 49269.Q.~."
LDY #5.A..." LDA #255.Q..." BVC 4928
2.{..." CLV....." STA 7169 ;DATENBLOC
K-SYNC....." DEY....." BNE 49282.H..." L
DY #187....." LDA 256,Y ;DEN ERSTEN T
EIL DES UMGEWANDELTEN BLOCKES AUF DISKET
TE."..." BVC 49296.,..." CLV.<..." STA
7169.F..." INY.V..." BNE 49293....." LDA
768,Y ;UND DANN DEN ZWEITEN TEIL.....
" BVC 49308....." CLV....." STA 7169...
.." INY.G..." BNE 49305.W..." LDY #7.
...." LDA #85....." BVC 49321....." CL
V.*..." STA 7169 ;WIEDER 7 BYTES LUEC
KE.4..." DEY.D..." BNE 49321.}..." CPX
2047 ;SCHAUEN OB ALLE SEKTOREN EINGERI
CHTET....." BNE 49237 ;WENN NICHT DANN
DEN NAECHSTEN.W..." JSR 65024 ;DC AUF
LESEN SCHALTEN....." LDA #7. ..." ST
A 71 ;DATENBLOCK-KENNZEICHEN WIEDER
RICHTEN.[..." JMP 64926 ;ZURUECK ZUR
NORMALEN FLOPPY IRQ-ROUTINE...A." LDA
#16 ;EISPRUNGSPUNKT MIT M-E...C." STA
2045 ;PRO SPUR 16 SEKTOREN EINRICHTEN
.H.F." LDX #36...H." STX 2046 ;SPUR
36...K." STX 10 ;DEM IRQ-PRG BEKAN
NT GEBEN. .M." LDA #224.C.O." STA 2
;IRQ-PRG STARTEN.S.Q." LDA 2.X.S.
" BMI 49361 ;WARTEN AUF FERTIG...U." I
NX...V." CPX #40 ;SCHAUEN OB SCHON B
EI SPUR 40...X." BCC 49352 ;WENN NICHT
NAECHSTE SPUR...Z." DEC 2045 ;PRO SP
UR 15 SEKTOREN....." CPX #41.J..." BNE
49352 ;UND DIE SPUR 40 NOCH FORMATIER
EN.B..." RTS ;ENDE....." LDA 71
68 ;EINEN BLOCK AB $400 SPEICHERN (SPU
R+SEKTOR IN 2046,2047).R..." AND #159
;DC-TIMER RICHTEN....." STA 7168....."
LDA #0....." TAY....." CLC.>..." ADC
1024,Y ;ERSTE (INTERNE) PRUEFSUMME BER
ECHNEN.H..." INY.X..." CPY #255.H..." B
NE 49389....." STA 1279 ;UND ALS LETZ
TES DATENBLOCK-BYTE SPEICHERN....." LDA
#13....." STA 71 ;DATENBLOCK KENN
ZEICHEN RICHTEN....." LDA #4....." ST
A 49....A" LDA #0.:..A" STA 48
;ZEIGER AUF $400.J..A" STA 52.R..A"
JSR 62953 ;PRUEFSUMME BERECHNEN....A"
STA 58 ;SPEICHERN.C..A" JSR 63375
;DATENBLOCK UMWANDELN IN GCR-KODE....A
" LDA #14 ;HEADER AUFBAUEN....A" STA
82 ;HEADER-KENNZEICHEN....A" LDA
2046.4..A" STA 83 ;SPUR.D..A" LDA
2047.^..A" STA 84 ;SEKTOR.N..A" LDA
#0....A" STA 85 ;LEER...!A" STA
48...#A" STA 52.I.%A" LDA #3
;ZEIGER AUF $300.Y.'A" STA 49...)A"
JSR 63184 ;HEADER IN GCR UMWANDELN (AB
768 IM SPEICHER).<.,A" JSR 1520 ;WAR
TEN AUF SYNC.L./A" BVC 49455.V.1A" CLV.F
.2A" LDA 7169...5A" CMP 768,Y ;RICHTI
GEN HEADER SUCHEN...8A" BNE 49452 ;WEN
N NICHT DANN NAECHSTEN.H.:A" INY.X.;A" C
PY #5...=A" BNE 49455...?A" LDA #7
.@.AA" STA 71 ;DATENBLOCK-KENNZEICH
EN WIEDER RICHTEN (VERZOEGERUNG).P.CA" L
DX #6.V.EA" BVC 49477 ;6 BYTES UEBE
RLESEN...GA" CLV...HA" DEX...IA" BNE 494
77...KA" LDA #255...MA" STA 7171.J.PA"
LDA 7180.Z.SA" AND #31...UA" ORA #1
92...WA" STA 7180 ;DC AUF SCHREIBEN U
MSCHALTEN.).ZA" LDA #255.9.\A" LDX #
5.I.^A" STA 7169 ;5 BYTES DATEN-SYNC
SCHREIBEN.S.AA" CLV...BA" BVC 49506...DA
" CLV...EA" DEX...FA" BNE 49506...HA" LD
Y #187...JA" LDA 256,Y ;ERSTEN TEIL D
ES BLOCKES...MA" BVC 49517...OA" CLV...P
A" STA 7169...SA" INY.&.TA" BNE 49514.]
.VA" LDA 1024,Y ;UND DANN DEN ZWEITEN T
EIL SCHREIBEN.M.YA" BVC 49529.W.{A" CLV.
..|A" STA 7169...A" INY....A" BNE 4952
6....A" BVC 49538 ;WARTEN DAS DAS LETZ
TE BYTE FERTIG GESCHRIEBEN IST....A" JSR
65024 ;DC AUF LESEN.)..A" JSR 1520
;WARTEN AUF SYNC.9..A" BVC 49546.C..A"
CLV.S..A" LDA 7169....A" CMP 768,Y ;D
EN RICHTIGEN HEADER SUCHEN....A" BNE 495
43....A" INY....A" CPY #5....A" BNE 4
9546.L..A" BNE 49452....A" JSR 1520....
A" LDY #187....A" LDA 256,Y ;UND DEN
SOEBEN GESCHRIEBEN BLOCK KONTROLLIEREN.>
..A" BVC 49572.H..A" CLV.X..A" EOR 7169
....A" BNE 49562 ;WENN FEHLER DANN ALL
ES VON VORNE....A" INY....A" BNE 49569.T
..A" LDA 1024,Y ;ZWEITEN TEIL KONTROLLI
EREN....A" BVC 49586....A" CLV....A" EOR
7169....A" BNE 49562....A" INY.(..A" B
NE 49583.Z..A" JMP 64926 ;ZURUECK ZUR
FLOPPY IRQ-ROUTINE.J..A" LDA 2046...CA"
STA 10 ;SPUR FESTLEGEN...EA" LDA
#224 ;IRQ-PRG. STARTEN...GA" STA 2
.P.IA" LDA 2...KA" BMI 49609 ;WART
EN AUF FERTIG.. MA" .BY 234 234 ;LUECKE.
! OA" .BY 234 234.9 QA" RTS ;END
E.\ RA" BIT 7168 ;WARTEN AUF SYNC.. U
A" BMI 49618 ;WENN NOCH KEINE DANN NOC
HMAL.. WA" LDA 7169.B ZA" CLV ;
DC-PORT FREIMACHEN.R .A" LDY #0.. .A"
RTS.'!.A" LDA 7168 ;EINEN BLOCK LESE
N UND IN $300 SPEICHERN TR+SE 2046,2047.
K!.A" AND #159 ;DC-TIMER RICHTEN.[!.A
" STA 7168.K!.A" LDA #14..!.A" STA
82 ;HEADER EINRICHTEN. !.A" LDA 2046
..!.A" STA 83 ;SPUR.H!.A" LDA 2047
..!.A" STA 84 ;SEKTOR..!.A" LDA
#0..".A" STA 85 ;LEER..".A" STA
52.*".A" STA 48.M".A" LDA #3 ;ZE
IGER AUF $300.]".A" STA 49..".B" JSR
63184 ;HEADER UMWANDELN..".B" BIT 716
8 ;WARTEN AUF SYNC..".B" BMI 49667.D".
B" LDA 7169.N".B" CLV..".B" LDY #0..
".B" BVC 49678..".B" CLV..#.B" LDA 7169
.7#.B" CMP 768,Y ;DEN RICHTIGEN HEADER
SUCHEN.G#.B" BNE 49667.Q#.B" INY.A#.B"
CPY #5.Q#.B" BNE 49678..#.B" LDY #
0..# B" BIT 7168 ;WARTEN AUF SYNC..##
B" BMI 49696.D#%B" LDA 7169.N#(B" CLV..
#)B" BVC 49705..#+B" CLV..#,B" LDA 7169
.#$/B" STA 768,Y ;ERSTEN TEIL DES BLOC
KES.-$2B" INY.=$3B" BNE 49705.M$5B" LDY
#186.]$7B" BVC 49719.G$9B" CLV.W$:B" LD
A 7169..$=B" STA 256,Y ;UND DANN DEN
ZWEITEN TEIL LESEN UND SPEICHERN.B$@B" I
NY.R$AB" BNE 49719..$CB" JSR 63712 ;IN
HEX-BYTES UMWANDELN..%FB" LDA 56.H%H
B" CMP #13 ;SCHAUEN OB DATENBLOCK-KE
NNZEICHEN STIMMT.V%JB" BNE 49638 ;WENN
NICHT ALLES VON VORNE..%LB" LDA #0..
%NB" STA 48..%PB" LDA #3.P%RB" STA
49 ;ZEIGER WIEDER AUF $300..%TB" J
SR 62953 ;PRUEFSUMME BERECHNEN..&WB" C
MP 58 ;KONTROLLE.=&YB" BNE 49638
;WENN FALSCH NOCHMALS.M&[B" LDA #0.W&
]B" TAY.A&^B" CLC..&_B" ADC 768,Y ;INT
ERNE PRUEFSUMME BERECHNEN..&BB" INY..&CB
" CPY #255..&EB" BNE 49758..&GB" CMP 1
023 ;UND KONTROLLE..&JB" BNE 49753..'L
B" JMP 64926 ;ZURUECK ZUM IRQ..'OB" LD
A 2046./'RB" STA 10.?'TB" LDA #224.
O'VB" STA 2._'XB" LDA 2.O'ZB" BM
I 49784..'|B" RTS ;ENDE.L'}B".BY
'I' '#2' 'B-P 2 0' 8 ;DATEN (DIE >8<
IST DIE DRIVENUMMER)..(.B" LDA #226 ;
ROUTINE ZUM SENDEN EINER DER DREI FLOPPY
-PRG.(FORMATIEREN).5(.B".BY 44 ;BI
T ....^(.B" LDA #252 ;EINSPRUNG (SCHR
EIBEN).Y(.B".BY 44 ;BIT .....(.B"
LDA #159 ;EINSPRUNG (LESEN)..(.B" PHA
;RETTEN..(.B" JSR 65511 ;CLAL
L ALLE KANAELE SCHLIESSEN..).B" LDA #
1 ;LOG. FILE NR..1).B" LDX 49799 ;GE
RAETE-ADRESSE (8).R).B" LDY #15 ;SEK
UNDAERADR..L).B" JSR 65466 ;SETLFS..).
B" LDA #1 ;LAENGE..) B" LDX #125
;ADRESSE..).B" LDY #194.K).B" JSR 6546
9 ;SETNAM..*.B" JSR 65472 ;OPEN (DAS
GANZE ENTSPRICHT OPEN1,8,15,"I".,*.B" B
CC 49839 ;WENN KEIN FEHLER.P*.B" JMP 5
7593 ;FEHLERAUSWERTUNG.`*.B" LDA #2
.P*.B" LDX 49799.Z*.B" TAY..*.B" JSR 654
66 ;SETLFS..*.B" LDA #2..*.B" LDX
#126.D*.B" LDY #194..*.B" JSR 65469 ;
SETNAM..+AB" JSR 65472 ;OPEN (OPEN2,8,
2,"#2")."+DB" BCS 49836 ;FEHLER?.G+FB"
JSR 65484 ;CLRCHN (ALLE AUSGABE- EING
ABEKANAELE RUECKSETZEN).W+IB" LDX #2.
.+KB" JSR 65478 ;CHKIN (KANAL 2 AUF EI
NGABE RICHTEN)..+NB" JSR 65487 ;CHRIN
(EIN BYTE VOM SERIELLEN BUS HOLEN-PUFFER
NUMMER)..,QB" JSR 65484 ;CHRCHN.!,TB"
LDX #1.\,VB" JSR 65481 ;CHKOUT (KAN
AL 1 ALS AUSGABE DEFINIEREN).W,YB" BCS 4
9836 ;FEHLER?..,.B" LDY #0..,.B" LD
A 49792,Y ;'B-P 2 0'.S,.B" JSR 65490 ;
CHROUT (EIN BYTE AUSGEBEN)..,.B" INY..-
.B" CPY #7 ;SCHAUEN OB ALLES..-.B"
BNE 49885.+-.B" JSR 65484 ;CLRCHN.;-.B
" LDX #2.U-.B" JSR 65481 ;CHKOUT.E-
.B" BCS 49836..-.B" PLA ;DIE AM
ANFANG GERETTE LAENGE DES PRG. WIEDER HO
LEN.N-.B" STA 143 ;UND ABSPEICHERN..
-.B" LDY #0....B" LDA 143 ;SCHAUE
N WELCHES....B" CMP #226.!..B" BNE 4992
3.@..B" LDA 49152,Y ;FORMATIEREN.P..C" J
MP 49940.`..C" CMP #252.P..C" BNE 49933
....C" LDA 49378,Y ;SCHREIBEN....C" JMP
49940....C" CMP #159....C" BNE 49836.V.
.C" LDA 49630,Y ;LESEN../.C" JSR 65490
;GESENDET WERDEN MUSS (CHROUT)."/.C" BC
S 49836 ;FEHLER?.,/.C" INY.H/.C" CPY
143 ;SCHAUEN OB DAS GANZE PRG. GESEND
ET WURDE../.C" BNE 49911 ;WENN NICHT N
AECHSTES BYTE../.C" JSR 65484 ;CLRCHN.
./!C" LDA #2../#C" JMP 65475 ;CLOSE
(KANAL 2 WIRD GESCHLOSSEN)..0&C".BY 'M-
E' 0 5."0+C".BY 'M-W' 254 7 2 36 0.503C"
.BY '#0' '#1'.Q07C" STA 49961 ;EINSPUN
GPUNKT ABSPEICHERN UND M-E SENDEN..0:C"
JSR 65484 ;CLRCHN..0=C" LDX #1..0?C
" JSR 65481 ;CHKOUT.E0BC" LDY #0..0
DC" LDA 49958,Y ;'M-E' X 5..0GC" JSR 654
90 ;CHROUT..1JC" INY..1KC" CPY #5.&
1MC" BNE 49988.01OC" RTS.T1PC" LDA #102
;**STARTADRESSE**.D1RC" STA 776.T1U
C" LDA #195.A1WC" STA 777 ;BASIC-BE
FEHL ABARBEITUNGS-SCHLAUFE AUF DIE EIGEN
E ROUTINE..1ZC" RTS ;BIEGEN..1[C
" LDA #228 ;**ENDADRESSE**..2]C" LDY
#167..2_C" STA 776.G2BC" STY 777
;INTERPRETER-ZEIGER WIEDER RICHTEN,UM DI
ESE ERWEITERUNG..2EC" RTS ;AUSZU
SCHALTEN.V2FC" JSR 115 ;**EINSPUNGPU
NKT** VOM INTERPRETER HER (EIN PRG.BYTE
HOLEN)..3IC" CMP #91 ;SCHAUEN OB ES
DAS '['-ZEICHEN IST.23KC" BEQ 50032 ;W
ENN JA DANN WEITER.J3MC" JMP 50644 ;WE
NN NICHT DANN ZUR ORIGINAL-ROUTINE..3PC"
JSR 115 ;NAECHSTES BASIC-BYTE HOLEN
.L3SC" CMP #162 ;SCHAUEN OB ES DER 'N
EW'-CODE IST..4UC" BNE 50084 ;WENN NIC
HT DANN WEITER-KONTROLLIEREN.)4WC" JSR
115 ;NAECHSTES ZEICHEN.O4ZC" CMP #9
3 ;UND SCHAUEN OB ']'._4|C" BEQ 50049.
.4~C" JMP 44808 ;WENN NEIN SYNTAX-ERRO
R..4.C" JSR 49800 ;FORMATIER-PRG. SEND
EN.B4.C" LDA #193..4.C" JSR 49975 ;UN
D STARTEN..5.C" JSR 65484 ;CLRCHN (WAR
TEN DAS DIE ROUTINE FERTIG IST)./5.C" LD
X #1.I5.C" JSR 65481 ;CHKOUT..5.C"
LDA #73 ;UND EIN 'I' SENDEN (INITIAL
ISIERUNG DER FLOPPY)..5.C" JSR 65490 ;
CHROUT..5.C" JSR 65484 ;CLRCHN.P5.C" L
DA #1..5.C" JSR 65475 ;CLOSE..6.C"
JSR 115 ;NAECHSTES BYTE HOLEN.D6.C"
JMP 42926 ;UND ZURUECK ZUR ORIGINALROU
TINE.Y6.C" CMP #148 ;SCHAUEN OB ES DE
R 'SAVE'-CODE IST..6.C" BEQ 50091..6.C"
JMP 50455 ;WENN NICHT WEITERKONTROLLIE
REN..6.C" JSR 115 ;NAECHSTES ZEICHEN
NACH DEM 'SAVE' HOLEN.'7.C" JSR 44426
;DIE VARIABLE (ZAHL) AUSWERTEN.S7.C" JS
R 47095 ;IN ZWEIBYTE-FORM WANDELN.V7.C
" STY 251 ;UND ABSPEICHERN..7.C" STA
252..7.C" JSR 44797 ;PRUEFEN AUF KO
MMA..7.C" JSR 44426..7.C" JSR 47095 ;Z
WEIBYTE-ZAHL HOLEN..7AC" STY 253."8CC"
STA 254 ;UND ALS ENDADRESSE SPEICHE
RN.G8EC" JSR 44797 ;PRUEFEN AUF KOMMA.
W8HC" LDA 253.A8JC" SEC.Q8KC" SBC 25
1..8MC" STA 139 ;ENDADRESSE-ANFANGS
ADRESSE IN (139)..8OC" LDA 254.H8QC" S
BC 252..8SC" STA 140 ;ABSPEICHERN
..8UC" BCS 50140.C9WC" LDX #20 ;WEN
N ENDADRESSE < ANFANGSADRESSE DANN DIVIS
ION BY ZERO.E9YC" JMP 42042 ;ERROR-AU
SGABE.U9.C" LDX #0..9.C" LDA 139..9
.C" SEC..9.C" SBC #254..9.C" STA 139.
.9.C" LDA 140.O9.C" SBC #0..:.C" ST
A 140 ;DIFFERENZ DURCH 254 DIVIDIER
EN (BLOCKLAENGE).0:.C" BCC 50160 ;WEN
N FERTIG.::.C" INX.`:.C" BNE 50142 ;W
EITER DIVIDIEREN..:.C" CPX #79 ;SCH
AUEN OB DAS FILE LAENGER ALS 78 BLOECKE
WIRD..:.C" BCC 50169..:.C" LDX #15
;WENN JA DANN OVERFLOW ERROR..:.C" JMP 4
2042..:.C" TXA.%;.C" PHA ;BLOCK
ANZAHL RETTEN.I;.C" JSR 47006 ;DEN AN
FANGSBLOCK VOM BASIC INS X-REGISTER HOLE
N.S;.C" TXA..;.C" PHA ;UND RETT
EN..;.D" JSR 121 ;EIN BASIC-ZEICHEN
HOLEN..;.D" CMP #93 ;UND SCHAUEN O
B ']'..;.D" BEQ 50186.%<.D" JMP 44808
;WENN NEIN DANN SYNTAX ERROR.O<.D" JSR
115 ;NAECHSTES ZEICHEN HOLEN (VORBE
REITUNG FUER DEN RUECK-..<.D" PLA
;-SPRUNG ZUM INTERPRETER) ANFANGSBLOC
K WIEDER HOLEN.Z<.D" STA 139 ;UND A
BSPEICHERN..=.D" PLA ;FILE-LAEN
GE HOLEN..=.D" CLC.2=.D" ADC 139 ;A
NFANG DAZUADDIEREN.O=.D" CMP #79 ;U
ND SCHAUEN OB DER LETZTE BLOCK > 78 IST.
=.D" BCC 50205..=.D" LDX #14 ;WENN
JA DANN ILLEGAL QUANTITY ERROR.T=.D" JM
P 42042 ;AUSGEBEN..>.D" JSR 49803
;DAS FLOPPY-PROGRAMM ZUM SCHREIBEN SENDE
N.!> D" LDA #2.1>"D" LDX 49799.;>%D"
TAY.V>&D" JSR 65466 ;SETLFS.F>)D" LDA
#2.V>+D" LDX #53..>-D" LDY #195..
>/D" JSR 65469 ;SETNAM.K>2D" JSR 6547
2 ;OPEN (OPEN2,8,2,"#1")..>5D" BCC 50
305 ;WENN KEIN FEHLER DANN WEITER..?7
D" JMP 57593 ;FEHLER.Z?:D" JSR 65484
;CLRCHN UNTERROUTINE ZUM SENDEN VON
'B-P 2 0'.J?=D" LDX #1..??D" JSR 654
81 ;CHKOUT..?BD" LDY #0..?DD" LDA
49792,Y ;'B-P 2 0'.N?GD" JSR 65490 ;
SENDEN..?JD" BCS 50231..?LD" INY..?MD" C
PY #7..@OD" BNE 50244.#@QD" JMP 65484
;CLRCHN.Q@TD" LDA 139 ;ROUTINE
ZUM SENDEN VON SPUR UND SEKTOR('M-W' 254
7 2 X Y)..@VD" LSR ;BLOCK LADE
N..@WD" LSR ;UND DURCH 16 TEILE
N.C@XD" LSR.M@YD" LSR.W@ZD" CLC..@[D" AD
C #36..A]D" STA 49969 ;+36=AKTUELLE
SPUR..A`D" LDA 139.-ABD" AND #15.AA
DD" STA 49970 ;BLOCK AND 15 = AKTUELL
ER SEKTOR.|AGD" JSR 65484 ;CLRCHN..AJ
D" LDX #1..ALD" JSR 65481 ;CHKOUT.
.AOD" LDY #0..AQD" LDA 49963,Y ;'M-W
' 254 7 2 X Y..ATD" JSR 65490 ;SENDEN
..BWD" BCS 50231..BYD" INY."BZD" CPY
#8.2B|D" BNE 50289.CB~D" JMP 65484 ;C
LRCHN UND ENDE UNTERROUTINE.~B.D" JSR 65
484 ;CLRCHN..B.D" LDX #2..B.D" JSR
65478 ;CHKIN.BB.D" JSR 65487 ;CHR
IN..B.D" JSR 65463 ;STATUS..B.D" BEQ
50324..C.D" JMP 42082 ;WENN <>0 DANN
'ERROR'.MC.D" JSR 50260 ;AKTUELLEN TR
ACK UND SEKTOR SENDEN.RC.D" JSR 50234
;'B-P 2 0' SENDEN..C.D" LDX #2..C.D"
JSR 65481 ;CHROUT..C.D" LDA 253..C
.D" SEC.GC.D" SBC 251.WC.D" STA 140.
.C.D" LDA 254.)D.D" SBC 252 ;SCHA
UEN OB DAS DER LETZTE BOLCK DES FILES IS
T.GD.D" BNE 50354 ;WENN NEIN.WD.D" LD
Y 140.GD.D" CPY #254..D.D" BCC 50399
;WENN JA.MD.D" LDA #255 ;WENN ETWAS
ANDERES ALS 255 GESENDET WIRD SO IST DA
S DAS..E.D" JSR 65490 ;KENNZEICHEN DA
S DER BETREFFENDE BLOCK DER LETZTE IST..
'E.D" LDY #0.:E.D" LDA (251),Y.PE.D"
JSR 65490 ;CHROUT 254 DATENBYTES UEB
ERTRAGEN..E.D" BCS 50295..E.D" INY..EAD"
CPY #254..ECD" BNE 50361.EEED" JSR 654
84 ;CLRCHN.UEHD" LDA #222..FJD" JSR
49975 ;FLOPPY-ROUTINE STARTEN..FMD" N
OP..FND" NOP.CFOD" INC 139 ;ZEIGER
AUF NAECHSTEN BLOCK.SFQD" LDA 251.]FSD
" CLC.MFTD" ADC #254..FVD" STA 251
;ANFANGSADRESSE ERHOEHEN..FXD" BCC 5039
6..FZD" INC 252..F.D" JMP 50324 ;NA
ECHSTEN BLOCK SENDEN."G.D" INY
;ADRESSE DES LETZTEN GULTIGEN BYTES SEND
EN.,G.D" TYA.GG.D" JSR 65490 ;CHROUT.
JG.D" STY 141 ;ADRESSE RETTEN.ZG.D"
LDY #0..G.D" LDA (251),Y.JG.D" JSR
65490 ;CHROUT GUELTIGEN TEIL DES BLOC
KES SENDEN.TG.D" INY..G.D" CPY 141..G.
D" BNE 50408..H.D" JSR 65484 ;CLRCHN.
.H.D" LDA #222.JH.D" JSR 49975 ;FLOP
PY-ROUTINE STARTEN.EH.D" JSR 65484 ;C
LRCHN.UH.D" LDA #2..H.D" JSR 65475
;CLOSE2. H.E" LDX #1..H.E" JSR 65481
..H.E" LDA #73..H.E" JSR 65490 ;PRI
NT#1,"I"..H.E" JSR 65484..I.E" LDA #1
..I.E" JSR 65475 ;CLOSE1.OI.E" JMP 42
926 ;RETOUR ZUR INTERPRETER-SCHLEIFE.
.I.E" CMP #147 ;SCHAUEN OB ES DER 'L
OAD'-CODE IST..I.E" BEQ 50462..I.E" JMP
50650 ;NAECHSTER BEFEHL.JI.E" JSR 1
15.ZI!E" JSR 44426..I$E" JSR 47095..I'E"
STY 251."J)E" STA 252 ;ANFANGSAD
RESE HOLEN.2J+E" JSR 44797.YJ.E" JSR 470
06 ;ANFANGSBLOCK HOLEN.J1E" CPX #7
9 ;WENN BLOCKNR. >78..J3E" BCC 50490.
HJ5E" LDX #14 ;DANN ILLEGAL QUANTIT
Y ERROR AUSGEBEN.XJ7E" JMP 42042..K:E" S
TX 139 ;ANFANGSBLOCK RETTEN..K<E" J
SR 121.6K?E" JSR 50703 ;KONTROLLE A
UF ']'.@KBE" NOP.PKCE" JSR 115..KFE" J
SR 49806 ;FLOPPY-PRG. ZUM LESEN SENDE
N..KIE" LDA #2..KKE" LDX 49799..KNE"
TAY.FKOE" JSR 65466 ;SETLFS.VKRE" LDA
#2..KTE" LDX #51..KVE" LDY #195..
LXE" JSR 65469 ;SETNAM.;L[E" JSR 6547
2 ;OPEN (OPEN2,8,2,"#0").KL^E" BCC 50
531.FL`E" JMP 57593 ;FEHLER..LCE" JSR
65484 ;CLRCHN..LFE" LDX #2..LHE"
JSR 65478 ;CHKIN.ELKE" JSR 65487 ;
CHRIN..LNE" JSR 65463 ;STATUS..LQE" B
EQ 50550..MSE" JMP 42082 ;WENN ST <>
0 DANN 'ERROR'.IMVE" JSR 50260 ;SPUR
UND SEKTOR SENDEN.YMYE" LDA #145..M{E"
JSR 49975 ;BLOCK LESEN (FLOPPY-ROUTIN
E STARTEN..M~E" JSR 50234 ;'B-P 2 0'
SENDEN.FM.E" LDX #2..M.E" JSR 65478
;CHKIN..M.E" JSR 65487 ;CHRIN.;N.E"
STA 141 ;1. BYTE ALS ANZAHL GUELTI
GER BYTES +1 RETTEN.KN.E" LDY #0.[N.E
" JSR 65487.WN.E" BCS 50528 ;FEHLER?.
.N.E" STA (251),Y ;ALLE BYTES HOLEN UND
SPEICHERN..N.E" INY..N.E" CPY 141
;SCHAUEN OB ALLE GUELTIGEN BYTES..O.E" B
NE 50573 ;WENN NEIN NAECHSTES.+O.E" J
SR 65484 ;CLRCHN.;O.E" LDA 141.SO.E
" CMP #255 ;SCHAUEN OB ALLE BYTES GU
ELTIG WAREN..O E" BNE 50618 ;WENN NEI
N DANN WAR ES DER LETZTE BLOCK.JO.E" LDA
251 ;WENN JA.TO.E" CLC..O.E" ADC
#254..P.E" STA 251 ;ADRESSE =ADRES
SE+254..P.E" BCC 50605.0P.E" INC 252
.BP.E" INC 139 ;BLOCK-ZEIGER UM EIN
S ERHOEHEN.SP.E" LDA 139..P.E" CMP
#79 ;WENN BLOCK-ZEIGER ZU HOCH (>78).
.P.E" BCC 50550 ;WENN NICHT NAECHSTEN
BLOCK HOLEN..Q.E" LDX #14 ;DANN IL
LEGAL QUANTITY ERROR.)Q.E" JMP 42042
;AUSGEBEN.:Q.E" LDA #2.UQ.E" JSR 65
475 ;CLOSE2.FQ.E" LDX #1..QAE" JSR
65481 ;CHKOUT..QDE" LDA #73..QFE"
JSR 65490 ;PRINT#1,"I".MQIE" JSR 65
484 ;CLRCHN..QLE" LDA #1..QNE" JSR
65475 ;CLOSE1..RQE" JMP 42926 ;ZU
RUECK ZUR INTERPRETER-SCHLAUFE.>RTE" JSR
121.SRWE" JMP 42983 ;EINSPRUNG FUE
R BEFEHL-ABARBEITEN..RZE" CMP #161 ;
SCHAUEN OB GET..R.E" BEQ 50657.LR.E" JMP
50839 ;WENN NICHT WEITER..R.E" JSR
115..S.E" JSR 45195 ;STRINGZEIGER-AD
RESSE HOLEN..S.E" STA 73.=S.E" STY
74 ;UND SPEICHERN.XS.E" LDA #255
;LAENGE..S.E" JSR 46197 ;PLATZ IM ST
RING-BEREICH RESERVIEREN. S.E" LDY #2
.AS.E" LDA 97,Y ;NEUE ADRESSE..S.E"
STA (73),Y ;BEIM STRINGZEIGER RICHTEN.
.T.E" PHA ;UND RETTEN..T.E" DEY
.(T.E" BPL 50674.NT.E" JSR 44797 ;PRU
EFEN AUF KOMMA.RT.E" JSR 47006 ;BLOCK
-NR. HOLEN..T.F" CPX #79..T.F" BCC 506
98.JT.F" LDX #14 ;WENN ZU GROSS DAN
N ILLEGAL QUANTITY..T.F" JMP 42042 ;A
USGEBEN..U.F" STX 139 ;BLOCK SPEICH
ERN..U.F" JMP 50711.UU.F" CMP #93 ;
EINSCHUB VON EINER VORHERIGEN ROUTINE.{U
.F" BEQ 50710 ;(PRUEFEN AUF ']')..U.F
" JMP 44808 ;SYNTAX-ERROR..U.F" RTS..
U.F" JSR 121.ZU.F" JSR 50703 ;PRUEF
EN AUF ']'..V.F" JSR 115 ;ZAEHLER A
UF NAECHSTEN BEFEHL RICHTEN.EV F" JSR 49
806 ;FLOPPY-ROUTINE 'LESEN' SENDEN..V
#F" PLA ;ZEIGER UND LAENGE DES
NEUEN STRINGS HOLEN..V$F" STA 141..V&F
" PLA..V'F" STA 251..V)F" PLA.YV*F" ST
A 252 ;UND SPEICHERN..V,F" LDA #
2..V.F" LDX 49799..W1F" TAY..W2F" JSR 65
466 ;SETLFS..W5F" LDA #2.>W7F" LDX
#51.NW9F" LDY #195.IW;F" JSR 65469
;SETNAM..W>F" JSR 65472 ;OPEN 2,8,2
,"#0"..WAF" BCC 50758..WCF" JMP 57593
;FEHLER.SWFF" JSR 65484 ;CLRCHN..WIF
" LDX #2..WKF" JSR 65478 ;CHKIN..X
NF" JSR 65487 ;CHRIN.2XQF" JSR 65463
;STATUS.TXTF" BEQ 50777 ;KONTROLLI
EREN.YXVF" JMP 42082 ;'ERROR' AUSGEBE
N..XYF" JSR 50260 ;SPUR + SEKTOR SEND
EN..X\F" LDA #145.VX^F" JSR 49975 ;R
OUTINE STARTEN..XAF" JSR 50234 ;B-P 2
0..YDF" LDX #2..YFF" JSR 65478 ;C
HKIN.&YIF" NOP.0YJF" NOP.:YKF" NOP.JYLF"
LDY #0.NYNF" JSR 65487 ;255 BYTES
HOLEN..YQF" BCS 50755 ;FEHLER ?..YSF
" STA (251),Y ;UND ALS STRING SPEICHERN
.BYUF" INY.RYVF" CPY 141..YXF" BNE 507
98..YZF" JSR 65484 ;CLRCHN..Z}F" LDA
#2.(ZF" JSR 65475 ;CLOSE2.8Z.F" L
DX #1.SZ.F" JSR 65481 ;CHKOUT.CZ.F
" LDA #73..Z.F" JSR 65490 ;PRINT#1,
"I"..Z.F" JSR 65484 ;CLRCHN..Z.F" LDA
#1.IZ.F" JSR 65475 ;CLOSE1..Z.F"
JMP 42926 ;ZUM INTERPRETER..[.F" CMP
#153 ;SCHAUEN OB PRINT-CODE.'[.F" BE
Q 50846.R[.F" JMP 44808 ;WENN NEIN SY
NTAX-ERROR.B[.F" JSR 115..[.F" JSR 451
95 ;ADRESSE DES STRING-ZEIGERS HOLEN.
.[.F" PHA..[.F" TYA.J[.F" PHA ;
UND RETTEN..[.F" JSR 44797 ;KOMMA..\.
F" JSR 47006 ;BLOCKNR. HOLEN..\.F" CP
X #79.3\.F" BCC 50870 ;PRUEFEN.C\.F
" LDX #14.G\.F" JMP 42042 ;ILLEG. Q
UANTITY..\.F" STX 139 ;UND SPEICHER
N..\.F" JSR 121..\.F" JSR 50703 ;PR
UEFEN AUF ']'.M\.F" JSR 115.W\AF" PLA.
.\BF" STA 98..\DF" PLA..]EF" JSR 5100
8 ;LAENGE PRUEFEN..]HF" INY.1]IF" LDA
(97),Y.A]KF" STA 251.K]MF" INY..]NF
" LDA (97),Y ;ADRESSE DES EIGENTLICHEN
STRINGS VOM STRING-ZEIGER HER..]PF" STA
252 ;HOLEN UND SPEICHERN..]RF" JSR
49803 ;'SCHREIBEN' SENDEN..]UF" LDA
#2..^WF" LDX 49799..^ZF" TAY..^.F" JS
R 65466./^.F" LDA #2.?^.F" LDX #53.
O^.F" LDY #195._^.F" JSR 65469..^.F" JS
R 65472 ;OPEN2,8,2,"#1"..^.F" BCC 509
27..^.F" JMP 57593 ;FEHLER..^.F" JSR
65484.M^.F" LDX #2..^.F" JSR 65478..^
.F" JSR 65487..^.F" JSR 65463.._.F" BEQ
50946.._.F" JMP 42082.F_.G" JSR 50260
;SPUR + SEKTOR SENDEN.I_.G" JSR 50234
;B-P 2 0 SENDEN.Y_.G" LDX #2.._.G"
JSR 65481 ;CHKOUT.._.G" LDY #0.W_.
G" LDA (251),Y ;255 DATEN AUS DEM STRIN
G LESEN.._.G" JSR 65490 ;UND SENDEN..
`.G" BCS 50924..`.G" INY. `.G" CPY #255
.0`.G" BNE 50959.K`.G" JSR 65484 ;CLR
CHN.[`.G" LDA #222..` G" JSR 49975 ;
FLOPPY-ROUTINE STARTEN..`#G" JSR 65484..
`&G" LDA #2.A`(G" JSR 65475 ;CLOSE
2.Q`+G" LDX #1..`-G" JSR 65481..`0G"
LDA #73..A2G" JSR 65490 ;PRINT#1,"I
".!A5G" JSR 65484.1A8G" LDA #1.LA:G"
JSR 65475 ;CLOSE1.NA=G" JMP 42926
;ZUM INTERPRET..A@G" STA 97 ;EINSC
HUB (LAENGE BESTIMMEN)..ABG" LDY #0.Q
ADG" LDA (97),Y ;LAENGE HOLEN..AFG"
CMP #255..AHG" BEQ 51023.1BJG" LDX #2
3 ;WENN FALSCH DANN STRING TOO LONG
AUSGEBEN.ABLG" JMP 42042.KBOG" RTS.TBPG
".EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL