' 8x8 LED matrix test by Janke 2017-03-15 modules = 10 ' number of modules DIM bytedata(500) ' just to make sure it's enough... ' EzSBC1 setup datapin=30 loadpin=31 clockpin=32 PINMODE datapin, OUT PINMODE clockpin, OUT PINMODE loadpin, OUT g=0 ' Load all the pixel data GOSUB datahere: ' Reset the MAX parameters GOSUB initialize: ' Erase the display GOSUB clear: ' ------------------ ' main program REPEAT GOSUB loophere: UNTIL INKEY>0 END ' ------------------ loophere: ' choose what to display ' Note: No check for overflow due to string length IF g=0 THEN a$="Hello World 1234567890" ENDIF IF g=1 THEN a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" ENDIF IF g=2 THEN a$="abcdefghijklmnopqrstuvwxyz" ENDIF IF g=3 THEN a$="Testing... " ENDIF IF g=4 THEN a$="It works !!! " ENDIF g=g+1 IF g>4 THEN g=0 ENDIF ' Build bit data u=1 FOR k=1 TO LEN(a$) j=ASCII(MID$(a$,k)) a = smallpointer(1,j-31) b = smallpointer(2,j-31) FOR i=a TO b bytedata(u)=small(i) u=u+1 NEXT i NEXT k GOSUB clear: b=1 SETTICK(0) ' test shiftout time ' shift out stuff FOR q = 1 TO modules FOR n = 1 TO 8 FOR p = modules TO 1 STEP-1 ' shift one column of data IF q=p THEN SHIFTOUT (datapin,clockpin,0,n) SHIFTOUT (datapin,clockpin,0,bytedata(b)) b=b+1 ' skip one module with a NOP ELSE SHIFTOUT (datapin,clockpin,0,0) SHIFTOUT (datapin,clockpin,0,0) ENDIF NEXT p OUTD loadpin,1 OUTD loadpin,0 NEXT n NEXT q PRINT GETTICK/10," ms" WAIT 1000 ' Show the display for 1 second RETURN ' ------------------ initialize: ' NOPs to clear MAX buffers address=0 data=0 GOSUB init: ' no scan limit address=11 data=7 GOSUB init: ' 7-segment decode mode off address=9 data=0 GOSUB init: ' test mode off address=15 data=0 GOSUB init: ' shutdown off address=12 data=1 GOSUB init: ' set brightness (data = 0 to 15) ' Mind the current consumption & power supply ripple! address=10 data=0 GOSUB init: RETURN ' ------------------ init: FOR n=1 TO modules SHIFTOUT (datapin,clockpin,0,address) SHIFTOUT (datapin,clockpin,0,data) OUTD loadpin,1 OUTD loadpin,0 NEXT n RETURN ' ------------------ clear: FOR n=1 TO modules FOR m=1 TO 8 SHIFTOUT (datapin,clockpin,0,m) SHIFTOUT (datapin,clockpin,0,0) OUTD loadpin,1 OUTD loadpin,0 NEXT m NEXT n RETURN ' ------------------ datahere: ' Pixel data for 5x7 font DIM small(475)=0x00,0x00,0x00,0x00,0x5F,0x00,0x03,0x00,0x03,0x00,0x14,0x3E,0x14,0x3E,0x14,0x00,0x24,0x2A,0x7F,0x2A,0x12,0x00,0x23,0x13,0x08,0x64,0x62,0x00,0x36,0x49,0x56,0x20,0x50,0x00,0x03,0x00,0x1C,0x22,0x41,0x00,0x41,0x22,0x1C,0x00,0x28,0x18,0x0E,0x18,0x28,0x00,0x08,0x08,0x3E,0x08,0x08,0x00,0xA0,0x60,0x00,0x08,0x08,0x08,0x08,0x00,0x60,0x60,0x00,0x60,0x1C,0x03,0x00,0x00,0x00,0x3E,0x41,0x41,0x3E,0x00,0x42,0x7F,0x40,0x00,0x62,0x51,0x49,0x46,0x00,0x22,0x41,0x49,0x36,0x00,0x18,0x14,0x12,0x7F,0x00,0x27,0x45,0x45,0x39,0x00,0x3E,0x49,0x49,0x30,0x00,0x01,0x71,0x09,0x07,0x00,0x36,0x49,0x49,0x36,0x00,0x06,0x49,0x49,0x3E,0x00,0x50,0x00,0x80,0x50,0x00,0x10,0x28,0x44,0x00,0x14,0x14,0x14,0x00,0x44,0x28,0x10,0x00,0x02,0x59,0x09,0x06,0x00,0x3E,0x41,0x5D,0x55,0x0E,0x00,0x7E,0x09,0x09,0x7E,0x00,0x00,0x7F,0x49,0x49,0x36,0x00,0x3E,0x41,0x41,0x22,0x00,0x7F,0x41,0x41,0x3E,0x00,0x7F,0x49,0x49,0x41,0x00,0x7F,0x09,0x09,0x01,0x00,0x3E,0x41,0x49,0x7A,0x00,0x7F,0x08,0x08,0x7F,0x00,0x41,0x7F,0x41,0x00,0x30,0x40,0x41,0x3F,0x00,0x00,0x7F,0x14,0x22,0x41,0x00,0x7F,0x40,0x40,0x40,0x00,0x7F,0x02,0x0C,0x02,0x7F,0x00,0x7F,0x04,0x08,0x10,0x7F,0x00,0x3E,0x41,0x41,0x41,0x3E,0x00,0x7F,0x09,0x09,0x06,0x00,0x3E,0x41,0x61,0xC1,0xBE,0x00,0x7F,0x09,0x09,0x76,0x00,0x46,0x49,0x49,0x31,0x00,0x01,0x01,0x7F,0x01,0x01,0x00,0x3F,0x40,0x40,0x3F,0x00,0x0F,0x30,0x40,0x30,0x0F,0x00,0x3F,0x40,0x38,0x40,0x3F,0x00,0x63,0x14,0x08,0x14,0x63,0x00,0x07,0x08,0x70,0x08,0x07,0x00,0x61,0x51,0x49,0x45,0x43,0x00,0x78,0x17,0x15,0x17,0x78,0x00,0x7D,0x12,0x12,0x12,0x7D,0x00,0x3D,0x42,0x42,0x42,0x3D,0x00,0x00,0x14,0x00,0x00,0x40,0x40,0x40,0x40,0x00,0xFF,0x00,0x00,0x20,0x54,0x54,0x78,0x00,0x7F,0x44,0x44,0x38,0x00,0x38,0x44,0x44,0x44,0x00,0x38,0x44,0x44,0x7F,0x00,0x38,0x54,0x54,0x18,0x00,0x04,0x7E,0x05,0x00,0x98,0xA4,0xA4,0x7C,0x00,0x7F,0x04,0x04,0x78,0x00,0x44,0x7D,0x40,0x00,0x80,0x84,0x7D,0x00,0x7F,0x10,0x28,0x44,0x00,0x3F,0x40,0x00,0x7C,0x04,0x7C,0x04,0x78,0x00,0x7C,0x04,0x04,0x78,0x00,0x38,0x44,0x44,0x38,0x00,0xFC,0x24,0x24,0x18,0x00,0x18,0x24,0x24,0xFC,0x00,0x7C,0x08,0x04,0x04,0x00,0x48,0x54,0x54,0x24,0x00,0x04,0x3F,0x44,0x00,0x3C,0x40,0x40,0x7C,0x00,0x0C,0x30,0x40,0x30,0x0C,0x00,0x3C,0x40,0x3C,0x40,0x3C,0x00,0x44,0x28,0x10,0x28,0x44,0x00,0x9C,0xA0,0xA0,0x7C,0x00,0x44,0x64,0x54,0x4C,0x00,0x20,0x54,0x55,0x7C,0x00,0x20,0x55,0x54,0x79,0x00,0x39,0x44,0x44,0x39,0x00,0x06,0x09,0x09,0x06,0x00,0x09,0x11,0xFF,0xA8,0x88,0x00 ' Pointers to character data start & end DIM smallpointer(2,96)= 1,4,5,6,7,10,11,16,17,22,23,28,29,34,35,36,37,40,41,44,45,50,51,56,57,59,60,64,65,67,68,71,74,78,79,82,83,87,88,92,93,97,98,102,103,107,108,112,113,117,118,122,123,124,125,127,128,131,132,135,136,139,140,144,145,150,151,155,157,161,162,166,167,171,172,176,177,181,182,186,187,191,192,195,196,200,202,206,207,211,212,217,218,223,224,229,230,234,235,240,241,245,246,250,251,256,257,261,262,267,268,273,274,279,280,285,286,291,292,297,298,303,304,309,310,313,314,318,319,320,322,326,327,331,332,336,337,341,342,346,347,350,351,355,356,360,361,364,365,368,369,373,374,376,377,382,383,387,388,392,393,397,398,402,403,407,408,412,413,416,417,421,422,427,428,433,434,439,440,444,445,449,450,454,455,459,460,464,465,469,470,475 ' Large font planned... RETURN END