mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-06 12:29:02 +00:00
Kernel 0.93+
This commit is contained in:
parent
714a4bdff2
commit
b06704463a
Binary file not shown.
@ -8,21 +8,11 @@ NewFile stz FileLen
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LoadFile >PUSHWZ Aux type
|
LoadFile >PUSHEA.G STATBUF
|
||||||
>PUSHBZ Type
|
|
||||||
>PUSHBI O.RDONLY
|
|
||||||
>LDA.G hFileName
|
>LDA.G hFileName
|
||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
>SYSCALL fopen
|
>SYSCALL stat
|
||||||
bcs NewFile
|
bcs NewFile
|
||||||
|
|
||||||
txa
|
|
||||||
>STA.G hFile
|
|
||||||
|
|
||||||
>PUSHEA.G STATBUF
|
|
||||||
>LDA.G hFile
|
|
||||||
>SYSCALL fstat
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
>LDA.G STATBUF+S.STAT.P.TYPE
|
>LDA.G STATBUF+S.STAT.P.TYPE
|
||||||
cmp #S.FI.T.TXT
|
cmp #S.FI.T.TXT
|
||||||
@ -31,9 +21,6 @@ LoadFile >PUSHWZ Aux type
|
|||||||
bne .91
|
bne .91
|
||||||
|
|
||||||
jmp LoadFile.ASM
|
jmp LoadFile.ASM
|
||||||
|
|
||||||
>LDA.G hFile
|
|
||||||
>SYSCALL fclose
|
|
||||||
|
|
||||||
.91 lda #MLI.E.INCFF
|
.91 lda #MLI.E.INCFF
|
||||||
sec
|
sec
|
||||||
@ -99,7 +86,23 @@ LoadFile >PUSHWZ Aux type
|
|||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LoadFile.TXT stz
|
LoadFile.TXT stz FileLen
|
||||||
|
stz FileLen+1
|
||||||
|
|
||||||
|
>PUSHWZ Aux type
|
||||||
|
>PUSHBI S.FI.T.TXT
|
||||||
|
>PUSHBI O.RDONLY+O.TEXT
|
||||||
|
>LDA.G hFileName
|
||||||
|
>SYSCALL GetMemPtr
|
||||||
|
>SYSCALL fopen
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
txa
|
||||||
|
>STA.G hFile
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LoadFile.ASM
|
LoadFile.ASM
|
||||||
lda #MLI.E.INCFF
|
lda #MLI.E.INCFF
|
||||||
|
@ -2,14 +2,7 @@ NEW
|
|||||||
AUTO 3,1
|
AUTO 3,1
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.Init >LDYAI 510+5+5+4+1 potentially 255*\\ NORM,INV,CEOL & \0
|
SCRN.Init >LDA.G ScreenH
|
||||||
>SYSCALL Getmem
|
|
||||||
bcs .9
|
|
||||||
>STYA LineBufPtr
|
|
||||||
txa
|
|
||||||
>STA.G hLineBuffer
|
|
||||||
|
|
||||||
>LDA.G ScreenH
|
|
||||||
dec
|
dec
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
|
@ -137,6 +137,13 @@ CS.RUN >PUSHBI 0
|
|||||||
>LDA.G ScreenW Wait for Response from terminal for W & H
|
>LDA.G ScreenW Wait for Response from terminal for W & H
|
||||||
beq .1
|
beq .1
|
||||||
|
|
||||||
|
>LDYAI 510+5+5+4+1 potentially 255*\\ NORM,INV,CEOL & \0
|
||||||
|
>SYSCALL Getmem
|
||||||
|
bcs CS.RUN.RTS
|
||||||
|
>STYA LineBufPtr
|
||||||
|
txa
|
||||||
|
>STA.G hLineBuffer
|
||||||
|
|
||||||
lda #1
|
lda #1
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
bcs .2 No arg, new file....
|
bcs .2 No arg, new file....
|
||||||
|
@ -215,6 +215,13 @@ m128k sta idapple Save MACHID in temp location
|
|||||||
LDR.IIGS stz vmode force setvid to reset cursor
|
LDR.IIGS stz vmode force setvid to reset cursor
|
||||||
jsr setvid reset output to screen
|
jsr setvid reset output to screen
|
||||||
|
|
||||||
|
lda #calldisp
|
||||||
|
sta cortdisp
|
||||||
|
lda /calldisp
|
||||||
|
sta cortdisp+1
|
||||||
|
lda #1
|
||||||
|
sta cortflag
|
||||||
|
|
||||||
ldx PAKME.CCLK
|
ldx PAKME.CCLK
|
||||||
ldy PAKME.CCLK+1
|
ldy PAKME.CCLK+1
|
||||||
jsr LDR.SetupCLK
|
jsr LDR.SetupCLK
|
||||||
@ -556,7 +563,6 @@ LDR.ClkDevScan php
|
|||||||
jmp LDR.SetupCLK
|
jmp LDR.SetupCLK
|
||||||
|
|
||||||
LDR.ClkDevTCLK lda CLRC8ROM switch out $C8 ROMs
|
LDR.ClkDevTCLK lda CLRC8ROM switch out $C8 ROMs
|
||||||
ldy #$05
|
|
||||||
|
|
||||||
stz idxl
|
stz idxl
|
||||||
lda #$C1
|
lda #$C1
|
||||||
|
@ -761,16 +761,16 @@ spvectlo .HS 0000000000000000 storage for low byte of smartport entry.
|
|||||||
spvecthi .HS 0000000000000000 storage for high byte of smartport entry.
|
spvecthi .HS 0000000000000000 storage for high byte of smartport entry.
|
||||||
.HS 00000000000000
|
.HS 00000000000000
|
||||||
|
|
||||||
cortflag .HS 00 cortland flag. 1 = Cortland system (must stay within page boundary)
|
|
||||||
|
|
||||||
XDOS.DATA.LEN .EQ *-XDOS.DATA
|
XDOS.DATA.LEN .EQ *-XDOS.DATA
|
||||||
|
|
||||||
.ED
|
.ED
|
||||||
|
|
||||||
* zero fill to page boundary - 3 ($FEFD). so that cortland flag stays within page boundary.
|
* zero fill to page boundary - 3 ($FEFD). so that cortland flag stays within page boundary.
|
||||||
.LIST ON
|
.LIST ON
|
||||||
XDOS.FREE .EQ $FF00-*-XDOS.DATA.LEN (ProDOS 2.0.3 = $0C)
|
XDOS.FREE .EQ $FEFD-*-XDOS.DATA.LEN (ProDOS 2.0.3 = $0C)
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
|
cortdisp .EQ $FEFD
|
||||||
|
cortflag .EQ $FEFF cortland flag. 1 = Cortland system (must stay within page boundary)
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
XDOS.LEN .EQ *-XDOS.START
|
XDOS.LEN .EQ *-XDOS.START
|
||||||
MAN
|
MAN
|
||||||
|
Loading…
Reference in New Issue
Block a user