Browse Source
Merge pull request #354 from oholiab/xm_send_on_port
Add port option to XM's send mode
pull/355/head
Wayne Warthen
2 years ago
committed by
GitHub
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with
11 additions and
6 deletions
-
Source/Apps/XM/xmdm125.asm
|
|
|
@ -720,12 +720,17 @@ NOBYE: LXI H,FCB+1 ; Get primary option |
|
|
|
; Send option processor |
|
|
|
; Single option: "K" - force 1k mode |
|
|
|
; |
|
|
|
INX H ; Look for a 'K' |
|
|
|
CALL SNDOPC |
|
|
|
CALL SNDOPC |
|
|
|
JMP ALLSET |
|
|
|
SNDOPC:INX H ; Look for an option |
|
|
|
MOV A,M |
|
|
|
CPI ' ' ; Is it a space? |
|
|
|
JZ ALLSET ; Then we're ready to send... |
|
|
|
CPI 'K' |
|
|
|
JNZ OPTERR ; "K" is the only setable 2nd option |
|
|
|
JNZ CHKK |
|
|
|
POP PSW |
|
|
|
JMP ALLSET |
|
|
|
CHKK: CPI 'K' |
|
|
|
JNZ CHK6TH ; If it's not K it should be a port number |
|
|
|
LDA MSPEED |
|
|
|
CPI MINKSP ; If less than MINKSP bps, ignore 1k |
|
|
|
JC ALLSET ; Request |
|
|
|
@ -733,7 +738,7 @@ NOBYE: LXI H,FCB+1 ; Get primary option |
|
|
|
STA KFLAG ; First, force us to 1K mode |
|
|
|
CALL ILPRT |
|
|
|
DB '(1k protocol selected)',CR,LF,0 |
|
|
|
JMP ALLSET ; That's it for send... |
|
|
|
RET ; That's it for send... |
|
|
|
; |
|
|
|
; Receive option processor |
|
|
|
; 3 or 4 options: "X" - disable auto-protocol select |
|
|
|
@ -5789,4 +5794,4 @@ BDPTOS EQU 83 ; Print Time on System |
|
|
|
ENDIF ; BYEBDOS |
|
|
|
; |
|
|
|
END |
|
|
|
|
|
|
|
|
|
|
|
|
