meta/meta-50-tc-imm-40-asm-misc.f

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; UrForth level 1: self-hosting 32-bit Forth compiler
   3 ;; Metacompiler
   4 ;; Copyright (C) 2020 Ketmar Dark // Invisible Vector
   5 ;; GPLv3 ONLY
   6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   7
   8 : tc-$LABEL  ( -- ) \ name
   9   parse-name dup not-?abort" label name?"
  10   2dup + 1- c@ [char] : = ?abort" label should not end with colon"
  11     \ 2dup endcr ." NEW LABEL: " type cr
  12   asmx86:asm-PC asmx86:asm-Make-Label
  13 ;
  14
  15
  16 : tc-$INCLUDE  ( -- )
  17   parse-name dup not-?abort" include name?"
  18   include-file
  19 ;