attempted ca65 conversion

jca65/jimmy.S

@@ -0,0 +1,42 @@
+	.word $0801		; prg untz untz
+
+.org $801			; basic bootstrap
+	.byte $0c, $08, $0a, $00, $9e, $20
+	.byte $34, $30, $39, $36, $00, $00
+	.byte $00
+
+.res $1000-*
+.org $1000			; actual progrem startshere
+
+	ldx #$08		; Screen colours
+	stx $d020
+	ldx #$00
+	stx $d021
+
+	jsr $e544		; clear screen
+	jsr print_string
+
+loop:
+	lda $dc01		; Scans the keyboard buffer
+	cmp #$ef		; If user presses Space ($ef) then quit
+	bne loop
+
+	rts
+
+.proc print_string
+	ldx #$00
+
+loop:
+	lda message, x
+
+	cmp #$0			; return on null terminator
+	beq :+
+
+	sta $0428, x
+	inx
+	jmp loop
+
+:	rts
+.endproc
+
+message: .byte "welcome to scat os", $00