QUOTEOFF(SRCE)..
FILE INFORMATION
FILENAME(S): QUOTEOFF(SRCE)..
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
9a3222fb552d7a21e9c1a2e2fd3e0f03c0ef2e63e58a105999f36d0d10321a87
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15829 SEITE B | QUOTEOFF(SRCE).. | PRG | C64er | 3 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0F 62 5C 62 01 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |.b\b..;*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9F |**************..| 00000050: 62 02 00 3B 20 20 20 20 20 20 20 20 20 D1 D5 CF |b..; ...| 00000060: D4 C5 CF C6 C6 3A 20 C1 42 53 43 48 41 4C 54 45 |.....: .BSCHALTE| 00000070: 4E 20 44 45 53 20 D1 55 4F 54 45 2D CD 4F 44 55 |N DES .UOTE-.ODU| 00000080: 53 20 44 55 52 43 48 20 C9 4E 54 45 52 52 55 50 |S DURCH .NTERRUP| 00000090: 54 00 D3 62 03 00 3B 20 20 20 20 20 20 20 20 20 |T..b..; | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 57 29 | (W)| 000000B0: 20 42 59 20 C3 41 52 53 54 45 4E 20 C8 41 48 4E | BY .ARSTEN .AHN| 000000C0: 20 31 39 38 38 00 20 63 04 00 3B 2A 2A 2A 2A 2A | 1988. c..;*****| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000110: 2A 2A 00 26 63 05 00 3B 00 2C 63 06 00 3B 00 32 |**.&c..;.,c..;.2| 00000120: 63 07 00 3B 00 7F 63 08 00 3B 2A 2A 2A 2A 2A 2A |c..;..c..;******| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000170: 2A 00 98 63 09 00 3B 20 20 20 CC 41 42 45 4C 20 |*..c..; .ABEL | 00000180: 44 45 46 49 4E 49 45 52 45 4E 00 E5 63 0A 00 3B |DEFINIEREN..c..;| 00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001D0: 2A 2A 2A 2A 2A 2A 2A 00 EB 63 0B 00 3B 00 F7 63 |*******..c..;..c| 000001E0: 0C 00 2E 90 24 31 42 39 35 00 08 64 0D 00 3B 2E |....$1B95..d..;.| 000001F0: 4C 49 53 54 20 31 2C 34 2C 37 00 19 64 0E 00 3B |LIST 1,4,7..d..;| 00000200: 2E 53 4B 49 50 20 31 33 30 2C 39 00 3E 64 0F 00 |.SKIP 130,9.>d..| 00000210: 3B 2E 4C 50 52 49 4E 54 20 32 37 2C 35 31 2C 31 |;.LPRINT 27,51,1| 00000220: 35 2C 32 37 2C 38 33 2C 34 38 2C 32 37 2C 31 35 |5,27,83,48,27,15| 00000230: 00 4D 64 10 00 2E 8F 43 52 3D 24 46 46 30 30 00 |.Md....CR=$FF00.| 00000240: 5E 64 11 00 2E 8F 49 49 52 51 3D 24 30 33 31 34 |^d....IIRQ=$0314| 00000250: 00 6F 64 12 00 2E 8F 51 54 53 57 3D 24 30 30 46 |.od....QTSW=$00F| 00000260: 34 00 81 64 13 00 2E 8F 49 4E 53 52 54 3D 24 30 |4..d....INSRT=$0| 00000270: 30 46 35 00 93 64 14 00 2E 8F 50 52 49 4D 4D 3D |0F5..d....PRIMM=| 00000280: 24 46 46 37 44 00 99 64 15 00 3B 00 9F 64 16 00 |$FF7D..d..;..d..| 00000290: 3B 00 A5 64 17 00 3B 00 F2 64 18 00 3B 2A 2A 2A |;..d..;..d..;***| 000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 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 2A 2A 2A 2A 2A |****************| 000002E0: 2A 2A 2A 2A 00 04 65 19 00 3B 20 20 20 C5 49 4E |****..e..; .IN| 000002F0: 53 50 52 55 4E 47 00 51 65 1A 00 3B 2A 2A 2A 2A |SPRUNG.Qe..;****| 00000300: 2A 2A 2A 2A 2A 2A 2A 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 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000340: 2A 2A 2A 00 57 65 1B 00 3B 00 7F 65 1C 00 53 54 |***.We..;..e..ST| 00000350: 41 52 54 20 81 23 24 30 30 3B 20 CB 4F 4E 46 49 |ART .#$00; .ONFI| 00000360: 47 55 52 41 54 49 4F 4E 3A 20 C9 2F CF 20 45 49 |GURATION: ./. EI| 00000370: 4E 00 89 65 1D 00 20 82 43 52 3B 00 A9 65 1E 00 |N..e.. .CR;..e..| 00000380: 20 97 50 52 49 4D 4D 3B 20 31 2E D4 45 49 4C 20 | .PRIMM; 1..EIL | 00000390: 44 45 52 20 CD 45 4C 44 55 4E 47 00 C2 65 1F 00 |DER .ELDUNG..e..| 000003A0: 20 2E 91 31 33 2C 22 51 55 4F 54 45 4F 46 46 20 | ..13,"QUOTEOFF | 000003B0: 4F 22 2C 30 00 E6 65 20 00 53 45 4C 46 4D 4F 44 |O",0..e .SELFMOD| 000003C0: 20 96 4F 4E 3B 20 45 49 4E 2F 41 55 53 20 41 4E | .ON; EIN/AUS AN| 000003D0: 53 50 52 49 4E 47 45 4E 00 EC 65 21 00 3B 00 F2 |SPRINGEN..e!.;..| 000003E0: 65 22 00 3B 00 F8 65 23 00 3B 00 45 66 24 00 3B |e".;..e#.;.Ef$.;| 000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000430: 2A 2A 2A 2A 2A 2A 2A 00 60 66 25 00 3B 20 20 20 |*******.`f%.; | 00000440: D2 4F 55 54 49 4E 45 20 41 4B 54 49 56 49 45 52 |.OUTINE AKTIVIER| 00000450: 45 4E 00 AD 66 26 00 3B 2A 2A 2A 2A 2A 2A 2A 2A |EN..f&.;********| 00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000004A0: B3 66 27 00 3B 00 DE 66 28 00 4F 4E 20 83 23 3C |.f'.;..f(.ON .#<| 000004B0: 28 4F 46 46 29 3B 20 CA 55 4D 50 20 55 4D 53 43 |(OFF); .UMP UMSC| 000004C0: 48 41 4C 54 45 4E 20 41 55 46 20 27 41 55 53 27 |HALTEN AUF 'AUS'| 000004D0: 00 ED 66 29 00 20 84 23 3E 28 4F 46 46 29 3B 00 |..f). .#>(OFF);.| 000004E0: FE 66 2A 00 20 88 53 45 4C 46 4D 4F 44 2B 31 3B |.f*. .SELFMOD+1;| 000004F0: 00 0F 67 2B 00 20 89 53 45 4C 46 4D 4F 44 2B 32 |..g+. .SELFMOD+2| 00000500: 3B 00 17 67 2C 00 20 A9 3B 00 4C 67 2D 00 20 83 |;..g,. .;.Lg-. .| 00000510: 49 49 52 51 3B 20 41 4C 54 45 4E 20 D7 45 52 54 |IIRQ; ALTEN .ERT| 00000520: 20 48 4F 4C 45 4E 20 55 4E 44 20 49 4E 20 44 49 | HOLEN UND IN DI| 00000530: 45 20 C8 41 55 50 54 52 4F 55 54 49 4E 45 00 5A |E .AUPTROUTINE.Z| 00000540: 67 2E 00 20 84 49 49 52 51 2B 31 3B 00 6A 67 2F |g.. .IIRQ+1;.jg/| 00000550: 00 20 88 4F 4C 44 4A 4D 50 2B 31 3B 00 7A 67 30 |. .OLDJMP+1;.zg0| 00000560: 00 20 89 4F 4C 44 4A 4D 50 2B 32 3B 00 A2 67 31 |. .OLDJMP+2;..g1| 00000570: 00 20 83 23 3C 28 4F 57 4E 29 3B 20 CE 45 55 45 |. .#<(OWN); .EUE| 00000580: 4E 20 D7 45 52 54 20 49 4E 20 44 45 4E 20 D6 45 |N .ERT IN DEN .E| 00000590: 4B 54 4F 52 00 B1 67 32 00 20 84 23 3E 28 4F 57 |KTOR..g2. .#>(OW| 000005A0: 4E 29 3B 00 BD 67 33 00 20 88 49 49 52 51 3B 00 |N);..g3. .IIRQ;.| 000005B0: CB 67 34 00 20 89 49 49 52 51 2B 31 3B 00 D3 67 |.g4. .IIRQ+1;..g| 000005C0: 35 00 20 A8 3B 00 F4 67 36 00 20 97 50 52 49 4D |5. .;..g6. .PRIM| 000005D0: 4D 3B 20 32 2E 20 D4 45 49 4C 20 44 45 52 20 CD |M; 2. .EIL DER .| 000005E0: 45 4C 44 55 4E 47 00 03 68 37 00 20 2E 91 22 4E |ELDUNG..h7. .."N| 000005F0: 2E 22 2C 30 3B 00 12 68 38 00 20 A4 3B 20 5A 55 |.",0;..h8. .; ZU| 00000600: 52 BD 43 4B 00 18 68 39 00 3B 00 1E 68 3A 00 3B |R.CK..h9.;..h:.;| 00000610: 00 24 68 3B 00 3B 00 71 68 3C 00 3B 2A 2A 2A 2A |.$h;.;.qh<.;****| 00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000660: 2A 2A 2A 00 8F 68 3D 00 3B 20 20 20 D2 4F 55 54 |***..h=.; .OUT| 00000670: 49 4E 45 20 44 45 53 41 4B 54 49 56 49 45 52 45 |INE DESAKTIVIERE| 00000680: 4E 00 DC 68 3E 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |N..h>.;*********| 00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E2 |**************..| 000006D0: 68 3F 00 3B 00 0D 69 40 00 4F 46 46 20 83 23 3C |h?.;..i@.OFF .#<| 000006E0: 28 4F 4E 29 3B 20 CA 55 4D 50 20 55 4D 53 43 48 |(ON); .UMP UMSCH| 000006F0: 41 4C 54 45 4E 20 41 55 46 20 27 45 49 4E 27 00 |ALTEN AUF 'EIN'.| 00000700: 1B 69 41 00 20 84 23 3E 28 4F 4E 29 3B 00 2C 69 |.iA. .#>(ON);.,i| 00000710: 42 00 20 88 53 45 4C 46 4D 4F 44 2B 31 3B 00 3D |B. .SELFMOD+1;.=| 00000720: 69 43 00 20 89 53 45 4C 46 4D 4F 44 2B 32 3B 00 |iC. .SELFMOD+2;.| 00000730: 5A 69 44 00 20 A9 3B 20 C9 4E 54 45 52 52 55 50 |ZiD. .; .NTERRUP| 00000740: 54 20 42 4C 4F 43 4B 49 45 52 45 4E 00 8A 69 45 |T BLOCKIEREN..iE| 00000750: 00 20 83 4F 4C 44 4A 4D 50 2B 31 3B 20 C1 4C 54 |. .OLDJMP+1; .LT| 00000760: 45 4E 20 D7 45 52 54 20 57 49 45 44 45 52 20 49 |EN .ERT WIEDER I| 00000770: 4E 20 44 45 4E 20 D6 45 4B 54 4F 52 00 9A 69 46 |N DEN .EKTOR..iF| 00000780: 00 20 84 4F 4C 44 4A 4D 50 2B 32 3B 00 A6 69 47 |. .OLDJMP+2;..iG| 00000790: 00 20 88 49 49 52 51 3B 00 B4 69 48 00 20 89 49 |. .IIRQ;..iH. .I| 000007A0: 49 52 51 2B 31 3B 00 D1 69 49 00 20 A8 3B 20 C9 |IRQ+1;..iI. .; .| 000007B0: 4E 54 45 52 52 55 50 54 20 57 49 45 44 45 52 20 |NTERRUPT WIEDER | 000007C0: 45 49 4E 00 F2 69 4A 00 20 97 50 52 49 4D 4D 3B |EIN..iJ. .PRIMM;| 000007D0: 20 32 2E 20 D4 45 49 4C 20 44 45 52 20 CD 45 4C | 2. .EIL DER .EL| 000007E0: 44 55 4E 47 00 02 6A 4B 00 20 2E 91 22 46 46 2E |DUNG..jK. .."FF.| 000007F0: 22 2C 30 3B 00 11 6A 4C 00 20 A4 3B 20 5A 55 52 |",0;..jL. .; ZUR| 00000800: BD 43 4B 00 17 6A 4D 00 3B 00 1D 6A 4E 00 3B 00 |.CK..jM.;..jN.;.| 00000810: 23 6A 4F 00 3B 00 70 6A 50 00 3B 2A 2A 2A 2A 2A |#jO.;.pjP.;*****| 00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000860: 2A 2A 00 99 6A 51 00 3B 20 20 20 C8 41 55 50 54 |**..jQ.; .AUPT| 00000870: 50 52 4F 47 52 41 4D 4D 3A 20 CC BC 53 43 48 45 |PROGRAMM: ..SCHE| 00000880: 4E 20 44 45 52 20 C6 4C 41 47 53 00 E6 6A 52 00 |N DER .LAGS..jR.| 00000890: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EC 6A 53 00 3B 00 07 |********..jS.;..| 000008E0: 6B 54 00 4F 57 4E 20 81 23 30 30 3B 20 C8 41 55 |kT.OWN .#00; .AU| 000008F0: 50 54 52 4F 55 54 49 4E 45 00 13 6B 55 00 20 82 |PTROUTINE..kU. .| 00000900: 51 54 53 57 3B 00 20 6B 56 00 20 82 49 4E 53 52 |QTSW;. kV. .INSR| 00000910: 54 3B 00 33 6B 57 00 4F 4C 44 4A 4D 50 20 96 24 |T;.3kW.OLDJMP .$| 00000920: 30 30 30 30 3B 00 00 00 |0000;... |
.B\B..;*********************************
**************************************..
B..; QUOTEOFF: ABSCHALTEN DES QU
OTE-MODUS DURCH INTERRUPT.SB..;
(W) BY CARSTEN HAHN 1988. C
..;*************************************
**********************************.&C..;
.,C..;.2C..;.C..;**********************
****************************************
*********..C..; LABEL DEFINIEREN..C..;
****************************************
*******************************..C..;..C
....$1B95..D..;.LIST 1,4,7..D..;.SKIP 13
0,9.>D..;.LPRINT 27,51,15,27,83,48,27,15
.MD....CR=$FF00.^D....IIRQ=$0314.OD....Q
TSW=$00F4..D....INSRT=$00F5..D....PRIMM=
$FF7D..D..;..D..;..D..;..D..;***********
****************************************
********************..E..; EINSPRUNG.Q
E..;************************************
***********************************.WE..
;.E..START .#$00; KONFIGURATION: I/O EI
N..E.. .CR;..E.. .PRIMM; 1.TEIL DER MELD
UNG.BE.. ..13,"QUOTEOFF O",0..E .SELFMOD
.ON; EIN/AUS ANSPRINGEN..E!.;..E".;..E#
.;.EF$.;********************************
***************************************.
`F%.; ROUTINE AKTIVIEREN..F&.;********
****************************************
***********************..F'.;..F(.ON .#<
(OFF); JUMP UMSCHALTEN AUF 'AUS'..F). .#
>(OFF);..F*. .SELFMOD+1;..G+. .SELFMOD+2
;..G,. .;.LG-. .IIRQ; ALTEN WERT HOLEN U
ND IN DIE HAUPTROUTINE.ZG.. .IIRQ+1;.JG/
. .OLDJMP+1;.ZG0. .OLDJMP+2;..G1. .#<(OW
N); NEUEN WERT IN DEN VEKTOR..G2. .#>(OW
N);..G3. .IIRQ;.KG4. .IIRQ+1;.SG5. .;..G
6. .PRIMM; 2. TEIL DER MELDUNG..H7. .."N
.",0;..H8. .; ZUR.CK..H9.;..H:.;.$H;.;.Q
H<.;************************************
***********************************..H=.
; ROUTINE DESAKTIVIEREN..H>.;*********
****************************************
**********************..H?.;..I@.OFF .#<
(ON); JUMP UMSCHALTEN AUF 'EIN'..IA. .#>
(ON);.,IB. .SELFMOD+1;.=IC. .SELFMOD+2;.
ZID. .; INTERRUPT BLOCKIEREN..IE. .OLDJM
P+1; ALTEN WERT WIEDER IN DEN VEKTOR..IF
. .OLDJMP+2;..IG. .IIRQ;..IH. .IIRQ+1;.Q
II. .; INTERRUPT WIEDER EIN..IJ. .PRIMM;
2. TEIL DER MELDUNG..JK. .."FF.",0;..JL
. .; ZUR.CK..JM.;..JN.;.#JO.;.PJP.;*****
****************************************
**************************..JQ.; HAUPT
PROGRAMM: L.SCHEN DER FLAGS..JR.;*******
****************************************
************************..JS.;..KT.OWN .
#00; HAUPTROUTINE..KU. .QTSW;. KV. .INSR
T;.3KW.OLDJMP .$0000;...
> CLICK IMAGE PREVIEW FOR FULL MODAL