AMICA-SHOWER.SRC
FILE INFORMATION
FILENAME(S): AMICA-SHOWER.SRC
FILE TYPE(S): SEQ
FILE SIZE: 12.6K
FIRST SEEN: 2025-11-30 01:12:59
APPEARS ON: 1 disk(s)
FILE HASH
0367a25bac6ac03d41f739580d990835b994265e8dd783a5726bdd228bd723e7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10205 | AMICA-SHOWER.SRC | SEQ | C64er | 20 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 20 24 30 38 31 | *= $081| 00000010: 30 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 41 53 53 45 |0..;--------ASSE| 00000020: 4D 42 4C 45 52 2D 45 49 4E 53 50 52 55 4E 47 0D |MBLER-EINSPRUNG.| 00000030: 0D 41 53 53 54 41 52 54 20 20 3D 20 33 36 38 36 |.ASSTART = 3686| 00000040: 34 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 5A 45 52 4F |4..;--------ZERO| 00000050: 50 41 47 45 2D 41 44 52 45 53 53 45 4E 0D 0D 41 |PAGE-ADRESSEN..A| 00000060: 30 20 20 20 20 20 20 20 3D 20 24 30 32 3B 3B 0D |0 = $02;;.| 00000070: 41 31 20 20 20 20 20 20 20 3D 20 24 30 34 3B 3B |A1 = $04;;| 00000080: 0D 41 32 20 20 20 20 20 20 20 3D 20 24 30 36 3B |.A2 = $06;| 00000090: 3B 0D 41 33 20 20 20 20 20 20 20 3D 20 24 30 38 |;.A3 = $08| 000000A0: 3B 3B 0D 43 55 52 53 4F 52 20 20 20 3D 20 24 30 |;;.CURSOR = $0| 000000B0: 41 3B 3B 0D 43 4F 4C 4F 52 20 20 20 20 3D 20 24 |A;;.COLOR = $| 000000C0: 30 43 3B 3B 0D 41 4D 45 4D 20 20 20 20 20 3D 20 |0C;;.AMEM = | 000000D0: 24 31 30 3B 0D 58 4D 45 4D 20 20 20 20 20 3D 20 |$10;.XMEM = | 000000E0: 24 31 31 3B 0D 59 4D 45 4D 20 20 20 20 20 3D 20 |$11;.YMEM = | 000000F0: 24 31 32 3B 0D 58 50 20 20 20 20 20 20 20 3D 20 |$12;.XP = | 00000100: 24 35 30 3B 0D 59 50 20 20 20 20 20 20 20 3D 20 |$50;.YP = | 00000110: 24 35 31 3B 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 53 |$51;..;--------S| 00000120: 59 53 54 45 4D 2D 41 44 52 45 53 53 45 4E 0D 0D |YSTEM-ADRESSEN..| 00000130: 4B 45 59 20 20 20 20 20 20 3D 20 24 43 36 0D 4B |KEY = $C6.K| 00000140: 45 59 53 54 41 43 4B 20 3D 20 24 30 32 37 37 0D |EYSTACK = $0277.| 00000150: 49 52 51 56 45 43 20 20 20 3D 20 24 30 33 31 34 |IRQVEC = $0314| 00000160: 0D 4E 4D 49 56 45 43 20 20 20 3D 20 24 30 33 31 |.NMIVEC = $031| 00000170: 38 0D 53 43 52 45 45 4E 20 20 20 3D 20 24 30 34 |8.SCREEN = $04| 00000180: 30 30 0D 47 52 41 50 48 49 43 20 20 3D 20 24 32 |00.GRAPHIC = $2| 00000190: 30 30 30 0D 56 49 43 20 20 20 20 20 20 3D 20 24 |000.VIC = $| 000001A0: 44 30 30 30 0D 53 49 44 20 20 20 20 20 20 3D 20 |D000.SID = | 000001B0: 24 44 34 30 30 0D 52 4E 44 20 20 20 20 20 20 3D |$D400.RND =| 000001C0: 20 24 44 34 31 42 0D 43 4F 4C 4F 52 52 41 4D 20 | $D41B.COLORRAM | 000001D0: 3D 20 24 44 38 30 30 0D 4A 4F 59 31 20 20 20 20 |= $D800.JOY1 | 000001E0: 20 3D 20 24 44 43 30 30 0D 4A 4F 59 32 20 20 20 | = $DC00.JOY2 | 000001F0: 20 20 3D 20 24 44 43 30 31 0D 0D 3B 2D 2D 2D 2D | = $DC01..;----| 00000200: 2D 2D 2D 2D 42 45 54 52 49 45 42 53 53 59 53 54 |----BETRIEBSSYST| 00000210: 45 4D 2D 52 4F 55 54 49 4E 45 4E 0D 0D 49 4E 54 |EM-ROUTINEN..INT| 00000220: 4F 55 54 20 20 20 3D 20 24 42 44 43 44 0D 56 49 |OUT = $BDCD.VI| 00000230: 43 52 45 53 45 54 20 3D 20 24 45 35 31 38 0D 43 |CRESET = $E518.C| 00000240: 4C 52 48 4F 4D 45 20 20 3D 20 24 45 35 34 34 0D |LRHOME = $E544.| 00000250: 46 4E 50 41 52 20 20 20 20 3D 20 24 46 44 46 39 |FNPAR = $FDF9| 00000260: 0D 46 50 41 52 20 20 20 20 20 3D 20 24 46 45 30 |.FPAR = $FE0| 00000270: 30 0D 43 48 52 4F 55 54 20 20 20 3D 20 24 46 46 |0.CHROUT = $FF| 00000280: 44 32 0D 4C 4F 41 44 20 20 20 20 20 3D 20 24 46 |D2.LOAD = $F| 00000290: 46 44 35 0D 53 41 56 45 20 20 20 20 20 3D 20 24 |FD5.SAVE = $| 000002A0: 46 46 44 38 0D 4F 50 45 4E 20 20 20 20 20 3D 20 |FFD8.OPEN = | 000002B0: 24 46 46 43 30 0D 47 45 54 49 4E 20 20 20 20 3D |$FFC0.GETIN =| 000002C0: 20 24 46 46 45 34 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D | $FFE4..;-------| 000002D0: 2D C8 41 55 50 54 53 43 48 4C 45 49 46 45 0D 0D |-.AUPTSCHLEIFE..| 000002E0: 4D 41 49 4E 52 4F 55 54 20 4A 53 52 20 49 4E 49 |MAINROUT JSR INI| 000002F0: 54 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 |T. JSR S| 00000300: 48 4F 57 44 49 52 0D 20 20 20 20 20 20 20 20 20 |HOWDIR. | 00000310: 4A 53 52 20 53 4C 43 54 46 49 4C 45 0D 20 20 20 |JSR SLCTFILE. | 00000320: 20 20 20 20 20 20 4A 4D 50 20 4D 41 49 4E 52 4F | JMP MAINRO| 00000330: 55 54 0D 0D 4D 41 49 4E 45 4E 44 20 20 4A 4D 50 |UT..MAINEND JMP| 00000340: 20 52 45 49 4E 49 54 0D 0D 0D 3B 2D 2D 2D 2D 2D | REINIT...;-----| 00000350: 2D 2D 2D D0 52 4F 47 52 41 4D 4D 20 49 4E 49 54 |---.ROGRAMM INIT| 00000360: 49 41 4C 49 53 49 45 52 45 4E 0D 0D 49 4E 49 54 |IALISIEREN..INIT| 00000370: 20 20 20 20 20 4C 44 41 20 23 30 20 20 20 20 20 | LDA #0 | 00000380: 20 3B 56 45 52 48 49 4E 44 45 52 54 20 41 55 53 | ;VERHINDERT AUS| 00000390: 47 41 42 45 0D 20 20 20 20 20 20 20 20 20 53 54 |GABE. ST| 000003A0: 41 20 24 39 44 20 20 20 20 20 3B 56 4F 4E 20 4D |A $9D ;VON M| 000003B0: 45 4C 44 55 4E 47 45 4E 20 44 45 53 0D 20 20 20 |ELDUNGEN DES. | 000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003D0: 20 20 3B 42 45 54 52 49 45 42 53 53 59 53 54 45 | ;BETRIEBSSYSTE| 000003E0: 4D 53 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |MS.. JSR| 000003F0: 20 56 49 43 52 45 53 45 54 3B 56 49 43 2D 49 4E | VICRESET;VIC-IN| 00000400: 49 54 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |IT. JMP | 00000410: 52 45 53 45 54 20 20 20 3B 4E 4D 49 2D 56 45 43 |RESET ;NMI-VEC| 00000420: 54 4F 52 20 53 45 54 5A 45 4E 0D 0D 3B 2D 2D 2D |TOR SETZEN..;---| 00000430: 2D 2D 2D 2D 2D D0 52 4F 47 52 41 4D 4D 20 52 45 |-----.ROGRAMM RE| 00000440: 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 0D 0D |INITIALISIEREN..| 00000450: 52 45 49 4E 49 54 20 20 20 4C 44 41 20 23 30 20 |REINIT LDA #0 | 00000460: 20 20 20 20 20 3B 54 41 53 54 41 54 55 52 50 55 | ;TASTATURPU| 00000470: 46 46 45 52 0D 20 20 20 20 20 20 20 20 20 53 54 |FFER. ST| 00000480: 41 20 31 39 38 20 20 20 20 20 3B 52 55 45 43 4B |A 198 ;RUECK| 00000490: 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 |SETZEN. | 000004A0: 4A 53 52 20 56 49 43 52 45 53 45 54 3B 56 49 43 |JSR VICRESET;VIC| 000004B0: 2D 49 4E 49 54 0D 20 20 20 20 20 20 20 20 20 4A |-INIT. J| 000004C0: 4D 50 20 41 53 53 54 41 52 54 20 3B 41 53 53 45 |MP ASSTART ;ASSE| 000004D0: 4D 42 4C 45 52 20 53 54 41 52 54 45 4E 0D 0D 3B |MBLER STARTEN..;| 000004E0: 2D 2D 2D 2D 2D 2D 2D 2D 4E 4D 49 2D D6 45 43 54 |--------NMI-.ECT| 000004F0: 4F 52 20 56 45 52 42 49 45 47 45 4E 0D 0D 52 45 |OR VERBIEGEN..RE| 00000500: 53 45 54 20 20 20 20 4C 44 41 20 23 3C 4D 41 49 |SET LDA #<MAI| 00000510: 4E 45 4E 44 20 3B 4E 4D 49 2D 56 45 43 54 4F 52 |NEND ;NMI-VECTOR| 00000520: 20 41 55 46 0D 20 20 20 20 20 20 20 20 20 53 54 | AUF. ST| 00000530: 41 20 4E 4D 49 56 45 43 20 20 20 20 3B 4D 41 49 |A NMIVEC ;MAI| 00000540: 4E 45 4E 44 20 56 45 52 42 49 45 2D 0D 20 20 20 |NEND VERBIE-. | 00000550: 20 20 20 20 20 20 4C 44 41 20 23 3E 4D 41 49 4E | LDA #>MAIN| 00000560: 45 4E 44 20 3B 47 45 4E 2C 20 52 45 53 54 4F 52 |END ;GEN, RESTOR| 00000570: 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4E |E. STA N| 00000580: 4D 49 56 45 43 2B 31 20 20 3B 42 52 49 43 48 54 |MIVEC+1 ;BRICHT| 00000590: 20 49 4D 4D 45 52 20 44 41 53 0D 20 20 20 20 20 | IMMER DAS. | 000005A0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 000005B0: 20 20 3B 50 52 4F 47 52 41 4D 4D 20 41 42 20 55 | ;PROGRAMM AB U| 000005C0: 4E 44 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |ND. | 000005D0: 20 20 20 20 20 20 20 20 20 20 3B 53 54 41 52 54 | ;START| 000005E0: 45 54 20 D4 2D C1 53 53 0D 0D 3B 2D 2D 2D 2D 2D |ET .-.SS..;-----| 000005F0: 2D 2D 2D C6 49 4C 45 20 41 55 53 57 41 45 48 4C |---.ILE AUSWAEHL| 00000600: 45 4E 0D 0D 53 4C 43 54 46 49 4C 45 20 4C 44 41 |EN..SLCTFILE LDA| 00000610: 20 23 30 20 20 20 20 20 20 3B 59 50 4F 53 49 54 | #0 ;YPOSIT| 00000620: 49 4F 4E 20 44 45 53 0D 20 20 20 20 20 20 20 20 |ION DES. | 00000630: 20 53 54 41 20 59 4D 45 4D 20 20 20 20 3B 43 55 | STA YMEM ;CU| 00000640: 52 53 4F 52 53 20 4C 4F 45 53 43 48 45 4E 0D 20 |RSORS LOESCHEN. | 00000650: 20 20 20 20 20 20 20 20 4C 44 41 20 23 34 30 20 | LDA #40 | 00000660: 20 20 20 20 3B D3 43 52 45 45 4E 41 44 52 45 53 | ;.CREENADRES| 00000670: 53 45 20 44 45 53 0D 20 20 20 20 20 20 20 20 20 |SE DES. | 00000680: 53 54 41 20 41 30 20 20 20 20 20 20 3B C3 55 52 |STA A0 ;.UR| 00000690: 53 4F 52 53 20 4E 41 43 48 20 41 30 0D 20 20 20 |SORS NACH A0. | 000006A0: 20 20 20 20 20 20 4C 44 41 20 23 24 30 34 0D 20 | LDA #$04. | 000006B0: 20 20 20 20 20 20 20 20 53 54 41 20 41 30 2B 31 | STA A0+1| 000006C0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 |. JSR SE| 000006D0: 54 43 55 52 20 20 3B C3 55 52 53 4F 52 20 49 4E |TCUR ;.URSOR IN| 000006E0: 56 45 52 54 49 45 52 45 4E 0D 0D 53 46 49 4C 45 |VERTIEREN..SFILE| 000006F0: 4C 50 20 20 4A 53 52 20 47 45 54 49 4E 20 20 20 |LP JSR GETIN | 00000700: 3B D4 41 53 54 41 54 55 52 20 41 42 46 52 41 47 |;.ASTATUR ABFRAG| 00000710: 45 4E 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |EN. CMP | 00000720: 23 31 37 0D 20 20 20 20 20 20 20 20 20 42 45 51 |#17. BEQ| 00000730: 20 43 52 53 52 44 4F 57 4E 0D 20 20 20 20 20 20 | CRSRDOWN. | 00000740: 20 20 20 43 4D 50 20 23 31 34 35 0D 20 20 20 20 | CMP #145. | 00000750: 20 20 20 20 20 42 45 51 20 43 52 53 52 55 50 0D | BEQ CRSRUP.| 00000760: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 33 | CMP #13| 00000770: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 52 45 |. BEQ RE| 00000780: 54 55 52 4E 0D 20 20 20 20 20 20 20 20 20 4A 4D |TURN. JM| 00000790: 50 20 53 46 49 4C 45 4C 50 0D 0D 3B 2D 2D 2D 2D |P SFILELP..;----| 000007A0: 2D 2D 2D 2D C3 55 52 53 4F 52 20 C4 4F 57 4E 20 |----.URSOR .OWN | 000007B0: 41 55 53 46 55 45 48 52 45 4E 0D 0D 43 52 53 52 |AUSFUEHREN..CRSR| 000007C0: 44 4F 57 4E 20 4A 53 52 20 53 45 54 43 55 52 20 |DOWN JSR SETCUR | 000007D0: 20 3B C3 55 52 53 4F 52 20 49 4E 56 45 52 54 2E | ;.URSOR INVERT.| 000007E0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 59 4D |. LDA YM| 000007F0: 45 4D 20 20 20 20 3B 59 2D D0 4F 53 49 54 49 4F |EM ;Y-.OSITIO| 00000800: 4E 20 3D 20 32 32 3F 0D 20 20 20 20 20 20 20 20 |N = 22?. | 00000810: 20 43 4D 50 20 23 32 32 0D 20 20 20 20 20 20 20 | CMP #22. | 00000820: 20 20 42 45 51 20 43 44 4F 57 4E 45 4E 44 3B 4A | BEQ CDOWNEND;J| 00000830: 41 20 3D 3E 20 44 41 4E 4E 20 45 4E 44 45 0D 20 |A => DANN ENDE. | 00000840: 20 20 20 20 20 20 20 20 49 4E 43 20 59 4D 45 4D | INC YMEM| 00000850: 20 20 20 20 3B 59 2D D0 4F 53 20 45 52 48 4F 45 | ;Y-.OS ERHOE| 00000860: 48 45 4E 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |HEN. CLC| 00000870: 20 20 20 20 20 20 20 20 20 3B C3 55 52 53 4F 52 | ;.URSOR| 00000880: 41 44 52 45 53 53 45 20 41 55 46 0D 20 20 20 20 |ADRESSE AUF. | 00000890: 20 20 20 20 20 4C 44 41 20 41 30 20 20 20 20 20 | LDA A0 | 000008A0: 20 3B 4E 41 45 43 48 53 54 45 20 DA 45 49 4C 45 | ;NAECHSTE .EILE| 000008B0: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 34 |. ADC #4| 000008C0: 30 20 20 20 20 20 3B 53 54 45 4C 4C 45 4E 0D 20 |0 ;STELLEN. | 000008D0: 20 20 20 20 20 20 20 20 53 54 41 20 41 30 0D 20 | STA A0. | 000008E0: 20 20 20 20 20 20 20 20 42 43 43 20 43 44 4F 57 | BCC CDOW| 000008F0: 4E 45 4E 44 3B 4B 45 49 4E 20 55 45 42 45 52 4C |NEND;KEIN UEBERL| 00000900: 41 55 46 3F 0D 20 20 20 20 20 20 20 20 20 49 4E |AUF?. IN| 00000910: 43 20 41 30 2B 31 0D 43 44 4F 57 4E 45 4E 44 20 |C A0+1.CDOWNEND | 00000920: 4A 53 52 20 53 45 54 43 55 52 20 20 3B C3 55 52 |JSR SETCUR ;.UR| 00000930: 53 4F 52 20 49 4E 56 45 52 54 2E 0D 20 20 20 20 |SOR INVERT.. | 00000940: 20 20 20 20 20 4A 4D 50 20 53 46 49 4C 45 4C 50 | JMP SFILELP| 00000950: 20 3B 5A 55 52 20 D4 41 53 54 41 54 55 52 52 4F | ;ZUR .ASTATURRO| 00000960: 55 54 2E 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D C3 55 |UT...;--------.U| 00000970: 52 53 4F 52 20 D5 50 20 41 55 53 46 55 45 48 52 |RSOR .P AUSFUEHR| 00000980: 45 4E 0D 0D 43 52 53 52 55 50 20 20 20 4A 53 52 |EN..CRSRUP JSR| 00000990: 20 53 45 54 43 55 52 20 20 3B C3 55 52 53 4F 52 | SETCUR ;.URSOR| 000009A0: 20 49 4E 56 45 52 54 2E 0D 20 20 20 20 20 20 20 | INVERT.. | 000009B0: 20 20 4C 44 41 20 59 4D 45 4D 20 20 20 20 3B D9 | LDA YMEM ;.| 000009C0: 2D D0 4F 53 49 54 49 4F 4E 3D 30 3F 0D 20 20 20 |-.OSITION=0?. | 000009D0: 20 20 20 20 20 20 42 45 51 20 43 55 50 45 4E 44 | BEQ CUPEND| 000009E0: 20 20 3B 4A 41 20 3D 3E 20 44 41 4E 4E 20 C5 4E | ;JA => DANN .N| 000009F0: 44 45 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 |DE. DEC | 00000A00: 59 4D 45 4D 20 20 20 20 3B 59 2D D0 4F 53 20 2D |YMEM ;Y-.OS -| 00000A10: 20 31 0D 20 20 20 20 20 20 20 20 20 53 45 43 20 | 1. SEC | 00000A20: 20 20 20 20 20 20 20 20 3B 34 30 20 56 4F 4E 20 | ;40 VON | 00000A30: C3 55 52 53 4F 52 41 44 52 2E 0D 20 20 20 20 20 |.URSORADR.. | 00000A40: 20 20 20 20 4C 44 41 20 41 30 20 20 20 20 20 20 | LDA A0 | 00000A50: 3B 41 42 5A 49 45 48 45 4E 0D 20 20 20 20 20 20 |;ABZIEHEN. | 00000A60: 20 20 20 53 42 43 20 23 34 30 0D 20 20 20 20 20 | SBC #40. | 00000A70: 20 20 20 20 53 54 41 20 41 30 0D 20 20 20 20 20 | STA A0. | 00000A80: 20 20 20 20 42 43 53 20 43 55 50 45 4E 44 20 20 | BCS CUPEND | 00000A90: 3B D5 4E 54 45 52 4C 41 55 46 3F 0D 20 20 20 20 |;.NTERLAUF?. | 00000AA0: 20 20 20 20 20 44 45 43 20 41 30 2B 31 0D 43 55 | DEC A0+1.CU| 00000AB0: 50 45 4E 44 20 20 20 4A 53 52 20 53 45 54 43 55 |PEND JSR SETCU| 00000AC0: 52 20 20 3B C3 55 52 53 4F 52 20 49 4E 56 45 52 |R ;.URSOR INVER| 00000AD0: 54 2E 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |T.. JMP | 00000AE0: 53 46 49 4C 45 4C 50 20 3B 5A 55 52 20 D4 41 53 |SFILELP ;ZUR .AS| 00000AF0: 54 41 54 55 52 52 4F 55 54 2E 0D 0D 3B 2D 2D 2D |TATURROUT...;---| 00000B00: 2D 2D 2D 2D 2D D2 45 54 55 52 4E 20 41 55 53 46 |-----.ETURN AUSF| 00000B10: 55 45 48 52 45 4E 0D 0D 52 45 54 55 52 4E 20 20 |UEHREN..RETURN | 00000B20: 20 4A 53 52 20 53 45 54 43 55 52 20 20 3B C3 55 | JSR SETCUR ;.U| 00000B30: 52 53 4F 52 20 49 4E 56 45 52 54 2E 0D 0D 20 20 |RSOR INVERT... | 00000B40: 20 20 20 20 20 20 20 4C 44 59 20 23 31 32 20 20 | LDY #12 | 00000B50: 20 20 20 3B 31 32 2E DA 45 49 43 48 45 4E 20 44 | ;12..EICHEN D| 00000B60: 45 52 0D 52 45 54 55 52 4E 4C 50 20 4C 44 41 20 |ER.RETURNLP LDA | 00000B70: 28 41 30 29 2C 59 20 20 3B DA 45 49 4C 45 3D 41 |(A0),Y ;.EILE=A| 00000B80: 4B 54 2E C6 49 4C 45 4E 41 4D 45 0D 20 20 20 20 |KT..ILENAME. | 00000B90: 20 20 20 20 20 43 4D 50 20 23 24 43 31 20 20 20 | CMP #$C1 | 00000BA0: 20 3B 5A 45 49 43 48 45 4E 20 46 55 45 52 20 CB | ;ZEICHEN FUER .| 00000BB0: 4F 41 4C 41 0D 20 20 20 20 20 20 20 20 20 42 45 |OALA. BE| 00000BC0: 51 20 4B 4F 41 4C 41 50 49 43 3B 4A 41 20 3D 3E |Q KOALAPIC;JA =>| 00000BD0: 20 44 41 4E 4E 20 57 45 49 54 45 52 0D 20 20 20 | DANN WEITER. | 00000BE0: 20 20 20 20 20 20 43 4D 50 20 23 24 31 42 20 20 | CMP #$1B | 00000BF0: 20 20 3B 5A 45 49 43 48 45 4E 20 46 55 45 52 20 | ;ZEICHEN FUER | 00000C00: C1 4D 49 43 41 0D 20 20 20 20 20 20 20 20 20 42 |.MICA. B| 00000C10: 45 51 20 41 4D 49 43 41 50 49 43 3B 4A 41 20 3D |EQ AMICAPIC;JA =| 00000C20: 3E 20 44 41 4E 4E 20 57 45 49 54 45 52 0D 20 20 |> DANN WEITER. | 00000C30: 20 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 | PLA | 00000C40: 20 20 20 3B 52 55 45 43 4B 53 50 52 55 4E 47 41 | ;RUECKSPRUNGA| 00000C50: 44 52 45 53 53 45 0D 20 20 20 20 20 20 20 20 20 |DRESSE. | 00000C60: 50 4C 41 20 20 20 20 20 20 20 20 20 3B 4C 4F 45 |PLA ;LOE| 00000C70: 53 43 48 45 4E 0D 20 20 20 20 20 20 20 20 20 4A |SCHEN. J| 00000C80: 4D 50 20 4D 41 49 4E 52 4F 55 54 3B 4E 45 55 53 |MP MAINROUT;NEUS| 00000C90: 54 41 52 54 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D C3 |TART..;--------.| 00000CA0: 55 52 53 4F 52 5A 45 49 4C 45 20 49 4E 56 45 52 |URSORZEILE INVER| 00000CB0: 54 49 45 52 45 4E 0D 0D 53 45 54 43 55 52 20 20 |TIEREN..SETCUR | 00000CC0: 20 4A 53 52 20 57 41 49 54 52 41 53 54 0D 20 20 | JSR WAITRAST. | 00000CD0: 20 20 20 20 20 20 20 4C 44 59 20 23 33 39 20 20 | LDY #39 | 00000CE0: 20 20 20 3B 34 30 20 DA 45 49 43 48 45 4E 3D 31 | ;40 .EICHEN=1| 00000CF0: 20 DA 45 49 4C 45 0D 53 43 55 52 4C 50 20 20 20 | .EILE.SCURLP | 00000D00: 4C 44 41 20 28 41 30 29 2C 59 20 20 3B 49 4E 56 |LDA (A0),Y ;INV| 00000D10: 45 52 54 49 45 52 45 4E 0D 20 20 20 20 20 20 20 |ERTIEREN. | 00000D20: 20 20 45 4F 52 20 23 31 32 38 20 20 20 20 3B D3 | EOR #128 ;.| 00000D30: 54 41 52 54 50 4F 53 49 54 49 4F 4E 0D 20 20 20 |TARTPOSITION. | 00000D40: 20 20 20 20 20 20 53 54 41 20 28 41 30 29 2C 59 | STA (A0),Y| 00000D50: 20 20 3B 49 4D 4D 45 52 20 49 4E 20 41 30 0D 20 | ;IMMER IN A0. | 00000D60: 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 | DEY. | 00000D70: 20 20 20 20 20 42 50 4C 20 53 43 55 52 4C 50 0D | BPL SCURLP.| 00000D80: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B 2D | RTS..;-| 00000D90: 2D 2D 2D 2D 2D 2D 2D CB 4F 41 4C 41 42 49 4C 44 |-------.OALABILD| 00000DA0: 20 4C 41 44 45 4E 20 55 4E 44 20 41 4E 5A 45 49 | LADEN UND ANZEI| 00000DB0: 47 45 4E 0D 0D 3B C4 45 52 20 C6 49 4C 45 4E 41 |GEN..;.ER .ILENA| 00000DC0: 4D 45 20 4B 41 4E 4E 20 4E 49 43 48 54 20 44 49 |ME KANN NICHT DI| 00000DD0: 52 45 4B 54 20 56 4F 4D 0D 3B C2 49 4C 44 53 43 |REKT VOM.;.ILDSC| 00000DE0: 48 49 52 4D 20 47 45 4C 45 53 45 4E 20 57 45 52 |HIRM GELESEN WER| 00000DF0: 44 45 4E 2C 20 57 45 49 4C 20 45 52 20 45 52 53 |DEN, WEIL ER ERS| 00000E00: 54 0D 3B C3 48 52 24 2D C3 4F 44 45 20 47 45 57 |T.;.HR$-.ODE GEW| 00000E10: 41 4E 44 45 4C 54 20 57 45 52 44 45 4E 20 4D 55 |ANDELT WERDEN MU| 00000E20: 53 53 2E 20 C9 4D 0D 3B 56 4F 52 4C 49 45 47 45 |SS. .M.;VORLIEGE| 00000E30: 4E 44 45 4E 20 C6 41 4C 4C 20 57 49 52 44 20 44 |NDEN .ALL WIRD D| 00000E40: 41 56 4F 4E 20 41 55 53 47 45 47 41 4E 2D 0D 3B |AVON AUSGEGAN-.;| 00000E50: 47 45 4E 2C 20 44 41 53 53 20 4B 45 49 4E 45 20 |GEN, DASS KEINE | 00000E60: C7 52 41 50 48 49 4B 2D DA 45 49 43 48 45 4E 20 |.RAPHIK-.EICHEN | 00000E70: 4F 44 45 52 0D 3B C7 52 4F 53 53 42 55 43 48 53 |ODER.;.ROSSBUCHS| 00000E80: 54 41 42 45 4E 20 56 45 52 57 45 4E 44 45 54 20 |TABEN VERWENDET | 00000E90: 57 55 52 44 45 4E 21 0D 0D 4B 4F 41 4C 41 50 49 |WURDEN!..KOALAPI| 00000EA0: 43 20 4C 44 58 20 23 34 20 20 20 20 20 20 20 20 |C LDX #4 | 00000EB0: 3B 4B 4F 41 4C 41 2D D0 52 41 45 46 49 58 0D 4B |;KOALA-.RAEFIX.K| 00000EC0: 4F 41 4C 41 50 4C 50 20 4C 44 41 20 4B 4F 41 4C |OALAPLP LDA KOAL| 00000ED0: 41 50 52 46 2C 58 3B 49 4E 20 C6 49 4C 45 4E 41 |APRF,X;IN .ILENA| 00000EE0: 4D 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 |MEN. STA| 00000EF0: 20 46 49 4C 45 4E 41 4D 45 2C 58 3B 53 43 48 52 | FILENAME,X;SCHR| 00000F00: 45 49 42 45 4E 0D 20 20 20 20 20 20 20 20 20 44 |EIBEN. D| 00000F10: 45 58 20 20 20 20 20 20 20 20 20 20 20 3B 3F 50 |EX ;?P| 00000F20: 49 43 2B D3 50 41 43 45 0D 20 20 20 20 20 20 20 |IC+.PACE. | 00000F30: 20 20 42 50 4C 20 4B 4F 41 4C 41 50 4C 50 0D 0D | BPL KOALAPLP..| 00000F40: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 34 20 | LDX #4 | 00000F50: 20 20 20 20 20 20 20 3B DA 45 49 47 45 52 20 C6 | ;.EIGER .| 00000F60: 49 4C 45 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 |ILENAME. | 00000F70: 20 4C 44 59 20 23 31 36 20 20 20 20 20 20 20 3B | LDY #16 ;| 00000F80: DA 45 49 47 45 52 20 D3 43 52 45 45 4E 0D 4B 4F |.EIGER .CREEN.KO| 00000F90: 41 4C 41 4C 50 30 20 4C 44 41 20 28 41 30 29 2C |ALALP0 LDA (A0),| 00000FA0: 59 20 20 20 20 3B 48 4F 4C 45 4E 0D 20 20 20 20 |Y ;HOLEN. | 00000FB0: 20 20 20 20 20 45 4F 52 20 23 25 30 30 31 30 30 | EOR #%00100| 00000FC0: 30 30 30 3B 3D 20 45 4F 52 20 23 33 32 0D 20 20 |000;= EOR #32. | 00000FD0: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00000FE0: 20 20 20 20 41 44 43 20 23 24 32 30 20 20 20 20 | ADC #$20 | 00000FF0: 20 20 3B 2B 20 23 33 32 0D 20 20 20 20 20 20 20 | ;+ #32. | 00001000: 20 20 53 54 41 20 46 49 4C 45 4E 41 4D 45 2C 58 | STA FILENAME,X| 00001010: 3B 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 20 |;SCHREIBEN. | 00001020: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00001030: 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 | INX. CP| 00001040: 58 20 23 31 35 20 20 20 20 20 20 20 3B 31 35 20 |X #15 ;15 | 00001050: C2 55 43 48 53 54 41 42 45 4E 3F 0D 20 20 20 20 |.UCHSTABEN?. | 00001060: 20 20 20 20 20 42 4E 45 20 4B 4F 41 4C 41 4C 50 | BNE KOALALP| 00001070: 30 20 20 3B 4E 45 49 4E 20 3D 3E 20 53 43 48 4C |0 ;NEIN => SCHL| 00001080: 45 49 46 45 0D 20 20 20 20 20 20 20 20 20 4C 44 |EIFE. LD| 00001090: 41 20 23 31 35 20 20 20 20 20 20 20 3B 4C 41 45 |A #15 ;LAE| 000010A0: 4E 47 45 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 |NGE SETZEN. | 000010B0: 20 20 20 20 53 54 41 20 46 4E 4C 45 4E 0D 20 20 | STA FNLEN. | 000010C0: 20 20 20 20 20 20 20 4C 44 59 20 23 30 20 20 20 | LDY #0 | 000010D0: 20 20 20 20 20 3B DA 45 49 47 45 52 20 CC 41 44 | ;.EIGER .AD| 000010E0: 45 41 44 52 2E 0D 20 20 20 20 20 20 20 20 20 4A |EADR.. J| 000010F0: 53 52 20 4C 46 49 4C 45 20 20 20 20 20 3B C2 49 |SR LFILE ;.I| 00001100: 4C 44 20 4C 41 44 45 4E 0D 20 20 20 20 20 20 20 |LD LADEN. | 00001110: 20 20 4A 4D 50 20 53 48 4F 57 4B 50 49 43 20 20 | JMP SHOWKPIC | 00001120: 3B 55 4E 44 20 41 4E 5A 45 49 47 45 4E 0D 0D 3B |;UND ANZEIGEN..;| 00001130: 2D 2D 2D 2D 2D 2D 2D 2D C1 4D 49 43 41 2D D0 41 |--------.MICA-.A| 00001140: 49 4E 54 20 C6 4F 52 4D 41 54 20 41 4E 5A 45 49 |INT .ORMAT ANZEI| 00001150: 47 45 4E 0D 0D 41 4D 49 43 41 50 49 43 20 4C 44 |GEN..AMICAPIC LD| 00001160: 58 20 23 32 20 20 20 20 20 20 20 20 3B D0 52 41 |X #2 ;.RA| 00001170: 45 46 49 58 20 49 4E 0D 41 4D 49 43 41 50 4C 50 |EFIX IN.AMICAPLP| 00001180: 20 4C 44 41 20 41 4D 49 43 41 50 52 46 2C 58 3B | LDA AMICAPRF,X;| 00001190: C6 49 4C 45 4E 41 4D 45 4E 0D 20 20 20 20 20 20 |.ILENAMEN. | 000011A0: 20 20 20 53 54 41 20 46 49 4C 45 4E 41 4D 45 2C | STA FILENAME,| 000011B0: 58 3B 5B 42 5D 0D 20 20 20 20 20 20 20 20 20 44 |X;[B]. D| 000011C0: 45 58 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 |EX. BPL | 000011D0: 41 4D 49 43 41 50 4C 50 0D 20 20 20 20 20 20 20 |AMICAPLP. | 000011E0: 20 20 4C 44 41 20 23 33 20 20 20 20 20 20 20 20 | LDA #3 | 000011F0: 3B CC 41 4E 47 45 20 42 45 49 20 44 49 45 53 45 |;.ANGE BEI DIESE| 00001200: 4D 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 |M. STA F| 00001210: 4E 4C 45 4E 20 20 20 20 20 3B C6 4F 52 4D 41 54 |NLEN ;.ORMAT| 00001220: 20 56 41 52 49 41 42 45 4C 0D 20 20 20 20 20 20 | VARIABEL. | 00001230: 20 20 20 4C 44 58 20 23 33 20 20 20 20 20 20 20 | LDX #3 | 00001240: 20 3B DA 45 49 47 45 52 20 C6 49 4C 45 4E 41 4D | ;.EIGER .ILENAM| 00001250: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |E. LDY #| 00001260: 31 35 20 20 20 20 20 20 20 3B DA 45 49 47 45 52 |15 ;.EIGER| 00001270: 20 D3 43 52 45 45 4E 0D 41 4D 49 43 41 4C 50 30 | .CREEN.AMICALP0| 00001280: 20 4C 44 41 20 28 41 30 29 2C 59 20 20 20 20 3B | LDA (A0),Y ;| 00001290: 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 20 20 43 |HOLEN. C| 000012A0: 4D 50 20 23 24 32 32 20 20 20 20 20 20 3B CE 41 |MP #$22 ;.A| 000012B0: 4D 45 20 5A 55 20 C5 4E 44 45 3F 0D 20 20 20 20 |ME ZU .NDE?. | 000012C0: 20 20 20 20 20 42 45 51 20 41 4D 49 43 41 47 4F | BEQ AMICAGO| 000012D0: 20 20 20 3B 4A 41 3D 3E 44 41 4E 4E 20 C5 4E 44 | ;JA=>DANN .ND| 000012E0: 45 0D 20 20 20 20 20 20 20 20 20 45 4F 52 20 23 |E. EOR #| 000012F0: 25 30 30 31 30 30 30 30 30 3B 57 49 45 20 4F 42 |%00100000;WIE OB| 00001300: 45 4E 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |EN. CLC.| 00001310: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 32 | ADC #$2| 00001320: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 |0. STA F| 00001330: 49 4C 45 4E 41 4D 45 2C 58 3B 53 43 48 52 45 49 |ILENAME,X;SCHREI| 00001340: 42 45 4E 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |BEN. INC| 00001350: 20 46 4E 4C 45 4E 20 20 20 20 20 3B C6 49 4C 45 | FNLEN ;.ILE| 00001360: 4C 41 45 4E 47 45 2B 31 0D 20 20 20 20 20 20 20 |LAENGE+1. | 00001370: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 49 | INY. I| 00001380: 4E 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |NX. BNE | 00001390: 41 4D 49 43 41 4C 50 30 20 20 3B 5A 55 52 20 D3 |AMICALP0 ;ZUR .| 000013A0: 43 48 4C 45 49 46 45 0D 41 4D 49 43 41 47 4F 20 |CHLEIFE.AMICAGO | 000013B0: 20 4C 44 59 20 23 32 20 20 20 20 20 20 20 20 3B | LDY #2 ;| 000013C0: DA 45 49 47 45 52 20 CC 41 44 45 41 44 52 2E 0D |.EIGER .ADEADR..| 000013D0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 4C 46 49 | JSR LFI| 000013E0: 4C 45 20 20 20 20 20 3B C2 49 4C 44 20 4C 41 44 |LE ;.ILD LAD| 000013F0: 45 4E 20 55 4E 44 0D 20 20 20 20 20 20 20 20 20 |EN UND. | 00001400: 4A 4D 50 20 53 48 4F 57 41 50 49 43 20 20 3B 41 |JMP SHOWAPIC ;A| 00001410: 4E 5A 45 49 47 45 4E 0D 0D 3B 2D 2D 2D 2D 2D 2D |NZEIGEN..;------| 00001420: 2D 2D C6 49 4C 45 20 4C 41 44 45 4E 0D 0D 4C 46 |--.ILE LADEN..LF| 00001430: 49 4C 45 20 20 20 20 4C 44 41 20 52 45 47 54 41 |ILE LDA REGTA| 00001440: 42 2C 59 20 20 3B CC 41 44 45 41 44 52 45 53 53 |B,Y ;.ADEADRESS| 00001450: 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |EN. STA | 00001460: 41 30 20 20 20 20 20 20 20 20 3B 41 55 53 20 D4 |A0 ;AUS .| 00001470: 41 42 45 4C 4C 45 0D 20 20 20 20 20 20 20 20 20 |ABELLE. | 00001480: 4C 44 41 20 52 45 47 54 41 42 2B 31 2C 59 3B 48 |LDA REGTAB+1,Y;H| 00001490: 4F 4C 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |OLEN. ST| 000014A0: 41 20 41 30 2B 31 0D 20 20 20 20 20 20 20 20 20 |A A0+1. | 000014B0: 4C 44 41 20 46 4E 4C 45 4E 0D 20 20 20 20 20 20 |LDA FNLEN. | 000014C0: 20 20 20 4C 44 58 20 23 3C 46 49 4C 45 4E 41 4D | LDX #<FILENAM| 000014D0: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |E. LDY #| 000014E0: 3E 46 49 4C 45 4E 41 4D 45 3B C6 49 4C 45 4E 41 |>FILENAME;.ILENA| 000014F0: 4D 45 4E 2D 0D 20 20 20 20 20 20 20 20 20 4A 53 |MEN-. JS| 00001500: 52 20 46 4E 50 41 52 20 20 20 20 20 3B 50 41 52 |R FNPAR ;PAR| 00001510: 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 0D 20 20 |AMETER SETZEN. | 00001520: 20 20 20 20 20 20 20 4C 44 41 20 23 32 0D 20 20 | LDA #2. | 00001530: 20 20 20 20 20 20 20 4C 44 58 20 23 38 0D 20 20 | LDX #8. | 00001540: 20 20 20 20 20 20 20 4C 44 59 20 23 30 20 20 20 | LDY #0 | 00001550: 20 20 20 20 20 3B C6 49 4C 45 50 41 52 41 4D 45 | ;.ILEPARAME| 00001560: 54 45 52 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |TER. JSR| 00001570: 20 46 50 41 52 20 20 20 20 20 20 3B 53 45 54 5A | FPAR ;SETZ| 00001580: 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |EN. LDA | 00001590: 23 24 30 30 20 20 20 20 20 20 3B 28 31 3D D6 45 |#$00 ;(1=.E| 000015A0: 52 49 46 59 29 0D 20 20 20 20 20 20 20 20 20 4C |RIFY). L| 000015B0: 44 58 20 41 30 0D 20 20 20 20 20 20 20 20 20 4C |DX A0. L| 000015C0: 44 59 20 41 30 2B 31 0D 20 20 20 20 20 20 20 20 |DY A0+1. | 000015D0: 20 4A 53 52 20 4C 4F 41 44 20 20 20 20 20 20 3B | JSR LOAD ;| 000015E0: C6 49 4C 45 20 4C 41 44 45 4E 0D 20 20 20 20 20 |.ILE LADEN. | 000015F0: 20 20 20 20 42 43 43 20 4C 46 49 4C 45 45 4E 44 | BCC LFILEEND| 00001600: 20 20 3B 4B 45 49 4E 20 C6 45 48 4C 45 52 20 3D | ;KEIN .EHLER =| 00001610: 3E 0D 0D 20 20 20 20 20 20 20 20 20 50 4C 41 20 |>.. PLA | 00001620: 20 20 20 20 20 20 20 20 20 20 3B D2 55 45 43 4B | ;.UECK| 00001630: 53 50 52 55 4E 47 2D 0D 20 20 20 20 20 20 20 20 |SPRUNG-. | 00001640: 20 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B | PLA ;| 00001650: 41 44 52 45 53 53 45 20 4C 4F 45 53 43 48 45 4E |ADRESSE LOESCHEN| 00001660: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001670: 20 20 20 20 20 20 20 20 3B 3D 20 C2 49 4C 44 20 | ;= .ILD | 00001680: 4E 49 43 48 54 0D 20 20 20 20 20 20 20 20 20 20 |NICHT. | 00001690: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 41 4E | ;AN| 000016A0: 5A 45 49 47 45 4E 21 0D 4C 46 49 4C 45 45 4E 44 |ZEIGEN!.LFILEEND| 000016B0: 20 52 54 53 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D C4 | RTS..;--------.| 000016C0: 49 52 45 43 54 4F 52 59 20 41 4E 5A 45 49 47 45 |IRECTORY ANZEIGE| 000016D0: 4E 0D 0D 53 48 4F 57 44 49 52 20 20 4C 44 41 20 |N..SHOWDIR LDA | 000016E0: 23 31 35 34 20 20 20 20 20 20 3B C8 45 4C 4C 42 |#154 ;.ELLB| 000016F0: 4C 41 55 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |LAU. JSR| 00001700: 20 43 48 52 4F 55 54 0D 20 20 20 20 20 20 20 20 | CHROUT. | 00001710: 20 4A 53 52 20 43 4C 52 48 4F 4D 45 0D 20 20 20 | JSR CLRHOME. | 00001720: 20 20 20 20 20 20 4C 44 41 20 23 31 33 20 20 20 | LDA #13 | 00001730: 20 20 20 20 3B D2 45 54 55 52 4E 0D 20 20 20 20 | ;.ETURN. | 00001740: 20 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 0D | JSR CHROUT.| 00001750: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 33 | LDA #13| 00001760: 20 20 20 20 20 20 20 3B D2 45 54 55 52 4E 0D 20 | ;.ETURN. | 00001770: 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 52 4F | JSR CHRO| 00001780: 55 54 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |UT. LDA | 00001790: 23 30 20 20 20 20 20 20 20 20 3B D4 45 58 54 4E |#0 ;.EXTN| 000017A0: 52 20 30 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |R 0. JSR| 000017B0: 20 54 45 58 54 4F 55 54 20 20 20 3B 41 55 53 47 | TEXTOUT ;AUSG| 000017C0: 45 42 45 4E 0D 20 20 20 20 20 20 20 20 20 4A 53 |EBEN. JS| 000017D0: 52 20 4F 50 45 4E 46 49 4C 45 20 20 3B C6 49 4C |R OPENFILE ;.IL| 000017E0: 45 20 4F 45 46 46 4E 45 4E 0D 20 20 20 20 20 20 |E OEFFNEN. | 000017F0: 20 20 20 4C 44 41 20 24 42 41 20 20 20 20 20 20 | LDA $BA | 00001800: 20 3B D3 45 4B 55 4E 44 41 45 52 20 C1 44 52 2E | ;.EKUNDAER .DR.| 00001810: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 45 |. JSR $E| 00001820: 44 30 39 20 20 20 20 20 3B C9 C5 C3 2D CF 50 45 |D09 ;...-.PE| 00001830: 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |N. LDA $| 00001840: 42 39 20 20 20 20 20 20 20 3B C7 45 52 41 45 54 |B9 ;.ERAET| 00001850: 45 4E 55 4D 4D 45 52 0D 20 20 20 20 20 20 20 20 |ENUMMER. | 00001860: 20 4A 53 52 20 24 45 44 43 37 20 20 20 20 20 3B | JSR $EDC7 ;| 00001870: D4 41 4C 4B 20 53 45 4E 44 45 4E 0D 20 20 20 20 |.ALK SENDEN. | 00001880: 20 20 20 20 20 4A 53 52 20 47 45 54 42 59 54 45 | JSR GETBYTE| 00001890: 20 20 20 3B 3D C2 59 54 45 20 56 4F 4D 20 C9 C5 | ;=.YTE VOM ..| 000018A0: C3 2D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |.-. JSR | 000018B0: 47 45 54 42 59 54 45 20 20 20 3B C2 55 53 20 4C |GETBYTE ;.US L| 000018C0: 45 53 45 4E 0D 53 48 57 44 49 52 4C 50 20 4C 44 |ESEN.SHWDIRLP LD| 000018D0: 58 20 23 35 20 20 20 20 20 20 20 20 3B 35 20 CC |X #5 ;5 .| 000018E0: 45 45 52 5A 45 49 43 48 45 4E 0D 20 20 20 20 20 |EERZEICHEN. | 000018F0: 20 20 20 20 4A 53 52 20 54 41 42 55 4C 41 54 52 | JSR TABULATR| 00001900: 20 20 3B 41 55 53 47 45 42 45 4E 0D 20 20 20 20 | ;AUSGEBEN. | 00001910: 20 20 20 20 20 4A 53 52 20 53 52 43 48 53 54 52 | JSR SRCHSTR| 00001920: 54 20 20 3B D3 54 41 52 54 20 53 55 43 48 45 4E |T ;.TART SUCHEN| 00001930: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 42 4C |. JSR BL| 00001940: 4F 43 4B 4F 55 54 20 20 3B C2 4C 4F 43 4B 53 20 |OCKOUT ;.LOCKS | 00001950: 41 55 53 47 45 42 45 4E 0D 20 20 20 20 20 20 20 |AUSGEBEN. | 00001960: 20 20 4A 53 52 20 46 4E 41 4D 45 4F 55 54 20 20 | JSR FNAMEOUT | 00001970: 3B C6 49 4C 45 4E 41 4D 45 4E 20 44 52 55 43 4B |;.ILENAMEN DRUCK| 00001980: 2E 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 52 |.. JSR R| 00001990: 55 4E 53 54 4F 50 20 20 20 3B D2 55 4E 53 54 4F |UNSTOP ;.UNSTO| 000019A0: 50 20 41 42 46 52 41 47 45 4E 0D 20 20 20 20 20 |P ABFRAGEN. | 000019B0: 20 20 20 20 4A 4D 50 20 53 48 57 44 49 52 4C 50 | JMP SHWDIRLP| 000019C0: 20 20 3B D3 43 48 4C 45 49 46 45 0D 0D 3B 2D 2D | ;.CHLEIFE..;--| 000019D0: 2D 2D 2D 2D 2D 2D C6 49 4C 45 20 53 43 48 4C 49 |------.ILE SCHLI| 000019E0: 45 53 53 45 4E 0D 0D 43 4C 4F 53 45 20 20 20 20 |ESSEN..CLOSE | 000019F0: 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B D2 |PLA ;.| 00001A00: 55 45 43 4B 53 50 52 55 4E 47 41 44 52 2E 0D 20 |UECKSPRUNGADR.. | 00001A10: 20 20 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 | PLA | 00001A20: 20 20 20 20 20 20 3B 4C 4F 45 53 43 48 45 4E 0D | ;LOESCHEN.| 00001A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A40: 20 20 20 20 20 20 20 3B 3D 20 D2 D4 D3 20 49 4D | ;= ... IM| 00001A50: 20 41 55 46 52 55 2D 0D 20 20 20 20 20 20 20 20 | AUFRU-. | 00001A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001A70: 46 45 4E 44 45 4E 20 D0 52 4F 47 52 41 4D 4D 0D |FENDEN .ROGRAMM.| 00001A80: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F| 00001A90: 35 32 38 20 20 20 20 20 3B D5 4E 54 41 4C 4B 20 |528 ;.NTALK | 00001AA0: 53 45 4E 44 45 4E 0D 20 20 20 20 20 20 20 20 20 |SENDEN. | 00001AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 55 | ;U| 00001AC0: 4E 44 20 C6 49 4C 45 43 4C 4F 53 45 0D 20 20 20 |ND .ILECLOSE. | 00001AD0: 20 20 20 20 20 20 4A 53 52 20 24 46 46 45 37 20 | JSR $FFE7 | 00001AE0: 20 20 20 20 3B C1 4C 4C 45 53 20 53 43 48 4C 49 | ;.LLES SCHLI| 00001AF0: 45 53 53 45 4E 0D 20 20 20 20 20 20 20 20 20 4C |ESSEN. L| 00001B00: 44 41 20 23 30 20 20 20 20 20 20 20 20 3B D4 45 |DA #0 ;.E| 00001B10: 58 54 4E 55 4D 4D 45 52 20 30 0D 20 20 20 20 20 |XTNUMMER 0. | 00001B20: 20 20 20 20 4A 53 52 20 54 45 58 54 4F 55 54 0D | JSR TEXTOUT.| 00001B30: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 20 | LDA #1 | 00001B40: 20 20 20 20 20 20 20 3B D4 45 58 54 4E 55 4D 4D | ;.EXTNUMM| 00001B50: 45 52 20 31 0D 20 20 20 20 20 20 20 20 20 4A 4D |ER 1. JM| 00001B60: 50 20 54 45 58 54 4F 55 54 20 20 20 3B 41 55 53 |P TEXTOUT ;AUS| 00001B70: 47 45 42 45 4E 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D |GEBEN..;--------| 00001B80: C2 59 54 45 20 56 4F 4D 20 C9 C5 C3 2D C2 55 53 |.YTE VOM ...-.US| 00001B90: 20 4C 45 53 45 4E 0D 0D 47 45 54 42 59 54 45 20 | LESEN..GETBYTE | 00001BA0: 20 4A 53 52 20 24 45 45 31 33 20 20 20 20 20 3B | JSR $EE13 ;| 00001BB0: C2 59 54 45 20 4C 45 53 45 4E 0D 20 20 20 20 20 |.YTE LESEN. | 00001BC0: 20 20 20 20 50 48 41 20 20 20 20 20 20 20 20 20 | PHA | 00001BD0: 20 20 3B 4D 45 52 4B 45 4E 0D 20 20 20 20 20 20 | ;MERKEN. | 00001BE0: 20 20 20 4C 44 41 20 24 39 30 20 20 20 20 20 20 | LDA $90 | 00001BF0: 20 3B D3 54 41 54 55 53 0D 20 20 20 20 20 20 20 | ;.TATUS. | 00001C00: 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 | LSR A. | 00001C10: 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 | LSR A. | 00001C20: 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 3B C2 |PLA ;.| 00001C30: 59 54 45 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 |YTE HOLEN. | 00001C40: 20 20 20 42 43 53 20 43 4C 4F 53 45 20 20 20 20 | BCS CLOSE | 00001C50: 20 3B D4 49 4D 45 20 4F 55 54 0D 20 20 20 20 20 | ;.IME OUT. | 00001C60: 20 20 20 20 52 54 53 0D 0D 3B 2D 2D 2D 2D 2D 2D | RTS..;------| 00001C70: 2D 2D D2 55 4E 53 54 4F 50 20 41 42 46 52 41 47 |--.UNSTOP ABFRAG| 00001C80: 45 4E 0D 0D 52 55 4E 53 54 4F 50 20 20 4A 53 52 |EN..RUNSTOP JSR| 00001C90: 20 24 46 46 45 31 20 20 20 3B D2 55 4E 53 54 4F | $FFE1 ;.UNSTO| 00001CA0: 50 3F 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |P?. BEQ | 00001CB0: 43 4C 4F 53 45 20 20 20 3B 4A 41 3D 3E 44 41 4E |CLOSE ;JA=>DAN| 00001CC0: 4E 20 C5 4E 44 45 0D 20 20 20 20 20 20 20 20 20 |N .NDE. | 00001CD0: 52 54 53 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D DA 45 |RTS..;--------.E| 00001CE0: 49 47 45 52 20 41 55 46 20 D3 54 41 52 54 20 44 |IGER AUF .TART D| 00001CF0: 45 53 20 C4 49 52 45 43 54 4F 52 59 0D 20 20 20 |ES .IRECTORY. | 00001D00: 20 20 20 20 20 3B C5 49 4E 54 52 41 47 20 53 45 | ;.INTRAG SE| 00001D10: 54 5A 45 4E 0D 0D 53 52 43 48 53 54 52 54 20 4A |TZEN..SRCHSTRT J| 00001D20: 53 52 20 47 45 54 42 59 54 45 20 3B C2 59 54 45 |SR GETBYTE ;.YTE| 00001D30: 20 4C 45 53 45 4E 0D 20 20 20 20 20 20 20 20 20 | LESEN. | 00001D40: 42 45 51 20 53 52 43 48 53 54 47 4F 3B 3D 30 20 |BEQ SRCHSTGO;=0 | 00001D50: 44 41 4E 4E 20 4E 41 45 43 48 53 54 45 53 0D 20 |DANN NAECHSTES. | 00001D60: 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 0D 20 | CMP #1. | 00001D70: 20 20 20 20 20 20 20 20 42 4E 45 20 53 52 43 48 | BNE SRCH| 00001D80: 53 54 52 54 3B 3C 3E 31 20 44 41 4E 4E 20 D3 43 |STRT;<>1 DANN .C| 00001D90: 48 4C 45 49 46 45 0D 53 52 43 48 53 54 47 4F 20 |HLEIFE.SRCHSTGO | 00001DA0: 4A 53 52 20 47 45 54 42 59 54 45 20 3B C2 59 54 |JSR GETBYTE ;.YT| 00001DB0: 45 20 4C 45 53 45 4E 0D 20 20 20 20 20 20 20 20 |E LESEN. | 00001DC0: 20 42 45 51 20 43 4C 4F 53 45 20 20 20 3B 3D 30 | BEQ CLOSE ;=0| 00001DD0: 20 44 41 4E 4E 20 C4 49 52 2E 20 C5 4E 44 45 0D | DANN .IR. .NDE.| 00001DE0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B 2D | RTS..;-| 00001DF0: 2D 2D 2D 2D 2D 2D 2D C1 4E 5A 41 48 4C 20 44 45 |-------.NZAHL DE| 00001E00: 52 20 C2 4C 4F 43 4B 53 20 41 55 53 47 45 42 45 |R .LOCKS AUSGEBE| 00001E10: 4E 0D 0D 42 4C 4F 43 4B 4F 55 54 20 4A 53 52 20 |N..BLOCKOUT JSR | 00001E20: 47 45 54 42 59 54 45 20 3B C2 59 54 45 20 4C 45 |GETBYTE ;.YTE LE| 00001E30: 53 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 |SEN. STA| 00001E40: 20 41 4D 45 4D 20 20 20 20 3B 4D 45 52 4B 45 4E | AMEM ;MERKEN| 00001E50: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 47 45 |. JSR GE| 00001E60: 54 42 59 54 45 20 3B 49 4E 20 C1 4B 4B 55 20 48 |TBYTE ;IN .KKU H| 00001E70: 49 47 48 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |IGH. LDX| 00001E80: 20 41 4D 45 4D 20 20 20 20 3B 49 4E 20 58 D2 45 | AMEM ;IN X.E| 00001E90: 47 20 4C 4F 57 0D 20 20 20 20 20 20 20 20 20 4A |G LOW. J| 00001EA0: 53 52 20 49 4E 54 4F 55 54 20 20 3B C9 4E 54 45 |SR INTOUT ;.NTE| 00001EB0: 47 45 52 20 41 55 53 47 45 42 45 4E 0D 20 20 20 |GER AUSGEBEN. | 00001EC0: 20 20 20 20 20 20 4C 44 41 20 23 33 32 20 20 20 | LDA #32 | 00001ED0: 20 20 3B CC 45 45 52 5A 45 49 43 48 45 4E 0D 20 | ;.EERZEICHEN. | 00001EE0: 20 20 20 20 20 20 20 20 4A 4D 50 20 43 48 52 4F | JMP CHRO| 00001EF0: 55 54 20 20 3B 41 55 53 47 45 42 45 4E 0D 0D 3B |UT ;AUSGEBEN..;| 00001F00: 2D 2D 2D 2D 2D 2D 2D 2D C6 49 4C 45 4E 41 4D 45 |--------.ILENAME| 00001F10: 20 44 52 55 43 4B 45 4E 0D 0D 46 4E 41 4D 45 4F | DRUCKEN..FNAMEO| 00001F20: 55 54 20 4A 53 52 20 47 45 54 42 59 54 45 20 3B |UT JSR GETBYTE ;| 00001F30: C2 59 54 45 20 4C 45 53 45 4E 0D 20 20 20 20 20 |.YTE LESEN. | 00001F40: 20 20 20 20 42 45 51 20 46 4E 4F 55 54 4C 50 20 | BEQ FNOUTLP | 00001F50: 3B 3D 30 20 44 41 4E 4E 20 D3 54 52 49 4E 47 45 |;=0 DANN .TRINGE| 00001F60: 4E 44 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |NDE. JSR| 00001F70: 20 43 48 52 4F 55 54 20 20 3B DA 45 49 43 48 45 | CHROUT ;.EICHE| 00001F80: 4E 20 41 55 53 47 45 42 45 4E 0D 20 20 20 20 20 |N AUSGEBEN. | 00001F90: 20 20 20 20 4A 4D 50 20 46 4E 41 4D 45 4F 55 54 | JMP FNAMEOUT| 00001FA0: 3B D3 43 48 4C 45 49 46 45 0D 0D 46 4E 4F 55 54 |;.CHLEIFE..FNOUT| 00001FB0: 4C 50 20 20 4C 44 41 20 23 31 33 20 20 20 20 20 |LP LDA #13 | 00001FC0: 3B D2 45 54 55 52 4E 0D 20 20 20 20 20 20 20 20 |;.ETURN. | 00001FD0: 20 4A 4D 50 20 43 48 52 4F 55 54 20 20 3B 41 55 | JMP CHROUT ;AU| 00001FE0: 53 47 45 42 45 4E 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D |SGEBEN..;-------| 00001FF0: 2D C6 49 4C 45 20 4F 45 46 46 4E 45 4E 0D 0D 4F |-.ILE OEFFNEN..O| 00002000: 50 45 4E 46 49 4C 45 20 4C 44 41 20 23 31 20 20 |PENFILE LDA #1 | 00002010: 20 20 20 20 3B 4C 4F 47 49 53 43 48 45 20 C6 49 | ;LOGISCHE .I| 00002020: 4C 45 4E 52 2E 0D 20 20 20 20 20 20 20 20 20 4C |LENR.. L| 00002030: 44 58 20 23 38 20 20 20 20 20 20 3B C7 45 52 41 |DX #8 ;.ERA| 00002040: 45 54 45 41 44 52 45 53 53 45 0D 20 20 20 20 20 |ETEADRESSE. | 00002050: 20 20 20 20 4C 44 59 20 23 30 20 20 20 20 20 20 | LDY #0 | 00002060: 3B D3 45 4B 55 4E 44 41 45 52 41 44 52 45 53 53 |;.EKUNDAERADRESS| 00002070: 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 46 |E. JSR F| 00002080: 50 41 52 20 20 20 20 3B 53 45 54 5A 45 4E 0D 20 |PAR ;SETZEN. | 00002090: 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 20 20 | LDA #1 | 000020A0: 20 20 20 20 3B C6 49 4C 45 4C 41 45 4E 47 45 0D | ;.ILELAENGE.| 000020B0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 3C 46 | LDX #<F| 000020C0: 4E 41 4D 45 0D 20 20 20 20 20 20 20 20 20 4C 44 |NAME. LD| 000020D0: 59 20 23 3E 46 4E 41 4D 45 0D 20 20 20 20 20 20 |Y #>FNAME. | 000020E0: 20 20 20 4A 53 52 20 46 4E 50 41 52 20 20 20 3B | JSR FNPAR ;| 000020F0: C6 4E 41 4D 45 20 53 45 54 5A 45 4E 0D 20 20 20 |.NAME SETZEN. | 00002100: 20 20 20 20 20 20 4A 4D 50 20 4F 50 45 4E 20 20 | JMP OPEN | 00002110: 20 20 3B C6 49 4C 45 20 4F 45 46 46 4E 45 4E 0D | ;.ILE OEFFNEN.| 00002120: 0D 46 4E 41 4D 45 20 20 20 20 2E 54 45 58 54 20 |.FNAME .TEXT | 00002130: 22 24 22 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D D4 41 |"$"..;--------.A| 00002140: 42 55 4C 41 54 4F 52 2F C1 4E 5A 41 48 4C 20 CC |BULATOR/.NZAHL .| 00002150: 45 45 52 5A 45 49 43 48 45 4E 0D 20 20 20 20 20 |EERZEICHEN. | 00002160: 20 20 20 3B 49 4E 20 58 D2 45 47 0D 0D 54 41 42 | ;IN X.EG..TAB| 00002170: 55 4C 41 54 52 20 4C 44 41 20 23 33 32 20 20 20 |ULATR LDA #32 | 00002180: 20 20 3B CC 45 45 52 5A 45 49 43 48 45 4E 0D 20 | ;.EERZEICHEN. | 00002190: 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 52 4F | JSR CHRO| 000021A0: 55 54 20 20 3B 41 55 53 47 45 42 45 4E 0D 20 20 |UT ;AUSGEBEN. | 000021B0: 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 | DEX. | 000021C0: 20 20 20 20 42 50 4C 20 54 41 42 55 4C 41 54 52 | BPL TABULATR| 000021D0: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B |. RTS..;| 000021E0: 2D 2D 2D 2D 2D 2D 2D 2D D4 45 58 54 20 41 55 53 |--------.EXT AUS| 000021F0: 47 45 42 45 4E 0D 0D 54 45 58 54 4F 55 54 20 20 |GEBEN..TEXTOUT | 00002200: 41 53 4C 20 41 20 20 20 20 20 20 20 20 20 20 3B |ASL A ;| 00002210: DA 45 49 47 45 52 20 41 55 46 0D 20 20 20 20 20 |.EIGER AUF. | 00002220: 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 20 | TAY | 00002230: 20 20 20 3B D4 41 42 45 4C 4C 45 0D 20 20 20 20 | ;.ABELLE. | 00002240: 20 20 20 20 20 4C 44 41 20 54 45 58 54 54 41 42 | LDA TEXTTAB| 00002250: 2C 59 20 20 3B D4 45 58 54 41 44 52 45 53 53 45 |,Y ;.EXTADRESSE| 00002260: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 41 30 |. STA A0| 00002270: 20 20 20 20 20 20 20 20 20 3B 4E 41 43 48 20 28 | ;NACH (| 00002280: 41 30 29 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |A0). LDA| 00002290: 20 54 45 58 54 54 41 42 2B 31 2C 59 0D 20 20 20 | TEXTTAB+1,Y. | 000022A0: 20 20 20 20 20 20 53 54 41 20 41 30 2B 31 0D 20 | STA A0+1. | 000022B0: 20 20 20 20 20 20 20 20 4C 44 41 20 54 50 4F 53 | LDA TPOS| 000022C0: 54 41 42 2C 59 20 20 3B D3 43 52 4E 41 44 52 45 |TAB,Y ;.CRNADRE| 000022D0: 53 53 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 |SSE. STA| 000022E0: 20 41 31 20 20 20 20 20 20 20 20 20 3B 4E 41 43 | A1 ;NAC| 000022F0: 48 20 28 41 31 29 0D 20 20 20 20 20 20 20 20 20 |H (A1). | 00002300: 4C 44 41 20 54 50 4F 53 54 41 42 2B 31 2C 59 0D |LDA TPOSTAB+1,Y.| 00002310: 20 20 20 20 20 20 20 20 20 53 54 41 20 41 31 2B | STA A1+| 00002320: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |1. LDY #| 00002330: 33 39 20 20 20 20 20 20 20 20 3B 34 30 20 DA 45 |39 ;40 .E| 00002340: 49 43 48 45 4E 0D 54 58 54 4F 55 54 4C 50 20 4C |ICHEN.TXTOUTLP L| 00002350: 44 41 20 28 41 30 29 2C 59 20 20 20 20 20 3B 4C |DA (A0),Y ;L| 00002360: 45 53 45 4E 0D 20 20 20 20 20 20 20 20 20 41 4E |ESEN. AN| 00002370: 44 20 23 36 33 20 20 20 20 20 20 20 20 3B 49 4E |D #63 ;IN| 00002380: 20 C1 D3 C3 A0 57 41 4E 44 45 4C 4E 0D 20 20 20 | ....WANDELN. | 00002390: 20 20 20 20 20 20 4F 52 41 20 23 31 32 38 20 20 | ORA #128 | 000023A0: 20 20 20 20 20 3B D2 45 56 45 52 53 0D 20 20 20 | ;.EVERS. | 000023B0: 20 20 20 20 20 20 53 54 41 20 28 41 31 29 2C 59 | STA (A1),Y| 000023C0: 20 20 20 20 20 3B 41 55 53 47 45 42 45 4E 0D 20 | ;AUSGEBEN. | 000023D0: 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 | DEY. | 000023E0: 20 20 20 20 20 42 50 4C 20 54 58 54 4F 55 54 4C | BPL TXTOUTL| 000023F0: 50 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D |P. RTS..| 00002400: 3B 2D 2D 2D 2D 2D 2D 2D 2D D0 49 43 54 55 52 45 |;--------.ICTURE| 00002410: 53 20 41 4E 5A 45 49 47 45 4E 0D 0D 0D 53 48 4F |S ANZEIGEN...SHO| 00002420: 57 41 50 49 43 20 20 20 20 20 20 20 20 20 20 20 |WAPIC | 00002430: 20 20 3B 3D C5 49 4E 53 50 52 55 4E 47 20 46 55 | ;=.INSPRUNG FU| 00002440: 45 52 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER. | 00002450: 20 20 20 20 20 20 20 20 3B C1 4D 49 43 41 2D D0 | ;.MICA-.| 00002460: 49 43 54 55 52 45 53 0D 20 20 20 20 20 20 20 20 |ICTURES. | 00002470: 20 4A 53 52 20 53 45 54 52 45 47 53 20 3B D2 45 | JSR SETREGS ;.E| 00002480: 47 49 53 54 45 52 20 53 45 54 5A 45 4E 0D 20 20 |GISTER SETZEN. | 00002490: 20 20 20 20 20 20 20 4A 53 52 20 53 43 52 4E 4F | JSR SCRNO| 000024A0: 46 46 20 3B D3 43 52 45 45 4E 20 41 55 53 0D 20 |FF ;.CREEN AUS. | 000024B0: 20 20 20 20 20 20 20 20 4A 53 52 20 44 45 50 41 | JSR DEPA| 000024C0: 43 4B 20 20 3B 45 4E 54 50 41 43 4B 45 4E 0D 0D |CK ;ENTPACKEN..| 000024D0: 53 48 4F 57 4B 50 49 43 20 20 20 20 20 20 20 20 |SHOWKPIC | 000024E0: 20 20 20 20 20 3B 3D C5 49 4E 53 50 52 55 4E 47 | ;=.INSPRUNG| 000024F0: 20 46 55 45 52 0D 20 20 20 20 20 20 20 20 20 20 | FUER. | 00002500: 20 20 20 20 20 20 20 20 20 20 20 3B CB 4F 41 4C | ;.OAL| 00002510: 41 2D D0 49 43 54 55 52 45 53 0D 20 20 20 20 20 |A-.ICTURES. | 00002520: 20 20 20 20 4A 53 52 20 49 4E 49 54 43 4F 4C 53 | JSR INITCOLS| 00002530: 3B C6 41 52 42 45 4E 20 4B 4F 50 49 45 52 45 4E |;.ARBEN KOPIEREN| 00002540: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 43 |. JSR SC| 00002550: 52 4E 4F 4E 20 20 3B D3 43 52 45 45 4E 20 41 4E |RNON ;.CREEN AN| 00002560: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 47 52 |. JSR GR| 00002570: 41 50 48 4F 4E 20 3B C7 52 41 50 48 49 43 20 41 |APHON ;.RAPHIC A| 00002580: 4E 0D 0D 53 48 4F 57 57 41 49 54 20 4A 53 52 20 |N..SHOWWAIT JSR | 00002590: 47 45 54 49 4E 20 20 20 3B 41 55 46 20 D4 41 53 |GETIN ;AUF .AS| 000025A0: 54 45 4E 44 52 55 43 4B 0D 20 20 20 20 20 20 20 |TENDRUCK. | 000025B0: 20 20 42 45 51 20 53 48 4F 57 57 41 49 54 3B 57 | BEQ SHOWWAIT;W| 000025C0: 41 52 54 45 4E 0D 20 20 20 20 20 20 20 20 20 52 |ARTEN. R| 000025D0: 54 53 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D D2 45 47 |TS..;--------.EG| 000025E0: 49 53 54 45 52 20 53 45 54 5A 45 4E 0D 0D 53 45 |ISTER SETZEN..SE| 000025F0: 54 52 45 47 53 20 20 4C 44 58 20 23 33 20 20 20 |TREGS LDX #3 | 00002600: 20 20 20 3B 28 41 30 29 3D DA 49 45 4C 0D 53 52 | ;(A0)=.IEL.SR| 00002610: 45 47 53 4C 50 20 20 4C 44 41 20 52 45 47 54 41 |EGSLP LDA REGTA| 00002620: 42 2C 58 3B 28 41 31 29 3D C4 45 53 54 49 4E 41 |B,X;(A1)=.ESTINA| 00002630: 54 49 4F 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |TION. ST| 00002640: 41 20 41 30 2C 58 0D 20 20 20 20 20 20 20 20 20 |A A0,X. | 00002650: 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 50 4C |DEX. BPL| 00002660: 20 53 52 45 47 53 4C 50 0D 20 20 20 20 20 20 20 | SREGSLP. | 00002670: 20 20 52 54 53 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D | RTS..;--------| 00002680: C7 52 41 50 48 49 4B 20 45 49 4E 53 43 48 41 4C |.RAPHIK EINSCHAL| 00002690: 54 45 4E 0D 0D 47 52 41 50 48 4F 4E 20 20 4C 44 |TEN..GRAPHON LD| 000026A0: 41 20 23 25 30 30 31 31 31 30 31 31 3B C7 52 41 |A #%00111011;.RA| 000026B0: 50 48 49 4B 20 41 4E 0D 20 20 20 20 20 20 20 20 |PHIK AN. | 000026C0: 20 53 54 41 20 56 49 43 2B 31 37 0D 20 20 20 20 | STA VIC+17. | 000026D0: 20 20 20 20 20 4C 44 41 20 23 25 30 30 30 31 31 | LDA #%00011| 000026E0: 30 30 30 3B D3 45 49 54 45 20 31 0D 20 20 20 20 |000;.EITE 1. | 000026F0: 20 20 20 20 20 53 54 41 20 56 49 43 2B 32 34 0D | STA VIC+24.| 00002700: 20 20 20 20 20 20 20 20 20 53 54 41 20 56 49 43 | STA VIC| 00002710: 2B 32 32 20 20 20 20 3B CD 55 4C 54 49 43 4F 4C |+22 ;.ULTICOL| 00002720: 4F 52 20 41 4E 0D 20 20 20 20 20 20 20 20 20 4C |OR AN. L| 00002730: 44 41 20 23 30 20 20 20 20 20 20 20 20 3B 53 43 |DA #0 ;SC| 00002740: 48 57 41 52 5A 0D 20 20 20 20 20 20 20 20 20 53 |HWARZ. S| 00002750: 54 41 20 56 49 43 2B 33 32 20 20 20 20 3B D2 41 |TA VIC+32 ;.A| 00002760: 48 4D 45 4E 46 41 52 42 45 0D 20 20 20 20 20 20 |HMENFARBE. | 00002770: 20 20 20 53 54 41 20 56 49 43 2B 33 33 20 20 20 | STA VIC+33 | 00002780: 20 3B C8 49 4E 54 45 52 47 52 55 4E 44 0D 20 20 | ;.INTERGRUND. | 00002790: 20 20 20 20 20 20 20 52 54 53 0D 0D 3B 2D 2D 2D | RTS..;---| 000027A0: 2D 2D 2D 2D 2D C2 59 54 45 20 53 43 48 52 45 49 |-----.YTE SCHREI| 000027B0: 42 45 4E 0D 0D 53 42 59 54 45 20 20 20 20 4C 44 |BEN..SBYTE LD| 000027C0: 58 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |X #$00. | 000027D0: 53 54 41 20 28 41 30 2C 58 29 0D 20 20 20 20 20 |STA (A0,X). | 000027E0: 20 20 20 20 49 4E 43 20 41 30 0D 20 20 20 20 20 | INC A0. | 000027F0: 20 20 20 20 42 4E 45 20 53 42 59 54 45 4E 44 0D | BNE SBYTEND.| 00002800: 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 30 2B | INC A0+| 00002810: 31 0D 53 42 59 54 45 4E 44 20 20 52 54 53 0D 0D |1.SBYTEND RTS..| 00002820: 3B 2D 2D 2D 2D 2D 2D 2D 2D C2 59 54 45 20 48 4F |;--------.YTE HO| 00002830: 4C 45 4E 0D 0D 47 42 59 54 45 20 20 20 20 4C 44 |LEN..GBYTE LD| 00002840: 58 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |X #$00. | 00002850: 4C 44 41 20 28 41 31 2C 58 29 0D 20 20 20 20 20 |LDA (A1,X). | 00002860: 20 20 20 20 49 4E 43 20 41 31 0D 20 20 20 20 20 | INC A1. | 00002870: 20 20 20 20 42 4E 45 20 47 42 59 54 45 4E 44 0D | BNE GBYTEND.| 00002880: 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 31 2B | INC A1+| 00002890: 31 0D 47 42 59 54 45 4E 44 20 20 52 54 53 0D 0D |1.GBYTEND RTS..| 000028A0: 3B 2D 2D 2D 2D 2D 2D 2D 2D C1 4D 49 43 41 2D D0 |;--------.MICA-.| 000028B0: 49 43 54 55 52 45 20 45 4E 54 50 41 43 4B 45 4E |ICTURE ENTPACKEN| 000028C0: 0D 0D 44 45 50 41 43 4B 20 20 20 4A 53 52 20 47 |..DEPACK JSR G| 000028D0: 42 59 54 45 20 20 20 3B C2 59 54 45 20 48 4F 4C |BYTE ;.YTE HOL| 000028E0: 45 4E 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |EN. CMP | 000028F0: 23 24 43 32 20 20 20 20 3B D3 54 45 55 45 52 5A |#$C2 ;.TEUERZ| 00002900: 45 49 43 48 45 4E 0D 20 20 20 20 20 20 20 20 20 |EICHEN. | 00002910: 42 45 51 20 44 50 41 43 4B 47 4F 30 3B 4A 41 3D |BEQ DPACKGO0;JA=| 00002920: 3E 44 41 4E 4E 20 41 55 53 46 55 45 48 52 2E 0D |>DANN AUSFUEHR..| 00002930: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 42 59 | JSR SBY| 00002940: 54 45 20 20 20 3B C2 59 54 45 20 53 43 48 52 45 |TE ;.YTE SCHRE| 00002950: 49 42 45 4E 0D 20 20 20 20 20 20 20 20 20 4A 4D |IBEN. JM| 00002960: 50 20 44 45 50 41 43 4B 20 20 3B D3 43 48 4C 45 |P DEPACK ;.CHLE| 00002970: 49 46 45 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D |IFE..;--------..| 00002980: 44 50 41 43 4B 47 4F 30 20 4A 53 52 20 47 42 59 |DPACKGO0 JSR GBY| 00002990: 54 45 20 20 20 3B C2 59 54 45 20 48 4F 4C 45 4E |TE ;.YTE HOLEN| 000029A0: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 000029B0: 30 30 20 20 20 20 3B 3D 20 C6 49 4C 45 2D C5 4E |00 ;= .ILE-.N| 000029C0: 44 45 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |DE. BEQ | 000029D0: 44 50 41 43 4B 45 4E 44 3B 4A 41 3D 3E 44 41 4E |DPACKEND;JA=>DAN| 000029E0: 4E 20 C5 4E 44 45 0D 20 20 20 20 20 20 20 20 20 |N .NDE. | 000029F0: 54 41 59 20 20 20 20 20 20 20 20 20 3B C1 4E 5A |TAY ;.NZ| 00002A00: 41 48 4C 20 C2 59 54 45 53 0D 20 20 20 20 20 20 |AHL .YTES. | 00002A10: 20 20 20 4A 53 52 20 47 42 59 54 45 20 20 20 3B | JSR GBYTE ;| 00002A20: C2 59 54 45 20 48 4F 4C 45 4E 0D 20 20 20 20 20 |.YTE HOLEN. | 00002A30: 20 20 20 20 50 48 41 20 20 20 20 20 20 20 20 20 | PHA | 00002A40: 3B 4D 45 52 4B 45 4E 0D 20 20 20 20 20 20 20 20 |;MERKEN. | 00002A50: 20 54 59 41 20 20 20 20 20 20 20 20 20 3B 59 D2 | TYA ;Y.| 00002A60: 45 47 20 4E 41 43 48 20 58 D2 45 47 0D 20 20 20 |EG NACH X.EG. | 00002A70: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00002A80: 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 3B | PLA ;| 00002A90: 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 20 20 4C |HOLEN. L| 00002AA0: 44 59 20 23 24 30 30 0D 44 50 41 43 4B 4C 50 20 |DY #$00.DPACKLP | 00002AB0: 20 53 54 41 20 28 41 30 29 2C 59 20 20 3B 55 4E | STA (A0),Y ;UN| 00002AC0: 44 20 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 |D SCHREIBEN. | 00002AD0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 00002AE0: 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 | DEX. B| 00002AF0: 4E 45 20 44 50 41 43 4B 4C 50 0D 20 20 20 20 20 |NE DPACKLP. | 00002B00: 20 20 20 20 54 59 41 20 20 20 20 20 20 20 20 20 | TYA | 00002B10: 3B C3 4F 55 4E 54 45 52 20 5A 55 20 C4 45 53 54 |;.OUNTER ZU .EST| 00002B20: 49 2D 0D 20 20 20 20 20 20 20 20 20 43 4C 43 20 |I-. CLC | 00002B30: 20 20 20 20 20 20 20 20 3B 4E 41 54 49 4F 4E 20 | ;NATION | 00002B40: 41 44 44 49 45 52 45 4E 0D 20 20 20 20 20 20 20 |ADDIEREN. | 00002B50: 20 20 41 44 43 20 41 30 0D 20 20 20 20 20 20 20 | ADC A0. | 00002B60: 20 20 53 54 41 20 41 30 0D 20 20 20 20 20 20 20 | STA A0. | 00002B70: 20 20 42 43 43 20 44 45 50 41 43 4B 20 20 3B 5A | BCC DEPACK ;Z| 00002B80: 55 52 20 D3 43 48 4C 45 49 46 45 0D 20 20 20 20 |UR .CHLEIFE. | 00002B90: 20 20 20 20 20 49 4E 43 20 41 30 2B 31 0D 20 20 | INC A0+1. | 00002BA0: 20 20 20 20 20 20 20 4A 4D 50 20 44 45 50 41 43 | JMP DEPAC| 00002BB0: 4B 20 20 3B 5A 55 52 20 D3 43 48 4C 45 49 46 45 |K ;ZUR .CHLEIFE| 00002BC0: 0D 0D 44 50 41 43 4B 45 4E 44 20 52 54 53 0D 0D |..DPACKEND RTS..| 00002BD0: 3B 2D 2D 2D 2D 2D 2D 2D 2D C6 41 52 42 45 4E 20 |;--------.ARBEN | 00002BE0: 4B 4F 50 49 45 52 45 4E 0D 0D 49 4E 49 54 43 4F |KOPIEREN..INITCO| 00002BF0: 4C 53 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B |LS CLC ;| 00002C00: 28 41 30 29 20 41 55 46 20 C6 41 52 42 45 4E 0D |(A0) AUF .ARBEN.| 00002C10: 20 20 20 20 20 20 20 20 20 4C 44 41 20 52 45 47 | LDA REG| 00002C20: 54 41 42 20 20 3B 46 55 45 52 20 D3 43 52 45 45 |TAB ;FUER .CREE| 00002C30: 4E 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 |N SETZEN. | 00002C40: 20 20 41 44 43 20 23 24 34 30 20 20 20 20 3B C2 | ADC #$40 ;.| 00002C50: 49 4C 44 41 4E 46 41 4E 47 20 2B 20 24 31 46 34 |ILDANFANG + $1F4| 00002C60: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 41 |0. STA A| 00002C70: 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 52 |0. LDA R| 00002C80: 45 47 54 41 42 2B 31 0D 20 20 20 20 20 20 20 20 |EGTAB+1. | 00002C90: 20 41 44 43 20 23 24 31 46 0D 20 20 20 20 20 20 | ADC #$1F. | 00002CA0: 20 20 20 53 54 41 20 41 30 2B 31 0D 0D 20 20 20 | STA A0+1.. | 00002CB0: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 00002CC0: 20 20 3B 28 41 31 29 20 41 55 46 20 C6 41 52 42 | ;(A1) AUF .ARB| 00002CD0: 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |EN. LDA | 00002CE0: 41 30 20 20 20 20 20 20 3B 46 55 45 52 20 C3 4F |A0 ;FUER .O| 00002CF0: 4C 4F 52 52 41 4D 0D 20 20 20 20 20 20 20 20 20 |LORRAM. | 00002D00: 41 44 43 20 23 24 45 38 20 20 20 20 3B 28 41 30 |ADC #$E8 ;(A0| 00002D10: 29 20 2B 20 31 30 30 30 0D 20 20 20 20 20 20 20 |) + 1000. | 00002D20: 20 20 53 54 41 20 41 31 0D 20 20 20 20 20 20 20 | STA A1. | 00002D30: 20 20 4C 44 41 20 41 30 2B 31 0D 20 20 20 20 20 | LDA A0+1. | 00002D40: 20 20 20 20 41 44 43 20 23 24 30 33 0D 20 20 20 | ADC #$03. | 00002D50: 20 20 20 20 20 20 53 54 41 20 41 31 2B 31 0D 0D | STA A1+1..| 00002D60: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 20 | LDA #0 | 00002D70: 20 20 20 20 20 3B 28 41 32 29 3D D3 43 52 45 45 | ;(A2)=.CREE| 00002D80: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 41 |N. STA A| 00002D90: 32 20 20 20 20 20 20 3B 28 41 33 29 3D C3 4F 4C |2 ;(A3)=.OL| 00002DA0: 4F 52 52 41 4D 0D 20 20 20 20 20 20 20 20 20 53 |ORRAM. S| 00002DB0: 54 41 20 41 33 0D 20 20 20 20 20 20 20 20 20 4C |TA A3. L| 00002DC0: 44 41 20 23 24 30 34 0D 20 20 20 20 20 20 20 20 |DA #$04. | 00002DD0: 20 53 54 41 20 41 32 2B 31 0D 20 20 20 20 20 20 | STA A2+1. | 00002DE0: 20 20 20 4C 44 41 20 23 24 44 38 0D 20 20 20 20 | LDA #$D8. | 00002DF0: 20 20 20 20 20 53 54 41 20 41 33 2B 31 0D 0D 20 | STA A3+1.. | 00002E00: 20 20 20 20 20 20 20 20 4C 44 58 20 23 33 20 20 | LDX #3 | 00002E10: 20 20 20 3B CB 4F 50 49 45 52 D3 43 48 4C 45 49 | ;.OPIER.CHLEI| 00002E20: 46 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |FE. LDY | 00002E30: 23 30 20 20 20 20 20 3B 46 55 45 52 20 34 20 C2 |#0 ;FUER 4 .| 00002E40: 4C 4F 43 4B 53 0D 49 43 4F 4C 53 4C 50 20 20 4C |LOCKS.ICOLSLP L| 00002E50: 44 41 20 28 41 30 29 2C 59 20 3B 3D 24 30 34 30 |DA (A0),Y ;=$040| 00002E60: 30 20 C2 59 54 45 53 0D 20 20 20 20 20 20 20 20 |0 .YTES. | 00002E70: 20 53 54 41 20 28 41 32 29 2C 59 0D 20 20 20 20 | STA (A2),Y. | 00002E80: 20 20 20 20 20 4C 44 41 20 28 41 31 29 2C 59 0D | LDA (A1),Y.| 00002E90: 20 20 20 20 20 20 20 20 20 53 54 41 20 28 41 33 | STA (A3| 00002EA0: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 4E 59 |),Y. INY| 00002EB0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 49 43 |. BNE IC| 00002EC0: 4F 4C 53 4C 50 0D 20 20 20 20 20 20 20 20 20 49 |OLSLP. I| 00002ED0: 4E 43 20 41 30 2B 31 0D 20 20 20 20 20 20 20 20 |NC A0+1. | 00002EE0: 20 49 4E 43 20 41 31 2B 31 0D 20 20 20 20 20 20 | INC A1+1. | 00002EF0: 20 20 20 49 4E 43 20 41 32 2B 31 0D 20 20 20 20 | INC A2+1. | 00002F00: 20 20 20 20 20 49 4E 43 20 41 33 2B 31 0D 20 20 | INC A3+1. | 00002F10: 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 | DEX. | 00002F20: 20 20 20 20 42 50 4C 20 49 43 4F 4C 53 4C 50 0D | BPL ICOLSLP.| 00002F30: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B 2D | RTS..;-| 00002F40: 2D 2D 2D 2D 2D 2D 2D D3 43 52 45 45 4E 20 41 42 |-------.CREEN AB| 00002F50: 53 43 48 41 4C 54 45 4E 0D 0D 53 43 52 4E 4F 46 |SCHALTEN..SCRNOF| 00002F60: 46 20 20 4A 53 52 20 57 41 49 54 52 41 53 54 0D |F JSR WAITRAST.| 00002F70: 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 49 43 | LDA VIC| 00002F80: 2B 31 37 0D 20 20 20 20 20 20 20 20 20 41 4E 44 |+17. AND| 00002F90: 20 23 25 31 31 31 30 31 31 31 31 0D 20 20 20 20 | #%11101111. | 00002FA0: 20 20 20 20 20 53 54 41 20 56 49 43 2B 31 37 0D | STA VIC+17.| 00002FB0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B 2D | RTS..;-| 00002FC0: 2D 2D 2D 2D 2D 2D 2D D3 43 52 45 45 4E 20 45 49 |-------.CREEN EI| 00002FD0: 4E 53 43 48 41 4C 54 45 4E 0D 0D 53 43 52 4E 4F |NSCHALTEN..SCRNO| 00002FE0: 4E 20 20 20 4A 53 52 20 57 41 49 54 52 41 53 54 |N JSR WAITRAST| 00002FF0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 49 |. LDA VI| 00003000: 43 2B 31 37 0D 20 20 20 20 20 20 20 20 20 4F 52 |C+17. OR| 00003010: 41 20 23 25 30 30 30 31 30 30 30 30 0D 20 20 20 |A #%00010000. | 00003020: 20 20 20 20 20 20 53 54 41 20 56 49 43 2B 31 37 | STA VIC+17| 00003030: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B |. RTS..;| 00003040: 2D 2D 2D 2D 2D 2D 2D 2D 41 55 46 20 D2 41 53 54 |--------AUF .AST| 00003050: 45 52 53 54 52 41 48 4C 50 4F 53 49 54 49 4F 4E |ERSTRAHLPOSITION| 00003060: 20 57 41 52 54 45 4E 0D 0D 57 41 49 54 52 41 53 | WARTEN..WAITRAS| 00003070: 54 20 4C 44 41 20 23 32 35 35 0D 20 20 20 20 20 |T LDA #255. | 00003080: 20 20 20 20 43 4D 50 20 56 49 43 2B 31 38 0D 20 | CMP VIC+18. | 00003090: 20 20 20 20 20 20 20 20 42 4E 45 20 57 41 49 54 | BNE WAIT| 000030A0: 52 41 53 54 0D 20 20 20 20 20 20 20 20 20 52 54 |RAST. RT| 000030B0: 53 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 52 45 |S..;--------..RE| 000030C0: 47 54 41 42 20 20 20 2E 57 4F 52 44 20 24 32 30 |GTAB .WORD $20| 000030D0: 30 30 20 3B 45 4E 54 50 41 43 4B 54 45 53 20 C6 |00 ;ENTPACKTES .| 000030E0: 49 4C 45 0D 20 20 20 20 20 20 20 20 20 2E 57 4F |ILE. .WO| 000030F0: 52 44 20 24 34 41 30 30 20 3B 47 45 50 41 43 4B |RD $4A00 ;GEPACK| 00003100: 54 45 53 20 C6 49 4C 45 0D 0D 54 45 58 54 54 41 |TES .ILE..TEXTTA| 00003110: 42 20 20 2E 57 4F 52 44 20 54 45 58 54 30 30 2C |B .WORD TEXT00,| 00003120: 54 45 58 54 30 31 0D 0D 54 50 4F 53 54 41 42 20 |TEXT01..TPOSTAB | 00003130: 20 2E 57 4F 52 44 20 53 43 52 45 45 4E 0D 20 20 | .WORD SCREEN. | 00003140: 20 20 20 20 20 20 20 2E 57 4F 52 44 20 53 43 52 | .WORD SCR| 00003150: 45 45 4E 2B 28 34 30 2A 32 34 29 0D 0D 54 45 58 |EEN+(40*24)..TEX| 00003160: 54 30 30 20 20 20 2E 54 45 58 54 20 22 41 4D 49 |T00 .TEXT "AMI| 00003170: 43 41 2D 50 49 43 54 55 52 45 2D 53 48 4F 57 45 |CA-PICTURE-SHOWE| 00003180: 52 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 |R". .TEX| 00003190: 54 20 22 20 42 59 20 44 41 52 4B 20 4D 49 47 48 |T " BY DARK MIGH| 000031A0: 54 53 20 31 39 39 32 22 0D 0D 54 45 58 54 30 31 |TS 1992"..TEXT01| 000031B0: 20 20 20 2E 54 45 58 54 20 22 4D 4F 56 45 20 43 | .TEXT "MOVE C| 000031C0: 55 52 53 4F 52 20 54 4F 20 41 4E 59 20 22 0D 20 |URSOR TO ANY ". | 000031D0: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 46 | .TEXT "F| 000031E0: 49 4C 45 20 41 4E 44 20 48 49 54 20 52 45 54 55 |ILE AND HIT RETU| 000031F0: 52 4E 21 20 22 0D 0D 46 4E 4C 45 4E 20 20 20 20 |RN! "..FNLEN | 00003200: 2E 42 59 54 45 20 30 0D 46 49 4C 45 4E 41 4D 45 |.BYTE 0.FILENAME| 00003210: 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 20 | .TEXT " | 00003220: 20 20 20 20 20 20 20 20 22 0D 0D 20 20 20 20 20 | ".. | 00003230: 20 20 20 20 3B 22 3F 50 49 43 20 22 0D 4B 4F 41 | ;"?PIC ".KOA| 00003240: 4C 41 50 52 46 20 2E 42 59 54 45 20 24 33 46 2C |LAPRF .BYTE $3F,| 00003250: 24 35 30 2C 24 34 39 2C 24 34 33 2C 24 32 30 0D |$50,$49,$43,$20.| 00003260: 0D 20 20 20 20 20 20 20 20 20 3B 22 5B 42 5D 22 |. ;"[B]"| 00003270: 0D 41 4D 49 43 41 50 52 46 20 2E 42 59 54 45 20 |.AMICAPRF .BYTE | 00003280: 24 35 42 2C 24 34 32 2C 24 35 44 0D 0D |$5B,$42,$5D.. |
*= $0810..;--------ASSEMBLER-EI
NSPRUNG..ASSTART = 36864..;--------ZERO
PAGE-ADRESSEN..A0 = $02;;.A1
= $04;;.A2 = $06;;.A3 = $08
;;.CURSOR = $0A;;.COLOR = $0C;;.AME
M = $10;.XMEM = $11;.YMEM =
$12;.XP = $50;.YP = $51;..;-
-------SYSTEM-ADRESSEN..KEY = $C6.K
EYSTACK = $0277.IRQVEC = $0314.NMIVEC
= $0318.SCREEN = $0400.GRAPHIC = $2
000.VIC = $D000.SID = $D400.RN
D = $D41B.COLORRAM = $D800.JOY1
= $DC00.JOY2 = $DC01..;--------BETR
IEBSSYSTEM-ROUTINEN..INTOUT = $BDCD.VI
CRESET = $E518.CLRHOME = $E544.FNPAR
= $FDF9.FPAR = $FE00.CHROUT = $FF
D2.LOAD = $FFD5.SAVE = $FFD8.OPE
N = $FFC0.GETIN = $FFE4..;-------
-HAUPTSCHLEIFE..MAINROUT JSR INIT.
JSR SHOWDIR. JSR SLCTFILE.
JMP MAINROUT..MAINEND JMP REINIT.
..;--------PROGRAMM INITIALISIEREN..INIT
LDA #0 ;VERHINDERT AUSGABE.
STA $9D ;VON MELDUNGEN DES.
;BETRIEBSSYSTEMS..
JSR VICRESET;VIC-INIT. JMP
RESET ;NMI-VECTOR SETZEN..;--------PRO
GRAMM REINITIALISIEREN..REINIT LDA #0
;TASTATURPUFFER. STA 198
;RUECKSETZEN. JSR VICRESET;VIC
-INIT. JMP ASSTART ;ASSEMBLER ST
ARTEN..;--------NMI-VECTOR VERBIEGEN..RE
SET LDA #<MAINEND ;NMI-VECTOR AUF.
STA NMIVEC ;MAINEND VERBIE-.
LDA #>MAINEND ;GEN, RESTORE.
STA NMIVEC+1 ;BRICHT IMMER DAS.
RTS ;PROGRAMM AB UND.
;STARTET T-ASS..;-----
---FILE AUSWAEHLEN..SLCTFILE LDA #0
;YPOSITION DES. STA YMEM ;CU
RSORS LOESCHEN. LDA #40 ;SCR
EENADRESSE DES. STA A0 ;CUR
SORS NACH A0. LDA #$04.
STA A0+1. JSR SETCUR ;CURSOR IN
VERTIEREN..SFILELP JSR GETIN ;TASTATU
R ABFRAGEN. CMP #17. BEQ
CRSRDOWN. CMP #145. BEQ
CRSRUP. CMP #13. BEQ RE
TURN. JMP SFILELP..;--------CURS
OR DOWN AUSFUEHREN..CRSRDOWN JSR SETCUR
;CURSOR INVERT.. LDA YMEM ;Y
-POSITION = 22?. CMP #22.
BEQ CDOWNEND;JA => DANN ENDE.
INC YMEM ;Y-POS ERHOEHEN. CLC
;CURSORADRESSE AUF. LDA
A0 ;NAECHSTE ZEILE. ADC #4
0 ;STELLEN. STA A0.
BCC CDOWNEND;KEIN UEBERLAUF?. IN
C A0+1.CDOWNEND JSR SETCUR ;CURSOR INVE
RT.. JMP SFILELP ;ZUR TASTATURRO
UT...;--------CURSOR UP AUSFUEHREN..CRSR
UP JSR SETCUR ;CURSOR INVERT..
LDA YMEM ;Y-POSITION=0?. BE
Q CUPEND ;JA => DANN ENDE. DEC
YMEM ;Y-POS - 1. SEC
;40 VON CURSORADR.. LDA A0
;ABZIEHEN. SBC #40. STA
A0. BCS CUPEND ;UNTERLAUF?.
DEC A0+1.CUPEND JSR SETCUR ;CURS
OR INVERT.. JMP SFILELP ;ZUR TAS
TATURROUT...;--------RETURN AUSFUEHREN..
RETURN JSR SETCUR ;CURSOR INVERT...
LDY #12 ;12.ZEICHEN DER.RETUR
NLP LDA (A0),Y ;ZEILE=AKT.FILENAME.
CMP #$C1 ;ZEICHEN FUER KOALA.
BEQ KOALAPIC;JA => DANN WEITER.
CMP #$1B ;ZEICHEN FUER AMICA.
BEQ AMICAPIC;JA => DANN WEITER.
PLA ;RUECKSPRUNGADRESSE.
PLA ;LOESCHEN. J
MP MAINROUT;NEUSTART..;--------CURSORZEI
LE INVERTIEREN..SETCUR JSR WAITRAST.
LDY #39 ;40 ZEICHEN=1 ZEILE.S
CURLP LDA (A0),Y ;INVERTIEREN.
EOR #128 ;STARTPOSITION. ST
A (A0),Y ;IMMER IN A0. DEY.
BPL SCURLP. RTS..;--------K
OALABILD LADEN UND ANZEIGEN..;DER FILENA
ME KANN NICHT DIREKT VOM.;BILDSCHIRM GEL
ESEN WERDEN, WEIL ER ERST.;CHR$-CODE GEW
ANDELT WERDEN MUSS. IM.;VORLIEGENDEN FAL
L WIRD DAVON AUSGEGAN-.;GEN, DASS KEINE
GRAPHIK-ZEICHEN ODER.;GROSSBUCHSTABEN VE
RWENDET WURDEN!..KOALAPIC LDX #4
;KOALA-PRAEFIX.KOALAPLP LDA KOALAPRF,X;I
N FILENAMEN. STA FILENAME,X;SCHR
EIBEN. DEX ;?PIC+SPACE
. BPL KOALAPLP.. LDX #4
;ZEIGER FILENAME. LDY #16
;ZEIGER SCREEN.KOALALP0 LDA (A0),
Y ;HOLEN. EOR #%00100000;= EO
R #32. CLC. ADC #$20
;+ #32. STA FILENAME,X;SCHREIB
EN. INY. INX. CP
X #15 ;15 BUCHSTABEN?. BNE
KOALALP0 ;NEIN => SCHLEIFE. LD
A #15 ;LAENGE SETZEN. STA
FNLEN. LDY #0 ;ZEIGER LAD
EADR.. JSR LFILE ;BILD LADEN
. JMP SHOWKPIC ;UND ANZEIGEN..;
--------AMICA-PAINT FORMAT ANZEIGEN..AMI
CAPIC LDX #2 ;PRAEFIX IN.AMICAPLP
LDA AMICAPRF,X;FILENAMEN. STA F
ILENAME,X;[B]. DEX. BPL
AMICAPLP. LDA #3 ;LANGE B
EI DIESEM. STA FNLEN ;FORMAT
VARIABEL. LDX #3 ;ZEIGER
FILENAME. LDY #15 ;ZEIGER
SCREEN.AMICALP0 LDA (A0),Y ;HOLEN.
CMP #$22 ;NAME ZU ENDE?.
BEQ AMICAGO ;JA=>DANN ENDE.
EOR #%00100000;WIE OBEN. CLC.
ADC #$20. STA FILENAME,
X;SCHREIBEN. INC FNLEN ;FILE
LAENGE+1. INY. INX.
BNE AMICALP0 ;ZUR SCHLEIFE.AMICAGO
LDY #2 ;ZEIGER LADEADR..
JSR LFILE ;BILD LADEN UND.
JMP SHOWAPIC ;ANZEIGEN..;--------FILE L
ADEN..LFILE LDA REGTAB,Y ;LADEADRESS
EN. STA A0 ;AUS TABELLE.
LDA REGTAB+1,Y;HOLEN. ST
A A0+1. LDA FNLEN. LDX #
<FILENAME. LDY #>FILENAME;FILENA
MEN-. JSR FNPAR ;PARAMETER S
ETZEN. LDA #2. LDX #8.
LDY #0 ;FILEPARAMETER.
JSR FPAR ;SETZEN. LDA
#$00 ;(1=VERIFY). LDX A0.
LDY A0+1. JSR LOAD ;
FILE LADEN. BCC LFILEEND ;KEIN
FEHLER =>.. PLA ;RUECK
SPRUNG-. PLA ;ADRESSE
LOESCHEN. ;= BILD
NICHT. ;ANZEIGEN!.
LFILEEND RTS..;--------DIRECTORY ANZEIGE
N..SHOWDIR LDA #154 ;HELLBLAU.
JSR CHROUT. JSR CLRHOME.
LDA #13 ;RETURN. JSR
CHROUT. LDA #13 ;RETURN.
JSR CHROUT. LDA #0
;TEXTNR 0. JSR TEXTOUT ;AUSG
EBEN. JSR OPENFILE ;FILE OEFFNE
N. LDA $BA ;SEKUNDAER ADR.
. JSR $ED09 ;IEC-OPEN.
LDA $B9 ;GERAETENUMMER.
JSR $EDC7 ;TALK SENDEN. JSR
GETBYTE ;=BYTE VOM IEC-. JSR
GETBYTE ;BUS LESEN.SHWDIRLP LDX #5
;5 LEERZEICHEN. JSR TABULATR
;AUSGEBEN. JSR SRCHSTRT ;STAR
T SUCHEN. JSR BLOCKOUT ;BLOCKS
AUSGEBEN. JSR FNAMEOUT ;FILENAM
EN DRUCK.. JSR RUNSTOP ;RUNSTO
P ABFRAGEN. JMP SHWDIRLP ;SCHLE
IFE..;--------FILE SCHLIESSEN..CLOSE
PLA ;RUECKSPRUNGADR..
PLA ;LOESCHEN.
;= RTS IM AUFRU-.
;FENDEN PROGRAMM.. JSR $F
528 ;UNTALK SENDEN.
;UND FILECLOSE. JSR $FFE7
;ALLES SCHLIESSEN. LDA #0
;TEXTNUMMER 0. JSR TEXTOUT.
LDA #1 ;TEXTNUMMER 1.
JMP TEXTOUT ;AUSGEBEN..;--------
BYTE VOM IEC-BUS LESEN..GETBYTE JSR $EE
13 ;BYTE LESEN. PHA
;MERKEN. LDA $90 ;STATUS
. LSR A. LSR A.
PLA ;BYTE HOLEN. BCS C
LOSE ;TIME OUT. RTS..;------
--RUNSTOP ABFRAGEN..RUNSTOP JSR $FFE1
;RUNSTOP?. BEQ CLOSE ;JA=>DAN
N ENDE. RTS..;--------ZEIGER AUF
START DES DIRECTORY. ;EINTRAG SE
TZEN..SRCHSTRT JSR GETBYTE ;BYTE LESEN.
BEQ SRCHSTGO;=0 DANN NAECHSTES.
CMP #1. BNE SRCHSTRT;<>1
DANN SCHLEIFE.SRCHSTGO JSR GETBYTE ;BYT
E LESEN. BEQ CLOSE ;=0 DANN DI
R. ENDE. RTS..;--------ANZAHL DE
R BLOCKS AUSGEBEN..BLOCKOUT JSR GETBYTE
;BYTE LESEN. STA AMEM ;MERKEN
. JSR GETBYTE ;IN AKKU HIGH.
LDX AMEM ;IN XREG LOW. J
SR INTOUT ;INTEGER AUSGEBEN. LD
A #32 ;LEERZEICHEN. JMP CHRO
UT ;AUSGEBEN..;--------FILENAME DRUCKEN
..FNAMEOUT JSR GETBYTE ;BYTE LESEN.
BEQ FNOUTLP ;=0 DANN STRINGENDE.
JSR CHROUT ;ZEICHEN AUSGEBEN.
JMP FNAMEOUT;SCHLEIFE..FNOUTLP LDA
#13 ;RETURN. JMP CHROUT ;AU
SGEBEN..;--------FILE OEFFNEN..OPENFILE
LDA #1 ;LOGISCHE FILENR.. L
DX #8 ;GERAETEADRESSE. LDY
#0 ;SEKUNDAERADRESSE. JSR F
PAR ;SETZEN. LDA #1 ;FIL
ELAENGE. LDX #<FNAME. LD
Y #>FNAME. JSR FNPAR ;FNAME SE
TZEN. JMP OPEN ;FILE OEFFNEN.
.FNAME .TEXT "$"..;--------TABULATOR/
ANZAHL LEERZEICHEN. ;IN XREG..TAB
ULATR LDA #32 ;LEERZEICHEN.
JSR CHROUT ;AUSGEBEN. DEX.
BPL TABULATR. RTS..;--------
TEXT AUSGEBEN..TEXTOUT ASL A ;
ZEIGER AUF. TAY ;TABE
LLE. LDA TEXTTAB,Y ;TEXTADRESSE
. STA A0 ;NACH (A0).
LDA TEXTTAB+1,Y. STA A0+1.
LDA TPOSTAB,Y ;SCRNADRESSE.
STA A1 ;NACH (A1).
LDA TPOSTAB+1,Y. STA A1+1.
LDY #39 ;40 ZEICHEN.TXTOUTLP L
DA (A0),Y ;LESEN. AND #63
;IN ASC WANDELN. ORA #128
;REVERS. STA (A1),Y ;AU
SGEBEN. DEY. BPL TXTOUTL
P. RTS..;--------PICTURES ANZEIG
EN...SHOWAPIC ;=EINSPRUNG FU
ER. ;AMICA-PICTURES.
JSR SETREGS ;REGISTER SETZEN.
JSR SCRNOFF ;SCREEN AUS.
JSR DEPACK ;ENTPACKEN..SHOWKPIC
;=EINSPRUNG FUER.
;KOALA-PICTURES. JSR INITCOLS
;FARBEN KOPIEREN. JSR SCRNON ;S
CREEN AN. JSR GRAPHON ;GRAPHIC A
N..SHOWWAIT JSR GETIN ;AUF TASTENDRUCK
. BEQ SHOWWAIT;WARTEN. R
TS..;--------REGISTER SETZEN..SETREGS L
DX #3 ;(A0)=ZIEL.SREGSLP LDA REGTA
B,X;(A1)=DESTINATION. STA A0,X.
DEX. BPL SREGSLP.
RTS..;--------GRAPHIK EINSCHALTEN..GRA
PHON LDA #%00111011;GRAPHIK AN.
STA VIC+17. LDA #%00011000;SEIT
E 1. STA VIC+24. STA VIC
+22 ;MULTICOLOR AN. LDA #0
;SCHWARZ. STA VIC+32 ;RA
HMENFARBE. STA VIC+33 ;HINTER
GRUND. RTS..;--------BYTE SCHREI
BEN..SBYTE LDX #$00. STA (A0,
X). INC A0. BNE SBYTEND.
INC A0+1.SBYTEND RTS..;-------
-BYTE HOLEN..GBYTE LDX #$00.
LDA (A1,X). INC A1. BNE
GBYTEND. INC A1+1.GBYTEND RTS..
;--------AMICA-PICTURE ENTPACKEN..DEPACK
JSR GBYTE ;BYTE HOLEN. CMP
#$C2 ;STEUERZEICHEN. BEQ DPAC
KGO0;JA=>DANN AUSFUEHR.. JSR SBY
TE ;BYTE SCHREIBEN. JMP DEPACK
;SCHLEIFE..;--------..DPACKGO0 JSR GBY
TE ;BYTE HOLEN. CMP #$00 ;=
FILE-ENDE. BEQ DPACKEND;JA=>DAN
N ENDE. TAY ;ANZAHL BYTE
S. JSR GBYTE ;BYTE HOLEN.
PHA ;MERKEN. TYA
;YREG NACH XREG. TAX.
PLA ;HOLEN. LDY #$00.
DPACKLP STA (A0),Y ;UND SCHREIBEN.
INY. DEX. BNE DPACK
LP. TYA ;COUNTER ZU DEST
I-. CLC ;NATION ADDIEREN
. ADC A0. STA A0.
BCC DEPACK ;ZUR SCHLEIFE. INC
A0+1. JMP DEPACK ;ZUR SCHLEIFE
..DPACKEND RTS..;--------FARBEN KOPIEREN
..INITCOLS CLC ;(A0) AUF FARBEN.
LDA REGTAB ;FUER SCREEN SETZEN
. ADC #$40 ;BILDANFANG + $1F4
0. STA A0. LDA REGTAB+1.
ADC #$1F. STA A0+1..
CLC ;(A1) AUF FARBEN.
LDA A0 ;FUER COLORRAM.
ADC #$E8 ;(A0) + 1000. STA A1
. LDA A0+1. ADC #$03.
STA A1+1.. LDA #0 ;(A
2)=SCREEN. STA A2 ;(A3)=COL
ORRAM. STA A3. LDA #$04.
STA A2+1. LDA #$D8.
STA A3+1.. LDX #3 ;KOPI
ERSCHLEIFE. LDY #0 ;FUER 4 B
LOCKS.ICOLSLP LDA (A0),Y ;=$0400 BYTES.
STA (A2),Y. LDA (A1),Y.
STA (A3),Y. INY.
BNE ICOLSLP. INC A0+1.
INC A1+1. INC A2+1. INC
A3+1. DEX. BPL ICOLSLP.
RTS..;--------SCREEN ABSCHALTEN
..SCRNOFF JSR WAITRAST. LDA VIC
+17. AND #%11101111. STA
VIC+17. RTS..;--------SCREEN EI
NSCHALTEN..SCRNON JSR WAITRAST.
LDA VIC+17. ORA #%00010000.
STA VIC+17. RTS..;--------
AUF RASTERSTRAHLPOSITION WARTEN..WAITRAS
T LDA #255. CMP VIC+18.
BNE WAITRAST. RTS..;--------..RE
GTAB .WORD $2000 ;ENTPACKTES FILE.
.WORD $4A00 ;GEPACKTES FILE..TEXTTA
B .WORD TEXT00,TEXT01..TPOSTAB .WORD S
CREEN. .WORD SCREEN+(40*24)..TEX
T00 .TEXT "AMICA-PICTURE-SHOWER".
.TEXT " BY DARK MIGHTS 1992"..TEXT01
.TEXT "MOVE CURSOR TO ANY ".
.TEXT "FILE AND HIT RETURN! "..FNLEN
.BYTE 0.FILENAME .TEXT "
".. ;"?PIC ".KOALAPRF .BYTE $3F,
$50,$49,$43,$20.. ;"[B]".AMICAPR
F .BYTE $5B,$42,$5D..
> CLICK IMAGE PREVIEW FOR FULL MODAL