Mercurial > hg > Members > kono > os9 > sbc09
diff src/os9/level2/cmds/fixbasic.pl @ 90:ec33be78865e
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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/os9/level2/cmds/fixbasic.pl Tue Aug 21 17:54:26 2018 +0900 @@ -0,0 +1,40 @@ +#!/usr/bin/perl +# + +while(<>) { + next if (/^ACIA/ .. /^TDRE/) ; + next if (/^TSTBRK/ .. /^ END/) ; + print; +} + + +print <<"EOFEOF" +****************************** +****************************** +TSTBRK bsr BRKEEE + bcc GETC05 +GETCHR bsr INEEE + CMPA \#ETX ; 3 + BNE GETC05 + JMP BREAK +INTEEE +GETC05 RTS +PUTCHR INC ZONE + JMP OUTEEE +****************************** +****************************** +INEEE PSHS D + JSR 0 + STB ,S + PULS D,PC +OUTEEE PSHS D + TFR A,B + JSR 3 + PULS D,PC +BRKEEE PSHS D + JSR \$12 + PULS D,PC +****************************** +****************************** + END +EOFEOF