2017-09-25 15:50:33 +00:00
|
|
|
|
PR#3
|
|
|
|
|
|
PREFIX /A2OSX.BUILD
|
2017-10-17 15:40:21 +00:00
|
|
|
|
LOMEM $A00
|
2017-09-25 15:50:33 +00:00
|
|
|
|
INC 1
|
|
|
|
|
|
AUTO 6
|
|
|
|
|
|
.LIST OFF
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* KERNEL CONSTANTS DEFINITON
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
K.ENV.SIZE .EQ 256
|
|
|
|
|
|
K.FLT.MAX .EQ 4
|
|
|
|
|
|
K.EVT.MAX .EQ 8
|
|
|
|
|
|
K.DEV.MAX .EQ 32
|
|
|
|
|
|
K.PS.MAX .EQ 32
|
|
|
|
|
|
*--------------------------------------
|
2017-10-17 15:40:21 +00:00
|
|
|
|
H.BIN.T .EQ 0
|
|
|
|
|
|
H.BIN.T.DRV65 .EQ $4CD8 6502:cld,jmp abs
|
|
|
|
|
|
H.BIN.T.LIB65 .EQ $7CD8 6502:cld,jmp (abs,x)
|
|
|
|
|
|
H.BIN.T.BIN65 .EQ $7CD8 6502:cld,jmp (abs,x)
|
|
|
|
|
|
*H.BIN.T.LIB80 .EQ $A28D Z80:
|
|
|
|
|
|
*H.BIN.T.BIN80 .EQ $A28D Z80:
|
2017-10-11 15:37:41 +00:00
|
|
|
|
H.BIN.JMP .EQ 2
|
|
|
|
|
|
*H.BIN.CODE.TYPE .EQ 4
|
|
|
|
|
|
*H.BIN.VERSION .EQ 5
|
|
|
|
|
|
H.BIN.CODE.LEN .EQ 8
|
|
|
|
|
|
*
|
|
|
|
|
|
H.BIN.EXE.DS.SIZE .EQ 10
|
|
|
|
|
|
H.BIN.EXE.SS.SIZE .EQ 12
|
|
|
|
|
|
H.BIN.EXE.ZP.SIZE .EQ 13
|
|
|
|
|
|
H.BIN.EXE.REL.TABLE .EQ 16
|
|
|
|
|
|
*
|
|
|
|
|
|
H.BIN.DRV.HEADER.O .EQ 10
|
|
|
|
|
|
H.BIN.DRV.CODE.O .EQ 12
|
|
|
|
|
|
H.BIN.DRV.CODE.LEN .EQ 14
|
|
|
|
|
|
H.BIN.DRV.REL.TABLE .EQ 0
|
|
|
|
|
|
*--------------------------------------
|
2017-10-18 15:32:56 +00:00
|
|
|
|
ZPKERNEL .EQ $0
|
2017-09-25 15:50:33 +00:00
|
|
|
|
ZPMEMMGR .EQ $8
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* $42-$47 ProDOS Block Device Drivers Main
|
2017-10-16 15:41:48 +00:00
|
|
|
|
*--------------------------------------
|
2017-09-25 15:50:33 +00:00
|
|
|
|
* $5E-$C8 RESERVED APPLESOFT Main/Aux (ROM Call, no need to switch back MainZP)
|
|
|
|
|
|
*--------------------------------------
|
2017-10-30 16:11:07 +00:00
|
|
|
|
SIGNFLG .EQ $16 COS,SIN,TAN
|
2017-10-18 15:32:56 +00:00
|
|
|
|
INDEX .EQ $5E ->$5F
|
2017-10-17 15:40:21 +00:00
|
|
|
|
FORPNT .EQ $85 ->$86
|
2017-10-30 16:11:07 +00:00
|
|
|
|
FAC .EQ $9D ->$A1
|
2017-10-31 15:25:16 +00:00
|
|
|
|
FAC.SIGN .EQ $A2
|
2017-10-27 06:36:46 +00:00
|
|
|
|
*FAC.EXTENSION .EQ $AC
|
2017-10-16 15:41:48 +00:00
|
|
|
|
TXTPTR .EQ $B8
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* ROM Entry Point
|
|
|
|
|
|
*--------------------------------------
|
2017-10-26 16:01:54 +00:00
|
|
|
|
ROM.FSUB .EQ 0
|
|
|
|
|
|
ROM.FADD .EQ 2
|
2017-10-27 06:36:46 +00:00
|
|
|
|
ROM.LTOF .EQ 4
|
|
|
|
|
|
ROM.LOG .EQ 6
|
|
|
|
|
|
ROM.FMULT .EQ 8
|
2017-10-27 14:56:46 +00:00
|
|
|
|
ROM.SETARG .EQ 10
|
2017-10-27 06:36:46 +00:00
|
|
|
|
ROM.FDIV .EQ 12
|
2017-10-27 14:56:46 +00:00
|
|
|
|
ROM.SETFAC .EQ 14
|
2017-10-27 06:36:46 +00:00
|
|
|
|
|
2017-10-27 14:56:46 +00:00
|
|
|
|
ROM.GETFAC .EQ 16 Copy FAC to (FORPNT)
|
2017-10-27 06:36:46 +00:00
|
|
|
|
ROM.FCOMP .EQ 18
|
|
|
|
|
|
ROM.QINT .EQ 20
|
|
|
|
|
|
ROM.FIN .EQ 22
|
|
|
|
|
|
ROM.FOUT .EQ 24
|
|
|
|
|
|
ROM.SQR .EQ 26
|
|
|
|
|
|
ROM.PWR .EQ 28
|
|
|
|
|
|
ROM.EXP .EQ 30
|
|
|
|
|
|
|
|
|
|
|
|
ROM.COS .EQ 32
|
|
|
|
|
|
ROM.SIN .EQ 34
|
|
|
|
|
|
ROM.TAN .EQ 36
|
|
|
|
|
|
ROM.ATAN .EQ 38
|
2017-10-16 15:41:48 +00:00
|
|
|
|
*--------------------------------------
|
2017-09-25 15:50:33 +00:00
|
|
|
|
* Memory Map
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
A2osX.SaveSM .EQ $100 Aux
|
|
|
|
|
|
A2osX.SaveSX .EQ $101 Aux
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* Main $200 -> 2FF : (Used By ProDOS,Clock DRV....)
|
|
|
|
|
|
* Main $300 -> 3EF : <free>
|
|
|
|
|
|
* Main $3F0 -> 3FF : SYS Vectors (reset,IRQ...)
|
|
|
|
|
|
* Aux $200 -> 3FD : /RAM Driver
|
|
|
|
|
|
* Aux $3FE -> 3FF : IRQ Vector
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
K.S.STAT .EQ $0300 S.STAT for internal kernel operations
|
2017-10-27 06:36:46 +00:00
|
|
|
|
K.S.DSTAT .EQ $0340 S.DSTAT=25 or higher depends on dev type
|
2017-11-22 16:27:50 +00:00
|
|
|
|
K.SP.PARAMS .EQ $0360 Max 9 bytes
|
|
|
|
|
|
K.MLI.PATH .EQ $0369 64+1
|
|
|
|
|
|
K.MLI.PARAMS .EQ $03AA Main, 18 bytes min for GetFileInfo (ATLK needs MORE!!!...32 max for now)
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
K.STACKTOP .EQ $03EF down to $3E0
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
*** $3F0-$3FF IRQ Handler.... ***
|
|
|
|
|
|
*--------------------------------------
|
2017-11-21 16:27:07 +00:00
|
|
|
|
* Main/Aux $400 -> $7FF : TXT PAGE1 System Screen
|
|
|
|
|
|
* Main/Aux $800 -> $BFF : TXT PAGE2 Console Screen
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
* free $0C00->$17FF = $C00 (3072) Aux
|
2017-11-17 16:16:05 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
K.Buf256 .EQ $0C00 Main
|
2017-11-17 16:16:05 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
PS.Table.PID .EQ $0D00 K.PS.MAX
|
|
|
|
|
|
PS.Table.hMem .EQ $0D20 K.PS.MAX
|
2017-11-17 16:16:05 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
Evt.Table .EQ $0D40 K.EVT.MAX*S.EVT.SIZE=8*8=64b
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
Flt.Table .EQ $0D80 K.FLT.MAX*S.FLT.SIZE=4*32=128b
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
Dev.Table .EQ $0E00 K.DEV.MAX*S.DEV=32*16=512b
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
*** Z80 Reserved $1000-10FF***
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
Z80JMP .EQ $1000 (00000h) Up To $10FF
|
|
|
|
|
|
Z80STACK .EQ $10FF (000FFh) Down to $1000
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-22 16:27:50 +00:00
|
|
|
|
* CORE $1100->$17FF = $700 Main
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* MemMgr : $1800->$1FFF MAIN/AUX (2 kBytes)
|
|
|
|
|
|
*--------------------------------------
|
2017-10-27 06:36:46 +00:00
|
|
|
|
Mem.Table .EQ $1800 Slot 0 is Reserved
|
|
|
|
|
|
Mem.LoMem .EQ $1800
|
|
|
|
|
|
Mem.Free .EQ $1802
|
|
|
|
|
|
Mem.HiMem .EQ $1804
|
|
|
|
|
|
Mem.LastSlot .EQ $1806
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
2017-10-27 06:36:46 +00:00
|
|
|
|
Mem.MLoMem .EQ $2000
|
|
|
|
|
|
Mem.MHiMem .EQ $BD00
|
|
|
|
|
|
Mem.XLoMem .EQ $2000
|
|
|
|
|
|
Mem.XHiMem .EQ $C000
|
2017-09-25 15:50:33 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
DevMgr.HiMem .EQ $FFFA Protect IRQ vectors in Aux LC
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE /A2OSX.BUILD/INC/KERNEL.I
|
|
|
|
|
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
|
|
|
|
|
ASM
|
