Re: Help with ASM function in IBM PC-DOS 7.0 REXX

Article View: alt.lang.asm

Article #184

#184

From: Binyamin Dissen
Date: Wed, 03 Apr 1996 02:48

51 lines
2289 bytes

On Fri, 29 Mar 1996 18:20:47 -0800 Henk van Kooij <henk@indi.nl> wrote:

:>Binyamin Dissen wrote:
:>> 
:>> I am trying to write an INKEY function for IBM PC-DOS 7.0 REXX. Following
:>> is the code:
:>> 
:>>           PAGE    60,132
:>>           TITLE   ZINKEY
:>> 
:>> ; Program ZINKEY.ASM
:>> ; Purpose Perform an INKEY function for IBM PC/DOS 7 - Rexx
:>> ; Input   NONE
:>> ; Parms   NONE
:>> ; Output  Pressed Key
:>> 
:>>           DOSSEG
:>>           .MODEL  small
:>>           .286
:>> 
:>>           INCLUDE equates.inc           ; Get standard equates
:>> 
:>>           .STACK  0100h
:>> 
:>> REXXPSP   SEGMENT AT 0                  ; Option table entry
:>>           ORG     $+54h                 ; Skip
:>> RX_CODE   DB      "REXX"                ; REXX string
:>> SHVENTRY  DD      ?                     ; Long pointer to routine
:>>           ORG     REXXPSP+82h           ; Skip again
:>> RXARGC    DW      ?                     ; Count of arguments
:>> RXARGV    DD      ?                     ; Long pointer to arguments
:>> RXRESULT  DD      ?                     ; Long pointer to result
:>
:>RXRESULT = NULL, you never put any value in there
:>
:>Henk van Kooij

I don't understand. Isn't this section doing it?

RetChar:
          mov     bl,al                 ; Save character
          mov     ax,WORD PTR RXRESULT  ; Point to result string seg
          mov     di,WORD PTR RXRESULT+2; Point to result offset
          mov     es,ax                 ; Set segment
          mov     es:[di],bl            ; Store character
          mov     BYTE PTR es:[di+1],0  ; zero terminated



--
Binyamin Dissen <bdissen@netvision.net.il>

Technical Details

Message-ID: <31614fc3.3198996@news.netvision.net.il>

Path: arc1-ca.pugleaf.net!news.NetVision.net.il!news

References: <31555312.42398529@news.netvision.net.il> <315C9A7F.6316@indi.nl>

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!news.NetVision.net.il!news
From: bdissen@netvision.net.il (Binyamin Dissen)
Newsgroups: alt.lang.asm,comp.lang.rexx,comp.os.msdos.programmer,comp.sys.ibm.pc.programmer,comp
Subject: Re: Help with ASM function in IBM PC-DOS 7.0 REXX
Date: Wed, 03 Apr 1996 02:48:08 GMT
Organization: DISSEN Software, Bar & Grill - Israel  Ltd.
Distribution: inet
Message-ID: <31614fc3.3198996@news.netvision.net.il>
References: <31555312.42398529@news.netvision.net.il> <315C9A7F.6316@indi.nl>
NNTP-Posting-Host: ts002p16.pop2a.netvision.net.il
X-Newsreader: Forte Agent .99d/16.182

Reply to Parent Message