MLC and PreCompiler updated

[moulinaie]

Hello,

 

I have added the support for floating point numbers into my Little Compiler (MLC) and PreCompiler.

As an example, I have programmed the calculation of PI with the sum of 1/n².

 

With n=1000 it takes:

27 seconds for MLC

85 seconds for XB

 

MLC page:

 

http://gtello.pagesp...ge.fr/mlc_e.htm

 

PreCompiler Page with language reference and program sources:

 

http://gtello.pagesp...precompiler.htm

 

Thanks a lot to everyone's help and support.

 

Here is the "PI" program !

 

100 CALL CLEAR::DIM A$(40)
;
; here includes the compiler
;
$MLC N 110 10 3000
;
; ask for iterations
;
1000 INPUT "N=":N
;
; 1) sum with MLC
;
1005 INPUT "READY FOR MLC...":R$
1010 CALL LINK("PI",N,P)
1020 PRINT "PI=";P::PRINT
;
; 2) same sum with XB alone
;
1030 INPUT "READY FOR XB...":R$
1040 S=1:: FOR I=N TO 2 STEP -1
1050 S=S+1/(I*I)::NEXT I
1060 P=SQR(6*S)::PRINT "PI=";P::PRINT
;
; another?
;
1070 GOTO 1000
;
$PI
FARRAY 0		   ; 16 registers in special zone (r2 to r17)
FLOAT 1			   ; send 1 in r0
FMOVE 0 3		   ; save "1" for use in loop
FMOVE 0 4		   ; sum initialized with "1"
GETPARAM 1 N
FLOAT N			   ; send N in r0
DEC N
NDO N N
	FMOVE 0 1	   ; duplicate N in r1
	FMUL		   ; N^2 (r0 = r0*r1)
	FMOVE 3 1	   ; r1 ='1'
	FDIV		   ; 1/N^2 (r0 = r1/r0)
	FMOVE 4 1	   ; sum	(r1 = r4)
	FADD		   ; sum+1/N^2 (r0 = r1 + r0)
	FMOVE 0 4	   ; sum saved	(r4 = r0)
	FLOAT N		   ; new N		(r0 = N)
NLOOP
FLOAT 6			  ; send 6 in r0
FMOVE 4 1		  ; sum in r1
FMUL				; 6*sum (r0 = r1 * r0)
FSQR			  ; sqr(6*sum)=PI !!
PUTFLOAT 2(0)		  ; returns PI
$$
$END

 

And now the compiled version!

 

100 CALL CLEAR::DIM A$(40)
110 CALL INIT::PRINT "LOADING COMPILER..."::CALL LOAD("DSK1.MLCO")::RESTORE 3000
120 READ T$::I=0::IF T$="*" THEN 160
130 I=I+1::READ A$(I)::IF A$(I)<>"*" THEN 130
140 A$(I)=""::IF T$="P" THEN CALL LINK("COMPIL",A$()) ELSE CALL LINK("SOUND",A$(),S$())
150 IF SEG$(A$(1),1,2)="OK" THEN 120 ELSE PRINT T$;" ERROR ";A$(1)::END
160 PRINT "COMPILATION OK!"
1000 INPUT "N=":N
1005 INPUT "READY FOR MLC...":R$
1010 CALL LINK("PI",N,P)
1020 PRINT "PI=";P::PRINT
1030 INPUT "READY FOR XB...":R$
1040 S=1:: FOR I=N TO 2 STEP -1
1050 S=S+1/(I*I)::NEXT I
1060 P=SQR(6*S)::PRINT "PI=";P::PRINT
1070 GOTO 1000
3000 DATA P,PI
3010 DATA "'@0 'F1 'M0.3 'M0.4 G1N 'FN DN L0 'M0.1 '* 'M3.1"
3020 DATA "'/ 'M4.1 '+ 'M0.4 'FN DN !=0 'F6 'M4.1 '* 'Q 'P2.0"
3030 DATA *
3040 DATA *

 

Guillaume.

[+retroclouds]

Impressive work! Like it a lot.

 

Little thing I noticed in the compiled version.

On line 140 you have an if statement that decides on compile or sound.

The precompiler could know if a "sound" statement is in the source or not. If not it could generate a line 140 without IF-statement.

As this is in the compilation loop, you could increase compilation performance a bit more.

 

Most likely you will have sound when doing games. But during development you could turn sound off completely or only include as one of the last steps.

Dunno if the difference is big enough to make that effort though

[moulinaie]

You're totally right, some bytes and instructions could be saved with a more precise $MLC directive.

I was also thinking of a "silent" version removing the PRINT messages. I think that programmers would like to get control of the screen while loading the compiler.

 

Guillaume.

[+retroclouds]

You're totally right, some bytes and instructions could be saved with a more precise $MLC directive.

