adj.asm

完整的方案

MainAdjust:
MainAdjust0:
         CALL ClearWatchDog
         R1=[_ErrType]
         JE MainAdjust1
         NOP
         NOP
         NOP
         PC=DealSysError
MainAdjust1:
         CALL ComRx
//         R1=[_SysFlagA]
//         TEST R1, SysErrBit
//         JE   MainAdjust2
//         R1=[_ErrType]
//         PC=DealSysError
MainAdjust2:
         R1=[_SysFlagA]
         TEST R1, KeyBit
         JE  MainAdjust3
         CALL EnUart
         CALL TxChg
         R1='K'
         CALL TxByte
         R1='e'
         CALL TxByte
         R1='y'
         CALL TxByte
         CALL DiUart
         R1&=KeyBit_
         R1&=HadDealBit_
         [_SysFlagA]=R1
         CALL SoundStop
MainAdjust3:
         R1=[_SysFlagA]
         TEST R1, CoordBit
         JE MainAdjust4
         R1&=CoordBit_
         [_SysFlagA]=R1
         TEST R1, HadDealBit
         JNE MainAdjust4
         R1|=HadDealBit
         [_SysFlagA]=R1
         CALL PrintAdjResult
         R1=[_AdjN]
         CMP R1, [_CommBuf+RAdjN]
         JE MainAdjust3_
         R1=ErrRxErr
         NOP
         NOP
         NOP
         PC=DealSysError
MainAdjust3_:
         R1+=1
         [_AdjN]=R1
         CMP R1, [_AdjMaxN]
         JNE MainAdjust3Play
         PC=AdjustFinish
MainAdjust3Play:
         R1+=0x101
         CALL _PlaySound

MainAdjust4:
         R1=[_SacmStatus]
         JE MainAdjust5
         CALL _ServiceLoop
         PC=MainAdjust0

MainAdjust5:
         PC=MainAdjust0

AdjustFinish:
         CALL Delay200ms
         R1=AdjFinishedSound
         R1+=0x100
         CALL _PlaySound
         CALL WaitSoundEnd
         PC=UnitOff