ASM - Can someone make this work?

[Unseen Machine]

I thought it would be quite easy but i keep getting compilation fails no matter what i try so i guess i'm doing it wrong....

Code: QB64: [Select]

1.  
2. ASMString$ = "movl, %ebx, %eax" '// Move contents of ebx to eax
3.  
4. asm ASMString$
5.  
6.  
7.  
8. DECLARE LIBRARY
9.  SUB asm (Str$)
10. END DECLARE

Unseen

[SpriggsySpriggs]

I'm kind of thinking that it won't work due to the nature of QB64's translation into C. asm looks for a literal string immediately after the parentheses. In the translation, you get this:

In file included from qbx.cpp:2208:
..\\temp\\main.txt: In function 'void QBMAIN(void*)':
..\\temp\\main.txt:7:5: error: expected string-literal before '(' token
 asm((char*)(__STRING_ASMSTRING)->chr);
     ^
compilation terminated due to -Wfatal-errors.

It is looking for a literal string, terminated in quotes, not a variable (according to people on Stack Overflow). Even if we try with an actual string, terminated in quotes, we get this:

In file included from qbx.cpp:2208:
..\\temp\\main.txt: In function 'void QBMAIN(void*)':
..\\temp\\main.txt:7:5: error: expected string-literal before '(' token
 asm((char*)(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("movl, %ebx, %eax",16)),func_chr( 34 )))->chr);
     ^
compilation terminated due to -Wfatal-errors.

I don't see how we'd be able to use this function/sub in QB64 unless Dav, or SMcNeil have an idea.

[Unseen Machine]

I'm kind of thinking that it won't work due to the nature of QB64's translation into C.

Thats exactly what i was thinking after i looked in to the compile logs like you have.

I think it might be possible with a wrapper that converts the qb64 string into a cstring....but im going out to fish on the canal so for now at least i can just say thanks for having a look.

Unseen

[SpriggsySpriggs]

I wonder if in future builds of QB64 if they can maybe implement a change that will allow to run pure C code in QB64 with a block like :
$C
'insert C code here
$ENDC
Maybe then we could use functions that would otherwise not work. Similar to how you are using Assembly in your C.

[Petr]

But you can run C code in QB64 now. Just add an H file and call it as a CUSTOMTYPE library. However, this applies to simple programs, when another library is attached to the C code, there is a bug that sometimes stops compilation. An example of how C is called and how the output is returned is here, to get filenames and directories. I think, the Assembler cooperation could be done in a similar way.
https://www.qb64.org/forum/index.php?topic=1712.msg109492#msg109492

In the same way, Ashish and me calling quadrics in OpenGL, which are not directly supported in QB64.

[SpriggsySpriggs]

I think it might be possible with a wrapper that converts the qb64 string into a cstring

Now that I think about it, RhoSigma made a library that can be found here:https://www.qb64.org/forum/index.php?topic=809.0

In his QB64Library folder he has INCLUDEs for converting to a C String in the QB-StdLibs folder. I don't know if it is a true C string but it might be worth checking out.

[TempodiBasic]

hi guys
but if do you like to play with ASM (MASM/TASM?) I think you must follow the QB style like showed by TheBob in his programs

Code: QB64: [Select]

1. 'Create and load MouseDATA$ for CALL ABSOLUTE routines
2. Cheddar:
3. DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B
4. DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58
5. DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00
6. MouseDATA$ = SPACE$(57)
7. RESTORE Cheddar
8. FOR i = 1 TO 57
9.     READ h$
10.     Hexxer$ = CHR$(VAL("&H" + h$))
11.     MID$(MouseDATA$, i, 1) = Hexxer$
12. NEXT i
13.  
14. Moused = InitMOUSE
15.  
16. SUB MouseDRIVER (LB, RB, MX, MY)
17.  
18.     DEF SEG = VARSEG(MouseDATA$)
19.     mouse = SADD(MouseDATA$)
20.     CALL ABSOLUTE(LB, RB, MX, MY, mouse)
21.  
22. END SUB
23.  
24. SUB MouseSTATUS (LB, RB, MouseX, MouseY)
25.  
26.     LB = 3
27.     MouseDRIVER LB, RB, MX, MY
28.     LB = ((RB AND 1) <> 0)
29.     RB = ((RB AND 2) <> 0)
30.     MouseX = MX
31.     MouseY = MY
32.  
33. END SUB
34. SUB ClearMOUSE
35.  
36.     WHILE LB OR RB
37.         MouseSTATUS LB, RB, MouseX, MouseY
38.     WEND
39.  
40. END SUB

Code: QB64: [Select]

1. SetPALETTE:
2. DATA 20,0,24,0,0,42,0,0,45,10,0,50
3. DATA 55,0,0,50,0,0,40,0,0,42,42,42
4. DATA 30,0,0,20,10,55,25,5,29,40,30,63
5. DATA 45,0,0,63,0,0,60,45,20,63,63,63
6. RESTORE SetPALETTE
7. OUT &H3C8, 0
8. FOR n = 1 TO 48
9.     READ Intensity
10.     OUT &H3C9, Intensity
11. NEXT n
12. RETURN

or in cabsmous.bas that you find in the example of QB64 package

Code: QB64: [Select]

