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 / VRMAC.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  2KB  |  135 lines
  1. ;
  2. ;VRMAC --
  3. ;  MACRO ASSEMBLER "RMAC" CHANGES TO DISABLE 8080 OPCODES FOR CROSS-ASSEMBLY
  4. ;    WORK
  5. ; THIS PATCH WAS ORIGINALLY SUPPLIED WITH MY MAC MANUAL -- RLC
  6. ; MODIFIED FOR RMAC AND RESERVED WORD LIST 10/20/81 SHAWN EVERSON
  7. ;
  8. ;  THIS IS TO BE PATCHED INTO RMAC USING DDT.  AFTER THE PATCH IS COMPLETE,
  9. ;    PERFORM A "SAVE 53 VRMAC.COM" TO CREATE VRMAC.COM.
  10. ;
  11. RT    EQU    25    ; 8080 REGISTER NAME
  12. PT    EQU    26    ; PSEUDO OPCODE TYPE
  13. TAREA    EQU    103H    ; FREE AREA (REDUNDANT COPYRIGHT NOTICE)
  14. TRAIL    EQU    '@'    ; CHAR. TO REPLACE LAST LETTER OF RESERVED WORDS WITH
  15.  
  16. ;
  17.     ORG    2914H    ; OVERLAY INXH - MOV B,M - RET
  18.     JMP    TAREA
  19.  
  20. ;
  21.     ORG    TAREA
  22.  
  23. ;  TYPE IS IN THE ACCUMULATOR
  24.     CPI    RT    ; BELOW RT IF ARITHMETIC OPERATOR
  25.     JC    TYPEOK
  26.     CPI    PT    ; PSEUDO OP?
  27.     RNZ        ; RETURN WITH NON-ZERO FLAG
  28.  
  29. ;  OTHERWISE, PSEUDO-OP OR ARITHMETIC OP
  30. TYPEOK:
  31.     INX    H
  32.     MOV    B,M
  33.     CMP    A    ; SET ZERO FLAG
  34.     RET
  35. ;
  36. ;LOCATION OF RESERVED WORD <IF>
  37. ;
  38.     ORG    2606H
  39.     DB    'I',TRAIL
  40. ;
  41. ;LOCATION OF RESERVED WORD <OR>
  42. ;
  43.     ORG    2610H
  44.     DB    'O',TRAIL
  45. ;
  46. ;LOCATION OF RESERVED WORD <AND>
  47. ;
  48.     ORG    2623H
  49.     DB    'AN',TRAIL
  50. ;
  51. ;LOCATION OF RESERVED WORD <END>
  52. ;
  53.     ORG    2641H
  54.     DB    'EN',TRAIL
  55. ;
  56. ; LOCATION OF RESERVED WORD <LOW>
  57. ;
  58.     ORG    2659H
  59.     DB    'LO',TRAIL
  60. ;
  61. ;LOCATION OF RESERVED WORD <MOD>
  62. ;
  63.     ORG    265FH
  64.     DB    'MO',TRAIL
  65. ;
  66. ;LOCATION OF RESERVED WORD <NOR>
  67. ;
  68.     ORG    266BH
  69.     DB    'NO',TRAIL
  70. ;
  71. ;LOCATION OF RESERVED WORD <SET>
  72. ;
  73.     ORG    2696H
  74.     DB    'SE',TRAIL
  75. ;
  76. ;LOCATION OF RESERVED WORD <ELSE>
  77. ;
  78.     ORG    26C9H
  79.     DB    'ELS',TRAIL
  80. ;
  81. ;LOCATION OF RESERVED WORD <HIGH>
  82. ;
  83.     ORG    26D1H
  84.     DB    'HIG',TRAIL
  85. ;
  86. ;LOCATION OF RESERVED WORD <NAME>
  87. ;
  88.     ORG    26E1H
  89.     DB    'NAM',TRAIL
  90. ;
  91. ;LOCATION OF RESERVED WORD <PAGE>
  92. ;
  93.     ORG    26E5H
  94.     DB    'PAG',TRAIL
  95. ;
  96. ;LOCATION OF RESERVED WORD <LOCAL>
  97. ;
  98.     ORG    2718H
  99.     DB    'LOCA',TRAIL
  100. ;
  101. ;LOCATION OF RESERVED WORD <MACRO>
  102. ;
  103.     ORG    271DH
  104.     DB    'MACR',TRAIL
  105. ;
  106. ;LOCATION OF RESERVED WORD <TITLE>
  107. ;
  108.     ORG    2727H
  109.     DB    'TITL',TRAIL
  110. ;
  111. ;LOCATION OF RESERVED WORD <COMMON>
  112. ;
  113.     ORG    272CH
  114.     DB    'COMMO',TRAIL
  115. ;
  116. ;LOCATION OF RESERVED WORD <PUBLIC>
  117. ;
  118.     ORG    273EH
  119.     DB    'PUBLI',TRAIL
  120. ;
  121. ;LOCATION OF SIGNON MESSAGE <CP/M MACRO ASSEM 2.0>
  122. ;
  123.     ORG    319CH
  124.     DB    'CP/M RMAC ASSEM 1.',TRAIL
  125. ;
  126. ; TYPE OF SOURCE FILE TO EXPECT
  127. ;
  128.     ORG    2A4EH
  129.     DB    'VOC'
  130. ;
  131.     END
  132.  
  133.  
  134.  
  135.