|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1698 (0x6a2)
Notes: UNIX file
Names: »con.c«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦2d53db1df⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »sys/z8001/diag/con.c«
0x000…020 2f 2a 20 28 2d 6c 67 6c 0a 20 2a 20 09 54 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 63 6f 6e ┆/* (-lgl * The information con┆
0x020…040 74 61 69 6e 65 64 20 68 65 72 65 69 6e 20 69 73 20 61 20 74 72 61 64 65 20 73 65 63 72 65 74 20 ┆tained herein is a trade secret ┆
0x040…060 6f 66 20 4d 61 72 6b 20 57 69 6c 6c 69 61 6d 73 0a 20 2a 20 09 43 6f 6d 70 61 6e 79 2c 20 61 6e ┆of Mark Williams * Company, an┆
0x060…080 64 20 20 69 73 20 63 6f 6e 66 69 64 65 6e 74 69 61 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 20 ┆d is confidential information. ┆
0x080…0a0 20 49 74 20 69 73 20 70 72 6f 76 69 64 65 64 20 20 75 6e 64 65 72 20 61 0a 20 2a 20 09 6c 69 63 ┆ It is provided under a * lic┆
0x0a0…0c0 65 6e 73 65 20 61 67 72 65 65 6d 65 6e 74 2c 20 20 61 6e 64 20 6d 61 79 20 62 65 20 20 63 6f 70 ┆ense agreement, and may be cop┆
0x0c0…0e0 69 65 64 20 6f 72 20 64 69 73 63 6c 6f 73 65 64 20 20 6f 6e 6c 79 20 75 6e 64 65 72 20 74 68 65 ┆ied or disclosed only under the┆
0x0e0…100 0a 20 2a 20 09 74 65 72 6d 73 20 6f 66 20 20 74 68 61 74 20 61 67 72 65 65 6d 65 6e 74 2e 20 20 ┆ * terms of that agreement. ┆
0x100…120 41 6e 79 20 20 72 65 70 72 6f 64 75 63 74 69 6f 6e 20 6f 72 20 64 69 73 63 6c 6f 73 75 72 65 20 ┆Any reproduction or disclosure ┆
0x120…140 20 6f 66 20 74 68 69 73 0a 20 2a 20 09 6d 61 74 65 72 69 61 6c 20 77 69 74 68 6f 75 74 20 74 68 ┆ of this * material without th┆
0x140…160 65 20 65 78 70 72 65 73 73 20 77 72 69 74 74 65 6e 20 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 20 ┆e express written authorization ┆
0x160…180 6f 66 20 4d 61 72 6b 20 57 69 6c 6c 69 61 6d 73 0a 20 2a 20 09 43 6f 6d 70 61 6e 79 20 6f 72 20 ┆of Mark Williams * Company or ┆
0x180…1a0 70 65 72 73 75 61 6e 74 20 74 6f 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 67 72 65 65 6d 65 6e ┆persuant to the license agreemen┆
0x1a0…1c0 74 20 69 73 20 75 6e 6c 61 77 66 75 6c 2e 0a 20 2a 20 0a 20 2a 20 09 43 4f 48 45 52 45 4e 54 20 ┆t is unlawful. * * COHERENT ┆
0x1c0…1e0 56 65 72 73 69 6f 6e 20 30 2e 37 2e 33 0a 20 2a 20 09 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 ┆Version 0.7.3 * Copyright (c) ┆
0x1e0…200 31 39 38 32 2c 20 31 39 38 33 2c 20 31 39 38 34 2e 0a 20 2a 20 09 41 6e 20 75 6e 70 75 62 6c 69 ┆1982, 1983, 1984. * An unpubli┆
0x200…220 73 68 65 64 20 77 6f 72 6b 20 62 79 20 4d 61 72 6b 20 57 69 6c 6c 69 61 6d 73 20 43 6f 6d 70 61 ┆shed work by Mark Williams Compa┆
0x220…240 6e 79 2c 20 43 68 69 63 61 67 6f 2e 0a 20 2a 20 09 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65 ┆ny, Chicago. * All rights rese┆
0x240…260 72 76 65 64 2e 0a 20 2d 6c 67 6c 29 20 2a 2f 0a 2f 2a 0a 20 2a 20 43 6f 6d 6d 6f 64 6f 72 65 20 ┆rved. -lgl) */ /* * Commodore ┆
0x260…280 4d 2d 73 65 72 69 65 73 20 5a 38 30 30 31 0a 20 2a 20 64 69 61 67 6e 6f 73 74 69 63 20 63 6f 6e ┆M-series Z8001 * diagnostic con┆
0x280…2a0 66 69 67 75 72 61 74 69 6f 6e 20 66 69 6c 65 2e 0a 20 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 3c 63 ┆figuration file. */ #include <c┆
0x2a0…2c0 6f 68 65 72 65 6e 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 63 6f 6e 2e 68 3e 0a 23 69 6e 63 ┆oherent.h> #include <con.h> #inc┆
0x2c0…2e0 6c 75 64 65 20 3c 6d 74 79 70 65 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 61 74 2e 68 3e ┆lude <mtype.h> #include <stat.h>┆
0x2e0…300 0a 0a 65 78 74 65 72 6e 09 43 4f 4e 09 6e 6c 63 6f 6e 5b 5d 3b 09 09 2f 2a 20 4e 75 6c 6c 20 64 ┆ extern CON nlcon[]; /* Null d┆
0x300…320 65 76 69 63 65 20 2a 2f 0a 65 78 74 65 72 6e 09 43 4f 4e 09 63 74 63 6f 6e 5b 5d 3b 09 09 2f 2a ┆evice */ extern CON ctcon[]; /*┆
0x320…340 20 43 6f 6e 73 6f 6c 65 20 74 65 72 6d 69 6e 61 6c 20 2a 2f 0a 65 78 74 65 72 6e 09 43 4f 4e 09 ┆ Console terminal */ extern CON ┆
0x340…360 61 6c 63 6f 6e 5b 5d 3b 09 09 2f 2a 20 41 73 79 6e 63 68 72 6f 6e 6f 75 73 20 6c 69 6e 65 20 2a ┆alcon[]; /* Asynchronous line *┆
0x360…380 2f 0a 65 78 74 65 72 6e 09 43 4f 4e 09 77 64 63 6f 6e 5b 5d 3b 09 09 2f 2a 20 57 65 73 74 65 72 ┆/ extern CON wdcon[]; /* Wester┆
0x380…3a0 6e 20 44 69 67 69 74 61 6c 20 68 61 72 64 20 64 69 73 6b 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 44 65 ┆n Digital hard disk */ /* * De┆
0x3a0…3c0 76 69 63 65 20 74 61 62 6c 65 2e 0a 20 2a 2f 0a 44 52 56 20 64 72 76 6c 5b 31 36 5d 20 3d 7b 0a ┆vice table. */ DRV drvl[16] ={ ┆
0x3c0…3e0 09 7b 6e 6c 63 6f 6e 7d 2c 09 7b 63 74 63 6f 6e 7d 2c 09 7b 77 64 63 6f 6e 7d 2c 09 7b 4e 55 4c ┆ {nlcon}, {ctcon}, {wdcon}, {NUL┆
0x3e0…400 4c 7d 2c 0a 09 7b 4e 55 4c 4c 7d 2c 09 09 7b 61 6c 63 6f 6e 7d 2c 09 7b 4e 55 4c 4c 7d 2c 09 09 ┆L}, {NULL}, {alcon}, {NULL}, ┆
0x400…420 7b 4e 55 4c 4c 7d 2c 0a 09 7b 4e 55 4c 4c 7d 2c 09 09 7b 4e 55 4c 4c 7d 2c 09 09 7b 4e 55 4c 4c ┆{NULL}, {NULL}, {NULL}, {NULL┆
0x420…440 7d 2c 09 09 7b 4e 55 4c 4c 7d 2c 0a 09 7b 4e 55 4c 4c 7d 70 3a 01 ce 25 55 4c 4c 7d 2c 09 09 7b ┆}, {NULL}, {NULL}p: %ULL}, {┆
0x440…460 4e 55 4c 4c 7d 2c 09 09 7b 4e 55 4c 4c 7d 2c 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 54 69 6d 65 2e 0a ┆NULL}, {NULL}, }; /* * Time. ┆
0x460…480 20 2a 2f 0a 54 49 4d 45 20 74 69 6d 65 72 20 3d 7b 0a 09 30 2c 09 09 09 09 2f 2a 20 49 6e 69 74 ┆ */ TIME timer ={ 0, /* Init┆
0x480…4a0 69 61 6c 20 74 69 6d 65 20 2a 2f 0a 09 30 2c 09 09 09 09 2f 2a 20 54 69 63 6b 73 20 2a 2f 0a 23 ┆ial time */ 0, /* Ticks */ #┆
0x4a0…4c0 69 66 64 65 66 20 45 53 54 0a 09 35 2a 36 30 2c 09 09 09 09 2f 2a 20 45 61 73 74 65 72 6e 20 2a ┆ifdef EST 5*60, /* Eastern *┆
0x4c0…4e0 2f 0a 23 65 6c 73 65 0a 09 36 2a 36 30 2c 09 09 09 09 2f 2a 20 43 65 6e 74 72 61 6c 20 2a 2f 0a ┆/ #else 6*60, /* Central */ ┆
0x4e0…500 23 65 6e 64 69 66 0a 09 31 2c 09 09 09 09 2f 2a 20 44 61 79 6c 69 67 68 74 20 73 61 76 69 6e 67 ┆#endif 1, /* Daylight saving┆
0x500…520 20 74 69 6d 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 44 65 76 69 63 65 73 20 61 6e 64 20 73 ┆ time */ }; /* * Devices and s┆
0x520…540 69 7a 65 73 2e 0a 20 2a 2f 0a 64 65 76 5f 74 09 72 6f 6f 74 64 65 76 20 3d 20 6d 61 6b 65 64 65 ┆izes. */ dev_t rootdev = makede┆
0x540…560 76 28 32 2c 20 30 29 3b 09 2f 2a 20 52 6f 6f 74 20 64 65 76 69 63 65 20 3d 20 57 44 20 68 61 72 ┆v(2, 0); /* Root device = WD har┆
0x560…580 64 20 64 69 73 6b 20 2a 2f 0a 64 65 76 5f 74 09 70 69 70 65 64 65 76 20 3d 20 6d 61 6b 65 64 65 ┆d disk */ dev_t pipedev = makede┆
0x580…5a0 76 28 32 2c 20 30 29 3b 09 2f 2a 20 50 69 70 65 20 64 65 76 69 63 65 20 2a 2f 0a 64 65 76 5f 74 ┆v(2, 0); /* Pipe device */ dev_t┆
0x5a0…5c0 09 73 77 61 70 64 65 76 20 3d 20 6d 61 6b 65 64 65 76 28 32 2c 20 33 29 3b 09 2f 2a 20 53 77 61 ┆ swapdev = makedev(2, 3); /* Swa┆
0x5c0…5e0 70 20 64 65 76 69 63 65 20 2a 2f 0a 64 61 64 64 72 5f 74 09 73 77 61 70 62 6f 74 20 3d 20 33 30 ┆p device */ daddr_t swapbot = 30┆
0x5e0…600 30 31 3b 09 09 09 2f 2a 20 53 77 61 70 20 62 61 73 65 20 2a 2f 0a 64 61 64 64 72 5f 74 09 73 77 ┆01; /* Swap base */ daddr_t sw┆
0x600…620 61 70 74 6f 70 20 3d 20 35 31 36 30 3b 09 09 09 2f 2a 20 53 77 61 70 20 65 6e 64 20 2a 2f 0a 69 ┆aptop = 5160; /* Swap end */ i┆
0x620…640 6e 74 09 72 6f 6e 66 6c 61 67 09 3d 20 30 3b 09 09 09 2f 2a 20 4e 6f 74 20 72 65 61 64 20 6f 6e ┆nt ronflag = 0; /* Not read on┆
0x640…660 6c 79 20 2a 2f 0a 69 6e 74 09 64 72 76 6e 09 3d 20 31 36 3b 09 09 09 2f 2a 20 4d 61 78 69 6d 75 ┆ly */ int drvn = 16; /* Maximu┆
0x660…680 6d 20 6e 75 6d 62 65 72 20 6f 66 20 64 65 76 69 63 65 73 20 2a 2f 0a 69 6e 74 09 6d 61 63 74 79 ┆m number of devices */ int macty┆
0x680…6a0 70 65 09 3d 20 4d 5f 5a 38 30 30 31 3b 09 09 2f 2a 20 4d 61 63 68 69 6e 65 20 74 79 70 65 20 2a ┆pe = M_Z8001; /* Machine type *┆
0x6a0…6a2 2f 0a ┆/ ┆