mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-22 14:52:39 +03:00
964 lines
54 KiB
NASM
964 lines
54 KiB
NASM
use32
|
|
org 0
|
|
db 'MENUET01'
|
|
dd 1
|
|
dd _start
|
|
dd _end
|
|
dd _memory
|
|
dd _stack
|
|
dd _param
|
|
dd 0
|
|
|
|
_start:
|
|
|
|
call lib_console_init
|
|
push caption
|
|
push -1
|
|
push -1
|
|
push -1
|
|
push -1
|
|
call [con_init]
|
|
|
|
;----------------------------------------------------;
|
|
; Program code starts here ;
|
|
;----------------------------------------------------;
|
|
mov dl,1 ; init dl to 1, reply paging
|
|
call [Clstext] ; Clear screen
|
|
mov esi,line1 ; Load intro screen line adress
|
|
call [PrintString] ; Print it
|
|
call [WaitForKeyPress] ; Key press ends intro
|
|
call [Clstext] ; Clear screen
|
|
mov ax,0111h ; Write location in Dex title block
|
|
mov esi,Program_name ; What to write
|
|
call [SetCursorPos] ; Put cursor there
|
|
call [PrintString] ; Write title
|
|
mov ax,0400h ; Write location to start chat
|
|
call [SetCursorPos] ; Set it
|
|
mov al,2 ; Eliza text color
|
|
call [TextColor] ; Set it
|
|
mov esi,Message ; Intro Message
|
|
call [PrintString] ; Print it
|
|
userinput:
|
|
call prtblk ; Add a blank line
|
|
mov al,3 ; User text color
|
|
call [TextColor] ; Set it
|
|
call [GetUserInput] ; Get sentance from user
|
|
call prtblk ; Add line after input
|
|
call [UpperCase] ; Make user input caps
|
|
mov al,2 ; Eliza text color
|
|
call [TextColor] ; Set it
|
|
phr:
|
|
push edi ; Save user input pointer
|
|
mov ebx,keywords ; Set keyword pointer
|
|
phr1:
|
|
mov al,[edi] ; Get char from user input
|
|
inc edi ; Set pointer to next char
|
|
inc ebx ; Set keyword pointer to next char
|
|
mov ah,[ebx] ; Get letter to test from keywords
|
|
and ah,127 ; Strip out bit 7 marker
|
|
cmp al,ah ; Do the letters match?
|
|
je phr2 ; Jump if they do
|
|
phr1a:
|
|
cmp byte[ebx],128 ; Was that the last letter of keyword?
|
|
jnb phr1b ; Jump if it was
|
|
inc ebx ; increment key word pointer to next letter
|
|
jmp phr1a ; Jump back to see if this is the last letter
|
|
phr1b:
|
|
add ebx,5 ; Add 5 to get to next word past execution address
|
|
cmp byte[ebx],128 ; No more keywords?
|
|
je phr3 ; Jump to maybe inc user input
|
|
dec ebx ; Correct for pre-increment
|
|
pop edi ; Restore user input pointer
|
|
push edi ; Save user input pointer
|
|
jmp phr1 ; Check next keyword for a match
|
|
phr2:
|
|
cmp byte[ebx],128 ; Last letter of a keyword?
|
|
jb phr1 ; No check some more
|
|
inc ebx ; ebx -> is the execution address
|
|
pop eax ; Clear stored pointer from stack
|
|
jmp dword[ebx] ; Goto line stored with keyword
|
|
phr3: pop edi ; Restore input pointer
|
|
inc edi ; Move to next letter of user input
|
|
cmp byte[edi],0 ; Nothing left to check?
|
|
je rep29 ; Go to sorry message
|
|
jmp phr ; Try some more
|
|
rep1:
|
|
mov esi,rep1a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep1b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep1c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep1b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep1c ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep2:
|
|
mov esi,rep2a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep2b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep2a ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep2b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep2a ; Load reply
|
|
cmp dl,9 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep2b ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep3:
|
|
mov esi,rep3a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep3b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep3c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep3d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep3b ; Load reply
|
|
cmp dl,9 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep3c ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep4:
|
|
mov esi,rep4a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep4b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep4c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep4d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep4b ; Load reply
|
|
cmp dl,9 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep4c ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep5:
|
|
mov esi,rep5a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep5b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep5c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep5b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep5c ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep6:
|
|
mov esi,rep6a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep6b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep6c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep6b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep6c ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep7:
|
|
mov esi,rep7a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep7b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep7a ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep7b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep7a ; Load reply
|
|
cmp dl,9 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep7b ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep8:
|
|
mov esi,rep8a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep8b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep8c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep8b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep8c ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep9:
|
|
mov esi,rep9a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep9b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep9c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep9b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep9c ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep10:
|
|
mov esi,rep10a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep10b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep10c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep10d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep10c ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep11:
|
|
mov esi,rep11a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep11b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep11c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep11b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep11c ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep12:
|
|
mov esi,rep12a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep12b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep12c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep12d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep12e ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep13:
|
|
mov esi,rep13a ; Load reply
|
|
cmp dl,1 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep13b ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep13c ; Load reply
|
|
cmp dl,3 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep13d ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep13e ; Load reply
|
|
cmp dl,5 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep13f ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep13g ; Load reply
|
|
cmp dl,7 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep13h ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep13i ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep14:
|
|
mov esi,rep14a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep14b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep14a ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep14b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep14a ; Load reply
|
|
cmp dl,9 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep14b ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep15:
|
|
mov esi,rep15a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep15b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep15c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep15d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep15c ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep16:
|
|
mov esi,rep16a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep16b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep16c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep16d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep16c ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep17:
|
|
mov esi,rep17a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep17b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep17c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep17d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep17c ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep18:
|
|
mov esi,rep18a ; Load reply
|
|
jmp printless ; print reply
|
|
rep19:
|
|
mov esi,rep19a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep19b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep19c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep19d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep19e ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep20:
|
|
mov esi,rep20a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep20b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep20c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep20d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep20e ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep21:
|
|
mov esi,rep21a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep21b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep21a ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep21b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep21a ; Load reply
|
|
cmp dl,9 ; are we repeating our self
|
|
jna printmore ; reply with user text
|
|
mov esi,rep21b ; Load reply
|
|
jmp printmore ; reply with user text
|
|
rep22:
|
|
mov esi,rep22a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep22b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep22c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep22d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep22c ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep23:
|
|
mov esi,rep23a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep23b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep23c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep23b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep23c ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep24:
|
|
mov esi,rep24a ; Load reply
|
|
cmp dl,1 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep24b ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep24c ; Load reply
|
|
cmp dl,3 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep24d ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep24e ; Load reply
|
|
cmp dl,5 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep24f ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep24g ; Load reply
|
|
cmp dl,7 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep24c ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep24f ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep25:
|
|
mov esi,rep25a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep25b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep25c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep25b ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep25c ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep26:
|
|
mov esi,rep26a ; Load reply
|
|
cmp dl,1 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep26b ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep26c ; Load reply
|
|
cmp dl,3 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep26d ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep26e ; Load reply
|
|
cmp dl,5 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep26f ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep26e ; Load reply
|
|
cmp dl,7 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep26c ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep26f ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep27:
|
|
mov esi,rep27a ; Load reply
|
|
cmp dl,1 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep27b ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep27c ; Load reply
|
|
cmp dl,3 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep27d ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep27e ; Load reply
|
|
cmp dl,5 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep27f ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep27g ; Load reply
|
|
cmp dl,7 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep27c ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep27f ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep28:
|
|
mov esi,rep28a ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep28b ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep28c ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep28d ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep28e ; Load reply
|
|
jmp printless ; reply with user tex
|
|
|
|
rep29:
|
|
mov esi,rep29a ; Load reply
|
|
cmp dl,1 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep29b ; Load reply
|
|
cmp dl,2 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep29c ; Load reply
|
|
cmp dl,3 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep29d ; Load reply
|
|
cmp dl,4 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep29e ; Load reply
|
|
cmp dl,5 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep29f ; Load reply
|
|
cmp dl,6 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep29g ; Load reply
|
|
cmp dl,7 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep29c ; Load reply
|
|
cmp dl,8 ; are we repeating our self
|
|
jna printless ; reply with user text
|
|
mov esi,rep29f ; Load reply
|
|
jmp printless ; reply with user text
|
|
rep30:
|
|
mov al,"A"
|
|
call [PrintChar]
|
|
mov al,"M"
|
|
call [PrintChar]
|
|
jmp printmore2
|
|
rep31:
|
|
mov al,"W"
|
|
call [PrintChar]
|
|
mov al,"A"
|
|
call [PrintChar]
|
|
mov al,"S"
|
|
call [PrintChar]
|
|
jmp printmore2
|
|
rep32:
|
|
mov al,"I"
|
|
call [PrintChar]
|
|
jmp printmore2
|
|
rep33:
|
|
mov al,"M"
|
|
call [PrintChar]
|
|
mov al,"Y"
|
|
call [PrintChar]
|
|
jmp printmore2
|
|
rep34:
|
|
mov al,"Y"
|
|
call [PrintChar]
|
|
mov al,"O"
|
|
call [PrintChar]
|
|
mov al,"U"
|
|
call [PrintChar]
|
|
mov al,"'"
|
|
call [PrintChar]
|
|
mov al,"V"
|
|
call [PrintChar]
|
|
mov al,"E"
|
|
call [PrintChar]
|
|
jmp printmore2
|
|
rep35:
|
|
mov al,"Y"
|
|
call [PrintChar]
|
|
mov al,"O"
|
|
call [PrintChar]
|
|
mov al,"U"
|
|
call [PrintChar]
|
|
mov al,"'"
|
|
call [PrintChar]
|
|
mov al,"R"
|
|
call [PrintChar]
|
|
mov al,"E"
|
|
call [PrintChar]
|
|
jmp printmore2
|
|
rep36:
|
|
mov al,"M"
|
|
call [PrintChar]
|
|
mov al,"E"
|
|
call [PrintChar]
|
|
jmp printmore2
|
|
rep37:
|
|
jmp printmore2
|
|
progmend:
|
|
mov esi,message2 ; Load good bye message
|
|
call [PrintString] ; Print it
|
|
mov al,7
|
|
call [TextColor] ; Restore text color
|
|
|
|
|
|
push 0
|
|
call [con_exit]
|
|
|
|
mov eax, -1
|
|
int 0x40
|
|
ret ; Exit.
|
|
printmore:
|
|
call [PrintString] ; Print rep phrase with rephrased user input
|
|
printmore2:
|
|
push edi ; Save user input pointer
|
|
mov ebx,keyword2 ; Set keyword pointer
|
|
rphr1:
|
|
mov al,[edi] ; Get char from user input
|
|
inc edi ; Set pointer to next char
|
|
inc ebx ; Set keyword pointer to next char
|
|
mov ah,[ebx] ; Get letter to test from keywords
|
|
and ah,127 ; Strip out bit 7 marker
|
|
cmp al,ah ; Do the letters match?
|
|
je rphr2 ; Jump if they do
|
|
rphr1a:
|
|
cmp byte[ebx],128 ; Was that the last letter of keyword?
|
|
jnb rphr1b ; Jump if it was
|
|
inc ebx ; increment key word pointer to next letter
|
|
jmp rphr1a ; Jump back to see if this is the last letter
|
|
rphr1b:
|
|
add ebx,5 ; Add 5 to get to next word past execution address
|
|
cmp byte[ebx],128 ; No more keywords?
|
|
je rphr3 ; Jump to maybe inc user input
|
|
dec ebx ; Correct for pre-increment
|
|
pop edi ; Restore user input pointer
|
|
push edi ; Save user input pointer
|
|
jmp rphr1 ; Check next keyword for a match
|
|
rphr2:
|
|
cmp byte[ebx],128 ; Last letter of a keyword?
|
|
jb rphr1 ; No check some more
|
|
inc ebx ; ebx -> is the execution address
|
|
pop eax ; Clear stored pointer from stack
|
|
jmp dword[ebx] ; Goto line stored with keyword
|
|
rphr3:
|
|
pop edi ; Restore input pointer
|
|
mov al,[edi] ; load non key word letter
|
|
call [PrintCharCursor] ; Print it
|
|
inc edi ; Move to next letter of user input
|
|
cmp byte[edi],0 ; Nothing left to check?
|
|
je userinput ; Go to get another user input
|
|
jmp printmore2 ; Try some more
|
|
printless:
|
|
call [PrintString] ; Print it
|
|
call prtblk ; Add a blank line
|
|
inc dl ; inc reply
|
|
cmp dl,10 ; is it to large
|
|
jna printless2 ; jump if it's ok
|
|
mov dl,1 ; if not reset it to 1
|
|
printless2:
|
|
jmp userinput ; go back and get more user input
|
|
keywords:
|
|
db " "
|
|
db "CAN YO",213
|
|
dd rep1
|
|
db "CAN ",201
|
|
dd rep2
|
|
db "YOU AR",197
|
|
dd rep3
|
|
db "YOU'R",197
|
|
dd rep3
|
|
db "I DON'",212
|
|
dd rep4
|
|
db "I FEE",204
|
|
dd rep5
|
|
db "WHY DON'T YO",213
|
|
dd rep6
|
|
db "WHY CAN'T ",201
|
|
dd rep7
|
|
db "ARE YO",213
|
|
dd rep8
|
|
db "I CAN'",212
|
|
dd rep9
|
|
db "I A",205
|
|
dd rep10
|
|
db "I'M",160
|
|
dd rep10
|
|
db "YOU",160
|
|
dd rep11
|
|
db "I WAN",212
|
|
dd rep12
|
|
db "WHA",212
|
|
dd rep13
|
|
db "HO",215
|
|
dd rep13
|
|
db "WH",207
|
|
dd rep13
|
|
db "WHER",197
|
|
dd rep13
|
|
db "WHE",206
|
|
dd rep13
|
|
db "WH",217
|
|
dd rep13
|
|
db "NAM",197
|
|
dd rep14
|
|
db "CAUS",197
|
|
dd rep15
|
|
db "SORR",217
|
|
dd rep16
|
|
db "DREA",205
|
|
dd rep17
|
|
db "HELL",207
|
|
dd rep18
|
|
db "HI",160
|
|
dd rep18
|
|
db "MAYB",197
|
|
dd rep19
|
|
db " N",207
|
|
dd rep20
|
|
db "YOU",210
|
|
dd rep21
|
|
db "ALWAY",211
|
|
dd rep22
|
|
db "THIN",203
|
|
dd rep23
|
|
db "ALIK",197
|
|
dd rep24
|
|
db "YE",211
|
|
dd rep25
|
|
db "FRIEN",196
|
|
dd rep26
|
|
db "COMPUTE",210
|
|
dd rep27
|
|
db "CA",210
|
|
dd rep28
|
|
db "BY",197
|
|
dd progmend
|
|
db 128
|
|
dd rep29
|
|
keyword2:
|
|
db " "
|
|
db "AR",197
|
|
dd rep30
|
|
db "WER",197
|
|
dd rep31
|
|
db "YOU",210
|
|
dd rep33
|
|
db "YO",213
|
|
dd rep32
|
|
db "I'V",197
|
|
dd rep34
|
|
db "I'",205
|
|
dd rep35
|
|
db "YO",213
|
|
dd rep36
|
|
db 128
|
|
dd rep37
|
|
prtblk:
|
|
mov esi,blkprt
|
|
call [PrintString]
|
|
ret
|
|
;----------------------------------------------------;
|
|
; calltable include goes here. ;
|
|
;----------------------------------------------------;
|
|
blkprt:
|
|
db 13,13
|
|
userline:
|
|
dw 0
|
|
line1:
|
|
db 13,10
|
|
db " *** ELIZA ***",13,10, 13,10
|
|
db " First writen by: Joseph Weizenbaum ",13, 10, 13, 10
|
|
db " MODIFIED FROM CYBER 175 AT UNIVERSITY OF ILLINOIS AT CHAMPAGNE",13, 10
|
|
db " BY JOHN SCHUGG JANUARY 1985",13, 10, 13, 10
|
|
db " Converted to asm for DexOS by Roboman 2007",13, 10
|
|
db " Converted to asm for KolibriOS by Albom 2008",13, 10, 13, 10
|
|
db " HAVE ANY PROBLEMS ?",13, 10, 13, 10
|
|
db " LET ELIZA HELP YOU!",13, 10, 13, 10
|
|
db " TO STOP ELIZA TYPE 'bye'",13, 10, 13, 10
|
|
db " (THIS VERSION WILL NOT RECORD YOUR CONVERSATIONS)",13, 10, 13, 10
|
|
db " < Press any key to continue...>",13, 10, 0
|
|
Program_name:
|
|
db "--** Dr. Eliza **--",0
|
|
Message:
|
|
db "HI! I'M ELIZA. WHAT'S YOUR PROBLEM?",0
|
|
message2:
|
|
db 13,13,"Thanks for talking things over with Eliza, bye",13,13,0
|
|
rep1a: db "DON'T YOU BELIEVE THAT I CAN ",0
|
|
rep1b: db "PERHAPS YOU WOULD LIKE TO BE ABLE TO ",0
|
|
rep1c: db "YOU WANT ME TO BE ABLE TO ",0
|
|
rep2a: db "PERHAPS YOU DON'T WANT TO ",0
|
|
rep2b: db "DO YOU WANT TO BE ABLE TO ",0
|
|
rep3a: db "WHAT MAKES YOU THINK I AM ",0
|
|
rep3b: db "DOES IT PLEASE YOU TO BELIEVE I AM ",0
|
|
rep3c: db "PERHAPS YOU WOULD LIKE TO BE ",0
|
|
rep3d: db "DO YOU SOMETIMES WISH YOU WERE ",0
|
|
rep4a: db "DON'T YOU REALLY ",0
|
|
rep4b: db "WHY DON'T YOU ",0
|
|
rep4c: db "DO YOU WISH TO BE ABLE TO ",0
|
|
rep4d: db "DOES THAT TROUBLE YOU?",0
|
|
rep5a: db "TELL ME MORE ABOUT SUCH FEELINGS.",0
|
|
rep5b: db "DO YOU OFTEN FEEL ",0
|
|
rep5c: db "DO YOU ENJOY FEELING ",0
|
|
rep6a: db "DO YOU REALLY BELIEVE I DON'T ",0
|
|
rep6b: db "PERHAPS IN GOOD TIME I WILL ",0
|
|
rep6c: db "DO YOU WANT ME TO ",0
|
|
rep7a: db "DO YOU THINK YOU SHOULD BE ABLE TO ",0
|
|
rep7b: db "WHY CAN'T YOU ",0
|
|
rep8a: db "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM ",0
|
|
rep8b: db "WOULD YOU PREFER IF I WERE NOT ",0
|
|
rep8c: db "PERHAPS IN YOUR FANTASIES I AM ",0
|
|
rep9a: db "HOW DO YOU KNOW YOU CAN'T ",0
|
|
rep9b: db "HAVE YOU TRIED?",0
|
|
rep9c: db "PERHAPS YOU CAN NOW ",0
|
|
rep10a: db "DID YOU COME TO ME BECAUSE YOU ARE ",0
|
|
rep10b: db "HOW LONG HAVE YOU BEEN ",0
|
|
rep10c: db "DO YOU BELIEVE IT IS NORMAL TO BE ",0
|
|
rep10d: db "DO YOU ENJOY BEING ",0
|
|
rep11a: db "WE WERE DISCUSSING YOU-- NOT ME.",0
|
|
rep11b: db "OH, I ",0
|
|
rep11c: db "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?",0
|
|
rep12a: db "WHAT WOULD IT MEAN TO YOU IF YOU GOT ",0
|
|
rep12b: db "WHY DO YOU WANT ",0
|
|
rep12c: db "SUPPOSE YOU SOON GOT ",0
|
|
rep12d: db "WHAT IF YOU NEVER GOT ",0
|
|
rep12e: db "I SOMETIMES ALSO WANT ",0
|
|
rep13a: db "WHY DO YOU ASK?",0
|
|
rep13b: db "DOES THAT QUESTION INTEREST YOU?",0
|
|
rep13c: db "WHAT ANSWER WOULD PLEASE YOU THE MOST?",0
|
|
rep13d: db "WHAT DO YOU THINK?",0
|
|
rep13e: db "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",0
|
|
rep13f: db "WHAT IS IT THAT YOU REALLY WANT TO KNOW?",0
|
|
rep13g: db "HAVE YOU ASKED ANYONE ELSE?",0
|
|
rep13h: db "HAVE YOU ASKED SUCH QUESTIONS BEFORE?",0
|
|
rep13i: db "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?",0
|
|
rep14a: db "NAMES DON'T INTEREST ME.",0
|
|
rep14b: db "I DON'T CARE ABOUT NAMES-- PLEASE GO ON.",0
|
|
rep15a: db "IS THAT THE REAL REASON?",0
|
|
rep15b: db "DON'T ANY OTHER REASONS COME TO MIND?",0
|
|
rep15c: db "DOES THAT REASON EXPLAIN ANY THING ELSE?",0
|
|
rep15d: db "WHAT OTHER REASONS MIGHT THERE BE?",0
|
|
rep16a: db "PLEASE DON'T APOLOGIZE.",0
|
|
rep16b: db "APOLOGIES ARE NOT NECESSARY.",0
|
|
rep16c: db "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?",0
|
|
rep16d: db "DON'T BE SO DEFENSIVE!",0
|
|
rep17a: db "WHAT DOES THAT DREAM SUGGEST TO YOU?",0
|
|
rep17b: db "DO YOU DREAM OFTEN?",0
|
|
rep17c: db "WHAT PERSONS APPEAR IN YOUR DREAMS?",0
|
|
rep17d: db "ARE YOU DISTURBED BY YOUR DREAMS?",0
|
|
rep18a: db "HOW DO YOU DO--PLEASE STATE YOUR PROBLEM.",0
|
|
rep19a: db "YOU DON'T SEEM QUITE CERTAIN.",0
|
|
rep19b: db "WHY THE UNCERTAIN TONE?",0
|
|
rep19c: db "CAN'T YOU BE MORE POSITIVE?",0
|
|
rep19d: db "YOU AREN'T SURE?",0
|
|
rep19e: db "DON'T YOU KNOW?",0
|
|
rep20a: db "ARE YOU SAYING NO JUST TO BE NEGATIVE?",0
|
|
rep20b: db "YOU ARE BEING A BIT NEGATIVE.",0
|
|
rep20c: db "WHY NOT?",0
|
|
rep20d: db "ARE YOU SURE?",0
|
|
rep20e: db "WHY NO?",0
|
|
rep21a: db "WHY ARE YOU CONCERNED ABOUT MY ",0
|
|
rep21b: db "WHAT ABOUT YOUR OWN ",0
|
|
rep22a: db "CAN YOU THINK OF A SPECIFIC EXAMPLE?",0
|
|
rep22b: db "WHEN?",0
|
|
rep22c: db "WHAT ARE YOU THINKING OF?",0
|
|
rep22d: db "REALLY, ALWAYS?",0
|
|
rep23a: db "DO YOU REALLY THINK SO?",0
|
|
rep23b: db "BUT YOU ARE NOT SURE YOU ",0
|
|
rep23c: db "DO YOU DOUBT YOU ",0
|
|
rep24a: db "IN WHAT WAY?",0
|
|
rep24b: db "WHAT RESEMBLANCE DO YOU SEE?",0
|
|
rep24c: db "WHAT DOES THE SIMILARITY SUGGEST TO YOU?",0
|
|
rep24d: db "WHAT OTHER CONNECTIONS DO YOU SEE?",0
|
|
rep24e: db "COULD THERE REALLY BE SOME CONNECTION?",0
|
|
rep24f: db "HOW?",0
|
|
rep24g: db "YOU SEEM QUITE POSITIVE.",0
|
|
rep25a: db "ARE YOU SURE?",0
|
|
rep25b: db "I SEE.",0
|
|
rep25c: db "I UNDERSTAND.",0
|
|
rep26a: db "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?",0
|
|
rep26b: db "DO YOUR FRIENDS WORRY YOU?",0
|
|
rep26c: db "DO YOUR FRIENDS PICK ON YOU?",0
|
|
rep26d: db "ARE YOU SURE YOU HAVE ANY FRIENDS?",0
|
|
rep26e: db "DO YOU IMPOSE ON YOUR FRIENDS?",0
|
|
rep26f: db "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU?",0
|
|
rep27a: db "DO COMPUTERS WORRY YOU?",0
|
|
rep27b: db "ARE YOU TALKING ABOUT ME IN PARTICULAR?",0
|
|
rep27c: db "ARE YOU FRIGHTENED BY MACHINES?",0
|
|
rep27d: db "WHY DO YOU MENTION COMPUTERS?",0
|
|
rep27e: db "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?",0
|
|
rep27f: db "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?",0
|
|
rep27g: db "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?",0
|
|
rep28a: db "OH, DO YOU LIKE CARS?",0
|
|
rep28b: db "MY FAVORITE CAR IS A LAMBORGINI COUNTACH. WHAT IS YOUR FAVORITE CAR?",0
|
|
rep28c: db "MY FAVORITE CAR COMPANY IS FERRARI. WHAT IS YOURS?",0
|
|
rep28d: db "DO YOU LIKE PORSCHES?",0
|
|
rep28e: db "DO YOU LIKE PORSCHE TURBO CARRERAS?",0
|
|
rep29a: db "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?",0
|
|
rep29b: db "WHAT DOES THAT SUGGEST TO YOU?",0
|
|
rep29c: db "I SEE.",0
|
|
rep29d: db "I'M NOT SURE I UNDERSTAND YOU FULLY.",0
|
|
rep29e: db "COME COME ELUCIDATE YOUR THOUGHTS.",0
|
|
rep29f: db "CAN YOU ELABORATE ON THAT?",0
|
|
rep29g: db "THAT IS QUITE INTERESTING.",0
|
|
|
|
include 'myConsole.inc'
|
|
include 'myDex.inc'
|
|
|
|
_param:
|
|
rb 256
|
|
|
|
_end:
|
|
|
|
align 32
|
|
rb 2048
|
|
_stack:
|
|
_memory: |