;                               SPIRAL

number_1        equ     200

code    SEGMENT PARA PUBLIC 'code'
	ASSUME cs:code, ds:code, es:code, ss:code
	org     100h
.386
start:  push    0b800h
        pop     es
        mov     cl, 0b4h        ;Assuming CH = 00
@_Vert0:push    cx
        mov     dx,3dah         ;wait retrace
@_vert1:in      al,dx
        and     al,08h 
        jz      @_vert1
        xor     si, si          ; X_offset
@_Vert2:cmp     si, bx
        jnl     @_Horiz
        mov     cl, 025
@_Vert: push    cx
        dec     cx
        dec     cx
        imul    di, cx, 0a0h            ;       Find X-Y position
        add     di, si
        mov     al,  es:[di]            ;       Get char at XY position
        add     di, 0a0h                ;       Get next position
        stosb                           ;       Store character at new position.
        pop     cx
        loop    @_Vert
        lodsw
        jmp     short @_Vert2
@_Horiz:inc     bx
        pop     cx
        loop    @_Vert0


        push    0a000h
        pop     es
        mov     al, 0013h
        int     10h
        mov     dx, 03c8h
        out     dx, al
        inc     dx
@0113:  sub     al, al
        out     dx, al
        out     dx, al
        mov     al, cl
        shr     al, 02
        out     dx, al
        loop    @0113
@main:  inc     si
        cmp     si, number_1
        jl      @main2
@main1: push    cx
        mov     cx, word ptr @@_e
        mov     dx, word ptr @@_f
        test    cx, cx
	jg      @a
        dec     dx
        inc     cx
@a:     test    dx, dx
	jg      @b
        inc     cx
        inc     cx
@b:     cmp     cx, 319  ;(319, dec Y)
	jl      @c
        cmp     dx, 198
	jg      @c
        inc     cx
        inc     dx
@c:     mov     word ptr @@_e, cx
        mov     word ptr @@_f, dx
@d:     mov     cx, word ptr @@_a
        mov     dx, word ptr @@_b
        cmp     cx, 319  ;(319, inc Y)
	jl      @e
        dec     cx
        inc     dx
@e:     cmp     dx, 199  ;(dec X, 199)
	jl      @f
        dec     cx
        dec     cx
@f:     test    cx, cx
	jg      @g
        cmp     dx, 1
	jl      @g
        dec     cx
        dec     dx
@g:     inc     cx
        mov     word ptr @@_a, cx
        mov     word ptr @@_b, dx
        dec     word ptr @@_e
        xor     si, si
        pop     cx



;       cmp     flag1, 1        ;Uncomment this and recopile for a different
;       je      @here2          ;pattern.
;@here1: cmp     cx, 254
;       jne     @here12         ; also comment the below INC CX
;       mov     flag1, 1
;       jmp     short   @main2
;@here12:inc     cx
;       jmp     short   @main2
;@here2: cmp     cx, 1
;       jne     @here22
;       mov     flag1, 0
;       jmp     short   @main2
;@here22:dec     cx


        inc     cx              ;     ---> comment this line as above.
        push    ax
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
;READ keyboard for <ESC>
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
        in      al, 060h
        cmp     al, 01
        pop     ax
        je      @quit
@main2:;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
; RANDOM NUM.  ax = -32768 to +32768.    
; random number = "AX".                                     "GET A DOG UP YA"
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
        imul    ax, 3
        inc     ax
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
; Determines which point (0,0), (320, 0) or (320, 200) to go to.
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
	cmp     ax, -10923
	jg      @2
        db      081h, 0C5h      ; add   bp, 00000h      ;a
@@_a    db      000h, 000h
@@_b equ $+2
        add     bx, 199
	jmp     short @calc
@2:     cmp     ax, 10923
	jg      @3
        add     bp, 160
        add     bx, 99
	jmp     short @calc
@3:     db      081h, 0C5h      ; add   bp, 00000h      ;a
@@_e    db      000h, 000h
@@_f    equ     $+2
        add     bx, 199
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
;Calculate the two formula's for the next pixel... 
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
@calc:  shr     bp, 1
	shr     bx, 1                           
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
;PUTPIXEL routine. (x,y) -> (bp, bx)
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
        imul    di, bx, 320
        mov     dx, 319
        sub     dx, bp
        add     di, dx
        mov     byte ptr es:[di], cl
	jmp     @main

@quit:  mov    ax, 0003h
	int    10h
	retn

filler  db "'98"
FLAG1   DB ?

   code    ENDS
END     start