1. 'Mouse utilities for text mode. Written by TFM 9/11/94
2. 'Uses INT 33 to use a Microsoft Compatable mouse driver
3. 'Written in basic calling an assembly language routine.
4. 'Works in normal basic
5.  
6. DECLARE FUNCTION inbox! (boxx1!, boxx2!, boxy1!, boxy2!)            'if pointer is in box return 1 else return 0
7. DECLARE FUNCTION inboxpress1! (boxx1!, boxx2!, boxy1!, boxy2!)      'if last press was in box return 1 else return 0
8. DECLARE FUNCTION inboxpress2! (boxx1!, boxx2!, boxy1!, boxy2!)      'if last press was in box return 1 else return 0
9. DECLARE FUNCTION inboxrelease1! (boxx1!, boxx2!, boxy1!, boxy2!)    'if last release was in box return 1 else return 0
10. DECLARE FUNCTION inboxrelease2! (boxx1!, boxx2!, boxy1!, boxy2!)    'if last release was in box return 1 else return 0
11. DECLARE SUB releasemouse (button!)               'mouse x & y = last place botton 1 pressed
12. DECLARE SUB pressmouse (button!)                 'mouse x & y = last place botton 1 released
13. DECLARE SUB hidemouse ()                         'hide mose
14. DECLARE SUB mouseinterupt (ax!, bx!, cx!, dx!)   'int 33 with register values
15. DECLARE SUB initmouse ()                         'sets up mouse & if found mouse passed = 1
16. DECLARE SUB showmouse ()                         'show the mouse
17. DECLARE SUB getxymouse ()                        'get position of mouse in mouse x & y and mouse buttons in mousebutton 1 & 2
18. DECLARE SUB verticalmouse (miny!, maxy!)         'Set vertical mouse limmits
19. DECLARE SUB horizontalmouse (miny!, maxy!)       'Set horizontal mouse limmits
20.  
21. DIM SHARED ax AS INTEGER
22. DIM SHARED bx AS INTEGER
23. DIM SHARED cx AS INTEGER
24. DIM SHARED dx AS INTEGER
25. DIM SHARED mousex AS INTEGER
26. DIM SHARED mousey AS INTEGER
27. DIM SHARED mousebutton1 AS INTEGER
28. DIM SHARED mousebutton2 AS INTEGER
29. DIM SHARED mousevisible AS INTEGER
30. DIM SHARED mousepassed AS INTEGER
31.  
32. CLS
33.  
34. CALL initmouse
35. CALL showmouse
36. CALL horizontalmouse(10, 70) 'Set mouse position (min and max)
37. CALL verticalmouse(10, 15) 'Set mouse position
38.  
39. DO
40.     CALL pressmouse(1) 'Wait for button 1 to be pressed
41.  
42.     CALL getxymouse 'Store current positon in globals
43.     'This isn't needed coz pressmouse(1)
44.     'Already does it, but it is an example
45.    
46.     'Display position, stored in global variables
47.     LOCATE 24, 1
48.     PRINT "X - "; mousex, "  Y - "; mousey, "  Button1 - "; mousebutton1; "     Button2 - "; mousebutton2;
49.    
50.     IF inboxpress1(10, 70, 10, 12) THEN
51.         LOCATE 24, 70
52.         PRINT "*";
53.     ELSE
54.         LOCATE 24, 70
55.         PRINT " ";
56.     END IF
57.     IF mousebutton1 = 1 THEN CALL hidemouse
58.     IF mousebutton2 = 1 THEN CALL showmouse
59. LOOP
60.  
61. SUB getxymouse
62.  
63.  
64.     IF mousepassed = 1 THEN
65.    
66.         CALL mouseinterupt(&H3, 0, 0, 0)
67.  
68.         mousex = (cx / 8) + 1
69.         mousey = (dx / 8) + 1
70.         button = bx
71.  
72.  
73.         IF button = 0 THEN
74.             mousebutton1 = 0: mousebutton2 = 0
75.         ELSEIF button = 1 THEN
76.             mousebutton1 = 1: mousebutton2 = 0
77.         ELSEIF button = 2 THEN
78.             mousebutton1 = 0: mousebutton2 = 1
79.         ELSEIF button = 3 THEN
80.             mousebutton1 = 1: mousebutton2 = 1
81.         END IF
82.  
83.         DEF SEG
84.  
85.  
86.         LOCATE 24, 1
87.         PRINT "X - "; mousex, "  Y - "; mousey, "  Button1 - "; mousebutton1; "     Button2 - "; mousebutton2;
88.     ELSE
89.         LOCATE 24, 1
90.         PRINT "Sorry no mouse found"
91.     END IF
92. END SUB
93.  
94. SUB hidemouse
95.  
96.     IF mousepassed = 1 THEN
97.         IF mousevisible = 1 THEN
98.             CALL mouseinterupt(2, 0, 0, 0)
99.             mousevisible = 0
100.         END IF
101.     ELSE
102.         LOCATE 24, 1
103.         PRINT "Sorry no mouse found"
104.     END IF
105.  
106. END SUB
107.  
108. SUB horizontalmouse (minx, maxx)
109.  
110.     IF mousepassed = 1 THEN
111.         IF minx < 0 THEN maxx = 0
112.         IF maxx > 80 THEN maxx = 80
113.         IF maxx < minx THEN maxx = minx
114.         CALL mouseinterupt(7, 0, (minx - 1) * 8, (maxx - 1) * 8)
115.     ELSE
116.         LOCATE 24, 1
117.         PRINT "Sorry no mouse found"
118.     END IF
119.  
120. END SUB
121.  
122. FUNCTION inbox (boxx1, boxx2, boxy1, boxy2)
123.  
124.     IF mousepassed = 1 THEN
125.         CALL getxymouse
126.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
127.             inbox = 1
128.         ELSE
129.             inbox = 0
130.         END IF
131.     ELSE
132.         LOCATE 24, 1
133.         PRINT "Sorry no mouse found"
134.     END IF
135.  
136.  
137. END FUNCTION
138.  
139. FUNCTION inboxpress1 (boxx1, boxx2, boxy1, boxy2)
140.  
141.     IF mousepassed = 1 THEN
142.         CALL pressmouse(1)
143.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
144.             inboxpress1 = 1
145.         ELSE
146.             inboxpress1 = 0
147.         END IF
148.     ELSE
149.         LOCATE 24, 1
150.         PRINT "Sorry no mouse found"
151.     END IF
152.  
153. END FUNCTION
154.  
155. FUNCTION inboxpress2 (boxx1, boxx2, boxy1, boxy2)
156.  
157.     IF mousepassed = 1 THEN
158.         CALL pressmouse(2)
159.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
160.             inboxpress2 = 1
161.         ELSE
162.             inboxpress2 = 0
163.         END IF
164.     ELSE
165.         LOCATE 24, 1
166.         PRINT "Sorry no mouse found"
167.     END IF
168.  
169. END FUNCTION
170.  
171. FUNCTION inboxrelease1 (boxx1, boxx2, boxy1, boxy2)
172.  
173.     IF mousepassed = 1 THEN
174.         CALL releasemouse(1)
175.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
176.             inboxrelease1 = 1
177.         ELSE
178.             inboxrelease1 = 0
179.         END IF
180.     ELSE
181.         LOCATE 24, 1
182.         PRINT "Sorry no mouse found"
183.     END IF
184.  
185.  
186. END FUNCTION
187.  
188. FUNCTION inboxrelease2 (boxx1, boxx2, boxy1, boxy2)
189.  
190.     IF mousepassed = 1 THEN
191.         CALL releasemouse(2)
192.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
193.             inboxrelease2 = 1
194.         ELSE
195.             inboxrelease2 = 0
196.         END IF
197.     ELSE
198.         LOCATE 24, 1
199.         PRINT "Sorry no mouse found"
200.     END IF
201.  
202.  
203. END FUNCTION
204.  
205. SUB initmouse
206.  
207.  
208.     CALL mouseinterupt(0, 0, 0, 0)
209.  
210.     IF ax = 2 THEN
211.         mousepassed = 1
212.     ELSE
213.         mousepassed = 0
214.     END IF
215.  
216. END SUB
217.  
218.  
219. SUB mouseinterupt (m1, m2, m3, m4)
220.  
221.     n1 = 0: n2 = 0: n3 = 0: n4 = 0
222.  
223.     DO WHILE m1 > 255
224.         m1 = m1 - 255
225.         n1 = n1 + 1
226.     LOOP
227.     DO WHILE m2 > 255
228.         m2 = m2 - 255
229.         n2 = n2 + 1
230.     LOOP
231.     DO WHILE m3 > 255
232.         m3 = m3 - 255
233.         n3 = n3 + 1
234.     LOOP
235.     DO WHILE m4 > 255
236.         m4 = m4 - 255
237.         n4 = n4 + 1
238.     LOOP
239.  
240.     DIM b%(47)
241.     DEF SEG = VARSEG(b%(0))
242.  
243.     POKE VARPTR(b%(0)) + 0, &H50 'push AX
244.     POKE VARPTR(b%(0)) + 1, &H53 'push BX
245.     POKE VARPTR(b%(0)) + 2, &H51 'push CX
246.     POKE VARPTR(b%(0)) + 3, &H52 'push DX
247.     POKE VARPTR(b%(0)) + 4, &H1E 'push DS
248.  
249.     POKE VARPTR(b%(0)) + 5, &HB8
250.     POKE VARPTR(b%(0)) + 6, m1 'set AX
251.     POKE VARPTR(b%(0)) + 7, n1
252.    
253.     POKE VARPTR(b%(0)) + 8, &HBB
254.     POKE VARPTR(b%(0)) + 9, m2 'set BX
255.     POKE VARPTR(b%(0)) + 10, n2
256.  
257.     POKE VARPTR(b%(0)) + 11, &HB9
258.     POKE VARPTR(b%(0)) + 12, m3 'set CX
259.     POKE VARPTR(b%(0)) + 13, n3
260.  
261.     POKE VARPTR(b%(0)) + 14, &HBA
262.     POKE VARPTR(b%(0)) + 15, m4 'set DX
263.     POKE VARPTR(b%(0)) + 16, n4
264.    
265.     POKE VARPTR(b%(0)) + 17, &HCD 'INT 33
266.     POKE VARPTR(b%(0)) + 18, &H33
267.    
268.     POKE VARPTR(b%(0)) + 19, &H50 'push AX
269.  
270.     POKE VARPTR(b%(0)) + 20, &HB8 'AX = B800
271.     POKE VARPTR(b%(0)) + 21, &H0
272.     POKE VARPTR(b%(0)) + 22, &HB8
273.  
274.     POKE VARPTR(b%(0)) + 23, &H8E 'DS = AX
275.     POKE VARPTR(b%(0)) + 24, &HD8
276.          
277.     POKE VARPTR(b%(0)) + 25, &H58 'pop AX
278.    
279.     POKE VARPTR(b%(0)) + 26, &H89
280.     POKE VARPTR(b%(0)) + 27, &H1E '[0001] = AX
281.     POKE VARPTR(b%(0)) + 28, &HA1
282.     POKE VARPTR(b%(0)) + 29, &HF
283.    
284.     POKE VARPTR(b%(0)) + 30, &H89
285.     POKE VARPTR(b%(0)) + 31, &H1E '[0003] = BX
286.    
287.     POKE VARPTR(b%(0)) + 32, &HA3
288.     POKE VARPTR(b%(0)) + 33, &HF
289.  
290.     POKE VARPTR(b%(0)) + 34, &H89
291.     POKE VARPTR(b%(0)) + 35, &HE '[0005] = CX
292.     POKE VARPTR(b%(0)) + 36, &HA5
293.     POKE VARPTR(b%(0)) + 37, &HF
294.  
295.     POKE VARPTR(b%(0)) + 38, &H89
296.     POKE VARPTR(b%(0)) + 39, &H16 '[0007] = DX
297.     POKE VARPTR(b%(0)) + 40, &HA7
298.     POKE VARPTR(b%(0)) + 41, &HF
299.  
300.  
301.     POKE VARPTR(b%(0)) + 42, &H1F 'pop DS
302.     POKE VARPTR(b%(0)) + 43, &H5A 'pop DX
303.     POKE VARPTR(b%(0)) + 44, &H59 'pop CX
304.     POKE VARPTR(b%(0)) + 45, &H5B 'pop BX
305.     POKE VARPTR(b%(0)) + 46, &H58 'pop AX
306.  
307.     POKE VARPTR(b%(0)) + 47, &HCB 'RETF
308.  
309.  
310.     CALL ABSOLUTE(VARPTR(b%(0)))
311.  
312.     DEF SEG = &HB800
313.     ax = PEEK(&HFA1) + 256 * PEEK(&HFA2)
314.     bx = PEEK(&HFA3) + 256 * PEEK(&HFA4)
315.     cx = PEEK(&HFA5) + 256 * PEEK(&HFA6)
316.     dx = PEEK(&HFA7) + 256 * PEEK(&HFA8)
317.    
318.  
319. END SUB
320.  
321. SUB movemouse (newx, newy)
322.  
323.     IF mousepassed = 1 THEN
324.         IF newx < 26 AND newx > 0 AND newy < 81 AND newy > 0 THEN
325.             CALL mouseinterupt(4, 0, (newx - 1) * 8, (newy - 1) * 8)
326.             mousex = newx
327.             mousey = newy
328.         ELSE
329.             PRINT
330.             PRINT "Illegal mouse position!!!";
331.         END IF
332.     ELSE
333.         LOCATE 24, 1
334.         PRINT "Sorry no mouse found"
335.     END IF
336.  
337. END SUB
338.  
339. SUB pressmouse (button)
340.  
341.     IF mousepassed = 1 THEN
342.         CALL mouseinterupt(5, button - 1, 0, 0)
343.         mousex = (cx / 8) + 1
344.         mousey = (dx / 8) + 1
345.    
346.  
347.     ELSE
348.         LOCATE 24, 1
349.         PRINT "Sorry no mouse found"
350.     END IF
351. END SUB
352.  
353. SUB releasemouse (button)
354.  
355.     IF mousepassed = 1 THEN
356.         CALL mouseinterupt(5, button - 1, 0, 0)
357.         mousex = (cx / 8) + 1
358.         mousey = (dx / 8) + 1
359.     ELSE
360.         LOCATE 24, 1
361.         PRINT "Sorry no mouse found"
362.     END IF
363.  
364. END SUB
365.  
366. SUB showmouse
367.  
368.     IF mousepassed = 1 THEN
369.         IF mousevisible = 0 THEN
370.             CALL mouseinterupt(1, 0, 0, 0)
371.             mousevisible = 1
372.         END IF
373.     ELSE
374.         LOCATE 24, 1
375.         PRINT "Sorry no mouse found"
376.     END IF
377.  
378. END SUB
379.  
380. SUB verticalmouse (miny, maxy)
381.  
382.     IF mousepassed = 1 THEN
383.         IF miny < 0 THEN maxy = 0
384.         IF maxy > 25 THEN maxy = 25
385.         IF maxy < miny THEN maxy = miny
386.         CALL mouseinterupt(8, 0, (miny - 1) * 8, (maxy - 1) * 8)
387.     ELSE
388.         LOCATE 24, 1
389.         PRINT "Sorry no mouse found"
390.     END IF
391.  
392.  
393. END SUB

