A2osX/SYS/KERNEL.S.D01.txt

PR#3
PREFIX /A2OSX.SRC
LOMEM $A00
INC 1
AUTO 6
*--------------------------------------
DevMgr.NUL.Code .DA .1				STATUS
				.DA DevMgr.BADCALL	READBLOCK
				.DA DevMgr.BADCALL	WRITEBLOCK
				.DA DevMgr.BADCALL	FORMAT
				.DA DevMgr.BADCALL	CONTROL
				.DA DevMgr.BADCALL	INIT
				.DA DevMgr.BADCALL	OPEN
				.DA DevMgr.BADCALL	CLOSE
				.DA DevMgr.BADCALL	READ
				.DA .8				WRITE
.8				clc
				rts
*--------------------------------------
.1				>LDYAI .2
				clc
				rts
*--------------------------------------
.2				.DA #S.DEV.S.WRITE+S.DEV.S.READ
				.DA #0,#0,#0
				>PSTR "NULL DEVICE     "
				.DA #S.DEVSTAT.TYPE.CHAR
				.DA #0
				.DA $0900
*--------------------------------------
DevMgr.SYS.Code	.DA .1				STATUS
				.DA DevMgr.BADCALL	READBLOCK
				.DA DevMgr.BADCALL	WRITEBLOCK
				.DA DevMgr.BADCALL	FORMAT
				.DA DevMgr.SYS.Control
				.DA DevMgr.BADCALL	INIT
				.DA DevMgr.SYS.Open
				.DA DevMgr.BADCALL	CLOSE
				.DA DevMgr.SYS.Read
				.DA DevMgr.SYS.Write
*--------------------------------------
.1				>LDYAI .2
				clc
				rts
*--------------------------------------
.2				.DA #S.DEV.S.WRITE+S.DEV.S.READ
				.DA #0,#0,#0
				>PSTR "A2osX SYS Screen"
				.DA #S.DEVSTAT.TYPE.CHAR
				.DA #0
				.DA $0900
*--------------------------------------
DevMgr.SYS.Open stz DevMgr.SYS.CH
				stz DevMgr.SYS.CV
				
				ldx #0
				
				ldy #0
.1				lda DevMgr.SYS.TITLE,y
				beq .2
				
				jsr DevMgr.SYS.SetCharAtYX
				iny
				bne .1
				
.2				lda #$20
				jsr DevMgr.SYS.SetCharAtYX
				iny
				cpy #80
				bne .2
				
				jsr DevMgr.SYS.Home
				
				lda #1
				sta A2osX.SCRNDEVS+1	fall in Control
*--------------------------------------
DevMgr.SYS.Control
				sta SETTEXT
				sta SETALTCHAR
				sta SET80DISP
				sta CLR80STORE
				sta SETPAGE2
				lda #2
				sta A2osX.ASCREEN
				clc
				rts
*--------------------------------------
DevMgr.SYS.Read	lda A2osX.ASCREEN
				cmp #2					is SYS active?
				bne .9
				
				lda	OPENAPPLE
				bmi .9					Open apple key, not for us...
				lda KBD
				bpl .9
				sta KBDSTROBE
				
				and #$7F

				clc
				rts
				
.9				lda	#0					Error = no event
				sec
				rts
*--------------------------------------
DevMgr.SYS.Write
				phx
				phy
				cmp #' '
				bcc .1
				ldy DevMgr.SYS.CH
				ldx DevMgr.SYS.CV
				ora #$80
				jsr DevMgr.SYS.SetCharAtYX
				jsr DevMgr.SYS.FSOut
				bra .8
				
.1				cmp #10
				bne .2
				jsr DevMgr.SYS.LF
				bra .8
				
.2				cmp #13
				bne .3
				jsr DevMgr.SYS.CR
				bra .8
				
.3				ora #$20
				jsr DevMgr.SYS.SetCharAtYX
				jsr DevMgr.SYS.FSOut
				
