$Header: /home/radek/cvs/forth-book/dictionary/ansi/1200.depth,v 1.1 2003/12/28 18:21:57 radek Exp $
DEPTH — hloubka zásobníku, počet buněk uložených na zásobník
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