A2osX/A2osX.S.QC.txt

PR#3
PREFIX /A2OSX.BUILD
NEW
INC 1
AUTO 8
				.LIST OFF
*--------------------------------------
* ****** START OF MLI QUIT CODE ******
* Load Address :$1000-$12FF
*--------------------------------------
				.PH $1000
*--------------------------------------
* Kernel Stage 1
*--------------------------------------
A2osX.QC.Start	.EQ *
A2osX.QC		cld
				jmp A2osX.QC.Start1
				
A2osX.QC.Prefix	.BS 64				
				
A2osX.QC.Start1	sei
				ldx #$FF
				txs
				cli
				
				bit RROMBNK1
				>LDYAI A2osX.QC
				>STYA POWERUP
				jsr SETPWRC

				lda #$01
				sta	MEMTABL+$17			protect ProDOS MLI Page
				
				
				ldx #$16
				
.1				stz MEMTABL,x			Reset ProDOS memory bitmap
				dex
				bne .1
				
				lda	#$CF				protect zero page, stack and page 1
				sta	MEMTABL
				
				lda #$8C				Reset 80 col screen ($0C=FF=HOME)
				jsr $C300
				
				>LDAXI MSG.INIT1
				jsr A2osX.QC.PrintAX
				
.3				jsr MLI
				.DA #MLISETPREFIX
				.DA MLISETPREFIX00
				bcc .4
				
				>LDAXI MSG.SETPREFIXKO
				jsr A2osX.QC.PrintAX
				>LDAXI A2osX.QC.Prefix
				jsr A2osX.QC.PrintAX

				>DEBUG

				bra .3
				
.4				>LDAXI MSG.SETPREFIXOK
				jsr A2osX.QC.PrintAX
				
				jsr A2osX.QC.KLoad
				bcs *
				
*				>LDYAI GO.Reset
*				>STYA POWERUP
*				bit RROMBNK1
*				jsr SETPWRC
				
.8				>LDAXI MSG.INIT1OK
				jsr A2osX.QC.PrintAX

				>DEBUGOA
				jmp $2000
*--------------------------------------
A2osX.QC.KLoad	>LDAXI MSG.KLOAD
				jsr A2osX.QC.PrintAX
				
				ldx A2osX.QC.Prefix

				ldy #0
				
.2				inx
				iny
				lda SYSKERNEL,y
				sta A2osX.QC.Prefix,x
				cpy SYSKERNEL
				bne .2
				
				stx A2osX.QC.Prefix
				
				>LDAXI A2osX.QC.Prefix
				jsr A2osX.QC.PrintAX				
				
				jsr MLI
				.DA #MLIOPEN
				.DA MLIOPEN00
				bcs .9
				
				lda MLIOPEN00+5
				sta MLIREAD00+1
				sta MLICLOSE00+1

				jsr MLI
				.DA #MLIREAD
				.DA MLIREAD00

				php
				pha
				
				jsr MLI
				.DA #MLICLOSE
				.DA MLICLOSE00

				pla
				plp
				bcc .9
				
				>LDAXI MSG.KLOAD.KO
				jsr A2osX.QC.PrintAX
				
.9				rts		
*--------------------------------------
A2osX.QC.PrintAX
				sta TmpPtr1
				stx TmpPtr1+1
				lda (TmpPtr1)
				tax
				beq .9
				ldy #1
				
.1				lda (TmpPtr1),y
				ora #$80
				jsr COUT
				iny
				dex
				bne .1
				
.9				jsr CROUT
				rts				
*--------------------------------------
MLISETPREFIX00	.DA #1
				.DA A2osX.QC.Prefix
*--------------------------------------
MLIOPEN00		.DA #3
				.DA A2osX.QC.Prefix
				.DA $C00
				.BS 1
*--------------------------------------
MLIREAD00		.DA #4
				.BS 1
				.DA $2000
				.DA $8000
				.BS 2
