COMMON/common/page6.src

#include "rom.h"
#include "macros.h"
#include "globals.h"

	* = $1000	; any address outside of page zero is okay

CODE(DEMO)
START
	CMN
	SET(R0, 9.4662)
	SET(R1, 2)
	LDI(R7, R1)
	MUL(R7, R7, R7)
	SVI(R1, R0)
	PSH(R0)
	BRS(FACTORIAL)
	POP(R4)
	SET(R5, 1)
	LDI(R6, R5)
	ESC
	BRK

BEGIN(FACTORIAL)
	POP(R1)
	SET(R2, 3)
	MOD(R3, R1, R2)
	SUB(R1, R1, R3)
_1	TST(R1)
	BRZ(_2)
	MUL(R2, R2, R1)
	DCR(R1)
	BRA(_1)
_2	PSH(R2)
	RTN
END(FACTORIAL)

END(DEMO)

DATA(WORKING)
PI	VALUE(3.14159)
E	VALUE(2.71828)
SQRT2	VALUE(1.41421)
ZERO	RESERVE(2)
END(WORKING)
Add files via upload 2018-08-07 02:14:36 +00:00			`#include "rom.h"`
			`#include "macros.h"`
Added code for LDD. Removed some hard coded constants. 2018-09-08 15:00:19 +00:00			`#include "globals.h"`
Add files via upload 2018-08-07 02:14:36 +00:00
Cleaning up sections. 2019-04-30 21:21:49 +00:00			`* = $1000 ; any address outside of page zero is okay`
Add files via upload 2018-08-07 02:14:36 +00:00
Cleaning up sections. 2019-04-30 21:21:49 +00:00			`CODE(DEMO)`
			`START`
Add files via upload 2018-08-07 02:14:36 +00:00			`CMN`
Added BRS and RTN instructions. 2018-09-18 00:35:19 +00:00			`SET(R0, 9.4662)`
Cleaning up sections. 2019-04-30 21:21:49 +00:00			`SET(R1, 2)`
Adding handling for different section types. 2019-04-30 01:32:06 +00:00			`LDI(R7, R1)`
Cleaning up sections. 2019-04-30 21:21:49 +00:00			`MUL(R7, R7, R7)`
Added CODE and DATA type headers, and using offsets for LDI and SVI. Not bothering with multitasking and context switching for now. 2019-04-27 00:37:50 +00:00			`SVI(R1, R0)`
Added BRS and RTN instructions. 2018-09-18 00:35:19 +00:00			`PSH(R0)`
			`BRS(FACTORIAL)`
			`POP(R4)`
Adding handling for different section types. 2019-04-30 01:32:06 +00:00			`SET(R5, 1)`
Added CODE and DATA type headers, and using offsets for LDI and SVI. Not bothering with multitasking and context switching for now. 2019-04-27 00:37:50 +00:00			`LDI(R6, R5)`
Add files via upload 2018-08-07 02:14:36 +00:00			`ESC`
			`BRK`

Cleaning up sections. 2019-04-30 21:21:49 +00:00			`BEGIN(FACTORIAL)`
Added BRS and RTN instructions. 2018-09-18 00:35:19 +00:00			`POP(R1)`
Cleaning up sections. 2019-04-30 21:21:49 +00:00			`SET(R2, 3)`
Add files via upload 2018-08-07 02:14:36 +00:00			`MOD(R3, R1, R2)`
			`SUB(R1, R1, R3)`
			`_1 TST(R1)`
			`BRZ(_2)`
			`MUL(R2, R2, R1)`
Replacing DEC and HEX with NEG and INV. 2018-09-01 14:40:57 +00:00			`DCR(R1)`
Add files via upload 2018-08-07 02:14:36 +00:00			`BRA(_1)`
Added BRS and RTN instructions. 2018-09-18 00:35:19 +00:00			`_2 PSH(R2)`
			`RTN`
Add files via upload 2018-08-07 02:14:36 +00:00			`END(FACTORIAL)`

Adding EOL to files. 2018-08-14 01:23:05 +00:00			`END(DEMO)`
Adding SVD. 2018-09-11 23:26:08 +00:00
Cleaning up sections. 2019-04-30 21:21:49 +00:00			`DATA(WORKING)`
			`PI VALUE(3.14159)`
			`E VALUE(2.71828)`
			`SQRT2 VALUE(1.41421)`
			`ZERO RESERVE(2)`
Added CODE and DATA type headers, and using offsets for LDI and SVI. Not bothering with multitasking and context switching for now. 2019-04-27 00:37:50 +00:00			`END(WORKING)`