I was also thinking of a "silent" version removing the PRINT messages. I think that programmers would like to get control of the screen while loading the compiler.

 

Guillaume.

 

Yeah, a silent version would be cool. For games you could display a title screen while the loading/compilation is busy

[moulinaie]

Hi again,

 

A new version is on-line:

1) little modification of MLC with a code to kill labels (for re-use) that I needed for my new pseudo-instructions

2) in PreCompiler, new pseudo-instructions:

a) REPEAT...UNTIL

b) DO...WHILE...LOOP

c) IF...(ELSE)...ENDIF

d) and always the NDO...NLOOP and FOR...NEXT

3) A "silent" mode added, so the compiler is loaded without any message displayed

(use $MLS NS or $MLC FS, "S" stands for silent)

 

Everything on my page: http://gtello.pagesperso-orange.fr/precompiler.htm

 

With those new features, the PONG game looks really clearer and I use almost no Label (they are internally managed)

 

Guillaume.

 

Have a loo at it

 

; PONG game using XB and MLC with Precompiler
; 2011 [email protected]

100 CALL INIT::CALL CLEAR::DIM A$(40),S$(3)

; load compiler and compiles game and sounds

110 GOSUB 1000

; ball, paddle, net and field definitions

140 CALL CHAR(96,"60F0F0F0F0F0F060")::CALL CHAR(100,"60F0F06000000000")
150 CALL CHAR(97,"8855225588552255")::CALL CHAR(98,"FFFFFFFFFFFFFFFF")::CALL CHAR(99,"0000000000000000")

; prepares screen

160 CALL CLEAR::CALL SCREEN(1)::CALL COLOR(9,16,10)
170 FOR I=1 TO 8::CALL COLOR(I,4,1)::NEXT I
180 RESTORE 900::READ M$,N$,P$::READ SP(1),SP(2),SP(3),SP(4)
190 DISPLAY AT(1,13):"PONG"
200 DISPLAY AT(2,1):M$
210 FOR I=3 TO 19::DISPLAY AT(I,1):N$::NEXT I
220 DISPLAY AT(11,1)$::DISPLAY AT(20,1):M$
230 DISPLAY AT(21,2):"LEFT (X-E)	 RIGHT (I-M)"
240 SC(1)=0::SC(2)=0::START=1::SPEED=2::CALL MAGNIFY(2)

; display little menu and wait for SPACE to start

250 DISPLAY AT(24,1):"SPACE=START  S=SPEED  Q=QUIT"
260 DISPLAY AT(22,7):SC(1)::DISPLAY AT(22,21):SC(2)::GOSUB 400::IF K$<>" " THEN 250

; sprites 2 and 3 are the paddles, sprite 1 the ball

