1; Mouse interrupt call procedure for QBasic.
2push bp           ; Save previous bp.
3mov bp,sp         ; Set new bp.
4push si           ; Save si.
5mov si,[bp+6]     ; Load registers structure offset. 
6mov ax,[si]       ; Load values into CPU registers.
7mov cx,[si+2]     ;
8mov dx,[si+4]     ; 
9mov bx,[si+6]     ; 
10int 0x33          ; Call mouse interrupt.
11mov [si],ax       ; Save CPU registers to structure.
12mov [si+2],cx     ; 
13mov [si+4],dx     ; 
14mov [si+6],bx     ; 
15pop si            ; Restore si.
16pop bp            ; Restore bp.
17retf 2            ; Return and remove arguments from stack.

1DEFINT A-Z
2
3TYPE RegistersStr
4 ax AS INTEGER
5 cx AS INTEGER
6 dx AS INTEGER
7 bx AS INTEGER
8END TYPE
9
10DECLARE FUNCTION LoadWrapper$ ()
11DECLARE SUB CallInt33h ()
12
13DIM SHARED Int33h AS STRING
14DIM SHARED Registers AS RegistersStr
15
16 CLS
17 Int33h = LoadWrapper$
18
19 Registers.ax = &H1
20 Registers.cx = &H0
21 Registers.dx = &H0
22 Registers.bx = &H0
23 CallInt33h
24
25 DO
26  Registers.ax = &H3
27  Registers.cx = &H0
28  Registers.dx = &H0
29  Registers.bx = &H0
30  CallInt33h
31  LOCATE 1, 1: PRINT Registers.cx, Registers.dx, " ";
32 LOOP WHILE INKEY$ = ""
33 
34END
35
36SUB CallInt33h
37 DEF SEG = VARSEG(Int33h)
38 CALL ABSOLUTE(Registers, SADD(Int33h))
39END SUB
40
41FUNCTION LoadWrapper$
42DIM FileH AS INTEGER
43
44 FileH = FREEFILE
45 OPEN "Int33h.BIN" FOR INPUT LOCK READ WRITE AS FileH
46 CLOSE FileH
47
48 FileH = FREEFILE
49 OPEN "Int33h.BIN" FOR BINARY LOCK READ WRITE AS FileH
50  Int33h = INPUT$(LOF(FileH), FileH)
51 CLOSE FileH
52
53 LoadWrapper$ = Int33h
54END FUNCTION