DIR.B3
FILE INFORMATION
FILENAME(S): DIR.B3
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 3 disk(s)
FILE HASH
641179b8eb3bb49c538fe5c5bfa32eebca4fef24dfa4c2aae29b4f22988bf0c5
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | DIR.B3 | PRG | Treasure Chest - ToGuMi | 24 | 15 | DOWNLOAD FILE |
| SONDERHEFT ASS | DIR.B3 | PRG | C64er | 24 | 15 | DOWNLOAD FILE |
| SONDERHEFT ASS | DIR.B3 | PRG | DuncanTwain | 24 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F0 1F 0A 00 2E 45 51 20 49 52 51 56 45 4B |.......EQ IRQVEK| 00000010: 4C 4F 20 3D 20 24 33 31 34 00 08 20 14 00 2E 45 |LO = $314.. ...E| 00000020: 51 20 49 52 51 56 45 4B 48 49 20 3D 20 24 33 31 |Q IRQVEKHI = $31| 00000030: 35 00 21 20 1E 00 2E 45 51 20 53 48 49 46 54 46 |5.! ...EQ SHIFTF| 00000040: 4C 41 47 20 3D 20 24 32 38 44 00 38 20 28 00 2E |LAG = $28D.8 (..| 00000050: 45 51 20 54 49 4D 45 52 41 55 53 20 3D 20 24 38 |EQ TIMERAUS = $8| 00000060: 30 00 4F 20 32 00 2E 45 51 20 54 49 4D 45 52 45 |0.O 2..EQ TIMERE| 00000070: 49 4E 20 3D 20 31 32 39 00 63 20 3C 00 2E 45 51 |IN = 129.c <..EQ| 00000080: 20 49 43 52 20 3D 20 24 44 43 30 45 00 80 20 46 | ICR = $DC0E.. F| 00000090: 00 2E 45 51 20 49 4E 54 45 52 52 55 50 54 41 4C |..EQ INTERRUPTAL| 000000A0: 54 20 3D 20 24 45 41 33 31 00 97 20 50 00 2E 45 |T = $EA31.. P..E| 000000B0: 51 20 53 45 54 4E 41 4D 20 3D 20 24 46 46 42 44 |Q SETNAM = $FFBD| 000000C0: 00 AE 20 5A 00 2E 45 51 20 53 45 54 4C 46 53 20 |.. Z..EQ SETLFS | 000000D0: 3D 20 24 46 46 42 41 00 C3 20 64 00 2E 45 51 20 |= $FFBA.. d..EQ | 000000E0: 4F 50 45 4E 20 3D 20 24 46 46 43 30 00 D9 20 6E |OPEN = $FFC0.. n| 000000F0: 00 2E 45 51 20 43 48 4B 49 4E 20 3D 20 24 46 46 |..EQ CHKIN = $FF| 00000100: 43 36 00 EF 20 78 00 2E 45 51 20 43 48 52 49 4E |C6.. x..EQ CHRIN| 00000110: 20 3D 20 24 46 46 43 46 00 06 21 82 00 2E 45 51 | = $FFCF..!...EQ| 00000120: 20 49 4E 54 4F 55 54 20 3D 20 24 42 44 43 44 00 | INTOUT = $BDCD.| 00000130: 1D 21 8C 00 2E 45 51 20 43 48 52 4F 55 54 20 3D |.!...EQ CHROUT =| 00000140: 20 24 46 46 44 32 00 33 21 96 00 2E 45 51 20 43 | $FFD2.3!...EQ C| 00000150: 4C 4F 53 45 20 3D 20 24 46 46 43 33 00 4A 21 97 |LOSE = $FFC3.J!.| 00000160: 00 2E 45 51 20 43 4C 52 43 48 4E 20 3D 20 24 46 |..EQ CLRCHN = $F| 00000170: 46 43 43 00 5F 21 A0 00 2E 45 51 20 53 54 41 54 |FCC._!...EQ STAT| 00000180: 55 53 20 3D 20 24 39 30 00 74 21 AA 00 2E 45 51 |US = $90.t!...EQ| 00000190: 20 52 45 54 54 45 4E 20 3D 20 24 46 42 00 8D 21 | RETTEN = $FB..!| 000001A0: B4 00 2E 45 51 20 54 41 53 54 45 4E 43 4F 44 45 |...EQ TASTENCODE| 000001B0: 20 3D 20 24 43 35 00 93 21 BE 00 3B 00 99 21 C8 | = $C5..!..;..!.| 000001C0: 00 3B 00 A7 21 D2 00 2E 42 41 20 24 43 30 30 30 |.;..!...BA $C000| 000001D0: 00 AD 21 DC 00 3B 00 D3 21 DD 00 3B 2A 2A 2A 2A |..!..;..!..;****| 000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F9 21 DE |************..!.| 00000200: 00 3B 2A 20 49 4E 54 45 52 52 55 50 54 56 45 4B |.;* INTERRUPTVEK| 00000210: 54 4F 52 20 4E 45 55 20 53 45 54 5A 45 4E 20 20 |TOR NEU SETZEN | 00000220: 20 2A 00 1F 22 DF 00 3B 2A 2A 2A 2A 2A 2A 2A 2A | *.."..;********| 00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000240: 2A 2A 2A 2A 2A 2A 2A 2A 00 25 22 E0 00 3B 00 2E |********.%"..;..| 00000250: 22 E6 00 20 53 45 49 00 40 22 F0 00 20 4C 44 41 |".. SEI.@".. LDA| 00000260: 23 3C 28 49 4E 54 45 52 29 00 51 22 FA 00 20 53 |#<(INTER).Q".. S| 00000270: 54 41 49 52 51 56 45 4B 4C 4F 00 63 22 04 01 20 |TAIRQVEKLO.c".. | 00000280: 4C 44 41 23 3E 28 49 4E 54 45 52 29 00 74 22 0E |LDA#>(INTER).t".| 00000290: 01 20 53 54 41 49 52 51 56 45 4B 48 49 00 7D 22 |. STAIRQVEKHI.}"| 000002A0: 18 01 20 43 4C 49 00 86 22 22 01 20 52 54 53 00 |.. CLI.."". RTS.| 000002B0: 8C 22 2C 01 3B 00 B2 22 2D 01 3B 2A 2A 2A 2A 2A |.",.;.."-.;*****| 000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D8 22 2E 01 |***********.."..| 000002E0: 3B 2A 20 20 20 20 4E 45 55 45 20 49 4E 54 45 52 |;* NEUE INTER| 000002F0: 52 55 50 54 52 4F 55 54 49 4E 45 20 20 20 20 20 |RUPTROUTINE | 00000300: 2A 00 FE 22 2F 01 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.."/.;*********| 00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000320: 2A 2A 2A 2A 2A 2A 2A 00 04 23 30 01 3B 00 1C 23 |*******..#0.;..#| 00000330: 36 01 49 4E 54 45 52 20 4C 44 41 54 41 53 54 45 |6.INTER LDATASTE| 00000340: 4E 43 4F 44 45 00 47 23 40 01 20 43 4D 50 23 31 |NCODE.G#@. CMP#1| 00000350: 38 3B 49 53 54 20 44 49 45 20 54 41 53 54 45 20 |8;IST DIE TASTE | 00000360: 3E 3E 44 3C 3C 20 47 45 44 52 55 45 43 4B 54 3F |>>D<< GEDRUECKT?| 00000370: 00 7C 23 4A 01 20 42 4E 45 49 4E 54 45 52 45 3B |.|#J. BNEINTERE;| 00000380: 57 45 4E 4E 20 4E 45 49 4E 20 44 41 4E 4E 20 5A |WENN NEIN DANN Z| 00000390: 55 4D 20 4E 4F 52 4D 41 4C 45 4E 20 49 4E 54 45 |UM NORMALEN INTE| 000003A0: 52 52 55 50 54 00 8E 23 54 01 20 4C 44 41 53 48 |RRUPT..#T. LDASH| 000003B0: 49 46 54 46 4C 41 47 00 B1 23 5E 01 20 43 4D 50 |IFTFLAG..#^. CMP| 000003C0: 23 34 3B 49 53 54 20 3E 3E 43 54 52 4C 3C 3C 20 |#4;IST >>CTRL<< | 000003D0: 47 45 44 52 55 45 43 4B 54 3F 00 E6 23 68 01 20 |GEDRUECKT?..#h. | 000003E0: 42 4E 45 49 4E 54 45 52 45 3B 57 45 4E 4E 20 4E |BNEINTERE;WENN N| 000003F0: 45 49 4E 20 44 41 4E 4E 20 5A 55 4D 20 4E 4F 52 |EIN DANN ZUM NOR| 00000400: 4D 41 4C 45 4E 20 49 4E 54 45 52 52 55 50 54 00 |MALEN INTERRUPT.| 00000410: 1C 24 72 01 20 4C 44 41 23 54 49 4D 45 52 41 55 |.$r. LDA#TIMERAU| 00000420: 53 3B 54 49 4D 45 52 20 41 55 53 53 43 48 41 4C |S;TIMER AUSSCHAL| 00000430: 54 45 4E 2F 49 4E 54 45 52 52 55 50 54 20 53 50 |TEN/INTERRUPT SP| 00000440: 45 52 52 45 4E 00 28 24 7C 01 20 53 54 41 49 43 |ERREN.($|. STAIC| 00000450: 52 00 4E 24 86 01 20 4A 53 52 44 49 52 3B 55 4E |R.N$.. JSRDIR;UN| 00000460: 44 20 5A 55 4D 20 55 4E 54 45 52 50 52 4F 47 52 |D ZUM UNTERPROGR| 00000470: 41 4D 4D 20 44 49 52 00 85 24 90 01 20 4C 44 41 |AMM DIR..$.. LDA| 00000480: 23 54 49 4D 45 52 45 49 4E 3B 54 49 4D 45 52 20 |#TIMEREIN;TIMER | 00000490: 45 49 4E 53 43 48 41 4C 54 45 4E 2F 49 4E 54 45 |EINSCHALTEN/INTE| 000004A0: 52 52 55 50 54 20 5A 55 4C 41 53 53 45 4E 00 91 |RRUPT ZULASSEN..| 000004B0: 24 9A 01 20 53 54 41 49 43 52 00 AC 24 A4 01 49 |$.. STAICR..$..I| 000004C0: 4E 54 45 52 45 20 4A 4D 50 49 4E 54 45 52 52 55 |NTERE JMPINTERRU| 000004D0: 50 54 41 4C 54 00 B2 24 AE 01 3B 00 B8 24 B8 01 |PTALT..$..;..$..| 000004E0: 3B 00 DE 24 B9 01 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |;..$..;*********| 000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000500: 2A 2A 2A 2A 2A 2A 2A 00 04 25 BA 01 3B 2A 20 20 |*******..%..;* | 00000510: 20 20 20 20 20 20 20 44 49 52 45 43 54 4F 52 59 | DIRECTORY| 00000520: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 2A 25 | *.*%| 00000530: BB 01 3B 2A 20 20 20 20 20 20 20 20 20 20 41 55 |..;* AU| 00000540: 53 47 45 42 45 4E 20 20 20 20 20 20 20 20 20 20 |SGEBEN | 00000550: 20 20 2A 00 50 25 BC 01 3B 2A 2A 2A 2A 2A 2A 2A | *.P%..;*******| 00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 56 25 BD 01 3B 00 |*********.V%..;.| 00000580: 7A 25 C2 01 44 49 52 20 4C 44 41 23 31 3B 4C 41 |z%..DIR LDA#1;LA| 00000590: 45 4E 47 45 20 44 45 53 20 46 49 4C 45 4E 41 4D |ENGE DES FILENAM| 000005A0: 45 4E 53 00 8B 25 CC 01 20 4C 44 59 23 3E 28 4E |ENS..%.. LDY#>(N| 000005B0: 41 4D 45 29 00 9C 25 D6 01 20 4C 44 58 23 3C 28 |AME)..%.. LDX#<(| 000005C0: 4E 41 4D 45 29 00 C4 25 E0 01 20 4A 53 52 53 45 |NAME)..%.. JSRSE| 000005D0: 54 4E 41 4D 3B 46 49 4C 45 4E 41 4D 45 4E 50 41 |TNAM;FILENAMENPA| 000005E0: 52 41 4D 45 54 45 52 53 45 54 5A 45 4E 00 E7 25 |RAMETERSETZEN..%| 000005F0: EA 01 20 4C 44 41 23 31 3B 4C 4F 47 49 53 43 48 |.. LDA#1;LOGISCH| 00000600: 45 20 46 49 4C 45 4E 55 4D 4D 45 52 20 3D 20 31 |E FILENUMMER = 1| 00000610: 00 05 26 F4 01 20 4C 44 58 23 38 3B 47 45 52 41 |..&.. LDX#8;GERA| 00000620: 45 54 45 41 44 52 45 53 53 45 20 3D 20 38 00 25 |ETEADRESSE = 8.%| 00000630: 26 FE 01 20 4C 44 59 23 30 3B 53 45 4B 55 4E 44 |&.. LDY#0;SEKUND| 00000640: 41 45 52 41 44 52 45 53 53 45 20 3D 20 30 00 61 |AERADRESSE = 0.a| 00000650: 26 08 02 20 4A 53 52 53 45 54 4C 46 53 3B 4C 4F |&.. JSRSETLFS;LO| 00000660: 47 49 53 43 48 45 20 46 49 4C 45 4E 55 4D 4D 45 |GISCHE FILENUMME| 00000670: 52 20 55 4E 44 20 53 45 4B 55 4E 44 41 45 52 41 |R UND SEKUNDAERA| 00000680: 44 52 2E 20 53 45 54 5A 45 4E 00 6E 26 12 02 20 |DR. SETZEN.n&.. | 00000690: 4A 53 52 4F 50 45 4E 00 8D 26 1C 02 20 4C 44 58 |JSROPEN..&.. LDX| 000006A0: 23 31 3B 4C 4F 47 49 53 43 48 45 20 46 49 4C 45 |#1;LOGISCHE FILE| 000006B0: 4E 55 4D 4D 45 52 00 B0 26 26 02 20 4A 53 52 43 |NUMMER..&&. JSRC| 000006C0: 48 4B 49 4E 3B 45 49 4E 47 41 42 45 47 45 52 41 |HKIN;EINGABEGERA| 000006D0: 45 54 20 53 45 54 5A 45 4E 00 DB 26 30 02 20 4C |ET SETZEN..&0. L| 000006E0: 44 59 23 35 3B 44 49 45 20 45 52 53 54 45 4E 20 |DY#5;DIE ERSTEN | 000006F0: 35 20 5A 45 49 43 48 45 4E 20 55 45 42 45 52 4C |5 ZEICHEN UEBERL| 00000700: 45 53 45 4E 00 F0 26 3A 02 52 4F 57 4F 55 54 20 |ESEN..&:.ROWOUT | 00000710: 53 54 59 52 45 54 54 45 4E 00 15 27 44 02 20 4A |STYRETTEN..'D. J| 00000720: 53 52 43 48 52 49 4E 3B 45 49 4E 47 41 42 45 20 |SRCHRIN;EINGABE | 00000730: 45 49 4E 45 53 20 5A 45 49 43 48 45 4E 53 00 41 |EINES ZEICHENS.A| 00000740: 27 4E 02 20 54 41 58 3B 4C 4F 2D 42 59 54 45 20 |'N. TAX;LO-BYTE | 00000750: 42 4C 4F 43 4B 41 4E 5A 41 48 4C 20 49 4E 53 20 |BLOCKANZAHL INS | 00000760: 58 2D 52 45 47 49 53 54 45 52 00 50 27 58 02 20 |X-REGISTER.P'X. | 00000770: 4C 44 59 52 45 54 54 45 4E 00 59 27 62 02 20 44 |LDYRETTEN.Y'b. D| 00000780: 45 59 00 68 27 6C 02 20 42 4E 45 52 4F 57 4F 55 |EY.h'l. BNEROWOU| 00000790: 54 00 96 27 76 02 20 4A 53 52 43 48 52 49 4E 3B |T..'v. JSRCHRIN;| 000007A0: 48 49 2D 42 59 54 45 20 42 4C 4F 43 4B 41 4E 5A |HI-BYTE BLOCKANZ| 000007B0: 41 48 4C 20 49 4E 20 44 45 4E 20 41 4B 4B 55 00 |AHL IN DEN AKKU.| 000007C0: C2 27 80 02 20 4C 44 59 53 54 41 54 55 53 3B 49 |.'.. LDYSTATUS;I| 000007D0: 53 54 20 46 49 4C 45 45 4E 44 45 20 53 43 48 4F |ST FILEENDE SCHO| 000007E0: 4E 20 45 52 52 45 49 43 48 54 3F 00 E3 27 8A 02 |N ERREICHT?..'..| 000007F0: 20 42 4E 45 45 4E 44 45 3B 57 45 4E 4E 20 4A 41 | BNEENDE;WENN JA| 00000800: 20 44 41 4E 4E 20 46 45 52 54 49 47 00 17 28 9E | DANN FERTIG..(.| 00000810: 02 20 4A 53 52 49 4E 54 4F 55 54 3B 41 4E 5A 41 |. JSRINTOUT;ANZA| 00000820: 48 4C 20 44 45 52 20 42 4C 4F 45 43 4B 45 20 41 |HL DER BLOECKE A| 00000830: 55 53 47 45 42 45 4E 20 28 58 2F 41 4B 4B 55 29 |USGEBEN (X/AKKU)| 00000840: 00 33 28 B2 02 20 4C 44 41 23 22 20 22 3B 42 4C |.3(.. LDA#" ";BL| 00000850: 41 4E 4B 20 41 55 53 47 45 42 45 4E 00 42 28 BC |ANK AUSGEBEN.B(.| 00000860: 02 20 4A 53 52 43 48 52 4F 55 54 00 6F 28 C6 02 |. JSRCHROUT.o(..| 00000870: 4E 45 58 54 43 48 52 20 4A 53 52 43 48 52 49 4E |NEXTCHR JSRCHRIN| 00000880: 3B 4E 41 45 43 48 53 54 45 53 20 5A 45 49 43 48 |;NAECHSTES ZEICH| 00000890: 45 4E 20 48 4F 4C 45 4E 00 89 28 D0 02 20 53 54 |EN HOLEN..(.. ST| 000008A0: 41 52 45 54 54 45 4E 3B 55 4E 44 20 52 45 54 54 |ARETTEN;UND RETT| 000008B0: 45 4E 00 B0 28 DA 02 20 43 4D 50 23 30 3B 49 53 |EN..(.. CMP#0;IS| 000008C0: 54 20 46 49 4C 45 45 49 4E 54 52 41 47 20 41 55 |T FILEEINTRAG AU| 000008D0: 53 47 45 47 45 42 45 4E 3F 00 DD 28 E4 02 20 42 |SGEGEBEN?..(.. B| 000008E0: 45 51 4C 41 53 54 43 48 52 3B 57 45 4E 4E 20 4A |EQLASTCHR;WENN J| 000008F0: 41 20 44 41 4E 4E 20 52 45 54 55 52 4E 20 41 55 |A DANN RETURN AU| 00000900: 53 47 45 42 45 4E 00 13 29 16 03 20 4C 44 41 52 |SGEBEN..).. LDAR| 00000910: 45 54 54 45 4E 3B 41 4E 53 4F 4E 53 54 45 4E 20 |ETTEN;ANSONSTEN | 00000920: 4D 55 53 53 20 4E 4F 43 48 20 44 41 53 20 4C 45 |MUSS NOCH DAS LE| 00000930: 54 5A 54 45 20 5A 45 49 43 48 45 4E 00 34 29 20 |TZTE ZEICHEN.4) | 00000940: 03 20 4A 53 52 43 48 52 4F 55 54 3B 41 55 53 47 |. JSRCHROUT;AUSG| 00000950: 45 47 45 42 45 4E 20 57 45 52 44 45 4E 00 44 29 |EGEBEN WERDEN.D)| 00000960: 2A 03 20 4A 4D 50 4E 45 58 54 43 48 52 00 6B 29 |*. JMPNEXTCHR.k)| 00000970: 2B 03 4C 41 53 54 43 48 52 20 4C 44 41 23 31 33 |+.LASTCHR LDA#13| 00000980: 3B 3E 3E 52 45 54 55 52 4E 3C 3C 20 41 55 53 47 |;>>RETURN<< AUSG| 00000990: 45 42 45 4E 00 7A 29 2C 03 20 4A 53 52 43 48 52 |EBEN.z),. JSRCHR| 000009A0: 4F 55 54 00 9B 29 2D 03 20 4C 44 59 23 24 33 3B |OUT..)-. LDY#$3;| 000009B0: 33 20 5A 45 49 43 48 45 4E 20 55 45 42 45 52 4C |3 ZEICHEN UEBERL| 000009C0: 45 53 45 4E 00 AA 29 2E 03 20 4A 4D 50 52 4F 57 |ESEN..).. JMPROW| 000009D0: 4F 55 54 00 D5 29 34 03 45 4E 44 45 20 4A 53 52 |OUT..)4.ENDE JSR| 000009E0: 43 4C 52 43 48 4E 3B 45 49 4E 2D 20 55 4E 44 20 |CLRCHN;EIN- UND | 000009F0: 41 55 53 47 41 42 45 4B 41 4E 41 45 4C 45 00 FE |AUSGABEKANAELE..| 00000A00: 29 3E 03 20 4C 44 41 23 31 3B 55 4E 44 20 4C 4F |)>. LDA#1;UND LO| 00000A10: 47 49 53 43 48 45 53 20 46 49 4C 45 20 53 43 48 |GISCHES FILE SCH| 00000A20: 4C 49 45 53 53 45 4E 00 0C 2A 48 03 20 4A 53 52 |LIESSEN..*H. JSR| 00000A30: 43 4C 4F 53 45 00 15 2A 52 03 20 52 54 53 00 1B |CLOSE..*R. RTS..| 00000A40: 2A 5C 03 3B 00 2B 2A 66 03 4E 41 4D 45 20 2E 54 |*\.;.+*f.NAME .T| 00000A50: 58 22 24 22 00 00 00 |X"$"... |
X......EQ IRQVEKLO = $314.. ...EQ IRQVEK
HI = $315.! ...EQ SHIFTFLAG = $28D.8 (..
EQ TIMERAUS = $80.O 2..EQ TIMEREIN = 129
.C <..EQ ICR = $DC0E.. F..EQ INTERRUPTAL
T = $EA31.. P..EQ SETNAM = $FFBD.. Z..EQ
SETLFS = $FFBA.C D..EQ OPEN = $FFC0.Y N
..EQ CHKIN = $FFC6.. X..EQ CHRIN = $FFCF
..!...EQ INTOUT = $BDCD..!...EQ CHROUT =
$FFD2.3!...EQ CLOSE = $FFC3.J!...EQ CLR
CHN = $FFCC._! ..EQ STATUS = $90.T!...EQ
RETTEN = $FB..!...EQ TASTENCODE = $C5..
!..;..!H.;..!R..BA $C000..!..;.S!..;****
****************************..!..;* INTE
RRUPTVEKTOR NEU SETZEN *.."..;********
************************.%"..;..".. SEI.
@".. LDA#<(INTER).Q".. STAIRQVEKLO.C"..
LDA#>(INTER).T".. STAIRQVEKHI.}".. CLI..
"". RTS..",.;.."-.;*********************
***********.X"..;* NEUE INTERRUPTROUT
INE *.."/.;*************************
*******..#0.;..#6.INTER LDATASTENCODE.G#
@. CMP#18;IST DIE TASTE >>D<< GEDRUECKT?
.|#J. BNEINTERE;WENN NEIN DANN ZUM NORMA
LEN INTERRUPT..#T. LDASHIFTFLAG..#^. CMP
#4;IST >>CTRL<< GEDRUECKT?..#H. BNEINTER
E;WENN NEIN DANN ZUM NORMALEN INTERRUPT.
.$R. LDA#TIMERAUS;TIMER AUSSCHALTEN/INTE
RRUPT SPERREN.($|. STAICR.N$.. JSRDIR;UN
D ZUM UNTERPROGRAMM DIR..$.. LDA#TIMEREI
N;TIMER EINSCHALTEN/INTERRUPT ZULASSEN..
$.. STAICR..$..INTERE JMPINTERRUPTALT..$
..;..$..;..$..;*************************
*******..%..;* DIRECTORY
*.*%..;* AUSGEBEN
*.P%..;*******************************
*.V%..;.Z%B.DIR LDA#1;LAENGE DES FILENAM
ENS..%L. LDY#>(NAME)..%V. LDX#<(NAME).D%
.. JSRSETNAM;FILENAMENPARAMETERSETZEN..%
.. LDA#1;LOGISCHE FILENUMMER = 1..&.. LD
X#8;GERAETEADRESSE = 8.%&.. LDY#0;SEKUND
AERADRESSE = 0.A&.. JSRSETLFS;LOGISCHE F
ILENUMMER UND SEKUNDAERADR. SETZEN.N&..
JSROPEN..&.. LDX#1;LOGISCHE FILENUMMER..
&&. JSRCHKIN;EINGABEGERAET SETZEN..&0. L
DY#5;DIE ERSTEN 5 ZEICHEN UEBERLESEN..&:
.ROWOUT STYRETTEN..'D. JSRCHRIN;EINGABE
EINES ZEICHENS.A'N. TAX;LO-BYTE BLOCKANZ
AHL INS X-REGISTER.P'X. LDYRETTEN.Y'B. D
EY.H'L. BNEROWOUT..'V. JSRCHRIN;HI-BYTE
BLOCKANZAHL IN DEN AKKU.B'.. LDYSTATUS;I
ST FILEENDE SCHON ERREICHT?..'.. BNEENDE
;WENN JA DANN FERTIG..(.. JSRINTOUT;ANZA
HL DER BLOECKE AUSGEBEN (X/AKKU).3(.. LD
A#" ";BLANK AUSGEBEN.B(.. JSRCHROUT.O(F.
NEXTCHR JSRCHRIN;NAECHSTES ZEICHEN HOLEN
..(P. STARETTEN;UND RETTEN..(Z. CMP#0;IS
T FILEEINTRAG AUSGEGEBEN?..(.. BEQLASTCH
R;WENN JA DANN RETURN AUSGEBEN..).. LDAR
ETTEN;ANSONSTEN MUSS NOCH DAS LETZTE ZEI
CHEN.4) . JSRCHROUT;AUSGEGEBEN WERDEN.D)
*. JMPNEXTCHR.K)+.LASTCHR LDA#13;>>RETUR
N<< AUSGEBEN.Z),. JSRCHROUT..)-. LDY#$3;
3 ZEICHEN UEBERLESEN..).. JMPROWOUT.U)4.
ENDE JSRCLRCHN;EIN- UND AUSGABEKANAELE..
)>. LDA#1;UND LOGISCHES FILE SCHLIESSEN.
.*H. JSRCLOSE..*R. RTS..*\.;.+*F.NAME .T
X"$"...
> CLICK IMAGE PREVIEW FOR FULL MODAL