SCRNMANAGER.SRC
FILE INFORMATION
FILENAME(S): SCRNMANAGER.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 01:12:51
APPEARS ON: 3 disk(s)
FILE HASH
b67c6437d17b7ca78ab3ca947fc5a3e7940eee0b839449e4d7812f9e98ea3b86
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER SONDERH 71 | SCRNMANAGER.SRC | PRG | C64er | 19 | 15 | DOWNLOAD FILE |
| 10807 SEITE A | SCRNMANAGER.SRC | PRG | C64er, DuncanTwain | 1 | 6 | DOWNLOAD FILE |
| 15943 | SCRNMANAGER.SRC | PRG | C64er | 16 | 20 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0A 22 2A 22 14 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |."*"..;*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 00 4A 22 1E 00 3B 2A 2A 2A 20 2D 20 53 43 52 |*.J"..;*** - SCR| 00000030: 45 45 4E 4D 41 4E 41 47 45 52 20 2D 20 20 2A 2A |EENMANAGER - **| 00000040: 2A 00 6A 22 28 00 3B 2A 2A 2A 20 39 2E 2B 31 33 |*.j"(.;*** 9.+13| 00000050: 2E 31 31 2E 38 37 20 42 59 20 20 20 20 20 2A 2A |.11.87 BY **| 00000060: 2A 00 8A 22 29 00 3B 2A 2A 2A 20 4B 2E 4B 41 45 |*..").;*** K.KAE| 00000070: 48 4C 45 52 20 20 20 20 20 20 20 20 20 20 2A 2A |HLER **| 00000080: 2A 00 AA 22 2A 00 3B 2A 2A 2A 20 53 4B 41 4C 49 |*.."*.;*** SKALI| 00000090: 54 5A 45 52 20 53 54 52 2E 31 33 34 41 20 2A 2A |TZER STR.134A **| 000000A0: 2A 00 CA 22 2B 00 3B 2A 2A 2A 20 31 30 30 30 20 |*.."+.;*** 1000 | 000000B0: 42 45 52 4C 49 4E 20 33 36 20 20 20 20 20 2A 2A |BERLIN 36 **| 000000C0: 2A 00 EA 22 32 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.."2.;*********| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 00 F0 22 3C 00 3B 00 FE 22 46 00 2E 42 41 20 |*.."<.;.."F..BA | 000000F0: 24 43 30 30 30 00 04 23 50 00 3B 00 0A 23 5A 00 |$C000..#P.;..#Z.| 00000100: 3B 00 1B 23 64 00 2E 45 51 20 56 49 3D 24 44 30 |;..#d..EQ VI=$D0| 00000110: 30 30 00 2F 23 65 00 2E 45 51 20 52 4D 53 42 3D |00./#e..EQ RMSB=| 00000120: 56 49 2B 24 31 31 00 44 23 66 00 2E 45 51 20 52 |VI+$11.D#f..EQ R| 00000130: 4C 49 4E 45 3D 56 49 2B 24 31 32 00 5A 23 67 00 |LINE=VI+$12.Z#g.| 00000140: 2E 45 51 20 49 52 51 52 45 51 3D 56 49 2B 24 31 |.EQ IRQREQ=VI+$1| 00000150: 39 00 70 23 68 00 2E 45 51 20 49 52 51 4D 53 4B |9.p#h..EQ IRQMSK| 00000160: 3D 56 49 2B 24 31 41 00 84 23 69 00 2E 45 51 20 |=VI+$1A..#i..EQ | 00000170: 42 41 43 4B 3D 56 49 2B 24 32 31 00 96 23 6A 00 |BACK=VI+$21..#j.| 00000180: 2E 45 51 20 49 43 52 3D 24 44 43 30 44 00 AB 23 |.EQ ICR=$DC0D..#| 00000190: 6B 00 2E 45 51 20 53 59 53 49 52 51 3D 24 45 41 |k..EQ SYSIRQ=$EA| 000001A0: 33 31 00 C0 23 6C 00 2E 45 51 20 49 52 51 4F 55 |31..#l..EQ IRQOU| 000001B0: 54 3D 24 45 41 38 31 00 D5 23 BE 00 2E 45 51 20 |T=$EA81..#...EQ | 000001C0: 49 52 51 56 45 43 3D 24 30 33 31 34 00 E8 23 DC |IRQVEC=$0314..#.| 000001D0: 00 2E 45 51 20 54 41 42 50 4E 54 3D 24 46 42 00 |..EQ TABPNT=$FB.| 000001E0: EE 23 E6 00 3B 00 12 24 F0 00 3B 2A 2A 2A 20 20 |.#..;..$..;*** | 000001F0: 20 52 4F 55 54 49 4E 45 20 41 4E 53 43 48 41 4C | ROUTINE ANSCHAL| 00000200: 54 45 4E 20 20 20 2A 2A 2A 00 18 24 FA 00 3B 00 |TEN ***..$..;.| 00000210: 44 24 04 01 53 54 41 52 54 20 4C 44 41 23 24 30 |D$..START LDA#$0| 00000220: 30 3B 50 4F 49 4E 54 45 52 20 41 55 46 20 54 41 |0;POINTER AUF TA| 00000230: 42 45 4C 4C 45 4E 53 54 41 52 54 00 53 24 0E 01 |BELLENSTART.S$..| 00000240: 20 53 54 41 54 41 42 50 4E 54 00 59 24 18 01 3B | STATABPNT.Y$..;| 00000250: 00 74 24 22 01 3B 20 20 20 49 52 51 20 49 4E 49 |.t$".; IRQ INI| 00000260: 54 49 41 4C 49 53 49 45 52 45 4E 00 7A 24 2C 01 |TIALISIEREN.z$,.| 00000270: 3B 00 8F 24 36 01 20 53 45 49 3B 49 52 51 20 53 |;..$6. SEI;IRQ S| 00000280: 50 45 52 52 45 4E 00 B0 24 40 01 20 4C 44 41 52 |PERREN..$@. LDAR| 00000290: 4D 53 42 3B 52 41 53 54 45 52 5A 45 49 4C 45 4E |MSB;RASTERZEILEN| 000002A0: 2D 4D 53 42 3A 3D 30 00 BD 24 4A 01 20 41 4E 44 |-MSB:=0..$J. AND| 000002B0: 23 24 37 46 00 CA 24 54 01 20 53 54 41 52 4D 53 |#$7F..$T. STARMS| 000002C0: 42 00 EB 24 5E 01 20 4C 44 41 23 24 37 46 3B 43 |B..$^. LDA#$7F;C| 000002D0: 49 41 2D 49 52 51 53 20 56 45 52 48 49 4E 44 45 |IA-IRQS VERHINDE| 000002E0: 52 4E 00 F7 24 68 01 20 53 54 41 49 43 52 00 19 |RN..$h. STAICR..| 000002F0: 25 72 01 20 4C 44 41 23 24 30 31 3B 52 41 53 54 |%r. LDA#$01;RAST| 00000300: 45 52 49 52 51 53 20 46 52 45 49 47 45 42 45 4E |ERIRQS FREIGEBEN| 00000310: 00 28 25 7C 01 20 53 54 41 49 52 51 4D 53 4B 00 |.(%|. STAIRQMSK.| 00000320: 56 25 86 01 20 4C 44 41 23 3C 28 49 52 51 29 3B |V%.. LDA#<(IRQ);| 00000330: 49 52 51 2D 56 45 4B 54 4F 52 20 41 55 46 20 45 |IRQ-VEKTOR AUF E| 00000340: 49 47 45 4E 45 20 52 4F 55 54 49 4E 45 00 65 25 |IGENE ROUTINE.e%| 00000350: 90 01 20 53 54 41 49 52 51 56 45 43 00 75 25 9A |.. STAIRQVEC.u%.| 00000360: 01 20 4C 44 41 23 3E 28 49 52 51 29 00 86 25 A4 |. LDA#>(IRQ)..%.| 00000370: 01 20 53 54 41 49 52 51 56 45 43 2B 31 00 8C 25 |. STAIRQVEC+1..%| 00000380: AE 01 3B 00 B3 25 B8 01 20 4A 53 52 52 45 41 44 |..;..%.. JSRREAD| 00000390: 54 41 42 3B 31 2E 5A 4F 4E 45 4E 42 45 47 49 4E |TAB;1.ZONENBEGIN| 000003A0: 4E 20 41 55 53 4C 45 53 45 4E 00 D4 25 C2 01 20 |N AUSLESEN..%.. | 000003B0: 53 54 41 52 4C 49 4E 45 3B 3D 41 55 53 4C 4F 45 |STARLINE;=AUSLOE| 000003C0: 53 45 4E 44 45 20 5A 45 49 4C 45 00 EC 25 CC 01 |SENDE ZEILE..%..| 000003D0: 20 43 4C 49 3B 49 52 51 53 20 46 52 45 49 47 45 | CLI;IRQS FREIGE| 000003E0: 42 45 4E 00 0B 26 D6 01 20 52 54 53 3B 52 55 45 |BEN..&.. RTS;RUE| 000003F0: 43 4B 53 50 52 55 4E 47 20 49 4E 53 20 42 41 53 |CKSPRUNG INS BAS| 00000400: 49 43 00 11 26 E0 01 3B 00 35 26 F4 01 3B 2A 2A |IC..&..;.5&..;**| 00000410: 2A 20 20 20 52 4F 55 54 49 4E 45 20 41 42 53 43 |* ROUTINE ABSC| 00000420: 48 41 4C 54 45 4E 20 20 20 2A 2A 2A 00 3B 26 FE |HALTEN ***.;&.| 00000430: 01 3B 00 54 26 08 02 4F 46 46 20 53 45 49 3B 49 |.;.T&..OFF SEI;I| 00000440: 52 51 53 20 53 50 45 52 52 45 4E 00 70 26 12 02 |RQS SPERREN.p&..| 00000450: 20 4C 44 41 23 24 30 30 3B 52 41 53 54 45 52 2D | LDA#$00;RASTER-| 00000460: 49 52 51 20 41 55 53 00 7F 26 1C 02 20 53 54 41 |IRQ AUS..&.. STA| 00000470: 49 52 51 4D 53 4B 00 A2 26 26 02 20 4C 44 41 23 |IRQMSK..&&. LDA#| 00000480: 24 38 31 3B 43 49 41 2D 49 52 51 53 20 45 52 4D |$81;CIA-IRQS ERM| 00000490: 4F 45 47 4C 49 43 48 45 4E 00 AE 26 30 02 20 53 |OEGLICHEN..&0. S| 000004A0: 54 41 49 43 52 00 DB 26 3A 02 20 4C 44 41 23 3C |TAICR..&:. LDA#<| 000004B0: 28 53 59 53 49 52 51 29 3B 49 52 51 2D 56 45 4B |(SYSIRQ);IRQ-VEK| 000004C0: 54 4F 52 20 41 55 46 20 4E 4F 52 4D 41 4C 57 45 |TOR AUF NORMALWE| 000004D0: 52 54 00 EA 26 44 02 20 53 54 41 49 52 51 56 45 |RT..&D. STAIRQVE| 000004E0: 43 00 FD 26 4E 02 20 4C 44 41 23 3E 28 53 59 53 |C..&N. LDA#>(SYS| 000004F0: 49 52 51 29 00 0E 27 58 02 20 53 54 41 49 52 51 |IRQ)..'X. STAIRQ| 00000500: 56 45 43 2B 31 00 26 27 62 02 20 43 4C 49 3B 49 |VEC+1.&'b. CLI;I| 00000510: 52 51 53 20 46 52 45 49 47 45 42 45 4E 00 45 27 |RQS FREIGEBEN.E'| 00000520: 6C 02 20 52 54 53 3B 52 55 45 43 4B 53 50 52 55 |l. RTS;RUECKSPRU| 00000530: 4E 47 20 49 4E 53 20 42 41 53 49 43 00 4B 27 76 |NG INS BASIC.K'v| 00000540: 02 3B 00 69 27 80 02 3B 2A 2A 2A 20 20 20 48 41 |.;.i'..;*** HA| 00000550: 55 50 54 52 4F 55 54 49 4E 45 20 20 20 2A 2A 2A |UPTROUTINE ***| 00000560: 00 6F 27 8A 02 3B 00 94 27 94 02 49 52 51 20 4C |.o'..;..'..IRQ L| 00000570: 44 41 23 24 30 31 3B 49 52 51 2D 52 45 51 55 45 |DA#$01;IRQ-REQUE| 00000580: 53 54 20 4C 4F 45 53 43 48 45 4E 00 A3 27 9E 02 |ST LOESCHEN..'..| 00000590: 20 53 54 41 49 52 51 52 45 51 00 A9 27 BC 02 3B | STAIRQREQ..'..;| 000005A0: 00 CF 27 C6 02 20 4A 53 52 52 45 41 44 54 41 42 |..'.. JSRREADTAB| 000005B0: 3B 5A 4F 4E 45 4E 46 41 52 42 45 20 31 20 41 55 |;ZONENFARBE 1 AU| 000005C0: 53 4C 45 53 45 4E 00 D5 27 D0 02 3B 00 EB 27 DA |SLESEN..'..;..'.| 000005D0: 02 3B 20 20 20 48 41 55 50 54 53 43 48 4C 45 49 |.; HAUPTSCHLEI| 000005E0: 46 45 00 F1 27 DF 02 3B 00 0F 28 E4 02 4E 58 54 |FE..'..;..(..NXT| 000005F0: 5A 4F 4E 45 20 54 41 59 3B 4E 41 43 48 20 59 20 |ZONE TAY;NACH Y | 00000600: 52 45 54 54 45 4E 00 31 28 EE 02 20 4C 44 58 54 |RETTEN.1(.. LDXT| 00000610: 41 42 50 4E 54 3B 54 41 42 45 4C 4C 45 4E 57 45 |ABPNT;TABELLENWE| 00000620: 52 54 20 4C 45 53 45 4E 00 50 28 EF 02 20 49 4E |RT LESEN.P(.. IN| 00000630: 43 54 41 42 50 4E 54 3B 28 41 55 53 20 5A 45 49 |CTABPNT;(AUS ZEI| 00000640: 54 4D 41 4E 47 45 4C 00 6E 28 F0 02 20 4C 44 41 |TMANGEL.n(.. LDA| 00000650: 54 41 42 4C 45 2C 58 3B 4E 49 43 48 54 20 41 4C |TABLE,X;NICHT AL| 00000660: 53 20 55 50 29 00 86 28 F8 02 20 43 4C 43 3B 43 |S UP)..(.. CLC;C| 00000670: 41 52 52 59 20 4C 4F 45 53 43 48 45 4E 00 B3 28 |ARRY LOESCHEN..(| 00000680: 02 03 20 41 44 43 52 4C 49 4E 45 3B 41 3A 3D 41 |.. ADCRLINE;A:=A| 00000690: 4B 54 2E 20 5A 45 49 4C 45 20 2B 20 42 45 52 45 |KT. ZEILE + BERE| 000006A0: 49 43 48 53 42 52 45 49 54 45 00 DA 28 0C 03 20 |ICHSBREITE..(.. | 000006B0: 4C 44 58 52 4C 49 4E 45 3B 31 20 5A 45 49 4C 45 |LDXRLINE;1 ZEILE| 000006C0: 4E 57 45 43 48 53 45 4C 20 41 42 57 41 52 54 45 |NWECHSEL ABWARTE| 000006D0: 4E 00 EC 28 0E 03 57 41 49 54 20 43 50 58 52 4C |N..(..WAIT CPXRL| 000006E0: 49 4E 45 00 F9 28 10 03 20 42 45 51 57 41 49 54 |INE..(.. BEQWAIT| 000006F0: 00 1F 29 16 03 20 53 54 59 42 41 43 4B 3B 42 49 |..).. STYBACK;BI| 00000700: 4C 44 53 43 48 49 52 4D 46 41 52 42 45 20 57 45 |LDSCHIRMFARBE WE| 00000710: 43 48 53 45 4C 4E 00 5C 29 20 03 57 54 45 4E 44 |CHSELN.\) .WTEND| 00000720: 20 43 4D 50 52 4C 49 4E 45 3B 57 41 52 54 45 4E | CMPRLINE;WARTEN| 00000730: 2C 20 42 49 53 20 45 4E 44 5A 45 49 4C 45 20 28 |, BIS ENDZEILE (| 00000740: 49 4E 20 41 29 20 45 52 52 45 49 43 48 54 20 57 |IN A) ERREICHT W| 00000750: 49 52 44 00 6A 29 2A 03 20 42 4E 45 57 54 45 4E |IRD.j)*. BNEWTEN| 00000760: 44 00 70 29 34 03 3B 00 91 29 3E 03 3B 20 20 20 |D.p)4.;..)>.; | 00000770: 4E 41 45 43 48 53 54 45 52 20 42 45 52 45 49 43 |NAECHSTER BEREIC| 00000780: 48 2F 45 4E 44 45 20 3F 00 97 29 48 03 3B 00 BC |H/ENDE ?..)H.;..| 00000790: 29 52 03 20 4A 53 52 52 45 41 44 54 41 42 3B 4E |)R. JSRREADTAB;N| 000007A0: 41 45 43 48 53 54 45 4E 20 57 45 52 54 20 48 4F |AECHSTEN WERT HO| 000007B0: 4C 45 4E 00 E3 29 5C 03 20 42 50 4C 4E 58 54 5A |LEN..)\. BPLNXTZ| 000007C0: 4F 4E 45 3B 57 45 4E 4E 20 50 4F 53 49 54 49 56 |ONE;WENN POSITIV| 000007D0: 2C 3D 3E 4E 58 54 5A 4F 4E 45 00 E9 29 70 03 3B |,=>NXTZONE..)p.;| 000007E0: 00 06 2A 75 03 3B 20 20 20 5A 4F 4E 45 4E 45 4E |..*u.; ZONENEN| 000007F0: 44 45 2F 4C 49 53 54 45 4E 45 4E 44 45 00 0C 2A |DE/LISTENENDE..*| 00000800: 7A 03 3B 00 3F 2A 84 03 53 45 54 45 4E 44 20 4C |z.;.?*..SETEND L| 00000810: 44 58 52 4C 49 4E 45 3B 53 4F 4E 53 54 20 31 20 |DXRLINE;SONST 1 | 00000820: 5A 45 49 4C 45 4E 57 45 43 48 53 45 4C 20 41 42 |ZEILENWECHSEL AB| 00000830: 57 41 52 54 45 4E 00 52 2A 86 03 57 41 49 54 32 |WARTEN.R*..WAIT2| 00000840: 20 43 50 58 52 4C 49 4E 45 00 60 2A 88 03 20 42 | CPXRLINE.`*.. B| 00000850: 45 51 57 41 49 54 32 00 A1 2A 8E 03 53 54 52 42 |EQWAIT2..*..STRB| 00000860: 41 43 4B 20 4C 44 41 23 24 41 41 3B 42 49 4C 44 |ACK LDA#$AA;BILD| 00000870: 53 43 48 49 52 4D 46 41 52 42 45 20 5A 55 52 55 |SCHIRMFARBE ZURU| 00000880: 45 43 4B 53 43 48 52 45 49 42 45 4E 20 28 24 41 |ECKSCHREIBEN ($A| 00000890: 41 3D 44 55 4D 4D 59 2C 00 CE 2A 98 03 20 53 54 |A=DUMMY,..*.. ST| 000008A0: 41 42 41 43 4B 3B 53 50 45 49 43 48 45 52 20 46 |ABACK;SPEICHER F| 000008B0: 55 45 52 20 48 49 4E 54 45 52 47 52 55 4E 44 46 |UER HINTERGRUNDF| 000008C0: 41 52 42 45 29 00 D4 2A 9D 03 3B 00 03 2B A2 03 |ARBE)..*..;..+..| 000008D0: 20 4A 53 52 52 45 41 44 54 41 42 3B 4E 41 45 43 | JSRREADTAB;NAEC| 000008E0: 48 53 54 45 4E 20 5A 4F 4E 45 4E 42 45 47 49 4E |HSTEN ZONENBEGIN| 000008F0: 4E 20 41 55 53 4C 45 53 45 4E 00 2C 2B AC 03 20 |N AUSLESEN.,+.. | 00000900: 42 45 51 41 47 41 49 4E 3B 57 45 4E 4E 20 45 4E |BEQAGAIN;WENN EN| 00000910: 44 45 2D 4B 45 4E 4E 55 4E 47 2C 20 3D 3E 41 47 |DE-KENNUNG, =>AG| 00000920: 41 49 4E 00 32 2B B1 03 3B 00 5B 2B B6 03 20 53 |AIN.2+..;.[+.. S| 00000930: 54 41 52 4C 49 4E 45 3B 53 4F 4E 53 54 20 41 55 |TARLINE;SONST AU| 00000940: 53 4C 4F 45 53 45 4E 44 45 20 5A 45 49 4C 45 3A |SLOESENDE ZEILE:| 00000950: 3D 41 00 76 2B C0 03 20 4A 4D 50 49 52 51 4F 55 |=A.v+.. JMPIRQOU| 00000960: 54 3B 49 52 51 20 42 45 45 4E 44 45 4E 00 7C 2B |T;IRQ BEENDEN.|+| 00000970: CA 03 3B 00 A2 2B D4 03 41 47 41 49 4E 20 53 54 |..;..+..AGAIN ST| 00000980: 41 54 41 42 50 4E 54 3B 54 41 42 45 4C 4C 45 4E |ATABPNT;TABELLEN| 00000990: 5A 45 49 47 45 52 3A 3D 30 00 CE 2B DE 03 20 4A |ZEIGER:=0..+.. J| 000009A0: 53 52 52 45 41 44 54 41 42 3B 45 52 53 54 45 4E |SRREADTAB;ERSTEN| 000009B0: 20 5A 4F 4E 45 4E 42 45 47 49 4E 4E 20 41 55 53 | ZONENBEGINN AUS| 000009C0: 4C 45 53 45 4E 00 F1 2B E8 03 20 53 54 41 52 4C |LESEN..+.. STARL| 000009D0: 49 4E 45 3B 41 55 53 4C 4F 45 53 45 4E 44 45 20 |INE;AUSLOESENDE | 000009E0: 5A 45 49 4C 45 3A 3D 41 00 16 2C F2 03 20 4A 4D |ZEILE:=A..,.. JM| 000009F0: 50 53 59 53 49 52 51 3B 53 59 53 54 45 4D 2D 49 |PSYSIRQ;SYSTEM-I| 00000A00: 52 51 20 41 55 53 46 55 45 48 52 45 4E 00 1C 2C |RQ AUSFUEHREN..,| 00000A10: FC 03 3B 00 3A 2C 06 04 3B 20 20 20 55 50 20 54 |..;.:,..; UP T| 00000A20: 41 42 45 4C 4C 45 4E 57 45 52 54 20 4C 45 53 45 |ABELLENWERT LESE| 00000A30: 4E 00 40 2C 10 04 3B 00 63 2C 1A 04 52 45 41 44 |N.@,..;.c,..READ| 00000A40: 54 41 42 20 4C 44 58 54 41 42 50 4E 54 3B 54 41 |TAB LDXTABPNT;TA| 00000A50: 42 50 4E 54 20 4C 45 53 45 4E 00 8A 2C 24 04 20 |BPNT LESEN..,$. | 00000A60: 49 4E 43 54 41 42 50 4E 54 3B 54 41 42 45 4C 4C |INCTABPNT;TABELL| 00000A70: 45 4E 5A 45 49 47 45 52 20 45 52 48 4F 45 48 45 |ENZEIGER ERHOEHE| 00000A80: 4E 00 B2 2C 2E 04 20 4C 44 41 54 41 42 4C 45 2C |N..,.. LDATABLE,| 00000A90: 58 3B 41 3A 3D 54 41 42 45 4C 4C 45 4E 53 54 41 |X;A:=TABELLENSTA| 00000AA0: 52 54 2B 54 41 42 50 4E 54 00 C7 2C 38 04 20 52 |RT+TABPNT..,8. R| 00000AB0: 54 53 3B 52 55 45 43 4B 53 50 52 55 4E 47 00 CD |TS;RUECKSPRUNG..| 00000AC0: 2C 88 04 3B 00 D3 2C 92 04 3B 00 F9 2C 9C 04 3B |,..;..,..;..,..;| 00000AD0: 2A 2A 2A 20 20 20 5A 4F 4E 45 4E 54 41 42 45 4C |*** ZONENTABEL| 00000AE0: 4C 45 20 41 42 20 48 49 45 52 20 20 20 2A 2A 2A |LE AB HIER ***| 00000AF0: 00 FF 2C A6 04 3B 00 21 2D B0 04 54 41 42 4C 45 |..,..;.!-..TABLE| 00000B00: 20 2E 42 59 39 39 2C 32 2C 33 2C 36 2C 35 2C 32 | .BY99,2,3,6,5,2| 00000B10: 2C 33 2C 31 32 38 2C 30 00 00 00 |,3,128,0... |
."*"..;**************************.J"..;*
** - SCREENMANAGER - ***.J"(.;*** 9.+13
.11.87 BY ***..").;*** K.KAEHLER
***.."*.;*** SKALITZER STR.134A **
*.J"+.;*** 1000 BERLIN 36 ***.."2.;*
*************************.."<.;.."F..BA
$C000..#P.;..#Z.;..#D..EQ VI=$D000./#E..
EQ RMSB=VI+$11.D#F..EQ RLINE=VI+$12.Z#G.
.EQ IRQREQ=VI+$19.P#H..EQ IRQMSK=VI+$1A.
.#I..EQ BACK=VI+$21..#J..EQ ICR=$DC0D..#
K..EQ SYSIRQ=$EA31..#L..EQ IRQOUT=$EA81.
U#...EQ IRQVEC=$0314..#...EQ TABPNT=$FB.
.#..;..$..;*** ROUTINE ANSCHALTEN **
*..$..;.D$..START LDA#$00;POINTER AUF TA
BELLENSTART.S$.. STATABPNT.Y$..;.T$".;
IRQ INITIALISIEREN.Z$,.;..$6. SEI;IRQ S
PERREN..$@. LDARMSB;RASTERZEILEN-MSB:=0.
.$J. AND#$7F.J$T. STARMSB..$^. LDA#$7F;C
IA-IRQS VERHINDERN..$H. STAICR..%R. LDA#
$01;RASTERIRQS FREIGEBEN.(%|. STAIRQMSK.
V%.. LDA#<(IRQ);IRQ-VEKTOR AUF EIGENE RO
UTINE.E%.. STAIRQVEC.U%.. LDA#>(IRQ)..%.
. STAIRQVEC+1..%..;..%.. JSRREADTAB;1.ZO
NENBEGINN AUSLESEN.T%B. STARLINE;=AUSLOE
SENDE ZEILE..%L. CLI;IRQS FREIGEBEN..&V.
RTS;RUECKSPRUNG INS BASIC..&..;.5&..;**
* ROUTINE ABSCHALTEN ***.;&..;.T&..O
FF SEI;IRQS SPERREN.P&.. LDA#$00;RASTER-
IRQ AUS.&.. STAIRQMSK..&&. LDA#$81;CIA-
IRQS ERMOEGLICHEN..&0. STAICR..&:. LDA#<
(SYSIRQ);IRQ-VEKTOR AUF NORMALWERT..&D.
STAIRQVEC..&N. LDA#>(SYSIRQ)..'X. STAIRQ
VEC+1.&'B. CLI;IRQS FREIGEBEN.E'L. RTS;R
UECKSPRUNG INS BASIC.K'V.;.I'..;*** HA
UPTROUTINE ***.O'..;..'..IRQ LDA#$01;I
RQ-REQUEST LOESCHEN..'.. STAIRQREQ..'..;
.O'F. JSRREADTAB;ZONENFARBE 1 AUSLESEN.U
'P.;..'Z.; HAUPTSCHLEIFE..'..;..(..NXT
ZONE TAY;NACH Y RETTEN.1(.. LDXTABPNT;TA
BELLENWERT LESEN.P(.. INCTABPNT;(AUS ZEI
TMANGEL.N(.. LDATABLE,X;NICHT ALS UP)..(
.. CLC;CARRY LOESCHEN..(.. ADCRLINE;A:=A
KT. ZEILE + BEREICHSBREITE.Z(.. LDXRLINE
;1 ZEILENWECHSEL ABWARTEN..(..WAIT CPXRL
INE..(.. BEQWAIT..).. STYBACK;BILDSCHIRM
FARBE WECHSELN.\) .WTEND CMPRLINE;WARTEN
, BIS ENDZEILE (IN A) ERREICHT WIRD.J)*.
BNEWTEND.P)4.;..)>.; NAECHSTER BEREIC
H/ENDE ?..)H.;..)R. JSRREADTAB;NAECHSTEN
WERT HOLEN..)\. BPLNXTZONE;WENN POSITIV
,=>NXTZONE..)P.;..*U.; ZONENENDE/LISTE
NENDE..*Z.;.?*..SETEND LDXRLINE;SONST 1
ZEILENWECHSEL ABWARTEN.R*..WAIT2 CPXRLIN
E.`*.. BEQWAIT2..*..STRBACK LDA#$AA;BILD
SCHIRMFARBE ZURUECKSCHREIBEN ($AA=DUMMY,
.N*.. STABACK;SPEICHER FUER HINTERGRUNDF
ARBE).T*..;..+.. JSRREADTAB;NAECHSTEN ZO
NENBEGINN AUSLESEN.,+.. BEQAGAIN;WENN EN
DE-KENNUNG, =>AGAIN.2+..;.[+.. STARLINE;
SONST AUSLOESENDE ZEILE:=A.V+.. JMPIRQOU
T;IRQ BEENDEN.|+J.;..+T.AGAIN STATABPNT;
TABELLENZEIGER:=0.N+.. JSRREADTAB;ERSTEN
ZONENBEGINN AUSLESEN..+.. STARLINE;AUSL
OESENDE ZEILE:=A..,.. JMPSYSIRQ;SYSTEM-I
RQ AUSFUEHREN..,..;.:,..; UP TABELLENW
ERT LESEN.@,..;.C,..READTAB LDXTABPNT;TA
BPNT LESEN..,$. INCTABPNT;TABELLENZEIGER
ERHOEHEN..,.. LDATABLE,X;A:=TABELLENSTA
RT+TABPNT.G,8. RTS;RUECKSPRUNG.M,..;.S,.
.;..,..;*** ZONENTABELLE AB HIER ***
..,..;.!-..TABLE .BY99,2,3,6,5,2,3,128,0
...
> CLICK IMAGE PREVIEW FOR FULL MODAL