Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!usc!wuarchive!emory!gatech!purdue!mentor.cc.purdue.edu!piskacrj
From: piskacrj@mentor.cc.purdue.edu (Robert J Piskac)
Newsgroups: comp.sys.cbm
Subject: Save a seq file in assembly
Message-ID: <1854@mentor.cc.purdue.edu>
Date: 27 Nov 90 13:39:16 GMT
Organization: Purdue University
Lines: 41


I am learning machine language on the C= 128.  

I have been trying for some time to write a save routine in assembly.
What am I doing wrong?  I keep getting a file not found error.
I am trying to write to a new file called file.test which is a 
seq file.



savefile .byte "file.test,s,w"
;=======================
save   	lda #$0e
	ldx #<savefile
	ldy #>savefile
	jsr setnam
	ldx #0
	jsr setbnk
	lda #3
	ldx #$08
	ldy #0
	jsr setlfs
	jsr open
	bcs error3  ; error sub routine deleted
 	ldx #3
	jsr ckout
	ldy #$00
;
;    much deleted
;
eofsave	lda #3
	jsr close
	jsr clrchn
	jsr bank14
	rts

Thank you

Bob

piskacrj@mentor.cc.purdue.edu