
 1000  *---------------------------------
 1010  *      & COMMAND INTERFACE
 1020  *
 1030  *      &<COMMAND STRING>
 1040  *
 1050  *---------------------------------
 1060  *
 1070  *      ORIGIN MUST BE SET SO THAT LAST BYTE
 1080  *      IS AT $0FFF.
 1085         .OR $FD1
 1090  *---------------------------------
 1100         LDA #AMPERSAND.INTERFACE-$103D
 1110         STA $103C
 1120         RTS
 1130  *---------------------------------
 1140         JMP $1000
 1150  *---------------------------------
 1160  AOPTBL .HS 0503
 1170         .AS /EDI/
 1180         .DA EDIT-1
 1190         .AS /COP/
 1200         .DA COPY-1
 1210         .AS /SYM/
 1220         .DA STPRNT-1
 1230         .HS 00       END OF TABLE
 1240  *---------------------------------
 1250  EDIT   .EQ $1010
 1260  COPY   .EQ $1010
 1270  STPRNT .EQ $1E4E
 3000  *---------------------------------
 3010  AMPERSAND.INTERFACE
 3020         CMP #'&
 3030         BEQ .1
 3040         JMP $1063
 3050  .1     LDA #AOPTBL
 3060         STA $02
 3070         LDA /AOPTBL
 3080         STA $03
 3090         LDA #1
 3100         JMP $1047

