Subversion Repositories SvarDOS

Rev

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

Rev 1479 Rev 1480
Line 1... Line 1...
1 
;
 1 
;
2 
; MORE ver 2023.0
 2 
; SvarDOS MORE
3 
;
 3 
;
4 
; Displays output one screen at a time
 4 
; Displays output one screen at a time
5 
;
 5 
;
6 
;  - multilingual (looks up the LANG env variable)
 6 
;  - multilingual (looks up the LANG env variable)
7 
;  - tiny (fits in a single disk sector)
 7 
;  - tiny (fits in a single disk sector)
8 
;
 8 
;
9 
; This program is part of the SvarDOS project
 9 
; This program is part of the SvarDOS project <http://svardos.org>
10 
; http://svardos.org
 - 
 
11 
;
 10 
;
- 
 
 11 
; ****************************************************************************
12 
; *** Distributed under the terms of the MIT LICENSE *************************
 12 
; *** Distributed under the terms of the MIT LICENSE *************************
- 
 
 13 
; ****************************************************************************
13 
;
 14 
;
14 
; Copyright (C) 2023 Mateusz Viste
 15 
; Copyright (C) 2023 Mateusz Viste
15 
;
 16 
;
16 
; Permission is hereby granted, free of charge, to any person obtaining a copy
 17 
; Permission is hereby granted, free of charge, to any person obtaining a copy
17 
; of this software and associated documentation files (the "Software"), to
 18 
; of this software and associated documentation files (the "Software"), to
Line 63... Line 64...
63 
mov     ah, 9h
 64 
mov     ah, 9h
64 
mov     dx, offset HELP
 65 
mov     dx, offset HELP
65 
int     21h
 66 
int     21h
66 
int     20h
 67 
int     20h
67 
 
 68 
 
68 
HELP db "MORE 2023.0", 13, 10
 69 
HELP db "SvarDOS MORE 2023.0", 13, 10
69 
     db 10
 70 
     db 10
70 
     db "MORE < README.TXT", 13, 10
 71 
     db "MORE < README.TXT", 13, 10
71 
     db "DIR | MORE", 13, 10, '$'
 72 
     db "TYPE README.TXT | MORE", 13, 10, '$'
72 
 
 73 
 
73 
NO_ARGS:
 74 
NO_ARGS:
74 
 
 75 
 
75 
 
 76 
 
76 
; ****************************************************************************
 77 
; ****************************************************************************
Line 294... Line 295...
294 
CHARLOOP:
 295 
CHARLOOP:
295 
loop    NEXTCHAR                       ; dec cx and jmp to NEXTCHAR if cx > 0
 296 
loop    NEXTCHAR                       ; dec cx and jmp to NEXTCHAR if cx > 0
296 
jmp     RELOADBUF
 297 
jmp     RELOADBUF
297 
 
 298 
 
298 
 
 299 
 
299 
; display "Press any key..."
 300 
; display " --- More --- "
300 
PRESSANYKEY:
 301 
PRESSANYKEY:
301 
mov     dx, di
 302 
mov     dx, di
302 
mov     ah, 9h                         ; disp $-termin. string pointed by DX
 303 
mov     ah, 9h                         ; disp $-termin. string pointed by DX
303 
int     21h
 304 
int     21h
304 
mov     dx, DOTS
 305 
mov     dx, DOTS
Line 333... Line 334...
333 
TEXT_DE DB "WEITER$"
 334 
TEXT_DE DB "WEITER$"
334 
TEXT_EN DB "MORE$"
 335 
TEXT_EN DB "MORE$"
335 
TEXT_FR DB "PLUS$"
 336 
TEXT_FR DB "PLUS$"
336 
TEXT_NL DB "MEER$"
 337 
TEXT_NL DB "MEER$"
337 
TEXT_PL DB "DALEJ$"
 338 
TEXT_PL DB "DALEJ$"
338 
TEXT_RU DB 84h,80h,8Bh,85h,85h,'$'     ; "DALEE" (CP866)
 339 
TEXT_RU DB 84h,80h,8Bh,85h,85h,'$'     ; "DALEE" (CP 866)
339 
TEXT_TR DB "DAHA FAZLA$"
 340 
TEXT_TR DB "DAHA FAZLA$"
340 
 
 341 
 
341 
; uninitialized buffer area (must be defined last)
 342 
; uninitialized buffer area (must be defined last)
342 
BUFFER:
 343 
BUFFER: