Hello to all we user of MSX world,
After much time, I am got back to write on this forum, and I must to say
that for me is a real pleasure, but now I would like talk of the my little
problem of code assembler for MSX1.
I tried to program myself one
small routine to reset all keys functions from F1 until F5, but unfortunately
it is not vey good, in the sense that the 5 keys are not reset well
with my code done.
That's why I kindly ask for your help,
and I hope that my request will be accepted as much as possible
as soon as possible.
Here under there is my assembler code for CHAOS
ASSEMBLER 3. but must be adjusted well!
; REDAZIONE DATAPRINT MAGAZINE ; ; Prog: RESET ALL KEYS FUNCTIONS FROM F1 UNTIL F5 ; Code: DATAPRINT MAGAZINE ; Date: 29/5/2018 ; ; cmnt: (C) 2018 EDIZIONI DATAPRINT MAGAZINE ; ; Coded in TeddyWareZ' Chaos Assembler 3 ; ; (C) 2018 DATAPRINT MAGAZINE .org $D000 - 7 .db $fe .dw startProgram,endProgram,startProgram startProgram: ; RESET ALL KEYS FUNCTIONS FROM F1 UNTIL F5 CALL KEY_DELETE CALL KEY_RESET RET ; Return BASIC KEY_DELETE: POP HL PUSH HL ; DEFINE DELETE KEY1 ld hl,$F87F ld hl,KEYTEXT1 ld de,$F87F ld bc,$5 ldir ; DEFINE DELETE KEY2 ld hl,$F88F ld hl,KEYTEXT2 ld de,$F88F ld bc,$4 ldir ; DEFINE DELETE KEY3 ld hl,$F89F ld hl,KEYTEXT3 ld de,$F89F ld bc,$4 ldir ; DEFINE DELETE KEY4 ld hl,$F8AF ld hl,KEYTEXT4 ld de,$F8AF ld bc,$4 ldir ; DEFINE DELETE KEY5 ld hl,$F8BF ld hl,KEYTEXT5 ld de,$F8BF ld bc,$3 ldir POP HL XOR A RET KEY_RESET: POP HL PUSH HL ; DEFINE RESET KEY1 ld hl,$F87F ld hl,KEYTEXT_RESET1 ld de,$F87F ld bc,$1 ldir ; DEFINE RESET KEY2 ld hl,$F88F ld hl,KEYTEXT_RESET2 ld de,$F88F ld bc,$1 ldir ; DEFINE RESET KEY3 ld hl,$F89F ld hl,KEYTEXT_RESET3 ld de,$F89F ld bc,$1 ldir ; DEFINE RESET KEY4 ld hl,$F8AF ld hl,KEYTEXT_RESET4 ld de,$F8AF ld bc,$1 ldir ; DEFINE RESET KEY5 ld hl,$F8BF ld hl,KEYTEXT_RESET5 ld de,$F8BF ld bc,$1 ldir POP HL XOR A RET KEYTEXT1: .DB " " KEYTEXT2: .DB " " KEYTEXT3: .DB " " KEYTEXT4: .DB " " KEYTEXT5: .DB " " ; ================================== ; KEY RESET ALL KEYS: F1,F2,F3,F4,F5 ; ================================== KEYTEXT_RESET1: .DB " " KEYTEXT_RESET2: .DB " " KEYTEXT_RESET3: .DB " " KEYTEXT_RESET4: .DB " " KEYTEXT_RESET5: .DB " " endProgram: .end
For now is all.....
Best Regards
(^_^)
Andrea Gasparrini from Italy
Login or register to post comments
