// PR_MEM.VDM; Macros for the PR_Mem.MNU menu file. // // Written by P.A. Rejto, 08/26/95. // Last Change: 01/07/00: // Added mem=0xFF8000; mem = 32-digit binary = 8-digit hexadecimal. // As per on-line help: 'mem' is a 32-bit (flat) memory address // Changes: 05/29/99: // Replaced Do_Visual("\ME\Wx\RT\") by Do_Visual("\ME\VH"). // This was needed for the new, Version 5.11, {View, hex}{View, bin} commmand. // // Requires: Vedit 5.11 or later. // // Description: Displays Memory using the Sys_Block_Read(r,mem,size) Vedit command. // // :MEM(00000-07FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0x00000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0x04000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(08000-0FFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0x08000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0x0C000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(10000-17FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0x10000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0x14000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(18000-1FFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0x18000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0x1C000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(80000-87FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0x80000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0x84000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(88000-8FFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0x88000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0x8C000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(90000-97FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0x90000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0x94000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(98000-9FFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0x98000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0x9C000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(A0000-A7FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xA0000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xA4000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(A8000-AFFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xA8000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xAC000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(B0000-B7FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xB0000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xB4000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(B8000-BFFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xB8000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xBC000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(C0000-C7FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xC0000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xC4000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(C8000-CFFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xC8000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File() Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xCC000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual Begin_Of_File() Visual :MEM(D0000-D7FFF): // Read the first 16K into T-reg 11 and then into buffer; Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xD0000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xD4000,0x4000) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode. Begin_Of_File Visual // :MEM(D8000-DFFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Reg_Empty(12,EXTRA) Sys_Block_Read(11,0xD8000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File() Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xDC000,0x3FFF) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode. Begin_Of_File Visual // :MEM(E0000-E7FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xE0000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xE4000,0x3FFF) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(E8000-EFFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xE8000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xEC000,0x3FFF) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(F0000-F7FFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xF0000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xFF8000,0x3FFF) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(F8000-FFFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xF8000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xFC000,0x3FFF) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual // :MEM(FF8000-FFFFFF): // // Read the first 16K into T-reg 11 and then into buffer; // Reg_Empty(11,EXTRA) Sys_Block_Read(11,0xFF8000,0x4000) Buf_Switch(32) Buf_Empty(OK) if(File_Exist("Temp.$$$")) {File_Delete("Temp.$$$",OK)} File_Open("Temp.$$$",OVERWRITE) Begin_Of_File Reg_Ins(11,OVERWRITE) Reg_Empty(11,EXTRA) // // Read the next 16K into T-reg 12 and then into buffer; // Reg_Empty(12,EXTRA) Sys_Block_Read(12,0xFFC000,0x3FFF) Config(F_F_Type,16) // Set line: length=16 Goto_Line(1025) // Now that lines have been defined..,Goto Reg_Ins(12,OVERWRITE) Reg_Empty(12,EXTRA) if (Win_Total>1) { Screen_Init() } //Delete multiple windows Do_Visual("\ME\VH") // Split Window into Hex-mode Begin_Of_File Visual