QUELLTEXT 1
FILE INFORMATION
FILENAME(S): QUELLTEXT 1
FILE TYPE(S): PRG
FILE SIZE: 9.3K
FIRST SEEN: 2025-11-30 01:12:46
APPEARS ON: 1 disk(s)
FILE HASH
7424cbf00e8ec10ca031658140c7dffbb373c04dc02540705bb87b5a6d939c3c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10001 SEITE 1 | QUELLTEXT 1 | PRG | C64er | 12 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 0A 00 3A 20 20 20 20 20 20 20 20 20 |......: |
00000010: 20 9E 20 33 36 38 36 34 00 31 08 0F 00 3A 20 20 | . 36864.1...: |
00000020: 20 20 20 20 20 20 20 20 2E 4F 50 54 20 20 20 4F | .OPT O|
00000030: 4F 00 48 08 14 00 3A 20 20 20 20 20 20 20 20 20 |O.H...: |
00000040: 20 AC B2 24 43 30 30 30 00 4F 08 19 00 3A 3B 00 | ..$C000.O...:;.|
00000050: 5F 08 1E 00 9B 45 4E 20 B2 20 24 46 46 42 31 00 |_....EN . $FFB1.|
00000060: 71 08 23 00 53 45 43 91 44 20 B2 20 24 46 46 39 |q.#.SEC.D . $FF9|
00000070: 33 00 84 08 28 00 49 45 43 4F 55 54 20 B2 20 24 |3...(.IECOUT . $|
00000080: 46 46 41 38 00 97 08 2D 00 55 4E 4C 53 54 4E 20 |FFA8...-.UNLSTN |
00000090: B2 20 24 46 46 41 45 00 AC 08 32 00 44 49 53 4B |. $FFAE...2.DISK|
000000A0: 4E 41 4D 45 20 B2 20 24 30 34 38 30 00 BF 08 37 |NAME . $0480...7|
000000B0: 00 43 48 52 4F 55 54 20 B2 20 24 46 46 44 32 00 |.CHROUT . $FFD2.|
000000C0: CE 08 3C 00 43 B5 20 B2 20 24 45 35 31 38 00 E0 |..<.C. . $E518..|
000000D0: 08 41 00 43 48 52 49 4E 20 B2 20 24 46 46 43 46 |.A.CHRIN . $FFCF|
000000E0: 00 EE 08 46 00 A1 20 B2 20 24 46 46 45 34 00 00 |...F.. . $FFE4..|
000000F0: 09 4B 00 49 45 43 49 4E 20 B2 20 24 46 46 41 35 |.K.IECIN . $FFA5|
00000100: 00 11 09 50 00 54 41 4C 4B 20 B2 20 24 46 46 42 |...P.TALK . $FFB|
00000110: 34 00 24 09 55 00 55 4E 54 41 4C 4B 20 B2 20 24 |4.$.U.UNTALK . $|
00000120: 46 46 41 42 00 37 09 5A 00 54 41 4C 4B 53 41 20 |FFAB.7.Z.TALKSA |
00000130: B2 20 24 46 46 39 36 00 48 09 5F 00 50 4C 4F 54 |. $FF96.H._.PLOT|
00000140: 20 B2 20 24 46 46 46 30 00 4F 09 64 00 3A 3B 00 | . $FFF0.O.d.:;.|
00000150: 56 09 69 00 3A 3B 00 7C 09 6E 00 3A 3B AC AC AC |V.i.:;.|.n.:;...|
00000160: AC AC AC 20 42 49 4C 44 53 43 48 49 52 4D 41 55 |... BILDSCHIRMAU|
00000170: 46 42 41 55 20 AC AC AC AC AC AC AC 00 83 09 73 |FBAU ..........s|
00000180: 00 3A 3B 00 99 09 78 00 4D 45 4E 55 20 20 20 20 |.:;...x.MENU |
00000190: 20 20 20 4C 44 58 20 23 30 00 B0 09 7D 00 3A 20 | LDX #0...}.: |
000001A0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 33 32 | LDA #32|
000001B0: 00 C8 09 82 00 9C 4E 41 4D 45 20 20 20 20 53 54 |......NAME ST|
000001C0: 41 20 4E 41 4D 45 2C 58 00 DB 09 87 00 3A 20 20 |A NAME,X.....: |
000001D0: 20 20 20 20 20 20 20 20 49 4E 58 00 F2 09 8C 00 | INX.....|
000001E0: 3A 20 20 20 20 20 20 20 20 20 20 43 50 58 20 23 |: CPX #|
000001F0: 31 36 00 0B 0A 91 00 3A 20 20 20 20 20 20 20 20 |16.....: |
00000200: 20 20 42 43 43 20 9C 4E 41 4D 45 00 24 0A 96 00 | BCC .NAME.$...|
00000210: 3A 20 20 20 20 20 20 20 20 20 20 53 54 41 20 49 |: STA I|
00000220: 44 31 AA 31 00 3D 0A 9B 00 3A 20 20 20 20 20 20 |D1.1.=...: |
00000230: 20 20 20 20 53 54 41 20 49 44 31 AA 32 00 53 0A | STA ID1.2.S.|
00000240: A0 00 3A 20 20 20 20 20 20 20 20 20 20 4A 53 52 |..: JSR|
00000250: 20 43 B5 00 69 0A A5 00 3A 20 20 20 20 20 20 20 | C..i...: |
00000260: 20 20 20 4C 44 41 20 23 30 00 82 0A AA 00 3A 20 | LDA #0.....: |
00000270: 20 20 20 20 20 20 20 20 20 53 54 41 20 35 33 32 | STA 532|
00000280: 38 30 00 9B 0A AF 00 3A 20 20 20 20 20 20 20 20 |80.....: |
00000290: 20 20 53 54 41 20 35 33 32 38 31 00 B9 0A B4 00 | STA 53281.....|
000002A0: 3A 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |: LDA #|
000002B0: B3 28 53 43 52 45 45 4E 29 00 D0 0A B9 00 3A 20 |.(SCREEN).....: |
000002C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 42 | STA $FB|
000002D0: 00 EE 0A BE 00 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
000002E0: 4C 44 41 20 23 B1 28 53 43 52 45 45 4E 29 00 05 |LDA #.(SCREEN)..|
000002F0: 0B C3 00 3A 20 20 20 20 20 20 20 20 20 20 53 54 |...: ST|
00000300: 41 20 24 46 43 00 1B 0B C8 00 3A 20 20 20 20 20 |A $FC.....: |
00000310: 20 20 20 20 20 4C 44 59 20 23 30 00 36 0B CD 00 | LDY #0.6...|
00000320: 4F 55 54 50 55 54 31 20 20 20 20 4C 44 41 20 28 |OUTPUT1 LDA (|
00000330: 24 46 42 29 2C 59 00 50 0B D2 00 3A 20 20 20 20 |$FB),Y.P...: |
00000340: 20 20 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 | JSR CHROUT|
00000350: 00 63 0B D7 00 3A 20 20 20 20 20 20 20 20 20 20 |.c...: |
00000360: 49 4E 59 00 7B 0B DC 00 3A 20 20 20 20 20 20 20 |INY.{...: |
00000370: 20 20 20 42 4E 45 20 43 48 4B 80 00 92 0B E1 00 | BNE CHK......|
00000380: 3A 20 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 |: INC $|
00000390: 46 43 00 A8 0B E6 00 43 48 4B 80 20 20 20 20 20 |FC.....CHK. |
000003A0: 43 4D 50 20 23 31 36 30 00 C3 0B EB 00 3A 20 20 |CMP #160.....: |
000003B0: 20 20 20 20 20 20 20 20 42 4E 45 20 4F 55 54 50 | BNE OUTP|
000003C0: 55 54 31 00 DB 0B F0 00 3A 20 20 20 20 20 20 20 |UT1.....: |
000003D0: 20 20 20 4C 44 58 20 23 24 46 46 00 F0 0B F5 00 | LDX #$FF.....|
000003E0: 85 31 20 20 20 20 20 4A 53 52 20 43 48 52 49 4E |.1 JSR CHRIN|
000003F0: 00 07 0C FA 00 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
00000400: 43 4D 50 20 23 31 33 00 21 0C FF 00 3A 20 20 20 |CMP #13.!...: |
00000410: 20 20 20 20 20 20 20 42 45 51 20 CB 54 4E 41 4D | BEQ .TNAM|
00000420: 45 00 34 0C 04 01 3A 20 20 20 20 20 20 20 20 20 |E.4...: |
00000430: 20 49 4E 58 00 4B 0C 09 01 3A 20 20 20 20 20 20 | INX.K...: |
00000440: 20 20 20 20 43 50 58 20 23 31 36 00 61 0C 0E 01 | CPX #16.a...|
00000450: 3A 20 20 20 20 20 20 20 20 20 20 42 43 53 20 85 |: BCS .|
00000460: 31 00 7B 0C 13 01 3A 20 20 20 20 20 20 20 20 20 |1.{...: |
00000470: 20 53 54 41 20 4E 41 4D 45 2C 58 00 91 0C 18 01 | STA NAME,X.....|
00000480: 3A 20 20 20 20 20 20 20 20 20 20 42 43 43 20 85 |: BCC .|
00000490: 31 00 A6 0C 1D 01 CB 54 4E 41 4D 45 20 20 20 20 |1......TNAME |
000004A0: 4C 44 59 20 23 30 00 BF 0C 22 01 4F 55 54 50 55 |LDY #0...".OUTPU|
000004B0: 54 32 20 20 20 20 4C 44 41 20 49 44 32 2C 59 00 |T2 LDA ID2,Y.|
000004C0: D9 0C 27 01 3A 20 20 20 20 20 20 20 20 20 20 4A |..'.: J|
000004D0: 53 52 20 43 48 52 4F 55 54 00 EC 0C 2C 01 3A 20 |SR CHROUT...,.: |
000004E0: 20 20 20 20 20 20 20 20 20 49 4E 59 00 04 0D 31 | INY...1|
000004F0: 01 3A 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 |.: CMP |
00000500: 23 31 36 30 00 1F 0D 36 01 3A 20 20 20 20 20 20 |#160...6.: |
00000510: 20 20 20 20 42 4E 45 20 4F 55 54 50 55 54 32 00 | BNE OUTPUT2.|
00000520: 37 0D 3B 01 3A 20 20 20 20 20 20 20 20 20 20 4C |7.;.: L|
00000530: 44 58 20 23 24 46 46 00 4C 0D 40 01 85 32 20 20 |DX #$FF.L.@..2 |
00000540: 20 20 20 4A 53 52 20 43 48 52 49 4E 00 63 0D 45 | JSR CHRIN.c.E|
00000550: 01 3A 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 |.: CMP |
00000560: 23 31 33 00 7C 0D 4A 01 3A 20 20 20 20 20 20 20 |#13.|.J.: |
00000570: 20 20 20 42 45 51 20 53 54 41 52 54 00 8F 0D 4F | BEQ START...O|
00000580: 01 3A 20 20 20 20 20 20 20 20 20 20 49 4E 58 00 |.: INX.|
00000590: A5 0D 54 01 3A 20 20 20 20 20 20 20 20 20 20 43 |..T.: C|
000005A0: 50 58 20 23 32 00 BB 0D 59 01 3A 20 20 20 20 20 |PX #2...Y.: |
000005B0: 20 20 20 20 20 42 43 53 20 85 32 00 D6 0D 5E 01 | BCS .2...^.|
000005C0: 3A 20 20 20 20 20 20 20 20 20 20 53 54 41 20 49 |: STA I|
000005D0: 44 31 AA 31 2C 58 00 EC 0D 63 01 3A 20 20 20 20 |D1.1,X...c.: |
000005E0: 20 20 20 20 20 20 42 43 43 20 85 32 00 0B 0E 68 | BCC .2...h|
000005F0: 01 53 54 41 52 54 20 20 20 20 20 4C 44 41 20 23 |.START LDA #|
00000600: B3 28 46 52 4D 54 52 41 43 4B 29 00 21 0E 6D 01 |.(FRMTRACK).!.m.|
00000610: 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |: STA $F|
00000620: 42 00 40 0E 72 01 3A 20 20 20 20 20 20 20 20 20 |B.@.r.: |
00000630: 4C 44 41 20 23 B1 28 46 52 4D 54 52 41 43 4B 29 |LDA #.(FRMTRACK)|
00000640: 00 56 0E 77 01 3A 20 20 20 20 20 20 20 20 20 53 |.V.w.: S|
00000650: 54 41 20 24 46 43 00 76 0E 7C 01 3A 20 20 20 20 |TA $FC.v.|.: |
00000660: 20 20 20 20 20 4C 44 41 20 23 B3 28 42 55 46 46 | LDA #.(BUFF|
00000670: 45 52 57 52 54 29 00 8C 0E 81 01 3A 20 20 20 20 |ERWRT).....: |
00000680: 20 20 20 20 20 53 54 41 20 24 46 44 00 AC 0E 86 | STA $FD....|
00000690: 01 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |.: LDA #|
000006A0: B1 28 42 55 46 46 45 52 57 52 54 29 00 C2 0E 8B |.(BUFFERWRT)....|
000006B0: 01 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |.: STA $|
000006C0: 46 45 00 D9 0E 90 01 3A 20 20 20 20 20 20 20 20 |FE.....: |
000006D0: 20 4C 44 41 20 23 24 30 41 00 EF 0E 95 01 3A 20 | LDA #$0A.....: |
000006E0: 20 20 20 20 20 20 20 20 53 54 41 20 24 35 37 00 | STA $57.|
000006F0: 06 0F 9A 01 3A 20 20 20 20 20 20 20 20 20 4C 44 |....: LD|
00000700: 41 20 23 24 30 34 00 1C 0F 9F 01 3A 20 20 20 20 |A #$04.....: |
00000710: 20 20 20 20 20 53 54 41 20 24 35 38 00 38 0F A4 | STA $58.8..|
00000720: 01 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 42 |.: JSR B|
00000730: 55 46 46 45 52 57 52 54 00 4D 0F A9 01 3A 20 20 |UFFERWRT.M...: |
00000740: 20 20 20 20 20 20 20 4C 44 41 20 23 30 00 63 0F | LDA #0.c.|
00000750: AE 01 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 |..: STA |
00000760: 24 39 30 00 78 0F B3 01 3A 20 20 20 20 20 20 20 |$90.x...: |
00000770: 20 20 4C 44 41 20 23 38 00 8E 0F B8 01 3A 20 20 | LDA #8.....: |
00000780: 20 20 20 20 20 20 20 4A 53 52 20 9B 45 4E 00 A5 | JSR .EN..|
00000790: 0F BD 01 3A 20 20 20 20 20 20 20 20 20 4C 44 41 |...: LDA|
000007A0: 20 23 24 36 46 00 BD 0F C2 01 3A 20 20 20 20 20 | #$6F.....: |
000007B0: 20 20 20 20 4A 53 52 20 53 45 43 91 44 00 D3 0F | JSR SEC.D...|
000007C0: C7 01 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 |..: LDA |
000007D0: 24 39 30 00 EC 0F CC 01 3A 20 20 20 20 20 20 20 |$90.....: |
000007E0: 20 20 42 4D 49 20 44 45 56 45 52 52 00 05 10 D1 | BMI DEVERR....|
000007F0: 01 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 55 |.: JSR U|
00000800: 4E 4C 53 54 4E 00 1A 10 D6 01 3A 20 20 20 20 20 |NLSTN.....: |
00000810: 20 20 20 20 4C 44 41 20 23 38 00 31 10 DB 01 3A | LDA #8.1...:|
00000820: 20 20 20 20 20 20 20 20 20 4A 53 52 20 54 41 4C | JSR TAL|
00000830: 4B 00 48 10 E0 01 3A 20 20 20 20 20 20 20 20 20 |K.H...: |
00000840: 4C 44 41 20 23 24 36 46 00 61 10 E5 01 3A 20 20 |LDA #$6F.a...: |
00000850: 20 20 20 20 20 20 20 4A 53 52 20 54 41 4C 4B 53 | JSR TALKS|
00000860: 41 00 76 10 EA 01 3A 20 20 20 20 20 20 20 20 20 |A.v...: |
00000870: 4C 44 58 20 23 30 00 8E 10 EF 01 45 52 52 49 4E |LDX #0.....ERRIN|
00000880: 20 20 20 20 20 4A 53 52 20 49 45 43 49 4E 00 A8 | JSR IECIN..|
00000890: 10 F4 01 3A 20 20 20 20 20 20 20 20 20 53 54 41 |...: STA|
000008A0: 20 24 30 32 30 30 2C 58 00 BA 10 F9 01 3A 20 20 | $0200,X.....: |
000008B0: 20 20 20 20 20 20 20 49 4E 58 00 D0 10 FE 01 3A | INX.....:|
000008C0: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 33 | CMP #13|
000008D0: 00 E8 10 03 02 3A 20 20 20 20 20 20 20 20 20 42 |.....: B|
000008E0: 4E 45 20 45 52 52 49 4E 00 01 11 08 02 3A 20 20 |NE ERRIN.....: |
000008F0: 20 20 20 20 20 20 20 4A 53 52 20 55 4E 54 41 4C | JSR UNTAL|
00000900: 4B 00 19 11 0D 02 3A 20 20 20 20 20 20 20 20 20 |K.....: |
00000910: 4C 44 41 20 24 30 32 30 30 00 30 11 12 02 3A 20 |LDA $0200.0...: |
00000920: 20 20 20 20 20 20 20 20 43 4D 50 20 23 22 30 22 | CMP #"0"|
00000930: 00 47 11 17 02 3A 20 20 20 20 20 20 20 20 20 42 |.G...: B|
00000940: 4E 45 20 45 52 52 B0 00 5F 11 1C 02 3A 20 20 20 |NE ERR.._...: |
00000950: 20 20 20 20 20 20 4C 44 41 20 24 30 32 30 31 00 | LDA $0201.|
00000960: 76 11 21 02 3A 20 20 20 20 20 20 20 20 20 43 4D |v.!.: CM|
00000970: 50 20 23 22 30 22 00 8D 11 26 02 3A 20 20 20 20 |P #"0"...&.: |
00000980: 20 20 20 20 20 42 4E 45 20 45 52 52 B0 00 A4 11 | BNE ERR....|
00000990: 2B 02 3A 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |+.: JMP |
000009A0: 4D 45 4E 55 00 AB 11 30 02 3A 3B 00 C2 11 35 02 |MENU...0.:;...5.|
000009B0: 44 45 56 45 52 52 20 20 20 20 4C 44 58 20 23 24 |DEVERR LDX #$|
000009C0: 46 46 00 D4 11 3A 02 44 45 56 20 20 20 20 20 20 |FF...:.DEV |
000009D0: 20 49 4E 58 00 EE 11 3F 02 3A 20 20 20 20 20 20 | INX...?.: |
000009E0: 20 20 20 4C 44 41 20 24 41 31 44 30 2C 58 00 08 | LDA $A1D0,X..|
000009F0: 12 44 02 3A 20 20 20 20 20 20 20 20 20 53 54 41 |.D.: STA|
00000A00: 20 24 30 32 30 30 2C 58 00 1E 12 49 02 3A 20 20 | $0200,X...I.: |
00000A10: 20 20 20 20 20 20 20 42 50 4C 20 44 45 56 00 33 | BPL DEV.3|
00000A20: 12 4E 02 3A 20 20 20 20 20 20 20 20 20 AF 20 23 |.N.: . #|
00000A30: 24 37 46 00 4D 12 53 02 3A 20 20 20 20 20 20 20 |$7F.M.S.: |
00000A40: 20 20 53 54 41 20 24 30 32 30 30 2C 58 00 5F 12 | STA $0200,X._.|
00000A50: 58 02 3A 20 20 20 20 20 20 20 20 20 49 4E 58 00 |X.: INX.|
00000A60: 75 12 5D 02 3A 20 20 20 20 20 20 20 20 20 4C 44 |u.].: LD|
00000A70: 41 20 23 31 33 00 8F 12 62 02 3A 20 20 20 20 20 |A #13...b.: |
00000A80: 20 20 20 20 53 54 41 20 24 30 32 30 30 2C 58 00 | STA $0200,X.|
00000A90: A4 12 67 02 45 52 52 B0 20 20 20 20 20 49 4E 43 |..g.ERR. INC|
00000AA0: 20 31 39 39 00 B8 12 6C 02 3A 20 20 20 20 20 20 | 199...l.: |
00000AB0: 20 20 20 53 54 58 20 32 00 CE 12 71 02 3A 20 20 | STX 2...q.: |
00000AC0: 20 20 20 20 20 20 20 4C 44 58 20 23 32 30 00 E4 | LDX #20..|
00000AD0: 12 76 02 3A 20 20 20 20 20 20 20 20 20 4C 44 41 |.v.: LDA|
00000AE0: 20 23 34 30 00 F6 12 7B 02 3A 20 20 20 20 20 20 | #40...{.: |
00000AF0: 20 20 20 53 45 43 00 0A 13 80 02 3A 20 20 20 20 | SEC.....: |
00000B00: 20 20 20 20 20 53 42 43 20 32 00 1C 13 85 02 3A | SBC 2.....:|
00000B10: 20 20 20 20 20 20 20 20 20 4C 53 52 00 2E 13 8A | LSR....|
00000B20: 02 3A 20 20 20 20 20 20 20 20 20 54 41 59 00 40 |.: TAY.@|
00000B30: 13 8F 02 3A 20 20 20 20 20 20 20 20 20 43 4C 43 |...: CLC|
00000B40: 00 57 13 94 02 3A 20 20 20 20 20 20 20 20 20 4A |.W...: J|
00000B50: 53 52 20 50 4C 4F 54 00 6C 13 99 02 3A 20 20 20 |SR PLOT.l...: |
00000B60: 20 20 20 20 20 20 4C 44 58 20 23 30 00 86 13 9E | LDX #0....|
00000B70: 02 45 52 52 4F 55 54 20 20 20 20 4C 44 41 20 24 |.ERROUT LDA $|
00000B80: 30 32 30 30 2C 58 00 9F 13 A3 02 3A 20 20 20 20 |0200,X.....: |
00000B90: 20 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 00 | JSR CHROUT.|
00000BA0: B1 13 A8 02 3A 20 20 20 20 20 20 20 20 20 49 4E |....: IN|
00000BB0: 58 00 C7 13 AD 02 3A 20 20 20 20 20 20 20 20 20 |X.....: |
00000BC0: 43 4D 50 20 23 31 33 00 E0 13 B2 02 3A 20 20 20 |CMP #13.....: |
00000BD0: 20 20 20 20 20 20 42 4E 45 20 45 52 52 4F 55 54 | BNE ERROUT|
00000BE0: 00 F6 13 B7 02 3A 20 20 20 20 20 20 20 20 20 4C |.....: L|
00000BF0: 53 52 20 31 39 39 00 0A 14 BC 02 49 4E 4B 45 59 |SR 199.....INKEY|
00000C00: 20 20 20 20 20 4A 53 52 20 A1 00 22 14 C1 02 3A | JSR .."...:|
00000C10: 20 20 20 20 20 20 20 20 20 42 45 51 20 49 4E 4B | BEQ INK|
00000C20: 45 59 00 39 14 C6 02 3A 20 20 20 20 20 20 20 20 |EY.9...: |
00000C30: 20 4A 4D 50 20 4D 45 4E 55 00 40 14 CB 02 3A 3B | JMP MENU.@...:;|
00000C40: 00 65 14 D0 02 3A 3B AC AC AC AC AC AC 20 81 4D |.e...:;...... .M|
00000C50: 41 54 AB 49 52 51 50 52 4F 47 52 41 4D 4D 20 AC |AT.IRQPROGRAMM .|
00000C60: AC AC AC AC AC 00 6C 14 D5 02 3A 3B 00 84 14 DA |......l...:;....|
00000C70: 02 46 52 4D 54 52 41 43 4B 20 20 4C 44 41 20 24 |.FRMTRACK LDA $|
00000C80: 31 43 30 30 00 99 14 DF 02 3A 20 20 20 20 20 20 |1C00.....: |
00000C90: 20 20 20 AF 20 23 24 31 30 00 B2 14 E4 02 3A 20 | . #$10.....: |
00000CA0: 20 20 20 20 20 20 20 20 42 4E 45 20 44 49 53 4B | BNE DISK|
00000CB0: 87 59 00 C7 14 E9 02 3A 20 20 20 20 20 20 20 20 |.Y.....: |
00000CC0: 20 4C 44 41 20 23 38 00 DF 14 EE 02 3A 20 20 20 | LDA #8.....: |
00000CD0: 20 20 20 20 20 20 4A 4D 50 20 24 46 39 36 39 00 | JMP $F969.|
00000CE0: F4 14 F3 02 44 49 53 4B 87 59 20 4C 44 41 20 24 |....DISK.Y LDA $|
00000CF0: 31 43 30 43 00 09 15 F8 02 3A 20 20 20 20 20 20 |1C0C.....: |
00000D00: 20 20 20 AF 20 23 24 31 46 00 1F 15 FD 02 3A 20 | . #$1F.....: |
00000D10: 20 20 20 20 20 20 20 20 B0 41 20 23 24 43 30 00 | .A #$C0.|
00000D20: 37 15 02 03 3A 20 20 20 20 20 20 20 20 20 53 54 |7...: ST|
00000D30: 41 20 24 31 43 30 43 00 4E 15 07 03 3A 20 20 20 |A $1C0C.N...: |
00000D40: 20 20 20 20 20 20 4C 44 41 20 23 24 46 46 00 66 | LDA #$FF.f|
00000D50: 15 0C 03 3A 20 20 20 20 20 20 20 20 20 53 54 41 |...: STA|
00000D60: 20 24 31 43 30 33 00 7D 15 11 03 3A 20 20 20 20 | $1C03.}...: |
00000D70: 20 20 20 20 20 4C 44 41 20 23 24 35 35 00 95 15 | LDA #$55...|
00000D80: 16 03 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 |..: STA |
00000D90: 24 31 43 30 31 00 AB 15 1B 03 3A 20 20 20 20 20 |$1C01.....: |
00000DA0: 20 20 20 20 4C 44 41 20 24 30 36 00 C3 15 20 03 | LDA $06... .|
00000DB0: 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |: JSR $F|
00000DC0: 32 34 42 00 D9 15 25 03 3A 20 20 20 20 20 20 20 |24B...%.: |
00000DD0: 20 20 53 54 41 20 24 34 33 00 EE 15 2A 03 3A 20 | STA $43...*.: |
00000DE0: 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 00 04 | LDY #0..|
00000DF0: 16 2F 03 3A 20 20 20 20 20 20 20 20 20 53 54 59 |./.: STY|
00000E00: 20 24 30 37 00 19 16 34 03 53 45 54 48 45 41 44 | $07...4.SETHEAD|
00000E10: 45 52 20 4C 44 41 20 23 38 00 33 16 39 03 3A 20 |ER LDA #8.3.9.: |
00000E20: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 37 30 | STA $070|
00000E30: 30 2C 59 00 45 16 3E 03 3A 20 20 20 20 20 20 20 |0,Y.E.>.: |
00000E40: 20 20 49 4E 59 00 5A 16 43 03 3A 20 20 20 20 20 | INY.Z.C.: |
00000E50: 20 20 20 20 4C 44 41 20 23 30 00 6F 16 48 03 3A | LDA #0.o.H.:|
00000E60: 20 20 20 20 20 20 20 20 20 45 B0 20 24 30 37 00 | E. $07.|
00000E70: 84 16 4D 03 3A 20 20 20 20 20 20 20 20 20 45 B0 |..M.: E.|
00000E80: 20 24 30 36 00 99 16 52 03 3A 20 20 20 20 20 20 | $06...R.: |
00000E90: 20 20 20 45 B0 20 24 31 33 00 AE 16 57 03 3A 20 | E. $13...W.: |
00000EA0: 20 20 20 20 20 20 20 20 45 B0 20 24 31 32 00 C8 | E. $12..|
00000EB0: 16 5C 03 3A 20 20 20 20 20 20 20 20 20 53 54 41 |.\.: STA|
00000EC0: 20 24 30 37 30 30 2C 59 00 DA 16 61 03 3A 20 20 | $0700,Y...a.: |
00000ED0: 20 20 20 20 20 20 20 49 4E 59 00 F0 16 66 03 3A | INY...f.:|
00000EE0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 37 | LDA $07|
00000EF0: 00 0A 17 6B 03 3A 20 20 20 20 20 20 20 20 20 53 |...k.: S|
00000F00: 54 41 20 24 30 37 30 30 2C 59 00 1C 17 70 03 3A |TA $0700,Y...p.:|
00000F10: 20 20 20 20 20 20 20 20 20 49 4E 59 00 32 17 75 | INY.2.u|
00000F20: 03 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |.: LDA $|
00000F30: 30 36 00 4C 17 7A 03 3A 20 20 20 20 20 20 20 20 |06.L.z.: |
00000F40: 20 53 54 41 20 24 30 37 30 30 2C 59 00 5E 17 7F | STA $0700,Y.^..|
00000F50: 03 3A 20 20 20 20 20 20 20 20 20 49 4E 59 00 74 |.: INY.t|
00000F60: 17 84 03 3A 20 20 20 20 20 20 20 20 20 4C 44 41 |...: LDA|
00000F70: 20 24 31 33 00 8E 17 89 03 3A 20 20 20 20 20 20 | $13.....: |
00000F80: 20 20 20 53 54 41 20 24 30 37 30 30 2C 59 00 A0 | STA $0700,Y..|
00000F90: 17 8E 03 3A 20 20 20 20 20 20 20 20 20 49 4E 59 |...: INY|
00000FA0: 00 B6 17 93 03 3A 20 20 20 20 20 20 20 20 20 4C |.....: L|
00000FB0: 44 41 20 24 31 32 00 D0 17 98 03 3A 20 20 20 20 |DA $12.....: |
00000FC0: 20 20 20 20 20 53 54 41 20 24 30 37 30 30 2C 59 | STA $0700,Y|
00000FD0: 00 E2 17 9D 03 3A 20 20 20 20 20 20 20 20 20 49 |.....: I|
00000FE0: 4E 59 00 F9 17 A2 03 3A 20 20 20 20 20 20 20 20 |NY.....: |
00000FF0: 20 4C 44 41 20 23 24 30 46 00 13 18 A7 03 3A 20 | LDA #$0F.....: |
00001000: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 37 30 | STA $070|
00001010: 30 2C 59 00 25 18 AC 03 3A 20 20 20 20 20 20 20 |0,Y.%...: |
00001020: 20 20 49 4E 59 00 3F 18 B1 03 3A 20 20 20 20 20 | INY.?...: |
00001030: 20 20 20 20 53 54 41 20 24 30 37 30 30 2C 59 00 | STA $0700,Y.|
00001040: 51 18 B6 03 3A 20 20 20 20 20 20 20 20 20 49 4E |Q...: IN|
00001050: 59 00 67 18 BB 03 3A 20 20 20 20 20 20 20 20 20 |Y.g...: |
00001060: 49 4E 43 20 24 30 37 00 7D 18 C0 03 3A 20 20 20 |INC $07.}...: |
00001070: 20 20 20 20 20 20 4C 44 41 20 24 30 37 00 93 18 | LDA $07...|
00001080: C5 03 3A 20 20 20 20 20 20 20 20 20 43 4D 50 20 |..: CMP |
00001090: 24 34 33 00 AF 18 CA 03 3A 20 20 20 20 20 20 20 |$43.....: |
000010A0: 20 20 42 43 43 20 53 45 54 48 45 41 44 45 52 00 | BCC SETHEADER.|
000010B0: C5 18 CF 03 3A 20 20 20 20 20 20 20 20 20 54 59 |....: TY|
000010C0: 41 3A 50 48 41 00 DA 18 D4 03 3A 20 20 20 20 20 |A:PHA.....: |
000010D0: 20 20 20 20 4C 44 41 20 23 37 00 F0 18 D9 03 3A | LDA #7.....:|
000010E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 33 31 | STA $31|
000010F0: 00 08 19 DE 03 3A 20 20 20 20 20 20 20 20 20 4A |.....: J|
00001100: 53 52 20 24 46 45 33 30 00 1E 19 E3 03 3A 20 20 |SR $FE30.....: |
00001110: 20 20 20 20 20 20 20 50 4C 41 3A 54 41 59 00 30 | PLA:TAY.0|
00001120: 19 E8 03 3A 20 20 20 20 20 20 20 20 20 44 45 59 |...: DEY|
00001130: 00 4A 19 ED 03 4D 4F 56 45 42 4C 4B 20 20 20 4C |.J...MOVEBLK L|
00001140: 44 41 20 24 30 37 30 30 2C 59 00 64 19 F2 03 3A |DA $0700,Y.d...:|
00001150: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 37 | STA $07|
00001160: 34 35 2C 59 00 76 19 F7 03 3A 20 20 20 20 20 20 |45,Y.v...: |
00001170: 20 20 20 44 45 59 00 90 19 FC 03 3A 20 20 20 20 | DEY.....: |
00001180: 20 20 20 20 20 42 4E 45 20 4D 4F 56 45 42 4C 4B | BNE MOVEBLK|
00001190: 00 A8 19 01 04 3A 20 20 20 20 20 20 20 20 20 4C |.....: L|
000011A0: 44 41 20 24 30 37 30 30 00 C0 19 06 04 3A 20 20 |DA $0700.....: |
000011B0: 20 20 20 20 20 20 20 53 54 41 20 24 30 37 34 35 | STA $0745|
000011C0: 00 D7 19 0B 04 3A 20 20 20 20 20 20 20 20 20 4C |.....: L|
000011D0: 44 59 20 23 24 34 34 00 F1 19 10 04 4D 4F 56 45 |DY #$44.....MOVE|
000011E0: 52 45 53 54 20 20 4C 44 41 20 24 30 31 42 42 2C |REST LDA $01BB,|
000011F0: 59 00 0B 1A 15 04 3A 20 20 20 20 20 20 20 20 20 |Y.....: |
00001200: 53 54 41 20 28 24 33 30 29 2C 59 00 1D 1A 1A 04 |STA ($30),Y.....|
00001210: 3A 20 20 20 20 20 20 20 20 20 44 45 59 00 38 1A |: DEY.8.|
00001220: 1F 04 3A 20 20 20 20 20 20 20 20 20 42 50 4C 20 |..: BPL |
00001230: 4D 4F 56 45 52 45 53 54 00 4D 1A 24 04 3A 20 20 |MOVEREST.M.$.: |
00001240: 20 20 20 20 20 20 20 4C 44 41 20 23 35 00 63 1A | LDA #5.c.|
00001250: 29 04 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 |).: STA |
00001260: 24 33 31 00 79 1A 2E 04 3A 20 20 20 20 20 20 20 |$31.y...: |
00001270: 20 20 4C 44 41 20 23 30 30 00 8F 1A 33 04 3A 20 | LDA #00...3.: |
00001280: 20 20 20 20 20 20 20 20 53 54 41 20 24 33 32 00 | STA $32.|
00001290: A3 1A 38 04 82 42 4C 4F 43 4B 20 4C 44 41 20 23 |..8..BLOCK LDA #|
000012A0: 24 46 46 00 BB 1A 3D 04 3A 20 20 20 20 20 20 20 |$FF...=.: |
000012B0: 20 20 53 54 41 20 24 31 43 30 31 00 D0 1A 42 04 | STA $1C01...B.|
000012C0: 3A 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 35 |: LDX #5|
000012D0: 00 E7 1A 47 04 53 59 4E 43 20 20 20 20 20 20 42 |...G.SYNC B|
000012E0: 56 43 20 53 59 4E 43 00 F9 1A 4C 04 3A 20 20 20 |VC SYNC...L.: |
000012F0: 20 20 20 20 20 20 43 4C 56 00 0B 1B 51 04 3A 20 | CLV...Q.: |
00001300: 20 20 20 20 20 20 20 20 44 45 58 00 22 1B 56 04 | DEX.".V.|
00001310: 3A 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 59 |: BNE SY|
00001320: 4E 43 00 39 1B 5B 04 3A 20 20 20 20 20 20 20 20 |NC.9.[.: |
00001330: 20 4C 44 58 20 23 24 30 41 00 4F 1B 60 04 3A 20 | LDX #$0A.O.`.: |
00001340: 20 20 20 20 20 20 20 20 4C 44 59 20 24 33 32 00 | LDY $32.|
00001350: 6B 1B 65 04 57 52 49 54 45 48 45 41 44 20 42 56 |k.e.WRITEHEAD BV|
00001360: 43 20 57 52 49 54 45 48 45 41 44 00 7D 1B 6A 04 |C WRITEHEAD.}.j.|
00001370: 3A 20 20 20 20 20 20 20 20 20 43 4C 56 00 97 1B |: CLV...|
00001380: 6F 04 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 |o.: LDA |
00001390: 24 30 37 30 30 2C 59 00 AF 1B 74 04 3A 20 20 20 |$0700,Y...t.: |
000013A0: 20 20 20 20 20 20 53 54 41 20 24 31 43 30 31 00 | STA $1C01.|
000013B0: C1 1B 79 04 3A 20 20 20 20 20 20 20 20 20 49 4E |..y.: IN|
000013C0: 59 00 D3 1B 7E 04 3A 20 20 20 20 20 20 20 20 20 |Y...~.: |
000013D0: 44 45 58 00 EF 1B 83 04 3A 20 20 20 20 20 20 20 |DEX.....: |
000013E0: 20 20 42 4E 45 20 57 52 49 54 45 48 45 41 44 00 | BNE WRITEHEAD.|
000013F0: 04 1C 88 04 3A 20 20 20 20 20 20 20 20 20 4C 44 |....: LD|
00001400: 58 20 23 39 00 1A 1C 8D 04 3A 20 20 20 20 20 20 |X #9.....: |
00001410: 20 20 20 53 54 59 20 24 33 32 00 36 1C 92 04 48 | STY $32.6...H|
00001420: 45 41 44 45 52 47 41 50 20 42 56 43 20 48 45 41 |EADERGAP BVC HEA|
00001430: 44 45 52 47 41 50 00 48 1C 97 04 3A 20 20 20 20 |DERGAP.H...: |
00001440: 20 20 20 20 20 43 4C 56 00 5F 1C 9C 04 3A 20 20 | CLV._...: |
00001450: 20 20 20 20 20 20 20 4C 44 41 20 23 24 35 35 00 | LDA #$55.|
00001460: 77 1C A1 04 3A 20 20 20 20 20 20 20 20 20 53 54 |w...: ST|
00001470: 41 20 24 31 43 30 31 00 89 1C A6 04 3A 20 20 20 |A $1C01.....: |
00001480: 20 20 20 20 20 20 44 45 58 00 A5 1C AB 04 3A 20 | DEX.....: |
00001490: 20 20 20 20 20 20 20 20 42 4E 45 20 48 45 41 44 | BNE HEAD|
000014A0: 45 52 47 41 50 00 BC 1C B0 04 3A 20 20 20 20 20 |ERGAP.....: |
000014B0: 20 20 20 20 4C 44 41 20 23 24 46 46 00 D1 1C B5 | LDA #$FF....|
000014C0: 04 3A 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |.: LDX #|
000014D0: 35 00 ED 1C BA 04 42 4C 4F 43 4B 53 59 4E 43 20 |5.....BLOCKSYNC |
000014E0: 42 56 43 20 42 4C 4F 43 4B 53 59 4E 43 00 FF 1C |BVC BLOCKSYNC...|
000014F0: BF 04 3A 20 20 20 20 20 20 20 20 20 43 4C 56 00 |..: CLV.|
00001500: 17 1D C4 04 3A 20 20 20 20 20 20 20 20 20 53 54 |....: ST|
00001510: 41 20 24 31 43 30 31 00 29 1D C9 04 3A 20 20 20 |A $1C01.)...: |
00001520: 20 20 20 20 20 20 44 45 58 00 45 1D CE 04 3A 20 | DEX.E...: |
00001530: 20 20 20 20 20 20 20 20 42 4E 45 20 42 4C 4F 43 | BNE BLOC|
00001540: 4B 53 59 4E 43 00 5C 1D D3 04 3A 20 20 20 20 20 |KSYNC.\...: |
00001550: 20 20 20 20 4C 44 58 20 23 24 42 42 00 76 1D D8 | LDX #$BB.v..|
00001560: 04 57 52 54 42 4C 4B 31 20 20 20 42 56 43 20 57 |.WRTBLK1 BVC W|
00001570: 52 54 42 4C 4B 31 00 88 1D DD 04 3A 20 20 20 20 |RTBLK1.....: |
00001580: 20 20 20 20 20 43 4C 56 00 A2 1D E2 04 3A 20 20 | CLV.....: |
00001590: 20 20 20 20 20 20 20 4C 44 41 20 24 30 36 30 30 | LDA $0600|
000015A0: 2C 58 00 BA 1D E7 04 3A 20 20 20 20 20 20 20 20 |,X.....: |
000015B0: 20 53 54 41 20 24 31 43 30 31 00 CC 1D EC 04 3A | STA $1C01.....:|
000015C0: 20 20 20 20 20 20 20 20 20 49 4E 58 00 E6 1D F1 | INX....|
000015D0: 04 3A 20 20 20 20 20 20 20 20 20 42 4E 45 20 57 |.: BNE W|
000015E0: 52 54 42 4C 4B 31 00 FD 1D F6 04 3A 20 20 20 20 |RTBLK1.....: |
000015F0: 20 20 20 20 20 4C 44 59 20 23 24 30 30 00 17 1E | LDY #$00...|
00001600: FB 04 57 52 54 42 4C 4B 32 20 20 20 42 56 43 20 |..WRTBLK2 BVC |
00001610: 57 52 54 42 4C 4B 32 00 29 1E 00 05 3A 20 20 20 |WRTBLK2.)...: |
00001620: 20 20 20 20 20 20 43 4C 56 00 43 1E 05 05 3A 20 | CLV.C...: |
00001630: 20 20 20 20 20 20 20 20 4C 44 41 20 28 24 33 30 | LDA ($30|
00001640: 29 2C 59 00 5B 1E 0A 05 3A 20 20 20 20 20 20 20 |),Y.[...: |
00001650: 20 20 53 54 41 20 24 31 43 30 31 00 6D 1E 0F 05 | STA $1C01.m...|
00001660: 3A 20 20 20 20 20 20 20 20 20 49 4E 59 00 87 1E |: INY...|
00001670: 14 05 3A 20 20 20 20 20 20 20 20 20 42 4E 45 20 |..: BNE |
00001680: 57 52 54 42 4C 4B 32 00 9E 1E 19 05 3A 20 20 20 |WRTBLK2.....: |
00001690: 20 20 20 20 20 20 4C 44 41 20 23 24 35 35 00 B3 | LDA #$55..|
000016A0: 1E 1E 05 3A 20 20 20 20 20 20 20 20 20 4C 44 58 |...: LDX|
000016B0: 20 23 39 00 CD 1E 23 05 53 45 43 A4 52 47 41 50 | #9...#.SEC.RGAP|
000016C0: 20 42 56 43 20 53 45 43 A4 52 47 41 50 00 DF 1E | BVC SEC.RGAP...|
000016D0: 28 05 3A 20 20 20 20 20 20 20 20 20 43 4C 56 00 |(.: CLV.|
000016E0: F7 1E 2D 05 3A 20 20 20 20 20 20 20 20 20 53 54 |..-.: ST|
000016F0: 41 20 24 31 43 30 31 00 09 1F 32 05 3A 20 20 20 |A $1C01...2.: |
00001700: 20 20 20 20 20 20 44 45 58 00 24 1F 37 05 3A 20 | DEX.$.7.: |
00001710: 20 20 20 20 20 20 20 20 42 4E 45 20 53 45 43 A4 | BNE SEC.|
00001720: 52 47 41 50 00 3A 1F 3C 05 3A 20 20 20 20 20 20 |RGAP.:.<.: |
00001730: 20 20 20 44 45 43 20 24 30 37 00 53 1F 41 05 3A | DEC $07.S.A.:|
00001740: 20 20 20 20 20 20 20 20 20 42 4E 45 20 82 42 4C | BNE .BL|
00001750: 4F 43 4B 00 64 1F 46 05 92 20 20 20 20 20 20 42 |OCK.d.F.. B|
00001760: 56 43 20 92 00 76 1F 4B 05 3A 20 20 20 20 20 20 |VC ..v.K.: |
00001770: 20 20 20 43 4C 56 00 88 1F 50 05 92 32 20 20 20 | CLV...P..2 |
00001780: 20 20 42 56 43 20 92 32 00 9A 1F 55 05 3A 20 20 | BVC .2...U.: |
00001790: 20 20 20 20 20 20 20 43 4C 56 00 B2 1F 5A 05 3A | CLV...Z.:|
000017A0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 45 | JSR $FE|
000017B0: 30 30 00 C7 1F 5F 05 3A 20 20 20 20 20 20 20 20 |00..._.: |
000017C0: 20 4C 44 41 20 23 31 00 DF 1F 64 05 3A 20 20 20 | LDA #1...d.: |
000017D0: 20 20 20 20 20 20 4A 4D 50 20 24 46 39 36 39 00 | JMP $F969.|
000017E0: E6 1F 69 05 3A 3B 00 0B 20 6E 05 3A 3B AC AC AC |..i.:;.. n.:;...|
000017F0: AC AC 20 81 4D 41 54 AB 48 41 55 50 54 50 52 4F |.. .MAT.HAUPTPRO|
00001800: 47 52 41 4D 4D 20 AC AC AC AC AC 00 12 20 73 05 |GRAMM ....... s.|
00001810: 3A 3B 00 28 20 78 05 3A 20 20 20 20 20 20 20 20 |:;.( x.: |
00001820: 20 4C 44 41 20 23 31 35 00 40 20 7D 05 3A 20 20 | LDA #15.@ }.: |
00001830: 20 20 20 20 20 20 20 53 54 41 20 24 31 43 30 37 | STA $1C07|
00001840: 00 58 20 82 05 3A 20 20 20 20 20 20 20 20 20 4A |.X ..: J|
00001850: 53 52 20 24 43 31 31 38 00 6F 20 87 05 3A 20 20 |SR $C118.o ..: |
00001860: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 31 00 | LDA #$01.|
00001870: 85 20 8C 05 3A 20 20 20 20 20 20 20 20 20 53 54 |. ..: ST|
00001880: 41 20 24 30 36 00 9B 20 91 05 3A 20 20 20 20 20 |A $06.. ..: |
00001890: 20 20 20 20 53 54 41 20 24 30 37 00 B2 20 96 05 | STA $07.. ..|
000018A0: 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |: LDA #$|
000018B0: 43 30 00 C8 20 9B 05 3A 20 20 20 20 20 20 20 20 |C0.. ..: |
000018C0: 20 53 54 41 20 24 30 30 00 DE 20 A0 05 42 55 4D | STA $00.. ..BUM|
000018D0: 50 20 20 20 20 20 20 4C 44 41 20 24 30 30 00 F5 |P LDA $00..|
000018E0: 20 A5 05 3A 20 20 20 20 20 20 20 20 20 42 4D 49 | ..: BMI|
000018F0: 20 42 55 4D 50 00 08 21 AA 05 A9 50 45 52 20 20 | BUMP..!...PER |
00001900: 20 4C 44 41 20 24 34 41 00 1F 21 AF 05 3A 20 20 | LDA $4A..!..: |
00001910: 20 20 20 20 20 20 20 42 4D 49 20 A9 50 45 52 00 | BMI .PER.|
00001920: 36 21 B4 05 3A 20 20 20 20 20 20 20 20 20 4C 44 |6!..: LD|
00001930: 58 20 23 24 46 46 00 48 21 B9 05 57 52 49 54 45 |X #$FF.H!..WRITE|
00001940: 4E 41 4D 45 20 49 4E 58 00 65 21 BE 05 3A 20 20 |NAME INX.e!..: |
00001950: 20 20 20 20 20 20 20 4C 44 41 20 44 49 53 4B 4E | LDA DISKN|
00001960: 41 4D 45 2C 58 00 7F 21 C3 05 3A 20 20 20 20 20 |AME,X..!..: |
00001970: 20 20 20 20 53 54 41 20 24 30 32 30 30 2C 58 00 | STA $0200,X.|
00001980: 9B 21 C8 05 3A 20 20 20 20 20 20 20 20 20 42 4E |.!..: BN|
00001990: 45 20 57 52 49 54 45 4E 41 4D 45 00 B1 21 CD 05 |E WRITENAME..!..|
000019A0: 3A 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 31 |: LDY #1|
000019B0: 36 00 C9 21 D2 05 3A 20 20 20 20 20 20 20 20 20 |6..!..: |
000019C0: 53 54 59 20 24 30 32 37 34 00 DB 21 D7 05 3A 20 |STY $0274..!..: |
000019D0: 20 20 20 20 20 20 20 20 49 4E 59 00 F5 21 DC 05 | INY..!..|
000019E0: 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 |: LDA $0|
000019F0: 32 30 30 2C 59 00 0B 22 E1 05 3A 20 20 20 20 20 |200,Y.."..: |
00001A00: 20 20 20 20 53 54 41 20 24 31 32 00 1D 22 E6 05 | STA $12.."..|
00001A10: 3A 20 20 20 20 20 20 20 20 20 49 4E 59 00 37 22 |: INY.7"|
00001A20: EB 05 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 |..: LDA |
00001A30: 24 30 32 30 30 2C 59 00 4D 22 F0 05 3A 20 20 20 |$0200,Y.M"..: |
00001A40: 20 20 20 20 20 20 53 54 41 20 24 31 33 00 5F 22 | STA $13._"|
00001A50: F5 05 82 54 52 41 43 4B 20 4C 44 59 20 23 30 00 |...TRACK LDY #0.|
00001A60: 75 22 FA 05 3A 20 20 20 20 20 20 20 20 20 53 54 |u"..: ST|
00001A70: 59 20 24 33 30 00 8A 22 FF 05 3A 20 20 20 20 20 |Y $30.."..: |
00001A80: 20 20 20 20 4C 44 41 20 23 35 00 A0 22 04 06 3A | LDA #5.."..:|
00001A90: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 33 31 | STA $31|
00001AA0: 00 B7 22 09 06 3A 20 20 20 20 20 20 20 20 20 4C |.."..: L|
00001AB0: 44 41 20 23 24 34 42 00 CF 22 0E 06 9C 42 55 46 |DA #$4B.."...BUF|
00001AC0: 46 45 52 20 53 54 41 20 28 24 33 30 29 2C 59 00 |FER STA ($30),Y.|
00001AD0: E6 22 13 06 3A 20 20 20 20 20 20 20 20 20 4C 44 |."..: LD|
00001AE0: 41 20 23 24 30 31 00 F8 22 18 06 3A 20 20 20 20 |A #$01.."..: |
00001AF0: 20 20 20 20 20 49 4E 59 00 12 23 1D 06 3A 20 20 | INY..#..: |
00001B00: 20 20 20 20 20 20 20 42 4E 45 20 9C 42 55 46 46 | BNE .BUFF|
00001B10: 45 52 00 27 23 22 06 3A 20 20 20 20 20 20 20 20 |ER.'#".: |
00001B20: 20 4C 44 58 20 23 30 00 3F 23 27 06 3A 20 20 20 | LDX #0.?#'.: |
00001B30: 20 20 20 20 20 20 4A 53 52 20 24 46 35 45 39 00 | JSR $F5E9.|
00001B40: 55 23 2C 06 3A 20 20 20 20 20 20 20 20 20 53 54 |U#,.: ST|
00001B50: 41 20 24 33 41 00 6D 23 31 06 3A 20 20 20 20 20 |A $3A.m#1.: |
00001B60: 20 20 20 20 4A 53 52 20 24 46 37 38 46 00 84 23 | JSR $F78F..#|
00001B70: 36 06 3A 20 20 20 20 20 20 20 20 20 4C 44 58 20 |6.: LDX |
00001B80: 23 24 42 42 00 9B 23 3B 06 94 42 55 46 46 20 20 |#$BB..#;..BUFF |
00001B90: 4C 44 41 20 24 30 31 30 30 2C 58 00 B5 23 40 06 |LDA $0100,X..#@.|
00001BA0: 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 |: STA $0|
00001BB0: 36 30 30 2C 58 00 C7 23 45 06 3A 20 20 20 20 20 |600,X..#E.: |
00001BC0: 20 20 20 20 49 4E 58 00 DF 23 4A 06 3A 20 20 20 | INX..#J.: |
00001BD0: 20 20 20 20 20 20 42 4E 45 20 94 42 55 46 46 00 | BNE .BUFF.|
00001BE0: F6 23 4F 06 3A 20 20 20 20 20 20 20 20 20 4C 44 |.#O.: LD|
00001BF0: 41 20 23 24 45 30 00 0C 24 54 06 3A 20 20 20 20 |A #$E0..$T.: |
00001C00: 20 20 20 20 20 53 54 41 20 24 30 30 00 20 24 59 | STA $00. $Y|
00001C10: 06 81 4D 41 54 20 20 20 20 4C 44 41 20 24 30 30 |..MAT LDA $00|
00001C20: 00 37 24 5E 06 3A 20 20 20 20 20 20 20 20 20 42 |.7$^.: B|
00001C30: 4D 49 20 81 4D 41 54 00 4C 24 63 06 3A 20 20 20 |MI .MAT.L$c.: |
00001C40: 20 20 20 20 20 20 43 4D 50 20 23 32 00 61 24 68 | CMP #2.a$h|
00001C50: 06 3A 20 20 20 20 20 20 20 20 20 42 43 43 20 4F |.: BCC O|
00001C60: 4B 00 79 24 6D 06 3A 20 20 20 20 20 20 20 20 20 |K.y$m.: |
00001C70: 4A 4D 50 20 24 45 36 30 41 00 8F 24 72 06 4F 4B |JMP $E60A..$r.OK|
00001C80: 20 20 20 20 20 20 20 20 49 4E 43 20 24 30 36 00 | INC $06.|
00001C90: A5 24 77 06 3A 20 20 20 20 20 20 20 20 20 4C 44 |.$w.: LD|
00001CA0: 41 20 24 30 36 00 BB 24 7C 06 3A 20 20 20 20 20 |A $06..$|.: |
00001CB0: 20 20 20 20 43 4D 50 20 23 33 36 00 D4 24 81 06 | CMP #36..$..|
00001CC0: 3A 20 20 20 20 20 20 20 20 20 42 43 43 20 82 54 |: BCC .T|
00001CD0: 52 41 43 4B 00 EC 24 86 06 3A 20 20 20 20 20 20 |RACK..$..: |
00001CE0: 20 20 20 4A 4D 50 20 24 45 45 34 30 00 0F 25 8B | JMP $EE40..%.|
00001CF0: 06 4E 41 4D 45 20 20 20 20 20 2E C6 20 22 20 20 |.NAME .. " |
00001D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001D10: 25 25 90 06 49 44 31 20 20 20 20 20 20 2E C6 20 |%%..ID1 .. |
00001D20: 22 2C 20 20 22 00 39 25 95 06 3A 20 20 20 20 20 |", ".9%..: |
00001D30: 20 20 20 2E 42 59 54 20 30 00 40 25 9A 06 3A 3B | .BYT 0.@%..:;|
00001D40: 00 65 25 9F 06 3A 3B AC AC AC AC AC AC 20 46 4C |.e%..:;...... FL|
00001D50: 4F 50 50 59 AB 50 52 47 20 53 80 45 4E 20 AC AC |OPPY.PRG S.EN ..|
00001D60: AC AC AC AC AC 00 6C 25 A4 06 3A 3B 00 81 25 A9 |......l%..:;..%.|
00001D70: 06 42 55 46 46 45 52 57 52 54 20 4C 44 59 20 23 |.BUFFERWRT LDY #|
00001D80: 30 00 97 25 AE 06 3A 20 20 20 20 20 20 20 20 20 |0..%..: |
00001D90: 53 54 59 20 24 35 46 00 AC 25 B3 06 3A 20 20 20 |STY $5F..%..: |
00001DA0: 20 20 20 20 20 20 4C 44 41 20 23 33 00 C2 25 B8 | LDA #3..%.|
00001DB0: 06 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |.: STA $|
00001DC0: 36 30 00 D6 25 BD 06 53 80 50 52 47 20 20 20 4C |60..%..S.PRG L|
00001DD0: 44 58 20 23 33 30 00 EB 25 C2 06 3A 20 20 20 20 |DX #30..%..: |
00001DE0: 20 20 20 20 20 4C 44 41 20 23 38 00 01 26 C7 06 | LDA #8..&..|
00001DF0: 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 9B 45 |: JSR .E|
00001E00: 4E 00 18 26 CC 06 3A 20 20 20 20 20 20 20 20 20 |N..&..: |
00001E10: 4C 44 41 20 23 24 36 46 00 30 26 D1 06 3A 20 20 |LDA #$6F.0&..: |
00001E20: 20 20 20 20 20 20 20 4A 53 52 20 53 45 43 91 44 | JSR SEC.D|
00001E30: 00 47 26 D6 06 3A 20 20 20 20 20 20 20 20 20 4C |.G&..: L|
00001E40: 44 41 20 23 22 4D 22 00 60 26 DB 06 3A 20 20 20 |DA #"M".`&..: |
00001E50: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 | JSR IECOUT|
00001E60: 00 77 26 E0 06 3A 20 20 20 20 20 20 20 20 20 4C |.w&..: L|
00001E70: 44 41 20 23 22 2D 22 00 90 26 E5 06 3A 20 20 20 |DA #"-"..&..: |
00001E80: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 | JSR IECOUT|
00001E90: 00 A7 26 EA 06 3A 20 20 20 20 20 20 20 20 20 4C |..&..: L|
00001EA0: 44 41 20 23 22 57 22 00 C0 26 EF 06 3A 20 20 20 |DA #"W"..&..: |
00001EB0: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 | JSR IECOUT|
00001EC0: 00 D6 26 F4 06 3A 20 20 20 20 20 20 20 20 20 4C |..&..: L|
00001ED0: 44 41 20 24 35 46 00 EF 26 F9 06 3A 20 20 20 20 |DA $5F..&..: |
00001EE0: 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 00 | JSR IECOUT.|
00001EF0: 05 27 FE 06 3A 20 20 20 20 20 20 20 20 20 4C 44 |.'..: LD|
00001F00: 41 20 24 36 30 00 1E 27 03 07 3A 20 20 20 20 20 |A $60..'..: |
00001F10: 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 00 30 | JSR IECOUT.0|
00001F20: 27 08 07 3A 20 20 20 20 20 20 20 20 20 54 58 41 |'..: TXA|
00001F30: 00 49 27 0D 07 3A 20 20 20 20 20 20 20 20 20 4A |.I'..: J|
00001F40: 53 52 20 49 45 43 4F 55 54 00 61 27 12 07 53 80 |SR IECOUT.a'..S.|
00001F50: 50 41 52 54 20 20 4C 44 41 20 28 24 46 42 29 2C |PART LDA ($FB),|
00001F60: 59 00 7A 27 17 07 3A 20 20 20 20 20 20 20 20 20 |Y.z'..: |
00001F70: 4A 53 52 20 49 45 43 4F 55 54 00 8C 27 1C 07 3A |JSR IECOUT..'..:|
00001F80: 20 20 20 20 20 20 20 20 20 49 4E 59 00 9E 27 21 | INY..'!|
00001F90: 07 3A 20 20 20 20 20 20 20 20 20 44 45 58 00 B7 |.: DEX..|
00001FA0: 27 26 07 3A 20 20 20 20 20 20 20 20 20 42 4E 45 |'&.: BNE|
00001FB0: 20 53 80 50 41 52 54 00 D0 27 2B 07 3A 20 20 20 | S.PART..'+.: |
00001FC0: 20 20 20 20 20 20 4A 53 52 20 55 4E 4C 53 54 4E | JSR UNLSTN|
00001FD0: 00 E2 27 30 07 3A 20 20 20 20 20 20 20 20 20 43 |..'0.: C|
00001FE0: 4C 43 00 F4 27 35 07 3A 20 20 20 20 20 20 20 20 |LC..'5.: |
00001FF0: 20 54 59 41 00 0A 28 3A 07 3A 20 20 20 20 20 20 | TYA..(:.: |
00002000: 20 20 20 41 44 43 20 24 46 42 00 20 28 3F 07 3A | ADC $FB. (?.:|
00002010: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 42 | STA $FB|
00002020: 00 39 28 44 07 3A 20 20 20 20 20 20 20 20 20 42 |.9(D.: B|
00002030: 43 43 20 44 50 4F B5 45 52 00 4F 28 49 07 3A 20 |CC DPO.ER.O(I.: |
00002040: 20 20 20 20 20 20 20 20 49 4E 43 20 24 46 43 00 | INC $FC.|
00002050: 5F 28 4E 07 44 50 4F B5 45 52 20 20 43 4C 43 00 |_(N.DPO.ER CLC.|
00002060: 71 28 53 07 3A 20 20 20 20 20 20 20 20 20 54 59 |q(S.: TY|
00002070: 41 00 87 28 58 07 3A 20 20 20 20 20 20 20 20 20 |A..(X.: |
00002080: 41 44 43 20 24 35 46 00 9D 28 5D 07 3A 20 20 20 |ADC $5F..(].: |
00002090: 20 20 20 20 20 20 53 54 41 20 24 35 46 00 B5 28 | STA $5F..(|
000020A0: 62 07 3A 20 20 20 20 20 20 20 20 20 42 43 43 20 |b.: BCC |
000020B0: 82 50 41 52 54 00 CB 28 67 07 3A 20 20 20 20 20 |.PART..(g.: |
000020C0: 20 20 20 20 49 4E 43 20 24 36 30 00 DD 28 6C 07 | INC $60..(l.|
000020D0: 82 50 41 52 54 20 20 4C 44 59 20 23 30 00 F3 28 |.PART LDY #0..(|
000020E0: 71 07 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 |q.: LDA |
000020F0: 24 46 43 00 09 29 76 07 3A 20 20 20 20 20 20 20 |$FC..)v.: |
00002100: 20 20 43 4D 50 20 24 46 45 00 21 29 7B 07 3A 20 | CMP $FE.!){.: |
00002110: 20 20 20 20 20 20 20 20 42 43 43 20 53 80 50 52 | BCC S.PR|
00002120: 47 00 3B 29 80 07 3A 20 20 20 20 20 20 20 20 20 |G.;)..: |
00002130: 42 4E 45 20 45 58 45 43 55 54 45 00 51 29 85 07 |BNE EXECUTE.Q)..|
00002140: 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 |: LDA $F|
00002150: 42 00 67 29 8A 07 3A 20 20 20 20 20 20 20 20 20 |B.g)..: |
00002160: 43 4D 50 20 24 46 44 00 7F 29 8F 07 3A 20 20 20 |CMP $FD..)..: |
00002170: 20 20 20 20 20 20 42 43 43 20 53 80 50 52 47 00 | BCC S.PRG.|
00002180: 94 29 94 07 45 58 45 43 55 54 45 20 20 20 4C 44 |.)..EXECUTE LD|
00002190: 41 20 23 38 00 AA 29 99 07 3A 20 20 20 20 20 20 |A #8..)..: |
000021A0: 20 20 20 4A 53 52 20 9B 45 4E 00 C1 29 9E 07 3A | JSR .EN..)..:|
000021B0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 36 | LDA #$6|
000021C0: 46 00 D9 29 A3 07 3A 20 20 20 20 20 20 20 20 20 |F..)..: |
000021D0: 4A 53 52 20 53 45 43 91 44 00 F0 29 A8 07 3A 20 |JSR SEC.D..)..: |
000021E0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 22 4D 22 | LDA #"M"|
000021F0: 00 09 2A AD 07 3A 20 20 20 20 20 20 20 20 20 4A |..*..: J|
00002200: 53 52 20 49 45 43 4F 55 54 00 20 2A B2 07 3A 20 |SR IECOUT. *..: |
00002210: 20 20 20 20 20 20 20 20 4C 44 41 20 23 22 2D 22 | LDA #"-"|
00002220: 00 39 2A B7 07 3A 20 20 20 20 20 20 20 20 20 4A |.9*..: J|
00002230: 53 52 20 49 45 43 4F 55 54 00 50 2A BC 07 3A 20 |SR IECOUT.P*..: |
00002240: 20 20 20 20 20 20 20 20 4C 44 41 20 23 22 45 22 | LDA #"E"|
00002250: 00 69 2A C1 07 3A 20 20 20 20 20 20 20 20 20 4A |.i*..: J|
00002260: 53 52 20 49 45 43 4F 55 54 00 7F 2A C6 07 3A 20 |SR IECOUT..*..: |
00002270: 20 20 20 20 20 20 20 20 4C 44 41 20 24 35 37 00 | LDA $57.|
00002280: 98 2A CB 07 3A 20 20 20 20 20 20 20 20 20 4A 53 |.*..: JS|
00002290: 52 20 49 45 43 4F 55 54 00 AE 2A D0 07 3A 20 20 |R IECOUT..*..: |
000022A0: 20 20 20 20 20 20 20 4C 44 41 20 24 35 38 00 C7 | LDA $58..|
000022B0: 2A D5 07 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |*..: JSR|
000022C0: 20 49 45 43 4F 55 54 00 E0 2A DA 07 3A 20 20 20 | IECOUT..*..: |
000022D0: 20 20 20 20 20 20 4A 4D 50 20 55 4E 4C 53 54 4E | JMP UNLSTN|
000022E0: 00 E7 2A DF 07 3A 3B 00 1D 2B E4 07 53 43 52 45 |..*..:;..+..SCRE|
000022F0: 45 4E 20 20 20 2E C6 20 22 93 9B 11 11 20 20 20 |EN .. ".... |
00002300: 20 20 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
00002310: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 32 2B |............".2+|
00002320: E9 07 3A 20 20 20 20 20 20 20 20 2E 42 59 54 20 |..: .BYT |
00002330: 31 33 00 64 2B EE 07 3A 20 20 20 20 20 20 20 20 |13.d+..: |
00002340: 2E C6 20 22 20 20 20 20 20 20 20 20 DD 20 20 20 |.. " . |
00002350: 20 20 51 55 49 43 4B 46 4F 52 4D 41 54 20 20 20 | QUICKFORMAT |
00002360: 20 20 DD 22 00 79 2B F3 07 3A 20 20 20 20 20 20 | .".y+..: |
00002370: 20 20 2E 42 59 54 20 31 33 00 AB 2B F8 07 3A 20 | .BYT 13..+..: |
00002380: 20 20 20 20 20 20 20 2E C6 20 22 20 20 20 20 20 | .. " |
00002390: 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 | . |
000023A0: 20 20 20 20 20 20 20 20 20 DD 22 00 C0 2B FD 07 | ."..+..|
000023B0: 3A 20 20 20 20 20 20 20 20 2E 42 59 54 20 31 33 |: .BYT 13|
000023C0: 00 F2 2B 02 08 3A 20 20 20 20 20 20 20 20 2E C6 |..+..: ..|
000023D0: 20 22 20 20 20 20 20 20 20 20 DD 20 20 20 57 52 | " . WR|
000023E0: 49 54 54 45 4E 20 49 4E 20 31 39 38 39 20 20 20 |ITTEN IN 1989 |
000023F0: DD 22 00 07 2C 07 08 3A 20 20 20 20 20 20 20 20 |."..,..: |
00002400: 2E 42 59 54 20 31 33 00 39 2C 0C 08 3A 20 20 20 |.BYT 13.9,..: |
00002410: 20 20 20 20 20 2E C6 20 22 20 20 20 20 20 20 20 | .. " |
00002420: 20 DD 20 42 59 20 4D 41 52 43 45 4C 20 53 4F 4D | . BY MARCEL SOM|
00002430: 4D 45 52 49 43 4B 20 DD 22 00 4E 2C 11 08 3A 20 |MERICK .".N,..: |
00002440: 20 20 20 20 20 20 20 2E 42 59 54 20 31 33 00 80 | .BYT 13..|
00002450: 2C 16 08 3A 20 20 20 20 20 20 20 20 2E C6 20 22 |,..: .. "|
00002460: 20 20 20 20 20 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 | ........|
00002470: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 |..............."|
00002480: 00 95 2C 1B 08 3A 20 20 20 20 20 20 20 20 2E 42 |..,..: .B|
00002490: 59 54 20 31 33 00 BD 2C 20 08 3A 20 20 20 20 20 |YT 13.., .: |
000024A0: 20 20 20 2E C6 20 22 11 11 11 11 20 20 20 20 20 | .. ".... |
000024B0: 20 20 20 44 49 53 4B 4E 41 4D 45 3A 22 00 D3 2C | DISKNAME:"..,|
000024C0: 25 08 3A 20 20 20 20 20 20 20 20 2E 42 59 54 20 |%.: .BYT |
000024D0: 31 36 30 00 E8 2C 2A 08 49 44 32 20 20 20 20 20 |160..,*.ID2 |
000024E0: 20 2E 42 59 54 20 31 33 00 07 2D 2F 08 3A 20 20 | .BYT 13..-/.: |
000024F0: 20 20 20 20 20 20 2E C6 20 22 11 20 20 20 20 20 | .. ". |
00002500: 20 20 20 49 44 3A 22 00 1D 2D 34 08 3A 20 20 20 | ID:"..-4.: |
00002510: 20 20 20 20 20 2E 42 59 54 20 31 36 30 00 00 00 | .BYT 160...|
......: . 36864.1...:
.OPT OO.H...: ..$C000.O...:;.
_....EN . $FFB1.Q.#.SEC.D . $FF93...(.IE
COUT . $FFA8...-.UNLSTN . $FFAE...2.DISK
NAME . $0480...7.CHROUT . $FFD2.N.<.C. .
$E518...A.CHRIN . $FFCF...F.. . $FFE4..
.K.IECIN . $FFA5...P.TALK . $FFB4.$.U.UN
TALK . $FFAB.7.Z.TALKSA . $FF96.H._.PLOT
. $FFF0.O.D.:;.V.I.:;.|.N.:;...... BILD
SCHIRMAUFBAU ..........S.:;...X.MENU
LDX #0...}.: LDA #32.H....NA
ME STA NAME,X.....: INX.....
: CPX #16.....: BCC .N
AME.$...: STA ID1.1.=...:
STA ID1.2.S. .: JSR C..I...
: LDA #0.....: STA 532
80.....: STA 53281.....:
LDA #.(SCREEN).P...: STA $FB
.....: LDA #.(SCREEN)...C.:
STA $FC...H.: LDY #0.6.M.
OUTPUT1 LDA ($FB),Y.P.R.: JS
R CHROUT.C.W.: INY.{...:
BNE CHK......: INC $FC.....C
HK. CMP #160.C...: BNE OUTP
UT1.....: LDX #$FF......1 J
SR CHRIN.....: CMP #13.!...:
BEQ KTNAME.4...: INX.K..
.: CPX #16.A...: BCS .
1.{...: STA NAME,X.....:
BCC .1.....KTNAME LDY #0...".OUTPU
T2 LDA ID2,Y.Y.'.: JSR CHROU
T...,.: INY...1.: CMP
#160...6.: BNE OUTPUT2.7.;.:
LDX #$FF.L.@..2 JSR CHRIN.C.E
.: CMP #13.|.J.: BEQ S
TART...O.: INX...T.: C
PX #2...Y.: BCS .2.V.^.:
STA ID1.1,X...C.: BCC .2...H
.START LDA #.(FRMTRACK).!.M.:
STA $FB.@.R.: LDA #.(FRMTRACK)
.V.W.: STA $FC.V.|.: LDA
#.(BUFFERWRT).....: STA $FD....
.: LDA #.(BUFFERWRT).B...:
STA $FE.Y...: LDA #$0A.....:
STA $57.....: LDA #$04..
...: STA $58.8...: JSR B
UFFERWRT.M...: LDA #0.C...:
STA $90.X...: LDA #8.....:
JSR .EN.....: LDA #$6F...
B.: JSR SEC.D.S.G.: LDA
$90...L.: BMI DEVERR...Q.:
JSR UNLSTN...V.: LDA #8.1...:
JSR TALK.H...: LDA #$6F
.A...: JSR TALKSA.V...:
LDX #0.....ERRIN JSR IECIN.....:
STA $0200,X.....: INX.P...:
CMP #13.....: BNE ERRIN
.....: JSR UNTALK.....:
LDA $0200.0...: CMP #"0".G...:
BNE ERR.._...: LDA $0201.
V.!.: CMP #"0"...&.: BNE
ERR....+.: JMP MENU...0.:;.B.5.
DEVERR LDX #$FF.T.:.DEV INX...?
.: LDA $A1D0,X...D.: STA
$0200,X...I.: BPL DEV.3.N.:
. #$7F.M.S.: STA $0200,X._.
X.: INX.U.].: LDA #13...
B.: STA $0200,X...G.ERR. INC
199...L.: STX 2.N.Q.: L
DX #20...V.: LDA #40...{.:
SEC.....: SBC 2.....:
LSR.....: TAY.@...: CLC
.W...: JSR PLOT.L...: LD
X #0.....ERROUT LDA $0200,X.....:
JSR CHROUT.....: INX.G...:
CMP #13.....: BNE ERROUT
.....: LSR 199.....INKEY JSR
..".A.: BEQ INKEY.9.F.:
JMP MENU.@.K.:;.E.P.:;...... .MAT.IRQPR
OGRAMM .......L.U.:;...Z.FRMTRACK LDA $
1C00.....: . #$10.....:
BNE DISK.Y.G...: LDA #8.....:
JMP $F969.....DISK.Y LDA $1C0C....
.: . #$1F.....: .A #$C0.
7...: STA $1C0C.N...: LD
A #$FF.F...: STA $1C03.}...:
LDA #$55.....: STA $1C01...
..: LDA $06.C. .: JSR $F
24B.Y.%.: STA $43...*.:
LDY #0.../.: STY $07...4.SETHEAD
ER LDA #8.3.9.: STA $0700,Y.E.>.
: INY.Z.C.: LDA #0.O.H.:
E. $07...M.: E. $06...R
.: E. $13...W.: E. $12.H
.\.: STA $0700,Y.Z.A.: I
NY...F.: LDA $07...K.: S
TA $0700,Y...P.: INY.2.U.:
LDA $06.L.Z.: STA $0700,Y.^.
.: INY.T...: LDA $13....
.: STA $0700,Y. ...: INY
.....: LDA $12.P...: STA
$0700,Y.....: INY.....:
LDA #$0F.....: STA $0700,Y.%...
: INY.?...: STA $0700,Y.
Q...: INY.G...: INC $07.
}...: LDA $07...E.: CMP
$43...J.: BCC SETHEADER.E.O.:
TYA:PHA.Z.T.: LDA #7...Y.:
STA $31.....: JSR $FE30
.....: PLA:TAY.0...: DEY
.J...MOVEBLK LDA $0700,Y.D...:
STA $0745,Y.V...: DEY.....:
BNE MOVEBLK.....: LDA $0700
.....: STA $0745.W...: L
DY #$44.....MOVEREST LDA $01BB,Y.....:
STA ($30),Y.....: DEY.8.
..: BPL MOVEREST.M.$.: L
DA #5.C.).: STA $31.Y...:
LDA #00...3.: STA $32...8..BLO
CK LDA #$FF...=.: STA $1C01.P.B.
: LDX #5...G.SYNC BVC SYNC.
..L.: CLV...Q.: DEX.".V.
: BNE SYNC.9.[.: LDX #$0
A.O.`.: LDY $32.K.E.WRITEHEAD BV
C WRITEHEAD.}.J.: CLV...O.:
LDA $0700,Y...T.: STA $1C01.
A.Y.: INY.S.~.: DEX.....
: BNE WRITEHEAD.....: LD
X #9.....: STY $32.6...HEADERGAP
BVC HEADERGAP.H...: CLV._...:
LDA #$55.W...: STA $1C01.
....: DEX.....: BNE HEAD
ERGAP.....: LDA #$FF.Q...:
LDX #5.....BLOCKSYNC BVC BLOCKSYNC...
..: CLV...D.: STA $1C01.
).I.: DEX.E.N.: BNE BLOC
KSYNC.\.S.: LDX #$BB.V.X.WRTBLK1
BVC WRTBLK1.....: CLV.....:
LDA $0600,X.....: STA $1C
01.L...: INX.....: BNE W
RTBLK1.....: LDY #$00.....WRTBLK
2 BVC WRTBLK2.)...: CLV.C...:
LDA ($30),Y.[...: STA $1
C01.M...: INY.....: BNE
WRTBLK2.....: LDA #$55.....:
LDX #9.M.#.SEC.RGAP BVC SEC.RGAP...
(.: CLV...-.: STA $1C01.
..2.: DEX.$.7.: BNE SEC.
RGAP.:.<.: DEC $07.S.A.:
BNE .BLOCK.D.F.. BVC ..V.K.:
CLV...P..2 BVC .2...U.: C
LV...Z.: JSR $FE00.G._.:
LDA #1...D.: JMP $F969...I.:;..
N.:;..... .MAT.HAUPTPROGRAMM ....... S.
:;.( X.: LDA #15.@ }.: S
TA $1C07.X ..: JSR $C118.O ..:
LDA #$01.. ..: STA $06..
..: STA $07.. ..: LDA #$
C0.H ..: STA $00.. .BUMP L
DA $00.. ..: BMI BUMP..!...PER
LDA $4A..!..: BMI .PER.6!..:
LDX #$FF.H!..WRITENAME INX.E!..:
LDA DISKNAME,X.!C.: STA
$0200,X..!H.: BNE WRITENAME..!M.
: LDY #16.I!R.: STY $027
4..!W.: INY..!..: LDA $0
200,Y.."..: STA $12.."..:
INY.7"..: LDA $0200,Y.M"..:
STA $13._"...TRACK LDY #0.U"..:
STY $30.."..: LDA #5. "..:
STA $31.."..: LDA #$4B.
O"...BUFFER STA ($30),Y.."..: LD
A #$01.."..: INY..#..: B
NE .BUFFER.'#".: LDX #0.?#'.:
JSR $F5E9.U#,.: STA $3A.M#
1.: JSR $F78F..#6.: LDX
#$BB..#;..BUFF LDA $0100,X..#@.:
STA $0600,X.G#E.: INX..#J.:
BNE .BUFF..#O.: LDA #$E0..
$T.: STA $00. $Y..MAT LDA $00
.7$^.: BMI .MAT.L$C.: CM
P #2.A$H.: BCC OK.Y$M.:
JMP $E60A..$R.OK INC $06..$W.:
LDA $06..$|.: CMP #36.T$..
: BCC .TRACK..$..: JMP $
EE40..%..NAME .F " ".
%%..ID1 .F ", ".9%..: .BYT
0.@%..:;.E%..:;...... FLOPPY.PRG S.EN ..
......L%..:;..%..BUFFERWRT LDY #0..%..:
STY $5F..%..: LDA #3.B%.
.: STA $60.V%..S.PRG LDX #30..
%B.: LDA #8..&G.: JSR .E
N..&L.: LDA #$6F.0&Q.: J
SR SEC.D.G&V.: LDA #"M".`&..:
JSR IECOUT.W&..: LDA #"-".
.&..: JSR IECOUT..&..: L
DA #"W"..&..: JSR IECOUT.V&..:
LDA $5F..&..: JSR IECOUT.
.'..: LDA $60..'..: JSR
IECOUT.0'..: TXA.I'..: J
SR IECOUT.A'..S.PART LDA ($FB),Y.Z'..:
JSR IECOUT..'..: INY..'!
.: DEX..'&.: BNE S.PART.
P'+.: JSR UNLSTN..'0.: C
LC..'5.: TYA..(:.: ADC $
FB. (?.: STA $FB.9(D.: B
CC DPO.ER.O(I.: INC $FC._(N.DPO.
ER CLC.Q(S.: TYA..(X.:
ADC $5F..(].: STA $5F..(B.:
BCC .PART.K(G.: INC $60..(L.
.PART LDY #0..(Q.: LDA $FC..)V.
: CMP $FE.!){.: BCC S.PR
G.;)..: BNE EXECUTE.Q)..:
LDA $FB.G)..: CMP $FD.)..:
BCC S.PRG..)..EXECUTE LDA #8..).
.: JSR .EN.A)..: LDA #$6
F.Y)..: JSR SEC.D..)..:
LDA #"M"..*..: JSR IECOUT. *..:
LDA #"-".9*..: JSR IECOU
T.P*..: LDA #"E".I*A.: J
SR IECOUT.*F.: LDA $57..*K.:
JSR IECOUT..*P.: LDA $58.G
*U.: JSR IECOUT..*Z.: JM
P UNLSTN..*..:;..+..SCREEN .F "....
.......................".2+..:
.BYT 13.D+..: .F " .
QUICKFORMAT .".Y+..: .BYT 1
3..+..: .F " .
."..+..: .BYT 13..+..:
.F " . WRITTEN IN 1989
."..,..: .BYT 13.9,..: .F
" . BY MARCEL SOMMERICK .".N,..:
.BYT 13..,..: .F "
......................."..,..: .B
YT 13.., .: .F ".... DISKN
AME:".S,%.: .BYT 160..,*.ID2
.BYT 13..-/.: .F ". ID:".
.-4.: .BYT 160...
> CLICK IMAGE PREVIEW FOR FULL MODAL