subcmd.asm

日立单片机H8S2144例程.包括AD,DA等程序(用于光源)但对于H8S2144使用者来说有很大的帮助.

??ENDBLOCK(317)
?00043:
??CLINE 319
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFA,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFC,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFE,ER0
	PUSH.L	ER0
	XOR.W	R0,R0
	PUSH.W	R0
	JSR	@_check_CH
	ADD.L	#H'0000000E,ER7
	MOV.W	R0,@(-14,ER6)
??CLINE 320
	OR.W	R0,R0
	BEQ	?00044:8
??BEGINBLOCK(320)
??CLINE 321
	JSR	@_rs_returnNG
??CLINE 322
	MOV.W	#H'FFFF,R0
	JMP	@_set_ifab_end
??ENDBLOCK(323)
?00044:
??CLINE 326
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFF4,ER0
	PUSH.L	ER0
	MOV.W	#H'0004,R0
	PUSH.W	R0
	MOV.L	#_g_RsRecv_Bf+11,ER1
	PUSH.L	ER1
	JSR	@_hextobi5
	ADD.L	#H'0000000A,ER7
??CLINE 327
	MOV.W	@(-12,ER6),R0
	MOV.W	R0,@(-8,ER6)
??CLINE 328
	MOV.L	#_g_RsRecv_Bf+10,ER1
	MOV.B	@ER1,R2L
	EXTU.W	R2
	CMP.W	#H'002D,R2
	BNE	?00045:8
??BEGINBLOCK(328)
??CLINE 329
	XOR.W	R0,R0
	MOV.W	@(-8,ER6),R1
	SUB.W	R1,R0
	MOV.W	R0,@(-8,ER6)
??ENDBLOCK(330)
?00045:
??CLINE 331
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFF4,ER0
	PUSH.L	ER0
	MOV.W	#H'0004,R0
	PUSH.W	R0
	MOV.L	#_g_RsRecv_Bf+16,ER1
	PUSH.L	ER1
	JSR	@_hextobi5
	ADD.L	#H'0000000A,ER7
??CLINE 332
	MOV.W	@(-12,ER6),R0
	MOV.W	R0,@(-10,ER6)
??CLINE 333
	MOV.L	#_g_RsRecv_Bf+15,ER1
	MOV.B	@ER1,R2L
	EXTU.W	R2
	CMP.W	#H'002D,R2
	BNE	?00046:8
??BEGINBLOCK(333)
??CLINE 334
	XOR.W	R0,R0
	MOV.W	@(-10,ER6),R1
	SUB.W	R1,R0
	MOV.W	R0,@(-10,ER6)
??ENDBLOCK(335)
?00046:
??CLINE 337
	MOV.W	@(-6,ER6),R0
	MOV.W	#3,R1
	MOV.L	#?00048,ER2
?00195:
	OR.W	R1,R1
	BEQ	?00197:8
	MOV.W	@ER2+,R3
	CMP.W	R3,R0
	BNE	?00196:8
	MOV.L	@ER2,ER3
	JMP	@ER3
?00196:
	ADDS	#4,ER2
	DEC.W	#1,R1
	BRA	?00195:8
?00197:
	MOV.L	@ER2,ER3
	JMP	@ER3

??BEGINBLOCK(337)
?00051:
??CLINE 339
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_CalIfaR1,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@(-8,ER6),R0
	MOV.W	R0,@ER1
??CLINE 340
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_CalIfbR1,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@(-10,ER6),R0
	MOV.W	R0,@ER1
??CLINE 341
	JMP	@?00049
?00052:
??CLINE 343
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_CalIfaR2,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@(-8,ER6),R0
	MOV.W	R0,@ER1
??CLINE 344
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_CalIfbR2,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@(-10,ER6),R0
	MOV.W	R0,@ER1
??CLINE 345
	BRA	?00049:8
?00053:
??CLINE 347
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_CalIfaR3,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@(-8,ER6),R0
	MOV.W	R0,@ER1
