home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / D / DELIGHT / ICE_V211.ZIP / ICE_V211 / ICE_DISK.S < prev    next >
Text File  |  2013-12-18  |  1KB  |  68 lines
  1. begin:    lea    stackend,sp
  2.     move.l    sp,d0
  3.     subi.l    #begin-$0120,d0
  4.     move.l    d0,-(sp)
  5.     pea    begin-$0100(pc)
  6.     clr.w    -(sp)
  7.     move.w    #$4a,-(sp)
  8.     trap    #1
  9.     adda.w    #$0c,sp
  10.     bsr.s    ice3_04
  11.     move.l    $84.w,ice3_08+2
  12.     move.l    #ice3_06,$84.w
  13.     bsr.s    ice3_05
  14.     pea    ice3_02(pc)
  15.     pea    ice3_02(pc)
  16.     pea    filename(pc)
  17.     clr.w    -(sp)
  18.     move.w    #$4b,-(sp)
  19.     trap    #1
  20.     lea    16(sp),sp
  21.     bsr.s    ice3_04
  22.     move.l    ice3_08+2(pc),$84.w
  23.     bsr.s    ice3_05
  24.     clr.w    -(sp)
  25.     trap    #1
  26.  
  27. ice3_02:dc.l 0
  28. filename: dc.b 'resource.del',0
  29.     even
  30.  
  31. ice3_04:clr.l    -(sp)
  32.     move.w    #$20,-(sp)
  33.     trap    #1
  34.     addq.l    #6,sp
  35.     move.l    d0,d7
  36.     rts
  37. ice3_05:move.l    d7,-(sp)
  38.     move.w    #$20,-(sp)
  39.     trap    #1
  40.     addq.l    #6,sp
  41.     rts
  42. ice3_06:movea.l    sp,a0
  43.     btst    #$0d-8,(sp)
  44.     bne.s    ice3_07
  45.     move    usp,a0
  46.     subq.l    #6,a0
  47. ice3_07:addq.l    #6,a0
  48.     cmpi.w    #$3f,(a0)
  49.     beq.s    ice3_0a
  50. ice3_08:jmp    $00.l
  51. ice3_0a:move.l    8(a0),loadadr
  52.     move.l    2(sp),ice3_0c+2
  53.     move.l    #ice3_0b,2(sp)
  54.     bra.s    ice3_08
  55. ice3_0b:tst.w    2(sp)
  56.     bmi.s    ice3_0c
  57.     movea.l    loadadr(pc),a0
  58.     bsr.s    ice3_0e
  59. ice3_0c:jmp    $00.l
  60.  
  61. ice3_0e:include    ice_unp2.s
  62.  
  63.     bss
  64. loadadr:ds.l    1
  65.     ds.b    500
  66. stackend:
  67.     ds.b    10
  68.