diff --git a/toolbox/qd.cpp b/toolbox/qd.cpp index 2dd8959..fbe8801 100644 --- a/toolbox/qd.cpp +++ b/toolbox/qd.cpp @@ -5,6 +5,8 @@ #include #include +#include + #include "stackframe.h" using ToolBox::Log; @@ -62,4 +64,30 @@ namespace QD { return 0; } + uint16_t InitGraf(uint16_t trap) + { + // PROCEDURE InitGraf (globalPtr: Ptr); + + uint32_t globalPtr; + + StackFrame<4>(globalPtr); + + Log("%04x InitGraf($%08x)\n", trap, globalPtr); + + + return 0; + } + + uint16_t SetFScaleDisable(uint16_t trap) + { + uint16_t value; + StackFrame<2>(value); + + Log("%04x SetFScaleDisable($%04x)\n", trap, value); + // sets FScaleDisable global variable + + return 0; + } + + } \ No newline at end of file diff --git a/toolbox/qd.h b/toolbox/qd.h index 0cb07a2..4c514ae 100644 --- a/toolbox/qd.h +++ b/toolbox/qd.h @@ -6,11 +6,14 @@ namespace QD { + uint16_t InitGraf(uint16_t trap); + uint16_t ShowCursor(uint16_t trap); uint16_t GetCursor(uint16_t trap); uint16_t SetCursor(uint16_t trap); uint16_t GetFNum(uint16_t trap); + uint16_t SetFScaleDisable(uint16_t trap); } #endif diff --git a/toolbox/toolbox.cpp b/toolbox/toolbox.cpp index 69713c2..0e0f699 100644 --- a/toolbox/toolbox.cpp +++ b/toolbox/toolbox.cpp @@ -277,11 +277,19 @@ namespace ToolBox { break; + case 0xa834: + d0 = QD::SetFScaleDisable(trap); + break; + //SetCursor (crsr: Cursor) case 0xA851: d0 = QD::SetCursor(trap); break; + case 0xa86e: + d0 = QD::InitGraf(trap); + break; + // GetFNum (fontName: Str255; VAR theNum: INTEGER); case 0xa900: d0 = QD::GetFNum(trap);