Mercurial > hg > Members > kono > os9 > sbc09
view 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 source
#!/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