Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/Todo @ 153:e57b2d131e6c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 17 Jan 2019 20:14:15 +0900
parents
children 6ef317714ae8
comparison
equal deleted inserted replaced
152:97a597b0afcd 153:e57b2d131e6c
1 Sun Jan 13 17:22:51 JST 2019
2
3 TL/1 OS-9 command generation
4 Self compiler
5
6 0000: 87CD module header
7 0002: 0C09 module end
8 0004: 000D name
9 0006: 1180 tylg,atrv
10 0009: 0AAB start
11 000B: 0E00 memory size
12 MAIN
13 leax ,u
14 leay ,u
15 ... TL/1 OBJ
16 LIB ... support routines
17 24bit CRC
18 end
19
20 Thu Jan 10 12:28:15 JST 2019
21
22 add source code hex listing
23
24 % ** SPRITE TEST PROGRAM **
25 PROC WAIT,TIME
26 %--- MAIN ---
27 VAR MMI,MMJ,MMK leax ,y
28 BEGIN
29 MMI:=1 MMJ:=2 MMK:=3
30 3300: 86 01 LDA #$01
31 3302: A7 00 STA +$00,X ---> 0,x
32 3304: 86 02 LDA #$02
33 3306: A7 01 STA +$01,X ---> 1,x
34 3308: 86 03 LDA #$03
35 330A: A7 02 STA +$02,X ---> 2,x
36 330C: 86 03 LDA #$03
37 WAIT
38 330E: BD 33 20 JSR $3320
39 WRITE(1:MMI,CRLF)
40 3311: 86 01 LDA #$01
41 3313: 97 01 STA <$01
42 3315: A6 00 LDA +$00,X ---> 2,x
43 3317: BD B4 32 JSR $B432
44 331A: BD B4 C1 JSR $B4C1
45 END
46 331D: 7E B5 15 JMP $B515 jmp exit
47 %-- PROCEDURE WAIT --
48 WAIT
49 VAR WWJ,WWK
50 3320: BD B3 C6 JSR $B3C6 stx ,--s
51 BEGIN leax a,x
52 WWJ:=4
53 3327: 86 02 LDA #$02
54 3329: BD 33 40 JSR $3340
55 TIME
56 3323: 86 04 LDA #$04
57 3325: A7 00 STA +$00,X
58 WRITE(1:MMI,WWJ,CRLF)
59 332C: 86 01 LDA #$01
60 332E: 97 01 STA <$01
61 3330: A6 20 LDA +$00,Y
62 3332: BD B4 32 JSR $B432
63 3335: A6 00 LDA +$00,X
64 3337: BD B4 32 JSR $B432
65 333A: BD B4 C1 JSR $B4C1
66 END
67 333D: 7E B3 D1 JMP $B3D1 puls x,pc
68 %-- PROCEDURE TIME --
69 TIME
70 VAR TTK,TTJ
71 3340: BD B3 C6 JSR $B3C6 stx ,--s
72 BEGIN leax a,x
73 TTK:=5
74 3343: 86 05 LDA #$05
75 3345: A7 00 STA +$00,X
76 WRITE(1:MMI,TTK,CRLF)
77 3347: 86 01 LDA #$01
78 3349: 97 01 STA <$01
79 334B: A6 20 LDA +$00,Y
80 334D: BD B4 32 JSR $B432
81 3350: A6 00 LDA +$00,X
82 3352: BD B4 32 JSR $B432
83 3355: BD B4 C1 JSR $B4C1
84 3358: 7E B3 D1 JMP $B3D1 puls x,pc
85 END
86
87
88 Tue Jan 8 15:58:00 JST 2019
89
90 use no frame pointer mode use S instead of x
91 module call. change y global pointer and stack in inter module call
92 use local variable in for-statement
93 os9 library calls
94 pointer/word extension ( pointer hoge )
95
96 full syntax test
97