Kernel 0.93+

ProDOS.203/ProDOS.S.CCLK.txt

@@ -15,7 +15,7 @@ cclock_0
 				clc		  set e = 0 to set native mode
 				xce		
 *				LONG  I,M		16 bit mode.
-				lda #$0000	   zero out result space.
+				lda ##$0000	   zero out result space.
 				pha		  push 4 words for hex time result
 				pha
 				pha

ProDOS.203/ProDOS.S.GP.txt

@@ -3,7 +3,7 @@ NEW
 * object code = mli_1
 * global page
 
-ofsG			.EQ	$E00-MLI		offset to global org
+ofsG			.EQ	$2E00-MLI		offset to global org
 
 H2E00			jmp	mlient1			$2E00-2EFF moved to $BF00
 jspare			.EQ	*-ofsG

ProDOS.203/ProDOS.S.LDR.A.txt

@@ -106,7 +106,7 @@ H20FD 		sta idapple
 
 * running from gs/os shell so zero out os_boot for appletalk
 
-				sta >OS_BOOT	   indicates O/S initially booted.
+				sta OS_BOOT	   indicates O/S initially booted.
 				jsr patch101	   patch for gs/os - rev note #101
 
 * put dispatcher in bank 2 of language card
@@ -201,13 +201,13 @@ H21C5 		sta irqflag			1 = new roms
 H21D5 			sta CLRC3ROM			enable internal slot 3 ROM
 				lda rommap	   slot ROM bit map
 				and #$08			mask all but slot 3
-				bne isRROMBNK23	   taken if rom in slot 3
+				bne isromin3	   taken if rom in slot 3
 				bra H2247		else continue booting
 
 * found a rom in slot 3. is it an external, identifiable 80 col card
 * with interrupt routines? if so, enable it else use internal $C300 firmware.
 
-isRROMBNK23 		sta SETC3ROM	   enable slot 3 rom
+isromin3 		sta SETC3ROM	   enable slot 3 rom
 				lda $C305	   check card id bytes
 				cmp #$38
 				bne hitswtch	   not terminal card
@@ -244,7 +244,7 @@ hitswtch 		sta CLRC3ROM			enable internal $C300 firmware
 				lsr
 				lsr txtp2
 				cmp txtp2
-				
+			.BS *-$2230
 H2230 			sta CLRPAGE2			main memory
 				sta CLR80STORE		disable 80-col store
 				beq docard	   branch if card is there
@@ -339,7 +339,7 @@ relocerr 		sta RROMBNK2			read ROM
 
 				bmi *
 
-LDR.MSG.LdrErr	.AS "Relocation/Configuration Error"
+LDR.MSG.LdrErr	.AS -"Relocation/Configuration Error"
 
 H22EB			ldy #$23
 				
@@ -350,7 +350,7 @@ H22EB			ldy #$23
 				
 				bmi *
 
-LDR.MSG.EnhErr	.AS "REQUIRES ENHANCED APPLE IIE OR LATER"
+LDR.MSG.EnhErr	.AS -"REQUIRES ENHANCED APPLE IIE OR LATER"
 
 LDR.MLIONLINE.P	.DA #2
 				.DA #$60
@@ -501,7 +501,7 @@ H23E5  		lda H23F0,x
 				beq *
 
 H23F0			.DA #$1A				length of message
-				.AS "Unable to load ATInit file"
+				.AS -"Unable to load ATInit file"
 				
 gfi_list 		.EQ	*-ofsL
 				.DA #$0A
@@ -518,8 +518,9 @@ atopen	.EQ	*-ofsL			parms to open 'atinit'
 				.HS 01		ref# hard coded since no other files
 atinitname 		.EQ	*-ofsL
 				.DA #06			length of name
-	.AS "atinit"	  name of appletalk config file
+				.AS -"atinit"	  name of appletalk config file
 goloadint 		.EQ	*-ofsL
+
 				lda /dbuf			search directory buffer
 				sta idxl+1
 				lda #$04	   start 1 entry past header
@@ -639,10 +640,10 @@ H2508  lda lgmess,y
 				bpl H2508
 H2511  			bmi H2511
 lgmess			.EQ	*-ofsL
-   .AS "**  System program too large  **"
+				.AS -"**  System program too large  **"
 iomess			.EQ	*-ofsL
