Base64 decoder [TIS-3D]

[Log 16]

Lookup table generator

#DEFINE RAM UP

MOV 65 ACC        
LOOP: MOV ACC RAM
    SWP
    MOV ACC RAM
    ADD 1
    SWP
    SUB 90
    JEZ LOW
    SUB 32
    JEZ DIGITS
    ADD 65
    JEZ HALT
    ADD 58
    JMP LOOP
#BWTM

LOW: MOV 97 ACC
    JMP LOOP

DIGITS: MOV 48 ACC
    JMP LOOP

HALT: MOV 43 RAM
    MOV 62 RAM
    MOV 47 RAM
    MOV 63 RAM
    JRO 0

Decoder

#DEFINE TERM UP
#DEFINE ROM LEFT
#DEFINE BUFF RIGHT
#DEFINE OUT DOWN

LOOP: MOV TERM ACC #1
    JEZ CLEAR
    MOV ACC ROM
    MOV ROM ACC
    SUB 61
    JEZ CLEAR
    ADD 61
    SHL 2
    MOV ACC BUFF
    MOV TERM ROM
    MOV ROM ACC
    SAV
    SHR 4
    OR BUFF
    MOV ACC OUT
#BWTM

    SWP #2
    AND 15
    SHL 4
    MOV ACC BUFF
    MOV TERM ROM
    MOV ROM ACC
    SAV
    SHR 2
    OR BUFF
    MOV ACC OUT
    SWP #3
    AND 3
    SHL 6
    MOV TERM ROM
    OR ROM
    MOV ACC OUT
    JMP LOOP
CLEAR: SAV