File:  [gforth] / gforth / arch / 6502 / cold.fs
Revision 1.1: download - view: text, annotated - select for diffs
Sat May 2 21:33:38 1998 UTC (23 years, 4 months ago) by pazsan
Branches: MAIN
CVS tags: v0-7-0, v0-6-2, v0-6-1, v0-6-0, v0-5-0, v0-4-0, HEAD
Mega-Patch; added directories


hex

label cpu-cold
     FF #. LDX,
           TXS,
           SEI,             \ disable IRQ
           CLD,             \ Decimal off
02 #. LDA,
\ LED BIT1 #. LDA,            \ LED on
        WP STA,
     03 #. LDA,             \ Init Port
   WPSHD   STA,
   WP      STA,
   IntoForth JMP,
end-label

unlock >rom $fff6 tdp !
lock
	  0 , \ FFF6
cpu-cold ,  \ FFF8 Warm-Start
0  ,  \ FFFA IRQ
cpu-cold ,  \ FFFC Cold-Start
0  ,  \ FFFE NMI

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>