WebSVN – SvarDOS – Diff – /more/tags/2023.0/more.a72

+;
 ; SvarDOS MORE
+;
 ; Displays output one screen at a time
+;
 ;  - 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>
+;
 ; ****************************************************************************
 ; *** Distributed under the terms of the MIT LICENSE *************************
 ; ****************************************************************************
+;
 ; Copyright (C) 2023 Mateusz Viste
+;
 ; Permission is hereby granted, free of charge, to any person obtaining a copy
 ; of this software and associated documentation files (the "Software"), to
 ; deal in the Software without restriction, including without limitation the
 ; rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
 ; sell copies of the Software, and to permit persons to whom the Software is
 ; furnished to do so, subject to the following conditions:
+;
 ; The above copyright notice and this permission notice shall be included in
 ; all copies or substantial portions of the Software.
+;
 ; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 ; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 ; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 ; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 ; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 ; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
 ; IN THE SOFTWARE.
 ; ****************************************************************************
+;
 ; To be compiled with the A72 assembler:
 ; A72 MORE.ASM MORE.COM
+;
 ; COM file always has a 100h origin
 ORG     100h
 ; ****************************************************************************
 ; * Display a short help screen if any (non-empty) argument is provided.     *
 ; *                                                                          *
 ; * detect presence of arguments in the command's tail (PSP 81h), looking    *
 ; * at the first non-space character. If it's a CR then no argument (CR is   *
 ; * the tail's terminator).                                                  *
 ; ****************************************************************************
 mov     ax, ds
 mov     es, ax
 mov     al, ' '
 mov     cx, 0ffh
 mov     di, 81h
 repe    scasb                          ; compare AL with [ES:DI++]
 mov     al, [di-1]
 cmp     al, 0Dh
 je      NO_ARGS
 ; some arg found: display help and quit
 mov     ah, 9h
 mov     dx, offset HELP
 int     21h
 int     20h
 HELP db "SvarDOS MORE 2023.0", 13, 10
      db 10
      db "MORE < README.TXT", 13, 10
      db "TYPE README.TXT | MORE", 13, 10, '$'
 NO_ARGS:
 ; ****************************************************************************
 ; * detect screen dimensions (max usable row and column)                     *
 ; ****************************************************************************
 mov     ah, 0Fh                        ; GET CURRENT VIDEO MODE
 int     10h
 mov     byte ptr [MAXCOL], ah
 mov     ax, 40h
 mov     es, ax
 mov     ah, [es:84h]                   ; 0040:0084
 test    ah, ah                         ; ancient PCes do not know this
 jz      SKIP_ROWS_DETECTION
 mov     byte ptr [MAXROW], ah
 SKIP_ROWS_DETECTION:
 ; ****************************************************************************
