mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-28 10:52:33 +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.31/scmasm.s.param
|
||
LOAD usr/src/scmasm.31/scmasm.s
|
||
ASM
|