Mercurial > hg > Members > kono > os9 > sbc09

comparison src/os9/level2/cmds/fixbasic.pl @ 90:ec33be78865e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add basic to os9 level2
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 21 Aug 2018 17:54:26 +0900
parents
children 1de7b2760b9d
comparison
equal deleted inserted replaced
89:4149bcd915e0 90:ec33be78865e
1 #!/usr/bin/perl
2 #
3
4 while(<>) {
5 next if (/^ACIA/ .. /^TDRE/) ;
6 next if (/^TSTBRK/ .. /^ END/) ;
7 print;
8 }
9
10
11 print <<"EOFEOF"
12 ******************************
13 ******************************
14 TSTBRK bsr BRKEEE
15 bcc GETC05
16 GETCHR bsr INEEE
17 CMPA \#ETX ; 3
18 BNE GETC05
19 JMP BREAK
20 INTEEE
21 GETC05 RTS
22 PUTCHR INC ZONE
23 JMP OUTEEE
24 ******************************
25 ******************************
26 INEEE PSHS D
27 JSR 0
28 STB ,S
29 PULS D,PC
30 OUTEEE PSHS D
31 TFR A,B
32 JSR 3
33 PULS D,PC
34 BRKEEE PSHS D
35 JSR \$12
36 PULS D,PC
37 ******************************
38 ******************************
39 END
40 EOFEOF