home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / Atari_ST / Emus / PCST048 / STFILES / DUMP_ROM.S < prev    next >
Encoding:
Text File  |  1997-05-28  |  1.4 KB  |  57 lines
  1.         pea     super(pc)
  2.         move    #$26,-(a7)
  3.         trap    #$e
  4.         addq.l  #$6,a7
  5.         clr     -(a7)
  6.         trap    #$1
  7. super:
  8.         move.l  #$40000,d6
  9.         move.l  #$00ff0000,d7
  10.         and.l   $4.w,d7         ;entry point in ROM
  11.         lea     buffer(pc),a1
  12.         move.l  d7,a0
  13.         cmp.l   #$fc0000,d7
  14.         bne.s   .notos1
  15.         move.l  #$30000,d6
  16. .notos1:
  17.         lea     tosversion(pc),a2
  18.         move    2(a0),d0
  19.         moveq   #$f,d1
  20.         and     d0,d1
  21.         add.b   d1,$e(a2)
  22.         lsr.b   #4,d0
  23.         add.b   d0,$d(a2)
  24.         lsr     #8,d0
  25.         add.b   d0,$b(a2)
  26.         pea     (a2)
  27.         move    #$9,-(a7)
  28.         trap    #$1
  29.         addq.l  #$6,a7
  30.  
  31.         move.l  d6,d0
  32. .cpy:   move.l  (a0)+,(a1)+
  33.         subq.l  #4,d0
  34.         bne.s   .cpy
  35.  
  36.  
  37.         clr     -(a7)           ;attrib
  38.         pea     fname(pc)
  39.         move    #$3c,-(a7)      ;fcreate
  40.         trap    #$1
  41.         addq.l  #$8,a7       
  42.         pea     buffer(pc)
  43.         move.l  d6,-(a7)
  44.         move    d0,-(a7)
  45.         move    #$40,-(a7)      ;fwrite
  46.         trap    #$1
  47.         move    #$3e,(a7)       ;fclose
  48.         trap    #$1
  49.         lea     $c(a7),a7
  50.         rts
  51.  
  52. tosversion:
  53.         dc.b    "Saving TOS 0.00 under TOS.ROM file.",0
  54. fname   dc.b    "TOS.ROM",0
  55.     SECTION BSS
  56. buffer  ds.l    $10000
  57.