home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / f1 / utils1.arj / SCR.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-16  |  924 b   |  49 lines
  1. ;  *******************************
  2. ;  * SCR.COM v0.3 / JCE - Jun'92 *
  3. ;  *******************************
  4.  
  5. SEGM    SEGMENT PUBLIC
  6.         ASSUME  CS:SEGM, DS:SEGM
  7. ;
  8.         ORG     100H
  9.  
  10.         EXTRN   CONVERT2:NEAR
  11.  
  12. PSP17   EQU     CS:80H
  13.  
  14. PRINCIPAL:
  15.  
  16.         JMP     RUN
  17.  
  18.         DB      "<<< SCR.COM v0.3 Juan C.Enrique'92 >>>"
  19. MSG     DB      "* ERROR!: Valor incorrecto *$"
  20.  
  21. RUN:
  22.         MOV     AL,[PSP17]
  23.         CMP     AL,3
  24.         JE      RUN2
  25.         CMP     AL,2
  26.         JNE     ERROR
  27.         MOV     BYTE PTR [PSP17],"0"
  28.         MOV     DI,OFFSET PSP17
  29.         JMP     RUN3
  30. RUN2:
  31.         MOV     DI,OFFSET PSP17+1
  32. RUN3:
  33.         MOV     BYTE PTR [PSP17+1],"0"
  34.         CALL    CONVERT2
  35.         JC      ERROR
  36.  
  37.     MOV    AH,0
  38.         INT     10H
  39.  
  40. RETDOS: INT    20H
  41.  
  42. ERROR:    MOV    AH,9
  43.         MOV     DX,OFFSET MSG
  44.     INT    21H
  45.     JMP    RETDOS
  46.  
  47. SEGM    ENDS
  48.         END     PRINCIPAL
  49.