S-C Macro Assembler 3.0 -- ASM2/X.PARAMETERS
1000 *SAVE X.PARAMETERS
1010 *--------------------------------
1020 * ENTRY POINTS AND USER EXITS
1030 *--------------------------------
1040 * HARD ENTRY
1050 HARD JSR HARD.INIT
1060 *--------------------------------
1070 * SOFT ENTRY
1080 JMP SOFT
1090 *--------------------------------
1100 * USER DEFINED COMMAND
1110 USR JMP SOFT
1120 *--------------------------------
1130 * USER PRINT ROUTINE
1140 PRT JMP SOFT
1150 *--------------------------------
1160 * USER ESC-U FUNCTION
1170 USER.ESC.U
1180 JMP RDL.ERR
1190 *--------------------------------
1200 * USER "." COMMAND
1210 USER.CMD JMP SOFT
1220 *--------------------------------
1230 * USER OBJECT CODE STORAGE
1240 USER.OBJECT.BYTE
1250 JMP STORE.OBJECT.BYTE
1260 *--------------------------------
1270 * USER ASSEMBLER DIRECTIVE
1280 PSUSER JMP CMNT
1290 *--------------------------------
1300 * TAB CONTROL CHARACTER AND TAB STOPS
1310 TAB.CHAR .DA #CHR.CTRL.I
1320 TAB.SETTINGS .DA #14,#18,#27,#32,#0
1330 *--------------------------------
1340 * USER COMMENT CHARACTER
1350 * (IN ESC-L FROM COLUMN 6)
1360 *--------------------------------
1370 USER.COM.DELIM .DA #CHR.DASH
1380 *--------------------------------
1390 * COMPRESSION LOWER LIMIT
1400 * =4 IF DESIRE COMPRESSION
1410 * =255 IF DO NOT DESIRE COMPRESSION
1420 *--------------------------------
1430 COMPRESSION.LIMIT .HS 04
1440 *--------------------------------
1450 * WILD CARD CHARACTER FOR SEARCH STRING
1460 *--------------------------------
1470 WILD.CARD .HS 17 CONTROL-W
1480 *--------------------------------
1490 * OUTPUT A SINGLE CHARACTER TO SCREEN
1500 *--------------------------------
1510 MY.COUT JMP MON.COUT
1520 *--------------------------------
1530 USER.MEM.LO .DA $0000
1540 USER.MEM.HI .DA $0000
1550 *--------------------------------
1560 * LINKAGE TO FULL SCREEN EDITOR
1570 *--------------------------------
1580 LINK.FSE
1590 JMP GNL <<>>
1600 *--------------------------------
1610 JMP GNC.UC
1620 JMP GNNB
1630 JMP CMNT
1640 JMP ERBA
1650 JMP EMIT
1660 *--------------------------------
1670 BOTTOM.OF.SCREEN
1680 .DA #23 CHANGE TO 31 OR 47 FOR LONGER SCREENS
1690 *--------------------------------