*--------------------------------------
MLICLOSE00		.DA #1
				.BS 1
*--------------------------------------
SYSKERNEL		>PSTR "SYS/KERNEL"
*--------------------------------------
MSG.INIT1		>PSTR "A2osX[Stage1]:Init"
MSG.SETPREFIXOK >PSTR "Set Prefix OK"
MSG.SETPREFIXKO >PSTR "Insert Vol:"
MSG.KLOAD		>PSTR "Loading Kernel..."
MSG.KLOAD.KO	>PSTR "Error While Loading Kernel."
MSG.INIT1OK		>PSTR "A2osX[Stage1]:Complete."
*--------------------------------------
				.BS $1300-*
				.EP
*--------------------------------------
MAN
SAVE /A2OSX.SRC/A2OSX.S.QC
LOAD /A2OSX.SRC/A2OSX.S
ASM
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								PR#3
-												Kernel version 0.9 : MEDIA reorganisation
											
										
										
											2017-03-29 15:48:15 +00:00
+								PREFIX /A2OSX.BUILD
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								NEW
 								INC 1
-												Kernel Rewrite #6
											
										
										
											2016-06-07 06:10:18 +00:00
+								AUTO 8
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												.LIST OFF
 								*--------------------------------------
 								* ****** START OF MLI QUIT CODE ******
-												Kernel Rewrite #6
											
										
										
											2016-06-07 06:10:18 +00:00
+								* Load Address :$1000-$12FF
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								*--------------------------------------
 												.PH $1000
 								*--------------------------------------
-												Kernel Rewrite #6
											
										
										
											2016-06-07 06:10:18 +00:00
+								* Kernel Stage 1
 								*--------------------------------------
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								A2osX.QC.Start	.EQ *
 								A2osX.QC		cld
-												Complete Rewrite #3 : many new bugs...
											
										
										
											2015-06-03 18:30:57 +00:00
+												jmp A2osX.QC.Start1
-												Kernel Rewrite #6
											
										
										
											2016-06-07 06:10:18 +00:00
+								A2osX.QC.Prefix	.BS 64
-												Complete Rewrite #3 : many new bugs...
											
										
										
											2015-06-03 18:30:57 +00:00
 								A2osX.QC.Start1	sei
 												ldx #$FF
 												txs
 												cli
 												bit RROMBNK1
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												>LDYAI A2osX.QC
 												>STYA POWERUP
 												jsr SETPWRC
-												Kernel version 0.9 : KCONFIG, bugfix in Quit Code preventing saved config load
											
										
										
											2017-04-13 16:04:05 +00:00
+												lda #$01
 												sta	MEMTABL+$17			protect ProDOS MLI Page
 												ldx #$16
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								.1				stz MEMTABL,x			Reset ProDOS memory bitmap
 												dex
-												Kernel version 0.9 : KCONFIG, bugfix in Quit Code preventing saved config load
											
										
										
											2017-04-13 16:04:05 +00:00
+												bne .1
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												lda	#$CF				protect zero page, stack and page 1
 												sta	MEMTABL
 												lda #$8C				Reset 80 col screen ($0C=FF=HOME)
 												jsr $C300
-												Kernel Rewrite #6
											
										
										
											2016-06-07 06:10:18 +00:00
+												>LDAXI MSG.INIT1
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												jsr A2osX.QC.PrintAX
 								.3				jsr MLI
 												.DA #MLISETPREFIX
-												Loader & KM modules implemented
											
										
										
											2015-03-15 22:00:40 +00:00
+												.DA MLISETPREFIX00
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												bcc .4
-												Complete Rewrite #3 : many new bugs...
											
										
										
											2015-06-03 18:30:57 +00:00
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												>LDAXI MSG.SETPREFIXKO
 												jsr A2osX.QC.PrintAX
 												>LDAXI A2osX.QC.Prefix
 												jsr A2osX.QC.PrintAX
