home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / unzip531.zip / qdos / config.S next >
Text File  |  1996-07-05  |  2KB  |  149 lines
  1. #
  2. .globl _qlflag
  3. .globl _qlwait
  4. #ifdef ZIP
  5. .globl _dtype
  6. #endif
  7.  
  8. .data
  9.         ds.w    0
  10.         dc.b    '<<QCFX>>01'
  11. #ifdef ZIP
  12.         dc.w    8
  13.     dc.b    'Info-ZIP'
  14. *                12345678901234567890
  15.         ds.w    0
  16.         dc.w    3
  17.         dc.b    '2.1'
  18.         ds.w    0 
  19. #else
  20.         dc.w    10
  21.     dc.b    'Info-UNZIP'
  22. *                12345678901234567890
  23.         ds.w    0
  24.         dc.w    4
  25.         dc.b    '5.2b'
  26.         ds.w    0 
  27. #endif
  28.         dc.b    10
  29.         dc.b    0
  30. l_4:    dc.w    _qlwait-l_4
  31.         dc.w    0
  32.         dc.w    0
  33. l_5:    dc.w    hpt-l_5
  34. l_6:    dc.w    hxx-l_6
  35.  
  36. #ifdef ZIP
  37.         dc.b    10
  38.         dc.b    0
  39. d_4:    dc.w    _dtype-d_4
  40.         dc.w    0
  41.         dc.w    0
  42. d_5:    dc.w    dpt-d_5
  43. d_6:    dc.w    dxx-d_6
  44.  
  45. #else
  46.     dc.b    4
  47.         dc.b    0
  48. l5:
  49.         dc.w    list1-l5
  50.         dc.w    0
  51. l5a:    
  52.         dc.w    Postit-l5a        ; post proc
  53. l6:
  54.         dc.w    apt-l6
  55. l7:
  56.         dc.w    axx-l7
  57. * -------------------------------------
  58.         dc.b    4
  59.         dc.b    0
  60. l8:
  61.         dc.w    list2-l8
  62.         dc.w    0
  63. l8a:    
  64.     dc.w    Postit-l8a        ; post proc
  65. l9:
  66.         dc.w    bpt-l9
  67. la:
  68.         dc.w    bxx-la
  69. * -------------------------------------
  70. #endif    
  71.     dc.w    -1                          ; end
  72.  
  73. _qlflag:
  74.     dc.w    0
  75. _qlwait:
  76.         dc.w    250
  77. _dtype:
  78.     dc.w    255
  79.     
  80. hpt:    dc.w    10
  81.         dc.b    'Exit Delay'
  82. *                12345678901234567890
  83.         ds.w    0
  84. hxx:    dc.w    0
  85.         dc.w    $ffff
  86.         dc.w    -1
  87. #ifdef  ZIP
  88. dpt:    dc.w    14
  89.         dc.b    'Directory Type'
  90. *                12345678901234567890
  91.         ds.w    0
  92. dxx:    dc.w    3
  93.         dc.w    $ff
  94.         dc.w    -1
  95. #else
  96.  
  97. list1:
  98.         dc.b    0
  99. list2:
  100.         dc.b    0
  101.  
  102. apt:
  103.         dc.w    11
  104.         dc.b    'Unpack Mode'
  105. *                12345678901234567890
  106. .even
  107. axx:    dc.b    0
  108.     dc.b    0
  109.         dc.w    8
  110.         dc.b    'SMS/QDOS'
  111. .even
  112.         dc.b    1
  113.         dc.b    0
  114.         dc.w    7
  115.         dc.b    'Default'
  116. .even
  117.     dc.w    -1
  118. .even
  119. bpt:    
  120.         dc.w    12
  121.         dc.b    'Listing Mode'
  122. *                12345678901234567890
  123. .even
  124. bxx:
  125.         dc.w    0
  126.         dc.w    7
  127.         dc.b    'Default'
  128. .even
  129.         dc.b    2
  130.         dc.b    0
  131.         dc.w    8
  132.         dc.b    'SMS/QDOS'
  133. *                12345678901234567890
  134. .even
  135.      dc.w    -1
  136. Postit:
  137.     lea.l    _qlflag,a0
  138.     move.b  list1,d0
  139.     move.b    d0,(a0)
  140.     move.b    list2,d0
  141.     or.b    d0,(a0)
  142.     moveq    #0,d0
  143.     rts
  144. #endif    
  145.     end
  146.  
  147.  
  148.  
  149.