2015-03-14 21:48:35 +00:00
|
|
|
|
PR#3
|
2015-03-15 22:00:40 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2015-03-14 21:48:35 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
INC 1
|
|
|
|
|
|
AUTO 6
|
|
|
|
|
|
.LIST OFF
|
|
|
|
|
|
.OP 65C02
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* PUBLIC
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLICreate
|
|
|
|
|
|
S.MLIDestroy
|
|
|
|
|
|
S.MLIRename
|
|
|
|
|
|
S.MLISetFileInfo
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* S.MLIGetFileInfoA
|
|
|
|
|
|
* in :
|
|
|
|
|
|
* A = hMem To FileName
|
|
|
|
|
|
* out :
|
|
|
|
|
|
* Y,A = PTR To Buffer (L=15)
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLIGetFileInfoA
|
|
|
|
|
|
jsr S.GetMemPtrA
|
|
|
|
|
|
S.MLIGetFileInfo
|
|
|
|
|
|
>STYA MLICALL.PARAMS+1
|
|
|
|
|
|
>KMLICALL MLIGETFILEINFO
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
>LDYAI MLICALL.PARAMS+3
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* S.MLIOnline
|
|
|
|
|
|
* in :
|
|
|
|
|
|
* PULLB = Device
|
|
|
|
|
|
* PULLW = Dest PTR
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLIOnline >PULLB MLICALL.PARAMS+1
|
|
|
|
|
|
>PULLW MLICALL.PARAMS+2
|
|
|
|
|
|
>KMLICALL MLIONLINE
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLISetPrefix
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLIGetPrefixA jsr S.GetMemPtrA
|
|
|
|
|
|
S.MLIGetPrefix >STYA MLICALL.PARAMS+1
|
|
|
|
|
|
>KMLICALL MLIGETPREFIX
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* S.MLIOpenA
|
|
|
|
|
|
* in :
|
|
|
|
|
|
* A = hMem To FileName
|
|
|
|
|
|
* out :
|
|
|
|
|
|
* A = ref_num
|
|
|
|
|
|
* X = buf hMem
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLIOpenA jsr S.GetMemPtrA
|
|
|
|
|
|
S.MLIOpen >STYA MLICALL.PARAMS+1
|
|
|
|
|
|
>PUSHWI 1024 get a ProDOS IO buffer
|
|
|
|
|
|
>PUSHBI S.MEM.F.ALIGN+S.MEM.F.NOMOV
|
|
|
|
|
|
jsr S.GetMem
|
|
|
|
|
|
bcs .99
|
|
|
|
|
|
phx save Prodos Buffer hMem
|
|
|
|
|
|
>STYA MLICALL.PARAMS+3
|
|
|
|
|
|
>KMLICALL MLIOPEN
|
|
|
|
|
|
bcs .98
|
|
|
|
|
|
lda MLICALL.PARAMS+5 get ref_num
|
|
|
|
|
|
plx get back Prodos Buffer hMem
|
|
|
|
|
|
rts CC
|
|
|
|
|
|
.98 plx get back Prodos Buffer hMem
|
|
|
|
|
|
pha save MLI error
|
|
|
|
|
|
txa
|
|
|
|
|
|
jsr S.FreeMemA discard Prodos Buffer
|
|
|
|
|
|
pla get back MLI error
|
|
|
|
|
|
sec
|
|
|
|
|
|
.99 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* S.MLINewline
|
|
|
|
|
|
* in :
|
|
|
|
|
|
* PULLB = ref_num
|
|
|
|
|
|
* PULLB = Enable Mask
|
|
|
|
|
|
* PULLB = Newline Char
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLINewLine >PULLB MLICALL.PARAMS+1
|
|
|
|
|
|
>PULLB MLICALL.PARAMS+2
|
|
|
|
|
|
>PULLB MLICALL.PARAMS+3
|
|
|
|
|
|
>KMLICALL MLINEWLINE
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* S.MLIRead
|
|
|
|
|
|
* in :
|
|
|
|
|
|
* PULLB = ref_num
|
|
|
|
|
|
* PULLW = Dest PTR
|
|
|
|
|
|
* PULLW = Bytes To Read
|
|
|
|
|
|
* out :
|
|
|
|
|
|
* Y,A = Bytes Read
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLIRead >PULLB MLICALL.PARAMS+1
|
|
|
|
|
|
>PULLW MLICALL.PARAMS+2
|
|
|
|
|
|
>PULLW MLICALL.PARAMS+4
|
|
|
|
|
|
>KMLICALL MLIREAD
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
>LDYA MLICALL.PARAMS+6
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* S.MLIWrite
|
|
|
|
|
|
* in :
|
|
|
|
|
|
* PULLB = ref_num
|
|
|
|
|
|
* PULLW = Dest PTR
|
|
|
|
|
|
* PULLW = Bytes To Read
|
|
|
|
|
|
* out :
|
|
|
|
|
|
* Y,A = Bytes Written
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLIWrite >PULLB MLICALL.PARAMS+1
|
|
|
|
|
|
>PULLW MLICALL.PARAMS+2
|
|
|
|
|
|
>PULLW MLICALL.PARAMS+4
|
|
|
|
|
|
>KMLICALL MLIWRITE
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
>LDYA MLICALL.PARAMS+6
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* S.MLIClose
|
|
|
|
|
|
* in :
|
|
|
|
|
|
* A = ref_num
|
|
|
|
|
|
* out :
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLICloseA sta MLICALL.PARAMS+1
|
|
|
|
|
|
>KMLICALL MLICLOSE
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLIFlushA
|
|
|
|
|
|
S.MLISetMark
|
|
|
|
|
|
S.MLIGetMark
|
|
|
|
|
|
S.MLISetEOF
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* S.MLIGetEOF
|
|
|
|
|
|
* in :
|
|
|
|
|
|
* A = ref_num
|
|
|
|
|
|
* out :
|
|
|
|
|
|
* Y,A,X = EOF
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
S.MLIGetEOFA sta MLICALL.PARAMS+1
|
|
|
|
|
|
>KMLICALL MLIGETEOF
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
>LDYA MLICALL.PARAMS+2
|
|
|
|
|
|
ldx MLICALL.PARAMS+4
|
|
|
|
|
|
clc
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE SYS/KERNEL.S.MLI
|
|
|
|
|
|
LOAD SYS/KERNEL.S
|
|
|
|
|
|
ASM
|