??CLINE 348
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_CalIfbR3,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@(-10,ER6),R0
	MOV.W	R0,@ER1
??CLINE 349
	BRA	?00049:8
??ENDBLOCK(350)
?00050:
??CLINE 350
	BRA	?00049:8
?00048:
	DC.W	H'0001
	DC.L	?00051
	DC.W	H'0002
	DC.L	?00052
	DC.W	H'0003
	DC.L	?00053
	DC.L	?00050
?00049:
??CLINE 352
	JSR	@_rs_returnOK
??CLINE 353
	XOR.W	R0,R0
??ENDBLOCK(354)
??CLINE 354
_set_ifab_end:

	MOV.L	ER6,ER7
	POP.L	ER6
	RTS

	segment	TEXT ATR_CODE
public	_set_cwpls
_set_cwpls:
	PUSH.L	ER6
	MOV.L	ER7,ER6
	SUB.L	#12,ER7
                         
??FUNCDEF(???set_cwpls) ??SSHORT
??FUNCEND
??BEGINBLOCK(356)
??VAR ??USHORT ??SYMBOL(???ch) ??OFFSET(-2)
??VAR ??USHORT ??SYMBOL(???pixel) ??OFFSET(-4)
??VAR ??SSHORT ??SYMBOL(???range) ??OFFSET(-6)
??VAR ??SSHORT ??SYMBOL(???dat) ??OFFSET(-8)
??VAR ??SSHORT ??SYMBOL(???data) ??OFFSET(-10)
??VAR ??SSHORT ??SYMBOL(???ret) ??OFFSET(-12)
??CLINE 362
	MOV.W	@_g_RsRecv_CT,R0
	CMP.W	#H'000A,R0
	BEQ	?00054:8
??BEGINBLOCK(362)
??CLINE 363
	JSR	@_rs_returnNG
??CLINE 364
	MOV.W	#H'FFFF,R0
	JMP	@_set_cwpls_end
??ENDBLOCK(365)
?00054:
??CLINE 367
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFA,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFC,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFE,ER0
	PUSH.L	ER0
	XOR.W	R0,R0
	PUSH.W	R0
	JSR	@_check_CH
	ADD.L	#H'0000000E,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 368
	OR.W	R0,R0
	BEQ	?00055:8
??BEGINBLOCK(368)
??CLINE 369
	JSR	@_rs_returnNG
??CLINE 370
	MOV.W	#H'FFFF,R0
	JMP	@_set_cwpls_end
??ENDBLOCK(371)
?00055:
??CLINE 374
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFF6,ER0
	PUSH.L	ER0
	MOV.W	#H'0002,R0
	PUSH.W	R0
	MOV.L	#_g_RsRecv_Bf+8,ER1
	PUSH.L	ER1
	JSR	@_hextobi
	ADD.L	#H'0000000A,ER7
??CLINE 375
	MOV.W	@(-10,ER6),R0
	MOV.W	R0,@(-8,ER6)
??CLINE 377
	MOV.W	@(-2,ER6),R1
	PUSH.W	R1
	JSR	@_select_ch
	ADDS.L	#H'00000002,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 378
	OR.W	R0,R0
	BEQ	?00056:8
??BEGINBLOCK(378)
??CLINE 379
	JSR	@_rs_returnNG
??CLINE 380
	MOV.W	#H'FFFF,R0
	BRA	_set_cwpls_end:8
??ENDBLOCK(381)
?00056:
??CLINE 382
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_CwPulse,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@(-8,ER6),R0
	MOV.W	R0,@ER1
