A2osX/A2osX.S.txt

NEW
  AUTO 4,1
				.LIST OFF
				.OP	65C02
				.OR	$2000
				.TF A2OSX.SYSTEM,TSYS
*--------------------------------------
				.INB INC/MACROS.I
				.INB INC/A2OSX.I
				.INB INC/IO.I
				.INB INC/MONITOR.I
				.INB INC/MLI.I
				.INB INC/MLI.E.I
				.INB INC/ZP.I
				.INB INC/GFX.I
*--------------------------------------
TmpPtr1			.EQ	$0					main & aux ZP
TmpPtr2			.EQ	$2					main & aux ZP
*--------------------------------------
A2osX.KMLOAD	.EQ $2000
A2osX.LOGOLOAD	.EQ $4000
A2osX.KMMAXLEN	.EQ $6000
A2osX.OpenBuff1	.EQ $8000				1024 Buffer for MLIOPEN01
A2osX.OpenBuff2	.EQ $8400				1024 Buffer for MLIOPEN02
A2osX.ReadBuff	.EQ	$8800				512 Buffer for MLIREAD01
Boot.Prefix		.EQ $8A00				MLI.MAXPATH
LOGO.Filename	.EQ $8A80				MLI.MAXPATH
KM.Filename		.EQ $8B00				MLI.MAXPATH
*--------------------------------------
* Kernel Stage 0
*--------------------------------------
SYSTEM.START	.EQ *
				.PH	$1000
				
A2osX.Init0		>LDYAI $2000
				>STYA TmpPtr1
				>LDYAI $1000
				>STYA TmpPtr2

				ldx #$10				reloc $2000-$2FFF to $1000-$1FFF
				ldy #0
				
.1				lda (TmpPtr1),y
				sta (TmpPtr2),y
				iny
				bne .1
				
				inc TmpPtr1+1
				inc TmpPtr2+1
				dex
				bne .1

				jmp A2osX.Init1
*--------------------------------------
A2osX.Init1		ldx	#$FF				init 6502 stack to highest
				txs
				
				bit RROMBNK1
				jsr HOME
				>LDYAI MSG.INIT0
				jsr PrintFYA

				>LDYAI MSG.SYSMEM
				jsr PrintFYA

				lda MACHID
				and #MACHID.M
				cmp #MACHID.M.128
				beq .1

				>LDYAI MSG.SYSMEM.KO
				jsr PrintFYA
				bra *
*--------------------------------------
.1				jsr A2osX.Prefix
				jsr A2osX.Screen80		Reset 80 col screen ($0C:HOME)
				
				>LDYAI MSG.INIT0
				jsr PrintFYA

				>LDYAI MSG.SYSMEM
				jsr PrintFYA

				>LDYAI MSG.SYSMEM.OK
				jsr PrintFYA
				
				>LDYAI MSG.CPU
				jsr PrintFYA

				sed						Test 6502 BCD bug
				lda #$99
				clc
				adc #$01
				cld
				bpl .2					if minus, BUG!, we have 6502
				
				>LDYAI MSG.CPU.KO
				jsr PrintFYA
				bra *

.2				>LDYAI MSG.CPU.OK
				jsr PrintFYA
*--------------------------------------
A2osX.CloseAll	stz LEVEL				Back To FILE LEVEL 0

				jsr MLI					Make sure all files are closed
				.DA #MLICLOSE
				.DA MLICLOSE01
				bcs *
*--------------------------------------
A2osX.RamDrv	>LDYAI MSG.RAMDRV
				jsr PrintFYA

				jsr DisableRamDRV
				bcc .2

				tax
				bne .1
				>LDYAI MSG.RAMDRV.KO0
				jsr PrintFYA
				bra A2osX.SetupQC
				
.1				>LDYAI MSG.RAMDRV.KO1
				jsr PrintFYA
				bra A2osX.SetupQC
				
.2				>LDYAI MSG.RAMDRV.OK
				jsr PrintFYA
*--------------------------------------
A2osX.SetupQC	lda RRAMWRAMBNK2
				lda RRAMWRAMBNK2

				ldx #0
				