.8				ply
				plx
				clc
				rts
*--------------------------------------
DevMgr.SYS.FSOut
				lda DevMgr.SYS.CH
				cmp #79
				bne .1
				
				stz DevMgr.SYS.CH
				bra DevMgr.SYS.LF
				
.1				inc DevMgr.SYS.CH
				rts
*--------------------------------------
DevMgr.SYS.CR	jsr DevMgr.SYS.ClrEOL
				stz DevMgr.SYS.CH
				rts
*--------------------------------------
DevMgr.SYS.LF	ldx DevMgr.SYS.CV
				cpx #23
				beq DevMgr.SYS.Scroll
				inc DevMgr.SYS.CV				
				rts
*--------------------------------------
DevMgr.SYS.ClrEOL
				ldx	DevMgr.SYS.CV
				lda #$A0
				ldy DevMgr.SYS.CH
.1				cpy #79
				beq .2
				jsr DevMgr.SYS.SetCharAtYX
				iny
				bne .1
.2				rts
*--------------------------------------
DevMgr.SYS.Scroll
				ldx #1
.1				lda DevMgr.SYS.BASEL,x
				sta ZPDRV
				lda DevMgr.SYS.BASEH,x
				sta ZPDRV+1
				inx
				lda DevMgr.SYS.BASEL,x
				sta ZPDRV+2
				lda DevMgr.SYS.BASEH,x
				sta ZPDRV+3

				php
				sei
				sta SETWRITEAUX
				sta SETREADAUX

				ldy #39
.2				lda (ZPDRV+2),y
				sta (ZPDRV),y
				dey
				bpl .2

				sta CLRWRITEAUX
				sta CLRREADAUX
				plp
				
				ldy #39
.3				lda (ZPDRV+2),y
				sta (ZPDRV),y
				dey
				bpl .3

				cpx #23
				bne .1					Fall in ClrLineAtX for last line
*--------------------------------------
DevMgr.SYS.ClrLineAtX
				lda DevMgr.SYS.BASEL,x
				sta ZPDRV
				lda DevMgr.SYS.BASEH,x
				sta ZPDRV+1

				php
				sei
				
				lda #$A0
				ldy #39
				
.1				sta SETWRITEAUX
				sta (ZPDRV),y
				sta CLRWRITEAUX
				sta (ZPDRV),y
				dey
				bpl .1

				plp
				
				rts
*--------------------------------------
DevMgr.SYS.Home	ldx #23
				
.1				jsr DevMgr.SYS.ClrLineAtX
				dex
				bne .1
				
				stz DevMgr.SYS.CH
				lda #1
				sta DevMgr.SYS.CV
								
				rts
*--------------------------------------
DevMgr.SYS.SetCharAtYX
				cmp #$40
				bcc .1
				cmp #$5F
				bcs .1
				and #$3F
				
.1				php
				
				phy
				pha
				lda DevMgr.SYS.BASEL,x
				sta ZPDRV
				lda DevMgr.SYS.BASEH,x
				sta ZPDRV+1
				tya
				lsr
				tay
				bcs .2
				sta SETWRITEAUX
				
.2				pla
				sta (ZPDRV),y
				sta CLRWRITEAUX
				ply
				
				plp
				
				rts
*--------------------------------------
DevMgr.SYS.CH		.BS 1
DevMgr.SYS.CV		.BS 1
*--------------------------------------
DevMgr.SYS.TITLE	>CSTR "A2osX System Screen"
DevMgr.SYS.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
DevMgr.SYS.BASEH	.HS	08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B
*--------------------------------------
DevMgr.BADCALL	lda #MLI.ERR.BADCALL
				sec
				rts
