Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.93

This commit is contained in:
Rémy GIBERT 2019-04-11 06:56:05 +01:00
parent 51b29cb1eb
commit f85e1583b8
4 changed files with 21 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

19
A2osX.S.txt
View File

@ -17,8 +17,8 @@ NEW
TmpPtr1 .EQ $0 main & aux ZP TmpPtr1 .EQ $0 main & aux ZP
TmpPtr2 .EQ $2 main & aux ZP TmpPtr2 .EQ $2 main & aux ZP
*-------------------------------------- *--------------------------------------
A2osX.LOGOLOAD .EQ $2000
A2osX.KMLOAD .EQ $2000 A2osX.KMLOAD .EQ $2000
A2osX.LOGOLOAD .EQ $4000
A2osX.KMMAXLEN .EQ $6000 A2osX.KMMAXLEN .EQ $6000
A2osX.OpenBuff1 .EQ $8000 1024 Buffer for MLIOPEN01 A2osX.OpenBuff1 .EQ $8000 1024 Buffer for MLIOPEN01
A2osX.OpenBuff2 .EQ $8400 1024 Buffer for MLIOPEN02 A2osX.OpenBuff2 .EQ $8400 1024 Buffer for MLIOPEN02
@ -151,7 +151,7 @@ A2osX.EnumKM >LDYAI MSG.KMENUM
*-------------------------------------- *--------------------------------------
A2osX.MLIQuit >LDYAI MSG.INIT0OK A2osX.MLIQuit >LDYAI MSG.INIT0OK
jsr PrintFYA jsr PrintFYA
>DEBUG
>DEBUGOA >DEBUGOA
jsr MLI jsr MLI
.DA #MLIQUIT .DA #MLIQUIT
@ -270,7 +270,7 @@ A2osX.ScreenDLGR
lda TmpPtr1 lda TmpPtr1
clc clc
adc #80 adc #40
sta TmpPtr1 sta TmpPtr1
bcc .3 bcc .3
inc TmpPtr1+1 inc TmpPtr1+1
@ -300,20 +300,11 @@ A2osX.ScreenDLGR
iny iny
cpy #40 cpy #40
bne .2 bne .4
lda TmpPtr1 lda TmpPtr1
clc clc
adc #80 adc #40
sta TmpPtr1
bcc .3
inc TmpPtr1+1
lda TmpPtr1
clc
adc #80
sta TmpPtr1 sta TmpPtr1
bcc .7 bcc .7
inc TmpPtr1+1 inc TmpPtr1+1

30
BIN/BMP2PIX.S.txt
View File

@ -113,13 +113,13 @@ CS.RUN
.4 >LDA.G hInputFile .4 >LDA.G hInputFile
bne .5 bne .5
jsr CS.RUN.OPENINPUT jsr CS.RUN.OpenInput
bcc .1 scan for any other args bcc .1 scan for any other args
rts rts
.5 >LDA.G hOutputFile .5 >LDA.G hOutputFile
bne .99 bne .99
jsr CS.RUN.CREATEOUTPUT jsr CS.RUN.CreateOutput
bcc .1 scan for any other args bcc .1 scan for any other args
.9 rts .9 rts
@ -296,6 +296,9 @@ CS.RUN.24 lda #S.BM.F.BBP4
.2 sta ZPOutputRowBytes .2 sta ZPOutputRowBytes
stx ZPOutputRowBytes+1 stx ZPOutputRowBytes+1
>STA.G PIX.Header+S.BM.RowBytes
* txa
* >STA.G PIX.Header+S.BM.RowBytes+1
jsr CS.RUN.GetOutputBuf jsr CS.RUN.GetOutputBuf
bcs CS.RUN.RTS bcs CS.RUN.RTS
@ -315,7 +318,7 @@ CS.RUN.24.LOOP inc ZPLineCount
lda #$ff lda #$ff
sta ZPCntX sta ZPCntX
jsr CS.RUN.READINPUT jsr CS.RUN.ReadInput
bcs .9 bcs .9
lda ZPOutputBuf lda ZPOutputBuf
@ -359,7 +362,7 @@ CS.RUN.24.LOOP inc ZPLineCount
tay tay
pla pla
bcc .6 bcs .6
sta (ZPOutputBuf),y sta (ZPOutputBuf),y
bra .2 bra .2
@ -371,7 +374,7 @@ CS.RUN.24.LOOP inc ZPLineCount
sta (ZPOutputBuf),y sta (ZPOutputBuf),y
bra .2 bra .2
.8 jsr CS.RUN.WRITE .8 jsr CS.RUN.WriteOutput
bcs .9 bcs .9
lda #0 lda #0
@ -467,7 +470,7 @@ CS.RUN.GetNearestColor
CS.RUN.GetIndexInPalette.RTS CS.RUN.GetIndexInPalette.RTS
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.OPENINPUT CS.RUN.OpenInput
>PUSHWI 0 Aux type >PUSHWI 0 Aux type
>PUSHBI 0 Type >PUSHBI 0 Type
>PUSHBI O.RDONLY >PUSHBI O.RDONLY
@ -539,7 +542,7 @@ CS.RUN.OPENINPUT
sec sec
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.READINPUT CS.RUN.ReadInput
>PUSHW ZPInputRowBytes >PUSHW ZPInputRowBytes
>PUSHW ZPInputBuf >PUSHW ZPInputBuf
>LDA.G hInputFile >LDA.G hInputFile
@ -557,7 +560,7 @@ CS.RUN.READINPUT
sta ZPPixelCount+1 sta ZPPixelCount+1
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.CREATEOUTPUT CS.RUN.CreateOutput
>PUSHWI 0 Aux type >PUSHWI 0 Aux type
>PUSHBI $CB PIX Type >PUSHBI $CB PIX Type
>PUSHBI O.WRONLY+O.CREATE >PUSHBI O.WRONLY+O.CREATE
@ -589,13 +592,14 @@ CS.RUN.GetOutputBuf
sta ZPPtr1+1 sta ZPPtr1+1
bra .1 bra .1
.8 >LDYA.G ZPPtr1 .8 >LDYA ZPPtr1
>SYSCALL Getmem >SYSCALL Getmem
bcs .9 bcs .9
>STYA ZPOutputBuf >STYA ZPOutputBuf
txa txa
>STA.G hOutputBuf >STA.G hOutputBuf
lda ZPPtr1 lda ZPPtr1
>STA.G OutputDataLen >STA.G OutputDataLen
clc clc
@ -610,7 +614,8 @@ CS.RUN.GetOutputBuf
clc clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.WRITE >PUSHWI S.BM CS.RUN.WriteOutput
>PUSHWI S.BM
>PUSHEA.G PIX.Header >PUSHEA.G PIX.Header
>LDA.G hOutputFile >LDA.G hOutputFile
>SYSCALL FWrite >SYSCALL FWrite
@ -621,9 +626,6 @@ CS.RUN.WRITE >PUSHWI S.BM
>LDA.G hOutputFile >LDA.G hOutputFile
>SYSCALL FWrite >SYSCALL FWrite
.9 rts
*--------------------------------------
CS.RUN.WRITE.BUF
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.DOEVENT sec CS.DOEVENT sec

BIN
_Pics/A2osX.logo.bmp
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 9.3 KiB

After

Width:  |  Height:  |  Size: 9.4 KiB