1 "{ Package: 'jv:dragonfly/udis86sx' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#UDIS86Instruction

     6 	instanceVariableNames:'pc len assembly opcodeCode'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'UDIS86'

    10 !

    11 

    12 

    13 !UDIS86Instruction methodsFor:'accessing'!

    14 

    15 assembly

    16     ^ assembly

    17 ! !

    18 

    19 !UDIS86Instruction methodsFor:'initialization'!

    20 

    21 setAssembly: aString

    22     assembly := aString.

    23 

    24     "Created: / 10-12-2015 / 17:04:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    25 !

    26 

    27 setOpcodeCode: anInteger

    28     opcodeCode := anInteger

    29 

    30     "Created: / 10-12-2015 / 21:12:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    31 !

    32 

    33 setPC: anInteger

    34     pc := anInteger

    35 

    36     "Created: / 10-12-2015 / 16:55:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    37 ! !

    38 

    39 !UDIS86Instruction methodsFor:'printing'!

    40 

    41 printOn: aStream

    42     pc printOn: aStream base: 16 size: ExternalAddress pointerSize * 2 fill: $0.

    43     aStream space.

    44     aStream nextPutAll: assembly

    45 

    46     "Created: / 11-12-2015 / 21:30:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    47 ! !

    48 

    49 !UDIS86Instruction class methodsFor:'documentation'!

    50 

    51 version_HG

    52 

    53     ^ '$Changeset: <not expanded> $'

    54 ! !

    55