Mercurial > hg > Members > kono > os9 > sbc09

comparison src/os9/level2/cmds/fixbasic.pl @ 91:1de7b2760b9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix basic
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 22 Aug 2018 15:02:28 +0900
parents ec33be78865e
children faa3bd1d062a
comparison
equal deleted inserted replaced
90:ec33be78865e 91:1de7b2760b9d
2 # 2 #
3 3
4 while(<>) { 4 while(<>) {
5 next if (/^ACIA/ .. /^TDRE/) ; 5 next if (/^ACIA/ .. /^TDRE/) ;
6 next if (/^TSTBRK/ .. /^ END/) ; 6 next if (/^TSTBRK/ .. /^ END/) ;
7 if (/^CLEAR/) {
8 print <<"EOFEOF"
9 JSR \$24 ;; echo off (but it is not suuported on pty.asm )
10 EOFEOF
11 }
12 if (/^GL02/) {
13 print "GL02\n"; # do not echo input
14 next;
15 }
7 print; 16 print;
8 } 17 }
9 18
10 19
11 print <<"EOFEOF" 20 print <<"EOFEOF"