***************************************************************** * Programme de décodage RDS pour 68HC11 * * * * 1997 * * Copyright: Projet BTS de Sébastien * * * * * * Internet : http://members.xoom.com/i2c/RDS/RDS.htm * * * E-mail: electro@caramail.com * ***************************************************************** ********************************************* * Programme: affichage du nom de la station * ********************************************* radio ldaa #$ff staa $90 staa $92 staa $94 staa $96 debut jsr MSS cmpa #$00 bne debut jsr memo ldaa $10 ;bloc2 a staa $74 ldaa $11 staa $75 ;bloc2 b jsr memo ldaa $10 ;bloc3 a staa $76 ldaa $11 ;bloc3 b staa $77 ldaa $73 anda #$03 asla adda #$90 staa $79 ldaa #$00 staa $78 ldy $78 ldaa $76 staa $0,y ldaa $77 staa $1,y ldaa $70 staa $98 ldaa $71 staa $99 ldaa $72 staa $9a ldaa $73 staa $9b ldaa $74 staa $9c ldaa $75 staa $9d ldaa $90 cmpa #$ff beq aqui ldaa $92 cmpa #$ff beq aqui ldaa $94 cmpa #$ff beq aqui ldaa $96 cmpa #$ff bne affi aqui jmp debut affi jsr efface ldy #blanc ldab #$07 jsr prgaffi ldy #$90 ldab #$08 jsr prgaffi ldaa #$ff staa $8d staa $8e ldaa #$fe staa $8f jsr serie jmp switch ************************************** * Programme: Memorisation de 26 bits * ************************************** memo psha pshb pshx pshy ldy #memory ldab #$2 stab $04 mem ldaa #$00 staa $01 ldab #$08 at2 brset porta,x,%00000001,at2 at3 brclr porta,x,%00000001,at3 bou2 brclr porta,x,%00000010,pa20 ldaa #$01 bra pa30 pa20 ldaa #$00 pa30 eora $01 staa $00 asla staa $01 decb cmpb #$00 bne at2 ldaa $00 staa 0,y iny pshb ldab $04 cmpb #$00 beq fin decb stab $04 pulb bra mem fin pulb ldab #$02 ldaa #$00 staa $01 at4 brset porta,x,%00000001,at4 at5 brclr porta,x,%00000001,at5 bou21 brclr porta,x,%00000010,decal1 ldaa #$01 bra dec30 decal1 ldaa #$00 dec30 eora $01 staa $00 asla staa $01 decb cmpb #$00 bne at4 ldaa $00 staa $13 puly pulx pulb pula rts ****************************** * Programme: Synchronisation * ****************************** synchro psha pshb pshx pshy synchr2 ldaa $16 cmpa #$00 bne octsup ldaa $15 cmpa #$f6 beq bloc1 bra octsup bloc1 ldaa #$b1 staa $18 ret puly pulx pulb pula rts *********************************** * Programme: Octet supplementaire * *********************************** octsup ldaa #$00 staa $18 clc ldaa $13 asla staa $14 anda #$04 cmpa #$04 bne m13 sec bra m14 m13 clc m14 ldaa $14 anda #$03 staa $13 osup brset porta,x,%00000001,osup osup2 brclr porta,x,%00000001,osup2 osup3 brclr porta,x,%00000010,osup4 ldaa #$01 bra osup5 osup4 ldaa #$0 osup5 eora $13 staa $13 ldaa $12 rola staa $12 ldaa $11 rola staa $11 ldaa $10 rola staa $10 jsr effet jmp synchr2 ******************************** * Programme: Calcul de l effet * ******************************** effet pshx pshy psha pshb ldaa $10 asla bcc s1 ldx #$8000 bra s1a s1 ldx #$00 s1a stx $30 asla bcc s2 ldx #$4000 bra s2a s2 ldx #$0 s2a stx $32 asla bcc s3 ldx #$2000 bra s3a s3 ldx #$00 s3a stx $34 asla bcc s4 ldx #$1000 bra s4a s4 ldx #$0 s4a stx $36 asla bcc s5 ldx #$0800 bra s5a s5 ldx #$00 s5a stx $38 asla bcc s6 ldx #$0400 bra s6a s6 ldx #$0 s6a stx $3a asla bcc s7 ldx #$0200 bra s7a s7 ldx #$00 s7a stx $3c asla bcc s8 ldx #$0100 bra s8a s8 ldx #$0 s8a stx $3e ldaa $11 asla bcc s9 ldx #$0002 bra s9a s9 ldx #$00 s9a stx $40 asla bcc s10 ldx #$0001 bra s10a s10 ldx #$0 s10a stx $42 asla bcc s11 ldx #$b700 bra s11a s11 ldx #$00 s11a stx $44 asla bcc s12 ldx #$5b02 bra s12a s12 ldx #$0 s12a stx $46 asla bcc s13 ldx #$2d03 bra s13a s13 ldx #$00 s13a stx $48 asla bcc s14 ldx #$a103 bra s14a s14 ldx #$0 s14a stx $4a asla bcc s15 ldx #$e703 bra s15a s15 ldx #$00 s15a stx $4c asla bcc s16 ldx #$c403 bra s16a s16 ldx #$0 s16a stx $4e ldaa $12 asla bcc s17 ldx #$d501 bra s17a s17 ldx #$00 s17a stx $50 asla bcc s18 ldx #$dd02 bra s18a s18 ldx #$0 s18a stx $52 asla bcc s19 ldx #$6e03 bra s19a s19 ldx #$00 s19a stx $54 asla bcc s20 ldx #$8001 bra s20a s20 ldx #$0 s20a stx $56 asla bcc s21 ldx #$f700 bra s21a s21 ldx #$00 s21a stx $58 asla bcc s22 ldx #$7b02 bra s22a s22 ldx #$0 s22a stx $5a asla bcc s23 ldx #$3d03 bra s23a s23 ldx #$00 s23a stx $5c asla bcc s24 ldx #$a903 bra s24a s24 ldx #$0 s24a stx $5e ldaa $13 lsra bcc s25 ldx #$c603 bra s25a s25 ldx #$0 s25a stx $62 lsra bcc s26 ldx #$e303 bra s26a s26 ldx #$0 s26a stx $60 ldaa $30 eora $32 eora $34 eora $36 eora $38 eora $3a eora $3c eora $3e eora $40 eora $42 eora $44 eora $46 eora $48 eora $4a eora $4c eora $4e eora $50 eora $52 eora $54 eora $56 eora $58 eora $5a eora $5c eora $5e eora $60 eora $62 staa $15 ldaa $31 eora $33 eora $35 eora $37 eora $39 eora $3b eora $3d eora $3f eora $41 eora $43 eora $45 eora $47 eora $49 eora $4b eora $4d eora $4f eora $51 eora $53 eora $55 eora $57 eora $59 eora $5b eora $5d eora $5f eora $61 eora $63 staa $16 pulb pula puly pulx rts *************************** * Programe: Memo, synchro * *************************** MSS jsr memo me5 jsr effet jsr synchro ldaa $10 staa $70 ;bloc1 ldaa $11 staa $71 jsr memo ldaa $11 staa $73 ;bloc2 ldaa $10 staa $72 anda #$f8 rts **************************************** * Programme: Effacement de l affichage * **************************************** efface psha bclr porta,x,$20 ldaa #$01 staa portb jsr valid jsr tempo2 bset porta,x,$20 jsr tempo2 pula rts *********************** * Codes de caracteres * *********************** initaff fcb $30,$30,$30,$30,$0c,$01,$06 present fdb ' SYSTEME R-D-S ' swit1 fdb 'Sw1: RADIO ' swit2 fdb 'Sw2: HEURE ' swit3 fdb 'Sw3: RADIOTEXTE' swit4 fdb 'Sw4: R-MESSAGE ' swit5 fdb 'Sw5: ANALYSE ' sheure fdb ' CHOIX : HEURE ' messag fdb ' RADIOTEXTE ' sopera fdb 'RADIOMESSAGERIE' blanc fdb 'RADIO: ' analyse fdb 'choix: ANALYSE ' lysef fdb ' TRANSFERT OK ' end