NEW PREFIX AUTO 4,1 */-------------------------------------- * # open * ## C * `hFD open(const char *pathname, short int flags);` * ## ASM * **In:** * `>PUSHB flags` * `>LDYA pathname` * `>SYSCALL open` * ## RETURN VALUE * A = hFD * REG File created on ProDOS : T=TXT,X=$0000 *\-------------------------------------- K.Open.FLAGS .BS 1 K.Open.TYPE .BS 1 K.Open.AUXTYPE .BS 2 IO.hDev .BS 1 IO.hFD .BS 1 IO.hFILE .BS 1 IO.Counter .BS 2 *-------------------------------------- K.Open jsr PFT.YAToMLIPATH >PULLB K.Open.FLAGS lda #S.FI.T.TXT sta K.Open.TYPE stz K.Open.AUXTYPE stz K.Open.AUXTYPE+1 IO.Open.I ldx #5 $/DEV/ cpx K.MLI.PATH bcs IO.OPEN.REG .1 lda K.MLI.PATH,x cmp IO.DEVDIR,x bne IO.OPEN.REG dex bne .1 *-------------------------------------- * /DEV/xxxxxx (CDEV,BDEV,LNK,DSOCK,SSOCK,PIPE) *-------------------------------------- >LDYAI K.MLI.PATH+6 skip $/DEV/ jsr K.GetDevByName bcc .7 ldx #2 .10 lda Nod.Table.hPath-2,x beq .3 jsr K.GetMemPtr >STYA ZPPtr1 ldy #0 .2 lda (ZPPtr1),y iny cmp K.MLI.PATH,y bne .3 cmp #0 end of string ? bne .2 lda Nod.Table.hFD-2,x return hFD sta IO.hFD jsr K.GetMemPtr bra .71 .3 inx cpx #K.NOD.MAX+2 bne .10 lda #MLI.E.NODEV * sec rts no OF found .7 stx IO.hDev .71 >STYA pFD lda (pFD) #S.FD.T tax jmp (.8,x) .8 .DA STDIO.IOERR REG .DA STDIO.IOERR DIR .DA IO.OPEN.CDEV .DA IO.OPEN.BDEV .DA STDIO.IOERR LNK .DA IO.OPEN.DSOCK .DA IO.OPEN.SSOCK .DA IO.OPEN.PIPE IO.OPEN.RTS rts *-------------------------------------- IO.OPEN.REG >MLICALL MLIGETFILEINFO bcc IO.OPEN.REG.E Already Exists bit K.Open.FLAGS Create if not exists ? bpl IO.OPEN.RTS No, return MLI error ldx #2 Yes, Create... .1 lda K.Open.TYPE,x sta K.MLI.PARAMS+4,x File type,Aux type dex bpl .1 lda #S.FI.ST.STD jsr IO.MLI.CREATE bcs IO.OPEN.RTS IO.OPEN.REG.E >LDYAI S.FD.REG ldx #S.MEM.F.INIT0+S.MEM.F.FD jsr MEM.GetMem.YAX bcs IO.OPEN.RTS >STYA pFD stx IO.hFD * ldy #S.FD.T Done by GetMem0 * lda #S.FD.T.REG * sta (pFD),y jsr IO.MLIOPEN bcs IO.OPEN.ERR lda K.Open.FLAGS bit #O.WRONLY beq .20 Write mode ? and #O.APPEND Append ? bne .11 yes, go to end of file stz K.MLI.PARAMS+2 stz K.MLI.PARAMS+3 stz K.MLI.PARAMS+4 >MLICALL MLISETEOF no, reset size to 0 bra .21 .11 >MLICALL MLIGETEOF bcs IO.OPEN.ERR >MLICALL MLISETMARK .21 bcs IO.OPEN.ERR .20 lda K.Open.FLAGS and #O.TEXT Text Mode ? beq .8 lda #$FF sta K.MLI.PARAMS+2 lda #C.CR sta K.MLI.PARAMS+3 >MLICALL MLINEWLINE bcs IO.OPEN.ERR .8 lda IO.hFD rts IO.OPEN.ERR pha Save Error Code lda IO.hFD jsr K.Close pla sec rts *-------------------------------------- IO.OPEN.CDEV IO.OPEN.BDEV jsr K.IOCTL.GetPDrv ldx #IOCTL.OPEN lda IO.hDev jsr K.IOCTL.pDrvJmp bcs .9 lda IO.hDev .9 rts *-------------------------------------- IO.OPEN.DSOCK *-------------------------------------- IO.OPEN.SSOCK lda IO.hFD clc rts *-------------------------------------- IO.OPEN.PIPE ldy #S.FD.PIPE.S lda (pFD),y inc sta (pFD),y lda IO.hFD clc rts *-------------------------------------- IO.MLI.CREATE sta K.MLI.PARAMS+7 Storage Type ldx #3 .1 lda DATELO,x sta K.MLI.PARAMS+8,x Create Date/Time dex bpl .1 lda #S.FI.A.FULL sta K.MLI.PARAMS+3 Access >MLICALL MLICREATE rts */-------------------------------------- * # close * ## C * `int close(hFD fd);` * ## ASM * **In:** * `lda fd` * `>SYSCALL close` *\-------------------------------------- K.Close sta IO.hFD jsr K.GetMemPtr >STYA pFD IO.Close.I lda (pFD) #S.FD.T tax jmp (.1,x) .1 .DA IO.CLOSE.REG .DA IO.CLOSE.DIR .DA IO.CLOSE.CDEV .DA IO.CLOSE.BDEV .DA STDIO.IOERR LNK .DA IO.CLOSE.DSOCK .DA IO.CLOSE.SSOCK .DA IO.CLOSE.PIPE *-------------------------------------- IO.CLOSE.REG IO.CLOSE.DIR ldy #S.FD.REG.REF lda (pFD),y beq .1 sta K.MLI.PARAMS+1 >MLICALL MLICLOSE .1 ldy #S.FD.REG.IOBUF bra IO.CLOSE.FD *-------------------------------------- IO.CLOSE.CDEV IO.CLOSE.BDEV *-------------------------------------- IO.CLOSE.DSOCK IO.CLOSE.SSOCK clc rts *-------------------------------------- IO.CLOSE.PIPE ldy #S.FD.PIPE.S lda (pFD),y bmi .1 remote PS closed its end lda #$80 sta (pFD),y clc rts .1 jsr IO.CLOSE.NOD ldy #S.FD.PIPE.hMem IO.CLOSE.FD lda (pFD),y beq .1 jsr K.FreeMem .1 lda IO.hFD jmp K.FreeMem *-------------------------------------- IO.CLOSE.NOD ldx #2 lda IO.hFD .1 cmp Nod.Table.hFD-2,x bne .2 stz Nod.Table.hFD-2,x lda Nod.Table.hPath-2,x stz Nod.Table.hPath-2,x jmp K.FreeMem .2 inx cpx #K.Nod.MAX+2 bne .1 lda #E.INVH * sec rts */-------------------------------------- * # read (BLOCKING) * ## C * `int read(hFD fd, void *buf, int count);` * ## ASM * **In:** * `>PUSHWI count` * `>PUSHW buf` * `lda fd` * `>SYSCALL read` * ## RETURN VALUE * CC: Y,A = bytes read * CS: A = EC *\-------------------------------------- K.Read sta IO.hFD jsr K.GetMemPtr >STYA pFD IO.Read.I lda (pFD) #S.FD.T tax jmp (.1,x) .1 .DA IO.READ.REG .DA STDIO.IOERR DIR .DA IO.READ.CDEV .DA STDIO.IOERR BDEV .DA STDIO.IOERR LNK .DA STDIO.IOERR DSOCK .DA IO.READ.SSOCK .DA IO.READ.PIPE */-------------------------------------- * # write (BLOCKING) * ## C * `int write(hFD fd, const void *buf, int count);` * ## ASM * **In:** * `>PUSHWI count` * `>PUSHW buf` * `lda fd` * `>SYSCALL write` * ## RETURN VALUE * CC: Y,A = bytes written * CS: A = EC *\-------------------------------------- K.Write sta IO.hFD jsr K.GetMemPtr >STYA pFD IO.Write.I lda (pFD) #S.FD.T tax jmp (.1,x) .1 .DA IO.WRITE.REG .DA STDIO.IOERR DIR .DA IO.WRITE.CDEV .DA STDIO.IOERR BDEV .DA STDIO.IOERR LNK .DA STDIO.IOERR DSOCK .DA IO.WRITE.SSOCK .DA IO.WRITE.PIPE *-------------------------------------- IO.READ.REG ldx #MLIREAD .HS 2C BIT ABS *-------------------------------------- IO.WRITE.REG ldx #MLIWRITE ldy #S.FD.REG.REF lda (pFD),y sta K.MLI.PARAMS+1 >PULLW K.MLI.PARAMS+2 >PULLW K.MLI.PARAMS+4 lda #4 Param Count = 4 for MLIREAD & MLIWRITE jsr GP.MLICall bcs .9 >LDYA K.MLI.PARAMS+6 .9 rts *-------------------------------------- * (pStack)+2 count * (pStack)+0 buf *-------------------------------------- IO.READ.CDEV ldx #IOCTL.READ .HS 2C BIT ABS *-------------------------------------- IO.WRITE.CDEV ldx #IOCTL.WRITE ldy #3 .1 lda (pStack),y sta K.S.IOCTL+S.IOCTL.BUFPTR,y dey bpl .1 jsr K.IOCTL.GetPDRV >LDYAI K.S.IOCTL jsr K.IOCTL.pDrvJmp bcc .8 tay CS, A=0 ? bne .9 no, I/O error rts BLOCKING I/O .8 >LDYA K.S.IOCTL+S.IOCTL.BYTECNT .9 >RET 4 *-------------------------------------- IO.WRITE.SSOCK ldy #S.FD.SSOCK.WRITE .HS 2C BIT ABS *-------------------------------------- IO.READ.SSOCK ldy #S.FD.SSOCK.READ lda (pFD),y tax Function Offset in LIB ldy #S.FD.SSOCK.IOHANDLER lda (pFD),y jsr K.GetMemPtr >STYA .1+1 lda IO.hFD .1 jsr $FFFF SELF MODIFIED bcs .9 phy ply bne .9 tax bne .9 inc pStack CC, Y,A = 0 inc pStack inc pStack inc pStack keep buf/count on stack sec BLOCKING I/O .9 rts *-------------------------------------- * (pStack)+2 count * (pStack)+0 buf *-------------------------------------- IO.READ.PIPE ldy #S.FD.PIPE.Used+1 lda (pFD),y Data ? dey ora (pFD),y bne .10 yes... ldy #S.FD.PIPE.S lda (pFD),y bpl .11 jmp IO.READ.PIPE.99 Remote PS closed the Pipe .11 lda #0 BLOCKING I/O sec rts .10 >PULLW .3+1 get buf >PULLA get cnt lo eor #$ff sta IO.Counter >PULLA get cnt hi eor #$ff sta IO.Counter+1 ldy #S.FD.PIPE.hMem lda (pFD),y jsr K.GetMemPtr >STYA .2+1 ldy #S.FD.PIPE.Head lda (pFD),y sta .4+1 dey S.FD.PIPE.Tail lda (pFD),y tay ldx #0 .1 inc IO.Counter bne .2 inc IO.Counter+1 beq .5 .2 lda $ffff,y SELF MODIFIED .3 sta $ffff,x SELF MODIFIED inx beq .8 moved $100 bytes iny .4 cpy #$ff SELF MODIFIED bne .1 .5 clc .HS B0 BCS .8 sec lda #0 rol sta IO.Counter+1 stx IO.Counter tya ldy #S.FD.PIPE.Tail sta (pFD),y txa ldy #S.FD.PIPE.Free clc adc (pFD),y sta (pFD),y iny lda IO.Counter+1 adc (pFD),y sta (pFD),y ldy #S.FD.PIPE.Used sec lda (pFD),y sbc IO.Counter sta (pFD),y iny lda (pFD),y sbc IO.Counter+1 sta (pFD),y ldy IO.Counter lda IO.Counter+1 Y,A = bytes read clc rts IO.READ.PIPE.99 lda #MLI.E.EOF sec >RET 4 *-------------------------------------- * (pStack)+2 count * (pStack)+0 buf *-------------------------------------- IO.WRITE.PIPE ldy #S.FD.PIPE.S lda (pFD),y bmi IO.READ.PIPE.99 Remote PS closed the Pipe sec ldy #S.FD.PIPE.Free lda (pFD),y ldy #2 sbc (pStack),y tax ldy #S.FD.PIPE.Free+1 lda (pFD),y ldy #3 sbc (pStack),y bcc .9 not enough room in PIPE ldy #S.FD.PIPE.Free+1 sta (pFD),y dey txa sta (pFD),y store new Free >PULLW .2+1 get buf >PULLA get cnt lo pha eor #$ff sta IO.Counter pla ldy #S.FD.PIPE.Used clc adc (pFD),y sta (pFD),y >PULLA get cnt hi pha eor #$ff sta IO.Counter+1 pla ldy #S.FD.PIPE.Used+1 adc (pFD),y sta (pFD),y ldy #S.FD.PIPE.hMem lda (pFD),y jsr K.GetMemPtr >STYA .3+1 ldy #S.FD.PIPE.Head lda (pFD),y tay ldx #0 .1 inc IO.Counter bne .2 inc IO.Counter+1 beq .8 .2 lda $ffff,x SELF MODIFIED .3 sta $ffff,y SELF MODIFIED iny inx bne .1 sec moved $100 bytes .HS 90 BCC .8 clc tya ldy #S.FD.PIPE.Head sta (pFD),y txa tay lda #0 Y,A = bytes written rol * clc rts .9 lda #0 BLOCKING I/O sec rts */-------------------------------------- * # IOCTL * ## C * `int ioctl(short int DevID, int request, void * param );` * ## ASM * `PUSHWI param` * `PUSHBI request` * `lda hDEV` * `>SYSCALL IOCTL` * ## RETURN VALUE * Y,A = ... *\-------------------------------------- K.IOCTL tax lda Dev.Table,x beq K.IOCTL.9 sta pFD+1 lda Dev.Table-1,x sta pFD jsr K.IOCTL.GetPDrv >PULLA tax request >PULLYA param K.IOCTL.pDrvJmp jmp (pDrv) K.IOCTL.9 sec lda #MLI.E.NODEV >RET 3 *-------------------------------------- K.IOCTL.GetPDrv ldy #S.FD.DEV.DRVPTR lda (pFD),y sta pDRV iny lda (pFD),y sta pDRV+1 rts *-------------------------------------- IO.MLIOPEN >LDYAI 1024 get a ProDOS IOBUF ldx #S.MEM.F.ALIGN+S.MEM.F.NOMOVE jsr MEM.GetMem.YAX bcs .9 >STYA K.MLI.PARAMS+3 Save Ptr to IOBUF for MLIOPEN call txa ldy #S.FD.REG.IOBUF sta (pFD),y >MLICALL MLIOPEN bcs .9 lda K.MLI.PARAMS+5 get ref_num ldy #S.FD.REG.REF sta (pFD),y sta K.MLI.PARAMS+1 Next MLI Calls are REF_NUM based * clc .9 rts *-------------------------------------- IO.EOF tax jmp (.1,x) .1 .DA STDIO.IOERR REG .DA STDIO.IOERR DIR .DA IO.EOF.CDEV .DA STDIO.IOERR BDEV .DA STDIO.IOERR LNK .DA STDIO.IOERR DSOCK .DA IO.EOF.SSOCK .DA IO.EOF.PIPE *-------------------------------------- IO.EOF.CDEV >LDYAI K.IOBuf >STYA K.S.IOCTL+S.IOCTL.BUFPTR lda #S.IOCTL.STATCODE.GETRC jsr K.GetDevStatus.I bcs .9 lda K.IOBuf ora K.IOBuf+1 .9 rts *-------------------------------------- IO.EOF.SSOCK ldy #S.FD.SSOCK.EOF lda (pFD),y tax Function Offset in LIB ldy #S.FD.SSOCK.IOHANDLER lda (pFD),y jsr K.GetMemPtr >STYA .1+1 lda IO.hFD .1 jmp $FFFF SELF MODIFIED *-------------------------------------- IO.EOF.PIPE lda #MLI.E.IO sec rts *-------------------------------------- IO.DEVDIR >PSTR "/DEV/" *-------------------------------------- MAN SAVE USR/SRC/SYS/KERNEL.S.IO LOAD USR/SRC/SYS/KERNEL.S ASM