.1				lda A2osX.QC.B.Start,x
				sta $D100,x
				lda A2osX.QC.B.Start+$100,x
				sta $D200,x
				lda A2osX.QC.B.Start+$200,x
				sta $D300,x
				inx
				bne .1

				lda RROMBNK1
*--------------------------------------
A2osX.EnumKM	>LDYAI MSG.KMENUM
				jsr PrintFYA
				jsr EnumKM

				bcs *
*--------------------------------------
A2osX.MLIQuit	>LDYAI MSG.INIT0OK
				jsr PrintFYA

				>DEBUGOA
				jsr MLI
				.DA #MLIQUIT
				.DA MLIQUIT01
				bra *
*--------------------------------------
A2osX.Prefix	>LDYAI MSG.BOOTPREFIX
				jsr PrintFYA
				jsr MLI
				.DA #MLIGETPREFIX
				.DA MLIGETPREFIX01
				bcs *

				ldx Boot.Prefix
				stx A2osX.QC.B.Start+4
				
				ldy #1
				
.1				lda Boot.Prefix,y
				sta A2osX.QC.B.Start+4,y
				iny
				dex
				bne .1
				
				rts
*--------------------------------------
A2osX.Screen80	lda #$8C
				jsr $C300
				
				ldx Boot.Prefix

.1				lda Boot.Prefix,x
				sta LOGO.Filename,x
				dex
				bne .1
				
				ldx Boot.Prefix
				ldy #0
				
.2				inx
				iny
				lda A2osX.LOGO,y
				sta LOGO.Filename,x
				cpy A2osX.LOGO
				bne .2				

				stx LOGO.Filename
				
				jsr MLI
				.DA #MLIOPEN
				.DA MLIOPEN00
				bcs .99

				lda MLIOPEN00+5
				sta MLIREAD00+1
				sta MLICLOSE00+1
				
				jsr MLI
				.DA #MLIREAD
				.DA MLIREAD00		
				bcs .98
				
				jsr .98
				bra A2osX.ScreenDLGR
				
.98				jsr MLI
				.DA #MLICLOSE
				.DA MLICLOSE00
.99				rts				
*--------------------------------------
A2osX.ScreenDLGR
				lda #20
				sta WNDTOP
				sta CV
				jsr VTAB
				
				sta CLRHIRES
				sta SETMIXED
				sta CLRTEXT
				sta SET80STORE
				sta SETDHIRES

				lda #A2osX.LOGOLOAD+S.BM
				sta TmpPtr1
				lda /A2osX.LOGOLOAD+S.BM
				sta TmpPtr1+1
				
				ldx #0
				
.1				lda SCR.BASEL,x
				sta TmpPtr2
				lda SCR.BASEH,x
				sta TmpPtr2+1

				ldy #0
				
.2				lda (TmpPtr1),y
				
				pha
				and #$f
				phy
				tay
				lda PALETTE.AUX,y
				ply
				sta SETPAGE2
				sta (TmpPtr2),y
				pla
				lsr
				lsr
				lsr
				lsr
				sta CLRPAGE2
				sta (TmpPtr2),y

				iny
				cpy #40
				bne .2
				
				lda TmpPtr1
				clc
				adc #40
				sta TmpPtr1
				bcc .3
				inc TmpPtr1+1
				
.3				ldy #0

.4				lda (TmpPtr1),y
				
				pha
				and #$f
				phy
				tay
				lda PALETTE.AUX,y
				ply
				asl
				asl
				asl
				asl
				sta SETPAGE2
				ora (TmpPtr2),y
				sta (TmpPtr2),y
				pla
				and #$f0
				sta CLRPAGE2
				ora (TmpPtr2),y
				sta (TmpPtr2),y

				iny
				cpy #40
				bne .4
				
				lda TmpPtr1
				clc
				adc #40
				sta TmpPtr1
				bcc .7
				inc TmpPtr1+1
				
.7				inx
				cpx #20
				bne .1

				rts
*--------------------------------------
DisableRamDRV	php
				sei
				lda DEVPTRS3D2
				cmp DEVPTRS				S0D1=NOVEV				
				bne .1
				lda DEVPTRS3D2+1
				cmp DEVPTRS+1			S0D1=NODEV
				beq .9					S3D2=NODEV, nothing to do
				
