home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / TRACKER / FutureComposer.lha / FutureComposer / SourceCodes / SA.S < prev   
Encoding:
Text File  |  1990-08-06  |  2.7 KB  |  161 lines
  1. START:    MOVE.L 4,A6
  2.     JSR -132(A6)
  3.     LEA COP2(PC),A0
  4.     LEA COPA(PC),A1
  5.     MOVE.L A0,(A1)
  6.     LEA COP3(PC),A0
  7.     MOVE.L A0,4(A1)
  8.     BRA ST2
  9.  
  10. COPA:    DC.L 0
  11.     DC.L 0
  12. CURCOP:    DC.W 0
  13.  
  14. COPLIST:DC.L $0001FFFE,$01000000
  15.     DC.L $2B01FFFE,$00960020,$01440000,$01460000,$009A0070
  16.     DC.L $008E0581,$01000000,$01040024,$0090F1C1
  17.     DC.L $00920038,$009400D0,$01020000,$01080000,$010A0000
  18.     DC.L $01800000,$01820FFF,$01840C40,$018600EF
  19.     DC.L $01880F5F,$018A00C6,$018C000D,$018E0FE8
  20.     DC.L $01900C70,$01920950,$01940F86,$01960666
  21.     DC.L $01980999,$019A00FB,$019C009E,$019E0CCC
  22. PLANES:    DC.L $00E00000,$00E20000,$00E40000,$00E60000
  23.     DC.L $00E80000,$00EA0000,$00EC0000,$00EE0000
  24. FLD:    BLK.L 25*4,$0
  25.     DC.L $01004200
  26.     DC.L $F401FFFE,$01000200
  27.     DC.L $FFFFFFFE
  28.  
  29. COP2:    BLK.B 600,0
  30. COP3:    BLK.B 600,0
  31.  
  32. FLDPAT:    DC.L $0001FFFE,$01004200,$0001FFFE,$01000200
  33. GRNAM:    DC.B "graphics.library",0
  34.     EVEN
  35.  
  36. ********** CREATE FLD + BITPLANE DATAS IN COPPER LIST **********
  37.  
  38. FLDFIX:    MOVE.W #$F5,D0
  39.     LEA FLD(PC),A0
  40.     MOVE.W #24,D2
  41. FLDL:    LEA FLDPAT(PC),A1
  42.     MOVE.B D0,(A1)
  43.     MOVE.B D0,8(A1)
  44.     MOVEQ #3,D1
  45. FLDX:    MOVE.L (A1)+,(A0)+
  46.     DBF D1,FLDX    
  47.     DBF D2,FLDL
  48.     
  49.     LEA PLANES+2(PC),A0
  50.     LEA BMAP(PC),A1
  51.     MOVE.L A1,D1
  52.     MOVEQ #3,D0
  53. PLXLP:    SWAP D1
  54.     MOVE.W D1,(A0)
  55.     SWAP D1
  56.     MOVE.W D1,4(A0)
  57.     ADDI.L #8000,D1
  58.     ADDQ.L #8,A0
  59.     DBF D0,PLXLP
  60.     RTS
  61.  
  62. ********** RESTORE SYSTEM COPPER LIST **********
  63.  
  64. GRBAS:    DC.L 0
  65.  
  66. GRFET:    MOVE.L 4,A6
  67.     LEA GRNAM(PC),A1
  68.     CLR.L D0
  69.     JSR -30-522(A6)
  70.     LEA GRBAS(PC),A0
  71.     MOVE.L D0,(A0)
  72.     MOVE.L D0,A6
  73.  
  74.     MOVE.L (A0),A0
  75.     MOVE.L 38(A0),$DFF080
  76.     MOVE.W #0,$DFF088
  77.  
  78.     MOVE.L 4,A6
  79.     LEA GRBAS(PC),A0
  80.     MOVE.L (A0),A1
  81.     JSR -414(A6)
  82.     RTS
  83.  
  84. ST2:    BSR FLDFIX
  85.     LEA COPLIST(PC),A0
  86.     MOVE.L A0,$DFF080
  87.     CLR.W $DFF088
  88.     BSR SCRUP
  89.  
  90. MOUSE:    BTST #6,$BFE001
  91.     BNE MOUSE
  92.  
  93.     MOVE.L 4,A6
  94.     JSR -138(A6)
  95.     BSR GRFET
  96.     MOVE.W #$8020,$DFF096
  97.     MOVE.W #$8070,$DFF09A
  98.     CLR.L D0
  99.     RTS
  100.  
  101. ********** FLD MODIFY **********
  102.  
  103. FLDTAB:    BLK.B 26,0
  104.     EVEN
  105.  
  106. MODIFY:    MOVEM.L D0-D1/A0-A1,-(A7)
  107. VBLANK:    MOVE.L $DFF004,D0
  108.     ANDI.L #$1FF00,D0
  109.     BNE VBLANK
  110.  
  111.     LEA FLD(PC),A0
  112.     LEA FLDTAB(PC),A1
  113.     MOVE.W #24,D1
  114.     MOVE.W #$2C,D0
  115. MODLOOP:MOVE.B D0,(A0)
  116.     ADDI.B #1,D0
  117. MD2:    MOVE.B D0,8(A0)
  118.     ADD.B (A1)+,D0
  119. MD3:    ADDI.L #16,A0
  120.     DBF D1,MODLOOP
  121.  
  122.     LEA COPLIST(PC),A0
  123.     LEA COPA(PC),A1
  124.     LEA CURCOP(PC),A2
  125.     MOVE.W (A2),D0
  126.     MOVE.L (A1,D0.W),A1
  127.     MOVE.W #575,D0
  128. COPCOP:    MOVE.B (A0)+,(A1)+
  129.     DBF D0,COPCOP
  130.  
  131.     LEA COPA(PC),A1
  132.     LEA CURCOP(PC),A2
  133.     MOVE.W (A2),D0
  134.     MOVE.L (A1,D0.W),$DFF080
  135.     CLR.W $DFF088
  136.     EORI.W #4,(A2)
  137.     MOVEM.L (A7)+,D0-D1/A0-A1
  138.     RTS
  139.  
  140. ALLRAS:    MOVEM.L D0-D1/A0,-(A7)
  141. ALLLOOP:LEA FLDTAB(PC),A0
  142.     MOVE.W #24,D1
  143. ALLLOO2:MOVE.B D0,(A0)+
  144.     DBF D1,ALLLOO2
  145.     BSR MODIFY
  146.     MOVEM.L (A7)+,D0-D1/A0
  147.     RTS
  148.  
  149. SCRUP:    CLR.W D1
  150. SCRLOOP:LEA BOUNCE(PC),A0
  151.     MOVE.B (A0,D1.W),D0
  152.     BSR ALLRAS
  153.     ADDI.B #1,D1
  154.     CMPI.B #$70,D1
  155.     BNE SCRLOOP
  156.     RTS
  157.  
  158. BOUNCE:    BLK.B $70,0
  159. BMAP:    BLK.B 32000,0
  160. ENDE:
  161.