$Header: /home/radek/cvs/forth-book/dictionary/ansi/1200.depth,v 1.1 2003/12/28 18:21:57 radek Exp $

Jméno

DEPTH — hloubka zásobníku, počet buněk uložených na zásobník

Přehled

( → n )

Definováno v: dpANS Forth 6.1.1200 CORE

Popis

Zjistí aktuální počet buněk v zásobníku a toto číslo uloží do zásodníku.

Příklad použití

1 2 3 DEPTH .s Enter<4> 1 2 3 3
	4 8 9 DEPTH .s Enter<8> 1 2 3 3 4 8 9 7

Kód slova v Qurtus Forthu

Příklad 73. Kód slova DEPTH *:[80]

02B6= 82B8: 82A2                              DW      $82A2             ; link to {xref linkend="QF.MainFormID"/}
02B8= 82BA: 0544 4550 5448                    DB      5, "DEPTH"
02BE= 82C0: 200C                 DEPTH:       MOVE.L  A4, D0            ;=
02C0= 82C2: 222D 0012                         MOVE.L  18(A5), D1        ;+
02C4= 82C6: 9280                              SUB.L   D0, D1
02C6= 82C8: E289                              LSR.L   #1, D1
02C8= 82CA: 3907                              MOVE.W  TOS, -(A4)
02CA= 82CC: 3E01                              MOVE.W  D1, D7
02CC= 82CE: 4E75                              RTS                       ;= EXIT