Micropower

0DB0	5D	2290	DONESP	LD E, L	; FIRST DIGIT
0DB1	7B	2300	OUTPUT	LD A, E	; LOAD EACH DIGIT
0DB2	FE0A	2310		CP £0A	; COMPARE WITH TEN
0DB4	D1	2320		POP DE	; FOLLOWING DIGIT
0DB5	C8	2330		RET Z	; RETURN TO MAIN PROG.
0DB6	C630	2340		ADD A, £30	; DECIMAL TO ASCII
0DB8	F7	2350		RST £30	; OUTPUT DIGIT
0DB9	C3B10D	2360		JP OUTPUT
		2370	; DIVIDE SUBROUTINE
0DBC	E5	2380	DIVIDE	PUSH HL	; DIVIDE HL BY DE
0DBD	6C	2390		LD L, H	; PUTTING RESULT N BC
0DBE	2600	2400		LD H, 0	; AND REMAINDER IN HL
0DC0	CDC70D	2410		CALL DIVLOP
0DC3	41	2420		LD B, C
0DC4	7D	2430		LD A, L
0DC5	E1	2440		POP HL
0DC6	67	2450		LD H, A
0DC7	0EFF	2460	DIVLOP	LD C, £FF
0DC9	0C	2470	DIVADD	INC C
0DCA	CDD20D	2480		CALL DIVSUB
0DCD	D2C90D	2490		JP NC, DIVADD
0DD0	19	2500		ADD HL, DE	; ADD TEN IF CARRY
0DD1	C9	2510		RET
0DD2	7D	2520	DIVSUB	LD A, L	; LEAST SIG. BYTE
0DD3	93	2530		SUB E	; SUBTRACT TEN
0DD4	6F	2540		LD L, A
0DD5	7C	2550		LD A, H	; MOST SIG. BYTE
0DD6	9A	2560		SBC A, D	; SUB 0 PLUS CARRY
0DD7	67	2570		LD H, A
0DD8	C9	2580		RET
		2590	;
		2600	; CONVERSION TABLE TRS-80 THEN NASCOM
		2610	;
0DD9		2620	TABLE	EQU £0DD9
		2630	;
		2640	; HEX DUMP OF TABLE

0DD9

0DE9

0DF9

0E09

0E19

0E29

0E39

0E49

0E59

Micro­power