1000 REM "oscli"
 1010[OPT Pass
 1020.oscli
 1030Php:Sei
 1040Stx scratch0
 1050Sty scratch1
 1060Ldy #0
 1070.oscli_nxt
 1080Lda (scratch0),Y   \ REM Haven't ckecked other uses of scratch space here
 1090Sta &100,Y
 1091Cmp #13
 1100Beq oscli_ende
 1110Iny
 1120Bne oscli_nxt
 1130.oscli_ende
 1140Plp
 1150Ldx #0
 1160Ldy #1
 1170Jmp &FFF7
 1180]
 1190RETURN