; =============================================================================
; =                                                                           =
; = Razos genya a' la' Halcyon...                                             =
; =                                                                           =
; =============================================================================

.386p
.model flat,c
.code

                public  rangatas
                public  rzoom

rangatas:       pushad
                cmp     offsptr,23*2
                jne     nonullaz
                mov     offsptr,0
nonullaz:       add     offsptr,2
                lea     esi,offstbl
                add     esi,offsptr
                mov     ax,[esi]
                mov     cx,rzoom
                shl     ax,cl
                mov     offs,ax
                mov     dx,3d4h
                mov     ax,offs
                mov     al,0ch
                out     dx,ax
                mov     ax,offs
                shl     ax,8
                mov     al,0dh
                out     dx,ax
                popad
                ret


                offstbl dw      320    * 0
                        dw      -320   * 0
                        dw      320    * 1
                        dw      -320   * 1
                        dw      320    * 0
                        dw      -320   * 0
                        dw      320    * 1
                        dw      -320   * 1
                        dw      320    * 2
                        dw      -320   * 2
                        dw      320    * 0
                        dw      -320   * 0
                        dw      320    * 1
                        dw      -320   * 1
                        dw      320    * 2
                        dw      -320   * 2
                        dw      320    * 3
                        dw      -320   * 3
                        dw      320    * 0
                        dw      -320   * 0
                        dw      320    * 1
                        dw      -320   * 1
                        dw      320    * 2
                        dw      -320   * 2
                offs    dw      0
                offsptr dd      0
                rzoom   dw      0

                include asm\timer.asm

end