.

I'm just kidding. It is too easy in this way!

Just a curiosity: but  do you like the syntax check too for C/C++/ASM?

[_vince]

Nice collection of snippets, Tempo.  Let me comment on them:

hi guys
but if do you like to play with ASM (MASM/TASM?) I think you must follow the QB style like showed by TheBob in his programs

Code: QB64: [Select]

1. 'Create and load MouseDATA$ for CALL ABSOLUTE routines
2. Cheddar:
3. DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B,5E,08,8B
4. DATA 0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53,8B,5E,0C,89,07,58
5. DATA 8B,5E,0A,89,07,8B,5E,08,89,0F,8B,5E,06,89,17,5D,CA,08,00
6. MouseDATA$ = SPACE$(57)
7. RESTORE Cheddar
8. FOR i = 1 TO 57
9.     READ h$
10.     Hexxer$ = CHR$(VAL("&H" + h$))
11.     MID$(MouseDATA$, i, 1) = Hexxer$
12. NEXT i
13.  
14. Moused = InitMOUSE
15.  
16. SUB MouseDRIVER (LB, RB, MX, MY)
17.  
18.     DEF SEG = VARSEG(MouseDATA$)
19.     mouse = SADD(MouseDATA$)
20.     CALL ABSOLUTE(LB, RB, MX, MY, mouse)
21.  
22. END SUB
23.  
24. SUB MouseSTATUS (LB, RB, MouseX, MouseY)
25.  
26.     LB = 3
27.     MouseDRIVER LB, RB, MX, MY
28.     LB = ((RB AND 1) <> 0)
29.     RB = ((RB AND 2) <> 0)
30.     MouseX = MX
31.     MouseY = MY
32.  
33. END SUB
34. SUB ClearMOUSE
35.  
36.     WHILE LB OR RB
37.         MouseSTATUS LB, RB, MouseX, MouseY
38.     WEND
39.  
40. END SUB

