サイトトップへ
OSASK.NET
  サイトトップへ       新掲示板(閉鎖済)   Wiki(凍結済)   旧掲示板(廃止済)   ニュース(廃止済)  
9: 2010-04-09 (金) 17:54:51 jsgfsvcd(jsgfsvcd)[oEIME2Rg9Fo] ソース 現: 2024-01-08 (月) 12:58:56 k-tan ソース
Line 13: Line 13:
 /* "colorc1.c":colorをC言語で記述した例 */  /* "colorc1.c":colorをC言語で記述した例 */
 /*  stack:4k malloc:2k */  /*  stack:4k malloc:2k */
 + 
 #include <guigui00.h>  #include <guigui00.h>
 #define AUTO_MALLOC    0  #define AUTO_MALLOC    0
 + 
 void setdec2(const int i, char *s);  void setdec2(const int i, char *s);
 + 
 void OsaskMain()  void OsaskMain()
 {  {
Line 25: Line 25:
     int i;      int i;
     static char msg[] = "color  0";      static char msg[] = "color  0";
 + 
     /* ライブラリ初期化 */      /* ライブラリ初期化 */
     lib_init(AUTO_MALLOC);      lib_init(AUTO_MALLOC);
 + 
     /* ウィンドウのオープン */      /* ウィンドウのオープン */
     window = lib_openwindow(AUTO_MALLOC, 0x0200, 20 * 8, 8 * 16);      window = lib_openwindow(AUTO_MALLOC, 0x0200, 20 * 8, 8 * 16);
Line 34: Line 34:
     textbox  = lib_opentextbox(0x0001, AUTO_MALLOC, 0, 20, 8, 0, 0, window, 0x00c0, 0);      textbox  = lib_opentextbox(0x0001, AUTO_MALLOC, 0, 20, 8, 0, 0, window, 0x00c0, 0);
     lib_putstring_ASCII(0x0000, 0, 0, wintitle, 0, 0, "colorc1");      lib_putstring_ASCII(0x0000, 0, 0, wintitle, 0, 0, "colorc1");
 + 
     /* メインルーチン */      /* メインルーチン */
     for (i = 0; i < 16; i += 2) {      for (i = 0; i < 16; i += 2) {
Line 42: Line 42:
         lib_putstring_ASCII(0x0000, 10, i / 2, textbox, i + 1, 0, msg);          lib_putstring_ASCII(0x0000, 10, i / 2, textbox, i + 1, 0, msg);
     }      }
 + 
     /* 終了 */      /* 終了 */
     lib_waitsignal(0x0001, 0, 0);      lib_waitsignal(0x0001, 0, 0);
 }  }
 + 
 void setdec2(const int i, char *s)  void setdec2(const int i, char *s)
 /* 注意：このルーチンでは、0～99までしか扱えない */  /* 注意：このルーチンでは、0～99までしか扱えない */
Line 56: Line 56:
     return;      return;
 }  }
 + 
-ASKA版："colora1.ask" [tolset08では 210バイト] -ASKA版："colora1.ask" [tolset08では 210バイト]
//-ASKA版："colora1.ask" [osa_dir2では 239バイト] //-ASKA版："colora1.ask" [osa_dir2では 239バイト]
Line 63: Line 63:
 segment CODE(USE32, PARA); default(code == CODE); asmout("[FILE 'colora1.ask']");  segment CODE(USE32, PARA); default(code == CODE); asmout("[FILE 'colora1.ask']");
 asmout("GLOBAL _OsaskMain");  asmout("GLOBAL _OsaskMain");
 + 
 void setdec2(); /* ALをDS:ESIに書き込む */  void setdec2(); /* ALをDS:ESIに書き込む */
 + 
 void _OsaskMain()  void _OsaskMain()
 {  {
     asmout("MOV EBX,data.init"); CALL(0xc7, 0);      asmout("MOV EBX,data.init"); CALL(0xc7, 0);
 + 
     unsigned char i == AL, x == CL, y == CH;      unsigned char i == AL, x == CL, y == CH;
     i = 0;      i = 0;
Line 87: Line 87:
         i++;          i++;
     } while (i < 16);      } while (i < 16);
 + 
     asmout("MOV EBX,data.sleep"); CALL(0xc7, 0);      asmout("MOV EBX,data.sleep"); CALL(0xc7, 0);
 }  }
 + 
 void setdec2()  void setdec2()
 {  {
Line 108: Line 108:
     return;      return;
 }  }
 + 
 asmout("[SECTION .data]");  asmout("[SECTION .data]");
 + 
 void data()  void data()
 {  {
Line 127: Line 127:
     DD(0x0018, 0x0001, 0, 0); /* lib_waitsignal */      DD(0x0018, 0x0001, 0, 0); /* lib_waitsignal */
     DD(0x0000); /* end of functions */      DD(0x0000); /* end of functions */
 + 
     ALIGNB(8);      ALIGNB(8);
 work:  work:
Line 140: Line 140:
     RESB(1280);  /* 20x8文字分 (20 * 8 * 8) */      RESB(1280);  /* 20x8文字分 (20 * 8 * 8) */
 }  }
 + 
