10
20
30 FORpass=4TO7STEP3
40 P%=&8000:O%=&5000
50 [OPTpass
60 EQUB0
70 EQUW0
80 JMPservice
90 EQUB&82
100 EQUBoffset MOD256
110 EQUB1
120 .title
130 EQUS"Service Trace ROM"
140 .offset
150 BRK
160 EQUS"(C) Bruce Smith"
170 BRK
180 .service
190 PHA
200 PHA
210 LSRA
220 LSRA
230 LSRA
240 LSRA
250 JSRconvert
260 PLA
270 AND#15
280 JSRconvert
290 LDA#32
300 JSR&FFEE
310 PLA
320 RTS
330 .convert
340 SED
350 CMP#10
360 ADC#&30
370 CLD
380 JMP&FFEE
390 ]
400 NEXT
410 OSCLI"SRWRITE 5000 "+STR$~O%+" 8000 6"