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

A2osX 0.95 : 

- NEW A2OSX.BUILD media, old one corrupted by ProDOS.FX bug
 - most of BIN/SBIN/LIBS reASMed with .95 API
This commit is contained in:
burniouf 2023-11-12 22:12:24 +01:00
parent 6edf99a78f
commit 6adfe9fdda
15 changed files with 87 additions and 86 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.

1
BIN/ASM.S.txt
View File

@ -334,6 +334,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
>LDA.G ASM.PASS End of pass #2 ?? >LDA.G ASM.PASS End of pass #2 ??
bne .1 bne .1
inc inc
sta (pData),y sta (pData),y

8
BIN/MEMDUMP.S.txt
View File

@ -22,9 +22,9 @@ USED.COUNT .BS 1
LINE.COUNT .BS 1 LINE.COUNT .BS 1
bSTOP .BS 1 bSTOP .BS 1
ZPReadAux sta SETREADAUX ZPReadAux sta IO.SETREADAUX
lda (ZPPTR1),y lda (ZPPTR1),y
sta CLRREADAUX sta IO.CLRREADAUX
rts rts
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
@ -454,9 +454,9 @@ CS.QUIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
ZPCode sta SETREADAUX ZPCode sta IO.SETREADAUX
lda (ZPPTR1),y lda (ZPPTR1),y
sta CLRREADAUX sta IO.CLRREADAUX
rts rts
ZPCodeLen .EQ *-ZPCode ZPCodeLen .EQ *-ZPCode
*-------------------------------------- *--------------------------------------

18
BIN/NSCUTIL.S.txt
View File

@ -173,10 +173,10 @@ CS.QUIT clc
NSC.Init php NSC.Init php
sei sei
lda RDCXROM lda IO.RDCXROM
php php
sta SETCXROM sta IO.SETCXROM
ldx #8 ldx #8
@ -194,7 +194,7 @@ NSC.Init php
plp plp
bmi .8 bmi .8
sta CLRCXROM sta IO.CLRCXROM
.8 plp .8 plp
rts rts
@ -202,10 +202,10 @@ NSC.Init php
NSC.Read php NSC.Read php
sei sei
lda RDCXROM lda IO.RDCXROM
php php
sta SETCXROM sta IO.SETCXROM
jsr NSC.Select jsr NSC.Select
@ -225,7 +225,7 @@ NSC.Read php
plp plp
bmi .8 bmi .8
sta CLRCXROM sta IO.CLRCXROM
.8 plp .8 plp
rts rts
@ -233,10 +233,10 @@ NSC.Read php
NSC.Write php NSC.Write php
sei sei
lda RDCXROM lda IO.RDCXROM
php php
sta SETCXROM sta IO.SETCXROM
jsr NSC.Select jsr NSC.Select
@ -266,7 +266,7 @@ NSC.Write php
plp plp
bmi .8 bmi .8
sta CLRCXROM sta IO.CLRCXROM
.8 plp .8 plp
rts rts

12
BIN/NTPDATE.S.txt
View File

@ -373,21 +373,21 @@ SetProDOSTime lda STime+S.TIME.MONTH
asl asl
asl asl
asl asl
sta DATELO sta GP.DATE
lda STime+S.TIME.YEAR lda STime+S.TIME.YEAR
rol rol
sta DATELO+1 sta GP.DATE+1
lda STime+S.TIME.DAY lda STime+S.TIME.DAY
ora DATELO ora GP.DATE
sta DATELO sta GP.DATE
lda STime+S.TIME.HOUR lda STime+S.TIME.HOUR
sta TIMELO+1 sta GP.TIME+1
lda STime+S.TIME.MINUTE lda STime+S.TIME.MINUTE
sta TIMELO sta GP.TIME
clc clc
rts rts

14
DRV/DHGR.DRV.S.BLT.txt
View File