.1				ldx DEVCNT

.2				lda DEVLST,x			LOOKING FOR $BF, $BB, $B7, $B3
				and #$F3
				cmp #$B3
				beq .3
				
				dex
				bpl .2
				
				plp
				lda #1					No device found, exit with error
				sec
				rts
				
.3				cpx DEVCNT
				beq .5

.4				lda DEVLST+1,x
				sta DEVLST,x
				inx
				cpx DEVCNT
				bne .4
				
.5				ldx DEVCNT
				stz DEVLST,x
				dec DEVCNT
				
				lda DEVPTRS
				sta DEVPTRS3D2
				lda DEVPTRS+1
				sta DEVPTRS3D2+1
				plp
				
				jsr MLI
				.DA #MLIONLINE
				.DA MLIONLINE01
				clc						Success!!
				rts
				
.9				plp
				lda #0					Not detected
				sec
				rts
*--------------------------------------
EnumKM.EPB		.EQ $0D
EnumKM.EL		.EQ $27
*--------------------------------------
EnumKM			ldx #0
				ldy Boot.Prefix

.1				inx
				lda SYS,x
				sta Boot.Prefix+1,y
				iny
				cpx SYS
				bne .1
				
				sty Boot.Prefix
				
				jsr MLI
				.DA #MLIOPEN
				.DA MLIOPEN01
				bcs .99

				lda MLIOPEN01+5
				sta MLIREAD01+1
				sta MLICLOSE01+1
				
.2				jsr MLI
				.DA #MLIREAD
				.DA MLIREAD01
				bcs .98
				
				lda #EnumKM.EPB
				sta EnumKM.EC
				>LDYAI A2osX.ReadBuff+4
				>STYA EnumKM.BPTR
				
.3				>LDYA EnumKM.BPTR
				>STYA TmpPtr1
				
				lda (TmpPtr1)
				
				and #$F0				Empty ?
				beq .5					yes, skip
				
				and #$C0				anything out of type 1,2 or 3 ?
				bne .5					yes, skip
				
				lda (TmpPtr1)
				and #$0F
				cmp KM.PREFIX			at least enough chars for KM.*?
				bcc .5					no, skip

				ldy #$10				file type
				lda (TmpPtr1),y
				cmp #$06				'BIN'?
				bne .5					skip
				
				ldy KM.PREFIX
				
.4				lda (TmpPtr1),y
				cmp KM.PREFIX,y
				bne .5
				dey
				bne .4
				
				jsr LoadKM
				
.5				lda EnumKM.BPTR
				clc	
				adc #EnumKM.EL
				sta EnumKM.BPTR
				bcc .6
				inc EnumKM.BPTR+1

.6				dec EnumKM.EC
				bne .3
				bra .2
				
.98				cmp #MLI.E.EOF
				beq .8
				pha
				jsr .8
				pla

.99				sec
				rts

.8				jsr MLI
				.DA #MLICLOSE
				.DA MLICLOSE01
				rts				
*--------------------------------------
EnumKM.EC		.BS 1
EnumKM.BPTR		.BS 2
*--------------------------------------
LoadKM			ldx Boot.Prefix
.1				lda Boot.Prefix,x
				sta KM.Filename,x
				dex
				bne .1
				
				ldx Boot.Prefix
				lda (TmpPtr1)
				and #$0F
				tay
				clc
				adc Boot.Prefix
				sta KM.Filename
				tax
				
.2				lda (TmpPtr1),y
				sta KM.Filename,x
				dex
				dey
				bne .2
				
				lda #KM.Filename
				pha
				lda /KM.Filename
				pha
				
				>LDYAI MSG.KMLOAD
				jsr PrintFYA

				jsr MLI
				.DA #MLIOPEN
				.DA MLIOPEN02
				bcs .99

				lda MLIOPEN02+5
				sta MLIREAD02+1
				sta MLICLOSE02+1
				
				jsr MLI
				.DA #MLIREAD
				.DA MLIREAD02
				bcs .98
				jsr .9
				
				jsr A2osX.KMLOAD
				
