home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol089 / scodend.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  571 b   |  30 lines
  1. ;
  2. ; SYSLIB Module Name:  SCODEN
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    CODEND
  8. ; Module External References:
  9. ;    None
  10. ;
  11.  
  12. ;
  13. ;  This module returns the address of the last element of code in
  14. ;  in the user's object program.  This address should correspond to
  15. ;  the first available block for scratch buffer area.
  16. ;
  17. ;  Input Parameters:  None
  18. ;  Output Parameters:  HL = Address of next page
  19. ;
  20.  
  21. CODEND::
  22.     LXI    H,ENDALL    ; RETURN NEXT PAGE
  23.     INR    H
  24.     MVI    L,0
  25.     RET
  26. ENDALL:
  27.     DB    0
  28.  
  29.     END
  30.