Announcement

Collapse
No announcement yet.

How TASM routines translated into BASM for units in PBDOS ?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • How TASM routines translated into BASM for units in PBDOS ?

    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

    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?



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

  • #2
    Duplicate of email to Tech Support.

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

    Comment


    • #3
      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

      Comment

      Working...
      X