Why in the world do people use DATA statements? Totally unnecessary and bloated, you can pack everything into nice LONGs.  Here is a efficiently written minimal mouse demo, look how simple and compact it is:

Code: [Select]

DEFINT A-Z
DECLARE SUB mouse (ax, mb, mx, my)

DIM SHARED m(7) AS LONG
m(0) = &H8BE58955
m(1) = &H48B0C76
m(2) = &H768B33CD
m(3) = &H8B1C890A
m(4) = &HC890876
m(5) = &H8906768B
m(6) = &H8CA5D14

SCREEN 12

mouse 0, mb, mx, my 'reset mouse driver
mouse 1, mb, mx, my 'show mouse cursor

DO
   'get mouse state
   mouse 3, mb, mx, my

   'print mouse coordinates
   LOCATE 1, 1: PRINT mb, mx, my
LOOP UNTIL INP(&H60) = 1
SYSTEM

SUB mouse (ax, mb, mx, my)
   DEF SEG = VARSEG(m(0))
   CALL absolute(ax, mb, mx, my, VARPTR(m(0)))
END SUB


Code: QB64: [Select]

1. SetPALETTE:
2. DATA 20,0,24,0,0,42,0,0,45,10,0,50
3. DATA 55,0,0,50,0,0,40,0,0,42,42,42
4. DATA 30,0,0,20,10,55,25,5,29,40,30,63
5. DATA 45,0,0,63,0,0,60,45,20,63,63,63
6. RESTORE SetPALETTE
7. OUT &H3C8, 0
8. FOR n = 1 TO 48
9.     READ Intensity
10.     OUT &H3C9, Intensity
11. NEXT n
12. RETURN

