Dear Programmers
I have a few of TASM units and I try that translate into Build in
assembler with uses PBDOS units. How can I do that?
Can please someone help me with my problem.
Thanks
1. Can you please give me hints how I can do this all my TASM units
translated into BASM Units?
------------------
I have a few of TASM units and I try that translate into Build in
assembler with uses PBDOS units. How can I do that?
Can please someone help me with my problem.
Thanks
Code:
PUBLIC ClearEol CODESEG PROC ClearEol USES SI, DI MOV AH, 0Fh INT 10h CMP AL, 2 JNB @@80 MOV AX, 40 PUSH AX JMP @@getcursor @@80: MOV AX, 80 PUSH AX @@getcursor: MOV AH, 03h MOV BH, 00h INT 10h POP AX MOV DH, 00h SUB AX, DX PUSH AX MOV AH, 08h MOV BH, 00h INT 10h MOV BL, AH POP CX MOV AL, 32 MOV BH, 00h MOV AH, 09h INT 10h RET ENDP ClearEol END IDEAL MODEL MEDIUM, BASIC PUBLIC DiskSize CODESEG PROC Disksize ARG drive :WORD MOV AH, 36h MOV DL, [BYTE drive] INT 21h CMP AX, 65535 JNE @@disk_ok MOV AX, -1 MOV DX, -1 RET @@disk_ok: MUL DX MUL CX RET ENDP Disksize END IDEAL MODEL MEDIUM, BASIC PUBLIC SeekEof CODESEG PROC SeekEof ARG handle :WORD MOV AX, 4202h MOV CX, 0000h MOV DX, 0000h MOV BX, [WORD handle] INT 21h RET ENDP SeekEof END IDEAL MODEL MEDIUM, BASIC PUBLIC SeekEoln CODESEG PROC SeekEoln USES SI, DI MOV AH, 0Fh INT 10h CMP AL, 2 JNB @@80 MOV AX, 39 PUSH AX JMP @@getcursor @@80: MOV AX, 79 PUSH AX @@getcursor: MOV AH, 03h MOV BH, 00h INT 10h MOV AH, 02h MOV BH, 00h POP CX MOV DL, AL INT 10h RET ENDP SeekEoln END IDEAL MODEL MEDIUM, BASIC PUBLIC SPTR CODESEG PROC SPTR MOV AX, SP RET ENDP SPTR END IDEAL MODEL MEDIUM, BASIC PUBLIC SSEG CODESEG PROC SSEG MOV AX, SS RET ENDP SSEG END
1. Can you please give me hints how I can do this all my TASM units
translated into BASM Units?
------------------
Comment