;  . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
;       DCLS MACRO      CLEAR SCREEN ON A SOROC 120
;
;
DCLS    MACRO
;;              *** SOROC 120 ***
       IF      SOROC$120
       DB      5
       DB      01BH,02AH,000H,000H,000H
       ENDIF
;;              *** ADM 3A ***
       IF      ADM3A
       DB      1
       DB      01AH
       ENDIF
       ENDM

;       . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
;       DDB MACRO       DEFINE DATA STRING
;
;
DDB     MACRO   STRING
       LOCAL   BGNLIT,ENDLIT
       IF      NUL STRING
       STRING PARAMETER MUST BE GIVEN.
       ENDIF
       DB      ENDLIT-BGNLIT
BGNLIT:
       DB      STRING
ENDLIT:
       ENDM

;       . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
;       DDRK MACRO      DEFINE BRIGHT AREA BEGINNING.
;
;
DDRK    MACRO
;;              *** SOROC 120 ***
       IF      SOROC$120
       DB      2
       DB      01BH,')'
       ENDIF
;;              *** ADM 3A ***
       IF      ADM3A
       NOT IMPLEMENTED
       ENDIF
       ENDM

;       . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
;       DDRKEND MACRO   DEFINE BRIGHT AREA ENDING.
;
;
DDRKEND MACRO
;;              *** SOROC 120 ***
       IF      SOROC$120
       DB      2
       DB      01BH,'('
       ENDIF
;;              *** ADM 3A ***
       IF      ADM3A
       NOT IMPLEMENTED
       ENDIF
       ENDM

;       . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
;       DEOL MACRO      ERASE LINE ON CONSOLE.
;
;       DEOL    LINE
;
;               A       CONTAINS LINE
;
DEOL    MACRO   LINE
       LOCAL   ADM3ALP
;;
       IF      NUL LINE
       LINE # MUST BE ENTERED.
       ENDIF
;;
       DGOTOXY LINE,1          ;;SET CURSOR TO LINE.
;;
;;              *** SOROC 120 ***
       IF      SOROC$120
       DB      2
       DB      01BH,054H
       ENDIF
;;
;;              *** ADM 3A ***
       IF      ADM3A
       NOT IMPLEMENTED
       ENDIF
;;
       ENDM


;       . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
;       DGOTOXY MACRO   SET CURSOR ON CONSOLE TO AN (X,Y) COORDINATE.
;
;       DGOTOXY X,Y
;
;               B       CONTAINS X
;               C       CONTAINS Y
;
DGOTOXY MACRO   X,Y
       IF      NUL X
       X PARAMETER MUST BE GIVEN.
       ENDIF
;;
       IF      NUL Y
       Y PARAMETER MUST BE GIVEN.
       ENDIF
;;
       DB      4
       DB      01BH,'=',X+31,Y+31
;;
       ENDM


;       . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
;       TRMDFN MACRO    DEFINE TERMINAL TYPE FOR ASSEMBLIES
;
;
TRMDFN  MACRO
FALSE   SET     0000H           ;;TRUE/FALSE EQUATES
TRUE    SET     NOT FALSE
;;
SOROC$120 SET   TRUE            ;;SOROC 120
ADM3A   SET     FALSE           ;;ADM 3A
;;
;;              *** TERMINAL CHARACTERISTICS ***
       IF      SOROC$120
TRMLIN  SET     24              ;;LINES PER PAGE
TRMCOL  SET     80              ;;COLUMNS PER LINE
       ENDIF
       IF      ADM3A
TRMLIN  SET     24              ;;LINES PER PAGE
TRMCOL  SET     80              ;;COLUMNS PER LINE
       ENDIF
       ENDM