home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / 22rsx / byestuff.ark / XMODEM.MAC < prev   
Text File  |  1985-12-18  |  896b  |  57 lines
  1. ; Linkage to RXMD via XMODEM.
  2. ;
  3. ; This program avoids the user learning any new command names,
  4. ; since RXMD provides all the functions of XMODEM.
  5. ;
  6. cr    equ    0dh
  7. lf    equ    0ah
  8. tstr    equ    9
  9. chain    equ    47
  10. ;
  11. boot    equ    0
  12. bdos    equ    boot+5
  13. tbuf    equ    boot+080h
  14. ;
  15.     aseg
  16.     org    0100h
  17.     lxi    sp,stack
  18.     lxi    h,tbuf
  19.     mov    a,m
  20.     inx    h
  21.     add    l
  22.     mov    l,a
  23.     adc    h
  24.     sub    l
  25.     mov    h,a
  26.     mvi    m,0
  27.     xchg
  28.     lxi    h,3
  29.     dad    d
  30.     xchg
  31. move:    mov    a,m;        move command line up to 
  32.     stax    d;        inject "RXMD" real name
  33.     dcx    d
  34.     dcx    h
  35.     mov    a,l
  36.     ani    07fh
  37.     jnz    move
  38.     mvi    m,'R'
  39.     inx    h
  40.     mvi    m,'X'
  41.     inx    h
  42.     mvi    m,'M'
  43.     inx    h
  44.     mvi    m,'D'
  45.     mvi    c,chain;    run the RXMD program
  46.     call    bdos;        should never return
  47.     lxi    d,norsx
  48.     mvi    c,tstr;        if it does BYERSX is not up
  49.     call    bdos
  50.     jmp    boot
  51. ;
  52. norsx:    db    cr,lf,'BYERSX not running, can''t chain$'
  53. ;
  54.     ds    64
  55. stack:
  56.     end
  57. ]╗