User`s manual

135 Appendix C
;[]==========================================================[]
Belt_GPO_SEQProcNear
pusha
mov cx, SEQ_LEN
reset_seq:
mov ax, cx
sub ax, SEQ_LEN
neg ax
xlat
xor ah, ah
call Set_GPO_Level
loop reset_seq
mov cx, SEQ_LEN
gpo_sts:
mov ax, cx
sub ax, SEQ_LEN
neg ax
cmp ax, dx
je p_1
P_HEX 0
jmp p_0
p_1:
P_HEX 1
p_0:
P_CHAR20h
loop gpo_sts
mov ax, dx
xlat
mov ah, 1
call Set_GPO_Level
popa
ret
Belt_GPO_SEQEndP