`` `nasm

; truncate.asm

%makro trunkerede filnavn len =0

mov ecx, filnavn; markør til filnavn

Mov EDX, Len; Længde for at begrænse filstørrelsen

Xor Eax, Eax; kun åben læsning

Mov ebx, 0; trunkeret, hvis eksisterende

Ring [Åbn]; Åbn filen

Test EAX, EAX; Succes?

jnz @@ trunkeret

Xor eax, eax; trunkering

Ring [trunkeret]; afkort filen

Test EAX, EAX; Succes?

jnz @@ trunkeret

@@ trunkeret:

pop ecx; gendanne ECX før makro

%Endmacro

sektion .data

filnavn db 'truncate.txt', 0

Len DW 5

Sektion .Text

Antag CS:CODE, DS:Data

org 100h

Truncate Filname, Len

Mov Ah, 4ch; exit -program

Int 21h

`` `