From: jvahn@short.circuit.com (James Vahn)
John Aldred wrote:
> How do I put the screen in 80x50 text mode with inline ASM on a TP7
> program?
I don't know Pascal, but this shouldn't be hard to figure out:
;---25/28~35/50 lines---
cseg segment
assume cs:cseg
org 100h
Begin:
        mov ax,03h
        int 10h         ; Clear the screen.
        mov ah,11h      ; BIOS character routine
        mov al,12h      ; 50 line mode. Use 12h for 50 lines,
                        ; 11h for 28/35 lines or 14h for 25 lines.
        mov bl,0        ; RAM table number.
        int 10h         ;
        mov ah,12h      ; BIOS Alt. select
        mov bl,20h      ; Use Alt. Print Screen
        int 10h         ;  routine for full screen.
        ret
cseg ends
end Begin
...  The Moon is Waning Gibbous (78% of Full)
--- ifmail v.2.10-tx8.2
---------------