home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug004.ark / NUMBER.MAC < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.3 KB  |  122 lines
  1.     ENTRY    NUMBER
  2. NUMBER:    SHLD    STRING
  3.     LDAX    D
  4.     LXI    H,TABLE
  5.     LXI    D,TSIZ
  6.     ORA    A
  7.     JZ    N2
  8. N0:    DAD    D
  9.     DCR    A
  10.     JNZ    N0
  11. N2:    SHLD    TEMP
  12.     MOV    H,B
  13.     MOV    L,C
  14.     MOV    A,M
  15.     LXI    D,TSIZ2
  16.     LHLD    TEMP
  17.     ORA    A
  18.     JZ    N3
  19. N1:    DAD    D
  20.     DCR    A
  21.     JNZ    N1
  22. N3:    XCHG
  23.     LHLD    STRING
  24.     MVI    B,TSIZ2
  25. M1:    LDAX    D
  26.     MOV    M,A
  27.     INX    H
  28.     INX    D
  29.     DCR    B
  30.     JNZ    M1
  31.     RET
  32. STRING:    DW    0000
  33. TEMP:    DW    0000
  34. TSIZ    EQU    35
  35. TSIZ2    EQU    5
  36.  
  37.  
  38.  
  39. TABLE:    DB    " *** "
  40.     DB    "*   *"
  41.     DB    "*   *"
  42.     DB    "*   *"
  43.     DB    "*   *"
  44.     DB    "*   *"
  45.     DB    " *** "
  46.  
  47.     DB    "  *  "
  48.     DB    " **  "
  49.     DB    "  *  "
  50.     DB    "  *  "
  51.     DB    "  *  "
  52.     DB    "  *  "
  53.     DB    " *** "
  54.  
  55.     DB    " *** "
  56.     DB    "*   *"
  57.     DB    "   * "
  58.     DB    "  *  "
  59.     DB    " *   "
  60.     DB    "*    "
  61.     DB    "*****"
  62.  
  63.     DB    " *** "
  64.     DB    "*   *"
  65.     DB    "    *"
  66.     DB    "   **"
  67.     DB    "    *"
  68.     DB    "*   *"
  69.     DB    " *** "
  70.  
  71.  
  72.     DB    "   * "
  73.     DB    "  ** "
  74.     DB    " * * "
  75.     DB    "*  * "
  76.     DB    "*****"
  77.     DB    "   * "
  78.     DB    "   * "
  79.  
  80.     DB    "*****"
  81.     DB    "*    "
  82.     DB    "**** "
  83.     DB    "    *"
  84.     DB    "    *"
  85.     DB    "*   *"
  86.     DB    " *** "
  87.  
  88.     DB    " *** "
  89.     DB    "*   *"
  90.     DB    "*    "
  91.     DB    "**** "
  92.     DB    "*   *"
  93.     DB    "*   *"
  94.     DB    " *** "
  95.  
  96.  
  97.     DB    "*****"
  98.     DB    "    *"
  99.     DB    "   * "
  100.     DB    "  *  "
  101.     DB    " *   "
  102.     DB    "*    "
  103.     DB    "*    "
  104.  
  105.     DB    " *** "
  106.     DB    "*   *"
  107.     DB    "*   *"
  108.     DB    " *** "
  109.     DB    "*   *"
  110.     DB    "*   *"
  111.     DB    " *** "
  112.  
  113.     DB    " *** "
  114.     DB    "*   *"
  115.     DB    "*   *"
  116.     DB    " ****"
  117.     DB    "    *"
  118.     DB    "    *"
  119.     DB    " *** "
  120.  
  121.     END
  122.