270 CALL SPRITE(#2,96,5,16,24)::CALL SPRITE(#3,96,14,136,224)
280 CALL SPRITE(#1,100,13,120*START-102,184*START-152)

; call assembly routine to play

290 CALL LINK("PLAY",S$(),START,SP(SPEED),WIN)

; upon return, WIN is the winner!

300 SC(WIN)=SC(WIN)+1:: START=3-START::GOTO 260

; quit game, the assembly routine is deleted from ram

310 CALL LINK("POP",A)::PRINT A
320 END

; menu key

400 CALL KEY(0,K,S)::K$=CHR$(ABS(K))::IF K$=" " THEN RETURN
410 IF K$="S" OR K$="s" THEN 420
415 IF K$="Q" OR K$="q" THEN 310 ELSE 400
420 DISPLAY AT(24,1):"SELECT SPEED FROM 1 TO 4:";SPEED
430 ACCEPT AT(24,27)SIZE(-1)BEEP:SPEED
440 RETURN

; field definition

900 DATA bbbbbbbbbbbbbaabbbbbbbbbbbbb
910 DATA bccccccbcccccaacccccbccccccb
920 DATA bccccccbbbbbbaabbbbbbccccccb

; speed table 1 to 4

930 DATA 10,20,35,50

; includes here the loader from line 1000 and DATA from line 2000
; --> to load the compiler (normal mode) use $MLC N ...
; --> to use the Fast Loader use $MLC F ...
; --> If compiler in memory and you don't want it to be loaded, remove CALL INIT and use $MLC D ...

$MLC F 1000 10 2000
1900 RETURN

; sound definitions

$SND 1    ; ball touches paddle 1
   FA440VA0VN15D2 VA2D3 VA4D4 VA6D5 VA8D6,VA12D7 VA14D8 VA15D0
$$
$SND 2    ; ball touches paddle 2
   FA220VA0VN15D2 VA2D3 VA4D4 VA6D5 VA8D6,VA12D7 VA14D8 VA15D0
$$
$SND 3    ; ball touches border
   FN5VN8VA15D1 VN6D1 VN4D1 VN6D1 VN8D2,VN12D2 VN15D0
$$

; game routine

$PLAY
   GETPARAM 2 S                ; S=start player (1/2)
   GETPARAM 3 H                ; horizontal speed
   RND                    ; random number in Z
   DIV Z H                    ; reminder (so Z<H)
   LET G Z                    ; vertical speed!
   LET M 1                    ; default player 1
   COMPARE S 1        
   IF<>                    ; if start player is not 1
       NEG G                ; modifies motion and M=2
       NEG H
       INC M
   ENDIF
   SMAX 1                    ; one sprite with auto motion
   SMOTION 1 G H                ; ball starts !
   SOUND M                    ; with a paddle sound
   SPOSITION 2 A B                ; get positions of both paddles
   SPOSITION 3 C D
   DO
       INTERRUPT            ; enables interrupt for auto motion

       ; here player ONE

       KEY 1                ; read keyboard left, key in K and COMPARE K 0 performed
       IF>=                ; a key pressed!
           IF=            ; if equal 0, it is X
               INC A        ; here "X"=down, A=A+1
           ELSE
               COMPARE K 5    ; is it "E"?
               IF=
                   DEC A    ; here "E"=up, A=A-1
               ENDIF
           ENDIF
           LIMIT 16 136 A        ; ensure A is in the range
           SLOCATE 2 A B        ; and set new paddle position
       ENDIF

       COMPARE K 18            ; is it "Q"
   WHILE<>                    ; if so QUIT !

       GOSUB b                ; manages ball movement

       ; here player TWO

       KEY 2                ; read keyboard right, key in K and COMPARE K 0 performed
       IF>=                ; a key pressed!
           IF=            ; if 0, it is "M"
               INC C        ; if "M"=down, C=C+1
           ELSE
               COMPARE K 5    ; is it "I"?
               IF=
                   DEC C    ; if "I"=up, C=C+1
               ENDIF
           ENDIF
           LIMIT 16 136 C        ; ensure C is in the range
           SLOCATE 3 C D        ; new position
       ENDIF

       GOSUB b                ; manages ball movement

   LOOP                    ; and back to paddle one !!!

   GOTO x                    ; here if K=18, "Q" key, QUIT

; Subroutine for ball movement

SLABEL b
   SPOSITION 1 E F            ; get ball position
   LIMIT 16 144 E            ; is the vertical position in the field?
   IF<>                ; no,so modifications!
       NEG G            ; reverse motion
       SMOTION 1 G H        ; reflexion
       SLOCATE 1 E F        ; new location
       SOUND 3            ; and border sound
   ENDIF

   LIMIT 24 224 F            ; is the horizontal potition in the field?
   IF<>THEN x            ; if not, game has ended!

   LIMIT 32 216 F            ; else, are we far from the paddles?
   IF<>                ; not so far, verify contact
       IF<            ; if under 32 then work with paddle 1
           LET G A        ; take vertical position of...
           LET M 1        ; ...paddle 1
       ELSE
           LET G C        ; else take vertical position of...
           LEt M 2        ; ...paddle 2
       ENDIF
       SUB G E            ; vertical distance G-E
       LIMIT -16 8 G        ; is it in -16,8 ?
       IF=            ; yes so, contact!
           ADD G 4        ; ball touches the paddle M
           ADD G G        ; G=2*(vertical distance+4) new vertical speed
           NEG G        ; reflexion
           NEG H        ; idem
           SMOTION 1 G H    ; new ball motion
           SLOCATE 1 E F    ; new location
           SOUND M        ; and sound for paddle contact
       ENDIF
   ENDIF
   RETURN                ; back to players keys

; end of game

LABEL x
   SMAX 0            ; end of game, stop every sprite
   LET R 1            ; default winner
   COMPARE F 124
   IF<            ; if position under 124, winner is 2
       INC R        ; R=2
   ENDIF
   PUTPARAM 4 R        ; return winner
$$
$END

[rocky007]

really great job i dream to find some few hours to use it

[moulinaie]

Hello again,

 

Here I go for PreCompiler version 1.03 with a new MLC too:

MLC :

--> I added CALL LINK("CHAR",A$()) to prepare strings for char definitions

--> Added &D instruction to act as CALL CHAR (with one to 4 characters defined at the time)

http://gtello.pagesperso-orange.fr/mlc_e.htm

 

PreCompiler:

--> I added the $CHAR .. $$ bloc to contain the char definitions

--> Added DEFCHAR instruction to represent &D

http://gtello.pagesperso-orange.fr/precompiler.htm

 

More infos in the ZIP files on my pages, there is a complete MLC manual in DOC format.

I think I'll stop here for that new set of improvements in MLC, efforts could be made in the PreCompiler to check the syntax and give the user infos on errors made before the file is copied to an emulator or real TI. This could save some time !!

 

Guillaume.

[rocky007]

great i will try this this week end... i had a little idea how to test that ( megascroller )