Аппаратура и методы поиска дефектов кабельных сетей

 

prstr:    push    PSW             ; Сохраняем регистр флагов

          mov     PSW, #bank3     ; Включаем bank3

ps1:      mov     A, #0

          movc    A, @A+DPTR      ; Получение очередного символа

          cjne    A, #0, ps2      ; Если это  не последний выводим

          pop     PSW

          RET

ps2:      LCALL   prchr           ; Выводим символ на экран

          inc     DPTR            ; Увеличиваем значение указателя

          LJMP    ps1

 

;--------------------------------------------------------------------

; Вывод сообщения об ошибке

;--------------------------------------------------------------------

prErr:    push    ACC

          LCALL   eclr            ; Очистить экран

          mov     A, #2h          ; Курсор  в позицию 2

          LCALL   ecur

          mov     DPTR, #serr     ; Вывести надпись "Error"

          LCALL   prstr

          pop     ACC

          LCALL   prchr

          RET

;

;

;

;

;

;--------------------------------------------------------------------

; Таблица символов для перекодировки  значений выводимой информации

;--------------------------------------------------------------------

 

         .ORG    0600h            ; Записать код с адреса 0600h

ts:      .DB     0EEh     ; 0

         .DB     060h     ; 1

         .DB     02Fh     ; 2

         .DB     06Dh     ; 3

         .DB     0E1h     ; 4

         .DB     0CDh     ; 5

         .DB     0CFh     ; 6

         .DB     068h     ; 7

         .DB     0EFh     ; 8

         .DB     0EDh     ; 9

         .DB     0EBh     ; A (10)

         .DB     0C7h     ; B (11)

         .DB     08Eh     ; C (12)

         .DB     067h     ; D (13)

         .DB     08Fh     ; E (14)

         .DB     08Bh     ; F (15)

         .DB     000h     ;   (16)

         .DB     0A9h     ; ' (17)

         .DB     001h     ; - (18)

         .DB     003h     ; r (19)

         .DB     047h     ; o (20)

 

         .ORG    0680h

serr:    .DB     14, 19, 19, 20, 19, 0     ; Сообщение "Error"

 

;-------------- Конец программы

 

          .END