; changes to M100 rom for hardware scrolling patch


; this entry corrects the data in "Hayash"
.org	06C39H
	db	00H, 00H



; Proposed replacement code 7467 to 746E

.org	07467H
p3:	LXI H,0F9AAH
	CALL 75A1H
	NOP
	NOP



; Proposed replacement code 74BB to 74EA

; patch number 1
.org	074BBH
p1:	RLC
	MOV C,A
	MVI B,00H
	LXI H,7551H
	DAD B
	MOV C,M
	INX H
	MOV A,M
	PUSH PSW
	LDA 0FFF4H
	RAR
	RAR
	RAR
	LXI H,0F9AAH
	CALL 75A1H
	CALL 753BH
	SHLD 0FFF6H
	POP PSW
	ORA B
	MOV B,A
	POP H
	DCR D
	CALL 74F7H
	INR D
	MVI A,06H
	SUB E
	RZ
	MOV E,A
	PUSH H
	LHLD 0FFF6H


; this is the corrected LCD table  7551 to 75A0
.org	07551H
	db	00H,00H,00H,06H,00H,0CH,00H,12H,00H,18H,00H,1EH,00H,24H,00H,2AH
	db	00H,30H
	db	02H,04H,02H,0AH,02H,10H,02H,16H,02H,1CH,02H,22H,02H,28H,02H,2EH
	db	04H,02H,04H,08H,04H,0EH,04H,14H,04H,1AH,04H,20H,04H,26H,04H,2CH
	db	06H,00H,06H,06H,06H,0CH,06H,12H,06H,18H,06H,1EH,06H,24H,06H,2AH
	db	06H,30H
	db	08H,04H,08H,0AH,08H,10H,08H,16H,08H,1CH,08H,22H

	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	db	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H






; Proposed subroutine at 75A1H to 75B3 19 bytes long
.org	075A1H
p2:	JNC ahead1
	INX H
ahead1:	MOV B,M
	LXI H,7643H
	JNC ahead2
	MVI L,4DH
ahead2:	ADD B
	MVI B,00H
	DAD B
	MOV B,A
	RET