-												Complete Rewrite #3 : many new bugs...
											
										
										
											2015-06-03 18:30:57 +00:00
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												>DEBUG
-												Complete Rewrite #3 : many new bugs...
											
										
										
											2015-06-03 18:30:57 +00:00
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												bra .3
 								.4				>LDAXI MSG.SETPREFIXOK
 												jsr A2osX.QC.PrintAX
 												jsr A2osX.QC.KLoad
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												bcs *
-												Kernel version 0.9 : IRQ Manager rewrite
											
										
										
											2017-01-25 16:18:35 +00:00
-												Kernel Rewrite #6
											
										
										
											2016-06-07 06:10:18 +00:00
+								*				>LDYAI GO.Reset
 								*				>STYA POWERUP
 								*				bit RROMBNK1
 								*				jsr SETPWRC
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
-												Kernel version 0.9 : IRQ Manager rewrite
											
										
										
											2017-01-25 16:18:35 +00:00
+								.8				>LDAXI MSG.INIT1OK
-												Complete Rewrite #3 : many new bugs...
											
										
										
											2015-06-03 18:30:57 +00:00
+												jsr A2osX.QC.PrintAX
-												Kernel rewrite #5, IRQ Handler In Progress...
											
										
										
											2015-12-10 18:53:30 +00:00
+												>DEBUGOA
-												Kernel Rewrite #6
											
										
										
											2016-06-07 06:10:18 +00:00
+												jmp $2000
-												Kernel version 0.9 : IRQ Manager rewrite
											
										
										
											2017-01-25 16:18:35 +00:00
+								*--------------------------------------
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+								A2osX.QC.KLoad	>LDAXI MSG.KLOAD
 												jsr A2osX.QC.PrintAX
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
 												ldx A2osX.QC.Prefix
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												ldy #0
-												Kernel version 0.9 : IRQ Manager rewrite
											
										
										
											2017-01-25 16:18:35 +00:00
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+								.2				inx
 												iny
 												lda SYSKERNEL,y
 												sta A2osX.QC.Prefix,x
 												cpy SYSKERNEL
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												bne .2
-												Kernel version 0.9 : IRQ Manager rewrite
											
										
										
											2017-01-25 16:18:35 +00:00
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												stx A2osX.QC.Prefix
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												>LDAXI A2osX.QC.Prefix
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												jsr A2osX.QC.PrintAX
 												jsr MLI
 												.DA #MLIOPEN
-												Loader & KM modules implemented
											
										
										
											2015-03-15 22:00:40 +00:00
+												.DA MLIOPEN00
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												bcs .9
-												Loader & KM modules implemented
											
										
										
											2015-03-15 22:00:40 +00:00
+												lda MLIOPEN00+5
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												sta MLIREAD00+1
-												Loader & KM modules implemented
											
										
										
											2015-03-15 22:00:40 +00:00
+												sta MLICLOSE00+1
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												jsr MLI
 												.DA #MLIREAD
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												.DA MLIREAD00
-												Kernel version 0.9 : IRQ Manager rewrite
											
										
										
											2017-01-25 16:18:35 +00:00
 												php
 												pha
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
 												jsr MLI
 												.DA #MLICLOSE
-												Loader & KM modules implemented
											
										
										
											2015-03-15 22:00:40 +00:00
+												.DA MLICLOSE00
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
-												Kernel version 0.9 : IRQ Manager rewrite
											
										
										
											2017-01-25 16:18:35 +00:00
+												pla
 												plp
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												bcc .9
 												>LDAXI MSG.KLOAD.KO
 												jsr A2osX.QC.PrintAX
 								.9				rts
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								*--------------------------------------
 								A2osX.QC.PrintAX
-												Kernel 0.9.1 : STDLIB : AToF, StrToF (wip), MACROS CLeanup, code Reorg STDIO/STDLIB
											
										
										
											2017-10-12 15:28:59 +00:00
