home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / TOXIC_14.ARJ / toxic_14 / TOXIC_14.D_2 / LEONARD / LEO_ST.ZIP / ST_PC / SYSTEM / RUNNER.S < prev    next >
Text File  |  1997-12-29  |  2KB  |  100 lines
  1.  
  2.  
  3. TEST    equ    0
  4.  
  5.     IFNE    TEST
  6.         move.l    #b,d0
  7.         addq.l    #1,d0
  8.         and.l    #-2,d0        ; Adresse de fin.
  9.         
  10.         move.l    d0,d1
  11.         sub.l    #debut,d1
  12.         move.l    d1,AA+2
  13.         
  14.         move.l    #b-a,binary+4
  15.         move.l    #$2000,binary+8
  16.         
  17.         move.l    d0,a1
  18.         clr.l    (a1)+
  19.         lea    AA,a0
  20.         nop
  21.         clr.w    -(sp)
  22.         trap    #1
  23.         
  24.     ENDC
  25.  
  26.  
  27.  
  28. AA        dc.w    $601a
  29.         dcb.b    28-2,0
  30.         
  31. debut
  32.         pea    txt_intro(pc)
  33.         move.w    #9,-(sp)
  34.         trap    #1
  35.         move.w    #7,-(sp)
  36.         trap    #1
  37.         addq.l    #8,sp
  38.         
  39.         cmpi.b    #$1b,d0
  40.         bne.s    .ok
  41.  
  42. .error:        clr.w    -(sp)
  43.         trap    #1
  44. .ok:
  45.         pea    0
  46.         move.w    #32,-(sp)
  47.         trap    #1
  48.         
  49.         move.l    $44e.w,d0
  50.         clr.b    d0
  51.         clr.w    -(sp)
  52.         move.l    d0,-(sp)
  53.         move.l    d0,-(sp)
  54.         move.w    #5,-(sp)
  55.         trap    #14
  56.         move.w    #$2700,sr
  57.         move.l    $42e.w,a6
  58.         lea    frout(pc),a1
  59.         moveq    #(frout-rout)/2-1,d0
  60. .copy:        move.w    -(a1),-(a6)
  61.         dbf    d0,.copy
  62.         lea    binary(pc),a0
  63.         cmpi.l    #'LEO!',(a0)+
  64.         bne.s    .error
  65.         move.l    (a0)+,d0        ; Taille
  66.         move.l    (a0)+,a1        ; ORG
  67.         jmp    (a6)
  68.         
  69. rout        movea.l    a1,a7
  70.         cmpa.l    a0,a1
  71.         beq.s    .jmp
  72.         blo.s    .plus
  73. .moins:        add.l    d0,a0
  74.         add.l    d0,a1
  75.     .l1:    move.b    -(a0),-(a1)
  76.         subq.l    #1,d0
  77.         bne.s    .l1
  78.         bra.s    .jmp
  79. .plus:        move.b    (a0)+,(a1)+
  80.         subq.l    #1,d0
  81.         bne.s    .plus
  82. .jmp:        jmp    (a7)
  83. frout:
  84.  
  85. txt_intro    dc.b    27,'E'
  86.         dc.b    'SCREEN-Runner v0.1 by Leonard/OXYGENE.',10,13
  87.         dc.b    'Run binary made on PC.',10,13,10,13
  88.         dc.b    'WARNING: The binary will clear all the',10,13
  89.         dc.b    'system, press ESC to abort, another key',10,13
  90.         dc.b    'to start.',10,13,0
  91.         even
  92. binary:        dc.b    'LEO!'
  93.         dc.l    0        ; Taille
  94.         dc.l    0        ; ORG
  95. BB
  96.     IFNE    TEST
  97. a    incbin    "mandel5.bin"
  98. b
  99.     ENDC
  100.