obp/obp/pkg/dropins/sparc/find-dropin.fth

\ ========== Copyright Header Begin ==========================================
\
\ Hypervisor Software File: find-dropin.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: @(#)find-dropin.fth 1.1 02/08/22
purpose:
copyright: Copyright 1999-2002 Sun Microsystems, Inc.  All Rights Reserved
copyright: Use is subject to license terms.

inline-struct? on
struct
   /l field >di-magic
   /l field >di-size
   /l field >di-sum
   /l field >di-exp  \ Reserved
d# 16 field >di-name
    0 field >di-image
constant /lvl1-hdr
inline-struct? off

[ifdef] dropin-debug?
label di-print-addr
   %l5                  %o0     move
   %g0  %g0             %g0     save
   print" "r"nScan addr: "
   %i0                          print-reg
   %i7  8                       return
   nop
end-code

label di-print-name
   %g0  %g0             %g0     save
   ttya-pa %o2          %l7     setx

   %l7                  %o1     move
   bpemit                       call
   ascii [              %o0     move            \ (delay)

   %l7                  %o1     move
   bpemit                       call
   %i2                  %o0     move            \ (delay)

   %l7                  %o1     move
   bpemit                       call
   ascii !              %o0     move            \ (delay)

   %l7                  %o1     move
   bpemit                       call
   %i3                  %o0     move            \ (delay)

   %l7                  %o1     move
   bpemit                       call
   ascii ]              %o0     move            \ (delay)

   %i7  8                       return
   nop
end-code
[then]

\ In
\   %o0 = di-name
\   %o1 = start-addr
\ Out
\   %o0 = addr of dropin-header or 0 if not found.
label find-drop-in
   %g0  %g0             %g0     save

   %i1                  %l5     move            \ start address
   h# 4f424d44          %l6     set             \ dropin magic
   %g0  %g0             %l7     add             \ found address
   begin
      \ Skip trailing 01 bytes.
      begin
         %l5  0         %o0     ldub
         %o0  h# 01     %g0     subcc
      0<> until
         %l5  1         %l5     add
      %l5  3            %l5     andn            \ Force alignment
[ifdef] dropin-debug?
      di-print-addr             call    nop
[then]
      %l5  0 >di-magic  %l4     ld              \ get magic
      %l5  0 >di-size   %l1     ld              \ get size
      %l4  %l6          %g0     subcc
      0= if
         %g0  %g0       %g0     subcc           \ (delay) mark exit

         \ Check the name
         %l5  0 >di-name %o0    add             \ Dropin name
         %i0  %g0       %o1     add             \ SRC name
         %g0  d# 16     %o4     add             \ max len.
         begin
            %o0  0      %o2     ldub
            %o1  0      %o3     ldub
[ifdef] dropin-debug?
            di-print-name       call    nop
[then]
            %o2  %o3    %g0     subcc
            0= if
               %g0  %g0  %g0    subcc           \ (delay) no match exit
               %o2  %g0  %g0    subcc
               0= if
                  %o4 1 %o4     subcc           \ decr and continue (delay)
                  %l5   %l7     move            \ name matched.
                  %g0  %g0  %g0 subcc           \ force exit.
               then
            then
            %o0  1      %o0     add
         0= until
            %o1  1      %o1     add

         %l7  %g0       %g0     subcc           \ name matched?
         0<> if
            %g0  1      %g0     subcc           \ continue
            %g0  %g0    %g0     subcc           \ End
         then
      then
      %l5  /lvl1-hdr    %l5     add             \ Skip the header.
   0= until
      %l5  %l1          %l5     add             \ Skip the data to next dropin.

   %l7  %g0             %i0     add
   %i7  8                       return
   nop
end-code