Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: forth eng./68hc11 new micros
Message-ID: <595.UUL1.3#5129@willett.UUCP>
Date: 2 Mar 90 03:56:24 GMT
Organization: Latest link in the ForthNet chain.  (Pgh, PA)
Lines: 57


 Date: 02-28-90 (13:18)              Number: 394 (Echo)
   To: ALL                           Refer#: NONE
 From: JACK BROWN                      Read: (N/A)
 Subj: 68HC11 ENTRY POINTS           Status: PUBLIC MESSAGE

 Here are the important entry points in New Micros
 MAX-Forth V3.3  These were found by doing a little
 hacking and then assembled using AS11  for the reference
 of others using the V3.3 roms.  You can find out these
 entry pointes by ticking  '  certain words and fetching
 the appropritate field.  See the previous message for how
 to locate these for any version of max-Forth.

 0001 0000                     ORG 0
 0002 0000                    W  RMB 2
 0003 0002                    IP RMB 2
 0004 0004                    UP RMB 2
 0005                         
 0006                         
 0007 fc93                     ORG $FC93
 0008                         
 0009 fc93 18 08              POPTWO: INY
 0010 fc95 18 08                      INY
 0011 fc97 18 08              POP:    INY
 0012 fc99 18 08                      INY
 0013 fc9b 7e fe 4a                   JMP NEXT
 0014                         
 0015 fc9e de 02              BUMP:   LDX IP
 0016 fca0 08                         INX
 0017 fca1 08                         INX
 0018 fca2 7e fe 4c                   JMP NEXT3
 0019                         
 0020 fca5 18 ed 02           BINARY: STD 2,Y
 0021 fca8 7e fc 97                   JMP POP
 0022                         
 0023 fe43                     ORG $FE43
 0024 fe43 18 09              PUSHD:  DEY
 0025 fe45 18 09                      DEY
 0026 fe47 18 ed 00           NEXTSD: STD 0,Y
 0027                         
 0028 fe4a de 02              NEXT:   LDX IP
 0029                         
 0030 fe4c 08                 NEXT3:  INX
 0031 fe4d 08                         INX
 0032 fe4e df 02                      STX IP
 0033 fe50 ee 00              NEXT1:  LDX 0,X
 0034 fe52 df 00              NEXT2:  STX W
 0035 fe54 ee 00                      LDX 0,X
 0036 fe56 6e 00                      JMP 0,X
 0037                         
 0038                          END

 NET/Mail : British Columbia Forth Board - Burnaby BC - (604)434-5886   
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: 'uunet!willett!dwp' or 'willett!dwp@gateway.sei.cmu.edu'