Replies

To: raybbr


   
    
    
    LD A,10100101B
   
   
    
    
    OUT (01),A
   
   
    START :
    LD HL,0070H
   
   
    
    
    LD C,0AH
   
   
    COMP :
    LD A,(HL)
   
   
    
    
    CP B
   
   
    
    
    INC HL
   
   
    
    
    JP Z,MATCH
   
   
    
    
    DEC C
   
   
    
    
    LD A, 00H
   
   
    
    
    CP C
   
   
    
    
    JP NZ,COMP
   
   
    
    
    JP Z, NMATCH
   
   
    MATCH :
    LD A,0F0H
   
   
    
    
    OUT (01),A
   
   
    
    
    HALT
   
   
    NMATCH :
    LD A, 0FH
   
   
    
    
    OUT (01),A
   
   
    
    
    HALT

61 posted on 01/13/2012 4:56:35 AM PST by whd23 (Every time a link is de-blogged an angel gets its wings.)

[ Post Reply | Private Reply | To 30 | View Replies ]

To: whd23

Assembler!

106 posted on 01/13/2012 9:14:37 AM PST by ctdonath2 ($1 meals: http://abuckaplate.blogspot.com/)

[ Post Reply | Private Reply | To 61 | View Replies ]

Free Republic
Browse · Search

General/Chat
Topics · Post Article

FreeRepublic, LLC, PO BOX 9771, FRESNO, CA 93794

	LD A,10100101B
	OUT (01),A
START :	LD HL,0070H
	LD C,0AH
COMP :	LD A,(HL)
	CP B
	INC HL
	JP Z,MATCH
	DEC C
	LD A, 00H
	CP C
	JP NZ,COMP
	JP Z, NMATCH
MATCH :	LD A,0F0H
	OUT (01),A
	HALT
NMATCH :	LD A, 0FH
	OUT (01),A
	HALT