diff --git a/jacme/Makefile b/jacme/Makefile new file mode 100644 index 0000000..dd24208 --- /dev/null +++ b/jacme/Makefile @@ -0,0 +1,5 @@ +jimmy.prg: jimmy.S + acme --color --cpu 6510 --format cbm -o $@ $< + +clean: + rm -f jimmy.prg diff --git a/jacme/jimmy.S b/jacme/jimmy.S new file mode 100644 index 0000000..1ade81a --- /dev/null +++ b/jacme/jimmy.S @@ -0,0 +1,37 @@ +* = $0801 ; basic bootstrap +!byte $0c, $08, $0a, $00, $9e, $20 +!byte $34, $30, $39, $36, $00, $00 +!byte $00 + +* = $1000 ; actual progrem starts here + + 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 + +print_string: + ldx #$00 +print_loop: + lda message,x + + cmp #$0 ; return on null terminator + bne print_continue + rts + +print_continue: + sta $0428,x + inx + jmp print_loop + +message !scr "welcome to scat os@"