|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1652 (0x674)
Names: »STD.H«, »std.h«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!C.D!STD.H«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!C.D!std.h«
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!C.D!STD.H«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!C.D!std.h«
0x000…020 2f 2a 09 54 48 45 20 53 54 41 4e 44 41 52 44 20 48 45 41 44 45 52 0a 20 2a 09 63 6f 70 79 72 69 ┆/* THE STANDARD HEADER * copyri┆
0x020…040 67 68 74 20 28 63 29 20 31 39 38 33 20 62 79 20 43 72 69 73 74 69 61 6e 20 52 6f 76 73 69 6e 67 ┆ght (c) 1983 by Cristian Rovsing┆
0x040…060 20 41 2f 53 2e 0a 20 2a 2f 0a 0a 2f 2a 20 74 68 65 20 70 73 65 75 64 6f 20 73 74 6f 72 61 67 65 ┆ A/S. */ /* the pseudo storage┆
0x060…080 20 63 6c 61 73 73 65 73 0a 20 2a 2f 0a 23 64 65 66 69 6e 65 20 46 41 53 54 09 72 65 67 69 73 74 ┆ classes */ #define FAST regist┆
0x080…0a0 65 72 0a 23 64 65 66 69 6e 65 20 47 4c 4f 42 41 4c 09 65 78 74 65 72 6e 0a 23 64 65 66 69 6e 65 ┆er #define GLOBAL extern #define┆
0x0a0…0c0 20 49 4d 50 4f 52 54 09 65 78 74 65 72 6e 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4e 09 73 74 ┆ IMPORT extern #define INTERN st┆
0x0c0…0e0 61 74 69 63 0a 23 64 65 66 69 6e 65 20 4c 4f 43 41 4c 09 73 74 61 74 69 63 0a 0a 2f 2a 20 74 68 ┆atic #define LOCAL static /* th┆
0x0e0…100 65 20 70 73 65 75 64 6f 20 74 79 70 65 73 0a 20 2a 2f 0a 23 69 66 64 65 66 20 55 54 45 58 54 0a ┆e pseudo types */ #ifdef UTEXT ┆
0x100…120 74 79 70 65 64 65 66 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 54 45 58 54 3b 0a 23 65 6c 73 ┆typedef unsigned char TEXT; #els┆
0x120…140 65 0a 74 79 70 65 64 65 66 20 63 68 61 72 20 54 45 58 54 3b 0a 23 65 6e 64 69 66 0a 74 79 70 65 ┆e typedef char TEXT; #endif type┆
0x140…160 64 65 66 20 54 45 58 54 20 54 42 4f 4f 4c 3b 0a 74 79 70 65 64 65 66 20 63 68 61 72 20 54 49 4e ┆def TEXT TBOOL; typedef char TIN┆
0x160…180 59 3b 0a 74 79 70 65 64 65 66 20 64 6f 75 62 6c 65 20 44 4f 55 42 4c 45 3b 0a 74 79 70 65 64 65 ┆Y; typedef double DOUBLE; typede┆
0x180…1a0 66 20 69 6e 74 20 41 52 47 49 4e 54 2c 20 42 4f 4f 4c 2c 20 56 4f 49 44 3b 0a 74 79 70 65 64 65 ┆f int ARGINT, BOOL, VOID; typede┆
0x1a0…1c0 66 20 6c 6f 6e 67 20 4c 4f 4e 47 3b 0a 74 79 70 65 64 65 66 20 73 68 6f 72 74 20 43 4f 55 4e 54 ┆f long LONG; typedef short COUNT┆
0x1c0…1e0 2c 20 46 49 4c 45 2c 20 4d 45 54 41 43 48 3b 0a 74 79 70 65 64 65 66 20 75 6e 73 69 67 6e 65 64 ┆, FILE, METACH; typedef unsigned┆
0x1e0…200 20 42 59 54 45 53 3b 0a 74 79 70 65 64 65 66 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 55 54 ┆ BYTES; typedef unsigned char UT┆
0x200…220 49 4e 59 3b 0a 74 79 70 65 64 65 66 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 55 4c 4f 4e 47 ┆INY; typedef unsigned long ULONG┆
0x220…240 3b 0a 74 79 70 65 64 65 66 20 75 6e 73 69 67 6e 65 64 20 73 68 6f 72 74 20 42 49 54 53 2c 20 55 ┆; typedef unsigned short BITS, U┆
0x240…260 43 4f 55 4e 54 3b 0a 0a 2f 2a 20 73 79 73 74 65 6d 20 70 61 72 61 6d 65 74 65 72 73 0a 20 2a 2f ┆COUNT; /* system parameters */┆
0x260…280 0a 23 64 65 66 69 6e 65 20 59 45 53 09 09 31 0a 23 64 65 66 69 6e 65 20 4e 4f 09 09 30 0a 23 64 ┆ #define YES 1 #define NO 0 #d┆
0x280…2a0 65 66 69 6e 65 20 4e 55 4c 4c 09 30 0a 23 64 65 66 69 6e 65 20 46 4f 52 45 56 45 52 09 66 6f 72 ┆efine NULL 0 #define FOREVER for┆
0x2a0…2c0 20 28 3b 3b 29 0a 23 64 65 66 69 6e 65 20 42 55 46 53 49 5a 45 09 35 31 32 0a 23 64 65 66 69 6e ┆ (;;) #define BUFSIZE 512 #defin┆
0x2c0…2e0 65 20 42 57 52 49 54 45 09 2d 31 0a 23 64 65 66 69 6e 65 20 52 45 41 44 09 30 0a 23 64 65 66 69 ┆e BWRITE -1 #define READ 0 #defi┆
0x2e0…300 6e 65 20 57 52 49 54 45 09 31 0a 23 64 65 66 69 6e 65 20 55 50 44 41 54 45 09 32 0a 23 64 65 66 ┆ne WRITE 1 #define UPDATE 2 #def┆
0x300…320 69 6e 65 20 45 4f 46 09 09 2d 31 0a 23 64 65 66 69 6e 65 20 42 59 54 4d 41 53 4b 09 30 33 37 37 ┆ine EOF -1 #define BYTMASK 0377┆
0x320…340 0a 0a 2f 2a 09 6d 61 63 72 6f 73 0a 20 2a 2f 0a 23 64 65 66 69 6e 65 20 61 62 73 28 78 29 09 09 ┆ /* macros */ #define abs(x) ┆
0x340…360 28 28 78 29 20 3c 20 30 20 3f 20 2d 28 78 29 20 3a 20 28 78 29 29 0a 23 64 65 66 69 6e 65 20 67 ┆((x) < 0 ? -(x) : (x)) #define g┆
0x360…380 74 63 28 70 66 29 09 28 30 20 3c 20 28 70 66 29 2d 3e 5f 6e 6c 65 66 74 20 3f 20 28 2d 2d 28 70 ┆tc(pf) (0 < (pf)->_nleft ? (--(p┆
0x380…3a0 66 29 2d 3e 5f 6e 6c 65 66 74 2c 20 5c 0a 09 09 2a 28 70 66 29 2d 3e 5f 70 6e 65 78 74 2b 2b 20 ┆f)->_nleft, \ *(pf)->_pnext++ ┆
0x3a0…3c0 26 20 42 59 54 4d 41 53 4b 29 20 3a 20 67 65 74 63 28 70 66 29 29 0a 23 64 65 66 69 6e 65 20 69 ┆& BYTMASK) : getc(pf)) #define i┆
0x3c0…3e0 73 61 6c 70 68 61 28 63 29 09 28 69 73 6c 6f 77 65 72 28 63 29 20 7c 7c 20 69 73 75 70 70 65 72 ┆salpha(c) (islower(c) || isupper┆
0x3e0…400 28 63 29 29 0a 23 64 65 66 69 6e 65 20 69 73 64 69 67 69 74 28 63 29 09 28 27 30 27 20 3c 3d 20 ┆(c)) #define isdigit(c) ('0' <= ┆
0x400…420 28 63 29 20 26 26 20 28 63 29 20 3c 3d 20 27 39 27 29 0a 23 64 65 66 69 6e 65 20 69 73 6c 6f 77 ┆(c) && (c) <= '9') #define islow┆
0x420…440 65 72 28 63 29 09 28 27 61 27 20 3c 3d 20 28 63 29 20 26 26 20 28 63 29 20 3c 3d 20 27 7a 27 29 ┆er(c) ('a' <= (c) && (c) <= 'z')┆
0x440…460 0a 23 64 65 66 69 6e 65 20 69 73 75 70 70 65 72 28 63 29 09 28 27 41 27 20 3c 3d 20 28 63 29 20 ┆ #define isupper(c) ('A' <= (c) ┆
0x460…480 26 26 20 28 63 29 20 3c 3d 20 27 5a 27 29 0a 23 64 65 66 69 6e 65 20 69 73 77 68 69 74 65 28 63 ┆&& (c) <= 'Z') #define iswhite(c┆
0x480…4a0 29 09 28 28 63 29 20 3c 3d 20 27 20 27 20 7c 7c 20 30 31 37 37 20 3c 3d 20 28 63 29 29 0a 23 64 ┆) ((c) <= ' ' || 0177 <= (c)) #d┆
0x4a0…4c0 65 66 69 6e 65 20 6d 61 78 28 78 2c 20 79 29 09 28 28 28 78 29 20 3c 20 28 79 29 29 20 3f 20 28 ┆efine max(x, y) (((x) < (y)) ? (┆
0x4c0…4e0 79 29 20 3a 20 28 78 29 29 0a 23 64 65 66 69 6e 65 20 6d 69 6e 28 78 2c 20 79 29 09 28 28 28 78 ┆y) : (x)) #define min(x, y) (((x┆
0x4e0…500 29 20 3c 20 28 79 29 29 20 3f 20 28 78 29 20 3a 20 28 79 29 29 0a 23 64 65 66 69 6e 65 20 70 74 ┆) < (y)) ? (x) : (y)) #define pt┆
0x500…520 63 28 70 66 2c 20 63 29 09 28 28 28 70 66 29 2d 3e 5f 6e 6c 65 66 74 20 3c 20 35 31 32 29 20 3f ┆c(pf, c) (((pf)->_nleft < 512) ?┆
0x520…540 20 28 70 66 29 2d 3e 5f 62 75 66 5b 28 70 66 29 2d 3e 5f 6e 6c 65 66 74 2b 2b 5d 20 3d 20 28 63 ┆ (pf)->_buf[(pf)->_nleft++] = (c┆
0x540…560 29 20 3a 5c 0a 09 70 75 74 63 28 70 66 2c 20 63 29 29 0a 23 64 65 66 69 6e 65 20 74 6f 6c 6f 77 ┆) :\ putc(pf, c)) #define tolow┆
0x560…580 65 72 28 63 29 09 28 69 73 75 70 70 65 72 28 63 29 20 3f 20 28 28 63 29 20 2b 20 28 27 61 27 20 ┆er(c) (isupper(c) ? ((c) + ('a' ┆
0x580…5a0 2d 20 27 41 27 29 29 20 3a 20 28 63 29 29 0a 23 64 65 66 69 6e 65 20 74 6f 75 70 70 65 72 28 63 ┆- 'A')) : (c)) #define toupper(c┆
0x5a0…5c0 29 09 28 69 73 6c 6f 77 65 72 28 63 29 20 3f 20 28 28 63 29 20 2d 20 28 27 61 27 20 2d 20 27 41 ┆) (islower(c) ? ((c) - ('a' - 'A┆
0x5c0…5e0 27 29 29 20 3a 20 28 63 29 29 0a 0a 2f 2a 20 74 68 65 20 66 69 6c 65 20 49 4f 20 73 74 72 75 63 ┆')) : (c)) /* the file IO struc┆
0x5e0…600 74 75 72 65 0a 20 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 66 69 6f 0a 09 7b 0a 09 ┆ture */ typedef struct fio { ┆
0x600…620 46 49 4c 45 20 5f 66 64 3b 0a 09 43 4f 55 4e 54 20 5f 6e 6c 65 66 74 3b 0a 09 43 4f 55 4e 54 20 ┆FILE _fd; COUNT _nleft; COUNT ┆
0x620…640 5f 66 6d 6f 64 65 3b 0a 09 54 45 58 54 20 2a 5f 70 6e 65 78 74 3b 0a 09 54 45 58 54 20 5f 62 75 ┆_fmode; TEXT *_pnext; TEXT _bu┆
0x640…660 66 5b 42 55 46 53 49 5a 45 5d 3b 0a 09 7d 20 46 49 4f 3b 0a 0a 49 4d 50 4f 52 54 20 53 54 44 4f ┆f[BUFSIZE]; } FIO; IMPORT STDO┆
0x660…674 55 54 2c 20 53 54 44 49 4e 2c 20 53 54 44 45 52 52 3b 20 d9 ┆UT, STDIN, STDERR; ┆