@ -44,7 +44,7 @@ BITBLT >LDYA CB.Cache+S.CB.X1
lda CB.Cache+S.CB.DstPtr+1 lda CB.Cache+S.CB.DstPtr+1
bne .1 bne .1
sta SETREADAUX DstPtr is AUX hMem sta IO.SETREADAUX DstPtr is AUX hMem
tya tya
>SYSCALL2 GetMemPtr >SYSCALL2 GetMemPtr
@ -79,7 +79,7 @@ BITBLT >LDYA CB.Cache+S.CB.X1
dec ZPTmpByte dec ZPTmpByte
bne .2 bne .2
sta CLRREADAUX sta IO.CLRREADAUX
BITBLT.RTS rts BITBLT.RTS rts
*-------------------------------------- *--------------------------------------
BITBLT.0 bit #S.CB.OP.SAVE BITBLT.0 bit #S.CB.OP.SAVE
@ -92,7 +92,7 @@ BITBLT.0 bit #S.CB.OP.SAVE
tya DstPtr is AUX hMem tya DstPtr is AUX hMem
>SYSCALL2 GetStkObjPtr >SYSCALL2 GetStkObjPtr
sta SETWRITEAUX sta IO.SETWRITEAUX
.1 >STYA ZPBMSavePtr .1 >STYA ZPBMSavePtr
@ -125,7 +125,7 @@ BITBLT.0 bit #S.CB.OP.SAVE
dec ZPTmpByte dec ZPTmpByte
bne .2 bne .2
sta CLRWRITEAUX sta IO.CLRWRITEAUX
lda CB.Cache+S.CB.OP lda CB.Cache+S.CB.OP
*-------------------------------------- *--------------------------------------
@ -136,7 +136,7 @@ BITBLT.1 and #$0F
lda CB.Cache+S.CB.SrcPtr+1 lda CB.Cache+S.CB.SrcPtr+1
bne .4 bne .4
sta SETREADAUX SrcPtr is AUX hMem sta IO.SETREADAUX SrcPtr is AUX hMem
tya tya
>SYSCALL2 GetMemPtr >SYSCALL2 GetMemPtr
@ -295,7 +295,7 @@ BITBLT.LOOP0 lda CB.Cache+S.CB.OP
bra BITBLT.LOOP0 bra BITBLT.LOOP0
.8 sta CLRREADAUX .8 sta IO.CLRREADAUX
rts rts
*-------------------------------------- *--------------------------------------
BITBLT.LOOPx ldy Shift.L.LO-1,x X = 1->6 BITBLT.LOOPx ldy Shift.L.LO-1,x X = 1->6
@ -399,7 +399,7 @@ BITBLT.LOOPx.7 and #$ff SELF MODIFIED : #%01110000 get only col2 bites
.2 jmp BITBLT.LOOPx.0 .2 jmp BITBLT.LOOPx.0
.8 sta CLRREADAUX .8 sta IO.CLRREADAUX
rts rts
*-------------------------------------- *--------------------------------------
* BM Data/Mask bits : * BM Data/Mask bits :

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

@ -77,7 +77,7 @@ VLINE.MONO >LDYA CB.Cache+S.CB.X1
lsr lsr
sta ZPTmpByte Save COL (DIV) sta ZPTmpByte Save COL (DIV)
ldy #SETPAGE2 ldy #IO.SETPAGE2
bcc .1 bcc .1
dey CLRPAGE2 dey CLRPAGE2

4
DRV/DHGR.DRV.S.OSD.txt
View File

@ -585,7 +585,7 @@ OSD.YAMultX stx GBYTE
bne .2 bne .2
rts rts
*-------------------------------------- *--------------------------------------
CB.Update sta CLRWRITEAUX CB.Update sta IO.CLRWRITEAUX
lda CBX.Cache lda CBX.Cache
lsr lsr
@ -597,7 +597,7 @@ CB.Update sta CLRWRITEAUX
dey dey
bpl .1 bpl .1
sta SETWRITEAUX sta IO.SETWRITEAUX
clc clc
rts rts

8
DRV/DHGR.DRV.S.PIX.txt
View File

@ -31,7 +31,7 @@ SETPIXEL.MONO >LDYA CB.Cache+S.CB.X1
iny iny
.1 sta CLRPAGE2,y Select proper BANK .1 sta IO.CLRPAGE2,y Select proper BANK
lda CB.Cache+S.CB.OP lda CB.Cache+S.CB.OP
* cmp #S.CB.OP.XOR * cmp #S.CB.OP.XOR
@ -90,7 +90,7 @@ SETPIXEL.C16.YX lda DIV7.0,y PixelX MOD 7 (range 0->19)
lda Color.Masks,x bits in 1st byte to light? lda Color.Masks,x bits in 1st byte to light?
beq .10 beq .10
sta SETPAGE2 sta IO.SETPAGE2
jsr .81 jsr .81
@ -107,7 +107,7 @@ SETPIXEL.C16.YX lda DIV7.0,y PixelX MOD 7 (range 0->19)
lda Color.Masks,x lda Color.Masks,x
beq .12 beq .12
sta SETPAGE2 sta IO.SETPAGE2
jsr .81 jsr .81
@ -116,7 +116,7 @@ SETPIXEL.C16.YX lda DIV7.0,y PixelX MOD 7 (range 0->19)
lda Color.Masks,x lda Color.Masks,x
beq .88 beq .88
.80 sta CLRPAGE2 .80 sta IO.CLRPAGE2
.81 and Color.Pixels,y apply color .81 and Color.Pixels,y apply color
sta ZPTmpByte sta ZPTmpByte

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

