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 / SIMTEL / CPMUG / CPMUG035.ARK / CREATE.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  590b  |  51 lines
  1. ; 20 AUG 79. MOVED IT.
  2. ;
  3. ; CREATE AND DELETE - TWO SMALL CPM CALLS.
  4. ;
  5.     ORG    56A0H
  6. BDOS    EQU    5
  7. CREATE:    PUSH    B
  8.     PUSH    D
  9.     PUSH    H
  10.     MVI    C,22
  11.     CALL    BDOS
  12.     POP    H
  13.     POP    D
  14.     POP    B
  15.     RET
  16. ;
  17. DELETE: PUSH    B
  18.     PUSH    D
  19.     PUSH    H
  20.     MVI    C,19
  21.     CALL    BDOS
  22.     POP    H
  23.     POP    D
  24.     POP    B
  25.     RET
  26. ;30 AUG 79 - CORRECT ERROR IN FPOP.
  27. ;
  28. ; FPUSH PUSHES THE CONTENTS OF DE ON THE FELIX STACK.
  29. ;
  30. FSTACK    EQU    112H
  31.     ORG    56BAH
  32. FPUSH:    PUSH    H
  33.     LHLD    FSTACK
  34.     DCX    H
  35.     MOV    M,D
  36.     DCX    H
  37.     MOV    M,E
  38.     SHLD    FSTACK
  39.     POP    H
  40.     RET
  41. ;
  42. FPOP:    PUSH    H
  43.     LHLD    FSTACK
  44.     MOV    E,M
  45.     INX    H
  46.     MOV    D,M
  47.     INX    H
  48.     SHLD    FSTACK
  49.     POP    H
  50.     RET
  51.