+; * preset lang to EN                                                        *
+; ****************************************************************************
+mov     bp, LANGLIST+2
+; ****************************************************************************
 ; * Scan the environement block looking for the LANG variable                *
 ; ****************************************************************************
 ; set ES to point at the environment segment (PSP's offset 2Ch)
 mov     es, [2Ch]
 ; compare DS:[SI] with ES:[DI], up to 5 bytes ("LANG=")
 cld
 mov     di, 0
 CMP_NEXT_VAR:
 ; if it points at a nul already then it's the end of the env block
 mov     al, [es:di]
 test    al, al
-jz      ENDOFENV
+jz      LANG_DONE
 mov     si, LANG
 mov     cx, 5
 repe    cmpsb
 ; if CX == 0 then found a LANG= match
 jcxz    FOUND_LANG
 ; otherwise jump to next var (look for nearest nul terminator)
 xor     al, al
 mov     cx, 0ffffh
 repne   scasb                          ; compare AL with [ES:DI++]
-jmp     CMP_NEXT_VAR
+jmp     short CMP_NEXT_VAR
 ; FOUND THE LANG VARIABLE (at ES:DI)
 FOUND_LANG:
-mov     ax, [es:di]                    ; load the LANG ID to AX and make
+mov     bx, [es:di]                    ; load the LANG ID to BX and make
-and     ax, 0DFDFh                     ; sure it is always upper case
+and     bx, 0DFDFh                     ; sure it is always upper case
 ; ****************************************************************************
-; * Now I have a LANG ID in AX and I have to match it for something I know.  *
+; * Now I have a LANG ID in BX and I have to match it for something I know.  *
-; * The LANG ID is simply the value for the two uppercase LANG letters, for  *
-; * example the LANG ID for "PL" is 4C50h (50h = 'P', 4Ch = 'L').            *
 ; ****************************************************************************
-; DE [44h 45h]
-mov     bp, TEXT_DE
-cmp     ax, 4544h
-je      LANGOK
-; DK [44h 4Bh]
-mov     bp, TEXT_DK
-cmp     ax, 4B44h
-je      LANGOK
-; ES [45h 53h]
-mov     bp, TEXT_ES
+mov     di, LANGLIST
-cmp     ax, 5345h
-je      LANGOK
-; FI [46h 49h]
-mov     bp, TEXT_FI
-cmp     ax, 4946h
+mov     ax, ds
-je      LANGOK
-; FR [46h 52h]
-mov     bp, TEXT_FR
+mov     es, ax
-cmp     ax, 5246h
-je      LANGOK
-; IT [49h 54h]
-mov     bp, TEXT_IT
-cmp     ax, 5449h
-je      LANGOK
+NEXTLANG:
-; NL [4Eh 4Ch]
-mov     bp, TEXT_NL
-cmp     ax, 4C4Eh
-je      LANGOK
-; PL [50h 4Ch]
-mov     bp, TEXT_PL
-cmp     ax, 4C50h
-je      LANGOK
-; RU [52h 55h]
-mov     bp, TEXT_RU
-cmp     ax, 5552h
-je      LANGOK
-; SL [53h 4Ch]
-mov     bp, TEXT_SL
-cmp     ax, 4C53h
-je      LANGOK
-; SV [53h 56h]
-mov     bp, TEXT_SV
-cmp     ax, 5653h
+cmp     byte ptr [di], 0               ; look for the end of list terminator
-je      LANGOK
+je      LANG_DONE
-; TR [54h 52h]
-mov     bp, TEXT_TR
-cmp     ax, 5254h
+cmp     [di], bx                       ; look for a LANG ID match
-je      LANGOK
+je      LANGIDOK
+; skip string (look for its $ terminator) and repeat
+SKIPLANG:
+mov     al, '$'
+mov     cx, 0ffffh
+repne   scasb                          ; compare AL with [ES:DI++]
+jmp     short NEXTLANG
+LANGIDOK:
-; *** LANG NOT FOUND OR LANG ID MATCH FAILED: FALL BACK TO EN ****************
+mov     bp, di                         ; ptr to localized msg is always in BP
+inc     bp
+inc     bp
-ENDOFENV:
-mov     bp, TEXT_EN
-LANGOK:
+LANG_DONE:
 ; ****************************************************************************
 ; * DUPLICATING HANDLES: here I duplicate stdin into a new handle so I can   *
 ; * safely close original stdin (file handle 0) and then duplicate stderr    *
 ; * into stdin. The purpose of these shenanigans is to be able to cope with  *
 ; * situations when stdin is redirected (eg. with CTTY)                      *
 ; ****************************************************************************
 ; duplicate stdin and keep the new file handle in FHANDLE
 xor     bx, bx
 mov     ah, 45h
 int     21h
 mov     [FHANDLE], ax
 ; I can close stdin now
 mov     ah, 3Eh
 int     21h
 ; duplicate stderr to stdin
 ; bx = file handle / cx = file handle to become duplicate of bx
 mov     ah, 46h
 mov     bx, 2
 xor     cx, cx
 int     21h
 ; ****************************************************************************
 ; make sure cursor is on column 0
 mov ah, 2h                             ; write character in DL to stdout
 mov dl, 0Dh                            ; carriage return
 int 21h
 ; reset BX - from now on bh = cur row and bl = cur col
 xor     bx, bx
 ; consume stdin bytes by loading them into buffer
 RELOADBUF:
 xchg    di, bx                         ; save BX to DI (contains cur row+col)
 mov     ah, 3Fh                        ; DOS 2+ - read from file or device
 mov     bx, [FHANDLE]                  ; duplicated stdin was saved in FHANDLE
 mov     cx, 1024
 mov     dx, offset BUFFER
 int     21h
 ; abort on error
 jc EXIT
 ; restore bx
 xchg    bx, di
 ; did I get any bytes? 0 bytes read means "EOF"
 test    ax, ax
 jnz     PREPLOOP
 EXIT:
 int     20h
 ; prepare the LODSB loop
 PREPLOOP:
 mov     cx, ax
 mov     si, dx
 NEXTCHAR:
 ; AL = DS:[SI++]
 cld
 lodsb
 ; EOF char? (check this first so a short jump to exit is still possible)
 cmp     al, 1Ah
 jz      EXIT
 ; [7h] BELL?
 cmp     al, 7h
 je      OUTPUT_CHAR
 ; [8h] BACKSPACE? moves the cursor back by one column, no effect if it is on
 ; first column already. it does not blank the characters it passes over.
 cmp     al, 8h
 jne     NOTBS
 test    bl, bl                         ; am I on on column 0? (bl = cur col)
 jz      OUTPUT_CHAR
 dec     bl
 jmp     short OUTPUT_CHAR
 NOTBS:
 ; [9h] TAB?
 cmp     al, 9h
 jne     NOTTAB
 add     bl, 8                          ; bl = cur col
 and     bl, 248
 jmp     short OUTPUT_CHAR
 NOTTAB:
 ; [0Ah] LF?
 cmp     al, 0Ah
 jne     NOTLF
 inc     bh                             ; bh = cur row
 jmp     short OUTPUT_CHAR
 NOTLF:
 ; [0Dh] CR?
 cmp     al, 0Dh
 jnz     NOTCR
 xor     bl, bl                         ; bl = cur col
 jmp     short OUTPUT_CHAR
 NOTCR:
 ; otherwise: increment cur column, and then maybe cur row
 inc     bl                             ; bl = cur col
 cmp     bl, [MAXCOL]
 jb      OUTPUT_CHAR
 inc     bh                             ; bh = cur row
 xor     bl, bl                         ; bl = cur col
 OUTPUT_CHAR:
 mov     dl, al
 mov     ah, 2h
 int     21h
 cmp     bh, [MAXROW]                   ; bh = cur row
 jae     PRESSANYKEY
 CHARLOOP:
 loop    NEXTCHAR                       ; dec cx and jmp to NEXTCHAR if cx > 0
 jmp     RELOADBUF
 ; display " --- More ---"
 PRESSANYKEY:
 mov     ah, 9h                         ; disp $-termin. string pointed by DX
 mov     dx, offset SEPAR1
 int     21h
 mov     dx, bp
 int     21h
 mov     dx, offset SEPAR2
 int     21h
 ; wait for a keypress
 mov     ah, 08h                        ; read char from stdin, no echo
 int     21h
 ; read again if an extended key was pressed
 test    al, al
 jnz     GETKEY_DONE
 int     21h
 GETKEY_DONE:
 ; output a CR/LF pair and reset counters
 mov     dx, offset CRLF
 mov     ah, 9h
 int     21h
 xor     bx, bx                         ; bh = cur row, bl = cur col
 jmp     CHARLOOP
 ; ****************************************************************************
 ; * DATA                                                                     *
 ; ****************************************************************************
 MAXROW  db      24                     ; maximum *addressable* row (not total)
 MAXCOL  db      80                     ; total available columns
 CRLF DB 13, 10, '$'
 LANG DB "LANG="
 SEPAR1 DB "--- $"
 SEPAR2 DB " ---$"
+LANGLIST:
+DB "EN",  "MORE$"                      ; EN must be 1st to be used as default
-TEXT_DE DB "WEITER$"
+DB "DE",  "WEITER$"
-TEXT_DK DB "MERE$"
+DB "DK",  "MERE$"
-TEXT_ES DB "M", 0B5h, "S$"              ; "MAS" with an A-acute (CP 850)
+DB "ES",  "M", 0B5h, "S$"              ; "MAS" with an A-acute (CP 850)
-TEXT_EN DB "MORE$"
-TEXT_FI DB "LIS", 8Eh, 8Eh, "$"         ; "LISAA" - AA with diaeresis (CP 850)
+DB "FI",  "LIS", 8Eh, 8Eh, "$"         ; "LISAA" - AA with diaeresis (CP 850)
-TEXT_FR DB "PLUS$"
+DB "FR",  "PLUS$"
-TEXT_IT DB "PI", 0EBh, "$"              ; "PIU" with U-acute (CP 850)
+DB "IT",  "PI", 0EBh, "$"              ; "PIU" with U-acute (CP 850)
-TEXT_NL DB "MEER$"
+DB "NL",  "MEER$"
-TEXT_PL DB "DALEJ$"
+DB "PL",  "DALEJ$"
-TEXT_RU DB 84h,80h,8Bh,85h,85h,'$'     ; "DALEE" (CP 866)
+DB "RU",  84h,80h,8Bh,85h,85h,'$'      ; "DALEE" (CP 866)
-TEXT_SL DB "VE", 0ACh, "$"             ; "VEC" with C-caron (CP 852)
+DB "SL",  "VE", 0ACh, "$"              ; "VEC" with C-caron (CP 852)
-TEXT_SV DB "MERA$"
+DB "SV",  "MERA$"
-TEXT_TR DB "DAHA FAZLA$"
+DB "TR",  "DAHA FAZLA$"
+DB, 0                                  ; LANGLIST terminator
 ; uninitialized area (must be defined last)
 FHANDLE dw      ?                      ; file handle I read from (DUPed stdin)
 BUFFER:

Subversion Repositories SvarDOS

(root)/more/tags/2023.0/more.a72 @ 1640 – Rev 1485 → 1486