home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / asmpatch.aqm / ASMPATCH.ASM
Encoding:
Assembly Source File  |  1985-02-10  |  1.0 KB  |  46 lines
  1. ;
  2. ;    ASM PATCH OF 1/8/79 BY DIGITAL RESEARCH
  3. ;          (Revised 4/20/80)
  4. ;
  5. ;THIS PATCH FIXES CP/M 1.4 ASM.COM TO ALLOW LOWER CASE
  6. ;CHARACTERS IN DB'S
  7. ;
  8. ;05/27/79 FIX BUG WHICH WOULD NOT ALLOW '' TO BE
  9. ;      USED IN STRING FOR SINGLE '.  BY WARD
  10. ;      CHRISTENSEN.
  11. ;
  12. ;06/01/79 CHANGE TO PUSH-POP INSTEAD OF LOADING
  13. ;      CHARACTER DIRECT. BY WARD CHRISTENSEN
  14. ;
  15. ;08/19/79 ADD CONDITIONAL ASSEMBLY FOR CP/M
  16. ;      ON H8 OR TRS-80. BY KEITH PETERSEN, W8SDZ.
  17. ;
  18. STDCPM    EQU    1    ;TRUE IS STANDARD CP/M
  19. ALTCPM    EQU    0    ;TRUE IS H8 OR TRS-80
  20. ;
  21. BASE    SET    0
  22. ;
  23.     IF    ALTCPM
  24. BASE    SET    4200H
  25.     ENDIF        ;ALTCPM
  26. ;
  27. TOKEN    EQU    BASE+185H ;CURRENT SCANNER TOKEN
  28. STRNG    EQU    3    ;STRING CONST. TOKEN
  29. TRANS    EQU    BASE+119EH ;SUBROUTINE TO TRANSLATE CASE
  30. GNCN    EQU    BASE+11ADH ;LOC OF PATCHED CODE
  31. PATCH    EQU    BASE+132DH ;LOC OF FREE AREA
  32. ;
  33.     ORG    GNCN+6    ;REPLACES 'CALL TRANS'
  34.     JMP    PATCH
  35. ;
  36.     ORG    PATCH
  37.     PUSH    PSW
  38.     LDA    TOKEN
  39.     CPI    STRNG
  40.     CNZ    TRANS    ;TRANSLATE IF NOT STRING
  41.     POP    PSW
  42.     RET
  43. ;
  44.     END
  45.  
  46.