Qbasicnews.com

Qbasicnews.com > General > General/Misc > General Programming > Opcodes....
Full Version: Opcodes....
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

relsoft

05-31-2003, 10:31 AM
I have no time to make a parser for this list file so I'm posting. Anyone know of an opcode(the one we use in CALL Absolute) for MASM/TASM specific code?

I could Use debug 95 but it has probs with forward jumps. And I'm too lazy to rewrite my code using BP offsets.

Here's the listing file:



BTW, this is a flipped sprite routine which is as fast as relsprite. :*)



Code:
Turbo Assembler     Version 4.1        05/30/03 16:41:25        Page 1
SprFlip.ASM



      1                     ;SUB RelSpriteFlip(BYVAL Layer%,BYVAL X%,BYVAL    Y%,BYVAL SprSeg%,BYVAL SPROff%,Byval        +
      2                     Flipmode%)
      3                     ;;;;;
      4                     ;;;;;
      5                     ;;
      6                     ;0=NoFlip
      7                     ;1=FlipH
      8                     ;2=FlipV
      9                     ;3=FlipVH
     10                     ;Else=No Flip
     11                     ;;
     12                     ;;
     13        0000             .Model    Medium,BASIC
     14                     .386
     15        0000             .Code
     16
     17                     Align 2
     18
     19
     20                     PUBLIC    RelSpriteFlip
     21
     22        0000             RelSpriteFlip    PROC uses Ds Es    Si di,\
     23                             Layer:Word, X:Word, Y:Word, SprSeg:Word, SprOff:Word, FlipMode:Word
     24
     25                             Local SiOff:    Word
     26                             Local Wid:         Word
     27                             Local Hei:         Word
     28                             Local t20Mw:    Word
     29                             Local OldWid:   Word
     30                             Local OldHei:   Word
     31                             Local ClipT:    Word         ;Clipping offsets
     32                             Local ClipR:    Word
     33                             Local ClipL:    Word
     34                             Local ClipD:    Word
     35
     36
1    37        0000  C8 0014 00             ENTERW     00014h,0
1    38        0004  1E                 PUSH     DS
1    39        0005  06                 PUSH     ES
1    40        0006  56                 PUSH     SI
1    41        0007  57                 PUSH     DI
1    42        0008  8E 5E    0A             Mov ds,SprSeg
     43        000B  8E 46    10             Mov es,Layer
     44        000E  8B 76    08             Mov si,SprOff
     45        0011  8B 1C                 Mov bx,ds:[si]             ;Width    of spr
     46        0013  C1 EB    03             Shr bx,3
     47        0016  89 5E    FC             Mov Wid,bx
     48        0019  89 5E    F6             Mov OldWid,bx
     49        001C  8B 54    02             Mov dx,ds:[si+2]            ;Height
     50        001F  89 56    FA             Mov Hei,dx
     51        0022  89 56    F4             Mov OldHei,Dx
     52        0025  C7 46    FE 0000             Mov Sioff,0
     53        002A  C7 46    F8 0000             Mov t20mW,0
     54        002F  C7 46    F2 0000             mov clipT,0
     55        0034  C7 46    F0 0000             mov clipR,0
     56        0039  C7 46    EC 0000             mov clipD,0
     57        003E  C7 46    EE 0000             mov clipL,0
