UNIV.LADER.ASM
FILE INFORMATION
FILENAME(S): UNIV.LADER.ASM
FILE TYPE(S): PRG
FILE SIZE: 11.4K
FIRST SEEN: 2025-11-02 16:41:30
APPEARS ON: 2 disk(s)
FILE HASH
446dcc1c8f2b79aaa166ad7da090fc897e111c7fcc42e69fe7e2fc3ae6dc1ba0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15825 SH 25 | UNIV.LADER.ASM | PRG | Treasure Chest - PrettyOldPixel | 5 | 1 | DOWNLOAD FILE |
| 15825 SH 25 | UNIV.LADER.ASM | PRG | C64er | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 9F 20 31 2C 38 2C 31 2C 22 30 |....... 1,8,1,"0|
00000010: 3A 47 41 4E 5A 20 4E 45 55 2E 4F 42 4A 22 00 2D |:GANZ NEU.OBJ".-|
00000020: 08 0C 00 8F 20 4F 50 45 4E 20 32 2C 34 00 56 08 |.... OPEN 2,4.V.|
00000030: 0D 00 9E 20 33 32 37 36 38 3B 20 45 49 4E 53 50 |... 32768; EINSP|
00000040: 8A 47 20 46 55 45 52 20 4E 45 55 45 4E 20 50 52 |.G FUER NEUEN PR|
00000050: 4F 46 49 41 53 53 00 5C 08 0E 00 3B 00 80 08 0F |OFIASS.\...;....|
00000060: 00 3B 20 20 20 AC AC AC AC AC AC AC AC AC AC AC |.; ...........|
00000070: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000080: 00 A4 08 10 00 3B 20 20 20 AC 20 20 20 55 4E 49 |.....; . UNI|
00000090: 56 45 52 53 41 4C AB 4C 41 44 45 52 20 20 56 36 |VERSAL.LADER V6|
000000A0: 20 20 20 AC 00 C8 08 11 00 3B 20 20 20 AC 20 20 | ......; . |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 AC 00 EB 08 12 00 3B 20 20 | ......; |
000000D0: 20 AC 20 20 20 20 20 56 91 20 55 57 45 20 47 45 | . V. UWE GE|
000000E0: 52 4C 41 43 48 20 20 20 20 20 AC 00 0F 09 13 00 |RLACH ......|
000000F0: 3B 20 20 20 AC 20 20 20 20 54 45 4C 2E 20 30 36 |; . TEL. 06|
00000100: 31 35 31 AD 33 31 36 32 30 35 20 20 20 20 AC 00 |151.316205 ..|
00000110: 33 09 14 00 3B 20 20 20 AC 20 20 20 20 20 42 5A |3...; . BZ|
00000120: 57 2E 20 30 36 36 32 32 AD 33 39 30 38 20 20 20 |W. 06622.3908 |
00000130: 20 20 AC 00 57 09 15 00 3B 20 20 20 AC AC AC AC | ..W...; ....|
00000140: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000150: AC AC AC AC AC AC AC 00 5D 09 16 00 3B 00 63 09 |........]...;.c.|
00000160: 17 00 3B 00 8C 09 18 00 3B 20 5A 45 49 47 54 20 |..;.....; ZEIGT |
00000170: 44 45 4E 20 44 49 53 4B 49 4E 48 41 4C 54 20 41 |DEN DISKINHALT A|
00000180: 4C 53 20 4D 45 4E 55 45 20 55 4E 44 00 B5 09 19 |LS MENUE UND....|
00000190: 00 3B 20 53 54 41 52 54 45 54 20 44 41 53 20 41 |.; STARTET DAS A|
000001A0: 55 53 47 45 57 41 45 48 4C 54 45 20 50 52 4F 47 |USGEWAEHLTE PROG|
000001B0: 52 41 4D 4D 2E 00 DE 09 1A 00 3B 20 4D 49 54 20 |RAMM......; MIT |
000001C0: 27 55 4E 49 56 2E 4C 41 44 45 52 2E 49 4E 49 54 |'UNIV.LADER.INIT|
000001D0: 27 20 47 45 4B 45 4E 4E 5A 45 49 43 48 AB 00 04 |' GEKENNZEICH...|
000001E0: 0A 1B 00 3B 20 4E 45 54 45 20 45 B5 52 41 45 47 |...; NETE E.RAEG|
000001F0: 45 20 57 45 52 44 45 4E 20 4E 49 43 48 54 20 42 |E WERDEN NICHT B|
00000200: 45 41 52 AB 00 27 0A 1C 00 3B 20 42 45 49 54 45 |EAR..'...; BEITE|
00000210: 54 2E 20 42 59 54 45 20 32 32 20 4A 45 44 45 53 |T. BYTE 22 JEDES|
00000220: 20 45 B5 52 41 47 53 00 49 0A 1D 00 3B 20 45 4E | E.RAGS.I...; EN|
00000230: 54 48 41 45 4C 54 20 44 41 5A 55 20 45 49 4E 45 |THAELT DAZU EINE|
00000240: 20 4B 45 4E 4E 55 4E 47 2E 00 6D 0A 1E 00 3B 20 | KENNUNG..m...; |
00000250: 42 59 54 45 53 20 32 33 20 55 4E 44 20 32 34 20 |BYTES 23 UND 24 |
00000260: 45 4E 54 48 41 4C 54 45 4E 20 44 49 45 00 92 0A |ENTHALTEN DIE...|
00000270: 1F 00 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 |..; STARTADRESSE|
00000280: 20 46 55 45 52 20 4D C6 48 49 4E 45 4E 43 4F 44 | FUER M.HINENCOD|
00000290: 45 2E 00 98 0A 20 00 3B 00 9E 0A 21 00 3B 00 C7 |E.... .;...!.;..|
000002A0: 0A 64 00 2E 54 49 54 20 22 55 4E 49 56 45 52 53 |.d..TIT "UNIVERS|
000002B0: 41 4C 2D 4C 41 44 45 52 20 43 36 34 20 26 20 56 |AL-LADER C64 & V|
000002C0: 43 31 35 34 31 20 22 00 D3 0A 6E 00 2E 50 41 47 |C1541 "...n..PAG|
000002D0: 20 36 39 00 DF 0A 78 00 2E 4F 50 54 20 4F 31 00 | 69...x..OPT O1.|
000002E0: E5 0A 82 00 3B 00 01 0B 8C 00 AC B2 24 30 38 30 |....;.......$080|
000002F0: 31 3B 20 41 4E 46 41 4E 47 53 41 44 52 45 53 53 |1; ANFANGSADRESS|
00000300: 45 00 07 0B 96 00 3B 00 1A 0B C8 00 50 55 46 46 |E.....;.....PUFF|
00000310: 45 52 20 B2 20 24 30 33 30 30 00 2E 0B D2 00 41 |ER . $0300.....A|
00000320: 55 53 47 41 42 45 20 B2 20 24 30 34 30 30 00 3F |USGABE . $0400.?|
00000330: 0B DC 00 5A 45 49 47 45 52 20 B2 20 24 33 42 00 |...ZEIGER . $3B.|
00000340: 4D 0B E6 00 94 20 B2 20 24 30 35 46 30 00 5B 0B |M.... . $05F0.[.|
00000350: F0 00 A5 41 4D 20 B2 20 24 46 42 00 6B 0B FA 00 |...AM . $FB.k...|
00000360: 50 4F B5 45 52 20 B2 20 24 46 44 00 79 0B 04 01 |PO.ER . $FD.y...|
00000370: 99 20 B2 20 24 46 46 44 32 00 8C 0B 0E 01 43 48 |. . $FFD2.....CH|
00000380: 4B 4F 55 54 20 B2 20 24 46 46 43 39 00 9C 0B 18 |KOUT . $FFC9....|
00000390: 01 9C 43 48 20 B2 20 24 46 46 43 43 00 AF 0B 22 |..CH . $FFCC..."|
000003A0: 01 53 45 54 46 4C 53 20 B2 20 24 46 46 42 41 00 |.SETFLS . $FFBA.|
000003B0: C2 0B 2C 01 53 45 54 4E 41 4D 20 B2 20 24 46 46 |..,.SETNAM . $FF|
000003C0: 42 44 00 D0 0B 36 01 9F 20 B2 20 24 46 46 43 30 |BD...6.. . $FFC0|
000003D0: 00 E2 0B 40 01 43 48 4B 49 4E 20 B2 20 24 46 46 |...@.CHKIN . $FF|
000003E0: 43 36 00 F0 0B 4A 01 85 20 B2 20 24 46 46 43 46 |C6...J.. . $FFCF|
000003F0: 00 FE 0B 54 01 A0 20 B2 20 24 46 46 43 33 00 10 |...T.. . $FFC3..|
00000400: 0C 5E 01 43 4C 45 41 52 20 B2 20 24 45 35 34 34 |.^.CLEAR . $E544|
00000410: 00 1E 0C 68 01 80 20 B2 20 24 37 30 30 30 00 39 |...h.. . $7000.9|
00000420: 0C 72 01 42 49 4C 44 4D 49 54 20 B2 20 24 30 34 |.r.BILDMIT . $04|
00000430: 30 30 AA 34 31 31 AA 38 30 00 4F 0C 7C 01 42 49 |00.411.80.O.|.BI|
00000440: 4C 44 80 20 B2 20 24 30 37 30 30 AA 31 33 30 00 |LD. . $0700.130.|
00000450: 5C 0C 86 01 41 4E 46 20 B2 80 AA 32 00 6C 0C 90 |\...ANF ...2.l..|
00000460: 01 52 41 4D 20 B2 20 41 4E 46 AA 32 00 83 0C 9A |.RAM . ANF.2....|
00000470: 01 4F 42 45 4E 20 B2 20 24 30 34 30 30 AA 38 30 |.OBEN . $0400.80|
00000480: AA 31 31 00 91 0C A4 01 93 20 B2 20 24 46 46 44 |.11...... . $FFD|
00000490: 35 00 A2 0C AE 01 54 50 55 46 20 B2 20 24 30 32 |5.....TPUF . $02|
000004A0: 37 37 00 A8 0C F4 01 3B 00 AE 0C FE 01 3B 00 C4 |77.....;.....;..|
000004B0: 0C 08 02 3B 20 42 41 53 49 43 20 AB 20 45 49 4E |...; BASIC . EIN|
000004C0: 53 50 8A 47 00 CA 0C 12 02 3B 00 EC 0C 1C 02 2E |SP.G.....;......|
000004D0: 42 59 54 45 20 24 30 42 2C 24 30 38 2C 24 30 41 |BYTE $0B,$08,$0A|
000004E0: 2C 24 30 30 2C 24 39 45 2C 24 33 32 00 0E 0D 26 |,$00,$9E,$32...&|
000004F0: 02 2E 42 59 54 45 20 24 33 30 2C 24 33 36 2C 24 |..BYTE $30,$36,$|
00000500: 33 31 2C 24 30 30 2C 24 30 30 2C 24 30 30 00 14 |31,$00,$00,$00..|
00000510: 0D 30 02 3B 00 43 0D 58 02 4E 4F 50 3A 20 4E 4F |.0.;.C.X.NOP: NO|
00000520: 50 3A 20 4E 4F 50 3B 20 50 4C 41 54 5A 48 41 4C |P: NOP; PLATZHAL|
00000530: 54 45 52 20 46 55 45 52 20 53 50 8A 47 42 45 46 |TER FUER SP.GBEF|
00000540: 45 48 4C 00 49 0D E8 03 3B 00 5E 0D F2 03 3B 20 |EHL.I...;.^...; |
00000550: 4B 41 4E 41 45 4C 45 20 4F 45 46 A5 45 4E 00 64 |KANAELE OEF.EN.d|
00000560: 0D FC 03 3B 00 74 0D 1A 04 53 54 52 54 20 4C 44 |...;.t...STRT LD|
00000570: 41 20 23 31 00 7F 0D 24 04 4C 44 58 20 23 38 00 |A #1...$.LDX #8.|
00000580: 8B 0D 2E 04 4C 44 59 20 23 31 35 00 AC 0D 38 04 |....LDY #15...8.|
00000590: 4A 53 52 20 53 45 54 46 4C 53 3B 20 50 41 52 41 |JSR SETFLS; PARA|
000005A0: 4D 45 54 45 52 20 31 2C 38 2C 31 35 00 B7 0D 3A |METER 1,8,15...:|
000005B0: 04 4C 44 41 20 23 30 00 D1 0D 3D 04 4A 53 52 20 |.LDA #0...=.JSR |
000005C0: 53 45 54 4E 41 4D 3B 20 4B 45 49 4E 20 4E 41 4D |SETNAM; KEIN NAM|
000005D0: 45 00 E5 0D 42 04 4A 53 52 20 9F 3B 20 9F 20 31 |E...B.JSR .; . 1|
000005E0: 2C 38 2C 31 35 00 EB 0D E2 04 3B 00 16 0E EC 04 |,8,15.....;.....|
000005F0: 3B 20 46 4C 4F 50 50 59 50 52 4F 47 52 41 4D 4D |; FLOPPYPROGRAMM|
00000600: 20 4B 4F 50 49 45 52 45 4E 20 55 4E 44 20 41 4E | KOPIEREN UND AN|
00000610: 53 A4 53 53 45 4E 00 1C 0E F6 04 3B 00 39 0E 14 |S.SSEN.....;.9..|
00000620: 05 4C 44 59 20 23 30 3B 20 4F 46 46 53 45 54 20 |.LDY #0; OFFSET |
00000630: 5A 55 4D 20 4C 45 53 45 4E 00 66 0E 16 05 53 54 |ZUM LESEN.f...ST|
00000640: 59 20 A5 41 4D 3B 20 5A 49 45 4C AB 42 41 53 49 |Y .AM; ZIEL.BASI|
00000650: 53 41 44 52 45 53 53 45 20 42 45 49 4D 20 4B 4F |SADRESSE BEIM KO|
00000660: 50 49 45 52 45 4E 00 73 0E 46 05 91 20 4C 44 58 |PIEREN.s.F.. LDX|
00000670: 20 23 31 00 9C 0E 50 05 4A 53 52 20 43 48 4B 4F | #1...P.JSR CHKO|
00000680: 55 54 3B 20 41 55 53 47 41 42 45 20 41 55 46 20 |UT; AUSGABE AUF |
00000690: 42 45 46 45 48 4C 53 4B 41 4E 41 4C 00 A9 0E 78 |BEFEHLSKANAL...x|
000006A0: 05 4C 44 41 20 23 22 4D 22 00 B3 0E 82 05 4A 53 |.LDA #"M".....JS|
000006B0: 52 20 99 00 C0 0E 8C 05 4C 44 41 20 23 22 2D 22 |R ......LDA #"-"|
000006C0: 00 CA 0E 96 05 4A 53 52 20 99 00 D7 0E A0 05 4C |.....JSR ......L|
000006D0: 44 41 20 23 22 57 22 00 E1 0E AA 05 4A 53 52 20 |DA #"W".....JSR |
000006E0: 99 00 FA 0E B4 05 4C 44 41 20 A5 41 4D 3B 20 41 |......LDA .AM; A|
000006F0: 44 52 45 53 53 45 20 4C 4F 57 00 04 0F BE 05 4A |DRESSE LOW.....J|
00000700: 53 52 20 99 00 1D 0F C8 05 4C 44 41 20 23 35 3B |SR ......LDA #5;|
00000710: 20 41 44 52 45 53 53 45 20 48 49 47 48 00 27 0F | ADRESSE HIGH.'.|
00000720: D2 05 4A 53 52 20 99 00 4D 0F DC 05 4C 44 41 20 |..JSR ..M...LDA |
00000730: 23 33 34 3B 20 41 4E 5A 41 48 4C 20 44 45 52 20 |#34; ANZAHL DER |
00000740: 46 4F 4C 47 80 45 4E 20 42 59 54 45 53 00 57 0F |FOLG.EN BYTES.W.|
00000750: E6 05 4A 53 52 20 99 00 5D 0F F0 05 3B 00 80 0F |..JSR ..]...;...|
00000760: 36 06 4C 44 58 20 23 30 3B 20 5A 41 45 48 45 4C |6.LDX #0; ZAEHEL|
00000770: 45 52 20 42 45 46 45 48 4C 53 4C 41 45 4E 47 45 |ER BEFEHLSLAENGE|
00000780: 00 A6 0F 40 06 46 55 45 4C C3 20 4C 44 41 20 50 |...@.FUEL. LDA P|
00000790: 52 4F 47 41 4E 46 2C 59 3B 20 42 59 54 45 20 48 |ROGANF,Y; BYTE H|
000007A0: 4F C3 20 55 4E 44 00 C9 0F 4A 06 4A 53 52 20 99 |O. UND...J.JSR .|
000007B0: 3B 20 41 4C 53 20 44 41 54 55 4D 20 46 55 45 52 |; ALS DATUM FUER|
000007C0: 20 4D AB 57 20 53 80 45 4E 00 E2 0F 54 06 49 4E | M.W S.EN...T.IN|
000007D0: 59 3B 20 4F 46 46 53 45 54 20 45 52 48 4F 45 48 |Y; OFFSET ERHOEH|
000007E0: 45 4E 00 F9 0F 68 06 43 50 59 20 23 50 52 4F 47 |EN...h.CPY #PROG|
000007F0: 80 AB 50 52 4F 47 41 4E 46 00 22 10 72 06 42 45 |..PROGANF.".r.BE|
00000800: 51 20 43 4F 50 59 4F 4B 3B 20 46 41 4C 4C 53 20 |Q COPYOK; FALLS |
00000810: 46 45 52 54 49 47 20 55 45 42 45 52 54 52 41 47 |FERTIG UEBERTRAG|
00000820: 45 4E 00 2A 10 77 06 49 4E 58 00 53 10 7C 06 43 |EN.*.w.INX.S.|.C|
00000830: 50 58 20 23 33 34 3B 20 4D 41 58 49 4D 41 4C 49 |PX #34; MAXIMALI|
00000840: 4E 48 41 4C 54 20 42 45 46 45 48 4C 53 50 55 46 |NHALT BEFEHLSPUF|
00000850: 46 45 52 00 73 10 86 06 42 4E 45 20 46 55 45 4C |FER.s...BNE FUEL|
00000860: C3 3B 20 46 41 4C 4C 53 20 4E 4F 43 48 20 50 4C |.; FALLS NOCH PL|
00000870: 41 54 5A 00 92 10 9B 06 4A 53 52 20 9C 43 48 3B |ATZ.....JSR .CH;|
00000880: 20 42 45 46 45 48 4C 20 41 55 53 46 55 45 48 52 | BEFEHL AUSFUEHR|
00000890: 45 4E 00 9E 10 9C 06 4C 44 41 20 A5 41 4D 00 A6 |EN.....LDA .AM..|
000008A0: 10 9E 06 43 4C 43 00 B2 10 A0 06 41 44 43 20 23 |...CLC.....ADC #|
000008B0: 33 34 00 D4 10 A2 06 53 54 41 20 A5 41 4D 3B 20 |34.....STA .AM; |
000008C0: 5A 49 45 4C 41 44 52 45 53 53 45 20 45 52 48 4F |ZIELADRESSE ERHO|
000008D0: 45 48 45 4E 00 F6 10 C2 06 4A 4D 50 20 91 3B 20 |EHEN.....JMP .; |
000008E0: 55 4E 44 20 57 45 49 54 45 52 20 55 45 42 45 52 |UND WEITER UEBER|
000008F0: 54 52 41 47 45 4E 00 FC 10 FE 06 3B 00 22 11 17 |TRAGEN.....;."..|
00000900: 07 43 4F 50 59 4F 4B 20 4A 53 52 20 9C 43 48 3B |.COPYOK JSR .CH;|
00000910: 20 42 45 46 45 48 4C 20 41 55 53 46 55 45 48 52 | BEFEHL AUSFUEHR|
00000920: 45 4E 00 28 11 18 07 3B 00 33 11 19 07 4C 44 58 |EN.(...;.3...LDX|
00000930: 20 23 31 00 5C 11 1B 07 4A 53 52 20 43 48 4B 4F | #1.\...JSR CHKO|
00000940: 55 54 3B 20 41 55 53 47 41 42 45 20 41 55 46 20 |UT; AUSGABE AUF |
00000950: 42 45 46 45 48 4C 53 4B 41 4E 41 4C 00 69 11 1C |BEFEHLSKANAL.i..|
00000960: 07 4C 44 41 20 23 22 55 22 00 73 11 26 07 4A 53 |.LDA #"U".s.&.JS|
00000970: 52 20 99 00 80 11 30 07 4C 44 41 20 23 22 43 22 |R ....0.LDA #"C"|
00000980: 00 8A 11 3A 07 4A 53 52 20 99 00 96 11 58 07 4A |...:.JSR ....X.J|
00000990: 53 52 20 9C 43 48 00 9C 11 D0 07 3B 00 B5 11 DA |SR .CH.....;....|
000009A0: 07 3B 20 42 49 4C 44 4D 41 53 4B 45 20 41 55 46 |.; BILDMASKE AUF|
000009B0: 42 41 55 45 4E 00 BB 11 E4 07 3B 00 C6 11 E5 07 |BAUEN.....;.....|
000009C0: 4C 44 41 20 23 30 00 E1 11 E6 07 53 54 41 20 24 |LDA #0.....STA $|
000009D0: 44 30 32 30 3B 20 52 41 48 4D 45 4E 46 41 52 42 |D020; RAHMENFARB|
000009E0: 45 00 FD 11 E7 07 53 54 41 20 24 44 30 32 31 3B |E.....STA $D021;|
000009F0: 20 48 B5 45 52 47 8A 44 46 41 52 42 45 00 0A 12 | H.ERG.DFARBE...|
00000A00: E9 07 4C 44 41 20 23 24 30 45 00 25 12 EE 07 53 |..LDA #$0E.%...S|
00000A10: 54 41 20 24 30 32 38 36 3B 20 53 43 48 52 8B 54 |TA $0286; SCHR.T|
00000A20: 46 41 52 42 45 00 48 12 02 08 4A 53 52 20 43 4C |FARBE.H...JSR CL|
00000A30: 45 41 52 3B 20 42 49 4C 44 53 43 48 49 52 4D 20 |EAR; BILDSCHIRM |
00000A40: 4C 4F 45 53 43 48 45 4E 00 53 12 0C 08 4C 44 59 |LOESCHEN.S...LDY|
00000A50: 20 23 30 00 68 12 16 08 41 55 53 47 20 4C 44 41 | #0.h...AUSG LDA|
00000A60: 20 50 52 4F 47 80 2C 59 00 72 12 20 08 4A 53 52 | PROG.,Y.r. .JSR|
00000A70: 20 99 00 7A 12 25 08 49 4E 59 00 8F 12 2A 08 43 | ..z.%.INY...*.C|
00000A80: 50 59 20 23 54 45 58 54 31 AB 50 52 4F 47 80 00 |PY #TEXT1.PROG..|
00000A90: 9C 12 34 08 42 4E 45 20 41 55 53 47 00 A4 12 66 |..4.BNE AUSG...f|
00000AA0: 08 43 4C 43 00 B7 12 98 08 4C 44 58 20 23 32 34 |.CLC.....LDX #24|
00000AB0: 3B 20 5A 45 49 4C 45 00 CA 12 A2 08 4C 44 59 20 |; ZEILE.....LDY |
00000AC0: 23 31 3B 20 53 50 41 4C 54 45 00 EA 12 AC 08 4A |#1; SPALTE.....J|
00000AD0: 53 52 20 24 45 35 30 41 3B 20 43 55 52 53 B0 20 |SR $E50A; CURS. |
00000AE0: B9 49 54 49 91 49 45 52 45 4E 00 F5 12 CA 08 4C |.ITI.IEREN.....L|
00000AF0: 44 59 20 23 30 00 09 13 D4 08 41 55 53 20 4C 44 |DY #0.....AUS LD|
00000B00: 41 20 54 45 58 54 31 2C 59 00 13 13 DE 08 4A 53 |A TEXT1,Y.....JS|
00000B10: 52 20 99 00 1B 13 E8 08 49 4E 59 00 30 13 F2 08 |R ......INY.0...|
00000B20: 43 50 59 20 23 54 45 58 54 32 AB 54 45 58 54 31 |CPY #TEXT2.TEXT1|
00000B30: 00 3C 13 FC 08 42 4E 45 20 41 55 53 00 42 13 FD |.<...BNE AUS.B..|
00000B40: 08 3B 00 69 13 FE 08 3B 4B 4F 50 49 45 52 45 4E |.;.i...;KOPIEREN|
00000B50: 20 44 45 52 20 4C 41 44 45 AB 20 AD 20 53 54 41 | DER LADE. . STA|
00000B60: 52 54 52 4F 55 54 49 4E 45 00 6F 13 FF 08 3B 00 |RTROUTINE.o...;.|
00000B70: 82 13 06 09 4C 44 59 20 23 30 3B 20 4F 46 46 53 |....LDY #0; OFFS|
00000B80: 45 54 00 92 13 07 09 4C 44 41 20 23 B3 54 45 58 |ET.....LDA #.TEX|
00000B90: 54 34 00 9E 13 08 09 53 54 41 20 A5 41 4D 00 AE |T4.....STA .AM..|
00000BA0: 13 09 09 4C 44 41 20 23 B1 54 45 58 54 34 00 CF |...LDA #.TEXT4..|
00000BB0: 13 0A 09 53 54 41 20 A5 41 4D AA 31 3B 20 5A 45 |...STA .AM.1; ZE|
00000BC0: 49 47 45 52 20 41 55 46 20 51 55 45 4C 4C 45 00 |IGER AUF QUELLE.|
00000BD0: ED 13 0B 09 4C 44 41 20 23 B3 24 44 30 30 30 AB |....LDA #.$D000.|
00000BE0: 28 46 49 4E AA 32 AB 54 45 58 54 34 29 00 FB 13 |(FIN.2.TEXT4)...|
00000BF0: 0C 09 53 54 41 20 50 4F B5 45 52 00 19 14 0D 09 |..STA PO.ER.....|
00000C00: 4C 44 41 20 23 B1 24 44 30 30 30 AB 28 46 49 4E |LDA #.$D000.(FIN|
00000C10: AA 32 AB 54 45 58 54 34 29 00 3A 14 0E 09 53 54 |.2.TEXT4).:...ST|
00000C20: 41 20 50 4F B5 45 52 AA 31 3B 20 5A 45 49 47 45 |A PO.ER.1; ZEIGE|
00000C30: 52 20 41 55 46 20 5A 49 45 4C 00 4F 14 0F 09 43 |R AUF ZIEL.O...C|
00000C40: 4F 50 59 20 4C 44 41 20 28 A5 41 4D 29 2C 59 00 |OPY LDA (.AM),Y.|
00000C50: 6B 14 10 09 53 54 41 20 28 50 4F B5 45 52 29 2C |k...STA (PO.ER),|
00000C60: 59 3B 20 4B 4F 50 49 45 52 45 4E 00 73 14 11 09 |Y; KOPIEREN.s...|
00000C70: 49 4E 59 00 88 14 12 09 43 50 59 20 23 46 49 4E |INY.....CPY #FIN|
00000C80: AA 33 AB 54 45 58 54 34 00 95 14 14 09 42 4E 45 |.3.TEXT4.....BNE|
00000C90: 20 43 4F 50 59 00 9B 14 15 09 3B 00 B4 14 16 09 | COPY.....;.....|
00000CA0: 3B 56 B0 42 45 52 45 49 54 45 4E 20 44 45 53 20 |;V.BEREITEN DES |
00000CB0: 52 41 4D 53 00 BA 14 17 09 3B 00 C8 14 1A 09 4C |RAMS.....;.....L|
00000CC0: 44 41 20 23 B1 52 41 4D 00 D8 14 1B 09 53 54 41 |DA #.RAM.....STA|
00000CD0: 20 50 4F B5 45 52 AA 31 00 E6 14 1C 09 4C 44 41 | PO.ER.1.....LDA|
00000CE0: 20 23 B3 52 41 4D 00 F4 14 1E 09 53 54 41 20 50 | #.RAM.....STA P|
00000CF0: 4F B5 45 52 00 17 15 1F 09 4A 53 52 20 52 41 55 |O.ER.....JSR RAU|
00000D00: 4D 3B 20 4C 45 45 52 45 B5 52 41 45 47 45 20 45 |M; LEERE.RAEGE E|
00000D10: 52 5A 45 55 47 45 4E 00 29 15 21 09 4C 44 41 20 |RZEUGEN.).!.LDA |
00000D20: 23 B1 42 49 4C 44 4D 49 54 00 37 15 23 09 53 54 |#.BILDMIT.7.#.ST|
00000D30: 41 20 A5 41 4D AA 31 00 49 15 24 09 4C 44 41 20 |A .AM.1.I.$.LDA |
00000D40: 23 B3 42 49 4C 44 4D 49 54 00 55 15 25 09 53 54 |#.BILDMIT.U.%.ST|
00000D50: 41 20 A5 41 4D 00 60 15 2E 09 4C 44 58 20 23 31 |A .AM.`...LDX #1|
00000D60: 00 87 15 38 09 4A 53 52 20 43 48 4B 4F 55 54 3B |...8.JSR CHKOUT;|
00000D70: 20 41 55 53 47 41 42 45 20 49 4E 20 4B 4F 4D 4D | AUSGABE IN KOMM|
00000D80: AF 4F 4B 41 4E 41 4C 00 92 15 42 09 4C 44 58 20 |.OKANAL...B.LDX |
00000D90: 23 30 00 A6 15 4C 09 4B 4F 4D 20 4C 44 41 20 54 |#0...L.KOM LDA T|
00000DA0: 45 58 54 32 2C 58 00 C1 15 56 09 4A 53 52 20 99 |EXT2,X...V.JSR .|
00000DB0: 3B 20 42 45 46 45 48 4C 20 22 4D 2D 52 22 2E 2E |; BEFEHL "M-R"..|
00000DC0: 2E 00 C9 15 5B 09 49 4E 58 00 DE 15 60 09 43 50 |....[.INX...`.CP|
00000DD0: 58 20 23 54 45 58 54 33 AB 54 45 58 54 32 00 EA |X #TEXT3.TEXT2..|
00000DE0: 15 6A 09 42 4E 45 20 4B 4F 4D 00 F6 15 74 09 4A |.j.BNE KOM...t.J|
00000DF0: 53 52 20 9C 43 48 00 FC 15 7E 09 3B 00 15 16 88 |SR .CH...~.;....|
00000E00: 09 3B 44 41 54 45 4E 20 56 91 20 46 4C 4F 50 50 |.;DATEN V. FLOPP|
00000E10: 59 20 48 4F C3 00 1B 16 8D 09 3B 00 26 16 92 09 |Y HO......;.&...|
00000E20: 4C 44 58 20 23 31 00 48 16 9C 09 4A 53 52 20 43 |LDX #1.H...JSR C|
00000E30: 48 4B 49 4E 3B 20 45 49 4E 47 41 42 45 4E 20 56 |HKIN; EINGABEN V|
00000E40: 91 20 46 4C 4F 50 50 59 00 53 16 A6 09 4C 44 58 |. FLOPPY.S...LDX|
00000E50: 20 23 30 00 5F 16 B0 09 A5 20 4A 53 52 20 85 00 | #0._.... JSR ..|
00000E60: 6C 16 BA 09 4A 53 52 20 57 AF 45 4C 00 7F 16 C4 |l...JSR W.EL....|
00000E70: 09 53 54 41 20 24 30 34 30 30 AA 31 33 2C 58 00 |.STA $0400.13,X.|
00000E80: 87 16 CE 09 49 4E 58 00 AA 16 D8 09 43 50 58 20 |....INX.....CPX |
00000E90: 23 31 38 3B 20 4C 41 45 4E 47 45 20 44 45 53 20 |#18; LAENGE DES |
00000EA0: 44 49 53 4B 4E 41 4D 45 4E 53 00 B4 16 E2 09 42 |DISKNAMENS.....B|
00000EB0: 4E 45 20 A5 00 BE 16 EC 09 4A 53 52 20 85 00 CB |NE ......JSR ...|
00000EC0: 16 F6 09 4A 53 52 20 57 AF 45 4C 00 DC 16 00 0A |...JSR W.EL.....|
00000ED0: 53 54 41 20 24 30 34 30 30 AA 33 35 00 E6 16 0A |STA $0400.35....|
00000EE0: 0A 4A 53 52 20 85 00 F3 16 14 0A 4A 53 52 20 57 |.JSR ......JSR W|
00000EF0: AF 45 4C 00 04 17 1E 0A 53 54 41 20 24 30 34 30 |.EL.....STA $040|
00000F00: 30 AA 33 36 00 0A 17 28 0A 3B 00 33 17 32 0A 3B |0.36...(.;.3.2.;|
00000F10: 20 45 B5 52 41 45 47 45 20 41 55 46 20 42 49 4C | E.RAEGE AUF BIL|
00000F20: 44 53 43 48 49 52 4D 20 55 4E 44 20 49 4E 53 20 |DSCHIRM UND INS |
00000F30: 52 41 4D 00 39 17 3C 0A 3B 00 3F 17 B4 0A 3B 00 |RAM.9.<.;.?...;.|
00000F40: 62 17 BE 0A 4C 44 58 20 23 32 30 3B 20 B9 49 54 |b...LDX #20; .IT|
00000F50: 49 91 20 49 4D 20 46 4C 4F 50 50 59 50 55 46 46 |I. IM FLOPPYPUFF|
00000F60: 45 52 00 80 17 BF 0A A1 20 4C 44 59 20 23 30 3B |ER...... LDY #0;|
00000F70: 20 5A 45 49 47 45 52 20 53 50 45 49 43 48 45 52 | ZEIGER SPEICHER|
00000F80: 00 98 17 C0 0A 4A 53 52 20 85 3B 20 4D 41 52 4B |.....JSR .; MARK|
00000F90: 49 45 8A 47 20 48 4F C3 00 B9 17 C1 0A 43 4D 50 |IE.G HO......CMP|
00000FA0: 20 23 24 46 46 3B 20 4B 45 4E 4E 55 4E 47 20 88 | #$FF; KENNUNG .|
00000FB0: 5A 54 45 53 20 42 59 54 45 00 CD 17 C2 0A 42 45 |ZTES BYTE.....BE|
00000FC0: 51 20 90 3B 20 46 41 4C 4C 53 20 4A 41 00 E8 17 |Q .; FALLS JA...|
00000FD0: C3 0A 53 54 41 20 28 50 4F B5 45 52 29 2C 59 3B |..STA (PO.ER),Y;|
00000FE0: 20 49 4E 53 20 52 41 4D 00 F5 17 C4 0A 49 4E 59 | INS RAM.....INY|
00000FF0: 3A 20 49 4E 58 00 0F 18 C6 0A 4A 53 52 20 85 3B |: INX.....JSR .;|
00001000: 20 41 44 52 45 53 53 42 59 54 45 20 48 4F C3 00 | ADRESSBYTE HO..|
00001010: 2E 18 C7 0A 53 54 41 20 28 50 4F B5 45 52 29 2C |....STA (PO.ER),|
00001020: 59 3B 20 55 4E 44 20 49 4E 53 20 52 41 4D 00 3B |Y; UND INS RAM.;|
00001030: 18 C8 0A 49 4E 59 3A 20 49 4E 58 00 55 18 C9 0A |...INY: INX.U...|
00001040: 4A 53 52 20 85 3B 20 41 44 52 45 53 53 42 59 54 |JSR .; ADRESSBYT|
00001050: 45 20 48 4F C3 00 75 18 CA 0A 53 54 41 20 28 50 |E HO..u...STA (P|
00001060: 4F B5 45 52 29 2C 59 3B 20 41 55 43 48 20 49 4E |O.ER),Y; AUCH IN|
00001070: 53 20 52 41 4D 00 82 18 CB 0A 49 4E 59 3A 20 49 |S RAM.....INY: I|
00001080: 4E 58 00 88 18 D0 0A 3B 00 A5 18 D9 0A 54 52 41 |NX.....;.....TRA|
00001090: 4E 53 20 4A 53 52 20 85 3B 20 46 49 C3 41 4D 45 |NS JSR .; FI.AME|
000010A0: 4E 20 48 4F C3 00 C0 18 DA 0A 53 54 41 20 28 50 |N HO......STA (P|
000010B0: 4F B5 45 52 29 2C 59 3B 20 49 4E 53 20 52 41 4D |O.ER),Y; INS RAM|
000010C0: 00 CD 18 DC 0A 4A 53 52 20 57 AF 45 4C 00 F1 18 |.....JSR W.EL...|
000010D0: E6 0A 53 54 41 20 28 A5 41 4D 29 2C 59 3B 20 41 |..STA (.AM),Y; A|
000010E0: 55 46 20 44 45 4E 20 42 49 4C 44 53 43 48 49 52 |UF DEN BILDSCHIR|
000010F0: 4D 00 F9 18 0E 0B 49 4E 58 00 01 19 2C 0B 49 4E |M.....INX...,.IN|
00001100: 59 00 28 19 36 0B 43 50 59 20 23 31 39 3B 20 4C |Y.(.6.CPY #19; L|
00001110: 41 45 4E 47 45 20 50 41 52 41 4D 45 54 45 52 20 |AENGE PARAMETER |
00001120: AA 20 46 49 C3 41 4D 45 00 36 19 40 0B 42 4E 45 |. FI.AME.6.@.BNE|
00001130: 20 54 52 41 4E 53 00 50 19 4A 0B 4C 44 41 20 50 | TRANS.P.J.LDA P|
00001140: 4F B5 45 52 3B 20 52 41 4D AB 5A 45 49 47 45 52 |O.ER; RAM.ZEIGER|
00001150: 00 58 19 54 0B 43 4C 43 00 73 19 5E 0B 41 44 43 |.X.T.CLC.s.^.ADC|
00001160: 20 23 31 39 3B 20 41 4B 54 55 41 4C 49 53 49 45 | #19; AKTUALISIE|
00001170: 52 45 4E 00 81 19 68 0B 53 54 41 20 50 4F B5 45 |REN...h.STA PO.E|
00001180: 52 00 8F 19 72 0B 42 43 43 20 43 48 45 43 4B 00 |R...r.BCC CHECK.|
00001190: B4 19 7C 0B 49 4E 43 20 50 4F B5 45 52 AA 31 3B |..|.INC PO.ER.1;|
000011A0: 20 52 41 4D AB 5A 45 49 47 45 52 20 45 52 48 4F | RAM.ZEIGER ERHO|
000011B0: 45 48 45 4E 00 C6 19 86 0B 43 48 45 43 4B 20 4C |EHEN.....CHECK L|
000011C0: 44 41 20 A5 41 4D 00 CE 19 90 0B 43 4C 43 00 EF |DA .AM.....CLC..|
000011D0: 19 9A 0B 41 44 43 20 23 34 30 3B 20 46 55 45 52 |...ADC #40; FUER|
000011E0: 20 4E 41 45 43 48 53 54 45 20 5A 45 49 4C 45 00 | NAECHSTE ZEILE.|
000011F0: FB 19 A4 0B 53 54 41 20 A5 41 4D 00 08 1A AE 0B |....STA .AM.....|
00001200: 42 43 43 20 4C 4F 4F 4B 00 16 1A B8 0B 49 4E 43 |BCC LOOK.....INC|
00001210: 20 A5 41 4D AA 31 00 29 1A BD 0B 4C 4F 4F 4B 20 | .AM.1.)...LOOK |
00001220: 4C 44 41 20 A5 41 4D AA 31 00 4D 1A C2 0B 43 4D |LDA .AM.1.M...CM|
00001230: 50 20 23 B1 42 49 4C 44 80 3B 20 88 5A 54 45 20 |P #.BILD.; .ZTE |
00001240: 44 49 52 45 43 A4 52 59 5A 45 49 4C 45 00 57 1A |DIREC.RYZEILE.W.|
00001250: CC 0B 42 4E 45 20 A1 00 63 1A D1 0B 4C 44 41 20 |..BNE ..c...LDA |
00001260: A5 41 4D 00 87 1A D6 0B 43 4D 50 20 23 B3 42 49 |.AM.....CMP #.BI|
00001270: 4C 44 80 3B 20 88 5A 54 45 20 44 49 52 45 43 A4 |LD.; .ZTE DIREC.|
00001280: 52 59 5A 45 49 4C 45 00 B1 1A E0 0B 42 43 43 20 |RYZEILE.....BCC |
00001290: A1 3B 20 55 4E 42 45 44 49 4E 47 54 45 52 20 53 |.; UNBEDINGTER S|
000012A0: 50 8A 47 20 46 41 4C 4C 53 20 4B 4C 45 49 4E 45 |P.G FALLS KLEINE|
000012B0: 52 00 B7 1A EA 0B 3B 00 D5 1A EC 0B 3B 20 57 45 |R.....;.....; WE|
000012C0: 49 54 45 52 45 20 45 B5 52 41 45 47 45 20 49 4E |ITERE E.RAEGE IN|
000012D0: 53 20 52 41 4D 00 DB 1A EE 0B 3B 00 E9 1A F4 0B |S RAM.....;.....|
000012E0: A1 31 20 4C 44 59 20 23 30 00 FA 1A FE 0B 54 52 |.1 LDY #0.....TR|
000012F0: 41 4E 53 31 20 4A 53 52 20 85 00 13 1B 08 0C 43 |ANS1 JSR ......C|
00001300: 4D 50 20 23 24 46 46 3B 20 88 5A 54 45 53 20 42 |MP #$FF; .ZTES B|
00001310: 59 54 45 00 1D 1B 12 0C 42 45 51 20 90 00 38 1B |YTE.....BEQ ..8.|
00001320: 26 0C 53 54 41 20 28 50 4F B5 45 52 29 2C 59 3B |&.STA (PO.ER),Y;|
00001330: 20 49 4E 53 20 52 41 4D 00 40 1B 30 0C 49 4E 58 | INS RAM.@.0.INX|
00001340: 00 4B 1B 3A 0C 42 4E 45 20 CB 31 00 58 1B 44 0C |.K.:.BNE .1.X.D.|
00001350: 4A 53 52 20 4C 49 45 53 00 63 1B 4E 0C CB 31 20 |JSR LIES.c.N..1 |
00001360: 49 4E 59 00 6F 1B 58 0C 43 50 59 20 23 31 39 00 |INY.o.X.CPY #19.|
00001370: 7E 1B 62 0C 42 4E 45 20 54 52 41 4E 53 31 00 8C |~.b.BNE TRANS1..|
00001380: 1B 6C 0C 4C 44 41 20 50 4F B5 45 52 00 94 1B 76 |.l.LDA PO.ER...v|
00001390: 0C 43 4C 43 00 A0 1B 80 0C 41 44 43 20 23 31 39 |.CLC.....ADC #19|
000013A0: 00 AE 1B 8A 0C 53 54 41 20 50 4F B5 45 52 00 B9 |.....STA PO.ER..|
000013B0: 1B 94 0C 42 43 43 20 A1 31 00 DE 1B 9E 0C 49 4E |...BCC .1.....IN|
000013C0: 43 20 50 4F B5 45 52 AA 31 3B 20 52 41 4D AB 5A |C PO.ER.1; RAM.Z|
000013D0: 45 49 47 45 52 20 45 52 48 4F 45 48 45 4E 00 FB |EIGER ERHOEHEN..|
000013E0: 1B A3 0C 42 43 53 20 A1 31 3B 20 55 4E 42 45 44 |...BCS .1; UNBED|
000013F0: 49 4E 47 54 45 52 20 53 50 8A 47 00 01 1C A8 0C |INGTER SP.G.....|
00001400: 3B 00 1D 1C B2 0C 90 20 4A 53 52 20 52 41 55 4D |;...... JSR RAUM|
00001410: 3B 20 4C 45 45 52 45 B5 52 41 45 47 45 00 45 1C |; LEERE.RAEGE.E.|
00001420: BC 0C 4A 53 52 20 9C 43 48 3B 20 45 49 4E 47 41 |..JSR .CH; EINGA|
00001430: 42 45 20 57 49 45 44 45 52 20 56 91 20 54 41 53 |BE WIEDER V. TAS|
00001440: 54 41 54 55 52 00 53 1C C6 0C 4C 44 41 20 50 4F |TATUR.S...LDA PO|
00001450: B5 45 52 00 5B 1C C8 0C 53 45 43 00 6B 1C CA 0C |.ER.[...SEC.k...|
00001460: 53 42 43 20 23 B3 32 31 AC 31 39 00 75 1C D0 0C |SBC #.21.19.u...|
00001470: 53 54 41 20 80 00 85 1C DA 0C 4C 44 41 20 50 4F |STA ......LDA PO|
00001480: B5 45 52 AA 31 00 95 1C E4 0C 53 42 43 20 23 B1 |.ER.1.....SBC #.|
00001490: 32 31 AC 31 39 00 A1 1C E9 0C 53 54 41 20 80 AA |21.19.....STA ..|
000014A0: 31 00 A7 1C EE 0C 3B 00 BA 1C F8 0C 49 4E 49 54 |1.....;.....INIT|
000014B0: 20 4C 44 41 20 23 B3 52 41 4D 00 C6 1C 02 0D 53 | LDA #.RAM.....S|
000014C0: 54 41 20 41 4E 46 00 D4 1C 0C 0D 4C 44 41 20 23 |TA ANF.....LDA #|
000014D0: B1 52 41 4D 00 E2 1C 16 0D 53 54 41 20 41 4E 46 |.RAM.....STA ANF|
000014E0: AA 31 00 07 1D 1B 0D 4C 44 58 20 23 31 37 3B 20 |.1.....LDX #17; |
000014F0: B3 43 55 52 53 B0 20 44 4F 57 4E B1 20 56 B0 42 |.CURS. DOWN. V.B|
00001500: 45 52 45 49 54 45 4E 00 0D 1D 20 0D 3B 00 31 1D |EREITEN... .;.1.|
00001510: 22 0D 3B 20 41 4E 5A 45 49 47 45 4E 20 45 49 4E |".; ANZEIGEN EIN|
00001520: 45 53 20 52 41 4D 41 55 53 53 43 48 4E 49 54 54 |ES RAMAUSSCHNITT|
00001530: 53 00 37 1D 24 0D 3B 00 49 1D 48 0D 42 50 52 4E |S.7.$.;.I.H.BPRN|
00001540: 54 20 4C 44 41 20 41 4E 46 00 57 1D 52 0D 53 54 |T LDA ANF.W.R.ST|
00001550: 41 20 50 4F B5 45 52 00 65 1D 5C 0D 4C 44 41 20 |A PO.ER.e.\.LDA |
00001560: 41 4E 46 AA 31 00 85 1D 66 0D 53 54 41 20 50 4F |ANF.1...f.STA PO|
00001570: B5 45 52 AA 31 3B 20 5A 45 49 47 45 52 20 49 4E |.ER.1; ZEIGER IN|
00001580: 53 20 52 41 4D 00 8B 1D 70 0D 3B 00 9A 1D 7A 0D |S RAM...p.;...z.|
00001590: 4C 44 59 20 23 31 30 AC 31 39 00 BA 1D 84 0D 4C |LDY #10.19.....L|
000015A0: 44 41 20 28 50 4F B5 45 52 29 2C 59 3B 20 4D 41 |DA (PO.ER),Y; MA|
000015B0: 52 4B 49 45 8A 47 20 48 4F C3 00 C7 1D 8E 0D 43 |RKIE.G HO......C|
000015C0: 4D 50 20 23 22 4E 22 00 EA 1D 93 0D 42 45 51 20 |MP #"N".....BEQ |
000015D0: 51 55 45 53 54 3B 20 5A 45 49 4C 45 20 55 45 42 |QUEST; ZEILE UEB|
000015E0: 45 52 53 50 52 49 4E 47 45 4E 00 F0 1D 95 0D 3B |ERSPRINGEN.....;|
000015F0: 00 FF 1D 98 0D 4C 44 41 20 23 B1 4F 42 45 4E 00 |.....LDA #.OBEN.|
00001600: 0D 1E 9D 0D 53 54 41 20 A5 41 4D AA 31 00 1C 1E |....STA .AM.1...|
00001610: A2 0D 4C 44 41 20 23 B3 4F 42 45 4E 00 39 1E A7 |..LDA #.OBEN.9..|
00001620: 0D 53 54 41 20 A5 41 4D 3B 20 5A 45 49 47 45 52 |.STA .AM; ZEIGER|
00001630: 20 49 4E 53 20 42 49 4C 44 00 3F 1E AB 0D 3B 00 | INS BILD.?...;.|
00001640: 50 1E AC 0D 5A 50 52 4E 54 20 4C 44 59 20 23 33 |P...ZPRNT LDY #3|
00001650: 00 74 1E B6 0D 50 52 4E 54 20 4C 44 41 20 28 50 |.t...PRNT LDA (P|
00001660: 4F B5 45 52 29 2C 59 3B 20 41 55 53 20 44 45 4D |O.ER),Y; AUS DEM|
00001670: 20 52 41 4D 00 98 1E BB 0D 4A 53 52 20 57 AF 45 | RAM.....JSR W.E|
00001680: 4C 3B 20 C6 49 49 20 AB B1 20 42 49 4C 44 53 43 |L; .II .. BILDSC|
00001690: 48 49 52 4D 43 4F 44 45 00 BB 1E C0 0D 53 54 41 |HIRMCODE.....STA|
000016A0: 20 28 A5 41 4D 29 2C 59 3B 41 55 46 20 44 45 4E | (.AM),Y;AUF DEN|
000016B0: 20 42 49 4C 44 53 43 48 49 52 4D 00 C3 1E CA 0D | BILDSCHIRM.....|
000016C0: 49 4E 59 00 CF 1E D4 0D 43 50 59 20 23 31 39 00 |INY.....CPY #19.|
000016D0: DC 1E DE 0D 42 4E 45 20 50 52 4E 54 00 EA 1E 06 |....BNE PRNT....|
000016E0: 0E 4C 44 41 20 50 4F B5 45 52 00 F2 1E 10 0E 43 |.LDA PO.ER.....C|
000016F0: 4C 43 00 FE 1E 1A 0E 41 44 43 20 23 31 39 00 0C |LC.....ADC #19..|
00001700: 1F 24 0E 53 54 41 20 50 4F B5 45 52 00 1B 1F 2E |.$.STA PO.ER....|
00001710: 0E 42 43 43 20 43 48 45 43 4B 32 00 40 1F 38 0E |.BCC CHECK2.@.8.|
00001720: 49 4E 43 20 50 4F B5 45 52 AA 31 3B 20 52 41 4D |INC PO.ER.1; RAM|
00001730: AB 5A 45 49 47 45 52 20 45 52 48 4F 45 48 45 4E |.ZEIGER ERHOEHEN|
00001740: 00 53 1F 42 0E 43 48 45 43 4B 32 20 4C 44 41 20 |.S.B.CHECK2 LDA |
00001750: A5 41 4D 00 5B 1F 4C 0E 43 4C 43 00 7C 1F 56 0E |.AM.[.L.CLC.|.V.|
00001760: 41 44 43 20 23 34 30 3B 20 46 55 45 52 20 4E 41 |ADC #40; FUER NA|
00001770: 45 43 48 53 54 45 20 5A 45 49 4C 45 00 88 1F 60 |ECHSTE ZEILE...`|
00001780: 0E 53 54 41 20 A5 41 4D 00 96 1F 6A 0E 42 43 43 |.STA .AM...j.BCC|
00001790: 20 4C 4F 4F 4B 32 00 A4 1F 74 0E 49 4E 43 20 A5 | LOOK2...t.INC .|
000017A0: 41 4D AA 31 00 B8 1F 79 0E 4C 4F 4F 4B 32 20 4C |AM.1...y.LOOK2 L|
000017B0: 44 41 20 A5 41 4D AA 31 00 DC 1F 7E 0E 43 4D 50 |DA .AM.1...~.CMP|
000017C0: 20 23 B1 42 49 4C 44 80 3B 20 88 5A 54 45 20 44 | #.BILD.; .ZTE D|
000017D0: 49 52 45 43 A4 52 59 5A 45 49 4C 45 00 EA 1F 88 |IREC.RYZEILE....|
000017E0: 0E 42 4E 45 20 5A 50 52 4E 54 00 F6 1F 8D 0E 4C |.BNE ZPRNT.....L|
000017F0: 44 41 20 A5 41 4D 00 1A 20 92 0E 43 4D 50 20 23 |DA .AM.. ..CMP #|
00001800: B3 42 49 4C 44 80 3B 20 88 5A 54 45 20 44 49 52 |.BILD.; .ZTE DIR|
00001810: 45 43 A4 52 59 5A 45 49 4C 45 00 3A 20 9C 0E 42 |EC.RYZEILE.: ..B|
00001820: 43 43 20 5A 50 52 4E 54 3B 20 55 4E 42 45 44 49 |CC ZPRNT; UNBEDI|
00001830: 4E 47 54 45 52 20 53 50 8A 47 00 40 20 A1 0E 3B |NGTER SP.G.@ ..;|
00001840: 00 5C 20 A6 0E 4C 44 58 20 23 33 3A 20 4C 44 41 |.\ ..LDX #3: LDA|
00001850: 20 23 24 32 31 3B 20 46 41 52 42 45 00 7F 20 AB | #$21; FARBE.. .|
00001860: 0E 42 41 4C 4B 20 53 54 41 20 24 44 39 45 42 2C |.BALK STA $D9EB,|
00001870: 58 3B 20 48 B5 45 52 47 8A 44 46 41 52 42 45 00 |X; H.ERG.DFARBE.|
00001880: 87 20 AD 0E 49 4E 58 00 93 20 B0 0E 43 50 58 20 |. ..INX.. ..CPX |
00001890: 23 31 39 00 A0 20 B5 0E 42 4E 45 20 42 41 4C 4B |#19.. ..BNE BALK|
000018A0: 00 A6 20 D8 0E 3B 00 BD 20 E2 0E 3B 20 53 43 52 |.. ..;.. ..; SCR|
000018B0: 4F 4C C3 20 55 4E 44 20 4C 41 44 45 4E 00 C3 20 |OL. UND LADEN.. |
000018C0: EC 0E 3B 00 CF 20 F1 0E 4A 53 52 20 9C 43 48 00 |..;.. ..JSR .CH.|
000018D0: DB 20 F6 0E 53 54 59 20 24 42 41 00 FD 20 00 0F |. ..STY $BA.. ..|
000018E0: 41 42 46 52 20 4A 53 52 20 24 46 46 45 34 3B 20 |ABFR JSR $FFE4; |
000018F0: A1 20 56 91 20 54 41 53 54 41 54 55 52 00 17 21 |. V. TASTATUR..!|
00001900: 0A 0F 54 41 58 3B 20 45 52 47 45 42 4E 49 53 20 |..TAX; ERGEBNIS |
00001910: 53 49 43 48 45 52 4E 00 36 21 14 0F 51 55 45 53 |SICHERN.6!..QUES|
00001920: 54 20 43 50 58 20 23 31 34 35 3B 20 B3 43 55 52 |T CPX #145; .CUR|
00001930: 53 B0 20 55 50 B1 00 42 21 1E 0F 42 45 51 20 55 |S. UP..B!..BEQ U|
00001940: 50 50 00 5C 21 28 0F 43 50 58 20 23 31 37 3B 20 |PP.\!(.CPX #17; |
00001950: B3 43 55 52 53 B0 20 44 4F 57 4E B1 00 69 21 32 |.CURS. DOWN..i!2|
00001960: 0F 42 45 51 20 44 4F 57 4E 00 81 21 3C 0F 43 50 |.BEQ DOWN..!<.CP|
00001970: 58 20 23 22 51 22 3B 20 B3 54 41 53 54 45 20 51 |X #"Q"; .TASTE Q|
00001980: B1 00 8E 21 46 0F 42 45 51 20 51 55 49 54 00 A0 |...!F.BEQ QUIT..|
00001990: 21 48 0F 43 50 58 20 23 33 3B 20 B3 8A AD 90 B1 |!H.CPX #3; .....|
000019A0: 00 AD 21 4A 0F 42 45 51 20 51 55 49 54 00 C3 21 |..!J.BEQ QUIT..!|
000019B0: 4B 0F 43 50 58 20 23 22 20 22 3B 20 B3 53 50 41 |K.CPX #" "; .SPA|
000019C0: 43 45 B1 00 CD 21 4C 0F 42 4E 45 20 9A 00 DA 21 |CE...!L.BNE ...!|
000019D0: 4D 0F 4A 4D 50 20 53 54 52 54 00 ED 21 50 0F 9A |M.JMP STRT..!P..|
000019E0: 20 43 50 58 20 23 31 33 3B 20 B3 8E B1 00 FA 21 | CPX #13; .....!|
000019F0: 5A 0F 42 4E 45 20 41 42 46 52 00 00 22 C0 12 3B |Z.BNE ABFR.."..;|
00001A00: 00 15 22 CA 12 4C 44 41 20 23 32 3B 20 46 49 C3 |.."..LDA #2; FI.|
00001A10: 55 4D 4D 45 52 00 30 22 CF 12 4C 44 58 20 23 38 |UMMER.0"..LDX #8|
00001A20: 3B 20 47 45 52 41 45 54 45 41 44 52 45 53 53 45 |; GERAETEADRESSE|
00001A30: 00 4D 22 D4 12 4C 44 59 20 23 31 3B 20 53 45 4B |.M"..LDY #1; SEK|
00001A40: 55 4E 44 41 45 52 41 44 52 45 53 53 45 00 6E 22 |UNDAERADRESSE.n"|
00001A50: D9 12 4A 53 52 20 53 45 54 46 4C 53 3B 20 50 41 |..JSR SETFLS; PA|
00001A60: 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 74 |RAMETER SETZEN.t|
00001A70: 22 DB 12 3B 00 80 22 DE 12 4C 44 41 20 41 4E 46 |"..;.."..LDA ANF|
00001A80: 00 88 22 E0 12 43 4C 43 00 AF 22 E3 12 41 44 43 |.."..CLC.."..ADC|
00001A90: 20 23 31 30 AC 31 39 3B 20 41 4E 46 41 4E 47 20 | #10.19; ANFANG |
00001AA0: 4D 41 52 4B 49 45 52 54 45 20 5A 45 49 4C 45 00 |MARKIERTE ZEILE.|
00001AB0: CD 22 E4 12 53 54 41 20 50 4F B5 45 52 3B 20 4C |."..STA PO.ER; L|
00001AC0: 4F 57 42 59 54 45 20 5A 45 49 47 45 52 00 E5 22 |OWBYTE ZEIGER.."|
00001AD0: E5 12 54 41 58 3B 20 4E 41 43 48 20 58 20 42 52 |..TAX; NACH X BR|
00001AE0: 49 4E 47 45 4E 00 F3 22 E6 12 42 43 43 20 53 4E |INGEN.."..BCC SN|
00001AF0: 41 4D 45 00 12 23 E7 12 49 4E 43 20 41 4E 46 AA |AME..#..INC ANF.|
00001B00: 31 3B 20 46 41 4C 4C 53 20 55 45 42 45 52 54 52 |1; FALLS UEBERTR|
00001B10: 41 47 00 26 23 E8 12 53 4E 41 4D 45 20 4C 44 41 |AG.&#..SNAME LDA|
00001B20: 20 41 4E 46 AA 31 00 5C 23 E9 12 53 54 41 20 50 | ANF.1.\#..STA P|
00001B30: 4F B5 45 52 AA 31 3B 20 48 49 47 48 42 59 54 45 |O.ER.1; HIGHBYTE|
00001B40: 20 41 4E 46 41 4E 47 20 46 49 C3 41 4D 45 3A 20 | ANFANG FI.AME: |
00001B50: 50 48 41 3B 20 53 49 43 48 45 52 4E 00 87 23 EA |PHA; SICHERN..#.|
00001B60: 12 4C 44 59 20 23 31 3A 20 4C 44 41 20 23 24 34 |.LDY #1: LDA #$4|
00001B70: 43 3B 20 42 45 46 45 48 4C 20 4A 4D 50 3A 20 53 |C; BEFEHL JMP: S|
00001B80: 54 41 20 32 30 36 31 00 A8 23 EB 12 4C 44 41 20 |TA 2061..#..LDA |
00001B90: 28 50 4F B5 45 52 29 2C 59 3A 20 53 54 41 20 32 |(PO.ER),Y: STA 2|
00001BA0: 30 36 32 3A 20 49 4E 59 00 D6 23 EC 12 4C 44 41 |062: INY..#..LDA|
00001BB0: 20 28 50 4F B5 45 52 29 2C 59 3A 20 53 54 41 20 | (PO.ER),Y: STA |
00001BC0: 32 30 36 33 3B 20 4A 4D 50 20 53 54 41 52 54 41 |2063; JMP STARTA|
00001BD0: 44 52 45 53 53 45 00 03 24 ED 12 49 4E 58 3A 20 |DRESSE..$..INX: |
00001BE0: 49 4E 58 3A 20 49 4E 58 3B 20 58 20 41 55 46 20 |INX: INX; X AUF |
00001BF0: 41 4E 46 41 4E 47 20 46 49 C3 41 4D 45 20 53 54 |ANFANG FI.AME ST|
00001C00: 45 4C C3 00 3D 24 EE 12 50 4C 41 3A 20 54 41 59 |EL..=$..PLA: TAY|
00001C10: 3B 20 48 49 47 48 42 59 54 45 20 5A 45 49 47 45 |; HIGHBYTE ZEIGE|
00001C20: 52 20 48 4F C3 3A 20 4C 44 41 20 23 31 36 3B 20 |R HO.: LDA #16; |
00001C30: 4C 41 45 4E 47 45 20 46 49 C3 41 4D 45 00 4C 24 |LAENGE FI.AME.L$|
00001C40: EF 12 4A 53 52 20 53 45 54 4E 41 4D 00 6F 24 F0 |..JSR SETNAM.o$.|
00001C50: 12 4A 53 52 20 43 4C 45 41 52 3B 20 42 49 4C 44 |.JSR CLEAR; BILD|
00001C60: 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E 00 |SCHIRM LOESCHEN.|
00001C70: 87 24 F2 12 4C 44 41 20 23 30 3B 20 46 4C 41 47 |.$..LDA #0; FLAG|
00001C80: 20 46 55 45 52 20 93 00 94 24 F7 12 4C 44 58 20 | FUER ...$..LDX |
00001C90: 23 24 46 46 00 A1 24 FC 12 4C 44 59 20 23 24 46 |#$FF..$..LDY #$F|
00001CA0: 46 00 D4 24 01 13 4A 4D 50 20 24 44 30 30 30 AB |F..$..JMP $D000.|
00001CB0: 28 46 49 4E AA 32 AB 54 45 58 54 34 29 3B 20 5A |(FIN.2.TEXT4); Z|
00001CC0: 55 52 20 4B 4F 50 49 45 52 54 45 4E 20 52 4F 55 |UR KOPIERTEN ROU|
00001CD0: 54 49 4E 45 00 DA 24 06 13 3B 00 FC 24 1A 13 51 |TINE..$..;..$..Q|
00001CE0: 55 49 54 20 4C 44 41 20 23 31 3A 20 4A 53 52 20 |UIT LDA #1: JSR |
00001CF0: A0 3A 20 4A 4D 50 20 43 4C 45 41 52 00 02 25 4C |.: JMP CLEAR..%L|
00001D00: 13 3B 00 11 25 51 13 55 50 50 20 4A 4D 50 20 55 |.;..%Q.UPP JMP U|
00001D10: 50 00 17 25 53 13 3B 00 3E 25 56 13 44 4F 57 4E |P..%S.;.>%V.DOWN|
00001D20: 20 4C 44 41 20 41 4E 46 AA 31 3B 20 46 45 4E 53 | LDA ANF.1; FENS|
00001D30: 54 45 52 41 4E 46 41 4E 47 20 48 49 47 48 00 5C |TERANFANG HIGH.\|
00001D40: 25 60 13 43 4D 50 20 80 AA 31 3B 20 41 42 4C 41 |%`.CMP ..1; ABLA|
00001D50: 47 45 53 50 45 49 43 48 45 52 80 45 00 77 25 6A |GESPEICHER.E.w%j|
00001D60: 13 42 45 51 20 44 4F 57 4E 31 3B 20 46 41 4C 4C |.BEQ DOWN1; FALL|
00001D70: 53 20 41 4E 46 B2 80 00 92 25 6F 13 42 43 53 20 |S ANF....%o.BCS |
00001D80: 48 49 4C 46 3B 20 46 41 4C 4C 53 20 41 4E 46 B1 |HILF; FALLS ANF.|
00001D90: B2 80 00 B7 25 7E 13 44 4F 57 4E 32 20 4C 44 41 |....%~.DOWN2 LDA|
00001DA0: 20 41 4E 46 3B 20 46 45 4E 53 54 45 52 41 4E 46 | ANF; FENSTERANF|
00001DB0: 41 4E 47 20 4C 4F 57 00 BF 25 88 13 43 4C 43 00 |ANG LOW..%..CLC.|
00001DC0: DB 25 97 13 41 44 43 20 23 31 39 3B 20 4E 41 45 |.%..ADC #19; NAE|
00001DD0: 43 48 53 54 45 20 5A 45 49 4C 45 00 E7 25 9C 13 |CHSTE ZEILE..%..|
00001DE0: 53 54 41 20 41 4E 46 00 F5 25 A1 13 42 43 43 20 |STA ANF..%..BCC |
00001DF0: 48 49 4C 46 31 00 03 26 A6 13 49 4E 43 20 41 4E |HILF1..&..INC AN|
00001E00: 46 AA 31 00 2C 26 AB 13 4A 4D 50 20 42 50 52 4E |F.1.,&..JMP BPRN|
00001E10: 54 3B 20 4E 45 55 45 4E 20 41 55 53 53 43 48 4E |T; NEUEN AUSSCHN|
00001E20: 49 54 54 20 41 4E 5A 45 49 47 45 4E 00 3E 26 B0 |ITT ANZEIGEN.>&.|
00001E30: 13 44 4F 57 4E 31 20 4C 44 41 20 41 4E 46 00 48 |.DOWN1 LDA ANF.H|
00001E40: 26 BA 13 43 4D 50 20 80 00 55 26 C4 13 42 43 53 |&..CMP ..U&..BCS|
00001E50: 20 48 49 4C 46 00 63 26 C9 13 42 43 43 20 44 4F | HILF.c&..BCC DO|
00001E60: 57 4E 32 00 69 26 CE 13 3B 00 7A 26 D8 13 55 50 |WN2.i&..;.z&..UP|
00001E70: 20 4C 44 41 20 41 4E 46 AA 31 00 8B 26 E2 13 43 | LDA ANF.1..&..C|
00001E80: 4D 50 20 23 B1 52 41 4D AA 31 39 00 98 26 EC 13 |MP #.RAM.19..&..|
00001E90: 42 43 43 20 48 49 4C 46 00 A4 26 F1 13 42 4E 45 |BCC HILF..&..BNE|
00001EA0: 20 55 50 31 00 B0 26 F6 13 4C 44 41 20 41 4E 46 | UP1..&..LDA ANF|
00001EB0: 00 C1 26 00 14 43 4D 50 20 23 B3 52 41 4D AA 31 |..&..CMP #.RAM.1|
00001EC0: 39 00 CD 26 0A 14 42 43 43 20 57 54 52 00 DD 26 |9..&..BCC WTR..&|
00001ED0: 14 14 55 50 31 20 4C 44 41 20 41 4E 46 00 E5 26 |..UP1 LDA ANF..&|
00001EE0: 1E 14 53 45 43 00 FD 26 28 14 53 42 43 20 23 31 |..SEC..&(.SBC #1|
00001EF0: 39 3B 20 5A 45 49 4C 45 20 48 4F 43 48 00 09 27 |9; ZEILE HOCH..'|
00001F00: 32 14 53 54 41 20 41 4E 46 00 17 27 3C 14 42 43 |2.STA ANF..'<.BC|
00001F10: 53 20 48 49 4C 46 31 00 25 27 46 14 44 45 43 20 |S HILF1.%'F.DEC |
00001F20: 41 4E 46 AA 31 00 39 27 50 14 48 49 4C 46 31 20 |ANF.1.9'P.HILF1 |
00001F30: 4A 4D 50 20 42 50 52 4E 54 00 59 27 5A 14 57 54 |JMP BPRNT.Y'Z.WT|
00001F40: 52 20 4A 4D 50 20 41 42 46 52 3B 20 4B 45 49 4E |R JMP ABFR; KEIN|
00001F50: 45 20 52 45 41 4B 54 49 91 00 5F 27 64 14 3B 00 |E REAKTI.._'d.;.|
00001F60: 88 27 6E 14 48 49 4C 46 20 4C 44 58 20 23 31 34 |.'n.HILF LDX #14|
00001F70: 35 3B 20 B3 43 55 52 53 B0 20 55 50 B1 20 56 B0 |5; .CURS. UP. V.|
00001F80: 42 45 52 45 49 54 45 4E 00 B1 27 78 14 4A 4D 50 |BEREITEN..'x.JMP|
00001F90: 20 42 50 52 4E 54 3B 20 55 4E 44 20 41 55 53 53 | BPRNT; UND AUSS|
00001FA0: 43 48 4E 49 54 54 20 41 4E 47 4C 45 49 43 48 45 |CHNITT ANGLEICHE|
00001FB0: 4E 00 B7 27 F0 23 3B 00 DA 27 FA 23 3B 20 57 AF |N..'.#;..'.#; W.|
00001FC0: 4C 55 4E 47 20 C6 49 49 20 AB B1 20 42 49 4C 44 |LUNG .II .. BILD|
00001FD0: 53 43 48 49 52 4D 43 4F 44 45 00 E0 27 04 24 3B |SCHIRMCODE..'.$;|
00001FE0: 00 F1 27 22 24 57 AF 45 4C 20 43 4D 50 20 23 36 |..'"$W.EL CMP #6|
00001FF0: 33 00 0A 28 2C 24 42 43 53 20 5A 41 48 C3 3B 20 |3..(,$BCS ZAH.; |
00002000: 46 41 4C 4C 53 20 B1 B2 36 33 00 25 28 36 24 52 |FALLS ..63.%(6$R|
00002010: 54 53 3B 20 80 45 20 57 AF 4C 55 4E 47 2C 20 44 |TS; .E W.LUNG, D|
00002020: 41 20 B3 36 33 00 36 28 40 24 5A 41 48 C3 20 43 |A .63.6(@$ZAH. C|
00002030: 4D 50 20 23 39 36 00 50 28 4A 24 42 43 53 20 47 |MP #96.P(J$BCS G|
00002040: 52 4F 53 53 3B 20 46 41 4C 4C 53 20 B1 B2 39 36 |ROSS; FALLS ..96|
00002050: 00 6C 28 54 24 53 42 43 20 23 36 33 3B 20 28 43 |.l(T$SBC #63; (C|
00002060: 41 52 52 59 20 49 53 54 20 30 21 29 00 7F 28 5E |ARRY IST 0!)..(^|
00002070: 24 52 54 53 3B 20 80 45 20 57 AF 4C 55 4E 47 00 |$RTS; .E W.LUNG.|
00002080: A1 28 68 24 47 52 4F 53 53 20 53 42 43 20 23 33 |.(h$GROSS SBC #3|
00002090: 32 3B 20 28 43 41 52 52 59 20 49 53 54 20 31 21 |2; (CARRY IST 1!|
000020A0: 29 00 AE 28 72 24 43 4D 50 20 23 31 32 38 00 C9 |)..(r$CMP #128..|
000020B0: 28 7C 24 42 43 53 20 53 91 44 45 52 3B 20 46 41 |(|$BCS S.DER; FA|
000020C0: 4C 4C 53 20 B1 B2 31 36 30 00 DC 28 86 24 52 54 |LLS ..160..(.$RT|
000020D0: 53 3B 20 80 45 20 57 AF 4C 55 4E 47 00 EE 28 90 |S; .E W.LUNG..(.|
000020E0: 24 53 91 44 45 52 20 53 42 43 20 23 39 36 00 01 |$S.DER SBC #96..|
000020F0: 29 9A 24 52 54 53 3B 20 80 45 20 57 AF 4C 55 4E |).$RTS; .E W.LUN|
00002100: 47 00 07 29 B8 24 3B 00 24 29 C2 24 3B 20 4C 45 |G..).$;.$).$; LE|
00002110: 45 52 45 20 45 B5 52 41 45 47 45 20 45 52 5A 45 |ERE E.RAEGE ERZE|
00002120: 55 47 45 4E 00 2A 29 CC 24 3B 00 3A 29 EA 24 52 |UGEN.*).$;.:).$R|
00002130: 41 55 4D 20 4C 44 58 20 23 30 00 45 29 F4 24 4C |AUM LDX #0.E).$L|
00002140: 44 59 20 23 30 00 52 29 FE 24 4C 44 41 20 23 22 |DY #0.R).$LDA #"|
00002150: 20 22 00 5F 29 08 25 4A 53 52 20 57 AF 45 4C 00 | "._).%JSR W.EL.|
00002160: 7F 29 12 25 46 49 4C 4C 20 53 54 41 20 28 50 4F |.).%FILL STA (PO|
00002170: B5 45 52 29 2C 59 3B 20 49 4E 53 20 52 41 4D 00 |.ER),Y; INS RAM.|
00002180: 8D 29 1C 25 49 4E 43 20 50 4F B5 45 52 00 9A 29 |.).%INC PO.ER..)|
00002190: 26 25 42 4E 45 20 4A 55 4D 50 00 BD 29 30 25 49 |&%BNE JUMP..)0%I|
000021A0: 4E 43 20 50 4F B5 45 52 AA 31 3B 20 48 49 47 48 |NC PO.ER.1; HIGH|
000021B0: 42 59 54 45 20 45 52 48 4F 45 48 45 4E 00 CA 29 |BYTE ERHOEHEN..)|
000021C0: 3A 25 4A 55 4D 50 20 49 4E 58 00 F6 29 44 25 43 |:%JUMP INX..)D%C|
000021D0: 50 58 20 23 31 30 AC 31 39 3B 20 41 4E 5A 41 48 |PX #10.19; ANZAH|
000021E0: 4C 20 46 55 45 48 52 80 45 52 20 4C 45 45 52 5A |L FUEHR.ER LEERZ|
000021F0: 45 49 43 48 45 4E 00 03 2A 4E 25 42 4E 45 20 46 |EICHEN..*N%BNE F|
00002200: 49 4C 4C 00 14 2A 58 25 52 54 53 3B 20 80 45 20 |ILL..*X%RTS; .E |
00002210: 52 41 55 4D 00 1A 2A 80 25 3B 00 37 2A 8A 25 3B |RAUM..*.%;.7*.%;|
00002220: 20 4E 45 55 45 20 44 41 54 45 4E 20 56 91 20 44 | NEUE DATEN V. D|
00002230: 49 53 4B 20 48 4F C3 00 3D 2A 94 25 3B 00 4A 2A |ISK HO..=*.%;.J*|
00002240: 9E 25 4C 49 45 53 20 54 59 41 00 5C 2A A8 25 50 |.%LIES TYA.\*.%P|
00002250: 48 41 3B 20 59 20 52 45 54 54 45 4E 00 68 2A AD |HA; Y RETTEN.h*.|
00002260: 25 4A 53 52 20 9C 43 48 00 73 2A B2 25 4C 44 58 |%JSR .CH.s*.%LDX|
00002270: 20 23 31 00 99 2A BC 25 4A 53 52 20 43 48 4B 4F | #1..*.%JSR CHKO|
00002280: 55 54 3B 20 5A 45 49 43 48 45 4E 20 41 55 46 20 |UT; ZEICHEN AUF |
00002290: 4B 41 4E 41 4C 20 23 20 31 00 A4 2A C6 25 4C 44 |KANAL # 1..*.%LD|
000022A0: 58 20 23 30 00 C3 2A D0 25 4B 4F 4D 4D 20 4C 44 |X #0..*.%KOMM LD|
000022B0: 41 20 54 45 58 54 33 2C 58 3B 20 22 4D 2D 45 22 |A TEXT3,X; "M-E"|
000022C0: 2E 2E 2E 00 CD 2A DA 25 4A 53 52 20 99 00 D5 2A |.....*.%JSR ...*|
000022D0: E4 25 49 4E 58 00 EA 2A EE 25 43 50 58 20 23 54 |.%INX..*.%CPX #T|
000022E0: 45 58 54 34 AB 54 45 58 54 33 00 F7 2A F8 25 42 |EXT4.TEXT3..*.%B|
000022F0: 4E 45 20 4B 4F 4D 4D 00 03 2B FA 25 4A 53 52 20 |NE KOMM..+.%JSR |
00002300: 9C 43 48 00 0E 2B FC 25 4C 44 58 20 23 31 00 1D |.CH..+.%LDX #1..|
00002310: 2B FE 25 4A 53 52 20 43 48 4B 4F 55 54 00 28 2B |+.%JSR CHKOUT.(+|
00002320: 00 26 4C 44 58 20 23 30 00 47 2B 02 26 4B 4D 4E |.&LDX #0.G+.&KMN|
00002330: 44 20 4C 44 41 20 54 45 58 54 32 2C 58 3B 20 22 |D LDA TEXT2,X; "|
00002340: 4D 2D 52 22 2E 2E 2E 00 51 2B 04 26 4A 53 52 20 |M-R"....Q+.&JSR |
00002350: 99 00 59 2B 06 26 49 4E 58 00 6E 2B 08 26 43 50 |..Y+.&INX.n+.&CP|
00002360: 58 20 23 54 45 58 54 33 AB 54 45 58 54 32 00 7B |X #TEXT3.TEXT2.{|
00002370: 2B 0A 26 42 4E 45 20 4B 4D 4E 44 00 87 2B 0B 26 |+.&BNE KMND..+.&|
00002380: 4A 53 52 20 9C 43 48 00 92 2B 0C 26 4C 44 58 20 |JSR .CH..+.&LDX |
00002390: 23 31 00 B8 2B 16 26 4A 53 52 20 43 48 4B 49 4E |#1..+.&JSR CHKIN|
000023A0: 3B 20 44 41 54 45 4E 20 57 49 45 44 45 52 20 56 |; DATEN WIEDER V|
000023B0: 91 20 46 4C 4F 50 50 59 00 D3 2B 1B 26 4C 44 58 |. FLOPPY..+.&LDX|
000023C0: 20 23 30 3B 20 57 49 45 44 45 52 48 45 52 53 54 | #0; WIEDERHERST|
000023D0: 45 4C C3 00 DB 2B 20 26 50 4C 41 00 F0 2B 2A 26 |EL...+ &PLA..+*&|
000023E0: 54 41 59 3B 20 59 20 57 49 45 44 45 52 48 4F C3 |TAY; Y WIEDERHO.|
000023F0: 00 06 2C 3E 26 52 54 53 3B 20 80 45 20 44 41 54 |..,>&RTS; .E DAT|
00002400: 45 4E 20 48 4F C3 00 0C 2C 10 27 3B 00 12 2C 1A |EN HO...,.';..,.|
00002410: 27 3B 00 27 2C 24 27 3B 20 46 4C 4F 50 50 59 50 |';.',$'; FLOPPYP|
00002420: 52 4F 47 52 41 4D 4D 00 2D 2C 2E 27 3B 00 5A 2C |ROGRAMM.-,.';.Z,|
00002430: F8 2A 50 52 4F 47 41 4E 46 20 4A 53 52 20 24 44 |.*PROGANF JSR $D|
00002440: 30 34 32 3B 20 46 4C 4F 50 50 59 20 49 4E 49 54 |042; FLOPPY INIT|
00002450: 49 41 4C 49 53 49 45 52 45 4E 00 6C 2C FD 2A 53 |IALISIEREN.l,.*S|
00002460: 54 41 52 54 20 4C 44 41 20 23 31 38 00 7F 2C 02 |TART LDA #18..,.|
00002470: 2B 53 54 41 20 24 30 36 3B 20 54 52 41 43 4B 00 |+STA $06; TRACK.|
00002480: 8A 2C 0C 2B 4C 44 58 20 23 30 00 9D 2C 16 2B 53 |.,.+LDX #0..,.+S|
00002490: 54 58 20 24 30 37 3B 20 53 45 4B A4 52 00 C1 2C |TX $07; SEK.R..,|
000024A0: 18 2B 4C 44 41 20 23 24 38 30 3B 20 4A 4F 42 43 |.+LDA #$80; JOBC|
000024B0: 4F 44 45 20 22 42 4C 4F 43 4B 20 4C 45 53 45 4E |ODE "BLOCK LESEN|
000024C0: 22 00 E8 2C 1A 2B 53 54 41 20 24 30 30 3B 20 41 |"..,.+STA $00; A|
000024D0: 4C 53 20 41 55 46 54 52 41 47 20 46 55 45 52 20 |LS AUFTRAG FUER |
000024E0: 50 55 46 46 45 52 20 30 00 0C 2D 1C 2B 57 41 52 |PUFFER 0..-.+WAR|
000024F0: 54 45 4E 20 4C 44 41 20 24 30 30 3B 20 53 54 41 |TEN LDA $00; STA|
00002500: 54 55 53 20 50 55 46 46 45 52 20 30 00 34 2D 20 |TUS PUFFER 0.4- |
00002510: 2B 42 4D 49 20 57 41 52 54 45 4E 3B 20 46 41 4C |+BMI WARTEN; FAL|
00002520: 4C 53 20 4E 4F 43 48 20 4E 49 43 48 54 20 46 45 |LS NOCH NICHT FE|
00002530: 52 54 49 47 00 50 2D 2A 2B 43 4D 50 20 23 31 3B |RTIG.P-*+CMP #1;|
00002540: 20 46 45 48 4C 45 52 20 41 42 46 52 41 47 45 4E | FEHLER ABFRAGEN|
00002550: 00 73 2D 34 2B 42 4E 45 20 80 45 3B 20 46 41 4C |.s-4+BNE .E; FAL|
00002560: 4C 53 20 46 45 48 4C 45 52 20 41 55 46 A1 52 45 |LS FEHLER AUF.RE|
00002570: 54 45 4E 00 79 2D 5C 2B 3B 00 A3 2D 66 2B 44 4E |TEN.y-\+;..-f+DN|
00002580: 41 4D 45 20 4C 44 41 20 50 55 46 46 45 52 AA 31 |AME LDA PUFFER.1|
00002590: 34 34 2C 58 3B 20 44 49 53 4B 4E 41 4D 45 4E 20 |44,X; DISKNAMEN |
000025A0: 48 4F C3 00 CB 2D 70 2B 53 54 41 20 41 55 53 47 |HO...-p+STA AUSG|
000025B0: 41 42 45 2C 58 3B 20 49 4E 20 44 45 4E 20 41 55 |ABE,X; IN DEN AU|
000025C0: 53 47 41 42 45 50 55 46 46 45 52 00 D3 2D 7A 2B |SGABEPUFFER..-z+|
000025D0: 49 4E 58 00 F3 2D 84 2B 43 50 58 20 23 32 30 3B |INX..-.+CPX #20;|
000025E0: 20 4E 41 4D 45 20 55 4E 44 20 49 44 20 4B 4F 4D | NAME UND ID KOM|
000025F0: 50 88 54 00 14 2E 8E 2B 42 4E 45 20 44 4E 41 4D |P.T....+BNE DNAM|
00002600: 45 3B 20 57 45 49 54 45 52 20 46 41 4C 4C 53 20 |E; WEITER FALLS |
00002610: 4E 45 49 4E 00 1A 2E EC 2C 3B 00 3E 2E F6 2C 82 |NEIN....,;.>..,.|
00002620: 20 4C 44 41 20 50 55 46 46 45 52 3B 20 42 4C 4F | LDA PUFFER; BLO|
00002630: 43 4B 5A 45 49 47 45 52 20 54 52 41 43 4B 00 62 |CKZEIGER TRACK.b|
00002640: 2E 00 2D 42 45 51 20 80 45 3B 20 46 41 4C 4C 53 |..-BEQ .E; FALLS|
00002650: 20 4E 41 45 43 48 53 54 45 52 20 54 52 41 43 4B | NAECHSTER TRACK|
00002660: 20 30 00 6E 2E 0A 2D 53 54 41 20 24 30 36 00 92 | 0.n..-STA $06..|
00002670: 2E 14 2D 4C 44 41 20 50 55 46 46 45 52 AA 31 3B |..-LDA PUFFER.1;|
00002680: 20 42 4C 4F 43 4B 5A 45 49 47 45 52 20 53 45 4B | BLOCKZEIGER SEK|
00002690: A4 52 00 9E 2E 1E 2D 53 54 41 20 24 30 37 00 C2 |.R....-STA $07..|
000026A0: 2E 28 2D 4C 44 41 20 23 24 38 30 3B 20 4A 4F 42 |.(-LDA #$80; JOB|
000026B0: 43 4F 44 45 20 22 42 4C 4F 43 4B 20 4C 45 53 45 |CODE "BLOCK LESE|
000026C0: 4E 22 00 E9 2E 32 2D 53 54 41 20 24 30 30 3B 20 |N"...2-STA $00; |
000026D0: 41 4C 53 20 41 55 46 54 52 41 47 20 46 55 45 52 |ALS AUFTRAG FUER|
000026E0: 20 50 55 46 46 45 52 20 30 00 0E 2F 3C 2D 57 41 | PUFFER 0../<-WA|
000026F0: 52 54 45 4E 31 20 4C 44 41 20 24 30 30 3B 20 53 |RTEN1 LDA $00; S|
00002700: 54 41 54 55 53 20 50 55 46 46 45 52 20 30 00 37 |TATUS PUFFER 0.7|
00002710: 2F 46 2D 42 4D 49 20 57 41 52 54 45 4E 31 3B 20 |/F-BMI WARTEN1; |
00002720: 46 41 4C 4C 53 20 4E 4F 43 48 20 4E 49 43 48 54 |FALLS NOCH NICHT|
00002730: 20 46 45 52 54 49 47 00 4A 2F B4 2D 4C 44 41 20 | FERTIG.J/.-LDA |
00002740: 23 B1 50 55 46 46 45 52 AA 32 00 5B 2F BE 2D 53 |#.PUFFER.2.[/.-S|
00002750: 54 41 20 5A 45 49 47 45 52 AA 31 00 7F 2F C8 2D |TA ZEIGER.1../.-|
00002760: 4C 44 41 20 23 B3 50 55 46 46 45 52 AA 32 3B 20 |LDA #.PUFFER.2; |
00002770: 41 4E 46 41 4E 47 20 31 2E 20 45 B5 52 41 47 00 |ANFANG 1. E.RAG.|
00002780: B1 2F D2 2D 4E 4F 43 48 4D 41 4C 20 53 54 41 20 |./.-NOCHMAL STA |
00002790: 5A 45 49 47 45 52 3B 20 5A 45 49 47 45 52 20 49 |ZEIGER; ZEIGER I|
000027A0: 4E 20 50 55 46 46 45 52 20 48 45 52 53 54 45 4C |N PUFFER HERSTEL|
000027B0: C3 00 BC 2F E6 2D 4C 44 59 20 23 30 00 DA 2F F0 |.../.-LDY #0../.|
000027C0: 2D 4C 44 41 20 28 5A 45 49 47 45 52 29 2C 59 3B |-LDA (ZEIGER),Y;|
000027D0: 20 46 49 88 59 50 20 48 4F C3 00 F6 2F FA 2D 42 | FI.YP HO.../.-B|
000027E0: 45 51 20 57 45 49 54 45 52 3B 20 46 41 4C 4C 53 |EQ WEITER; FALLS|
000027F0: 20 44 45 88 45 44 00 02 30 18 2E 4C 44 59 20 23 | DE.ED..0..LDY #|
00002800: 32 32 00 23 30 22 2E 4C 44 41 20 28 5A 45 49 47 |22.#0".LDA (ZEIG|
00002810: 45 52 29 2C 59 3B 20 4D 41 52 4B 49 45 8A 47 20 |ER),Y; MARKIE.G |
00002820: 48 4F C3 00 42 30 2C 2E 42 4D 49 20 57 45 49 54 |HO..B0,.BMI WEIT|
00002830: 45 52 3B 20 46 41 4C 4C 53 20 4D 41 52 4B 49 45 |ER; FALLS MARKIE|
00002840: 52 54 00 6F 30 36 2E 53 54 41 20 41 55 53 47 41 |RT.o06.STA AUSGA|
00002850: 42 45 2C 58 3B 20 53 91 53 54 20 49 4E 20 44 45 |BE,X; S.ST IN DE|
00002860: 4E 20 41 55 53 47 41 42 45 50 55 46 46 45 52 00 |N AUSGABEPUFFER.|
00002870: 7C 30 40 2E 49 4E 58 3A 20 49 4E 59 00 A2 30 42 ||0@.INX: INY..0B|
00002880: 2E 4C 44 41 20 28 5A 45 49 47 45 52 29 2C 59 3B |.LDA (ZEIGER),Y;|
00002890: 20 52 45 53 45 52 56 49 45 52 54 45 20 42 59 54 | RESERVIERTE BYT|
000028A0: 45 53 00 B9 30 44 2E 53 54 41 20 41 55 53 47 41 |ES..0D.STA AUSGA|
000028B0: 42 45 2C 58 3B 20 48 4F C3 00 C6 30 46 2E 49 4E |BE,X; HO...0F.IN|
000028C0: 58 3A 20 49 4E 59 00 E9 30 47 2E 4C 44 41 20 28 |X: INY..0G.LDA (|
000028D0: 5A 45 49 47 45 52 29 2C 59 3B 20 28 53 54 41 52 |ZEIGER),Y; (STAR|
000028E0: 54 41 44 52 45 53 53 45 29 00 0B 31 48 2E 53 54 |TADRESSE)..1H.ST|
000028F0: 41 20 41 55 53 47 41 42 45 2C 58 3B 20 55 4E 44 |A AUSGABE,X; UND|
00002900: 20 55 45 42 45 52 47 45 42 45 4E 00 13 31 49 2E | UEBERGEBEN..1I.|
00002910: 49 4E 58 00 2D 31 4A 2E 4C 44 59 20 23 33 3B 20 |INX.-1J.LDY #3; |
00002920: 41 4E 46 41 4E 47 20 46 49 C3 41 4D 45 00 52 31 |ANFANG FI.AME.R1|
00002930: 54 2E 4E 41 4D 45 20 4C 44 41 20 28 5A 45 49 47 |T.NAME LDA (ZEIG|
00002940: 45 52 29 2C 59 3B 20 5A 45 49 43 48 45 4E 20 48 |ER),Y; ZEICHEN H|
00002950: 4F C3 00 7E 31 5E 2E 53 54 41 20 41 55 53 47 41 |O..~1^.STA AUSGA|
00002960: 42 45 2C 58 3B 20 55 4E 44 20 49 4E 20 44 45 4E |BE,X; UND IN DEN|
00002970: 20 41 55 53 47 41 42 45 50 55 46 46 45 52 00 86 | AUSGABEPUFFER..|
00002980: 31 68 2E 49 4E 58 00 AF 31 72 2E 42 4E 45 20 4F |1h.INX..1r.BNE O|
00002990: 4B 3B 20 46 41 4C 4C 53 20 50 55 46 46 45 52 20 |K; FALLS PUFFER |
000029A0: 4E 4F 43 48 20 4E 49 43 48 54 20 56 4F 4C 4C 00 |NOCH NICHT VOLL.|
000029B0: C3 31 AE 2E 53 54 59 20 94 3B 20 59 20 52 45 54 |.1..STY .; Y RET|
000029C0: 54 45 4E 00 EB 31 B8 2E 52 54 53 3B 20 52 55 45 |TEN..1..RTS; RUE|
000029D0: 43 4B 47 41 42 45 20 44 45 52 20 4B 91 54 52 4F |CKGABE DER K.TRO|
000029E0: 4C 4C 45 20 41 4E 53 20 44 4F 53 00 F1 31 C8 32 |LLE ANS DOS..1.2|
000029F0: 3B 00 04 32 D2 32 45 49 4E 53 50 52 47 20 4C 44 |;..2.2EINSPRG LD|
00002A00: 58 20 23 30 00 28 32 DC 32 4C 44 59 20 94 3B 20 |X #0.(2.2LDY .; |
00002A10: 52 45 47 49 53 54 45 52 20 57 49 45 44 45 52 20 |REGISTER WIEDER |
00002A20: 48 45 52 53 54 45 4C C3 00 33 32 FA 32 4F 4B 20 |HERSTEL..32.2OK |
00002A30: 49 4E 59 00 59 32 04 33 43 50 59 20 23 31 39 3B |INY.Y2.3CPY #19;|
00002A40: 20 88 5A 54 45 53 20 5A 45 49 43 48 45 4E 20 44 | .ZTES ZEICHEN D|
00002A50: 45 53 20 4E 41 4D 45 4E 53 00 7F 32 0E 33 42 4E |ES NAMENS..2.3BN|
00002A60: 45 20 4E 41 4D 45 3B 20 46 41 4C 4C 53 20 4E 4F |E NAME; FALLS NO|
00002A70: 43 48 20 4E 49 43 48 54 20 46 45 52 54 49 47 00 |CH NICHT FERTIG.|
00002A80: 95 32 2C 33 57 45 49 54 45 52 20 4C 44 41 20 5A |.2,3WEITER LDA Z|
00002A90: 45 49 47 45 52 00 B1 32 36 33 43 4C 43 3B 20 41 |EIGER..263CLC; A|
00002AA0: 44 44 49 54 49 91 20 56 B0 42 45 52 45 49 54 45 |DDITI. V.BEREITE|
00002AB0: 4E 00 D9 32 40 33 41 44 43 20 23 33 32 3B 20 5A |N..2@3ADC #32; Z|
00002AC0: 45 49 47 45 52 20 41 55 46 20 4E 41 45 43 48 53 |EIGER AUF NAECHS|
00002AD0: 54 45 4E 20 45 B5 52 41 47 00 FF 32 4A 33 42 43 |TEN E.RAG..2J3BC|
00002AE0: 43 20 4E 4F 43 48 4D 41 4C 3B 20 46 41 4C 4C 53 |C NOCHMAL; FALLS|
00002AF0: 20 4E 4F 43 48 20 45 49 4E 20 45 B5 52 41 47 00 | NOCH EIN E.RAG.|
00002B00: 1F 33 54 33 42 43 53 20 82 3B 20 53 91 53 54 20 |.3T3BCS .; S.ST |
00002B10: 4E 41 45 43 48 53 54 45 4E 20 42 4C 4F 43 4B 00 |NAECHSTEN BLOCK.|
00002B20: 25 33 86 33 3B 00 46 33 90 33 80 45 20 4C 44 41 |%3.3;.F3.3.E LDA|
00002B30: 20 23 24 46 46 3B 20 5A 45 49 43 48 45 4E 20 46 | #$FF; ZEICHEN F|
00002B40: 55 45 52 20 80 45 00 6E 33 9A 33 53 54 41 20 41 |UER .E.n3.3STA A|
00002B50: 55 53 47 41 42 45 2C 58 3B 20 49 4E 20 44 45 4E |USGABE,X; IN DEN|
00002B60: 20 41 55 53 47 41 42 45 50 55 46 46 45 52 00 90 | AUSGABEPUFFER..|
00002B70: 33 A4 33 52 54 53 3B 20 4B 91 54 52 4F 4C 4C 45 |3.3RTS; K.TROLLE|
00002B80: 20 5A 55 52 55 45 43 4B 20 41 4E 53 20 44 4F 53 | ZURUECK ANS DOS|
00002B90: 00 96 33 C2 33 3B 00 CF 33 53 34 50 52 4F 47 80 |..3.3;..3S4PROG.|
00002BA0: 20 2E C6 20 22 1E 20 20 44 49 53 4B 2D 4E 41 4D | .. ". DISK-NAM|
00002BB0: 45 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E: |
00002BC0: 20 20 20 20 20 49 44 3A 20 20 20 20 20 20 22 00 | ID: ".|
00002BD0: 06 34 58 34 54 45 58 54 31 20 2E C6 20 22 4D 49 |.4X4TEXT1 .. "MI|
00002BE0: 54 20 43 55 52 53 4F 52 54 41 53 54 45 4E 20 41 |T CURSORTASTEN A|
00002BF0: 55 53 57 41 45 48 4C 45 4E 20 55 4E 44 20 52 45 |USWAEHLEN UND RE|
00002C00: 54 55 52 4E 9E 22 00 36 34 62 34 54 45 58 54 32 |TURN.".64b4TEXT2|
00002C10: 20 2E C6 20 22 4D 2D 52 22 3A 20 2E 42 59 54 45 | .. "M-R": .BYTE|
00002C20: 20 B3 41 55 53 47 41 42 45 2C 20 B1 41 55 53 47 | .AUSGABE, .AUSG|
00002C30: 41 42 45 2C 20 30 00 67 34 6C 34 54 45 58 54 33 |ABE, 0.g4l4TEXT3|
00002C40: 20 2E C6 20 22 4D 2D 45 22 3A 20 2E 42 59 54 45 | .. "M-E": .BYTE|
00002C50: 20 B3 24 30 35 30 30 AA 45 49 4E 53 50 52 47 AB | .$0500.EINSPRG.|
00002C60: 50 52 4F 47 41 4E 46 00 88 34 76 34 2E 42 59 54 |PROGANF..4v4.BYT|
00002C70: 45 20 B1 24 30 35 30 30 AA 45 49 4E 53 50 52 47 |E .$0500.EINSPRG|
00002C80: AB 50 52 4F 47 41 4E 46 00 8E 34 B0 36 3B 00 A9 |.PROGANF..4.6;..|
00002C90: 34 BA 36 3B 20 4C 41 44 45 AB 20 AD 20 53 54 41 |4.6; LADE. . STA|
00002CA0: 52 54 52 4F 55 54 49 4E 45 00 AF 34 C4 36 3B 00 |RTROUTINE..4.6;.|
00002CB0: BF 34 E2 36 54 45 58 54 34 20 4A 53 52 20 93 00 |.4.6TEXT4 JSR ..|
00002CC0: CB 34 EC 36 53 54 58 20 24 32 44 00 EA 34 F6 36 |.4.6STX $2D..4.6|
00002CD0: 53 54 59 20 24 32 45 3B 20 5A 45 49 47 45 52 20 |STY $2E; ZEIGER |
00002CE0: 50 52 4F 47 52 41 4D 4D 80 45 00 F8 34 14 3A 4A |PROGRAMM.E..4.:J|
00002CF0: 53 52 20 24 41 35 33 33 00 20 35 16 3A 4C 44 41 |SR $A533. 5.:LDA|
00002D00: 20 23 31 3A 20 4A 53 52 20 A0 3B 20 4C 41 44 45 | #1: JSR .; LADE|
00002D10: 4B 41 4E 41 4C 20 53 43 48 4C 49 45 53 53 45 4E |KANAL SCHLIESSEN|
00002D20: 00 43 35 1B 3A 4A 53 52 20 43 4C 45 41 52 3B 20 |.C5.:JSR CLEAR; |
00002D30: 42 49 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 |BILDSCHIRM LOESC|
00002D40: 48 45 4E 00 50 35 1D 3A 50 4C 41 3A 20 50 4C 41 |HEN.P5.:PLA: PLA|
00002D50: 00 62 35 20 3A 4C 44 41 20 23 24 41 37 3A 20 50 |.b5 :LDA #$A7: P|
00002D60: 48 41 00 89 35 22 3A 4C 44 41 20 23 24 41 45 3A |HA..5":LDA #$AE:|
00002D70: 20 50 48 41 3B 20 53 54 41 43 4B 20 41 4B 54 55 | PHA; STACK AKTU|
00002D80: 41 4C 49 53 49 45 52 45 4E 00 AF 35 24 3A 46 49 |ALISIEREN..5$:FI|
00002D90: 4E 20 4A 4D 50 20 24 41 36 35 39 3B 20 4B B0 52 |N JMP $A659; K.R|
00002DA0: 45 4B 54 45 52 20 52 55 45 43 4B 53 50 8A 47 00 |EKTER RUECKSP.G.|
00002DB0: B6 35 3E 3A 2E 80 00 00 00 |.5>:..... |
....... 1,8,1,"0:GANZ NEU.OBJ".-.... OPE
N 2,4.V.... 32768; EINSP.G FUER NEUEN PR
OFIASS.\...;.....; ...................
.............; . UNIVERSAL.LADER V6
..H...; . .
.....; . V. UWE GERLACH ......
; . TEL. 06151.316205 ..3...;
. BZW. 06622.3908 ..W...; ....
........................]...;.C...;.....
; ZEIGT DEN DISKINHALT ALS MENUE UND....
.; STARTET DAS AUSGEWAEHLTE PROGRAMM....
..; MIT 'UNIV.LADER.INIT' GEKENNZEICH...
...; NETE E.RAEGE WERDEN NICHT BEAR..'..
.; BEITET. BYTE 22 JEDES E.RAGS.I...; EN
THAELT DAZU EINE KENNUNG..M...; BYTES 23
UND 24 ENTHALTEN DIE.....; STARTADRESSE
FUER MFHINENCODE.... .;...!.;.G.D..TIT
"UNIVERSAL-LADER C64 & VC1541 ".S.N..PAG
69...X..OPT O1.....;.......$0801; ANFAN
GSADRESSE.....;...H.PUFFER . $0300...R.A
USGABE . $0400.?...ZEIGER . $3B.M.... .
$05F0.[....AM . $FB.K...PO.ER . $FD.Y...
. . $FFD2.....CHKOUT . $FFC9......CH . $
FFCC...".SETFLS . $FFBA.B.,.SETNAM . $FF
BD.P.6.. . $FFC0...@.CHKIN . $FFC6...J..
. $FFCF...T. . $FFC3...^.CLEAR . $E544
...H.. . $7000.9.R.BILDMIT . $0400.411.8
0.O.|.BILD. . $0700.130.\...ANF ...2.L..
.RAM . ANF.2.....OBEN . $0400.80.11.....
. . $FFD5.....TPUF . $0277.....;.....;.D
...; BASIC . EINSP.G.J...;......BYTE $0B
,$08,$0A,$00,$9E,$32...&..BYTE $30,$36,$
31,$00,$00,$00...0.;.C.X.NOP: NOP: NOP;
PLATZHALTER FUER SP.GBEFEHL.I...;.^...;
KANAELE OEF.EN.D...;.T...STRT LDA #1..$
.LDX #8.....LDY #15...8.JSR SETFLS; PARA
METER 1,8,15...:.LDA #0.Q.=.JSR SETNAM;
KEIN NAME...B.JSR .; . 1,8,15.....;.....
; FLOPPYPROGRAMM KOPIEREN UND ANS.SSEN..
...;.9...LDY #0; OFFSET ZUM LESEN.F...ST
Y .AM; ZIEL.BASISADRESSE BEIM KOPIEREN.S
.F.. LDX #1...P.JSR CHKOUT; AUSGABE AUF
BEFEHLSKANAL...X.LDA #"M".....JSR ......
LDA #"-".J...JSR ..W. .LDA #"W".....JSR
......LDA .AM; ADRESSE LOW.....JSR ....H
.LDA #5; ADRESSE HIGH.'.R.JSR ..M...LDA
#34; ANZAHL DER FOLG.EN BYTES.W...JSR ..
]...;...6.LDX #0; ZAEHELER BEFEHLSLAENGE
...@.FUELC LDA PROGANF,Y; BYTE HOC UND.I
.J.JSR .; ALS DATUM FUER M.W S.EN...T.IN
Y; OFFSET ERHOEHEN...H.CPY #PROG..PROGAN
F.".R.BEQ COPYOK; FALLS FERTIG UEBERTRAG
EN.*.W.INX.S.|.CPX #34; MAXIMALINHALT BE
FEHLSPUFFER.S...BNE FUELC; FALLS NOCH PL
ATZ.....JSR .CH; BEFEHL AUSFUEHREN.....L
DA .AM.....CLC... .ADC #34.T...STA .AM;
ZIELADRESSE ERHOEHEN...B.JMP .; UND WEIT
ER UEBERTRAGEN.....;."...COPYOK JSR .CH;
BEFEHL AUSFUEHREN.(...;.3...LDX #1.\...
JSR CHKOUT; AUSGABE AUF BEFEHLSKANAL.I..
.LDA #"U".S.&.JSR ....0.LDA #"C"...:.JSR
....X.JSR .CH...P.;...Z.; BILDMASKE AUF
BAUEN.....;.F...LDA #0.....STA $D020; RA
HMENFARBE.....STA $D021; H.ERG.DFARBE...
..LDA #$0E.%...STA $0286; SCHR.TFARBE.H.
..JSR CLEAR; BILDSCHIRM LOESCHEN.S...LDY
#0.H...AUSG LDA PROG.,Y.R. .JSR ..Z.%.I
NY...*.CPY #TEXT1.PROG....4.BNE AUSG...F
.CLC.....LDX #24; ZEILE.J...LDY #1; SPAL
TE.....JSR $E50A; CURS. .ITI.IEREN...J.L
DY #0...T.AUS LDA TEXT1,Y.....JSR ......
INY.0...CPY #TEXT2.TEXT1.<...BNE AUS.B..
.;.I...;KOPIEREN DER LADE. . STARTROUTIN
E.O...;.....LDY #0; OFFSET.....LDA #.TEX
T4.....STA .AM.....LDA #.TEXT4.O...STA .
AM.1; ZEIGER AUF QUELLE.....LDA #.$D000.
(FIN.2.TEXT4).....STA PO.ER.....LDA #.$D
000.(FIN.2.TEXT4).:...STA PO.ER.1; ZEIGE
R AUF ZIEL.O...COPY LDA (.AM),Y.K...STA
(PO.ER),Y; KOPIEREN.S...INY.....CPY #FIN
.3.TEXT4.....BNE COPY.....;.....;V.BEREI
TEN DES RAMS.....;.H...LDA #.RAM.X...STA
PO.ER.1.....LDA #.RAM.....STA PO.ER....
.JSR RAUM; LEERE.RAEGE ERZEUGEN.).!.LDA
#.BILDMIT.7.#.STA .AM.1.I.$.LDA #.BILDMI
T.U.%.STA .AM.`...LDX #1...8.JSR CHKOUT;
AUSGABE IN KOMM.OKANAL...B.LDX #0...L.K
OM LDA TEXT2,X.A.V.JSR .; BEFEHL "M-R"..
..I.[.INX...`.CPX #TEXT3.TEXT2...J.BNE K
OM...T.JSR .CH...~.;.....;DATEN V. FLOPP
Y HOC.....;.&...LDX #1.H...JSR CHKIN; EI
NGABEN V. FLOPPY.S...LDX #0._.... JSR ..
L...JSR W.EL..D.STA $0400.13,X...N.INX.
..X.CPX #18; LAENGE DES DISKNAMENS.....B
NE ......JSR ..K...JSR W.EL.....STA $040
0.35.....JSR ......JSR W.EL.....STA $040
0.36...(.;.3.2.; E.RAEGE AUF BILDSCHIRM
UND INS RAM.9.<.;.?...;.B...LDX #20; .IT
I. IM FLOPPYPUFFER...... LDY #0; ZEIGER
SPEICHER.....JSR .; MARKIE.G HOC...A.CMP
#$FF; KENNUNG .ZTES BYTE.M.B.BEQ .; FAL
LS JA...C.STA (PO.ER),Y; INS RAM...D.INY
: INX...F.JSR .; ADRESSBYTE HOC...G.STA
(PO.ER),Y; UND INS RAM.;.H.INY: INX.U.I.
JSR .; ADRESSBYTE HOC.U.J.STA (PO.ER),Y;
AUCH INS RAM...K.INY: INX...P.;...Y.TRA
NS JSR .; FICAMEN HOC...Z.STA (PO.ER),Y;
INS RAM.M...JSR W.EL.....STA (.AM),Y; A
UF DEN BILDSCHIRM.....INX...,.INY.(.6.CP
Y #19; LAENGE PARAMETER . FICAME.6.@.BNE
TRANS.P.J.LDA PO.ER; RAM.ZEIGER.X.T.CLC
.S.^.ADC #19; AKTUALISIEREN...H.STA PO.E
R...R.BCC CHECK...|.INC PO.ER.1; RAM.ZEI
GER ERHOEHEN.F...CHECK LDA .AM.N...CLC..
...ADC #40; FUER NAECHSTE ZEILE.....STA
.AM.....BCC LOOK.....INC .AM.1.)...LOOK
LDA .AM.1.M.B.CMP #.BILD.; .ZTE DIREC.RY
ZEILE.W.L.BNE ..C.Q.LDA .AM...V.CMP #.BI
LD.; .ZTE DIREC.RYZEILE.....BCC .; UNBED
INGTER SP.G FALLS KLEINER.....;.U...; WE
ITERE E.RAEGE INS RAM.....;......1 LDY #
0.....TRANS1 JSR ......CMP #$FF; .ZTES B
YTE.....BEQ ..8.&.STA (PO.ER),Y; INS RAM
.@.0.INX.K.:.BNE K1.X.D.JSR LIES.C.N.K1
INY.O.X.CPY #19.~.B.BNE TRANS1...L.LDA P
O.ER...V.CLC. ...ADC #19.....STA PO.ER..
...BCC .1.....INC PO.ER.1; RAM.ZEIGER ER
HOEHEN.....BCS .1; UNBEDINGTER SP.G.....
;...... JSR RAUM; LEERE.RAEGE.E...JSR .C
H; EINGABE WIEDER V. TASTATUR.S.F.LDA PO
.ER.[.H.SEC.K.J.SBC #.21.19.U.P.STA ....
Z.LDA PO.ER.1.....SBC #.21.19.....STA ..
1.....;.....INIT LDA #.RAM.F...STA ANF.T
...LDA #.RAM.....STA ANF.1.....LDX #17;
.CURS. DOWN. V.BEREITEN... .;.1.".; ANZE
IGEN EINES RAMAUSSCHNITTS.7.$.;.I.H.BPRN
T LDA ANF.W.R.STA PO.ER.E.\.LDA ANF.1...
F.STA PO.ER.1; ZEIGER INS RAM...P.;...Z.
LDY #10.19.....LDA (PO.ER),Y; MARKIE.G H
OC.G...CMP #"N".....BEQ QUEST; ZEILE UEB
ERSPRINGEN.....;.....LDA #.OBEN.....STA
.AM.1.....LDA #.OBEN.9...STA .AM; ZEIGER
INS BILD.?...;.P...ZPRNT LDY #3.T...PRN
T LDA (PO.ER),Y; AUS DEM RAM.....JSR W.E
L; FII .. BILDSCHIRMCODE.....STA (.AM),Y
;AUF DEN BILDSCHIRM.C.J.INY.O.T.CPY #19.
....BNE PRNT.....LDA PO.ER.....CLC.....A
DC #19...$.STA PO.ER.....BCC CHECK2.@.8.
INC PO.ER.1; RAM.ZEIGER ERHOEHEN.S.B.CHE
CK2 LDA .AM.[.L.CLC.|.V.ADC #40; FUER NA
ECHSTE ZEILE...`.STA .AM...J.BCC LOOK2..
.T.INC .AM.1...Y.LOOK2 LDA .AM.1...~.CMP
#.BILD.; .ZTE DIREC.RYZEILE.....BNE ZPR
NT.....LDA .AM.. ..CMP #.BILD.; .ZTE DIR
EC.RYZEILE.: ..BCC ZPRNT; UNBEDINGTER SP
.G.@ ..;.\ ..LDX #3: LDA #$21; FARBE. .
.BALK STA $D9EB,X; H.ERG.DFARBE.. ..INX.
. ..CPX #19. ..BNE BALK.. X.;.. ..; SCR
OLC UND LADEN.C ..;.O ..JSR .CH.. ..STY
$BA.. ..ABFR JSR $FFE4; . V. TASTATUR..!
..TAX; ERGEBNIS SICHERN.6!..QUEST CPX #1
45; .CURS. UP..B!..BEQ UPP.\!(.CPX #17;
.CURS. DOWN..I!2.BEQ DOWN..!<.CPX #"Q";
.TASTE Q...!F.BEQ QUIT. !H.CPX #3; .....
..!J.BEQ QUIT.C!K.CPX #" "; .SPACE..M!L.
BNE ..Z!M.JMP STRT..!P.. CPX #13; .....!
Z.BNE ABFR.."..;.."J.LDA #2; FICUMMER.0"
O.LDX #8; GERAETEADRESSE.M"T.LDY #1; SEK
UNDAERADRESSE.N"Y.JSR SETFLS; PARAMETER
SETZEN.T"..;.."..LDA ANF.."..CLC.."..ADC
#10.19; ANFANG MARKIERTE ZEILE.M"..STA
PO.ER; LOWBYTE ZEIGER.."..TAX; NACH X BR
INGEN.."..BCC SNAME..#..INC ANF.1; FALLS
UEBERTRAG.&#..SNAME LDA ANF.1.\#..STA P
O.ER.1; HIGHBYTE ANFANG FICAME: PHA; SIC
HERN..#..LDY #1: LDA #$4C; BEFEHL JMP: S
TA 2061..#..LDA (PO.ER),Y: STA 2062: INY
.V#..LDA (PO.ER),Y: STA 2063; JMP STARTA
DRESSE..$..INX: INX: INX; X AUF ANFANG F
ICAME STELC.=$..PLA: TAY; HIGHBYTE ZEIGE
R HOC: LDA #16; LAENGE FICAME.L$..JSR SE
TNAM.O$..JSR CLEAR; BILDSCHIRM LOESCHEN.
.$..LDA #0; FLAG FUER ...$..LDX #$FF..$.
.LDY #$FF.T$..JMP $D000.(FIN.2.TEXT4); Z
UR KOPIERTEN ROUTINE.Z$..;..$..QUIT LDA
#1: JSR : JMP CLEAR..%L.;..%Q.UPP JMP U
P..%S.;.>%V.DOWN LDA ANF.1; FENSTERANFAN
G HIGH.\%`.CMP ..1; ABLAGESPEICHER.E.W%J
.BEQ DOWN1; FALLS ANF....%O.BCS HILF; FA
LLS ANF.....%~.DOWN2 LDA ANF; FENSTERANF
ANG LOW..%..CLC..%..ADC #19; NAECHSTE ZE
ILE..%..STA ANF..%..BCC HILF1..&..INC AN
F.1.,&..JMP BPRNT; NEUEN AUSSCHNITT ANZE
IGEN.>&..DOWN1 LDA ANF.H&..CMP ..U&D.BCS
HILF.C&I.BCC DOWN2.I&N.;.Z&X.UP LDA ANF
.1..&..CMP #.RAM.19..&..BCC HILF..&..BNE
UP1..&..LDA ANF.A&..CMP #.RAM.19.M&..BC
C WTR..&..UP1 LDA ANF..&..SEC..&(.SBC #1
9; ZEILE HOCH..'2.STA ANF..'<.BCS HILF1.
%'F.DEC ANF.1.9'P.HILF1 JMP BPRNT.Y'Z.WT
R JMP ABFR; KEINE REAKTI.._'D.;..'N.HILF
LDX #145; .CURS. UP. V.BEREITEN..'X.JMP
BPRNT; UND AUSSCHNITT ANGLEICHEN..'.#;.
Z'.#; W.LUNG FII .. BILDSCHIRMCODE..'.$;
..'"$W.EL CMP #63..(,$BCS ZAHC; FALLS ..
63.%(6$RTS; .E W.LUNG, DA .63.6(@$ZAHC C
MP #96.P(J$BCS GROSS; FALLS ..96.L(T$SBC
#63; (CARRY IST 0!).(^$RTS; .E W.LUNG.
.(H$GROSS SBC #32; (CARRY IST 1!)..(R$CM
P #128.I(|$BCS S.DER; FALLS ..160..(.$RT
S; .E W.LUNG..(.$S.DER SBC #96..).$RTS;
.E W.LUNG..).$;.$)B$; LEERE E.RAEGE ERZE
UGEN.*)L$;.:).$RAUM LDX #0.E).$LDY #0.R)
.$LDA #" "._).%JSR W.EL.).%FILL STA (PO
.ER),Y; INS RAM..).%INC PO.ER..)&%BNE JU
MP..)0%INC PO.ER.1; HIGHBYTE ERHOEHEN.J)
:%JUMP INX..)D%CPX #10.19; ANZAHL FUEHR.
ER LEERZEICHEN..*N%BNE FILL..*X%RTS; .E
RAUM..*.%;.7*.%; NEUE DATEN V. DISK HOC.
=*.%;.J*.%LIES TYA.\*.%PHA; Y RETTEN.H*.
%JSR .CH.S*.%LDX #1..*.%JSR CHKOUT; ZEIC
HEN AUF KANAL # 1..*F%LDX #0.C*P%KOMM LD
A TEXT3,X; "M-E"....M*Z%JSR ..U*.%INX..*
.%CPX #TEXT4.TEXT3..*.%BNE KOMM..+.%JSR
.CH..+.%LDX #1..+.%JSR CHKOUT.(+.&LDX #0
.G+.&KMND LDA TEXT2,X; "M-R"....Q+.&JSR
..Y+.&INX.N+.&CPX #TEXT3.TEXT2.{+.&BNE K
MND..+.&JSR .CH..+.&LDX #1..+.&JSR CHKIN
; DATEN WIEDER V. FLOPPY.S+.&LDX #0; WIE
DERHERSTELC..+ &PLA..+*&TAY; Y WIEDERHOC
..,>&RTS; .E DATEN HOC..,.';..,.';.',$';
FLOPPYPROGRAMM.-,.';.Z,.*PROGANF JSR $D
042; FLOPPY INITIALISIEREN.L,.*START LDA
#18.,.+STA $06; TRACK..,.+LDX #0..,.+S
TX $07; SEK.R.A,.+LDA #$80; JOBCODE "BLO
CK LESEN"..,.+STA $00; ALS AUFTRAG FUER
PUFFER 0..-.+WARTEN LDA $00; STATUS PUFF
ER 0.4- +BMI WARTEN; FALLS NOCH NICHT FE
RTIG.P-*+CMP #1; FEHLER ABFRAGEN.S-4+BNE
.E; FALLS FEHLER AUF.RETEN.Y-\+;..-F+DN
AME LDA PUFFER.144,X; DISKNAMEN HOC.K-P+
STA AUSGABE,X; IN DEN AUSGABEPUFFER.S-Z+
INX..-.+CPX #20; NAME UND ID KOMP.T....+
BNE DNAME; WEITER FALLS NEIN....,;.>..,.
LDA PUFFER; BLOCKZEIGER TRACK.B..-BEQ .
E; FALLS NAECHSTER TRACK 0.N..-STA $06..
..-LDA PUFFER.1; BLOCKZEIGER SEK.R....-S
TA $07.B.(-LDA #$80; JOBCODE "BLOCK LESE
N"...2-STA $00; ALS AUFTRAG FUER PUFFER
0../<-WARTEN1 LDA $00; STATUS PUFFER 0.7
/F-BMI WARTEN1; FALLS NOCH NICHT FERTIG.
J/.-LDA #.PUFFER.2.[/.-STA ZEIGER.1./H-
LDA #.PUFFER.2; ANFANG 1. E.RAG../R-NOCH
MAL STA ZEIGER; ZEIGER IN PUFFER HERSTEL
C../.-LDY #0.Z/.-LDA (ZEIGER),Y; FI.YP H
OC../.-BEQ WEITER; FALLS DE.ED..0..LDY #
22.#0".LDA (ZEIGER),Y; MARKIE.G HOC.B0,.
BMI WEITER; FALLS MARKIERT.O06.STA AUSGA
BE,X; S.ST IN DEN AUSGABEPUFFER.|0@.INX:
INY..0B.LDA (ZEIGER),Y; RESERVIERTE BYT
ES..0D.STA AUSGABE,X; HOC.F0F.INX: INY..
0G.LDA (ZEIGER),Y; (STARTADRESSE)..1H.ST
A AUSGABE,X; UND UEBERGEBEN..1I.INX.-1J.
LDY #3; ANFANG FICAME.R1T.NAME LDA (ZEIG
ER),Y; ZEICHEN HOC.~1^.STA AUSGABE,X; UN
D IN DEN AUSGABEPUFFER..1H.INX..1R.BNE O
K; FALLS PUFFER NOCH NICHT VOLL.C1..STY
.; Y RETTEN..1..RTS; RUECKGABE DER K.TRO
LLE ANS DOS..1H2;..2R2EINSPRG LDX #0.(2.
2LDY .; REGISTER WIEDER HERSTELC.32.2OK
INY.Y2.3CPY #19; .ZTES ZEICHEN DES NAMEN
S.2.3BNE NAME; FALLS NOCH NICHT FERTIG.
.2,3WEITER LDA ZEIGER..263CLC; ADDITI. V
.BEREITEN.Y2@3ADC #32; ZEIGER AUF NAECHS
TEN E.RAG..2J3BCC NOCHMAL; FALLS NOCH EI
N E.RAG..3T3BCS .; S.ST NAECHSTEN BLOCK.
%3.3;.F3.3.E LDA #$FF; ZEICHEN FUER .E.N
3.3STA AUSGABE,X; IN DEN AUSGABEPUFFER..
3.3RTS; K.TROLLE ZURUECK ANS DOS..3B3;.O
3S4PROG. .F ". DISK-NAME:
ID: "..4X4TEXT1 .F "MIT CURSOR
TASTEN AUSWAEHLEN UND RETURN.".64B4TEXT2
.F "M-R": .BYTE .AUSGABE, .AUSGABE, 0.G
4L4TEXT3 .F "M-E": .BYTE .$0500.EINSPRG.
PROGANF..4V4.BYTE .$0500.EINSPRG.PROGANF
..4.6;..4.6; LADE. . STARTROUTINE..4D6;.
.4.6TEXT4 JSR ..K4.6STX $2D..4.6STY $2E;
ZEIGER PROGRAMM.E..4.:JSR $A533. 5.:LDA
#1: JSR ; LADEKANAL SCHLIESSEN.C5.:JSR
CLEAR; BILDSCHIRM LOESCHEN.P5.:PLA: PLA
.B5 :LDA #$A7: PHA..5":LDA #$AE: PHA; ST
ACK AKTUALISIEREN..5$:FIN JMP $A659; K.R
EKTER RUECKSP.G..5>:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL