*************** *;Décodage RC5* *************** XDEF Acquis, Debut, TsT_Niv, b_equ_1, b_equ_0, TsT_Bit XDEF STOC_SYS, STOC_COM XREF T3QBIT Include 'gpregs.inc' Sauv equ $60 BYT_SYS equ $61 BYT_COM equ $62 Acquis clr Sauv clrx Debut incx jsr T3QBIT ;1.333ms lda PTA and #%00000010 rora rora rol Sauv TsT_Bit cpx #7 beq STOC_SYS cpx #13 beq STOC_COM TsT_Niv lda PTA brclr 1,PTA,b_equ_0 b_equ_1 lda PTA brset 1,PTA,b_equ_1 jmp Debut b_equ_0 lda PTA brclr 1,PTA,b_equ_0 jmp Debut STOC_SYS mov Sauv,BYT_SYS clr Sauv jmp TsT_Niv STOC_COM mov Sauv,BYT_COM rts END * This source is (C)opyright 2002,Labo ClosTSE, Inc. * Visit us at http://www.ecole.wanadoo.fr\clostse
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question