Re: Apple II Interger ROMs

["John B. Matthews" <nospam@nospam.com>]

In article <da5s0j$21jv$1@merope.saaf.se>,
 pausch@saaf.se (Paul Schlyter) wrote:

> In article <1gz2ljo.1jomls212ieqmoN%dempson@actrix.gen.nz>,
> David Empson <dempson@actrix.gen.nz> wrote:
[...]
> > I don't know what Apple included in this area in the INTBASIC image on
> > DOS 3.3.
> 
> It contained this:
> 
> D800: B8 90 02 E6 B9 24 F2 10 14 A6 76 E8 F0 0F A9 23  8..f9$r..&vhp.)#
> D810: 20 5C DB A6 75 A5 76 20 24 ED 20 57 DB 20 B1 00   \[&u%v $m W[ 1.
> D820: 20 28 D8 4C D2 D7 F0 62 F0 2D E9 80 90 11 C9 40   (XLRWpbp-i...I@
> In disassembly format the contents was as listed below.  It's clearly
> code of some kind.  Anyone recognize what it is?
> [...]
> D801-   90 02       BCC   $D805
> D803-   E6 B9       INC   $B9    inc textptr
> D805-   24 F2       BIT   $F2    is trace on
> D807-   10 14       BPL   $D81D  no
> D809-   A6 76       LDX   $76    are we running? 
> D80B-   E8          INX
> D80C-   F0 0F       BEQ   $D81D
> D80E-   A9 23       LDA   #$23   '#'
> D810-   20 5C DB    JSR   $DB5C  jsr outdo
> D813-   A6 75       LDX   $75    curlin
> D815-   A5 76       LDA   $76    curlin+1
> D817-   20 24 ED    JSR   $ED24  jsr linprt
> D81A-   20 57 DB    JSR   $DB57  jsr outsp
> D81D-   20 B1 00    JSR   $00B1  jsr chrget
> D820-   20 28 D8    JSR   $D828  jsr execute
> D823-   4C D2 D7    JMP   $D7D2  back for more

Why, it's a big chunk of Applesoft!

-- 
John
jmatthews at wright dot edu
www dot wright dot edu/~john.matthews/