*--------------------------------------
DevMgr.FreeMem		.EQ *
MAN
SAVE SYS/KERNEL.S.D01
LOAD SYS/KERNEL.S
ASM
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								PR#3
 								PREFIX /A2OSX.SRC
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								LOMEM $A00
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								INC 1
 								AUTO 6
 								*--------------------------------------
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								DevMgr.NUL.Code .DA .1				STATUS
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												.DA DevMgr.BADCALL	READBLOCK
 												.DA DevMgr.BADCALL	WRITEBLOCK
 												.DA DevMgr.BADCALL	FORMAT
 												.DA DevMgr.BADCALL	CONTROL
 												.DA DevMgr.BADCALL	INIT
 												.DA DevMgr.BADCALL	OPEN
 												.DA DevMgr.BADCALL	CLOSE
 												.DA DevMgr.BADCALL	READ
 												.DA .8				WRITE
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								.8				clc
 												rts
 								*--------------------------------------
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								.1				>LDYAI .2
-												Kernel version 0.9 : DevMgr & Device drivers
											
										
										
											2017-01-25 21:46:40 +00:00
+												clc
 												rts
 								*--------------------------------------
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								.2				.DA #S.DEV.S.WRITE+S.DEV.S.READ
-												Kernel version 0.9 : DevMgr & Device drivers
											
										
										
											2017-01-25 21:46:40 +00:00
+												.DA #0,#0,#0
-												Kernel version 0.9 : Mouse.DRV Migration
											
										
										
											2017-01-27 16:26:09 +00:00
+												>PSTR "NULL DEVICE     "
 												.DA #S.DEVSTAT.TYPE.CHAR
-												Kernel version 0.9 : DevMgr & Device drivers
											
										
										
											2017-01-25 21:46:40 +00:00
+												.DA #0
 												.DA $0900
 								*--------------------------------------
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								DevMgr.SYS.Code	.DA .1				STATUS
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												.DA DevMgr.BADCALL	READBLOCK
 												.DA DevMgr.BADCALL	WRITEBLOCK
 												.DA DevMgr.BADCALL	FORMAT
 												.DA DevMgr.SYS.Control
 												.DA DevMgr.BADCALL	INIT
 												.DA DevMgr.SYS.Open
 												.DA DevMgr.BADCALL	CLOSE
 												.DA DevMgr.SYS.Read
 												.DA DevMgr.SYS.Write
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								*--------------------------------------
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								.1				>LDYAI .2
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												clc
 												rts
 								*--------------------------------------
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								.2				.DA #S.DEV.S.WRITE+S.DEV.S.READ
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												.DA #0,#0,#0
 												>PSTR "A2osX SYS Screen"
-												Kernel version 0.9 : Mouse.DRV Migration
											
										
										
											2017-01-27 16:26:09 +00:00
+												.DA #S.DEVSTAT.TYPE.CHAR
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												.DA #0
-												Kernel version 0.9 : DevMgr & Device drivers
											
										
										
											2017-01-25 21:46:40 +00:00
+												.DA $0900
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								*--------------------------------------
-												Kernel version 0.9 : ....More IRQ/VBL enhancement
											
										
										
											2017-02-08 16:42:32 +00:00
+								DevMgr.SYS.Open stz DevMgr.SYS.CH
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												stz DevMgr.SYS.CV
 												ldx #0
 												ldy #0
 								.1				lda DevMgr.SYS.TITLE,y
 												beq .2
 												jsr DevMgr.SYS.SetCharAtYX
 												iny
 												bne .1
 								.2				lda #$20
 												jsr DevMgr.SYS.SetCharAtYX
 												iny
 												cpy #80
 												bne .2
 												jsr DevMgr.SYS.Home
 												lda #1
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+												sta A2osX.SCRNDEVS+1	fall in Control
-												Kernel version 0.8 : BUGFIX #16 , CTIME not set properly when creating FILEs & DIRs
											
										
										
											2016-11-13 21:03:31 +00:00
+								*--------------------------------------
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								DevMgr.SYS.Control
-												Kernel version 0.8 : BUGFIX #16 , CTIME not set properly when creating FILEs & DIRs
											
										
										
											2016-11-13 21:03:31 +00:00
