dos33fsprogs/basic/appleiibot/convert6_2/load.good.s
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

67 lines
722 B
ArmAsm

LEN = $ff
load:
ldy #1
sub_loop:
lda string,Y
bmi done_sub_loop
cmp #' '
bne nolen
sty LEN
nolen:
sec
sbc #'#'
sta string,Y
iny
jmp sub_loop
done_sub_loop:
ldx LEN
inx
ldy #1
hard_loop:
cpy LEN
bcs all_done
lda string,X ; a=buf[len+x+1];
; lda #00
asl
asl
pha
and #$c0
ora string,Y
sta $2FF,Y
pla
iny
asl
asl
pha
and #$c0
ora string,Y
sta $2FF,Y
pla
iny
asl
asl
pha
and #$c0
ora string,Y
sta $2FF,Y
pla
iny
; out[i]=buf[i]|((a<<2)&0xc0);
; out[i+1]=buf[i+1]|((a<<4)&0xc0);
; out[i+2]=buf[i+2]|((a<<6)&0xc0);
inx
jmp hard_loop
all_done:
jmp $300
string:
.byte 34,"O3#O5#CS_Lb4M+3^L9(HCE_CJKS(-S'3%,@+S-TKL*M`\&4K+3I)H3@S0#^#M#<#@ ***Q+[C1*&+4%#K+FSV+E/",$80