Codigo Cubo Led 3X3X3 Pic 16F628A En Microcodestudio

;PIC 16F628A

; PICBASIC PRO(TM) Compiler 2.50b.
PM_USED EQU 1

INCLUDE "16F628A.INC"

RAM_START EQU 00020h
RAM_END EQU 0014Fh
RAM_BANKS EQU 00003h
BANK0_START EQU 00020h
BANK0_END EQU 0007Fh
BANK1_START EQU 000A0h
BANK1_END EQU 000EFh
BANK2_START EQU 00120h
BANK2_END EQU 0014Fh
EEPROM_START EQU 02100hEEPROM_END EQU 0217Fh

R0 EQU RAM_START + 000h
R1 EQU RAM_START + 002h
R2 EQU RAM_START + 004h
R3 EQU RAM_START + 006h
R4 EQU RAM_START + 008h
R5 EQU RAM_START + 00Ah
R6 EQU RAM_START + 00Ch
R7 EQU RAM_START + 00Eh
R8 EQU RAM_START + 010h
FLAGSEQU RAM_START + 012h
GOP EQU RAM_START + 013h
RM1 EQU RAM_START + 014h
RM2 EQU RAM_START + 015h
RR1 EQU RAM_START + 016h
RR2 EQU RAM_START + 017h
_i EQU RAM_START + 018h
_m EQU RAM_START + 019h
_x EQU RAM_START + 01Ah
_y EQU RAM_START + 01Bh_PORTL EQU PORTB
_PORTH EQU PORTA
_TRISL EQU TRISB
_TRISH EQU TRISA
INCLUDE "CUBODE~1.MAC"
INCLUDE "PBPPIC14.LIB"

MOVE?CB 007h, CMCON
MOVE?CB 000h, TRISA
MOVE?CB 000h, TRISB
MOVE?CB 032h, _y
MOVE?CB 003E8h, _m

LABEL?L _MALP
MOVE?CB 001h, _x
LABEL?L L00001
CMPGT?BBL _x, _m, L00002
MOVE?CB 006h, PORTA
MOVE?CB 001h,PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00001
LABEL?L L00002
MOVE?CB 001h, _x
LABEL?L L00003
CMPGT?BBL _x, _m, L00004
MOVE?CB 005h, PORTA
MOVE?CB 008h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00003
LABEL?L L00004
MOVE?CB 001h, _x
LABEL?L L00005
CMPGT?BBL _x, _m, L00006
MOVE?CB 006h, PORTA
MOVE?CB 040h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00005
LABEL?L L00006MOVE?CB 001h, _x
LABEL?L L00007
CMPGT?BBL _x, _m, L00008
MOVE?CB 003h, PORTA
MOVE?CB 010h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00007
LABEL?L L00008
MOVE?CB 001h, _x
LABEL?L L00009
CMPGT?BBL _x, _m, L00010
MOVE?CB 006h, PORTA
MOVE?CB 002h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00009
LABEL?L L00010
MOVE?CB 001h, _x
LABEL?L L00011
CMPGT?BBL _x, _m, L00012MOVE?CB 003h, PORTA
MOVE?CB 080h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00011
LABEL?L L00012
MOVE?CB 001h, _x
LABEL?L L00013
CMPGT?BBL _x, _m, L00014
MOVE?CB 005h, PORTA
MOVE?CB 002h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00013
LABEL?L L00014
MOVE?CB 001h, _x
LABEL?L L00015
CMPGT?BBL _x, _m, L00016
MOVE?CB 003h, PORTA
MOVE?CB 020h, PORTB
GOSUB?L _IRNEXT?BCL _x, 001h, L00015
LABEL?L L00016
MOVE?CB 001h, _x
LABEL?L L00017
CMPGT?BBL _x, _m, L00018
MOVE?CB 003h, PORTA
MOVE?CB 004h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00017
LABEL?L L00018
MOVE?CB 001h, _x
LABEL?L L00019
CMPGT?BBL _x, _m, L00020
MOVE?CB 00Eh, PORTA
MOVE?CB 000h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00019
LABEL?L L00020
MOVE?CB 001h, _xLABEL?L L00021
CMPGT?BBL _x, _m, L00022
MOVE?CB 003h, PORTA
MOVE?CB 004h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00021
LABEL?L L00022
MOVE?CB 001h, _x
LABEL?L L00023
CMPGT?BBL _x, _m, L00024
MOVE?CB 005h, PORTA
MOVE?CB 080h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00023
LABEL?L L00024
MOVE?CB 001h, _x
LABEL?L L00025
CMPGT?BBL _x, _m, L00026
MOVE?CB 00Bh, PORTAMOVE?CB 000h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00025
LABEL?L L00026
MOVE?CB 001h, _x
LABEL?L L00027
CMPGT?BBL _x, _m, L00028
MOVE?CB 006h, PORTA
MOVE?CB 010h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00027
LABEL?L L00028
MOVE?CB 001h, _x
LABEL?L L00029
CMPGT?BBL _x, _m, L00030
MOVE?CB 003h, PORTA
MOVE?CB 020h, PORTB
GOSUB?L _IR
NEXT?BCL _x, 001h, L00029...