This has little to do with assembly, this is the old VGA ports method of setting the palette.  Here is equivalent QB64 code:

Code: QB64: [Select]

1. DATA 20,0,24,0,0,42,0,0,45,10,0,50
2. DATA 55,0,0,50,0,0,40,0,0,42,42,42
3. DATA 30,0,0,20,10,55,25,5,29,40,30,63
4. DATA 45,0,0,63,0,0,60,45,20,63,63,63
5.  
6. FOR n = 0 TO 15
7.     READ red%
8.     READ green%
9.     READ blue%
10.         palette n, red% + (green% * 256) + (blue% * 65536)
11. NEXT
12.  

or in cabsmous.bas that you find in the example of QB64 package

Code: QB64: [Select]

1. 'Mouse utilities for text mode. Written by TFM 9/11/94
2. 'Uses INT 33 to use a Microsoft Compatable mouse driver
3. 'Written in basic calling an assembly language routine.
4. 'Works in normal basic
5.  
6. DECLARE FUNCTION inbox! (boxx1!, boxx2!, boxy1!, boxy2!)            'if pointer is in box return 1 else return 0
7. DECLARE FUNCTION inboxpress1! (boxx1!, boxx2!, boxy1!, boxy2!)      'if last press was in box return 1 else return 0
8. DECLARE FUNCTION inboxpress2! (boxx1!, boxx2!, boxy1!, boxy2!)      'if last press was in box return 1 else return 0
9. DECLARE FUNCTION inboxrelease1! (boxx1!, boxx2!, boxy1!, boxy2!)    'if last release was in box return 1 else return 0
10. DECLARE FUNCTION inboxrelease2! (boxx1!, boxx2!, boxy1!, boxy2!)    'if last release was in box return 1 else return 0
11. DECLARE SUB releasemouse (button!)               'mouse x & y = last place botton 1 pressed
12. DECLARE SUB pressmouse (button!)                 'mouse x & y = last place botton 1 released
13. DECLARE SUB hidemouse ()                         'hide mose
14. DECLARE SUB mouseinterupt (ax!, bx!, cx!, dx!)   'int 33 with register values
15. DECLARE SUB initmouse ()                         'sets up mouse & if found mouse passed = 1
16. DECLARE SUB showmouse ()                         'show the mouse
17. DECLARE SUB getxymouse ()                        'get position of mouse in mouse x & y and mouse buttons in mousebutton 1 & 2
18. DECLARE SUB verticalmouse (miny!, maxy!)         'Set vertical mouse limmits
19. DECLARE SUB horizontalmouse (miny!, maxy!)       'Set horizontal mouse limmits
20.  
21. DIM SHARED ax AS INTEGER
22. DIM SHARED bx AS INTEGER
23. DIM SHARED cx AS INTEGER
24. DIM SHARED dx AS INTEGER
25. DIM SHARED mousex AS INTEGER
26. DIM SHARED mousey AS INTEGER
27. DIM SHARED mousebutton1 AS INTEGER
28. DIM SHARED mousebutton2 AS INTEGER
29. DIM SHARED mousevisible AS INTEGER
30. DIM SHARED mousepassed AS INTEGER
31.  
32. CLS
33.  
34. CALL initmouse
35. CALL showmouse
36. CALL horizontalmouse(10, 70) 'Set mouse position (min and max)
37. CALL verticalmouse(10, 15) 'Set mouse position
38.  
39. DO
40.     CALL pressmouse(1) 'Wait for button 1 to be pressed
41.  
42.     CALL getxymouse 'Store current positon in globals
43.     'This isn't needed coz pressmouse(1)
44.     'Already does it, but it is an example
45.    
46.     'Display position, stored in global variables
47.     LOCATE 24, 1
48.     PRINT "X - "; mousex, "  Y - "; mousey, "  Button1 - "; mousebutton1; "     Button2 - "; mousebutton2;
49.    
50.     IF inboxpress1(10, 70, 10, 12) THEN
51.         LOCATE 24, 70
52.         PRINT "*";
53.     ELSE
54.         LOCATE 24, 70
55.         PRINT " ";
56.     END IF
57.     IF mousebutton1 = 1 THEN CALL hidemouse
58.     IF mousebutton2 = 1 THEN CALL showmouse
59. LOOP
60.  
61. SUB getxymouse
62.  
63.  
64.     IF mousepassed = 1 THEN
65.    
66.         CALL mouseinterupt(&H3, 0, 0, 0)
67.  
68.         mousex = (cx / 8) + 1
69.         mousey = (dx / 8) + 1
70.         button = bx
71.  
72.  
73.         IF button = 0 THEN
74.             mousebutton1 = 0: mousebutton2 = 0
75.         ELSEIF button = 1 THEN
76.             mousebutton1 = 1: mousebutton2 = 0
77.         ELSEIF button = 2 THEN
78.             mousebutton1 = 0: mousebutton2 = 1
79.         ELSEIF button = 3 THEN
80.             mousebutton1 = 1: mousebutton2 = 1
81.         END IF
82.  
83.         DEF SEG
84.  
85.  
86.         LOCATE 24, 1
87.         PRINT "X - "; mousex, "  Y - "; mousey, "  Button1 - "; mousebutton1; "     Button2 - "; mousebutton2;
88.     ELSE
89.         LOCATE 24, 1
90.         PRINT "Sorry no mouse found"
91.     END IF
92. END SUB
93.  
94. SUB hidemouse
95.  
96.     IF mousepassed = 1 THEN
97.         IF mousevisible = 1 THEN
98.             CALL mouseinterupt(2, 0, 0, 0)
99.             mousevisible = 0
100.         END IF
101.     ELSE
102.         LOCATE 24, 1
103.         PRINT "Sorry no mouse found"
104.     END IF
105.  
106. END SUB
107.  
108. SUB horizontalmouse (minx, maxx)
109.  
110.     IF mousepassed = 1 THEN
111.         IF minx < 0 THEN maxx = 0
112.         IF maxx > 80 THEN maxx = 80
113.         IF maxx < minx THEN maxx = minx
114.         CALL mouseinterupt(7, 0, (minx - 1) * 8, (maxx - 1) * 8)
115.     ELSE
116.         LOCATE 24, 1
117.         PRINT "Sorry no mouse found"
118.     END IF
119.  
120. END SUB
121.  
122. FUNCTION inbox (boxx1, boxx2, boxy1, boxy2)
123.  
124.     IF mousepassed = 1 THEN
125.         CALL getxymouse
126.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
127.             inbox = 1
128.         ELSE
129.             inbox = 0
130.         END IF
131.     ELSE
132.         LOCATE 24, 1
133.         PRINT "Sorry no mouse found"
134.     END IF
135.  
136.  
137. END FUNCTION
138.  
139. FUNCTION inboxpress1 (boxx1, boxx2, boxy1, boxy2)
140.  
141.     IF mousepassed = 1 THEN
142.         CALL pressmouse(1)
143.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
144.             inboxpress1 = 1
145.         ELSE
146.             inboxpress1 = 0
147.         END IF
148.     ELSE
149.         LOCATE 24, 1
150.         PRINT "Sorry no mouse found"
151.     END IF
152.  
153. END FUNCTION
154.  
155. FUNCTION inboxpress2 (boxx1, boxx2, boxy1, boxy2)
156.  
157.     IF mousepassed = 1 THEN
158.         CALL pressmouse(2)
159.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
160.             inboxpress2 = 1
161.         ELSE
162.             inboxpress2 = 0
163.         END IF
164.     ELSE
165.         LOCATE 24, 1
166.         PRINT "Sorry no mouse found"
167.     END IF
168.  
169. END FUNCTION
170.  
171. FUNCTION inboxrelease1 (boxx1, boxx2, boxy1, boxy2)
172.  
173.     IF mousepassed = 1 THEN
174.         CALL releasemouse(1)
175.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
176.             inboxrelease1 = 1
177.         ELSE
178.             inboxrelease1 = 0
179.         END IF
180.     ELSE
181.         LOCATE 24, 1
182.         PRINT "Sorry no mouse found"
183.     END IF
184.  
185.  
186. END FUNCTION
187.  
188. FUNCTION inboxrelease2 (boxx1, boxx2, boxy1, boxy2)
189.  
190.     IF mousepassed = 1 THEN
191.         CALL releasemouse(2)
192.         IF mousex <= boxx2 AND mousex >= boxx1 AND mousey <= boxy2 AND mousey >= boxy1 THEN
193.             inboxrelease2 = 1
194.         ELSE
195.             inboxrelease2 = 0
196.         END IF
197.     ELSE
198.         LOCATE 24, 1
199.         PRINT "Sorry no mouse found"
200.     END IF
201.  
202.  
203. END FUNCTION
204.  
205. SUB initmouse
206.  
207.  
208.     CALL mouseinterupt(0, 0, 0, 0)
209.  
210.     IF ax = 2 THEN
211.         mousepassed = 1
212.     ELSE
213.         mousepassed = 0
214.     END IF
215.  
216. END SUB
217.  
218.  
219. SUB mouseinterupt (m1, m2, m3, m4)
220.  
221.     n1 = 0: n2 = 0: n3 = 0: n4 = 0
222.  
223.     DO WHILE m1 > 255
224.         m1 = m1 - 255
225.         n1 = n1 + 1
226.     LOOP
227.     DO WHILE m2 > 255
228.         m2 = m2 - 255
229.         n2 = n2 + 1
230.     LOOP
231.     DO WHILE m3 > 255
232.         m3 = m3 - 255
233.         n3 = n3 + 1
234.     LOOP
235.     DO WHILE m4 > 255
236.         m4 = m4 - 255
237.         n4 = n4 + 1
238.     LOOP
239.  
240.     DIM b%(47)
241.     DEF SEG = VARSEG(b%(0))
242.  
243.     POKE VARPTR(b%(0)) + 0, &H50 'push AX
244.     POKE VARPTR(b%(0)) + 1, &H53 'push BX
245.     POKE VARPTR(b%(0)) + 2, &H51 'push CX
246.     POKE VARPTR(b%(0)) + 3, &H52 'push DX
247.     POKE VARPTR(b%(0)) + 4, &H1E 'push DS
248.  
249.     POKE VARPTR(b%(0)) + 5, &HB8
250.     POKE VARPTR(b%(0)) + 6, m1 'set AX
251.     POKE VARPTR(b%(0)) + 7, n1
252.    
253.     POKE VARPTR(b%(0)) + 8, &HBB
254.     POKE VARPTR(b%(0)) + 9, m2 'set BX
255.     POKE VARPTR(b%(0)) + 10, n2
256.  
257.     POKE VARPTR(b%(0)) + 11, &HB9
258.     POKE VARPTR(b%(0)) + 12, m3 'set CX
259.     POKE VARPTR(b%(0)) + 13, n3
260.  
261.     POKE VARPTR(b%(0)) + 14, &HBA
262.     POKE VARPTR(b%(0)) + 15, m4 'set DX
263.     POKE VARPTR(b%(0)) + 16, n4
264.    
265.     POKE VARPTR(b%(0)) + 17, &HCD 'INT 33
266.     POKE VARPTR(b%(0)) + 18, &H33
267.    
268.     POKE VARPTR(b%(0)) + 19, &H50 'push AX
269.  
270.     POKE VARPTR(b%(0)) + 20, &HB8 'AX = B800
271.     POKE VARPTR(b%(0)) + 21, &H0
272.     POKE VARPTR(b%(0)) + 22, &HB8
273.  
274.     POKE VARPTR(b%(0)) + 23, &H8E 'DS = AX
275.     POKE VARPTR(b%(0)) + 24, &HD8
276.          
277.     POKE VARPTR(b%(0)) + 25, &H58 'pop AX
278.    
279.     POKE VARPTR(b%(0)) + 26, &H89
280.     POKE VARPTR(b%(0)) + 27, &H1E '[0001] = AX
281.     POKE VARPTR(b%(0)) + 28, &HA1
282.     POKE VARPTR(b%(0)) + 29, &HF
283.    
284.     POKE VARPTR(b%(0)) + 30, &H89
285.     POKE VARPTR(b%(0)) + 31, &H1E '[0003] = BX
286.    
287.     POKE VARPTR(b%(0)) + 32, &HA3
288.     POKE VARPTR(b%(0)) + 33, &HF
289.  
290.     POKE VARPTR(b%(0)) + 34, &H89
291.     POKE VARPTR(b%(0)) + 35, &HE '[0005] = CX
292.     POKE VARPTR(b%(0)) + 36, &HA5
293.     POKE VARPTR(b%(0)) + 37, &HF
294.  
295.     POKE VARPTR(b%(0)) + 38, &H89
296.     POKE VARPTR(b%(0)) + 39, &H16 '[0007] = DX
297.     POKE VARPTR(b%(0)) + 40, &HA7
298.     POKE VARPTR(b%(0)) + 41, &HF
299.  
300.  
301.     POKE VARPTR(b%(0)) + 42, &H1F 'pop DS
302.     POKE VARPTR(b%(0)) + 43, &H5A 'pop DX
303.     POKE VARPTR(b%(0)) + 44, &H59 'pop CX
304.     POKE VARPTR(b%(0)) + 45, &H5B 'pop BX
305.     POKE VARPTR(b%(0)) + 46, &H58 'pop AX
306.  
307.     POKE VARPTR(b%(0)) + 47, &HCB 'RETF
308.  
309.  
310.     CALL ABSOLUTE(VARPTR(b%(0)))
311.  
312.     DEF SEG = &HB800
313.     ax = PEEK(&HFA1) + 256 * PEEK(&HFA2)
314.     bx = PEEK(&HFA3) + 256 * PEEK(&HFA4)
315.     cx = PEEK(&HFA5) + 256 * PEEK(&HFA6)
316.     dx = PEEK(&HFA7) + 256 * PEEK(&HFA8)
317.    
318.  
319. END SUB
320.  
321. SUB movemouse (newx, newy)
322.  
323.     IF mousepassed = 1 THEN
324.         IF newx < 26 AND newx > 0 AND newy < 81 AND newy > 0 THEN
325.             CALL mouseinterupt(4, 0, (newx - 1) * 8, (newy - 1) * 8)
326.             mousex = newx
327.             mousey = newy
328.         ELSE
329.             PRINT
330.             PRINT "Illegal mouse position!!!";
331.         END IF
332.     ELSE
333.         LOCATE 24, 1
334.         PRINT "Sorry no mouse found"
335.     END IF
336.  
337. END SUB
338.  
339. SUB pressmouse (button)
340.  
341.     IF mousepassed = 1 THEN
342.         CALL mouseinterupt(5, button - 1, 0, 0)
343.         mousex = (cx / 8) + 1
344.         mousey = (dx / 8) + 1
345.    
346.  
347.     ELSE
348.         LOCATE 24, 1
349.         PRINT "Sorry no mouse found"
350.     END IF
351. END SUB
352.  
353. SUB releasemouse (button)
354.  
355.     IF mousepassed = 1 THEN
356.         CALL mouseinterupt(5, button - 1, 0, 0)
357.         mousex = (cx / 8) + 1
358.         mousey = (dx / 8) + 1
359.     ELSE
360.         LOCATE 24, 1
361.         PRINT "Sorry no mouse found"
362.     END IF
363.  
364. END SUB
365.  
366. SUB showmouse
367.  
368.     IF mousepassed = 1 THEN
369.         IF mousevisible = 0 THEN
370.             CALL mouseinterupt(1, 0, 0, 0)
371.             mousevisible = 1
372.         END IF
373.     ELSE
374.         LOCATE 24, 1
375.         PRINT "Sorry no mouse found"
376.     END IF
377.  
378. END SUB
379.  
380. SUB verticalmouse (miny, maxy)
381.  
382.     IF mousepassed = 1 THEN
383.         IF miny < 0 THEN maxy = 0
384.         IF maxy > 25 THEN maxy = 25
385.         IF maxy < miny THEN maxy = miny
386.         CALL mouseinterupt(8, 0, (miny - 1) * 8, (maxy - 1) * 8)
387.     ELSE
388.         LOCATE 24, 1
389.         PRINT "Sorry no mouse found"
390.     END IF
391.  
392.  
393. END SUB

