I would like to load the "test.p" program with the header "$1400"

[funkheld]

Hi good afternoon.

I would like to load the "test.p" program with the header "$1400"
it doesn't work.
what have I done wrong here?

Thank you.
greeting

Code: Select all

!to "diskload.p", cbm

	*=8192
	setnam = $ffbd
	setlfs = $ffba
	open = $ffc0
	load = $ffd5
	
	lda #6
	ldx #<name
	ldy #>name
	jsr setnam
	
	lda #0
	ldy #8
	ldx #8
	jsr setlfs
	jsr open
	
	jsr load
	
	rts
	
name 
  !text "TEST.P" 

[srowe]

You don't want to call open, just setnam and setlfs. You should also set .A to zero otherwise the routine will perform a verify rather than a load.

[funkheld]

hello thanks.

wonderfull , is ok.

greeting.