16/xw__/mxsm.asm

   1 .387
   2                 PUBLIC  MX_SCREENWIDTH
   3                 PUBLIC  MX_SCREENHEIGHT
   4                 PUBLIC  MX_BYTESPERLINE
   5                 PUBLIC  MXSETMODE
   6                 PUBLIC  MXCHANGEMODE
   7                 PUBLIC  MXGETASPECT
   8                 PUBLIC  MXGETSCREENSIZE
   9                 EXTRN   MX_CODESEGMENT:BYTE
  10                 EXTRN   MXSETSYSCLIPREGION:BYTE
  11                 EXTRN   MX_VIDEOSEGMENT:BYTE
  12 MX_TEXT         SEGMENT PARA PUBLIC USE16 'CODE'
  13                 ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
  14 MX_SCREENWIDTH:
  15         add             byte ptr [bx+si],al
  16 MX_SCREENHEIGHT:
  17         add             byte ptr [bx+si],al
  18 L$1:
  19         add             byte ptr [bx+si],al
  20 L$2:
  21         add             byte ptr [bx+si],al
  22 MX_BYTESPERLINE:
  23         add             byte ptr [bx+si],al
  24 L$3:
  25         or              word ptr 14H[bx+si],ax
  26         add             byte ptr [bx],dl
  27         jcxz            L$4
  28 L$4:
  29     DB  0
  30 L$5:
  31         or              word ptr 14H[bx+di],ax
  32         add             byte ptr [bx],dl
  33         jcxz            L$6
  34 L$6:
  35     DB  0
  36 L$7:
  37         add             byte ptr 1[bx],bl
  38         dec             di
  39         add             dl,byte ptr 3[bx+si]
  40         add             byte ptr [si],54H
  41         add             ax,1380H
  42         sub             byte ptr [bx+si],al
  43     DB  0
  44 L$8:
  45         add             byte ptr 1[bp+di],ch
  46         pop             cx
  47         add             bl,byte ptr 3[bp+si]
  48         mov             es,word ptr [si]
  49         pop             si
  50         add             ax,138aH
  51         sub             ax,0
  52         push            es
  53         mov             di,1f07H
  54         adc             byte ptr -7aefH[bp+di],al
  55         adc             bl,byte ptr 15H[di]
  56         arpl            word ptr ds:[0baH],dx
  57     DB  0
  58 L$9:
  59         push            es
  60     DD  ds:[7bfH]
  61         pushf
  62         adc             word ptr -70eeH[bp],cx
  63         adc             ax,1696H
  64         mov             cx,0
  65 L$10:
  66         push            es
  67         or              ax,3e07H
  68         adc             dl,ch
  69         adc             word ptr -20eeH[si],cx
  70         adc             ax,16e7H
  71         push            es
  72         add             byte ptr [bx+si],al
  73 L$11:
  74         add             byte ptr 1[si],dh
  75         arpl            word ptr [bp+si],ax
  76         add             dx,word ptr fs:6804H[bx]
  77         add             ax,695H
  78         xchg            byte ptr [bx],al
  79         lock or         word ptr 0fH[bx+si],sp
  80         xor             word ptr [bx+si],dx
  81         pop             bx
  82         adc             word ptr 5712H[di],cx
  83         adc             si,word ptr [bp+si]
  84         adc             al,0
  85         adc             ax,1660H
  86         adc             byte ptr [bx],0e3H
  87         add             byte ptr [bx+si],al
  88 L$12:
  89         arpl            word ptr ds:[500H],ax
  90         add             byte ptr 1[bx+si],al
  91         enter           1a00H,0
  92     DW  offset L$9
  93     DW  offset L$5
  94         add             byte ptr [bx+si],al
  95         xor             ax,word ptr [bp+di]
  96 L$13:
  97         jcxz            L$14
  98     DB  0
  99 L$14:
 100         add             word ptr [bx+si],ax
 101         inc             ax
 102         add             ax,si
 103         add             byte ptr [bp+si],bl
 104         add             byte ptr [bp+si],bl
 105     DW  offset L$5
 106         add             byte ptr [bx+si],al
 107         xor             ax,word ptr [bp+di]
 108 L$15:
 109         arpl            word ptr ds:[0a00H],ax
 110         add             byte ptr 1[bx+si],al
 111         nop
 112         add             word ptr [bp+si],bx
 113         add             byte ptr [bp+si],cl
 114     DW  offset L$3
 115         add             byte ptr [bx+si],al
 116         xor             ax,word ptr [bp+di]
 117 L$16:
 118         jcxz            L$17
 119     DB  0
 120 L$17:
 121         add             al,byte ptr [bx+si]
 122         inc             ax
 123         add             ax,sp
 124     DD  L$18
 125 L$18:
 126         add             byte ptr [bp+si],cl
 127         add             byte ptr [bx+si],al
 128         add             byte ptr [bp+di],dh
 129     DB  3
 130 L$19:
 131         sbb             ax,word ptr [eax]
 132         adc             al,0
 133         push            0c801H
 134         add             byte ptr [bp+si],ch
 135         add             byte ptr [bp+si],cl
 136     DW  offset L$5
 137         add             byte ptr [bx+si],al
 138         fadd            dword ptr [bp+si]
 139 L$20:
 140         out             9,ax
 141         add             byte ptr [bx+si],cl
 142         add             byte ptr 1[bx+si],ch
 143         lock add        byte ptr [bp+si],ch
 144         add             byte ptr [bp+si],bl
 145     DW  offset L$5
 146         add             byte ptr [bx+si],al
 147         fadd            dword ptr [bp+si]
 148 L$21:
 149         sbb             ax,word ptr [eax]
 150         sub             byte ptr [bx+si],al
 151         push            9001H
 152         add             word ptr [bp+si],bp
 153         add             byte ptr [bp+si],cl
 154     DW  offset L$3
 155         add             byte ptr [bx+si],al
 156         fadd            dword ptr [bp+si]
 157 L$22:
 158         out             9,ax
 159         add             byte ptr [bx+si],dl
 160         add             byte ptr 1[bx+si],ch
 161         loopnz          L$23
 162     DW  offset L$8
 163 L$23 equ $-1
 164     DW  offset L$10
 165     DW  offset L$3
 166         add             byte ptr [bx+si],al
 167         fadd            dword ptr [bp+si]
 168 L$24:
 169         mov             word ptr ds:[0],ax
 170         add             byte ptr [bx+si],al
 171         inc             ax
 172         add             word ptr 1a00H[bx],bp
 173         add             byte ptr [bp+si],bh
 174         add             byte ptr [bp+si],dl
 175         add             byte ptr [bx+si],al
 176         add             byte ptr [bp+di],dh
 177     DB  3
 178 L$25:
 179         mov             word ptr 0,ax
 180         add             byte ptr [bx+si],al
 181         inc             ax
 182         add             word ptr 1a00H[bx],bp
 183         add             byte ptr [bp+si],bh
 184         add             byte ptr [bp+si],cl
 185         add             byte ptr [bx+si],al
 186         add             byte ptr [bp+di],dh
 187     DB  3
 188 L$26:
 189         cmpsw
 190         add             byte ptr [bx+si],al
 191         add             byte ptr [bx+si],al
 192         push            0e001H
 193         add             word ptr [bp+si],bp
 194         add             byte ptr [bp+si],bh
 195         add             byte ptr [bp+si],dl
 196         add             byte ptr [bx+si],al
 197         add             al,bl
 198     DB  2
 199 L$27:
 200         cmpsw
 201         add             byte ptr [bx+si],al
 202         add             byte ptr [bx+si],al
 203         push            0e001H
 204         add             word ptr [bp+si],bp
 205         add             byte ptr [bp+si],bh
 206         add             byte ptr [bp+si],cl
 207         add             byte ptr [bx+si],al
 208         add             al,bl
 209     DB  2
 210 L$28:
 211         out             1,ax
 212         add             byte ptr [bp+si],al
 213         add             byte ptr 5801H[bx+si],dl
 214         add             ch,byte ptr [bp+si]
 215         add             byte ptr [bx+si],al
 216         pop             word ptr [bp+si]
 217 L$29:
 218     DW  offset L$24
 219     DW  offset L$12
 220     DW  offset L$13
 221     DW  offset L$25
 222     DW  offset L$15
 223     DW  offset L$16
 224     DW  offset L$26
 225     DW  offset L$19
 226     DW  offset L$20
 227     DW  offset L$27
 228     DW  offset L$21
 229     DW  offset L$22
 230     DW  offset L$28
 231 L$30:
 232         mov             ax,3
 233         int             10H
 234         mov             word ptr MX_SCREENHEIGHT,0
 235         mov             word ptr MX_BYTESPERLINE,0
 236         ret
 237 MXSETMODE:
 238         push            bp
 239         mov             bp,sp
 240         sub             sp,0
 241         push            ds
 242         push            si
 243         push            es
 244         push            di
 245         mov             ds,word ptr cs:MX_CODESEGMENT
 246         mov             si,word ptr 6[bp]
 247         cmp             si,0dH
 248         jbe             L$31
 249         jmp             near ptr L$36
 250 L$31:
 251         test            si,si
 252         jne             L$32
 253         call            near ptr L$30
 254         jmp             near ptr L$36
 255 L$32:
 256         dec             si
 257         shl             si,1
 258         mov             si,word ptr L$29[si]
 259         cld
 260         push            si
 261         mov             ax,13H
 262         int             10H
 263         pop             si
 264         mov             dx,3c4H
 265         mov             ax,604H
 266         out             dx,ax
 267         mov             ax,100H
 268         out             dx,ax
 269         mov             dx,3c2H
 270         lodsb
 271         out             dx,al
 272         mov             dx,3c4H
 273         mov             ax,300H
 274         out             dx,ax
 275         mov             dx,3d4H
 276         mov             al,11H
 277         out             dx,al
 278         inc             dx
 279         in              al,dx
 280         and             al,7fH
 281         out             dx,al
 282         lodsw
 283         mov             word ptr L$1,ax
 284         lodsw
 285         mov             word ptr L$2,ax
 286         lodsw
 287         mov             word ptr MX_SCREENWIDTH,ax
 288         shr             ax,1
 289         shr             ax,1
 290         mov             word ptr MX_BYTESPERLINE,ax
 291         lodsw
 292         mov             word ptr MX_SCREENHEIGHT,ax
 293         mov             bx,si
 294         mov             dx,3d4H
 295 L$33:
 296         mov             si,word ptr [bx]
 297         inc             bx
 298         inc             bx
 299         test            si,si
 300         je              L$35
 301 L$34:
 302         lodsw
 303         test            ax,ax
 304         je              L$33
 305         out             dx,ax
 306         jmp             L$34
 307 L$35:
 308         push            word ptr MX_SCREENWIDTH
 309         push            word ptr [bx]
 310         push            cs
 311         call            near ptr MX_TEXT:MXSETSYSCLIPREGION
 312         mov             dx,3c4H
 313         mov             ax,0f02H
 314         out             dx,ax
 315         mov             es,word ptr MX_TEXT:MX_VIDEOSEGMENT
 316         xor             di,di
 317         mov             cx,8000H
 318         xor             ax,ax
 319         rep stosw
 320         mov             dx,3d4H
 321         mov             al,11H
 322         out             dx,al
 323         inc             dx
 324         in              al,dx
 325         or              al,80H
 326         out             dx,al
 327 L$36:
 328         xor             ax,ax
 329         mov             ax,word ptr MX_SCREENWIDTH
 330         pop             di
 331         pop             es
 332         pop             si
 333         pop             ds
 334         mov             sp,bp
 335         pop             bp
 336         retf            2
 337 MXCHANGEMODE:
 338         push            bp
 339         mov             bp,sp
 340         sub             sp,0
 341         push            ds
 342         push            si
 343         push            es
 344         push            di
 345         mov             ds,word ptr cs:MX_CODESEGMENT
 346         mov             si,word ptr 6[bp]
 347         cmp             si,0dH
 348         ja              L$40
 349         test            si,si
 350         je              L$40
 351         dec             si
 352         shl             si,1
 353         mov             si,word ptr L$29[si]
 354         cld
 355         mov             dx,3c4H
 356         mov             ax,604H
 357         out             dx,ax
 358         mov             ax,100H
 359         out             dx,ax
 360         mov             dx,3c2H
 361         lodsb
 362         out             dx,al
 363         mov             dx,3c4H
 364         mov             ax,300H
 365         out             dx,ax
 366         mov             dx,3d4H
 367         mov             al,11H
 368         out             dx,al
 369         inc             dx
 370         in              al,dx
 371         and             al,7fH
 372         out             dx,al
 373         lodsw
 374         mov             word ptr L$1,ax
 375         lodsw
 376         mov             word ptr L$2,ax
 377         lodsw
 378         mov             word ptr MX_SCREENWIDTH,ax
 379         lodsw
 380         mov             word ptr MX_SCREENHEIGHT,ax
 381         mov             bx,si
 382         mov             dx,3d4H
 383 L$37:
 384         mov             si,word ptr [bx]
 385         inc             bx
 386         inc             bx
 387         test            si,si
 388         je              L$39
 389 L$38:
 390         lodsw
 391         test            ax,ax
 392         je              L$37
 393         cmp             al,13H
 394         je              L$38
 395         out             dx,ax
 396         jmp             L$38
 397 L$39:
 398         mov             dx,3d4H
 399         mov             al,11H
 400         out             dx,al
 401         inc             dx
 402         in              al,dx
 403         or              al,80H
 404         out             dx,al
 405 L$40:
 406         xor             ax,ax
 407         mov             ax,word ptr MX_SCREENWIDTH
 408         pop             di
 409         pop             es
 410         pop             si
 411         pop             ds
 412         mov             sp,bp
 413         pop             bp
 414         retf            2
 415 MXGETASPECT:
 416         push            bp
 417         mov             bp,sp
 418         sub             sp,0
 419         push            ds
 420         push            si
 421         lds             si,dword ptr 0aH[bp]
 422         mov             ax,word ptr cs:L$1
 423         mov             word ptr [si],ax
 424         lds             si,dword ptr 6[bp]
 425         mov             ax,word ptr cs:L$2
 426         mov             word ptr [si],ax
 427         pop             si
 428         pop             ds
 429         mov             sp,bp
 430         pop             bp
 431         retf            8
 432 MXGETSCREENSIZE:
 433         push            bp
 434         mov             bp,sp
 435         sub             sp,0
 436         push            ds
 437         push            si
 438         lds             si,dword ptr 0aH[bp]
 439         mov             ax,word ptr cs:MX_SCREENWIDTH
 440         mov             word ptr [si],ax
 441         lds             si,dword ptr 6[bp]
 442         mov             ax,word ptr cs:MX_SCREENHEIGHT
 443         mov             word ptr [si],ax
 444         pop             si
 445         pop             ds
 446         mov             sp,bp
 447         pop             bp
 448         retf            8
 449 MX_TEXT         ENDS
 450                 END