.module task1.c .area text ; i -> -2,x 0000 _task1:: 0000 34 pshx 0001 B775 tfr s,x 0003 1B9E leas -2,sp 0005 ; // task1.c 0005 ; 0005 ; #include 0005 ; #include <912d60.h> 0005 ; #include "kernel.h" 0005 ; 0005 ; 0005 ; 0005 ; /* dummy task to eat up time, and to give the kernel 0005 ; something to multitask with */ 0005 ; int task1 (void) { 0005 ; 0005 ; int i; 0005 ; 0005 ; get_mutex(COM1); 0005 CC0003 ldd #3 0008 160000 jsr _get_mutex 000B ; INTR_ON(); 000B 10EF cli 000D 000D ; 000D ; 000D ; puts("T1 Starting"); 000D CC00A1 ldd #L4 0010 160000 jsr _puts 0013 CC0000 ldd #0 0016 6C1E std -2,x 0018 L5: 0018 L6: 0018 ; for (i=0; i<0x0800; i++); 0018 EC1E ldd -2,x 001A C30001 addd #1 001D 6C1E std -2,x 001F EC1E ldd -2,x 0021 8C0800 cpd #2048 0024 2DF2 blt L5 0026 ; puts("T1.1"); 0026 CC009C ldd #L9 0029 160000 jsr _puts 002C CC0000 ldd #0 002F 6C1E std -2,x 0031 L10: 0031 L11: 0031 ; 0031 ; for (i=0; i<0x1000; i++); 0031 EC1E ldd -2,x 0033 C30001 addd #1 0036 6C1E std -2,x 0038 EC1E ldd -2,x 003A 8C1000 cpd #4096 003D 2DF2 blt L10 003F ; puts("T1.2"); 003F CC0097 ldd #L14 0042 160000 jsr _puts 0045 CC0000 ldd #0 0048 6C1E std -2,x 004A L15: 004A L16: 004A ; 004A ; for (i=0; i<0x1A00; i++); 004A EC1E ldd -2,x 004C C30001 addd #1 004F 6C1E std -2,x 0051 EC1E ldd -2,x 0053 8C1A00 cpd #6656 0056 2DF2 blt L15 0058 ; puts("T1.3"); 0058 CC0092 ldd #L19 005B 160000 jsr _puts 005E CC0000 ldd #0 0061 6C1E std -2,x 0063 L20: 0063 L21: 0063 ; 0063 ; for (i=0; i<0x2000; i++); 0063 EC1E ldd -2,x 0065 C30001 addd #1 0068 6C1E std -2,x 006A EC1E ldd -2,x 006C 8C2000 cpd #8192 006F 2DF2 blt L20 0071 ; puts("T1 Finished"); 0071 CC0086 ldd #L24 0074 160000 jsr _puts 0077 ; 0077 ; 0077 ; 0077 ; INTR_OFF(); 0077 1410 sei 0079 0079 ; give_mutex(COM1); 0079 CC0003 ldd #3 007C 160000 jsr _give_mutex 007F ; 007F ; return 0; 007F CC0000 ldd #0 0082 L3: 0082 B757 tfr x,s 0084 30 pulx 0085 .dbline 0 ; func end 0085 3D rts 0086 L24: 0086 54312046696E697368656400 .byte 'T,49,32,'F,'i,'n,'i,'s,'h,'e,'d,0 0092 L19: 0092 54312E3300 .byte 'T,49,46,51,0 0097 L14: 0097 54312E3200 .byte 'T,49,46,50,0 009C L9: 009C 54312E3100 .byte 'T,49,46,49,0 00A1 L4: 00A1 5431205374617274696E6700 .byte 'T,49,32,'S,'t,'a,'r,'t,'i,'n,'g,0