home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / packet / rli120.ark / USER.MAC < prev    next >
Encoding:
Text File  |  1986-08-12  |  896 b   |  41 lines
  1. ; USER.MAC - 6/13/85 - Skeleton user routine.
  2.  
  3. ; This routine is called every n seconds while the MailBox
  4. ; is in idle mode. n is specified in config.tnc.
  5. ; When the routine is called, character I/O may be directed
  6. ; anywhere. Make sure to direct it where you want with a
  7. ; macro call: TNCA, TNCB, or CONSOLE.
  8. ; A reasonable stack is available. Make sure you balance push/pop.
  9. ; No disk files are open except the mail file.
  10. ; Files can be read / written using OPENR, OPENW, OPENA, Etc.
  11. ; Make sure any files opened are closed before returning.
  12.  
  13.     .z80
  14.     maclib    TNC.LIB
  15.  
  16.     entry user
  17.  
  18.     external    curtime,date,time
  19.  
  20.     asciictl
  21.     tncdefs
  22.  
  23.     dseg
  24. first:    db    true
  25.  
  26. ; Put your data here.
  27.  
  28.     cseg
  29. user:    cmpm    first,true
  30.     mvim    first,false
  31.     jr    nz,usera
  32.  
  33. ; Do initialization here.
  34.  
  35. usera:
  36.  
  37. ; Do whatever it is you do here.
  38.  
  39.     ret
  40.     end
  41.