home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 755.dms / 755.adf / Orphaned / 1573 / Orphan-1573-1573
Text File  |  1993-02-19  |  4KB  |  234 lines
  1. ****************************************************************
  2. *                                        *
  3. *         THIS PROGRAM WAS CODED BY THE CRUX OF SILENTS           *
  4. *               ALL RIGHTS ARE RESERVED               *
  5. *                                        *
  6. ****************************************************************
  7. >EXTERN "DF1:GRAFIX/ALIEN",PIC
  8. >EXTERN "DF1:GRAFIX/ALFS",PIC2
  9. >EXTERN "DF1:GRAFIX/ALIEN",PIC3
  10. >EXTERN "DF1:GRAFIX/ALFS",PIC4
  11.  
  12.             ORG      $35000
  13.             LOAD     $35000
  14.             PIC=    $40000
  15.             PIC2=    PIC+55000
  16.             PIC3=    PIC2+55000
  17.             PIC4=    PIC3+55000
  18.  
  19. J:;    MOVEM.L    D0-D7/A0-A6,-(SP)
  20.     MOVE.W    #$0020,$DFF09A
  21.     MOVE.L    #COPPER,$DFF084        ;START COPPER
  22.     MOVE.W    $DFF08A,D0
  23.     MOVE.W    #$0020,$DFF096
  24. ****************************************
  25. KOLLE:
  26.     MOVE.L    #PIC+$C800,A0    ;POINTER PAA PIC'S COLOURS
  27.     MOVE.L    #COLOURS+2,A1    ;POINTER PAA FARVER
  28.     MOVE.L    #PIC2+$C800,A2    ;POINTER PAA PIC2'S COLOURS
  29.     MOVE.L    #COLOURS+2,A3    ;POINTER PAA FARVER
  30.     MOVE.L    #PIC3+$C800,A4    ;POINTER PAA PIC3'S COLOURS
  31.     MOVE.L    #COLOURS+2,A5    ;POINTER PAA FARVER
  32.     MOVE.B    #8,TAELLEJOHN
  33. LOOP:
  34. WAITFORRASTER:
  35.     CMPI.B    #$60,$DFF006    ;VENT PAA RASTER, FOR RIGTIG TID.
  36.     BNE.S    WAITFORRASTER
  37.     BTST    #6,$BFE001
  38.     BEQ.L    STOP
  39.     MOVE.W    #$F66,$DFF180
  40.     BSR.S    DEMO
  41.     MOVE.W    #$000,$DFF180
  42.     BRA.S    LOOP
  43. DEMO:
  44.     CMP.B    #1,CHECK
  45.     BGE.S    DEMO2
  46.     SUB.B    #1,BENDT
  47.     BNE.S    HOLDT
  48.     BSR.L    BITPLANESETUP
  49.     MOVE.B    #10,BENDT
  50.     MOVE.W    (A0),(A1)
  51.     ADD.W    #$2,A0
  52.     ADD.W    #$4,A1
  53.     SUBQ.B    #1,IB    ;I D2 LIGGER TAELLER TIL ANTAL FARVER.
  54.     BNE.S    HOLDT
  55.     MOVE.B    #1,CHECK    ;CHECK LIGGER TESTER FOR VIDERE KORSEL
  56.     MOVE.B    #10,BENDT    
  57.     MOVE.B    #32,IB        ;I IB LIGGER ANTAL FARVER
  58. HOLDT:
  59.     RTS
  60. DEMO2:
  61.     CMP.B    #2,CHECK
  62.     BGE.L    DEMO3
  63.     SUB.B    #1,TAELLER
  64.     BNE.S    HOLDT
  65.  
  66.     BSR.S    TEST
  67.     MOVE.B    #$2,TAELLER
  68.     SUB.B    #1,BENDT
  69.     BNE.S    HOLDT
  70.     MOVE.W    (A2),(A3)
  71.     ADD.W    #$2,A2
  72.     ADD.W    #$4,A3
  73.     MOVE.B    #4,BENDT
  74.     SUBQ.B    #1,IB        ;I D2 LIGGER TAELLER TIL ANTAL FARVER.
  75.     BNE.S    HOLDT
  76.     MOVE.B    #2,CHECK    ;CHECK LIGGER TESTER FOR VIDERE KORSEL
  77.     RTS
  78. TEST:
  79.     SUB.B    #1,TAELLEJOHN    ;TAELLER I TAELLEJOHN
  80.     BNE.S    HOLDT
  81.     MOVE.B    #20,TAELLEJOHN
  82.     ADD.B    #1,JOHN
  83.     CMP.B    #1,JOHN
  84.     BEQ.L    PLANE1_2
  85.     CMP.B    #2,JOHN
  86.     BEQ.L    PLANE2_2
  87.     CMP.B    #3,JOHN
  88.     BEQ.L    PLANE3_2
  89.     CMP.B    #4,JOHN
  90.     BEQ.L    PLANE4_2
  91.     CMP.B    #5,JOHN
  92.     BEQ.L    PLANE5_2
  93.     RTS
  94. ;///////////////////////////////////////////
  95. DEMO3:
  96.     CMP.B    #3,CHECK
  97.     BGE.L    FADERUTINEN
  98.     MOVE.W    (A4),(A5)
  99.     ADD.W    #$2,A4
  100.     ADD.W    #$4,A5
  101.     SUBQ.B    #1,D2        ;I D2 LIGGER TAELLER TIL ANTAL FARVER.
  102.     BNE.S    HOLDT2
  103.     MOVE.B    #3,CHECK    ;CHECK LIGGER TESTER FOR VIDERE KORSEL
  104.  
  105.     MOVE.B    #31,IB
  106.     MOVEQ    #0,D5
  107.     MOVEQ    #0,D0
  108. HOLDT2:
  109.     RTS
  110. DEMO4:
  111.     CMP.B    #5,CHECK
  112.     BGE.S    DEMO5
  113. KOL:
  114.     MOVE.B    IBEN,ON+2
  115.     ADD.B    #1,OFF
  116.     CMP.B    #$FF,OFF
  117.     BNE.S    HOLDT2
  118.     MOVE.B    #5,CHECK
  119.     MOVE.B    IBEN,OFF+6
  120.     RTS    
  121. DEMO5:
  122.     CMP.B    #6,CHECK
  123.     BGE.S    RUTINECHECK
  124.     ADD.B    #1,OFF2
  125.     CMP.B    #$24,OFF2
  126.     BNE.S    HOLDT2
  127.     MOVE.B    #6,CHECK
  128.     RTS
  129. RUTINECHECK:
  130.     CMP.B    #7,CHECK
  131.     BEQ.L    HOLDT
  132.     MOVE.B    #$00,OFF
  133.     MOVE.B    #$00,OFF2
  134.     MOVE.B    IBEN,OFF2+6
  135.     ADD.B    #$10,IBEN
  136.     MOVE.B    #3,CHECK
  137.     CMP.B    #$62,IBEN
  138.     BNE.L    HOLDT2
  139.     MOVE.B    #7,CHECK
  140.     RTS
  141. ;////////////////////////////////////////
  142. FADERUTINEN:
  143. INIT:
  144.     CMP.B    #4,CHECK
  145.     BGE.L    DEMO4
  146.     MOVE.W    (A1,D5.W),D0
  147.     CMP.W    #$FFFE,D0
  148.     BNE.S    GOON
  149.     MOVE.L    #COLOURS+2,A1
  150.     MOVEQ    #0,D5
  151.     RTS
  152. GOON:    BSR.S    FADESETUP
  153.     ADD.W    #4,D5
  154.     RTS
  155. FADESETUP:
  156.     MOVE.W    #$F00,D1    
  157.     BSR.S    FADE
  158.     MOVE.W    #$0F0,D1
  159.     BSR.S    FADE
  160.     MOVE.W    #$00F,D1
  161. FADE:    
  162.     MOVE.W    D0,D3        ;SAFE I D3
  163.     AND.W    D1,D3        ;FJERN R,G ELLER B
  164.     BEQ.L    HOLDT2        ;HVIS NUL HOLDT
  165.     AND.W    #$111,D1    ;FIND UD AF, HVILKET "BOGSTAV, DER NEDT."
  166.     SUB.W    D1,(A1,D5.W)    ;TRAEK DET FRA
  167.     BNE.L    HOLDT2
  168.     SUB.B    #1,IB
  169.     BNE.L    HOLDT2
  170.     MOVE.B    #4,CHECK
  171.     RTS
  172.  
  173. ;////////////////////////////////////////
  174. BITPLANESETUP:
  175.     MOVE.L    #PIC,D0
  176.     MOVE.W    D0,BITPL1+6    
  177.     SWAP    D0
  178.     MOVE.W    D0,BITPL1+2
  179.     MOVE.L    #PIC+10240,D0
  180.     MOVE.W    D0,BITPL2+6
  181.     SWAP    D0
  182.     MOVE.W    D0,BITPL2+2
  183.     MOVE.L    #PIC+20480,D0
  184.     MOVE.W    D0,BITPL3+6    
  185.     SWAP    D0
  186.     MOVE.W    D0,BITPL3+2
  187.     MOVE.L    #PIC+30720,D0
  188.     MOVE.W    D0,BITPL4+6    
  189.     SWAP    D0
  190.     MOVE.W    D0,BITPL4+2
  191.  
  192.     MOVE.L    #PIC+40960,D0
  193.     MOVE.W    D0,BITPL5+6    
  194.     SWAP    D0
  195.     MOVE.W    D0,BITPL5+2
  196.     RTS
  197. BITPLANESETUP3:
  198.     MOVE.L    #PIC3,D0
  199.     MOVE.W    D0,BITPL1+6    
  200.     SWAP    D0
  201.     MOVE.W    D0,BITPL1+2
  202.     MOVE.L    #PIC3+10240,D0
  203.     MOVE.W    D0,BITPL2+6
  204.     SWAP    D0
  205.     MOVE.W    D0,BITPL2+2
  206.     MOVE.L    #PIC3+20480,D0
  207.     MOVE.W    D0,BITPL3+6    
  208.     SWAP    D0
  209.     MOVE.W    D0,BITPL3+2
  210.     MOVE.L    #PIC3+30720,D0
  211.     MOVE.W    D0,BITPL4+6    
  212.     SWAP    D0
  213.     MOVE.W    D0,BITPL4+2
  214.  
  215.     MOVE.L    #PIC3+40960,D0
  216.     MOVE.W    D0,BITPL5+6    
  217.     SWAP    D0
  218.     MOVE.W    D0,BITPL5+2
  219.     RTS
  220.  
  221.  
  222. PLANE1_2:
  223.     MOVE.L    #PIC2,D0
  224.     MOVE.W    D0,BITPL1+6    
  225.     SWAP    D0
  226.     MOVE.W    D0,BITPL1+2
  227.     RTS
  228. PLANE2_2:
  229.     MOVE.L    #PIC2+10240,D0
  230.     MOVE.W    D0,BITPL2+6
  231.     SWAP    D0
  232.     MOVE.W    D0,BITPL2+2
  233.     RTS
  234. P