Upload files to "kernal"

2026-05-07 10:03:27 +12:00
parent 5fd7765f53
commit b978b7a496
26 changed files with 3587 additions and 0 deletions
@@ -0,0 +1,81 @@
+	.segment "SAVE"
+;***********************************
+;* save                            *
+;*                                 *
+;* saves to cassette 1 or 2, or    *
+;* ieee devices 4>=n>=31 as select-*
+;* ed by variable fa.              *
+;*                                 *
+;*start of save is indirect at .a  *
+;*end of save is .x,.y             *
+;***********************************
+
+savesp	stx eal
+	sty eah
+	tax             ;set up start
+	lda $00,x
+	sta stal
+	lda $01,x
+	sta stah
+;
+save	jmp (isave)
+nsave	lda fa          ;***monitor entry
+	bne sv20
+;
+sv10	jmp error9      ;bad device #
+;
+sv20	cmp #3
+	beq sv10
+	bcc sv10
+	lda #$61
+	sta sa
+	ldy fnlen
+	bne sv25
+	jmp error8      ;missing file name
+;
+sv25	jsr openi
+	jsr saving
+	lda fa
+	jsr listn
+	lda sa
+	jsr secnd
+	ldy #0
+	lda sal
+	jsr ciout
+	lda sah
+	jsr ciout
+;
+sv30	jsr unlsn
+	lda (sal),y
+	jsr ciout
+	jsr stop
+	bne sv30
+;
+break	jsr clsei
+	lda #0
+	sec
+	rts
+;
+clsei	bit sa
+	bmi clsei2
+	lda fa
+	jsr listn
+	lda sa
+	and #$ef
+	ora #$e0
+	jsr secnd
+;
+clsei2	clc
+	rts
+;
+;sv115	rts
+
+;subroutine to output:
+;'saving <file name>'
+;
+saving	lda msgflg
+;	bpl sv115       ;no print
+	ldy #ms11-ms1   ;'saving'
+	jsr msg
+	jmp outfn       ;<file name>
+