ABBUC Magazin 45B/ABBUC_Magazin_45_1996_ABBUC_Side_B.atr/intro44.src

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)      "¢