Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-07-03 22:29:36 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-10-21 21:40:50 +02:00
parent 8b35c5ebae
commit 133e594441
6 changed files with 40 additions and 16 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.

BIN
.Floppies/A2OSX.TEST.po
View File

Binary file not shown.

30
BIN/ATBROWSE.S.txt
View File

@ -23,7 +23,7 @@ CS.START cld
.DA 0
.DA CS.END-CS.START CS
.DA DS.END-DS.START DS
.DA #16 SS
.DA #64 SS
.DA #4 ZP
.DA 0
*--------------------------------------
@ -44,17 +44,23 @@ CS.INIT clc
rts
*--------------------------------------
CS.RUN >STZ.G P.GetInfo Sync
lda #ATGetInfo
>STA.G P.GetInfo+1
>LEA.G P.GetInfo
>DEBUG
jsr A2osX.ATKCALL
bcc .10
bcc CS.RUN.ATKOK
pha
>LDYA L.MSG.NOATK
>SYSCALL printf
pla
sec
.99 rts
.10 >LDA.G P.GetInfo+$E NODE
rts
CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
>PUSHA
>PUSHW.G P.GetInfo+$8 NET
>LDYA L.MSG.NETNODE
@ -73,19 +79,26 @@ CS.RUN >STZ.G P.GetInfo Sync
>STYA.G P.LookupName+$10 BufLen
>SYSCALL getmem
bcs .99
>STYA.G P.LookupName+$12 BufPtr
>STYA ZPPTR1
txa
>STA.G hBuf
lda #16
>STA.G P.LookupName+$16 MaxMatch
>LEA.G P.LookupName
jsr A2osX.ATKCALL
bcs .99
.99 bcs .9
>LDA.G P.LookupName+$17
beq .8
>LDYA L.MSG.DUMP0
>SYSCALL printf
bcs .9
.1 lda ZPPTR1
clc
adc #5
@ -96,12 +109,15 @@ CS.RUN >STZ.G P.GetInfo Sync
>PUSHW ZPPTR2
ldy #4
.2 >PUSHB (ZPPTR1),y
dey
bpl .2
>LDYA L.MSG.DUMP
>SYSCALL printf
bcs .9
lda ZPPTR2
sec
adc (ZPPTR2)
@ -111,7 +127,9 @@ CS.RUN >STZ.G P.GetInfo Sync
sta ZPPTR1+1
>DEC.G P.LookupName+$17
bne .2
lda #0
.8 sec
.9 rts
*--------------------------------------
@ -142,5 +160,5 @@ DS.END
.ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/BIN/ATBROWSE.S
SAVE USR/SRC/BIN/ATBROWSE.S
ASM

9
INC/IO.I.txt
View File

@ -1,6 +1,5 @@
NEW
PREFIX
AUTO 4,1
AUTO 3,1
.LIST OFF
*--------------------------------------
* Software Switches
@ -39,7 +38,7 @@ RDHIRES .EQ $C01D R
RDALTCHAR .EQ $C01E R
RD80DISP .EQ $C01F R
*TAPEOUT .EQ $C020 W
newvideo .EQ $C029 video mode select
newvideo .EQ $C029 video mode select
SPEAKER .EQ $C030 W, toggle speaker diaphragm
*STROBE .EQ $C040 R, generate .5 uS low pulse @ Game pin 5
*RDVBLIIC .EQ $C05A R, VBL switch Status (IIc)
@ -64,8 +63,6 @@ SETHIRES .EQ $C057 W
SETAN3 .EQ $C05E W, Set annunciator-3 output to 0
CLRAN3 .EQ $C05F W, Set annunciator-3 output to 1
*DISVBLIIC .EQ $C05A W, Disable VBL switch (IIc)
*ENBVBLIIC .EQ $C05B W, Enable VBL switch (IIc)
SETDHIRES .EQ $C05E W, if IOUDIS Set, turn on double-hires
CLRDHIRES .EQ $C05F W, if IOUDIS Set, turn off double-hires
@ -79,7 +76,7 @@ SOLIDAPPLE .EQ $C062 R
*PADDLE1 .EQ $C065 R, bit 7 = status of pdl-1 timer
*PADDLE2 .EQ $C066 R, bit 7 = status of pdl-2 timer
*PADDLE3 .EQ $C067 R, bit 7 = status of pdl-3 timer
statereg .EQ $C068 memory state register
statereg .EQ $C068 memory state register
*PDLTRIG .EQ $C070 W, trigger paddles
SETIOUDIS .EQ $C07E W, enable DHIRES & disable $C058-5F

16
SYS/KERNEL.S.INIT.txt
View File

@ -449,13 +449,18 @@ CPU.Init.6502 >PUSHBI 0
lda MACHID
and #MACHID.T
cmp #MACHID.T.IIc
eor #MACHID.T.IIc
bne .1
sta CLRIOUDIS
lda IO.IIC.RDVBLMSK
asl
sta CLRIOUDIS
sta IO.IIC.ENVBL
.1 bit VBL
bpl .2
bpl .1
.2 bit VBL
bmi .2
@ -481,11 +486,14 @@ CPU.Init.6502 >PUSHBI 0
.6 lda MACHID
and #MACHID.T
cmp #MACHID.T.IIc
eor #MACHID.T.IIc
bne .60
lda IO.IIC.CLRVBLIRQ
bcs .60
sta IO.IIC.DISVBL
.60 plp

1
SYS/KERNEL.S.txt
View File

@ -8,6 +8,7 @@ NEW
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/IO.I
.INB INC/IO.IIC.I
.INB INC/MLI.I
.INB INC/MLI.E.I
.INB INC/NET.TELNET.I