Category : C Source Code
Archive   : ASMPROCS.ZIP
Filename : FICTION.ASM

ifndef ??version
?debug macro
endm
publicdll macro name
public name
endm
$comm macro name,dist,size,count
comm dist name:BYTE:count*size
endm
else
$comm macro name,dist,size,count
comm dist name[size]:BYTE:count
endm
endif
?debug S "fiction.cpp"
?debug C E9D2BE0D170B66696374696F6E2E637070
FICTION_TEXT segment byte public 'CODE'
FICTION_TEXT ends
DGROUP group _DATA,_BSS
assume cs:FICTION_TEXT,ds:DGROUP
_DATA segment word public 'DATA'
d@ label byte
d@w label word
_DATA ends
_BSS segment word public 'BSS'
b@ label byte
b@w label word
_BSS ends
FICTION_TEXT segment byte public 'CODE'
;
; void pascal fiction1(int x, long int y, long int z){
;
assume cs:FICTION_TEXT
@FICTION1$QILL proc far
push bp
mov bp,sp
sub sp,4
;
; register int i1;
; register int i2;
; x=0;
;
mov word ptr [bp+14],0
;
; y=0;
;
mov word ptr [bp+12],0
mov word ptr [bp+10],0
;
; z=0;
;
mov word ptr [bp+8],0
mov word ptr [bp+6],0
;
; i1=0;
;
mov word ptr [bp-2],0
;
; i2=0;
;
mov word ptr [bp-4],0
;
; }
;
mov sp,bp
pop bp
ret 10
@FICTION1$QILL endp
?debug C E9
FICTION_TEXT ends
_DATA segment word public 'DATA'
s@ label byte
_DATA ends
FICTION_TEXT segment byte public 'CODE'
FICTION_TEXT ends
_s@ equ s@
public @FICTION1$QILL
end