blob: 1a69b7758931452adcbdafbcd2d7b764154c24f2 (plain) (blame)

ofs	hex dump	ascii
0000	54 49 54 4c 45 20 20 20 43 4f 4d 4d 41 4e 44 20 4c 61 6e 67 75 61 67 65 20 6d 69 64 69 66 69 61	TITLE...COMMAND.Language.midifia
0020	62 6c 65 20 43 6f 64 65 20 54 72 61 6e 73 69 65 6e 74 0d 0a 0d 0a 0d 0a 2e 78 6c 69 73 74 0d 0a	ble.Code.Transient.......xlist..
0040	2e 78 63 72 65 66 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 4c 55 44 45 20 44 4f 53 53 59 4d 2e 41	.xcref..........INCLUDE.DOSSYM.A
0060	53 4d 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 4c 55 44 45 20 44 45 56 53 59 4d 2e 41 53 4d 0d 0a	SM..........INCLUDE.DEVSYM.ASM..
0080	20 20 20 20 20 20 20 20 49 4e 43 4c 55 44 45 20 43 4f 4d 53 45 47 2e 41 53 4d 0d 0a 20 20 20 20	........INCLUDE.COMSEG.ASM......
00a0	20 20 20 20 49 4e 43 4c 55 44 45 20 43 4f 4d 53 57 2e 41 53 4d 0d 0a 2e 6c 69 73 74 0d 0a 2e 63	....INCLUDE.COMSW.ASM...list...c
00c0	72 65 66 0d 0a 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 4c 55 44 45 20 43 4f 4d 45 51 55 2e 41 53	ref............INCLUDE.COMEQU.AS
00e0	4d 0d 0a 0d 0a 44 41 54 41 52 45 53 20 53 45 47 4d 45 4e 54 20 50 55 42 4c 49 43 0d 0a 20 20 20	M....DATARES.SEGMENT.PUBLIC.....
0100	20 20 20 20 20 45 58 54 52 4e 20 20 20 45 43 48 4f 46 4c 41 47 3a 42 59 54 45 0d 0a 44 41 54 41	.....EXTRN...ECHOFLAG:BYTE..DATA
0120	52 45 53 20 45 4e 44 53 0d 0a 0d 0a 54 52 41 4e 44 41 54 41 20 20 20 20 20 20 20 20 53 45 47 4d	RES.ENDS....TRANDATA........SEGM
0140	45 4e 54 20 50 55 42 4c 49 43 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20 20 53 55 52 45	ENT.PUBLIC..........EXTRN...SURE
0160	4d 45 53 3a 42 59 54 45 2c 4e 4f 54 46 4e 44 3a 42 59 54 45 2c 45 43 48 4f 4d 45 53 3a 42 59 54	MES:BYTE,NOTFND:BYTE,ECHOMES:BYT
0180	45 2c 43 54 52 4c 43 4d 45 53 3a 42 59 54 45 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20	E,CTRLCMES:BYTE..........EXTRN..
01a0	20 4f 4e 4d 45 53 3a 42 59 54 45 2c 4f 46 46 4d 45 53 3a 42 59 54 45 2c 56 45 52 49 4d 45 53 3a	.ONMES:BYTE,OFFMES:BYTE,VERIMES:
01c0	42 59 54 45 2c 42 41 44 5f 4f 4e 5f 4f 46 46 3a 42 59 54 45 0d 0a 20 20 20 20 20 20 20 20 45 58	BYTE,BAD_ON_OFF:BYTE..........EX
01e0	54 52 4e 20 20 20 56 4f 4c 4d 45 53 3a 42 59 54 45 2c 47 4f 54 56 4f 4c 3a 42 59 54 45 2c 4e 4f	TRN...VOLMES:BYTE,GOTVOL:BYTE,NO
0200	56 4f 4c 3a 42 59 54 45 2c 57 65 65 6b 54 61 62 3a 42 59 54 45 0d 0a 20 20 20 20 20 20 20 20 45	VOL:BYTE,WeekTab:BYTE..........E
0220	58 54 52 4e 20 20 20 43 75 72 44 61 74 5f 4d 69 64 3a 42 59 54 45 0d 0a 54 52 41 4e 44 41 54 41	XTRN...CurDat_Mid:BYTE..TRANDATA
0240	20 20 20 20 20 20 20 20 45 4e 44 53 0d 0a 0d 0a 54 52 41 4e 53 50 41 43 45 20 20 20 20 20 20 20	........ENDS....TRANSPACE.......
0260	53 45 47 4d 45 4e 54 20 50 55 42 4c 49 43 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20 20	SEGMENT.PUBLIC..........EXTRN...
0280	52 45 53 53 45 47 3a 57 4f 52 44 2c 43 55 52 44 52 56 3a 42 59 54 45 2c 44 49 52 42 55 46 3a 42	RESSEG:WORD,CURDRV:BYTE,DIRBUF:B
02a0	59 54 45 2c 43 48 41 52 42 55 46 3a 42 59 54 45 0d 0a 54 52 41 4e 53 50 41 43 45 20 20 20 20 20	YTE,CHARBUF:BYTE..TRANSPACE.....
02c0	20 20 45 4e 44 53 0d 0a 0d 0a 54 52 41 4e 43 4f 44 45 20 20 20 20 20 20 20 20 53 45 47 4d 45 4e	..ENDS....TRANCODE........SEGMEN
02e0	54 20 50 55 42 4c 49 43 20 42 59 54 45 0d 0a 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20	T.PUBLIC.BYTE............EXTRN..
0300	20 50 52 49 4e 54 3a 4e 45 41 52 2c 53 43 41 4e 4f 46 46 3a 4e 45 41 52 2c 43 52 4c 46 32 3a 4e	.PRINT:NEAR,SCANOFF:NEAR,CRLF2:N
0320	45 41 52 2c 52 45 53 54 55 44 49 52 3a 4e 45 41 52 2c 43 45 52 52 4f 52 3a 4e 45 41 52 0d 0a 20	EAR,RESTUDIR:NEAR,CERROR:NEAR...
0340	20 20 20 20 20 20 20 45 58 54 52 4e 20 20 20 43 52 50 52 49 4e 54 3a 4e 45 41 52 2c 4f 55 54 3a	.......EXTRN...CRPRINT:NEAR,OUT:
0360	4e 45 41 52 2c 5a 50 52 49 4e 54 3a 4e 45 41 52 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20	NEAR,ZPRINT:NEAR..........EXTRN.
0380	20 20 45 52 52 4f 52 5f 50 52 49 4e 54 3a 4e 45 41 52 2c 4d 65 73 54 72 61 6e 3a 4e 45 41 52 2c	..ERROR_PRINT:NEAR,MesTran:NEAR,
03a0	50 5f 44 61 74 65 3a 4e 45 41 52 0d 0a 0d 0a 20 20 20 20 20 20 20 20 49 46 20 20 20 20 20 20 4b	P_Date:NEAR............IF......K
03c0	41 4e 4a 49 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20 20 54 45 53 54 4b 41 4e 4a 3a 4e	ANJI..........EXTRN...TESTKANJ:N
03e0	45 41 52 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 20 20 50 55 42 4c	EAR..........ENDIF..........PUBL
0400	49 43 20 20 4e 4f 54 45 53 54 32 2c 45 43 48 4f 2c 43 4e 54 52 4c 43 2c 56 45 52 49 46 59 2c 50	IC..NOTEST2,ECHO,CNTRLC,VERIFY,P
0420	52 49 4e 54 56 4f 4c 2c 47 65 74 44 61 74 65 2c 50 52 49 4e 54 5f 44 41 54 45 0d 0a 0d 0a 41 53	RINTVOL,GetDate,PRINT_DATE....AS
0440	53 55 4d 45 20 20 43 53 3a 54 52 41 4e 47 52 4f 55 50 2c 44 53 3a 54 52 41 4e 47 52 4f 55 50 2c	SUME..CS:TRANGROUP,DS:TRANGROUP,
0460	45 53 3a 54 52 41 4e 47 52 4f 55 50 2c 53 53 3a 4e 4f 54 48 49 4e 47 0d 0a 0d 0a 3b 2a 2a 2a 2a	ES:TRANGROUP,SS:NOTHING....;****
0480	2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a	********************************
04a0	2a 2a 2a 0d 0a 3b 20 41 52 45 20 59 4f 55 20 53 55 52 45 20 70 72 6f 6d 70 74 20 77 68 65 6e 20	***..;.ARE.YOU.SURE.prompt.when.
04c0	64 65 6c 65 74 69 6e 67 20 2a 2e 2a 0d 0a 0d 0a 4e 4f 54 45 53 54 32 3a 0d 0a 20 20 20 20 20 20	deleting.*.*....NOTEST2:........
04e0	20 20 4d 4f 56 20 20 20 20 20 43 58 2c 31 31 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20	..MOV.....CX,11..........MOV....
0500	20 53 49 2c 46 43 42 2b 31 0d 0a 41 4d 42 53 50 45 43 3a 0d 0a 20 20 20 20 20 20 20 20 4c 4f 44	.SI,FCB+1..AMBSPEC:..........LOD
0520	53 42 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 22 3f 22 0d 0a 20 20 20 20	SB..........CMP.....AL,"?"......
0540	20 20 20 20 4a 4e 5a 20 20 20 20 20 41 4c 4c 46 49 4c 0d 0a 20 20 20 20 20 20 20 20 4c 4f 4f 50	....JNZ.....ALLFIL..........LOOP
0560	20 20 20 20 41 4d 42 53 50 45 43 0d 0a 41 4c 4c 46 49 4c 3a 0d 0a 20 20 20 20 20 20 20 20 43 4d	....AMBSPEC..ALLFIL:..........CM
0580	50 20 20 20 20 20 43 58 2c 30 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 4e 4f 50 52	P.....CX,0..........JNZ.....NOPR
05a0	4d 50 54 0d 0a 41 53 4b 41 47 4e 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58	MPT..ASKAGN:..........MOV.....DX
05c0	2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 53 55 52 45 4d 45 53 20 3b 20 22 41 72 65	,OFFSET.TRANGROUP:SUREMES.;."Are
05e0	20 79 6f 75 20 73 75 72 65 20 28 59 2f 4e 29 3f 22 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20	.you.sure.(Y/N)?"..........CALL.
0600	20 20 20 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 53 49 2c 38 30 48	...PRINT..........MOV.....SI,80H
0620	0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 53 49 0d 0a 20 20 20 20 20 20 20	..........MOV.....DX,SI.........
0640	20 4d 4f 56 20 20 20 20 20 57 4f 52 44 20 50 54 52 20 5b 53 49 5d 2c 31 32 30 20 20 20 20 20 20	.MOV.....WORD.PTR.[SI],120......
0660	20 3b 20 7a 65 72 6f 20 6c 65 6e 67 74 68 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20	.;.zero.length..........MOV.....
0680	41 58 2c 28 53 54 44 5f 43 4f 4e 5f 49 4e 50 55 54 5f 46 4c 55 53 48 20 53 48 4c 20 38 29 20 4f	AX,(STD_CON_INPUT_FLUSH.SHL.8).O
06a0	52 20 53 54 44 5f 43 4f 4e 5f 53 54 52 49 4e 47 5f 49 4e 50 55 54 0d 0a 20 20 20 20 20 20 20 20	R.STD_CON_STRING_INPUT..........
06c0	49 4e 54 20 20 20 20 20 69 6e 74 5f 63 6f 6d 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 4c 4f 44	INT.....int_command..........LOD
06e0	53 57 0d 0a 20 20 20 20 20 20 20 20 4f 52 20 20 20 20 20 20 41 48 2c 41 48 0d 0a 20 20 20 20 20	SW..........OR......AH,AH.......
0700	20 20 20 4a 5a 20 20 20 20 20 20 41 53 4b 41 47 4e 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20	...JZ......ASKAGN..........CALL.
0720	20 20 20 53 43 41 4e 4f 46 46 0d 0a 20 20 20 20 20 20 20 20 4f 52 20 20 20 20 20 20 41 4c 2c 32	...SCANOFF..........OR......AL,2
0740	30 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 43 6f 6e 76 65 72 74 20 74 6f	0H..................;.Convert.to
0760	20 6c 6f 77 65 72 20 63 61 73 65 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c	.lower.case..........CMP.....AL,
0780	27 6e 27 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 52 45 54 45 52 41 0d 0a 20 20 20	'n'..........JZ......RETERA.....
07a0	20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 27 79 27 0d 0a 20 20 20 20 20 20 20 20 50 55 53	.....CMP.....AL,'y'..........PUS
07c0	48 46 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 43 52 4c 46 32 0d 0a 20 20 20 20 20	HF..........CALL....CRLF2.......
07e0	20 20 20 50 4f 50 46 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 41 53 4b 41 47 4e 0d	...POPF..........JNZ.....ASKAGN.
0800	0a 4e 4f 50 52 4d 50 54 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 48 2c 46 43	.NOPRMPT:..........MOV.....AH,FC
0820	42 5f 44 45 4c 45 54 45 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 46 43 42	B_DELETE..........MOV.....DX,FCB
0840	0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20 69 6e 74 5f 63 6f 6d 6d 61 6e 64 0d 0a 20	..........INT.....int_command...
0860	20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 41 58 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20	.......PUSH....AX..........CALL.
0880	20 20 20 52 45 53 54 55 44 49 52 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 41 58 0d	...RESTUDIR..........POP.....AX.
08a0	0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 54 52 41 4e 47	.........MOV.....DX,OFFSET.TRANG
08c0	52 4f 55 50 3a 4e 4f 54 46 4e 44 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 41 4c 0d	ROUP:NOTFND..........INC.....AL.
08e0	0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 43 45 52 52 4f 52 4a 0d 0a 52 45 54 45 52 41	.........JZ......CERRORJ..RETERA
0900	3a 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a	:..........RET......;***********
0920	2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a	********************************
0940	2a 2a 2a 2a 2a 0d 0a 3b 20 45 43 48 4f 2c 20 42 52 45 41 4b 2c 20 61 6e 64 20 56 45 52 49 46 59	*****..;.ECHO,.BREAK,.and.VERIFY
0960	20 63 6f 6d 6d 61 6e 64 73 2e 20 43 68 65 63 6b 20 66 6f 72 20 22 4f 4e 22 20 61 6e 64 20 22 4f	.commands..Check.for."ON".and."O
0980	46 46 22 0d 0a 0d 0a 45 43 48 4f 3a 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 54 52 41 4e 47 52 4f	FF"....ECHO:..ASSUME..DS:TRANGRO
09a0	55 50 2c 45 53 3a 54 52 41 4e 47 52 4f 55 50 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20	UP,ES:TRANGROUP..........CALL...
09c0	20 4f 4e 5f 4f 46 46 0d 0a 20 20 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 44 4f 45 4d 45 53 0d	.ON_OFF..........JC......DOEMES.
09e0	0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 53 2c 5b 52 45 53 53 45 47 5d 0d 0a 41 53	.........MOV.....DS,[RESSEG]..AS
0a00	53 55 4d 45 20 20 44 53 3a 52 45 53 47 52 4f 55 50 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20	SUME..DS:RESGROUP..........JNZ..
0a20	20 20 20 45 43 48 5f 4f 46 46 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 45 43 48	...ECH_OFF..........MOV.....[ECH
0a40	4f 46 4c 41 47 5d 2c 31 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 45 43 48 5f 4f 46 46 3a 0d	OFLAG],1..........RET..ECH_OFF:.
0a60	0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 45 43 48 4f 46 4c 41 47 5d 2c 30 0d 0a 20	.........MOV.....[ECHOFLAG],0...
0a80	20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 54 52 41 4e 47 52 4f	.......RET....ASSUME..DS:TRANGRO
0aa0	55 50 0d 0a 44 4f 45 4d 45 53 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c 2c	UP..DOEMES:..........MOV.....AL,
0ac0	42 59 54 45 20 50 54 52 20 44 53 3a 5b 38 30 48 5d 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20	BYTE.PTR.DS:[80H]..........CMP..
0ae0	20 20 20 41 4c 2c 32 0d 0a 20 20 20 20 20 20 20 20 4a 42 20 20 20 20 20 20 50 45 43 48 4f 20 20	...AL,2..........JB......PECHO..
0b00	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 47 6f 74 61 20 68 61 76 65 20 61 74 20	.................;.Gota.have.at.
0b20	6c 65 61 73 74 20 32 20 63 68 61 72 61 63 74 65 72 73 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20	least.2.characters..........MOV.
0b40	20 20 20 20 44 58 2c 38 32 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 6b	....DX,82H..................;.Sk
0b60	69 70 20 6f 6e 65 20 63 68 61 72 20 61 66 74 65 72 20 22 45 43 48 4f 22 0d 0a 20 20 20 20 20 20	ip.one.char.after."ECHO"........
0b80	20 20 43 41 4c 4c 20 20 20 20 43 52 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20	..CALL....CRPRINT..........JMP..
0ba0	20 20 20 43 52 4c 46 32 0d 0a 0d 0a 50 45 43 48 4f 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20	...CRLF2....PECHO:..........MOV.
0bc0	20 20 20 20 44 53 2c 5b 52 45 53 53 45 47 5d 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 52 45 53 47	....DS,[RESSEG]..ASSUME..DS:RESG
0be0	52 4f 55 50 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 4c 2c 5b 45 43 48 4f 46 4c	ROUP..........MOV.....BL,[ECHOFL
0c00	41 47 5d 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 43 53 0d 0a 20 20 20 20 20 20 20	AG]..........PUSH....CS.........
0c20	20 50 4f 50 20 20 20 20 20 44 53 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 54 52 41 4e 47 52 4f 55	.POP.....DS..ASSUME..DS:TRANGROU
0c40	50 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 54 52 41	P..........MOV.....DX,OFFSET.TRA
0c60	4e 47 52 4f 55 50 3a 45 43 48 4f 4d 45 53 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20	NGROUP:ECHOMES..........JMP.....
0c80	53 48 4f 52 54 20 50 59 4e 0d 0a 0d 0a 0d 0a 43 45 52 52 4f 52 4a 3a 0d 0a 20 20 20 20 20 20 20	SHORT.PYN......CERRORJ:.........
0ca0	20 4a 4d 50 20 20 20 20 20 43 45 52 52 4f 52 0d 0a 0d 0a 3b 20 69 73 20 72 65 73 74 20 6f 66 20	.JMP.....CERROR....;.is.rest.of.
0cc0	6c 69 6e 65 20 62 6c 61 6e 6b 3f 0d 0a 49 73 42 6c 61 6e 6b 3a 0d 0a 20 20 20 20 20 20 20 20 4d	line.blank?..IsBlank:..........M
0ce0	4f 56 20 20 20 20 20 53 49 2c 38 31 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b	OV.....SI,81h..................;
0d00	20 70 6f 69 6e 74 20 61 74 20 74 65 78 74 20 73 70 6f 74 0d 0a 20 20 20 20 20 20 20 20 43 41 4c	.point.at.text.spot..........CAL
0d20	4c 20 20 20 20 53 43 41 4e 4f 46 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73	L....SCANOFF.................;.s
0d40	6b 69 70 20 73 65 70 61 72 61 74 6f 72 73 0d 0a 20 20 20 20 20 20 20 20 53 55 42 20 20 20 20 20	kip.separators..........SUB.....
0d60	53 49 2c 38 31 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 75 6d 62 65 72	SI,81h..................;.number
0d80	20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 61 64 76 61 6e 63 65 64 0d 0a 20 20 20 20 20 20 20	.of.characters.advanced.........
0da0	20 4d 4f 56 20 20 20 20 20 43 58 2c 53 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.MOV.....CX,SI..................
0dc0	20 3b 20 70 75 74 20 63 6f 75 6e 74 20 69 6e 20 62 79 74 65 20 61 64 64 72 65 73 73 61 62 6c 65	.;.put.count.in.byte.addressable
0de0	20 73 70 6f 74 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 43 4c 2c 44 53 3a 5b 38 30	.spot..........CMP.....CL,DS:[80
0e00	68 5d 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6d 70 61 72 65 20 77 69 74 68 20 63 6f	h].............;.compare.with.co
0e20	75 6e 74 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20	unt..........return.............
0e40	20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 79 65 21 0d 0a 0d 0a 3b 54 68 65 20 42 52 45 41	.............;.bye!....;The.BREA
0e60	4b 20 63 6f 6d 6d 61 6e 64 0d 0a 43 4e 54 52 4c 43 3a 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c	K.command..CNTRLC:..........CALL
0e80	20 20 20 20 4f 4e 5f 4f 46 46 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 28	....ON_OFF..........MOV.....AX,(
0ea0	53 45 54 5f 43 54 52 4c 5f 43 5f 54 52 41 50 50 49 4e 47 20 53 48 4c 20 38 29 20 4f 52 20 31 0d	SET_CTRL_C_TRAPPING.SHL.8).OR.1.
0ec0	0a 20 20 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 50 43 4e 54 52 4c 43 0d 0a 20 20 20 20 20 20	.........JC......PCNTRLC........
0ee0	20 20 4a 4e 5a 20 20 20 20 20 43 4e 54 52 4c 43 5f 4f 46 46 0d 0a 20 20 20 20 20 20 20 20 4d 4f	..JNZ.....CNTRLC_OFF..........MO
0f00	56 20 20 20 20 20 44 4c 2c 31 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20 69 6e 74 5f	V.....DL,1..........INT.....int_
0f20	63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 65 74 20 5e 43 0d 0a 20 20	command.............;.Set.^C....
0f40	20 20 20 20 20 20 52 45 54 0d 0a 43 4e 54 52 4c 43 5f 4f 46 46 3a 0d 0a 20 20 20 20 20 20 20 20	......RET..CNTRLC_OFF:..........
0f60	58 4f 52 20 20 20 20 20 44 4c 2c 44 4c 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20 69	XOR.....DL,DL..........INT.....i
0f80	6e 74 5f 63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 54 75 72 6e 20 6f 66	nt_command.............;.Turn.of
0fa0	66 20 5e 43 20 63 68 65 63 6b 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 50 43 4e 54 52	f.^C.check..........RET....PCNTR
0fc0	4c 43 3a 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 49 73 42 6c 61 6e 6b 20 20 20 20	LC:..........CALL....IsBlank....
0fe0	20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 73 74 20 6f 66 20 6c 69 6e 65 20 62 6c 61 6e	.............;.rest.of.line.blan
1000	6b 3f 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 43 45 52 52 4f 52 4a 20 20 20 20 20	k?..........JNZ.....CERRORJ.....
1020	20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 6f 2c 20 6f 6f 70 73 21 0d 0a 20 20 20 20 20 20 20	............;.no,.oops!.........
1040	20 58 4f 52 20 20 20 20 20 41 4c 2c 41 4c 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20	.XOR.....AL,AL..........INT.....
1060	69 6e 74 5f 63 6f 6d 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 4c 2c	int_command..........MOV.....BL,
1080	44 4c 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 54 52	DL..........MOV.....DX,OFFSET.TR
10a0	41 4e 47 52 4f 55 50 3a 43 54 52 4c 43 4d 45 53 0d 0a 50 59 4e 3a 0d 0a 20 20 20 20 20 20 20 20	ANGROUP:CTRLCMES..PYN:..........
10c0	43 41 4c 4c 20 20 20 20 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44	CALL....PRINT..........MOV.....D
10e0	58 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 4f 4e 4d 45 53 0d 0a 20 20 20 20 20 20	X,OFFSET.TRANGROUP:ONMES........
1100	20 20 4f 52 20 20 20 20 20 20 42 4c 2c 42 4c 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20	..OR......BL,BL..........JNZ....
1120	20 50 52 49 4e 54 56 41 4c 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46	.PRINTVAL..........MOV.....DX,OF
1140	46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 4f 46 46 4d 45 53 0d 0a 50 52 49 4e 54 56 41 4c 3a	FSET.TRANGROUP:OFFMES..PRINTVAL:
1160	0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 50 52 49 4e 54 0d 0a 0d 0a 56 45 52 49 46	..........JMP.....PRINT....VERIF
1180	59 3a 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 4f 4e 5f 4f 46 46 0d 0a 20 20 20 20	Y:..........CALL....ON_OFF......
11a0	20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 28 53 45 54 5f 56 45 52 49 46 59 5f 4f 4e 5f 57 52	....MOV.....AX,(SET_VERIFY_ON_WR
11c0	49 54 45 20 53 48 4c 20 38 29 20 4f 52 20 31 0d 0a 20 20 20 20 20 20 20 20 4a 43 20 20 20 20 20	ITE.SHL.8).OR.1..........JC.....
11e0	20 50 56 45 52 49 46 59 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 56 45 52 5f 4f 46	.PVERIFY..........JNZ.....VER_OF
1200	46 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20 69 6e 74 5f 63 6f 6d 6d 61 6e 64 20 20	F..........INT.....int_command..
1220	20 20 20 20 20 20 20 20 20 20 20 3b 20 53 65 74 20 76 65 72 69 66 79 0d 0a 20 20 20 20 20 20 20	...........;.Set.verify.........
1240	20 52 45 54 0d 0a 56 45 52 5f 4f 46 46 3a 0d 0a 20 20 20 20 20 20 20 20 44 45 43 20 20 20 20 20	.RET..VER_OFF:..........DEC.....
1260	41 4c 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20 69 6e 74 5f 63 6f 6d 6d 61 6e 64 20	AL..........INT.....int_command.
1280	20 20 20 20 20 20 20 20 20 20 20 20 3b 20 54 75 72 6e 20 6f 66 66 20 76 65 72 69 66 79 20 61 66	............;.Turn.off.verify.af
12a0	74 65 72 20 77 72 69 74 65 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 50 56 45 52 49 46	ter.write..........RET....PVERIF
12c0	59 3a 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 49 73 42 6c 61 6e 6b 20 20 20 20 20	Y:..........CALL....IsBlank.....
12e0	20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 73 20 72 65 73 74 20 6f 66 20 6c 69 6e 65 20 62 6c	............;.is.rest.of.line.bl
1300	61 6e 6b 3f 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 43 45 52 52 4f 52 4a 20 20 20	ank?..........JNZ.....CERRORJ...
1320	20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 6f 70 65 2e 2e 2e 0d 0a 20 20 20 20 20 20 20	..............;.nope............
1340	20 4d 4f 56 20 20 20 20 20 41 48 2c 47 45 54 5f 56 45 52 49 46 59 5f 4f 4e 5f 57 52 49 54 45 0d	.MOV.....AH,GET_VERIFY_ON_WRITE.
1360	0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20 69 6e 74 5f 63 6f 6d 6d 61 6e 64 0d 0a 20 20	.........INT.....int_command....
1380	20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 4c 2c 41 4c 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56	......MOV.....BL,AL..........MOV
13a0	20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 56 45 52 49 4d 45 53	.....DX,OFFSET.TRANGROUP:VERIMES
13c0	0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 50 59 4e 0d 0a 0d 0a 4f 4e 5f 4f 46 46 3a	..........JMP.....PYN....ON_OFF:
13e0	0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 53 49 2c 46 43 42 2b 31 0d 0a 20 20 20 20	..........MOV.....SI,FCB+1......
1400	20 20 20 20 4c 4f 44 53 42 0d 0a 20 20 20 20 20 20 20 20 4f 52 20 20 20 20 20 20 41 4c 2c 32 30	....LODSB..........OR......AL,20
1420	48 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 27 6f 27 0d 0a 20 20 20 20 20	H..........CMP.....AL,'o'.......
1440	20 20 20 4a 4e 5a 20 20 20 20 20 42 41 44 4f 4e 46 0d 0a 20 20 20 20 20 20 20 20 4c 4f 44 53 57	...JNZ.....BADONF..........LODSW
1460	0d 0a 20 20 20 20 20 20 20 20 4f 52 20 20 20 20 20 20 41 58 2c 32 30 32 30 48 20 20 20 20 20 20	..........OR......AX,2020H......
1480	20 20 20 20 20 20 20 20 20 20 3b 20 43 6f 6e 76 65 72 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73	..........;.Convert.to.lower.cas
14a0	65 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 27 6e 27 0d 0a 20 20 20 20 20	e..........CMP.....AL,'n'.......
14c0	20 20 20 4a 4e 5a 20 20 20 20 20 4f 46 46 43 48 4b 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20	...JNZ.....OFFCHK..........CMP..
14e0	20 20 20 41 48 2c 27 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 27 20 27	...AH,'.'..................;.'.'
1500	20 4f 52 65 64 20 77 69 74 68 20 32 30 48 20 69 73 20 73 74 69 6c 6c 20 27 20 27 0d 0a 20 20 20	.ORed.with.20H.is.still.'.'.....
1520	20 20 20 20 20 4a 4e 5a 20 20 20 20 20 42 41 44 4f 4e 46 0d 0a 20 20 20 20 20 20 20 20 52 45 54	.....JNZ.....BADONF..........RET
1540	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 43	.............................;.C
1560	61 72 72 79 20 63 6c 65 61 72 20 66 72 6f 6d 20 43 4d 50 0d 0a 4f 46 46 43 48 4b 3a 0d 0a 20 20	arry.clear.from.CMP..OFFCHK:....
1580	20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 58 2c 36 36 36 36 48 20 20 20 20 20 20 20 20 20 20	......CMP.....AX,6666H..........
15a0	20 20 20 20 20 20 3b 20 27 66 66 27 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 42 41	......;.'ff'..........JNZ.....BA
15c0	44 4f 4e 46 0d 0a 20 20 20 20 20 20 20 20 4c 4f 44 53 42 0d 0a 20 20 20 20 20 20 20 20 43 4d 50	DONF..........LODSB..........CMP
15e0	20 20 20 20 20 41 4c 2c 27 20 27 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 42 41 44	.....AL,'.'..........JNZ.....BAD
1600	4f 4e 46 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 41 4c 20 20 20 20 20 20 20 20 20	ONF..........INC.....AL.........
1620	20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 65 73 65 74 20 7a 65 72 6f 20 43 61 72 72 79 20	.............;.Reset.zero.Carry.
1640	63 6c 65 61 72 20 66 72 6f 6d 20 43 4d 50 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 42 41 44	clear.from.CMP..........RET..BAD
1660	4f 4e 46 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20	ONF:..........MOV.....DX,OFFSET.
1680	54 52 41 4e 47 52 4f 55 50 3a 42 41 44 5f 4f 4e 5f 4f 46 46 0d 0a 20 20 20 20 20 20 20 20 53 54	TRANGROUP:BAD_ON_OFF..........ST
16a0	43 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a	C..........RET....;*************
16c0	2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 50 72 69 6e 74 20 76 6f 6c	*******************..;.Print.vol
16e0	75 6d 65 20 49 44 20 69 6e 66 6f 0d 0a 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 54 52 41 4e 47 52	ume.ID.info....ASSUME..DS:TRANGR
1700	4f 55 50 2c 45 53 3a 54 52 41 4e 47 52 4f 55 50 0d 0a 0d 0a 50 52 49 4e 54 56 4f 4c 3a 0d 0a 20	OUP,ES:TRANGROUP....PRINTVOL:...
1720	20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 41 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.......PUSH....AX...............
1740	20 20 20 20 20 20 20 3b 20 41 58 20 72 65 74 75 72 6e 20 66 72 6f 6d 20 53 45 41 52 43 48 5f 46	.......;.AX.return.from.SEARCH_F
1760	49 52 53 54 20 66 6f 72 20 56 4f 4c 20 49 44 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20	IRST.for.VOL.ID..........MOV....
1780	20 44 58 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 56 4f 4c 4d 45 53 0d 0a 20 20 20	.DX,OFFSET.TRANGROUP:VOLMES.....
17a0	20 20 20 20 20 43 41 4c 4c 20 20 20 20 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20	.....CALL....PRINT..........MOV.
17c0	20 20 20 20 41 4c 2c 44 53 3a 5b 46 43 42 5d 0d 0a 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20	....AL,DS:[FCB]..........ADD....
17e0	20 41 4c 2c 27 40 27 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 27 40 27 0d	.AL,'@'..........CMP.....AL,'@'.
1800	0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 44 52 56 4f 4b 0d 0a 20 20 20 20 20 20 20 20	.........JNZ.....DRVOK..........
1820	4d 4f 56 20 20 20 20 20 41 4c 2c 5b 43 55 52 44 52 56 5d 0d 0a 20 20 20 20 20 20 20 20 41 44 44	MOV.....AL,[CURDRV]..........ADD
1840	20 20 20 20 20 41 4c 2c 27 41 27 0d 0a 44 52 56 4f 4b 3a 0d 0a 20 20 20 20 20 20 20 20 43 41 4c	.....AL,'A'..DRVOK:..........CAL
1860	4c 20 20 20 20 4f 55 54 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 41 58 0d 0a 20 20	L....OUT..........POP.....AX....
1880	20 20 20 20 20 20 4f 52 20 20 20 20 20 20 41 4c 2c 41 4c 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20	......OR......AL,AL..........JZ.
18a0	20 20 20 20 20 47 4f 4f 44 56 4f 4c 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58	.....GOODVOL..........MOV.....DX
18c0	2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 4e 4f 56 4f 4c 0d 0a 20 20 20 20 20 20 20	,OFFSET.TRANGROUP:NOVOL.........
18e0	20 43 41 4c 4c 20 20 20 20 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20	.CALL....PRINT..........JMP.....
1900	43 52 4c 46 32 0d 0a 47 4f 4f 44 56 4f 4c 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20	CRLF2..GOODVOL:..........MOV....
1920	20 44 58 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 47 4f 54 56 4f 4c 0d 0a 20 20 20	.DX,OFFSET.TRANGROUP:GOTVOL.....
1940	20 20 20 20 20 43 41 4c 4c 20 20 20 20 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20	.....CALL....PRINT..........MOV.
1960	20 20 20 20 53 49 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 44 49 52 42 55 46 20 2b	....SI,OFFSET.TRANGROUP:DIRBUF.+
1980	20 38 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 58 2c 31 31 0d 0a 20 20 20 20 20	.8..........MOV.....CX,11.......
19a0	20 20 20 4d 4f 56 20 20 20 20 20 44 49 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 43	...MOV.....DI,OFFSET.TRANGROUP:C
19c0	48 41 52 42 55 46 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 44 49 0d 0a 20	HARBUF..........MOV.....DX,DI...
19e0	20 20 20 20 20 20 20 52 45 50 20 20 20 20 20 4d 4f 56 53 42 0d 0a 20 20 20 20 20 20 20 20 4d 4f	.......REP.....MOVSB..........MO
1a00	56 20 20 20 20 20 41 58 2c 30 41 30 44 48 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 53 57 0d 0a 20	V.....AX,0A0DH..........STOSW...
1a20	20 20 20 20 20 20 20 58 4f 52 20 20 20 20 20 41 58 2c 41 58 0d 0a 20 20 20 20 20 20 20 20 53 54	.......XOR.....AX,AX..........ST
1a40	4f 53 42 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 5a 50 52 49 4e 54 0d 0a 0d 0a 3b	OSB..........JMP.....ZPRINT....;
1a60	2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a	********************************
1a80	2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a	********************************
1aa0	2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 70 72 69 6e 74 20 64 61 74 65 0d 0a 50 52 49 4e 54 5f 44	*********..;.print.date..PRINT_D
1ac0	41 54 45 3a 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 45 53 0d 0a 20 20 20 20 20 20	ATE:..........PUSH....ES........
1ae0	20 20 50 55 53 48 20 20 20 20 44 49 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 43 53	..PUSH....DI..........PUSH....CS
1b00	0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 45 53 0d 0a 20 20 20 20 20 20 20 20 4d 4f	..........POP.....ES..........MO
1b20	56 20 20 20 20 20 44 49 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 43 48 41 52 42 55	V.....DI,OFFSET.TRANGROUP:CHARBU
1b40	46 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 48 2c 47 45 54 5f 44 41 54 45 0d 0a	F..........MOV.....AH,GET_DATE..
1b60	20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20 69 6e 74 5f 63 6f 6d 6d 61 6e 64 20 20 20 20 20	........INT.....int_command.....
1b80	20 20 20 20 20 20 20 20 3b 20 47 65 74 20 64 61 74 65 20 69 6e 20 43 58 3a 44 58 0d 0a 20 20 20	........;.Get.date.in.CX:DX.....
1ba0	20 20 20 20 20 43 42 57 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 47 65 74 44 61 74	.....CBW..........CALL....GetDat
1bc0	65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 65 74 20 64 61 74 65 20 61 6e 64	e.................;.get.date.and
1be0	20 70 75 74 20 69 6e 74 6f 20 44 49 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c	.put.into.DI..........MOV.....AL
1c00	2c 22 20 22 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 53 42 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56	,"."..........STOSB..........MOV
1c20	20 20 20 20 20 53 49 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a 43 55 52 44 41 54 5f	.....SI,OFFSET.TRANGROUP:CURDAT_
1c40	4d 49 44 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 4d 45 53 54 52 41 4e 0d 0a 20 20	MID..........CALL....MESTRAN....
1c60	20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 50 5f 44 41 54 45 0d 0a 20 20 20 20 20 20 20 20 58 4f	......CALL....P_DATE..........XO
1c80	52 20 20 20 20 20 41 58 2c 41 58 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 53 42 0d 0a 20 20 20 20	R.....AX,AX..........STOSB......
1ca0	20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50 3a	....MOV.....DX,OFFSET.TRANGROUP:
1cc0	43 48 41 52 42 55 46 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 5a 50 52 49 4e 54 0d	CHARBUF..........CALL....ZPRINT.
1ce0	0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 45 53 0d 0a 20 20 20 20 20 20 20 20 50 4f 50	.........POP.....ES..........POP
1d00	20 20 20 20 20 44 49 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 0d 0a 0d 0a 47 65 74 44 61	.....DI..........return....GetDa
1d20	74 65 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 53 49 2c 41 58 0d 0a 20 20 20 20	te:..........MOV.....SI,AX......
1d40	20 20 20 20 53 48 4c 20 20 20 20 20 53 49 2c 31 0d 0a 20 20 20 20 20 20 20 20 41 44 44 20 20 20	....SHL.....SI,1..........ADD...
1d60	20 20 53 49 2c 41 58 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 49 3d 41 58 2a 33 0d 0a 20 20 20	..SI,AX...........;.SI=AX*3.....
1d80	20 20 20 20 20 41 44 44 20 20 20 20 20 53 49 2c 4f 46 46 53 45 54 20 54 52 41 4e 47 52 4f 55 50	.....ADD.....SI,OFFSET.TRANGROUP
1da0	3a 57 45 45 4b 54 41 42 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 58 2c 43 58 0d	:WEEKTAB..........MOV.....BX,CX.
1dc0	0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 58 2c 33 0d 0a 20 20 20 20 20 20 20 20 52	.........MOV.....CX,3..........R
1de0	45 50 20 20 20 20 20 4d 4f 56 53 42 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 0d 0a 0d 0a	EP.....MOVSB..........return....
1e00	54 52 41 4e 43 4f 44 45 20 20 20 20 20 20 20 20 45 4e 44 53 0d 0a 20 20 20 20 20 20 20 20 45 4e	TRANCODE........ENDS..........EN
1e20	44 0d 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	D...............................
1e40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1e60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................