home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / maclib / xmac.asm < prev    next >
Encoding:
Assembly Source File  |  1983-09-09  |  714 b   |  35 lines
  1. ;
  2. ;XMAC --
  3. ;  MACRO ASSEMBLER "MAC" CHANGES TO DISABLE 8080 OPCODES FOR CROSS-ASSEMBLY
  4. ;    WORK
  5. ;  THIS PATCH WAS ORIGINALLY SUPPLIED WITH MY MAC MANUAL -- RLC
  6. ;  THIS IS TO BE PATCHED INTO MAC USING DDT.  AFTER THE PATCH IS COMPLETE,
  7. ;    PERFORM A "SAVE 46 XMAC.COM" TO CREATE XMAC.COM.
  8. ;
  9.  
  10. RT    EQU    25    ; 8080 REGISTER NAME
  11. PT    EQU    26    ; PSEUDO OPCODE TYPE
  12. TAREA    EQU    2561H    ; FREE AREA IN TOKEN MODULE
  13.  
  14. ;
  15.     ORG    2444H    ; OVERLAY INXH - MOV B,M - RET
  16.     JMP    TAREA
  17.  
  18. ;
  19.     ORG    TAREA
  20.  
  21. ;  TYPE IS IN THE ACCUMULATOR
  22.     CPI    RT    ; BELOW RT IF ARITHMETIC OPERATOR
  23.     JC    TYPEOK
  24.     CPI    PT    ; PSEUDO OP?
  25.     RNZ        ; RETURN WITH NON-ZERO FLAG
  26.  
  27. ;  OTHERWISE, PSEUDO-OP OR ARITHMETIC OP
  28. TYPEOK:
  29.     INX    H
  30.     MOV    B,M
  31.     CMP    A    ; SET ZERO FLAG
  32.     RET
  33.  
  34.     END
  35.