Just for the record, this was the code compiled...
Code:
0100-DB B3 25 ( 11) loop: in a,(0b3h)
0102-10 FE 26 ( 8+) loop2: djnz loop2
0104-18 FA 27 ( 12) jr loop
This was entered manually at the RP/M prompt as follows...
Code:
S100
DB B3 10 FE 18 FA
.
G