![(please configure the [header_logo] section in trac.ini)](http://bob.lopatic.de/chrome/site/logo.png){kind=logo}
- Timestamp:
- 07/14/2017 04:18:35 PM (7 years ago)
- Branches:
- master
- Children:
- ace9ee7
- Parents:
- 1efe224
- Location:
- rom
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
rom/booter.c
r1efe224 rfa38804 28 28 int16_t B_log_s; /* boot log switch */ 29 29 int16_t B_dbg_s; /* boot debug switch */ 30 31 /*32 */33 30 34 31 /* … … 105 102 } 106 103 107 /*108 109 */110 111 104 /* if it's a discontinuous file, read the origins */ 112 105 -
rom/romp.c
r1efe224 rfa38804 25 25 26 26 #include "rom.h" 27 28 /*29 30 */31 27 32 28 #if ON_B700 … … 86 82 #define MON_L 4 /* monitor long code */ 87 83 88 /*89 90 */91 92 84 /* 93 85 ============================================================================ … … 105 97 106 98 #define CANNED "\r\n----- Cancelled -----\r\n" 107 108 /*109 110 */111 99 112 100 /* … … 182 170 183 171 #define NCMDS ((sizeof cmtab) / (sizeof cmtab[0])) 184 185 /*186 187 */188 172 189 173 int8_t ahex[] = "0123456789abcdefABCDEF"; … … 227 211 #endif 228 212 229 /*230 231 */232 233 213 /* 234 214 ============================================================================ … … 265 245 vrnum; /* video register number */ 266 246 267 /*268 269 */270 271 247 #if ON_B700 272 248 int16_t asig, /* signal number */ … … 314 290 promdate[PDATELN+1]; /* PROM date area */ 315 291 316 /*317 318 */319 320 292 /* 321 293 ============================================================================ … … 379 351 } 380 352 } 381 382 /*383 384 */385 353 386 354 /* … … 423 391 } 424 392 425 /*426 427 */428 429 393 /* 430 394 ============================================================================ … … 463 427 } 464 428 } 465 466 /*467 468 */469 429 470 430 /* … … 503 463 } 504 464 } 505 506 /*507 508 */509 465 510 466 /* … … 537 493 } 538 494 539 /*540 541 */542 543 495 /* 544 496 ============================================================================= … … 555 507 return(c); 556 508 } 557 558 /*559 560 */561 509 562 510 /* … … 605 553 oldi = setipl(2); 606 554 607 /*608 609 */610 611 555 while (0L EQ BIOS(B_RDAV, CON_DEV)) { 612 556 … … 635 579 } 636 580 } 637 638 /*639 640 */641 581 642 582 BIOS(B_GETC, CON_DEV); … … 692 632 } 693 633 694 /*695 696 */697 698 634 /* 699 635 ============================================================================= … … 718 654 return(0); 719 655 } 720 721 /*722 723 */724 656 725 657 /* … … 744 676 } 745 677 746 /*747 748 */749 750 678 /* 751 679 ============================================================================ … … 787 715 return(argln); 788 716 789 /*790 791 */792 793 717 default: 794 718 … … 807 731 } 808 732 809 /*810 811 */812 813 733 /* 814 734 ============================================================================ … … 855 775 return(argln); 856 776 857 /*858 859 */860 861 777 default: 862 778 … … 872 788 } 873 789 874 /*875 876 */877 878 790 /* 879 791 ============================================================================ … … 912 824 return(c); 913 825 } 914 915 /*916 917 */918 826 919 827 /* … … 978 886 } 979 887 980 /*981 982 */983 984 888 /* 985 889 ============================================================================ … … 1003 907 return; 1004 908 } 1005 1006 /*1007 1008 */1009 909 1010 910 /* … … 1033 933 } 1034 934 1035 /*1036 1037 */1038 1039 935 /* 1040 936 ============================================================================ … … 1068 964 return(FALSE); 1069 965 } 1070 1071 /*1072 1073 */1074 966 1075 967 /* … … 1087 979 } 1088 980 1089 /*1090 1091 */1092 1093 981 /* 1094 982 ============================================================================ … … 1133 1021 } 1134 1022 1135 /*1136 1137 */1138 1139 1023 /* 1140 1024 ============================================================================ … … 1182 1066 } 1183 1067 } 1184 /*1185 1186 */1187 1068 1188 1069 /* … … 1210 1091 return(TRUE); 1211 1092 } 1212 1213 /*1214 1215 */1216 1093 1217 1094 /* … … 1243 1120 } 1244 1121 1245 /*1246 1247 */1248 1249 1122 /* 1250 1123 ============================================================================ … … 1286 1159 return(TRUE); 1287 1160 } 1288 1289 /*1290 1291 */1292 1161 1293 1162 /* … … 1345 1214 } 1346 1215 1347 /*1348 1349 */1350 1351 1216 /* 1352 1217 ============================================================================ … … 1399 1264 } 1400 1265 1401 /*1402 1403 */1404 1405 1266 #if ON_B700 1406 1267 … … 1442 1303 } 1443 1304 1444 /*1445 1446 */1447 1448 1305 /* 1449 1306 ============================================================================ … … 1478 1335 return(TRUE); 1479 1336 } 1480 1481 /*1482 1483 */1484 1337 1485 1338 /* … … 1517 1370 return(TRUE); 1518 1371 } 1519 1520 /*1521 1522 * /1523 1372 1524 1373 /* … … 1573 1422 } 1574 1423 1575 /*1576 1577 */1578 1579 1424 /* 1580 1425 ============================================================================ … … 1615 1460 } 1616 1461 1617 /*1618 1619 */1620 1621 1462 if (b1flag ) { 1622 1463 … … 1645 1486 } 1646 1487 1647 /*1648 1649 */1650 1651 1488 /* 1652 1489 ============================================================================ … … 1706 1543 } 1707 1544 1708 /*1709 1710 */1711 1712 1545 /* 1713 1546 ============================================================================ … … 1738 1571 } 1739 1572 1740 /*1741 1742 */1743 1744 1573 /* 1745 1574 ============================================================================ … … 1773 1602 } 1774 1603 1775 /*1776 1777 */1778 1779 1604 /* 1780 1605 ============================================================================ … … 1801 1626 return(TRUE); 1802 1627 } 1803 /*1804 1805 */1806 1628 1807 1629 /* … … 1826 1648 } 1827 1649 1828 /*1829 1830 */1831 1832 1650 /* 1833 1651 ============================================================================ … … 1872 1690 } 1873 1691 1874 /*1875 1876 */1877 1878 1692 /* 1879 1693 ============================================================================ … … 1907 1721 } 1908 1722 1909 /* 1910 1911 */ 1723 1912 1724 /* 1913 1725 ============================================================================ … … 1932 1744 } 1933 1745 1934 /*1935 1936 */1937 1938 1746 /* 1939 1747 ============================================================================ … … 1961 1769 } 1962 1770 1963 /*1964 1965 */1966 1967 1771 if (rnum EQ 17) { /* sr -- status register */ 1968 1772 … … 1995 1799 } 1996 1800 1997 /*1998 1999 */2000 2001 1801 /* 2002 1802 ============================================================================ … … 2052 1852 return(FALSE); 2053 1853 } 2054 2055 /*2056 2057 */2058 1854 2059 1855 /* … … 2091 1887 return(FALSE); 2092 1888 } 2093 2094 /*2095 2096 */2097 1889 2098 1890 /* … … 2131 1923 } 2132 1924 2133 /*2134 2135 */2136 2137 1925 /* 2138 1926 ============================================================================ … … 2238 2026 return(-10); /* error 10 = switch failed */ 2239 2027 } 2240 2241 /*2242 2243 */2244 2028 2245 2029 /* … … 2285 2069 continue; 2286 2070 2287 /*2288 2289 */2290 2291 2071 default: 2292 2072 … … 2303 2083 } 2304 2084 2305 /*2306 2307 */2308 2309 2085 /* 2310 2086 ============================================================================ … … 2338 2114 } 2339 2115 2340 /*2341 2342 */2343 2344 2116 /* 2345 2117 ============================================================================ … … 2360 2132 return(TRUE); 2361 2133 } 2362 2363 /*2364 2365 */2366 2134 2367 2135 /* … … 2405 2173 } 2406 2174 2407 /*2408 2409 */2410 2411 2175 } else { 2412 2176 … … 2437 2201 } 2438 2202 2439 /*2440 2441 */2442 2203 2443 2204 /* … … 2487 2248 } 2488 2249 2489 /*2490 2491 */2492 2493 2250 /* 2494 2251 ============================================================================ … … 2519 2276 } 2520 2277 2521 /*2522 2523 */2524 2525 2278 /* 2526 2279 ============================================================================ … … 2550 2303 return(FALSE); 2551 2304 } 2552 2553 /*2554 2555 */2556 2305 2557 2306 /* … … 2617 2366 } 2618 2367 2619 /*2620 2621 */2622 2623 2368 /* 2624 2369 ============================================================================ … … 2683 2428 } 2684 2429 2685 /*2686 2687 */2688 2689 2430 /* 2690 2431 ============================================================================ … … 2730 2471 } 2731 2472 2732 /*2733 2734 */2735 2736 2473 /* 2737 2474 ============================================================================ … … 2768 2505 } 2769 2506 2770 /*2771 2772 */2773 2774 2507 /* 2775 2508 ============================================================================ … … 2788 2521 return(TRUE); 2789 2522 } 2790 2791 /*2792 2793 */2794 2523 2795 2524 /* … … 2850 2579 return(TRUE); 2851 2580 2852 /* 2853 2854 */ 2581 2855 2582 case MON_L: 2856 2583 … … 2880 2607 } 2881 2608 2882 /*2883 2884 */2885 2609 2886 2610 /* … … 2923 2647 } 2924 2648 2925 /*2926 2927 */2928 2929 2649 /* 2930 2650 ============================================================================ … … 2966 2686 } 2967 2687 2968 /*2969 2970 */2971 2972 2688 /* 2973 2689 ============================================================================ … … 2992 2708 rc = getln(cmdunit, MAXCMDLN, cmdline); 2993 2709 2994 /*2995 2996 */2997 2998 2710 /* dispatch based on rc */ 2999 2711 … … 3031 2743 } else { 3032 2744 3033 /*3034 3035 */3036 3037 2745 if (redo) { 3038 2746 … … 3062 2770 return; 3063 2771 } 3064 3065 /*3066 3067 */3068 2772 3069 2773 /* … … 3080 2784 } 3081 2785 3082 /*3083 3084 */3085 3086 2786 /* 3087 2787 ============================================================================ … … 3113 2813 } 3114 2814 3115 /*3116 3117 */3118 3119 2815 /* 3120 2816 ============================================================================ … … 3146 2842 } 3147 2843 3148 /*3149 3150 */3151 3152 2844 /* 3153 2845 ============================================================================ … … 3192 2884 writeln(cmdunit, ", SR = "); 3193 2885 puthn((uint32_t)srtemp & 0xFFFFL, 4, cmdunit); 3194 3195 /*3196 3197 */3198 2886 3199 2887 writeln(cmdunit, " (IPL = "); … … 3241 2929 } 3242 2930 3243 /*3244 3245 */3246 3247 2931 /* 3248 2932 ============================================================================ … … 3289 2973 writeln(cmdunit, ", SR = "); 3290 2974 puthn((uint32_t)srtemp & 0xFFFFL, 4, cmdunit); 3291 3292 /*3293 3294 */3295 2975 3296 2976 writeln(cmdunit, " (IPL = "); … … 3337 3017 writeln(cmdunit, " )\r\n"); 3338 3018 3339 /* 3340 3341 */ 3019 3342 3020 writeln(cmdunit, "TRAP vector number = "); 3343 3021 putn((uint32_t)crshvc[0], 2, cmdunit); … … 3448 3126 } 3449 3127 3450 /*3451 3452 */3453 3454 3128 /* 3455 3129 ============================================================================ … … 3467 3141 return(TRUE); 3468 3142 } 3469 3470 /*3471 3472 */3473 3143 3474 3144 /* … … 3506 3176 } 3507 3177 3508 /*3509 3510 */3511 3512 3178 if (p_ba1 EQ regptr->reg_pc) { 3513 3179 … … 3531 3197 } 3532 3198 } 3533 /* 3534 3535 */ 3199 3536 3200 if (p_ba0) { 3537 3201 … … 3556 3220 } 3557 3221 3558 /*3559 3560 */3561 3562 3222 if (p_ba1) { 3563 3223 … … 3589 3249 } 3590 3250 3591 /*3592 3593 */3594 3595 3251 /* 3596 3252 ============================================================================ … … 3604 3260 return(TRUE); 3605 3261 } 3606 3607 /*3608 3609 */3610 3262 3611 3263 /* … … 3660 3312 return; /* return to xtrap15 */ 3661 3313 } 3662 3663 /*3664 3665 */3666 3314 3667 3315 /* … … 3704 3352 } 3705 3353 3706 /*3707 3708 */3709 3710 3354 #if ON_B700 3711 3355 … … 3746 3390 return(SUCCESS); 3747 3391 } 3748 3749 /*3750 3751 */3752 3392 3753 3393 /* … … 3799 3439 } 3800 3440 } 3801 /* 3802 3803 */ 3441 3804 3442 if (aflag) { /* anything changed ? */ 3805 3443 … … 3833 3471 } 3834 3472 3835 /*3836 3837 */3838 3839 3473 if (BIOS(B_RDAV, CON_DEV)) { 3840 3474 … … 3848 3482 } 3849 3483 #endif 3850 3851 /*3852 3853 */3854 3484 3855 3485 /* … … 3955 3585 #endif 3956 3586 3957 /* 3958 3959 */ 3587 3960 3588 if (setjmp(&restart)) /* setup restart point */ 3961 3589 writeln(cmdunit, "\r\n***** ROMP Re-starting *****\r\n\n");
Note:
See TracChangeset
for help on using the changeset viewer.
