Mercurial > hg > Members > kono > nitros9-code

changeset 2317:bfe775cef271

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Formatted sources a little better
author boisy
date Mon, 04 Jan 2010 02:38:40 +0000
parents 302cbb0aa5de
children 248862e65823
files level1/modules/scdwt.asm
diffstat 1 files changed, 239 insertions(+), 245 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/scdwt.asm	Mon Jan 04 01:26:14 2010 +0000
+++ b/level1/modules/scdwt.asm	Mon Jan 04 02:38:40 2010 +0000
@@ -63,49 +63,41 @@
 *    CC = carry set on error
 *    B  = error code   
 Term     	equ   	*
-
-			lda		<V.PORT+1,u		;get our port #
-
-			pshs 	a				;port # on stack
-			* clear statics table entry
-			IFGT    Level-1
-			ldx   	<D.DWStat
-			ELSE
-			ldx   	>D.DWStat
-			ENDC
-                        beq     tell
+          lda       <V.PORT+1,u		;get our port #
+          pshs 	a				;port # on stack
+          * clear statics table entry
+          IFGT      Level-1
+          ldx   	<D.DWStat
+          ELSE
+          ldx   	>D.DWStat
+          ENDC
+          beq       tell
 ; cheat: we know DW.StatTbl is at offset $00 from D.DWStat, do not bother with leax
-;			leax    DW.StatTbl,x
-			clr		a,x				;clear out
+;		leax      DW.StatTbl,x
+          clr		a,x				;clear out
 
-			* tell server
+          ; tell server
 tell
-			lda     #OP_SERTERM ; load command
-			pshs   	a      		; command store on stack
-			leax    ,s     		; point X to stack 
-			ldy     #2          ; 2 bytes to send 
-    
-            pshs    u
+          lda       #OP_SERTERM ; load command
+          pshs   	a      		; command store on stack
+          leax      ,s     		; point X to stack 
+          ldy       #2          ; 2 bytes to send 
+
+          pshs      u
 
-			IFGT	Level-1
-			ldu   	<D.DWSubAddr
-			ELSE
-			ldu   	>D.DWSubAddr
-			ENDC
-			beq     nosub		
-    		jsr     6,u      	; call DWrite
+          IFGT      Level-1
+          ldu   	<D.DWSubAddr
+          ELSE
+          ldu   	>D.DWSubAddr
+          ENDC
+          beq       nosub		
+    		jsr       6,u      	; call DWrite
 
 nosub
-            puls    u
-			
-    		leas	2,s			; clean 3 DWsub args from stack 
-			
+          puls      u
+    		leas      2,s			; clean 3 DWsub args from stack 
     		clrb
-			rts
-
-			puls	u
-			leas	2,s
-			rts  			
+          rts
 
 ***********************************************************************
 * Init
@@ -121,21 +113,21 @@
             
 Init		equ		*
 
-			lda		IT.PAR,y
-			pshs    a				; save parity byte for later
+          lda		IT.PAR,y
+          pshs      a				; save parity byte for later
 
 ; link to subroutine module
 ; has the link already been done?
-			IFGT    Level-1
-            ldx     <D.DWSubAddr
-            ELSE
-            ldx     >D.DWSubAddr
-			ENDC
-			bne     already			; if so, do not bother
+          IFGT      Level-1
+          ldx       <D.DWSubAddr
+          ELSE
+          ldx       >D.DWSubAddr
+          ENDC
+          bne       already			; if so, do not bother
 			
-         	pshs	u				; preserve u since os9 link is coming up
+         	pshs      u				; preserve u since os9 link is coming up
 
-			IFGT  	Level-1
+          IFGT  	Level-1
          	ldx   	<D.Proc
          	pshs  	x
          	ldx   	<D.SysPrc
@@ -157,51 +149,51 @@
          	ENDC
          	jsr   	,y				; call DW init routine
        	
-			puls	u				; restore u
+          puls	u                        ; restore u
       	
 already
 ; tell DW we have a new port opening (port mode already on stack)
-			ldb		<V.PORT+1,u		; get our port #			
-			lda     #OP_SERINIT 	; command 
-			pshs   	d      			; command + port # on stack
-			leax    ,s     			; point X to stack 
-			ldy     #3          	; # of bytes to send
+          ldb		<V.PORT+1,u		; get our port #			
+          lda       #OP_SERINIT         ; command 
+          pshs   	d      			; command + port # on stack
+          leax      ,s     			; point X to stack 
+          ldy       #3                  ; # of bytes to send
 			
