Fork: 0
uBixOS / uBix-Retro
Transfer to URL with SHA Find file
Newer
Older
uBix-Retro / dump / oa-2.0.9 / arch / c64 / apps / test.a65
@Christopher W. Olsen Christopher W. Olsen on 30 Mar 2022 223 bytes Initial Sync
Raw Blame History 

#include "kdefs.i65"
#include "kernel.i65"

	*=$2000
	.word 0
	.byt PK_PRG
	.byt 12
	.word 0
	.word PRG
	.byt <-1

PRG
l0
	ldx #STDIN
	jsr GETC
	bcs l0

	ldx #STDOUT
l1	pha
	jsr PUTC
	bcc l2
	pla
	bcs l1

l2	pla
	jmp l0