mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-03 06:07:37 +01:00
22 lines
246 B
NASM
22 lines
246 B
NASM
; nasm -f obj -o prt0.o prt0.asm
|
|
|
|
cpu 8086
|
|
|
|
segment text use16
|
|
|
|
extern PASCALMAIN
|
|
|
|
..start:
|
|
mov ax, dgroup
|
|
mov ss, ax
|
|
mov sp, stacktop
|
|
mov ds, ax
|
|
mov es, ax
|
|
jmp PASCALMAIN
|
|
|
|
segment stack stack
|
|
resb 4096
|
|
stacktop:
|
|
|
|
group dgroup stack
|