.

Here, instead of DATA statements they use POKE...VARPTR, so much text.  At least they used an integer array for storage

[FellippeHeitor]

I must add TheBOB's programs have all been recently adapted in the repository not to use CALL ABSOLUTE anymore - especially since that doesn't work in QB64.

[TempodiBasic]

Hi

@FellippeHeitor
Yes it is known that the lowlevel calling (CALL ABSOLUTE/ CALL INTERRUPT/ CALL INTERRUPTX) used also in theBob's code aren't supported by QB64 but it is emulated only the INT33 for the 3 first services.
Moreover other low level work is emulated and deprecated to use in code (INP, OUT, PEEK, POKE, DEF SEG, VARPTR, VARPTR$, SADD). Analog discussion about IOCTL and IOCTL$.
That is a choice of Galleon and of the QB64 developers team!
The policy about the lowlevel work is forbidden in QB64 using the old ways.
Old ways that exhume 8-16 bit worlds are out!

But how can the QB64 coder access to the low level? 
The actual answer of QB64 developers team is
 1. QB64 is not a language to make low level work like build a driver, work on wire, access to port but if you need to do some work surely there is anywhere a library (often DLL or C/C++ library) that you can integrate into your work.
2. for efficient memory access it has been added _MEM
(... please all you that know more to add others ways available today.)