-    pshs u
-			IFGT	Level-1
-			ldu   	<D.DWSubAddr
-			ELSE
-			ldu   	>D.DWSubAddr
-			ENDC
-    		jsr     6,u      		; call DWrite
- puls u
+          pshs u
+          IFGT      Level-1
+          ldu   	<D.DWSubAddr
+          ELSE
+          ldu   	>D.DWSubAddr
+          ENDC
+    		jsr       6,u                 ; call DWrite
+          puls      u
     		
 ; set up local buffer
-			ldb   	#RxBufDSz      	; default Rx buffer size
-			leax  	RxBuff,u       	; default Rx buffer address
-			stb   	RxBufSiz,u     	; save Rx buffer size
-			stx   	RxBufPtr,u     	; save Rx buffer address
-			stx   	RxBufGet,u      ; set initial Rx buffer input address
-			stx   	RxBufPut,u      ; set initial Rx buffer output address
-			abx  					; add buffer size to buffer start..
-			stx   	RxBufEnd,u     	; save Rx buffer end address
+          ldb   	#RxBufDSz      	; default Rx buffer size
+          leax  	RxBuff,u       	; default Rx buffer address
+          stb   	RxBufSiz,u     	; save Rx buffer size
+          stx   	RxBufPtr,u     	; save Rx buffer address
+          stx   	RxBufGet,u          ; set initial Rx buffer input address
+          stx   	RxBufPut,u          ; set initial Rx buffer output address
+          abx  					; add buffer size to buffer start..
+          stx   	RxBufEnd,u     	; save Rx buffer end address
 
-                        tfr     u,d (A = high page of statics)
-                        puls    b
-    		        puls    b (B = port number)
-                        IFGT    Level-1
-                        ldx     <D.DWStat
-                        ELSE
-                        ldx     >D.DWStat
-                        ENDC
+          tfr       u,d                 ; (A = high page of statics)
+          puls      b
+          puls      b                   ; (B = port number)
+          IFGT      Level-1
+          ldx       <D.DWStat
+          ELSE
+          ldx       >D.DWStat
+          ENDC
 ; cheat: we know DW.StatTbl is at offset $00 from D.DWStat, do not bother with leax
-;			leax    DW.StatTbl,x
-    	                sta	b,x
-InitEx		equ		*
-			puls	a,pc
+;		leax      DW.StatTbl,x
+          sta       b,x
+InitEx	equ		*
+          puls      a,pc
 InitEx2
-			puls    u
-			puls	a,pc
+          puls      u
+          puls      a,pc
 
 ; drivewire info
 dw3name  	fcs  	/dw3/
@@ -220,8 +212,8 @@
 *    B  = error code
 * 
 Write    	equ   	*
-         	pshs	a			; character to send on stack
-         	ldb		V.PORT+1,u	; port number into B
+         	pshs      a			; character to send on stack
+         	ldb		<V.PORT+1,u	; port number into B
          	lda   	#OP_SERWRITE	; put command into A
          	pshs  	d
          	leax  	,s
@@ -232,8 +224,8 @@
          	ldu   	>D.DWSubAddr
          	ENDC
          	jsr   	6,u
-WriteOK   	clrb
-WriteExit 	puls	a,x,pc		; clean stack, return
+WriteOK   clrb
+WriteExit puls      a,x,pc		; clean stack, return
 
 	
 *************************************************************************************
@@ -249,95 +241,95 @@
 *    B  = error code
 *
 Read    	equ  	*
-			pshs  	cc,dp       ; save IRQ/Carry status, system DP
+          pshs  	cc,dp       ; save IRQ/Carry status, system DP
 
-ReadChr		orcc	#IntMasks	; mask interrupts
-			
-			lda   	RxDatLen,u 	; get our Rx buffer count
-			beq   	ReadSlp 	; no data, go sleep while waiting for new Rx data...
-			
-			; we have data waiting
-			deca				; one less byte in buffer
-			sta   	RxDatLen,u 	; save new Rx data count
+ReadChr	orcc      #IntMasks	; mask interrupts
+          
+          lda   	RxDatLen,u 	; get our Rx buffer count
+          beq   	ReadSlp 	; no data, go sleep while waiting for new Rx data...
 			
