Mercurial > hg > Members > kono > os9 > sbc09

annotate os9/level2/cmds/cat.asm @ 169:c9dc1be48de4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 11 Apr 2019 14:09:32 +0900
parents 5aeff8abca9c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
97
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
1 *******************************************************************2
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
2 * sbc09 emulator * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
3 * Comment
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
4 * ------------------------------------------------------------------
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
5 * 1 2018/08/20 S. Kono * on os9 lv2
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6
97
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
7 nam Cat
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
8 ttl echo test
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 ifp1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 use defsfile
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 endc
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 * Module header definitions
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 tylg set Prgrm+Objct
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 atrv set ReEnt+rev
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 rev set $00
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 edition set 1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 mod eom,name,tylg,atrv,start,size
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 org 0
169
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 97
diff changeset
23 ientry rmb $80
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 filepath rmb 2
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 parmptr rmb 2
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 stdin rmb 1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 chksum rmb 1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 bcount rmb 1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 adr rmb 2
91
1de7b2760b9d fix basic
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 87
diff changeset
30 work rmb 2
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 readbuff rmb $100
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 org $400
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 size equ .
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34
97
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
35 name fcs /Cat/
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
36 fcb edition
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37
97
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
38 start clr <stdin
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
39 stx <parmptr save parameter pointer
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
40 stu <work save parameter pointer
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
41 bsr catloop
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
42 lbsr noecho
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
43 bsr catloop
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
44 lbsr setecho
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
45 bsr catloop
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
46 ldb #10
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
47 ldx <work
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
48 leax readbuff
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
49 bsr getline
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
50 clrb
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
51 os9 F$Exit
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52
97
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
53 catloop bsr getchar
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
54 bsr putchar
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
55 cmpb #C$CR
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
56 bne catloop
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
57 bra putcr
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
58
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 putchar * Output one character in B register.
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 PSHS X,Y
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 BRA OUTCH1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 getchar * Input one character into B register.
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 PSHS A,B,X,Y
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 GETCH0
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 LDA #0
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 LEAX 1,S
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 LDY #1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 OS9 I$Read
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 BCS GETCH0
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 PULS A,B,X,Y,PC
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 putcr * Output a newline.
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 LDB #C$CR
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 bsr putchar
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 LDB #C$LF
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 PSHS X,Y
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 OUTCH1 PSHS A,B
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 LEAX 1,S
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 LDA #1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 LDY #1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 OS9 I$Write
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 PULS A,B,X,Y,PC
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 getpoll
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 PSHS X,Y,D
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 LDA #0
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 LDB #SS.Ready
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 OS9 I$GetStt
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 CMPB #$F6 Not Ready
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 BNE RSENSE
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 CLRB
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 PULS X,Y,D,PC
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 RSENSE
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 ORCC #1 set carry to indicate ready
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 RNSENSE
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 PULS X,Y,D,PC
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
95
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 getline * Input line at address in X, length in B.
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 PSHS A,B,X,Y
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 GETLN0
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 CLRA
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 TFR D,Y
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 LDA <stdin
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 OS9 I$ReadLn
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 BCS GETLN0
87
60e629904ad6 forth worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
104 LEAY -1,Y
60e629904ad6 forth worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 86
diff changeset
105 TFR Y,D
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 * LDA D,X
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 * CMPA #C$CR
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 * BNE GETLN1
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 * LEAY -1,Y
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 GETLN1 STY ,S
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 PULS A,B,X,Y,PC
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 putline * Output string at address in X, length in B.
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 PSHS A,B,X,Y
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 CLRA
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 TFR D,Y
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 LDA <stdin
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 OS9 I$WritLn
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 PULS A,B,X,Y,PC
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
119
97
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
120 setecho lda #1
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
121 bra sss
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
122 noecho clra
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
123 sss pshs a
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
124 sta ,s
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
125 LDA <stdin
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
126 ldb #SS.Opt
91
1de7b2760b9d fix basic
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 87
diff changeset
127 LDX <work
1de7b2760b9d fix basic
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 87
diff changeset
128 leax readbuff,X
1de7b2760b9d fix basic
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 87
diff changeset
129 OS9 I$GetStt
1de7b2760b9d fix basic
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 87
diff changeset
130 bcs err2
97
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
131 LDA ,s
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
132 STA PD.EKO-PD.OPT,X
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
133 setopts
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
134 ldb #SS.Opt
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
135 lda <stdin
91
1de7b2760b9d fix basic
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 87
diff changeset
136 OS9 I$SetStt
1de7b2760b9d fix basic
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 87
diff changeset
137 err2
97
5aeff8abca9c add echo control on sbc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 94
diff changeset
138 puls a,pc
91
1de7b2760b9d fix basic
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 87
diff changeset
139
86
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 delay PSHS D,X * address **$21**
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 * On input the D register contains the number of timer
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 * ticks to wait. Each timer tick is 20ms
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 TFR D,X
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 OS9 F$Sleep
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 PULS D,X,PC
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
146
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
147
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
148
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 emod
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 eom equ *
4967d1acd34a add sbc09.asm
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 end