uptr 68 src/dps8/dps8_absi.c # define ABSI_UNIT_IDX(uptr) ((uptr) - absi_unit) uptr 81 src/dps8/dps8_absi.c static t_stat absi_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 88 src/dps8/dps8_absi.c static t_stat absi_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 100 src/dps8/dps8_absi.c static t_stat absi_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 103 src/dps8/dps8_absi.c int n = (int) ABSI_UNIT_IDX (uptr); uptr 113 src/dps8/dps8_absi.c static t_stat absi_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 116 src/dps8/dps8_absi.c int n = (int) ABSI_UNIT_IDX (uptr); uptr 167 src/dps8/dps8_absi.c static t_stat absiAttach (UNIT * uptr, const char * cptr) uptr 171 src/dps8/dps8_absi.c int unitno = (int) (uptr - absi_unit); uptr 180 src/dps8/dps8_absi.c if ((uptr->flags & UNIT_ATT) != 0) uptr 181 src/dps8/dps8_absi.c detach_unit (uptr); uptr 199 src/dps8/dps8_absi.c uptr->flags |= UNIT_ATT; uptr 200 src/dps8/dps8_absi.c uptr->filename = pfn; uptr 205 src/dps8/dps8_absi.c static t_stat absiDetach (UNIT * uptr) uptr 207 src/dps8/dps8_absi.c int unitno = (int) (uptr - absi_unit); uptr 209 src/dps8/dps8_absi.c if ((uptr->flags & UNIT_ATT) == 0) uptr 218 src/dps8/dps8_absi.c uptr->flags &= ~ (unsigned int) UNIT_ATT; uptr 219 src/dps8/dps8_absi.c FREE (uptr->filename); uptr 84 src/dps8/dps8_console.c static t_stat opc_show_nunits (FILE *st, UNIT *uptr, int val, uptr 86 src/dps8/dps8_console.c static t_stat opc_set_nunits (UNIT * uptr, int32 value, const char * cptr, uptr 88 src/dps8/dps8_console.c static t_stat opc_autoinput_set (UNIT *uptr, int32 val, const char *cptr, uptr 90 src/dps8/dps8_console.c static t_stat opc_autoinput_show (FILE *st, UNIT *uptr, int val, uptr 92 src/dps8/dps8_console.c static t_stat opc_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 94 src/dps8/dps8_console.c static t_stat opc_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 96 src/dps8/dps8_console.c static t_stat opc_set_console_port (UNIT * uptr, UNUSED int32 value, uptr 98 src/dps8/dps8_console.c static t_stat opc_show_console_port (UNUSED FILE * st, UNIT * uptr, uptr 100 src/dps8/dps8_console.c static t_stat opc_set_console_address (UNIT * uptr, UNUSED int32 value, uptr 102 src/dps8/dps8_console.c static t_stat opc_show_console_address (UNUSED FILE * st, UNIT * uptr, uptr 104 src/dps8/dps8_console.c static t_stat opc_set_console_pw (UNIT * uptr, UNUSED int32 value, uptr 106 src/dps8/dps8_console.c static t_stat opc_show_console_pw (UNUSED FILE * st, UNIT * uptr, uptr 108 src/dps8/dps8_console.c static t_stat opc_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 110 src/dps8/dps8_console.c static t_stat opc_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 212 src/dps8/dps8_console.c #define OPC_UNIT_IDX(uptr) ((uptr) - opc_unit) uptr 475 src/dps8/dps8_console.c static int opc_autoinput_set (UNIT * uptr, UNUSED int32 val, uptr 478 src/dps8/dps8_console.c int devUnitIdx = (int) OPC_UNIT_IDX (uptr); uptr 561 src/dps8/dps8_console.c static int opc_autoinput_show (UNUSED FILE * st, UNIT * uptr, uptr 564 src/dps8/dps8_console.c int conUnitIdx = (int) OPC_UNIT_IDX (uptr); uptr 573 src/dps8/dps8_console.c static t_stat console_attn (UNUSED UNIT * uptr); uptr 592 src/dps8/dps8_console.c static t_stat console_attn (UNUSED UNIT * uptr) uptr 594 src/dps8/dps8_console.c uint con_unit_idx = (uint) (uptr - attn_unit); uptr 1653 src/dps8/dps8_console.c static t_stat opc_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1660 src/dps8/dps8_console.c static t_stat opc_set_nunits (UNUSED UNIT * uptr, int32 UNUSED value, uptr 1698 src/dps8/dps8_console.c static t_stat opc_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1701 src/dps8/dps8_console.c int devUnitIdx = (int) OPC_UNIT_IDX (uptr); uptr 1754 src/dps8/dps8_console.c static t_stat opc_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1757 src/dps8/dps8_console.c int devUnitIdx = (int) OPC_UNIT_IDX (uptr); uptr 1766 src/dps8/dps8_console.c static t_stat opc_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1769 src/dps8/dps8_console.c int n = (int) OPC_UNIT_IDX (uptr); uptr 1776 src/dps8/dps8_console.c static t_stat opc_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 1779 src/dps8/dps8_console.c int n = (int) OPC_UNIT_IDX (uptr); uptr 1792 src/dps8/dps8_console.c static t_stat opc_set_console_port (UNIT * uptr, UNUSED int32 value, uptr 1795 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1813 src/dps8/dps8_console.c static t_stat opc_show_console_port (UNUSED FILE * st, UNIT * uptr, uptr 1816 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1826 src/dps8/dps8_console.c static t_stat opc_set_console_address (UNIT * uptr, UNUSED int32 value, uptr 1829 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1861 src/dps8/dps8_console.c static t_stat opc_show_console_address (UNUSED FILE * st, UNIT * uptr, uptr 1864 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1874 src/dps8/dps8_console.c static t_stat opc_set_console_pw (UNIT * uptr, UNUSED int32 value, uptr 1877 src/dps8/dps8_console.c long dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1900 src/dps8/dps8_console.c static t_stat opc_show_console_pw (UNUSED FILE * st, UNIT * uptr, uptr 1903 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 113 src/dps8/dps8_cpu.c #define UNIT_IDX(uptr) ((uptr) - cpu_unit) uptr 134 src/dps8/dps8_cpu.c static t_stat simh_cpu_reset_and_clear_unit (UNIT * uptr, uptr 140 src/dps8/dps8_cpu.c static t_stat cpu_show_config (UNUSED FILE * st, UNIT * uptr, uptr 143 src/dps8/dps8_cpu.c long cpu_unit_idx = UNIT_IDX (uptr); uptr 471 src/dps8/dps8_cpu.c static t_stat cpu_set_config (UNIT * uptr, UNUSED int32 value, uptr 474 src/dps8/dps8_cpu.c long cpu_unit_idx = UNIT_IDX (uptr); uptr 714 src/dps8/dps8_cpu.c static t_stat cpu_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 721 src/dps8/dps8_cpu.c static t_stat cpu_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 733 src/dps8/dps8_cpu.c static t_stat cpu_show_kips (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 740 src/dps8/dps8_cpu.c static t_stat cpu_set_kips (UNUSED UNIT * uptr, UNUSED int32 value, uptr 757 src/dps8/dps8_cpu.c static t_stat cpu_show_stall (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 782 src/dps8/dps8_cpu.c static t_stat cpu_set_stall (UNUSED UNIT * uptr, UNUSED int32 value, uptr 827 src/dps8/dps8_cpu.c static t_stat setCPUConfigL68 (UNIT * uptr, UNUSED int32 value, UNUSED const char * cptr, UNUSED void * desc) { uptr 828 src/dps8/dps8_cpu.c long cpuUnitIdx = UNIT_IDX (uptr); uptr 852 src/dps8/dps8_cpu.c static t_stat setCPUConfigDPS8M (UNIT * uptr, UNUSED int32 value, UNUSED const char * cptr, UNUSED void * desc) { uptr 853 src/dps8/dps8_cpu.c long cpuUnitIdx = UNIT_IDX (uptr); uptr 997 src/dps8/dps8_cpu.c static t_stat simh_cpu_reset_and_clear_unit (UNIT * uptr, uptr 1002 src/dps8/dps8_cpu.c long cpu_unit_idx = UNIT_IDX (uptr); uptr 1024 src/dps8/dps8_cpu.c static t_stat simh_cpu_reset_unit (UNIT * uptr, uptr 1029 src/dps8/dps8_cpu.c long cpu_unit_idx = UNIT_IDX (uptr); uptr 1622 src/dps8/dps8_cpu.c static t_stat cpu_ex (t_value *vptr, t_addr addr, UNUSED UNIT * uptr, uptr 1636 src/dps8/dps8_cpu.c static t_stat cpu_dep (t_value val, t_addr addr, UNUSED UNIT * uptr, uptr 66 src/dps8/dps8_crdpun.c static t_stat pun_show_nunits (FILE *st, UNIT *uptr, int val, const void *desc); uptr 67 src/dps8/dps8_crdpun.c static t_stat pun_set_nunits (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 68 src/dps8/dps8_crdpun.c static t_stat pun_show_device_name (FILE *st, UNIT *uptr, int val, const void *desc); uptr 69 src/dps8/dps8_crdpun.c static t_stat pun_set_device_name (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 70 src/dps8/dps8_crdpun.c static t_stat pun_show_path (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 72 src/dps8/dps8_crdpun.c static t_stat pun_set_path (UNUSED UNIT * uptr, UNUSED int32 value, const UNUSED char * cptr, uptr 74 src/dps8/dps8_crdpun.c static t_stat pun_set_config (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, uptr 76 src/dps8/dps8_crdpun.c static t_stat pun_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, uptr 101 src/dps8/dps8_crdpun.c #define PUN_UNIT_NUM(uptr) ((uptr) - pun_unit) uptr 1250 src/dps8/dps8_crdpun.c static t_stat pun_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, uptr 1257 src/dps8/dps8_crdpun.c static t_stat pun_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, uptr 1269 src/dps8/dps8_crdpun.c static t_stat pun_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1272 src/dps8/dps8_crdpun.c long n = PUN_UNIT_NUM (uptr); uptr 1279 src/dps8/dps8_crdpun.c static t_stat pun_set_device_name (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1282 src/dps8/dps8_crdpun.c long n = PUN_UNIT_NUM (uptr); uptr 1295 src/dps8/dps8_crdpun.c static t_stat pun_set_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1320 src/dps8/dps8_crdpun.c static t_stat pun_show_path (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1334 src/dps8/dps8_crdpun.c static t_stat pun_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1337 src/dps8/dps8_crdpun.c int devUnitIdx = (int) PUN_UNIT_NUM (uptr); uptr 1370 src/dps8/dps8_crdpun.c static t_stat pun_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1373 src/dps8/dps8_crdpun.c int devUnitIdx = (int) PUN_UNIT_NUM (uptr); uptr 69 src/dps8/dps8_crdrdr.c static t_stat rdr_show_nunits (FILE *st, UNIT *uptr, int val, const void *desc); uptr 70 src/dps8/dps8_crdrdr.c static t_stat rdr_set_nunits (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 71 src/dps8/dps8_crdrdr.c static t_stat rdr_show_device_name (FILE *st, UNIT *uptr, int val, const void *desc); uptr 72 src/dps8/dps8_crdrdr.c static t_stat rdr_set_device_name (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 73 src/dps8/dps8_crdrdr.c static t_stat rdr_show_path (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 75 src/dps8/dps8_crdrdr.c static t_stat rdr_set_path (UNUSED UNIT * uptr, UNUSED int32 value, const UNUSED char * cptr, uptr 100 src/dps8/dps8_crdrdr.c #define RDR_UNIT_NUM(uptr) ((uptr) - rdr_unit) uptr 1018 src/dps8/dps8_crdrdr.c static t_stat rdr_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, uptr 1025 src/dps8/dps8_crdrdr.c static t_stat rdr_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, uptr 1037 src/dps8/dps8_crdrdr.c static t_stat rdr_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1040 src/dps8/dps8_crdrdr.c long n = RDR_UNIT_NUM (uptr); uptr 1047 src/dps8/dps8_crdrdr.c static t_stat rdr_set_device_name (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1050 src/dps8/dps8_crdrdr.c long n = RDR_UNIT_NUM (uptr); uptr 1063 src/dps8/dps8_crdrdr.c static t_stat rdr_set_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1090 src/dps8/dps8_crdrdr.c static t_stat rdr_show_path (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 70 src/dps8/dps8_dia.c #define DIA_UNIT_IDX(uptr) ((uptr) - dia_unit) uptr 79 src/dps8/dps8_dia.c static t_stat set_config (UNIT * uptr, UNUSED int value, const char * cptr, UNUSED void * desc) uptr 81 src/dps8/dps8_dia.c uint dia_unit_idx = (uint) DIA_UNIT_IDX (uptr); uptr 125 src/dps8/dps8_dia.c static t_stat show_config (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 128 src/dps8/dps8_dia.c long unit_idx = DIA_UNIT_IDX (uptr); uptr 145 src/dps8/dps8_dia.c static t_stat show_status (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 148 src/dps8/dps8_dia.c long dia_unit_idx = DIA_UNIT_IDX (uptr); uptr 164 src/dps8/dps8_dia.c static t_stat show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 171 src/dps8/dps8_dia.c static t_stat set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 244 src/dps8/dps8_dia.c static t_stat attach (UNIT * uptr, const char * cptr) uptr 248 src/dps8/dps8_dia.c int unitno = (int) (uptr - dia_unit); uptr 256 src/dps8/dps8_dia.c if ((uptr->flags & UNIT_ATT) != 0) uptr 257 src/dps8/dps8_dia.c detach_unit (uptr); uptr 275 src/dps8/dps8_dia.c uptr->flags |= UNIT_ATT; uptr 276 src/dps8/dps8_dia.c uptr->filename = pfn; uptr 281 src/dps8/dps8_dia.c static t_stat detach (UNIT * uptr) uptr 283 src/dps8/dps8_dia.c int unitno = (int) (uptr - dia_unit); uptr 285 src/dps8/dps8_dia.c if ((uptr->flags & UNIT_ATT) == 0) uptr 294 src/dps8/dps8_dia.c uptr->flags &= ~ (unsigned int) UNIT_ATT; uptr 295 src/dps8/dps8_dia.c FREE (uptr->filename); uptr 296 src/dps8/dps8_dia.c uptr->filename = NULL; uptr 329 src/dps8/dps8_disk.c #define DSK_UNIT_IDX(uptr) ((uptr) - dsk_unit) uptr 343 src/dps8/dps8_disk.c static t_stat disk_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, UNUSED const void * desc) uptr 349 src/dps8/dps8_disk.c static t_stat disk_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, UNUSED void * desc) uptr 360 src/dps8/dps8_disk.c static t_stat disk_show_type (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, UNUSED const void * desc) uptr 362 src/dps8/dps8_disk.c int diskUnitIdx = (int) DSK_UNIT_IDX (uptr); uptr 374 src/dps8/dps8_disk.c static t_stat disk_set_type (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, UNUSED void * desc) uptr 376 src/dps8/dps8_disk.c int diskUnitIdx = (int) DSK_UNIT_IDX (uptr); uptr 410 src/dps8/dps8_disk.c static t_stat dsk_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 413 src/dps8/dps8_disk.c int n = (int) DSK_UNIT_IDX (uptr); uptr 420 src/dps8/dps8_disk.c static t_stat dsk_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 423 src/dps8/dps8_disk.c int n = (int) DSK_UNIT_IDX (uptr); uptr 534 src/dps8/dps8_disk.c static t_stat disk_set_ready (UNIT * uptr, UNUSED int32 value, uptr 538 src/dps8/dps8_disk.c long disk_unit_idx = DSK_UNIT_IDX (uptr); uptr 627 src/dps8/dps8_disk.c static t_stat disk_attach (UNIT *uptr, CONST char *cptr) uptr 629 src/dps8/dps8_disk.c int diskUnitIdx = (int) DSK_UNIT_IDX (uptr); uptr 1626 src/dps8/dps8_disk.c #define IPC_UNIT_IDX(uptr) ((uptr) - ipc_unit) uptr 1659 src/dps8/dps8_disk.c static t_stat ipc_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1666 src/dps8/dps8_disk.c static t_stat ipc_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1678 src/dps8/dps8_disk.c static t_stat ipc_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1681 src/dps8/dps8_disk.c int n = (int) IPC_UNIT_IDX (uptr); uptr 1691 src/dps8/dps8_disk.c static t_stat ipc_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 1694 src/dps8/dps8_disk.c int n = (int) IPC_UNIT_IDX (uptr); uptr 1770 src/dps8/dps8_disk.c #define MSP_UNIT_IDX(uptr) ((uptr) - msp_unit) uptr 1801 src/dps8/dps8_disk.c static t_stat msp_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1808 src/dps8/dps8_disk.c static t_stat msp_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1820 src/dps8/dps8_disk.c static t_stat msp_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1823 src/dps8/dps8_disk.c int n = (int) MSP_UNIT_IDX (uptr); uptr 1833 src/dps8/dps8_disk.c static t_stat msp_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 1836 src/dps8/dps8_disk.c int n = (int) MSP_UNIT_IDX (uptr); uptr 126 src/dps8/dps8_fnp2.c static t_stat fnpShowConfig (FILE *st, UNIT *uptr, int val, const void *desc); uptr 127 src/dps8/dps8_fnp2.c static t_stat fnpSetConfig (UNIT * uptr, int value, const char * cptr, void * desc); uptr 128 src/dps8/dps8_fnp2.c static t_stat fnpShowStatus (FILE *st, UNIT *uptr, int val, const void *desc); uptr 129 src/dps8/dps8_fnp2.c static t_stat fnpShowNUnits (FILE *st, UNIT *uptr, int val, const void *desc); uptr 130 src/dps8/dps8_fnp2.c static t_stat fnpSetNUnits (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 131 src/dps8/dps8_fnp2.c static t_stat fnpShowIPCname (FILE *st, UNIT *uptr, int val, const void *desc); uptr 132 src/dps8/dps8_fnp2.c static t_stat fnpSetIPCname (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 133 src/dps8/dps8_fnp2.c static t_stat fnpShowService (FILE *st, UNIT *uptr, int val, const void *desc); uptr 134 src/dps8/dps8_fnp2.c static t_stat fnpSetService (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 135 src/dps8/dps8_fnp2.c static t_stat fnpShowFW (FILE *st, UNIT *uptr, int val, const void *desc); uptr 136 src/dps8/dps8_fnp2.c static t_stat fnpSetFW (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 137 src/dps8/dps8_fnp2.c static t_stat fnp_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 139 src/dps8/dps8_fnp2.c static t_stat fnp_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 262 src/dps8/dps8_fnp2.c #define FNP_UNIT_IDX(uptr) ((uptr) - fnp_unit) uptr 1758 src/dps8/dps8_fnp2.c static t_stat fnpShowNUnits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1765 src/dps8/dps8_fnp2.c static t_stat fnpSetNUnits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1778 src/dps8/dps8_fnp2.c static t_stat fnpShowIPCname (UNUSED FILE * st, UNIT * uptr, uptr 1781 src/dps8/dps8_fnp2.c long n = FNP_UNIT_IDX (uptr); uptr 1788 src/dps8/dps8_fnp2.c static t_stat fnpSetIPCname (UNIT * uptr, UNUSED int32 value, uptr 1791 src/dps8/dps8_fnp2.c long n = FNP_UNIT_IDX (uptr); uptr 1804 src/dps8/dps8_fnp2.c static t_stat fnpShowService (UNUSED FILE * st, UNIT * uptr, uptr 1807 src/dps8/dps8_fnp2.c long devnum = FNP_UNIT_IDX (uptr); uptr 1841 src/dps8/dps8_fnp2.c static t_stat fnpSetService (UNIT * uptr, UNUSED int32 value, uptr 1846 src/dps8/dps8_fnp2.c long devnum = FNP_UNIT_IDX (uptr); uptr 1886 src/dps8/dps8_fnp2.c static t_stat fnpShowConfig (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 1889 src/dps8/dps8_fnp2.c long fnpUnitIdx = FNP_UNIT_IDX (uptr); uptr 1971 src/dps8/dps8_fnp2.c static t_stat fnpSetFW (UNIT * uptr, UNUSED int32 value, uptr 1976 src/dps8/dps8_fnp2.c long devnum = FNP_UNIT_IDX (uptr); uptr 2119 src/dps8/dps8_fnp2.c static t_stat fnpShowFW (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 2122 src/dps8/dps8_fnp2.c long fnpUnitIdx = FNP_UNIT_IDX (uptr); uptr 2139 src/dps8/dps8_fnp2.c static t_stat fnpShowStatus (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 2142 src/dps8/dps8_fnp2.c long fnpUnitIdx = FNP_UNIT_IDX (uptr); uptr 2193 src/dps8/dps8_fnp2.c static t_stat fnp_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 2196 src/dps8/dps8_fnp2.c int n = (int) FNP_UNIT_IDX (uptr); uptr 2206 src/dps8/dps8_fnp2.c static t_stat fnp_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 2209 src/dps8/dps8_fnp2.c int n = (int) FNP_UNIT_IDX (uptr); uptr 2228 src/dps8/dps8_fnp2.c static t_stat fnpSetConfig (UNIT * uptr, UNUSED int value, const char * cptr, UNUSED void * desc) uptr 2230 src/dps8/dps8_fnp2.c uint fnpUnitIdx = (uint) FNP_UNIT_IDX (uptr); uptr 577 src/dps8/dps8_iom.c #define IOM_UNIT_IDX(uptr) ((uptr) - iom_unit) uptr 922 src/dps8/dps8_iom.c UNUSED UNIT * uptr, UNUSED int val, uptr 928 src/dps8/dps8_iom.c static t_stat iom_show_units (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, UNUSED const void * desc) uptr 934 src/dps8/dps8_iom.c static t_stat iom_set_units (UNUSED UNIT * uptr, UNUSED int value, const char * cptr, UNUSED void * desc) uptr 948 src/dps8/dps8_iom.c static t_stat iom_show_config (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 951 src/dps8/dps8_iom.c uint iom_unit_idx = (uint) IOM_UNIT_IDX (uptr); uptr 1115 src/dps8/dps8_iom.c static t_stat iom_set_config (UNIT * uptr, UNUSED int value, const char * cptr, UNUSED void * desc) uptr 1117 src/dps8/dps8_iom.c uint iom_unit_idx = (uint) IOM_UNIT_IDX (uptr); uptr 1259 src/dps8/dps8_iom.c static t_stat iom_reset_unit (UNIT * uptr, UNUSED int32 value, UNUSED const char * cptr, uptr 1262 src/dps8/dps8_iom.c uint iom_unit_idx = (uint) (uptr - iom_unit); uptr 144 src/dps8/dps8_mgp.c # define MGP_UNIT_IDX(uptr) (( uptr ) - mgp_unit ) uptr 157 src/dps8/dps8_mgp.c mgp_show_nunits(UNUSED FILE *st, UNUSED UNIT *uptr, UNUSED int val, uptr 166 src/dps8/dps8_mgp.c mgp_set_nunits(UNUSED UNIT *uptr, UNUSED int32 value, const char *cptr, uptr 186 src/dps8/dps8_mgp.c mgp_show_device_name(UNUSED FILE *st, UNIT *uptr, UNUSED int val, uptr 189 src/dps8/dps8_mgp.c int n = (int)MGP_UNIT_IDX(uptr); uptr 209 src/dps8/dps8_mgp.c mgp_set_device_name(UNIT *uptr, UNUSED int32 value, const char *cptr, uptr 212 src/dps8/dps8_mgp.c int n = (int)MGP_UNIT_IDX(uptr); uptr 272 src/dps8/dps8_mgp.c mgpAttach(UNIT *uptr, const char *cptr) uptr 280 src/dps8/dps8_mgp.c if (( uptr->flags & UNIT_ATT ) != 0) uptr 282 src/dps8/dps8_mgp.c detach_unit(uptr); uptr 285 src/dps8/dps8_mgp.c uptr->flags |= UNIT_ATT; uptr 292 src/dps8/dps8_mgp.c mgpDetach(UNIT *uptr) uptr 294 src/dps8/dps8_mgp.c if (( uptr->flags & UNIT_ATT ) == 0) uptr 299 src/dps8/dps8_mgp.c uptr->flags &= ~(unsigned int)UNIT_ATT; uptr 145 src/dps8/dps8_mt.c #define MTP_UNIT_IDX(uptr) ((uptr) - mtp_unit) uptr 154 src/dps8/dps8_mt.c static t_stat mtp_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 162 src/dps8/dps8_mt.c static t_stat mtp_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 174 src/dps8/dps8_mt.c static t_stat mtp_show_boot_drive (UNUSED FILE * st, UNIT * uptr, uptr 177 src/dps8/dps8_mt.c long mtp_unit_idx = MTP_UNIT_IDX (uptr); uptr 188 src/dps8/dps8_mt.c static t_stat mtp_set_boot_drive (UNIT * uptr, UNUSED int32 value, uptr 191 src/dps8/dps8_mt.c long mtp_unit_idx = MTP_UNIT_IDX (uptr); uptr 231 src/dps8/dps8_mt.c static t_stat mtp_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 234 src/dps8/dps8_mt.c int n = (int) MTP_UNIT_IDX (uptr); uptr 241 src/dps8/dps8_mt.c static t_stat mtp_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 244 src/dps8/dps8_mt.c int n = (int) MTP_UNIT_IDX (uptr); uptr 336 src/dps8/dps8_mt.c #define MT_UNIT_NUM(uptr) ((uptr) - mt_unit) uptr 401 src/dps8/dps8_mt.c static t_stat mt_rewind (UNIT * uptr, UNUSED int32 value, uptr 404 src/dps8/dps8_mt.c return sim_tape_rewind (uptr); uptr 407 src/dps8/dps8_mt.c static t_stat mt_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 414 src/dps8/dps8_mt.c static t_stat mt_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 426 src/dps8/dps8_mt.c static t_stat mt_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 429 src/dps8/dps8_mt.c int n = (int) MT_UNIT_NUM (uptr); uptr 439 src/dps8/dps8_mt.c static t_stat mt_set_device_name (UNUSED UNIT * uptr, UNUSED int32 value, uptr 442 src/dps8/dps8_mt.c int n = (int) MT_UNIT_NUM (uptr); uptr 455 src/dps8/dps8_mt.c static t_stat mt_show_tape_path (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 475 src/dps8/dps8_mt.c static t_stat mt_set_tape_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 526 src/dps8/dps8_mt.c static t_stat mt_add_tape_search_path(UNUSED UNIT * uptr, UNUSED int32 value, uptr 635 src/dps8/dps8_mt.c static t_stat mt_show_tape_search_paths(UNUSED FILE * st, UNUSED UNIT * uptr, uptr 653 src/dps8/dps8_mt.c static t_stat mt_set_capac (UNUSED UNIT * uptr, UNUSED int32 value, uptr 728 src/dps8/dps8_mt.c static t_stat tape_set_ready (UNIT * uptr, UNUSED int32 value, uptr 732 src/dps8/dps8_mt.c long tape_unit_idx = MT_UNIT_NUM (uptr); uptr 86 src/dps8/dps8_prt.c static t_stat prt_show_nunits (FILE *st, UNIT *uptr, int val, const void *desc); uptr 87 src/dps8/dps8_prt.c static t_stat prt_set_nunits (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 88 src/dps8/dps8_prt.c static t_stat prt_show_device_name (FILE *st, UNIT *uptr, int val, const void *desc); uptr 89 src/dps8/dps8_prt.c static t_stat prt_set_device_name (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 90 src/dps8/dps8_prt.c static t_stat prt_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 92 src/dps8/dps8_prt.c static t_stat prt_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 94 src/dps8/dps8_prt.c static t_stat prt_show_path (UNUSED FILE * st, UNIT * uptr, uptr 96 src/dps8/dps8_prt.c static t_stat prt_set_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 98 src/dps8/dps8_prt.c static t_stat prt_set_ready (UNIT * uptr, UNUSED int32 value, uptr 102 src/dps8/dps8_prt.c static t_stat prt_show_device_model (FILE *st, UNIT *uptr, int val, const void *desc); uptr 103 src/dps8/dps8_prt.c static t_stat prt_set_device_model (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 145 src/dps8/dps8_prt.c #define PRT_UNIT_NUM(uptr) ((uptr) - prt_unit) uptr 1759 src/dps8/dps8_prt.c static t_stat prt_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, uptr 1766 src/dps8/dps8_prt.c static t_stat prt_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, uptr 1778 src/dps8/dps8_prt.c static t_stat prt_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1781 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1788 src/dps8/dps8_prt.c static t_stat prt_set_device_model (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1791 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1811 src/dps8/dps8_prt.c static t_stat prt_show_device_model (UNUSED FILE * st, UNIT * uptr, uptr 1814 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1821 src/dps8/dps8_prt.c static t_stat prt_set_device_name (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1824 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1839 src/dps8/dps8_prt.c static t_stat prt_show_path (UNUSED FILE * st, UNUSED UNUSED UNIT * uptr, uptr 1869 src/dps8/dps8_prt.c static t_stat prt_set_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1957 src/dps8/dps8_prt.c static t_stat prt_set_ready (UNIT * uptr, UNUSED int32 value, uptr 1961 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1987 src/dps8/dps8_prt.c static t_stat prt_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1990 src/dps8/dps8_prt.c int devUnitIdx = (int) PRT_UNIT_NUM (uptr); uptr 2025 src/dps8/dps8_prt.c static t_stat prt_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 2028 src/dps8/dps8_prt.c int devUnitIdx = (int) PRT_UNIT_NUM (uptr); uptr 582 src/dps8/dps8_scu.c #define UNIT_NUM(uptr) ((uptr) - scu_unit) uptr 608 src/dps8/dps8_scu.c static t_stat scu_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 615 src/dps8/dps8_scu.c static t_stat scu_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 627 src/dps8/dps8_scu.c static t_stat scu_show_state (UNUSED FILE * st, UNIT *uptr, UNUSED int val, uptr 630 src/dps8/dps8_scu.c long scu_unit_idx = UNIT_NUM (uptr); uptr 688 src/dps8/dps8_scu.c static t_stat scu_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 695 src/dps8/dps8_scu.c long scu_unit_idx = UNIT_NUM (uptr); uptr 844 src/dps8/dps8_scu.c static t_stat scu_set_config (UNIT * uptr, UNUSED int32 value, uptr 847 src/dps8/dps8_scu.c long scu_unit_idx = UNIT_NUM (uptr); uptr 2429 src/dps8/dps8_scu.c t_stat scu_reset_unit (UNIT * uptr, UNUSED int32 value, uptr 2433 src/dps8/dps8_scu.c uint scu_unit_idx = (uint) (uptr - scu_unit); uptr 107 src/dps8/dps8_scu.h t_stat scu_reset_unit (UNIT * uptr, int32 value, const char * cptr, uptr 57 src/dps8/dps8_socket_dev.c # define SKC_UNIT_IDX(uptr) ((uptr) - sk_unit) uptr 90 src/dps8/dps8_socket_dev.c static t_stat sk_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 97 src/dps8/dps8_socket_dev.c static t_stat sk_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 109 src/dps8/dps8_socket_dev.c static t_stat skc_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 112 src/dps8/dps8_socket_dev.c int n = (int) SKC_UNIT_IDX (uptr); uptr 120 src/dps8/dps8_socket_dev.c static t_stat skc_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 123 src/dps8/dps8_socket_dev.c int n = (int) SKC_UNIT_IDX (uptr); uptr 4843 src/dps8/dps8_sys.c UNUSED t_value *val, UNUSED UNIT *uptr, int32 UNUSED sw) uptr 4854 src/dps8/dps8_sys.c if (uptr == &cpu_dev.units[0]) uptr 4894 src/dps8/dps8_sys.c UNUSED UNIT * uptr, UNUSED t_value * val, UNUSED int32 sswitch) uptr 4903 src/dps8/dps8_sys.c static t_stat sys_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 4919 src/dps8/dps8_sys.c static t_stat sys_set_break (UNUSED UNIT * uptr, int32 value, uptr 4926 src/dps8/dps8_sys.c static t_stat sys_show_break (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 4949 src/dps8/dps8_sys.c static t_stat sys_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 80 src/dps8/dps8_urp.c #define URPUNIT_NUM(uptr) ((uptr) - urp_unit) uptr 94 src/dps8/dps8_urp.c static t_stat urpShowUnits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, UNUSED const void * desc) uptr 100 src/dps8/dps8_urp.c static t_stat urpSetUnits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, UNUSED void * desc) uptr 111 src/dps8/dps8_urp.c static t_stat urpShowDeviceName (UNUSED FILE * st, UNIT * uptr, UNUSED int val, UNUSED const void * desc) uptr 113 src/dps8/dps8_urp.c int n = (int) URPUNIT_NUM (uptr); uptr 120 src/dps8/dps8_urp.c static t_stat urpSetDeviceName (UNUSED UNIT * uptr, UNUSED int32 value, UNUSED const char * cptr, UNUSED void * desc) uptr 122 src/dps8/dps8_urp.c int n = (int) URPUNIT_NUM (uptr); uptr 214 src/simh/scp.c t_stat set_dev_radix (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 215 src/simh/scp.c t_stat set_dev_enbdis (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 216 src/simh/scp.c t_stat set_dev_debug (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 217 src/simh/scp.c t_stat set_unit_enbdis (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 220 src/simh/scp.c t_stat show_config (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 221 src/simh/scp.c t_stat show_queue (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 222 src/simh/scp.c t_stat show_time (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 223 src/simh/scp.c t_stat show_mod_names (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 224 src/simh/scp.c t_stat show_show_commands (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 225 src/simh/scp.c t_stat show_log_names (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 226 src/simh/scp.c t_stat show_dev_radix (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 227 src/simh/scp.c t_stat show_dev_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 228 src/simh/scp.c t_stat show_dev_logicals (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 229 src/simh/scp.c t_stat show_dev_modifiers (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 230 src/simh/scp.c t_stat show_dev_show_commands (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 231 src/simh/scp.c t_stat show_version (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 232 src/simh/scp.c t_stat show_buildinfo (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cprr); uptr 233 src/simh/scp.c t_stat show_prom (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 234 src/simh/scp.c t_stat show_default_base_system_script (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 235 src/simh/scp.c t_stat show_default (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 236 src/simh/scp.c t_stat show_break (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 237 src/simh/scp.c t_stat show_on (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 238 src/simh/scp.c t_stat sim_show_send (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 239 src/simh/scp.c t_stat sim_show_expect (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 241 src/simh/scp.c t_stat show_unit (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag); uptr 242 src/simh/scp.c t_stat show_all_mods (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flg, int32 *toks); uptr 243 src/simh/scp.c t_stat show_one_mod (FILE *st, DEVICE *dptr, UNIT *uptr, MTAB *mptr, CONST char *cptr, int32 flag); uptr 269 src/simh/scp.c t_stat get_aval (t_addr addr, DEVICE *dptr, UNIT *uptr); uptr 274 src/simh/scp.c void fprint_capac (FILE *st, DEVICE *dptr, UNIT *uptr); uptr 283 src/simh/scp.c t_stat scp_attach_unit (DEVICE *dptr, UNIT *uptr, const char *cptr); uptr 284 src/simh/scp.c t_stat scp_detach_unit (DEVICE *dptr, UNIT *uptr); uptr 286 src/simh/scp.c t_stat attach_err (UNIT *uptr, t_stat stat); uptr 296 src/simh/scp.c t_addr low, t_addr high, DEVICE *dptr, UNIT *uptr); uptr 297 src/simh/scp.c t_stat ex_addr (FILE *ofile, int32 flag, t_addr addr, DEVICE *dptr, UNIT *uptr); uptr 299 src/simh/scp.c UNIT *uptr, int32 dfltinc); uptr 309 src/simh/scp.c t_stat sim_show_asynch (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 2381 src/simh/scp.c t_stat help_dev_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr) uptr 2391 src/simh/scp.c return dptr->help (st, dptr, uptr, flag, cptr); uptr 2413 src/simh/scp.c return dptr->help (st, dptr, uptr, flag, cptr); uptr 2422 src/simh/scp.c return dptr->help (st, dptr, uptr, flag, cptr); uptr 2427 src/simh/scp.c return dptr->help (st, dptr, uptr, flag, cptr); uptr 2472 src/simh/scp.c UNIT *uptr; uptr 2475 src/simh/scp.c dptr = find_unit (gbuf, &uptr); uptr 2479 src/simh/scp.c r = help_dev_help (stdout, dptr, uptr, flag, (cmdp->action == &set_cmd) ? "SET" : "SHOW"); uptr 2481 src/simh/scp.c help_dev_help (sim_log, dptr, uptr, flag | SCP_HELP_FLAT, (cmdp->action == &set_cmd) ? "SET" : "SHOW"); uptr 2558 src/simh/scp.c UNIT *uptr; uptr 2560 src/simh/scp.c dptr = find_unit (gbuf, &uptr); uptr 2568 src/simh/scp.c r = help_dev_help (stdout, dptr, uptr, flag, cptr); uptr 2570 src/simh/scp.c help_dev_help (sim_log, dptr, uptr, flag | SCP_HELP_FLAT, cptr); uptr 3489 src/simh/scp.c t_stat sim_show_send (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 3529 src/simh/scp.c t_stat sim_show_expect (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 3791 src/simh/scp.c UNIT *uptr; uptr 3802 src/simh/scp.c uptr = dptr->units; /* first unit */ uptr 3807 src/simh/scp.c else if ((dptr = find_unit (gbuf, &uptr))) { /* unit match? */ uptr 3808 src/simh/scp.c if (uptr == NULL) /* invalid unit */ uptr 3835 src/simh/scp.c uptr = dptr->units; /* first unit */ uptr 3853 src/simh/scp.c if ((lvl == MTAB_VUN) && (uptr->flags & UNIT_DIS)) uptr 3870 src/simh/scp.c r = mptr->valid (uptr, mptr->match, cvptr, mptr->desc); uptr 3883 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 3886 src/simh/scp.c ((r = mptr->valid (uptr, mptr->match, cvptr, mptr->desc)) != SCPE_OK)) uptr 3888 src/simh/scp.c uptr->flags = (uptr->flags & ~(mptr->mask)) | uptr 3896 src/simh/scp.c r = glbr->action (dptr, uptr, glbr->arg, cvptr); /* do global */ uptr 3934 src/simh/scp.c t_stat set_dev_radix (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 3944 src/simh/scp.c t_stat set_dev_enbdis (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 3975 src/simh/scp.c t_stat set_unit_enbdis (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 3979 src/simh/scp.c if (!(uptr->flags & UNIT_DISABLE)) /* allowed? */ uptr 3982 src/simh/scp.c uptr->flags = uptr->flags & ~UNIT_DIS; uptr 3984 src/simh/scp.c if ((uptr->flags & UNIT_ATT) || /* dsb */ uptr 3985 src/simh/scp.c sim_is_active (uptr)) /* more tests */ uptr 3987 src/simh/scp.c uptr->flags = uptr->flags | UNIT_DIS; /* disable */ uptr 3994 src/simh/scp.c t_stat set_dev_debug (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4057 src/simh/scp.c UNIT *uptr; uptr 4067 src/simh/scp.c uptr = dptr->units; /* first unit */ uptr 4072 src/simh/scp.c else if ((dptr = find_unit (gbuf, &uptr))) { /* unit match? */ uptr 4073 src/simh/scp.c if (uptr == NULL) /* invalid unit */ uptr 4075 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 4104 src/simh/scp.c return shptr->action (ofile, sim_dflt_dev, uptr, shptr->arg, cptr); uptr 4113 src/simh/scp.c show_unit (ofile, dptr, uptr, -1); uptr 4129 src/simh/scp.c show_one_mod (ofile, dptr, uptr, mptr, cvptr, 1); uptr 4137 src/simh/scp.c r = shptr->action (ofile, dptr, uptr, shptr->arg, cptr); uptr 4168 src/simh/scp.c UNIT *uptr; uptr 4185 src/simh/scp.c uptr = dptr->units + j; uptr 4186 src/simh/scp.c if (!(uptr->flags & UNIT_DIS)) /* count enabled units */ uptr 4188 src/simh/scp.c else if (uptr->flags & UNIT_DISABLE) uptr 4217 src/simh/scp.c uptr = dptr->units + j; uptr 4218 src/simh/scp.c if ((uptr->flags & UNIT_DIS) == 0) uptr 4219 src/simh/scp.c show_unit (st, dptr, uptr, ucnt + udbl); uptr 4231 src/simh/scp.c t_stat show_unit (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag) uptr 4233 src/simh/scp.c int32 u = (int32)(uptr - dptr->units); uptr 4240 src/simh/scp.c if (uptr->flags & UNIT_ATT) { uptr 4242 src/simh/scp.c fprintf (st, "status : attached to %s", uptr->filename); uptr 4243 src/simh/scp.c if (uptr->flags & UNIT_RO) uptr 4247 src/simh/scp.c if (uptr->flags & UNIT_ATTABLE) { uptr 4252 src/simh/scp.c if ((uptr->capac > 0) && (uptr->flags & UNIT_FIX)) { uptr 4254 src/simh/scp.c fprint_capac (st, dptr, uptr); uptr 4256 src/simh/scp.c show_all_mods (st, dptr, uptr, MTAB_VUN, &toks); /* show unit mods */ uptr 4262 src/simh/scp.c const char *sprint_capac (DEVICE *dptr, UNIT *uptr) uptr 4265 src/simh/scp.c t_offset kval = (t_offset)((uptr->flags & UNIT_BINK) ? 1024: 1000); uptr 4267 src/simh/scp.c t_offset psize = (t_offset)uptr->capac; uptr 4299 src/simh/scp.c void fprint_capac (FILE *st, DEVICE *dptr, UNIT *uptr) uptr 4301 src/simh/scp.c fprintf (st, " %s", sprint_capac (dptr, uptr)); uptr 4307 src/simh/scp.c t_stat show_default_base_system_script (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4374 src/simh/scp.c t_stat show_prom (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4410 src/simh/scp.c t_stat show_buildinfo (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4529 src/simh/scp.c t_stat show_version (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5198 src/simh/scp.c t_stat show_dev_logicals (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5210 src/simh/scp.c UNIT *uptr; uptr 5224 src/simh/scp.c for (uptr = sim_clock_queue; uptr != QUEUE_LIST_END; uptr = uptr->next) { uptr 5225 src/simh/scp.c if (uptr == &sim_step_unit) uptr 5228 src/simh/scp.c if (uptr == &sim_expect_unit) uptr 5231 src/simh/scp.c if ((dptr = find_dev_from_unit (uptr)) != NULL) { uptr 5234 src/simh/scp.c fprintf (st, " unit %d", (int32) (uptr - dptr->units)); uptr 5238 src/simh/scp.c tim = sim_fmt_secs((accum + uptr->time)/sim_timer_inst_per_sec ()); uptr 5239 src/simh/scp.c fprintf (st, " at %d%s%s%s%s\n", accum + uptr->time, uptr 5241 src/simh/scp.c (uptr->flags & UNIT_IDLE) ? " (Idle capable)" : ""); uptr 5242 src/simh/scp.c accum = accum + uptr->time; uptr 5249 src/simh/scp.c t_stat show_time (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5257 src/simh/scp.c t_stat show_break (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5268 src/simh/scp.c t_stat show_dev_radix (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5274 src/simh/scp.c t_stat show_dev_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5306 src/simh/scp.c t_stat show_on (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5348 src/simh/scp.c t_stat show_dev_modifiers (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5354 src/simh/scp.c t_stat show_all_mods (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, int32 *toks) uptr 5365 src/simh/scp.c ((MTAB_VUN == (uint32)flag) && ((uptr->flags & mptr->mask) == mptr->match)))) { uptr 5372 src/simh/scp.c r = show_one_mod (st, dptr, uptr, mptr, NULL, 0); uptr 5378 src/simh/scp.c t_stat show_one_mod (FILE *st, DEVICE *dptr, UNIT *uptr, MTAB *mptr, uptr 5384 src/simh/scp.c r = mptr->disp (st, uptr, mptr->match, (CONST void *)(cptr? cptr: mptr->desc)); uptr 5408 src/simh/scp.c t_stat show_dev_show_commands (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5427 src/simh/scp.c UNIT *uptr; uptr 5436 src/simh/scp.c uptr = dptr->units; uptr 5437 src/simh/scp.c if (uptr == NULL) uptr 5439 src/simh/scp.c max = uptr->capac - 1; uptr 5598 src/simh/scp.c UNIT *uptr; uptr 5608 src/simh/scp.c dptr = find_unit (gbuf, &uptr); /* locate unit */ uptr 5611 src/simh/scp.c if (uptr == NULL) /* valid unit? */ uptr 5613 src/simh/scp.c if (uptr->flags & UNIT_ATT) { /* already attached? */ uptr 5614 src/simh/scp.c if (!(uptr->dynflags & UNIT_ATTMULT) && /* and only single attachable */ uptr 5616 src/simh/scp.c r = scp_detach_unit (dptr, uptr); /* detach it */ uptr 5620 src/simh/scp.c if (!(uptr->dynflags & UNIT_ATTMULT)) uptr 5627 src/simh/scp.c return scp_attach_unit (dptr, uptr, gbuf); /* attach */ uptr 5632 src/simh/scp.c t_stat scp_attach_unit (DEVICE *dptr, UNIT *uptr, const char *cptr) uptr 5635 src/simh/scp.c return dptr->attach (uptr, (CONST char *)cptr); /* call it */ uptr 5636 src/simh/scp.c return attach_unit (uptr, (CONST char *)cptr); /* no, std routine */ uptr 5641 src/simh/scp.c t_stat attach_unit (UNIT *uptr, CONST char *cptr) uptr 5645 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 5647 src/simh/scp.c if (!(uptr->flags & UNIT_ATTABLE)) /* not attachable? */ uptr 5649 src/simh/scp.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 5651 src/simh/scp.c uptr->filename = (char *) calloc (CBUFSIZE, sizeof (char)); /* alloc name buf */ uptr 5652 src/simh/scp.c if (uptr->filename == NULL) uptr 5654 src/simh/scp.c strncpy (uptr->filename, cptr, CBUFSIZE-1); /* save name */ uptr 5656 src/simh/scp.c ((uptr->flags & UNIT_RO) != 0)) { uptr 5657 src/simh/scp.c if (((uptr->flags & UNIT_ROABLE) == 0) && /* allowed? */ uptr 5658 src/simh/scp.c ((uptr->flags & UNIT_RO) == 0)) uptr 5659 src/simh/scp.c return attach_err (uptr, SCPE_NORO); /* no, error */ uptr 5660 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "rb"); /* open rd only */ uptr 5661 src/simh/scp.c if (uptr->fileref == NULL) /* open fail? */ uptr 5662 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 5663 src/simh/scp.c uptr->flags = uptr->flags | UNIT_RO; /* set rd only */ uptr 5670 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "wb+"); /* open new file */ uptr 5671 src/simh/scp.c if (uptr->fileref == NULL) /* open fail? */ uptr 5672 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 5678 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "rb+"); /* open r/w */ uptr 5679 src/simh/scp.c if (uptr->fileref == NULL) { /* open fail? */ uptr 5685 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 5692 src/simh/scp.c if ((uptr->flags & UNIT_ROABLE) == 0) /* allowed? */ uptr 5693 src/simh/scp.c return attach_err (uptr, SCPE_NORO);/* no error */ uptr 5694 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "rb"); /* open rd only */ uptr 5695 src/simh/scp.c if (uptr->fileref == NULL) /* open fail? */ uptr 5696 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 5697 src/simh/scp.c uptr->flags = uptr->flags | UNIT_RO; /* set rd only */ uptr 5704 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 5705 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "wb+");/* open new file */ uptr 5706 src/simh/scp.c if (uptr->fileref == NULL) /* open fail? */ uptr 5707 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 5715 src/simh/scp.c if (uptr->flags & UNIT_BUFABLE) { /* buffer? */ uptr 5716 src/simh/scp.c uint32 cap = ((uint32) uptr->capac) / dptr->aincr; /* effective size */ uptr 5717 src/simh/scp.c if (uptr->flags & UNIT_MUSTBUF) /* dyn alloc? */ uptr 5718 src/simh/scp.c uptr->filebuf = calloc (cap, SZ_D (dptr)); /* allocate */ uptr 5719 src/simh/scp.c if (uptr->filebuf == NULL) /* no buffer? */ uptr 5720 src/simh/scp.c return attach_err (uptr, SCPE_MEM); /* error */ uptr 5724 src/simh/scp.c uptr->hwmark = (uint32)sim_fread (uptr->filebuf, /* read file */ uptr 5725 src/simh/scp.c SZ_D (dptr), cap, uptr->fileref); uptr 5726 src/simh/scp.c uptr->flags = uptr->flags | UNIT_BUF; /* set buffered */ uptr 5728 src/simh/scp.c uptr->flags = uptr->flags | UNIT_ATT; uptr 5729 src/simh/scp.c uptr->pos = 0; uptr 5733 src/simh/scp.c t_stat attach_err (UNIT *uptr, t_stat stat) uptr 5735 src/simh/scp.c FREE (uptr->filename); uptr 5736 src/simh/scp.c uptr->filename = NULL; uptr 5746 src/simh/scp.c UNIT *uptr; uptr 5756 src/simh/scp.c dptr = find_unit (gbuf, &uptr); /* locate unit */ uptr 5759 src/simh/scp.c if (uptr == NULL) /* valid unit? */ uptr 5761 src/simh/scp.c return scp_detach_unit (dptr, uptr); /* detach */ uptr 5781 src/simh/scp.c UNIT *uptr; uptr 5790 src/simh/scp.c uptr = (dptr->units) + j; uptr 5791 src/simh/scp.c if ((uptr->flags & UNIT_ATT) || /* attached? */ uptr 5793 src/simh/scp.c !(uptr->flags & UNIT_ATTABLE))) { /* !attachable? */ uptr 5794 src/simh/scp.c r = scp_detach_unit (dptr, uptr); /* detach unit */ uptr 5806 src/simh/scp.c t_stat scp_detach_unit (DEVICE *dptr, UNIT *uptr) uptr 5809 src/simh/scp.c return dptr->detach (uptr); uptr 5810 src/simh/scp.c return detach_unit (uptr); /* no, standard */ uptr 5815 src/simh/scp.c t_stat detach_unit (UNIT *uptr) uptr 5819 src/simh/scp.c if (uptr == NULL) uptr 5821 src/simh/scp.c if (!(uptr->flags & UNIT_ATTABLE)) /* attachable? */ uptr 5823 src/simh/scp.c if (!(uptr->flags & UNIT_ATT)) { /* not attached? */ uptr 5829 src/simh/scp.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 5831 src/simh/scp.c if (uptr->flags & UNIT_BUF) { uptr 5832 src/simh/scp.c uint32 cap = (uptr->hwmark + dptr->aincr - 1) / dptr->aincr; uptr 5833 src/simh/scp.c if (uptr->hwmark && ((uptr->flags & UNIT_RO) == 0)) { uptr 5837 src/simh/scp.c rewind (uptr->fileref); uptr 5838 src/simh/scp.c sim_fwrite (uptr->filebuf, SZ_D (dptr), cap, uptr->fileref); uptr 5839 src/simh/scp.c if (ferror (uptr->fileref)) uptr 5842 src/simh/scp.c if (uptr->flags & UNIT_MUSTBUF) { /* dyn alloc? */ uptr 5843 src/simh/scp.c FREE (uptr->filebuf); /* free buf */ uptr 5844 src/simh/scp.c uptr->filebuf = NULL; uptr 5846 src/simh/scp.c uptr->flags = uptr->flags & ~UNIT_BUF; uptr 5848 src/simh/scp.c uptr->flags = uptr->flags & ~(UNIT_ATT | UNIT_RO); uptr 5849 src/simh/scp.c FREE (uptr->filename); uptr 5850 src/simh/scp.c uptr->filename = NULL; uptr 5851 src/simh/scp.c if (fclose (uptr->fileref) == EOF) uptr 5865 src/simh/scp.c const char *sim_uname (UNIT *uptr) uptr 5867 src/simh/scp.c DEVICE *d = find_dev_from_unit(uptr); uptr 5874 src/simh/scp.c sprintf (uname, "%s%d", sim_dname (d), (int)(uptr-d->units)); uptr 5890 src/simh/scp.c UNIT *uptr; uptr 5987 src/simh/scp.c dptr = find_unit (gbuf, &uptr); /* locate unit */ uptr 5990 src/simh/scp.c if (uptr == NULL) /* valid unit? */ uptr 5994 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 5996 src/simh/scp.c if ((uptr->flags & UNIT_ATTABLE) && /* if attable, att? */ uptr 5997 src/simh/scp.c !(uptr->flags & UNIT_ATT)) uptr 5999 src/simh/scp.c unitno = (int32) (uptr - dptr->units); /* recover unit# */ uptr 6018 src/simh/scp.c uptr = dptr->units + j; uptr 6019 src/simh/scp.c if ((uptr->flags & (UNIT_ATT + UNIT_SEQ)) == (UNIT_ATT + UNIT_SEQ)) uptr 6020 src/simh/scp.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); uptr 6128 src/simh/scp.c uptr = dptr->units + j; uptr 6129 src/simh/scp.c if (uptr->flags & UNIT_ATT) { /* attached, */ uptr 6130 src/simh/scp.c if (uptr->io_flush) /* unit specific flush routine */ uptr 6131 src/simh/scp.c uptr->io_flush (uptr); /* call it */ uptr 6133 src/simh/scp.c if (!(uptr->flags & UNIT_BUF) && /* not buffered, */ uptr 6134 src/simh/scp.c (uptr->fileref) && /* real file, */ uptr 6135 src/simh/scp.c !(uptr->dynflags & UNIT_NO_FIO) && /* is FILE *, */ uptr 6136 src/simh/scp.c !(uptr->flags & UNIT_RO)) /* not read only? */ uptr 6137 src/simh/scp.c fflush (uptr->fileref); uptr 6173 src/simh/scp.c UNIT *uptr; uptr 6179 src/simh/scp.c for (uptr = sim_clock_queue; uptr != QUEUE_LIST_END; uptr = sim_clock_queue) { uptr 6180 src/simh/scp.c sim_clock_queue = uptr->next; uptr 6181 src/simh/scp.c uptr->next = NULL; uptr 6258 src/simh/scp.c t_stat step_svc (UNIT *uptr) uptr 6266 src/simh/scp.c t_stat expect_svc (UNIT *uptr) uptr 6461 src/simh/scp.c t_addr low, t_addr high, DEVICE *dptr, UNIT *uptr) uptr 6466 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 6472 src/simh/scp.c reason = get_aval (i, dptr, uptr); /* get data */ uptr 6479 src/simh/scp.c reason = ex_addr (ofile, flag, i, dptr, uptr); uptr 6483 src/simh/scp.c ex_addr (sim_log, flag, i, dptr, uptr); uptr 6487 src/simh/scp.c reason = dep_addr (flag, cptr, i, dptr, uptr, reason); uptr 6710 src/simh/scp.c t_stat ex_addr (FILE *ofile, int32 flag, t_addr addr, DEVICE *dptr, UNIT *uptr) uptr 6723 src/simh/scp.c if ((reason = fprint_sym (ofile, addr, sim_eval, uptr, sim_switches)) > 0) { uptr 6744 src/simh/scp.c t_stat get_aval (t_addr addr, DEVICE *dptr, UNIT *uptr) uptr 6752 src/simh/scp.c if ((dptr == NULL) || (uptr == NULL)) uptr 6759 src/simh/scp.c reason = dptr->examine (&sim_eval[i], j, uptr, sim_switches); uptr 6764 src/simh/scp.c if (!(uptr->flags & UNIT_ATT)) uptr 6766 src/simh/scp.c if (uptr->dynflags & UNIT_NO_FIO) uptr 6768 src/simh/scp.c if ((uptr->flags & UNIT_FIX) && (j >= uptr->capac)) { uptr 6774 src/simh/scp.c if (uptr->flags & UNIT_BUF) { uptr 6775 src/simh/scp.c SZ_LOAD (sz, sim_eval[i], uptr->filebuf, loc); uptr 6778 src/simh/scp.c sim_fseek (uptr->fileref, (t_addr)(sz * loc), SEEK_SET); uptr 6779 src/simh/scp.c sim_fread (&sim_eval[i], sz, 1, uptr->fileref); uptr 6780 src/simh/scp.c if ((feof (uptr->fileref)) && uptr 6781 src/simh/scp.c !(uptr->flags & UNIT_FIX)) { uptr 6785 src/simh/scp.c else if (ferror (uptr->fileref)) { uptr 6786 src/simh/scp.c clearerr (uptr->fileref); uptr 6814 src/simh/scp.c UNIT *uptr, int32 dfltinc) uptr 6834 src/simh/scp.c if (uptr->flags & UNIT_RO) /* read only? */ uptr 6839 src/simh/scp.c if ((reason = parse_sym ((CONST char *)cptr, addr, uptr, sim_eval, sim_switches)) > 0) { uptr 6850 src/simh/scp.c r = dptr->deposit (sim_eval[i], j, uptr, sim_switches); uptr 6855 src/simh/scp.c if (!(uptr->flags & UNIT_ATT)) uptr 6857 src/simh/scp.c if (uptr->dynflags & UNIT_NO_FIO) uptr 6859 src/simh/scp.c if ((uptr->flags & UNIT_FIX) && (j >= uptr->capac)) uptr 6863 src/simh/scp.c if (uptr->flags & UNIT_BUF) { uptr 6864 src/simh/scp.c SZ_STORE (sz, sim_eval[i], uptr->filebuf, loc); uptr 6865 src/simh/scp.c if (loc >= uptr->hwmark) uptr 6866 src/simh/scp.c uptr->hwmark = (uint32) loc + 1; uptr 6869 src/simh/scp.c sim_fseek (uptr->fileref, (t_addr)(sz * loc), SEEK_SET); uptr 6870 src/simh/scp.c sim_fwrite (&sim_eval[i], sz, 1, uptr->fileref); uptr 6871 src/simh/scp.c if (ferror (uptr->fileref)) { uptr 6872 src/simh/scp.c clearerr (uptr->fileref); uptr 7467 src/simh/scp.c DEVICE *find_unit (const char *cptr, UNIT **uptr) uptr 7475 src/simh/scp.c if (uptr == NULL) /* arg error? */ uptr 7477 src/simh/scp.c *uptr = NULL; uptr 7481 src/simh/scp.c *uptr = dptr->units; /* unit 0 */ uptr 7499 src/simh/scp.c *uptr = NULL; uptr 7501 src/simh/scp.c *uptr = dptr->units + u; uptr 7507 src/simh/scp.c *uptr = &dptr->units[u]; uptr 7558 src/simh/scp.c DEVICE *find_dev_from_unit (UNIT *uptr) uptr 7563 src/simh/scp.c if (uptr == NULL) uptr 7567 src/simh/scp.c if (uptr == (dptr->units + j)) uptr 7574 src/simh/scp.c if (uptr == (dptr->units + j)) uptr 8323 src/simh/scp.c UNIT *uptr; uptr 8343 src/simh/scp.c uptr = sim_clock_queue; /* get first */ uptr 8344 src/simh/scp.c sim_clock_queue = uptr->next; /* remove first */ uptr 8345 src/simh/scp.c uptr->next = NULL; /* hygiene */ uptr 8346 src/simh/scp.c sim_interval -= uptr->time; uptr 8347 src/simh/scp.c uptr->time = 0; uptr 8352 src/simh/scp.c sim_debug (SIM_DBG_EVENT, sim_dflt_dev, "Processing Event for %s\n", sim_uname (uptr)); uptr 8353 src/simh/scp.c if (uptr->action != NULL) uptr 8354 src/simh/scp.c reason = uptr->action (uptr); uptr 8390 src/simh/scp.c t_stat sim_activate (UNIT *uptr, int32 event_time) uptr 8392 src/simh/scp.c if (uptr->dynflags & UNIT_TMR_UNIT) uptr 8393 src/simh/scp.c return sim_timer_activate (uptr, event_time); uptr 8394 src/simh/scp.c return _sim_activate (uptr, event_time); uptr 8397 src/simh/scp.c t_stat _sim_activate (UNIT *uptr, int32 event_time) uptr 8402 src/simh/scp.c if (sim_is_active (uptr)) /* already active? */ uptr 8406 src/simh/scp.c sim_debug (SIM_DBG_ACTIVATE, sim_dflt_dev, "Activating %s delay=%d\n", sim_uname (uptr), event_time); uptr 8417 src/simh/scp.c cptr = uptr->next = sim_clock_queue; uptr 8418 src/simh/scp.c sim_clock_queue = uptr; uptr 8421 src/simh/scp.c cptr = uptr->next = prvptr->next; /* insert at prvptr */ uptr 8422 src/simh/scp.c prvptr->next = uptr; uptr 8424 src/simh/scp.c uptr->time = event_time - accum; uptr 8426 src/simh/scp.c cptr->time = cptr->time - uptr->time; uptr 8440 src/simh/scp.c t_stat sim_activate_abs (UNIT *uptr, int32 event_time) uptr 8442 src/simh/scp.c sim_cancel (uptr); uptr 8443 src/simh/scp.c return _sim_activate (uptr, event_time); uptr 8455 src/simh/scp.c t_stat sim_activate_after (UNIT *uptr, uint32 usec_delay) uptr 8457 src/simh/scp.c return _sim_activate_after (uptr, usec_delay); uptr 8460 src/simh/scp.c t_stat _sim_activate_after (UNIT *uptr, uint32 usec_delay) uptr 8462 src/simh/scp.c if (sim_is_active (uptr)) /* already active? */ uptr 8464 src/simh/scp.c return sim_timer_activate_after (uptr, usec_delay); uptr 8476 src/simh/scp.c t_stat sim_cancel (UNIT *uptr) uptr 8482 src/simh/scp.c if (!sim_is_active (uptr)) uptr 8485 src/simh/scp.c sim_debug (SIM_DBG_EVENT, sim_dflt_dev, "Canceling Event for %s\n", sim_uname(uptr)); uptr 8488 src/simh/scp.c if (sim_clock_queue == uptr) { uptr 8489 src/simh/scp.c nptr = sim_clock_queue = uptr->next; uptr 8490 src/simh/scp.c uptr->next = NULL; /* hygiene */ uptr 8494 src/simh/scp.c if (cptr->next == uptr) { uptr 8495 src/simh/scp.c nptr = cptr->next = uptr->next; uptr 8496 src/simh/scp.c uptr->next = NULL; /* hygiene */ uptr 8502 src/simh/scp.c nptr->time += (uptr->next) ? 0 : uptr->time; uptr 8503 src/simh/scp.c if (!uptr->next) uptr 8504 src/simh/scp.c uptr->time = 0; uptr 8508 src/simh/scp.c if (uptr->next) { uptr 8509 src/simh/scp.c sim_printf ("\rCancel failed for '%s'!\r\n", sim_uname(uptr)); uptr 8527 src/simh/scp.c t_bool sim_is_active (UNIT *uptr) uptr 8529 src/simh/scp.c if (uptr->next == NULL) uptr 8543 src/simh/scp.c int32 sim_activate_time (UNIT *uptr) uptr 8555 src/simh/scp.c if (cptr == uptr) uptr 8583 src/simh/scp.c UNIT *uptr; uptr 8586 src/simh/scp.c for (uptr = sim_clock_queue; uptr != QUEUE_LIST_END; uptr = uptr->next) uptr 10059 src/simh/scp.c void sim_data_trace(DEVICE *dptr, UNIT *uptr, const uint8 *data, const char *position, size_t len, const char *txt, uint32 reason) uptr 10063 src/simh/scp.c sim_debug (reason, dptr, "%s %s %slen: %08X\n", sim_uname(uptr), txt, position, (unsigned int)len); uptr 10271 src/simh/scp.c UNIT *uptr, const char *htext, va_list ap) uptr 10330 src/simh/scp.c n = uptr? uptr - dptr->units: 0; uptr 10655 src/simh/scp.c UNIT *uptr, int32 flag, uptr 10676 src/simh/scp.c displayFlatHelp (st, dptr, uptr, flag, topic->children[i], ap); uptr 10720 src/simh/scp.c UNIT *uptr, int32 flag, uptr 10817 src/simh/scp.c (void) buildHelp (&top, dptr, uptr, help, ap); uptr 10832 src/simh/scp.c displayFlatHelp (st, dptr, uptr, flag, topic, ap); uptr 10849 src/simh/scp.c displayFlatHelp (st, dptr, uptr, flag, topic, ap); uptr 10927 src/simh/scp.c displayFlatHelp (st, dptr, uptr, flag, topic, ap); uptr 10979 src/simh/scp.c UNIT *uptr, int32 flag, uptr 10986 src/simh/scp.c r = scp_vhelp (st, dptr, uptr, flag, help, cptr, ap); uptr 115 src/simh/scp.h t_stat sim_activate (UNIT *uptr, int32 interval); uptr 116 src/simh/scp.h t_stat _sim_activate (UNIT *uptr, int32 interval); uptr 117 src/simh/scp.h t_stat sim_activate_abs (UNIT *uptr, int32 interval); uptr 118 src/simh/scp.h t_stat sim_activate_after (UNIT *uptr, uint32 usecs_walltime); uptr 119 src/simh/scp.h t_stat _sim_activate_after (UNIT *uptr, uint32 usecs_walltime); uptr 120 src/simh/scp.h t_stat sim_cancel (UNIT *uptr); uptr 121 src/simh/scp.h t_bool sim_is_active (UNIT *uptr); uptr 122 src/simh/scp.h int32 sim_activate_time (UNIT *uptr); uptr 127 src/simh/scp.h t_stat attach_unit (UNIT *uptr, CONST char *cptr); uptr 128 src/simh/scp.h t_stat detach_unit (UNIT *uptr); uptr 159 src/simh/scp.h const char *sprint_capac (DEVICE *dptr, UNIT *uptr); uptr 166 src/simh/scp.h DEVICE *find_unit (const char *ptr, UNIT **uptr); uptr 167 src/simh/scp.h DEVICE *find_dev_from_unit (UNIT *uptr); uptr 174 src/simh/scp.h t_stat get_aval (t_addr addr, DEVICE *dptr, UNIT *uptr); uptr 193 src/simh/scp.h t_stat show_version (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 194 src/simh/scp.h t_stat set_dev_debug (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 195 src/simh/scp.h t_stat show_dev_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 200 src/simh/scp.h void sim_data_trace(DEVICE *dptr, UNIT *uptr, const uint8 *data, const char *position, size_t len, const char *txt, uint32 reason); uptr 212 src/simh/scp.h UNIT *uptr, int32 flag, const char *help, const char *cptr, ...); uptr 214 src/simh/scp.h UNIT *uptr, int32 flag, const char *help, const char *cptr, va_list ap); uptr 216 src/simh/scp.h UNIT *uptr, int32 flag, const char *help, const char *cptr, ...); uptr 218 src/simh/scp.h UNIT *uptr, int32 flag, const char *help, const char *cptr, va_list ap); uptr 267 src/simh/scp.h UNIT *uptr, int32 sw); uptr 268 src/simh/scp.h extern t_stat parse_sym (CONST char *cptr, t_addr addr, UNIT *uptr, t_value *val, uptr 135 src/simh/sim_console.c static t_stat sim_con_poll_svc (UNIT *uptr); /* console connection poll routine */ uptr 186 src/simh/sim_console.c static t_stat sim_con_poll_svc (UNIT *uptr) uptr 195 src/simh/sim_console.c sim_activate_after(uptr, 1000000); /* check again in 1 second */ uptr 306 src/simh/sim_console.c t_stat sim_show_console (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 314 src/simh/sim_console.c show_con_tab[i].action (st, dptr, uptr, show_con_tab[i].arg, cptr); uptr 320 src/simh/sim_console.c shptr->action (st, dptr, uptr, shptr->arg, NULL); uptr 326 src/simh/sim_console.c t_stat sim_rem_con_poll_svc (UNIT *uptr); /* remote console connection poll routine */ uptr 327 src/simh/sim_console.c t_stat sim_rem_con_data_svc (UNIT *uptr); /* remote console connection data routine */ uptr 395 src/simh/sim_console.c t_stat sim_show_remote_console (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 436 src/simh/sim_console.c t_stat sim_rem_con_poll_svc (UNIT *uptr) uptr 445 src/simh/sim_console.c sim_activate_after(uptr+1, 1000000); /* start data poll after 1 second */ uptr 466 src/simh/sim_console.c sim_activate_after(uptr, 1000000); /* check again in 1 second */ uptr 636 src/simh/sim_console.c t_stat sim_rem_con_data_svc (UNIT *uptr) uptr 1020 src/simh/sim_console.c sim_activate(uptr, steps); /* check again after 'steps' instructions */ uptr 1025 src/simh/sim_console.c sim_activate_after(uptr, 100000); /* check again in 100 milliseconds */ uptr 1244 src/simh/sim_console.c t_stat sim_show_kmap (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1279 src/simh/sim_console.c t_stat sim_show_cons_speed (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1336 src/simh/sim_console.c t_stat sim_show_log (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1456 src/simh/sim_console.c t_stat sim_show_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1825 src/simh/sim_console.c t_stat sim_show_cons_send_input (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1910 src/simh/sim_console.c if (!sim_con_tmxr.ldsc->uptr) { /* If simulator didn't declare its input polling unit */ uptr 95 src/simh/sim_console.h t_stat sim_show_console (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 96 src/simh/sim_console.h t_stat sim_show_remote_console (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 97 src/simh/sim_console.h t_stat sim_show_kmap (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 98 src/simh/sim_console.h t_stat sim_show_telnet (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 99 src/simh/sim_console.h t_stat sim_show_log (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 100 src/simh/sim_console.h t_stat sim_show_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 101 src/simh/sim_console.h t_stat sim_show_pchar (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 102 src/simh/sim_console.h t_stat sim_show_cons_speed (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 103 src/simh/sim_console.h t_stat sim_show_cons_buff (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 104 src/simh/sim_console.h t_stat sim_show_cons_log (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 105 src/simh/sim_console.h t_stat sim_show_cons_expect (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 112 src/simh/sim_console.h t_stat sim_show_cons_send_input (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 355 src/simh/sim_defs.h UNIT *uptr, int32 flag, const char *cptr); uptr 358 src/simh/sim_defs.h UNIT *uptr, int32 flag, const char *cptr); uptr 534 src/simh/sim_defs.h t_stat (*action)(DEVICE *dptr, UNIT *uptr, uptr 543 src/simh/sim_defs.h UNIT *uptr, int32 flag, CONST char *cptr); uptr 114 src/simh/sim_disk.c t_stat sim_disk_set_fmt (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 118 src/simh/sim_disk.c if (uptr == NULL) uptr 126 src/simh/sim_disk.c uptr->flags = (uptr->flags & ~DKUF_FMT) | uptr 136 src/simh/sim_disk.c t_stat sim_disk_show_fmt (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 138 src/simh/sim_disk.c int32 f = DK_GET_FMT (uptr); uptr 152 src/simh/sim_disk.c t_stat sim_disk_set_capac (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 156 src/simh/sim_disk.c DEVICE *dptr = find_dev_from_unit (uptr); uptr 160 src/simh/sim_disk.c if (uptr->flags & UNIT_ATT) uptr 165 src/simh/sim_disk.c uptr->capac = (t_addr)((cap * ((t_offset) 1000000))/((dptr->flags & DEV_SECTORS) ? 512 : 1)); uptr 171 src/simh/sim_disk.c t_stat sim_disk_show_capac (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 174 src/simh/sim_disk.c DEVICE *dptr = find_dev_from_unit (uptr); uptr 175 src/simh/sim_disk.c t_offset capac = ((t_offset)uptr->capac)*((dptr->flags & DEV_SECTORS) ? 512 : 1); uptr 182 src/simh/sim_disk.c else if (uptr->capac >= (t_addr) 1000) uptr 192 src/simh/sim_disk.c t_bool sim_disk_isavailable (UNIT *uptr) uptr 194 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 196 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 206 src/simh/sim_disk.c t_bool sim_disk_isavailable_a (UNIT *uptr, DISK_PCALLBACK callback) uptr 209 src/simh/sim_disk.c r = sim_disk_isavailable (uptr); uptr 215 src/simh/sim_disk.c t_bool sim_disk_wrp (UNIT *uptr) uptr 217 src/simh/sim_disk.c return (uptr->flags & DKUF_WRP)? TRUE: FALSE; uptr 222 src/simh/sim_disk.c t_offset sim_disk_size (UNIT *uptr) uptr 224 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 226 src/simh/sim_disk.c return sim_fsize_ex (uptr->fileref); uptr 236 src/simh/sim_disk.c static t_stat _sim_disk_rdsect (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectsread, t_seccnt sects) uptr 241 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 243 src/simh/sim_disk.c sim_debug (ctx->dbit, ctx->dptr, "_sim_disk_rdsect(unit=%lu, lba=0x%X, sects=%lu)\n", (unsigned long)(uptr-ctx->dptr->units), lba, (unsigned long)sects); uptr 249 src/simh/sim_disk.c err = sim_fseeko (uptr->fileref, da, SEEK_SET); /* set pos */ uptr 251 src/simh/sim_disk.c i = sim_fread (buf, ctx->xfer_element_size, tbc/ctx->xfer_element_size, uptr->fileref); uptr 254 src/simh/sim_disk.c err = ferror (uptr->fileref); uptr 261 src/simh/sim_disk.c t_stat sim_disk_rdsect (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectsread, t_seccnt sects) uptr 264 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 267 src/simh/sim_disk.c sim_debug (ctx->dbit, ctx->dptr, "sim_disk_rdsect(unit=%lu, lba=0x%X, sects=%lu)\n", (unsigned long)(uptr-ctx->dptr->units), lba, (unsigned long)sects); uptr 270 src/simh/sim_disk.c (lba >= (uptr->capac*ctx->capac_factor)/(ctx->sector_size/((ctx->dptr->flags & DEV_SECTORS) ? 512 : 1)))) {/* beyond the end of the disk */ uptr 280 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 282 src/simh/sim_disk.c return _sim_disk_rdsect (uptr, lba, buf, sectsread, sects); uptr 306 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 308 src/simh/sim_disk.c r = _sim_disk_rdsect (uptr, tlba, tbuf, &sread, tsects); uptr 327 src/simh/sim_disk.c t_stat sim_disk_rdsect_a (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectsread, t_seccnt sects, DISK_PCALLBACK callback) uptr 330 src/simh/sim_disk.c r = sim_disk_rdsect (uptr, lba, buf, sectsread, sects); uptr 336 src/simh/sim_disk.c static t_stat _sim_disk_wrsect (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectswritten, t_seccnt sects) uptr 341 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 343 src/simh/sim_disk.c sim_debug (ctx->dbit, ctx->dptr, "_sim_disk_wrsect(unit=%lu, lba=0x%X, sects=%lu)\n", (unsigned long)(uptr-ctx->dptr->units), lba, (unsigned long)sects); uptr 349 src/simh/sim_disk.c err = sim_fseeko (uptr->fileref, da, SEEK_SET); /* set pos */ uptr 351 src/simh/sim_disk.c i = sim_fwrite (buf, ctx->xfer_element_size, tbc/ctx->xfer_element_size, uptr->fileref); uptr 352 src/simh/sim_disk.c err = ferror (uptr->fileref); uptr 359 src/simh/sim_disk.c t_stat sim_disk_wrsect (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectswritten, t_seccnt sects) uptr 361 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 362 src/simh/sim_disk.c uint32 f = DK_GET_FMT (uptr); uptr 366 src/simh/sim_disk.c sim_debug (ctx->dbit, ctx->dptr, "sim_disk_wrsect(unit=%lu, lba=0x%X, sects=%lu)\n", (unsigned long)(uptr-ctx->dptr->units), lba, (unsigned long)sects); uptr 368 src/simh/sim_disk.c if (uptr->dynflags & UNIT_DISK_CHK) { uptr 369 src/simh/sim_disk.c DEVICE *dptr = find_dev_from_unit (uptr); uptr 371 src/simh/sim_disk.c t_lba total_sectors = (t_lba)((uptr->capac*capac_factor)/(ctx->sector_size/((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 388 src/simh/sim_disk.c sim_printf ("\n%s%lu: Write Address Verification Error on lbn %lu(0x%X) of %lu(0x%X).\n", sim_dname (dptr), (unsigned long)(uptr-dptr->units), (unsigned long)((unsigned long)lba+(unsigned long)sect), (int)((int)lba+(int)sect), (unsigned long)total_sectors, (int)total_sectors); uptr 391 src/simh/sim_disk.c sim_disk_data_trace (uptr, buf+sect*ctx->sector_size, lba+sect, ctx->sector_size, "Found", TRUE, 1); uptr 398 src/simh/sim_disk.c return _sim_disk_wrsect (uptr, lba, buf, sectswritten, sects); uptr 405 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 415 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 435 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 442 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 449 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 464 src/simh/sim_disk.c t_stat sim_disk_wrsect_a (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectswritten, t_seccnt sects, DISK_PCALLBACK callback) uptr 467 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, lba, buf, sectswritten, sects); uptr 471 src/simh/sim_disk.c t_stat sim_disk_unload (UNIT *uptr) uptr 473 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 475 src/simh/sim_disk.c return sim_disk_detach (uptr); uptr 481 src/simh/sim_disk.c static void _sim_disk_io_flush (UNIT *uptr) uptr 483 src/simh/sim_disk.c uint32 f = DK_GET_FMT (uptr); uptr 487 src/simh/sim_disk.c fflush (uptr->fileref); uptr 492 src/simh/sim_disk.c static t_stat _err_return (UNIT *uptr, t_stat stat) uptr 494 src/simh/sim_disk.c FREE (uptr->filename); uptr 495 src/simh/sim_disk.c uptr->filename = NULL; uptr 496 src/simh/sim_disk.c FREE (uptr->disk_ctx); uptr 497 src/simh/sim_disk.c uptr->disk_ctx = NULL; uptr 649 src/simh/sim_disk.c static t_offset get_filesystem_size (UNIT *uptr) uptr 663 src/simh/sim_disk.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 666 src/simh/sim_disk.c saved_capac = uptr->capac; uptr 668 src/simh/sim_disk.c uptr->capac = (t_addr)(temp_capac/(capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 669 src/simh/sim_disk.c if (sim_disk_rdsect (uptr, 1, (uint8 *)&Home, NULL, 1)) uptr 692 src/simh/sim_disk.c if (sim_disk_rdsect (uptr, Home.hm2_l_ibmaplbn+Home.hm2_w_ibmapsize+1, (uint8 *)&Header, NULL, 1)) uptr 714 src/simh/sim_disk.c if (sim_disk_rdsect (uptr, ScbLbn, (uint8 *)&Scb, NULL, 1)) uptr 724 src/simh/sim_disk.c sim_printf ("%s%lu: '%s' Contains ODS%lu File system:\n", sim_dname (dptr), (unsigned long)(uptr-dptr->units), uptr->filename, (unsigned long)Home.hm2_b_struclev); uptr 725 src/simh/sim_disk.c sim_printf ("%s%lu: Volume Name: %12.12s ", sim_dname (dptr), (unsigned long)(uptr-dptr->units), Home.hm2_t_volname); uptr 732 src/simh/sim_disk.c uptr->capac = saved_capac; uptr 736 src/simh/sim_disk.c t_stat sim_disk_attach (UNIT *uptr, const char *cptr, size_t sector_size, size_t xfer_element_size, t_bool dontautosize, uptr 749 src/simh/sim_disk.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 751 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATTABLE)) /* not attachable? */ uptr 753 src/simh/sim_disk.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 760 src/simh/sim_disk.c if (sim_disk_set_fmt (uptr, 0, gbuf, NULL) != SCPE_OK) uptr 767 src/simh/sim_disk.c uptr->filename = (char *) calloc (CBUFSIZE, sizeof (char));/* alloc name buf */ uptr 768 src/simh/sim_disk.c uptr->disk_ctx = ctx = (struct disk_context *)calloc(1, sizeof(struct disk_context)); uptr 781 src/simh/sim_disk.c if ((uptr->filename == NULL) || (uptr->disk_ctx == NULL)) uptr 782 src/simh/sim_disk.c return _err_return (uptr, SCPE_MEM); uptr 793 src/simh/sim_disk.c strncpy (uptr->filename, cptr, CBUFSIZE); /* save name */ uptr 808 src/simh/sim_disk.c sim_debug (ctx->dbit, ctx->dptr, "sim_disk_attach(unit=%lu,filename='%s')\n", (unsigned long)(uptr-ctx->dptr->units), uptr->filename); uptr 812 src/simh/sim_disk.c ((uptr->flags & UNIT_RO) != 0)) { uptr 813 src/simh/sim_disk.c if (((uptr->flags & UNIT_ROABLE) == 0) && /* allowed? */ uptr 814 src/simh/sim_disk.c ((uptr->flags & UNIT_RO) == 0)) uptr 815 src/simh/sim_disk.c return _err_return (uptr, SCPE_NORO); /* no, error */ uptr 816 src/simh/sim_disk.c uptr->fileref = open_function (cptr, "rb"); /* open rd only */ uptr 817 src/simh/sim_disk.c if (uptr->fileref == NULL) /* open fail? */ uptr 818 src/simh/sim_disk.c return _err_return (uptr, SCPE_OPENERR); /* yes, error */ uptr 819 src/simh/sim_disk.c uptr->flags = uptr->flags | UNIT_RO; /* set rd only */ uptr 821 src/simh/sim_disk.c sim_printf ("%s%lu: unit is read only (%s)\n", sim_dname (dptr), (unsigned long)(uptr-dptr->units), cptr); uptr 825 src/simh/sim_disk.c uptr->fileref = open_function (cptr, "rb+"); /* open r/w */ uptr 826 src/simh/sim_disk.c if (uptr->fileref == NULL) { /* open fail? */ uptr 828 src/simh/sim_disk.c if ((uptr->flags & UNIT_ROABLE) == 0) /* allowed? */ uptr 829 src/simh/sim_disk.c return _err_return (uptr, SCPE_NORO); /* no error */ uptr 830 src/simh/sim_disk.c uptr->fileref = open_function (cptr, "rb"); /* open rd only */ uptr 831 src/simh/sim_disk.c if (uptr->fileref == NULL) /* open fail? */ uptr 832 src/simh/sim_disk.c return _err_return (uptr, SCPE_OPENERR);/* yes, error */ uptr 833 src/simh/sim_disk.c uptr->flags = uptr->flags | UNIT_RO; /* set rd only */ uptr 835 src/simh/sim_disk.c sim_printf ("%s%lu: unit is read only (%s)\n", sim_dname (dptr), (unsigned long)(uptr-dptr->units), cptr); uptr 839 src/simh/sim_disk.c return _err_return (uptr, SCPE_OPENERR); /* yes, error */ uptr 841 src/simh/sim_disk.c uptr->fileref = create_function (cptr, ((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1));/* create new file */ uptr 843 src/simh/sim_disk.c uptr->fileref = open_function (cptr, "wb+");/* open new file */ uptr 844 src/simh/sim_disk.c if (uptr->fileref == NULL) /* open fail? */ uptr 845 src/simh/sim_disk.c return _err_return (uptr, SCPE_OPENERR);/* yes, error */ uptr 847 src/simh/sim_disk.c sim_printf ("%s%lu: creating new file (%s)\n", sim_dname (dptr), (unsigned long)(uptr-dptr->units), cptr); uptr 852 src/simh/sim_disk.c uptr->flags = uptr->flags | UNIT_ATT; uptr 853 src/simh/sim_disk.c uptr->pos = 0; uptr 857 src/simh/sim_disk.c storage_function (uptr->fileref, &ctx->storage_sector_size, &ctx->removable); uptr 865 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, (t_lba)(((((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1)) - ctx->sector_size)/ctx->sector_size), secbuf, NULL, 1); /* Write Last Sector */ uptr 867 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, (t_lba)(0), secbuf, NULL, 1); /* Write First Sector */ uptr 870 src/simh/sim_disk.c sim_disk_detach (uptr); /* report error now */ uptr 879 src/simh/sim_disk.c t_lba total_sectors = (t_lba)((uptr->capac*capac_factor)/(sector_size/((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 883 src/simh/sim_disk.c sim_disk_detach (uptr); /* report error now */ uptr 896 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, lba, init_buf, NULL, sects); uptr 899 src/simh/sim_disk.c sim_disk_detach (uptr); /* report error now */ uptr 904 src/simh/sim_disk.c sim_printf ("%s%lu: Initialized To Sector Address %luMB. %lu%% complete.\r", sim_dname (dptr), (unsigned long)(uptr-dptr->units), (unsigned long)((((float)lba)*sector_size)/1000000), (unsigned long)((((float)lba)*100)/total_sectors)); uptr 907 src/simh/sim_disk.c sim_printf ("%s%lu: Initialized To Sector Address %luMB. 100%% complete.\n", sim_dname (dptr), (unsigned long)(uptr-dptr->units), (unsigned long)((((float)lba)*sector_size)/1000000)); uptr 917 src/simh/sim_disk.c t_lba total_sectors = (t_lba)((uptr->capac*capac_factor)/(sector_size/((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 922 src/simh/sim_disk.c sim_disk_detach (uptr); /* report error now */ uptr 929 src/simh/sim_disk.c r = sim_disk_rdsect (uptr, lba, verify_buf, NULL, sects); uptr 945 src/simh/sim_disk.c sim_printf ("\n%s%lu: Verification Error on lbn %lu(0x%X) of %lu(0x%X).\n", sim_dname (dptr), (unsigned long)(uptr-dptr->units), (unsigned long)((unsigned long)lba+(unsigned long)sect), (int)((int)lba+(int)sect), (unsigned long)total_sectors, (int)total_sectors); uptr 948 src/simh/sim_disk.c sim_disk_data_trace (uptr, verify_buf+sect*sector_size, lba+sect, sector_size, "Found", TRUE, 1); uptr 955 src/simh/sim_disk.c sim_printf ("%s%lu: Verified containing Sector Address %luMB. %lu%% complete.\r", sim_dname (dptr), (unsigned long)(uptr-dptr->units), (unsigned long)((((float)lba)*sector_size)/1000000), (unsigned long)((((float)lba)*100)/total_sectors)); uptr 958 src/simh/sim_disk.c sim_printf ("%s%lu: Verified containing Sector Address %luMB. 100%% complete.\n", sim_dname (dptr), (unsigned long)(uptr-dptr->units), (unsigned long)((((float)lba)*sector_size)/1000000)); uptr 960 src/simh/sim_disk.c uptr->dynflags |= UNIT_DISK_CHK; uptr 963 src/simh/sim_disk.c filesystem_capac = get_filesystem_size (uptr); uptr 964 src/simh/sim_disk.c capac = size_function (uptr->fileref); uptr 967 src/simh/sim_disk.c t_addr saved_capac = uptr->capac; uptr 970 src/simh/sim_disk.c (filesystem_capac > (((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1)))) { uptr 972 src/simh/sim_disk.c uptr->capac = (t_addr)(filesystem_capac/(ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 973 src/simh/sim_disk.c sim_printf ("%s%lu: The file system on the disk %s is larger than simulated device (%s > ", sim_dname (dptr), (unsigned long)(uptr-dptr->units), cptr, sprint_capac (dptr, uptr)); uptr 974 src/simh/sim_disk.c uptr->capac = saved_capac; uptr 975 src/simh/sim_disk.c sim_printf ("%s)\n", sprint_capac (dptr, uptr)); uptr 977 src/simh/sim_disk.c sim_disk_detach (uptr); uptr 980 src/simh/sim_disk.c if ((capac < (((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))) && (DKUF_F_STD != DK_GET_FMT (uptr))) { uptr 982 src/simh/sim_disk.c uptr->capac = (t_addr)(capac/(ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 983 src/simh/sim_disk.c sim_printf ("%s%lu: non expandable disk %s is smaller than simulated device (%s < ", sim_dname (dptr), (unsigned long)(uptr-dptr->units), cptr, sprint_capac (dptr, uptr)); uptr 984 src/simh/sim_disk.c uptr->capac = saved_capac; uptr 985 src/simh/sim_disk.c sim_printf ("%s)\n", sprint_capac (dptr, uptr)); uptr 987 src/simh/sim_disk.c sim_disk_detach (uptr); uptr 995 src/simh/sim_disk.c if ((capac > (((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))) || uptr 996 src/simh/sim_disk.c (DKUF_F_STD != DK_GET_FMT (uptr))) uptr 997 src/simh/sim_disk.c uptr->capac = (t_addr)(capac/(ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 1001 src/simh/sim_disk.c uptr->io_flush = _sim_disk_io_flush; uptr 1006 src/simh/sim_disk.c t_stat sim_disk_detach (UNIT *uptr) uptr 1012 src/simh/sim_disk.c if ((uptr == NULL) || !(uptr->flags & UNIT_ATT)) uptr 1015 src/simh/sim_disk.c ctx = (struct disk_context *)uptr->disk_ctx; uptr 1016 src/simh/sim_disk.c fileref = uptr->fileref; uptr 1020 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 1027 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATTABLE)) /* attachable? */ uptr 1029 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 1031 src/simh/sim_disk.c if (NULL == find_dev_from_unit (uptr)) uptr 1034 src/simh/sim_disk.c if (uptr->io_flush) uptr 1035 src/simh/sim_disk.c uptr->io_flush (uptr); /* flush buffered data */ uptr 1037 src/simh/sim_disk.c uptr->flags &= ~(UNIT_ATT | UNIT_RO); uptr 1038 src/simh/sim_disk.c uptr->dynflags &= ~(UNIT_NO_FIO | UNIT_DISK_CHK); uptr 1039 src/simh/sim_disk.c FREE (uptr->filename); uptr 1040 src/simh/sim_disk.c uptr->filename = NULL; uptr 1041 src/simh/sim_disk.c uptr->fileref = NULL; uptr 1042 src/simh/sim_disk.c if (uptr->disk_ctx) { uptr 1043 src/simh/sim_disk.c FREE (uptr->disk_ctx); uptr 1044 src/simh/sim_disk.c uptr->disk_ctx = NULL; uptr 1046 src/simh/sim_disk.c uptr->io_flush = NULL; uptr 1048 src/simh/sim_disk.c sim_disk_set_fmt (uptr, 0, "SIMH", NULL); /* restore file format */ uptr 1054 src/simh/sim_disk.c t_stat sim_disk_attach_help(FILE *st, DEVICE *dptr, const UNIT *uptr, int32 flag, const char *cptr) uptr 1061 src/simh/sim_disk.c if (0 == (uptr-dptr->units)) { uptr 1092 src/simh/sim_disk.c t_stat sim_disk_reset (UNIT *uptr) uptr 1094 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 1096 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 1099 src/simh/sim_disk.c sim_debug (ctx->dbit, ctx->dptr, "sim_disk_reset(unit=%lu)\n", (unsigned long)(uptr-ctx->dptr->units)); uptr 1101 src/simh/sim_disk.c _sim_disk_io_flush(uptr); uptr 1105 src/simh/sim_disk.c t_stat sim_disk_perror (UNIT *uptr, const char *msg) uptr 1109 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATTABLE)) /* not attachable? */ uptr 1111 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 1114 src/simh/sim_disk.c sim_printf ("%s %s: %s\n", sim_uname(uptr), msg, strerror(saved_errno)); uptr 1122 src/simh/sim_disk.c t_stat sim_disk_clearerr (UNIT *uptr) uptr 1124 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATTABLE)) /* not attachable? */ uptr 1126 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 1128 src/simh/sim_disk.c clearerr (uptr->fileref); uptr 1136 src/simh/sim_disk.c void sim_disk_data_trace(UNIT *uptr, const uint8 *data, size_t lba, size_t len, const char* txt, int detail, uint32 reason) uptr 1138 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 1144 src/simh/sim_disk.c sim_data_trace(ctx->dptr, uptr, (detail ? data : NULL), pos, len, txt, reason); uptr 70 src/simh/sim_disk.h t_stat sim_disk_attach (UNIT *uptr, const char *cptr, size_t sector_size, size_t xfer_element_size, t_bool dontautosize, uptr 72 src/simh/sim_disk.h t_stat sim_disk_detach (UNIT *uptr); uptr 73 src/simh/sim_disk.h t_stat sim_disk_attach_help(FILE *st, DEVICE *dptr, const UNIT *uptr, int32 flag, const char *cptr); uptr 74 src/simh/sim_disk.h t_stat sim_disk_rdsect (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectsread, t_seccnt sects); uptr 75 src/simh/sim_disk.h t_stat sim_disk_rdsect_a (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectsread, t_seccnt sects, DISK_PCALLBACK callback); uptr 76 src/simh/sim_disk.h t_stat sim_disk_wrsect (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectswritten, t_seccnt sects); uptr 77 src/simh/sim_disk.h t_stat sim_disk_wrsect_a (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectswritten, t_seccnt sects, DISK_PCALLBACK callback); uptr 78 src/simh/sim_disk.h t_stat sim_disk_unload (UNIT *uptr); uptr 79 src/simh/sim_disk.h t_stat sim_disk_set_fmt (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 80 src/simh/sim_disk.h t_stat sim_disk_show_fmt (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 81 src/simh/sim_disk.h t_stat sim_disk_set_capac (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 82 src/simh/sim_disk.h t_stat sim_disk_show_capac (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 83 src/simh/sim_disk.h t_stat sim_disk_reset (UNIT *uptr); uptr 84 src/simh/sim_disk.h t_stat sim_disk_perror (UNIT *uptr, const char *msg); uptr 85 src/simh/sim_disk.h t_stat sim_disk_clearerr (UNIT *uptr); uptr 86 src/simh/sim_disk.h t_bool sim_disk_isavailable (UNIT *uptr); uptr 87 src/simh/sim_disk.h t_bool sim_disk_isavailable_a (UNIT *uptr, DISK_PCALLBACK callback); uptr 88 src/simh/sim_disk.h t_bool sim_disk_wrp (UNIT *uptr); uptr 89 src/simh/sim_disk.h t_offset sim_disk_size (UNIT *uptr); uptr 92 src/simh/sim_disk.h void sim_disk_data_trace (UNIT *uptr, const uint8 *data, size_t lba, size_t len, const char* txt, int detail, uint32 reason); uptr 108 src/simh/sim_tape.c static t_stat sim_tape_ioerr (UNIT *uptr); uptr 109 src/simh/sim_tape.c static t_stat sim_tape_wrdata (UNIT *uptr, uint32 dat); uptr 110 src/simh/sim_tape.c static uint32 sim_tape_tpc_map (UNIT *uptr, t_addr *map, uint32 mapsize); uptr 111 src/simh/sim_tape.c static t_stat sim_tape_simh_check (UNIT *uptr); uptr 112 src/simh/sim_tape.c static t_stat sim_tape_e11_check (UNIT *uptr); uptr 113 src/simh/sim_tape.c static t_addr sim_tape_tpc_fnd (UNIT *uptr, t_addr *map); uptr 114 src/simh/sim_tape.c static void sim_tape_data_trace (UNIT *uptr, const uint8 *data, size_t len, const char* txt, int detail, uint32 reason); uptr 127 src/simh/sim_tape.c static void _sim_tape_io_flush (UNIT *uptr) uptr 129 src/simh/sim_tape.c fflush (uptr->fileref); uptr 134 src/simh/sim_tape.c t_stat sim_tape_attach (UNIT *uptr, CONST char *cptr) uptr 138 src/simh/sim_tape.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 140 src/simh/sim_tape.c return sim_tape_attach_ex (uptr, cptr, (dptr->flags & DEV_DEBUG) ? 0xFFFFFFFF : 0, 0); uptr 143 src/simh/sim_tape.c t_stat sim_tape_attach_ex (UNIT *uptr, const char *cptr, uint32 dbit, int completion_delay) uptr 152 src/simh/sim_tape.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 158 src/simh/sim_tape.c if (sim_tape_set_fmt (uptr, 0, gbuf, NULL) != SCPE_OK) uptr 163 src/simh/sim_tape.c if (MT_GET_FMT (uptr) == MTUF_F_TPC) uptr 165 src/simh/sim_tape.c r = attach_unit (uptr, (CONST char *)cptr); /* attach unit */ uptr 168 src/simh/sim_tape.c switch (MT_GET_FMT (uptr)) { /* case on format */ uptr 171 src/simh/sim_tape.c if (SCPE_OK != sim_tape_simh_check (uptr)) { uptr 172 src/simh/sim_tape.c sim_tape_detach (uptr); uptr 178 src/simh/sim_tape.c if (SCPE_OK != sim_tape_e11_check (uptr)) { uptr 179 src/simh/sim_tape.c sim_tape_detach (uptr); uptr 185 src/simh/sim_tape.c objc = sim_tape_tpc_map (uptr, NULL, 0); /* get # objects */ uptr 187 src/simh/sim_tape.c sim_tape_detach (uptr); uptr 190 src/simh/sim_tape.c uptr->filebuf = calloc (objc + 1, sizeof (t_addr)); uptr 191 src/simh/sim_tape.c if (uptr->filebuf == NULL) { /* map allocated? */ uptr 192 src/simh/sim_tape.c sim_tape_detach (uptr); uptr 195 src/simh/sim_tape.c uptr->hwmark = objc + 1; /* save map size */ uptr 196 src/simh/sim_tape.c sim_tape_tpc_map (uptr, (t_addr *) uptr->filebuf, objc);/* fill map */ uptr 203 src/simh/sim_tape.c uptr->tape_ctx = ctx = (struct tape_context *)calloc(1, sizeof(struct tape_context)); uptr 220 src/simh/sim_tape.c sim_tape_rewind (uptr); uptr 222 src/simh/sim_tape.c uptr->io_flush = _sim_tape_io_flush; uptr 229 src/simh/sim_tape.c t_stat sim_tape_detach (UNIT *uptr) uptr 236 src/simh/sim_tape.c if (uptr == NULL) uptr 239 src/simh/sim_tape.c if (!(uptr->flags & UNIT_ATT)) uptr 242 src/simh/sim_tape.c ctx = (struct tape_context *)uptr->tape_ctx; uptr 243 src/simh/sim_tape.c f = MT_GET_FMT (uptr); uptr 245 src/simh/sim_tape.c if (uptr->io_flush) uptr 246 src/simh/sim_tape.c uptr->io_flush (uptr); /* flush buffered data */ uptr 250 src/simh/sim_tape.c r = detach_unit (uptr); /* detach unit */ uptr 256 src/simh/sim_tape.c if (uptr->filebuf) /* free map */ uptr 257 src/simh/sim_tape.c FREE (uptr->filebuf); uptr 258 src/simh/sim_tape.c uptr->filebuf = NULL; uptr 259 src/simh/sim_tape.c uptr->hwmark = 0; uptr 266 src/simh/sim_tape.c sim_tape_rewind (uptr); uptr 267 src/simh/sim_tape.c FREE (uptr->tape_ctx); uptr 268 src/simh/sim_tape.c uptr->tape_ctx = NULL; uptr 269 src/simh/sim_tape.c uptr->io_flush = NULL; uptr 271 src/simh/sim_tape.c sim_tape_set_fmt (uptr, 0, "SIMH", NULL); /* restore default format */ uptr 275 src/simh/sim_tape.c t_stat sim_tape_attach_help(FILE *st, DEVICE *dptr, const UNIT *uptr, int32 flag, const char *cptr) uptr 278 src/simh/sim_tape.c if (0 == (uptr-dptr->units)) { uptr 300 src/simh/sim_tape.c static void sim_tape_data_trace(UNIT *uptr, const uint8 *data, size_t len, const char* txt, int detail, uint32 reason) uptr 302 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 307 src/simh/sim_tape.c sim_data_trace(ctx->dptr, uptr, (detail ? data : NULL), "", len, txt, reason); uptr 395 src/simh/sim_tape.c static t_stat sim_tape_rdlntf (UNIT *uptr, t_mtrlnt *bc) uptr 397 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 400 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 408 src/simh/sim_tape.c MT_CLR_PNU (uptr); /* clear the position-not-updated flag */ uptr 410 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* if the unit is not attached */ uptr 415 src/simh/sim_tape.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* set the initial tape position */ uptr 421 src/simh/sim_tape.c runaway_counter = 25 * 12 * bpi [MT_DENS (uptr->dynflags)]; /* set the largest legal gap size in bytes */ uptr 435 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* if we hit the EOF while reading a gap */ uptr 453 src/simh/sim_tape.c uptr->fileref); uptr 455 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* if a file I/O error occurred */ uptr 457 src/simh/sim_tape.c MT_SET_PNU (uptr); /* then set position not updated */ uptr 459 src/simh/sim_tape.c r = sim_tape_ioerr (uptr); /* report the error and quit */ uptr 466 src/simh/sim_tape.c MT_SET_PNU (uptr); /* then set position not updated */ uptr 493 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_mtrlnt); /* space over the marker */ uptr 504 src/simh/sim_tape.c uptr->pos = uptr->pos - sizeof (t_mtrlnt) / 2; /* then back up */ uptr 505 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* to resync */ uptr 514 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* then seek to the data area */ uptr 517 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_mtrlnt) /* position to the start */ uptr 529 src/simh/sim_tape.c (void)sim_fread (&tpcbc, sizeof (t_tpclnt), 1, uptr->fileref); uptr 531 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 532 src/simh/sim_tape.c MT_SET_PNU (uptr); /* pos not upd */ uptr 533 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 535 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* eof? */ uptr 536 src/simh/sim_tape.c MT_SET_PNU (uptr); /* pos not upd */ uptr 540 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_tpclnt); /* spc over reclnt */ uptr 543 src/simh/sim_tape.c uptr->pos = uptr->pos + ((tpcbc + 1) & ~1); /* spc over record */ uptr 548 src/simh/sim_tape.c (void)sim_fread (&c, sizeof (uint8), 1, uptr->fileref); uptr 549 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 550 src/simh/sim_tape.c MT_SET_PNU (uptr); /* pos not upd */ uptr 551 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 553 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* eof? */ uptr 564 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* for read */ uptr 565 src/simh/sim_tape.c uptr->pos = uptr->pos + sbc; /* spc over record */ uptr 574 src/simh/sim_tape.c sim_debug (MTSE_DBG_STR, ctx->dptr, "rd_lnt: st: %d, lnt: %d, pos: %" T_ADDR_FMT "u\n", r, *bc, uptr->pos); uptr 608 src/simh/sim_tape.c static t_stat sim_tape_rdlntr (UNIT *uptr, t_mtrlnt *bc) uptr 610 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 613 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 622 src/simh/sim_tape.c MT_CLR_PNU (uptr); /* clear the position-not-updated flag */ uptr 625 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* if the unit is not attached */ uptr 630 src/simh/sim_tape.c if (sim_tape_bot (uptr)) /* if the unit is positioned at the BOT */ uptr 637 src/simh/sim_tape.c runaway_counter = 25 * 12 * bpi [MT_DENS (uptr->dynflags)]; /* set largest legal gap size in bytes */ uptr 652 src/simh/sim_tape.c if (sim_tape_bot (uptr)) { /* if the search has backed into the BOT */ uptr 657 src/simh/sim_tape.c else if (uptr->pos < sizeof (buffer)) /* if less than a full buffer remains */ uptr 658 src/simh/sim_tape.c bufcap = (uint32) uptr->pos /* then reduce the capacity accordingly */ uptr 661 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, /* seek back to the location */ uptr 662 src/simh/sim_tape.c uptr->pos - bufcap * sizeof (t_mtrlnt), /* corresponding to the start */ uptr 666 src/simh/sim_tape.c bufcap, uptr->fileref); /* with tape metadata */ uptr 668 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* if a file I/O error occurred */ uptr 669 src/simh/sim_tape.c MT_SET_PNU (uptr); /* then set position not updated */ uptr 670 src/simh/sim_tape.c r = sim_tape_ioerr (uptr); /* report the error and quit */ uptr 681 src/simh/sim_tape.c uptr->pos = uptr->pos - sizeof (t_mtrlnt); /* backspace over the marker */ uptr 693 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_mtrlnt) / 2; /* then position forward to resync */ uptr 702 src/simh/sim_tape.c uptr->pos = uptr->pos - sizeof (t_mtrlnt) /* position to the start */ uptr 704 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, /* seek to the data area */ uptr 705 src/simh/sim_tape.c uptr->pos + sizeof (t_mtrlnt), SEEK_SET); uptr 716 src/simh/sim_tape.c ppos = sim_tape_tpc_fnd (uptr, (t_addr *) uptr->filebuf); /* find prev rec */ uptr 717 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, ppos, SEEK_SET); /* position */ uptr 718 src/simh/sim_tape.c (void)sim_fread (&tpcbc, sizeof (t_tpclnt), 1, uptr->fileref); uptr 720 src/simh/sim_tape.c if (ferror (uptr->fileref)) /* error? */ uptr 721 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 722 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* eof? */ uptr 726 src/simh/sim_tape.c uptr->pos = ppos; /* spc over record */ uptr 731 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos + sizeof (t_tpclnt), SEEK_SET); uptr 735 src/simh/sim_tape.c for (sbc = 1, all_eof = 1; (t_addr) sbc <= uptr->pos ; sbc++) { uptr 736 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos - sbc, SEEK_SET); uptr 737 src/simh/sim_tape.c (void)sim_fread (&c, sizeof (uint8), 1, uptr->fileref); uptr 738 src/simh/sim_tape.c if (ferror (uptr->fileref)) /* error? */ uptr 739 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 740 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* eof? */ uptr 749 src/simh/sim_tape.c uptr->pos = uptr->pos - sbc; /* update position */ uptr 751 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* for read */ uptr 759 src/simh/sim_tape.c sim_debug (MTSE_DBG_STR, ctx->dptr, "rd_lnt: st: %d, lnt: %d, pos: %" T_ADDR_FMT "u\n", r, *bc, uptr->pos); uptr 784 src/simh/sim_tape.c t_stat sim_tape_rdrecf (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max) uptr 786 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 787 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 794 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_rdrecf(unit=%d, buf=%p, max=%d)\n", (int)(uptr-ctx->dptr->units), buf, max); uptr 796 src/simh/sim_tape.c opos = uptr->pos; /* old position */ uptr 797 src/simh/sim_tape.c if (MTSE_OK != (st = sim_tape_rdlntf (uptr, &tbc))) /* read rec lnt */ uptr 801 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 802 src/simh/sim_tape.c uptr->pos = opos; uptr 805 src/simh/sim_tape.c i = (t_mtrlnt)sim_fread (buf, sizeof (uint8), rbc, uptr->fileref);/* read record */ uptr 806 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 807 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 808 src/simh/sim_tape.c uptr->pos = opos; uptr 809 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 815 src/simh/sim_tape.c sim_tape_data_trace(uptr, buf, rbc, "Record Read", ctx->dptr->dctrl & MTSE_DBG_DAT, MTSE_DBG_STR); uptr 819 src/simh/sim_tape.c t_stat sim_tape_rdrecf_a (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max, TAPE_PCALLBACK callback) uptr 822 src/simh/sim_tape.c r = sim_tape_rdrecf (uptr, buf, bc, max); uptr 848 src/simh/sim_tape.c t_stat sim_tape_rdrecr (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max) uptr 850 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 851 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 857 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_rdrecr(unit=%d, buf=%p, max=%d)\n", (int)(uptr-ctx->dptr->units), buf, max); uptr 859 src/simh/sim_tape.c if (MTSE_OK != (st = sim_tape_rdlntr (uptr, &tbc))) /* read rec lnt */ uptr 864 src/simh/sim_tape.c i = (t_mtrlnt)sim_fread (buf, sizeof (uint8), rbc, uptr->fileref);/* read record */ uptr 865 src/simh/sim_tape.c if (ferror (uptr->fileref)) /* error? */ uptr 866 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 871 src/simh/sim_tape.c sim_tape_data_trace(uptr, buf, rbc, "Record Read Reverse", ctx->dptr->dctrl & MTSE_DBG_DAT, MTSE_DBG_STR); uptr 875 src/simh/sim_tape.c t_stat sim_tape_rdrecr_a (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max, TAPE_PCALLBACK callback) uptr 878 src/simh/sim_tape.c r = sim_tape_rdrecr (uptr, buf, bc, max); uptr 899 src/simh/sim_tape.c t_stat sim_tape_wrrecf (UNIT *uptr, uint8 *buf, t_mtrlnt bc) uptr 901 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 902 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 907 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_wrrecf(unit=%d, buf=%p, bc=%d)\n", (int)(uptr-ctx->dptr->units), buf, bc); uptr 909 src/simh/sim_tape.c sim_tape_data_trace(uptr, buf, bc, "Record Write", ctx->dptr->dctrl & MTSE_DBG_DAT, MTSE_DBG_STR); uptr 910 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 912 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* not attached? */ uptr 914 src/simh/sim_tape.c if (sim_tape_wrp (uptr)) /* write prot? */ uptr 918 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* set pos */ uptr 925 src/simh/sim_tape.c (void)sim_fwrite (&bc, sizeof (t_mtrlnt), 1, uptr->fileref); uptr 926 src/simh/sim_tape.c (void)sim_fwrite (buf, sizeof (uint8), sbc, uptr->fileref); uptr 927 src/simh/sim_tape.c (void)sim_fwrite (&bc, sizeof (t_mtrlnt), 1, uptr->fileref); uptr 928 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 929 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 930 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 932 src/simh/sim_tape.c uptr->pos = uptr->pos + sbc + (2 * sizeof (t_mtrlnt)); /* move tape */ uptr 937 src/simh/sim_tape.c (void)sim_fwrite (buf, sizeof (uint8), sbc, uptr->fileref); uptr 938 src/simh/sim_tape.c (void)sim_fwrite (buf, sizeof (uint8), 1, uptr->fileref); /* delimit rec */ uptr 939 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 940 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 941 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 943 src/simh/sim_tape.c uptr->pos = uptr->pos + sbc; /* move tape */ uptr 946 src/simh/sim_tape.c sim_tape_data_trace(uptr, buf, sbc, "Record Written", ctx->dptr->dctrl & MTSE_DBG_DAT, MTSE_DBG_STR); uptr 950 src/simh/sim_tape.c t_stat sim_tape_wrrecf_a (UNIT *uptr, uint8 *buf, t_mtrlnt bc, TAPE_PCALLBACK callback) uptr 953 src/simh/sim_tape.c r = sim_tape_wrrecf (uptr, buf, bc); uptr 959 src/simh/sim_tape.c static t_stat sim_tape_wrdata (UNIT *uptr, uint32 dat) uptr 961 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 963 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 964 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* not attached? */ uptr 968 src/simh/sim_tape.c if (sim_tape_wrp (uptr)) /* write prot? */ uptr 970 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* set pos */ uptr 971 src/simh/sim_tape.c (void)sim_fwrite (&dat, sizeof (t_mtrlnt), 1, uptr->fileref); uptr 972 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 973 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 974 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 976 src/simh/sim_tape.c sim_debug (MTSE_DBG_STR, ctx->dptr, "wr_lnt: lnt: %d, pos: %" T_ADDR_FMT "u\n", dat, uptr->pos); uptr 977 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_mtrlnt); /* move tape */ uptr 983 src/simh/sim_tape.c t_stat sim_tape_wrtmk (UNIT *uptr) uptr 985 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 989 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_wrtmk(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 990 src/simh/sim_tape.c if (MT_GET_FMT (uptr) == MTUF_F_P7B) { /* P7B? */ uptr 992 src/simh/sim_tape.c return sim_tape_wrrecf (uptr, &buf, 1); /* write char */ uptr 994 src/simh/sim_tape.c return sim_tape_wrdata (uptr, MTR_TMK); uptr 997 src/simh/sim_tape.c t_stat sim_tape_wrtmk_a (UNIT *uptr, TAPE_PCALLBACK callback) uptr 1000 src/simh/sim_tape.c r = sim_tape_wrtmk (uptr); uptr 1006 src/simh/sim_tape.c t_stat sim_tape_wreom (UNIT *uptr) uptr 1009 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1013 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_wreom(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1014 src/simh/sim_tape.c if (MT_GET_FMT (uptr) == MTUF_F_P7B) /* cant do P7B */ uptr 1017 src/simh/sim_tape.c result = sim_tape_wrdata (uptr, MTR_EOM); /* write the EOM marker */ uptr 1019 src/simh/sim_tape.c uptr->pos = uptr->pos - sizeof (t_mtrlnt); /* restore original tape position */ uptr 1020 src/simh/sim_tape.c MT_SET_PNU (uptr); /* indicate that position was not updated */ uptr 1025 src/simh/sim_tape.c t_stat sim_tape_wreom_a (UNIT *uptr, TAPE_PCALLBACK callback) uptr 1028 src/simh/sim_tape.c r = sim_tape_wreom (uptr); uptr 1034 src/simh/sim_tape.c t_stat sim_tape_wreomrw (UNIT *uptr) uptr 1036 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1041 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_wreomrw(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1042 src/simh/sim_tape.c if (MT_GET_FMT (uptr) == MTUF_F_P7B) /* cant do P7B */ uptr 1044 src/simh/sim_tape.c r = sim_tape_wrdata (uptr, MTR_EOM); uptr 1046 src/simh/sim_tape.c r = sim_tape_rewind (uptr); uptr 1050 src/simh/sim_tape.c t_stat sim_tape_wreomrw_a (UNIT *uptr, TAPE_PCALLBACK callback) uptr 1053 src/simh/sim_tape.c r = sim_tape_wreomrw (uptr); uptr 1157 src/simh/sim_tape.c t_stat sim_tape_wrgap (UNIT *uptr, uint32 gaplen) uptr 1159 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1162 src/simh/sim_tape.c t_addr gap_pos = uptr->pos; uptr 1166 src/simh/sim_tape.c const uint32 format = MT_GET_FMT (uptr); /* tape format */ uptr 1172 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_wrgap(unit=%d, gaplen=%u)\n", (int)(uptr-ctx->dptr->units), gaplen); uptr 1174 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 1176 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* if the unit is not attached */ uptr 1179 src/simh/sim_tape.c else if (sim_tape_wrp (uptr)) /* otherwise if the unit is write protected */ uptr 1182 src/simh/sim_tape.c tape_density = bpi [MT_DENS (uptr->dynflags)]; /* get the density of the tape */ uptr 1191 src/simh/sim_tape.c file_size = sim_fsize (uptr->fileref); /* get file size */ uptr 1192 src/simh/sim_tape.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* position tape */ uptr 1206 src/simh/sim_tape.c (void)sim_fread (&meta, meta_size, 1, uptr->fileref); /* read metadatum */ uptr 1208 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* read error? */ uptr 1209 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore original position */ uptr 1210 src/simh/sim_tape.c MT_SET_PNU (uptr); /* position not updated */ uptr 1211 src/simh/sim_tape.c return sim_tape_ioerr (uptr); /* translate error */ uptr 1214 src/simh/sim_tape.c uptr->pos = uptr->pos + meta_size; /* move tape over datum */ uptr 1216 src/simh/sim_tape.c if (feof (uptr->fileref) || (meta == MTR_EOM)) { /* at eof or eom? */ uptr 1227 src/simh/sim_tape.c uptr->pos = uptr->pos - meta_size / 2; /* backup to resync */ uptr 1228 src/simh/sim_tape.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* position tape */ uptr 1233 src/simh/sim_tape.c else if (uptr->pos + uptr 1250 src/simh/sim_tape.c uptr->pos = uptr->pos - meta_size + rec_size; /* position past record */ uptr 1251 src/simh/sim_tape.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* move tape */ uptr 1257 src/simh/sim_tape.c uptr->pos = uptr->pos - meta_size + gap_needed; /* position to end of gap */ uptr 1259 src/simh/sim_tape.c st = sim_tape_wrdata (uptr, new_len); /* write new rec len */ uptr 1262 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore orig pos */ uptr 1266 src/simh/sim_tape.c uptr->pos = uptr->pos + sbc - gap_needed; /* position to end of data */ uptr 1267 src/simh/sim_tape.c st = sim_tape_wrdata (uptr, new_len); /* write new rec len */ uptr 1270 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore orig pos */ uptr 1281 src/simh/sim_tape.c uptr->pos = gap_pos; /* reposition to gap start */ uptr 1284 src/simh/sim_tape.c st = sim_tape_wrdata (uptr, MTR_FHGAP); /* write half gap marker */ uptr 1286 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore orig pos */ uptr 1289 src/simh/sim_tape.c uptr->pos = uptr->pos - meta_size / 2; /* realign position */ uptr 1296 src/simh/sim_tape.c st = sim_tape_wrdata (uptr, MTR_GAP); /* write gap markers */ uptr 1298 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore orig pos */ uptr 1307 src/simh/sim_tape.c t_stat sim_tape_wrgap_a (UNIT *uptr, uint32 gaplen, TAPE_PCALLBACK callback) uptr 1331 src/simh/sim_tape.c t_stat sim_tape_sprecf (UNIT *uptr, t_mtrlnt *bc) uptr 1333 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1339 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_sprecf(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1341 src/simh/sim_tape.c st = sim_tape_rdlntf (uptr, bc); /* get record length */ uptr 1346 src/simh/sim_tape.c t_stat sim_tape_sprecf_a (UNIT *uptr, t_mtrlnt *bc, TAPE_PCALLBACK callback) uptr 1349 src/simh/sim_tape.c r = sim_tape_sprecf (uptr, bc); uptr 1372 src/simh/sim_tape.c t_stat sim_tape_sprecsf (UNIT *uptr, uint32 count, uint32 *skipped) uptr 1374 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1380 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_sprecsf(unit=%d, count=%d)\n", (int)(uptr-ctx->dptr->units), count); uptr 1384 src/simh/sim_tape.c st = sim_tape_sprecf (uptr, &tbc); /* spc rec */ uptr 1392 src/simh/sim_tape.c t_stat sim_tape_sprecsf_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback) uptr 1395 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, count, skipped); uptr 1418 src/simh/sim_tape.c t_stat sim_tape_sprecr (UNIT *uptr, t_mtrlnt *bc) uptr 1420 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1425 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_sprecr(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1427 src/simh/sim_tape.c if (MT_TST_PNU (uptr)) { uptr 1428 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 1432 src/simh/sim_tape.c st = sim_tape_rdlntr (uptr, bc); /* get record length */ uptr 1437 src/simh/sim_tape.c t_stat sim_tape_sprecr_a (UNIT *uptr, t_mtrlnt *bc, TAPE_PCALLBACK callback) uptr 1440 src/simh/sim_tape.c r = sim_tape_sprecr (uptr, bc); uptr 1464 src/simh/sim_tape.c t_stat sim_tape_sprecsr (UNIT *uptr, uint32 count, uint32 *skipped) uptr 1466 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1472 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_sprecsr(unit=%d, count=%d)\n", (int)(uptr-ctx->dptr->units), count); uptr 1476 src/simh/sim_tape.c st = sim_tape_sprecr (uptr, &tbc); /* spc rec rev */ uptr 1484 src/simh/sim_tape.c t_stat sim_tape_sprecsr_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback) uptr 1487 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, count, skipped); uptr 1512 src/simh/sim_tape.c t_stat sim_tape_spfilebyrecf (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, t_bool check_leot) uptr 1514 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1521 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_spfilebyrecf(unit=%d, count=%d, check_leot=%d)\n", (int)(uptr-ctx->dptr->units), count, check_leot); uptr 1526 src/simh/sim_tape.c st = sim_tape_rdlntr (uptr, &rbc); uptr 1529 src/simh/sim_tape.c sim_tape_rdlntf (uptr, &rbc); uptr 1535 src/simh/sim_tape.c st = sim_tape_sprecsf (uptr, 0x1ffffff, &filerecsskipped);/* spc recs */ uptr 1544 src/simh/sim_tape.c sim_tape_spfilebyrecr (uptr, 1, &filefileskipped, &filerecsskipped); uptr 1556 src/simh/sim_tape.c t_stat sim_tape_spfilebyrecf_a (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, t_bool check_leot, TAPE_PCALLBACK callback) uptr 1559 src/simh/sim_tape.c r = sim_tape_spfilebyrecf (uptr, count, skipped, recsskipped, check_leot); uptr 1582 src/simh/sim_tape.c t_stat sim_tape_spfilef (UNIT *uptr, uint32 count, uint32 *skipped) uptr 1584 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1589 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_spfilef(unit=%d, count=%d)\n", (int)(uptr-ctx->dptr->units), count); uptr 1591 src/simh/sim_tape.c return sim_tape_spfilebyrecf (uptr, count, skipped, &totalrecsskipped, FALSE); uptr 1594 src/simh/sim_tape.c t_stat sim_tape_spfilef_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback) uptr 1597 src/simh/sim_tape.c r = sim_tape_spfilef (uptr, count, skipped); uptr 1622 src/simh/sim_tape.c t_stat sim_tape_spfilebyrecr (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped) uptr 1624 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1632 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_spfilebyrecr(unit=%d, count=%d)\n", (int)(uptr-ctx->dptr->units), count); uptr 1636 src/simh/sim_tape.c st = sim_tape_sprecsr (uptr, 0x1ffffff, &filerecsskipped);/* spc recs rev */ uptr 1649 src/simh/sim_tape.c t_stat sim_tape_spfilebyrecr_a (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, TAPE_PCALLBACK callback) uptr 1652 src/simh/sim_tape.c r = sim_tape_spfilebyrecr (uptr, count, skipped, recsskipped); uptr 1676 src/simh/sim_tape.c t_stat sim_tape_spfiler (UNIT *uptr, uint32 count, uint32 *skipped) uptr 1678 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1683 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_spfiler(unit=%d, count=%d)\n", (int)(uptr-ctx->dptr->units), count); uptr 1685 src/simh/sim_tape.c return sim_tape_spfilebyrecr (uptr, count, skipped, &totalrecsskipped); uptr 1688 src/simh/sim_tape.c t_stat sim_tape_spfiler_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback) uptr 1691 src/simh/sim_tape.c r = sim_tape_spfiler (uptr, count, skipped); uptr 1697 src/simh/sim_tape.c t_stat sim_tape_rewind (UNIT *uptr) uptr 1699 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1701 src/simh/sim_tape.c if (uptr->flags & UNIT_ATT) { uptr 1704 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_rewind(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1706 src/simh/sim_tape.c uptr->pos = 0; uptr 1707 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 1711 src/simh/sim_tape.c t_stat sim_tape_rewind_a (UNIT *uptr, TAPE_PCALLBACK callback) uptr 1714 src/simh/sim_tape.c r = sim_tape_rewind (uptr); uptr 1720 src/simh/sim_tape.c t_stat sim_tape_position (UNIT *uptr, uint32 flags, uint32 recs, uint32 *recsskipped, uint32 files, uint32 *filesskipped, uint32 *objectsskipped) uptr 1722 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1727 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_position(unit=%d, flags=0x%X, recs=%d, files=%d)\n", (int)(uptr-ctx->dptr->units), flags, recs, files); uptr 1731 src/simh/sim_tape.c r = sim_tape_rewind (uptr); uptr 1741 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, objsremaining, &skipped); uptr 1743 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, objsremaining, &skipped); uptr 1756 src/simh/sim_tape.c r = sim_tape_spfilebyrecr (uptr, files, filesskipped, &fileskiprecs); uptr 1758 src/simh/sim_tape.c r = sim_tape_spfilebyrecf (uptr, files, filesskipped, &fileskiprecs, (flags & MTPOS_M_DLE)); uptr 1762 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, recs, recsskipped); uptr 1764 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, recs, recsskipped); uptr 1772 src/simh/sim_tape.c t_stat sim_tape_position_a (UNIT *uptr, uint32 flags, uint32 recs, uint32 *recsskipped, uint32 files, uint32 *filesskipped, uint32 *objectsskipped, TAPE_PCALLBACK callback) uptr 1775 src/simh/sim_tape.c r = sim_tape_position (uptr, flags, recs, recsskipped, files, filesskipped, objectsskipped); uptr 1781 src/simh/sim_tape.c t_stat sim_tape_reset (UNIT *uptr) uptr 1783 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1785 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 1786 src/simh/sim_tape.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 1791 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_reset(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1793 src/simh/sim_tape.c _sim_tape_io_flush(uptr); uptr 1799 src/simh/sim_tape.c t_bool sim_tape_bot (UNIT *uptr) uptr 1801 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 1803 src/simh/sim_tape.c return (uptr->pos <= fmts[f].bot)? TRUE: FALSE; uptr 1808 src/simh/sim_tape.c t_bool sim_tape_eot (UNIT *uptr) uptr 1810 src/simh/sim_tape.c return (uptr->capac && (uptr->pos >= uptr->capac))? TRUE: FALSE; uptr 1815 src/simh/sim_tape.c t_bool sim_tape_wrp (UNIT *uptr) uptr 1817 src/simh/sim_tape.c return ((uptr->flags & MTUF_WRP) || (MT_GET_FMT (uptr) == MTUF_F_TPC))? TRUE: FALSE; uptr 1822 src/simh/sim_tape.c static t_stat sim_tape_ioerr (UNIT *uptr) uptr 1824 src/simh/sim_tape.c sim_printf ("%s: Magtape library I/O error: %s\n", sim_uname (uptr), strerror (errno)); uptr 1825 src/simh/sim_tape.c clearerr (uptr->fileref); uptr 1831 src/simh/sim_tape.c t_stat sim_tape_set_fmt (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 1835 src/simh/sim_tape.c if (uptr == NULL) uptr 1837 src/simh/sim_tape.c if (uptr->flags & UNIT_ATT) uptr 1843 src/simh/sim_tape.c uptr->flags = (uptr->flags & ~MTUF_FMT) | uptr 1853 src/simh/sim_tape.c t_stat sim_tape_show_fmt (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 1855 src/simh/sim_tape.c int32 f = MT_GET_FMT (uptr); uptr 1865 src/simh/sim_tape.c static uint32 sim_tape_tpc_map (UNIT *uptr, t_addr *map, uint32 mapsize) uptr 1875 src/simh/sim_tape.c DEVICE *dptr = find_dev_from_unit (uptr); uptr 1877 src/simh/sim_tape.c if ((uptr == NULL) || (uptr->fileref == NULL)) uptr 1905 src/simh/sim_tape.c tape_size = (t_addr)sim_fsize (uptr->fileref); uptr 1908 src/simh/sim_tape.c sim_fseek (uptr->fileref, tpos, SEEK_SET); uptr 1909 src/simh/sim_tape.c i = sim_fread (&bc, sizeof (t_tpclnt), 1, uptr->fileref); uptr 1920 src/simh/sim_tape.c (void)sim_fread (recbuf, 1, bc, uptr->fileref); uptr 1921 src/simh/sim_tape.c sim_data_trace(dptr, uptr, ((dptr->dctrl & MTSE_DBG_DAT) ? recbuf : NULL), "", bc, "Data Record", MTSE_DBG_STR); uptr 1975 src/simh/sim_tape.c static t_stat sim_tape_simh_check (UNIT *uptr) uptr 1982 src/simh/sim_tape.c static t_stat sim_tape_e11_check (UNIT *uptr) uptr 1989 src/simh/sim_tape.c static t_addr sim_tape_tpc_fnd (UNIT *uptr, t_addr *map) uptr 1996 src/simh/sim_tape.c hi = uptr->hwmark - 1; uptr 1999 src/simh/sim_tape.c if (uptr->pos == map[p]) uptr 2001 src/simh/sim_tape.c else if (uptr->pos < map[p]) uptr 2011 src/simh/sim_tape.c t_stat sim_tape_set_capac (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 2018 src/simh/sim_tape.c if (uptr->flags & UNIT_ATT) uptr 2023 src/simh/sim_tape.c uptr->capac = cap * ((t_addr) 1000000); uptr 2029 src/simh/sim_tape.c t_stat sim_tape_show_capac (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 2031 src/simh/sim_tape.c if (uptr->capac) { uptr 2032 src/simh/sim_tape.c if (uptr->capac >= (t_addr) 1000000) uptr 2033 src/simh/sim_tape.c fprintf (st, "capacity : %luMB", (unsigned long)(uptr->capac / ((t_addr) 1000000))); uptr 2035 src/simh/sim_tape.c if (uptr->capac >= (t_addr) 1000) uptr 2036 src/simh/sim_tape.c fprintf (st, "capacity : %luKB", (unsigned long)(uptr->capac / ((t_addr) 1000))); uptr 2038 src/simh/sim_tape.c fprintf (st, "capacity : %luB", (unsigned long)uptr->capac); uptr 2065 src/simh/sim_tape.c t_stat sim_tape_set_dens (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 2070 src/simh/sim_tape.c if (uptr == NULL) /* if the unit pointer is null */ uptr 2075 src/simh/sim_tape.c uptr->dynflags = (uptr->dynflags & ~MTVF_DENS_MASK) /* then insert the code */ uptr 2092 src/simh/sim_tape.c uptr->dynflags = (uptr->dynflags & ~MTVF_DENS_MASK) /* then store the index of the value */ uptr 2105 src/simh/sim_tape.c t_stat sim_tape_show_dens (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 2109 src/simh/sim_tape.c if (uptr == NULL) /* if the unit pointer is null */ uptr 2113 src/simh/sim_tape.c tape_density = bpi [MT_DENS (uptr->dynflags)]; /* of the tape from the unit flags */ uptr 156 src/simh/sim_tape.h t_stat sim_tape_attach_ex (UNIT *uptr, const char *cptr, uint32 dbit, int completion_delay); uptr 157 src/simh/sim_tape.h t_stat sim_tape_attach (UNIT *uptr, CONST char *cptr); uptr 158 src/simh/sim_tape.h t_stat sim_tape_detach (UNIT *uptr); uptr 159 src/simh/sim_tape.h t_stat sim_tape_attach_help(FILE *st, DEVICE *dptr, const UNIT *uptr, int32 flag, const char *cptr); uptr 160 src/simh/sim_tape.h t_stat sim_tape_rdrecf (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max); uptr 161 src/simh/sim_tape.h t_stat sim_tape_rdrecf_a (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max, TAPE_PCALLBACK callback); uptr 162 src/simh/sim_tape.h t_stat sim_tape_rdrecr (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max); uptr 163 src/simh/sim_tape.h t_stat sim_tape_rdrecr_a (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max, TAPE_PCALLBACK callback); uptr 164 src/simh/sim_tape.h t_stat sim_tape_wrrecf (UNIT *uptr, uint8 *buf, t_mtrlnt bc); uptr 165 src/simh/sim_tape.h t_stat sim_tape_wrrecf_a (UNIT *uptr, uint8 *buf, t_mtrlnt bc, TAPE_PCALLBACK callback); uptr 166 src/simh/sim_tape.h t_stat sim_tape_wrtmk (UNIT *uptr); uptr 167 src/simh/sim_tape.h t_stat sim_tape_wrtmk_a (UNIT *uptr, TAPE_PCALLBACK callback); uptr 168 src/simh/sim_tape.h t_stat sim_tape_wreom (UNIT *uptr); uptr 169 src/simh/sim_tape.h t_stat sim_tape_wreom_a (UNIT *uptr, TAPE_PCALLBACK callback); uptr 170 src/simh/sim_tape.h t_stat sim_tape_wreomrw (UNIT *uptr); uptr 171 src/simh/sim_tape.h t_stat sim_tape_wreomrw_a (UNIT *uptr, TAPE_PCALLBACK callback); uptr 172 src/simh/sim_tape.h t_stat sim_tape_wrgap (UNIT *uptr, uint32 gaplen); uptr 173 src/simh/sim_tape.h t_stat sim_tape_wrgap_a (UNIT *uptr, uint32 gaplen, TAPE_PCALLBACK callback); uptr 174 src/simh/sim_tape.h t_stat sim_tape_sprecf (UNIT *uptr, t_mtrlnt *bc); uptr 175 src/simh/sim_tape.h t_stat sim_tape_sprecf_a (UNIT *uptr, t_mtrlnt *bc, TAPE_PCALLBACK callback); uptr 176 src/simh/sim_tape.h t_stat sim_tape_sprecsf (UNIT *uptr, uint32 count, uint32 *skipped); uptr 177 src/simh/sim_tape.h t_stat sim_tape_sprecsf_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback); uptr 178 src/simh/sim_tape.h t_stat sim_tape_spfilef (UNIT *uptr, uint32 count, uint32 *skipped); uptr 179 src/simh/sim_tape.h t_stat sim_tape_spfilef_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback); uptr 180 src/simh/sim_tape.h t_stat sim_tape_spfilebyrecf (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, t_bool check_leot); uptr 181 src/simh/sim_tape.h t_stat sim_tape_spfilebyrecf_a (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, t_bool check_leot, TAPE_PCALLBACK callback); uptr 182 src/simh/sim_tape.h t_stat sim_tape_sprecr (UNIT *uptr, t_mtrlnt *bc); uptr 183 src/simh/sim_tape.h t_stat sim_tape_sprecr_a (UNIT *uptr, t_mtrlnt *bc, TAPE_PCALLBACK callback); uptr 184 src/simh/sim_tape.h t_stat sim_tape_sprecsr (UNIT *uptr, uint32 count, uint32 *skipped); uptr 185 src/simh/sim_tape.h t_stat sim_tape_sprecsr_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback); uptr 186 src/simh/sim_tape.h t_stat sim_tape_spfiler (UNIT *uptr, uint32 count, uint32 *skipped); uptr 187 src/simh/sim_tape.h t_stat sim_tape_spfiler_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback); uptr 188 src/simh/sim_tape.h t_stat sim_tape_spfilebyrecr (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped); uptr 189 src/simh/sim_tape.h t_stat sim_tape_spfilebyrecr_a (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, TAPE_PCALLBACK callback); uptr 190 src/simh/sim_tape.h t_stat sim_tape_rewind (UNIT *uptr); uptr 191 src/simh/sim_tape.h t_stat sim_tape_rewind_a (UNIT *uptr, TAPE_PCALLBACK callback); uptr 192 src/simh/sim_tape.h t_stat sim_tape_position (UNIT *uptr, uint32 flags, uint32 recs, uint32 *recskipped, uint32 files, uint32 *fileskipped, uint32 *objectsskipped); uptr 193 src/simh/sim_tape.h t_stat sim_tape_position_a (UNIT *uptr, uint32 flags, uint32 recs, uint32 *recsskipped, uint32 files, uint32 *filesskipped, uint32 *objectsskipped, TAPE_PCALLBACK callback); uptr 194 src/simh/sim_tape.h t_stat sim_tape_reset (UNIT *uptr); uptr 195 src/simh/sim_tape.h t_bool sim_tape_bot (UNIT *uptr); uptr 196 src/simh/sim_tape.h t_bool sim_tape_wrp (UNIT *uptr); uptr 197 src/simh/sim_tape.h t_bool sim_tape_eot (UNIT *uptr); uptr 198 src/simh/sim_tape.h t_stat sim_tape_set_fmt (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 199 src/simh/sim_tape.h t_stat sim_tape_show_fmt (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 200 src/simh/sim_tape.h t_stat sim_tape_set_capac (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 201 src/simh/sim_tape.h t_stat sim_tape_show_capac (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 202 src/simh/sim_tape.h t_stat sim_tape_set_dens (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 203 src/simh/sim_tape.h t_stat sim_tape_show_dens (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 299 src/simh/sim_timer.c static void _sim_coschedule_cancel(UNIT *uptr); uptr 339 src/simh/sim_timer.c t_stat sim_throt_svc (UNIT *uptr); uptr 340 src/simh/sim_timer.c t_stat sim_timer_tick_svc (UNIT *uptr); uptr 373 src/simh/sim_timer.c int32 sim_rtcn_init_unit (UNIT *uptr, int32 time, int32 tmr) uptr 390 src/simh/sim_timer.c if (!uptr) uptr 391 src/simh/sim_timer.c uptr = sim_clock_unit[tmr]; uptr 392 src/simh/sim_timer.c sim_debug (DBG_CAL, &sim_timer_dev, "_sim_rtcn_init_unit(unit=%s, time=%d, tmr=%d)\n", sim_uname(uptr), time, tmr); uptr 393 src/simh/sim_timer.c if (uptr) { uptr 395 src/simh/sim_timer.c sim_register_clock_unit_tmr (uptr, tmr); uptr 482 src/simh/sim_timer.c t_stat sim_show_timers (FILE* st, DEVICE *dptr, UNIT* uptr, int32 val, CONST char* desc) uptr 567 src/simh/sim_timer.c t_stat sim_show_clock_queues (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 580 src/simh/sim_timer.c for (uptr = sim_clock_cosched_queue[tmr]; uptr != QUEUE_LIST_END; uptr = uptr->next) { //-V763 uptr 581 src/simh/sim_timer.c if ((dptr = find_dev_from_unit (uptr)) != NULL) { //-V763 uptr 584 src/simh/sim_timer.c fprintf (st, " unit %d", (int32) (uptr - dptr->units)); uptr 591 src/simh/sim_timer.c accum = accum + uptr->time; uptr 604 src/simh/sim_timer.c t_stat sim_timer_clr_catchup (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 611 src/simh/sim_timer.c t_stat sim_timer_set_catchup (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 618 src/simh/sim_timer.c t_stat sim_timer_show_catchup (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 639 src/simh/sim_timer.c t_stat sim_timer_tick_svc (UNIT *uptr) uptr 641 src/simh/sim_timer.c int tmr = (int)(uptr-sim_timer_units); uptr 692 src/simh/sim_timer.c sim_timer_activate_after (uptr, 1000000/rtc_hz[tmr]); uptr 761 src/simh/sim_timer.c static t_stat sim_timer_clock_tick_svc (UNIT *uptr) uptr 764 src/simh/sim_timer.c sim_activate_after (uptr, 1000000/sim_int_clk_tps); /* reactivate unit */ uptr 801 src/simh/sim_timer.c UNIT *uptr = sim_clock_cosched_queue[SIM_NTIMERS]; uptr 802 src/simh/sim_timer.c _sim_coschedule_cancel (uptr); uptr 803 src/simh/sim_timer.c _sim_activate (uptr, 1); uptr 878 src/simh/sim_timer.c t_stat sim_timer_activate (UNIT *uptr, int32 interval) uptr 880 src/simh/sim_timer.c return sim_timer_activate_after (uptr, (uint32)((interval * 1000000.0) / sim_timer_inst_per_sec ())); uptr 883 src/simh/sim_timer.c t_stat sim_timer_activate_after (UNIT *uptr, uint32 usec_delay) uptr 890 src/simh/sim_timer.c if (sim_clock_unit[tmr] == uptr) { uptr 891 src/simh/sim_timer.c uptr = &sim_timer_units[tmr]; uptr 894 src/simh/sim_timer.c if (sim_is_active (uptr)) /* already active? */ uptr 906 src/simh/sim_timer.c sim_uname(uptr), inst_delay, usec_delay); uptr 907 src/simh/sim_timer.c return _sim_activate (uptr, inst_delay); /* queue it now */ uptr 910 src/simh/sim_timer.c t_stat sim_register_clock_unit_tmr (UNIT *uptr, int32 tmr) uptr 918 src/simh/sim_timer.c if (NULL == uptr) { /* deregistering? */ uptr 920 src/simh/sim_timer.c UNIT *uptr = sim_clock_cosched_queue[tmr]; uptr 922 src/simh/sim_timer.c _sim_coschedule_cancel (uptr); uptr 923 src/simh/sim_timer.c _sim_activate (uptr, 1); uptr 930 src/simh/sim_timer.c sim_clock_unit[tmr] = uptr; uptr 931 src/simh/sim_timer.c uptr->dynflags |= UNIT_TMR_UNIT; uptr 937 src/simh/sim_timer.c static void _sim_coschedule_cancel (UNIT *uptr) uptr 939 src/simh/sim_timer.c if (uptr->next) { /* On a queue? */ uptr 943 src/simh/sim_timer.c if (uptr == sim_clock_cosched_queue[tmr]) { uptr 944 src/simh/sim_timer.c sim_clock_cosched_queue[tmr] = uptr->next; uptr 945 src/simh/sim_timer.c uptr->next = NULL; uptr 952 src/simh/sim_timer.c if (cptr->next == (uptr)) { uptr 953 src/simh/sim_timer.c cptr->next = (uptr)->next; uptr 954 src/simh/sim_timer.c uptr->next = NULL; uptr 958 src/simh/sim_timer.c if (uptr->next == NULL) { /* found? */ uptr 959 src/simh/sim_timer.c uptr->cancel = NULL; uptr 960 src/simh/sim_timer.c sim_debug (SIM_DBG_EVENT, &sim_timer_dev, "Canceled Clock Coscheduled Event for %s\n", sim_uname(uptr)); uptr 63 src/simh/sim_timer.h int32 sim_rtcn_init_unit (UNIT *uptr, int32 time, int32 tmr); uptr 67 src/simh/sim_timer.h t_stat sim_show_timers (FILE* st, DEVICE *dptr, UNIT* uptr, int32 val, CONST char* desc); uptr 68 src/simh/sim_timer.h t_stat sim_show_clock_queues (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 76 src/simh/sim_timer.h t_stat sim_timer_activate (UNIT *uptr, int32 interval); uptr 77 src/simh/sim_timer.h t_stat sim_timer_activate_after (UNIT *uptr, uint32 usec_delay); uptr 78 src/simh/sim_timer.h int32 sim_timer_activate_time (UNIT *uptr); uptr 79 src/simh/sim_timer.h t_stat sim_register_clock_unit_tmr (UNIT *uptr, int32 tmr); uptr 573 src/simh/sim_tmxr.c static TMLN *tmxr_find_ldsc (UNIT *uptr, int32 val, const TMXR *mp) uptr 577 src/simh/sim_tmxr.c if (uptr) { /* called from SET? */ uptr 578 src/simh/sim_tmxr.c DEVICE *dptr = find_dev_from_unit (uptr); /* find device */ uptr 581 src/simh/sim_tmxr.c val = (int32) (uptr - dptr->units); /* implicit line # */ uptr 604 src/simh/sim_tmxr.c static TMLN *tmxr_get_ldsc (UNIT *uptr, const char *cptr, TMXR *mp, t_stat *status) uptr 613 src/simh/sim_tmxr.c else if (uptr) { /* implied line form? */ uptr 614 src/simh/sim_tmxr.c lp = tmxr_find_ldsc (uptr, mp->lines, mp); /* determine line from unit */ uptr 817 src/simh/sim_tmxr.c UNIT *uptr = mp->uptr; uptr 819 src/simh/sim_tmxr.c if (!uptr) /* Attached ? */ uptr 825 src/simh/sim_tmxr.c if (!(uptr->dynflags & TMUF_NOASYNCH)) { /* if asynch not disabled */ uptr 826 src/simh/sim_tmxr.c uptr->dynflags |= UNIT_TM_POLL; /* tag as polling unit */ uptr 827 src/simh/sim_tmxr.c sim_cancel (uptr); uptr 830 src/simh/sim_tmxr.c uptr = mp->ldsc[i].uptr ? mp->ldsc[i].uptr : mp->uptr; uptr 832 src/simh/sim_tmxr.c if (!(mp->uptr->dynflags & TMUF_NOASYNCH)) { /* if asynch not disabled */ uptr 833 src/simh/sim_tmxr.c uptr->dynflags |= UNIT_TM_POLL; /* tag as polling unit */ uptr 834 src/simh/sim_tmxr.c sim_cancel (uptr); uptr 2075 src/simh/sim_tmxr.c UNIT *uptr = NULL; uptr 2079 src/simh/sim_tmxr.c if (lp->uptr) uptr 2080 src/simh/sim_tmxr.c uptr = lp->uptr; uptr 2082 src/simh/sim_tmxr.c uptr = lp->mp->uptr; uptr 2084 src/simh/sim_tmxr.c if (uptr && uptr->filename) { uptr 2086 src/simh/sim_tmxr.c uptr->filename = tmxr_mux_attach_string (uptr->filename, lp->mp); uptr 2088 src/simh/sim_tmxr.c if (uptr->filename == NULL) uptr 2089 src/simh/sim_tmxr.c tmxr_detach (lp->mp, uptr); uptr 2142 src/simh/sim_tmxr.c UNIT *uptr; uptr 2161 src/simh/sim_tmxr.c uptr = lp->uptr; uptr 2162 src/simh/sim_tmxr.c if ((!uptr) && (lp->mp)) uptr 2163 src/simh/sim_tmxr.c uptr = lp->mp->uptr; uptr 2164 src/simh/sim_tmxr.c if (uptr) uptr 2165 src/simh/sim_tmxr.c uptr->wait = lp->rxdelta; uptr 2858 src/simh/sim_tmxr.c mp->ldsc[line].uptr = uptr_poll; uptr 2993 src/simh/sim_tmxr.c t_stat tmxr_attach_ex (TMXR *mp, UNIT *uptr, CONST char *cptr, t_bool async) uptr 3001 src/simh/sim_tmxr.c mp->uptr = uptr; /* save unit for polling */ uptr 3002 src/simh/sim_tmxr.c uptr->filename = tmxr_mux_attach_string (uptr->filename, mp);/* save */ uptr 3003 src/simh/sim_tmxr.c uptr->flags = uptr->flags | UNIT_ATT; /* no more errors */ uptr 3004 src/simh/sim_tmxr.c uptr->tmxr = (void *)mp; uptr 3009 src/simh/sim_tmxr.c uptr->dynflags = uptr->dynflags | UNIT_ATTMULT; /* allow multiple attach commands */ uptr 3011 src/simh/sim_tmxr.c uptr->dynflags |= TMUF_NOASYNCH; /* tag as no asynch */ uptr 3014 src/simh/sim_tmxr.c mp->dptr = find_dev_from_unit (uptr); /* no, so set device now */ uptr 3040 src/simh/sim_tmxr.c t_stat tmxr_show_open_devices (FILE* st, DEVICE *dptr, UNIT* uptr, int32 val, CONST char* desc) uptr 3093 src/simh/sim_tmxr.c if (lp->uptr && (lp->uptr != lp->mp->uptr)) uptr 3094 src/simh/sim_tmxr.c fprintf (st, " - Unit: %s", sim_uname (lp->uptr)); uptr 3191 src/simh/sim_tmxr.c t_stat tmxr_detach (TMXR *mp, UNIT *uptr) uptr 3195 src/simh/sim_tmxr.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 3198 src/simh/sim_tmxr.c FREE (uptr->filename); /* free setup string */ uptr 3199 src/simh/sim_tmxr.c uptr->filename = NULL; uptr 3200 src/simh/sim_tmxr.c uptr->tmxr = NULL; uptr 3203 src/simh/sim_tmxr.c UNIT *uptr = mp->ldsc[i].uptr ? mp->ldsc[i].uptr : mp->uptr; uptr 3204 src/simh/sim_tmxr.c UNIT *o_uptr = mp->ldsc[i].o_uptr ? mp->ldsc[i].o_uptr : mp->uptr; uptr 3206 src/simh/sim_tmxr.c uptr->dynflags &= ~UNIT_TM_POLL; /* no polling */ uptr 3209 src/simh/sim_tmxr.c uptr->flags &= ~(UNIT_ATT); /* not attached */ uptr 3210 src/simh/sim_tmxr.c uptr->dynflags &= ~(UNIT_TM_POLL|TMUF_NOASYNCH); /* no polling, not asynch disabled */ uptr 3214 src/simh/sim_tmxr.c t_stat tmxr_activate (UNIT *uptr, int32 interval) uptr 3216 src/simh/sim_tmxr.c if (uptr->dynflags & UNIT_TMR_UNIT) uptr 3217 src/simh/sim_tmxr.c return sim_timer_activate (uptr, interval); uptr 3218 src/simh/sim_tmxr.c return _sim_activate (uptr, interval); uptr 3221 src/simh/sim_tmxr.c t_stat tmxr_activate_after (UNIT *uptr, uint32 usecs_walltime) uptr 3223 src/simh/sim_tmxr.c return _sim_activate_after (uptr, usecs_walltime); uptr 3228 src/simh/sim_tmxr.c t_stat tmxr_attach_help(FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr) uptr 3429 src/simh/sim_tmxr.c t_stat tmxr_ex (t_value *vptr, t_addr addr, UNIT *uptr, int32 sw) uptr 3434 src/simh/sim_tmxr.c t_stat tmxr_dep (t_value val, t_addr addr, UNIT *uptr, int32 sw) uptr 3656 src/simh/sim_tmxr.c t_stat tmxr_dscln (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 3663 src/simh/sim_tmxr.c uptr = NULL; /* indicate to get routine */ uptr 3665 src/simh/sim_tmxr.c lp = tmxr_get_ldsc (uptr, cptr, mp, &status); /* get referenced line */ uptr 3682 src/simh/sim_tmxr.c t_stat tmxr_set_log (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 3690 src/simh/sim_tmxr.c lp = tmxr_find_ldsc (uptr, val, mp); /* find line desc */ uptr 3708 src/simh/sim_tmxr.c if (mp->uptr) /* attached?, then update attach string */ uptr 3709 src/simh/sim_tmxr.c lp->mp->uptr->filename = tmxr_mux_attach_string (lp->mp->uptr->filename, lp->mp); uptr 3715 src/simh/sim_tmxr.c t_stat tmxr_set_nolog (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 3722 src/simh/sim_tmxr.c lp = tmxr_find_ldsc (uptr, val, mp); /* find line desc */ uptr 3731 src/simh/sim_tmxr.c if (mp->uptr) uptr 3732 src/simh/sim_tmxr.c lp->mp->uptr->filename = tmxr_mux_attach_string (lp->mp->uptr->filename, lp->mp); uptr 3738 src/simh/sim_tmxr.c t_stat tmxr_show_log (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 3743 src/simh/sim_tmxr.c lp = tmxr_find_ldsc (uptr, val, mp); /* find line desc */ uptr 3780 src/simh/sim_tmxr.c t_stat tmxr_set_lnorder (UNIT *uptr, int32 val, CONST char *carg, void *desc) uptr 3881 src/simh/sim_tmxr.c t_stat tmxr_show_lnorder (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 3933 src/simh/sim_tmxr.c t_stat tmxr_show_summ (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 3953 src/simh/sim_tmxr.c t_stat tmxr_show_cstat (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 3981 src/simh/sim_tmxr.c t_stat tmxr_show_lines (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 187 src/simh/sim_tmxr.h UNIT *uptr; /* input polling unit (default to mp->uptr) */ uptr 201 src/simh/sim_tmxr.h UNIT *uptr; /* polling unit (connection) */ uptr 232 src/simh/sim_tmxr.h t_stat tmxr_attach_ex (TMXR *mp, UNIT *uptr, CONST char *cptr, t_bool async); uptr 233 src/simh/sim_tmxr.h t_stat tmxr_detach (TMXR *mp, UNIT *uptr); uptr 234 src/simh/sim_tmxr.h t_stat tmxr_attach_help(FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr); uptr 244 src/simh/sim_tmxr.h t_stat tmxr_ex (t_value *vptr, t_addr addr, UNIT *uptr, int32 sw); uptr 245 src/simh/sim_tmxr.h t_stat tmxr_dep (t_value val, t_addr addr, UNIT *uptr, int32 sw); uptr 252 src/simh/sim_tmxr.h t_stat tmxr_set_log (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 253 src/simh/sim_tmxr.h t_stat tmxr_set_nolog (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 254 src/simh/sim_tmxr.h t_stat tmxr_show_log (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 255 src/simh/sim_tmxr.h t_stat tmxr_dscln (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 260 src/simh/sim_tmxr.h t_stat tmxr_set_lnorder (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 261 src/simh/sim_tmxr.h t_stat tmxr_show_lnorder (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 262 src/simh/sim_tmxr.h t_stat tmxr_show_summ (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 263 src/simh/sim_tmxr.h t_stat tmxr_show_cstat (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 264 src/simh/sim_tmxr.h t_stat tmxr_show_lines (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 265 src/simh/sim_tmxr.h t_stat tmxr_show_open_devices (FILE* st, DEVICE *dptr, UNIT* uptr, int32 val, CONST char* desc); uptr 266 src/simh/sim_tmxr.h t_stat tmxr_activate (UNIT *uptr, int32 interval); uptr 267 src/simh/sim_tmxr.h t_stat tmxr_activate_after (UNIT *uptr, uint32 usecs_walltime); uptr 284 src/simh/sim_tmxr.h # define tmxr_attach(mp, uptr, cptr) tmxr_attach_ex(mp, uptr, cptr, FALSE)