A2osX/SCMASM.30/SCMASM.S.XTDIR.txt

86 lines
2.5 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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
*--------------------------------
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 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 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>>>
*--------------------------------
.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.30/scmasm.s.xtdir
LOAD usr/src/scmasm.30/scmasm.s
ASM