10
20 DIM mcode% &1000
30 FOR P=0 TO 1
40 P%=&8000:O%=mcode%
50 [OPT P*3+4
60 BRK:EQUW RelocTable
70 JMP serv
80 EQUB &82
90 EQUB copy-&8000
100 EQUB 0
110 EQUS "Dummy OSWORD &7F"
120 .copy
130 BRK
140 EQUS "(C)1992 J.G.Harston":BRK
150 .serv
160 CMP #&08:BNE quit
170 LDA &EF
180 CMP #&7F:BNE serv8quit
190 LDA #&00:RTS
200 .serv8quit
210 LDA #8
220 .quit
230 RTS
240 .RelocTable
250 EQUB &02
260 ]NEXT
270 PRINT"*SAVE SWOsw7F ";~mcode%;" ";~O%;" 0 FFFBBC00"