Pārlūkot izejas kodu

Remove INTJUMP mechanism

Not worth the trouble. Easier to set jump in binary directly.
pull/102/head
Virgil Dupras pirms 4 gadiem
vecāks
revīzija
3fbae082f4
6 mainītis faili ar 10 papildinājumiem un 15 dzēšanām
  1. +1
    -1
      blk/081
  2. +5
    -5
      blk/083
  3. +3
    -3
      blk/283
  4. +1
    -1
      blk/583
  5. +0
    -2
      blk/585
  6. +0
    -3
      blk/588

+ 1
- 1
blk/081 Parādīt failu

@@ -1,6 +1,6 @@
RAMSTART FUTURE USES +3c BLK(*
+02 CURRENT +3e FUTURE USES
+04 HERE +4e INTJUMP
+04 HERE
+06 C<? +51 CURRENTPTR
+08 C<* override +53 (emit) override
+0a NLPTR +55 (key) override


+ 5
- 5
blk/083 Parādīt failu

@@ -7,10 +7,10 @@ WORDBUF is the buffer used by WORD
BOOT C< PTR is used when Forth boots from in-memory
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.)

+ 3
- 3
blk/283 Parādīt failu

@@ -8,8 +8,8 @@ EXDEHL, JP(HL), NOP, ( 17, nativeWord )
0 JPnn, ( 1a, next ) 0 JPnn, ( 1d, chkPS )
NOP, NOP, ( 20, numberWord ) NOP, NOP, ( 22, litWord )
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 )
RAMSTART 0x4e + JPnn, ( RST 30 )
0 JPnn, ( RST 30 )
0 JPnn, ( 33, execute ) NOP, NOP, ( unused )
RAMSTART 0x4e + JPnn, ( RST 38 )
0 JPnn, ( RST 38 )

+ 1
- 1
blk/583 Parādīt failu

@@ -1,4 +1,4 @@
CREATE ~ACIA
(entry) ~ACIA ( Set RST 38 jump ) PC ORG @ 0x39 + !
AF PUSHqq,
HL PUSHqq,
DE PUSHqq,


+ 0
- 2
blk/585 Parādīt failu

@@ -13,5 +13,3 @@
EI,
RETI,




+ 0
- 3
blk/588 Parādīt failu

@@ -9,8 +9,5 @@
CR4:2 (101) - 8 bits + 1 stop bit
CR1:0 (10) - Counter divide: 64 )
0b10010110 [ ACIA_CTL LITN ] PC!
( setup interrupt )
0xc3 0x4e RAM+ C! ( c3==JP, 4e==INTJUMP )
~ACIA 0x4f RAM+ !
(im1) ;


Notiek ielāde…
Atcelt
Saglabāt