Turbo Assembler     Version 4.1        05/30/03 16:41:25        Page 2
SprFlip.ASM



     58
     59        0043  83 C6    04             Add si,4                 ;1st color
     60
     61
     62                                         ;Note!!!!  After the clips
     63                                         ;Ax=X         Clipped
     64                                         ;Cx=Y         Clipped
     65                                         ;Bx=Width   New
     66                                         ;Dx=Height  New
     67
     68        0046  8B 46    0E             Mov ax,X
     69        0049  3D 013F             Cmp ax,319
     70        004C  0F 8F    007E             Jg @exit
     71        0050  3D 0000             Cmp ax,0
     72        0053  0F 8C    007F             Jl @ClipLeft
     73        0057             @PostClipLeft:
     74        0057  8B 4E    0C             Mov cx,Y
     75        005A  81 F9    00C7             Cmp cx,199
     76        005E  7F 6E    90 90             Jg @exit
     77        0062  83 F9    00             Cmp cx,0
     78        0065  0F 8C    0080             Jl @ClipTop
     79        0069             @PostClipTop:
     80
     81        0069  03 D8                 Add bx,ax         ;Add X    to WID and see if its over *BX is destroyed
     82        006B  81 FB    013F             Cmp bx,319         ;If X+Width > 319,  crop it
     83        006F  0F 8F    0088             Jg  @ClipRight
     84        0073  2B D8                 Sub bx,ax         ;Restore bx
     85        0075             @PostClipRight:
     86
     87        0075  03 D1                 Add dx,cx
     88        0077  81 FA    00C7             Cmp dx,199
     89        007B  0F 8F    008E             Jg  @ClipDown
     90        007F  2B D1                 Sub dx,cx         ;Restore dx
     91        0081             @PostClipDown:
     92
     93                                     ;ax=X,    cx=Y, bx=NewWidth, dx=NewHeight
     94
     95        0081  89 5E    FC             Mov Wid,bx         ;Save wid
     96
     97                         ;;;;;calc offset.....
     98
     99        0084  86 E9                 Xchg ch,cl
    100        0086  BB 0140             Mov bx,320
    101
    102        0089  8B F9                 Mov di,cx
    103        008B  2B 5E    FC             Sub bx,Wid         ;get 320-Width
    104
    105        008E  C1 EF    02             Shr di,2
    106        0091  03 F9                 Add di,cx         ;Y*64+Y*256=Y*320  :)
    107        0093  89 5E    F8             Mov T20Mw,bx
    108
    109        0096  03 F8                 Add di,ax         ;Offset done!!!=Y*320+X
    110
    111                         ;;;;
    112                         ;;;;
    113                         ;;;;
    114                         ;;;;
Turbo Assembler     Version 4.1        05/30/03 16:41:25        Page 3
SprFlip.ASM



    115                         ;;;;Check here    for our    flipmode
    116
    117        0098  83 7E    06 01             cmp FlipMode,1
    118        009C  0F 84    0084                 Je    @FlipH
    119        00A0  83 7E    06 02             cmp FlipMode,2
    120        00A4  0F 84    00A3                 Je    @FlipV
    121        00A8  83 7E    06 03             cmp FlipMode,3
    122        00AC  0F 84    00DF                 Je    @FlipVH
    123
    124        00B0  8B 5E    FC             Mov bx,Wid         ;restore bx
    125
    126        00B3             @Yloop:
    127
    128        00B3  8B CB                 Mov cx,bx         ;Clipped width    to counter
    129
    130        00B5             @Xloop:
    131
    132        00B5  8A 04                 Mov al,ds:[si]         ;color
    133        00B7  46                 Inc si             ;Next color
    134        00B8  0A C0                 Or al,al         ;check    for color 0
    135
    136        00BA  74 05    90 90             JZ @Skipcolor
    137        00BE  26: 88 05                Mov    es:[di],al
    138        00C1                 @Skipcolor:
    139
    140        00C1  47                 Inc di
    141        00C2  49                 Dec cx             ;Check    width
    142
    143        00C3  75 F0                 Jnz @Xloop
    144
    145        00C5  03 7E    F8             Add di,T20MW             ;Add to di    320-ClipWidth
    146        00C8  03 76    FE             Add si,SiOff             ;Si Offset    clipped    corrector
    147
    148        00CB  4A                 dec dx                 ;Check Height
    149
    150        00CC  75 E5                 Jnz @Yloop
    151
    152        00CE             @exit:
1   153        00CE  5F                 POP     DI
1   154        00CF  5E                 POP     SI
1   155        00D0  07                 POP     ES
1   156        00D1  1F                 POP     DS
1   157        00D2  C9                 LEAVEW
1   158        00D3  CA 000C             RET     0000Ch
    159
    160
    161        00D6             @ClipLeft:
    162        00D6  F7 D8                 Neg ax         ;-ax=+ax
    163        00D8  2B D8                 Sub bx,ax     ;sub clipped width to read width
    164        00DA  7E F2                 Jle @Exit     ;Negative result = outa here
    165        00DC  03 F0                 Add si,ax     ;clip our sprite offset
    166                                 ;bx is    the new    clipped    width
    167        00DE  89 46    FE             Mov Sioff,ax     ;save si offset corrector
    168        00E1  89 46    EE             mov ClipL,ax     ;for clip of flipH
    169        00E4  33 C0                 Xor ax,ax     ;zero out coord
    170        00E6  E9 FF6E             Jmp @PostClipLeft
    171
