A2osX/BASIC.FX/BASIC.S.txt

NEW
  AUTO 3,1
				.LIST OFF
				.OP	65c02
				.OR $2000
				.TF BASIC.SYSTEM,TSYS
*--------------------------------------
				.MA	DEBUG
:1				bit $C000
				bpl :1
				sta	$C010
				.EM
*--------------------------------------
				.INB inc/monitor.i
				.INB inc/io.i
				.INB inc/io.d2.i
				.INB inc/mli.i
				.INB inc/bs.i
*--------------------------------------
HIMEM			.EQ $A000
LOWERCASE		.EQ 1
*--------------------------------------
ZPPtr1			.EQ 0
ZPPtr2			.EQ 2
ZPInBufPtr		.EQ 4
ZPOutBufPtr		.EQ 6

ZPnCnt			.EQ 8

ZPInMask		.EQ 10
ZPBLOfsLBits	.EQ 11
ZPBLOfsHBits	.EQ 12
ZPBLLenBits		.EQ 13
bRAMFlag		.EQ 14

ZPCode			.EQ 15

ZP.WNDLFT		.EQ $20
ZP.WNDWDT		.EQ $21
ZP.WNDTOP		.EQ $22
ZP.WNDBOT		.EQ $23
ZP.CH    		.EQ $24
ZP.CV  		  	.EQ $25
ZP.BASL 		.EQ $28
ZP.BASH  		.EQ $29

ZP.PROMPT		.EQ $33

ZP.CSW			.EQ $36
ZP.KSW			.EQ $38

ZP.PCL   		.EQ $3A
ZP.PCH  		.EQ $3B
ZP.A1L   		.EQ $3C
ZP.A1H   		.EQ $3D
ZP.A2L  		.EQ $3E
ZP.A2H  		.EQ $3F
ZP.A4L			.EQ $40
ZP.A4H			.EQ $41

ZP.CMD			.EQ $42
ZP.UNITNUM		.EQ $43
ZP.BUFPTR		.EQ $44
ZP.BLKNUM		.EQ $46

AS.LINNUM		.EQ $50

AS.PGRMSTART	.EQ $67
AS.VARSTART		.EQ $69
AS.ARRAYSTART   .EQ $6B
AS.ARRAYEND		.EQ $6D
AS.STRINGSTART	.EQ $6F
AS.STRINGPTR	.EQ $71
AS.HIMEM 		.EQ $73

AS.CURLINE		.EQ $75
AS.LOWTR 		.EQ $9B
AS.PGRMEND		.EQ $AF
AS.TXTPTR		.EQ $B8
AS.ERRFLG		.EQ $D8
AS.ERRNUM		.EQ $DE
AS.TRCFLG		.EQ $F2
AS.REMSTK		.EQ $F8
*--------------------------------------
ZPXPtr1			.EQ	0
ZPXPtr2			.EQ	2
*--------------------------------------
IO.LINEBUF		.EQ $200
*--------------------------------------
DIRENTBUF		.EQ $259
DIRENTBUF.STNL	.EQ $25D
DIRENTBUF.TYPE	.EQ $269

DIRENTBUF.UBLK	.EQ $26C
DIRENTBUF.EOF	.EQ $26E

DIRENTBUF.ACCESS	.EQ $277
DIRENTBUF.AUXT	.EQ $278

MLI.PATHBUF		.EQ $280
*--------------------------------------
AUX.RAMSIG		.EQ $3D0				FFFEF3+"RAM"
*--------------------------------------
DOS.WARMSTART	.EQ $03D0
DOS.COLDSTART   .EQ $03D3
DOS.FILEMGR     .EQ $03D6
DOS.RWTS        .EQ $03D9
DOS.FILEMGRPARM .EQ $03DC
DOS.RWTSPARM    .EQ $03E3
DOS.RECONNECT   .EQ $03DA
DOS.JMPBRKVECT  .EQ $03EF

