P-Touch fun: Fun with TMS9918 fonts on the Third Millenium Arcade Board

So you have to upload fonts to the TMS9918 to get it to display anything textwise.

I came across this great thread about ti fonts by sometimes99er where he has put together a bunch of great fonts in gif format:

http://atariage.com/forums/topic/165697-fonts/

There was one font in particular that is near and dear to me: The classic Amiga font.

Let's see if we can get the Apple II Third Millenium Arcade Board's TMS9918 to display it.

First, I thought I'd use HTML5 and firefox to generate the DATA statements for Applesoft:

So we create a canvas, draw the 0236.chr.gif into the canvas, and use getImageData() to get access to the data and generate a bunch of DATA statements.




<html>
<img id="graphic" src="0236.chr.gif">
<br>
<canvas id="mycanvas" height="300" width="800">
</canvas>
<div id="text1"></div><script>


window.onload = function() {

   var c=document.getElementById("mycanvas");
    var ctx=c.getContext("2d");
    var img=document.getElementById("graphic");
    ctx.drawImage(img,0,0);

var myimagedata = ctx.getImageData(0,0,10,10);
var mydiv=document.getElementById("text1");

var xchar,ychar,chartoget;

chartoget = 65;
xchar = chartoget % 8;
ychar = Math.floor(chartoget / 8);

linenum = 1000;

mydiv.innerHTML+=("<br>");

for (j=32;j<128;j++){

chartoget = j;
xchar = chartoget % 8;
ychar = Math.floor(chartoget / 8);
imagechardata = ctx.getImageData(xchar*8,ychar*8,8,8);

mydiv.innerHTML+= (linenum.toString()+" DATA "+chartoget.toString()+", ");

linenum++;

var buildbyte,row;

for (row=0;row<8;row++){

  buildbyte = 0;

  for (col=0;col<8;col++){ 
    if (imagechardata.data[((row*8)+col)*4]<128){ buildbyte += 2 ** (7-col);}
  }

  separator = ",";
  if (row==7) separator = "<BR>";
  mydiv.innerHTML+= (buildbyte.toString()+separator);
  }
}
}
</script>
</html>

This HTML5 generates the following DATA statements.




