build (and works) with Open Watcom or Borland/Turbo C/C++

Author: PerditionC

.gitignore

@@ -1 +1,3 @@
 *.sym
+*.lst
+*.com

src/amishelp.asm

@@ -5,7 +5,7 @@
 
 %if 0  ; based on:
 
-Resident code of TSR example
+Transient code of TSR example
  2020 by C. Masloch
 
 Usage of the works is permitted provided that this
@@ -62,8 +62,8 @@ s.text
 
 ; uint16_t impx_install_check(uint16_t multiplex_no, uint16_t multiplex_id) NON_RES_TEXT;
 ; for int 0x2f and 0x2d install check, al=0, ah=id
-global impx_install_check
-impx_install_check:
+global _impx_install_check
+_impx_install_check:
 
 	lframe near
 	lpar word, mpx_id
@@ -98,8 +98,8 @@ cleanup:
 	retn
 
 
-global asm_find_resident
-asm_find_resident:
+global _asm_find_resident
+_asm_find_resident:
 	push ds
 	push es
 	push si
@@ -176,8 +176,8 @@ ssReserved: resb 4
 	endstruc
 
 
-global asm_get_status
-asm_get_status:
+global _asm_get_status
+_asm_get_status:
 	lframe near
 	lpar word, struct
 	lpar word, mpx
@@ -257,8 +257,8 @@ asm_get_status:
 	lret
 
 
-global asm_enable
-asm_enable:
+global _asm_enable
+_asm_enable:
 
 	lframe near
 	lpar word, mpx
@@ -314,8 +314,8 @@ asm_enable:
 	retn
 
 
-global asm_disable
-asm_disable:
+global _asm_disable
+_asm_disable:
 
 	lframe near
 	lpar word, mpx
@@ -416,8 +416,8 @@ zero_out_data:
 	retn
 
 
-global asm_uninstall
-asm_uninstall:
+global _asm_uninstall
+_asm_uninstall:
 
 uninstall:
 	push ds
@@ -594,8 +594,8 @@ unhookerrorcritical:
 	lleave ctx
 
 
-global asm_init
-asm_init:
+global _asm_init
+_asm_init:
 	push ds
 	push es
 	push si

src/amisstub.asm

@@ -115,8 +115,8 @@ OUT:	al = 00h
 
 s.data.resident
 
-global iregs
-iregs:
+global _iregs
+_iregs:
 	.bp: resw 1
 	.di: resw 1
 	.si: resw 1
@@ -130,12 +130,12 @@ iregs:
 	.cs: resw 1
 	.flags: resw 1		; (not used by us)
 
-global need_to_chain
-need_to_chain:
+global _need_to_chain
+_need_to_chain:
 	resw 1
 
-global top_of_stack
-top_of_stack:
+global _top_of_stack
+_top_of_stack:
 	resw 1
 
 old_ss:
@@ -165,34 +165,34 @@ amisintr:	; AMIS list of hooked interrupts, 2Dh marks end of list
 
 	; These variables are used as globals
 	;  by the C code. Each is an uint16_t.
-global file_table_size
-global file_table_size_bytes
-global file_table_free
-global file_table ;_offset
-global lock_table_size
-global lock_table_size_bytes
-global lock_table_free
-global lock_table ;_offset
+global _file_table_size
+global _file_table_size_bytes
+global _file_table_free
+global _file_table ;_offset
+global _lock_table_size
+global _lock_table_size_bytes
+global _lock_table_free
+global _lock_table ;_offset
 
 extern _end_resident
 
 
 	align 2, db 0
 ctrl2:
-file_table_size:	dw 0
-file_table_free:	dw 0
-lock_table_size:	dw 20
-lock_table_free:	dw 20
+_file_table_size:	dw 0
+_file_table_free:	dw 0
+_lock_table_size:	dw 20
+_lock_table_free:	dw 20
 ctrl2.end:
 
 	align 2, db 0
 ctrl3:
-file_table:
-file_table_offset:	dw OFFSET _end_resident	; WARNING: this will overwrite startup/transient code
-file_table_size_bytes:	dw 0
-lock_table:
-lock_table_offset:	dw 0
-lock_table_size_bytes:	dw 0
+_file_table:
+_file_table_offset:	dw OFFSET _end_resident	; WARNING: this will overwrite startup/transient code
+_file_table_size_bytes:	dw 0
+_lock_table:
+_lock_table_offset:	dw 0
+_lock_table_size_bytes:	dw 0
 ctrl3.end:
 
 ctrl1:
@@ -246,8 +246,8 @@ s.text.resident
 
 ; invoke DOS critical error handler for given drive & error code
 ; void critical_error(uint16_t error_code, uint16_t drive) __gcc16;
-global critical_error
-critical_error:
+global _critical_error
+_critical_error:
 
 	lframe near
 	lpar word, error_code
@@ -265,7 +265,7 @@ critical_error:
 
 i2D.uninstall:
 %if _SUPPORTGENERALUNINSTALLER
