[an error occurred while processing this directive]

<pre>
<!-- -->
*-----------------------------------*
* Проверка состояния интерпретатора *
*-----------------------------------*
                                           
DIALOG   LDX ALIN+1
         INX
         BEQ DIALOG1
         LDX PROMPT
         CPX #'}
         BEQ DIALOG1
         SEC            Выполняется программа USERa
         RTS
DIALOG1  CLC            Бейсик в диалоге
         RTS       
<!-- -->
*-----------------------------------------*
* Проверить, что все параметры меньше 256 *
*-----------------------------------------*
<!-- -->
<!-- -->
CH.PARH  LDX XBUF1
         BEQ CH.PARH3
         DEX
CH.PARH1 LDA BUF11,X
         BNE CH.PARH2
         DEX
         BPL CH.PARH1
CH.PARH3 RTS
CH.PARH2 JMP BASERR46
<!-- -->
<!-- -->
*---------------------------------*   
* ДЕСЯТИЧНОЕ ПРЕОБРАЗОВАНИЕ БАЙТА * 
*---------------------------------*
<!-- -->
; вход: A-байт 
; выход: DNUMBER - три десятичных цифры
<!-- -->
DECOZ    LDX#&curren;FF
         STX DNUMBER+2
         STX DNUMBER+1
         LDX#2
DECOZ1   INC DNUMBER,X
         SEC
         SBC DECI,X
         BCS DECOZ1
         ADC DECI,X
         DEX
         BNE DECOZ1
         STA DNUMBER
         RTS
<!-- -->
DNUMBER  DS 3
DECI     DFB 0,10,100   
                        
</pre>
<p>.ст Раздел I:Приложение 5</p>

[an error occurred while processing this directive]