100 REM --------- PROGRAM 2 -----------
110 REM
120 N=56: DIM OP$(N),OP(N)
130 FOR I=1 TO N: READ OP$(I): NEXT
140 DATA ADC,AND,ASL,BCC,BCS,BEQ,BIT,BMI,BNE,BPL,BRK,BVC,BVS,CLC,CLD,CLI,CLV
150 DATA CMP,CPX,CPY,DEC,DEX,DEY,EOR,INC,INX,INY,JMP,JSR,LDA,LDX,LDY,LSR,NOP
160 DATA ORA,PHA,PHP,PLA,PLP,ROL,ROR,RTI,RTS,SBC,SEC,SED,SEI,STA,STX,STY,TAX
170 DATA TAY,TSX,TXA,TXS,TYA
180 REM
190 M=25: DIM T1(M),T2(M),T3(M)
200 FOR I=0 TO M: READ T1(I): NEXT
210 DATA 6,7,8,9,10,0,0,0,11,12,0,13,0,14,1,2,0,3,4,5,0,0,0,0,0,0
220 FOR I=0 TO M: READ T2(I): NEXT
230 DATA 10,11,12,13,14,0,0,15,16,0,0,17,18,1,2,3,0,4,5,6,0,7,0,8,9,0
240 FOR I=0 TO M: READ T3(I): NEXT
250 DATA 4,0,5,6,7,0,0,0,8,0,9,10,0,0,0,11,12,13,14,15,0,1,0,2,3,0
260 REM
270 REM --- EXECUTE THE ALGO
280 REM
290 FOR I=1 TO N: OP$=OP$(I)
300 A=ASC(LEFT$(OP$,1))-ASC("A")
310 A=T1(A): IF A=0 GOTO 1000
320 B=ASC(MID$(OP$,2,1))-ASC("A")
330 B=T2(B): IF B=0 GOTO 1000
340 C=ASC(RIGHT$(OP$,1))-ASC("A")
350 C=T3(C): IF C=0 GOTO 1000
360 X=(A*1 + B*16 + C*4) AND 255
370 OP(I) = X: NEXT
380 REM
390 REM --- PRINT RESULTS
400 REM
410 PRINT"[147]       6510 [205]NEMONIC [193]LGO"
420 PRINT
430 FOR I=1 TO 54 STEP 3
440 FOR J=I TO I+2
450 PRINT OP$(J)"="RIGHT$("  "+STR$(OP(J)),3)"  ";
460 NEXT: PRINT: NEXT
470 PRINT OP$(55)"="RIGHT$("  "+STR$(OP(55)),3)"  ";
480 PRINT OP$(56)"="RIGHT$("  "+STR$(OP(56)),3)
490 END
1000 REM --- INVALID MNEMONIC