B-COPPER 1.ASC
FILE INFORMATION
FILENAME(S): B-COPPER 1.ASC
FILE TYPE(S): SEQ
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 01:12:58
APPEARS ON: 1 disk(s)
FILE HASH
dfaa39ba1cc10276e7b2277e7cd48f61a1c7bc57632a0df266db250a9c74bfcb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10206 SEITE B | B-COPPER 1.ASC | SEQ | C64er | 8 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 3B 2A 2A 2A 2A 2A 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 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 2A 20 42 4F |*********.;** BO| 00000030: 52 44 45 52 2D 43 4F 50 50 45 52 42 41 52 53 20 |RDER-COPPERBARS | 00000040: 20 28 57 29 20 27 39 32 20 42 59 20 50 49 54 20 | (W) '92 BY PIT | 00000050: 2A 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |**.;************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 20 20 20 |***********.. | 00000080: 20 20 20 20 20 20 2A 3D 20 24 31 30 30 30 20 20 | *= $1000 | 00000090: 20 20 3B 53 54 41 52 54 41 44 52 45 53 53 45 20 | ;STARTADRESSE | 000000A0: 24 31 30 30 30 0D 0D 20 20 20 20 20 20 20 20 20 |$1000.. | 000000B0: 53 45 49 20 20 20 20 20 20 20 20 20 3B 49 52 51 |SEI ;IRQ| 000000C0: 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 | SETZEN. | 000000D0: 20 4C 44 41 20 23 3C 53 54 41 52 54 20 3B 56 45 | LDA #<START ;VE| 000000E0: 4B 54 4F 52 45 4E 0D 20 20 20 20 20 20 20 20 20 |KTOREN. | 000000F0: 53 54 41 20 24 30 33 31 34 20 20 20 3B 41 55 46 |STA $0314 ;AUF| 00000100: 20 45 49 47 45 4E 45 0D 20 20 20 20 20 20 20 20 | EIGENE. | 00000110: 20 4C 44 41 20 23 3E 53 54 41 52 54 20 3B 52 4F | LDA #>START ;RO| 00000120: 55 54 49 4E 45 0D 20 20 20 20 20 20 20 20 20 53 |UTINE. S| 00000130: 54 41 20 24 30 33 31 35 20 20 20 3B 56 45 52 42 |TA $0315 ;VERB| 00000140: 49 45 47 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 |IEGEN.. | 00000150: 4C 44 41 20 23 24 30 31 20 20 20 20 3B 4E 55 52 |LDA #$01 ;NUR| 00000160: 20 52 41 53 54 45 52 2D 49 52 51 0D 20 20 20 20 | RASTER-IRQ. | 00000170: 20 20 20 20 20 53 54 41 20 24 44 30 31 41 20 20 | STA $D01A | 00000180: 20 3B 5A 55 4C 41 53 53 45 4E 0D 0D 20 20 20 20 | ;ZULASSEN.. | 00000190: 20 20 20 20 20 4C 44 41 20 24 44 30 31 31 20 20 | LDA $D011 | 000001A0: 20 3B 59 2D 53 43 52 4F 4C 4C 20 52 45 47 49 53 | ;Y-SCROLL REGIS| 000001B0: 54 45 52 0D 20 20 20 20 20 20 20 20 20 41 4E 44 |TER. AND| 000001C0: 20 23 24 37 46 20 20 20 20 3B 41 55 46 20 4F 52 | #$7F ;AUF OR| 000001D0: 49 47 49 4E 41 4C 2D 57 45 52 54 0D 20 20 20 20 |IGINAL-WERT. | 000001E0: 20 20 20 20 20 53 54 41 20 24 44 30 31 31 20 20 | STA $D011 | 000001F0: 20 3B 53 45 54 5A 45 4E 0D 0D 20 20 20 20 20 20 | ;SETZEN.. | 00000200: 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 20 3B | LDA #$00 ;| 00000210: 47 48 4F 53 54 2D 42 59 54 45 0D 20 20 20 20 20 |GHOST-BYTE. | 00000220: 20 20 20 20 53 54 41 20 24 33 46 46 46 20 20 20 | STA $3FFF | 00000230: 3B 4C 4F 45 53 43 48 45 4E 0D 20 20 20 20 20 20 |;LOESCHEN. | 00000240: 20 20 20 43 4C 49 20 20 20 20 20 20 20 20 20 3B | CLI ;| 00000250: 49 52 51 2D 46 4C 41 47 20 4C 4F 45 53 43 48 45 |IRQ-FLAG LOESCHE| 00000260: 4E 0D 20 20 20 20 20 20 20 20 20 52 54 53 20 20 |N. RTS | 00000270: 20 20 20 20 20 20 20 3B 5A 55 52 55 45 43 4B 0D | ;ZURUECK.| 00000280: 0D 53 54 41 52 54 20 20 20 20 4C 44 41 20 24 44 |.START LDA $D| 00000290: 43 30 44 20 20 20 3B 49 52 51 20 56 4F 4E 20 44 |C0D ;IRQ VON D| 000002A0: 45 52 0D 20 20 20 20 20 20 20 20 20 42 4D 49 20 |ER. BMI | 000002B0: 42 4F 52 44 45 52 20 20 3B 43 49 41 20 4F 44 45 |BORDER ;CIA ODE| 000002C0: 52 20 56 4F 4D 20 56 49 43 3F 0D 20 20 20 20 20 |R VOM VIC?. | 000002D0: 20 20 20 20 4C 44 41 20 24 44 30 31 39 20 20 20 | LDA $D019 | 000002E0: 3B 49 52 52 20 4C 4F 45 53 43 48 45 4E 0D 20 20 |;IRR LOESCHEN. | 000002F0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 39 | STA $D019| 00000300: 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 4A 4D | ;. JM| 00000310: 50 20 24 45 41 38 31 20 20 20 3B 55 4E 44 20 5A |P $EA81 ;UND Z| 00000320: 55 4D 20 41 4C 54 45 4E 20 49 52 51 0D 0D 3B 2D |UM ALTEN IRQ..;-| 00000330: 2D 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D |-- --- --- --- -| 00000340: 2D 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D |-- --- --- --- -| 00000350: 2D 2D 20 2D 2D 2D 0D 42 4F 52 44 45 52 20 20 20 |-- ---.BORDER | 00000360: 4C 44 41 20 23 24 46 30 20 20 20 20 3B 52 41 53 |LDA #$F0 ;RAS| 00000370: 54 45 52 53 54 52 41 48 4C 20 41 55 46 0D 52 5A |TERSTRAHL AUF.RZ| 00000380: 59 31 20 20 20 20 20 43 4D 50 20 24 44 30 31 32 |Y1 CMP $D012| 00000390: 20 20 20 3B 50 4F 53 49 54 49 4F 4E 20 24 46 30 | ;POSITION $F0| 000003A0: 20 3F 3F 0D 20 20 20 20 20 20 20 20 20 42 4E 45 | ??. BNE| 000003B0: 20 52 5A 59 31 20 20 20 20 3B 0D 0D 20 20 20 20 | RZY1 ;.. | 000003C0: 20 20 20 20 20 4C 44 58 20 23 24 32 31 20 20 20 | LDX #$21 | 000003D0: 20 3B 57 41 52 54 45 53 43 48 4C 45 49 46 45 0D | ;WARTESCHLEIFE.| 000003E0: 52 5A 59 32 20 20 20 20 20 44 45 58 20 20 20 20 |RZY2 DEX | 000003F0: 20 20 20 20 20 3B 5A 55 4D 20 41 55 53 54 49 4D | ;ZUM AUSTIM| 00000400: 45 4E 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |EN. BNE | 00000410: 52 5A 59 32 20 20 20 20 3B 0D 0D 20 20 20 20 20 |RZY2 ;.. | 00000420: 20 20 20 20 4C 44 58 20 23 24 30 30 20 20 20 20 | LDX #$00 | 00000430: 3B 0D 52 5A 59 33 20 20 20 20 20 54 58 41 20 20 |;.RZY3 TXA | 00000440: 20 20 20 20 20 20 20 3B 41 4B 4B 55 0D 20 20 20 | ;AKKU. | 00000450: 20 20 20 20 20 20 41 4E 44 20 23 24 30 37 20 20 | AND #$07 | 00000460: 20 20 3B 56 45 52 4B 4E 55 45 50 46 45 4E 0D 20 | ;VERKNUEPFEN. | 00000470: 20 20 20 20 20 20 20 20 4F 52 41 20 23 24 31 38 | ORA #$18| 00000480: 20 20 20 20 3B 28 4B 45 49 4E 20 54 45 58 54 29 | ;(KEIN TEXT)| 00000490: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 43 4F |. LDY CO| 000004A0: 4C 4F 52 53 2C 58 3B 46 41 52 42 45 20 4C 41 44 |LORS,X;FARBE LAD| 000004B0: 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |EN. STA | 000004C0: 24 44 30 31 31 20 20 20 3B 56 45 52 4B 4E 55 45 |$D011 ;VERKNUE| 000004D0: 50 46 54 45 52 20 57 45 52 54 0D 20 20 20 20 20 |PFTER WERT. | 000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004F0: 3B 49 4E 20 24 44 30 31 31 20 53 43 48 52 45 49 |;IN $D011 SCHREI| 00000500: 42 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 59 |BEN. STY| 00000510: 20 24 44 30 32 30 20 20 20 3B 55 4E 44 20 46 41 | $D020 ;UND FA| 00000520: 52 42 45 4E 20 49 4E 0D 20 20 20 20 20 20 20 20 |RBEN IN. | 00000530: 20 53 54 59 20 24 44 30 32 31 20 20 20 3B 44 49 | STY $D021 ;DI| 00000540: 45 20 46 41 52 42 52 45 47 49 53 54 45 52 0D 20 |E FARBREGISTER. | 00000550: 20 20 20 20 20 20 20 20 4A 53 52 20 57 41 49 54 | JSR WAIT| 00000560: 20 20 20 20 3B 41 55 53 54 49 4D 45 4E 0D 20 20 | ;AUSTIMEN. | 00000570: 20 20 20 20 20 20 20 4A 53 52 20 57 41 49 54 20 | JSR WAIT | 00000580: 20 20 20 3B 41 55 53 54 49 4D 45 4E 0D 20 20 20 | ;AUSTIMEN. | 00000590: 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 20 20 | INX | 000005A0: 20 20 3B 0D 20 20 20 20 20 20 20 20 20 43 50 58 | ;. CPX| 000005B0: 20 23 24 32 38 20 20 20 20 3B 53 43 48 4F 4E 20 | #$28 ;SCHON | 000005C0: 41 4C 4C 45 20 46 41 52 42 45 4E 3F 0D 20 20 20 |ALLE FARBEN?. | 000005D0: 20 20 20 20 20 20 42 4E 45 20 52 5A 59 33 20 20 | BNE RZY3 | 000005E0: 20 20 3B 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 | ;.. LD| 000005F0: 41 20 23 24 30 30 20 20 20 20 3B 42 49 4C 44 53 |A #$00 ;BILDS| 00000600: 43 48 49 52 4D 0D 20 20 20 20 20 20 20 20 20 53 |CHIRM. S| 00000610: 54 41 20 24 44 30 32 30 20 20 20 3B 41 55 46 20 |TA $D020 ;AUF | 00000620: 53 43 48 57 41 52 5A 0D 20 20 20 20 20 20 20 20 |SCHWARZ. | 00000630: 20 53 54 41 20 24 44 30 32 31 20 20 20 3B 53 45 | STA $D021 ;SE| 00000640: 54 5A 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 4A |TZEN.. J| 00000650: 4D 50 20 24 45 41 33 31 20 20 20 3B 41 4C 54 45 |MP $EA31 ;ALTE| 00000660: 52 20 49 52 51 0D 0D 57 41 49 54 20 20 20 20 20 |R IRQ..WAIT | 00000670: 42 49 54 20 24 46 46 20 20 20 20 20 3B 33 20 5A |BIT $FF ;3 Z| 00000680: 59 4B 4C 45 4E 20 2B 0D 20 20 20 20 20 20 20 20 |YKLEN +. | 00000690: 20 4E 4F 50 20 20 20 20 20 20 20 20 20 3B 32 20 | NOP ;2 | 000006A0: 5A 59 4B 4C 45 4E 20 57 41 52 54 45 4E 0D 20 20 |ZYKLEN WARTEN. | 000006B0: 20 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 | RTS | 000006C0: 20 20 20 3B 55 4E 44 20 5A 55 52 55 45 43 4B 0D | ;UND ZURUECK.| 000006D0: 0D 3B 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D |.;--- --- --- --| 000006E0: 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D |- --- --- --- --| 000006F0: 2D 20 2D 2D 2D 20 2D 2D 2D 0D 43 4F 4C 4F 52 53 |- --- ---.COLORS| 00000700: 20 20 20 2E 42 59 54 45 20 24 30 36 2C 24 30 30 | .BYTE $06,$00| 00000710: 2C 24 30 36 2C 24 30 34 2C 24 30 30 2C 24 30 36 |,$06,$04,$00,$06| 00000720: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00000730: 24 30 34 2C 24 30 45 2C 24 30 33 2C 24 30 30 2C |$04,$0E,$03,$00,| 00000740: 24 30 36 2C 24 30 34 0D 20 20 20 20 20 20 20 20 |$06,$04. | 00000750: 20 2E 42 59 54 45 20 24 30 45 2C 24 30 33 2C 24 | .BYTE $0E,$03,$| 00000760: 30 37 2C 24 30 30 2C 24 30 36 2C 24 30 34 0D 20 |07,$00,$06,$04. | 00000770: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 | .BYTE $0| 00000780: 45 2C 24 30 33 2C 24 30 37 2C 24 30 31 2C 24 30 |E,$03,$07,$01,$0| 00000790: 30 2C 24 30 36 0D 20 20 20 20 20 20 20 20 20 2E |0,$06. .| 000007A0: 42 59 54 45 20 24 30 34 2C 24 30 45 2C 24 30 33 |BYTE $04,$0E,$03| 000007B0: 2C 24 30 37 2C 24 30 31 2C 24 30 37 0D 20 20 20 |,$07,$01,$07. | 000007C0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 33 2C | .BYTE $03,| 000007D0: 24 30 45 2C 24 30 34 2C 24 30 36 0D 3B 2D 2D 2D |$0E,$04,$06.;---| 000007E0: 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D | --- --- --- ---| 000007F0: 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D | --- --- --- ---| 00000800: 20 2D 2D 2D 0D 0D | ---.. |
.;**************************************
*.;** BORDER-COPPERBARS (W) '92 BY PIT
**.;************************************
***.. *= $1000 ;STARTADRESSE
$1000.. SEI ;IRQ SETZEN.
LDA #<START ;VEKTOREN.
STA $0314 ;AUF EIGENE. LDA #>S
TART ;ROUTINE. STA $0315 ;VERB
IEGEN.. LDA #$01 ;NUR RASTER-
IRQ. STA $D01A ;ZULASSEN..
LDA $D011 ;Y-SCROLL REGISTER.
AND #$7F ;AUF ORIGINAL-WERT.
STA $D011 ;SETZEN.. LDA #
$00 ;GHOST-BYTE. STA $3FFF
;LOESCHEN. CLI ;IRQ-FLAG
LOESCHEN. RTS ;ZURUECK.
.START LDA $DC0D ;IRQ VON DER.
BMI BORDER ;CIA ODER VOM VIC?.
LDA $D019 ;IRR LOESCHEN. S
TA $D019 ;. JMP $EA81 ;UND Z
UM ALTEN IRQ..;--- --- --- --- --- --- -
-- --- --- ---.BORDER LDA #$F0 ;RAS
TERSTRAHL AUF.RZY1 CMP $D012 ;POSI
TION $F0 ??. BNE RZY1 ;..
LDX #$21 ;WARTESCHLEIFE.RZY2
DEX ;ZUM AUSTIMEN. BNE
RZY2 ;.. LDX #$00 ;.RZY3
TXA ;AKKU. AND #$07
;VERKNUEPFEN. ORA #$18 ;(KE
IN TEXT). LDY COLORS,X;FARBE LAD
EN. STA $D011 ;VERKNUEPFTER WE
RT. ;IN $D011 SCHREI
BEN. STY $D020 ;UND FARBEN IN.
STY $D021 ;DIE FARBREGISTER.
JSR WAIT ;AUSTIMEN. J
SR WAIT ;AUSTIMEN. INX
;. CPX #$28 ;SCHON ALLE FAR
BEN?. BNE RZY3 ;.. LD
A #$00 ;BILDSCHIRM. STA $D020
;AUF SCHWARZ. STA $D021 ;SE
TZEN.. JMP $EA31 ;ALTER IRQ..W
AIT BIT $FF ;3 ZYKLEN +.
NOP ;2 ZYKLEN WARTEN. R
TS ;UND ZURUECK..;--- --- --- --
- --- --- --- --- --- ---.COLORS .BYTE
$06,$00,$06,$04,$00,$06. .BYTE
$04,$0E,$03,$00,$06,$04. .BYTE $
0E,$03,$07,$00,$06,$04. .BYTE $0
E,$03,$07,$01,$00,$06. .BYTE $04
,$0E,$03,$07,$01,$07. .BYTE $03,
$0E,$04,$06.;--- --- --- --- --- --- ---
--- --- ---..
> CLICK IMAGE PREVIEW FOR FULL MODAL