; ;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 ; ; RT EQU 25 ; 8080 REGISTER NAME PT EQU 26 ; PSEUDO OPCODE TYPE TAREA EQU 2561H ; FREE AREA IN TOKEN MODULE TRAIL EQU '@' ; CHAR. TO REPLACE LAST LETTER OF RESERVED WORDS WITH ; ORG 2444H ; OVERLAY INXH - MOV B,M - RET JMP TAREA ; ORG TAREA ; TYPE IS IN THE ACCUMULATOR CPI RT ; BELOW RT IF ARITHMETIC OPERATOR JC TYPEOK CPI PT ; PSEUDO OP? RNZ ; RETURN WITH NON-ZERO FLAG ; OTHERWISE, PSEUDO-OP OR ARITHMETIC OP TYPEOK: INX H MOV B,M CMP A ; SET ZERO FLAG RET ; ;LOCATION OF RESERVED WORD ; ORG 214AH DB 'I',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 2154H DB 'O',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 2167H DB 'AN',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 2185H DB 'EN',TRAIL ; ; LOCATION OF RESERVED WORD ; ORG 219DH DB 'LO',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 21A3H DB 'MO',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 21AFH DB 'NO',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 21DFH DB 'SE',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 220DH DB 'ELS',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 2215H DB 'HIG',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 2225H DB 'NAM',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 2229H DB 'PAG',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 225CH DB 'LOCA',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 2261H DB 'MACR',TRAIL ; ;LOCATION OF RESERVED WORD ; ORG 226BH DB 'TITL',TRAIL ; ;LOCATION OF RESERVED WORD <PUBLIC> ; ORG 227CH DB 'PUBLI',TRAIL ; ;LOCATION OF SIGNON MESSAGE <CP/M MACRO ASSEM 2.0> ; ORG 2CD3H DB 'CP/M MACRO ASSEM 2.',TRAIL ; ; TYPE OF SOURCE FILE TO EXPECT ; ORG 25DCH DB 'VOC' ; END