home *** CD-ROM | disk | FTP | other *** search
/ Vandalism News 43 / Vandalism_News_43_2005-03-08_Onslaught_Wrath_Designs_Side_A.d64 / 2x2fast.source < prev    next >
Text File  |  2023-02-26  |  10KB  |  399 lines
  1.  
  2.  
  3.  ; fAST 2X2-fli-rOUTINE BY nINJA / tHE dREAMS IN 2004
  4.  
  5.  
  6.  
  7.  
  8.  
  9.               INCLUDE STANDARD.C64
  10.  
  11.  
  12.  
  13.  
  14.  
  15. EXEC           = 0    ; ATTACH QUICK'N'DIRTY TEST-ROUTINE
  16.  
  17. INTERLACED     = 0    ; INTERLACE?
  18.  
  19. CONST_D800_COL = 0    ; $0C IN $D800 ON fli-BUG EVEN WHEN INTERLACED?
  20.  
  21. OPEN_BORDER    = 1    ; OPEN UPPER/LOWER BORDER?
  22.  
  23.  
  24.  
  25. NMI_ZPY       = $02   ; zEROpAGE-VARIABLE (1 BYTE)
  26.  
  27. NMI           = $DC04
  28.  
  29.  
  30.  
  31. RAS_START     = $30
  32.  
  33. RAS_STOP      = $F8
  34.  
  35.  
  36.  
  37. TIMER_TEST    = 16
  38.  
  39. TIMER_LINE    = 63-1
  40.  
  41. TIMER_FLI13   = (4*63)-1
  42.  
  43. TIMER_FLI2    = (8*63)-1
  44.  
  45.  
  46.  
  47.  ; ------------------------------------------------------------- mACRO
  48.  
  49.  
  50.  
  51. OPEN_BORDER_VAL = $30+{$7e}{$7e}OPEN_BORDER*8
  52.  
  53.  
  54.  
  55. FLI_NMI      MACRO D011VAL, D018VAL, DELAY, DOUBLE, NMIHANDLER
  56.  
  57.  
  58.  
  59.              IF (DELAY&1)
  60.  
  61.               STY NMI_YMOD+1
  62.  
  63.              ELSEIF
  64.  
  65.               STY NMI_ZPY
  66.  
  67.              ENDIF
  68.  
  69.              IF (DELAY&2)
  70.  
  71.               NOP
  72.  
  73.              ENDIF
  74.  
  75.              IF (DELAY&4)
  76.  
  77.               BIT $DD0D
  78.  
  79.              ENDIF
  80.  
  81.               LDY #D018VAL
  82.  
  83.               STY $D018
  84.  
  85.               LDY #D011VAL
  86.  
  87.               STY $D011
  88.  
  89.              IF {$7e}{$7e}(DELAY&4)
  90.  
  91.               BIT $DD0D
  92.  
  93.              ENDIF
  94.  
  95.              IF (NMIHANDLER>-1)
  96.  
  97.               IF CONST_D800_COL && (DELAY&4)
  98.  
  99.                LDY NMI_LO
  100.  
  101.               ELSEIF
  102.  
  103.                LDY #NMIHANDLER
  104.  
  105.               ENDIF
  106.  
  107.              ENDIF
  108.  
  109.               STY NMI+1
  110.  
  111.              IF DOUBLE
  112.  
  113.               LDY #D018VAL-$30
  114.  
  115.               STY $D018
  116.  
  117.               LDY #(D011VAL+2)&7{$7c}OPEN_BORDER_VAL
  118.  
  119.               STY $D011
  120.  
  121.              ENDIF
  122.  
  123.              IF (DELAY&1)
  124.  
  125. NMI_YMOD:
  126.  
  127.               LDY #$ff
  128.  
  129.              ELSEIF
  130.  
  131.               LDY NMI_ZPY
  132.  
  133.              ENDIF
  134.  
  135.               RTI
  136.  
  137.  
  138.  
  139.              IF CONST_D800_COL && (NMIHANDLER>-1) && (DELAY&4)
  140.  
  141. NMI_LO:       BYT NMIHANDLER
  142.  
  143.              ENDIF
  144.  
  145.  
  146.  
  147.              ENDM
  148.  
  149.  
  150.  
  151.  ; ------------------------------------------------------------- tEST-cODE
  152.  
  153.  
  154.  
  155.              IF EXEC
  156.  
  157.  
  158.  
  159.               ORG $0801
  160.  
  161. START:
  162.  
  163.               ADR $080B,4
  164.  
  165.               BYT $9E,"6656",0,0,0
  166.  
  167.  
  168.  
  169.               ORG $1000
  170.  
  171.               BINCLUDE "SID\INFINITY.DAT",2
  172.  
  173.  
  174.  
  175.               ORG $1A00
  176.  
  177.  
  178.  
  179. SCR_PNT       = $FB
  180.  
  181.  
  182.  
  183.               SEI
  184.  
  185.               JSR SETUP
  186.  
  187.               LDA #0
  188.  
  189.               STA $D020
  190.  
  191.               STA $D021
  192.  
  193.               JSR $1000
  194.  
  195.               LDA $DD00
  196.  
  197.               AND #$FC
  198.  
  199.               ORA #2
  200.  
  201.               STA $DD00
  202.  
  203.               LDA #$18
  204.  
  205.               STA $D016
  206.  
  207.               JSR INIT2X2
  208.  
  209. ENDLESS:
  210.  
  211.                LDA ($FB),Y
  212.  
  213.                LDA ($FB,X)
  214.  
  215.                INC $0400,X
  216.  
  217.               LDA #$10
  218.  
  219.               AND $DC01
  220.  
  221.               BNE ENDLESS
  222.  
  223.               SEI
  224.  
  225.               LDA #$7F
  226.  
  227.               STA $DD0D
  228.  
  229.               LDA $DD0D
  230.  
  231.               LDA #$37
  232.  
  233.               STA $01
  234.  
  235.               LDA #8
  236.  
  237.               STA $DE00
  238.  
  239.               JMP ($FFFC)
  240.  
  241.  
  242.  
  243. SETUP:
  244.  
  245.               LDY #0
  246.  
  247.               STY SCR_PNT
  248.  
  249.               LDA #$40
  250.  
  251.               STA SCR_PNT+1
  252.  
  253.  
  254.  
  255. MAKE_BM:
  256.  
  257.               LDA #$84
  258.  
  259.               STA (SCR_PNT),Y
  260.  
  261.               INY
  262.  
  263.               STA (SCR_PNT),Y
  264.  
  265.               INY
  266.  
  267.               LDA #$21
  268.  
  269.               STA (SCR_PNT),Y
  270.  
  271.               INY
  272.  
  273.               STA (SCR_PNT),Y
  274.  
  275.               INY
  276.  
  277.               BNE MAKE_BM
  278.  
  279.               INC SCR_PNT+1
  280.  
  281.               LDA SCR_PNT+1
  282.  
  283.               CMP #$60
  284.  
  285.               BCC MAKE_BM
  286.  
  287.  
  288.  
  289.               LDA #$CF
  290.  
  291.               JSR FILL_MEM
  292.  
  293.               LDA #$6E
  294.  
  295.               JSR FILL_MEM
  296.  
  297.               LDA #$5D
  298.  
  299.               JSR FILL_MEM
  300.  
  301.               LDA #$31
  302.  
  303.              IF INTERLACED
  304.  
  305.               JSR FILL_MEM
  306.  
  307.               LDA #$5D
  308.  
  309.               JSR FILL_MEM
  310.  
  311.               LDA #$31
  312.  
  313.               JSR FILL_MEM
  314.  
  315.               LDA #$CF
  316.  
  317.               JSR FILL_MEM
  318.  
  319.               LDA #$6E
  320.  
  321.              ENDIF
  322.  
  323. FILL_MEM:
  324.  
  325.               LDX #3
  326.  
  327. FRAM1:
  328.  
  329.               STA (SCR_PNT),Y
  330.  
  331.               INY
  332.  
  333.               BNE FRAM1
  334.  
  335.               INC SCR_PNT+1
  336.  
  337.               DEX
  338.  
  339.               BPL FRAM1
  340.  
  341.               RTS
  342.  
  343.  
  344.  
  345.              ELSEIF
  346.  
  347.  
  348.  
  349. START         = $0823
  350.  
  351.  
  352.  
  353.              ENDIF
  354.  
  355.  
  356.  
  357.  ; --------------------------------------------------------- iNIT (SPLIT UP)
  358.  
  359.  
  360.  
  361.               ORG $0CDC
  362.  
  363. INIT2X2:
  364.  
  365.               SEI
  366.  
  367.               LDA #$35
  368.  
  369.               STA $01
  370.  
  371.                                           ; cia-dETECTION
  372.  
  373.               LDX #$7F
  374.  
  375.               STX $DD0D
  376.  
  377.               LDA $DD0D
  378.  
  379.               LDA #LO(FAKE_NMI)
  380.  
  381.               LDY #HI(FAKE_NMI)
  382.  
  383.               STA $FFFA
  384.  
  385.               STY $FFFB
  386.  
  387.               LDA #LO(TIMER_TEST)
  388.  
  389.               STA $DD04
  390.  
  391.               LDA $D012
  392.  
  393.               BNE *-3
  394.  
  395.               STA $DD05
  396.  
  397.               LDA #$11
  398.  
  399.               STA $DD0E
  400.  
  401.               LDA #$81
  402.  
  403.               STA $DD0D
  404.  
  405.               BYT [10]$EA
  406.  
  407. FAKE_NMI:
  408.  
  409.               LDY $DD04
  410.  
  411.               STX $DD0D
  412.  
  413.               LDA $DD0D
  414.  
  415.               PLA
  416.  
  417.               PLA
  418.  
  419.               PLA
  420.  
  421.               JMP SETUP_CIA
  422.  
  423.  
  424.  
  425.               ORG $0BDE
  426.  
  427. SETUP_CIA:
  428.  
  429.               CPY #3
  430.  
  431.               BEQ OLD_CIA
  432.  
  433.               LDA #$D5
  434.  
  435.               STA CIA_MOD
  436.  
  437.               LDA #$24
  438.  
  439.               STA CIA_MOD2
  440.  
  441. OLD_CIA:
  442.  
  443.                                           ; sETUP ciaS
  444.  
  445.               LDX #LO(NMI)
  446.  
  447.               LDY #HI(NMI)
  448.  
  449.               STX $FFFA
  450.  
  451.               STY $FFFB
  452.  
  453.               LDA #$4C
  454.  
  455.               STA NMI
  456.  
  457.               LDA #$3F
  458.  
  459.               STA NMI+1
  460.  
  461.               LDA #$10
  462.  
  463.               STA $DC0E
  464.  
  465.               LDX #LO(TIMER_LINE)
  466.  
  467.               LDY #HI(TIMER_LINE)
  468.  
  469.               STX $DC06
  470.  
  471.               STY $DC07
  472.  
  473.               LDX #LO(TIMER_FLI13)
  474.  
  475.               ;LDY #HI(TIMER_FLI13)
  476.  
  477.               STX $DD04
  478.  
  479.               STY $DD05
  480.  
  481.               LDX #LO(TIMER_FLI2)
  482.  
  483.               ;LDY #HI(TIMER_FLI2)
  484.  
  485.               INY
  486.  
  487.               STX $DD06
  488.  
  489.               STY $DD07
  490.  
  491.               JMP pALtIMING
  492.  
  493.  
  494.  
  495.               ORG $0ADD
  496.  
  497.                                           ; mAKE STABLE RASTER
  498.  
  499. pALtIMING:
  500.  
  501.               LDX #7
  502.  
  503.               CPX $D012
  504.  
  505.               BNE *-3
  506.  
  507.               LDY #9
  508.  
  509.               DEY
  510.  
  511.               BNE *-1
  512.  
  513.               CMP ($00),Y
  514.  
  515.               INX
  516.  
  517.               CPX $D012
  518.  
  519.               BEQ pALtIMING2
  520.  
  521.               CMP ($00),Y
  522.  
  523. pALtIMING2:
  524.  
  525.               LDY #9
  526.  
  527.               DEY
  528.  
  529.               BNE *-1
  530.  
  531.               NOP
  532.  
  533.               NOP
  534.  
  535.               NOP
  536.  
  537.               INX
  538.  
  539.               CPX $D012
  540.  
  541.               BEQ pALtIMING4
  542.  
  543.               CMP $db
  544.  
  545. pALtIMING4:
  546.  
  547.               LDY #10
  548.  
  549.               DEY
  550.  
  551.               BNE *-1
  552.  
  553.               NOP
  554.  
  555.               INX
  556.  
  557.               CPX $D012
  558.  
  559.               BNE pALtIMING6
  560.  
  561. pALtIMING6:
  562.  
  563.                                           ; sTART TIMERS AT CORRECT CYCLE.
  564.  
  565.               LDY #5                      ; aDD CYCLES HERE (BEFORE CIA_MOD)
  566.  
  567.               DEY                         ; TO START fli A LITTLE LATER.
  568.  
  569.               BNE *-1                     ; aND KEEP IT SHORT, JUST A FEW
  570.  
  571.               NOP                         ; BYTES LEFT!
  572.  
  573. CIA_MOD:      BIT $db
  574.  
  575.               LDA #$11
  576.  
  577.               STA $DD0E,Y
  578.  
  579.               JMP SETUP_IRQ
  580.  
  581.  
  582.  
  583.               ORG $08DC
  584.  
  585. SETUP_IRQ:
  586.  
  587.               LDY #23
  588.  
  589.               DEY
  590.  
  591.               BNE *-1
  592.  
  593.               NOP
  594.  
  595.               STA $DD0F,Y
  596.  
  597.               JSR RTS
  598.  
  599.               PHA
  600.  
  601.               PLA
  602.  
  603. CIA_MOD2:     CMP $db,X
  604.  
  605.               STA $DC0F
  606.  
  607.                                           ; sETUP irq
  608.  
  609.               LDA #$7F
  610.  
  611.               STA $D019
  612.  
  613.               STA $DC0D
  614.  
  615.               LDA $DC0D
  616.  
  617.               LDX #LO(UPPER_BORDER)
  618.  
  619.               LDY #HI(UPPER_BORDER)
  620.  
  621.               STX $FFFE
  622.  
  623.               STY $FFFF
  624.  
  625.               LDA #RAS_START
  626.  
  627.               STA $D012
  628.  
  629.               LDA #$39
  630.  
  631.               STA $D011
  632.  
  633.               LDA #1
  634.  
  635.               STA $D01A
  636.  
  637.               CLI
  638.  
  639. RTS:          RTS
  640.  
  641.  
  642.  
  643.               ORG $0DDD
  644.  
  645.                BYT "ninja was here..."
  646.  
  647.  
  648.  
  649.  ; ------------------------------------------------------------ irqS
  650.  
  651.  
  652.  
  653.               ORG $0E03
  654.  
  655. UPPER_BORDER:
  656.  
  657.               STA UPPER_A+1
  658.  
  659.               BIT $DD0D
  660.  
  661.               LDA #$83
  662.  
  663.               STA $DD0D
  664.  
  665.               STA $D019
  666.  
  667.               LDA #LO(LOWER_BORDER)
  668.  
  669.               STA $FFFE
  670.  
  671.               LDA #RAS_STOP
  672.  
  673.               STA $D012
  674.  
  675. UPPER_A:      LDA #$ff
  676.  
  677.               RTI
  678.  
  679.  
  680.  
  681.               ORG $0EDD
  682.  
  683.  
  684.  
  685. LOWER_BORDER:
  686.  
  687.               STA LOWER_A+1
  688.  
  689.               LDA #3
  690.  
  691.               STA $DD0D
  692.  
  693.               STA $D019
  694.  
  695.               STA $FFFE
  696.  
  697.               STX LOWER_X+1
  698.  
  699.               STY LOWER_Y+1
  700.  
  701.               LDA #RAS_START
  702.  
  703.               STA $D012
  704.  
  705.              IF INTERLACED
  706.  
  707.               LDA #$40
  708.  
  709.               EOR $D018
  710.  
  711.               STA $D018
  712.  
  713.               LDA NMI+1
  714.  
  715.               EOR #$3F!$56
  716.  
  717.               STA NMI+1
  718.  
  719.               LDA $D016
  720.  
  721.               EOR #2
  722.  
  723.               STA $D016
  724.  
  725.              ENDIF
  726.  
  727.              IF EXEC
  728.  
  729.               JSR $1003
  730.  
  731.              ELSEIF
  732.  
  733.               BIT $1003                 ; cHANGE THIS FOR MUSIC-PLAY OR SO
  734.  
  735.              ENDIF
  736.  
  737. LOWER_Y:      LDY #$ff
  738.  
  739. LOWER_X:      LDX #$ff
  740.  
  741. LOWER_A:      LDA #$FF
  742.  
  743.               RTI
  744.  
  745.  
  746.  
  747.  ; ------------------------------------------------------------- nmiS
  748.  
  749.  
  750.  
  751.               MACEXP OFF
  752.  
  753. RUNCNT        SET 0
  754.  
  755.               REPT 8
  756.  
  757.                ORG $083F+RUNCNT*256
  758.  
  759.                FLI_NMI $23,$90,RUNCNT,0,-1
  760.  
  761.                ORG $0823+RUNCNT*256
  762.  
  763.                FLI_NMI $BD,$A0,RUNCNT,0,-1
  764.  
  765.                ORG $08BD+RUNCNT*256
  766.  
  767.                FLI_NMI $3F,$B0,RUNCNT,1,-1
  768.  
  769.  
  770.  
  771.               IF INTERLACED
  772.  
  773.                ORG $0856+RUNCNT*256
  774.  
  775.                FLI_NMI $3B,$D0,RUNCNT,0,$71
  776.  
  777.                ORG $0871+RUNCNT*256
  778.  
  779.                FLI_NMI $3D,$E0,RUNCNT,0,$8C
  780.  
  781.                ORG $088C+RUNCNT*256
  782.  
  783.                FLI_NMI $3F,$F2,RUNCNT,1,$56
  784.  
  785.               ENDIF
  786.  
  787.  
  788.  
  789. RUNCNT        SET RUNCNT+1
  790.  
  791.               ENDM
  792.  
  793.  
  794.  
  795.               END START
  796.  
  797.