logo1.txt ; TXW = FIRST($a0)INTRO ; ; $2000- Code ; $0800- Logofont (font,8,1) ; $6000- Screen (screen,8,1) ; $2800- Scrollfont (Datei cset2) ; $4000- Music (Datei msx) jsr initcols jsr loadfnt jsr drawlogo jsr drawtit jsr initsprt jsr $4000 ;music init sei lda #$07 sta $1000 lda #$00 sta $1001 lda #sctxt sta $03 loop lda #$32 ;Warten auf Raster irq3 cmp $d012 ;zeile #$32 bne irq3 jsr hndsprt jsr drawlogo lda #$83 irq4 cmp $d012 bne irq4 jsr scroltxt irq5 lda #$c5 cmp $d012 bne irq5 jsr raster jsr $4006 ;Play Music jmp loop brk ;SUBROUTINE SCROLLTXT scroltxt lda $d016 and #$f8 ora $1000 and #$ef sta $d016 lda $d018 and #$f0 ;FontLoc $2800 adc #$0a sta $d018 lda $1000 cmp #$07 bne sc1 ldx #$00 sc0 lda $0609,x sta $0608,x lda $0631,x sta $0630,x inx cpx #$27 bne sc0 ldy $1001 lda ($02),y cmp #$ff bne sc4 lda #sctxt sta $03 lda #$00 sta $1001 jmp sc1 sc4 sta $062f adc #$40 sta $0657 cpy #$ff bne sc3 inc $03 lda #$00 sta $1001 sc3 inc $1001 sc1 dec $1000 lda $1000 bpl sc2 lda #$07 sta $1000 sc2 rts ;DUBROUTINE($a0)HANDLESPRITES hndsprt ldx $d002 ;xpos sprt1 cpx #$fc ;maxwert? bne hs1 lda #$01 ;rauf sta sp2d hs1 cpx #$40 ;minwert? bne hs2 lda #$00 ;runter sta sp2d hs2 lda sp2d bne hs3 ;Wenn 0 dann runtr inx inx stx $d002 dex dex stx $d004 dex stx $d006 jmp hs4 hs3 dex dex stx $d002 inx inx stx $d004 inx stx $d006 hs4 rts ;SUBROUTINE($a0)RASTER raster lda $d016 ora #$07 sta $d016 lda #$cc rs0 cmp $d012 bne rs0 lda #$0c sta $d021 lda #$ce rs1 cmp $d012 bne rs1 lda #$0e sta $d021 lda #$d2 rs2 cmp $d012 bne rs2 lda #$04 sta $d021 lda #$f4 rs3 cmp $d012 bne rs3 lda #$0e sta $d021 rs4 lda #$f9 cmp $d012 bne rs4 lda #$0c sta $d021 rts ;SUBROUTINE DRAWLOGO drawlogo lda #$13 ;Switch Font sta $d018 lda #$10 ;Multicol Modus sta $d016 lda #$00 ;Set Colors sta $d021 lda #$0c sta $d022 lda #$0e sta $d023 lda #$0d sta $d024 rts drawtit ldx #$00 dt1 lda titxt,x sta $0748,x adc #$40 sta $0770,x inx cpx #$25 bne dt1 rts ;SUBROUTINE LOADFNT loadfnt ldx #$00 m1 lda $6000,x ;Zeichen holen sta $0400,x ;und darstellen inx cpx #$ff bne m1 ldx #$00 m2 lda $60ff,x sta $04ff,x inx cpx #$90 bne m2 rts ; SUBROUTINE INITCOLS initcols ldx #$00 ;Farben fuer Logo lda #$0c m3 sta $d800,x inx cpx #$ff bne m3 ldx #$00 m4 sta $d8ff,x inx cpx #$90 bne m4 lda #$04 ;Und fuer Scroll ldx #$00 m5 sta $da08,x inx cpx #$27 bne m5 lda #$0e ldx #$00 m6 sta $da30,x inx cpx #$27 bne m6 lda #$00 ldx #$00 m7 sta $db48,x inx cpx #$27 bne m7 ldx #$00 m8 sta $db70,x inx cpx #$27 bne m8 rts ;SUBROUTINE INITSPRITES initsprt ldy #$00 ;copy spritedata is1 lda sprt,y ;to $0380 sta $0380,y iny cpy #$3f bne is1 lda #$0e sta $07f8 ;Set Spritepntr sta $07f9 ;for four sprts sta $07fa sta $07fb lda #$0e sta $d015 ;enable sprts lda sp1y ;ykoord sta $d001 lda sp2y sta $d003 lda sp3y sta $d005 lda sp4y sta $d007 lda sp1x ;xkoord sta $d000 lda sp2x sta $d002 lda sp3x sta $d004 lda sp4x sta $d006 lda #$ff sta $d01d ;xpand all sprts sta $d017 ;ypand lda #$0c ;Colors sta $d027 lda #$0e sta $d028 lda #$04 sta $d029 lda #$0c sta $d02a rts ;DATA sctxt .byte $20,$20,$20,$20,$20 .byte $14,$08,$05,$20,$14 .byte $0f,$18,$09,$03,$20 .byte $17,$01,$13,$14,$05 .byte $20,$10,$12,$05,$13 .byte $05,$0e,$14,$13,$20 .byte $14,$08,$05,$20,$06 .byte $09,$12,$13,$14,$20 .byte $13,$09,$18,$14,$19 .byte $06,$0f,$15,$12,$20 .byte $09,$0e,$14,$12,$0f .byte $20,$12,$05,$0c,$05 .byte $01,$13,$05,$04,$20 .byte $09,$0e,$20,$01,$10 .byte $12,$09,$0c,$20,$31 .byte $39,$39,$39,$21,$20 .byte $20,$03,$12,$05,$04 .byte $09,$14,$13,$3a,$20 .byte $20,$03,$0f,$04,$05 .byte $20,$01,$0e,$04,$20 .byte $0c,$0f,$07,$0f,$20 .byte $02,$19,$20,$14,$18 .byte $17,$20,$20,$06,$0f .byte $0e,$14,$20,$01,$0e .byte $04,$20,$0d,$15,$13 .byte $09,$03,$20,$17,$05 .byte $12,$05,$20,$12,$09 .byte $10,$10,$05,$04,$20 .byte $0f,$15,$14,$20,$0f .byte $06,$20,$01,$20,$13 .byte $03,$09,$02,$01,$18 .byte $20,$09,$0e,$14,$12 .byte $0f,$20,$28,$13,$0f .byte $12,$12,$19,$21,$29 .byte $20,$20,$20,$14,$08 .byte $09,$13,$20,$09,$0e .byte $14,$12,$0f,$20,$17 .byte $01,$13,$20,$03,$0f .byte $04,$05,$04,$20,$0d .byte $01,$09,$0e,$0c,$19 .byte $20,$06,$0f,$12,$20 .byte $14,$08,$05,$20,$10 .byte $15,$12,$10,$0f,$13 .byte $05,$20,$0f,$06,$20 .byte $0c,$05,$01,$12,$0e .byte $09,$0e,$07,$20,$36 .byte $35,$31,$30,$20,$01 .byte $13,$13,$05,$0d,$02 .byte $0c,$05,$12,$20,$20 .byte $20,$20,$07,$12,$05 .byte $05,$14,$09,$0e,$07 .byte $13,$20,$20,$06,$0c,$19 .byte $20,$14,$0f,$3a,$20 .byte $20,$21,$13,$10,$01 .byte $03,$19,$07,$21,$20 .byte $28,$14,$0f,$0c,$04 .byte $20,$19,$0f,$15,$20 .byte $09,$20,$17,$0f,$15 .byte $0c,$04,$20,$04,$0f .byte $20,$14,$08,$09,$13 .byte $29,$20,$20,$20,$21 .byte $14,$08,$05,$20,$07 .byte $0e,$0f,$0d,$05,$21 .byte $20,$28,$09,$20,$17 .byte $09,$0c,$0c,$20,$0d .byte $01,$09,$0c,$20,$13 .byte $0f,$0f,$0e,$21,$29 .byte $20,$20,$20,$21,$13 .byte $03,$09,$02,$01,$18 .byte $21,$20,$28,$07,$12 .byte $05,$01,$14,$20,$01 .byte $13,$13,$05,$0d,$02 .byte $0c,$05,$12,$20,$14 .byte $15,$14,$0f,$12,$09 .byte $01,$0c,$21,$29,$20 .byte $20,$20,$21,$0d,$01 .byte $04,$21,$20,$28,$08 .byte $05,$19,$20,$17,$08 .byte $01,$14,$20,$01,$02 .byte $0f,$15,$14,$20,$22 .byte $0c,$01,$0e,$07,$05 .byte $0e,$06,$05,$0c,$04 .byte $20,$01,$12,$0b,$20 .byte $32,$22,$20,$0f,$0e,$20 .byte $14,$08,$05,$20,$13,$09 .byte $18,$14,$19,$06,$0f .byte $15,$12,$3f,$29,$20 .byte $20,$20,$0e,$0f,$14 .byte $08,$09,$0e,$07,$20 .byte $0d,$0f,$12,$05,$20 .byte $14,$0f,$20,$13,$01 .byte $19,$20,$01,$14,$20 .byte $14,$08,$09,$13,$20 .byte $10,$0f,$09,$0e,$14 .byte $20,$20,$20,$20,$20 .byte $09,$27,$0d,$20,$0f .byte $06,$06,$20,$06,$0f .byte $12,$20,$02,$0f,$0f .byte $1a,$05,$21,$20,$20 .byte $20,$20,$20,$20,$20 .byte $ff titxt .byte $20,$14,$0f,$18,$09 .byte $03,$20,$17,$01,$13 .byte $14,$05,$20,$10,$12 .byte $05,$13,$05,$0e,$14 .byte $13,$20,$08,$09,$13 .byte $20,$06,$09,$12 .byte $13,$14,$20,$09,$0e .byte $14,$12,$0f sprt .byte $fc,$38,$18 .byte $fe,$6c,$08 .byte $33,$c6,$98 .byte $33,$86,$d8 .byte $37,$c3,$f0 .byte $36,$63,$b0 .byte $04,$01,$20 .byte $38,$00,$00 .byte $30,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 .byte $00,$00,$00 sp1x .byte $a0 sp1y .byte $a0 sp1d .byte $00 sp1p .byte $00 sp2x .byte $a0 sp2y .byte $82 sp2d .byte $00 sp3x .byte $a1 sp3y .byte $83 sp4x .byte $a2 sp4y .byte $84