+												sta TmpPtr1
 												stx TmpPtr1+1
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												lda (TmpPtr1)
 												tax
 												beq .9
 												ldy #1
 								.1				lda (TmpPtr1),y
 												ora #$80
 												jsr COUT
 												iny
 												dex
 												bne .1
 								.9				jsr CROUT
 												rts
 								*--------------------------------------
-												Loader & KM modules implemented
											
										
										
											2015-03-15 22:00:40 +00:00
+								MLISETPREFIX00	.DA #1
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												.DA A2osX.QC.Prefix
-												Kernel version 0.9 : KCONFIG, bugfix in Quit Code preventing saved config load
											
										
										
											2017-04-13 16:04:05 +00:00
+								*--------------------------------------
-												Loader & KM modules implemented
											
										
										
											2015-03-15 22:00:40 +00:00
+								MLIOPEN00		.DA #3
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												.DA A2osX.QC.Prefix
 												.DA $C00
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												.BS 1
-												Kernel version 0.9 : KCONFIG, bugfix in Quit Code preventing saved config load
											
										
										
											2017-04-13 16:04:05 +00:00
+								*--------------------------------------
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+								MLIREAD00		.DA #4
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												.BS 1
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+												.DA $2000
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												.DA $8000
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												.BS 2
-												Kernel version 0.9 : KCONFIG, bugfix in Quit Code preventing saved config load
											
										
										
											2017-04-13 16:04:05 +00:00
+								*--------------------------------------
-												Loader & KM modules implemented
											
										
										
											2015-03-15 22:00:40 +00:00
+								MLICLOSE00		.DA #1
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												.BS 1
 								*--------------------------------------
-												Kernel version 0.8 : BUGFIX in CD: not processing .. correctly, missing ending / when changing to another volume. BUGFIX in LS:File count missing one.
Additional Kernel API Documentation
LIBSTR deleted, now Kernel API
											
										
										
											2016-10-24 15:54:43 +00:00
+								SYSKERNEL		>PSTR "SYS/KERNEL"
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								*--------------------------------------
-												Kernel version 0.8 : BUGFIX in CD: not processing .. correctly, missing ending / when changing to another volume. BUGFIX in LS:File count missing one.
Additional Kernel API Documentation
LIBSTR deleted, now Kernel API
											
										
										
											2016-10-24 15:54:43 +00:00
+								MSG.INIT1		>PSTR "A2osX[Stage1]:Init"
 								MSG.SETPREFIXOK >PSTR "Set Prefix OK"
 								MSG.SETPREFIXKO >PSTR "Insert Vol:"
-												Kernel version 0.9 : KConfig file now loaded by Kernel, no more QCODE
bug fix in KERNEL.S.JMP table, few bytes saved here & there
											
										
										
											2017-05-03 15:40:02 +00:00
+								MSG.KLOAD		>PSTR "Loading Kernel..."
 								MSG.KLOAD.KO	>PSTR "Error While Loading Kernel."
-												Kernel version 0.8 : BUGFIX in CD: not processing .. correctly, missing ending / when changing to another volume. BUGFIX in LS:File count missing one.
Additional Kernel API Documentation
LIBSTR deleted, now Kernel API
											
										
										
											2016-10-24 15:54:43 +00:00
+								MSG.INIT1OK		>PSTR "A2osX[Stage1]:Complete."
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								*--------------------------------------
-												Kernel Rewrite #6
											
										
										
											2016-06-07 06:10:18 +00:00
+												.BS $1300-*
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+												.EP
 								*--------------------------------------
 								MAN
-												Kernel version 0.9 : MEDIA reorganisation
											
										
										
											2017-03-29 15:48:15 +00:00
+								SAVE /A2OSX.SRC/A2OSX.S.QC
 								LOAD /A2OSX.SRC/A2OSX.S
-												Another Bunch of fixes
											
										
										
											2015-03-14 21:48:35 +00:00
+								ASM