mirror of
https://github.com/Russell-S-Harper/COMMON.git
synced 2024-11-28 05:51:09 +00:00
36 lines
388 B
Plaintext
36 lines
388 B
Plaintext
|
#include "rom.h"
|
||
|
|
#include "macros.h"
|
||
|
|
|
||
|
|
* = $600
|
||
|
|
|
||
|
|
HDR(DEMO)
|
||
|
|
CMN
|
||
|
|
SET(R0, +1048575.999)
|
||
|
|
SET(R1, -1048575.999)
|
||
|
|
SET(R2, 0.0)
|
||
|
|
SET(R3, 0.0)
|
||
|
|
INR(R0)
|
||
|
|
DCR(R1)
|
||
|
|
INR(R2)
|
||
|
|
DCR(R3)
|
||
|
|
INR(R0)
|
||
|
|
DCR(R1)
|
||
|
|
ESC
|
||
|
|
BRK
|
||
|
|
|
||
|
|
BGN(FACTORIAL)
|
||
|
|
SET(R1, $10.4456)
|
||
|
|
SET(R2, 1)
|
||
|
|
HEX(R1)
|
||
|
|
MOD(R3, R1, R2)
|
||
|
|
SUB(R1, R1, R3)
|
||
|
|
_1 TST(R1)
|
||
|
|
BRZ(_2)
|
||
|
|
MUL(R2, R2, R1)
|
||
|
|
DEC(R1)
|
||
|
|
BRA(_1)
|
||
|
|
_2 EXT(S0)
|
||
|
|
RTN
|
||
|
|
END(FACTORIAL)
|
||
|
|
|
||
|
|
END(DEMO)
|