openbios/openboot/obp/pkg/fcode/primlist.fth

Branch - branch -master

• Show log

  Commit

• Hash : 1a08f436
  Author :
  Date : 2010-08-25T09:23:17
  

  change to well-formed svn directory structure. git-svn-id: svn://coreboot.org/openboot/trunk@2 4486e004-3823-0410-90c7-fb508cc143bb

Download

• obp/pkg/fcode/primlist.fth

• \ ========== Copyright Header Begin ==========================================
  \ 
  \ Hypervisor Software File: primlist.fth
  \ 
  \ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved.
  \ 
  \  - Do no alter or remove copyright notices
  \ 
  \  - Redistribution and use of this software in source and binary forms, with 
  \    or without modification, are permitted provided that the following 
  \    conditions are met: 
  \ 
  \  - Redistribution of source code must retain the above copyright notice, 
  \    this list of conditions and the following disclaimer.
  \ 
  \  - Redistribution in binary form must reproduce the above copyright notice,
  \    this list of conditions and the following disclaimer in the
  \    documentation and/or other materials provided with the distribution. 
  \ 
  \    Neither the name of Sun Microsystems, Inc. or the names of contributors 
  \ may be used to endorse or promote products derived from this software 
  \ without specific prior written permission. 
  \ 
  \     This software is provided "AS IS," without a warranty of any kind. 
  \ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, 
  \ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A 
  \ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN 
  \ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR 
  \ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR 
  \ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN 
  \ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR 
  \ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE 
  \ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, 
  \ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF 
  \ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
  \ 
  \ You acknowledge that this software is not designed, licensed or
  \ intended for use in the design, construction, operation or maintenance of
  \ any nuclear facility. 
  \ 
  \ ========== Copyright Header End ============================================
  id: @(#)primlist.fth 2.19 94/09/01
  purpose: FCode token number definitions for primitive (1-byte) FCodes
  copyright: Copyright 1990 Sun Microsystems, Inc.  All Rights Reserved
  
  \ === Bootprom tokens (see also sysprims.fth) ============================
  \
  \ Notes: 1)  This table is in numerical order.
  \
  \        2)  Syntax for FCode definitions:
  \                 ______________________________________
  \            a)  |  v1 v2  nnn n  byte-code: <name> ...
  \                   * Version 1 FCodes carried forward into version 2.
  \                 ______________________________________
  \            b)  |  v1     nnn n  byte-code: <name> ...
  \                   * Obsoleted version 1 fcodes (generate a warning
  \                     message when found by the version 2 tokenizer).
  \                 ______________________________________
  \            c)  |     v2  nnn n  byte-code: <name> ...
  \                   * FCodes new to version 2 (didn't exist in version 1).
  \                 ______________________________________
  \            d)  |\        nnn n
  \                   * FCodes never allocated.
  \                 ______________________________________
  \            e)  |\ v1     nnn n  byte-code: <name> ...
  \                   * FCodes intended for version 1 but never released
  \                     with version 1 (commented out of version 1 source).
  \                 ______________________________________
  \            f)  |\ v1 v2  nnn n  byte-code: <name> ...
  \                   * Reserved FCodes.
  \
  \
  \        3)  The above syntax allows us to keep obsoleted words, but at
  \            the same time to alert s-bus developer as to their obsolence.
  \
  \        4)  While compling the boot prom "v1" and "v2" are defined as
  \            noops so backward compatiblity can be achieved with either
  \            a or b above.
  \
  \
  \ ========================================================================
  
  
  
  \ === basic FCodes =======================================================
  
  hex
  v1 v2  000 0 byte-code: end0       ( -- )
  
  \ v1 v2  001 0 byte-code: table1
  \ v1 v2  002 0 byte-code: table2
  \ v1 v2  003 0 byte-code: table3
  \ v1 v2  004 0 byte-code: table4
  \ v1 v2  005 0 byte-code: table5
  \ v1 v2  006 0 byte-code: table6
  \ v1 v2  007 0 byte-code: table7
  \ v1 v2  008 0 byte-code: table8
  \ v1 v2  009 0 byte-code: table9
  \ v1 v2  00a 0 byte-code: table10
  \ v1 v2  00b 0 byte-code: table11
  \ v1 v2  00c 0 byte-code: table12
  \ v1 v2  00d 0 byte-code: table13
  \ v1 v2  00e 0 byte-code: table14
  \ v1 v2  00f 0 byte-code: table15
  
  v1 v2  010 0 byte-code: b(lit)     ( -- n )
  v1 v2  011 0 byte-code: b(')       ( -- acf )
  v1 v2  012 0 byte-code: b(")       ( -- adr len )
  v1 v2  013 0 byte-code: bbranch    ( -- )
  v1 v2  014 0 byte-code: b?branch   ( -- )
  v1 v2  015 0 byte-code: b(loop)    ( -- )
  v1 v2  016 0 byte-code: b(+loop)   ( n -- )
  v1 v2  017 0 byte-code: b(do)      ( end start -- )
  v1 v2  018 0 byte-code: b(?do)     ( end start -- )
  v1 v2  019 0 byte-code: i          ( -- index )
  v1 v2  01a 0 byte-code: j          ( -- outerindex )
  v1 v2  01b 0 byte-code: b(leave)   ( -- )
  v1 v2  01c 0 byte-code: b(of)      ( sel tstval - sel|none ) \ then offset.
  
  v1 v2  01d 0 byte-code: execute    ( acf -- )
  
  v1 v2  01e 0 byte-code: +          ( n1 n2 -- n3 )
  v1 v2  01f 0 byte-code: -          ( n1 n2 -- n3)
  v1 v2  020 0 byte-code: *          ( n1 n2 -- n3)
  v1 v2  021 0 byte-code: /          ( n1 n2 -- n3)
  v1 v2  022 0 byte-code: mod        ( n1 n2 -- n3)
  v1 v2  023 0 byte-code: and        ( n1 n2 -- n3)
  v1 v2  024 0 byte-code: or         ( n1 n2 -- n3)
  v1 v2  025 0 byte-code: xor        ( n1 n2 -- n3)
  v1 v2  026 0 byte-code: invert     ( n1 -- n2 )		\ Was not
  v1 v2  027 0 byte-code: lshift     ( n1 cnt -- n2 )	\ Was <<
  v1 v2  028 0 byte-code: rshift     ( n1 cnt -- n2 )	\ Was >>
  v1 v2  029 0 byte-code: >>a        ( n1 cnt -- n2 )
  v1 v2  02a 0 byte-code: /mod       ( n1 n2 -- rem quot )
  v1 v2  02b 0 byte-code: u/mod      ( n1 n2 -- rem quot )
  v1 v2  02c 0 byte-code: negate     ( n1 -- n2 )
  
  v1 v2  02d 0 byte-code: abs        ( n1 -- n2 )
  v1 v2  02e 0 byte-code: min        ( n1 n2 -- n3 )
  v1 v2  02f 0 byte-code: max        ( n1 n2 -- n3 )
  
  v1 v2  030 0 byte-code: >r         ( n -- )  ( rs: -- n )
  v1 v2  031 0 byte-code: r>         ( -- n )  ( rs: n -- )
  v1 v2  032 0 byte-code: r@         ( -- n )  ( rs: -- )
  v1 v2  033 0 byte-code: exit       ( -- )
  
  v1 v2  034 0 byte-code: 0=         ( n -- flag )
  v1 v2  035 0 byte-code: 0<>        ( n -- flag )
  v1 v2  036 0 byte-code: 0<         ( n -- flag )
  v1 v2  037 0 byte-code: 0<=        ( n -- flag )
  v1 v2  038 0 byte-code: 0>         ( n -- flag )
  v1 v2  039 0 byte-code: 0>=        ( n -- flag )
  v1 v2  03a 0 byte-code: <          ( n1 n2 -- flag )
  v1 v2  03b 0 byte-code: >          ( n1 n2 -- flag )
  v1 v2  03c 0 byte-code: =          ( n1 n2 -- flag )
  v1 v2  03d 0 byte-code: <>         ( n1 n2 -- flag )
  v1 v2  03e 0 byte-code: u>         ( n1 n2 -- flag )
  v1 v2  03f 0 byte-code: u<=        ( n1 n2 -- flag )
  v1 v2  040 0 byte-code: u<         ( n1 n2 -- flag )
  v1 v2  041 0 byte-code: u>=        ( n1 n2 -- flag )
  v1 v2  042 0 byte-code: >=         ( n1 n2 -- flag )
  v1 v2  043 0 byte-code: <=         ( n1 n2 -- flag )
  v1 v2  044 0 byte-code: between    ( n min max -- flag )
  v1 v2  045 0 byte-code: within     ( n min max -- flag )
  
  v1 v2  046 0 byte-code: drop       ( n -- )
  v1 v2  047 0 byte-code: dup        ( n -- n n )
  v1 v2  048 0 byte-code: over       ( n1 n2 -- n1 n2 n1 )
  v1 v2  049 0 byte-code: swap       ( n1 n2 -- n2 n1 )
  v1 v2  04a 0 byte-code: rot        ( n1 n2 n3 -- n2 n3 n1 )
  v1 v2  04b 0 byte-code: -rot       ( n1 n2 n3 -- n3 n1 n2 )
  v1 v2  04c 0 byte-code: tuck       ( n1 n2 -- n2 n1 n2 )
  v1 v2  04d 0 byte-code: nip        ( n1 n2 -- n2 )
  v1 v2  04e 0 byte-code: pick       ( +n -- n2 )
  v1 v2  04f 0 byte-code: roll       ( +n -- )
  v1 v2  050 0 byte-code: ?dup       ( n -- n | n n )
  v1 v2  051 0 byte-code: depth      ( -- +n )
  
  v1 v2  052 0 byte-code: 2drop      ( n1 n2 -- )
  v1 v2  053 0 byte-code: 2dup       ( n1 n2 -- n1 n2 n1 n2 )
  v1 v2  054 0 byte-code: 2over      ( n1 n2 n3 n4 -- n1 n2 n3 n4 n1 n2 )
  v1 v2  055 0 byte-code: 2swap      ( n1 n2 n3 n4 -- n3 n4 n1 n2 )
  v1 v2  056 0 byte-code: 2rot       ( n1 n2 n3 n4 n5 n6 -- n3 n4 n5 n6 n1 n2 )
  
  v1 v2  057 0 byte-code: 2/         ( n1 -- n2 )
  v1 v2  058 0 byte-code: u2/        ( n1 -- n2 )
  v1 v2  059 0 byte-code: 2*         ( n1 -- n2 )
  
  v1 v2  05a 0 byte-code: /c         ( -- n )
  v1 v2  05b 0 byte-code: /w         ( -- n )
  v1 v2  05c 0 byte-code: /l         ( -- n )
  v1 v2  05d 0 byte-code: /n         ( -- n )
  v1 v2  05e 0 byte-code: ca+        ( n1 index -- n2 )
  v1 v2  05f 0 byte-code: wa+        ( n1 index -- n2 )
  v1 v2  060 0 byte-code: la+        ( n1 index -- n2 )
  v1 v2  061 0 byte-code: na+        ( n1 index -- n2 )
  v1 v2  062 0 byte-code: char+      ( n1 -- n2 )		\ Was ca1+
  v1 v2  063 0 byte-code: wa1+       ( n1 -- n2 )
  v1 v2  064 0 byte-code: la1+       ( n1 -- n2 )
  v1 v2  065 0 byte-code: cell+      ( n1 -- n2 )		\ Was na1+
  v1 v2  066 0 byte-code: chars      ( n1 -- n2 )		\ Was /c*
  v1 v2  067 0 byte-code: /w*        ( n1 -- n2 )
  v1 v2  068 0 byte-code: /l*        ( n1 -- n2 )
  v1 v2  069 0 byte-code: cells      ( n1 -- n2 )		\ Was /n*
  
  v1 v2  06a 0 byte-code: on         ( adr -- )
  v1 v2  06b 0 byte-code: off        ( adr -- )
  v1 v2  06c 0 byte-code: +!         ( n adr -- )
  v1 v2  06d 0 byte-code: @          ( adr -- n )
  v1 v2  06e 0 byte-code: l@         ( adr -- L )
  v1 v2  06f 0 byte-code: w@         ( adr -- w )
  v1 v2  070 0 byte-code: <w@        ( adr -- w )
  v1 v2  071 0 byte-code: c@         ( adr -- b )
  v1 v2  072 0 byte-code: !          ( n adr -- )
  v1 v2  073 0 byte-code: l!         ( n adr -- )
  v1 v2  074 0 byte-code: w!         ( n adr -- )
  v1 v2  075 0 byte-code: c!         ( n adr -- )
  v1 v2  076 0 byte-code: 2@         ( adr -- n1 n2 )
  v1 v2  077 0 byte-code: 2!         ( n1 n2 adr -- )
  
  v1 v2  078 0 byte-code: move       ( adr1 adr2 cnt -- )
  v1 v2  079 0 byte-code: fill       ( adr cnt byte -- )
  v1 v2  07a 0 byte-code: comp       ( adr1 adr2 cnt -- n )
  v1 v2  07b 0 byte-code: noop       ( -- )
  
  v1 v2  07c 0 byte-code: lwsplit    ( L -- w.lo w.hi )
  v1 v2  07d 0 byte-code: wljoin     ( w.lo w.hi -- L )
  v1 v2  07e 0 byte-code: lbsplit    ( L -- b.lo b b b.hi )
  v1 v2  07f 0 byte-code: bljoin     ( b.lo b b b.hi -- L )
  v1 v2  080 0 byte-code: wbflip     ( w1 -- w2 )		\ Was flip
  
  v1 v2  081 0 byte-code: upc        ( char -- upper-case-char )
  v1 v2  082 0 byte-code: lcc        ( char -- lower-case-char )
  v1 v2  083 0 byte-code: pack       ( adr len pstr -- pstr )
  v1 v2  084 0 byte-code: count      ( pstr -- adr len )
  
  v1 v2  085 0 byte-code: body>      ( apf -- acf )
  v1 v2  086 0 byte-code: >body      ( acf -- apf )
  
  v1 v2  087 0 byte-code: fcode-revision  ( -- n )  \ Was version
  
  v1 v2  088 0 byte-code: span       ( -- adr )
  
  v3     089 0 byte-code: unloop     ( -- )
  
  v1 v2  08a 0 byte-code: expect     ( adr +n -- )
  
  v1 v2  08b 0 byte-code: alloc-mem  ( cnt -- adr )
  v1 v2  08c 0 byte-code: free-mem   ( adr cnt -- )
  
  v1 v2  08d 0 byte-code: key?       ( -- flag )
  v1 v2  08e 0 byte-code: key        ( -- char )
  v1 v2  08f 0 byte-code: emit       ( char -- )
  v1 v2  090 0 byte-code: type       ( adr +n -- )
  
  v1 v2  091 0 byte-code: (cr        ( -- )
  v1 v2  092 0 byte-code: cr         ( -- )
  v1 v2  093 0 byte-code: #out       ( -- adr )
  v1 v2  094 0 byte-code: #line      ( -- adr )
  
  v1 v2  095 0 byte-code: hold       ( char -- )
  v1 v2  096 0 byte-code: <#         ( -- )
  v1 v2  097 0 byte-code: u#>        ( L -- adr +n )	\ Was #>
  v1 v2  098 0 byte-code: sign       ( n -- )
  v1 v2  099 0 byte-code: u#         ( +L1 -- +L2 )	\ Was #
  v1 v2  09a 0 byte-code: u#s        ( +L -- 0 )		\ Was #s
  v1 v2  09b 0 byte-code: u.         ( u -- )
  v1 v2  09c 0 byte-code: u.r        ( u cnt -- )
  v1 v2  09d 0 byte-code: .          ( n -- )
  v1 v2  09e 0 byte-code: .r         ( n cnt -- )
  v1 v2  09f 0 byte-code: .s         ( -- )
  v1 v2  0a0 0 byte-code: base       ( -- adr )
  
  \ v1     0a1 0 byte-code: convert       \ -- removed for brevity
  
     v2  0a2 0 byte-code: $number    ( adr len -- n false | true )
  
  v1 v2  0a3 0 byte-code: digit      ( char base -- digit true | char false )
  
  v1 v2  0a4 0 byte-code: -1         ( -- -1 )
  v1 v2  0a5 0 byte-code: 0          ( -- 0 )
  v1 v2  0a6 0 byte-code: 1          ( -- 1 )
  v1 v2  0a7 0 byte-code: 2          ( -- 2 )
  v1 v2  0a8 0 byte-code: 3          ( -- 3 )
  v1 v2  0a9 0 byte-code: bl         ( -- n )
  v1 v2  0aa 0 byte-code: bs         ( -- n )
  v1 v2  0ab 0 byte-code: bell       ( -- n )
  
  v1 v2  0ac 0 byte-code: bounds     ( n cnt -- n+cnt n )
  v1 v2  0ad 0 byte-code: here       ( -- adr )
  v1 v2  0ae 0 byte-code: aligned    ( adr1 -- adr2 )
  
  v1 v2  0af 0 byte-code: wbsplit    ( w -- b.lo b.hi )
  v1 v2  0b0 0 byte-code: bwjoin     ( b.lo b.hi -- w )
  
  v1 v2  0b1 0 byte-code: b(<mark)
  v1 v2  0b2 0 byte-code: b(>resolve)
  
  \ v1     0b3 0 byte-code: set-token  ( offset token#   table# -- )
  \ v1     0b4 0 byte-code: set-table  ( offset #entries table# -- )
  
  v1 v2  0b5 0 byte-code: new-token     \ then table#, code#, token-type
  v1 v2  0b6 0 byte-code: named-token   \ then string, table#, code#, token-type
  
  v1 v2  0b7 0 byte-code: b(:)       ( -- )
  v1 v2  0b8 0 byte-code: b(value)   ( -- )
  v1 v2  0b9 0 byte-code: b(variable) ( -- )
  v1 v2  0ba 0 byte-code: b(constant) ( -- )
  v1 v2  0bb 0 byte-code: b(create)  ( -- )
  v1 v2  0bc 0 byte-code: b(defer)   ( -- )
  v1 v2  0bd 0 byte-code: b(buffer:) ( -- )
  v1 v2  0be 0 byte-code: b(field)   ( -- )
  \   v2  0bf 0 byte-code: b(code)    ( -- )                   \ version 2 token
  
  v2.1   0c0 0 byte-code: instance   ( -- )     \ 2.1
  
  \   0c1 0
  
  v1 v2  0c2 0 byte-code: b(;)       ( -- )
  
  v1 v2  0c3 0 byte-code: b(to)      ( acf -- )	\ Was b(is)
  v1 v2  0c4 0 byte-code: b(case)    ( selector -- selector )
  v1 v2  0c5 0 byte-code: b(endcase) ( selector -- )
  v1 v2  0c6 0 byte-code: b(endof)   ( -- )
  
  v3     0c7 0 byte-code: #	   ( ud1 -- ud2 )
  v3     0c8 0 byte-code: #s         ( ud1 -- 0 0 )
  v3     0c9 0 byte-code: #>	   ( ud -- adr len )
  
     v2  0ca 0 byte-code: external-token        ( -- )
  
  v1 v2  0cb 0 byte-code: $find      ( adr len -- adr len false  |  acf +-1 )
  v1 v2  0cc 0 byte-code: offset16   \ Sets the offset length to 16 bits
  
     v2  0cd 0 byte-code: evaluate   ( adr len -- )	\ Was eval
  
  \      0ce 0
  \      0cf 0
  
  v1 v2  0d0 0 byte-code: c,         ( n -- )
  v1 v2  0d1 0 byte-code: w,         ( n -- )
  v1 v2  0d2 0 byte-code: l,         ( n -- )
  v1 v2  0d3 0 byte-code:  ,         ( n -- )
  
     v2  0d4 0 byte-code: um*        ( u1 u2 -- ud ) \ Was u*x
     v2  0d5 0 byte-code: um/mod     ( ud1 u2 -- u.rem u.quot )	\ Was xu/mod
  \      0d6 0
  \      0d7 0
  
     v2  0d8 0 byte-code: d+         ( d1 d2 -- d3 )  \ Was x+
     v2  0d9 0 byte-code: d-         ( d1 d2 -- d3 )  \ Was x-
  
  v3     0da 0 byte-code: get-token  ( fcode# -- xt immediate? )
  v3     0db 0 byte-code: set-token  ( xt immediate? fcode# -- )
  v3     0dc 0 byte-code: state      ( -- adr )
  v3     0dd 0 byte-code: compile,   ( xt -- )
  v3     0de 0 byte-code: behavior   ( xt1 -- xt2 )
  \      0df 0
  
     v2  0f0 0 byte-code: start0     ( -- )                   \ version 2 token
     v2  0f1 0 byte-code: start1     ( -- )                   \ version 2 token
     v2  0f2 0 byte-code: start2     ( -- )                   \ version 2 token
     v2  0f3 0 byte-code: start4     ( -- )                   \ version 2 token
  
  \      0f4 0
  \      0f5 0
  \      0f6 0
  \      0f7 0
  \      0f8 0
  \      0f9 0
  \      0fa 0
  \      0fb 0
  v2.3   0fc 0 byte-code: ferror
  
  v1 v2  0fd 0 byte-code: version1   \ then 0byte,chksum(2bytes),length(4bytes)
  \ v1     0fe 0 byte-code: 4-byte-id  \ then 3 more bytes
  
  v1 v2  0ff 0 byte-code: end1
  

Download