MON.AMPERSANDJMP	.EQ $03F5
MON.USRJMP      .EQ $03F8
MON.NMIJMP      .EQ $03FB
MON.IRQVECT     .EQ $03FE
MON.BRKVECT     .EQ $03F0
MON.POWERUP     .EQ $03F2
MON.POWERUPBYTE .EQ $03F4
*--------------------------------------
MLI.DEVPTRS		.EQ $BF10
MLI.DEVPTRS3D2	.EQ $BF26
MLI.DEVNUM      .EQ $BF30
MLI.DEVCNT      .EQ $BF31
MLI.DEVLST      .EQ $BF32
MLI.MEMTABL     .EQ $BF58
MLI.DATETIME	.EQ $BF90
MLI.LEVEL       .EQ $BF94
MLI.MACHID      .EQ $BF98
MLI.SLTBYT      .EQ $BF99
MLI.PFIXPTR     .EQ $BF9A
MLI.MLIACTV     .EQ $BF9B
MLI.IVERSION    .EQ $BFFD
*--------------------------------------
AS.RESTART      .EQ $D43C
AS.RESTART1     .EQ $D43F
AS.FINDLINE		.EQ $D61A
AS.CLEAR1		.EQ $D665
AS.NEXTSTMT		.EQ $D7D2
AS.EXECSTMT     .EQ $D820
AS.BITERRFLG	.EQ $D865
AS.NORMAL       .EQ $F273
AS.COLDBOOT     .EQ $E000
AS.INTPRINTAX   .EQ $ED24
*--------------------------------------
MON.BREAKV		.EQ $FA59
MON.INIT		.EQ $FB2F
MON.HOME		.EQ $FC58
MON.CLREOL		.EQ $FC9C
MON.RDKEY		.EQ $FD0C
MON.KEYIN0		.EQ $FD10
MON.KEYIN		.EQ $FD1B
MON.GETLN		.EQ $FD6A
MON.CROUT		.EQ $FD8E
MON.COUT		.EQ $FDED
MON.COUT1		.EQ $FDF0
MON.IIGSID		.EQ $FE1F
MON.SETINV		.EQ $FE80
MON.SETNORM		.EQ $FE84
MON.SETKBD		.EQ $FE89
MON.SETVID		.EQ $FE93
MON.ENTERMON	.EQ $FF69
*--------------------------------------
		.INB usr/src/basic.fx/basic.s.ldr
*--------------------------------------
X.Unpak.XatYA	sty ZPOutBufPtr
				sta ZPOutBufPtr+1
				lda PAKME.Table,x
				sta ZPInBufPtr
				lda PAKME.Table+1,x
				sta ZPInBufPtr+1
		.INB usr/src/shared/x.unpak.s
*--------------------------------------
PAKME.Table
PAKME.MAIN		.DA MAIN.PAK
PAKME.GP		.DA GP.PAK
PAKME.AUX		.DA AUX.PAK

MAIN.PAK		.DA #0
				.DA MAIN.LEN
				
LDR.MAIN.SRC	.PH HIMEM
LDR.MAIN.DST	.EQ *
		.INB usr/src/basic.fx/basic.s.a
		.INB usr/src/basic.fx/basic.s.b
		.INB usr/src/basic.fx/basic.s.c
		.INB usr/src/basic.fx/basic.s.d
MAIN.LEN		.EQ *-LDR.MAIN.DST
				.EP

GP.PAK			.DA #0
				.DA GP.LEN

LDR.GP.SRC		.PH $BE00
LDR.GP.DST		.EQ *
		.INB usr/src/basic.fx/basic.s.gp
GP.LEN			.EQ *-LDR.GP.DST
				.EP

AUX.PAK			.DA #0
				.DA AUX.LEN

LDR.AUX.SRC		.EQ *
LDR.AUX.DST		.EQ $E000
BB.PRODOS		.EQ $E000
		.INB usr/src/shared/x.bb.prodos.s
BB.SOS			.EQ $E200
		.INB usr/src/shared/x.bb.sos.s
BB.FX2			.EQ $E400
		.INB usr/src/shared/x.bb.fx2.s
X.TRkFMT.Z		.EQ $10
				.PH $E800
		.INB usr/src/shared/x.trkfmt.s
				.BS $E900-*
				.LIST OFF
		.INB usr/src/basic.fx/basic.s.xf
		.INB usr/src/basic.fx/basic.s.xm
		.INB usr/src/basic.fx/basic.s.xr
		.INB usr/src/basic.fx/basic.s.x
				.EP
AUX.LEN			.EQ *-LDR.AUX.SRC
*--------------------------------------
				.AS "PAKME"				TAG
				.DA $2000				BIN ORG
				.DA #3					Chunk Count
				.DA PAKME.Table			Chunks
*--------------------------------------
MAN
SAVE usr/src/basic.fx/basic.s
ASM