-			ldx   	RxBufGet,u 	; current Rx buffer pickup position
-			lda   	,x+       	; get Rx character, set up next pickup position
+          ; we have data waiting
+          deca				; one less byte in buffer
+          sta   	RxDatLen,u 	; save new Rx data count
+          
+          ldx   	RxBufGet,u 	; current Rx buffer pickup position
+          lda   	,x+       	; get Rx character, set up next pickup position
+          
+          cmpx  	RxBufEnd,u 	; end of Rx buffer?
+          blo   	ReadChr1   	; no, keep pickup pointer
+          ldx   	RxBufPtr,u 	; get Rx buffer start address
+ReadChr1 	stx   	RxBufGet,u	; set new Rx data pickup pointer
 			
-			cmpx  	RxBufEnd,u 	; end of Rx buffer?
-			blo   	ReadChr1   	; no, keep pickup pointer
-			ldx   	RxBufPtr,u 	; get Rx buffer start address
-ReadChr1   	stx   	RxBufGet,u	; set new Rx data pickup pointer
-			
-			; return to caller
-			puls  	cc,dp,pc   	; recover IRQ/Carry status, system DP, return with character in A
+          ; return to caller
+          puls  	cc,dp,pc   	; recover IRQ/Carry status, system DP, return with character in A
 
-ReadSlp		equ		*
+ReadSlp	equ		*
 
-           	IFEQ  	Level-1
-ReadSlp2   	lda   	<V.BUSY,u
-           	sta   	<V.WAKE,u	; store process id in this port's entry in the waiter table
-           	lbsr  	Sleep0     	; sleep level 1 style
-           	ELSE
-ReadSlp2   	lda   	>D.Proc    	; process descriptor address MSB
-           	sta   	<V.WAKE,u   ; save MSB in V.WAKE
-           	clrb
-           	tfr		d,x			; process descriptor address
-           	IFNE  	H6309
-           	oim   	#Suspend,P$State,x 	; suspend
-           	ELSE
-           	ldb   	P$State,x
-           	orb   	#Suspend
-           	stb   	P$State,x 	; suspend
-           	ENDC
-           	bsr		Sleep1		; sleep level 2 style
-           	ENDC
-           	
-           	; we have been awakened..
-           	
-           	; check for signals
-           	ldx   	>D.Proc		; process descriptor address
-           	ldb   	P$Signal,x 	; pending signal for this process?
-           	beq   	ChkState  	; no, go check process state...
-           	cmpb  	#S$Peer  	; (S$Peer or lower)
-           	bls  	ErrExit    	; yes, go do it...
+          IFEQ  	Level-1
+ReadSlp2 	lda   	<V.BUSY,u
+          sta   	<V.WAKE,u	; store process id in this port's entry in the waiter table
+          lbsr  	Sleep0     	; sleep level 1 style
+          ELSE
+ReadSlp2   lda   	>D.Proc    	; process descriptor address MSB
+          sta   	<V.WAKE,u   ; save MSB in V.WAKE
+          clrb
+          tfr		d,x			; process descriptor address
+          IFNE  	H6309
+          oim   	#Suspend,P$State,x 	; suspend
+          ELSE
+          ldb   	P$State,x
+          orb   	#Suspend
+          stb   	P$State,x 	; suspend
+          ENDC
+          bsr		Sleep1		; sleep level 2 style
+          ENDC
+          
+          ; we have been awakened..
+          
+          ; check for signals
+          ldx   	>D.Proc		; process descriptor address
+          ldb   	P$Signal,x 	; pending signal for this process?
+          beq   	ChkState  	; no, go check process state...
+          cmpb  	#S$Peer  	; (S$Peer or lower)
+          bls  	ErrExit    	; yes, go do it...
 
-ChkState   	equ   	*
-			; have we been condemned to die?
-           	IFNE  	H6309
-          	tim   	#Condem,P$State,x
-          	ELSE
-          	ldb   	P$State,x
-           	bitb  	#Condem
-           	ENDC
-           	bne   	PrAbtErr 	; yes, go do it...
-           	
-           	; check that our waiter byte was cleared by ISR instance
-			tst		<V.WAKE,u	; our waiter byte
-			beq		ReadChr		; 0 = its our turn, go get a character 
-           	bra   	ReadSlp		; false alarm, go back to sleep
+ChkState 	equ   	*
+          ; have we been condemned to die?
+          IFNE  	H6309
+          tim   	#Condem,P$State,x
+          ELSE
+          ldb   	P$State,x
+          bitb  	#Condem
+          ENDC
+          bne   	PrAbtErr 	; yes, go do it...
+          
+          ; check that our waiter byte was cleared by ISR instance
+          tst		<V.WAKE,u	; our waiter byte
+          beq		ReadChr		; 0 = its our turn, go get a character 
+          bra   	ReadSlp		; false alarm, go back to sleep
 
 PrAbtErr	ldb   	#E$PrcAbt	; set error code
 
