NAME BLTSYM

;     'Copyright 1981,1983 Intel Corporation'.  All rights reserved.
;      No part of this program or publication may be reproduced,
;      transmitted, transcribed, stored in a retrievel system, or
;      translated into any language or computer language, in any
;      form or by any means, electronic, mechanical, magnetic,
;      optical, chemical, manual or otherwise, without the prior
;      written permission of Intel Corporation, 3065 Bowers
;      Avenue, Santa Clara, California, 95051, Attn: Software
;      License Administration.

; BLTSYM: A "BC IS LESS THAN DE" ROUTINE WHICH WORKS
;  ON INTERNAL RECORDS PRODUCED BY THE mrg86 PROGRAM.

        CSEG
        PUBLIC BLTSYM

BLTSYM:
        MOV H,B
        MOV L,C
        MOV C,M
        INX H
        MOV B,M
        XCHG
        MOV E,M
        INX H
        MOV D,M
        XCHG
        INX B
        INX B
        INX B
        INX B
        INX H
        INX H
        INX H
        INX H
CRUISE:
        LDAX B
        CMP M
        JC TRUE
        JNZ FALSE
        CPI 0
        INX H
        INX B
        JNZ CRUISE
        MOV A,C
        SUB L
        MOV A,B
        SBB H
        SBB A
        RET
TRUE:
        MVI A,0FFH
        RET
FALSE:
        SUB A
        RET

        END