LD M8002 SET M8161 MOV H0081 D8120 LDP X0000 ORP X0001 MOV K7 D2 PLS M30 LDP X0002 ORP X0003 ORP X0004 MOV K6 D2 PLS M31 LD M8000 RS D100 D2 D110 K0 LDP X000 INC D0 CMP D0 K5000 M0 AND M0 MOV K5000 D0 LDP X0001 DEC D0 CMP D0 K0 M0 AND M2 RST D0 LD M30 MOV H0001 D100 MOV H0005 D101 MOV H0002 D102 MOV D0 K4M10 MOV K2M10 D103 MOV K2M18 D104 CALL P0
MOV K2M150 D105 MOV K2M158 D106 SET M8122 LDP X002 MOV K3 D3 LDP X003 MOV K5 D3 LDP X004 MOV K8 D3 LD M31 MOV H0001 D100 MOV H0003 D101 MOV H0001 D102 MOD D3 D103 CALL P0 MOV K2M150 D104 MOV K2M158 D105 SET M8122 FEND P0 LD M8000 RST Z MOV HFFFF D150 SUB D2 K2 D4 FOR D4 LD M8000 WXOR D150 D100Z K4M100 MOV K4M100 D150 INC Z FOR K8 LD M8000 MOV D150 K4M100 MPS AND M100 OUT M400 SFTR M150 M100 K16 K1 WXOR K4M100 HA001 D150 MPP ANI M400 SFTR M150 M100 K16 K1 MOV K4M100 D150 NEXT NEXT LD M8000 MOV D150 K4M150 SRET END