Mercurial > hg > Members > kono > os9 > sbc09
comparison os9/mc09/crtos9.asm @ 111:c4e909f21b25
micro c,j self compiled on os9 level2
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 31 Dec 2018 17:51:27 +0900 |
parents | 613615c9b946 |
children | 36000611014b |
comparison
equal
deleted
inserted
replaced
110:098b3feab38c | 111:c4e909f21b25 |
---|---|
1 | 1 |
2 * * micro-C driver under FLEX * * 12-Dec-81 M.Ohta,H.Tezuka | 2 * * micro-C driver under FLEX * * 12-Dec-81 M.Ohta,H.Tezuka |
3 * 12-Dec-2018 S.Kono * | 3 * 12-Dec-2018 for OS-9 S.Kono * |
4 | 4 |
5 * | 5 * |
6 * micro-C user program | 6 * micro-C user program |
7 * | 7 * |
8 _tylg set Prgrm+Objct | 8 _tylg set Prgrm+Objct |
44 blo exit can't get any memroy | 44 blo exit can't get any memroy |
45 std ,s | 45 std ,s |
46 bra __0C004 | 46 bra __0C004 |
47 __0C005 | 47 __0C005 |
48 * y is heap upper bound | 48 * y is heap upper bound |
49 * copy arg string | |
50 ldx 4,s | |
51 __0C007 tst ,x+ | |
52 bne __0C007 | |
53 clr ,-y | |
54 __0C008 lda ,-x | |
55 sta ,-y | |
56 cmpx 4,s | |
57 bne __0C008 | |
58 sty 4,s | |
59 leax ,y | |
49 * copy saved arg into new stack | 60 * copy saved arg into new stack |
50 * and change the stack | 61 * and change the stack |
51 leax ,y | |
52 ldy 2,s | 62 ldy 2,s |
53 ldd 4,s | 63 ldd 4,s |
54 std ,--x | 64 std ,--x |
55 ldd 6,s | 65 ldd 6,s |
56 std ,--x | 66 std ,--x |