Устройство управления светофором, страница 6

2 проход

  1                     porta equ   80h

  2                     portb equ   81h

  3                     portc equ   82h

  4                     porcrl     equ   83h

  5                     pov  equ   43528

  6                     povdr equ   255

  7                     kodkl equ   18h

  8                     kodkl1     equ   1ah

  9                     org  800h

 10  0800   31 00 09    lxi  sp,900h

 11  0803   3E 89       mvi  a,89h

 12  0805   D3 83       out  porcrl

 13  0807   06 00       mvi  b,0

 14  0809   16 00            mvi   d,0

 15  080B   C3 5B 08         jmp   noch

 16  080E   0E FF       circl:     mvi   c,povdr

 17  0810   DB 82       rept: in    portc

 18  0812   E6 18            ani   kodkl

 19  0814   CA 0E 08         jz    circl

 20  0817   0D          zach: dcr   c

 21  0818   C2 10 08    jnz  rept

 22  081B   DB 82       in   portc

 23  081D   47          mov  b,a

 24  081E   0E FF       reset1:    mvi   c,povdr

 25  0820   DB 82       rept1:     in    portc

 26  0822   A7               ana   a

 27  0823   C2 1E 08         jnz   reset1

 28  0826   0D               dcr   c

 29  0827   C2 20 08         jnz   rept1

 30  082A   78          mov  a,b

 31  082B   FE 08       cpi  08h

 32  082D   CA 5B 08         jz    noch

 33  0830   3E 10       jestk:     mvi   a,10h

 34  0832   D3 80            out   portb

 35  0834   3E 80            mvi   a,80h

 36  0836   D3 81            out   porta

 37  0838   CD 70 08         call  zad3

 38  083B   3E 02            mvi   a,02h

 39  083D   D3 80            out   portb

 40  083F   D3 81            out   porta

 41  0841   CD 75 08         call  zad2

 42  0844   3E 80            mvi   a,80h

 43  0846   D3 80            out   portb

 44  0848   3E 10            mvi   a,10h

 45  084A   D3 81            out   porta

 46  084C   CD 7A 08         call  zad5

 47  084F   3E 02            mvi   a,02h

 48  0851   D3 80            out   portb

 49  0853   D3 81            out   porta

 50  0855   CD 75 08         call  zad2

 51  0858   C3 30 08         jmp   jestk

 52  085B   3E 02       noch: mvi   a,02h

 53  085D   D3 80            out   portb

 54  085F   D3 81            out   porta

 55  0861   CD 75 08         call  zad2

 56  0864   3E 00            mvi   a,0h

 57  0866   D3 80            out   portb

 58  0868   D3 81            out   porta

 59  086A   CD 75 08         call  zad2

 60  086D   C3 5B 08         jmp   noch

 61  0870   16 03       zad3: mvi   d,3

 62  0872   C3 7F 08         jmp   zadr

 63  0875   16 02       zad2: mvi   d,2

 64  0877   C3 7F 08         jmp   zadr

 65  087A   16 05       zad5: mvi   d,5

 66  087C   C3 7F 08         jmp   zadr

 67  087F   CD 87 08    zadr: call  zader

 68  0882   15          dcr  d

 69  0883   C2 7F 08         jnz   zadr

 70  0886   C9               ret

 71  0887   21 08 AA    zader:     lxi   h,pov

 72  088A   DB 82       zader1:    in    portc

 73  088C   E6 1A            ani   kodkl1

 74  088E   CA BC 08         jz    zader2

 75  0891   0E FF            mvi   c,povdr

 76  0893   DB 82       zader3:    in    portc

 77  0895   E6 1A            ani   kodkl1

 78  0897   CA BC 08         jz    zader2

 79  089A   0D               dcr   c

 80  089B   C2 93 08         jnz   zader3

 81  089E   DB 82            in    portc

 82  08A0   47               mov   b,a

 83  08A1   0E FF       zader4:    mvi   c,povdr