Mercurial > public > mk2

diff code_part1/OSTC_code_asm_part1/strings.asm @ 123:6a94f96e9cea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The big cleanup, again.
author JeanDo
date Thu, 30 Dec 2010 23:45:20 +0100
parents dc349e4264bb
children cdba979821ee
line wrap: on
line diff
--- a/code_part1/OSTC_code_asm_part1/strings.asm	Tue Dec 28 15:28:55 2010 +0100
+++ b/code_part1/OSTC_code_asm_part1/strings.asm	Thu Dec 30 23:45:20 2010 +0100
@@ -144,3 +144,34 @@
             VARARGS_GET8    win_top
         VARARGS_END
         return
+
+;=============================================================================
+
+box_std_block:                          ; Use standard color (CF#35)
+        call    PLED_standard_color
+        bra     box_common
+box_color_block:                        ; Use color from WREG
+        call	PLED_set_color
+        bra     box_common
+box_black_block:                        ; Use black color
+        clrf    WREG
+        movff   WREG,win_color1         ; Bank-safe addressing.
+        movff   WREG,win_color2
+box_common:
+        VARARGS_BEGIN
+            VARARGS_GET8    win_top
+            VARARGS_GET8    win_height
+            VARARGS_GET8    win_leftx2
+            VARARGS_GET8    win_width
+        VARARGS_END
+        goto    PLED_box
+
+box_frame_std:
+        call    PLED_standard_color
+        VARARGS_BEGIN
+            VARARGS_GET8    win_top
+            VARARGS_GET8    win_height
+            VARARGS_GET8    win_leftx2
+            VARARGS_GET8    win_width
+        VARARGS_END
+        goto    PLED_frame