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 / PROGRAMS / VOICE / VMAC.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  2KB  |  127 lines
  1. ;
  2. ;VMAC --
  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. ; RESERVED WORD PATCHES ADDED BY SHAWN EVERSON  10/3/81
  10. ;
  11. ;
  12. RT    EQU    25    ; 8080 REGISTER NAME
  13. PT    EQU    26    ; PSEUDO OPCODE TYPE
  14. TAREA    EQU    2561H    ; FREE AREA IN TOKEN MODULE
  15. TRAIL    EQU    '@'    ; CHAR. TO REPLACE LAST LETTER OF RESERVED WORDS WITH
  16.  
  17. ;
  18.     ORG    2444H    ; OVERLAY INXH - MOV B,M - RET
  19.     JMP    TAREA
  20.  
  21. ;
  22.     ORG    TAREA
  23.  
  24. ;  TYPE IS IN THE ACCUMULATOR
  25.     CPI    RT    ; BELOW RT IF ARITHMETIC OPERATOR
  26.     JC    TYPEOK
  27.     CPI    PT    ; PSEUDO OP?
  28.     RNZ        ; RETURN WITH NON-ZERO FLAG
  29.  
  30. ;  OTHERWISE, PSEUDO-OP OR ARITHMETIC OP
  31. TYPEOK:
  32.     INX    H
  33.     MOV    B,M
  34.     CMP    A    ; SET ZERO FLAG
  35.     RET
  36. ;
  37. ;LOCATION OF RESERVED WORD <IF>
  38. ;
  39.     ORG    214AH
  40.     DB    'I',TRAIL
  41. ;
  42. ;LOCATION OF RESERVED WORD <OR>
  43. ;
  44.     ORG    2154H
  45.     DB    'O',TRAIL
  46. ;
  47. ;LOCATION OF RESERVED WORD <AND>
  48. ;
  49.     ORG    2167H
  50.     DB    'AN',TRAIL
  51. ;
  52. ;LOCATION OF RESERVED WORD <END>
  53. ;
  54.     ORG    2185H
  55.     DB    'EN',TRAIL
  56. ;
  57. ; LOCATION OF RESERVED WORD <LOW>
  58. ;
  59.     ORG    219DH
  60.     DB    'LO',TRAIL
  61. ;
  62. ;LOCATION OF RESERVED WORD <MOD>
  63. ;
  64.     ORG    21A3H
  65.     DB    'MO',TRAIL
  66. ;
  67. ;LOCATION OF RESERVED WORD <NOR>
  68. ;
  69.     ORG    21AFH
  70.     DB    'NO',TRAIL
  71. ;
  72. ;LOCATION OF RESERVED WORD <SET>
  73. ;
  74.     ORG    21DFH
  75.     DB    'SE',TRAIL
  76. ;
  77. ;LOCATION OF RESERVED WORD <ELSE>
  78. ;
  79.     ORG    220DH
  80.     DB    'ELS',TRAIL
  81. ;
  82. ;LOCATION OF RESERVED WORD <HIGH>
  83. ;
  84.     ORG    2215H
  85.     DB    'HIG',TRAIL
  86. ;
  87. ;LOCATION OF RESERVED WORD <NAME>
  88. ;
  89.     ORG    2225H
  90.     DB    'NAM',TRAIL
  91. ;
  92. ;LOCATION OF RESERVED WORD <PAGE>
  93. ;
  94.     ORG    2229H
  95.     DB    'PAG',TRAIL
  96. ;
  97. ;LOCATION OF RESERVED WORD <LOCAL>
  98. ;
  99.     ORG    225CH
  100.     DB    'LOCA',TRAIL
  101. ;
  102. ;LOCATION OF RESERVED WORD <MACRO>
  103. ;
  104.     ORG    2261H
  105.     DB    'MACR',TRAIL
  106. ;
  107. ;LOCATION OF RESERVED WORD <TITLE>
  108. ;
  109.     ORG    226BH
  110.     DB    'TITL',TRAIL
  111. ;
  112. ;LOCATION OF RESERVED WORD <PUBLIC>
  113. ;
  114.     ORG    227CH
  115.     DB    'PUBLI',TRAIL
  116. ;
  117. ;LOCATION OF SIGNON MESSAGE <CP/M MACRO ASSEM 2.0>
  118. ;
  119.     ORG    2CD3H
  120.     DB    'CP/M MACRO ASSEM 2.',TRAIL
  121. ;
  122. ; TYPE OF SOURCE FILE TO EXPECT
  123. ;
  124.     ORG    25DCH
  125.     DB    'VOC'
  126. ;
  127.     END