| frames.4th (124648) | frames.4th (244048) |
|---|---|
| 1\ Words implementing frame drawing 2\ XXX Filled boxes are left as an exercise for the reader... ;-/ | 1\ Words implementing frame drawing 2\ XXX Filled boxes are left as an exercise for the reader... ;-/ |
| 3\ $FreeBSD: head/sys/boot/forth/frames.4th 124648 2004-01-18 04:13:27Z nyan $ | 3\ $FreeBSD: head/sys/boot/forth/frames.4th 244048 2012-12-09 15:25:34Z dteske $ |
| 4 5marker task-frames.4th 6 7variable h_el 8variable v_el 9variable lt_el 10variable lb_el 11variable rt_el 12variable rb_el 13variable fill 14 | 4 5marker task-frames.4th 6 7variable h_el 8variable v_el 9variable lt_el 10variable lb_el 11variable rt_el 12variable rb_el 13variable fill 14 |
| 15\ ASCII frames (used when serial console is detected) 16 45 constant ascii_dash 17124 constant ascii_pipe 18 43 constant ascii_plus 19 |
|
| 15s" arch-pc98" environment? [if] 16 \ Single frames 17 149 constant sh_el 18 150 constant sv_el 19 152 constant slt_el 20 154 constant slb_el 21 153 constant srt_el 22 155 constant srb_el --- 35 unchanged lines hidden (view full) --- 58 59: hline ( len x y -- ) \ Draw horizontal single line 60 at-xy \ move cursor 61 0 do 62 h_el @ emit 63 loop 64; 65 | 20s" arch-pc98" environment? [if] 21 \ Single frames 22 149 constant sh_el 23 150 constant sv_el 24 152 constant slt_el 25 154 constant slb_el 26 153 constant srt_el 27 155 constant srb_el --- 35 unchanged lines hidden (view full) --- 63 64: hline ( len x y -- ) \ Draw horizontal single line 65 at-xy \ move cursor 66 0 do 67 h_el @ emit 68 loop 69; 70 |
| 71: f_ascii ( -- ) ( -- ) \ set frames to ascii 72 ascii_dash h_el ! 73 ascii_pipe v_el ! 74 ascii_plus lt_el ! 75 ascii_plus lb_el ! 76 ascii_plus rt_el ! 77 ascii_plus rb_el ! 78; 79 |
|
| 66: f_single ( -- ) \ set frames to single | 80: f_single ( -- ) \ set frames to single |
| 81 boot_serial? if f_ascii exit then |
|
| 67 sh_el h_el ! 68 sv_el v_el ! 69 slt_el lt_el ! 70 slb_el lb_el ! 71 srt_el rt_el ! 72 srb_el rb_el ! 73; 74 75: f_double ( -- ) \ set frames to double | 82 sh_el h_el ! 83 sv_el v_el ! 84 slt_el lt_el ! 85 slb_el lb_el ! 86 srt_el rt_el ! 87 srb_el rb_el ! 88; 89 90: f_double ( -- ) \ set frames to double |
| 91 boot_serial? if f_ascii exit then |
|
| 76 dh_el h_el ! 77 dv_el v_el ! 78 dlt_el lt_el ! 79 dlb_el lb_el ! 80 drt_el rt_el ! 81 drb_el rb_el ! 82; 83 --- 29 unchanged lines hidden --- | 92 dh_el h_el ! 93 dv_el v_el ! 94 dlt_el lt_el ! 95 dlb_el lb_el ! 96 drt_el rt_el ! 97 drb_el rb_el ! 98; 99 --- 29 unchanged lines hidden --- |