Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-26 13:49:18 +00:00
Code Issues Projects Releases Wiki Activity
de67c3aacb
A2osX/SYS/KERNEL.S.SHARED.txt

134 lines
2.6 KiB
Plaintext
Raw Normal View History

Kernel 0.93+
2019-07-26 14:23:07 +00:00
NEW
AUTO 3,1
*--------------------------------------
Kernel 0.93+
2019-07-28 20:39:30 +00:00
SHARED.IsIDValid
cmp #'.'
beq SHARED.IsDigit.8
Kernel 0.93+
2019-07-26 14:23:07 +00:00
cmp #'_'
Kernel 0.93+
2019-07-28 20:39:30 +00:00
beq SHARED.IsDigit.8
SHARED.IsDigitOrL
cmp #'z'+1
Kernel 0.94++
2021-05-04 17:31:21 +00:00
bcs SHARED.RTS
Kernel 0.94++
2021-05-09 12:39:40 +00:00
Kernel 0.93+
2019-07-26 14:23:07 +00:00
cmp #'a'
Kernel 0.93+
2019-07-28 20:39:30 +00:00
bcs SHARED.IsDigit.8
Kernel 0.94++
2021-05-09 12:39:40 +00:00
Kernel 0.93+
2019-07-28 20:39:30 +00:00
cmp #'Z'+1
Kernel 0.94++
2021-05-04 17:31:21 +00:00
bcs SHARED.RTS
Kernel 0.94++
2021-05-09 12:39:40 +00:00
Kernel 0.93+
2019-07-26 14:23:07 +00:00
cmp #'A'
Kernel 0.93+
2019-07-28 20:39:30 +00:00
bcs SHARED.IsDigit.8
Kernel 0.93+
2019-07-26 14:23:07 +00:00
Kernel 0.93+
2019-07-28 20:39:30 +00:00
jmp ZP.IsDigit
SHARED.IsDigit.9
sec
Kernel 0.93+
2019-07-26 14:23:07 +00:00
rts
Kernel 0.93+
2019-07-28 20:39:30 +00:00
SHARED.IsDigit.8
clc
rts
Kernel 0.93+
2019-07-26 14:23:07 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.TXTPTRgY sta CLRREADAUX
Kernel 0.93+
2019-07-26 14:23:07 +00:00
lda (TXTPTR),y
sta SETREADAUX
rts
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.TXTPTRgn sta CLRREADAUX
Kernel 0.93+
2019-07-26 14:23:07 +00:00
lda (TXTPTR)
sta SETREADAUX
Kernel 0.93++
2020-01-21 11:06:59 +00:00
beq SHARED.RTS
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.TXTPTRn inc TXTPTR
Kernel 0.93++
2020-01-21 11:06:59 +00:00
bne SHARED.RTS
Kernel 0.93+
2019-07-26 14:23:07 +00:00
inc TXTPTR+1
Kernel 0.93+
2020-01-15 16:43:23 +00:00
rts
Kernel 0.93+
2019-07-26 14:23:07 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.FORPNTgY sta CLRREADAUX
Kernel 0.93++
2020-02-03 19:41:04 +00:00
lda (FORPNT),y
Kernel 0.93++
2020-01-29 16:46:51 +00:00
sta SETREADAUX
rts
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.FORPNTpY sta CLRWRITEAUX
Kernel 0.93++
2020-01-21 11:06:59 +00:00
sta (FORPNT),y
sta SETWRITEAUX
rts
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.FORPNTgn sta CLRREADAUX
Kernel 0.94
2020-02-18 15:34:56 +00:00
lda (FORPNT)
sta SETREADAUX
Kernel 0.94++
2021-05-04 17:31:21 +00:00
bra SHARED.FORPNTn
Kernel 0.94
2020-02-18 15:34:56 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.FORPNTpn sta CLRWRITEAUX
Kernel 0.93++
2020-01-21 07:34:32 +00:00
sta (FORPNT)
sta SETWRITEAUX
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.FORPNTn inc FORPNT
Kernel 0.93++
2020-01-21 11:06:59 +00:00
bne SHARED.RTS
Kernel 0.93++
2020-01-21 07:34:32 +00:00
inc FORPNT+1
Kernel 0.93++
2020-01-21 11:06:59 +00:00
SHARED.RTS rts
Kernel 0.93++
2020-01-21 07:34:32 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.GetCP1 lda (ZPPtr1)
Kernel 0.93++
2020-01-21 11:06:59 +00:00
beq SHARED.RTS
Kernel 0.93+
2019-07-26 14:23:07 +00:00
inc ZPPtr1
bne .8
Kernel 0.94++
2021-05-04 17:31:21 +00:00
Kernel 0.93+
2019-07-26 14:23:07 +00:00
inc ZPPtr1+1 never Z
.8 rts
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.AddYp12P1
Kernel 0.93+
2019-07-26 14:23:07 +00:00
sec
.HS 90 BCC
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.AddY2P1 clc
Kernel 0.93+
2019-07-26 14:23:07 +00:00
tya
adc ZPPtr1
sta ZPPtr1
bcc .8
Kernel 0.94++
2021-05-04 17:31:21 +00:00
Kernel 0.93+
2019-07-26 14:23:07 +00:00
inc ZPPtr1+1
Kernel 0.94++
2021-05-04 17:31:21 +00:00
Kernel 0.93+
2019-07-26 14:23:07 +00:00
.8 rts
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.AddYp12P2
Kernel 0.93+
2019-07-26 14:23:07 +00:00
sec
.HS 90 BCC
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.AddY2P2 clc
Kernel 0.93+
2019-07-26 14:23:07 +00:00
tya
adc ZPPtr2
sta ZPPtr2
bcc .8
Kernel 0.94++
2021-05-04 17:31:21 +00:00
Kernel 0.93+
2019-07-26 14:23:07 +00:00
clc keep CC as some JMP exit here
inc ZPPtr2+1
Kernel 0.94++
2021-05-04 17:31:21 +00:00
Kernel 0.93+
2019-07-26 14:23:07 +00:00
.8 rts
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.GetCP2 lda (ZPPtr2)
bne SHARED.NextCP2
Kernel 0.93+
2019-07-26 14:23:07 +00:00
rts
Kernel 0.94++
2021-05-04 17:31:21 +00:00
*--------------------------------------
SHARED.PutCP2 sta (ZPPtr2)
SHARED.NextCP2 inc ZPPtr2
Kernel 0.93+
2019-07-26 14:23:07 +00:00
bne .8
Kernel 0.94++
2021-05-04 17:31:21 +00:00
Kernel 0.93+
2019-07-26 14:23:07 +00:00
inc ZPPtr2+1
.8 rts
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
SHARED.PullP2P1 >PULLW ZPPtr2
>PULLW ZPPtr1
rts
*--------------------------------------
SHARED.P3gY sta CLRREADAUX
Kernel 0.94
2020-02-18 15:34:56 +00:00
lda (ZPPtr3),y
Kernel 0.93+
2019-07-29 15:38:55 +00:00
sta SETREADAUX
Kernel 0.94
2020-02-18 15:34:56 +00:00
rts
Kernel 0.93+
2019-07-29 15:38:55 +00:00
*--------------------------------------
Kernel 0.94
2020-03-12 07:46:43 +00:00
SHARED.GetScrnDevX
sta CLRREADAUX
lda A2osX.SCRNDEVS,x
sta SETREADAUX
rts
*--------------------------------------
Kernel 0.93+
2019-07-26 14:23:07 +00:00
MAN
Kernel 0.94+
2020-12-15 13:23:22 +00:00
SAVE usr/src/sys/kernel.s.shared
LOAD usr/src/sys/kernel.s
Kernel 0.93+
2019-07-26 14:23:07 +00:00
ASM
Reference in New Issue Copy Permalink