home *** CD-ROM | disk | FTP | other *** search
/ CD-X 3 / cdx_03.iso / democomp / demo / _2complx.arj / 2CLX-SRC.ZIP / INC / PALETTE.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-08-20  |  2.8 KB  |  93 lines
  1. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  2.  
  3. B               EQU     BYTE PTR       ; Egy kis egyszerûsítés...
  4.  
  5. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  6.  
  7. PAL256:         PUSH    Si
  8.                 PUSH    DX
  9.                 PUSH    AX
  10.                 PUSH    CX
  11.                 MOV     CX,768
  12.                 MOV     DX,3C8H
  13.                 XOR     AL,AL
  14.                 OUT     DX,AL
  15.                 iNC     DX
  16.                 REP     OUTSB
  17.                 POP     CX
  18.                 POP     AX
  19.                 POP     DX
  20.                 POP     Si
  21.                 RET
  22.                    
  23. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  24.  
  25. FADEPAL:        PUSHA
  26.                 MOV     CX,63
  27. DOSFADE1:       PUSH    CX
  28.                 MOV     CX,0
  29. DOSFADE2:       MOV     DX,3C7H
  30.                 MOV     AL,CL 
  31.                 OUT     DX,AL
  32.                 ADD     DX,2
  33.                 iN      AL,DX   ;---- RED
  34.                 MOV     BL,AL
  35.                 iN      AL,DX   ;---- GREEN
  36.                 MOV     BH,AL
  37.                 iN      AL,DX   ;---- BLUE
  38.                 MOV     AH,AL
  39.                 DEC     DX
  40.                 MOV     AL,CL
  41.                 OUT     DX,AL
  42.                 iNC     DX
  43.                 CMP     BL,0
  44.                 JE      DOSFADE_1
  45.                 DEC     BL
  46. DOSFADE_1:      MOV     AL,BL
  47.                 OUT     DX,AL   ;---- RED
  48.                 CMP     BH,0
  49.                 JE      DOSFADE_2
  50.                 DEC     BH
  51. DOSFADE_2:      MOV     AL,BH
  52.                 OUT     DX,AL   ;---- GREEN
  53.                 CMP     AH,0
  54.                 JE      DOSFADE_3
  55.                 DEC     AH
  56. DOSFADE_3:      MOV     AL,AH
  57.                 OUT     DX,AL   ;---- BLUE
  58.                 ADD     CX,1
  59.                 CMP     CX,255
  60.                 JNE     DOSFADE2
  61. POPO:           CALL    RASTERWAiT
  62.                 POP     CX
  63.                 LOOP    DOSFADE1
  64.                 POPA
  65.                 RET
  66.  
  67. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  68.  
  69. RASTERWAiT:
  70.                 PUSH    DX
  71.                 PUSH    AX
  72.                 MOV     DX,3DAH
  73. RASTERW1:       iN      AL,DX
  74.                 AND     AL,8
  75.                 JE      RASTERW1
  76. RASTERW2:       iN      AL,DX
  77.                 AND     AL,8
  78.                 JNE     RASTERW2
  79.                 POP     AX
  80.                 POP     DX
  81.                 RET
  82.  
  83. RASTERWAiT2:
  84.                 PUSH    DX
  85.                 PUSH    AX
  86.                 MOV     DX,3DAH
  87. RASTERW11:      iN      AL,DX
  88.                 AND     AL,8
  89.                 JE      RASTERW11
  90.                 POP     AX
  91.                 POP     DX
  92.                 RET
  93.