Path: utzoo!attcan!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: Build the world's largest Forth Word!
Message-ID: <1305.UUL1.3#5129@willett.UUCP>
Date: 11 Jul 90 03:01:38 GMT
Organization: String, Scotch tape, and Paperclips.  (in Pgh, PA)
Lines: 30

Category 3,  Topic 36
Message 38        Mon Jul 09, 1990
D.RUFFER [Dennis]            at 19:34 EDT
 
Re: GENE LEFAVE

You asked for the 68020 interrupt code.  It was only 1 block so here it is. 
I'll leave it as an excersise to figure out what it does. :-)

 ( 68020 Exception vector processing)
 : EXCEPTION ( a n)   CELLS ! ;

 VARIABLE WHERE  8 ALLOT      VARIABLE SPURIOUS
 : REST ( a a)  ." at " .  ." I=" .  SPACE 1 ABORT" trapped" ;
 HERE  ] CR  WHERE 5 + C@ 12 = IF  ." Addr"  ELSE  ." Bus"  THEN
   ."  error accessing " .  REST [
 ASSEMBLER BEGIN   R )+ MTSR   I S -) MOV   R )+ RL MMOV D0 D1 \\
    6 R) D2 MOV   RL WHERE AB MMOV D0 D2 \\   D0 S -) MOV
    D2 S -) MOV   SWAP # I MOV   NEXT
    DUP 2 EXCEPTION   3 EXCEPTION
 HERE   ] CR  ." Exception # "  4 / .  REST [
 ASSEMBLER BEGIN   R )+ MTSR   I S -) MOV   R )+ S -) MOV
    R )+ S -) H. MOV   S -) H. CLR   SWAP # I MOV   NEXT
    4 EXCEPTION  16 20 76 MOVE
 BEGIN   1 #Q SPURIOUS AB ADD   RTE   24 EXCEPTION

Have fun!   DaR
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: uunet!willett!dwp or willett!dwp@hobbes.cert.sei.cmu.edu