00000000: D8 1F FD 1F E8 03 3B 20 2D 2D 2D 2D 2D 2D 2D 2D |......; --------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 00 03 20 F2 03 3B 00 20 20 FC |------.. ..;. .|
00000030: 03 3B 20 20 20 20 20 20 20 20 20 48 59 50 45 52 |.; HYPER|
00000040: 53 43 52 45 45 4E 20 49 49 00 26 20 06 04 3B 00 |SCREEN II.& ..;.|
00000050: 43 20 10 04 3B 20 20 20 20 20 20 20 20 20 28 43 |C ..; (C|
00000060: 29 20 31 35 2E 30 38 2E 31 39 38 36 00 49 20 1A |) 15.08.1986.I .|
00000070: 04 3B 00 6B 20 24 04 3B 20 20 20 20 42 59 20 43 |.;.k $.; BY C|
00000080: 2E 5A 41 45 4E 4B 45 52 20 41 4E 44 20 52 2E 46 |.ZAENKER AND R.F|
00000090: 52 41 48 4D 00 71 20 2E 04 3B 00 96 20 38 04 3B |RAHM.q ..;.. 8.;|
000000A0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
000000C0: 9C 20 42 04 3B 00 A2 20 4C 04 3B 00 B0 20 56 04 |. B.;.. L.;.. V.|
000000D0: 20 2E 42 41 24 43 30 30 30 00 D6 20 60 04 3B 2D | .BA$C000.. `.;-|
000000E0: 4C 41 42 45 4C 53 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |LABELS----------|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00000100: E8 20 6A 04 20 2E 45 51 43 4C 53 3D 24 45 35 34 |. j. .EQCLS=$E54|
00000110: 34 00 FA 20 74 04 20 2E 45 51 43 52 41 3D 24 44 |4.. t. .EQCRA=$D|
00000120: 43 30 45 00 0D 21 7E 04 20 2E 45 51 49 52 51 4C |C0E..!~. .EQIRQL|
00000130: 3D 24 30 33 31 34 00 20 21 88 04 20 2E 45 51 49 |=$0314. !.. .EQI|
00000140: 52 51 48 3D 24 30 33 31 35 00 32 21 92 04 20 2E |RQH=$0315.2!.. .|
00000150: 45 51 56 49 43 3D 24 44 30 30 30 00 44 21 9C 04 |EQVIC=$D000.D!..|
00000160: 20 2E 45 51 53 52 32 3D 24 44 30 31 36 00 56 21 | .EQSR2=$D016.V!|
00000170: A6 04 20 2E 45 51 52 5A 49 3D 24 44 30 31 32 00 |.. .EQRZI=$D012.|
00000180: 68 21 B0 04 20 2E 45 51 49 4D 52 3D 24 44 30 31 |h!.. .EQIMR=$D01|
00000190: 41 00 7A 21 BA 04 20 2E 45 51 49 52 52 3D 24 44 |A.z!.. .EQIRR=$D|
000001A0: 30 31 39 00 8C 21 C4 04 20 2E 45 51 53 52 31 3D |019..!.. .EQSR1=|
000001B0: 24 44 30 31 31 00 B2 21 CE 04 3B 2D 50 52 47 2D |$D011..!..;-PRG-|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C3 21 D8 04 |-----------..!..|
000001E0: 53 54 41 52 54 20 4C 44 41 23 30 30 00 D1 21 E2 |START LDA#00..!.|
000001F0: 04 20 53 54 41 24 44 30 32 31 00 DD 21 EC 04 20 |. STA$D021..!.. |
00000200: 4C 44 41 23 30 30 00 EB 21 F6 04 20 53 54 41 24 |LDA#00..!.. STA$|
00000210: 44 30 32 30 00 F7 21 00 05 20 4A 53 52 43 4C 53 |D020..!.. JSRCLS|
00000220: 00 03 22 0A 05 20 4C 44 41 23 30 38 00 0F 22 14 |..".. LDA#08..".|
00000230: 05 20 53 54 41 53 52 32 00 2E 22 1E 05 20 4A 53 |. STASR2..".. JS|
00000240: 52 53 45 54 53 50 52 53 3B 53 50 52 49 54 45 53 |RSETSPRS;SPRITES|
00000250: 20 53 45 54 5A 45 4E 00 4F 22 28 05 20 4A 53 52 | SETZEN.O"(. JSR|
00000260: 49 52 51 4F 4E 3B 49 52 51 20 49 4E 49 54 49 41 |IRQON;IRQ INITIA|
00000270: 4C 49 53 49 45 52 45 4E 00 66 22 32 05 53 54 41 |LISIEREN.f"2.STA|
00000280: 4E 44 42 59 20 4A 4D 50 53 54 41 4E 44 42 59 00 |NDBY JMPSTANDBY.|
00000290: 8C 22 3C 05 3B 2D 49 52 51 4F 4E 2D 2D 2D 2D 2D |."<.;-IRQON-----|
000002A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002B0: 2D 2D 2D 2D 2D 00 9A 22 46 05 49 52 51 4F 4E 20 |-----.."F.IRQON |
000002C0: 53 45 49 00 B1 22 50 05 20 4C 44 41 23 30 30 3B |SEI.."P. LDA#00;|
000002D0: 53 59 53 54 45 4D 2D 49 52 51 00 CB 22 5A 05 20 |SYSTEM-IRQ.."Z. |
000002E0: 53 54 41 24 44 43 30 45 3B 41 55 53 53 43 48 41 |STA$DC0E;AUSSCHA|
000002F0: 4C 54 45 4E 00 FA 22 64 05 20 53 54 41 31 36 33 |LTEN.."d. STA163|
00000300: 38 33 3B 42 49 4C 44 53 43 48 49 52 4D 52 41 48 |83;BILDSCHIRMRAH|
00000310: 4D 45 4E 5A 45 49 43 48 45 4E 20 4C 4F 45 53 43 |MENZEICHEN LOESC|
00000320: 48 45 4E 00 0A 23 6E 05 20 4C 44 41 23 3C 28 49 |HEN..#n. LDA#<(I|
00000330: 52 51 29 00 17 23 78 05 20 53 54 41 49 52 51 4C |RQ)..#x. STAIRQL|
00000340: 00 27 23 82 05 20 4C 44 41 23 3E 28 49 52 51 29 |.'#.. LDA#>(IRQ)|
00000350: 00 34 23 8C 05 20 53 54 41 49 52 51 48 00 41 23 |.4#.. STAIRQH.A#|
00000360: 96 05 20 4C 44 41 23 32 34 39 00 4D 23 A0 05 20 |.. LDA#249.M#.. |
00000370: 53 54 41 52 5A 49 00 59 23 AA 05 20 4C 44 41 23 |STARZI.Y#.. LDA#|
00000380: 30 31 00 65 23 B4 05 20 53 54 41 49 4D 52 00 71 |01.e#.. STAIMR.q|
00000390: 23 BE 05 20 4C 44 41 53 52 31 00 7E 23 C8 05 20 |#.. LDASR1.~#.. |
000003A0: 41 4E 44 23 31 32 37 00 8A 23 D2 05 20 53 54 41 |AND#127..#.. STA|
000003B0: 53 52 31 00 93 23 DC 05 20 43 4C 49 00 9C 23 E6 |SR1..#.. CLI..#.|
000003C0: 05 20 52 54 53 00 C2 23 F0 05 3B 2D 53 45 54 53 |. RTS..#..;-SETS|
000003D0: 50 52 53 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |PRS-------------|
000003E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 EE 23 FA 05 |-----------..#..|
000003F0: 53 45 54 53 50 52 53 20 4C 44 58 23 30 30 3B 53 |SETSPRS LDX#00;S|
00000400: 50 52 49 54 45 4B 4F 4F 52 44 49 4E 41 54 45 4E |PRITEKOORDINATEN|
00000410: 20 53 45 54 5A 45 4E 00 05 24 04 06 53 45 54 4C | SETZEN..$..SETL|
00000420: 4F 4F 50 31 20 4C 44 41 54 41 42 31 2C 58 00 13 |OOP1 LDATAB1,X..|
00000430: 24 0E 06 20 53 54 41 56 49 43 2C 58 00 1C 24 18 |$.. STAVIC,X..$.|
00000440: 06 20 49 4E 58 00 28 24 22 06 20 43 50 58 23 31 |. INX.($". CPX#1|
00000450: 37 00 39 24 2C 06 20 42 4E 45 53 45 54 4C 4F 4F |7.9$,. BNESETLOO|
00000460: 50 31 00 46 24 36 06 20 4C 44 41 23 32 35 35 00 |P1.F$6. LDA#255.|
00000470: 5F 24 40 06 20 53 54 41 56 49 43 2B 32 31 3B 38 |_$@. STAVIC+21;8|
00000480: 20 53 50 52 49 54 45 53 00 81 24 4A 06 20 53 54 | SPRITES..$J. ST|
00000490: 41 56 49 43 2B 32 39 3B 4E 41 43 48 20 58 20 56 |AVIC+29;NACH X V|
000004A0: 45 52 42 52 45 49 54 45 52 54 00 A3 24 54 06 20 |ERBREITERT..$T. |
000004B0: 4C 44 58 23 30 30 3B 53 50 52 49 54 45 2D 42 4C |LDX#00;SPRITE-BL|
000004C0: 4F 45 43 4B 45 20 53 45 54 5A 45 4E 00 BA 24 5E |OECKE SETZEN..$^|
000004D0: 06 53 45 54 4C 4F 4F 50 32 20 4C 44 41 54 41 42 |.SETLOOP2 LDATAB|
000004E0: 32 2C 58 00 C9 24 68 06 20 53 54 41 32 30 34 30 |2,X..$h. STA2040|
000004F0: 2C 58 00 D2 24 72 06 20 49 4E 58 00 DE 24 7C 06 |,X..$r. INX..$|.|
00000500: 20 43 50 58 23 30 38 00 EF 24 86 06 20 42 4E 45 | CPX#08..$.. BNE|
00000510: 53 45 54 4C 4F 4F 50 32 00 FB 24 90 06 20 4C 44 |SETLOOP2..$.. LD|
00000520: 58 23 30 30 00 08 25 9A 06 20 4C 44 41 23 32 35 |X#00..%.. LDA#25|
00000530: 35 00 20 25 A4 06 53 45 54 4C 4F 4F 50 33 20 53 |5. %..SETLOOP3 S|
00000540: 54 41 24 33 46 43 30 2C 58 00 29 25 AE 06 20 49 |TA$3FC0,X.)%.. I|
00000550: 4E 58 00 35 25 B8 06 20 43 50 58 23 36 33 00 46 |NX.5%.. CPX#63.F|
00000560: 25 C2 06 20 42 4E 45 53 45 54 4C 4F 4F 50 33 00 |%.. BNESETLOOP3.|
00000570: 52 25 CC 06 20 4C 44 41 23 30 30 00 60 25 D6 06 |R%.. LDA#00.`%..|
00000580: 20 53 54 41 24 33 46 43 30 00 6E 25 E0 06 20 53 | STA$3FC0.n%.. S|
00000590: 54 41 24 33 46 43 31 00 7C 25 EA 06 20 53 54 41 |TA$3FC1.|%.. STA|
000005A0: 24 33 46 43 32 00 85 25 F4 06 20 52 54 53 00 AB |$3FC2..%.. RTS..|
000005B0: 25 FE 06 3B 2D 49 52 51 2D 2D 2D 2D 2D 2D 2D 2D |%..;-IRQ--------|
000005C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000005D0: 2D 2D 2D 2D 00 C8 25 08 07 49 52 51 20 4C 44 41 |----..%..IRQ LDA|
000005E0: 23 31 39 3B 41 55 46 20 32 34 20 5A 45 49 4C 45 |#19;AUF 24 ZEILE|
000005F0: 4E 00 DF 25 12 07 20 53 54 41 53 52 31 3B 55 4D |N..%.. STASR1;UM|
00000600: 53 43 48 41 4C 54 45 4E 00 F9 25 1C 07 20 4C 44 |SCHALTEN..%.. LD|
00000610: 59 23 32 31 3B 57 41 52 54 45 53 43 48 4C 45 49 |Y#21;WARTESCHLEI|
00000620: 46 45 00 07 26 26 07 4C 4F 4F 50 31 20 44 45 59 |FE..&&.LOOP1 DEY|
00000630: 00 15 26 30 07 20 42 4E 45 4C 4F 4F 50 31 00 20 |..&0. BNELOOP1. |
00000640: 26 3A 07 20 42 49 54 30 32 00 4B 26 44 07 20 4C |&:. BIT02.K&D. L|
00000650: 44 58 23 32 31 3B 32 31 20 42 4F 52 44 45 52 5A |DX#21;21 BORDERZ|
00000660: 45 49 4C 45 4E 2F 42 4F 52 44 45 52 53 43 48 4C |EILEN/BORDERSCHL|
00000670: 45 49 46 45 00 67 26 4E 07 4C 4F 4F 50 32 20 44 |EIFE.g&N.LOOP2 D|
00000680: 45 43 53 52 32 3B 34 30 20 53 50 41 4C 54 45 4E |ECSR2;40 SPALTEN|
00000690: 00 7E 26 58 07 20 49 4E 43 53 52 32 3B 33 38 20 |.~&X. INCSR2;38 |
000006A0: 53 50 41 4C 54 45 4E 00 87 26 62 07 20 4E 4F 50 |SPALTEN..&b. NOP|
000006B0: 00 90 26 6C 07 20 4E 4F 50 00 99 26 76 07 20 4E |..&l. NOP..&v. N|
000006C0: 4F 50 00 A2 26 80 07 20 4E 4F 50 00 AB 26 8A 07 |OP..&.. NOP..&..|
000006D0: 20 4E 4F 50 00 B4 26 94 07 20 4E 4F 50 00 BD 26 | NOP..&.. NOP..&|
000006E0: 9E 07 20 4E 4F 50 00 C6 26 A8 07 20 4E 4F 50 00 |.. NOP..&.. NOP.|
000006F0: CF 26 B2 07 20 4E 4F 50 00 D8 26 BC 07 20 4E 4F |.&.. NOP..&.. NO|
00000700: 50 00 E1 26 C6 07 20 4E 4F 50 00 EA 26 D0 07 20 |P..&.. NOP..&.. |
00000710: 4E 4F 50 00 F3 26 DA 07 20 4E 4F 50 00 FE 26 E4 |NOP..&.. NOP..&.|
00000720: 07 20 42 49 54 30 32 00 07 27 EE 07 20 44 45 58 |. BIT02..'.. DEX|
00000730: 00 15 27 F8 07 20 42 4E 45 4C 4F 4F 50 32 00 2F |..'.. BNELOOP2./|
00000740: 27 02 08 20 4C 44 41 23 32 37 3B 41 55 46 20 32 |'.. LDA#27;AUF 2|
00000750: 35 20 5A 45 49 4C 45 4E 00 46 27 0C 08 20 53 54 |5 ZEILEN.F'.. ST|
00000760: 41 53 52 31 3B 55 4D 53 43 48 41 4C 54 45 4E 00 |ASR1;UMSCHALTEN.|
00000770: 56 27 16 08 20 4C 44 41 23 30 31 3B 49 52 52 00 |V'.. LDA#01;IRR.|
00000780: 6B 27 20 08 20 53 54 41 49 52 52 3B 4C 4F 45 53 |k' . STAIRR;LOES|
00000790: 43 48 45 4E 00 87 27 2A 08 20 4E 4F 50 3B 45 56 |CHEN..'*. NOP;EV|
000007A0: 45 4E 54 55 45 4C 4C 45 52 20 53 50 52 55 4E 47 |ENTUELLER SPRUNG|
000007B0: 00 A3 27 34 08 20 4E 4F 50 3B 5A 55 20 20 53 43 |..'4. NOP;ZU SC|
000007C0: 52 4F 4C 4C 2D 52 4F 55 54 49 4E 45 00 AC 27 3E |ROLL-ROUTINE..'>|
000007D0: 08 20 4E 4F 50 00 D4 27 48 08 20 4A 4D 50 24 46 |. NOP..'H. JMP$F|
000007E0: 45 42 43 3B 52 45 47 49 53 54 45 52 57 49 45 44 |EBC;REGISTERWIED|
000007F0: 45 52 20 48 45 52 53 54 45 4C 4C 45 4E 00 E8 27 |ER HERSTELLEN..'|
00000800: 52 08 54 41 42 31 20 2E 42 59 32 34 31 2C 32 35 |R.TAB1 .BY241,25|
00000810: 30 00 F7 27 5C 08 20 2E 42 59 34 31 2C 32 35 30 |0..'\. .BY41,250|
00000820: 00 09 28 66 08 20 2E 42 59 34 31 2B 34 38 2C 32 |..(f. .BY41+48,2|
00000830: 35 30 00 1D 28 70 08 20 2E 42 59 34 31 2B 32 2A |50..(p. .BY41+2*|
00000840: 34 38 2C 32 35 30 00 31 28 7A 08 20 2E 42 59 34 |48,250.1(z. .BY4|
00000850: 31 2B 33 2A 34 38 2C 32 35 30 00 45 28 84 08 20 |1+3*48,250.E(.. |
00000860: 2E 42 59 34 31 2B 34 2A 34 38 2C 32 35 30 00 54 |.BY41+4*48,250.T|
00000870: 28 8E 08 20 2E 42 59 32 35 2C 32 35 30 00 66 28 |(.. .BY25,250.f(|
00000880: 98 08 20 2E 42 59 32 35 2B 34 38 2C 32 35 30 00 |.. .BY25+48,250.|
00000890: 72 28 A2 08 20 2E 42 59 31 39 33 00 8E 28 AC 08 |r(.. .BY193..(..|
000008A0: 54 41 42 32 20 2E 42 59 32 35 35 2C 32 35 35 2C |TAB2 .BY255,255,|
000008B0: 32 35 35 2C 32 35 35 00 A6 28 B6 08 20 2E 42 59 |255,255..(.. .BY|
000008C0: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 00 |255,255,255,255.|
000008D0: 00 00 |.. |
X.....; ------------------------------..
..;. ..; HYPERSCREEN II.& ..;.
C ..; (C) 15.08.1986.I ..;.K $.;
BY C.ZAENKER AND R.FRAHM.Q ..;.. 8.;
------------------------------.. B.;..
L.;.. V. .BA$C000.V `.;-LABELS----------
---------------.. J. .EQCLS=$E544.. T. .
EQCRA=$DC0E..!~. .EQIRQL=$0314. !.. .EQI
RQH=$0315.2!.. .EQVIC=$D000.D!.. .EQSR2=
$D016.V!.. .EQRZI=$D012.H!.. .EQIMR=$D01
A.Z!.. .EQIRR=$D019..!D. .EQSR1=$D011..!
N.;-PRG----------------------------.C!X.
START LDA#00.Q!.. STA$D021..!.. LDA#00..
!.. STA$D020..!.. JSRCLS..".. LDA#08..".
. STASR2..".. JSRSETSPRS;SPRITES SETZEN.
O"(. JSRIRQON;IRQ INITIALISIEREN.F"2.STA
NDBY JMPSTANDBY.."<.;-IRQON-------------
-------------.."F.IRQON SEI.."P. LDA#00;
SYSTEM-IRQ.K"Z. STA$DC0E;AUSSCHALTEN.."D
. STA16383;BILDSCHIRMRAHMENZEICHEN LOESC
HEN..#N. LDA#<(IRQ)..#X. STAIRQL.'#.. LD
A#>(IRQ).4#.. STAIRQH.A#.. LDA#249.M# .
STARZI.Y#.. LDA#01.E#.. STAIMR.Q#.. LDAS
R1.~#H. AND#127..#R. STASR1..#.. CLI..#.
. RTS.B#..;-SETSPRS---------------------
---..#..SETSPRS LDX#00;SPRITEKOORDINATEN
SETZEN..$..SETLOOP1 LDATAB1,X..$.. STAV
IC,X..$.. INX.($". CPX#17.9$,. BNESETLOO
P1.F$6. LDA#255._$@. STAVIC+21;8 SPRITES
..$J. STAVIC+29;NACH X VERBREITERT..$T.
LDX#00;SPRITE-BLOECKE SETZEN..$^.SETLOOP
2 LDATAB2,X.I$H. STA2040,X.R$R. INX..$|.
CPX#08..$.. BNESETLOOP2..$.. LDX#00..%.
. LDA#255. %..SETLOOP3 STA$3FC0,X.)%.. I
NX.5%.. CPX#63.F%B. BNESETLOOP3.R%L. LDA
#00.`%V. STA$3FC0.N%.. STA$3FC1.|%.. STA
$3FC2..%.. RTS..%..;-IRQ----------------
------------.H%..IRQ LDA#19;AUF 24 ZEILE
N..%.. STASR1;UMSCHALTEN..%.. LDY#21;WAR
TESCHLEIFE..&&.LOOP1 DEY..&0. BNELOOP1.
&:. BIT02.K&D. LDX#21;21 BORDERZEILEN/BO
RDERSCHLEIFE.G&N.LOOP2 DECSR2;40 SPALTEN
.~&X. INCSR2;38 SPALTEN..&B. NOP..&L. NO
P..&V. NOP..&.. NOP..&.. NOP..&.. NOP..&
.. NOP.F&.. NOP.O&.. NOP.X&.. NOP..&F. N
OP..&P. NOP..&Z. NOP..&.. BIT02..'.. DEX
..'.. BNELOOP2./'.. LDA#27;AUF 25 ZEILEN
.F'.. STASR1;UMSCHALTEN.V'.. LDA#01;IRR.
K' . STAIRR;LOESCHEN..'*. NOP;EVENTUELLE
R SPRUNG..'4. NOP;ZU SCROLL-ROUTINE..'>
. NOP.T'H. JMP$FEBC;REGISTERWIEDER HERST
ELLEN..'R.TAB1 .BY241,250..'\. .BY41,250
..(F. .BY41+48,250..(P. .BY41+2*48,250.1
(Z. .BY41+3*48,250.E(.. .BY41+4*48,250.T
(.. .BY25,250.F(.. .BY25+48,250.R(.. .BY
193..(..TAB2 .BY255,255,255,255..(.. .BY
255,255,255,255...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL