199 lines
4.5 KiB
ArmAsm
199 lines
4.5 KiB
ArmAsm
enter_name:
|
|
|
|
jsr TEXT
|
|
|
|
; zero out name
|
|
|
|
ldx #0
|
|
lda #0
|
|
zero_name_loop:
|
|
sta HERO_NAME,X
|
|
inx
|
|
cpx #8
|
|
bne zero_name_loop
|
|
|
|
|
|
lda #0
|
|
sta NAMEX
|
|
sta XX
|
|
sta YY
|
|
|
|
name_loop:
|
|
; clear screen
|
|
lda #$A0
|
|
jsr clear_top_a
|
|
jsr clear_bottom
|
|
|
|
; print entry string at top
|
|
|
|
lda #>(enter_name_string)
|
|
sta OUTH
|
|
lda #<(enter_name_string)
|
|
sta OUTL
|
|
jsr move_and_print
|
|
|
|
|
|
|
|
;=============================
|
|
; print current name + cursor
|
|
; on screen at 11,2?
|
|
|
|
; get pointer to line 2
|
|
lda gr_offsets+(2*2)
|
|
sta OUTL
|
|
lda gr_offsets+(2*2)+1
|
|
clc
|
|
adc DRAW_PAGE
|
|
sta OUTH
|
|
|
|
ldx #0
|
|
ldy #11
|
|
print_name_loop:
|
|
|
|
cpy NAMEX
|
|
bne print_name_name
|
|
print_name_cursor:
|
|
lda #'+'
|
|
bne print_name_put_char ; bra
|
|
|
|
print_name_name:
|
|
lda HERO_NAME,X
|
|
bne print_name_char
|
|
print_name_zero:
|
|
lda #'_'+$80
|
|
bne print_name_put_char ; bra
|
|
|
|
print_name_char:
|
|
ora #$80
|
|
|
|
print_name_put_char:
|
|
sta (OUTL),Y
|
|
|
|
done_print_name_loop:
|
|
|
|
inx
|
|
iny
|
|
iny
|
|
cpy #25
|
|
bne print_name_loop
|
|
|
|
.if 0
|
|
|
|
for(yy=0;yy<8;yy++) {
|
|
basic_htab(12);
|
|
basic_vtab(yy*2+6);
|
|
for(xx=0;xx<8;xx++) {
|
|
if (yy<4) sprintf(tempst,"%c ",(yy*8)+xx+64);
|
|
else sprintf(tempst,"%c ",(yy*8)+xx);
|
|
|
|
if ((xx==cursor_x) && (yy==cursor_y)) basic_inverse();
|
|
else basic_normal();
|
|
|
|
basic_print(tempst);
|
|
}
|
|
}
|
|
|
|
basic_htab(12);
|
|
basic_vtab(22);
|
|
basic_normal();
|
|
|
|
if ((cursor_y==8) && (cursor_x<4)) basic_inverse();
|
|
basic_print(" DONE ");
|
|
basic_normal();
|
|
basic_print(" ");
|
|
if ((cursor_y==8) && (cursor_x>=4)) basic_inverse();
|
|
basic_print(" BACK ");
|
|
.endif
|
|
|
|
jsr get_keypress
|
|
bne done_enter_name
|
|
|
|
.if 0
|
|
while(1) {
|
|
ch=grsim_input();
|
|
|
|
if (ch==APPLE_UP) { // up
|
|
cursor_y--;
|
|
}
|
|
|
|
else if (ch==APPLE_DOWN) { // down
|
|
cursor_y++;
|
|
}
|
|
|
|
else if (ch==APPLE_LEFT) { // left
|
|
if (cursor_y==8) cursor_x-=4;
|
|
else cursor_x--;
|
|
}
|
|
|
|
else if (ch==APPLE_RIGHT) { // right
|
|
if (cursor_y==8) cursor_x+=4;
|
|
cursor_x++;
|
|
}
|
|
|
|
else if (ch==13) {
|
|
if (cursor_y==8) {
|
|
if (cursor_x<4) {
|
|
ch=27;
|
|
break;
|
|
}
|
|
else {
|
|
nameo[name_x]=0;
|
|
name_x--;
|
|
if (name_x<0) name_x=0;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (cursor_y<4) nameo[name_x]=(cursor_y*8)+
|
|
cursor_x+64;
|
|
else nameo[name_x]=(cursor_y*8)+cursor_x;
|
|
name_x++;
|
|
}
|
|
else if ((ch>32) && (ch<128)) {
|
|
nameo[name_x]=ch;
|
|
name_x++;
|
|
|
|
}
|
|
|
|
if (name_x>7) name_x=7;
|
|
|
|
if (cursor_x<0) {
|
|
cursor_x=7;
|
|
cursor_y--;
|
|
}
|
|
if (cursor_x>7) {
|
|
cursor_x=0;
|
|
cursor_y++;
|
|
}
|
|
|
|
if (cursor_y<0) cursor_y=8;
|
|
if (cursor_y>8) cursor_y=0;
|
|
|
|
if ((cursor_y==8) && (cursor_x<4)) cursor_x=0;
|
|
else if ((cursor_y==8) && (cursor_x>=4)) cursor_x=4;
|
|
|
|
|
|
if (ch!=0) break;
|
|
|
|
grsim_update();
|
|
|
|
usleep(10000);
|
|
}
|
|
|
|
if (ch==27) break;
|
|
|
|
.endif
|
|
|
|
jsr page_flip
|
|
|
|
jmp name_loop
|
|
|
|
done_enter_name:
|
|
|
|
rts
|
|
|
|
|
|
enter_name_string:
|
|
.byte 0,0,"PLEASE ENTER A NAME:",0
|
|
|