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