home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s196 / 2.img / FICTION.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-13  |  1.4 KB  |  79 lines
  1.     ifndef    ??version
  2. ?debug    macro
  3.     endm
  4. publicdll macro    name
  5.     public    name
  6.     endm
  7. $comm    macro    name,dist,size,count
  8.     comm    dist name:BYTE:count*size
  9.     endm
  10.     else
  11. $comm    macro    name,dist,size,count
  12.     comm    dist name[size]:BYTE:count
  13.     endm
  14.     endif
  15.     ?debug    S "fiction.cpp"
  16.     ?debug    C E9D2BE0D170B66696374696F6E2E637070
  17. FICTION_TEXT    segment byte public 'CODE'
  18. FICTION_TEXT    ends
  19. DGROUP    group    _DATA,_BSS
  20.     assume    cs:FICTION_TEXT,ds:DGROUP
  21. _DATA    segment word public 'DATA'
  22. d@    label    byte
  23. d@w    label    word
  24. _DATA    ends
  25. _BSS    segment word public 'BSS'
  26. b@    label    byte
  27. b@w    label    word
  28. _BSS    ends
  29. FICTION_TEXT    segment byte public 'CODE'
  30.    ;    
  31.    ;    void pascal fiction1(int x, long int y, long int z){
  32.    ;    
  33.     assume    cs:FICTION_TEXT
  34. @FICTION1$QILL    proc    far
  35.     push    bp
  36.     mov    bp,sp
  37.     sub    sp,4
  38.    ;    
  39.    ;    register int i1;
  40.    ;    register int i2;
  41.    ;    x=0;
  42.    ;    
  43.     mov    word ptr [bp+14],0
  44.    ;    
  45.    ;    y=0;
  46.    ;    
  47.     mov    word ptr [bp+12],0
  48.     mov    word ptr [bp+10],0
  49.    ;    
  50.    ;    z=0;
  51.    ;    
  52.     mov    word ptr [bp+8],0
  53.     mov    word ptr [bp+6],0
  54.    ;    
  55.    ;    i1=0;
  56.    ;    
  57.     mov    word ptr [bp-2],0
  58.    ;    
  59.    ;    i2=0;
  60.    ;    
  61.     mov    word ptr [bp-4],0
  62.    ;    
  63.    ;    }
  64.    ;    
  65.     mov    sp,bp
  66.     pop    bp
  67.     ret    10
  68. @FICTION1$QILL    endp
  69.     ?debug    C E9
  70. FICTION_TEXT    ends
  71. _DATA    segment word public 'DATA'
  72. s@    label    byte
  73. _DATA    ends
  74. FICTION_TEXT    segment byte public 'CODE'
  75. FICTION_TEXT    ends
  76. _s@    equ    s@
  77.     public    @FICTION1$QILL
  78.     end
  79.