home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / MAIN.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.0 KB  |  36 lines
  1.  
  2. *MAIN PROCEDURE DEFINITION MACRO
  3. *      MAKES CONSTANTS ONE AND MINUS ONE,
  4. *      INITS UNIQUE LABEL SYMBOL, GENERATES
  5. *      A DISABLE INTERRUPT IF NO INTR MACRO
  6. *
  7. *      A IS MAIN PROG NAME (<4 CHAR)
  8.  
  9.        COPY CHECK.SCR
  10.  
  11. MAIN   $MACRO            A
  12.        $CHECK            :A:
  13.        PSEG              PROG SEG
  14.        $VAR P,L
  15.        $ASG '$$PROC' TO P.S
  16.        DEF  :A:          ENTRY (ON RESET)
  17. :A:    EQU  $
  18.        $IF  P.SV=3
  19.        DINT              IF NO INTRPT RTN, DISABL INTRPS
  20.        $ENDIF
  21.        LACK 1            MAKE CONST ONE
  22.        SACL ONE,0        SAVE IT
  23.        ZAC               ZERO AC
  24.        SUB  ONE,0        MAKE -1
  25.        SACL MINUS,0      SAVE IT
  26.        DSEG              DATA SEG
  27. ONE    BSS  1            CONST ONE
  28. MINUS  BSS  1            CONST -1
  29. XR0    BSS  1            TEMP 0
  30. XR1    BSS  1            TEMP 1
  31.        DEF  ONE,MINUS    DEFS
  32.        DEF  XR0,XR1
  33.        DEND              END OF DATA
  34.        $ASG 2 TO P.SV    FLAG AS MAIN
  35.        $ASG :A: TO P.SS
  36.        $END