home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / UNIFLEX / UNIFLEX / UniFLEX_Std.Utils1.tar.Z / UniFLEX_Std.Utils1.tar / utils1 / unmount < prev    next >
Text File  |  1981-09-01  |  1KB  |  78 lines
  1.  opt pag,nol
  2.  ttl Unmount Utility
  3.  lib sysdef
  4.  opt lis
  5.  pag
  6.  info UniFLEX unmount
  7.  info Version 1.01, Released January 19, 1981
  8.  info Copyright, (C) 1981, by
  9.  info Technical Systems Consultants, Inc.
  10.  info All rights reserved.
  11.  
  12. * program starts here
  13.  
  14.  org 0
  15.  
  16. unm ldd 0,s get arg count
  17.  cmpd #2 only one?
  18.  bne unm2
  19.  ldx 4,s get name pointer
  20.  stx ium2
  21.  sys ind,ium do unmount
  22.  bec unm4 errors?
  23.  cmpb #16 check error type
  24.  beq unm5
  25.  cmpb #17
  26.  beq unm6
  27.  cmpb #15 not block?
  28.  beq unm1
  29.  cmpb #8 no file?
  30.  beq unm1
  31.  pshs d save status
  32.  ldd #1 set file desc
  33.  sys write,pmst,PSZ output error
  34.  puls d
  35.  sys term exit
  36. unm1 pshs d save error
  37.  ldd #1 set file desc
  38.  sys write,bms,BSZ
  39.  puls d get status
  40.  sys term
  41. unm2 pshs d
  42.  ldd #1
  43.  sys write,barg,BAS
  44.  puls d
  45.  sys term
  46. unm4 ldd #0 set ok status
  47.  sys term
  48. unm5 pshs d
  49.  ldd #1
  50.  sys write,bsym,BSS
  51.  puls d
  52.  sys term
  53. unm6 pshs d
  54.  ldd #1
  55.  sys write,nmm,NSZ
  56.  puls d
  57.  sys term
  58.  
  59. bms fcc 'Bad device specified.',$d
  60. BSZ equ *-bms
  61.  
  62. barg fcc 'Argument error.',$d
  63. BAS equ *-barg
  64.  
  65. pmst fcc 'Permission denied.',$d
  66. PSZ equ *-pmst
  67.  
  68. bsym fcc 'Device is busy.',$d
  69. BSS equ *-bsym
  70.  
  71. nmm fcc 'Device not mounted.',$d
  72. NSZ equ *-nmm
  73.  
  74. ium fcb unmnt
  75. ium2 fdb 0
  76.  
  77.  end unm
  78.