]> pd.if.org Git - mmurtl/blob - msamples/busyloop/busyloop.asm
autocommit for file dated 1995-02-09 15:58:10
[mmurtl] / msamples / busyloop / busyloop.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 _GetpJCB FWORD\r
13 EXTRN _GetJobNum FWORD\r
14 EXTRN _LoadNewJob FWORD\r
15 EXTRN _Chain FWORD\r
16 EXTRN _ExitJob FWORD\r
17 EXTRN _KillJob FWORD\r
18 EXTRN _SetUserName FWORD\r
19 EXTRN _GetUserName FWORD\r
20 EXTRN _SetCmdLine FWORD\r
21 EXTRN _GetCmdLine FWORD\r
22 EXTRN _SetPath FWORD\r
23 EXTRN _GetPath FWORD\r
24 EXTRN _SetExitJob FWORD\r
25 EXTRN _GetExitJob FWORD\r
26 EXTRN _SetSysIn FWORD\r
27 EXTRN _GetSysIn FWORD\r
28 EXTRN _SetSysOut FWORD\r
29 EXTRN _GetSysOut FWORD\r
30 EXTRN _SetJobName FWORD\r
31 EXTRN _RegisterSvc FWORD\r
32 EXTRN _UnRegisterSvc FWORD\r
33 EXTRN _GetSystemDisk FWORD\r
34 L_lit DB 66,117,115,121,76,111,111,112,0,37,100,32,13,10,0\r
35 PUBLIC _tick DD 0h\r
36 \r
37 \r
38 .CODE\r
39 EXTRN _fopen: NEAR\r
40 EXTRN _fclose: NEAR\r
41 EXTRN _remove: NEAR\r
42 EXTRN _rename: NEAR\r
43 EXTRN _fgetc: NEAR\r
44 EXTRN _fgets: NEAR\r
45 EXTRN _fputs: NEAR\r
46 EXTRN _fputc: NEAR\r
47 EXTRN _printf: NEAR\r
48 EXTRN _sprintf: NEAR\r
49 EXTRN _fprintf: NEAR\r
50 EXTRN _ftell: NEAR\r
51 EXTRN _rewind: NEAR\r
52 EXTRN _fseek: NEAR\r
53 EXTRN _fread: NEAR\r
54 EXTRN _fwrite: NEAR\r
55 PUBLIC _main:\r
56         PUSH EBP\r
57         MOV EBP,ESP\r
58         SUB ESP,4\r
59         PUSH OFFSET L_lit+0\r
60         PUSH 8\r
61         CALL FWORD PTR _SetJobName\r
62         PUSH 100\r
63         CALL FWORD PTR _Sleep\r
64 L_1:\r
65         MOV EAX,1\r
66         AND EAX,EAX\r
67         JZ L_2\r
68         PUSH OFFSET _tick\r
69         CALL FWORD PTR _GetTimerTick\r
70         PUSH OFFSET L_lit+9\r
71         PUSH _tick\r
72         MOV EDI, 4\r
73         CALL _printf\r
74         ADD ESP,8\r
75         MOV EAX,DWORD PTR [EBP-4]\r
76         INC DWORD PTR [EBP-4]\r
77         JMP L_1\r
78 L_2:\r
79         MOV ESP,EBP\r
80         POP EBP\r
81         RETN\r