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 / TERM / CLS.LBR / CLS-ANY.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  1KB  |  42 lines
  1. ;CP/M PROGRAM TO CLEAR SCREEN AND HOME CURSOR (SETUP FOR ^Z)
  2. ;
  3. ;COPYRIGHT (C) 1985 BY ERNEST SPENCER OF JACKSON, MS.
  4. ;
  5. ;*** THIS PROGRAM MAY BE USED FREELY BY THE CP/M USER COMMUNITY FOR
  6. ;NON-COMMERCIAL PURPOSES - ERNEST SPENCER - 06/06/85 ***
  7. ;
  8. ;ASSEMBLE WITH ASM.COM
  9. ;
  10. ;USE WITH ANY CP/M COMPUTER BY CHANGING THE CLEAR EQUATE TO
  11. ;THAT COMPUTER'S CLEAR SCREEN & HOME CURSOR ASCII CHARACTER CODE.
  12. ;
  13. ;RETURNS TO CP/M PROMPT WITHOUT DOING A WARM BOOT.
  14. ;
  15. ;WORKS WITH ANY SIZE CP/M SYSTEM SINCE IT INITIALLY DETERMINES
  16. ;PROMPT AREA OF CCP BY SAVING ITS ADDRESS ON STACK AND
  17. ;THEN RETURNS TO IT WHEN THROUGH INSTEAD OF DOING WARM BOOT.
  18. ;
  19.     ORG    100H    ;BEGINNING OF TPA FOR STANDARD CP/M
  20. ;
  21. CONOUT    EQU    02H    ;SYSTEM CALL TO OUTPUT A CHAR. TO CONSOLE
  22. CLEAR    EQU    026    ;CLEAR SCREEN CHAR. (^Z FOR KAYPRO 4)
  23. ENTRY    EQU    05H    ;CP/M ENTRY POINT
  24. ;
  25. START:    LXI    H,0    ;ZERO HL REGISTER
  26.     DAD    SP    ;GET OLD CP/M CCP PROMPT STACK POINTER
  27.     SHLD    STACK    ;SAVE IT
  28.     LXI    SP,STACK;SET NEW STACK POINTER
  29. ;
  30.     MVI    E,CLEAR    ;LOAD CLEAR SCREEN CHAR. INTO E REG.
  31.     MVI    C,CONOUT;LOAD SYSTEM CALL TO OUTPUT A CHAR.
  32.     CALL    ENTRY    ;CALL CP/M TO OUTPUT CLEAR CODE & CLEAR SCREEN
  33. ;
  34. EXIT:    LHLD    STACK    ;GET OLD CP/M CCP PROMPT STACK
  35.     SPHL        ;RESTORE OLD STACK POINTER
  36.     RET        ;RETURN TO CCP & DO PROMPT W/O WARM BOOT
  37. ;
  38.     DS    2    ;ROOM FOR 1 LEVEL STACK PLUS OLD STACK
  39. STACK    DS    2    ;OLD CP/M STACK SAVED HERE
  40. ;
  41.     END
  42.