📄 缝焊控制.asm
字号:
WU7: JC WU8
MOV R3,#0E3H
MOV R2,#018H
WU6: RET
;------------------------------------------
;
;------------------------------------------
DIVA: MOV R0,#11H
MOV R4,#00H
CLR C
DIVA6: MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
MOV R3,A
MOV A,R4
RLC A
MOV R4,A
CJNE A,01H,DIVA1
DIVA1: JC DIVA2
CLR C
SUBB A,R1
MOV R4,A
SETB UP_DOWN_BIT
DIVA4: DJNZ R0,DIVA3
RET
DIVA2: CLR UP_DOWN_BIT
LJMP DIVA4
DIVA3: JB UP_DOWN_BIT,DIVA5
CLR C
LJMP DIVA6
DIVA5: SETB C
LJMP DIVA6
;-----------------------------------------
;
;-----------------------------------------
MULA: MOV B,R2
MOV R7,A
MUL AB
MOV R4,A
MOV R5,B
MOV A,R7
MOV B,R3
MUL AB
MOV R6,B
ADD A,R5
MOV R5,A
CLR A
ADDC A,R6
MOV R6,A
RET
;---------------------------------------------------------------------------------
;交流电阻焊表格
; 0 1 2 3 4 5 6 7 8 9
;---------------------------------------------------------------------------------
TAB1:; DW 0ECB9H,0ECF4H,0ED0FH,0ED39H,0ED62H,0ED8AH,0EDB2H,0EDD9H,0EE00H,0EE27H
DW 0E318H,0E321H,0E329H,0E331H,0E339H,0E341H,0E349H,0E351H,0E359H,0E361H
DW 0E372H,0E375H,0E378H,0E37BH,0E37EH,0E381H,0E384H,0E387H,0E38AH,0E38DH
DW 0E390H,0E397H,0E39EH,0E3A5H,0E3ACH,0E3B3H,0E3BAH,0E3C1H,0E3C8H,0E3CFH
DW 0E3D6H,0E3DCH,0E3E2H,0E3E8H,0E3EEH,0E3F4H,0E3FAH,0E400H,0E406H,0E40CH
DW 0E412H,0E418H,0E41EH,0E424H,0E42AH,0E430H,0E436H,0E43CH,0E442H,0E448H
DW 0E44EH,0E454H,0E45AH,0E460H,0E466H,0E46CH,0E472H,0E478H,0E47EH,0E484H
DW 0E48AH,0E490H,0E496H,0E49CH,0E4A2H,0E4A8H,0E4AEH,0E4B4H,0E4BAH,0E4C0H
DW 0E4C6H,0E4CCH,0E4D2H,0E4D8H,0E4DEH,0E4E4H,0E4EAH,0E4F0H,0E4F6H,0E4FCH
DW 0E502H,0E508H,0E50EH,0E514H,0E51AH,0E520H,0E526H,0E52CH,0E532H,0E538H
DW 0E53EH,0E543H,0E548H,0E54DH,0E552H,0E557H,0E55CH,0E561H,0E566H,0E56BH
; DW 0EE4CH,0EE72H,0EE97H,0EEBCH,0EEE0H,0EF04H,0EF28H,0EF4BH,0EF6EH,0EF91H
DW 0E570H,0E576H,0E57CH,0E582H,0E588H,0E58EH,0E594H,0E59AH,0E5A0H,0E5A6H
DW 0E5ACH,0E5B1H,0E5B6H,0E5BBH,0E5C0H,0E5C5H,0E5CAH,0E5CFH,0E5D4H,0E5D9H
DW 0E5DEH,0E5E4H,0E5EAH,0E5F0H,0E5F6H,0E5FCH,0E601H,0E607H,0E60DH,0E612H
DW 0E61AH,0E620H,0E626H,0E62CH,0E632H,0E638H,0E63EH,0E644H,0E64AH,0E650H
DW 0E656H,0E65BH,0E660H,0E665H,0E66AH,0E66FH,0E674H,0E679H,0E67EH,0E683H
DW 0E688H,0E68DH,0E692H,0E697H,0E69CH,0E6A1H,0E6A6H,0E6ABH,0E6B0H,0E6B5H
DW 0E6BAH,0E6BFH,0E6C4H,0E6C9H,0E6CEH,0E6D3H,0E6D8H,0E6DDH,0E6E2H,0E6E7H
DW 0E6ECH,0E6F2H,0E6F8H,0E6FEH,0E704H,0E70AH,0E710H,0E716H,0E71CH,0E722H
DW 0E728H,0E72DH,0E732H,0E737H,0E73CH,0E741H,0E746H,0E74BH,0E750H,0E755H
DW 0E75AH,0E75FH,0E764H,0E769H,0E76EH,0E773H,0E778H,0E77DH,0E782H,0E787H
; DW 0EFB4H,0EFD6H,0EFF8H,0F01AH,0F03CH,0F05EH,0F07FH,0F0A0H,0F0C1H,0F0E2H
DW 0E78CH,0E792H,0E798H,0E79EH,0E7A4H,0E7AAH,0E7B0H,0E7B6H,0E7BCH,0E7C2H
DW 0E7C8H,0E7CCH,0E7D0H,0E7D4H,0E7D8H,0E7DCH,0E7E0H,0E7E4H,0E7E8H,0E7ECH
DW 0E7F0H,0E7F5H,0E7FAH,0E7FFH,0E804H,0E809H,0E80EH,0E813H,0E818H,0E81DH
DW 0E822H,0E828H,0E82EH,0E834H,0E83AH,0E840H,0E846H,0E84CH,0E852H,0E858H
DW 0E85EH,0E863H,0E868H,0E86DH,0E872H,0E877H,0E87CH,0E881H,0E886H,0E88BH
DW 0E890H,0E895H,0E89AH,0E89FH,0E8A4H,0E8A9H,0E8AEH,0E8B3H,0E8B8H,0E8BDH
DW 0E8C2H,0E8C7H,0E8CCH,0E8D1H,0E8D6H,0E8DBH,0E8E0H,0E8E5H,0E8EAH,0E8EFH
DW 0E8F4H,0E8F9H,0E8FEH,0E903H,0E908H,0E90DH,0E912H,0E917H,0E91CH,0E921H
DW 0E926H,0E92BH,0E930H,0E935H,0E93AH,0E93FH,0E944H,0E949H,0E94EH,0E953H
DW 0E958H,0E95DH,0E962H,0E967H,0E96CH,0E971H,0E976H,0E97BH,0E980H,0E985H
; DW 0F103H,0F124H,0F144H,0F165H,0F185H,0F1A5H,0F1C6H,0F1E6H,0F206H,0F226H
DW 0E98AH,0E98FH,0E994H,0E999H,0E99EH,0E9A3H,0E9A8H,0E9ADH,0E9B2H,0E9B7H
DW 0E9BCH,0E9C0H,0E9C4H,0E9C8H,0E9CCH,0E9D0H,0E9D4H,0E9D8H,0E9DCH,0E9E0H
DW 0E9E4H,0E9E9H,0E9EEH,0E9F3H,0E9F8H,0E9FDH,0EA02H,0EA07H,0EA0CH,0EA11H
DW 0EA16H,0EA1BH,0EA20H,0EA25H,0EA2AH,0EA2FH,0EA34H,0EA39H,0EA3EH,0EA43H
DW 0EA48H,0EA4DH,0EA52H,0EA57H,0EA5CH,0EA61H,0EA66H,0EA6BH,0EA70H,0EA75H
DW 0EA7AH,0EA7FH,0EA84H,0EA89H,0EA8EH,0EA93H,0EA98H,0EA9DH,0EAA2H,0EAA7H
DW 0EAACH,0EAB1H,0EAB6H,0EABBH,0EAC0H,0EAC5H,0EACAH,0EACFH,0EAD4H,0EAD9H
DW 0EADEH,0EAE3H,0EAE8H,0EAEDH,0EAF2H,0EAF7H,0EAFCH,0EB01H,0EB06H,0EB0BH
DW 0EB10H,0EB14H,0EB18H,0EB1CH,0EB20H,0EB24H,0EB28H,0EB2CH,0EB30H,0EB34H
DW 0EB38H,0EB3DH,0EB42H,0EB47H,0EB4CH,0EB51H,0EB56H,0EB5BH,0EB60H,0EB65H
; DW 0F246H,0F266H,0F286H,0F2A6H,0F2C5H,0F2E5H,0F305H,0F325H,0F345H,0F365H
DW 0EB6AH,0EB6FH,0EB74H,0EB79H,0EB7EH,0EB83H,0EB88H,0EB8DH,0EB92H,0EB97H
DW 0EB9CH,0EBA1H,0EBA6H,0EBABH,0EBB0H,0EBB5H,0EBBAH,0EBBFH,0EBC4H,0EBC9H
DW 0EBCEH,0EBD2H,0EBD6H,0EBDAH,0EBDEH,0EBE2H,0EBE6H,0EBEAH,0EBEEH,0EBF2H
DW 0EBF6H,0EBFBH,0EC00H,0EC05H,0EC0AH,0EC0FH,0EC14H,0EC19H,0EC1EH,0EC23H
DW 0EC28H,0EC2DH,0EC32H,0EC37H,0EC3CH,0EC41H,0EC46H,0EC4BH,0EC50H,0EC55H
DW 0EC5AH,0EC5FH,0EC64H,0EC69H,0EC6EH,0EC73H,0EC78H,0EC7DH,0EC82H,0EC87H
DW 0EC8CH,0EC91H,0EC96H,0EC9BH,0ECA0H,0ECA5H,0ECAAH,0ECAFH,0ECB4H,0ECB9H
DW 0ECBEH,0ECC2H,0ECC6H,0ECCAH,0ECCEH,0ECD2H,0ECD6H,0ECDAH,0ECDEH,0ECE2H
DW 0ECE6H,0ECEBH,0ECF0H,0ECF5H,0ECFAH,0ECFFH,0ED04H,0ED09H,0ED0EH,0ED13H
DW 0ED18H,0ED1DH,0ED22H,0ED27H,0ED2CH,0ED31H,0ED36H,0ED3BH,0ED40H,0ED45H
; DW 0F385H,0F3A4H,0F3C4H,0F3E4H,0F404H,0F425H,0F445H,0F465H,0F485H,0F4A6H
DW 0ED4AH,0ED4EH,0ED52H,0ED56H,0ED5AH,0ED5EH,0ED62H,0ED66H,0ED6AH,0ED6EH
DW 0ED72H,0ED77H,0ED7CH,0ED81H,0ED86H,0ED8BH,0ED90H,0ED95H,0ED9AH,0ED9FH
DW 0EDA4H,0EDA9H,0EDAEH,0EDB3H,0EDB8H,0EDBDH,0EDC2H,0EDC7H,0EDCCH,0EDD1H
DW 0EDD6H,0EDDBH,0EDE0H,0EDE5H,0EDEAH,0EDEFH,0EDF4H,0EDF9H,0EDFEH,0EE03H
DW 0EE08H,0EE0DH,0EE12H,0EE17H,0EE1CH,0EE21H,0EE26H,0EE2BH,0EE30H,0EE35H
DW 0EE3AH,0EE3FH,0EE44H,0EE49H,0EE4EH,0EE53H,0EE58H,0EE5DH,0EE62H,0EE67H
DW 0EE6CH,0EE71H,0EE76H,0EE7BH,0EE80H,0EE85H,0EE8AH,0EE8FH,0EE94H,0EE99H
DW 0EE9EH,0EEA2H,0EEA6H,0EEAAH,0EEAEH,0EEB2H,0EEB6H,0EEBAH,0EEBEH,0EEC2H
DW 0EEC6H,0EECBH,0EED0H,0EED5H,0EEDAH,0EEDFH,0EEE4H,0EEE9H,0EEEEH,0EEF3H
DW 0EEF8H,0EEFDH,0EF02H,0EF07H,0EF0CH,0EF11H,0EF16H,0EF1BH,0EF20H,0EF25H
; DW 0F4C6H,0F4E7H,0F507H,0F529H,0F54AH,0F56BH,0F58CH,0F5AEH,0F5D0H,0F5F1H
DW 0EF2AH,0EF2FH,0EF34H,0EF39H,0EF3EH,0EF43H,0EF48H,0EF4DH,0EF52H,0EF57H
DW 0EF5CH,0EF61H,0EF66H,0EF6BH,0EF70H,0EF75H,0EF7AH,0EF7FH,0EF84H,0EF89H
DW 0EF8EH,0EF93H,0EF98H,0EF9DH,0EFA2H,0EFA7H,0EFACH,0EFB1H,0EFB6H,0EFBBH
DW 0EFC0H,0EFC5H,0EFCAH,0EFCFH,0EFD4H,0EFD9H,0EFDEH,0EFE3H,0EFE8H,0EFEDH
DW 0EFF2H,0EFF7H,0EFFCH,0F001H,0F006H,0F00BH,0F010H,0F015H,0F01AH,0F01FH
DW 0F024H,0F029H,0F02EH,0F033H,0F038H,0F03DH,0F042H,0F047H,0F04CH,0F051H
DW 0F056H,0F05BH,0F060H,0F065H,0F06AH,0F06FH,0F074H,0F079H,0F07EH,0F083H
DW 0F088H,0F08DH,0F092H,0F097H,0F09CH,0F0A1H,0F0A6H,0F0ABH,0F0B0H,0F0B5H
DW 0F0BAH,0F0BFH,0F0C4H,0F0C9H,0F0CEH,0F0D3H,0F0D8H,0F0DDH,0F0E2H,0F0E7H
DW 0F0ECH,0F0F1H,0F0F6H,0F0FBH,0F100H,0F105H,0F10AH,0F10FH,0F114H,0F119H
; DW 0F613H,0F636H,0F658H,0F67BH,0F69EH,0F6C1H,0F6E5H,0F709H,0F72EH,0F751H
DW 0F11EH,0F123H,0F128H,0F12DH,0F132H,0F137H,0F13CH,0F141H,0F146H,0F14BH
DW 0F150H,0F155H,0F15AH,0F15FH,0F164H,0F169H,0F16EH,0F173H,0F178H,0F17DH
DW 0F182H,0F188H,0F18EH,0F194H,0F19AH,0F1A0H,0F1A6H,0F1ACH,0F1B2H,0F1B8H
DW 0F1BEH,0F1C3H,0F1C8H,0F1CDH,0F1D2H,0F1D7H,0F1DCH,0F1E1H,0F1E6H,0F1EBH
DW 0F1F0H,0F1F5H,0F1FAH,0F1FFH,0F204H,0F209H,0F20EH,0F213H,0F218H,0F21DH
DW 0F222H,0F227H,0F22CH,0F231H,0F236H,0F23BH,0F240H,0F245H,0F24AH,0F24FH
DW 0F254H,0F259H,0F25EH,0F263H,0F268H,0F26DH,0F272H,0F277H,0F27CH,0F281H
DW 0F286H,0F28CH,0F292H,0F298H,0F29EH,0F2A4H,0F2AAH,0F2B0H,0F2B6H,0F2BCH
DW 0F2C2H,0F2C8H,0F2CEH,0F2D4H,0F2DAH,0F2E0H,0F2E6H,0F2ECH,0F2F2H,0F2F8H
DW 0F2FEH,0F2FEH,0F304H,0F306H,0F308H,0F30AH,0F30CH,0F30EH,0F310H,0F312H
;---------------------------------------------------------------------------------
;次级整流电阻焊表格
;---------------------------------------------------------------------------------
TAB2:; DW 0EDB6H,0EDE9H,0EE1BH,0EE4CH,0EE7CH,0EEADH,0EEDCH,0EF0AH,0EF39H,0EF66H
DW 0E494H,0E49BH,0E4A2H,0E4A9H,0E4B0H,0E4B7H,0E4BEH,0E4C5H,0E4CCH,0E4D3H
DW 0E4DAH,0E4E2H,0E4EAH,0E4F2H,0E4FAH,0E502H,0E50AH,0E512H,0E51AH,0E522H
DW 0E52AH,0E531H,0E538H,0E53FH,0E546H,0E54DH,0E554H,0E55BH,0E562H,0E569H
DW 0E570H,0E578H,0E580H,0E588H,0E590H,0E598H,0E5A0H,0E5A8H,0E5B0H,0E5B8H
DW 0E5C0H,0E5C7H,0E5CEH,0E5D5H,0E5DCH,0E5E3H,0E5EAH,0E5F1H,0E5F8H,0E5FFH
DW 0E606H,0E60DH,0E614H,0E61BH,0E622H,0E629H,0E630H,0E637H,0E63EH,0E645H
DW 0E64CH,0E653H,0E65AH,0E661H,0E668H,0E66FH,0E676H,0E67DH,0E684H,0E68BH
DW 0E692H,0E699H,0E6A0H,0E6A7H,0E6AEH,0E6B5H,0E6BCH,0E6C3H,0E6CAH,0E6D1H
DW 0E6D8H,0E6DFH,0E6E6H,0E6EDH,0E6F4H,0E6FBH,0E702H,0E709H,0E710H,0E717H
DW 0E71EH,0E725H,0E72CH,0E733H,0E73AH,0E741H,0E748H,0E74FH,0E756H,0E75DH
; DW 0EF93H,0EFC0H,0EFECH,0F018H,0F044H,0F06FH,0F09AH,0F0C5H,0F0EFH,0F119H
DW 0E764H,0E769H,0E76EH,0E773H,0E778H,0E76DH,0E782H,0E787H,0E78CH,0E791H
DW 0E796H,0E79EH,0E7A6H,0E7AEH,0E7B6H,0E7BEH,0E7C6H,0E7CEH,0E7D6H,0E7DEH
DW 0E7E6H,0E7ECH,0E7F2H,0E7F8H,0E7FEH,0E804H,0E80AH,0E810H,0E816H,0E81CH
DW 0E822H,0E829H,0E830H,0E837H,0E83EH,0E845H,0E84CH,0E853H,0E85AH,0E861H
DW 0E868H,0E86EH,0E874H,0E87AH,0E880H,0E886H,0E88CH,0E892H,0E898H,0E89EH
DW 0E8A4H,0E8AAH,0E8B0H,0E8B6H,0E8BCH,0E8C2H,0E8C8H,0E8CEH,0E8D4H,0E8DAH
DW 0E8E0H,0E8E7H,0E8EEH,0E8F5H,0E8FCH,0E903H,0E90AH,0E911H,0E918H,0E91FH
DW 0E926H,0E92CH,0E932H,0E938H,0E93EH,0E944H,0E94AH,0E950H,0E956H,0E95CH
DW 0E962H,0E968H,0E96EH,0E974H,0E97AH,0E980H,0E986H,0E98CH,0E992H,0E998H
DW 0E99EH,0E9A5H,0E9ACH,0E9B3H,0E9BAH,0E9C1H,0E9C8H,0E9CFH,0E9D6H,0E9DDH
; DW 0F144H,0F16EH,0F197H,0F1C1H,0F1EAH,0F212H,0F23CH,0F265H,0F28EH,0F2B7H
DW 0E9E4H,0E9EAH,0E9F0H,0E9F6H,0E9FCH,0EA02H,0EA08H,0EA0EH,0EA14H,0EA1AH
DW 0EA20H,0EA27H,0EA2EH,0EA35H,0EA3CH,0EA43H,0EA4AH,0EA51H,0EA58H,0EA5FH
DW 0EA66H,0EA6CH,0EA72H,0EA78H,0EA7EH,0EA84H,0EA8AH,0EA90H,0EA96H,0EA9CH
DW 0EAA2H,0EAA8H,0EAAEH,0EAB4H,0EABAH,0EAC0H,0EAC6H,0EACCH,0EAD2H,0EAD8H
DW 0EADEH,0EAE4H,0EAEAH,0EAF0H,0EAF6H,0EAFCH,0EB02H,0EB08H,0EB0EH,0EB14H
DW 0EB1AH,0EB21H,0EB28H,0EB2FH,0EB36H,0EB3DH,0EB44H,0EB4BH,0EB52H,0EB59H
DW 0EB60H,0EB66H,0EB6CH,0EB72H,0EB78H,0EB7EH,0EB84H,0EB8AH,0EB90H,0EB96H
DW 0EB9CH,0EBA2H,0EBA8H,0EBAEH,0EBB4H,0EBBAH,0EBC0H,0EBC6H,0EBCCH,0EBD2H
DW 0EBD8H,0EBDEH,0EBE4H,0EBEAH,0EBF0H,0EBF6H,0EBFCH,0EC02H,0EC08H,0EC0EH
DW 0EC14H,0EC15H,0EC16H,0EC17H,0EC18H,0EC19H,0EC1AH,0EC1BH,0EC1CH,0EC1DH
; DW 0F2C0H,0F328H,0F332H,0F35CH,0F385H,0F3B2H,0F3DCH,0F406H,0F42FH,0F458H
DW 0EC1EH,0EC2EH,0EC3EH,0EC4EH,0EC5EH,0EC6EH,0EC7EH,0EC8EH,0EC9EH,0ECAEH
DW 0ECBEH,0ECC0H,0ECC2H,0ECC4H,0ECC6H,0ECC8H,0ECCAH,0ECCCH,0ECCEH,0ECD0H
DW 0ECD2H,0ECD8H,0ECDEH,0ECE4H,0ECEAH,0ECF0H,0ECF6H,0ECFCH,0ED02H,0ED06H
DW 0ED0EH,0ED14H,0ED1AH,0ED20H,0ED26H,0ED2CH,0ED32H,0ED38H,0ED3EH,0ED44H
DW 0ED4AH,0ED51H,0ED58H,0ED5FH,0ED66H,0ED6DH,0ED74H,0ED7BH,0ED82H,0ED89H
DW 0ED90H,0ED96H,0ED9CH,0EDA2H,0EDA8H,0EDAEH,0EDB4H,0EDBAH,0EDC0H,0EDC6H
DW 0EDCCH,0EDD2H,0EDD8H,0EDDEH,0EDE4H,0EDEAH,0EDF0H,0EDF6H,0EDFCH,0EE02H
DW 0EE08H,0EE0EH,0EE14H,0EE1AH,0EE20H,0EE26H,0EE2CH,0EE32H,0EE38H,0EE3EH
DW 0EE44H,0EE4AH,0EE50H,0EE56H,0EE5CH,0EE62H,0EE68H,0EE6EH,0EE74H,0EE7AH
DW 0EE80H,0EE87H,0EE8EH,0EE95H,0EE9CH,0EEA3H,0EEAAH,0EEB1H,0EEB8H,0EEBFH
; DW 0F482H,0F4ACH,0F4D6H,0F501H,0F52DH,0F540H,0F581H,0F5ACH,0F5D8H,0F603H
DW 0EEC6H,0EECCH,0EED2H,0EED8H,0EEDEH,0EEE4H,0EEEAH,0EEF0H,0EEF6H,0EEFCH
DW 0EF02H,0EF08H,0EF0EH,0EF14H,0EF1AH,0EF20H,0EF26H,0EF2CH,0EF32H,0EF38H
DW 0EF3EH,0EF45H,0EF4CH,0EF53H,0EF5AH,0EF61H,0EF68H,0EF6FH,0EF76H,0EF7DH
DW 0EF84H,0EF8AH,0EF90H,0EF96H,0EF9CH,0EFA2H,0EFA8H,0EFAEH,0EFB4H,0EFBAH
DW 0EFC0H,0EFC3H,0EFC6H,0EFC9H,0EFCCH,0EFCFH,0EFD2H,0EFD5H,0EFD8H,0EFDBH
DW 0EFDEH,0EFE8H,0EFF2H,0EFFCH,0F006H,0F010H,0F01AH,0F024H,0F02EH,0F038H
DW 0F042H,0F049H,0F050H,0F057H,0F05EH,0F065H,0F06CH,0F073H,0F07AH,0F081H
DW 0F088H,0F08EH,0F094H,0F09AH,0F0A0H,0F0A6H,0F0ACH,0F0B2H,0F0B8H,0F0BEH
DW 0F0C4H,0F0CAH,0F0D0H,0F0D6H,0F0DCH,0F0E2H,0F0E8H,0F0EEH,0F0F4H,0F0FAH
DW 0F100H,0F107H,0F10EH,0F115H,0F11CH,0F123H,0F12AH,0F131H,0F138H,0F13FH
; DW 0F630H,0F65CH,0F689H,0F6B7H,0F6E5H,0F714H,0F743H,0F76FH,0F7A2H,0F7C4H
DW 0F146H,0F14DH,0F154H,0F15BH,0F162H,0F169H,0F170H,0F177H,0F17EH,0F185H
DW 0F18CH,0F192H,0F198H,0F19EH,0F1A4H,0F1AAH,0F1B0H,0F1B6H,0F1BCH,0F1C2H
DW 0F1C8H,0F1CFH,0F1D6H,0F1DDH,0F1E4H,0F1EBH,0F1F2H,0F1F9H,0F200H,0F207H
DW 0F20EH,0F215H,0F21CH,0F223H,0F22AH,0F231H,0F238H,0F23FH,0F246H,0F24DH
DW 0F254H,0F25BH,0F262H,0F269H,0F270H,0F277H,0F27EH,0F285H,0F28CH,0F293H
DW 0F29AH,0F2A1H,0F2A8H,0F2AFH,0F2B6H,0F2BDH,0F2C4H,0F2CBH,0F2D2H,0F2D9H
DW 0F2E0H,0F2E7H,0F2EEH,0F2F5H,0F2FCH,0F303H,0F30AH,0F311H,0F318H,0F31FH
DW 0F326H,0F32EH,0F336H,0F33EH,0F346H,0F34EH,0F356H,0F35EH,0F366H,0F36EH
DW 0F376H,0F37BH,0F380H,0F385H,0F38AH,0F38FH,0F394H,0F399H,0F39EH,0F3A3H
DW 0F3A8H,0F3B1H,0F3BAH,0F3C3H,0F3CCH,0F3D5H,0F3DEH,0F3E7H,0F3F0H,0F3F9H
; DW 0F805H,0F838H,0F86BH,0F8A0H,0F8D5H,0F920H,0F944H,0F97DH,0F9B8H,0F9F5H
DW 0F402H,0F40AH,0F412H,0F41AH,0F422H,0F42AH,0F432H,0F43AH,0F442H,0F44AH
DW 0F453H,0F45AH,0F462H,0F46AH,0F472H,0F47AH,0F482H,0F48AH,0F492H,0F49AH
DW 0F4A2H,0F4AAH,0F4B2H,0F4BAH,0F4C2H,0F4CAH,0F4D2H,0F4DAH,0F4E2H,0F4EAH
DW 0F4F2H,0F4F9H,0F500H,0F507H,0F50EH,0F515H,0F51CH,0F523H,0F52AH,0F531H
DW 0F538H,0F544H,0F550H,0F55CH,0F568H,0F574H,0F580H,0F58CH,0F598H,0F5A4H
DW 0F5B0H,0F5B6H,0F5BCH,0F5C2H,0F5C8H,0F5CEH,0F5D4H,0F5DAH,0F5E0H,0F5E6H
DW 0F5ECH,0F5F4H,0F5FCH,0F604H,0F60CH,0F614H,0F61CH,0F624H,0F62CH,0F634H
DW 0F63CH,0F645H,0F64EH,0F657H,0F660H,0F669H,0F672H,0F67BH,0F684H,0F68DH
DW 0F696H,0F69FH,0F6A8H,0F6B1H,0F6BAH,0F6C3H,0F6CCH,0F6D5H,0F6DEH,0F6E7H
DW 0F6F0H,0F6F9H,0F702H,0F70BH,0F714H,0F71DH,0F726H,0F72FH,0F738H,0F741H
; DW 0FA34H,0FA75H,0FAC0H,0FAFFH,0FB4AH,0FB99H,0FBECH,0FC48H,0FCABH,0FD1CH
DW 0F754H,0F75DH,0F766H,0F76FH,0F778H,0F781H,0F78AH,0F793H,0F79CH,0F7A5H
DW 0F7AEH,0F7B9H,0F7C4H,0F7CFH,0F7DAH,0F7E5H,0F7F0H,0F7FBH,0F806H,0F811H
DW 0F81CH,0F826H,0F830H,0F83AH,0F844H,0F84EH,0F858H,0F862H,0F86CH,0F876H
DW 0F880H,0F88BH,0F896H,0F8A1H,0F8ACH,0F8B7H,0F8C2H,0F8CDH,0F8D8H,0F8E3H
DW 0F8EEH,0F8FAH,0F906H,0F912H,0F91EH,0F92AH,0F936H,0F942H,0F94EH,0F95AH
DW 0F966H,0F973H,0F980H,0F98DH,0F99AH,0F9A7H,0F9B4H,0F9C1H,0F9CEH,0F9DBH
DW 0F9E8H,0F9F5H,0FA02H,0FA0FH,0FA1CH,0FA29H,0FA36H,0FA43H,0FA50H,0FA5DH
DW 0FA6AH,0FA79H,0FA88H,0FA97H,0FAA6H,0FAB5H,0FAC4H,0FAD3H,0FAE2H,0FAF1H
DW 0FB00H,0FB11H,0FB22H,0FB33H,0FB44H,0FB55H,0FB66H,0FB77H,0FB88H,0FB99H
DW 0FBAAH,0FBABH,0FBACH,0FBADH,0FBAEH,0FBAFH,0FBB0H,0FBB1H,0FBB2H,0FBB3H
;---------------------------------------------------------------------------------
;中断用时序子程序
;---------------------------------------------------------------------------------
QIA: MOV R7,TSTATE
CJNE R7,#TSU,IA12
MOV REG_STA1,#15H
MOV REG_STA2,#0A8H
LCALL GY
CALL DISPLAY_LED
RET
IA12: CJNE R7,#TW1,IA13
MOV REG_STA1,#25H
MOV REG_STA2,#0A8H
LCALL GM1
CALL DISPLAY_LED
RET
IA13: CJNE R7,#TCL1,IA18
MOV REG_STA1,#85H
MOV REG_STA2,#0A8H
LCALL GM2
CALL DISPLAY_LED
RET
IA18: CJNE R7,#THOLD,IA19
CLR ON_W_M_BIT
CLR OFF_W_M_BIT
CLR ST_PRESS_BIT
MOV REG_STA1,#05H
MOV REG_STA2,#0A9H
MOV FOOT_TIMES,#00H
LCALL GD
LCALL DISP_N_SPOT
CALL DISP_N_WORK
CALL DD_SC_DISP
CALL DISPLAY_LED
RET
IA19: CJNE R7,#TOFF,IA1A
MOV FOOT_TIMES,#00H
SETB UNREAPT ;缝焊标志借用单/连点焊标志
CLR REG_SV1
CLR REG_RUN
SETB REG_RP
CLR REG_HO
SETB SOL1
SETB SOL2
SETB MOTOR_RUN
SETB FDRLY
MOV P1,OUTFLAG
CALL DISPLAY_LED
RET
IA1A: LJMP EEE
;--------------------------------------
;气阀动作用子程序
;--------------------------------------
GY: CLR SOL1
CLR WELDING
CLR MOTOR_RUN
SETB SOL2
MOV P1,OUTFLAG
CLR IE0
SETB EA
SETB EX0
RET
GD: CLR SOL1
CLR SOL2
CLR MOTOR_RUN
CLR WELDING
SETB FWELD
CLR FEND ;2CH通电结束信号
MOV P1,OUTFLAG
CLR IE0
JNB BIT_DOCNT,GD1
JNB BIT_COUNTER,GD1 ;于2004年5月26日15:14更改
PUSH ACC
PUSH 07H
PUSH 00H
PUSH TSTATE
PUSH TIME
LCALL CAMP_SPOT ;打点数加1，并且进行比较判断
LCALL CAMP_SC ;生产数加1，并且进行比较判断
CLR BIT_COUNTER
LCALL WRTO2401
POP TIME
POP TSTATE
POP 00H
POP 07H
POP ACC
GD1: CLR BIT_COUNTER
SETB EA
SETB EX0
RET
;-----------------------------------------------------------------
;打点数处理
;-----------------------------------------------------------------
CAMP_SPOT: INC NOW_SPOT
CLR C
MOV A,NOW_SPOT
SUBB A,SET_SPOT
JC CAMP_SPOT1
SETB SPOT_UP
MOV NOW_SPOT,#00H
SJMP CAMP_SPOT_END
CAMP_SPOT1: CLR SPOT_UP
CAMP_SPOT_END: RET
;----------------------------------------------------------------
;生产数处理
;----------------------------------------------------------------
CAMP_SC: JNB SPOT_UP,CAMP_SC_END
CLR SPOT_UP
CLR C
MOV A,NOW_SCL
ADDC A,#01H
MOV NOW_SCL,A
MOV A,NOW_SCH
ADDC A,#00H
MOV NOW_SCH,A ;以下是实际值与设定值的比较
CLR C
MOV A,NOW_SCL
SUBB A,SET_SCL
MOV A,NOW_SCH
SUBB A,SET_SCH
JC CAMP_SC1
SETB WORK_UP
SJMP CAMP_SC_END
CAMP_SC1: CLR WORK_UP
RET
CAMP_SC_END:
RET
;-----------------------------------------------------------------
GM1: CLR SOL1
CLR SOL2
CLR MOTOR_RUN
CLR WELDING
CLR FWELD ;通电信号
SETB FEND
MOV P1,OUTFLAG
CLR IE0
SETB EA
SETB EX0
RET
GM2: CLR SOL1
CLR SOL2
CLR MOTOR_RUN
CLR WELDING
CLR FWELD
SETB FEND
MOV P1,OUTFLAG
CLR IE0
SETB EA
SETB EX0
RET
GM3: CLR SOL1
CLR SOL2
CLR WELDING
CLR FWELD
SETB FEND
MOV P1,OUTFLAG
CLR IE0
SETB EA
SETB EX0
RET
GESOL: CLR WELDING
SETB SOL1
SETB FWELD ;通电信号
SETB SOL2
SETB FEND
MOV P1,OUTFLAG
CLR IE0
SETB EA
SETB EX0
RET
;-----------------------------------------
;程序弹飞时，由此程序将程序恢复正常
;-----------------------------------------
EEE: CLR A
MOV TCON,A
MOV IE,A
MOV SP,#STACK+00H
LJMP ZC
;----------------------------------------
;短延时子程序
;----------------------------------------
DELAY0: MOV R5,#008H ;DELAY0短暂延时
DELAY01: DJNZ R5,DELAY01
RET
;---------------------------------------------
;定时器0中断服务子程序
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -