; Hardcore MC8051 Input-Output Coding done by Zulu & Grey of Rebels

        DEFSEG HexTo7Seg,start=0000H,CLASS=CODE

        SEG    HexTo7Seg

PortA   EQU    0fffch
PortB   EQU    0fffdh
PortC   EQU    0fffeh
Contr   EQU    0ffffh

Mode    EQU    08bh

START:
      mov        dptr,#Contr
      mov        a,#mode
      movx       @dptr,a
HexTo7SegLoop:
              mov  dptr,#portb
              movx a,@dptr

              clr  c
              mov  p1.7,c
              mov  p1.6,c
              mov  p1.5,c
              mov  p1.4,c

              mov  R1,p1
              add  a,r1

              mov  dptr,#porta
              movx @dptr,a

              anl  a,#0f0h
              orl  p1,a

              ljmp HexTo7SegLoop

              END


        END