mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 08:53:42 +02:00
28 lines
296 B
NASM
28 lines
296 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 data use16
|
|
|
|
segment stack stack
|
|
resb 1024
|
|
stacktop:
|
|
|
|
segment bss
|
|
|
|
group dgroup data bss stack
|