home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / LEDGERS / LEDG_05.MSA / SOURCE / DRIVE_CO.DE / DRIVE_FX.S next >
Text File  |  1987-04-22  |  2KB  |  136 lines
  1. * DRIVE FX DEMO BY THE TITAN OF SPLIT INFINITY.....
  2. * MUSIC BY MAD MAX
  3.  
  4.  
  5.  
  6.     DC.W $A00A
  7.  
  8.     CLR.L -(SP)     ;SV MODE
  9.     MOVE.W #$20,-(SP)
  10.     TRAP #1
  11.     ADDQ.L #6,SP
  12.     MOVE.L D0,STACK
  13.     MOVE.L USP,A0
  14.     MOVE.L A0,USTACK
  15.  
  16.  
  17.  
  18.     MOVE.W #5,-(SP)
  19.     MOVE.W #26,-(SP)
  20.     TRAP #14
  21.     ADDQ.L #4,SP
  22.  
  23.  
  24.     PEA MOUSE
  25.     MOVE.W #1,-(SP)
  26.     MOVE.W #25,-(SP)
  27.     TRAP #14
  28.     ADDQ.L #8,SP
  29.  
  30.  
  31.     MOVEQ #2,D0    *SETUP MUSIC
  32.     JSR MUSIC
  33.  
  34.  
  35.     MOVE.W #$2700,SR
  36.     MOVE.L $70,OVBL
  37.     MOVE.L #VBL,$70
  38.     MOVE.W #$2300,SR
  39.  
  40.  
  41.  
  42. DEADLOP:
  43.     CMP.B #0,(FLAG)
  44.     BEQ DEADLOP
  45.     MOVE.B #0,(FLAG)
  46.  
  47.     CMP.B #$39,$FFFC02
  48.     BNE DEADLOP
  49.  
  50.  
  51.  
  52. EXIT:
  53.     MOVE.W #$2700,SR
  54.     MOVE.L OVBL,$70
  55.     MOVE.W #$2300,SR
  56.  
  57.  
  58.     MOVE.W #5,-(SP)
  59.     MOVE.W #27,-(SP)
  60.     TRAP #14
  61.     ADDQ.L #4,SP
  62.  
  63.  
  64.     MOVE.L #$8080000,$FF8800    *TURN ALL SOUND OFF
  65.     MOVE.L #$9090000,$FF8800
  66.     MOVE.L #$A0A0000,$FF8800
  67.  
  68.     PEA MOUSE+2
  69.     MOVE.W #1,-(SP)
  70.     MOVE.W #25,-(SP)
  71.     TRAP #14
  72.     ADDQ.L #8,SP
  73.  
  74.  
  75.     MOVE.L USTACK,A0
  76.     MOVE.L A0,USP
  77.     MOVE.L STACK,-(SP)
  78.     MOVE.W #$20,-(SP)
  79.     TRAP #1
  80.     ADDQ.L #6,SP
  81.  
  82.     MOVE.W #0,-(SP)
  83.     TRAP #1
  84.  
  85.  
  86. COPY:
  87.         MOVE.L (A0)+,(A1)+
  88.         DBRA D0,COPY
  89.         RTS
  90.  
  91.  
  92. VBL:
  93. * THE DRIVE FX CODE
  94.  
  95.     MOVE.B #7,$FF8800
  96.     BTST #3,$FF8800
  97.     BNE LOFF
  98.  
  99.     MOVE.B #$E,$FFFF8800.W
  100.     MOVE.B #$4,$FFFF8802.W
  101.     BRA LREST
  102.  
  103. LOFF    MOVE.B #$E,$FFFF8800.W
  104.     MOVE.B #$3,$FFFF8802.W
  105. LREST:
  106.  
  107.  
  108. * PLAY THE MUSIX....
  109.     JSR MUSIC+8
  110.  
  111.  
  112.     MOVE.B #1,(FLAG)
  113.         RTE
  114.  
  115. *************** DATA IN DE AREA (THE REVENGE OF!!!) *************
  116. FLAG:    DC.B 0
  117.     EVEN
  118. SCR:    EQU $78000
  119.  
  120. STACK:    DC.L 0
  121. USTACK:    DC.L 0
  122.  
  123. OVBL:
  124.         DC.L 0
  125.  
  126. MOUSE:
  127.         DC.B $12,$1A,$14,8
  128.         EVEN
  129. SYSPAL:    DC.W $777,$700,$070,$000,$007,$707,$007,$555
  130.     DC.W $333,$733,$373,$773,$337,$737,$377,$000
  131.  
  132. MUSIC:    INCBIN MAX.MUZ
  133.     EVEN
  134.  
  135.  END
  136.