mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-02 19:42:23 +00:00
85 lines
861 B
ArmAsm
85 lines
861 B
ArmAsm
enter_name:
|
|
|
|
jsr TEXT
|
|
jsr HOME
|
|
|
|
lda #>(enter_name_string)
|
|
sta OUTH
|
|
lda #<(enter_name_string)
|
|
sta OUTL
|
|
|
|
jsr print_string
|
|
|
|
; zero out name
|
|
ldx #0
|
|
lda #0
|
|
zero_name_loop:
|
|
sta name,X
|
|
inx
|
|
cpx #8
|
|
bne zero_name_loop
|
|
|
|
name_loop:
|
|
|
|
jsr NORMAL
|
|
|
|
lda #11
|
|
sta CH ; HTAB 12
|
|
|
|
lda #2
|
|
jsr TABV ; VTAB 3
|
|
|
|
ldy #0
|
|
sty NAMEX
|
|
|
|
name_line:
|
|
cpy NAMEX
|
|
bne name_notx
|
|
lda #'+'
|
|
jmp name_next
|
|
|
|
name_notx:
|
|
lda NAMEL,Y
|
|
beq name_zero
|
|
ora #$80
|
|
bne name_next
|
|
|
|
name_zero:
|
|
lda #('_'+$80)
|
|
name_next:
|
|
jsr COUT
|
|
lda #(' '+$80)
|
|
jsr COUT
|
|
iny
|
|
cpy #8
|
|
bne name_line
|
|
|
|
lda #7
|
|
sta CV
|
|
|
|
lda #('@'+$80)
|
|
sta CHAR
|
|
|
|
print_letters_loop:
|
|
lda #11
|
|
sta CH ; HTAB 12
|
|
jsr VTAB
|
|
|
|
ldy #0
|
|
|
|
print_letters_inner_loop:
|
|
lda CHAR
|
|
jsr COUT
|
|
inc CHAR
|
|
lda #(' '+$80)
|
|
jsr COUT
|
|
iny
|
|
|
|
cpy #$8
|
|
bne print_letters_inner_loop
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
rts
|
|
|