55 lines
1.2 KiB
Plaintext
55 lines
1.2 KiB
Plaintext
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
|
|
"Ed(\"HI:Debugging\");";
|
|
AFPmtStr("\n");
|
|
PopUpOk(
|
|
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
|
|
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
|
|
|
PopUpOk(
|
|
"We will now use $LK,"Uf",A="MN:Uf"$() to\n"
|
|
"unassemble a function.\n"
|
|
"It takes the function name\n"
|
|
"as a string arg.\n\n"
|
|
"Press $$GREEN$$<ENTER>$$FG$$.");
|
|
"WinMax;WinBorder;\nUf(\"CAlloc\");";
|
|
AFPmtStr("\n");
|
|
|
|
PopUpOk("Press $$GREEN$$<CURSOR-UP>$$FG$$ eight times..");
|
|
I64 i;
|
|
for (i=0;i<8;i++)
|
|
AFGetKey(SC_CURSOR_UP);
|
|
|
|
PopUpOk(
|
|
"Press $$GREEN$$<SPACE BAR>$$FG$$.\n");
|
|
AFPmtStr(" ");
|
|
|
|
PopUpOk(
|
|
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
|
|
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
|
|
|
//This puts the cursor at the bottom
|
|
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
|
"AFView;\n";
|
|
PopUpOk(
|
|
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
|
|
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
|
|
|
PopUpOk(
|
|
"We can unassemble a\n"
|
|
"numeric address with $LK,"U",A="MN:U"$().\n\n"
|
|
"Press $$GREEN$$<ENTER>$$FG$$.");
|
|
"U(&CAlloc);";
|
|
AFPmtStr("\n");
|
|
|
|
"AFView;\n";
|
|
PopUpOk(
|
|
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
|
|
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
|
|
|
PopUpOk("The opcodes are slightly nonstandard.");
|
|
"Ed(\"::/Compiler/OpCodes.TXT.Z\");\n";
|
|
PopUpOk(
|
|
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
|
|
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
|
|