A2osX/BIN/CC.S.SCOPE.txt

NEW
  AUTO 3,1
*--------------------------------------
SCOPE.New		lda ScopePtr
				tay
				clc
				adc #SCOPE
				bcs .9

				sta ScopePtr

				dec bLocalScope

				iny
				iny						#SCOPE.LocalPtr
				lda (ScopeStk),y
				pha

				>LDA.G CC.ScopeID
*				clc
				adc #1
				sta (pData),y
				tax
				iny
				lda (pData),y
				adc #0

				ldy ScopePtr
				iny
				sta (ScopeStk),y		#SCOPE.ID Hi
				txa
				dey
				sta (ScopeStk),y		#SCOPE.ID Lo

				iny
				iny
				pla
				sta (ScopeStk),y		#SCOPE.LocalPtr

				iny
				lda #0
				sta (ScopeStk),y		#SCOPE.FrameSize

				lda #'F'
				jsr SYM.LookupLabelA
				bcs .99

				txa

				jsr CODE.AddLocal
				bcs .99

				.DO _DBG_SCOPE=1
			>PUSHW L.MSG.DEBUG.SCIN
			jsr SCOPE.Push

			lda ScopePtr
			>PUSHA

			tay
			iny
			iny
			>PUSHB (ScopeStk),y
			iny
			>PUSHB (ScopeStk),y

			>PUSHBI 5
			>SYSCALL PrintF
*			>DEBUG
				.FIN

				clc
				rts

.9				lda #E.OOH
				sec
.99
SCOPE.New.RTS	rts
*--------------------------------------
SCOPE.Close		lda #'F'				define FRAME SIZE
				jsr SYM.NewLabelA
				bcs SCOPE.New.RTS

				ldy ScopePtr
				iny
				iny
				iny
				lda (ScopeStk),y		#SCOPE.FrameSize

				jsr CODE.RemLocal
				bcs SCOPE.New.RTS

				.DO _DBG_SCOPE=1
			>PUSHW L.MSG.DEBUG.SCOUT
			jsr SCOPE.Push
			lda ScopePtr
			>PUSHA

			tay
			iny
			iny
			>PUSHB (ScopeStk),y			#SCOPE.LocalPtr
			iny
			>PUSHB (ScopeStk),y			#SCOPE.FrameSize

			>PUSHBI 5
			>SYSCALL PrintF
				.FIN

				lda ScopePtr
				beq *

				sec
				sbc #SCOPE
				sta ScopePtr

				inc bLocalScope

				.DO _DBG_SCOPE=1
			>PUSHW L.MSG.DEBUG.SC
			jsr SCOPE.Push

			lda ScopePtr
			>PUSHA

			tay
			iny
			iny
			>PUSHB (ScopeStk),y
			iny
			>PUSHB (ScopeStk),y

			>PUSHBI 5
			>SYSCALL PrintF
*			>DEBUG
				.FIN

				clc

.99				rts
*--------------------------------------
SCOPE.Push		lda ScopePtr

SCOPE.PushA		clc
				adc #SCOPE.ID+1
				tay
				lda (ScopeStk),y
				>PUSHA
				dey						#SCOPE.ID
				lda (ScopeStk),y
				>PUSHA
				rts
*--------------------------------------
MAN
SAVE usr/src/bin/cc.s.scope
LOAD usr/src/bin/cc.s
ASM
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
+								NEW
 								  AUTO 3,1
 								*--------------------------------------
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+								SCOPE.New		lda ScopePtr
 												tay
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+												clc
 												adc #SCOPE
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
+												bcs .9
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+												sta ScopePtr
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+												dec bLocalScope
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+												iny
 												iny						#SCOPE.LocalPtr
 												lda (ScopeStk),y
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+												pha
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
 												>LDA.G CC.ScopeID
 								*				clc
 												adc #1
 												sta (pData),y
 												tax
 												iny
 												lda (pData),y
 												adc #0
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+												ldy ScopePtr
 												iny
 												sta (ScopeStk),y		#SCOPE.ID Hi
 												txa
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+												dey
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+												sta (ScopeStk),y		#SCOPE.ID Lo
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+												iny
 												iny
 												pla
 												sta (ScopeStk),y		#SCOPE.LocalPtr
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+												iny
 												lda #0
 												sta (ScopeStk),y		#SCOPE.FrameSize
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												TCPIP:fixes for dual FIN/ACK transaction
DAN2ETH.DRV

											
										
										
											2023-01-06 14:02:35 +00:00
