mirror of
https://github.com/jeremysrand/Apple2BuildPipeline.git
synced 2024-06-17 19:29:47 +00:00
40 lines
427 B
ArmAsm
40 lines
427 B
ArmAsm
;
|
|
; ___FILENAME___
|
|
; ___PROJECTNAME___
|
|
;
|
|
; Created by ___FULLUSERNAME___ on ___DATE___.
|
|
; ___COPYRIGHT___
|
|
;
|
|
|
|
.include "apple2.inc"
|
|
|
|
COUT = $fded
|
|
CR = $8d
|
|
|
|
.proc main
|
|
lda #CR
|
|
jsr COUT
|
|
|
|
ldx #$00
|
|
loop:
|
|
lda msg, X
|
|
beq wait
|
|
ora #$80
|
|
jsr COUT
|
|
inx
|
|
jmp loop
|
|
|
|
wait:
|
|
lda KBD
|
|
bpl wait
|
|
lda KBDSTRB
|
|
|
|
lda #CR
|
|
jsr COUT
|
|
|
|
jmp DOSWARM
|
|
.endproc
|
|
|
|
msg: .asciiz "HELLO, WORLD"
|
|
|