acme version
This commit is contained in:
5
jacme/Makefile
Normal file
5
jacme/Makefile
Normal file
@@ -0,0 +1,5 @@
|
||||
jimmy.prg: jimmy.S
|
||||
acme --color --cpu 6510 --format cbm -o $@ $<
|
||||
|
||||
clean:
|
||||
rm -f jimmy.prg
|
||||
37
jacme/jimmy.S
Normal file
37
jacme/jimmy.S
Normal file
@@ -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@"
|
||||
Reference in New Issue
Block a user