-	mov al, 04h			; safe to remove, no resident uninstaller,
+	mov al, 04h		; safe to remove, no resident uninstaller,
 					;  TSR now disabled
 	push es
 	push ds
@@ -315,23 +315,23 @@ i2D.hwreset equ $-1		; (second byte of mov bx, cs is same as the retf opcode)
 	sub bx, 10h			; memory block to dealloc is PSP, so subtract sizeof(PSP) from CS
 	iret
 
-global i2D_handler
-global i2D_next
-i2D_handler equ i2D
-i2D_next equ i2D.next
+global _i2D_handler
+global _i2D_next
+_i2D_handler equ i2D
+_i2D_next equ i2D.next
 
 iispentry i2D, 0, i2D
 	cmp ah, 0
-global amisnum
-amisnum equ $-1				; AMIS multiplex number (data for cmp opcode)
-	je .handle			; our multiplex number -->
-	jmp far [cs:.next]		; else go to next handler -->
+global _amisnum
+_amisnum equ $-1				; AMIS multiplex number (data for cmp opcode)
+	je .handle					; our multiplex number -->
+	jmp far [cs:.next]			; else go to next handler -->
 
 .handle:
 	test al, al
 	jz .installationcheck		; installation check -->
 	cmp al, 02h
-	je .uninstall			; uninstallation -->
+	je .uninstall				; uninstallation -->
 	cmp al, 04h
 	je .determineinterrupts		; determine hooked interrupts -->
 	cmp al, 21h
@@ -342,20 +342,20 @@ amisnum equ $-1				; AMIS multiplex number (data for cmp opcode)
 	je .ctrl3
 				; all other functions are reserved or not supported by TSR
 .nop:
-	mov al, 0			; show not implemented
+	mov al, 0					; show not implemented
 	iret
 
 .installationcheck:
-	dec al				; (= FFh) show we're here
-	mov cx, 10Ah			; = version
-	mov di, amissig			; dx:di -> AMIS signature strings of this program
+	dec al						; (= FFh) show we're here
+	mov cx, 10Ah				; = version
+	mov di, amissig				; dx:di -> AMIS signature strings of this program
 .iret_dx_cs:
 	mov dx, cs
 .iret:
 	iret
 
 .determineinterrupts:			; al = 04h, always returns list
-	mov bx, amisintr		; dx:bx -> hooked interrupts list
+	mov bx, amisintr			; dx:bx -> hooked interrupts list
 	jmp short .iret_dx_cs
 
 .ctrl1:
@@ -385,12 +385,12 @@ End of C. Masloch TSR example code
 
 s.text.resident
 
-extern inner_handler
+extern _(inner_handler)
 
-global handler2f
-global old_handler2f
-handler2f equ i2F
-old_handler2f equ i2F.next
+global _handler2f
+global _old_handler2f
+_handler2f equ i2F
+_old_handler2f equ i2F.next
 
 	; IBM Interrupt Sharing Protocol header
 iispentry i2F, 0    ; *** can use i2D for 3rd argument but exceeds jmp short
@@ -422,17 +422,17 @@ iispentry i2F, 0    ; *** can use i2D for 3rd argument but exceeds jmp short
 .enter_c_handler:
 
 	; save the input DS
-	pop word [iregs.ds]
+	pop word [_iregs.ds]
 
 	; save regs
