newart, ВНИМАНИЕ ОЧЕПЯТКА!!!
Все в той же (https://zxpress.ru/article.php?id=7872)
На этот раз по моей вине. Каюсь Когда забивал недостающий кусок, по невнимательности забил LD A,B вместо LD A,6.
Ищем участок:
Код:
        ADC     A,B             ;тысяч, и их сами - отдельно
        PUSH    HL              ;------------------------------------
        LD      HL,DECTB_W      ;Обходимый фрагмент процедуры PDEC_W
        LD      B,#05           ;------------------------------------
        JR      LP_PDW1+1       ;прыжок через обнуление десятков тысяч
;---------------------------------------------------------------------
Меняем на:
Код:
        ADC     A,6             ;тысяч, и их сами - отдельно
        PUSH    HL              ;------------------------------------
        LD      HL,DECTB_W      ;Обходимый фрагмент процедуры PDEC_W
        LD      B,#05           ;------------------------------------
        JR      LP_PDW1+1       ;прыжок через обнуление десятков тысяч
;---------------------------------------------------------------------
Извиняюсь.