Scr#1
\ TRANSIENT ASSEMBLER
2 GET ASSEMBLER

VOC-LINK @ LATEST HERE
LO @ 5000 - DP !

VARIABLE OLDDP OLDDP !
VARIABLE OLDLINK OLDLINK  !
VARIABLE OLDVLINK OLDVLINK !

\ VERBREEK VERBINDING MET ASM
: DISPOSE OLDVLINK @ VOC-LINK !
  OLDLINK @ OLDDP @ ! ;

2 LOAD

OLDDP @ DP !

CR .( Type DISPOSE to remove ASS
EMBLERafter use.)

EXIT

