openfirmware January 2014

openfirmware@openfirmware.info

1 participants
4 discussions

by Mark Morgan Lloyd

Is it possible to put OpenFirmware on an SD card and use it to boot off e.g. a USB-attached mass storage device or using TFTP over a LAN? -- Mark Morgan Lloyd markMLl .AT. telemetry.co .DOT. uk [Opinions above are the author's, not those of his employers or colleagues]

6 years, 8 months

[commit] r3709 - cpu/ppc

by repository service

Author: wmb Date: Thu Jan 23 19:18:01 2014 New Revision: 3709 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3709 Log: PowerPC kernel - fixed bug in isconstant, completing the previous fix. Modified: cpu/ppc/kerncode.fth Modified: cpu/ppc/kerncode.fth ============================================================================== --- cpu/ppc/kerncode.fth Sun Jan 19 02:21:01 2014 (r3708) +++ cpu/ppc/kerncode.fth Thu Jan 23 19:18:01 2014 (r3709) @@ -214,7 +214,7 @@ c; code isconstant ( n -- ) - literal-to-t0 + tliteral-to-t0 stw tos,/cf(t0) pop-tos c;

7 years, 8 months

[commit] r3708 - cpu/ppc cpu/ppc/ppcsim cpu/x86/Linux forth/wrapper

by repository service

Author: wmb Date: Sun Jan 19 02:21:01 2014 New Revision: 3708 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3708 Log: 1) Eliminated some C compiler warnings by being strict about return values. 2) Fixed the PowerPC build. Modified: cpu/ppc/basefw.bth cpu/ppc/kerncode.fth cpu/ppc/ppcsim/ppcsim.c cpu/x86/Linux/Makefile cpu/x86/Linux/Makefile.ppcforth forth/wrapper/logger.c forth/wrapper/wrapper.c Modified: cpu/ppc/basefw.bth ============================================================================== --- cpu/ppc/basefw.bth Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/ppc/basefw.bth Sun Jan 19 02:21:01 2014 (r3708) @@ -69,6 +69,8 @@ fload ${BP}/ofw/fs/cdfs/loadpkg.fth \ ISO 9660 CD-ROM file system reader end-support-package +fload ${BP}/ofw/disklabel/gpttools.fth + support-package: disk-label fload ${BP}/ofw/disklabel/loadpkg.fth \ Disk label package end-support-package Modified: cpu/ppc/kerncode.fth ============================================================================== --- cpu/ppc/kerncode.fth Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/ppc/kerncode.fth Sun Jan 19 02:21:01 2014 (r3708) @@ -88,6 +88,7 @@ :-h skip-branch " addi ip,ip,/branch" evaluate ;-h :-h literal-to-tos " lwzu tos,/token(ip)" evaluate ;-h :-h literal-to-t0 " lwzu t0,/token(ip)" evaluate ;-h +:-h tliteral-to-t0 " lwzu t0,/token(ip) add t0,t0,base" evaluate ;-h :-h rdrop " addi rp,rp,1cell" evaluate ;-h :-h rdrop3 " addi rp,rp,3cells" evaluate ;-h @@ -191,21 +192,22 @@ meta definitions code isdefer ( xt -- ) - literal-to-t0 + tliteral-to-t0 lwz t0,/cf(t0) \ User number in t0 + subfc tos,base,tos stwx tos,t0,up pop-tos c; code isvalue ( n -- ) - literal-to-t0 + tliteral-to-t0 lwz t0,/cf(t0) \ User number in t0 stwx tos,t0,up pop-tos c; code isuser ( n -- ) - literal-to-t0 + tliteral-to-t0 lwz t0,/cf(t0) \ User number in t0 stwx tos,t0,up pop-tos @@ -218,7 +220,7 @@ c; code isvariable ( n -- ) - literal-to-t0 + tliteral-to-t0 stw tos,/cf(t0) pop-tos c; @@ -384,6 +386,15 @@ pop-tos c; +\ ($endof) is the same as branch, and ($endcase) is the same as drop, +\ but redefining them this way makes the decompiler much easier. +code ($endof) (s -- ) + take-branch +c; +code ($endcase) (s n -- ) + pop-tos +c; + assembler mlabel dofalse addi tos,r0,0 @@ -762,6 +773,145 @@ pop2 c; +\ Find the first occurence of bvalue, returning the residual string +code bscan ( adr len bvalue -- adr' len' ) + mr t1,tos \ t1:bvalue + lwz tos,0(sp) \ tos:len + addi sp,sp,1cell \ Move stack pointer by one + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + lwz t0,0(sp) \ t0:adr + + addi t0,t0,-1 \ Account for pre-incrementing + begin + lbzu t2,1(t0) + cmp 0,0,t1,t2 = if + stw t0,0(sp) + next + then + addic. tos,tos,-1 + 0= until + + addi t0,t0,1 + stw t0,0(sp) +c; + +code wscan ( adr len wvalue -- adr' len' ) + mr t1,tos \ t1:lvalue + lwz tos,0(sp) \ tos:len + addi sp,sp,1cell \ Move stack pointer by one + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + lwz t0,0(sp) \ t0:adr + + addi t0,t0,-2 \ Account for pre-incrementing + begin + lhzu t2,2(t0) + cmp 0,0,t1,t2 = if + stw t0,0(sp) + next + then + addic. tos,tos,-2 + 0= until + + addi t0,t0,2 + stw t0,0(sp) +c; + +code lscan ( adr len lvalue -- adr' len' ) + mr t1,tos \ t1:lvalue + lwz tos,0(sp) \ tos:len + addi sp,sp,1cell \ Move stack pointer by one + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + lwz t0,0(sp) \ t0:adr + + addi t0,t0,-4 \ Account for pre-incrementing + begin + lwzu t2,4(t0) + cmp 0,0,t1,t2 = if + stw t0,0(sp) + next + then + addic. tos,tos,-4 + 0= until + + addi t0,t0,4 + stw t0,0(sp) +c; + +\ Skip initial occurrences of bvalue, returning the residual length +code bskip ( adr len bvalue -- residue ) + mr t1,tos \ t1:bvalue + lwz tos,0(sp) \ tos:len + lwz t0,1cell(sp) \ t0:adr + addi sp,sp,2cells \ Move stack pointer by two + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + addi t0,t0,-1 \ Account for pre-incrementing + begin + lbzu t2,1(t0) + cmp 0,0,t1,t2 <> if + next + then + addic. tos,tos,-1 + 0= until +c; + +\ Skip initial occurrences of wvalue, returning the residual length +code wskip ( adr len wvalue -- residue ) + mr t1,tos \ t1:bvalue + lwz tos,0(sp) \ tos:len + lwz t0,1cell(sp) \ t0:adr + addi sp,sp,2cells \ Move stack pointer by two + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + addi t0,t0,-2 \ Account for pre-incrementing + begin + lhzu t2,2(t0) + cmp 0,0,t1,t2 <> if + next + then + addic. tos,tos,-2 + 0= until +c; + +\ Skip initial occurrences of bvalue, returning the residual length +code lskip ( adr len lvalue -- residue ) + mr t1,tos \ t1:bvalue + lwz tos,0(sp) \ tos:len + lwz t0,1cell(sp) \ t0:adr + addi sp,sp,2cells \ Move stack pointer by two + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + addi t0,t0,-4 \ Account for pre-incrementing + begin + lwzu t2,4(t0) + cmp 0,0,t1,t2 <> if + next + then + addic. tos,tos,-4 + 0= until +c; + code noop (s -- ) c; code lowbyte (s n -- low ) andi. tos,tos,h#ff c; Modified: cpu/ppc/ppcsim/ppcsim.c ============================================================================== --- cpu/ppc/ppcsim/ppcsim.c Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/ppc/ppcsim/ppcsim.c Sun Jan 19 02:21:01 2014 (r3708) @@ -1805,19 +1805,19 @@ power: if (!TBAR) printf("Unimplemented POWER instruction %08lx (%s) at %lx\n", - (long)instruction, (long)opname, (long)CIA); + (long)instruction, opname, (long)CIA); goto trapout; unimplemented: if (!TBAR) printf("Unimplemented instruction %08lx (%s)at %lx\n", - (long)instruction, (long)opname, (long)CIA); + (long)instruction, opname, (long)CIA); goto trapout; illegal: if (!TBAR) printf("Illegal instruction %08lx at %lx\n", - (long)instruction, (long)CIA, (long)0); + (long)instruction, (long)CIA); trapout: if (TBAR) { @@ -1875,7 +1875,7 @@ " r0 r1 r2 r3 r4 r5\n" ); printf( - "%8x %8x %8x %8x %8x %8x\n\n", + "%8lx %8lx %8lx %8lx %8lx %8lx\n\n", greg[ 0], greg[ 1], greg[ 2], greg[ 3], greg[ 4], greg[ 5] ); @@ -1883,7 +1883,7 @@ " r6 r7 r8 r9 r10 r11\n" ); printf( - "%8x %8x %8x %8x %8x %8x\n\n", + "%8lx %8lx %8lx %8lx %8lx %8lx\n\n", greg[ 6], greg[ 7], greg[ 8], greg[ 9], greg[10], greg[11] ); #endif @@ -1891,24 +1891,24 @@ " r20 t0 r21 t1 r22 t2 r23 t3 r24 t4 r25 t5\n" ); printf( - "%8x %8x %8x %8x %8x %8x\n\n", + "%8lx %8lx %8lx %8lx %8lx %8lx\n\n", greg[20], greg[21], greg[22], greg[23], greg[24], greg[25] ); printf( " r26 base r27 up r28 tos r29 ip r30 rp r31 sp\n" ); printf( - "%8x %8x %8x %8x %8x %8x\n\n", + "%8lx %8lx %8lx %8lx %8lx %8lx\n\n", greg[26], greg[27], greg[28], greg[29], greg[30], greg[31] ); - printf("pc %x LR %x CTR %x CR %x", - pc, LR, CTR, CR.all + printf("pc %lx LR %lx CTR %lx CR %lx", + pc, LR, CTR, CR.all ); #ifndef SIMROM - printf(" CALLS: %x", greg[29] /* IP */); + printf(" CALLS: %lx", greg[29] /* IP */); if (greg[30]) - printf(" %x %x %x", + printf(" %lx %lx %lx", ((u_long *)greg[30])[0], /* Return stack */ ((u_long *)greg[30])[1], ((u_long *)greg[30])[2] @@ -1919,13 +1919,13 @@ dumpallregs() { int i; - for (i=0; i<8 ; i++) printf("%9x", greg[i]); putchar('\n'); - for ( ; i<16; i++) printf("%9x", greg[i]); putchar('\n'); - for ( ; i<24; i++) printf("%9x", greg[i]); putchar('\n'); - for ( ; i<32; i++) printf("%9x", greg[i]); putchar('\n'); + for (i=0; i<8 ; i++) printf("%9lx", greg[i]); putchar('\n'); + for ( ; i<16; i++) printf("%9lx", greg[i]); putchar('\n'); + for ( ; i<24; i++) printf("%9lx", greg[i]); putchar('\n'); + for ( ; i<32; i++) printf("%9lx", greg[i]); putchar('\n'); - printf("pc %x LR %x CTR %x CR %x ", - pc, LR, CTR, CR.all + printf("pc %lx LR %lx CTR %lx CR %lx ", + pc, LR, CTR, CR.all ); printf("\n"); } @@ -1956,7 +1956,7 @@ u_long *reladr; reladr = (u_long *) &xmem[ (int)adr ]; - printf("%x: %8x %8x %8x %8x %8x %8x %8x %8x\n", + printf("%lx: %8lx %8lx %8lx %8lx %8lx %8lx %8lx %8lx\n", adr, reladr[0], reladr[1], reladr[2], reladr[3], reladr[4], reladr[5], reladr[6], reladr[7] @@ -1983,7 +1983,7 @@ IABR = 0; stepping = 1; - printf("%x %x %s ", pc, greg[29], name); + printf("%lx %lx %s ", pc, greg[29], name); for (done=0; !done; ) { printf(" : "); #ifndef SIMROM @@ -1994,13 +1994,14 @@ #endif switch(c) { - case 'b': scanf("%x", &IABR); stepping = 0; break; + int res; + case 'b': res = scanf("%lx", &IABR); stepping = 0; break; case 'n': IABR = greg[27]; stepping = 0; break; - case 'u': scanf("%x", &arg); + case 'u': res = scanf("%x", &arg); dumpmem((long)(greg[27]+arg)); GETLINE; break; - case 'm': scanf("%x", &arg); + case 'm': res = scanf("%x", &arg); dumpmem((long)arg); GETLINE; break; Modified: cpu/x86/Linux/Makefile ============================================================================== --- cpu/x86/Linux/Makefile Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/x86/Linux/Makefile Sun Jan 19 02:21:01 2014 (r3708) @@ -44,7 +44,7 @@ @ln -sf forth x86forth xinflate.lo: ${ZIPDIR}/inflate.c - ${CC} -c ${MFLAGS} -Wall -fno-stack-protector -ffreestanding -D_FORTIFY_SOURCE=0 -DNEED_BCOPY -O3 -fpic $< -o $@ + ${CC} -c ${MFLAGS} -Wall -fno-builtin -fno-stack-protector -ffreestanding -DNEED_BCOPY -O2 -fpic $< -o $@ xinflate.o: xinflate.lo ${LD} -melf_i386 -T inflate.ld $< -o $@ Modified: cpu/x86/Linux/Makefile.ppcforth ============================================================================== --- cpu/x86/Linux/Makefile.ppcforth Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/x86/Linux/Makefile.ppcforth Sun Jan 19 02:21:01 2014 (r3708) @@ -5,6 +5,8 @@ BP=../../.. CFLAGS = -DPPCSIM -DTARGET_POWERPC +CFLAGS += -m32 +LFLAGS += -m32 CC = gcc Modified: forth/wrapper/logger.c ============================================================================== --- forth/wrapper/logger.c Sat Jan 11 07:24:15 2014 (r3707) +++ forth/wrapper/logger.c Sun Jan 19 02:21:01 2014 (r3708) @@ -241,6 +241,7 @@ void log_command_line(int argc, char *argv[]) { int i; + char *pret; char cwdbuf[MAXPATHLEN*2]; #ifdef __unix__ @@ -278,7 +279,7 @@ sprintf(info, "host: %s\n", hostname); record(&misc); - getcwd(cwdbuf, 128); + pret = getcwd(cwdbuf, 128); sprintf(info, "cwd: %s\n", cwdbuf); record(&misc); } Modified: forth/wrapper/wrapper.c ============================================================================== --- forth/wrapper/wrapper.c Sat Jan 11 07:24:15 2014 (r3707) +++ forth/wrapper/wrapper.c Sun Jan 19 02:21:01 2014 (r3708) @@ -326,10 +326,6 @@ extern void log_command_line(int, char **); extern void log_env(char *, char *); -#if !defined(LinuxPOWERPC) && !defined(__APPLE__) - extern int read(), write(); -#endif - INTERNAL char * substr(); INTERNAL long path_open(); INTERNAL void keymode(); @@ -348,7 +344,11 @@ long c_key(); long s_bye(); void restoremode(); +#ifdef PPCSIM + void simulate(char *, char *, char *, long (**)(), char *, int, char **, int); +#else void simulate(char *, char *, char *, long (**)(), char *, int, char **); +#endif long find(long, int, long, char *); #else INTERNAL long c_key(); @@ -710,12 +710,14 @@ void set_bp(void) { + char *pret; + int ret; char here[MAXPATHLEN]; - getcwd(here, MAXPATHLEN); - getcwd(bpval, MAXPATHLEN); + pret = getcwd(here, MAXPATHLEN); + pret = getcwd(bpval, MAXPATHLEN); while (1) { if (access(host_cpu, F_OK) == 0) { - getcwd(hostdirval, MAXPATHLEN); + pret = getcwd(hostdirval, MAXPATHLEN); strcat(hostdirval, "/"); strcat(hostdirval, host_cpu); strcat(hostdirval, "/"); @@ -723,14 +725,14 @@ } if (access("ofw", F_OK) == 0) break; - chdir(".."); - getcwd(bpval, MAXPATHLEN); + ret = chdir(".."); + pret = getcwd(bpval, MAXPATHLEN); if (strcmp(bpval, "/") == 0) { bpval[0] = '\0'; break; } } - chdir(here); + ret = chdir(here); } struct woptions { char *dashopt; char *forthopt; } woptions[] = @@ -1112,6 +1114,7 @@ #endif #ifdef TARGET_POWERPC +#ifndef PPCSIM # ifdef NOGLUE { long toc_entry[2]; int c; toc_entry[1] = 0; @@ -1127,6 +1130,7 @@ s_bye(0L); # endif #endif +#endif #ifdef __APPLE_CC__ { @@ -1694,16 +1698,16 @@ INTERNAL long c_expect(long max, char *buffer) { - int c = 0; + int c = 0, ret; register char *p = buffer; linemode(); fflush(stdout); - read(0, &c, 1); + ret = read(0, &c, 1); while (max-- && c != '\n' && c != EOF ) { *p++ = c; - read(0, &c, 1); + ret = read(0, &c, 1); } keymode(); return ( (long)(p - buffer) ); @@ -1756,9 +1760,10 @@ void error(char *str1, char *str2) { - write(2,str1,strlen(str1)); - write(2,str2,strlen(str2)); - write(2,"\n",1); + int ret; + ret = write(2,str1,strlen(str1)); + ret = write(2,str2,strlen(str2)); + ret = write(2,"\n",1); } @@ -1791,11 +1796,11 @@ char output_filename[MAXPATHLEN]; #ifdef USE_STDIO -#define NONE -1 -int output_fd = NONE; + #define NONE (FILE *)0 + FILE *output_fd = NONE; #else -#define NONE (FILE *)0 -FILE *output_fd = NONE; + #define NONE -1 + int output_fd = NONE; #endif #ifdef USE_STDIO @@ -1849,7 +1854,7 @@ if (result != -1) { strcpy(output_filename, name); output_fd = result; - } + } #else #ifdef __unix__ result = open(expand_name(name), O_RDWR|O_CREAT|O_TRUNC, (int)mode); @@ -1858,8 +1863,8 @@ #endif if (result != -1) { strcpy(output_filename, name); - output_fd = (FILE *)result; - } + output_fd = result; + } #endif return((long)result); }

