LD M8002 
SET M8161
MOV HC97 D8120
LD M8000
RS D100 D99 D50 K30
LDI M8122
AND M24
CALLP P4
MOV K10 D99
SET M8122
RST M24
P4
LD M8000
MOV H1  D100
MOV H30 D101
MOV H30 D102
MOV H31 D103
MOV H2  D104
MOV H38 D105
MOV H31 D106
MOV H3  D107
MOV H46 D108
MOV H46 D109
SRET