/ 64'er 1989 September / 64er_Magazin_89-09_1989_Markt__Technik_de_Side_A.d64 / teil 4.listing 5

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| d8 1f 04 20 0a 00 2e 42 | 41 20 34 39 31 35 32 20 |... ...B|A 49152 |
|00000010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000020| 53 54 41 52 54 20 3d 20 | 34 39 31 35 32 00 33 20 |START = |49152.3 |
|00000030| 14 00 2e 47 4c 20 56 49 | 43 20 20 20 20 3d 20 24 |...GL VI|C    = $|
|00000040| 44 30 30 30 20 20 20 20 | 20 20 20 3b 56 49 43 2d |D000    |   ;VIC-|
|00000050| 42 41 53 49 53 41 44 52 | 45 53 53 45 00 5c 20 1e |BASISADR|ESSE.\ .|
|00000060| 00 2e 47 4c 20 49 52 51 | 56 45 43 20 3d 20 24 30 |..GL IRQ|VEC = $0|
|00000070| 33 31 34 20 20 20 20 20 | 20 20 3b 49 52 51 2d 56 |314     |  ;IRQ-V|
|00000080| 45 4b 54 4f 52 00 8b 20 | 28 00 2e 47 4c 20 49 52 |EKTOR.. |(..GL IR|
|00000090| 51 41 4c 54 20 3d 20 24 | 45 41 33 31 20 20 20 20 |QALT = $|EA31    |
|000000a0| 20 20 20 3b 41 4c 54 45 | 20 49 52 51 2d 52 4f 55 |   ;ALTE| IRQ-ROU|
|000000b0| 54 49 4e 45 00 b5 20 32 | 00 2e 47 4c 20 49 52 51 |TINE.. 2|..GL IRQ|
|000000c0| 45 4e 44 20 3d 20 24 46 | 45 42 43 20 20 20 20 20 |END = $F|EBC     |
|000000d0| 20 20 3b 49 52 51 20 42 | 45 45 4e 44 45 4e 00 e9 |  ;IRQ B|EENDEN..|
|000000e0| 20 3c 00 2e 47 4c 20 52 | 41 53 54 45 52 20 3d 20 | <..GL R|ASTER = |
|000000f0| 56 49 43 2b 31 38 20 20 | 20 20 20 20 3b 52 41 53 |VIC+18  |    ;RAS|
|00000100| 54 45 52 5a 45 49 4c 45 | 4e 2d 52 45 47 49 53 54 |TERZEILE|N-REGIST|
|00000110| 45 52 00 1a 21 46 00 2e | 47 4c 20 49 52 51 4d 41 |ER..!F..|GL IRQMA|
|00000120| 53 4b 3d 20 56 49 43 2b | 32 36 20 20 20 20 20 20 |SK= VIC+|26      |
|00000130| 3b 49 52 51 2d 4d 41 53 | 4b 45 4e 52 45 47 49 53 |;IRQ-MAS|KENREGIS|
|00000140| 54 45 52 00 4c 21 50 00 | 2e 47 4c 20 49 52 51 46 |TER.L!P.|.GL IRQF|
|00000150| 4c 41 47 3d 20 56 49 43 | 2b 32 35 20 20 20 20 20 |LAG= VIC|+25     |
|00000160| 20 3b 49 52 51 2d 52 45 | 51 55 45 53 54 52 45 47 | ;IRQ-RE|QUESTREG|
|00000170| 49 53 54 45 52 00 84 21 | 5a 00 2e 47 4c 20 48 49 |ISTER..!|Z..GL HI|
|00000180| 42 49 54 20 20 3d 20 56 | 49 43 2b 31 37 20 20 20 |BIT  = V|IC+17   |
|00000190| 20 20 20 3b 48 49 2d 42 | 49 54 20 56 4f 4d 20 52 |   ;HI-B|IT VOM R|
|000001a0| 41 53 54 45 52 52 45 47 | 49 53 54 45 52 00 b6 21 |ASTERREG|ISTER..!|
|000001b0| 64 00 2e 47 4c 20 53 50 | 52 4b 4f 4c 20 3d 20 56 |d..GL SP|RKOL = V|
|000001c0| 49 43 2b 33 30 20 20 20 | 20 20 20 3b 53 50 52 49 |IC+30   |   ;SPRI|
|000001d0| 54 45 2d 53 50 52 49 54 | 45 2d 4b 4f 4c 4c 2e 00 |TE-SPRIT|E-KOLL..|
|000001e0| ed 21 6e 00 2e 47 4c 20 | 53 43 52 4b 4f 4c 20 3d |.!n..GL |SCRKOL =|
|000001f0| 20 56 49 43 2b 33 31 20 | 20 20 20 20 20 3b 53 50 | VIC+31 |     ;SP|
|00000200| 52 49 54 45 2d 48 49 4e | 54 45 52 47 52 55 4e 44 |RITE-HIN|TERGRUND|
|00000210| 2d 4b 4f 4c 4c 2e 00 f3 | 21 e7 03 3b 00 19 22 e8 |-KOLL...|!..;..".|
|00000220| 03 49 4e 49 54 20 4a 53 | 52 4d 41 4b 45 53 50 52 |.INIT JS|RMAKESPR|
|00000230| 3b 53 50 52 49 54 45 2d | 47 45 4e 45 52 49 45 52 |;SPRITE-|GENERIER|
|00000240| 45 4e 00 2e 22 f2 03 20 | 53 45 49 3b 49 52 51 20 |EN..".. |SEI;IRQ |
|00000250| 53 50 45 52 52 45 4e 00 | 54 22 fc 03 20 4c 44 41 |SPERREN.|T".. LDA|
|00000260| 23 31 33 30 3b 53 50 52 | 49 54 45 2d 48 49 4e 54 |#130;SPR|ITE-HINT|
|00000270| 45 52 47 52 55 4e 44 2d | 4b 4f 4c 4c 2e 00 6e 22 |ERGRUND-|KOLL..n"|
|00000280| 06 04 20 53 54 41 49 52 | 51 4d 41 53 4b 3b 4d 41 |.. STAIR|QMASK;MA|
|00000290| 53 4b 49 45 52 45 4e 00 | 8c 22 10 04 20 4c 44 41 |SKIEREN.|.".. LDA|
|000002a0| 23 3c 28 49 52 51 4e 45 | 55 29 3b 49 52 51 2d 56 |#<(IRQNE|U);IRQ-V|
|000002b0| 45 4b 54 4f 52 00 a9 22 | 1a 04 20 4c 44 58 23 3e |EKTOR.."|.. LDX#>|
|000002c0| 28 49 52 51 4e 45 55 29 | 3b 56 45 52 42 49 45 47 |(IRQNEU)|;VERBIEG|
|000002d0| 45 4e 00 b8 22 24 04 20 | 53 54 41 49 52 51 56 45 |EN.."$. |STAIRQVE|
|000002e0| 43 00 c9 22 2e 04 20 53 | 54 58 49 52 51 56 45 43 |C..".. S|TXIRQVEC|
|000002f0| 2b 31 00 f0 22 38 04 20 | 4c 44 41 53 43 52 4b 4f |+1.."8. |LDASCRKO|
|00000300| 4c 3b 4b 4f 4c 4c 2e 2d | 52 45 47 49 53 54 45 52 |L;KOLL.-|REGISTER|
|00000310| 20 4c 4f 45 53 43 48 45 | 4e 00 14 23 42 04 20 4c | LOESCHE|N..#B. L|
|00000320| 44 41 49 52 51 46 4c 41 | 47 3b 49 52 51 2d 52 45 |DAIRQFLA|G;IRQ-RE|
|00000330| 51 55 45 53 54 52 45 47 | 49 53 54 45 52 00 2d 23 |QUESTREG|ISTER.-#|
|00000340| 4c 04 20 53 54 41 49 52 | 51 46 4c 41 47 3b 4c 4f |L. STAIR|QFLAG;LO|
|00000350| 45 53 43 48 45 4e 00 43 | 23 56 04 20 43 4c 49 3b |ESCHEN.C|#V. CLI;|
|00000360| 49 52 51 20 5a 55 4c 41 | 53 53 45 4e 00 5b 23 60 |IRQ ZULA|SSEN.[#`|
|00000370| 04 20 52 54 53 3b 55 4e | 44 20 5a 55 52 55 45 43 |. RTS;UN|D ZURUEC|
|00000380| 4b 2e 2e 2e 00 61 23 6a | 04 3b 00 8d 23 74 04 4d |K....a#j|.;..#t.M|
|00000390| 41 4b 45 53 50 52 20 4c | 44 58 23 36 32 3b 42 4c |AKESPR L|DX#62;BL|
|000003a0| 4f 43 4b 20 33 32 20 4d | 49 54 20 32 35 35 20 42 |OCK 32 M|IT 255 B|
|000003b0| 45 4c 45 47 45 4e 00 9a | 23 7e 04 20 4c 44 41 23 |ELEGEN..|#~. LDA#|
|000003c0| 32 35 35 00 ad 23 88 04 | 4c 4f 4f 50 20 53 54 41 |255..#..|LOOP STA|
|000003d0| 32 30 34 38 2c 58 00 b6 | 23 92 04 20 44 45 58 00 |2048,X..|#.. DEX.|
|000003e0| c3 23 9c 04 20 42 50 4c | 4c 4f 4f 50 00 e6 23 a6 |.#.. BPL|LOOP..#.|
|000003f0| 04 20 4c 44 41 23 33 32 | 3b 42 4c 4f 43 4b 20 33 |. LDA#32|;BLOCK 3|
|00000400| 32 20 46 55 45 52 20 53 | 50 52 49 54 45 20 30 00 |2 FUER S|PRITE 0.|
|00000410| fd 23 b0 04 20 53 54 41 | 32 30 34 30 3b 46 45 53 |.#.. STA|2040;FES|
|00000420| 54 4c 45 47 45 4e 00 19 | 24 ba 04 20 4c 44 41 23 |TLEGEN..|$.. LDA#|
|00000430| 31 3b 53 50 52 49 54 45 | 20 30 20 3d 20 57 45 49 |1;SPRITE| 0 = WEI|
|00000440| 53 53 00 28 24 c4 04 20 | 53 54 41 56 49 43 2b 33 |SS.($.. |STAVIC+3|
|00000450| 39 00 48 24 ce 04 20 4c | 44 41 23 31 36 30 3b 58 |9.H$.. L|DA#160;X|
|00000460| 2d 4b 4f 4f 52 44 49 4e | 41 54 45 20 3d 20 31 36 |-KOORDIN|ATE = 16|
|00000470| 30 00 54 24 d8 04 20 53 | 54 41 56 49 43 00 74 24 |0.T$.. S|TAVIC.t$|
|00000480| e2 04 20 4c 44 41 23 31 | 33 30 3b 59 2d 4b 4f 4f |.. LDA#1|30;Y-KOO|
|00000490| 52 44 49 4e 41 54 45 20 | 3d 20 31 33 30 00 82 24 |RDINATE |= 130..$|
|000004a0| ec 04 20 53 54 41 56 49 | 43 2b 31 00 a0 24 f6 04 |.. STAVI|C+1..$..|
|000004b0| 20 4c 44 41 23 30 3b 48 | 49 4c 46 53 42 49 54 53 | LDA#0;H|ILFSBITS|
|000004c0| 20 4c 4f 45 53 43 48 45 | 4e 00 af 24 00 05 20 53 | LOESCHE|N..$.. S|
|000004d0| 54 41 56 49 43 2b 31 36 | 00 cf 24 0a 05 20 4c 44 |TAVIC+16|..$.. LD|
|000004e0| 41 23 31 3b 53 50 52 49 | 54 45 20 30 20 45 49 4e |A#1;SPRI|TE 0 EIN|
|000004f0| 53 43 48 41 4c 54 45 4e | 00 de 24 14 05 20 53 54 |SCHALTEN|..$.. ST|
|00000500| 41 56 49 43 2b 32 31 00 | f6 24 1e 05 20 52 54 53 |AVIC+21.|.$.. RTS|
|00000510| 3b 55 4e 44 20 5a 55 52 | 55 45 43 4b 2e 2e 2e 00 |;UND ZUR|UECK....|
|00000520| fc 24 28 05 3b 00 26 25 | 32 05 49 52 51 4e 45 55 |.$(.;.&%|2.IRQNEU|
|00000530| 20 4c 44 41 49 52 51 46 | 4c 41 47 3b 49 52 51 2d | LDAIRQF|LAG;IRQ-|
|00000540| 52 45 51 55 45 53 54 52 | 45 47 49 53 54 45 52 00 |REQUESTR|EGISTER.|
|00000550| 3f 25 3c 05 20 53 54 41 | 49 52 51 46 4c 41 47 3b |?%<. STA|IRQFLAG;|
|00000560| 4c 4f 45 53 43 48 45 4e | 00 69 25 46 05 20 42 4d |LOESCHEN|.i%F. BM|
|00000570| 49 56 49 43 49 52 51 3b | 42 49 54 20 37 20 47 45 |IVICIRQ;|BIT 7 GE|
|00000580| 53 45 54 5a 54 2c 20 44 | 41 4e 4e 20 56 49 43 49 |SETZT, D|ANN VICI|
|00000590| 52 51 00 8f 25 50 05 20 | 4a 4d 50 49 52 51 41 4c |RQ..%P. |JMPIRQAL|
|000005a0| 54 3b 53 4f 4e 53 54 20 | 41 4c 54 45 20 49 52 51 |T;SONST |ALTE IRQ|
|000005b0| 2d 52 4f 55 54 49 4e 45 | 00 bc 25 5a 05 56 49 43 |-ROUTINE|..%Z.VIC|
|000005c0| 49 52 51 20 4c 44 41 53 | 43 52 4b 4f 4c 3b 4b 4f |IRQ LDAS|CRKOL;KO|
|000005d0| 4c 4c 2e 2d 52 45 47 49 | 53 54 45 52 20 4c 4f 45 |LL.-REGI|STER LOE|
|000005e0| 53 43 48 45 4e 00 dd 25 | 64 05 20 49 4e 43 31 30 |SCHEN..%|d. INC10|
|000005f0| 32 34 3b 31 30 32 34 20 | 49 4e 4b 52 45 4d 45 4e |24;1024 |INKREMEN|
|00000600| 54 49 45 52 45 4e 00 f8 | 25 6e 05 20 4a 4d 50 49 |TIEREN..|%n. JMPI|
|00000610| 52 51 45 4e 44 3b 49 52 | 51 20 42 45 45 4e 44 45 |RQEND;IR|Q BEENDE|
|00000620| 4e 00 00 00             |                         |N...    |        |
+--------+-------------------------+-------------------------+--------+--------+