Get rid of getopt, use Optparse

Well, I thought I had done this before. P for portability.
2023-02-02 16:25:20 +00:00
parent 987095fdef
commit 12442c72a7
10 changed files with 216 additions and 73 deletions
@@ -0,0 +1,58 @@
+use32
+    org 0
+    db  'MENUET01'
+    dd  1, start, i_end, e_end, e_end, 0, 0
+
+__DEBUG__ = 1
+__DEBUG_LEVEL__ = 1
+
+include 'proc32.inc'
+include 'macros.inc'
+include 'debug-fdo.inc'
+
+EFLAGS.ID = 1 SHL 21
+
+start:
+        pushfd
+        btr     dword[esp], BSF EFLAGS.ID
+        popfd
+
+        mcall   68, 11
+
+redraw:
+        mcall   12, 1
+        mcall   0, <100,200>, <100,100>, 0x34ff8888, , window_title
+        mcall   12, 2
+
+still:
+        mcall   10
+        dec     eax
+        jz      redraw
+        dec     eax
+        jz      key
+button:
+        mcall   17
+        shr     eax, 8
+
+        cmp     eax, 1
+        jz      exit
+
+        jmp     still
+
+key:
+        mcall   2
+        cmp     ah, 0x09        ; TAB key
+
+        jmp     still
+
+exit:
+        mcall   -1
+
+;include_debug_strings
+
+window_title db 'just a window',0
+
+i_end:
+
+rb 0x100        ; stack
+e_end:
@@ -0,0 +1,82 @@
+use32
+    org 0x1000000
+    db  'MENUET01'
+    dd  1, start, i_end, e_end, e_end, 0, 0
+
+__DEBUG__ = 1
+__DEBUG_LEVEL__ = 1
+
+include 'proc32.inc'
+include 'macros.inc'
+include 'debug-fdo.inc'
+
+EFLAGS.ID = 1 SHL 21
+
+start:
+        pushfd
+        btr     dword[esp], BSF EFLAGS.ID
+        popfd
+
+        mcall   68, 11
+
+        mcall   12, 1
+        mcall   0, <50,200>, <50,100>, 0x3488ffff, , window_title
+        mcall   12, 2
+
+        mcall   15, 1, 2, 2
+        mcall   15, 4, 1
+        mcall   15, 6
+        mov     ecx, 0
+        mov     edx, 0xff
+        mov     [eax+0], cl
+        mov     [eax+1], cl
+        mov     [eax+2], cl
+        mov     [eax+3], dl
+        mov     [eax+4], dl
+        mov     [eax+5], dl
+        mov     [eax+6], dl
+        mov     [eax+7], dl
+        mov     [eax+8], dl
+        mov     [eax+9], cl
+        mov     [eax+10], cl
+        mov     [eax+11], cl
+        mcall   15, 7, eax
+        mcall   15, 3
+
+redraw:
+        mcall   12, 1
+        mcall   0, <50,200>, <50,100>, 0x3488ffff, , window_title
+        mcall   12, 2
+
+still:
+        mcall   10
+        dec     eax
+        jz      redraw
+        dec     eax
+        jz      key
+button:
+        mcall   17
+        shr     eax, 8
+
+        cmp     eax, 1
+        jz      exit
+
+        jmp     still
+
+key:
+        mcall   2
+        cmp     ah, 0x09        ; TAB key
+
+        jmp     still
+
+exit:
+        mcall   -1
+
+;include_debug_strings
+
+window_title db 'loader',0
+
+i_end:
+
+rb 0x100        ; stack
+e_end:
@@ -11,7 +11,7 @@ else
        $(error your OS is not supported)
 endif

-all: board_hello board_cycle readdir
+all: board_hello board_cycle readdir loader justawindow

 %: %.asm
 	$(FASM) $< $@
@@ -20,4 +20,4 @@ all: board_hello board_cycle readdir
 .PHONY: all clean

 clean:
-	rm -f board_hello board_cycle readdir
+	rm -f board_hello board_cycle readdir loader justawindow