home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / POPTXT22.ZIP / TSRDEMO.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-08-13  |  1.7 KB  |  63 lines
  1. Page 60,132
  2.  
  3. ;  Zhlp.asm
  4. ;  Poptext 2.1
  5. ;  Copyright (c) 1989 Tone Zone Computing
  6. ;
  7. ;  A test of the memory resident feature of Poptext
  8.  
  9.  
  10.  
  11.  
  12.  
  13. Code Segment Byte Public
  14.  
  15.  
  16.      Assume Cs:Code,SS:Stack;
  17.  
  18. JMP    Entry;
  19.         Copyright  Db 'POPRes Testing Routine'
  20.         ByWho      Db '(c) 1989 Tone Zone Computing',13,10,'$'
  21.         Filename   Db 'Poptext.hlp',0,'$'
  22.         Error1     Db 'Error: Unable to Start Poptext$'
  23.  
  24. Entry:     Push CS                  ;Initialize Data Seg
  25.      POP   DS                       ;
  26.      Assume DS:Code
  27.      MOV   DX,Offset Copyright      ;Copyright Notice
  28.      MOV   AH,9                     ;
  29.      INT   21H                      ;
  30.      PUSH  CS                  ;
  31.      POP   DS                       ;
  32.      Assume Ds:Code
  33.      MOV   DX,Offset Filename       ;DS:DX points to Filename
  34.      MOV   AH,02                    ;OpenHelpFile(Filename);
  35.      INT   6EH                      ;Call POPTEXT
  36.      CMP   AL,00                    ;Is Return OK?
  37.      JNZ   BADFile                  ;OOPS
  38.      MOV   AH,01                    ;We want to use the help
  39.      MOV   AL,01                    ;PopTextCard(1)
  40.      INT   6EH                      ;Call POPTEXT
  41. Closeall:
  42.      MOV   AH,03                    ;CloseHelpFile
  43.      INT   6EH                      ;Call POPTEXT
  44.      MOV   AH,4CH                   ;Exit
  45.      INT   21H                      ;Call MSDos
  46. BadFile:
  47.      MOV   DX,Offset Error1         ;Display Error Message
  48.      MOV   AH,09                    ;
  49.      INT   21H                      ;Call MS-Dos
  50.      MOV   AH,4CH                   ;Leave
  51.      INT   21H                      ;Call MS-Dos
  52.  
  53. Code Ends
  54.  
  55. Stack Segment Word Stack
  56.  
  57.   Stackfill  Dw 10000 dup(?)
  58.  
  59. stack ends
  60.  
  61. End
  62.  
  63.