4004.def

4004 -> Native
CLASS COND
T=1,C=2,Z=4,NT=9,NC=10,NZ=12
CLASS REG4
R0=0,R1=1,R2=2,R3=3,R4=4,R5=5,R6=6,R7=7,R8=8,R9=9,RA=10,RB=11,RC=12,RD=13,RE=14
CLASS REG8
R0R1=0,R2R3=1,R4R5=2,R6R7=3,R8R9=4,RARB=5,RCRD=6,RERF=7
*
ADD	\{REG4}
80|1
ADM
EB
BBL	\N
C0|1
CLB
F0
CLC
F1
CMA
F4
CMC
F3
DAA
FB
DAC
F8
DCL
FD
FIM	\{REG8},\B
20|1<1 \2
FIN	\{REG8}
30|1<1
IAC
F2
INC \{REG4}
60|1
ISZ	\{REG4},\B
70|1 \2
JCN	\{COND},\B
10|1 \2
JIN	\{REG8}
31|1<1
JMS	\W
50|H1 lo(1)
JUN	\W
40|H1 lo(1)
KBP
FC
LD	\{REG4}
A0|1
LDM	\N
D0|1
NOP
00
RAL
F5
RAR
F6
RD0
EC
RD1
ED
RD2
EE
RD3
EF
RDM
E9
RDR
EA
SBM
E8
SRC	\{REG8}
21|1<1
STC
FA
SUB	\{REG4}
90|1
TCC
F7
TCS
F9
WMP
E1
WRM
E0
WR0
E4
WR1
E5
WR2
E6
WR3
E7
WRR
E2
XCH	\{REG4}
B0|1
ORG	\W
\O1
END	\W
\S1
DB	\L
\1
DS	\W
\B1
EQU	\W
\E1
PUBLIC
\P
LIB PROC
\R
LIB ENDP
\Q
PUBLIC EQU
\P\E1
EXTERN
\X
*