| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 3b 0d 0a 3b 20 54 69 6d 65 20 61 6e 64 20 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 73 20 66 6f 72 | ;..;.Time.and.date.functions.for |
| 0020 | 20 4d 53 44 4f 53 0d 0a 3b 0d 0a 0d 0a 49 4e 43 4c 55 44 45 20 44 4f 53 53 45 47 2e 41 53 4d 0d | .MSDOS..;....INCLUDE.DOSSEG.ASM. |
| 0040 | 0a 0d 0a 43 4f 44 45 20 20 20 20 20 20 20 20 53 45 47 4d 45 4e 54 20 42 59 54 45 20 50 55 42 4c | ...CODE........SEGMENT.BYTE.PUBL |
| 0060 | 49 43 20 20 27 43 4f 44 45 27 0d 0a 20 20 20 20 20 20 20 20 41 53 53 55 4d 45 20 20 53 53 3a 44 | IC..'CODE'..........ASSUME..SS:D |
| 0080 | 4f 53 47 52 4f 55 50 2c 43 53 3a 44 4f 53 47 52 4f 55 50 0d 0a 0d 0a 2e 78 6c 69 73 74 0d 0a 2e | OSGROUP,CS:DOSGROUP.....xlist... |
| 00a0 | 78 63 72 65 66 0d 0a 49 4e 43 4c 55 44 45 20 44 4f 53 53 59 4d 2e 41 53 4d 0d 0a 49 4e 43 4c 55 | xcref..INCLUDE.DOSSYM.ASM..INCLU |
| 00c0 | 44 45 20 44 45 56 53 59 4d 2e 41 53 4d 0d 0a 2e 63 72 65 66 0d 0a 2e 6c 69 73 74 0d 0a 0d 0a 54 | DE.DEVSYM.ASM...cref...list....T |
| 00e0 | 49 54 4c 45 20 20 20 54 49 4d 45 20 2d 20 74 69 6d 65 20 61 6e 64 20 64 61 74 65 20 66 75 6e 63 | ITLE...TIME.-.time.and.date.func |
| 0100 | 74 69 6f 6e 73 0d 0a 4e 41 4d 45 20 20 20 20 54 49 4d 45 0d 0a 0d 0a 0d 0a 20 20 20 20 69 5f 6e | tions..NAME....TIME..........i_n |
| 0120 | 65 65 64 20 20 44 41 59 2c 42 59 54 45 0d 0a 20 20 20 20 69 5f 6e 65 65 64 20 20 4d 4f 4e 54 48 | eed..DAY,BYTE......i_need..MONTH |
| 0140 | 2c 42 59 54 45 0d 0a 20 20 20 20 69 5f 6e 65 65 64 20 20 59 45 41 52 2c 57 4f 52 44 0d 0a 20 20 | ,BYTE......i_need..YEAR,WORD.... |
| 0160 | 20 20 69 5f 6e 65 65 64 20 20 57 45 45 4b 44 41 59 2c 42 59 54 45 0d 0a 20 20 20 20 69 5f 6e 65 | ..i_need..WEEKDAY,BYTE......i_ne |
| 0180 | 65 64 20 20 54 49 4d 45 42 55 46 2c 36 0d 0a 20 20 20 20 69 5f 6e 65 65 64 20 20 42 43 4c 4f 43 | ed..TIMEBUF,6......i_need..BCLOC |
| 01a0 | 4b 2c 44 57 4f 52 44 0d 0a 20 20 20 20 69 5f 6e 65 65 64 20 20 44 41 59 43 4e 54 2c 57 4f 52 44 | K,DWORD......i_need..DAYCNT,WORD |
| 01c0 | 0d 0a 20 20 20 20 69 5f 6e 65 65 64 20 20 59 52 54 41 42 2c 38 0d 0a 20 20 20 20 69 5f 6e 65 65 | ......i_need..YRTAB,8......i_nee |
| 01e0 | 64 20 20 4d 4f 4e 54 41 42 2c 31 32 0d 0a 0d 0a 20 20 20 20 46 4f 55 52 59 45 41 52 53 20 3d 20 | d..MONTAB,12........FOURYEARS.=. |
| 0200 | 33 2a 33 36 35 20 2b 20 33 36 36 0d 0a 0d 0a 53 55 42 54 54 4c 20 44 41 54 45 31 36 2c 20 52 45 | 3*365.+.366....SUBTTL.DATE16,.RE |
| 0220 | 41 44 54 49 4d 45 2c 20 44 4f 44 41 54 45 20 2d 2d 20 47 55 54 53 20 4f 46 20 54 49 4d 45 20 41 | ADTIME,.DODATE.--.GUTS.OF.TIME.A |
| 0240 | 4e 44 20 44 41 54 45 0d 0a 50 41 47 45 0d 0a 3b 0d 0a 3b 20 44 61 74 65 31 36 20 72 65 74 75 72 | ND.DATE..PAGE..;..;.Date16.retur |
| 0260 | 6e 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 61 74 65 20 69 6e 20 41 58 2c 20 63 75 72 72 65 | ns.the.current.date.in.AX,.curre |
| 0280 | 6e 74 20 74 69 6d 65 20 69 6e 20 44 58 0d 0a 3b 20 20 20 41 58 20 2d 20 59 59 59 59 59 59 59 4d | nt.time.in.DX..;...AX.-.YYYYYYYM |
| 02a0 | 4d 4d 4d 44 44 44 44 44 20 20 79 65 61 72 73 20 6d 6f 6e 74 68 73 20 64 61 79 73 0d 0a 3b 20 20 | MMMDDDDD..years.months.days..;.. |
| 02c0 | 20 44 58 20 2d 20 48 48 48 48 48 4d 4d 4d 4d 4d 4d 53 53 53 53 53 20 20 68 6f 75 72 73 20 6d 69 | .DX.-.HHHHHMMMMMMSSSSS..hours.mi |
| 02e0 | 6e 75 74 65 73 20 73 65 63 6f 6e 64 73 2f 32 0d 0a 3b 0d 0a 20 20 20 20 20 20 20 20 70 72 6f 63 | nutes.seconds/2..;..........proc |
| 0300 | 65 64 75 72 65 20 20 20 44 41 54 45 31 36 2c 4e 45 41 52 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a | edure...DATE16,NEAR..ASSUME..DS: |
| 0320 | 44 4f 53 47 52 4f 55 50 2c 45 53 3a 4e 4f 54 48 49 4e 47 0d 0a 20 20 20 20 20 20 20 20 50 55 53 | DOSGROUP,ES:NOTHING..........PUS |
| 0340 | 48 20 20 20 20 43 58 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 | H....CX..........PUSH....ES..... |
| 0360 | 20 20 20 20 20 43 41 4c 4c 20 20 20 20 52 45 41 44 54 49 4d 45 0d 0a 20 20 20 20 20 20 20 20 50 | .....CALL....READTIME..........P |
| 0380 | 4f 50 20 20 20 20 20 45 53 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 20 20 43 4c 2c 31 20 | OP.....ES..........SHL.....CL,1. |
| 03a0 | 20 20 20 20 20 20 20 20 20 20 20 3b 4d 69 6e 75 74 65 73 20 74 6f 20 6c 65 66 74 20 70 61 72 74 | ...........;Minutes.to.left.part |
| 03c0 | 20 6f 66 20 62 79 74 65 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 20 20 43 4c 2c 31 0d 0a | .of.byte..........SHL.....CL,1.. |
| 03e0 | 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 20 20 43 58 2c 31 20 20 20 20 20 20 20 20 20 20 20 20 | ........SHL.....CX,1............ |
| 0400 | 3b 50 75 73 68 20 68 6f 75 72 73 20 61 6e 64 20 6d 69 6e 75 74 65 73 20 74 6f 20 6c 65 66 74 20 | ;Push.hours.and.minutes.to.left. |
| 0420 | 65 6e 64 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 20 20 43 58 2c 31 0d 0a 20 20 20 20 20 | end..........SHL.....CX,1....... |
| 0440 | 20 20 20 53 48 4c 20 20 20 20 20 43 58 2c 31 0d 0a 20 20 20 20 20 20 20 20 53 48 52 20 20 20 20 | ...SHL.....CX,1..........SHR.... |
| 0460 | 20 44 48 2c 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 43 6f 75 6e 74 20 65 76 65 72 79 20 74 77 | .DH,1............;Count.every.tw |
| 0480 | 6f 20 73 65 63 6f 6e 64 73 0d 0a 20 20 20 20 20 20 20 20 4f 52 20 20 20 20 20 20 43 4c 2c 44 48 | o.seconds..........OR......CL,DH |
| 04a0 | 20 20 20 20 20 20 20 20 20 20 20 3b 43 6f 6d 62 69 6e 65 20 73 65 63 6f 6e 64 73 20 77 69 74 68 | ...........;Combine.seconds.with |
| 04c0 | 20 68 6f 75 72 73 20 61 6e 64 20 6d 69 6e 75 74 65 73 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 | .hours.and.minutes..........MOV. |
| 04e0 | 20 20 20 20 44 58 2c 43 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 57 4f | ....DX,CX..........MOV.....AX,WO |
| 0500 | 52 44 20 50 54 52 20 5b 4d 4f 4e 54 48 5d 20 20 20 20 20 3b 46 65 74 63 68 20 6d 6f 6e 74 68 20 | RD.PTR.[MONTH].....;Fetch.month. |
| 0520 | 61 6e 64 20 79 65 61 72 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 4c 2c 34 0d 0a | and.year..........MOV.....CL,4.. |
| 0540 | 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 20 20 41 4c 2c 43 4c 20 20 20 20 20 20 20 20 20 20 20 | ........SHL.....AL,CL........... |
| 0560 | 20 20 20 20 20 20 20 20 3b 50 75 73 68 20 6d 6f 6e 74 68 20 74 6f 20 6c 65 66 74 20 74 6f 20 6d | ........;Push.month.to.left.to.m |
| 0580 | 61 6b 65 20 72 6f 6f 6d 20 66 6f 72 20 64 61 79 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 | ake.room.for.day..........SHL... |
| 05a0 | 20 20 41 58 2c 31 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 43 58 0d 0a 20 20 20 20 | ..AX,1..........POP.....CX...... |
| 05c0 | 20 20 20 20 4f 52 20 20 20 20 20 20 41 4c 2c 5b 44 41 59 5d 0d 0a 20 20 20 20 20 20 20 20 52 45 | ....OR......AL,[DAY]..........RE |
| 05e0 | 54 0d 0a 44 41 54 45 31 36 20 20 45 4e 44 50 0d 0a 0d 0a 20 20 20 20 20 20 20 20 70 72 6f 63 65 | T..DATE16..ENDP............proce |
| 0600 | 64 75 72 65 20 20 20 52 45 41 44 54 49 4d 45 2c 4e 45 41 52 0d 0a 0d 0a 41 53 53 55 4d 45 20 20 | dure...READTIME,NEAR....ASSUME.. |
| 0620 | 44 53 3a 44 4f 53 47 52 4f 55 50 2c 45 53 3a 4e 4f 54 48 49 4e 47 0d 0a 3b 47 65 74 73 20 74 69 | DS:DOSGROUP,ES:NOTHING..;Gets.ti |
| 0640 | 6d 65 20 69 6e 20 43 58 3a 44 58 2e 20 46 69 67 75 72 65 73 20 6e 65 77 20 64 61 74 65 20 69 66 | me.in.CX:DX..Figures.new.date.if |
| 0660 | 20 69 74 20 68 61 73 20 63 68 61 6e 67 65 64 2e 0d 0a 3b 55 73 65 73 20 41 58 2c 20 43 58 2c 20 | .it.has.changed...;Uses.AX,.CX,. |
| 0680 | 44 58 2e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 53 49 0d 0a 20 20 20 20 20 | DX.............PUSH....SI....... |
| 06a0 | 20 20 20 50 55 53 48 20 20 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 | ...PUSH....BX..........MOV.....B |
| 06c0 | 58 2c 4f 46 46 53 45 54 20 44 4f 53 47 52 4f 55 50 3a 54 49 4d 45 42 55 46 0d 0a 20 20 20 20 20 | X,OFFSET.DOSGROUP:TIMEBUF....... |
| 06e0 | 20 20 20 4d 4f 56 20 20 20 20 20 43 58 2c 36 0d 0a 20 20 20 20 20 20 20 20 58 4f 52 20 20 20 20 | ...MOV.....CX,6..........XOR.... |
| 0700 | 20 44 58 2c 44 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 44 58 0d 0a 20 | .DX,DX..........MOV.....AX,DX... |
| 0720 | 20 20 20 20 20 20 20 69 6e 76 6f 6b 65 20 20 53 45 54 52 45 41 44 0d 0a 20 20 20 20 20 20 20 20 | .......invoke..SETREAD.......... |
| 0740 | 50 55 53 48 20 20 20 20 44 53 0d 0a 20 20 20 20 20 20 20 20 4c 44 53 20 20 20 20 20 53 49 2c 5b | PUSH....DS..........LDS.....SI,[ |
| 0760 | 42 43 4c 4f 43 4b 5d 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 4e 4f 54 48 49 4e 47 0d 0a 20 20 20 | BCLOCK]..ASSUME..DS:NOTHING..... |
| 0780 | 20 20 20 20 20 69 6e 76 6f 6b 65 20 20 44 45 56 49 4f 43 41 4c 4c 32 20 20 20 20 20 20 3b 47 65 | .....invoke..DEVIOCALL2......;Ge |
| 07a0 | 74 20 63 6f 72 72 65 63 74 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 0d 0a 20 20 20 20 20 20 20 | t.correct.date.and.time......... |
| 07c0 | 20 50 4f 50 20 20 20 20 20 44 53 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 44 4f 53 47 52 4f 55 50 | .POP.....DS..ASSUME..DS:DOSGROUP |
| 07e0 | 0d 0a 20 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 | ..........POP.....BX..........PO |
| 0800 | 50 20 20 20 20 20 53 49 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 57 4f 52 | P.....SI..........MOV.....AX,WOR |
| 0820 | 44 20 50 54 52 20 5b 54 49 4d 45 42 55 46 5d 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 | D.PTR.[TIMEBUF]..........MOV.... |
| 0840 | 20 43 58 2c 57 4f 52 44 20 50 54 52 20 5b 54 49 4d 45 42 55 46 2b 32 5d 0d 0a 20 20 20 20 20 20 | .CX,WORD.PTR.[TIMEBUF+2]........ |
| 0860 | 20 20 4d 4f 56 20 20 20 20 20 44 58 2c 57 4f 52 44 20 50 54 52 20 5b 54 49 4d 45 42 55 46 2b 34 | ..MOV.....DX,WORD.PTR.[TIMEBUF+4 |
| 0880 | 5d 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 58 2c 5b 44 41 59 43 4e 54 5d 20 20 | ]..........CMP.....AX,[DAYCNT].. |
| 08a0 | 20 20 20 3b 53 65 65 20 69 66 20 64 61 79 20 63 6f 75 6e 74 20 69 73 20 74 68 65 20 73 61 6d 65 | ...;See.if.day.count.is.the.same |
| 08c0 | 0d 0a 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 52 45 54 32 32 0d 0a 20 20 20 20 20 20 20 | ..........JZ......RET22......... |
| 08e0 | 20 43 4d 50 20 20 20 20 20 41 58 2c 46 4f 55 52 59 45 41 52 53 2a 33 30 20 3b 4e 75 6d 62 65 72 | .CMP.....AX,FOURYEARS*30.;Number |
| 0900 | 20 6f 66 20 64 61 79 73 20 69 6e 20 31 32 30 20 79 65 61 72 73 0d 0a 20 20 20 20 20 20 20 20 4a | .of.days.in.120.years..........J |
| 0920 | 41 45 20 20 20 20 20 52 45 54 32 32 20 20 20 20 20 20 20 20 20 20 20 3b 49 67 6e 6f 72 65 20 69 | AE.....RET22...........;Ignore.i |
| 0940 | 66 20 74 6f 6f 20 6c 61 72 67 65 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 44 41 | f.too.large..........MOV.....[DA |
| 0960 | 59 43 4e 54 5d 2c 41 58 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 53 49 0d 0a 20 20 | YCNT],AX..........PUSH....SI.... |
| 0980 | 20 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 | ......PUSH....CX..........PUSH.. |
| 09a0 | 20 20 44 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 53 61 76 65 20 74 69 6d 65 0d 0a 20 20 | ..DX..............;Save.time.... |
| 09c0 | 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 4d 4f 56 | ......XOR.....DX,DX..........MOV |
| 09e0 | 20 20 20 20 20 43 58 2c 46 4f 55 52 59 45 41 52 53 20 20 20 20 3b 4e 75 6d 62 65 72 20 6f 66 20 | .....CX,FOURYEARS....;Number.of. |
| 0a00 | 64 61 79 73 20 69 6e 20 34 20 79 65 61 72 73 0d 0a 20 20 20 20 20 20 20 20 44 49 56 20 20 20 20 | days.in.4.years..........DIV.... |
| 0a20 | 20 43 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 43 6f 6d 70 75 74 65 20 6e 75 6d 62 65 72 | .CX..............;Compute.number |
| 0a40 | 20 6f 66 20 34 2d 79 65 61 72 20 75 6e 69 74 73 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 | .of.4-year.units..........SHL... |
| 0a60 | 20 20 41 58 2c 31 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 20 | ..AX,1..........SHL.....AX,1.... |
| 0a80 | 20 20 20 20 20 20 53 48 4c 20 20 20 20 20 41 58 2c 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 4d | ......SHL.....AX,1............;M |
| 0aa0 | 75 6c 74 69 70 6c 79 20 62 79 20 38 20 28 6e 6f 2e 20 6f 66 20 68 61 6c 66 2d 79 65 61 72 73 29 | ultiply.by.8.(no..of.half-years) |
| 0ac0 | 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 58 2c 41 58 20 20 20 20 20 20 20 20 20 | ..........MOV.....CX,AX......... |
| 0ae0 | 20 20 3b 3c 32 34 30 20 69 6d 70 6c 69 65 73 20 41 48 3d 30 0d 0a 20 20 20 20 20 20 20 20 4d 4f | ..;<240.implies.AH=0..........MO |
| 0b00 | 56 20 20 20 20 20 53 49 2c 4f 46 46 53 45 54 20 44 4f 53 47 52 4f 55 50 3a 59 52 54 41 42 20 20 | V.....SI,OFFSET.DOSGROUP:YRTAB.. |
| 0b20 | 20 20 20 20 20 20 3b 54 61 62 6c 65 20 6f 66 20 64 61 79 73 20 69 6e 20 65 61 63 68 20 79 65 61 | ......;Table.of.days.in.each.yea |
| 0b40 | 72 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 44 53 4c 49 44 45 20 20 20 20 20 20 20 | r..........CALL....DSLIDE....... |
| 0b60 | 20 20 20 3b 46 69 6e 64 20 6f 75 74 20 77 68 69 63 68 20 6f 66 20 66 6f 75 72 20 79 65 61 72 73 | ...;Find.out.which.of.four.years |
| 0b80 | 20 77 65 27 72 65 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 53 48 52 20 20 20 20 20 43 58 2c 31 20 | .we're.in..........SHR.....CX,1. |
| 0ba0 | 20 20 20 20 20 20 20 20 20 20 20 3b 43 6f 6e 76 65 72 74 20 68 61 6c 66 2d 79 65 61 72 73 20 74 | ...........;Convert.half-years.t |
| 0bc0 | 6f 20 77 68 6f 6c 65 20 79 65 61 72 73 0d 0a 20 20 20 20 20 20 20 20 4a 4e 43 20 20 20 20 20 53 | o.whole.years..........JNC.....S |
| 0be0 | 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 45 78 74 72 61 20 68 61 6c 66 2d 79 65 61 72 3f | K..............;Extra.half-year? |
| 0c00 | 0d 0a 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 20 44 58 2c 32 30 30 0d 0a 53 4b 3a 0d 0a 20 | ..........ADD.....DX,200..SK:... |
| 0c20 | 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 53 45 54 59 45 41 52 0d 0a 20 20 20 20 20 20 20 20 | .......CALL....SETYEAR.......... |
| 0c40 | 4d 4f 56 20 20 20 20 20 43 4c 2c 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 41 74 20 6c 65 61 73 | MOV.....CL,1............;At.leas |
| 0c60 | 74 20 61 74 20 66 69 72 73 74 20 6d 6f 6e 74 68 20 69 6e 20 79 65 61 72 0d 0a 20 20 20 20 20 20 | t.at.first.month.in.year........ |
| 0c80 | 20 20 4d 4f 56 20 20 20 20 20 53 49 2c 4f 46 46 53 45 54 20 44 4f 53 47 52 4f 55 50 3a 4d 4f 4e | ..MOV.....SI,OFFSET.DOSGROUP:MON |
| 0ca0 | 54 41 42 20 20 20 20 20 20 20 3b 54 61 62 6c 65 20 6f 66 20 64 61 79 73 20 69 6e 20 65 61 63 68 | TAB.......;Table.of.days.in.each |
| 0cc0 | 20 6d 6f 6e 74 68 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 44 53 4c 49 44 45 20 20 | .month..........CALL....DSLIDE.. |
| 0ce0 | 20 20 20 20 20 20 20 20 3b 46 69 6e 64 20 6f 75 74 20 77 68 69 63 68 20 6d 6f 6e 74 68 20 77 65 | ........;Find.out.which.month.we |
| 0d00 | 27 72 65 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 4d 4f 4e 54 48 5d 2c | 're.in..........MOV.....[MONTH], |
| 0d20 | 43 4c 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 44 58 20 20 20 20 20 20 20 20 20 20 | CL..........INC.....DX.......... |
| 0d40 | 20 20 20 20 3b 52 65 6d 61 69 6e 64 65 72 20 69 73 20 64 61 79 20 6f 66 20 6d 6f 6e 74 68 20 28 | ....;Remainder.is.day.of.month.( |
| 0d60 | 73 74 61 72 74 20 77 69 74 68 20 6f 6e 65 29 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 | start.with.one)..........MOV.... |
| 0d80 | 20 5b 44 41 59 5d 2c 44 4c 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 57 4b 44 41 59 | .[DAY],DL..........CALL....WKDAY |
| 0da0 | 20 20 20 20 20 20 20 20 20 20 20 3b 53 65 74 20 64 61 79 20 6f 66 20 77 65 65 6b 0d 0a 20 20 20 | ...........;Set.day.of.week..... |
| 0dc0 | 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 58 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 | .....POP.....DX..........POP.... |
| 0de0 | 20 43 58 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 53 49 0d 0a 52 45 54 32 32 3a 20 | .CX..........POP.....SI..RET22:. |
| 0e00 | 20 52 45 54 0d 0a 52 45 41 44 54 49 4d 45 20 20 20 20 45 4e 44 50 0d 0a 0d 0a 20 20 20 20 20 20 | .RET..READTIME....ENDP.......... |
| 0e20 | 20 20 70 72 6f 63 65 64 75 72 65 20 20 20 44 53 4c 49 44 45 2c 4e 45 41 52 0d 0a 20 20 20 20 20 | ..procedure...DSLIDE,NEAR....... |
| 0e40 | 20 20 20 4d 4f 56 20 20 20 20 20 41 48 2c 30 0d 0a 44 53 4c 49 44 45 31 3a 0d 0a 20 20 20 20 20 | ...MOV.....AH,0..DSLIDE1:....... |
| 0e60 | 20 20 20 4c 4f 44 53 42 20 20 20 20 20 20 20 20 20 20 20 3b 47 65 74 20 63 6f 75 6e 74 20 6f 66 | ...LODSB...........;Get.count.of |
| 0e80 | 20 64 61 79 73 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 44 58 2c 41 58 20 20 20 20 | .days..........CMP.....DX,AX.... |
| 0ea0 | 20 20 20 20 20 20 20 3b 53 65 65 20 69 66 20 69 74 20 77 69 6c 6c 20 66 69 74 0d 0a 20 20 20 20 | .......;See.if.it.will.fit...... |
| 0ec0 | 20 20 20 20 4a 42 20 20 20 20 20 20 52 45 54 32 33 20 20 20 20 20 20 20 20 20 20 20 3b 49 66 20 | ....JB......RET23...........;If. |
| 0ee0 | 6e 6f 74 2c 20 64 6f 6e 65 0d 0a 20 20 20 20 20 20 20 20 53 55 42 20 20 20 20 20 44 58 2c 41 58 | not,.done..........SUB.....DX,AX |
| 0f00 | 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 43 58 20 20 20 20 20 20 20 20 20 20 20 20 | ..........INC.....CX............ |
| 0f20 | 20 20 3b 43 6f 75 6e 74 20 6f 6e 65 20 6d 6f 72 65 20 6d 6f 6e 74 68 2f 79 65 61 72 0d 0a 20 20 | ..;Count.one.more.month/year.... |
| 0f40 | 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 53 48 4f 52 54 20 44 53 4c 49 44 45 31 0d 0a 44 53 4c | ......JMP.....SHORT.DSLIDE1..DSL |
| 0f60 | 49 44 45 20 20 45 4e 44 50 0d 0a 0d 0a 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 20 | IDE..ENDP............procedure.. |
| 0f80 | 20 53 45 54 59 45 41 52 2c 4e 45 41 52 0d 0a 3b 53 65 74 20 79 65 61 72 20 77 69 74 68 20 76 61 | .SETYEAR,NEAR..;Set.year.with.va |
| 0fa0 | 6c 75 65 20 69 6e 20 43 58 2e 20 41 64 6a 75 73 74 20 6c 65 6e 67 74 68 20 6f 66 20 46 65 62 72 | lue.in.CX..Adjust.length.of.Febr |
| 0fc0 | 75 61 72 79 20 66 6f 72 20 74 68 69 73 20 79 65 61 72 2e 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 | uary.for.this.year...........MOV |
| 0fe0 | 20 20 20 20 20 42 59 54 45 20 50 54 52 20 5b 59 45 41 52 5d 2c 43 4c 0d 0a 0d 0a 43 48 4b 59 52 | .....BYTE.PTR.[YEAR],CL....CHKYR |
| 1000 | 3a 0d 0a 20 20 20 20 20 20 20 20 54 45 53 54 20 20 20 20 43 4c 2c 33 20 20 20 20 20 20 20 20 20 | :..........TEST....CL,3......... |
| 1020 | 20 20 20 3b 43 68 65 63 6b 20 66 6f 72 20 6c 65 61 70 20 79 65 61 72 0d 0a 20 20 20 20 20 20 20 | ...;Check.for.leap.year......... |
| 1040 | 20 4d 4f 56 20 20 20 20 20 41 4c 2c 32 38 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 | .MOV.....AL,28..........JNZ..... |
| 1060 | 53 41 56 46 45 42 20 20 20 20 20 20 20 20 20 20 3b 32 38 20 64 61 79 73 20 69 66 20 6e 6f 20 6c | SAVFEB..........;28.days.if.no.l |
| 1080 | 65 61 70 20 79 65 61 72 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 41 4c 20 20 20 20 | eap.year..........INC.....AL.... |
| 10a0 | 20 20 20 20 20 20 20 20 20 20 3b 41 64 64 20 6c 65 61 70 20 64 61 79 0d 0a 53 41 56 46 45 42 3a | ..........;Add.leap.day..SAVFEB: |
| 10c0 | 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 4d 4f 4e 54 41 42 2b 31 5d 2c 41 4c 20 | ..........MOV.....[MONTAB+1],AL. |
| 10e0 | 20 20 3b 53 74 6f 72 65 20 66 6f 72 20 46 65 62 72 75 61 72 79 0d 0a 52 45 54 32 33 3a 20 20 52 | ..;Store.for.February..RET23:..R |
| 1100 | 45 54 0d 0a 53 45 54 59 45 41 52 20 45 4e 44 50 0d 0a 0d 0a 20 20 20 20 20 20 20 20 70 72 6f 63 | ET..SETYEAR.ENDP............proc |
| 1120 | 65 64 75 72 65 20 20 20 44 4f 44 41 54 45 2c 4e 45 41 52 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a | edure...DODATE,NEAR..ASSUME..DS: |
| 1140 | 44 4f 53 47 52 4f 55 50 2c 45 53 3a 4e 4f 54 48 49 4e 47 0d 0a 20 20 20 20 20 20 20 20 43 41 4c | DOSGROUP,ES:NOTHING..........CAL |
| 1160 | 4c 20 20 20 20 43 48 4b 59 52 20 20 20 20 20 20 20 20 20 20 20 3b 53 65 74 20 46 65 62 2e 20 75 | L....CHKYR...........;Set.Feb..u |
| 1180 | 70 20 66 6f 72 20 6e 65 77 20 79 65 61 72 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 | p.for.new.year..........MOV..... |
| 11a0 | 41 4c 2c 44 48 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 58 2c 4f 46 46 53 45 54 | AL,DH..........MOV.....BX,OFFSET |
| 11c0 | 20 44 4f 53 47 52 4f 55 50 3a 4d 4f 4e 54 41 42 2d 31 0d 0a 20 20 20 20 20 20 20 20 58 4c 41 54 | .DOSGROUP:MONTAB-1..........XLAT |
| 11e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4c 6f 6f 6b 20 75 70 20 64 61 79 | ....................;Look.up.day |
| 1200 | 73 20 69 6e 20 6d 6f 6e 74 68 0d 0a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 41 4c 2c 44 | s.in.month..........CMP.....AL,D |
| 1220 | 4c 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c 2c 2d 31 20 20 20 20 20 20 20 20 | L..........MOV.....AL,-1........ |
| 1240 | 20 20 20 3b 52 65 73 74 6f 72 65 20 65 72 72 6f 72 20 66 6c 61 67 2c 20 6a 75 73 74 20 69 6e 20 | ...;Restore.error.flag,.just.in. |
| 1260 | 63 61 73 65 0d 0a 20 20 20 20 20 20 20 20 4a 42 20 20 20 20 20 20 52 45 54 32 35 20 20 20 20 20 | case..........JB......RET25..... |
| 1280 | 20 20 20 20 20 20 3b 45 72 72 6f 72 20 69 66 20 74 6f 6f 20 6d 61 6e 79 20 64 61 79 73 0d 0a 20 | ......;Error.if.too.many.days... |
| 12a0 | 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 53 45 54 59 45 41 52 0d 0a 20 20 20 20 20 20 20 20 | .......CALL....SETYEAR.......... |
| 12c0 | 4d 4f 56 20 20 20 20 20 57 4f 52 44 20 50 54 52 20 5b 44 41 59 5d 2c 44 58 20 20 20 20 20 20 20 | MOV.....WORD.PTR.[DAY],DX....... |
| 12e0 | 3b 53 65 74 20 62 6f 74 68 20 64 61 79 20 61 6e 64 20 6d 6f 6e 74 68 0d 0a 20 20 20 20 20 20 20 | ;Set.both.day.and.month......... |
| 1300 | 20 53 48 52 20 20 20 20 20 43 58 2c 31 0d 0a 20 20 20 20 20 20 20 20 53 48 52 20 20 20 20 20 43 | .SHR.....CX,1..........SHR.....C |
| 1320 | 58 2c 31 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 46 4f 55 52 59 45 41 52 | X,1..........MOV.....AX,FOURYEAR |
| 1340 | 53 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 58 2c 44 58 0d 0a 20 20 20 20 20 20 | S..........MOV.....BX,DX........ |
| 1360 | 20 20 4d 55 4c 20 20 20 20 20 43 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 4c | ..MUL.....CX..........MOV.....CL |
| 1380 | 2c 42 59 54 45 20 50 54 52 20 5b 59 45 41 52 5d 0d 0a 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 | ,BYTE.PTR.[YEAR]..........AND... |
| 13a0 | 20 20 43 4c 2c 33 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 53 49 2c 4f 46 46 53 45 | ..CL,3..........MOV.....SI,OFFSE |
| 13c0 | 54 20 44 4f 53 47 52 4f 55 50 3a 59 52 54 41 42 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 | T.DOSGROUP:YRTAB..........MOV... |
| 13e0 | 20 20 44 58 2c 41 58 0d 0a 20 20 20 20 20 20 20 20 53 48 4c 20 20 20 20 20 43 58 2c 31 20 20 20 | ..DX,AX..........SHL.....CX,1... |
| 1400 | 20 20 20 20 20 20 20 20 20 3b 54 77 6f 20 65 6e 74 72 69 65 73 20 70 65 72 20 79 65 61 72 2c 20 | .........;Two.entries.per.year,. |
| 1420 | 73 6f 20 64 6f 75 62 6c 65 20 63 6f 75 6e 74 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 | so.double.count..........CALL... |
| 1440 | 20 44 53 55 4d 20 20 20 20 20 20 20 20 20 20 20 20 3b 41 64 64 20 75 70 20 74 68 65 20 64 61 79 | .DSUM............;Add.up.the.day |
| 1460 | 73 20 69 6e 20 65 61 63 68 20 79 65 61 72 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 | s.in.each.year..........MOV..... |
| 1480 | 43 4c 2c 42 48 20 20 20 20 20 20 20 20 20 20 20 3b 4d 6f 6e 74 68 20 6f 66 20 79 65 61 72 0d 0a | CL,BH...........;Month.of.year.. |
| 14a0 | 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 53 49 2c 4f 46 46 53 45 54 20 44 4f 53 47 52 4f | ........MOV.....SI,OFFSET.DOSGRO |
| 14c0 | 55 50 3a 4d 4f 4e 54 41 42 0d 0a 20 20 20 20 20 20 20 20 44 45 43 20 20 20 20 20 43 58 20 20 20 | UP:MONTAB..........DEC.....CX... |
| 14e0 | 20 20 20 20 20 20 20 20 20 20 20 3b 41 63 63 6f 75 6e 74 20 66 6f 72 20 6d 6f 6e 74 68 73 20 73 | ...........;Account.for.months.s |
| 1500 | 74 61 72 74 69 6e 67 20 77 69 74 68 20 6f 6e 65 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 | tarting.with.one..........CALL.. |
| 1520 | 20 20 44 53 55 4d 20 20 20 20 20 20 20 20 20 20 20 20 3b 41 64 64 20 75 70 20 64 61 79 73 20 69 | ..DSUM............;Add.up.days.i |
| 1540 | 6e 20 65 61 63 68 20 6d 6f 6e 74 68 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 4c | n.each.month..........MOV.....CL |
| 1560 | 2c 42 4c 20 20 20 20 20 20 20 20 20 20 20 3b 44 61 79 20 6f 66 20 6d 6f 6e 74 68 0d 0a 20 20 20 | ,BL...........;Day.of.month..... |
| 1580 | 20 20 20 20 20 44 45 43 20 20 20 20 20 43 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 41 63 | .....DEC.....CX..............;Ac |
| 15a0 | 63 6f 75 6e 74 20 66 6f 72 20 64 61 79 73 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 6f 6e 65 | count.for.days.starting.with.one |
| 15c0 | 0d 0a 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 20 44 58 2c 43 58 20 20 20 20 20 20 20 20 20 | ..........ADD.....DX,CX......... |
| 15e0 | 20 20 3b 41 64 64 20 69 6e 20 74 6f 20 64 61 79 20 74 6f 74 61 6c 0d 0a 20 20 20 20 20 20 20 20 | ..;Add.in.to.day.total.......... |
| 1600 | 58 43 48 47 20 20 20 20 41 58 2c 44 58 20 20 20 20 20 20 20 20 20 20 20 3b 47 65 74 20 64 61 79 | XCHG....AX,DX...........;Get.day |
| 1620 | 20 63 6f 75 6e 74 20 69 6e 20 41 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 44 | .count.in.AX..........MOV.....[D |
| 1640 | 41 59 43 4e 54 5d 2c 41 58 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 53 49 0d 0a 20 | AYCNT],AX..........PUSH....SI... |
| 1660 | 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 | .......PUSH....BX..........PUSH. |
| 1680 | 20 20 20 41 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 58 2c 4f 46 46 53 45 54 | ...AX..........MOV.....BX,OFFSET |
| 16a0 | 20 44 4f 53 47 52 4f 55 50 3a 54 49 4d 45 42 55 46 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 | .DOSGROUP:TIMEBUF..........MOV.. |
| 16c0 | 20 20 20 43 58 2c 36 0d 0a 20 20 20 20 20 20 20 20 58 4f 52 20 20 20 20 20 44 58 2c 44 58 0d 0a | ...CX,6..........XOR.....DX,DX.. |
| 16e0 | 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 44 58 0d 0a 20 20 20 20 20 20 20 20 50 | ........MOV.....AX,DX..........P |
| 1700 | 55 53 48 20 20 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 69 6e 76 6f 6b 65 20 20 53 45 54 52 45 | USH....BX..........invoke..SETRE |
| 1720 | 41 44 0d 0a 41 53 53 55 4d 45 20 20 45 53 3a 44 4f 53 47 52 4f 55 50 0d 0a 20 20 20 20 20 20 20 | AD..ASSUME..ES:DOSGROUP......... |
| 1740 | 20 50 55 53 48 20 20 20 20 44 53 0d 0a 20 20 20 20 20 20 20 20 4c 44 53 20 20 20 20 20 53 49 2c | .PUSH....DS..........LDS.....SI, |
| 1760 | 5b 42 43 4c 4f 43 4b 5d 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 4e 4f 54 48 49 4e 47 0d 0a 20 20 | [BCLOCK]..ASSUME..DS:NOTHING.... |
| 1780 | 20 20 20 20 20 20 69 6e 76 6f 6b 65 20 20 44 45 56 49 4f 43 41 4c 4c 32 20 20 20 20 20 20 3b 47 | ......invoke..DEVIOCALL2......;G |
| 17a0 | 65 74 20 63 6f 72 72 65 63 74 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 0d 0a 20 20 20 20 20 20 | et.correct.date.and.time........ |
| 17c0 | 20 20 50 4f 50 20 20 20 20 20 44 53 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 58 | ..POP.....DS..........POP.....BX |
| 17e0 | 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 44 4f 53 47 52 4f 55 50 0d 0a 20 20 20 20 20 20 20 20 69 | ..ASSUME..DS:DOSGROUP..........i |
| 1800 | 6e 76 6f 6b 65 20 20 53 45 54 57 52 49 54 45 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 | nvoke..SETWRITE..........POP.... |
| 1820 | 20 57 4f 52 44 20 50 54 52 20 5b 54 49 4d 45 42 55 46 5d 0d 0a 20 20 20 20 20 20 20 20 50 55 53 | .WORD.PTR.[TIMEBUF]..........PUS |
| 1840 | 48 20 20 20 20 44 53 0d 0a 20 20 20 20 20 20 20 20 4c 44 53 20 20 20 20 20 53 49 2c 5b 42 43 4c | H....DS..........LDS.....SI,[BCL |
| 1860 | 4f 43 4b 5d 0d 0a 41 53 53 55 4d 45 20 20 44 53 3a 4e 4f 54 48 49 4e 47 0d 0a 20 20 20 20 20 20 | OCK]..ASSUME..DS:NOTHING........ |
| 1880 | 20 20 69 6e 76 6f 6b 65 20 20 44 45 56 49 4f 43 41 4c 4c 32 20 20 20 20 20 20 3b 53 65 74 20 74 | ..invoke..DEVIOCALL2......;Set.t |
| 18a0 | 68 65 20 64 61 74 65 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 53 0d 0a 41 53 53 | he.date..........POP.....DS..ASS |
| 18c0 | 55 4d 45 20 20 44 53 3a 44 4f 53 47 52 4f 55 50 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 | UME..DS:DOSGROUP..........POP... |
| 18e0 | 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 53 49 0d 0a 57 4b 44 41 59 3a | ..BX..........POP.....SI..WKDAY: |
| 1900 | 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 58 2c 5b 44 41 59 43 4e 54 5d 0d 0a 20 | ..........MOV.....AX,[DAYCNT]... |
| 1920 | 20 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 4d 4f | .......XOR.....DX,DX..........MO |
| 1940 | 56 20 20 20 20 20 43 58 2c 37 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 41 58 0d 0a | V.....CX,7..........INC.....AX.. |
| 1960 | 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 41 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........INC.....AX.............. |
| 1980 | 3b 46 69 72 73 74 20 64 61 79 20 77 61 73 20 54 75 65 73 64 61 79 0d 0a 20 20 20 20 20 20 20 20 | ;First.day.was.Tuesday.......... |
| 19a0 | 44 49 56 20 20 20 20 20 43 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 43 6f 6d 70 75 74 65 | DIV.....CX..............;Compute |
| 19c0 | 20 64 61 79 20 6f 66 20 77 65 65 6b 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 5b 57 | .day.of.week..........MOV.....[W |
| 19e0 | 45 45 4b 44 41 59 5d 2c 44 4c 0d 0a 20 20 20 20 20 20 20 20 58 4f 52 20 20 20 20 20 41 4c 2c 41 | EEKDAY],DL..........XOR.....AL,A |
| 1a00 | 4c 20 20 20 20 20 20 20 20 20 20 20 3b 46 6c 61 67 20 4f 4b 0d 0a 52 45 54 32 35 3a 20 20 52 45 | L...........;Flag.OK..RET25:..RE |
| 1a20 | 54 0d 0a 44 4f 44 41 54 45 20 20 45 4e 44 50 0d 0a 0d 0a 20 20 20 20 20 20 20 20 70 72 6f 63 65 | T..DODATE..ENDP............proce |
| 1a40 | 64 75 72 65 20 20 20 44 53 55 4d 2c 4e 45 41 52 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 | dure...DSUM,NEAR..........MOV... |
| 1a60 | 20 20 41 48 2c 30 0d 0a 20 20 20 20 20 20 20 20 4a 43 58 5a 20 20 20 20 52 45 54 32 35 0d 0a 44 | ..AH,0..........JCXZ....RET25..D |
| 1a80 | 53 55 4d 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 41 44 | SUM1:..........LODSB..........AD |
| 1aa0 | 44 20 20 20 20 20 44 58 2c 41 58 0d 0a 20 20 20 20 20 20 20 20 4c 4f 4f 50 20 20 20 20 44 53 55 | D.....DX,AX..........LOOP....DSU |
| 1ac0 | 4d 31 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 44 53 55 4d 20 20 20 20 45 4e 44 50 0d 0a 0d | M1..........RET..DSUM....ENDP... |
| 1ae0 | 0a 64 6f 5f 65 78 74 0d 0a 0d 0a 43 4f 44 45 20 20 20 20 20 20 20 20 20 45 4e 44 53 0d 0a 20 20 | .do_ext....CODE.........ENDS.... |
| 1b00 | 20 20 45 4e 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 | ..END........................... |
| 1b20 | 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 00 00 00 00 00 00 | ................................ |
| 1b40 | 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 | ................................ |
| 1b60 | 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 | ................................ |
 |
index : ms-dos | |
| Mirror of https://github.com/microsoft/MS-DOS.git | git |
| summaryrefslogtreecommitdiff |
blob: f1e4a1cadb97a693f0f24566f580fefaefef7998 (plain) (blame)