??CLINE 384
	MOV.W	@(-8,ER6),R0
	PUSH.W	R0
	MOV.W	@(-2,ER6),R1
	SUBS.L	#H'00000001,ER1
	EXTU.L	ER1
	SHLL.L	#H'00000002,ER1
	SHLL.L	ER1
	MOV.L	#_g_OnOff,ER2
	ADD.L	ER1,ER2
	MOV.W	@(-4,ER6),R1
	SUBS.L	#H'00000001,ER1
	EXTU.L	ER1
	SHLL.L	ER1
	ADD.L	ER1,ER2
	MOV.W	@ER2,R1
	PUSH.W	R1
	MOV.W	@(-4,ER6),R1
	PUSH.W	R1
	JSR	@_onoff_out
	ADDS.L	#H'00000002,ER7
	ADDS.L	#H'00000004,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 386
	JSR	@_rs_returnOK
??CLINE 387
	XOR.W	R0,R0
??ENDBLOCK(388)
??CLINE 388
_set_cwpls_end:

	MOV.L	ER6,ER7
	POP.L	ER6
	RTS

	segment	TEXT ATR_CODE
public	_set_onoff
_set_onoff:
	PUSH.L	ER6
	MOV.L	ER7,ER6
	SUB.L	#12,ER7
                         
??FUNCDEF(???set_onoff) ??SSHORT
??FUNCEND
??BEGINBLOCK(391)
??VAR ??USHORT ??SYMBOL(???ch) ??OFFSET(-2)
??VAR ??USHORT ??SYMBOL(???pixel) ??OFFSET(-4)
??VAR ??SSHORT ??SYMBOL(???range) ??OFFSET(-6)
??VAR ??SSHORT ??SYMBOL(???dat) ??OFFSET(-8)
??VAR ??SSHORT ??SYMBOL(???data) ??OFFSET(-10)
??VAR ??SSHORT ??SYMBOL(???ret) ??OFFSET(-12)
??CLINE 397
	MOV.W	@_g_RsRecv_CT,R0
	CMP.W	#H'000A,R0
	BEQ	?00057:8
??BEGINBLOCK(397)
??CLINE 398
	JSR	@_rs_returnNG
??CLINE 399
	MOV.W	#H'FFFF,R0
	JMP	@_set_onoff_end
??ENDBLOCK(400)
?00057:
??CLINE 402
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFA,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFC,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFE,ER0
	PUSH.L	ER0
	MOV.W	#H'0001,R0
	PUSH.W	R0
	JSR	@_check_CH
	ADD.L	#H'0000000E,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 403
	OR.W	R0,R0
	BEQ	?00058:8
??BEGINBLOCK(403)
??CLINE 404
	JSR	@_rs_returnNG
??CLINE 405
	MOV.W	#H'FFFF,R0
	JMP	@_set_onoff_end
??ENDBLOCK(406)
?00058:
??CLINE 409
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFF6,ER0
	PUSH.L	ER0
	MOV.W	#H'0002,R0
	PUSH.W	R0
	MOV.L	#_g_RsRecv_Bf+8,ER1
	PUSH.L	ER1
	JSR	@_hextobi
	ADD.L	#H'0000000A,ER7
??CLINE 410
	MOV.W	@(-10,ER6),R0
	MOV.W	R0,@(-8,ER6)
??CLINE 412
	MOV.W	@(-2,ER6),R1
	PUSH.W	R1
	JSR	@_select_ch
	ADDS.L	#H'00000002,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 413
	OR.W	R0,R0
	BEQ	?00059:8
??BEGINBLOCK(413)
??CLINE 414
	JSR	@_rs_returnNG
??CLINE 415
	MOV.W	#H'FFFF,R0
	BRA	_set_onoff_end:8
??ENDBLOCK(416)
?00059:
??CLINE 417
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_OnOff,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@(-8,ER6),R0
	MOV.W	R0,@ER1
??CLINE 419
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	#H'00000002,ER0
	SHLL.L	ER0
	MOV.L	#_g_CwPulse,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-4,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	ADD.L	ER0,ER1
	MOV.W	@ER1,R0
	PUSH.W	R0
	MOV.W	@(-8,ER6),R0
	PUSH.W	R0
	MOV.W	@(-4,ER6),R1
	PUSH.W	R1
	JSR	@_onoff_out
	ADDS.L	#H'00000002,ER7
	ADDS.L	#H'00000004,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 421
	JSR	@_rs_returnOK