So is the request to open to ASM inline and C inline in the other thread  simply an attempt to have more control of machine towards low level coding ? Or also to implement some feature that is not developed into QB64 language and it is hard that QB64 developers team can support at time?

We can think that this kind of need is for expert programmers that must build something with QB64  but are valid C/C++ coders.  In this case is better to open to ASM and/or C/C++ inline or a more robust support of integration of external library made by the expert coder?
The third way is that defined by Galleon in that old post

My new philosophy is to let QB64 be what the community want it to be. Even if we end up with 1000s of commands that barely get used by the majority, it is better than QB64 not being used at all. And if someone implements something incredibly stupid/unnecessary (such as a _HELLOWORLD command) the beauty of a repository is that it can always be rolled back later. Because of this philosophy, you won't see me standing in the way of any changes.

but this third way brings to QB64 developers team a pletora of work more than that they already had.

[TempodiBasic]

Hi
@_vince
Thanks to reply to my provocation to introduce an open discussion starting from a request

about your comment let me say that I love those!
I have tried to use your better code but QB64 refuses to run

  [ You are not allowed to view this attachment ]  
so nevertheless your good attempt we arrive at affirmation stated by Fellippe.

No more support for old ways to access to low level of machine, expecially if it exhumes 16 bit structures.

and so for expert coders that want to build something in QB64 and need something that is not yet implemented in QB64 what is the way to follow?
1. gain the ASM and/or C and/or C++ gateway
2. search/ build an external library (DLL o other .LIB) to integrate in its code
3. implement the feature needed into QB64 code to
      A) make a personal fork for his use
      B) post the news to QB64 developers team to integrate the news in the official version
