90
|
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
|