; ;VMAC -- ; MACRO ASSEMBLER "MAC" CHANGES TO DISABLE 8080 OPCODES FOR CROSS-ASSEMBLY ; WORK ; THIS PATCH WAS ORIGINALLY SUPPLIED WITH MY MAC MANUAL -- RLC ; THIS IS TO BE PATCHED INTO MAC USING DDT. AFTER THE PATCH IS COMPLETE, ; PERFORM A "SAVE 46 XMAC.COM" TO CREATE XMAC.COM. ; ; RESERVED WORD PATCHES ADDED BY SHAWN EVERSON 10/3/81 ; ; 0019 = RT EQU 25 ; 8080 REGISTER NAME 001A = PT EQU 26 ; PSEUDO OPCODE TYPE 2561 = TAREA EQU 2561H ; FREE AREA IN TOKEN MODULE 0040 = TRAIL EQU '@' ; CHAR. TO REPLACE LAST LETTER OF RESERVED WORDS WITH ; 2444 ORG 2444H ; OVERLAY INXH - MOV B,M - RET 2444 C36125 JMP TAREA ; 2561 ORG TAREA ; TYPE IS IN THE ACCUMULATOR 2561 FE19 CPI RT ; BELOW RT IF ARITHMETIC OPERATOR 2563 DA6925 JC TYPEOK 2566 FE1A CPI PT ; PSEUDO OP? 2568 C0 RNZ ; RETURN WITH NON-ZERO FLAG ; OTHERWISE, PSEUDO-OP OR ARITHMETIC OP TYPEOK: 2569 23 INX H 256A 46 MOV B,M 256B BF CMP A ; SET ZERO FLAG 256C C9 RET ; ;LOCATION OF RESERVED WORD ; 214A ORG 214AH 214A 4940 DB 'I',TRAIL ; ;LOCATION OF RESERVED WORD ; 2154 ORG 2154H 2154 4F40 DB 'O',TRAIL ; ;LOCATION OF RESERVED WORD ; 2167 ORG 2167H 2167 414E40 DB 'AN',TRAIL ; ;LOCATION OF RESERVED WORD ; 2185 ORG 2185H 2185 454E40 DB 'EN',TRAIL ; ; LOCATION OF RESERVED WORD ; 219D ORG 219DH 219D 4C4F40 DB 'LO',TRAIL ; ;LOCATION OF RESERVED WORD ; 21A3 ORG 21A3H 21A3 4D4F40 DB 'MO',TRAIL ; ;LOCATION OF RESERVED WORD ; 21AF ORG 21AFH 21AF 4E4F40 DB 'NO',TRAIL ; ;LOCATION OF RESERVED WORD ; 21DF ORG 21DFH 21DF 534540 DB 'SE',TRAIL ; ;LOCATION OF RESERVED WORD ; 220D ORG 220DH 220D 454C5340 DB 'ELS',TRAIL ; ;LOCATION OF RESERVED WORD ; 2215 ORG 2215H 2215 48494740 DB 'HIG',TRAIL ; ;LOCATION OF RESERVED WORD ; 2225 ORG 2225H 2225 4E414D40 DB 'NAM',TRAIL ; ;LOCATION OF RESERVED WORD ; 2229 ORG 2229H 2229 50414740 DB 'PAG',TRAIL ; ;LOCATION OF RESERVED WORD ; 225C ORG 225CH 225C 4C4F434140 DB 'LOCA',TRAIL ; ;LOCATION OF RESERVED WORD ; 2261 ORG 2261H 2261 4D41435240 DB 'MACR',TRAIL ; ;LOCATION OF RESERVED WORD ; 226B ORG 226BH 226B 5449544C40 DB 'TITL',TRAIL ; ;LOCATION OF RESERVED WORD <PUBLIC> ; 227C ORG 227CH 227C 5055424C49 DB 'PUBLI',TRAIL ; ;LOCATION OF SIGNON MESSAGE <CP/M MACRO ASSEM 2.0> ; 2CD3 ORG 2CD3H 2CD3 43502F4D20 DB 'CP/M MACRO ASSEM 2.',TRAIL ; ; TYPE OF SOURCE FILE TO EXPECT ; 25DC ORG 25DCH 25DC 564F43 DB 'VOC' ; 25DF END