-nask版："colorn1.nas" [tolset08では 209バイト] -nask版："colorn1.nas" [tolset08では 209バイト]
Line 146: Line 146:
 ; "colorn1.nas":colorをnaskで記述した例  ; "colorn1.nas":colorをnaskで記述した例
 ;  stack:4k malloc:0k  ;  stack:4k malloc:0k
 + 
 [FORMAT "WCOFF"]  [FORMAT "WCOFF"]
 [INSTRSET "i486p"]  [INSTRSET "i486p"]
Line 153: Line 153:
 [BITS 32]  [BITS 32]
 [FILE "colorn1.nas"]  [FILE "colorn1.nas"]
 + 
 [SECTION .text]  [SECTION .text]
     GLOBAL _OsaskMain      GLOBAL _OsaskMain
 + 
 _OsaskMain:  _OsaskMain:
     MOV  EBX,init      MOV  EBX,init
Line 180: Line 180:
     MOV  EBX,sleep      MOV  EBX,sleep
     CALL 0xc7:0      CALL 0xc7:0
 + 
 setdec2:  setdec2:
     PUSH ECX      PUSH ECX
Line 197: Line 197:
     POP  ECX      POP  ECX
     RET      RET
 + 
 ; .で始まるラベルはローカルラベル。  ; .で始まるラベルはローカルラベル。
 ; ローカルラベルは、次のグローバルラベル宣言までが有効範囲。  ; ローカルラベルは、次のグローバルラベル宣言までが有効範囲。
 + 
 [SECTION .data]  [SECTION .data]
     ALIGNB 4      ALIGNB 4
Line 216: Line 216:
     DD 0x0018, 0x0001, 0, 0 ; lib_waitsignal      DD 0x0018, 0x0001, 0, 0 ; lib_waitsignal
     DD 0x0000 ; end of functions      DD 0x0000 ; end of functions
 + 
     ALIGNB 8      ALIGNB 8
 work:  work:
Line 226: Line 226:
 textbox:  textbox:
     RESB  64 + 20 * 8 * 8; テキストボックス構造体（20x8文字分）      RESB  64 + 20 * 8 * 8; テキストボックス構造体（20x8文字分）
 + 
*** 説明 [#n1fba734] *** 説明 [#n1fba734]
Line 263: Line 263:
* こめんと欄 [#s8db1e95] * こめんと欄 [#s8db1e95]
-tolset08にあわせて修正。 -- [[K]] SIZE(10){2005-01-29 (土) 15:34:36} -tolset08にあわせて修正。 -- [[K]] SIZE(10){2005-01-29 (土) 15:34:36}
-- YIJUQZ  <a href="http://tvrwiadrjdzj.com/">tvrwiadrjdzj</a>, [url=http://ayosmzpvwxmv.com/]ayosmzpvwxmv[/url], [link=http://lvtovcvrbfom.com/]lvtovcvrbfom[/link], http://vyvkoltjziwa.com/ -- ''jsgfsvcd'' &new{2010-04-09 (金) 17:54:50}; 
-#comment+//#comment
トップ   差分 バックアップ 複製 名前変更 リロード印刷に適した表示   ページ新規作成 全ページ一覧 単語検索 最新ページの一覧   ヘルプ
Counter: 260, today: 2, yesterday: 1
ぺージ情報 閲覧可 編集可
ぺージ名 :guide/wintro0001 グループ :すべての訪問者 グループ :すべての訪問者
ページ作成 :k-tan ユーザー :すべての訪問者 ユーザー :すべての訪問者
ページ別名 :未設定
新着

［目次］
［メンバー一覧］

最新の20件
2016-10-01 2016-09-08
  • @MenuBar.
2016-09-07 2016-09-04 2016-08-15 2015-09-23 2014-07-30 2014-07-04 2014-02-04 2013-10-26 2013-06-21 2013-06-17 2013-06-15 2013-04-02 2013-02-09 2013-02-04 2012-12-25 2012-12-01 2012-05-28 2012-03-31
トピック一覧
一般用コメント最新
新掲示板lina
2016/9/5 20:58
SandBoxゲスト
2016/9/4 12:01
RecentDeletedlina
2015/6/2 19:29
Old-OSASK-MLlina
2014/6/29 9:14
hideyosi/メールhideyosi
2014/1/6 20:17
hideyosi/募集中lina
2013/11/8 19:56

このサイトは川合秀実から委託を受けて、OSASKコミュニティによって管理・運営されています。