;============================================================
;ZYMMETRY.ASM
;AMAZING ZYMMETRICAL PATTERN COMPILER VERSION 3.0
;(C)2011/2015 By Shawn T. Cook
;Credit to the original author I lost his name.
;For DOS / Uses int 21h
;Note I am currently working on version 4.0 available soon!
;This allows you to create a screen saver .COM file called 'output.com'.
;To edit output.com Type C:\>output.com 1 (don't forget the 1).
;============================================================
Org 100h
;============================================================
SCREEN_WIDTH =320 ;160
SCREEN_HEIGHT =200 ;100
X_WIDTH =(SCREEN_WIDTH +2)
X_HEIGHT =(SCREEN_HEIGHT +2)
;============================================================
MainMenu:
mov ax, cs
mov ds, ax
mov es, ax
mov fs, ax
mov gs, ax
cld
cmp byte [cs:82h], '1'
je SkipRun
cmp byte [cs:Running], 1
je Launch
SkipRun:
mov ah, 0 ;Screen Mode 1
mov al, 1
int 0x10
mov ah, 09
mov dx, Setup
int 21h
mov si, buff
mov ah, 09
mov dx, Setupi0
int 21h
mov AL,byte [cs:Setup0]
call showhex
mov ah, 09
mov dx, Setupi1
int 21h
mov AL,byte [cs:Setup1]
call showhex
mov ah, 09
mov dx, Setupi2
int 21h
mov AL,byte [cs:Setup2]
call showhex
mov ah, 09
mov dx, Setupi3
int 21h
mov AL,byte [cs:Setup3]
call showhex
mov ah, 09
mov dx, Setupi4
int 21h
mov AL,byte [cs:Setup4]
call showhex
mov ah, 09
mov dx, Setupi5
int 21h
mov AL,byte [cs:Setup5]
call showhex
mov ah, 09
mov dx, Setupi6
int 21h
mov AL,byte [cs:Setup6]
call showhex
mov ah, 09
mov dx, Setupi7
int 21h
mov AL,byte [cs:Setup7]
call showhex
mov ah, 09
mov dx, Setupi8
int 21h
mov AL,byte [cs:Setup8]
call showhex
mov ah, 09
mov dx, Setupi9
int 21h
mov AL,byte [cs:Setup9]
call showhex
mov ah, 09
mov dx, SetupiA
int 21h
mov AL,byte [cs:SetupA]
call showhex
mov ah, 09
mov dx, SetupiB
int 21h
mov AL,byte [cs:SetupB]
call showhex
mov ah, 09
mov dx, SetupiC
int 21h
mov AL,byte [cs:SetupC]
call showhex
mov dx, SetupiD
int 21h
mov AL,byte [cs:SetupD]
call showhex
mov dx, SetupiE
int 21h
mov AL,byte [cs:SetupE]
call showhex
mov ah, 09
mov dx, bar
int 21h
mov ah, 09
mov dx, op
int 21h
mov ah, 09
mov dx, prompt1
int 21h
mov ah, 0
int 16h
mov ah, 0x0e
int 0x10
cmp al, '0'
jne n1
call input
mov byte [cs:Setup0], AL
jmp SetVal
n1:
cmp al, '1'
jne n2
call input
mov byte [cs:Setup1], AL
jmp SetVal
n2:
cmp al, '2'
jne n3
call input
mov byte [cs:Setup2], AL
jmp SetVal
n3:
cmp al, '3'
jne n4
call input
mov byte [cs:Setup3], AL
jmp SetVal
n4:
cmp al, '4'
jne n5
call input
mov byte [cs:Setup4], AL
jmp SetVal
n5:
cmp al, '5'
jne n6
call input
mov byte [cs:Setup5], AL
jmp SetVal
n6:
cmp al, '6'
jne n7
call input
mov byte [cs:Setup6], AL
jmp SetVal
n7:
cmp al, '7'
jne n8
call input
mov byte [cs:Setup7], AL
jmp SetVal
n8:
cmp al, '8'
jne n9
call input
mov byte [cs:Setup8], AL
jmp SetVal
n9:
cmp al, '9'
jne nA
call input
mov byte [cs:Setup9], AL
jmp SetVal
nA:
cmp al, 'a'
jne nB
call input
cmp AL, 0
jne NotNulBug
mov al, 1
NotNulBug:
mov byte [cs:SetupA], AL
jmp SetVal
nB:
cmp al, 'b'
jne nC
call input
mov byte [cs:SetupB], AL
jmp SetVal
nC:
cmp al, 'c'
jne nD
call input
mov byte [cs:SetupC], AL
jmp SetVal
nD:
cmp al, 'd'
jne nE
call input
mov byte [cs:SetupD], AL
jmp SetVal
nE:
cmp al, 'e'
jne nF
call input
mov byte [cs:SetupE], AL
jmp SetVal
nF:
cmp al, 'r'
je Launch
cmp al, 'w'
je Write
cmp al, 'q'
je Quit
SetVal:
jmp MainMenu
Write:
push cs
pop ds
mov byte [cs:Running], 1
mov ah, 0x3C
mov cx, 0
mov dx, FileNameBuff
int 0x21
mov bx, ax
mov ah, 0x40
push cs
pop ds
mov dx, 100h
mov cx, EndOfCode - 100h
int 0x21
mov ah, 0x3E
int 0x21
mov byte [cs:Running], 0
jmp MainMenu
Launch:
;============================================================
mov ax, 0x0013
int 0x10
;============================================================
cmp byte [cs:Setup0], 0
je NoPalette
mov ah, 0x0b
mov bh, 0
mov bl, byte [cs:Setup0]
int 0x10
NoPalette:
;============================================================
cld
mov ax, 0x6000
mov bx, ax
mov es, ax
push es
mov cx, X_WIDTH * X_HEIGHT / 2
xor di, di
xor ax, ax
rep stosw
add bx, 0x2000
mov es, bx
mov cx, X_WIDTH * X_HEIGHT / 2
xor di, di
xor ax, ax
rep stosw
pop ds
;============================================================
inc byte [X_HEIGHT / 2 * X_WIDTH + X_WIDTH / 2]
;============================================================
mov ax, 0xa000
mov gs, ax
std
;============================================================
NextFrame:
cmp byte [cs:SetupA], 0
je Fast
push CX
mov CH, 0
mov CL, byte [cs:SetupA]
Delay:
push AX
push BX
push ES
mov AX, 40h
mov ES, AX
mov AX, word [es:6Ch]
Sleep:
mov BX, word [es:6Ch]
cmp AX, BX
je Sleep
pop ES
pop BX
pop AX
loop Delay
pop CX
Fast:
mov si, (X_WIDTH * (X_HEIGHT -1) - 2)
mov di, si
mov bx, (SCREEN_WIDTH) * (SCREEN_HEIGHT) - 1
;============================================================
NextLine:
mov cx, SCREEN_WIDTH
NextPixel:
xor al, byte [cs:SetupE]
mov [gs:bx], al
lodsb
cmp al, 00
je Check
cmp byte [cs:Setup4], 0
je NoXor
xor al, byte [cs:Setup4]
NoXor:
cmp al, byte [cs:Setup5]
je Check
cmp byte [cs:Setup9], 0
je Default
sub al, byte [cs:Setup9]
jmp CheckEnd
Default:
inc AL
jmp CheckEnd
;============================================================
Check:
mov al, 0
mov dl, 0
cmp byte [cs:Setup8], 0
je None
push bx
mov bh, 0
mov bl, byte [cs:Setup8]
add dl, [si + BX]
pop bx
None:
cmp byte [cs:SetupB], 1
jne NoTwist
add dl, [si - X_WIDTH + 2]
add dl, [si - X_WIDTH]
add dl, [si + X_WIDTH]
add dl, [si + X_WIDTH + 2]
NoTwist:
add dl, [si - X_WIDTH + 1]
add dl, [si]
add dl, [si + 2]
add dl, [si + X_WIDTH + 1]
xor dl, byte [cs:SetupD]
cmp dl, byte [cs:Setup6]
jg Work
cmp dl, byte [cs:Setup1]
je Work
cmp dl, byte [cs:Setup2]
jne CheckEnd
;============================================================
Work:
mov al, byte [cs:SetupC]
CheckEnd:
cmp al, byte [cs:Setup3]
jne SetNext
;============================================================
mov al, byte [cs:Setup7]
SetNext:
mov [es:di], al
dec bx
dec di
loop NextPixel_
sub si, 2
sub di, 2
cmp bx, 0xffff
jne NextLine
push ds
push es
pop ds
pop es
mov ah, 1
int 0x16
jnz over
jmp NextFrame
over:
mov ah, 0
int 0x16
xor ah, ah
mov al, 03
int 0x10
mov ax, cs
mov ds, ax
mov es, ax
cmp byte [cs:Running], 1
je Quit
jmp MainMenu
NextPixel_:
jmp NextPixel
;============================================================
scnhex: push cx ;DS:SI as HEX to ASCII->AL
push dx
mov cl,4
xor dx,dx
scn: lodsb
cmp al,'0'
jb endr
cmp al,'9'
jna decdgt
or al,0x20
cmp al,'a'
jb endr
cmp al,'f'
ja endr
sub al,'a'-'9'-1
decdgt: sub al,'0'
shl dx,cl
or dl,al
jmp scn
endr: dec si
xchg dx,ax
pop dx
pop cx
ret
;============================================================
showhex: ;shows ascii value in AL as HEX
push ax
push bx
push cx
push dx
call conhex
mov cx,ax
mov al,cl
mov ah, 0x0e
int 10h
mov al,ch
mov ah, 0x0e
int 10h
pop dx
pop cx
pop bx
pop ax
ret
;============================================================
conhex: ;converts ASCII (AL) to hex (AX)
mov cl,10h
mov ah,0
div cl
add al,30h
add ah,30h
cmp al,'9'
jbe ca4
add al,7
ca4: cmp ah,'9'
jbe ca5
add ah,7
ca5: ret
;============================================================
Quit:
mov ah, 0
mov al, 3
int 10h
mov ah, 4ch
int 21h
;============================================================
input:
mov ah, 09
mov dx, prompt2
int 21h
mov ah,0
int 16h
mov ah, 0eh
int 10h
mov dh, al
mov ah,0
int 16h
mov ah, 0eh
int 10h
mov dl, al
mov byte [ds:si], DH
mov byte [ds:si+1], DL
mov byte [ds:si+2], 0
call scnhex
ret
;============================================================
Setup:
db 13,10,"------------------------------------"
db 13,10,"AMAZING SYMMETRICAL PATTERN COMPILER"
bar db 13,10,"------------------------------------$",0
Setupi0 db 13,10,"0. Color Setup =$"
Setupi1 db 13,10,"1. Pattern #1 =$"
Setupi2 db 13,10,"2. Pattern #2 =$"
Setupi3 db 13,10,"3. States =$"
Setupi4 db 13,10,"4. Bits =$"
Setupi5 db 13,10,"5. Matrix =$"
Setupi6 db 13,10,"6. Precise =$"
Setupi7 db 13,10,"7. Die (0/1) =$"
Setupi8 db 13,10,"8. Blaster =$"
Setupi9 db 13,10,"9. Minus =$"
SetupiA db 13,10,"a. Speed =$"
SetupiB db 13,10,"b. Diamond(0/1)=$"
SetupiC db 13,10,"c. Veng =$"
SetupiD db 13,10,"d. Adapt =$"
SetupiE db 13,10,"e. Extra =$"
op db 13,10,"(R)un (W)rite (Q)uit$"
FileName db 13,10,"Enter .COM FileName?$"
prompt1 db 13,10,'Choice (1 to d):$'
prompt2 db 13,10,'Enter 2 Digit HEX code:$'
Setup0 db 0x0
Setup1 db 0x3
Setup2 db 0x1
Setup3 db 0xff
Setup4 db 0x0
Setup5 db 0xFF
Setup6 db 0x50
Setup7 db 0x1
Setup8 db 0x0
Setup9 db 0x0
SetupA db 0x1
SetupB db 0x1
SetupC db 0x1
SetupD db 0x2
SetupE db 0x0
FileNameBuff db 'output.com',0
buff rb 8
Running db 0
db 1
;============================================================
EndOfCode:
Index
> DOS > zymmetry - screen saver project (Version 3.0 DONE!)
10 Sep 2015, 06:43