FIBOL.EXE.a1 5.7 KB

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