-ErrExit    	equ  	*
-           	IFNE  	H6309
-           	oim   	#Carry,,s 	; set carry
-           	ELSE
-           	lda   	,s
-           	ora   	#Carry
-           	sta   	,s
-           	ENDC
-           	puls 	cc,dp,pc 	; restore CC, system DP, return
+ErrExit  	equ  	*
+          IFNE  	H6309
+          oim   	#Carry,,s 	; set carry
+          ELSE
+          lda   	,s
+          ora   	#Carry
+          sta   	,s
+          ENDC
+          puls 	cc,dp,pc 	; restore CC, system DP, return
 
-           	IFEQ  	Level-1
-Sleep0     	ldx   	#$0			; sleep till ISR wakes us
-           	bra   	TimedSlp
-           	ENDC
+          IFEQ  	Level-1
+Sleep0   	ldx   	#$0			; sleep till ISR wakes us
+          bra   	TimedSlp
+          ENDC
 
-Sleep1     	ldx   	#$1			; just sleep till end of slice, we are suspended (level 2)             
-TimedSlp	andcc 	#^Intmasks  ; enable IRQs
-			os9   	F$Sleep
-                clr    <V.WAKE,u
-           	rts          		; return
+Sleep1    ldx   	#$1			; just sleep till end of slice, we are suspended (level 2)             
+TimedSlp	andcc 	#^Intmasks     ; enable IRQs
+          os9   	F$Sleep
+          clr       <V.WAKE,u
+          rts                      ; return
 
 
 **********************************************************************
@@ -353,73 +345,73 @@
 *    B  = error code 
 *
 GetStat
-			clrb    			; default to no error...
-			pshs  	cc,dp  		; save IRQ/Carry status,system DP
+          clrb                     ; default to no error...
+          pshs  	cc,dp  		; save IRQ/Carry status,system DP
            
-        	ldx   	PD.RGS,y	; caller's register stack pointer
+        	ldx   	PD.RGS,y       ; caller's register stack pointer
         	cmpa  	#SS.EOF		
-        	beq   	GSExitOK 	; SCF devices never return EOF
+        	beq   	GSExitOK       ; SCF devices never return EOF
            
         	cmpa  	#SS.Ready
-        	bne   	Advertise	; next check
+        	bne   	Advertise      ; next check
            	
         	; SS.Ready
         	lda   	RxDatLen,u	; get Rx data length
         	beq   	NRdyErr    	; none, go report error
         	sta   	R$B,x		; set Rx data available in caller's [B]
-GSExitOK	puls  	cc,dp,pc 	; restore Carry status, system DP, return         
+GSExitOK	puls  	cc,dp,pc       ; restore Carry status, system DP, return         
          
-NRdyErr		ldb  	#E$NotRdy         
-			bra		ErrExit		; return error code 
+NRdyErr	ldb  	#E$NotRdy         
+          bra		ErrExit		; return error code 
 
-UnSvcErr   	ldb   	#E$UnkSvc
-           	bra   	ErrExit		; return error code			
+UnSvcErr 	ldb   	#E$UnkSvc
+          bra   	ErrExit		; return error code			
 			
 ; We advertise all of our SERGETSTAT calls (except SS.Ready) to the server
 Advertise
-			ldb		#OP_SERGETSTAT
-			bsr		SendStat
+          ldb		#OP_SERGETSTAT
+          bsr		SendStat
 
 ; Note: Here we could somehow obtain the size of the terminal window from the server
-GetScSiz   	cmpa  	#SS.ScSiz
-           	bne   	GetComSt	; next check
-           	ldu   	PD.DEV,y
-           	ldu   	V$DESC,u	; device descriptor
-           	clra
-           	ldb   	IT.COL,u	; return screen size
-           	std   	R$X,x
-           	ldb   	IT.ROW,u
-           	std   	R$Y,x
-           	puls  	cc,dp,pc	; restore Carry status, system DP, return
+GetScSiz  cmpa  	#SS.ScSiz
+          bne   	GetComSt	; next check
+          ldu   	PD.DEV,y
+          ldu   	V$DESC,u	; device descriptor
+          clra
+          ldb   	IT.COL,u	; return screen size
+          std   	R$X,x
+          ldb   	IT.ROW,u
+          std   	R$Y,x
+          puls  	cc,dp,pc	; restore Carry status, system DP, return
 
