Author: wmb Date: 2008-12-04 10:18:06 +0100 (Thu, 04 Dec 2008) New Revision: 1017
Modified: cpu/x86/fb8-ops.fth cpu/x86/occhksum.fth dev/usb2/device/wlan/usb8388.fth dev/usb2/hcd/ehci/bulk.fth Log: Removed some trailing whitespace so git won't complain.
Modified: cpu/x86/fb8-ops.fth =================================================================== --- cpu/x86/fb8-ops.fth 2008-12-04 09:18:00 UTC (rev 1016) +++ cpu/x86/fb8-ops.fth 2008-12-04 09:18:06 UTC (rev 1017) @@ -207,7 +207,7 @@ then ax op: stos \ Write it back cx dec \ Decrement pixel counter - 0= until \ End inner loop + 0= until \ End inner loop si di add \ increment adr to next line 5 /n* [sp] cx mov \ restore starting width value dx dec \ decrement height @@ -235,12 +235,12 @@ ax 3 # shr \ Convert to bytes ax 9 /n* [sp] sub \ Account for incrementing of byte pointer \ item 9 is now the excess to add for the next scan line - + \ 4 /n* [sp] bl mov \ Foreground 3 /n* [sp] bx mov \ Background 6 /n* [sp] di mov \ Screenadr - start address in frame buffer 7 /n* [sp] bp mov \ Height - character height in pixels - h# 0a /n* [sp] si mov + h# 0a /n* [sp] si mov \ Fontadr - start address (of this char) in font table
@@ -254,7 +254,7 @@ dx dx or 0<> while 8 # dx cmp - > if + > if 8 # cx mov else dx cx mov @@ -276,7 +276,7 @@ ax op: stos \ Write to frame buffer cx dec \ Increment width pixel count 0= until \ Repeat until width count = 0 - repeat + repeat
9 /n* [sp] si add \ Next scan line in font table 5 /n* [sp] di add \ Increment frame buffer addr to next line
Modified: cpu/x86/occhksum.fth =================================================================== --- cpu/x86/occhksum.fth 2008-12-04 09:18:00 UTC (rev 1016) +++ cpu/x86/occhksum.fth 2008-12-04 09:18:06 UTC (rev 1017) @@ -49,19 +49,19 @@ ax ax xor op: ax lods ax dx add - 0 # dx adc \ Possible carry + 0 # dx adc \ Possible carry then
1 # bx test 0<> if \ Leftover byte? ax ax xor al lodsb ax dx add - 0 # dx adc \ Possible carry + 0 # dx adc \ Possible carry then
dx ax mov d# 16 # ax shr h# ffff # dx and ax dx add \ Add two halves dx ax mov d# 16 # ax shr h# ffff # dx and ax dx add \ Again for carry - dl dh xchg \ Byte swap + dl dh xchg \ Byte swap
si pop dx push
Modified: dev/usb2/device/wlan/usb8388.fth =================================================================== --- dev/usb2/device/wlan/usb8388.fth 2008-12-04 09:18:00 UTC (rev 1016) +++ dev/usb2/device/wlan/usb8388.fth 2008-12-04 09:18:06 UTC (rev 1017) @@ -238,7 +238,7 @@ \ 6 field >rx-snap-hdr \ 0 field >rx-data d# 22 + \ Size of an Ethernet header with SNAP -constant /rx-min +constant /rx-min
\ >rx-stat constants 1 constant rx-stat-ok @@ -442,7 +442,7 @@ : process-request ( adr len -- ) 2dup vdump ( adr len ) to /respbuf ( adr ) - respbuf /respbuf move ( ) + respbuf /respbuf move ( ) true to got-response? ( ) ;
@@ -1057,7 +1057,7 @@ : (mesh-start) ( channel tlv -- error? ) " "(dd 0e 00 50 43 04 00 00 00 00 00 04)mesh" ( channel tlv adr len ) 2swap swap 1 ( adr len tlv channel action ) \ 1 is CMD_ACT_MESH_CONFIG_START - mesh-config-set + mesh-config-set ;
: mesh-stop ( -- error? ) @@ -1429,7 +1429,7 @@ d# 221 c, d# 14 c,
\ OUI.................... type subtyp vers proto metric cap - h# 00 c, h# 50 c, h# 43 c, 4 c, 0 c, 0 c, 0 c, 0 c, 0 c, + h# 00 c, h# 50 c, h# 43 c, 4 c, 0 c, 0 c, 0 c, 0 c, 0 c,
\ ssidlen ssid (set@12) d# 04 c, here 4 allot " mesh" rot swap move
Modified: dev/usb2/hcd/ehci/bulk.fth =================================================================== --- dev/usb2/hcd/ehci/bulk.fth 2008-12-04 09:18:00 UTC (rev 1016) +++ dev/usb2/hcd/ehci/bulk.fth 2008-12-04 09:18:06 UTC (rev 1017) @@ -151,7 +151,7 @@ : alloc-ring-qhqtds ( buf-pa /buf #bufs -- qh qtd ) 0 swap 0 ?do ( pa /buf #qtds ) >r 2dup cal-#qtd >r ( pa /buf r: #qtds this-#qtds ) - tuck + swap ( pa' /buf r: #qtds this-#qtds ) + tuck + swap ( pa' /buf r: #qtds this-#qtds ) r> r> + ( pa' /buf #qtds' ) loop ( pa' /buf #qtds' ) nip nip alloc-qhqtds ( qh qtd0 )