( Pilote des afficheurs matriciels. Version 0.10 du 21 Fevrier 2010. Ecrit par jpb.forth . ) DECIMAL ( Afficheurs matriciels: ---------------------- Bits[15..8]: 0x00 Bits[7..0]: 0, point en bas, ..., point en haut Point allume si 1 ) 290 CONSTANT CW_MATRICE ( --> 299 ) BIN HERE 00000000 C, ( 0 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 1 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 2 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 3 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 4 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 5 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 6 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 7 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 8 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 9 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 10 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 11 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 12 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 13 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 14 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 15 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 16 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 17 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 18 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 19 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 20 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 21 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 22 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 23 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 24 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 25 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 26 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 27 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 28 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 29 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 30 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 31 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, ( 32 ) 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, 00000000 C, 01001111 C, 00000000 C, 00000000 C, 00000000 C, 00000111 C, 00000000 C, 00000111 C, 00000000 C, 00010100 C, 01111111 C, 00010100 C, 01111111 C, 00010100 C, 00100100 C, 00101010 C, 01111111 C, 00101010 C, 00010010 C, 00100011 C, 00010011 C, 00001000 C, 01100100 C, 01100010 C, 00110110 C, 01001001 C, 01010101 C, 00100010 C, 01010000 C, 00000000 C, 00000101 C, 00000011 C, 00000000 C, 00000000 C, 00000000 C, 00011100 C, 00100010 C, 01000001 C, 00000000 C, 00000000 C, 01000001 C, 00100010 C, 00011100 C, 00000000 C, 00010100 C, 00001000 C, 00111110 C, 00001000 C, 00010100 C, 00001000 C, 00001000 C, 00111110 C, 00001000 C, 00001000 C, 00000000 C, 01010000 C, 00110000 C, 00000000 C, 00000000 C, 00001000 C, 00001000 C, 00001000 C, 00001000 C, 00001000 C, 00000000 C, 01100000 C, 01100000 C, 00000000 C, 00000000 C, 00100000 C, 00010000 C, 00001000 C, 00000100 C, 00000010 C, 00111110 C, 01010001 C, 01001001 C, 01000101 C, 00111110 C, 00000000 C, 01000010 C, 01111111 C, 01000000 C, 00000000 C, 01000010 C, 01100001 C, 01010001 C, 01001001 C, 01000110 C, 00100001 C, 01000001 C, 01000101 C, 01001011 C, 00110001 C, 00011000 C, 00010100 C, 00010010 C, 01111111 C, 00010000 C, 00100111 C, 01000101 C, 01000101 C, 01000101 C, 00111001 C, 00111100 C, 01001010 C, 01001001 C, 01001001 C, 00110000 C, 00000011 C, 00000001 C, 01110001 C, 00001001 C, 00000111 C, 00110110 C, 01001001 C, 01001001 C, 01001001 C, 00110110 C, 00000110 C, 01001001 C, 01001001 C, 00101001 C, 00011110 C, 00000000 C, 00110110 C, 00110110 C, 00000000 C, 00000000 C, 00000000 C, 01010110 C, 00110110 C, 00000000 C, 00000000 C, 00001000 C, 00010100 C, 00100010 C, 01000001 C, 00000000 C, 00010100 C, 00010100 C, 00010100 C, 00010100 C, 00010100 C, 00000000 C, 01000001 C, 00100010 C, 00010100 C, 00001000 C, 00000010 C, 00000001 C, 01010001 C, 00001001 C, 00000110 C, 00110010 C, ( 64 ) 01001001 C, 01111001 C, 01000001 C, 00111110 C, 01111100 C, 00010010 C, 00010001 C, 00010010 C, 01111100 C, 01111111 C, 01001001 C, 01001001 C, 01001001 C, 00110110 C, 00111110 C, 01000001 C, 01000001 C, 01000001 C, 00100010 C, 01111111 C, 01000001 C, 01000001 C, 00100010 C, 00011100 C, 01111111 C, 01001001 C, 01001001 C, 01001001 C, 01000001 C, 01111111 C, 00001001 C, 00001001 C, 00001001 C, 00000001 C, 00111110 C, 01000001 C, 01001001 C, 01001001 C, 01111010 C, 01111111 C, 00001000 C, 00001000 C, 00001000 C, 01111111 C, 00000000 C, 01000001 C, 01111111 C, 01000001 C, 00000000 C, 00100000 C, 01000000 C, 01000001 C, 00111111 C, 00000001 C, 01111111 C, 00001000 C, 00010100 C, 00100010 C, 01000001 C, 01111111 C, 01000000 C, 01000000 C, 01000000 C, 01000000 C, 01111111 C, 00000010 C, 00001100 C, 00000010 C, 01111111 C, 01111111 C, 00000100 C, 00001000 C, 00010000 C, 01111111 C, 00111110 C, 01000001 C, 01000001 C, 01000001 C, 00111110 C, 01111111 C, 00001001 C, 00001001 C, 00001001 C, 00000110 C, 00111110 C, 01000001 C, 01010001 C, 00100001 C, 01011110 C, 01111111 C, 00001001 C, 00011001 C, 00101001 C, 01000110 C, 00100110 C, 01001001 C, 01001001 C, 01001001 C, 00110010 C, 00000001 C, 00000001 C, 01111111 C, 00000001 C, 00000001 C, 00111111 C, 01000000 C, 01000000 C, 01000000 C, 00111111 C, 00011111 C, 00100000 C, 01000000 C, 00100000 C, 00011111 C, 00111111 C, 01000000 C, 00111000 C, 01000000 C, 00111111 C, 01100011 C, 00010100 C, 00001000 C, 00010100 C, 01100011 C, 00000111 C, 00001000 C, 01110000 C, 00001000 C, 00000111 C, 01100001 C, 01010001 C, 01001001 C, 01000101 C, 01000011 C, 00000000 C, 01111111 C, 01000001 C, 01000001 C, 00000000 C, 00000010 C, 00000100 C, 00001000 C, 00010000 C, 00100000 C, 00000000 C, 01000001 C, 01000001 C, 01111111 C, 00000000 C, 00000100 C, 00000010 C, 00000001 C, 00000010 C, 00000100 C, 10000000 C, 10000000 C, 10000000 C, 10000000 C, 10000000 C, 00000000 C, ( 96 ) 00000011 C, 00000101 C, 00000000 C, 00000000 C, 00100000 C, 01010100 C, 01010100 C, 01010100 C, 01111000 C, 01111111 C, 01001000 C, 01000100 C, 01000100 C, 00111000 C, 00111000 C, 01000100 C, 01000100 C, 01000100 C, 00100000 C, 00111000 C, 01000100 C, 01000100 C, 01001000 C, 01111111 C, 00111000 C, 01010100 C, 01010100 C, 01010100 C, 00011000 C, 00001000 C, 01111110 C, 00001001 C, 00000001 C, 00000010 C, 00001000 C, 01010100 C, 01010100 C, 01010100 C, 00111000 C, 01111111 C, 00001000 C, 00000100 C, 00000100 C, 01111000 C, 00000000 C, 01000100 C, 01111101 C, 01000000 C, 00000000 C, 00100000 C, 01000000 C, 01000100 C, 00111101 C, 00000000 C, 01111111 C, 00010000 C, 00101000 C, 01000100 C, 00000000 C, 00000000 C, 01000001 C, 01111111 C, 01000000 C, 00000000 C, 01111100 C, 00000100 C, 01111000 C, 00000100 C, 01111000 C, 01111100 C, 00001000 C, 00000100 C, 00000100 C, 01111000 C, 00111000 C, 01000100 C, 01000100 C, 01000100 C, 00111000 C, 01111100 C, 00010100 C, 00010100 C, 00010100 C, 00001000 C, 00001000 C, 00010100 C, 00010100 C, 00011000 C, 01111100 C, 01111100 C, 00001000 C, 00000100 C, 00000100 C, 00001000 C, 01001000 C, 01010100 C, 01010100 C, 01010100 C, 00100000 C, 00000100 C, 00111111 C, 01000100 C, 01000000 C, 00100000 C, 00111100 C, 01000000 C, 01000000 C, 00100000 C, 01111100 C, 00011100 C, 00100000 C, 01000000 C, 00100000 C, 00011100 C, 00111100 C, 01000000 C, 00110000 C, 01000000 C, 00111100 C, 01000100 C, 00101000 C, 00010000 C, 00101000 C, 01000100 C, 00001100 C, 01010000 C, 01010000 C, 01010000 C, 00111100 C, 01000100 C, 01100100 C, 01010100 C, 01001100 C, 01000100 C, 00000000 C, 00001000 C, 00110110 C, 01000001 C, 00000000 C, 00000000 C, 00000000 C, 01111111 C, 00000000 C, 00000000 C, 00000000 C, 01000001 C, 00110110 C, 00001000 C, 00000000 C, 00010000 C, 00001000 C, 00001000 C, 00010000 C, 00001000 C, 01111111 C, 01111111 C, 01111111 C, 01111111 C, 01111111 C, DECIMAL CONSTANT TABLE_MATRICE : MATRICE ( adr_chaine --> - ) ?DUP IF 2 0 DO DUP I + C@ 127 AND 5 * TABLE_MATRICE + CW_MATRICE I 5 * + DUP >R 5+ R> DO DUP C@ I CW! 1+ LOOP DROP LOOP DROP ELSE CW_MATRICE DUP >R 10+ R> DO 0 I CW! LOOP THEN ; ( FIN )