DECDPTR:  XCH   A,DPL     ; Bewaar A in DPL
          JNZ   DECDPTR1  ; als low byte = 0
          DEC   DPH       ; DEC ook high byte
DECDPTR1: DEC   A         ; DEC low byte
          XCH   A,DPL     ; Restore A en
          RET             ; resutaat in low byte