home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Source / pheno.lha / pha / ODTest.S < prev    next >
Encoding:
Text File  |  1987-12-17  |  4.5 KB  |  235 lines
  1. ;------------------------------------------------------------------------
  2. ;---                                      ---
  3. ;---              Another Demo created by:              ---
  4. ;---                 Mace of Dual Crew                  ---
  5. ;---                                      ---
  6. ;------------------------------------------------------------------------
  7.  
  8. >EXTERN        'SmallFont',Font
  9.  
  10. S:        bsr    SaveAll
  11.         bsr    InitSpr
  12.         bsr    ClearText
  13.         bsr    PrintText
  14.         bsr    StartCopper
  15.         bsr    MainLoop
  16.         move.l    OldCop,$80(a6)
  17.         tst.w    $88(a6)
  18.         move.w    OldIrq,$9a(a6)
  19.         jmp    Demo+$24
  20.  
  21. SaveAll:    move.l    $4,a6
  22.         lea.l    GfxName(pc),a1
  23.         moveq    #0,d0
  24.         jsr    -408(a6)
  25.         move.l    d0,a0
  26.         move.l    $26(a0),OldCop
  27.         move.w    $dff01c,d0
  28.         bset    #15,d0
  29.         move.w    d0,OldIrq
  30.         move.w    #$7fff,$dff09a
  31.         move.w    #$c000,$dff09a
  32.         lea.l    $dff000,a6
  33.         ;move.b    #$fd,$bfd100
  34.         ;nop
  35.         ;nop
  36.         ;move.b    #$f5,$bfd100
  37.         lea.l    Font(pc),a0
  38.         add.l    #60*3+57,a0
  39.         bset    #2,(a0)            ;Correct the Y....
  40.         rts
  41.  
  42. InitSpr:    lea.l    CopperList,a0
  43.         move.l    #BlindSpr,d0
  44.         moveq    #8-1,d7
  45. SprLoop1:    swap    d0
  46.         move.w    d0,2(a0)
  47.         swap    d0
  48.         move.w    d0,6(a0)
  49.         addq.l    #8,a0
  50.         dbra    d7,SprLoop1
  51.         rts
  52.  
  53. StartCopper:    move.l    #CopperList,$80(a6)
  54.         tst.w    $88(a6)
  55.         move.w    #$85c0,$96(a6)
  56.         rts
  57.  
  58. Copper2:    dc.l    $01000000,$01800000,-2
  59.  
  60. ;------------------------------------------------------------------------
  61.  
  62. ClearText:    move.l    TextAdr,d0
  63.         move.w    #300*64+22,d1
  64.         bsr    ClearScreen
  65.         bsr    BlitWait
  66.         rts
  67.  
  68. PrintText:    bsr    CountRows
  69.         move.w    Rows,d7
  70.         lea.l    Text(pc),a0
  71. PrintLoop:    bsr    CountLetters
  72.         bsr    PrintRow
  73.         add.l    #8*40,FinalTAdr
  74.         dbra    d7,PrintLoop
  75. Egge:        rts
  76.  
  77. PrintRow:    move.l    a0,a1
  78.         cmp.w    #-1,Letters
  79.         beq.S    Piller
  80.         move.w    Letters,d6
  81.         move.l    FinalTAdr,d4
  82.         moveq    #0,d1
  83.         moveq    #0,d2
  84.  
  85. PrintLoop2:    moveq    #0,d0
  86.         move.b    (a1)+,d0
  87.         sub.b    #$20,d0
  88.         add.l    #Font,d0
  89.         move.l    d0,a2
  90.         move.w    RowAdr(pc),d1
  91.         move.w    d1,d2
  92.         lsr.w    #3,d1
  93.         bclr    #0,d1
  94.         and.w    #$f,d2
  95.         move.l    d4,a3
  96.         add.l    d1,a3
  97.         moveq    #5-1,d5
  98. Lapp:        moveq    #0,d3
  99.         move.b    (a2),d3
  100.         swap    d3
  101.         lsl.l    #8,d3
  102.         lsr.l    d2,d3
  103.         or.l    d3,(a3)
  104.         add.l    #40,a3
  105.         add.l    #60,a2
  106.         dbra    d5,Lapp
  107.         addq.w    #8,RowAdr
  108.         dbra    d6,PrintLoop2
  109. Piller:        addq.l    #1,a1
  110.         move.l    a1,a0
  111.         rts
  112.  
  113. CountLetters:    move.l    a0,a1
  114.         moveq    #0,d0
  115. Loop2:        cmp.b    #0,(a1)+
  116.         beq.S    EndThis
  117.         addq.w    #1,d0
  118.         bra.S    Loop2
  119. EndThis:    move.w    d0,d3
  120.         subq.w    #1,d3
  121.         move.w    d3,Letters
  122.         move.w    #320,d2
  123.         lsl.w    #3,d0
  124.         sub.w    d0,d2
  125.         lsr.w    #1,d2
  126.         move.w    d2,RowAdr
  127.         rts
  128.  
  129. CountRows:    lea.l    Text(pc),a0
  130.         moveq    #1,d0
  131.         moveq    #0,d1
  132. Loop:        cmp.b    #0,(a0)
  133.         bne.S    Allan
  134.         addq.w    #1,d1
  135. Allan:        cmp.b    #1,(a0)+
  136.         bne.S    Loop
  137.         move.w    d1,d3
  138.         subq.w    #1,d3
  139.         move.w    d3,Rows
  140.         mulu    #8,d1
  141.         move.w    #43*6,d2
  142.         sub.w    d1,d2
  143.         lsr.w    #1,d2
  144.         move.w    d2,RowsDown
  145.         mulu    #40,d2
  146.         add.l    TextAdr(pc),d2
  147.         move.l    d2,FinalTAdr
  148.         rts
  149.  
  150. TextAdr:    dc.l    $70000
  151. FinalTAdr:    dc.l    0
  152. RowsDown:    dc.l    0
  153. RowAdr:        dc.l    0
  154. Rows:        dc.w    0
  155. Letters:    dc.w    0
  156.  
  157. ;------------------------------------------------------------------------
  158.  
  159. BlitWait:    btst    #14,$2(a6)
  160.         bne.S    BlitWait
  161.         rts
  162.  
  163.  
  164. ClearScreen:    bsr    BlitWait
  165.         move.l    #-1,$44(a6)
  166.         clr.w    $66(a6)
  167.         move.l    #$01000000,$40(a6)
  168.         move.l    d0,$54(a6)
  169.         move.w    d1,$58(a6)
  170.         rts
  171.  
  172. MainLoop:    cmp.b    #-1,$6(a6)
  173.         bne.S    MainLoop
  174.         btst    #6,$bfe001
  175.         bne.S    MainLoop
  176.         rts
  177.  
  178. ;------------------------------------------------------------------------
  179.  
  180. CopperList:    dc.l    $01200000,$01220000,$01240000,$01260000
  181.         dc.l    $01280000,$012a0000,$012c0000,$012e0000
  182.         dc.l    $01300000,$01320000,$01340000,$01360000
  183.         dc.l    $01380000,$013a0000,$013c0000,$013e0000
  184.  
  185.         dc.l    $008e2a71,$00902cd8,$00920038,$009400d0
  186.         dc.l    $01020000,$01040000,$01080000,$010a0000
  187.         dc.l    $01800000,$01820fff
  188.         dc.l    $01001000,$00e00007,$00e20000
  189.  
  190.         dc.l    $6007fffe,$01800fff,$6107fffe,$01800005
  191.         dc.l    $f007fffe,$01800fff,$f107fffe,$01800000
  192.  
  193.         dc.l    -2
  194.  
  195. ;------------------------------------------------------------------------
  196.  
  197. OldCop:        dc.l    0
  198. OldDma:        dc.w    0
  199. OldIrq:        dc.w    0
  200. BlindSpr:    dc.l    0
  201. GfxName:    dc.b    'graphics.library',0
  202.         even
  203.  
  204. ;------------------------------------------------------------------------
  205.  
  206. Font:        blk.b    300,0
  207.  
  208.  
  209. Speed:        dc.w    1
  210. Wait2:        dc.w    200        ;Ang. Wait's: 50 = 1 sekund
  211. Farg:        dc.w    $fff
  212. Farg2:        dc.w    $005
  213.  
  214. ;------------------------------------------------ MAX!
  215. Text:
  216. DC.B    'PHENOMENA',0
  217. DC.B    'PRESENTS THE FINAL VERSION OF',0
  218. DC.B    ' ',0
  219. DC.B    '--------------------',0
  220. DC.B    '- OBVIOUS DISASTER -',0
  221. DC.B    '--------------------',0
  222. DC.B    ' ',0
  223. DC.B    'THE REASON WHY WE RELEASE THIS VERSION ',0
  224. DC.B    'IS THAT THE DEMO RELEASED AT THE PARTY ',0
  225. DC.B    'IN ODENSE WAS QUITE BUGGED IN THE MUSIC',0
  226. DC.B    '(DEADLINE-PROBLEMS MADE THAT I DIDNT   ',0
  227. DC.B    'HAVE ENOUGH TIME TO FIX IT AT THEN...).',0
  228. DC.B    'ANYWAY,SPREAD THIS ONE AND PRESS THE   ',0
  229. DC.B    'LEFT BUTTON TO ENTER THE DEMO...       ',0
  230. DC.B    1
  231. even
  232.  
  233. Demo:        blk.b    197196,0
  234.  
  235.