forked from Apple-2-HW/ProDOS-ROM-Drive
47 lines
725 B
NASM
47 lines
725 B
NASM
printChar = $FDED
|
|
home = $FC58
|
|
|
|
.org $2000
|
|
|
|
jsr home
|
|
ldy #$0
|
|
nextChar:
|
|
lda text,y
|
|
beq infiniteLoop
|
|
jsr printChar
|
|
iny
|
|
clc
|
|
bcc nextChar
|
|
infiniteLoop:
|
|
clc
|
|
bcc infiniteLoop ;hang for eternity
|
|
|
|
.macro aschi str
|
|
.repeat .strlen (str), c
|
|
.byte .strat (str, c) | $80
|
|
.endrep
|
|
.endmacro
|
|
|
|
text:
|
|
aschi "Block 0001 normally reserved for SOS"
|
|
.byte $8D
|
|
aschi "boot contains the firmware for the"
|
|
.byte $8D
|
|
aschi "ProDOS ROM-Drive."
|
|
.byte $8D
|
|
.byte $8D
|
|
aschi "(c)1998 - 2022 Terence J. Boldt"
|
|
.byte $8D
|
|
.byte $8D
|
|
aschi "github.com/tjboldt/ProDOS-ROMDrive"
|
|
.byte $8D
|
|
.byte $8D
|
|
aschi "Do NOT overwrite Block 0001"
|
|
|
|
end:
|
|
.byte 0
|
|
|
|
.repeat 255-<end
|
|
.byte 0
|
|
.endrepeat
|