pd.if.org Git - mmurtl/blob - msamples/beeper/beeper.asm

   1 \r
   2 .DATA\r
   3 EXTRN _Alarm FWORD\r
   4 EXTRN _KillAlarm FWORD\r
   5 EXTRN _Sleep FWORD\r
   6 EXTRN _MicroDelay FWORD\r
   7 EXTRN _GetCMOSTime FWORD\r
   8 EXTRN _GetCMOSDate FWORD\r
   9 EXTRN _GetTimerTick FWORD\r
  10 EXTRN _Tone FWORD\r
  11 EXTRN _Beep FWORD\r
  12 EXTRN _AllocExch FWORD\r
  13 EXTRN _DeAllocExch FWORD\r
  14 EXTRN _GetTSSExch FWORD\r
  15 EXTRN _SetPriority FWORD\r
  16 EXTRN _NewTask FWORD\r
  17 EXTRN _SpawnTask FWORD\r
  18 EXTRN _SendMsg FWORD\r
  19 EXTRN _ISendMsg FWORD\r
  20 EXTRN _WaitMsg FWORD\r
  21 EXTRN _CheckMsg FWORD\r
  22 EXTRN _Request FWORD\r
  23 EXTRN _MoveRequest FWORD\r
  24 EXTRN _Respond FWORD\r
  25 EXTRN _GetpJCB FWORD\r
  26 EXTRN _GetJobNum FWORD\r
  27 EXTRN _LoadNewJob FWORD\r
  28 EXTRN _Chain FWORD\r
  29 EXTRN _ExitJob FWORD\r
  30 EXTRN _KillJob FWORD\r
  31 EXTRN _SetUserName FWORD\r
  32 EXTRN _GetUserName FWORD\r
  33 EXTRN _SetCmdLine FWORD\r
  34 EXTRN _GetCmdLine FWORD\r
  35 EXTRN _SetPath FWORD\r
  36 EXTRN _GetPath FWORD\r
  37 EXTRN _SetExitJob FWORD\r
  38 EXTRN _GetExitJob FWORD\r
  39 EXTRN _SetSysIn FWORD\r
  40 EXTRN _GetSysIn FWORD\r
  41 EXTRN _SetSysOut FWORD\r
  42 EXTRN _GetSysOut FWORD\r
  43 EXTRN _SetJobName FWORD\r
  44 EXTRN _RegisterSvc FWORD\r
  45 EXTRN _UnRegisterSvc FWORD\r
  46 EXTRN _GetSystemDisk FWORD\r
  47 L_lit DB 66,101,101,112,101,114,0\r
  48 \r
  49 \r
  50 .CODE\r
  51 PUBLIC _main:\r
  52         PUSH EBP\r
  53         MOV EBP,ESP\r
  54         PUSH OFFSET L_lit+0\r
  55         PUSH 6\r
  56         CALL FWORD PTR _SetJobName\r
  57 L_1:\r
  58         MOV EAX,1\r
  59         AND EAX,EAX\r
  60         JZ L_2\r
  61         PUSH 50\r
  62         CALL FWORD PTR _Sleep\r
  63         PUSH 150\r
  64         PUSH 10\r
  65         CALL FWORD PTR _Tone\r
  66         JMP L_1\r
  67 L_2:\r
  68         POP EBP\r
  69         RETN\r