summaryrefslogtreecommitdiff
path: root/samples/cube.s
diff options
context:
space:
mode:
Diffstat (limited to 'samples/cube.s')
-rw-r--r--samples/cube.s438
1 files changed, 438 insertions, 0 deletions
diff --git a/samples/cube.s b/samples/cube.s
new file mode 100644
index 0000000..d42e3a7
--- /dev/null
+++ b/samples/cube.s
@@ -0,0 +1,438 @@
+;
+; cube.s : representation en 3d d un cube en rotation autour de son centre de symetrie
+; a linker avec: trig.s, drawline.s
+;
+;
+
+
+.bss
+Points3D DR 8 * 3; sommets du cube
+Points2D DR 8 * 2; sommets projetes
+Matr DR 3 * 3; matrice de rotation
+
+.data
+T1 DB 0; angle rotation suivant z
+T2 DB 0; angle rotation suivant y
+T3 DB 0; angle rotation suivant x
+L DB 8 * 65536; longueur d une arete
+NL DB, ( (-8) * 65536); oppose de L
+V DB 8 * 2; distance pt de vue - plan de l ecran
+X0 DB 40; centre de l ecran
+Y0 DB 12; centre de l ecran
+.text
+
+;
+;
+; Mult : multiplication de deux pseudos flottants
+;
+;
+
+Mult: MUL R5, R6;
+ SHR Rd, Rd, 16;
+ SHL Rg, Rg, 16;
+ ADD R5, Rg, Rd;
+ RET;
+
+
+
+;
+;
+; InitCube : initialisation des coords des sommets du cube
+;
+;
+
+InitCube: MOV, Points3D[0], L;
+ MOV, Points3D[1], L;
+ MOV, Points3D[2], L;
+;
+ MOV, Points3D[3], L;
+ MOV, Points3D[4], L;
+ MOV, Points3D[5], NL;
+;
+ MOV, Points3D[6], L;
+ MOV, Points3D[7], NL;
+ MOV, Points3D[8], L;
+;
+ MOV, Points3D[9], L;
+ MOV, Points3D[10], NL;
+ MOV, Points3D[11], NL;
+;
+ MOV, Points3D[12], NL;
+ MOV, Points3D[13], L;
+ MOV, Points3D[14], L;
+;
+ MOV, Points3D[15], NL;
+ MOV, Points3D[16], L;
+ MOV, Points3D[17], NL;
+;
+ MOV, Points3D[18], NL;
+ MOV, Points3D[19], NL;
+ MOV, Points3D[20], L;
+;
+ MOV, Points3D[21], NL;
+ MOV, Points3D[22], NL;
+ MOV, Points3D[23], NL;
+;
+ RET;
+
+
+;
+;
+; MajMatr : mise a jour de la matrice de rotation
+;
+;
+
+MajMatr: MOV R5, [T1];
+ CALL Cosinus;
+ MOV R6, R5;
+ MOV R5, [T2];
+ CALL Cosinus;
+ CALL Mult;
+ MOV, Matr[0+0], R5;
+;
+; M[1,1] = cosT1*cosT2
+;
+ MOV R5, [T1];
+ CALL Cosinus;
+ SUB R5, R0, R5;
+ MOV R7, R5;
+ MOV R5, [T2];
+ CALL Sinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Sinus;
+ CALL Mult;
+ MOV R7, R6;
+ CALL Mult;
+ MOV R7, R5;
+ MOV R5, [T1];
+ CALL Sinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Cosinus;
+ CALL Mult;
+ SUB R5, R7, R5;
+ MOV, Matr[0+1], R5;
+;
+; M[1,2] = -cosT1*sinT2*sinT3-sinT1*CosT3
+;
+ MOV R5, [T1];
+ CALL Cosinus;
+ SUB R5, R0, R5;
+ MOV R7, R5;
+ MOV R5, [T2];
+ CALL Sinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Cosinus;
+ CALL Mult;
+ MOV R7, R6;
+ CALL Mult;
+ MOV R7, R5;
+ MOV R5, [T1];
+ CALL Sinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Sinus;
+ CALL Mult;
+ ADD R5, R7, R5;
+ MOV, Matr[0+2], R5;
+;
+; M[1,3] = -cosT1*sinT2*cosT3+sinT1*sinT3
+;
+ MOV R5, [T1];
+ CALL Sinus;
+ MOV R6, R5;
+ MOV R5, [T2];
+ CALL Cosinus;
+ CALL Mult;
+ MOV, Matr[3+0], R5;
+;
+; M[2,1] = sinT1*cosT2
+;
+ MOV R5, [T1];
+ CALL Sinus;
+ SUB R5, R0, R5;
+ MOV R7, R5;
+ MOV R5, [T2];
+ CALL Sinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Sinus;
+ CALL Mult;
+ MOV R7, R6;
+ CALL Mult;
+ MOV R7, R5;
+ MOV R5, [T1];
+ CALL Cosinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Cosinus;
+ CALL Mult;
+ ADD R5, R7, R5;
+ MOV, Matr[3+1], R5;
+;
+; M[2,2] = -sinT1*sinT2*sinT3+cosT1*cosT3
+;
+ MOV R5, [T1];
+ CALL Sinus;
+ SUB R5, R0, R5;
+ MOV R7, R5;
+ MOV R5, [T2];
+ CALL Sinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Sinus;
+ CALL Mult;
+ MOV R7, R6;
+ CALL Mult;
+ MOV R7, R5;
+ MOV R5, [T1];
+ CALL Cosinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Sinus;
+ CALL Mult;
+ SUB R5, R7, R5;
+ MOV, Matr[3+2], R5;
+;
+; M[2,3] = -sinT1*sinT2*sinT3-cosT1*sinT3
+;
+ MOV R5, [T2];
+ CALL Sinus;
+ MOV, Matr[6+0], R5;
+;
+; M[3,1] = sinT2
+;
+ MOV R5, [T2];
+ CALL Cosinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Sinus;
+ CALL Mult;
+ MOV, Matr[6+1], R5;
+;
+; M[3,2] = cosT2*sinT3
+;
+ MOV R5, [T2];
+ CALL Cosinus;
+ MOV R6, R5;
+ MOV R5, [T3];
+ CALL Cosinus;
+ CALL Mult;
+ MOV, Matr[6+2], R5;
+;
+; M[3,3] = cosT2*cosT3
+;
+ RET;
+
+
+
+
+;
+;
+; RotCube : Rotation du cube suivant les angles T1, T2, T3
+;
+;
+
+RotCube: MOV R3, 0;
+ MOV R4, 24;
+BouclCube: MOV R5, Matr[0+0];
+ MOV R6, Points3D[R3+0];
+ CALL Mult;
+ MOV R10, R5;
+ MOV R5, Matr[0+1];
+ MOV R6, Points3D[R3+1];
+ CALL Mult;
+ ADD R10, R10, R5;
+ MOV R5, Matr[0+2];
+ MOV R6, Points3D[R3+2];
+ CALL Mult;
+ ADD R10, R10, R5;
+; x
+ MOV R5, Matr[3+0];
+ MOV R6, Points3D[R3+0];
+ CALL Mult;
+ MOV R11, R5;
+ MOV R5, Matr[3+1];
+ MOV R6, Points3D[R3+1];
+ CALL Mult;
+ ADD R11, R11, R5;
+ MOV R5, Matr[3+2];
+ MOV R6, Points3D[R3+2];
+ CALL Mult;
+ ADD R11, R11, R5;
+; y
+ MOV R5, Matr[6+0];
+ MOV R6, Points3D[R3+0];
+ CALL Mult;
+ MOV R12, R5;
+ MOV R5, Matr[6+1];
+ MOV R6, Points3D[R3+1];
+ CALL Mult;
+ ADD R12, R12, R5;
+ MOV R5, Matr[6+2];
+ MOV R6, Points3D[R3+2];
+ CALL Mult;
+ ADD R12, R12, R5;
+; z
+ MOV, Points3D[R3+0], R10;
+ MOV, Points3D[R3+1], R11;
+ MOV, Points3D[R3+2], R12;
+ ADD R3, R3, 3;
+ JNE R3, R4, BouclCube;
+ RET;
+
+
+
+;
+;
+; Proj : Projection du cube sur le plan de l ecran ( perspective )
+;
+;
+
+Proj: MOV R2, 0;
+ MOV R3, 0;
+ MOV R4, 24;
+BouclProj: MOV R5, Points3D[R3+0];
+ MOV R6, [V];
+ CALL Mult;
+ MOV R7, Points3D[R3+2];
+ ADD R6, R6, R7;
+ DIV R5, R6;
+ MOV R5, Rg;
+ SHR R5, R5, 16;
+ MOV R6, [X0];
+ ADD R5, R5, R6;
+ MOV Points2D[R2], R5;
+;
+; x' = (V*x)/(V+z)
+;
+ MOV R5, Points3D[R3+1];
+ MOV R6, [V];
+ CALL Mult;
+ MOV R7, Points3D[R3+2];
+ ADD R6, R6, R7;
+ DIV R5, R6;
+ MOV R5, Rg;
+ SHR R5, R5, 16;
+ MOV R6, [Y0];
+ ADD R5, R5, R6;
+ MOV Points2D[R2+1], R5;
+;
+; y'=(V*y)/(V+z)
+;
+ ADD R2, R2, 2;
+ ADD R3, R3, 3;
+ JNE R3, R4, BouclProj;
+ RET;
+
+
+
+;
+;
+; Draw : trace le cube
+;
+;
+
+
+Draw: MOV R7, Points2D[0];
+ MOV R6, Points2D[1];
+ MOV R9, Points2D[2];
+ MOV R8, Points2D[3];
+ CALL DrawLine;
+ MOV R7, Points2D[2];
+ MOV R6, Points2D[3];
+ MOV R9, Points2D[4];
+ MOV R8, Points2D[5];
+ CALL DrawLine;
+ MOV R7, Points2D[4];
+ MOV R6, Points2D[5];
+ MOV R9, Points2D[6];
+ MOV R8, Points2D[7];
+ CALL DrawLine;
+ MOV R7, Points2D[6];
+ MOV R6, Points2D[7];
+ MOV R9, Points2D[0];
+ MOV R8, Points2D[1];
+ CALL DrawLine;
+ MOV R7, Points2D[8];
+ MOV R6, Points2D[9];
+ MOV R9, Points2D[10];
+ MOV R8, Points2D[11];
+ CALL DrawLine;
+ MOV R7, Points2D[10];
+ MOV R6, Points2D[11];
+ MOV R9, Points2D[12];
+ MOV R8, Points2D[13];
+ CALL DrawLine;
+ MOV R7, Points2D[12];
+ MOV R6, Points2D[13];
+ MOV R9, Points2D[14];
+ MOV R8, Points2D[15];
+ CALL DrawLine;
+ MOV R7, Points2D[14];
+ MOV R6, Points2D[15];
+ MOV R9, Points2D[8];
+ MOV R8, Points2D[9];
+ CALL DrawLine;
+ MOV R7, Points2D[0];
+ MOV R6, Points2D[1];
+ MOV R9, Points2D[8];
+ MOV R8, Points2D[9];
+ CALL DrawLine;
+ MOV R7, Points2D[2];
+ MOV R6, Points2D[3];
+ MOV R9, Points2D[10];
+ MOV R8, Points2D[11];
+ CALL DrawLine;
+ MOV R7, Points2D[4];
+ MOV R6, Points2D[5];
+ MOV R9, Points2D[12];
+ MOV R8, Points2D[13];
+ CALL DrawLine;
+ MOV R7, Points2D[6];
+ MOV R6, Points2D[7];
+ MOV R9, Points2D[14];
+ MOV R8, Points2D[15];
+ CALL DrawLine;
+ RET;
+
+
+
+;
+;
+; IncrAngl : incremente T1, T2, T3
+;
+;
+
+
+IncrAngl: MOV R5, [T1];
+ MOV R6, 56;
+ ADD R5, R5, R6;
+ MOV, [T1], R5;
+ MOV R5, [T2];
+ MOV R6, 30;
+ ADD R5, R5, R6;
+ MOV, [T2], R5;
+ MOV R5, [T3];
+ MOV R6, 80;
+ ADD R5, R5, R6;
+ MOV, [T3], R5;
+ RET;
+
+;
+;
+; Main : boucle principale
+;
+;
+.start
+ CALL InitTrig;
+ CALL InitCube;
+Main: CALL IncrAngl;
+ CALL MajMatr;
+ CALL RotCube;
+ CALL Proj;
+ CALL ClrScr;
+ CALL Draw;
+ JMP Main; \ No newline at end of file
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-06 11:18:34 +0000