.mmregs
	
	.global _tint_isr
	.def    _DCM_flag
	
	.ref   DcSpeed
    .ref   DcSpeedSave
    .ref   DcBase
    .ref   DcBaseSave


	.data
_DCM_flag:   .word 0x0001

	.text
_tint_isr:
		PSHM    AL
		PSHM    AH
		PSHM    AG
		
		RSBX    CPL
		LD      #0,DP
		NOP
		NOP
		
		LD      *(DcSpeed),A
		SUB     #1,A
		STL     A,*(DcSpeed)
		BC      #DC_flag,ANEQ
		ST      #0,*(_DCM_flag)
DC_flag:
		LD      *(DcBase),A
		SUB     #1,A
		STL     A,*(DcBase)
		BC      #tint_ret,ANEQ
		ST      #1,*(_DCM_flag)
		LD      *(DcSpeedSave),A
		STL     A,*(DcSpeed)
		LD      *(DcBaseSave),A
		STL     A,*(DcBase)
tint_ret:
		POPM    AG
		POPM    AH
		POPM    AL
		POPM    ST1
		POPM	ST0
		RETE
		.end