led.rom

ECOG bootloader, used to initialized ecog microcontroller

@000599    04E0 //                      bra        ?L33F1
@00059A    0117 //                      ld         AL,@(1,Y)
@00059B    0700 //                      bsr        $_lcd_data_wr
@00059C    539C
@00059D    093C //                      add        Y,#9
@00059E    FD0E //                      ld         XH,@(-3,Y)
@00059F    FEE3 //                      bra        @(-2,Y)
@0005A0    FF27 //                      st         AL,@(-1,Y)
@0005A1    FD0A //                      st         XH,@(-3,Y)
@0005A2    FE2B //                      st         X,@(-2,Y)
@0005A3    E525 //                      st         AL,@H'ffe5
@0005A4    FD3C //                      add        Y,#-3
@0005A5    FF00 //                      ld         AL,@$fd+H'4
@0005A6    A415
@0005A7    01C4 //                      and        AL,#1
@0005A8    02F0 //                      bne        ?L6F1
@0005A9    FCE0 //                      bra        ?L5F1
@0005AA    E511 //                      ld         AH,@H'ffe5
@0005AB    FF00 //                      st         AH,@$rg+H'8
@0005AC    A821
@0005AD    E515 //                      ld         AL,@H'ffe5
@0005AE    033C //                      add        Y,#3
@0005AF    FD0E //                      ld         XH,@(-3,Y)
@0005B0    FEE3 //                      bra        @(-2,Y)
@0005B1    FF27 //                      st         AL,@(-1,Y)
@0005B2    FD0A //                      st         XH,@(-3,Y)
@0005B3    FE2B //                      st         X,@(-2,Y)
@0005B4    E525 //                      st         AL,@H'ffe5
@0005B5    FD3C //                      add        Y,#-3
@0005B6    FF00 //                      ld         AL,@$fd+H'd
@0005B7    AD15
@0005B8    01C4 //                      and        AL,#1
@0005B9    02F0 //                      bne        ?L6F1
@0005BA    FCE0 //                      bra        ?L5F1
@0005BB    E511 //                      ld         AH,@H'ffe5
@0005BC    FF00 //                      st         AH,@$rg+H'12
@0005BD    B221
@0005BE    E515 //                      ld         AL,@H'ffe5
@0005BF    033C //                      add        Y,#3
@0005C0    FD0E //                      ld         XH,@(-3,Y)
@0005C1    FEE3 //                      bra        @(-2,Y)
@0005C2    FF27 //                      st         AL,@(-1,Y)
@0005C3    FD0A //                      st         XH,@(-3,Y)
@0005C4    FE2B //                      st         X,@(-2,Y)
@0005C5    0100 //                      ld         AH,#256
@0005C6    0010
@0005C7    AF21 //                      st         AH,@$rg+H'10f
@0005C8    FD3C //                      add        Y,#-3
@0005C9    E125 //                      st         AL,@H'ffe1
@0005CA    01C4 //                      and        AL,#1
@0005CB    E525 //                      st         AL,@H'ffe5
@0005CC    E115 //                      ld         AL,@H'ffe1
@0005CD    E511 //                      ld         AH,@H'ffe5
@0005CE    04F4 //                      beq        ?L5F1
@0005CF    1010 //                      ld         AH,#16
@0005D0    E721 //                      st         AH,@H'ffe7
@0005D1    03E0 //                      bra        ?L4F1
@0005D2    2010 //                      ld         AH,#32
@0005D3    E721 //                      st         AH,@H'ffe7
@0005D4    E711 //                      ld         AH,@H'ffe7
@0005D5    B121 //                      st         AH,@$rg+H'111
@0005D6    E125 //                      st         AL,@H'ffe1
@0005D7    02C4 //                      and        AL,#2
@0005D8    E525 //                      st         AL,@H'ffe5
@0005D9    E115 //                      ld         AL,@H'ffe1
@0005DA    E511 //                      ld         AH,@H'ffe5
@0005DB    05F4 //                      beq        ?L8F1
@0005DC    0100 //                      ld         AH,#256
@0005DD    0010
@0005DE    E721 //                      st         AH,@H'ffe7
@0005DF    04E0 //                      bra        ?L7F1
@0005E0    0200 //                      ld         AH,#512
@0005E1    0010
@0005E2    E721 //                      st         AH,@H'ffe7
@0005E3    E711 //                      ld         AH,@H'ffe7
@0005E4    B121 //                      st         AH,@$rg+H'111
@0005E5    E125 //                      st         AL,@H'ffe1
@0005E6    04C4 //                      and        AL,#4
@0005E7    E525 //                      st         AL,@H'ffe5
@0005E8    E115 //                      ld         AL,@H'ffe1
@0005E9    E511 //                      ld         AH,@H'ffe5
@0005EA    05F4 //                      beq        ?L11F1
@0005EB    1000 //                      ld         AH,#4096
@0005EC    0010
@0005ED    E721 //                      st         AH,@H'ffe7
@0005EE    04E0 //                      bra        ?L10F1
@0005EF    2000 //                      ld         AH,#8192
@0005F0    0010
@0005F1    E721 //                      st         AH,@H'ffe7
@0005F2    E711 //                      ld         AH,@H'ffe7
@0005F3    B121 //                      st         AH,@$rg+H'111
@0005F4    08C4 //                      and        AL,#8
@0005F5    04F4 //                      beq        ?L14F1
@0005F6    0110 //                      ld         AH,#1
@0005F7    E721 //                      st         AH,@H'ffe7
@0005F8    03E0 //                      bra        ?L13F1
@0005F9    0210 //                      ld         AH,#2
@0005FA    E721 //                      st         AH,@H'ffe7
@0005FB    E711 //                      ld         AH,@H'ffe7
@0005FC    B221 //                      st         AH,@$rg+H'112
@0005FD    0200 //                      ld         AH,#512
@0005FE    0010
@0005FF    AF21 //                      st         AH,@$rg+H'10f
@000600    033C //                      add        Y,#3
@000601    FD0E //                      ld         XH,@(-3,Y)
@000602    FEE3 //                      bra        @(-2,Y)
@000603    FF27 //                      st         AL,@(-1,Y)
@000604    FD0A //                      st         XH,@(-3,Y)
@000605    FE2B //                      st         X,@(-2,Y)
@000606    FC27 //                      st         AL,@(-4,Y)
@000607    FB3C //                      add        Y,#-5
@000608    0700 //                      bsr        $_lcd_wait
@000609    CE9C
@00060A    0214 //                      ld         AL,#2
@00060B    AF25 //                      st         AL,@$rg+H'10f
@00060C    0117 //                      ld         AL,@(1,Y)
@00060D    0700 //                      bsr        $_lcd_wr
@00060E    EE9C
@00060F    053C //                      add        Y,#5
@000610    FD0E //                      ld         XH,@(-3,Y)
@000611    FEE3 //                      bra        @(-2,Y)
@000612    FE27 //                      st         AL,@(-2,Y)
@000613    FF23 //                      st         AH,@(-1,Y)
@000614    FC0A //                      st         XH,@(-4,Y)
@000615    FD2B //                      st         X,@(-3,Y)
@000616    E525 //                      st         AL,@H'ffe5
@000617    E721 //                      st         AH,@H'ffe7
@000618    0014 //                      ld         AL,#0
@000619    FC0E //                      ld         XH,@(-4,Y)
@00061A    FDE3 //                      bra        @(-3,Y)
@00061B    F43C //                      add        Y,#-12
@00061C    0A27 //                      st         AL,@(10,Y)
@00061D    0B23 //                      st         AH,@(11,Y)
@00061E    080A //                      st         XH,@(8,Y)
@00061F    092B //                      st         X,@(9,Y)
@000620    0127 //                      st         AL,@(1,Y)
@000621    0323 //                      st         AH,@(3,Y)
@000622    0317 //                      ld         AL,@(3,Y)
@000623    0100 //                      and        AL,#255
@000624    FFC4
@000625    0527 //                      st         AL,@(5,Y)
@000626    011B //                      ld         X,@(1,Y)
@000627    0016 //                      ld         AL,@(0,X)
@000628    0CF0 //                      bne        ?L5F1
@000629    0517 //                      ld         AL,@(5,Y)
@00062A    E525 //                      st         AL,@H'ffe5
@00062B    011B //                      ld         X,@(1,Y)
@00062C    0216 //                      ld         AL,@(2,X)
@00062D    0112 //                      ld         AH,@(1,X)
@00062E    0727 //                      st         AL,@(7,Y)
@00062F    0623 //                      st         AH,@(6,Y)
@000630    E515 //                      ld         AL,@H'ffe5
@000631    060E //                      ld         XH,@(6,Y)
@000632    079F //                      bsr        @(7,Y)
@000633    15E0 //                      bra        ?L7F1
@000634    0513 //                      ld         AH,@(5,Y)
@000635    E521 //                      st         AH,@H'ffe5
@000636    011B //                      ld         X,@(1,Y)
@000637    0216 //                      ld         AL,@(2,X)
@000638    0112 //                      ld         AH,@(1,X)
@000639    E725 //                      st         AL,@H'ffe7
@00063A    E621 //                      st         AH,@H'ffe6
@00063B    E715 //                      ld         AL,@H'ffe7
@00063C    E611 //                      ld         AH,@H'ffe6
@00063D    F509 //                      movax
@00063E    E511 //                      ld         AH,@H'ffe5
@00063F    0209 //                      st.b       AH,@(0,X)
@000640    0022
@000641    E715 //                      ld         AL,@H'ffe7
@000642    E611 //                      ld         AH,@H'ffe6
@000643    0134 //                      add        AL,#1
@000644    0040 //                      addc       AH,#0
@000645    011B //                      ld         X,@(1,Y)
@000646    0226 //                      st         AL,@(2,X)
@000647    0122 //                      st         AH,@(1,X)
@000648    0517 //                      ld         AL,@(5,Y)
@000649    0C3C //                      add        Y,#12
@00064A    FC0E //                      ld         XH,@(-4,Y)
@00064B    FDE3 //                      bra        @(-3,Y)
@00064C    F43C //                      add        Y,#-12
@00064D    0A27 //                      st         AL,@(10,Y)
@00064E    0B23 //                      st         AH,@(11,Y)
@00064F    080A //                      st         XH,@(8,Y)
@000650    092B //                      st         X,@(9,Y)
@000651    E321 //                      st         AH,@H'ffe3
@000652    0014 //                      ld         AL,#0
@000653    0127 //                      st         AL,@(1,Y)
@000654    0327 //                      st         AL,@(3,Y)
@000655    EE3C //                      add        Y,#-18
@000656    FF14 //                      ld         AL,#-1
@000657    1127 //                      st         AL,@(17,Y)
@000658    1027 //                      st         AL,@(16,Y)
@000659    1D17 //                      ld         AL,@(29,Y)
@00065A    0100 //                      and        AL,#272
@00065B    10C4
@00065C    03F0 //                      bne        ?L4F2
@00065D    0114 //                      ld         AL,#1
@00065E    1F27 //                      st         AL,@(31,Y)
@00065F    1E17 //                      ld         AL,@(30,Y)
@000660    6784 //                      cmp        AL,#103
@000661    02E4 //                      blt        ?L192F2
@000662    18E0 //                      bra        ?L19F2
@000663    6484 //                      cmp        AL,#100
@000664    02E4 //                      blt        ?L193F2
@000665    0BE0 //                      bra        ?L21F2
@000666    4584 //                      cmp        AL,#69
@000667    0100 //                      beq        ?L18F2
@000668    C1F4
@000669    4784 //                      cmp        AL,#71
@00066A    0100 //                      beq        ?L17F2
@00066B    BEF4
@00066C    5884 //                      cmp        AL,#88
@00066D    21F4 //                      beq        ?L16F2
@00066E    0100 //                      bra        ?L6F2
@00066F    DDE0
@000670    6484 //                      cmp        AL,#100
@000671    7BF4 //                      beq        ?L15F2
@000672    6584 //                      cmp        AL,#101
@000673    0100 //                      beq        ?L14F2
@000674    B5F4
@000675    6684 //                      cmp        AL,#102
@000676    0100 //                      beq        ?L13F2
@000677    B2F4
@000678    0100 //                      bra        ?L6F2
@000679    D3E0
@00067A    7084 //                      cmp        AL,#112
@00067B    02E4 //                      blt        ?L194F2
@00067C    0AE0 //                      bra        ?L29F2
@00067D    6784 //                      cmp        AL,#103
@00067E    0100 //                      beq        ?L12F2
@00067F    AAF4
@000680    6984 //                      cmp        AL,#105
@000681    6BF4 //                      beq        ?L11F2
@000682    6F84 //                      cmp        AL,#111
@000683    41F4 //                      beq        ?L10F2
@000684    0100 //                      bra        ?L6F2
@000685    C7E0
@000686    7084 //                      cmp        AL,#112
@000687    07F4 //                      beq        ?L9F2
@000688    7584 //                      cmp        AL,#117
@000689    63F4 //                      beq        ?L8F2
@00068A    7884 //