Skip to content

Commit

Permalink
implemented capital letters for orao terminal ver 0.32
Browse files Browse the repository at this point in the history
  • Loading branch information
@mejs
mejs committed Jan 19, 2023
1 parent 792e8da commit 6c5b4a5
Show file tree
Hide file tree
Showing 4 changed files with 57 additions and 114 deletions.
45 changes: 13 additions & 32 deletions orao_rs232/orao_terminal_emulator.asm
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
; Orao Terminal version 0.31
; Orao Terminal version 0.32
:START ADDRESS: $0400
LDA #$62 ; FIX AUTOSTART HACK
STA $0218
Expand Down Expand Up @@ -399,14 +399,14 @@ JSR :CHR:
JMP :SHIFT:
:BACKSEND: LDA #$08 ; LOAD BACKSPACE HEX
JMP :PRINTCOMBO:
:SHIFT: LDX $87FB ; Load value of 87FB into X register
:SHIFTCHECK: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
JSR :DELAY:
JSR :DELAY:
JSR :DELAY:
JSR :DELAY:
BNE :LOOP9: ; If shift isn't pressed, go to LOOP 9
RTS
:SHIFT: LDX $87FB ; Load value of 87FB into X register
CPX #$D0
BNE :JUMP9: ; If shift isn't pressed, go to LOOP 9
JMP :EQUALSEND: ; If shift is pressed, go to SYMBOLS
:JUMP9: JMP :LOOP9:
:LOOP9: PHA
LDA #$10
:LOOP10:BIT $A800 ; this is the typing and TX loop
Expand All @@ -416,42 +416,27 @@ JSR :CHR:
JSR :DELAY:
JSR :DELAY:
RTS
:EQUALSEND: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
BNE :LOOP9: ; If shift isn't pressed, go to LOOP 9
LDY $FA
:EQUALSEND: LDY $FA
CPY #$2D
BNE :SMALLERSEND:
LDA #$3D
JMP :PRINTCOMBO:
:SMALLERSEND: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
BNE :LOOP9: ; If shift isn't pressed, go to LOOP 9
LDY $FA
:SMALLERSEND: LDY $FA
CPY #$2C
BNE :BIGGERSEND:
LDA #$3C
JMP :PRINTCOMBO:
:BIGGERSEND: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
BNE :LOOP9: ; If shift isn't pressed, go to LOOP 9
LDY $FA
:BIGGERSEND: LDY $FA
CPY #$2E
BNE :QSEND:
LDA #$3E
JMP :PRINTCOMBO:
:QSEND: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
BNE :LOOP9: ; If shift isn't pressed, go to LOOP 9
LDY $FA
:QSEND: LDY $FA
CPY #$2F
BNE :SYMBOLS:
LDA #$3F
JMP :PRINTCOMBO:
:SYMBOLS: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
BNE :LOOP9: ; If shift isn't pressed, go to LOOP 9
LDY $FA
:SYMBOLS: LDY $FA
CPY #$41
BCS :UPPERCASE:
LDY $FA
Expand All @@ -473,10 +458,7 @@ JSR :CHR:
DEY
TYA
JMP :PRINTCOMBO:
:UPPERCASE: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
BNE :LOOP9: ; If shift isn't pressed, go to LOOP 9
LDY $FA
:UPPERCASE: LDY $FA
DEY
DEY
DEY
Expand Down Expand Up @@ -511,7 +493,6 @@ JSR :CHR:
DEY
TYA
JMP :PRINTCOMBO:
:JUMP9: JMP :LOOP9:
:TYPING:JSR $E71C
LDA #$FC
BEQ :TYPING:
Expand Down
126 changes: 44 additions & 82 deletions orao_rs232/orao_terminal_emulator.asm~
View file
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
; Orao Terminal version 0.30
:START ADDRESS: $0400
; Orao Terminal version 0.31
:START ADDRESS: $0400
LDA #$62 ; FIX AUTOSTART HACK
STA $0218
LDA #$E7
Expand Down Expand Up @@ -399,45 +399,14 @@ JSR :CHR:
JMP :SHIFT:
:BACKSEND: LDA #$08 ; LOAD BACKSPACE HEX
JMP :PRINTCOMBO:
:SHIFT: LDX $87FB ; Load value of 87FB into X register
:SHIFTCHECK: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
BNE :LOOP9: ; If shift isn't pressed, go to LOOP 9
JMP :EXCSEND: ; If shift is pressed, go to EXCSEND
:EXCSEND: LDX $87DE
CPX #$70
BNE :QUOTESEND:
LDA #$21
JMP :PRINTCOMBO:
:QUOTESEND: LDX $87DF
CPX #$E0
BNE :POUNDSEND:
LDA #$22
JMP :PRINTCOMBO:
:POUNDSEND: LDX $87DF
CPX #$D0
BNE :DOLLARSEND:
LDA #$23
JMP :PRINTCOMBO:
:DOLLARSEND: LDX $87F7
CPX #$D0
BNE :PERCENTSEND:
LDA #$24
JMP :PRINTCOMBO:
:PERCENTSEND: LDX $87F7
CPX #$E0
BNE :AMPSEND:
LDA #$25
JMP :PRINTCOMBO:
:AMPSEND: LDX $87F6
CPX #$70
BNE :APOSSEND:
LDA #$26
JMP :PRINTCOMBO:
:APOSSEND: LDX $87EE
CPX #$70
BNE :BRACKETLSEND:
LDA #$27
JMP :PRINTCOMBO:
RTS
:SHIFT: LDX $87FB ; Load value of 87FB into X register
CPX #$D0
BNE :JUMP9: ; If shift isn't pressed, go to LOOP 9
JMP :EQUALSEND: ; If shift is pressed, go to SYMBOLS
:JUMP9: JMP :LOOP9:
:LOOP9: PHA
LDA #$10
:LOOP10:BIT $A800 ; this is the typing and TX loop
Expand All @@ -447,55 +416,49 @@ JSR :CHR:
JSR :DELAY:
JSR :DELAY:
RTS
:BRACKETLSEND: LDX $87EF
CPX #$E0
BNE :BRACKETRSEND:
LDA #$28
JMP :PRINTCOMBO:
:BRACKETRSEND: LDX $87EF
CPX #$D0
BNE :EQUALSEND:
LDA #$29
JMP :PRINTCOMBO:
:EQUALSEND: LDX $83FF
CPX #$E0
BNE :PLUSSEND:
LDA #$3D
JMP :PRINTCOMBO:
:PLUSSEND: LDX $83FE
CPX #$70
BNE :STARSEND:
LDA #$2B
JMP :PRINTCOMBO:
:STARSEND: LDX $85FE
CPX #$70
:EQUALSEND: LDY $FA
CPY #$2D
BNE :SMALLERSEND:
LDA #$2A
JMP :PRINTCOMBO:
:SMALLERSEND: LDX $87BF
CPX #$E0
LDA #$3D
JMP :PRINTCOMBO:
:SMALLERSEND: LDY $FA
CPY #$2C
BNE :BIGGERSEND:
LDA #$3C
JMP :PRINTCOMBO:
:BIGGERSEND: LDX $87BF
CPX #$D0
BNE :ATSEND:
LDA #$3E
JMP :PRINTCOMBO:
:ATSEND: LDX $85FF
CPX #$D0
:BIGGERSEND: LDY $FA
CPY #$2E
BNE :QSEND:
LDA #$40
LDA #$3E
JMP :PRINTCOMBO:
:QSEND: LDX $85FF
CPX #$E0
BNE :UPPERCASE:
:QSEND: LDY $FA
CPY #$2F
BNE :SYMBOLS:
LDA #$3F
JMP :PRINTCOMBO:
:UPPERCASE: LDX $87FB ; Load value of 87FB into X register
CPX #$D0 ; Check if it's equal to D0
BNE :JUMP9: ; If shift isn't pressed, go to LOOP 9
LDY $FA
:SYMBOLS: LDY $FA
CPY #$41
BCS :UPPERCASE:
LDY $FA
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
DEY
TYA
JMP :PRINTCOMBO:
:UPPERCASE: LDY $FA
DEY
DEY
DEY
Expand Down Expand Up @@ -530,7 +493,6 @@ JSR :CHR:
DEY
TYA
JMP :PRINTCOMBO:
:JUMP9: JMP :LOOP9:
:TYPING:JSR $E71C
LDA #$FC
BEQ :TYPING:
Expand Down
Binary file modified orao_rs232/oraoterm_full.wav
View file
Binary file not shown.
Binary file modified orao_rs232/oraoterm_quick.wav
View file
Binary file not shown.

0 comments on commit 6c5b4a5

Please sign in to comment.