Turbo Assembler     Version 4.1        05/30/03 16:41:25        Page 4
SprFlip.ASM



    172
    173        00E9             @ClipTop:
    174        00E9  F7 D9                 Neg cx
    175        00EB  2B D1                 Sub dx,cx
    176        00ED  7E DF                 Jle @exit
    177        00EF  89 4E    F2             mov ClipT,cx     ;How much to clip down    if flipped V
    178
    179        00F2                  @HeightLoop:
    180        00F2  03 76    FC             Add si,Wid     ;add width to get to next scanline
    181        00F5  49                 Dec cx
    182        00F6  75 FA                  Jnz @HeightLoop     ;Loop until we    get to offset.cx=0
    183        00F8  E9 FF6E              Jmp @PostClipTop
    184
    185        00FB             @ClipRight:
    186        00FB  81 EB    0140            Sub Bx,320     ;Bx is    now clipped right
    187        00FF  01 5E    FE            Add Sioff,bx     ;Add to si corrector
    188        0102  89 5E    F0            mov ClipR,bx     ;for clip of flipH
    189        0105  BB 0140            Mov bx,320     ;Correct bx to    clipX2+1
    190        0108  2B D8                Sub bx,ax     ;Subract ax to    bx to correct width(0 TO 319)
    191        010A  E9 FF68            Jmp @PostClipRight
    192
    193        010D             @ClipDown:
    194        010D  03 CA                Add cx,dx     ;add height to    Y
    195        010F  81 E9    00C8            Sub cx,200     ;Correct it
    196        0113  2B D1                Sub dx,cx     ;Crop out height
    197        0115  8B 4E    F4            mov cx,OldHei     ;put in OldHeight
    198        0118  89 4E    EC            mov ClipD,cx     ;
    199        011B  29 56    EC            sub ClipD,dx     ;cropped down height
    200        011E  8B 4E    0C            Mov cx,Y     ;Restore Y
    201        0121  E9 FF5D            Jmp @PostClipDown
    202
    203
    204                     ;;==========Horizontal    Flip clips perfectly!!!
    205        0124             @FlipH:
    206        0124  03 76    F0            add si,ClipR             ;if clipped right then correct start offset
    207        0127                @YloopFh:
    208        0127  8B 4E    FC            mov cx,Wid             ;put width    to counter
    209        012A  8B D9                mov bx,cx             ;copy it to bx for    the 'hack'
    210        012C  4B                dec bx
    211        012D  2B 5E    EE            sub bx,ClipL             ;if Clipped Left
    212
    213        0130                 @XloopFH:
    214
    215        0130  8A 00                     mov al,ds:[si+bx]
    216        0132  0A C0                     or    al,al
    217        0134  74 05    90 90                 jz    @skipFh
    218        0138  26: 88 05                mov es:[di],al
    219        013B                     @skipFh:
    220        013B  47                     inc di
    221        013C  4B                     dec bx
    222        013D  49                     dec cx
    223
    224        013E  75 F0                 jnz @XloopFH
    225        0140  03 7E    F8             add di,t20Mw
    226        0143  03 76    F6             add si,oldWid
    227        0146  4A                 dec dx
    228
Turbo Assembler     Version 4.1        05/30/03 16:41:25        Page 5
SprFlip.ASM



    229        0147  75 DE                 jnz @YloopFh
    230
    231
    232        0149  EB 83             Jmp @Exit
    233
    234
    235                     ;;==========Vertical Flip clips perfectly!!!
    236
    237        014B             @FlipV:
    238
    239        014B  B9 0140             mov cx,320
    240        014E  8B DA                 mov bx,dx               ;bx=height
    241        0150  4B                 dec bx
    242        0151  0F AF    CB             Imul cx,bx               ;cx=Xy+di offset
    243        0154  03 F9                 add di,cx               ;Correct    offset now
    244                         ;;;
    245                         ;;;clipT
    246        0156  8B 4E    F6             mov cx,OldWid           ;mov oldWid to counter if
    247        0159  8B 5E    F2             mov bx,ClipT           ;cropped    height at top
    248        015C  0F AF    CB             imul cx,bx               ;mutiply    by width to get    correct    offset
    249        015F  2B F1                 sub si,cx               ;correct    offset
    250
    251                         ;;;
    252                         ;;;ClipD
    253        0161  8B 46    F6             mov ax,OldWid           ;mov oldWid to counter if
    254        0164  8B 5E    EC             mov bx,ClipD           ;cropped    height at top
    255        0167  0F AF    C3             imul ax,bx               ;mutiply    by width to get    correct    offset
    256        016A  03 F0                 add si,ax               ;correct    offset
    257
    258
    259        016C                 @YloopV:
    260
    261        016C  8B 4E    FC             mov cx,wid
    262
    263        016F                 @XloopV:
    264
    265        016F  8A 04                     mov al,ds:[si]
    266        0171  46                     inc si
    267        0172  0A C0                     or    al,al
    268        0174  74 05    90 90                 jz    @skipFv
    269        0178  26: 88 05                mov es:[di],al
    270        017B                     @skipFv:
    271
    272        017B  47                     inc di
    273        017C  49                     dec cx
    274        017D  75 F0                 jnz @XloopV
    275
    276        017F  2B 7E    FC             sub di,wid             ;subract width
    277        0182  81 EF    0140             sub di,320             ;sub TO DI 320
    278        0186  03 76    FE             add si,SiOff
    279        0189  4A                 dec dx
    280        018A  75 E0                 jnz @YloopV
    281
    282        018C  E9 FF3F         Jmp @Exit
    283
    284                     ;;==========Vertical &    Horizontal  clips perfectly!!!
    285        018F             @FlipVH:
