{{ ┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ Autor: Ingo Kripahle │ │ Copyright (c) 2010 Ingo Kripahle │ │ See end of file for terms of use. │ │ Die Nutzungsbedingungen befinden sich am Ende der Datei. │ └──────────────────────────────────────────────────────────────────────────────────────────────────────┘ Informationen : hive-project.de Kontakt : drohne235@googlemail.com System : TriOS Name : Bellatrix-Test Chip : Regnatix Typ : Programm Version : 00 Subversion : 01 Funktion : Test für die grundlegenden Textausgabe- und Tastaturfunktionen. Komponenten : - COG's : - Logbuch : 22-03-2010-dr235 - anpassung trios Kommandoliste : Notizen : }} OBJ ios: "reg-ios" str: "glob-string" CON _CLKMODE = XTAL1 + PLL16X _XINFREQ = 5_000_000 OS_TIBLEN = 64 'größe des inputbuffers VAR 'systemvariablen byte tib[OS_TIBLEN] 'tastatur-input-buffer byte tibpos 'aktuelle position im tib byte tbuf[32] long cols,rows byte vidmod 'videomodus: 0 - vga, 1 - tv PUB main|fnr ios.start os_testvideo repeat ios.print(string("0 - Alle Tests",13)) ios.print(string("1 - Zeichensatz",13)) ios.print(string("2 - Hive-Logo",13)) ios.print(string("3 - Funktion TAB",13)) ios.print(string("4 - Funktion CLS",13)) ios.print(string("5 - Scrolling",13)) ios.print(string("6 - Funktion SCREENINIT",13)) ios.print(string("7 - Funktion SETCOLOR",13)) ios.print(string("8 - Funktion SETX/SETY",13)) ios.print(string("9 - Windows",13)) ios.print(string("10 - Funktion INPUT/BACKSPACE",13)) ios.print(string("11 - Funktion HOME/POS1/CURCHAR",13)) ios.print(string("99 - Ende ")) fnr := str.decimalToNumber(fInput(string(" Funktion : "))) case fnr 0: test_all 1: test_charmap 2: test_logo 3: test_tab 4: test_cls 5: test_scroll 6: test_screeninit 7: test_setcolor 8: test_setxy 9: test_windows 10: test_inputbackspace 11: test_home test_pos1 test_curchar 99: ios.stop pri os_testvideo 'sys: passt div. variablen an videomodus an vidmod := ios.belgetspec & 1 rows := ios.belgetrows 'zeilenzahl bei bella abfragen cols := ios.belgetcols 'spaltenzahl bei bella abfragen pri fInput(stradr1): stradr2 ios.setcolor(1) ios.printq(string("▶")) ios.print(stradr1) ios.input(@tbuf,32) ios.setcolor(0) ios.printnl return @tbuf pri test_all test_charmap test_logo test_tab test_cls test_scroll test_screeninit test_setcolor test_setxy test_windows test_inputbackspace test_home test_pos1 test_curchar pri test_charmap|i,j ios.print(string("Zeichensatz:")) ios.printnl ios.print(string(" 0123456789ABCDEF0123456789ABCDEF")) ios.printnl ios.print(string(" ┌────────────────────────────────┐")) repeat i from 0 to 7 ios.printnl ios.printhex(i*j,2) ios.printchar("│") repeat j from 0 to 31 ios.printqchar((i*31)+j) ios.printchar("│") ios.printnl ios.print(string(" └────────────────────────────────┘")) weiter pri test_logo ios.print(string("Hive-Logo:")) ios.printcls ios.printlogo(0,0) weiter pri test_tab|a,b,i,j ios.print(string("Test TAB:")) if cols < 50 a := 3 b := 5 else a := 3 b := 7 repeat j from a to b repeat i from 0 to 7 ios.settabs(i,j*i) ios.printcls repeat 8 ios.print(string("tab")) ios.printtab ios.printnl repeat i from 1 to 5 repeat 8 ios.printdec(i) ios.printtab ios.printnl waitcnt(10_000_000+cnt) weiter pri test_cls ios.print(string("Test CLS:")) ios.printcls repeat 10 charset ios.printnl ios.printnl ios.print(string("Bildschirm wird gleich gelöscht...")) waitcnt(cnt + clkfreq*3) ios.printcls ios.print(string("Bildschirm löschen OK")) weiter pri test_scroll ios.print(string("Test ScrollUp:")) repeat 10 charset repeat 20 waitcnt(10_000_000+cnt) ios.scrollup ios.printnl ios.printnl '------------------------------------------------------------------------------------ ios.print(string("Test ScrollDown:")) weiter repeat 10 charset repeat 15 <# rows - 2 waitcnt(10_000_000+cnt) ios.scrolldown repeat 16 repeat 15 <# rows - 2 waitcnt(1_000_000+cnt) ios.scrollup repeat 15 <# rows - 2 waitcnt(1_000_000+cnt) ios.scrolldown weiter pri test_screeninit ios.print(string("Test SCREENINIT:")) ios.screeninit ios.print(string("▶Funktionstest Bellatrix-BIOS [SCREENINIT OK]")) weiter pri test_setcolor|i,j,n if vidmod == ios#TV n := 7 else n := 15 ios.print(string("Test SETCOLOR:",13)) repeat i from 0 to n repeat j from 0 to 32 ios.setcolor(i) ios.printchar(j + 65) ios.printchar(":") ios.printdec(i) ios.printchar(":") ios.printhex(i,2) ios.printnl ios.setcolor(0) weiter pri test_setxy|i,j,n ios.print(string("Test SETX/SETY (CURON/CUROFF):")) ios.printcls ios.printnl ios.curoff repeat n from 1 to 50 repeat j from 1 to 5 repeat i from 1 to 8 <# cols/5-1 ios.cursetx(i * 5) ios.cursety(j * 2) ios.printchar(":") ios.printdec(n) ios.cursetx(5) ios.cursety(12 <# rows) ios.printchar(":") ios.printdec(j) ios.printchar(":") ios.printdec(i) ios.printchar(":") ios.printdec(n) ios.curon ios.printnl weiter pri test_windows ios.print(string("Test Windows:")) windows1 windows2 ios.printcls weiter pri test_inputbackspace ios.print(string("Test Eingabe/Backspace (bis Enter): ")) input ios.printnl ios.print(string("Eingabe :")) ios.print(@tib) weiter pri test_home|i ios.printcls ios.print(string("Test Home:")) repeat i from 0 to 1000 ios.curhome ios.printdec(i) weiter pri test_pos1|i ios.print(string("Test POS1:")) ios.printnl repeat i from 0 to 1000 ios.curpos1 ios.printdec(i) weiter pri test_curchar|i ios.print(string("Test CURCHAR: ")) repeat i from 1 to 100 ios.curchar(i) waitcnt(cnt + clkfreq/20) ios.curchar($0E) weiter PRI weiter | tast ios.printnl ios.print(string("Weiter [q|*] : ")) tast := ios.keywait if tast == "q" OR tast == "Q" ios.stop ios.printnl PUB charset | i,j repeat i from 20 to 255 ios.printchar(i) PUB input | charc repeat if ios.keystat > 0 'taste gedrückt? charc := ios.key 'tastencode holen if (tibpos + 1) < OS_TIBLEN 'tastaturpuffer voll? case charc ios#CHAR_BS: 'backspace if tibpos > 0 tibpos-- tib[tibpos] := $0 'letztes zeichen im puffer löschen ios.printbs 'steuerzeichen anterminal senden other: ios.bus_putchar2(charc) 'sonstige zeichen if (charc <> ios#CHAR_NL) & (charc <> ios#CHAR_BS) 'ausser sonderzeichen alles in tib if (tibpos + 1) < OS_TIBLEN 'tastaturpuffer voll? tib[tibpos++] := charc tib[tibpos] := $0 until charc == $0D 'schleife bis RETURN VAR long h[3], z[3], r[3] PUB windows1 | gx, gy, i, j, tast cols := ios.belgetcols rows := ios.belgetrows gx := cols / 2 gy := rows * 2 / 3 ios.printcls ios.print(string(" ### Window-Test ###")) ios.windefine(1, 2, 3, gx - 1, gy - 1) ios.windefine(2, gx + 2, 3, cols - 2, gy - 1) ios.windefine(3, 2, gy + 2, cols - 2, rows - 2) repeat i from 1 to 3 ios.winset(i) ios.printcls ios.winoframe waitcnt(cnt + clkfreq) repeat i from 1 to 3 ios.winset(i) repeat 3 charset waitcnt(cnt + clkfreq) repeat i from 1 to 3 ios.winset(i) j := ios.wingetrows repeat 8 repeat 15 <# j - 2 waitcnt(1_000_000+cnt) ios.scrollup repeat 15 <# j - 2 waitcnt(1_000_000+cnt) ios.scrolldown repeat i from 0 to 2 ios.winset(i+1) h[i] := ios.wingetrows - 2 z[i] := 0 r[i] := 1 repeat 3 charset i := 0 repeat 16*3*4 i := (i + 1) // 3 ios.winset(i+1) z[i] += r[i] if r[i] > 0 ios.scrollup else ios.scrolldown if z[i] == 0 or z[i] == h[i] r[i] *= -1 waitcnt(1_000_000+cnt) ios.winset(3) ios.printcls ios.print(string("Test Screen 2")) weiter screen2 repeat i from 1 to 3 ios.winset(i) ios.printcls ios.curoff ios.winset(1) ios.printcls ios.print(string("Test relative Positionierung")) weiter ios.winset(2) repeat j from 2 to 3 ios.winset(j) repeat i from 1 to 3 setpos(i, i) waitcnt(cnt + clkfreq/2) setpos(-i, -i) waitcnt(cnt + clkfreq/2) ios.winset(1) ios.curon ios.printnl ios.printnl ios.print(string("Weiter */uit : ")) tast := ios.keywait ios.screeninit if tast == "q" OR tast == "Q" ios.stop PUB windows2 | gx, gy, i, j, tast cols := ios.belgetcols rows := ios.belgetrows gx := cols / 2 gy := rows * 2 / 3 ios.printcls ios.print(string(" ### Window-Test - Randkollision ###")) ios.windefine(1, 2, 3, gx - 1, gy - 1) ios.windefine(2, gx + 2, 3, cols + 4, gy - 1) ios.windefine(3, 2, gy + 2, cols + 4, rows + 4) repeat i from 1 to 3 ios.winset(i) ios.printcls ios.winoframe waitcnt(cnt + clkfreq) repeat i from 1 to 3 ios.winset(i) repeat 3 charset waitcnt(cnt + clkfreq) repeat i from 1 to 3 ios.winset(i) j := ios.wingetrows repeat 8 repeat 15 <# j - 2 waitcnt(1_000_000+cnt) ios.scrollup repeat 15 <# j - 2 waitcnt(1_000_000+cnt) ios.scrolldown repeat i from 0 to 2 ios.winset(i+1) h[i] := ios.wingetrows - 2 z[i] := 0 r[i] := 1 repeat 3 charset i := 0 repeat 16*3*4 i := (i + 1) // 3 ios.winset(i+1) z[i] += r[i] if r[i] > 0 ios.scrollup else ios.scrolldown if z[i] == 0 or z[i] == h[i] r[i] *= -1 waitcnt(1_000_000+cnt) ios.winset(3) ios.printcls ios.print(string("Test Screen 2")) weiter screen2 repeat i from 1 to 3 ios.winset(i) ios.printcls ios.curoff ios.winset(1) ios.printcls ios.print(string("Test relative Positionierung")) weiter ios.winset(2) repeat j from 2 to 3 ios.winset(j) repeat i from 1 to 3 setpos(i, i) waitcnt(cnt + clkfreq/2) setpos(-i, -i) waitcnt(cnt + clkfreq/2) ios.winset(1) ios.curon ios.printnl ios.printnl ios.print(string("Weiter */uit : ")) tast := ios.keywait ios.screeninit if tast == "q" OR tast == "Q" ios.stop PRI setpos(x, y) ios.wincursetx(x) ios.wincursety(y) printpos(x, y) PRI printpos(x, y) ios.printqchar(15) waitcnt(cnt + clkfreq/3) if x < 0 ios.curpos1 else ios.printqchar(2) ios.printchar("(") ios.printdec(x) ios.printchar(",") ios.printdec(y) ios.printchar(")") if x < 0 ios.printqchar(3) PRI screen2 ios.set_wscr(2) ios.set_dscr(2) ios.print(string("hier ist Screen 2")) ios.printnl ' Window anzeigen, Scrolling ios.print(string("definiere Window 2 abweichend zu Screen 1: (8, 2)-(30, 8)")) ios.printnl ios.windefine(2, 8, 2, 30, 8) ios.print(string("weiter mit beliebiger Taste...")) ios.keywait ios.winset(2) ios.winoframe ios.printcls ios.print(string("Ausgabe in Window 2")) ios.printnl ios.print(string("zurück zu Screen 1 mit beliebiger Taste...")) ios.keywait ios.set_wscr(1) ios.set_dscr(1) DAT {{ ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ TERMS OF USE: MIT License │ ├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤ │Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation │ │files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, │ │modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software│ │is furnished to do so, subject to the following conditions: │ │ │ │The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.│ │ │ │THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE │ │WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR │ │COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, │ │ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │ └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ }}