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!