2017-12-22 21:24:30 +00:00
|
|
|
|
NEW
|
2017-03-29 15:48:15 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2017-12-22 21:24:30 +00:00
|
|
|
|
AUTO 4,1
|
2016-06-07 06:10:18 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-26 16:00:52 +00:00
|
|
|
|
* SYSCALL (AUXLC to AUXLC)
|
|
|
|
|
* Used by user & kernel for inter bank Calls
|
2016-06-07 06:10:18 +00:00
|
|
|
|
* In:
|
|
|
|
|
* X = SYSfnc.Index
|
|
|
|
|
* Y,A = free for Inline param
|
|
|
|
|
*--------------------------------------
|
2017-10-27 14:56:46 +00:00
|
|
|
|
jmp GP.SysCall
|
2016-06-07 06:10:18 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* LIBCALL (AUXLC to AUXLC)
|
2016-09-26 16:00:52 +00:00
|
|
|
|
* Used by user
|
2016-06-07 06:10:18 +00:00
|
|
|
|
* In:
|
|
|
|
|
* Y = LIB.ID
|
|
|
|
|
* X = LIBfnc.Index
|
|
|
|
|
* A = free for Inline param
|
|
|
|
|
*--------------------------------------
|
2017-10-27 14:56:46 +00:00
|
|
|
|
jmp GP.LibCall
|
2016-06-07 06:10:18 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-05 21:23:21 +00:00
|
|
|
|
* AppleTalk MLICALL (AUXLC to MAINLC)
|
|
|
|
|
* Used by user
|
2016-06-07 06:10:18 +00:00
|
|
|
|
* In:
|
2017-11-05 21:23:21 +00:00
|
|
|
|
* Y,A = Params
|
2016-06-07 06:10:18 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-05 21:23:21 +00:00
|
|
|
|
jmp GP.AtkCall
|
2016-11-25 16:20:28 +00:00
|
|
|
|
*--------------------------------------
|
2017-08-31 15:35:15 +00:00
|
|
|
|
* MLICALL (AUXLC to MAINLC)
|
|
|
|
|
* Used by Kernel
|
|
|
|
|
* In:
|
|
|
|
|
* X = MLI Function
|
|
|
|
|
* A = Param Count
|
|
|
|
|
*--------------------------------------
|
2017-10-27 14:56:46 +00:00
|
|
|
|
jmp GP.ROMCall
|
2017-07-01 13:44:40 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* BADCALL
|
|
|
|
|
*--------------------------------------
|
2017-10-26 16:01:54 +00:00
|
|
|
|
lda #MLI.E.BADCALL
|
2017-07-01 13:44:40 +00:00
|
|
|
|
sec
|
|
|
|
|
rts
|
2017-11-22 16:27:50 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* SLEEP
|
2017-11-17 16:16:05 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
pla get PC LO
|
|
|
|
|
sec
|
|
|
|
|
sbc pCode
|
|
|
|
|
ldy #S.PS.PC
|
|
|
|
|
sta (pPs),y
|
|
|
|
|
|
|
|
|
|
pla get PC HI
|
|
|
|
|
sbc pCode+1
|
|
|
|
|
iny
|
|
|
|
|
sta (pPs),y
|
|
|
|
|
|
|
|
|
|
lda (pPs)
|
|
|
|
|
ora #S.PS.F.SLEEP
|
|
|
|
|
sta (pPs)
|
|
|
|
|
clc
|
|
|
|
|
rts
|
2016-06-07 06:10:18 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-26 16:00:52 +00:00
|
|
|
|
* *** MUST BE REINTRANT ***
|
|
|
|
|
*--------------------------------------
|
2017-10-27 14:56:46 +00:00
|
|
|
|
GP.SysCall bit K.SYSCALL.BANK,x
|
2016-09-26 16:00:52 +00:00
|
|
|
|
bpl .8 in $E000, no BNK change
|
|
|
|
|
|
|
|
|
|
sta .7+1 save A (Func Arg)
|
|
|
|
|
|
2017-08-25 15:02:16 +00:00
|
|
|
|
lda K.SYSCALL.BANK,x Get Target BNK
|
2016-09-26 16:00:52 +00:00
|
|
|
|
|
|
|
|
|
cmp $D000 #RRAMWRAMBNK1 or #RRAMWRAMBNK2
|
|
|
|
|
beq .7 same as actual BNK...go restore A and JMP
|
|
|
|
|
|
|
|
|
|
stx .6+1 save X (Func ID)
|
|
|
|
|
|
|
|
|
|
tax set Target BNK in x
|
|
|
|
|
lda $D000 get source BNK
|
|
|
|
|
bit $C000,x switch to Target BNK
|
|
|
|
|
bit $C000,x
|
|
|
|
|
pha
|
|
|
|
|
|
2016-09-29 06:26:54 +00:00
|
|
|
|
jsr .6 go to kernel.....
|
2016-09-26 16:00:52 +00:00
|
|
|
|
|
|
|
|
|
stx .5+1 save X
|
|
|
|
|
plx get back Source BNK
|
2016-09-05 16:00:11 +00:00
|
|
|
|
bit $C000,x
|
|
|
|
|
bit $C000,x
|
2016-09-26 16:00:52 +00:00
|
|
|
|
.5 ldx #$FF Self Modified
|
|
|
|
|
rts Unmodified Carry
|
|
|
|
|
|
|
|
|
|
.6 ldx #$FF Self Modified
|
|
|
|
|
.7 lda #$FF Self Modified
|
2017-07-01 13:44:40 +00:00
|
|
|
|
.8 jmp (K.SYSCALL.JMP,x)
|
2016-09-26 16:00:52 +00:00
|
|
|
|
*--------------------------------------
|
2017-10-27 14:56:46 +00:00
|
|
|
|
GP.LibCall pha No need to save X, K.GetMemPtr.A will leave it unmodified
|
2016-09-26 16:00:52 +00:00
|
|
|
|
tya Get LIB hMem in A
|
2017-08-25 06:37:21 +00:00
|
|
|
|
jsr K.GetMemPtr.A Get LIB Code Segment (MemMgr in $E000, no BNK change)
|
2017-03-27 15:32:30 +00:00
|
|
|
|
>STYA .1+1
|
2016-06-07 06:10:18 +00:00
|
|
|
|
pla
|
2017-11-05 21:23:21 +00:00
|
|
|
|
.1 jmp *
|
2016-06-07 06:10:18 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-05 21:23:21 +00:00
|
|
|
|
GP.AtkCall >STYA .1
|
2016-09-26 16:00:52 +00:00
|
|
|
|
jsr GO.ProDOS
|
2016-06-07 06:10:18 +00:00
|
|
|
|
jsr MLI
|
2017-11-05 21:23:21 +00:00
|
|
|
|
.DA #MLIATALK
|
|
|
|
|
.1 .DA *
|
2016-09-26 16:00:52 +00:00
|
|
|
|
jsr GO.A2osX
|
2016-06-07 06:10:18 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2017-10-27 14:56:46 +00:00
|
|
|
|
GP.ROMCall phx
|
2017-10-16 15:41:48 +00:00
|
|
|
|
ldx $D000
|
|
|
|
|
stx .8+1
|
|
|
|
|
|
|
|
|
|
bit RROMBNK1
|
|
|
|
|
|
|
|
|
|
plx
|
|
|
|
|
jsr .1
|
|
|
|
|
|
|
|
|
|
.8 ldx #$ff
|
|
|
|
|
bit $C000,x
|
|
|
|
|
bit $C000,x
|
|
|
|
|
rts
|
2017-10-26 16:01:54 +00:00
|
|
|
|
|
2017-10-16 15:41:48 +00:00
|
|
|
|
.1 jmp (.2,x)
|
2017-10-26 16:01:54 +00:00
|
|
|
|
|
|
|
|
|
* http://www.txbobsc.com/scsc/scdocumentor/E7A0.html
|
|
|
|
|
|
2017-10-30 16:11:07 +00:00
|
|
|
|
.2 .DA $E7AA FSUBT
|
|
|
|
|
.DA $E7C1 FADDT
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.DA $E82E NORMALIZE.FAC.2 (L->F)
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.DA $E941 LOG
|
2017-10-30 16:11:07 +00:00
|
|
|
|
.DA $E987 FMULTT.1
|
2017-10-27 14:56:46 +00:00
|
|
|
|
.DA $E9E7 LOAD.ARG.FROM.INDEX
|
2017-10-30 16:11:07 +00:00
|
|
|
|
.DA $EA6B FDIVT+2
|
2017-10-27 14:56:46 +00:00
|
|
|
|
.DA $EAFD LOAD.FAC.FROM.INDEX
|
2017-10-27 06:36:46 +00:00
|
|
|
|
|
2017-11-05 21:23:21 +00:00
|
|
|
|
.DA $EB27 SETFOR (GETFAC)
|
2017-10-27 06:36:46 +00:00
|
|
|
|
.DA $EBB2 FCOMP
|
|
|
|
|
.DA $EBF2 QINT (F->L)
|
2017-10-27 14:56:46 +00:00
|
|
|
|
.DA $EC4A FIN StrToF
|
|
|
|
|
.DA $ED36 FOUT.1 PrintF
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.DA $EE8D SQR
|
|
|
|
|
.DA $EE97 FPWRT
|
|
|
|
|
.DA $EF09 EXP
|
2017-10-27 06:36:46 +00:00
|
|
|
|
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.DA $EFEA COS
|
|
|
|
|
.DA $EFF1 SIN
|
|
|
|
|
.DA $F03A TAN
|
|
|
|
|
.DA $F09E ATN
|
|
|
|
|
*--------------------------------------
|
2017-11-05 21:23:21 +00:00
|
|
|
|
GP.MLICall stx .1
|
|
|
|
|
sta K.MLI.PARAMS
|
|
|
|
|
jsr GO.ProDOS
|
|
|
|
|
jsr MLI
|
|
|
|
|
.1 .BS 1
|
|
|
|
|
.DA K.MLI.PARAMS
|
|
|
|
|
jsr GO.A2osX
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2017-03-31 15:24:42 +00:00
|
|
|
|
GO.ProDOS pha
|
|
|
|
|
lda $D000 We re coming from AUXLC, saving bank...
|
2016-09-26 16:00:52 +00:00
|
|
|
|
sta GO.A2osX.BNK+1
|
2017-03-31 15:24:42 +00:00
|
|
|
|
pla
|
2016-09-05 16:00:11 +00:00
|
|
|
|
php
|
2016-06-07 06:10:18 +00:00
|
|
|
|
clc
|
|
|
|
|
.HS 2C bit abs
|
|
|
|
|
|
2016-09-26 16:00:52 +00:00
|
|
|
|
GO.A2osX php
|
2016-06-07 06:10:18 +00:00
|
|
|
|
sec
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2016-06-07 06:10:18 +00:00
|
|
|
|
sei
|
|
|
|
|
|
2017-05-03 15:40:02 +00:00
|
|
|
|
sta GO.EXIT.SaveA+1
|
|
|
|
|
stx GO.EXIT.SaveX+1
|
|
|
|
|
sty GO.EXIT.SaveY+1
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
|
|
|
|
pla Restore P in A for later
|
|
|
|
|
|
|
|
|
|
plx Get PC and add 1 for return
|
2016-06-07 06:10:18 +00:00
|
|
|
|
ply
|
|
|
|
|
inx
|
|
|
|
|
bne .1
|
|
|
|
|
iny
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2016-06-07 06:10:18 +00:00
|
|
|
|
.1 stx GO.EXIT.JMP+1
|
|
|
|
|
sty GO.EXIT.JMP+2
|
|
|
|
|
|
2016-09-26 16:00:52 +00:00
|
|
|
|
bcs GO.A2osX.BNK if CS, go AUXLC
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
|
|
|
|
bit RRAMWRAMBNK1 Go MAINLC (ProDOS), always BNK1
|
|
|
|
|
bit RRAMWRAMBNK1
|
|
|
|
|
|
|
|
|
|
tsx
|
2016-06-07 06:10:18 +00:00
|
|
|
|
stx A2osX.SaveSX
|
|
|
|
|
ldx A2osX.SaveSM
|
|
|
|
|
txs
|
2016-09-05 16:00:11 +00:00
|
|
|
|
sta CLRALTZP
|
2016-06-07 06:10:18 +00:00
|
|
|
|
bra GO.EXIT
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
2016-09-28 15:34:15 +00:00
|
|
|
|
GO.A2osX.BNK ldx #RRAMWRAMBNK1 Self Modified, initialized to BNK1 for INIT3
|
2016-09-05 16:00:11 +00:00
|
|
|
|
|
|
|
|
|
bit $C000,x
|
|
|
|
|
bit $C000,x
|
|
|
|
|
|
|
|
|
|
sta SETALTZP
|
2016-06-07 06:10:18 +00:00
|
|
|
|
tsx
|
|
|
|
|
stx A2osX.SaveSM
|
|
|
|
|
ldx A2osX.SaveSX
|
|
|
|
|
txs
|
|
|
|
|
*--------------------------------------
|
2017-09-12 15:24:36 +00:00
|
|
|
|
GO.EXIT pha push P on stack
|
2017-05-03 15:40:02 +00:00
|
|
|
|
GO.EXIT.SaveY ldy #$ff
|
|
|
|
|
GO.EXIT.SaveX ldx #$ff
|
|
|
|
|
GO.EXIT.SaveA lda #$ff
|
2016-06-07 06:10:18 +00:00
|
|
|
|
plp
|
2016-09-26 16:00:52 +00:00
|
|
|
|
GO.EXIT.JMP jmp $FFFF Self Modified
|
2016-06-07 06:10:18 +00:00
|
|
|
|
*--------------------------------------
|
2017-11-23 16:51:52 +00:00
|
|
|
|
* Called from ProDOS IRQ Manager (LCBNK1)
|
2017-01-25 16:18:35 +00:00
|
|
|
|
* A,X,Y, $FA->$FF Already Saved
|
|
|
|
|
* Main RAM,ZP/LC selected
|
|
|
|
|
* must begin with CLD
|
|
|
|
|
* must exit with RTS
|
|
|
|
|
* - CC if IRQ cleared, CS if NOT
|
|
|
|
|
*--------------------------------------
|
2018-04-05 20:32:22 +00:00
|
|
|
|
*GP.IrqH cld
|
|
|
|
|
* lda RDALTZP
|
|
|
|
|
* sta .2+1
|
|
|
|
|
*
|
|
|
|
|
* bmi .1 we are already in AuxZP/LC
|
2017-01-25 16:18:35 +00:00
|
|
|
|
|
2018-04-05 20:32:22 +00:00
|
|
|
|
* sta SETALTZP coming from MainLC, switch to aux
|
|
|
|
|
* tsx
|
|
|
|
|
* stx A2osX.SaveSM
|
|
|
|
|
* ldx A2osX.SaveSX
|
|
|
|
|
* txs
|
|
|
|
|
|
|
|
|
|
*.1 jsr K.IrqH
|
|
|
|
|
|
|
|
|
|
*.2 lda #$ff get back ZP status when called
|
|
|
|
|
* bmi .3 we were coming from AuxZP/LC
|
|
|
|
|
|
|
|
|
|
* tsx go back to Main
|
|
|
|
|
* stx A2osX.SaveSX
|
|
|
|
|
* ldx A2osX.SaveSM
|
|
|
|
|
* txs
|
|
|
|
|
* sta CLRALTZP
|
|
|
|
|
|
|
|
|
|
*.3 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GP.IrqH.TCLOCK ldy IRQ.VBL.n0
|
|
|
|
|
|
|
|
|
|
lda $c080,y
|
|
|
|
|
and #$20
|
|
|
|
|
beq GP.IrqH.DEV
|
|
|
|
|
|
|
|
|
|
lda $c080,y
|
|
|
|
|
lda $c088,y
|
|
|
|
|
|
|
|
|
|
inc CORE.IRQTick
|
2017-03-02 22:14:04 +00:00
|
|
|
|
|
2018-04-05 20:32:22 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GP.IrqH.VBL jsr IRQ.VBL.MSM SERVEMOUSE
|
|
|
|
|
bcs GP.IrqH.DEV Not From Mouse
|
|
|
|
|
|
|
|
|
|
ldx IRQ.VBL.0n
|
|
|
|
|
lda MOUSESTSx,x
|
|
|
|
|
and #MOUSESTSx.INTVBL IRQ was caused by VBL ?
|
|
|
|
|
beq GP.IrqH.DEV
|
|
|
|
|
|
|
|
|
|
ldx IRQ.VBL.MRM+2 $Cn
|
|
|
|
|
ldy IRQ.VBL.n0
|
|
|
|
|
jsr IRQ.VBL.MRM READMOUSE
|
|
|
|
|
|
|
|
|
|
inc CORE.IRQTick
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GP.IrqH.DEV sta SETALTZP switch to aux LC
|
2017-01-25 16:18:35 +00:00
|
|
|
|
tsx
|
|
|
|
|
stx A2osX.SaveSM
|
|
|
|
|
ldx A2osX.SaveSX
|
|
|
|
|
txs
|
2018-04-05 20:32:22 +00:00
|
|
|
|
|
|
|
|
|
>LDYAI Dev.Table
|
|
|
|
|
>STYA $fe
|
2017-02-06 17:04:03 +00:00
|
|
|
|
|
2018-04-05 20:32:22 +00:00
|
|
|
|
ldx DevMgr.Count
|
|
|
|
|
|
|
|
|
|
.4 ldy #S.DEV.S
|
|
|
|
|
lda ($fe),y
|
|
|
|
|
and #S.DEV.S.IRQ
|
|
|
|
|
beq .6
|
|
|
|
|
|
|
|
|
|
phx
|
|
|
|
|
jsr GP.IrqHJMP
|
|
|
|
|
plx
|
|
|
|
|
bcc .8 CC, IRQ cleared by device
|
|
|
|
|
|
|
|
|
|
.6 lda $fe
|
|
|
|
|
clc
|
|
|
|
|
adc #S.DEV
|
|
|
|
|
sta $fe
|
|
|
|
|
bcc .7
|
|
|
|
|
inc $ff
|
2017-01-25 16:18:35 +00:00
|
|
|
|
|
2018-04-05 20:32:22 +00:00
|
|
|
|
.7 dex
|
|
|
|
|
bne .4
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
|
|
|
|
.8 tsx go back to Main
|
2017-01-25 16:18:35 +00:00
|
|
|
|
stx A2osX.SaveSX
|
|
|
|
|
ldx A2osX.SaveSM
|
|
|
|
|
txs
|
|
|
|
|
sta CLRALTZP
|
2018-04-05 20:32:22 +00:00
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
GP.IrqHJMP ldx #DEVMGR.IRQ
|
|
|
|
|
jmp ($fe)
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
IRQ.IntNum .BS 1
|
|
|
|
|
IRQ.VBL.n0 .BS 1
|
|
|
|
|
IRQ.VBL.0n .BS 1
|
|
|
|
|
IRQ.VBL.MSM jmp $0000
|
|
|
|
|
IRQ.VBL.MRM jmp $0000
|
2017-01-25 16:18:35 +00:00
|
|
|
|
*--------------------------------------
|
2017-10-18 15:32:56 +00:00
|
|
|
|
*GO.Reset jsr GO.A2osX
|
|
|
|
|
* jmp CORE.Run
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
*BrkHandler bra *
|
2017-05-03 15:40:02 +00:00
|
|
|
|
*--------------------------------------
|
2017-10-18 15:32:56 +00:00
|
|
|
|
.BS $BEE0-*
|
2017-10-27 14:56:46 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* $BEE0->$BEEF : Public Variables
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.BS 16
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* $BEF0->$BEFF : Kernel Config Block
|
2017-05-03 15:40:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DA #6 60hz
|
|
|
|
|
.BS 7
|
|
|
|
|
.DA #0 ChRoot Disabled
|
|
|
|
|
.BS 7 All Slots marked as "Free"
|
2016-06-07 06:10:18 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
2017-03-29 15:48:15 +00:00
|
|
|
|
SAVE /A2OSX.SRC/SYS/KERNEL.S.GP
|
|
|
|
|
LOAD /A2OSX.SRC/SYS/KERNEL.S
|
2016-06-07 06:10:18 +00:00
|
|
|
|
ASM
|