[pre]
;BASLOAD.ASM 07/09/84 - DKeels;----------------------------------------------------------------------------;This program provides BASIC programs with access to the program loader (LOAD) ;by passing parameters via the system parameter area (SYSPARM).;;Inputs:; FILE SPEC 1 - A string (len <= 80) with the complete name, including; path, of the file to be loaded and executed.; Example: 'MAINMENU.EXE' or 'C:\FORMAT.COM'; PARAMETER 1 - A string (len <= 80) with the command line parameters; to be passed to the program specified in FILE SPEC 1.; Example: '' or 'A:'; FILE SPEC 2 - Same as 1.; PARAMETER 2 - Same as 1.;;Outputs:; This program gives control to LOAD.;----------------------------------------------------------------------------CODE SEGMENT 'CODE' ASSUME CS:CODE PUBLIC BASLOAD ;make known to BASIC at link timeBASLOAD PROC FAR ;prologue PUSH BP ;save BP MOV BP,SP ;set base for parm list PUSH DS ;DS -> basic work area PUSH ES ;ES -> basic work area MOV DX,'dk' ;interrupt verification switch INT 77H ;get seg address of sysparm area in AX MOV ES,AX ;ES -> sysparm area CLD ;set direction for all moves ;move file spec 1 to sysparm MOV BX,SS:[BP+12] ;get addr of string descriptor MOV CX,DS:[BX] ;get length of string into CX MOV SI,DS:[BX+2] ;get addr of string into SI MOV DI,0 ;offset into sysparm REP MOVSB ;move string MOV BYTE PTR ES:[DI],0 ;make it asciiz string ;move parameter 1 to sysparm MOV BX,SS:[BP+10] ;get addr of string descriptor MOV CX,DS:[BX] ;get length of string into CX MOV SI,DS:[BX+2] ;get addr of string into SI MOV DI,81 ;offset into sysparm INC CL ;adjust for cr to be added at end MOV BYTE PTR ES:[DI],CL ;1st byte is length of string DEC CL ;re-adjust for move operation INC DI REP MOVSB ;move string MOV BYTE PTR ES:[DI],13 ;add cr to end ;move file spec 2 to sysparm MOV BX,SS:[BP+8] ;get addr of string descriptor MOV CX,DS:[BX] ;get length of string into CX MOV SI,DS:[BX+2] ;get addr of string into SI MOV DI,163 ;offset into sysparm REP MOVSB ;move string MOV BYTE PTR ES:[DI],0 ;make it asciiz string ;move parameter 2 to sysparm MOV BX,SS:[BP+6] ;get addr of string descriptor MOV CX,DS:[BX] ;get length of string into CX MOV SI,DS:[BX+2] ;get addr of string into SI MOV DI,244 ;offset into sysparm INC CL ;adjust for cr to be added at end MOV BYTE PTR ES:[DI],CL ;1st byte is length of string DEC CL ;re-adjust for move operation INC DI REP MOVSB ;move string MOV BYTE PTR ES:[DI],13 ;add cr to end ;exit to BASIC POP ES POP DS POP BP RET 8BASLOAD ENDPCODE ENDS END BASLOAD
[/pre]
