Cucc

DEF COL0 0x94
DEF COL1 0x95
DEF COL2 0x96
DEF COL3 0x97
DEF COL4 0x98

DEF SW 0x81

DEF SW_2_ON 0b00000100
DEF SW_1_ON 0b00000010
DEF SW_0_ON 0b00000001

DEF ARR_0_0 0b00000100

DEF ARR_1_0 0b01001000
DEF ARR_1_1 0b00001000

DEF ARR_2_0 0b01010000
DEF ARR_2_1 0b00010000

DEF ARR_3_0 0b01100000
DEF ARR_3_1 0b00100000

DEF ARR_4_0 0b01111000
DEF ARR_4_1 0b01000000
DEF ARR_4_2 0b01100000
DEF ARR_4_3 0b01110000


    CODE

start:
    MOV r0, SW

    TST r0, #SW_0_ON
    JNZ start_t
    JSR villog
    JMP start
    start_t:
        JSR draw
        JMP start

villog:
    JSR reset
    JSR wait
    JSR draw
    JSR wait
    JMP start

draw:
    JSR reset
    JSR arrow_dbdga
    RTS

wait:
    ADD r5, #15
    ADC r6, #0
    ADC r7, #0
    JNC wait
    RTS

wait_short:
    MOV r0, SW
    TST r0, #SW_2_ON

    JNZ wait_short_t
    RTS

    wait_short_t:
        ADD r5, #100
        ADC r6, #0
        ADC r7, #0
        JNC wait_short
        RTS


reset:
    MOV r0, 0x00
    MOV COL0, r0
    MOV COL1, r0
    MOV COL2, r0
    MOV COL3, r0
    MOV COL4, r0

    RTS

arrow_dbdga:
    MOV r0, SW
    TST r0, #SW_1_ON

    JNZ arrow_dbdga_t
    JSR arrow_left_dbdga
    RTS

    arrow_dbdga_t:
        JSR arrow_right_dbdga
        RTS

arrow_left_dbdga:
    MOV r0, #ARR_0_0
    MOV COL0, r0

    JSR wait_short

    MOV r0, #ARR_1_1
    MOV COL1, r0

    JSR wait_short

    MOV r0, #ARR_2_1
    MOV COL2, r0

    JSR wait_short

    MOV r0, #ARR_3_1
    MOV COL3, r0

    JSR wait_short

    MOV r0, #ARR_4_1
    MOV COL4, r0

    JSR wait_short

    MOV r0, #ARR_4_2
    MOV COL4, r0
    MOV r0, #ARR_3_0
    MOV COL3, r0

    JSR wait_short

    MOV r0, #ARR_4_3
    MOV COL4, r0
    MOV r0, #ARR_2_0
    MOV COL2, r0

    JSR wait_short

    MOV r0, #ARR_4_0
    MOV COL4, r0
    MOV r0, #ARR_1_0
    MOV COL1, r0

    JSR wait_short

    RTS

arrow_right_dbdga:
    MOV r0, #ARR_0_0
    MOV COL4, r0

    JSR wait_short

    MOV r0, #ARR_1_1
    MOV COL3, r0

    JSR wait_short

    MOV r0, #ARR_2_1
    MOV COL2, r0

    JSR wait_short

    MOV r0, #ARR_3_1
    MOV COL1, r0

    JSR wait_short

    MOV r0, #ARR_4_1
    MOV COL0, r0

    JSR wait_short

    MOV r0, #ARR_4_2
    MOV COL0, r0
    MOV r0, #ARR_3_0
    MOV COL1, r0

    JSR wait_short

    MOV r0, #ARR_4_3
    MOV COL0, r0
    MOV r0, #ARR_2_0
    MOV COL2, r0

    JSR wait_short

    MOV r0, #ARR_4_0
    MOV COL0, r0
    MOV r0, #ARR_1_0
    MOV COL3, r0

    JSR wait_short

    RTS