FIBOL.EXE.a2 5.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697
  1. proc_1 PROC FAR
  2. 000 00053C 55 PUSH bp
  3. 001 00053D 8BEC MOV bp, sp
  4. 002 00053F 56 PUSH si
  5. 003 000540 8B7606 MOV si, [bp+6]
  6. 004 000543 83FE02 CMP si, 2
  7. 005 000546 7E1E JLE L1
  8. 006 000548 8BC6 MOV ax, si
  9. 007 00054A 48 DEC ax
  10. 008 00054B 50 PUSH ax
  11. 009 00054C 0E PUSH cs
  12. 010 00054D E8ECFF CALL near ptr proc_1
  13. 011 000550 59 POP cx
  14. 012 000551 50 PUSH ax
  15. 013 000552 8BC6 MOV ax, si
  16. 014 000554 05FEFF ADD ax, 0FFFEh
  17. 015 000557 50 PUSH ax
  18. 016 000558 0E PUSH cs
  19. 017 000559 E8E0FF CALL near ptr proc_1
  20. 018 00055C 59 POP cx
  21. 019 00055D 8BD0 MOV dx, ax
  22. 020 00055F 58 POP ax
  23. 021 000560 03C2 ADD ax, dx
  24. 023 00056B 5E L2: POP si
  25. 024 00056C 5D POP bp
  26. 025 00056D CB RETF
  27. 026 000566 B80100 L1: MOV ax, 1
  28. 027 000569 EB00 JMP L2
  29. proc_1 ENDP
  30. main PROC FAR
  31. 000 0004C2 55 PUSH bp
  32. 001 0004C3 8BEC MOV bp, sp
  33. 002 0004C5 83EC04 SUB sp, 4
  34. 003 0004C8 56 PUSH si
  35. 004 0004C9 57 PUSH di
  36. 005 0004CA 1E PUSH ds
  37. 006 0004CB B89400 MOV ax, 94h
  38. 007 0004CE 50 PUSH ax
  39. 008 0004CF 9A0E004D01 CALL far ptr printf
  40. 009 0004D4 59 POP cx
  41. 010 0004D5 59 POP cx
  42. 011 0004D6 16 PUSH ss
  43. 012 0004D7 8D46FC LEA ax, [bp-4]
  44. 013 0004DA 50 PUSH ax
  45. 014 0004DB 1E PUSH ds
  46. 015 0004DC B8B100 MOV ax, 0B1h
  47. 016 0004DF 50 PUSH ax
  48. 017 0004E0 9A07000102 CALL far ptr scanf
  49. 018 0004E5 83C408 ADD sp, 8
  50. 019 0004E8 BE0100 MOV si, 1
  51. 021 000528 3B76FC L3: CMP si, [bp-4]
  52. 022 00052B 7EC0 JLE L4
  53. 023 00052D 33C0 XOR ax, ax
  54. 024 00052F 50 PUSH ax
  55. 025 000530 9A0A005A00 CALL far ptr exit
  56. 026 000535 59 POP cx
  57. 027 000536 5F POP di
  58. 028 000537 5E POP si
  59. 029 000538 8BE5 MOV sp, bp
  60. 030 00053A 5D POP bp
  61. 031 00053B CB RETF
  62. 032 0004ED 1E L4: PUSH ds
  63. 033 0004EE B8B400 MOV ax, 0B4h
  64. 034 0004F1 50 PUSH ax
  65. 035 0004F2 9A0E004D01 CALL far ptr printf
  66. 036 0004F7 59 POP cx
  67. 037 0004F8 59 POP cx
  68. 038 0004F9 16 PUSH ss
  69. 039 0004FA 8D46FE LEA ax, [bp-2]
  70. 040 0004FD 50 PUSH ax
  71. 041 0004FE 1E PUSH ds
  72. 042 0004FF B8C300 MOV ax, 0C3h
  73. 043 000502 50 PUSH ax
  74. 044 000503 9A07000102 CALL far ptr scanf
  75. 045 000508 83C408 ADD sp, 8
  76. 046 00050B FF76FE PUSH word ptr [bp-2]
  77. 047 00050E 9A7C004C00 CALL far ptr proc_1
  78. 048 000513 59 POP cx
  79. 049 000514 8BF8 MOV di, ax
  80. 050 000516 57 PUSH di
  81. 051 000517 FF76FE PUSH word ptr [bp-2]
  82. 052 00051A 1E PUSH ds
  83. 053 00051B B8C600 MOV ax, 0C6h
  84. 054 00051E 50 PUSH ax
  85. 055 00051F 9A0E004D01 CALL far ptr printf
  86. 056 000524 83C408 ADD sp, 8
  87. 057 000527 46 INC si
  88. 058 JMP L3 ;Synthetic inst
  89. main ENDP