+												sta SETTEXT
 												sta SETALTCHAR
 												sta SET80DISP
 												sta CLR80STORE
 												sta SETPAGE2
-												Kernel version 0.8 : DevMgr, moving to SmartPort
											
										
										
											2016-12-05 17:04:42 +00:00
+												lda #2
 												sta A2osX.ASCREEN
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												clc
 												rts
 								*--------------------------------------
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								DevMgr.SYS.Read	lda A2osX.ASCREEN
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												cmp #2					is SYS active?
 												bne .9
 												lda	OPENAPPLE
 												bmi .9					Open apple key, not for us...
 												lda KBD
 												bpl .9
 												sta KBDSTROBE
 												and #$7F
-												Kernel version 0.9 : ....More IRQ/VBL enhancement
											
										
										
											2017-02-08 16:42:32 +00:00
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												clc
 												rts
 								.9				lda	#0					Error = no event
 												sec
 												rts
 								*--------------------------------------
-.9
											
										
										
											2017-01-12 17:43:45 +00:00
+								DevMgr.SYS.Write
 												phx
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												phy
 												cmp #' '
 												bcc .1
 												ldy DevMgr.SYS.CH
 												ldx DevMgr.SYS.CV
 												ora #$80
 												jsr DevMgr.SYS.SetCharAtYX
 												jsr DevMgr.SYS.FSOut
 												bra .8
 								.1				cmp #10
 												bne .2
 												jsr DevMgr.SYS.LF
 												bra .8
 								.2				cmp #13
 												bne .3
-												Kernel version 0.9 : CR/LF migration (Telnet) 
											
										
										
											2017-02-28 16:58:36 +00:00
+												jsr DevMgr.SYS.CR
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												bra .8
 								.3				ora #$20
 												jsr DevMgr.SYS.SetCharAtYX
 												jsr DevMgr.SYS.FSOut
 								.8				ply
 												plx
 												clc
 												rts
 								*--------------------------------------
 								DevMgr.SYS.FSOut
 												lda DevMgr.SYS.CH
 												cmp #79
-												Kernel version 0.9 : CR/LF migration (Telnet) 
											
										
										
											2017-02-28 16:58:36 +00:00
+												bne .1
 												stz DevMgr.SYS.CH
 												bra DevMgr.SYS.LF
 								.1				inc DevMgr.SYS.CH
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												rts
 								*--------------------------------------
-												Kernel version 0.9 : CR/LF migration (Telnet) 
											
										
										
											2017-02-28 16:58:36 +00:00
+								DevMgr.SYS.CR	jsr DevMgr.SYS.ClrEOL
 												stz DevMgr.SYS.CH
 												rts
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								*--------------------------------------
 								DevMgr.SYS.LF	ldx DevMgr.SYS.CV
 												cpx #23
 												beq DevMgr.SYS.Scroll
 												inc DevMgr.SYS.CV
 												rts
 								*--------------------------------------
 								DevMgr.SYS.ClrEOL
 												ldx	DevMgr.SYS.CV
 												lda #$A0
 												ldy DevMgr.SYS.CH
 								.1				cpy #79
 												beq .2
 												jsr DevMgr.SYS.SetCharAtYX
 												iny
 												bne .1
 								.2				rts
 								*--------------------------------------
 								DevMgr.SYS.Scroll
 												ldx #1
 								.1				lda DevMgr.SYS.BASEL,x
 												sta ZPDRV
 												lda DevMgr.SYS.BASEH,x
 												sta ZPDRV+1
 												inx
 												lda DevMgr.SYS.BASEL,x
 												sta ZPDRV+2
 												lda DevMgr.SYS.BASEH,x
 												sta ZPDRV+3
-												Kernel version 0.9 : IRQ/VBL refactoring...
											
										
										
											2017-02-07 07:27:27 +00:00
+												php
 												sei
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												sta SETWRITEAUX
 												sta SETREADAUX
