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,41 @@
+	.segment "IRQFILE"
+; simirq - simulate an irq (for cassette read)
+;  enter by a jsr simirq
+;
+simirq	php
+	pla             ;fix the break flag
+	and #$ef
+	pha
+; puls - checks for real irq's or breaks
+;
+puls	pha
+	txa
+	pha
+	tya
+	pha
+	tsx
+	lda $104,x      ;get old p status
+	and #$10        ;break flag?
+	beq puls1       ;...no
+	jmp (cbinv)     ;...yes...break instr
+puls1	jmp (cinv)      ;...irq
+
+; pcint - add universal to cinit
+;
+pcint	jsr cint
+p0010	lda vicreg+18   ;check raster compare for zero
+	bne p0010       ;if it's zero then check value
+	lda vicreg+25   ;get raster irq value
+	and #$01
+	sta palnts      ;place in pal/ntsc indicator
+	jmp iokeys
+;
+; piokey - add universal to iokeys
+;
+piokey	lda #$81        ;enable t1 irq's
+	sta d1icr
+	lda d1cra
+	and #$80        ;save only tod bit
+	ora #%00010001  ;enable timer1
+	sta d1cra
+	jmp clklo       ;release the clock line***901227-03***