-   .AS "** Unable to load"
-	.AS " X.System *********"
+				.AS -"** Unable to load"
+				.AS -" X.System *********"
 ierlen			.EQ	*-ofsL
 				.HS 00
 opparm			.EQ	*-ofsL			parms for open call
@@ -672,7 +673,7 @@ quitparm	.EQ	*-ofsL		parms for quit call
 				.HS 00
 				.HS 0000
 iterp			.EQ	*-ofsL			interpreter suffix that is required
-   .AS ".SYSTEM"
+				.AS -".SYSTEM"
 
 * 16 bytes moved to $03F0 vectors
 

ProDOS.203/ProDOS.S.LDR.B.txt

@@ -816,6 +816,9 @@ nxgroup  dey				is opcode len in lowest 2 bits of acc?
 				lsr		shift to next group.
 				lsr		(if length = 0 then error)
 				bne nxgroup
+
+			.LIST ON
+
 H2B89  			and #$03
 				rts		  if z-set then error
 
@@ -866,20 +869,20 @@ patch101 		php
 				>IIGS PtrToHand
 				plx		  			low word of handle
 				plb		  			set DBR to handle's bank
-				lda	>1,x			get upper 16 bits of 24 bit address
+				lda	1,x				get upper 16 bits of 24 bit address
 				tay		  			save in y
 				lda	0,x				get low 8 bits of address
-				and #$00FF	   clear high byte
+				and ##$00FF	   		clear high byte
 				xba		  			put address in high byte
-				ora #$005C	   include JML opcode
-				sta >GSOS2	   store in gsos vectors
+				ora ##$005C	   		include JML opcode
+				sta GSOS2	   		store in gsos vectors
 				clc
-				adc #$000B
-				sta >GSOS
+				adc ##$000B
+				sta GSOS
 				tya					store upper 16 bits too
-				sta >GSOS2+2
-				adc #$0000	   adj for possible page crossing
-				sta >GSOS+2
+				sta GSOS2+2
+				adc ##$0000	   		adj for possible page crossing
+				sta GSOS+2
 				plb					remove garbage byte from stack
 				plb		  			restore DBR.
 				sec
@@ -889,14 +892,14 @@ patch101 		php
 
 * copy of the code that goes in the handle
 
-L2C4D			lda $01,s
-				sta $07,s
-				lda $02,s
-				sta $08,s
+L2C4D			lda 1,s
+				sta 7,s
+				lda 2,s
+				sta 8,s
 				pla
 				pla
 				pla
-				lda #$00FF			#NoOS
+				lda ##$00FF			#NoOS
 				sec
 				rtl
 

ProDOS.203/ProDOS.S.RAMX.txt

@@ -305,7 +305,7 @@ BITMAP			.EQ	*-ofsR0
 				   .HS FFFFFFFE
 VDIR			.EQ	*-ofsR0			start of vdir.
 				.HS F3			storage type = F, name length = 3
-				.AS "RAM"
+				.AS -"RAM"
 access			.EQ	*-ofsR0
 				.DA #$C3			destroy, rename, read enabled
 				.HS 27			  entry length

ProDOS.203/ProDOS.S.SEL2.txt

@@ -18,7 +18,7 @@ ofsQ			.EQ	*-dispadr		offset to GQuit dispatcher org
 GQdisp			lda RRAMWRAMBNK1			read/write LC bank 1
 				clc
 				xce				16 bit native mode.
-				jmp	>P8QUIT				  go to GQuit.
+				jmp	P8QUIT				  go to GQuit.
 				.DA #0000000000			offset to paragraph boundary.
 				.AS "GQ"			id bytes so GQuit can identify this
 

ProDOS.203/ProDOS.S.txt

@@ -20,10 +20,12 @@ MMShutDown			.EQ $0303
 ReadTimeHex			.EQ $0D03
 Int2Hex				.EQ $220B
 TLTextMountVolume	.EQ $1201
+*--------------------------------------
 				.MA IIGS
 				ldx ##]1
 				jsl $E10000
 				.EM
+*--------------------------------------
 P8QUIT			.EQ	$E0D000
 GSOS     		.EQ	$E100A8
 GSOS2    		.EQ	$E100B0