home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS2.ARJ / stosbts2.msa / PROGRAMS / HPC.S
Text File  |  1987-04-22  |  5KB  |  225 lines
  1.     MOVE.B    CHECK,D0
  2.     CMP.B    #1,D0
  3.     BEQ    STOP_TIME
  4.     MOVE.B    #1,CHECK
  5.             
  6.     MOVE.L $118.W,OLD118
  7.     MOVE.L $120.W,OLD120
  8.     MOVE.L $70.W,OLD70
  9.     MOVE.B $FFFFFA07.W,OLDA07
  10.     MOVE.B $FFFFFA13.W,OLDA13
  11.     MOVE.B $FFFFFA1B.W,OLDA1B
  12.     MOVE.B $FFFFFA21.W,OLDA21
  13.     DC.W $A000
  14.     DC.W $A00A            ;HIDE MOUSE
  15.     MOVE.B #$12,$FFFFFC02.W     ;DISABLE MOUSE
  16.     MOVE.W #5,-(A7)            ;5=TIMER C INTERRUPT
  17.     MOVE.W #26,-(A7)        ;26=DISBALE INTERRUPT
  18.     TRAP #14
  19.     ADDQ.L #4,A7
  20.      ORI.B #1,$FFFFFA07.W        ;ENABLE TIMER B
  21.     ORI.B #1,$FFFFFA13.W
  22.     MOVE.L #TIMERB,$120.W
  23.     MOVE.L #VBL,$70.W
  24.  
  25.     RTS
  26.  
  27. STOP_TIME
  28.     MOVE.B    #0,CHECK
  29.     MOVE.W #$2700,SR        ;DISBALE INTERRUPTS
  30.     MOVE.L OLD70,$70.W
  31.     MOVE.L OLD120,$120.W
  32.     MOVE.L OLD118,$118.W
  33.     MOVE.B OLDA07,$FFFFFA07.W
  34.     MOVE.B OLDA13,$FFFFFA13.W
  35.     MOVE.B OLDA1B,$FFFFFA1B.W
  36.     MOVE.B OLDA21,$FFFFFA21.W
  37.     MOVE.W #5,-(A7)            ;5=TIMER C INTERRUPT
  38.     MOVE.W #27,-(A7)        ;27=ENABLE INTERRUPT
  39.     TRAP #14
  40.     ADDQ.L #4,A7
  41.     DC.W $A000
  42.     DC.W $A009            ;SHOW MOUSE
  43.     MOVE.B #$08,$FFFFFC02.W     ;ENABLE MOUSE
  44.     MOVE.W #$000,$FFFF8240.W    ;SET COLOUR 0 TO WHITE
  45.     MOVE.W #$2300,SR
  46.     RTS
  47. VBL    CLR.B $FFFFFA1B.W        ;STOP TIMER B FOR SYNCRONISATION
  48.     ADD.L    #1,$462
  49.     ADD.L    #1,$466
  50.     MOVE.L    A0-A1,-(A7)
  51.     MOVE.L    #PAL,A0
  52.     MOVE.L    $FFFFF8240.W,A1
  53.     MOVE.W    (A0)+,(A1)+
  54.     MOVE.W    (A0)+,(A1)+
  55.     MOVE.W    (A0)+,(A1)+
  56.     MOVE.W    (A0)+,(A1)+
  57.     MOVE.W    (A0)+,(A1)+        *SET PALETTE
  58.     MOVE.W    (A0)+,(A1)+
  59.     MOVE.W    (A0)+,(A1)+
  60.     MOVE.W    (A0)+,(A1)+
  61.     MOVE.L    (A7)+,A0-A1
  62.  
  63.  
  64.  
  65.     MOVE.B #5,$FFFFFA21.W      ;COUNTER=10 SCANLINES
  66.         MOVE.W $007,$FFFF8242.W  ;SET COLOUR 0 TO FIRST COLOUR
  67.     MOVE.L    #TIMERB,$120.W
  68.     MOVE.B #8,$FFFFFA1B.W        ;START TIMER B
  69.     RTE                ;PISS OFF
  70.  
  71. TIMERB    CLR.B $FFFFFA1B.W       
  72.     MOVE.W #$107,$FFFF8242.W   
  73.     MOVE.B #10,$FFFFFA21.W      
  74.     MOVE.B #8,$FFFFFA1B.W       
  75.     MOVE.L    #T2,$120.W
  76.     BCLR #0,$FFFFFA0F.W       
  77.     RTE               
  78.  
  79. T2    CLR.B $FFFFFA1B.W       
  80.     MOVE.W #$207,$FFFF8242.W   
  81.     MOVE.B #10,$FFFFFA21.W      
  82.     MOVE.B #8,$FFFFFA1B.W       
  83.     MOVE.L    #T3,$120.W
  84.     BCLR #0,$FFFFFA0F.W       
  85.     RTE
  86.  
  87. T3    CLR.B $FFFFFA1B.W       
  88.     MOVE.W #$307,$FFFF8242.W   
  89.     MOVE.B #10,$FFFFFA21.W      
  90.     MOVE.B #8,$FFFFFA1B.W       
  91.     MOVE.L    #T4,$120.W
  92.     BCLR #0,$FFFFFA0F.W       
  93.     RTE
  94. T4    CLR.B $FFFFFA1B.W       
  95.     MOVE.W #$407,$FFFF8242.W   
  96.     MOVE.B #10,$FFFFFA21.W      
  97.     MOVE.B #8,$FFFFFA1B.W       
  98.     MOVE.L    #T5,$120.W
  99.     BCLR #0,$FFFFFA0F.W       
  100.     RTE
  101. T5    CLR.B $FFFFFA1B.W       
  102.     MOVE.W #$507,$FFFF8242.W   
  103.     MOVE.B #10,$FFFFFA21.W      
  104.     MOVE.B #8,$FFFFFA1B.W       
  105.     MOVE.L    #T6,$120.W
  106.     BCLR #0,$FFFFFA0F.W       
  107.     RTE
  108. T6    CLR.B $FFFFFA1B.W       
  109.     MOVE.W #$607,$FFFF8242.W   
  110.     MOVE.B #10,$FFFFFA21.W      
  111.     MOVE.B #8,$FFFFFA1B.W       
  112.     MOVE.L    #T7,$120.W
  113.     BCLR #0,$FFFFFA0F.W       
  114.     RTE
  115. T7    CLR.B $FFFFFA1B.W       
  116.     MOVE.W #$707,$FFFF8242.W   
  117.     MOVE.B #10,$FFFFFA21.W      
  118.     MOVE.B #8,$FFFFFA1B.W       
  119.     MOVE.L    #T8,$120.W
  120.     BCLR #0,$FFFFFA0F.W       
  121.     RTE
  122. T8    CLR.B $FFFFFA1B.W       
  123.     MOVE.W #$716,$FFFF8242.W   
  124.     MOVE.B #10,$FFFFFA21.W      
  125.     MOVE.B #8,$FFFFFA1B.W       
  126.     MOVE.L    #T9,$120.W
  127.     BCLR #0,$FFFFFA0F.W       
  128.     RTE
  129. T9    CLR.B $FFFFFA1B.W       
  130.     MOVE.W #$725,$FFFF8242.W   
  131.     MOVE.B #10,$FFFFFA21.W      
  132.     MOVE.B #8,$FFFFFA1B.W       
  133.     MOVE.L    #T10,$120.W
  134.     BCLR #0,$FFFFFA0F.W       
  135.     RTE
  136. T10    CLR.B $FFFFFA1B.W       
  137.     MOVE.W #$734,$FFFF8242.W   
  138.     MOVE.B #10,$FFFFFA21.W      
  139.     MOVE.B #8,$FFFFFA1B.W       
  140.     MOVE.L    #T11,$120.W
  141.     BCLR #0,$FFFFFA0F.W       
  142.     RTE
  143.  
  144. T11    CLR.B $FFFFFA1B.W       
  145.     MOVE.W #$743,$FFFF8242.W   
  146.     MOVE.B #10,$FFFFFA21.W      
  147.     MOVE.B #8,$FFFFFA1B.W       
  148.     MOVE.L    #T12,$120.W
  149.     BCLR #0,$FFFFFA0F.W       
  150.     RTE
  151.  
  152. T12    CLR.B $FFFFFA1B.W       
  153.     MOVE.W #$752,$FFFF8242.W   
  154.     MOVE.B #10,$FFFFFA21.W      
  155.     MOVE.B #8,$FFFFFA1B.W       
  156.     MOVE.L    #T13,$120.W
  157.     BCLR #0,$FFFFFA0F.W       
  158.     RTE
  159.  
  160. T13    CLR.B $FFFFFA1B.W       
  161.     MOVE.W #$761,$FFFF8242.W   
  162.     MOVE.B #10,$FFFFFA21.W      
  163.     MOVE.B #8,$FFFFFA1B.W       
  164.     MOVE.L    #T14,$120.W
  165.     BCLR #0,$FFFFFA0F.W       
  166.     RTE
  167.  
  168. T14    CLR.B $FFFFFA1B.W       
  169.     MOVE.W #$770,$FFFF8242.W   
  170.     MOVE.B #10,$FFFFFA21.W      
  171.     MOVE.B #8,$FFFFFA1B.W       
  172.     MOVE.L    #T15,$120.W
  173.     BCLR #0,$FFFFFA0F.W       
  174.     RTE
  175. T15    CLR.B $FFFFFA1B.W       
  176.     MOVE.W #$771,$FFFF8242.W   
  177.     MOVE.B #10,$FFFFFA21.W      
  178.     MOVE.B #8,$FFFFFA1B.W       
  179.     MOVE.L    #T16,$120.W
  180.     BCLR #0,$FFFFFA0F.W       
  181.     RTE
  182.  
  183. T16    CLR.B $FFFFFA1B.W       
  184.     MOVE.W #$772,$FFFF8242.W   
  185.     MOVE.B #10,$FFFFFA21.W      
  186.     MOVE.B #8,$FFFFFA1B.W       
  187.     MOVE.L    #SCROLL,$120.W
  188.     BCLR #0,$FFFFFA0F.W       
  189.     RTE
  190. SCROLL    CLR.B $FFFFFA1B.W       
  191.     MOVE.L    A0-A1,-(A7)
  192.     MOVE.L    #PAL1,A0
  193.     MOVE.L    $FFFFF8240.W,A1
  194.     MOVE.W    (A0)+,(A1)+
  195.     MOVE.W    (A0)+,(A1)+
  196.     MOVE.W    (A0)+,(A1)+
  197.     MOVE.W    (A0)+,(A1)+
  198.     MOVE.W    (A0)+,(A1)+    *SET SCROLL LINE PALETTE
  199.     MOVE.W    (A0)+,(A1)+
  200.     MOVE.W    (A0)+,(A1)+
  201.     MOVE.W    (A0)+,(A1)+
  202.     MOVE.L    (A7)+,A0-A1   
  203.     MOVE.B #100,$FFFFFA21.W      
  204.     MOVE.B #8,$FFFFFA1B.W       
  205.     MOVE.L    #SCROLL,$120.W
  206.     BCLR #0,$FFFFFA0F.W       
  207.     RTE
  208.  
  209.  
  210.  
  211. OLD70    DS.L 1
  212. OLD118    DS.L 1
  213. OLD120    DS.L 1
  214. OLDA07    DS.B 1
  215. OLDA13    DS.B 1
  216. OLDA21    DS.B 1
  217. OLDA1B    DS.B 1
  218. STACK    DS.L 1
  219. CHECK    DC.B    0
  220.  
  221. PAL    DC.W    $000,$000,$110,$221,$332,$443,$712,$777,$554,$757
  222.     DC.W    $757,$020,$231,$342,$453,$574
  223. PAL1    DC.W    $000,$200,$300,$400,$500,$600,$217,$216,$215,$214
  224.     DC.W    $373,$773,$337,$737,$000,$700
  225.