Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim amtab(255) As String
- Dim optab(255) As String
- Private Sub Command1_Click()
- am$ = "imp,indx,imp,indx,zp,zp,zp,zp,imp,imm,acc,imm,abso,abso,abso,abso,rel,indy,imp,indy,zpx,zpx,zpx,zpx,imp,absy,imp,absy,absx,absx,absx,absx,abso,indx,imp,indx,zp,zp,zp,zp,imp,imm,acc,imm,abso,abso,abso,abso,rel,indy,imp,indy,zpx,zpx,zpx,zpx,imp,"
- am$ = am$ + "absy,imp,absy,absx,absx,absx,absx,imp,indx,imp,indx,zp,zp,zp,zp,imp,imm,acc,imm,abso,abso,abso,abso,rel,indy,imp,indy,zpx,zpx,zpx,zpx,imp,absy,imp,absy,absx,absx,absx,absx,imp,indx,imp,indx,zp,zp,zp,zp,imp,imm,acc,imm,ind,abso,abso,abso,rel,indy,imp,indy,zpx,zpx,zpx,zpx,imp,absy,imp,absy,absx,absx,absx,absx,imm,indx,imm,indx,zp,zp,zp,zp,imp,imm,imp,imm,abso,abso,abso,abso,rel,indy,imp,indy,zpx,zpx,zpy,zpy,imp,absy,imp,absy,absx,absx,absy,absy,imm,indx,imm,"
- am$ = am$ + "indx,zp,zp,zp,zp,imp,imm,imp,imm,abso,abso,abso,abso,rel,indy,imp,indy,zpx,zpx,zpy,zpy,imp,absy,imp,absy,absx,absx,absy,absy,imm,indx,imm,indx,zp,zp,zp,zp,imp,imm,imp,imm,abso,abso,abso,abso,rel,indy,imp,indy,zpx,zpx,zpx,zpx,imp,absy,imp,absy,absx,absx,absx,absx,imm,indx,imm,indx,zp,zp,zp,zp,imp,imm,imp,imm,abso,abso,abso,abso,rel,indy,imp,indy,zpx,zpx,zpx,zpx,imp,absy,imp,absy,absx,absx,absx,absx,"
- op$ = "brk,ora,nop,slo,nop,ora,asl,slo,php,ora,asl,nop,nop,ora,asl,slo,bpl,ora,nop,slo,nop,ora,asl,slo,clc,ora,nop,slo,nop,ora,asl,slo,jsr,and,nop,rla,bti,and,rol,rla,plp,and,rol,nop,bti,and,rol,rla,bmi,and,nop,rla,nop,and,rol,rla,sec,and,nop,rla,"
- op$ = op$ + "nop,and,rol,rla,rti,eor,nop,sre,nop,eor,lsr,sre,pha,eor,lsr,nop,jmp,eor,lsr,sre,bvc,eor,nop,sre,nop,eor,lsr,sre,cli,eor,nop,sre,nop,eor,lsr,sre,rts,adc,nop,rra,nop,adc,ror,rra,pla,adc,ror,nop,jmp,adc,ror,rra,bvs,adc,nop,rra,nop,adc,ror,rra,sei,adc,nop,rra,nop,adc,"
- op$ = op$ + "ror,rra,nop,sta,nop,sax,sty,sta,stx,sax,dey,nop,txa,nop,sty,sta,stx,sax,bcc,sta,nop,nop,sty,sta,stx,sax,tya,sta,txs,nop,nop,sta,nop,nop,ldy,lda,ldx,lax,ldy,lda,ldx,lax,tay,lda,tax,nop,ldy,lda,ldx,lax,bcs,lda,nop,lax,ldy,lda,ldx,lax,clv,lda,tsx,lax,ldy,lda,ldx,lax,cpy,cmp,nop,dcp,cpy,cmp,dec,dcp,iny,cmp,dex,nop,cpy,cmp,dec,"
- op$ = op$ + "dcp,bne,cmp,nop,dcp,nop,cmp,dec,dcp,cld,cmp,nop,dcp,nop,cmp,dec,dcp,cpx,sbc,nop,isb,cpx,sbc,inc,isb,inx,sbc,nop,sbc,cpx,sbc,inc,isb,beq,sbc,nop,isb,nop,sbc,inc,isb,sed,sbc,nop,isb,nop,sbc,inc,isb,"
- Text1 = Chr$(9) + "switch (opcode) {" + vbCrLf
- For n = 0 To 255
- xp = InStr(1, am$, ",")
- amtab(n) = Left$(am$, xp - 1)
- am$ = Mid$(am$, xp + 1)
- xp = InStr(1, op$, ",")
- optab(n) = Left$(op$, xp - 1)
- op$ = Mid$(op$, xp + 1)
- 'MsgBox amtab(n) + vbCrLf + optab(n)
- Text1 = Text1 + Chr$(9) + Chr$(9) + "case 0x" + Right$("0" + Hex$(n), 2) + ":" + vbCrLf
- Text1 = Text1 + Chr$(9) + Chr$(9) + Chr$(9) + amtab(n) + "();" + vbCrLf
- Text1 = Text1 + Chr$(9) + Chr$(9) + Chr$(9) + optab(n) + "();" + vbCrLf
- Text1 = Text1 + Chr$(9) + Chr$(9) + Chr$(9) + "break;" + vbCrLf
- DoEvents
- Next n
- Text1 = Text1 + Chr$(9) + "}" + vbCrLf
- End Sub
Add Comment
Please, Sign In to add comment