-GetComSt   	cmpa  	#SS.ComSt
-           	bne  	UnSvcErr	; no, we have no more answers, report error
-           	ldd   	#$0000		; not used, return $0000
-           	std   	R$Y,x
-           	sta   	R$B,x
-           	puls  	cc,dp,pc	; restore Carry status, system DP, return			
+GetComSt  cmpa  	#SS.ComSt
+          bne  	UnSvcErr	; no, we have no more answers, report error
+          ldd   	#$0000		; not used, return $0000
+          std   	R$Y,x
+          sta   	R$B,x
+          puls  	cc,dp,pc	; restore Carry status, system DP, return			
 
 * Advertise Stat Code to server
 * A = Function Code
 * B = OP_SERGETSTAT or OP_SERSETSTAT
 SendStat
-* advertise our GetStt code to the server
-			pshs	a,y,x,u
-			leas	-3,s
-			leax	,s
-			stb		,x
-			sta		2,x
-			ldb		V.PORT+1,u
-			stb		1,x
-			ldy		#$0003
-			IFGT	LEVEL-1
-			ldu		<D.DWSubAddr
-			ELSE
-			ldu		>D.DWSubAddr
-			ENDC
-			jsr		6,u                    
-			leas	3,s
-			puls	a,y,x,u,pc
+; advertise our GetStt code to the server
+          pshs      a,y,x,u
+          leas      -3,s
+          leax      ,s
+          stb		,x
+          sta		2,x
+          ldb		V.PORT+1,u
+          stb		1,x
+          ldy		#$0003
+          IFGT      LEVEL-1
+          ldu		<D.DWSubAddr
+          ELSE
+          ldu		>D.DWSubAddr
+          ENDC
+          jsr		6,u                    
+          leas      3,s
+          puls      a,y,x,u,pc
 
 *************************************************************************         
 * SetStat
@@ -434,47 +426,49 @@
 *    B  = error code 
 *
 SetStat  
-		ldb	#OP_SERSETSTAT
-		bsr	SendStat
-		cmpa	#SS.ComSt
-		bne	donebad
-		leax	PD.OPT,y
-		ldy	#OPTCNT
-		IFGT	LEVEL-1
-		ldu	<D.DWSubAddr
+		ldb       #OP_SERSETSTAT
+		bsr       SendStat
+		cmpa      #SS.ComSt
+		bne       donebad
+		leax      PD.OPT,y
+		ldy       #OPTCNT
+		IFGT      LEVEL-1
+		ldu       <D.DWSubAddr
 		ELSE
-		ldu	>D.DWSubAddr
+		ldu       >D.DWSubAddr
 		ENDC
-		jsr	6,u
-                clrb
-		rts
+		jsr       6,u
+          clrb
+          rts
 
- IFEQ 1
-SetPortSig      cmpa   #SS.PortSig
-                bne    SetPortRel
-                lda    PD.CPR,y       current process ID
-                ldb    R$X+1,x        LSB of [X] is signal code
-                std    <PortSigPID
-                clrb
-                rts
-SetPortRel      cmpa   #SS.PortRel
-                bne    donebad
-                leax   PortSigPID,u
-                bsr    ReleaSig
-                clrb
-                rts
- ENDC
-donebad		comb
-		ldb	#E$UnkSVc
+          IFEQ      1
+SetPortSig    
+          cmpa      #SS.PortSig
+          bne       SetPortRel
+          lda       PD.CPR,y       current process ID
+          ldb       R$X+1,x        LSB of [X] is signal code
+          std       <PortSigPID
+          clrb
+          rts
+SetPortRel 
+          cmpa      #SS.PortRel
+          bne       donebad
+          leax      PortSigPID,u
+          bsr       ReleaSig
+          clrb
+          rts
+          ENDC
+donebad	comb
+		ldb       #E$UnkSVc
 		rts
           
-ReleaSig        pshs    cc             save IRQ enable status
-                orcc    #IntMasks      disable IRQs while releasing signal
-                lda     PD.CPR,y       get current process ID
-                suba    ,x             same as signal process ID?
-                bne     NoReleas       no, go return...
-                sta     ,x             clear this signal's process ID
-NoReleas        puls    cc,pc          restore IRQ enable status, return
+ReleaSig  pshs    cc             save IRQ enable status
+          orcc    #IntMasks      disable IRQs while releasing signal
+          lda     PD.CPR,y       get current process ID
+          suba    ,x             same as signal process ID?
+          bne     NoReleas       no, go return...
+          sta     ,x             clear this signal's process ID
+NoReleas  puls    cc,pc          restore IRQ enable status, return
 
 		emod
 eom		equ		*