home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / basq / source / poweru / misc.asm < prev    next >
Encoding:
Assembly Source File  |  1993-08-16  |  965 b   |  71 lines
  1. PUBLIC        EXIT
  2. PUBLIC        FATALEXIT
  3. PUBLIC        RANDOM
  4. PUBLIC        TEST386
  5. PUBLIC        CHECKMEMORY
  6. PUBLIC        RNDMAX
  7.  
  8. .386
  9. .MODEL USE16 SMALL
  10. .DATA
  11.  
  12. RNDMAX        DW    65535
  13. PRESRNDNUM    DW    1
  14. TEXT386        DB    'THIS STUFF REQUIED A 386 PROCESSOR OR BETTER.',13,10,"$"
  15.  
  16. .CODE
  17.  
  18. CHECKMEMORY:    PUSHA
  19.         PUSH    AX
  20.         MOV    AX,0A000H
  21.         MOV    BX,CS
  22.         SUB    AX,BX
  23.         MOV    BX,16
  24.         MUL    BX
  25.         MOV    BX,1024
  26.         DIV    BX
  27.         POP    BX
  28.         CMP    AX,BX
  29.         JA    SHORT MEMORYENOUGHF
  30.         STC
  31.         POPA
  32.         RET
  33. MEMORYENOUGHF:    CLC
  34.         POPA
  35.         RET
  36.  
  37. TEST386:    MOV    AX,1110000000000000B
  38.         PUSH    AX
  39.         POPF
  40.         PUSHF
  41.         POP    AX
  42.         TEST    AX,1110000000000000B
  43.         JZ    SHORT NOT386
  44.         RET
  45. NOT386:        MOV    AX,SEG TEXT386
  46.         MOV    DS,AX
  47.         MOV    AH,9
  48.         LEA    DX,TEXT386
  49.         INT    21H
  50.         JMP    EXIT
  51. FATALEXIT:    MOV    AX,3
  52.         INT    10H
  53. EXIT:        MOV    AH,4CH
  54.         INT    21H
  55.  
  56. RANDOM:        PUSH    BX
  57.         PUSH    DX
  58. RECALCRND:    MOV    AX,4E35H
  59.         MUL    PRESRNDNUM
  60.         INC    AX
  61.         MOV    PRESRNDNUM,AX
  62.         MOV    BX,RNDMAX
  63.         MUL    BX
  64.         MOV    BX,0FFFFH
  65.         DIV    BX
  66.         POP    DX
  67.         POP    BX
  68.         RET
  69.  
  70. END
  71.