COMMON/common/page6.src

39 lines
415 B
Plaintext
Raw Normal View History

2018-08-07 02:14:36 +00:00
#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)
2018-08-08 01:36:06 +00:00
TST(R4)
TST(R2)
TST(R3)
2018-08-07 02:14:36 +00:00
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)