164 lines
4.4 KiB
NASM
164 lines
4.4 KiB
NASM
|
TITLE COMMAND Transient Uninitialized DATA
|
|||
|
|
|
|||
|
|
INCLUDE COMSW.ASM
|
|||
|
|
.xlist
|
|||
|
|
.xcref
|
|||
|
|
INCLUDE DOSSYM.ASM
|
|||
|
|
INCLUDE COMEQU.ASM
|
|||
|
|
INCLUDE COMSEG.ASM
|
|||
|
|
.list
|
|||
|
|
.cref
|
|||
|
|
|
|||
|
|
; Uninitialized transient data
|
|||
|
|
TRANSPACE SEGMENT PUBLIC BYTE
|
|||
|
|
|
|||
|
|
PUBLIC UCOMBUF,COMBUF,USERDIR1,EXECPATH,HEADCALL,RESSEG,TPA,SWITCHAR
|
|||
|
|
PUBLIC DIRCHAR,EXEC_ADDR,RCH_ADDR,CHKDRV,RDEOF,IFNOTFLAG,FILTYP
|
|||
|
|
PUBLIC CURDRV,CONCAT,PARM1,ARGC,PARM2,COMSW,ARG1S,DESTSWITCH
|
|||
|
|
PUBLIC ARG2S,ALLSWITCH,ARGTS,CFLAG,DESTCLOSED,SPECDRV,BYTCNT
|
|||
|
|
PUBLIC NXTADD,FRSTSRCH,LINCNT,LINLEN,FILECNT,CHARBUF,DESTFCB2,IDLEN
|
|||
|
|
PUBLIC ID,COM,DEST,DESTNAME,DESTFCB,DESTDIR,GOTOLEN,PWDBUF,EXEFCB
|
|||
|
|
PUBLIC DIRBUF,SDIRBUF,BITS,PATHCNT,PATHPOS,PATHSW,FULLSCR
|
|||
|
|
PUBLIC DESTVARS,DESTISDIR,DESTSIZ,DESTTAIL,DESTINFO,DESTBUF
|
|||
|
|
PUBLIC DESTHAND,DESTISDEV,FIRSTDEST,MELCOPY,MELSTART,SRCVARS
|
|||
|
|
PUBLIC SRCISDIR,SRCSIZ,SRCTAIL,SRCINFO,SRCBUF,SRCHAND,SRCISDEV
|
|||
|
|
PUBLIC SCANBUF,SRCPT,INEXACT,APPEND,NOWRITE,BINARY,WRITTEN,TERMREAD
|
|||
|
|
PUBLIC ASCII,PLUS,CPDATE,CPTIME,BATHAND,STARTEL,ELCNT,ELPOS,SKPDEL
|
|||
|
|
PUBLIC SOURCE,STACK
|
|||
|
|
PUBLIC TRANSPACEEND
|
|||
|
|
PUBLIC INTERNATVARS
|
|||
|
|
|
|||
|
|
IF IBM
|
|||
|
|
PUBLIC ROM_CALL,ROM_IP,ROM_CS
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
IF KANJI
|
|||
|
|
PUBLIC KPARSE
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
ORG 0
|
|||
|
|
ZERO = $
|
|||
|
|
UCOMBUF DB COMBUFLEN+3 DUP(?) ; Raw console buffer
|
|||
|
|
COMBUF DB COMBUFLEN+3 DUP(?) ; Cooked console buffer
|
|||
|
|
USERDIR1 DB DIRSTRLEN+3 DUP(?) ; Storage for users current directory
|
|||
|
|
EXECPATH DB DIRSTRLEN+15 DUP(?) ; Path for external command
|
|||
|
|
|
|||
|
|
; Variables passed up from resident
|
|||
|
|
HEADCALL LABEL DWORD
|
|||
|
|
DW ?
|
|||
|
|
RESSEG DW ?
|
|||
|
|
TPA DW ?
|
|||
|
|
SWITCHAR DB ?
|
|||
|
|
DIRCHAR DB ?
|
|||
|
|
EXEC_ADDR DD ?
|
|||
|
|
RCH_ADDR DD ?
|
|||
|
|
|
|||
|
|
CHKDRV DB ?
|
|||
|
|
RDEOF LABEL BYTE ; Misc flags
|
|||
|
|
IFNOTFLAG LABEL BYTE
|
|||
|
|
FILTYP DB ?
|
|||
|
|
CURDRV DB ?
|
|||
|
|
CONCAT LABEL BYTE
|
|||
|
|
PARM1 DB ?
|
|||
|
|
ARGC LABEL BYTE
|
|||
|
|
PARM2 DB ?
|
|||
|
|
COMSW DW ? ; Switches between command and 1st arg
|
|||
|
|
ARG1S DW ? ; Switches between 1st and 2nd arg
|
|||
|
|
DESTSWITCH LABEL WORD
|
|||
|
|
ARG2S DW ? ; Switches after 2nd arg
|
|||
|
|
ALLSWITCH LABEL WORD
|
|||
|
|
ARGTS DW ? ; ALL switches except for COMSW
|
|||
|
|
CFLAG DB ?
|
|||
|
|
DESTCLOSED LABEL BYTE
|
|||
|
|
SPECDRV DB ?
|
|||
|
|
BYTCNT DW ? ; Size of buffer between RES and TRANS
|
|||
|
|
NXTADD DW ?
|
|||
|
|
FRSTSRCH DB ?
|
|||
|
|
LINCNT DB ?
|
|||
|
|
LINLEN DB ?
|
|||
|
|
FILECNT DW ?
|
|||
|
|
CHARBUF DB 80 DUP (?) ;line byte character buffer for xenix write
|
|||
|
|
DESTFCB2 LABEL BYTE
|
|||
|
|
IDLEN DB ?
|
|||
|
|
ID DB 8 DUP(?)
|
|||
|
|
COM DB 3 DUP(?)
|
|||
|
|
DEST DB 37 DUP(?)
|
|||
|
|
DESTNAME DB 11 DUP(?)
|
|||
|
|
DESTFCB LABEL BYTE
|
|||
|
|
DESTDIR DB DIRSTRLEN DUP(?) ; Directory for PATH searches
|
|||
|
|
GOTOLEN LABEL WORD
|
|||
|
|
PWDBUF LABEL BYTE
|
|||
|
|
EXEFCB LABEL WORD
|
|||
|
|
DIRBUF DB DIRSTRLEN+3 DUP(?)
|
|||
|
|
SDIRBUF DB 12 DUP(?)
|
|||
|
|
BITS DW ?
|
|||
|
|
PATHCNT DW ?
|
|||
|
|
PATHPOS DW ?
|
|||
|
|
PATHSW DW ?
|
|||
|
|
FULLSCR DW ?
|
|||
|
|
|
|||
|
|
IF IBM
|
|||
|
|
ROM_CALL DB ? ; flag for rom function
|
|||
|
|
ROM_IP DW ?
|
|||
|
|
ROM_CS DW ?
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
DESTVARS LABEL BYTE
|
|||
|
|
DESTISDIR DB ?
|
|||
|
|
DESTSIZ DB ?
|
|||
|
|
DESTTAIL DW ?
|
|||
|
|
DESTINFO DB ?
|
|||
|
|
DESTBUF DB DIRSTRLEN + 20 DUP (?)
|
|||
|
|
|
|||
|
|
DESTHAND DW ?
|
|||
|
|
DESTISDEV DB ?
|
|||
|
|
FIRSTDEST DB ?
|
|||
|
|
MELCOPY DB ?
|
|||
|
|
MELSTART DW ?
|
|||
|
|
|
|||
|
|
SRCVARS LABEL BYTE
|
|||
|
|
SRCISDIR DB ?
|
|||
|
|
SRCSIZ DB ?
|
|||
|
|
SRCTAIL DW ?
|
|||
|
|
SRCINFO DB ?
|
|||
|
|
SRCBUF DB DIRSTRLEN + 20 DUP (?)
|
|||
|
|
|
|||
|
|
SRCHAND DW ?
|
|||
|
|
SRCISDEV DB ?
|
|||
|
|
|
|||
|
|
SCANBUF DB DIRSTRLEN + 20 DUP (?)
|
|||
|
|
|
|||
|
|
SRCPT DW ?
|
|||
|
|
INEXACT DB ?
|
|||
|
|
APPEND DB ?
|
|||
|
|
NOWRITE DB ?
|
|||
|
|
BINARY DB ?
|
|||
|
|
WRITTEN DB ?
|
|||
|
|
TERMREAD DB ?
|
|||
|
|
ASCII DB ?
|
|||
|
|
PLUS DB ?
|
|||
|
|
CPDATE DW ?
|
|||
|
|
CPTIME DW ?
|
|||
|
|
BATHAND DW ? ; Batch handle
|
|||
|
|
STARTEL DW ?
|
|||
|
|
ELCNT DB ?
|
|||
|
|
ELPOS DB ?
|
|||
|
|
SKPDEL DB ?
|
|||
|
|
SOURCE DB 11 DUP(?)
|
|||
|
|
|
|||
|
|
IF KANJI
|
|||
|
|
KPARSE DB ?
|
|||
|
|
ENDIF
|
|||
|
|
|
|||
|
|
INTERNATVARS internat_block <>
|
|||
|
|
DB (internat_block_max - ($ - INTERNATVARS)) DUP (?)
|
|||
|
|
|
|||
|
|
|
|||
|
|
DB 80H DUP(0) ; Init to 0 to make sure the linker is not fooled
|
|||
|
|
STACK LABEL WORD
|
|||
|
|
|
|||
|
|
TRANSPACEEND LABEL BYTE
|
|||
|
|
|
|||
|
|
TRANSPACE ENDS
|
|||
|
|
END
|
|||
|
|
|