mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-29 02:49:54 +00:00
77 lines
2.1 KiB
Plaintext
77 lines
2.1 KiB
Plaintext
|
NEW
|
|||
|
|
AUTO 3,1
|
|||
|
|
*--------------------------------------
|
|||
|
|
*--------------------------------
|
|||
|
|
* ENTRY POINTS AND USER EXITS
|
|||
|
|
*--------------------------------
|
|||
|
|
* HARD ENTRY
|
|||
|
|
HARD JSR HARD.INIT
|
|||
|
|
*--------------------------------
|
|||
|
|
* SOFT ENTRY
|
|||
|
|
JMP SOFT
|
|||
|
|
*--------------------------------
|
|||
|
|
* USER DEFINED COMMAND
|
|||
|
|
USR JMP SOFT
|
|||
|
|
*--------------------------------
|
|||
|
|
* USER PRINT ROUTINE
|
|||
|
|
PRT JMP SOFT
|
|||
|
|
*--------------------------------
|
|||
|
|
* USER ESC-U FUNCTION
|
|||
|
|
USER.ESC.U
|
|||
|
|
JMP RDL.ERR
|
|||
|
|
*--------------------------------
|
|||
|
|
* USER "." COMMAND
|
|||
|
|
USER.CMD JMP SOFT
|
|||
|
|
*--------------------------------
|
|||
|
|
* USER OBJECT CODE STORAGE
|
|||
|
|
USER.OBJECT.BYTE
|
|||
|
|
JMP STORE.OBJECT.BYTE
|
|||
|
|
*--------------------------------
|
|||
|
|
* USER ASSEMBLER DIRECTIVE
|
|||
|
|
PSUSER JMP CMNT
|
|||
|
|
*--------------------------------
|
|||
|
|
* TAB CONTROL CHARACTER AND TAB STOPS
|
|||
|
|
TAB.CHAR .DA #CHR.CTRL.I
|
|||
|
|
TAB.SETTINGS .DA #14,#18,#27,#32,#0
|
|||
|
|
*--------------------------------
|
|||
|
|
* USER COMMENT CHARACTER
|
|||
|
|
* (IN ESC-L FROM COLUMN 6)
|
|||
|
|
*--------------------------------
|
|||
|
|
USER.COM.DELIM .DA #CHR.DASH
|
|||
|
|
*--------------------------------
|
|||
|
|
* COMPRESSION LOWER LIMIT
|
|||
|
|
* =4 IF DESIRE COMPRESSION
|
|||
|
|
* =255 IF DO NOT DESIRE COMPRESSION
|
|||
|
|
*--------------------------------
|
|||
|
|
COMPRESSION.LIMIT .HS 04
|
|||
|
|
*--------------------------------
|
|||
|
|
* WILD CARD CHARACTER FOR SEARCH STRING
|
|||
|
|
*--------------------------------
|
|||
|
|
WILD.CARD .HS 17 CONTROL-W
|
|||
|
|
*--------------------------------
|
|||
|
|
* OUTPUT A SINGLE CHARACTER TO SCREEN
|
|||
|
|
*--------------------------------
|
|||
|
|
MY.COUT JMP MON.COUT
|
|||
|
|
*--------------------------------
|
|||
|
|
USER.MEM.LO .DA $0000
|
|||
|
|
USER.MEM.HI .DA $0000
|
|||
|
|
*--------------------------------
|
|||
|
|
* LINKAGE TO FULL SCREEN EDITOR
|
|||
|
|
*--------------------------------
|
|||
|
|
LINK.FSE
|
|||
|
|
JMP GNL <<<REPLACE WITH ADDRESS OF F.S.E.>>>
|
|||
|
|
*--------------------------------
|
|||
|
|
JMP GNC.UC
|
|||
|
|
JMP GNNB
|
|||
|
|
JMP CMNT
|
|||
|
|
JMP ERBA
|
|||
|
|
JMP EMIT
|
|||
|
|
*--------------------------------
|
|||
|
|
BOTTOM.OF.SCREEN
|
|||
|
|
.DA #23 CHANGE TO 31 OR 47 FOR LONGER SCREENS
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE usr/src/scmasm.30/scmasm.s.param
|
|||
|
|
LOAD usr/src/scmasm.30/scmasm.s
|
|||
|
|
ASM
|