@ -17,7 +17,7 @@ NEW
.MA X2PageY .MA X2PageY
txa txa
lsr lsr
ldy #SETPAGE2 col 0,2,4...in AUX mem ldy #IO.SETPAGE2 col 0,2,4...in AUX mem
bcc :1 col 1,3,5...in MAIN mem bcc :1 col 1,3,5...in MAIN mem
dey CLRPAGE2 dey CLRPAGE2
@ -68,25 +68,25 @@ Dev.Detect >LDYA L.MSG.DETECT
.1 php .1 php
sei sei
sta SET80STORE sta IO.SET80STORE
sta SETPAGE2 sta IO.SETPAGE2
ldx $400 Save Aux $400 ldx $400 Save Aux $400
lda #$ff Make sure !=1 for comparing later lda #$ff Make sure !=1 for comparing later
sta $400 sta $400
sta CLRPAGE2 sta IO.CLRPAGE2
ldy $400 Save Main $400 ldy $400 Save Main $400
lda #$01 Select Foreground/BKgrnd Colors lda #$01 Select Foreground/BKgrnd Colors
sta TXT16.ON Activate 16 color mode sta TXT16.ON Activate 16 color mode
sta $400 Store something in Main sta $400 Store something in Main
sta SETPAGE2 sta IO.SETPAGE2
eor $400 read back AUX, If EVE, must be F/BG colors eor $400 read back AUX, If EVE, must be F/BG colors
bne .2 bne .2
dec dec
sta DCB+S.DCB.GFX.S 0=80C,$ff=EVE sta DCB+S.DCB.GFX.S 0=80C,$ff=EVE
.2 stx $400 Set back Aux $400 .2 stx $400 Set back Aux $400
sta CLRPAGE2 sta IO.CLRPAGE2
sty $400 Set back Main $400 sty $400 Set back Main $400
sta TXT16.OFF sta TXT16.OFF
plp plp
@ -118,9 +118,9 @@ Dev.Detect >LDYA L.MSG.DETECT
sei sei
>LDYAI $4000 >LDYAI $4000
>STYA $800 >STYA $800
sta SETWRITEAUX sta IO.SETWRITEAUX
>STYA $800 >STYA $800
sta CLRWRITEAUX sta IO.CLRWRITEAUX
jsr ClrScr jsr ClrScr
@ -221,7 +221,7 @@ OSD.install >LDYA L.OSD
ldy #0 ldy #0
sta SETWRITEAUX sta IO.SETWRITEAUX
.1 inx .1 inx
bne .2 bne .2
@ -242,27 +242,27 @@ OSD.install >LDYA L.OSD
inc ZPPtr2+1 inc ZPPtr2+1
bra .1 bra .1
.3 sta CLRWRITEAUX .3 sta IO.CLRWRITEAUX
rts rts
*-------------------------------------- *--------------------------------------
ClrScr lda #$55 ClrScr lda #$55
ldx #0 ldx #0
sta SETHIRES sta IO.SETHIRES
sta SET80STORE sta IO.SET80STORE
.1 ldy BASEL,x .1 ldy BASEL,x
sty ZPPtr1 sty ZPPtr1
ldy BASEH,x ldy BASEH,x
sty ZPPtr1+1 sty ZPPtr1+1
sta SETPAGE2 sta IO.SETPAGE2
jsr .2 jsr .2
eor #$7F eor #$7F
sta CLRPAGE2 sta IO.CLRPAGE2
jsr .2 jsr .2
inx inx
@ -474,7 +474,7 @@ WRITE >STYA ZPIOCTL NON STANDARD
plx plx
jmp (J.Cmds-2,x) jmp (J.Cmds-2,x)
.2 sta SETWRITEAUX .2 sta IO.SETWRITEAUX
and #$7f and #$7f
sta CBX.Cache sta CBX.Cache
@ -488,10 +488,10 @@ WRITE >STYA ZPIOCTL NON STANDARD
dey dey
bne .3 bne .3
sta SETREADAUX sta IO.SETREADAUX
jsr X.OSD jsr X.OSD
sta CLRREADAUX sta IO.CLRREADAUX
sta CLRWRITEAUX sta IO.CLRWRITEAUX
rts rts
*-------------------------------------- *--------------------------------------
* IN: * IN:
@ -562,26 +562,26 @@ DRV.CS.END
*-------------------------------------- *--------------------------------------
.INB usr/src/drv/dhgr.drv.g .INB usr/src/drv/dhgr.drv.g
*-------------------------------------- *--------------------------------------
CONTROL.80C .DA #SETIOUDIS CONTROL.80C .DA #IO.SETIOUDIS
.DA #CLRTEXT .DA #IO.CLRTEXT
* .DA #SETHIRES * .DA #IO.SETHIRES
.DA #CLR80DISP .DA #IO.CLR80DISP
.DA #SETAN3 .DA #IO.SETAN3
.DA #CLRAN3 .DA #IO.CLRAN3
.DA #SETAN3 .DA #IO.SETAN3
.DA #CLRAN3 .DA #IO.CLRAN3
.DA #SET80DISP .DA #IO.SET80DISP
.DA #SETAN3 .DA #IO.SETAN3
.DA #CLRAN3 .DA #IO.CLRAN3
.DA #SETAN3 .DA #IO.SETAN3
.DA #0 .DA #0
CONTROL.EVE .DA #SETIOUDIS CONTROL.EVE .DA #IO.SETIOUDIS
.DA #CLRTEXT .DA #IO.CLRTEXT
* .DA #SETHIRES * .DA #IO.SETHIRES
.DA #HR1.OFF .DA #HR1.OFF
.DA #HR2.ON .DA #HR2.ON
.DA #HR3.ON .DA #HR3.ON

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