Turbo Assembler     Version 4.1        05/30/03 16:41:25        Page 6
SprFlip.ASM



    286
    287                         ;Recalculate Si
    288                         ;Si=Si+(Height)*Width
    289
    290        018F  8B 4E    F6             mov cx,OldWid
    291
    292        0192  8B DA                 mov bx,dx         ;Height
    293        0194  0F AF    CB             imul cx,bx         ;Offset
    294        0197  03 F1                 add si,cx
    295        0199  4E                 dec si         ;Si= Last pixel on sprite
    296
    297                         ;;;
    298                         ;;;clipT
    299        019A  8B 4E    F6             mov cx,OldWid           ;mov oldWid to counter if
    300        019D  8B 5E    F2             mov bx,ClipT           ;cropped    height at top
    301        01A0  0F AF    CB             imul cx,bx               ;mutiply    by width to get    correct    offset
    302        01A3  2B F1                 sub si,cx               ;correct    offset
    303
    304                         ;;;
    305                         ;;;ClipD
    306        01A5  8B 46    F6             mov ax,OldWid           ;mov oldWid to counter if
    307        01A8  8B 5E    EC             mov bx,ClipD           ;cropped    height at top
    308        01AB  0F AF    C3             imul ax,bx               ;mutiply    by width to get    correct    offset
    309        01AE  03 F0                 add si,ax               ;correct    offset
    310
    311                         ;;;
    312                         ;;;ClipL
    313        01B0  2B 76    EE             sub si,ClipL           ;correct    startoff
    314
    315        01B3                 @YloopVH:
    316        01B3  8B 4E    FC             mov cx,Wid
    317        01B6  2B 76    EE             sub si,ClipL           ;add corrector
    318        01B9                 @XloopVH:
    319
    320        01B9  8A 04                     mov al,ds:[si]
    321        01BB  4E                     dec si
    322        01BC  0A C0                     or    al,al
    323        01BE  74 05    90 90                 jz    @skipVH
    324        01C2  26: 88 05                mov es:[di],al
    325        01C5                     @skipVH:
    326
    327        01C5  47                     inc di
    328        01C6  49                     dec cx
    329        01C7  75 F0                 jnz @XloopVH
    330
    331        01C9  03 7E    F8             add di,t20Mw
    332        01CC  2B 76    F0             sub si,ClipR         ;clipRight
    333        01CF  4A                 dec dx
    334
    335        01D0  75 E1                 jnz @YloopVH
    336
    337        01D2  E9 FEF9         Jmp @Exit
    338
    339        01D5             EndP
    340
    341                     END
Turbo Assembler     Version 4.1        05/30/03 16:41:25        Page 7
Symbol Table




Symbol Name              Type     Value

