opt %10101››IOCB     equ $340›IO_COM   equ IOCB+2›IO_ADR   equ IOCB+4›IO_LEN   equ IOCB+8›CHN0     equ $0›PISZ     equ $0B›EOL      equ $9B›CIOV     equ $E456›CLS      equ $7d››         org $a000››         ldx #CHN0›         lda #PISZ›         sta IO_COM›         lda <TEXT›         sta IO_ADR,X›         lda >TEXT›         sta IO_ADR+1,X›         lda <ILE›         sta IO_LEN,X›         lda >ILE›         sta IO_LEN+1,X›         jsr CIOV›         rts››text     dta b(cls)›ILE      equ *-TEX