LED1 EQU 01
	LED2 EQU 02
	LED3 EQU 03
	LED4 EQU 04
	LED5 EQU 05
	LED6 EQU 06
;
;
	ORG 800
;
#DISP_PROMPT
	LDI M, LED2
	LDI M, LED3
	LDI M, LED4
	LDI M, LED5
	LDI M, LED6
	LDI X, 01
	LDI A, 0E
	STRL [M,X], A
;
	ORG 9FF
;
  LDI M, 08
  JMP 00
  LDI A, 03
  LDI B, 04
  LDI X, 03
  LD  A, FF
  LD  A, [X]
  LDL A, [M,X]
  LDI M, 06		
  STR ff, A
  STR [X], A
  STRL [M,X], A
  XCHG A, B
  XCHG A, M
  XCHG B, X
  DEC B
  INC X
  ADC A, B
  ADC A, A
  SBC A, B
  CMP A, B
  AND A, B
  OR A, B
  XOR A, B
  BRA 00 
  BC 02   
  BNC 03  
  BZ 03  
  BNZ 04  
  JMP 05  
  JMP X 
  CLR X 
  CLR B 
  NOP   
  RET   	
  CLR A 
;
	BRA	#DISP_PROMPT
;
	ORG FF0
;
	LDI M, 08
	JMP 10