PARA64.SOURCE
FILE INFORMATION
FILENAME(S): PARA64.SOURCE
FILE TYPE(S): SEQ
FILE SIZE: 9.5K
FIRST SEEN: 2025-11-30 01:13:15
APPEARS ON: 1 disk(s)
FILE HASH
64b412e41903dcd10d8834029ab7779abb22a22464d749fa7f1d8226e269b453
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10404 SEITE B | PARA64.SOURCE | SEQ | C64er | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |;...............| 00000010: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000020: C3 C3 C3 C3 C3 C3 C3 C3 0D 3B 20 20 20 47 45 4E |.........; GEN| 00000030: 4C 4F 43 20 50 41 52 41 4C 4C 41 58 49 4E 47 20 |LOC PARALLAXING | 00000040: 2F 20 50 41 52 41 4C 4C 41 58 44 45 4D 4F 0D 3B |/ PARALLAXDEMO.;| 00000050: 0D 3B 20 20 20 20 20 50 52 4F 47 52 41 4D 20 42 |.; PROGRAM B| 00000060: 59 20 4D 49 43 48 41 45 4C 20 53 54 52 45 4C 45 |Y MICHAEL STRELE| 00000070: 43 4B 49 0D 3B 0D 3B 43 4F 50 59 52 49 47 48 54 |CKI.;.;COPYRIGHT| 00000080: 20 42 59 20 4D 49 43 48 41 45 4C 20 53 54 52 45 | BY MICHAEL STRE| 00000090: 4C 45 43 4B 49 20 49 4E 20 31 39 39 34 0D 3B C3 |LECKI IN 1994.;.| 000000A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000000B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000000C0: C3 C3 C3 C3 C3 C3 0D 0D 0D 20 20 20 20 20 20 20 |......... | 000000D0: 20 20 2A 3D 20 24 30 39 30 30 0D 20 20 20 20 20 | *= $0900. | 000000E0: 20 20 20 20 4A 4D 50 20 53 54 41 52 54 0D 0D 46 | JMP START..F| 000000F0: 43 45 32 20 20 20 20 20 4C 44 41 20 23 24 38 31 |CE2 LDA #$81| 00000100: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000110: 43 30 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |C0D. LDA| 00000120: 20 23 24 32 46 0D 20 20 20 20 20 20 20 20 20 53 | #$2F. S| 00000130: 54 41 20 24 30 30 0D 20 20 20 20 20 20 20 20 20 |TA $00. | 00000140: 4C 44 41 20 23 24 33 37 0D 20 20 20 20 20 20 20 |LDA #$37. | 00000150: 20 20 53 54 41 20 24 30 31 0D 20 20 20 20 20 20 | STA $01. | 00000160: 20 20 20 4A 53 52 20 24 46 44 41 33 0D 20 20 20 | JSR $FDA3. | 00000170: 20 20 20 20 20 20 4C 44 58 20 23 24 31 46 0D 46 | LDX #$1F.F| 00000180: 43 45 34 20 20 20 20 20 4C 44 41 20 24 46 44 33 |CE4 LDA $FD3| 00000190: 30 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |0,X. STA| 000001A0: 20 24 30 33 31 34 2C 58 0D 20 20 20 20 20 20 20 | $0314,X. | 000001B0: 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 | DEX. B| 000001C0: 50 4C 20 46 43 45 34 0D 20 20 20 20 20 20 20 20 |PL FCE4. | 000001D0: 20 4A 4D 50 20 24 46 46 35 42 0D 0D 3B C3 C3 C3 | JMP $FF5B..;...| 000001E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000001F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000200: C3 C3 C3 C3 0D 0D 42 43 4F 4C 4F 55 52 20 20 3D |......BCOLOUR =| 00000210: 20 24 38 46 30 30 0D 48 49 4E 20 20 20 20 20 20 | $8F00.HIN | 00000220: 3D 20 24 46 36 0D 56 4F 52 20 20 20 20 20 20 3D |= $F6.VOR =| 00000230: 20 24 46 38 0D 0D 52 45 41 44 59 20 20 20 20 2E | $F8..READY .| 00000240: 42 59 54 45 20 30 0D 4C 49 4D 4F 56 45 20 20 20 |BYTE 0.LIMOVE | 00000250: 2E 42 59 54 45 20 30 0D 52 45 4D 4F 56 45 20 20 |.BYTE 0.REMOVE | 00000260: 20 2E 42 59 54 45 20 30 0D 44 31 36 20 20 20 20 | .BYTE 0.D16 | 00000270: 20 20 2E 42 59 54 45 20 30 0D 44 31 38 20 20 20 | .BYTE 0.D18 | 00000280: 20 20 20 2E 42 59 54 45 20 30 0D 43 4F 4C 54 41 | .BYTE 0.COLTA| 00000290: 4B 54 20 20 2E 42 59 54 45 20 30 0D 42 41 4E 4B |KT .BYTE 0.BANK| 000002A0: 20 20 20 20 20 2E 42 59 54 45 20 30 0D 53 43 52 | .BYTE 0.SCR| 000002B0: 32 20 20 20 20 20 2E 42 59 54 45 20 30 0D 53 43 |2 .BYTE 0.SC| 000002C0: 52 20 20 20 20 20 20 2E 42 59 54 45 20 30 0D 50 |R .BYTE 0.P| 000002D0: 53 45 55 20 20 20 20 20 2E 42 59 54 45 20 30 0D |SEU .BYTE 0.| 000002E0: 53 43 52 46 4C 41 47 20 20 2E 42 59 54 45 20 30 |SCRFLAG .BYTE 0| 000002F0: 0D 43 4F 4C 46 4C 41 47 20 20 2E 42 59 54 45 20 |.COLFLAG .BYTE | 00000300: 30 0D 0D 44 31 38 54 41 42 20 20 20 2E 42 59 54 |0..D18TAB .BYT| 00000310: 45 20 38 2C 24 31 43 0D 53 43 52 45 45 4E 54 41 |E 8,$1C.SCREENTA| 00000320: 42 20 2E 42 59 54 45 20 24 34 30 2C 24 34 34 0D |B .BYTE $40,$44.| 00000330: 0D 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |..;.............| 00000340: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000350: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 0D 0D 53 54 41 52 |............STAR| 00000360: 54 20 20 20 20 4A 53 52 20 46 43 45 32 20 20 20 |T JSR FCE2 | 00000370: 20 3B 49 4E 49 54 0D 20 20 20 20 20 20 20 20 20 | ;INIT. | 00000380: 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDA #$00. | 00000390: 20 20 53 54 41 20 24 44 30 31 31 0D 20 20 20 20 | STA $D011. | 000003A0: 20 20 20 20 20 53 54 41 20 24 44 30 32 30 0D 20 | STA $D020. | 000003B0: 20 20 20 20 20 20 20 20 54 41 58 0D 0D 41 30 20 | TAX..A0 | 000003C0: 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 | LDA #$00 | 000003D0: 20 20 3B 42 45 49 44 45 20 42 49 4C 44 53 43 48 | ;BEIDE BILDSCH| 000003E0: 49 52 4D 45 0D 41 31 20 20 20 20 20 20 20 53 54 |IRME.A1 ST| 000003F0: 41 20 24 34 30 30 30 2C 58 20 3B 4C 4F 45 53 43 |A $4000,X ;LOESC| 00000400: 48 45 4E 0D 20 20 20 20 20 20 20 20 20 49 4E 58 |HEN. INX| 00000410: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 41 31 |. BNE A1| 00000420: 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 31 |. INC A1| 00000430: 2B 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |+2. LDA | 00000440: 41 31 2B 32 0D 20 20 20 20 20 20 20 20 20 43 4D |A1+2. CM| 00000450: 50 20 23 24 34 38 0D 20 20 20 20 20 20 20 20 20 |P #$48. | 00000460: 42 43 43 20 41 30 0D 0D 20 20 20 20 20 20 20 20 |BCC A0.. | 00000470: 20 53 45 49 20 20 20 20 20 20 20 20 20 3B 53 45 | SEI ;SE| 00000480: 54 20 49 52 51 0D 20 20 20 20 20 20 20 20 20 4C |T IRQ. L| 00000490: 44 41 20 23 24 33 36 0D 20 20 20 20 20 20 20 20 |DA #$36. | 000004A0: 20 53 54 41 20 24 30 31 0D 20 20 20 20 20 20 20 | STA $01. | 000004B0: 20 20 4C 44 41 20 23 24 30 31 0D 20 20 20 20 20 | LDA #$01. | 000004C0: 20 20 20 20 53 54 41 20 24 44 30 31 41 0D 20 20 | STA $D01A. | 000004D0: 20 20 20 20 20 20 20 53 54 41 20 24 44 43 30 44 | STA $DC0D| 000004E0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C |. LDA #<| 000004F0: 49 52 51 0D 20 20 20 20 20 20 20 20 20 53 54 41 |IRQ. STA| 00000500: 20 24 30 33 31 34 0D 20 20 20 20 20 20 20 20 20 | $0314. | 00000510: 4C 44 41 20 23 3E 49 52 51 0D 20 20 20 20 20 20 |LDA #>IRQ. | 00000520: 20 20 20 53 54 41 20 24 30 33 31 35 0D 20 20 20 | STA $0315. | 00000530: 20 20 20 20 20 20 4C 44 41 20 23 24 46 43 0D 20 | LDA #$FC. | 00000540: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 | STA $D01| 00000550: 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |2. LDA #| 00000560: 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$00. STA| 00000570: 20 24 44 30 31 31 0D 20 20 20 20 20 20 20 20 20 | $D011. | 00000580: 4C 44 41 20 23 24 39 36 20 20 20 20 3B 42 41 4E |LDA #$96 ;BAN| 00000590: 4B 20 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |K 1. STA| 000005A0: 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 20 20 | $DD00. | 000005B0: 4A 53 52 20 50 41 52 41 49 4E 49 54 0D 20 20 20 |JSR PARAINIT. | 000005C0: 20 20 20 20 20 20 43 4C 49 0D 0D 0D 3B 44 49 52 | CLI...;DIR| 000005D0: 45 4B 54 4D 4F 44 55 53 0D 3B 42 45 52 45 43 48 |EKTMODUS.;BERECH| 000005E0: 4E 55 4E 47 20 56 4F 4E 20 43 4F 4C 4F 55 52 52 |NUNG VON COLOURR| 000005F0: 41 4D 20 55 4E 44 20 53 43 52 45 45 4E 20 28 21 |AM UND SCREEN (!| 00000600: 29 0D 0D 57 41 49 54 20 20 20 20 20 4C 44 41 20 |)..WAIT LDA | 00000610: 43 4F 4C 46 4C 41 47 20 20 20 20 3B 43 4F 4C 4F |COLFLAG ;COLO| 00000620: 55 52 52 41 4D 20 42 4C 49 54 54 0D 20 20 20 20 |URRAM BLITT. | 00000630: 20 20 20 20 20 42 45 51 20 58 0D 20 20 20 20 20 | BEQ X. | 00000640: 20 20 20 20 4A 53 52 20 43 4F 42 4C 49 54 0D 58 | JSR COBLIT.X| 00000650: 20 20 20 20 20 20 20 20 4C 44 41 20 53 43 52 46 | LDA SCRF| 00000660: 4C 41 47 20 20 20 20 3B 53 43 52 45 45 4E 20 42 |LAG ;SCREEN B| 00000670: 4C 49 54 54 45 4E 3F 0D 20 20 20 20 20 20 20 20 |LITTEN?. | 00000680: 20 42 45 51 20 57 41 49 54 0D 20 20 20 20 20 20 | BEQ WAIT. | 00000690: 20 20 20 4A 53 52 20 53 43 42 4C 49 54 0D 20 20 | JSR SCBLIT. | 000006A0: 20 20 20 20 20 20 20 4A 4D 50 20 57 41 49 54 0D | JMP WAIT.| 000006B0: 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.;..............| 000006C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000006D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 0D 0D 50 41 52 41 49 |...........PARAI| 000006E0: 4E 49 54 20 4C 44 41 20 23 24 30 38 20 20 20 20 |NIT LDA #$08 | 000006F0: 3B 52 45 47 49 53 54 45 52 49 4E 49 54 0D 20 20 |;REGISTERINIT. | 00000700: 20 20 20 20 20 20 20 53 54 41 20 50 53 45 55 0D | STA PSEU.| 00000710: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0| 00000720: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |0. STA D| 00000730: 31 36 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |16. STA | 00000740: 52 45 4D 4F 56 45 0D 20 20 20 20 20 20 20 20 20 |REMOVE. | 00000750: 53 54 41 20 4C 49 4D 4F 56 45 0D 20 20 20 20 20 |STA LIMOVE. | 00000760: 20 20 20 20 4C 44 41 20 23 24 34 30 0D 20 20 20 | LDA #$40. | 00000770: 20 20 20 20 20 20 53 54 41 20 53 43 52 32 0D 20 | STA SCR2. | 00000780: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 34 34 | LDA #$44| 00000790: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 43 |. STA SC| 000007A0: 52 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |R.. LDA | 000007B0: 23 3C 24 38 30 37 38 20 3B 53 54 41 52 54 50 4F |#<$8078 ;STARTPO| 000007C0: 53 49 54 49 4F 4E 0D 20 20 20 20 20 20 20 20 20 |SITION. | 000007D0: 53 54 41 20 48 49 4E 0D 20 20 20 20 20 20 20 20 |STA HIN. | 000007E0: 20 4C 44 41 20 23 3E 24 38 30 37 38 0D 20 20 20 | LDA #>$8078. | 000007F0: 20 20 20 20 20 20 53 54 41 20 48 49 4E 2B 31 0D | STA HIN+1.| 00000800: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 24 | LDA #<$| 00000810: 39 31 46 30 0D 20 20 20 20 20 20 20 20 20 53 54 |91F0. ST| 00000820: 41 20 56 4F 52 0D 20 20 20 20 20 20 20 20 20 4C |A VOR. L| 00000830: 44 41 20 23 3E 24 39 31 46 30 0D 20 20 20 20 20 |DA #>$91F0. | 00000840: 20 20 20 20 53 54 41 20 56 4F 52 2B 31 0D 0D 20 | STA VOR+1.. | 00000850: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 | LDY #$00| 00000860: 20 20 20 20 3B 53 43 52 45 45 4E 49 4E 49 54 0D | ;SCREENINIT.| 00000870: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 49 4E | JSR SIN| 00000880: 49 54 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |IT. JSR | 00000890: 53 43 42 4C 49 54 0D 20 20 20 20 20 20 20 20 20 |SCBLIT. | 000008A0: 4C 44 41 20 23 24 34 34 0D 20 20 20 20 20 20 20 |LDA #$44. | 000008B0: 20 20 53 54 41 20 53 43 52 32 0D 20 20 20 20 20 | STA SCR2. | 000008C0: 20 20 20 20 4C 44 41 20 23 24 34 30 0D 20 20 20 | LDA #$40. | 000008D0: 20 20 20 20 20 20 53 54 41 20 53 43 52 0D 20 20 | STA SCR. | 000008E0: 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D | LDY #$00.| 000008F0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 49 4E | JSR SIN| 00000900: 49 54 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |IT. JSR | 00000910: 53 43 42 4C 49 54 0D 20 20 20 20 20 20 20 20 20 |SCBLIT. | 00000920: 4A 53 52 20 43 4F 42 4C 49 54 0D 20 20 20 20 20 |JSR COBLIT. | 00000930: 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 | LDA #$00. | 00000940: 20 20 20 20 20 20 53 54 41 20 52 45 41 44 59 0D | STA READY.| 00000950: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0| 00000960: 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |7. STA $| 00000970: 30 35 0D 53 43 48 20 20 20 20 20 20 4A 53 52 20 |05.SCH JSR | 00000980: 52 45 44 4F 0D 20 20 20 20 20 20 20 20 20 4C 44 |REDO. LD| 00000990: 41 20 53 43 52 46 4C 41 47 0D 20 20 20 20 20 20 |A SCRFLAG. | 000009A0: 20 20 20 42 45 51 20 53 43 48 31 0D 20 20 20 20 | BEQ SCH1. | 000009B0: 20 20 20 20 20 4A 53 52 20 53 43 42 4C 49 54 0D | JSR SCBLIT.| 000009C0: 53 43 48 31 20 20 20 20 20 4C 44 41 20 43 4F 4C |SCH1 LDA COL| 000009D0: 46 4C 41 47 0D 20 20 20 20 20 20 20 20 20 42 45 |FLAG. BE| 000009E0: 51 20 53 43 48 32 0D 20 20 20 20 20 20 20 20 20 |Q SCH2. | 000009F0: 4A 53 52 20 43 4F 42 4C 49 54 0D 53 43 48 32 20 |JSR COBLIT.SCH2 | 00000A00: 20 20 20 20 44 45 43 20 24 30 35 0D 20 20 20 20 | DEC $05. | 00000A10: 20 20 20 20 20 42 50 4C 20 53 43 48 0D 20 20 20 | BPL SCH. | 00000A20: 20 20 20 20 20 20 4C 44 41 20 23 24 34 30 0D 20 | LDA #$40. | 00000A30: 20 20 20 20 20 20 20 20 53 54 41 20 53 43 52 32 | STA SCR2| 00000A40: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 00000A50: 34 34 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |44. STA | 00000A60: 53 43 52 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |SCR. LDA| 00000A70: 20 23 24 30 30 20 20 20 20 3B 4D 41 49 4E 46 4C | #$00 ;MAINFL| 00000A80: 41 47 20 49 4E 49 54 0D 20 20 20 20 20 20 20 20 |AG INIT. | 00000A90: 20 53 54 41 20 53 43 52 46 4C 41 47 0D 20 20 20 | STA SCRFLAG. | 00000AA0: 20 20 20 20 20 20 53 54 41 20 43 4F 4C 46 4C 41 | STA COLFLA| 00000AB0: 47 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 52 |G. STA R| 00000AC0: 45 41 44 59 0D 20 20 20 20 20 20 20 20 20 52 54 |EADY. RT| 00000AD0: 53 0D 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |S..;............| 00000AE0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000AF0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 0D 0D 53 43 42 |.............SCB| 00000B00: 4C 49 54 20 20 20 4C 44 58 20 23 31 37 20 20 20 |LIT LDX #17 | 00000B10: 20 20 3B 53 43 52 45 45 4E 20 42 4C 49 54 54 45 | ;SCREEN BLITTE| 00000B20: 4E 0D 53 43 48 37 20 20 20 20 20 4C 44 59 20 23 |N.SCH7 LDY #| 00000B30: 33 39 0D 56 4F 52 4E 45 20 20 20 20 4C 44 41 20 |39.VORNE LDA | 00000B40: 24 31 31 31 31 2C 59 0D 20 20 20 20 20 20 20 20 |$1111,Y. | 00000B50: 20 42 4E 45 20 53 43 52 45 45 4E 0D 48 49 4E 54 | BNE SCREEN.HINT| 00000B60: 45 4E 20 20 20 4C 44 41 20 24 31 31 31 31 2C 59 |EN LDA $1111,Y| 00000B70: 0D 53 43 52 45 45 4E 20 20 20 53 54 41 20 24 31 |.SCREEN STA $1| 00000B80: 31 31 31 2C 59 0D 20 20 20 20 20 20 20 20 20 44 |111,Y. D| 00000B90: 45 59 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 |EY. BPL | 00000BA0: 56 4F 52 4E 45 0D 0D 20 20 20 20 20 20 20 20 20 |VORNE.. | 00000BB0: 4C 44 41 20 56 4F 52 4E 45 2B 31 20 3B 4E 41 45 |LDA VORNE+1 ;NAE| 00000BC0: 43 48 53 54 45 20 5A 45 49 4C 45 4E 0D 20 20 20 |CHSTE ZEILEN. | 00000BD0: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00000BE0: 20 20 20 41 44 43 20 23 24 36 38 0D 20 20 20 20 | ADC #$68. | 00000BF0: 20 20 20 20 20 53 54 41 20 56 4F 52 4E 45 2B 31 | STA VORNE+1| 00000C00: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 4F |. LDA VO| 00000C10: 52 4E 45 2B 32 0D 20 20 20 20 20 20 20 20 20 41 |RNE+2. A| 00000C20: 44 43 20 23 24 30 31 0D 20 20 20 20 20 20 20 20 |DC #$01. | 00000C30: 20 53 54 41 20 56 4F 52 4E 45 2B 32 0D 0D 20 20 | STA VORNE+2.. | 00000C40: 20 20 20 20 20 20 20 4C 44 41 20 48 49 4E 54 45 | LDA HINTE| 00000C50: 4E 2B 31 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |N+1. CLC| 00000C60: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 |. ADC #$| 00000C70: 43 38 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |C8. STA | 00000C80: 48 49 4E 54 45 4E 2B 31 0D 20 20 20 20 20 20 20 |HINTEN+1. | 00000C90: 20 20 42 43 43 20 55 45 42 0D 20 20 20 20 20 20 | BCC UEB. | 00000CA0: 20 20 20 49 4E 43 20 48 49 4E 54 45 4E 2B 32 0D | INC HINTEN+2.| 00000CB0: 0D 55 45 42 20 20 20 20 20 20 4C 44 41 20 53 43 |.UEB LDA SC| 00000CC0: 52 45 45 4E 2B 31 0D 20 20 20 20 20 20 20 20 20 |REEN+1. | 00000CD0: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00000CE0: 20 23 24 32 38 0D 20 20 20 20 20 20 20 20 20 53 | #$28. S| 00000CF0: 54 41 20 53 43 52 45 45 4E 2B 31 0D 20 20 20 20 |TA SCREEN+1. | 00000D00: 20 20 20 20 20 42 43 43 20 55 45 42 31 0D 20 20 | BCC UEB1. | 00000D10: 20 20 20 20 20 20 20 49 4E 43 20 53 43 52 45 45 | INC SCREE| 00000D20: 4E 2B 32 0D 0D 55 45 42 31 20 20 20 20 20 44 45 |N+2..UEB1 DE| 00000D30: 58 20 20 20 20 20 20 20 20 20 3B 41 4C 4C 45 20 |X ;ALLE | 00000D40: 5A 45 49 4C 45 4E 3F 0D 20 20 20 20 20 20 20 20 |ZEILEN?. | 00000D50: 20 42 50 4C 20 53 43 48 37 0D 0D 20 20 20 20 20 | BPL SCH7.. | 00000D60: 20 20 20 20 4C 44 41 20 52 45 41 44 59 0D 20 20 | LDA READY. | 00000D70: 20 20 20 20 20 20 20 4F 52 41 20 23 24 30 31 0D | ORA #$01.| 00000D80: 20 20 20 20 20 20 20 20 20 53 54 41 20 52 45 41 | STA REA| 00000D90: 44 59 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D |DY. INX.| 00000DA0: 20 20 20 20 20 20 20 20 20 53 54 58 20 53 43 52 | STX SCR| 00000DB0: 46 4C 41 47 0D 4F 55 54 49 32 20 20 20 20 52 54 |FLAG.OUTI2 RT| 00000DC0: 53 0D 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |S..;............| 00000DD0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000DE0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 0D 0D 42 41 4E |.............BAN| 00000DF0: 4B 53 57 41 50 20 4C 44 41 20 43 4F 4C 46 4C 41 |KSWAP LDA COLFLA| 00000E00: 47 20 3B 53 43 52 45 45 4E 57 45 43 48 53 45 4C |G ;SCREENWECHSEL| 00000E10: 0D 20 20 20 20 20 20 20 20 20 4F 52 41 20 53 43 |. ORA SC| 00000E20: 52 46 4C 41 47 0D 20 20 20 20 20 20 20 20 20 42 |RFLAG. B| 00000E30: 4E 45 20 4F 55 54 49 32 0D 20 20 20 20 20 20 20 |NE OUTI2. | 00000E40: 20 20 4C 44 41 20 42 41 4E 4B 0D 20 20 20 20 20 | LDA BANK. | 00000E50: 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 | TAY. | 00000E60: 20 45 4F 52 20 23 24 30 31 0D 20 20 20 20 20 20 | EOR #$01. | 00000E70: 20 20 20 53 54 41 20 42 41 4E 4B 0D 20 20 20 20 | STA BANK. | 00000E80: 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 20 | TAX. | 00000E90: 20 20 4C 44 41 20 53 43 52 45 45 4E 54 41 42 2C | LDA SCREENTAB,| 00000EA0: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 |Y. STA S| 00000EB0: 43 52 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |CR. LDA | 00000EC0: 44 31 38 54 41 42 2C 58 0D 20 20 20 20 20 20 20 |D18TAB,X. | 00000ED0: 20 20 53 54 41 20 50 53 45 55 0D 20 20 20 20 20 | STA PSEU. | 00000EE0: 20 20 20 20 4C 44 41 20 53 43 52 45 45 4E 54 41 | LDA SCREENTA| 00000EF0: 42 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |B,X. STA| 00000F00: 20 53 43 52 32 0D 20 20 20 20 20 20 20 20 20 4C | SCR2. L| 00000F10: 44 41 20 23 24 30 31 20 20 20 20 3B 49 4D 50 55 |DA #$01 ;IMPU| 00000F20: 4C 53 20 43 4F 4C 4F 55 52 52 41 4D 0D 20 20 20 |LS COLOURRAM. | 00000F30: 20 20 20 20 20 20 53 54 41 20 43 4F 4C 46 4C 41 | STA COLFLA| 00000F40: 47 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D |G. RTS..| 00000F50: 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |;...............| 00000F60: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000F70: C3 C3 C3 C3 C3 C3 C3 C3 0D 0D 43 4F 42 4C 49 54 |..........COBLIT| 00000F80: 20 20 20 4C 44 41 20 53 43 52 32 20 20 20 20 3B | LDA SCR2 ;| 00000F90: 43 4F 4C 4F 55 52 52 41 4D 20 42 4C 49 54 54 45 |COLOURRAM BLITTE| 00000FA0: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4D |N. STA M| 00000FB0: 49 58 2B 32 0D 20 20 20 20 20 20 20 20 20 4F 52 |IX+2. OR| 00000FC0: 41 20 23 24 30 32 0D 20 20 20 20 20 20 20 20 20 |A #$02. | 00000FD0: 53 54 41 20 42 4C 4F 43 4B 32 2B 32 0D 20 20 20 |STA BLOCK2+2. | 00000FE0: 20 20 20 20 20 20 4C 44 41 20 23 24 44 38 0D 20 | LDA #$D8. | 00000FF0: 20 20 20 20 20 20 20 20 53 54 41 20 43 52 41 4D | STA CRAM| 00001000: 2B 32 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |+2. LDX | 00001010: 23 24 30 31 0D 20 20 20 20 20 20 20 20 20 53 54 |#$01. ST| 00001020: 58 20 24 30 32 0D 20 20 20 20 20 20 20 20 20 44 |X $02. D| 00001030: 45 58 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |EX. STX | 00001040: 43 4F 4C 54 41 4B 54 0D 4D 49 58 20 20 20 20 20 |COLTAKT.MIX | 00001050: 20 4C 44 59 20 24 34 30 30 30 2C 58 0D 20 20 20 | LDY $4000,X. | 00001060: 20 20 20 20 20 20 4C 44 41 20 42 43 4F 4C 4F 55 | LDA BCOLOU| 00001070: 52 2C 59 0D 43 52 41 4D 20 20 20 20 20 53 54 41 |R,Y.CRAM STA| 00001080: 20 24 44 38 30 30 2C 58 0D 20 20 20 20 20 20 20 | $D800,X. | 00001090: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 42 | INX. B| 000010A0: 4E 45 20 4D 49 58 0D 20 20 20 20 20 20 20 20 20 |NE MIX. | 000010B0: 49 4E 43 20 4D 49 58 2B 32 0D 20 20 20 20 20 20 |INC MIX+2. | 000010C0: 20 20 20 49 4E 43 20 43 52 41 4D 2B 32 0D 20 20 | INC CRAM+2. | 000010D0: 20 20 20 20 20 20 20 44 45 43 20 24 30 32 0D 20 | DEC $02. | 000010E0: 20 20 20 20 20 20 20 20 42 50 4C 20 4D 49 58 20 | BPL MIX | 000010F0: 20 20 20 20 3B 24 30 32 30 30 20 42 59 54 45 53 | ;$0200 BYTES| 00001100: 3F 0D 0D 42 4C 4F 43 4B 32 20 20 20 4C 44 59 20 |?..BLOCK2 LDY | 00001110: 24 34 32 30 30 2C 58 20 3B 52 45 53 54 4C 49 43 |$4200,X ;RESTLIC| 00001120: 48 45 20 24 44 30 0D 20 20 20 20 20 20 20 20 20 |HE $D0. | 00001130: 4C 44 41 20 42 43 4F 4C 4F 55 52 2C 59 0D 20 20 |LDA BCOLOUR,Y. | 00001140: 20 20 20 20 20 20 20 53 54 41 20 24 44 41 30 30 | STA $DA00| 00001150: 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D |,X. INX.| 00001160: 20 20 20 20 20 20 20 20 20 43 50 58 20 23 24 44 | CPX #$D| 00001170: 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 42 |0. BNE B| 00001180: 4C 4F 43 4B 32 0D 20 20 20 20 20 20 20 20 20 4C |LOCK2. L| 00001190: 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 |DA #$00. | 000011A0: 20 53 54 41 20 43 4F 4C 46 4C 41 47 0D 20 20 20 | STA COLFLAG. | 000011B0: 20 20 20 20 20 20 52 54 53 0D 0D 3B C3 C3 C3 C3 | RTS..;....| 000011C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000011D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000011E0: C3 C3 C3 0D 0D 53 49 4E 49 54 20 20 20 20 4C 44 |.....SINIT LD| 000011F0: 41 20 56 4F 52 20 20 20 20 20 3B 42 4C 49 54 52 |A VOR ;BLITR| 00001200: 4F 55 54 49 4E 45 4E 20 49 4E 49 54 0D 20 20 20 |OUTINEN INIT. | 00001210: 20 20 20 20 20 20 53 54 41 20 56 4F 52 4E 45 2B | STA VORNE+| 00001220: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 |1. LDA V| 00001230: 4F 52 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 |OR+1. ST| 00001240: 41 20 56 4F 52 4E 45 2B 32 0D 20 20 20 20 20 20 |A VORNE+2. | 00001250: 20 20 20 4C 44 41 20 48 49 4E 0D 20 20 20 20 20 | LDA HIN. | 00001260: 20 20 20 20 53 54 41 20 48 49 4E 54 45 4E 2B 31 | STA HINTEN+1| 00001270: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 48 49 |. LDA HI| 00001280: 4E 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |N+1. STA| 00001290: 20 48 49 4E 54 45 4E 2B 32 0D 20 20 20 20 20 20 | HINTEN+2. | 000012A0: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 000012B0: 20 20 20 20 20 53 54 41 20 53 43 52 45 45 4E 2B | STA SCREEN+| 000012C0: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 |1. LDA S| 000012D0: 43 52 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |CR. STA | 000012E0: 53 43 52 45 45 4E 2B 32 0D 20 20 20 20 20 20 20 |SCREEN+2. | 000012F0: 20 20 52 54 53 0D 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 | RTS..;........| 00001300: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001310: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 0D |................| 00001320: 3B 49 52 51 4D 4F 44 55 53 0D 3B 49 4D 50 55 4C |;IRQMODUS.;IMPUL| 00001330: 53 47 45 42 45 52 28 21 29 0D 0D 0D 49 52 51 20 |SGEBER(!)...IRQ | 00001340: 20 20 20 20 20 4C 44 41 20 23 24 30 46 20 20 20 | LDA #$0F | 00001350: 20 3B 4F 42 45 52 45 20 46 41 52 42 45 4E 0D 20 | ;OBERE FARBEN. | 00001360: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 | STA $D02| 00001370: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |1. LDA #| 00001380: 24 30 42 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$0B. STA| 00001390: 20 24 44 30 32 32 0D 20 20 20 20 20 20 20 20 20 | $D022. | 000013A0: 4C 44 41 20 23 24 30 43 0D 20 20 20 20 20 20 20 |LDA #$0C. | 000013B0: 20 20 53 54 41 20 24 44 30 32 33 0D 0D 20 20 20 | STA $D023.. | 000013C0: 20 20 20 20 20 20 4A 53 52 20 4D 4F 56 49 4E 47 | JSR MOVING| 000013D0: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 |.. LDA C| 000013E0: 4F 4C 54 41 4B 54 0D 20 20 20 20 20 20 20 20 20 |OLTAKT. | 000013F0: 43 4D 50 20 23 24 30 34 0D 20 20 20 20 20 20 20 |CMP #$04. | 00001400: 20 20 42 43 43 20 44 4F 46 46 0D 20 20 20 20 20 | BCC DOFF. | 00001410: 20 20 20 20 4C 44 41 20 23 24 30 31 20 20 20 20 | LDA #$01 | 00001420: 3B 49 4D 50 55 4C 53 20 43 4F 4C 4F 55 52 52 41 |;IMPULS COLOURRA| 00001430: 4D 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |M. STA C| 00001440: 4F 4C 46 4C 41 47 0D 44 4F 46 46 0D 20 20 20 20 |OLFLAG.DOFF. | 00001450: 20 20 20 20 20 4C 44 41 20 44 31 36 20 20 20 20 | LDA D16 | 00001460: 20 3B 44 31 36 20 53 4F 46 54 53 43 52 4F 4C 4C | ;D16 SOFTSCROLL| 00001470: 2D 3E 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |->. AND | 00001480: 23 24 30 34 20 20 20 20 3B 44 31 38 20 53 4F 46 |#$04 ;D18 SOF| 00001490: 54 53 43 52 4F 4C 4C 0D 20 20 20 20 20 20 20 20 |TSCROLL. | 000014A0: 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 | LSR A. | 000014B0: 4F 52 41 20 50 53 45 55 0D 20 20 20 20 20 20 20 |ORA PSEU. | 000014C0: 20 20 53 54 41 20 44 31 38 0D 0D 20 20 20 20 20 | STA D18.. | 000014D0: 20 20 20 20 4C 44 41 20 44 31 38 0D 20 20 20 20 | LDA D18. | 000014E0: 20 20 20 20 20 53 54 41 20 24 44 30 31 38 0D 20 | STA $D018. | 000014F0: 20 20 20 20 20 20 20 20 4C 44 41 20 44 31 36 0D | LDA D16.| 00001500: 20 20 20 20 20 20 20 20 20 4F 52 41 20 23 24 31 | ORA #$1| 00001510: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00001520: 44 30 31 36 0D 0D 20 20 20 20 20 20 20 20 20 4C |D016.. L| 00001530: 44 41 20 23 24 31 42 0D 20 20 20 20 20 20 20 20 |DA #$1B. | 00001540: 20 53 54 41 20 24 44 30 31 31 0D 20 20 20 20 20 | STA $D011. | 00001550: 20 20 20 20 4C 44 41 20 23 3C 49 52 51 31 0D 20 | LDA #<IRQ1. | 00001560: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 33 31 | STA $031| 00001570: 34 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |4. LDA #| 00001580: 3E 49 52 51 31 0D 20 20 20 20 20 20 20 20 20 53 |>IRQ1. S| 00001590: 54 41 20 24 30 33 31 35 0D 20 20 20 20 20 20 20 |TA $0315. | 000015A0: 20 20 4C 44 41 20 23 24 41 41 0D 20 20 20 20 20 | LDA #$AA. | 000015B0: 20 20 20 20 53 54 41 20 24 44 30 31 32 0D 20 20 | STA $D012. | 000015C0: 20 20 20 20 20 20 20 49 4E 43 20 24 44 30 31 39 | INC $D019| 000015D0: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 45 |. JMP $E| 000015E0: 41 38 31 0D 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |A81..;..........| 000015F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001600: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 0D 0D 49 |...............I| 00001610: 52 51 31 20 20 20 20 20 4C 44 58 20 23 24 30 33 |RQ1 LDX #$03| 00001620: 0D 58 31 20 20 20 20 20 20 20 44 45 58 0D 20 20 |.X1 DEX. | 00001630: 20 20 20 20 20 20 20 42 50 4C 20 58 31 0D 20 20 | BPL X1. | 00001640: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 44 20 | LDA #$0D | 00001650: 20 20 20 3B 55 4E 54 45 52 45 20 46 41 52 42 45 | ;UNTERE FARBE| 00001660: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |N. STA $| 00001670: 44 30 32 31 0D 20 20 20 20 20 20 20 20 20 4C 44 |D021. LD| 00001680: 41 20 23 24 30 39 0D 20 20 20 20 20 20 20 20 20 |A #$09. | 00001690: 53 54 41 20 24 44 30 32 32 0D 20 20 20 20 20 20 |STA $D022. | 000016A0: 20 20 20 4C 44 41 20 23 24 30 43 0D 20 20 20 20 | LDA #$0C. | 000016B0: 20 20 20 20 20 53 54 41 20 24 44 30 32 33 0D 0D | STA $D023..| 000016C0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 49 | LDA #<I| 000016D0: 52 51 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |RQ. STA | 000016E0: 24 30 33 31 34 0D 20 20 20 20 20 20 20 20 20 4C |$0314. L| 000016F0: 44 41 20 23 3E 49 52 51 0D 20 20 20 20 20 20 20 |DA #>IRQ. | 00001700: 20 20 53 54 41 20 24 30 33 31 35 0D 20 20 20 20 | STA $0315. | 00001710: 20 20 20 20 20 4C 44 41 20 23 24 46 43 0D 20 20 | LDA #$FC. | 00001720: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 32 | STA $D012| 00001730: 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 44 |. INC $D| 00001740: 30 31 39 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |019. JMP| 00001750: 20 24 45 41 38 31 0D 0D 3B C3 C3 C3 C3 C3 C3 C3 | $EA81..;.......| 00001760: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001770: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001780: 0D 0D 4D 4F 56 49 4E 47 20 20 20 4C 44 41 20 52 |..MOVING LDA R| 00001790: 45 4D 4F 56 45 0D 20 20 20 20 20 20 20 20 20 4F |EMOVE. O| 000017A0: 52 41 20 4C 49 4D 4F 56 45 0D 20 20 20 20 20 20 |RA LIMOVE. | 000017B0: 20 20 20 42 4E 45 20 41 42 46 52 41 47 45 0D 20 | BNE ABFRAGE. | 000017C0: 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4C 54 | LDA COLT| 000017D0: 41 4B 54 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |AKT. CMP| 000017E0: 20 23 24 30 32 0D 20 20 20 20 20 20 20 20 20 42 | #$02. B| 000017F0: 43 43 20 41 42 46 52 41 47 45 0D 20 20 20 20 20 |CC ABFRAGE. | 00001800: 20 20 20 20 49 4E 43 20 43 4F 4C 54 41 4B 54 0D | INC COLTAKT.| 00001810: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 3B C3 | RTS..;.| 00001820: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001830: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001840: C3 C3 C3 C3 C3 C3 0D 0D 4A 4F 59 53 54 49 43 4B |........JOYSTICK| 00001850: 20 4C 44 58 20 23 24 30 30 20 20 20 20 3B 4A 4F | LDX #$00 ;JO| 00001860: 59 53 54 49 43 4B 41 42 46 52 41 47 45 0D 20 20 |YSTICKABFRAGE. | 00001870: 20 20 20 20 20 20 20 53 54 58 20 4C 49 4D 4F 56 | STX LIMOV| 00001880: 45 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 52 |E. STX R| 00001890: 45 4D 4F 56 45 0D 20 20 20 20 20 20 20 20 20 49 |EMOVE. I| 000018A0: 4E 43 20 43 4F 4C 54 41 4B 54 0D 20 20 20 20 20 |NC COLTAKT. | 000018B0: 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 | INX. | 000018C0: 20 4C 44 41 20 23 24 46 46 0D 20 20 20 20 20 20 | LDA #$FF. | 000018D0: 20 20 20 53 54 41 20 24 44 43 30 30 0D 20 20 20 | STA $DC00. | 000018E0: 20 20 20 20 20 20 4C 44 41 20 24 44 43 30 30 0D | LDA $DC00.| 000018F0: 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 | LSR A. | 00001900: 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 | LSR A. | 00001910: 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 | LSR A. | 00001920: 20 20 20 20 20 20 42 43 53 20 43 4C 49 58 0D 20 | BCS CLIX. | 00001930: 20 20 20 20 20 20 20 20 53 54 58 20 4C 49 4D 4F | STX LIMO| 00001940: 56 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |VE. LDY | 00001950: 23 24 30 30 0D 43 4C 49 58 20 20 20 20 20 4C 53 |#$00.CLIX LS| 00001960: 52 20 41 0D 20 20 20 20 20 20 20 20 20 42 43 53 |R A. BCS| 00001970: 20 4E 4F 4A 4F 59 0D 20 20 20 20 20 20 20 20 20 | NOJOY. | 00001980: 53 54 58 20 52 45 4D 4F 56 45 0D 20 20 20 20 20 |STX REMOVE. | 00001990: 20 20 20 20 4C 44 59 20 23 24 30 31 0D 4E 4F 4A | LDY #$01.NOJ| 000019A0: 4F 59 20 20 20 20 52 54 53 0D 0D 3B C3 C3 C3 C3 |OY RTS..;....| 000019B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000019C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000019D0: C3 C3 C3 0D 0D 41 42 46 52 41 47 45 20 20 4A 53 |.....ABFRAGE JS| 000019E0: 52 20 4A 4F 59 53 54 49 43 4B 0D 20 20 20 20 20 |R JOYSTICK. | 000019F0: 20 20 20 20 4C 44 41 20 52 45 4D 4F 56 45 20 20 | LDA REMOVE | 00001A00: 3B 4A 4F 59 53 54 49 43 4B 2D 41 4B 54 49 4F 4E |;JOYSTICK-AKTION| 00001A10: 3F 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 52 |?. BNE R| 00001A20: 45 44 4F 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |EDO. LDA| 00001A30: 20 4C 49 4D 4F 56 45 0D 20 20 20 20 20 20 20 20 | LIMOVE. | 00001A40: 20 42 4E 45 20 4C 49 44 4F 30 0D 20 20 20 20 20 | BNE LIDO0. | 00001A50: 20 20 20 20 52 54 53 0D 4C 49 44 4F 30 20 20 20 | RTS.LIDO0 | 00001A60: 20 4A 4D 50 20 4C 49 44 4F 0D 0D 3B C3 C3 C3 C3 | JMP LIDO..;....| 00001A70: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001A80: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001A90: C3 C3 C3 0D 0D 52 45 44 4F 20 20 20 20 20 4C 44 |.....REDO LD| 00001AA0: 41 20 52 45 41 44 59 20 20 20 3B 52 45 43 48 54 |A READY ;RECHT| 00001AB0: 53 20 53 43 52 4F 4C 4C 45 4E 0D 20 20 20 20 20 |S SCROLLEN. | 00001AC0: 20 20 20 20 42 4D 49 20 4F 4E 4E 49 0D 20 20 20 | BMI ONNI. | 00001AD0: 20 20 20 20 20 20 4C 44 41 20 23 24 38 30 0D 20 | LDA #$80. | 00001AE0: 20 20 20 20 20 20 20 20 53 54 41 20 52 45 41 44 | STA READ| 00001AF0: 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 |Y. LDA B| 00001B00: 41 4E 4B 0D 20 20 20 20 20 20 20 20 20 42 45 51 |ANK. BEQ| 00001B10: 20 4F 55 54 49 0D 20 20 20 20 20 20 20 20 20 49 | OUTI. I| 00001B20: 4E 43 20 48 49 4E 0D 20 20 20 20 20 20 20 20 20 |NC HIN. | 00001B30: 42 4E 45 20 4F 55 54 49 0D 20 20 20 20 20 20 20 |BNE OUTI. | 00001B40: 20 20 49 4E 43 20 48 49 4E 2B 31 0D 4F 55 54 49 | INC HIN+1.OUTI| 00001B50: 20 20 20 20 20 52 54 53 0D 0D 0D 4F 4E 4E 49 20 | RTS...ONNI | 00001B60: 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 | TAY. | 00001B70: 20 4C 44 41 20 53 43 52 46 4C 41 47 0D 20 20 20 | LDA SCRFLAG. | 00001B80: 20 20 20 20 20 20 4F 52 41 20 43 4F 4C 46 4C 41 | ORA COLFLA| 00001B90: 47 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 4C |G. BNE L| 00001BA0: 49 4E 4B 53 0D 20 20 20 20 20 20 20 20 20 54 59 |INKS. TY| 00001BB0: 41 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 |A. AND #| 00001BC0: 24 30 31 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |$01. BNE| 00001BD0: 20 4C 49 4E 4B 53 0D 20 20 20 20 20 20 20 20 20 | LINKS. | 00001BE0: 4C 44 41 20 23 24 30 31 20 20 20 20 3B 49 4D 50 |LDA #$01 ;IMP| 00001BF0: 55 4C 53 20 53 43 52 45 45 4E 0D 20 20 20 20 20 |ULS SCREEN. | 00001C00: 20 20 20 20 53 54 41 20 53 43 52 46 4C 41 47 0D | STA SCRFLAG.| 00001C10: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 49 4E | JSR SIN| 00001C20: 49 54 0D 0D 4C 49 4E 4B 53 20 20 20 20 4C 44 41 |IT..LINKS LDA| 00001C30: 20 56 4F 52 20 20 20 20 20 3B 52 45 43 48 54 45 | VOR ;RECHTE| 00001C40: 53 20 45 4E 44 45 3F 0D 20 20 20 20 20 20 20 20 |S ENDE?. | 00001C50: 20 43 4D 50 20 23 24 34 32 0D 20 20 20 20 20 20 | CMP #$42. | 00001C60: 20 20 20 42 4E 45 20 44 4F 4C 49 4E 4B 53 0D 20 | BNE DOLINKS. | 00001C70: 20 20 20 20 20 20 20 20 4C 44 41 20 56 4F 52 2B | LDA VOR+| 00001C80: 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |1. CMP #| 00001C90: 24 39 32 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |$92. BNE| 00001CA0: 20 44 4F 4C 49 4E 4B 53 0D 20 20 20 20 20 20 20 | DOLINKS. | 00001CB0: 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 | LDA #$00. | 00001CC0: 20 20 20 20 53 54 41 20 52 45 4D 4F 56 45 0D 20 | STA REMOVE. | 00001CD0: 20 20 20 20 20 20 20 20 52 54 53 0D 0D 44 4F 4C | RTS..DOL| 00001CE0: 49 4E 4B 53 20 20 4C 44 41 20 44 31 36 20 20 20 |INKS LDA D16 | 00001CF0: 20 20 3B 53 4F 46 54 53 43 52 4F 4C 4C 0D 20 20 | ;SOFTSCROLL. | 00001D00: 20 20 20 20 20 20 20 42 4E 45 20 44 4F 4F 4C 0D | BNE DOOL.| 00001D10: 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 | TAY. | 00001D20: 20 20 20 20 20 20 4C 44 41 20 53 43 52 46 4C 41 | LDA SCRFLA| 00001D30: 47 0D 20 20 20 20 20 20 20 20 20 4F 52 41 20 43 |G. ORA C| 00001D40: 4F 4C 46 4C 41 47 0D 20 20 20 20 20 20 20 20 20 |OLFLAG. | 00001D50: 42 4E 45 20 4F 55 54 49 0D 20 20 20 20 20 20 20 |BNE OUTI. | 00001D60: 20 20 54 59 41 0D 44 4F 4F 4C 20 20 20 20 20 53 | TYA.DOOL S| 00001D70: 45 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 |EC. SBC | 00001D80: 23 24 30 32 0D 20 20 20 20 20 20 20 20 20 41 4E |#$02. AN| 00001D90: 44 20 23 24 30 37 0D 20 20 20 20 20 20 20 20 20 |D #$07. | 00001DA0: 53 54 41 20 44 31 36 0D 20 20 20 20 20 20 20 20 |STA D16. | 00001DB0: 20 43 4D 50 20 23 24 30 36 0D 20 20 20 20 20 20 | CMP #$06. | 00001DC0: 20 20 20 42 45 51 20 52 48 41 52 44 0D 20 20 20 | BEQ RHARD. | 00001DD0: 20 20 20 20 20 20 52 54 53 0D 0D 0D 52 48 41 52 | RTS...RHAR| 00001DE0: 44 20 20 20 20 4C 44 41 20 52 45 41 44 59 20 20 |D LDA READY | 00001DF0: 20 3B 48 41 52 44 53 43 52 4F 4C 4C 3F 0D 20 20 | ;HARDSCROLL?. | 00001E00: 20 20 20 20 20 20 20 41 4E 44 20 23 24 30 31 0D | AND #$01.| 00001E10: 20 20 20 20 20 20 20 20 20 42 45 51 20 42 4B 33 | BEQ BK3| 00001E20: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 43 |. LDA SC| 00001E30: 52 46 4C 41 47 0D 20 20 20 20 20 20 20 20 20 4F |RFLAG. O| 00001E40: 52 41 20 43 4F 4C 46 4C 41 47 0D 20 20 20 20 20 |RA COLFLAG. | 00001E50: 20 20 20 20 42 4E 45 20 42 4B 33 0D 20 20 20 20 | BNE BK3. | 00001E60: 20 20 20 20 20 49 4E 43 20 56 4F 52 0D 20 20 20 | INC VOR. | 00001E70: 20 20 20 20 20 20 42 4E 45 20 42 4B 31 0D 20 20 | BNE BK1. | 00001E80: 20 20 20 20 20 20 20 49 4E 43 20 56 4F 52 2B 31 | INC VOR+1| 00001E90: 0D 42 4B 31 20 20 20 20 20 20 4C 44 41 20 42 41 |.BK1 LDA BA| 00001EA0: 4E 4B 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |NK. BNE | 00001EB0: 42 4B 32 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |BK2. INC| 00001EC0: 20 48 49 4E 0D 20 20 20 20 20 20 20 20 20 42 4E | HIN. BN| 00001ED0: 45 20 42 4B 32 0D 20 20 20 20 20 20 20 20 20 49 |E BK2. I| 00001EE0: 4E 43 20 48 49 4E 2B 31 0D 42 4B 32 20 20 20 20 |NC HIN+1.BK2 | 00001EF0: 20 20 4C 44 41 20 23 24 38 30 0D 20 20 20 20 20 | LDA #$80. | 00001F00: 20 20 20 20 53 54 41 20 52 45 41 44 59 0D 20 20 | STA READY. | 00001F10: 20 20 20 20 20 20 20 4A 4D 50 20 42 41 4E 4B 53 | JMP BANKS| 00001F20: 57 41 50 0D 0D 42 4B 33 20 20 20 20 20 20 4C 44 |WAP..BK3 LD| 00001F30: 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |A #$00. | 00001F40: 53 54 41 20 44 31 36 0D 20 20 20 20 20 20 20 20 |STA D16. | 00001F50: 20 52 54 53 0D 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 | RTS..;.........| 00001F60: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00001F70: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 0D 0D |................| 00001F80: 4C 49 44 4F 20 20 20 20 20 4C 44 41 20 52 45 41 |LIDO LDA REA| 00001F90: 44 59 20 20 20 3B 4C 49 4E 4B 53 20 53 43 52 4F |DY ;LINKS SCRO| 00001FA0: 4C 4C 45 4E 0D 20 20 20 20 20 20 20 20 20 42 50 |LLEN. BP| 00001FB0: 4C 20 42 55 4D 31 0D 20 20 20 20 20 20 20 20 20 |L BUM1. | 00001FC0: 4C 44 41 20 42 41 4E 4B 0D 20 20 20 20 20 20 20 |LDA BANK. | 00001FD0: 20 20 42 45 51 20 42 55 4D 0D 20 20 20 20 20 20 | BEQ BUM. | 00001FE0: 20 20 20 4C 44 41 20 48 49 4E 0D 20 20 20 20 20 | LDA HIN. | 00001FF0: 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 | SEC. | 00002000: 20 53 42 43 20 23 24 30 31 0D 20 20 20 20 20 20 | SBC #$01. | 00002010: 20 20 20 53 54 41 20 48 49 4E 0D 20 20 20 20 20 | STA HIN. | 00002020: 20 20 20 20 42 43 53 20 42 55 4D 0D 20 20 20 20 | BCS BUM. | 00002030: 20 20 20 20 20 44 45 43 20 48 49 4E 2B 31 0D 42 | DEC HIN+1.B| 00002040: 55 4D 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 |UM LDA #$00| 00002050: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 52 45 |. STA RE| 00002060: 41 44 59 0D 20 20 20 20 20 20 20 20 20 52 54 53 |ADY. RTS| 00002070: 0D 0D 42 55 4D 31 20 20 20 20 20 4C 44 59 20 53 |..BUM1 LDY S| 00002080: 43 52 46 4C 41 47 0D 20 20 20 20 20 20 20 20 20 |CRFLAG. | 00002090: 42 4E 45 20 52 45 43 48 54 53 0D 20 20 20 20 20 |BNE RECHTS. | 000020A0: 20 20 20 20 41 4E 44 20 23 24 30 31 0D 20 20 20 | AND #$01. | 000020B0: 20 20 20 20 20 20 42 4E 45 20 52 45 43 48 54 53 | BNE RECHTS| 000020C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 |. LDY #$| 000020D0: 30 31 20 20 20 20 3B 49 4D 50 55 4C 53 20 53 43 |01 ;IMPULS SC| 000020E0: 52 45 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |REEN. ST| 000020F0: 59 20 53 43 52 46 4C 41 47 0D 20 20 20 20 20 20 |Y SCRFLAG. | 00002100: 20 20 20 4A 53 52 20 53 49 4E 49 54 0D 20 20 20 | JSR SINIT. | 00002110: 20 20 20 20 20 20 4A 53 52 20 53 45 54 4C 0D 0D | JSR SETL..| 00002120: 52 45 43 48 54 53 20 20 20 4C 44 41 20 56 4F 52 |RECHTS LDA VOR| 00002130: 20 20 20 20 20 3B 4C 49 4E 4B 45 53 20 45 4E 44 | ;LINKES END| 00002140: 45 3F 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |E?. BNE | 00002150: 44 4F 52 45 43 48 54 53 0D 20 20 20 20 20 20 20 |DORECHTS. | 00002160: 20 20 4C 44 41 20 56 4F 52 2B 31 0D 20 20 20 20 | LDA VOR+1. | 00002170: 20 20 20 20 20 43 4D 50 20 23 24 39 31 0D 20 20 | CMP #$91. | 00002180: 20 20 20 20 20 20 20 42 4E 45 20 44 4F 52 45 43 | BNE DOREC| 00002190: 48 54 53 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |HTS. LDA| 000021A0: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 | #$00. S| 000021B0: 54 41 20 4C 49 4D 4F 56 45 0D 4F 55 54 49 31 20 |TA LIMOVE.OUTI1 | 000021C0: 20 20 20 52 54 53 0D 0D 0D 44 4F 52 45 43 48 54 | RTS...DORECHT| 000021D0: 53 20 4C 44 41 20 44 31 36 20 20 20 20 20 3B 53 |S LDA D16 ;S| 000021E0: 4F 46 54 53 43 52 4F 4C 4C 0D 20 20 20 20 20 20 |OFTSCROLL. | 000021F0: 20 20 20 43 4D 50 20 23 24 30 36 0D 20 20 20 20 | CMP #$06. | 00002200: 20 20 20 20 20 42 4E 45 20 53 43 48 38 0D 20 20 | BNE SCH8. | 00002210: 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 | TAY. | 00002220: 20 20 20 20 4C 44 41 20 53 43 52 46 4C 41 47 0D | LDA SCRFLAG.| 00002230: 20 20 20 20 20 20 20 20 20 4F 52 41 20 43 4F 4C | ORA COL| 00002240: 46 4C 41 47 0D 20 20 20 20 20 20 20 20 20 42 4E |FLAG. BN| 00002250: 45 20 4F 55 54 49 31 0D 20 20 20 20 20 20 20 20 |E OUTI1. | 00002260: 20 54 59 41 0D 53 43 48 38 20 20 20 20 20 43 4C | TYA.SCH8 CL| 00002270: 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |C. ADC #| 00002280: 24 30 32 0D 20 20 20 20 20 20 20 20 20 41 4E 44 |$02. AND| 00002290: 20 23 24 30 37 0D 20 20 20 20 20 20 20 20 20 53 | #$07. S| 000022A0: 54 41 20 44 31 36 0D 20 20 20 20 20 20 20 20 20 |TA D16. | 000022B0: 42 45 51 20 4C 48 41 52 44 0D 20 20 20 20 20 20 |BEQ LHARD. | 000022C0: 20 20 20 52 54 53 0D 0D 4C 48 41 52 44 20 20 20 | RTS..LHARD | 000022D0: 20 4C 44 41 20 52 45 41 44 59 20 20 20 3B 48 41 | LDA READY ;HA| 000022E0: 52 44 53 43 52 4F 4C 4C 3F 0D 20 20 20 20 20 20 |RDSCROLL?. | 000022F0: 20 20 20 41 4E 44 20 23 24 30 31 0D 20 20 20 20 | AND #$01. | 00002300: 20 20 20 20 20 42 45 51 20 54 55 46 46 59 0D 20 | BEQ TUFFY. | 00002310: 20 20 20 20 20 20 20 20 4C 44 41 20 53 43 52 46 | LDA SCRF| 00002320: 4C 41 47 0D 20 20 20 20 20 20 20 20 20 4F 52 41 |LAG. ORA| 00002330: 20 43 4F 4C 46 4C 41 47 0D 20 20 20 20 20 20 20 | COLFLAG. | 00002340: 20 20 42 4E 45 20 54 55 46 46 59 0D 0D 20 20 20 | BNE TUFFY.. | 00002350: 20 20 20 20 20 20 4C 44 41 20 56 4F 52 0D 20 20 | LDA VOR. | 00002360: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 00002370: 20 20 20 20 53 42 43 20 23 24 30 31 0D 20 20 20 | SBC #$01. | 00002380: 20 20 20 20 20 20 53 54 41 20 56 4F 52 0D 20 20 | STA VOR. | 00002390: 20 20 20 20 20 20 20 42 43 53 20 58 45 4E 49 0D | BCS XENI.| 000023A0: 20 20 20 20 20 20 20 20 20 44 45 43 20 56 4F 52 | DEC VOR| 000023B0: 2B 31 0D 58 45 4E 49 0D 20 20 20 20 20 20 20 20 |+1.XENI. | 000023C0: 20 4C 44 41 20 42 41 4E 4B 0D 20 20 20 20 20 20 | LDA BANK. | 000023D0: 20 20 20 42 4E 45 20 53 43 49 4E 49 0D 20 20 20 | BNE SCINI. | 000023E0: 20 20 20 20 20 20 4C 44 41 20 48 49 4E 0D 20 20 | LDA HIN. | 000023F0: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 00002400: 20 20 20 20 53 42 43 20 23 24 30 31 0D 20 20 20 | SBC #$01. | 00002410: 20 20 20 20 20 20 53 54 41 20 48 49 4E 0D 20 20 | STA HIN. | 00002420: 20 20 20 20 20 20 20 42 43 53 20 53 43 49 4E 49 | BCS SCINI| 00002430: 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 48 49 |. DEC HI| 00002440: 4E 2B 31 0D 53 43 49 4E 49 20 20 20 20 4C 44 41 |N+1.SCINI LDA| 00002450: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 | #$00. S| 00002460: 54 41 20 52 45 41 44 59 0D 20 20 20 20 20 20 20 |TA READY. | 00002470: 20 20 4A 4D 50 20 42 41 4E 4B 53 57 41 50 0D 0D | JMP BANKSWAP..| 00002480: 54 55 46 46 59 20 20 20 20 4C 44 41 20 23 24 30 |TUFFY LDA #$0| 00002490: 36 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |6. STA D| 000024A0: 31 36 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |16. RTS.| 000024B0: 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.;..............| 000024C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000024D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 0D 0D 53 45 54 4C 20 |...........SETL | 000024E0: 20 20 20 20 4C 44 41 20 56 4F 52 4E 45 2B 31 0D | LDA VORNE+1.| 000024F0: 20 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 | SEC. | 00002500: 20 20 20 20 20 20 53 42 43 20 23 24 30 32 0D 20 | SBC #$02. | 00002510: 20 20 20 20 20 20 20 20 53 54 41 20 56 4F 52 4E | STA VORN| 00002520: 45 2B 31 0D 20 20 20 20 20 20 20 20 20 42 43 53 |E+1. BCS| 00002530: 20 50 4F 50 4C 0D 20 20 20 20 20 20 20 20 20 44 | POPL. D| 00002540: 45 43 20 56 4F 52 4E 45 2B 32 0D 50 4F 50 4C 20 |EC VORNE+2.POPL | 00002550: 20 20 20 20 4C 44 41 20 42 41 4E 4B 0D 20 20 20 | LDA BANK. | 00002560: 20 20 20 20 20 20 42 4E 45 20 50 4F 53 54 59 0D | BNE POSTY.| 00002570: 20 20 20 20 20 20 20 20 20 4C 44 41 20 48 49 4E | LDA HIN| 00002580: 54 45 4E 2B 31 0D 20 20 20 20 20 20 20 20 20 53 |TEN+1. S| 00002590: 45 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 |EC. SBC | 000025A0: 23 24 30 31 0D 20 20 20 20 20 20 20 20 20 53 54 |#$01. ST| 000025B0: 41 20 48 49 4E 54 45 4E 2B 31 0D 20 20 20 20 20 |A HINTEN+1. | 000025C0: 20 20 20 20 42 43 53 20 50 4F 53 54 59 0D 20 20 | BCS POSTY. | 000025D0: 20 20 20 20 20 20 20 44 45 43 20 48 49 4E 54 45 | DEC HINTE| 000025E0: 4E 2B 32 0D 50 4F 53 54 59 20 20 20 20 52 54 53 |N+2.POSTY RTS| 000025F0: 0D 0D 3B C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |..;.............| 00002600: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00002610: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 0D 0D |............ |
;CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
.; GENLOC PARALLAXING / PARALLAXDEMO.;
.; PROGRAM BY MICHAEL STRELECKI.;.;C
OPYRIGHT BY MICHAEL STRELECKI IN 1994.;C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC..
. *= $0900. JMP START..F
CE2 LDA #$81. STA $DC0D.
LDA #$2F. STA $00.
LDA #$37. STA $01. JSR $
FDA3. LDX #$1F.FCE4 LDA $FD3
0,X. STA $0314,X. DEX.
BPL FCE4. JMP $FF5B..;CCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC..BC
OLOUR = $8F00.HIN = $F6.VOR =
$F8..READY .BYTE 0.LIMOVE .BYTE 0.
REMOVE .BYTE 0.D16 .BYTE 0.D18
.BYTE 0.COLTAKT .BYTE 0.BANK .BY
TE 0.SCR2 .BYTE 0.SCR .BYTE 0.P
SEU .BYTE 0.SCRFLAG .BYTE 0.COLFLAG
.BYTE 0..D18TAB .BYTE 8,$1C.SCREENTA
B .BYTE $40,$44...;CCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCC..START JSR FCE2
;INIT. LDA #$00. STA $D
011. STA $D020. TAX..A0
LDA #$00 ;BEIDE BILDSCHIRME.A1
STA $4000,X ;LOESCHEN. INX
. BNE A1. INC A1+2.
LDA A1+2. CMP #$48.
BCC A0.. SEI ;SET IRQ.
LDA #$36. STA $01.
LDA #$01. STA $D01A. S
TA $DC0D. LDA #<IRQ. STA
$0314. LDA #>IRQ. STA $
0315. LDA #$FC. STA $D01
2. LDA #$00. STA $D011.
LDA #$96 ;BANK 1. STA
$DD00. JSR PARAINIT. CL
I...;DIREKTMODUS.;BERECHNUNG VON COLOURR
AM UND SCREEN (!)..WAIT LDA COLFLAG
;COLOURRAM BLITT. BEQ X.
JSR COBLIT.X LDA SCRFLAG ;
SCREEN BLITTEN?. BEQ WAIT.
JSR SCBLIT. JMP WAIT..;CCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC..PARAI
NIT LDA #$08 ;REGISTERINIT. S
TA PSEU. LDA #$00. STA D
16. STA REMOVE. STA LIMO
VE. LDA #$40. STA SCR2.
LDA #$44. STA SCR..
LDA #<$8078 ;STARTPOSITION.
STA HIN. LDA #>$8078. ST
A HIN+1. LDA #<$91F0. ST
A VOR. LDA #>$91F0. STA
VOR+1.. LDY #$00 ;SCREENINIT.
JSR SINIT. JSR SCBLIT.
LDA #$44. STA SCR2.
LDA #$40. STA SCR. L
DY #$00. JSR SINIT. JSR
SCBLIT. JSR COBLIT. LDA
#$00. STA READY. LDA #$0
7. STA $05.SCH JSR REDO.
LDA SCRFLAG. BEQ SCH1.
JSR SCBLIT.SCH1 LDA COLFLAG.
BEQ SCH2. JSR COBLIT.SCH2
DEC $05. BPL SCH. LD
A #$40. STA SCR2. LDA #$
44. STA SCR. LDA #$00
;MAINFLAG INIT. STA SCRFLAG.
STA COLFLAG. STA READY.
RTS..;CCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCC..SCBLIT LDX #17 ;SCREE
N BLITTEN.SCH7 LDY #39.VORNE LDA
$1111,Y. BNE SCREEN.HINTEN LDA
$1111,Y.SCREEN STA $1111,Y. D
EY. BPL VORNE.. LDA VORN
E+1 ;NAECHSTE ZEILEN. CLC.
ADC #$68. STA VORNE+1.
LDA VORNE+2. ADC #$01.
STA VORNE+2.. LDA HINTEN+1.
CLC. ADC #$C8. STA
HINTEN+1. BCC UEB. INC H
INTEN+2..UEB LDA SCREEN+1.
CLC. ADC #$28. STA SCREE
N+1. BCC UEB1. INC SCREE
N+2..UEB1 DEX ;ALLE ZEILEN?.
BPL SCH7.. LDA READY.
ORA #$01. STA READY.
INX. STX SCRFLAG.OUTI2 RT
S..;CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCC..BANKSWAP LDA COLFLAG ;SCREENWECHSEL
. ORA SCRFLAG. BNE OUTI2
. LDA BANK. TAY.
EOR #$01. STA BANK. TAX
. LDA SCREENTAB,Y. STA S
CR. LDA D18TAB,X. STA PS
EU. LDA SCREENTAB,X. STA
SCR2. LDA #$01 ;IMPULS COLOU
RRAM. STA COLFLAG. RTS..
;CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
..COBLIT LDA SCR2 ;COLOURRAM BLITTE
N. STA MIX+2. ORA #$02.
STA BLOCK2+2. LDA #$D8.
STA CRAM+2. LDX #$01.
STX $02. DEX. STX
COLTAKT.MIX LDY $4000,X. LD
A BCOLOUR,Y.CRAM STA $D800,X.
INX. BNE MIX. INC MIX+
2. INC CRAM+2. DEC $02.
BPL MIX ;$0200 BYTES?..BLOCK
2 LDY $4200,X ;RESTLICHE $D0.
LDA BCOLOUR,Y. STA $DA00,X.
INX. CPX #$D0. BNE B
LOCK2. LDA #$00. STA COL
FLAG. RTS..;CCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCC..SINIT LDA VOR
;BLITROUTINEN INIT. STA VORNE+
1. LDA VOR+1. STA VORNE+
2. LDA HIN. STA HINTEN+1
. LDA HIN+1. STA HINTEN+
2. LDA #$00. STA SCREEN+
1. LDA SCR. STA SCREEN+2
. RTS..;CCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCC.;IRQMODUS.;IMPULSGEBER(!
)...IRQ LDA #$0F ;OBERE FARBEN.
STA $D021. LDA #$0B.
STA $D022. LDA #$0C.
STA $D023.. JSR MOVING..
LDA COLTAKT. CMP #$04.
BCC DOFF. LDA #$01 ;IMPULS
COLOURRAM. STA COLFLAG.DOFF.
LDA D16 ;D16 SOFTSCROLL->.
AND #$04 ;D18 SOFTSCROLL.
LSR A. ORA PSEU. STA D1
8.. LDA D18. STA $D018.
LDA D16. ORA #$10.
STA $D016.. LDA #$1B.
STA $D011. LDA #<IRQ1.
STA $0314. LDA #>IRQ1. S
TA $0315. LDA #$AA. STA
$D012. INC $D019. JMP $E
A81..;CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCC..IRQ1 LDX #$03.X1 DEX.
BPL X1. LDA #$0D ;UNTE
RE FARBEN. STA $D021. LD
A #$09. STA $D022. LDA #
$0C. STA $D023.. LDA #<I
RQ. STA $0314. LDA #>IRQ
. STA $0315. LDA #$FC.
STA $D012. INC $D019.
JMP $EA81..;CCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCC..MOVING LDA REMOVE.
ORA LIMOVE. BNE ABFRAGE.
LDA COLTAKT. CMP #$02.
BCC ABFRAGE. INC COLTAKT.
RTS..;CCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCC..JOYSTICK LDX #$00 ;JO
YSTICKABFRAGE. STX LIMOVE.
STX REMOVE. INC COLTAKT.
INX. LDA #$FF. STA $
DC00. LDA $DC00. LSR A.
LSR A. LSR A. BC
S CLIX. STX LIMOVE. LDY
#$00.CLIX LSR A. BCS NOJOY.
STX REMOVE. LDY #$01.NOJ
OY RTS..;CCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCC..ABFRAGE JSR JOYSTICK.
LDA REMOVE ;JOYSTICK-AKTION?.
BNE REDO. LDA LIMOVE.
BNE LIDO0. RTS.LIDO0 JMP LID
O..;CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCC..REDO LDA READY ;RECHTS SCROLL
EN. BMI ONNI. LDA #$80.
STA READY. LDA BANK.
BEQ OUTI. INC HIN.
BNE OUTI. INC HIN+1.OUTI RTS
...ONNI TAY. LDA SCRFLAG.
ORA COLFLAG. BNE LINKS.
TYA. AND #$01. BNE
LINKS. LDA #$01 ;IMPULS SCRE
EN. STA SCRFLAG. JSR SIN
IT..LINKS LDA VOR ;RECHTES ENDE?.
CMP #$42. BNE DOLINKS.
LDA VOR+1. CMP #$92.
BNE DOLINKS. LDA #$00.
STA REMOVE. RTS..DOLINKS LD
A D16 ;SOFTSCROLL. BNE DOOL.
TAY. LDA SCRFLAG.
ORA COLFLAG. BNE OUTI.
TYA.DOOL SEC. SBC #$02.
AND #$07. STA D16.
CMP #$06. BEQ RHARD. RT
S...RHARD LDA READY ;HARDSCROLL?.
AND #$01. BEQ BK3.
LDA SCRFLAG. ORA COLFLAG.
BNE BK3. INC VOR. BN
E BK1. INC VOR+1.BK1 LDA BA
NK. BNE BK2. INC HIN.
BNE BK2. INC HIN+1.BK2
LDA #$80. STA READY. J
MP BANKSWAP..BK3 LDA #$00.
STA D16. RTS..;CCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCC..LIDO LDA REA
DY ;LINKS SCROLLEN. BPL BUM1.
LDA BANK. BEQ BUM.
LDA HIN. SEC. SBC #$0
1. STA HIN. BCS BUM.
DEC HIN+1.BUM LDA #$00.
STA READY. RTS..BUM1 LDY S
CRFLAG. BNE RECHTS. AND
#$01. BNE RECHTS. LDY #$
01 ;IMPULS SCREEN. STY SCRFLA
G. JSR SINIT. JSR SETL..
RECHTS LDA VOR ;LINKES ENDE?.
BNE DORECHTS. LDA VOR+1.
CMP #$91. BNE DORECHTS.
LDA #$00. STA LIMOVE.OUTI1
RTS...DORECHTS LDA D16 ;SOFTSCROL
L. CMP #$06. BNE SCH8.
TAY. LDA SCRFLAG.
ORA COLFLAG. BNE OUTI1.
TYA.SCH8 CLC. ADC #$02.
AND #$07. STA D16.
BEQ LHARD. RTS..LHARD LDA REA
DY ;HARDSCROLL?. AND #$01.
BEQ TUFFY. LDA SCRFLAG.
ORA COLFLAG. BNE TUFFY..
LDA VOR. SEC. SBC
#$01. STA VOR. BCS XENI.
DEC VOR+1.XENI. LDA BAN
K. BNE SCINI. LDA HIN.
SEC. SBC #$01. ST
A HIN. BCS SCINI. DEC HI
N+1.SCINI LDA #$00. STA READY
. JMP BANKSWAP..TUFFY LDA #$0
6. STA D16. RTS..;CCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC..SETL
LDA VORNE+1. SEC. SB
C #$02. STA VORNE+1. BCS
POPL. DEC VORNE+2.POPL LDA
BANK. BNE POSTY. LDA HIN
TEN+1. SEC. SBC #$01.
STA HINTEN+1. BCS POSTY.
DEC HINTEN+2.POSTY RTS..;CCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC..
> CLICK IMAGE PREVIEW FOR FULL MODAL