-												Kernel version 0.9 : IRQ/VBL refactoring...
											
										
										
											2017-02-07 07:27:27 +00:00
 												ldy #39
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								.2				lda (ZPDRV+2),y
 												sta (ZPDRV),y
 												dey
 												bpl .2
 												sta CLRWRITEAUX
 												sta CLRREADAUX
-												Kernel version 0.9 : IRQ/VBL refactoring...
											
										
										
											2017-02-07 07:27:27 +00:00
+												plp
 												ldy #39
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								.3				lda (ZPDRV+2),y
 												sta (ZPDRV),y
 												dey
 												bpl .3
 												cpx #23
 												bne .1					Fall in ClrLineAtX for last line
 								*--------------------------------------
 								DevMgr.SYS.ClrLineAtX
 												lda DevMgr.SYS.BASEL,x
 												sta ZPDRV
 												lda DevMgr.SYS.BASEH,x
 												sta ZPDRV+1
-												Kernel version 0.9 : IRQ/VBL refactoring...
											
										
										
											2017-02-07 07:27:27 +00:00
 												php
 												sei
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
 												lda #$A0
 												ldy #39
 								.1				sta SETWRITEAUX
 												sta (ZPDRV),y
 												sta CLRWRITEAUX
 												sta (ZPDRV),y
 												dey
 												bpl .1
-												Kernel version 0.9 : IRQ/VBL refactoring...
											
										
										
											2017-02-07 07:27:27 +00:00
+												plp
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												rts
 								*--------------------------------------
 								DevMgr.SYS.Home	ldx #23
 								.1				jsr DevMgr.SYS.ClrLineAtX
 												dex
 												bne .1
 												stz DevMgr.SYS.CH
 												lda #1
 												sta DevMgr.SYS.CV
 												rts
 								*--------------------------------------
 								DevMgr.SYS.SetCharAtYX
 												cmp #$40
 												bcc .1
 												cmp #$5F
 												bcs .1
 												and #$3F
-												Kernel version 0.9 : IRQ/VBL refactoring...
											
										
										
											2017-02-07 07:27:27 +00:00
+								.1				php
 												phy
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												pha
 												lda DevMgr.SYS.BASEL,x
 												sta ZPDRV
 												lda DevMgr.SYS.BASEH,x
 												sta ZPDRV+1
 												tya
 												lsr
 												tay
 												bcs .2
 												sta SETWRITEAUX
 								.2				pla
 												sta (ZPDRV),y
 												sta CLRWRITEAUX
 												ply
-												Kernel version 0.9 : IRQ/VBL refactoring...
											
										
										
											2017-02-07 07:27:27 +00:00
 												plp
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+												rts
 								*--------------------------------------
 								DevMgr.SYS.CH		.BS 1
 								DevMgr.SYS.CV		.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
+								DevMgr.SYS.TITLE	>CSTR "A2osX System Screen"
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								DevMgr.SYS.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
 								DevMgr.SYS.BASEH	.HS	08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B.08.08.09.09.0A.0A.0B.0B
 								*--------------------------------------
-												Kernel version 0.9 : BLOCK DEVICES, extended S.DEV struct to store ROM entry point,BUS/DEV....moved the whole code to 16 Bytes S.DEV (Max 32 devices)
											
										
										
											2017-03-15 16:44:15 +00:00
+								DevMgr.BADCALL	lda #MLI.ERR.BADCALL
 												sec
 												rts
 								*--------------------------------------
-												Kernel version 0.9 : Mouse.DRV Migration
											
										
										
											2017-01-27 16:26:09 +00:00
+								DevMgr.FreeMem		.EQ *
-												Kernel version 0.8 : switched BNK1 & BNK2 to add more API calls
											
										
										
											2016-10-07 15:28:17 +00:00
+								MAN
 								SAVE SYS/KERNEL.S.D01
 								LOAD SYS/KERNEL.S
 								ASM