Listing of file='GETKEY.SRC;01' on disk='vmedia/agilis-sector.ccvf'
ORG 82A0H KBCHAR EQU 81FEH KBRDY EQU 81FFH BEGIN: PUSH H LOOP: LDA KBRDY ORA A JZ LOOP LDA KBCHAR MOV E,A XRA A STA KBRDY POP H RET END BEGIN
Listing of file='GETKEY.SRC;01' on disk='vmedia/agilis-sector.ccvf'
ORG 82A0H KBCHAR EQU 81FEH KBRDY EQU 81FFH BEGIN: PUSH H LOOP: LDA KBRDY ORA A JZ LOOP LDA KBCHAR MOV E,A XRA A STA KBRDY POP H RET END BEGIN