@ -232,7 +232,7 @@ READ >STYA ZPBufPtr NON STANDARD
php php
sei sei
sta CLRPAGE2 sta IO.CLRPAGE2
* ldy #READMOUSE DONE BY IRQ MANAGER * ldy #READMOUSE DONE BY IRQ MANAGER
* jsr GOMOUSE * jsr GOMOUSE

2
LIB/LIBBLKDEV.S.txt
View File

@ -149,7 +149,7 @@ BuildProDOSCat >PULLW ZPPtr1 DstBuf
ldx #3 ldx #3
.10 lda DATELO,x .10 lda GP.DATE,x
sta VolDirHdr.CT,x sta VolDirHdr.CT,x
dex dex
bpl .10 bpl .10

12
LIB/LIBTCPIP.S.SKT.txt
View File

@ -560,7 +560,7 @@ SKT.AddDataToSktIn
ldy SKT.Cache+S.SOCKET.TCP.INHEAD ldy SKT.Cache+S.SOCKET.TCP.INHEAD
.1 .DO AUXPIPE=1 .1 .DO AUXPIPE=1
sta SETWRITEAUX sta IO.SETWRITEAUX
.FIN .FIN
.2 inx .2 inx
@ -583,7 +583,7 @@ SKT.AddDataToSktIn
bne .2 bne .2
.DO AUXPIPE=1 .DO AUXPIPE=1
sta CLRWRITEAUX sta IO.CLRWRITEAUX
.FIN .FIN
inc ZPTmpPtr1+1 inc ZPTmpPtr1+1
@ -603,7 +603,7 @@ SKT.AddDataToSktIn
rts rts
.8 .DO AUXPIPE=1 .8 .DO AUXPIPE=1
sta CLRWRITEAUX sta IO.CLRWRITEAUX
.FIN .FIN
sty SKT.Cache+S.SOCKET.TCP.INHEAD sty SKT.Cache+S.SOCKET.TCP.INHEAD
@ -669,7 +669,7 @@ SKT.AddDataToSktOut
pha pha
.1 .DO AUXPIPE=1 .1 .DO AUXPIPE=1
sta SETWRITEAUX sta IO.SETWRITEAUX
.FIN .FIN
.2 inx .2 inx
@ -694,7 +694,7 @@ SKT.AddDataToSktOut
inc ZPTmpPtr1+1 inc ZPTmpPtr1+1
.DO AUXPIPE=1 .DO AUXPIPE=1
sta CLRWRITEAUX sta IO.CLRWRITEAUX
.FIN .FIN
inc SKT.Cache+S.SOCKET.TCP.OUTHEAD+1 inc SKT.Cache+S.SOCKET.TCP.OUTHEAD+1
lda SKT.Cache+S.SOCKET.TCP.OUTHEAD+1 lda SKT.Cache+S.SOCKET.TCP.OUTHEAD+1
@ -710,7 +710,7 @@ SKT.AddDataToSktOut
bra .1 bra .1
.8 .DO AUXPIPE=1 .8 .DO AUXPIPE=1
sta CLRWRITEAUX sta IO.CLRWRITEAUX
.FIN .FIN
sty SKT.Cache+S.SOCKET.TCP.OUTHEAD sty SKT.Cache+S.SOCKET.TCP.OUTHEAD

