jimzah/freebsd-src
1
0
Fork 0
mirror of https://github.com/freebsd/freebsd-src.git synced 2024-12-04 01:38:57 +00:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

PC98 uses the different frame code.

Browse Source
This commit is contained in:
Yoshihiro Takahashi 2004-01-18 04:13:27 +00:00
parent 2b0292a5ae
commit c9a7784cc7
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=124648
1 changed files with 43 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
sys/boot/forth/frames.4th
View File

@ -12,27 +12,49 @@ variable rt_el
variable rb_el
variable fill
\ Single frames
196 constant sh_el
179 constant sv_el
218 constant slt_el
192 constant slb_el
191 constant srt_el
217 constant srb_el
\ Double frames
205 constant dh_el
186 constant dv_el
201 constant dlt_el
200 constant dlb_el
187 constant drt_el
188 constant drb_el
\ Fillings
0 constant fill_none
32 constant fill_blank
176 constant fill_dark
177 constant fill_med
178 constant fill_bright
s" arch-pc98" environment? [if]
\ Single frames
149 constant sh_el
150 constant sv_el
152 constant slt_el
154 constant slb_el
153 constant srt_el
155 constant srb_el
\ Double frames
149 constant dh_el
150 constant dv_el
152 constant dlt_el
154 constant dlb_el
153 constant drt_el
155 constant drb_el
\ Fillings
0 constant fill_none
32 constant fill_blank
135 constant fill_dark
135 constant fill_med
135 constant fill_bright
[else]
\ Single frames
196 constant sh_el
179 constant sv_el
218 constant slt_el
192 constant slb_el
191 constant srt_el
217 constant srb_el
\ Double frames
205 constant dh_el
186 constant dv_el
201 constant dlt_el
200 constant dlb_el
187 constant drt_el
188 constant drb_el
\ Fillings
0 constant fill_none
32 constant fill_blank
176 constant fill_dark
177 constant fill_med
178 constant fill_bright
[then]
: hline ( len x y -- ) \ Draw horizontal single line
at-xy \ move cursor