Разработка микропроцессорной централизации малой станции. Разработка структурной схемы МПС. Блок центрального процессора, страница 20

054D  3E FF                MVI   A,FFH    ;

054F  D3 C4                OUT   PORT1    ;

0551  D3 C5                OUT   PORT2    ;

0553  3E 01                MVI   A,01H    ;

0555  D3 C7                OUT   PPI1MS   ;

0557  3E FF                MVI   A,FFH    ;

0559  32 00 2B             STA   2B00H    ;

055C  C3 4F 02   EX_V:     JMP   BASE     ;

055F  3E 0F      ERROR:    MVI   A,0FH    ;

0561  D3 E7                OUT   PPI3MS   ;

0563  C9                   RET

0564  3A 00 2B   F_END:    LDA   2B00H    ;

0567  F6 FF                ORI   FFH      ;

0569  CA 3D 05             JZ    VIKL     ;

056C  CD 69 0B             CALL  TESTER   ; testing bus

056F  C3 4F 02             JMP   BASE     ; общий цикл

0572  E5         TEST_SVB: PUSH  H        ;

0573  CD 1D 04             CALL  ADRES    ; косвенный адрес

0576  EB                   XCHG           ;

0577  26 22                MVI   H,22H    ; таблица свободности

0579  CD 61 04             CALL  SVOBOD   ;

057C  7B                   MOV   A,E      ;

057D  FE FF                CPI   FFH      ;

057F  CA 86 05             JZ    EXIT_TS  ;

0582  E1                   POP   H        ;

0583  3E 05                MVI   A,05H    ;

0585  77                   MOV   M,A      ;

0586  C9         EXIT_TS:  RET            ; возврат

0587  7D         RAZMYK:   MOV   A,L      ;

0588  FE 00                CPI   00H      ;

058A  CC E3 05             CZ    RM1      ;

058D  7D                   MOV   A,L      ;

058E  FE 01                CPI   01H      ;

0590  CC 8D 06             CZ    RM2      ;

0593  7D                   MOV   A,L      ;

0594  FE 02                CPI   02H      ;

0596  CC 65 07             CZ    RM3      ;

0599  7D                   MOV   A,L      ;

059A  FE 03                CPI   03H      ;

059C  CC 0F 08             CZ    RM4      ;

059F  7D                   MOV   A,L      ;

05A0  FE 04                CPI   04H      ;

05A2  CC E7 08             CZ    RM5      ;

05A5  7D                   MOV   A,L      ;

05A6  FE 05                CPI   05H      ;    выбор размыкающегося маршрута

05A8  CC ED 09             CZ    RM6      ;

05AB  7D                   MOV   A,L      ;

05AC  FE 06                CPI   06H      ;

05AE  CC E3 05             CZ    RM1      ;

05B1  7D                   MOV   A,L      ;

05B2  FE 07                CPI   07H      ;

05B4  CC 8D 06             CZ    RM2      ;

05B7  7D                   MOV   A,L      ;

05B8  FE 08                CPI   08H      ;

05BA  CC 65 07             CZ    RM3      ;

05BD  7D                   MOV   A,L      ;

05BE  FE 09                CPI   09H      ;

05C0  CC 0F 08             CZ    RM4      ;

05C3  7D                   MOV   A,L      ;

05C4  FE 0A                CPI   0AH      ;

05C6  CC E7 08             CZ    RM5      ;

05C9  7D                   MOV   A,L      ;

05CA  FE 0B                CPI   0BH      ;

05CC  CC ED 09             CZ    RM6      ;

05CF  C9                   RET            ;

05D0  3A 40 20   MDMUDAL:  LDA   MDM_OUTB1 ;

05D3  E6 F0                ANI   F0H      ;

05D5  FE 00                CPI   00H      ;

05D7  CA DF 05             JZ    STABL    ;  удаляет разделанный маршрут из

05DA  3A 40 20             LDA   MDM_OUTB1 ;  байта для передачи на ПСА

05DD  E6 0F                ANI   0FH      ;

05DF  32 40 20   STABL:    STA   MDM_OUTB1 ;

05E2  C9                   RET            ;

05E3  26 2A      RM1:      MVI   H,2AH    ;

05E5  7E                   MOV   A,M      ;

05E6  E6 01                ANI   01H      ;

05E8  FE 00                CPI   00H      ;

05EA  C2 FC 05             JNZ   RM12     ;

05ED  3A 2D 20             LDA   P1U      ;

05F0  FE 03                CPI   03H      ;

05F2  CA 41 06             JZ    EXIT_11  ;

05F5  7E                   MOV   A,M      ;

05F6  F6 01                ORI   01H      ;

05F8  77                   MOV   M,A      ;

05F9  C3 41 06             JMP   EXIT_11  ;