home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / G-H / GSC65.ZIP / SOURCES / ICE_KLF.S next >
Encoding:
Text File  |  1994-03-13  |  1.7 KB  |  101 lines
  1. *Routine de depack 2.34
  2. *MV-REPS
  3. * WARNING!
  4. * This source will work on machines with
  5. * 68000 CPU, only!
  6. * 680x0 owners, please take care!
  7.  
  8.  
  9.  
  10. begin:    lea    stackend,sp
  11.     move.l    sp,d0
  12.     subi.l    #begin-$0120,d0
  13.     move.l    d0,-(sp)
  14.     pea    begin-$0100(pc)
  15.     clr.w    -(sp)
  16.     move.w    #$4a,-(sp)
  17.     trap    #1
  18.     adda.w    #$0c,sp
  19.  
  20.     dc.w    $a00a
  21.     pea    text
  22.     move.w    #9,-(a7)
  23.     trap    #1        ;text print
  24.     addq.l    #6,a7
  25.     dc.w    $a009
  26.  
  27.     move.w    #7,-(a7)
  28.     trap    #1        ;wait for key
  29.     addq.l    #2,a7
  30.     
  31.     bsr.s    ice3_04
  32.     move.l    $84.w,ice3_08+2
  33.     move.l    #ice3_06,$84.w
  34.     bsr.s    ice3_05
  35.     pea    ice3_02(pc)
  36.     pea    ice3_02(pc)
  37.     pea    filename(pc)
  38.     clr.w    -(sp)
  39.     move.w    #$4b,-(sp)
  40.     trap    #1
  41.     lea    16(sp),sp
  42.     bsr.s    ice3_04
  43.     move.l    ice3_08+2(pc),$84.w
  44.     bsr.s    ice3_05
  45.     clr.w    -(sp)
  46.     trap    #1
  47.  
  48. ice3_02:dc.l 0
  49. filename: dc.b '1STPRG.prg',0
  50.     even
  51.  
  52. ice3_04:clr.l    -(sp)
  53.     move.w    #$20,-(sp)
  54.     trap    #1
  55.     addq.l    #6,sp
  56.     move.l    d0,d7
  57.     rts
  58. ice3_05:move.l    d7,-(sp)
  59.     move.w    #$20,-(sp)
  60.     trap    #1
  61.     addq.l    #6,sp
  62.     rts
  63. ice3_06:movea.l    sp,a0
  64.     btst    #$0d-8,(sp)
  65.     bne.s    ice3_07
  66.     move    usp,a0
  67.     subq.l    #6,a0
  68. ice3_07:addq.l    #6,a0
  69.     cmpi.w    #$3f,(a0)
  70.     beq.s    ice3_0a
  71. ice3_08:jmp    $00.l
  72. ice3_0a:move.l    8(a0),loadadr
  73.     move.l    2(sp),ice3_0c+2
  74.     move.l    #ice3_0b,2(sp)
  75.     bra.s    ice3_08
  76. ice3_0b:tst.w    2(sp)
  77.     bmi.s    ice3_0c
  78.     movea.l    loadadr(pc),a0
  79.     bsr.s    ice3_0e
  80. ice3_0c:jmp    $00.l
  81.  
  82. ice3_0e:include    ice_2_34\ice_unp2.s
  83.  
  84.     bss
  85. loadadr:ds.l    1
  86.     ds.b    500
  87. stackend:
  88.     ds.b    10
  89.  
  90.     SECTION DATA
  91. text    
  92.     DC.B 27,"E",27,"f",27,"w"
  93.     
  94.     DC.B    27,"f",27,"b",1,27,"Y",30+15,32+11,     "MERCHANT COLONY"
  95.     DC.B    27,"f",27,"b",15,27,"Y",30+17,32+7,"CRACKED BY THE REPLICANTS"
  96.     DC.B    27,"f",27,"b",15,27,"Y",30+19,32+9,"PACKED BY MAD VISION"
  97.  
  98.     DC.B 00,00
  99.  
  100.     EVEN
  101.