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

72 lines
854 B
ArmAsm

; 35..96
;
; = 35<<2 + 35 = 175 235
; = 40<<2 + 35 = 195 4
; = 50<<2 + 35 = 235 39
; = 60<<2 + 35 = 19 79
; = 64<<2 + 35 = 35 95
; 35 96
; = 35<<1 + 35 = 105 166
; = 45<<1 + 35 = 125 186
; = 55<<1 + 35 = 145 206
= 95<<1 + 35 = 225 29
; 32..96
; <<
; add
; 1
; 2631
; 8426 8421
; 4 bits 0XXX X000 so
; ..95
load:
ldx #1
sub_loop:
lda string,X
bmi done_sub_loop
sec
sbc #'#'
done_sub_loop:
inx
ldy #1 ; make Y 1
hard_loop:
lda string,X ; a=buf[len+x+1];
bmi all_done
sec
sbc #'#'
stx $FE
ldx #3
inner_loop:
asl
asl
pha
and #$c0
ora string,Y
sta $2FF,Y
pla
iny
dex
bne inner_loop
ldx $FE
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