Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1479 → Rev 1480

/more/more.a72
1,5 → 1,5
;
; MORE ver 2023.0
; SvarDOS MORE
;
; Displays output one screen at a time
;
6,10 → 6,11
; - multilingual (looks up the LANG env variable)
; - tiny (fits in a single disk sector)
;
; This program is part of the SvarDOS project
; http://svardos.org
; This program is part of the SvarDOS project <http://svardos.org>
;
; ****************************************************************************
; *** Distributed under the terms of the MIT LICENSE *************************
; ****************************************************************************
;
; Copyright (C) 2023 Mateusz Viste
;
65,10 → 66,10
int 21h
int 20h
 
HELP db "MORE 2023.0", 13, 10
HELP db "SvarDOS MORE 2023.0", 13, 10
db 10
db "MORE < README.TXT", 13, 10
db "DIR | MORE", 13, 10, '$'
db "TYPE README.TXT | MORE", 13, 10, '$'
 
NO_ARGS:
 
296,7 → 297,7
jmp RELOADBUF
 
 
; display "Press any key..."
; display " --- More --- "
PRESSANYKEY:
mov dx, di
mov ah, 9h ; disp $-termin. string pointed by DX
335,7 → 336,7
TEXT_FR DB "PLUS$"
TEXT_NL DB "MEER$"
TEXT_PL DB "DALEJ$"
TEXT_RU DB 84h,80h,8Bh,85h,85h,'$' ; "DALEE" (CP866)
TEXT_RU DB 84h,80h,8Bh,85h,85h,'$' ; "DALEE" (CP 866)
TEXT_TR DB "DAHA FAZLA$"
 
; uninitialized buffer area (must be defined last)