.98				pha
				jsr .9
				pla
				sec
				rts
				
.9				jsr MLI
				.DA #MLICLOSE
				.DA MLICLOSE02
.99				rts
*--------------------------------------
				.INB USR/SRC/SHARED/X.PRINTF.S
*--------------------------------------
MSG.INIT0		.AZ "A2osX[Stage0]:Init\n"
MSG.SYSMEM		.AZ "Checking System Memory..."
MSG.SYSMEM.OK	.AZ "128k Detected.\n"
MSG.SYSMEM.KO	.AZ "A2osX Requires At Least 128k Memory.\n"

MSG.CPU			.AZ "Checking CPU..."
MSG.CPU.OK		.AZ "65C02 CPU (or higher) Detected.\n"
MSG.CPU.KO		.AZ "A2osX Requires At Least A 65C02 CPU.\n"

MSG.RAMDRV		.AZ "Checking ProDOS RamDrive..."
MSG.RAMDRV.OK	.AZ "Successfully Disabled.\n"
MSG.RAMDRV.KO0	.AZ "Not Detected.\n"
MSG.RAMDRV.KO1	.AZ "Uninstall Failed !!!\n"

MSG.BOOTPREFIX	.AZ "Boot Prefix:"

MSG.KMENUM		.AZ "Looking For Kernel Modules...\n"
MSG.KMLOAD		.AZ "***Loading KM : %S\n"
MSG.INIT0OK		.AZ "A2osX[Stage0]:Complete.\n"
*--------------------------------------
MLIGETPREFIX01	.DA #1
				.DA Boot.Prefix
MLIONLINE01		.DA #2
				.DA #0
				.DA MLIONLINE01BUF
MLIONLINE01BUF	.BS 256				
*--------------------------------------
MLIOPEN00		.DA #3					For DIR listing
				.DA LOGO.Filename
				.DA A2osX.OpenBuff1		
				.BS 1
MLIREAD00		.DA #4
				.BS 1
				.DA	A2osX.LOGOLOAD
				.DA 2048
				.BS 2
MLICLOSE00		.DA #1
				.BS 1
*--------------------------------------
MLIOPEN01		.DA #3					For DIR listing
				.DA Boot.Prefix
				.DA A2osX.OpenBuff1		
				.BS 1
MLIREAD01		.DA #4
				.BS 1
				.DA A2osX.ReadBuff		Load address Dir Blocks
				.DA $200				Maxlen of Dir Blocks (512)
				.BS 2
MLICLOSE01		.DA #1
				.BS 1
*--------------------------------------
MLIOPEN02		.DA #3
				.DA KM.Filename
				.DA A2osX.OpenBuff2
				.BS 1
MLIREAD02		.DA #4
				.BS 1
				.DA A2osX.KMLOAD		Load address for KMs
				.DA A2osX.KMMAXLEN		Maxlen of KM
				.BS 2
MLICLOSE02		.DA #1
				.BS 1
*--------------------------------------
MLIQUIT01		.DA #4
				.DA #0
				.DA 0
				.DA #0
				.DA 0
*--------------------------------------
A2osX.LOGO		>PSTR "A2OSX.LOGO"
SYS				>PSTR "SYS/"
KM.PREFIX		>PSTR "KM."
*--------------------------------------
SCR.BASEL		.HS	00.80.00.80.00.80.00.80.28.A8.28.A8.28.A8.28.A8.50.D0.50.D0.50.D0.50.D0
SCR.BASEH		.HS	04.04.05.05.06.06.07.07.04.04.05.05.06.06.07.07.04.04.05.05.06.06.07.07
*--------------------------------------
PALETTE.AUX		.HS 00080109020A030B040C050D060E070F
*--------------------------------------
				.EP
*--------------------------------------
A2osX.QC.B.Start
				.INB USR/SRC/A2OSX.S.QC
				.LIST ON
SYSTEM.END		.EQ *
				.LIST OFF
*--------------------------------------
MAN
SAVE USR/SRC/A2OSX.S
ASM