??CLINE 422
	XOR.W	R0,R0
??ENDBLOCK(423)
??CLINE 423
_set_onoff_end:

	MOV.L	ER6,ER7
	POP.L	ER6
	RTS

	segment	TEXT ATR_CODE
public	_set_pole
_set_pole:
	PUSH.L	ER6
	MOV.L	ER7,ER6
	SUB.L	#12,ER7
                         
??FUNCDEF(???set_pole) ??SSHORT
??FUNCEND
??BEGINBLOCK(426)
??VAR ??USHORT ??SYMBOL(???ch) ??OFFSET(-2)
??VAR ??USHORT ??SYMBOL(???pixel) ??OFFSET(-4)
??VAR ??SSHORT ??SYMBOL(???range) ??OFFSET(-6)
??VAR ??SSHORT ??SYMBOL(???dat) ??OFFSET(-8)
??VAR ??SSHORT ??SYMBOL(???data) ??OFFSET(-10)
??VAR ??SSHORT ??SYMBOL(???ret) ??OFFSET(-12)
??CLINE 432
	MOV.W	@_g_RsRecv_CT,R0
	CMP.W	#H'0008,R0
	BEQ	?00060:8
??BEGINBLOCK(432)
??CLINE 433
	JSR	@_rs_returnNG
??CLINE 434
	MOV.W	#H'FFFF,R0
	JMP	@_set_pole_end
??ENDBLOCK(435)
?00060:
??CLINE 437
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFA,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFC,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFE,ER0
	PUSH.L	ER0
	MOV.W	#H'0002,R0
	PUSH.W	R0
	JSR	@_check_CH
	ADD.L	#H'0000000E,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 438
	OR.W	R0,R0
	BEQ	?00061:8
??BEGINBLOCK(438)
??CLINE 439
	JSR	@_rs_returnNG
??CLINE 440
	MOV.W	#H'FFFF,R0
	JMP	@_set_pole_end
??ENDBLOCK(441)
?00061:
??CLINE 444
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFF6,ER0
	PUSH.L	ER0
	MOV.W	#H'0002,R0
	PUSH.W	R0
	MOV.L	#_g_RsRecv_Bf+6,ER1
	PUSH.L	ER1
	JSR	@_hextobi
	ADD.L	#H'0000000A,ER7
??CLINE 445
	MOV.W	@(-10,ER6),R0
	MOV.W	R0,@(-8,ER6)
??CLINE 447
	MOV.W	@(-2,ER6),R1
	PUSH.W	R1
	JSR	@_select_ch
	ADDS.L	#H'00000002,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 448
	OR.W	R0,R0
	BEQ	?00062:8
??BEGINBLOCK(448)
??CLINE 449
	JSR	@_rs_returnNG
??CLINE 450
	MOV.W	#H'FFFF,R0
	BRA	_set_pole_end:8
??ENDBLOCK(451)
?00062:
??CLINE 452
	MOV.W	@(-2,ER6),R0
	SUBS.L	#H'00000001,ER0
	EXTU.L	ER0
	SHLL.L	ER0
	MOV.L	#_g_DrivePole,ER1
	ADD.L	ER0,ER1
	MOV.W	@(-8,ER6),R0
	MOV.W	R0,@ER1
??CLINE 454
	MOV.W	@(-8,ER6),R0
	PUSH.W	R0
	MOV.W	@(-2,ER6),R1
	SUBS.L	#H'00000001,ER1
	EXTU.L	ER1
	SHLL.L	ER1
	MOV.L	#_g_Range,ER2
	ADD.L	ER1,ER2
	MOV.W	@ER2,R1
	PUSH.W	R1
	JSR	@_range_out
	ADDS.L	#H'00000004,ER7
	MOV.W	R0,@(-12,ER6)
