home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / _TR_PEEK.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-22  |  2.0 KB  |  58 lines
  1. ; _TR_PEEK.ASM
  2. ;
  3. ; by Ralph Davis
  4. ; modified by Leonard Zerman
  5. ;
  6. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  7. ;
  8.          PUBLIC   _TR_PEEK_PARMS
  9.  
  10.          EXTRN    __TR_HTOI:FAR
  11.  
  12.          INCLUDE  EXTENDA.MAC
  13.  
  14. ;*****************************************************
  15. _TR_PEEK_TEXT SEGMENT  BYTE PUBLIC 'CODE'
  16.          ASSUME   CS:_TR_PEEK_TEXT
  17. ;-----------------------------------------------------
  18. _TR_PEEK_PARMS PROC FAR
  19. ; 
  20. ; processes parameters passed to PEEK() functions
  21. ;
  22. ; RETURNS:   Segment in SI, offset in AX
  23. ;-------------------
  24.          PUSH     BX
  25.          GET_PCOUNT              ; call _parinfo(0) to
  26.                                  ; make sure parameter was passed
  27.          CMP      AX,2           ; do we have two parameters?
  28.          JL       PGP_RET        ; no, go to error routine
  29.          GET_CHAR 1              ; PCOUNT OK, so get parameters
  30.          PUSH     DX             ; now pass address to _TR_HTOI
  31.          PUSH     AX
  32.          CALL     __TR_HTOI       ; returns integer in AX
  33.          ADD      SP,4
  34.          PUSH     AX             ; first parameter is segment address
  35.                                  ; save it
  36.          GET_PTYPE 2             ; call _parinfo() to see if offset
  37.                                  ; is hex string or number
  38.          AND      AX,CHARACTER   ; is it hex string?
  39.          JNZ      PGP_2          ; yes, use _parc()
  40.          GET_INT  2              ; no, get offset as int
  41.          JMP      SHORT PGP_3
  42. PGP_2:
  43.          GET_CHAR 2              ; Get parm 2 as char *
  44.          PUSH     DX             ; Pass it to _tr_htoi()
  45.          PUSH     AX
  46.          CALL     __TR_HTOI       ; returns offset as integer in AX
  47.          ADD      SP,4
  48. PGP_3:
  49.          POP      SI             ; retrieve requested segment address
  50.          POP      BX
  51. PGP_RET: RET      
  52.  
  53. _TR_PEEK_PARMS ENDP
  54. ;------------------------------------------------
  55. _TR_PEEK_TEXT    ENDS
  56. ;************************************************
  57.          END
  58.