Subversion Repositories SvarDOS

Rev

Rev 1480 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1480 Rev 1482
Line 295... Line 295...
295
CHARLOOP:
295
CHARLOOP:
296
loop    NEXTCHAR                       ; dec cx and jmp to NEXTCHAR if cx > 0
296
loop    NEXTCHAR                       ; dec cx and jmp to NEXTCHAR if cx > 0
297
jmp     RELOADBUF
297
jmp     RELOADBUF
298
 
298
 
299
 
299
 
300
; display " --- More --- "
300
; display " --- More ---"
301
PRESSANYKEY:
301
PRESSANYKEY:
302
mov     dx, di
-
 
303
mov     ah, 9h                         ; disp $-termin. string pointed by DX
302
mov     ah, 9h                         ; disp $-termin. string pointed by DX
-
 
303
mov     dx, offset SEPAR1
-
 
304
int     21h
-
 
305
mov     dx, di
304
int     21h
306
int     21h
305
mov     dx, DOTS
307
mov     dx, offset SEPAR2
306
int     21h
308
int     21h
307
 
309
 
308
mov     ax, 0C08h                      ; flush keyb + wait for key, no echo
310
mov     ax, 0C08h                      ; flush keyb + wait for key, no echo
309
int     21h
311
int     21h
310
 
312
 
Line 327... Line 329...
327
CURCOL  db      0
329
CURCOL  db      0
328
 
330
 
329
 
331
 
330
CRLF DB 13, 10, '$'
332
CRLF DB 13, 10, '$'
331
LANG DB "LANG="
333
LANG DB "LANG="
-
 
334
SEPAR1 DB "--- $"
332
DOTS DB "...$"
335
SEPAR2 DB " ---$"
333
 
336
 
334
TEXT_DE DB "WEITER$"
337
TEXT_DE DB "WEITER$"
335
TEXT_EN DB "MORE$"
338
TEXT_EN DB "MORE$"
336
TEXT_FR DB "PLUS$"
339
TEXT_FR DB "PLUS$"
337
TEXT_NL DB "MEER$"
340
TEXT_NL DB "MEER$"