1000 DATA 32, 0,0,0,0,0,0,0,0
1001 DATA 33, 24,60,60,24,24,0,24,0
1002 DATA 34, 108,108,0,0,0,0,0,0
1003 DATA 35, 108,108,254,108,254,108,108,0
1004 DATA 36, 24,62,96,60,6,124,24,0
1005 DATA 37, 0,198,204,24,48,102,198,0
1006 DATA 38, 56,108,104,118,220,204,118,0
1007 DATA 39, 24,24,48,0,0,0,0,0
1008 DATA 40, 12,24,48,48,48,24,12,0
1009 DATA 41, 48,24,12,12,12,24,48,0
1010 DATA 42, 0,102,60,255,60,102,0,0
1011 DATA 43, 0,24,24,126,24,24,0,0
1012 DATA 44, 0,0,0,0,0,24,24,48
1013 DATA 45, 0,0,0,126,0,0,0,0
1014 DATA 46, 0,0,0,0,0,24,24,0
1015 DATA 47, 3,6,12,24,48,96,192,0
1016 DATA 48, 60,102,110,126,118,102,60,0
1017 DATA 49, 24,56,24,24,24,24,126,0
1018 DATA 50, 60,102,6,28,48,102,126,0
1019 DATA 51, 60,102,6,28,6,102,60,0
1020 DATA 52, 28,60,108,204,254,12,30,0
1021 DATA 53, 126,96,124,6,6,102,60,0
1022 DATA 54, 28,48,96,124,102,102,60,0
1023 DATA 55, 126,102,6,12,24,24,24,0
1024 DATA 56, 60,102,102,60,102,102,60,0
1025 DATA 57, 60,102,102,62,6,12,56,0
1026 DATA 58, 0,24,24,0,0,24,24,0
1027 DATA 59, 0,24,24,0,0,24,24,48
1028 DATA 60, 12,24,48,96,48,24,12,0
1029 DATA 61, 0,0,126,0,0,126,0,0
1030 DATA 62, 48,24,12,6,12,24,48,0
1031 DATA 63, 60,102,6,12,24,0,24,0
1032 DATA 64, 124,198,222,222,222,192,120,0
1033 DATA 65, 24,60,60,102,126,195,195,0
1034 DATA 66, 252,102,102,124,102,102,252,0
1035 DATA 67, 60,102,192,192,192,102,60,0
1036 DATA 68, 248,108,102,102,102,108,248,0
1037 DATA 69, 254,102,96,120,96,102,254,0
1038 DATA 70, 254,102,96,120,96,96,240,0
1039 DATA 71, 60,102,192,206,198,102,62,0
1040 DATA 72, 102,102,102,126,102,102,102,0
1041 DATA 73, 126,24,24,24,24,24,126,0
1042 DATA 74, 14,6,6,6,102,102,60,0
1043 DATA 75, 230,102,108,120,108,102,230,0
1044 DATA 76, 240,96,96,96,98,102,254,0
1045 DATA 77, 130,198,238,254,214,198,198,0
1046 DATA 78, 198,230,246,222,206,198,198,0
1047 DATA 79, 56,108,198,198,198,108,56,0
1048 DATA 80, 252,102,102,124,96,96,240,0
1049 DATA 81, 56,108,198,198,198,108,60,6
1050 DATA 82, 252,102,102,124,108,102,227,0
1051 DATA 83, 60,102,112,56,14,102,60,0
1052 DATA 84, 126,90,24,24,24,24,60,0
1053 DATA 85, 102,102,102,102,102,102,62,0
1054 DATA 86, 195,195,102,102,60,60,24,0
1055 DATA 87, 198,198,198,214,254,238,198,0
1056 DATA 88, 195,102,60,24,60,102,195,0
1057 DATA 89, 195,195,102,60,24,24,60,0
1058 DATA 90, 254,198,140,24,50,102,254,0
1059 DATA 91, 60,48,48,48,48,48,60,0
1060 DATA 92, 192,96,48,24,12,6,3,0
1061 DATA 93, 60,12,12,12,12,12,60,0
1062 DATA 94, 16,56,108,198,0,0,0,0
1063 DATA 95, 0,0,0,0,0,0,0,254
1064 DATA 96, 24,24,12,0,0,0,0,0
1065 DATA 97, 0,0,60,6,30,102,59,0
1066 DATA 98, 224,96,108,118,102,102,60,0
1067 DATA 99, 0,0,60,102,96,102,60,0
1068 DATA 100, 14,6,54,110,102,102,59,0
1069 DATA 101, 0,0,60,102,126,96,60,0
1070 DATA 102, 28,54,48,120,48,48,120,0
1071 DATA 103, 0,0,59,102,102,60,198,124
1072 DATA 104, 224,96,108,118,102,102,230,0
1073 DATA 105, 24,0,56,24,24,24,60,0
1074 DATA 106, 6,0,6,6,6,6,102,60
1075 DATA 107, 224,96,102,108,120,108,230,0
1076 DATA 108, 56,24,24,24,24,24,60,0
1077 DATA 109, 0,0,102,119,107,99,99,0
1078 DATA 110, 0,0,124,102,102,102,102,0
1079 DATA 111, 0,0,60,102,102,102,60,0
1080 DATA 112, 0,0,220,102,102,124,96,240
1081 DATA 113, 0,0,61,102,102,62,6,7
1082 DATA 114, 0,0,236,118,102,96,240,0
1083 DATA 115, 0,0,62,96,60,6,124,0
1084 DATA 116, 16,48,124,48,48,52,24,0
1085 DATA 117, 0,0,204,204,204,204,118,0
1086 DATA 118, 0,0,204,204,204,120,48,0
1087 DATA 119, 0,0,198,214,214,108,108,0
1088 DATA 120, 0,0,99,54,28,54,99,0
1089 DATA 121, 0,0,102,102,102,60,24,112
1090 DATA 122, 0,0,126,76,24,50,126,0
1091 DATA 123, 14,24,24,112,24,24,14,0
1092 DATA 124, 24,24,24,24,24,24,24,0
1093 DATA 125, 112,24,24,14,24,24,112,0
1094 DATA 126, 114,156,0,0,0,0,0,0
1095 DATA 127, 0,0,0,0,0,0,0,0

and we paste this into mame's apple2 driver with SHIFT+Scroll Lock to enter it into our basic program:

and I choose background B = 4 and foreground F = 15 for white text on blue for that classic look.



