58
|
1 ********************************************************************
|
86
|
2 * loop dummy loader
|
58
|
3 *
|
|
4 * $Id$
|
|
5 *
|
|
6 * Edt/Rev YYYY/MM/DD Modified by
|
|
7 * Comment
|
|
8 * ------------------------------------------------------------------
|
86
|
9 * 1 2018/07/30 S. Kono
|
58
|
10
|
86
|
11 nam Loop
|
|
12 ttl Dummy loop
|
58
|
13
|
|
14 ifp1
|
|
15 use defsfile
|
|
16 endc
|
|
17
|
|
18 * Module header definitions
|
|
19 tylg set Prgrm+Objct
|
|
20 atrv set ReEnt+rev
|
|
21 rev set $00
|
|
22 edition set 1
|
|
23
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
25
|
|
26 org 0
|
|
27 count rmb 2
|
|
28 size equ .
|
|
29
|
|
30 name fcs /Loop/
|
|
31 fcb edition
|
|
32
|
|
33 start ldy #4000
|
|
34 l1 ldx #0
|
|
35 l0 leax -1,x
|
|
36 bne l0
|
|
37 leay -1,y
|
|
38 bne l1
|
|
39 Exit clrb
|
|
40 os9 F$Exit
|
|
41
|
|
42
|
|
43 emod
|
|
44 eom equ *
|
|
45 end
|