How TASM routines translated into BASM for units in PBDOS ?

[Stephane Fonteyne]

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

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?



------------------

[Lance Edmonds]

Duplicate of email to Tech Support.

------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

[Tom Hanlin]

duplicate of http://www.powerbasic.com/support/pb...ead.php?t=1086
... please follow up there.

stephane, once is enough. really.
stephane, once is enough. really.
stephane, once is enough. really.


------------------
tom hanlin
powerbasic staff