Real time clock

   4100    21 00 00    HOUR: LXI H,0000H    4103    3E 00       MIN: MVI A,00H    4105    32 00 50    SEC: STA 5000H    4108    CD 40 41     CALL DISPLY    410B    CD 36 41     CALL DELAY    410E    CD 36 41     CALL DELAY    4111    3A 00 50     LDA 5000H    4114    C6 01        ADI 01H    4116    27           DAA    4117    FE 60        CPI 60H    4119    C2 05 41     JNZ SEC    411C    7D           MOV A,L    411D    C6 01        ADI 01H    411F    27           DAA    4120    6F           MOV L,A    4121    FE 60        CPI 60H    4123    C2 03 41     JNZ MIN    4126    2E 00        MVI L,00H    4128    7C           MOV A,H    4129    C6 01        ADI 01H    412B    27           DAA    412C    67           MOV H,A    412D    FE 24        CPI 24H    412F    C2 03 41     JNZ MIN    4132    C3 00 41     JMP HOUR    4135    76           HLT    4136    01 00 F4    DELAY: LXI B,0F400H    4139    0B          WAIT: DCX B    413A    79           MOV A,C    413B    B0           ORA B    413C    C2 39 41     JNZ WAIT    413F    C9           RET    4140    57          DISPLY: MOV D,A    4141    3E 02        MVI A,02H    4143    CD 05 00     CALL 0005H    4146    3E 0C        MVI A,0CH    4148    0E 0A        MVI C,0AH    414A    CD 05 00     CALL 0005H    414D    55           MOV D,L    414E    0E 05        MVI C,05H    4150    3E 0C        MVI A,0CH    4152    CD 05 00     CALL 0005H    4155    54           MOV D,H    4156    0E 00        MVI C,00H    4158    3E 0C        MVI A,0CH    415A    CD 05 00     CALL 0005H    415D    C9           RET