Subversion Repositories SvarDOS

Rev

Rev 1479 | Rev 1482 | Go to most recent revision | Show entire file | Regard 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