home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBODSG / RTDS14.LBR / LOGOP.MAC < prev    next >
Text File  |  2000-06-30  |  768b  |  41 lines
  1. ; LOGOP - log in the sysop
  2. ; this should be a coldstart file for the slave the sysop
  3. ; uses as his local console IF it is to be autologged.
  4. ;
  5. .z80
  6. ;
  7. tdos    equ    50h
  8. ;
  9.     cseg
  10. ;
  11. ; put info away (store login time in DRI format and acl)
  12. ; entered with HL=access level
  13. ;
  14. logop:    ld    sp,stack
  15.     ld    de,80h        ;set DMA address to 80H
  16.     ld    c,26
  17.     call    5
  18.     ld    de,82h
  19.     ld    c,105        ;get current time
  20.     call    5
  21.     ld    (86h),a
  22.     ld    a,9        ;sysop gets ACL=9
  23.     ld    (80h),a
  24.     ld    a,77h        ;flag byte
  25.     ld    (81h),a
  26.     ld    bc,16        ;size of name field
  27.     ld    de,90h        ;dest
  28.     ld    hl,sname    ;orig
  29.     ldir            ;move
  30.     xor    a
  31.     ld    (100h-65),a    ;reset twix flag
  32.     ld    bc,41        ;execute save parameter call
  33.     ld    h,90h
  34.     call    tdos
  35.     rst    0
  36. ;
  37. sname:    'SYSOP',0,0,0,0,0,0,0,0,0,0,0
  38.     ds    80
  39. stack    equ    $
  40.     end
  41. ⌠≥╖╩┬▀=