Mercurial > hg > Members > kono > os9 > sbc09
annotate TL1/test/t2.tl1 @ 138:6f7276831219
TL/1 use x and y register
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 07 Jan 2019 19:32:10 +0900 |
parents | |
children |
rev | line source |
---|---|
138 | 1 % ** SPRITE TEST PROGRAM ** |
2 PROC WAIT,TIME | |
3 %--- MAIN --- | |
4 VAR MMI,MMJ,MMK | |
5 BEGIN | |
6 MMI:=1 MMJ:=2 MMK:=3 | |
7 WAIT | |
8 WRITE(1:MMI,CRLF) | |
9 END | |
10 %-- PROCEDURE WAIT -- | |
11 WAIT | |
12 VAR WWJ,WWK | |
13 BEGIN | |
14 WWJ:=4 | |
15 TIME | |
16 WRITE(1:MMI,WWJ,CRLF) | |
17 END | |
18 %-- PROCEDURE TIME -- | |
19 TIME | |
20 VAR TTK,TTJ | |
21 BEGIN | |
22 TTK:=5 | |
23 WRITE(1:MMI,TTK,CRLF) | |
24 END |