home *** CD-ROM | disk | FTP | other *** search
/ Mega Magazine 6 / Mega_Magazine_06_19xx___nl_Side_B.atr / intro.arc / INTRO.SRC < prev    next >
Text File  |  1985-10-07  |  6KB  |  1 lines
  1.   ; the halle project intro¢  ; (c) 1993 chip special software¢  ; contact: fon/fax: +49 371 223726¢  ; ¢ fnt0:EQU $30 ; hibyte of the¢ fnt1:EQU fnt0+$C ; first font of¢ fnt2:EQU fnt1+$C ; three for¢ fnt3:EQU fnt2+$C ; every picture¢ fnt4:EQU fnt3+$C ; summasummarum¢ fnt5:EQU fnt4+$C ; 27 pics (9*3)¢ fnt6:EQU fnt5+$C¢ fnt7:EQU fnt6+$C¢ fnt8:EQU fnt7+$C¢  ; ¢ blk0:EQU $9C00 ; blockdatas¢ blk1:EQU $A000 ; for every pic¢ blk2:EQU $A400¢ blk3:EQU $A800¢ blk4:EQU $AC00¢ blk5:EQU $B000¢ blk6:EQU $C000¢ blk7:EQU $C400¢ blk8:EQU $C800¢  ; ¢ sm:EQU $BD30 ; screenmemory¢ pm:EQU $F400 ; p-m-memory¢ sbuf:EQU $F800 ; scrollbuffer¢ tanf:EQU $BA00 ; scrolltext¢ lauf:EQU $F09E ; bigscroll-routine¢ play:EQU $E679 ; play music¢ zlen:EQU $30¢ f:EQU $20¢ f4:EQU f+4¢ f8:EQU f4+4¢ sa:EQU $54¢  ; ¢ adr:EQU $D0 ; pointers¢ adr2:EQU adr+2¢ zae:EQU adr2+2¢ ch:EQU zae+1¢ flag:EQU ch+1¢ ende:EQU flag+1¢ speed:EQU ende+1¢ scr:EQU $FB¢ txt:EQU scr+1¢  ; ¢ ORG $B550¢  ; ¢ dl:DFB $30,$70,$70,$50,$44¢ dl2:DFW sm¢ DFB 4,4,4,4,4,4,$84,4,4,4,4,$84,4,4,4,4,4¢ DFB $B0,0,sa¢ DFW sbuf¢ DFB sa¢ DFW sbuf+zlen¢ DFB sa¢ DFW sbuf+(zlen*2)¢ DFB sa¢ DFW sbuf+(zlen*3)¢ DFB sa¢ DFW sbuf+(zlen*4)¢ DFB sa¢ DFW sbuf+(zlen*5)¢ DFB $30¢ DFB 65¢ DFW dl¢  ; ¢ fnttab:DFB fnt0,fnt1,fnt2,fnt3,fnt4,fnt5,fnt6,fnt7,fnt8¢ blktab:DFW blk0,blk1,blk2,blk3,blk4,blk5,blk6,blk7,blk8¢ regie:DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0¢ DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0¢ DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0¢ DFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0¢ DFB 1,1,1,1,1,2,2,2,2,3,3,3,3¢ DFB 4,4,4,4,4,3,3,3,2,2,1,0,5,6,6,7,7,7,8,8,8,8,8,7,7,7,6,6,5¢ DFB 0,1,2,2,3,3,3,4,4,4,4,4,3,3,3,2,2,1,0,5,6,6,7,7,7,8,8,8,8,8,7,7,7,6,6,5¢ DFB 0,1,2,2,3,3,3,4,4,4,4,4,3,3,3,2,2,1,0,5,6,6,7,7,7,8,8,8,8,8,7,7,7,6,6,5¢ DFB 0,1,2,2,3,3,3,4,4,4,4,4,3,3,3,2,2,1,0,5,6,6,7,7,7,8,8,8,8,8,7,7,7,7¢ DFB 6,6,6,6,5,5,5,5,$85¢ col:DFB $24,$18,$1C¢  ; ¢  ; mainprocedure¢  ; ¢ n:LDA #0 ; startlabel¢ STA $D400¢ STA $D40E¢ STA $D20E¢ STA zae¢ STA ch¢ STA flag¢ STA ende¢ STA scr¢ LDY #$FE¢ STY $D301¢ LDX #8¢ col0:STA $D012,X¢ DEX ¢ BPL col0¢ INX ¢ pclr:STA pm,X¢ STA pm+$100,X¢ STA pm+$200,X¢ STA pm+$300,X¢ STA sbuf,X¢ STA sbuf+$80,X¢ INX ¢ BNE pclr¢ LDA #$FF¢ pfill:STA pm+$300+70,X¢ STA pm+$380+70,X¢ INX ¢ CPX #7¢ BNE pfill¢ LDA #>pm¢ STA $D407¢ LDX #1¢ STX speed¢ INX ¢ STX $D01D¢ INX ¢ STX $D008¢ STX $D009¢ STX $D00A¢ STX $D00B¢ LDA #4¢ STA $D01B¢ LDA #<tanf¢ LDX #>tanf¢ STA txt¢ STX txt+1¢ JSR $E434 ; music init¢ LDA #<nmi¢ LDX #>nmi¢ STA $FFFA¢ STX $FFFB¢ LDA #$20¢ LDX #$10¢ STA 708¢ STX 709¢ STX 710¢ LDA #<sm¢ STA adr¢ LDA #<dli1¢ LDX #>dli1¢ STA $200¢ STX $201¢ LDA #<dl¢ LDX #>dl¢ STA $D402¢ STX $D403¢ LDA #$C0¢ STA $D40E¢ LDY #5¢ JSR wait¢ LDA #46¢ STA $D400¢ blend:LDY #1¢ JSR wait¢ LDA toenung+15¢ CMP toen2+15¢ BEQ peak¢ LDX #2¢ bll1:LDA 708,X¢ CMP col,X¢ BEQ bl1¢ INC 708,X¢ bl1:DEX ¢ BPL bll1¢ LDX #15¢ bll2:LDA toenung,X¢ CMP toen2,X¢ BEQ bl2¢ INC toenung,X¢ bl2:DEX ¢ BPL bll2¢ BMI blend¢ peak:LDA #8¢ STA $D01F¢ LDA $D01F¢ CMP #6¢ BNE p2@¢ exit:INC $D301¢ JMP $E474¢ p2@:LDA ende¢ BNE exit¢ LDY #94¢ peak1:LDX ch¢ LDA $49C,X ; get volumevalues¢ AND #15¢ CMP #12¢ BCC p1@¢ LDA #11¢ p1@:ASL  ¢ ASL  ¢ TAX ¢ LDA volume,X¢ STA pm+$200,Y¢ STA pm+$201,Y¢ STA pm+$202,Y¢ STA pm+$203,Y¢ LDA volume+1,X¢ STA pm+$280,Y¢ STA pm+$281,Y¢ STA pm+$282,Y¢ STA pm+$283,Y¢ LDA volume+2,X¢ STA pm+$300,Y¢ STA pm+$301,Y¢ STA pm+$302,Y¢ STA pm+$303,Y¢ LDA volume+3,X¢ STA pm+$380,Y¢ STA pm+$381,Y¢ STA pm+$382,Y¢ STA pm+$383,Y¢ INY ¢ INY ¢ INY ¢ INY ¢ DEC ch¢ BPL peak1¢ LDA #3¢ STA ch¢ LDY #1¢ JSR wait¢ JMP peak¢ wait:LDA $14¢ ww:CMP $14¢ BEQ ww¢ DEY ¢ BNE wait¢ RTS ¢  ; ¢ nmi:BIT $D40F¢ BPL vbi¢ JMP ($200)¢ vbi:PHA ¢ TXA ¢ PHA ¢ TYA ¢ PHA ¢ LDX #3¢ setp0:LDA pos0,X¢ STA $D000,X¢ DEX ¢ BPL setp0¢ LDA #<dli1¢ STA 512¢ INC $14¢ LDA 708¢ LDY 709¢ LDX 710¢ STA $D016¢ STY $D017¢ STX $D018¢ LDX zae¢ LDA regie,X¢ BPL regokv¢ LDX #$FF¢ STX zae¢ AND #$7F¢ regokv:TAY ¢ ASL  ¢ TAX ¢ LDA fnttab,Y¢ STA $D409¢ CLC ¢ ADC #4¢ STA dli1+2¢ ADC #4¢ STA dli2@+1¢ LDA blktab,X¢ STA dl2¢ LDA blktab+1,X¢ STA dl2+1¢ INC zae¢ LDA flag¢ BEQ vbi2¢ LDX #3¢ mloop:LDA pos,X¢ CMP pos1,X¢ BEQ ml1@¢ INC pos,X¢ ml1@:DEX ¢ BPL mloop¢ vbi2:JSR lauf ; scrolling¢ JSR play ; music¢ LDA scr¢ STA $D404¢ PLA ¢ TAY ¢ PLA ¢ TAX ¢ PLA ¢ STA $D40F¢ RTI ¢  ; ¢ dli1:PHA ¢ LDA #$34¢ STA $D40A¢ STA $D409¢ LDA #<dli2¢ STA 512¢ PLA ¢ STA $D40F¢ RTI ¢ dli2:PHA ¢ TXA ¢ PHA ¢ dli2@:LDA #$38¢ STA $D40A¢ STA $D409¢ LDX #0¢ dli2l:LDA toenung,X¢ STA $D014¢ STA $D015¢ STA $D40A¢ INX ¢ CPX #16¢ BNE dli2l¢ LDX #0¢ STX $D014¢ STX $D015¢ dli22l:LDA pos,X¢ STA $D000,X¢ INX ¢ CPX #4¢ BNE dli22l¢ LDA #<dli3¢ STA 512¢ PLA ¢ TAX ¢ PLA ¢ STA $D40F¢ RTI ¢ toenung:DFB 0,0,0,0,0,$30,$20,$30,$10,$20,$10,$20,$10,$20,$10,0¢ toen2:DFB 0,0,0,0,0,$30,$22,$32,$14,$24,$16,$28,$1A,$2C,$1E,$E¢  ; ¢ dli3:PHA ¢ TXA ¢ PHA ¢ LDA #0¢ TAX ¢ STA $D018¢ LDA #10¢ STA $D017¢ LDA #4¢ STA $D016¢ dli3l:LDA fonts,X¢ STA $D40A¢ STA $D409¢ LDA peakcol,X¢ STA $D012¢ STA $D013¢ STA $D014¢ STA $D015¢ INX ¢ CPX #48¢ BNE dli3l¢ PLA ¢ TAX ¢ PLA ¢ STA $D40F¢ RTI ¢ fonts:DFB f,f,f,f,f,f,f,f,f,f,f,f,f,f,f,f4,f4¢ DFB f4,f4,f4,f4,f4,f4,f4,f4,f4,f4,f4,f4,f8,f8,f8,f8¢ DFB f8,f8,f8,f8,f8,f8,f8,f8,f8,f8,f8,f8,f8,f8,f8,f8¢ volume:DFB %10000000,0,0,0¢ DFB %11110000,0,0,0¢ DFB %11111110,0,0,0¢ DFB %11111111,%11000000,0,0¢ DFB $FF,%11111000,0,0¢ DFB $FF,$FF,0,0¢ DFB $FF,$FF,%11100000,0¢ DFB $FF,$FF,%11111100,0¢ DFB $FF,$FF,$FF,$80¢ DFB $FF,$FF,$FF,%11110000¢ DFB $FF,$FF,$FF,$FE¢ DFB $FF,$FF,$FF,$FF¢ peakcol:DFB 0,0,0,0,0,0,$74,$7C,$7E,$7C,$78,$74,0¢ DFB $64,$6C,$6E,$6C,$68,$64,0¢ DFB $54,$5C,$5E,$5C,$58,$54,0¢ DFB $44,$4C,$4E,$4C,$48,$44,0,0,0,0,0,0,0,0,0,0,0,0,0¢ pos0:DFB 0,0,70,102¢ pos:DFB 0,0,0,0¢ pos1:DFB $30,$50,$70,$90¢ ¢