64'er 1994 February/64er_Magazin_94-02_1994_Markt__Technik_de.d64/3d-scroll.src

Text File | 2022-10-26 | 3KB | 191 lines

*=$8000
;
; **** externe spruenge ****
;
eea31   =$ea31
eea81   =$ea81
;
; **** felder ****
;
f2000   =$2000
f2080   =$2080
f8128   =$8128
f816c   =$816c
f816d   =$816d
f81b1   =$81b1
f81b2   =$81b2
;
; **** absolute adressen ****
;
ab0     =$b0
ab1     =$b1
afb     =$fb
afd     =$fd
afe     =$fe
a0314   =$0314
a0315   =$0315
a07f8   =$07f8
ad000   =$d000
ad001   =$d001
ad010   =$d010
ad011   =$d011
ad012   =$d012
ad015   =$d015
ad019   =$d019
ad01a   =$d01a
ad01b   =$d01b
ad01c   =$d01c
ad020   =$d020
ad021   =$d021
ad025   =$d025
ad026   =$d026
ad027   =$d027
adc04   =$dc04
adc05   =$dc05
adc0e   =$dc0e
;
; **** pointer ****
;
p04     =$04
;
; **** programm ****
;
;
       sei
       lda ad01b
       ora #$01
       sta ad01b
       ldy #$00
       sty ad020
       sty ad021
       sty afb
       iny
       sty adc0e
       lda #$30
i8019  sta afe
       lda ad012
       eor adc04
       sta f8127,y
       ora adc05
       and #$01
       sta f816c,y
       lda afe
       sta f81b1,y
       clc
       adc #$03
       iny
       cpy #$46
       bne i8019
       jsr i8106
       ldy #$00
       tya
       sta adc0e
i8042  sta f2000,y
       dey
       bne i8042
       ldx #$00
i804a  lda f8121,y
       sta f2000,x
       lda #$01
       sta f2080,x
       txa
       clc
       adc #$09
       tax
       iny
       cpy #$07
       bne i804a
       iny
       sty ab1
       lda #$1b
       sta ad011
       lda #$01
       sta ad01a
       lda #$7c
       sta a0314
       lda #$80
       sta a0315
       lda #$45
       sta ab0
       cli
       rts
       inc ad019
       lda ab0
       cmp #$46
       bcs i80b9
i8085  lda afe
       sta a07f8
       lda ad015
       ora #$01
       sta ad015
       ldy afb
       lda f8128,y
       sta ad000
       lda ad010
       and #$fe
       ora f816d,y
       sta ad010
       ldx f81b2,y
       stx ad012
       dex
       stx ad001
       inc afb
       iny
       cpy ab0
       beq i80c0
       jmp eea81
i80b9  lda #$45
       sta ab0
       jmp i8085
i80c0  inc a07f8
       lda ab1
       cmp #$08
       bne i80cf
       jsr i8106
       jmp i80db
i80cf  lda ad01c
       and #$fe
       sta ad01c
       lda #$82
       sta afe
i80db  ldy #$00
       sty afb
       ldx #$01
i80e1  txa
       clc
       adc f8128,y
       bcc i80f4
       sta afd
       lda f816d,y
       eor #$01
       sta f816d,y
       lda afd
i80f4  sta f8128,y
       inx
       cpx ab1
       bne i80fe
       ldx #$01
i80fe  iny
       cpy ab0
       bne i80e1
       jmp eea31
i8106  lda ad01c
       ora #$01
       sta ad01c
       lda #$0f
       sta ad027
       ldy #$0c
       sty ad026
       dey
       sty ad025
       lda #$80
       sta afe
       rts
f8121  ora (p04,x)
       rti
;
       .byte $03,$30,$80;"0
f8127  .byte $08