home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / D / DHS / KRAP14.ZIP / KRAP14 / SRC / INIT.S < prev    next >
Text File  |  2013-12-18  |  1KB  |  57 lines
  1. ; Crappy SNDH-player
  2. ;
  3. ; init.s
  4. ;
  5. ; May 26, 2003
  6. ;
  7. ; Anders Eriksson
  8. ; ae@dhs.nu
  9.  
  10.         section    text
  11.  
  12.  
  13. ; release mem and get commandline address
  14.  
  15.         move.l    4(sp),a5                ;address to basepage
  16.  
  17.         move.l    a5,d0                    ;basepage address
  18.         add.l    #129,d0                    ;offset to commandline
  19.         move.l    d0,filename            
  20.  
  21.         move.l    $0c(a5),d0                ;length of text segment
  22.         add.l    $14(a5),d0                ;length of data segment
  23.         add.l    $1c(a5),d0                ;length of bss segment
  24.         add.l    #$1000,d0                ;length of stackpointer
  25.         add.l    #$100,d0                ;length of basepage
  26.         move.l    a5,d1                    ;address to basepage
  27.         add.l    d0,d1                    ;end of program
  28.         and.l    #-2,d1                    ;make address even
  29.         move.l    d1,sp                    ;new stackspace
  30.  
  31.         move.l    d0,-(sp)                ;mshrink()
  32.         move.l    a5,-(sp)                ;
  33.         move.w    d0,-(sp)                ;
  34.         move.w    #$4a,-(sp)                ;
  35.         trap    #1                    ;
  36.         lea    12(sp),sp                ;
  37.  
  38.  
  39.  
  40.         move.w    #$2f,-(sp)                ;fgetdta() save dta
  41.         trap    #1                    ;
  42.         addq.l    #2,sp                    ;
  43.         move.l    d0,save_dta                ;
  44.  
  45.         move.l    #dta,-(sp)                ;fsetdta() set new dta
  46.         move.w    #$1a,-(sp)                ;
  47.         trap    #1                    ;
  48.         addq.l    #6,sp                    ;
  49.  
  50.  
  51.         move.w    #1,-(sp)                ;Pdomain()
  52.         move.w    #$119,-(sp)                ;
  53.         trap    #1                    ;
  54.         addq.l    #4,sp                    ;
  55.  
  56.  
  57.