mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 04:22:57 +02:00
22 lines
258 B
NASM
22 lines
258 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 class=stack
|
|
resb 4096
|
|
stacktop:
|
|
|
|
group dgroup stack
|