Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1481 → Rev 1482

/more/more.a72
297,13 → 297,15
jmp RELOADBUF
 
 
; display " --- More --- "
; display " --- More ---"
PRESSANYKEY:
mov dx, di
mov ah, 9h ; disp $-termin. string pointed by DX
mov dx, offset SEPAR1
int 21h
mov dx, DOTS
mov dx, di
int 21h
mov dx, offset SEPAR2
int 21h
 
mov ax, 0C08h ; flush keyb + wait for key, no echo
int 21h
329,7 → 331,8
 
CRLF DB 13, 10, '$'
LANG DB "LANG="
DOTS DB "...$"
SEPAR1 DB "--- $"
SEPAR2 DB " ---$"
 
TEXT_DE DB "WEITER$"
TEXT_EN DB "MORE$"