home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ABBUC Magazin 45B
/
ABBUC_Magazin_45_1996_ABBUC_Side_B.atr
/
intro44.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
6KB
|
1 lines
¢00001 ; .OF"D:INTRFIRE.OBJ"¢00010 .OB¢00020 .LI OFF¢00030 ;FEUER 2 NACH GRANT SMITH¢00040 ;(C) 1996 BY HEAVEN¢00050 DLISTV = 560¢00060 VBIV = 548¢00070 V0 = $B6¢00080 V1 = $B8¢00090 V2 = $BA¢00100 V3 = $BC¢00110 Y = $BE¢00120 NMIEN = $D40E¢01000 INIT¢01005 LDA #0¢01010 STA NMIEN¢01011 JSR PMINIT¢01020 LDA #$30¢01030 STA 712¢01040 LDA #$41¢01050 STA 623¢01060 LDA #62¢01070 STA 559¢01080 LDA #DLIST¢01090 STA DLISTV¢01100 LDA /DLIST¢01110 STA DLISTV+1¢01120 JSR CLEAR¢01130 LDA #$58¢01140 STA 756¢01141 LDA #VBIMAIN¢01142 STA VBIV¢01143 LDA /VBIMAIN¢01144 STA VBIV+1¢01150 LDA #$40¢01160 STA NMIEN¢01161 LDA #255¢01162 STA 540¢01163 LDA #8¢01164 STA 541¢01170 LOOP JSR FIRE¢01175 ; JSR WAIT¢01180 LDA 541¢01190 BNE LOOP¢01200 LDA #0¢01210 STA 559¢01220 STA 712¢01230 STA NMIEN¢01240 LDA #$62¢01250 STA VBIV¢01260 LDA #$E4¢01270 STA VBIV+1¢01271 LDA #$5F¢01272 STA 546¢01273 LDA #$E4¢01274 STA 547¢01280 LDA #$40¢01290 STA NMIEN¢01300 LDA #$E0¢01310 STA 756¢01320 LDA #0¢01330 LDX #0¢01340 .2 STA HPOSP0,X¢01341 STA $D200,X¢01350 INX¢01355 CPX #8¢01360 BCC .2¢01370 LDA #0¢01380 STA 623¢01390 RTS¢02000 CLEAR LDA #0¢02010 LDX #0¢02020 .0 STA SCREEN,X¢02030 STA SCREEN+256,X¢02040 STA SCREEN+512,X¢02050 STA SCREEN+768,X¢02051 STA SCREEN-256,X¢02052 STA SCREEN+1024,X¢02060 INX¢02070 BNE .0¢02080 RTS¢03000 FIRE LDA #SCREEN+480+1¢03010 STA V0¢03020 STA V1¢03030 LDA /SCREEN+480+1¢03040 STA V0+1¢03050 STA V1+1¢03060 LDA #SCREEN+40+480¢03070 STA V2¢03080 STA V3¢03090 LDA /SCREEN+40+480¢03100 STA V2+1¢03110 STA V3+1¢03120 LDA #19¢03130 STA Y¢03140 LDX #0¢03150 .0 LDA 53770¢03160 AND #$11¢03165 ; ORA #$04¢03170 STA SCREEN+1240,X¢03180 INX¢03185 CPX #80¢03190 BNE .0¢03200 FIRELOOP LDX #39¢03210 .0 LDY #0¢03215 CLC¢03220 LDA (V2),Y¢03230 LDY #1¢03240 ADC (V2),Y¢03250 LDY #2¢03260 ADC (V2),Y¢03270 LDY #41¢03280 ADC (V2),Y¢03281 BEQ .9¢03282 SEC¢03283 SBC #1¢03290 .9 LSR¢03300 LSR¢03310 LDY #0¢03320 STA (V0),Y¢03330 CLC¢03340 LDA V0¢03350 ADC #1¢03360 STA V0¢03370 BCC .1¢03380 INC V0+1¢03390 .1 CLC¢03400 LDA V2¢03410 ADC #1¢03420 STA V2¢03430 BCC .2¢03440 INC V2+1¢03450 .2 DEX¢03455 BNE .0¢03460 CLC¢03470 LDA V1¢03480 ADC #40¢03490 STA V1¢03500 STA V0¢03510 LDA V1+1¢03520 ADC #0¢03530 STA V1+1¢03540 STA V0+1¢03550 CLC¢03560 LDA V3¢03570 ADC #40¢03580 STA V3¢03590 STA V2¢03600 LDA V3+1¢03610 ADC #0¢03620 STA V3+1¢03630 STA V2+1¢03640 DEC Y¢03650 ; LDA Y¢03660 BNE FIRELOOP¢03670 RTS¢04000 VBI LDA FLAG¢04010 BNE .0¢04020 JSR UP¢04030 JMP VEND¢04040 .0 CMP #1¢04050 BNE .1¢04060 JSR WAIT¢04070 JMP VEND¢04080 .1 CMP #2¢04090 BNE VEND¢04100 JSR DOWN¢04110 VEND JMP $E462¢04120 UP CLC¢04130 LDA LMS2¢04140 ADC #40¢04150 STA LMS2¢04160 LDA LMS2+1¢04170 ADC #0¢04180 STA LMS2+1¢04190 INC VCOUNT¢04200 LDA VCOUNT¢04210 CMP #16¢04220 BCS .0¢04230 RTS¢04240 .0 LDA #1¢04250 STA FLAG¢04260 RTS¢04270 WAIT LDA 541¢04275 CMP #1¢04280 BNE .0¢04290 LDA #2¢04300 STA FLAG¢04310 .0 RTS¢04320 DOWN SEC¢04330 LDA LMS2¢04340 SBC #40¢04350 STA LMS2¢04360 LDA LMS2+1¢04370 SBC #0¢04380 STA LMS2+1¢04390 DEC VCOUNT¢04400 LDA VCOUNT¢04405 CMP #1¢04410 BEQ .0¢04420 RTS¢04430 .0 LDA #3¢04440 STA FLAG¢04450 RTS¢05000 VBIMAIN JSR PMSCROLL¢05001 JSR MOVE¢05009 LDA $14¢05010 AND #1¢05020 BNE .0¢05030 JMP VBI¢05040 .0 JMP $E462¢08000 .IN"D:PMSCROLL.INC"¢09000 VCOUNT .HX 00¢09001 RICHT .HX 00¢09002 FLAG .HX 00¢10000 DLIST .HX 40¢10001 .HX 7070707070707070¢10002 .HX 707042¢10003 LMS2 .DA SCREEN+400-40-640¢10004 .HX 0202020202020202¢10005 .HX 0202020202020202¢10006 .HX 0202¢10098 .HX 41¢10099 .DA DLIST¢11000 .OR $4800¢11010 SCREEN¢11020 FONT .OR $5800¢11030 .HX 0000000000000000¢11040 .HX 1111111111111111¢11050 .HX 2222222222222222¢11060 .HX 3333333333333333¢11070 .HX 4444444444444444¢11080 .HX 5555555555555555¢11090 .HX 6666666666666666¢11100 .HX 7777777777777777¢11110 .HX 8888888888888888¢11120 .HX 9999999999999999¢11130 .HX AAAAAAAAAAAAAAAA¢11140 .HX BBBBBBBBBBBBBBBB¢11150 .HX CCCCCCCCCCCCCCCC¢11160 .HX DDDDDDDDDDDDDDDD¢11170 .HX EEEEEEEEEEEEEEEE¢11180 .HX FFFFFFFFFFFFFFFF¢19999 .OR $3000¢20000 TEST .AT" NOW LOADING THE NEW ABBUC MAG #44 THIS LITTLE INTRO WAS CODED BY "¢20010 .AT"HEAVEN IN 1996 PLEASE WAIT A FEW SECONDS FOR SPECIAL "¢20011 .AT"THANX FOR TECH-SUPPORT:LUCKY OF ST QUESTOR (INTER) "¢20012 .AT" TIN AND TO DENTHOR OF ASPHYXIA (VGA-TUTS founded on FTP://X2FTP.OULU.FI) "¢