6510/6502 C64 Ввод с клавиатуры: печать на экране и сохранение в памяти.
что-то получилось с этим, но, посмотрев на раздел Screen Display в моем справочнике c64, символы, которые я ввожу ниже, печатаются на экране правильно, но когда их снова напечатали для печати позже из памяти, это не так. :(
Обычно, если набирать «А», я получаю черный символ лопаты, «S» возвращается как символ сердца, а «X» возвращается как дубинка. Я должен заявить, что этого не происходит, когда я набираю текст как пользователь и вижу свой текст, распечатанный на экране - это отлично работает. Все идет не так, как надо, когда я нажимаю RETURN как пользователь, и символы, которые, как мне кажется, хранятся в $ 1000, x (с inx, происходящим после любого нажатия клавиши) отображаются как символы ниже в выделенной области, за которыми следуют символы @, Остальное, что я вижу, - это пустые места в оставшейся части байта.
Извините за беспорядочный / чрезмерно новый код, я изучаю Assembly чуть меньше недели или около того - только с BASIC в качестве основы.
Я запустил отладчик, и при вводе "ASX" в программу расположение памяти через отладчик выглядело так ...
41 53 58 00 00 00 00 00 00 00 00 00 00 00 00 00 ♠♥♣@@@@@@@@@@@@@
;USER INPUTS NAME OF CORPORATION
getnamea
ldx #00
ldy #00
jmp getnameb
getnameb
; ldx $0900 ; transfer the x value here to a safe address
jsr $FF9F ;SCNKEY, place ASCII character into keyboard queue
jsr $FFE4 ;GETIN, this places the ASCII value into the Accumulator
BEQ getnameb ;loop until keys are pressed. Branch if zero
JSR $FFD2 ;CHROUT, print it to the screen as it is being typed in.
CMP #13 ; CMP looks for the carrige return
BEQ Name2 ; if we find it we branch using BEQ to name2 for msg2
ldx $0900
STA $1000,x ; also store what is being typed in consecutively?
INX
INY
stx $0900
JMP getnameb ; if we don't we loop!
; * store exactly what has been typed by the user into a place
; in memory and give it the varible name: corpname
; * display some more program defined text that includes the
; users inputted string
msg1 text 'What is the name of your corporation?'
byte 0
;------------------------------------------------------------------------------------------------------
;PRINT MSG 2
Name2 LDX #00 ; load into the x registry zero
cycle2 LDA msg2,x ; load into A the msg2, the x sequence.
CMP #00 ; compare memory and accumulator to the value 0?
BEQ reveal ; branch/jump if the result in A is 0
STA 1704,x ; where on the screen does msg2 start?
INX ; inc x to move the print along 1 space?
JMP cycle2 ; jump back to the beginning of cycle and do it all again.
; WHAT DOES THIS DO WHEN WE JUST CALL THE ADDRESS $1000?
reveal LDX #00
reveal1
LDA $1000,x
STA 1784,x
INX
TXA
CMP #16
BEQ exit
JMP reveal1
exit jsr *
msg2 text `New astro mining corp registration...
byte 0
1 ответ
Проблема решена, но я хотел бы знать, есть ли лучший способ сделать это ...
CLC ; clear the carry
LDA $1000,x ; load the character
SBC #63 ; subtract 63 from it to get the right character in the first set