36 lines
373 B
Plaintext
36 lines
373 B
Plaintext
ENTER 0, 0
|
|
INVOKE Ackermann, m, n
|
|
LEAVE
|
|
RET
|
|
|
|
@Ackermann
|
|
ENTER 0, 0
|
|
|
|
.IF DWORD PTR [m] .THEN
|
|
JMP @F
|
|
.ENDIF
|
|
MOV EAX, n
|
|
INC EAX
|
|
JMP xit
|
|
|
|
@@
|
|
.IF DWORD PTR [n] .THEN
|
|
JMP @F
|
|
.ENDIF
|
|
MOV EAX, m
|
|
DEC EAX
|
|
INVOKE Ackermann, EAX, 1
|
|
JMP xit
|
|
|
|
@@
|
|
MOV EAX, n
|
|
DEC EAX
|
|
INVOKE Ackermann, m, EAX
|
|
MOV ECX, m
|
|
DEC ECX
|
|
INVOKE Ackermann, ECX, EAX
|
|
|
|
@xit
|
|
LEAVE
|
|
RET 8
|