home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / scrnmac.lib < prev    next >
Text File  |  1984-04-29  |  2KB  |  146 lines
  1. ;  . . . . . . . . . . . . . . . . . . . . . . . . . . .
  2. ;
  3. ;    DCLS MACRO    CLEAR SCREEN ON A SOROC 120
  4. ;
  5. ;
  6. DCLS    MACRO
  7. ;;        *** SOROC 120 ***
  8.     IF    SOROC$120
  9.     DB    5
  10.     DB    01BH,02AH,000H,000H,000H
  11.     ENDIF
  12. ;;        *** ADM 3A ***
  13.     IF    ADM3A
  14.     DB    1
  15.     DB    01AH
  16.     ENDIF
  17.     ENDM
  18.  
  19. ;    . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  20. ;
  21. ;    DDB MACRO    DEFINE DATA STRING
  22. ;
  23. ;
  24. DDB    MACRO    STRING
  25.     LOCAL    BGNLIT,ENDLIT
  26.     IF    NUL STRING
  27.     STRING PARAMETER MUST BE GIVEN.
  28.     ENDIF
  29.     DB    ENDLIT-BGNLIT
  30. BGNLIT:
  31.     DB    STRING
  32. ENDLIT:
  33.     ENDM
  34.  
  35. ;    . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  36. ;
  37. ;    DDRK MACRO    DEFINE BRIGHT AREA BEGINNING.
  38. ;
  39. ;
  40. DDRK    MACRO
  41. ;;        *** SOROC 120 ***
  42.     IF    SOROC$120
  43.     DB    2
  44.     DB    01BH,')'
  45.     ENDIF
  46. ;;        *** ADM 3A ***
  47.     IF    ADM3A
  48.     NOT IMPLEMENTED
  49.     ENDIF
  50.     ENDM
  51.  
  52. ;    . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  53. ;
  54. ;    DDRKEND MACRO    DEFINE BRIGHT AREA ENDING.
  55. ;
  56. ;
  57. DDRKEND    MACRO
  58. ;;        *** SOROC 120 ***
  59.     IF    SOROC$120
  60.     DB    2
  61.     DB    01BH,'('
  62.     ENDIF
  63. ;;        *** ADM 3A ***
  64.     IF    ADM3A
  65.     NOT IMPLEMENTED
  66.     ENDIF
  67.     ENDM
  68.  
  69. ;    . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  70. ;
  71. ;    DEOL MACRO    ERASE LINE ON CONSOLE.
  72. ;
  73. ;    DEOL    LINE
  74. ;
  75. ;        A    CONTAINS LINE
  76. ;
  77. DEOL    MACRO    LINE
  78.     LOCAL    ADM3ALP
  79. ;;
  80.     IF    NUL LINE
  81.     LINE # MUST BE ENTERED.
  82.     ENDIF
  83. ;;
  84.     DGOTOXY LINE,1        ;;SET CURSOR TO LINE.
  85. ;;
  86. ;;        *** SOROC 120 ***
  87.     IF    SOROC$120
  88.     DB    2
  89.     DB    01BH,054H
  90.     ENDIF
  91. ;;
  92. ;;        *** ADM 3A ***
  93.     IF    ADM3A
  94.     NOT IMPLEMENTED
  95.     ENDIF
  96. ;;
  97.     ENDM
  98.  
  99.  
  100. ;    . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  101. ;
  102. ;    DGOTOXY MACRO    SET CURSOR ON CONSOLE TO AN (X,Y) COORDINATE.
  103. ;
  104. ;    DGOTOXY    X,Y
  105. ;
  106. ;        B    CONTAINS X
  107. ;        C    CONTAINS Y
  108. ;
  109. DGOTOXY    MACRO    X,Y
  110.     IF    NUL X
  111.     X PARAMETER MUST BE GIVEN.
  112.     ENDIF
  113. ;;
  114.     IF    NUL Y
  115.     Y PARAMETER MUST BE GIVEN.
  116.     ENDIF
  117. ;;
  118.     DB    4
  119.     DB    01BH,'=',X+31,Y+31
  120. ;;
  121.     ENDM
  122.  
  123.  
  124. ;    . . . . . . . . . . . . . . . . . . . . . . . . . . . .
  125. ;
  126. ;    TRMDFN MACRO    DEFINE TERMINAL TYPE FOR ASSEMBLIES
  127. ;
  128. ;
  129. TRMDFN    MACRO
  130. FALSE    SET    0000H        ;;TRUE/FALSE EQUATES
  131. TRUE    SET    NOT FALSE
  132. ;;
  133. SOROC$120 SET    TRUE         ;;SOROC 120
  134. ADM3A    SET    FALSE        ;;ADM 3A
  135. ;;
  136. ;;        *** TERMINAL CHARACTERISTICS ***
  137.     IF    SOROC$120
  138. TRMLIN    SET    24        ;;LINES PER PAGE
  139. TRMCOL    SET    80        ;;COLUMNS PER LINE
  140.     ENDIF
  141.     IF    ADM3A
  142. TRMLIN    SET    24        ;;LINES PER PAGE
  143. TRMCOL    SET    80        ;;COLUMNS PER LINE
  144.     ENDIF
  145.     ENDM
  146.