home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug017.ark / NUMS.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  1.9 KB  |  167 lines
  1. ;  
  2. ; NUMERALS MODULE
  3. ; COPYRIGHT 1976 D. KRUGLINSKI
  4. ;
  5. NSTRT    EQU    480H    ;LOAD ADDRESS
  6. ;
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8. ; GRAPHICS MACROS
  9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10. MBEAM    MACRO    X,Y
  11.     DB    0
  12.     DB    X
  13.     DB    Y
  14.     ENDM
  15. ;
  16. MDISP    MACRO    X,Y
  17.     DB    2
  18.     DB    X
  19.     DB    Y
  20.     ENDM
  21. ;
  22. LVEC    MACRO    X,Y
  23.     DB    4
  24.     DB    X
  25.     DB    Y
  26.     ENDM
  27. ;
  28. SVEC    MACRO
  29.     DB     6
  30.     ENDM
  31. SV    MACRO    LEN,DIR
  32.     DB    DIR OR (LEN SHL 4)
  33.     ENDM
  34. SVF    MACRO    LEN,DIR
  35.     DB    DIR OR (LEN SHL 4) OR 8H
  36.     ENDM
  37. SVE    MACRO    LEN,DIR
  38.     DB    DIR OR (LEN SHL 4) OR 80H
  39.     ENDM
  40. SVEF    MACRO    LEN,DIR
  41.     DB    DIR OR (LEN SHL 4) OR 88H
  42.     ENDM
  43. ;
  44. PARAM    MACRO    SCL,ORN
  45.     DB    8
  46.     DB    ORN OR (SCL SHL 4)
  47.     ENDM
  48. ;
  49. JUMP    MACRO    ADDR
  50.     DB    0AH
  51.     DW    ADDR
  52.     ENDM
  53. ;
  54. JUMPS    MACRO    ADDR
  55.     DB    0CH
  56.     DW    ADDR
  57.     ENDM
  58. ;
  59. RETS    MACRO
  60.     DB    0EH
  61.     ENDM
  62. ;
  63. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  64. ; SYSTEM LINKAGES
  65. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  66.     ORG    46H
  67.     DW    ZERO
  68.     DW    ONE
  69.     DW    TWO
  70.     DW    THREE
  71.     DW    FOUR
  72.     DW    FIVE
  73.     DW    SIX
  74.     DW    SEVEN
  75.     DW    EIGHT
  76.     DW    NINE
  77.     ORG    NSTRT
  78. ;
  79. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  80. ; NUMERALS 0-9
  81. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  82. ZERO:    SVEC
  83.     SV    6,0
  84.     SV    4,2
  85.     SV    6,4
  86.     SV    4,6
  87.     SVEF    6,2
  88.     RETS
  89. ONE:    SVEC
  90.     SVF    4,2
  91.     SV    6,0
  92.     SVF    6,4
  93.     SVEF    2,2
  94.     RETS
  95. TWO:    SVEC
  96.     SVF    6,0
  97.     SV    4,2
  98.     SV    3,4
  99.     SV    4,6
  100.     SV    3,4
  101.     SV    4,2
  102.     SVEF    2,2
  103.     RETS
  104. THREE:    SVEC
  105.     SV    4,2
  106.     SV    6,0
  107.     SV    4,6
  108.     SVF    3,4
  109.     SV    4,2
  110.     SVF    3,4
  111.     SVEF    2,2
  112.     RETS
  113. FOUR:    SVEC
  114.     SVF    4,2
  115.     SVF    3,0
  116.     SV    4,6
  117.     SV    3,0
  118.     SVF    4,2
  119.     SV    6,4
  120.     SVEF    2,2
  121.     RETS
  122. FIVE:    SVEC
  123.     SV    4,2
  124.     SV    3,0
  125.     SV    4,6
  126.     SV    3,0
  127.     SV    4,2
  128.     SVF    6,4
  129.     SVEF    2,2
  130.     RETS
  131. SIX:    SVEC
  132.     SVF    3,0
  133.     SV    4,2
  134.     SV    3,4
  135.     SV    4,6
  136.     SV    6,0
  137.     SV    4,2
  138.     SVF    6,4
  139.     SVEF    2,2
  140.     RETS
  141. SEVEN:    SVEC
  142.     SVF    6,0
  143.     SV    4,2
  144.     SV    6,4
  145.     SVEF    2,2
  146.     RETS
  147. EIGHT:    SVEC
  148.     SV    6,0
  149.     SV    4,2
  150.     SV    6,4
  151.     SV    4,6
  152.     SVF    3,0
  153.     SV    4,2
  154.     SVF    3,4
  155.     SVEF    2,2
  156.     RETS
  157. NINE:    SVEC
  158.     SVF    4,2
  159.     SV    6,0
  160.     SV    4,6
  161.     SV    3,4
  162.     SV    4,2
  163.     SVF    3,4
  164.     SVEF    2,2
  165.     RETS
  166.     END
  167.