summaryrefslogtreecommitdiff
path: root/v2.0/source/RUCODE.ASM
blob: 927a559ee312175972e261974bc8373fd5242589 (plain) (blame)
ofshex dumpascii
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 6f 64 69 66 69 61 TITLE...COMMAND.Language.modifia
0020 62 6c 65 20 43 6f 64 65 20 52 65 73 69 64 65 6e 74 0d 0a 0d 0a 0d 0a 2e 78 6c 69 73 74 0d 0a 2e ble.Code.Resident.......xlist...
0040 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 53 xcref..........INCLUDE.DOSSYM.AS
0060 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 20 M..........INCLUDE.DEVSYM.ASM...
0080 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 20 .......INCLUDE.COMSEG.ASM.......
00a0 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 72 ...INCLUDE.COMSW.ASM...list...cr
00c0 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 4d ef............INCLUDE.COMEQU.ASM
00e0 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 20 ....DATARES.SEGMENT.PUBLIC......
0100 20 20 20 20 45 58 54 52 4e 20 20 20 45 4e 44 42 41 54 4d 45 53 3a 42 59 54 45 2c 42 41 54 43 48 ....EXTRN...ENDBATMES:BYTE,BATCH
0120 3a 57 4f 52 44 2c 45 43 48 4f 46 4c 41 47 3a 42 59 54 45 2c 43 44 45 56 41 54 3a 42 59 54 45 0d :WORD,ECHOFLAG:BYTE,CDEVAT:BYTE.
0140 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20 20 44 45 56 45 4e 41 4d 3a 42 59 54 45 2c 44 52 .........EXTRN...DEVENAM:BYTE,DR
0160 56 4c 45 54 3a 42 59 54 45 2c 4d 52 45 41 44 3a 42 59 54 45 2c 4d 57 52 49 54 45 3a 42 59 54 45 VLET:BYTE,MREAD:BYTE,MWRITE:BYTE
0180 2c 49 4f 54 59 50 3a 42 59 54 45 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20 20 45 52 52 ,IOTYP:BYTE..........EXTRN...ERR
01a0 43 44 5f 32 34 3a 57 4f 52 44 2c 4d 45 53 42 41 53 3a 42 59 54 45 2c 45 52 52 4d 45 53 3a 42 59 CD_24:WORD,MESBAS:BYTE,ERRMES:BY
01c0 54 45 2c 44 45 56 45 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 TE,DEVEMES:BYTE..........EXTRN..
01e0 20 44 52 56 4e 55 4d 3a 42 59 54 45 2c 4c 4f 41 44 49 4e 47 3a 42 59 54 45 2c 52 45 51 55 45 53 .DRVNUM:BYTE,LOADING:BYTE,REQUES
0200 54 3a 42 59 54 45 2c 50 49 50 45 46 4c 41 47 3a 42 59 54 45 0d 0a 20 20 20 20 20 20 20 20 45 58 T:BYTE,PIPEFLAG:BYTE..........EX
0220 54 52 4e 20 20 20 53 49 4e 47 4c 45 43 4f 4d 3a 57 4f 52 44 2c 46 4f 52 46 4c 41 47 3a 42 59 54 TRN...SINGLECOM:WORD,FORFLAG:BYT
0240 45 2c 42 41 44 46 41 54 3a 42 59 54 45 2c 4e 45 57 4c 49 4e 3a 42 59 54 45 0d 0a 20 20 20 20 20 E,BADFAT:BYTE,NEWLIN:BYTE.......
0260 20 20 20 45 58 54 52 4e 20 20 20 4d 45 53 41 44 44 3a 42 59 54 45 0d 0a 44 41 54 41 52 45 53 20 ...EXTRN...MESADD:BYTE..DATARES.
0280 45 4e 44 53 0d 0a 0d 0a 0d 0a 43 4f 44 45 52 45 53 20 53 45 47 4d 45 4e 54 20 50 55 42 4c 49 43 ENDS......CODERES.SEGMENT.PUBLIC
02a0 20 42 59 54 45 0d 0a 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20 20 53 41 56 48 41 4e 44 .BYTE............EXTRN...SAVHAND
02c0 3a 4e 45 41 52 2c 52 45 53 54 48 41 4e 44 3a 4e 45 41 52 2c 43 4f 4e 54 43 54 45 52 4d 3a 4e 45 :NEAR,RESTHAND:NEAR,CONTCTERM:NE
02e0 41 52 0d 0a 20 20 20 20 20 20 20 20 45 58 54 52 4e 20 20 20 47 45 54 43 4f 4d 44 53 4b 32 3a 4e AR..........EXTRN...GETCOMDSK2:N
0300 45 41 52 0d 0a 0d 0a 20 20 20 20 20 20 20 20 50 55 42 4c 49 43 20 20 41 53 4b 45 4e 44 2c 44 53 EAR............PUBLIC..ASKEND,DS
0320 4b 45 52 52 2c 52 50 52 49 4e 54 0d 0a 0d 0a 41 53 53 55 4d 45 20 20 43 53 3a 52 45 53 47 52 4f KERR,RPRINT....ASSUME..CS:RESGRO
0340 55 50 2c 44 53 3a 4e 4f 54 48 49 4e 47 2c 45 53 3a 4e 4f 54 48 49 4e 47 2c 53 53 3a 4e 4f 54 48 UP,DS:NOTHING,ES:NOTHING,SS:NOTH
0360 49 4e 47 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ING....;************************
0380 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 54 45 52 4d 49 4e 41 54 ********************..;.TERMINAT
03a0 45 20 42 41 54 43 48 20 4a 4f 42 20 50 52 4f 4d 50 54 45 52 0d 0a 0d 0a 41 53 53 55 4d 45 20 20 E.BATCH.JOB.PROMPTER....ASSUME..
03c0 44 53 3a 52 45 53 47 52 4f 55 50 0d 0a 41 53 4b 45 4e 44 3a 0d 0a 20 20 20 20 20 20 20 20 43 41 DS:RESGROUP..ASKEND:..........CA
03e0 4c 4c 20 20 20 20 53 41 56 48 41 4e 44 0d 0a 41 53 4b 45 4e 44 32 3a 0d 0a 20 20 20 20 20 20 20 LL....SAVHAND..ASKEND2:.........
0400 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a 45 4e 44 42 .MOV.....DX,OFFSET.RESGROUP:ENDB
0420 41 54 4d 45 53 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 50 52 49 4e 54 0d 0a 20 ATMES..........CALL....RPRINT...
0440 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 28 53 54 44 5f 43 4f 4e 5f 49 4e 50 55 54 .......MOV.....AX,(STD_CON_INPUT
0460 5f 46 4c 55 53 48 20 53 48 4c 20 38 29 2b 53 54 44 5f 43 4f 4e 5f 49 4e 50 55 54 0d 0a 20 20 20 _FLUSH.SHL.8)+STD_CON_INPUT.....
0480 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 20 20 20 20 .....INT.....int_command........
04a0 20 20 41 4e 44 20 20 20 20 20 41 4c 2c 35 46 48 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 ..AND.....AL,5FH..........CMP...
04c0 20 20 41 4c 2c 22 4e 22 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 52 45 53 54 48 4a ..AL,"N"..........JZ......RESTHJ
04e0 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 22 59 22 0d 0a 20 20 20 20 20 20 ..........CMP.....AL,"Y"........
0500 20 20 4a 4e 5a 20 20 20 20 20 41 53 4b 45 4e 44 32 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 ..JNZ.....ASKEND2..........MOV..
0520 20 20 20 45 53 2c 5b 42 41 54 43 48 5d 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 ...ES,[BATCH]..........MOV.....A
0540 48 2c 44 45 41 4c 4c 4f 43 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 20 20 20 69 6e 74 5f 63 H,DEALLOC..........INT.....int_c
0560 6f 6d 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 42 41 54 43 48 5d 2c ommand..........MOV.....[BATCH],
0580 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 46 6c 61 67 20 6e 6f 20 62 61 74 63 68 20 0...............;.Flag.no.batch.
05a0 41 46 54 45 52 20 44 45 41 4c 4c 4f 43 20 69 6e 20 63 61 73 65 0d 0a 20 20 20 20 20 20 20 20 20 AFTER.DEALLOC.in.case...........
05c0 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 20 20 3b ...............................;
05e0 20 20 20 6f 66 20 5e 43 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 45 43 48 4f 46 ...of.^C..........MOV.....[ECHOF
0600 4c 41 47 5d 2c 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4d 61 6b 65 20 73 75 72 65 20 45 43 LAG],1............;.Make.sure.EC
0620 48 4f 20 74 75 72 6e 65 64 20 62 61 63 6b 20 6f 6e 0d 0a 52 45 53 54 48 4a 3a 0d 0a 20 20 20 20 HO.turned.back.on..RESTHJ:......
0640 20 20 20 20 43 41 4c 4c 20 20 20 20 52 45 53 54 48 41 4e 44 0d 0a 20 20 20 20 20 20 20 20 4a 4d ....CALL....RESTHAND..........JM
0660 50 20 20 20 20 20 43 4f 4e 54 43 54 45 52 4d 0d 0a 0d 0a 0d 0a 0d 0a 44 53 4b 45 52 52 3a 0d 0a P.....CONTCTERM........DSKERR:..
0680 41 53 53 55 4d 45 20 20 44 53 3a 4e 4f 54 48 49 4e 47 2c 45 53 3a 4e 4f 54 48 49 4e 47 2c 53 53 ASSUME..DS:NOTHING,ES:NOTHING,SS
06a0 3a 4e 4f 54 48 49 4e 47 0d 0a 20 20 20 20 20 20 20 20 3b 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a :NOTHING..........;.************
06c0 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 ********************************
06e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 54 48 49 53 **********..........;.......THIS
0700 20 49 53 20 54 48 45 20 44 45 46 41 55 4c 54 20 44 49 53 4b 20 45 52 52 4f 52 20 48 41 4e 44 4c .IS.THE.DEFAULT.DISK.ERROR.HANDL
0720 49 4e 47 20 43 4f 44 45 0d 0a 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 41 56 41 49 4c 41 ING.CODE..........;.......AVAILA
0740 42 4c 45 20 54 4f 20 41 4c 4c 20 55 53 45 52 53 20 49 46 20 54 48 45 59 20 44 4f 20 4e 4f 54 20 BLE.TO.ALL.USERS.IF.THEY.DO.NOT.
0760 54 52 59 20 54 4f 0d 0a 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 49 4e 54 45 52 43 45 50 TRY.TO..........;.......INTERCEP
0780 54 20 49 4e 54 45 52 52 55 50 54 20 32 34 48 2e 0d 0a 20 20 20 20 20 20 20 20 3b 20 2a 2a 2a 2a T.INTERRUPT.24H...........;.****
07a0 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 ********************************
07c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 20 20 20 20 20 20 20 53 54 49 0d ******************..........STI.
07e0 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 53 0d 0a 20 20 20 20 20 20 20 20 50 55 53 .........PUSH....DS..........PUS
0800 48 20 20 20 20 45 53 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 49 0d 0a 20 20 20 H....ES..........PUSH....DI.....
0820 20 20 20 20 20 50 55 53 48 20 20 20 20 43 58 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 .....PUSH....CX..........PUSH...
0840 20 41 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 53 2c 42 50 0d 0a 20 20 20 20 .AX..........MOV.....DS,BP......
0860 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 5b 53 49 2e 53 44 45 56 41 54 54 5d 0d 0a 20 20 20 ....MOV.....AX,[SI.SDEVATT].....
0880 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 43 44 45 56 41 54 5d 2c 41 48 0d 0a 20 20 20 20 20 20 .....MOV.....[CDEVAT],AH........
08a0 20 20 50 55 53 48 20 20 20 20 43 53 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 45 53 ..PUSH....CS..........POP.....ES
08c0 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 49 2c 4f 46 46 53 45 54 20 52 45 53 47 ..........MOV.....DI,OFFSET.RESG
08e0 52 4f 55 50 3a 44 45 56 45 4e 41 4d 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 58 ROUP:DEVENAM..........MOV.....CX
0900 2c 38 0d 0a 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 20 53 49 2c 53 44 45 56 4e 41 4d 45 20 ,8..........ADD.....SI,SDEVNAME.
0920 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 75 63 6b 20 75 70 20 64 65 76 69 63 65 20 6e 61 6d ............;.Suck.up.device.nam
0940 65 20 28 65 76 65 6e 20 6f 6e 20 42 6c 6f 63 6b 29 0d 0a 20 20 20 20 20 20 20 20 52 45 50 20 20 e.(even.on.Block)..........REP..
0960 20 20 20 4d 4f 56 53 42 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 41 58 0d 0a 20 20 ...MOVSB..........POP.....AX....
0980 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 43 58 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 ......POP.....CX..........POP...
09a0 20 20 44 49 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 45 53 20 20 20 20 20 20 20 20 ..DI..........POP.....ES........
09c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 53 74 61 63 6b 20 6a 75 73 74 20 63 6f 6e 74 61 ..............;.Stack.just.conta
09e0 69 6e 73 20 44 53 20 61 74 20 74 68 69 73 20 70 6f 69 6e 74 0d 0a 20 20 20 20 20 20 20 20 43 41 ins.DS.at.this.point..........CA
0a00 4c 4c 20 20 20 20 53 41 56 48 41 4e 44 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 43 LL....SAVHAND..........PUSH....C
0a20 53 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 53 20 20 20 20 20 20 20 20 20 20 20 S..........POP.....DS...........
0a40 20 20 20 3b 20 53 65 74 20 75 70 20 6c 6f 63 61 6c 20 64 61 74 61 20 73 65 67 6d 65 6e 74 0d 0a ...;.Set.up.local.data.segment..
0a60 41 53 53 55 4d 45 20 20 44 53 3a 52 45 53 47 52 4f 55 50 0d 0a 0d 0a 20 20 20 20 20 20 20 20 50 ASSUME..DS:RESGROUP............P
0a80 55 53 48 20 20 20 20 44 58 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 43 52 4c 46 0d USH....DX..........CALL....CRLF.
0aa0 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 58 0d 0a 0d 0a 20 20 20 20 20 20 20 20 41 .........POP.....DX............A
0ac0 44 44 20 20 20 20 20 41 4c 2c 22 41 22 20 20 20 20 20 20 20 20 20 20 3b 20 43 6f 6d 70 75 74 65 DD.....AL,"A"..........;.Compute
0ae0 20 64 72 69 76 65 20 6c 65 74 74 65 72 20 28 65 76 65 6e 20 6f 6e 20 63 68 61 72 61 63 74 65 72 .drive.letter.(even.on.character
0b00 29 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 44 52 56 4c 45 54 5d 2c 41 4c 0d 0a )..........MOV.....[DRVLET],AL..
0b20 20 20 20 20 20 20 20 20 54 45 53 54 20 20 20 20 41 48 2c 38 30 48 20 20 20 20 20 20 20 20 20 20 ........TEST....AH,80H..........
0b40 3b 20 43 68 65 63 6b 20 69 66 20 68 61 72 64 20 64 69 73 6b 20 65 72 72 6f 72 0d 0a 20 20 20 20 ;.Check.if.hard.disk.error......
0b60 20 20 20 20 4a 5a 20 20 20 20 20 20 4e 4f 48 41 52 44 45 0d 0a 20 20 20 20 20 20 20 20 54 45 53 ....JZ......NOHARDE..........TES
0b80 54 20 20 20 20 5b 43 44 45 56 41 54 5d 2c 44 45 56 54 59 50 20 53 48 52 20 38 0d 0a 20 20 20 20 T....[CDEVAT],DEVTYP.SHR.8......
0ba0 20 20 20 20 4a 4e 5a 20 20 20 20 20 4e 4f 48 41 52 44 45 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 ....JNZ.....NOHARDE..........JMP
0bc0 20 20 20 20 20 46 41 54 45 52 52 0d 0a 4e 4f 48 41 52 44 45 3a 0d 0a 20 20 20 20 20 20 20 20 4d .....FATERR..NOHARDE:..........M
0be0 4f 56 20 20 20 20 20 53 49 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a 4d 52 45 41 44 0d OV.....SI,OFFSET.RESGROUP:MREAD.
0c00 0a 20 20 20 20 20 20 20 20 54 45 53 54 20 20 20 20 41 48 2c 31 0d 0a 20 20 20 20 20 20 20 20 4a .........TEST....AH,1..........J
0c20 5a 20 20 20 20 20 20 53 41 56 4d 45 53 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 53 Z......SAVMES..........MOV.....S
0c40 49 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a 4d 57 52 49 54 45 0d 0a 53 41 56 4d 45 53 I,OFFSET.RESGROUP:MWRITE..SAVMES
0c60 3a 0d 0a 20 20 20 20 20 20 20 20 4c 4f 44 53 57 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 :..........LODSW..........MOV...
0c80 20 20 57 4f 52 44 20 50 54 52 20 5b 49 4f 54 59 50 5d 2c 41 58 0d 0a 20 20 20 20 20 20 20 20 4c ..WORD.PTR.[IOTYP],AX..........L
0ca0 4f 44 53 57 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 57 4f 52 44 20 50 54 52 20 5b ODSW..........MOV.....WORD.PTR.[
0cc0 49 4f 54 59 50 2b 32 5d 2c 41 58 0d 0a 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 20 44 49 2c IOTYP+2],AX..........AND.....DI,
0ce0 30 46 46 48 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 44 49 2c 31 32 0d 0a 20 20 20 0FFH..........CMP.....DI,12.....
0d00 20 20 20 20 20 4a 42 45 20 20 20 20 20 48 41 56 43 4f 44 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 .....JBE.....HAVCOD..........MOV
0d20 20 20 20 20 20 44 49 2c 31 32 0d 0a 48 41 56 43 4f 44 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 .....DI,12..HAVCOD:..........MOV
0d40 20 20 20 20 20 5b 45 52 52 43 44 5f 32 34 5d 2c 44 49 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 20 .....[ERRCD_24],DI..........SHL.
0d60 20 20 20 20 44 49 2c 31 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 49 2c 57 4f 52 ....DI,1..........MOV.....DI,WOR
0d80 44 20 50 54 52 20 5b 44 49 2b 4d 45 53 42 41 53 5d 20 3b 20 47 65 74 20 70 6f 69 6e 74 65 72 20 D.PTR.[DI+MESBAS].;.Get.pointer.
0da0 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0d 0a 20 20 20 20 20 20 20 20 58 43 48 47 20 20 to.error.message..........XCHG..
0dc0 20 20 44 49 2c 44 58 20 20 20 20 20 20 20 20 20 20 20 3b 20 4d 61 79 20 6e 65 65 64 20 44 58 20 ..DI,DX...........;.May.need.DX.
0de0 6c 61 74 65 72 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 50 52 49 4e 54 20 20 20 later..........CALL....RPRINT...
0e00 20 20 20 20 20 20 20 3b 20 50 72 69 6e 74 20 65 72 72 6f 72 20 74 79 70 65 0d 0a 20 20 20 20 20 .......;.Print.error.type.......
0e20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a 45 52 ...MOV.....DX,OFFSET.RESGROUP:ER
0e40 52 4d 45 53 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 50 52 49 4e 54 0d 0a 20 20 RMES..........CALL....RPRINT....
0e60 20 20 20 20 20 20 54 45 53 54 20 20 20 20 5b 43 44 45 56 41 54 5d 2c 44 45 56 54 59 50 20 53 48 ......TEST....[CDEVAT],DEVTYP.SH
0e80 52 20 38 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 42 4c 4b 45 52 52 0d 0a 20 20 20 R.8..........JZ......BLKERR.....
0ea0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a .....MOV.....DX,OFFSET.RESGROUP:
0ec0 44 45 56 45 4d 45 53 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 48 2c 53 54 44 5f DEVEMES..........MOV.....AH,STD_
0ee0 43 4f 4e 5f 53 54 52 49 4e 47 5f 4f 55 54 50 55 54 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 CON_STRING_OUTPUT..........INT..
0f00 20 20 20 69 6e 74 5f 63 6f 6d 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 ...int_command..........JMP.....
0f20 53 48 4f 52 54 20 41 53 4b 20 20 20 20 20 20 20 3b 20 44 6f 6e 27 74 20 72 61 6c 70 68 20 6f 6e SHORT.ASK.......;.Don't.ralph.on
0f40 20 43 4f 4d 4d 41 4e 44 0d 0a 0d 0a 42 4c 4b 45 52 52 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 .COMMAND....BLKERR:..........MOV
0f60 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a 44 52 56 4e 55 4d 0d 0a .....DX,OFFSET.RESGROUP:DRVNUM..
0f80 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 ........CALL....RPRINT..........
0fa0 43 4d 50 20 20 20 20 20 5b 4c 4f 41 44 49 4e 47 5d 2c 30 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 CMP.....[LOADING],0..........JZ.
0fc0 20 20 20 20 20 41 53 4b 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 45 53 54 48 41 .....ASK..........CALL....RESTHA
0fe0 4e 44 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 47 45 54 43 4f 4d 44 53 4b 32 20 20 ND..........JMP.....GETCOMDSK2..
1000 20 20 20 20 3b 20 49 66 20 65 72 72 6f 72 20 6c 6f 61 64 69 6e 67 20 43 4f 4d 4d 41 4e 44 2c 20 ....;.If.error.loading.COMMAND,.
1020 72 65 2d 70 72 6f 6d 70 74 0d 0a 41 53 4b 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 re-prompt..ASK:..........MOV....
1040 20 44 58 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a 52 45 51 55 45 53 54 0d 0a 20 20 20 .DX,OFFSET.RESGROUP:REQUEST.....
1060 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 .....CALL....RPRINT..........MOV
1080 20 20 20 20 20 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 .....AX,(STD_CON_INPUT_FLUSH.SHL
10a0 20 38 29 2b 53 54 44 5f 43 4f 4e 5f 49 4e 50 55 54 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 20 20 .8)+STD_CON_INPUT..........INT..
10c0 20 20 20 69 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 47 65 74 ...int_command.............;.Get
10e0 20 72 65 73 70 6f 6e 73 65 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 43 52 4c 46 0d .response..........CALL....CRLF.
1100 0a 20 20 20 20 20 20 20 20 4f 52 20 20 20 20 20 20 41 4c 2c 32 30 48 20 20 20 20 20 20 20 20 20 .........OR......AL,20H.........
1120 20 3b 20 43 6f 6e 76 65 72 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 0d 0a 20 20 20 20 20 20 .;.Convert.to.lower.case........
1140 20 20 4d 4f 56 20 20 20 20 20 41 48 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 65 74 75 ..MOV.....AH,0............;.Retu
1160 72 6e 20 63 6f 64 65 20 66 6f 72 20 69 67 6e 6f 72 65 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 rn.code.for.ignore..........CMP.
1180 20 20 20 20 41 4c 2c 22 69 22 20 20 20 20 20 20 20 20 20 20 3b 20 49 67 6e 6f 72 65 3f 0d 0a 20 ....AL,"i"..........;.Ignore?...
11a0 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 45 45 58 49 54 0d 0a 20 20 20 20 20 20 20 20 49 4e .......JZ......EEXIT..........IN
11c0 43 20 20 20 20 20 41 48 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 22 72 22 C.....AH..........CMP.....AL,"r"
11e0 20 20 20 20 20 20 20 20 20 20 3b 20 52 65 74 72 79 3f 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 ..........;.Retry?..........JZ..
1200 20 20 20 20 45 45 58 49 54 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 41 48 0d 0a 20 ....EEXIT..........INC.....AH...
1220 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 22 61 22 20 20 20 20 20 20 20 20 20 20 3b .......CMP.....AL,"a"..........;
1240 20 41 62 6f 72 74 3f 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 41 53 4b 0d 0a 20 20 .Abort?..........JNZ.....ASK....
1260 20 20 20 20 20 20 58 4f 52 20 20 20 20 20 44 58 2c 44 58 0d 0a 20 20 20 20 20 20 20 20 58 43 48 ......XOR.....DX,DX..........XCH
1280 47 20 20 20 20 44 4c 2c 5b 50 49 50 45 46 4c 41 47 5d 20 20 20 3b 20 41 62 6f 72 74 20 61 20 70 G....DL,[PIPEFLAG]...;.Abort.a.p
12a0 69 70 65 20 69 6e 20 70 72 6f 67 72 65 73 73 0d 0a 20 20 20 20 20 20 20 20 4f 52 20 20 20 20 20 ipe.in.progress..........OR.....
12c0 20 44 4c 2c 44 4c 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 43 48 45 43 4b 46 4f 52 .DL,DL..........JZ......CHECKFOR
12e0 41 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 5b 53 49 4e 47 4c 45 43 4f 4d 5d 2c 30 A..........CMP.....[SINGLECOM],0
1300 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 43 48 45 43 4b 46 4f 52 41 0d 0a 20 20 20 ..........JZ......CHECKFORA.....
1320 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 53 49 4e 47 4c 45 43 4f 4d 5d 2c 2d 31 20 20 20 3b 20 .....MOV.....[SINGLECOM],-1...;.
1340 4d 61 6b 65 20 73 75 72 65 20 53 49 4e 47 4c 45 43 4f 4d 20 65 78 69 74 73 0d 0a 43 48 45 43 4b Make.sure.SINGLECOM.exits..CHECK
1360 46 4f 52 41 3a 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 5b 45 52 52 43 44 5f 32 34 FORA:..........CMP.....[ERRCD_24
1380 5d 2c 30 20 20 20 20 3b 20 57 72 69 74 65 20 70 72 6f 74 65 63 74 0d 0a 20 20 20 20 20 20 20 20 ],0....;.Write.protect..........
13a0 4a 5a 20 20 20 20 20 20 41 42 4f 52 54 46 4f 52 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 JZ......ABORTFOR..........CMP...
13c0 20 20 5b 45 52 52 43 44 5f 32 34 5d 2c 32 20 20 20 20 3b 20 44 72 69 76 65 20 6e 6f 74 20 72 65 ..[ERRCD_24],2....;.Drive.not.re
13e0 61 64 79 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 45 45 58 49 54 20 20 20 20 20 20 ady..........JNZ.....EEXIT......
1400 20 20 20 20 20 3b 20 44 6f 6e 27 74 20 61 62 6f 72 74 20 74 68 65 20 46 4f 52 0d 0a 41 42 4f 52 .....;.Don't.abort.the.FOR..ABOR
1420 54 46 4f 52 3a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 46 4f 52 46 4c 41 47 5d TFOR:..........MOV.....[FORFLAG]
1440 2c 30 20 20 20 20 20 3b 20 41 62 6f 72 74 20 61 20 46 4f 52 20 69 6e 20 70 72 6f 67 72 65 73 73 ,0.....;.Abort.a.FOR.in.progress
1460 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 5b 53 49 4e 47 4c 45 43 4f 4d 5d 2c 30 0d ..........CMP.....[SINGLECOM],0.
1480 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 45 45 58 49 54 0d 0a 20 20 20 20 20 20 20 20 .........JZ......EEXIT..........
14a0 4d 4f 56 20 20 20 20 20 5b 53 49 4e 47 4c 45 43 4f 4d 5d 2c 2d 31 20 20 20 3b 20 4d 61 6b 65 20 MOV.....[SINGLECOM],-1...;.Make.
14c0 73 75 72 65 20 53 49 4e 47 4c 45 43 4f 4d 20 65 78 69 74 73 0d 0a 45 45 58 49 54 3a 0d 0a 20 20 sure.SINGLECOM.exits..EEXIT:....
14e0 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c 2c 41 48 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 ......MOV.....AL,AH..........MOV
1500 20 20 20 20 20 44 58 2c 44 49 0d 0a 52 45 53 54 48 44 3a 0d 0a 20 20 20 20 20 20 20 20 43 41 4c .....DX,DI..RESTHD:..........CAL
1520 4c 20 20 20 20 52 45 53 54 48 41 4e 44 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 L....RESTHAND..........POP.....D
1540 53 0d 0a 20 20 20 20 20 20 20 20 49 52 45 54 0d 0a 0d 0a 46 41 54 45 52 52 3a 0d 0a 20 20 20 20 S..........IRET....FATERR:......
1560 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a 42 ....MOV.....DX,OFFSET.RESGROUP:B
1580 41 44 46 41 54 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 50 52 49 4e 54 0d 0a 20 ADFAT..........CALL....RPRINT...
15a0 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 52 45 53 47 52 4f 55 .......MOV.....DX,OFFSET.RESGROU
15c0 50 3a 45 52 52 4d 45 53 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 50 52 49 4e 54 P:ERRMES..........CALL....RPRINT
15e0 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 52 45 53 47 ..........MOV.....DX,OFFSET.RESG
1600 52 4f 55 50 3a 44 52 56 4e 55 4d 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 50 52 ROUP:DRVNUM..........CALL....RPR
1620 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c 2c 32 20 20 20 20 20 20 20 INT..........MOV.....AL,2.......
1640 20 20 20 20 20 3b 20 41 62 6f 72 74 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 52 45 .....;.Abort..........JMP.....RE
1660 53 54 48 44 0d 0a 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a STHD......;*********************
1680 2a 2a 2a 2a 2a 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 ************************..;.Prin
16a0 74 20 72 6f 75 74 69 6e 65 73 20 66 6f 72 20 54 6f 6b 65 6e 69 7a 65 64 20 72 65 73 69 64 65 6e t.routines.for.Tokenized.residen
16c0 74 20 6d 65 73 73 61 67 65 73 0d 0a 0d 0a 41 53 53 55 4d 45 20 44 53 3a 52 45 53 47 52 4f 55 50 t.messages....ASSUME.DS:RESGROUP
16e0 2c 53 53 3a 52 45 53 47 52 4f 55 50 0d 0a 0d 0a 43 52 4c 46 3a 0d 0a 20 20 20 20 20 20 20 20 4d ,SS:RESGROUP....CRLF:..........M
1700 4f 56 20 20 20 20 20 44 58 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 50 3a 4e 45 57 4c 49 4e OV.....DX,OFFSET.RESGROUP:NEWLIN
1720 0d 0a 0d 0a 52 50 52 49 4e 54 3a 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 41 58 20 ....RPRINT:..........PUSH....AX.
1740 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 54 6f 6b 65 6e 69 7a 65 64 20 6d 65 73 73 61 67 65 .............;.Tokenized.message
1760 20 70 72 69 6e 74 65 72 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 58 0d 0a 20 20 .printer..........PUSH....BX....
1780 20 20 20 20 20 20 50 55 53 48 20 20 20 20 44 58 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 ......PUSH....DX..........PUSH..
17a0 20 20 53 49 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 53 49 2c 44 58 0d 0a 52 50 52 ..SI..........MOV.....SI,DX..RPR
17c0 49 4e 54 31 3a 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 50 55 INT1:..........LODSB..........PU
17e0 53 48 20 20 20 20 41 58 0d 0a 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 20 41 4c 2c 37 46 48 SH....AX..........AND.....AL,7FH
1800 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 22 30 22 0d 0a 20 20 20 20 20 20 ..........CMP.....AL,"0"........
1820 20 20 4a 42 20 20 20 20 20 20 52 50 52 49 4e 54 32 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 ..JB......RPRINT2..........CMP..
1840 20 20 20 41 4c 2c 22 39 22 0d 0a 20 20 20 20 20 20 20 20 4a 41 20 20 20 20 20 20 52 50 52 49 4e ...AL,"9"..........JA......RPRIN
1860 54 32 0d 0a 20 20 20 20 20 20 20 20 53 55 42 20 20 20 20 20 41 4c 2c 22 30 22 0d 0a 20 20 20 20 T2..........SUB.....AL,"0"......
1880 20 20 20 20 43 42 57 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 20 20 41 58 2c 31 0d 0a 20 ....CBW..........SHL.....AX,1...
18a0 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 58 2c 4f 46 46 53 45 54 20 52 45 53 47 52 4f 55 .......MOV.....BX,OFFSET.RESGROU
18c0 50 3a 4d 45 53 41 44 44 0d 0a 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 20 42 58 2c 41 58 0d P:MESADD..........ADD.....BX,AX.
18e0 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 5b 42 58 5d 0d 0a 20 20 20 20 20 20 .........MOV.....DX,[BX]........
1900 20 20 43 41 4c 4c 20 20 20 20 52 50 52 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 ..CALL....RPRINT..........JMP...
1920 20 20 53 48 4f 52 54 20 52 50 52 49 4e 54 33 0d 0a 52 50 52 49 4e 54 32 3a 0d 0a 20 20 20 20 20 ..SHORT.RPRINT3..RPRINT2:.......
1940 20 20 20 4d 4f 56 20 20 20 20 20 44 4c 2c 41 4c 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 ...MOV.....DL,AL..........MOV...
1960 20 20 41 48 2c 53 54 44 5f 43 4f 4e 5f 4f 55 54 50 55 54 0d 0a 20 20 20 20 20 20 20 20 49 4e 54 ..AH,STD_CON_OUTPUT..........INT
1980 20 20 20 20 20 69 6e 74 5f 63 6f 6d 6d 61 6e 64 0d 0a 52 50 52 49 4e 54 33 3a 0d 0a 20 20 20 20 .....int_command..RPRINT3:......
19a0 20 20 20 20 50 4f 50 20 20 20 20 20 41 58 0d 0a 20 20 20 20 20 20 20 20 54 45 53 54 20 20 20 20 ....POP.....AX..........TEST....
19c0 41 4c 2c 31 30 30 30 30 30 30 30 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AL,10000000B....................
19e0 3b 20 48 69 67 68 20 62 69 74 20 73 65 74 20 69 6e 64 69 63 61 74 65 73 20 65 6e 64 0d 0a 20 20 ;.High.bit.set.indicates.end....
1a00 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 52 50 52 49 4e 54 31 0d 0a 20 20 20 20 20 20 20 20 50 ......JZ......RPRINT1..........P
1a20 4f 50 20 20 20 20 20 53 49 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 58 0d 0a 20 OP.....SI..........POP.....DX...
1a40 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 .......POP.....BX..........POP..
1a60 20 20 20 41 58 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 0d 0a 43 4f 44 45 52 45 53 20 45 4e ...AX..........RET....CODERES.EN
1a80 44 53 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 DS..........END.................
1aa0 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 ................................
1ac0 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 ................................
1ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................