Posted Mon Mar 28, 2011 2:56 PM
Posted Mon Mar 28, 2011 3:07 PM
Posted Mon Mar 28, 2011 3:22 PM
Random Terrain, on Mon Mar 28, 2011 3:07 PM, said:
Posted Mon Mar 28, 2011 3:31 PM
Posted Mon Mar 28, 2011 3:46 PM
cd-w, on Mon Mar 28, 2011 3:31 PM, said:
Posted Mon Mar 28, 2011 3:51 PM
Posted Mon Mar 28, 2011 4:50 PM
Posted Tue Mar 29, 2011 12:00 PM
Posted Tue Mar 29, 2011 12:36 PM
Posted Tue Mar 29, 2011 12:56 PM
Posted Tue Mar 29, 2011 1:47 PM
Posted Tue Mar 29, 2011 1:50 PM
Posted Tue Mar 29, 2011 2:00 PM
Posted Tue Mar 29, 2011 2:15 PM
PROCESSOR 6502
INCLUDE vcs.h
INCLUDE macro.h
SEG CODE
ORG $F000
Begin
CLEAN_START
Mainloop
VERTICAL_SYNC
lda #79
sta COLUPF
ldx #0
Toploop
sta WSYNC
inx
cpx #35
bne Toploop
ldx #0
Hiloop
sta WSYNC
lda LetterH,X
sta PF0
lda LetterI,X
sta PF1
lda LetterY,X
sta PF2
lda LetterA,X
sta PF0
lda LetterEX,X
sta PF1
inx
cpx #7
bne Hiloop
jmp Mainloop
LetterH
.byte %1010000
.byte %1010000
.byte %1010000
.byte %1110000
.byte %1010000
.byte %1010000
.byte %1010000
LetterI
.byte %1110000
.byte %0100000
.byte %0100000
.byte %0100000
.byte %0100000
.byte %0100000
.byte %1110000
LetterY
.byte %1000100
.byte %1000100
.byte %0111000
.byte %0010000
.byte %0010000
.byte %0010000
.byte %0010000
LetterA
.byte %0100000
.byte %1010000
.byte %1010000
.byte %1110000
.byte %1010000
.byte %1010000
.byte %1010000
LetterEX
.byte %0100000
.byte %0100000
.byte %0100000
.byte %0100000
.byte %0000000
.byte %0100000
.byte %0100000
ORG $FFFC
.word Begin
.word Begin
accousticguitar, on Tue Mar 29, 2011 2:00 PM, said:
Posted Tue Mar 29, 2011 7:23 PM
Posted Wed Mar 30, 2011 5:01 AM
babz, on Tue Mar 29, 2011 7:23 PM, said:
Posted Wed Mar 30, 2011 1:13 PM
PROCESSOR 6502
INCLUDE vcs.h
INCLUDE macro.h
SEG.U VARS
ORG $80
position ds 1
SEG CODE
ORG $F000
Begin
CLEAN_START
MainLoop
VERTICAL_SYNC
lda #44
sta TIM64T
lda SWCHA
and #%10000000
beq RightJoy
lda SWCHA
and #%01000000
beq LeftJoy
jmp EndJoy
LeftJoy
lda position
beq EndJoy
dec position
jmp EndJoy
RightJoy
lda position
cmp #152
bcs EndJoy
inc position
jmp EndJoy
EndJoy
TopLoop
lda INTIM
bne TopLoop
sta VBLANK
sta WSYNC
lda #230
sta TIM64T
lda #$FF
sta GRP0
lda #$DF
sta COLUP0
lda position
jsr XPos
ScreenLoop
lda INTIM
bne ScreenLoop
lda #35
sta TIM64T
BottomLoop
lda INTIM
bne BottomLoop
jmp MainLoop
align 256
Fine
.byte %01100010
.byte %01010010
.byte %01000010
.byte %00110010
.byte %00100010
.byte %00010010
.byte %00000010
.byte %11110010
.byte %11100010
.byte %11010010
.byte %11000010
.byte %10110010
.byte %10100010
.byte %10010010
.byte %10000010
FineEnd = Fine - 241
XPos
sta WSYNC
nop
nop
sec
Div15
sbc #15
bcs Div15
tay
lda FineEnd,Y
sta HMP0
sta RESP0
sta WSYNC
sta HMOVE
rts
ORG $FFFC
.word Begin
.word Begin
Posted Wed Mar 30, 2011 8:31 PM
PROCESSOR 6502
INCLUDE vcs.h
INCLUDE macro.h
SEG.U VARS
ORG $80
line ds 1
SEG CODE
ORG $F000
Begin
CLEAN_START
MainLoop
VERTICAL_SYNC
lda #44
sta TIM64T
TopLoop
lda INTIM
bne TopLoop
sta VBLANK
sta WSYNC
lda #230
sta TIM64T
lda #$DF
sta COLUP0
sta COLUP1
lda #3
sta NUSIZ0
sta NUSIZ1
lda #50
jsr XPos0
lda #57
jsr XPos1
lda #7
sta line
ScoreLoop
sta WSYNC
ldy line
lda Score0,Y
sta GRP0
lda Score1,Y
sta GRP1
lda Score2,Y
sta GRP0
ldx Score3,Y
lda Score4,Y
lda Score5,Y
tay
sta GRP1
stx GRP0
sty GRP1
sta GRP0
dec line
bpl ScoreLoop
lda #0
sta GRP0
sta GRP1
ScreenLoop
lda INTIM
bne ScreenLoop
lda #35
sta TIM64T
BottomLoop
lda INTIM
bne BottomLoop
jmp MainLoop
align 256
Fine
.byte %01100010
.byte %01010010
.byte %01000010
.byte %00110010
.byte %00100010
.byte %00010010
.byte %00000010
.byte %11110010
.byte %11100010
.byte %11010010
.byte %11000010
.byte %10110010
.byte %10100010
.byte %10010010
.byte %10000010
FineEnd = Fine - 241
XPos0
sta WSYNC
nop
nop
sec
Div15A
sbc #15
bcs Div15A
tay
lda FineEnd,Y
sta HMP0
sta RESP0
sta WSYNC
sta HMOVE
rts
XPos1
sta WSYNC
nop
nop
sec
Div15B
sbc #15
bcs Div15B
tay
lda FineEnd,Y
sta HMP1
sta RESP1
sta WSYNC
sta HMOVE
rts
align 256
Score0
.byte %01111100
.byte %10000010
.byte %10000010
.byte %10000010
.byte %10000010
.byte %10000010
.byte %10000010
.byte %01111110
Score1
.byte %01111110
.byte %00010000
.byte %00010000
.byte %00010000
.byte %00010000
.byte %01010000
.byte %00110000
.byte %00010000
Score2
.byte %01111110
.byte %00010000
.byte %00001000
.byte %00000100
.byte %00000010
.byte %01000010
.byte %00100100
.byte %00011000
Score3
.byte %01111100
.byte %00000010
.byte %00000010
.byte %00011100
.byte %00011100
.byte %00000010
.byte %00000010
.byte %01111100
Score4
.byte %00010000
.byte %11111110
.byte %10000010
.byte %01000010
.byte %00100010
.byte %00010010
.byte %00001010
.byte %00000110
Score5
.byte %01111100
.byte %00000010
.byte %00000001
.byte %00000001
.byte %01111110
.byte %01000000
.byte %01000000
.byte %01111110
ORG $FFFC
.word Begin
.word Begin
Posted Wed Mar 30, 2011 8:58 PM
Posted Wed Mar 30, 2011 9:32 PM
Posted Thu Mar 31, 2011 2:01 AM
Posted Thu Mar 31, 2011 2:34 AM
Posted Fri Apr 1, 2011 2:50 PM
0 members, 1 guests, 0 anonymous users