MOV R1， #31H ；指向31H单元 LCALL BINBCD ；调用拆字子程序 MOV A, MIN INC A ；分单元内容加1 MOV MIN, A MOV R1， #33H ；R1指向33H单元 LCALL BINBCD ；调用拆字子程序，将分单元拆开为十位、个位，分别存放33H和32H单元 MOV A, MIN CJNE A, #60，RN ；到60分吗？未到返主程序 MOV A, #00 MOV MIN, A ；60分到，分单元清零 MOV R1，#33H ；指向33H单元