Dear visitor, welcome to Forum64. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
.setcpu "6502"
.org $1001-2
.word $1001
.word link
.word 2012 ; zeilennummer
.byte $9e ; sys-token
.byte "4109" ; adresse
.byte $00 ; zeilenende
link:
.byte $00,$00
sei
lda #<raster
sta $314
lda #>raster
sta $315
lda #$02
sta $ff0a
lda pos
sta $ff0b
lda 65286
and #%01101111
sta 65286
cli
rts
raster:
lda $ff09
sta $ff09
; lda $ff0b
; cmp pos
; bcc rastersik
ldx #98
loop:
lda colors,x
spalte:
ldy $ff1e
cpy #176
bmi spalte
sta $ff19
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
dex
bpl loop
rasterende:
lda flag
bne auf
clc
lda pos
adc #2
sta pos
cmp #100
bne raus
lda flag
ora #$ff
sta flag
auf:
sec
lda pos
sbc #2
sta pos
bne raus
lda flag
and #$00
sta flag
raus:
lda pos
sta $ff0b
rastersik:
;jmp $fcbe
pla
tay
pla
tax
pla
rti
colors:
.byte 0
.byte 6,6,6,6,6,6
.byte 22,22,22,22,22,22
.byte 38,38,38,38,38,38
.byte 54,54,54,54,54,54
.byte 70,70,70,70,70,70
.byte 86,86,86,86,86,86
.byte 102,102,102,102,102,102
.byte 118,118,118,118,118,118
.byte 118,118,118,118,118,118
.byte 102,102,102,102,102,102
.byte 86,86,86,86,86,86
.byte 70,70,70,70,70,70
.byte 54,54,54,54,54,54
.byte 38,38,38,38,38,38
.byte 22,22,22,22,22,22
.byte 6,6,6,6,6,6
.byte 0,0,0
counter:
.byte 0,0
pos:
.byte 0,0
flag:
.byte 0,0
|
doppelte badlines?
was bedeutet das?
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
.setcpu "6502"
.org $1001-2
.word $1001
.word link
.word 2012 ; zeilennummer
.byte $9e ; sys-token
.byte "4109" ; adresse
.byte $00 ; zeilenende
link:
.byte $00,$00
sei
lda #<raster
sta $314
lda #>raster
sta $315
lda #$02
sta $ff0a
lda pos
sta $ff0b
;lda 65286
;and #%01101111 ; Bildschirm aus
;sta 65286 ; Nur Hintergrund
cli
rts
raster:
lda $ff09
sta $ff09
; lda $ff0b
; cmp pos
; bcc rastersik
ldx #98
loop:
lda colors,x
spalte:
ldy $ff1e
cpy #156
bmi spalte
sta $ff19
nop
nop
nop
nop
nop
;nop
;nop ; 4 NOP gespart
;nop
;nop
nop
nop
nop
nop
nop
dex
bpl loop
rasterende:
lda flag
bne auf
clc
lda pos
adc #2
sta pos
cmp #100
bne raus
lda flag
ora #$ff
sta flag
auf:
sec
lda pos
sbc #2
sta pos
bne raus
lda flag
and #$00
sta flag
raus:
lda pos
sta $ff0b
rastersik:
jsr $ff9f ; oder $db11 ;Zurück ins BS
pla
tay
pla
tax
pla
rti
colors:
.byte 0
.byte 6,6,6,6,6,6
.byte 22,22,22,22,22,22
.byte 38,38,38,38,38,38
.byte 54,54,54,54,54,54
.byte 70,70,70,70,70,70
.byte 86,86,86,86,86,86
.byte 102,102,102,102,102,102
.byte 118,118,118,118,118,118
.byte 118,118,118,118,118,118
.byte 102,102,102,102,102,102
.byte 86,86,86,86,86,86
.byte 70,70,70,70,70,70
.byte 54,54,54,54,54,54
.byte 38,38,38,38,38,38
.byte 22,22,22,22,22,22
.byte 6,6,6,6,6,6
.byte 0,0,0
counter:
.byte 0,0
pos:
.byte 0,0
flag:
.byte 0,0
|
Bei der Demo Edge of Disgrace ist mir aufgefallen dass da auch mal ca 8Pixel mal 1Pixel flackert, wenn man wirklich den ganzen Border sich anschaut, sowohl im Vice als auch auf dem richtigen C64. Das sind aber keine GreyDots sondern was anderes, hast du ne Ahnung wie das Flackern da zustande kommt?
|
|
Quellcode |
1 2 3 |
10 x=rnd(-1963):fori=1to81:y=rnd(1):next 20 forj=1to5:printchr$(rnd(1)*16+70);:next 30 printint(rnd(1)*328)-217 |
|
|
Source code |
1 2 3 4 5 6 |
counter: .byte 0,0 pos: .byte 0,0 flag: .byte 0,0 |
Forum Software: Burning Board® 3.1.7, developed by WoltLab® GmbH