|
DSUB ADD #6666h,R5 ; Move content R5 from 0–9 to 6–0Fh
; R5 = 03987 + 6666 = 09FEDh
INV R5 ; Invert this (result back to 0–9)
; R5 = .NOT. R5 = 06012h
SETC ; Prepare carry = 1
DADD R5,R6 ; Emulate subtraction by addition of:
; (10000 – R5 – 1)
; R6 = R6 + R5 + 1
; R6 = 4137 + 06012 + 1 = 1 0150 = 0150
E-mail: info@telesys.ru