mirror of
https://github.com/hsoft/collapseos.git
synced 2025-03-31 09:48:48 +11:00
Remove INTJUMP mechanism
Not worth the trouble. Easier to set jump in binary directly.
This commit is contained in:
parent
a5269a1c7c
commit
3fbae082f4
2
blk/081
2
blk/081
@ -1,6 +1,6 @@
|
|||||||
RAMSTART FUTURE USES +3c BLK(*
|
RAMSTART FUTURE USES +3c BLK(*
|
||||||
+02 CURRENT +3e FUTURE USES
|
+02 CURRENT +3e FUTURE USES
|
||||||
+04 HERE +4e INTJUMP
|
+04 HERE
|
||||||
+06 C<? +51 CURRENTPTR
|
+06 C<? +51 CURRENTPTR
|
||||||
+08 C<* override +53 (emit) override
|
+08 C<* override +53 (emit) override
|
||||||
+0a NLPTR +55 (key) override
|
+0a NLPTR +55 (key) override
|
||||||
|
10
blk/083
10
blk/083
@ -7,10 +7,10 @@ WORDBUF is the buffer used by WORD
|
|||||||
BOOT C< PTR is used when Forth boots from in-memory
|
BOOT C< PTR is used when Forth boots from in-memory
|
||||||
source. See "Initialization sequence" below.
|
source. See "Initialization sequence" below.
|
||||||
|
|
||||||
INTJUMP All RST offsets (well, not *all* at this moment, I
|
|
||||||
still have to free those slots...) in boot binaries are made to
|
|
||||||
jump to this address. If you use one of those slots for an
|
|
||||||
interrupt, write a jump to the appropriate offset in that RAM
|
|
||||||
location.
|
|
||||||
|
|
||||||
(cont.)
|
(cont.)
|
||||||
|
6
blk/283
6
blk/283
@ -8,8 +8,8 @@ EXDEHL, JP(HL), NOP, ( 17, nativeWord )
|
|||||||
0 JPnn, ( 1a, next ) 0 JPnn, ( 1d, chkPS )
|
0 JPnn, ( 1a, next ) 0 JPnn, ( 1d, chkPS )
|
||||||
NOP, NOP, ( 20, numberWord ) NOP, NOP, ( 22, litWord )
|
NOP, NOP, ( 20, numberWord ) NOP, NOP, ( 22, litWord )
|
||||||
NOP, NOP, ( 24, addrWord ) NOP, NOP, ( 26, unused )
|
NOP, NOP, ( 24, addrWord ) NOP, NOP, ( 26, unused )
|
||||||
RAMSTART 0x4e + JPnn, ( 28, RST 28 )
|
0 JPnn, ( RST 28 )
|
||||||
0 JPnn, ( 2b, doesWord ) NOP, NOP, ( 2e, unused )
|
0 JPnn, ( 2b, doesWord ) NOP, NOP, ( 2e, unused )
|
||||||
RAMSTART 0x4e + JPnn, ( RST 30 )
|
0 JPnn, ( RST 30 )
|
||||||
0 JPnn, ( 33, execute ) NOP, NOP, ( unused )
|
0 JPnn, ( 33, execute ) NOP, NOP, ( unused )
|
||||||
RAMSTART 0x4e + JPnn, ( RST 38 )
|
0 JPnn, ( RST 38 )
|
||||||
|
2
blk/583
2
blk/583
@ -1,4 +1,4 @@
|
|||||||
CREATE ~ACIA
|
(entry) ~ACIA ( Set RST 38 jump ) PC ORG @ 0x39 + !
|
||||||
AF PUSHqq,
|
AF PUSHqq,
|
||||||
HL PUSHqq,
|
HL PUSHqq,
|
||||||
DE PUSHqq,
|
DE PUSHqq,
|
||||||
|
3
blk/588
3
blk/588
@ -9,8 +9,5 @@
|
|||||||
CR4:2 (101) - 8 bits + 1 stop bit
|
CR4:2 (101) - 8 bits + 1 stop bit
|
||||||
CR1:0 (10) - Counter divide: 64 )
|
CR1:0 (10) - Counter divide: 64 )
|
||||||
0b10010110 [ ACIA_CTL LITN ] PC!
|
0b10010110 [ ACIA_CTL LITN ] PC!
|
||||||
( setup interrupt )
|
|
||||||
0xc3 0x4e RAM+ C! ( c3==JP, 4e==INTJUMP )
|
|
||||||
~ACIA 0x4f RAM+ !
|
|
||||||
(im1) ;
|
(im1) ;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user