home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD2.iso / DEMOS / TRSI-CrackIntroNo2.lha / PLY2-Intro2 / intro-gammel.s < prev   
Encoding:
Text File  |  1994-05-20  |  6.4 KB  |  401 lines
  1.  
  2. ; ------------------------------------------------------------------
  3. ;
  4. ; Crackintro #2 from Ply-2/TRSi
  5. ;
  6. ; ------------------------------------------------------------------
  7. ;
  8. ; Crunched lenght is 3.5 Kilobytes (max. 4 KB)
  9. ;
  10. ; Include a Replayer if you want...
  11. ;
  12. ; Well, edit the text in line ...280 ff (up to l.300)
  13. ;
  14. ; For any questions call me or Ply-2
  15. ;
  16. ;
  17. ; Later, yours CONtROL/TRSi
  18. ;
  19. ; ------------------------------------------------------------------
  20. ;
  21. ;
  22. ;
  23.     INCLUDE "df0:Ply2-intro2/inc/hardmacros.s"
  24.     INCLUDE    "df0:Ply2-intro2/inc/copper+blittermacros.s"
  25.     include    "df0:Ply2-intro2/inc/linemacros.s"
  26.     section    "kl2",code_c
  27. scrw    equ    1008
  28. scrbw    equ    scrw/8
  29. scrh    equ    256
  30. tbw    equ    368/8
  31. tth    equ    80
  32. bth    equ    160
  33. anf
  34.     DEFPLN
  35.     DEFBLIT
  36.     INIT    cop0,inter,0
  37.     SPROFF
  38.     GENMULW    multab,0,scrbw,scrh
  39.     bsr    drawlogo
  40.     bsr    copylogo
  41.     lea    toptxt,a0
  42.     lea    tpage+20*3*tbw,a1
  43.     bsr    drawtext
  44.     lea    text,a0
  45.     lea    bpage+12*3*tbw+2,a1
  46.     bsr    drawtext
  47.     WVBL
  48.     move.w    #0,scrloff
  49.     WVBL
  50.     STARTC    #copper
  51.     moveq    #110,d0
  52. al
  53.     WVBL
  54.     dbf    d0,al
  55. mainloop
  56.     tst.w    scroll1
  57.     beq.s    .out
  58.     msloop    mainloop
  59. .out
  60.     move.w    #1,scrloff
  61.     SETFADESTRUCT #rpal1,#2,fadst
  62.     bsr    wfad
  63.     SETFADESTRUCT #rpal2,#2,fadst
  64.     bsr    wfad
  65.     SETFADESTRUCT #xpal,#2,fadst    
  66.     bsr    wfad
  67.     bra.w    prgx
  68.  
  69. prgx
  70.     EXIT
  71. wfad    moveq    #31,d0
  72. .lop    WVBL
  73.     addq.w    #4,tscrl
  74.     cmp.w    #73*4,tscrl
  75.     bcs    .nbut
  76.     move.w    #73*4,tscrl    
  77.  
  78. .nbut    dbf    d0,.lop
  79.     rts
  80.     
  81. ;; ******* TEXT MALEN *********
  82. drawtext
  83. .lin    
  84.     move.l    a1,-(sp)
  85. .llop    
  86.     move.b    (a0)+,d0
  87.     tst.b    d0
  88.     beq.s    .linex
  89.     lea    asctab,a2
  90.     lea    font,a3
  91. .srclp    
  92.     tst.b    (a2)
  93.     beq.s    .nfnd
  94.     cmp.b    (a2)+,d0
  95.     beq.s    .found
  96.     addq.l    #1,a3
  97.     bra.s    .srclp
  98. .found
  99.     move.l    a1,a2
  100.     moveq    #7,d0
  101. .ylop    move.b    (a3),d1
  102.     move.b    d1,(a2)
  103.     move.b    42(a3),d1
  104.     move.b    d1,tbw(a2)
  105.     move.b    2*42(a3),d1
  106.     move.b    d1,2*tbw(a2)
  107.     add.w    #3*42,a3
  108.     add.w    #3*tbw,a2
  109.     dbf    d0,.ylop
  110. .nfnd    addq.l    #1,a1
  111.     bra.s    .llop
  112. .linex
  113.     move.l    (sp)+,a1
  114.     add.w    #tbw*3*15,a1
  115.     cmp.b    #-1,(a0)
  116.     bne.s    .lin
  117.     rts
  118.     
  119. ;; ******* LOGO KOPIEREN *****
  120. copylogo
  121.     WBLIT
  122.     moveq    #15,d7
  123.     SETADMOD scrbw,0
  124.     BLITD    #scrbuf
  125.     moveq    #0,d6
  126. .loop
  127.     move.w    d6,d5
  128.     REGADJ    d5,%1001,%11110000,0
  129.     BLITA    #logscr
  130.     DOBLIT    scrbw/2,scrh/2
  131.     WBLIT
  132.     WBLIT
  133.     addq.w    #1,d6
  134.     dbf    d7,.loop    
  135.     rts
  136.  
  137. ;; ******* LOGO MALEN *****
  138. drawlogo
  139.     WBLIT
  140.     flineinit scrw
  141.     lea    vec+12,a0
  142.     lea    multab,a3
  143. .oloop    movem.w    (a0)+,d0/d1
  144.     movem.w    d0/d1,-(sp)
  145. .iloop
  146.     movem.w    (a0)+,d2/d3
  147.     cmp.w    #32768,d2
  148.     beq.s    .eofl
  149.     movem.w    d2/d3,-(sp)
  150.     bsr    drawl
  151.     movem.w    (sp)+,d0/d1
  152.     bra.s    .iloop
  153. .eofl    move.w    d3,d6
  154.     movem.w    (sp)+,d2/d3
  155.     bsr    drawl
  156.     tst.w    d6
  157.     beq.s    .oloop
  158.     PROCOFF
  159.     WBLIT
  160.     FIXADJ 0,%1001,%11110000,5
  161.     setadmod 0,0
  162.     move.l    #-1,bltafwm(a6)
  163.     BLITA    #logscr+scrbw*scrh-2
  164.     BLITD    #logscr+scrbw*scrh-2
  165.     DOBLIT    scrbw/2,scrh
  166.     rts
  167.  
  168. drawl    add.w    d0,d0
  169.     add.w    d2,d2
  170.     add.w    #352,d0
  171.     add.w    #352,d2
  172.     fline    #logscr
  173. inter
  174.     IRQIN
  175.     lea    $dff000,a6
  176.  
  177.     move.l    #tpage,bpl1pth(a6)
  178.     move.l    #tpage+tbw,bpl2pth(a6)
  179.     move.l    #tpage+2*tbw,bpl3pth(a6)
  180.     sub.w    #1,tscrl
  181.     bpl.s    .nto
  182.     move.w    #0,tscrl
  183. .nto
  184.     move.w    tscrl,d0
  185.     lsr.w    #2,d0
  186.     add.w    #25,d0
  187.     move.b    d0,tyscrl
  188.     
  189.  
  190.     lea    scroll1,a0
  191.     bsr    calcs
  192.     move.w    d1,lc2+6
  193.     swap    d1
  194.     move.w    d1,lc2+2
  195.  
  196.     move.w    d2,lc1+6
  197.     swap    d2
  198.     move.w    d2,lc1+2
  199.  
  200.     lea    scroll2,a0
  201.     bsr    calcs
  202.     move.w    d1,lc3+6
  203.     swap    d1
  204.     move.w    d1,lc3+2
  205.  
  206.     move.w    d2,lc4+6
  207.     swap    d2
  208.     move.w    d2,lc4+2
  209.  
  210.     lea    scroll3,a0
  211.     bsr    calcs
  212.     move.w    d1,lc5+6
  213.     swap    d1
  214.     move.w    d1,lc5+2
  215.  
  216.     move.l    #bpage,d1
  217.     move.w    d1,bc1+6
  218.     swap    d1
  219.     move.w    d1,bc1+2
  220.     move.l    #bpage+tbw,d1
  221.     move.w    d1,bc2+6
  222.     swap    d1
  223.     move.w    d1,bc2+2
  224.     move.l    #bpage+2*tbw,d1
  225.     move.w    d1,bc3+6
  226.     swap    d1
  227.     move.w    d1,bc3+2
  228.  
  229. ;    move.l    #fpage,bpl1pth(a6)
  230. ;    move.l    #fpage+scrbw*scrh/2,bpl3pth(a6)
  231. ;    move.l    #fpage+scrbw*scrh,bpl5pth(a6)
  232.     
  233.     subq.w    #1,bfco
  234.     bne.s    .nfls
  235.  
  236.     lea    bcl+4,a0
  237.     moveq    #6,d0
  238. .bcll    move.w    #$fff,2(a0)
  239.     addq.l    #4,a0
  240.     dbf    d0,.bcll    
  241. .nfls
  242.  
  243.     tst.w    bfco
  244.     bpl.s    .nfad
  245.     lea    fadst,a1
  246.     lea    bcl,a2
  247.     bsr    cf
  248. .nfad
  249.     IRQOUT
  250. bfco    dc.w    100
  251. fadst    fadestruct bpal,8,2
  252.  
  253. calcs
  254.     move.w    (a0),d0
  255.     add.w    2(a0),d0
  256.     tst.w    scrloff
  257.     bne.s    .scro
  258.     cmp.w    #scrw,d0
  259.     bcs.s    .nsr
  260. .scro    moveq    #0,d0
  261. .nsr    move.w    d0,(a0)
  262.     bsr    .c2
  263.     move.l    d1,d2
  264.     move.w    #scrw,d0
  265.     sub.w    (a0),d0
  266. .c2    moveq    #0,d1
  267.     move.w    d0,d1
  268.     lsr.w    #4,d1
  269.     add.w    d1,d1
  270.     add.l    #scrbuf,d1
  271.     not.w    d0
  272.     and.w    #$f,d0
  273.     mulu    #scrbw*scrh/2,d0
  274.     add.l    d0,d1
  275.     rts
  276. cf    cfadeirq
  277. scrloff    dc.w    1
  278. scroll1    dc.w    0,1
  279. scroll2    dc.w    0,2
  280. scroll3    dc.w    0,3
  281.  
  282. tscrl    dc.w    73*4
  283.  
  284. vec    incbin    "df0:Ply2-intro2/raw/trsibig.vob"
  285.  
  286. asctab    dc.b    "ABCDEFGHIJKLMNOPQRSTUVWXYZ,!.:-1234567890*",0
  287.  
  288. toptxt
  289.     dc.b    "    *TRISTAR AND RED SECTOR INCOOPERATED* ",0
  290.     dc.b    "                 IRGENDWAS",0
  291.     dc.b    "         CRACKED BY WASISCHNISCH",0,-1
  292. ;        "                                             "
  293.  
  294. text    dc.b    "IRGENDWIE IST DA WAS MIT DEM DESIGN IN DIE",0
  295.     DC.B    "HOSEN GEGANGEN... NAJA, SPARIGES INTRO FUER",0
  296.     DC.B    "SPARIGE KILOBYTES...",0
  297.     dc.b    "                                   ",0
  298.     dc.b    -1
  299.     EVEN
  300. cop0    copmode    0,0,0,0,0
  301.     dc.w    $180,0
  302.     dc.l    -2
  303.  
  304. bpal    dc.w    $000,$0F0,$0C0,$0A0,$080,$060,$040,$020
  305. rpal1    dc.w    $000,$FF,$Cc,$aA,$88,$66,$44,$22
  306. rpal2    dc.w    $000,$F,$C,$A,$8,$6,$4,$2
  307.  
  308. copper    copmode    0,0,0,0,0
  309.     copddf    97,0,368,300
  310.     copwin    113,0,344,300
  311.     dc.w    $102,$ff
  312.     dc.w    $180,$000,$182,$F00,$184,$D00,$186,$B00
  313.     dc.w    $188,$A00,$18a,$800,$18c,$700,$18e,$520
  314. tyscrl    WAIT    0,98
  315.     copmode    3,0,0,0,0
  316.  
  317.     WAIT    0,99
  318.     copmode    0,0,0,0,0
  319. lc1    coppln    1,0
  320. lc2    coppln    2,0
  321. lc3    coppln    3,0
  322. lc4    coppln    4,0
  323. lc5    coppln    5,0
  324.     dc.w    $180,$000,$182,$0f2,$184,$004,$186,$9f4
  325.     dc.w    $188,$004,$18a,$0f4,$18c,$008,$18e,$9f8
  326.     dc.w    $190,$004,$192,$0f4,$194,$008,$196,$9f8
  327.     dc.w    $198,$008,$19a,$0f8,$19c,$00c,$19e,$9fc
  328.  
  329.     dc.w    $1a0,$004,$1a2,$0f4,$1a4,$008,$1a6,$9f8
  330.     dc.w    $1a8,$008,$1aa,$0f8,$1ac,$00c,$1ae,$9fc
  331.     dc.w    $1b0,$008,$1b2,$0f8,$1b4,$00c,$1b6,$9fc
  332.     dc.w    $1b8,$00c,$1ba,$0fc,$1bc,$00f,$1be,$9ff
  333.  
  334.     copemod    scrbw-46
  335.     copomod    scrbw-46
  336.     WAIT    0,100
  337.     copmode    5,0,0,0,0
  338.     WAIT    0,100+127
  339.     copmode 0,0,0,0,0
  340.  
  341. bcl    dc.w    $180,$000,$182,$000,$184,$000,$186,$000
  342.     dc.w    $188,$000,$18a,$000,$18c,$000,$18e,$000
  343.  
  344.  
  345. bc1    coppln    1,0
  346. bc2    coppln    2,0
  347. bc3    coppln    3,0
  348.     copemod    2*tbw
  349.     copomod    2*tbw
  350.     dc.w    $102,$77
  351.     WAIT    0,101+128
  352.     copmode    3,0,0,0,0    
  353.  
  354.     WAIT    20,198
  355.     dc.w    $180,$fff
  356.     WAIT    20,199
  357.     dc.w    $180,0
  358.     wait    446,255
  359.     Wait    20,43
  360.     dc.w    $180,$1
  361.     Wait    20,44
  362.     dc.w    $180,$2
  363.     Wait    20,45
  364.     dc.w    $180,$3
  365.     Wait    20,46
  366.     dc.w    $180,$4
  367.     Wait    20,47
  368.     dc.w    $180,$5
  369.     Wait    20,48
  370.     dc.w    $180,$6
  371.     Wait    20,49
  372.     dc.w    $180,$7
  373.     Wait    20,50
  374.     dc.w    $180,$8
  375.     Wait    20,51
  376.     dc.w    $180,$9
  377.     Wait    20,52
  378.     dc.w    $180,$a
  379.     Wait    20,53
  380.     dc.w    $180,$b
  381.     Wait    20,54
  382.     dc.w    $180,$c
  383.     dc.l    -2
  384. font    incbin    "df0:Ply2-intro2/raw/nice.font"
  385. ende    
  386.     printt    "Soviel is schon wech:"
  387.     printv    ende-anf
  388.     section    "Würg",bss_c
  389. multab    ds.w    scrh
  390. xpal    ds.w    8
  391. logscr    ds.w    scrbw*(scrh+1)/2
  392.     ds.w    scrbw*scrh/2
  393.  
  394. tpage    ds.w    tbw*tth*3/2
  395. bpage    ds.w    tbw*bth*3/2
  396.  
  397. scrbuf    ds.w    scrh/4*scrbw*16
  398.     ds.w    scrbw
  399. scre
  400.     ds.w    1000
  401.