Управление стержнями АЭС, страница 6

 11  0805   D3 83               OUT     PORCRL

 12  0807   06 00               MVI     B,0

 13  0809   1E 00               MVI     E,0

 14  080B   16 00               MVI     D,0

 15  080D   26 00               MVI     H,0

 16  080F   2E 00               MVI     L,0

 17  0811   3E 6C               MVI     A,6CH

 18  0813   D3 80               OUT     PORTA

 19  0815   D3 81               OUT     PORTB

 20  0817   0E 0E       VOZVR:  MVI     C,POVDK

 21  0819   DB 82       PEPT:   IN      PORTC

 22  081B   E6 09               ANI     KODKL

 23  081D   CA 17 08            JZ      VOZVR

 24  0820   0D                  DCR     C

 25  0821   C2 19 08            JNZ     PEPT

 26  0824   DB 82               IN      PORTC

 27  0826   47                  MOV     B,A

 28  0827   0E 0E       REZETL: MVI     C,POVDK

 29  0829   DB 82       REPTL:  IN      PORTC

 30  082B   A7                  ANA     A

 31  082C   C2 27 08            JNZ     REZETL

 32  082F   0D                  DCR     C

 33  0830   C2 29 08            JNZ     REPTL

 34  0833   78                  MOV     A,B

 35  0834   E6 01       REJ:    ANI     1H

 36  0836   C2 6E 08            JNZ     USLO

 37  0839   11 C3 08            LXI     D,BASE

 38  083C   7B                  MOV     A,E

 39  083D   95                  SUB     L

 40  083E   CA 17 08            JZ      VOZVR

 41  0841   21 C3 08            LXI     H,BASE

 42  0844   1E 07               MVI     E,7H

 43  0846   16 00               MVI     D,0

 44  0848   19                  DAD     D

 45  0849   54                  MOV     D,H

 46  084A   5D                  MOV     E,L

 47  084B   21 0F 00    VIVOD:  LXI     H,15

 48  084E   CD 8F 08            CALL    ZADER

 49  0851   21 05 00            LXI     H,5

 50  0854   CD 8F 08            CALL    ZADER

 51  0857   62                  MOV     H,D

 52  0858   6B                  MOV     L,E

 53  0859   7E                  MOV     A,M

 54  085A   D3 80               OUT     PORTA

 55  085C   2D                  DCR     L

 56  085D   7E                  MOV     A,M

 57  085E   D3 81               OUT     PORTB

 58  0860   2D                  DCR     L

 59  0861   5D                  MOV     E,L

 60  0862   01 C3 08            LXI     B,BASE

 61  0865   79                  MOV     A,C

 62  0866   2C                  INR     L

 63  0867   95                  SUB     L

 64  0868   C2 4B 08            JNZ     VIVOD

 65  086B   C3 17 08            JMP     VOZVR

 66  086E   21 0F 00    USLO:   LXI     H,15

 67  0871   CD 8F 08            CALL    ZADER

 68  0874   21 0F 00            LXI     H,15

 69  0877   CD 8F 08            CALL    ZADER

 70  087A   21 0F 00            LXI     H,15

 71  087D   CD 8F 08            CALL    ZADER

 72  0880   21 05 00            LXI     H,5

 73  0883   CD 8F 08            CALL    ZADER

 74  0886   3E 6C               MVI     A,6CH

 75  0888   D3 80               OUT     PORTA

 76  088A   D3 81               OUT     PORTB

 77  088C   C3 17 08            JMP     VOZVR

 78  088F   00          ZADER:  NOP

 79  0890   DB 82       ZADER1: IN      PORTC

 80  0892   E6 09               ANI     KODKL

 81  0894   CA BC 08            JZ      ZADER2

 82  0897   0E 0E               MVI     C,POVDK

 83  0899   DB 82       ZADER3: IN      PORTC

 84  089B   E6 09               ANI     KODKL

 85  089D   CA BC 08            JZ      ZADER2

 86  08A0   E5                  PUSH    H