Hello together, how to modify the program to run it on T200 using the bigger display? Address of raster data? Georg
========== Ihre Nachricht ========================================== von : Ken Pettit <[email protected]> gesendet : Mittwoch, 4. Januar 2023, 06:22 an : [email protected] Betreff : [M100] Model 100 raster character data __________ Originalnachricht _______________________________________ > Hey John, > Nice! No way to make that a 1-liner huh? ;-) > Ken > On 1/3/23 9:19 PM, John R. Hogerhuis wrote: >> The Model 100 does not have a hardware character generator. It paints > the >> characters to the display via software. The Model 100 supports one > font, >> which is programmed into the ROM. >> Characters as rendered to the screen are 6x8. 6 pixels wide by 8 high. >> To save space in the ROM, there are two ranges... raster data for > ASCII 32 >> to 127 is 5 columns (bytes) wide. 128 to 255 are the full 6 > columns >> (bytes) wide. Each column of each character is represented by > a byte. A >> '1' bit in the byte means black, and a 0 means white (er... > gray). The >> tables start at address $7711 = 30,481. >> When characters are actually rendered to the screen by the ROM, it > renders >> them 6 pixels wide, with an added blank column for the > printable ASCII >> range. >> Here is a BASIC program that PEEKs the font data, shifting 1 bit out > at a >> time, and paints each character in large format to the screen. It > waits >> for you to hit a key before moving on to the next character. >> 5 DEFINTA-Z >> 10 B=30481:D=32:W=5 >> 15 CLS >> 20 FOR I=1 TO W >> 30 C=PEEK(B) >> 35 B=B+1 >> 40 FOR J=1TO8 >> 50 L=C AND 1:C=C/2 >> 60 P=(J-1)*40+I:IF I=1 THEN PRINT@P-1,CHR$(47+J); >> 65 IF L=1 THEN PRINT@P,CHR$(239);:ELSE PRINT@P,CHR$(255); >> 70 NEXT J:NEXT I:D=D+1:IFD=128THENW=6 >> 90 I$=INKEY$:IF I$="" THEN 90 >> 95 BEEP >> 96 IF D=256 THEN END >> 100 GOTO 15 >> -- John. __________ Ende Originalnachricht __________________________________ Vertraulichkeitsinformation: Diese Nachricht ist vertraulich. Die Informationen dieser Nachricht sind ausschließlich für die persönliche und vertrauliche Verwendung durch den/die oben genannten Empfänger bestimmt. Wenn Sie kein beabsichtigter Empfänger sind, bitte lesen, kopieren und verwenden Sie die Nachricht nicht. Machen Sie sie nicht anderen zugänglich. Bitte informieren Sie uns umgehend über den Zustellfehler und senden Sie die Originalnachricht per E-Mail an uns zurück. Confidentiality Notice: This message is confidential. The information contained in this message is intended only for the personal and confidential use of the recipient(s) named above. If you are not the intended recipient, please do not read, copy, or use it and do not disclose it to others. Please inform us immediately of the delivery error and return the original message to us via e-mail.
