annotate TL1/Todo @ 178:4d83154d2a78

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