home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / ASM / ASM110.ZIP / GNTSR.ASM < prev    next >
Encoding:
Assembly Source File  |  1996-02-17  |  2.0 KB  |  73 lines
  1.         mov     ah,09
  2.         mov     dx,offset(hdtxt)
  3.         int     21
  4.         mov     ax,1100
  5.         mov     cx,000a
  6.         mov     dx,0030
  7.         mov     bx,1010
  8.         mov     bp,offset(data)
  9.         int     10
  10.         mov     ax,3510
  11.         int     21
  12.         mov     rlseg,es
  13.         mov     rlofs,bx
  14.         mov     ax,2510
  15.         mov     dx,offset(therout)
  16.         int     21
  17.         mov     ax,3100
  18.         mov     dx,offset(end)/16+1
  19.         add     dx,0011      
  20.         int     21
  21.  
  22. therout cmp     ax,0003
  23.         je      @1
  24.         cmp     ax,0083
  25.         je      @1
  26.         pushf
  27.         cs:
  28.         callf   rlofs
  29.         iret
  30. @1      pushf
  31.         cs:
  32.         callf   rlofs
  33.         push    ax
  34.         push    cx
  35.         push    dx
  36.         push    bx
  37.         push    bp
  38.         push    es
  39.         push    cs
  40.         pop     es
  41.         mov     ax,1100
  42.         mov     cx,000a
  43.         mov     dx,0030
  44.         mov     bx,1010
  45.         mov     bp,offset(data)
  46.         pushf
  47.         cs:
  48.         callf   rlofs
  49.         pop     es
  50.         pop     bp
  51.         pop     bx
  52.         pop     dx
  53.         pop     cx
  54.         pop     ax
  55.         iret
  56.     
  57. data    db      00 00 00 00 02 7c ce ce d6 e6 e6 7c 80 00 00 00 ; 0
  58.         db      00 00 00 00 00 78 18 18 18 18 18 7e 00 00 00 00 ; 1
  59.         db      00 00 00 00 00 7c c6 0c 18 30 60 fe 00 00 00 00 ; 2
  60.         db      00 00 00 00 00 7c c6 06 06 1c 06 06 06 c6 7c 00 ; 3
  61.         db      00 00 00 00 00 0c 6c 6c 6c cc cc fe 0c 0c 0c 00 ; 4
  62.         db      00 00 00 00 00 fe c0 c0 c0 fc c6 06 06 c6 7c 00 ; 5
  63.         db      00 00 3c 66 c0 c0 fc c6 c6 c6 c6 7c 00 00 00 00 ; 6
  64.         db      00 00 00 00 00 fe 0c 18 18 30 30 60 60 c0 c0 00 ; 7
  65.         db      00 00 7c c6 c6 c6 7c c6 c6 c6 c6 7c 00 00 00 00 ; 8
  66.         db      00 00 00 00 00 7c c6 c6 c6 c6 7e 06 06 cc 78 00 ; 9
  67. hdtxt   db      'Good Numbers TSR v2.0 - Written by Bert Greevenbosch for Magic Software' 0a 0d
  68.         db      'Public Domain Version' 0a 0d '$'
  69. -
  70. rlofs   dw      ?
  71. rlseg   dw      ?
  72. end
  73.