??DATE                  Text     "05/30/03"
??FILENAME              Text     "SprFlip "
??TIME                  Text     "16:41:25"
??VERSION              Number 040A
@32BIT                  Text     0
@CLIPDOWN              Near     SPRFLIP_TEXT:010D
@CLIPLEFT              Near     SPRFLIP_TEXT:00D6
@CLIPRIGHT              Near     SPRFLIP_TEXT:00FB
@CLIPTOP              Near     SPRFLIP_TEXT:00E9
@CODE                  Text     SPRFLIP_TEXT
@CODESIZE              Text     1
@CPU                  Text     0F0FH
@CURSEG                  Text     SPRFLIP_TEXT
@DATA                  Text     DGROUP
@DATASIZE              Text     0
@EXIT                  Near     SPRFLIP_TEXT:00CE
@FILENAME              Text     SPRFLIP
@FLIPH                  Near     SPRFLIP_TEXT:0124
@FLIPV                  Near     SPRFLIP_TEXT:014B
@FLIPVH                  Near     SPRFLIP_TEXT:018F
@HEIGHTLOOP              Near     SPRFLIP_TEXT:00F2
@INTERFACE              Text     06H
@MODEL                  Text     4
@POSTCLIPDOWN              Near     SPRFLIP_TEXT:0081
@POSTCLIPLEFT              Near     SPRFLIP_TEXT:0057
@POSTCLIPRIGHT              Near     SPRFLIP_TEXT:0075
@POSTCLIPTOP              Near     SPRFLIP_TEXT:0069
@SKIPCOLOR              Near     SPRFLIP_TEXT:00C1
@SKIPFH                  Near     SPRFLIP_TEXT:013B
@SKIPFV                  Near     SPRFLIP_TEXT:017B
@SKIPVH                  Near     SPRFLIP_TEXT:01C5
@STACK                  Text     DGROUP
@WORDSIZE              Text     2
@XLOOP                  Near     SPRFLIP_TEXT:00B5
@XLOOPFH              Near     SPRFLIP_TEXT:0130
@XLOOPV                  Near     SPRFLIP_TEXT:016F
@XLOOPVH              Near     SPRFLIP_TEXT:01B9
@YLOOP                  Near     SPRFLIP_TEXT:00B3
@YLOOPFH              Near     SPRFLIP_TEXT:0127
@YLOOPV                  Near     SPRFLIP_TEXT:016C
@YLOOPVH              Near     SPRFLIP_TEXT:01B3
CLIPD                  Number [DGROUP:BP-0014]
CLIPL                  Number [DGROUP:BP-0012]
CLIPR                  Number [DGROUP:BP-0010]
CLIPT                  Number [DGROUP:BP-000E]
FLIPMODE              Number [DGROUP:BP+0006]
HEI                  Number [DGROUP:BP-0006]
LAYER                  Number [DGROUP:BP+0010]
OLDHEI                  Number [DGROUP:BP-000C]
OLDWID                  Number [DGROUP:BP-000A]
RELSPRITEFLIP              Far     SPRFLIP_TEXT:0000
SIOFF                  Number [DGROUP:BP-0002]
SPROFF                  Number [DGROUP:BP+0008]
SPRSEG                  Number [DGROUP:BP+000A]
Turbo Assembler     Version 4.1        05/30/03 16:41:25        Page 8
Symbol Table



T20MW                  Number [DGROUP:BP-0008]
WID                  Number [DGROUP:BP-0004]
X                  Number [DGROUP:BP+000E]
Y                  Number [DGROUP:BP+000C]

Groups & Segments          Bit Size Align  Combine Class

DGROUP                  Group
  _DATA                  16  0000 Word      Public  DATA
SPRFLIP_TEXT              16  01D5 Word      Public  CODE

[/code]

Sterling Christensen

05-31-2003, 12:01 PM
I think the easiest way would be to port it to something one of those "qbasic assemblers" can handle.

I dunno if they support local vars (probably not), but at least you wouldn't have to convert labels to memory addresses, and it would probably convert parameters to BP relative addresses for you.

