1. Assembler / Говнокод #6150

    +230

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    org VECTORS
 dw metka1
 org 3feh
 dw start

 org 200h

start:

 lda #0
 sta 0E0h
 sta 0E1h
 sta 0E2h

 clra
 lda #0f0h
 sta 4
 bset 5,0008h
 cli
 jmp $

metka1:

 rol 0
 bcs metka2

 lda #070h
 sta 4
 lda #1
 sta 0E0h
 jmp metka3

metka2:

 lda #0f0h
 sta 4

 lda 0E0h
 cmp 0E2h
 beq metka3

 lda #0
 sta 0E0h
 lda 0E1h
 inca
 sta 0E1h
 jmp metka4

metka3:

 lda 0E1h
 inca
 sta 0E1h

metka4:
 bset 2,0008h
 rti

END

    типовик

    Запостил: iliym, 31 Марта 2011

    Комментарии (3) RSS

    Добавить комментарий