;
; Example for showing some pixels in 640*480*16..
; have fun
;

ideal
p386n

assume cs:code
segment code
org 100h

start:
                mov     ax,12h                  ; init video mode
                int     10h
                push    0a000h                  ; set dest
                pop     es

                xor     di,di                   ; start linksboven
                mov     bl,10101010b            ; raster
                mov     ah,1                    ; begin with color 1

bolo:           call    setplane                ; set color
                mov     cx,32                   ; 32 rows of 1 color
lolo:           push    cx                      ; push
                mov     cx,80                   ; 1 line = 80*8bit=640 bytes
zolo:           mov     [es:di],bl              ; write raster
                inc     di                      ; di+1
                loop    zolo                    ; loop
                ror     bl,1                    ; rotate raster right by 1
                pop     cx                      ; pop
                loop    lolo                    ; loop

                ror     bl,1                    ; rotate raster again

                inc     ah                      ; increase color
                cmp     ah,16                   ; if color not 16 jump
                jne     bolo                    ; jump?

                xor     ah,ah                   ; w8 for keypress
                int     16h

                mov     ax,3                    ; reset textmode
                int     10h

                mov     ax,4c00h                ; leave
                int     21h

        ; -- ----------------------------

setplane:       mov     dx,3c4h                 ; select plane
                mov     al,2                    ; i - ah
                out     dx,ax
                ret

        ; ------------------------------

ends code
end start    

ideal 
p386n 

assume cs:code 
segment code     

ends code 
end start