Guest User

Untitled

a guest
May 22nd, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim amtab(255) As String
  2. Dim optab(255) As String
  3.  
  4. Private Sub Command1_Click()
  5. 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,"
  6. 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,"
  7. 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,"
  8.  
  9. 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,"
  10. 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,"
  11. 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,"
  12. 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,"
  13.  
  14. Text1 = Chr$(9) + "switch (opcode) {" + vbCrLf
  15. For n = 0 To 255
  16.     xp = InStr(1, am$, ",")
  17.     amtab(n) = Left$(am$, xp - 1)
  18.     am$ = Mid$(am$, xp + 1)
  19.  
  20.     xp = InStr(1, op$, ",")
  21.     optab(n) = Left$(op$, xp - 1)
  22.     op$ = Mid$(op$, xp + 1)
  23.    
  24.     'MsgBox amtab(n) + vbCrLf + optab(n)
  25.    
  26.     Text1 = Text1 + Chr$(9) + Chr$(9) + "case 0x" + Right$("0" + Hex$(n), 2) + ":" + vbCrLf
  27.     Text1 = Text1 + Chr$(9) + Chr$(9) + Chr$(9) + amtab(n) + "();" + vbCrLf
  28.     Text1 = Text1 + Chr$(9) + Chr$(9) + Chr$(9) + optab(n) + "();" + vbCrLf
  29.     Text1 = Text1 + Chr$(9) + Chr$(9) + Chr$(9) + "break;" + vbCrLf
  30.     DoEvents
  31. Next n
  32. Text1 = Text1 + Chr$(9) + "}" + vbCrLf
  33. End Sub
Add Comment
Please, Sign In to add comment