10  REM  SLOT FINDER ROUTINE
20  FOR S = 7 TO 1 STEP  - 1
30 RD = 49280 + S * 16
40 RS = 49281 + S * 16
50 WD = 49282 + S * 16
60 WR = 49283 + S * 16
100 A =  INT ( RND (1) * 256)
110 B =  INT ( RND (1) * 256)
120 C =  INT ( RND (1) * 256)
130  POKE WR,0: POKE WR,64
140  POKE WD,A: POKE WD,B: POKE WD,C
150  POKE WR,0: POKE WR,0
155 T = S
160  IF  PEEK (RD) = A AND  PEEK (RD) = B AND  PEEK (RD) = C THEN S = 1
170  NEXT S
220 D =  PEEK (RS)
230  FOR R = 128 TO 135
240  READ D
260  POKE WR,D
270  POKE WR,R
280  NEXT R
281 CT = 255 * 64:C0 = ((CT / 256) -  INT (CT / 256)) * 256:C1 =  INT (CT / 256): POKE WR,C0: POKE WR,C1 + 64
282  INPUT "B";B: INPUT "F";F
285  FOR I = 0 TO 31: POKE WD,F * 16 + B: NEXT 
289  GOTO 400
350  DATA   0,192,0,255,4,56,7,0
400  POKE WR,0: POKE WR,64: FOR I = 0 TO 255: POKE WD,I: NEXT 
480  READ CN: IF CN =  - 1 THEN  GOTO 600
485  PRINT "CN:"CN
490 PN = 8192 + CN * 8: POKE WR,((PN / 256) -  INT (PN / 256)) * 256: POKE WR, INT (PN / 256) + 64
500  FOR I = 1 TO 8: READ C: POKE WD,C: NEXT I
510  GOTO 480
600  REM  
1000 DATA 32, 0,0,0,0,0,0,0,0
1001 DATA 33, 24,60,60,24,24,0,24,0
1002 DATA 34, 108,108,0,0,0,0,0,0
1003 DATA 35, 108,108,254,108,254,108,108,0
1004 DATA 36, 24,62,96,60,6,124,24,0
1005 DATA 37, 0,198,204,24,48,102,198,0
1006 DATA 38, 56,108,104,118,220,204,118,0
1007 DATA 39, 24,24,48,0,0,0,0,0
1008 DATA 40, 12,24,48,48,48,24,12,0
1009 DATA 41, 48,24,12,12,12,24,48,0
1010 DATA 42, 0,102,60,255,60,102,0,0
1011 DATA 43, 0,24,24,126,24,24,0,0
1012 DATA 44, 0,0,0,0,0,24,24,48
1013 DATA 45, 0,0,0,126,0,0,0,0
1014 DATA 46, 0,0,0,0,0,24,24,0
1015 DATA 47, 3,6,12,24,48,96,192,0
1016 DATA 48, 60,102,110,126,118,102,60,0
1017 DATA 49, 24,56,24,24,24,24,126,0
1018 DATA 50, 60,102,6,28,48,102,126,0
1019 DATA 51, 60,102,6,28,6,102,60,0
1020 DATA 52, 28,60,108,204,254,12,30,0
1021 DATA 53, 126,96,124,6,6,102,60,0
1022 DATA 54, 28,48,96,124,102,102,60,0
1023 DATA 55, 126,102,6,12,24,24,24,0
1024 DATA 56, 60,102,102,60,102,102,60,0
1025 DATA 57, 60,102,102,62,6,12,56,0
1026 DATA 58, 0,24,24,0,0,24,24,0
1027 DATA 59, 0,24,24,0,0,24,24,48
1028 DATA 60, 12,24,48,96,48,24,12,0
1029 DATA 61, 0,0,126,0,0,126,0,0
1030 DATA 62, 48,24,12,6,12,24,48,0
1031 DATA 63, 60,102,6,12,24,0,24,0
1032 DATA 64, 124,198,222,222,222,192,120,0
1033 DATA 65, 24,60,60,102,126,195,195,0
1034 DATA 66, 252,102,102,124,102,102,252,0
1035 DATA 67, 60,102,192,192,192,102,60,0
1036 DATA 68, 248,108,102,102,102,108,248,0
1037 DATA 69, 254,102,96,120,96,102,254,0
1038 DATA 70, 254,102,96,120,96,96,240,0
1039 DATA 71, 60,102,192,206,198,102,62,0
1040 DATA 72, 102,102,102,126,102,102,102,0
1041 DATA 73, 126,24,24,24,24,24,126,0
1042 DATA 74, 14,6,6,6,102,102,60,0
1043 DATA 75, 230,102,108,120,108,102,230,0
1044 DATA 76, 240,96,96,96,98,102,254,0
1045 DATA 77, 130,198,238,254,214,198,198,0
1046 DATA 78, 198,230,246,222,206,198,198,0
1047 DATA 79, 56,108,198,198,198,108,56,0
1048 DATA 80, 252,102,102,124,96,96,240,0
1049 DATA 81, 56,108,198,198,198,108,60,6
1050 DATA 82, 252,102,102,124,108,102,227,0
1051 DATA 83, 60,102,112,56,14,102,60,0
1052 DATA 84, 126,90,24,24,24,24,60,0
1053 DATA 85, 102,102,102,102,102,102,62,0
1054 DATA 86, 195,195,102,102,60,60,24,0
1055 DATA 87, 198,198,198,214,254,238,198,0
1056 DATA 88, 195,102,60,24,60,102,195,0
1057 DATA 89, 195,195,102,60,24,24,60,0
1058 DATA 90, 254,198,140,24,50,102,254,0
1059 DATA 91, 60,48,48,48,48,48,60,0
1060 DATA 92, 192,96,48,24,12,6,3,0
1061 DATA 93, 60,12,12,12,12,12,60,0
1062 DATA 94, 16,56,108,198,0,0,0,0
1063 DATA 95, 0,0,0,0,0,0,0,254
1064 DATA 96, 24,24,12,0,0,0,0,0
1065 DATA 97, 0,0,60,6,30,102,59,0
1066 DATA 98, 224,96,108,118,102,102,60,0
1067 DATA 99, 0,0,60,102,96,102,60,0
1068 DATA 100, 14,6,54,110,102,102,59,0
1069 DATA 101, 0,0,60,102,126,96,60,0
1070 DATA 102, 28,54,48,120,48,48,120,0
1071 DATA 103, 0,0,59,102,102,60,198,124
1072 DATA 104, 224,96,108,118,102,102,230,0
1073 DATA 105, 24,0,56,24,24,24,60,0
1074 DATA 106, 6,0,6,6,6,6,102,60
1075 DATA 107, 224,96,102,108,120,108,230,0
1076 DATA 108, 56,24,24,24,24,24,60,0
1077 DATA 109, 0,0,102,119,107,99,99,0
1078 DATA 110, 0,0,124,102,102,102,102,0
1079 DATA 111, 0,0,60,102,102,102,60,0
1080 DATA 112, 0,0,220,102,102,124,96,240
1081 DATA 113, 0,0,61,102,102,62,6,7
1082 DATA 114, 0,0,236,118,102,96,240,0
1083 DATA 115, 0,0,62,96,60,6,124,0
1084 DATA 116, 16,48,124,48,48,52,24,0
1085 DATA 117, 0,0,204,204,204,204,118,0
1086 DATA 118, 0,0,204,204,204,120,48,0
1087 DATA 119, 0,0,198,214,214,108,108,0
1088 DATA 120, 0,0,99,54,28,54,99,0
1089 DATA 121, 0,0,102,102,102,60,24,112
1090 DATA 122, 0,0,126,76,24,50,126,0
1091 DATA 123, 14,24,24,112,24,24,14,0
1092 DATA 124, 24,24,24,24,24,24,24,0
1093 DATA 125, 112,24,24,14,24,24,112,0
1094 DATA 126, 114,156,0,0,0,0,0,0
1095 DATA 127, 0,0,0,0,0,0,0,0
1096  DATA  -1
2000 AD = 32 * 12:A0 = ((AD / 256) -  INT (AD / 256)) * 256:A1 =  INT (AD / 256): POKE WR,A0: POKE WR,A1 + 64
2001 A$ = "This looks like the Amiga Font"
2002  FOR I = 1 TO  LEN (A$): POKE WD, ASC ( MID$ (A$,I,1)): NEXT

P-Touch fun

Sunday, September 17, 2017

Fun with TMS9918 fonts on the Third Millenium Arcade Board

No comments:

Post a Comment