JANUS-SWAP 7/8
FILE INFORMATION
FILENAME(S): JANUS-SWAP 7/8
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-10-20 14:30:06
APPEARS ON: 1 disk(s)
FILE HASH
d23374d46f619b28a37c24e32584ce1cc1862624fad82e6683fe7e8f951bea74
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10002 SEITE C | JANUS-SWAP 7/8 | PRG | C64er, Treasure Chest - Klaus Der Suhler | 16 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0F 62 3F 62 64 00 2E A8 22 C2 49 4C 44 53 43 48 |.b?bd...".ILDSCH|
00000010: 49 52 4D 20 45 49 4E 20 28 31 29 20 4F 44 45 52 |IRM EIN (1) ODER|
00000020: 20 41 55 53 20 28 32 29 20 20 22 2C 57 41 48 4C | AUS (2) ",WAHL|
00000030: 30 00 50 62 6E 00 2E 9F 57 41 48 4C 30 2E 45 51 |0.Pbn...WAHL0.EQ|
00000040: 2E 31 00 5B 62 78 00 20 2E A3 30 2C 33 00 68 62 |.1.[bx. ..0,3.hb|
00000050: 82 00 20 2E A4 57 2C 30 2C 33 00 6F 62 8C 00 2E |.. ..W,0,3.ob...|
00000060: 9D 00 75 62 96 00 3B 00 A2 62 A0 00 2E A8 22 C4 |..ub..;..b....".|
00000070: 52 55 43 4B 45 52 20 45 49 4E 20 28 31 29 20 4F |RUCKER EIN (1) O|
00000080: 44 45 52 20 41 55 53 20 28 32 29 20 20 22 2C 57 |DER AUS (2) ",W|
00000090: 41 48 4C 31 00 B3 62 AA 00 2E 9F 57 41 48 4C 31 |AHL1..b....WAHL1|
000000A0: 2E 45 51 2E 31 00 C0 62 B4 00 20 2E A3 31 2C 34 |.EQ.1..b.. ..1,4|
000000B0: 2C 37 00 CC 62 BE 00 20 2E CF 38 36 2C 38 00 D3 |,7..b.. ..86,8..|
000000C0: 62 C8 00 2E 9D 00 D9 62 D2 00 3B 00 06 63 DC 00 |b......b..;..c..|
000000D0: 2E A8 22 D3 59 4D 42 4F 4C 53 20 45 49 4E 20 28 |..".YMBOLS EIN (|
000000E0: 31 29 20 4F 44 45 52 20 41 55 53 20 28 32 29 20 |1) ODER AUS (2) |
000000F0: 20 22 2C 57 41 48 4C 33 00 17 63 E6 00 2E 9F 57 | ",WAHL3..c....W|
00000100: 41 48 4C 33 2E 45 51 2E 31 00 23 63 F0 00 20 2E |AHL3.EQ.1.#c.. .|
00000110: CF 38 36 2C 38 00 32 63 FA 00 20 2E A4 57 2C 32 |.86,8.2c.. ..W,2|
00000120: 2C 34 2C 37 00 39 63 04 01 2E 9D 00 3F 63 0E 01 |,4,7.9c.....?c..|
00000130: 3B 00 45 63 18 01 3B 00 4B 63 22 01 3B 00 98 63 |;.Ec..;.Kc".;..c|
00000140: 2C 01 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |,.;+++++++++++++|
00000150: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00000160: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00000170: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00000180: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 9E 63 36 01 3B |++++++++++..c6.;|
00000190: 00 A4 63 40 01 3B 00 DB 63 4A 01 2E A8 22 D1 55 |..c@.;..cJ...".U|
000001A0: 45 4C 4C 54 45 58 54 20 41 55 46 20 C4 49 53 4B |ELLTEXT AUF .ISK|
000001B0: 20 28 31 29 20 4F 44 45 52 20 D3 59 4E 54 41 58 | (1) ODER .YNTAX|
000001C0: 20 28 32 29 20 20 22 2C 57 41 48 4C 32 00 EC 63 | (2) ",WAHL2..c|
000001D0: 54 01 2E 9F 57 41 48 4C 32 2E 45 51 2E 31 00 F8 |T...WAHL2.EQ.1..|
000001E0: 63 5E 01 20 2E 90 24 43 30 30 00 12 64 68 01 20 |c^. ..$C00..dh. |
000001F0: 2E 93 22 4A 41 4E 55 53 2D 44 52 4F 50 20 35 4D |.."JANUS-DROP 5M|
00000200: 37 2F 38 22 00 19 64 72 01 2E 9E 00 25 64 7C 01 |7/8"..dr....%d|.|
00000210: 20 2E 90 24 43 30 30 00 34 64 86 01 20 2E A9 31 | ..$C00.4d.. ..1|
00000220: 2C 24 32 30 30 30 00 3B 64 90 01 2E 9D 00 85 64 |,$2000.;d......d|
00000230: 9A 01 3B 20 20 20 CA 41 4E 55 53 2D 4F 4B 20 20 |..; .ANUS-OK |
00000240: 20 20 CF 4C 41 46 20 CB 55 42 49 54 5A 2C 20 C2 | .LAF .UBITZ, .|
00000250: 45 52 4C 49 4E 20 31 39 38 39 3B 20 20 20 20 20 |ERLIN 1989; |
00000260: 41 4C 4C 45 20 D2 45 43 48 54 45 20 56 4F 52 42 |ALLE .ECHTE VORB|
00000270: 45 48 41 4C 54 45 4E 00 8B 64 A4 01 3B 00 CE 64 |EHALTEN..d..;..d|
00000280: AE 01 3B 20 20 20 20 20 20 20 2A 2A 2A 2A 20 D6 |..; **** .|
00000290: 45 52 53 49 4F 4E 20 56 4F 4D 20 31 30 2E 30 38 |ERSION VOM 10.08|
000002A0: 2E 31 39 38 39 20 28 C4 4F 4E 4E 45 52 53 54 41 |.1989 (.ONNERSTA|
000002B0: 47 29 20 2A 2A 2A 20 28 31 38 2E 35 35 20 48 29 |G) *** (18.55 H)|
000002C0: 00 1B 65 B8 01 3B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |..e..;++++++++++|
000002D0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
000002E0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
000002F0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00000300: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 41 65 |+++++++++++++.Ae|
00000310: C2 01 3B 20 20 20 20 20 20 20 20 44 53 41 56 45 |..; DSAVE|
00000320: 20 22 4A 41 4E 55 53 2D 44 52 4F 50 20 35 4D 37 | "JANUS-DROP 5M7|
00000330: 2F 38 22 00 59 65 CC 01 2E A2 22 4A 41 4E 55 53 |/8".Ye...."JANUS|
00000340: 2D 4C 41 42 45 4C 53 20 37 31 22 00 5F 65 D6 01 |-LABELS 71"._e..|
00000350: 3B 00 65 65 E0 01 3B 00 AD 65 EA 01 3B 2A 2A 2A |;.ee..;..e..;***|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000003A0: F5 65 F4 01 3B 2A 20 20 20 20 20 20 20 20 20 20 |.e..;* |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 2A 00 3D 66 FE 01 3B 2A 20 20 | *.=f..;* |
000003F0: 20 20 20 20 C4 49 45 53 45 53 20 D0 52 4F 47 52 | .IESES .ROGR|
00000400: 41 4D 4D 20 BB 4E 44 45 52 54 20 44 49 45 20 D0 |AMM .NDERT DIE .|
00000410: 41 52 41 4D 45 54 45 52 20 46 BD 52 20 44 49 45 |ARAMETER F.R DIE|
00000420: 20 C6 4C 4F 50 50 59 53 20 20 20 20 20 20 2A 00 | .LOPPYS *.|
00000430: 85 66 08 02 3B 2A 20 20 20 20 20 20 20 20 20 20 |.f..;* |
00000440: 20 20 20 20 20 20 20 20 20 49 4D 20 C8 41 55 50 | IM .AUP|
00000450: 54 50 52 4F 47 52 41 4D 4D 20 CA 41 4E 55 53 20 |TPROGRAMM .ANUS |
00000460: 56 32 2E 30 20 20 20 20 20 20 20 20 20 20 20 20 |V2.0 |
00000470: 20 20 20 20 20 20 2A 00 CD 66 12 02 3B 2A 20 20 | *..f..;* |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000004C0: 15 67 1C 02 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.g..;***********|
000004D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004E0: 2A 2A 2A 2A 2A 2A 2A 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 1B 67 26 02 3B 00 21 67 |*******..g&.;.!g|
00000510: 30 02 3B 00 27 67 3A 02 3B 00 51 67 44 02 2E 8F |0.;.'g:.;.QgD...|
00000520: 46 4C 4F 50 50 59 3D 24 35 46 45 38 3B 20 20 20 |FLOPPY=$5FE8; |
00000530: C1 4E 46 41 4E 47 20 C6 4C 4F 50 50 59 50 55 46 |.NFANG .LOPPYPUF|
00000540: 46 45 52 00 8D 67 4E 02 2E 8F 53 45 4E 44 5F 4C |FER..gN...SEND_L|
00000550: 4F 3D 24 35 45 34 43 2B 31 3B 20 D4 45 53 54 44 |O=$5E4C+1; .ESTD|
00000560: 20 2F 20 D3 54 41 54 47 45 54 20 3A 20 4C 4F 2D | / .TATGET : LO-|
00000570: C2 59 54 45 20 46 BD 52 20 C6 4C 4F 50 50 59 00 |.YTE F.R .LOPPY.|
00000580: D1 67 58 02 2E 8F 44 49 52 50 4E 54 52 5F 48 49 |.gX...DIRPNTR_HI|
00000590: 3D 24 35 43 31 44 2B 31 3B 20 C4 49 52 42 55 46 |=$5C1D+1; .IRBUF|
000005A0: 20 C8 49 2D C2 59 54 45 20 46 BD 52 20 56 45 52 | .I-.YTE F.R VER|
000005B0: 53 43 48 49 45 44 45 4E 45 20 C6 41 54 4C BB 4E |SCHIEDENE .ATL.N|
000005C0: 47 45 4E 00 D7 67 62 02 3B 00 DD 67 6C 02 3B 00 |GEN..gb.;..gl.;.|
000005D0: E3 67 76 02 3B 00 18 68 80 02 3B 44 52 4F 50 20 |.gv.;..h..;DROP |
000005E0: 20 20 20 20 20 20 4C 44 59 20 23 32 30 20 20 20 | LDY #20 |
000005F0: 20 20 20 20 20 3B 20 C1 4E 5A 41 48 4C 20 D0 41 | ; .NZAHL .A|
00000600: 52 41 4D 45 54 45 52 20 2D 31 00 61 68 8A 02 3B |RAMETER -1.ah..;|
00000610: 20 C1 55 53 20 D3 50 45 49 43 48 45 52 50 4C 41 | .US .PEICHERPLA|
00000620: 54 5A 47 52 BD 4E 44 45 4E 20 28 45 53 20 57 41 |TZGR.NDEN (ES WA|
00000630: 52 45 4E 20 32 20 C2 59 54 45 53 20 5A 55 20 56 |REN 2 .YTES ZU V|
00000640: 49 45 4C 21 29 2C 20 4D 55 BE 20 4D 41 4E 20 42 |IEL!), MU. MAN B|
00000650: 45 49 4D 00 AB 68 94 02 3B 20 C1 55 46 52 55 46 |EIM..h..; .UFRUF|
00000660: 20 44 45 52 20 D2 4F 55 54 49 4E 45 20 44 41 53 | DER .OUTINE DAS|
00000670: 20 59 2D D2 45 47 49 53 54 45 52 20 4D 49 54 20 | Y-.EGISTER MIT |
00000680: 2B 32 30 2F 24 31 34 20 4C 41 44 45 4E 2C 20 44 |+20/$14 LADEN, D|
00000690: 41 20 45 53 20 53 4F 4E 53 54 20 5A 55 00 CD 68 |A ES SONST ZU..h|
000006A0: 9E 02 3B 20 46 41 4C 53 43 48 45 4E 20 C5 52 47 |..; FALSCHEN .RG|
000006B0: 45 42 4E 49 53 53 45 4E 20 4B 4F 4D 4D 54 2E 00 |EBNISSEN KOMMT..|
000006C0: D3 68 A8 02 3B 00 D9 68 B2 02 3B 00 11 69 BC 02 |.h..;..h..;..i..|
000006D0: 4C 4F 4F 50 31 20 81 46 4C 4F 50 50 59 2C 59 3B |LOOP1 .FLOPPY,Y;|
000006E0: 20 41 55 46 20 D0 55 46 46 45 52 20 4D 49 54 20 | AUF .UFFER MIT |
000006F0: D0 41 52 41 4D 45 54 45 52 4E 20 49 4E 20 CA 41 |.ARAMETERN IN .A|
00000700: 4E 55 53 00 57 69 C6 02 20 95 42 55 46 31 2C 59 |NUS.Wi.. .BUF1,Y|
00000710: 3B 20 4D 49 54 20 D0 55 46 46 45 52 44 41 54 45 |; MIT .UFFERDATE|
00000720: 4E 20 53 57 41 50 50 45 4E 20 55 4E 44 20 44 49 |N SWAPPEN UND DI|
00000730: 45 20 41 4E 44 45 52 45 4E 20 D7 45 52 54 45 20 |E ANDEREN .ERTE |
00000740: 45 52 52 45 43 48 4E 45 4E 00 81 69 D0 02 20 82 |ERRECHNEN..i.. .|
00000750: 46 4C 4F 50 50 59 2C 59 3B 20 D0 41 52 41 4D 45 |FLOPPY,Y; .ARAME|
00000760: 54 45 52 20 5A 55 52 BD 43 4B 53 50 45 49 43 48 |TER ZUR.CKSPEICH|
00000770: 45 52 4E 00 90 69 DA 02 20 A3 3B 20 DA BB 48 4C |ERN..i.. .; ..HL|
00000780: 45 52 00 BC 69 E4 02 20 B1 4C 4F 4F 50 31 3B 20 |ER..i.. .LOOP1; |
00000790: 57 45 4E 4E 20 4E 4F 43 48 20 4E 49 43 48 54 20 |WENN NOCH NICHT |
000007A0: 41 4C 4C 45 20 47 45 57 41 4E 44 45 4C 54 00 C2 |ALLE GEWANDELT..|
000007B0: 69 EE 02 3B 00 0F 6A F8 02 3B 20 C6 BD 52 20 44 |i..;..j..; ..R D|
000007C0: 49 45 20 DA 41 48 4C 45 4E 20 4D 55 BE 20 4D 41 |IE .AHLEN MU. MA|
000007D0: 4E 20 44 49 45 20 D7 45 52 54 45 20 41 55 53 20 |N DIE .ERTE AUS |
000007E0: 44 45 4D 20 CA 41 4E 55 53 2D C8 41 55 50 54 50 |DEM .ANUS-.AUPTP|
000007F0: 52 4F 47 52 41 4D 4D 20 45 49 4E 54 52 41 47 45 |ROGRAMM EINTRAGE|
00000800: 4E 00 15 6A 02 03 3B 00 44 6A 0C 03 20 81 53 45 |N..j..;.Dj.. .SE|
00000810: 4E 44 5F 4C 4F 3B 20 CC 4F 2D C2 59 54 45 20 56 |ND_LO; .O-.YTE V|
00000820: 4F 4E 20 54 45 53 54 44 2F 53 54 41 54 47 45 54 |ON TESTD/STATGET|
00000830: 20 4C 41 44 45 4E 00 65 6A 16 03 20 95 23 28 24 | LADEN.ej.. .#($|
00000840: 37 33 2E 58 4F 52 2E 24 36 35 29 3B 20 55 4D 4B |73.XOR.$65); UMK|
00000850: 4F 44 49 45 52 45 4E 00 84 6A 20 03 20 82 53 45 |ODIEREN..j . .SE|
00000860: 4E 44 5F 4C 4F 3B 20 5A 55 52 BD 43 4B 53 50 45 |ND_LO; ZUR.CKSPE|
00000870: 49 43 48 45 52 4E 00 8A 6A 2A 03 3B 00 BA 6A 34 |ICHERN..j*.;..j4|
00000880: 03 20 81 44 49 52 50 4E 54 52 5F 48 49 3B 20 CD |. .DIRPNTR_HI; .|
00000890: 49 54 20 C8 49 28 C2 45 47 49 4E 4E 20 44 45 53 |IT .I(.EGINN DES|
000008A0: 20 C4 49 52 50 55 46 46 45 52 53 29 00 DB 6A 3E | .IRPUFFERS)..j>|
000008B0: 03 20 95 23 28 24 36 38 2E 58 4F 52 2E 24 36 43 |. .#($68.XOR.$6C|
000008C0: 29 3B 20 55 4D 4B 4F 44 49 45 52 45 4E 00 01 6B |); UMKODIEREN..k|
000008D0: 48 03 20 82 44 49 52 50 4E 54 52 5F 48 49 3B 20 |H. .DIRPNTR_HI; |
000008E0: 55 4E 44 20 5A 55 52 BD 43 4B 53 50 45 49 43 48 |UND ZUR.CKSPEICH|
000008F0: 45 52 4E 00 07 6B 52 03 3B 00 0E 6B 5C 03 20 A4 |ERN..kR.;..k\. .|
00000900: 00 14 6B 66 03 3B 00 1A 6B 70 03 3B 00 20 6B 7A |..kf.;..kp.;. kz|
00000910: 03 3B 00 26 6B 84 03 3B 00 2F 6B 8E 03 42 55 46 |.;.&k..;./k..BUF|
00000920: 31 00 35 6B 98 03 3B 00 61 6B A2 03 2E 91 28 24 |1.5k..;.ak....($|
00000930: 46 44 2E 58 4F 52 2E 24 46 39 29 3B 20 C6 4C 41 |FD.XOR.$F9); .LA|
00000940: 47 20 46 BD 52 20 41 4B 54 49 56 45 20 C6 4C 4F |G F.R AKTIVE .LO|
00000950: 50 50 59 00 7B 6B AC 03 2E 91 28 34 30 2E 58 4F |PPY.{k....(40.XO|
00000960: 52 2E 38 30 29 3B 20 D3 50 55 52 45 4E 00 9F 6B |R.80); .PUREN..k|
00000970: B6 03 2E 92 28 33 35 36 2E 58 4F 52 2E 37 31 35 |....(356.XOR.715|
00000980: 29 3B 20 C1 4E 5A 41 48 4C 20 C3 4C 55 53 54 45 |); .NZAHL .LUSTE|
00000990: 52 00 A5 6B C0 03 3B 00 CA 6B CA 03 2E 91 28 24 |R..k..;..k....($|
000009A0: 30 2E 58 4F 52 2E 24 31 30 29 3B 20 C3 4F 44 45 |0.XOR.$10); .ODE|
000009B0: 20 46 BD 52 20 D3 45 49 54 45 20 C1 00 EF 6B D4 | F.R .EITE ...k.|
000009C0: 03 2E 91 28 24 31 30 2E 58 4F 52 2E 24 30 29 3B |...($10.XOR.$0);|
000009D0: 20 C3 4F 44 45 20 46 BD 52 20 D3 45 49 54 45 20 | .ODE F.R .EITE |
000009E0: C2 00 F5 6B DE 03 3B 00 2B 6C E8 03 2E 91 28 24 |...k..;.+l....($|
000009F0: 35 2E 58 4F 52 2E 24 34 29 3B 20 D3 50 55 52 53 |5.XOR.$4); .PURS|
00000A00: 54 41 52 54 20 28 53 4E 20 56 4F 4E 20 D3 50 55 |TART (SN VON .PU|
00000A10: 52 20 31 20 D3 45 4B 54 4F 52 20 31 29 00 58 6C |R 1 .EKTOR 1).Xl|
00000A20: F2 03 2E 91 28 24 30 41 2E 58 4F 52 2E 24 30 43 |....($0A.XOR.$0C|
00000A30: 29 3B 20 D3 50 55 52 4F 46 46 53 45 54 20 28 46 |); .PUROFFSET (F|
00000A40: BD 52 20 53 4E 43 41 4C 43 29 00 91 6C FC 03 2E |.R SNCALC)..l...|
00000A50: 91 28 24 34 2E 58 4F 52 2E 24 33 29 3B 20 D3 50 |.($4.XOR.$3); .P|
00000A60: 55 52 53 4F 4C 4C 20 28 46 BD 52 20 53 4E 43 41 |URSOLL (F.R SNCA|
00000A70: 4C 43 20 2D 3E 20 D3 50 55 52 53 54 41 52 54 20 |LC -> .PURSTART |
00000A80: 2D 31 29 00 97 6C 06 04 3B 00 C8 6C 10 04 2E 91 |-1)..l..;..l....|
00000A90: 28 24 34 2E 58 4F 52 2E 24 36 29 3B 20 46 41 54 |($4.XOR.$6); FAT|
00000AA0: 50 41 47 45 53 3A 20 C1 4E 5A 41 48 4C 20 44 45 |PAGES: .NZAHL DE|
00000AB0: 52 20 C6 41 54 50 41 47 45 53 00 F9 6C 1A 04 2E |R .ATPAGES..l...|
00000AC0: 91 28 24 32 2E 58 4F 52 2E 24 34 29 3B 20 44 49 |.($2.XOR.$4); DI|
00000AD0: 52 50 41 47 45 53 3A 20 C1 4E 5A 41 48 4C 20 44 |RPAGES: .NZAHL D|
00000AE0: 45 52 20 C4 49 52 50 41 47 45 53 00 FF 6C 24 04 |ER .IRPAGES..l$.|
00000AF0: 3B 00 3C 6D 2E 04 3B 20 C9 4E 46 4F 52 4D 41 54 |;.<m..; .NFORMAT|
00000B00: 49 4F 4E 45 4E 20 46 BD 52 20 44 45 4E 20 C1 55 |IONEN F.R DEN .U|
00000B10: 46 42 41 55 20 44 45 53 20 C9 4E 48 41 4C 54 53 |FBAU DES .NHALTS|
00000B20: 56 45 52 5A 45 49 43 48 4E 49 53 53 45 53 00 42 |VERZEICHNISSES.B|
00000B30: 6D 38 04 3B 00 83 6D 42 04 3B 20 20 20 20 20 20 |m8.;..mB.; |
00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B50: 44 49 52 49 4E 46 4F 5F 53 49 20 3A 20 C9 4E 46 |DIRINFO_SI : .NF|
00000B60: 4F 20 BD 42 45 52 20 D3 45 49 54 45 20 50 52 4F |O .BER .EITE PRO|
00000B70: 20 D4 45 49 4C 00 97 6D 4C 04 2E 91 28 24 30 30 | .EIL..mL...($00|
00000B80: 2E 58 4F 52 2E 24 31 30 29 00 AB 6D 56 04 2E 91 |.XOR.$10)..mV...|
00000B90: 28 24 31 30 2E 58 4F 52 2E 24 30 30 29 00 BF 6D |($10.XOR.$00)..m|
00000BA0: 60 04 2E 91 28 24 30 30 2E 58 4F 52 2E 24 30 30 |`...($00.XOR.$00|
00000BB0: 29 00 D3 6D 6A 04 2E 91 28 24 30 30 2E 58 4F 52 |)..mj...($00.XOR|
00000BC0: 2E 24 30 30 29 00 19 6E 74 04 3B 20 20 20 20 20 |.$00)..nt.; |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BE0: 20 44 49 52 49 4E 46 4F 5F 42 45 20 3A 20 C9 4E | DIRINFO_BE : .N|
00000BF0: 46 4F 20 BD 42 45 52 20 31 2E 20 D3 45 4B 54 4F |FO .BER 1. .EKTO|
00000C00: 52 20 44 45 53 20 D4 45 49 4C 53 00 2B 6E 7E 04 |R DES .EILS.+n~.|
00000C10: 2E 91 28 24 36 2E 58 4F 52 2E 24 38 29 00 3D 6E |..($6.XOR.$8).=n|
00000C20: 88 04 2E 91 28 24 31 2E 58 4F 52 2E 24 31 29 00 |....($1.XOR.$1).|
00000C30: 4F 6E 92 04 2E 91 28 24 30 2E 58 4F 52 2E 24 33 |On....($0.XOR.$3|
00000C40: 29 00 61 6E 9C 04 2E 91 28 24 30 2E 58 4F 52 2E |).an....($0.XOR.|
00000C50: 24 35 29 00 B0 6E A6 04 3B 20 20 20 20 20 20 20 |$5)..n..; |
00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 | D|
00000C70: 49 52 49 4E 46 4F 5F 41 4E 20 3A 20 C9 4E 46 4F |IRINFO_AN : .NFO|
00000C80: 20 BD 42 45 52 20 C1 4E 5A 41 48 4C 20 44 45 52 | .BER .NZAHL DER|
00000C90: 20 D3 45 4B 54 4F 52 45 4E 20 50 52 4F 20 D4 45 | .EKTOREN PRO .E|
00000CA0: 49 4C 00 C2 6E B0 04 2E 91 28 24 34 2E 58 4F 52 |IL..n....($4.XOR|
00000CB0: 2E 24 32 29 00 D4 6E BA 04 2E 91 28 24 33 2E 58 |.$2)..n....($3.X|
00000CC0: 4F 52 2E 24 32 29 00 1E 6F C4 04 3B 2E 42 59 54 |OR.$2)..o..;.BYT|
00000CD0: 45 20 28 24 30 2E 58 4F 52 2E 24 32 29 20 20 20 |E ($0.XOR.$2) |
00000CE0: 20 20 46 BD 52 20 44 49 45 53 45 20 32 20 DA 45 | F.R DIESE 2 .E|
00000CF0: 49 4C 45 4E 20 49 53 54 20 4B 45 49 4E 20 53 57 |ILEN IST KEIN SW|
00000D00: 41 50 20 4E BC 54 49 47 2C 20 44 41 20 53 49 45 |AP N.TIG, DA SIE|
00000D10: 00 6B 6F CE 04 3B 2E 42 59 54 45 20 28 24 30 2E |.ko..;.BYTE ($0.|
00000D20: 58 4F 52 2E 24 31 29 20 20 20 20 20 56 4F 4E 20 |XOR.$1) VON |
00000D30: 44 45 52 20 31 35 37 31 20 4E 49 43 48 54 20 42 |DER 1571 NICHT B|
00000D40: 45 4E BC 54 49 47 54 20 57 45 52 44 45 4E 2E 20 |EN.TIGT WERDEN. |
00000D50: C1 55 53 20 D3 50 45 49 43 48 45 52 2D 00 B5 6F |.US .PEICHER-..o|
00000D60: D8 04 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; |
00000D70: 20 20 20 20 20 20 20 20 20 50 4C 41 54 5A 47 52 | PLATZGR|
00000D80: BD 4E 44 45 4E 20 55 4E 54 45 52 42 4C 45 49 42 |.NDEN UNTERBLEIB|
00000D90: 54 20 48 49 45 52 20 44 49 45 20 BD 42 45 52 46 |T HIER DIE .BERF|
00000DA0: 4C BD 53 53 49 47 45 00 FE 6F E2 04 3B 20 20 20 |L.SSIGE..o..; |
00000DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DC0: 20 20 20 CB 4F 4E 56 45 52 54 49 45 52 55 4E 47 | .ONVERTIERUNG|
00000DD0: 2E 20 C4 55 52 43 48 20 C5 4E 54 46 45 52 4E 45 |. .URCH .NTFERNE|
00000DE0: 4E 20 44 45 52 20 CB 4F 4D 4D 45 4E 54 41 52 45 |N DER .OMMENTARE|
00000DF0: 00 48 70 EC 04 3B 20 20 20 20 20 20 20 20 20 20 |.Hp..; |
00000E00: 20 20 20 20 20 20 20 20 20 20 20 20 4B 41 4E 4E | KANN|
00000E10: 20 44 49 45 20 D2 4F 55 54 49 4E 45 20 41 42 45 | DIE .OUTINE ABE|
00000E20: 52 20 C9 48 52 45 4E 20 C2 45 44 BD 52 46 4E 49 |R .HREN .ED.RFNI|
00000E30: 53 53 45 4E 20 41 4E 47 45 2D 00 71 70 F6 04 3B |SSEN ANGE-.qp..;|
00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E50: 20 20 20 20 20 20 50 41 53 53 54 20 57 45 52 44 | PASST WERD|
00000E60: 45 4E 2E 00 00 00 |EN.... |
.B?BD..."BILDSCHIRM EIN (1) ODER AUS (2)
",WAHL0.PBN...WAHL0.EQ.1.[BX. ..0,3.HB
.. ..W,0,3.OB.....UB..;..B ..."DRUCKER E
IN (1) ODER AUS (2) ",WAHL1..B....WAHL1
.EQ.1..B.. ..1,4,7.LB.. .O86,8.SBH....YB
R.;..C...."SYMBOLS EIN (1) ODER AUS (2)
",WAHL3..C....WAHL3.EQ.1.#C.. .O86,8.2C
.. ..W,2,4,7.9C.....?C..;.EC..;.KC".;..C
,.;+++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++..C6.;
..C@.;..CJ..."QUELLTEXT AUF DISK (1) ODE
R SYNTAX (2) ",WAHL2..CT...WAHL2.EQ.1..
C^. ..$C00..DH. .."JANUS-DROP 5M7/8"..DR
....%D|. ..$C00.4D.. ..1,$2000.;D......D
..; JANUS-OK OLAF KUBITZ, BERLIN 19
89; ALLE RECHTE VORBEHALTEN..D..;.ND
..; **** VERSION VOM 10.08.1989 (D
ONNERSTAG) *** (18.55 H)..E..;++++++++++
++++++++++++++++++++++++++++++++++++++++
+++++++++++++++++++++.AEB.; DSAVE
"JANUS-DROP 5M7/8".YEL..."JANUS-LABELS
71"._EV.;.EE..;..E..;*******************
****************************************
*******..E..;*
*.
=F..;* DIESES PROGRAMM .NDERT DIE P
ARAMETER F.R DIE FLOPPYS *..F..;*
IM HAUPTPROGRAMM JANUS
V2.0 *.MF..;*
*..G..;*******************
****************************************
*******..G&.;.!G0.;.'G:.;.QGD...FLOPPY=$
5FE8; ANFANG FLOPPYPUFFER..GN...SEND_L
O=$5E4C+1; TESTD / STATGET : LO-BYTE F.R
FLOPPY.QGX...DIRPNTR_HI=$5C1D+1; DIRBUF
HI-BYTE F.R VERSCHIEDENE FATL.NGEN.WGB.
;..GL.;..GV.;..H..;DROP LDY #20
; ANZAHL PARAMETER -1.AH..; AUS SPE
ICHERPLATZGR.NDEN (ES WAREN 2 BYTES ZU V
IEL!), MU. MAN BEIM..H..; AUFRUF DER ROU
TINE DAS Y-REGISTER MIT +20/$14 LADEN, D
A ES SONST ZU.MH..; FALSCHEN ERGEBNISSEN
KOMMT..SH..;.YH..;..I..LOOP1 .FLOPPY,Y;
AUF PUFFER MIT PARAMETERN IN JANUS.WIF.
.BUF1,Y; MIT PUFFERDATEN SWAPPEN UND DI
E ANDEREN WERTE ERRECHNEN..IP. .FLOPPY,Y
; PARAMETER ZUR.CKSPEICHERN..IZ. .; Z.HL
ER..I.. .LOOP1; WENN NOCH NICHT ALLE GEW
ANDELT.BI..;..J..; F.R DIE ZAHLEN MU. MA
N DIE WERTE AUS DEM JANUS-HAUPTPROGRAMM
EINTRAGEN..J..;.DJ.. .SEND_LO; LO-BYTE V
ON TESTD/STATGET LADEN.EJ.. .#($73.XOR.$
65); UMKODIEREN..J . .SEND_LO; ZUR.CKSPE
ICHERN..J*.;..J4. .DIRPNTR_HI; MIT HI(BE
GINN DES DIRPUFFERS)..J>. .#($68.XOR.$6C
); UMKODIEREN..KH. .DIRPNTR_HI; UND ZUR.
CKSPEICHERN..KR.;..K\. ...KF.;..KP.;. KZ
.;.&K..;./K..BUF1.5K..;.AK....($FD.XOR.$
F9); FLAG F.R AKTIVE FLOPPY.{K....(40.XO
R.80); SPUREN..K....(356.XOR.715); ANZAH
L CLUSTER..K..;.JKJ...($0.XOR.$10); CODE
F.R SEITE A..KT...($10.XOR.$0); CODE F.
R SEITE B..K..;.+L....($5.XOR.$4); SPURS
TART (SN VON SPUR 1 SEKTOR 1).XL....($0A
.XOR.$0C); SPUROFFSET (F.R SNCALC)..L...
.($4.XOR.$3); SPURSOLL (F.R SNCALC -> SP
URSTART -1)..L..;.HL....($4.XOR.$6); FAT
PAGES: ANZAHL DER FATPAGES..L....($2.XOR
.$4); DIRPAGES: ANZAHL DER DIRPAGES..L$.
;.<M..; INFORMATIONEN F.R DEN AUFBAU DES
INHALTSVERZEICHNISSES.BM8.;..MB.;
DIRINFO_SI : INFO .BER S
EITE PRO TEIL..ML...($00.XOR.$10)..MV...
($10.XOR.$00)..M`...($00.XOR.$00).SMJ...
($00.XOR.$00)..NT.;
DIRINFO_BE : INFO .BER 1. SEKTOR DES TE
ILS.+N~...($6.XOR.$8).=N....($1.XOR.$1).
ON....($0.XOR.$3).AN....($0.XOR.$5)..N..
; DIRINFO_AN : INFO
.BER ANZAHL DER SEKTOREN PRO TEIL.BN...
.($4.XOR.$2).TN....($3.XOR.$2)..OD.;.BYT
E ($0.XOR.$2) F.R DIESE 2 ZEILEN IST
KEIN SWAP N.TIG, DA SIE.KON.;.BYTE ($0.
XOR.$1) VON DER 1571 NICHT BEN.TIGT
WERDEN. AUS SPEICHER-..OX.;
PLATZGR.NDEN UNTERBLEIBT HIER D
IE .BERFL.SSIGE..O..;
KONVERTIERUNG. DURCH ENTFERNEN DER KO
MMENTARE.HP..; KANN
DIE ROUTINE ABER IHREN BED.RFNISSEN ANG
E-.QP..; PASST WERD
EN....
> CLICK IMAGE PREVIEW FOR FULL MODAL