;; CALLINT ( ... n --> DI SI ВР SP BX DX СХ АХ )
;; Загрузить специальный ряд регистров, вызвать прерывание n и возвратить
;;  полученый ряд регистров.
;           0  1  2  3  4  5  6  7
; 50+n push АХ СХ DX BX SP ВР SI DI
; 58+n pop  АХ СХ DX BX SP ВР SI DI
AWORD CALLINT,"CALLINT",0
xchg sp,bp
pop ax
mov [.n],al
mov [.rp],bp
@@:
pop cx
  jcxz @f
dec cl
and cl,7
  jz .movedax
add cl,0x58 ; pop reg
mov [.popcom],al
.popcom rb 1
  jmp @b
.movedax:
pop [.dax]
  jmp @b
@@:
db 0xB8 ; mov ax,
.dax rw 1
db 0xCD ; int
.n rb 1
pusha
db 0xBD ; mov bp,
.rp rw 1
xchg sp,bp
AEND

HEX
VOCABULARY K4tH ONLY FORTH ALSO K4tH DEFINITIONS
10000 CONSTANT Msz      CREATE M Msz ALLOT
100 VALUE THERE      0 VALUE TLAST      0 VALUE NLAST

: B,  M THERE + C! THERE 1+    TO THERE ;
: W,  M THERE + W! THERE 2+    TO THERE ;
: D,  M THERE +  ! THERE 2+ 2+ TO THERE ;

: NEXT,
AD B,   \ lodsw
C389 W, \ mov bx,ax
27FF W, \ jmp word[bx]
;

: NFA, PARSE-NAME DUP B, DUP ( addr sz sz )
THERE SWAP OVER + ( addr sz there there+sz )
TO THERE SWAP CMOVE
;

: LFA, TLAST @ W, ;

: :CODE THERE DUP TO NLAST
NFA, LFA, THERE 2+ W,
CREATE , DOES> @ W,
;

: ;CODE NEXT, NLAST TO TLAST ;

:CODE BRANCH 348B W, ;CODE \ mov si,[si]

\ : :: ... ;
\ : ;; ... ;

\ Сохранение образа системы

0 VALUE fhnd
: SAVE"
[CHAR] " WORD COUNT W/O CREATE-FILE DROP TO fhnd
M THERE 100 - fhnd WRITE-FILE DROP
fhnd CLOSE-FILE DROP
BYE
;

SAVE" K4tH.COM"

: NFA, PARSE-NAME DUP B, DUP ( addr sz sz )
THERE + ( addr sz there+sz )
TO THERE M SWAP 3 .SN KEY DROP CMOVE
;

3 .SN KEY DROP

: S,
>R
M THERE @ + R@ CMOVE
R> THERE +!
;

:CODE NOP ;CODE
:: abc \ как и :CODE, только для высокоуровневых слов
NOP \ компилирует NOP из целевого словаря
;;