annotate cmds/loop.asm @ 58:efbe39fee3ae

add command directory
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 23 Jul 2018 19:36:38 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
58
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 ********************************************************************
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 * Cmp - Binary file comparison utility
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 *
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 * $Id$
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 *
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 * Comment
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 * ------------------------------------------------------------------
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 * 1 2003/01/20 Boisy G. Pitre
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 * Rewritten in assembly for size.
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 nam Cmp
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 ttl Binary file comparison utility
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 ifp1
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 use defsfile
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 endc
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 * Module header definitions
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 tylg set Prgrm+Objct
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 atrv set ReEnt+rev
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 rev set $00
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 edition set 1
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 mod eom,name,tylg,atrv,start,size
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 org 0
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 count rmb 2
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 size equ .
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 name fcs /Loop/
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 fcb edition
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 start ldy #4000
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 l1 ldx #0
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 l0 leax -1,x
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 bne l0
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 leay -1,y
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 bne l1
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 Exit clrb
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 os9 F$Exit
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 emod
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 eom equ *
efbe39fee3ae add command directory
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 end