??CLINE 456
	JSR	@_rs_returnOK
??CLINE 457
	XOR.W	R0,R0
??ENDBLOCK(458)
??CLINE 458
_set_pole_end:

	MOV.L	ER6,ER7
	POP.L	ER6
	RTS

	segment	TEXT ATR_CODE
public	_set_monitor
_set_monitor:
	PUSH.L	ER6
	MOV.L	ER7,ER6
	SUB.L	#12,ER7
                         
??FUNCDEF(???set_monitor) ??SSHORT
??FUNCEND
??BEGINBLOCK(461)
??VAR ??USHORT ??SYMBOL(???ch) ??OFFSET(-2)
??VAR ??USHORT ??SYMBOL(???pixel) ??OFFSET(-4)
??VAR ??USHORT ??SYMBOL(???range) ??OFFSET(-6)
??VAR ??SSHORT ??SYMBOL(???ret) ??OFFSET(-8)
??VAR ??SSHORT ??SYMBOL(???data) ??OFFSET(-10)
??VAR ??SSHORT ??SYMBOL(???dat) ??OFFSET(-12)
??CLINE 465
	MOV.W	@_g_RsRecv_CT,R0
	CMP.W	#H'0008,R0
	BEQ	?00063:8
??BEGINBLOCK(465)
??CLINE 466
	JSR	@_rs_returnNG
??CLINE 467
	MOV.W	#H'FFFF,R0
	JMP	@_set_monitor_end
??ENDBLOCK(468)
?00063:
??CLINE 470
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFA,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFC,ER0
	PUSH.L	ER0
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFFE,ER0
	PUSH.L	ER0
	MOV.W	#H'0002,R0
	PUSH.W	R0
	JSR	@_check_CH
	ADD.L	#H'0000000E,ER7
	MOV.W	R0,@(-8,ER6)
??CLINE 471
	OR.W	R0,R0
	BEQ	?00064:8
??BEGINBLOCK(471)
??CLINE 472
	JSR	@_rs_returnNG
??CLINE 473
	MOV.W	#H'FFFF,R0
	BRA	_set_monitor_end:8
??ENDBLOCK(474)
?00064:
??CLINE 476
	MOV.L	ER6,ER0
	ADD.L	#H'FFFFFFF6,ER0
	PUSH.L	ER0
	MOV.W	#H'0002,R0
	PUSH.W	R0
	MOV.L	#_g_RsRecv_Bf+6,ER1
	PUSH.L	ER1
	JSR	@_hextobi
	ADD.L	#H'0000000A,ER7
??CLINE 477
	MOV.W	@(-10,ER6),R0
	MOV.W	R0,@(-12,ER6)
??CLINE 479
	MOV.W	@(-2,ER6),R1
	PUSH.W	R1
	JSR	@_select_ch
	ADDS.L	#H'00000002,ER7
	MOV.W	R0,@(-8,ER6)
??CLINE 480
	OR.W	R0,R0
	BEQ	?00065:8
??BEGINBLOCK(480)
??CLINE 481
	JSR	@_rs_returnNG
??CLINE 482
	MOV.W	#H'FFFF,R0
	BRA	_set_monitor_end:8
??ENDBLOCK(483)
?00065:
??CLINE 485
	MOV.W	@(-12,ER6),R0
	PUSH.W	R0
	JSR	@_mon_select
	ADDS.L	#H'00000002,ER7
	MOV.W	R0,@(-8,ER6)
??CLINE 487
	JSR	@_rs_returnOK
??CLINE 488
	XOR.W	R0,R0
??ENDBLOCK(489)
??CLINE 489
_set_monitor_end:

	MOV.L	ER6,ER7
	POP.L	ER6
	RTS

	segment	TEXT ATR_CODE
public	_set_e2p
_set_e2p:
                                                                      
??FUNCDEF(???set_e2p) ??SSHORT
??FUNCEND
??BEGINBLOCK(491)
??CLINE 492