S-C Macro Assembler 3.0 -- ASM1/X.TABLES.DIREC

1000 *SAVE X.TABLES.DIREC
1010 *---------------------------------
1020        .DO 1
1030 *--------------------------------
1040 DIR.   .SE 0
1050        .MA DIR
1060        .DO "]1"=DIR.=0
1070        .DA #"]1"-$C0
1080 DIR.   .SE "]1"
1090        .FIN
1100        .DA #"]2"-$40,]3-1   .]1]2
1110        .EM
1120 *--------------------------------
1130 OPTBL.DIR
1140      >DIR A,C,DIR.AC   ASCII STRING COMPRESSED
1150      >DIR A,S,PSAS     ASCII STRING
1160      >DIR A,T,PSAT     ASCII STRING WITH LAST BYTE
1170      >DIR A,Z,PSAZ     ASCII STRING WITH ZERO END
1180      >DIR B,S,PSBS     BLOCK STORAGE
1190      >DIR D,A,PSDA     DATA
1200      >DIR D,O,PSDO     DO
1210      >DIR D,U,D.DUMMY  DUMMY
1220      >DIR E,D,D.END.DUMMY
1230      >DIR E,L,PSEL     ELSE
1240      >DIR E,N,PSEN     END OF SOURCE
1250      >DIR E,P,D.END.PHASE
1260      >DIR E,Q,PSEQ     EQUATE
1270      >DIR F,I,PSFI     FIN
1280      >DIR H,S,PSHS     HEX STRING
1290      >DIR I,N,PSIN     INCLUDE
1300      >DIR L,I,PSLI     LIST ON,/   OFF
1310      >DIR M,A,PSMA     MACRO
1320      >DIR O,P,PSOP     OPCODE TABLE SELECT
1330      >DIR O,R,PSOR     ORIGIN
1340      >DIR P,G,PSPG     PAGE EJECT
1350      >DIR P,H,D.PHASE  PHASE
1360      >DIR T,A,PSTA     TARGET ADDRESS
1370      >DIR T,F,PSTF     TARGET FILE
1380      >DIR T,I,PSTI     TITLE
1390      >DIR U,S,PSUSER   USER DIRECTIVE
1400        .HS 41       <<<TERMINATOR>>>
1410 *--------------------------------
1420        .ELSE
1430 *--------------------------------
1440 *   DIRECTIVE TABLE
1450 *--------------------------------
1460        .MA DIR
1470        .AS /]1/
1480        .DA ]2-1
1490        .EM
1500 *---------------------------------
1510 OPTBL.DIR
1520        .HS 0402      ITEM SIZE, KEY SIZE
1530        >DIR AS,PSAS     ASCII STRING
1540        >DIR AT,PSAT     ASCII STRING WITH LAST BYTE
1550        >DIR BS,PSBS     BLOCK STORAGE
1560        >DIR DA,PSDA     DATA
1570        >DIR DO,PSDO     DO
1580        >DIR DU,D.DUMMY  DUMMY
1590        >DIR ED,D.END.DUMMY
1600        >DIR EL,PSEL     ELSE
1610        >DIR EN,PSEN     END OF SOURCE
1620        >DIR EP,D.END.PHASE
1630        >DIR EQ,PSEQ     EQUATE
1640        >DIR FI,PSFI     FIN
1650        >DIR HS,PSHS     HEX STRING
1660        >DIR IN,PSIN     INCLUDE
1670        >DIR LI,PSLI     LIST ON,/   OFF
1680        >DIR MA,PSMA     MACRO
1690        >DIR OP,PSOP     OPCODE TABLE SELECT
1700        >DIR OR,PSOR     ORIGIN
1710        >DIR PG,PSPG     PAGE EJECT
1720        >DIR PH,D.PHASE  PHASE
1730        >DIR TA,PSTA     TARGET ADDRESS
1740        >DIR TF,PSTF     TARGET FILE
1750        >DIR TI,PSTI     TITLE
1760        >DIR US,PSUSER   USER DIRECTIVE
1770        .HS 00        MARK END OF TABLE
1780        .FIN
1790 *--------------------------------