Here my knowledge. Thanks to talk about this point of view.

[FellippeHeitor]

CALL INTERRUPT has some emulation. CALL ABSOLUTE doesn't.

[_vince]

Originally, QB64 had limited support for CALL ABSOLUTE because just so many programs used it and it was the only way to have a mouse in QBasic 1.1, the version that shipped with win95 and caused QBasic to explode in popularity.  CALL INTERRUPT was something that only worked with QB45+ and required starting QB with the /L switch, have the libraries, etc.  Support for ABSOLUTE seemed quite complicated because it had to emulate to some extent 16bit machine language and handle all the different ways people implement it and pass variables between it, etc.  I guess it is all lost with abandonment of the SDL version because no one will bother to port ABSOLUTE mice to GL.

[FellippeHeitor]

Versions of QB64 prior to the conversion to OpenGL couldn't run code with ABSOLUTE either (at least not as far back as I went testing). @_vince do you happen to know with which version it compiled successfully? That can lead to it being brought back.

[jack]

gcc inline asm takes time to learn, I wrote 2 simple functions for 64-bit

cinclude.h

Code: [Select]

void myfun(double *x)
{
asm (
"fldpi \n"
"movq %[x], %%rax \n"
"fstpl (%%rax) \n"
:[x]"=m"(x)
:
:
);
}

double myfun2(void)
{
double x;
asm (
"fldpi \n"
"leaq %[x], %%rax \n"
"fstpl (%%rax) \n"
:[x]"=m"(x)
:
:
);
return x;
}

casm_test.bas

Code: [Select]

' cinclude.h needs to be in QB64 folder
DECLARE CUSTOMTYPE LIBRARY ".\cinclude"
    SUB myfun (x AS DOUBLE)
    FUNCTION myfun2# ()
END DECLARE

DIM x AS DOUBLE
DIM y AS DOUBLE
CALL myfun(y)
PRINT y
x = myfun2
PRINT x