home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol050 / vrmac.prn < prev    next >
Encoding:
Text File  |  1984-04-29  |  4.2 KB  |  134 lines
  1.  
  2.  
  3.                 ;
  4.                 ;VRMAC --
  5.                 ;  MACRO ASSEMBLER "RMAC" CHANGES TO DISABLE 8080 OPCODES FOR CROSS-ASSEMBLY
  6.                 ;    WORK
  7.                 ; THIS PATCH WAS ORIGINALLY SUPPLIED WITH MY MAC MANUAL -- RLC
  8.                 ; MODIFIED FOR RMAC AND RESERVED WORD LIST 10/20/81 SHAWN EVERSON
  9.                 ;
  10.                 ;  THIS IS TO BE PATCHED INTO RMAC USING DDT.  AFTER THE PATCH IS COMPLETE,
  11.                 ;    PERFORM A "SAVE 53 VRMAC.COM" TO CREATE VRMAC.COM.
  12.                 ;
  13.  0019 =         RT    EQU    25    ; 8080 REGISTER NAME
  14.  001A =         PT    EQU    26    ; PSEUDO OPCODE TYPE
  15.  0103 =         TAREA    EQU    103H    ; FREE AREA (REDUNDANT COPYRIGHT NOTICE)
  16.  0040 =         TRAIL    EQU    '@'    ; CHAR. TO REPLACE LAST LETTER OF RESERVED WORDS WITH
  17.                  
  18.                 ;
  19.  2914               ORG    2914H    ; OVERLAY INXH - MOV B,M - RET
  20.  2914 C30301        JMP    TAREA
  21.                  
  22.                 ;
  23.  0103               ORG    TAREA
  24.                  
  25.                 ;  TYPE IS IN THE ACCUMULATOR
  26.  0103 FE19          CPI    RT    ; BELOW RT IF ARITHMETIC OPERATOR
  27.  0105 DA0B01        JC    TYPEOK
  28.  0108 FE1A          CPI    PT    ; PSEUDO OP?
  29.  010A C0            RNZ        ; RETURN WITH NON-ZERO FLAG
  30.                  
  31.                 ;  OTHERWISE, PSEUDO-OP OR ARITHMETIC OP
  32.                 TYPEOK:
  33.  010B 23            INX    H
  34.  010C 46            MOV    B,M
  35.  010D BF            CMP    A    ; SET ZERO FLAG
  36.  010E C9            RET
  37.                 ;
  38.                 ;LOCATION OF RESERVED WORD <IF>
  39.                 ;
  40.  2606               ORG    2606H
  41.  2606 4940          DB    'I',TRAIL
  42.                 ;
  43.                 ;LOCATION OF RESERVED WORD <OR>
  44.                 ;
  45.  2610               ORG    2610H
  46.  2610 4F40          DB    'O',TRAIL
  47.                 ;
  48.                 ;LOCATION OF RESERVED WORD <AND>
  49.                 ;
  50.  2623               ORG    2623H
  51.  2623 414E40        DB    'AN',TRAIL
  52.                 ;
  53.                 ;LOCATION OF RESERVED WORD <END>
  54.                 ;
  55.  2641               ORG    2641H
  56.  2641 454E40        DB    'EN',TRAIL
  57.                 ;
  58.                 ; LOCATION OF RESERVED WORD <LOW>
  59.                 ;
  60.  2659               ORG    2659H
  61.  2659 4C4F40        DB    'LO',TRAIL
  62.                 ;
  63.                 ;LOCATION OF RESERVED WORD <MOD>
  64.                 ;
  65.  265F               ORG    265FH
  66.  265F 4D4F40        DB    'MO',TRAIL
  67.                 ;
  68.                 ;LOCATION OF RESERVED WORD <NOR>
  69.                 ;
  70.  266B               ORG    266BH
  71.  266B 4E4F40        DB    'NO',TRAIL
  72.                 ;
  73.                 ;LOCATION OF RESERVED WORD <SET>
  74.                 ;
  75.  2696               ORG    2696H
  76.  2696 534540        DB    'SE',TRAIL
  77.                 ;
  78.                 ;LOCATION OF RESERVED WORD <ELSE>
  79.                 ;
  80.  26C9               ORG    26C9H
  81.  26C9 454C5340      DB    'ELS',TRAIL
  82.                 ;
  83.                 ;LOCATION OF RESERVED WORD <HIGH>
  84.                 ;
  85.  26D1               ORG    26D1H
  86.  26D1 48494740      DB    'HIG',TRAIL
  87.                 ;
  88.                 ;LOCATION OF RESERVED WORD <NAME>
  89.                 ;
  90.  26E1               ORG    26E1H
  91.  26E1 4E414D40      DB    'NAM',TRAIL
  92.                 ;
  93.                 ;LOCATION OF RESERVED WORD <PAGE>
  94.                 ;
  95.  26E5               ORG    26E5H
  96.  26E5 50414740      DB    'PAG',TRAIL
  97.                 ;
  98.                 ;LOCATION OF RESERVED WORD <LOCAL>
  99.                 ;
  100.  2718               ORG    2718H
  101.  2718 4C4F434140    DB    'LOCA',TRAIL
  102.                 ;
  103.                 ;LOCATION OF RESERVED WORD <MACRO>
  104.                 ;
  105.  271D               ORG    271DH
  106.  271D 4D41435240    DB    'MACR',TRAIL
  107.                 ;
  108.                 ;LOCATION OF RESERVED WORD <TITLE>
  109.                 ;
  110.  2727               ORG    2727H
  111.  2727 5449544C40    DB    'TITL',TRAIL
  112.                 ;
  113.                 ;LOCATION OF RESERVED WORD <COMMON>
  114.                 ;
  115.  272C               ORG    272CH
  116.  272C 434F4D4D4F    DB    'COMMO',TRAIL
  117.                 ;
  118.                 ;LOCATION OF RESERVED WORD <PUBLIC>
  119.                 ;
  120.  273E               ORG    273EH
  121.  273E 5055424C49    DB    'PUBLI',TRAIL
  122.                 ;
  123.                 ;LOCATION OF SIGNON MESSAGE <CP/M MACRO ASSEM 2.0>
  124.                 ;
  125.  319C               ORG    319CH
  126.  319C 43502F4D20    DB    'CP/M RMAC ASSEM 1.',TRAIL
  127.                 ;
  128.                 ; TYPE OF SOURCE FILE TO EXPECT
  129.                 ;
  130.  2A4E               ORG    2A4EH
  131.  2A4E 564F43        DB    'VOC'
  132.                 ;
  133.  2A51               END
  134.