Разработка микропроцессорной системы управления ответственным объектом, страница 13

OUT_R               0142

C_STOP              0159

MULT                0164

INT0                0165

INT3                0194

INT4                01B0

CMP_A               01BE

E_INT2              01C9

INT5                01CB

A_ONE               01ED

A_ZERO              01F3

O_R1                01F6

INT1                0210

CONT                021D

INT2                0238

Q                   023E

A0                  023F

A1                  0240

L_FRQ               0241

H_FRQ               0242

DT                  0800

DT_INT              0801

SECOND              0802

STACK               0803

PIC                 8000

PPI                 8004

PCI                 8008

PIT                 800C

RG1                 8010

RG2                 8014

RG3                 8018

RG4                 801C

K                   8020

OUT_REG             8024

Lines                 :   409

Size compiling code   :   614

Size all code         : 32805

CRC add               :  E90C

CRC xor               :    98

Приложение Б

Ashling Microsystems - A51 Assembler - Version 3.0.0      01-08-:0 PAGE   1

SourceFile = 51.ASM

LOC   OBJ            LINE   SOURCE

1  ;-----------------------------------------------------

2  ;               Written by Karalenka Siarhej

3  ;-----------------------------------------------------

                     4 

0000                 5  org 0

0000 020030          6          ljmp ini

                     7 

                     8  ; обработчик прерывания int0

0003                 9  org 03h

0003 020094         10          ljmp ISR0

                    11 

                    12  ; обработчик прерывания int1

0013                13  org 13h

0013 0200A3         14          ljmp ISR1

                    15 

                    16  ; обработчик прерывания timer0

000B                17  org 0bh

000B 0200B4         18          ljmp T_ISR

                    19 

                    20  ; Инициализация

0030                21  org 30h

0030 75D000         22  ini:    mov psw,#0      ; используем банк регистров 0

0033 758805         23          mov tcon,#05    ; прерывание int0 - по срезу

0036 75A807         24          mov ie,#07      ; разрешено прерывание int0

0039 75B800         25          mov ip,#0       ; высший приоритет int0

003C 758108         26          mov sp,#8

003F 758000         27          mov p0,#0       ; обнуляем порты

0042 759000         28          mov p1,#0

0045 75A000         29          mov p2,#0

0048 75B000         30          mov p3,#0

004B 7800           31          mov r0,#0       ; обнуляем регистры-хранители

004D 7600           32  l1:     mov @r0,#0      ; тестовых комбинаций

004F D8FC           33          djnz r0,l1

                    34                 

0051 D285           35  BEGIN:  setb p0.5       ; установка режима "работа"

0053 10D5FD         36  l2:     jbc f0,l2       ; пока нет сигнала об выдаче

0056 C285           37          clr p0.5        ; результата на ОУ

                    38 

0058 7803           39          mov r0,#3       ; r0 - индекс

005A E580           40  A_K:    mov a,p0        ; проверка соответствия адресной

005C 5403           41          anl a,#3        ; комбинации индексу

005E 18             42          dec  r0

005F 68             43          xrl a,r0

0060 08             44          inc r0

0061 70F7           45          jnz A_K         ; пока не выбор V[r0]

0063 8690           46          mov p1,@r0      ; выдача тестового байта для N[r0]

0065 A282           47  CSACP:  mov c,p0.2

0067 50FC           48          jnc CSACP

0069 D284           49          setb p0.4       ; установка сигнала "READY"

006B A282           50  NCSACP: mov c,p0.2

006D 40FC           51          jc NCSACP

006F C284           52          clr p0.4

0071 D8E7           53          djnz r0,A_K     ; к началу цикла

0073 8C90           54          mov p1,r4       ; выдача тестового байта для x

0075 3083DB         55  l3:     jnb p0.3,l2

                    57  ; изменение тестовых комбинаций

0078 0C             58          inc r4

0079 EC             59          mov a,r4

007A 941F           60          subb a,#1fh