+												lda #'F'
 												jsr SYM.LookupLabelA
 												bcs .99
 												txa
 												jsr CODE.AddLocal
 												bcs .99
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												CC:wip

											
										
										
											2022-12-13 06:55:13 +00:00
+												.DO _DBG_SCOPE=1
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+											>PUSHW L.MSG.DEBUG.SCIN
 											jsr SCOPE.Push
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+											lda ScopePtr
 											>PUSHA
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+											tay
 											iny
 											iny
 											>PUSHB (ScopeStk),y
 											iny
 											>PUSHB (ScopeStk),y
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+											>PUSHBI 5
 											>SYSCALL PrintF
 								*			>DEBUG
-												CC:wip

											
										
										
											2022-12-13 06:55:13 +00:00
+												.FIN
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
+												clc
 												rts
 								.9				lda #E.OOH
 												sec
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
+								.99
-												TCPIP:fixes for dual FIN/ACK transaction
DAN2ETH.DRV

											
										
										
											2023-01-06 14:02:35 +00:00
+								SCOPE.New.RTS	rts
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
+								*--------------------------------------
-												TCPIP:fixes for dual FIN/ACK transaction
DAN2ETH.DRV

											
										
										
											2023-01-06 14:02:35 +00:00
+								SCOPE.Close		lda #'F'				define FRAME SIZE
 												jsr SYM.NewLabelA
 												bcs SCOPE.New.RTS
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+												ldy ScopePtr
 												iny
 												iny
 												iny
 												lda (ScopeStk),y		#SCOPE.FrameSize
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												TCPIP:fixes for dual FIN/ACK transaction
DAN2ETH.DRV

											
										
										
											2023-01-06 14:02:35 +00:00
+												jsr CODE.RemLocal
 												bcs SCOPE.New.RTS
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												TCPIP:fixes for dual FIN/ACK transaction
DAN2ETH.DRV

											
										
										
											2023-01-06 14:02:35 +00:00
+												.DO _DBG_SCOPE=1
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+											>PUSHW L.MSG.DEBUG.SCOUT
 											jsr SCOPE.Push
 											lda ScopePtr
 											>PUSHA
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+											tay
 											iny
 											iny
 											>PUSHB (ScopeStk),y			#SCOPE.LocalPtr
 											iny
 											>PUSHB (ScopeStk),y			#SCOPE.FrameSize
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+											>PUSHBI 5
 											>SYSCALL PrintF
-												CC:wip

											
										
										
											2022-12-13 06:55:13 +00:00
+												.FIN
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+												lda ScopePtr
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
+												beq *
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+												sec
 												sbc #SCOPE
 												sta ScopePtr
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
 												inc bLocalScope
-												CC:wip

											
										
										
											2022-12-13 06:55:13 +00:00
+												.DO _DBG_SCOPE=1
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+											>PUSHW L.MSG.DEBUG.SC
 											jsr SCOPE.Push
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+											lda ScopePtr
 											>PUSHA
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+											tay
 											iny
 											iny
 											>PUSHB (ScopeStk),y
 											iny
 											>PUSHB (ScopeStk),y
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+											>PUSHBI 5
 											>SYSCALL PrintF
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+								*			>DEBUG
-												CC:wip

											
										
										
											2022-12-13 06:55:13 +00:00
+												.FIN
-												KERNEL:VT100 fixes
CC:comment,scopes fixes
DAN2ETH:fixes for IIgs

											
										
										
											2023-01-21 21:53:55 +00:00
-												CC:wip

											
										
										
											2022-12-13 06:55:13 +00:00
+												clc
 								.99				rts
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
+								*--------------------------------------
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+								SCOPE.Push		lda ScopePtr
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
-												KERNEL:IRQ mode for IIgs (not yet preemptive)
CC:most of it working, many bugs remain
DAN2ETH.DRV:broken, lot of debug code included

											
										
										
											2023-01-11 18:34:34 +00:00
+								SCOPE.PushA		clc
 												adc #SCOPE.ID+1
 												tay
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+												lda (ScopeStk),y
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
+												>PUSHA
-												KERNEL:Fix for IIgs IRQ, IPCONFIG:Added 3 DHCP retries

											
										
										
											2023-01-06 22:07:00 +00:00
+												dey						#SCOPE.ID
 												lda (ScopeStk),y
-												ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip

											
										
										
											2022-12-07 07:02:29 +00:00
+												>PUSHA
 												rts
 								*--------------------------------------
 								MAN
 								SAVE usr/src/bin/cc.s.scope
 								LOAD usr/src/bin/cc.s
 								ASM