home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol074 / usershow.asm < prev    next >
Assembly Source File  |  1984-04-29  |  1KB  |  49 lines
  1. *********************************************************
  2. *                            *
  3. *      User Number Display in CP/M Prompt        *
  4. *        A Patch for CP/M 2.2            *
  5. *                            *
  6. *********************************************************
  7. ;
  8. ;    Bill Bolton
  9. ;    Software Tools
  10. ;    P.O. Box 80,
  11. ;    Newport Beach,
  12. ;    NSW, 2106
  13. ;    AUSTRALIA
  14. ;
  15. ;    Source Address TCY 396
  16. ;
  17. ;    August 25, 1981
  18. ;
  19. PATCH$AREA    EQU    0F700H        ;Somewhere above bios
  20. CCP        EQU    0CF00H        ;Insert your CCP address here
  21. PATCH1        EQU    CCP+388H
  22. BDOS$CURRENT$DISK    EQU    CCP+1D0H
  23. GET$USER    EQU    CCP+113H
  24. BDOS$CON$OUT    EQU    CCP+08CH
  25. ;
  26. ;
  27.     ORG    PATCH1            ;PATCH THE CCP
  28. ;
  29.     JMP    PATCH$AREA        ;OVERLAYS CALL TO
  30.                     ;BDOS$CURRENT$DISK
  31. ;
  32.     ORG    PATCH$AREA
  33. ;
  34.     CALL    GET$USER
  35.     CPI    10            ;USER NO. > 9?
  36.     JC    FILL1            ;NO
  37.     SUI    10            ;YES, MODULO 10
  38.     PUSH    PSW            ;SAVE REMAINDER FOR LATER
  39.     MVI    A,'1'            ;>10 SO PRINT TENS DIGIT
  40.     CALL    BDOS$CON$OUT
  41.     POP    PSW            ;RECOVER REMAINDER
  42. FILL1:
  43.     ADI    '0'            ;ASCII ADJUST
  44.     CALL    BDOS$CON$OUT        ;DISPLAY IT
  45.     JMP    BDOS$CURRENT$DISK    ;THIS IS WHAT THE JMP TO
  46.                     ;PATCH OVERLAID, BDOS
  47.                     ;PROVIDES THE RETURN
  48.     END
  49.