7 years, 8 months

[commit] r3707 - cpu/x86/pc/olpc/sstools

by repository service

Author: quozl Date: Sat Jan 11 07:24:15 2014 New Revision: 3707 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3707 Log: OLPC XO-1 - screenshot tools Added: cpu/x86/pc/olpc/sstools/ cpu/x86/pc/olpc/sstools/565.fth cpu/x86/pc/olpc/sstools/README cpu/x86/pc/olpc/sstools/bmp.fth cpu/x86/pc/olpc/sstools/xpm.fth Added: cpu/x86/pc/olpc/sstools/565.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/sstools/565.fth Sat Jan 11 07:24:15 2014 (r3707) @@ -0,0 +1,47 @@ +\ dump frame buffer in C565 format + +dev /display +: fb-va ( -- fb ) frame-buffer-adr ; +dend + +: ts$ ( -- adr len ) + time&date >unix-seconds push-decimal 0 <# #s #> pop-base +; + +: putw ( w -- ) wbsplit swap ofd @ fputc ofd @ fputc ; + +: fb-save ( file ( -- ) + writing + " C565" ofd @ fputs + screen-wh swap putw putw + " fb-va" screen-ih $call-method + screen-wh swap drop 0 do ( fb ) + screen-wh drop 0 do ( fb ) + dup w@ ( fb rgb565 ) + putw + wa1+ ( fb' ) + loop ( fb' ) + loop drop ( ) +; + +: fb ( -- ) + ts$ + " u:\" + " fb-save %s%s.565" sprintf + screen-ih remove-output + 2dup type cr + ['] evaluate catch ?dup if nip nip .error then + screen-ih add-output +; + +dev /keyboard +: handler? ( scan-code -- flag ) + dup h# 73 ( × ) = if fb true exit then + handle-volume? +; +\ FIXME: during check-alarm, the data stack pointer is in another +\ place, leading to large negative depth and ?enough failures, in +\ particular in writing. +\ ' handler? to scan-handled? +dend + Added: cpu/x86/pc/olpc/sstools/README ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/sstools/README Sat Jan 11 07:24:15 2014 (r3707) @@ -0,0 +1 @@ +screenshot tools for XO-1 Added: cpu/x86/pc/olpc/sstools/bmp.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/sstools/bmp.fth Sat Jan 11 07:24:15 2014 (r3707) @@ -0,0 +1,74 @@ +\ dump XO-1 frame buffer in BMP24 format + +dev /display +: fb-va ( -- fb ) frame-buffer-adr ; +dend + +: ts$ ( -- adr len ) + time&date >unix-seconds push-decimal 0 <# #s #> pop-base +; + +0 value bmp-width +0 value bmp-height + +h# 36 constant /bmp-hdr +/bmp-hdr buffer: bmp-hdr + +0 value fb-va + +: put-plane ( -- ) + " fb-va" screen-ih $call-method to fb-va + bmp-height 0 do + bmp-width + 0 ?do + fb-va w@ ( rgb565 ) + 565>rgb ( r g b ) + ofd @ fputc + ofd @ fputc + ofd @ fputc + fb-va wa1+ to fb-va + loop + loop +; + +: put-header ( -- ) + " BM" bmp-hdr swap move \ Signature + bmp-width 3 * 4 round-up bmp-height * + dup bmp-hdr h# 22 + le-l! \ Image size + /bmp-hdr + bmp-hdr 2 + le-l! \ File size + + 0 bmp-hdr 6 + le-l! \ Reserved + /bmp-hdr bmp-hdr h# 0a + le-l! \ Image data pixel array offset + h# 28 bmp-hdr h# 0e + le-l! \ Some variant of header size + bmp-width bmp-hdr h# 12 + le-l! + bmp-height negate bmp-hdr h# 16 + le-l! \ Pixel array order top to bottom + 1 bmp-hdr h# 1a + le-w! \ Planes + d# 24 bmp-hdr h# 1c + le-w! \ Bits per pixel + 0 bmp-hdr h# 1e + le-l! \ Compression + + d# 2835 bmp-hdr h# 26 + le-l! \ X pixels/meter + d# 2835 bmp-hdr h# 2a + le-l! \ Y pixels/meter + 0 bmp-hdr h# 2e + le-l! \ Colors used + 0 bmp-hdr h# 32 + le-l! \ Colors important + + bmp-hdr /bmp-hdr ofd @ fputs +; + +: fb-save + writing + screen-wh to bmp-height to bmp-width + + put-header + put-plane + ofd @ fclose +; + +: fb ( -- ) + ts$ + " u:\" + " fb-save %s%s.bmp" sprintf + screen-ih remove-output + 2dup type cr + ['] evaluate catch ?dup if nip nip .error then + screen-ih add-output +; Added: cpu/x86/pc/olpc/sstools/xpm.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/sstools/xpm.fth Sat Jan 11 07:24:15 2014 (r3707) @@ -0,0 +1,111 @@ +\ save frame buffer in open firmware for screen shots (serial, X bitmap) + +dev /display +: fb-va ( -- fb ) frame-buffer-adr ; +dend + +: .xx ( b -- ) 0 <# # # #> type ; + +\ colour table, +\ list of unique colours in frame buffer +0 value ct \ address of table +d# 62 value /ct \ entries in table (and alphabet utilisation, @-~) + \ d# 62 is insufficient for menu +h# 0 value nct \ next entry to use in table + +\ borrowed from screen-ih +d# 1200 value width +d# 900 value height +h# 0 value fb-va + +: ct-free ( -- ) + ct /ct /w* free-mem +; + +: ct-alloc ( -- ) + /ct /w* alloc-mem to ct +; + +: ct-init ( -- ) + " fb-va" screen-ih $call-method to fb-va + ct /ct /w* erase + h# 0 to nct +; + +: ct-dump ( -- ) \ dump colour table + nct if + nct 0 do + i . ct i wa+ w@ 565>rgb ( r g b ) rot . swap . . cr + loop + then +; + +: ct-add ( pixel -- ) \ add a colour to the table if not already in table + nct if + nct 0 do ( pixel ) + ct i wa+ w@ over = if ( pixel ) \ found + drop unloop exit ( ) \ no action required + then + loop ( pixel ) \ not found + then + nct /ct < if ( pixel ) + ct nct wa+ w! ( ) \ store entry + nct 1+ to nct ( ) \ increment next slot + else + abort" ct: too many colours in frame buffer" + then +; + +: ct-scan ( -- ) \ survey what colours are used + fb-va ( fb ) + height 0 do ( fb ) + width 0 do ( fb' ) + dup w@ ct-add 2+ ( fb' ) + loop ( fb' ) + loop drop ( ) +; + +: xpm-head ( -- ) + ." ! XPM2" cr + width .d height .d + nct .d 1 .d cr + nct 0 do + i h# 40 + emit + ." c #" + ct i wa+ w@ 565>rgb ( r g b ) rot .xx swap .xx .xx cr + loop +; + +: xpm-body ( -- ) + fb-va ( fb ) + height 0 do ( fb ) + width 0 do ( fb ) + dup w@ ( fb pixel ) + nct 0 do ( fb pixel ) + ct i wa+ w@ over = if ( fb pixel ) \ found + i h# 40 + emit ( fb pixel ) + leave ( fb pixel ) + then + loop ( fb pixel ) \ not found + drop ( fb ) + wa1+ ( fb' ) + loop cr ( fb' ) + loop drop ( ) +; + +: .xpm2 \ 256 colour from 16bpp + ct-alloc + ct-init + ct-scan + xpm-head + xpm-body + ct-free +; + +: fb-save ( file ( -- ) + to-file .xpm2 +; + +: ts$ ( -- adr len ) + time&date >unix-seconds push-decimal 0 <# #s #> pop-base +;

7 years, 8 months

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware January 2014