COMMON/common/appl.src

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

	* = $300		; any address outside of page zero is okay because all code is relocatable

RCD(DEMO)

	CMN
	SET(R0, 9.4662)
	SET(R1, SQRT2)
	LDI(R7, R1)
	MUL(R7, R7, R7)
	PSH(R0)
	BRS(FACTORIAL)
	POP(R4)
	SET(R5, E)
	LDI(R6, R5)
	SET(R1, ZER)
	INR(R1)
	SVI(R1, R6)
	LDI(R0, R1)
	ESC
	BRK
	
BGN(FACTORIAL)

	POP(R1)
	SET(R2, 1)
	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)

RDT(_)

	; preset constants
	DEF(PI, 3.14159)
	DEF(E, 2.71828)
	DEF(SQRT2, 1.41421)

	; working space
	RES(2)

END(_)
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
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00			`* = $300 ; any address outside of page zero is okay because all code is relocatable`
Add files via upload 2018-08-07 02:14:36 +00:00
Simplifying code section 2021-07-08 01:19:07 +00:00			`RCD(DEMO)`
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00
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)`
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00			`SET(R1, SQRT2)`
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 BRS and RTN instructions. 2018-09-18 00:35:19 +00:00			`PSH(R0)`
			`BRS(FACTORIAL)`
			`POP(R4)`
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00			`SET(R5, E)`
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)`
Simplifying code section 2021-07-08 01:19:07 +00:00			`SET(R1, ZER)`
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00			`INR(R1)`
			`SVI(R1, R6)`
			`LDI(R0, R1)`
Add files via upload 2018-08-07 02:14:36 +00:00			`ESC`
			`BRK`
Simplifying code section 2021-07-08 01:19:07 +00:00
			`BGN(FACTORIAL)`
Add files via upload 2018-08-07 02:14:36 +00:00
Added BRS and RTN instructions. 2018-09-18 00:35:19 +00:00			`POP(R1)`
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00			`SET(R2, 1)`
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`
Simplifying code section 2021-07-08 01:19:07 +00:00
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
Simplifying code section 2021-07-08 01:19:07 +00:00			`RDT(_)`
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00
			`; preset constants`
Simplifying code section 2021-07-08 01:19:07 +00:00			`DEF(PI, 3.14159)`
			`DEF(E, 2.71828)`
			`DEF(SQRT2, 1.41421)`
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00
			`; working space`
Simplifying code section 2021-07-08 01:19:07 +00:00			`RES(2)`
Added access of DATA section for LDI and SVI. 2019-07-07 17:25:47 +00:00
			`END(_)`