;--- BEGIN ---------------------------------------------------;
;--- CONSTANTS -----------------------------------------------;
;--- DATA ----------------------------------------------------;
SEGMENT .data
;--- BSS -----------------------------------------------------;
SEGMENT .bss
;--- CODE ----------------------------------------------------;
SEGMENT .text
Unimp: jmp BadLight
; SysCall - this is called far only by BefOS applications.
; ax = destroyed
; bx = function number
SisCall: mov ax, cs
mov ds, ax
call bx
retf
RunAsm: call NotInEditMode
mov ax, [.RunSeg + 3]
mov es, ax
mov di, 0100h
.RLoop: mov ax, [cbuffer - 0100h + di]
mov [es:di], ax
inc di
inc di
cmp di, 2048 + 0100h
jne .RLoop
.RunSeg: call 0800h:0100h
mov ax, cs
mov ds, ax ; reset ds
call TextVidBase
ret
;--- END -----------------------------------------------------;