>LIST
 1000 REM "fsys"
 1010OSBYTE = &FFF4
 1020[OPT Pass
 1030.starRS423
 1031   Jsr Boot \\\\\\\\\\\\\\\\\???????????
 1040   \ Warn vectors about to be claimed
 1050   Lda #6: Jsr CallFSC
 1060   \ Plug vectors
 1070   Jsr InitVec
 1080   \ Issue 'vectors claimed' (CALL &0F)
 1090   Lda #&8F: Ldx #&0F: Ldy #0: Jsr OSBYTE
 1100   \ Claim fixed workspace  (CALL &0A)
 1110   Lda #&8F: Ldx #&0A: Ldy #0: Jsr OSBYTE
 1120   \ Set flag in private workspace saying that we have fixed space
 1130   \ Initialise RS423 buffers if necessary
 1140   Rts
 1150 
 1160.CallFSC
 1170   Jmp (fscv)
 1180 
 1190.select_fs
 1200   Lda #&8F: Ldx #swstartFS: Ldy #our_fs_no: Jsr OSBYTE
 1210   Sec: Rts
 1220]
 1230RETURN
>*spool