Robotron: 2084: Routine at F488

F488: Routine at F488

Used by the routine at F5A0.
F488	LD HL,$5800
F48B	LD C,A
F48C	LD B,$00
F48E	LD E,A
F48F	LD D,$00
F491	SLA E
F493	RL D
F495	SLA E
F497	RL D
F499	SLA E
F49B	RL D
F49D	SLA E
F49F	RL D
F4A1	SLA E
F4A3	RL D
F4A5	ADD HL,DE
F4A6	ADD HL,BC
F4A7	PUSH HL
F4A8	LD A,$20
F4AA	SUB C
F4AB	SUB C
F4AC	LD B,A
F4AD	LD ($C506),A
F4B0	LD A,($C507)
F4B3	LD (HL),A
F4B4	INC HL
F4B5	DJNZ $F4B3
F4B7	POP HL
F4B8	LD DE,$0020
F4BB	ADD HL,DE
F4BC	LD A,$16
F4BE	SUB C
F4BF	SUB C
F4C0	JR Z,$F4E0
F4C2	LD B,A
F4C3	LD A,($C506)
F4C6	DEC A
F4C7	LD E,A
F4C8	LD D,$00
F4CA	LD ($C504),DE
F4CE	LD A,($C507)
F4D1	PUSH HL
F4D2	LD (HL),A
F4D3	LD DE,($C504)
F4D7	ADD HL,DE
F4D8	LD (HL),A
F4D9	POP HL
F4DA	LD DE,$0020
F4DD	ADD HL,DE
F4DE	DJNZ $F4D1
F4E0	LD A,($C506)
F4E3	LD B,A
F4E4	LD A,($C507)
F4E7	LD (HL),A
F4E8	INC HL
F4E9	DJNZ $F4E7
F4EB	RET