2022-03-06 22:28:52 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.DO 1
|
|
|
|
|
|
*--------------------------------
|
|
|
|
|
|
DIR. .SE 0
|
|
|
|
|
|
.MA DIR
|
|
|
|
|
|
.DO "]1"=DIR.=0
|
|
|
|
|
|
.DA #"]1"-$C0
|
|
|
|
|
|
DIR. .SE "]1"
|
|
|
|
|
|
.FIN
|
|
|
|
|
|
.DA #"]2"-$40,]3-1 .]1]2
|
|
|
|
|
|
.EM
|
|
|
|
|
|
*--------------------------------
|
2022-09-11 19:11:32 +00:00
|
|
|
|
OPTBL.DIR >DIR A,C,DIR.AC ASCII STRING COMPRESSED
|
|
|
|
|
|
>DIR A,S,PSAS ASCII STRING
|
|
|
|
|
|
>DIR A,T,PSAT ASCII STRING WITH LAST BYTE
|
|
|
|
|
|
>DIR A,Z,PSAZ ASCII STRING WITH ZERO END
|
|
|
|
|
|
>DIR B,S,PSBS BLOCK STORAGE
|
|
|
|
|
|
>DIR C,S,DIR1.CS C STRING
|
|
|
|
|
|
>DIR C,Z,DIR1.CZ C STRING WITH ZERO END
|
|
|
|
|
|
>DIR D,A,PSDA DATA
|
|
|
|
|
|
>DIR D,O,PSDO DO
|
|
|
|
|
|
>DIR D,U,D.DUMMY DUMMY
|
|
|
|
|
|
>DIR E,D,D.END.DUMMY
|
|
|
|
|
|
>DIR E,L,PSEL ELSE
|
|
|
|
|
|
>DIR E,N,PSEN END OF SOURCE
|
|
|
|
|
|
>DIR E,P,D.END.PHASE
|
|
|
|
|
|
>DIR E,Q,PSEQ EQUATE
|
|
|
|
|
|
>DIR F,I,PSFI FIN
|
|
|
|
|
|
>DIR H,S,PSHS HEX STRING
|
|
|
|
|
|
>DIR I,N,PSIN INCLUDE
|
|
|
|
|
|
>DIR L,I,PSLI LIST ON,/ OFF
|
|
|
|
|
|
>DIR M,A,PSMA MACRO
|
|
|
|
|
|
>DIR O,P,PSOP OPCODE TABLE SELECT
|
|
|
|
|
|
>DIR O,R,PSOR ORIGIN
|
|
|
|
|
|
>DIR P,G,PSPG PAGE EJECT
|
|
|
|
|
|
>DIR P,H,D.PHASE PHASE
|
|
|
|
|
|
>DIR P,S,DIR1.PS PASCAL STRING
|
|
|
|
|
|
>DIR T,A,PSTA TARGET ADDRESS
|
|
|
|
|
|
>DIR T,F,PSTF TARGET FILE
|
|
|
|
|
|
>DIR T,I,PSTI TITLE
|
|
|
|
|
|
>DIR U,S,PSUSER USER DIRECTIVE
|
|
|
|
|
|
.HS 41 <<<TERMINATOR>>>
|
2022-03-06 22:28:52 +00:00
|
|
|
|
*--------------------------------
|
|
|
|
|
|
.ELSE
|
|
|
|
|
|
*--------------------------------
|
|
|
|
|
|
* DIRECTIVE TABLE
|
|
|
|
|
|
*--------------------------------
|
|
|
|
|
|
.MA DIR
|
|
|
|
|
|
.AS /]1/
|
|
|
|
|
|
.DA ]2-1
|
|
|
|
|
|
.EM
|
|
|
|
|
|
*---------------------------------
|
|
|
|
|
|
OPTBL.DIR
|
|
|
|
|
|
.HS 0402 ITEM SIZE, KEY SIZE
|
|
|
|
|
|
>DIR AS,PSAS ASCII STRING
|
|
|
|
|
|
>DIR AT,PSAT ASCII STRING WITH LAST BYTE
|
|
|
|
|
|
>DIR BS,PSBS BLOCK STORAGE
|
|
|
|
|
|
>DIR DA,PSDA DATA
|
|
|
|
|
|
>DIR DO,PSDO DO
|
|
|
|
|
|
>DIR DU,D.DUMMY DUMMY
|
|
|
|
|
|
>DIR ED,D.END.DUMMY
|
|
|
|
|
|
>DIR EL,PSEL ELSE
|
|
|
|
|
|
>DIR EN,PSEN END OF SOURCE
|
|
|
|
|
|
>DIR EP,D.END.PHASE
|
|
|
|
|
|
>DIR EQ,PSEQ EQUATE
|
|
|
|
|
|
>DIR FI,PSFI FIN
|
|
|
|
|
|
>DIR HS,PSHS HEX STRING
|
|
|
|
|
|
>DIR IN,PSIN INCLUDE
|
|
|
|
|
|
>DIR LI,PSLI LIST ON,/ OFF
|
|
|
|
|
|
>DIR MA,PSMA MACRO
|
|
|
|
|
|
>DIR OP,PSOP OPCODE TABLE SELECT
|
|
|
|
|
|
>DIR OR,PSOR ORIGIN
|
|
|
|
|
|
>DIR PG,PSPG PAGE EJECT
|
|
|
|
|
|
>DIR PH,D.PHASE PHASE
|
|
|
|
|
|
>DIR TA,PSTA TARGET ADDRESS
|
|
|
|
|
|
>DIR TF,PSTF TARGET FILE
|
|
|
|
|
|
>DIR TI,PSTI TITLE
|
|
|
|
|
|
>DIR US,PSUSER USER DIRECTIVE
|
|
|
|
|
|
.HS 00 MARK END OF TABLE
|
|
|
|
|
|
.FIN
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE usr/src/scmasm.31/scmasm.s.xtdir
|
|
|
|
|
|
LOAD usr/src/scmasm.31/scmasm.s
|
|
|
|
|
|
ASM
|
