[f40a309] | 1 | /*
|
---|
| 2 | =============================================================================
|
---|
| 3 | dirfns.c -- miscellaneous directory functions
|
---|
| 4 | Version 4 -- 1987-06-04 -- D.N. Lynx Crowe
|
---|
| 5 | =============================================================================
|
---|
| 6 | */
|
---|
| 7 |
|
---|
[b28a12e] | 8 | #include "ram.h"
|
---|
[f40a309] | 9 |
|
---|
[7258c6a] | 10 | static int8_t atrcons[] = "ADVSHR";
|
---|
[f40a309] | 11 |
|
---|
| 12 | /*
|
---|
| 13 | =============================================================================
|
---|
| 14 | atrstr(atr, s) -- convert attributes to character string
|
---|
| 15 | =============================================================================
|
---|
| 16 | */
|
---|
| 17 |
|
---|
[7258c6a] | 18 | int8_t *atrstr(int16_t atr, int8_t s[])
|
---|
[f40a309] | 19 | {
|
---|
[7258c6a] | 20 | register int16_t i, j;
|
---|
[f40a309] | 21 |
|
---|
| 22 | i = 0x20;
|
---|
| 23 |
|
---|
| 24 | for (j = 0; j < 6; j++) {
|
---|
| 25 |
|
---|
| 26 | if (atr & i)
|
---|
| 27 | s[j] = atrcons[j];
|
---|
| 28 | else
|
---|
| 29 | s[j] = '-';
|
---|
| 30 |
|
---|
| 31 | i >>= 1;
|
---|
| 32 | }
|
---|
| 33 |
|
---|
| 34 | s[j] = '\0';
|
---|
| 35 | return(s);
|
---|
| 36 | }
|
---|
| 37 |
|
---|
| 38 | /* |
---|
| 39 | */
|
---|
[7258c6a] | 40 |
|
---|
[f40a309] | 41 | static int8_t *mnames[] = {
|
---|
| 42 |
|
---|
| 43 | "???",
|
---|
| 44 | "Jan",
|
---|
| 45 | "Feb",
|
---|
| 46 | "Mar",
|
---|
| 47 | "Apr",
|
---|
| 48 | "May",
|
---|
| 49 | "Jun",
|
---|
| 50 | "Jul",
|
---|
| 51 | "Aug",
|
---|
| 52 | "Sep",
|
---|
| 53 | "Oct",
|
---|
| 54 | "Nov",
|
---|
| 55 | "Dec"
|
---|
| 56 | };
|
---|
| 57 |
|
---|
| 58 | /*
|
---|
| 59 | =============================================================================
|
---|
| 60 | mname - convert month number to month name
|
---|
| 61 | =============================================================================
|
---|
| 62 | */
|
---|
[7258c6a] | 63 |
|
---|
[f40a309] | 64 | int8_t *mname(int16_t n)
|
---|
| 65 | {
|
---|
| 66 | return((n < 1 || n > 12) ? mnames[0] : mnames[n]);
|
---|
| 67 | }
|
---|
| 68 |
|
---|
| 69 | /* |
---|
| 70 | */
|
---|
| 71 |
|
---|
| 72 | /*
|
---|
| 73 | =============================================================================
|
---|
| 74 | dtunpk(din, tin, s, fmt) -- unpack the date and time from DOS format
|
---|
| 75 | into "yyyy-mm-dd hh:mm", "yyyy mmm dd hh:mm", or "mmm dd yyyy hh:mm"
|
---|
| 76 | format.
|
---|
| 77 | =============================================================================
|
---|
[7258c6a] | 78 | */
|
---|
[f40a309] | 79 |
|
---|
[7258c6a] | 80 | int8_t *dtunpk(int16_t din, int16_t tin, int16_t fmt, int8_t *s)
|
---|
[f40a309] | 81 | {
|
---|
| 82 | register int16_t ftm, fdt;
|
---|
| 83 |
|
---|
| 84 | ftm = ((tin << 8) & 0xFF00) | ((tin >> 8) & 0x00FF);
|
---|
| 85 | fdt = ((din << 8) & 0xFF00) | ((din >> 8) & 0x00FF);
|
---|
| 86 |
|
---|
| 87 | switch (fmt) {
|
---|
| 88 |
|
---|
| 89 | case 0: /* yyyy-mm-dd hh:mm format */
|
---|
| 90 |
|
---|
| 91 | sprintf(s, "%04d-%02d-%02d %02d:%02d",
|
---|
| 92 | 1980 + ((fdt >> 9) & 0x7F),
|
---|
| 93 | (fdt >> 5) & 0xF,
|
---|
| 94 | fdt & 0x1F,
|
---|
| 95 | (ftm >> 11) & 0x1F,
|
---|
| 96 | (ftm >> 5) & 0x3F
|
---|
| 97 | );
|
---|
| 98 |
|
---|
| 99 | s[16] = '\0';
|
---|
| 100 | break;
|
---|
| 101 |
|
---|
| 102 | case 1: /* yyyy mmm dd hh:mm format */
|
---|
| 103 | default:
|
---|
| 104 |
|
---|
| 105 | sprintf(s, "%04d %s %-2d %02d:%02d",
|
---|
| 106 | 1980 + ((fdt >> 9) & 0x7F),
|
---|
| 107 | mname((fdt >> 5) & 0xF),
|
---|
| 108 | fdt & 0x1F,
|
---|
| 109 | (ftm >> 11) & 0x1F,
|
---|
| 110 | (ftm >> 5) & 0x3F
|
---|
| 111 | );
|
---|
| 112 |
|
---|
| 113 | s[17] = '\0';
|
---|
| 114 | break;
|
---|
| 115 |
|
---|
| 116 | /* |
---|
| 117 | */
|
---|
| 118 |
|
---|
| 119 | case 2: /* mmm dd yyyy hh:mm format */
|
---|
| 120 |
|
---|
| 121 | sprintf(s, "%s %2d %04d %02d:%02d",
|
---|
| 122 | mname((fdt >> 5) & 0xF),
|
---|
| 123 | fdt & 0x1F,
|
---|
| 124 | 1980 + ((fdt >> 9) & 0x7F),
|
---|
| 125 | (ftm >> 11) & 0x1F,
|
---|
| 126 | (ftm >> 5) & 0x3F
|
---|
| 127 | );
|
---|
| 128 |
|
---|
| 129 | s[17] = '\0';
|
---|
| 130 | break;
|
---|
| 131 | }
|
---|
[6262b5c] | 132 |
|
---|
| 133 | return(s);
|
---|
| 134 | }
|
---|
| 135 |
|
---|