CD-X 3

home *** CD-ROM | disk | FTP | other *** search

/ CD-X 3 / cdx_03.iso / democomp / 04kintro / _refract.arj / REFRACT.ASM next >

Wrap

Assembly Source File | 1995-11-13 | 58.6 KB | 2,789 lines

COMMENT # ┌──────────────────────────────────────────────────┐ │ │▒ │ R E F R A C T I O N │▒ │ │▒ │ A 4k intro for the PC-X competiton. │▒ │ Made by G.O.D. /AbaddoN │▒ │ Copyright (C)1995. All rights reserved. │▒ │ │▒ │ Last modified: 10-31-95 05:24pm │▒ └──────────────────────────────────────────────────┘▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ Compiling: TASM /m9 refract.asm TLINK /t /x refract.obj Note: The first respect was size optimizing, then the speed optimizing. You can find some neglect, when you watching the code. # .386 LOCALS ;debug = 0 ; ┌───────────────────────────────┐ ; │ Constants. │▒ ; └───────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ B EQU byte ptr ; For an easier life. W EQU word ptr D EQU dword ptr O EQU offset S EQU small L EQU large CR EQU 0dh LF EQU 0ah EOS EQU '$' ; ┌───────────────────────────────┐ ; │ Main code. │▒ ; └───────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ code SEGMENT USE16 ASSUME cs:code, ds:code, ss:code, es:code ORG 100h ; Last modified: 10-31-95 05:24pm Main PROC mov bx,4000h mov ah,4ah int 21h jnc @@Enough_Mem mov dx,O @@NoMemStr jmp @@Wrt_Exit @@Enough_Mem: mov dx,O @@PleaseStr mov ah,9 int 21h cld mov ax,cs add ax,1000h mov [ChrAddr],ax ; Where the 2nd screen will be. add ax,1000h mov [ScrAddr],ax ; Where the charset will be. xor ax,ax ; Make a table which xor bx,bx ; contains the offset address mov di,O ScrRowsVGA ; of the screen rows on VGA screen. mov cx,200 @@1: stosw add ax,320 loop @@1 call SinGen ; Make the sinus table call MakeChars ; Make the charset. xor ax,ax mov es,ax ; Setting up new keyboard routine. IFNDEF debug mov [StackSegment],ss mov [StackPointer],sp mov dx,cs shl edx,10h mov dx,O KeyboardIRQ xchg edx,es:[24h] mov [Old_Kbd],edx ENDIF ; Setting up new timer routine. mov [Timer_Routine],O Timer_Blank mov dx,cs shl edx,10h mov dx,O TimerIRQ xchg edx,es:[20h] mov [Old_Timer],edx mov al,36h ; Ticks with 10ms. out 43h,al mov al,156 out 40h,al mov al,46 out 40h,al ; Making the beginnig effect. mov di,O TitleTexts ; Select title texts. mov ax,600+8000h ; Set 6 secs. waiting. call Mandy_Zoom ; Making the broken screen effect. call BreakScr ; Making the chess table effect. call Chess_Mate ; Making the ending effect. mov di,O EndTexts ; Select end texts. mov ax,100+8000h ; Set 1 sec. wainting. call Mandy_Zoom Abort_Code: xor ax,ax mov es,ax ; Setting back the timer. out 40h,al out 40h,al mov edx,[Old_Timer] mov es:[20h],edx ; Setting back the keyboard. IFNDEF debug mov edx,[Old_Kbd] mov es:[24h],edx ENDIF ; Setting back text mode. mov ax,3 int 10h ; Writing bye-string. mov dx,O @@EndString @@Wrt_Exit: mov ah,9 int 21h ; Exit 2 DOS. int 20h ; The string that will be written after finishing. @@EndString db '- REFRACTION -',CR,LF db 'Coded by G.O.D. /AbaddoN in 1995.',EOS @@NoMemStr db 'Not enough memory. ( 256k of base memory needed )',EOS @@PleaseStr db 'Warming up !',EOS Main ENDP ; ┌───────────────────────────────────────┐ ; │ Mandelbrot zoomer. │▒ ; └───────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ax= Delay before the first text ; di= Offset of texts & positions & times. ; Modified regsiter(s): eax,ebx,ecx,edx,edi,esi,ebp,es ; Length: 257 bytes. ; Last modified: 10-31-95 02:09pm Mandy_Zoom PROC NEAR mov [Timer_Cnt],ax ; Store the inputs. mov [MZ_TextPos],di mov [MZ_Cnt],1 mov [MZ_S_bx],256 mov [MZ_S_si],0 mov ax,[ScrAddr] ; Counting the seg.addr. of mov es,ax ; the two buffer for mov bx,ax ; mandelbrot. add bx,1000h xor ax,bx mov [MZ_XorScr],ax mov [MZ_ScrSeg],bx push ax call Make_Mandy pop ax xor [MZ_ScrSeg],ax mov ax,13h int 10h ; Setting 320x200-256 mode. mov ax,0a000h mov es,ax mov ax,808h xor di,di mov cx,32000 rep stosw ; Clear the screen. mov [MZ_Finish],al mov [MZ_Next],al mov al,1fh mov di,320*8+94 mov si,di mov cx,132 @@1: mov es:[di],al ; Make the frame. mov es:[di+320*131],al inc di mov es:[si],al mov es:[si+132],al add si,320 loop @@1 mov dx,3c8h ; Setting the colors mov ax,2f00h out dx,al inc dx mov cl,80 @@2: cmp ah,2fh jnz @@3 mov ah,0 mov bx,1020h @@3: mov al,bl out dx,al mov al,bh out dx,al mov al,ah out dx,al add bx,101h inc ah loop @@2 mov [Timer_Routine],O Put_Mandy @@4: mov ebx,[MZ_Delta] ; Count the next phase's shl ebx,6 ; left-upper corner & mov eax,@@TargetRe ; the difference between sub eax,ebx ; two dot. mov [MZ_StartRe],eax mov eax,@@TargetIm sub eax,ebx mov [MZ_StartIm],eax shr ebx,7 mov [MZ_Delta],ebx call Make_Mandy mov al,1 mov [MZ_Next],al @@5: cmp [MZ_Next],al je @@5 ; Wait for the next phase. cmp [MZ_Finish],al jne @@4 ; Or exit at the end. mov ah,40h @@6: mov cl,80 ; Fading down the colors. call FadeDown call Raster call Raster dec ah jnz @@6 mov [Timer_Routine],O Timer_Blank ret @@TargetRe = -15049100 @@TargetIm = -43583200 MZ_StartRe dd -15049100-750000*128 MZ_StartIm dd -43583200-750000*128 MZ_Delta dd 750000 Mandy_Zoom ENDP ; ┌───────────────────────────────────────────────┐ ; │ Timer routine for zooming. │▒ ; └───────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Modified regsiter(s): nothing ; Length: 179 bytes. ; Last modified: 10-17-95 10:02pm Put_Mandy PROC NEAR ; Streches 256x256 square picture to 128x128. ; Input: si= The offset of the left-upper corner in the 256x256 pic. ; bx= The length of the edge of the part that will be zoomed. Put_Her MACRO LOCAL P1,P2 mov di,(320-128)/2+320*10 ; di= screen position. shl bx,1 ; bx= the addition to the row. mov ax,si mov ah,0 ; ax= left sid of the square. mov cl,80h P1: mov ch,80h push bx si and si,0ff00h ; si= the offset of the row to strech. add si,ax ; si= the offset of the left-upper crn. mov bp,8000h xor dx,dx ; bx:dx= the addiotion to the column. xchg bl,dh xchg bh,bl dec bx ; Dec. int. part 'coz of the movsb. P2: movsb add bp,dx adc si,bx dec ch jnz P2 ; Jump if not at the end of the row. add di,320-128 pop si bx add si,bx ; Count the next row's address. loop P1 ; Loop if not at the end of the pic. ENDM ; It starts. (Timon of LionKing) pushad push es mov ax,0a000h mov es,ax cmp [Timer_Cnt],8000h jns @@2 ; Jump if no new text needed. mov si,[MZ_TextPos] lodsw ; Get its position. inc ax jnz @@1 mov [MZ_Finish],1 ; Mark finish. jmp @@2 @@1: xchg di,ax mov dx,800h+1fh-8 ; Set text colors. call PutTextVGA ; Put a text. lodsw mov [Timer_Cnt],ax ; Set waiting. mov [MZ_TextPos],si ; Store the textpointer. @@2: dec [MZ_Cnt] ; Do it every 80ms. jne @@4 mov [MZ_Cnt],10 cmp [MZ_S_bx],128 jne @@3 ; Jump if no new phase needed. cmp [MZ_Next],1 jne @@4 ; Jump if the next phase is not ready. mov ax,[MZ_XorScr] xor [MZ_ScrSeg],ax ; Exchange the secondary screens. xor ax,ax mov [MZ_Next],al ; And set up them. mov [MZ_S_si],ax inc ah mov [MZ_S_bx],ax @@3: mov bx,[MZ_S_bx] sub [MZ_S_bx],2 mov si,[MZ_S_si] add [MZ_S_si],101h mov ax,[MZ_ScrSeg] xor ax,[MZ_XorScr] mov ds,ax ; ds:si= adr.of the left-upper corner. Put_Her ; Put the streched mandelbrot. @@4: pop es popad ret MZ_Cnt db 1 ; The counter for 80ms. MZ_S_bx dw 256 ; The length of the edge of the square to strech. MZ_S_si dw 0 ; The offset of the left-upper corner of the square. Put_Mandy ENDP ; ┌────────────────────────────────────────────────┐ ; │ Makes a 256x256 mandelbrot. │▒ ; └────────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: MZ_ScrSeg= The segment address of the mandelbrot. ; MZ_StartIm & MZ_StartRe= The complex value of the left-upper corner. ; MZ_Delta= The difference between two dot. ; Modified regsiter(s): eax,ebx,ecx,edx,edi,esi,ebp,es ; Length: 149 bytes. ; Last modified: 10-17-95 10:02pm Make_Mandy PROC NEAR MaxIter = 80 ; The number of the maximum iteration. @@FixPoint = 26 ; The number of the bit where the fix-point is. xor di,di mov es,[MZ_ScrSeg] mov esi,[MZ_StartIm] xor cx,cx @@1: mov [MZ_RowCnt],0 mov ebx,[MZ_StartRe] @@2: push ebx ecx esi di call @@Iter ; Do the iteration. pop di mov es:[di],cl ; cl= the color of the dot. inc di test cl,cl ; Test if the color is 0. pop esi ecx ebx jnz @@3 inc [MZ_RowCnt] ; If a whole row contains 0, jz @@KillIt ; fill the remained with 0 too. @@3: add ebx,[MZ_Delta] dec ch jnz @@2 ; Jump if not at the end of the row. add esi,[MZ_Delta] loop @@1 ; Loop if not at the end of the pic. ret @@KillIt: xor cx,cx ; Fill the remain with 0. sub cx,di shr cx,2 jmp Fill0_2 ; Counting one dot's color. ; Input: ebx= reA ; esi= imA @@Iter: xor edi,edi ; edi= reZ (=0). xor ebp,ebp ; ebp= imZ (=0). mov cl,MaxIter ; Iteration nubmer. @@Iter_Loop: dec cl jz @@Iter_End mov eax,edi imul ebp shrd eax,edx,@@FixPoint-1 add eax,esi ; eax= 2*reZ*imZ + imA. xchg eax,ebp ; ebp= imZ+ & eax=imZ. imul eax shrd eax,edx,@@FixPoint ; eax= imZ^2. xchg eax,edi ; edi= imZ^2 & eax= reZ. imul eax shrd eax,edx,@@FixPoint ; eax= reZ^2. mov edx,eax ; edx= reZ^2. sub eax,edi add eax,ebx xchg eax,edi ; edi= reZ^2 - imZ^2 + reA= imZ+. add eax,edx ; eax= reZ^2 + imZ^2. cmp eax,4 SHL @@FixPoint jb @@Iter_Loop @@Iter_End: ret Make_Mandy ENDP ; The title texts. TitleTexts dw 168*320+48-1 ; The screen position of the text db 'ABADDON',0 ; The text. dw 500+8000h ; The time to wait after putting it. ; Time=x+8000h waits x*10ms. dw 168*320+32-1 db 'PRESENTS',0 dw 500+8000h dw 168*320+32-1 db ' G.O.D. ',0 dw 500+8000h dw 168*320+0-1 db 'PRODUCTION',0 dw 500+8000h dw 168*320+0-1 db ' ',0 dw 50+8000h dw 0ffffh ; 0ffffh scr.pos. means the end. ; The end texts. EndTexts dw 168*320+16-1 db 'GREETINGS',0 dw 150+8000h dw 168*320-1 db ' TO ',0 dw 150+8000h dw 168*320-1 db 'EVERYBODY',0 dw 150+8000h dw 168*320-1 db ' WHO IS ',0 dw 150+8000h dw 168*320+16-1 db 'WATCHING.',0 dw 400+8000h dw 168*320+16-1 db 'THIS WAS ',0 dw 150+8000h dw 168*320-1 IntroName db 'REFRACTION',0 dw 1500+8000h dw 0ffffh ; ┌──────────────────────────────────────────┐ ; │ Broken screen effect. │▒ ; └──────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Modified regsiter(s): eax,bx,ecx,dx,edi,si,bp,es,fs ; Length: 543 bytes. ; Last modified: 10-26-95 02:17pm BrkPntNum = 12 ; Number of vertices where the breaking line breaks. BreakScr PROC NEAR mov ax,13h int 10h ; Set 320x200-256 screen. call ClrScr2 ; Clear the secondary screen. mov bx,40*100h+45 ;43*100h+45 call @@BrkScr_SetC ; Set the colors. mov si,O IntroName mov di,320*84+0 mov dx,1 push dx di si call PutTextVGA ; Put the text on the sec.scr. pop si di dx mov ax,0a000h mov es,ax call PutTextVGA ; Then onto the real screen. mov ax,400+8000h call Delay ; Wait for 4 seconds. xor cx,cx mov dx,140 mov [BrkPoliXS],dx ; The breaking line is on 140 Y. ;mov [BrkPoliXC],70 ; The center of the light-source ;mov [BrkPoliYC],100 ; is at 70-100. mov si,O BreakingLine mov bp,BrkPntNum-1 @@1: lodsw ; Draw the breaking line. xor bx,bx xchg bl,ah add ax,140 ; Its middle Y is 140. push ax bx si bp mov bp,O BrkStoreEdge call DrawEdge pop bp si cx dx dec bp jnz @@1 COMMENT ~ xor cx,cx ; Break the screen. @@2: push cx ; The line starts at Y=0 and mov bx,cx ; finishes at T=cx. shl bx,2 mov dx,W [TempArea+2][bx] ; dx=X of the brk.l. in the ; cx-th. rasterrow. sub dx,140 mov si,O BreakingLine-2 mov di,O BrkLTemp push ds pop es mov dh,BrkPntNum @@3: lodsw ; Make a table for BrkPoli rout. cmp ah,cl ; from a current phase of the brk.l. jb @@4 mov ah,cl ; If the vertex is below cx. mov al,dl @@4: stosw dec dh jnz @@3 mov si,O BrkLTemp call @@Put_Scr ; Make light & put the screen. pop cx add cx,4 cmp cx,200 jb @@2 ~ mov ax,100+8000h call Delay ; Wait for 1 sec. xor bp,bp @@5: mov [Timer_Cnt],4+8000h push ds ; Prepare for scrolling the two halves. mov ds,[ScrAddr] push ds pop es mov di,320*84 ; Scroll only the middle of the screen, mov bx,O TempArea+84*4+2 ; where the text is. mov dl,28 ; It is 28 dot high. @@6: mov cx,cs:[bx] sub cx,bp dec cx js @@7 push di mov si,di inc si rep movsb ; Scroll the left side. pop di @@7: mov cx,320 sub cx,cs:[bx] sub cx,bp dec cx js @@8 push di add di,319 mov si,di dec si std rep movsb ; Scroll the right side. cld pop di @@8: add di,320 add bx,4 dec dl jnz @@6 mov si,O TempArea+2 xor bx,bx ; Make the highlight gap between mov dl,200 ; the two sides. @@9: mov di,cs:[si] sub di,bp js @@10 mov B [bx+di],2 @@10: add di,bp add di,bp mov B [bx+di+1],2 add si,4 add bx,320 dec dl jnz @@9 pop ds cmp bp,75 ja @@11 mov ax,140 ; If the gap is above 2*75 pixel, sub ax,bp ; the left light is not visible. mov [BrkPoliXS],ax mov si,O BreakingLine-2 mov ax,0c040h call @@BrkPoli @@11: mov ax,140 add ax,bp mov [BrkPoliXS],ax mov si,O BreakingLine-2 call @@Put_Scr ; Make light & put the screen. cmp bp,75 jne @@12 push bp ; At the gap=2*75 the light lights mov bx,58*100h+60 ; into our eyes. mov ah,40 call @@BrkScr_SetC pop bp @@12: cmp bp,140-24 jb @@13 push bp ; With 2*24 before the end the mov ax,bp ; "whiting" the colors. sub ax,140-24-40 mov ah,al mov bx,58*100h+60 call @@BrkScr_SetC pop bp @@13: @@18: cmp [Timer_Cnt],0 js @@18 inc bp cmp bp,140 jb @@5 ret @@Put_Scr: mov ax,3010h call @@BrkPoli ; Make the right one of the lights. push ds call Copy_Scr push ds pop es xor di,di ; Clear the light from the sec.scr. xor si,si mov edx,0f0f0f0fh mov cx,16000 @@PS1: lodsd and eax,edx stosd loop @@PS1 pop ds ret BrkStoreEdge: push bx ; Store the X coord. of the brk.line. shl bx,2 mov D [TempArea][bx],edi pop bx ret db 0, 0 BreakingLine db 20, 20 ; The coordinates of the brk.line. db 14, 40 db 30, 60 db 18, 80 db 25, 90 db 0, 110 db 10, 125 db 15, 140 db 5, 160 db 25, 180 db 0, 200 @@Colors db 000,000,000 ; The color table. db 025,025,035 db 063,063,063 @@BrkScr_SetC: mov dx,3c8h ; Set the colors. mov al,0 ; The LS4B is the color; out dx,al ; the 4-5 bit is the right light; inc dx ; the 6-7 bit is the left light. mov bp,16*3 mov cx,bp call @@SetCol ;00000000b mov ah,bh mov cx,bp call @@SetCol ;00010000b mov ah,bl mov di,2 call @@BSC1 ;00100000b ;00110000b xchg ah,bh mov di,4 call @@BSC1 ;01000000b ;01010000b ;01100000b ;01110000b xchg ah,bl mov di,8 ;10000000b ;10010000b ;10100000b ;10110000b ;11000000b ;11010000b ;11100000b ;11110000b @@BSC1: mov cx,bp call @@SetCol dec di jnz @@BSC1 ret @@SetCol: mov si,O @@Colors jmp SetBloCol ; Makes the lights. ; Let's look at this: ; __ V1 ; Brk.line. ___/ | ; \ ___/ | ; ___\_/ Light is / ; LS.__/ /V4 here | ; +_____/____________| ; \V3 V2 ; \ @@BrkPoli: push bp mov cx,BrkPntNum-1 @@BP1: push cx si ax mov bp,O BrkTemp mov di,O BrkTemp+4 call @@BrkPoli2 ; Count the V4,V1 vertex. mov bp,O BrkTemp+12 mov di,O BrkTemp+8 call @@BrkPoli2 ; Count the V2,V3 vertex. mov si,O BrkTemp pop ax push ax mov ah,1 mov cx,4 call FillPoli ; Fill the light. pop ax si cx xor al,ah inc si inc si loop @@BP1 ; Then the next one. pop bp ret @@BrkPoli2: lodsw ; Counting an edge of a light. xor bx,bx xchg bl,ah add ax,[BrkPoliXS] mov [bp],ax ; Store 1st vertex of the line (V3,V4). mov [bp+2],bx mov cx,ax sub cx,70 ;[BrkPoliXC] mov dx,bx sub dx,100 ;[BrkPoliYC] @@BP2: add ax,cx ; Count the 2nd vertex (V1,V2). add bx,dx cmp ax,400 ja @@BP3 cmp bx,600 jb @@BP2 @@BP3: mov [di],ax ; And store them. mov [di+2],bx ret BreakScr ENDP ; ┌───────────────────────────────────────────┐ ; │ Sets a block of colors. │▒ ; └───────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= The address of the R,G,B components of the colors. ; cx= The number of colors to set ; ah= The addition value to the R,G,B. (Something brightness.) ; ; Modified register(s): al, cx, si ; Length: 13 bytes. ; Last modified: 10-05-95 12:04pm SetBloCol PROC NEAR @@1: lodsb add al,ah cmp al,3fh jbe @@2 ; Jump if the color value is right. mov al,3fh ; Else set the maximum color. @@2: out dx,al loop @@1 ret SetBloCol ENDP ; ┌────────────────────────────────────────────┐ ; │ Chess is looking good. │▒ ; └────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Modified regsiter(s): eax,ebx,cx,edx,di,si,ebp,es ; Length: 488 bytes (with data). ; Last modified: 10-26-95 04:22pm Chess_Mate PROC NEAR ; The number of figures thoose are on the table. (6 whites & 7 blacks) FigsOn EQU 6+7 call Mk_ChFigs ; Make the figures' objects. call Mk_ChTable ; Make the chess table. mov ax,13h ; Set screen to 320x200-256. int 10h mov dx,3c8h ; Setting the colors mov al,0 out dx,al inc dx mov ch,49h ; 0-3fh table's colors. mov bx,4940h call Ch_SetCol mov ch,64h ; 40h-7fh white's colors. mov bx,5950h call Ch_SetCol mov ch,0 ; 80h-0bfh black's colors. mov bx,2921h call Ch_SetCol mov si,O Chess_Text1 call Put_ManyText ; Put the names, counry and year. push cs pop es mov di,O ChFig_Pos ; Set up the figs' positions. mov si,O ChStartPos mov cx,FigsON*3 @@1: lodsb cbw shl eax,2+10h stosd loop @@1 mov si,O ChFig_Init ; Set up the figs' addrs&colors. mov di,O ChFig_Dat mov cx,FigsOn @@2: movsw lodsb stosw loop @@2 ; Set up some other variables. mov [LS_Circ],00400000h ; The ligth-circle's size. ; ( the bigger the less ) mov D [Zoom_Factor-2],200*10000h ; Zooming for 3D-2D ; transformation. mov eax,128*10000h ; Starting rotation angles. mov D [Rot_Alfa-2],eax mov D [Rot_Beta-2],eax xor eax,eax mov [Eye_XAdd],eax ; Our eye's position. mov [Eye_YAdd],eax mov [Eye_ZAdd],-300*10000h mov [PO_XLight],eax ; The light- circle's position. mov [PO_ZLight],eax ; ax=0 here! mov di,O New_Values ; It causes no movement at all. mov cx,((9+FigsOn*3)*2)*2 rep stosw mov [Timer_Routine],O Chess_Timer ; The addr.of timing r. @@3: call ClrScr2 ; Clear the sec.scr. push cs pop es mov [FPG_Col],al ; eax=0 ! mov di,O Trans_XAdd mov si,O Eye_XAdd movsd movsd movsd mov si,O Chess_Table call Put_Obj ; Put the chess-table. push cs ; Sorting the figures from the fartest pop es ; to the nearest. mov si,O ChFig_Pos mov di,O TempArea mov cx,FigsOn push cx cx di call Rotate ; si=original, di=rotated, cx=number. pop si cx add si,8 mov di,O ChFig_Srt push di xor eax,eax @@4: neg D [si] movsd add si,12 stosd inc ax loop @@4 pop si cx call QuickSort ; si=rotated, cx=number. mov bx,O ChFig_Srt+4 ; [bx]=sorted numbers of the ; figures. mov cx,FigsOn @@5: push cs pop es mov si,[bx] ; si=figs' number to put. add bx,8 push bx cx shl si,2 push si add si,O ChFig_Dat mov dx,[si] ; dx=offs. of the figure's object. mov al,[si+2] ; al= color of the figure. mov [FPG_Col],al pop si mov ax,si shl si,1 add si,ax add si,O ChFig_Pos ; Set its position. mov di,O Trans_XAdd lodsd add eax,[Eye_XAdd] stosd lodsd add eax,[Eye_YAdd] stosd lodsd add eax,[Eye_ZAdd] stosd xchg dx,si call Put_Obj ; And put it. pop cx bx loop @@5 call Raster push ds call Copy_Scr ; Put the sec.scr to the primary scr. pop ds cmp [ChFinish],0 jz @@3 ; Jump back if not at the end. mov si,O Chess_Text2 ; Puts some text to the screen. ; Input: si= Offset of the positions+texts. ; Modified regsiter(s): ax,bx,cx,dx,di,si,bp,es Put_ManyText: mov ax,0a000h mov es,ax lodsb @@6: push ax lodsw xchg ax,di mov dx,60h call PutTextVGA ; Put the text on the screen. pop ax dec al jnz @@6 mov ax,400+8000h jmp Delay ; Wait for 4 seconds. ; ChFinish <> 0 if this part is over. ChFinish db 0 ; Some value to make the data understandable. CB_L = 70 ; Left-edge's position. CB_A = 47 ; 'A' column's position. CB_B = 35 ; etc. CB_C = 21 CB_D = 7 CB_E = -7 CB_F = -21 CB_G = -35 CB_H = -47 CB_R = -70 ; Rigth-edge's position. CB_U = -70 ; Upper-edge's position. CB_1 = -47 ; '1' row's position. CB_2 = -35 ; etc. CB_3 = -21 CB_4 = -7 CB_5 = 7 CB_6 = 21 CB_7 = 35 CB_8 = 47 CB_D = -70 ; Down-edge's position. ; The fiures's start positions. ChStartPos db CB_7,CB_A,0 ; Black Pawn db CB_6,CB_B,0 ; Black Pawn db CB_6,CB_F,0 ; Black Pawn db CB_7,CB_B,0 ; Black Castle db CB_5,CB_E,0 ; Black Queen db CB_7,CB_F,0 ; Black King db CB_2,CB_A,0 ; White Pawn db CB_2,CB_F,0 ; White Pawn db CB_3,CB_G,0 ; White Pawn db CB_5,CB_H,0 ; White Pawn db CB_1,CB_B,0 ; White Bishop db CB_8,CB_H,0 ; White Queen db CB_2,CB_H,0 ; White King ; The figures's object's address and color. ChFig_Init dw O Pawn db 80h dw O Pawn db 80h dw O Pawn db 80h dw O Castle db 80h dw O Queen db 80h dw O King db 80h dw O Pawn db 40h dw O Pawn db 40h dw O Pawn db 40h dw O Pawn db 40h dw O Bishop db 40h dw O Queen db 40h dw O King db 40h ; Title texts. Chess_Text1 db 3 dw 320*40 db 'KERES-',0 dw 320*72+32*3 db 'TAMINOV',0 dw 320*104 db 'USSR, 1951',0 ; Finish texts. Chess_Text2 db 2 dw 64 db 'BLACK',0 dw 320*32+32 db 'RESIGNS',0 Chess_Mate ENDP ; ┌───────────────────────────────────────────┐ ; │ Chess timing routine. │▒ ; └───────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Length: 146 bytes + the MoveTable. ; Last modified: 10-26-95 02:18pm Chess_Timer PROC NEAR pushad mov si,O Old_Values mov di,O New_Values mov cx,9+FigsOn*3 @@1: lodsd ; Get an old variable. mov ebx,[di] ; Get its finishing value. add di,8 cmp eax,ebx je @@5 ; Jump if it is reached. jg @@2 add eax,[di-4] ; If less, increase it. cmp eax,ebx jle @@4 jmp @@3 ; Set the finishing value if overflow. @@2: sub eax,[di-4] ; If greater, decrase it. cmp eax,ebx jge @@4 @@3: xchg eax,ebx ; In case of overflow. @@4: mov [si-4],eax ; Write it back. @@5: loop @@1 ; Do the next one. dec [@@Counter] jnz @@Exit ; Jump if no next phase needed. mov si,[@@Pointer] lodsb ; Set up the next phase. cmp al,0ffh jne @@6 ; Jump if not at the end of this part. mov [ChFinish],al ; Else mark it. jmp @@Exit @@6: mov dl,al ; Count the new delay. and dx,0e0h shl dx,2 inc dx mov [@@Counter],dx and al,1fh xor edx,edx xchg al,dl ; edx= the step of modifying. lodsb mov ah,0 shl ax,3 add ax,O New_Values xchg ax,di ; di= adr.of the value to change. lodsb cbw cwde shl eax,18 ; eax= finishing value. mov [di],eax shl edx,14 mov [di+4],edx mov ax,511 and [Rot_Alfa],ax ; Anding the rotating angles, and [Rot_Beta],ax ; to avoid some strange effect. mov [@@Pointer],si ; Write back the pointer of the phases. @@Exit: popad ret ; Some value to make life easier. Mv_BP1 = 9 ; 1st black pawn's number. Mv_BP2 = 12 ; etc. Mv_BP3 = 15 Mv_BC = 18 Mv_BQ = 21 Mv_BK = 24 Mv_WP1 = 27 Mv_WP2 = 30 Mv_WP3 = 33 Mv_WP4 = 36 Mv_WB = 39 Mv_WQ = 42 Mv_WK = 45 ; A counter for delaying phases. @@Counter dw 1 ; The pointer of phases. @@Pointer dw O @@MoveTable ; The moving phases. ; Format: 1st byte: bit7-5 the delay for next phase. ; bit4-0 the step to reach the new values. ; 2nd byte: the value to modify. ; 3rd byte: the finishing value. ; 0,1, 2, 3, 4, 5,6,7,8, 9, 10, 11, 12 ; a,b,ZF,XL,ZL,LC,X,Y,Z,f1X,f1Y,f1Z,f2X,... ;842421½¼ *4 @@MoveTable LABEL db 11100001b, 8, -5 db 10000001b, 8, -5 db 01000001b, 6, -60 db 01000001b, 0, 110 db 01000001b, 6, 0 db 11100001b, 8, -20 db 00100010b, 3, 20 db 00100010b, 4, -15 db 00100010b, 3, -15 db 01100010b, 4, 15 ;db 01000001b, 3, 20 ;db 01000001b, 4, -15 ;db 01000001b, 3, -15 ;db 11100001b, 4, 15 db 00000001b, Mv_WQ, CB_7 db 01000001b, Mv_WQ+1, CB_H ;db 10000001b, Mv_WQ+1, CB_H db 00000001b, Mv_BK, CB_6 db 01000001b, Mv_BK+1, CB_E ;db 01100001b, Mv_BK+1, CB_E db 00000001b, 0, 86 db 00000001b, 6, 10 db 00000001b, 4, -18 db 00000001b, Mv_WQ, CB_7 db 10000010b, Mv_WQ+1, CB_B db 01000010b, Mv_BC, CB_L ;db 10000010b, Mv_BC, CB_L db 01000001b, 0, 120 db 00000010b, Mv_BQ, CB_5 db 01000010b, Mv_BQ+1, CB_H db 00000010b, Mv_WP4, CB_4 db 01100010b, Mv_WP4+1,CB_R db 01000010b, Mv_WK+1, CB_G db 01100100b, 5, 85 db 0ffh Chess_Timer ENDP ; ┌────────────────────────────────────────────┐ ; │ Makes the chess figures. │▒ ; └────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Modified regsiter(s): eax,ebx,cx,edx,di,si,ebp,es ; Length: 165 bytes. ( with data ) ; Last modified: 10-26-95 04:22pm Mk_ChFigs PROC NEAR mov si,O ChFig_Tab mov cx,FigNum @@1: lodsw ; Get the contour's address. xchg ax,bx lodsw ; Get the object's room address. xchg ax,di lodsb ; Get the number of vertices of contour. mov ah,0 push cx si xchg ax,si xchg bx,si call Make_Obj ; Make the object. pop si cx loop @@1 ; Do the next one. ret FigNum EQU 5 ; The number of figures' types. PVtx EQU 9 ; The number of the vertices in a pawn. BVtx EQU 11 ; ... in a bishop, etc. CVtx EQU 10 QVtx EQU 12 KVtx EQU 15 ; A table for making objects. ( 1st W: contour's addr., 2nd W: object's addr., ; 3rd B: the number of vertices in the contour. ) ChFig_Tab dw O Cont_Pawn, O Pawn db PVtx dw O Cont_Bish, O Bishop db CVtx dw O Cont_Cast, O Castle db CVtx dw O Cont_Quen, O Queen db QVtx dw O Cont_King, O King db KVtx ; The contours of the figures. ;Cont_Pawn db 0, 76, -8, 76, -20, 68, -28, 56, -28, 40 ; db -20, 28, -16, 22, -32, 16, -20, 4, -32,-40 ; db -40,-56, -44,-56, -48,-60, -48,-72, 0,-72 Cont_Pawn db 0, 94, -14, 89, -21, 80, -21, 70, -11, 57 db -21, 14, -37, 6, -37, 0, 0, 0 Cont_Bish db 0,118, -14,104, -20, 92, -20, 84, -11, 76 db -28, 67, -11, 67, -25, 14, -36, 8, -36, 0 db 0, 0 Cont_Cast db 0, 97, -15, 97, -20,108, -28,108, -28, 86 db -18, 76, -28, 15, -38, 10, -38, 0, 0, 0 Cont_Quen db 0,159, -3,159, -6,156, -6,153, -30,150 db -12,114, -30,114, -14,105, -30, 18, -42, 12 db -42, 0, 0, 0 Cont_King db 0,169, -3,169, -3,165, -8,165, -8,162 db -3,162 db -3,156, -24,144, -12,114, -30,105, -9,105 db -30, 18, -42, 12, -42, 0, 0, 0 Mk_ChFigs ENDP ; ┌───────────────────────────────────────────────┐ ; │ Sets 64 colors for gouraud. │▒ ; └───────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ch,bh,bl=R,G,B compnent ; dx= 3c9h ; Modified regsiter(s): ax,cl,dx,bp ; Length: 34 bytes. ; Last modified: 10-28-95 11:00am Ch_SetCol PROC NEAR mov cl,0 ; cl goes from 0 to 3fh @@1: mov bp,3 ; There are 3 components for each col. @@2: mov al,cl mul ch shr ax,6 cmp al,3fh ; Check if above the max. jb @@3 mov al,3fh ; If above, set the max. @@3: out dx,al xchg bh,ch ; Change for the next component. xchg bl,bh dec bp jnz @@2 ; Do the next component. inc cl cmp cl,40h jnz @@1 ; Do the next color. ret Ch_SetCol ENDP ; ┌───────────────────────────────────────────────────┐ ; │ Makes the chess-table object. │▒ ; └───────────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Modified regsiter(s): ax,ebx,cx,edx,di,ebp,es ; Length: 98 bytes. ; Last modified: 10-26-95 04:22pm Mk_ChTable PROC NEAR @@SqEdge= 56*10000h ; The length of one square's edge. push cs pop es mov di,O Chess_Table+2 ; di=adr.of the object. mov W [di-2],81 ; It contains 81 vertices. mov edx,@@SqEdge*(-4) ; edx is the Y coordinate. xor ebp,ebp ; ebp is the Z coordinate. mov cl,9 ; There are 9 vertex row. @@1: mov eax,@@SqEdge*(-4) ; eax is the X coordinate. mov ch,9 ; There are 9 vertex column. @@2: stosd ; Store X. mov [di],edx ; Store Y. mov D [di+4],ebp ; Store Z. add di,8 add eax,@@SqEdge dec ch jnz @@2 add edx,@@SqEdge loop @@1 mov ax,32 ; There are 32 square. stosw mov ax,1 mov bx,ax mov cl,8 ; 8 row. @@3: mov ch,4 ; 4 squre in each rows. @@4: stosw ; Store one sq.'s vertices' dec ax ; numbers. stosw add ax,9 stosw inc ax stosw sub ax,7 dec ch jnz @@4 ; Next square. inc ax add ax,bx xor bx,0fffeh loop @@3 ; Next row. ret Mk_ChTable ENDP ; ┌────────────────────────────────┐ ; │ Puts a text. │▒ ; └────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= Address of text to put (ASCIIZ). ; es:di= Screen position of text. ; dl= Text's color. ; dh= Text's background - text's color. ; Output: ds:si= The address of the 1st byte after the text. ; ; Modified regsiter(s): ax,bx,cx,dx,di,si,bp ; Length: 74 bytes. ; Last modified: 10-28-95 11:13am PutText PROC NEAR ; Entry point for putting text on VGA screen vertically. ;PutTextVGA_Vert: ; mov [@@Sub_di],0 ; jmp @@PutTextVGA2 ; Entry point for putting text on VGA screen horizontally. PutTextVGA: mov [@@Sub_di],32*320-32 @@PutTextVGA2: mov bp,320-32 @@1: mov [PText_Bkg],dh ; Set text colors. push fs mov fs,[ChrAddr] ; fs= Segment address of bigchars. @@2: mov bl,[si] ; bl= The current char to put. inc si sub bl,20h ; The 1st stored char is the space. jc @@Exit ; Jump if it's the end of the string. mov bh,0 shl bx,10 ; bx= The offset address of the char. mov cl,32 ; We've got 32 row in a char. @@3: mov ch,4 ; We've got 4*8 column in a char. @@4: mov dh,8 @@5: mov al,fs:[bx] ; Putting a 8 dot wide part of a row. inc bx test al,al jz @@6 mov al,dl @@6: add al,[PText_Bkg] stosb dec dh jnz @@5 dec ch jnz @@4 ; Next 8 dot wide part. add di,bp ; di= next screen row. loop @@3 sub di,1234h ; di= next char screen position. ORG $-2 @@Sub_di LABEL Word ORG $+2 jmp @@2 ; Next char. @@Exit: pop fs ret PutText ENDP ; ┌─────────────────────────────────────────┐ ; │ Filling a poligon. │▒ ; └─────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= The vertices of the poligon. (X1,Y1, X2,Y2, ... in words.) ; There must be one free space (2 words), after the coordinates. ; cx= The number of the vertices ; al= The color of the poligon ; ah= Putting method. ( 0-Overwrite, 1-Or, 2-Gouraud ) ; ; Modified regsiter(s): eax,bx,ecx,edx,edi,si,bp,es ; Length: 271 bytes. ; Last modified: 10-28-95 11:29am FillPoli PROC NEAR mov [FPMethod],ah push ax ; Store the color & the putting method. mov eax,[si] mov bx,cx shl bx,2 mov [si+bx],eax ; Copy the 1st vertex after the last. cmp [FPMethod],2 jne @@2 mov ax,[si+4*4+4] ; When gouraud, copy the 1 color mov [si+4*4+4+4*4],ax ; after the last. @@2: mov [FPoliMin],7fffh ; Clear the least, mov [FPoliMax],8000h ; and the greatest y coord. @@3: push cx lodsw ; Get one line. xchg ax,bx ; ( Start: X=ax, Y=bx; lodsw ; End: X=dx, Y=cx.) xchg ax,bx mov dx,[si] mov cx,[si+2] mov bp,O FPoliTemp cmp cx,bx jl @@4 ; Jump if the line is on the left side. mov bp,O FPoliTemp+200*2 @@4: mov [FPoliPnt],bp push si mov bp,O FillPoliEdge ; This routine will store the edge. call DrawEdge ; Draw an edge of the poligon. cmp [FPMethod],2 jne @@5 ; Jump if no gouraud nenned. pop si push si mov ax,[si+16] mov bx,[si-2] mov dx,[si+20] mov cx,[si+2] add [FPoliPnt],200*2*2 mov bp,O FPGouraud call DrawEdge ; Draw the color on the edge. @@5: pop si pop cx loop @@3 ; Next edge line. mov es,[ScrAddr] pop ax ; Get back color. mov bx,[FPoliMin] ; Poli.is between FPoliMin & FPoliMax. cmp bx,7fffh je @@14 @@6: mov dx,320 mov di,[FPoliTemp][bx] ; di= Start X coord. cmp di,dx ; Jump if beyond the right jge @@13 ; edge of the screen. test di,di jns @@7 ; Jump if it's on the screen. xor di,di ; Else put it to the left edge. @@7: mov cx,[FPoliTemp+200*2][bx] ; cx= End x coord. test cx,cx ; Jump if beyond the left js @@13 ; edge of the screen. cmp cx,dx jl @@8 ; Jump if it's on the screen. mov cx,dx ; Else put it to the right edge. @@8: sub cx,di ; cx= the length of the line. jle @@13 ; Jump if len. <= 0. add di,[ScrRowsVGA][bx] ; di= screen position of line. ; test ah,ah ; jnz @@9 ; Jump if overwrite mode. ; rep stosb ; Put the horizontal line onto the scr. ; jmp @@13 @@9: cmp ah,1 jne @@11 @@10: or B es:[di],al ; 'OR' the horizontal line inc di ; onto the screen. loop @@10 jmp @@13 @@11: push ax ; Draw a gourauded hrz.line. mov ax,[FPGouTemp+200*2][bx] mov si,[FPGouTemp][bx] sub ax,si ; ax= difference between the colors. shl ax,8 cwd idiv cx xchg ax,si ; si=addition for the colors. ; ( Hi8 bit fract., Lo8 bit int. ) mov ah,80h ; ah= color fractational. add al,[FPG_Col] ; al= color integer. ror si,8 @@12: stosb adc ax,si loop @@12 pop ax @@13: inc bx inc bx cmp bx,[FPoliMax] jbe @@6 ; Next horizontal line. @@14: ret FillPoli ENDP ; This routine stores the x coordinate of the edge. FillPoliEdge PROC NEAR cmp bx,200 jae @@FPE3 ; Jump if Y coord. > 200 or Y < 0. push bx shl bx,1 cmp bx,[FPoliMin] jge @@FPE1 ; Jump if greter than the min. so far. mov [FPoliMin],bx ; Else store the new minimum. @@FPE1: cmp bx,[FPoliMax] jle @@FPE2 ; Jump if less than the max. so far. mov [FPoliMax],bx ; Eles store the new maximum. FPE_Store: @@FPE2: shld edx,edi,10h ; dx= integer part of x coord. add bx,[FPoliPnt] ; bx= the y coord. in the edge buffer. mov [bx],dx ; Store the x coord. pop bx FPE_Exit: @@FPE3: ret FillPoliEdge ENDP ; This routine stores the color of the edge for gouraud. FPGouraud PROC NEAR cmp bx,200 jae FPE_Exit ; Jump if Y coord. > 200 or Y < 0. push bx shl bx,1 jmp FPE_Store FPGouraud ENDP ; ┌────────────────────────────────────────────┐ ; │ Draws an 'edge line'. │▒ ; └────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Draws a line. It chages the y coordinate with 1 (up or down) and gives ; the x coordinate accords to it. It is not draw a real line. ; You have to give the address of a routine what puts the point. ; In this routine you must not modify the registers, except edx. You can have ; y coordinate in bx, and x coorinate in the edi's higer 16 bits. (Huh!) ; Input: ax,bx= Start point's x and y coordinate ; dx,cx= End point's x and y coordinate ; bp= The offset address of the routine, what is called every steps ; ; Modified regsiter(s): eax,bx,ecx,edx,edi,si ; Length: 49 bytes. ; Last modified: 10-28-95 01:56pm DrawEdge PROC NEAR mov si,1 ; si will be the y step. ( 1 or -1.) sub cx,bx ; cx= Y difference (dY). jz @@Exit ; Jump if dY=0, 'coz no line then. jns @@1 ; Jump if dY>0. Going from up to down. neg si ; Else y step is -1. neg cx ; cx=ABS(dY) @@1: sub dx,ax ; dx= X difference (dX). mov di,ax shl edi,10h mov di,0b000h ; edi= start point's x in fix point. xchg ax,dx shl eax,10h cdq ; edx:eax= dX in fix point. movzx ecx,cx idiv ecx ; eax= dX/dY in fix point. inc cx ; Draw loger line by 1. @@2: call bp ; Call the point-putter. add edi,eax ; Step X. add bx,si ; Step Y. loop @@2 ; Next point. @@Exit: ret DrawEdge ENDP ; ┌───────────────────────────────────────────┐ ; │ Fades down colors by 1. │▒ ; └───────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: cl= The number of last color to fade. ( Starts with color 0. ) ; ; Modified register(s): al,cx,dx,si,di ; Length: 44 bytes. ; Last modified: 10-02-95 04:42pm FadeDown PROC NEAR call Raster ; Waiting for a vertical retrace. @@1: mov dx,3c7h mov al,cl out dx,al ; Choose color register to read. mov dl,0c9h mov ch,3 @@2: in al,dx ; Get one color register's R or G or B. sub al,1 ; Decrement it. adc al,0 push ax dec ch jnz @@2 ; Next component. dec dx mov al,cl out dx,al ; Choose color register to write. inc dx pop si ; Popping the components. pop di pop ax out dx,al ; Set red component. xchg ax,di out dx,al ; Set green component. xchg ax,si out dx,al ; Set blue component. dec cl cmp cl,0ffh jne @@1 ; Next color. ret FadeDown ENDP ; ┌───────────────────────────────────────────────────┐ ; │ Clears the secopndary screen. │▒ ; └───────────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Modified register(s): eax,cx,di,es ; Length: 9 bytes. ; Last modified: 10-02-95 04:42pm ; The next routine must be 'Fill0'! ClrScr2 PROC NEAR mov es,[ScrAddr] mov cx,16000 ClrScr2 ENDP ; ┌───────────────────────────────────────────────┐ ; │ Fills an area with zeros. │▒ ; └───────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Fills an area pointed by es:0 with 0 words. The length of filling is cx words. ; Input: es= Segment address of filling ; cx= Length of filling in words. ; df= Cleared. ; Modified register(s): eax,cx,di ; Length: 9 bytes. ; Last modified: 10-02-95 04:42pm Fill0 PROC NEAR xor di,di Fill0_2: xor eax,eax rep stosd ret Fill0 ENDP ; ┌───────────────────────────────────────────────┐ ; │ Waits for vertical retrace. │▒ ; └───────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Modified register(s): al,dx ; Length: 14 bytes. ; Last modified: 08-28-95 12:27pm Raster PROC NEAR mov dx,3dah @@1: in al,dx ; Waiting for finish current vert.ret. test al,8 jnz @@1 @@2: in al,dx ; Waiting for vertical retrace. test al,8 jz @@2 ret Raster ENDP ; ┌───────────────────────────────────────────┐ ; │ Waits for some seconds. │▒ ; └───────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ax= The time for waiting (in 1/100 secs.) + 8000h ; Modified register(s): nothing ; Length: 11 bytes. ; Last modified: 10-03-95 08:31pm Delay PROC NEAR mov [Timer_Cnt],ax @@Delay_Loop: cmp B [Timer_Cnt+1],0 js @@Delay_Loop ret Delay ENDP ; ┌─────────────────────────────────────────────────────────────────────┐ ; │ Copyes the secondary screen onto the real screen. │▒ ; └─────────────────────────────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Modified register(s): ax, cx, di, si, ds, es ; Length: 23 bytes. ; Last modified: 10-07-95 05:12pm Copy_Scr PROC NEAR mov ds,[ScrAddr] mov ax,0a000h mov es,ax xor di,di xor si,si mov cx,16000 call Raster rep movsd ; Then copy the sec.scr to the real. ret Copy_Scr ENDP ; ┌────────────────────────────────────┐ ; │ Sinus generator. │▒ ; └────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Makes a sinus-cosinus table. ; Uses the taylor-progression of the sinus from 0 to pi/2, and copies ; this part of the function to the others. ; sin(x)≈x-(x^3/3!)+(x^5/5!) ; ; Input: ds,es= Sinus table's segment ; Modified register(s): eax,bx,cx,edx,di,si,bp ; Length: 86 bytes. ; Last modified: 08-27-95 11:10pm SinGen PROC NEAR mov di,O SinTab+128*4 mov si,O SinTab+127*4 mov ecx,381 ; 381≈pi/2*256. (With a little ; neglect.) @@1: movzx eax,cx mul ecx mul ecx div [@@Fact3] mov bp,ax ; bp= x^3/3! mul ecx mul ecx div [@@Fact5] ; ax= x^5/5! mov bh,cl mov bl,0 add ax,bx sub ax,bp ; ax=sin(x) stosd ; Store 2nd quater. mov [si],eax ; Store 1st quater. mov [si+512*4],eax ; Store 5th quater. neg eax mov [di+255*4],eax ; Store 4th quater. mov [si+256*4],eax ; Store 3rd quater. sub si,4 sub cx,3 jnc @@1 ret @@Fact3 dd 6*100h @@Fact5 dd 20*10000h SinGen ENDP ; ┌───────────────────────────────────┐ ; │ Makes charset. │▒ ; └───────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Makes the big and smoothed charset. ; Modified register(s): ax,bx,cx,dx,di,bp,fs ; Length: 167 bytes. ; Last modified: 10-28-95 02:05pm MakeChars PROC NEAR mov ax,1130h mov bh,6 ; Get the 8x16 ROM charset address int 10h ; to es:bp. add bp,32*16 ; es:bp point to the space character. mov fs,[ChrAddr] ; Making big chars. xor di,di mov bx,4040h ; We've got free space for 64 chars. @@1: mov cl,16 @@2: mov al,es:[bp] inc bp mov ch,8 @@3: shl al,1 ; Make one big dot. setc dl mov dh,dl push dx shl edx,10h pop dx mov fs:[di],edx mov fs:[di+32],edx add di,4 dec ch jnz @@3 add di,32 loop @@2 dec bl jnz @@1 ; Smoothing chars. ; bh=40h here. xor di,di mov dx,303h mov al,1 @@4: mov cl,15 @@5: mov ch,8 @@6: cmp B fs:[di],al ; Jump if dot is here. jne @@10 cmp ch,8 je @@8 ; Jump at the left edge. cmp B fs:[di+32*2-1],al jne @@8 ; Jump if no dot at letf-below. cmp B fs:[di-1],al je @@7 ; Jump if dot at left. mov fs:[di+32-2],dx ; Put a 3angle at left. /. @@7: cmp B fs:[di+32*2],al je @@8 ; Jump if dot at below. mov fs:[di+32*2],dx ; Put a 3angle at rght-blw. `/ @@8: cmp ch,1 je @@10 ; Jump at the right edge. cmp B fs:[di+32*2+4],al jne @@10 ; Jump if no dot at right-below. cmp B fs:[di+4],al je @@9 ; Jump if dot at rigth. mov fs:[di+32+4],dx ; Put 3angle at right. .\ @@9: cmp B fs:[di+32*4],al je @@10 ; Jump if dot at below. mov fs:[di+32*2+2],dx ; Put 3angle at below. \' @@10: add di,4 dec ch jnz @@6 ; Check next dot. add di,32 dec cx jnz @@5 ; Check next row. add di,32*2 dec bh jnz @@4 ; Check next char. ret MakeChars ENDP ; ┌───────────────────────────────────────────────┐ ; │ Puts a gourauded object. │▒ ; └───────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= Address of the object to put. ; Modified register(s): eax,bx,cx,edx,di,si,bp,es ; Length: 154 bytes. ; Last modified: 10-28-95 02:47pm Put_Obj PROC NEAR push cs pop es lodsw mov cx,ax ; cx= number of vertices. ; Rotating the vertices. mov di,O TempArea push cx di di call Rotate ; si=original, di=rotated, cx=number. pop di ; Sorting the poligons, by their weightpoints. mov [POPoliAdr],si call WPSort ; di=adr.rotd.,si=adr.polis; to WPTemp. pop si cx ; Transforming the vertices from 3D to 2D. push si mov si,O TempArea call Transform ; si=adr.of rotated,cx=num.of vertices. pop si mov bp,[POPoliAdr] mov cx,[bp] ; cx= number of poligons. inc bp inc bp mov bx,4 @@1: pusha mov bx,W [WPTemp][bx] ; bx= number of poligon to put. shl bx,3 add bx,bp push cs pop es mov di,O POTemp mov cl,4 ; There are 4 vertices in a square. :) @@2: push si ; Count the color of the vertex by mov bp,[bx] ; its distance from the light source inc bx ; and make the coordinates of the inc bx ; poligon on the screen. shl bp,4 add si,bp lodsd add ax,160 ; XCenter=160. stosw ; Store its X coordinate. lodsd add ax,100 ; YCenter=100. stosw ; Store its X coordinate. lodsd sub eax,[PO_XLight] imul eax mov ebp,edx lodsd sub eax,[PO_ZLight] imul eax add ebp,edx mov eax,[LS_Circ] imul ebp mov ax,2ch sub ax,dx jnc @@3 xor ax,ax @@3: add ax,13h ; Make ambient light. mov [di+16],ax pop si dec cl jnz @@2 ; Do the next vertex. mov si,O POTemp ; si=adr.of the poli's coordinates. mov ah,2 ; Put by gouraud. mov cx,4 ; It's got 4 vertices. call FillPoli ; Put the poligon @@4: popa add bx,8 loop @@1 ; Do the next poligon. ret Put_Obj ENDP ; ┌───────────────────────────────────────────────────┐ ; │ Sorting by the weightpoints. │▒ ; └───────────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= Address of the object's poligons. (1st W is the num.of polis.) ; Modified register(s): eax,ebx,cx,edx,di,si,ebp ; Length: 52 bytes. ; Last modified: 10-28-95 05:57pm ; Quick Sort must be the following routine! WPSort PROC NEAR lodsw add di,8 mov cx,ax ; cx= number of poligons. mov bx,O WPTemp xor eax,eax push cx bx @@1: xor edx,edx mov ch,4 @@2: mov bp,[si] ; bp= number of vertex of the poligon. inc si inc si shl bp,4 add edx,[di+bp] ; edx+= Z coordinate. dec ch jnz @@2 neg edx mov [bx],edx mov [bx+4],eax inc eax add bx,8 loop @@1 ; Next poligon. pop si cx ;jmp QuickSort WPSort ENDP ; ┌──────────────────────────────────┐ ; │ Quick Sort. │▒ ; └──────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= Address of the object's poligons. (1st W is the num.of polis.) ; Modified register(s): eax,ebx,dx,di,ebp ; Length: 116 bytes. ; Last modified: 10-28-95 06:13pm QuickSort PROC NEAR mov di,cx shl di,3 add di,si mov dx,8 mov ebx,7fffffffh mov ebp,80000000h @@QSR: cmp di,si je @@Exit mov eax,ebx add eax,ebp sar eax,1 cmp eax,ebp je @@Exit push si di ebp call @@Sort ; Sort it. pop ebp di pushad mov ebp,eax call @@QSR ; Sort the first half. popad pop di xchg di,si mov ebx,eax jmp @@QSR ; Sort the second half. @@Exit: ret @@Sort: sub si,dx @@S1: add si,dx ; si goes from the beginning. cmp si,di jae @@Exit cmp eax,[si] jge @@S1 ; si goes until the order is right. @@S2: sub di,dx ; di goes from the end. cmp di,si jbe @@Exit cmp eax,[di] jl @@S2 ; di goes until the order is right. mov ebp,[si] ; Change the items. xchg ebp,[di] mov [si],ebp mov ebp,[si+4] xchg ebp,[di+4] mov [si+4],ebp jmp @@S1 QuickSort ENDP ; ┌────────────────────────────────┐ ; │ Rotating. │▒ ; └────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= Address of the vertices to rotatae. ; ds:di= Address of the buffer for rotated coordinates. ; cx= Number of vertices to rotate. ; Modified register(s): eax,ebx,cx,edx,di,si,ebp ; Length: 158 bytes. ; Last modified: 10-28-95 06:23pm Rotate PROC NEAR @@1: lodsd add eax,[Trans_XAdd] mov [di],eax lodsd add eax,[Trans_YAdd] mov [di+4],eax lodsd add eax,[Trans_ZAdd] mov [di+8],eax mov bp,[Rot_Alfa] and bp,511 shl bp,2 mov ebx,[CosTab][bp] mov ebp,[SinTab][bp] call @@Rotate1 ; Rotate around the Z axis. mov bp,[Rot_Beta] and bp,511 shl bp,2 mov ebx,[CosTab][bp] mov ebp,[SinTab][bp] call @@Rotate1 ; Rotate around the Y axis. mov eax,[di-8] add di,4 stosd loop @@1 ret @@Rotate1: mov eax,[di] imul ebx ; X= X*cos(alfa)-Y*sin(alfa). shld edx,eax,10h push edx mov eax,[di+4] imul ebp shld edx,eax,10h pop eax sub eax,edx xchg eax,[di] imul ebp ; Y= Y*cos(alfa)+X*sin(alfa). shld edx,eax,10h push edx add di,4 mov eax,[di] imul ebx shld edx,eax,10h pop eax add eax,edx mov [di],eax ret Rotate ENDP ; ┌───────────────────────────────────────────────┐ ; │ Transforms from 3D to 2D. │▒ ; └───────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= Address of the vertices to transform. ; cx= Number of vertices to transform. ; es=ds. ; Modified register(s): eax,ebx,cx,edx,di,si,ebp ; Length: 46 bytes. ; Last modified: 10-28-95 06:28pm Transform PROC NEAR mov di,si movzx ebx,[Zoom_Factor] @@1: mov ebp,[si+8] add ebp,400*10000h lodsd ; Xh= X/(Z+400) * Zoom_Factor imul ebx idiv ebp stosd lodsd ; Xh= X/(Z+400) * Zoom_Factor imul ebx idiv ebp stosd movsd movsd loop @@1 ; Do the next vertex. ret Transform ENDP ; ┌────────────────────────────────────────────────────┐ ; │ Makes an object from a contour. │▒ ; └────────────────────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Input: ds:si= Address of the vertices of the contour. ; cs:di= Address of the room for the object ; bx= Number of vertices of the contour. ; Modified register(s): eax,cx,di,es ; Length: 142 bytes. ; Last modified: 10-31-95 04:52pm Make_Obj PROC NEAR MkObj_Circ_Div=6 ; Rotating angle. Divisor of 2*PI. push cs pop es xor eax,eax ; Clear the coordinates' additions. mov [Trans_XAdd],eax mov [Trans_YAdd],eax mov [Trans_ZAdd],eax mov ax,MkObj_Circ_Div mov cx,ax mul bx ; ax= number of vertices in the object. stosw ; Store the number of vertices. xor ax,ax mov [Rot_Beta],ax ; Clear the angle beta. @@1: mov [Rot_Alfa],ax push ax bx cx si mov cx,bx @@2: lodsb cbw cwde shl eax,0fh ; Copy the 3 coordinates to TempArea. mov D [TempArea],eax xor eax,eax mov D [TempArea+4],eax lodsb shl eax,0fh mov D [TempArea+8],eax push cx si mov si,O TempArea mov cx,1 call Rotate ; Rotata a vertex. sub di,4 pop si cx loop @@2 ; Do the next vertex. pop si cx bx ax add ax,512/MkObj_Circ_Div loop @@1 ; Do the next phase. mov ax,MkObj_Circ_Div mul bx mov bp,ax sub ax,MkObj_Circ_Div mov cx,ax ; ax= number of poligons. stosw ; Store the number of poligons. mov si,1 mov cl,MkObj_Circ_Div @@3: mov ch,bl dec ch @@4: mov ax,si ; Make a poligon. stosw dec ax stosw add ax,bx cmp ax,bp jb @@5 sub ax,bp @@5: stosw inc ax stosw inc si dec ch jnz @@4 ; Do the next poligon. inc si loop @@3 ; Do the next phase. Timer_Blank: ret Make_Obj ENDP ; ┌────────────────────────────────────┐ ; │ Timer interrupt. │▒ ; └────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Decrases the 'Timer_Cnt' in every 10th ms. ; ; Length: 12 bytes. ; Last modified: 08-27-95 11:17pm TimerIRQ PROC push ax ds cs pop ds dec [Timer_Cnt] ; Decrase counter. call [Timer_Routine] ; Calling a control routine. mov al,20h ; Send EnfOfInterrupt sign. out 20h,al pop ds ax iret TimerIRQ ENDP ; ┌───────────────────────────────────────┐ ; │ Keyboard interrupt. │▒ ; └───────────────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; Aborts the program when ESC was pressed. ; ; Length: 36 bytes. ; Last modified: 08-28-95 02:50pm KeyboardIRQ PROC push ax mov al,20h ; Send EnfOfInterrupt sign. out 20h,al in al,60h ; Get the pressed scan-code. dec al jz @@1 ; Jump if it is ESC. pop ax iret @@1: push cs ; Set back ds. pop ds mov ss,[StackSegment] ; Set back ss. mov sp,[StackPointer] ; Set back sp. mov bl,40h @@2: mov cl,0ffh call FadeDown dec bl jnz @@2 jmp Abort_Code ; Abort the program. KeyboardIRQ ENDP ; ┌───────────────────────────────┐ ; │ Variables. │▒ ; └───────────────────────────────┘▒ ; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ; General variables. ALIGN 4 Old_Timer LABEL DWord ; The original INT8 vector. ORG $+4 Timer_Cnt LABEL Word ; Timer counter. Decrased in every 10th ms. ORG $+2 Timer_Routine LABEL Word ; A definable timer routine. ORG $+2 Old_Kbd LABEL DWord ; The original INT9 vector. ORG $+4 StackSegment LABEL Word ; The stored SS for aborting. ORG $+2 StackPointer LABEL Word ; The stored SP for aborting. ORG $+2 ScrAddr LABEL Word ; Segment address of the seconday screen. ORG $+2 ScrOffs LABEL Word ; Offset address of the secondary screen. ORG $+2 ChrAddr LABEL Word ; Segment address of the big characters. ORG $+4 ScrRowsVGA LABEL Word ; Offset of rows in a VGA screen. ORG $+200*2 SinTab LABEL DWord ; The sinus table. ORG $+128*4 CosTab LABEL DWord ; The cosinus table. ORG $+512*4 CosAdd=O CosTab - O SinTab ; Addition to the addr.of the sintab to get the ; costab's addr. ; Mandelbrot zoomer's variables MZ_ScrSeg LABEL Word ; Secondary screen's address. ORG $+2 MZ_XorScr LABEL Word ; XOR number to get the third screen's address. ORG $+2 MZ_Next LABEL Byte ; Bit0 is set, when the next Mandy-phase is ready. ORG $+1 MZ_Finish LABEL Byte ; 1, when Mandelbrot-part is over. ORG $+1 MZ_TextPos LABEL Word ; Addr.for texts to put while Mandelbrot-part. ORG $+2 MZ_RowCnt LABEL Byte ; A counter to indicate, no more non-zero value ORG $+4 ; in the Mandelbrot. ; Broken screen's variables. BrkTemp LABEL Word ; A temporary area for storing poligons' vertices. ORG $+5*2*2 ;BrkLTemp LABEL Word ; A tmp.area for storing breaking line. ; ORG $+BrkPntNum*2 ;BrkPoliXC LABEL Word ; X center of the light. ; ORG $+2 ;BrkPoliYC LABEL Word ; Y center of the light. ; ORG $+2 BrkPoliXS LABEL Word ; The position of the refracted line. ORG $+4 ; Putting a text' variable PText_Bkg LABEL Byte ; The background of the text. ORG $+4 ; Putting an object's variables POPoliAdr LABEL Word ; Addr.of the poligons. ORG $+4 POTemp LABEL DWord ; Tmp.area for the vertices of a poligon. ORG $+128 ; Filling a convex poligon's variables. FPoliTemp LABEL Word ; The edge of the poligon of the put. ORG $+200*4 FPGouTemp LABEL Word ; The colors of the edges. ORG $+200*4 FPoliPnt LABEL Word ; The pointer to FPoliTemp. ORG $+2 FPoliMin LABEL Word ; The minimum of the Y coordinates. ORG $+2 FPoliMax LABEL Word ; The maximum of the Y coordinates. ORG $+2 FPMethod LABEL Byte ; The method of the putting. ORG $+1 FPG_Col LABEL Byte ; The color of the poligon. ORG $+1 ; Transfom's variables Trans_XAdd LABEL DWord ; The additiions for coordinates. ORG $+4 Trans_YAdd LABEL DWord ORG $+4 Trans_ZAdd LABEL DWord ORG $+4 ; Sorting by the weigthpoints' variables WPTemp LABEL DWord ; The quick sort makes the sorting here. ORG $+200*8 ; Chess figures' position ChFig_Dat LABEL ; Data of the chess-figures. ORG $+FigsOn*4 ChFig_Srt LABEL DWord ; The sorted figures' positions. ORG $+FigsOn*20 ; Chess figures' objects Chess_Table LABEL ; The chess-table's object. ORG $+1232 Pawn LABEL ; The figres' object. ORG $+(4+ PVtx*12*MkObj_Circ_Div+ (PVtx-1)*8*MkObj_Circ_Div) Bishop LABEL ORG $+(4+ BVtx*12*MkObj_Circ_Div+ (BVtx-1)*8*MkObj_Circ_Div) Castle LABEL ORG $+(4+ CVtx*12*MkObj_Circ_Div+ (CVtx-1)*8*MkObj_Circ_Div) Queen LABEL ORG $+(4+ QVtx*12*MkObj_Circ_Div+ (QVtx-1)*8*MkObj_Circ_Div) King LABEL ORG $+(4+ KVtx*12*MkObj_Circ_Div+ (KVtx-1)*8*MkObj_Circ_Div) ALIGN 4 Old_Values LABEL ORG $+2 Rot_Alfa LABEL Word ; The angles of rotating. ORG $+4 Rot_Beta LABEL Word ORG $+4 Zoom_Factor LABEL Word ; The zooming factor of trasforming. ORG $+2 PO_XLight LABEL DWord ; The light source's coordinates. ORG $+4 PO_ZLight LABEL DWord ORG $+4 LS_Circ LABEL DWord ; The light circle's size. ORG $+4 Eye_XAdd LABEL DWord ; Our eye's position. ORG $+4 Eye_YAdd LABEL DWord ORG $+4 Eye_ZAdd LABEL DWord ORG $+4 ChFig_Pos LABEL DWord ; The positions of the chess figures. ORG $+FigsOn*12 ALIGN 4 New_Values LABEL ; The table of changed values for moving. ORG $+400 ; Temporary area. TempArea LABEL ; The temporary area up to the stack. code ENDS END Main