Mercurial > hg > Members > kono > os9 > sbc09

annotate TL1/test/t2.tl1 @ 191:d0f5894e9b3a default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
some how load: confilicts in gmake
author kono
date Thu, 07 Dec 2023 09:37:15 +0900
parents 6f7276831219
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
138
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 % ** SPRITE TEST PROGRAM **
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 PROC WAIT,TIME
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 %--- MAIN ---
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 VAR MMI,MMJ,MMK
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 BEGIN
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 MMI:=1 MMJ:=2 MMK:=3
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 WAIT
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 WRITE(1:MMI,CRLF)
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 END
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 %-- PROCEDURE WAIT --
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 WAIT
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 VAR WWJ,WWK
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 BEGIN
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 WWJ:=4
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 TIME
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 WRITE(1:MMI,WWJ,CRLF)
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 END
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 %-- PROCEDURE TIME --
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 TIME
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 VAR TTK,TTJ
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 BEGIN
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 TTK:=5
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 WRITE(1:MMI,TTK,CRLF)
6f7276831219 TL/1 use x and y register
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 END