;-------------------------------
L1:
call esc                        ;if keypress, break out of loop
xor b[0017h],scroll
call timer
call esc
xor b[0017h],numlock
call timer
call esc
xor b[0017h],capslock
call timer
jmp  short L1
;-------------------------------
timer:  mov cx,delay            ;Wait CX clock ticks
wait1:  mov ax,ds:[006Ch]       ;get low word of tick counter
wait2:  cmp ax,ds:[006Ch]       ;wait for it to change
je      wait2
loop    wait1                   ;count CX changes
ret
;-------------------------------
esc:
mov  ah,1       ;check for key press (to abort)
int  16h
jz   ret        ;no key press, so return
mov  ax,0C00h   ;a key was pressed. flush keyboard buffer
int  21h
pop  ax         ;Remove ret from stack
pop  ds:[0017h] ;restore lites as when we started
mov  ax,4c00h   ;exit clean
int  21h
;-------------------------------
Kind regards, Barry
--- Terminate 4.00/Pro
 * Origin: EBO-BBS A'dam +31-20-6002828 (2:280/901.42)
---------------

FIDO MESSAGE AREA==> TOPIC: 145 ASSEMBLY LANG. Ref: EE300000Date: 10/02/97
From: TED ROLLE                                             Time: 08:07am
\/To: PETER MAGNUSSON                                     (Read 1 times)
Subj: Rotation encryption

Hello Peter!
Answering a msg of <Monday September 29 1997>, from Peter Magnusson to All:
I've posted your message in the American Cryptogram Association's mailing 
list. Maybe there is someone there who can shed some light on this system.  
Do you have more examples?  Perhaps plaintext and ciphertext?  Programs?
Ted
SMTP: troll@synthcom.com
:          Key fingerprint =  72 62 FB B9 04 73 49 2A  3B 20 A2 EE B6 38 59 

--- GEcho 1.11+
 * Origin:  Acacia BBS, Eagle Creek, OR, 1-503-637-6624  (1:105/36)
---------------

FIDO MESSAGE AREA==> TOPIC: 145 ASSEMBLY LANG. Ref: EE300001Date: 10/02/97
From: TED ROLLE                                             Time: 08:10am
\/To: MODERATOR - JAMES VAHN                              (Read 1 times)
Subj: UUE, et. al.

Hello Moderator!
Answering a msg of <Tuesday September 30 1997>, from James Vahn to Robert 
Glodt:
At the risk of tilting at windmills, would the compression/ASCII armor 
feature of PGP be acceptable?  This part of PGP does not use encryption, so 
anyone would be able to read the messages.
The advantage of this scheme over UUE is that it compresses -- quite 
effectively -- the text being sent.
Again, there would be NO encryption of the text.
Ted
SMTP: troll@synthcom.com
:          Key fingerprint =  72 62 FB B9 04 73 49 2A  3B 20 A2 EE B6 38 59 

--- GEcho 1.11+
 * Origin:  Acacia BBS, Eagle Creek, OR, 1-503-637-6624  (1:105/36)
---------------

FIDO MESSAGE AREA==> TOPIC: 145 ASSEMBLY LANG. Ref: EE300002Date: 09/25/97
From: IVAN HERNANDEZ                                        Time: 03:12am
\/To: ALL                                                 (Read 1 times)
Subj: Linking a pair of .OBJ

Hi!
My name's Ivan and, before I start with my problem, I'd like to excuse myself
for my poor English. Sorry. (Of course, as you can see, I'm new in this area
although I was reading it since some weeks ago).
  Relative to my problem, I hope some of you can answer to my question. It's
a problem with the assembler (Turbo Assembler 2.01 to be precise). It seems
to be some problems when assembling the segments for the .OBJ. Although I
define de SEGMENTS exactly in both .ASM, TASM seems to do not recognize it
and after linking, when the main PROC calls to another declared in the other
.ASM, the programs hangs. With the debugger I saw that main PROC called a
rare place in memory. Yes, you're right when you say that this is too
abstract and obscure, so here's a little example of what my program is made:
FILE-001.ASM --------------------------------------------------------------
.386
  ...... Definitions and STRUCTs
Stack SEGMENT para stack use16 'Stack'
Stack ENDS
Data SEGMENT para public use16
   ...... Some VARs and INCLUDEs
Data ENDS
Code SEGMET para public use16
 ASSUME cs:Code,ds:Data,ss:Stack
   Procedure1 
   Procedure2
   Procedure3
 PUBLIC Procedure1, Procedure2, Procedure3
Code ENDS
---------------------------------------------------------------------------
FILE-002.ASM --------------------------------------------------------------
.386
Stack SEGMENT para stack use16 'Stack'
DB 200h DUP (?)
Stack ENDS
Data SEGMENT para public use16
   .... I don't need data, but I put this here to have DS the same as in the
        other file.
Data ENDS
Code SEGMENT para public use16
 ASSUME cs:Code,ds:Data,ss:Stack
 EXTRN Procedure1, Procedure2, Procedure3
   main PROC
      call Procedure1
      call Procedure2
      call Procedure3
      mov ax, 4C00h
      int 21h
   main ENDP
Code ENDS
END main