Re: option ROM into a 3032

Here is a listing of petest RAM tester:

/***************************************************************************
 * 
 * This is a cruddy little ROM-able test program for a non-CRTC
 * Commodore PET. It's designed to substitute for the F000/F800 Kernel ROM.
 *
 * Written by Eudimorphodon, 2011, Revised 2012	
 *
 */


*=$f800

	
init = $f800
	sei
        lda #14
        ldx #0
        jmp dumpscreen
	
dumpscreen:	
 sta $8000, x
 sta $80fe, x
 sta $81fd, x
 sta $82fc, x
 inx
 cpx #255	
 beq enddumpscreen
 jmp dumpscreen
enddumpscreen:
jmp dumpdone

dumpdone:
	lda #85
        ldx #0
        ldy #0
	jmp memwrite85
	
memwrite85:
 sta $0000, x
 sta $00fe, x
 sta $01fd, x
 sta $02fc, x
 inx	
 cpx #255	
 beq memwrite85done
 jmp memwrite85

memwrite85done:	
	lda #0
        ldx #0
        ldy #85
	jmp memread851		
	

memread851:
 lda $0000, x
 cmp #85
 beq memokay851
 lda #2	
 sta $8000, x
 inx	
 cpx #255
 beq memfinished851
 jmp memread851
memokay851:
 lda #7
 sta $8000, x
 inx	
 cpx #255
 beq memfinished851
 jmp memread851

memfinished851:	
	lda #0
        ldx #0
        ldy #85
	jmp memread852	

memread852:
 lda $00fe, x
 cmp #85
 beq memokay852
 lda #2	
 sta $80fe, x
 inx	
 cpx #255
 beq memfinished852
 jmp memread852
memokay852:
 lda #7
 sta $80fe, x
 inx	
 cpx #255
 beq memfinished852
 jmp memread852

memfinished852:	
	lda #0
        ldx #0
        ldy #85
	jmp memread853	

memread853:
 lda $01fd, x
 cmp #85
 beq memokay853
 lda #2	
 sta $81fd, x
 inx	
 cpx #255
 beq memfinished853
 jmp memread853
memokay853:
 lda #7
 sta $81fd, x
 inx	
 cpx #255
 beq memfinished853
 jmp memread853

memfinished853:	
	lda #0
        ldx #0
        ldy #85
	jmp memread854		
	
memread854:
 lda $02fc, x
 cmp #85
 beq memokay854
 lda #2	
 sta $82fc, x
 inx
 cpx #255
 beq memfinished854
 jmp memread854
memokay854:
 lda #7
 sta $82fc, x
 inx	
 cpx #255
 beq memfinished854
 jmp memread854

memfinished854:	
	lda #0
        ldx #0
        ldy #0
	jmp delayloopin1		
		
delayloopin1:
 lda $0000, x
 inx
 cpx #255
 beq delayloopout1
 jmp delayloopin1
delayloopout1:
 iny
 cpy #255
 beq enddelay1	
 jmp delayloopin1
enddelay1:
 ldx #0
 ldy #0
 lda #170
 jmp memwrite170


memwrite170:
 sta $0000, x
 sta $00fe, x
 sta $01fd, x
 sta $02fc, x
 inx	
 cpx #255	
 beq memwrite170done
 jmp memwrite170

memwrite170done:	
	lda #0
        ldx #0
        ldy #170
	jmp memread1701		
	

memread1701:
 lda $0000, x
 cmp #170
 beq memokay1701
 lda #66	
 sta $8000, x
 inx	
 cpx #255
 beq memfinished1701
 jmp memread1701
memokay1701:
 lda #71
 sta $8000, x
 inx	
 cpx #255
 beq memfinished1701
 jmp memread1701

memfinished1701:	
	lda #0
        ldx #0
        ldy #170
	jmp memread1702	

memread1702:
 lda $00fe, x
 cmp #170
 beq memokay1702
 lda #66	
 sta $80fe, x
 inx	
 cpx #255
 beq memfinished1702
 jmp memread1702
memokay1702:
 lda #71
 sta $80fe, x
 inx	
 cpx #255
 beq memfinished1702
 jmp memread1702

memfinished1702:	
	lda #0
        ldx #0
        ldy #170
	jmp memread1703	

memread1703:
 lda $01fd, x
 cmp #170
 beq memokay1703
 lda #66	
 sta $81fd, x
 inx	
 cpx #255
 beq memfinished1703
 jmp memread1703
memokay1703:
 lda #71
 sta $81fd, x
 inx	
 cpx #255
 beq memfinished1703
 jmp memread1703

memfinished1703:	
	lda #0
        ldx #0
        ldy #170
	jmp memread1704		
	
memread1704:
 lda $02fc, x
 cmp #170
 beq memokay1704
 lda #66	
 sta $82fc, x
 inx
 cpx #255
 beq memfinished1704
 jmp memread1704
memokay1704:
 lda #71
 sta $82fc, x
 inx	
 cpx #255
 beq memfinished1704
 jmp memread1704

memfinished1704:	
	lda #0
        ldx #0
        ldy #0
	jmp delayloopin3		
		
delayloopin3:
 lda $0000, x
 inx
 cpx #255
 beq delayloopout3
 jmp delayloopin3
delayloopout3:
 iny
 cpy #255
 beq enddelay3	
 jmp delayloopin3
enddelay3:
 ldx #0
 ldy #0
 lda #0
 jmp charset
	
charset:
 txa
 sta $8000, x
 sta $8100, x
 sta $8200, x
 sta $8300, x
 inx
 cpx #255
 beq endcharset
 jmp charset
endcharset:
 ldx #0
 ldy #0
 lda #0
 jmp delayloopin2
	
delayloopin2:
 lda $0000, x
 inx
 cpx #255
 beq delayloopout2
 jmp delayloopin2
delayloopout2:
 iny
 cpy #255
 beq enddelay2	
 jmp delayloopin2
enddelay2:
 ldx #0
 ldy #0
 lda #0
 jmp restartprog

restartprog:
 jmp init
	




--
Sent from: http://cbm-hackers.2304266.n4.nabble.com/

       Message was sent through the cbm-hackers mailing list