4
LIB/LIBTCPIP.S.txt
View File

@ -290,9 +290,9 @@ GetDynPort inc DYNPORT.LAST
CS.END CS.END
*-------------------------------------- *--------------------------------------
.DO AUXPIPE=1 .DO AUXPIPE=1
ZP.CODE sta SETREADAUX ZP.CODE sta IO.SETREADAUX
lda (ZPTmpPtr1),y lda (ZPTmpPtr1),y
sta CLRREADAUX sta IO.CLRREADAUX
rts rts
ZP.CODE.Len .EQ *-ZP.CODE ZP.CODE.Len .EQ *-ZP.CODE
.FIN .FIN

20
SHARED/X.SSC.DRV.S.txt
View File

@ -584,7 +584,7 @@ READ php
stz ZPCount2+1 stz ZPCount2+1
.DO SSCIRQ=1 .DO SSCIRQ=1
sta SETREADAUX sta IO.SETREADAUX
.FIN .FIN
READ.10 inc ZPCount READ.10 inc ZPCount
@ -649,7 +649,7 @@ READ.81 ldy #S.IOCTL.BYTECNT
sta (ZPIOCTL),y sta (ZPIOCTL),y
.DO SSCIRQ=1 .DO SSCIRQ=1
sta CLRREADAUX sta IO.CLRREADAUX
.FIN .FIN
plp plp
clc clc
@ -660,7 +660,7 @@ READ.9 lda #MLI.E.IO
READ.99 lda #E.NODATA READ.99 lda #E.NODATA
.DO SSCIRQ=1 .DO SSCIRQ=1
sta CLRREADAUX sta IO.CLRREADAUX
.FIN .FIN
plp plp
sec sec
@ -671,7 +671,7 @@ WRITE php
jsr READ.WRITE.Init jsr READ.WRITE.Init
.DO SSCIRQ=1 .DO SSCIRQ=1
sta SETWRITEAUX sta IO.SETWRITEAUX
.FIN .FIN
WRITE.2 inc ZPCount WRITE.2 inc ZPCount
@ -735,7 +735,7 @@ WRITE.4 lda SSC.STATUS-$8F,x
.FIN .FIN
WRITE.8 .DO SSCIRQ=1 WRITE.8 .DO SSCIRQ=1
sta CLRWRITEAUX sta IO.CLRWRITEAUX
.FIN .FIN
plp plp
clc clc
@ -745,7 +745,7 @@ WRITE.9 lda #MLI.E.IO
.HS 2C BIT ABS .HS 2C BIT ABS
WRITE.99 lda #E.NODATA WRITE.99 lda #E.NODATA
.DO SSCIRQ=1 .DO SSCIRQ=1
sta CLRWRITEAUX sta IO.CLRWRITEAUX
.FIN .FIN
plp plp
sec sec
@ -786,8 +786,8 @@ IRQ ldx DEVSLOTn08F
* and #SSC.STATUS.IRQ Useless * and #SSC.STATUS.IRQ Useless
bpl IRQ.9 IRQ from this device ? no, exit !!!!Applewin bug #308!!!! bpl IRQ.9 IRQ from this device ? no, exit !!!!Applewin bug #308!!!!
sta SETREADAUX sta IO.SETREADAUX
sta SETWRITEAUX sta IO.SETWRITEAUX
bit #SSC.STATUS.RDRF incoming char? bit #SSC.STATUS.RDRF incoming char?
beq IRQ.2 beq IRQ.2
@ -818,8 +818,8 @@ IRQ.OUTBUF lda $FFFF,y SELF MODIFIED
sta SSC.DATA-$8F,x write data to clear IRQ sta SSC.DATA-$8F,x write data to clear IRQ
inc OUTBUF.TAIL inc OUTBUF.TAIL
IRQ.8 sta CLRREADAUX IRQ.8 sta IO.CLRREADAUX
sta CLRWRITEAUX sta IO.CLRWRITEAUX
clc clc
rts rts