home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB140 / grlibfor.arj / WRKSTAT.ASM < prev   
Assembly Source File  |  1988-12-11  |  1KB  |  92 lines
  1.     extrn    WS_DATA_:word
  2.     extrn    _CARRY:word
  3.  
  4. @CODE    SEGMENT    BY
  5. TE PUBLIC 'CODE'
  6. LD_FILE    PROC    NEAR
  7. .079C:            ;188
  8.     push    BP
  9.  
  10.     mov    BP,SP
  11.     sub    SP,4
  12.     push    WORD PTR +4[BP]
  13.     xor    AX,AX
  14.  
  15.     push    AX
  16.     push    AX
  17.     mov    AX,15616
  18.     push    AX
  19.     call    
  20. MSDOS
  21.     add    SP,8
  22.     mov    -4[BP],AX
  23.     mov    AX,_CARRY
  24.     or    AX
  25. ,AX
  26.     je    .07C5
  27.     mov    AX,-4[BP]
  28.     mov    SP,BP
  29.     pop    BP
  30.     
  31. ret
  32. .07C5:            ;192
  33.     push    WORD PTR +6[BP]
  34.     push    WORD PTR +8[
  35. BP]
  36.     push    WORD PTR -4[BP]
  37.     mov    AX,16128
  38.     push    AX
  39.     cal
  40. l    MSDOS
  41.     add    SP,8
  42.     mov    -2[BP],AX
  43.     mov    AX,_CARRY
  44.     or    
  45. AX,AX
  46.     je    .07EA
  47.     mov    AX,-2[BP]
  48.     mov    SP,BP
  49.     pop    BP
  50.  
  51.     ret
  52. .07EA:            ;194
  53.     mov    AX,-2[BP]
  54.     cmp    AX,+8[BP]
  55.     jae
  56.     .07F9
  57.     mov    AX,-1
  58.     mov    SP,BP
  59.     pop    BP
  60.     ret
  61. .07F9:            
  62. ;195
  63.     xor    AX,AX
  64.     push    AX
  65.     push    AX
  66.     push    WORD PTR -4[
  67. BP]
  68.     mov    AX,15872
  69.     push    AX
  70.     call    MSDOS
  71.     add    SP,8
  72.  
  73.     mov    -2[BP],AX
  74.     mov    AX,_CARRY
  75.     or    AX,AX
  76.     je    .081C
  77.     
  78. mov    AX,-2[BP]
  79.     mov    SP,BP
  80.     pop    BP
  81.     ret
  82. .081C:            ;197
  83.  
  84.     xor    AX,AX
  85.     mov    SP,BP
  86.     pop    BP
  87.     ret
  88. LD_FILE    ENDP
  89.  
  90.  
  91. 
  92.