$MOD51 ;I'm using an AT89C51
$DEBUG
$NOPAGING
$PAGEWIDTH(132)
================================================================
;Reset Code
================================================================

ORG 00H
SJMP INITIAL

================================================================
;Initialization Routine
================================================================

ORG 1BH
SETB P2.7 ;Turn on red LED
CLR P2.7 ;Turn off red LED
SETB P2.6 ;Turn on green LED
CLR P2.6 ;Turn off green LED

================================================================
;Main Routine
================================================================

Main: JB P2.3, NAND_G
JB P2.2, AND_G
JB P2.1, XOR_G
JB P2.0, OR_G
JB P0.6, NOR_G
JB P0.7, INVERT

================================================================
;Logic
================================================================

NAND_G: MOV P1.7, #0
MOV P1.6, #0
MOV P1.5, A
CJNE A, #1, R_LED

MOV P1.4, #0
MOV P1.3, #1
MOV P1.2, A
CJNE A, #1, R_LED

MOV P0.5, #1
MOV P0.4, #0
MOV P0.3, A
CJNE A, #1, R_LED

MOV P0.2, #1
MOV P0.1, #1
MOV P0.0, A
CJNE A, #0, R_LED

SETB P2.7
JMP MAIN

AND_G: MOV P1.7, #0
MOV P1.6, #0
MOV P1.5, A
CJNE A, #0, R_LED

MOV P1.4, #0
MOV P1.3, #1
MOV P1.2, A
CJNE A, #0, R_LED

MOV P0.5, #1
MOV P0.4, #0
MOV P0.3, A
CJNE A, #0, R_LED

MOV P0.2, #1
MOV P0.1, #1
MOV P0.0, A
CJNE A, #1, R_LED

SETB P2.7
JMP MAIN

OR_G: MOV P1.7, #0
MOV P1.6, #0
MOV P1.5, A
CJNE A, #0, R_LED

MOV P1.4, #0
MOV P1.3, #1
MOV P1.2, A
CJNE A, #1, R_LED

MOV P0.5, #1
MOV P0.4, #0
MOV P0.3, A
CJNE A, #1, R_LED

MOV P0.2, #1
MOV P0.1, #1
MOV P0.0, A
CJNE A, #1, R_LED

SETB P2.7
JMP MAIN

XOR_G: MOV P1.7, #0
MOV P1.6, #0
MOV P1.5, A
CJNE A, #0, R_LED

MOV P1.4, #0
MOV P1.3, #1
MOV P1.2, A
CJNE A, #1, R_LED

MOV P0.5, #1
MOV P0.4, #0
MOV P0.3, A
CJNE A, #1, R_LED

MOV P0.2, #1
MOV P0.1, #1
MOV P0.0, A
CJNE A, #0, R_LED

SETB P2.7
JMP MAIN

NOR_G: MOV P1.5, #0
MOV P1.6, #0
MOV P1.7, A
CJNE A, #1, R_LED

MOV P1.2, #0
MOV P1.3, #1
MOV P1.4, A
CJNE A, #0, R_LED

MOV P0.3, #1
MOV P0.4, #0
MOV P0.5, A
CJNE A, #0, R_LED

MOV P0.0, #1
MOV P0.1, #1
MOV P0.2, A
CJNE A, #0, R_LED

SETB P2.7
JMP MAIN

INVERT: MOV P1.7, #1
MOV P1.6, A
CJNE A, #0, R_LED

MOV P1.5, #1
MOV P1.4, A
CJNE A, #0, R_LED

MOV P1.3, #1
MOV P1.2, A
CJNE A, #0, R_LED

MOV P0.5, #1
MOV P0.4, A
CJNE A, #0, R_LED

MOV P0.3, #1
MOV P0.2, A
CJNE A, #0, R_LED

MOV P0.1, #1
MOV P0.0, A
CJNE A, #0, R_LED

SETB P2.7
JMP MAIN
================================================================
;Bad Chip Indicator
================================================================

R_LED: SETB P2.6
SJMP MAIN