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 <<>> *-------------------------------- 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