; LED 2
; ports: control 31 to select left entry (08) or right entry (18)
;        data    30 to output 7seg digit
;letters k m t w x hard...
    
                
Connect led79
                     
	JMP	Start                                                     
	DB	0,76,79,38,38,3F	;HELLO in string buffer
		
Start:	MOV	BX,1003		;start of string buffer	
						
;select right entry (good for scrolling)
        MOV     AL,18	
        OUT     31,AL 	

	MOV	CX,ff		;looping
	MOV	SI,0
Scroll:
	INC	SI		;index into string buffer array
	CMP	SI,06		;if reached end of array...
	JNE	noreset
	MOV	SI,0		;reset to beginning
noreset:
        MOV     AL,[BX+SI]	;array base + index
        OUT     30,AL  		;output to LED

	CALL	KillTime	;slow down the scrolling
		
        LOOP	Scroll

	HLT
   
      
PROC KillTime
	PUSH	DX	;save registers will use
	PUSH	BX
		
	MOV	DX,4fff
 burncpu:			
	mul	bl		;kill time
	mul	bl
	mul	bl
	dec	DX
	JNZ	burncpu
		
	POP	BX	;restore registers
	POP	DX
	RET         

		