-	mov  [iregs.bp], BP
-	mov  [iregs.di], DI
-	mov  [iregs.si], SI
-	mov  [iregs.es], ES
-	mov  [iregs.dx], DX
-	mov  [iregs.cx], CX
-	mov  [iregs.bx], BX
-	mov  [iregs.ax], AX
+	mov  [_iregs.bp], BP
+	mov  [_iregs.di], DI
+	mov  [_iregs.si], SI
+	mov  [_iregs.es], ES
+	mov  [_iregs.dx], DX
+	mov  [_iregs.cx], CX
+	mov  [_iregs.bx], BX
+	mov  [_iregs.ax], AX
 	; don't need IP or CS or flags
 	; (flags weren't ever read or written,
 	;  and setting flags before iret is pointless.
@@ -444,27 +444,27 @@ iispentry i2F, 0    ; *** can use i2D for 3rd argument but exceeds jmp short
 	mov [old_sp], SP
 	push CS
 	pop SS
-	mov SP, [top_of_stack]
+	mov SP, [_top_of_stack]
 
 	; insure UP (Direction Flag = 0) for our C code
 	cld
 
 	; call our handler
-	call inner_handler
+	call _(inner_handler)
 
 	; restore stack
 	mov SS, [old_ss]
 	mov SP, [old_sp]
 
 	; restore register input values
-	mov  BP, [iregs.bp]
-	mov  DI, [iregs.di]
-	mov  SI, [iregs.si]
-	mov  ES, [iregs.es]
-	mov  DX, [iregs.dx]
-	mov  CX, [iregs.cx]
-	mov  BX, [iregs.bx]
-	mov  AX, [iregs.ax]
+	mov  BP, [_iregs.bp]
+	mov  DI, [_iregs.di]
+	mov  SI, [_iregs.si]
+	mov  ES, [_iregs.es]
+	mov  DX, [_iregs.dx]
+	mov  CX, [_iregs.cx]
+	mov  BX, [_iregs.bx]
+	mov  AX, [_iregs.ax]
 
 	; Although this is a 16-bit variable it is
 	;  valid to check only the low 8 bits as
@@ -473,18 +473,18 @@ iispentry i2F, 0    ; *** can use i2D for 3rd argument but exceeds jmp short
 	;  the jnz. This is a small optimisation to
 	;  avoid a cs override prefix. The Zero Flag
 	;  is unaffected by the mov.
-	cmp byte [need_to_chain], 0
+	cmp byte [_need_to_chain], 0
 
 	; restore caller's DS
-	mov  DS, [iregs.ds]
+	mov  DS, [_iregs.ds]
 
 	; return from interrupt if we handled it
 	jnz  .run_old
 	iret
 
 .run_old:
 	; jump to old handler that will iret
-	jmp far [CS:old_handler2f]
+	jmp far [CS:_old_handler2f]
 
 
 	numdef CMPSTR, 1

src/buildbcc.bat

@@ -0,0 +1,20 @@
+@REM builds updated share 
+::set LDFLAGS=/m /s /c /t %BASEPATH%\lib\c0t.obj $(EXTRA_OBJS) share.obj,share.com,,%BASEPATH%\lib\cs.lib
+::set CFLAGS=-I../kitten -I../tnyprntf -I%BASEPATH%/include -mt -1 -c -o
+@:: -q quiet, -1- 8086 / -1 80186 instructions -mt tiny memmodel CS=DS=SS and DOS exe, -Fs force SS=DS -N- no stack checks -v debug info -c  compile only -o= name of obj file -I include dir -zl no default lib
+@:: -S list file with asm (-s not supported with BC5), -Os optmize for size (default), -u- disable underscores, -X no default libs?
+@:: -zPDGROUP code (_TEXT) is part of DGROUP (cs=ds)
+
+nasm -f obj -g -D__TURBOC__ startup.asm -o startup.obj 
+nasm -f obj -g -I ../lmacros/ -D__TURBOC__ amisstub.asm -o amisstub.obj 
+bcc -1- -mt -Os -Fs -N- -v -zPDGROUP -c -osharetsr.obj sharetsr.c 
+nasm -f obj -g -D__TURBOC__ dossup.asm -o dossup.obj 
+bcc -1- -mt -Os -Fs -N- -v -zPDGROUP -c -oclib.obj clib.c 
+nasm -f obj -g -I ../lmacros/ -D__TURBOC__ amishelp.asm -o amishelp.obj 
+bcc -1- -mt -Os -Fs -N- -v -zPDGROUP -c -oshareprg.obj shareprg.c 
+bcc -1- -mt -Os -Fs -N- -v -zPDGROUP -c -otnyprntf.obj -I..\tnyprntf ..\tnyprntf\tnyprntf.c 
+bcc -1- -mt -Os -Fs -N- -v -zPDGROUP -c -okitten.obj -I..\kitten ..\kitten\kitten.c 
+bcc -1- -mt -Os -Fs -N- -v -zPDGROUP -I..\kitten -I..\tnyprntf -c -osharemsg.obj sharemsg.c 
+@rem nasm -f obj -g -D__TURBOC__ messages.asm -o messages.obj 
+::#LINK obj[,out[,map[,lib[,def[,res]]]]]
+tlink @share.cfg

src/buildme.bat

@@ -1,8 +1,9 @@
 @REM builds updated share 
+@:: -q quiet, -0 8086 instructions -ms small memmodel -btdos DOS exe, -s no stack checks -os optimize smaller code, -d3 max debug info -fo= name of obj file -I include dir -zl no default lib
 nasm -f obj -g -D__WATCOM__ startup.asm -o startup.obj 
-nasm -f obj -g -I ../lmacros/ -D__WATCOM__ amisstub.asm -o amisstub.obj 
+nasm -f obj -g -l amisstub.lst -Lf -I ../lmacros/ -D__WATCOM__ amisstub.asm -o amisstub.obj 
 wcc -q -0 -ms -btdos -s -os -d3 -fo=sharetsr.obj sharetsr.c 
-nasm -f obj -g -D__WATCOM__ dossup.asm -o dossup.obj 
+nasm -f obj -g -l dossup.lst -D__WATCOM__ dossup.asm -o dossup.obj 
 wcc -q -0 -ms -btdos -s -os -d3 -fo=clib.obj clib.c 
 nasm -f obj -g -I ../lmacros/ -D__WATCOM__ amishelp.asm -o amishelp.obj 
 wcc -q -0 -ms -btdos -s -os -d3 -fo=shareprg.obj shareprg.c 

src/clib.c

@@ -15,6 +15,11 @@ extern char * _heap;
 extern char * _environ;
 extern char sstack;
 
+#ifdef __TURBOC__
+/* external reference created by Borland compiler when using int main(int argc, char **argv){} */
+void _setargv__() { }
+#endif
+
 
 void *malloc(size_t size) 
 {