Or I could try to write a parser for that. It looks like it wouldn't be too difficult. Pseudocode:
1. skip whitespace
2. skip number (if there isn't one go to step 8)
3. skip whitespace
4. skip hex number (if there isn't one go to step 8)
5. skip whitespace
6. read in whitespace-delimited hex values (also skipping colons as whitespace - there are a few) until something that isn't a hex value is encountered.
7. for each hex value, create a binary representation (a byte, word, or dword) and PUT to a file opened in binary mode
8. next line
9. back to step 1 unless at end of file

EDIT: Why didn't this occur to me in the first place! Just include that subroutine in an empty stand alone asm program, and compile it to a COM file with MASM or TASM. You could put some kind of markers at the beginning and end of the routine, and write a simple program to extract the subroutine from the COM file.

EDIT #2: But the qbasic program that uses it would have to modify the destination address of any near jump opcodes based on the address of the string/array the machine code is stored in... hopefully most if not all of the jumps are short (IP relative) - that would make things much easier. You'd also have to do this with the machine code generated by the listing-parser.... Hmm, I guess the qbasic assembler solution might still be the easiest.

relsoft

06-02-2003, 08:22 AM
What do you mean with COM files???

Sterling Christensen

06-02-2003, 01:03 PM
A COM file is basically just a dump of the machine code (as far as I know there's no header or anything extra), which is what you're after, right?

relsoft

06-07-2003, 11:32 AM
How do I make a COM file out of this:

Code:
;SUB RelSpriteFlip(BYVAL Layer%,BYVAL X%,BYVAL Y%,BYVAL SprSeg%,BYVAL SPROff%,Byval Flipmode%)
;;;;;                                                                                        
;;;;;
;;
;0=NoFlip
;1=FlipH
;2=FlipV
;3=FlipVH
;Else=No Flip
;;
;;
.Model Medium,BASIC
.386
.Code

Align 2


PUBLIC RelSpriteFlip

RelSpriteFlip  PROC uses Ds Es Si di,\
            Layer:Word, X:Word, Y:Word, SprSeg:Word, SprOff:Word, FlipMode:Word

            Local SiOff:    Word
            Local Wid:      Word
            Local Hei:      Word
            Local t20Mw:    Word
            Local OldWid:   Word
            Local OldHei:   Word
            Local ClipT:    Word            ;Clipping offsets
            Local ClipR:    Word
            Local ClipL:    Word
            Local ClipD:    Word


    Mov ds,SprSeg
    Mov es,Layer
    Mov si,SprOff                  
    Mov bx,ds:[si]                      ;Width of spr
    Shr bx,3
    Mov Wid,bx
    Mov OldWid,bx
    Mov dx,ds:[si+2]                   ;Height
    Mov Hei,dx
    Mov OldHei,Dx
    Mov Sioff,0
    Mov t20mW,0
    mov clipT,0
    mov clipR,0
    mov clipD,0
    mov clipL,0
    
    Add si,4                            ;1st color


                                        ;Note!!!!  After the clips
                                        ;Ax=X       Clipped
                                        ;Cx=Y       Clipped
                                        ;Bx=Width   New
                                        ;Dx=Height  New

        Mov ax,X
        Cmp ax,319              
        Jg @exit
        Cmp ax,0                
        Jl @ClipLeft
@PostClipLeft:
        Mov cx,Y
        Cmp cx,199
        Jg @exit
        Cmp cx,0                
        Jl @ClipTop
@PostClipTop:

        Add bx,ax               ;Add X to WID and see if its over *BX is destroyed
        Cmp bx,319              ;If X+Width > 319,  crop it
        Jg  @ClipRight
        Sub bx,ax               ;Restore bx
@PostClipRight:

        Add dx,cx  
        Cmp dx,199  
        Jg  @ClipDown
        Sub dx,cx               ;Restore dx
@PostClipDown:

                                ;ax=X, cx=Y, bx=NewWidth, dx=NewHeight

        Mov Wid,bx              ;Save wid
        
        ;;;;;calc offset.....
        
        Xchg ch,cl
        Mov bx,320
        
        Mov di,cx      
        Sub bx,Wid              ;get 320-Width
        
        Shr di,2  
        Add di,cx               ;Y*64+Y*256=Y*320  :)
        Mov T20Mw,bx
        
        Add di,ax               ;Offset done!!!=Y*320+X
        
        ;;;;
        ;;;;
        ;;;;
        ;;;;
        ;;;;Check here for our flipmode

        cmp FlipMode,1
            Je @FlipH
        cmp FlipMode,2
            Je @FlipV
        cmp FlipMode,3
            Je @FlipVH

        Mov bx,Wid              ;restore bx

@Yloop:

        Mov cx,bx               ;Clipped width to counter

@Xloop:

        Mov al,ds:[si]          ;color
        Inc si                  ;Next color
        Or al,al                ;check for color 0

        JZ @Skipcolor
           Mov es:[di],al
        @Skipcolor:

        Inc di
        Dec cx                  ;Check width

        Jnz @Xloop

    Add di,T20MW                    ;Add to di 320-ClipWidth
    Add si,SiOff                    ;Si Offset clipped corrector
    
    dec dx                          ;Check Height

    Jnz @Yloop

@exit:
Ret


@ClipLeft:
        Neg ax          ;-ax=+ax
        Sub bx,ax       ;sub clipped width to read width
        Jle @Exit       ;Negative result = outa here
        Add si,ax       ;clip our sprite offset
                        ;bx is the new clipped width
        Mov Sioff,ax    ;save si offset corrector
        mov ClipL,ax    ;for clip of flipH
        Xor ax,ax       ;zero out coord
        Jmp @PostClipLeft


@ClipTop:
        Neg cx          
        Sub dx,cx      
        Jle @exit
        mov ClipT,cx    ;How much to clip down if flipped V

     @HeightLoop:
        Add si,Wid      ;add width to get to next scanline
        Dec cx
     Jnz @HeightLoop    ;Loop until we get to offset.cx=0
     Jmp @PostClipTop

@ClipRight:
       Sub Bx,320       ;Bx is now clipped right
       Add Sioff,bx     ;Add to si corrector
       mov ClipR,bx     ;for clip of flipH
       Mov bx,320       ;Correct bx to clipX2+1
       Sub bx,ax        ;Subract ax to bx to correct width(0 TO 319)
       Jmp @PostClipRight

@ClipDown:
       Add cx,dx        ;add height to Y
       Sub cx,200       ;Correct it
       Sub dx,cx        ;Crop out height
       mov cx,OldHei    ;put in OldHeight
       mov ClipD,cx     ;
       sub ClipD,dx     ;cropped down height
       Mov cx,Y         ;Restore Y
       Jmp @PostClipDown


;;==========Horizontal Flip clips perfectly!!!
@FlipH:
       add si,ClipR                 ;if clipped right then correct start offset
   @YloopFh:
       mov cx,Wid                   ;put width to counter
       mov bx,cx                    ;copy it to bx for the 'hack'
       dec bx
       sub bx,ClipL                 ;if Clipped Left
    
        @XloopFH:
    
            mov al,ds:[si+bx]
            or al,al
            jz @skipFh
               mov es:[di],al
            @skipFh:
            inc di
            dec bx
            dec cx

        jnz @XloopFH
        add di,t20Mw
        add si,oldWid
        dec dx

    jnz @YloopFh


Jmp @Exit


;;==========Vertical Flip clips perfectly!!!

@FlipV:

    mov cx,320                
    mov bx,dx                 ;bx=height
    dec bx
    Imul cx,bx                ;cx=Xy+di offset
    add di,cx                 ;Correct offset now
    ;;;
    ;;;clipT
    mov cx,OldWid             ;mov oldWid to counter if
    mov bx,ClipT              ;cropped height at top
    imul cx,bx                ;mutiply by width to get correct offset
    sub si,cx                 ;correct offset

    ;;;
    ;;;ClipD
    mov ax,OldWid             ;mov oldWid to counter if
    mov bx,ClipD              ;cropped height at top
    imul ax,bx                ;mutiply by width to get correct offset
    add si,ax                 ;correct offset

    
    @YloopV:
    
        mov cx,wid
    
    @XloopV:
    
            mov al,ds:[si]
            inc si        
            or al,al
            jz @skipFv
               mov es:[di],al
            @skipFv:
            
            inc di
            dec cx
    jnz @XloopV
    
        sub di,wid                      ;subract width
        sub di,320                      ;sub TO DI 320
        add si,SiOff
        dec dx    
    jnz @YloopV

Jmp @Exit

;;==========Vertical & Horizontal  clips perfectly!!!
@FlipVH:

    ;Recalculate Si
    ;Si=Si+(Height)*Width
    
    mov cx,OldWid
    
    mov bx,dx           ;Height
    imul cx,bx          ;Offset
    add si,cx
    dec si              ;Si= Last pixel on sprite

    ;;;
    ;;;clipT
    mov cx,OldWid             ;mov oldWid to counter if
    mov bx,ClipT              ;cropped height at top
    imul cx,bx                ;mutiply by width to get correct offset
    sub si,cx                 ;correct offset

    ;;;
    ;;;ClipD
    mov ax,OldWid             ;mov oldWid to counter if
    mov bx,ClipD              ;cropped height at top
    imul ax,bx                ;mutiply by width to get correct offset
    add si,ax                 ;correct offset

    ;;;
    ;;;ClipL
    sub si,ClipL              ;correct startoff
        
    @YloopVH:
        mov cx,Wid
        sub si,ClipL          ;add corrector
    @XloopVH:
    
            mov al,ds:[si]
            dec si
            or al,al
            jz @skipVH
               mov es:[di],al
            @skipVH:
            
            inc di
            dec cx
    jnz @XloopVH    
    
        add di,t20Mw
        sub si,ClipR            ;clipRight
        dec dx
    
    jnz @YloopVH    

Jmp @Exit

EndP

END

Plasma

06-07-2003, 12:45 PM
Here...

Code:
C80014001E0656578E5E0A8E46108B76088B1CC1EB03895EFC895EF68B54028956FA8956F4C746FE
0000C746F80000C746F20000C746F00000C746EC0000C746EE000083C6048B460E3D013F0F8F007E
3D00000F8C007F8B4E0C81F900C77F6E909083F9000F8C008003D881FB013F0F8F00882BD803D181
FA00C70F8F008E2BD1895EFC86E9BB01408BF92B5EFCC1EF0203F9895EF803F8837E06010F840084
837E06020F8400A3837E06030F8400DF8B5EFC8BCB8A04460AC074059090268805474975F0037EF8
0376FE4A75E55F5E071FC9CA000CF7D82BD87EF203F08946FE8946EE33C0E9FF6EF7D92BD17EDF89
4EF20376FC4975FAE9FF6E81EB0140015EFE895EF0BB01402BD8E9FF6803CA81E900C82BD18B4EF4
894EEC2956EC8B4E0CE9FF5D0376F08B4EFC8BD94B2B5EEE8A000AC074059090268805474B4975F0
037EF80376F64A75DEEB83B901408BDA4B0FAFCB03F98B4EF68B5EF20FAFCB2BF18B46F68B5EEC0F
AFC303F08B4EFC8A04460AC074059090268805474975F02B7EFC81EF01400376FE4A75E0E9FF3F8B
4EF68BDA0FAFCB03F14E8B4EF68B5EF20FAFCB2BF18B46F68B5EEC0FAFC303F02B76EE8B4EFC2B76
EE8A044E0AC074059090268805474975F0037EF82B76F04A75E1E9FEF9

Generated from this little program I made...should work for all TASM listings:

Code:
DEFINT A-Z

OPEN "FILENAME.LST" FOR INPUT AS #1

DO WHILE NOT EOF(1)
  LINE INPUT #1, Text$
  Text$ = UCASE$(Text$)

  ' Convert tabs to spaces
  TabAt = INSTR(Text$, CHR$(9))
  DO WHILE TabAt
    LeftPart$ = LEFT$(Text$, TabAt - 1)
    RightPart$ = RIGHT$(Text$, LEN(Text$) - TabAt)
    Text$ = LeftPart$ + SPACE$(8 - (LEN(LeftPart$) AND 7)) + RightPart$
    TabAt = INSTR(Text$, CHR$(9))
  LOOP

  ' Just to make things easier...
  a1$ = MID$(Text$, 13, 1)
  a2$ = MID$(Text$, 14, 1)
  a3$ = MID$(Text$, 15, 1)
  a4$ = MID$(Text$, 16, 1)

  ' Make sure there's opcodes on this line
  IF (a1$ >= "0" AND a1$ <= "9") OR (a1$ >= "A" AND a1$ <= "F") THEN
    IF (a2$ >= "0" AND a2$ <= "9") OR (a2$ >= "A" AND a2$ <= "F") THEN
      IF (a3$ >= "0" AND a3$ <= "9") OR (a3$ >= "A" AND a3$ <= "F") THEN
        IF (a4$ >= "0" AND a4$ <= "9") OR (a4$ >= "A" AND a4$ <= "F") THEN
          IF MID$(Text$, 17, 2) = "  " THEN  'Yep, there is
            Char$ = ""
            FOR i = 19 TO LEN(Text$)
              LastChar$ = Char$
              Char$ = MID$(Text$, i, 1)
              IF Char$ = " " THEN
                IF LastChar$ = " " THEN EXIT FOR  ' No more opcodes here
              ELSE
                IF (Char$ >= "0" AND Char$ <= "9") OR (Char$ >= "A" AND Char$ <= "F") THEN
                  Opcode$ = Opcode$ + Char$       ' Save that one
                END IF
              END IF
            NEXT
          END IF
        END IF
      END IF
    END IF
  END IF

LOOP

CLS
PRINT Opcode$

relsoft

06-09-2003, 09:33 AM
Thank you very much my good man!!!!

relsoft

06-11-2003, 08:08 AM
ooops.. Doesn't work. ;*(

And its prolly not your parser nor my code since I tried making a QLB and it worked 100%.

I also tried to hand pick the opcodes and it crashed my system. ;*(
Qbasicnews.com > General > General/Misc > General Programming > Opcodes....