==========
C> s off # subroutin
C> t on # trasování
C> SPACE # krokování
==========
--- Intel HEX format ---
LED_ON:
3E C0 30 00 76 (NOP + HLT)
L 8000
:098000003EC030007600000000D3
:00000001FF
==========================================
BLINK: c000 / DELAY: CALL C013 // CD 13 C0
L C000
:10C000002100C0F93EC030CD13C03E4030CD13C03A
:10C01000C304C03EFF473D05C217C0FE00C216C0A4
:02C02000C90055
:00000001FF
C000 21 00 C0 !.. LXI H,$C000
C003 F9 . SPHL
C004 3E C0 >. MVI A,$C0
C006 30 0 SIM
C007 CD 13 C0 ... CALL $C013
C00A 3E 40 >@ MVI A,$40
C00C 30 0 SIM
C00D CD 13 C0 ... CALL $C013
C010 C3 04 C0 ... JMP $C004
C013 3E FF >. MVI A,$FF
C015 47 G MOV B,A
C016 3D = DCR A
C017 05 . DCR B
C018 C2 17 C0 ... JNZ $C017
C01B FE 00 .. CPI $00
C01D C2 16 C0 ... JNZ $C016
C020 C9 . RET
C021 00 . NOP
===============================================
ORG C022
;USART_DATA EQU 08h
;USART_CMD EQU 09h
; Write character to USART
USART_OUT: IN 09h;USART_CMD
ANI 1 ; Test TxRdy
JZ USART_OUT ; Wait until USART is ready to transmit
MOV A,C
OUT 08h;USART_DATA ; Write character
RET
;------------------------------------
MVI A,38h ; '8'
MOV C,A
CALL USART_OUT
USART_OUT
L C022
:0CC02200DB09E601CA22C079D308C9007E
:00000001FF
C022 DB 09 .. IN $09
C024 E6 01 .. ANI $01
C026 CA 22 C0 .". JZ $C022
C029 79 y MOV A,C
C02A D3 08 .. OUT $08
C02C C9 . RET
C02D 00 . NOP
= 3e "38" 4f cd 22 c0
o 6f
c 63
t 74
o 6f
p 70
u 75
s 73
CR 0d - C12a
LF 0a
C> h c100 c137
:10C100003E6F4FCD22C03E634FCD22C03E744FCD17
:10C1100022C03E6F4FCD22C03E704FCD22C03E7533
:10C120004FCD22C03E734FCD22C03E0D4FCD22C019
:08C130003E0A4FCD22C00000C1
:00000001FF
===============================================
-----------------------------------
