64'er/64ER_CD.iso/94xx/9402.d64/3d-scroll.src

Text File | 1995-03-30 | 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