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 / sleep < prev    next >
Text File  |  1981-09-01  |  291b  |  29 lines
  1.  opt pag,nol
  2.  ttl Sleep utility
  3.  lib sysdef
  4.  opt lis
  5.  pag
  6.  
  7.  org 0
  8.  
  9. slp ldd 0,s
  10.  cmpd #1
  11.  bls slp2
  12.  sys cpint,10,wkup
  13.  ldx 4,s
  14.  bsr decvt convert to binary
  15.  sys alarm
  16.  sys stop
  17. slp2 ldd #$ff
  18.  sys term
  19.  
  20. wkup ldd #0
  21.  sys term
  22.  
  23.  lib /source/misc/decvt
  24.  
  25. msg fcc 'ALARM!'
  26. SIZE equ *-msg
  27.  
  28.  end slp
  29.