home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STINK / STINK_1.MSA / PRG_PACK_UTL.S < prev    next >
Text File  |  2006-02-18  |  3KB  |  190 lines
  1.     TEXT
  2.     MOVE.L    4(A7),A6
  3.     MOVE.L    #256,D0
  4.     ADD.L    12(A6),D0
  5.     ADD.L    20(A6),D0
  6.     ADD.L    28(A6),D0
  7.     MOVE.L    D0,-(SP)
  8.     MOVE.L    (A6),-(SP)
  9.     CLR.W    -(SP)
  10.     MOVE.W    #74,-(SP)
  11.     TRAP    #1
  12.     LEA    12(SP),SP
  13.  
  14.     PEA    TEXT(PC)
  15.     MOVE.W    #9,-(SP)
  16.     TRAP    #1
  17.     ADDQ    #6,SP
  18.  
  19.     ADD.L    #129,A6
  20.     TST.B    (A6)
  21.     BEQ    INPUT    
  22.     LEA    F_LOAD(PC),A0
  23.     MOVEQ    #127,D0
  24. NEXT_TRS:    MOVE.B    (A6)+,(A0)+    
  25.     DBF    D0,NEXT_TRS
  26. CONTINUE: BSR    LOAD
  27. _MENU:    PEA    MENU(PC)
  28.     MOVE.W    #9,-(SP)
  29.     TRAP    #1
  30.     ADDQ    #6,SP
  31.  
  32. M_KEY:    MOVE.W    #7,-(SP)
  33.     TRAP    #1
  34.     ADDQ    #2,SP
  35.     
  36.     SWAP    D0
  37.     CMP.B    #$3B,D0
  38.     BEQ    F_OFF
  39.     CMP.B    #$3C,D0
  40.     BEQ    T_OFF
  41.     CMP.B    #$3D,D0
  42.     BEQ    SAVE
  43.     CMP.B    #$3E,D0
  44.     BEQ    THE_END
  45.  
  46.     BRA.S    M_KEY
  47.  
  48. THE_END:    CLR.W    -(SP)
  49.     TRAP    #1
  50. INPUT:    PEA    N_FND(PC)
  51.     MOVE.W    #9,-(SP)
  52.     TRAP    #1
  53.     ADDQ    #6,SP
  54.  
  55.     PEA    F_LOAD-2(PC)
  56.     MOVE.W    #10,-(SP)
  57.     TRAP    #1
  58.     ADDQ    #6,SP
  59.     BRA    CONTINUE
  60.  
  61. LOAD:    PEA    LOADING(PC)
  62.     MOVE.W    #9,-(SP)
  63.     TRAP    #1
  64.     ADDQ    #6,SP    
  65.     CLR.W    -(SP)
  66.     PEA    F_LOAD(PC)
  67.     MOVE.W    #78,-(SP)
  68.     TRAP    #1
  69.     ADDQ    #8,SP    
  70.     TST    D0
  71.     BMI    D_ERROR
  72.     MOVE.W    #47,-(SP)
  73.     TRAP    #1
  74.     ADDQ    #2,SP
  75.     MOVE.L    D0,A0
  76.     MOVE.L    26(A0),D6
  77.  
  78.     MOVE.L    D6,-(SP)
  79.     MOVE.W    #72,-(SP)
  80.     TRAP    #1
  81.     ADDQ    #6,SP
  82.  
  83.     TST.L    D0
  84.     BMI    M_ERROR
  85.     BEQ    M_ERROR
  86.     MOVE.L    D0,A6
  87.     CLR.W    -(SP)
  88.     PEA    F_LOAD(PC)
  89.     MOVE.W    #61,-(SP)
  90.     TRAP    #1
  91.     ADDQ    #8,SP
  92.     TST    D0
  93.     BMI    D_ERROR
  94.     MOVE.L    D0,D7            
  95.     MOVE.L    A6,-(SP)
  96.     MOVE.L    D6,-(SP)
  97.     MOVE.W    D7,-(SP)
  98.     MOVE.W    #63,-(SP)
  99.     TRAP    #1
  100.     LEA    12(SP),SP
  101.     TST    D0
  102.     BMI    D_ERROR        
  103.     MOVE.W    D7,-(SP)
  104.     MOVE.W    #62,-(SP)
  105.     TRAP    #1
  106.     ADDQ    #4,SP
  107.     RTS
  108. F_OFF:    PEA    FSH_OFF
  109.     MOVE.W    #9,-(SP)
  110.     TRAP    #1
  111.     ADDQ    #6,SP
  112.     MOVE.L    A6,A0        
  113.     ADD.L    #604,A0
  114.     MOVE.W    #$4E71,(A0)+
  115.     MOVE.W    #$4E71,(A0)+
  116.     MOVE.W    #$4E71,(A0)
  117.     BRA    _MENU
  118.  
  119. T_OFF:    PEA    TXT_OFF
  120.     MOVE.W    #9,-(SP)
  121.     TRAP    #1
  122.     ADDQ    #6,SP
  123.     MOVE.L    A6,A0        
  124.     ADD.L    #122,A0
  125.     MOVE.W    #$4E71,(A0)
  126.     BRA    _MENU
  127.  
  128. SAVE:    CLR.W    -(SP)
  129.     PEA    F_LOAD(PC)
  130.     MOVE.W    #60,-(SP)
  131.     TRAP    #1
  132.     ADDQ    #8,SP
  133.     TST    D0
  134.     BMI    D_ERROR
  135.     MOVE.L    D0,D7
  136.  
  137.     MOVE.L    A6,-(SP)
  138.     MOVE.L    D6,-(SP)
  139.     MOVE.W    D7,-(SP)
  140.     MOVE.W    #64,-(SP)
  141.     TRAP    #1
  142.     LEA    12(SP),SP
  143.  
  144.     TST    D0
  145.     BMI    D_ERROR    
  146.  
  147.     MOVE.W    D7,-(SP)
  148.     MOVE.W    #62,-(SP)
  149.     TRAP    #1
  150.     ADDQ    #4,SP    
  151.  
  152.     TST    D0
  153.     BMI    ERROR
  154.     BRA    _MENU
  155.  
  156. D_ERROR:    PEA    ERROR(PC)
  157.     MOVE.W    #9,-(SP)
  158.     TRAP    #1
  159.     ADDQ    #6,SP
  160. ERROR_H:    MOVE.W    #7,-(SP)
  161.     TRAP    #1
  162.     ADDQ    #2,SP
  163.     CLR.W    -(SP)
  164.     TRAP    #1
  165. M_ERROR:    PEA    MERROR(PC)
  166.     MOVE.W    #9,-(SP)
  167.     TRAP    #1
  168.     ADDQ    #6,SP
  169.     BRA.S    ERROR_H
  170.     DATA
  171. ERROR:    DC.B "Disk error!",10,13,0
  172. MERROR:    DC.B "Memory error!",10,13,0
  173. TEXT:    DC.B 27,'E',27,'p',27,'V'
  174.     DC.B "     Automation v2.3r packer utility    ",27,'q',10,13
  175.     DC.B "Written by Galivan Tfn:Sweden-090-139994",0
  176. N_FND:    DC.B 10,13,"Enter name of program file.",10,13,">",0    
  177. MENU:    DC.B 27,'H',10,10,10,10,13
  178.     DC.B "Select:                    ",10,13
  179.     DC.B 27,"pF1",27,"q Flash off                         ",10,13
  180.     DC.B 27,"pF2",27,"q Text off                          ",10,13
  181.     DC.B 27,"pF3",27,"q Save file",10,13
  182.     DC.B 27,"pF4",27,"q Exit",10,13,0
  183. FSH_OFF:    DC.B "Flash off! ",10,13,0
  184. TXT_OFF:    DC.B "Text off!  ",10,13,0
  185. LOADING:    DC.B 10,13,"Loading file...",10,13,0
  186.     even
  187.     DC.B    128,0
  188. F_LOAD:    DS.B    128
  189.     even
  190.