ALTHELPM.ASM

; CDW-hez ALT_HELP kiiratasa
; TP5-hoz TASM formtumban

.MODEL TPASCAL
.CODE

ALT_HELP PROC FAR NUM: WORD, STRIN: DWORD

PUBLIC ALT_HELP

      PUSH   AX
      PUSH   BX
      PUSH   CX
      PUSH   DX
      PUSH   DI
      PUSH   SI
      PUSH   DS
      PUSH   ES

      PUSH   CS
      POP    ES

      MOV    DI,OFFSET STRINGS

      MOV    AL,00
      MOV    BX,NUM
      DEC    BX

      CLD
      MOV    CX,OFFSET VEGE - OFFSET STRINGS

CIK:  OR     BX,BX
      JZ     KESZ

      REPNZ  SCASB
      JNZ    NINCS

      DEC    BX
      JMP    SHORT CIK

NINCS:LES    DI,STRIN
      XOR    AL,AL
      STOSB
      JMP    SHORT VEG

KESZ: MOV    CX,30
      MOV    SI,DI
      REPNZ  SCASB
      SUB    DI,SI
      MOV    CX,DI

      LES    DI,STRIN
      DEC    CL
      MOV    AL,CL
      STOSB
      PUSH   CS
      POP    DS
      REPZ   MOVSB

VEG:  POP    ES
      POP    DS
      POP    SI
      POP    DI
      POP    DX
      POP    CX
      POP    BX
      POP    AX

      RET

ALT_HELP ENDP

STRINGS:

DB    "Keres",00                ;{  1 }
DB    "Keres Ｔ cserＭ",00      ;{  2 }
DB    "Tovbb keres",00         ;{  3 }
DB    "Sz｢t t排罵",00           ;{  4 }
DB    "Sort t排罵",00           ;{  5 }
DB    "Jobbraigaz｡t",00         ;{  6 }
DB    "Sor blokk eleje",00      ;{  7 }
DB    "Oszlop blokk",00         ;{  8 }
DB    "Kalk. eredmＯy",00       ;{  9 }
DB    "Mai dtum",00            ;{ 10 }
DB    "Ment Ｔ kilＱ",00        ;{ 11 }
DB    "Blokkot bemsol",00      ;{ 12 }
; **************** Innen BlockHelp is ********************
DB    "Blokkot t排罵",00        ;{ 13 }
DB    "Kisbet穆 blokk",00       ;{ 14 } { Ide j馬 a helyes｡rsellen途zＴ }
DB    "Nagybet穆 blokk",00      ;{ 15 }
DB    "Kis <-> nagybet",00     ;{ 16 }
DB    "KemＯy/lgy sor",00      ;{ 17 }
DB    "Blokkot kivg",00        ;{ 18 }
DB    "Blokkot elment",00       ;{ 19 }
DB    "Egyes sortv",00         ;{ 20 }
DB    "Kettes sortv",00        ;{ 21 }
DB    "Hrmas sortv",00        ;{ 22 }
DB    "NＨyes sortv",00        ;{ 23 }
DB    "杯敗 sortv",00          ;{ 24 }
DB    "Hatos sortv",00         ;{ 25 }
DB    "Hetes sortv",00         ;{ 26 }
DB    "Nyolcas sortv",00       ;{ 27 }
DB    "Kilences sortv",00      ;{ 28 }
DB    "T｡zes sortv",00         ;{ 29 } ;DB    "El配 kiadv.dok",00      ;{ 30 } ;DB    "K牌. kiadv.dok",00       ;{ 31 }
; **************** Eddig BlockHelp is ********************
DB    "Ugrs egy oldalra",00    ;{ 30 }
DB    "Kalk.eredm.bet」el",00   ;{ 31 }
DB    "Lgy space",00           ;{ 32 Mindig ez legyen a legutols｢ }

VEGE:

END