uptr 62 src/dps8/dps8_absi.c # define ABSI_UNIT_IDX(uptr) ((uptr) - absi_unit) uptr 75 src/dps8/dps8_absi.c static t_stat absi_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 82 src/dps8/dps8_absi.c static t_stat absi_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 94 src/dps8/dps8_absi.c static t_stat absi_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 97 src/dps8/dps8_absi.c int n = (int) ABSI_UNIT_IDX (uptr); uptr 107 src/dps8/dps8_absi.c static t_stat absi_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 110 src/dps8/dps8_absi.c int n = (int) ABSI_UNIT_IDX (uptr); uptr 161 src/dps8/dps8_absi.c static t_stat absiAttach (UNIT * uptr, const char * cptr) uptr 165 src/dps8/dps8_absi.c int unitno = (int) (uptr - absi_unit); uptr 174 src/dps8/dps8_absi.c if ((uptr->flags & UNIT_ATT) != 0) uptr 175 src/dps8/dps8_absi.c detach_unit (uptr); uptr 193 src/dps8/dps8_absi.c uptr->flags |= UNIT_ATT; uptr 194 src/dps8/dps8_absi.c uptr->filename = pfn; uptr 199 src/dps8/dps8_absi.c static t_stat absiDetach (UNIT * uptr) uptr 201 src/dps8/dps8_absi.c int unitno = (int) (uptr - absi_unit); uptr 203 src/dps8/dps8_absi.c if ((uptr->flags & UNIT_ATT) == 0) uptr 212 src/dps8/dps8_absi.c uptr->flags &= ~ (unsigned int) UNIT_ATT; uptr 213 src/dps8/dps8_absi.c FREE (uptr->filename); uptr 81 src/dps8/dps8_console.c static t_stat opc_show_nunits (FILE *st, UNIT *uptr, int val, uptr 83 src/dps8/dps8_console.c static t_stat opc_set_nunits (UNIT * uptr, int32 value, const char * cptr, uptr 85 src/dps8/dps8_console.c static t_stat opc_autoinput_set (UNIT *uptr, int32 val, const char *cptr, uptr 87 src/dps8/dps8_console.c static t_stat opc_autoinput_show (FILE *st, UNIT *uptr, int val, uptr 89 src/dps8/dps8_console.c static t_stat opc_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 91 src/dps8/dps8_console.c static t_stat opc_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 93 src/dps8/dps8_console.c static t_stat opc_set_console_port (UNIT * uptr, UNUSED int32 value, uptr 95 src/dps8/dps8_console.c static t_stat opc_show_console_port (UNUSED FILE * st, UNIT * uptr, uptr 97 src/dps8/dps8_console.c static t_stat opc_set_console_address (UNIT * uptr, UNUSED int32 value, uptr 99 src/dps8/dps8_console.c static t_stat opc_show_console_address (UNUSED FILE * st, UNIT * uptr, uptr 101 src/dps8/dps8_console.c static t_stat opc_set_console_pw (UNIT * uptr, UNUSED int32 value, uptr 103 src/dps8/dps8_console.c static t_stat opc_show_console_pw (UNUSED FILE * st, UNIT * uptr, uptr 105 src/dps8/dps8_console.c static t_stat opc_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 107 src/dps8/dps8_console.c static t_stat opc_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 209 src/dps8/dps8_console.c #define OPC_UNIT_IDX(uptr) ((uptr) - opc_unit) uptr 472 src/dps8/dps8_console.c static int opc_autoinput_set (UNIT * uptr, UNUSED int32 val, uptr 475 src/dps8/dps8_console.c int devUnitIdx = (int) OPC_UNIT_IDX (uptr); uptr 558 src/dps8/dps8_console.c static int opc_autoinput_show (UNUSED FILE * st, UNIT * uptr, uptr 561 src/dps8/dps8_console.c int conUnitIdx = (int) OPC_UNIT_IDX (uptr); uptr 570 src/dps8/dps8_console.c static t_stat console_attn (UNUSED UNIT * uptr); uptr 589 src/dps8/dps8_console.c static t_stat console_attn (UNUSED UNIT * uptr) uptr 591 src/dps8/dps8_console.c uint con_unit_idx = (uint) (uptr - attn_unit); uptr 1662 src/dps8/dps8_console.c static t_stat opc_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1669 src/dps8/dps8_console.c static t_stat opc_set_nunits (UNUSED UNIT * uptr, int32 UNUSED value, uptr 1707 src/dps8/dps8_console.c static t_stat opc_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1710 src/dps8/dps8_console.c int devUnitIdx = (int) OPC_UNIT_IDX (uptr); uptr 1763 src/dps8/dps8_console.c static t_stat opc_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1766 src/dps8/dps8_console.c int devUnitIdx = (int) OPC_UNIT_IDX (uptr); uptr 1775 src/dps8/dps8_console.c static t_stat opc_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1778 src/dps8/dps8_console.c int n = (int) OPC_UNIT_IDX (uptr); uptr 1785 src/dps8/dps8_console.c static t_stat opc_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 1788 src/dps8/dps8_console.c int n = (int) OPC_UNIT_IDX (uptr); uptr 1801 src/dps8/dps8_console.c static t_stat opc_set_console_port (UNIT * uptr, UNUSED int32 value, uptr 1804 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1822 src/dps8/dps8_console.c static t_stat opc_show_console_port (UNUSED FILE * st, UNIT * uptr, uptr 1825 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1835 src/dps8/dps8_console.c static t_stat opc_set_console_address (UNIT * uptr, UNUSED int32 value, uptr 1838 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1870 src/dps8/dps8_console.c static t_stat opc_show_console_address (UNUSED FILE * st, UNIT * uptr, uptr 1873 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1883 src/dps8/dps8_console.c static t_stat opc_set_console_pw (UNIT * uptr, UNUSED int32 value, uptr 1886 src/dps8/dps8_console.c long dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 1909 src/dps8/dps8_console.c static t_stat opc_show_console_pw (UNUSED FILE * st, UNIT * uptr, uptr 1912 src/dps8/dps8_console.c int dev_idx = (int) OPC_UNIT_IDX (uptr); uptr 100 src/dps8/dps8_cpu.c #define UNIT_IDX(uptr) ((uptr) - cpu_unit) uptr 121 src/dps8/dps8_cpu.c static t_stat simh_cpu_reset_and_clear_unit (UNIT * uptr, uptr 127 src/dps8/dps8_cpu.c static t_stat cpu_show_config (UNUSED FILE * st, UNIT * uptr, uptr 130 src/dps8/dps8_cpu.c long cpu_unit_idx = UNIT_IDX (uptr); uptr 460 src/dps8/dps8_cpu.c static t_stat cpu_set_config (UNIT * uptr, UNUSED int32 value, uptr 463 src/dps8/dps8_cpu.c long cpu_unit_idx = UNIT_IDX (uptr); uptr 703 src/dps8/dps8_cpu.c static t_stat cpu_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 710 src/dps8/dps8_cpu.c static t_stat cpu_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 722 src/dps8/dps8_cpu.c static t_stat cpu_show_kips (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 729 src/dps8/dps8_cpu.c static t_stat cpu_set_kips (UNUSED UNIT * uptr, UNUSED int32 value, uptr 746 src/dps8/dps8_cpu.c static t_stat cpu_show_stall (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 776 src/dps8/dps8_cpu.c static t_stat cpu_set_stall (UNUSED UNIT * uptr, UNUSED int32 value, uptr 821 src/dps8/dps8_cpu.c static t_stat setCPUConfigL68 (UNIT * uptr, UNUSED int32 value, UNUSED const char * cptr, UNUSED void * desc) { uptr 822 src/dps8/dps8_cpu.c long cpuUnitIdx = UNIT_IDX (uptr); uptr 846 src/dps8/dps8_cpu.c static t_stat setCPUConfigDPS8M (UNIT * uptr, UNUSED int32 value, UNUSED const char * cptr, UNUSED void * desc) { uptr 847 src/dps8/dps8_cpu.c long cpuUnitIdx = UNIT_IDX (uptr); uptr 992 src/dps8/dps8_cpu.c static t_stat simh_cpu_reset_and_clear_unit (UNIT * uptr, uptr 997 src/dps8/dps8_cpu.c long cpu_unit_idx = UNIT_IDX (uptr); uptr 1019 src/dps8/dps8_cpu.c static t_stat simh_cpu_reset_unit (UNIT * uptr, uptr 1024 src/dps8/dps8_cpu.c long cpu_unit_idx = UNIT_IDX (uptr); uptr 1602 src/dps8/dps8_cpu.c static t_stat cpu_ex (t_value *vptr, t_addr addr, UNUSED UNIT * uptr, uptr 1616 src/dps8/dps8_cpu.c static t_stat cpu_dep (t_value val, t_addr addr, UNUSED UNIT * uptr, uptr 67 src/dps8/dps8_crdpun.c static t_stat pun_show_nunits (FILE *st, UNIT *uptr, int val, const void *desc); uptr 68 src/dps8/dps8_crdpun.c static t_stat pun_set_nunits (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 69 src/dps8/dps8_crdpun.c static t_stat pun_show_device_name (FILE *st, UNIT *uptr, int val, const void *desc); uptr 70 src/dps8/dps8_crdpun.c static t_stat pun_set_device_name (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 71 src/dps8/dps8_crdpun.c static t_stat pun_show_path (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 73 src/dps8/dps8_crdpun.c static t_stat pun_set_path (UNUSED UNIT * uptr, UNUSED int32 value, const UNUSED char * cptr, uptr 75 src/dps8/dps8_crdpun.c static t_stat pun_set_config (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, uptr 77 src/dps8/dps8_crdpun.c static t_stat pun_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, uptr 102 src/dps8/dps8_crdpun.c #define PUN_UNIT_NUM(uptr) ((uptr) - pun_unit) uptr 1253 src/dps8/dps8_crdpun.c static t_stat pun_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, uptr 1260 src/dps8/dps8_crdpun.c static t_stat pun_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, uptr 1272 src/dps8/dps8_crdpun.c static t_stat pun_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1275 src/dps8/dps8_crdpun.c long n = PUN_UNIT_NUM (uptr); uptr 1282 src/dps8/dps8_crdpun.c static t_stat pun_set_device_name (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1285 src/dps8/dps8_crdpun.c long n = PUN_UNIT_NUM (uptr); uptr 1298 src/dps8/dps8_crdpun.c static t_stat pun_set_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1323 src/dps8/dps8_crdpun.c static t_stat pun_show_path (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1337 src/dps8/dps8_crdpun.c static t_stat pun_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1340 src/dps8/dps8_crdpun.c int devUnitIdx = (int) PUN_UNIT_NUM (uptr); uptr 1373 src/dps8/dps8_crdpun.c static t_stat pun_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1376 src/dps8/dps8_crdpun.c int devUnitIdx = (int) PUN_UNIT_NUM (uptr); uptr 66 src/dps8/dps8_crdrdr.c static t_stat rdr_show_nunits (FILE *st, UNIT *uptr, int val, const void *desc); uptr 67 src/dps8/dps8_crdrdr.c static t_stat rdr_set_nunits (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 68 src/dps8/dps8_crdrdr.c static t_stat rdr_show_device_name (FILE *st, UNIT *uptr, int val, const void *desc); uptr 69 src/dps8/dps8_crdrdr.c static t_stat rdr_set_device_name (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 70 src/dps8/dps8_crdrdr.c static t_stat rdr_show_path (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 72 src/dps8/dps8_crdrdr.c static t_stat rdr_set_path (UNUSED UNIT * uptr, UNUSED int32 value, const UNUSED char * cptr, uptr 97 src/dps8/dps8_crdrdr.c #define RDR_UNIT_NUM(uptr) ((uptr) - rdr_unit) uptr 1019 src/dps8/dps8_crdrdr.c static t_stat rdr_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, uptr 1026 src/dps8/dps8_crdrdr.c static t_stat rdr_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, uptr 1038 src/dps8/dps8_crdrdr.c static t_stat rdr_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1041 src/dps8/dps8_crdrdr.c long n = RDR_UNIT_NUM (uptr); uptr 1048 src/dps8/dps8_crdrdr.c static t_stat rdr_set_device_name (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1051 src/dps8/dps8_crdrdr.c long n = RDR_UNIT_NUM (uptr); uptr 1064 src/dps8/dps8_crdrdr.c static t_stat rdr_set_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1091 src/dps8/dps8_crdrdr.c static t_stat rdr_show_path (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 71 src/dps8/dps8_dia.c #define DIA_UNIT_IDX(uptr) ((uptr) - dia_unit) uptr 80 src/dps8/dps8_dia.c static t_stat set_config (UNIT * uptr, UNUSED int value, const char * cptr, UNUSED void * desc) uptr 82 src/dps8/dps8_dia.c uint dia_unit_idx = (uint) DIA_UNIT_IDX (uptr); uptr 126 src/dps8/dps8_dia.c static t_stat show_config (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 129 src/dps8/dps8_dia.c long unit_idx = DIA_UNIT_IDX (uptr); uptr 146 src/dps8/dps8_dia.c static t_stat show_status (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 149 src/dps8/dps8_dia.c long dia_unit_idx = DIA_UNIT_IDX (uptr); uptr 165 src/dps8/dps8_dia.c static t_stat show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 172 src/dps8/dps8_dia.c static t_stat set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 245 src/dps8/dps8_dia.c static t_stat attach (UNIT * uptr, const char * cptr) uptr 249 src/dps8/dps8_dia.c int unitno = (int) (uptr - dia_unit); uptr 257 src/dps8/dps8_dia.c if ((uptr->flags & UNIT_ATT) != 0) uptr 258 src/dps8/dps8_dia.c detach_unit (uptr); uptr 276 src/dps8/dps8_dia.c uptr->flags |= UNIT_ATT; uptr 277 src/dps8/dps8_dia.c uptr->filename = pfn; uptr 282 src/dps8/dps8_dia.c static t_stat detach (UNIT * uptr) uptr 284 src/dps8/dps8_dia.c int unitno = (int) (uptr - dia_unit); uptr 286 src/dps8/dps8_dia.c if ((uptr->flags & UNIT_ATT) == 0) uptr 295 src/dps8/dps8_dia.c uptr->flags &= ~ (unsigned int) UNIT_ATT; uptr 296 src/dps8/dps8_dia.c FREE (uptr->filename); uptr 297 src/dps8/dps8_dia.c uptr->filename = NULL; uptr 328 src/dps8/dps8_disk.c #define DSK_UNIT_IDX(uptr) ((uptr) - dsk_unit) uptr 342 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 348 src/dps8/dps8_disk.c static t_stat disk_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, UNUSED void * desc) uptr 359 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 361 src/dps8/dps8_disk.c int diskUnitIdx = (int) DSK_UNIT_IDX (uptr); uptr 373 src/dps8/dps8_disk.c static t_stat disk_set_type (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, UNUSED void * desc) uptr 375 src/dps8/dps8_disk.c int diskUnitIdx = (int) DSK_UNIT_IDX (uptr); uptr 409 src/dps8/dps8_disk.c static t_stat dsk_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 412 src/dps8/dps8_disk.c int n = (int) DSK_UNIT_IDX (uptr); uptr 419 src/dps8/dps8_disk.c static t_stat dsk_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 422 src/dps8/dps8_disk.c int n = (int) DSK_UNIT_IDX (uptr); uptr 532 src/dps8/dps8_disk.c static t_stat disk_set_ready (UNIT * uptr, UNUSED int32 value, uptr 536 src/dps8/dps8_disk.c long disk_unit_idx = DSK_UNIT_IDX (uptr); uptr 625 src/dps8/dps8_disk.c static t_stat disk_attach (UNIT *uptr, CONST char *cptr) uptr 627 src/dps8/dps8_disk.c int diskUnitIdx = (int) DSK_UNIT_IDX (uptr); uptr 1629 src/dps8/dps8_disk.c #define IPC_UNIT_IDX(uptr) ((uptr) - ipc_unit) uptr 1662 src/dps8/dps8_disk.c static t_stat ipc_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1669 src/dps8/dps8_disk.c static t_stat ipc_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1681 src/dps8/dps8_disk.c static t_stat ipc_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1684 src/dps8/dps8_disk.c int n = (int) IPC_UNIT_IDX (uptr); uptr 1694 src/dps8/dps8_disk.c static t_stat ipc_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 1697 src/dps8/dps8_disk.c int n = (int) IPC_UNIT_IDX (uptr); uptr 1773 src/dps8/dps8_disk.c #define MSP_UNIT_IDX(uptr) ((uptr) - msp_unit) uptr 1804 src/dps8/dps8_disk.c static t_stat msp_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1811 src/dps8/dps8_disk.c static t_stat msp_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1823 src/dps8/dps8_disk.c static t_stat msp_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1826 src/dps8/dps8_disk.c int n = (int) MSP_UNIT_IDX (uptr); uptr 1836 src/dps8/dps8_disk.c static t_stat msp_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 1839 src/dps8/dps8_disk.c int n = (int) MSP_UNIT_IDX (uptr); uptr 121 src/dps8/dps8_fnp2.c static t_stat fnpShowConfig (FILE *st, UNIT *uptr, int val, const void *desc); uptr 122 src/dps8/dps8_fnp2.c static t_stat fnpSetConfig (UNIT * uptr, int value, const char * cptr, void * desc); uptr 123 src/dps8/dps8_fnp2.c static t_stat fnpShowStatus (FILE *st, UNIT *uptr, int val, const void *desc); uptr 124 src/dps8/dps8_fnp2.c static t_stat fnpShowNUnits (FILE *st, UNIT *uptr, int val, const void *desc); uptr 125 src/dps8/dps8_fnp2.c static t_stat fnpSetNUnits (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 126 src/dps8/dps8_fnp2.c static t_stat fnpShowIPCname (FILE *st, UNIT *uptr, int val, const void *desc); uptr 127 src/dps8/dps8_fnp2.c static t_stat fnpSetIPCname (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 128 src/dps8/dps8_fnp2.c static t_stat fnpShowService (FILE *st, UNIT *uptr, int val, const void *desc); uptr 129 src/dps8/dps8_fnp2.c static t_stat fnpSetService (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 130 src/dps8/dps8_fnp2.c static t_stat fnpShowFW (FILE *st, UNIT *uptr, int val, const void *desc); uptr 131 src/dps8/dps8_fnp2.c static t_stat fnpSetFW (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 132 src/dps8/dps8_fnp2.c static t_stat fnp_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 134 src/dps8/dps8_fnp2.c static t_stat fnp_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 257 src/dps8/dps8_fnp2.c #define FNP_UNIT_IDX(uptr) ((uptr) - fnp_unit) uptr 1796 src/dps8/dps8_fnp2.c static t_stat fnpShowNUnits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 1803 src/dps8/dps8_fnp2.c static t_stat fnpSetNUnits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1816 src/dps8/dps8_fnp2.c static t_stat fnpShowIPCname (UNUSED FILE * st, UNIT * uptr, uptr 1819 src/dps8/dps8_fnp2.c long n = FNP_UNIT_IDX (uptr); uptr 1826 src/dps8/dps8_fnp2.c static t_stat fnpSetIPCname (UNIT * uptr, UNUSED int32 value, uptr 1829 src/dps8/dps8_fnp2.c long n = FNP_UNIT_IDX (uptr); uptr 1842 src/dps8/dps8_fnp2.c static t_stat fnpShowService (UNUSED FILE * st, UNIT * uptr, uptr 1845 src/dps8/dps8_fnp2.c long devnum = FNP_UNIT_IDX (uptr); uptr 1879 src/dps8/dps8_fnp2.c static t_stat fnpSetService (UNIT * uptr, UNUSED int32 value, uptr 1884 src/dps8/dps8_fnp2.c long devnum = FNP_UNIT_IDX (uptr); uptr 1924 src/dps8/dps8_fnp2.c static t_stat fnpShowConfig (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 1930 src/dps8/dps8_fnp2.c long fnpUnitIdx = FNP_UNIT_IDX (uptr); uptr 2012 src/dps8/dps8_fnp2.c static t_stat fnpSetFW (UNIT * uptr, UNUSED int32 value, uptr 2017 src/dps8/dps8_fnp2.c long devnum = FNP_UNIT_IDX (uptr); uptr 2160 src/dps8/dps8_fnp2.c static t_stat fnpShowFW (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 2166 src/dps8/dps8_fnp2.c long fnpUnitIdx = FNP_UNIT_IDX (uptr); uptr 2186 src/dps8/dps8_fnp2.c static t_stat fnpShowStatus (UNUSED FILE * st, UNIT * uptr, UNUSED int val, uptr 2192 src/dps8/dps8_fnp2.c long fnpUnitIdx = FNP_UNIT_IDX (uptr); uptr 2276 src/dps8/dps8_fnp2.c static t_stat fnp_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 2279 src/dps8/dps8_fnp2.c int n = (int) FNP_UNIT_IDX (uptr); uptr 2289 src/dps8/dps8_fnp2.c static t_stat fnp_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 2292 src/dps8/dps8_fnp2.c int n = (int) FNP_UNIT_IDX (uptr); uptr 2311 src/dps8/dps8_fnp2.c static t_stat fnpSetConfig (UNIT * uptr, UNUSED int value, const char * cptr, UNUSED void * desc) uptr 2316 src/dps8/dps8_fnp2.c uint fnpUnitIdx = (uint) FNP_UNIT_IDX (uptr); uptr 574 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 138 src/dps8/dps8_mgp.c # define MGP_UNIT_IDX(uptr) (( uptr ) - mgp_unit ) uptr 151 src/dps8/dps8_mgp.c mgp_show_nunits(UNUSED FILE *st, UNUSED UNIT *uptr, UNUSED int val, uptr 160 src/dps8/dps8_mgp.c mgp_set_nunits(UNUSED UNIT *uptr, UNUSED int32 value, const char *cptr, uptr 180 src/dps8/dps8_mgp.c mgp_show_device_name(UNUSED FILE *st, UNIT *uptr, UNUSED int val, uptr 183 src/dps8/dps8_mgp.c int n = (int)MGP_UNIT_IDX(uptr); uptr 203 src/dps8/dps8_mgp.c mgp_set_device_name(UNIT *uptr, UNUSED int32 value, const char *cptr, uptr 206 src/dps8/dps8_mgp.c int n = (int)MGP_UNIT_IDX(uptr); uptr 266 src/dps8/dps8_mgp.c mgpAttach(UNIT *uptr, const char *cptr) uptr 274 src/dps8/dps8_mgp.c if (( uptr->flags & UNIT_ATT ) != 0) uptr 276 src/dps8/dps8_mgp.c detach_unit(uptr); uptr 279 src/dps8/dps8_mgp.c uptr->flags |= UNIT_ATT; uptr 286 src/dps8/dps8_mgp.c mgpDetach(UNIT *uptr) uptr 288 src/dps8/dps8_mgp.c if (( uptr->flags & UNIT_ATT ) == 0) uptr 293 src/dps8/dps8_mgp.c uptr->flags &= ~(unsigned int)UNIT_ATT; uptr 146 src/dps8/dps8_mt.c #define MTP_UNIT_IDX(uptr) ((uptr) - mtp_unit) uptr 155 src/dps8/dps8_mt.c static t_stat mtp_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 163 src/dps8/dps8_mt.c static t_stat mtp_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 175 src/dps8/dps8_mt.c static t_stat mtp_show_boot_drive (UNUSED FILE * st, UNIT * uptr, uptr 178 src/dps8/dps8_mt.c long mtp_unit_idx = MTP_UNIT_IDX (uptr); uptr 189 src/dps8/dps8_mt.c static t_stat mtp_set_boot_drive (UNIT * uptr, UNUSED int32 value, uptr 192 src/dps8/dps8_mt.c long mtp_unit_idx = MTP_UNIT_IDX (uptr); uptr 232 src/dps8/dps8_mt.c static t_stat mtp_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 235 src/dps8/dps8_mt.c int n = (int) MTP_UNIT_IDX (uptr); uptr 242 src/dps8/dps8_mt.c static t_stat mtp_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 245 src/dps8/dps8_mt.c int n = (int) MTP_UNIT_IDX (uptr); uptr 337 src/dps8/dps8_mt.c #define MT_UNIT_NUM(uptr) ((uptr) - mt_unit) uptr 400 src/dps8/dps8_mt.c static t_stat mt_rewind (UNIT * uptr, UNUSED int32 value, uptr 403 src/dps8/dps8_mt.c return sim_tape_rewind (uptr); uptr 406 src/dps8/dps8_mt.c static t_stat mt_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 413 src/dps8/dps8_mt.c static t_stat mt_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 425 src/dps8/dps8_mt.c static t_stat mt_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 428 src/dps8/dps8_mt.c int n = (int) MT_UNIT_NUM (uptr); uptr 438 src/dps8/dps8_mt.c static t_stat mt_set_device_name (UNUSED UNIT * uptr, UNUSED int32 value, uptr 441 src/dps8/dps8_mt.c int n = (int) MT_UNIT_NUM (uptr); uptr 454 src/dps8/dps8_mt.c static t_stat mt_show_tape_path (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 474 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 727 src/dps8/dps8_mt.c static t_stat tape_set_ready (UNIT * uptr, UNUSED int32 value, uptr 734 src/dps8/dps8_mt.c long tape_unit_idx = MT_UNIT_NUM (uptr); uptr 83 src/dps8/dps8_prt.c static t_stat prt_show_nunits (FILE *st, UNIT *uptr, int val, const void *desc); uptr 84 src/dps8/dps8_prt.c static t_stat prt_set_nunits (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 85 src/dps8/dps8_prt.c static t_stat prt_show_device_name (FILE *st, UNIT *uptr, int val, const void *desc); uptr 86 src/dps8/dps8_prt.c static t_stat prt_set_device_name (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 87 src/dps8/dps8_prt.c static t_stat prt_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 89 src/dps8/dps8_prt.c static t_stat prt_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 91 src/dps8/dps8_prt.c static t_stat prt_show_path (UNUSED FILE * st, UNIT * uptr, uptr 93 src/dps8/dps8_prt.c static t_stat prt_set_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 95 src/dps8/dps8_prt.c static t_stat prt_set_ready (UNIT * uptr, UNUSED int32 value, uptr 99 src/dps8/dps8_prt.c static t_stat prt_show_device_model (FILE *st, UNIT *uptr, int val, const void *desc); uptr 100 src/dps8/dps8_prt.c static t_stat prt_set_device_model (UNIT * uptr, int32 value, const char * cptr, void * desc); uptr 142 src/dps8/dps8_prt.c #define PRT_UNIT_NUM(uptr) ((uptr) - prt_unit) uptr 1769 src/dps8/dps8_prt.c static t_stat prt_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, uptr 1776 src/dps8/dps8_prt.c static t_stat prt_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, uptr 1788 src/dps8/dps8_prt.c static t_stat prt_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 1791 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1798 src/dps8/dps8_prt.c static t_stat prt_set_device_model (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1801 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1821 src/dps8/dps8_prt.c static t_stat prt_show_device_model (UNUSED FILE * st, UNIT * uptr, uptr 1824 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1831 src/dps8/dps8_prt.c static t_stat prt_set_device_name (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1834 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 1849 src/dps8/dps8_prt.c static t_stat prt_show_path (UNUSED FILE * st, UNUSED UNUSED UNIT * uptr, uptr 1879 src/dps8/dps8_prt.c static t_stat prt_set_path (UNUSED UNIT * uptr, UNUSED int32 value, uptr 1967 src/dps8/dps8_prt.c static t_stat prt_set_ready (UNIT * uptr, UNUSED int32 value, uptr 1974 src/dps8/dps8_prt.c int n = (int) PRT_UNIT_NUM (uptr); uptr 2000 src/dps8/dps8_prt.c static t_stat prt_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 2003 src/dps8/dps8_prt.c int devUnitIdx = (int) PRT_UNIT_NUM (uptr); uptr 2038 src/dps8/dps8_prt.c static t_stat prt_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 2041 src/dps8/dps8_prt.c int devUnitIdx = (int) PRT_UNIT_NUM (uptr); uptr 579 src/dps8/dps8_scu.c #define UNIT_NUM(uptr) ((uptr) - scu_unit) uptr 605 src/dps8/dps8_scu.c static t_stat scu_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 612 src/dps8/dps8_scu.c static t_stat scu_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 624 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 698 src/dps8/dps8_scu.c long scu_unit_idx = UNIT_NUM (uptr); uptr 847 src/dps8/dps8_scu.c static t_stat scu_set_config (UNIT * uptr, UNUSED int32 value, uptr 853 src/dps8/dps8_scu.c long scu_unit_idx = UNIT_NUM (uptr); uptr 2452 src/dps8/dps8_scu.c t_stat scu_reset_unit (UNIT * uptr, UNUSED int32 value, uptr 2456 src/dps8/dps8_scu.c uint scu_unit_idx = (uint) (uptr - scu_unit); uptr 104 src/dps8/dps8_scu.h t_stat scu_reset_unit (UNIT * uptr, int32 value, const char * cptr, uptr 54 src/dps8/dps8_socket_dev.c # define SKC_UNIT_IDX(uptr) ((uptr) - sk_unit) uptr 87 src/dps8/dps8_socket_dev.c static t_stat sk_show_nunits (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 94 src/dps8/dps8_socket_dev.c static t_stat sk_set_nunits (UNUSED UNIT * uptr, UNUSED int32 value, uptr 106 src/dps8/dps8_socket_dev.c static t_stat skc_show_device_name (UNUSED FILE * st, UNIT * uptr, uptr 109 src/dps8/dps8_socket_dev.c int n = (int) SKC_UNIT_IDX (uptr); uptr 117 src/dps8/dps8_socket_dev.c static t_stat skc_set_device_name (UNIT * uptr, UNUSED int32 value, uptr 120 src/dps8/dps8_socket_dev.c int n = (int) SKC_UNIT_IDX (uptr); uptr 4730 src/dps8/dps8_sys.c UNUSED t_value *val, UNUSED UNIT *uptr, int32 UNUSED sw) uptr 4743 src/dps8/dps8_sys.c if (uptr == &cpu_dev.units[0]) uptr 4783 src/dps8/dps8_sys.c UNUSED UNIT * uptr, UNUSED t_value * val, UNUSED int32 sswitch) uptr 4792 src/dps8/dps8_sys.c static t_stat sys_show_config (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 4808 src/dps8/dps8_sys.c static t_stat sys_set_break (UNUSED UNIT * uptr, int32 value, uptr 4815 src/dps8/dps8_sys.c static t_stat sys_show_break (UNUSED FILE * st, UNUSED UNIT * uptr, uptr 4838 src/dps8/dps8_sys.c static t_stat sys_set_config (UNUSED UNIT * uptr, UNUSED int32 value, uptr 77 src/dps8/dps8_urp.c #define URPUNIT_NUM(uptr) ((uptr) - urp_unit) uptr 91 src/dps8/dps8_urp.c static t_stat urpShowUnits (UNUSED FILE * st, UNUSED UNIT * uptr, UNUSED int val, UNUSED const void * desc) uptr 97 src/dps8/dps8_urp.c static t_stat urpSetUnits (UNUSED UNIT * uptr, UNUSED int32 value, const char * cptr, UNUSED void * desc) uptr 108 src/dps8/dps8_urp.c static t_stat urpShowDeviceName (UNUSED FILE * st, UNIT * uptr, UNUSED int val, UNUSED const void * desc) uptr 110 src/dps8/dps8_urp.c int n = (int) URPUNIT_NUM (uptr); uptr 117 src/dps8/dps8_urp.c static t_stat urpSetDeviceName (UNUSED UNIT * uptr, UNUSED int32 value, UNUSED const char * cptr, UNUSED void * desc) uptr 119 src/dps8/dps8_urp.c int n = (int) URPUNIT_NUM (uptr); uptr 285 src/simh/scp.c t_stat set_dev_radix (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 286 src/simh/scp.c t_stat set_dev_enbdis (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 287 src/simh/scp.c t_stat set_dev_debug (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 288 src/simh/scp.c t_stat set_unit_enbdis (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 291 src/simh/scp.c t_stat show_config (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 292 src/simh/scp.c t_stat show_queue (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 293 src/simh/scp.c t_stat show_time (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 294 src/simh/scp.c t_stat show_mod_names (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 295 src/simh/scp.c t_stat show_show_commands (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 296 src/simh/scp.c t_stat show_log_names (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 297 src/simh/scp.c t_stat show_dev_radix (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 298 src/simh/scp.c t_stat show_dev_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 299 src/simh/scp.c t_stat show_dev_logicals (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 300 src/simh/scp.c t_stat show_dev_modifiers (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 301 src/simh/scp.c t_stat show_dev_show_commands (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 302 src/simh/scp.c t_stat show_version (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 303 src/simh/scp.c t_stat show_buildinfo (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cprr); uptr 304 src/simh/scp.c t_stat show_prom (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 305 src/simh/scp.c t_stat show_default_base_system_script (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 306 src/simh/scp.c t_stat show_default (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 307 src/simh/scp.c t_stat show_break (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 308 src/simh/scp.c t_stat show_on (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 309 src/simh/scp.c t_stat sim_show_send (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 310 src/simh/scp.c t_stat sim_show_expect (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 312 src/simh/scp.c t_stat show_unit (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag); uptr 313 src/simh/scp.c t_stat show_all_mods (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flg, int32 *toks); uptr 314 src/simh/scp.c t_stat show_one_mod (FILE *st, DEVICE *dptr, UNIT *uptr, MTAB *mptr, CONST char *cptr, int32 flag); uptr 340 src/simh/scp.c t_stat get_aval (t_addr addr, DEVICE *dptr, UNIT *uptr); uptr 345 src/simh/scp.c void fprint_capac (FILE *st, DEVICE *dptr, UNIT *uptr); uptr 354 src/simh/scp.c t_stat scp_attach_unit (DEVICE *dptr, UNIT *uptr, const char *cptr); uptr 355 src/simh/scp.c t_stat scp_detach_unit (DEVICE *dptr, UNIT *uptr); uptr 357 src/simh/scp.c t_stat attach_err (UNIT *uptr, t_stat stat); uptr 367 src/simh/scp.c t_addr low, t_addr high, DEVICE *dptr, UNIT *uptr); uptr 368 src/simh/scp.c t_stat ex_addr (FILE *ofile, int32 flag, t_addr addr, DEVICE *dptr, UNIT *uptr); uptr 370 src/simh/scp.c UNIT *uptr, int32 dfltinc); uptr 380 src/simh/scp.c t_stat sim_show_asynch (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr); uptr 2578 src/simh/scp.c t_stat help_dev_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr) uptr 2588 src/simh/scp.c return dptr->help (st, dptr, uptr, flag, cptr); uptr 2610 src/simh/scp.c return dptr->help (st, dptr, uptr, flag, cptr); uptr 2619 src/simh/scp.c return dptr->help (st, dptr, uptr, flag, cptr); uptr 2624 src/simh/scp.c return dptr->help (st, dptr, uptr, flag, cptr); uptr 2669 src/simh/scp.c UNIT *uptr; uptr 2672 src/simh/scp.c dptr = find_unit (gbuf, &uptr); uptr 2676 src/simh/scp.c r = help_dev_help (stdout, dptr, uptr, flag, (cmdp->action == &set_cmd) ? "SET" : "SHOW"); uptr 2678 src/simh/scp.c help_dev_help (sim_log, dptr, uptr, flag | SCP_HELP_FLAT, (cmdp->action == &set_cmd) ? "SET" : "SHOW"); uptr 2759 src/simh/scp.c UNIT *uptr; uptr 2761 src/simh/scp.c dptr = find_unit (gbuf, &uptr); uptr 2769 src/simh/scp.c r = help_dev_help (stdout, dptr, uptr, flag, cptr); uptr 2771 src/simh/scp.c help_dev_help (sim_log, dptr, uptr, flag | SCP_HELP_FLAT, cptr); uptr 3726 src/simh/scp.c t_stat sim_show_send (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 3766 src/simh/scp.c t_stat sim_show_expect (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4028 src/simh/scp.c UNIT *uptr; uptr 4039 src/simh/scp.c uptr = dptr->units; /* first unit */ uptr 4044 src/simh/scp.c else if ((dptr = find_unit (gbuf, &uptr))) { /* unit match? */ uptr 4045 src/simh/scp.c if (uptr == NULL) /* invalid unit */ uptr 4072 src/simh/scp.c uptr = dptr->units; /* first unit */ uptr 4090 src/simh/scp.c if ((lvl == MTAB_VUN) && (uptr->flags & UNIT_DIS)) uptr 4107 src/simh/scp.c r = mptr->valid (uptr, mptr->match, cvptr, mptr->desc); uptr 4120 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 4123 src/simh/scp.c ((r = mptr->valid (uptr, mptr->match, cvptr, mptr->desc)) != SCPE_OK)) uptr 4125 src/simh/scp.c uptr->flags = (uptr->flags & ~(mptr->mask)) | uptr 4133 src/simh/scp.c r = glbr->action (dptr, uptr, glbr->arg, cvptr); /* do global */ uptr 4171 src/simh/scp.c t_stat set_dev_radix (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4181 src/simh/scp.c t_stat set_dev_enbdis (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4212 src/simh/scp.c t_stat set_unit_enbdis (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4216 src/simh/scp.c if (!(uptr->flags & UNIT_DISABLE)) /* allowed? */ uptr 4219 src/simh/scp.c uptr->flags = uptr->flags & ~UNIT_DIS; uptr 4221 src/simh/scp.c if ((uptr->flags & UNIT_ATT) || /* dsb */ uptr 4222 src/simh/scp.c sim_is_active (uptr)) /* more tests */ uptr 4224 src/simh/scp.c uptr->flags = uptr->flags | UNIT_DIS; /* disable */ uptr 4231 src/simh/scp.c t_stat set_dev_debug (DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4294 src/simh/scp.c UNIT *uptr; uptr 4304 src/simh/scp.c uptr = dptr->units; /* first unit */ uptr 4309 src/simh/scp.c else if ((dptr = find_unit (gbuf, &uptr))) { /* unit match? */ uptr 4310 src/simh/scp.c if (uptr == NULL) /* invalid unit */ uptr 4312 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 4341 src/simh/scp.c return shptr->action (ofile, sim_dflt_dev, uptr, shptr->arg, cptr); uptr 4350 src/simh/scp.c show_unit (ofile, dptr, uptr, -1); uptr 4366 src/simh/scp.c show_one_mod (ofile, dptr, uptr, mptr, cvptr, 1); uptr 4374 src/simh/scp.c r = shptr->action (ofile, dptr, uptr, shptr->arg, cptr); uptr 4405 src/simh/scp.c UNIT *uptr; uptr 4422 src/simh/scp.c uptr = dptr->units + j; uptr 4423 src/simh/scp.c if (!(uptr->flags & UNIT_DIS)) /* count enabled units */ uptr 4425 src/simh/scp.c else if (uptr->flags & UNIT_DISABLE) uptr 4454 src/simh/scp.c uptr = dptr->units + j; uptr 4455 src/simh/scp.c if ((uptr->flags & UNIT_DIS) == 0) uptr 4456 src/simh/scp.c show_unit (st, dptr, uptr, ucnt + udbl); uptr 4468 src/simh/scp.c t_stat show_unit (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag) uptr 4470 src/simh/scp.c int32 u = (int32)(uptr - dptr->units); uptr 4477 src/simh/scp.c if (uptr->flags & UNIT_ATT) { uptr 4479 src/simh/scp.c (void)fprintf (st, "status : attached to %s", uptr->filename); uptr 4480 src/simh/scp.c if (uptr->flags & UNIT_RO) uptr 4484 src/simh/scp.c if (uptr->flags & UNIT_ATTABLE) { uptr 4489 src/simh/scp.c if ((uptr->capac > 0) && (uptr->flags & UNIT_FIX)) { uptr 4491 src/simh/scp.c fprint_capac (st, dptr, uptr); uptr 4493 src/simh/scp.c show_all_mods (st, dptr, uptr, MTAB_VUN, &toks); /* show unit mods */ uptr 4499 src/simh/scp.c const char *sprint_capac (DEVICE *dptr, UNIT *uptr) uptr 4502 src/simh/scp.c t_offset kval = (t_offset)((uptr->flags & UNIT_BINK) ? 1024: 1000); uptr 4504 src/simh/scp.c t_offset psize = (t_offset)uptr->capac; uptr 4536 src/simh/scp.c void fprint_capac (FILE *st, DEVICE *dptr, UNIT *uptr) uptr 4538 src/simh/scp.c (void)fprintf (st, " %s", sprint_capac (dptr, uptr)); uptr 4544 src/simh/scp.c t_stat show_default_base_system_script (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4611 src/simh/scp.c t_stat show_prom (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4647 src/simh/scp.c t_stat show_buildinfo (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 4827 src/simh/scp.c t_stat show_version (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5543 src/simh/scp.c t_stat show_dev_logicals (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5555 src/simh/scp.c UNIT *uptr; uptr 5569 src/simh/scp.c for (uptr = sim_clock_queue; uptr != QUEUE_LIST_END; uptr = uptr->next) { uptr 5570 src/simh/scp.c if (uptr == &sim_step_unit) uptr 5573 src/simh/scp.c if (uptr == &sim_expect_unit) uptr 5576 src/simh/scp.c if ((dptr = find_dev_from_unit (uptr)) != NULL) { uptr 5579 src/simh/scp.c (void)fprintf (st, " unit %d", (int32) (uptr - dptr->units)); uptr 5583 src/simh/scp.c tim = sim_fmt_secs((accum + uptr->time)/sim_timer_inst_per_sec ()); uptr 5584 src/simh/scp.c (void)fprintf (st, " at %d%s%s%s%s\n", accum + uptr->time, uptr 5586 src/simh/scp.c (uptr->flags & UNIT_IDLE) ? " (Idle capable)" : ""); uptr 5587 src/simh/scp.c accum = accum + uptr->time; uptr 5594 src/simh/scp.c t_stat show_time (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5602 src/simh/scp.c t_stat show_break (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5613 src/simh/scp.c t_stat show_dev_radix (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5619 src/simh/scp.c t_stat show_dev_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5651 src/simh/scp.c t_stat show_on (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5693 src/simh/scp.c t_stat show_dev_modifiers (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5699 src/simh/scp.c t_stat show_all_mods (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, int32 *toks) uptr 5710 src/simh/scp.c ((MTAB_VUN == (uint32)flag) && ((uptr->flags & mptr->mask) == mptr->match)))) { uptr 5717 src/simh/scp.c r = show_one_mod (st, dptr, uptr, mptr, NULL, 0); uptr 5723 src/simh/scp.c t_stat show_one_mod (FILE *st, DEVICE *dptr, UNIT *uptr, MTAB *mptr, uptr 5729 src/simh/scp.c r = mptr->disp (st, uptr, mptr->match, (CONST void *)(cptr? cptr: mptr->desc)); uptr 5753 src/simh/scp.c t_stat show_dev_show_commands (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 5772 src/simh/scp.c UNIT *uptr; uptr 5781 src/simh/scp.c uptr = dptr->units; uptr 5782 src/simh/scp.c if (uptr == NULL) uptr 5784 src/simh/scp.c max = uptr->capac - 1; uptr 5942 src/simh/scp.c UNIT *uptr; uptr 5952 src/simh/scp.c dptr = find_unit (gbuf, &uptr); /* locate unit */ uptr 5955 src/simh/scp.c if (uptr == NULL) /* valid unit? */ uptr 5957 src/simh/scp.c if (uptr->flags & UNIT_ATT) { /* already attached? */ uptr 5958 src/simh/scp.c if (!(uptr->dynflags & UNIT_ATTMULT) && /* and only single attachable */ uptr 5960 src/simh/scp.c r = scp_detach_unit (dptr, uptr); /* detach it */ uptr 5964 src/simh/scp.c if (!(uptr->dynflags & UNIT_ATTMULT)) uptr 5971 src/simh/scp.c return scp_attach_unit (dptr, uptr, gbuf); /* attach */ uptr 5976 src/simh/scp.c t_stat scp_attach_unit (DEVICE *dptr, UNIT *uptr, const char *cptr) uptr 5979 src/simh/scp.c return dptr->attach (uptr, (CONST char *)cptr); /* call it */ uptr 5980 src/simh/scp.c return attach_unit (uptr, (CONST char *)cptr); /* no, std routine */ uptr 5985 src/simh/scp.c t_stat attach_unit (UNIT *uptr, CONST char *cptr) uptr 5989 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 5991 src/simh/scp.c if (!(uptr->flags & UNIT_ATTABLE)) /* not attachable? */ uptr 5993 src/simh/scp.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 5995 src/simh/scp.c uptr->filename = (char *) calloc (CBUFSIZE, sizeof (char)); /* alloc name buf */ uptr 5996 src/simh/scp.c if (uptr->filename == NULL) uptr 5998 src/simh/scp.c strncpy (uptr->filename, cptr, CBUFSIZE-1); /* save name */ uptr 6000 src/simh/scp.c ((uptr->flags & UNIT_RO) != 0)) { uptr 6001 src/simh/scp.c if (((uptr->flags & UNIT_ROABLE) == 0) && /* allowed? */ uptr 6002 src/simh/scp.c ((uptr->flags & UNIT_RO) == 0)) uptr 6003 src/simh/scp.c return attach_err (uptr, SCPE_NORO); /* no, error */ uptr 6004 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "rb"); /* open rd only */ uptr 6005 src/simh/scp.c if (uptr->fileref == NULL) /* open fail? */ uptr 6006 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 6007 src/simh/scp.c uptr->flags = uptr->flags | UNIT_RO; /* set rd only */ uptr 6014 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "wb+"); /* open new file */ uptr 6015 src/simh/scp.c if (uptr->fileref == NULL) /* open fail? */ uptr 6016 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 6022 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "rb+"); /* open r/w */ uptr 6023 src/simh/scp.c if (uptr->fileref == NULL) { /* open fail? */ uptr 6029 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 6036 src/simh/scp.c if ((uptr->flags & UNIT_ROABLE) == 0) /* allowed? */ uptr 6037 src/simh/scp.c return attach_err (uptr, SCPE_NORO);/* no error */ uptr 6038 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "rb"); /* open rd only */ uptr 6039 src/simh/scp.c if (uptr->fileref == NULL) /* open fail? */ uptr 6040 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 6041 src/simh/scp.c uptr->flags = uptr->flags | UNIT_RO; /* set rd only */ uptr 6048 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 6049 src/simh/scp.c uptr->fileref = sim_fopen (cptr, "wb+");/* open new file */ uptr 6050 src/simh/scp.c if (uptr->fileref == NULL) /* open fail? */ uptr 6051 src/simh/scp.c return attach_err (uptr, SCPE_OPENERR); /* yes, error */ uptr 6059 src/simh/scp.c if (uptr->flags & UNIT_BUFABLE) { /* buffer? */ uptr 6060 src/simh/scp.c uint32 cap = ((uint32) uptr->capac) / dptr->aincr; /* effective size */ uptr 6061 src/simh/scp.c if (uptr->flags & UNIT_MUSTBUF) /* dyn alloc? */ uptr 6062 src/simh/scp.c uptr->filebuf = calloc (cap, SZ_D (dptr)); /* allocate */ uptr 6063 src/simh/scp.c if (uptr->filebuf == NULL) /* no buffer? */ uptr 6064 src/simh/scp.c return attach_err (uptr, SCPE_MEM); /* error */ uptr 6068 src/simh/scp.c uptr->hwmark = (uint32)sim_fread (uptr->filebuf, /* read file */ uptr 6069 src/simh/scp.c SZ_D (dptr), cap, uptr->fileref); uptr 6070 src/simh/scp.c uptr->flags = uptr->flags | UNIT_BUF; /* set buffered */ uptr 6072 src/simh/scp.c uptr->flags = uptr->flags | UNIT_ATT; uptr 6073 src/simh/scp.c uptr->pos = 0; uptr 6077 src/simh/scp.c t_stat attach_err (UNIT *uptr, t_stat stat) uptr 6079 src/simh/scp.c FREE (uptr->filename); uptr 6080 src/simh/scp.c uptr->filename = NULL; uptr 6090 src/simh/scp.c UNIT *uptr; uptr 6100 src/simh/scp.c dptr = find_unit (gbuf, &uptr); /* locate unit */ uptr 6103 src/simh/scp.c if (uptr == NULL) /* valid unit? */ uptr 6105 src/simh/scp.c return scp_detach_unit (dptr, uptr); /* detach */ uptr 6125 src/simh/scp.c UNIT *uptr; uptr 6134 src/simh/scp.c uptr = (dptr->units) + j; uptr 6135 src/simh/scp.c if ((uptr->flags & UNIT_ATT) || /* attached? */ uptr 6137 src/simh/scp.c !(uptr->flags & UNIT_ATTABLE))) { /* !attachable? */ uptr 6138 src/simh/scp.c r = scp_detach_unit (dptr, uptr); /* detach unit */ uptr 6150 src/simh/scp.c t_stat scp_detach_unit (DEVICE *dptr, UNIT *uptr) uptr 6153 src/simh/scp.c return dptr->detach (uptr); uptr 6154 src/simh/scp.c return detach_unit (uptr); /* no, standard */ uptr 6159 src/simh/scp.c t_stat detach_unit (UNIT *uptr) uptr 6163 src/simh/scp.c if (uptr == NULL) uptr 6165 src/simh/scp.c if (!(uptr->flags & UNIT_ATTABLE)) /* attachable? */ uptr 6167 src/simh/scp.c if (!(uptr->flags & UNIT_ATT)) { /* not attached? */ uptr 6173 src/simh/scp.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 6175 src/simh/scp.c if (uptr->flags & UNIT_BUF) { uptr 6176 src/simh/scp.c uint32 cap = (uptr->hwmark + dptr->aincr - 1) / dptr->aincr; uptr 6177 src/simh/scp.c if (uptr->hwmark && ((uptr->flags & UNIT_RO) == 0)) { uptr 6181 src/simh/scp.c rewind (uptr->fileref); uptr 6182 src/simh/scp.c sim_fwrite (uptr->filebuf, SZ_D (dptr), cap, uptr->fileref); uptr 6183 src/simh/scp.c if (ferror (uptr->fileref)) uptr 6187 src/simh/scp.c if (uptr->flags & UNIT_MUSTBUF) { /* dyn alloc? */ uptr 6188 src/simh/scp.c FREE (uptr->filebuf); /* free buf */ uptr 6189 src/simh/scp.c uptr->filebuf = NULL; uptr 6191 src/simh/scp.c uptr->flags = uptr->flags & ~UNIT_BUF; uptr 6193 src/simh/scp.c uptr->flags = uptr->flags & ~(UNIT_ATT | UNIT_RO); uptr 6194 src/simh/scp.c FREE (uptr->filename); uptr 6195 src/simh/scp.c uptr->filename = NULL; uptr 6196 src/simh/scp.c if (fclose (uptr->fileref) == EOF) uptr 6210 src/simh/scp.c const char *sim_uname (UNIT *uptr) uptr 6212 src/simh/scp.c DEVICE *d = find_dev_from_unit(uptr); uptr 6219 src/simh/scp.c (void)sprintf (uname, "%s%d", sim_dname (d), (int)(uptr-d->units)); uptr 6235 src/simh/scp.c UNIT *uptr; uptr 6332 src/simh/scp.c dptr = find_unit (gbuf, &uptr); /* locate unit */ uptr 6335 src/simh/scp.c if (uptr == NULL) /* valid unit? */ uptr 6339 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 6341 src/simh/scp.c if ((uptr->flags & UNIT_ATTABLE) && /* if attable, att? */ uptr 6342 src/simh/scp.c !(uptr->flags & UNIT_ATT)) uptr 6344 src/simh/scp.c unitno = (int32) (uptr - dptr->units); /* recover unit# */ uptr 6363 src/simh/scp.c uptr = dptr->units + j; uptr 6364 src/simh/scp.c if ((uptr->flags & (UNIT_ATT + UNIT_SEQ)) == (UNIT_ATT + UNIT_SEQ)) uptr 6365 src/simh/scp.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); uptr 6473 src/simh/scp.c uptr = dptr->units + j; uptr 6474 src/simh/scp.c if (uptr->flags & UNIT_ATT) { /* attached, */ uptr 6475 src/simh/scp.c if (uptr->io_flush) /* unit specific flush routine */ uptr 6476 src/simh/scp.c uptr->io_flush (uptr); /* call it */ uptr 6478 src/simh/scp.c if (!(uptr->flags & UNIT_BUF) && /* not buffered, */ uptr 6479 src/simh/scp.c (uptr->fileref) && /* real file, */ uptr 6480 src/simh/scp.c !(uptr->dynflags & UNIT_NO_FIO) && /* is FILE *, */ uptr 6481 src/simh/scp.c !(uptr->flags & UNIT_RO)) /* not read only? */ uptr 6482 src/simh/scp.c (void)fflush (uptr->fileref); uptr 6518 src/simh/scp.c UNIT *uptr; uptr 6524 src/simh/scp.c for (uptr = sim_clock_queue; uptr != QUEUE_LIST_END; uptr = sim_clock_queue) { uptr 6525 src/simh/scp.c sim_clock_queue = uptr->next; uptr 6526 src/simh/scp.c uptr->next = NULL; uptr 6603 src/simh/scp.c t_stat step_svc (UNIT *uptr) uptr 6611 src/simh/scp.c t_stat expect_svc (UNIT *uptr) uptr 6806 src/simh/scp.c t_addr low, t_addr high, DEVICE *dptr, UNIT *uptr) uptr 6811 src/simh/scp.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 6817 src/simh/scp.c reason = get_aval (i, dptr, uptr); /* get data */ uptr 6824 src/simh/scp.c reason = ex_addr (ofile, flag, i, dptr, uptr); uptr 6828 src/simh/scp.c ex_addr (sim_log, flag, i, dptr, uptr); uptr 6832 src/simh/scp.c reason = dep_addr (flag, cptr, i, dptr, uptr, reason); uptr 7057 src/simh/scp.c t_stat ex_addr (FILE *ofile, int32 flag, t_addr addr, DEVICE *dptr, UNIT *uptr) uptr 7070 src/simh/scp.c if ((reason = fprint_sym (ofile, addr, sim_eval, uptr, sim_switches)) > 0) { uptr 7092 src/simh/scp.c t_stat get_aval (t_addr addr, DEVICE *dptr, UNIT *uptr) uptr 7100 src/simh/scp.c if ((dptr == NULL) || (uptr == NULL)) uptr 7107 src/simh/scp.c reason = dptr->examine (&sim_eval[i], j, uptr, sim_switches); uptr 7112 src/simh/scp.c if (!(uptr->flags & UNIT_ATT)) uptr 7114 src/simh/scp.c if (uptr->dynflags & UNIT_NO_FIO) uptr 7116 src/simh/scp.c if ((uptr->flags & UNIT_FIX) && (j >= uptr->capac)) { uptr 7122 src/simh/scp.c if (uptr->flags & UNIT_BUF) { uptr 7123 src/simh/scp.c SZ_LOAD (sz, sim_eval[i], uptr->filebuf, loc); uptr 7126 src/simh/scp.c sim_fseek (uptr->fileref, (t_addr)(sz * loc), SEEK_SET); uptr 7127 src/simh/scp.c sim_fread (&sim_eval[i], sz, 1, uptr->fileref); uptr 7128 src/simh/scp.c if ((feof (uptr->fileref)) && uptr 7129 src/simh/scp.c !(uptr->flags & UNIT_FIX)) { uptr 7133 src/simh/scp.c else if (ferror (uptr->fileref)) { uptr 7134 src/simh/scp.c clearerr (uptr->fileref); uptr 7162 src/simh/scp.c UNIT *uptr, int32 dfltinc) uptr 7182 src/simh/scp.c if (uptr->flags & UNIT_RO) /* read only? */ uptr 7187 src/simh/scp.c if ((reason = parse_sym ((CONST char *)cptr, addr, uptr, sim_eval, sim_switches)) > 0) { uptr 7198 src/simh/scp.c r = dptr->deposit (sim_eval[i], j, uptr, sim_switches); uptr 7203 src/simh/scp.c if (!(uptr->flags & UNIT_ATT)) uptr 7205 src/simh/scp.c if (uptr->dynflags & UNIT_NO_FIO) uptr 7207 src/simh/scp.c if ((uptr->flags & UNIT_FIX) && (j >= uptr->capac)) uptr 7211 src/simh/scp.c if (uptr->flags & UNIT_BUF) { uptr 7212 src/simh/scp.c SZ_STORE (sz, sim_eval[i], uptr->filebuf, loc); uptr 7213 src/simh/scp.c if (loc >= uptr->hwmark) uptr 7214 src/simh/scp.c uptr->hwmark = (uint32) loc + 1; uptr 7217 src/simh/scp.c sim_fseek (uptr->fileref, (t_addr)(sz * loc), SEEK_SET); uptr 7218 src/simh/scp.c sim_fwrite (&sim_eval[i], sz, 1, uptr->fileref); uptr 7219 src/simh/scp.c if (ferror (uptr->fileref)) { uptr 7220 src/simh/scp.c clearerr (uptr->fileref); uptr 7815 src/simh/scp.c DEVICE *find_unit (const char *cptr, UNIT **uptr) uptr 7823 src/simh/scp.c if (uptr == NULL) /* arg error? */ uptr 7825 src/simh/scp.c *uptr = NULL; uptr 7829 src/simh/scp.c *uptr = dptr->units; /* unit 0 */ uptr 7847 src/simh/scp.c *uptr = NULL; uptr 7849 src/simh/scp.c *uptr = dptr->units + u; uptr 7855 src/simh/scp.c *uptr = &dptr->units[u]; uptr 7906 src/simh/scp.c DEVICE *find_dev_from_unit (UNIT *uptr) uptr 7911 src/simh/scp.c if (uptr == NULL) uptr 7915 src/simh/scp.c if (uptr == (dptr->units + j)) uptr 7922 src/simh/scp.c if (uptr == (dptr->units + j)) uptr 8666 src/simh/scp.c UNIT *uptr; uptr 8691 src/simh/scp.c uptr = sim_clock_queue; /* get first */ uptr 8692 src/simh/scp.c sim_clock_queue = uptr->next; /* remove first */ uptr 8693 src/simh/scp.c uptr->next = NULL; /* hygiene */ uptr 8694 src/simh/scp.c sim_interval -= uptr->time; uptr 8695 src/simh/scp.c uptr->time = 0; uptr 8701 src/simh/scp.c "Processing Event for %s\n", sim_uname (uptr)); uptr 8702 src/simh/scp.c if (uptr->action != NULL) uptr 8703 src/simh/scp.c reason = uptr->action (uptr); uptr 8743 src/simh/scp.c t_stat sim_activate (UNIT *uptr, int32 event_time) uptr 8745 src/simh/scp.c if (uptr->dynflags & UNIT_TMR_UNIT) uptr 8746 src/simh/scp.c return sim_timer_activate (uptr, event_time); uptr 8747 src/simh/scp.c return _sim_activate (uptr, event_time); uptr 8750 src/simh/scp.c t_stat _sim_activate (UNIT *uptr, int32 event_time) uptr 8758 src/simh/scp.c if (sim_is_active (uptr)) /* already active? */ uptr 8762 src/simh/scp.c sim_debug (SIM_DBG_ACTIVATE, sim_dflt_dev, "Activating %s delay=%d\n", sim_uname (uptr), event_time); uptr 8773 src/simh/scp.c cptr = uptr->next = sim_clock_queue; uptr 8774 src/simh/scp.c sim_clock_queue = uptr; uptr 8777 src/simh/scp.c cptr = uptr->next = prvptr->next; /* insert at prvptr */ uptr 8778 src/simh/scp.c prvptr->next = uptr; uptr 8780 src/simh/scp.c uptr->time = event_time - accum; uptr 8782 src/simh/scp.c cptr->time = cptr->time - uptr->time; uptr 8796 src/simh/scp.c t_stat sim_activate_abs (UNIT *uptr, int32 event_time) uptr 8798 src/simh/scp.c sim_cancel (uptr); uptr 8799 src/simh/scp.c return _sim_activate (uptr, event_time); uptr 8811 src/simh/scp.c t_stat sim_activate_after (UNIT *uptr, uint32 usec_delay) uptr 8813 src/simh/scp.c return _sim_activate_after (uptr, usec_delay); uptr 8816 src/simh/scp.c t_stat _sim_activate_after (UNIT *uptr, uint32 usec_delay) uptr 8818 src/simh/scp.c if (sim_is_active (uptr)) /* already active? */ uptr 8820 src/simh/scp.c return sim_timer_activate_after (uptr, usec_delay); uptr 8832 src/simh/scp.c t_stat sim_cancel (UNIT *uptr) uptr 8841 src/simh/scp.c if (!sim_is_active (uptr)) uptr 8844 src/simh/scp.c sim_debug (SIM_DBG_EVENT, sim_dflt_dev, "Canceling Event for %s\n", sim_uname(uptr)); uptr 8847 src/simh/scp.c if (sim_clock_queue == uptr) { uptr 8848 src/simh/scp.c nptr = sim_clock_queue = uptr->next; uptr 8849 src/simh/scp.c uptr->next = NULL; /* hygiene */ uptr 8853 src/simh/scp.c if (cptr->next == uptr) { uptr 8854 src/simh/scp.c nptr = cptr->next = uptr->next; uptr 8855 src/simh/scp.c uptr->next = NULL; /* hygiene */ uptr 8861 src/simh/scp.c nptr->time += (uptr->next) ? 0 : uptr->time; uptr 8862 src/simh/scp.c if (!uptr->next) uptr 8863 src/simh/scp.c uptr->time = 0; uptr 8867 src/simh/scp.c if (uptr->next) { uptr 8868 src/simh/scp.c sim_printf ("\rCancel failed for '%s'!\r\n", sim_uname(uptr)); uptr 8886 src/simh/scp.c t_bool sim_is_active (UNIT *uptr) uptr 8888 src/simh/scp.c if (uptr->next == NULL) uptr 8902 src/simh/scp.c int32 sim_activate_time (UNIT *uptr) uptr 8914 src/simh/scp.c if (cptr == uptr) uptr 8942 src/simh/scp.c UNIT *uptr; uptr 8945 src/simh/scp.c for (uptr = sim_clock_queue; uptr != QUEUE_LIST_END; uptr = uptr->next) uptr 10440 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 10446 src/simh/scp.c sim_debug (reason, dptr, "%s %s %slen: %08X\n", sim_uname(uptr), txt, position, (unsigned int)len); uptr 10656 src/simh/scp.c UNIT *uptr, const char *htext, va_list ap) uptr 10715 src/simh/scp.c n = uptr? uptr - dptr->units: 0; uptr 11044 src/simh/scp.c UNIT *uptr, int32 flag, uptr 11065 src/simh/scp.c displayFlatHelp (st, dptr, uptr, flag, topic->children[i], ap); uptr 11109 src/simh/scp.c UNIT *uptr, int32 flag, uptr 11204 src/simh/scp.c (void) buildHelp (&top, dptr, uptr, help, ap); uptr 11219 src/simh/scp.c displayFlatHelp (st, dptr, uptr, flag, topic, ap); uptr 11236 src/simh/scp.c displayFlatHelp (st, dptr, uptr, flag, topic, ap); uptr 11314 src/simh/scp.c displayFlatHelp (st, dptr, uptr, flag, topic, ap); uptr 11366 src/simh/scp.c UNIT *uptr, int32 flag, uptr 11373 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 217 src/simh/scp.h UNIT *uptr, int32 flag, const char *help, const char *cptr, ...); uptr 219 src/simh/scp.h UNIT *uptr, int32 flag, const char *help, const char *cptr, va_list ap); uptr 221 src/simh/scp.h UNIT *uptr, int32 flag, const char *help, const char *cptr, ...); uptr 223 src/simh/scp.h UNIT *uptr, int32 flag, const char *help, const char *cptr, va_list ap); uptr 272 src/simh/scp.h UNIT *uptr, int32 sw); uptr 273 src/simh/scp.h extern t_stat parse_sym (CONST char *cptr, t_addr addr, UNIT *uptr, t_value *val, uptr 137 src/simh/sim_console.c static t_stat sim_con_poll_svc (UNIT *uptr); /* console connection poll routine */ uptr 188 src/simh/sim_console.c static t_stat sim_con_poll_svc (UNIT *uptr) uptr 197 src/simh/sim_console.c sim_activate_after(uptr, 1000000); /* check again in 1 second */ uptr 308 src/simh/sim_console.c t_stat sim_show_console (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 316 src/simh/sim_console.c show_con_tab[i].action (st, dptr, uptr, show_con_tab[i].arg, cptr); uptr 322 src/simh/sim_console.c shptr->action (st, dptr, uptr, shptr->arg, NULL); uptr 328 src/simh/sim_console.c t_stat sim_rem_con_poll_svc (UNIT *uptr); /* remote console connection poll routine */ uptr 329 src/simh/sim_console.c t_stat sim_rem_con_data_svc (UNIT *uptr); /* remote console connection data routine */ uptr 397 src/simh/sim_console.c t_stat sim_show_remote_console (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 444 src/simh/sim_console.c t_stat sim_rem_con_poll_svc (UNIT *uptr) uptr 453 src/simh/sim_console.c sim_activate_after(uptr + 1, 1000000); /* start data poll after 1 second */ uptr 474 src/simh/sim_console.c sim_activate_after(uptr, 1000000); /* check again in 1 second */ uptr 644 src/simh/sim_console.c t_stat sim_rem_con_data_svc (UNIT *uptr) uptr 1038 src/simh/sim_console.c sim_activate(uptr, steps); /* check again after 'steps' instructions */ uptr 1043 src/simh/sim_console.c sim_activate_after(uptr, 100000); /* check again in 100 milliseconds */ uptr 1262 src/simh/sim_console.c t_stat sim_show_kmap (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1297 src/simh/sim_console.c t_stat sim_show_cons_speed (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1354 src/simh/sim_console.c t_stat sim_show_log (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1457 src/simh/sim_console.c t_stat sim_show_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1829 src/simh/sim_console.c t_stat sim_show_cons_send_input (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 1914 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 365 src/simh/sim_defs.h UNIT *uptr, int32 flag, const char *cptr); uptr 368 src/simh/sim_defs.h UNIT *uptr, int32 flag, const char *cptr); uptr 544 src/simh/sim_defs.h t_stat (*action)(DEVICE *dptr, UNIT *uptr, uptr 553 src/simh/sim_defs.h UNIT *uptr, int32 flag, CONST char *cptr); uptr 118 src/simh/sim_disk.c t_stat sim_disk_set_fmt (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 122 src/simh/sim_disk.c if (uptr == NULL) uptr 130 src/simh/sim_disk.c uptr->flags = (uptr->flags & ~DKUF_FMT) | uptr 140 src/simh/sim_disk.c t_stat sim_disk_show_fmt (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 142 src/simh/sim_disk.c int32 f = DK_GET_FMT (uptr); uptr 156 src/simh/sim_disk.c t_stat sim_disk_set_capac (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 160 src/simh/sim_disk.c DEVICE *dptr = find_dev_from_unit (uptr); uptr 164 src/simh/sim_disk.c if (uptr->flags & UNIT_ATT) uptr 169 src/simh/sim_disk.c uptr->capac = (t_addr)((cap * ((t_offset) 1000000))/((dptr->flags & DEV_SECTORS) ? 512 : 1)); uptr 175 src/simh/sim_disk.c t_stat sim_disk_show_capac (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 178 src/simh/sim_disk.c DEVICE *dptr = find_dev_from_unit (uptr); uptr 179 src/simh/sim_disk.c t_offset capac = ((t_offset)uptr->capac)*((dptr->flags & DEV_SECTORS) ? 512 : 1); uptr 186 src/simh/sim_disk.c else if (uptr->capac >= (t_addr) 1000) uptr 196 src/simh/sim_disk.c t_bool sim_disk_isavailable (UNIT *uptr) uptr 198 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 200 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 210 src/simh/sim_disk.c t_bool sim_disk_isavailable_a (UNIT *uptr, DISK_PCALLBACK callback) uptr 213 src/simh/sim_disk.c r = sim_disk_isavailable (uptr); uptr 219 src/simh/sim_disk.c t_bool sim_disk_wrp (UNIT *uptr) uptr 221 src/simh/sim_disk.c return (uptr->flags & DKUF_WRP)? TRUE: FALSE; uptr 226 src/simh/sim_disk.c t_offset sim_disk_size (UNIT *uptr) uptr 228 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 230 src/simh/sim_disk.c return sim_fsize_ex (uptr->fileref); uptr 240 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 245 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 248 src/simh/sim_disk.c (unsigned long)(uptr-ctx->dptr->units), lba, (unsigned long)sects); uptr 254 src/simh/sim_disk.c err = sim_fseeko (uptr->fileref, da, SEEK_SET); /* set pos */ uptr 256 src/simh/sim_disk.c i = sim_fread (buf, ctx->xfer_element_size, tbc/ctx->xfer_element_size, uptr->fileref); uptr 259 src/simh/sim_disk.c err = ferror (uptr->fileref); uptr 266 src/simh/sim_disk.c t_stat sim_disk_rdsect (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectsread, t_seccnt sects) uptr 269 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 273 src/simh/sim_disk.c (unsigned long)(uptr-ctx->dptr->units), lba, (unsigned long)sects); uptr 276 src/simh/sim_disk.c (lba >= (uptr->capac*ctx->capac_factor)/(ctx->sector_size/((ctx->dptr->flags & DEV_SECTORS) ? 512 : 1)))) { uptr 286 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 288 src/simh/sim_disk.c return _sim_disk_rdsect (uptr, lba, buf, sectsread, sects); uptr 312 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 314 src/simh/sim_disk.c r = _sim_disk_rdsect (uptr, tlba, tbuf, &sread, tsects); uptr 333 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 336 src/simh/sim_disk.c r = sim_disk_rdsect (uptr, lba, buf, sectsread, sects); uptr 342 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 347 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 350 src/simh/sim_disk.c (unsigned long)(uptr-ctx->dptr->units), lba, (unsigned long)sects); uptr 356 src/simh/sim_disk.c err = sim_fseeko (uptr->fileref, da, SEEK_SET); /* set pos */ uptr 358 src/simh/sim_disk.c i = sim_fwrite (buf, ctx->xfer_element_size, tbc/ctx->xfer_element_size, uptr->fileref); uptr 359 src/simh/sim_disk.c err = ferror (uptr->fileref); uptr 366 src/simh/sim_disk.c t_stat sim_disk_wrsect (UNIT *uptr, t_lba lba, uint8 *buf, t_seccnt *sectswritten, t_seccnt sects) uptr 368 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 369 src/simh/sim_disk.c uint32 f = DK_GET_FMT (uptr); uptr 374 src/simh/sim_disk.c (unsigned long)(uptr-ctx->dptr->units), lba, (unsigned long)sects); uptr 376 src/simh/sim_disk.c if (uptr->dynflags & UNIT_DISK_CHK) { uptr 377 src/simh/sim_disk.c DEVICE *dptr = find_dev_from_unit (uptr); uptr 379 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 397 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), uptr 402 src/simh/sim_disk.c sim_disk_data_trace (uptr, buf+sect*ctx->sector_size, lba+sect, ctx->sector_size, "Found", TRUE, 1); uptr 409 src/simh/sim_disk.c return _sim_disk_wrsect (uptr, lba, buf, sectswritten, sects); uptr 415 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 425 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 445 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 452 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 459 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 474 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 477 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, lba, buf, sectswritten, sects); uptr 481 src/simh/sim_disk.c t_stat sim_disk_unload (UNIT *uptr) uptr 483 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 485 src/simh/sim_disk.c return sim_disk_detach (uptr); uptr 491 src/simh/sim_disk.c static void _sim_disk_io_flush (UNIT *uptr) uptr 493 src/simh/sim_disk.c uint32 f = DK_GET_FMT (uptr); uptr 497 src/simh/sim_disk.c (void)fflush (uptr->fileref); uptr 502 src/simh/sim_disk.c static t_stat _err_return (UNIT *uptr, t_stat stat) uptr 504 src/simh/sim_disk.c FREE (uptr->filename); uptr 505 src/simh/sim_disk.c uptr->filename = NULL; uptr 506 src/simh/sim_disk.c FREE (uptr->disk_ctx); uptr 507 src/simh/sim_disk.c uptr->disk_ctx = NULL; uptr 659 src/simh/sim_disk.c static t_offset get_filesystem_size (UNIT *uptr) uptr 673 src/simh/sim_disk.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 676 src/simh/sim_disk.c saved_capac = uptr->capac; uptr 678 src/simh/sim_disk.c uptr->capac = (t_addr)(temp_capac/(capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 679 src/simh/sim_disk.c if (sim_disk_rdsect (uptr, 1, (uint8 *)&Home, NULL, 1)) uptr 702 src/simh/sim_disk.c if (sim_disk_rdsect (uptr, Home.hm2_l_ibmaplbn+Home.hm2_w_ibmapsize+1, (uint8 *)&Header, NULL, 1)) uptr 724 src/simh/sim_disk.c if (sim_disk_rdsect (uptr, ScbLbn, (uint8 *)&Scb, NULL, 1)) uptr 735 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), uptr->filename, (unsigned long)Home.hm2_b_struclev); uptr 737 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), Home.hm2_t_volname); uptr 746 src/simh/sim_disk.c uptr->capac = saved_capac; uptr 750 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 763 src/simh/sim_disk.c if (uptr->flags & UNIT_DIS) /* disabled? */ uptr 765 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATTABLE)) /* not attachable? */ uptr 767 src/simh/sim_disk.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 774 src/simh/sim_disk.c if (sim_disk_set_fmt (uptr, 0, gbuf, NULL) != SCPE_OK) uptr 781 src/simh/sim_disk.c uptr->filename = (char *) calloc (CBUFSIZE, sizeof (char));/* alloc name buf */ uptr 782 src/simh/sim_disk.c uptr->disk_ctx = ctx = (struct disk_context *)calloc(1, sizeof(struct disk_context)); uptr 795 src/simh/sim_disk.c if ((uptr->filename == NULL) || (uptr->disk_ctx == NULL)) uptr 796 src/simh/sim_disk.c return _err_return (uptr, SCPE_MEM); uptr 807 src/simh/sim_disk.c strncpy (uptr->filename, cptr, CBUFSIZE); /* save name */ uptr 823 src/simh/sim_disk.c (unsigned long)(uptr-ctx->dptr->units), uptr->filename); uptr 827 src/simh/sim_disk.c ((uptr->flags & UNIT_RO) != 0)) { uptr 828 src/simh/sim_disk.c if (((uptr->flags & UNIT_ROABLE) == 0) && /* allowed? */ uptr 829 src/simh/sim_disk.c ((uptr->flags & UNIT_RO) == 0)) uptr 830 src/simh/sim_disk.c return _err_return (uptr, SCPE_NORO); /* no, error */ uptr 831 src/simh/sim_disk.c uptr->fileref = open_function (cptr, "rb"); /* open rd only */ uptr 832 src/simh/sim_disk.c if (uptr->fileref == NULL) /* open fail? */ uptr 833 src/simh/sim_disk.c return _err_return (uptr, SCPE_OPENERR); /* yes, error */ uptr 834 src/simh/sim_disk.c uptr->flags = uptr->flags | UNIT_RO; /* set rd only */ uptr 837 src/simh/sim_disk.c (unsigned long)(uptr-dptr->units), cptr); uptr 841 src/simh/sim_disk.c uptr->fileref = open_function (cptr, "rb+"); /* open r/w */ uptr 842 src/simh/sim_disk.c if (uptr->fileref == NULL) { /* open fail? */ uptr 844 src/simh/sim_disk.c if ((uptr->flags & UNIT_ROABLE) == 0) /* allowed? */ uptr 845 src/simh/sim_disk.c return _err_return (uptr, SCPE_NORO); /* no error */ uptr 846 src/simh/sim_disk.c uptr->fileref = open_function (cptr, "rb"); /* open rd only */ uptr 847 src/simh/sim_disk.c if (uptr->fileref == NULL) /* open fail? */ uptr 848 src/simh/sim_disk.c return _err_return (uptr, SCPE_OPENERR);/* yes, error */ uptr 849 src/simh/sim_disk.c uptr->flags = uptr->flags | UNIT_RO; /* set rd only */ uptr 852 src/simh/sim_disk.c (unsigned long)(uptr-dptr->units), cptr); uptr 856 src/simh/sim_disk.c return _err_return (uptr, SCPE_OPENERR);/* yes, error */ uptr 858 src/simh/sim_disk.c uptr->fileref = create_function (cptr, /* create new file */ uptr 859 src/simh/sim_disk.c ((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1)); uptr 861 src/simh/sim_disk.c uptr->fileref = open_function (cptr, "wb+");/* open new file */ uptr 862 src/simh/sim_disk.c if (uptr->fileref == NULL) /* open fail? */ uptr 863 src/simh/sim_disk.c return _err_return (uptr, SCPE_OPENERR);/* yes, error */ uptr 866 src/simh/sim_disk.c (unsigned long)(uptr-dptr->units), cptr); uptr 871 src/simh/sim_disk.c uptr->flags = uptr->flags | UNIT_ATT; uptr 872 src/simh/sim_disk.c uptr->pos = 0; uptr 876 src/simh/sim_disk.c storage_function (uptr->fileref, &ctx->storage_sector_size, &ctx->removable); uptr 884 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, uptr 885 src/simh/sim_disk.c (t_lba)(((((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1)) - \ uptr 888 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, (t_lba)(0), secbuf, NULL, 1); /* Write First Sector */ uptr 891 src/simh/sim_disk.c sim_disk_detach (uptr); /* report error now */ uptr 900 src/simh/sim_disk.c t_lba total_sectors = (t_lba)((uptr->capac*capac_factor)/(sector_size/((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 904 src/simh/sim_disk.c sim_disk_detach (uptr); /* report error now */ uptr 917 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, lba, init_buf, NULL, sects); uptr 920 src/simh/sim_disk.c sim_disk_detach (uptr); /* report error now */ uptr 926 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), uptr 932 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), uptr 943 src/simh/sim_disk.c t_lba total_sectors = (t_lba)((uptr->capac*capac_factor)/(sector_size/((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 948 src/simh/sim_disk.c sim_disk_detach (uptr); /* report error now */ uptr 955 src/simh/sim_disk.c r = sim_disk_rdsect (uptr, lba, verify_buf, NULL, sects); uptr 972 src/simh/sim_disk.c (unsigned long)(uptr-dptr->units), uptr 979 src/simh/sim_disk.c sim_disk_data_trace (uptr, verify_buf+sect*sector_size, lba+sect, sector_size, uptr 988 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), uptr 994 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), uptr 997 src/simh/sim_disk.c uptr->dynflags |= UNIT_DISK_CHK; uptr 1000 src/simh/sim_disk.c filesystem_capac = get_filesystem_size (uptr); uptr 1001 src/simh/sim_disk.c capac = size_function (uptr->fileref); uptr 1004 src/simh/sim_disk.c t_addr saved_capac = uptr->capac; uptr 1007 src/simh/sim_disk.c (filesystem_capac > (((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1)))) { uptr 1009 src/simh/sim_disk.c uptr->capac = (t_addr)(filesystem_capac/(ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 1011 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), cptr, sprint_capac (dptr, uptr)); uptr 1012 src/simh/sim_disk.c uptr->capac = saved_capac; uptr 1013 src/simh/sim_disk.c sim_printf ("%s)\n", sprint_capac (dptr, uptr)); uptr 1015 src/simh/sim_disk.c sim_disk_detach (uptr); uptr 1018 src/simh/sim_disk.c if ((capac < (((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))) && \ uptr 1019 src/simh/sim_disk.c (DKUF_F_STD != DK_GET_FMT (uptr))) { uptr 1021 src/simh/sim_disk.c uptr->capac = (t_addr)(capac/(ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 1023 src/simh/sim_disk.c sim_dname (dptr), (unsigned long)(uptr-dptr->units), cptr, sprint_capac (dptr, uptr)); uptr 1024 src/simh/sim_disk.c uptr->capac = saved_capac; uptr 1025 src/simh/sim_disk.c sim_printf ("%s)\n", sprint_capac (dptr, uptr)); uptr 1027 src/simh/sim_disk.c sim_disk_detach (uptr); uptr 1035 src/simh/sim_disk.c if ((capac > (((t_offset)uptr->capac)*ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))) || uptr 1036 src/simh/sim_disk.c (DKUF_F_STD != DK_GET_FMT (uptr))) uptr 1037 src/simh/sim_disk.c uptr->capac = (t_addr)(capac/(ctx->capac_factor*((dptr->flags & DEV_SECTORS) ? 512 : 1))); uptr 1041 src/simh/sim_disk.c uptr->io_flush = _sim_disk_io_flush; uptr 1046 src/simh/sim_disk.c t_stat sim_disk_detach (UNIT *uptr) uptr 1052 src/simh/sim_disk.c if ((uptr == NULL) || !(uptr->flags & UNIT_ATT)) uptr 1055 src/simh/sim_disk.c ctx = (struct disk_context *)uptr->disk_ctx; uptr 1056 src/simh/sim_disk.c fileref = uptr->fileref; uptr 1061 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 1068 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATTABLE)) /* attachable? */ uptr 1070 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 1072 src/simh/sim_disk.c if (NULL == find_dev_from_unit (uptr)) uptr 1075 src/simh/sim_disk.c if (uptr->io_flush) uptr 1076 src/simh/sim_disk.c uptr->io_flush (uptr); /* flush buffered data */ uptr 1078 src/simh/sim_disk.c uptr->flags &= ~(UNIT_ATT | UNIT_RO); uptr 1079 src/simh/sim_disk.c uptr->dynflags &= ~(UNIT_NO_FIO | UNIT_DISK_CHK); uptr 1080 src/simh/sim_disk.c FREE (uptr->filename); uptr 1081 src/simh/sim_disk.c uptr->filename = NULL; uptr 1082 src/simh/sim_disk.c uptr->fileref = NULL; uptr 1083 src/simh/sim_disk.c if (uptr->disk_ctx) { uptr 1084 src/simh/sim_disk.c FREE (uptr->disk_ctx); uptr 1085 src/simh/sim_disk.c uptr->disk_ctx = NULL; uptr 1087 src/simh/sim_disk.c uptr->io_flush = NULL; uptr 1089 src/simh/sim_disk.c sim_disk_set_fmt (uptr, 0, "SIMH", NULL); /* restore file format */ uptr 1095 src/simh/sim_disk.c t_stat sim_disk_attach_help(FILE *st, DEVICE *dptr, const UNIT *uptr, int32 flag, const char *cptr) uptr 1102 src/simh/sim_disk.c if (0 == (uptr-dptr->units)) { uptr 1133 src/simh/sim_disk.c t_stat sim_disk_reset (UNIT *uptr) uptr 1135 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 1137 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 1140 src/simh/sim_disk.c sim_debug (ctx->dbit, ctx->dptr, "sim_disk_reset(unit=%lu)\n", (unsigned long)(uptr-ctx->dptr->units)); uptr 1142 src/simh/sim_disk.c _sim_disk_io_flush(uptr); uptr 1146 src/simh/sim_disk.c t_stat sim_disk_perror (UNIT *uptr, const char *msg) uptr 1150 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATTABLE)) /* not attachable? */ uptr 1152 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 1155 src/simh/sim_disk.c sim_printf ("%s %s: %s (Error %d)\r\n", sim_uname(uptr), msg, xstrerror_l(saved_errno), saved_errno); uptr 1163 src/simh/sim_disk.c t_stat sim_disk_clearerr (UNIT *uptr) uptr 1165 src/simh/sim_disk.c if (!(uptr->flags & UNIT_ATTABLE)) /* not attachable? */ uptr 1167 src/simh/sim_disk.c switch (DK_GET_FMT (uptr)) { /* case on format */ uptr 1169 src/simh/sim_disk.c clearerr (uptr->fileref); uptr 1177 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 1179 src/simh/sim_disk.c struct disk_context *ctx = (struct disk_context *)uptr->disk_ctx; uptr 1185 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 109 src/simh/sim_tape.c static t_stat sim_tape_ioerr (UNIT *uptr); uptr 110 src/simh/sim_tape.c static t_stat sim_tape_wrdata (UNIT *uptr, uint32 dat); uptr 111 src/simh/sim_tape.c static uint32 sim_tape_tpc_map (UNIT *uptr, t_addr *map, uint32 mapsize); uptr 112 src/simh/sim_tape.c static t_stat sim_tape_simh_check (UNIT *uptr); uptr 113 src/simh/sim_tape.c static t_stat sim_tape_e11_check (UNIT *uptr); uptr 114 src/simh/sim_tape.c static t_addr sim_tape_tpc_fnd (UNIT *uptr, t_addr *map); uptr 115 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 128 src/simh/sim_tape.c static void _sim_tape_io_flush (UNIT *uptr) uptr 130 src/simh/sim_tape.c (void)fflush (uptr->fileref); uptr 135 src/simh/sim_tape.c t_stat sim_tape_attach (UNIT *uptr, CONST char *cptr) uptr 139 src/simh/sim_tape.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 141 src/simh/sim_tape.c return sim_tape_attach_ex (uptr, cptr, (dptr->flags & DEV_DEBUG) ? 0xFFFFFFFF : 0, 0); uptr 144 src/simh/sim_tape.c t_stat sim_tape_attach_ex (UNIT *uptr, const char *cptr, uint32 dbit, int completion_delay) uptr 153 src/simh/sim_tape.c if ((dptr = find_dev_from_unit (uptr)) == NULL) uptr 159 src/simh/sim_tape.c if (sim_tape_set_fmt (uptr, 0, gbuf, NULL) != SCPE_OK) uptr 164 src/simh/sim_tape.c if (MT_GET_FMT (uptr) == MTUF_F_TPC) uptr 166 src/simh/sim_tape.c r = attach_unit (uptr, (CONST char *)cptr); /* attach unit */ uptr 169 src/simh/sim_tape.c switch (MT_GET_FMT (uptr)) { /* case on format */ uptr 172 src/simh/sim_tape.c if (SCPE_OK != sim_tape_simh_check (uptr)) { uptr 173 src/simh/sim_tape.c sim_tape_detach (uptr); uptr 179 src/simh/sim_tape.c if (SCPE_OK != sim_tape_e11_check (uptr)) { uptr 180 src/simh/sim_tape.c sim_tape_detach (uptr); uptr 186 src/simh/sim_tape.c objc = sim_tape_tpc_map (uptr, NULL, 0); /* get # objects */ uptr 188 src/simh/sim_tape.c sim_tape_detach (uptr); uptr 191 src/simh/sim_tape.c uptr->filebuf = calloc (objc + 1, sizeof (t_addr)); uptr 192 src/simh/sim_tape.c if (uptr->filebuf == NULL) { /* map allocated? */ uptr 193 src/simh/sim_tape.c sim_tape_detach (uptr); uptr 196 src/simh/sim_tape.c uptr->hwmark = objc + 1; /* save map size */ uptr 197 src/simh/sim_tape.c sim_tape_tpc_map (uptr, (t_addr *) uptr->filebuf, objc);/* fill map */ uptr 204 src/simh/sim_tape.c uptr->tape_ctx = ctx = (struct tape_context *)calloc(1, sizeof(struct tape_context)); uptr 221 src/simh/sim_tape.c sim_tape_rewind (uptr); uptr 223 src/simh/sim_tape.c uptr->io_flush = _sim_tape_io_flush; uptr 230 src/simh/sim_tape.c t_stat sim_tape_detach (UNIT *uptr) uptr 237 src/simh/sim_tape.c if (uptr == NULL) uptr 240 src/simh/sim_tape.c if (!(uptr->flags & UNIT_ATT)) uptr 243 src/simh/sim_tape.c ctx = (struct tape_context *)uptr->tape_ctx; uptr 244 src/simh/sim_tape.c f = MT_GET_FMT (uptr); uptr 246 src/simh/sim_tape.c if (uptr->io_flush) uptr 247 src/simh/sim_tape.c uptr->io_flush (uptr); /* flush buffered data */ uptr 251 src/simh/sim_tape.c r = detach_unit (uptr); /* detach unit */ uptr 257 src/simh/sim_tape.c if (uptr->filebuf) /* free map */ uptr 258 src/simh/sim_tape.c FREE (uptr->filebuf); uptr 259 src/simh/sim_tape.c uptr->filebuf = NULL; uptr 260 src/simh/sim_tape.c uptr->hwmark = 0; uptr 267 src/simh/sim_tape.c sim_tape_rewind (uptr); uptr 268 src/simh/sim_tape.c FREE (uptr->tape_ctx); uptr 269 src/simh/sim_tape.c uptr->tape_ctx = NULL; uptr 270 src/simh/sim_tape.c uptr->io_flush = NULL; uptr 272 src/simh/sim_tape.c sim_tape_set_fmt (uptr, 0, "SIMH", NULL); /* restore default format */ uptr 276 src/simh/sim_tape.c t_stat sim_tape_attach_help(FILE *st, DEVICE *dptr, const UNIT *uptr, int32 flag, const char *cptr) uptr 279 src/simh/sim_tape.c if (0 == (uptr-dptr->units)) { uptr 301 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 303 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 308 src/simh/sim_tape.c sim_data_trace(ctx->dptr, uptr, (detail ? data : NULL), "", len, txt, reason); uptr 396 src/simh/sim_tape.c static t_stat sim_tape_rdlntf (UNIT *uptr, t_mtrlnt *bc) uptr 398 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 401 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 409 src/simh/sim_tape.c MT_CLR_PNU (uptr); /* clear the position-not-updated flag */ uptr 411 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* if the unit is not attached */ uptr 416 src/simh/sim_tape.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* set the initial tape position */ uptr 422 src/simh/sim_tape.c runaway_counter = 25 * 12 * bpi [MT_DENS (uptr->dynflags)]; /* set the largest legal gap size in bytes */ uptr 436 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* if we hit the EOF while reading a gap */ uptr 454 src/simh/sim_tape.c uptr->fileref); uptr 456 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* if a file I/O error occurred */ uptr 458 src/simh/sim_tape.c MT_SET_PNU (uptr); /* then set position not updated */ uptr 460 src/simh/sim_tape.c r = sim_tape_ioerr (uptr); /* report the error and quit */ uptr 467 src/simh/sim_tape.c MT_SET_PNU (uptr); /* then set position not updated */ uptr 494 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_mtrlnt); /* space over the marker */ uptr 505 src/simh/sim_tape.c uptr->pos = uptr->pos - sizeof (t_mtrlnt) / 2; /* then back up */ uptr 506 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* to resync */ uptr 515 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* then seek to the data area */ uptr 518 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_mtrlnt) /* position to the start */ uptr 530 src/simh/sim_tape.c (void)sim_fread (&tpcbc, sizeof (t_tpclnt), 1, uptr->fileref); uptr 532 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 533 src/simh/sim_tape.c MT_SET_PNU (uptr); /* pos not upd */ uptr 534 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 536 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* eof? */ uptr 537 src/simh/sim_tape.c MT_SET_PNU (uptr); /* pos not upd */ uptr 541 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_tpclnt); /* spc over reclnt */ uptr 544 src/simh/sim_tape.c uptr->pos = uptr->pos + ((tpcbc + 1) & ~1); /* spc over record */ uptr 549 src/simh/sim_tape.c (void)sim_fread (&c, sizeof (uint8), 1, uptr->fileref); uptr 550 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 551 src/simh/sim_tape.c MT_SET_PNU (uptr); /* pos not upd */ uptr 552 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 554 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* eof? */ uptr 565 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* for read */ uptr 566 src/simh/sim_tape.c uptr->pos = uptr->pos + sbc; /* spc over record */ uptr 576 src/simh/sim_tape.c (long long)r, (long long)*bc, uptr->pos); uptr 610 src/simh/sim_tape.c static t_stat sim_tape_rdlntr (UNIT *uptr, t_mtrlnt *bc) uptr 612 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 615 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 624 src/simh/sim_tape.c MT_CLR_PNU (uptr); /* clear the position-not-updated flag */ uptr 627 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* if the unit is not attached */ uptr 632 src/simh/sim_tape.c if (sim_tape_bot (uptr)) /* if the unit is positioned at the BOT */ uptr 639 src/simh/sim_tape.c runaway_counter = 25 * 12 * bpi [MT_DENS (uptr->dynflags)]; /* set largest legal gap size in bytes */ uptr 654 src/simh/sim_tape.c if (sim_tape_bot (uptr)) { /* if the search has backed into the BOT */ uptr 659 src/simh/sim_tape.c else if (uptr->pos < sizeof (buffer)) /* if less than a full buffer remains */ uptr 660 src/simh/sim_tape.c bufcap = (size_t) uptr->pos /* then reduce the capacity accordingly */ uptr 663 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, /* seek back to the location */ uptr 664 src/simh/sim_tape.c uptr->pos - bufcap * sizeof (t_mtrlnt), /* corresponding to the start */ uptr 668 src/simh/sim_tape.c bufcap, uptr->fileref); /* with tape metadata */ uptr 670 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* if a file I/O error occurred */ uptr 671 src/simh/sim_tape.c MT_SET_PNU (uptr); /* then set position not updated */ uptr 672 src/simh/sim_tape.c r = sim_tape_ioerr (uptr); /* report the error and quit */ uptr 683 src/simh/sim_tape.c uptr->pos = uptr->pos - sizeof (t_mtrlnt); /* backspace over the marker */ uptr 695 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (t_mtrlnt) / 2; /* then position forward to resync */ uptr 704 src/simh/sim_tape.c uptr->pos = uptr->pos - sizeof (t_mtrlnt) /* position to the start */ uptr 706 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, /* seek to the data area */ uptr 707 src/simh/sim_tape.c uptr->pos + sizeof (t_mtrlnt), SEEK_SET); uptr 718 src/simh/sim_tape.c ppos = sim_tape_tpc_fnd (uptr, (t_addr *) uptr->filebuf); /* find prev rec */ uptr 719 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, ppos, SEEK_SET); /* position */ uptr 720 src/simh/sim_tape.c (void)sim_fread (&tpcbc, sizeof (t_tpclnt), 1, uptr->fileref); uptr 722 src/simh/sim_tape.c if (ferror (uptr->fileref)) /* error? */ uptr 723 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 724 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* eof? */ uptr 728 src/simh/sim_tape.c uptr->pos = ppos; /* spc over record */ uptr 733 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos + sizeof (t_tpclnt), SEEK_SET); uptr 737 src/simh/sim_tape.c for (sbc = 1, all_eof = 1; (t_addr) sbc <= uptr->pos ; sbc++) { uptr 738 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos - sbc, SEEK_SET); uptr 739 src/simh/sim_tape.c (void)sim_fread (&c, sizeof (uint8), 1, uptr->fileref); uptr 740 src/simh/sim_tape.c if (ferror (uptr->fileref)) /* error? */ uptr 741 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 742 src/simh/sim_tape.c if (feof (uptr->fileref)) { /* eof? */ uptr 751 src/simh/sim_tape.c uptr->pos = uptr->pos - sbc; /* update position */ uptr 753 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* for read */ uptr 762 src/simh/sim_tape.c (long long)r, (long long)*bc, uptr->pos); uptr 787 src/simh/sim_tape.c t_stat sim_tape_rdrecf (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max) uptr 789 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 790 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 798 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), buf, (long long)max); uptr 800 src/simh/sim_tape.c opos = uptr->pos; /* old position */ uptr 801 src/simh/sim_tape.c if (MTSE_OK != (st = sim_tape_rdlntf (uptr, &tbc))) /* read rec lnt */ uptr 805 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 806 src/simh/sim_tape.c uptr->pos = opos; uptr 809 src/simh/sim_tape.c i = (t_mtrlnt)sim_fread (buf, sizeof (uint8), rbc, uptr->fileref);/* read record */ uptr 810 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 811 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 812 src/simh/sim_tape.c uptr->pos = opos; uptr 813 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 819 src/simh/sim_tape.c sim_tape_data_trace(uptr, buf, rbc, "Record Read", ctx->dptr->dctrl & MTSE_DBG_DAT, MTSE_DBG_STR); uptr 823 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 826 src/simh/sim_tape.c r = sim_tape_rdrecf (uptr, buf, bc, max); uptr 852 src/simh/sim_tape.c t_stat sim_tape_rdrecr (UNIT *uptr, uint8 *buf, t_mtrlnt *bc, t_mtrlnt max) uptr 854 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 855 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 862 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), buf, (long long)max); uptr 864 src/simh/sim_tape.c if (MTSE_OK != (st = sim_tape_rdlntr (uptr, &tbc))) /* read rec lnt */ uptr 869 src/simh/sim_tape.c i = (t_mtrlnt)sim_fread (buf, sizeof (uint8), rbc, uptr->fileref);/* read record */ uptr 870 src/simh/sim_tape.c if (ferror (uptr->fileref)) /* error? */ uptr 871 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 876 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 880 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 883 src/simh/sim_tape.c r = sim_tape_rdrecr (uptr, buf, bc, max); uptr 904 src/simh/sim_tape.c t_stat sim_tape_wrrecf (UNIT *uptr, uint8 *buf, t_mtrlnt bc) uptr 906 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 907 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 913 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), buf, (long long)bc); uptr 915 src/simh/sim_tape.c sim_tape_data_trace(uptr, buf, bc, "Record Write", ctx->dptr->dctrl & MTSE_DBG_DAT, MTSE_DBG_STR); uptr 916 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 918 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* not attached? */ uptr 920 src/simh/sim_tape.c if (sim_tape_wrp (uptr)) /* write prot? */ uptr 924 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* set pos */ uptr 931 src/simh/sim_tape.c (void)sim_fwrite (&bc, sizeof (t_mtrlnt), 1, uptr->fileref); uptr 932 src/simh/sim_tape.c (void)sim_fwrite (buf, sizeof (uint8), sbc, uptr->fileref); uptr 933 src/simh/sim_tape.c (void)sim_fwrite (&bc, sizeof (t_mtrlnt), 1, uptr->fileref); uptr 934 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 935 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 936 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 938 src/simh/sim_tape.c uptr->pos = uptr->pos + sbc + (2 * sizeof (t_mtrlnt)); /* move tape */ uptr 943 src/simh/sim_tape.c (void)sim_fwrite (buf, sizeof (uint8), sbc, uptr->fileref); uptr 944 src/simh/sim_tape.c (void)sim_fwrite (buf, sizeof (uint8), 1, uptr->fileref); /* delimit rec */ uptr 945 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 946 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 947 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 949 src/simh/sim_tape.c uptr->pos = uptr->pos + sbc; /* move tape */ uptr 952 src/simh/sim_tape.c sim_tape_data_trace(uptr, buf, sbc, "Record Written", ctx->dptr->dctrl & MTSE_DBG_DAT, MTSE_DBG_STR); uptr 956 src/simh/sim_tape.c t_stat sim_tape_wrrecf_a (UNIT *uptr, uint8 *buf, t_mtrlnt bc, TAPE_PCALLBACK callback) uptr 959 src/simh/sim_tape.c r = sim_tape_wrrecf (uptr, buf, bc); uptr 965 src/simh/sim_tape.c static t_stat sim_tape_wrdata (UNIT *uptr, uint32 dat) uptr 967 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 969 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 970 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* not attached? */ uptr 974 src/simh/sim_tape.c if (sim_tape_wrp (uptr)) /* write prot? */ uptr 976 src/simh/sim_tape.c (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* set pos */ uptr 977 src/simh/sim_tape.c (void)sim_fwrite (&dat, sizeof (uint32_t), 1, uptr->fileref); uptr 978 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* error? */ uptr 979 src/simh/sim_tape.c MT_SET_PNU (uptr); uptr 980 src/simh/sim_tape.c return sim_tape_ioerr (uptr); uptr 983 src/simh/sim_tape.c (long long)dat, uptr->pos); uptr 984 src/simh/sim_tape.c uptr->pos = uptr->pos + sizeof (uint32_t); /* move tape */ uptr 990 src/simh/sim_tape.c t_stat sim_tape_wrtmk (UNIT *uptr) uptr 992 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 996 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_wrtmk(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 997 src/simh/sim_tape.c if (MT_GET_FMT (uptr) == MTUF_F_P7B) { /* P7B? */ uptr 999 src/simh/sim_tape.c return sim_tape_wrrecf (uptr, &buf, 1); /* write char */ uptr 1001 src/simh/sim_tape.c return sim_tape_wrdata (uptr, MTR_TMK); uptr 1004 src/simh/sim_tape.c t_stat sim_tape_wrtmk_a (UNIT *uptr, TAPE_PCALLBACK callback) uptr 1007 src/simh/sim_tape.c r = sim_tape_wrtmk (uptr); uptr 1013 src/simh/sim_tape.c t_stat sim_tape_wreom (UNIT *uptr) uptr 1016 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1020 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_wreom(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1021 src/simh/sim_tape.c if (MT_GET_FMT (uptr) == MTUF_F_P7B) /* can't do P7B */ uptr 1024 src/simh/sim_tape.c result = sim_tape_wrdata (uptr, MTR_EOM); /* write the EOM marker */ uptr 1026 src/simh/sim_tape.c uptr->pos = uptr->pos - sizeof (t_mtrlnt); /* restore original tape position */ uptr 1027 src/simh/sim_tape.c MT_SET_PNU (uptr); /* indicate that position was not updated */ uptr 1032 src/simh/sim_tape.c t_stat sim_tape_wreom_a (UNIT *uptr, TAPE_PCALLBACK callback) uptr 1035 src/simh/sim_tape.c r = sim_tape_wreom (uptr); uptr 1041 src/simh/sim_tape.c t_stat sim_tape_wreomrw (UNIT *uptr) uptr 1043 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1048 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_wreomrw(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1049 src/simh/sim_tape.c if (MT_GET_FMT (uptr) == MTUF_F_P7B) /* cant do P7B */ uptr 1051 src/simh/sim_tape.c r = sim_tape_wrdata (uptr, MTR_EOM); uptr 1053 src/simh/sim_tape.c r = sim_tape_rewind (uptr); uptr 1057 src/simh/sim_tape.c t_stat sim_tape_wreomrw_a (UNIT *uptr, TAPE_PCALLBACK callback) uptr 1060 src/simh/sim_tape.c r = sim_tape_wreomrw (uptr); uptr 1164 src/simh/sim_tape.c t_stat sim_tape_wrgap (UNIT *uptr, uint32 gaplen) uptr 1166 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1169 src/simh/sim_tape.c t_addr gap_pos = uptr->pos; uptr 1173 src/simh/sim_tape.c const uint32 format = MT_GET_FMT (uptr); /* tape format */ uptr 1179 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 1181 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 1183 src/simh/sim_tape.c if ((uptr->flags & UNIT_ATT) == 0) /* if the unit is not attached */ uptr 1186 src/simh/sim_tape.c else if (sim_tape_wrp (uptr)) /* otherwise if the unit is write protected */ uptr 1189 src/simh/sim_tape.c tape_density = bpi [MT_DENS (uptr->dynflags)]; /* get the density of the tape */ uptr 1198 src/simh/sim_tape.c file_size = sim_fsize (uptr->fileref); /* get file size */ uptr 1199 src/simh/sim_tape.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* position tape */ uptr 1213 src/simh/sim_tape.c (void)sim_fread (&meta, meta_size, 1, uptr->fileref); /* read metadatum */ uptr 1215 src/simh/sim_tape.c if (ferror (uptr->fileref)) { /* read error? */ uptr 1216 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore original position */ uptr 1217 src/simh/sim_tape.c MT_SET_PNU (uptr); /* position not updated */ uptr 1218 src/simh/sim_tape.c return sim_tape_ioerr (uptr); /* translate error */ uptr 1221 src/simh/sim_tape.c uptr->pos = uptr->pos + meta_size; /* move tape over datum */ uptr 1223 src/simh/sim_tape.c if (feof (uptr->fileref) || (meta == MTR_EOM)) { /* at eof or eom? */ uptr 1234 src/simh/sim_tape.c uptr->pos = uptr->pos - meta_size / 2; /* backup to resync */ uptr 1235 src/simh/sim_tape.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* position tape */ uptr 1240 src/simh/sim_tape.c else if (uptr->pos + uptr 1257 src/simh/sim_tape.c uptr->pos = uptr->pos - meta_size + rec_size; /* position past record */ uptr 1258 src/simh/sim_tape.c sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* move tape */ uptr 1264 src/simh/sim_tape.c uptr->pos = uptr->pos - meta_size + gap_needed; /* position to end of gap */ uptr 1266 src/simh/sim_tape.c st = sim_tape_wrdata (uptr, new_len); /* write new rec len */ uptr 1269 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore orig pos */ uptr 1273 src/simh/sim_tape.c uptr->pos = uptr->pos + sbc - gap_needed; /* position to end of data */ uptr 1274 src/simh/sim_tape.c st = sim_tape_wrdata (uptr, new_len); /* write new rec len */ uptr 1277 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore orig pos */ uptr 1288 src/simh/sim_tape.c uptr->pos = gap_pos; /* reposition to gap start */ uptr 1291 src/simh/sim_tape.c st = sim_tape_wrdata (uptr, MTR_FHGAP); /* write half gap marker */ uptr 1293 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore orig pos */ uptr 1296 src/simh/sim_tape.c uptr->pos = uptr->pos - meta_size / 2; /* realign position */ uptr 1303 src/simh/sim_tape.c st = sim_tape_wrdata (uptr, MTR_GAP); /* write gap markers */ uptr 1305 src/simh/sim_tape.c uptr->pos = gap_pos; /* restore orig pos */ uptr 1314 src/simh/sim_tape.c t_stat sim_tape_wrgap_a (UNIT *uptr, uint32 gaplen, TAPE_PCALLBACK callback) uptr 1338 src/simh/sim_tape.c t_stat sim_tape_sprecf (UNIT *uptr, t_mtrlnt *bc) uptr 1340 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1346 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_sprecf(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1348 src/simh/sim_tape.c st = sim_tape_rdlntf (uptr, bc); /* get record length */ uptr 1353 src/simh/sim_tape.c t_stat sim_tape_sprecf_a (UNIT *uptr, t_mtrlnt *bc, TAPE_PCALLBACK callback) uptr 1356 src/simh/sim_tape.c r = sim_tape_sprecf (uptr, bc); uptr 1379 src/simh/sim_tape.c t_stat sim_tape_sprecsf (UNIT *uptr, uint32 count, uint32 *skipped) uptr 1381 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1388 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), (long long)count); uptr 1392 src/simh/sim_tape.c st = sim_tape_sprecf (uptr, &tbc); /* spc rec */ uptr 1400 src/simh/sim_tape.c t_stat sim_tape_sprecsf_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback) uptr 1403 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, count, skipped); uptr 1426 src/simh/sim_tape.c t_stat sim_tape_sprecr (UNIT *uptr, t_mtrlnt *bc) uptr 1428 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1433 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_sprecr(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1435 src/simh/sim_tape.c if (MT_TST_PNU (uptr)) { uptr 1436 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 1440 src/simh/sim_tape.c st = sim_tape_rdlntr (uptr, bc); /* get record length */ uptr 1445 src/simh/sim_tape.c t_stat sim_tape_sprecr_a (UNIT *uptr, t_mtrlnt *bc, TAPE_PCALLBACK callback) uptr 1448 src/simh/sim_tape.c r = sim_tape_sprecr (uptr, bc); uptr 1472 src/simh/sim_tape.c t_stat sim_tape_sprecsr (UNIT *uptr, uint32 count, uint32 *skipped) uptr 1474 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1481 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), (long long)count); uptr 1485 src/simh/sim_tape.c st = sim_tape_sprecr (uptr, &tbc); /* spc rec rev */ uptr 1493 src/simh/sim_tape.c t_stat sim_tape_sprecsr_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback) uptr 1496 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, count, skipped); uptr 1521 src/simh/sim_tape.c t_stat sim_tape_spfilebyrecf (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, t_bool check_leot) uptr 1523 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1531 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), (long long)count, (long long)check_leot); uptr 1536 src/simh/sim_tape.c st = sim_tape_rdlntr (uptr, &rbc); uptr 1539 src/simh/sim_tape.c sim_tape_rdlntf (uptr, &rbc); uptr 1545 src/simh/sim_tape.c st = sim_tape_sprecsf (uptr, 0x1ffffff, &filerecsskipped);/* spc recs */ uptr 1554 src/simh/sim_tape.c sim_tape_spfilebyrecr (uptr, 1, &filefileskipped, &filerecsskipped); uptr 1567 src/simh/sim_tape.c (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, t_bool check_leot, TAPE_PCALLBACK callback) uptr 1571 src/simh/sim_tape.c (uptr, count, skipped, recsskipped, check_leot); uptr 1594 src/simh/sim_tape.c t_stat sim_tape_spfilef (UNIT *uptr, uint32 count, uint32 *skipped) uptr 1596 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1602 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), (long long)count); uptr 1604 src/simh/sim_tape.c return sim_tape_spfilebyrecf (uptr, count, skipped, &totalrecsskipped, FALSE); uptr 1607 src/simh/sim_tape.c t_stat sim_tape_spfilef_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback) uptr 1610 src/simh/sim_tape.c r = sim_tape_spfilef (uptr, count, skipped); uptr 1635 src/simh/sim_tape.c t_stat sim_tape_spfilebyrecr (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped) uptr 1637 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1646 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), (long long)count); uptr 1650 src/simh/sim_tape.c st = sim_tape_sprecsr (uptr, 0x1ffffff, &filerecsskipped);/* spc recs rev */ uptr 1663 src/simh/sim_tape.c t_stat sim_tape_spfilebyrecr_a (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, TAPE_PCALLBACK callback) uptr 1666 src/simh/sim_tape.c r = sim_tape_spfilebyrecr (uptr, count, skipped, recsskipped); uptr 1690 src/simh/sim_tape.c t_stat sim_tape_spfiler (UNIT *uptr, uint32 count, uint32 *skipped) uptr 1692 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1698 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), (long long)count); uptr 1700 src/simh/sim_tape.c return sim_tape_spfilebyrecr (uptr, count, skipped, &totalrecsskipped); uptr 1703 src/simh/sim_tape.c t_stat sim_tape_spfiler_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback) uptr 1706 src/simh/sim_tape.c r = sim_tape_spfiler (uptr, count, skipped); uptr 1712 src/simh/sim_tape.c t_stat sim_tape_rewind (UNIT *uptr) uptr 1714 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1716 src/simh/sim_tape.c if (uptr->flags & UNIT_ATT) { uptr 1719 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_rewind(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1721 src/simh/sim_tape.c uptr->pos = 0; uptr 1722 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 1726 src/simh/sim_tape.c t_stat sim_tape_rewind_a (UNIT *uptr, TAPE_PCALLBACK callback) uptr 1729 src/simh/sim_tape.c r = sim_tape_rewind (uptr); uptr 1736 src/simh/sim_tape.c (UNIT *uptr, uint32 flags, uint32 recs, uint32 *recsskipped, uint32 files, uint32 *filesskipped, uint32 *objectsskipped) uptr 1738 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1744 src/simh/sim_tape.c (int)(uptr-ctx->dptr->units), flags, (long long)recs, (long long)files); uptr 1748 src/simh/sim_tape.c r = sim_tape_rewind (uptr); uptr 1758 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, objsremaining, &skipped); uptr 1760 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, objsremaining, &skipped); uptr 1773 src/simh/sim_tape.c r = sim_tape_spfilebyrecr (uptr, files, filesskipped, &fileskiprecs); uptr 1775 src/simh/sim_tape.c r = sim_tape_spfilebyrecf (uptr, files, filesskipped, &fileskiprecs, (flags & MTPOS_M_DLE)); uptr 1779 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, recs, recsskipped); uptr 1781 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, recs, recsskipped); uptr 1790 src/simh/sim_tape.c (UNIT *uptr, uint32 flags, uint32 recs, uint32 *recsskipped, uint32 files, uptr 1794 src/simh/sim_tape.c r = sim_tape_position (uptr, flags, recs, recsskipped, files, filesskipped, objectsskipped); uptr 1800 src/simh/sim_tape.c t_stat sim_tape_reset (UNIT *uptr) uptr 1802 src/simh/sim_tape.c struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx; uptr 1804 src/simh/sim_tape.c MT_CLR_PNU (uptr); uptr 1805 src/simh/sim_tape.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 1810 src/simh/sim_tape.c sim_debug (ctx->dbit, ctx->dptr, "sim_tape_reset(unit=%d)\n", (int)(uptr-ctx->dptr->units)); uptr 1812 src/simh/sim_tape.c _sim_tape_io_flush(uptr); uptr 1818 src/simh/sim_tape.c t_bool sim_tape_bot (UNIT *uptr) uptr 1820 src/simh/sim_tape.c uint32 f = MT_GET_FMT (uptr); uptr 1822 src/simh/sim_tape.c return (uptr->pos <= fmts[f].bot)? TRUE: FALSE; uptr 1827 src/simh/sim_tape.c t_bool sim_tape_eot (UNIT *uptr) uptr 1829 src/simh/sim_tape.c return (uptr->capac && (uptr->pos >= uptr->capac))? TRUE: FALSE; uptr 1834 src/simh/sim_tape.c t_bool sim_tape_wrp (UNIT *uptr) uptr 1836 src/simh/sim_tape.c return ((uptr->flags & MTUF_WRP) || (MT_GET_FMT (uptr) == MTUF_F_TPC))? TRUE: FALSE; uptr 1841 src/simh/sim_tape.c static t_stat sim_tape_ioerr (UNIT *uptr) uptr 1843 src/simh/sim_tape.c sim_printf ("%s: Magtape library I/O error: %s (Error %d)\r\n", sim_uname (uptr), xstrerror_l(errno), errno); uptr 1844 src/simh/sim_tape.c clearerr (uptr->fileref); uptr 1850 src/simh/sim_tape.c t_stat sim_tape_set_fmt (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 1854 src/simh/sim_tape.c if (uptr == NULL) uptr 1856 src/simh/sim_tape.c if (uptr->flags & UNIT_ATT) uptr 1862 src/simh/sim_tape.c uptr->flags = (uptr->flags & ~MTUF_FMT) | uptr 1872 src/simh/sim_tape.c t_stat sim_tape_show_fmt (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 1874 src/simh/sim_tape.c int32 f = MT_GET_FMT (uptr); uptr 1884 src/simh/sim_tape.c static uint32 sim_tape_tpc_map (UNIT *uptr, t_addr *map, uint32 mapsize) uptr 1894 src/simh/sim_tape.c DEVICE *dptr = find_dev_from_unit (uptr); uptr 1896 src/simh/sim_tape.c if ((uptr == NULL) || (uptr->fileref == NULL)) uptr 1924 src/simh/sim_tape.c tape_size = (t_addr)sim_fsize (uptr->fileref); uptr 1927 src/simh/sim_tape.c sim_fseek (uptr->fileref, tpos, SEEK_SET); uptr 1928 src/simh/sim_tape.c i = sim_fread (&bc, sizeof (t_tpclnt), 1, uptr->fileref); uptr 1940 src/simh/sim_tape.c (void)sim_fread (recbuf, 1, bc, uptr->fileref); uptr 1941 src/simh/sim_tape.c sim_data_trace(dptr, uptr, ((dptr->dctrl & MTSE_DBG_DAT) ? recbuf : NULL), "", bc, "Data Record", MTSE_DBG_STR); uptr 2004 src/simh/sim_tape.c static t_stat sim_tape_simh_check (UNIT *uptr) uptr 2011 src/simh/sim_tape.c static t_stat sim_tape_e11_check (UNIT *uptr) uptr 2018 src/simh/sim_tape.c static t_addr sim_tape_tpc_fnd (UNIT *uptr, t_addr *map) uptr 2025 src/simh/sim_tape.c hi = uptr->hwmark - 1; uptr 2028 src/simh/sim_tape.c if (uptr->pos == map[p]) uptr 2030 src/simh/sim_tape.c else if (uptr->pos < map[p]) uptr 2040 src/simh/sim_tape.c t_stat sim_tape_set_capac (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 2047 src/simh/sim_tape.c if (uptr->flags & UNIT_ATT) uptr 2052 src/simh/sim_tape.c uptr->capac = cap * ((t_addr) 1000000); uptr 2058 src/simh/sim_tape.c t_stat sim_tape_show_capac (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 2060 src/simh/sim_tape.c if (uptr->capac) { uptr 2061 src/simh/sim_tape.c if (uptr->capac >= (t_addr) 1000000) uptr 2062 src/simh/sim_tape.c fprintf (st, "capacity : %luMB", (unsigned long)(uptr->capac / ((t_addr) 1000000))); uptr 2064 src/simh/sim_tape.c if (uptr->capac >= (t_addr) 1000) uptr 2065 src/simh/sim_tape.c fprintf (st, "capacity : %luKB", (unsigned long)(uptr->capac / ((t_addr) 1000))); uptr 2067 src/simh/sim_tape.c fprintf (st, "capacity : %luB", (unsigned long)uptr->capac); uptr 2094 src/simh/sim_tape.c t_stat sim_tape_set_dens (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 2099 src/simh/sim_tape.c if (uptr == NULL) /* if the unit pointer is null */ uptr 2104 src/simh/sim_tape.c uptr->dynflags = (uptr->dynflags & ~MTVF_DENS_MASK) /* then insert the code */ uptr 2121 src/simh/sim_tape.c uptr->dynflags = (uptr->dynflags & ~MTVF_DENS_MASK) /* then store the index of the value */ uptr 2134 src/simh/sim_tape.c t_stat sim_tape_show_dens (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 2138 src/simh/sim_tape.c if (uptr == NULL) /* if the unit pointer is null */ uptr 2142 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 181 src/simh/sim_tape.h (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, t_bool check_leot); uptr 183 src/simh/sim_tape.h (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, t_bool check_leot, TAPE_PCALLBACK callback); uptr 184 src/simh/sim_tape.h t_stat sim_tape_sprecr (UNIT *uptr, t_mtrlnt *bc); uptr 185 src/simh/sim_tape.h t_stat sim_tape_sprecr_a (UNIT *uptr, t_mtrlnt *bc, TAPE_PCALLBACK callback); uptr 186 src/simh/sim_tape.h t_stat sim_tape_sprecsr (UNIT *uptr, uint32 count, uint32 *skipped); uptr 187 src/simh/sim_tape.h t_stat sim_tape_sprecsr_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback); uptr 188 src/simh/sim_tape.h t_stat sim_tape_spfiler (UNIT *uptr, uint32 count, uint32 *skipped); uptr 189 src/simh/sim_tape.h t_stat sim_tape_spfiler_a (UNIT *uptr, uint32 count, uint32 *skipped, TAPE_PCALLBACK callback); uptr 190 src/simh/sim_tape.h t_stat sim_tape_spfilebyrecr (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped); uptr 191 src/simh/sim_tape.h t_stat sim_tape_spfilebyrecr_a (UNIT *uptr, uint32 count, uint32 *skipped, uint32 *recsskipped, TAPE_PCALLBACK callback); uptr 192 src/simh/sim_tape.h t_stat sim_tape_rewind (UNIT *uptr); uptr 193 src/simh/sim_tape.h t_stat sim_tape_rewind_a (UNIT *uptr, TAPE_PCALLBACK callback); uptr 195 src/simh/sim_tape.h (UNIT *uptr, uint32 flags, uint32 recs, uint32 *recskipped, uint32 files, uptr 198 src/simh/sim_tape.h (UNIT *uptr, uint32 flags, uint32 recs, uint32 *recsskipped, uint32 files, uptr 200 src/simh/sim_tape.h t_stat sim_tape_reset (UNIT *uptr); uptr 201 src/simh/sim_tape.h t_bool sim_tape_bot (UNIT *uptr); uptr 202 src/simh/sim_tape.h t_bool sim_tape_wrp (UNIT *uptr); uptr 203 src/simh/sim_tape.h t_bool sim_tape_eot (UNIT *uptr); uptr 204 src/simh/sim_tape.h t_stat sim_tape_set_fmt (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 205 src/simh/sim_tape.h t_stat sim_tape_show_fmt (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 206 src/simh/sim_tape.h t_stat sim_tape_set_capac (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 207 src/simh/sim_tape.h t_stat sim_tape_show_capac (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 208 src/simh/sim_tape.h t_stat sim_tape_set_dens (UNIT *uptr, int32 val, CONST char *cptr, void *desc); uptr 209 src/simh/sim_tape.h t_stat sim_tape_show_dens (FILE *st, UNIT *uptr, int32 val, CONST void *desc); uptr 297 src/simh/sim_timer.c static void _sim_coschedule_cancel(UNIT *uptr); uptr 337 src/simh/sim_timer.c t_stat sim_throt_svc (UNIT *uptr); uptr 338 src/simh/sim_timer.c t_stat sim_timer_tick_svc (UNIT *uptr); uptr 371 src/simh/sim_timer.c int32 sim_rtcn_init_unit (UNIT *uptr, int32 time, int32 tmr) uptr 388 src/simh/sim_timer.c if (!uptr) uptr 389 src/simh/sim_timer.c uptr = sim_clock_unit[tmr]; uptr 390 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 391 src/simh/sim_timer.c if (uptr) { uptr 393 src/simh/sim_timer.c sim_register_clock_unit_tmr (uptr, tmr); uptr 479 src/simh/sim_timer.c t_stat sim_show_timers (FILE* st, DEVICE *dptr, UNIT* uptr, int32 val, CONST char* desc) uptr 579 src/simh/sim_timer.c t_stat sim_show_clock_queues (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, CONST char *cptr) uptr 592 src/simh/sim_timer.c for (uptr = sim_clock_cosched_queue[tmr]; uptr != QUEUE_LIST_END; uptr = uptr->next) { //-V763 uptr 593 src/simh/sim_timer.c if ((dptr = find_dev_from_unit (uptr)) != NULL) { //-V763 uptr 596 src/simh/sim_timer.c fprintf (st, " unit %d", (int32) (uptr - dptr->units)); uptr 603 src/simh/sim_timer.c accum = accum + uptr->time; uptr 616 src/simh/sim_timer.c t_stat sim_timer_clr_catchup (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 623 src/simh/sim_timer.c t_stat sim_timer_set_catchup (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 630 src/simh/sim_timer.c t_stat sim_timer_show_catchup (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 653 src/simh/sim_timer.c t_stat sim_timer_tick_svc (UNIT *uptr) uptr 655 src/simh/sim_timer.c int tmr = (int)(uptr-sim_timer_units); uptr 696 src/simh/sim_timer.c sim_timer_activate_after (uptr, 1000000/rtc_hz[tmr]); uptr 769 src/simh/sim_timer.c static t_stat sim_timer_clock_tick_svc (UNIT *uptr) uptr 772 src/simh/sim_timer.c sim_activate_after (uptr, 1000000/sim_int_clk_tps); /* reactivate unit */ uptr 813 src/simh/sim_timer.c UNIT *uptr = sim_clock_cosched_queue[SIM_NTIMERS]; uptr 814 src/simh/sim_timer.c _sim_coschedule_cancel (uptr); uptr 815 src/simh/sim_timer.c _sim_activate (uptr, 1); uptr 892 src/simh/sim_timer.c t_stat sim_timer_activate (UNIT *uptr, int32 interval) uptr 894 src/simh/sim_timer.c return sim_timer_activate_after (uptr, (uint32)((interval * 1000000.0) / sim_timer_inst_per_sec ())); uptr 897 src/simh/sim_timer.c t_stat sim_timer_activate_after (UNIT *uptr, uint32 usec_delay) uptr 904 src/simh/sim_timer.c if (sim_clock_unit[tmr] == uptr) { uptr 905 src/simh/sim_timer.c uptr = &sim_timer_units[tmr]; uptr 908 src/simh/sim_timer.c if (sim_is_active (uptr)) /* already active? */ uptr 920 src/simh/sim_timer.c sim_uname(uptr), inst_delay, usec_delay); uptr 921 src/simh/sim_timer.c return _sim_activate (uptr, inst_delay); /* queue it now */ uptr 924 src/simh/sim_timer.c t_stat sim_register_clock_unit_tmr (UNIT *uptr, int32 tmr) uptr 932 src/simh/sim_timer.c if (NULL == uptr) { /* deregistering? */ uptr 934 src/simh/sim_timer.c UNIT *uptr = sim_clock_cosched_queue[tmr]; uptr 936 src/simh/sim_timer.c _sim_coschedule_cancel (uptr); uptr 937 src/simh/sim_timer.c _sim_activate (uptr, 1); uptr 944 src/simh/sim_timer.c sim_clock_unit[tmr] = uptr; uptr 945 src/simh/sim_timer.c uptr->dynflags |= UNIT_TMR_UNIT; uptr 951 src/simh/sim_timer.c static void _sim_coschedule_cancel (UNIT *uptr) uptr 953 src/simh/sim_timer.c if (uptr->next) { /* On a queue? */ uptr 957 src/simh/sim_timer.c if (uptr == sim_clock_cosched_queue[tmr]) { uptr 958 src/simh/sim_timer.c sim_clock_cosched_queue[tmr] = uptr->next; uptr 959 src/simh/sim_timer.c uptr->next = NULL; uptr 966 src/simh/sim_timer.c if (cptr->next == (uptr)) { uptr 967 src/simh/sim_timer.c cptr->next = (uptr)->next; uptr 968 src/simh/sim_timer.c uptr->next = NULL; uptr 972 src/simh/sim_timer.c if (uptr->next == NULL) { /* found? */ uptr 973 src/simh/sim_timer.c uptr->cancel = NULL; uptr 974 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 564 src/simh/sim_tmxr.c static TMLN *tmxr_find_ldsc (UNIT *uptr, int32 val, const TMXR *mp) uptr 568 src/simh/sim_tmxr.c if (uptr) { /* called from SET? */ uptr 569 src/simh/sim_tmxr.c DEVICE *dptr = find_dev_from_unit (uptr); /* find device */ uptr 572 src/simh/sim_tmxr.c val = (int32) (uptr - dptr->units); /* implicit line # */ uptr 595 src/simh/sim_tmxr.c static TMLN *tmxr_get_ldsc (UNIT *uptr, const char *cptr, TMXR *mp, t_stat *status) uptr 604 src/simh/sim_tmxr.c else if (uptr) { /* implied line form? */ uptr 605 src/simh/sim_tmxr.c lp = tmxr_find_ldsc (uptr, mp->lines, mp); /* determine line from unit */ uptr 813 src/simh/sim_tmxr.c UNIT *uptr = mp->uptr; uptr 815 src/simh/sim_tmxr.c if (!uptr) /* Attached ? */ uptr 821 src/simh/sim_tmxr.c if (!(uptr->dynflags & TMUF_NOASYNCH)) { /* if asynch not disabled */ uptr 822 src/simh/sim_tmxr.c uptr->dynflags |= UNIT_TM_POLL; /* tag as polling unit */ uptr 823 src/simh/sim_tmxr.c sim_cancel (uptr); uptr 826 src/simh/sim_tmxr.c uptr = mp->ldsc[i].uptr ? mp->ldsc[i].uptr : mp->uptr; uptr 828 src/simh/sim_tmxr.c if (!(mp->uptr->dynflags & TMUF_NOASYNCH)) { /* if asynch not disabled */ uptr 829 src/simh/sim_tmxr.c uptr->dynflags |= UNIT_TM_POLL; /* tag as polling unit */ uptr 830 src/simh/sim_tmxr.c sim_cancel (uptr); uptr 2071 src/simh/sim_tmxr.c UNIT *uptr = NULL; uptr 2075 src/simh/sim_tmxr.c if (lp->uptr) uptr 2076 src/simh/sim_tmxr.c uptr = lp->uptr; uptr 2078 src/simh/sim_tmxr.c uptr = lp->mp->uptr; uptr 2080 src/simh/sim_tmxr.c if (uptr && uptr->filename) { uptr 2082 src/simh/sim_tmxr.c uptr->filename = tmxr_mux_attach_string (uptr->filename, lp->mp); uptr 2084 src/simh/sim_tmxr.c if (uptr->filename == NULL) uptr 2085 src/simh/sim_tmxr.c tmxr_detach (lp->mp, uptr); uptr 2138 src/simh/sim_tmxr.c UNIT *uptr; uptr 2157 src/simh/sim_tmxr.c uptr = lp->uptr; uptr 2158 src/simh/sim_tmxr.c if ((!uptr) && (lp->mp)) uptr 2159 src/simh/sim_tmxr.c uptr = lp->mp->uptr; uptr 2160 src/simh/sim_tmxr.c if (uptr) uptr 2161 src/simh/sim_tmxr.c uptr->wait = lp->rxdelta; uptr 2860 src/simh/sim_tmxr.c mp->ldsc[line].uptr = uptr_poll; uptr 2995 src/simh/sim_tmxr.c t_stat tmxr_attach_ex (TMXR *mp, UNIT *uptr, CONST char *cptr, t_bool async) uptr 3003 src/simh/sim_tmxr.c mp->uptr = uptr; /* save unit for polling */ uptr 3004 src/simh/sim_tmxr.c uptr->filename = tmxr_mux_attach_string (uptr->filename, mp);/* save */ uptr 3005 src/simh/sim_tmxr.c uptr->flags = uptr->flags | UNIT_ATT; /* no more errors */ uptr 3006 src/simh/sim_tmxr.c uptr->tmxr = (void *)mp; uptr 3011 src/simh/sim_tmxr.c uptr->dynflags = uptr->dynflags | UNIT_ATTMULT; /* allow multiple attach commands */ uptr 3013 src/simh/sim_tmxr.c uptr->dynflags |= TMUF_NOASYNCH; /* tag as no asynch */ uptr 3016 src/simh/sim_tmxr.c mp->dptr = find_dev_from_unit (uptr); /* no, so set device now */ uptr 3042 src/simh/sim_tmxr.c t_stat tmxr_show_open_devices (FILE* st, DEVICE *dptr, UNIT* uptr, int32 val, CONST char* desc) uptr 3096 src/simh/sim_tmxr.c if (lp->uptr && (lp->uptr != lp->mp->uptr)) uptr 3097 src/simh/sim_tmxr.c fprintf (st, " - Unit: %s", sim_uname (lp->uptr)); uptr 3194 src/simh/sim_tmxr.c t_stat tmxr_detach (TMXR *mp, UNIT *uptr) uptr 3198 src/simh/sim_tmxr.c if (!(uptr->flags & UNIT_ATT)) /* attached? */ uptr 3201 src/simh/sim_tmxr.c FREE (uptr->filename); /* free setup string */ uptr 3202 src/simh/sim_tmxr.c uptr->filename = NULL; uptr 3203 src/simh/sim_tmxr.c uptr->tmxr = NULL; uptr 3206 src/simh/sim_tmxr.c UNIT *uptr = mp->ldsc[i].uptr ? mp->ldsc[i].uptr : mp->uptr; uptr 3207 src/simh/sim_tmxr.c UNIT *o_uptr = mp->ldsc[i].o_uptr ? mp->ldsc[i].o_uptr : mp->uptr; uptr 3209 src/simh/sim_tmxr.c uptr->dynflags &= ~UNIT_TM_POLL; /* no polling */ uptr 3212 src/simh/sim_tmxr.c uptr->flags &= ~(UNIT_ATT); /* not attached */ uptr 3213 src/simh/sim_tmxr.c uptr->dynflags &= ~(UNIT_TM_POLL|TMUF_NOASYNCH); /* no polling, not asynch disabled */ uptr 3217 src/simh/sim_tmxr.c t_stat tmxr_activate (UNIT *uptr, int32 interval) uptr 3219 src/simh/sim_tmxr.c if (uptr->dynflags & UNIT_TMR_UNIT) uptr 3220 src/simh/sim_tmxr.c return sim_timer_activate (uptr, interval); uptr 3221 src/simh/sim_tmxr.c return _sim_activate (uptr, interval); uptr 3224 src/simh/sim_tmxr.c t_stat tmxr_activate_after (UNIT *uptr, uint32 usecs_walltime) uptr 3226 src/simh/sim_tmxr.c return _sim_activate_after (uptr, usecs_walltime); uptr 3231 src/simh/sim_tmxr.c t_stat tmxr_attach_help(FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr) uptr 3432 src/simh/sim_tmxr.c t_stat tmxr_ex (t_value *vptr, t_addr addr, UNIT *uptr, int32 sw) uptr 3437 src/simh/sim_tmxr.c t_stat tmxr_dep (t_value val, t_addr addr, UNIT *uptr, int32 sw) uptr 3659 src/simh/sim_tmxr.c t_stat tmxr_dscln (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 3666 src/simh/sim_tmxr.c uptr = NULL; /* indicate to get routine */ uptr 3668 src/simh/sim_tmxr.c lp = tmxr_get_ldsc (uptr, cptr, mp, &status); /* get referenced line */ uptr 3685 src/simh/sim_tmxr.c t_stat tmxr_set_log (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 3693 src/simh/sim_tmxr.c lp = tmxr_find_ldsc (uptr, val, mp); /* find line desc */ uptr 3711 src/simh/sim_tmxr.c if (mp->uptr) /* attached?, then update attach string */ uptr 3712 src/simh/sim_tmxr.c lp->mp->uptr->filename = tmxr_mux_attach_string (lp->mp->uptr->filename, lp->mp); uptr 3718 src/simh/sim_tmxr.c t_stat tmxr_set_nolog (UNIT *uptr, int32 val, CONST char *cptr, void *desc) uptr 3725 src/simh/sim_tmxr.c lp = tmxr_find_ldsc (uptr, val, mp); /* find line desc */ uptr 3734 src/simh/sim_tmxr.c if (mp->uptr) uptr 3735 src/simh/sim_tmxr.c lp->mp->uptr->filename = tmxr_mux_attach_string (lp->mp->uptr->filename, lp->mp); uptr 3741 src/simh/sim_tmxr.c t_stat tmxr_show_log (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 3746 src/simh/sim_tmxr.c lp = tmxr_find_ldsc (uptr, val, mp); /* find line desc */ uptr 3783 src/simh/sim_tmxr.c t_stat tmxr_set_lnorder (UNIT *uptr, int32 val, CONST char *carg, void *desc) uptr 3884 src/simh/sim_tmxr.c t_stat tmxr_show_lnorder (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 3936 src/simh/sim_tmxr.c t_stat tmxr_show_summ (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 3956 src/simh/sim_tmxr.c t_stat tmxr_show_cstat (FILE *st, UNIT *uptr, int32 val, CONST void *desc) uptr 3984 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 308 src/simh/sim_tmxr.h # define tmxr_attach(mp, uptr, cptr) tmxr_attach_ex(mp, uptr, cptr, FALSE)