home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / assembler-tools / apathysource / intro / intro.s < prev    next >
Encoding:
Text File  |  1980-02-04  |  28.3 KB  |  1,345 lines
  1.            Machine   68020
  2.  
  3. ;;; "                 Includes"
  4.            Incdir    "!Includes:"
  5.            Include   "StdLibInc.i"
  6.            Include   "StdHardInc.i"
  7.            Include   "Screens.i"
  8.            Include   "Loader.i"
  9.            Include   "Support.i"
  10.  
  11.            ;Incdir    "!intro:"
  12.            ;Include   "intromain.i"
  13.  
  14.            xref      Writer_PutW
  15.            xref      PasteLetter
  16.  
  17.            xref      _InitFade
  18.            xref      _DoFade
  19.  
  20.            xref      P61_WaitCRow2
  21.            xref      P61_WaitCRow
  22.            xref      P61_WaitPos
  23.  
  24.            xref      _SetColByte
  25. ;;;
  26. ;;; "                 Defines"
  27.            xdef      Intro_Init
  28.            xdef      Intro_Main
  29.            xdef      Intro_Remove
  30.  
  31.            xdef      Apathy
  32.            xdef      WriteCList2
  33.            xdef      Wr1BplPtr_2
  34.            xdef      Wr1SprPtr2
  35.  
  36.            ;----------------------
  37.  
  38. Intro_ID           Equ       42
  39. FadeBuffSize       Equ       8*1024
  40. ;;;
  41. ;;; "                 Letter Defines"
  42. END                Equ       100
  43.  
  44. A                  Equ       0
  45. B                  Equ       1
  46. C                  Equ       2
  47. D                  Equ       3
  48. E                  Equ       4
  49. F                  Equ       5
  50. G                  Equ       6
  51. H                  Equ       7
  52. I                  Equ       8
  53. J                  Equ       9
  54. K                  Equ       10
  55. L                  Equ       11
  56. M                  Equ       12
  57. N                  Equ       13
  58. O                  Equ       14
  59. P                  Equ       15
  60. Q                  Equ       16
  61. R                  Equ       17
  62. S                  Equ       18
  63. T                  Equ       19
  64. U                  Equ       20
  65. V                  Equ       21
  66. W                  Equ       22
  67. X                  Equ       23
  68. Y                  Equ       24
  69. Z                  Equ       25
  70. N0                 Equ       26
  71. N1                 Equ       27
  72. N2                 Equ       28
  73. N3                 Equ       29
  74. N4                 Equ       30
  75. N5                 Equ       31
  76. N6                 Equ       32
  77. N7                 Equ       33
  78. N8                 Equ       34
  79. N9                 Equ       35
  80. PNK                Equ       36        ;.
  81. UTR                Equ       37        ;!
  82. FRA                Equ       38        ;?
  83. KOL                Equ       39        ;:
  84.  
  85. ;;;
  86.  
  87. ***************************************
  88. *       Exempel/TestProgram...        *
  89. ***************************************
  90.  
  91.            Section   code,CODE
  92.  
  93.            IFND      noexample
  94. ;;; "                 Example"
  95. Start:             Bsr       _InitDemo
  96.            Tst.l     d0
  97.            Bne       Exit2
  98.  
  99. PlayMusic:         Bsr       _PlayMusic
  100.            Tst.l     d0
  101.            Bne       Exit
  102.  
  103.            Move.w    #0,P61_Play
  104.  
  105.            Bsr       Intro_Init
  106.            Tst.l     d0
  107.            Bne       StopMusic
  108.  
  109.            Bsr       Intro_Main
  110.  
  111. Main:              Btst      #6,$bfe001
  112.            Bne       Main
  113. .waitlop           Btst      #6,$bfe001
  114.            Beq       .waitlop
  115.  
  116.            Bsr       Intro_Remove
  117.  
  118. StopMusic:         Bsr       _StopMusic
  119. Exit:              Bsr       _UninitDemo
  120. Exit2:             Moveq     #0,d0
  121.            Rts
  122. ;;;
  123.            ENDC
  124.  
  125. ***************************************
  126. *     Intro-Subrutiner nedanför....   *
  127. ***************************************
  128.  
  129. Intro_Init:
  130. ;;; "                 Alloc Pics"
  131. AllocPic1:         Move.l    #40*256*4,d0
  132.            Move.l    #Intro_ID,d1
  133.            Bsr       _AllocChip
  134.            Move.l    d0,Wr1Pic1Ptr
  135.            Beq       InitError
  136.  
  137.            Move.l    #40*256*4,d0
  138.            Move.l    #Intro_ID,d1
  139.            Bsr       _AllocChip
  140.            Move.l    d0,Wr1Pic2Ptr
  141.            Beq       InitError
  142.  
  143.            Move.l    #40*256*4,d0
  144.            Move.l    #Intro_ID,d1
  145.            Bsr       _AllocChip
  146.            Move.l    d0,Wr1Pic3Ptr
  147.            Beq       InitError
  148.  
  149.            ;-------------------------
  150.  
  151.            Move.l    #40*256*4,d0
  152.            Move.l    #Intro_ID,d1
  153.            Bsr       _AllocChip
  154.            Move.l    d0,Wr1Pic4Ptr
  155.            Beq       InitError
  156.  
  157.            Move.l    #40*256*4,d0
  158.            Move.l    #Intro_ID,d1
  159.            Bsr       _AllocChip
  160.            Move.l    d0,Wr1Pic5Ptr
  161.            Beq       InitError
  162.  
  163.            Move.l    #40*256*4,d0
  164.            Move.l    #Intro_ID,d1
  165.            Bsr       _AllocChip
  166.            Move.l    d0,Wr1Pic6Ptr
  167.            Beq       InitError
  168.  
  169. ;;;
  170. ;;; "                 Init Pics"
  171.            Lea       Henke,a0
  172.            Move.l    Wr1Pic1Ptr,a1
  173.            Bsr       InitPic
  174.  
  175.            Lea       Jeppe,a0
  176.            Move.l    Wr1Pic2Ptr,a1
  177.            Add.l     #40*128+20,a1
  178.            Bsr       InitPic
  179.  
  180.            Lea       Alex,a0
  181.            Move.l    Wr1Pic3Ptr,a1
  182.            Add.l     #20,a1
  183.            Bsr       InitPic
  184.  
  185.            Lea       Magnus,a0
  186.            Move.l    Wr1Pic4Ptr,a1
  187.            Add.l     #40*128,a1
  188.            Bsr       InitPic
  189.  
  190.            Lea       Johnny,a0
  191.            Move.l    Wr1Pic5Ptr,a1
  192.            Bsr       InitPic
  193.  
  194.            Lea       Oliver,a0
  195.            Move.l    Wr1Pic6Ptr,a1
  196.            Add.l     #40*128+20,a1
  197.            Bsr       InitPic
  198. ;;;
  199. ;;; "                 Open Writer Screen"
  200. AllocWrite1Pic:    Move.l    #40*256*2,d0
  201.            Move.l    #Intro_ID,d1
  202.            Bsr       _AllocChip
  203.            Move.l    d0,WriteScr1Ptr
  204.            Beq       InitError
  205.  
  206.            ;--------------------------
  207.  
  208.            Lea       Wr1BplPtr,a0
  209.            Move.l    WriteScr1Ptr,d1
  210.            Moveq     #2-1,d2
  211.            Move.l    #40*256,d0
  212.            Bsr       _SetPtrs
  213.  
  214.            Lea       Wr1BplPtr,a0
  215.            Lea       16(a0),a0
  216.            Move.l    Wr1Pic1Ptr,d1
  217.            Add.l     #40*128,d1
  218.            Moveq     #4-1,d2
  219.            Move.l    #40*256,d0
  220.            Bsr       _SetPtrs
  221.  
  222.            Lea       Wr1BplPtr2,a0
  223.            Move.l    Wr1Pic2Ptr,d1
  224.            ;Add.l     #40*128,d1
  225.            Moveq     #4-1,d2
  226.            Move.l    #40*256,d0
  227.            Bsr       _SetPtrs
  228.  
  229.            Lea       Wr1SprPtr,a0
  230.            Move.l    #SpriteDummy,d1
  231.            Moveq     #7,d2
  232.            Moveq     #0,d0
  233.            Bsr       _SetPtrs
  234. ;;;
  235. ;;; "                 Alloc Fade Buffer"
  236. AllocFadeBuff:     Move.l    #8*1024,d0
  237.            Move.l    #Intro_ID,d1
  238.            Bsr       _AllocPublic
  239.            Move.l    d0,FadeBuffPtr
  240.            Beq       InitError
  241. ;;;
  242. ;;; "                 Rts"
  243.            Moveq     #0,d0
  244.            Rts
  245. InitError:
  246.            Move.l    #Intro_ID,d0
  247.            Bsr       _FreeMany
  248.            Moveq     #1,d0
  249.            Rts
  250. ;;;
  251.  
  252. Intro_Main:
  253. ;;; "                 Show Screen"
  254.            Bsr       _Sync
  255.  
  256.            Lea       WriteCList1,a0
  257.            Bsr       _InstallCopper
  258. ;;;
  259. ;;; "                 Init Colours"
  260.            Lea       Custom,a5
  261.            Move.w    #$0000,$106(a5)
  262.            Move.w    #$0000,$180(a5)
  263.            Move.w    #$0777,$182(a5)
  264.            Move.w    #$0bbb,$184(a5)
  265.            Move.w    #$0fff,$186(a5)
  266. ;;;
  267.  
  268.            ;Move.w    #1,P61_Play
  269.  
  270.            ;IFD       kulig
  271. ;;; "                 Scroll First"
  272.            Bsr       InitCols
  273.  
  274.            Bsr       InitFade1
  275.  
  276.            Move.l    Wr1Pic1Ptr,d0
  277.            Move.l    Wr1Pic2Ptr,d1
  278.            Bsr       ScrollPics
  279.            Tst.l     d0
  280.            Bne       Break
  281.  
  282.            ;IFND      noexample
  283.            Move.w    #1,P61_Play
  284.            ;ENDC
  285.  
  286.            Bsr       Fade
  287.            Tst.l     d0
  288.            Bne       Break
  289. ;;;
  290. ;;; "                 RayLight + Chip"
  291.            Bsr       InitFade3
  292.  
  293.            Move.w    #28,d0
  294.            Bsr       P61_WaitCRow
  295.            Tst.l     d0
  296.            Bne       Break
  297.  
  298.            Lea       Wr1Word1,a0
  299.            Move.l    #180,d0
  300.            Move.l    #25,d1
  301.            Bsr       Wr1_Write
  302.  
  303.            Bsr       Fade
  304.            Tst.l     d0
  305.            Bne       Break
  306.  
  307.            Bsr       InitFade3
  308.  
  309.            Move.w    #32,d0
  310.            Bsr       P61_WaitCRow
  311.            Tst.l     d0
  312.            Bne       Break
  313.  
  314.            Lea       Wr1Word2,a0
  315.            Move.l    #85,d0
  316.            Move.l    #195,d1
  317.            Bsr       Wr1_Write
  318.  
  319.            Bsr       Fade
  320.            Tst.l     d0
  321.            Bne       Break
  322.  
  323.            Bsr       InitFade2
  324.  
  325.            Move.w    #52,d0
  326.            Bsr       P61_WaitCRow
  327.            Tst.l     d0
  328.            Bne       Break
  329.  
  330.            Bsr       Fade
  331.            Tst.l     d0
  332.            Bne       Break
  333.  
  334.            Move.w    #58,d0
  335.            Bsr       P61_WaitCRow
  336.            Tst.l     d0
  337.            Bne       Break
  338.  
  339.            Bsr       Wr1_ClrScr
  340. ;;;
  341.  
  342. ;;; "                 Scroll Second"
  343.            Bsr       InitCols
  344.            Bsr       InitFade1
  345.  
  346.            Move.l    Wr1Pic3Ptr,d0
  347.            Move.l    Wr1Pic4Ptr,d1
  348.            Bsr       ScrollPics
  349.            Tst.l     d0
  350.            Bne       Break
  351.  
  352.            Bsr       Fade
  353.            Tst.l     d0
  354.            Bne       Break
  355. ;;;
  356. ;;; "                 Wasp + Mad Druid"
  357.            Bsr       InitFade3
  358.  
  359.            Move.w    #28,d0
  360.            Bsr       P61_WaitCRow
  361.            Tst.l     d0
  362.            Bne       Break
  363.  
  364.            Lea       Wr1Word3,a0
  365.            Move.l    #80,d0
  366.            Move.l    #25,d1
  367.            Bsr       Wr1_Write
  368.  
  369.            Bsr       Fade
  370.            Tst.l     d0
  371.            Bne       Break
  372.  
  373.            Bsr       InitFade3
  374.  
  375.            Move.w    #32,d0
  376.            Bsr       P61_WaitCRow
  377.            Tst.l     d0
  378.            Bne       Break
  379.  
  380.            Lea       Wr1Word4,a0
  381.            Move.l    #170,d0
  382.            Move.l    #195,d1
  383.            Bsr       Wr1_Write
  384.  
  385.            Lea       Wr1Word42,a0
  386.            Move.l    #170+55,d0
  387.            Move.l    #195,d1
  388.            Bsr       Wr1_Write
  389.  
  390.            Bsr       Fade
  391.            Tst.l     d0
  392.            Bne       Break
  393.  
  394.            Bsr       InitFade2
  395.  
  396.            Move.w    #52,d0
  397.            Bsr       P61_WaitCRow
  398.            Tst.l     d0
  399.            Bne       Break
  400.  
  401.            Bsr       Fade
  402.            Tst.l     d0
  403.            Bne       Break
  404.  
  405.            Move.w    #58,d0
  406.            Bsr       P61_WaitCRow
  407.            Tst.l     d0
  408.            Bne       Break
  409.  
  410.            Bsr       Wr1_ClrScr
  411. ;;;
  412.  
  413. ;;; "                 Scroll Third"
  414.            Bsr       InitCols
  415.            Bsr       InitFade1
  416.  
  417.            Move.l    Wr1Pic5Ptr,d0
  418.            Move.l    Wr1Pic6Ptr,d1
  419.            Bsr       ScrollPics
  420.            Tst.l     d0
  421.            Bne       Break
  422.  
  423.            Bsr       Fade
  424.            Tst.l     d0
  425.            Bne       Break
  426. ;;;
  427. ;;; "                 GunRider + Oliver"
  428.            Bsr       InitFade3
  429.  
  430.            Move.w    #28,d0
  431.            Bsr       P61_WaitCRow
  432.            Tst.l     d0
  433.            Bne       Break
  434.  
  435.            Lea       Wr1Word5,a0
  436.            Move.l    #170,d0
  437.            Move.l    #25,d1
  438.            Bsr       Wr1_Write
  439.  
  440.            Bsr       Fade
  441.            Tst.l     d0
  442.            Bne       Break
  443.  
  444.            Bsr       InitFade3
  445.  
  446.            Move.w    #32,d0
  447.            Bsr       P61_WaitCRow
  448.            Tst.l     d0
  449.            Bne       Break
  450.  
  451.            Lea       Wr1Word6,a0
  452.            Move.l    #60,d0
  453.            Move.l    #195,d1
  454.            Bsr       Wr1_Write
  455.  
  456.            Bsr       Fade
  457.            Tst.l     d0
  458.            Bne       Break
  459.  
  460.            Bsr       InitFade2
  461.  
  462.            Move.w    #52,d0
  463.            Bsr       P61_WaitCRow
  464.            Tst.l     d0
  465.            Bne       Break
  466.  
  467.            Bsr       Fade
  468.            Tst.l     d0
  469.            Bne       Break
  470.  
  471.            Move.w    #58,d0
  472.            Bsr       P61_WaitCRow
  473.            Tst.l     d0
  474.            Bne       Break
  475.  
  476.            Bsr       Wr1_ClrScr
  477. ;;;
  478.  
  479. ;;; "                 Blank Pics"
  480.            Lea       Wr1BplPtr,a0
  481.            Lea       16(a0),a0
  482.            Move.l    Wr1Pic1Ptr,d1
  483.            Add.l     #40*128,d1
  484.            Moveq     #4-1,d2
  485.            Move.l    #40*256,d0
  486.            Bsr       _SetPtrs
  487.  
  488.            Lea       Wr1BplPtr2,a0
  489.            Move.l    Wr1Pic1Ptr,d1
  490.            Add.l     #40*128,d1
  491.            Moveq     #4-1,d2
  492.            Move.l    #40*256,d0
  493.            Bsr       _SetPtrs
  494. ;;;
  495. ;;; "                 PowerLine Proudly Presents"
  496.            Bsr       InitFade1
  497.  
  498.            Move.w    #0,d0
  499.            Bsr       P61_WaitCRow2
  500.            Tst.l     d0
  501.            Bne       Break
  502.  
  503.            Lea       Wr1Word7a,a0
  504.            Move.l    #88,d0
  505.            Move.l    #20,d1
  506.            Bsr       Wr1_Write
  507.  
  508.            Bsr       Fade
  509.            Tst.l     d0
  510.            Bne       Break
  511.  
  512.            Bsr       InitFade3
  513.  
  514.            Move.w    #28,d0
  515.            Bsr       P61_WaitCRow
  516.            Tst.l     d0
  517.            Bne       Break
  518.  
  519.            Lea       Wr1Word7,a0
  520.            Move.l    #95,d0
  521.            Move.l    #100,d1
  522.            Bsr       Wr1_Write
  523.  
  524.            Bsr       Fade
  525.            Tst.l     d0
  526.            Bne       Break
  527.  
  528.            Bsr       InitFade3
  529.  
  530.            Move.w    #32,d0
  531.            Bsr       P61_WaitCRow
  532.            Tst.l     d0
  533.            Bne       Break
  534.  
  535.            Lea       Wr1Word8,a0
  536.            Move.l    #89,d0
  537.            Move.l    #170,d1
  538.            Bsr       Wr1_Write
  539.  
  540.            Bsr       Fade
  541.            Tst.l     d0
  542.            Bne       Break
  543.  
  544.            Move.w    #0,d0
  545.            Bsr       P61_WaitCRow2
  546.            Tst.l     d0
  547.            Bne       Break
  548.  
  549.            Bsr       Wr1_ClrScr
  550. ;;;
  551.            ;ENDC
  552.  
  553. ;;; "                 Apathy Screen"
  554.            Bsr       InitFade6
  555.  
  556.            Lea       Wr1BplPtr_2,a0
  557.            Move.l    #Apathy,d1
  558.            Moveq     #1-1,d2
  559.            Move.l    #80*256,d0
  560.            Bsr       _SetPtrs
  561.  
  562.            Lea       Wr1SprPtr2,a0
  563.            Move.l    #SpriteDummy,d1
  564.            Moveq     #7,d2
  565.            Moveq     #0,d0
  566.            Bsr       _SetPtrs
  567.  
  568.            Lea       WriteCList2,a0
  569.            Bsr       _InstallCopper
  570.  
  571.            Bsr       Fade
  572.            Tst.l     d0
  573.            Bne       Break
  574.  
  575.            Bsr       InitFade7
  576.  
  577.            Move.w    #32,d0
  578.            Bsr       P61_WaitCRow
  579.            Tst.l     d0
  580.            Bne       Break
  581.  
  582.            Bsr       Fade
  583.            Tst.l     d0
  584.            Bne       Break
  585. ;;;
  586.  
  587.            Move.w    #0,d0
  588.            Bsr       P61_WaitCRow2
  589.  
  590.            Lea       WriteCList1,a0
  591.            Bsr       _InstallCopper
  592.  
  593. ;;; "                 PasteWord"
  594.            Lea       Wr1BplPtr,a0
  595.            Move.l    WriteScr1Ptr,d1
  596.            Moveq     #2-1,d2
  597.            Move.l    #40*256,d0
  598.            Bsr       _SetPtrs
  599.  
  600.            Lea       Word1,a1
  601.  
  602. .wordlop
  603.  
  604. .again             Btst      #2,$dff016
  605.            Beq       Break
  606.  
  607.            Move.w    Sync_Old,d0
  608.            Move.w    P61_CRow,d1
  609.            Move.w    d1,Sync_Old
  610.            Cmp.w     d0,d1
  611.            Beq       .again
  612.            And.w     #1,d1
  613.            Bne       .again
  614.  
  615.            Move.b    (a1)+,d1
  616.            And.l     #255,d1
  617.  
  618.            Cmp.l     #253,d1
  619.            Beq       .again
  620.            Cmp.l     #254,d1
  621.            Bne       .nocls
  622.  
  623.            Movem.l   d0-a6,-(a7)
  624.            Bsr       InitFade5
  625.            Bsr       Fade
  626.            Tst.l     d0
  627.            Bne       Break2
  628.  
  629.            Movem.l   (a7)+,d0-a6
  630.            Bsr       Wr1_ClrScr
  631.            Bra       .again
  632.  
  633. .nocls             Cmp.l     #255,d1
  634.            Beq       .done2
  635.  
  636.            Move.b    (a1)+,d2
  637.            And.l     #255,d2
  638.  
  639.            Move.l    #320,d3
  640.            Move.l    #256,d4
  641.  
  642.            Move.l    WriteScr1Ptr,a0
  643.            Lea       WordTable,a2
  644.  
  645. .writelop          Move.b    (a1)+,d7
  646.            Extb.l    d7
  647.            Cmp.l     #END,d7
  648.            Beq       .done
  649.  
  650.            Move.l    d7,d0
  651.  
  652.            Lea       Custom,a5
  653.            Move.w    #$0000,$106(a5)
  654.            Move.w    #$0000,$180(a5)
  655.            Move.w    #$0777,$182(a5)
  656.            Move.w    #$0bbb,$184(a5)
  657.            Move.w    #$0fff,$186(a5)
  658.  
  659.            Bsr       PasteLetter
  660.  
  661.            Add.l     (a2,d7*4),d1
  662.  
  663.            Bra       .writelop
  664.  
  665. .done
  666.            Bra       .wordlop
  667. .done2
  668.  
  669. ;;;
  670.  
  671.            Moveq     #0,d0
  672.            Rts
  673.  
  674. Break:             Moveq     #1,d0
  675.            Rts
  676.  
  677. Break2:            Movem.l   (a7)+,d0-a6
  678.            Moveq     #1,d0
  679.            Rts
  680.  
  681.  
  682. Intro_Remove:
  683. ;;; "                 Free Memory"
  684. FreeMemory:        Move.l    #Intro_ID,d0
  685.            Bsr       _FreeMany
  686. ;;;
  687.            Rts
  688.  
  689.  
  690. ***************************************
  691. *             Mera Subs...            *
  692. ***************************************
  693. ;;; "Wr1_Write"
  694. ********************************
  695. * IN: a0 - Pekare till ordet   *
  696. *     d0 - X pos               *
  697. *     d1 - Y pos               *
  698. ********************************
  699. Wr1_Write:         Movem.l   d0-d4/a0,-(a7)
  700.  
  701.            Move.l    a0,a1
  702.            Move.l    WriteScr1Ptr,a0
  703.            Move.l    d1,d2
  704.            Move.l    d0,d1
  705.            Move.l    #320,d3
  706.            Move.l    #256,d4
  707.            Bsr       Writer_PutW
  708.  
  709.            Movem.l   (a7)+,d0-d4/a0
  710.            Rts
  711. ;;;
  712. ;;; "Wr1_ClrScr"
  713. Wr1_ClrScr:        Movem.l   a0/d0,-(a7)
  714.  
  715.            Move.l    WriteScr1Ptr,a0
  716.            Move.l    #320/8*256*2/16-1,d0
  717.  
  718. .lop               Clr.l     (a0)+
  719.            Clr.l     (a0)+
  720.            Clr.l     (a0)+
  721.            Clr.l     (a0)+
  722.            Dbra      d0,.lop
  723.  
  724.            Movem.l   (a7)+,a0/d0
  725.            Rts
  726. ;;;
  727. ;;; "InitPic"
  728. ****************************************
  729. *IN: a0 - Pic                          *
  730. *    a1 - Dest Screen                  *
  731. ****************************************
  732. InitPic:           Move.l    a0,a2
  733.            Move.l    a1,a0
  734.            Move.l    #4-1,d4
  735. .plane
  736.            Move.l    a2,a1
  737.  
  738.            Move.l    #64-1,d7
  739. .ylop
  740.  
  741.            Move.l    #20-1,d6
  742. .xlop              Moveq     #0,d0
  743.  
  744.            Cmp.l     #3,d4
  745.            Bne       .next1
  746.  
  747.            Move.b    (a1)+,d0
  748.            Move.b    d0,d1
  749.            And.w     #%10000,d0
  750.            Lsr.l     #4,d0
  751.            And.w     #%1,d1
  752.  
  753.            Move.b    (a1)+,d2
  754.            Move.b    d2,d3
  755.            And.w     #%10000,d2
  756.            Lsr.l     #4,d2
  757.            And.w     #%1,d3
  758.            Bra       .done
  759.  
  760. .next1             Cmp.l     #2,d4
  761.            Bne       .next2
  762.  
  763.            Move.b    (a1)+,d0
  764.            Move.b    d0,d1
  765.            And.w     #%100000,d0
  766.            Lsr.l     #5,d0
  767.            And.w     #%10,d1
  768.            Lsr.l     #1,d1
  769.  
  770.            Move.b    (a1)+,d2
  771.            Move.b    d2,d3
  772.            And.w     #%100000,d2
  773.            Lsr.l     #5,d2
  774.            And.w     #%10,d3
  775.            Lsr.l     #1,d3
  776.            Bra       .done
  777.  
  778. .next2             Cmp.l     #1,d4
  779.            Bne       .next3
  780.  
  781.            Move.b    (a1)+,d0
  782.            Move.b    d0,d1
  783.            And.w     #%1000000,d0
  784.            Lsr.l     #6,d0
  785.            And.w     #%100,d1
  786.            Lsr.l     #2,d1
  787.  
  788.            Move.b    (a1)+,d2
  789.            Move.b    d2,d3
  790.            And.w     #%1000000,d2
  791.            Lsr.l     #6,d2
  792.            And.w     #%100,d3
  793.            Lsr.l     #2,d3
  794.  
  795.            Bra       .done
  796.  
  797. .next3             Cmp.l     #0,d4
  798.            Bne       .done
  799.  
  800.            Move.b    (a1)+,d0
  801.            Move.b    d0,d1
  802.            And.w     #%10000000,d0
  803.            Lsr.l     #7,d0
  804.            And.w     #%1000,d1
  805.            Lsr.l     #3,d1
  806.  
  807.            Move.b    (a1)+,d2
  808.            Move.b    d2,d3
  809.            And.w     #%10000000,d2
  810.            Lsr.l     #7,d2
  811.            And.w     #%1000,d3
  812.            Lsr.l     #3,d3
  813. .done
  814.  
  815.            Lsl.l     #2,d0
  816.            Or.b      d1,d0
  817.            Lsl.l     #2,d0
  818.            Or.b      d2,d0
  819.            Lsl.l     #2,d0
  820.            Or.b      d3,d0
  821.  
  822.            Move.b    d0,d1
  823.            Lsl.l     #1,d1
  824.            Or.b      d1,d0
  825.  
  826.            Move.b    d0,(a0)+
  827.  
  828.            Dbra      d6,.xlop
  829.  
  830.            Add.l     #20,a0
  831.  
  832.            Move.l    -40(a0),(a0)+
  833.            Move.l    -40(a0),(a0)+
  834.            Move.l    -40(a0),(a0)+
  835.            Move.l    -40(a0),(a0)+
  836.            Move.l    -40(a0),(a0)+
  837.  
  838.            Add.l     #20,a0
  839.  
  840.            Dbra      d7,.ylop
  841.  
  842.            Add.l     #40*128,a0
  843.  
  844.            Dbra      d4,.plane
  845.  
  846.            Rts
  847. ;;;
  848. ;;; "ScrollPics"
  849. ***************************************
  850. * IN: d0 - Pic1                       *
  851. *     d1 - Pic2                       *
  852. ***************************************
  853. ScrollPics:        Move.l    d0,d3
  854.            Move.l    d1,d4
  855.            Add.l     #40*128,d4
  856.  
  857.            Move.l    #128-1,d7
  858.            Moveq     #2,d5
  859. .lop               Bsr       _Sync
  860.  
  861.            Btst      #2,$dff016
  862.            Beq       .break
  863.  
  864.            Lea       Wr1BplPtr,a0
  865.            Lea       16(a0),a0
  866.            Move.l    d7,d1
  867.            Muls.w    #40,d1
  868.            Add.l     d3,d1
  869.            Moveq     #4-1,d2
  870.            Move.l    #40*256,d0
  871.            Bsr       _SetPtrs
  872.  
  873.            Lea       Wr1BplPtr2,a0
  874.            Move.l    d7,d2
  875.            Muls.w    #40,d2
  876.            Move.l    d4,d1
  877.            Sub.l     d2,d1
  878.            Moveq     #4-1,d2
  879.            Move.l    #40*256,d0
  880.            Bsr       _SetPtrs
  881.  
  882.            Move.l    d5,d1
  883.            Asr.l     #1,d1
  884.            Sub.l     d1,d7
  885.            Add.l     #1,d5
  886.  
  887.            Tst.l     d7
  888.            Bgt       .lop
  889.  
  890.            Lea       Wr1BplPtr,a0
  891.            Lea       16(a0),a0
  892.            Move.l    d3,d1
  893.            Moveq     #4-1,d2
  894.            Move.l    #40*256,d0
  895.            Bsr       _SetPtrs
  896.  
  897.            Lea       Wr1BplPtr2,a0
  898.            Move.l    d4,d1
  899.            Moveq     #4-1,d2
  900.            Move.l    #40*256,d0
  901.            Bsr       _SetPtrs
  902.  
  903.            Moveq     #0,d0
  904.            Rts
  905.  
  906. .break             Moveq     #1,d0
  907.            Rts
  908. ;;;
  909. ;;; "InitFade1"
  910. InitFade1:         Move.l    #64,d0
  911.            Move.l    #16,d1
  912.            Move.l    #0,d2
  913.            Move.l    #0,d3
  914.            Lea       Pal3,a0
  915.            Lea       Pal5,a1
  916.            Move.l    FadeBuffPtr,a2
  917.            Bsr       _InitFade
  918.            Rts
  919. ;;;
  920. ;;; "InitFade2"
  921. InitFade2:         Move.l    #4,d0
  922.            Move.l    #16,d1
  923.            Move.l    #0,d2
  924.            Move.l    #0,d3
  925.            Lea       Pal1,a0
  926.            Lea       Pal2,a1
  927.            Move.l    FadeBuffPtr,a2
  928.            Bsr       _InitFade
  929.            Rts
  930. ;;;
  931. ;;; "InitFade3"
  932. InitFade3:         Move.l    #64,d0
  933.            Move.l    #16,d1
  934.            Move.l    #0,d2
  935.            Move.l    #0,d3
  936.            Lea       Pal4,a0
  937.            Lea       Pal1,a1
  938.            Move.l    FadeBuffPtr,a2
  939.            Bsr       _InitFade
  940.            Rts
  941. ;;;
  942. ;;; "InitFade4"
  943. InitFade4:         Move.l    #4,d0
  944.            Move.l    #64,d1
  945.            Move.l    #0,d2
  946.            Move.l    #0,d3
  947.            Lea       Pal1,a0
  948.            Lea       Pal2,a1
  949.            Move.l    FadeBuffPtr,a2
  950.            Bsr       _InitFade
  951.            Rts
  952. ;;;
  953. ;;; "InitFade5"
  954. InitFade5:         Move.l    #64,d0
  955.            Move.l    #4,d1
  956.            Move.l    #0,d2
  957.            Move.l    #0,d3
  958.            Lea       Pal1,a0
  959.            Lea       Pal2,a1
  960.            Move.l    FadeBuffPtr,a2
  961.            Bsr       _InitFade
  962.            Rts
  963. ;;;
  964. ;;; "InitFade6"
  965. InitFade6:         Move.l    #2,d0
  966.            Move.l    #16,d1
  967.            Move.l    #0,d2
  968.            Move.l    #0,d3
  969.            Lea       Pal3,a0
  970.            Lea       Pal6,a1
  971.            Move.l    FadeBuffPtr,a2
  972.            Bsr       _InitFade
  973.            Rts
  974. ;;;
  975. ;;; "InitFade7"
  976. InitFade7:         Move.l    #2,d0
  977.            Move.l    #64,d1
  978.            Move.l    #0,d2
  979.            Move.l    #0,d3
  980.            Lea       Pal6,a0
  981.            Lea       Pal2,a1
  982.            Move.l    FadeBuffPtr,a2
  983.            Bsr       _InitFade
  984.            Rts
  985. ;;;
  986.  
  987. ;;; "Fade"
  988. Fade:
  989. .fade              Bsr       _Sync
  990.  
  991.            Btst      #2,$dff016
  992.            Beq       .break
  993.  
  994.            Move.l    FadeBuffPtr,a0
  995.            Bsr       _DoFade
  996.            Tst.l     d0
  997.            Beq       .fade
  998.  
  999.            Moveq     #0,d0
  1000.            Rts
  1001.  
  1002. .break             Moveq     #1,d0
  1003.            Rts
  1004. ;;;
  1005.  
  1006. ;;; "Init Colours (pics)"
  1007. InitCols:          Moveq     #0,d0
  1008.            Moveq     #0,d5
  1009.            Moveq     #16-1,d7
  1010.  
  1011. .collop1           Move.l    d5,d1
  1012.            Move.l    d5,d2
  1013.            Move.l    d5,d3
  1014.            Bsr       _SetColByte
  1015.            Addq.l    #4,d0
  1016.            Add.l     #16,d5
  1017.            Dbra      d7,.collop1
  1018.            Rts
  1019. ;;;
  1020.  
  1021. ***************************************
  1022. *             Intro Data...           *
  1023. ***************************************
  1024. ;;; "Variables / Data"
  1025. FadeBuffPtr:       Dc.l      0
  1026. Wr1FadeBuffPtr:    Dc.l      0
  1027. WriteScr1Ptr:      Dc.l      0
  1028.  
  1029. Wr1Pic1Ptr:        Dc.l      0
  1030. Wr1Pic2Ptr:        Dc.l      0
  1031. Wr1Pic3Ptr:        Dc.l      0
  1032. Wr1Pic4Ptr:        Dc.l      0
  1033. Wr1Pic5Ptr:        Dc.l      0
  1034. Wr1Pic6Ptr:        Dc.l      0
  1035.  
  1036. Sync_Old:          Dc.l      0
  1037.  
  1038. Wr1Word1:          Dc.b      R,A,Y,L,I,G,H,T,END
  1039. Wr1Word2:          Dc.b      C,H,I,P,END
  1040. Wr1Word3:          Dc.b      W,A,S,P,END
  1041. Wr1Word4:          Dc.b      M,A,D,END
  1042. Wr1Word42:         Dc.b      D,R,U,I,D,END
  1043. Wr1Word5:          Dc.b      G,U,N,R,I,D,E,R,END
  1044. Wr1Word6:          Dc.b      O,L,I,V,E,R,END
  1045.  
  1046. Wr1Word7a:         Dc.b      P,O,W,E,R,L,I,N,E,END
  1047. Wr1Word7:          Dc.b      P,R,O,U,D,L,Y,END
  1048. Wr1Word8:          Dc.b      P,R,E,S,E,N,T,S,END
  1049.  
  1050. Word1:             Dc.b      120,20,Y,O,U,END
  1051.            Dc.b      190,70,W,I,L,L,END
  1052.            Dc.b      160,130,A,L,L,END
  1053.            Dc.b      253
  1054.            Dc.b      140,200,D,I,E,UTR,END
  1055.            Dc.b      253,253
  1056.            Dc.b      254
  1057.  
  1058.            Dc.b      150,30,Y,O,U,END
  1059.            Dc.b      253
  1060.            Dc.b      100,80,C,A,N,N,O,T,END
  1061.            Dc.b      190,130,E,S,C,A,P,E,UTR,END
  1062.            Dc.b      253,253
  1063.            Dc.b      254
  1064.  
  1065.            Dc.b      170,30,B,U,T,END
  1066.            Dc.b      100,80,B,E,F,O,R,E,END
  1067.            Dc.b      140,140,Y,O,U,END
  1068.            Dc.b      253
  1069.            Dc.b      200,210,D,I,E,END
  1070.            Dc.b      253,253
  1071.            Dc.b      254
  1072.  
  1073.            Dc.b      180,20,W,E,END
  1074.            Dc.b      253
  1075.            Dc.b      80,80,W,I,L,L,END
  1076.            Dc.b      150,140,S,H,O,W,END
  1077.            Dc.b      253
  1078.            Dc.b      210,210,Y,O,U,END
  1079.            Dc.b      253,253
  1080.            Dc.b      254
  1081.  
  1082.            Dc.b      100,20,O,U,R,END
  1083.            Dc.b      190,90,L,I,F,E,UTR,END
  1084.            Dc.b      253,253
  1085.            Dc.b      254
  1086.  
  1087.            Dc.b      150,150,O,U,R,END
  1088.            Dc.b      120,210,R,E,V,O,L,U,T,I,O,N,UTR,END
  1089.            Dc.b      253,253
  1090.            Dc.b      254
  1091.  
  1092.            Dc.b      90,30,W,H,E,N,END
  1093.            Dc.b      40,90,T,H,E,R,E,END
  1094.            Dc.b      253
  1095.            Dc.b      80,160,I,S,END
  1096.            Dc.b      0,210,S,I,L,E,N,C,E,END
  1097.            Dc.b      253,253
  1098.            Dc.b      254
  1099.  
  1100.            Dc.b      30,20,W,E,END
  1101.            Dc.b      190,80,W,I,L,L,END
  1102.            Dc.b      253
  1103.            Dc.b      60,160,D,I,E,UTR,END
  1104.            Dc.b      253,253
  1105.            Dc.b      254
  1106.  
  1107.            Dc.b      110,50,S,O,END
  1108.            Dc.b      170,160,S,C,R,E,A,M,END
  1109.            Dc.b      253,253
  1110.            Dc.b      254
  1111.  
  1112.            Dc.b      170,20,O,U,R,END
  1113.            Dc.b      130,90,N,A,M,E,END
  1114.            Dc.b      100,160,O,U,T,END
  1115.            Dc.b      253
  1116.            Dc.b      190,200,L,O,U,D,END
  1117.            Dc.b      253,253
  1118.            Dc.b      254
  1119.  
  1120.            Dc.b      190,40,B,E,C,A,U,S,E,END
  1121.            Dc.b      253
  1122.            Dc.b      120,100,Y,O,U,END
  1123.            Dc.b      160,150,W,O,N,T,END
  1124.            Dc.b      130,210,S,E,E,END
  1125.            Dc.b      253,253
  1126.            Dc.b      254
  1127.  
  1128.            Dc.b      120,30,A,N,Y,T,H,I,N,G,END
  1129.            Dc.b      70,80,L,I,K,E,END
  1130.            Dc.b      253
  1131.            Dc.b      190,170,I,T,END
  1132.            Dc.b      140,210,A,G,A,I,N,UTR,END
  1133.            Dc.b      253,253
  1134.            Dc.b      254
  1135.  
  1136.            Dc.b      30,0,A,END
  1137.            Dc.b      100,40,N2,X,N2,END
  1138.            Dc.b      253
  1139.            Dc.b      100,90,Z,O,O,M,R,O,T,A,T,E,END
  1140.            Dc.b      253
  1141.            Dc.b      60,150,N5,N0,F,P,S,UTR,END
  1142.            Dc.b      253,253
  1143.            Dc.b      254
  1144.  
  1145.            Dc.b      130,80,W,I,T,H,END
  1146.            Dc.b      90,170,F,A,S,T,M,E,M,END
  1147.            Dc.b      253
  1148.            Dc.b      254
  1149.  
  1150.            Dc.b      160,20,N,O,END
  1151.            Dc.b      100,80,B,L,I,T,T,E,R,S,C,R,E,E,N,UTR,END
  1152.            Dc.b      253,253
  1153.            Dc.b      254
  1154.  
  1155.            Dc.b      190,40,N,O,END
  1156.            Dc.b      100,120,N0,N3,N0,END
  1157.            Dc.b      253
  1158.            Dc.b      40,210,N,E,E,D,E,D,UTR,END
  1159.            Dc.b      253,253
  1160.            Dc.b      254
  1161.  
  1162.            Dc.b      30,30,T,H,E,END
  1163.            Dc.b      253
  1164.            Dc.b      180,80,R,E,A,L,L,Y,END
  1165.            Dc.b      70,160,F,A,S,T,E,S,T,END
  1166.            Dc.b      253,253
  1167.            Dc.b      254
  1168.  
  1169.            Dc.b      160,60,E,V,E,R,END
  1170.            Dc.b      30,170,S,E,E,N,UTR,END
  1171.            Dc.b      253,253
  1172.            Dc.b      254
  1173.  
  1174.            Dc.b      255
  1175.            Even
  1176.  
  1177. Pal1:              Dc.l      $000000,$777777,$bbbbbb,$ffffff
  1178.            Dc.l      $001111,0,0,0
  1179.            Dc.l      $002222,0,0,0
  1180.            Dc.l      $003333,0,0,0
  1181.  
  1182.            Dc.l      $004444,0,0,0
  1183.            Dc.l      $005555,0,0,0
  1184.            Dc.l      $006666,0,0,0
  1185.            Dc.l      $007777,0,0,0
  1186.  
  1187.            Dc.l      $008888,0,0,0
  1188.            Dc.l      $009999,0,0,0
  1189.            Dc.l      $00aaaa,0,0,0
  1190.            Dc.l      $00bbbb,0,0,0
  1191.  
  1192.            Dc.l      $00cccc,0,0,0
  1193.            Dc.l      $00dddd,0,0,0
  1194.            Dc.l      $00eeee,0,0,0
  1195.            Dc.l      $00ffff,0,0,0
  1196.  
  1197. Pal2:
  1198.            REPT      16
  1199.            Dc.l      0,0,0,0
  1200.            ENDR
  1201.  
  1202. Pal3:
  1203.            REPT      16
  1204.            Dc.l      $ffffff,$ffffff,$ffffff,$ffffff
  1205.            ENDR
  1206.  
  1207. Pal4:              Dc.l      $444444,$bbbbbb,$ffffff,$ffffff
  1208.            Dc.l      $555555,0,0,0
  1209.            Dc.l      $666666,0,0,0
  1210.            Dc.l      $777777,0,0,0
  1211.  
  1212.            Dc.l      $888888,0,0,0
  1213.            Dc.l      $999999,0,0,0
  1214.            Dc.l      $aaaaaa,0,0,0
  1215.            Dc.l      $bbbbbb,0,0,0
  1216.  
  1217.            Dc.l      $cccccc,0,0,0
  1218.            Dc.l      $dddddd,0,0,0
  1219.            Dc.l      $eeeeee,0,0,0
  1220.            Dc.l      $ffffff,0,0,0
  1221.  
  1222.            Dc.l      $ffffff,0,0,0
  1223.            Dc.l      $ffffff,0,0,0
  1224.            Dc.l      $ffffff,0,0,0
  1225.            Dc.l      $ffffff,0,0,0
  1226.  
  1227.  
  1228. Pal5:              Dc.l      $000000,$777777,$bbbbbb,$ffffff
  1229.            Dc.l      $111111,0,0,0
  1230.            Dc.l      $222222,0,0,0
  1231.            Dc.l      $333333,0,0,0
  1232.  
  1233.            Dc.l      $444444,0,0,0
  1234.            Dc.l      $555555,0,0,0
  1235.            Dc.l      $666666,0,0,0
  1236.            Dc.l      $777777,0,0,0
  1237.  
  1238.            Dc.l      $888888,0,0,0
  1239.            Dc.l      $999999,0,0,0
  1240.            Dc.l      $aaaaaa,0,0,0
  1241.            Dc.l      $bbbbbb,0,0,0
  1242.  
  1243.            Dc.l      $cccccc,0,0,0
  1244.            Dc.l      $dddddd,0,0,0
  1245.            Dc.l      $eeeeee,0,0,0
  1246.            Dc.l      $ffffff,0,0,0
  1247.  
  1248. Pal6:              Dc.l      $0,$ff4433
  1249.  
  1250. ;;;
  1251. ;;; "Word Table"
  1252. _L                 Equ       16
  1253. _S1                Equ       6
  1254. _S2                Equ       9
  1255.  
  1256. WordTable:         Dc.l      _L,_L,_L,_L,_L,_L,_L,_L,_S1,_L,_L,_L,_L,_L,_L
  1257.            Dc.l      _L,_L,_L,_L,_L,_L,_L,_L,_L,_L,_L,_L,_S2,_L,_L
  1258.            Dc.l      _L,_L,_L,_L,_L,_L,_L,_S1,_L,_L
  1259. ;;;
  1260.  
  1261.            Section   data,DATA
  1262. ;;; "Pics"
  1263. Henke:             Incbin    "!intro:intro/henke5.4bit"
  1264. Jeppe:             Incbin    "!intro:intro/jeppe1.4bit"
  1265. Alex:              Incbin    "!intro:intro/alex1.4bit"
  1266. Magnus:            Incbin    "!intro:intro/magnus4.4bit"
  1267. Johnny:            Incbin    "!intro:intro/johnny4.4bit"
  1268. Oliver:            Incbin    "!intro:intro/dog1.4bit"
  1269. ;;;
  1270.            Section   chipdata,DATA_C
  1271. ;;; "Writer CopperList 1"
  1272. WriteCList1:       Dc.w      $008e,$2c81     ; DIWSTRT
  1273.            Dc.w      $0090,$2bc1     ; DIWSTOP
  1274.            Dc.w      $0092,$0038     ; DDFSTRT
  1275.            Dc.w      $0094,$00d0     ; DDFSTOP
  1276.            Dc.w      $0100,$6201     ; BPLCON0
  1277.            Dc.w      $0102,$0000     ; BPLCON1
  1278.            Dc.w      $0104,$0200     ; BPLCON2
  1279.            Dc.w      $0108,-8        ; BPLMOD1
  1280.            Dc.w      $010a,-8        ; BPLMOD2
  1281.            Dc.w      $01fc,$0003     ; FETCHMODE
  1282.  
  1283. Wr1BplPtr:         Dc.w      $00e0,$0000     ; BPL1PTH
  1284.            Dc.w      $00e2,$0000     ; BPL1PTL
  1285.            Dc.w      $00e4,$0000     ; BPL1PTL
  1286.            Dc.w      $00e6,$0000     ; BPL1PTL
  1287.            Dc.w      $00e8,$0000     ; BPL1PTL
  1288.            Dc.w      $00ea,$0000     ; BPL1PTL
  1289.            Dc.w      $00ec,$0000     ; BPL1PTL
  1290.            Dc.w      $00ee,$0000     ; BPL1PTL
  1291.            Dc.w      $00f0,$0000     ; BPL1PTL
  1292.            Dc.w      $00f2,$0000     ; BPL1PTL
  1293.            Dc.w      $00f4,$0000     ; BPL1PTL
  1294.            Dc.w      $00f6,$0000     ; BPL1PTL
  1295.  
  1296. Wr1SprPtr:
  1297. Wr1SprNum          Set       $0120
  1298.            REPT      16
  1299.            Dc.w      Wr1SprNum,$0000    ; SPRxPT
  1300. Wr1SprNum          Set       Wr1SprNum+2
  1301.            ENDR
  1302.  
  1303.            Dc.w      $ac01,$fffe
  1304. Wr1BplPtr2:        Dc.w      $00e8,$0000     ; BPL1PTL
  1305.            Dc.w      $00ea,$0000     ; BPL1PTL
  1306.            Dc.w      $00ec,$0000     ; BPL1PTL
  1307.            Dc.w      $00ee,$0000     ; BPL1PTL
  1308.            Dc.w      $00f0,$0000     ; BPL1PTL
  1309.            Dc.w      $00f2,$0000     ; BPL1PTL
  1310.            Dc.w      $00f4,$0000     ; BPL1PTL
  1311.            Dc.w      $00f6,$0000     ; BPL1PTL
  1312.  
  1313.            Dc.w      $ffff,$fffe     ; End of list
  1314. ;;;
  1315. ;;; "Writer CopperList 2"
  1316.            Cnop      0,8
  1317. WriteCList2:       Dc.w      $008e,$2c81     ; DIWSTRT
  1318.            Dc.w      $0090,$2bc1     ; DIWSTOP
  1319.            Dc.w      $0092,$0038     ; DDFSTRT
  1320.            Dc.w      $0094,$00d0     ; DDFSTOP
  1321.            Dc.w      $0100,$9201     ; BPLCON0
  1322.            Dc.w      $0102,$0000     ; BPLCON1
  1323.            Dc.w      $0104,$0200     ; BPLCON2
  1324.            Dc.w      $0108,0         ; BPLMOD1
  1325.            Dc.w      $010a,0         ; BPLMOD2
  1326.            Dc.w      $01fc,$0000     ; FETCHMODE
  1327.  
  1328. Wr1BplPtr_2:       Dc.w      $00e0,$0000     ; BPL1PTH
  1329.            Dc.w      $00e2,$0000     ; BPL1PTL
  1330.  
  1331. Wr1SprPtr2:
  1332. Wr1SprNum2         Set       $0120
  1333.            REPT      16
  1334.            Dc.w      Wr1SprNum2,$0000    ; SPRxPT
  1335. Wr1SprNum2         Set       Wr1SprNum2+2
  1336.            ENDR
  1337.  
  1338.            Dc.w      $ffff,$fffe     ; End of list
  1339. ;;;
  1340.  
  1341. ;;; "Apathy"
  1342.            Cnop      0,8
  1343. Apathy:            Incbin    "!intro:intro/apathy2.raw"
  1344. ;;;
  1345.