Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-07-01 07:48:31 +02:00
parent 1946bfdb43
commit db6ce4e4cf
8 changed files with 41 additions and 24 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.

35
BIN/GTEST.S.txt
View File

@ -3,12 +3,12 @@ NEW
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/GTEST
.TF bin/gtest
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/KERNEL.I
.INB INC/GFX.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/kernel.i
.INB inc/gfx.i
*--------------------------------------
.DUMMY
.OR ZPBIN
@ -76,13 +76,16 @@ CS.RUN jsr GFX.Open
jsr GFX.Write.YA
lda #0
sec
rts
lda hFontB
sta CB.TEXTB+S.CB.hFont
>LDYA L.MESSAGEB
>STYA CB.TEXTB+S.CB.TxtPtr
>LDYA L.CB.TEXTB
>SYSCALL OSD
* >SYSCALL OSD
bcs .9
>LDYA L.CB.TEXTB
@ -97,7 +100,7 @@ CS.RUN jsr GFX.Open
>STYA CB.TEXT+S.CB.TxtPtr
>LDYA L.CB.TEXT
>SYSCALL OSD
* >SYSCALL OSD
bcs .9
>LDYA L.CB.TEXT
@ -131,7 +134,9 @@ CS.QUIT lda hFont
clc
rts
*--------------------------------------
LoadResources >PUSHWZ Aux type
LoadResources bra .1
>PUSHWZ Aux type
>PUSHBI $CC Type
>PUSHBI O.RDONLY
>LDYA L.FONTFILE
@ -147,7 +152,7 @@ LoadResources >PUSHWZ Aux type
bcs .9
stx hFontb
>PUSHWZ Aux type
.1 >PUSHWZ Aux type
>PUSHBI $CB Type
>PUSHBI O.RDONLY
>LDYA L.PIXFILE
@ -171,10 +176,10 @@ GFX.Write.YA >PUSHYA
rts
*--------------------------------------
CS.END
DEVNAME.GFX .AZ "/DEV/GFX"
FONTFILE .AZ "${ROOT}SBIN/GUI/SYSX7"
FONTFILEB .AZ "${ROOT}SBIN/GUI/SYSX7B"
PIXFILE .AZ "${ROOT}ROOT/GUITEST/MARILYN"
DEVNAME.GFX .AZ "/dev/gfx"
FONTFILE .AZ "${ROOT}sbin/sysx7"
FONTFILEB .AZ "${ROOT}sbin/sysx7b"
PIXFILE .AZ "${ROOT}root/guitest/marilyn"
MESSAGEB .AZ " DHGR Driver & OSD 'Off-Screen Driver' Test (SYSX7B Font, Inverse) "
MESSAGE .AZ " 1234567890 abcdefghijklmnopqrstuvwxyz { + - * / } (SYSX7B Font, Normal) "
@ -267,5 +272,5 @@ DS.END
.ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/GTEST.S
SAVE usr/src/bin/gtest.s
ASM

2
DRV/DHGR.DRV.S.txt
View File

@ -201,7 +201,7 @@ FD.DEV .DA #S.FD.T.CDEV
.BS 2 DRVPTR
.DA 0 DCBPTR
.DA 0 BUFPTR
FD.DEV.NAME .AZ "GFX"
FD.DEV.NAME .AZ "gfx"
*--------------------------------------
* Driver Code
*--------------------------------------

2
INC/A2osX.I.txt
View File

@ -204,7 +204,7 @@ SYS.GetChar .EQ $26
SYS.FPutS .EQ $28
SYS.PutS .EQ $2A
SYS.FGetS .EQ $2C
* .EQ $2E
SYS.UngetC .EQ $2E
SYS.FOpen .EQ $30
SYS.FClose .EQ $32

5
LIB/LIBTCPIP.S.TCP.txt
View File

@ -192,7 +192,7 @@ TCP.IN.JMP.ESTBLSH
.5 lda (ZPFrameInPtr),y
eor SKT.Cache+S.SOCKET.TCP.INSEQNUM,x
bne .90 Missed a frame.....go send ACK
bne .9 Missed a frame.....
dey
dex
@ -244,9 +244,6 @@ TCP.IN.JMP.ESTBLSH
.80 clc
rts
.90 lda #S.TCP.OPTIONS.ACK
jsr TCP.OUT.SendOptA
.9 sec
rts

2
SYS/KERNEL.S.JMP.txt
View File

@ -30,7 +30,7 @@ K.SYSCALL .DA K.ChTyp $00 : STAT
.DA K.FPutS
.DA K.PutS
.DA K.FGetS
.DA 0
.DA K.UngetC
.DA K.FOpen $30
.DA K.FClose

4
SYS/KERNEL.S.OSDX.txt
View File

@ -739,6 +739,6 @@ SHIFT8.L7 .DA #%00000000,#%10000000,#%00000001,#%10000001,#%00000010,#%10000010
.DA #%00111100,#%10111100,#%00111101,#%10111101,#%00111110,#%10111110,#%00111111,#%10111111
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.OSDX
LOAD USR/SRC/SYS/KERNEL.S
SAVE usr/src/sys/kernel.s.osdx
LOAD usr/src/sys/kernel.s
ASM

15
SYS/KERNEL.S.STDIO.txt
View File

@ -326,6 +326,21 @@ STDIO.Get.1 lda #0
>PUSHWI K.IOBuf
jmp UNISTD.READ
*/--------------------------------------
* # ungetc
* push byte back into input stream
* ## C
* `int ungetc(short int c, hFILE stream);
* ## ASM
* `>PUSHB c`
* `>PUSHB stream`
* `>SYSCALL ungetc`
* ## RETURN VALUE
* CC = success
* A = char
*\--------------------------------------
K.UngetC clc
rts
*/--------------------------------------
* # FOpen
* Open a file
* ## C